z!?- Z!6D:\&  0000 @ 000 3RII$"DD@1  00 @ 000 RI$R@""" 1@ ?00 ?00?3UU*$I$I """1@???0 ?00 ?00?3U*PI$I$$B"""1???0 ? @?00?3J)T $"I"LB""D1???0 0 @3 T)J"D"H"DB"B00000 0 @ 3)%)J"$H"D!B"B! 0000 000 @ 3)))%%%DD"$HBD""!"D!@ !B!  A   @/  @?~| C@p/ O@ BBB A A    A   O /~~ C   p/O O@ B"B   AA  @ @ = /O @@C  //`Op !!B!! @ A@  @ @ } o 7 pO `@# _ #'@/Op AAB   A A  @ @     7 pO ~CG@/~Op G` BBB  @@@@  @@@ @    @` w /0 =?OO~@ >/O ' !BB! @A  @ @@@@ @@   ?'p@w O@p/O/? OO #  BA  A  @  @  ?G@ p/ p/O/? / O O  @ @ @@@  -~><<d@     @@@/~|<@< ||x >B<|B<>|DD@@x 
BDx8@D< Dx  DTB<B<<>579Q=1:I=Z$ xI: MAIN LOOP  VTURN=TURN+1::I=1TURN:X$:I:TURN/4=(TURN/4)1580, c"ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE","TEN","ELEVEN","TWELVE","THIRTEEN" 0:0::X$="TURN "+X$:L=5155:4+L/5:5:L:15:100d:6:0 T970:610b:10808:1700:1980:FLAG=-5290" Q$="C"610b #10808:W>01210 n1400x:1980:FLAG-5TURN13 B11B120B21B215160 "SSCORE=0:I=112 :P(I,3)>0SCORE=SCORE+P(I,3) 60P(I,4)>0SCORE=SCORE+P(I,4) @I TdFLAG=-5X$=" THE BISMARK HAS SUNK SIR ":L=4:7:2:3:1::2,0;"                     " Y_FLAG=-54:7:1:5:SCORE=SCORE+100d:25:380| ^TURN=13 X$=" FLEET TURNED BACK TO REFUEL ":L=2:0:3::1,1;"";4,1;2;S$(30);7,1;S$(30) c*TURN=13 2:7:5 hTURN13 0:3::1,1;"";4,1;2;S$(30);7,1;S$(30) rX$=" BISMARK HAS ESCAPED SIR ":L=5:5:X$=" YOU HAVE LOST ":L=10 :1:6:1:9 ,8;" ";12 ,8;" ":5:0:BIST>0SCORE=SCORE-BIST:20 |SCORE=SCORE-203:8;9 ;16-3*(FLAG=-5),7;"Your Score was ";SCORE;18-3*(FLAG=-5),8;"(Max Score 100)" 23,64@+24*(FLAG=-5):208,0:0,-568:-208,0:0,568:31,60<+24*(FLAG=-5):192,0:0,-480:-192,0:0,480 x39',568+24*(FLAG=-5):176,0:0,-40(:-176,0:0,40( [#0;0,0;5;0;" Do you want to play again? ":550& "0:ANS=190102# T#0;6;0;" . BYE BYE . ":300,:0 &YORN  0"ANS=0:23658j\,8 :j.1}L,10 :#0;1,0;4;7;1;" Key ""Y"" or ""N"" " ?A$=:A$=""575? D"":A$="Y"ANS=1: NA$"N"570: X aDISPLAY  bK6:6:0::" abcdefghijklmnopqrst  " gh"AA BB " lI=315:1;7;(64@+I);"";1;7;(64@+I);" ":I q." abcdefghijklmnopqrst  " v236066\,136:236077\,253:8;8;2,22;"!""#$%&";0,24;"'()*+,";3,23;"-/13-";30;"/7";4,23;".0245";30;"68":236066\,0:236077\,60< p176,151:79O,0:8204:1020:2,28;8;8;W$:Q$="D": FORCE   PF=0:J=112 P(J,1)=B1+XP(J,2)=B2+YP(J,3)>0PF=PF+P(J,3):X=0Y=0NFORCE=NFORCE+1:M(NFORCE)=J  J: 3PSHIP  H&8:8:I=112 RmP(I,3)<14+I,23;I;" "I9 ;"(";N$(I);")";2;7;"SUNK":880p \ P(I,2),P(I,1);"" f4+I,23;I;" "I9 ;"(";N$(I);") ";(96`+P(I,1));(64@+P(I,2)):M(I)=20236066\,136:236077\,253:7;4+I,28;"9":236066\,0:236077\,60< pI: FNAME  !915:J=1X:U$:J: "King George V & Repulse","Norfolk & Suffolk","2nd Cruiser Squadron","Victorious","Sheffield","Ark Royal","Vian's Destroyers","Rodney & 4 Destroyers","Renown","Dorsetshire & Edinburgh","Birmingham & Manchester","Ramillies" WEATHER  UW=(*10 )+1:W=(W>4)+(W>9 ):W$="POOR":W=1W$="FAIR" W=2W$="GOOD"  DATE  8:8 6X=TURN:X=X*6:D=(X/24):T=X-D*24 $C0,22;"0"T<10 ;T;0,30;24+D: 7SEARCH  L#Q=0:FLAG=Q:W>QQ=1 V5I=112 :J=P(I,1)-QP(I,1)+Q jFK=P(I,2)-QP(I,2)+Q:B1=JB2=KFLAG=1:I=12 ~ K:J:I 16;0;18,0;S$;S$;S$;S$ sFLAG20,0;2;7;"No sightings of Bismark reported":.1}L,2:.3,0 FLAG 20,0;3;7;1;"Bismark sighted Sir! Position ";(96`+B1);(64@+B2):B2,B1;"":.1}L,8:.2~L,18:.3,14  150: AIR ATTACK  eI=01:UNIT=I*2+4:A(I+1)>2P(UNIT,4)<11380d HX=UNIT:910:6;0;18,0;S$;S$;S$;S$:"" j18,0;U$;" has ";P(UNIT,4);" planes"'"fit to fly Sir."''"Shall we fly them this turn?" 5600:ANS1380d  U6;18,0;S$;S$;S$;S$:A(I+1)=A(I+1)+1:502 (B1-P(UNIT,1))>4Ž(B2-P(UNIT,2))>4ź(*4+1)+W<319,0;2;7;" They did not find her Sir. ":.1}L,2:.2~L,-2:1370Z B2,B1;8;8;"":18,0;3;1;" PLANES ATTACKING BISMARK SIR ":J=1P(UNIT,4):15:0*64300,:J:502:X=P(UNIT,4) (LOSS=0:HIT=0 2|(*10 )+1>9 -WLOSS=(*(P(UNIT,4)+2)/3)*W:LOSS>P(UNIT,4)LOSS=P(UNIT,4) 2/WHIT=(*(P(UNIT,4)+4)/5)*W:HIT>BISTHIT=BIST Fy20,0;2;7;" Number of planes lost = ";LOSS;" "'4;" Number of hits reported = ";HIT;" " P5P(UNIT,4)=P(UNIT,4)-LOSS:BIST=BIST-HIT Z 200 dI: wBIS MOVE  MI=12:SQ=(*100d)+1:SQP1SQ=1:1470 SQP2SQ=2:1470  SQ=3 ;FLAG=0:X=R(SQ,1):Y=R(SQ,2):760 .PFBISTI=2:FLAG=1:1520 %PF>0I=2:FLAG=2 DB1=B1+R(SQ,1):B2=B2+R(SQ,2):BIST<21I=2  I:FLAG=0FLAG=2 }I=13:X=R(I,1):Y=R(I,2):760:PF=0B1=B1+R(I,1):B2=B2+R(I,2):I=3 I: +PLAN  @6TURN<5BIST<30PLAN=3:1640h J6TURN>4BIST<30PLAN=1:1640h T9(*10 )+1>1PLAN=2:1640h ^PLAN=(*3)+1 hX1650r+PLAN*10 :I=13:J=12:R(I,J):J:I:P1:P2: |D0,-1,1,-1,1,0,5,502 C0,1,1,1,1,0,10 ,502 F-1,1,-1,-1,-1,0,5,40( PMOVE  %I=112 :M(I)=0:I 18,0;6;0;S$;S$;S$;S$:"":19,0;"Which force will you move Sir"''"(Enter 0 if no more moves)":5 2Z$:105i:Q.5,-10 :1730 UNIT=Z$:UNIT=0 GUNIT>12 UNIT<1UNITɺUNIT.5,-10 :1730 qM(UNIT)=20#0;2;7;" THEY HAVE MOVED SIR ":.5,-10 :150:1720 }P(UNIT,3)<1#0;2;7;" THEY HAVE BEEN SUNK SIR! ":.5,-10 :150:1720 SM(UNIT)=20:X=UNIT:910:19,0;6;0;S$;S$;S$ 0UJ=1P(UNIT,5):F=0:P(UNIT,2),P(UNIT,1);1;"" D(F=5.5,-10 :5 N 18,0;3;7;" Move Force ";UNIT;": "'1;4;0;U$;0;" ";P(UNIT,3);" ";P(UNIT,5);0;:P(UNIT,4)>04;0;1;20,23;" ";P(UNIT,4) X##0;" (Press S to stop)" bX$=:X$=""1890b l\6;0;18,0;S$;S$;S$;S$:"":X$="S"J=P(UNIT,5):1950 v&X$<"5"X$>"8"F=5:1860D JX=P(UNIT,1)+(X$="8")-(X$="5"):Y=P(UNIT,2)+(X$="6")-(X$="7") X<1X>20Y<1Y>15F=5:21,0;2;7;" You cannot move off the map ":1860D UP(UNIT,2),P(UNIT,1);0;"":P(UNIT,1)=X:P(UNIT,2)=Y 830>:J:1720 COMBAT  cI=112 :M(I)=0:I:X=0:NFORCE=X:Y=X:760:NF=NFORCE:NF=0 6;0;18,0;S$;S$;S$;S$;19,0;3;7;" BISMARK FIRING!! ":I=16:0*64350^:I:6;0;19,0;S$ ~(*6)+1>3+W4;7;1;19,0;" THEY MISSED SIR! ":150:2130R LOSS=(BIST/(NFORCE+1)):Q$="D"6:6::X$=" DAMAGE REPORT ":L=0:3:L:1:5:6:0:0  Q$="D"'"   LossLeft  " Q$="D"Q$="C":236066\,136:236077\,253:1;7;3,7;"- / 1 3 -";4,7;". 0 2 4 5":236066\,0:236077\,60< kNF=NFORCE:I=1NFORCE:X=M(I):910:HIT=(*(LOSS+2))-2:HIT<0HIT=0 4HIT>P(M(I),3)I+5,0;5;U$;24;3;7;" SUNK ":P(M(I),3)=0:NF=NF-1:2120H >P(M(I),3)=P(M(I),3)-HIT:5;I+5,0;U$;24;2;7;" ";HIT;28;4;" ";P(M(I),3);0; HhI:"   ":19,0;6;0;S$;S$;S$:100d \#NF=0100d:2260 f19,0;1;7;" OUR FORCES ARE FIRING SIR. ":20:I=1NF*2:0*64350^:I:120x-NF*10 :6;0;19,0;S$ pr(*8)+1>W+(NF/2)19,0;2;7;" THEY MISSED SIR! ":2240 zQHIT=0:I=1NFORCE:P(M(I),3)>0HIT=P(M(I),3)+HIT =I:HIT=(*(HIT+2))-2:HIT<0HIT=0 HIT>20HIT=20 )HITBISTBIST=0:FLAG=-5: eBIST=BIST-HIT:19,0;1;1;7;" HITS ON BISMARK REPORTED = ";HIT;" " O21,0;" Will you continue the fight?":5600:ANS1990  $ INSTRUCTIONS  23658j\,8:ANS=0:#0;1,0;1;3;7;" Do you want INSTRUCTIONS ? " A$=:A$=""5002 580D:ANS1  6000p K3'7'1''" DO YOU WANT INSTRUCTIONS AGAIN ":540 ANS=15010  |CONT  >4;7;1;" Press ENTER to continue ";A$  pINSTRUCTIONS  uwX$=" SINK THE BISMARK ":L=1:5:1::3:7:1:5:0:5:0 z+5,0;" On 21st May 1941 the Bismark and the Prinz Eugen left Bergen for the Atlantic, to raid the British sea-routes."''" Early on 24th May they met HMSHood and HMS Prince of Wales andbattle was joined. At 6am the Hood was sunk and the damaged Prince of Wales had to retreat." '" After this battle the German ships separated, the Prinz Eugenran for safety to Brest harbour and the Bismark . where?":5500| :''" The British Navy now had the vital task of finding and sinking the Bismark."'''" This game starts at the time when the Hood has been sunk and contact with the Bismark lost." ''" You have to direct the ships hunting for the Bismark."''''" Let's have a look at the forces available to you .":5500| ^:"     " M8:8:X$="FORCE S H I P S STRENGTH":L=0:5 "   ":X=112 :910:4;7;" ";X;4;6;0;" ";U$;28;4;7;" ";;P(X,3);0;:X:"" 16,0;" The Bismark's strength is 30 and her guns are more accurate than those of your ships, so it is important to attack her with superior forces." "5500|:970:610b 18,0;" This is the game display. The date and time are at top right. The game starts at 0600hrs on 24th May and each turn = 6hrs." ,5500|:18,0;S$;S$;S$;S$; 18,0;"You have 13 turns (until 1200hrs27th May) to find the Bismark. After that your ships run short of fuel and have to return.":5500| 18,0;S$;S$;S$;S$;:18,0;"The left of the screen shows a map of the game area with 'East'at the top. The 's show the position of your ships." ,5500|:18,0;s$;s$;s$;s$; 18,0;"If the Bismark is in sight, her position will be shown by ''. The 's on the ":I=13:J=13:J+6,I+2;"":J:I:20,15;"map now show her likely positions at the start." 5500|:18,0;0;S$;S$;S$;S$;:18,0;"The arrow keys move your ships. Each force can be moved once perturn. Vian's Destroyers can move3 squares a turn, others only 2." 5500|:1:5::'6;" WEATHER: "'5;" The weather affects howfar away your ships can spot theBismark. In POOR weather they only see the square they are in." ʏ" In FAIR and GOOD weather they also see the adjacent squares, and your Aircraft Carriers may be able to fly air strikes." ϖ'6;" AIR STRIKES: "'5;" You have 2 carriers,the Victorious with 9 Swordfish torpedo bombers and the Ark Royal with 15." Ԡ" Each Carrier can fly 3 strikesduring the game. The range of the planes is about 4 squares. If they find the Bismark they will attack her.":5500| ٣:6'" COMBAT: "'5;" To attack the Bismark a ship must be in the same square.The Bismark may attack weaker forces, and always fires first." ޝ''6;" WINNING: "'5;" In a sense the British could not win the battle after the loss of the Hood, but they could certainly lose it." '" If the Bismark heads South or West to attack the convoy routesthe there is a good chance of catching her. If she heads Norththen she will have a good chanceof escape." 5500|::6''" SCORING: ";5'" In this game you can score a maximum of 100 points bysinking the Bismark with no lossto your forces. If the Bismark escapes you get a minus score." '''" In real life the Bismark was sunk at 1040hrs on 24th May, if she had escaped the course of the war might have been very different.":5500|: 5500|: #'PROGRAM STARTS HERE  #(r20,0;:"":#0;1,0;6;0;1;" S T O P T H E T A P E " #-bF=14:.1}L,30:.1}L,35#:.1}L,40(:.1}L,45-:F #2h:S$(32 ):P(12 ,5):M(12 ):R(3,2):N$(12 ,1):A(2) #"Bismark"9000(#:"Char"64300,,1236:"":"" ur <#-w<#isnla( dtqlajniforcycorosiQDUKing George V & Repulse-#Z0WFAIRX SINK THE BISMARK # 1 (                ? =# BCCACADBBCCB  A""  ar ,k~3233-%0zP#>:H\???B˧C!P:H\???FB˧F#CRRbb<<>><<@@~~BB<<HH~~BB<<BBBB<<BBBB<<>><<,<>DDHHpp@BBffZZBBbrrZ<>BB<<HHDDBB@@@@~~BZNNFBBBBBB<<||@@@@RRJJ<<||DDBBBB<<BBBB<<BB$$BBZZ$$$$BB ~~+EEUUm)DDDDEE}EEE@@@1JZkJ1\RRcNQ_QQDD(~@@x@@@ <B< |BB|DBB