BSHIP

00000000: 01 04 11 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |.......:.59468,1|
00000010: 34 00 41 04 01 00 8F 20  42 53 48 49 50 20 43 4F  |4.A.... BSHIP CO|
00000020: 50 59 52 49 47 48 54 20  28 43 29 20 31 39 37 38  |PYRIGHT (C) 1978|
00000030: 20 48 4F 57 41 52 44 20  41 52 52 49 4E 47 54 4F  | HOWARD ARRINGTO|
00000040: 4E 00 68 04 02 00 8F 20  32 30 31 20 53 2E 20 41  |N.h.... 201 S. A|
00000050: 4C 4D 4F 4E 20 23 39 2C  20 4D 4F 53 43 4F 57 20  |LMON #9, MOSCOW |
00000060: 49 44 20 38 34 38 34 33  00 6E 04 04 00 3A 00 8A  |ID 84843.n...:..|
00000070: 04 08 00 8F 20 43 55 52  53 4F 52 20 23 35 2C 20  |.... CURSOR #5, |
00000080: 4E 4F 56 2F 44 45 43 20  37 38 00 AA 04 09 00 8F  |NOV/DEC 78......|
00000090: 20 42 4F 58 20 35 35 30  2C 20 47 4F 4C 45 54 41  | BOX 550, GOLETA|
000000A0: 2C 20 43 41 20 39 33 30  31 37 00 B0 04 0A 00 3A  |, CA 93017.....:|
000000B0: 00 D9 04 32 00 99 20 22  93 11 11 11 42 53 48 49  |...2.. "....BSHI|
000000C0: 50 20 2D 20 43 D5 D2 D3  CF D2 A0 23 35 20 20 28  |P - C......#5  (|
000000D0: 43 29 20 31 39 37 38 11  22 00 05 05 34 00 99 22  |C) 1978."...4.."|
000000E0: 11 54 C8 C5 A0 C7 C1 CD  C5 A0 CF C6 A0 42 C1 D4  |.T...........B..|
000000F0: D4 CC C5 D3 C8 C9 D0 3A  20 D9 CF D5 20 D6 D3 2E  |.......: ... ...|
00000100: 20 A0 50 45 54 00 36 05  37 00 99 20 22 11 53 C5  | .PET.6.7.. ".S.|
00000110: C5 20 43 55 52 53 4F 52  20 4E CF D4 C5 D3 A0 23  |. CURSOR N.....#|
00000120: 35 20 C6 CF D2 20 C9 CE  D3 D4 D2 D5 C3 D4 C9 CF  |5 ... ..........|
00000130: CE D3 2E 11 11 22 00 4A  05 50 00 53 42 B2 34 35  |.....".J.P.SB.45|
00000140: 3A 86 53 48 25 28 33 2C  37 29 00 5C 05 55 00 81  |:.SH%(3,7).\.U..|
00000150: 49 B2 30 A4 33 3A 81 4A  B2 31 A4 37 00 70 05 57  |I.0.3:.J.1.7.p.W|
00000160: 00 87 53 48 25 28 49 2C  4A 29 3A 82 4A 3A 82 49  |..SH%(I,J):.J:.I|
00000170: 00 B9 05 58 00 83 33 30  2C 34 2C 32 39 2C 36 30  |...X..30,4,29,60|
00000180: 2C 39 32 2C 39 36 2C 38  39 2C 30 2C 32 2C 31 30  |,92,96,89,0,2,10|
00000190: 2C 31 31 2C 31 32 2C 32  30 2C 32 32 2C 30 2C 39  |,11,12,20,22,0,9|
000001A0: 2C 31 31 2C 32 31 2C 32  39 2C 33 31 2C 34 30 2C  |,11,21,29,31,40,|
000001B0: 30 2C 31 2C 31 30 2C 31  32 00 E6 05 6E 00 86 44  |0,1,10,12...n..D|
000001C0: 28 39 29 2C 53 24 28 34  29 2C 4C 25 28 32 2C 34  |(9),S$(4),L%(2,4|
000001D0: 2C 35 29 2C 5A 25 28 34  2C 36 29 2C 45 28 39 29  |,5),Z%(4,6),E(9)|
000001E0: 2C 42 25 28 37 29 00 FA  05 73 00 81 49 B2 31 A4  |,B%(7)...s..I.1.|
000001F0: 39 3A 87 45 28 49 29 3A  82 49 00 24 06 75 00 83  |9:.E(I):.I.$.u..|
00000200: 32 30 2C 32 31 2C 33 30  2C 33 39 2C 34 30 2C 34  |20,21,30,39,40,4|
00000210: 31 2C 2D 31 2C 30 2C 31  2C 2D 34 31 2C 2D 34 30  |1,-1,0,1,-41,-40|
00000220: 2C 2D 33 39 00 39 06 78  00 81 49 B2 30 A4 33 3A  |,-39.9.x..I.0.3:|
00000230: 87 53 24 28 49 29 3A 82  49 00 6A 06 82 00 83 22  |.S$(I):.I.j...."|
00000240: 53 D5 C2 CD C1 D2 C9 CE  C5 22 2C 22 50 C1 D4 D2  |S........","P...|
00000250: CF CC 22 2C 22 43 D2 D5  C9 D3 C5 D2 22 2C 22 42  |..","C......","B|
00000260: C1 D4 D4 CC C5 D3 C8 C9  D0 22 00 9C 06 8C 00 42  |.........".....B|
00000270: 4C 24 B2 22 20 20 20 20  20 20 20 20 20 20 20 20  |L$."            |
00000280: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000290: 20 20 20 20 20 20 20 20  20 20 20 22 00 BC 06 B4  |           "....|
000002A0: 00 57 28 31 29 B2 31 3A  57 28 32 29 B2 31 3A 57  |.W(1).1:W(2).1:W|
000002B0: 28 33 29 B2 32 3A 57 28  34 29 B2 33 00 E1 06 B9  |(3).2:W(4).3....|
000002C0: 00 81 4A B2 31 A4 34 3A  81 4B B2 31 A4 4A AA 31  |..J.1.4:.K.1.J.1|
000002D0: 3A 5A 25 28 4A 2C 4B 29  B2 53 42 3A 82 4B 3A 82  |:Z%(J,K).SB:.K:.|
000002E0: 4A 00 F5 06 BE 00 81 49  B2 31 A4 39 3A 87 44 28  |J......I.1.9:.D(|
000002F0: 49 29 3A 82 49 00 14 07  C3 00 83 39 2C 31 30 2C  |I):.I......9,10,|
00000300: 31 31 2C 2D 31 2C 30 2C  31 2C 2D 31 31 2C 2D 31  |11,-1,0,1,-11,-1|
00000310: 30 2C 2D 39 00 1A 07 C8  00 8F 00 44 07 D2 00 41  |0,-9.......D...A|
00000320: B2 33 32 39 33 30 3A 50  B2 32 32 3A 4C 31 B2 31  |.32930:P.22:L1.1|
00000330: 3A 99 3A 56 28 31 29 B2  37 3A 56 28 32 29 B2 37  |:.:V(1).7:V(2).7|
00000340: 3A 4E B2 31 00 69 07 06  01 99 22 59 CF D5 D2 A0  |:N.1.i...."Y....|
00000350: CE C1 CD C5 3A 20 22 3B  3A 8D 36 30 30 30 30 3A  |....: ";:.60000:|
00000360: 4E 24 28 31 29 B2 49 4E  24 00 81 07 08 01 4E 24  |N$(1).IN$.....N$|
00000370: 28 32 29 B2 22 43 C1 D0  D4 C1 C9 CE 20 50 45 54  |(2)."C...... PET|
00000380: 22 00 B1 07 2C 01 99 22  93 20 20 30 31 32 33 34  |"...,..".  01234|
00000390: 35 36 37 38 39 20 20 45  CE D4 C5 D2 20 D3 C8 C9  |56789  E.... ...|
000003A0: D0 20 CC CF C3 C1 D4 C9  CF CE 20 D5 D3 C9 CE C7  |. ........ .....|
000003B0: 22 00 E5 07 2F 01 99 A3  31 37 29 3B 22 C1 20 D4  |".../...17);". .|
000003C0: D7 CF 20 C4 C9 C7 C9 D4  20 CE D5 CD C2 C5 D2 22  |.. ..... ......"|
000003D0: 3A 99 A3 32 30 29 3B 22  3C 30 30 20 D4 C8 D2 D5  |:..20);"<00 ....|
000003E0: 20 39 39 3E 22 00 1D 08  30 01 99 A3 31 35 29 3B  | 99>"...0...15);|
000003F0: 22 C9 CE 20 D4 C8 C5 A0  C6 CF D2 CD C1 D4 20 CF  |".. .......... .|
00000400: C6 A0 D2 CF D7 20 23 22  3A 99 A3 32 30 29 3B 22  |..... #":..20);"|
00000410: C1 CE C4 20 C3 CF CC D5  CD CE 20 23 22 00 40 08  |... ...... #".@.|
00000420: 32 01 99 A3 31 34 29 3B  22 11 46 CF D2 20 C4 C9  |2...14);".F.. ..|
00000430: D2 C5 C3 D4 C9 CF CE 20  D5 D3 C5 20 D4 C8 C5 22  |....... ... ..."|
00000440: 00 61 08 34 01 99 A3 31  34 29 3B 22 CB C5 D9 D3  |.a.4...14);"....|
00000450: 20 C1 D2 CF D5 CE C4 20  D4 C8 C5 20 27 35 27 2E  | ...... ... '5'.|
00000460: 22 00 86 08 35 01 99 A3  31 34 29 3B 22 11 45 CE  |"...5...14);".E.|
00000470: D4 C5 D2 20 22 3B 4E 24  28 31 29 3B 22 27 D3 20  |... ";N$(1);"'. |
00000480: D3 C8 C9 D0 D3 22 00 96  08 36 01 8D 37 30 30 3A  |....."...6..700:|
00000490: 81 4A B2 31 A4 34 00 B7  08 3B 01 99 3A 99 20 53  |.J.1.4...;..:. S|
000004A0: 24 28 4A AB 31 29 3B 22  20 CF C6 20 CC C5 CE C7  |$(J.1);" .. ....|
000004B0: D4 C8 22 3B 4A AA 31 00  E2 08 54 01 54 42 B2 33  |..";J.1...T.TB.3|
000004C0: 3A 50 52 24 B2 22 4C CF  C3 C1 D4 C9 CF CE 22 3A  |:PR$."L.......":|
000004D0: 8D 38 30 30 30 3A 4C 25  28 31 2C 4A 2C 31 29 B2  |.8000:L%(1,J,1).|
000004E0: 4C 43 00 11 09 5E 01 99  A3 32 30 29 3B 22 44 C9  |LC...^...20);"D.|
000004F0: D2 C5 C3 D4 C9 CF CE 3A  20 22 3B 3A 8D 36 30 30  |.......: ";:.600|
00000500: 30 30 3A 8B C3 28 49 4E  24 29 B3 B1 31 A7 35 32  |00:..(IN$)..1.52|
00000510: 30 00 2A 09 5F 01 8B 49  4E 24 B3 22 31 22 B0 49  |0.*._..IN$."1".I|
00000520: 4E 24 B1 22 39 22 A7 35  32 30 00 56 09 60 01 44  |N$."9".520.V.`.D|
00000530: B2 44 28 C5 28 49 4E 24  29 29 3A 4B B2 31 3A 4C  |.D(.(IN$)):K.1:L|
00000540: 31 B2 35 3A 8D 36 30 30  3A 8B 44 B2 30 A7 4B B2  |1.5:.600:.D.0.K.|
00000550: 32 3A 89 35 30 30 00 7B  09 68 01 81 4B B2 32 A4  |2:.500.{.h..K.2.|
00000560: 4A AA 31 3A 4C 25 28 31  2C 4A 2C 4B 29 B2 4C 25  |J.1:L%(1,J,K).L%|
00000570: 28 31 2C 4A 2C 4B AB 31  29 AA 44 00 8D 09 72 01  |(1,J,K.1).D...r.|
00000580: 8D 36 30 30 3A 8B 44 B2  30 A7 35 30 30 00 9D 09  |.600:.D.0.500...|
00000590: 90 01 82 4B 3A 82 4A 3A  89 31 36 30 30 00 B7 09  |...K:.J:.1600...|
000005A0: F4 01 4C B2 53 42 3A 81  20 4B B2 4B AB 31 20 A4  |..L.SB:. K.K.1 .|
000005B0: 20 31 20 A9 20 AB 31 00  C3 09 FE 01 8D 36 31 30  | 1 . .1......610|
000005C0: 3A 82 4B 00 DB 09 08 02  99 3A 99 22 91 22 3B 42  |:.K......:.".";B|
000005D0: 4C 24 3B 22 91 22 3A 89  33 34 30 00 E1 09 58 02  |L$;".":.340...X.|
000005E0: 8F 00 F5 09 5D 02 4C B2  C6 28 53 24 28 4A AB 31  |....].L..(S$(J.1|
000005F0: 29 29 AB 36 34 00 1E 0A  62 02 4A 31 B2 4C 25 28  |)).64...b.J1.L%(|
00000600: 31 2C 4A 2C 4B 29 3A 4B  31 B2 B5 28 4A 31 AD 31  |1,J,K):K1..(J1.1|
00000610: 30 29 3A 4A 31 B2 4A 31  AB 4B 31 AC 31 30 00 31  |0):J1.J1.K1.10.1|
00000620: 0A 64 02 8B 4C 31 B2 30  AF 4A 31 B2 39 A7 36 34  |.d..L1.0.J1.9.64|
00000630: 30 00 44 0A 66 02 8B 4C  31 B2 39 AF 4A 31 B2 30  |0.D.f..L1.9.J1.0|
00000640: A7 36 34 30 00 5F 0A 6C  02 4C 31 B2 4A 31 3A 42  |.640._.l.L1.J1:B|
00000650: B2 41 AA 4B 31 AC 34 30  AA 4A 31 AB 31 32 30 00  |.A.K1.40.J1.120.|
00000660: 78 0A 76 02 8B 4C B2 53  42 B0 C2 28 42 29 B2 53  |x.v..L.SB..(B).S|
00000670: 42 A7 97 42 2C 4C 3A 8E  00 82 0A 80 02 44 B2 30  |B..B,L:......D.0|
00000680: 3A 8E 00 A9 0A BC 02 99  22 13 11 20 30 9D 11 31  |:.......".. 0..1|
00000690: 9D 11 32 9D 11 33 9D 11  34 9D 11 35 9D 11 36 9D  |..2..3..4..5..6.|
000006A0: 11 37 9D 11 38 9D 11 39  22 00 BE 0A C6 02 99 22  |.7..8..9"......"|
000006B0: 13 11 20 30 22 3B 3A 81  4A B2 31 A4 31 30 00 D7  |.. 0";:.J.1.10..|
000006C0: 0A D0 02 99 A3 32 29 3B  22 2D 2D 2D 2D 2D 2D 2D  |.....2);"-------|
000006D0: 2D 2D 2D 22 3A 82 4A 00  DD 0A DA 02 8E 00 F9 0A  |---":.J.........|
000006E0: E8 03 4C 31 B2 31 3A 8F  20 2A 2A 20 44 49 53 50  |..L1.1:. ** DISP|
000006F0: 4C 41 59 20 47 52 49 44  53 00 12 0B F2 03 99 22  |LAY GRIDS......"|
00000700: 93 22 3A 42 24 B2 22 30  31 32 33 34 35 36 37 38  |.":B$."012345678|
00000710: 39 22 00 22 0B FC 03 81  54 42 B2 30 A4 32 32 A9  |9"."....TB.0.22.|
00000720: 32 32 00 3D 0B 06 04 99  22 13 22 A3 54 42 29 3B  |22.=....".".TB);|
00000730: 4E 24 28 54 42 AD 32 32  AA 31 29 3A 99 00 63 0B  |N$(TB.22.1):..c.|
00000740: 10 04 99 20 A3 54 42 AA  32 29 3B 42 24 3A 99 A3  |... .TB.2);B$:..|
00000750: 54 42 29 3B 22 20 B0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |TB);" ..........|
00000760: C0 AE 22 00 91 0B 1A 04  81 49 B2 31 A4 31 30 3A  |.."......I.1.10:|
00000770: 99 A3 54 42 29 3B CA 28  42 24 2C 49 2C 31 29 3B  |..TB);.(B$,I,1);|
00000780: 22 DD 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D DD 22 3A 82  |".----------.":.|
00000790: 49 00 C6 0B 24 04 99 A3  54 42 29 3B 22 20 AD C0  |I...$...TB);" ..|
000007A0: C0 C0 C0 C0 C0 C0 C0 C0  C0 BD 22 3A 99 22 13 11  |..........":."..|
000007B0: 11 22 3A 54 B2 54 42 AA  31 33 3A 99 A3 54 29 3B  |.":T.TB.13:..T);|
000007C0: 22 C8 C9 D4 D3 22 00 F3  0B 2E 04 81 49 B2 32 A4  |"...."......I.2.|
000007D0: 35 3A 99 A3 54 29 3B C8  28 22 2A 2A 2A 2A 2A 22  |5:..T);.("*****"|
000007E0: 2C 49 29 3A 82 49 3A 99  22 11 11 11 11 11 22 3A  |,I):.I:.".....":|
000007F0: 82 54 42 00 F9 0B B0 04  8F 00 11 0C BA 04 81 49  |.TB............I|
00000800: B2 32 A4 31 A9 AB 31 3A  8B 49 B2 32 A7 31 38 30  |.2.1..1:.I.2.180|
00000810: 30 00 2A 0C C4 04 99 22  13 11 11 11 11 11 11 11  |0.*...."........|
00000820: 11 11 11 11 11 11 11 11  22 3B 00 3D 0C C9 04 81  |........";.=....|
00000830: 4A B2 31 A4 39 3A 99 42  4C 24 3A 82 4A 00 5C 0C  |J.1.9:.BL$:.J.\.|
00000840: CE 04 99 22 91 91 91 91  91 91 91 91 91 22 3B 56  |...".........";V|
00000850: 28 49 29 3B 22 D3 C8 CF  D4 D3 11 22 00 6A 0C D8  |(I);"......".j..|
00000860: 04 81 4A B2 31 A4 56 28  49 29 00 91 0C E2 04 54  |..J.1.V(I).....T|
00000870: 42 B2 30 3A 50 52 24 B2  22 23 22 AA C4 28 4A 29  |B.0:PR$."#"..(J)|
00000880: 3A 8D 38 30 30 30 3A 42  25 28 4A 29 B2 4C 43 3A  |:.8000:B%(J).LC:|
00000890: 99 00 AB 0C F1 04 4B B2  B5 28 4C 43 AD 31 30 29  |......K..(LC.10)|
000008A0: 3A 4B 31 B2 4C 43 AB 31  30 AC 4B 00 C3 0C FB 04  |:K1.LC.10.K.....|
000008B0: 54 B2 41 AA 50 AC 28 49  AB 31 29 AA 4B AC 34 30  |T.A.P.(I.1).K.40|
000008C0: AA 4B 31 00 E0 0C 05 05  8B C2 28 54 29 B3 B1 53  |.K1.......(T)..S|
000008D0: 42 A7 42 25 28 4A 29 B2  AB 32 3A 89 31 32 39 35  |B.B%(J)..2:.1295|
000008E0: 00 EA 0C 0A 05 97 54 2C  4C 31 00 F1 0C 0F 05 82  |......T,L1......|
000008F0: 4A 00 F7 0C 14 05 8F 00  02 0D 19 05 4B 31 B2 33  |J...........K1.3|
00000900: AB 49 00 1A 0D 1E 05 81  4A 31 B2 31 A4 56 28 49  |.I......J1.1.V(I|
00000910: 29 3A 42 B2 42 25 28 4A  31 29 00 2E 0D 28 05 81  |):B.B%(J1)...(..|
00000920: 4A B2 31 A4 34 3A 81 4B  B2 31 A4 4A AA 31 00 45  |J.1.4:.K.1.J.1.E|
00000930: 0D 32 05 8B 42 B2 4C 25  28 4B 31 2C 4A 2C 4B 29  |.2..B.L%(K1,J,K)|
00000940: A7 31 33 34 35 00 55 0D  3C 05 82 4B 3A 82 4A 3A  |.1345.U.<..K:.J:|
00000950: 89 31 33 39 30 00 63 0D  41 05 81 4B 4B B2 31 A4  |.1390.c.A..KK.1.|
00000960: 4A AA 31 00 82 0D 46 05  4B 58 B2 C2 28 41 AA 50  |J.1...F.KX..(A.P|
00000970: AC 28 49 AB 31 29 AA 4A  AC 34 30 AA 4B 4B AB 33  |.(I.1).J.40.KK.3|
00000980: 30 29 00 AC 0D 50 05 8B  4B 58 B2 34 32 A7 97 41  |0)...P..KX.42..A|
00000990: AA 50 AC 28 49 AB 31 29  AA 4A AC 34 30 AA 4B 4B  |.P.(I.1).J.40.KK|
000009A0: AB 33 30 2C 4C 31 3A 89  31 33 36 35 00 B4 0D 52  |.30,L1:.1365...R|
000009B0: 05 82 4B 4B 00 C8 0D 55  05 8B 49 B2 32 A7 5A 25  |..KK...U..I.2.Z%|
000009C0: 28 4A 2C 4B 29 B2 4C 31  00 D5 0D 5A 05 81 4B B2  |(J,K).L1...Z..K.|
000009D0: 31 A4 4A AA 31 00 F2 0D  64 05 42 B2 C2 28 41 AA  |1.J.1...d.B..(A.|
000009E0: 50 AC 28 49 AB 31 29 AA  4A AC 34 30 AA 4B AB 33  |P.(I.1).J.40.K.3|
000009F0: 30 29 00 01 0E 66 05 8B  42 B2 34 32 A7 31 33 39  |0)...f..B.42.139|
00000A00: 30 00 19 0E 68 05 82 4B  3A 56 28 4B 31 29 B2 56  |0...h..K:V(K1).V|
00000A10: 28 4B 31 29 AB 57 28 4A  29 00 2C 0E 69 05 8B 49  |(K1).W(J).,.i..I|
00000A20: B2 32 A7 5A 25 28 4A 2C  31 29 B2 30 00 3E 0E 6A  |.2.Z%(J,1).0.>.j|
00000A30: 05 8B 56 28 4B 31 29 B2  30 A7 31 34 30 30 00 49  |..V(K1).0.1400.I|
00000A40: 0E 6E 05 82 4A 31 3A 82  49 00 5B 0E 73 05 4C 31  |.n..J1:.I.[.s.L1|
00000A50: B2 4C 31 AA 31 3A 89 31  32 30 30 00 61 0E 78 05  |.L1.1:.1200.a.x.|
00000A60: 8F 00 9A 0E 82 05 99 22  13 22 3B 4E 24 28 4B 31  |.......".";N$(K1|
00000A70: 29 3B 22 27 D3 20 D3 C8  C9 D0 D3 20 C8 C1 D6 C5  |);"'. ..... ....|
00000A80: 20 C2 C5 C5 CE 20 D3 D5  CE CB 21 21 20 20 20 20  | .... ....!!    |
00000A90: 20 20 20 20 20 20 20 20  22 3B 00 A9 0E 96 05 4C  |        ";.....L|
00000AA0: B2 31 3A 81 49 B2 31 A4  32 00 BD 0E AA 05 81 4A  |.1:.I.1.2......J|
00000AB0: B2 31 A4 34 3A 81 4B B2  31 A4 4A AA 31 00 D4 0E  |.1.4:.K.1.J.1...|
00000AC0: B4 05 4A 31 B2 B5 28 4C  25 28 49 2C 4A 2C 4B 29  |..J1..(L%(I,J,K)|
00000AD0: AD 31 30 29 00 EB 0E BE  05 4B 31 B2 4C 25 28 49  |.10).....K1.L%(I|
00000AE0: 2C 4A 2C 4B 29 AB 4A 31  AC 31 30 00 00 0F C3 05  |,J,K).J1.10.....|
00000AF0: 54 B2 41 AA 50 AC 4C AA  4A 31 AC 34 30 AA 4B 31  |T.A.P.L.J1.40.K1|
00000B00: 00 14 0F C8 05 42 B2 C2  28 54 29 3A 97 54 2C 42  |.....B..(T):.T,B|
00000B10: AA 31 32 38 00 25 0F DC  05 82 4B 3A 82 4A 3A 4C  |.128.%....K:.J:L|
00000B20: B2 30 3A 82 49 00 43 0F  E6 05 99 22 13 11 11 11  |.0:.I.C...."....|
00000B30: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000B40: 11 11 22 00 5E 0F EB 05  99 22 57 41 4E 54 20 54  |..".^...."WANT T|
00000B50: 4F 20 50 4C 41 59 20 41  47 41 49 4E 3F 22 00 74  |O PLAY AGAIN?".t|
00000B60: 0F EE 05 A1 52 4A 24 3A  8B 52 4A 24 B2 22 22 A7  |....RJ$:.RJ$."".|
00000B70: 31 35 31 38 00 83 0F F0  05 8B 52 4A 24 B2 22 59  |1518......RJ$."Y|
00000B80: 22 A7 8A 00 8D 0F FA 05  89 35 30 30 30 00 93 0F  |"........5000...|
00000B90: 40 06 8F 00 B5 0F 4A 06  47 28 31 29 B2 31 3A 47  |@.....J.G(1).1:G|
00000BA0: 28 32 29 B2 39 3A 47 28  33 29 B2 31 30 3A 47 28  |(2).9:G(3).10:G(|
00000BB0: 34 29 B2 31 31 00 C8 0F  54 06 4C 31 B2 31 3A 81  |4).11...T.L1.1:.|
00000BC0: 4A B2 34 A4 31 A9 AB 31  00 E1 0F 5E 06 42 B2 B5  |J.4.1..1...^.B..|
00000BD0: 28 BB 28 31 29 AC 34 AA  31 29 3A 42 B2 47 28 42  |(.(1).4.1):B.G(B|
00000BE0: 29 00 F7 0F 68 06 4C B2  31 3A 8B BB 28 31 29 B1  |)...h.L.1:..(1).|
00000BF0: 2E 35 A7 4C B2 AB 31 00  09 10 72 06 49 B2 B5 28  |.5.L..1...r.I..(|
00000C00: BB 28 31 29 AC 31 30 30  29 00 16 10 7C 06 81 4B  |.(1).100)...|..K|
00000C10: B2 31 A4 4A AA 31 00 32  10 82 06 81 4A 31 B2 34  |.1.J.1.2....J1.4|
00000C20: A4 4A AB 31 A9 AB 31 3A  81 4B 31 B2 31 A4 4A 31  |.J.1..1:.K1.1.J1|
00000C30: AA 31 00 4A 10 84 06 8B  4C 25 28 32 2C 4A 31 2C  |.1.J....L%(2,J1,|
00000C40: 4B 31 29 B2 49 A7 31 36  35 30 00 56 10 85 06 82  |K1).I.1650.V....|
00000C50: 4B 31 3A 82 4A 31 00 75  10 86 06 4C 25 28 32 2C  |K1:.J1.u...L%(2,|
00000C60: 4A 2C 4B 29 B2 49 3A 44  B2 49 AB B5 28 49 AD 31  |J,K).I:D.I..(I.1|
00000C70: 30 29 AC 31 30 00 88 10  8A 06 8B 4C 31 B2 30 AF  |0).10......L1.0.|
00000C80: 44 B2 39 A7 31 36 35 30  00 9B 10 8C 06 8B 4C 31  |D.9.1650......L1|
00000C90: B2 39 AF 44 B2 30 A7 31  36 35 30 00 BB 10 95 06  |.9.D.0.1650.....|
00000CA0: 4C 31 B2 44 3A 49 B2 49  AA 4C AC 42 3A 8B 49 B1  |L1.D:I.I.L.B:.I.|
00000CB0: 39 39 B0 49 B3 30 A7 31  36 35 30 00 CB 10 9A 06  |99.I.0.1650.....|
00000CC0: 82 4B 3A 82 4A 3A 89 31  30 30 30 00 D1 10 08 07  |.K:.J:.1000.....|
00000CD0: 8F 00 FD 10 0D 07 99 22  13 11 11 11 11 11 11 11  |......."........|
00000CE0: 11 11 11 11 11 11 11 11  22 3B A3 32 32 29 3B 56  |........";.22);V|
00000CF0: 28 32 29 3B 22 D3 C8 CF  D4 D3 22 3A 99 00 11 11  |(2);".....":....|
00000D00: 12 07 8D 32 32 30 30 3A  81 4C B2 31 A4 56 28 32  |...2200:.L.1.V(2|
00000D10: 29 00 53 11 4C 07 8F 20  50 52 49 4E 54 54 41 42  |).S.L.. PRINTTAB|
00000D20: 28 32 32 29 3B 22 23 22  3B 4C 3B 22 9D 3A 20 22  |(22);"#";L;".: "|
00000D30: 3B 52 49 47 48 54 24 28  22 30 30 22 2B 4D 49 44  |;RIGHT$("00"+MID|
00000D40: 24 28 53 54 52 24 28 42  25 28 4C 29 29 2C 32 29  |$(STR$(B%(L)),2)|
00000D50: 2C 32 29 00 60 11 4E 07  82 4C 3A 89 31 33 30 30  |,2).`.N..L:.1300|
00000D60: 00 66 11 98 08 8F 00 6E  11 9D 08 4C B2 31 00 9A  |.f.....n...L.1..|
00000D70: 11 A2 08 5A 31 B2 30 3A  5A 32 B2 39 3A 5A 33 B2  |...Z1.0:Z2.9:Z3.|
00000D80: 31 3A 8B BB 28 31 29 B1  2E 35 A7 5A 31 B2 39 3A  |1:..(1)..5.Z1.9:|
00000D90: 5A 32 B2 30 3A 5A 33 B2  AB 31 00 BC 11 A4 08 52  |Z2.0:Z3..1.....R|
00000DA0: B2 30 3A 81 4A B2 34 A4  31 A9 AB 31 3A 8B 5A 25  |.0:.J.4.1..1:.Z%|
00000DB0: 28 4A 2C 31 29 B2 30 A7  32 36 30 35 00 C9 11 A7  |(J,1).0.2605....|
00000DC0: 08 81 4B B2 31 A4 4A AA  31 00 DE 11 AC 08 8B 5A  |..K.1.J.1......Z|
00000DD0: 25 28 4A 2C 4B 29 B2 53  42 A7 32 36 30 30 00 FC  |%(J,K).SB.2600..|
00000DE0: 11 B6 08 81 4A 32 B2 5A  31 A4 5A 32 A9 5A 33 3A  |....J2.Z1.Z2.Z3:|
00000DF0: 81 4B 32 B2 5A 31 A4 5A  32 A9 5A 33 00 0F 12 C0  |.K2.Z1.Z2.Z3....|
00000E00: 08 42 B2 41 AA 50 AA 4A  32 AC 34 30 AA 4B 32 00  |.B.A.P.J2.40.K2.|
00000E10: 27 12 CA 08 8B C2 28 42  29 B3 B1 5A 25 28 4A 2C  |'.....(B)..Z%(J,|
00000E20: 4B 29 A7 32 33 35 30 00  42 12 D4 08 8F 20 43 59  |K).2350.B.... CY|
00000E30: 43 4C 45 20 44 49 52 45  43 54 49 4F 4E 2D 54 45  |CLE DIRECTION-TE|
00000E40: 53 54 00 59 12 DE 08 81  44 52 B2 31 A4 39 3A 8B  |ST.Y....DR.1.9:.|
00000E50: 44 52 B2 35 A7 32 33 34  30 00 67 12 E3 08 81 4B  |DR.5.2340.g....K|
00000E60: 4B B2 31 A4 4A AA 31 00  76 12 E8 08 8B 4B 4B B2  |K.1.J.1.v....KK.|
00000E70: 4B A7 32 33 33 30 00 A1  12 F2 08 42 B2 4A 32 AC  |K.2330.....B.J2.|
00000E80: 31 30 AA 4B 32 AA 28 4B  AB 4B 4B 29 AC 44 28 44  |10.K2.(K.KK).D(D|
00000E90: 52 29 3A 8B 42 B3 30 B0  42 B1 39 39 A7 32 33 34  |R):.B.0.B.99.234|
00000EA0: 30 00 B9 12 FA 08 8D 32  39 30 30 3A 8B 50 4B B2  |0......2900:.PK.|
00000EB0: 31 30 32 A7 50 4B B2 53  42 00 D0 12 FC 08 8B 50  |102.PK.SB......P|
00000EC0: 4B B3 B1 5A 25 28 4A 2C  4B 4B 29 A7 32 33 34 30  |K..Z%(J,KK).2340|
00000ED0: 00 EA 12 06 09 8B 4B 32  AA 34 B3 4B 58 B0 4B 58  |......K2.4.KX.KX|
00000EE0: AA 34 B3 4B 32 A7 32 33  34 30 00 F2 12 1A 09 82  |.4.K2.2340......|
00000EF0: 4B 4B 00 FC 12 1F 09 89  32 38 30 30 00 04 13 24  |KK......2800...$|
00000F00: 09 82 44 52 00 16 13 2E  09 82 4B 32 3A 82 4A 32  |..DR......K2:.J2|
00000F10: 3A 89 32 36 30 30 00 31  13 60 09 8D 33 34 30 30  |:.2600.1.`..3400|
00000F20: 3A 4B 31 B2 38 3A 44 B2  B5 28 BB 28 31 29 AC 35  |:K1.8:D..(.(1).5|
00000F30: 29 00 44 13 61 09 8B 44  B2 30 A7 46 B2 30 3A 89  |).D.a..D.0.F.0:.|
00000F40: 32 34 30 36 00 5E 13 62  09 8B 44 B2 34 A7 46 B2  |2406.^.b..D.4.F.|
00000F50: 46 AA 32 35 3A 44 B2 31  3A 89 32 34 30 36 00 6F  |F.25:D.1:.2406.o|
00000F60: 13 65 09 46 B2 B5 28 BB  28 31 29 AC 39 39 29 00  |.e.F..(.(1).99).|
00000F70: 7D 13 66 09 81 4D B2 4C  A4 56 28 32 29 00 A0 13  |}.f..M.L.V(2)...|
00000F80: 6A 09 42 B2 53 48 25 28  44 2C 4D 29 AA 46 3A 8B  |j.B.SH%(D,M).F:.|
00000F90: 42 B3 31 30 30 A7 8D 32  35 31 30 3A 82 4D 3A 8E  |B.100..2510:.M:.|
00000FA0: 00 B1 13 74 09 46 B2 46  AB 34 33 3A 89 32 34 31  |...t.F.F.43:.241|
00000FB0: 30 00 C2 13 C4 09 42 B2  B5 28 BB 28 31 29 AC 39  |0.....B..(.(1).9|
00000FC0: 39 29 00 D9 13 CE 09 8D  32 39 30 30 3A 8B 50 4B  |9)......2900:.PK|
00000FD0: B3 B1 53 42 A7 32 35 30  30 00 0C 14 D8 09 4A 31  |..SB.2500.....J1|
00000FE0: B2 42 3A 52 B2 31 3A 81  44 52 B2 31 A4 39 3A 42  |.B:R.1:.DR.1.9:B|
00000FF0: B2 4A 31 AA 44 28 44 52  29 3A 8D 32 39 30 30 3A  |.J1.D(DR):.2900:|
00001000: 8B 50 4B B2 53 42 A7 52  B2 52 AA 31 00 1B 14 E2  |.PK.SB.R.R.1....|
00001010: 09 8B 52 B1 4B 31 A7 32  35 36 30 00 31 14 EC 09  |..R.K1.2560.1...|
00001020: 82 44 52 3A 4B 31 B2 4B  31 AB 31 3A 89 32 35 30  |.DR:K1.K1.1:.250|
00001030: 30 00 40 14 00 0A 42 B2  4A 31 3A 8D 32 39 30 30  |0.@...B.J1:.2900|
00001040: 00 6A 14 0A 0A 99 A3 32  32 29 3B 22 23 22 3B 4C  |.j.....22);"#";L|
00001050: 3B 22 9D 3A 20 22 3B C9  28 22 30 30 22 AA CA 28  |;".: ";.("00"..(|
00001060: C4 28 42 29 2C 32 29 2C  32 29 00 87 14 14 0A 4C  |.(B),2),2).....L|
00001070: B2 4C AA 31 3A 97 41 AA  50 AA 4A 58 AC 34 30 AA  |.L.1:.A.P.JX.40.|
00001080: 4B 58 2C 4C 31 3A 8E 00  8E 14 28 0A 82 4B 00 9F  |KX,L1:....(..K..|
00001090: 14 2D 0A 82 4A 3A 8B 52  B2 30 A7 32 34 30 30 00  |.-..J:.R.0.2400.|
000010A0: A9 14 2F 0A 89 32 32 31  30 00 AF 14 F0 0A 8F 00  |../..2210.......|
000010B0: BD 14 FA 0A 81 4B 4B B2  31 A4 4A AA 31 00 D9 14  |.....KK.1.J.1...|
000010C0: 04 0B 42 B2 4A 32 AC 31  30 AA 4B 32 AA 28 4B AB  |..B.J2.10.K2.(K.|
000010D0: 4B 4B 29 AC 44 28 44 52  29 00 F1 14 13 0B 8D 32  |KK).D(DR)......2|
000010E0: 39 30 30 3A 8B 50 4B B2  31 30 32 A7 50 4B B2 53  |900:.PK.102.PK.S|
000010F0: 42 00 02 15 18 0B 8B 50  4B B3 B1 53 42 A7 32 38  |B......PK..SB.28|
00001100: 38 30 00 1A 15 2C 0B 52  B2 31 3A 8D 32 35 37 30  |80...,.R.1:.2570|
00001110: 3A 8B 4C B1 56 28 32 29  A7 8E 00 28 15 40 0B 82  |:.L.V(2)...(.@..|
00001120: 4B 4B 3A 89 32 36 30 30  00 2E 15 54 0B 8F 00 50  |KK:.2600...T...P|
00001130: 15 5E 0B 42 25 28 4C 29  B2 42 3A 4A 58 B2 B5 28  |.^.B%(L).B:JX..(|
00001140: 42 AD 31 30 29 3A 4B 58  B2 42 AB 31 30 AC 4A 58  |B.10):KX.B.10.JX|
00001150: 00 69 15 90 0B 50 4B B2  C2 28 41 AA 50 AA 4A 58  |.i...PK..(A.P.JX|
00001160: AC 34 30 AA 4B 58 29 3A  8E 00 6F 15 48 0D 8F 00  |.40.KX):..o.H...|
00001170: 8B 15 4D 0D 81 4A B2 31  A4 34 3A 8B 5A 25 28 4A  |..M..J.1.4:.Z%(J|
00001180: 2C 31 29 B3 B1 30 A7 33  34 31 30 00 92 15 50 0D  |,1)..0.3410...P.|
00001190: 82 4A 00 A2 15 52 0D 8B  4C 31 B3 38 AF 4A B2 31  |.J...R..L1.8.J.1|
000011A0: A7 8E 00 B8 15 57 0D 44  B2 4A 3A 81 4A B2 30 A4  |.....W.D.J:.J.0.|
000011B0: 39 3A 81 4B B2 30 A4 39  00 D4 15 5A 0D 8B C2 28  |9:.K.0.9...Z...(|
000011C0: 41 AA 50 AA 4A AC 34 30  AA 4B 29 B3 B1 53 42 A7  |A.P.J.40.K)..SB.|
000011D0: 33 35 35 30 00 EB 15 5C  0D 81 44 52 B2 31 A4 39  |3550...\..DR.1.9|
000011E0: 3A 8B 44 52 B2 35 A7 33  35 30 30 00 09 16 70 0D  |:.DR.5.3500...p.|
000011F0: 81 4B 4B B2 31 A4 44 3A  42 B2 4A AC 31 30 AA 4B  |.KK.1.D:B.J.10.K|
00001200: AA 4B 4B AC 44 28 44 52  29 00 1C 16 7A 0D 8B 42  |.KK.D(DR)...z..B|
00001210: B3 30 B0 42 B1 39 39 A7  33 35 30 30 00 34 16 87  |.0.B.99.3500.4..|
00001220: 0D 8D 32 39 30 30 3A 8B  50 4B B2 31 30 32 A7 50  |..2900:.PK.102.P|
00001230: 4B B2 53 42 00 45 16 8E  0D 8B 50 4B B3 B1 53 42  |K.SB.E....PK..SB|
00001240: A7 33 35 30 30 00 5D 16  93 0D 8B 4B 58 AA 34 B3  |.3500.]....KX.4.|
00001250: 4B B0 4B AA 34 B3 4B 58  A7 33 35 30 30 00 6B 16  |K.K.4.KX.3500.k.|
00001260: 98 0D 82 4B 4B 3A 89 33  35 35 30 00 73 16 AC 0D  |...KK:.3550.s...|
00001270: 82 44 52 00 87 16 B6 0D  97 41 AA 50 AA 4A AC 34  |.DR......A.P.J.4|
00001280: 30 AA 4B 2C 31 30 32 00  93 16 DE 0D 82 4B 3A 82  |0.K,102......K:.|
00001290: 4A 3A 8E 00 99 16 88 13  80 00 B4 16 40 1F 99 A3  |J:..........@...|
000012A0: 54 42 29 3B 50 52 24 3B  22 3A 20 22 3B 3A 8D 36  |TB);PR$;": ";:.6|
000012B0: 30 30 30 30 00 C6 16 4A  1F 8B 49 4E 24 B2 22 22  |0000...J..IN$.""|
000012C0: A7 20 38 30 35 30 00 FA  16 54 1F 81 49 4E B2 31  |. 8050...T..IN.1|
000012D0: A4 C3 28 49 4E 24 29 3A  54 24 B2 CA 28 49 4E 24  |..(IN$):T$..(IN$|
000012E0: 2C 49 4E 2C 31 29 3A 8B  54 24 B3 22 30 22 B0 54  |,IN,1):.T$."0".T|
000012F0: 24 B1 22 39 22 A7 38 30  35 30 00 1D 17 5E 1F 82  |$."9".8050...^..|
00001300: 49 4E 3A 4C 43 B2 C5 28  49 4E 24 29 3A 8B 4C 43  |IN:LC..(IN$):.LC|
00001310: B3 30 B0 4C 43 B1 39 39  A7 38 30 35 30 00 23 17  |.0.LC.99.8050.#.|
00001320: 68 1F 8E 00 3C 17 72 1F  99 3A 99 22 91 22 3B 42  |h...<.r..:.".";B|
00001330: 4C 24 3B 22 91 22 3A 89  38 30 30 30 00 5D 17 60  |L$;".":.8000.].`|
00001340: EA 49 4E 24 B2 22 20 22  3A 5A 54 B2 54 49 3A 5A  |.IN$." ":ZT.TI:Z|
00001350: 43 B2 32 3A 5A 44 24 B2  C7 28 32 30 29 00 74 17  |C.2:ZD$..(20).t.|
00001360: 6A EA A1 5A 24 3A 8B 20  5A 24 B3 B1 22 22 A7 36  |j..Z$:. Z$.."".6|
00001370: 30 30 37 30 00 A4 17 74  EA 8B 5A 54 B3 B2 54 49  |0070...t..ZT..TI|
00001380: A7 99 CA 28 22 20 A6 22  2C 5A 43 2C 31 29 3B 22  |...(" .",ZC,1);"|
00001390: 9D 22 3B 3A 5A 43 B2 33  AB 5A 43 3A 5A 54 B2 54  |.";:ZC.3.ZC:ZT.T|
000013A0: 49 AA 31 35 00 AF 17 7E  EA 89 36 30 30 31 30 00  |I.15...~..60010.|
000013B0: DF 17 A6 EA 5A B2 C6 28  5A 24 29 3A 5A 4C B2 C3  |....Z..(Z$):ZL..|
000013C0: 28 49 4E 24 29 3A 8B 28  5A AF 31 32 37 29 B3 33  |(IN$):.(Z.127).3|
000013D0: 32 A7 99 22 20 9D 22 3B  3A 89 36 30 31 31 30 00  |2.." .";:.60110.|
000013E0: 0C 18 B0 EA 8B 28 5A AF  31 32 37 29 B1 36 34 AF  |.....(Z.127).64.|
000013F0: 28 5A AF 31 32 37 29 B3  39 31 A7 5A 24 B2 C7 28  |(Z.127).91.Z$..(|
00001400: 28 5A AA 31 32 38 29 AF  32 35 35 29 00 1E 18 BA  |(Z.128).255)....|
00001410: EA 8B 5A 4C B1 32 35 34  A7 36 30 30 31 30 00 39  |..ZL.254.60010.9|
00001420: 18 C4 EA 49 4E 24 B2 49  4E 24 AA 5A 24 3A 99 5A  |...IN$.IN$.Z$:.Z|
00001430: 24 3B 5A 44 24 3B 5A 24  3B 00 58 18 CE EA 8B 5A  |$;ZD$;Z$;.X....Z|
00001440: B2 31 33 A7 49 4E 24 B2  CA 28 49 4E 24 2C 32 29  |.13.IN$..(IN$,2)|
00001450: 3A 99 43 52 24 3B 3A 8E  00 84 18 D8 EA 8B 5A B2  |:.CR$;:.......Z.|
00001460: 32 30 AF 5A 4C B1 31 A7  49 4E 24 B2 C8 28 49 4E  |20.ZL.1.IN$..(IN|
00001470: 24 2C 5A 4C AB 31 29 3A  99 22 9D 22 3B 3A 89 36  |$,ZL.1):.".";:.6|
00001480: 30 30 31 30 00 B7 18 E2  EA 8B 5A B2 31 34 31 A7  |0010......Z.141.|
00001490: 5A 24 B2 C7 28 AB 32 30  AC 28 5A 4C B1 31 29 29  |Z$..(.20.(ZL.1))|
000014A0: 3A 81 5A B2 32 A4 5A 4C  3A 99 5A 24 3B 3A 82 5A  |:.Z.2.ZL:.Z$;:.Z|
000014B0: 3A 89 36 30 30 30 30 00  C2 18 EC EA 89 36 30 30  |:.60000......600|
000014C0: 31 30 00 00 00                                    |10...           |

