100 C=1: I=2: P=3: X=32: Y=16
110 CLS(P)
120 A$=INKEY$
130 IF AS<>"" THEN 160
140 IF C=1 THEN RESET(X,Y): SET(X,Y,I)
150 GOTO120
160 IF A$<>"Y" THEN 190
170 IF Y>1 THEN Y=Y-2: GOTOS60
180 Y=31: GOTOS60
190 IF A$<>"B" THEN 220
200 IF Y<30 THEN Y=Y+2: GOTO560
210 Y=0: GOTO560
220 IF A$<>"H" THEN 250
230 IF X<62 THEN X=X+2: GOTO560
240 X=0: GOTO560
250 IF A$<>"G" THEN 280
260 IF X>1 THEN X=X-2: GOTO560
270 X=63: GOTO560
280 IF A$<>"U" THEN 330
290 IF X<62 THEN X=X+2: GOTO310
300 X=0
310 IF Y>1 THEN Y=Y-2: GOTO560
320 Y=31: GOTO560
330 IF A$<>"N" THEN 380
340 IF X<62 THEN X=X+2: GOTO360
350 X=0
360 IF Y<30 THEN Y=Y+2: GOTO560
370 Y=0: GOTO560
380 IF A$<>"V" THEN 430
390 IF X>1 THEN X=X-2: GOTO410
400 X=63
410 IF Y<30 THEN 11+2: GOTO560
420 Y=0: GOTO560
430 IF A$<>"T" THEN 480
440 IF X>1 THEN X=X-2: GOTO460
450 X=63
460 IF Y>1 THEN Y=Y-2: GOTO560
470 Y=31: GOTO560
480 IF A$="E" THEN SET(X,Y,P): C=0: GOTO120
490 IF A$="S" THEN SET(X,Y,I): C=1: GOTO120
500 IF A$<>"I" THEN 530
510 IF I<8 THEN I=I+1: GOTO120
520 I=1: GOTO 120
530 IF A$<>"P" THEN 120
540 IF P<8 THEN P=P+1: GOTO110
550 P=0: GOTO110
560 IF C=1 THEN SET(X,Y,I)
570 GOTO120