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

⟦8136ad972⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »DB/L{SVE.JL«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »DB/L{SVE.JL«

TextFile

0010 DIM ud$ OF 1,l$ OF 60,v$ OF 1
0020 CLEAR 
0030 INPUT "udskrift på skærm eller printer (S/P): ": ud$
0040 IF ud$ IN "Pp" THEN
0050   SELECT OUTPUT "printer"
0060 ELSE 
0070   SELECT OUTPUT "console"
0080 ENDIF 
0090 CLEAR 
0100 OPEN FILE 1,"vejledning", RANDOM 62
0110 READ FILE 1,1: linier
0120 FOR n:= 2 TO linier+1 DO
0130   READ FILE 1,n: l$
0140   PRINT l$
0150   IF "---" IN l$ AND ud$ IN "Pp" THEN PRINT CHR$(12)
0155   IF NOT (ud$ IN "Pp") AND n MOD 20=0 THEN INPUT "-return:": v$
0160 NEXT n
0170 IF ud$ IN "Pp" THEN PRINT CHR$(12)
0175 SELECT OUTPUT "console"
0180 CLOSE 
«eof»