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