|
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: 768 (0x300)
Types: TextFile
Names: »LØB-A1«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
└─⟦this⟧ »LØB-A1«
0010 // "løb-a1" 0020 OPEN FILE 1,"/17/PORT", WRITE 0030 PRINT FILE 1: CHR$(1); 0040 EXEC pause(0.3) 0050 PRINT FILE 1: CHR$(2); 0060 EXEC pause(0.3) 0070 PRINT FILE 1: CHR$(4); 0080 EXEC pause(0.3) 0090 PRINT FILE 1: CHR$(8); 0100 EXEC pause(0.3) 0110 PRINT FILE 1: CHR$(16); 0120 EXEC pause(0.3) 0130 PRINT FILE 1: CHR$(32); 0140 EXEC pause(0.3) 0150 PRINT FILE 1: CHR$(64); 0160 EXEC pause(0.3) 0170 PRINT FILE 1: CHR$(128); 0180 EXEC pause(0.3) 0190 CLOSE FILE 1 0200 END 0210 // 0220 PROC pause(sekunder) 0230 start:=SYS(3)/50 0240 REPEAT 0250 slut:=SYS(3)/50 0260 UNTIL slut-start>=sekunder 0270 ENDPROC pause ▶19◀«eof»