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

ASPECTS

FILE INFORMATION

FILENAME(S): ASPECTS

FILE TYPE(S): PRG

FILE SIZE: 5.1K

FIRST SEEN: 2025-11-30 21:07:03

APPEARS ON: 1 disk(s)

FILE HASH

1943bdc93e281af18d29dd4cb1a3a44a40989decf38e83e65508a45de17652dd

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITY PET 01 ASPECTS PRG DuncanTwain 22 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 45 04 05 00 41 B2  31 3A 86 4D 24 28 34 36  |..E...A.1:.M$(46|
00000010: 29 2C 42 24 28 34 36 29  2C 41 24 28 34 36 29 2C  |),B$(46),A$(46),|
00000020: 5A 24 28 31 32 29 2C 43  24 28 31 32 29 2C 43 28  |Z$(12),C$(12),C(|
00000030: 31 32 29 2C 4B 28 31 31  29 2C 48 28 31 31 29 2C  |12),K(11),H(11),|
00000040: 58 28 31 31 29 00 72 04  06 00 96 A5 48 28 58 29  |X(11).r.....H(X)|
00000050: B2 58 AD 59 AB B5 28 58  AD 59 29 3A 96 A5 57 28  |.X.Y..(X.Y):..W(|
00000060: 58 29 B2 B5 28 58 AC 31  30 30 AA 2E 35 29 AD 31  |X)..(X.100..5).1|
00000070: 30 30 00 9D 04 07 00 96  A5 55 28 58 29 B2 58 AB  |00.......U(X).X.|
00000080: 28 B5 28 58 AD 33 36 30  29 AC 33 36 30 29 3A 96  |(.(X.360).360):.|
00000090: A5 56 28 58 29 B2 B5 28  58 AA 2E 35 29 00 C0 04  |.V(X)..(X..5)...|
000000A0: 08 00 96 A5 51 28 58 29  B2 B5 28 58 29 AA B5 28  |....Q(X)..(X)..(|
000000B0: 28 58 AB B5 28 58 29 29  AC 31 30 30 29 AD 36 30  |(X..(X)).100).60|
000000C0: 00 DC 04 0A 00 81 49 B2  31 A4 31 32 3A 87 43 24  |......I.1.12:.C$|
000000D0: 28 49 29 2C 5A 24 28 49  29 3A 82 49 00 02 05 0C  |(I),Z$(I):.I....|
000000E0: 00 99 22 93 12 47 92 20  47 45 4F 20 20 12 48 92  |.."..G. GEO  .H.|
000000F0: 20 48 45 4C 49 4F 20 20  12 49 92 20 49 4E 50 55  | HELIO  .I. INPU|
00000100: 54 22 00 14 05 0D 00 A1  51 24 3A 8B 51 24 B2 22  |T"......Q$:.Q$."|
00000110: 22 89 31 33 00 23 05 0E  00 8B 51 24 B2 22 47 22  |".13.#....Q$."G"|
00000120: 89 32 30 00 32 05 0F 00  8B 51 24 B2 22 48 22 89  |.20.2....Q$."H".|
00000130: 35 30 00 42 05 10 00 8B  51 24 B2 22 49 22 89 39  |50.B....Q$."I".9|
00000140: 30 30 00 4A 05 11 00 89  31 33 00 62 05 14 00 4D  |00.J....13.b...M|
00000150: 45 B2 38 36 36 3A 81 49  B2 31 A4 31 30 3A 8D 33  |E.866:.I.1.10:.3|
00000160: 35 30 00 73 05 15 00 8B  49 B2 31 A7 43 28 49 29  |50.s....I.1.C(I)|
00000170: B2 49 54 00 85 05 16 00  8B 49 B2 31 30 A7 43 28  |.IT......I.10.C(|
00000180: 32 29 B2 49 54 00 98 05  17 00 8B 49 B1 31 A7 43  |2).IT......I.1.C|
00000190: 28 49 AA 31 29 B2 49 54  00 A7 05 18 00 4D 45 B2  |(I.1).IT.....ME.|
000001A0: 4D 45 AA 34 3A 82 49 00  C0 05 19 00 4E 4D B2 34  |ME.4:.I.....NM.4|
000001B0: 35 3A 43 4E B2 39 3A 4E  4E B2 31 30 3A 89 39 39  |5:CN.9:NN.10:.99|
000001C0: 00 EA 05 32 00 4D 45 B2  38 32 36 3A 81 49 B2 31  |...2.ME.826:.I.1|
000001D0: A4 39 3A 8D 33 35 30 3A  43 28 49 29 B2 49 54 3A  |.9:.350:C(I).IT:|
000001E0: 4D 45 B2 4D 45 AA 34 3A  82 49 00 02 06 33 00 4E  |ME.ME.4:.I...3.N|
000001F0: 4D B2 33 36 3A 43 4E B2  38 3A 4E 4E B2 39 3A 89  |M.36:CN.8:NN.9:.|
00000200: 39 39 00 0C 06 63 00 8D  31 31 30 30 00 1C 06 C8  |99...c..1100....|
00000210: 00 41 B2 31 3A 81 49 B2  31 A4 4E 4E 00 2A 06 CD  |.A.1:.I.1.NN.*..|
00000220: 00 81 4A B2 49 AA 31 A4  4E 4E 00 3A 06 D2 00 58  |..J.I.1.NN.:...X|
00000230: B2 43 28 49 29 AB 43 28  4A 29 00 44 06 D3 00 8D  |.C(I).C(J).D....|
00000240: 39 30 36 30 00 5A 06 D4  00 8B 43 28 49 29 B3 43  |9060.Z....C(I).C|
00000250: 28 4A 29 A7 58 B2 B6 28  58 29 00 6B 06 D7 00 8B  |(J).X..(X).k....|
00000260: 58 B3 30 A7 58 B2 58 AA  33 36 30 00 7E 06 DC 00  |X.0.X.X.360.~...|
00000270: 8B 58 B1 31 38 30 A7 58  B2 33 36 30 AB 58 00 98  |.X.180.X.360.X..|
00000280: 06 E1 00 58 B2 B5 28 28  28 58 AC 31 30 30 29 AA  |...X..(((X.100).|
00000290: 2E 35 29 AD 31 30 30 29  00 A8 06 E2 00 54 B2 C3  |.5).100).....T..|
000002A0: 28 C4 28 58 29 29 AB 31  00 C0 06 E3 00 8B 54 B2  |(.(X)).1......T.|
000002B0: 31 A7 41 24 28 41 29 B2  22 20 22 AA C4 28 58 29  |1.A$(A)." "..(X)|
000002C0: 00 D5 06 E4 00 8B 54 B2  30 A7 41 24 28 41 29 B2  |......T.0.A$(A).|
000002D0: 22 20 20 20 22 00 E9 06  E5 00 8B 54 B2 32 A7 41  |"   "......T.2.A|
000002E0: 24 28 41 29 B2 C4 28 58  29 00 0A 07 E6 00 8B 54  |$(A)..(X)......T|
000002F0: B2 33 A7 41 24 B2 C4 28  58 29 3A 41 24 28 41 29  |.3.A$..(X):A$(A)|
00000300: B2 CA 28 41 24 2C 32 2C  33 29 00 14 07 E8 00 8D  |..(A$,2,3)......|
00000310: 31 32 30 30 00 21 07 EB  00 41 B2 41 AA 31 3A 82  |1200.!...A.A.1:.|
00000320: 4A 00 38 07 F0 00 82 49  3A 8D 32 34 35 3A 8D 31  |J.8....I:.245:.1|
00000330: 33 30 39 3A 89 37 35 30  00 55 07 F5 00 4E B2 43  |309:.750.U...N.C|
00000340: 4E 3A 41 B2 31 3A 54 24  B2 22 13 11 22 3A 59 B2  |N:A.1:T$."..":Y.|
00000350: 34 3A 57 B2 34 00 61 07  FA 00 81 49 B2 31 A4 43  |4:W.4.a....I.1.C|
00000360: 4E 00 71 07 FF 00 99 54  24 3B 3A 81 4A B2 31 A4  |N.q....T$;:.J.1.|
00000370: 4E 00 81 07 04 01 99 A3  59 29 3B 41 24 28 41 29  |N.......Y);A$(A)|
00000380: 3B 00 91 07 09 01 41 B2  41 AA 31 3A 59 B2 59 AA  |;.....A.A.1:Y.Y.|
00000390: 34 00 98 07 0E 01 82 4A  00 BB 07 13 01 57 B2 57  |4......J.....W.W|
000003A0: AA 34 3A 59 B2 57 3A 54  24 B2 54 24 AA 22 11 11  |.4:Y.W:T$.T$."..|
000003B0: 22 3A 4E B2 4E AB 31 3A  99 3A 99 00 C4 07 18 01  |":N.N.1:.:......|
000003C0: 82 49 3A 8E 00 E2 07 2C  01 54 24 B2 22 13 11 11  |.I:....,.T$."...|
000003D0: 11 22 3A 41 B2 31 3A 4E  B2 31 3A 81 4A B2 31 A4  |.":A.1:N.1:.J.1.|
000003E0: 43 4E 00 F2 07 36 01 99  54 24 3B 3A 81 49 B2 31  |CN...6..T$;:.I.1|
000003F0: A4 4E 00 07 08 40 01 99  C8 28 4D 24 28 41 29 2C  |.N...@...(M$(A),|
00000400: 33 29 3B 22 DD 22 3B 00  25 08 4A 01 41 B2 41 AA  |3);".";.%.J.A.A.|
00000410: 31 3A 82 49 3A 4E B2 4E  AA 31 3A 54 24 B2 54 24  |1:.I:N.N.1:T$.T$|
00000420: AA 22 11 11 22 00 2E 08  4F 01 99 3A 82 4A 00 3A  |.".."...O..:.J.:|
00000430: 08 50 01 8B 43 4E B2 38  A7 99 00 69 08 51 01 99  |.P..CN.8...i.Q..|
00000440: 22 B9 B9 B9 B9 B9 B9 B9  B9 B9 B9 B9 20 4D 49 44  |"........... MID|
00000450: 50 4F 49 4E 54 53 20 B9  B9 B9 B9 B9 B9 B9 B9 B9  |POINTS .........|
00000460: B9 B9 B9 B9 B9 B9 B9 B9  22 00 72 08 56 01 89 37  |........".r.V..7|
00000470: 35 30 00 A9 08 5E 01 49  54 B2 C2 28 4D 45 29 AC  |50...^.IT..(ME).|
00000480: 32 35 36 AA C2 28 4D 45  AA 31 29 AA 28 C2 28 4D  |256..(ME.1).(.(M|
00000490: 45 AA 32 29 AC 32 35 36  AA C2 28 4D 45 AA 33 29  |E.2).256..(ME.3)|
000004A0: 29 AD 31 30 30 30 30 3A  8E 00 B2 08 90 01 4F 42  |).10000:......OB|
000004B0: B2 35 00 BC 08 92 01 99  22 93 22 3B 00 D0 08 95  |.5......".";....|
000004C0: 01 54 24 B2 22 13 22 3A  4E B2 31 31 3A 48 B2 31  |.T$.".":N.11:H.1|
000004D0: 00 D8 08 9A 01 58 B2 30  00 EC 08 9F 01 81 41 B2  |.....X.0......A.|
000004E0: 31 A4 35 3A 8D 34 34 32  30 3A 82 41 00 02 09 A4  |1.5:.4420:.A....|
000004F0: 01 54 24 B2 22 13 11 11  11 11 11 11 11 11 11 11  |.T$."...........|
00000500: 11 22 00 1A 09 CC 01 58  B2 30 3A 81 41 B2 31 A4  |.".....X.0:.A.1.|
00000510: 35 3A 8D 34 34 32 30 3A  82 41 00 63 09 F4 01 99  |5:.4420:.A.c....|
00000520: 22 12 13 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
00000530: 11 11 11 11 11 11 11 11  11 31 3D 43 4F 4E 54 20  |.........1=CONT |
00000540: 20 32 3D 48 41 52 3F 20  20 33 3D 4F 52 42 20 20  | 2=HAR?  3=ORB  |
00000550: 34 3D 54 4F 20 4D 41 49  4E 20 50 52 4F 47 52 41  |4=TO MAIN PROGRA|
00000560: 4D 92 22 00 76 09 F9 01  A1 47 24 3A 8B 47 24 B2  |M.".v....G$:.G$.|
00000570: 22 22 A7 35 30 35 00 83  09 FE 01 41 41 B2 C5 28  |"".505.....AA..(|
00000580: 47 24 29 00 9B 09 03 02  91 41 41 89 35 32 35 2C  |G$)......AA.525,|
00000590: 35 32 30 2C 35 32 31 2C  35 31 36 00 A9 09 04 02  |520,521,516.....|
000005A0: 99 22 93 22 3A 89 37 35  30 00 DA 09 08 02 85 22  |.".":.750......"|
000005B0: 20 44 45 53 49 52 45 44  20 48 41 52 4D 4F 4E 49  | DESIRED HARMONI|
000005C0: 43 22 3B 48 3A 54 24 B2  22 93 22 3A 58 B2 30 3A  |C";H:T$.".":X.0:|
000005D0: 8D 34 34 32 30 3A 89 35  30 30 00 F1 09 09 02 85  |.4420:.500......|
000005E0: 22 4E 45 57 20 4F 52 42  22 3B 4F 42 3A 89 34 30  |"NEW ORB";OB:.40|
000005F0: 32 00 FF 09 0D 02 58 B2  30 3A 99 22 93 22 3B 00  |2.....X.0:.".";.|
00000600: 1A 0A 12 02 54 24 B2 22  13 22 3A 81 41 B2 31 A4  |....T$.".":.A.1.|
00000610: 35 3A 8D 34 34 32 30 3A  82 41 00 23 0A 17 02 89  |5:.4420:.A.#....|
00000620: 35 30 30 00 3C 0A 8A 02  81 49 B2 31 A4 4E 4E 3A  |500.<....I.1.NN:|
00000630: 4B 28 49 29 B2 48 28 49  29 3A 82 49 00 4A 0A 8F  |K(I).H(I):.I.J..|
00000640: 02 81 49 B2 31 A4 4E 4E  AB 31 00 58 0A 94 02 81  |..I.1.NN.1.X....|
00000650: 4A B2 49 AA 31 A4 4E 4E  00 6C 0A 99 02 8B 4B 28  |J.I.1.NN.l....K(|
00000660: 4A 29 B1 B2 4B 28 49 29  89 36 37 30 00 8A 0A 9B  |J)..K(I).670....|
00000670: 02 4B 31 B2 4B 28 49 29  3A 4B 28 49 29 B2 4B 28  |.K1.K(I):K(I).K(|
00000680: 4A 29 3A 4B 28 4A 29 B2  4B 31 00 91 0A 9E 02 82  |J):K(J).K1......|
00000690: 4A 00 A4 0A A3 02 82 49  3A 42 B2 31 3A 81 49 B2  |J......I:B.1:.I.|
000006A0: 31 A4 4E 4E 00 D3 0A A5  02 81 4A B2 31 A4 4E 4E  |1.NN......J.1.NN|
000006B0: 3A 8B 4B 28 42 29 B2 48  28 4A 29 AF 58 28 4A 29  |:.K(B).H(J).X(J)|
000006C0: B2 30 A7 58 28 4A 29 B2  31 3A 8D 37 30 30 3A 89  |.0.X(J).1:.700:.|
000006D0: 36 38 30 00 DA 0A A7 02  82 4A 00 E8 0A A8 02 50  |680......J.....P|
000006E0: 24 B2 4B 24 AA 22 20 22  00 1D 0B A9 02 8B B6 28  |$.K$." ".......(|
000006F0: 4B 28 42 29 AB 4B 28 42  AB 31 29 29 B3 B2 4F 42  |K(B).K(B.1))..OB|
00000700: B0 B6 28 4B 28 42 29 AB  4B 28 42 AA 31 29 29 B3  |..(K(B).K(B.1)).|
00000710: B2 4F 42 A7 50 24 B2 4B  24 AA 22 2A 22 00 41 0B  |.OB.P$.K$."*".A.|
00000720: AA 02 8B 42 B2 31 AF B6  28 4B 28 31 29 AB 4B 28  |...B.1..(K(1).K(|
00000730: 32 29 29 B1 B2 4F 42 A7  50 24 B2 4B 24 AA 22 20  |2))..OB.P$.K$." |
00000740: 22 00 66 0B AB 02 8B 42  B2 31 30 AF B6 28 4B 28  |".f....B.10..(K(|
00000750: 42 29 AB 4B 28 39 29 29  B1 B2 4F 42 A7 50 24 B2  |B).K(9))..OB.P$.|
00000760: 4B 24 AA 22 20 22 00 83  0B AC 02 99 A3 58 29 3B  |K$." ".......X);|
00000770: 50 24 3B A3 58 AA 35 29  3B C8 28 43 24 28 4A 29  |P$;.X.5);.(C$(J)|
00000780: 2C 32 29 00 92 0B AD 02  42 B2 42 AA 31 3A 82 49  |,2).....B.B.1:.I|
00000790: 3A 8E 00 C9 0B B2 02 5A  33 B2 B5 28 5A 29 3A 51  |:......Z3..(Z):Q|
000007A0: B2 B5 28 5A 33 AD 33 30  29 AA 31 3A 5A 31 B2 B5  |..(Z3.30).1:Z1..|
000007B0: 28 A5 57 28 28 5A 33 AD  33 30 AB B5 28 5A 33 AD  |(.W((Z3.30..(Z3.|
000007C0: 33 30 29 29 AC 33 30 29  29 00 E3 0B B3 02 59 24  |30)).30)).....Y$|
000007D0: B2 22 20 22 3A 8B 5A 31  B3 31 30 A7 59 24 B2 22  |." ":.Z1.10.Y$."|
000007E0: 20 20 22 00 09 0C B4 02  5A 5A 24 B2 C4 28 B5 28  |  ".....ZZ$..(.(|
000007F0: B5 28 28 28 5A AB 5A 33  29 AC 36 30 29 AC 31 30  |.(((Z.Z3).60).10|
00000800: AA 2E 35 29 AD 31 30 29  29 00 24 0C B5 02 8B C5  |..5).10)).$.....|
00000810: 28 5A 5A 24 29 B3 31 30  A7 5A 5A 24 B2 5A 5A 24  |(ZZ$).10.ZZ$.ZZ$|
00000820: AA 22 20 22 00 2A 0C B6  02 8E 00 4B 0C BC 02 4B  |." ".*.....K...K|
00000830: 28 42 29 B2 A5 56 28 4B  28 42 29 29 3A 54 B2 C3  |(B)..V(K(B)):T..|
00000840: 28 C4 28 4B 28 42 29 29  29 AB 31 00 63 0C BE 02  |(.(K(B))).1.c...|
00000850: 8B 54 B2 31 A7 4B 24 B2  22 20 22 AA C4 28 4B 28  |.T.1.K$." "..(K(|
00000860: 42 29 29 00 75 0C C0 02  8B 54 B2 30 A7 4B 24 B2  |B)).u....T.0.K$.|
00000870: 22 20 20 20 22 00 89 0C  C2 02 8B 54 B2 32 A7 4B  |"   "......T.2.K|
00000880: 24 B2 C4 28 4B 28 42 29  29 00 AA 0C C4 02 8B 54  |$..(K(B))......T|
00000890: B2 33 A7 4B 24 B2 C4 28  4B 28 42 29 29 3A 4B 24  |.3.K$..(K(B)):K$|
000008A0: B2 CA 28 4B 24 2C 32 2C  33 29 00 B0 0C C5 02 8E  |..(K$,2,3)......|
000008B0: 00 D0 0C EE 02 99 22 13  11 11 11 11 11 11 11 11  |......".........|
000008C0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 22 3B  |..............";|
000008D0: 00 0C 0D EF 02 99 22 12  41 92 53 50 45 43 54 53  |......".A.SPECTS|
000008E0: 20 26 20 12 4D 92 49 44  20 53 4F 52 54 3A 12 33  | & .M.ID SORT:.3|
000008F0: 92 36 30 2F 12 5A 92 4F  44 20 12 48 92 41 52 4D  |.60/.Z.OD .H.ARM|
00000900: 4F 4E 49 43 53 20 12 4E  92 45 57 22 00 1F 0D F8  |ONICS .N.EW"....|
00000910: 02 A1 47 24 3A 8B 47 24  B2 22 22 89 37 36 30 00  |..G$:.G$."".760.|
00000920: 2E 0D F9 02 8B 47 24 B2  22 41 22 89 39 39 00 3E  |.....G$."A".99.>|
00000930: 0D FA 02 8B 47 24 B2 22  4D 22 89 33 30 30 00 4E  |....G$."M".300.N|
00000940: 0D FB 02 8B 47 24 B2 22  33 22 89 38 30 30 00 5E  |....G$."3".800.^|
00000950: 0D FC 02 8B 47 24 B2 22  5A 22 89 38 36 35 00 70  |....G$."Z".865.p|
00000960: 0D FD 02 8B 47 24 B2 22  4E 22 A7 8C 3A 89 31 30  |....G$."N"..:.10|
00000970: 00 80 0D FE 02 8B 47 24  B2 22 48 22 89 34 30 30  |......G$."H".400|
00000980: 00 89 0D FF 02 89 37 36  30 00 A3 0D 00 03 8D 31  |......760......1|
00000990: 31 30 30 3A 8D 32 34 35  3A 8D 31 33 30 39 3A 89  |100:.245:.1309:.|
000009A0: 37 35 30 00 C2 0D 20 03  4E B2 34 35 3A 8D 32 30  |750... .N.45:.20|
000009B0: 30 30 3A 8B 51 54 B2 31  A7 99 22 93 22 3A 89 38  |00:.QT.1..".":.8|
000009C0: 32 35 00 F6 0D 39 03 99  22 93 22 3B 22 A6 A6 A6  |25...9..".";"...|
000009D0: A6 A6 A6 A6 A6 A6 A6 A6  A0 4D 49 44 50 4F 49 4E  |.........MIDPOIN|
000009E0: 54 20 53 4F 52 54 20 A6  A6 A6 A6 A6 A6 A6 A6 A6  |T SORT .........|
000009F0: A6 A6 A6 22 3A 99 00 20  0E 3A 03 99 22 44 45 47  |...":.. .:.."DEG|
00000A00: 20 4D 49 44 50 54 20 20  20 20 44 45 47 20 4D 49  | MIDPT    DEG MI|
00000A10: 44 50 54 20 20 20 44 45  47 20 4D 49 44 50 54 22  |DPT   DEG MIDPT"|
00000A20: 00 4A 0E 3B 03 99 22 C5  C5 C5 A0 C5 C5 C5 C5 C5  |.J.;..".........|
00000A30: 20 20 20 20 C5 C5 C5 20  C5 C5 C5 C5 C5 20 20 20  |    ... .....   |
00000A40: C5 C5 C5 20 C5 C5 C5 C5  C5 22 00 68 0E 3E 03 59  |... .....".h.>.Y|
00000A50: B2 30 3A 41 B2 31 3A 81  49 B2 31 A4 33 3A 99 22  |.0:A.1:.I.1.3:."|
00000A60: 13 11 11 11 11 11 22 3B  00 74 0E 40 03 81 4A B2  |......";.t.@..J.|
00000A70: 31 A4 31 35 00 87 0E 43  03 8B 4E 4E B2 39 AF 41  |1.15...C..NN.9.A|
00000A80: B1 33 36 89 38 34 32 00  9C 0E 48 03 99 A3 59 29  |.36.842...H...Y)|
00000A90: 3B 4D 24 28 41 29 3A 41  B2 41 AA 31 00 A3 0E 4A  |;M$(A):A.A.1...J|
00000AA0: 03 82 4A 00 B1 0E 52 03  59 B2 59 AA 31 32 3A 82  |..J...R.Y.Y.12:.|
00000AB0: 49 00 BF 0E 5C 03 51 54  B2 31 3A 89 37 35 30 00  |I...\.QT.1:.750.|
00000AC0: EF 0E 61 03 99 22 93 A6  A6 A6 A6 A6 A6 20 5A 4F  |..a.."....... ZO|
00000AD0: 44 49 41 43 20 4D 49 44  50 4F 49 4E 54 20 53 4F  |DIAC MIDPOINT SO|
00000AE0: 52 54 20 A6 A6 A6 A6 A6  A6 A6 A6 A6 22 3A 99 00  |RT .........":..|
00000AF0: 1C 0F 63 03 99 22 20 20  20 53 49 47 4E 20 4D 49  |..c.."   SIGN MI|
00000B00: 44 50 54 20 20 53 49 47  4E 20 4D 49 44 50 54 20  |DPT  SIGN MIDPT |
00000B10: 20 20 53 49 47 4E 20 4D  49 44 50 54 00 49 0F 65  |  SIGN MIDPT.I.e|
00000B20: 03 99 22 20 20 20 C5 C5  C5 C5 A0 C5 C5 C5 C5 C5  |.."   ..........|
00000B30: 20 20 C5 C5 C5 C5 A0 C5  C5 C5 C5 C5 20 20 20 C5  |  ..........   .|
00000B40: C5 C5 C5 A0 C5 C5 C5 C5  C5 00 66 0F 66 03 59 B2  |..........f.f.Y.|
00000B50: 30 3A 41 B2 31 3A 81 49  B2 31 A4 33 3A 99 22 13  |0:A.1:.I.1.3:.".|
00000B60: 11 11 11 11 22 3B 00 72  0F 6B 03 81 4A B2 31 A4  |....";.r.k..J.1.|
00000B70: 31 35 00 86 0F 6C 03 8B  4E 4E B2 39 AF 41 B1 33  |15...l..NN.9.A.3|
00000B80: 36 A7 89 38 38 30 00 9F  0F 6D 03 5A B2 C5 28 C8  |6..880...m.Z..(.|
00000B90: 28 4D 24 28 41 29 2C 33  29 29 3A 8D 36 39 30 00  |(M$(A),3)):.690.|
00000BA0: C9 0F 6F 03 99 A3 59 29  3B 59 24 3B 5A 31 3B 5A  |..o...Y);Y$;Z1;Z|
00000BB0: 24 28 51 29 3B 22 20 22  3B C9 28 4D 24 28 41 29  |$(Q);" ";.(M$(A)|
00000BC0: 2C 35 29 3A 41 B2 41 AA  31 00 D0 0F 70 03 82 4A  |,5):A.A.1...p..J|
00000BD0: 00 DE 0F 71 03 59 B2 59  AA 31 33 3A 82 49 00 E7  |...q.Y.Y.13:.I..|
00000BE0: 0F 72 03 89 37 35 30 00  13 10 84 03 99 22 93 49  |.r..750......".I|
00000BF0: 4E 50 55 54 20 50 4C 41  4E 45 54 53 20 49 4E 20  |NPUT PLANETS IN |
00000C00: 33 36 30 BE 20 41 4E 44  20 4D 49 4E 55 54 45 53  |360. AND MINUTES|
00000C10: 22 3A 99 00 3B 10 85 03  99 22 45 58 41 4D 50 4C  |":..;...."EXAMPL|
00000C20: 45 3A 20 20 20 32 35 BE  20 43 41 50 20 34 38 27  |E:   25. CAP 48'|
00000C30: 3D 20 32 39 35 2E 34 38  22 3A 99 00 5C 10 86 03  |= 295.48":..\...|
00000C40: 4E 59 B2 31 3A 99 22 12  47 92 20 47 45 4F 20 4F  |NY.1:.".G. GEO O|
00000C50: 52 20 12 48 92 20 48 45  4C 49 4F 22 00 6F 10 87  |R .H. HELIO".o..|
00000C60: 03 A1 47 24 3A 8B 47 24  B2 22 22 89 39 30 33 00  |..G$:.G$."".903.|
00000C70: 8A 10 88 03 8B 47 24 B2  22 48 22 A7 4E 4E B2 39  |.....G$."H".NN.9|
00000C80: 3A 8D 39 35 30 3A 89 39  30 37 00 A1 10 89 03 8B  |:.950:.907......|
00000C90: 47 24 B2 22 47 22 A7 4E  4E B2 31 30 3A 89 39 30  |G$."G".NN.10:.90|
00000CA0: 37 00 AA 10 8A 03 89 39  30 33 00 DE 10 8B 03 81  |7......903......|
00000CB0: 4B B2 31 A4 4E 4E 3A 99  43 24 28 4B 29 3B 3A 85  |K.1.NN:.C$(K);:.|
00000CC0: 43 28 4B 29 3A 43 28 4B  29 B2 A5 51 28 43 28 4B  |C(K):C(K)..Q(C(K|
00000CD0: 29 29 3A 82 4B 3A 8B 4E  4E B2 39 89 35 31 00 E6  |)):.K:.NN.9.51..|
00000CE0: 10 8C 03 89 32 35 00 1D  11 B6 03 43 24 28 31 29  |....25.....C$(1)|
00000CF0: B2 22 45 41 52 22 3A 81  4B B2 32 A4 39 3A 43 24  |."EAR":.K.2.9:C$|
00000D00: 28 4B 29 B2 43 24 28 4B  AA 31 29 3A 82 4B 3A 43  |(K).C$(K.1):.K:C|
00000D10: 24 28 31 30 29 B2 22 20  20 20 22 3A 8E 00 23 11  |$(10)."   ":..#.|
00000D20: E7 03 90 00 6E 11 E9 03  83 53 55 4E 2C 41 52 2C  |....n....SUN,AR,|
00000D30: 4D 4F 4E 2C 54 41 2C 4D  45 52 2C 47 45 2C 56 45  |MON,TA,MER,GE,VE|
00000D40: 4E 2C 43 41 2C 4D 41 52  2C 4C 45 2C 4A 55 50 2C  |N,CA,MAR,LE,JUP,|
00000D50: 56 49 2C 53 41 54 2C 4C  49 2C 55 52 41 2C 53 43  |VI,SAT,LI,URA,SC|
00000D60: 2C 4E 45 50 2C 53 41 2C  50 4C 55 2C 43 50 00 7D  |,NEP,SA,PLU,CP.}|
00000D70: 11 EA 03 83 30 2C 41 51  2C 30 2C 50 49 00 BE 11  |....0,AQ,0,PI...|
00000D80: EC 03 83 31 31 35 2E 38  31 2C 35 33 2E 34 39 2C  |...115.81,53.49,|
00000D90: 39 37 2E 33 34 2C 31 33  39 2E 39 2C 39 2E 30 39  |97.34,139.9,9.09|
00000DA0: 2C 37 31 2E 38 34 2C 35  36 2E 31 31 2C 35 39 2E  |,71.84,56.11,59.|
00000DB0: 34 2C 31 37 35 2E 33 39  2C 31 32 33 2E 36 00 F3  |4,175.39,123.6..|
00000DC0: 11 4C 04 99 22 93 22 3B  22 B8 B8 B8 B8 B8 B8 B8  |.L..".";".......|
00000DD0: B8 B8 B8 B8 B8 B8 B8 B8  B8 20 41 53 50 45 43 54  |......... ASPECT|
00000DE0: 53 20 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |S ..............|
00000DF0: 22 3A 99 00 1F 12 4D 04  99 22 91 20 20 20 DD 20  |":....M..".   . |
00000E00: 20 20 DD 20 20 20 DD A0  A0 A0 DD A0 A0 A0 DD 20  |  .   ......... |
00000E10: 20 20 DD 20 20 20 DD A0  A0 A0 DD A0 A0 A0 DD 00  |  .   ..........|
00000E20: 56 12 4E 04 81 49 B2 31  A4 39 3A 99 22 C0 C0 C0  |V.N..I.1.9:."...|
00000E30: DB C0 C0 C0 DB C0 C0 C0  DB C0 C0 C0 DB C0 C0 C0  |................|
00000E40: DB C0 C0 C0 DB C0 C0 C0  DB C0 C0 C0 DB C0 C0 C0  |................|
00000E50: DB C0 C0 C0 20 22 00 86  12 50 04 99 22 91 20 20  |.... "...P..".  |
00000E60: 20 DD 20 20 20 DD 20 20  20 DD A0 A0 A0 DD A0 A0  | .   .   .......|
00000E70: A0 DD 20 20 20 DD 20 20  20 DD A0 A0 A0 DD A0 A0  |..   .   .......|
00000E80: A0 DD 22 3A 82 49 00 B5  12 51 04 99 22 B9 B9 B9  |..":.I...Q.."...|
00000E90: B9 B9 B9 B9 B9 B9 B9 B9  20 4D 41 4A 4F 52 20 41  |........ MAJOR A|
00000EA0: 53 50 45 43 54 53 20 B9  B9 B9 B9 B9 B9 B9 B9 B9  |SPECTS .........|
00000EB0: B9 B9 B9 B9 22 00 CA 12  5F 04 8B 4E 4E B2 39 AF  |...."..._..NN.9.|
00000EC0: 4E 59 B3 B1 31 A7 8D 39  35 30 00 E0 12 60 04 59  |NY..1..950...`.Y|
00000ED0: B2 30 3A 99 22 13 22 3B  3A 81 49 B2 31 A4 4E 4E  |.0:.".";:.I.1.NN|
00000EE0: 00 FB 12 6A 04 99 A3 59  29 3B 22 11 22 3B 22 12  |...j...Y);".";".|
00000EF0: 22 AA 43 24 28 49 29 AA  22 92 22 00 08 13 74 04  |".C$(I)."."...t.|
00000F00: 59 B2 59 AA 34 3A 82 49  00 0E 13 88 04 8E 00 1D  |Y.Y.4:.I........|
00000F10: 13 B0 04 58 B2 C5 28 41  24 28 41 29 29 00 2D 13  |...X..(A$(A)).-.|
00000F20: BC 04 42 24 28 41 29 B2  22 20 20 20 22 00 4A 13  |..B$(A)."   ".J.|
00000F30: BF 04 8B 58 B3 B2 31 30  A7 42 24 28 41 29 B2 22  |...X..10.B$(A)."|
00000F40: 43 4A 4E 22 3A 8D 31 33  30 35 00 6C 13 C0 04 8B  |CJN":.1305.l....|
00000F50: 58 B1 B2 33 38 AF 58 B3  34 32 A7 8D 31 33 30 35  |X..38.X.42..1305|
00000F60: 3A 42 24 28 41 29 B2 22  4E 4F 56 22 00 8F 13 C1  |:B$(A)."NOV"....|
00000F70: 04 8B 58 B1 B2 34 32 AF  58 B3 B2 34 38 A7 8D 31  |..X..42.X..48..1|
00000F80: 33 30 35 3A 42 24 28 41  29 B2 22 53 53 51 22 00  |305:B$(A)."SSQ".|
00000F90: B2 13 C4 04 8B 58 B1 B2  34 39 AF 58 B3 B2 35 34  |.....X..49.X..54|
00000FA0: A7 8D 31 33 30 35 3A 42  24 28 41 29 B2 22 53 50  |..1305:B$(A)."SP|
00000FB0: 54 22 00 D5 13 CE 04 8B  58 B1 B2 35 34 AF 58 B3  |T"......X..54.X.|
00000FC0: B2 36 36 A7 8D 31 33 30  35 3A 42 24 28 41 29 B2  |.66..1305:B$(A).|
00000FD0: 22 53 58 54 22 00 F8 13  D8 04 8B 58 B1 B2 36 39  |"SXT"......X..69|
00000FE0: AF 58 B3 B2 37 35 A7 8D  31 33 30 35 3A 42 24 28  |.X..75..1305:B$(|
00000FF0: 41 29 B2 22 51 54 4C 22  00 1B 14 E2 04 8B 58 B1  |A)."QTL"......X.|
00001000: B2 38 30 AF 58 B3 B2 39  39 A7 8D 31 33 30 35 3A  |.80.X..99..1305:|
00001010: 42 24 28 41 29 B2 22 53  51 52 22 00 40 14 EC 04  |B$(A)."SQR".@...|
00001020: 8B 58 B1 B2 31 30 30 AF  58 B3 B2 31 30 34 A7 8D  |.X..100.X..104..|
00001030: 31 33 30 35 3A 42 24 28  41 29 B2 22 42 53 50 22  |1305:B$(A)."BSP"|
00001040: 00 65 14 F6 04 8B 58 B1  B2 31 31 30 AF 58 B3 B2  |.e....X..110.X..|
00001050: 31 33 30 A7 8D 31 33 30  35 3A 42 24 28 41 29 B2  |130..1305:B$(A).|
00001060: 22 54 52 49 22 00 8A 14  00 05 8B 58 B1 B2 31 34  |"TRI"......X..14|
00001070: 31 AF 58 B3 B2 31 34 37  A7 8D 31 33 30 35 3A 42  |1.X..147..1305:B|
00001080: 24 28 41 29 B2 22 42 51  54 22 00 A8 14 0A 05 8B  |$(A)."BQT"......|
00001090: 58 B1 B2 31 37 30 A7 8D  31 33 30 35 3A 42 24 28  |X..170..1305:B$(|
000010A0: 41 29 B2 22 4F 50 50 22  00 AE 14 14 05 8E 00 C8  |A)."OPP"........|
000010B0: 14 19 05 41 24 28 41 29  B2 22 12 22 AA 41 24 28  |...A$(A).".".A$(|
000010C0: 41 29 AA 22 92 22 3A 8E  00 EB 14 1D 05 54 24 B2  |A).".":......T$.|
000010D0: 22 13 11 11 11 22 3A 59  B2 30 3A 41 B2 31 3A 4E  |"....":Y.0:A.1:N|
000010E0: B2 43 4E 3A 81 4A B2 31  A4 43 4E 00 01 15 1E 05  |.CN:.J.1.CN.....|
000010F0: 57 24 B2 54 24 3A 99 54  24 3B 3A 81 49 B2 31 A4  |W$.T$:.T$;:.I.1.|
00001100: 4E 00 17 15 28 05 99 57  24 3B A3 59 29 3B 42 24  |N...(..W$;.Y);B$|
00001110: 28 41 29 3B 22 DD 22 00  2C 15 2D 05 41 B2 41 AA  |(A);".".,.-.A.A.|
00001120: 31 3A 57 24 B2 57 24 AA  22 11 11 22 00 4A 15 32  |1:W$.W$."..".J.2|
00001130: 05 82 49 3A 4E B2 4E AB  31 3A 59 B2 59 AA 34 3A  |..I:N.N.1:Y.Y.4:|
00001140: 54 24 B2 54 24 AA 22 11  11 22 00 55 15 37 05 99  |T$.T$."..".U.7..|
00001150: 3A 99 3A 82 4A 00 5B 15  3E 05 8E 00 6A 15 D0 07  |:.:.J.[.>...j...|
00001160: 8B 4E 4E B2 39 A7 4E B2  33 36 00 91 15 D1 07 57  |.NN.9.N.36.....W|
00001170: 57 B2 54 49 3A 4D B2 4E  3A 99 22 93 57 4F 52 4B  |W.TI:M.N:.".WORK|
00001180: 49 4E 47 20 4F 4E 20 4D  49 44 50 4F 49 4E 54 53  |ING ON MIDPOINTS|
00001190: 22 00 9E 15 D2 07 4D B2  B5 28 4D AD 32 29 00 AC  |".....M..(M.2)..|
000011A0: 15 D3 07 8B 4D B2 30 A7  32 30 32 37 00 BA 15 D5  |....M.0.2027....|
000011B0: 07 4A B2 31 3A 4B B2 4E  AB 4D 00 C2 15 D7 07 49  |.J.1:K.N.M.....I|
000011C0: B2 4A 00 CC 15 D9 07 4C  B2 49 AA 4D 00 E9 15 DB  |.J.....L.I.M....|
000011D0: 07 8B C5 28 4D 24 28 49  29 29 B3 C5 28 4D 24 28  |...(M$(I))..(M$(|
000011E0: 4C 29 29 A7 89 32 30 32  31 00 0B 16 DD 07 4D 24  |L))..2021.....M$|
000011F0: B2 4D 24 28 49 29 3A 4D  24 28 49 29 B2 4D 24 28  |.M$(I):M$(I).M$(|
00001200: 4C 29 3A 4D 24 28 4C 29  B2 4D 24 00 15 16 DF 07  |L):M$(L).M$.....|
00001210: 49 B2 49 AB 4D 00 23 16  E1 07 8B 49 B3 31 A7 32  |I.I.M.#....I.1.2|
00001220: 30 32 31 00 2D 16 E3 07  89 32 30 30 39 00 3F 16  |021.-....2009.?.|
00001230: E5 07 99 4A 3B 22 5F 91  22 3A 4A B2 4A AA 31 00  |...J;"_.":J.J.1.|
00001240: 4D 16 E7 07 8B 4A B1 4B  A7 32 30 30 32 00 57 16  |M....J.K.2002.W.|
00001250: E9 07 89 32 30 30 37 00  64 16 EA 07 99 54 49 AB  |...2007.d....TI.|
00001260: 57 57 3A 90 00 6A 16 EB  07 8E 00 83 16 44 11 48  |WW:..j.......D.H|
00001270: 24 B2 22 12 22 AA C4 28  48 29 AA 22 12 20 48 41  |$."."..(H).". HA|
00001280: 52 92 22 00 A9 16 46 11  8B 48 B1 39 A7 44 B2 C3  |R."...F..H.9.D..|
00001290: 28 48 24 29 3A 48 24 B2  22 12 22 AA C9 28 48 24  |(H$):H$."."..(H$|
000012A0: 2C 44 AB 32 29 AA 22 92  22 00 BC 16 49 11 99 54  |,D.2)."."...I..T|
000012B0: 24 3B A3 58 29 3B 22 20  22 3B 48 24 00 C8 16 4E  |$;.X);" ";H$...N|
000012C0: 11 81 49 B2 31 A4 31 31  00 E3 16 53 11 48 28 49  |..I.1.11...S.H(I|
000012D0: 29 B2 A5 55 28 43 28 49  29 AC 48 29 3A 58 28 49  |)..U(C(I).H):X(I|
000012E0: 29 B2 30 00 EA 16 58 11  82 49 00 F8 16 5D 11 4E  |).0...X..I...].N|
000012F0: B2 31 30 3A 8D 36 35 30  00 06 17 62 11 8B 51 51  |.10:.650...b..QQ|
00001300: B2 31 89 35 30 30 00 18  17 67 11 58 B2 58 AA 38  |.1.500...g.X.X.8|
00001310: 3A 48 B2 48 AA 31 3A 8E  00 28 17 64 23 8F 20 4D  |:H.H.1:..(.d#. M|
00001320: 49 44 50 4F 49 4E 54 53  00 45 17 66 23 57 B2 30  |IDPOINTS.E.f#W.0|
00001330: 3A 59 B2 B6 28 58 29 3A  8B 59 B3 B2 31 38 30 A7  |:Y..(X):.Y..180.|
00001340: 89 39 30 37 32 00 4F 17  6A 23 57 B2 31 38 30 00  |.9072.O.j#W.180.|
00001350: 6B 17 6C 23 8B 28 43 28  49 29 AA 43 28 4A 29 29  |k.l#.(C(I).C(J))|
00001360: AD 32 B3 31 38 30 89 39  30 37 32 00 76 17 6E 23  |.2.180.9072.v.n#|
00001370: 57 B2 AB 31 38 30 00 8C  17 70 23 59 B2 28 43 28  |W..180...p#Y.(C(|
00001380: 49 29 AA 43 28 4A 29 29  AD 32 AA 57 00 A6 17 73  |I).C(J)).2.W...s|
00001390: 23 59 B2 B5 28 28 28 59  AC 31 30 30 29 AA 2E 35  |#Y..(((Y.100)..5|
000013A0: 29 AD 31 30 30 29 00 B6  17 74 23 54 B2 C3 28 C4  |).100)...t#T..(.|
000013B0: 28 59 29 29 AB 31 00 CE  17 76 23 8B 54 B2 31 A7  |(Y)).1...v#.T.1.|
000013C0: 4D 24 28 41 29 B2 22 20  22 AA C4 28 59 29 00 E3  |M$(A)." "..(Y)..|
000013D0: 17 78 23 8B 54 B2 30 A7  4D 24 28 41 29 B2 22 20  |.x#.T.0.M$(A)." |
000013E0: 20 20 22 00 F7 17 7A 23  8B 54 B2 32 A7 4D 24 28  |  "...z#.T.2.M$(|
000013F0: 41 29 B2 C4 28 59 29 00  18 18 7C 23 8B 54 B2 33  |A)..(Y)...|#.T.3|
00001400: A7 4D 24 B2 C4 28 59 29  3A 4D 24 28 41 29 B2 CA  |.M$..(Y):M$(A)..|
00001410: 28 4D 24 2C 32 2C 33 29  00 46 18 7D 23 4D 24 28  |(M$,2,3).F.}#M$(|
00001420: 41 29 B2 4D 24 28 41 29  AA 22 20 22 AA C8 28 43  |A).M$(A)." "..(C|
00001430: 24 28 49 29 2C 32 29 AA  22 2F 22 AA C8 28 43 24  |$(I),2)."/"..(C$|
00001440: 28 4A 29 2C 32 29 00 4C  18 82 23 8E 00 00 00 24  |(J),2).L..#....$|
..E...A.1:.M$(46),B$(46),A$(46),Z$(12),C
$(12),C(12),K(11),H(11),X(11).R.....H(X)
.X.Y..(X.Y):..W(X)..(X.100..5).100......
.U(X).X.(.(X.360).360):..V(X)..(X..5)...
....Q(X)..(X)..((X..(X)).100).60......I.
1.12:.C$(I),Z$(I):.I......"..G. GEO  .H.
 HELIO  .I. INPUT"......Q$:.Q$."".13.#..
..Q$."G".20.2....Q$."H".50.B....Q$."I".9
00.J....13.B...ME.866:.I.1.10:.350.S....
I.1.C(I).IT......I.10.C(2).IT......I.1.C
(I.1).IT.....ME.ME.4:.I.....NM.45:CN.9:N
N.10:.99...2.ME.826:.I.1.9:.350:C(I).IT:
ME.ME.4:.I...3.NM.36:CN.8:NN.9:.99...C..
1100...H.A.1:.I.1.NN.*.M..J.I.1.NN.:.R.X
.C(I).C(J).D.S..9060.Z.T..C(I).C(J).X..(
X).K.W..X.0.X.X.360.~....X.180.X.360.X..
...X..(((X.100)..5).100).....T.C(D(X)).1
......T.1.A$(A)." ".D(X).U....T.0.A$(A).
"   "......T.2.A$(A).D(X)......T.3.A$.D(
X):A$(A).J(A$,2,3)......1200.!...A.A.1:.
J.8....I:.245:.1309:.750.U...N.CN:A.1:T$
."..":Y.4:W.4.A....I.1.CN.Q....T$;:.J.1.
N.......Y);A$(A);.....A.A.1:Y.Y.4......J
.....W.W.4:Y.W:T$.T$."..":N.N.1:.:..D...
.I:....,.T$."....":A.1:N.1:.J.1.CN...6..
T$;:.I.1.N...@..H(M$(A),3);".";.%.J.A.A.
1:.I:N.N.1:T$.T$.".."...O..:.J.:.P..CN.8
...I.Q.."........... MIDPOINTS .........
........".R.V..750...^.IT.B(ME).256.B(ME
.1).(B(ME.2).256.B(ME.3)).10000:......OB
.5......".";.P...T$.".":N.11:H.1.X...X.0
......A.1.5:.4420:.A.....T$."...........
."...L.X.0:.A.1.5:.4420:.A.C....".......
.................1=CONT  2=HAR?  3=ORB  
4=TO MAIN PROGRAM.".V....G$:.G$."".505..
...AA.E(G$)......AA.525,520,521,516.....
.".":.750.Z...." DESIRED HARMONIC";H:T$.
".":X.0:.4420:.500......"NEW ORB";OB:.40
2.....X.0:.".";.....T$.".":.A.1.5:.4420:
.A.#....500.<....I.1.NN:K(I).H(I):.I.J..
..I.1.NN.1.X....J.I.1.NN.L....K(J)..K(I)
.670.....K1.K(I):K(I).K(J):K(J).K1......
J......I:B.1:.I.1.NN.S....J.1.NN:.K(B).H
(J).X(J).0.X(J).1:.700:.680.Z....J.....P
$.K$." ".......(K(B).K(B.1))..OB..(K(B).
K(B.1))..OB.P$.K$."*".A....B.1..(K(1).K(
2))..OB.P$.K$." ".F....B.10..(K(B).K(9))
..OB.P$.K$." ".......X);P$;.X.5);H(C$(J)
,2).....B.B.1:.I:..I...Z3..(Z):Q..(Z3.30
).1:Z1..(.W((Z3.30..(Z3.30)).30)).....Y$
." ":.Z1.10.Y$."  ".....ZZ$.D(.(.(((Z.Z3
).60).10..5).10)).$....E(ZZ$).10.ZZ$.ZZ$
." ".*.....K...K(B)..V(K(B)):T.C(D(K(B))
).1.C....T.1.K$." ".D(K(B)).U....T.0.K$.
"   "...B..T.2.K$.D(K(B))...D..T.3.K$.D(
K(B)):K$.J(K$,2,3)...E...P....".........
..............";......".A.SPECTS & .M.ID
 SORT:.3.60/.Z.OD .H.ARMONICS .N.EW"....
..G$:.G$."".760......G$."A".99.>....G$."
M".300.N....G$."3".800.^....G$."Z".865.P
....G$."N"..:.10......G$."H".400......76
0......1100:.245:.1309:.750.B. .N.45:.20
00:.QT.1..".":.825...9..".";"...........
 MIDPOINT SORT ............":.. .:.."DEG
 MIDPT    DEG MIDPT   DEG MIDPT".J.;.."E
EE EEEEE    EEE EEEEE   EEE EEEEE".H.>.Y
.0:A.1:.I.1.3:."......";.T.@..J.1.15...C
..NN.9.A.36.842...H...Y);M$(A):A.A.1...J
..J...R.Y.Y.12:.I...\.QT.1:.750...A.."..
..... ZODIAC MIDPOINT SORT .........":..
..C.."   SIGN MIDPT  SIGN MIDPT   SIGN M
IDPT.I.E.."   EEEE EEEEE  EEEE EEEEE   E
EEE EEEEE.F.F.Y.0:A.1:.I.1.3:.".....";.R
.K..J.1.15...L..NN.9.A.36..880...M.Z.E(H
(M$(A),3)):.690.I.O...Y);Y$;Z1;Z$(Q);" "
;I(M$(A),5):A.A.1.P.P..J...Q.Y.Y.13:.I..
.R..750......".INPUT PLANETS IN 360. AND
 MINUTES":..;...."EXAMPLE:   25. CAP 48'
= 295.48":..\...NY.1:.".G. GEO OR .H. HE
LIO".O....G$:.G$."".903......G$."H".NN.9
:.950:.907......G$."G".NN.10:.907......9
03......K.1.NN:.C$(K);:.C(K):C(K)..Q(C(K
)):.K:.NN.9.51......25.....C$(1)."EAR":.
K.2.9:C$(K).C$(K.1):.K:C$(10)."   ":..#.
....N....SUN,AR,MON,TA,MER,GE,VEN,CA,MAR
,LE,JUP,VI,SAT,LI,URA,SC,NEP,SA,PLU,CP.}
....0,AQ,0,PI......115.81,53.49,97.34,13
9.9,9.09,71.84,56.11,59.4,175.39,123.6..
.L..".";"................ ASPECTS ......
........":....M..".   .   .   .   .   . 
  .   .   .   ..V.N..I.1.9:."...........
............................ "...P..".  
 .   .   .   .   .   .   .   .   .":.I..
.Q.."........... MAJOR ASPECTS .........
....".J._..NN.9.NY..1..950...`.Y.0:.".";
:.I.1.NN...J...Y);".";".".C$(I)."."...T.
Y.Y.4:.I...........X.E(A$(A)).-...B$(A).
"   ".J....X..10.B$(A)."CJN":.1305.L....
X..38.X.42..1305:B$(A)."NOV"...A..X..42.
X..48..1305:B$(A)."SSQ"...D..X..49.X..54
..1305:B$(A)."SPT".U.N..X..54.X..66..130
5:B$(A)."SXT"...X..X..69.X..75..1305:B$(
A)."QTL"......X..80.X..99..1305:B$(A)."S
QR".@....X..100.X..104..1305:B$(A)."BSP"
.E....X..110.X..130..1305:B$(A)."TRI"...
...X..141.X..147..1305:B$(A)."BQT"......
X..170..1305:B$(A)."OPP".......H...A$(A)
.".".A$(A).".":......T$."....":Y.0:A.1:N
.CN:.J.1.CN.....W$.T$:.T$;:.I.1.N...(..W
$;.Y);B$(A);".".,.-.A.A.1:W$.W$."..".J.2
..I:N.N.1:Y.Y.4:T$.T$."..".U.7..:.:.J.[.
>...J.P..NN.9.N.36...Q.WW.TI:M.N:.".WORK
ING ON MIDPOINTS"...R.M..(M.2)...S..M.0.
2027...U.J.1:K.N.M.B.W.I.J.L.Y.L.I.M....
..E(M$(I)).E(M$(L))..2021.....M$.M$(I):M
$(I).M$(L):M$(L).M$.....I.I.M.#....I.1.2
021.-....2009.?....J;"_.":J.J.1.M....J.K
.2002.W....2007.D....TI.WW:..J.......D.H
$.".".D(H).". HAR."...F..H.9.D.C(H$):H$.
".".I(H$,D.2)."."...I..T$;.X);" ";H$.H.N
..I.1.11...S.H(I)..U(C(I).H):X(I).0...X.
.I...].N.10:.650...B..QQ.1.500...G.X.X.8
:H.H.1:..(.D#. MIDPOINTS.E.F#W.0:Y..(X):
.Y..180..9072.O.J#W.180.K.L#.(C(I).C(J))
.2.180.9072.V.N#W..180...P#Y.(C(I).C(J))
.2.W...S#Y..(((Y.100)..5).100)...T#T.C(D
(Y)).1.N.V#.T.1.M$(A)." ".D(Y)...X#.T.0.
M$(A)."   "...Z#.T.2.M$(A).D(Y)...|#.T.3
.M$.D(Y):M$(A).J(M$,2,3).F.}#M$(A).M$(A)
." ".H(C$(I),2)."/".H(C$(J),2).L..#....$
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL