|
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: 1152 (0x480)
Types: TextFile
Names: »LØB-G2«
└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
└─⟦this⟧ »LØB-G2«
0010 // "løb-g2" 0020 OPEN FILE 1,"/17/PORT", WRITE 0030 DIM tast$ OF 1 0040 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!" 0050 PRINT "SKRIV LYSPERIODEN" 0060 PRINT "I SEKUNDER" 0070 INPUT "FOR HVER PÆRE: ": lysperiode 0080 // 0090 REPEAT 0100 tast$:=KEY$ 0110 IF tast$="v" OR tast$="V" OR tast$=CHR$(8) THEN EXEC løbelys(0,7,+1) 0120 IF tast$="h" OR tast$="H" OR tast$=CHR$(24) THEN EXEC løbelys(7,0,-1) 0130 IF tast$="s" OR tast$="S" OR tast$=" " THEN EXEC stands 0140 UNTIL FALSE 0150 // 0160 PROC løbelys(startværdi,slutværdi,stepværdi) 0170 FOR bit:=startværdi TO slutværdi STEP stepværdi DO 0180 PRINT FILE 1: CHR$(2^bit); 0190 EXEC pause(lysperiode) 0200 NEXT bit 0210 PRINT FILE 1: CHR$(0); 0220 EXEC pause(lysperiode) 0230 ENDPROC løbelys 0240 // 0250 PROC pause(sekunder) 0260 start:=SYS(3)/50 0270 REPEAT 0280 slut:=SYS(3)/50 0290 UNTIL slut-start>=sekunder 0300 ENDPROC pause 0310 // 0320 PROC stands 0330 PRINT FILE 1: CHR$(0); 0340 CLOSE FILE 1 0350 END 0360 ENDPROC stands ▶19◀«eof»