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

⟦97b916c59⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »TESTRAND.BAS«

Derivation

└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
    └─ ⟦this⟧ »TESTRAND.BAS«

TextFile

10 OPEN "R",#1,"FILE",8
20 FIELD #1, 8 AS A$
30 INPUT "record nr. ";NR%
35 IF NR%=0 THEN GOTO 80
40 INPUT "navn ";N$
50 LSET A$=N$
60 PUT #1,NR%
70 GOTO 30
80 CLOSE #1
90 STOP
100 OPEN "R",#1,"FILE",8
110 FIELD #1, 8 AS B$
120 INPUT "record nr. ";NR%
125 IF NR%=0 THEN GOTO 150
127 GET #1,NR%
130 PRINT B$
140 GOTO 120
150 CLOSE#1
«eof»