CLS
OUT &H278, 128
OUT &H27A, 0
a = 0
DO
a = a + 1
READ t$(a), m$(a)
IF t$(a) = "" THEN EXIT DO
LOOP
t1 = VAL(LEFT$(TIME$, 2))
m1 = VAL(MID$(TIME$, 4, 2))
FOR i = 1 TO a
t2 = VAL(t$(i))
IF t1 < t2 OR (t1 = t2 AND m1 < VAL(m$(i))) THEN EXIT FOR
NEXT
IF t$(i) = "" THEN a = 1: ELSE a = i
SELECT CASE a
CASE 1
OUT &H27A, 4
OUT &H278, 0
CASE 2
OUT &H27A, 0
OUT &H278, 255
CASE 3
OUT &H27A, 0
OUT &H278, 0
CASE 4
OUT &H27A, 0
OUT &H278, 255
CASE 5
OUT &H27A, 0
OUT &H278, 126
CASE 6
OUT &H27A, 0
OUT &H278, 255
CASE 7
OUT &H27A, 0
OUT &H278, 0
CASE 8
OUT &H27A, 0
OUT &H278, 255
END SELECT
DO
DO
SLEEP 15
IF LEFT$(TIME$, 2) = t$(a) AND MID$(TIME$, 4, 2) = m$(a) THEN EXIT DO
LOOP
SELECT CASE a
CASE 1:
FOR ny = 0 TO 25
OUT &H278, ny
SLEEP 1
NEXT
OUT &H27A, 0
FOR ny = 26 TO 255
OUT &H278, ny
SLEEP 1
NEXT
CASE 2:
FOR ny = 255 TO 0 STEP -2
OUT &H278, ny
SLEEP 1
NEXT
CASE 3:
FOR ny = 0 TO 255 STEP 2
OUT &H278, ny
SLEEP 1
NEXT
CASE 4:
FOR ny = 255 TO 128 STEP -2
OUT &H278, ny
SLEEP 1
NEXT
CASE 5:
FOR ny = 128 TO 255 STEP 2
OUT &H278, ny
SLEEP 1
NEXT
CASE 6:
FOR ny = 255 TO 0 STEP -2
OUT &H278, ny
SLEEP 1
NEXT
CASE 7:
FOR ny = 0 TO 255
OUT &H278, ny
SLEEP 1
NEXT
CASE 8:
FOR ny = 255 TO 50 STEP -1
OUT &H278, ny
SLEEP 1
NEXT
OUT &H27A, 4
FOR ny = 50 TO 0 STEP -1
OUT &H278, ny
SLEEP 1
NEXT
CASE 9:
a = 0
END SELECT
a = a + 1
IF a = 9 THEN a = 1
LOOP
END
DATA "07","30"
DATA "08","00"
DATA "10","45"
DATA "11","05"
DATA "14","50"
DATA "15","05"
DATA "18","30"
DATA "23","00"
DATA "",""
Till del 5
Till början av sidan