DataMuseum.dk

top - metrics - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »LØB-F«

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

TextFile

0010 // "løb-f"
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 HVAR PÆRE: ": lysperiode
0070 REPEAT 
0080   FOR bit:=0 TO 7 DO
0090     PRINT FILE 1: CHR$(2^bit);
0100     EXEC pause(lysperiode)
0110   NEXT bit
0120   PRINT FILE 1: CHR$(0);
0130   EXEC pause(lysperiode)
0140   FOR bit:=7 TO 0 STEP -1 DO
0150     PRINT FILE 1: CHR$(2^bit);
0160     EXEC pause(lysperiode)
0170   NEXT bit
0180   PRINT FILE 1: CHR$(0);
0190   EXEC pause(lysperiode)
0200 UNTIL ORD(KEY$)=32
0210 PRINT FILE 1: CHR$(0);
0220 CLOSE FILE 1
0230 END 
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
▶19◀«eof»