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:FILE FILLER
40  DIM A$[255]
50  FILES *
60  PRINT "FILE NAME: ";
70  LINPUT A$
80  ASSIGN A$,1,A
90  IF A=0 OR A=8 THEN 120
100  PRINT "FILE IS NON EXISTANT OR IS NOT AVAILABLE"
110  IF  END #1 THEN 310
120  PRINT '7;
130  LINPUT A$
140  GOTO POS('1'2'3,A$[1,1]) OF 280,230,320
150  GOTO 180
160  PRINT #1;A$
170  GOTO 120
180  CONVERT A$ TO A,160
190  PRINT #1;A
200  GOTO 120
210  PRINT "ERROR: ASCII SPECIFIER ON STRING INPUT"
220  GOTO 120
230  CONVERT A$[2,LEN(A$)] TO A,260
240  READ #1,A
250  GOTO 120
260  PRINT "ERROR: RECORD SPECIFIER ON STRING INPUT"
270  GOTO 120
280  CONVERT A$[2,LEN(A$)] TO A,210
290  A$=CHR$(A)
300  GOTO 160
310  PRINT "PHYSICAL END-OF-FILE MARK ENCOUNTERED"
320  END