|
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: 512 (0x200) Types: TextFile Names: »LØB-B«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo) └─⟦this⟧ »LØB-B«
0010 // "løb-b" 0020 OPEN FILE 1,"/17/PORT", WRITE 0030 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!" 0040 REPEAT 0050 FOR bit:=0 TO 7 DO 0060 PRINT FILE 1: CHR$(2^bit); 0070 EXEC pause(0.3) 0080 NEXT bit 0090 UNTIL ORD(KEY$)=32 0100 PRINT FILE 1: CHR$(0); 0110 CLOSE FILE 1 0120 END 0130 // 0140 PROC pause(sekunder) 0150 start:=SYS(3)/50 0160 REPEAT 0170 slut:=SYS(3)/50 0180 UNTIL slut-start>=sekunder 0190 ENDPROC pause ▶19◀«eof»