home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 70
/
Digital_Talk_70_2005-01-01_Digital_Talk_de_Side_D.d64
/
msstrn.exe.broti
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
37KB
|
827 lines
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