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

⟦086aa9a0d⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »BLINK-A/.B«

Derivation

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

TextFile

0010 // "blink-A/B"
0020 OPEN FILE 1,"/10/PORT", WRITE 
0030 REPEAT 
0040   PRINT FILE 1: CHR$(24);CHR$(5);CHR$(2);
0050   EXEC pause(0.5)
0060   PRINT FILE 1: CHR$(24);CHR$(5);CHR$(128);
0070   EXEC pause(0.5)
0080 UNTIL ORD(KEY$)=32
0090 PRINT FILE 1: CHR$(24);CHR$(5);CHR$(0);
0100 CLOSE FILE 1
0110 END 
0120 //
0130 PROC pause(sekunder)
0140   start:=SYS(3)/50
0150   REPEAT 
0160     slut:=SYS(3)/50
0170   UNTIL slut-start>=sekunder
0180 ENDPROC pause
▶19◀«eof»