ZXTape! Bismarck 44/4q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 50000P:23658j\,8:52500,201:0:0:5:1::1;12 ,10 ;"M.C. CARGANDO" # UDG Y MC c: <M(2):M(1)=50000P:M(2)=55000 I=12 (K=024 2 A:M(I)+K,A <K:I F33!,0,72H,229,6,32 ,203,30,35#,16,251,62>,0,203,31,227,182,119w,225,62>,80P,172,200,24,234 P33!,255,79O,229,6,32 ,203,22,43+,16,251,62>,0,203,23,227,182,119w,225,62>,71G,172,200,24,234 ZJ=60000`60025y dA:J,A nJ x6,5,197,33!,0,8,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201 $n=015*8-1 a:"a"+n,a n 0,0,0,0,8,28,255,126~,0,0,0,0,1,15,255,127,0,0,0,64@,192,224,255,252 0,0,0,0,0,3,255,63?,64@,64@,64@,224,224,252,255,255,0,0,0,0,0,64@,255,248 0,12 ,62>,126~,255,255,255,255,0,0,96`,242,251,255,255,255,0,0,24,24,124|,252,254,255 255,255,255,124|,124|,568,0,0,255,255,255,252,568,16,0,0,254,252,252,124|,24,0,0,0 0,1,15,31,63?,127,255,255,0,195,239,255,255,255,255,255,0,128,240,248,252,254,255,255 # MENU #  ,(5,7;"* B I S M A R C K *" 610 ,4;"Q/ NORTE","X/ INMERSION";12 ,4;"A/ SUR","S/ ASCENSION";14,4;"P/ ESTE","L/ PERIS. DCHA.";16,4;"O/ OESTE","K/ PERIS. IZQ.";18,4;"SP/ FUEGO","M/ PAUSA" @a24,16:225,0:0,128:-225,0:0,-128 T0:1:1: ^# LA PANTALLA # cv1::9 ,0;"    " ex#0,1;"UN MOMENTO":14,8;"":I=1128:50000P:I:"" h1:1:8,8;1;5;" ";9 ,8;5;7;" ";10 ,8;7;5;" ":i=03:11 +i,8;5;0;" ":I m=7;15,0;" " rXi=06:j=272:8+i,j;0;0;" ":j:i |ai=06:j=162:8+i,24+j;0;0;" ":j:i r4:16,175:112p,0:0,-568:-112p,0:0,568:7 f4;6,2;" Skaguerrak";5,2;" " a136,160:100d,0:0,-24:-100d,0:0,24 U2;1;7;0,17;"POSICION:";6,17;"PERIS:" =I=13:64@*I,524:0,-8:I I15,0:0,47/:33!,0:0,-47/ sI=52-1:21-I,2;I;0;"____":I:21,2;0;0;"____" 0:17,7;2;"PROF.":74J,0:24,0:0,24:-24,0:0,-24:86V,12 ,12 :1 u17,16;"":I=13:17+I,16;"":I:21,16;"" I2;7;17,19;"FUEL:";20,19;"TORP:" ֶ220,20:10 ,0:220,20:0,10 :220,20:-10 ,0:220,20:0,-10 :220,20,8 ]17,27;"N";21,27;"S";19,29;"E";19,25;"W"  # EL PROGRAMA # 16,0;"{}" !60000`:.1}L,40( XB=0:PB=0:TC=0:O=0:AT=0:MB=3:RBY=1:RBX=1:M$="":PF=00:B=1:TP=10 :CB=2000:P1=128:MGI1=1:P=128:R$="":X=502:Y=25:BX=10 :BY=24:3500 :3600 !4;X+16,Y+120x A$= )A$="P"A$="O"A$="Q"A$="A"3000 A$="L"2000 A$="K"2030 A$=" "PF=01000 &A$="S"A$="X"4000 +A$="M"6000p 03500 :5000 :(AT>0AT=AT-1::590N D 520 NAB=(*5+PF)+1 XRAB=3C$="El Bismarck contraataco y no te sumergiste a tiempo":9000(# b 580D  # TORPEDO # 63000 :0;3,18;" " 5#1;1;" MARCA EL RUMBO DEL TORPEDO " ;A$=:A$="Q"A$="P"A$="A"A$="O"3000 :1028  1025 "" H1;7;2;#1;" ENTER: DISPARO * B: ABANDONAR "  |0:120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10  7 :I=04:1;17+I,16;" ":I *60001a,6:60005e,4 .jPB=15O=1:0;3,18;1;2;7;" FUEGO !!!":60000` Gr0;2;7;3,18;"V= ";(Y-BY);" ";3,24;2;7;"H= ";(X-BX) L#=13 O=11120` V6=13 O=0TP=TP-1:60001a,1:"":8:8:60005e,32 :120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10 :i=04:0;17+I,16;" ":I:7:1:60000`: W="B""":8:8:120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10 :i=04:0;17+I,16;" ":I:7:1: [5000:1070. ` O=0 e"" t960001a,1:60005e,32 :60000` y30;1;3,18;"!!TOCADO!! " ~,I=1502:.001wn,60<:I kX$(4,3):X$(1)="":X$(2)="":X$(3)="":X$(4)="" 'K=110 :I=14 J=12 &2;5;14,PB;X$(I) .04|# =,502 /J:I:K:5;0;14,PB;" " BTP=TP-1:AT=8:TC=TC+1:TC=59500% 9TP=0TC5C$="NO HAY TORPEDOS":9000(# |0:120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10  7 :I=04:0;17+I,16;" ":I  # PERISCOPIO # `A$=:A$="L"0;6,24;P:P=P+1:P25650000P:2010 :P>256P=0:0;6,24;"0 " bP/8ɺ(P/8)50000P:P=P+1:0;6,24;P;" ":2025 cA$=:A$="K"P=P-1:0;6,24;P;" ":P055000:2030 P<0P=256 bP/8ɺ(P/8)55000:P=P-1:0;6,24;P;" ":2040  # RUMBO # XB8000@ J=12 DR$="Q"Y=Y+1:1;17,27;"":P1=128 BR$="A"Y=Y-1:1;21,27;"":P1=0 CR$="P"X=X+1:1;19,29;"":P1=64@ DR$="O"X=X-1:1;19,25;"":P1=192 R$=A$:J :P=256P=0:0;6,24;"0 " P1=P3080 >50000P:P=P+1:0;6,24;P;" "  3072 7Y<40(MGI=2:M$="SKAGUERRAK ":7000X %Y<24MGI=3:7000X 5Y<16C$="Colision en Skaguerrak":9000(# &%Y>40(MGI=1:7000X 03500 :8000@ 5CB=CB-10 N # DISPLAY # 10:1;7;3,18;M$ 18,19;CB;" " 20,10 ;PF 21,19;TP;" " 6,24;P;" " 1:  * MAPA * X112pY=112p $X1X=1 )Y557Y=557 8*1;4;16+X,120x+Y B,1;4;BX+16,BY+120x L,1;4;BX+16,BY+119w V # INMERSION # &16+(PF/10 ),0;"{}" #A$="S"PF>0PF=PF-10 A$="X"PF=PF+10 4PF>502C$="Excesiva profundidad":9000(# [PF>0I=06:0;0;8+I,8;" ":I  PF=01:8,8;1;5;" ";9 ,8;5;7;" ";10 ,8;7;5;" ":i=03:11 +i,8;5;0;" ":I &16+(PF/10 ),0;"{}"   # ENEMIGO # 3600:XB8000@ BX=RBX+BX:BY=RBY+BY #BX=112pBX=0RBX=-RBX #BY=557BY=17RBY=-RBY  8000@  3600  p # PAUSA # zI=12000 I ]0:8:8 b MGI1=MGI lMGI=1R$="A"14,8;"";13 ,8;" ";12 ,8;" " vMGI=1R$="Q"14,24;"";14,0;"";13 ,24;" ";12 ,24;" ";13 ,0;" ";12 ,0;" " MGI=2R$="Q"13 ,24;" ";13 ,0;" ";14,24;"";14,0;"";12 ,0;" ";12 ,24;" " MGI=2R$="A"13 ,8;"  ";14,8;"";12 ,8;" " MGI=3R$="A"12 ,8;" ";13 ,8;"  ";14,8;"" MGI=3R$="Q"12 ,24;" ";12 ,0;" ";13 ,24;" ";13 ,0;" ";14,24;"";14,0;"" '1:1:7:MGI1=MGI: @# el Bismarck # ANB$(3,3):B$(1)="":B$(2)=" ":B$(3)=" " E>X=BXY=BYPF=0C$="Colision con Bismarck":9000(# J9(BX-X)8ƽ(BY-Y)8MB=1:8050r T;(BX-X)16ƽ(BY-Y)16MB=2:8050r ^;(BX-X)<24ƽ(BY-Y)<24MB=3:8050r h rQBXXBY>YPB=P/8-((X-BX)/3):PB>29PB<08200 : |FBX>XBYYPB=P/8+((BX-X)/3):PB>298200 : \BXXBY29PB<08200 : \BX298200 : /XB=XB:8;8;14,PB;B$(MB)  PB=32 PB=0: PB>32 PB=PB-32 PB<0PB=31+PB 8:8 wPB=31XB=XB:14,PB;B$(MB)(1);14,0;B$(MB)(2);14,1;B$(MB)(3) xPB=30XB=XB:14,PB;B$(MB)(1);14,31;B$(MB)(2);14,0;B$(MB)(3) &1:7: #( # DERROTA # #2u50002R,64@:50020d,88X:I=120:50000P:(*7):.01z# =,*502:I #8 0 #Z #d12 ,3;C$ #n 10000' %# VICTORIA # %! 9535?% %&I=19 %0D,T %:D,T:I %?.3,7,.3,7,.33(,12 ,.25~,7,.32# =,10 ,.25~,9 ,.27 =p,7,.27 =p,5,.5,7 %D"Otra vez? (S/N) ";v$ %N V$="S"