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 - metrics - download

⟦d94fc1314⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »LØB-B«

Derivation

└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
    └─⟦this⟧ »LØB-B« 

TextFile

0010 // "løb-b"
0020 OPEN FILE 1,"/17/PORT", WRITE 
0030 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"
0040 REPEAT 
0050   FOR bit:=0 TO 7 DO
0060     PRINT FILE 1: CHR$(2^bit);
0070     EXEC pause(0.3)
0080   NEXT bit
0090 UNTIL ORD(KEY$)=32
0100 PRINT FILE 1: CHR$(0);
0110 CLOSE FILE 1
0120 END 
0130 //
0140 PROC pause(sekunder)
0150   start:=SYS(3)/50
0160   REPEAT 
0170     slut:=SYS(3)/50
0180   UNTIL slut-start>=sekunder
0190 ENDPROC pause
▶19◀«eof»