DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC700 "Piccolo"

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC700 "Piccolo"

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦8c80cd377⟧ TextFile

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

Derivation

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

TextFile

0010 // "blink-7/0"
0020 OPEN FILE 1,"/17/PORT", WRITE 
0030 REPEAT 
0040   PRINT FILE 1: CHR$(1);
0050   EXEC pause(0.5)
0060   PRINT FILE 1: CHR$(128);
0070   EXEC pause(0.5)
0080 UNTIL ORD(KEY$)=32
0090 PRINT FILE 1: 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»