01 LBL "BAT"
 02 SF 27
 03 FIX 00
 04 CLRG
 05 CF 29
 06 "SEED?"
 07 PROMPT
 08 "PLACE  FLEET"
 09 AVIEW
 10 STO 21
 11 4
 12 STO 22
 13 LBL 07
 14 5
 15 RCL 22
 16 -
 17 1 E3
 18 /
 19 1
 20 +
 21 STO 33
 22 LBL 06
 23 XEQ "SP"
 24 XEQ "PL"
 25 ISG 33
 26 GTO 06
 27 DSE 22
 28 GTO 07
 29 BEEP
 30 GTO 15
 31 LBL "RD"
 32 RCL 21
 33 9821
 34 *
 35 .211327
 36 +
 37 FRC
 38 STO 21
 39 RTN
 40 LBL "SP"
 41 XEQ "RD"
 42 1 E2
 43 *
 44 INT
 45 STO 36
 46 XEQ "RE"
 47 X=0?
 48 GTO 04
 49 LBL 08
 50 RCL 36
 51 1
 52 +
 53 1 E2
 54 MOD
 55 10
 56 /
 57 INT
 58 STO 50
 59 LASTX
 60 -
 61 CHS
 62 10
 63 *
 64 LBL c
 65 .009
 66 +
 67 STO 51
 68 LBL b
 69 RCL IND 50
 70 RCL 51
 71 INT
 72 1
 73 +
 74 10^X
 75 /
 76 FRC
 77 10
 78 *
 79 INT
 80 X=0?
 81 GTO a
 82 ISG 51
 83 GTO b
 84 RCL 50
 85 1
 86 +
 87 10
 88 MOD
 89 STO 50
 90 CLX
 91 GTO c
 92 LBL a
 93 RCL 50
 94 10
 95 *
 96 RCL 51
 97 INT
 98 +
 99 STO 36
