5 ZI=53596 10 FOR X=0 TO 27:PRINT:NEXT 20 FOR X=54080 TO 54239:POKE X,32:NEXT 30 FOR X=0 TO 100 40 POKE INT(RND(8)*1024+53248),46:NEXT 45 POKE 530,1 50 POKE 57088,254 100 Z=53760+INT(RND(1)*10-5)*32 105 RA=RA+1 107 IF RA>15 THEN 7000 110 F=INT(RND(2)*100) 120 D=INT(RND(2)*56-28) 130 FOR X=0 TO 32 140 PO=X+Z+INT((X*D)/32)*32 150 POKE PA,AL:POKE PA+1,AK 155 AL=PEEK(PO):AK=PEEK(PO+1) 160 POKE PO,9:POKE PO+1,10 170 PA=PO 180 A=PEEK(57088) 190 IF A=250 THEN GOSUB 1000 200 IF A=252 THEN GOSUB 2000 210 IF A=190 THEN GOSUB 3000 220 FOR Y=0 TO F:NEXT Y 230 NEXT X 240 GOTO 100 1000 POKE ZI,32 1010 ZI=ZI-32 1020 POKE ZI,225 1030 RETURN 2000 POKE ZI,32 2010 ZI=ZI+32 2020 POKE ZI,225 2030 RETURN 3000 W=ZI:SU=SU+1:IF SU>40 THEN 9000 3001 IF RA>20 THEN 7000 3005 POKE W-1,192 3020 W=W-1 3022 WE=PEEK(W-2) 3024 WD=WF:WF=WG:WG=WE 3025 IF PO=W THEN GOTO 5000 3030 IF (ZI-W)>28 THEN GOTO 6000 3035 IF RA>20 THEN 7000 3040 POKE W,WD:POKE W-2,132 3050 GOTO 3000 5000 FOR T=1 TO 1 5001 H=128:J=157 5005 FOR X=JTOHSTEP-1 5010 POKE W,X-3 5020 POKE W-32,X:POKE W-1,X+1:POKE W+32,X+2:POKE W+1,X+3 5030 POKE W-1,X:POKE W+1,X 5040 NEXT X 5042 H=188:J=210:NEXT T 5050 POKE W,32:POKE W+32,32:POKE W-32,32:POKE W-1,32:POKE W+1,32 5060 TR=TR+1 5080 POKE 53455,(48+TR) 5081 FOR T=1 TO 9:READ S:POKE 53455-T,S:NEXT T 5082 POKE 53423,(48+RA-TR) 5084 FOR T=33 TO 40:READ S:POKE 53455-T,S:NEXT T 5086 DATA 32,58,82,69,70,70,69,82,84,32,58,73,69,66,82,79,86 5090 IF TR>9 THEN 8000 5100 RESTORE:RETURN 6000 POKE W-1,32 6010 RETURN 7000 PRINT"Es sind nun genau";RA 7005 PRINT"UFO's vorbeigehuscht," 7007 PRINT"leider haben Sie" 7010 PRINT"nur";TR;"getroffen":PRINT:PRINT 7020 PRINT"DAS WAEREN ";TR*100/RA;"PROZENT" 7025 PRINT 7030 PRINT"Wenn Sie fleissig ueben" 7032 PRINT"lernen Sie's sicher auch" 7035 PRINT"noch!":PRINT"Also"; 7040 GOTO 8060 7050 END 8000 PRINT"BRAVO SIE SIND EIN" 8010 PRINT"STARSCHUETZE!!" 8020 PRINT:PRINT:PRINT"VON";RA;"UFO'S HABEN SIE";TR;"GETROFFEN!" 8040 PRINT:PRINT"ALSO";TR*100/RA;"PROZENT!" 8050 PRINT:PRINT"DURCHGELASSEN HABEN SIE GENAU";RA-TR;"UFO'S" 8060 PRINT:PRINT:PRINT"WOLLEN SIE WEITER SPIELEN?(J/N)" 8070 INPUT S$ 8080 IF S$="J" THEN RUN 8100 PRINT:PRINT:PRINT"ES HAT MICH SEHR GEFREUT!":PRINT:PRINT" 8105 PRINT" IHR" 8110 PRINT" COMPUTER" 8115 END 9000 FOR X=200 TO 239:POKE ZI,X:NEXTX 9010 PRINT" Ihnen ist leider dank" 9012 PRINT" Ihrem verschwenderischen" 9015 PRINT" Schiessen die Energie" 9020 PRINT" ausgegangen.":PRINT 9025 PRINT" Wir werden Sie dennoch" 9027 PRINT" in guter Erinnerung be-" 9030 PRINT" halten!":PRINT:PRINT 9040 GOTO 8060 OK