|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 384 (0x180) Types: TextFile Names: »LØB-A2«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo) └─⟦this⟧ »LØB-A2«
0010 // "løb-a2" 0020 OPEN FILE 1,"/17/PORT", WRITE 0030 FOR n:=0 TO 7 DO 0040 PRINT FILE 1: CHR$(2^n); 0050 EXEC pause(0.3) 0060 NEXT n 0070 CLOSE FILE 1 0080 END 0090 // 0100 PROC pause(sekunder) 0110 start:=SYS(3)/50 0120 REPEAT 0130 slut:=SYS(3)/50 0140 UNTIL slut-start>=sekunder 0150 ENDPROC pause ▶19◀«eof»