|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 384 (0x180)
Types: TextFile
Names: »RAND.BAS«
└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
└─ ⟦this⟧ »RAND.BAS«
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 ATTRIB "RAN.DOM","I1" 110 CLOSE 115 PRINT:PRINT 120 INPUT "MENU";A$ 130 RUN "MENU" «nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»