Стрельба по тарелочкам

DECLARE SUB klav (COM$, alfa, dalfa, LOC$)
DECLARE SUB boom (x, y, Le, E, R$, R1$)
DECLARE SUB fly (x, y)
DECLARE SUB Lines (x)
 
DIM scorer(10), scorep$(10)
 
'const
pi = 3.141592
alfa = 0
dalfa = 10
 
'menu
DO
0
CLS
PRINT "Skeet vol1"
PRINT "Press s to see a high score, g to start or x to exit"
a$ = INKEY$
IF a$ = "x" THEN GOTO 4
IF a$ = "s" THEN GOTO 1
IF a$ = "g" THEN GOTO 2
SLEEP
LOOP
 
'game
2
SCREEN 11
WINDOW (0, 0)-(640, 350)
 
CALL Lines(x)
 
f$ = "BU10 Bl7 l3 d30 R20 U30 L3 Bl7"
g$ = "BU14 l7 d14 BR14 U14 L7"
 
f1$ = "C0BU10 C0Bl7 C0l3 C0d30 C0R20 C0U30 C0L3 C0Bl7"
g1$ = "C0BU14 C0l7 C0d14 C0R14 C0U14 C0L7"
 
R$ = "C1BU11 H1 E1 F1 G1 U1"
R1$ = "C0BU11 H1 E1 F1 G1 U1"
u1$ = f1$ + g1$
u$ = f$ + g$
 
LOCATE 1, 1: PRINT "Score:"; E
PSET (310, 20), 1
DRAW u$
PAINT (310, 19), 1
LOCATE 15, 30: PRINT "Kill the flying saucers!!!"
LOCATE 16, 30: PRINT "If you are ready press any button!!!"
SLEEP
LOCATE 15, 30: PRINT "                          "
LOCATE 16, 30: PRINT "                                    "
 
RANDOMIZE TIMER
LOCATE 1, 1: PRINT "Score:"; E
FOR w = 1 TO 100
 x = 609              
 y = RND * 270 + 45
 FOR u = 1 TO 580
  CALL Lines(x)
  PSET (310, 20), 0  
  DRAW u1$ + LOC$
  PSET (310, 20), 1
  DRAW u$ + LOC$
  PAINT (310, 19), 1
  CIRCLE (x, y), 7, 12, , , .5
  PAINT (x, y), 2
  COM$ = INKEY$  
  CALL klav(COM$, alfa, dalfa, LOC$)
  IF RIGHT$(COM$, 185) = " " THEN CALL boom(x, y, Le, E, R$, R1$)
  FOR k = 1 TO 25000 * RND(x): NEXT k
  PAINT (x, y), 0
  CALL fly(x, y)
  PSET (310, 20), 1
  PAINT (310, 20), 0
 NEXT u
NEXT w
 
4
END
1
CLS
PRINT "", "High score table"
PRINT ""
OPEN "g:\scorep.txt" FOR INPUT AS #1
FOR z = 1 TO 10
 INPUT #1, scorep$(z)
NEXT z
CLOSE #1
OPEN "g:\scorer.txt" FOR INPUT AS #2
FOR z = 1 TO 10
 INPUT #2, scorer(z)
NEXT z
CLOSE #2
 
FOR T = 1 TO 10
 PRINT "Player"; SPC(3); scorep$(T); SPC(3); "earned"; SPC(3); scorer(T)
NEXT T
PRINT ""
PRINT "Press any key to return to main menu"
SLEEP
GOTO 0
 
SUB boom (x, y, Le, E, R$, R1$)
tm = 29
DO WHILE tm <> 339 OR Le < 8
 PSET (310, tm)
 DRAW R$
 FOR i = 1 TO 100: NEXT i
 DRAW R1$
 tm = tm + 1
 Le = SQR((310 - x) ^ 2 + (tm - y) ^ 2)
 IF Le < 8 THEN E = E + 1: LOCATE 1, 1: PRINT "Score:"; E
LOOP
END SUB
 
SUB fly (x, y)
x = x - 1
DO
 y = y + 4 * RND(x) * COS(15 * y)
LOOP WHILE y > 310 OR y < 40
END SUB
 
SUB klav (COM$, alfa, dalfa, LOC$)
 IF RIGHT$(COM$, 1) = "K" THEN alfa = alfa + dalfa
 IF RIGHT$(COM$, 1) = "M" THEN alfa = alfa - dalfa
 IF alfa >= 360 OR alfa <= -360 THEN alfa = 0
 i$ = STR$(alfa)
 LOC$ = "ta" + i$: DRAW u1$
END SUB
 
SUB Lines (x)
LINE (20, 20)-(20, 330)  
LINE (20, 330)-(630, 330)
LINE (630, 330)-(630, 20)
LINE (630, 20)-(340, 20)
LINE (280, 20)-(20, 20)
END SUB