,45,93:46,32:55,.:56,40::53272,27{ ********************************* * BATTLESHIPS 64 ** BY * * ROGER D. BURGE * * & * * JIM BUTTERFIELD *h * * * BASED ON THE ORIGINAL PET * * PROGRAM BY J. BUTTERFIELD * * * #* PROGRAM REVISED & UPGRADED BY * * ROGER D. BURGE *U (* * * PROGRAM CONVERTED TO THE * -* COMMODORE 64 * * BY * 2* ROGER D. BURGE * * #2667 *B 7* TORONTO PET USERS GROUP INC. * * INCORPORATED, TORONTO, CANADA *i <********************************* ALL40:SM1024:CY214:CX211: F53281,1:53280,1:" BATTLESHIPS 64 " K19)"BY":13)"[\]#[ $& ';[]#! P10)"AND JIM BUTTERFIELD":865c U"WANT INSTRUCTIONS? (Y/N)":Z$:Z$"N"145s ZZ$"Y"100{ _85 d" WE BOTH HAVE 5 SHIPS ON A GRID. " i" WE CAN'T SEE EACH OTHERS SHIPS,"; n"BUT WE CAN TAKE TURNS FIRING AT ONE ANOTHER'S8 s"GRID. A MISS SHOWS AS 'ג', A HIT AS '֒'.g x"TRY TO SINK MY SHIPS BEFORE I GET YOURS. }"TO START YOU MUST INPUT CO-ORDINATES":"FOR YOUR SHIPS. "FOR EXAMPLE: A SUBMARINE (LENGTH 3) MIGHT LIE 'E4-E6'"GOOD LUCK! HIT ANY KEY TO START'Z$:Z$""140RB(9,9,1),N$(4),L(4),H(4,1),I$(5):RTI"";" PRESS _ TO QUIT OR ^ TO RESTART ";"";" BY JIM BUTTERFIELD AND ROGER D. BURGE "=T.18:"":218,144:q" INPUT:";" ";:I$(5)"":I$(2)"""":IB$""/53280,.:" BATTLESHIPS 64 ";`"Ƒ"CARRIER,BATTLESHIP,CRUISER,SUBMARINE,"PT BOAT"5,5,4,3,2J.4:N$(J)::J.4:L(J):RR1000:R1(R):R1215 " MY BOARD"15)"YOUR BOARD9" ABCDEFGHIJ "10)" ABCDEFGHIJ "g" __________ "10)" __________ "Z.:Z$"":675Z$"۳":Z18:675:Z$"":675Z$""E$""Z$" "E" ^^^^^^^^^^ "10)" ^^^^^^^^^^ "s " ABCDEFGHIJ "10)" ABCDEFGHIJ "Z$;"INPUT YOUR SHIPS (I WON'T PEEK)..."J12000::E$;"GIVE END CO-ORDINATES FOR EACH SHIP..." L.1:J.9:K.9:B(J,K,L).:K,J,L)L.1:J.4:H(J,L).:J,L4"C.4u'E$;N$(C);" (LENGTH";L(C);")": ML5:805:Y$B$:690:E1295,X1X:Y1Y:695:E12951LL(C):XX1(XX1)L12956YY1(YY1)L1295;YY1XX1295@Y2(Y1Y):X2(X1X):Y3Y:X3X'EJ1L1:B(X3,Y3,.).295hJX2Y2.B(X3X2,Y3,.)B(X3,Y3Y2,.)B(X3,Y3Y2,.).295OX3X3X2:Y3Y3Y2:TB(X3,Y3,.).295YY$"":J1L:B(X,Y,.)C1:715:XXX2:YYY2:J,C^E$;"NOW I AM READY..":S.:H9.cC.4:LL(C)$hD((1)4):X1L1:Y1L12mD2X1.@rD.Y1.bwX((1)(10X1)):D3XXX1|Y((1)(10Y1)):Y3Y:X3X:X2(2D):Y2(Y1)J1L1:B(X3,Y3,1).360X2Y2.B(X3X2,Y3,1)B(X3,Y3Y2,1)B(X3,Y3Y2,1).360X3X3X2:Y3Y3Y2:%B(X3,Y3,1).360PJ1L:B(X,Y,1)C1:XXX2:YYY2:J,CYE$;E$;:"INPUT YOUR SHOT":ML2:805:Y$B$:""E$;"OKAY";690:E1410BB(X,Y,1):B9410870B(X,Y,1)B10:Y$"":B.455"Y$"":H(B1,1)H(B1,1)1:H(B1,1)L(B1)455^E$;N$(B1);" SUNK":C1500::C.4:H(C,1)L(C)455i:740Y$""890:465880720S500,540X((1)10):Y((1)10)BB(X,Y,.):B9570XX3:X10480XX10:YY1:Y10480YY10:480;X1X9D:X2X9D:Y1Y9D:Y2Y9DJX1.X1.YY1.Y1.hX29X29wY29Y29 XX1X2:YY1Y2BB(X,Y,.):B9570Y,X:DD1:500XX9:YY9!XXX8:YYY8:X.X9Y.Y9560&BB(X,Y,.):B9570+BB10:B.545-0S11S1:500I5S11:X8X8:Y8Y8:540g:E$;"MY TURN ":870?B(X,Y,.)B10:Y$"":H7.:H8(B):H9H9H8:X$"MISS":B.590DBB1:Y$"":X$"HIT":H(B,.)H(B,.)1:H(B,.)L(B)590IH71:H9H9L(B):X$"I SINK "N$(B)+NX$"MISS"890:6004S880lX715:E$;"I ";X$;" AT ";(X65);(Y48):J11000:]J.4:H(J,.)L(J)615b:745gS630,655lH81S1:D1:X9X:Y9Yq415vH9.S.:415{H8.415X8XX9:Y8YY9:S1.X8(X8)Y8(Y8)S2%4153H7.415;S1IH9.S.R415""(Z48)">"Z$"<"(Z48)""10)""(Z48)">"Z$"<";(Z48)P1:E.ZP(Y$)1:X((Y$,Z))65:X.X9705:E1:PZ(Y$):Y((Y$,P))48:Y.Y9 :7004"";27);:725A"";VQ1Y6:"";:kQ1X1:"";:y"";Y$:720:E$;"YOU WIN":770T.999::E$;"I WIN -I'LL SHOW MY HIDDEN SHIPS"X.9:Y.9BB(X,Y,1):B.B9765 Y$"":720:PT.999::Z$;"ANOTHER GAME? (Y/N) "bA$:A$"Y"r A$"N"795{775Y$:(Y$,1)"N"220E$;"GOOD DAY THEN":T.1000::64738%IB$" ":B$"":IB$I$(ML);:198,.*SPSM(CX)(CY)LL:SP,(SP)191'/A$:A$""810S4SP,(SP)128:I(A$):(SP)63SP,160a9I20855{>I32I128I160810CI95795HI94MB$B$A$:A$;:(B$)ML810RWI(B$):IB$(B$,1,I1)\:""(IB$,16)I$(ML)B$;:810,aSC54272:TSCSC23:T,.::T,15:53269,.:UfSC5,130:SC6,136:SC,255:SC4,17kT200.1:SC1,T:TT.12:::SC4,.:pSC5,33:SC6,129:SC1,7:SC4,129:T15.1uSC24,T:TT.99:::SC4,.:SC24,15: zSC5,130:SC6,136:SC4,129:T100 233:SC1,T:U T15.1:SC24,T:TT.22:::SC4,.:SC24,15[  T15.1:SC24,T:TT.22:::SC4,.:SC24,15 LL SMCYVCXSSCTTTZ(Rzk߱IJ R11ZE>'LK CML BSP9 A'I>B Nf ny L  @H;IIH;@I`+    ? m   c#Mo` t PC SR AC XR YR SP`d@/^\_`(a@aa/a a^aa\aJ0J5J55JJI5I55II55D5D55DDE5E55EEF5F55FF55G5G55GGJ4J44JJH5H55HHG7G77GGC0C00CCB0B00BBA0A00AAE0-E1E0-E11E0-EEE0--E00EED0-D2D0-D22D0-DDD0--D00DDC0-C3C0-C33C0-CCC0--C00CCC0-C4C0-C44C0-CCC0--C00CCB0-B4B0-B44B0-BBB0--ACX_A0-A4A0-A44A0-AAA0--A0CX_ I0`<|bf 0fFf<00`0~~p  pv66?333333ÙÙÙÙÙÙßÙϟ~cc~lfcc6cccc63``gc3Á~``|```~|fccccf|ϟ~cc|ccc~ÙÙÙϟßÙÙÙfffffff<ϏÙ?????????Ǐ???????Á?<Á<Á?????????????33?????????