10    ' (c) 1987 by Andrew Nikitin
20 WIDTH40
30 FOR I=1 TO 10
40 KEYI,""
50 NEXT
60 CLS
70 DIM A(800)
80 A(0)=41
90 FOR I=0 TO 39 : VPOKEI,42:VPOKEI+880,42 : NEXT
100 FOR I=40 TO 880 STEP 40:VPOKEI,42:VPOKEI+39,42:NEXT
110 FOR X=1 TO 15
120   FOR Y=1 TO 3
130     FOR Z=1 TO 20
140       F=A(C)+G
150       E=VPEEK(F):H=ASC(INKEY$+"!")
160       E=-(H=32)*(ABS(-(E><35)*E-16)+16)-(H><32)*E
170       G=-(28=H)+(29=H)-40*(31=H)+40*(30=H)-G*(H=33ORH=32)
180       C=(C+1)MOD800:A(C)=F
190       VPOKEF,37
200       IF E<48 AND E>32 THEN X=15:Y=3:Z=20 ELSE D=D+ABS(SGN(E-32)*E-24)-24
210       IF D>0 THEN D=D-1:S=S+10 ELSE B=(B+1)MOD800:VPOKEA(B),32
220       KEY8,STR$(S):NEXT
230       D=D+1
240       E=RND(1)*960
250       F=VPEEK(E)
260       VPOKEE,ABS((1-SGN(F-32))*(INT(RND(1)*9+1)+48)-F/2)+F/2
270     NEXT
280     E=RND(1)*960
290     F=VPEEK(E)
300     VPOKEE,ABS((1-SGN(F-32))*35-F/2)+F/2
310   NEXTX
320 LOCATE 0,24
330 PRINT
340 PRINT"Score :"S
350 IF S>500 THEN FOR I=0 TO 999 NEXT RUN ELSE END