DataMuseum.dk

top - metrics - download

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

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

TextFile

0010 // "løb-g1"
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 REPEAT 
0090   tast$:=KEY$
0100   IF tast$="v" OR tast$="V" OR tast$=CHR$(8) THEN
0110     FOR bit:=0 TO 7 DO
0120       PRINT FILE 1: CHR$(2^bit);
0130       EXEC pause(lysperiode)
0140     NEXT bit
0150   ENDIF 
0160   IF tast$="h" OR tast$="H" OR tast$=CHR$(24) THEN
0170     FOR bit:=7 TO 0 STEP -1 DO
0180       PRINT FILE 1: CHR$(2^bit);
0190       EXEC pause(lysperiode)
0200     NEXT bit
0210   ENDIF 
0220   IF tast$="s" OR tast$="S" OR tast$=" " THEN
0230     PRINT FILE 1: CHR$(0);
0240     CLOSE FILE 1
0250     END 
0260   ENDIF 
0270   PRINT FILE 1: CHR$(0);
0280   EXEC pause(lysperiode)
0290 UNTIL FALSE
0300 //
0310 PROC pause(sekunder)
0320   start:=SYS(3)/50
0330   REPEAT 
0340     slut:=SYS(3)/50
0350   UNTIL slut-start>=sekunder
0360 ENDPROC pause
▶19◀«eof»