100 LBL 04
101 RCL 36
102 STO 37
103 24
104 STO 23
105 RDN
106 STO IND 23
107 CF 05
108 CF 06
109 CF 07
110 XEQ "RD"
111 ST+ X
112 INT
113 STO 34
114 XEQ "RD"
115 .5
116 X>Y?
117 SF 05
118 LBL 09
119 1
120 STO 35
121 LBL 10
122 RCL 35
123 RCL 22
124 X=Y?
125 RTN
126 LBL 11
127 RCL 37
128 10
129 /
130 INT
131 STO 38
132 LASTX
133 -
134 CHS
135 10
136 *
137 STO 39
138 FS? 05
139 GTO 12
140 38
141 GTO 13
142 LBL 12
143 39
144 LBL 13
145 STO 40
146 RCL IND 40
147 -1
148 RCL 34
149 Y^X
150 +
151 STO IND 40
152 X<0?
153 GTO 14
154 9
155 X<Y?
156 GTO 14
157 RCL 38
158 10
159 *
160 RCL 39
161 +
162 STO 41
163 XEQ "RE"
164 X#0?
165 GTO 14
166 1
167 ST+ 35
168 ST+ 23
169 RCL 41
170 STO IND 23
171 STO 37
172 GTO 10
173 LBL 14
174 FS?C 06
175 GTO 17
176 1
177 ST+ 34
178 SF 06
179 RCL 36
180 STO 37
181 GTO 11
182 LBL 17
183 FS?C 07
184 GTO 08
185 SF 07
186 FS? 05
187 GTO 20
188 SF 05
189 GTO 22
190 LBL 20
191 CF 05
192 LBL 22
193 24
194 STO 23
195 RCL 36
196 STO 37
197 GTO 09
198 LBL "PL"
199 RCL 22
200 23
201 +
202 1 E3
203 /
204 24
205 +
206 STO 23
207 LBL 05
208 RCL 22
209 RCL IND 23
210 XEQ "ST"
211 ISG 23
212 GTO 05
213 RCL 23
214 FRC
215 24
216 +
217 STO 23
218 LBL 19
219 RCL IND 23
220 10
221 /
222 INT
223 STO 30
224 LASTX
225 -
226 CHS
227 10
228 *
229 STO 29
230 1.003
231 STO 28
232 LBL 00
233 RCL 28
234 INT
235 RCL 29
236 +
237 2
238 -
239 X<0?
240 GTO 01
241 9
242 X<Y?
243 GTO 01
244 RDN
245 STO 32
246 1.003
247 STO 31
248 LBL 02
249 RCL 31
250 INT
251 RCL 30
252 +
253 2
254 -
255 X<0?
256 GTO 03
257 9
258 X<Y?
259 GTO 03
260 RDN
261 10
262 *
263 RCL 32
264 +
265 STO 41
266 XEQ "RE"
267 X#0?
268 GTO 03
269 5
270 RCL 41
271 XEQ "ST"
272 LBL 03
273 ISG 31
274 GTO 02
275 LBL 01
276 ISG 28
277 GTO 00
278 ISG 23
279 GTO 19
280 RTN
281 LBL "RE"
282 10
283 /
284 RCL IND X
285 X<>Y
286 FRC
287 10
288 *
289 10^X
290 /
291 INT
292 10
293 /
294 FRC
295 10
296 *
297 RTN
298 LBL "ST"
299 10
300 /
301 INT
302 X<>Y
303 LASTX
304 FRC
305 10
306 *
307 10^X
308 *
309 ST+ IND Y
310 RTN
311 LBL 15
312 1234
313 STO 42
314 20.2
315 STO 20
316 1
317 STO 22
318 4
319 STO 33
320 CF 00
321 "YOU BEGIN ?"
322 AON
323 PROMPT
324 AOFF
325 ASTO X
326 GTO IND X
327 LBL "YES"
328 SF 00
329 XROM 30,31
330 GTO 18
331 LBL "NO"
332 LBL 50
333 XROM 30,31
334 CLA
335 RCL 22
336 1
337 X=Y?
338 GTO 21
339 ARCL 35
340 TONE 00
341 PROMPT
342 LBL 21
343 RCL 33
344 STO 22
345 XEQ "SP"
346 1
347 STO 22
348 ARCL 24
349 TONE 00
350 PROMPT
351 LBL C
352 1
353 RCL 22
354 X=Y?
355 GTO 23
356 23
357 +
358 RCL 35
359 STO IND Y
360 RCL 22
361 LBL 23
362 1
363 -
364 10^X
365 ST- 42
366 1
367 ST- 20
368 RCL 42
369 X=0?
370 GTO 24
371 LBL 25
372 RCL 42
373 RCL 33
374 1
375 -
376 10^X
377 /
378 INT
379 X#0?
380 GTO 26
381 DSE 33
382 GTO 25
383 LBL 26
384 XEQ "PL"
385 1
386 STO 22
387 GTO 18
388 LBL 24
389 RCL 20
390 FRC
391 X=0?
392 GTO 16
393 1 E2
394 *
395 1
396 X=Y?
397 FS? 00
398 GTO 27
399 GTO 18
400 LBL 16
401 "A TIE"
402 GTO 28
403 LBL 27
404 "I WON"
405 AVIEW
406 TONE 06
407 TONE 06
408 TONE 08
409 AVIEW
410 TONE 07
411 TONE 07
412 TONE 09
413 AVIEW
414 TONE 09
415 TONE 08
416 TONE 07
417 TONE 05
418 TONE 05
419 TONE 06
420 AVIEW
421 X<>Y
422 X<>Y
423 TONE 04
424 TONE 04
425 TONE 06
426 TONE 06
427 TONE 08
428 TONE 08
429 AVIEW
430 X<>Y
431 X<>Y
432 TONE 09
433 TONE 09
434 AVIEW
435 GTO 28
436 LBL A
437 RCL 20
438 FRC
439 X=0?
440 GTO 31
441 RCL 22
442 1
443 X=Y?
444 GTO 32
445 5
446 RCL 35
447 XEQ "ST"
448 GTO 33
449 LBL 32
450 5
451 RCL 24
452 XEQ "ST"
453 GTO 18
454 LBL 31
455 "YOU WON"
456 GTO 28
457 LBL B
458 1
459 ST+ 22
460 ST- 20
461 2
462 RCL 22
463 X=Y?
464 GTO 35
465 22
466 +
467 RCL 35
468 STO IND Y
469 GTO 36
470 LBL 35
471 CF 05
472 CF 06
473 RCL 24
474 10
475 /
476 INT
477 RCL 25
478 10
479 /
480 INT
481 X=Y?
482 SF 05
483 XEQ "RD"
484 ST+ X
485 INT
486 STO 34
487 LBL 34
488 RCL 24
489 STO 35
490 LBL 36
491 10
492 /
493 INT
494 STO 38
495 LASTX
496 -
497 CHS
498 10
499 *
500 STO 39
501 FS? 05
502 GTO 29
503 38
504 GTO 30
505 LBL 29
506 39
507 LBL 30
508 STO 40
509 RCL IND 40
510 -1
511 RCL 34
512 Y^X
513 +
514 X<0?
515 GTO 33
516 9
517 X<Y?
518 GTO 33
519 RDN
520 STO IND 40
521 RCL 38
522 10
523 *
524 RCL 39
525 +
526 XEQ "RE"
527 5
528 X=Y?
529 GTO 33
530 RCL 38
531 10
532 *
533 RCL 39
534 +
535 STO 35
536 GTO 18
537 LBL 34
538 RCL 24
539 STO 35
540 GTO 35
541 LBL 33
542 FS?C 06
543 GTO 37
544 SF 06
545 1
546 ST+ 34
547 GTO 34
548 LBL 37
549 FS? 05
550 GTO 38
551 SF 05
552 GTO 34
553 LBL 38
554 CF 05
555 GTO 34
556 LBL 18
557 XROM 30,31
558 TONE 03
559 TONE 05
560 "SHOOT"
561 PROMPT
562 STO 41
563 XEQ "RE"
564 STO 47
565 5
566 X<>Y
567 X#Y?
568 X=0?
569 GTO 39
570 6
571 X<>Y
572 X=Y?
573 GTO 48
574 .01
575 ST- 20
576 X<>Y
577 1
578 X=Y?
579 GTO 40
580 SF 08
581 CF 09
582 CF 10
583 LBL 41
584 RCL 41
585 10
586 /
587 INT
588 STO 43
589 LASTX
590 -
591 CHS
592 10
593 *
594 STO 44
595 LBL 47
596 FS? 08
597 GTO 42
598 43
599 GTO 43
600 LBL 42
601 44
602 LBL 43
603 STO 46
604 RCL IND 46
605 -1
606 RCL 45
607 Y^X
608 +
609 X<0?
610 GTO 44
611 9
612 X<Y?
613 GTO 44
614 X<>Y
615 STO IND 46
616 RCL 43
617 10
618 *
619 RCL 44
620 +
621 STO 48
622 XEQ "RE"
623 5
624 X<>Y
625 X=Y?
626 GTO 44
627 6
628 X=Y?
629 GTO 46
630 TONE 09
631 "HIT"
632 AVIEW
633 RCL 47
634 -
635 RCL 41
636 XEQ "ST"
637 GTO 50
638 LBL 39
639 TONE 09
640 "WATER"
641 AVIEW
642 RCL 20
643 INT
644 X=0?
645 GTO 27
646 GTO 50
647 LBL 40
648 TONE 09
649 "SUNK"
650 AVIEW
651 6
652 RCL 47
653 -
654 RCL 41
655 XEQ "ST"
656 RCL 20
657 FRC
658 X#0?
659 GTO 50
660 RCL 20
661 INT
662 X=0?
663 GTO 16
664 1
665 FS? 00
666 X#Y?
667 GTO 31
668 GTO 50
669 LBL 44
670 FS?C 09
671 GTO 45
672 1
673 ST+ 45
674 SF 09
675 GTO 41
676 LBL 45
677 FS?C 10
678 GTO 40
679 SF 10
680 CF 08
681 GTO 41
682 LBL 46
683 RCL 48
684 10
685 /
686 INT
687 STO 43
688 LASTX
689 -
690 CHS
691 10
692 *
693 STO 44
694 GTO 47
695 LBL 48
696 "BAD SHOT"
697 TONE 09
698 AVIEW
699 GTO 50
700 LBL 28
701 AVIEW
702 PSE
703 PSE
704 "GAME  OVER"
705 PROMPT
706 LBL "EX"
707 .009
708 ENTER
709 9.1
710 ENTER
711 LBL 99
712 ISG Y
713 X<> IND Z
714 X<> IND Y
715 X<> IND Z
716 ISG Z
717 GTO 99
718 RTN
719 END