10 SCREEN 12 20 RANDOMIZE TIMER: REM teimer wird gesetzt 30 DATA Q,R,S,T, Ende : REM festlegen der Tasen 40 FOR I = 1 TO 5 50 READ keyText$(I) 60 KEY I, keyText$(I) + CHR$(13) 70 NEXT I 80 z = 1: REM z steht fr die l„nge des spieles 90 a = 0 100 b = 1 110 n = 1 120 DO 121 a = a + 1: REM a ist variable fr die schleife 122 z = z + 1 123 IF a = 50 THEN GOTO 90 124 IF z = 1000 THEN GOTO 6660 130 b = b + 1: REM b ist fr begrenzung links rechts 140 SLEEP: REM pause 1 s , --> tasten gedrckt halten zum schnellernen bewegen 150 160 CLS 170 COLOR 15: REM weis 180 LINE (100, 1)-(100, 500 + b): REM Begrenzung 190 LINE (500, 1)-(500, 500 + b) 200 210 n = n + 15: REM n ist fr dei mittelstreifen 220 230 COLOR 15 240 LINE (200, 0 + n)-(200, 49 + n): REM line 1 250 LINE (200, 99 + n)-(200, 149 + n) 260 LINE (200, 199 + n)-(200, 249 + n) 270 LINE (200, 299 + n)-(200, 349 + n) 280 LINE (200, 399 + n)-(200, 449 + n) 290 300 REM erg„nzug fr die schleife line 1 310 COLOR 15 320 LINE (200, 0 - 100 + n)-(200, 49 - 100 + n): REM line 1 330 LINE (200, 0 - 200 + n)-(200, 49 - 200 + n): REM line 1 340 LINE (200, 0 - 300 + n)-(200, 49 - 300 + n): REM line 1 350 LINE (200, 0 - 400 + n)-(200, 49 - 400 + n): REM line 1 360 LINE (200, 0 - 500 + n)-(200, 49 - 500 + n): REM line 1 370 LINE (200, 0 - 600 + n)-(200, 49 - 600 + n): REM line 1 380 LINE (200, 0 - 700 + n)-(200, 49 - 700 + n): REM line 1 390 LINE (200, 0 - 800 + n)-(200, 49 - 800 + n): REM line 1 400 LINE (200, 0 - 900 + n)-(200, 49 - 900 + n): REM line 1 410 420 LINE (300, 0 + n)-(300, 49 + n): REM line 2 430 LINE (300, 99 + n)-(300, 149 + n) 440 LINE (300, 199 + n)-(300, 249 + n) 450 LINE (300, 299 + n)-(300, 349 + n) 460 LINE (300, 399 + n)-(300, 449 + n) 480 LINE (300, 499 + n)-(300, 499 + n) 490 500 REM erg„nzug fr die schleife line 2 510 520 LINE (300, 0 - 100 + n)-(300, 49 - 100 + n): REM line 2 530 LINE (300, 0 - 200 + n)-(300, 49 - 200 + n): REM line 2 540 LINE (300, 0 - 300 + n)-(300, 49 - 300 + n): REM line 2 550 LINE (300, 0 - 400 + n)-(300, 49 - 400 + n): REM line 2 560 LINE (300, 0 - 500 + n)-(300, 49 - 500 + n): REM line 2 570 LINE (300, 0 - 600 + n)-(300, 49 - 600 + n): REM line 2 580 LINE (300, 0 - 700 + n)-(300, 49 - 700 + n): REM line 2 590 LINE (300, 0 - 800 + n)-(300, 49 - 800 + n): REM line 2 600 LINE (300, 0 - 900 + n)-(300, 49 - 900 + n): REM line 2 610 620 LINE (400, 0 + n)-(400, 49 + n): REM line 3 630 LINE (400, 99 + n)-(400, 149 + n) 640 LINE (400, 199 + n)-(400, 249 + n) 650 LINE (400, 299 + n)-(400, 349 + n) 660 LINE (400, 399 + n)-(400, 449 + n) 670 LINE (400, 499 + n)-(400, 499 + n) 680 690 REM erg„nzug schleife line 2 700 LINE (400, 0 - 100 + n)-(400, 49 - 100 + n): REM line 3 710 LINE (400, 0 - 200 + n)-(400, 49 - 200 + n): REM line 3 720 LINE (400, 0 - 300 + n)-(400, 49 - 300 + n): REM line 3 730 LINE (400, 0 - 400 + n)-(400, 49 - 400 + n): REM line 3 740 LINE (400, 0 - 500 + n)-(400, 49 - 500 + n): REM line 3 750 LINE (400, 0 - 600 + n)-(400, 49 - 600 + n): REM line 3 760 LINE (400, 0 - 700 + n)-(400, 49 - 700 + n): REM line 3 770 LINE (400, 0 - 800 + n)-(400, 49 - 800 + n): REM line 3 780 LINE (400, 0 - 900 + n)-(400, 49 - 900 + n): REM line 3 790 COLOR 0 800 : REM anweisung fr die tasten 810 820 INPUT "", R$: REM 820 830 COLOR 15: REM 830 SELECT CASE R$: REM 840 CASE "Q": REM 850 u = -100: REM 860 CASE "R": REM 870 u = 0: REM 880 CASE "S": REM 890 u = 100: REM 900 CASE "T": REM 910 u = 200: REM 920 CASE "Ende": REM 930 EXIT DO: REM 940 END SELECT: REM 950 : REM ende der zuweisung 960 961 962 : REM jetzt kommt es dicke, dies ist die zuweisung fals man auf ein anderes auto auff„hrt, das das game zuende ist und wenn nicht das es weiter geht 963 964 IF a < 29 THEN GOTO 1000 ELSE IF a > 29 THEN GOTO 1000 ELSE IF a = 29 THEN GOTO 970 970 971 IF u = -100 THEN GOTO 975 ELSE IF u = 0 THEN GOTO 976 ELSE IF u = 100 THEN GOTO 977 ELSE IF u = 200 THEN GOTO 978 975 IF o = 1 THEN GOTO 7300 ELSE IF o = 5 THEN GOTO 7300 ELSE IF o = 6 THEN GOTO 7300 ELSE IF o = 8 THEN GOTO 7300 ELSE IF o = 9 THEN GOTO 7300 ELSE IF o = 10 THEN GOTO 7300 ELSE IF o = 2 GOTO 1000 ELSE IF o = 3 THEN GOTO 1000 ELSE IF o = 4 THEN _ GOTO 1000 ELSE IF o = 7 THEN GOTO 1000 ELSE IF o = 11 THEN GOTO 1000 ELSE IF o = 12 THEN GOTO 1000 ELSE IF o = 13 THEN GOTO 1000 ELSE IF o = 14 THEN GOTO 7300 976 IF o = 2 THEN GOTO 7300 ELSE IF o = 5 THEN GOTO 7300 ELSE IF o = 7 THEN GOTO 7300 ELSE IF o = 8 THEN GOTO 7300 ELSE IF o = 9 THEN GOTO 7300 ELSE IF o = 11 THEN GOTO 7300 ELSE IF o = 12 THEN GOTO 7300 ELSE IF o = 1 THEN GOTO 1000 ELSE IF o = 3 _ THEN GOTO 1000 ELSE IF o = 4 THEN GOTO 1000 ELSE IF o = 6 THEN GOTO 1000 ELSE IF o = 10 THEN GOTO 1000 ELSE IF 12 THEN GOTO 1000 ELSE IF o = 14 THEN GOTO 1000 977 IF o = 3 THEN GOTO 7300 ELSE IF o = 7 THEN GOTO 7300 ELSE IF o = 8 THEN GOTO 7300 ELSE IF o = 10 THEN GOTO 7300 ELSE IF o = 11 THEN GOTO 7300 ELSE IF o = 13 THEN GOTO 7300 ELSE IF o = 1 THEN GOTO 1000 ELSE IF o = 2 THEN GOTO 1000 ELSE IF o = 4 _ THEN GOTO 1000 ELSE IF o = 5 THEN GOTO 1000 ELSE IF o = 6 THEN GOTO 1000 ELSE IF o = 9 THEN GOTO 1000 ELSE IF o = 12 THEN GOTO 1000 ELSE IF o = 14 THEN GOTO 7300 978 IF o = 4 THEN GOTO 7300 ELSE IF o = 6 THEN GOTO 7300 ELSE IF o = 9 THEN GOTO 7300 ELSE IF o = 10 THEN GOTO 7300 ELSE IF o = 11 THEN GOTO 7300 ELSE IF o = 12 THEN GOTO 7300 ELSE IF o = 13 THEN GOTO 7300 ELSE IF o = 1 THEN GOTO 1000 ELSE IF o = 2 _ THEN GOTO 1000 ELSE IF o = 3 THEN GOTO 1000 ELSE IF o = 5 THEN GOTO 1000 ELSE IF o = 7 THEN GOTO 1000 ELSE IF o = 8 THEN GOTO 1000 ELSE IF o = 14 THEN GOTO 1000 980 990 1000 1010 c = 1: REM c ist durch faulheit entstanden ... 1020 COLOR 4: REM 4 =rot --> fahrer 1030 1040 CIRCLE (250 + u, 349 + c), 24, 4, 0, 3.2: REM Fahrer bahn 2 1050 LINE (226 + u, 349 + c)-(226 + u, 399 + c) 1060 LINE (274 + u, 349 + c)-(274 + u, 399 + c) 1070 LINE (226 + u, 399 + c)-(274 + u, 399 + c) 1080 COLOR 4 1090 CIRCLE (250 + u, 349 + c), 10, 4, 0, 3.2: REM kabine 1100 LINE (240 + u, 349 + c)-(240 + u, 379 + c) 1110 LINE (260 + u, 349 + c)-(260 + u, 379 + c) 1120 LINE (240 + u, 379 + c)-(260 + u, 379 + c) 1130 COLOR 4 1140 LINE (226 + u, 399 + c)-(215 + u, 409 + c): REM flgel 1150 LINE (274 + u, 399 + c)-(283 + u, 409 + c) 1160 LINE (215 + u, 409 + c)-(283 + u, 409 + c) 1170 COLOR 15: REM weis 1180 c = a * 11: REM bewegung der "gegner" 1181 IF a = 1 THEN GOTO 1210 1190 IF a < 50 THEN GOTO 1220 1191 : REM 1246 1247 : REM <------------------------------------ 1249 : REM <----------------------------------- 1250 COLOR 15 1260 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 1270 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 1280 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 1290 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 1300 1310 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 1320 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 1330 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 1340 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 1350 1360 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 1370 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 1380 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 1390 GOTO 120 1400 COLOR 15 1401 1402 : REM 2 1403 : REM <------------------------------------------------------- 1404 1405 COLOR 15 1410 CIRCLE (250, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 2 1420 LINE (226, 349 - 400 + c)-(226, 400 - 400 + c) 1430 LINE (274, 349 - 400 + c)-(274, 400 - 400 + c) 1450 LINE (226, 399 - 400 + c)-(274, 400 - 400 + c) 1460 1470 CIRCLE (250, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 1480 LINE (240, 349 - 400 + c)-(240, 379 - 400 + c) 1490 LINE (260, 349 - 400 + c)-(260, 379 - 400 + c) 1500 LINE (240, 379 - 400 + c)-(260, 379 - 400 + c) 1510 1520 LINE (226, 399 - 400 + c)-(215, 409 - 400 + c) 1530 LINE (274, 399 - 400 + c)-(283, 409 - 400 + c) 1540 LINE (215, 409 - 400 + c)-(283, 409 - 400 + c) 1550 1560 GOTO 120 1570 1571 1572 : REM 3 1573 : REM <-------------------------------------------------- 1574 1575 COLOR 15 1580 CIRCLE (350, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 3 1590 LINE (326, 349 - 400 + c)-(326, 399 - 400 + c) 1600 LINE (374, 349 - 400 + c)-(374, 399 - 400 + c) 1610 LINE (326, 399 - 400 + c)-(374, 399 - 400 + c) 1620 1630 CIRCLE (350, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 1640 LINE (340, 349 - 400 + c)-(340, 379 - 400 + c) 1650 LINE (360, 349 - 400 + c)-(360, 379 - 400 + c) 1660 LINE (340, 379 - 400 + c)-(360, 379 - 400 + c) 1670 1680 LINE (326, 399 - 400 + c)-(315, 409 - 400 + c) 1690 LINE (374, 399 - 400 + c)-(383, 409 - 400 + c) 1700 LINE (315, 409 - 400 + c)-(383, 409 - 400 + c) 1710 1720 GOTO 120 1721 1722 1723 : REM 4 1724 : REM <---------------------------------------------------- 1725 1726 COLOR 15 1730 CIRCLE (450, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 4 1740 LINE (426, 349 - 400 + c)-(426, 399 - 400 + c) 1750 LINE (474, 349 - 400 + c)-(474, 399 - 400 + c) 1760 LINE (426, 399 - 400 + c)-(474, 399 - 400 + c) 1770 1780 CIRCLE (450, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 1790 LINE (440, 349 - 400 + c)-(440, 379 - 400 + c) 1800 LINE (460, 349 - 400 + c)-(460, 379 - 400 + c) 1810 LINE (440, 379 - 400 + c)-(460, 379 - 400 + c) 1820 1830 LINE (426, 399 - 400 + c)-(415, 409 - 400 + c) 1840 LINE (474, 399 - 400 + c)-(483, 409 - 400 + c) 1850 LINE (415, 409 - 400 + c)-(483, 409 - 400 + c) 1860 1870 1880 1890 GOTO 120: REM a ist fr - 50 dann next gegner .... 1900 1910 1920 LOOP: REM endlos schleife , endlos spiel --> F5 = ende 1930 1940 1950 1960 1970 1980 1990 2000 : REM ich fge noch weitere m”glichkeiten der gegner hinzu 2001 : REM 3 gegner gleichzeitig 2002 2010 : REM 123 <----------------------------------------------- 2011 2020 COLOR 15 2030 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 2040 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 2050 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 2060 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 2070 2080 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 2090 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 2100 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 2110 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 2120 2130 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 2140 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 2150 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 2160 2170 COLOR 15 2180 CIRCLE (250, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 2 2190 LINE (226, 349 - 400 + c)-(226, 400 - 400 + c) 2200 LINE (274, 349 - 400 + c)-(274, 400 - 400 + c) 2210 LINE (226, 399 - 400 + c)-(274, 400 - 400 + c) 2220 2230 CIRCLE (250, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 2240 LINE (240, 349 - 400 + c)-(240, 379 - 400 + c) 2250 LINE (260, 349 - 400 + c)-(260, 379 - 400 + c) 2260 LINE (240, 379 - 400 + c)-(260, 379 - 400 + c) 2270 2280 LINE (226, 399 - 400 + c)-(215, 409 - 400 + c) 2290 LINE (274, 399 - 400 + c)-(283, 409 - 400 + c) 2300 LINE (215, 409 - 400 + c)-(283, 409 - 400 + c) 2310 2320 2330 2340 CIRCLE (350, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 3 2350 LINE (326, 349 - 400 + c)-(326, 399 - 400 + c) 2360 LINE (374, 349 - 400 + c)-(374, 399 - 400 + c) 2370 LINE (326, 399 - 400 + c)-(374, 399 - 400 + c) 2380 2390 CIRCLE (350, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 2400 LINE (340, 349 - 400 + c)-(340, 379 - 400 + c) 2410 LINE (360, 349 - 400 + c)-(360, 379 - 400 + c) 2420 LINE (340, 379 - 400 + c)-(360, 379 - 400 + c) 2430 2440 LINE (326, 399 - 400 + c)-(315, 409 - 400 + c) 2450 LINE (374, 399 - 400 + c)-(383, 409 - 400 + c) 2460 LINE (315, 409 - 400 + c)-(383, 409 - 400 + c) 2470 2480 GOTO 120 2490 2500 : REM 124 <--------------------------------------------- 2501 2510 COLOR 15 2520 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 2530 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 2540 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 2550 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 2560 2570 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 2580 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 2590 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 2600 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 2610 2620 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 2630 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 2640 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 2650 2660 2670 CIRCLE (250, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 2 2680 LINE (226, 349 - 400 + c)-(226, 400 - 400 + c) 2690 LINE (274, 349 - 400 + c)-(274, 400 - 400 + c) 2700 LINE (226, 399 - 400 + c)-(274, 400 - 400 + c) 2710 2720 CIRCLE (250, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 2730 LINE (240, 349 - 400 + c)-(240, 379 - 400 + c) 2740 LINE (260, 349 - 400 + c)-(260, 379 - 400 + c) 2750 LINE (240, 379 - 400 + c)-(260, 379 - 400 + c) 2760 2770 LINE (226, 399 - 400 + c)-(215, 409 - 400 + c) 2780 LINE (274, 399 - 400 + c)-(283, 409 - 400 + c) 2790 LINE (215, 409 - 400 + c)-(283, 409 - 400 + c) 2800 2810 CIRCLE (450, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 4 2820 LINE (426, 349 - 400 + c)-(426, 399 - 400 + c) 2830 LINE (474, 349 - 400 + c)-(474, 399 - 400 + c) 2840 LINE (426, 399 - 400 + c)-(474, 399 - 400 + c) 2850 2860 CIRCLE (450, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 2870 LINE (440, 349 - 400 + c)-(440, 379 - 400 + c) 2880 LINE (460, 349 - 400 + c)-(460, 379 - 400 + c) 2890 LINE (440, 379 - 400 + c)-(460, 379 - 400 + c) 2900 2910 LINE (426, 399 - 400 + c)-(415, 409 - 400 + c) 2920 LINE (474, 399 - 400 + c)-(483, 409 - 400 + c) 2930 LINE (415, 409 - 400 + c)-(483, 409 - 400 + c) 2940 2950 GOTO 120 2960 2970 : REM 134 <------------------------------------------------ 2980 2990 COLOR 15 3000 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 3010 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 3020 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 3040 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 3050 3060 3070 3080 3090 3100 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 3110 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 3120 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 3230 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 3240 3250 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 3260 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 3270 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 3271 3272 3280 CIRCLE (350, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 3 3290 LINE (326, 349 - 400 + c)-(326, 399 - 400 + c) 3300 LINE (374, 349 - 400 + c)-(374, 399 - 400 + c) 3310 LINE (326, 399 - 400 + c)-(374, 399 - 400 + c) 3320 3330 CIRCLE (350, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 3340 LINE (340, 349 - 400 + c)-(340, 379 - 400 + c) 3350 LINE (360, 349 - 400 + c)-(360, 379 - 400 + c) 3360 LINE (340, 379 - 400 + c)-(360, 379 - 400 + c) 3370 3380 LINE (326, 399 - 400 + c)-(315, 409 - 400 + c) 3390 LINE (374, 399 - 400 + c)-(383, 409 - 400 + c) 3400 LINE (315, 409 - 400 + c)-(383, 409 - 400 + c) 3410 3420 3430 CIRCLE (450, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 4 3440 LINE (426, 349 - 400 + c)-(426, 399 - 400 + c) 3450 LINE (474, 349 - 400 + c)-(474, 399 - 400 + c) 3460 LINE (426, 399 - 400 + c)-(474, 399 - 400 + c) 3470 3480 CIRCLE (450, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 3490 LINE (440, 349 - 400 + c)-(440, 379 - 400 + c) 3500 LINE (460, 349 - 400 + c)-(460, 379 - 400 + c) 3510 LINE (440, 379 - 400 + c)-(460, 379 - 400 + c) 3520 3530 LINE (426, 399 - 400 + c)-(415, 409 - 400 + c) 3540 LINE (474, 399 - 400 + c)-(483, 409 - 400 + c) 3550 LINE (415, 409 - 400 + c)-(483, 409 - 400 + c) 3560 3570 GOTO 120 3580 3590 : REM 234 <-------------------------------------------- 3600 3601 COLOR 15 3610 CIRCLE (250, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 2 3620 LINE (226, 349 - 400 + c)-(226, 400 - 400 + c) 3630 LINE (274, 349 - 400 + c)-(274, 400 - 400 + c) 3650 LINE (226, 399 - 400 + c)-(274, 400 - 400 + c) 3660 3670 CIRCLE (250, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 3680 LINE (240, 349 - 400 + c)-(240, 379 - 400 + c) 3690 LINE (260, 349 - 400 + c)-(260, 379 - 400 + c) 3700 LINE (240, 379 - 400 + c)-(260, 379 - 400 + c) 3710 3720 LINE (226, 399 - 400 + c)-(215, 409 - 400 + c) 3730 LINE (274, 399 - 400 + c)-(283, 409 - 400 + c) 3740 LINE (215, 409 - 400 + c)-(283, 409 - 400 + c) 3750 3760 3770 3780 CIRCLE (350, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 3 3790 LINE (326, 349 - 400 + c)-(326, 399 - 400 + c) 3800 LINE (374, 349 - 400 + c)-(374, 399 - 400 + c) 3810 LINE (326, 399 - 400 + c)-(374, 399 - 400 + c) 3820 3830 CIRCLE (350, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 3840 LINE (340, 349 - 400 + c)-(340, 379 - 400 + c) 3850 LINE (360, 349 - 400 + c)-(360, 379 - 400 + c) 3860 LINE (340, 379 - 400 + c)-(360, 379 - 400 + c) 3870 3880 LINE (326, 399 - 400 + c)-(315, 409 - 400 + c) 3890 LINE (374, 399 - 400 + c)-(383, 409 - 400 + c) 3900 LINE (315, 409 - 400 + c)-(383, 409 - 400 + c) 3910 3920 3930 CIRCLE (450, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 4 3940 LINE (426, 349 - 400 + c)-(426, 399 - 400 + c) 3950 LINE (474, 349 - 400 + c)-(474, 399 - 400 + c) 3960 LINE (426, 399 - 400 + c)-(474, 399 - 400 + c) 3970 3980 CIRCLE (450, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 3990 LINE (440, 349 - 400 + c)-(440, 379 - 400 + c) 4000 LINE (460, 349 - 400 + c)-(460, 379 - 400 + c) 4110 LINE (440, 379 - 400 + c)-(460, 379 - 400 + c) 4120 4130 LINE (426, 399 - 400 + c)-(415, 409 - 400 + c) 4140 LINE (474, 399 - 400 + c)-(483, 409 - 400 + c) 4150 LINE (415, 409 - 400 + c)-(483, 409 - 400 + c) 4160 4170 GOTO 120 4180 4190 4200 : REM beginn der 2 gegner <------------------------------------- 4210 4220 4230 : REM 12 4240 COLOR 15: REM <------------------------------------------------------ 4250 4260 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 4270 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 4280 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 4290 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 4300 4310 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 4320 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 4330 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 4340 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 4350 4360 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 4370 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 4380 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 4390 4400 4410 CIRCLE (250, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 2 4420 LINE (226, 349 - 400 + c)-(226, 400 - 400 + c) 4430 LINE (274, 349 - 400 + c)-(274, 400 - 400 + c) 4450 LINE (226, 399 - 400 + c)-(274, 400 - 400 + c) 4460 4470 CIRCLE (250, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 4480 LINE (240, 349 - 400 + c)-(240, 379 - 400 + c) 4490 LINE (260, 349 - 400 + c)-(260, 379 - 400 + c) 4500 LINE (240, 379 - 400 + c)-(260, 379 - 400 + c) 4510 4520 LINE (226, 399 - 400 + c)-(215, 409 - 400 + c) 4530 LINE (274, 399 - 400 + c)-(283, 409 - 400 + c) 4540 LINE (215, 409 - 400 + c)-(283, 409 - 400 + c) 4550 4560 GOTO 120 4570 4580 4590 4600 4610 4620 : REM <----------------------------------------------------------- 4630 : REM 13 4640 4650 COLOR 15 4660 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 4670 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 4680 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 4690 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 4700 4710 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 4720 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 4730 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 4740 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 4750 4760 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 4770 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 4780 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 4790 4800 4810 4820 4830 4840 4850 4860 4870 4880 CIRCLE (350, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 3 4890 LINE (326, 349 - 400 + c)-(326, 399 - 400 + c) 4900 LINE (374, 349 - 400 + c)-(374, 399 - 400 + c) 4910 LINE (326, 399 - 400 + c)-(374, 399 - 400 + c) 4920 4930 CIRCLE (350, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 4940 LINE (340, 349 - 400 + c)-(340, 379 - 400 + c) 4950 LINE (360, 349 - 400 + c)-(360, 379 - 400 + c) 4960 LINE (340, 379 - 400 + c)-(360, 379 - 400 + c) 4970 4980 LINE (326, 399 - 400 + c)-(315, 409 - 400 + c) 4990 LINE (374, 399 - 400 + c)-(383, 409 - 400 + c) 5000 LINE (315, 409 - 400 + c)-(383, 409 - 400 + c) 5010 5020 GOTO 120 5030 5031 : REM 14 5002 : REM <---------------------------------------- 5040 5050 COLOR 15 5060 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 5070 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 5080 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 5090 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 5100 5110 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 5120 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 5130 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 5140 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 5150 5160 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 5170 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 5180 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 5190 5200 5210 5220 5230 CIRCLE (450, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 4 5240 LINE (426, 349 - 400 + c)-(426, 399 - 400 + c) 5250 LINE (474, 349 - 400 + c)-(474, 399 - 400 + c) 5260 LINE (426, 399 - 400 + c)-(474, 399 - 400 + c) 5270 5280 CIRCLE (450, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 5290 LINE (440, 349 - 400 + c)-(440, 379 - 400 + c) 5300 LINE (460, 349 - 400 + c)-(460, 379 - 400 + c) 5310 LINE (440, 379 - 400 + c)-(460, 379 - 400 + c) 5320 5330 LINE (426, 399 - 400 + c)-(415, 409 - 400 + c) 5340 LINE (474, 399 - 400 + c)-(483, 409 - 400 + c) 5350 LINE (415, 409 - 400 + c)-(483, 409 - 400 + c) 5360 5370 GOTO 120 5380 5390 : REM 23 5400 : REM <------------------------------------------------------------ 5401 5402 COLOR 15 5410 CIRCLE (250, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 2 5420 LINE (226, 349 - 400 + c)-(226, 400 - 400 + c) 5430 LINE (274, 349 - 400 + c)-(274, 400 - 400 + c) 5450 LINE (226, 399 - 400 + c)-(274, 400 - 400 + c) 5460 5470 CIRCLE (250, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 5480 LINE (240, 349 - 400 + c)-(240, 379 - 400 + c) 5490 LINE (260, 349 - 400 + c)-(260, 379 - 400 + c) 5500 LINE (240, 379 - 400 + c)-(260, 379 - 400 + c) 5510 5520 LINE (226, 399 - 400 + c)-(215, 409 - 400 + c) 5530 LINE (274, 399 - 400 + c)-(283, 409 - 400 + c) 5540 LINE (215, 409 - 400 + c)-(283, 409 - 400 + c) 5550 5560 5570 5580 CIRCLE (350, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 3 5590 LINE (326, 349 - 400 + c)-(326, 399 - 400 + c) 5600 LINE (374, 349 - 400 + c)-(374, 399 - 400 + c) 5610 LINE (326, 399 - 400 + c)-(374, 399 - 400 + c) 5620 5630 CIRCLE (350, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 5640 LINE (340, 349 - 400 + c)-(340, 379 - 400 + c) 5650 LINE (360, 349 - 400 + c)-(360, 379 - 400 + c) 5660 LINE (340, 379 - 400 + c)-(360, 379 - 400 + c) 5670 5680 LINE (326, 399 - 400 + c)-(315, 409 - 400 + c) 5690 LINE (374, 399 - 400 + c)-(383, 409 - 400 + c) 5700 LINE (315, 409 - 400 + c)-(383, 409 - 400 + c) 5710 5720 GOTO 120 5730 5740 5750 5760 : REM 24 5770 : REM <------------------------------------------------ 5780 5790 5800 5810 COLOR 15 5820 CIRCLE (150, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 1 5830 LINE (126, 349 - 400 + c)-(126, 400 - 400 + c) 5840 LINE (174, 349 - 400 + c)-(174, 400 - 400 + c) 5850 LINE (126, 399 - 400 + c)-(174, 400 - 400 + c) 5860 5870 CIRCLE (150, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 5880 LINE (140, 349 - 400 + c)-(140, 379 - 400 + c) 5890 LINE (160, 349 - 400 + c)-(160, 379 - 400 + c) 5900 LINE (140, 379 - 400 + c)-(160, 379 - 400 + c) 5910 5920 LINE (126, 399 - 400 + c)-(115, 409 - 400 + c) 5930 LINE (174, 399 - 400 + c)-(183, 409 - 400 + c) 5940 LINE (115, 409 - 400 + c)-(183, 409 - 400 + c) 5950 5960 5970 CIRCLE (250, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 2 5980 LINE (226, 349 - 400 + c)-(226, 400 - 400 + c) 5990 LINE (274, 349 - 400 + c)-(274, 400 - 400 + c) 6000 LINE (226, 399 - 400 + c)-(274, 400 - 400 + c) 6010 6020 CIRCLE (250, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 6030 LINE (240, 349 - 400 + c)-(240, 379 - 400 + c) 6040 LINE (260, 349 - 400 + c)-(260, 379 - 400 + c) 6050 LINE (240, 379 - 400 + c)-(260, 379 - 400 + c) 6060 6070 LINE (226, 399 - 400 + c)-(215, 409 - 400 + c) 6080 LINE (274, 399 - 400 + c)-(283, 409 - 400 + c) 6090 LINE (215, 409 - 400 + c)-(283, 409 - 400 + c) 6100 6110 CIRCLE (450, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 4 6120 LINE (426, 349 - 400 + c)-(426, 399 - 400 + c) 6130 LINE (474, 349 - 400 + c)-(474, 399 - 400 + c) 6140 LINE (426, 399 - 400 + c)-(474, 399 - 400 + c) 6150 6160 CIRCLE (450, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 6170 LINE (440, 349 - 400 + c)-(440, 379 - 400 + c) 6180 LINE (460, 349 - 400 + c)-(460, 379 - 400 + c) 6190 LINE (440, 379 - 400 + c)-(460, 379 - 400 + c) 6200 6210 LINE (426, 399 - 400 + c)-(415, 409 - 400 + c) 6220 LINE (474, 399 - 400 + c)-(483, 409 - 400 + c) 6230 LINE (415, 409 - 400 + c)-(483, 409 - 400 + c) 6240 6250 GOTO 120 6260 6270 : REM 34 6271 : REM <-------------------------------------------------------- 6272 6273 COLOR 15 6274 6280 CIRCLE (350, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 3 6290 LINE (326, 349 - 400 + c)-(326, 399 - 400 + c) 6300 LINE (374, 349 - 400 + c)-(374, 399 - 400 + c) 6310 LINE (326, 399 - 400 + c)-(374, 399 - 400 + c) 6320 6330 CIRCLE (350, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 6340 LINE (340, 349 - 400 + c)-(340, 379 - 400 + c) 6350 LINE (360, 349 - 400 + c)-(360, 379 - 400 + c) 6360 LINE (340, 379 - 400 + c)-(360, 379 - 400 + c) 6370 6380 LINE (326, 399 - 400 + c)-(315, 409 - 400 + c) 6390 LINE (374, 399 - 400 + c)-(383, 409 - 400 + c) 6400 LINE (315, 409 - 400 + c)-(383, 409 - 400 + c) 6410 6420 6430 CIRCLE (450, 349 - 400 + c), 24, 15, 0, 3.2: REM Fahrer bahn 4 6440 LINE (426, 349 - 400 + c)-(426, 399 - 400 + c) 6450 LINE (474, 349 - 400 + c)-(474, 399 - 400 + c) 6460 LINE (426, 399 - 400 + c)-(474, 399 - 400 + c) 6470 6480 CIRCLE (450, 349 - 400 + c), 10, 15, 0, 3.2: REM kabine 6490 LINE (440, 349 - 400 + c)-(440, 379 - 400 + c) 6500 LINE (460, 349 - 400 + c)-(460, 379 - 400 + c) 6510 LINE (440, 379 - 400 + c)-(460, 379 - 400 + c) 6520 6530 LINE (426, 399 - 400 + c)-(415, 409 - 400 + c) 6540 LINE (474, 399 - 400 + c)-(483, 409 - 400 + c) 6550 LINE (415, 409 - 400 + c)-(483, 409 - 400 + c) 6560 6570 GOTO 120 6580 6590 6600 6610 6620 : REM <======================================================= 6630 : REM <======================================================== 6640 : REM gewonnen !!! 6650 6660 CLS 6662 6670 FOR w = 1 TO 500: REM sternenhimmel 6671 hh = INT(RND * 15) + 1 6672 COLOR hh 6680 x = INT(RND * 29) + 1 6690 y = INT(RND * 79) + 1 6700 LOCATE x, y 6710 PRINT "*" 6720 NEXT w 6721 6722 : REM dd = verschieben nach <-- um schrift auszurichten 6723 6724 cc = 4 6730 6731 COLOR 14: REM erster fuá 6741 LINE (200 - cc, 430)-(400 - cc, 430) 6750 LINE (400 - cc, 430)-(400 - cc, 480) 6760 LINE (200 - cc, 430)-(200 - cc, 480) 6770 LINE (200 - cc, 480)-(400 - cc, 480) 6780 PAINT (210 - cc, 444), 14, 14 6781 6790 LINE (230 - cc, 429)-(370 - cc, 429): REM zweiterfuá 6800 LINE (230 - cc, 429)-(230 - cc, 399) 6910 LINE (370 - cc, 429)-(370 - cc, 399) 6920 LINE (230 - cc, 399)-(370 - cc, 399) 6930 PAINT (240 - cc, 400), 14, 14 6940 6950 6960 LINE (270 - cc, 399)-(330 - cc, 399): REM st„nder 6970 LINE (330 - cc, 399)-(330 - cc, 340) 6980 LINE (270 - cc, 399)-(270 - cc, 340) 6990 LINE (270 - cc, 340)-(330 - cc, 340) 7000 PAINT (271 - cc, 341), 14, 14 7010 7011 7020 CIRCLE (300 - cc, 275), 80, 14: REM kopf 7030 PAINT (300 - cc, 275), 14, 14 7040 LINE (220 - cc, 275)-(220 - cc, 160) 7050 LINE (380 - cc, 275)-(380 - cc, 160) 7060 LINE (220 - cc, 160)-(380 - cc, 160) 7070 PAINT (222 - cc, 170), 14, 14 7080 CIRCLE (300 - cc, 160), 100, 14, , , .2 7090 PAINT (300 - cc, 150), 14, 14 7100 7110 7120 7130 : REM schrift 7131 COLOR 4 7140 LOCATE 15, 30.5 7150 PRINT " !ERSTER PLATZ! " 7160 LOCATE 16, 30 7170 PRINT "!!!" 7190 LOCATE 16, 43 7200 PRINT "!!!" 7210 LOCATE 16, 33 7220 PRINT " Guido " 7221 FOR ff = 1 TO 1 7230 THEMA$ = "T180 o2 P2 P8 L8 GGG L2 E-" 7240 WIEDERHOL$ = "P24 P8 L8 FFF L2 D" 7250 PLAY THEMA$ + WIEDERHOL$ 7260 NEXT ff 7261 SLEEP 3: GOTO 9000 7300 7310 CLS 7320 SLEEP 7330 PRINT " du hast verloren " 7340 SLEEP 10 7349 PRINT "ja=1 Nein=2" 7350 INPUT " Noch einmal fahren? ", bb 7360 IF bb = 1 THEN GOTO 80 ELSE IF 2 = Nein THEN GOTO 9000 9000 END