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  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,B$
160  GOTO 180
170  ASSIGN A$,1,A
180  IF  END #1 THEN 430
190  IF A=0 OR A=8 THEN 220
200  PRINT "FILE IS NON-EXISTANT OR IS UNACCESSABLE"
210  GOTO 70
220  ENTER -1,Z,A$
230  GOTO POS('1'2'3'4,A$[1,1]) OF 330,390,430,360
240  FOR X=1 TO LEN(A$)
250  GOTO POS('14'15,A$[X,X]) OF 290,310
260  NEXT X
270  PRINT #1;A$
280  GOTO 220
290  A$[X,X]='10
300  GOTO 260
310  A$[X,X]='13
320  GOTO 260
330  CONVERT A$[2] TO A,270
340  PRINT #1;A
350  GOTO 220
360  IF LEN(A$)>1 THEN 270
370  PRINT #1; END 
380  GOTO 220
390  CONVERT A$[2] TO A,270
400  READ #1,A
410  PRINT '13'10'10'7'7'7'7'7'7'7'7'7'7"ADVANCING TO RECORD #"REC(1)'10'10
420  GOTO 220
430  IF LEN(A$)>1 THEN 270
440  END