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

⟦f7821aa27⟧ TextFile

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

Derivation

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »RAND.BAS«

TextFile

10 CLEAR 400
20 OPEN "R",#1,"RAN.DOM"
25 PRINT "RAN.DOM WILL CONTAIN YOUR 5 STRINGS AS RECORDS"
30 FIELD #1,80 AS A$
40 FOR REC= 1 TO 5
45 PRINT "STRING # ";REC;
50  INPUT Z$
60  LSET A$ = Z$
70  PUT #1,REC
80 NEXT REC
90 CLOSE #1
100 REM *** ATTRIB "RAN.DOM","I1"
110 CLOSE
115 PRINT:PRINT
120 INPUT "MENU";A$
130 RUN "MENU"
«eof»