DOM.COMBAT VI

00000000: 01 15 60 09 99 22 1F 50  41 52 54 2E 42 45 41 4D  |..`..".PART.BEAM|
00000010: 53 3A 22 3B 50 42 28 31  2C 49 29 00 1D 15 6A 09  |S:";PB(1,I)...j.|
00000020: 99 22 1F 4D 49 53 53 49  4C 45 53 20 20 3A 22 3B  |.".MISSILES  :";|
00000030: 4D 49 28 31 2C 49 29 00  35 15 74 09 99 22 11 05  |MI(1,I).5.t.."..|
00000040: 50 52 45 53 53 20 41 20  4B 45 59 2E 2E 2E 22 00  |PRESS A KEY...".|
00000050: 49 15 7E 09 A1 43 24 3A  8B 43 24 B2 22 22 A7 32  |I.~..C$:.C$."".2|
00000060: 34 33 30 00 50 15 88 09  82 49 00 5F 15 28 0A 81  |430.P....I._.(..|
00000070: 49 B2 31 A4 43 4F 28 32  29 00 7A 15 32 0A 99 22  |I.1.CO(2).z.2.."|
00000080: 99 53 48 49 50 20 32 22  3B 49 3B 4E 41 24 28 32  |.SHIP 2";I;NA$(2|
00000090: 2C 49 29 3B 00 A2 15 3C  0A 8B 52 45 28 32 2C 49  |,I);...<..RE(2,I|
000000A0: 29 B2 39 39 39 A7 99 22  90 20 52 45 54 52 45 41  |).999..". RETREA|
000000B0: 54 45 44 2E 11 22 3A 89  32 36 33 35 00 CB 15 46  |TED..":.2635...F|
000000C0: 0A 8B 44 45 28 32 2C 49  29 B2 31 A7 99 22 90 20  |..DE(2,I).1..". |
000000D0: 44 45 53 54 52 4F 59 45  44 2E 11 22 3A 82 49 3A  |DESTROYED..":.I:|
000000E0: 89 32 38 30 30 00 F6 15  48 0A 8B 28 48 55 28 32  |.2800...H..(HU(2|
000000F0: 2C 49 29 AD 48 53 28 32  2C 49 29 29 B3 B2 2E 32  |,I).HS(2,I))...2|
00000100: A7 99 22 90 20 44 45 52  45 4C 49 43 54 2E 11 22  |..". DERELICT.."|
00000110: 00 FF 15 4B 0A 99 22 20  22 00 1B 16 50 0A 99 22  |...K.." "...P.."|
00000120: 1F 48 55 4C 4C 20 20 20  20 20 20 3A 22 3B 48 55  |.HULL      :";HU|
00000130: 28 32 2C 49 29 00 37 16  5A 0A 99 22 1F 43 41 52  |(2,I).7.Z..".CAR|
00000140: 47 4F 20 20 20 20 20 3A  22 3B 43 41 28 32 2C 49  |GO     :";CA(2,I|
00000150: 29 00 53 16 64 0A 99 22  1F 53 48 49 45 4C 44 53  |).S.d..".SHIELDS|
00000160: 20 20 20 3A 22 3B 53 48  28 32 2C 49 29 00 6F 16  |   :";SH(2,I).o.|
00000170: 6E 0A 99 22 1F 4C 41 53  45 52 53 20 20 20 20 3A  |n..".LASERS    :|
00000180: 22 3B 4C 41 28 32 2C 49  29 00 8B 16 78 0A 99 22  |";LA(2,I)...x.."|
00000190: 1F 50 41 52 54 2E 42 45  41 4D 53 3A 22 3B 50 42  |.PART.BEAMS:";PB|
000001A0: 28 32 2C 49 29 00 A7 16  82 0A 99 22 1F 4D 49 53  |(2,I)......".MIS|
000001B0: 53 49 4C 45 53 20 20 3A  22 3B 4D 49 28 32 2C 49  |SILES  :";MI(2,I|
000001C0: 29 00 BF 16 8C 0A 99 22  11 05 50 52 45 53 53 20  |)......"..PRESS |
000001D0: 41 20 4B 45 59 2E 2E 2E  22 00 D3 16 96 0A A1 43  |A KEY..."......C|
000001E0: 24 3A 8B 43 24 B2 22 22  A7 32 37 31 30 00 DA 16  |$:.C$."".2710...|
000001F0: A0 0A 82 49 00 E0 16 F0  0A 80 00 F4 16 10 27 8F  |...I..........'.|
00000200: 20 2A 20 48 49 54 43 48  41 4E 43 45 20 2A 00 FE  | * HITCHANCE *..|
00000210: 16 15 27 8B 44 45 A7 8E  00 1D 17 1A 27 48 54 B2  |..'.DE......'HT.|
00000220: B5 28 BB 28 30 29 AC 28  31 30 30 AA 45 58 28 58  |.(.(0).(100.EX(X|
00000230: 2C 59 29 29 AA 31 29 00  41 17 24 27 8B 48 54 B3  |,Y)).1).A.$'.HT.|
00000240: B2 48 43 A7 48 54 B2 31  3A 99 22 9E 54 41 52 47  |.HC.HT.1:.".TARG|
00000250: 45 54 20 48 49 54 20 21  20 22 3B 00 64 17 2E 27  |ET HIT ! ";.d..'|
00000260: 8B 48 54 B1 48 43 A7 48  54 B2 30 3A 99 22 9E 54  |.HT.HC.HT.0:.".T|
00000270: 41 52 47 45 54 20 4D 49  53 53 45 44 2E 22 00 76  |ARGET MISSED.".v|
00000280: 17 38 27 81 49 B2 30 A4  35 30 30 3A 82 49 3A 8E  |.8'.I.0.500:.I:.|
00000290: 00 87 17 74 27 8F 20 2A  20 44 41 4D 41 47 45 20  |...t'. * DAMAGE |
000002A0: 2A 00 9F 17 79 27 81 4A  B2 31 A4 44 41 3A 81 49  |*...y'.J.1.DA:.I|
000002B0: B2 30 A4 35 30 30 3A 82  49 00 B5 17 7B 27 8B 48  |.0.500:.I...{'.H|
000002C0: 55 28 54 2C 54 41 29 B2  30 A7 31 30 32 34 30 00  |U(T,TA).0.10240.|
000002D0: F6 17 7E 27 8B 53 48 28  54 2C 54 41 29 B1 30 A7  |..~'.SH(T,TA).0.|
000002E0: 53 48 28 54 2C 54 41 29  B2 53 48 28 54 2C 54 41  |SH(T,TA).SH(T,TA|
000002F0: 29 AB 31 3A 99 22 90 53  48 49 45 4C 44 53 20 22  |).1:.".SHIELDS "|
00000300: 3B 53 48 28 54 2C 54 41  29 3A 89 31 30 32 34 30  |;SH(T,TA):.10240|
00000310: 00 09 18 88 27 51 B2 B5  28 BB 28 30 29 AC 33 30  |....'Q..(.(0).30|
00000320: AA 31 29 00 25 18 8D 27  8B 51 B3 31 36 A7 8B 48  |.1).%..'.Q.16..H|
00000330: 55 28 54 2C 54 41 29 B2  30 A7 31 30 31 32 30 00  |U(T,TA).0.10120.|
00000340: 5D 18 92 27 8B 51 B3 31  36 A7 48 55 28 54 2C 54  |]..'.Q.16.HU(T,T|
00000350: 41 29 B2 48 55 28 54 2C  54 41 29 AB 31 3A 99 22  |A).HU(T,TA).1:."|
00000360: 90 48 55 4C 4C 20 22 3B  48 55 28 54 2C 54 41 29  |.HULL ";HU(T,TA)|
00000370: 3A 89 31 30 32 34 30 00  79 18 9C 27 8B 51 B3 32  |:.10240.y..'.Q.2|
00000380: 36 A7 8B 43 41 28 54 2C  54 41 29 B2 30 A7 31 30  |6..CA(T,TA).0.10|
00000390: 31 32 30 00 AB 18 A1 27  8B 51 B3 32 36 A7 43 41  |120....'.Q.26.CA|
000003A0: 28 54 2C 54 41 29 B2 43  41 28 54 2C 54 41 29 AB  |(T,TA).CA(T,TA).|
000003B0: 31 3A 99 22 90 43 41 52  47 4F 20 22 3B 43 41 28  |1:.".CARGO ";CA(|
000003C0: 54 2C 54 41 29 00 BB 18  A3 27 8B 51 B3 32 36 89  |T,TA)....'.Q.26.|
000003D0: 31 30 32 34 30 00 D7 18  A6 27 8B 51 B3 32 38 A7  |10240....'.Q.28.|
000003E0: 8B 4C 41 28 54 2C 54 41  29 B2 30 A7 31 30 31 32  |.LA(T,TA).0.1012|
000003F0: 30 00 0A 19 AB 27 8B 51  B3 32 38 A7 20 4C 41 28  |0....'.Q.28. LA(|
00000400: 54 2C 54 41 29 B2 4C 41  28 54 2C 54 41 29 AB 31  |T,TA).LA(T,TA).1|
00000410: 3A 99 22 90 4C 41 53 45  52 20 22 3B 4C 41 28 54  |:.".LASER ";LA(T|
00000420: 2C 54 41 29 00 1A 19 AD  27 8B 51 B3 32 38 A7 31  |,TA)....'.Q.28.1|
00000430: 30 32 34 30 00 36 19 B0  27 8B 51 B3 33 30 A7 8B  |0240.6..'.Q.30..|
00000440: 4D 49 28 54 2C 54 41 29  B2 30 A7 31 30 31 32 30  |MI(T,TA).0.10120|
00000450: 00 6B 19 B5 27 8B 51 B3  33 30 A7 20 4D 49 28 54  |.k..'.Q.30. MI(T|
00000460: 2C 54 41 29 B2 4D 49 28  54 2C 54 41 29 AB 31 3A  |,TA).MI(T,TA).1:|
00000470: 99 22 90 4D 49 53 53 49  4C 45 20 22 3B 4D 49 28  |.".MISSILE ";MI(|
00000480: 54 2C 54 41 29 00 7B 19  B7 27 8B 51 B3 33 30 A7  |T,TA).{..'.Q.30.|
00000490: 31 30 32 34 30 00 97 19  BA 27 8B 51 B2 33 30 A7  |10240....'.Q.30.|
000004A0: 8B 50 42 28 54 2C 54 41  29 B2 30 A7 31 30 31 32  |.PB(T,TA).0.1012|
000004B0: 30 00 CE 19 BF 27 8B 51  B2 33 30 A7 20 50 42 28  |0....'.Q.30. PB(|
000004C0: 54 2C 54 41 29 B2 50 42  28 54 2C 54 41 29 AB 31  |T,TA).PB(T,TA).1|
000004D0: 3A 99 22 90 50 41 52 54  2E 42 45 41 4D 20 22 3B  |:.".PART.BEAM ";|
000004E0: 50 42 28 54 2C 54 41 29  00 01 1A 00 28 8B 48 55  |PB(T,TA)....(.HU|
000004F0: 28 54 2C 54 41 29 B2 30  A7 82 4A 3A 99 22 1F 53  |(T,TA).0..J:.".S|
00000500: 48 49 50 20 44 45 53 54  52 4F 59 45 44 22 3A 44  |HIP DESTROYED":D|
00000510: 45 28 54 2C 54 41 29 B2  31 3A 8E 00 0A 1A 0A 28  |E(T,TA).1:.....(|
00000520: 82 4A 3A 8E 00 1E 1A F8  2A 8F 20 2A 2A 20 52 45  |.J:.....*. ** RE|
00000530: 54 52 45 41 54 20 2A 2A  00 3B 1A 02 2B 8B 28 48  |TREAT **.;..+.(H|
00000540: 55 28 58 2C 59 29 AD 48  53 28 58 2C 59 29 29 B3  |U(X,Y).HS(X,Y)).|
00000550: B2 2E 32 A7 8E 00 7D 1A  0C 2B 8B 28 31 30 30 AB  |..2...}..+.(100.|
00000560: 28 28 48 55 28 58 2C 59  29 AD 48 53 28 58 2C 59  |((HU(X,Y).HS(X,Y|
00000570: 29 29 AC 31 30 30 29 29  B1 B2 52 45 28 58 2C 59  |)).100))..RE(X,Y|
00000580: 29 A7 52 45 28 58 2C 59  29 B2 39 39 39 3A 44 45  |).RE(X,Y).999:DE|
00000590: 28 58 2C 59 29 B2 31 00  91 1A 16 2B 8B 52 45 28  |(X,Y).1....+.RE(|
000005A0: 58 2C 59 29 B3 B1 39 39  39 A7 8E 00 A9 1A 20 2B  |X,Y)..999..... +|
000005B0: 99 22 05 52 45 54 52 45  41 54 49 4E 47 2E 2E 2E  |.".RETREATING...|
000005C0: 22 3A 8E 00 00 00                                 |":....          |

..`..".PART.BEAMS:";PB(1,I)...J..".MISSI
LES  :";MI(1,I).5.T.."..PRESS A KEY...".
I.~..C$:.C$."".2430.P....I._.(..I.1.CO(2
).Z.2..".SHIP 2";I;NA$(2,I);...<..RE(2,I
).999..". RETREATED..":.2635.K.F..DE(2,I
).1..". DESTROYED..":.I:.2800...H..(HU(2
,I).HS(2,I))...2..". DERELICT.."...K.." 
"...P..".HULL      :";HU(2,I).7.Z..".CAR
GO     :";CA(2,I).S.D..".SHIELDS   :";SH
(2,I).O.N..".LASERS    :";LA(2,I)...X.."
.PART.BEAMS:";PB(2,I)......".MISSILES  :
";MI(2,I)......"..PRESS A KEY...".S....C
$:.C$."".2710.Z. ..I..........'. * HITCH
ANCE *....'.DE......'HT..(.(0).(100.EX(X
,Y)).1).A.$'.HT..HC.HT.1:.".TARGET HIT !
 ";.D..'.HT.HC.HT.0:.".TARGET MISSED.".V
.8'.I.0.500:.I:....T'. * DAMAGE *...Y'.J
.1.DA:.I.0.500:.I...{'.HU(T,TA).0.10240.
..~'.SH(T,TA).0.SH(T,TA).SH(T,TA).1:.".S
HIELDS ";SH(T,TA):.10240....'Q..(.(0).30
.1).%..'.Q.16..HU(T,TA).0.10120.]..'.Q.1
6.HU(T,TA).HU(T,TA).1:.".HULL ";HU(T,TA)
:.10240.Y..'.Q.26..CA(T,TA).0.10120....'
.Q.26.CA(T,TA).CA(T,TA).1:.".CARGO ";CA(
T,TA)....'.Q.26.10240.W..'.Q.28..LA(T,TA
).0.10120....'.Q.28. LA(T,TA).LA(T,TA).1
:.".LASER ";LA(T,TA)....'.Q.28.10240.6..
'.Q.30..MI(T,TA).0.10120.K..'.Q.30. MI(T
,TA).MI(T,TA).1:.".MISSILE ";MI(T,TA).{.
.'.Q.30.10240....'.Q.30..PB(T,TA).0.1012
0.N..'.Q.30. PB(T,TA).PB(T,TA).1:.".PART
.BEAM ";PB(T,TA)....(.HU(T,TA).0..J:.".S
HIP DESTROYED":DE(T,TA).1:.....(.J:.....
*. ** RETREAT **.;..+.(HU(X,Y).HS(X,Y)).
..2...}..+.(100.((HU(X,Y).HS(X,Y)).100))
..RE(X,Y).RE(X,Y).999:DE(X,Y).1....+.RE(
X,Y)..999..... +.".RETREATING...":....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL