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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL