To retrieve the information, rewind the tape, and try this:
19 PRINT "READ-TAPE-PROGRAt1"
29 OPEN 1,1,9,"DATA FILE"
39 PRINT "FILE OPEN"
49 PRINT
59 INPUT#l, A$
69 PRINT A$
70 IF A$ = "STOP" THEN END
89 GOTO 49
Again, the file "DATA FILE"first must be OPENed. In line 50 the pro-
gram INPUTs A$ from tape and also PRINTsA$ on the screen. Then the
whole process is repeated until "STOP" is found, which ENDs the pro-
gram.
A variation of GET-GET#-can also be used to read the data back
from tape. Replace lines 50-80 in the program above with:
59 GET#l, A$
69 IF A$ = "" THEN END
79 PRINT A$, ASC(A$)
89 GOTO 59
111
To Next Page
Loading...
