Das Boot – Ein tolles Spiel für den VC 20

0 print"{clr}{down}{down}load"chr$(34)"das boot"chr$(34)",8";:print"{home}";
1 fori=256to264:poke5120+i,0:next
2 fori=0to1463:reada:poke5120+i,a:next:new
9 data0,0,0,0,0,0,0,0
10 data63,63,51,51,63,115,115,115
11 data62,51,51,60,51,115,127,126
12 data63,63,51,48,48,115,127,127
13 data60,62,51,51,51,115,127,127
14 data63,63,51,60,60,115,127,127
15 data63,63,48,60,60,112,112,112
16 data63,63,51,48,55,115,127,127
17 data51,51,51,63,63,115,115,115
18 data63,63,28,28,28,124,127,127
19 data30,30,6,6,102,103,127,63
20 data51,54,60,56,56,124,118,115
21 data48,48,48,48,48,115,127,127
22 data49,59,63,53,49,113,113,113
23 data51,59,63,55,51,115,115,115
24 data63,63,51,51,51,115,127,127
25 data62,63,51,63,62,112,112,112
26 data63,63,51,51,55,118,127,123
27 data63,63,51,63,63,124,118,115
28 data30,63,56,30,7,115,127,126
29 data63,63,12,12,12,28,28,28
30 data51,51,51,51,51,115,127,127
31 data51,51,51,51,51,115,126,124
32 data49,49,49,49,53,127,123,113
33 data51,51,51,51,12,115,115,115
34 data102,102,102,24,24,120,126,126
35 data63,63,6,12,24,112,127,127
50 data128,175,255,255,31,31,255,127
60 data119,121,119,126,127,121,127,127
70 data127,127,127,127,127,127,127,127
80 data127,126,255,191,191,209,255,255
90 data0,223,223,159,191,255,255,129
91 data0,0,0,0,0,0,0,0
100 data128,128,128,0,129,255,255,255
109 data0,0,0,0,0,0,0,0
110 data255,255,255,255,255,129,128,128
120 data128,0,1,255,255,255,255,255
130 data0,252,255,255,251,247,255,255
140 data255,255,255,255,255,255,255,254
150 data252,248,255,255,191,223,223,255
160 data255,255,255,127,255,255,191,156
170 data3,3,3,131,195,199,231,231
180 data224,227,231,239,207,159,159,31
190 data31,31,15,159,223,255,255,255
200 data255,255,255,207,207,135,3,0
210 data227,225,255,255,255,255,255,178
220 data255,255,255,255,253,248,248,248
225 data248,248,248,248,248,248,248,248
230 data126,126,102,102,102,102,126,126
231 data12,28,60,124,12,12,12,12
232 data126,126,102,110,28,56,126,126
233 data126,126,6,62,62,6,126,126
234 data96,96,108,126,126,12,12,12
235 data126,126,96,126,126,6,126,126
236 data126,126,96,126,126,102,126,126
237 data126,126,102,14,28,56,48,48
238 data126,126,102,126,126,102,126,126
239 data126,126,102,126,126,6,126,126
240 data248,253,255,255,223,215,243,243
250 data255,255,254,254,231,195,129,0
260 data248,254,255,255,249,249,255,255
270 data255,255,239,247,255,255,255,255
280 data255,255,255,191,191,255,254,248
290 data255,255,127,54,127,247,231,0
300 data1,7,15,159,159,255,255,255
310 data255,255,255,239,239,223,255,255
320 data255,255,255,159,159,15,7,1
330 data143,251,252,255,127,95,207,0
340 data255,255,255,255,191,251,241,241
350 data225,225,225,225,161,193,225,225
360 data241,251,255,223,191,255,255,255
370 data240,248,248,248,248,240,224,0
380 data240,253,255,255,239,239,247,255
390 data255,255,255,255,223,255,247,255
400 data255,255,255,247,247,254,252,240
410 data0,0,3,15,31,31,31,31
420 data31,255,255,247,251,255,255,255
430 data159,159,159,159,191,189,191,191
440 data191,175,175,63,63,31,15,3
450 data0,120,200,248,152,248,248,248
460 data255,255,255,207,255,255,255,252
470 data248,248,240,248,248,240,248,248
480 data248,255,255,255,253,205,243,0
490 data128,128,128,128,128,128,128,0
500 data0,128,128,0,128,128,128,0
510 data0,7,1,1,7,3,3,0
520 data3,3,3,3,3,3,3,3
530 data0,231,255,255,255,243,243,243
540 data115,243,243,243,243,243,243,227
550 data0,128,192,224,240,240,144,241
560 data247,255,255,255,255,240,227,199
570 data0,0,0,0,0,0,248,252
580 data254,255,255,191,31,255,255,255
590 data0,0,0,0,0,0,15,31
600 data63,127,255,252,254,254,255,191
610 data0,0,0,0,0,0,224,240
611 data0,0,0,0,0,0,0,0
620 data248,248,248,248,248,0,0,192
10020 data0,0,3,63,117,63,0,0
10022 data0,196,200,254,87,254,0,0
10024 data0,0,1,31,58,31,0,0
10026 data0,98,228,255,171,255,0,0
10028 data0,0,0,0,128,0,0,0
10030 data0,0,0,15,29,15,0,0
10032 data0,49,242,255,85,255,0,0
10034 data0,0,0,128,192,128,0,0
10036 data0,0,0,7,14,7,0,0
10038 data0,24,121,255,170,255,0,0
10040 data0,128,0,192,224,192,0,0
10042 data0,0,0,3,7,3,0,0
10044 data0,12,60,255,85,255,0,0
10046 data0,64,128,224,112,224,0,0
10048 data0,0,0,1,3,1,0,0
10050 data0,6,30,255,170,255,0,0
10052 data0,32,64,240,184,240,0,0
10054 data0,0,0,0,1,0,0,0
10056 data0,3,15,255,213,255,0,0
10058 data0,16,32,248,92,248,0,0
10100 data0,3,63,117,63,0,0,0
10102 data196,200,254,87,254,0,0,0
10104 data0,0,0,0,0,0,0,196
10106 data3,63,117,63,0,0,0,0
10108 data200,254,87,254,0,0,0,0
10110 data0,0,0,0,0,0,0,3
10112 data0,0,0,0,0,0,196,200
10114 data63,117,63,0,0,0,0,0
10116 data254,87,254,0,0,0,0,0
10118 data0,0,0,0,0,0,3,63
10120 data0,0,0,0,0,196,200,254
10126 data117,63,0,0,0,0,0,0
10128 data87,254,0,0,0,0,0,0
10130 data0,0,0,0,0,3,63,117
10132 data0,0,0,0,196,200,254,87
10134 data63,0,0,0,0,0,0,0
10136 data254,0,0,0,0,0,0,0
10138 data0,0,0,0,3,63,117,63
10140 data0,0,0,196,200,254,87,254
10142 data0,0,0,3,63,117,63,0
10144 data0,0,196,200,254,87,254,0
20000 data0,0,0,45,111,255,255,255
20002 data0,8,24,59,127,255,255,255
20004 data0,0,0,144,248,252,252,254
20006 data254,254,252,248,252,254,254,252
20008 data252,248,240,224,192,252,252,254
20010 data252,254,255,255,255,255,255,255
20012 data31,127,127,255,255,255,255,255
20014 data63,127,63,63,127,15,31,63
20016 data15,31,15,7,1,3,7,31
20018 data63,127,63,63,63,127,45,0
20020 data255,254,252,254,255,254,126,34
20022 data17,63,127,63,127,255,127,63
20024 data255,255,255,255,254,188,24,8
20026 data195,36,24,255,90,255,0,0
20028 data255,255,255,255,255,255,255,255
21002 data0,0,4,61,113,55,0,0
21004 data2,68,128,222,71,246,0,0
21006 data192,97,0,13,65,237,192,0
21008 data48,3,7,174,36,128,48,24
21010 data48,97,192,1,36,116,48,0
21012 data130,198,128,33,18,0,6,6
21013 data0,0,0,0,0,0,0,0
21014 data31,43,85,251,173,250,172,248
21020 rem verg. u-boot
21030 data0,136,144,252,174,252,0,0
21040 data0,1,7,127,234,127,0,0
21100 data0,0,24,60,24,0,0,0
21110 data132,68,36,18,11,7,207,63
21120 data65,66,132,136,208,224,243,252
21130 data15,31,39,203,18,36,72,136
21140 data240,248,228,211,72,68,34,33
21150 data15,30,60,124,120,248,240,240
21160 data240,240,248,120,124,60,30,15
21170 data16,16,56,254,56,16,16,0
21180 data0,0,0,0,4,46,127,255
21190 data1,1,3,71,79,239,255,255
21200 data128,128,192,226,224,247,255,255
21210 data129,131,195,225,231,239,239,255
21220 data3,15,47,119,251,253,253,254
21230 data0,60,126,255,255,255,255,127
21240 data0,60,126,127,255,255,255,255
21250 data0,60,126,255,255,255,255,254
21260 data127,255,255,255,255,126,60,0
21270 data255,255,255,255,254,124,56,0
21280 data254,255,255,255,255,126,60,0

