1 REM ABFUCKER(C) BY JOSEF ELLERT 2 FORI=0TO30:PRINT:NEXTI 3 REM LABEL 8 Q=53771 9 FORU=0TO20 10 POKEQ,65:POKEQ+1,66:POKEQ+2,70:POKEQ+3,85:POKEQ+4,67:POKEQ+5,75 11 POKEQ+6,69:POKEQ+7,82 12 FORI=0TO20:NEXTI 13 POKEQ,32:POKEQ+1,32:POKEQ+2,32:POKEQ+3,32:POKEQ+4,32:POKEQ+5,32 14 POKEQ+6,32:POKEQ+7,32 15 FORI=0TO20:NEXTI 16 NEXTU 30 FORX=0TO30:PRINT:NEXTX 35 REMVARIABLEN:ABF.POS.,COUNTER,GEBIRGE 36 REM COUNTER=0000 39 J=54139 40 X=53735:A=54120:B=54132:D=54194:E=49:F=49:G=49:H=49 41 POKED-1,48:POKED-2,48:POKED-3,48 42 POKED+1,234:POKED-4,235 43 POKED-11,80:POKED-10,85:POKED-9,78:POKED-8,75:POKED-7,84 44 POKED,48 45 FORS=D+28TOD+33:POKES,135:NEXTS 49 REM AUFBAU ABF. 50 POKEX,161:POKEX+1,182:POKEX+2,144 55 POKEX+33,135 60 GOSUB900 65 FORL=54147TO54173:POKEL,145:NEXTL 99 REM TASTENROUTINE 100 POKE530,0 102 POKE530,1 105 Y=53500+64*(INT(RND(2)*10)):M=Y 110 K=57088 120 POKEK,191 130 IFPEEK(K)=251THEN200 140 POKEK,127 150 IFPEEK(K)=247THEN400 160 IFPEEK(K)=239THEN300 170 IFPEEK(K)=223THEN450 175 IFPEEK(K)=127THENPRINT"ITS ALL OVER NOW DU DEPP" 180 GOTO100 200 REM UFO'S MOVE 205 GOSUB500 212 FORW=53480TO54120STEP64:GOSUB245:NEXTW 213 POKEM,32:POKEM+1,32 215 GOSUB501 225 IFM=X+3THEN799 228 T=INT(RND(2)*10) 229 IFT=5THENM=M-2 230 IFT<5THENM=M-66 231 IFT>5THENM=M+62 232 IFM=CTHEN850 233 IFM=B+1THEN850:IFM=A-30THEN850 234 POKEM,11:POKEM+1,12:GOSUB900 235 GOTO600 240 GOTO205 245 IFW=MTHEN250 246 RETURN 250 REM MATERIEWELLEN 255 IFMXTHEN280 265 GOTO232 270 REM M.W.UNTEN 271 POKEM+32,31:FORI=0TO10:NEXTI:POKEM+32,32 272 M=M+32:IFM=X+1THEN799 273 GOTO271 280 REMM.W.OBEN 281 POKEM-32,29:FORI=0TO10:NEXTI:POKEM-32,32 282 M=M-32:IFM=X+1THEN799 283 GOTO281 299 REM MOVE ABF. 300 POKEX,32:POKEX+1,32:POKEX+2,32:POKEX+33,32 303 X=X-64 305 POKEX,161:POKEX+1,182:POKEX+2,144:POKEX+33,135 307 GOTO720 310 GOTO100 363 GOTOF=48THENPOKED-2,G:G=G+1:GOTOG=58THENG=48 373 IFH=58THENPRINT"WAHNSINN-WAHNSINN-WAHNSINN!!!!!!!!!!!!!!!!!!!!!" 399 REM MOVE ABF. 400 POKEX,32:POKEX+1,32:POKEX+2,32:POKEX+33,32 404 IFX>54115THEN799 405 X=X+64 410 POKEX,161:POKEX+1,182:POKEX+2,144:POKEX+33,135 411 IFX+33=A-31THEN799 415 GOTO700 420 GOTO100 450 REM LASER 455 C=X+3 460 POKEC,144 465 FORI=0TO5:NEXTI 470 POKEC,32 472 C=C+2 473 IFC=MTHEN850 479 POKEK,191:IFPEEK(K)<>251THEN482 480 IFC=X+25THENGOSUB497 481 IFM<>Y-25THEN490 482 IFC=X+25THEN100 485 GOTO460 490 IFC=X+25THEN455 495 GOTO482 497 IFPEEK(K)=251THEN200 498 RETURN 500 REMANTRIEB 501 POKEX-1,235:FORI=0TO6:NEXTI 502 POKEX-1,237:FORI=0TO6:POKEX-1,32 503 RETURN 599 REM TASTENROUTINE FUER UFO 600 POKEK,127 605 IFPEEK(K)=247THEN400 607 IFPEEK(K)=239THEN300 609 IFPEEK(K)=223THEN481 610 GOTO240 699 REM TASTENROUTINE FUER MOVES 700 POKEK,191 703 C=X+3 705 IFPEEK(K)=251THEN200 710 GOTO420 720 POKEK,191 723 C=X+3 725 IFPEEK(K)=251THEN200 730 GOTO310 788 REM EXPLOSION ABF. 798 REM EXPLOSION ABF. 799 FORZ=0TO3 800 POKEX,32:POKEX+1,32:POKEX+2,32: 801 POKE530,0 805 FORI=0TO30:NEXTI 810 POKEX,161:POKEX+1,182:POKEX+2,144:NEXTZ 811 POKEX,32:POKEX+1,32:POKEX+2,32:POKEX+33,32 812 POKEX-1,161:POKEX+31,161:POKEX-33,161:POKEX+32,161:POKEX-32,161 816 POKEX+33,32:POKEX-31,32:POKEX+34,32 826 POKEX,32:POKEX+13,32:POKEX+1,32:POKEX+2,32 830 POKEX-2,32:POKEX-65,32:POKEX-63,32:POKEX+4,32:POKEX+63,32 835 POKEX+65,32:FORI=0TO5:NEXTI 840 PRINT"ABGEFACKT":FORI=0TO500:NEXTI 842 GOTO30 849 REM EXPLOSION UFO'S 850 FORL=0TO5:POKEM,161:FORT=0TO20:NEXTT 851 POKE530,0 855 POKEM,32:FORI=0TO20:NEXTI 856 NEXTL 860 POKED,E 863 IFE=48THENPOKED-1,F:F=F+1 865 E=E+1:IFE=58THENE=48 870 IFF=58THENF=48 880 IFG=48THENPOKED-3,H:H=H+1 890 GOTO100 899 REM GEBIRGE 900 POKEA,32:POKEA+1,32:POKEA+2,32:POKEA+3,32 901 POKEA-31,32:POKEA-30,32 905 A=A-1:IFA+3=54115THENA=54139 910 POKEA,176:POKEA+1,161:POKEA+2,161:POKEA+3,178 911 IFA=X+33THEN799:IFA-31=X+33THEN799:IFA-30=X+33THEN799 912 IFA=X+2THEN799:IFA-31=X+2THEN799:IFA=XTHEN799 913 IFA=X+1THEN799:IFA-31=X+1THEN799:IFA-30=X+1THEN799 914 IFA-31=XTHEN799:IFA-30=XTHEN799:IFA-30=X-1THEN799 915 POKEA-31,176:POKEA-30,178 920 POKEB,32:POKEB+1,32 925 B=B-1:IFB+1=54115THENB=54139 930 POKEB,176:POKEB+1,178 932 IFB=X+2THEN799:IFB=X+33THEN799:IFB+1=X+33THEN799 933 IFB=X+1THEN799:IFB=XTHEN799:IFB+1=X+1THEN799:IFB+1=XTHEN799 935 POKEJ,32:POKEJ+1,32 940 J=J-1:IFJ=54115THENJ=54139 950 POKEJ,176:POKEJ+1,178 952 IFJ=X+2THEN799:IFJ=X+1THEN799:IFJ=XTHEN799:IFJ=X+33THEN799 953 IFJ+1=XTHEN799:IFJ+1=X+1THEN799:IFJ+1=X+2THEN799 954 IFJ+1=X+33THEN799 955 RETURN OK