30 PRINT""; 40 KK=32768-1024 100 : 120 SI=54272:POKESI+24,15:POKESI+5,25:POKESI+6,68:POKESI+4,17 130 S3=SI+1:POKES3,0 140 PRINT"[147]":POKE59468,12:POKE53280,9:POKE53281,7:GOSUB1480 150 DATA1,-1,1963,1,-40,-40,1309,3,-1,1, 964,2,40,40,1334,5 160 : 170 YU=56320:YV=56320 180 DIMP(3),Q(3),A(120),I(3),J(3),K(3) 190 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 200 PRINT"[145]EIN SPIEL GESCHRIEBEN VON [144] MIKE HOLZHEU [146]" 205 FORRR=1TO200:POKES3,RR:NEXT 210 PRINT"[129] WILLST DU DIE SPIELREGELN? ([144]J[129]/[144]N[129])":PP=PEEK(YV) 211 PRINT" (JOYSTICK LINKS/RECHTS)" 212 IFPP=119THENPOKES3,0:GOTO480 214 PRINT"[145][145][145][145][145] [144]MIKE HOLZHEU[145]" 216 FORRR=200TO0STEP-1:POKES3,RR:NEXT 220 IFPP<>123THENPRINT"[145][145]":GOTO200 222 POKES3,0 230 POKE53272,23:PRINT"[147][144][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]"; 240 PRINT"[169] [169]"; 250 PRINT"[223] [196][213][160][211][212][197][213][197][210][211][212][160][197][201][206][197][206][160][210][197][206][206][215][193][199][197][206][160][201][206][160][197][201][206][197][205] [169]"; 260 PRINT"[169] [204][193][194][217][210][201][206][212][200]. [196][197][210][160] [150][214][195]-64[144] [160][211][212][197][213][197][210][212][160][197][201][206][197][206] [223]"; 270 PRINT"[169] [197][206][212][199][197][199][197][206][199][197][211][197][212][218][212][160][198][193][200][210][197][206][196][197][206][160][215][193][199][197][206].[160][196][213] [169]"; 280 PRINT"[223] [211][212][197][213][197][210][211][212][160][205][201][212] [196][197][205] [202][207][217][211][212][201][195][203]. [208][193][211][211][160][193][213][198], [223]"; 290 PRINT"[169][160][196][193][211][211] [201][200][210][160][206][201][195][200][212][160][203][207][204][204][201][196][201][197][210][212] !!! [169]"; 300 PRINT"[223] [211][212][197][213][197][210][210][213][206][199]: OBEN [223]"; 310 PRINT"[169] [221] [169]"; 320 PRINT"[223] LINKS [192][219][192] RECHTS [223]"; 330 PRINT"[169] [221] [169]"; 340 PRINT"[223] UNTEN [223]"; 350 PRINT"[169] [169]"; 360 PRINT"[223][205][201][212][160][196][197][205] [203][206][207][208][198] [203][193][206][206][211][212][160][196][213][160][194][197][211][195][200][204][197][213][206][201][199][197][206] [223]"; 370 PRINT"[169] [169]"; 380 PRINT"[223] [169]"; 390 PRINT"[169] [160][160][160][160][214][160][201][160][197][160][204][160][160][160][211][160][208][160][193][160][211][160][211] ! ! ! [169]"; 400 PRINT"[223] [223]"; 410 PRINT"[169][223][169][223][169][223][169][223][169][223][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]" 420 PRINT"" 430 PRINT"[129] ZUM START DEN KNOPF DRUECKEN ! " 440 POKE33607-KK,PEEK(33568-KK) 450 FORI=1TO50:NEXTI 460 PRINT"[145] "CHR$(20):IF(PEEK(YV)AND16)=16THEN440 470 POKE53272,21 480 LX=46:RT=93:RS=32:RU=96:RV=87:RW=81:JL=64 490 GOSUB1710 500 FORI=0TO3:READP(I),Q(I),I(I),C(I):A(I)=I:K(I)=32:NEXTI 510 K=32:M=2:I=33708-KK:POKEI,RW:A=0:C=1:POKE33707-KK,RV:MA=MA+360 520 IFN>=1THENPOKEI(1),RV:M=4 530 POKES3,237 540 IFN>=2THENPOKEI(2),RV:M=5 550 IFN>=3THENPOKEI(3),RV:M=6 560 POKES3,0 570 AZ$="[156]START IN 580 [153]AZ$:[153][163]12)" IN 3 SEKUNDEN":[129]UN[178]1[164]100:[151]S3,237:[130] 590 [153]AZ$:[153][163]12)" IN 2 SEKUNDEN":[129]UN[178]1[164]100:[151]S3,147:[130] 600 [153]AZ$:[153][163]12)" IN 1 SEKUNDE FOR":[129]UN[178]1[164]100:[151]S3,177:[130] 610 [151]S3,0 620 [153]"SYS SCORE FORWAIT":[153][163]12)" ON" 630 [153][163]19)"ON-CMD(null)CMD>ONCLRHIGHFOR=CLR"[202]([196](HI),2)"FORON" 640 UN[178]1:OX[178]12 650 [151]S3,41 660 X[178]UN:[139][194](YV)[179]112[167]X[178]M 670 [151]S3,0 680 [129]W[178]UN[164]X 690 J[178]I[170]P(A) 700 L[178][194](J):[139]L[179][177]JL[175]L[179][177]RT[137]730 710 A[178]A[170]UN:[139]A[178]4[167]A[178]0 720 [137]690 730 [139]K[179][177]LX[137]820 740 PT[178]PT[170]UN:[139]PT[179]MA[171]N[167][153][163]OX)"SYS";PT"ONFOR":K[178]RS:[137]1110 750 N[178]N[170]1:[140]:[153][163]12)"SYS";PT"FORON" 760 [153][163]20)" CLR BRAVO WAITFOR " 770 [139]N[178]4[167]N[178]N[171]1 780 [153][166]40);"ZUM DURCHGANG"N[170]1"CMD FERTIGMACHEN " 790 [153]" UND WEITER GEHTS MITDEM KNOPF" 800 [139][194](YV)[179][177]111[167][141]3000:[137]800 810 [137]480 820 [139]K[178]RS[137]1110 830 [139]K[178]RV[137]1340 840 P[178][194](YV):[139]P[179]111[167]P[178]P[170]16 850 [139]P[178]125[167]D[178]2:[137]900 860 [139]P[178]126[167]D[178]8:[137]900 870 [139]P[178]123[167]D[178]4:[137]900 880 [139]P[178]119[167]D[178]6:[137]900 890 [137]1110 900 [145]D[173]2[137]910,960,1010,1060 910 [139]A[178]1[176]A[178]3[137]1110 920 [139]C[178]1[175]A[178]0[137]1110 930 [139]C[178]5[175]A[178]2[137]1110 940 [139]A[178]0[167]J[178]I[170]81:C[178]C[171]1:L[178][194](J):[137]1110 950 J[178]I[170]79:C[178]C[170]1:L[178][194](J):[137]1110 960 [139]A[178]0[176]A[178]2[137]1110 970 [139]C[178]1[175]A[178]3[137]1110 980 [139]C[178]5[175]A[178]1[137]1110 990 [139]A[178]1[167]J[178]I[171]42:L[178][194](J):C[178]C[170]1:[137]1110 1000 J[178]I[170]38:L[178][194](J):C[178]C[171]1:[137]1110 1010 [139]A[178]0[176]A[178]2[137]1110 1020 [139]C[178]1[175]A[178]1[137]1110 1030 [139]C[178]5[175]A[178]3[137]1110 1040 [139]A[178]1[167]J[178]I[171]38:L[178][194](J):C[178]C[171]1:[137]1110 1050 J[178]I[170]42:L[178][194](J):C[178]C[170]1:[137]1110 1060 [139]A[178]1[176]A[178]3[137]1110 1070 [139]C[178]1[175]A[178]2[137]1110 1080 [139]C[178]5[175]A[178]0[137]1110 1090 [139]A[178]0[167]J[178]I[171]79:L[178][194](J):C[178]C[170]1:[137]1110 1100 J[178]I[171]81:L[178][194](J):C[178]C[171]1:[137]1110 1110 [151]S3,187:[151]S3,0 1120 [151]I,K:[151]J,RW:K[178]L:I[178]J:[130]W 1130 [129]B[178]ZE[164]N 1140 J(B)[178]I(B)[170]Q(A(B)) 1150 L(B)[178][194](J(B)):[139]L(B)[179][177]JL[175]L(B)[179][177]RT[167]1180 1160 A(B)[178]A(B)[170]UN:[139]A(B)[178]4[167]A(B)[178]0 1170 [137]1140 1180 [139]K(B)[178]RS[176]K(B)[178]RS[176]K(B)[178]LX[137]1320 1190 [139]K(B)[178]RW[137]1340 1200 V[178][180](C[171]C(B))[170]2 1210 [145](V)[137]1220,1320,1230 1220 C(B)[178]C(B)[171]1:[145]A(B)[170]1[141]1240,1250,1260,1270:L(B)[178][194](J(B)):[137]1320 1230 C(B)[178]C(B)[170]1:[145]A(B)[170]1[141]1280,1290,1300,1310:L(B)[178][194](J(B)):[137]1320 1240 J(B)[178]I(B)[170]79:[142] 1250 J(B)[178]I(B)[171]42:[142] 1260 J(B)[178]I(B)[171]79:[142] 1270 J(B)[178]I(B)[170]42:[142] 1280 J(B)[178]I(B)[171]81:[142] 1290 J(B)[178]I(B)[171]38:[142] 1300 J(B)[178]I(B)[170]81:[142] 1310 J(B)[178]I(B)[170]38:[142] 1320 [151]S3,0:[151]I(B),K(B):[151]J(B),RV:I(B)[178]J(B):K(B)[178]L(B):[130]B 1330 [137]650 1340 [139]PT[177]HI[167]1400 1350 [153]"DEF":[141]1480:[153]"FOR"; 1360 [153]"DU HAST IN DIESEM DURCHGANGSYS"PT"CMD PUNKTE ERREICHT."; 1370 [153]" WEITER GEHTS MIT KNOPFDRUCKFOR" 1380 [139][194](YV)[179][177]111[167]1990 1390 KL[178]0:PT[178]0:N[178]0:MA[178]0:[140]:[137]480 1400 PT$[178][196](PT):A[178][195](PT$):[129]I[178]A[164]5:PT$[178]PT$[170]" ":[130]I 1410 [139]HI[178]0[167]HI[178]PT:HI$[178]PT$:[137]1350 1420 [153]"DEF":[141]1480:[153]"FOR"; 1430 [153]"STOPGRATULATION !" 1440 [153]"DU HAST EINEN NEUEN REKORD ERREICHT !! "; 1450 [153]"DEINE PUNKTZAHL BETRUGSYS"PT$"PUNKTE. "; 1460 [153]"DER ALTE REKORD WAR CLR"HI$"PUNKTE. FOR"; 1470 HI$[178]PT$:HI[178]PT:[137]1370 1480 : 1490 [153]"TOTOTO TOTOTOTO TOTOTO TOTOTOTO TO TO" 1500 [153]"(null) (null)FN(null) (null)FN(null) (null)THEN(null) (null)THEN(null)(null)THEN(null)(null)" 1510 [153]" WAIT(null)  WAIT FN WAITTHEN  WAITTHEN  WAITTHEN  WAIT" 1520 [153]" WAIT FN  WAIT (null) WAIT FN WAIT (null)FN WAITTHEN  WAITTOTO THEN  WAITSQR  WAIT" 1530 [153]" WAIT FN  WAIT(null)  WAIT FN WAIT(null) (null) WAITTHEN  WAIT (null)THEN  WAIT (null) WAIT" 1540 [153]" WAIT FN  WAIT(null)  WAIT (null) WAITTHEN  WAIT" 1550 [153]" WAIT (null)TO  WAITTHEN WAIT FN  WAIT FNFN WAIT TOTOSQR  WAITTHEN  WAITTHEN  WAIT" 1560 [153]" WAIT(null) (null)FN WAITTHEN WAIT FN  WAIT FNFN WAITTHEN(null) (null) WAITTHEN  WAITTHEN  WAIT" 1570 [153]"TOTOTOWAIT(null) TOWAIT(null)TOWAIT(null) TOWAIT(null) (null)TOWAIT (null)TOTOTOTOWAIT (null)TOWAIT (null)TOWAIT":[141]1650 1580 : 1590 [129]I[178]1[164]20 1600 [129]J[178]1[164]5:[151]S3,128[170]J[172]10:[130]J 1610 [151]53272,23 1620 [129]A[178]1[164]5:[151]S3,178[171]A[172]10:[130]A 1630 [151]53272,21:[130]I 1640 [151]S3,0:[142] 1650 [153]"STEP WAITSTEP STEPWAITSTEPSTEPWAITSTEP STEPWAITSTEP (null)(null)WAIT (null) (null)WAIT (null)(null)WAIT (null)(null)WAIT 1660 PRINT"[169][146][169] [169][146][169][169][146][169] [169][146][169] [223][223][146] [223][223][146] [223][223][146] [223][223][146] 1670 [153]"STEPWAITSTEP STEP WAITSTEP STEP (null)WAIT (null) (null)WAIT (null) (null)WAIT 1680 PRINT"[169][146][169] [169][146][169] [169][146][169] [169][146][169] [223][223][146] [223][223][146] [223][223][146] [223][223][146] 1690 [153]"STEP WAITSTEP STEP WAITSTEP STEP (null)WAIT (null) (null)WAIT (null)(null)WAIT (null)(null)WAIT 1700 RETURN 1710 PRINT"[147]";:A=40:C=93:POKE53280,9:POKE53281,9 1720 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":POKE32807-KK,110 1730 POKE32807-KK+SI,8:PRINT"[221][144].................[160] [160] .................[129]" 1740 PRINT"[221][144].[129][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][144].[129]" 1750 PRINT"[221][144].[129][221][144]...............[160] [160] ...............[129][221][144].[129]" 1760 PRINT"[221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129]" 1770 PRINT"[221][144].[129][221][144].[129][221][144].............[160] [160] .............[129][221][144].[129][221][144].[129]" 1780 PRINT"[221][144].[129][221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129][221][144].[129]" 1790 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144]...........[160] [160] ...........[129][221][144].[129][221][144].[129][221][144].[129]" 1800 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129][221][144].[129][221][144].[129]" 1810 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].........[160] [160] .........[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]" 1820 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]" 1830 PRINT"[221][144][160] [160] [160] [160] [160][129][221][144] [129][221] CRASH[129] [221][144][160] [160] [160] [160] [160][129]" 1840 PRINT"[221][144][160] [160] [160] [160] [160][129][221][144] [129][173][192][192][192][192][192][192][192][192][192][179][144] [129]" 1850 PRINT"[221][144] [129][221][144] [129] [221][144][160] [160] [160] [160] [160][129]" 1860 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]" 1870 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].........[160] [160] .........[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]" 1880 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129][221][144].[129][221][144].[129]" 1890 PRINT"[221][144].[129][221][144].[129][221][144].[129][221][144]...........[160] [160] ...........[129][221][144].[129][221][144].[129][221][144].[129]" 1900 PRINT"[221][144].[129][221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129][221][144].[129]" 1910 PRINT"[221][144].[129][221][144].[129][221][144].............[160] [160] .............[129][221][144].[129][221][144].[129]" 1920 PRINT"[221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129]" 1930 PRINT"[221][144].[129][221][144]...............[160] [160] ...............[129][221][144].[129]" 1940 PRINT"[221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144].[129]" 1950 PRINT"[221][144].................[160] [160] .................[129]" 1960 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";"" 1970 FORI=32847-KKTO33727-KKSTEPA:POKEI,C:POKEI+54272,8:NEXTI 1980 POKE2023,125:POKE2023+SI,8:RETURN 1990 REM **** ANIMATION **** 2000 IFKL=1THEN2020 2010 PRINT" SPIELE C R A S H MIT MIR [129]";:T1=TI 2020 KL=1:POKE32807-KK,PEEK(32768-KK):PRINT" "CHR$(20) :FORKP=1TO100:NEXT 2025 POKE32807-KK+SI,1 2030 IFT1+360>TITHEN 1380 2040 T1=TI:GOSUB 1590:GOTO 1380 3000 RETURN 60000 PRINTPEEK(203):GOTO60000