N-BODY SIMULATOR

00000000: 01 08 18 08 64 00 8F 20  4E 2D 42 4F 44 59 20 53  |....d.. N-BODY S|
00000010: 49 4D 55 4C 41 54 4F 52  00 2B 08 6E 00 8F 20 56  |IMULATOR.+.n.. V|
00000020: 45 52 53 49 4F 4E 20 36  2E 30 39 00 42 08 78 00  |ERSION 6.09.B.x.|
00000030: 8F 20 42 59 20 52 49 43  48 41 52 44 20 4C 55 43  |. BY RICHARD LUC|
00000040: 41 53 00 48 08 82 00 3A  00 59 08 8C 00 8F 20 49  |AS.H...:.Y.... I|
00000050: 4E 49 54 49 41 4C 49 5A  45 00 75 08 96 00 97 32  |NITIALIZE.u....2|
00000060: 30 33 38 2C C2 28 35 35  29 3A 97 32 30 33 39 2C  |038,.(55):.2039,|
00000070: C2 28 35 36 29 00 8C 08  A0 00 97 20 35 36 2C 36  |.(56)...... 56,6|
00000080: 32 3A 20 97 20 35 35 2C  30 3A 20 9C 00 CB 08 AA  |2: . 55,0: .....|
00000090: 00 86 20 58 28 34 30 29  2C 59 28 34 30 29 2C 5A  |.. X(40),Y(40),Z|
000000A0: 28 34 30 29 2C 55 28 34  30 29 2C 56 28 34 30 29  |(40),U(40),V(40)|
000000B0: 2C 57 28 34 30 29 2C 58  31 28 34 30 29 2C 59 31  |,W(40),X1(40),Y1|
000000C0: 28 34 30 29 2C 5A 31 28  34 30 29 00 E4 08 B4 00  |(40),Z1(40).....|
000000D0: 86 20 4D 28 34 30 29 2C  47 4D 28 34 30 29 2C 45  |. M(40),GM(40),E|
000000E0: 32 28 37 29 00 29 09 BE  00 86 20 58 30 28 34 30  |2(7).).... X0(40|
000000F0: 29 2C 59 30 28 34 30 29  2C 5A 30 28 34 30 29 2C  |),Y0(40),Z0(40),|
00000100: 55 30 28 34 30 29 2C 56  30 28 34 30 29 2C 57 30  |U0(40),V0(40),W0|
00000110: 28 34 30 29 2C 41 30 28  34 30 29 2C 42 30 28 34  |(40),A0(40),B0(4|
00000120: 30 29 2C 43 30 28 34 30  29 00 49 09 C8 00 86 20  |0),C0(40).I.... |
00000130: 45 58 28 37 29 2C 55 4E  28 33 29 2C 55 4E 24 28  |EX(7),UN(3),UN$(|
00000140: 33 29 2C 54 55 24 28 33  29 00 65 09 D2 00 81 49  |3),TU$(3).e....I|
00000150: B2 31 A4 33 3A 87 54 55  24 28 49 29 2C 55 4E 24  |.1.3:.TU$(I),UN$|
00000160: 28 49 29 3A 82 00 B3 09  DC 00 83 20 22 44 41 59  |(I):....... "DAY|
00000170: 53 22 2C 22 31 30 5E 37  4B 49 4C 4F 4D 45 54 45  |S","10^7KILOMETE|
00000180: 52 53 2D 54 4F 4E 53 2D  44 41 59 53 22 2C 22 44  |RS-TONS-DAYS","D|
00000190: 41 59 53 22 2C 22 C1 D5  2D C5 41 52 54 48 20 4D  |AYS","..-.ARTH M|
000001A0: 41 53 53 2D 44 41 59 53  22 2C 22 53 45 43 4F 4E  |ASS-DAYS","SECON|
000001B0: 44 53 22 00 C7 09 E6 00  83 20 31 30 30 30 4B 4D  |DS"...... 1000KM|
000001C0: 2D 4B 47 2D 53 45 43 00  D2 09 F0 00 8D 20 32 38  |-KG-SEC...... 28|
000001D0: 32 30 00 18 0A FA 00 47  B2 36 2E 36 37 45 AB 31  |20.....G.6.67E.1|
000001E0: 31 3A 53 59 B2 31 3A 43  46 B2 34 30 3A 43 34 B2  |1:SY.1:CF.40:C4.|
000001F0: 35 30 34 3A 43 37 B2 37  3A 43 38 B2 32 34 38 3A  |504:C7.7:C8.248:|
00000200: 56 49 B2 35 33 32 34 38  3A 48 49 B2 56 49 AA 31  |VI.53248:HI.VI.1|
00000210: 36 3A 43 35 B2 32 35 35  00 59 0A 04 01 48 52 B2  |6:C5.255.Y...HR.|
00000220: 31 36 AC 31 30 32 34 3A  4F 24 B2 22 45 50 4E 43  |16.1024:O$."EPNC|
00000230: 44 4C 53 22 AA C7 28 31  33 33 29 AA C7 28 31 33  |DLS"..(133)..(13|
00000240: 36 29 AA 22 58 59 5A 55  56 57 4D 54 52 C4 22 3A  |6)."XYZUVWMTR.":|
00000250: 53 50 B2 30 3A 44 56 B2  38 00 8E 0A 0E 01 4E 42  |SP.0:DV.8.....NB|
00000260: B2 30 3A 44 54 B2 31 30  3A 44 32 B2 44 54 AC 44  |.0:DT.10:D2.DT.D|
00000270: 54 AD 32 3A 44 33 B2 44  32 AC 44 54 AD 33 3A 44  |T.2:D3.D2.DT.3:D|
00000280: 34 B2 44 33 AC 44 54 AD  34 3A 43 42 B2 31 00 A9  |4.D3.DT.4:CB.1..|
00000290: 0A 18 01 81 49 B2 30 A4  37 3A 45 58 28 49 29 B2  |....I.0.7:EX(I).|
000002A0: 32 AE 28 37 AB 49 29 3A  82 00 C0 0A 22 01 81 49  |2.(7.I):...."..I|
000002B0: B2 30 A4 37 3A 45 32 28  49 29 B2 32 AE 49 3A 82  |.0.7:E2(I).2.I:.|
000002C0: 00 DE 0A 2C 01 55 4E 28  31 29 B2 31 30 30 30 AC  |...,.UN(1).1000.|
000002D0: 38 36 34 30 30 AE 32 AD  31 45 31 30 AE 33 00 09  |86400.2.1E10.3..|
000002E0: 0B 36 01 55 4E 28 32 29  B2 35 2E 39 37 34 32 45  |.6.UN(2).5.9742E|
000002F0: 32 34 AC 38 36 34 30 30  AE 32 AD 31 2E 34 39 35  |24.86400.2.1.495|
00000300: 39 37 38 39 45 31 31 AE  33 00 1B 0B 40 01 55 4E  |9789E11.3...@.UN|
00000310: 28 33 29 B2 31 AD 31 45  36 AE 33 00 48 0B 4A 01  |(3).1.1E6.3.H.J.|
00000320: 97 20 35 33 32 38 30 2C  30 3A 97 20 35 33 32 38  |. 53280,0:. 5328|
00000330: 31 2C 30 3A 99 20 C7 28  31 34 29 AA C7 28 38 29  |1,0:. .(14)..(8)|
00000340: AA C7 28 31 35 31 29 3B  00 7C 0B 54 01 42 24 B2  |..(151);.|.T.B$.|
00000350: 22 22 3A 4C 24 B2 22 22  3A 81 49 B2 31 A4 33 38  |"":L$."":.I.1.38|
00000360: 3A 42 24 B2 42 24 AA C7  28 33 32 29 3A 4C 24 B2  |:B$.B$..(32):L$.|
00000370: 4C 24 AA C7 28 31 39 32  29 3A 82 49 00 92 0B 5E  |L$..(192):.I...^|
00000380: 01 42 24 B2 C7 28 32 39  29 AA 42 24 AA C7 28 32  |.B$..(29).B$..(2|
00000390: 39 29 00 98 0B 68 01 3A  00 A8 0B 72 01 8F 20 4D  |9)...h.:...r.. M|
000003A0: 41 49 4E 20 4C 4F 4F 50  00 B3 0B 7C 01 8D 20 32  |AIN LOOP...|.. 2|
000003B0: 34 36 30 00 BE 0B 86 01  8D 20 32 36 32 30 00 C9  |460...... 2620..|
000003C0: 0B 90 01 99 20 22 3E 22  3B 00 DE 0B 9A 01 A1 20  |.... ">";...... |
000003D0: 41 24 3A 8B 41 24 B2 22  22 A7 20 34 31 30 00 06  |A$:.A$."". 410..|
000003E0: 0C A4 01 81 49 B2 31 A4  C3 28 4F 24 29 3A 8B 41  |....I.1..(O$):.A|
000003F0: 24 B2 CA 28 4F 24 2C 49  2C 31 29 A7 20 99 41 24  |$..(O$,I,1). .A$|
00000400: 3A 89 20 34 35 30 00 0C  0C AE 01 82 00 16 0C B8  |:. 450..........|
00000410: 01 89 20 34 31 30 00 4B  0C C2 01 91 20 49 20 89  |.. 410.K.... I .|
00000420: 20 34 39 30 2C 35 31 30  2C 31 39 37 30 2C 32 39  | 490,510,1970,29|
00000430: 30 30 2C 33 30 37 30 2C  32 31 31 30 2C 32 32 35  |00,3070,2110,225|
00000440: 30 2C 33 31 39 30 2C 33  32 33 30 00 79 0C CC 01  |0,3190,3230.y...|
00000450: 8B 20 49 B2 31 38 20 A7  20 85 22 CE 45 57 20 4E  |. I.18 . .".EW N|
00000460: 41 4D 45 20 4F 46 20 42  4F 44 59 22 3B 4E 24 28  |AME OF BODY";N$(|
00000470: 43 42 29 3A 89 20 33 37  30 00 9A 0C CE 01 8B 20  |CB):. 370...... |
00000480: 49 B2 31 39 20 A7 20 85  22 C4 52 49 56 45 20 23  |I.19 . .".RIVE #|
00000490: 22 3B 44 56 3A 89 20 33  37 30 00 AE 0C D6 01 85  |";DV:. 370......|
000004A0: 22 4E 45 57 20 56 41 4C  55 45 22 3B 4E 56 00 E2  |"NEW VALUE";NV..|
000004B0: 0C E0 01 91 20 49 AB 39  20 89 20 32 33 39 30 2C  |.... I.9 . 2390,|
000004C0: 32 34 30 30 2C 32 34 31  30 2C 32 34 32 30 2C 32  |2400,2410,2420,2|
000004D0: 34 33 30 2C 32 34 34 30  2C 32 33 38 30 2C 32 34  |430,2440,2380,24|
000004E0: 35 30 00 02 0D EA 01 97  35 35 2C C2 28 32 30 33  |50......55,.(203|
000004F0: 38 29 3A 97 35 36 2C C2  28 32 30 33 39 29 3A 9C  |8):.56,.(2039):.|
00000500: 3A 80 00 08 0D F4 01 3A  00 20 0D FE 01 8F 20 50  |:......:. .... P|
00000510: 4C 4F 54 20 54 52 41 4A  45 43 54 4F 52 49 45 53  |LOT TRAJECTORIES|
00000520: 00 54 0D 08 02 8B 20 4E  42 B2 30 20 A7 20 99 20  |.T.... NB.0 . . |
00000530: 22 CE 4F 20 42 4F 44 49  45 53 20 49 4E 20 43 55  |".O BODIES IN CU|
00000540: 52 52 45 4E 54 20 53 59  53 54 45 4D 2E 22 3A 89  |RRENT SYSTEM.":.|
00000550: 20 33 37 30 00 7C 0D 12  02 8B 20 53 50 20 A7 20  | 370.|.... SP . |
00000560: 36 31 30 3A 8F 20 53 4B  49 50 20 48 49 52 45 53  |610:. SKIP HIRES|
00000570: 20 46 4F 52 20 53 50 52  49 54 45 53 00 96 0D 1C  | FOR SPRITES....|
00000580: 02 8F 20 53 45 54 20 55  50 20 48 49 52 45 53 20  |.. SET UP HIRES |
00000590: 53 43 52 45 45 4E 00 CE  0D 26 02 97 20 35 36 35  |SCREEN...&.. 565|
000005A0: 37 38 2C C2 28 35 36 35  37 38 29 B0 33 3A 8F 20  |78,.(56578).3:. |
000005B0: 53 57 49 54 43 48 20 54  4F 20 56 49 43 20 42 41  |SWITCH TO VIC BA|
000005C0: 4E 4B 20 31 20 28 31 36  4B 2D 33 32 4B 29 00 EB  |NK 1 (16K-32K)..|
000005D0: 0D 30 02 97 20 35 36 35  37 36 2C 28 C2 28 35 36  |.0.. 56576,(.(56|
000005E0: 35 37 36 29 AF 32 35 32  29 B0 32 00 23 0E 3A 02  |576).252).2.#.:.|
000005F0: 97 20 35 33 32 37 32 2C  28 C2 28 35 33 32 37 32  |. 53272,(.(53272|
00000600: 29 AF 31 35 29 B0 31 32  38 3A 8F 20 43 48 41 52  |).15).128:. CHAR|
00000610: 20 53 43 52 45 45 4E 20  49 53 20 49 4E 20 39 54  | SCREEN IS IN 9T|
00000620: 48 20 4B 00 52 0E 44 02  97 20 35 33 32 36 35 2C  |H K.R.D.. 53265,|
00000630: C2 28 35 33 32 36 35 29  B0 33 32 3A 8F 20 54 55  |.(53265).32:. TU|
00000640: 52 4E 20 4F 4E 20 48 49  52 45 53 20 53 43 52 45  |RN ON HIRES SCRE|
00000650: 45 4E 00 88 0E 4E 02 97  20 38 32 30 2C 30 3A 97  |EN...N.. 820,0:.|
00000660: 20 38 32 31 2C 36 34 3A  97 20 38 32 32 2C 30 3A  | 821,64:. 822,0:|
00000670: 97 20 38 32 33 2C 39 36  3A 97 20 32 35 31 2C 30  |. 823,96:. 251,0|
00000680: 3A 9E 20 34 39 31 35 32  00 C1 0E 58 02 97 20 38  |:. 49152...X.. 8|
00000690: 32 30 2C 30 3A 97 20 38  32 31 2C 39 36 3A 97 20  |20,0:. 821,96:. |
000006A0: 38 32 32 2C 32 33 31 3A  97 20 38 32 33 2C 39 39  |822,231:. 823,99|
000006B0: 3A 97 20 32 35 31 2C 31  36 3A 9E 20 34 39 31 35  |:. 251,16:. 4915|
000006C0: 32 00 D9 0E 62 02 8B 53  50 A7 81 49 B2 56 49 A4  |2...b..SP..I.VI.|
000006D0: 48 49 3A 97 49 2C 2E 3A  82 00 15 0F 6C 02 8B 53  |HI:.I,.:....l..S|
000006E0: 50 A7 20 41 31 B2 30 3A  81 49 B2 31 A4 38 3A 41  |P. A1.0:.I.1.8:A|
000006F0: 31 B2 41 31 20 B0 28 AB  28 49 B3 B2 4E 42 29 AC  |1.A1 .(.(I..NB).|
00000700: 32 AE 28 49 AB 31 29 29  3A 82 3A 97 20 56 49 AA  |2.(I.1)):.:. VI.|
00000710: 32 31 2C 41 31 00 2F 0F  76 02 8B 53 50 A7 97 20  |21,A1./.v..SP.. |
00000720: 35 33 32 38 31 2C 30 3A  99 C7 28 31 34 37 29 00  |53281,0:..(147).|
00000730: 37 0F 80 02 54 B2 30 00  3D 0F 8A 02 3A 00 6B 0F  |7...T.0.=...:.k.|
00000740: 94 02 8F 20 4D 4F 56 45  20 53 54 41 52 54 20 50  |... MOVE START P|
00000750: 41 52 41 4D 45 54 45 52  53 20 54 4F 20 57 4F 52  |ARAMETERS TO WOR|
00000760: 4B 49 4E 47 20 41 52 52  41 59 53 00 77 0F 9E 02  |KING ARRAYS.w...|
00000770: 81 49 B2 31 A4 4E 42 00  86 0F A8 02 58 28 49 29  |.I.1.NB.....X(I)|
00000780: B2 58 30 28 49 29 00 95  0F B2 02 59 28 49 29 B2  |.X0(I).....Y(I).|
00000790: 59 30 28 49 29 00 A4 0F  BC 02 5A 28 49 29 B2 5A  |Y0(I).....Z(I).Z|
000007A0: 30 28 49 29 00 B3 0F C6  02 55 28 49 29 B2 55 30  |0(I).....U(I).U0|
000007B0: 28 49 29 00 C2 0F D0 02  56 28 49 29 B2 56 30 28  |(I).....V(I).V0(|
000007C0: 49 29 00 D1 0F DA 02 57  28 49 29 B2 57 30 28 49  |I).....W(I).W0(I|
000007D0: 29 00 D7 0F E4 02 82 00  03 10 EE 02 8F 20 43 4F  |)............ CO|
000007E0: 4D 50 55 54 45 20 41 43  43 45 4C 20 41 54 20 54  |MPUTE ACCEL AT T|
000007F0: 49 4D 45 20 44 54 20 42  45 46 4F 52 45 20 53 54  |IME DT BEFORE ST|
00000800: 41 52 54 00 0F 10 F8 02  81 49 B2 31 A4 4E 42 00  |ART......I.1.NB.|
00000810: 2B 10 02 03 41 30 28 49  29 B2 2E 3A 42 30 28 49  |+...A0(I)..:B0(I|
00000820: 29 B2 2E 3A 43 30 28 49  29 B2 2E 00 31 10 0C 03  |)..:C0(I)...1...|
00000830: 82 00 3D 10 16 03 81 49  B2 31 A4 4E 42 00 50 10  |..=....I.1.NB.P.|
00000840: 20 03 41 58 B2 2E 3A 41  59 B2 2E 3A 41 5A B2 2E  | .AX..:AY..:AZ..|
00000850: 00 5C 10 2A 03 81 4A B2  31 A4 4E 42 00 69 10 34  |.\.*..J.1.NB.i.4|
00000860: 03 8B 49 B2 4A A7 39 31  30 00 7A 10 3E 03 44 58  |..I.J.910.z.>.DX|
00000870: B2 58 28 4A 29 AB 58 28  49 29 00 8B 10 48 03 44  |.X(J).X(I)...H.D|
00000880: 59 B2 59 28 4A 29 AB 59  28 49 29 00 9C 10 52 03  |Y.Y(J).Y(I)...R.|
00000890: 44 5A B2 5A 28 4A 29 AB  5A 28 49 29 00 B7 10 5C  |DZ.Z(J).Z(I)...\|
000008A0: 03 52 B2 BA 28 44 58 AC  44 58 AA 44 59 AC 44 59  |.R..(DX.DX.DY.DY|
000008B0: AA 44 5A AC 44 5A 29 00  CA 10 66 03 52 33 B2 52  |.DZ.DZ)...f.R3.R|
000008C0: AC 52 AC 52 AD 47 4D 28  4A 29 00 DA 10 70 03 41  |.R.R.GM(J)...p.A|
000008D0: 58 B2 41 58 AA 44 58 AD  52 33 00 EA 10 7A 03 41  |X.AX.DX.R3...z.A|
000008E0: 59 B2 41 59 AA 44 59 AD  52 33 00 FA 10 84 03 41  |Y.AY.DY.R3.....A|
000008F0: 5A B2 41 5A AA 44 5A AD  52 33 00 00 11 8E 03 82  |Z.AZ.DZ.R3......|
00000900: 00 1D 11 98 03 58 31 28  49 29 B2 58 28 49 29 AB  |.....X1(I).X(I).|
00000910: 55 28 49 29 AC 44 54 AA  41 58 AC 44 32 00 3A 11  |U(I).DT.AX.D2.:.|
00000920: A2 03 59 31 28 49 29 B2  59 28 49 29 AB 56 28 49  |..Y1(I).Y(I).V(I|
00000930: 29 AC 44 54 AA 41 59 AC  44 32 00 57 11 AC 03 5A  |).DT.AY.D2.W...Z|
00000940: 31 28 49 29 B2 5A 28 49  29 AB 57 28 49 29 AC 44  |1(I).Z(I).W(I).D|
00000950: 54 AA 41 5A AC 44 32 00  5D 11 B6 03 82 00 69 11  |T.AZ.D2.].....i.|
00000960: C0 03 81 49 B2 31 A4 4E  42 00 7C 11 CA 03 41 58  |...I.1.NB.|...AX|
00000970: B2 2E 3A 41 59 B2 2E 3A  41 5A B2 2E 00 88 11 D4  |..:AY..:AZ......|
00000980: 03 81 4A B2 31 A4 4E 42  00 96 11 DE 03 8B 49 B2  |..J.1.NB......I.|
00000990: 4A A7 31 30 38 30 00 A9  11 E8 03 44 58 B2 58 31  |J.1080.....DX.X1|
000009A0: 28 4A 29 AB 58 31 28 49  29 00 BC 11 F2 03 44 59  |(J).X1(I).....DY|
000009B0: B2 59 31 28 4A 29 AB 59  31 28 49 29 00 CF 11 FC  |.Y1(J).Y1(I)....|
000009C0: 03 44 5A B2 5A 31 28 4A  29 AB 5A 31 28 49 29 00  |.DZ.Z1(J).Z1(I).|
000009D0: EA 11 06 04 52 B2 BA 28  44 58 AC 44 58 AA 44 59  |....R..(DX.DX.DY|
000009E0: AC 44 59 AA 44 5A AC 44  5A 29 00 FD 11 10 04 52  |.DY.DZ.DZ).....R|
000009F0: 33 B2 52 AC 52 AC 52 AD  47 4D 28 4A 29 00 0D 12  |3.R.R.R.GM(J)...|
00000A00: 1A 04 41 58 B2 41 58 AA  44 58 AD 52 33 00 1D 12  |..AX.AX.DX.R3...|
00000A10: 24 04 41 59 B2 41 59 AA  44 59 AD 52 33 00 2D 12  |$.AY.AY.DY.R3.-.|
00000A20: 2E 04 41 5A B2 41 5A AA  44 5A AD 52 33 00 33 12  |..AZ.AZ.DZ.R3.3.|
00000A30: 38 04 82 00 40 12 42 04  41 30 28 49 29 B2 41 58  |8...@.B.A0(I).AX|
00000A40: 00 4D 12 4C 04 42 30 28  49 29 B2 41 59 00 5A 12  |.M.L.B0(I).AY.Z.|
00000A50: 56 04 43 30 28 49 29 B2  41 5A 00 60 12 60 04 82  |V.C0(I).AZ.`.`..|
00000A60: 00 66 12 6A 04 3A 00 87  12 74 04 8F 20 43 41 4C  |.f.j.:...t.. CAL|
00000A70: 43 55 4C 41 54 45 20 4E  45 57 20 53 59 53 54 45  |CULATE NEW SYSTE|
00000A80: 4D 20 53 54 41 54 45 00  93 12 7E 04 81 49 B2 31  |M STATE...~..I.1|
00000A90: A4 4E 42 00 B5 12 88 04  41 31 B2 2E 3A 42 31 B2  |.NB.....A1..:B1.|
00000AA0: 2E 3A 43 31 B2 2E 3A 41  32 B2 2E 3A 42 32 B2 2E  |.:C1..:A2..:B2..|
00000AB0: 3A 43 32 B2 2E 00 C1 12  92 04 81 4A B2 31 A4 4E  |:C2........J.1.N|
00000AC0: 42 00 CF 12 9C 04 8B 49  B2 4A A7 31 32 37 30 00  |B......I.J.1270.|
00000AD0: E0 12 A6 04 44 58 B2 58  28 4A 29 AB 58 28 49 29  |....DX.X(J).X(I)|
00000AE0: 00 F1 12 B0 04 44 59 B2  59 28 4A 29 AB 59 28 49  |.....DY.Y(J).Y(I|
00000AF0: 29 00 02 13 BA 04 44 5A  B2 5A 28 4A 29 AB 5A 28  |).....DZ.Z(J).Z(|
00000B00: 49 29 00 1D 13 C4 04 52  B2 BA 28 44 58 AC 44 58  |I).....R..(DX.DX|
00000B10: AA 44 59 AC 44 59 AA 44  5A AC 44 5A 29 00 30 13  |.DY.DY.DZ.DZ).0.|
00000B20: CE 04 52 33 B2 52 AC 52  AC 52 AD 47 4D 28 4A 29  |..R3.R.R.R.GM(J)|
00000B30: 00 40 13 D8 04 41 31 B2  41 31 AA 44 58 AD 52 33  |.@...A1.A1.DX.R3|
00000B40: 00 50 13 E2 04 42 31 B2  42 31 AA 44 59 AD 52 33  |.P...B1.B1.DY.R3|
00000B50: 00 60 13 EC 04 43 31 B2  43 31 AA 44 5A AD 52 33  |.`...C1.C1.DZ.R3|
00000B60: 00 66 13 F6 04 82 00 7B  13 00 05 4A 30 B2 28 41  |.f.....{...J0.(A|
00000B70: 31 AB 41 30 28 49 29 29  AD 44 54 00 90 13 0A 05  |1.A0(I)).DT.....|
00000B80: 4B 30 B2 28 42 31 AB 42  30 28 49 29 29 AD 44 54  |K0.(B1.B0(I)).DT|
00000B90: 00 A5 13 14 05 4C 30 B2  28 43 31 AB 43 30 28 49  |.....L0.(C1.C0(I|
00000BA0: 29 29 AD 44 54 00 C5 13  1E 05 58 32 B2 58 28 49  |)).DT.....X2.X(I|
00000BB0: 29 AA 55 28 49 29 AC 44  54 AA 41 31 AC 44 32 AA  |).U(I).DT.A1.D2.|
00000BC0: 4A 30 AC 44 33 00 E5 13  28 05 59 32 B2 59 28 49  |J0.D3...(.Y2.Y(I|
00000BD0: 29 AA 56 28 49 29 AC 44  54 AA 42 31 AC 44 32 AA  |).V(I).DT.B1.D2.|
00000BE0: 4B 30 AC 44 33 00 05 14  32 05 5A 32 B2 5A 28 49  |K0.D3...2.Z2.Z(I|
00000BF0: 29 AA 57 28 49 29 AC 44  54 AA 43 31 AC 44 32 AA  |).W(I).DT.C1.D2.|
00000C00: 4C 30 AC 44 33 00 11 14  3C 05 81 4A B2 31 A4 4E  |L0.D3...<..J.1.N|
00000C10: 42 00 1F 14 46 05 8B 49  B2 4A A7 31 34 34 30 00  |B...F..I.J.1440.|
00000C20: 2E 14 50 05 44 58 B2 58  28 4A 29 AB 58 32 00 3D  |..P.DX.X(J).X2.=|
00000C30: 14 5A 05 44 59 B2 59 28  4A 29 AB 59 32 00 4C 14  |.Z.DY.Y(J).Y2.L.|
00000C40: 64 05 44 5A B2 5A 28 4A  29 AB 5A 32 00 67 14 6E  |d.DZ.Z(J).Z2.g.n|
00000C50: 05 52 B2 BA 28 44 58 AC  44 58 AA 44 59 AC 44 59  |.R..(DX.DX.DY.DY|
00000C60: AA 44 5A AC 44 5A 29 00  7A 14 78 05 52 33 B2 52  |.DZ.DZ).z.x.R3.R|
00000C70: AC 52 AC 52 AD 47 4D 28  4A 29 00 8A 14 82 05 41  |.R.R.GM(J).....A|
00000C80: 32 B2 41 32 AA 44 58 AD  52 33 00 9A 14 8C 05 42  |2.A2.DX.R3.....B|
00000C90: 32 B2 42 32 AA 44 59 AD  52 33 00 AA 14 96 05 43  |2.B2.DY.R3.....C|
00000CA0: 32 B2 43 32 AA 44 5A AD  52 33 00 B0 14 A0 05 82  |2.C2.DZ.R3......|
00000CB0: 00 C2 14 AA 05 4A 31 B2  28 41 32 AB 41 31 29 AD  |.....J1.(A2.A1).|
00000CC0: 44 54 00 D4 14 B4 05 4B  31 B2 28 42 32 AB 42 31  |DT.....K1.(B2.B1|
00000CD0: 29 AD 44 54 00 E6 14 BE  05 4C 31 B2 28 43 32 AB  |).DT.....L1.(C2.|
00000CE0: 43 31 29 AD 44 54 00 05  15 C8 05 4D 31 B2 28 41  |C1).DT.....M1.(A|
00000CF0: 32 AB 32 AC 41 31 AA 41  30 28 49 29 29 AD 28 44  |2.2.A1.A0(I)).(D|
00000D00: 54 AC 44 54 29 00 24 15  D2 05 4E 31 B2 28 42 32  |T.DT).$...N1.(B2|
00000D10: AB 32 AC 42 31 AA 42 30  28 49 29 29 AD 28 44 54  |.2.B1.B0(I)).(DT|
00000D20: AC 44 54 29 00 43 15 DC  05 4F 31 B2 28 43 32 AB  |.DT).C...O1.(C2.|
00000D30: 32 AC 43 31 AA 43 30 28  49 29 29 AD 28 44 54 AC  |2.C1.C0(I)).(DT.|
00000D40: 44 54 29 00 6C 15 E6 05  58 31 28 49 29 B2 58 28  |DT).l...X1(I).X(|
00000D50: 49 29 AA 55 28 49 29 AC  44 54 AA 41 31 AC 44 32  |I).U(I).DT.A1.D2|
00000D60: AA 4A 31 AC 44 33 AA 4D  31 AC 44 34 00 95 15 F0  |.J1.D3.M1.D4....|
00000D70: 05 59 31 28 49 29 B2 59  28 49 29 AA 56 28 49 29  |.Y1(I).Y(I).V(I)|
00000D80: AC 44 54 AA 42 31 AC 44  32 AA 4B 31 AC 44 33 AA  |.DT.B1.D2.K1.D3.|
00000D90: 4E 31 AC 44 34 00 BE 15  FA 05 5A 31 28 49 29 B2  |N1.D4.....Z1(I).|
00000DA0: 5A 28 49 29 AA 57 28 49  29 AC 44 54 AA 43 31 AC  |Z(I).W(I).DT.C1.|
00000DB0: 44 32 AA 4C 31 AC 44 33  AA 4F 31 AC 44 34 00 DF  |D2.L1.D3.O1.D4..|
00000DC0: 15 04 06 55 31 28 49 29  B2 55 28 49 29 AA 41 31  |...U1(I).U(I).A1|
00000DD0: AC 44 54 AA 4A 31 AC 44  32 AA 4D 31 AC 44 33 00  |.DT.J1.D2.M1.D3.|
00000DE0: 00 16 0E 06 56 31 28 49  29 B2 56 28 49 29 AA 42  |....V1(I).V(I).B|
00000DF0: 31 AC 44 54 AA 4B 31 AC  44 32 AA 4E 31 AC 44 33  |1.DT.K1.D2.N1.D3|
00000E00: 00 21 16 18 06 57 31 28  49 29 B2 57 28 49 29 AA  |.!...W1(I).W(I).|
00000E10: 43 31 AC 44 54 AA 4C 31  AC 44 32 AA 4F 31 AC 44  |C1.DT.L1.D2.O1.D|
00000E20: 33 00 2E 16 22 06 41 30  28 49 29 B2 41 31 00 3B  |3...".A0(I).A1.;|
00000E30: 16 2C 06 42 30 28 49 29  B2 42 31 00 48 16 36 06  |.,.B0(I).B1.H.6.|
00000E40: 43 30 28 49 29 B2 43 31  00 4E 16 40 06 82 00 54  |C0(I).C1.N.@...T|
00000E50: 16 4A 06 3A 00 60 16 54  06 81 49 B2 31 A4 4E 42  |.J.:.`.T..I.1.NB|
00000E60: 00 6F 16 5E 06 58 28 49  29 B2 58 31 28 49 29 00  |.o.^.X(I).X1(I).|
00000E70: 7E 16 68 06 59 28 49 29  B2 59 31 28 49 29 00 8D  |~.h.Y(I).Y1(I)..|
00000E80: 16 72 06 5A 28 49 29 B2  5A 31 28 49 29 00 9C 16  |.r.Z(I).Z1(I)...|
00000E90: 7C 06 55 28 49 29 B2 55  31 28 49 29 00 AB 16 86  ||.U(I).U1(I)....|
00000EA0: 06 56 28 49 29 B2 56 31  28 49 29 00 BA 16 90 06  |.V(I).V1(I).....|
00000EB0: 57 28 49 29 B2 57 31 28  49 29 00 DB 16 9A 06 58  |W(I).W1(I).....X|
00000EC0: B2 58 28 49 29 3A 8B 58  28 49 29 B3 2E B0 58 28  |.X(I):.X(I)...X(|
00000ED0: 49 29 B1 33 31 39 A7 31  37 32 30 00 FC 16 A4 06  |I).319.1720.....|
00000EE0: 59 B2 59 28 49 29 3A 8B  59 28 49 29 B3 2E B0 59  |Y.Y(I):.Y(I)...Y|
00000EF0: 28 49 29 B1 31 39 39 A7  31 37 32 30 00 06 17 AE  |(I).199.1720....|
00000F00: 06 8D 32 37 31 30 00 0C  17 B8 06 82 00 17 17 C2  |..2710..........|
00000F10: 06 54 B2 54 AA 44 54 00  2B 17 CC 06 8B 20 53 50  |.T.T.DT.+.... SP|
00000F20: 20 A7 20 99 C7 28 31 39  29 3B 54 00 3F 17 D6 06  | . ..(19);T.?...|
00000F30: A1 41 24 3A 8B 41 24 B2  22 22 A7 31 31 35 30 00  |.A$:.A$."".1150.|
00000F40: 45 17 E0 06 3A 00 64 17  EA 06 8F 20 52 45 53 54  |E...:.d.... REST|
00000F50: 4F 52 45 20 43 48 41 52  41 43 54 45 52 20 53 43  |ORE CHARACTER SC|
00000F60: 52 45 45 4E 00 7C 17 F4  06 97 35 33 32 36 35 2C  |REEN.|....53265,|
00000F70: C2 28 35 33 32 36 35 29  AF 32 32 33 00 93 17 FE  |.(53265).223....|
00000F80: 06 97 20 35 36 35 37 38  2C C2 28 35 36 35 37 38  |.. 56578,.(56578|
00000F90: 29 B0 33 00 B0 17 08 07  97 20 35 36 35 37 36 2C  |).3...... 56576,|
00000FA0: 28 C2 28 35 36 35 37 36  29 AF 32 35 32 29 B0 33  |(.(56576).252).3|
00000FB0: 00 CD 17 12 07 97 20 35  33 32 37 32 2C 28 C2 28  |...... 53272,(.(|
00000FC0: 35 33 32 37 32 29 AF 31  35 29 B0 31 36 00 EE 17  |53272).15).16...|
00000FD0: 1C 07 97 20 56 49 AA 32  31 2C 30 3A 8F 20 54 55  |... VI.21,0:. TU|
00000FE0: 52 4E 20 4F 46 46 20 53  50 52 49 54 45 53 00 FC  |RN OFF SPRITES..|
00000FF0: 17 26 07 97 20 35 33 32  38 31 2C 30 00 13 18 30  |.&.. 53281,0...0|
00001000: 07 8B 20 41 24 B2 C7 28  31 33 33 29 20 A7 20 31  |.. A$..(133) . 1|
00001010: 38 36 30 00 1D 18 3A 07  89 20 33 37 30 00 54 18  |860...:.. 370.T.|
00001020: 44 07 99 20 C7 28 31 37  29 3B 22 D3 54 4F 52 49  |D.. .(17);".TORI|
00001030: 4E 47 20 50 52 45 53 45  4E 54 20 53 59 53 54 45  |NG PRESENT SYSTE|
00001040: 4D 20 49 4E 20 4D 45 4D  4F 52 59 2E 22 3A 8D 20  |M IN MEMORY.":. |
00001050: 33 31 36 30 00 63 18 4E  07 81 20 49 B2 31 20 A4  |3160.c.N.. I.1 .|
00001060: 20 4E 42 00 72 18 58 07  58 30 28 49 29 B2 58 28  | NB.r.X.X0(I).X(|
00001070: 49 29 00 81 18 62 07 59  30 28 49 29 B2 59 28 49  |I)...b.Y0(I).Y(I|
00001080: 29 00 90 18 6C 07 5A 30  28 49 29 B2 5A 28 49 29  |)...l.Z0(I).Z(I)|
00001090: 00 9F 18 76 07 55 30 28  49 29 B2 55 28 49 29 00  |...v.U0(I).U(I).|
000010A0: AE 18 80 07 56 30 28 49  29 B2 56 28 49 29 00 BD  |....V0(I).V(I)..|
000010B0: 18 8A 07 57 30 28 49 29  B2 57 28 49 29 00 C5 18  |...W0(I).W(I)...|
000010C0: 94 07 82 20 49 00 CF 18  9E 07 89 20 33 37 30 00  |... I...... 370.|
000010D0: D5 18 A8 07 3A 00 F4 18  B2 07 8F 20 47 45 54 20  |....:...... GET |
000010E0: 4E 45 57 20 53 59 53 54  45 4D 20 46 52 4F 4D 20  |NEW SYSTEM FROM |
000010F0: 55 53 45 52 00 0F 19 BC  07 85 22 CE 55 4D 42 45  |USER......".UMBE|
00001100: 52 20 4F 46 20 42 4F 44  49 45 53 22 3B 4E 42 00  |R OF BODIES";NB.|
00001110: 23 19 C6 07 8B 4E 42 B3  31 B0 4E 42 B1 35 30 A7  |#....NB.1.NB.50.|
00001120: 33 37 30 00 32 19 D0 07  81 20 49 B2 31 20 A4 20  |370.2.... I.1 . |
00001130: 4E 42 00 42 19 DA 07 43  42 B2 49 3A 8D 20 32 34  |NB.B...CB.I:. 24|
00001140: 36 30 00 5F 19 E4 07 99  22 CE 41 4D 45 20 4F 46  |60._....".AME OF|
00001150: 20 42 4F 44 59 22 49 3B  3A 85 4E 24 28 49 29 00  | BODY"I;:.N$(I).|
00001160: 75 19 EE 07 8B C3 28 4E  24 28 49 29 29 B1 32 35  |u.....(N$(I)).25|
00001170: A7 32 30 32 30 00 8B 19  F8 07 99 22 CD 41 53 53  |.2020......".ASS|
00001180: 20 4F 46 20 42 4F 44 59  22 49 3B 00 AA 19 02 08  | OF BODY"I;.....|
00001190: 85 20 4D 28 49 29 3A 47  4D 28 49 29 B2 47 AC 4D  |. M(I):GM(I).G.M|
000011A0: 28 49 29 AC 55 4E 28 53  59 29 00 E0 19 0C 08 85  |(I).UN(SY)......|
000011B0: 22 C9 4E 50 55 54 20 4C  4F 43 41 54 49 4F 4E 20  |".NPUT LOCATION |
000011C0: 49 4E 20 58 2C 59 2C 5A  20 46 4F 52 4D 22 3B 58  |IN X,Y,Z FORM";X|
000011D0: 30 28 49 29 2C 59 30 28  49 29 2C 5A 30 28 49 29  |0(I),Y0(I),Z0(I)|
000011E0: 00 16 1A 16 08 85 22 C9  4E 50 55 54 20 56 45 4C  |......".NPUT VEL|
000011F0: 4F 43 49 54 59 20 49 4E  20 55 2C 56 2C 57 20 46  |OCITY IN U,V,W F|
00001200: 4F 52 4D 22 3B 55 30 28  49 29 2C 56 30 28 49 29  |ORM";U0(I),V0(I)|
00001210: 2C 57 30 28 49 29 00 1E  1A 20 08 82 20 49 00 28  |,W0(I)... .. I.(|
00001220: 1A 2A 08 89 20 33 37 30  00 2E 1A 34 08 3A 00 56  |.*.. 370...4.:.V|
00001230: 1A 3E 08 8F 20 4C 4F 41  44 20 53 59 53 54 45 4D  |.>.. LOAD SYSTEM|
00001240: 20 44 45 53 43 52 49 50  54 49 4F 4E 20 46 52 4F  | DESCRIPTION FRO|
00001250: 4D 20 44 49 53 4B 00 7A  1A 48 08 99 20 22 CC 4F  |M DISK.z.H.. ".O|
00001260: 41 44 20 53 59 53 54 45  4D 20 44 41 54 41 20 46  |AD SYSTEM DATA F|
00001270: 52 4F 4D 20 44 49 53 4B  2E 22 00 9B 1A 52 08 85  |ROM DISK."...R..|
00001280: 22 D4 59 50 45 20 4E 41  4D 45 20 4F 46 20 44 41  |".YPE NAME OF DA|
00001290: 54 41 20 46 49 4C 45 22  3B 41 24 00 C0 1A 5C 08  |TA FILE";A$...\.|
000012A0: 8B 20 C3 28 41 24 29 B1  31 33 20 A7 20 99 22 D4  |. .(A$).13 . .".|
000012B0: 4F 4F 20 4C 4F 4E 47 2E  22 3A 89 20 32 31 33 30  |OO LONG.":. 2130|
000012C0: 00 EA 1A 66 08 9F 20 31  35 2C 44 56 2C 31 35 3A  |...f.. 15,DV,15:|
000012D0: 9F 20 32 2C 44 56 2C 32  2C 22 30 3A 22 AA 41 24  |. 2,DV,2,"0:".A$|
000012E0: AA 22 2E 4E 42 2C 53 2C  52 22 00 F5 1A 70 08 8D  |.".NB,S,R"...p..|
000012F0: 20 33 31 37 30 00 2F 1B  7A 08 8B 20 45 52 B3 B1  | 3170./.z.. ER..|
00001300: 30 20 A7 20 99 20 45 52  24 28 31 29 3B 45 52 24  |0 . . ER$(1);ER$|
00001310: 28 32 29 3B 45 52 24 28  33 29 3B 45 52 24 28 34  |(2);ER$(3);ER$(4|
00001320: 29 3A 8D 20 33 31 36 30  3A 89 20 32 32 33 30 00  |):. 3160:. 2230.|
00001330: 3C 1B 84 08 84 32 2C 53  59 2C 4E 42 00 48 1B 8E  |<....2,SY,NB.H..|
00001340: 08 81 49 B2 31 A4 4E 42  00 7E 1B 98 08 84 32 2C  |..I.1.NB.~....2,|
00001350: 4E 24 28 49 29 2C 58 30  28 49 29 2C 59 30 28 49  |N$(I),X0(I),Y0(I|
00001360: 29 2C 5A 30 28 49 29 2C  55 30 28 49 29 2C 56 30  |),Z0(I),U0(I),V0|
00001370: 28 49 29 2C 57 30 28 49  29 2C 4D 28 49 29 00 96  |(I),W0(I),M(I)..|
00001380: 1B A2 08 47 4D 28 49 29  B2 47 AC 4D 28 49 29 AC  |...GM(I).G.M(I).|
00001390: 55 4E 28 53 59 29 00 9C  1B AC 08 82 00 AE 1B B6  |UN(SY)..........|
000013A0: 08 A0 20 32 3A A0 20 31  35 3A 43 42 B2 31 00 B8  |.. 2:. 15:CB.1..|
000013B0: 1B C0 08 89 20 33 37 30  00 DA 1B CA 08 8F 20 53  |.... 370...... S|
000013C0: 41 56 45 20 43 55 52 52  45 4E 54 20 53 59 53 54  |AVE CURRENT SYST|
000013D0: 45 4D 20 54 4F 20 44 49  53 4B 00 F7 1B D4 08 99  |EM TO DISK......|
000013E0: 20 22 D3 41 56 45 20 43  55 52 52 45 4E 54 20 53  | ".AVE CURRENT S|
000013F0: 59 53 54 45 4D 2E 22 00  13 1C DE 08 85 22 D4 59  |YSTEM."......".Y|
00001400: 50 45 20 4E 41 4D 45 20  4F 46 20 46 49 4C 45 22  |PE NAME OF FILE"|
00001410: 3B 41 24 00 3D 1C E8 08  8B 20 C3 28 41 24 29 B1  |;A$.=.... .(A$).|
00001420: 31 33 20 A7 20 99 22 CE  41 4D 45 20 54 4F 4F 20  |13 . .".AME TOO |
00001430: 4C 4F 4E 47 2E 22 3A 89  20 32 32 35 30 00 55 1C  |LONG.":. 2250.U.|
00001440: F2 08 9F 20 31 35 2C 44  56 2C 31 35 3A 43 24 B2  |... 15,DV,15:C$.|
00001450: C7 28 31 33 29 00 74 1C  FC 08 9F 20 32 2C 44 56  |.(13).t.... 2,DV|
00001460: 2C 32 2C 22 30 3A 22 AA  41 24 AA 22 2E 4E 42 2C  |,2,"0:".A$.".NB,|
00001470: 53 2C 57 22 00 7F 1C 06  09 8D 20 33 31 37 30 00  |S,W"...... 3170.|
00001480: B9 1C 10 09 8B 20 45 52  B3 B1 30 20 A7 20 99 20  |..... ER..0 . . |
00001490: 45 52 24 28 31 29 3B 45  52 24 28 32 29 3B 45 52  |ER$(1);ER$(2);ER|
000014A0: 24 28 33 29 3B 45 52 24  28 34 29 3A 8D 20 33 31  |$(3);ER$(4):. 31|
000014B0: 36 30 3A 89 20 32 32 33  30 00 C9 1C 1A 09 98 32  |60:. 2230......2|
000014C0: 2C 53 59 3B 43 24 3B 4E  42 00 D5 1C 24 09 81 49  |,SY;C$;NB...$..I|
000014D0: B2 31 A4 4E 42 00 20 1D  2E 09 98 32 2C 4E 24 28  |.1.NB. ....2,N$(|
000014E0: 49 29 3B 43 24 3B 58 30  28 49 29 3B 43 24 3B 59  |I);C$;X0(I);C$;Y|
000014F0: 30 28 49 29 3B 43 24 3B  5A 30 28 49 29 3B 43 24  |0(I);C$;Z0(I);C$|
00001500: 3B 55 30 28 49 29 3B 43  24 3B 56 30 28 49 29 3B  |;U0(I);C$;V0(I);|
00001510: 43 24 3B 57 30 28 49 29  3B 43 24 3B 4D 28 49 29  |C$;W0(I);C$;M(I)|
00001520: 00 26 1D 38 09 82 00 39  1D 42 09 A0 20 32 3A A0  |.&.8...9.B.. 2:.|
00001530: 20 31 35 3A 89 20 33 37  30 00 62 1D 4C 09 4D 28  | 15:. 370.b.L.M(|
00001540: 43 42 29 B2 4E 56 3A 47  4D 28 43 42 29 B2 47 AC  |CB).NV:GM(CB).G.|
00001550: 4D 28 43 42 29 AC 55 4E  28 53 59 29 3A 89 20 33  |M(CB).UN(SY):. 3|
00001560: 37 30 00 76 1D 56 09 58  30 28 43 42 29 B2 4E 56  |70.v.V.X0(CB).NV|
00001570: 3A 89 20 33 37 30 00 8A  1D 60 09 59 30 28 43 42  |:. 370...`.Y0(CB|
00001580: 29 B2 4E 56 3A 89 20 33  37 30 00 9E 1D 6A 09 5A  |).NV:. 370...j.Z|
00001590: 30 28 43 42 29 B2 4E 56  3A 89 20 33 37 30 00 B2  |0(CB).NV:. 370..|
000015A0: 1D 74 09 55 30 28 43 42  29 B2 4E 56 3A 89 20 33  |.t.U0(CB).NV:. 3|
000015B0: 37 30 00 C6 1D 7E 09 56  30 28 43 42 29 B2 4E 56  |70...~.V0(CB).NV|
000015C0: 3A 89 20 33 37 30 00 DA  1D 88 09 57 30 28 43 42  |:. 370.....W0(CB|
000015D0: 29 B2 4E 56 3A 89 20 33  37 30 00 0B 1E 92 09 44  |).NV:. 370.....D|
000015E0: 54 B2 4E 56 3A 44 32 B2  44 54 AC 44 54 AD 32 3A  |T.NV:D2.DT.DT.2:|
000015F0: 44 33 B2 44 32 AC 44 54  AD 33 3A 44 34 B2 44 33  |D3.D2.DT.3:D4.D3|
00001600: AC 44 54 AD 34 3A 89 20  33 37 30 00 2F 1E 9C 09  |.DT.4:. 370./...|
00001610: 8F 20 44 49 53 50 4C 41  59 20 43 55 52 52 45 4E  |. DISPLAY CURREN|
00001620: 54 20 53 59 53 54 45 4D  20 56 41 4C 55 45 53 00  |T SYSTEM VALUES.|
00001630: 59 1E A6 09 99 C7 28 31  34 37 29 22 20 20 20 20  |Y.....(147)"    |
00001640: 20 20 20 20 20 20 20 20  CE 2D C2 CF C4 D9 20 D3  |        .-.... .|
00001650: C9 CD D5 CC C1 D4 CF D2  22 00 70 1E B0 09 99 C7  |........".p.....|
00001660: 28 31 37 36 29 3B 4C 24  3B C7 28 31 37 34 29 3B  |(176);L$;.(174);|
00001670: 00 7F 1E BA 09 4C 31 24  B2 C7 28 32 32 31 29 00  |.....L1$..(221).|
00001680: A1 1E C4 09 99 4C 31 24  22 20 4E 41 4D 45 3A 20  |.....L1$" NAME: |
00001690: 22 4E 24 28 43 42 29 3B  A3 37 39 29 3B 4C 31 24  |"N$(CB);.79);L1$|
000016A0: 3B 00 CF 1E CE 09 99 4C  31 24 22 20 42 4F 44 59  |;......L1$" BODY|
000016B0: 20 23 22 43 42 3B A3 31  37 29 22 4D 41 53 53 3A  | #"CB;.17)"MASS:|
000016C0: 22 4D 28 43 42 29 3B A3  33 39 29 4C 31 24 3B 00  |"M(CB);.39)L1$;.|
000016D0: FC 1E D8 09 99 4C 31 24  22 20 58 3A 22 58 30 28  |.....L1$" X:"X0(|
000016E0: 43 42 29 3B A3 36 30 29  22 55 3A 22 55 30 28 43  |CB);.60)"U:"U0(C|
000016F0: 42 29 3B A3 37 39 29 3B  4C 31 24 3B 00 29 1F E2  |B);.79);L1$;.)..|
00001700: 09 99 4C 31 24 22 20 59  3A 22 59 30 28 43 42 29  |..L1$" Y:"Y0(CB)|
00001710: 3B A3 32 30 29 22 56 3A  22 56 30 28 43 42 29 3B  |;.20)"V:"V0(CB);|
00001720: A3 33 39 29 3B 4C 31 24  3B 00 56 1F EC 09 99 4C  |.39);L1$;.V....L|
00001730: 31 24 22 20 5A 3A 22 5A  30 28 43 42 29 3B A3 36  |1$" Z:"Z0(CB);.6|
00001740: 30 29 22 57 3A 22 57 30  28 43 42 29 3B A3 37 39  |0)"W:"W0(CB);.79|
00001750: 29 3B 4C 31 24 3B 00 6C  1F F6 09 99 C7 28 31 37  |);L1$;.l.....(17|
00001760: 33 29 3B 4C 24 3B C7 28  31 38 39 29 00 88 1F 00  |3);L$;.(189)....|
00001770: 0A 99 20 22 4E 55 4D 42  45 52 20 4F 46 20 42 4F  |.. "NUMBER OF BO|
00001780: 44 49 45 53 3A 22 4E 42  00 A9 1F 0A 0A 99 20 22  |DIES:"NB...... "|
00001790: 54 49 4D 45 20 49 4E 54  45 52 56 41 4C 3A 22 44  |TIME INTERVAL:"D|
000017A0: 54 3B 54 55 24 28 53 59  29 00 C6 1F 14 0A 99 20  |T;TU$(SY)...... |
000017B0: 22 55 4E 49 54 20 53 59  53 54 45 4D 3A 20 22 55  |"UNIT SYSTEM: "U|
000017C0: 4E 24 28 53 59 29 00 E9  1F 1E 0A 8B 20 53 50 20  |N$(SY)...... SP |
000017D0: A7 20 99 20 22 53 50 52  49 54 45 20 4D 4F 44 45  |. . "SPRITE MODE|
000017E0: 22 3B C7 28 31 37 29 3A  8E 00 0A 20 28 0A 99 20  |";.(17):... (.. |
000017F0: 22 48 49 52 45 53 20 50  4F 49 4E 54 20 4D 4F 44  |"HIRES POINT MOD|
00001800: 45 22 3B C7 28 31 37 29  3A 8E 00 10 20 32 0A 3A  |E";.(17):... 2.:|
00001810: 00 23 20 3C 0A 8F 20 44  49 53 50 4C 41 59 20 4D  |.# <.. DISPLAY M|
00001820: 45 4E 55 00 52 20 46 0A  99 20 22 12 45 92 58 49  |ENU.R F.. ".E.XI|
00001830: 54 20 20 20 20 20 20 20  12 50 92 4C 4F 54 20 20  |T       .P.LOT  |
00001840: 20 20 20 20 20 12 4E 92  45 57 20 53 59 53 54 45  |     .N.EW SYSTE|
00001850: 4D 22 00 84 20 50 0A 99  20 22 53 12 43 92 41 4C  |M".. P.. "S.C.AL|
00001860: 45 20 20 20 20 20 20 12  44 92 49 53 50 4C 41 59  |E      .D.ISPLAY|
00001870: 20 20 20 20 12 4C 92 4F  41 44 20 12 C4 92 52 49  |    .L.OAD ...RI|
00001880: 56 45 23 22 00 B9 20 5A  0A 99 20 22 12 53 92 41  |VE#".. Z.. ".S.A|
00001890: 56 45 20 20 20 20 20 20  20 12 46 31 92 20 50 52  |VE       .F1. PR|
000018A0: 45 56 20 42 4F 44 59 20  20 20 12 46 37 92 20 4E  |EV BODY   .F7. N|
000018B0: 45 58 54 20 42 4F 44 59  22 00 E8 20 64 0A 99 20  |EXT BODY".. d.. |
000018C0: 22 12 58 92 20 50 4F 53  49 54 49 4F 4E 20 12 59  |".X. POSITION .Y|
000018D0: 92 20 50 4F 53 49 54 49  4F 4E 20 12 5A 92 20 50  |. POSITION .Z. P|
000018E0: 4F 53 49 54 49 4F 4E 22  00 17 21 6E 0A 99 20 22  |OSITION"..!n.. "|
000018F0: 12 55 92 20 56 45 4C 4F  43 49 54 59 20 12 56 92  |.U. VELOCITY .V.|
00001900: 20 56 45 4C 4F 43 49 54  59 20 12 57 92 20 56 45  | VELOCITY .W. VE|
00001910: 4C 4F 43 49 54 59 22 00  42 21 78 0A 99 20 22 12  |LOCITY".B!x.. ".|
00001920: 4D 92 41 53 53 20 20 20  20 20 20 20 12 54 92 49  |M.ASS       .T.I|
00001930: 4D 45 20 20 20 20 20 20  20 12 52 92 45 4E 41 4D  |ME       .R.ENAM|
00001940: 45 22 00 48 21 82 0A 8E  00 69 21 8C 0A 8F 20 50  |E".H!....i!... P|
00001950: 4C 4F 54 20 50 4F 49 4E  54 20 4F 4E 20 48 49 52  |LOT POINT ON HIR|
00001960: 45 53 20 53 43 52 45 45  4E 00 7B 21 96 0A 8B 20  |ES SCREEN.{!... |
00001970: 53 50 B2 31 20 A7 20 32  37 35 30 00 9D 21 A0 0A  |SP.1 . 2750..!..|
00001980: 4D 4C B2 48 52 AA 28 59  AF 43 38 29 AC 43 46 AA  |ML.HR.(Y.C8).CF.|
00001990: 28 59 AF 43 37 29 AA 28  58 AF 43 34 29 00 B5 21  |(Y.C7).(X.C4)..!|
000019A0: AA 0A 97 20 4D 4C 2C C2  28 4D 4C 29 B0 45 58 28  |... ML,.(ML).EX(|
000019B0: 58 AF 43 37 29 00 BB 21  B4 0A 8E 00 C9 21 BE 0A  |X.C7)..!.....!..|
000019C0: 8B 20 49 B1 38 20 A7 20  8E 00 DB 21 C8 0A 58 B2  |. I.8 . ...!..X.|
000019D0: 58 AA 32 34 3A 59 B2 59  AA 35 30 00 F1 21 D2 0A  |X.24:Y.Y.50..!..|
000019E0: 97 20 56 49 AA 28 49 AB  31 29 AC 32 2C 58 AF 43  |. VI.(I.1).2,X.C|
000019F0: 35 00 02 22 DC 0A 97 20  56 49 AA 49 AC 32 AB 31  |5.."... VI.I.2.1|
00001A00: 2C 59 00 1E 22 E6 0A 8B  58 B1 43 35 A7 97 48 49  |,Y.."...X.C5..HI|
00001A10: 2C C2 28 48 49 29 B0 45  32 28 49 AB 31 29 00 40  |,.(HI).E2(I.1).@|
00001A20: 22 F0 0A 8B 58 B3 32 35  36 A7 97 48 49 2C C2 28  |"...X.256..HI,.(|
00001A30: 48 49 29 AF 28 43 35 AB  45 32 28 49 AB 31 29 29  |HI).(C5.E2(I.1))|
00001A40: 00 46 22 FA 0A 8E 00 69  22 04 0B 8F 20 4D 4C 20  |.F"....i"... ML |
00001A50: 43 4F 44 45 20 46 4F 52  20 48 49 47 48 20 53 50  |CODE FOR HIGH SP|
00001A60: 45 45 44 20 45 52 41 53  45 00 75 22 0E 0B 49 B2  |EED ERASE.u"..I.|
00001A70: 34 39 31 35 32 00 87 22  18 0B 87 4D 43 3A 8B 4D  |49152.."...MC:.M|
00001A80: 43 B2 32 35 36 A7 8E 00  9D 22 22 0B 97 49 2C 4D  |C.256....""..I,M|
00001A90: 43 3A 49 B2 49 AA 31 3A  89 32 38 34 30 00 C3 22  |C:I.I.1:.2840.."|
00001AA0: 2C 0B 83 31 37 33 2C 35  32 2C 33 2C 20 31 33 33  |,..173,52,3, 133|
00001AB0: 2C 32 2C 20 31 37 33 2C  35 33 2C 33 2C 20 31 33  |,2, 173,53,3, 13|
00001AC0: 33 2C 33 00 DE 22 36 0B  83 31 36 35 2C 32 35 31  |3,3.."6..165,251|
00001AD0: 2C 20 31 36 30 2C 30 2C  20 31 36 36 2C 33 00 12  |, 160,0, 166,3..|
00001AE0: 23 40 0B 83 31 34 35 2C  32 2C 20 32 33 36 2C 35  |#@..145,2, 236,5|
00001AF0: 35 2C 33 2C 20 32 30 38  2C 37 2C 20 31 36 36 2C  |5,3, 208,7, 166,|
00001B00: 32 2C 20 32 33 36 2C 35  34 2C 33 2C 20 32 34 30  |2, 236,54,3, 240|
00001B10: 2C 39 00 42 23 4A 0B 83  32 33 30 2C 32 2C 20 32  |,9.B#J..230,2, 2|
00001B20: 30 38 2C 32 33 36 2C 20  32 33 30 2C 33 2C 20 37  |08,236, 230,3, 7|
00001B30: 36 2C 31 34 2C 31 39 32  2C 20 39 36 2C 20 20 32  |6,14,192, 96,  2|
00001B40: 35 36 00 6B 23 54 0B 99  20 C7 28 31 34 37 29 3B  |56.k#T.. .(147);|
00001B50: 22 D3 45 4C 45 43 54 20  41 20 53 59 53 54 45 4D  |".ELECT A SYSTEM|
00001B60: 20 4F 46 20 55 4E 49 54  53 2E 22 00 96 23 5E 0B  | OF UNITS."..#^.|
00001B70: 99 20 C7 28 31 37 29 3B  22 31 2E 20 31 20 50 49  |. .(17);"1. 1 PI|
00001B80: 58 45 4C 20 3D 20 31 30  5E 37 20 4B 49 4C 4F 4D  |XEL = 10^7 KILOM|
00001B90: 45 54 45 52 53 22 00 B9  23 68 0B 99 20 22 20 20  |ETERS"..#h.. "  |
00001BA0: 20 31 20 4D 41 53 53 20  3D 20 31 30 30 30 20 4B  | 1 MASS = 1000 K|
00001BB0: 49 4C 4F 47 52 41 4D 53  22 00 D3 23 72 0B 99 20  |ILOGRAMS"..#r.. |
00001BC0: 22 20 20 20 31 20 54 49  4D 45 20 3D 20 31 20 44  |"   1 TIME = 1 D|
00001BD0: 41 59 22 00 02 24 7C 0B  99 20 C7 28 31 37 29 3B  |AY"..$|.. .(17);|
00001BE0: 22 32 2E 20 31 20 50 49  58 45 4C 20 3D 20 31 20  |"2. 1 PIXEL = 1 |
00001BF0: C1 D5 20 28 45 41 52 54  48 20 52 41 44 49 55 53  |.. (EARTH RADIUS|
00001C00: 29 22 00 23 24 86 0B 99  20 22 20 20 20 31 20 4D  |)".#$... "   1 M|
00001C10: 41 53 53 20 3D 20 31 20  45 41 52 54 48 20 4D 41  |ASS = 1 EARTH MA|
00001C20: 53 53 22 00 3D 24 90 0B  99 20 22 20 20 20 31 20  |SS".=$... "   1 |
00001C30: 54 49 4D 45 20 3D 20 31  20 44 41 59 22 00 68 24  |TIME = 1 DAY".h$|
00001C40: 9A 0B 99 20 C7 28 31 37  29 3B 22 33 2E 20 31 20  |... .(17);"3. 1 |
00001C50: 50 49 58 45 4C 20 3D 20  31 30 30 30 20 4B 49 4C  |PIXEL = 1000 KIL|
00001C60: 4F 4D 45 54 45 52 53 22  00 87 24 A4 0B 99 20 22  |OMETERS"..$... "|
00001C70: 20 20 20 31 20 4D 41 53  53 20 3D 20 31 20 4B 49  |   1 MASS = 1 KI|
00001C80: 4C 4F 47 52 41 4D 22 00  A4 24 AE 0B 99 20 22 20  |LOGRAM"..$... " |
00001C90: 20 20 31 20 54 49 4D 45  20 3D 20 31 20 53 45 43  |  1 TIME = 1 SEC|
00001CA0: 4F 4E 44 22 00 BE 24 B8  0B 99 3A 20 85 22 D7 48  |OND"..$...: .".H|
00001CB0: 49 43 48 20 53 59 53 54  45 4D 22 3B 53 59 00 D2  |ICH SYSTEM";SY..|
00001CC0: 24 C2 0B 8B 20 53 59 B3  31 B0 53 59 B1 33 A7 33  |$... SY.1.SY.3.3|
00001CD0: 37 30 00 DE 24 CC 0B 81  49 B2 31 A4 4E 42 00 F6  |70..$...I.1.NB..|
00001CE0: 24 D6 0B 47 4D 28 49 29  B2 47 AC 4D 28 49 29 AC  |$..GM(I).G.M(I).|
00001CF0: 55 4E 28 53 59 29 00 FC  24 E0 0B 82 00 06 25 EA  |UN(SY)..$.....%.|
00001D00: 0B 89 20 33 37 30 00 0C  25 F4 0B 3A 00 26 25 FE  |.. 370..%..:.&%.|
00001D10: 0B 8F 20 53 57 49 54 43  48 20 50 4C 4F 54 20 53  |.. SWITCH PLOT S|
00001D20: 59 53 54 45 4D 53 00 3E  25 08 0C 8B 20 53 50 B2  |YSTEMS.>%... SP.|
00001D30: 31 20 A7 20 53 50 B2 30  3A 89 20 33 37 30 00 47  |1 . SP.0:. 370.G|
00001D40: 25 12 0C 53 50 B2 31 00  80 25 1C 0C 81 49 B2 31  |%..SP.1..%...I.1|
00001D50: 35 38 37 32 A4 31 35 38  37 32 AA 38 AC 36 34 3A  |5872.15872.8.64:|
00001D60: 97 49 2C 2E 3A 82 3A 8F  20 42 4C 41 4E 4B 20 4F  |.I,.:.:. BLANK O|
00001D70: 55 54 20 53 50 52 49 54  45 20 49 4D 41 47 45 53  |UT SPRITE IMAGES|
00001D80: 00 BE 25 26 0C 81 49 B2  30 A4 37 3A 97 31 35 38  |..%&..I.0.7:.158|
00001D90: 37 32 AA 49 AC 36 34 2C  32 32 34 3A 97 31 35 38  |72.I.64,224:.158|
00001DA0: 37 35 AA 49 AC 36 34 2C  32 32 34 3A 82 3A 8F 20  |75.I.64,224:.:. |
00001DB0: 46 4F 52 4D 20 44 4F 54  20 53 48 41 50 45 00 EF  |FORM DOT SHAPE..|
00001DC0: 25 30 0C 81 49 B2 30 A4  37 3A 97 32 30 34 30 AA  |%0..I.0.7:.2040.|
00001DD0: 49 2C 32 34 38 AA 49 3A  82 3A 8F 20 53 45 54 20  |I,248.I:.:. SET |
00001DE0: 53 50 52 49 54 45 20 50  4F 49 4E 54 45 52 53 00  |SPRITE POINTERS.|
00001DF0: 1D 26 3A 0C 81 49 B2 30  A4 37 3A 97 56 49 AA 33  |.&:..I.0.7:.VI.3|
00001E00: 39 AA 49 2C 49 AA 31 3A  82 3A 8F 20 53 45 54 20  |9.I,I.1:.:. SET |
00001E10: 53 50 52 49 54 45 20 43  4F 4C 4F 52 53 00 4C 26  |SPRITE COLORS.L&|
00001E20: 44 0C 97 20 56 49 AA 32  39 2C 30 20 20 3A 97 20  |D.. VI.29,0  :. |
00001E30: 56 49 AA 32 33 2C 30 20  20 3A 8F 20 43 4F 4D 50  |VI.23,0  :. COMP|
00001E40: 52 45 53 53 20 53 50 52  49 54 45 53 00 56 26 4E  |RESS SPRITES.V&N|
00001E50: 0C 89 20 33 37 30 00 69  26 58 0C 81 44 45 B2 31  |.. 370.i&X..DE.1|
00001E60: A4 31 35 30 30 3A 82 3A  8E 00 8D 26 62 0C 84 31  |.1500:.:...&b..1|
00001E70: 35 2C 45 52 24 28 31 29  2C 45 52 24 28 32 29 2C  |5,ER$(1),ER$(2),|
00001E80: 45 52 24 28 33 29 2C 45  52 24 28 34 29 00 A0 26  |ER$(3),ER$(4)..&|
00001E90: 6C 0C 45 52 B2 C5 28 45  52 24 28 31 29 29 3A 8E  |l.ER..(ER$(1)):.|
00001EA0: 00 BB 26 76 0C 43 42 B2  43 42 AB 31 3A 8B 20 43  |..&v.CB.CB.1:. C|
00001EB0: 42 B3 31 20 A7 20 43 42  B2 4E 42 00 E6 26 80 0C  |B.1 . CB.NB..&..|
00001EC0: 99 C7 28 31 39 29 C7 28  31 37 29 C7 28 31 37 29  |..(19).(17).(17)|
00001ED0: 3B 42 24 3B 42 24 3B 42  24 3B 42 24 3B 42 24 3A  |;B$;B$;B$;B$;B$:|
00001EE0: 99 C7 28 31 39 29 00 F1  26 8A 0C 8D 20 32 34 38  |..(19)..&... 248|
00001EF0: 30 00 14 27 94 0C 81 49  B2 31 A4 36 3A 99 C7 28  |0..'...I.1.6:..(|
00001F00: 31 37 29 3B 3A 82 49 3A  99 C7 28 32 39 29 3B 3A  |17);:.I:..(29);:|
00001F10: 89 34 31 30 00 2F 27 9E  0C 43 42 B2 43 42 AA 31  |.410./'..CB.CB.1|
00001F20: 3A 8B 20 43 42 B1 4E 42  20 A7 20 43 42 B2 31 00  |:. CB.NB . CB.1.|
00001F30: 3A 27 A8 0C 89 20 33 32  30 30 00 52 27 B2 0C 97  |:'... 3200.R'...|
00001F40: 35 33 32 37 32 2C C2 28  35 33 32 37 32 29 AF 32  |53272,.(53272).2|
00001F50: 34 37 00 6A 27 BC 0C 97  35 33 32 36 35 2C C2 28  |47.j'...53265,.(|
00001F60: 35 33 32 36 35 29 AF 32  32 33 00 00 00           |53265).223...   |

....D.. N-BODY SIMULATOR.+.N.. VERSION 6
.09.B.X.. BY RICHARD LUCAS.H...:.Y.... I
NITIALIZE.U....2038,B(55):.2039,B(56)...
 .. 56,62: . 55,0: ..K.... X(40),Y(40),Z
(40),U(40),V(40),W(40),X1(40),Y1(40),Z1(
40)...... M(40),GM(40),E2(7).).... X0(40
),Y0(40),Z0(40),U0(40),V0(40),W0(40),A0(
40),B0(40),C0(40).I.H.. EX(7),UN(3),UN$(
3),TU$(3).E.R..I.1.3:.TU$(I),UN$(I):....
... "DAYS","10^7KILOMETERS-TONS-DAYS","D
AYS","AU-EARTH MASS-DAYS","SECONDS".G...
. 1000KM-KG-SEC.R.... 2820.....G.6.67E.1
1:SY.1:CF.40:C4.504:C7.7:C8.248:VI.53248
:HI.VI.16:C5.255.Y...HR.16.1024:O$."EPNC
DLS".G(133).G(136)."XYZUVWMTRD":SP.0:DV.
8.....NB.0:DT.10:D2.DT.DT.2:D3.D2.DT.3:D
4.D3.DT.4:CB.1......I.0.7:EX(I).2.(7.I):
...."..I.0.7:E2(I).2.I:....,.UN(1).1000.
86400.2.1E10.3...6.UN(2).5.9742E24.86400
.2.1.4959789E11.3...@.UN(3).1.1E6.3.H.J.
. 53280,0:. 53281,0:. G(14).G(8).G(151);
.|.T.B$."":L$."":.I.1.38:B$.B$.G(32):L$.
L$.G(192):.I...^.B$.G(29).B$.G(29)...H.:
...R.. MAIN LOOP...|.. 2460...... 2620.I
.... ">";...... A$:.A$."". 410......I.1.
C(O$):.A$.J(O$,I,1). .A$:. 450..........
.. 410.K.B.. I . 490,510,1970,2900,3070,
2110,2250,3190,3230.Y.L.. I.18 . ."NEW N
AME OF BODY";N$(CB):. 370...N.. I.19 . .
"DRIVE #";DV:. 370...V.."NEW VALUE";NV..
.... I.9 . 2390,2400,2410,2420,2430,2440
,2380,2450......55,B(2038):.56,B(2039):.
:......:. .... PLOT TRAJECTORIES.T.... N
B.0 . . "NO BODIES IN CURRENT SYSTEM.":.
 370.|.... SP . 610:. SKIP HIRES FOR SPR
ITES...... SET UP HIRES SCREEN.N.&.. 565
78,B(56578).3:. SWITCH TO VIC BANK 1 (16
K-32K)...0.. 56576,(B(56576).252).2.#.:.
. 53272,(B(53272).15).128:. CHAR SCREEN 
IS IN 9TH K.R.D.. 53265,B(53265).32:. TU
RN ON HIRES SCREEN...N.. 820,0:. 821,64:
. 822,0:. 823,96:. 251,0:. 49152.A.X.. 8
20,0:. 821,96:. 822,231:. 823,99:. 251,1
6:. 49152.Y.B..SP..I.VI.HI:.I,.:....L..S
P. A1.0:.I.1.8:A1.A1 .(.(I..NB).2.(I.1))
:.:. VI.21,A1./.V..SP.. 53281,0:.G(147).
7...T.0.=...:.K.... MOVE START PARAMETER
S TO WORKING ARRAYS.W....I.1.NB.....X(I)
.X0(I).....Y(I).Y0(I).....Z(I).Z0(I)...F
.U(I).U0(I).B.P.V(I).V0(I).Q.Z.W(I).W0(I
).W.......... COMPUTE ACCEL AT TIME DT B
EFORE START......I.1.NB.+...A0(I)..:B0(I
)..:C0(I)...1.....=....I.1.NB.P. .AX..:A
Y..:AZ...\.*..J.1.NB.I.4..I.J.910.Z.>.DX
.X(J).X(I)...H.DY.Y(J).Y(I)...R.DZ.Z(J).
Z(I)...\.R..(DX.DX.DY.DY.DZ.DZ).J.F.R3.R
.R.R.GM(J).Z.P.AX.AX.DX.R3...Z.AY.AY.DY.
R3.....AZ.AZ.DZ.R3...........X1(I).X(I).
U(I).DT.AX.D2.:...Y1(I).Y(I).V(I).DT.AY.
D2.W...Z1(I).Z(I).W(I).DT.AZ.D2.].....I.
...I.1.NB.|.J.AX..:AY..:AZ.....T..J.1.NB
......I.J.1080.....DX.X1(J).X1(I).....DY
.Y1(J).Y1(I).O...DZ.Z1(J).Z1(I).....R..(
DX.DX.DY.DY.DZ.DZ).....R3.R.R.R.GM(J)...
..AX.AX.DX.R3...$.AY.AY.DY.R3.-...AZ.AZ.
DZ.R3.3.8...@.B.A0(I).AX.M.L.B0(I).AY.Z.
V.C0(I).AZ.`.`...F.J.:...T.. CALCULATE N
EW SYSTEM STATE...~..I.1.NB.....A1..:B1.
.:C1..:A2..:B2..:C2...A....J.1.NB.O....I
.J.1270.....DX.X(J).X(I).....DY.Y(J).Y(I
).....DZ.Z(J).Z(I)...D.R..(DX.DX.DY.DY.D
Z.DZ).0.N.R3.R.R.R.GM(J).@.X.A1.A1.DX.R3
.P...B1.B1.DY.R3.`...C1.C1.DZ.R3.F.....{
...J0.(A1.A0(I)).DT.....K0.(B1.B0(I)).DT
.....L0.(C1.C0(I)).DT.E...X2.X(I).U(I).D
T.A1.D2.J0.D3...(.Y2.Y(I).V(I).DT.B1.D2.
K0.D3...2.Z2.Z(I).W(I).DT.C1.D2.L0.D3...
<..J.1.NB...F..I.J.1440...P.DX.X(J).X2.=
.Z.DY.Y(J).Y2.L.D.DZ.Z(J).Z2.G.N.R..(DX.
DX.DY.DY.DZ.DZ).Z.X.R3.R.R.R.GM(J).....A
2.A2.DX.R3.....B2.B2.DY.R3.....C2.C2.DZ.
R3... ...B...J1.(A2.A1).DT.T...K1.(B2.B1
).DT.....L1.(C2.C1).DT...H.M1.(A2.2.A1.A
0(I)).(DT.DT).$.R.N1.(B2.2.B1.B0(I)).(DT
.DT).C...O1.(C2.2.C1.C0(I)).(DT.DT).L...
X1(I).X(I).U(I).DT.A1.D2.J1.D3.M1.D4....
.Y1(I).Y(I).V(I).DT.B1.D2.K1.D3.N1.D4...
..Z1(I).Z(I).W(I).DT.C1.D2.L1.D3.O1.D4..
...U1(I).U(I).A1.DT.J1.D2.M1.D3.....V1(I
).V(I).B1.DT.K1.D2.N1.D3.!...W1(I).W(I).
C1.DT.L1.D2.O1.D3...".A0(I).A1.;.,.B0(I)
.B1.H.6.C0(I).C1.N.@...T.J.:.`.T..I.1.NB
.O.^.X(I).X1(I).~.H.Y(I).Y1(I)...R.Z(I).
Z1(I)...|.U(I).U1(I).....V(I).V1(I).....
W(I).W1(I).....X.X(I):.X(I)...X(I).319.1
720.....Y.Y(I):.Y(I)...Y(I).199.1720....
..2710.........B.T.T.DT.+.L.. SP . .G(19
);T.?.V..A$:.A$."".1150.E...:.D.... REST
ORE CHARACTER SCREEN.|....53265,B(53265)
.223...... 56578,B(56578).3...... 56576,
(B(56576).252).3.M.... 53272,(B(53272).1
5).16...... VI.21,0:. TURN OFF SPRITES..
.&.. 53281,0...0.. A$.G(133) . 1860...:.
. 370.T.D.. G(17);"STORING PRESENT SYSTE
M IN MEMORY.":. 3160.C.N.. I.1 . NB.R.X.
X0(I).X(I)...B.Y0(I).Y(I)...L.Z0(I).Z(I)
...V.U0(I).U(I).....V0(I).V(I).....W0(I)
.W(I).E.... I.O.... 370.U...:...... GET 
NEW SYSTEM FROM USER......"NUMBER OF BOD
IES";NB.#.F..NB.1.NB.50.370.2.P.. I.1 . 
NB.B.Z.CB.I:. 2460._...."NAME OF BODY"I;
:.N$(I).U....C(N$(I)).25.2020......"MASS
 OF BODY"I;...... M(I):GM(I).G.M(I).UN(S
Y)......"INPUT LOCATION IN X,Y,Z FORM";X
0(I),Y0(I),Z0(I)......"INPUT VELOCITY IN
 U,V,W FORM";U0(I),V0(I),W0(I)... .. I.(
.*.. 370...4.:.V.>.. LOAD SYSTEM DESCRIP
TION FROM DISK.Z.H.. "LOAD SYSTEM DATA F
ROM DISK."...R.."TYPE NAME OF DATA FILE"
;A$...\.. C(A$).13 . ."TOO LONG.":. 2130
...F.. 15,DV,15:. 2,DV,2,"0:".A$.".NB,S,
R"...P.. 3170./.Z.. ER..0 . . ER$(1);ER$
(2);ER$(3);ER$(4):. 3160:. 2230.<....2,S
Y,NB.H....I.1.NB.~....2,N$(I),X0(I),Y0(I
),Z0(I),U0(I),V0(I),W0(I),M(I).....GM(I)
.G.M(I).UN(SY)...........  2:  15:CB.1..
.... 370.Z.J.. SAVE CURRENT SYSTEM TO DI
SK...T.. "SAVE CURRENT SYSTEM."......"TY
PE NAME OF FILE";A$.=.... C(A$).13 . ."N
AME TOO LONG.":. 2250.U.... 15,DV,15:C$.
G(13).T.... 2,DV,2,"0:".A$.".NB,S,W"...
.. 3170...... ER..0 . . ER$(1);ER$(2);ER
$(3);ER$(4):. 3160:. 2230.I....2,SY;C$;N
B.U.$..I.1.NB. ....2,N$(I);C$;X0(I);C$;Y
0(I);C$;Z0(I);C$;U0(I);C$;V0(I);C$;W0(I)
;C$;M(I).&.8...9.B.  2:  15:. 370.B.L.M(
CB).NV:GM(CB).G.M(CB).UN(SY):. 370.V.V.X
0(CB).NV:. 370...`.Y0(CB).NV:. 370...J.Z
0(CB).NV:. 370...T.U0(CB).NV:. 370.F.~.V
0(CB).NV:. 370.Z...W0(CB).NV:. 370.....D
T.NV:D2.DT.DT.2:D3.D2.DT.3:D4.D3.DT.4:. 
370./.... DISPLAY CURRENT SYSTEM VALUES.
Y....G(147)"            N-BODY SIMULATOR
".P....G(176);L$;G(174);....L1$.G(221).
..D..L1$" NAME: "N$(CB);.79);L1$;.O.N..L
1$" BODY #"CB;.17)"MASS:"M(CB);.39)L1$;.
..X..L1$" X:"X0(CB);.60)"U:"U0(CB);.79);
L1$;.)....L1$" Y:"Y0(CB);.20)"V:"V0(CB);
.39);L1$;.V....L1$" Z:"Z0(CB);.60)"W:"W0
(CB);.79);L1$;.L....G(173);L$;G(189)....
.. "NUMBER OF BODIES:"NB...... "TIME INT
ERVAL:"DT;TU$(SY).F.... "UNIT SYSTEM: "U
N$(SY)...... SP . . "SPRITE MODE";G(17):
... (.. "HIRES POINT MODE";G(17):... 2.:
.# <.. DISPLAY MENU.R F.. ".E.XIT       
.P.LOT       .N.EW SYSTEM".. P.. "S.C.AL
E      .D.ISPLAY    .L.OAD .D.RIVE#".. Z
.. ".S.AVE       .F1. PREV BODY   .F7. N
EXT BODY".. D.. ".X. POSITION .Y. POSITI
ON .Z. POSITION"..!N.. ".U. VELOCITY .V.
 VELOCITY .W. VELOCITY".B!X.. ".M.ASS   
    .T.IME       .R.ENAME".H!....I!... P
LOT POINT ON HIRES SCREEN.{!... SP.1 . 2
750..! .ML.HR.(Y.C8).CF.(Y.C7).(X.C4)..!
... ML,B(ML).EX(X.C7)..!....I!... I.8 . 
...!H.X.X.24:Y.Y.50..!R.. VI.(I.1).2,X.C
5.."... VI.I.2.1,Y.."...X.C5..HI,B(HI).E
2(I.1).@"...X.256..HI,B(HI).(C5.E2(I.1))
.F"....I"... ML CODE FOR HIGH SPEED ERAS
E.U"..I.49152.."...MC:.MC.256....""..I,M
C:I.I.1:.2840.C",..173,52,3, 133,2, 173,
53,3, 133,3.."6..165,251, 160,0, 166,3..
#@..145,2, 236,55,3, 208,7, 166,2, 236,5
4,3, 240,9.B#J..230,2, 208,236, 230,3, 7
6,14,192, 96,  256.K#T.. G(147);"SELECT 
A SYSTEM OF UNITS."..#^.. G(17);"1. 1 PI
XEL = 10^7 KILOMETERS"..#H.. "   1 MASS 
= 1000 KILOGRAMS".S#R.. "   1 TIME = 1 D
AY"..$|.. G(17);"2. 1 PIXEL = 1 AU (EART
H RADIUS)".#$... "   1 MASS = 1 EARTH MA
SS".=$... "   1 TIME = 1 DAY".H$... G(17
);"3. 1 PIXEL = 1000 KILOMETERS"..$... "
   1 MASS = 1 KILOGRAM"..$... "   1 TIME
 = 1 SECOND"..$...: ."WHICH SYSTEM";SY.R
$B.. SY.1.SY.3.370..$L..I.1.NB..$V.GM(I)
.G.M(I).UN(SY)..$.....%... 370..%..:.&%.
.. SWITCH PLOT SYSTEMS.>%... SP.1 . SP.0
:. 370.G%..SP.1..%...I.15872.15872.8.64:
.I,.:.:. BLANK OUT SPRITE IMAGES..%&..I.
0.7:.15872.I.64,224:.15875.I.64,224:.:. 
FORM DOT SHAPE..%0..I.0.7:.2040.I,248.I:
.:. SET SPRITE POINTERS..&:..I.0.7:.VI.3
9.I,I.1:.:. SET SPRITE COLORS.L&D.. VI.2
9,0  :. VI.23,0  :. COMPRESS SPRITES.V&N
.. 370.I&X..DE.1.1500:.:...&B..15,ER$(1)
,ER$(2),ER$(3),ER$(4). &L.ER.E(ER$(1)):.
..&V.CB.CB.1:. CB.1 . CB.NB..&...G(19)G(
17)G(17);B$;B$;B$;B$;B$:.G(19)..&... 248
0..'...I.1.6:.G(17);:.I:.G(29);:.410./'.
.CB.CB.1:. CB.NB . CB.1.:'... 3200.R'...
53272,B(53272).247.J'...53265,B(53265).2
23...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL