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

⟦e8d6fbc2d⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »TÆLLE-A«

Derivation

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

TextFile

0010 // "tælle-a"
0020 OPEN FILE 1,"/17/PORT", WRITE 
0040 FOR tal:=0 TO 255 DO
0050   PRINT FILE 1: CHR$(tal);
0060   EXEC pause(1/3)
0070 NEXT tal
0080 PRINT FILE 1: CHR$(0);
0090 CLOSE FILE 1
0100 END 
0110 //
0120 PROC pause(sekunder)
0130   start:=SYS(3)/50
0140   REPEAT 
0150     slut:=SYS(3)/50
0160   UNTIL slut-start>=sekunder
0170 ENDPROC pause
▶19◀«eof»