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