SCREEN 13

prt2 = &H379


1
IF INP(prt2) <> 127 THEN c = c + .1 ELSE c = c - .1

IF c < 16 THEN c = 16
IF c > 31 THEN c = 31

LINE (100, 50)-(219, 150), c, BF
GOTO 1