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

⟦8ef103675⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »TÆLLE-B«

Derivation

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

TextFile

0010 // "tælle-b"
0020 OPEN FILE 1,"/17/PORT", WRITE 
0030 INPUT "PAUSETID: ": tid
0040 FOR tal:=0 TO 255 DO
0050   PRINT FILE 1: CHR$(tal);
0060   EXEC pause(tid)
0070 NEXT tal
0080 PRINT FILE 1: CHR$(0);
0090 CLOSE FILE 1
0100 END 
0110 //
0120 PROC pause(sekunder)
0130   start:=SYS(3)/50
0140   REPEAT 
0150     slut:=SYS(3)/50
0160   UNTIL slut-start>=sekunder
0170 ENDPROC pause
▶19◀«eof»