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:PUNCHES FILES ONTO PAPER TAPE
40  REM: LAST ACCESS 11-3-77
50  DIM A$[255],B$[255]
60  FILES *
70  PRINT "FILE NAME: ";
80  LINPUT A$
90  PRINT "MASK- 'RETURN' IF NONE : ";
100  SYSTEM A,"ECH-OFF"
110  LINPUT B$
120  PRINT 
130  SYSTEM A,"ECH-ON"
140  IF B$#"" THEN 170
150  ASSIGN A$,1,A
160  GOTO 180
170  ASSIGN A$,1,A,B$
180  IF A<3 THEN 210
190  PRINT "FILE IS NOT AVAILABLE"
200  GOTO 70
210  PRINT "START,STOP: ";
220  INPUT A,B
230  PRINT '18;
240  FOR X=1 TO 100
250  PRINT '0;
260  NEXT X
270  IF  END #1 THEN 470
280  FOR X=A TO B
290  READ #1,X
300  PRINT '2X
310  GOTO TYP(-1)-1 OF 350,450,460
320  READ #1;C
330  PRINT '1C
340  GOTO 310
350  READ #1;A$
360  FOR Y=1 TO LEN(A$)
370  GOTO POS('10'13,A$[Y,Y]) OF 410,430
380  NEXT Y
390  PRINT A$
400  GOTO 310
410  A$[Y,Y]='14
420  GOTO 380
430  A$[Y,Y]='15
440  GOTO 380
450  PRINT '4
460  NEXT X
470  PRINT '3
480  FOR X=1 TO 100
490  PRINT '0;
500  NEXT X
510  PRINT '20
520  END