DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦e56f46f4b⟧ TextFile

    Length: 256 (0x100)
    Types: TextFile
    Names: »SEQ.BAS«

Derivation

└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
    └─ ⟦this⟧ »SEQ.BAS«

TextFile

10 CLEAR 260
20 ON ERROR GOTO 110
30 INPUT "FILENAME";P$
40 OPEN "I",1,P$
50 IF EOF(1) THEN CLOSE:GOTO 90
60 LINE INPUT #1,A$
70 PRINT A$
80 GOTO 50
90 INPUT "MENU";A$
100 RUN "MENU"
110 PRINT "ERROR" ERR "AT LINE" ERL
120 RESUME 90