.......:.59468,14.A.... BSHIP COPYRIGHT 
(C) 1978 HOWARD ARRINGTON.H.... 201 S. A
LMON #9, MOSCOW ID 84843.N...:...... CUR
SOR #5, NOV/DEC 78...... BOX 550, GOLETA
, CA 93017.....:.Y.2.. "....BSHIP - CURS
OR #5  (C) 1978."...4..".THE GAME OF BAT
TLESHIP: YOU VS.  PET.6.7.. ".SEE CURSOR
 NOTES #5 FOR INSTRUCTIONS...".J.P.SB.45
:.SH%(3,7).\.U..I.0.3:.J.1.7.P.W..SH%(I,
J):.J:.I...X..30,4,29,60,92,96,89,0,2,10
,11,12,20,22,0,9,11,21,29,31,40,0,1,10,1
2...N..D(9),S$(4),L%(2,4,5),Z%(4,6),E(9)
,B%(7)...S..I.1.9:.E(I):.I.$.U..20,21,30
,39,40,41,-1,0,1,-41,-40,-39.9.X..I.0.3:
.S$(I):.I.J...."SUBMARINE","PATROL","CRU
ISER","BATTLESHIP".....BL$."            
                           ".....W(1).1:
W(2).1:W(3).2:W(4).3......J.1.4:.K.1.J.1
:Z%(J,K).SB:.K:.J......I.1.9:.D(I):.I...
C..9,10,11,-1,0,1,-11,-10,-9...H...D.R.A
.32930:P.22:L1.1:.:V(1).7:V(2).7:N.1.I..
.."YOUR NAME: ";:.60000:N$(1).IN$.....N$
(2)."CAPTAIN PET"...,..".  0123456789  E
NTER SHIP LOCATION USING".../...17);"A T
WO DIGIT NUMBER":..20);"<00 THRU 99>"...
0...15);"IN THE FORMAT OF ROW #":..20);"
AND COLUMN #".@.2...14);".FOR DIRECTION 
USE THE".A.4...14);"KEYS AROUND THE '5'.
"...5...14);".ENTER ";N$(1);"'S SHIPS"..
.6..700:.J.1.4...;..:. S$(J.1);" OF LENG
TH";J.1...T.TB.3:PR$."LOCATION":.8000:L%
(1,J,1).LC...^...20);"DIRECTION: ";:.600
00:.C(IN$)..1.520.*._..IN$."1".IN$."9".5
20.V.`.D.D(E(IN$)):K.1:L1.5:.600:.D.0.K.
2:.500.{.H..K.2.J.1:L%(1,J,K).L%(1,J,K.1
).D...R..600:.D.0.500......K:.J:.1600...
..L.SB:. K.K.1 . 1 . .1.C....610:.K.....
.:.".";BL$;".":.340...X.....].L.F(S$(J.1
)).64...B.J1.L%(1,J,K):K1..(J1.10):J1.J1
.K1.10.1.D..L1.0.J1.9.640.D.F..L1.9.J1.0
.640._.L.L1.J1:B.A.K1.40.J1.120.X.V..L.S
B.B(B).SB..B,L:......D.0:.......".. 0..1
..2..3..4..5..6..7..8..9"...F..".. 0";:.
J.1.10.W.P...2);"----------":.J...Z.....
..L1.1:. ** DISPLAY GRIDS......".":B$."0
123456789"."....TB.0.22.22.=....".".TB);
N$(TB.22.1):..C.... .TB.2);B$:..TB);" ..
.........."......I.1.10:..TB);J(B$,I,1);
".----------.":.I.F.$...TB);" ..........
..":."...":T.TB.13:..T);"HITS"......I.2.
5:..T);H("*****",I):.I:.".....":.TB.....
.......I.2.1..1:.I.2.1800.*.D.."........
........";.=.I..J.1.9:.BL$:.J.\.N.."....
.....";V(I);"SHOTS.".J.X..J.1.V(I).....T
B.0:PR$."#".D(J):.8000:B%(J).LC:......K.
.(LC.10):K1.LC.10.K.C...T.A.P.(I.1).K.40
.K1......B(T)..SB.B%(J)..2:.1295......T,
L1......J...........K1.3.I......J1.1.V(I
):B.B%(J1)...(..J.1.4:.K.1.J.1.E.2..B.L%
(K1,J,K).1345.U.<..K:.J:.1390.C.A..KK.1.
J.1...F.KX.B(A.P.(I.1).J.40.KK.30)...P..
KX.42..A.P.(I.1).J.40.KK.30,L1:.1365...R
..KK.H.U..I.2.Z%(J,K).L1.U.Z..K.1.J.1...
D.B.B(A.P.(I.1).J.40.K.30)...F..B.42.139
0...H..K:V(K1).V(K1).W(J).,.I..I.2.Z%(J,
1).0.>.J..V(K1).0.1400.I.N..J1:.I.[.S.L1
.L1.1:.1200.A.X........".";N$(K1);"'S SH
IPS HAVE BEEN SUNK!!            ";.....L
.1:.I.1.2......J.1.4:.K.1.J.1.T...J1..(L
%(I,J,K).10).....K1.L%(I,J,K).J1.10...C.
T.A.P.L.J1.40.K1...H.B.B(T):.T,B.128.%..
..K:.J:L.0:.I.C...."....................
..".^...."WANT TO PLAY AGAIN?".T....RJ$:
.RJ$."".1518......RJ$."Y"........5000...
@.....J.G(1).1:G(2).9:G(3).10:G(4).11.H.
T.L1.1:.J.4.1..1...^.B..(.(1).4.1):B.G(B
)...H.L.1:..(1)..5.L..1...R.I..(.(1).100
)...|..K.1.J.1.2....J1.4.J.1..1:.K1.1.J1
.1.J....L%(2,J1,K1).I.1650.V....K1:.J1.U
...L%(2,J,K).I:D.I..(I.10).10......L1.0.
D.9.1650......L1.9.D.0.1650.....L1.D:I.I
.L.B:.I.99.I.0.1650.K....K:.J:.1000.Q...
......."................";.22);V(2);"SHO
TS":.......2200:.L.1.V(2).S.L.. PRINTTAB
(22);"#";L;".: ";RIGHT$("00"+MID$(STR$(B
%(L)),2),2).`.N..L:.1300.F.....N...L.1..
...Z1.0:Z2.9:Z3.1:..(1)..5.Z1.9:Z2.0:Z3.
.1.....R.0:.J.4.1..1:.Z%(J,1).0.2605.I..
..K.1.J.1......Z%(J,K).SB.2600......J2.Z
1.Z2.Z3:.K2.Z1.Z2.Z3.....B.A.P.J2.40.K2.
'.J..B(B)..Z%(J,K).2350.B.T.. CYCLE DIRE
CTION-TEST.Y....DR.1.9:.DR.5.2340.G....K
K.1.J.1.V....KK.K.2330.....B.J2.10.K2.(K
.KK).D(DR):.B.0.B.99.2340......2900:.PK.
102.PK.SB.P....PK..Z%(J,KK).2340......K2
.4.KX.KX.4.K2.2340......KK......2800...$
..DR......K2:.J2:.2600.1.`..3400:K1.8:D.
.(.(1).5).D.A..D.0.F.0:.2406.^.B..D.4.F.
F.25:D.1:.2406.O.E.F..(.(1).99).}.F..M.L
.V(2). .J.B.SH%(D,M).F:.B.100..2510:.M:.
...T.F.F.43:.2410.B.D.B..(.(1).99).Y.N..
2900:.PK..SB.2500...X.J1.B:R.1:.DR.1.9:B
.J1.D(DR):.2900:.PK.SB.R.R.1......R.K1.2
560.1....DR:K1.K1.1:.2500.@...B.J1:.2900
.J.....22);"#";L;".: ";I("00".J(D(B),2),
2).....L.L.1:.A.P.JX.40.KX,L1:....(..K..
.-..J:.R.0.2400.../..2210............KK.
1.J.1.Y...B.J2.10.K2.(K.KK).D(DR)......2
900:.PK.102.PK.SB......PK..SB.2880...,.R
.1:.2570:.L.V(2)...(.@..KK:.2600...T...P
.^.B%(L).B:JX..(B.10):KX.B.10.JX.I...PK.
B(A.P.JX.40.KX):..O.H.....M..J.1.4:.Z%(J
,1)..0.3410...P..J...R..L1.8.J.1.....W.D
.J:.J.0.9:.K.0.9.T.Z..B(A.P.J.40.K)..SB.
3550...\..DR.1.9:.DR.5.3500...P..KK.1.D:
B.J.10.K.KK.D(DR)...Z..B.0.B.99.3500.4..
..2900:.PK.102.PK.SB.E....PK..SB.3500.].
...KX.4.K.K.4.KX.3500.K....KK:.3550.S...
.DR......A.P.J.40.K,102......K:.J:......
....@...TB);PR$;": ";:.60000.F.J..IN$.""
. 8050...T..IN.1.C(IN$):T$.J(IN$,IN,1):.
T$."0".T$."9".8050...^..IN:LC.E(IN$):.LC
.0.LC.99.8050.#.H...<.R..:.".";BL$;".":.
8000.].`.IN$." ":ZT.TI:ZC.2:ZD$.G(20).T.
J..Z$:. Z$.."".60070...T..ZT..TI..J(" ."
,ZC,1);".";:ZC.3.ZC:ZT.TI.15...~..60010.
....Z.F(Z$):ZL.C(IN$):.(Z.127).32.." .";
:.60110......(Z.127).64.(Z.127).91.Z$.G(
(Z.128).255)......ZL.254.60010.9.D.IN$.I
N$.Z$:.Z$;ZD$;Z$;.X.N..Z.13.IN$.J(IN$,2)
:.CR$;:....X..Z.20.ZL.1.IN$.H(IN$,ZL.1):
.".";:.60010......Z.141.Z$.G(.20.(ZL.1))
:.Z.2.ZL:.Z$;:.Z:.60000.B....60010...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL