Игра UFO-3

1  PRINT "UFO-3":VAC:LETC"0000IVS":INPUT"R",V:PRINT CHR 96;:Y=1
2  A(V)=INT(RAN#*5)+1:Z=0
4  Z=Z+1
5  A(Z)=B(Z):GOTO 199
6  CSR Z:PRINT M$;
7  IF Z<V THEN 4:A=B:X=X+1
8  S$=KEY:IF S$="Q";Y=Y+1:IF Y=4;Y=3
9  IF S$="Z";Y=Y-1:IF Y=0;Y=1
10 IF ASCI S$=4 THEN 100:IF Y=A-3 THEN 9998:IF A=Y THEN 9998
11 IF Y=1;LETC"0000IVS"
12 IF Y=2;LETC"00IVS"
13 IF Y=3;LETC"IVS"
14 CSR 0:PRINT CHR 96;
15 GOTO 2
100 FOR Z=1 TO V:IF Y=A(Z) THEN 105:W=2*Y-1
101 NEXT Z:FOR Z=10 TO 59:DRAW Z,W:DRAWC Z-3,W:NEXT Z
102 GOTO 2
105 FOR Q=11 TO 5*Z+4:DRAW Q,W:DRAWC Q-4,W:NEXT Q:N=N+1
106 A(Z)=0:GOTO 2
199 IF A(Z)=0;M$=" ":GOTO 6
200 IF A(Z)=1;LETC"00002E"
201 IF A(Z)=2;LETC"002E"
202 IF A(Z)=3;LETC"2E"
203 IF A(Z)=4;LETC"0000EE"
204 IF A(Z)=5;LETC"00EE"
205 IF A(Z)=6;LETC"EE"
207 M$=CHR 96:GOTO 6
9998 PRINT N;"КОРАБЛЕЙ СБИТО";X;"МИЛЬ" 

Написана под впчатлением игрушки UFO для УК-НЦ. Задача - сбить как можно больше вражеских самолетов при этом не врезавшись ни в них, ни в "кирпичи". Можно маневрировать вверх и вниз, а также стрелять (кажется кнопкой EXE)