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

⟦c3e464dbd⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »20-HZ«

Derivation

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

TextFile

0010 // "20 Hz"
0020 // BLINKFREKVENS:  20.5  blink/sek
0030 REPEAT 
0040   EXEC ud(255)
0050   EXEC ud(0)
0060 UNTIL FALSE
0070 CLOSE FILE 1
0080 END 
0090 //
0100 PROC ud(dectal)
0110   OPEN FILE 1,"/17/PORT", WRITE 
0120   PRINT FILE 1: CHR$(dectal);
0130   CLOSE FILE 1
0140 ENDPROC ud
▶19◀«eof»