0 LW=PEEK(186):REM - FIXED BY BROTI - 1 IFI=0THENI=1:LOAD"MSSTR1.DAT*",LW,1 2 IFI=1THENI=2:LOAD"MSSTR2.DAT*",LW,1 3 DIMW$(12),T$(11) 4 POKE53280,0:POKE53281,0:B=0:GOSUB1900:PRINT"[147]":CO=0:C2=0:C1=0:BO=0:E=0 5 X=2:Y=1:SH=075:SV=141:B=0:V=53248:S=54272:TR=28:GOSUB40110:TI$="000000" 8 FORI=0TO62:READQ:POKE832+I,Q:NEXT 9 POKE2040,13:POKEV,SV:POKEV+1,SH:POKEV+39,7 10 FORI=0TO62:READQ:POKE896+I,Q:NEXT 11 SYS49152:Q=15 100 REM MAPSTEUERUNG U. WEITERE FUNKTIONEN----------------------------------- 101 : 105 IFY=0THENY=1 106 IFX=13THENX=12 150 IFY=1THENONXGOTO0,1000 152 IFY=2THENONXGOTO0,1060 154 IFY=3THENONXGOTO0,1070,1400,1600 156 IFY=4THENONXGOTO1100,1080,1240,1300 157 IFY=5THENONXGOTO1110,1200,1360 1000 REM BILD 1 ------------------------------------------------------------ 1001 GOSUB41000:GOSUB40100:POKES+19,12:POKES+20,50:POKES+15,50:POKES+18,0 1005 POKE2040,13:POKEV+21,1:SYS49152 1009 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1000 1010 Z=INT(15*RND(1))+1 1011 IFZ=2THENPRINT"":PRINTTAB(14)"[158][195][195][195][195][195][195][195][195][195][195][195]":POKES+11,0:POKES+11,129 1015 IFPEEK(V)<80ANDPEEK(V+16)=0THENPOKES+18,129:GOSUB1050:POKES+18,0 1016 IFPEEK(V+16)=1THENPOKES+18,129:GOSUB1052:POKES+18,0 1020 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:GOTO100 1021 IFPEEK(V+1)<75THENPOKEV+1,75 1026 PRINT"":PRINTTAB(14)" ":GOTO1009 1050 FORI=9TO0STEP-1:POKE1024+6+I*40,66:POKE55296+6+I*40,1:NEXTI 1051 FORI=0TO9STEP+1:POKE1024+6+I*40,32:POKE55296+6+I*40,1:NEXTI:RETURN 1052 FORI=9TO0STEP-1:POKE1024+32+I*40,66:POKE55296+32+I*40,1:NEXTI 1053 FORI=0TO9STEP+1:POKE1024+32+I*40,32:POKE55296+32+I*40,1:NEXTI:RETURN 1060 REM *BILD 2* 1062 GOSUB41200:GOSUB40100 1064 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1060 1065 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:GOTO100 1066 GOTO1064 1070 REM *BILD 3* 1071 GOSUB41080:GOSUB40100 1072 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:GOTO100 1073 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1070 1075 IFPEEK(V+1)>90ANDPEEK(V+1)<100THENFORI=0TO8:SYS50550,L,13,13,7,18:NEXT 1076 IFPEEK(V+1)>170ANDPEEK(V+1)<180THENFORI=0TO8:SYS50550,R,13,13,7,18:NEXT 1077 GOTO1072 1080 REM *BILD 4* 1081 GOSUB41120:GOSUB40100:IFCO=2THENGOSUB1090 1082 PRINT"":PRINTTAB(13)" " 1083 SYS50550,R,5,5,7,10:SYS50550,R,9,9,10,14:SYS50550,H,5,8,23,1 1084 SYS50550,T,5,18,34,4:SYS50550,H,11,21,30,1:SYS50550,L,24,25,22,4 1085 SYS50550,R,12,12,5,23:Z=INT(RND(1)*15)+1 1086 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1080 1087 IFZ=2THENPRINT"":PRINTTAB(13)"[158][195][195][195][195][195][195][195][195][195]":POKES+11,0:POKES+11,129 1088 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:GOTO100 1089 GOTO1082 1090 PRINT"":PRINTTAB(21)"[146] ":PRINTTAB(21)"[146] ":RETURN 1099 REM *BILD 5* 1100 POKES+19,12:POKES+20,50:POKES+15,5:POKES+24,15:POKES+18,0:FF=0:L=150 1101 GOSUB41160:GOSUB40100:F=0:IFCO=2THENPRINT"2[146]" 1102 IFB=0ANDPEEK(V+1)<100ANDPEEK(56320)=111ANDCO=0THENPRINT"2[146]":CO=2 1103 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1100 1104 POKES+18,17:IFPEEK(V+1)>225THENF=1 1105 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+18,0:GOTO100 1106 IFF=0THENSYS50550,T,2,20,6,6:SYS50550,R,22,24,12,26 1107 IFF=1THENSYS50550,H,2,20,6,6:SYS50550,L,22,24,12,26 1108 FF=FF+1:IFFF=10THENFF=0:L=L-05:IFL=00THENL=05 1109 FORI=0TOL:NEXT:POKES+18,0:GOTO1102 1110 REM *BJLD 6* 1111 GOSUB41240:GOSUB40100:F=30:IFE=1THENPRINT"[146] " 1112 POKES+19,9:POKES+20,110:POKES+15,45:POKES+18,129 1113 IFPEEK(V+16)=1ANDPEEK(V)>50ANDPEEK(V+1)>200THENGOTO1140 1114 IFPEEK(V+16)=0ANDPEEK(V)<50ANDPEEK(V+1)<60THEN1140 1115 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+18,0:GOTO100 1116 SYS50550,R,16,16,20,20 1117 F=F-1:PRINT"":PRINTTAB(34)"[155]"F:IFF=0THENF=30:GOSUB1125 1118 IFPEEK(V)>120ANDPEEK(V)<130ANDPEEK(V+1)>110ANDPEEK(V+1)<120ANDE=0THENGOSUB1130 1119 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1111 1120 GOTO1115 1125 FORI=0TO20:POKE1024+8+I+2*40,67:POKE1024+8+I+3*40,67 1126 POKE55296+8+I+2*40,7:POKE55296+8+I+3*40,7:SYS50550,R,16,16,20,20 1127 NEXT:PRINT" " 1128 PRINT" ":RETURN 1130 PRINT" " 1131 J=PEEK(56320):IF(JAND16)=0THENBO=BO+1:GOTO1135 1132 RETURN 1135 PRINT" ":E=1:RETURN 1140 REM **** 1145 FORI=0TO34:POKE1024+4+I+20*40,67:POKE55296+4+I+20*40,7:SYS50550,R,16,16,20,20 1146 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+18,0:GOTO100 1147 NEXT:PRINT"[146] " 1148 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1111 1149 FORI=0TO34:POKE1024+4+I+22*40,67:POKE55296+4+I+22*40,7:SYS50550,R,16,16,20,20 1150 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+18,0:GOTO100 1151 NEXT:PRINT"[146] " 1152 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1111 1153 GOTO1145 1200 REM *BILD 7* 1209 POKES+19,9:POKES+20,110:POKES+15,45:POKES+18,129 1210 GOSUB41280:IFC1=1THENGOSUB1235 1211 GOSUB40100 1212 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+18,0:GOTO100 1213 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1200 1215 IFPEEK(V)>94ANDPEEK(V)<180ANDPEEK(V+1)>200ANDPEEK(V+16)=0THENPOKEV,PEEK(V)-2 1220 SYS50550,R,16,16,1,19:SYS50550,T,21,24,37,3 1222 IFPEEK(V+16)=1ANDPEEK(V)>8ANDPEEK(V+1)>171ANDBO=1THENGOSUB1231 1230 GOTO1212 1231 J=PEEK(56320):IF(JAND16)=0THENPOKES+11,0:POKES+11,129:GOSUB1235 1232 RETURN 1235 PRINT"":PRINTTAB(36)" " 1236 PRINTTAB(36)"[145] ":PRINTTAB(36)" ":PRINTTAB(36)"[145] " 1237 BO=0:C1=1:RETURN 1240 REM *BILD 8* 1245 GOSUB41320:GOSUB40100:D=25:F=0:R1=0 1246 POKES+19,09:POKES+20,13:POKES+15,50:POKES+18,0 1249 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1240 1250 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:GOTO100 1251 IFPEEK(V)<125ANDPEEK(V)>115ANDPEEK(V+1)<70ANDPEEK(V+1)>30THENGOSUB1260 1252 IFF=1THENF=0:GOSUB1260 1253 GOTO 1249 1260 REM * 1265 PRINT"DESTROYER ACTIV" 1266 FORI=1TO14:SYS50550,H,4,18,3,1:GOSUB1290 1267 NEXT:POKE1024+2+3*40,78:FORI=0TO10:NEXT:POKE1024+2+3*40,67 1268 FORI=1TO19:SYS50550,R,4,4,3,20:GOSUB1290 1269 NEXT:POKE1024+21+3*40,77:FORI=0TO10:NEXT:POKE1024+21+3*40,66 1270 FORI=1TO9:SYS50550,T,4,13,22,1:GOSUB1290:NEXT 1271 POKE1024+21+12*40,77:FORI=0TO10:NEXT:POKE1024+21+12*40,67 1272 FORI=1TO6:SYS50550,R,13,13,22,7:GOSUB1290:NEXT 1273 POKE1024+27+12*40,78:FORI=0TO10:NEXT:POKE1024+27+12*40,66 1274 FORI=1TO9:SYS50550,H,4,13,28,1:GOSUB1290:NEXT 1275 POKE1024+27+3*40,78:FORI=0TO10:NEXT:POKE1024+27+3*40,67 1276 FORI=1TO7:SYS50550,R,4,4,28,8:GOSUB1290:NEXT 1277 POKE1024+34+3*40,77:FORI=0TO10:NEXT:POKE1024+34+3*40,66 1278 FORI=1TO14:SYS50550,T,4,18,35,1:GOSUB1290:NEXT 1279 POKE1024+34+17*40,78:FORI=0TO10:NEXT:POKE1024+34+17*40,67 1280 FORI=1TO8:SYS50550,L,18,18,27,9:GOSUB1290:NEXT 1281 POKE1024+26+17*40,78:FORI=0TO10:NEXT:POKE1024+26+17*40,66 1282 FORI=1TO5:SYS50550,T,18,23,27,1:GOSUB1290:NEXT 1283 POKE1024+26+22*40,77:FORI=0TO10:NEXT:POKE1024+26+22*40,67 1284 FORI=1TO12:SYS50550,R,23,23,27,13:GOSUB1290:NEXT 1285 POKES+19,9:POKES+20,110:POKES+15,20:POKES+18,0 1286 POKE1024+38+22*40,32:FF=0:D=25:IFM=1THENM=0:GOTO100 1287 POKE1024+2+17*40,66 1288 IFR1=0THEND=0:F=1:R1=1 1289 PRINT" ":R1=1:RETURN 1290 POKES+18,33:FORW=0TOD:NEXT:POKES+18,0 1291 IFPEEK(2040)=14ANDFF=0THENGOSUB40000:IFM=1THENFF=1:POKES+4,0 1292 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOSUB41320:POKE2040,13:POKEV+21,1 1293 RETURN 1300 REM *BILD 9* 1301 POKES+19,12:POKES+20,50:POKES+15,5:POKES+24,15:POKES+18,0 1310 GOSUB41360:GOSUB40100:T=4:H=4 1311 SYS50550,H,13,19,4,17 1315 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1310 1316 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+18,0:GOTO100 1320 Z=INT(RND(1)*2)+1 1321 IFZ=1THENSYS50550,T,2,11,3,25:T=T+1:IFT=7THENSYS50550,H,2,11,3,25:T=T-1 1322 IFZ=2THENSYS50550,H,2,11,3,25:T=T-1:IFT=1THENSYS50550,T,2,11,3,25:T=T+1 1323 Z=INT(RND(1)*10)+1:IFZ=2THENPOKES+18,33 1324 SYS50550,L,2,11,9,13 1325 IFZ=2THENPRINT"";:FORI=1TOT:PRINT"";:NEXT:PRINT"[158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195]" 1326 IFZ=2THENPRINT"";:FORI=1TOT+3:PRINT"";:NEXT:PRINT"[158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195]" 1327 Z=INT(RND(1)*2)+1 1328 IFZ=1THENSYS50550,H,13,19,4,17:H=H-1:IFH=1THENSYS50550,T,13,19,4,17:H=H+1 1329 IFZ=2THENSYS50550,T,13,19,4,17:H=H+1:IFH=5THENSYS50550,H,13,19,4,17:H=H-1 1330 Z=INT(RND(1)*5)+1 1331 IFZ=1THENPRINT"";:FORI=1TOH+12:PRINT"";:NEXT:PRINT"[146][195][195][195][195][195][195]" 1335 IFPEEK(V+16)=1ANDPEEK(V)<10ANDPEEK(V+1)<70ANDF=0THENF=1 1336 IFF=1ANDQ<>0THENPOKEV+39,6:Q=Q-1:TR=TR+1:IFQ=0THENF=0 1337 IFF=1THENPRINT"":PRINTTAB(29)Q;:PRINT"[157] " 1338 F=0:POKEV+39,7 1349 Z=INT(RND(1)*10)+1:IFZ=2THENPOKES+18,0 1350 IFZ=2THENPRINT"";:FORI=1TOT:PRINT"";:NEXT:PRINT"[146] " 1351 IFZ=2THENPRINT"";:FORI=1TOT+3:PRINT"";:NEXT:PRINT"[146] " 1352 PRINT"";:FORI=1TOH+12:PRINT"";:NEXT:PRINT"[146] " 1353 GOTO 1315 1360 REM *BILD 10* 1361 F=0:F1=0:F2=0:POKES+12,10:POKES+13,10:POKES+8,30 1362 POKES+19,9:POKES+20,110:POKES+15,45:POKES+18,129 1365 GOSUB 41400:GOSUB40100:IFC1=0THENPRINT" [146]" 1366 Z=INT(10*RND(1))+1 1367 IFZ=2THENPRINT"":PRINT"[146][158][195][195][195][195][195][195][195][195][195][195][195][195][195]":POKES+11,0:POKES+11,129 1370 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1362 1371 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+18,0:GOTO100 1372 PRINT" " 1373 SYS50550,R,11,11,2,5:SYS50550,L,6,6,13,21:SYS50550,R,18,18,28,10 1375 IFF=0ANDPEEK(V)>159ANDPEEK(V+1)>204ANDPEEK(V+16)=0THENF=1:GOSUB1381 1376 IFF=1THENF1=F1+1:IFF1=30THENF=2 1377 IFF1=30THENF2=F2+1:IFF2<>10THENGOSUB1385 1378 IFF=2THENPRINT" " 1379 IFF2=10THENF=3:F1=0:GOSUB1390 1380 GOTO1366 1381 PRINT"":PRINTTAB(25)" " 1382 PRINT"":PRINTTAB(20)"[158] [146]":RETURN 1385 REM------ 1386 PRINT"[158][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":POKES+11,0:POKES+11,129 1387 RETURN 1390 PRINT"":PRINTTAB(25)"[154]  [146]" 1391 PRINT"":PRINTTAB(20)"[146] ":RETURN 1400 REM *BILD 11* 1401 HO=13:H1=15:SP=33:F1=0:POKE2040,13:POKE2041,13:POKEV+40,1:POKEV+2,60 1402 POKE2042,13:POKEV+3,30:POKEV+41,3:POKEV+4,60:POKEV+5,30 1403 POKEV+16,0:POKES+8,50:POKES+12,96:POKES+13,30:POKES+11,0:POKES+11,129 1410 GOSUB41440:GOSUB40100:POKES+19,9:POKES+20,13:POKES+15,45:POKEV+21,3 1415 GETA$:IFA$=CHR$(133)THENGOSUB39000:GOTO1400 1416 IFPEEK(2040)=14THENGOSUB40000:IFM=1THENM=0:POKES+11,0:POKEV+21,1:GOTO100 1417 IFF1=0THENPOKEV+3,PEEK(V+3)+2:IFPEEK(V+3)=64THENF1=1:POKES+8,30 1418 IFF1=1THENPOKEV+2,PEEK(V+2)+2:IFPEEK(V+2)=254THENF1=3:POKES+8,255 1419 IFF1=3THENPOKEV+3,PEEK(V+3)+2:IFPEEK(V+3)=74THENF1=4:POKEV+21,7:POKES+8,20 1420 SYS50550,R,16,16,20,4:SYS50550,L,18,18,20,4:SYS50550,L,HO,HO,SP,4 1421 SYS50550,R,H1,H1,SP,4:SYS50550,L,18,19,1,15:SYS50550,R,5,5,5,15 1422 SYS50550,T,8,11,24,1 1423 IFF1=4THENPOKEV+5,PEEK(V+5)+2:IFPEEK(V+5)=64THENF1=5:POKES+8,10 1424 IFF1=5THENPOKEV+4,PEEK(V+4)+2:IFPEEK(V+4)=224THENF1=6:POKES+8,255 1425 IFPEEK(V)>107ANDPEEK(V+1)>200ANDPEEK(V+16)=0ANDF=0THENF=1:GOSUB1480 1426 IFPEEK(V)>208ANDPEEK(V+1)>200ANDPEEK(V+16)=0ANDF=1THENF=2:GOSUB1482 1427 IFPEEK(V)>15ANDPEEK(V+16)=0ANDPEEK(V+1)>168ANDF=2THENF=3:GOSUB1484 1428 IFF=3THENGOSUB1484 1429 IFF1=6THENPOKEV+5,PEEK(V+5)+2:IFPEEK(V+5)=74THENF1=7:POKES+11,0 1430 IFPEEK(V)<230ANDPEEK(V+1)<130ANDPEEK(V+16)=0THENGOSUB1490 1431 IFPEEK(V)<164ANDPEEK(V+1)<140ANDPEEK(V+16)=0ANDF=4THENF=5:GOSUB1500 1432 IFPEEK(V)<110ANDPEEK(V+1)<110ANDPEEK(V+16)=0THENGOSUB1501 1435 IFPEEK(V)<80ANDPEEK(V+1)<150ANDPEEK(V+16)=0THENGOSUB1510 1450 GOTO 1415 1480 POKES+18,0:POKES+18,129:FORI=0TO2:POKE1024+15+40*(19+I),32:NEXT:RETURN 1482 POKES+18,0:POKES+18,129:FORI=0TO2:POKE1024+28+40*(19+I),32:NEXT:RETURN 1484 SYS50550,H,8,15,33,4:HO=HO-1:H1=H1-1:IFHO=8THENF=4:GOTO1486 1485 RETURN 1486 SYS50550,R,8,10,33,6:SYS50550,R,8,10,33,6:SP1=SP1+2 1487 POKES+18,0:POKES+18,129:FORI=0TO2:POKE1024+28+40*(8+I),32:NEXT:RETURN 1490 J=PEEK(56320):IF(JAND16)=0THEN1495 1491 RETURN 1495 PRINT"":PRINTTAB(25)" [206]":POKES+18,0:POKES+18,33 1496 PRINT"":PRINTTAB(19)" ":PRINTTAB(19)"[145] ":PRINTTAB(19)" " 1497 PRINTTAB(19)"[145] ":RETURN 1500 POKES+18,0:POKES+18,129:PRINT"":PRINTTAB(15)" ":RETURN 1501 J=PEEK(56320):IF(JAND16)=0THEN1505 1502 RETURN 1505 POKES+18,0:POKES+20,13:POKES+15,50:POKES+18,33 1506 C2=1:PRINT"1[146]":RETURN 1510 J=PEEK(56320):IF(JAND16)=0THEN1512 1511 RETURN 1512 PRINT"[146] [206]" 1513 POKE2041,14:POKE2042,14:POKES+19,9:POKES+20,13:POKES+15,20:POKES+11,0 1514 POKES+18,0:POKES+18,129:FORI=0TO50:NEXT:POKEV+21,1:F1=10:RETURN 1600 REM *BILD 12* 1601 :F1=0:F2=0:F=0:W=0:L=0:FF=0 1605 POKES+19,9:POKES+20,13:POKES+15,45:POKES+12,9:POKES+13,13:POKES+8,35 1606 POKE2041,13:POKEV+40,1:POKEV+2,40:POKEV+3,68 1610 GOSUB41480:GOSUB40100:POKEV+21,3:IFFF=1THENF=1:W=0:GOSUB1703 1615 IFPEEK(2040)=14ANDF<>6THENGOSUB40000:F1=0:F2=0:IFM=1THENM=0:GOTO100 1616 GETA$:IFA$=CHR$(133)THENGOSUB39000:F1=0:F2=0:F=0:GOTO1610 1617 IFF1=0THENSYS50550,H,3,22,35,4 1618 IFF1=1THENSYS50550,T,3,22,35,4 1619 SYS50550,L,12,15,6,26 1621 SYS50550,T,12,15,33,1:SYS50550,R,11,11,2,4:SYS50550,R,22,22,23,5 1622 IFPEEK(V)>10ANDPEEK(V+16)=1ANDPEEK(V+1)<100ANDC2=1ANDF=0THENF=1:GOSUB1700 1623 IFPEEK(V)>5ANDPEEK(V+16)=1ANDPEEK(V+1)<100THENGOSUB1698 1624 SYS50550,L,4,22,35,4 1625 IFPEEK(V)<207ANDPEEK(V+1)<160ANDPEEK(V+16)=0ANDCO=2ANDF=1THENF=2:GOSUB1705 1626 IFPEEK(V)>160ANDPEEK(V+16)=0ANDPEEK(V+1)>170ANDF=2THENGOSUB1696 1627 IFF=3THENSYS50550,L,20,20,2,13:L=L+1:IFL=7THENF=4:L=0:SYS50550,T,20,21,2,6 1628 IFPEEK(V)>200ANDPEEK(V+16)=0ANDPEEK(V+1)>200THENGOSUB1708 1630 IFPEEK(V)<43ANDPEEK(V+16)=0ANDPEEK(V+1)<120ANDF=4THENF=5:GOSUB1715 1631 IFF3=0THENPOKEV+2,PEEK(V+2)+2:IFPEEK(V+2)=90THENF3=1 1632 IFF3=1THENPOKEV+3,PEEK(V+3)+2:IFPEEK(V+3)=106THENF3=2 1633 IFF3=2THENPOKEV+2,PEEK(V+2)-2:IFPEEK(V+2)=36THENF3=3 1634 IFF3=3THENPOKEV+3,PEEK(V+3)+2:IFPEEK(V+3)=186THENF3=4 1635 IFF3=4THENPOKEV+2,PEEK(V+2)+2:IFPEEK(V+2)=100THENF3=5 1636 IFF3=5THENPOKEV+3,PEEK(V+3)+2:IFPEEK(V+3)=216THENF3=6 1637 IFF3=6THENF3=7:GOSUB1716 1640 IFPEEK(V)<110ANDPEEK(V+1)>210ANDPEEK(V+16)=0ANDF=5THENF=6:SYS50550,H,20,21,2,6 1641 IFF=6THENSYS50550,R,20,20,2,13:L=L+1:IFL=7THENL=0:GOSUB1718:GOTO3000 1650 GOTO1615 1696 J=PEEK(56320):IF(JAND16)=0THEN1706 1697 RETURN 1698 J=PEEK(56320):IF(JAND16)=0THEN1702 1699 RETURN 1700 POKES+18,0:POKES+18,129:FORI=0TO4:POKE1024+33+40*(3+I),32:NEXT:RETURN 1702 PRINT"":PRINTTAB(30)"[145] [146][159][205]":POKES+18,0:POKES+18,129:F1=1:FF=1 1703 FORI=0TO4:POKE1024+22+I+(21*40),32:NEXT 1704 FORI=0TO3:POKE1024+32+40*(11+I),32:NEXT:RETURN 1705 POKES+18,0:POKES+18,129:FORI=0TO9:POKE1024+16+I+(15*40),32:NEXT:RETURN 1706 POKES+18,0:POKES+18,129:PRINT"":PRINTTAB(16)"[146] " 1707 PRINT"":PRINTTAB(16)"[146][205]":F=3:RETURN 1708 W=50:POKEV+39,15:FORI=0TOW:NEXT:POKEV+39,12:FORI=0TOW:NEXT:POKEV+39,11 1709 FORI=0TO9:POKES+11,0:POKES+11,33:FORI1=0TO50:NEXT:NEXT:POKES+11,0 1710 FORI=0TOW:NEXT:POKEV+39,0:FORI=0TO99:NEXT:POKEV,168:POKEV+1,86:POKEV+16,0:POKEV+39,11 1711 POKE2040,13:FORI=0TOW:NEXT:POKEV+39,12:FORI=0TOW:NEXT:POKEV+39,15:FORI=0TOW:NEXT 1712 POKEV+39,7:W=0:RETURN 1715 POKES+18,0:POKES+18,129:PRINT"[146] ":RETURN 1716 POKEV+40,15:FORI=0TO50:NEXT:POKEV+40,12:FORI=0TO50:NEXT:POKEV+40,12 1717 FORI=0TO50:NEXT:POKEV+40,11:FORI=0TO50:NEXT:POKEV+21,1:RETURN 1718 POKES+19,9:POKES+20,12:FORI=0TO255:POKES+15,I:POKES+18,0:POKES+18,33 1719 FORL=0TO05:NEXT:NEXT 1720 POKEV+39,15:FORI=0TO50:NEXT:POKEV+39,12:FORI=0TO50:NEXT:POKEV+39,12 1721 FORI=0TO50:NEXT:POKEV+39,11:FORI=0TO50:NEXT:POKEV+21,0:RETURN 1900 REM *VORSPANN-TITEL* 1901 :I=0 1902 W$(0)="DIE SCHLACHT IM ENTFERNTEN SYSTEM DES PLANETEN CYLONS HAT IHR " 1903 W$(1)="SCHIFF UND SEINE INSASSEN IN DAS FREMDE REICH EINER IHNEN UNBEK" 1904 W$(2)="ANNTEN RASSE VERSCHLAGEN, DIE AUS DEN TIEFEN FREMDER GALAXIEN ZUR " 1905 W$(3)="MILCHSTRASSE VORGEDRUNGEN IST, UM DIE ENTMILIRARISIERUNG DER ERDE" 1906 W$(4)=" UND SEINER BEWOHNER VORZUNEHMEN. IHRE AUFGABE BESTEHT DARIN, INS " 1907 W$(5)="MYSTERIOESE LABYRINTH AUF DEM PLANETEN ASTERLIN EINZUDRINGEN UND ES" 1908 W$(6)=" LEBENDIG ZU DURCHQUEREN, UM SCHLIESSLICH DEN LEISTUNGSSTARKEN" 1909 W$(7)=" FIKTIVTRANSMITER IM SCHACHTE GOL ZU ERREICHEN UND MIT IHM INS " 1910 W$(8)="MILCHSTRASSENSYSTEM ZURUECKZUKEHREN, DAMIT DIE INVASION AUFGEHALTEN" 1911 W$(9)=" WERDEN KANN, DENN BEI IHRER FLUCHT GELANGETEN SIE AN GEHEIMMATERIA" 1912 W$(10)="L. DOCH DER WEG ZUM TRANSMITER SOLL FUER SIE ZUM TOEDLICHEN SPIEL" 1913 W$(11)=" WERDEN ! - MISSION TRANSMITER - EIN SPIEL VON THOMAS TROSKA (16) " 1914 W$(12)="DRUECKEN SIE F1 FUER DEN AKTUELLEN SPIELSTAND.":GOSUB41520:R=10:GG=0 1915 GETA$:IFA$=CHR$(133)THENGG=GG+1:IFGG=05THENGG=00 1916 IFA$=CHR$(134)THENR=R+1:IFR=28THENR=10 1917 IFA$=CHR$(135)THEN1950 1920 PRINT"":PRINTTAB(28)"[154]";GG;:PRINT"":PRINTTAB(24)"";R 1921 SYS50550,L,18,18,1,40 1923 B=B+1:IFB=LEN(W$(I))+1THENB=1:I=I+1:IFI=13THENI=0 1925 AK$=MID$(W$(I),B,1) 1926 PRINT"":PRINTTAB(39)"";AK$; 1930 GOTO 1915 1950 IFGG=0THENPOKE56325,070 1951 IFGG=1THENPOKE56325,065 1952 IFGG=2THENPOKE56325,060 1953 IFGG=3THENPOKE56325,050 1954 IFGG=4THENPOKE56325,040 1955 RETURN 2000 POKEV+21,0:POKE2040,14:POKES+4,0 2001 POKES+19,10:POKES+20,14:FORI=255TO0STEP-1:POKES+15,I:POKES+18,0:POKES+18,33 2002 POKE53281,7:POKE53280,7:POKE53281,0:POKE53280,0:FORL=0TO10:NEXT:NEXT 2003 PRINT"[147]":FORL=0TO200:POKE53281,7:POKE53281,0:NEXT:RESTORE 2004 PRINT"[147]G A M E O V E R":FORL=0TO1000:NEXT:GOTO4 3000 S=54272:POKES+24,15:POKEV+21,0:POKE2040,14:POKES+5,9:POKES+6,09:POKES+1,50 3005 PRINT"[147][159]" 3010 T$(1)="MISSION ERFOLGREICH BEENDET" 3011 T$(2)="---------------------------" 3012 T$(3)="MITTELS EINER DIMENSIONSVERLAGERUNG" 3013 T$(4)="WURDE IHR SCHIFF INS MILCHSTRASSENSYSTEM" 3014 T$(5)="TELEPORTIERT." 3015 T$(6)="SIE SIND DEN FEINDLICHEN INVASOREN" 3016 T$(7)="ENTKOMMEN UND SO KANN NUN DAS WICHTIGE" 3017 T$(8)="GEHEIMMATERIAL SICHERGESTELLT WERDEN." 3018 T$(9)="MIT SEINER HILFE LAESST SICH DIE" 3019 T$(10)="INVASION AUFHALTEN." 3020 T$(11)=" - SPACE FUER EINE NEUE SIMULATION - ":I=1 3025 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1);: 3026 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=2:PRINT 3027 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3028 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=3:PRINT:PRINT 3029 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3030 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=4:PRINT:PRINT 3031 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3032 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=5:PRINT 3033 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3034 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=6:PRINT:PRINT:PRINT 3035 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3036 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=7:PRINT:PRINT 3037 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3038 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=8:PRINT:PRINT 3039 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3040 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=9:PRINT:PRINT:PRINT 3041 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3042 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=10:PRINT:PRINT 3043 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3044 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT:I=11:PRINT:PRINT 3045 FORL=1TOLEN(T$(I)):PRINTMID$(T$(I),L,1); 3046 POKES+4,0:POKES+4,33:FORW=0TO50:NEXT:NEXT 3050 GETA$:IFA$=""THEN3050 3051 RESTORE:GOTO 4 35000 REM SPRITE DATAS ------------------------------------------------------- 35001 : 35005 DATA0,224,0,1,16,0,1,16,0,0,160,0,0,72,128,0,71,0,0,66,0,1,255,128,3,255 35006 DATA192,7,255,224,7,195,224,7,219,224,3,219,192,1,219,128,0,255,0,0,129,0 35007 DATA 1,129,128,2,66,64,4,60,32,8,102,16,63,129,252,62 35008 : 35009 DATA0,0,0,12,0,48,34,4,60,19,42,211,4,174,96,1,123,96,11,183,156,29 35010 DATA187,85,11,185,149,10,110,228,20,251,96,4,48,0,0,194,0,2,32,64,11,76,32 35011 DATA 0,0,228,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 39000 REM DATENAUSGABE ------------------------------------------------------- 39001 :POKEV+21,0:POKE2040,14:POKES+4,0: 39002 PRINT"[147][146]AKTUELLER DATENSTAND" 39003 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]" 39004 PRINT"RAUMSCHIFFE "; 39005 FORI=1TOR:PRINT"[158] [146]";:NEXT:PRINT 39006 PRINT"TREIBSTOFF ";:IFTR>28THENTR=28 39007 FORI=1TOTR:PRINT" [146]";:NEXT:PRINT 39011 GETA$:IFA$=CHR$(133)THENPOKEV+16,B:POKEV,SV:POKEV+1,SH:RETURN 39012 GOTO39011 40000 REM UNIVERSALABFRAGE --------------------------------------------------- 40001 : 40005 IFPEEK(V+1)=1THENSH=40:SV=PEEK(V):B=PEEK(V+16):Y=Y+1:GOTO40015 40006 IFPEEK(V+1)=254THENSH=243:SV=PEEK(V):B=PEEK(V+16):Y=Y-1:GOTO40015 40007 IFPEEK(V)=88ANDPEEK(V+16)=1THENSV=67:B=1:SH=PEEK(V+1):X=X-1:GOTO40015 40008 IFPEEK(V)=1ANDPEEK(V+16)=0THENSV=10:B=0:SH=PEEK(V+1):X=X+1:GOTO40015 40009 R=R-1:R1=1:POKES+5,12:POKES+6,50:POKES+1,15:POKES+4,0:POKES+4,129 40010 FORW=0TO50:POKE53280,7:POKE53280,0:NEXT:POKEV+16,0:POKEV,5:POKEV+1,5 40011 POKEV+31,0:POKE2040,13:POKEV+16,B:POKEV,SV:POKEV+1,SH 40012 POKES+5,12:POKES+6,120:POKES+1,2:POKES+4,0 40013 IFR<1THENGOTO2000 40014 GOTO 40106 40015 M=1:RETURN 40100 REM KLEINE ROUTINEN ---------------------------------------------------- 40101 :POKEV+16,0:POKEV,5:POKEV+1,5 40105 POKEV+31,0:POKE2040,13:POKEV+16,B:POKEV,SV:POKEV+1,SH:POKEV+21,1 40106 IFTI$>"000010"THENTI$="000000":TR=TR-1:IFTR<1THENGOTO2000 40107 IFTI$>"000020"THENTI$="000000":TR=TR-2:IFTR<1THENGOTO2000 40108 IFTI$>"000030"THENTI$="000000":TR=TR-3:IFTR<1THENGOTO2000 40109 RETURN 40110 POKES+24,15:POKES+5,12:POKES+6,120:POKES+12,10:POKES+1,2:POKES+13,10 40111 POKES+8,30:POKES+19,12:POKES+20,50:POKES+15,50:POKES+18,0:RETURN 41000 REM GRAFIKEN -----------------------*** BILD 1 ***---------------------- 41001 :POKE53280,0:POKE53281,0 41011 PRINT"[147]"; 41012 PRINT 41013 PRINT"[144][163][163][163][163][163][163][144][163][163][163][163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][167]"; 41014 PRINT"[165] [160] [167]"; 41015 PRINT"[165] [160] [167]"; 41016 PRINT"[165] [160] [167]"; 41017 PRINT"[165] [160] [167]"; 41018 PRINT 41019 PRINT"[165] [160] [167]"; 41020 PRINT"[165] [160] [167]"; 41021 PRINT"[165]  [146]  [146] [144][167]"; 41022 PRINT"[144][165] [160]  [158][146]  [146] "; 41023 PRINT"[152][162][185][175][164][175][185][151][177][152][185][162][185][175][185] [152][146][175] [164] [152][146][175][185][162][175][185][151][177][152][185][175][164][175][175][185] "; 41024 PRINT" [151] [152] [146][165] [182] [151] [152] [146] "; 41025 PRINT" [146][180] [167][160] [146] "; 41026 PRINT" [146][181] [182][160] [146] "; 41027 PRINT" [146][161] [167][160] [146] "; 41028 PRINT" [146][181] [160] [146] "; 41029 PRINT" [160][146][165] [167] [146] "; 41030 PRINT" [146][181] [182] [146] "; 41031 PRINT" [160][146][165] [167][160] [146] "; 41032 PRINT" [160][146][161] [182][160] [146] "; 41033 PRINT" [146][165] [160] [146] "; 41034 PRINT" [146][161] [167][160] [146] "; 41035 PRINT" [160][146][165] [182][160] [146] "; 41036 PRINT" [146][181] [167] "; 41037 RETURN 41040 REM *** BILD 2 *** 41050 PRINT"[147]"; 41051 PRINT"[152] [146][181] [182] [146] "; 41052 PRINT" [146][165] [167] [146] "; 41053 PRINT" [146][161] [167] [146] "; 41054 PRINT" [146][181]  [146] "; 41055 PRINT" [146][165] [182] [146] "; 41056 PRINT" [146][181] [167] [146] "; 41057 PRINT" [146][161] [182] [146] "; 41058 PRINT" [146][180]  [146] "; 41059 PRINT" [146][181] [167] [146] "; 41060 PRINT" [146][161] [182] [146] "; 41061 PRINT" [146][180] [167] [146] "; 41062 PRINT" [146][161] [167] [146] "; 41063 PRINT" [146][180]  [146] "; 41064 PRINT" [146][161] [182] [146] "; 41065 PRINT" [146][165] [167] [146] "; 41066 PRINT" [146][180]  [146] "; 41067 PRINT" [146][181] [167] [146] "; 41068 PRINT" [146][161] [167] [146] "; 41069 PRINT" [146][181] [182] [146] "; 41070 PRINT" [146]  [146] "; 41071 PRINT" [146][165] [167] [146] "; 41072 PRINT" [146][161] [182] [146] "; 41073 PRINT" [146] [182] [146] "; 41074 PRINT" [146][161] [167] [146] "; 41075 PRINT" [146][180]  "; 41076 RETURN 41080 REM *BILD 3* 41090 PRINT"[147]"; 41091 PRINT" [146]  [146] "; 41092 PRINT" [146]  [146] "; 41093 PRINT" [146]  [146] "; 41094 PRINT" [146]  [146] "; 41095 PRINT" [146]  [146] "; 41096 PRINT" [146]  [146] "; 41097 PRINT" [146]  [146] "; 41098 PRINT" [146]  [146] "; 41099 PRINT" [159]*##[146] ##* [146] "; 41100 PRINT" [146]  [146] "; 41101 PRINT" [159] [146]   [146] "; 41102 PRINT" [159] [146] [160] [146] "; 41103 PRINT" [159] [146] [151] [159][160] [146] "; 41104 PRINT" [159][160] [146] [160] [146] "; 41105 PRINT" [159][160][146]   [146] "; 41106 PRINT" [146]  [146] "; 41107 PRINT" [146]  [146] "; 41108 PRINT" [146]  [146] "; 41109 PRINT" [146]  [146] "; 41110 PRINT" [146]  [146] "; 41111 PRINT" [146]  [146] "; 41112 PRINT" [146]  [146] "; 41113 PRINT" [146]  [146] "; 41114 PRINT" [146]  [146] "; 41115 PRINT" [146]  "; 41116 RETURN 41120 REM *BILD 4* 41130 PRINT"[147]"; 41131 PRINT" [158][146][171] [179] [146] "; 41132 PRINT" [223][146] [169] [146] "; 41133 PRINT" [223][146] [169] [146] "; 41134 PRINT" [146]  [159]  [146] "; 41135 PRINT" [158]  [158]  [158]  [158]  [158]  [146][169] [158] [146]  [146] "; 41136 PRINT" [160][146]  [146] [160] [160][160][146] "; 41137 PRINT" [146] [158] [146] [160]  [160][146] "; 41138 PRINT" [160][146]  [146]  [160][146] "; 41139 PRINT" [146] [158]  [158]  [158]  [158]  [158]  [158]  [158]  [146]  [160][146] [160][160]"; 41140 PRINT"[146] "; 41141 PRINT" [146]  [146]  [152][146][183] [146][183][183][160][146]  [160][146] "; 41142 PRINT" [146] [160] [146]  [159][146]##[146]##[160][160][146] "; 41143 PRINT"[160]00 [146][195] [160][160][146] [160][159]#[146]##[146]# [160][146] "; 41144 PRINT" [146] [160][146]  [146] [160][160][146] "; 41145 PRINT" [146] [160][146] [160][160][146] "; 41146 PRINT" [160][146]  [146] [160] [160] [146] "; 41147 PRINT" [146]  [146]  [146] "; 41148 PRINT"  [158][146][195][195][195][195][195][195][195][195][195] [146] [160] [146] "; 41149 PRINT" [223] [146] [160][146] [160][160][146] "; 41150 PRINT" [223] [146]  [146]  [159]  [146] "; 41151 PRINT" [223] [146] [160][146]  [146] [160][146] [160] "; 41152 PRINT" [146] [160][146]  [146] [158][194] [160][146] [160] "; 41153 PRINT" [223][146]  [146]  [152][146][175] [146][175][175] [146] [160] "; 41154 PRINT" [223][146]  [223][146] [169] [146] "; 41155 PRINT" [223][146] [160] 2[158][205][205][158][205][205]2 [146]  [146] "; 41156 PRINT" [146]  [146]  "; 41157 RETURN 41160 REM *BLID 5* 41170 PRINT"[147]"; 41171 PRINT" [160] [146] "; 41172 PRINT"[160][146] [194] [160][146] [146] [160] [146] [223] [146] "; 41173 PRINT"[160][146] [216] [160][146] [160][160][146] [160] [146] "; 41174 PRINT" [146][216]2[146][216] [146] [160] [146] [160] [146] "; 41175 PRINT"[160][146] [216] [160][146]  [146]  [146] "; 41176 PRINT"[160][146] [160][146]  [146]  [146] [160][146]  [146] "; 41177 PRINT"[160][146] [160][159]  [146]  [146] [160][146]  [146] "; 41178 PRINT"[160][146] [160][159] [160][146]  [146] [160][146]  [146] "; 41179 PRINT"[160][146] [160][159] [160][146]  [146] [160][146]  [146] "; 41180 PRINT"[160][146] [160][159] [160][146] [169][160][146]  [146] [160] [146] "; 41181 PRINT"[160][146] [160][146] [160][146]  [146] [169] [146]  [146] "; 41182 PRINT"[160][146] [160][146] [160][146] [160]  [160][146]  [146] "; 41183 PRINT"[160][146] [160][146] [160][146] [160]  [146]  [146] "; 41184 PRINT"[160][146] [160][146] [160][146] [160][160] [160][146]  [146] "; 41185 PRINT"[160][146] [160][146]  [146] [160] [160][146]  [146] "; 41186 PRINT" [146]  [159] [160][146] [160] [160][146]  [146] "; 41187 PRINT"[160][146]  [159]  [223][146] [160] [160][146]  [146] "; 41188 PRINT"[160][146]  [159]  [146] [160][146] "; 41189 PRINT" [146]  [159] [146]  [146][164][175][185][175][162][185][175][185][175] [146] "; 41190 PRINT" [146] [160][146]    [223][146] "; 41191 PRINT" [146] [160][146] [160]  [146] "; 41192 PRINT" [146] [160][146] [158] [146]  [146]  [146]  [146]_ [146] "; 41193 PRINT" [146] [160][146] [158] [146]  [146]  [146]  [146]_ [146] "; 41194 PRINT" [146] [160][146] [146][158] [146]  [146]  [146]  [146]_ [146] "; 41195 PRINT" [146]  [153] [146]    "; 41196 RETURN 41200 REM *BILD 2* 41210 PRINT"[147]"; 41211 PRINT"[152] [146][165] [182] [146] "; 41212 PRINT" [146][181] [167] [146] "; 41213 PRINT" [146][161] [223] [146] "; 41214 PRINT" [146][180] [182] [146] "; 41215 PRINT" [146][161] [167] [146] "; 41216 PRINT" [146][181] [223] [146] "; 41217 PRINT" [146][165] [182] [146] "; 41218 PRINT" [146][180] [167] [146] "; 41219 PRINT" [146][181]  [146] "; 41220 PRINT" [146][161] [223] [146] "; 41221 PRINT" [146]  [146] "; 41222 PRINT" [146][181]  [146] "; 41223 PRINT" [223][146] [169] [146] "; 41224 PRINT"[152] [146][165]  [146] "; 41225 PRINT"[152] [146][181]  [146] "; 41226 PRINT" [146][161] [169] [146] "; 41227 PRINT" [146][180] [182] [146] "; 41228 PRINT" [146][169] [169] [146] "; 41229 PRINT" [146][169] [182] [146] "; 41230 PRINT" [146][165] [167] [146] "; 41231 PRINT" [146][181] [169] [146] "; 41232 PRINT" [146][161] [167] [146] "; 41233 PRINT" [146][169] [182] [146] "; 41234 PRINT" [146][180] [223] [146] "; 41235 PRINT" [223][146] [169] "; 41236 RETURN 41240 REM *BILD 6* 41250 PRINT"[147]"; 41251 PRINT" [146]  [159]E [159]L [159]E [159]M [159]I [159]N [159]A [159]T [159]I [159]O [159]N [146] "; 41252 PRINT"  [146] "; 41253 PRINT" [146]  [155] [146] [182] [146] [155]  [146] "; 41254 PRINT"[160][146] [160][155] [146][173] [160][146] [155] 00  [146] "; 41255 PRINT"[160][146] [160][155] [146][176] [160][146] [155]  [146] "; 41256 PRINT"[160][146] [160][155] [146] [158][160] [155][182][160][146]  [146] "; 41257 PRINT"[160][146] [160] [160][146]  [160][146]  [146] "; 41258 PRINT" [146]  [146]  [160][146]  [146] "; 41259 PRINT" [146]  [146]  [160][146]  [146] "; 41260 PRINT" [146]  [146]  [160][146]  [146] "; 41261 PRINT" [146] [160][146] [160] [146]  [146] "; 41262 PRINT" [146]  [146]  [158]  [146]  [146] "; 41263 PRINT" [146]  [150][146][195][195][195][195] [146]  [146] [160][146] "; 41264 PRINT" [146]  [158][146][176][195][195][195][195][174][160] [146] [160][146] "; 41265 PRINT" [146]  [160][158][146][179][153]BOMB[158][171][160] [146] [160][146] "; 41266 PRINT" [146]  [158][146][173][195][195][195][195][189][160] [146]  [146] "; 41267 PRINT" [146]  [146]   [146][164][175][185][175][164][175][185][175][162][185][175][185][175][164][175][164][175][175][164][175] "; 41268 PRINT" [146] [160]  [146] "; 41269 PRINT" [146]  [158]L [158]A [158]S [158]E [158]R [146] "; 41270 PRINT" [146] [158][163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] "; 41271 PRINT" [146][169] "; 41272 PRINT" [155] [146][171] "; 41273 PRINT" [155] [146][181] "; 41274 PRINT" [155] [146][171] "; 41275 PRINT" [223][146] [158][164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] [164] "; 41276 PRINT"  [158]L [158]A [158]S [158]E [158]R "; 41277 RETURN 41280 REM *BILD 7* 41290 PRINT"[147]"; 41291 PRINT" [159] [146]  [146] [160] [146] "; 41292 PRINT" [159]  [159] [146] [160] [146] "; 41293 PRINT"[160][159]  [146] [159] [146] [160][160][146] "; 41294 PRINT"[160][159] [160] [146] [159][160][146] [160][160][146] "; 41295 PRINT"[160] [159] [160][146] [159][160] [160][146] "; 41296 PRINT"  [159] [160][146] [159][160][146]   [146] "; 41297 PRINT" [160][159] [160][146]  [146] [160]  [146] "; 41298 PRINT" [160][159]  [146] [160][146] [160]  [146] "; 41299 PRINT"  [146]  [146] [160][146] [160]  [146] "; 41300 PRINT" [146]  [146]  [160][146] [160][146] [160] [146]  [146] "; 41301 PRINT" [146] [160][146] [160][146]  [146] "; 41302 PRINT" [146]  [146] [160][146] [160]  [146] "; 41303 PRINT" [146]  [146] [160][146] [160]  [146] "; 41304 PRINT" [146] [160][146] [160][146] [160]  [146] "; 41305 PRINT"  [160] [146]  [146] "; 41306 PRINT"[164][175][185][175][185][175][185][162][185][175][185][175][185][185][175][164][175][164] [160][160][146]  [146]  [146] "; 41307 PRINT" [160][146]  [146]  [160][146] "; 41308 PRINT" _ _ _ [146]  [146]  [160][146] "; 41309 PRINT"[158][163] [163] [163] [163] [163] [146][194] [158][146][194] [146][194] [158][146][194] [146][194] [146] [160][146]  "; 41310 PRINT"[146] "; 41311 PRINT" [160] [159]  [146] [194][194][194][146] "; 41312 PRINT" [160] [160] [158][194][194][194][146] "; 41313 PRINT" [160] [194][194][194][146] "; 41314 PRINT" [160] [158][194][194][194][146] "; 41315 PRINT"[164] [164] [164] [164] [164] [158][146][194] [146][194] [158][146][194] [146][194] [158][146][194] [146] [159]  [146] [160] [194]"; 41316 PRINT"[194][194][146] "; 41317 PRINT" _ _ _ "; 41318 RETURN 41320 REM *BILD 8* 41330 PRINT"[147]"; 41331 PRINT"[153] [146]   [153] [146] "; 41332 PRINT" [146][169] [223] #[153] [146][169] [160] [223] [146] "; 41333 PRINT" [146] [223] [146] [160]  [146] "; 41334 PRINT"[160][146] [160][146] [160] [160][146] "; 41335 PRINT"[160][146]  [146] [160][146] "; 41336 PRINT" [146]  #[153] [223][146]  [146] [169] [146] [160][146] "; 41337 PRINT"[160][146] [223] [146][169] [223] [146]  [146] [160][146][169]  [146] "; 41338 PRINT"[160][146] [160][146] [160][146]  [146] [160][160][146] [160][146] "; 41339 PRINT"[160][146] [160][146] [160][146]  [146] [160][146] [160][146] "; 41340 PRINT"[160][146]  [146] [160][146]  [146] [160][160][146] [160][146] "; 41341 PRINT"[159]#[146] #[146] [153][160] [160][146]  [146] [160][160] [146][162] [162] [153] [146] "; 41342 PRINT"[159]#[146] #[146] [153][160] [160][146] [160][146] [160][146][184] [184][153] [146] "; 41343 PRINT"[159]#[146] #[146] [153][160] [160][146]  [146] [160][160][146]  [146] "; 41344 PRINT"[159]#[146] #[153][223][146] [169] [146] [160][223][146] [169][160][223][146]  [146] "; 41345 PRINT"[159]#[146] #[153] [146][169] [223] [146] [160][146] "; 41346 PRINT"[159]#[146] #[153][146][169] [223] [146][169] [160][146] "; 41347 PRINT"[159]#[146] #[146] [153][160] [160] [146] [160][146] "; 41348 PRINT"[159] [146][158][194][159] [146] [153][160] [160][160][146] [160][146] "; 41349 PRINT"[159] [153][146][160] [160] [160] [146] [169] [146] "; 41350 PRINT" [169] [146]  [146]  [146] "; 41351 PRINT" [153][160][146][169] [160] [146] "; 41352 PRINT" [160][146] [160] [160] [146] "; 41353 PRINT" [169][160][146] [160] [160] [146] "; 41354 PRINT"[160] [160][146] [160] [169][160][160][223][146] "; 41355 PRINT" [153] [223][146] [169]  "; 41356 RETURN 41360 REM *BILD 9* 41370 PRINT"[147]"; 41371 PRINT" [150][166][146] [160][153][160] [160][146] [150][166] [146] [153] [146] "; 41372 PRINT" [150][166][146] [160][153][160][146] [160][146] [150][166][158][176][195][195][195][195][174] [153][160][146] "; 41373 PRINT" [150][166][146] [160][153] [146] [160][146] [150][166][158][194] [153][160][146] "; 41374 PRINT" [150][166][146] [160][153] [146] [160][146] [150][166][158][194] [153][160][146] "; 41375 PRINT" [150][166] [223][146][160][153][160][169] [158][146][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195] [223][153][160][146] [169] [150][146][166][158][194] "; 41376 PRINT" [153][160][146] "; 41377 PRINT" [150][166][160] [146]  [160] [150][146][166][158][173][195][174][176][195][189] [153][160][146] "; 41378 PRINT" [150][166] [146] [160] [160] [150][146][166][158][176][174][171][179][176][174] [153][160][146] "; 41379 PRINT" [150][166] [146][169][160][153][160][146][223] [158][146][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195][195][158][195] [146][169][153][160][146] [223][160][150][146][166]"; 41380 PRINT"[158][194][146][171][177][177][179][194][146] [153][160][146] "; 41381 PRINT" [150][166][146] [160][153][160][146] [160][146] [150][166][158][194] [194][146] [153][160][146] "; 41382 PRINT" [150][166][146] [160][153][160][146] [160][146] [150][166][158][194][146][195][195][195][195][194][146] [153][160][146] "; 41383 PRINT" [150][166][146] [153] [146] [160][146] [150][166][158][194][146]FUEL[194][146] [153][160][146] "; 41384 PRINT" [150][166][146] [154] [153] [146] [160][154] [146] [153] [146] [150][166][158][194][146][195][195][195][195][194][146] [153] "; 41385 PRINT"[146] "; 41386 PRINT" [150][166][146] [154][194] [153] [146]  [146] [154][194] [153] [146] [150][166][158][173][195][195][195][195][189][146] [153] [146] "; 41387 PRINT" [150][166][146] [154][194] [153][160][146] [160][146] [154][194]   [146] [153] [146] "; 41388 PRINT" [150][166][146] [154][194] [153] [146] [160][146] [154][194] [153][160][146] "; 41389 PRINT" [150][166][146] [154][194] [153][160][146] [160] [160][146] [154][194] [153][160][146] "; 41390 PRINT" [150][166][146] [154] [146][209][153][160][146] [160][154][146][209] [146] [153][160][146] "; 41391 PRINT" [150][166][146] [154][160] [146][166][158][166][166][158][166][166][158][166] [160][154][160][146] [153][160][146] "; 41392 PRINT" [150][166][146] [154] [146][209][153] [146]  [154][146][209][160][146] [153][160][146] "; 41393 PRINT" [154] [153] [146] [160]  [154] [146] [153][160][146] "; 41394 PRINT" [160]  [146] [153][160][146] "; 41395 PRINT" [160]  [146] [169][153][160][146] "; 41396 PRINT" [160][146]  [146]  [153][160][146] "; 41397 PRINT" [169][160][146] [160] [153] [146] "; 41398 PRINT" "; 41399 RETURN 41400 REM *BILD 10* 41410 PRINT"[147]"; 41411 PRINT"[171][146] [155][194][146][189][182][151] [152] [151] [146]  -----------------------[146] "; 41412 PRINT"[171][146] [155][173][194][146] [182][151] [152] [159] [146] -[146] "; 41413 PRINT"[171][146] [155][194][146][189][182][151] [159][160][146] -[146] "; 41414 PRINT"[171][146] [155][173][194][146] [207][207][207][207][159] [146] -[146] "; 41415 PRINT"[171][146] [155][194][146][189] [204][204][204][204]------------------------[146] -[146] "; 41416 PRINT"[171][146] [155][173][194][146] [194] [213][195]= = = = = = = -[146] "; 41417 PRINT"-[146] "; 41418 PRINT"[171][146] [153][155] [194][146][189] [194] [194]  -[146] -[146] "; 41419 PRINT"[171][146] [155][194][146] [171][195][195][203] [160] [160]  -[146] [153] [146] "; 41420 PRINT"[171][152][146][201][155][173][194][146] [152][213][178][203] [160] [160]  -[146] [153][160][146] "; 41421 PRINT"[171][152][146][171][195][155][194][152][146][195][219] [146] [160] [160][153] [146] [160][146] "; 41422 PRINT"[171][146][164][175][162][185][164][152] [146] [164][175][164] [175][185][175][175] [160] [160][153] [146] [160][146] "; 41423 PRINT"[171] [152][160][146] [199][199][194][199][194][194][194][199][194][199][194][199][194][146] [160][153][160][146] [160][146] "; 41424 PRINT"[171] [152] [146] [194][194][146] [199][146]  [153] [146]  [146] "; 41425 PRINT"[171] [154] [146] [199][146] [194][199][146] [153] [146] [160] [146] "; 41426 PRINT"[171] [154] [146] [194][146] [194][199][146] [153] [159] [146] "; 41427 PRINT"[171] [154] [146] [154] [146] [160] [146] [153] [159] [146] "; 41428 PRINT"[171] [154] [146]  [146]  [160][146] [153] [159] [146] "; 41429 PRINT"[195][195][195][195][153][146][171] [179][195][146] [154] [160] = = = = =[153] [146] "; 41430 PRINT" [146] [154] [146][185][175][164][175][164] [164][175][185][154] [146] [160] [158][146][160]  [153] [146] "; 41431 PRINT" [146] =[154] =[146] [154][160][160][146] [158][160] [176][195][174] [153] [146] "; 41432 PRINT" [154][160] [146] [158][160][160][213][195] [146] [171][195][201] [153] [146] "; 41433 PRINT" [154]  [146] [195] [146] [171][195][179] [202][153] [159] [146] "; 41434 PRINT" [164] [164] [164] [164][164] [154][160] [146] [202][195] [146][213][177][201][153] [159] [146] "; 41435 PRINT" =[154] =[146][164][175][185][164] [185][175] [154]  [153] [159] [146] "; 41436 PRINT" [154] [153] [159] "; 41437 RETURN 41440 REM *BILD 11* 41450 PRINT"[147]"; 41451 PRINT"[153][160] [146][154] [153] [146] "; 41452 PRINT"[160][146][219][195][203] [202][158][184][184][195][195][158][184][184][195][195][158][184][184][177][178][177][195][158][184][184][195][195][158][184][184][195][195][158][184][184][195][195][158][184][184][153] [146] "; 41453 PRINT"[160][154][146][194] [213][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][153][160][146] "; 41454 PRINT" [154][146][179] [194] [158][160] [153][160][146] "; 41455 PRINT"[160][154][146][194] [158][164] [164] [164] [164] [164] [194][160] [160] [153][160][146] "; 41456 PRINT"[160][154][146][179] [153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][146][160] [152][185][185][185][185][185][185][185][185][185][185][185][185] [153] [146] "; 41457 PRINT"[160][154][146][194] [153][160]-[146] [154] [146] [153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146] "; 41458 PRINT"[160][154][146][179] [153][160]-[146] [154] [146] [153] [146] [194] [150][195][146] [153] [146] "; 41459 PRINT"[160][154][146][194] [153][160]-[146] [154] [146] [153][160][146] [194] [194][146] [153] [146] "; 41460 PRINT"[160][154][146][179] [153] -[146] [154]1 [146] -[153] [150][194][195][195][195][150][194][153] [160][146] [158][194] [194][146] "; 41461 PRINT"[153] [146] "; 41462 PRINT"[160][154][146][194] [153] ------[153][160][146] [160][146] [194] [194][146] [153][160][146] "; 41463 PRINT"[160][154][146][179] [153] [160][146]  [146] [150][195][146] [153][160][146] "; 41464 PRINT" [154][146][194]  [153] [146]  [146] [158][164] [153][160][146] "; 41465 PRINT" [154][146][179]  [153][160][146] [205] [153] [150][194][195][195][195][195][150][194][153] [146] "; 41466 PRINT"[160][154][146][194] [155][205]  [159][160][153][160][146]  [146] [153] [146] [158] [163] [153] [146] "; 41467 PRINT" [154][146][179][159][195][201][159] [146][213][159][195][195][195][195][153] [159][146][195][195][195][195][195][195][195] [158][164] [153][160][150][206][206][206][206][153] [146]  "; 41468 PRINT"[146] "; 41469 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]====[153][195][195][195][195][195][195][146] [158][160] [153][160][146] "; 41470 PRINT"[159][195][195][178][195][195][178][195][195][178][195][195][178][195][195][178][153] [159][146][195][195][195] [158][163] [159][195][195][195][195][195][153] [146] [160][146] "; 41471 PRINT"[163][163][158][184][163][163][158][184][163][163][158][184][163][163][158][184][163][163][158][184][150][195][146] [195][146] [153][160][146] "; 41472 PRINT"[160][146] [160] [194][146] [194][146] [153][160][146] "; 41473 PRINT"[159]=[146] [194][146] [194][146] [159]=[146] "; 41474 PRINT"=[146] [153][160][160][160] [194][146] [194][146] [159]=[146] "; 41475 PRINT"[153][160][146] [150][195][146] [195][146] [153] [146] "; 41476 PRINT" [158][146][160] [171][174][176][195][174][176][179] [153] [159][146][195][195][185][185][195][195][195][185][185][195][195][195][153] [146] [171][174][176][174][176][179] [153] [146] "; 41477 PRINT" [146]  "; 41478 RETURN 41480 REM *BILD 12* 41490 PRINT"[147]"; 41491 PRINT"[153] == == [159] [153] [159][195][195][195][195][195][195][146] "; 41492 PRINT"[153] [146] [158][183][183] [194][158][183][183] [183][183] [183][183] [183][183] [183][183] [183][183][194][159][206] [158][183][153]=[159][195][195][195][195][195][146] "; 41493 PRINT"[153]=[146] [194] [194][153][160][160] =[159]----[159][195][146] "; 41494 PRINT"[153]=[146] [194] [159][213][195][195][195][195][195][195][195][195][195][195][201] [194] -----[159][195][146] "; 41495 PRINT"[153][160][146] [194] [159][194] [150][194] -----[159][160][146] "; 41496 PRINT"[153][160][154][195][195][195][195][195][195][146] [159][194] [194] [153][160] -----[159][160][146] "; 41497 PRINT"[153] [146][195][195][195] [159][194] [194] -[158][146][195][195][158][195][195][159][160][146] "; 41498 PRINT"[153]=[146] [159][194] [194] [194] [153][175]-[146] [159] [146] "; 41499 PRINT"[153]=[146] [213][195][195][154]=[146][195][195][195][195][195][195][195][195][195][195][154]=[146][195][195][219][201][153]^1=[146] [159] [146] "; 41500 PRINT"[153] [146] [194] [169][154]=[146] =[223][146] [194][194][153][171]==[146] [159] [146] "; 41501 PRINT" [146][195][158][195][195][195][159] ==========[159][160] [146] [160][146] "; 41502 PRINT"[160][146] [158][167][156][194][194]==[146] ==[146] ==[146] ==[156][194][146] [158][194] [159][160][146] "; 41503 PRINT"[160][146] [158][167][156][194][194]==[146] ==[146] ==[146] ==[156][194][146] [158][194] [195][195][195][158][195][159][160][146] "; 41504 PRINT"[160][146] [158][167][156][194][194]==[146] ==[146] ==[146] ==[156][194][146] [194] [159][160][146] "; 41505 PRINT"[160][146] [158][167][156][194][194]==[146] ==[146] ==[146] ==[156][194][146] [158][194] [159][160][146] "; 41506 PRINT" [146]  [153]----------[159] [160][146] [160][146] "; 41507 PRINT" [146] [158][184][184] [184][184] [184][184] [159] [146] [153]_[195][195][160] [159][160][146] [160][146] "; 41508 PRINT"[160][146] [160][146] [153] 2[159] [146]  [146] "; 41509 PRINT" [146] -[146][206] [153][183][183][183]-[158][146][195][195][195][158][195][159][160][146] "; 41510 PRINT" [146] [213][195][195][195][195][201] -[146] [159][160]----[159][160][146] "; 41511 PRINT"[160][146] [154] [146]  [146] [159][160][146] [160]----[159][160][146] "; 41512 PRINT"  [146] [154] [159][160][146] [213][179][195][195][195][195][195][171][201] [159][160]----[159][160][146] "; 41513 PRINT" [153]-------[154] [146] [160][153]-[159] [146][162][185] [213][159][194][146][179] [171][159][194][146][201] [159][175][185]-[146] -"; 41514 PRINT"[146] "; 41515 PRINT"[160]========[158][146][164][164][164][164]==[159][160][194]2[153][146][194][159][194][194][146][219][201][164][164][164][213][219][159][194][194][153][146][194][159]2[194] [146]  "; 41516 PRINT"[146] "; 41517 PRINT" ======[159] [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]  "; 41518 RETURN 41520 REM *VORSPANN - TITEL* 41530 PRINT"[147]"; 41531 PRINT" [164] [164] [164] [164][164][164] [164][164][164] [164] [164][164][164] [164] [164] "; 41532 PRINT" [206][206][205][164][206][206][206][206][206] [206][206] [206][206][206][206] [206][206][206][205][206][206][165] "; 41533 PRINT" [159][160][223][146][206][159][169] [146]  [146]  [146][206][159] [146][206][159][160][146]  [146]  [223][146] [160][146] [165]"; 41534 PRINT" "; 41535 PRINT" [159][160] [160][146] [160][146]  [146][206] [206][159] [146][206] [206][159][160][146]  [146]  [146]  [223][160][146] [165] "; 41536 PRINT" "; 41537 PRINT" [159][160][146][223][160][146][169] [146] [160][146]  [146]  [146] [160][146]  [146]  [146]  [146][223] [160][146] [165] "; 41538 PRINT" "; 41539 PRINT" [159][160][146][167] [159] [146]  [146] [206] [159] [146] [206] [159][160][146] [160][146]  [146][206][159] [146] [160][146][167][159][223]"; 41540 PRINT"[160][146] [165] "; 41541 PRINT" [159] [146][206][160] [159][160][146][206][159] [146][206][159] [146][206][159] [146][206][159] [146][206][159] [146][206][159][160]"; 41542 PRINT"[146][206] [159] [146][206][153] FIXED BY 8R0TK4$T3N"; 41543 PRINT 41544 PRINT" WRITTEN BY THOMAS TROSKA IN 1987 "; 41545 PRINT 41546 PRINT" [154]F1 - GESCHWINDIGKEIT [ 0 ] "; 41547 PRINT 41548 PRINT" F3 - RAUMSCHIFFE [ 10 ] "; 41549 PRINT 41550 PRINT" F5 - SPIELSTART "; 41551 PRINT 41552 PRINT 41553 PRINT 41554 PRINT" [164][164][164] [164][164][164] [164][164][164] [164] [164] [164][164][164] [164] [164] [164] [164][164][164] [164][164][164] [164][164][164] "; 41555 PRINT"[206] [206][206] [206][206] [206][206][206][205][206][206][206] [206][206][206][206][206][206][206][206] [206][206] [206][206] [206] "; 41556 PRINT"[159] [146][206][159] [146]  [146]  [223][146]  [146]  [146][206][159] [146]  [146]  [146]  [146][206][159] "; 41557 PRINT" [146][206][159] [146] "; 41558 PRINT"  [146] [165][159] [146][206][159] [146][206][159] [146][206][159] [146]  [223][160][146]  [146][206] [206][159] [146]  [146] [165][159][160]"; 41559 PRINT"[146] [165][159] [146] [206][165][159] [146][206][159] [146][206] "; 41560 PRINT" [159][160][146] [165][159] [146][169][205][159] [146]  [146][223] [160][146]  [146]  [146] [160][146]  [146] [165][159][160][146] [165][159][160]"; 41561 PRINT" [146][206] [159] [146][169][205] "; 41562 PRINT" [159] [146] [165][159] [223][146][206][159] [146]  [146]  [146][167][159][223][160][146] [206] [159] [146] [160][146] [160][146] [160][146] [165][159][160]"; 41563 PRINT"[146] [165][159] [146][206] [206][159] [223][146][206] "; 41564 PRINT" [159][160][146][206] [159] [146][206][159] [146][206][159][160][146][206][159] [146][206][159][160][146][206][160][159][160][146][206][159] [146][206][159][160][146][206][159] "; 41565 PRINT"[146][206][159][160][146][206] [159] [146][206] [159] [146][206][159] [146][206][159] [146][206]"; 41566 RETURN