|
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-E1«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
└─⟦this⟧ »LØB-E1«
0010 // "løb-e1" 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 dectal:=0 0100 FOR bit:=0 TO 7 DO 0110 dectal:=dectal+2^bit 0120 PRINT FILE 1: CHR$(dectal); 0130 EXEC pause(lysperiode) 0140 NEXT bit 0150 UNTIL ORD(KEY$)=32 0160 PRINT FILE 1: CHR$(0); 0170 CLOSE FILE 1 0180 END 0190 // 0200 PROC pause(sekunder) 0210 start:=SYS(3)/50 0220 REPEAT 0230 slut:=SYS(3)/50 0240 UNTIL slut-start>=sekunder 0250 ENDPROC pause ▶19◀«eof»