100 rem raumschiff daten
101 data 170,0,0,42,128,0,10
102 data 160,0,2,170,0,3,255
103 data 192,3,255,240,3,255,252
104 data 1,85,85,1,85,85,3
105 data 255,252,3,255,240,3,255
106 data 192,2,170,0,10,160,0
107 data 42,128,0,170,0,0,0
108 data 0,0,0,0,0,0,0
109 data 0,0,0,0,0,0,0
110 for n=0to62:readq:poken+832,q:next
120 v=53248:pokev+16,6:pokev,24:poke53281,0:poke53280,0:poke2040,13
130 pokev+39,4:pokev+37,7:pokev+38,6:pokev+28,7:y=132:print"{clear}":pokev+42,12
140 fora=v+40tov+41:pokea,4:next
150 poke2041,13:poke2042,13
170 pokev+21,0
171 data3,192,0,7,255,128,15,253,248,28,251,248,14,225,248,7
172 data204,254,31,255,254,63,255,255,127,255,190,115,255,62,249,127
173 data124,252,61,120,127,127,252,63,255,252,63,255,224,31,255,240
174 data3,219,224,3,129,192,0,0,0,0,0,0,0,0,0
180 for n=0to62:readq:poke14*64+n,q:next
200 rem daten fuer maschinenprog.
201 :
202 rem ufos beweg. up
203 :
204 data169,80,133,78,169,39,133,80,169,4,133,79,133,81,162,0,160,1,177,78,201
205 data31,208,6,145,80,169,32,145,78,200,192,40,208,239,24,165,78,105,40,133
206 data78,165,79,105,0,133,79,24,165,80,105,40,133,80,165,81,105,0,133,81
207 data 232,224,21,208,206,96
212 rem ufos bewegen down
213 :
214 data169,152,133,78,169,191,133,80,169,7,133,79,133,81,162,0,160,1,177,78,201
215 data31,208,6,145,80,169,32,145,78,200,192,40,208,239,56,165,78,233,40,133
216 data78,165,79,233,0,133,79,56,165,80,233,40,133,80,165,81,233,0,133,81
217 data232,224,21,208,206,96
218 rem laser
219 :
220 data169,192,141,1,212,24,165,83,105,212,133,81,165,82,133,80,160,3,165,2
221 data145,82,169,8,145,80,200,32,0,193,177,82,201,32,240,3,76,0,194,206,1,212
222 data206,1,212,192,40,208,225,160,3,169,32,145,82,169,6,145,80,200
223 data 206,1,212,206,1,212,192,40,208,237,96
224 rem verzoegerung
225 :
226 data 162,0,110,240,207,110,240,207,232,208,247,96
227 rem treffer
228 :
229 data200,169,129,141,4,212,140,153,207,238,254,207,208,3,238,255,207,160,3
230 data169,32,145,82,169,6,145,80,200,238,1,212,238,1,212,204,253,207,208,236
231 data 96
232 rem atomwolke bewegen
233 :
234 data172,6,208,162,0,136,232,224,15,208,250,140,6,208,96
300 rem daten einlesen
310 for ad=49152toad+66:readq:pokead,q:next
320 for ad=49152+67toad+66:readq:pokead,q:next
330 forad=49152+67*2toad+70:readq:pokead,q:next
331 forad=193*256toad+11:readq:pokead,q:next
335 forad=194*256toad+39:readq:pokead,q:next
340 forad=195*256toad+14:readq:pokead,q:next:poke2043,14
900 rem daten
905 poke2040,13:gosub 10000
906 v=53248
910 zu=5:poke53247,0:poke53246,0
920 po=1024+11*40:pokev+1,132:y=132
930 poke2,69
940 pokev+2,10:pokev+4,50:pokev+3,50:pokev+5,50
950 pokev+21,15
960 la=50
1000 rem spiel
1001 d=0
1005 poke53281,6:print"{clear}":poke53281,0:poke53248+31,0:poke53248+30,0
1010 :
1020 j=peek(56321)
1025 if(jand1)=0andy>60theny=y-8:po=po-40:ifwo=1thenpokev+7,peek(v+7)-2
1026 if(jand2)=0andy<225theny=y+8:po=po+40:pokev+7,peek(v+7)+2
1027 poke82,poand255:poke83,po/256
1028 pokev+1,y
1029 if(jand16)=0andla>.9thenpokesi+4,17:sys49152+2*67:la=la-1
1030 ifint(rnd(1)*zu)=0thenpoke1062+40*int(rnd(1)*20+3),31
1040 d=d+1:ifd<6thensys49152:goto1070
1050 ifd<11thensys49152+67
1060 ifd=12thend=0
1070 if(peek(53248+31)and1)=1or(peek(v+30)and1)=1thengoto5000
1071 pokev+30,0
1085 print"{home}score";(peek(53246)+256*peek(53247))*10
1086 print"{space*41}";:rem ___ 40 space
1087 poke214,23:print:print"{space*40}{home}"
1088 rem ^^^ 39 space ^^^
1089 print"{home}";tab(15)"laser";int(la)"{left} "
1090 pokesi+4,0
1091 ifrnd(1)<.1andwo=0thenpokev+6,255:pokev+7,peek(v+1):wo=1
1092 ifpeek(v+6)<5thenpokev+7,0:wo=0:pokev+6,255
1093 sys195*256
1095 ifpeek(53246)>50thenzu=3
1096 la=la+.1
1099 goto 1010
5000 fort=0to40:poke2040,t:poke53281,t:poke53280,40-t:poke53248+39,t
5001 pokesi+1,int(rnd(1)*t):pokesi+4,129:next
5010 pokesi+4,0:r=r+1:poke53249+r*2,0:ifr=3then5030
5020 pokev+7,0:pokev+6,255:wo=0:la=50:poke53248+39,10:goto 1000
5030 poke53281,0:poke53280,0:print"{pink}{home}{down*10}{right*7}   {reverse on}g a m e  o v e r{reverse off}"
5032 fort=0to40:poke2040,t:poke53281,t:poke53280,40-t:poke53248+39,t
5033 pokesi+1,int(rnd(1)*30):pokesi+4,129:next:pokesi+4,0
5034 poke53281,0:poke53280,0:poke2040,10
5035 fort=1to15:geta$:next:poke56322,255
5040 geta$:ifa$=""then5040
5050 pokesi+11,0
5060 print"{down}"tab(8)"noch ein spiel ?"
5070 getx$:ifx$=""then5070
5080 ifx$="j"thenpokev+39,4:clr:poke2040,13:goto900
5090 end
10000 poke53280,0:poke53281,0
10001 v=53248:pokev+21,0
10002 si=54272:pokesi,0:pokesi+5,0:pokesi+6,240:pokesi+24,15:pokesi+4,129
10003 pokesi+7,128:pokesi+8,1:pokesi+12,0:pokesi+13,240:pokesi+11,129
10010 poke214,20:print:printtab(10)"{yellow}l a s e r  f o r c e";:print:print:print
10020 fort=1to40:printtab(int(rnd(1)*40));"{white}.":pokesi+1,40-t
10030 forw=1to50:nextw,t
10040 pokev,174:pokev+21,1
10050 forhh=230to132step-8
10060 pokev+1,hh:pokesi+1,hh
10070 printtab(int(rnd(1)*40));"{white}."
10080 forw=1to40:nextw,hh
10090 forhh=174to24step-2:pokesi+1,hh-24:pokesi,174-hh
10100 pokev,hh:forw=1to10:nextw,hh
10105 forw=1to1500:next:pokesi+4,0
10110 print"{green}";:return