1 sopen 4800
2 m=0:a=0
3 if sw=0 then goto 3
4 IF SW AND 8 THEN IF a<220 THEN a=a+1
5 IF SW AND 16 THEN IF a>0 THEN a=a-1
6 IF SW AND 1 THEN M=M+1
7 if m>8 then m=0
8 s=m+1+a
9 stx chr(253)
10 stx chr(221+m)
11 stx chr(a)
12 stx chr(s)
13 print a
14 for i=0 to 1000
15 next
16 goto 3
