5 PRINT"########################" 10 PRINT"*****ALIEN INVADERS*****" 15 PRINT"########################" 16 PRINT"EIN TOTALER ABFUCK!!":PRINT:PRINT:PRINT:PRINT 20 INPUT"ANWEISUNGEN ODER SCHEISSE";S$:IFLEFT$(S$,1)<>"J"THEN70 30 PRINT:PRINT"BENUTZE FOLGENDE TASTEN:":PRINT 50 PRINT:PRINT:PRINT"************************" 51 PRINT"CTRL-TASTE <> SCHIESSEN":PRINT 52 PRINT"SHIFT-TASTEN <> BEWEGUNG NACH LINKS U. NACH RECHTS":PRINT 53 PRINT"ESC-TASTE <> SPIELSTOP(VERARSCHUNG WIRD EINGESTELLT)" 54 PRINT"************************" 55 PRINT"************************************************" 60 PRINT:INPUT"DRUECK IRGENDEINE TASTE!";A$ 70 TV=53478:AB=53502:AA=TV-3:GL=54106 80 ML=53962:MR=ML+13 90 L1=32:C1=240:C2=241:GU=248:SK=0 95 C1=2 100 VB=540:IFPEEK(57088)>128THENVB=600:GOTO140 105 REMTV-CORNER OF DISPLAY 110 L1=64:TV=53504:AA=TV+3 120 ML=54402:MR=ML+13 130 GL=54735 140 INPUT"WIE STARK WILLST DU GEFICKT WERDEN (1-?)";G:G=6-G 150 POKE56900,0 160 L2=L1*2:GP=GL:NP=AA-L2+2:SP=NP+10:DI=1:KE=57100:NG=3 180 IP=TV 190 FORM=1TO32:PRINT:NEXT 200 S$="SCORE:":G$="GUNS:":EF=0:SF=0 210 FORM=1TO6:POKESP+M,ASC(MID$(S$,M)):NEXT:SP=SP+M+1 220 FORM=1TO5:POKENP+M,ASC(MID$(G$,M)):NEXT:NP=NP+M+1 230 POKEGP,GU:POKENP,48+NG:FORM=1TO4:POKESP+M,48:NEXT 235 REMPOKE UP BARRIERS 240 FORM=MLTOMRSTEP6:POKEM,161:POKEM+1,161 250 POKEM+2,161:POKEM+L1,161:POKEM+L1+1,161:POKEM+L1+2,161 260 POKEM+L2,161:POKEM+L2+1,161:POKEM+L2+2,161 270 NEXTM:TN=0 275 REMPOKE IN STARTING ALIEN SHIPS 280 FORY=1TO6:FORX=1TO8:POKETV+2*X+L2*Y,C1:NEXTX,Y:NE=47 290 FORZ=1TO3 295 REMMOVE ALIENS 300 FORY=6TO1STEP-1:FORX=1TO8:AT=TV+2*X+L2*Y:P=PEEK(AT) 305 IFP=248THEN760 310 IFP<32THENPOKEAT+DI,C1:POKEAT,32:IFDI=L2THENPOKEAT+DI-L1,32 320 NEXT:IFAF=0ANDRND(8)>0.7THENAF=-1:AC=0:AP=TV 325 FORZ1=1TO5 327 REMPEEK THE KEYBOARD 330 K=PEEK(KE):IFVB=540THENK=255-K 340 IFK=252THENPOKEGP,32:GP=GP+1:POKEGP,GU:GOTO380 350 IFK=250THENPOKEGP,32:GP=GP-1:POKEGP,GU:GOTO380 360 IFNOTSFANDK=255THENSF=-1:SH=GP-L1:POKESH,39 370 IFK=222THENPRINT:PRINT:GOTO780 380 IFEF=-1ORRND(8)>TNTHEN420 385 REMFIND OUT IF ALIEN CAN SHOOT 390 FORY1=GP-L1TOTVSTEP-L2:IFPEEK(Y1)<32THEN410:NEXTY1:GOTO420 400 NEXTY1:GOTO420 410 ES=Y1+L2:EF=-1:POKEES,172 420 IFAF=0THEN430 422 POKEAP,32:AP=AP+2:POKEAP,26:AC=AC+1:IFAC>14THENAF=0:POKEAP,32 430 IFNOTSFTHEN540 440 REMMOVE THE SHELL 450 POKESH,32:SH=SH-L2:IFSHMLTHENES=ES-L1 560 IFES>GPTHENEF=0:GOTO680 570 P=PEEK(ES):IFP=32THENPOKEES,171:GOTO680 580 IFES=GPTHENEF=0:GOTO630 585 REMPOKEOUT BARRIER 590 IFP=155ORP=154THENPOKEES,32:EF=0:GOTO680 600 IFP=161THENPOKEES,154:EF=0:GOTO680 610 POKES,171:GOTO680 620 EF=0:GOTO680 630 REM BLANK OUT LASERTARGET IF HIT 640 FORM=1TO10:FORN=232TO233:POKEGP,N:FORT=1TO15:NEXTT,N,M 650 POKEGP,32:NG=NG-1:IFNG=0THEN760 660 POKENP,48+NG:FORM=1TO100:NEXTM 670 GP=GL:POKEGP,GU 680 NEXTZ1,Y:IFTVHSTHENHS=SK 790 PRINT"HIGH SCORE:";HS:PRINT:PRINT 800 INPUT"NOCHMAL VERARSCHUNG";S$:IFLEFT$(S$,1)="J"THEN70 810 END 820 SF=0:AF=0 830 FORM=1TO10:FORN=232TO233:POKESH,N:FORT=1TO10:NEXTT,N,M 840 POKESH,32 850 SK=SK+INT(6*RND(1)+1)*50 860 GOTO740 3022 REMFR 4222 POKEAP,32:AP=AP+2:POKEAP,11:AC=AC+1:IFAC>21THENAC=0:AF=0 60000 A=769:INPUT"SEARCH FOR";A$ 60005 IFA$="LINE1"THEN60060 60010 ST=PEEK(A)+256*PEEK(A+1):LN=256*PEEK(A+3)+PEEK(A+2):A=A+4 60015 IFLN=60000THENSTOP 60020 FORX=ATOST:IFPEEK(X)=ASC(LEFT$(A$,1))THENGOSUB60040 60030 NEXT:A=ST:GOTO60010 60040 FORY=1TOLEN(A$):IFPEEK(X-1+Y)<>ASC(MID$(A$,Y,1))THENRETURN 60050 NEXT:PRINTLN;:RETURN 60060 A$="":FORX=773TO900 60070 IFPEEK(X)=0THENX=900:GOTO60010 60080 A$=A$+CHR$(PEEK(X)):NEXT OK