Back to Main page.
Back to Main tapes page.
10  REM:BY BILL MCFADDEN OF BENSON HIGH
20  REM:COMPLETED 5-24-77
30  REM:INPUTS FILES PUNCHED ON TAPE BY 'FILPUN'
40  DIM A$[255]
50  FILES *
60  LINPUT A$
70  ASSIGN A$,1,A
80  IF  END #1 THEN 330
90  IF A=0 OR A=8 THEN 110
100  PRINT "FILE IS NON EXISTANT OR IS NOT AVAILABLE"
110  LINPUT A$
120  GOTO POS('1'2'3'4,A$[1,1]) OF 170,220,330,280
130  IF A$[1,1]='1 THEN 170
140  IF A$[1,1]='2 THEN 220
150  PRINT #1;A$
160  GOTO 110
170  CONVERT A$[2,LEN(A$)] TO A,200
180  PRINT #1;A
190  GOTO 110
200  PRINT "ERROR: VARIABLE SPECIFIER OR STRING INPUT"
210  GOTO 110
220  CONVERT A$[2,LEN(A$)] TO A,260
230  READ #1,A
240  PRINT "MOVED TO RECORD #"A;'10
250  GOTO 110
260  PRINT "ERROR: RECORD SPECIFIER ON STRING INPUT"
270  GOTO 110
280  CONVERT A$[2,LEN(A$)] TO A,310
290  PRINT #1;CHR$(A)
300  GOTO 110
310  PRNT"ERROR:ASCII SPECIFIER ON STRING INPUT"
320  GOTO 110
330  END