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

⟦17edaaf78⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »33-HZ«

Derivation

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

TextFile

0010 // "33-Hz"
0020 // BLINKFREKVENS:  33.3  blink/sek
0030 OPEN FILE 1,"/17/PORT", WRITE 
0040 REPEAT 
0050   PRINT FILE 1: CHR$(255);
0060   pause:=0
0070   REPEAT 
0080     pause:=pause+1
0090   UNTIL pause>=0
0100   PRINT FILE 1: CHR$(0);
0110   pause:=0
0120   REPEAT 
0130     pause:=pause+1
0140   UNTIL pause>=0
0150 UNTIL FALSE
0160 CLOSE FILE 1
0170 END 
▶19◀«eof»