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

V$ = "050008~1.TXT"
S$ = "200008~1.TXT"
OPEN V$ FOR INPUT AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1, VTEMP$
LOOP
CLOSE #1
OPEN S$ FOR INPUT AS #2
DO WHILE NOT EOF(2)
LINE INPUT #2, STEMP$
LOOP
CLOSE #2
vt = VAL(MID$(VTEMP$, 22, 5))
st = VAL(MID$(STEMP$, 22, 5))
REM reg = (38.4 - 2.3 * vt)
REM reg = (52 - 1.6 * vt)
reg = (46 - 1.3 * vt)
tee = reg - st
REM PRINT VTEMP$; VT; ST; REG; TEE
DO WHILE RIGHT$(TIME$, 2) <> "30"
REM PRINT TIME$
LOOP


steps = ABS(tee * 1000)
PRINT tee; "="; steps; vt; reg; "="; st; "ste"; p;

IF p - tee * 10 < -230 THEN steps = 0
IF p - tee * 10 > 230 THEN steps = 0


IF tee < 0 THEN GOSUB 100
IF tee > 0 THEN GOSUB 200

190 SLEEP 120

GOTO 10

100 p = p + steps / 100
PRINT "a100"
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

200 p = p - steps / 100
PRINT "y200"
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