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