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

⟦1d9fcfcdc⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »PAUSE-CT.ID2«

Derivation

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

TextFile

0010 // "pause-cTID2"
0020 INPUT "Antal sekunder: ": sek
0030 EXEC pause(sek)
0040 PRINT "Nu er der gået: ";sek;"sekunder !"
0050 END 
0060 //
0070 PROC pause(sekunder)
0080   start:=SYS(3)/50
0090   REPEAT 
0100     slut:=SYS(3)/50
0110   UNTIL slut-start>=sek
0120 ENDPROC pause
▶19◀«eof»