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

⟦e62d5280d⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »LØB-A2«

Derivation

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

TextFile

0010 // "løb-a2"
0020 OPEN FILE 1,"/17/PORT", WRITE 
0030 FOR n:=0 TO 7 DO
0040   PRINT FILE 1: CHR$(2^n);
0050   EXEC pause(0.3)
0060 NEXT n
0070 CLOSE FILE 1
0080 END 
0090 //
0100 PROC pause(sekunder)
0110   start:=SYS(3)/50
0120   REPEAT 
0130     slut:=SYS(3)/50
0140   UNTIL slut-start>=sekunder
0150 ENDPROC pause
▶19◀«eof»