OPEN "valjund.txt" FOR APPEND ACCESS WRITE AS #2
10 REM
OUT &H378, &H0

a = INP(&H378)
b = INP(&H379)
c = INP(&H380)

PRINT TIME$, a, b, c, p

PRINT #2, TIME$, a, b, c, p


IF p < -25 THEN GOSUB 200

IF p > 25 THEN GOSUB 100

IF b = 0 THEN GOSUB 100

IF b = 32 THEN GOSUB 200

190 SLEEP 120

GOTO 10

200 p = p + 1
steps = 1000
OUT &H378, &H0
a = &HC
b = &H9
c = &H3
d = &H6
FOR i = 0 TO steps
IF i MOD 4 = 0 THEN
OUT &H378, a
ELSEIF i MOD 4 = 1 THEN
OUT &H378, b
ELSEIF i MOD 4 = 2 THEN
OUT &H378, c
ELSEIF i MOD 4 = 3 THEN
OUT &H378, d
END IF
FOR m = 1 TO 300: NEXT m
REM PRINT i
NEXT i
OUT &H378, &H0
RETURN

100 p = p - 1
steps = 1000
OUT &H378, &H0
a = &H9
b = &HC
c = &H6
d = &H3
FOR i = 0 TO steps
IF i MOD 4 = 0 THEN
OUT &H378, a
ELSEIF i MOD 4 = 1 THEN
OUT &H378, b
ELSEIF i MOD 4 = 2 THEN
OUT &H378, c
ELSEIF i MOD 4 = 3 THEN
OUT &H378, d
END IF
FOR m = 1 TO 300: NEXT m
REM PRINT i
NEXT i
OUT &H378, &H0
RETURN