329 FOR I = 1 TO 4000: NEXT I
400 LET O = 50
410 GOTO 2460
420 VIEW: CLS : COLOR 7
430 VIEW SCREEN (20, 80)-(620, 260), 1, 9
440 FOR I = 1 TO 5000: NEXT I
450 VIEW SCREEN (15, 85)-(615, 270), 2, 10
460 FOR I = 1 TO 5000: NEXT I
470 VIEW SCREEN (10, 90)-(610, 280), 0, 14
480 LOCATE 4, 34: COLOR 2: PRINT “SETUP SCREEN”
490 VIEW SCREEN (610, 290)-(331, 330), 0, 4
500 LOCATE 23, 13: PRINT ” ANSWER WINDOW “;
510 COLOR 4: PRINT CHR$(16): COLOR 14
520 LOCATE 11, 11: PRINT “TO START, YOU WILL HAVE 50 POINTS TO SPEND ON YOUR CAR”
530 LOCATE 12, 11: PRINT “EACH PART YOU BUY, WILL COST YOU SOME OF THOSE POINTS.”
540 LOCATE 13, 11: PRINT “IF YOU ARE JUST STARTING,  YOU WILL HAVE 50 POINTS, IF”
550 LOCATE 14, 11: PRINT “YOU HAVE ALREADY BEEN RACING,YOU MAY HAVE EXTRA POINTS”
560 LOCATE 17, 28: PRINT ” YOU HAVE “; O; ” POINTS “
570 VIEW (610, 290)-(331, 330), , 4: CLS
580 LOCATE 23, 47: PRINT “PRESS SPACE BAR TO CONTINUE”
590 T$ = INPUT$(1): LET G$ = “S”: GOTO 670
600 LOCATE 12, 11: PRINT ” YOU MAY PLAY THIS GAME AT TWO SPEEDS,  REGULAR SPEED,”
610 LOCATE 13, 11: PRINT “(R)- OR -(S)-SLOW MOTION SPEED, FOR LEARNING OPERATION”
620 LOCATE 14, 11: PRINT “OF YOUR CAR AT A SLOWER PACE.  USE -(CAPS LOCK)- ONLY!”
630 LOCATE 16, 11: PRINT “*YOU MAY BE ASKED THIS QUESTION TWICE, ANSWER THE SAME”
640 VIEW (610, 290)-(331, 330), , 4: CLS
650 LOCATE 23, 50: PRINT “*ENTER (R) OR (S)”;
660 INPUT G$
670 VIEW (10, 90)-(610, 280), , 14
680 CLS : LOCATE 9, 11: PRINT “YOU WILL SPEND YOUR POINTS ON,        COST”
690 LOCATE 11, 31: PRINT “(1) ENGINE       (10-55)”
700 LOCATE 12, 31: PRINT “(2) TRANSMISSION (5-30)”
710 LOCATE 13, 31: PRINT “(3) TIRES        (5-25)”
720 LOCATE 14, 31: PRINT “(4) CHASSIS      (5-30)”
730 LOCATE 15, 31: PRINT “(5) BOOSTERS     (0-40)”
740 LOCATE 16, 31: PRINT “(6) FUEL         (4-20)”
750 LOCATE 17, 31: PRINT “———–   (Print Screen) for a Reference,”
760 LOCATE 18, 31: PRINT “   “; O; “        Or ENTER A, B, or C… “
770 VIEW (610, 290)-(331, 330), , 4
780 CLS : LOCATE 22, 43: PRINT “(A) PARTS BUYING INSTRUCTIONS”
790 LOCATE 23, 43: PRINT “(B) BUY NEW PARTS (C) RACE NOW”; : INPUT B$
800 IF B$ = “C” THEN 4000
810 IF B$ = “c” THEN 4000
820 IF B$ = “A” THEN 1910
830 IF B$ = “B” THEN 900
840 IF B$ = “b” THEN 900
850 IF B$ = “a” THEN 1910
860 GOTO 780
870 LOCATE 20, 45: COLOR 4: PRINT “YOU DO NOT HAVE ENOUGH POINTS”
880 FOR I = 1 TO 20000: NEXT I
890 COLOR 14: GOTO 570
900 VIEW (10, 90)-(610, 280), , 14
910 CLS : LOCATE 9, 11: PRINT “HOW MUCH WILL YOU SPEND ON AN ENGINE?”
920 LOCATE 12, 31: PRINT “GRADE  D     C     B     A “
930 LOCATE 14, 31: PRINT “COST  10    20    35    50  – POINTS “
940 VIEW (610, 290)-(331, 330), , 4
950 CLS : LOCATE 22, 45: PRINT “ENTER YOUR GRADE CHOICE”
960 LOCATE 23, 45: PRINT “IN CAPS LOCK ONLY..”;
970 INPUT P$(1)
980 IF P$(1) = “A” THEN 1030
990 IF P$(1) = “B” THEN 1040
1000 IF P$(1) = “C” THEN 1050
1010 IF P$(1) = “D” THEN 1060
1020 GOTO 950
1030 LET O = O – 15: IF O < 0 THEN LET O = O + 15: LET P$(1) = ” “: GOTO 870
1040 LET O = O – 20: IF O < 0 THEN LET O = O + 20: LET P$(1) = ” “: GOTO 870
1050 LET O = O – 10: IF O < 0 THEN LET O = O + 10: LET P$(1) = ” “: GOTO 870
1060 LET O = O – 10: IF O < 0 THEN LET O = O + 10: LET P$(1) = ” “: GOTO 870
1070 CLS : LOCATE 22, 45: PRINT “ENTER YOUR GRADE CHOICE”
1080 LOCATE 23, 45: PRINT “IN CAPS LOCK ONLY…”
1090 VIEW (10, 90)-(610, 280), , 14
1100 CLS : LOCATE 9, 11: PRINT “HOW MUCH OF YOUR REMAINING “; O; ” POINTS”
1110 LOCATE 10, 11: PRINT “WILL YOU SPEND ON A TRANSMISSION ?”
1120 LOCATE 12, 31: PRINT “GRADE  D     C     B     A “
1130 LOCATE 14, 31: PRINT “COST-  5    10    20    30  – POINTS “
1140 LOCATE 23, 66: INPUT P$(2)
1150 IF P$(2) = “A” THEN 1200
1160 IF P$(2) = “B” THEN 1210
1170 IF P$(2) = “C” THEN 1220
1180 IF P$(2) = “D” THEN 1230
1190 GOTO 1140
1200 LET O = O – 10: IF O < 0 THEN LET O = O + 10: LET P$(2) = ” “: GOTO 870
1210 LET O = O – 10: IF O < 0 THEN LET O = O + 10: LET P$(2) = ” “: GOTO 870
1220 LET O = O – 5: IF O < 0 THEN LET O = O + 5: LET P$(2) = ” “: GOTO 870
1230 LET O = O – 5: IF O < 0 THEN LET O = O + 5: LET P$(2) = ” “: GOTO 870
1240 CLS : LOCATE 9, 11: PRINT “HOW MUCH OF YOUR REMAINING “; O; ” POINTS”
1250 LOCATE 10, 11: PRINT “WILL YOU SPEND ON TIRES ?”
1260 LOCATE 12, 31: PRINT “GRADE  D     C     B     A “
1270 LOCATE 14, 31: PRINT “COST-  5    10    20    25  – POINTS “
1280 VIEW (610, 290)-(331, 330), , 4
1290 CLS : LOCATE 23, 45: PRINT “ENTER YOUR GRADE CHOICE”;
1300 INPUT P$(3)
1310 IF P$(3) = “A” THEN 1360
1320 IF P$(3) = “B” THEN 1370
1330 IF P$(3) = “C” THEN 1380
1340 IF P$(3) = “D” THEN 1390
1350 GOTO 1290
1360 LET O = O – 5: IF O < 0 THEN LET O = O + 5: LET P$(3) = ” “: GOTO 870
1370 LET O = O – 10: IF O < 0 THEN LET O = O + 10: LET P$(3) = ” “: GOTO 870
1380 LET O = O – 5: IF O < 0 THEN LET O = O + 5: LET P$(3) = ” “: GOTO 870
1390 LET O = O – 5: IF O < 0 THEN LET O = O + 5: LET P$(3) = ” “: GOTO 870
1400 CLS : VIEW (10, 90)-(610, 280), , 14
1410 LOCATE 9, 11: PRINT “HOW MUCH OF YOUR REMAINING “; O; ” POINTS”
1420 LOCATE 10, 11: PRINT “WILL YOU SPEND ON A CHASSIS ?”
1430 LOCATE 12, 31: PRINT “GRADE  D     C     B     A “
1440 LOCATE 14, 31: PRINT “COST-  5    10    20    30  – POINTS “
1450 VIEW (610, 290)-(331, 330), , 4
1460 CLS : LOCATE 23, 45: PRINT “ENTER YOUR GRADE CHOICE”;
1470 INPUT P$(4)
1480 IF P$(4) = “A” THEN 1530
1490 IF P$(4) = “B” THEN 1540
1500 IF P$(4) = “C” THEN 1550
1510 IF P$(4) = “D” THEN 1560
1520 GOTO 1460
1530 LET O = O – 10: IF O < 0 THEN LET O = O + 10: LET P$(4) = ” “: GOTO 870
1540 LET O = O – 10: IF O < 0 THEN LET O = O + 10: LET P$(4) = ” “: GOTO 870
1550 LET O = O – 5: IF O < 0 THEN LET O = O + 5: LET P$(4) = ” “: GOTO 870
1560 LET O = O – 5: IF O < 0 THEN LET O = O + 5: LET P$(4) = ” “: GOTO 870
1570 CLS : VIEW (10, 90)-(610, 280), , 14
1580 LOCATE 9, 11: PRINT “HOW MUCH OF YOUR REMAINING “; O; ” POINTS”
1590 LOCATE 10, 11: PRINT “WILL YOU SPEND ON BOOSTERS ?”
1600 LOCATE 12, 31: PRINT “GRADE  D     C     B     A “
1610 LOCATE 14, 31: PRINT “COST-  -   NONE   25    40  – POINTS “
1620 VIEW (610, 290)-(331, 330), , 4
1630 CLS : LOCATE 23, 45: PRINT “ENTER YOUR GRADE CHOICE”;
1640 INPUT P$(5)
1650 IF P$(5) = “A” THEN 1690
1660 IF P$(5) = “B” THEN 1700
1670 IF P$(5) = “C” THEN 1710
1680 GOTO 1630
1690 LET O = O – 15: IF O < 0 THEN LET O = O + 15: LET P$(5) = ” “: GOTO 870
1700 LET O = O – 25: IF O < 0 THEN LET O = O + 25: LET P$(5) = ” “: GOTO 870
1710 ‘ O REMAINS SAME-NO BOOSTER
1720 CLS : VIEW (10, 90)-(610, 280), , 14
1730 LOCATE 9, 11: PRINT “HOW MUCH OF YOUR REMAINING “; O; ” POINTS”
1740 LOCATE 10, 11: PRINT “WILL YOU SPEND ON FUEL ?    “
1750 LOCATE 12, 30: PRINT “AMMOUNT 1/4   1/2   3/4  FULL “
1760 LOCATE 14, 30: PRINT “COST-    4    10    14    20   – POINTS “
1770 LOCATE 16, 30: PRINT “CHOICE   D     C     B     A “
1780 VIEW (610, 290)-(331, 330), , 4
1790 CLS : LOCATE 23, 45: PRINT “ENTER YOUR CHOICE…”;
1800 INPUT P$(6)
1810 IF P$(6) = “A” THEN LET F = 99: GOTO 1860
1820 IF P$(6) = “B” THEN LET F = 70: GOTO 1870
1830 IF P$(6) = “C” THEN LET F = 50: GOTO 1880
1840 IF P$(6) = “D” THEN LET F = 22: GOTO 1890
1850 GOTO 1790
1860 LET O = O – 6: IF O < 0 THEN LET O = O + 6: LET P$(6) = ” “: GOTO 870
1870 LET O = O – 4: IF O < 0 THEN LET O = O + 4: LET P$(6) = ” “: GOTO 870
1880 LET O = O – 6: IF O < 0 THEN LET O = O + 6: LET P$(6) = ” “: GOTO 870
1890 LET O = O – 4: IF O < 0 THEN LET O = O + 4: LET P$(6) = ” “: GOTO 870
1900 GOTO 420
1910 ‘ BUYING  PARTS  INST.
1920 VIEW (10, 90)-(610, 280), , 1
1930 CLS : LOCATE 9, 10: PRINT “                      BUYING PARTS “
1940 LOCATE 11, 16: PRINT ” BEFORE YOUR FIRST RACE, AND AFTER EACH RACE,”
1950 LOCATE 12, 16: PRINT “YOU WILL HAVE A CHOICE TO RACE AGAIN WITH THE”
1960 LOCATE 13, 16: PRINT “SAME CAR -( ENGINE,PARTS,AND REMAINING FUEL )”
1970 LOCATE 14, 16: PRINT “OR BUY ALL NEW WITH YOUR POINTS. YOU WILL NOT”
1980 LOCATE 15, 16: PRINT “BE ABLE TO BUY JUST ONE (NEW) PART AT A TIME.”
1990 LOCATE 16, 16: PRINT “EACH TIME YOU GET LOW ON FUEL,  YOU WILL NEED”
2000 LOCATE 17, 16: PRINT “TO BUY ALL (NEW) PARTS TO GET ANY (FUEL). THE”
2010 LOCATE 18, 16: PRINT “REASON FOR THIS,..IS TO KEEP YOU FROM GETTING”
2020 LOCATE 19, 16: PRINT “RICH, AND HAVING (ALL) THE BEST PARTS.”
2030 VIEW (610, 290)-(331, 330), , 4: CLS
2040 LOCATE 23, 48: PRINT “  press (C) to continue “;
2050 X$ = INPUT$(1)
2060 IF X$ = “C” THEN 2080
2070 IF X$ = “c” THEN 2080 ELSE 2030
2080 CLS : VIEW (10, 90)-(610, 280), , 2: CLS
2090 LOCATE 10, 16: PRINT “TO START, YOU WILL HAVE TO BUY ONLY THE LEAST”
2100 LOCATE 11, 16: PRINT “EXPENSIVE PARTS,…OR YOU WILL NOT BE ABLE TO”
2110 LOCATE 12, 16: PRINT “BUY ANY FUEL.  THE FUEL IS THE LAST THING YOU”
2120 LOCATE 13, 16: PRINT “WILL BE ABLE TO BUY.  TRY TO BUY AS LITTLE AS”
2130 LOCATE 14, 16: PRINT “POSSIBLE TO WIN.   * THE MORE POINTS YOU HAVE”
2140 LOCATE 15, 16: PRINT “LEFT OVER, THE BETTER! IF YOU LOSE ANY RACES,”
2150 LOCATE 16, 16: PRINT “YOU WILL NOT RECIEVE ANY POINTS,  AND MAY NOT”
2160 LOCATE 17, 16: PRINT “BE ABLE TO CONTINUE IF YOU DO NOT HAVE ENOUGH”
2170 LOCATE 18, 16: PRINT “POINTS TO BUY A CAR, AND FUEL.”
2180 VIEW (610, 290)-(331, 330), , 4: CLS
2190 LOCATE 23, 48: PRINT “  press (C) to continue “;
2200 X$ = INPUT$(1)
2210 IF X$ = “C” THEN 2230
2220 IF X$ = “c” THEN 2230 ELSE 2180
2230 VIEW (10, 90)-(610, 280), , 2: CLS
2240 LOCATE 9, 16: PRINT “KEEP IN MIND,(1) SAVE FROM 10 TO 20 POINTS TO”
2250 LOCATE 10, 16: PRINT “BUY FUEL. (2)YOU DO NOT NEED BOOSTERS TO WIN.”
2260 LOCATE 11, 16: PRINT “(3) SAVE AS MANY EXTRA POINTS AS YOU CAN. YOU”
2270 LOCATE 12, 16: PRINT “SHOULD NOT SPEND ALL OF YOUR POINTS.  (4) FOR”
2280 LOCATE 13, 16: PRINT “EVERY RACE THAT YOU WIN, YOU WILL GET 50 pts.”
2290 LOCATE 14, 16: PRINT “SO, IF YOU DO NOT SPEND YOUR POINTS AFTER ONE”
2300 LOCATE 15, 16: PRINT “RACE,  AND WIN ANOTHER WITH ONE CAR, YOU WILL”
2310 LOCATE 16, 16: PRINT “HAVE 100 POINTS TO SPEND ON THE NEXT RACE. TO”
2320 LOCATE 17, 16: PRINT “BUY A PART, YOU WILL BE SHOWN A CHART OF FOUR”
2330 LOCATE 18, 16: PRINT “GRADES-(Levels of quality) OF MOST PARTS. YOU”
2340 LOCATE 19, 16: PRINT “WILL THEN HAVE TO CHOOSE THE GRADE YOU WANT.”
2350 X$ = INPUT$(1)
2360 IF X$ = “C” THEN 2380
2370 IF X$ = “c” THEN 2380 ELSE 2350
2380 VIEW (10, 90)-(610, 280), , 2: CLS
2390 LOCATE 13, 16: PRINT “MAKE SURE YOU DO NOT SPEND MORE POINTS THAN “
2400 LOCATE 14, 16: PRINT “YOU HAVE,OR YOU WILL LOSE SOME AS A PENALTY”
2410 X$ = INPUT$(1)
2420 IF X$ = “C” THEN 2440
2430 IF X$ = “c” THEN 2440 ELSE 2380
2440 GOTO 420
2450 END
2460 CLS : LET A = 2: LET B = 2
2470 LET S = 148.5
2480 LET R = 9400
2490 LET G = 3: LET L = 0
2500 LET W = 0
2510   SCREEN 9: CLS : KEY OFF
2520 LOCATE 25, 25: COLOR 14
2530 LOCATE 25, 8
2540 PRINT “    SIX SPEED,… 9800 RPM,… 200+ MPH,… TOP FUEL DRAGSTER.”
2550 LOCATE 2, 2: COLOR 4
2560 PRINT STRING$(9, 10); “                           TOP FUEL DRAGSTER (C)1992″
2570 PRINT STRING$(3, 10): COLOR 12
2580 PRINT TAB(41); “F”
2590 PRINT TAB(41); “U”: PRINT TAB(41); “E”: PRINT TAB(41); “L”
2600 COLOR 14
2610 PRINT TAB(41); CHR$(26): PRINT TAB(41); CHR$(26)
2620 COLOR 7
2630 WINDOW (-6, -5)-(6, 5)
2640  VIEW SCREEN (11, 180)-(310, 311), 0, 1′left screen
2650  VIEW SCREEN (331, 180)-(630, 311), 0, 1′right screen
2660 VIEW (11, 180)-(310, 311)
2670 GOSUB 2710
2680 VIEW (331, 180)-(630, 311)
2690 GOSUB 2710
2700 COLOR 7: GOTO 2730
2710  COLOR 6: CIRCLE (0, 0), 3′CIRCLE IN WINDOW
2720 RETURN
2730  VIEW SCREEN (11, 39)-(633, 115), , 2′car place view screen
2740 LOCATE 2, 2: PRINT ” “
2750 LOCATE 11, 11: PRINT : PRINT ” YOUR CAR”
2760 COLOR 8 ‘      dragster positions —————
2770 LOCATE 5, 14
2780 PRINT STRING$(2, 236);
2790 COLOR 4: PRINT CHR$(247);
2800 COLOR 14: PRINT CHR$(79); CHR$(240); STRING$(2, 205); CHR$(111)
2810 LOCATE 7, 61: COLOR 8
2820 PRINT STRING$(2, 236);
2830 COLOR 4: PRINT CHR$(247);
2840 COLOR 10: PRINT CHR$(79); CHR$(240); STRING$(2, 205); CHR$(111)
2850 COLOR 7  ‘     GAUGE READINGS ———————
2860 LOCATE 18, 58: PRINT USING “#####”; R
2870 LOCATE 18, 18: PRINT USING “###.#”; S
2880 LOCATE 21, 18: PRINT ” SPEED”
2890 LOCATE 21, 58: PRINT “  RPM “
2900 ‘ FUEL GAUGE
2910 LOCATE 22, 43: COLOR 4: PRINT CHR$(221)
2920 LOCATE 21, 43: PRINT CHR$(221)
2930 LOCATE 20, 43: PRINT CHR$(221)
2940 LOCATE 19, 43: PRINT CHR$(221)
2950 LOCATE 18, 43: PRINT CHR$(221)
2960 LOCATE 22, 70: PRINT “GEAR:”;
2970 COLOR 5: PRINT G
2980 LOCATE 6, 23: COLOR 15: PRINT STRING$(9, 32); “   PRESS ANY KEY”
2990 ‘PLAY “MBABCDABCDABCD”
3000 T$ = INPUT$(1)
3010 CLS : LOCATE 6, 5: COLOR 9: PRINT STRING$(24, 32); “   By KEVIN EVERINGHAM “
3015 LOCATE 4, 5: COLOR 3: PRINT STRING$(23, 32); “     SHAREWARE VER 4.0″
3020 LOCATE 5, 5: COLOR 2: PRINT STRING$(23, 32); “     TOP FUEL DRAGSTER”: FOR I = 1 TO 12000: NEXT I
3030       LOCATE 6, 5: COLOR 14
3040 PRINT STRING$(16, 32); “  Do you want Instructions?  y or n “
3050 LOCATE 6, 59: INPUT B$: IF B$ = “y” THEN 3080
3060 IF B$ = “Y” THEN 3080
3070 GOTO 420    ‘  START GAME
3080 VIEW: CLS : ‘   INSTRUCTIONS HERE
3090 VIEW SCREEN (20, 100)-(635, 310), 4, 12
3100 VIEW SCREEN (15, 105)-(630, 315), 0, 12
3110 LOCATE 5, 33: COLOR 2: PRINT ” INSTRUCTIONS “
3120 LOCATE 23, 12: PRINT “TOP FUEL DRAGSTER PROGRAMMED BY KEVIN EVERINGHAM  MAY 1992″
3130 LOCATE 6, 36: PRINT ” WINDOW “
3140 LOCATE 10, 8: COLOR 14: PRINT “  TOP FUEL DRAGSTER IS A DRAG RACING GAME.   YOU MUST CONTROL YOUR “
3150 LOCATE 11, 8: PRINT “CAR BY PRESSING THE (F1) KEY (GAS PEDAL-CLUTCH)   AND THE (F2) KEY “
3160 LOCATE 12, 8: PRINT “(SHIFTER).  TO START, YOU WILL BE SHOWN A SCREEN OF YOUR CAR, THEN “
3170 LOCATE 13, 8: PRINT “YOU WILL BE ASKED TO PRESS THE ( SPACE BAR ) WHEN YOU ARE READY TO “
3180 LOCATE 14, 8: PRINT “BEGIN. THEN THE (PINK) STARTER LIGHT WILL BEGIN TO DISPLAY COLORS,”
3190 LOCATE 15, 8: PRINT “AT THE TOP MIDDLE OF THE SCREEN.  RED,YELLOW,AND THEN GREEN, WHICH “
3200 LOCATE 16, 8: PRINT “MEANS GO!  YOU WILL NOT BE ABLE TO BEGIN BEFORE THE GREEN LIGHT IS “
3210 LOCATE 17, 8: PRINT “DISPLAYED.  DO NOT HOLD DOWN YOUR GAS PEDAL BEFORE THE LIGHT TURNS “
3220 LOCATE 18, 8: PRINT “GREEN.   THIS WILL CAUSE AN ERROR BEEP,  AND YOU WILL HAVE TO LIFT “
3230 LOCATE 19, 8: PRINT “UP ON THE GAS PEDAL BEFORE YOU MAY START.”
3240 LOCATE 22, 16: COLOR 9: PRINT “              press (C) to continue “
3250 SOUND RND * 1000 + 37, 6
3260 X$ = INPUT$(1)
3270 IF X$ = “c” THEN 3290
3280 IF X$ = “C” THEN 3290 ELSE 3240
3290 VIEW (15, 105)-(630, 315), 0, 12
3300 COLOR 14: CLS
3310 FOR I = 1 TO 5000: NEXT I
3320 LOCATE 10, 8: PRINT “  THE OBJECT IS TO BEAT YOUR OPONENT,…WHO IS DISPLAYED IN GREEN,”
3330 LOCATE 11, 8: PRINT “ON THE (POSITION SCREEN), ABOVE THE SCREEN OF YOUR CAR.   YOUR CAR “
3340 LOCATE 12, 8: PRINT “IS DISPLAYED IN YELLOW, ABOVE YOUR OPONENTS CAR.  “
3350 LOCATE 13, 8: PRINT “  AS SOON AS THE STARTER LIGHT TURNS GREEN, PRESS DOWN ON YOUR GAS “
3360 LOCATE 14, 8: PRINT “PEDAL-(F1)  AND HOLD IT DOWN.   THE ONLY TIME YOU SHOULD LET UP ON “
3370 LOCATE 15, 8: PRINT “THE GAS PEDAL, IS TO SHIFT.   FOR BEST RESULTS,  TRY TO SHIFT ONLY “
3380 LOCATE 16, 8: PRINT “WHEN YOUR RPM’S GET CLOSE TO REDLINE(9800).  IF YOU SHIFT TOO SOON “
3390 LOCATE 17, 8: PRINT “YOU WILL NOT REACH MAXIMUM SPEED.   IF YOU WAIT TOO LONG TO SHIFT,”
3400 LOCATE 18, 8: PRINT “YOU MAY BLOW YOUR ENGINE.   TO SHIFT,..QUICKLY LIFT UP ON THE (F1) “
3410 LOCATE 19, 8: PRINT “KEY-(GAS PEDAL/CLUTCH) AND QUICKLY [TAP]-(F2)-SHIFTER KEY, THEN AS “
3420 LOCATE 20, 8: PRINT “QUICKLY AS POSSIBLE, PRESS BACK DOWN ON THE GAS PEDAL (F1) KEY.”
3430 LOCATE 22, 16: COLOR 9: PRINT “              press (C) to continue “
3440 SOUND RND * 1000 + 37, 6
3450 X$ = INPUT$(1)
3460 IF X$ = “c” THEN 3480
3470 IF X$ = “C” THEN 3480 ELSE 3430
3480 VIEW (15, 105)-(630, 315), 0, 12
3490 COLOR 14: CLS
3500 FOR I = 1 TO 5000: NEXT I
3510 LOCATE 10, 8: PRINT “  RUNNING YOUR CAR AT HIGH (RPM’S), WILL USE MORE FUEL THAN LOWER “
3520 LOCATE 11, 8: PRINT “RPM’S.  SO,IF YOU ARE RUNNING OUT OF FUEL, TRY BACKING OFF ON THE “
3530 LOCATE 12, 8: PRINT “HIGHER RPM’S, BY SHIFTING SOONER.  “
3540 LOCATE 14, 8: PRINT ” THE CURRENT GEAR YOUR CAR IS IN, IS DISPLAYED IN THE LOWER RIGHT “
3550 LOCATE 15, 8: PRINT “CORNER OF YOUR DASHBOARD.   IF YOU ARE PUSHING YOUR (RPM’S)  TO A “
3560 LOCATE 16, 8: PRINT “DANGEROUS LEVEL,  A (SHIFT!) LIGHT WILL BEGIN BLINKING, ABOVE THE “
3570 LOCATE 17, 8: PRINT “GEAR DISPLAY, AND WARNING BEEPS WILL ALERT YOU. “
3580 LOCATE 19, 8: PRINT “  YOUR SPEED IS DISPLAYED ON THE LEFT SIDE OF YOUR DASHBOARD, THE “
3590 LOCATE 20, 8: PRINT “RPM’S ARE DISPLAYED ON THE RIGHT. “
3600 LOCATE 22, 16: COLOR 9: PRINT “              press (C) to continue “
3610 SOUND RND * 1000 + 37, 6
3620 X$ = INPUT$(1)
3630 IF X$ = “c” THEN 3650
3640 IF X$ = “C” THEN 3650 ELSE 3600
3650 VIEW (15, 105)-(630, 315), 0, 12
3660 COLOR 14: CLS
3670 FOR I = 1 TO 5000: NEXT I
3680 LOCATE 10, 8: PRINT “  TO REPRESENT A RUMBLING DRAGSTER,  YOUR DASHBOARD WILL BLINK AT “
3690 LOCATE 11, 8: PRINT “ALL TIMES.  THE (POSITION SCREEN)  AT THE TOP OF THE SCREEN, WILL “
3700 LOCATE 12, 8: PRINT “NOT BLINK.  “
3710 LOCATE 14, 8: PRINT “  IF YOU NEED TO PAUSE THE GAME, LET UP ON ALL KEYS HOWEVER, THIS “
3720 LOCATE 15, 8: PRINT “WILL ALLOW YOUR OPONENT TO CONTINUE RACING WHILE YOU COAST.  THIS “
3730 LOCATE 16, 8: PRINT “GAME ATTEMPTS TO REPRESENT A HECTIC, FAST PACED RACE. ANY PAUSING “
3740 LOCATE 17, 8: PRINT “DURING THE RACE, GIVES THE DRIVER TOO MUCH TIME TO THINK.”
3750 LOCATE 19, 8: PRINT “        A COUNTER KEEPS TRACK OF YOUR WINS, ON THE RIGHT “
3760 LOCATE 20, 8: PRINT “            SIDE OF THE SCREEN, ABOVE YOUR DASHBOARD. “
3770 LOCATE 22, 16: COLOR 9: PRINT “              press (C) to continue “
3780 SOUND RND * 1000 + 37, 6
3790 X$ = INPUT$(1)
3800 IF X$ = “c” THEN 3820
3810 IF X$ = “C” THEN 3820 ELSE 3770
3820 VIEW (15, 105)-(630, 315), 0, 12
3830 COLOR 14: CLS
3840 FOR I = 1 TO 5000: NEXT I
3850 LOCATE 14, 8: PRINT “     WHEN YOU GO TO THE GAME SCREEN, STUDY IT BEFORE YOU START.”
3860 LOCATE 17, 8: PRINT “              At times, you may not need your sixth gear.”
3870 LOCATE 16, 8: PRINT “              ALSO, Remember you may shift 6 times only!”
3875 LOCATE 18, 8: PRINT “    Shifting too quick, may risk blowing the engine in 6th gear.”
3880 LOCATE 20, 16: COLOR 15: PRINT “           press (C) to enter setup screen “
3890 X$ = INPUT$(1)
3900 IF X$ = “c” THEN 3920
3910 IF X$ = “C” THEN 3920 ELSE 3880
3920 VIEW (15, 105)-(630, 315), 0, 12
3930 COLOR 7: CLS
3940 ‘FOR I = 1 TO 10000: NEXT I
3950 ‘ FOR I = 1 TO 6
3960 ‘  SOUND RND * 1000 + 37, 6
3970 ‘ NEXT I
3980 GOTO 420
3990 END ‘ ——————————
4000 VIEW: CLS : LET S = 0: LET R = 0: LET G = 1: LET A = 4: LET B = 4
4010 IF G$ = “S” THEN 4030
4020 LET A = A + 2: LET B = B + 3
4030 LOCATE 25, 25: COLOR 9
4040 LOCATE 25, 13
4050 PRINT ” (F1) GAS PEDAL and CLUTCH   (F2) SHIFT “;
4060 COLOR 4: PRINT “….”;
4070 COLOR 7: PRINT ” (F8) TO QUIT”
4080 LOCATE 2, 2: COLOR 4
4090 PRINT STRING$(9, 10); “                                TOP FUEL DRAGSTER “
4100 PRINT STRING$(3, 10): COLOR 12
4110 PRINT TAB(41); “F”
4120 PRINT TAB(41); “U”: PRINT TAB(41); “E”: PRINT TAB(41); “L”
4130 COLOR 14
4140 PRINT TAB(41); CHR$(26): PRINT TAB(41); CHR$(26)
4150 COLOR 7
4160 WINDOW (-6, -5)-(6, 5)
4170  VIEW SCREEN (11, 180)-(310, 311), 0, 1′left screen
4180  VIEW SCREEN (331, 180)-(630, 311), 0, 1′right screen
4190 VIEW (11, 180)-(310, 311)
4200 GOSUB 4240
4210 VIEW (331, 180)-(630, 311)
4220 GOSUB 4240
4230 COLOR 7: GOTO 4260
4240  COLOR 6: CIRCLE (0, 0), 3′CIRCLE IN WINDOW
4250 RETURN
4260  VIEW SCREEN (11, 39)-(633, 115), , 2′car place view screen
4270 LOCATE 2, 2: PRINT “POSITION”; CHR$(26)
4280 PRINT STRING$(2, 10); CHR$(42)
4290 LOCATE 11, 11: PRINT : PRINT ” YOUR CAR”
4300 COLOR 8 ‘      dragster positions —————
4310 LOCATE 5, 4
4320 PRINT STRING$(2, 236);
4330 COLOR 4: PRINT CHR$(247);
4340 COLOR 14: PRINT CHR$(79); CHR$(240); STRING$(2, 205); CHR$(111)
4350 LOCATE 7, 4: COLOR 8
4360 PRINT STRING$(2, 236);
4370 COLOR 4: PRINT CHR$(247);
4380 COLOR 10: PRINT CHR$(79); CHR$(240); STRING$(2, 205); CHR$(111)
4390 COLOR 7  ‘     GAUGE READINGS ———————
4400 LOCATE 18, 58: PRINT USING “#####”; R
4410 LOCATE 18, 18: PRINT USING “###.#”; S
4420 LOCATE 21, 18: PRINT ” SPEED”
4430 LOCATE 21, 58: PRINT “  RPM “
4440 LOCATE 22, 70: PRINT “GEAR:”;
4450 COLOR 5: PRINT G
4460 LOCATE 4, 41: PRINT CHR$(205)
4470 COLOR 7: LOCATE 5, 41: PRINT CHR$(15)
4480 LOCATE 6, 41: PRINT CHR$(15)
4490 LOCATE 7, 41: PRINT CHR$(15)
4500 COLOR 5: LOCATE 4, 42: PRINT CHR$(187)
4510 LOCATE 5, 42: PRINT CHR$(186)
4520 LOCATE 6, 42: PRINT CHR$(186)
4530 LOCATE 7, 42: PRINT CHR$(186)
4540 LOCATE 8, 42: PRINT CHR$(188)
4550 LOCATE 8, 41: PRINT CHR$(205)
4560 LOCATE 8, 40: PRINT CHR$(200)
4570 LOCATE 7, 40: PRINT CHR$(186)
4580 LOCATE 6, 40: PRINT CHR$(186)
4590 LOCATE 5, 40: PRINT CHR$(186)
4600 LOCATE 4, 40: PRINT CHR$(201)
4610 COLOR 14: LOCATE 6, 44: PRINT ” press space bar when ready “
4620 LOCATE 6, 22: PRINT ” starting light”; CHR$(26)
4630 LOCATE 12, 72: PRINT “WINS:”; USING “##”; W
4640 T$ = INPUT$(1): COLOR 4
4650 FOR I = 1 TO 8000: NEXT I
4660 LOCATE 5, 41: PRINT CHR$(15)
4670 FOR I = 1 TO 8000: NEXT I
4680 COLOR 14: LOCATE 6, 41: PRINT CHR$(15)
4690 FOR I = 1 TO 7000: NEXT I
4700 COLOR 2: LOCATE 7, 41: PRINT CHR$(15)
4710 FOR I = 1 TO 1000: NEXT I
4720 KEY(1) ON: KEY(2) ON: KEY(8) ON
4730 LET E$ = “1″
4740 COLOR 7: ON KEY(1) GOSUB 4980
4750 ON KEY(2) GOSUB 5830
4760 IF E$ = “0″ THEN 4800
4770 ON KEY(8) GOSUB 4790
4771 LET CC = CC + 1
4772 IF CC = 500 THEN LET B = B + 2
4773 IF CC > 505 THEN LET CC = 1
4780 GOTO 4740
4790 KEY(1) STOP: VIEW (11, 39)-(633, 115), , 2
4800 KEY(1) OFF: KEY(2) OFF: KEY OFF
4810 LOCATE 6, 10: COLOR 15: PRINT “END OF RACE”
4840 FOR I = 1 TO 30000: NEXT I
4850 LOCATE 7, 7: PRINT “RACE AGAIN? y or n “
4860 FOR I = 1 TO 10000: NEXT I
4870 LOCATE 8, 14: INPUT B$
4880 IF B$ = “Y” THEN 420
4890 IF B$ = “y” THEN 420
4900 IF B$ = “N” THEN 4930
4910 IF B$ = “n” THEN 4930
4920 CLS : GOTO 4790
4930 CLS : LOCATE 7, 7: PRINT “START OVER? y or n “;
4940 INPUT B$
4950 IF B$ = “y” THEN VIEW: CLS : GOTO 400
4960 IF B$ = “Y” THEN VIEW: CLS : GOTO 400
4970 END’
4980 IF R > 4000 THEN 5140
4990 RANDOMIZE VAL(RIGHT$(TIME$, 2))
5000 LET R = INT(1000 * (7 * RND + 1))
5010 IF P$(3) = “A” THEN LET A = A + 2
5020 IF P$(3) = “B” THEN LET A = A + 1
5030 IF P$(3) = “D” THEN LET B = B + 1
5040 IF P$(5) = “A” THEN LET A = A + .5
5050 IF P$(5) = “C” THEN LET B = B + .5
5060 IF G$ = “S” THEN 5090
5070 LET A = A + .25
5080 LET B = B + .25
5090 IF R < 4000 THEN LET R = R + 3000
5100 IF R < 5000 THEN LET R = R + 2000
5110 IF R < 6000 THEN LET R = R + 1000
5120 IF P$(4) = “D” THEN LET B = B + .5
5130 LET R = R + 170
5140 LET R = R + 103
5150 IF G$ = “S” THEN 5180
5160 LET R = R + 113
5170 LET S = S + 3.25
5180 IF P$(5) = “A” THEN LET R = R + 55
5190 IF P$(5) = “B” THEN LET R = R + 33
5200 IF P$(1) = “A” THEN LET F = F – .25
5210 IF R > 9600 THEN LOCATE 21, 71: COLOR 4: PRINT “SHIFT!”: BEEP
5220 ‘IF G>3 THEN 1580
5230 IF R < 8000 THEN LET R = R + 40
5240 IF S > 60 THEN 5260
5250 LET S = S + 10.5
5260 LET S = S + 7.5
5270 ‘ IF S>175 THEN LET S=S-5
5280 IF G = 1 THEN 5330
5290 IF G = 2 THEN 5350
5300 IF G = 3 THEN 5370
5310 IF G = 4 THEN 5390
5320 IF G = 5 THEN 5400
5330 IF S > 40 THEN LET S = S – 7
5340 GOTO 5410
5350 IF S > 100 THEN LET S = S – 7
5360 GOTO 5410
5370 IF S > 130 THEN LET S = S – 7
5380 GOTO 5410
5390 IF S > 160 THEN LET S = S – 7: GOTO 5410
5400 IF S > 200 THEN LET S = S – 7
5410 IF R > 9600 THEN LET F = F – 1
5420 IF R > 9800 THEN LET F = F – 1
5430 IF R > 10000 THEN LET F = F – 2
5440 VIEW (331, 180)-(630, 311), 0, 1
5450 LET Z = Z + 1
5460 IF Z > 5 THEN LET Z = 0: LET F = F – 1: GOTO 6130
5470 CLS : COLOR 6: CIRCLE (0, 0), 3
5480 LOCATE 18, 58: COLOR 7: PRINT USING “#####”; R
5490 LOCATE 21, 58: PRINT “  RPM”
5500 IF R > 10200 THEN 5620
5510 IF F > 90 THEN 5650
5520 IF F > 80 THEN 5660
5530 IF F > 70 THEN 5670
5540 IF F > 60 THEN 5680
5550 IF F > 50 THEN 5690
5560 IF F > 40 THEN 5700
5570 IF F > 30 THEN 5710
5580 IF F > 20 THEN 5720
5590 IF F > 10 THEN 5730
5600 IF F > 2 THEN 5750
5610 KEY(1) STOP: LET F = 0: LOCATE 22, 43: COLOR 4: PRINT “OUT OF FUEL”: LET A = A – 1
5620 IF R > 10200 THEN KEY(1) STOP: LOCATE 22, 43: PRINT “BLOWN ENGINE”
5630 FOR I = 1 TO 20000: NEXT I
5640 COLOR 7: LET R = 0: GOTO 6610
5650 LOCATE 14, 43: COLOR 4: PRINT CHR$(221)
5660 LOCATE 15, 43: COLOR 4: PRINT CHR$(221)
5670 LOCATE 16, 43: COLOR 4: PRINT CHR$(221)
5680 LOCATE 17, 43: COLOR 4: PRINT CHR$(221)
5690 LOCATE 18, 43: COLOR 4: PRINT CHR$(221); CHR$(171)
5700 LOCATE 19, 43: COLOR 4: PRINT CHR$(221)
5710 LOCATE 20, 43: COLOR 4: PRINT CHR$(221)
5720 LOCATE 21, 43: COLOR 4: PRINT CHR$(221)
5730 LOCATE 22, 43: COLOR 4: PRINT CHR$(221)
5740 GOTO 5760
5750 LOCATE 22, 43: COLOR 4: PRINT CHR$(248)
5760 LOCATE 22, 70: COLOR 7: PRINT “GEAR:”;
5770 COLOR 5: PRINT G
5780 VIEW (11, 180)-(310, 311), 0, 1
5790 CLS : COLOR 6: CIRCLE (0, 0), 3
5800 COLOR 7: LOCATE 18, 19: PRINT USING “###.#”; S
5810 LOCATE 21, 19: PRINT “SPEED”
5820 RETURN
5830 LET G = G + 1
5840 IF G > 6 THEN LET G = 6: RETURN
5850 LET R = R – 1317
5860 IF P$(2) = “A” THEN LET R = R + 70
5870 IF P$(2) = “B” THEN LET R = R + 40
5880 IF P$(2) = “A” THEN LET S = S + 9
5890 IF P$(1) = “A” THEN LET S = S + 7
5900 IF P$(1) = “A” THEN LET B = B + .5
5910 LET S = S + 35
5920 IF R < 8600 THEN LET S = S – 5
5930 IF R < 8400 THEN LET S = S – 5
5940 IF R < 8200 THEN LET S = S – 5
5950 IF R < 8000 THEN LET S = S – 5
5960 IF R < 7800 THEN LET S = S – 5
5970 IF R < 7600 THEN LET S = S – 5
5980 IF R < 7400 THEN LET S = S – 10
5990 IF R < 7200 THEN LET S = S – 10
6000 IF R < 7000 THEN LET S = S – 15
6010 IF R < 6000 THEN LET S = S – 20
6020 IF R < 5000 THEN LET S = S – 30
6030 IF S < 40 THEN LET S = 40
6040 IF G > 6 THEN LET G = 6
6050 IF G < 1 THEN LET G = 1
6060 IF G = 4 THEN LET R = 5000
6070 IF G = 5 THEN LET R = 5000
6080 IF G = 3 THEN LET R = R – 1800
6090 IF G = 2 THEN LET R = R – 1200
6100 IF G = 6 THEN LET R = 6000
6110 IF G$ = “R” THEN LET F = F – 3
6120 RETURN
6130 LET A = A + 2: LET B = B + 2
6140 IF G = 6 THEN 6320
6150 IF G = 1 THEN 6200
6160 IF G = 2 THEN 6230
6170 IF G = 3 THEN 6260
6180 IF G = 4 THEN 6290
6190 IF G = 5 THEN 6320
6200 IF S > 80 THEN LET A = A + 2
6210 IF S < 50 THEN LET A = A – 1
6220 GOTO 6360
6230 IF S > 148 THEN LET A = A + 2
6240 IF S < 70 THEN LET A = A – 1
6250 GOTO 6360
6260 IF S > 165 THEN LET A = A + 2
6270 IF S < 80 THEN LET A = A – 1
6280 GOTO 6360
6290 IF S > 220 THEN LET A = A + 2
6300 IF S < 100 THEN LET A = A – 1
6310 GOTO 6360
6320 IF S > 265 THEN LET A = A + 1
6330 IF G$ = “S” THEN 6350
6335 IF R > 9900 THEN LET A = A + .5
6340 LET A = A + 1: LET B = B + 2.25
6350 IF S < 110 THEN LET A = A – 1
6360 IF P$(1) = “A” THEN LET A = A + 1
6370 IF P$(1) = “B” THEN LET A = A + .5
6380 IF P$(1) = “C” THEN LET A = A + .25
6390 VIEW (11, 39)-(633, 115), , 2
6400 CLS
6410 IF G$ = “S” THEN 6440
6420 LET A = A + 1
6430 LET B = B + 2
6440 LOCATE 5, A
6450 COLOR 8: PRINT STRING$(2, 236);
6460 COLOR 4: PRINT CHR$(247);
6470 COLOR 14: PRINT CHR$(79); CHR$(240); STRING$(2, 205); CHR$(111)
6480 LOCATE 7, B
6490 COLOR 8: PRINT STRING$(2, 236);
6500 COLOR 4: PRINT CHR$(247);
6510 COLOR 10: PRINT CHR$(79); CHR$(240); STRING$(2, 205); CHR$(111)
6520 IF G$ = “R” THEN 6640
6530 IF A > 70 THEN LET O = O + 60: IF W > 2 THEN LET O = O + 15
6540 IF A > 70 THEN LET W = W + 1: IF W > 4 THEN LET O = O + 16
6550 IF A > 70 THEN LET E$ = “0″: IF W > 8 THEN LET O = O + 18
6560 IF A > 70 THEN LET I = I + 1: IF W > 11 THEN LET O = O + 21
6570 IF A > 70 THEN KEY(1) STOP: LOCATE 18, 56: PRINT “YOU WIN!”: GOTO 4760
6580 IF B > 62 THEN LET B = B + .25
6590 IF B > 69 THEN KEY(1) STOP: GOTO 6610
6600 GOTO 5440
6610 LOCATE 22, 43: LET L = L + 1: PRINT “YOU LOSE!                 LOSSES:”; L: LET E$ = “0″: GOTO 4760
6620 GOTO 5440
6630 END
6640 IF B > A THEN 6710
6650 IF A > 68 THEN LET O = O + 60: IF W > 2 THEN LET O = O + 15
6660 IF A > 68 THEN LET W = W + 1: IF W > 4 THEN LET O = O + 16
6670 IF A > 68 THEN LET E$ = “0″: IF W > 8 THEN LET O = O + 18
6680 IF A > 68 THEN LET I = I + 1: IF W > 11 THEN LET O = O + 21
6690 IF A > 68 THEN KEY(1) STOP: LOCATE 18, 56: PRINT “YOU WIN!”: GOTO 4760
6700 IF B > 62 THEN LET B = B + .25
6710 IF B > 68 THEN KEY(1) STOP: GOTO 6730
6720 GOTO 5440
6730 LOCATE 22, 43: LET L = L + 1: PRINT “YOU LOSE!                 LOSSES:”; L: LET E$ = “0″: GOTO 4760
6740 GOTO 5440
6750 LOCATE 5, 4: GOTO 6450
6760 LOCATE 5, 6: GOTO 6450
6770 LOCATE 5, 8: GOTO 6450
6780 LOCATE 5, 10: GOTO 6450
6790 LOCATE 5, 12: GOTO 6450
6800 LOCATE 5, 14: GOTO 6450
6810 LOCATE 5, 16: GOTO 6450
6820 LOCATE 5, 18: GOTO 6450
6830 LOCATE 5, 20: GOTO 6450
6840 LOCATE 5, 22: GOTO 6450
6850 LOCATE 5, 24: GOTO 6450
6860 LOCATE 5, 26: GOTO 6450
6870 LOCATE 5, 28: GOTO 6450
6880 LOCATE 5, 30: GOTO 6450
6890 LOCATE 5, 32: GOTO 6450
6900 LOCATE 5, 34: GOTO 6450
6910 LOCATE 5, 36: GOTO 6450
6920 LOCATE 5, 38: GOTO 6450
6930 LOCATE 5, 40: GOTO 6450
6940 LOCATE 5, 42: GOTO 6450
6950 LOCATE 5, 44: GOTO 6450
6960 LOCATE 5, 46: GOTO 6450
6970 LOCATE 5, 48: GOTO 6450
6980 LOCATE 5, 50: GOTO 6450
6990 LOCATE 5, 52: GOTO 6450
7000 LOCATE 5, 54: GOTO 6450
7010 LOCATE 5, 56: GOTO 6450
7020 LOCATE 5, 58: GOTO 6450
7030 LOCATE 5, 60: GOTO 6450
7040 LOCATE 5, 62: GOTO 6450
7050 LOCATE 5, 64: GOTO 6450
7060 LOCATE 5, 66: GOTO 6450
7070 LOCATE 5, 68: GOTO 6450
7080 LOCATE 5, 70: GOTO 6450
7090 LOCATE 5, 71: GOTO 6450
7100 LOCATE 7, 4: GOTO 6490
7110 LOCATE 7, 6: GOTO 6490
7120 LOCATE 7, 8: GOTO 6490
7130 LOCATE 7, 10: GOTO 6490
7140 LOCATE 7, 12: GOTO 6490
7150 LOCATE 7, 14: GOTO 6490
7160 LOCATE 7, 16: GOTO 6490
7170 LOCATE 7, 18: GOTO 6490
7180 LOCATE 7, 20: GOTO 6490
7190 LOCATE 7, 22: GOTO 6490
7200 LOCATE 7, 24: GOTO 6490
7210 LOCATE 7, 26: GOTO 6490
7220 LOCATE 7, 28: GOTO 6490
7230 LOCATE 7, 30: GOTO 6490
7240 LOCATE 7, 32: GOTO 6490
7250 LOCATE 7, 34: GOTO 6490
7260 LOCATE 7, 36: GOTO 6490
7270 LOCATE 7, 38: GOTO 6490
7280 LOCATE 7, 40: GOTO 6490
7290 LOCATE 7, 42: GOTO 6490
7300 LOCATE 7, 44: GOTO 6490
7310 LOCATE 7, 46: GOTO 6490
7320 LOCATE 7, 48: GOTO 6490
7330 LOCATE 7, 50: GOTO 6490
7340 LOCATE 7, 52: GOTO 6490
7350 LOCATE 7, 54: GOTO 6490
7360 LOCATE 7, 56: GOTO 6490
7370 LOCATE 7, 58: GOTO 6490
7380 LOCATE 7, 60: GOTO 6490
7390 LOCATE 7, 62: GOTO 6490
7400 LOCATE 7, 64: GOTO 6490
7410 LOCATE 7, 66: GOTO 6490
7420 LOCATE 7, 68: GOTO 6490
7430 LOCATE 7, 70: GOTO 6490
7440 LOCATE 7, 71: GOTO 6490