_________________________________________________________________________

           Title: Battle Ship 2.0
          Author: Hidetake Jo <hidetakejo@twics.com>
      Written by: Hidetake Jo

     Description: version history

                  v1.0
                       - Had no enemies that actually fought back,
                         was no different than just guessing numbers.

                  v2.0
                       - Removed the memory hungry ending
                       - Added a enemy to it. which fights back
                       - Changed the scoring system

                  Directions

                       - Pick a area to place your ship
                       - Then try to destroy the enemy's ship, before
                         it destroys yours

_________________________________________________________________________

Command translation:

->              Single arrow (located on the keyboard)
=>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
<>              Not equal (A <> B)
^               Raised to the power of
/               Division or fraction (explain which with a comment)

2rt()           Root (2rt(7) is the square root of 7)
4rt()           4th root
pi              pi (~3.14159265359, low case)
e()             e(1) (~2.7818281846, low case)
E               Exponent (5E4 gives 5*10^4) (located on the keyboard,
                [EXP])
_________________________________________________________________________

 Program:


'BATTLE SHIP'
Mcl
Lbl 1
"7-8-9"
"4-5-6"
"1-2-3"
"PLACE SHIP"? -> A
A>9 => Goto 1
A<1 => Goto 1
" "
" "
" "
" "
" "
" "
"7-8-9"
"4-5-6"
"1-2-3"
"ENEMY IS"
"PLACING HIS"
"SHIP"_
Int 9Ran#+1 -> B
Lbl 4
" "
0 -> E
Isz F
F=10 => Goto 5
Goto 4
Lbl 5
Isz K
Frac (K/2) -> L
L <> 0 => "7-8-9"
L <> 0 => "4-5-6"
L <> 0 => "1-2-3"
L <> 0 => "PICK AREA"
L <> 0 => "TO SHOOT"? -> C
L=0 => "ENEMY IS"
L=0 => "SHOOTING AT"
L=0 => "YOU"_
Int 9Ran#+1 -> M
" ":" ":" ":" ":" "
"  OOO"
" OOOOO"
" OOOOO"
" OOOOO"
"OOOOOOO"
" ":" ":" ":" ":" ":" ":" "
0 -> E
L <> 0 => C=B => "HIT"_
L <> 0 => C=B => Goto 2
L <> 0 => C <> B => "MISS"_
L <> 0 => C <> B => Isz D
L=0 => M=A => "HE GOT YOU"_
L=0 => M=A => Goto 6
L=0 => M <> A => "PHEW,HE MISSED"_
Lbl 3
" "
Isz E
E=10 => Goto 5
Goto 3
Lbl 2
"YOU WIN"
"TRIES=":D_
Goto 8
Lbl 6
"YOU LOSE"
Lbl 8
" "

_________________________________________________________________________