_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

ARMY MAKER

FILE INFORMATION

FILENAME(S): ARMY MAKER

FILE TYPE(S): PRG

FILE SIZE: 3.5K

FIRST SEEN: 2025-11-30 19:11:45

APPEARS ON: 1 disk(s)

FILE HASH

4c7621d639f2f9c521d43e6b10a296682949b33d270ed29fe567ba4b78cd5402

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ASS PRESENTS ARMY MAKER PRG Commodore 64 Extras 12 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2D 08 02 00 9C 3A  97 35 36 35 37 38 2C C2  |..-....:.56578,.|
00000010: 28 35 36 35 37 38 29 B0  33 3A 97 35 36 35 37 36  |(56578).3:.56576|
00000020: 2C C2 28 35 36 35 37 36  29 AF 32 35 32 00 59 08  |,.(56576).252.Y.|
00000030: 03 00 97 35 33 32 36 35  2C 32 37 3A 97 35 33 32  |...53265,27:.532|
00000040: 37 30 2C 32 30 30 3A 97  35 33 32 37 32 2C 33 33  |70,200:.53272,33|
00000050: 3A 97 36 34 38 2C 32 30  30 00 76 08 04 00 97 35  |:.648,200.v....5|
00000060: 33 32 38 30 2C 31 32 3A  97 35 33 32 38 31 2C 30  |3280,12:.53281,0|
00000070: 3A 99 22 93 05 22 00 A9  08 0A 00 43 4C B2 39 AC  |:."..".....CL.9.|
00000080: 34 30 39 36 AA 31 35 AC  32 35 36 3A 43 55 B2 43  |4096.15.256:CU.C|
00000090: 4C AB 31 31 3A 57 49 B2  32 35 33 3A 4C 53 B2 32  |L.11:WI.253:LS.2|
000000A0: 35 31 3A 52 53 B2 32 35  32 00 CD 08 14 00 97 4C  |51:RS.252......L|
000000B0: 53 2C 30 3A 97 52 53 2C  34 30 3A 97 57 49 2C 30  |S,0:.RS,40:.WI,0|
000000C0: 3A 97 57 49 AA 31 2C 32  35 3A 9E 43 4C 00 FF 08  |:.WI.1,25:.CL...|
000000D0: 15 00 49 4E 24 B2 C7 28  31 38 29 3A 4F 46 24 B2  |..IN$..(18):OF$.|
000000E0: C7 28 31 34 36 29 3A 45  4E B2 34 30 31 39 34 3A  |.(146):EN.40194:|
000000F0: 4E 55 B2 34 30 31 39 38  3A 46 4C B2 31 36 35 00  |NU.40198:FL.165.|
00000100: 3A 09 16 00 97 35 31 32  30 30 AA 31 30 31 36 2C  |:....51200.1016,|
00000110: 34 38 3A 97 35 33 32 37  37 2C 31 3A 97 35 33 32  |48:.53277,1:.532|
00000120: 37 31 2C 31 3A 97 35 33  32 34 38 2C 32 34 38 3A  |71,1:.53248,248:|
00000130: 97 35 33 32 34 39 2C 31  36 34 00 47 09 17 00 97  |.53249,164.G....|
00000140: 35 33 32 38 37 2C 31 00  5A 09 19 00 48 B2 31 31  |53287,1.Z...H.11|
00000150: 3A 56 B2 31 30 3A 8D 36  30 30 00 81 09 1A 00 99  |:V.10:.600......|
00000160: 22 43 52 45 41 54 45 20  4E 45 57 20 41 52 4D 59  |"CREATE NEW ARMY|
00000170: 22 3B 3A 48 B2 31 31 3A  56 B2 31 32 3A 8D 36 30  |";:H.11:V.12:.60|
00000180: 30 00 AD 09 1B 00 99 49  4E 24 3B 22 20 53 45 54  |0......IN$;" SET|
00000190: 55 50 20 50 52 4F 47 52  41 4D 20 22 3B 4F 46 24  |UP PROGRAM ";OF$|
000001A0: 3B 3A 81 49 B2 31 A4 32  30 30 30 3A 82 00 C1 09  |;:.I.1.2000:....|
000001B0: 1E 00 41 24 B2 22 41 22  AA 22 22 3A 89 32 35 30  |..A$."A"."":.250|
000001C0: 30 00 D6 09 F4 01 97 57  49 2C 30 3A 97 57 49 AA  |0......WI,0:.WI.|
000001D0: 31 2C 32 35 3A 8E 00 E8  09 26 02 81 44 B2 31 A4  |1,25:....&..D.1.|
000001E0: 31 32 30 30 3A 82 3A 8E  00 00 0A 58 02 97 37 38  |1200:.:....X..78|
000001F0: 32 2C 48 3A 97 37 38 31  2C 56 3A 9E 43 55 3A 8E  |2,H:.781,V:.CU:.|
00000200: 00 08 0A C4 09 9E 43 4C  00 2F 0A C9 09 99 22 20  |......CL./...." |
00000210: 20 20 20 20 20 50 41 52  54 48 49 41 4E 20 4B 49  |     PARTHIAN KI|
00000220: 4E 47 53 20 41 52 4D 59  20 53 45 54 55 50 22 00  |NGS ARMY SETUP".|
00000230: 63 0A CE 09 99 49 4E 24  3B 22 20 23 20 20 4E 41  |c....IN$;" #  NA|
00000240: 4D 45 20 20 20 20 20 20  20 20 48 50 20 20 53 54  |ME        HP  ST|
00000250: 20 52 47 20 41 52 20 4D  56 20 20 20 20 43 4F 53  | RG AR MV    COS|
00000260: 54 20 22 00 A1 0A D8 09  48 B2 30 3A 56 B2 31 30  |T ".....H.0:V.10|
00000270: 3A 8D 36 30 30 3A 99 22  2D 2D 2D 2D 2D 2D 2D 2D  |:.600:."--------|
00000280: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000290: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000002A0: 22 00 B9 0A E2 09 81 4A  B2 31 A4 35 3A 8D 35 30  |"......J.1.5:.50|
000002B0: 30 3A 8D 33 30 30 30 3A  82 00 C8 0A F6 09 97 57  |0:.3000:.......W|
000002C0: 49 2C 31 31 3A 9E 43 4C  00 F0 0A F7 09 97 57 49  |I,11:.CL......WI|
000002D0: 2C 32 33 3A 9E 43 4C 3A  99 22 41 52 4D 59 20 4F  |,23:.CL:."ARMY O|
000002E0: 4B 20 28 59 2F 4E 29 22  3B 3A 97 31 39 38 2C 30  |K (Y/N)";:.198,0|
000002F0: 00 04 0B F8 09 A1 41 24  3A 8B 41 24 B2 22 22 A7  |......A$:.A$."".|
00000300: 32 35 35 32 00 15 0B F9  09 8B 41 24 B2 22 59 22  |2552......A$."Y"|
00000310: A7 32 36 30 30 00 3C 0B  00 0A 9E 43 4C 3A 99 22  |.2600.<....CL:."|
00000320: 43 48 41 4E 47 45 20 57  48 49 43 48 20 55 4E 49  |CHANGE WHICH UNI|
00000330: 54 20 23 22 3B 3A 97 31  39 38 2C 30 00 50 0B 01  |T #";:.198,0.P..|
00000340: 0A A1 41 24 3A 8B 41 24  B2 22 22 A7 32 35 36 31  |..A$:.A$."".2561|
00000350: 00 6A 0B 02 0A 4A B2 C5  28 41 24 29 3A 8B 4A B3  |.j...J..(A$):.J.|
00000360: 31 B0 4A B1 35 A7 32 35  35 30 00 79 0B 0A 0A 8D  |1.J.5.2550.y....|
00000370: 35 30 30 3A 8D 33 30 30  30 00 83 0B 14 0A 89 32  |500:.3000......2|
00000380: 35 35 30 00 B1 0B 28 0A  97 57 49 2C 32 30 3A 9E  |550...(..WI,20:.|
00000390: 43 4C 3A 99 22 45 4E 54  45 52 20 41 52 4D 59 20  |CL:."ENTER ARMY |
000003A0: 46 49 4C 45 4E 41 4D 45  20 22 3B 3A 9E 45 4E 2C  |FILENAME ";:.EN,|
000003B0: 39 00 C7 0B 2A 0A 9E 43  4C 3A 42 24 B2 41 24 AA  |9...*..CL:B$.A$.|
000003C0: 22 2E 41 52 4D 59 22 00  FF 0B 2B 0A 99 A6 39 29  |".ARMY"...+...9)|
000003D0: 22 49 4E 53 45 52 54 20  53 43 45 4E 41 52 49 4F  |"INSERT SCENARIO|
000003E0: 20 44 49 53 4B 22 3A 99  3A 99 A6 31 31 29 22 50  | DISK":.:..11)"P|
000003F0: 52 45 53 53 20 3C 46 20  31 3E 20 4B 45 59 22 00  |RESS <F 1> KEY".|
00000400: 21 0C 32 0A A1 41 24 3A  58 B2 C6 28 41 24 AA C7  |!.2..A$:X..(A$..|
00000410: 28 30 29 29 3A 8B 58 B3  B1 31 33 33 A7 32 36 31  |(0)):.X..133.261|
00000420: 30 00 4C 0C 36 0A 9E 43  4C 3A 99 A6 31 30 29 3B  |0.L.6..CL:..10);|
00000430: 49 4E 24 3B 22 20 44 4F  20 4E 4F 54 20 49 4E 54  |IN$;" DO NOT INT|
00000440: 45 52 52 55 50 54 20 22  3B 4F 46 24 00 57 0C 3C  |ERRUPT ";OF$.W.<|
00000450: 0A 8D 31 30 30 30 30 00  7F 0C 46 0A 4C B2 C3 28  |..10000...F.L..(|
00000460: 42 24 29 3A 46 49 28 31  29 B2 4C 3A 46 49 28 32  |B$):FI(1).L:FI(2|
00000470: 29 B2 31 31 33 3A 46 49  28 33 29 B2 32 30 34 00  |).113:FI(3).204.|
00000480: A9 0C 48 0A 46 49 28 34  29 B2 30 3A 46 49 28 35  |..H.FI(4).0:FI(5|
00000490: 29 B2 32 30 34 3A 46 49  28 36 29 B2 31 31 32 3A  |).204:FI(6).112:|
000004A0: 46 49 28 37 29 B2 32 30  34 00 D4 0C 49 0A 4E 41  |FI(7).204...I.NA|
000004B0: B2 35 32 33 33 37 3A 81  49 B2 31 A4 4C 3A 97 4E  |.52337:.I.1.L:.N|
000004C0: 41 AA 49 AB 31 2C C6 28  CA 28 42 24 2C 49 2C 31  |A.I.1,.(.(B$,I,1|
000004D0: 29 29 3A 82 00 DF 0C 4B  0A 8D 34 30 30 30 30 00  |)):....K..40000.|
000004E0: 11 0D 5A 0A 8D 35 30 30  3A 9E 43 4C 3A 56 B2 35  |..Z..500:.CL:V.5|
000004F0: 3A 48 B2 31 32 3A 8D 36  30 30 3A 99 22 41 52 4D  |:H.12:.600:."ARM|
00000500: 59 20 43 4F 4D 50 4C 45  54 45 22 3B 3A 8D 35 35  |Y COMPLETE";:.55|
00000510: 30 00 23 0D 5C 0A 56 B2  31 31 3A 48 B2 38 3A 8D  |0.#.\.V.11:H.8:.|
00000520: 36 30 30 00 5D 0D 5D 0A  99 22 49 4E 53 45 52 54  |600.].].."INSERT|
00000530: 20 22 3B 49 4E 24 3B 22  20 50 52 4F 47 52 41 4D  | ";IN$;" PROGRAM|
00000540: 20 22 3B 4F 46 24 3B 22  20 44 49 53 4B 22 3A 97  | ";OF$;" DISK":.|
00000550: 34 30 34 36 34 2C 31 3A  97 46 4C 2C 31 00 7A 0D  |40464,1:.FL,1.z.|
00000560: 5E 0A 99 3A 99 A6 31 31  29 22 50 52 45 53 53 20  |^..:..11)"PRESS |
00000570: 3C 46 20 31 3E 20 4B 45  59 22 00 9C 0D 5F 0A A1  |<F 1> KEY"..._..|
00000580: 41 24 3A 58 B2 C6 28 41  24 AA C7 28 30 29 29 3A  |A$:X..(A$..(0)):|
00000590: 8B 58 B3 B1 31 33 33 A7  32 36 35 35 00 BB 0D 60  |.X..133.2655...`|
000005A0: 0A 97 35 33 32 37 37 2C  30 3A 97 35 33 32 37 31  |..53277,0:.53271|
000005B0: 2C 30 3A 97 35 33 32 36  39 2C 30 00 D8 0D 61 0A  |,0:.53269,0...a.|
000005C0: 9E 43 4C 3A 97 34 30 34  36 34 2C 33 3A 9C 3A 93  |.CL:.40464,3:.:.|
000005D0: 22 42 4F 4F 54 22 2C 38  00 DE 0D 69 0A 80 00 00  |"BOOT",8...i....|
000005E0: 0E B8 0B 97 57 49 2C 31  31 3A 9E 43 4C 3A 99 22  |....WI,11:.CL:."|
000005F0: 55 4E 49 54 20 54 59 50  45 20 23 20 22 3B 4A 3B  |UNIT TYPE # ";J;|
00000600: 00 20 0E DC 0B 97 37 38  31 2C 4A 3A 97 37 38 32  |. ....781,J:.782|
00000610: 2C 31 3A 9E 38 32 38 3A  97 35 33 32 36 39 2C 31  |,1:.828:.53269,1|
00000620: 00 3F 0E E0 0B 97 57 49  2C 31 32 3A 9E 43 4C 3A  |.?....WI,12:.CL:|
00000630: 99 22 4E 41 4D 45 20 22  3B 3A 9E 45 4E 2C 39 00  |."NAME ";:.EN,9.|
00000640: 60 0E E2 0B 46 24 28 4A  29 B2 41 24 AA 22 22 3A  |`...F$(J).A$."":|
00000650: 8B C3 28 46 24 28 4A 29  29 B3 31 A7 33 30 30 30  |..(F$(J)).1.3000|
00000660: 00 80 0E E5 0B 9E 43 4C  3A 99 49 4E 24 3B 22 20  |......CL:.IN$;" |
00000670: 22 3B 46 24 28 4A 29 3B  22 20 22 3B 4F 46 24 3B  |";F$(J);" ";OF$;|
00000680: 00 93 0E E7 0B 56 B2 31  34 3A 97 57 49 2C 56 3A  |.....V.14:.WI,V:|
00000690: 9E 43 4C 00 BF 0E EA 0B  99 22 48 49 54 20 50 4F  |.CL......"HIT PO|
000006A0: 49 4E 54 53 20 28 31 30  2D 39 39 29 2E 2E 2E 22  |INTS (10-99)..."|
000006B0: 3B 3A 9E 4E 55 2C 33 3A  5A B2 C5 28 41 24 29 00  |;:.NU,3:Z..(A$).|
000006C0: D3 0E EB 0B 8B 5A B3 31  30 B0 5A B1 39 39 A7 33  |.....Z.10.Z.99.3|
000006D0: 30 34 37 00 E5 0E EF 0B  46 48 28 4A 29 B2 5A 3A  |047.....FH(J).Z:|
000006E0: 56 B2 56 AA 31 00 F3 0E  F1 0B 97 57 49 2C 56 3A  |V.V.1......WI,V:|
000006F0: 9E 43 4C 00 12 0F F2 0B  4D 58 B2 B5 28 46 48 28  |.CL.....MX..(FH(|
00000700: 4A 29 AD 31 2E 35 29 3A  8B 4D 58 B3 35 A7 4D 58  |J).1.5):.MX.5.MX|
00000710: B2 35 00 2A 0F F3 0B 5A  24 B2 22 22 3A 8B 4D 58  |.5.*...Z$."":.MX|
00000720: B3 31 30 A7 5A 24 B2 22  20 22 00 66 0F F4 0B 99  |.10.Z$." ".f....|
00000730: 22 53 54 52 45 4E 47 54  48 22 5A 24 22 20 20 20  |"STRENGTH"Z$"   |
00000740: 20 28 35 2D 22 3B CA 28  C4 28 4D 58 29 2C 32 2C  | (5-";.(.(MX),2,|
00000750: 32 AB C3 28 5A 24 29 29  3B 22 29 2E 2E 2E 22 3B  |2..(Z$));")...";|
00000760: 3A 9E 4E 55 2C 33 00 81  0F F5 0B 5A B2 C5 28 41  |:.NU,3.....Z..(A|
00000770: 24 29 3A 8B 5A B3 35 B0  5A B1 4D 58 A7 33 30 35  |$):.Z.5.Z.MX.305|
00000780: 37 00 93 0F F9 0B 46 53  28 4A 29 B2 5A 3A 56 B2  |7.....FS(J).Z:V.|
00000790: 56 AA 31 00 A1 0F FB 0B  97 57 49 2C 56 3A 9E 43  |V.1......WI,V:.C|
000007A0: 4C 00 C5 0F FE 0B 99 22  52 41 4E 47 45 20 46 49  |L......"RANGE FI|
000007B0: 52 45 20 20 20 28 30 2D  32 29 2E 2E 2E 22 3B 3A  |RE   (0-2)...";:|
000007C0: 9E 4E 55 2C 31 00 E7 0F  FF 0B 5A B2 C5 28 41 24  |.NU,1.....Z..(A$|
000007D0: 29 3A 8B 28 5A B3 30 B0  5A B1 32 29 B0 41 24 B2  |):.(Z.0.Z.2).A$.|
000007E0: 22 22 A7 33 30 36 37 00  F9 0F 03 0C 46 52 28 4A  |"".3067.....FR(J|
000007F0: 29 B2 5A 3A 56 B2 56 AA  31 00 07 10 05 0C 97 57  |).Z:V.V.1......W|
00000800: 49 2C 56 3A 9E 43 4C 00  2B 10 08 0C 99 22 41 52  |I,V:.CL.+...."AR|
00000810: 4D 4F 52 20 20 20 20 20  20 20 20 28 30 2D 33 29  |MOR        (0-3)|
00000820: 2E 2E 2E 22 3B 3A 9E 4E  55 2C 31 00 4D 10 09 0C  |...";:.NU,1.M...|
00000830: 5A B2 C5 28 41 24 29 3A  8B 28 5A B3 30 B0 5A B1  |Z..(A$):.(Z.0.Z.|
00000840: 33 29 B0 41 24 B2 22 22  A7 33 30 37 37 00 5F 10  |3).A$."".3077._.|
00000850: 0D 0C 46 41 28 4A 29 B2  5A 3A 56 B2 56 AA 31 00  |..FA(J).Z:V.V.1.|
00000860: 6D 10 0F 0C 97 57 49 2C  56 3A 9E 43 4C 00 91 10  |m....WI,V:.CL...|
00000870: 12 0C 99 22 4D 4F 56 45  4D 45 4E 54 20 20 20 20  |..."MOVEMENT    |
00000880: 20 28 30 2D 33 29 2E 2E  2E 22 3B 3A 9E 4E 55 2C  | (0-3)...";:.NU,|
00000890: 31 00 B3 10 13 0C 5A B2  C5 28 41 24 29 3A 8B 28  |1.....Z..(A$):.(|
000008A0: 5A B3 30 B0 5A B1 33 29  B0 41 24 B2 22 22 A7 33  |Z.0.Z.3).A$."".3|
000008B0: 30 38 37 00 C5 10 17 0C  46 4D 28 4A 29 B2 5A 3A  |087.....FM(J).Z:|
000008C0: 56 B2 56 AA 31 00 D3 10  1A 0C 97 57 49 2C 56 3A  |V.V.1......WI,V:|
000008D0: 9E 43 4C 00 DE 10 1C 0C  46 28 51 29 B2 30 00 0A  |.CL.....F(Q).0..|
000008E0: 11 20 0C 46 56 28 4A 29  B2 46 48 28 4A 29 AA 46  |. .FV(J).FH(J).F|
000008F0: 53 28 4A 29 AC 32 AA B5  28 46 48 28 4A 29 AD 32  |S(J).2..(FH(J).2|
00000900: 30 29 AC 46 48 28 4A 29  AD 34 00 32 11 22 0C 46  |0).FH(J).4.2.".F|
00000910: 56 28 4A 29 B2 46 56 28  4A 29 AA 46 52 28 4A 29  |V(J).FV(J).FR(J)|
00000920: AC 28 28 46 53 28 4A 29  AA 46 48 28 4A 29 29 AD  |.((FS(J).FH(J)).|
00000930: 32 29 00 60 11 24 0C 46  56 28 4A 29 B2 46 56 28  |2).`.$.FV(J).FV(|
00000940: 4A 29 AA 46 41 28 4A 29  AC 28 46 53 28 4A 29 AD  |J).FA(J).(FS(J).|
00000950: 28 46 48 28 4A 29 AD 46  53 28 4A 29 29 AD 32 29  |(FH(J).FS(J)).2)|
00000960: 00 A2 11 26 0C 46 56 28  4A 29 B2 46 56 28 4A 29  |...&.FV(J).FV(J)|
00000970: AA 46 4D 28 4A 29 AC 28  28 46 48 28 4A 29 AA 46  |.FM(J).((FH(J).F|
00000980: 53 28 4A 29 29 AD 35 AA  46 52 28 4A 29 AC 46 53  |S(J)).5.FR(J).FS|
00000990: 28 4A 29 AD 34 AA 46 41  28 4A 29 AC 46 4D 28 4A  |(J).4.FA(J).FM(J|
000009A0: 29 29 00 B9 11 28 0C 46  56 28 4A 29 B2 B5 28 46  |))...(.FV(J)..(F|
000009B0: 56 28 4A 29 29 AC 31 30  30 00 CB 11 2B 0C 81 49  |V(J)).100...+..I|
000009C0: B2 31 A4 31 35 30 30 3A  82 3A 99 00 E7 11 30 0C  |.1.1500:.:....0.|
000009D0: 99 22 43 4F 53 54 20 3D  20 22 3B 46 56 28 4A 29  |."COST = ";FV(J)|
000009E0: 3A 97 31 39 38 2C 30 00  FE 11 38 0C 99 46 24 28  |:.198,0...8..F$(|
000009F0: 4A 29 3B 22 20 4F 4B 20  28 59 2F 4E 29 22 00 12  |J);" OK (Y/N)"..|
00000A00: 12 39 0C A1 41 24 3A 8B  41 24 B2 22 22 A7 33 31  |.9..A$:.A$."".31|
00000A10: 32 39 00 23 12 3A 0C 8B  41 24 B2 22 4E 22 A7 33  |29.#.:..A$."N".3|
00000A20: 30 30 30 00 35 12 3B 0C  8B 41 24 B3 B1 22 59 22  |000.5.;..A$.."Y"|
00000A30: A7 33 31 32 39 00 5D 12  3C 0C 56 B2 4A AA 33 3A  |.3129.].<.V.J.3:|
00000A40: 8D 31 35 30 30 30 3A 5A  24 B2 22 22 3A 8B 46 53  |.15000:Z$."":.FS|
00000A50: 28 4A 29 B3 31 30 A7 5A  24 B2 22 20 22 00 7D 12  |(J).10.Z$." ".}.|
00000A60: 3D 0C 58 24 B2 22 20 22  3A 8B 46 56 28 4A 29 B3  |=.X$." ":.FV(J).|
00000A70: 31 30 30 30 30 A7 58 24  B2 22 20 20 22 00 AB 12  |10000.X$."  "...|
00000A80: 3E 0C 5A 31 24 B2 22 22  3A 5A B2 31 31 AB C3 28  |>.Z1$."":Z.11..(|
00000A90: 46 24 28 4A 29 29 3A 81  49 B2 31 A4 5A 3A 5A 31  |F$(J)):.I.1.Z:Z1|
00000AA0: 24 B2 5A 31 24 AA 22 20  22 3A 82 00 EA 12 3F 0C  |$.Z1$." ":....?.|
00000AB0: 99 4A 3B 22 20 22 3B 46  24 28 4A 29 3B 5A 31 24  |.J;" ";F$(J);Z1$|
00000AC0: 3B 46 48 28 4A 29 3B 5A  24 3B 46 53 28 4A 29 3B  |;FH(J);Z$;FS(J);|
00000AD0: 46 52 28 4A 29 3B 46 41  28 4A 29 3B 46 4D 28 4A  |FR(J);FA(J);FM(J|
00000AE0: 29 3B 58 24 3B 46 56 28  4A 29 00 FE 12 44 0C 8D  |);X$;FV(J)...D..|
00000AF0: 35 30 30 3A 97 35 33 32  36 39 2C 30 3A 8E 00 0B  |500:.53269,0:...|
00000B00: 13 10 27 41 44 B2 35 32  32 32 33 00 16 13 24 27  |..'AD.52223...$'|
00000B10: 81 49 B2 31 A4 35 00 22  13 2E 27 81 4A B2 31 A4  |.I.1.5."..'.J.1.|
00000B20: 31 30 00 42 13 33 27 8B  4A B1 C3 28 46 24 28 49  |10.B.3'.J..(F$(I|
00000B30: 29 29 A7 97 41 44 AA 4A  2C 31 33 3A 89 31 30 30  |))..AD.J,13:.100|
00000B40: 34 35 00 5C 13 38 27 97  41 44 AA 4A 2C C6 28 CA  |45.\.8'.AD.J,.(.|
00000B50: 28 46 24 28 49 29 2C 4A  2C 31 29 29 00 62 13 3D  |(F$(I),J,1)).b.=|
00000B60: 27 82 00 73 13 42 27 97  41 44 AA 31 31 2C 46 48  |'..s.B'.AD.11,FH|
00000B70: 28 49 29 00 84 13 4C 27  97 41 44 AA 31 32 2C 46  |(I)...L'.AD.12,F|
00000B80: 53 28 49 29 00 95 13 56  27 97 41 44 AA 31 33 2C  |S(I)...V'.AD.13,|
00000B90: 46 51 28 49 29 00 A6 13  60 27 97 41 44 AA 31 34  |FQ(I)...`'.AD.14|
00000BA0: 2C 46 41 28 49 29 00 B7  13 6A 27 97 41 44 AA 31  |,FA(I)...j'.AD.1|
00000BB0: 35 2C 46 52 28 49 29 00  C8 13 74 27 97 41 44 AA  |5,FR(I)...t'.AD.|
00000BC0: 31 36 2C 46 4D 28 49 29  00 DE 13 7E 27 58 31 B2  |16,FM(I)...~'X1.|
00000BD0: B5 28 46 56 28 49 29 AD  36 35 35 33 36 29 00 FD  |.(FV(I).65536)..|
00000BE0: 13 88 27 58 32 B2 B5 28  28 46 56 28 49 29 AB 58  |..'X2..((FV(I).X|
00000BF0: 31 AC 36 35 35 33 36 29  AD 32 35 36 29 00 1C 14  |1.65536).256)...|
00000C00: 92 27 58 33 B2 46 56 28  49 29 AB 28 58 31 AC 36  |.'X3.FV(I).(X1.6|
00000C10: 35 35 33 36 AA 58 32 AC  32 35 36 29 00 2A 14 A6  |5536.X2.256).*..|
00000C20: 27 97 41 44 AA 31 37 2C  58 31 00 38 14 B0 27 97  |'.AD.17,X1.8..'.|
00000C30: 41 44 AA 31 38 2C 58 32  00 46 14 BA 27 97 41 44  |AD.18,X2.F..'.AD|
00000C40: AA 31 39 2C 58 33 00 53  14 C4 27 41 44 B2 41 44  |.19,X3.S..'AD.AD|
00000C50: AA 32 30 00 59 14 CE 27  82 00 6D 14 D8 27 81 4A  |.20.Y..'..m..'.J|
00000C60: B2 31 A4 33 3A 87 58 24  28 4A 29 3A 82 00 87 14  |.1.3:.X$(J):....|
00000C70: DD 27 83 22 43 4D 22 2C  22 57 49 5A 41 52 44 22  |.'."CM","WIZARD"|
00000C80: 2C 22 4B 49 4E 47 22 00  92 14 E2 27 81 4A B2 31  |,"KING"....'.J.1|
00000C90: A4 32 00 AC 14 EC 27 97  41 44 AA 4A 2C C6 28 CA  |.2....'.AD.J,.(.|
00000CA0: 28 58 24 28 31 29 2C 4A  2C 31 29 29 00 B2 14 F1  |(X$(1),J,1))....|
00000CB0: 27 82 00 BE 14 F4 27 41  44 B2 41 44 AA 32 00 C9  |'.....'AD.AD.2..|
00000CC0: 14 F6 27 81 4A B2 31 A4  36 00 E3 14 FB 27 97 41  |..'.J.1.6....'.A|
00000CD0: 44 AA 4A 2C C6 28 CA 28  58 24 28 32 29 2C 4A 2C  |D.J,.(.(X$(2),J,|
00000CE0: 31 29 29 00 E9 14 00 28  82 00 F5 14 05 28 41 44  |1))....(.....(AD|
00000CF0: B2 41 44 AA 36 00 00 15  0A 28 81 4A B2 31 A4 34  |.AD.6....(.J.1.4|
00000D00: 00 1A 15 0F 28 97 41 44  AA 4A 2C C6 28 CA 28 58  |....(.AD.J,.(.(X|
00000D10: 24 28 33 29 2C 4A 2C 31  29 29 00 20 15 14 28 82  |$(3),J,1)). ..(.|
00000D20: 00 26 15 3C 28 8E 00 3A  15 98 3A 97 57 49 2C 56  |.&.<(..:..:.WI,V|
00000D30: 3A 97 57 49 AA 31 2C 56  AA 31 00 44 15 A2 3A 9E  |:.WI.1,V.1.D..:.|
00000D40: 43 4C 3A 8E 00 66 15 40  9C 97 37 38 30 2C 31 35  |CL:..f.@..780,15|
00000D50: 3A 97 37 38 31 2C 38 3A  97 37 38 32 2C 31 35 3A  |:.781,8:.782,15:|
00000D60: 9E 36 35 34 36 36 00 8B  15 86 9C 97 37 38 30 2C  |.65466......780,|
00000D70: 46 49 28 31 29 3A 97 37  38 31 2C 46 49 28 32 29  |FI(1):.781,FI(2)|
00000D80: 3A 97 37 38 32 2C 46 49  28 33 29 00 B0 15 A4 9C  |:.782,FI(3).....|
00000D90: 9E 36 35 34 36 39 3A 46  49 28 31 29 B2 C2 28 32  |.65469:FI(1)..(2|
00000DA0: 35 31 29 3A 46 49 28 32  29 B2 C2 28 32 35 32 29  |51):FI(2)..(252)|
00000DB0: 00 E9 15 B8 9C 97 32 35  31 2C 46 49 28 34 29 3A  |......251,FI(4):|
00000DC0: 97 32 35 32 2C 46 49 28  35 29 3A 97 37 38 31 2C  |.252,FI(5):.781,|
00000DD0: 46 49 28 36 29 3A 97 37  38 32 2C 46 49 28 37 29  |FI(6):.782,FI(7)|
00000DE0: 3A 97 37 38 30 2C 32 35  31 00 0A 16 F4 9C 9E 36  |:.780,251......6|
00000DF0: 35 34 39 36 3A 97 32 35  31 2C 46 49 28 31 29 3A  |5496:.251,FI(1):|
00000E00: 97 32 35 32 2C 46 49 28  32 29 00 10 16 FE 9C 8E  |.252,FI(2)......|
00000E10: 00 16 16 08 9D 80 00 00  00                       |.........       |
..-....:.56578,B(56578).3:.56576,B(56576
).252.Y....53265,27:.53270,200:.53272,33
:.648,200.V....53280,12:.53281,0:.".."..
...CL.9.4096.15.256:CU.CL.11:WI.253:LS.2
51:RS.252.M....LS,0:.RS,40:.WI,0:.WI.1,2
5:.CL.....IN$.G(18):OF$.G(146):EN.40194:
NU.40198:FL.165.:....51200.1016,48:.5327
7,1:.53271,1:.53248,248:.53249,164.G....
53287,1.Z...H.11:V.10:.600......"CREATE 
NEW ARMY";:H.11:V.12:.600......IN$;" SET
UP PROGRAM ";OF$;:.I.1.2000:..A...A$."A"
."":.2500.V....WI,0:.WI.1,25:....&..D.1.
1200:.:....X..782,H:.781,V:.CU:....D..CL
./.I.."      PARTHIAN KINGS ARMY SETUP".
C.N..IN$;" #  NAME        HP  ST RG AR M
V    COST "...X.H.0:V.10:.600:."--------
--------------------------------"......J
.1.5:.500:.3000:..H....WI,11:.CL......WI
,23:.CL:."ARMY OK (Y/N)";:.198,0......A$
:.A$."".2552......A$."Y".2600.<....CL:."
CHANGE WHICH UNIT #";:.198,0.P....A$:.A$
."".2561.J...J.E(A$):.J.1.J.5.2550.Y....
500:.3000......2550...(..WI,20:.CL:."ENT
ER ARMY FILENAME ";:.EN,9.G.*..CL:B$.A$.
".ARMY"...+...9)"INSERT SCENARIO DISK":.
:..11)"PRESS <F 1> KEY".!.2..A$:X.F(A$.G
(0)):.X..133.2610.L.6..CL:..10);IN$;" DO
 NOT INTERRUPT ";OF$.W.<..10000..F.L.C(
B$):FI(1).L:FI(2).113:FI(3).204...H.FI(4
).0:FI(5).204:FI(6).112:FI(7).204.T.I.NA
.52337:.I.1.L:.NA.I.1,F(J(B$,I,1)):....K
..40000...Z..500:.CL:V.5:H.12:.600:."ARM
Y COMPLETE";:.550.#.\.V.11:H.8:.600.].].
."INSERT ";IN$;" PROGRAM ";OF$;" DISK":.
40464,1:.FL,1.Z.^..:..11)"PRESS <F 1> KE
Y"..._..A$:X.F(A$.G(0)):.X..133.2655...`
..53277,0:.53271,0:.53269,0.X.A..CL:.404
64,3:.:."BOOT",8...I........WI,11:.CL:."
UNIT TYPE # ";J;. ....781,J:.782,1:.828:
.53269,1.?....WI,12:.CL:."NAME ";:.EN,9.
`...F$(J).A$."":.C(F$(J)).1.3000......CL
:.IN$;" ";F$(J);" ";OF$;.....V.14:.WI,V:
.CL......"HIT POINTS (10-99)...";:.NU,3:
Z.E(A$).S....Z.10.Z.99.3047.....FH(J).Z:
V.V.1......WI,V:.CL.....MX..(FH(J).1.5):
.MX.5.MX.5.*...Z$."":.MX.10.Z$." ".F....
"STRENGTH"Z$"    (5-";J(D(MX),2,2.C(Z$))
;")...";:.NU,3.....Z.E(A$):.Z.5.Z.MX.305
7.....FS(J).Z:V.V.1......WI,V:.CL.E...."
RANGE FIRE   (0-2)...";:.NU,1.....Z.E(A$
):.(Z.0.Z.2).A$."".3067.....FR(J).Z:V.V.
1......WI,V:.CL.+...."ARMOR        (0-3)
...";:.NU,1.M...Z.E(A$):.(Z.0.Z.3).A$.""
.3077._...FA(J).Z:V.V.1.M....WI,V:.CL...
..."MOVEMENT     (0-3)...";:.NU,1.....Z.
E(A$):.(Z.0.Z.3).A$."".3087.E...FM(J).Z:
V.V.1.S....WI,V:.CL.....F(Q).0... .FV(J)
.FH(J).FS(J).2..(FH(J).20).FH(J).4.2.".F
V(J).FV(J).FR(J).((FS(J).FH(J)).2).`.$.F
V(J).FV(J).FA(J).(FS(J).(FH(J).FS(J)).2)
...&.FV(J).FV(J).FM(J).((FH(J).FS(J)).5.
FR(J).FS(J).4.FA(J).FM(J))...(.FV(J)..(F
V(J)).100.K.+..I.1.1500:.:....0.."COST =
 ";FV(J):.198,0...8..F$(J);" OK (Y/N)"..
.9..A$:.A$."".3129.#.:..A$."N".3000.5.;.
.A$.."Y".3129.].<.V.J.3:.15000:Z$."":.FS
(J).10.Z$." ".}.=.X$." ":.FV(J).10000.X$
."  "...>.Z1$."":Z.11.C(F$(J)):.I.1.Z:Z1
$.Z1$." ":....?..J;" ";F$(J);Z1$;FH(J);Z
$;FS(J);FR(J);FA(J);FM(J);X$;FV(J)...D..
500:.53269,0:.....'AD.52223...$'.I.1.5."
..'.J.1.10.B.3'.J.C(F$(I))..AD.J,13:.100
45.\.8'.AD.J,F(J(F$(I),J,1)).B.='..S.B'.
AD.11,FH(I)...L'.AD.12,FS(I)...V'.AD.13,
FQ(I)...`'.AD.14,FA(I)...J'.AD.15,FR(I).
H.T'.AD.16,FM(I)...~'X1..(FV(I).65536)..
..'X2..((FV(I).X1.65536).256)....'X3.FV(
I).(X1.65536.X2.256).*..'.AD.17,X1.8..'.
AD.18,X2.F..'.AD.19,X3.S.D'AD.AD.20.Y.N'
..M.X'.J.1.3:.X$(J):.....'."CM","WIZARD"
,"KING"....'.J.1.2....'.AD.J,F(J(X$(1),J
,1))....'.....'AD.AD.2.I..'.J.1.6....'.A
D.J,F(J(X$(2),J,1))....(.....(AD.AD.6...
.(.J.1.4....(.AD.J,F(J(X$(3),J,1)). ..(.
.&.<(..:..:.WI,V:.WI.1,V.1.D..:.CL:..F.@
..780,15:.781,8:.782,15:.65466......780,
FI(1):.781,FI(2):.782,FI(3)......65469:F
I(1).B(251):FI(2).B(252)......251,FI(4):
.252,FI(5):.781,FI(6):.782,FI(7):.780,25
1......65496:.251,FI(1):.252,FI(2)......
.........
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL