|
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-E2«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
└─⟦this⟧ »LØB-E2«
0010 // "løb-e2" 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 PRINT FILE 1: CHR$(0); 0100 EXEC pause(lysperiode) 0110 dectal:=0 0120 FOR bit:=0 TO 7 DO 0130 dectal:=dectal+2^bit 0140 PRINT FILE 1: CHR$(dectal); 0150 EXEC pause(lysperiode) 0160 NEXT bit 0170 UNTIL ORD(KEY$)=32 0180 PRINT FILE 1: CHR$(0); 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»