DataMuseum.dk

top - metrics - download

    Length: 1152 (0x480)
    Types: TextFile
    Names: »LØB-G3«

└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
    └─⟦this⟧ »LØB-G3« 

TextFile

0010 // "løb-g3"
0020 OPEN FILE 1,"/17/PORT", WRITE 
0030 PRINT "STOP: TRYK PÅ MELLEMRUM-TASTEN !!"
0040 PRINT "SKRIV LYSPERIODEN"
0050 PRINT "I SEKUNDER"
0060 INPUT "FOR HVER PÆRE: ": lysperiode
0070 REPEAT 
0080   CASE KEY$ OF
0090   WHEN "v","V",CHR$(8)
0100     startværdi:=0
0110     slutværdi:=7
0120     stepværdi:=+1
0130   WHEN "h","H",CHR$(24)
0140     startværdi:=7
0150     slutværdi:=0
0160     stepværdi:=-1
0170   WHEN "s","S"," "
0180     PRINT FILE 1: CHR$(0);
0190     CLOSE FILE 1
0200     END 
0210   OTHERWISE 
0220     startværdi:=0
0230     slutværdi:=0
0240     stepværdi:=+1
0250   ENDCASE 
0260   FOR bit:=startværdi TO slutværdi STEP stepværdi DO
0270     PRINT FILE 1: CHR$(2^bit);
0280     EXEC pause(lysperiode)
0290   NEXT bit
0300   PRINT FILE 1: CHR$(0);
0310   EXEC pause(lysperiode)
0320 UNTIL FALSE
0330 //
0340 PROC pause(sekunder)
0350   start:=SYS(3)/50
0360   REPEAT 
0370     slut:=SYS(3)/50
0380   UNTIL slut-start>=sekunder
0390 ENDPROC pause
▶19◀«eof»