0 FORV=1TO2500:NEXTV 1 REM KNOE DF9RY 2 REM 12.08.79 3 REM UFO 4 REM 5 FORV=54147TO54213 6 POKEV,32 7 NEXTV 8 GOTO8000 10 FORV=1TO2500:NEXTV 21 FORX=0TO25:PRINT:NEXTX 30 FORV=1TO150 31 N1=32*INT(RND(45)*23) 32 N2=INT(RND(35)*25) 33 N=N1+N2+53379 43 POKEN,161 44 NEXTV 49 POKE530,1 50 K=57088:A=53549:POKEK,127 51 V=INT(RND(8)*2) 52 IFV=2THEN51 53 IFV=1THEN55 54 B=INT(RND(98)*25)+54180:GOTO60 55 B=INT(RND(97)*25)+5347 60 POKEB,4:IFR>0THEN3000 61 POKEA,11:POKEA+1,12:FORX=0TO50:NEXTX 70 GOSUB4000 71 IFPEEK(K)=251THEN9999 72 IFPEEK(K)=127THEN1000 75 IFPEEK(K)=191THEN1100 80 IFPEEK(K)=223THEN1200 85 IFPEEK(K)=239THEN1300 90 IFPEEK(K)=247THEN1400 95 IFPEEK(K)=253THEN1500 96 IFB=ATHENQ=1:POKEA,41:POKEA+1,32:GOTO1500 97 IFB=(A+1)THENQ=1:POKEA,32:POKEA+1,41:GOTO1500 100 IFB(A+20)THEN200 105 IFPEEK(B-1)=161THEN3000 110 POKEB,32 120 B=B-1 130 POKEB,4 140 FORV=1TO10:NEXTV 150 GOTO60 200 IFPEEK(B-32)=161THEN3000 205 POKEB,32 210 B=B-32 220 POKEB,4 230 FORV=1TO10:NEXTV 240 GOTO60 300 IFB<(A-20)THEN400 305 IFPEEK(B+1)=161THEN3000 310 POKEB,32 320 B=B+1 330 POKEB,4 340 FORV=1TO10:NEXTV 350 GOTO60 400 IFPEEK(B+32)=161THEN3000 405 POKEB,32 410 POKE54152,T4+48 420 POKEB,4 430 FORV=1TO10 440 GOTO60 500 IFB>ATHEN700 501 IFB<(A-20)THEN600 510 FORX=1TO20 515 IFPEEK(A-X)=161THENI=1 520 POKEA-X,131 530 FORV=1TO10:NEXTV 540 POKEA-X,32 545 IFI=1THENI=0:RETURN 550 NEXTX 560 RETURN 600 FORX=32TO640STEP32 605 IFPEEK(A-X)=161THENI=1 610 POKEA-X,139 620 FORV=1TO10:NEXTV 630 POKEA-X,32 635 IFI=1THENI=0:RETURN 640 NEXTX 650 RETURN 700 IFB>(A+20)THEN800 710 FORX=2TO21 715 IFPEEK(A+X)=161THENI=1 720 POKEA+X,131 730 FORV=1TO10:NEXTV 740 POKEA+X,32 745 IFI=1THENI=0:RETURN 750 NEXTX 760 RETURN 800 FORX=32TO640STEP32 805 IFPEEK(A+X)=161THENI=1 810 POKEA+X,139 820 FORV=1TO10:NEXTV 830 POKEA+X,32 835 IFI=1THENI=0:RETURN 840 NEXTX 850 RETURN 1000 IFPEEK(A-1)=161THEN60 1001 POKEA,32:POKEA+1,32:A=A-1:GOTO60 1100 IFPEEK(A+2)=161THEN60 1101 POKEA,32:POKEA+1,32:A=A+1:GOTO60 1200 GOSUB500 1201 IFPEEK(B)=32THENU=U+1:GOTO51 1202 GOTO60 1300 IFPEEK(A-32)=161THEN60 1301 IFPEEK(A-31)=161THEN60 1302 POKEA,32:POKEA+1,32:A=A-32:GOTO60 1400 IFPEEK(A+32)=161THEN60 1401 IFPEEK(A+33)=161THEN60 1402 POKEA,32:POKEA+1,32:A=A+32:GOTO60 1500 FORV=1TO10:PRINT:NEXTV:IFQ=0THEN1510 1501 PRINT:PRINT"ALARMSTUFE ROT" 1502 PRINT:PRINT"ALARMPLAN BEACHTEN !!" 1503 PRINT:PRINT"KOLISSION MIT UN-" 1504 PRINT:PRINT"BEKANNTEM FLUGOBJEKT" 1505 PRINT:PRINT:PRINT"SCHWERE ZERSTOERUNGEN " 1506 PRINT:PRINT"SAEMTLICHER SEKTOREN" 1507 PRINT:PRINT:PRINT"GENERRALINSTANDSETZUNG" 1508 PRINT:PRINT"NACH PLAN A-1548 NOT-" 1509 PRINT:PRINT"WENDIG. BO-CO OK" 1510 IFPEEK(K)<>223THEN1510 1511 FORV=1TO25:PRINT:NEXTV 1512 PRINT"EINSATZANALYSE":PRINT:PRINT 1513 PRINT"ZEIT :";(T4*10)+P3,(T2*10)+T1 1514 PRINT:PRINT"ABG. FLUGOBJEKTE";100*U2+10*U1+U 1515 PRINT:PRINT:PRINT:PRINT 1516 PRINT"BO-CO OK" 1517 PRINT:PRINT 1550 PRINT:PRINT"WENN WEITERES SPIEL" 1551 PRINT:PRINT"ERWUENSCHT,DANN 'FEUER'" 1552 PRINT:PRINT"DRUECKEN" 1555 IFPEEK(K)=223THENRUN 1556 GOTO1555 3000 H=INT(RND(3)*5) 3004 R=R+1 3005 IFR>2THENR=0 3010 ONHGOTO105,200,305,400 3020 GOTO3000 4000 T=T+1 4001 IFT>2THENT1=T1+1:T=0 4002 IFT1>9THENT1=0:T2=T2+1 4003 IFT2>5THENT2=0:T3=T3+1 4004 IFD3>9THENT3=0:P4=T4+1 4005 IFT4>5THEN1500 4010 IFU>9THENU=0:U1=U1+1 4011 IFU1>9THENU1=0:U2=U2+1 4012 IFU2>9THEN1500 4100 POKE54150,90 4102 POKE54153,T3+48 4103 POKE54155,T2+48 4104 POKE54156,T1+48 4110 POKE54160,84 4111 POKE54162,U2+48 4112 POKE54163,U1+48 4113 POKE54164,U+48 4999 RETURN 8000 PRINT:PRINT" UFO" 8010 PRINT:PRINT:PRINT 8011 PRINT"ZIEL DES SPIELES IST IN" 8012 PRINT:PRINT"MOEGLICHST KURZER" 8013 PRINT:PRINT"ZEIT, MOEGLICHST VIELE" 8014 PRINT:PRINT"UFO'S ABZUSCHIESSEN" 8015 PRINT:PRINT 8016 PRINT"BEFEHLE:" 8017 PRINT:PRINT"ROT >FEUER" 8018 PRINT:PRINT"BLAU>SPIELENDE" 8019 PRINT:PRINT"GELB>NEUES SPIEL" 8020 PRINT:PRINT 8021 PRINT"BEI TEXTEN DIE 'FEUER'" 8022 PRINT:PRINT"TASTE DRUECKEN" 8023 PRINT:PRINT"WENN DAS SPIEL WEITER-" 8024 PRINT:PRINT"GEHEN SOLL" 8030 POKE530,1:POKE57088,127 8031 IFPEEK(57088)=223THEN10 8032 GOTO8031 9999 PRINT:PRINT"SPIELENDE":FORV=1TO1000:NEXTV:END OK