Back to Main page.
Back to Main tapes page.
10  REM:BY BILL MCFADDEN OF BENSON HIGH
20  REM:COMPLETED ON 5-24-77
30  REM:INPUTS FILES PUNCHED ON PAPER TAPE BY 'FILPUN'
40  DIM A$[255],B$[255]
50  FILES *
60  PRINT "FILE NAME: ";
70  LINPUT A$
80  PRINT "MASK- 'RETURN' IF NONE : ";
90  SYSTEM A,"ECH-OFF"
100  LINPUT B$
110  PRINT 
120  SYSTEM A,"ECH-ON"
130  IF B$="" THEN 160
140  ASSIGN A$,1,A,B$
150  GOTO 170
160  ASSIGN A$,1,A
170  IF  END #1 THEN 430
180  IF A=0 OR A=8 THEN 210
190  PRINT "FILE IS NON-EXISTANT OR IS UNACCESSABLE"
200  GOTO 60
210  ENTER -1,Z,A$
220  GOTO POS('1'2'3,A$[1,1]) OF 320,370,430
230  FOR X=1 TO LEN(A$)
240  GOTO POS('14'15,A$[X,X]) OF 280,300
250  NEXT X
260  PRINT #1;A$
270  GOTO 210
280  A$[X,X]='10
290  GOTO 250
300  A$[X,X]='13
310  GOTO 250
320  CONVERT A$[2] TO A,350
330  PRINT #1;A
340  GOTO 210
350  PRINT '10'10'13"E"'7'7'7'7'7'7'7'7'7'7"ERROR: NUMBER SPECIFIER ON STRING INPUT"'10'10
360  GOTO 210
370  CONVERT A$[2] TO A,410
380  READ #1,A
390  PRINT '13'10'10'7'7'7'7'7'7'7'7'7'7"ADVANCING TO RECORD #"REC(1)'10'10
400  GOTO 210
410  PRINT '13'10'10'7'7'7'7'7'7'7'7'7'7"ERROR: RECORD SPECIFIER ON STRING INPUT"'10'10
420  GOTO 210
430  END