1 CLS
2 SCREEN 1

3 X = 2
4 Y = 2
5 V = 1
7 C = 1
8 W = 1

10 FOR F1 = 1 TO 5
11 COLOR(0)
12 LINE X,Y,X+80,Y
13 Y = Y + 5
14 NEXT F1
15 X = 2
16 Y = 2
17 FOR R1 = 1 TO 17
18 LINE X,Y,X,Y+20
19 X = X + 5
20 NEXT R1

30 DELAY 50

33 X = 3
34 Y = 3

40 DIM A(17)
41 DIM B(17)
42 DIM C(17)
43 DIM D(17)

58 FOR V = 1 TO 16
59 POKE &HA000,0

60 S1 = KEYPAD(0)
61 GOSUB 400

62 IF S1 = 8 THEN GOTO 140
63 IF S1 = 4 THEN GOTO 150
64 IF S1 = 2 THEN GOTO 160
65 IF S1 = 1 THEN GOTO 170
66 IF S1 = 32 THEN GOTO 180
67 IF S1 = 16 THEN GOTO 190

70 IF V = 16 THEN V = 0
71 NEXT V

140 GOSUB 200
141 IF Y < 15 THEN Y = Y+5
142 IF W < 4 THEN W= W+1
143 GOTO 210

150 GOSUB 200
151 IF Y > 3 THEN Y = Y-5
152 IF W > 1 THEN W = W-1
153 GOTO 210

160 GOSUB 200
161 IF X > 3 THEN X = X-5
162 IF C > 1 THEN C = C-1
163 GOTO 210

170 GOSUB 200
171 IF X < 75 THEN X = X+5
172 IF C < 16 THEN C = C+1
173 GOTO 210

180 COLOR(3)
181 POINT X+1,Y+1
182 POINT X+1,Y+2
183 POINT X+2,Y+1
184 POINT X+2,Y+2
185 IF W = 1 THEN A(C) = 0
186 IF W = 2 THEN B(C) = 0
187 IF W = 3 THEN C(C) = 0
188 IF W = 4 THEN D(C) = 0
189 GOTO 70

190 COLOR(0)
191 POINT X+1,Y+1
192 POINT X+1,Y+2
193 POINT X+2,Y+1
194 POINT X+2,Y+2
195 IF W = 1 THEN A(C) = 1
196 IF W = 2 THEN B(C) = 1
197 IF W = 3 THEN C(C) = 1
198 IF W = 4 THEN D(C) = 1
199 GOTO 70

200 COLOR(3)
201 LINE X,Y,X+3,Y
202 LINE X+3,Y,X+3,Y+3
203 LINE X+3,Y+3,X,Y+3
204 LINE X,Y+3,X,Y
206 RETURN

210 COLOR(1)
211 LINE X,Y,X+3,Y
212 LINE X+3,Y,X+3,Y+3
213 LINE X+3,Y+3,X,Y+3
214 LINE X,Y+3,X,Y
216 GOTO 70

400 IF A(V) = 0 THEN U = 0
401 IF B(V) = 0 THEN I = 0
402 IF C(V) = 0 THEN O = 0
403 IF D(V) = 0 THEN P = 0
404 IF A(V) = 1 THEN U = 1
405 IF B(V) = 1 THEN I = 2
406 IF C(V) = 1 THEN O = 4
407 IF D(V) = 1 THEN P = 8
408 G = U+I+O+P
410 COLOR(4)
411 POINT 5*V,25
412 POKE &HA000,G
413 RETURN

END
RUN