OK LIST 1 REM SKY BATTLE 1983 10 FORX=1TO26:PRINT:NEXTX 1000 REM FADENKREUZ 1001 FORX=1TO28 1002 READZ 1003 Z=Z+53000 1004 POKEZ,148 1005 NEXTX 1010 FORX=1TO30 1011 READZ 1012 Z=Z+53000 1013 POKEZ,149 1014 NEXTX 1020 POKE53743,31:POKE53807,29:POKE53774,62:POKE53776,60 1025 POKE53775,43 1026 POKE53997,190 1027 POKE53998,190 1028 POKE54000,189 1029 POKE54001,189 1030 POKE54100,70 1031 POKE54106,83 1032 POKE54103,84 1033 POKE54132,48:POKE54135,48:POKE54138,48 1035 POKE54097,90 2000 K=57088:A=54021:POKE530,1:POKEK,127:M=32:F=F+1 2001 POKEA,215 2002 FORV=1TO10:NEXTV 2003 P=P+1:IFP<230THEN2010 2004 POKEA,M 2005 P=0 2006 GOTO2000 2010 IFPEEK(K)=191THEN2100 2011 IFPEEK(K)=127THEN2110 2012 IFPEEK(K)=223THEN2120 2013 IFPEEK(K)=239THEN2130 2014 IFPEEK(K)=247THEN2140 2016 IFPEEK(K)=251THEN2150 2017 IFPEEK(K)=253THEN2160 2019 GOSUB5000 2020 Q=INT(RND(12)*5) 2021 IFQ<>2THEN2001 2022 Q=INT(RND(13)*4+1) 2023 ONQGOTO2100,2110,2130,2140 2024 GOTO2001 2100 A=A-1 2101 L=PEEK(A) 2102 POKEA+1,M 2103 M=L 2105 GOTO2001 2110 A=A+1 2111 L=PEEK(A) 2112 POKEA-1,M 2113 M=L 2115 GOTO2001 2120 IFPEEK(53775)=215THENPOKE53775,13 2121 FORV=1TO1000:NEXTV 2124 S=S+1 2125 IFPEEK(53775)=43THEN2001 2126 POKE53775,43:T=T+1 2127 P=0:GOTO2000 2130 A=A+32 2131 L=PEEK(A) 2132 POKEA-32,M 2133 M=L 2135 GOTO2001 2140 A=A-32 2141 L=PEEK(A) 2142 POKEA+32,M 2143 M=L 2145 GOTO2001 2150 POKE530,0 2151 FORV=1TO2000:NEXTV 2152 END 2160 RUN 5000 O=F 5001 GOSUB5050 5002 IFF>50THEN8000 5003 POKE54132,O1+48 5004 POKE54133,O2+48 5010 O=T 5011 GOSUB5050 5012 POKE54135,O1+48 5013 POKE54136,O2+48 5020 O=S 5021 GOSUB5050 5022 POKE54138,O1+48 5023 POKE54139,O2+48 5024 IFS>99THEN8000 5030 H=(230-P)/3.83333 5031 H=INT(H+.5) 5032 O=H 5033 GOSUB5050 5034 POKE54129,O1+48 5035 POKE54130,O2+48 5049 RETURN 5050 O1=INT(O/10) 5051 O2=INT(O-(10*O1)) 5052 RETURN 8000 FORV=1TO2000:NEXTV 8001 RUN 9000 DATA578,579,580,581,582,583,584,585,586,587,588 9001 DATA962,963,964,966,967,968,970,971,972 9002 DATA770,771,772,773,777,778,779,780 9003 DATA609,641,673,705,737,769,801,833,865,897,929 9004 DATA621,653,685,717,749,781,813,845,877,909,941 9005 DATA615,647,679,711,839,871,903,935 OK