0 dimx$(17),y$(20),z$(23),sn(176),sd(133),sa(66),sq(92)
10 qw=36878:er=36877:ty=36875:ui=36879:le=1:xy=4102:yx=4103:a$=chr$(147):zx=36876
11 kl=36874:hi=750:p1=500
200 printa$:pokeui,8:poke36869,205:gosub229
210 gosub5000
220 gosub52000:gosub52100:gosub53000:gosub52600:goto315
229 x$(0)="{clr}{blk}{rvof}{CBM-I}{CBM-T}{CBM-I}{CBM-T}{CBM-I}{CBM-T} sc {rvof}    hi      "
230 x$(1)="{down}{down}{down}          {rvon}123{rvof}    {rvon}%&{rvof}   "
231 x$(2)="          {rvon}456{rvof}    {rvon}'({rvof}   "
232 x$(3)="{down}{down}  {rvon}123{rvof}    {rvon}-0.{rvof}          "
233 x$(4)="  {rvon}456{rvof}   {rvon}-yyy.,-.{rvof} {rvon},{rvof}    "
234 x$(5)="       {rvon}-yyyyyyyy/y.{rvof}   "
235 x$(6)="     {rvon}-0yyyyyyyyyyyy.,,{rvof}"
236 x$(7)=" {rvon},-.-yyyyyyyyyyyyyyyyy{rvof}"
237 x$(8)="{rvon}-wwwwwyywwwwwwwyyywwww{rvof}"
238 x$(9)="@@@@@@{rvon}rnx{rvof}@@@@@@{rvon}syo{rvof}@@@ "
239 x$(10)="{rvon}kkmx{rvof}@@{rvon}so{rvof}@@@{rvon}x{rvof}@@@{rvon}ryo{rvof}@@{rvon}kk{rvof}"
240 x$(11)="{rvon}yyn{rvof}@@@{rvon}rn{rvof}@@@{rvon}vp{rvof}@@{rvon}syn{rvof}@@{rvon}ry{rvof}"
241 x$(13)="{rvon}yyn{rvof}@@@{rvon}tux{rvof}@@{rvon}rn{rvof}@@{rvon}twu{rvof}@@{rvon}ry{rvof}{rvon}yyo{rvof}@@@@@@@@{rvon}so{rvof}@@@@@@@{rvon}ry{rvof}"
242 x$(12)="{rvon}yyo{rvof}@@{rvon}xso{rvof}@@@{rvon}rn{rvof}@@{rvon}ryo{rvof}@@{rvon}sy{rvof}"
243 x$(14)="{rvon}yypklklm{rvof}@@{rvon}vqo{rvof}@@{rvon}x{rvof}@@@@{rvon}ry{rvof}"
244 x$(15)="{rvon}yyyyyyyn!!ryn{rvof}@@@@@@@{rvon}sy{rvof}"
245 x$(16)="{rvon}yyyyyyyyklyyplklklkkq"
246 y$(0)="{clr}{cyn}{rvof}{CBM-I}{CBM-T}{CBM-I}{CBM-T}{CBM-I}{CBM-T} sc {rvof}    hi      "
247 y$(1)=" {rvon}${rvof}                    "
248 y$(2)="     {rvon}${rvof}       {rvon}+{rvof}      {rvon}${rvof} "
249 y$(3)="{down}   {rvon}){rvof}     {rvon}${rvof}      {rvon}${rvof}     "
250 y$(4)="   {rvon}*${rvof}            {rvon}+{rvof}    "
251 y$(5)="{down} {rvon}+{rvof}                  {rvon}+-{rvof}"
252 y$(6)="     {rvon}${rvof} {rvon}+{rvof}          {rvon}${rvof} {rvon}-y{rvof}"
253 y$(7)="          {rvon}-/.{rvof}    {rvon}-,0yy{rvof}"
254 y$(8)="{rvon}.{rvof} {rvon}${rvof}  {rvon}-.{rvof}  {rvon}-yyy.,,0yyyyy{rvof}"
255 y$(9)="{rvon}y.,,-yy.-yyyyyyyyyyyyy{rvof}"
256 y$(10)="{rvon}ywwyywwyywwwwwwwwwwwwy{rvof}"
257 y$(11)="{rvon}n{rvof}@@{rvon}sn{rvof}@@{rvon}ro{rvof}@@@@@@@@@@@@{rvon}r{rvof}"
258 y$(12)="{rvon}n{rvof}@@{rvon}tu{rvof}@@{rvon}so{rvof}@@{rvon}vml{rvof}@@{rvon}kll{rvof}@@{rvon}s{rvof}"
259 y$(13)="{rvon}o{rvof}@@@@@{rvon}xrn{rvof}@@{rvon}syo!!syn{rvof}@@{rvon}s{rvof}"
260 y$(14)="{rvon}n{rvof}@@{rvon}x{rvof}@@@{rvon}ro{rvof}@@{rvon}syyyyyyo{rvof}@@{rvon}r{rvof}"
261 y$(15)="{rvon}o{rvof}@@{rvon}vm{rvof}@@{rvon}tu{rvof}@@{rvon}ryywwwwu{rvof}@@{rvon}s{rvof}"
262 y$(16)="{rvon}o{rvof}@@{rvon}sn{rvof}@@@@@@{rvon}syo{rvof}@@@@@@@{rvon}r{rvof}"
263 y$(17)="{rvon}n{rvof}@@{rvon}ro{rvof}@@@@@@{rvon}ryn{rvof}@@@{rvon}vlkly{rvof}"
264 y$(18)="{rvon}o{rvof}@@{rvon}sylkkm{rvof}@@{rvon}ryo{rvof}@@@{rvon}twwww{rvof}"
265 y$(19)="{rvon}n{rvof}@@{rvon}syyyyo!!syo{rvof}@@@@@@@ "
266 y$(20)="{rvon}yklyyyyyyklyyylkllkll{rvof}"
267 z$(0)="{clr}{yel}{rvof}{CBM-I}{CBM-T}{CBM-I}{CBM-T}{CBM-I}{CBM-T} sc {rvof}    hi      "
268 z$(1)="{rvon}wwwwwwyyyyyyyyyyyyyyyy{rvof}"
269 z$(2)="@@@@@@{rvon}twwwwwwyywwwwwyy{rvof}"
270 z$(3)="@@{rvon}qm{rvof}@@@@@@@@@{rvon}tu{rvof}@@@@@{rvon}ry{rvof}"
271 z$(4)="{rvon}klyn{rvof}@@@@@{rvon}vp{rvof}@@@@@@@@@{rvon}sy{rvof}"
272 z$(5)="{rvon}ywwu{rvof}@@{rvon}vklyykllkklm{rvof}@@{rvon}sy{rvof}"
273 z$(6)="{rvon}n{rvof}@@@@@{rvon}ryyyyyyyyyyo{rvof}@@{rvon}tw{rvof}"
274 z$(7)="{rvon}o{rvof}@@{rvon}klkyyyyyyyyyyyu{rvof}@@@ "
275 z$(8)="{rvon}n{rvof}@@{rvon}twwwwwyywwwyyn!!vlk{rvof}"
276 z$(9)="{rvon}o{rvof}@@@@@@@@{rvon}tu{rvof}@@@{rvon}ryo{rvof}@@{rvon}syy{rvof}"
277 z$(10)="{rvon}n{rvof}@@@@{rvon}qm{rvof}@@@@@@@{rvon}syn{rvof}@@{rvon}ryy{rvof}"
278 z$(11)="{rvon}o{rvof}@@{rvon}vlyyklklm{rvof}@@{rvon}ryo{rvof}@@{rvon}syy{rvof}"
279 z$(12)="{rvon}n{rvof}@@{rvon}syyyyyyyn{rvof}@@{rvon}syn{rvof}@@{rvon}ryy{rvof}"
280 z$(13)="{rvon}n{rvof}@@{rvon}sywwywwwu{rvof}@@{rvon}syn{rvof}@@{rvon}syy{rvof}"
281 z$(14)="{rvon}o{rvof}@@{rvon}rn!!s!!{rvof}@@@@{rvon}ryo{rvof}@@{rvon}syy{rvof}"
282 z$(15)="{rvon}n{rvof}@@{rvon}so{rvof}@@{rvon}rkllklkqyn{rvof}@@{rvon}ryy{rvof}"
283 z$(16)="{rvon}o{rvof}@@{rvon}tu{rvof}@@{rvon}twwwwwwyyo{rvof}@@{rvon}syy{rvof}"
284 z$(17)="{rvon}n{rvof}@@@@@@@@@@@@@{rvon}twu{rvof}@@{rvon}ryy{rvof}"
285 z$(18)="{rvon}o!!vlkmvm{rvof}@@@@@@@@@@{rvon}tyy{rvof}"
286 z$(19)="{rvon}yklyyyyyn{rvof}@@{rvon}vkllklkm{rvof}@{rvon}sy{rvof}"
287 z$(20)="{rvon}yyyyyyyyn{rvof}@@{rvon}syyyyyyylyy{rvof}"
288 z$(21)="{rvon}yyyyyyyyo!!ryyyyyyyyyy{rvof}"
289 z$(22)="{rvon}yyyyyyyyyklyyyyyyyyyy{rvof}":return
300 forw=0to22:printz$(w);:next:poke4601,153:end
315 ifle=1thenprinta$:pokeui,8:goto52300
316 ifle=2thenprinta$:pokeui,8:goto60000
317 ifle=3thenprinta$:pokeui,8:goto52400
318 ifle=4thenprinta$:pokeui,8:goto61000
319 ifle=5thenprinta$:pokeui,8:goto52500
320 ifle=6thenprinta$:pokeui,8:goto62000
730 poke37154,127:ifpeek(37152)=119thengoto1100
740 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
750 if(jand8)=.thengoto900
760 if(jand16)=.thengoto1000
792 goto730
800 ifpeek(a-22)=161thengosub2500:gosub3000:goto730
820 ifpeek(a-22)orpeek(b-22)<>0thengoto1500
840 d=123
850 pokea,118:pokeb,119:pokeb-22,120:pokea,121:pokeb,122
855 fort=1to3:pokea-22,d:pokeb-22,d+1:pokea,d+2:pokeb,d+3:d=d+4:next:pokea,0:pokeb,0:a=a-22
857 b=b-22
860 pokea,135:pokeb,136:pokea,137:pokeb,138:pokea,98:pokeb,99:gosub4000:goto1700
900 ifpeek(a+22)=161thengosub2600:gosub3000:goto730
910 ifpeek(a+22)orpeek(b+22)<>0thengoto1500
930 f=131
935 pokea,137:pokeb,138:pokea,135:pokeb,136
940 fort=1to3:pokea,f:pokeb,f+1:pokea+22,f+2:pokeb+22,f+3:f=f-4:next
945 pokea,0:pokeb,0:a=a+22:b=b+22:pokea,118:pokeb,119:pokea,98:pokeb,99:gosub4000:goto1800
1000 ifpeek(a-1)=161thengosub2700:gosub3000:goto730
1020 ifpeek(a-1)<>0thengoto1500
1030 e=117
1035 pokeb,162:pokea,163
1040 fort=1to6:pokeb,e:pokea,e-1:pokea-1,e-2:e=e-3:next
1050 pokeb,0:a=a-1:b=b-1:pokea,98:pokeb,99
1060 gosub4000:goto1900
1100 ifpeek(b+1)=32then le=le+1:goto315
1110 ifpeek(b+1)<>0thengoto1500
1119 c=100
1120 fort=1to6:pokea,c:pokeb,c+1:pokeb+1,c+2:c=c+3:next:pokea,0
1125 a=a+1:b=b+1:pokea,163:pokeb,162
1130 pokea,98:pokeb,99:gosub4000:goto2000
1500 pokea,154:pokeb,155:pokeqw,10:pokeer,151:fori=1to400:next:pokeqw,0
1501 pokea,156:pokeb,157:pokeqw,5
1502 fort=1to400:next
1503 pokea,158:pokeb,159:pokeqw,15:fort=0to400:next:pokeqw,0:pokea,0:pokeb,0:pokeer,0
1510 ifle=1thena=4404:b=4405:pokea,98:pokeb,99
1520 ifle=3thena=4559:b=4560:pokea,98:pokeb,99
1530 ifle=5thena=4162:b=4163:pokea,98:pokeb,99
1532 p1=p1-100:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}";p1
1544 xy=xy-2:yx=yx-2:pokexy,0:pokeyx,0           
1549 ifxy=4096thengosub54000
1550 goto730
1700 poke37154,127:ifpeek(37152)=119thengoto1100
1710 poke37154,255:j=peek(37151)
1720 if(jand8)=.thengoto900
1730 if(jand16)=.thengoto1000
1740 goto800
1800 poke37154,127:ifpeek(37152)=119thengoto1100
1810 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
1820 if(jand16)=.thengoto1000
1830 goto900
1900 poke37154,127:ifpeek(37152)=119thengoto1100
1910 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
1920 if(jand8)=.thengoto900
1930 goto1000
2000 poke37154,127
2010 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
2020 if(jand8)=.thengoto900
2030 if(jand16)=.then1000
2040 goto1100
2500 a=a-22:b=b-22:pokea,98:pokeb,99:pokea+22,0:pokeb+22,0:return
2600 a=a+22:b=b+22:pokea,98:pokeb,99:pokea-22,0:pokeb-22,0:return
2700 a=a-2:b=b-2:pokea,98:pokeb,99:pokea+2,0:pokeb+2,0:return
3000 fort=0to19:pokeqw,15:pokety,220:pokety,0
3010 pokety,200:pokety,0:pokeqw,0:p1=p1+10:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}";p1:next
3020 pokea,98:pokeb,99:return
4000 p1=p1-2:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}";p1:ifp1<5thengoto54000
4010 return
5000 fori=0to175:readsn(i):nexti
5100 fori=0to132:readsd(i):nexti
5200 fori=0to65:readsa(i):nexti
5300 fori=0to91:readsq(i):nexti:return
6000 pokeqw,15:pokeer,200:fori=1to20:next:pokeer,0
6005 pokeer,180:fori=1to20:next:pokeer,0:pokeqw,0:return
7000 forj=0to3000:next
7003 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{yel}                    ":fort=0to1200:next:goto52000
8000 data0,18,15,0,13,1,0,19,15,6,20,0,16,18,5,19,5,14,20,19,0,0
8010 data0,0,0,0,0,0,1,0,7,1,13,5,0,2,25,0,0,0,0,0,0,0
8020 data0,0,0,0,18,15,7,5,18,0,4,5,19,9,4,5,18,9,0,0,0,0
8030 data0,0,0,0,0,0,0,0,0,1,14,4,0,0,0,0,0,0,0,0,0,0
8040 data0,0,0,0,13,1,18,20,9,14,0,7,18,26,9,2,5,11,0,0,0,0
8050 data0,13,21,19,9,3,0,20,18,1,14,19,12,1,20,5,4,0,2,25,0,0
8060 data0,0,0,14,15,18,2,5,18,20,0,7,18,26,9,2,5,11,0,0,0,0
8070 data0,0,0,16,18,5,19,19,0,6,9,18,5,0,2,21,20,20,15,14,0,0
9000 data0,0,0,0,0,0,0,0,0,85,87,89,91,93,95,0,0,0,0,0,0,0
9010 data0,0,0,0,0,0,0,0,0,86,88,90,92,94,97,0,0,0,0,0,0,0
9020 data0,0,0,0,0,0,27,31,37,41,45,59,63,67,71,75,79,0,0,0,0,0
9030 data0,0,0,0,0,0,28,33,38,42,46,60,64,68,72,76,80,83,0,0,0,0
9040 data0,0,0,0,0,0,29,35,39,43,47,61,65,69,73,77,81,0,0,0,0,0
9050 data0,0,0,0,0,0,30,36,40,44,58,62,66,70,74,78,82,84,0,0,0,0
10000 data0,0,0,0,0,0,12,5,22,5,12,0,0,0,9,0,0,0,0,0,0,0
10010 data0,0,0,0,0,0,12,5,22,5,12,0,0,9,9,0,0,0,0,0,0,0
10020 data0,0,0,0,0,0,12,5,22,5,12,0,9,9,9,0,0,0,0,0,0,0,0
11000 data151,1000,147,250,135,250,147,250,151,250,175,250,187,1000,-3,151,1000,147,250,135
11010 data250,147,250,151,250,175,250,187,500,183,250,175,250,183,250,187,250,201,250
11020 data209,1000,-3,151,1000,147,250,135,250,147,250,151,250,175,250,187,500,183,250
11021 data175,250
11030 data183,250,187,250,201,250,209,250,207,250,201,250,207,250,209,250,219,250,225,250
11040 data223,250,219,250,223,250,225,250,231,250,235,0
50000 a=4404:b=4405:pokea,98:pokeb,99:goto730
52000 a=4338:printa$:forf=38130to38152:pokef,7:next
52001 fort=0to21:pokea+t,sn(k):k=k+1:ifk=153thenforu=0to3000:next:return
52002 ifsn(k)=0thennext:goto7000
52003 gosub6000:next
52021 poke38191,3:poke38192,2:poke38194,7:poke38195,5
52100 p1=500:poke36865,155:d=4294:printa$:forf=38086to38218:pokef,7:next
52110 fory=0to131:poked+y,sd(y):next:poke36865,38:pokeqw,15:forf=230to140step-1
52120 pokeqw-2,f:pokeqw-3,f+1:next:pokeqw-4,140:forf=1to500:next:forf=15to0step-.007:pokeqw,f:next
52130 pokeqw-4,0:pokeqw-3,0:pokeqw-2,0:return
52300 h=4339:forf=38130to38152:pokef,7:next
52310 forb=0to21:pokeh+b,sa(b):ifsa(b)=0then52330
52320 gosub6000
52330 next
52399 gosub58000:goto52700
52400 h=4340:forf=38130to38152:pokef,7:next
52410 forb=22to43:pokeh+b-22,sa(b):ifsa(b)=0then52430
52420 gosub6000
52430 next:gosub58000:goto52800
52500 h=4338:forf=38130to38152:pokef,7:next
52510 forb=44to60:pokeh+b-43,sa(b):ifsa(b)=0then52530
52520 gosub6000
52530 next:gosub58000:goto52900
52600 h=4338:forf=38284to38306:pokef,7:next
52610 forb=154to175:pokeh+b,sn(b):ifsn(b)=0then52630
52620 gosub6000
52630 next
52640 ifpeek(37154-3)and32then52640
52650 return
52700 aa=37888:cz=4096:a=4404:b=4405:poke36865,155
52710 fory=0to16:printx$(y);:next:poke4601,153:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}500"
52712 foryu=37888to37888+505:pokeyu,0:next
52715 pokea,98:pokeb,99
52720 pokeaa+98,6:pokeaa+99,6:pokeaa+100,6:pokeaa+120,6:pokeaa+121,6:pokeaa+122,6
52721 pokeaa+105,7:pokeaa+106,7:pokeaa+127,7:pokeaa+128,7:pokeaa+178,6:pokeaa+179,6
52722 pokeaa+180,6:pokeaa+200,6:pokeaa+201,6:pokeaa+202,6
52723 poke38221,7:poke38204,2:poke38229,6:poke38267,4:poke38292,7:poke38343,2
52724 poke38358,4:poke38359,2:poke36865,38:pokeui,186:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}";p1
52725 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";hi
52799 goto730
52800 xy=4102:yx=4103:qa=4096:poke36865,155
52805 fort=0to20:printy$(t);:next:poke4601,139
52806 foryu=37888to37888+505:pokeyu,0:next
52810 poke4559,98:poke4560,99:a=4559
52815 b=4560
52816 foru=38024to38394:pokeu,5:next
52820 poke37911,7:poke37937,7:poke37945,7:poke37952,7:poke37979,7
52821 poke37985,7:poke37992,7:poke38001,7:poke38002,7:poke38015,7:poke38043,7
52822 poke38062,7:poke38082,7:poke38069,7:poke38071,7:poke38110,7
52823 poke38243,3:poke38224,0
52824 poke38232,7:poke38233,2:poke38359,0:poke38360,1
52897 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}";p1:poke36865,38:pokeui,106
52898 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";hi
52899 goto730
52900 xy=4102:yx=4103:qa=4096:poke36865,155
52910 forw=0to22:printz$(w);:next:poke4601,153
52912 foryu=37888to37888+505:pokeyu,0:next
52915 a=4162:b=4163:pokea,98:pokeb,99
52920 forsd=37888to38393:pokesd,3:next
52921 poke38081,5:poke38082,2:poke38201,7:poke38202,5:poke38204,1:poke38205,4
52922 poke38286,4:poke38285,6:poke38359,5:poke38360,1
52998 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}";p1:poke36865,38:pokeui,10
52999 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";hi:goto730
53000 d=0
53001 forp=3to15step.5:pokeqw,p
53009 ifsq(d)=-3thend=d+1:v=d:gosub53110:goto53001
53010 pokety,sq(d):pokezx,sq(d):d=d+1
53012 fort=0tosq(d):next:d=d+1:forq=0to300:next
53097 ifsq(d)=0thengosub53120:return
53100 next:goto53009
53110 fore=6to0step-.008:pokeqw,e:next:pokeqw,0:pokety,0:pokezx,0:return
53120 fore=14to0step-.008:pokeqw,e:next:pokeqw,0:pokety,0:pokezx,0:return
54000 printa$:pokeui,8
54010 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}the end{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
54040 fory=0to1000:next:le=1:xy=4102:yx=4103:gosub54100:gosub52100:gosub52600:goto315
54100 ifp1>hithenhi=p1:print"{clr}{down}{yel}you have broken the{down}   highscore":gosub56000:gosub57000
54500 ifp1<hithenprint"{clr}{down}{yel}you have not reached{down}  the highscore ":gosub56000:goto57000
54501 return
56000 pokeqw,15:forl=1to20:form=220-lto210-lstep-4:pokezx,m:nextm:form=160-lto170-lstep4
56001 pokezx,m:nextm:nextl:pokeqw,0:pokezx,0
56002 fort=1to3000:next:xy=4102:yx=4103:return
57000 print"{down}{yel}score    ";p1:gosub56000
57010 print"{down}{yel}the highscore ";hi:gosub56000:return
58000 ra=151:rf=1
58001 a=4404:b=4405:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":forx=1to22:poke646,rnd(1)*6+2:print"{rvon} ";:next
58010 foras=4404to4423:c=100
58020 fort=1to6:pokea,c:pokeb,c+1:pokeb+1,c+2:c=c+3:gosub58050:next:pokea,0:a=a+1:b=b+1:pokea,163
58030 pokeb,162:gosub58050:pokea,98:pokeb,99:gosub58050
58040 pokeqw,rf:pokety,ra:rf=rf+.7:ra=ra+1:next:pokeqw,0:pokety,0:return
58050 forp=1to25:next:return
60000 gosub63000
60020 print"{clr}johann der maschinist {down}ist wahnsinnig "
60030 print"{down}{down}was tun"
60040 print"{down}{down}1  ihn beruihgen"
60050 print"{down}{down}2  ihn schlagen"
60060 print"{down}{down}3  ihn einsperren"
60070 zu=int(rnd(1)*3)+1
60080 getvu
60090 ifvu=1then60200
60100 ifvu=2then60300
60110 ifvu=3then60400
60120 ifvu<>1orvu<>2orvu<>3then60080
60130 printa$
60200 ifvu=zuthenprint"{down}{down}er hat seinen fehler eingesehen":p1=p1+500:le=le+1:gosub56000:goto315
60210 ifvu<>zuthenprint"{down}{down}er schlaegt sie":le=le+1:gosub56000:goto315
60300 ifvu=zuthenprint"{down}{down}er ist wieder normal":p1=p1+500:le=le+1:gosub56000:goto315
60310 ifvu<>zuthenprint"{down}{down}sie haben ihn tod     {down}geschlagen":le=le+1:gosub56000:goto315
60400 ifvu=zuthenprint"{down}{down}er hat zusich gefunden":le=le+1:p1=p1+1:gosub56000:goto315
60410 ifvu<>zuthenprint"{down}{down}er hat sich auf       {down}gehaengt":le=le+1:p1=p1+1:gosub56000:goto315
61000 gosub63000
61020 print"{clr}sie treffen mit einem {down}deutschen u boot      {down}zusammen es hat keinen"
61025 print"proviant mehr         {down}wieviel geben sie"
61040 print"{down}1  3 proviant"
61050 print"{down}2  5 proviant"
61060 print"{down}3  garnichts "
61070 zu=int(rnd(1)*3)+1
61080 getvu
61090 ifvu=1then61200
61100 ifvu=2then61300
61110 ifvu=3then61400
61120 ifvu<>1orvu<>2orvu<>3then61080
61130 printa$
61200 ifvu=zuthenprint"{down}das war human         {down}500 punkte":p1=p1+500:le=le+1:gosub56000:goto315
61220 ifvu<>zuthenprint"{down}sie alter geizkragen  {down}dafuer gibts nichts":gosub56000:le=le+1:goto315
61300 ifvu<>zuthenprint"{down}das u boot ist weg    {down}keine punkte":gosub56000:le=le+1:goto315
61310 ifvu=zuthenprint"{down}das war spitze        {down}1000 punkte":le=le+1:p1=p1+1000:gosub56000:goto315
61400 ifvu=zuthenprint"{down}nicht besonders gut   {down}50 punkte":le=le+1:p1=p1+50:gosub56000:goto315
61420 ifvu<>zuthenprint"{down}sie schwein           {down}keine punkte":gosub56000:le=le+1:goto315
62000 gosub63000
62020 print"{clr}sie sind zu tief      {down}getaucht"
62025 print"{down}was tun"
62040 print"{down}1  wenig atmen"
62050 print"{down}2  volle kraft vor"
62060 print"{down}3  aufgeben  "
62070 zu=int(rnd(1)*3)+1
62080 getvu
62090 ifvu=1then62200
62100 ifvu=2then62300
62110 ifvu=3then62400
62120 ifvu<>1orvu<>2orvu<>3then62080
62130 printa$
62200 ifvu=zuthenprint"{down}geschafft             {down}500 punkte":le=1:p1=p1+500:gosub56000:goto315
62220 ifvu<>zuthenprint"{down}sie sind erstickt     {down}dafuer gibts nichts":gosub56000:le=1:goto315
62300 ifvu<>zuthenprint"{down}u 96 ist explodiert   {down}keine punkte":gosub56000:le=1:goto315
62310 ifvu=zuthenprint"{down}sie sind aufgetaucht  {down}1000 punkte":le=1:p1=p1+1000:gosub56000:goto315
62400 ifvu=zuthenprint"{down}sie realist           {down}200 punkte":le=1:p1=p1+200:gosub56000:goto315
62420 ifvu<>zuthenprint"{down}tja aufgegeben und weg{down}keine punkte":gosub56000:le=1:goto315
63000 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{yel}{rght}{rght}{rght}{rght}{rght}chance stage{rght}{rght}{rght}{rght}{rght}"
63010 pokeqw,6:pokezx,151:forw=1to10:next:pokeqw,0:pokezx,0:fort=1to3000:next:return