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:TECO FOR NUMBERS 40 FILES *,* 50 DIM A$[72],B$[72],C$[72] 60 PRINT "INPUT FILE:"; 70 INPUT A$ 80 ASSIGN A$,1,A 90 IF A<3 THEN 120 100 PRINT "FILE IS NON-EXISTANT OR UNAVAILABLE--START OVER" 110 GOTO 60 120 PRINT "OUTPUT FILE: "; 130 INPUT A$ 140 ASSIGN A$,2,A 150 IF A#0 THEN 100 160 IF END #1 THEN 430 170 C=REC(1) 180 PRINT "RECORD #"C 190 READ #2,C 200 INPUT C$ 210 CONVERT C$ TO A,440 220 GOTO TYP(-1)-1 OF 280,330,330 230 READ #1;B 240 IF C$='16 THEN 260 250 IF A=B THEN 370 260 PRINT #2;B 270 GOTO 220 280 READ #1;A$ 290 PRINT #2;A$ 300 IF C$='16 THEN 220 310 IF C$=A$ THEN 430 320 GOTO 220 330 READ #1,REC(1)+1 340 C$="" 350 A=0 360 GOTO 170 370 PRINT "NEW VALUE"; 380 INPUT B 390 PRINT #2;B 400 A$="" 410 A=0 420 GOTO 200 430 PRINT "END-OF-FILE MARK ENCOUNTERED" 440 END