Не выходит запустить игру

10 CLS : SCREEN 1: KEY OFF: DIM C(50), F(110), S(25), R(100): RES = 1
20 FOR I = 1 TO 100: R(I) = 500: NEXT I
30 '   --------------------------
40 PSET (1, 1), 0: DRAW "C3;BR4;D6;E1;U5;BR4;D5;F1;NU6"
50 PSET (1, 1), 0: DRAW "C3;BR4;D6;E1;U5;BR4;D5;F1;NU6"
60 DRAW "C2;G1;L4;G1;R6;D1;R1;BL7;L1"
70 DRAW "G1;C1;R3;D1;L3;G1;H1;U1;BR1;C3;U5;NU1;NL1;NR1;BR11;R1;NU1;NR1;D5"
80 DRAW "R1;C1;D1;G1;H1;L3;U1;NR3;L1;C3;D2;L1;U2;L1;D2"
90 DRAW "BL2;BD1;D6;BD2;R1;BU2;U5;BR4;D5;BD2;R1;BU2;U6"
100 GET (1, 1)-(15, 23), C: CLS
110 '   --------ВОРОТА----------------
120 LINE (1, 3)-(5, 5), 1: LINE (5, 5)-(5, 1), 1: LINE (1, 3)-(5, 1), 1
130 LINE (6, 1)-(6, 15), 3: PAINT (3, 3), 1, 1
140 LINE (25, 1)-(25, 15), 3: LINE (26, 1)-(26, 5), 1: LINE (26, 1)-(30, 3), 1
150 LINE (26, 5)-(30, 3), 1: PAINT (28, 3), 1, 1
160 GET (1, 1)-(30, 15), F: CLS
170 PSET (1, 1), 0: DRAW "BR4;D7;R1;U7;BR4;D7;R1;U7"
180 GET (1, 1)-(8, 15), S: CLS
190 '   ----- НАЧАЛО ПРОГРАММЫ ------------
200 RANDOMIZE TIME
210 H = 0: X = 113: Y = 70: T = 1: O = 0: Q = 0: H1 = 5: K = 1: K1 = 1: G = 10: P = 0
220 FOR I = 5 TO 1 STEP -1: FOR U = 1 TO 200: NEXT U: LOCATE 5, 2: PRINT I: "СЕКУНД ДО CTAPTA" :SOUND 500,.2
230 NEXT I: CLS
240 LINE (70, 1)-(70, 200), 3: LINE (72, 1)-(72, 200), 3
250 LINE (205, 1)-(205, 200), 3: LINE (207, 1)-(207, 200), 3
260 PUT (X, Y), C: TIME$ = "0O:00:00"
270 A$ = INKEY$: IF A$ = "" THEN 270
280 IF A$ = "O" OR A$ = "o" THEN 430
290 IF A$ = "P" OR A$ = "p" THEN 470
300 P = P + 1: IF P = 15 THEN P = 0: G = 10 + (INT(RND * 4)) * 5
310 LOCATE 3, 28: PRINT "ВРЕМЯ"; INT(TIMER)
320 LOCATE 5, 28: PRINT "CKОPOCTЬ"; G
330 LOCATE 7, 28: PRINT "BОPOTA"; Q
340 IF K = 1 THEN H = H + 1: IF H = 10 THEN X1 = 175: K = 2: O = O + 1: H = 0: GO TO 510
350 IF K = 1 THEN H1 = H1 + 1: IF H1 = 20 THEN X2 = 175: K1 = 2: O = O + 1: H1 = 0: GO TO 560
360 ON K GO TO 370, 520
370 ON K1 GO TO 380, 570
380 IF G >= 20 THEN IF POINT(X - 3, Y - 6) > 0 THEN Q = Q + 1: SOUND 800, 1: SOUND 1100, 1.2
390 IF G > 5 AND G < 20 THEN IF POINT(X - 3, Y + 1) > 0 THEN Q = Q + 1: SOUND 800, 1: SOUND 1100, 1.2
400 IF Q = 20 THEN SOUND 600, 3: SOUND 1000, 4: SOUND 900, 6: GO TO 600
410 GO TO 270
420 ' --------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВЛЕВО ---
430 PUT (X, Y), C: X = X - 15
440 IF X < 83 THEN X = 83
450 PUT (X, Y), C: GO TO 340
460 ' -------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВПРАВО ---
470 PUT (X, Y), C: X = X - 15
480 IF X > 188 THEN X = 188
490 PUT (X, Y), C: GO TO 340
500  ' -------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВОРОТ ---
510 Y1 = 75 + 15 * INT(RND * 8): PUT (Y1, X1), F
520 PUT (Y1, X1), F: X1 = X1 - G: PUT (Y1, X1), F
530 IF X1 < 25 THEN K = 1: PUT (Y1, X1), F
540 GO TO 370
550 ' --------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВОРОТ ---
560 Y2 = 75 + 15 * INT(RND * 8): PUT (Y2, X2), F
570 PUT (Y2, X2), F: X2 = X2 - G: PUT (Y2, X2), F
580 IF X2 < 25 THEN K1 = 1: PUT (Y2, X2), F
590 GO TO 380
600  ' --------КОНЕЦ ПРОГРАММЫ -----------
610 V = INT(TIMER): CLS : LOCATE 5, 5: PRINT "ВЫ ПРОШЛИ ТРАССУ ЗА"; V; "СЕКУНД"
620 LOCATE 7, 5: PRINT "У ВАС"; O - Q; "ШТРАФНЫХ ОЧКОВ"
630 LOCATE 9, 5: PRINT "ПОЛНОЕ ВРЕМЯ"; V + (O - Q) * 5; "СЕКУНД"
640 T = 1: FOR I = 1 TO RES
650 IF V + (O - Q) * 5 > R(RES) THEN T = T + 1
660 NEXT I
670 LOCATE 11, 5: PRINT "ИЗ"; RES; "УЧACTHИКОВ ВЫ ЗАНЯЛИ"; T; "МЕСТО"
680 RES = RES + 1: R(RES) = V + (O - Q) * 5
690 IF INKEY$ <> "1" THEN IF INKEY$ = "*" THEN END ELSE 690 ELSE CLS : GO TO 200