N-BODY SIMULATOR
FILE INFORMATION
FILENAME(S): N-BODY SIMULATOR
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-30 21:12:53
APPEARS ON: 1 disk(s)
FILE HASH
7e617890c88f6d6dee7cbf23b8b7800025cc2064e9d52c51c2b063fd5668ceef
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | N-BODY SIMULATOR | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
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 79 09 E6 00 83 20 31 30 30 30 |(I):..y.... 1000|
00000170: 4B 4D 2D 4B 47 2D 53 45 43 00 84 09 F0 00 8D 20 |KM-KG-SEC...... |
00000180: 32 38 32 30 00 CA 09 FA 00 47 B2 36 2E 36 37 45 |2820.....G.6.67E|
00000190: AB 31 31 3A 53 59 B2 31 3A 43 46 B2 34 30 3A 43 |.11:SY.1:CF.40:C|
000001A0: 34 B2 35 30 34 3A 43 37 B2 37 3A 43 38 B2 32 34 |4.504:C7.7:C8.24|
000001B0: 38 3A 56 49 B2 35 33 32 34 38 3A 48 49 B2 56 49 |8:VI.53248:HI.VI|
000001C0: AA 31 36 3A 43 35 B2 32 35 35 00 05 0A 04 01 48 |.16:C5.255.....H|
000001D0: 52 B2 31 36 AC 31 30 32 34 3A 4F 24 B2 22 45 50 |R.16.1024:O$."EP|
000001E0: 4E 43 44 4C 53 22 AA C7 28 31 33 33 29 AA C7 28 |NCDLS"..(133)..(|
000001F0: 31 33 36 29 AA 22 58 59 5A 55 56 57 4D 54 52 22 |136)."XYZUVWMTR"|
00000200: 3A 53 50 B2 30 00 3A 0A 0E 01 4E 42 B2 30 3A 44 |:SP.0.:...NB.0:D|
00000210: 54 B2 31 30 3A 44 32 B2 44 54 AC 44 54 AD 32 3A |T.10:D2.DT.DT.2:|
00000220: 44 33 B2 44 32 AC 44 54 AD 33 3A 44 34 B2 44 33 |D3.D2.DT.3:D4.D3|
00000230: AC 44 54 AD 34 3A 43 42 B2 31 00 55 0A 18 01 81 |.DT.4:CB.1.U....|
00000240: 49 B2 30 A4 37 3A 45 58 28 49 29 B2 32 AE 28 37 |I.0.7:EX(I).2.(7|
00000250: AB 49 29 3A 82 00 6C 0A 22 01 81 49 B2 30 A4 37 |.I):..l."..I.0.7|
00000260: 3A 45 32 28 49 29 B2 32 AE 49 3A 82 00 8A 0A 2C |:E2(I).2.I:....,|
00000270: 01 55 4E 28 31 29 B2 31 30 30 30 AC 38 36 34 30 |.UN(1).1000.8640|
00000280: 30 AE 32 AD 31 45 31 30 AE 33 00 B5 0A 36 01 55 |0.2.1E10.3...6.U|
00000290: 4E 28 32 29 B2 35 2E 39 37 34 32 45 32 34 AC 38 |N(2).5.9742E24.8|
000002A0: 36 34 30 30 AE 32 AD 31 2E 34 39 35 39 37 38 39 |6400.2.1.4959789|
000002B0: 45 31 31 AE 33 00 C7 0A 40 01 55 4E 28 33 29 B2 |E11.3...@.UN(3).|
000002C0: 31 AD 31 45 36 AE 33 00 F4 0A 4A 01 97 20 35 33 |1.1E6.3...J.. 53|
000002D0: 32 38 30 2C 30 3A 97 20 35 33 32 38 31 2C 30 3A |280,0:. 53281,0:|
000002E0: 99 20 C7 28 31 34 29 AA C7 28 38 29 AA C7 28 31 |. .(14)..(8)..(1|
000002F0: 35 31 29 3B 00 28 0B 54 01 42 24 B2 22 22 3A 4C |51);.(.T.B$."":L|
00000300: 24 B2 22 22 3A 81 49 B2 31 A4 33 38 3A 42 24 B2 |$."":.I.1.38:B$.|
00000310: 42 24 AA C7 28 33 32 29 3A 4C 24 B2 4C 24 AA C7 |B$..(32):L$.L$..|
00000320: 28 31 39 32 29 3A 82 49 00 3E 0B 5E 01 42 24 B2 |(192):.I.>.^.B$.|
00000330: C7 28 32 39 29 AA 42 24 AA C7 28 32 39 29 00 44 |.(29).B$..(29).D|
00000340: 0B 68 01 3A 00 54 0B 72 01 8F 20 4D 41 49 4E 20 |.h.:.T.r.. MAIN |
00000350: 4C 4F 4F 50 00 5F 0B 7C 01 8D 20 32 34 36 30 00 |LOOP._.|.. 2460.|
00000360: 6A 0B 86 01 8D 20 32 36 32 30 00 75 0B 90 01 99 |j.... 2620.u....|
00000370: 20 22 3E 22 3B 00 8A 0B 9A 01 A1 20 41 24 3A 8B | ">";...... A$:.|
00000380: 41 24 B2 22 22 A7 20 34 31 30 00 AF 0B A4 01 81 |A$."". 410......|
00000390: 49 B2 31 A4 31 38 3A 8B 41 24 B2 CA 28 4F 24 2C |I.1.18:.A$..(O$,|
000003A0: 49 2C 31 29 A7 20 99 41 24 3A 89 20 34 35 30 00 |I,1). .A$:. 450.|
000003B0: B5 0B AE 01 82 00 BF 0B B8 01 89 20 34 31 30 00 |........... 410.|
000003C0: F4 0B C2 01 91 20 49 20 89 20 34 39 30 2C 35 31 |..... I . 490,51|
000003D0: 30 2C 31 39 37 30 2C 32 39 30 30 2C 33 30 37 30 |0,1970,2900,3070|
000003E0: 2C 32 31 31 30 2C 32 32 35 30 2C 33 31 39 30 2C |,2110,2250,3190,|
000003F0: 33 32 33 30 00 22 0C CC 01 8B 20 49 B2 31 38 20 |3230.".... I.18 |
00000400: A7 20 85 22 CE 45 57 20 4E 41 4D 45 20 4F 46 20 |. .".EW NAME OF |
00000410: 42 4F 44 59 22 3B 4E 24 28 43 42 29 3A 89 20 33 |BODY";N$(CB):. 3|
00000420: 37 30 00 36 0C D6 01 85 22 4E 45 57 20 56 41 4C |70.6...."NEW VAL|
00000430: 55 45 22 3B 4E 56 00 6A 0C E0 01 91 20 49 AB 39 |UE";NV.j.... I.9|
00000440: 20 89 20 32 33 39 30 2C 32 34 30 30 2C 32 34 31 | . 2390,2400,241|
00000450: 30 2C 32 34 32 30 2C 32 34 33 30 2C 32 34 34 30 |0,2420,2430,2440|
00000460: 2C 32 33 38 30 2C 32 34 35 30 00 8A 0C EA 01 97 |,2380,2450......|
00000470: 35 35 2C C2 28 32 30 33 38 29 3A 97 35 36 2C C2 |55,.(2038):.56,.|
00000480: 28 32 30 33 39 29 3A 9C 3A 80 00 90 0C F4 01 3A |(2039):.:......:|
00000490: 00 A8 0C FE 01 8F 20 50 4C 4F 54 20 54 52 41 4A |...... PLOT TRAJ|
000004A0: 45 43 54 4F 52 49 45 53 00 DC 0C 08 02 8B 20 4E |ECTORIES...... N|
000004B0: 42 B2 30 20 A7 20 99 20 22 CE 4F 20 42 4F 44 49 |B.0 . . ".O BODI|
000004C0: 45 53 20 49 4E 20 43 55 52 52 45 4E 54 20 53 59 |ES IN CURRENT SY|
000004D0: 53 54 45 4D 2E 22 3A 89 20 33 37 30 00 04 0D 12 |STEM.":. 370....|
000004E0: 02 8B 20 53 50 20 A7 20 36 31 30 3A 8F 20 53 4B |.. SP . 610:. SK|
000004F0: 49 50 20 48 49 52 45 53 20 46 4F 52 20 53 50 52 |IP HIRES FOR SPR|
00000500: 49 54 45 53 00 1E 0D 1C 02 8F 20 53 45 54 20 55 |ITES...... SET U|
00000510: 50 20 48 49 52 45 53 20 53 43 52 45 45 4E 00 56 |P HIRES SCREEN.V|
00000520: 0D 26 02 97 20 35 36 35 37 38 2C C2 28 35 36 35 |.&.. 56578,.(565|
00000530: 37 38 29 B0 33 3A 8F 20 53 57 49 54 43 48 20 54 |78).3:. SWITCH T|
00000540: 4F 20 56 49 43 20 42 41 4E 4B 20 31 20 28 31 36 |O VIC BANK 1 (16|
00000550: 4B 2D 33 32 4B 29 00 73 0D 30 02 97 20 35 36 35 |K-32K).s.0.. 565|
00000560: 37 36 2C 28 C2 28 35 36 35 37 36 29 AF 32 35 32 |76,(.(56576).252|
00000570: 29 B0 32 00 AB 0D 3A 02 97 20 35 33 32 37 32 2C |).2...:.. 53272,|
00000580: 28 C2 28 35 33 32 37 32 29 AF 31 35 29 B0 31 32 |(.(53272).15).12|
00000590: 38 3A 8F 20 43 48 41 52 20 53 43 52 45 45 4E 20 |8:. CHAR SCREEN |
000005A0: 49 53 20 49 4E 20 39 54 48 20 4B 00 DA 0D 44 02 |IS IN 9TH K...D.|
000005B0: 97 20 35 33 32 36 35 2C C2 28 35 33 32 36 35 29 |. 53265,.(53265)|
000005C0: B0 33 32 3A 8F 20 54 55 52 4E 20 4F 4E 20 48 49 |.32:. TURN ON HI|
000005D0: 52 45 53 20 53 43 52 45 45 4E 00 10 0E 4E 02 97 |RES SCREEN...N..|
000005E0: 20 38 32 30 2C 30 3A 97 20 38 32 31 2C 36 34 3A | 820,0:. 821,64:|
000005F0: 97 20 38 32 32 2C 30 3A 97 20 38 32 33 2C 39 36 |. 822,0:. 823,96|
00000600: 3A 97 20 32 35 31 2C 30 3A 9E 20 34 39 31 35 32 |:. 251,0:. 49152|
00000610: 00 49 0E 58 02 97 20 38 32 30 2C 30 3A 97 20 38 |.I.X.. 820,0:. 8|
00000620: 32 31 2C 39 36 3A 97 20 38 32 32 2C 32 33 31 3A |21,96:. 822,231:|
00000630: 97 20 38 32 33 2C 39 39 3A 97 20 32 35 31 2C 31 |. 823,99:. 251,1|
00000640: 36 3A 9E 20 34 39 31 35 32 00 61 0E 62 02 8B 53 |6:. 49152.a.b..S|
00000650: 50 A7 81 49 B2 56 49 A4 48 49 3A 97 49 2C 2E 3A |P..I.VI.HI:.I,.:|
00000660: 82 00 9D 0E 6C 02 8B 53 50 A7 20 41 31 B2 30 3A |....l..SP. A1.0:|
00000670: 81 49 B2 31 A4 38 3A 41 31 B2 41 31 20 B0 28 AB |.I.1.8:A1.A1 .(.|
00000680: 28 49 B3 B2 4E 42 29 AC 32 AE 28 49 AB 31 29 29 |(I..NB).2.(I.1))|
00000690: 3A 82 3A 97 20 56 49 AA 32 31 2C 41 31 00 B7 0E |:.:. VI.21,A1...|
000006A0: 76 02 8B 53 50 A7 97 20 35 33 32 38 31 2C 30 3A |v..SP.. 53281,0:|
000006B0: 99 C7 28 31 34 37 29 00 BF 0E 80 02 54 B2 30 00 |..(147).....T.0.|
000006C0: C5 0E 8A 02 3A 00 F3 0E 94 02 8F 20 4D 4F 56 45 |....:...... MOVE|
000006D0: 20 53 54 41 52 54 20 50 41 52 41 4D 45 54 45 52 | START PARAMETER|
000006E0: 53 20 54 4F 20 57 4F 52 4B 49 4E 47 20 41 52 52 |S TO WORKING ARR|
000006F0: 41 59 53 00 FF 0E 9E 02 81 49 B2 31 A4 4E 42 00 |AYS......I.1.NB.|
00000700: 0E 0F A8 02 58 28 49 29 B2 58 30 28 49 29 00 1D |....X(I).X0(I)..|
00000710: 0F B2 02 59 28 49 29 B2 59 30 28 49 29 00 2C 0F |...Y(I).Y0(I).,.|
00000720: BC 02 5A 28 49 29 B2 5A 30 28 49 29 00 3B 0F C6 |..Z(I).Z0(I).;..|
00000730: 02 55 28 49 29 B2 55 30 28 49 29 00 4A 0F D0 02 |.U(I).U0(I).J...|
00000740: 56 28 49 29 B2 56 30 28 49 29 00 59 0F DA 02 57 |V(I).V0(I).Y...W|
00000750: 28 49 29 B2 57 30 28 49 29 00 5F 0F E4 02 82 00 |(I).W0(I)._.....|
00000760: 8B 0F EE 02 8F 20 43 4F 4D 50 55 54 45 20 41 43 |..... COMPUTE AC|
00000770: 43 45 4C 20 41 54 20 54 49 4D 45 20 44 54 20 42 |CEL AT TIME DT B|
00000780: 45 46 4F 52 45 20 53 54 41 52 54 00 97 0F F8 02 |EFORE START.....|
00000790: 81 49 B2 31 A4 4E 42 00 B3 0F 02 03 41 30 28 49 |.I.1.NB.....A0(I|
000007A0: 29 B2 2E 3A 42 30 28 49 29 B2 2E 3A 43 30 28 49 |)..:B0(I)..:C0(I|
000007B0: 29 B2 2E 00 B9 0F 0C 03 82 00 C5 0F 16 03 81 49 |)..............I|
000007C0: B2 31 A4 4E 42 00 D8 0F 20 03 41 58 B2 2E 3A 41 |.1.NB... .AX..:A|
000007D0: 59 B2 2E 3A 41 5A B2 2E 00 E4 0F 2A 03 81 4A B2 |Y..:AZ.....*..J.|
000007E0: 31 A4 4E 42 00 F1 0F 34 03 8B 49 B2 4A A7 39 31 |1.NB...4..I.J.91|
000007F0: 30 00 02 10 3E 03 44 58 B2 58 28 4A 29 AB 58 28 |0...>.DX.X(J).X(|
00000800: 49 29 00 13 10 48 03 44 59 B2 59 28 4A 29 AB 59 |I)...H.DY.Y(J).Y|
00000810: 28 49 29 00 24 10 52 03 44 5A B2 5A 28 4A 29 AB |(I).$.R.DZ.Z(J).|
00000820: 5A 28 49 29 00 3F 10 5C 03 52 B2 BA 28 44 58 AC |Z(I).?.\.R..(DX.|
00000830: 44 58 AA 44 59 AC 44 59 AA 44 5A AC 44 5A 29 00 |DX.DY.DY.DZ.DZ).|
00000840: 52 10 66 03 52 33 B2 52 AC 52 AC 52 AD 47 4D 28 |R.f.R3.R.R.R.GM(|
00000850: 4A 29 00 62 10 70 03 41 58 B2 41 58 AA 44 58 AD |J).b.p.AX.AX.DX.|
00000860: 52 33 00 72 10 7A 03 41 59 B2 41 59 AA 44 59 AD |R3.r.z.AY.AY.DY.|
00000870: 52 33 00 82 10 84 03 41 5A B2 41 5A AA 44 5A AD |R3.....AZ.AZ.DZ.|
00000880: 52 33 00 88 10 8E 03 82 00 A5 10 98 03 58 31 28 |R3...........X1(|
00000890: 49 29 B2 58 28 49 29 AB 55 28 49 29 AC 44 54 AA |I).X(I).U(I).DT.|
000008A0: 41 58 AC 44 32 00 C2 10 A2 03 59 31 28 49 29 B2 |AX.D2.....Y1(I).|
000008B0: 59 28 49 29 AB 56 28 49 29 AC 44 54 AA 41 59 AC |Y(I).V(I).DT.AY.|
000008C0: 44 32 00 DF 10 AC 03 5A 31 28 49 29 B2 5A 28 49 |D2.....Z1(I).Z(I|
000008D0: 29 AB 57 28 49 29 AC 44 54 AA 41 5A AC 44 32 00 |).W(I).DT.AZ.D2.|
000008E0: E5 10 B6 03 82 00 F1 10 C0 03 81 49 B2 31 A4 4E |...........I.1.N|
000008F0: 42 00 04 11 CA 03 41 58 B2 2E 3A 41 59 B2 2E 3A |B.....AX..:AY..:|
00000900: 41 5A B2 2E 00 10 11 D4 03 81 4A B2 31 A4 4E 42 |AZ........J.1.NB|
00000910: 00 1E 11 DE 03 8B 49 B2 4A A7 31 30 38 30 00 31 |......I.J.1080.1|
00000920: 11 E8 03 44 58 B2 58 31 28 4A 29 AB 58 31 28 49 |...DX.X1(J).X1(I|
00000930: 29 00 44 11 F2 03 44 59 B2 59 31 28 4A 29 AB 59 |).D...DY.Y1(J).Y|
00000940: 31 28 49 29 00 57 11 FC 03 44 5A B2 5A 31 28 4A |1(I).W...DZ.Z1(J|
00000950: 29 AB 5A 31 28 49 29 00 72 11 06 04 52 B2 BA 28 |).Z1(I).r...R..(|
00000960: 44 58 AC 44 58 AA 44 59 AC 44 59 AA 44 5A AC 44 |DX.DX.DY.DY.DZ.D|
00000970: 5A 29 00 85 11 10 04 52 33 B2 52 AC 52 AC 52 AD |Z).....R3.R.R.R.|
00000980: 47 4D 28 4A 29 00 95 11 1A 04 41 58 B2 41 58 AA |GM(J).....AX.AX.|
00000990: 44 58 AD 52 33 00 A5 11 24 04 41 59 B2 41 59 AA |DX.R3...$.AY.AY.|
000009A0: 44 59 AD 52 33 00 B5 11 2E 04 41 5A B2 41 5A AA |DY.R3.....AZ.AZ.|
000009B0: 44 5A AD 52 33 00 BB 11 38 04 82 00 C8 11 42 04 |DZ.R3...8.....B.|
000009C0: 41 30 28 49 29 B2 41 58 00 D5 11 4C 04 42 30 28 |A0(I).AX...L.B0(|
000009D0: 49 29 B2 41 59 00 E2 11 56 04 43 30 28 49 29 B2 |I).AY...V.C0(I).|
000009E0: 41 5A 00 E8 11 60 04 82 00 EE 11 6A 04 3A 00 0F |AZ...`.....j.:..|
000009F0: 12 74 04 8F 20 43 41 4C 43 55 4C 41 54 45 20 4E |.t.. CALCULATE N|
00000A00: 45 57 20 53 59 53 54 45 4D 20 53 54 41 54 45 00 |EW SYSTEM STATE.|
00000A10: 1B 12 7E 04 81 49 B2 31 A4 4E 42 00 3D 12 88 04 |..~..I.1.NB.=...|
00000A20: 41 31 B2 2E 3A 42 31 B2 2E 3A 43 31 B2 2E 3A 41 |A1..:B1..:C1..:A|
00000A30: 32 B2 2E 3A 42 32 B2 2E 3A 43 32 B2 2E 00 49 12 |2..:B2..:C2...I.|
00000A40: 92 04 81 4A B2 31 A4 4E 42 00 57 12 9C 04 8B 49 |...J.1.NB.W....I|
00000A50: B2 4A A7 31 32 37 30 00 68 12 A6 04 44 58 B2 58 |.J.1270.h...DX.X|
00000A60: 28 4A 29 AB 58 28 49 29 00 79 12 B0 04 44 59 B2 |(J).X(I).y...DY.|
00000A70: 59 28 4A 29 AB 59 28 49 29 00 8A 12 BA 04 44 5A |Y(J).Y(I).....DZ|
00000A80: B2 5A 28 4A 29 AB 5A 28 49 29 00 A5 12 C4 04 52 |.Z(J).Z(I).....R|
00000A90: B2 BA 28 44 58 AC 44 58 AA 44 59 AC 44 59 AA 44 |..(DX.DX.DY.DY.D|
00000AA0: 5A AC 44 5A 29 00 B8 12 CE 04 52 33 B2 52 AC 52 |Z.DZ).....R3.R.R|
00000AB0: AC 52 AD 47 4D 28 4A 29 00 C8 12 D8 04 41 31 B2 |.R.GM(J).....A1.|
00000AC0: 41 31 AA 44 58 AD 52 33 00 D8 12 E2 04 42 31 B2 |A1.DX.R3.....B1.|
00000AD0: 42 31 AA 44 59 AD 52 33 00 E8 12 EC 04 43 31 B2 |B1.DY.R3.....C1.|
00000AE0: 43 31 AA 44 5A AD 52 33 00 EE 12 F6 04 82 00 03 |C1.DZ.R3........|
00000AF0: 13 00 05 4A 30 B2 28 41 31 AB 41 30 28 49 29 29 |...J0.(A1.A0(I))|
00000B00: AD 44 54 00 18 13 0A 05 4B 30 B2 28 42 31 AB 42 |.DT.....K0.(B1.B|
00000B10: 30 28 49 29 29 AD 44 54 00 2D 13 14 05 4C 30 B2 |0(I)).DT.-...L0.|
00000B20: 28 43 31 AB 43 30 28 49 29 29 AD 44 54 00 4D 13 |(C1.C0(I)).DT.M.|
00000B30: 1E 05 58 32 B2 58 28 49 29 AA 55 28 49 29 AC 44 |..X2.X(I).U(I).D|
00000B40: 54 AA 41 31 AC 44 32 AA 4A 30 AC 44 33 00 6D 13 |T.A1.D2.J0.D3.m.|
00000B50: 28 05 59 32 B2 59 28 49 29 AA 56 28 49 29 AC 44 |(.Y2.Y(I).V(I).D|
00000B60: 54 AA 42 31 AC 44 32 AA 4B 30 AC 44 33 00 8D 13 |T.B1.D2.K0.D3...|
00000B70: 32 05 5A 32 B2 5A 28 49 29 AA 57 28 49 29 AC 44 |2.Z2.Z(I).W(I).D|
00000B80: 54 AA 43 31 AC 44 32 AA 4C 30 AC 44 33 00 99 13 |T.C1.D2.L0.D3...|
00000B90: 3C 05 81 4A B2 31 A4 4E 42 00 A7 13 46 05 8B 49 |<..J.1.NB...F..I|
00000BA0: B2 4A A7 31 34 34 30 00 B6 13 50 05 44 58 B2 58 |.J.1440...P.DX.X|
00000BB0: 28 4A 29 AB 58 32 00 C5 13 5A 05 44 59 B2 59 28 |(J).X2...Z.DY.Y(|
00000BC0: 4A 29 AB 59 32 00 D4 13 64 05 44 5A B2 5A 28 4A |J).Y2...d.DZ.Z(J|
00000BD0: 29 AB 5A 32 00 EF 13 6E 05 52 B2 BA 28 44 58 AC |).Z2...n.R..(DX.|
00000BE0: 44 58 AA 44 59 AC 44 59 AA 44 5A AC 44 5A 29 00 |DX.DY.DY.DZ.DZ).|
00000BF0: 02 14 78 05 52 33 B2 52 AC 52 AC 52 AD 47 4D 28 |..x.R3.R.R.R.GM(|
00000C00: 4A 29 00 12 14 82 05 41 32 B2 41 32 AA 44 58 AD |J).....A2.A2.DX.|
00000C10: 52 33 00 22 14 8C 05 42 32 B2 42 32 AA 44 59 AD |R3."...B2.B2.DY.|
00000C20: 52 33 00 32 14 96 05 43 32 B2 43 32 AA 44 5A AD |R3.2...C2.C2.DZ.|
00000C30: 52 33 00 38 14 A0 05 82 00 4A 14 AA 05 4A 31 B2 |R3.8.....J...J1.|
00000C40: 28 41 32 AB 41 31 29 AD 44 54 00 5C 14 B4 05 4B |(A2.A1).DT.\...K|
00000C50: 31 B2 28 42 32 AB 42 31 29 AD 44 54 00 6E 14 BE |1.(B2.B1).DT.n..|
00000C60: 05 4C 31 B2 28 43 32 AB 43 31 29 AD 44 54 00 8D |.L1.(C2.C1).DT..|
00000C70: 14 C8 05 4D 31 B2 28 41 32 AB 32 AC 41 31 AA 41 |...M1.(A2.2.A1.A|
00000C80: 30 28 49 29 29 AD 28 44 54 AC 44 54 29 00 AC 14 |0(I)).(DT.DT)...|
00000C90: D2 05 4E 31 B2 28 42 32 AB 32 AC 42 31 AA 42 30 |..N1.(B2.2.B1.B0|
00000CA0: 28 49 29 29 AD 28 44 54 AC 44 54 29 00 CB 14 DC |(I)).(DT.DT)....|
00000CB0: 05 4F 31 B2 28 43 32 AB 32 AC 43 31 AA 43 30 28 |.O1.(C2.2.C1.C0(|
00000CC0: 49 29 29 AD 28 44 54 AC 44 54 29 00 F4 14 E6 05 |I)).(DT.DT).....|
00000CD0: 58 31 28 49 29 B2 58 28 49 29 AA 55 28 49 29 AC |X1(I).X(I).U(I).|
00000CE0: 44 54 AA 41 31 AC 44 32 AA 4A 31 AC 44 33 AA 4D |DT.A1.D2.J1.D3.M|
00000CF0: 31 AC 44 34 00 1D 15 F0 05 59 31 28 49 29 B2 59 |1.D4.....Y1(I).Y|
00000D00: 28 49 29 AA 56 28 49 29 AC 44 54 AA 42 31 AC 44 |(I).V(I).DT.B1.D|
00000D10: 32 AA 4B 31 AC 44 33 AA 4E 31 AC 44 34 00 46 15 |2.K1.D3.N1.D4.F.|
00000D20: FA 05 5A 31 28 49 29 B2 5A 28 49 29 AA 57 28 49 |..Z1(I).Z(I).W(I|
00000D30: 29 AC 44 54 AA 43 31 AC 44 32 AA 4C 31 AC 44 33 |).DT.C1.D2.L1.D3|
00000D40: AA 4F 31 AC 44 34 00 67 15 04 06 55 31 28 49 29 |.O1.D4.g...U1(I)|
00000D50: B2 55 28 49 29 AA 41 31 AC 44 54 AA 4A 31 AC 44 |.U(I).A1.DT.J1.D|
00000D60: 32 AA 4D 31 AC 44 33 00 88 15 0E 06 56 31 28 49 |2.M1.D3.....V1(I|
00000D70: 29 B2 56 28 49 29 AA 42 31 AC 44 54 AA 4B 31 AC |).V(I).B1.DT.K1.|
00000D80: 44 32 AA 4E 31 AC 44 33 00 A9 15 18 06 57 31 28 |D2.N1.D3.....W1(|
00000D90: 49 29 B2 57 28 49 29 AA 43 31 AC 44 54 AA 4C 31 |I).W(I).C1.DT.L1|
00000DA0: AC 44 32 AA 4F 31 AC 44 33 00 B6 15 22 06 41 30 |.D2.O1.D3...".A0|
00000DB0: 28 49 29 B2 41 31 00 C3 15 2C 06 42 30 28 49 29 |(I).A1...,.B0(I)|
00000DC0: B2 42 31 00 D0 15 36 06 43 30 28 49 29 B2 43 31 |.B1...6.C0(I).C1|
00000DD0: 00 D6 15 40 06 82 00 DC 15 4A 06 3A 00 E8 15 54 |...@.....J.:...T|
00000DE0: 06 81 49 B2 31 A4 4E 42 00 F7 15 5E 06 58 28 49 |..I.1.NB...^.X(I|
00000DF0: 29 B2 58 31 28 49 29 00 06 16 68 06 59 28 49 29 |).X1(I)...h.Y(I)|
00000E00: B2 59 31 28 49 29 00 15 16 72 06 5A 28 49 29 B2 |.Y1(I)...r.Z(I).|
00000E10: 5A 31 28 49 29 00 24 16 7C 06 55 28 49 29 B2 55 |Z1(I).$.|.U(I).U|
00000E20: 31 28 49 29 00 33 16 86 06 56 28 49 29 B2 56 31 |1(I).3...V(I).V1|
00000E30: 28 49 29 00 42 16 90 06 57 28 49 29 B2 57 31 28 |(I).B...W(I).W1(|
00000E40: 49 29 00 63 16 9A 06 58 B2 58 28 49 29 3A 8B 58 |I).c...X.X(I):.X|
00000E50: 28 49 29 B3 2E B0 58 28 49 29 B1 33 31 39 A7 31 |(I)...X(I).319.1|
00000E60: 37 32 30 00 84 16 A4 06 59 B2 59 28 49 29 3A 8B |720.....Y.Y(I):.|
00000E70: 59 28 49 29 B3 2E B0 59 28 49 29 B1 31 39 39 A7 |Y(I)...Y(I).199.|
00000E80: 31 37 32 30 00 8E 16 AE 06 8D 32 37 31 30 00 94 |1720......2710..|
00000E90: 16 B8 06 82 00 9F 16 C2 06 54 B2 54 AA 44 54 00 |.........T.T.DT.|
00000EA0: B3 16 CC 06 8B 20 53 50 20 A7 20 99 C7 28 31 39 |..... SP . ..(19|
00000EB0: 29 3B 54 00 C7 16 D6 06 A1 41 24 3A 8B 41 24 B2 |);T......A$:.A$.|
00000EC0: 22 22 A7 31 31 35 30 00 CD 16 E0 06 3A 00 EC 16 |"".1150.....:...|
00000ED0: EA 06 8F 20 52 45 53 54 4F 52 45 20 43 48 41 52 |... RESTORE CHAR|
00000EE0: 41 43 54 45 52 20 53 43 52 45 45 4E 00 04 17 F4 |ACTER SCREEN....|
00000EF0: 06 97 35 33 32 36 35 2C C2 28 35 33 32 36 35 29 |..53265,.(53265)|
00000F00: AF 32 32 33 00 1B 17 FE 06 97 20 35 36 35 37 38 |.223...... 56578|
00000F10: 2C C2 28 35 36 35 37 38 29 B0 33 00 38 17 08 07 |,.(56578).3.8...|
00000F20: 97 20 35 36 35 37 36 2C 28 C2 28 35 36 35 37 36 |. 56576,(.(56576|
00000F30: 29 AF 32 35 32 29 B0 33 00 55 17 12 07 97 20 35 |).252).3.U.... 5|
00000F40: 33 32 37 32 2C 28 C2 28 35 33 32 37 32 29 AF 31 |3272,(.(53272).1|
00000F50: 35 29 B0 31 36 00 76 17 1C 07 97 20 56 49 AA 32 |5).16.v.... VI.2|
00000F60: 31 2C 30 3A 8F 20 54 55 52 4E 20 4F 46 46 20 53 |1,0:. TURN OFF S|
00000F70: 50 52 49 54 45 53 00 84 17 26 07 97 20 35 33 32 |PRITES...&.. 532|
00000F80: 38 31 2C 30 00 9B 17 30 07 8B 20 41 24 B2 C7 28 |81,0...0.. A$..(|
00000F90: 31 33 33 29 20 A7 20 31 38 36 30 00 A5 17 3A 07 |133) . 1860...:.|
00000FA0: 89 20 33 37 30 00 DC 17 44 07 99 20 C7 28 31 37 |. 370...D.. .(17|
00000FB0: 29 3B 22 D3 54 4F 52 49 4E 47 20 50 52 45 53 45 |);".TORING PRESE|
00000FC0: 4E 54 20 53 59 53 54 45 4D 20 49 4E 20 4D 45 4D |NT SYSTEM IN MEM|
00000FD0: 4F 52 59 2E 22 3A 8D 20 33 31 36 30 00 EB 17 4E |ORY.":. 3160...N|
00000FE0: 07 81 20 49 B2 31 20 A4 20 4E 42 00 FA 17 58 07 |.. I.1 . NB...X.|
00000FF0: 58 30 28 49 29 B2 58 28 49 29 00 09 18 62 07 59 |X0(I).X(I)...b.Y|
00001000: 30 28 49 29 B2 59 28 49 29 00 18 18 6C 07 5A 30 |0(I).Y(I)...l.Z0|
00001010: 28 49 29 B2 5A 28 49 29 00 27 18 76 07 55 30 28 |(I).Z(I).'.v.U0(|
00001020: 49 29 B2 55 28 49 29 00 36 18 80 07 56 30 28 49 |I).U(I).6...V0(I|
00001030: 29 B2 56 28 49 29 00 45 18 8A 07 57 30 28 49 29 |).V(I).E...W0(I)|
00001040: B2 57 28 49 29 00 4D 18 94 07 82 20 49 00 57 18 |.W(I).M.... I.W.|
00001050: 9E 07 89 20 33 37 30 00 5D 18 A8 07 3A 00 7C 18 |... 370.]...:.|.|
00001060: B2 07 8F 20 47 45 54 20 4E 45 57 20 53 59 53 54 |... GET NEW SYST|
00001070: 45 4D 20 46 52 4F 4D 20 55 53 45 52 00 97 18 BC |EM FROM USER....|
00001080: 07 85 22 CE 55 4D 42 45 52 20 4F 46 20 42 4F 44 |..".UMBER OF BOD|
00001090: 49 45 53 22 3B 4E 42 00 AB 18 C6 07 8B 4E 42 B3 |IES";NB......NB.|
000010A0: 31 B0 4E 42 B1 35 30 A7 33 37 30 00 BA 18 D0 07 |1.NB.50.370.....|
000010B0: 81 20 49 B2 31 20 A4 20 4E 42 00 CA 18 DA 07 43 |. I.1 . NB.....C|
000010C0: 42 B2 49 3A 8D 20 32 34 36 30 00 E7 18 E4 07 99 |B.I:. 2460......|
000010D0: 22 CE 41 4D 45 20 4F 46 20 42 4F 44 59 22 49 3B |".AME OF BODY"I;|
000010E0: 3A 85 4E 24 28 49 29 00 FD 18 EE 07 8B C3 28 4E |:.N$(I).......(N|
000010F0: 24 28 49 29 29 B1 32 35 A7 32 30 32 30 00 13 19 |$(I)).25.2020...|
00001100: F8 07 99 22 CD 41 53 53 20 4F 46 20 42 4F 44 59 |...".ASS OF BODY|
00001110: 22 49 3B 00 32 19 02 08 85 20 4D 28 49 29 3A 47 |"I;.2.... M(I):G|
00001120: 4D 28 49 29 B2 47 AC 4D 28 49 29 AC 55 4E 28 53 |M(I).G.M(I).UN(S|
00001130: 59 29 00 68 19 0C 08 85 22 C9 4E 50 55 54 20 4C |Y).h....".NPUT L|
00001140: 4F 43 41 54 49 4F 4E 20 49 4E 20 58 2C 59 2C 5A |OCATION IN X,Y,Z|
00001150: 20 46 4F 52 4D 22 3B 58 30 28 49 29 2C 59 30 28 | FORM";X0(I),Y0(|
00001160: 49 29 2C 5A 30 28 49 29 00 9E 19 16 08 85 22 C9 |I),Z0(I)......".|
00001170: 4E 50 55 54 20 56 45 4C 4F 43 49 54 59 20 49 4E |NPUT VELOCITY IN|
00001180: 20 55 2C 56 2C 57 20 46 4F 52 4D 22 3B 55 30 28 | U,V,W FORM";U0(|
00001190: 49 29 2C 56 30 28 49 29 2C 57 30 28 49 29 00 A6 |I),V0(I),W0(I)..|
000011A0: 19 20 08 82 20 49 00 B0 19 2A 08 89 20 33 37 30 |. .. I...*.. 370|
000011B0: 00 B6 19 34 08 3A 00 DE 19 3E 08 8F 20 4C 4F 41 |...4.:...>.. LOA|
000011C0: 44 20 53 59 53 54 45 4D 20 44 45 53 43 52 49 50 |D SYSTEM DESCRIP|
000011D0: 54 49 4F 4E 20 46 52 4F 4D 20 44 49 53 4B 00 02 |TION FROM DISK..|
000011E0: 1A 48 08 99 20 22 CC 4F 41 44 20 53 59 53 54 45 |.H.. ".OAD SYSTE|
000011F0: 4D 20 44 41 54 41 20 46 52 4F 4D 20 44 49 53 4B |M DATA FROM DISK|
00001200: 2E 22 00 23 1A 52 08 85 22 D4 59 50 45 20 4E 41 |.".#.R..".YPE NA|
00001210: 4D 45 20 4F 46 20 44 41 54 41 20 46 49 4C 45 22 |ME OF DATA FILE"|
00001220: 3B 41 24 00 48 1A 5C 08 8B 20 C3 28 41 24 29 B1 |;A$.H.\.. .(A$).|
00001230: 31 33 20 A7 20 99 22 D4 4F 4F 20 4C 4F 4E 47 2E |13 . .".OO LONG.|
00001240: 22 3A 89 20 32 31 33 30 00 70 1A 66 08 9F 20 31 |":. 2130.p.f.. 1|
00001250: 35 2C 38 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 |5,8,15:. 2,8,2,"|
00001260: 30 3A 22 AA 41 24 AA 22 2E 4E 42 2C 53 2C 52 22 |0:".A$.".NB,S,R"|
00001270: 00 7B 1A 70 08 8D 20 33 31 37 30 00 B5 1A 7A 08 |.{.p.. 3170...z.|
00001280: 8B 20 45 52 B3 B1 30 20 A7 20 99 20 45 52 24 28 |. ER..0 . . ER$(|
00001290: 31 29 3B 45 52 24 28 32 29 3B 45 52 24 28 33 29 |1);ER$(2);ER$(3)|
000012A0: 3B 45 52 24 28 34 29 3A 8D 20 33 31 36 30 3A 89 |;ER$(4):. 3160:.|
000012B0: 20 32 32 33 30 00 C2 1A 84 08 84 32 2C 53 59 2C | 2230......2,SY,|
000012C0: 4E 42 00 CE 1A 8E 08 81 49 B2 31 A4 4E 42 00 04 |NB......I.1.NB..|
000012D0: 1B 98 08 84 32 2C 4E 24 28 49 29 2C 58 30 28 49 |....2,N$(I),X0(I|
000012E0: 29 2C 59 30 28 49 29 2C 5A 30 28 49 29 2C 55 30 |),Y0(I),Z0(I),U0|
000012F0: 28 49 29 2C 56 30 28 49 29 2C 57 30 28 49 29 2C |(I),V0(I),W0(I),|
00001300: 4D 28 49 29 00 1C 1B A2 08 47 4D 28 49 29 B2 47 |M(I).....GM(I).G|
00001310: AC 4D 28 49 29 AC 55 4E 28 53 59 29 00 22 1B AC |.M(I).UN(SY)."..|
00001320: 08 82 00 34 1B B6 08 A0 20 32 3A A0 20 31 35 3A |...4.... 2:. 15:|
00001330: 43 42 B2 31 00 3E 1B C0 08 89 20 33 37 30 00 60 |CB.1.>.... 370.`|
00001340: 1B CA 08 8F 20 53 41 56 45 20 43 55 52 52 45 4E |.... SAVE CURREN|
00001350: 54 20 53 59 53 54 45 4D 20 54 4F 20 44 49 53 4B |T SYSTEM TO DISK|
00001360: 00 7D 1B D4 08 99 20 22 D3 41 56 45 20 43 55 52 |.}.... ".AVE CUR|
00001370: 52 45 4E 54 20 53 59 53 54 45 4D 2E 22 00 99 1B |RENT SYSTEM."...|
00001380: DE 08 85 22 D4 59 50 45 20 4E 41 4D 45 20 4F 46 |...".YPE NAME OF|
00001390: 20 46 49 4C 45 22 3B 41 24 00 C3 1B E8 08 8B 20 | FILE";A$...... |
000013A0: C3 28 41 24 29 B1 31 33 20 A7 20 99 22 CE 41 4D |.(A$).13 . .".AM|
000013B0: 45 20 54 4F 4F 20 4C 4F 4E 47 2E 22 3A 89 20 32 |E TOO LONG.":. 2|
000013C0: 32 35 30 00 DA 1B F2 08 9F 20 31 35 2C 38 2C 31 |250...... 15,8,1|
000013D0: 35 3A 43 24 B2 C7 28 31 33 29 00 F8 1B FC 08 9F |5:C$..(13)......|
000013E0: 20 32 2C 38 2C 32 2C 22 30 3A 22 AA 41 24 AA 22 | 2,8,2,"0:".A$."|
000013F0: 2E 4E 42 2C 53 2C 57 22 00 03 1C 06 09 8D 20 33 |.NB,S,W"...... 3|
00001400: 31 37 30 00 3D 1C 10 09 8B 20 45 52 B3 B1 30 20 |170.=.... ER..0 |
00001410: A7 20 99 20 45 52 24 28 31 29 3B 45 52 24 28 32 |. . ER$(1);ER$(2|
00001420: 29 3B 45 52 24 28 33 29 3B 45 52 24 28 34 29 3A |);ER$(3);ER$(4):|
00001430: 8D 20 33 31 36 30 3A 89 20 32 32 33 30 00 4D 1C |. 3160:. 2230.M.|
00001440: 1A 09 98 32 2C 53 59 3B 43 24 3B 4E 42 00 59 1C |...2,SY;C$;NB.Y.|
00001450: 24 09 81 49 B2 31 A4 4E 42 00 5F 1C 38 09 82 00 |$..I.1.NB._.8...|
00001460: 72 1C 42 09 A0 20 32 3A A0 20 31 35 3A 89 20 33 |r.B.. 2:. 15:. 3|
00001470: 37 30 00 9B 1C 4C 09 4D 28 43 42 29 B2 4E 56 3A |70...L.M(CB).NV:|
00001480: 47 4D 28 43 42 29 B2 47 AC 4D 28 43 42 29 AC 55 |GM(CB).G.M(CB).U|
00001490: 4E 28 53 59 29 3A 89 20 33 37 30 00 AF 1C 56 09 |N(SY):. 370...V.|
000014A0: 58 30 28 43 42 29 B2 4E 56 3A 89 20 33 37 30 00 |X0(CB).NV:. 370.|
000014B0: C3 1C 60 09 59 30 28 43 42 29 B2 4E 56 3A 89 20 |..`.Y0(CB).NV:. |
000014C0: 33 37 30 00 D7 1C 6A 09 5A 30 28 43 42 29 B2 4E |370...j.Z0(CB).N|
000014D0: 56 3A 89 20 33 37 30 00 EB 1C 74 09 55 30 28 43 |V:. 370...t.U0(C|
000014E0: 42 29 B2 4E 56 3A 89 20 33 37 30 00 FF 1C 7E 09 |B).NV:. 370...~.|
000014F0: 56 30 28 43 42 29 B2 4E 56 3A 89 20 33 37 30 00 |V0(CB).NV:. 370.|
00001500: 13 1D 88 09 57 30 28 43 42 29 B2 4E 56 3A 89 20 |....W0(CB).NV:. |
00001510: 33 37 30 00 44 1D 92 09 44 54 B2 4E 56 3A 44 32 |370.D...DT.NV:D2|
00001520: B2 44 54 AC 44 54 AD 32 3A 44 33 B2 44 32 AC 44 |.DT.DT.2:D3.D2.D|
00001530: 54 AD 33 3A 44 34 B2 44 33 AC 44 54 AD 34 3A 89 |T.3:D4.D3.DT.4:.|
00001540: 20 33 37 30 00 68 1D 9C 09 8F 20 44 49 53 50 4C | 370.h.... DISPL|
00001550: 41 59 20 43 55 52 52 45 4E 54 20 53 59 53 54 45 |AY CURRENT SYSTE|
00001560: 4D 20 56 41 4C 55 45 53 00 92 1D A6 09 99 C7 28 |M VALUES.......(|
00001570: 31 34 37 29 22 20 20 20 20 20 20 20 20 20 20 20 |147)" |
00001580: 20 CE 2D C2 CF C4 D9 20 D3 C9 CD D5 CC C1 D4 CF | .-.... ........|
00001590: D2 22 00 A9 1D B0 09 99 C7 28 31 37 36 29 3B 4C |.".......(176);L|
000015A0: 24 3B C7 28 31 37 34 29 3B 00 B8 1D BA 09 4C 31 |$;.(174);.....L1|
000015B0: 24 B2 C7 28 32 32 31 29 00 DA 1D C4 09 99 4C 31 |$..(221)......L1|
000015C0: 24 22 20 4E 41 4D 45 3A 20 22 4E 24 28 43 42 29 |$" NAME: "N$(CB)|
000015D0: 3B A3 37 39 29 3B 4C 31 24 3B 00 08 1E CE 09 99 |;.79);L1$;......|
000015E0: 4C 31 24 22 20 42 4F 44 59 20 23 22 43 42 3B A3 |L1$" BODY #"CB;.|
000015F0: 31 37 29 22 4D 41 53 53 3A 22 4D 28 43 42 29 3B |17)"MASS:"M(CB);|
00001600: A3 33 39 29 4C 31 24 3B 00 35 1E D8 09 99 4C 31 |.39)L1$;.5....L1|
00001610: 24 22 20 58 3A 22 58 30 28 43 42 29 3B A3 36 30 |$" X:"X0(CB);.60|
00001620: 29 22 55 3A 22 55 30 28 43 42 29 3B A3 37 39 29 |)"U:"U0(CB);.79)|
00001630: 3B 4C 31 24 3B 00 62 1E E2 09 99 4C 31 24 22 20 |;L1$;.b....L1$" |
00001640: 59 3A 22 59 30 28 43 42 29 3B A3 32 30 29 22 56 |Y:"Y0(CB);.20)"V|
00001650: 3A 22 56 30 28 43 42 29 3B A3 33 39 29 3B 4C 31 |:"V0(CB);.39);L1|
00001660: 24 3B 00 8F 1E EC 09 99 4C 31 24 22 20 5A 3A 22 |$;......L1$" Z:"|
00001670: 5A 30 28 43 42 29 3B A3 36 30 29 22 57 3A 22 57 |Z0(CB);.60)"W:"W|
00001680: 30 28 43 42 29 3B A3 37 39 29 3B 4C 31 24 3B 00 |0(CB);.79);L1$;.|
00001690: A5 1E F6 09 99 C7 28 31 37 33 29 3B 4C 24 3B C7 |......(173);L$;.|
000016A0: 28 31 38 39 29 00 C1 1E 00 0A 99 20 22 4E 55 4D |(189)...... "NUM|
000016B0: 42 45 52 20 4F 46 20 42 4F 44 49 45 53 3A 22 4E |BER OF BODIES:"N|
000016C0: 42 00 E2 1E 0A 0A 99 20 22 54 49 4D 45 20 49 4E |B...... "TIME IN|
000016D0: 54 45 52 56 41 4C 3A 22 44 54 3B 54 55 24 28 53 |TERVAL:"DT;TU$(S|
000016E0: 59 29 00 FF 1E 14 0A 99 20 22 55 4E 49 54 20 53 |Y)...... "UNIT S|
000016F0: 59 53 54 45 4D 3A 20 22 55 4E 24 28 53 59 29 00 |YSTEM: "UN$(SY).|
00001700: 22 1F 1E 0A 8B 20 53 50 20 A7 20 99 20 22 53 50 |".... SP . . "SP|
00001710: 52 49 54 45 20 4D 4F 44 45 22 3B C7 28 31 37 29 |RITE MODE";.(17)|
00001720: 3A 8E 00 43 1F 28 0A 99 20 22 48 49 52 45 53 20 |:..C.(.. "HIRES |
00001730: 50 4F 49 4E 54 20 4D 4F 44 45 22 3B C7 28 31 37 |POINT MODE";.(17|
00001740: 29 3A 8E 00 49 1F 32 0A 3A 00 5C 1F 3C 0A 8F 20 |):..I.2.:.\.<.. |
00001750: 44 49 53 50 4C 41 59 20 4D 45 4E 55 00 8B 1F 46 |DISPLAY MENU...F|
00001760: 0A 99 20 22 12 45 92 58 49 54 20 20 20 20 20 20 |.. ".E.XIT |
00001770: 20 12 50 92 4C 4F 54 20 20 20 20 20 20 20 12 4E | .P.LOT .N|
00001780: 92 45 57 20 53 59 53 54 45 4D 22 00 B4 1F 50 0A |.EW SYSTEM"...P.|
00001790: 99 20 22 53 12 43 92 41 4C 45 20 20 20 20 20 20 |. "S.C.ALE |
000017A0: 12 44 92 49 53 50 4C 41 59 20 20 20 20 12 4C 92 |.D.ISPLAY .L.|
000017B0: 4F 41 44 22 00 E9 1F 5A 0A 99 20 22 12 53 92 41 |OAD"...Z.. ".S.A|
000017C0: 56 45 20 20 20 20 20 20 20 12 46 31 92 20 50 52 |VE .F1. PR|
000017D0: 45 56 20 42 4F 44 59 20 20 20 12 46 37 92 20 4E |EV BODY .F7. N|
000017E0: 45 58 54 20 42 4F 44 59 22 00 18 20 64 0A 99 20 |EXT BODY".. d.. |
000017F0: 22 12 58 92 20 50 4F 53 49 54 49 4F 4E 20 12 59 |".X. POSITION .Y|
00001800: 92 20 50 4F 53 49 54 49 4F 4E 20 12 5A 92 20 50 |. POSITION .Z. P|
00001810: 4F 53 49 54 49 4F 4E 22 00 47 20 6E 0A 99 20 22 |OSITION".G n.. "|
00001820: 12 55 92 20 56 45 4C 4F 43 49 54 59 20 12 56 92 |.U. VELOCITY .V.|
00001830: 20 56 45 4C 4F 43 49 54 59 20 12 57 92 20 56 45 | VELOCITY .W. VE|
00001840: 4C 4F 43 49 54 59 22 00 72 20 78 0A 99 20 22 12 |LOCITY".r x.. ".|
00001850: 4D 92 41 53 53 20 20 20 20 20 20 20 12 54 92 49 |M.ASS .T.I|
00001860: 4D 45 20 20 20 20 20 20 20 12 52 92 45 4E 41 4D |ME .R.ENAM|
00001870: 45 22 00 78 20 82 0A 8E 00 99 20 8C 0A 8F 20 50 |E".x ..... ... P|
00001880: 4C 4F 54 20 50 4F 49 4E 54 20 4F 4E 20 48 49 52 |LOT POINT ON HIR|
00001890: 45 53 20 53 43 52 45 45 4E 00 AB 20 96 0A 8B 20 |ES SCREEN.. ... |
000018A0: 53 50 B2 31 20 A7 20 32 37 35 30 00 CD 20 A0 0A |SP.1 . 2750.. ..|
000018B0: 4D 4C B2 48 52 AA 28 59 AF 43 38 29 AC 43 46 AA |ML.HR.(Y.C8).CF.|
000018C0: 28 59 AF 43 37 29 AA 28 58 AF 43 34 29 00 E5 20 |(Y.C7).(X.C4).. |
000018D0: AA 0A 97 20 4D 4C 2C C2 28 4D 4C 29 B0 45 58 28 |... ML,.(ML).EX(|
000018E0: 58 AF 43 37 29 00 EB 20 B4 0A 8E 00 F9 20 BE 0A |X.C7).. ..... ..|
000018F0: 8B 20 49 B1 38 20 A7 20 8E 00 0B 21 C8 0A 58 B2 |. I.8 . ...!..X.|
00001900: 58 AA 32 34 3A 59 B2 59 AA 35 30 00 21 21 D2 0A |X.24:Y.Y.50.!!..|
00001910: 97 20 56 49 AA 28 49 AB 31 29 AC 32 2C 58 AF 43 |. VI.(I.1).2,X.C|
00001920: 35 00 32 21 DC 0A 97 20 56 49 AA 49 AC 32 AB 31 |5.2!... VI.I.2.1|
00001930: 2C 59 00 4E 21 E6 0A 8B 58 B1 43 35 A7 97 48 49 |,Y.N!...X.C5..HI|
00001940: 2C C2 28 48 49 29 B0 45 32 28 49 AB 31 29 00 70 |,.(HI).E2(I.1).p|
00001950: 21 F0 0A 8B 58 B3 32 35 36 A7 97 48 49 2C C2 28 |!...X.256..HI,.(|
00001960: 48 49 29 AF 28 43 35 AB 45 32 28 49 AB 31 29 29 |HI).(C5.E2(I.1))|
00001970: 00 76 21 FA 0A 8E 00 99 21 04 0B 8F 20 4D 4C 20 |.v!.....!... ML |
00001980: 43 4F 44 45 20 46 4F 52 20 48 49 47 48 20 53 50 |CODE FOR HIGH SP|
00001990: 45 45 44 20 45 52 41 53 45 00 A5 21 0E 0B 49 B2 |EED ERASE..!..I.|
000019A0: 34 39 31 35 32 00 B7 21 18 0B 87 4D 43 3A 8B 4D |49152..!...MC:.M|
000019B0: 43 B2 32 35 36 A7 8E 00 CD 21 22 0B 97 49 2C 4D |C.256....!"..I,M|
000019C0: 43 3A 49 B2 49 AA 31 3A 89 32 38 34 30 00 F3 21 |C:I.I.1:.2840..!|
000019D0: 2C 0B 83 31 37 33 2C 35 32 2C 33 2C 20 31 33 33 |,..173,52,3, 133|
000019E0: 2C 32 2C 20 31 37 33 2C 35 33 2C 33 2C 20 31 33 |,2, 173,53,3, 13|
000019F0: 33 2C 33 00 0E 22 36 0B 83 31 36 35 2C 32 35 31 |3,3.."6..165,251|
00001A00: 2C 20 31 36 30 2C 30 2C 20 31 36 36 2C 33 00 42 |, 160,0, 166,3.B|
00001A10: 22 40 0B 83 31 34 35 2C 32 2C 20 32 33 36 2C 35 |"@..145,2, 236,5|
00001A20: 35 2C 33 2C 20 32 30 38 2C 37 2C 20 31 36 36 2C |5,3, 208,7, 166,|
00001A30: 32 2C 20 32 33 36 2C 35 34 2C 33 2C 20 32 34 30 |2, 236,54,3, 240|
00001A40: 2C 39 00 72 22 4A 0B 83 32 33 30 2C 32 2C 20 32 |,9.r"J..230,2, 2|
00001A50: 30 38 2C 32 33 36 2C 20 32 33 30 2C 33 2C 20 37 |08,236, 230,3, 7|
00001A60: 36 2C 31 34 2C 31 39 32 2C 20 39 36 2C 20 20 32 |6,14,192, 96, 2|
00001A70: 35 36 00 9B 22 54 0B 99 20 C7 28 31 34 37 29 3B |56.."T.. .(147);|
00001A80: 22 D3 45 4C 45 43 54 20 41 20 53 59 53 54 45 4D |".ELECT A SYSTEM|
00001A90: 20 4F 46 20 55 4E 49 54 53 2E 22 00 C6 22 5E 0B | OF UNITS.".."^.|
00001AA0: 99 20 C7 28 31 37 29 3B 22 31 2E 20 31 20 50 49 |. .(17);"1. 1 PI|
00001AB0: 58 45 4C 20 3D 20 31 30 5E 37 20 4B 49 4C 4F 4D |XEL = 10^7 KILOM|
00001AC0: 45 54 45 52 53 22 00 E9 22 68 0B 99 20 22 20 20 |ETERS".."h.. " |
00001AD0: 20 31 20 4D 41 53 53 20 3D 20 31 30 30 30 20 4B | 1 MASS = 1000 K|
00001AE0: 49 4C 4F 47 52 41 4D 53 22 00 03 23 72 0B 99 20 |ILOGRAMS"..#r.. |
00001AF0: 22 20 20 20 31 20 54 49 4D 45 20 3D 20 31 20 44 |" 1 TIME = 1 D|
00001B00: 41 59 22 00 32 23 7C 0B 99 20 C7 28 31 37 29 3B |AY".2#|.. .(17);|
00001B10: 22 32 2E 20 31 20 50 49 58 45 4C 20 3D 20 31 20 |"2. 1 PIXEL = 1 |
00001B20: C1 D5 20 28 45 41 52 54 48 20 52 41 44 49 55 53 |.. (EARTH RADIUS|
00001B30: 29 22 00 53 23 86 0B 99 20 22 20 20 20 31 20 4D |)".S#... " 1 M|
00001B40: 41 53 53 20 3D 20 31 20 45 41 52 54 48 20 4D 41 |ASS = 1 EARTH MA|
00001B50: 53 53 22 00 6D 23 90 0B 99 20 22 20 20 20 31 20 |SS".m#... " 1 |
00001B60: 54 49 4D 45 20 3D 20 31 20 44 41 59 22 00 98 23 |TIME = 1 DAY"..#|
00001B70: 9A 0B 99 20 C7 28 31 37 29 3B 22 33 2E 20 31 20 |... .(17);"3. 1 |
00001B80: 50 49 58 45 4C 20 3D 20 31 30 30 30 20 4B 49 4C |PIXEL = 1000 KIL|
00001B90: 4F 4D 45 54 45 52 53 22 00 B7 23 A4 0B 99 20 22 |OMETERS"..#... "|
00001BA0: 20 20 20 31 20 4D 41 53 53 20 3D 20 31 20 4B 49 | 1 MASS = 1 KI|
00001BB0: 4C 4F 47 52 41 4D 22 00 D4 23 AE 0B 99 20 22 20 |LOGRAM"..#... " |
00001BC0: 20 20 31 20 54 49 4D 45 20 3D 20 31 20 53 45 43 | 1 TIME = 1 SEC|
00001BD0: 4F 4E 44 22 00 EE 23 B8 0B 99 3A 20 85 22 D7 48 |OND"..#...: .".H|
00001BE0: 49 43 48 20 53 59 53 54 45 4D 22 3B 53 59 00 02 |ICH SYSTEM";SY..|
00001BF0: 24 C2 0B 8B 20 53 59 B3 31 B0 53 59 B1 33 A7 33 |$... SY.1.SY.3.3|
00001C00: 37 30 00 0E 24 CC 0B 81 49 B2 31 A4 4E 42 00 26 |70..$...I.1.NB.&|
00001C10: 24 D6 0B 47 4D 28 49 29 B2 47 AC 4D 28 49 29 AC |$..GM(I).G.M(I).|
00001C20: 55 4E 28 53 59 29 00 2C 24 E0 0B 82 00 36 24 EA |UN(SY).,$....6$.|
00001C30: 0B 89 20 33 37 30 00 3C 24 F4 0B 3A 00 56 24 FE |.. 370.<$..:.V$.|
00001C40: 0B 8F 20 53 57 49 54 43 48 20 50 4C 4F 54 20 53 |.. SWITCH PLOT S|
00001C50: 59 53 54 45 4D 53 00 6E 24 08 0C 8B 20 53 50 B2 |YSTEMS.n$... SP.|
00001C60: 31 20 A7 20 53 50 B2 30 3A 89 20 33 37 30 00 77 |1 . SP.0:. 370.w|
00001C70: 24 12 0C 53 50 B2 31 00 B0 24 1C 0C 81 49 B2 31 |$..SP.1..$...I.1|
00001C80: 35 38 37 32 A4 31 35 38 37 32 AA 38 AC 36 34 3A |5872.15872.8.64:|
00001C90: 97 49 2C 2E 3A 82 3A 8F 20 42 4C 41 4E 4B 20 4F |.I,.:.:. BLANK O|
00001CA0: 55 54 20 53 50 52 49 54 45 20 49 4D 41 47 45 53 |UT SPRITE IMAGES|
00001CB0: 00 EE 24 26 0C 81 49 B2 30 A4 37 3A 97 31 35 38 |..$&..I.0.7:.158|
00001CC0: 37 32 AA 49 AC 36 34 2C 32 32 34 3A 97 31 35 38 |72.I.64,224:.158|
00001CD0: 37 35 AA 49 AC 36 34 2C 32 32 34 3A 82 3A 8F 20 |75.I.64,224:.:. |
00001CE0: 46 4F 52 4D 20 44 4F 54 20 53 48 41 50 45 00 1F |FORM DOT SHAPE..|
00001CF0: 25 30 0C 81 49 B2 30 A4 37 3A 97 32 30 34 30 AA |%0..I.0.7:.2040.|
00001D00: 49 2C 32 34 38 AA 49 3A 82 3A 8F 20 53 45 54 20 |I,248.I:.:. SET |
00001D10: 53 50 52 49 54 45 20 50 4F 49 4E 54 45 52 53 00 |SPRITE POINTERS.|
00001D20: 4D 25 3A 0C 81 49 B2 30 A4 37 3A 97 56 49 AA 33 |M%:..I.0.7:.VI.3|
00001D30: 39 AA 49 2C 49 AA 31 3A 82 3A 8F 20 53 45 54 20 |9.I,I.1:.:. SET |
00001D40: 53 50 52 49 54 45 20 43 4F 4C 4F 52 53 00 7C 25 |SPRITE COLORS.|%|
00001D50: 44 0C 97 20 56 49 AA 32 39 2C 30 20 20 3A 97 20 |D.. VI.29,0 :. |
00001D60: 56 49 AA 32 33 2C 30 20 20 3A 8F 20 43 4F 4D 50 |VI.23,0 :. COMP|
00001D70: 52 45 53 53 20 53 50 52 49 54 45 53 00 86 25 4E |RESS SPRITES..%N|
00001D80: 0C 89 20 33 37 30 00 99 25 58 0C 81 44 45 B2 31 |.. 370..%X..DE.1|
00001D90: A4 31 35 30 30 3A 82 3A 8E 00 BD 25 62 0C 84 31 |.1500:.:...%b..1|
00001DA0: 35 2C 45 52 24 28 31 29 2C 45 52 24 28 32 29 2C |5,ER$(1),ER$(2),|
00001DB0: 45 52 24 28 33 29 2C 45 52 24 28 34 29 00 D0 25 |ER$(3),ER$(4)..%|
00001DC0: 6C 0C 45 52 B2 C5 28 45 52 24 28 31 29 29 3A 8E |l.ER..(ER$(1)):.|
00001DD0: 00 EB 25 76 0C 43 42 B2 43 42 AB 31 3A 8B 20 43 |..%v.CB.CB.1:. C|
00001DE0: 42 B3 31 20 A7 20 43 42 B2 4E 42 00 16 26 80 0C |B.1 . CB.NB..&..|
00001DF0: 99 C7 28 31 39 29 C7 28 31 37 29 C7 28 31 37 29 |..(19).(17).(17)|
00001E00: 3B 42 24 3B 42 24 3B 42 24 3B 42 24 3B 42 24 3A |;B$;B$;B$;B$;B$:|
00001E10: 99 C7 28 31 39 29 00 21 26 8A 0C 8D 20 32 34 38 |..(19).!&... 248|
00001E20: 30 00 44 26 94 0C 81 49 B2 31 A4 36 3A 99 C7 28 |0.D&...I.1.6:..(|
00001E30: 31 37 29 3B 3A 82 49 3A 99 C7 28 32 39 29 3B 3A |17);:.I:..(29);:|
00001E40: 89 34 31 30 00 5F 26 9E 0C 43 42 B2 43 42 AA 31 |.410._&..CB.CB.1|
00001E50: 3A 8B 20 43 42 B1 4E 42 20 A7 20 43 42 B2 31 00 |:. CB.NB . CB.1.|
00001E60: 6A 26 A8 0C 89 20 33 32 30 30 00 82 26 B2 0C 97 |j&... 3200..&...|
00001E70: 35 33 32 37 32 2C C2 28 35 33 32 37 32 29 AF 32 |53272,.(53272).2|
00001E80: 34 37 00 9A 26 BC 0C 97 35 33 32 36 35 2C C2 28 |47..&...53265,.(|
00001E90: 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):..Y.
... 1000KM-KG-SEC...... 2820.J...G.6.67E
.11:SY.1:CF.40:C4.504:C7.7:C8.248:VI.532
48:HI.VI.16:C5.255.....HR.16.1024:O$."EP
NCDLS".G(133).G(136)."XYZUVWMTR":SP.0.:.
..NB.0:DT.10:D2.DT.DT.2:D3.D2.DT.3:D4.D3
.DT.4:CB.1.U....I.0.7:EX(I).2.(7.I):..L.
"..I.0.7:E2(I).2.I:....,.UN(1).1000.8640
0.2.1E10.3...6.UN(2).5.9742E24.86400.2.1
.4959789E11.3.G.@.UN(3).1.1E6.3...J.. 53
280,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).D.H.:.T.R
.. MAIN LOOP._.|.. 2460.J.... 2620.U....
">";...... A$:.A$."". 410......I.1.18:.
A$.J(O$,I,1). .A$:. 450............ 410.
..B.. I . 490,510,1970,2900,3070,2110,22
50,3190,3230.".L.. I.18 . ."NEW NAME OF
BODY";N$(CB):. 370.6.V.."NEW VALUE";NV.J
.... I.9 . 2390,2400,2410,2420,2430,2440
,2380,2450......55,B(2038):.56,B(2039):.
:......:...... PLOT TRAJECTORIES...... N
B.0 . . "NO BODIES IN CURRENT SYSTEM.":.
370...... SP . 610:. SKIP HIRES FOR SPR
ITES...... SET UP HIRES SCREEN.V.&.. 565
78,B(56578).3:. SWITCH TO VIC BANK 1 (16
K-32K).S.0.. 56576,(B(56576).252).2...:.
. 53272,(B(53272).15).128:. CHAR SCREEN
IS IN 9TH K.Z.D.. 53265,B(53265).32:. TU
RN ON HIRES SCREEN...N.. 820,0:. 821,64:
. 822,0:. 823,96:. 251,0:. 49152.I.X.. 8
20,0:. 821,96:. 822,231:. 823,99:. 251,1
6:. 49152.A.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).
....T.0.E...:...... MOVE START PARAMETER
S TO WORKING ARRAYS......I.1.NB.....X(I)
.X0(I).....Y(I).Y0(I).,...Z(I).Z0(I).;.F
.U(I).U0(I).J.P.V(I).V0(I).Y.Z.W(I).W0(I
)._.......... COMPUTE ACCEL AT TIME DT B
EFORE START......I.1.NB.....A0(I)..:B0(I
)..:C0(I).........E....I.1.NB.X. .AX..:A
Y..:AZ.....*..J.1.NB...4..I.J.910...>.DX
.X(J).X(I)...H.DY.Y(J).Y(I).$.R.DZ.Z(J).
Z(I).?.\.R..(DX.DX.DY.DY.DZ.DZ).R.F.R3.R
.R.R.GM(J).B.P.AX.AX.DX.R3.R.Z.AY.AY.DY.
R3.....AZ.AZ.DZ.R3...........X1(I).X(I).
U(I).DT.AX.D2.B...Y1(I).Y(I).V(I).DT.AY.
D2.....Z1(I).Z(I).W(I).DT.AZ.D2.........
...I.1.NB...J.AX..:AY..:AZ.....T..J.1.NB
......I.J.1080.1...DX.X1(J).X1(I).D...DY
.Y1(J).Y1(I).W...DZ.Z1(J).Z1(I).R...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...8...H.B.A0(I).AX.U.L.B0(I).AY...
V.C0(I).AZ...`.....J.:...T.. CALCULATE N
EW SYSTEM STATE...~..I.1.NB.=...A1..:B1.
.:C1..:A2..:B2..:C2...I....J.1.NB.W....I
.J.1270.H...DX.X(J).X(I).Y...DY.Y(J).Y(I
).....DZ.Z(J).Z(I)...D.R..(DX.DX.DY.DY.D
Z.DZ)...N.R3.R.R.R.GM(J).H.X.A1.A1.DX.R3
.X...B1.B1.DY.R3.....C1.C1.DZ.R3........
...J0.(A1.A0(I)).DT.....K0.(B1.B0(I)).DT
.-...L0.(C1.C0(I)).DT.M...X2.X(I).U(I).D
T.A1.D2.J0.D3.M.(.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.E
.Z.DY.Y(J).Y2.T.D.DZ.Z(J).Z2...N.R..(DX.
DX.DY.DY.DZ.DZ)...X.R3.R.R.R.GM(J).....A
2.A2.DX.R3."...B2.B2.DY.R3.2...C2.C2.DZ.
R3.8. ...J...J1.(A2.A1).DT.\...K1.(B2.B1
).DT.N...L1.(C2.C1).DT...H.M1.(A2.2.A1.A
0(I)).(DT.DT)...R.N1.(B2.2.B1.B0(I)).(DT
.DT).K...O1.(C2.2.C1.C0(I)).(DT.DT).....
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.F.
..Z1(I).Z(I).W(I).DT.C1.D2.L1.D3.O1.D4.G
...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.C.,.B0(I)
.B1.P.6.C0(I).C1.V.@.....J.:...T..I.1.NB
...^.X(I).X1(I)...H.Y(I).Y1(I)...R.Z(I).
Z1(I).$.|.U(I).U1(I).3...V(I).V1(I).B...
W(I).W1(I).C...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.G.V..A$:.A$."".1150.M...:...... REST
ORE CHARACTER SCREEN......53265,B(53265)
.223...... 56578,B(56578).3.8.... 56576,
(B(56576).252).3.U.... 53272,(B(53272).1
5).16.V.... VI.21,0:. TURN OFF SPRITES..
.&.. 53281,0...0.. A$.G(133) . 1860...:.
. 370...D.. G(17);"STORING PRESENT SYSTE
M IN MEMORY.":. 3160...N.. I.1 . NB...X.
X0(I).X(I)...B.Y0(I).Y(I)...L.Z0(I).Z(I)
.'.V.U0(I).U(I).6...V0(I).V(I).E...W0(I)
.W(I).M.... I.W.... 370.]...:.|.... GET
NEW SYSTEM FROM USER......"NUMBER OF BOD
IES";NB...F..NB.1.NB.50.370...P.. I.1 .
NB.J.Z.CB.I:. 2460......"NAME OF BODY"I;
:.N$(I)......C(N$(I)).25.2020......"MASS
OF BODY"I;.2.... M(I):GM(I).G.M(I).UN(S
Y).H...."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.:...>.. LOAD SYSTEM DESCRIP
TION FROM DISK...H.. "LOAD SYSTEM DATA F
ROM DISK.".#.R.."TYPE NAME OF DATA FILE"
;A$.H.\.. C(A$).13 . ."TOO LONG.":. 2130
.P.F.. 15,8,15:. 2,8,2,"0:".A$.".NB,S,R"
.{.P.. 3170...Z.. ER..0 . . ER$(1);ER$(2
);ER$(3);ER$(4):. 3160:. 2230.B....2,SY,
NB.N....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).".....4... 2: 15:CB.1.>..
.. 370.`.J.. SAVE CURRENT SYSTEM TO DISK
.}.T.. "SAVE CURRENT SYSTEM."......"TYPE
NAME OF FILE";A$.C.... C(A$).13 . ."NAM
E TOO LONG.":. 2250.Z.... 15,8,15:C$.G(1
3)...... 2,8,2,"0:".A$.".NB,S,W"...... 3
170.=.... ER..0 . . ER$(1);ER$(2);ER$(3)
;ER$(4):. 3160:. 2230.M....2,SY;C$;NB.Y.
$..I.1.NB._.8...R.B. 2: 15:. 370...L.M
(CB).NV:GM(CB).G.M(CB).UN(SY):. 370...V.
X0(CB).NV:. 370.C.`.Y0(CB).NV:. 370.W.J.
Z0(CB).NV:. 370...T.U0(CB).NV:. 370...~.
V0(CB).NV:. 370.....W0(CB).NV:. 370.D...
DT.NV:D2.DT.DT.2:D3.D2.DT.3:D4.D3.DT.4:.
370.H.... DISPLAY CURRENT SYSTEM VALUES
......G(147)" N-BODY SIMULATO
R"......G(176);L$;G(174);.....L1$.G(221)
.Z.D..L1$" NAME: "N$(CB);.79);L1$;...N..
L1$" BODY #"CB;.17)"MASS:"M(CB);.39)L1$;
.5.X..L1$" X:"X0(CB);.60)"U:"U0(CB);.79)
;L1$;.B....L1$" Y:"Y0(CB);.20)"V:"V0(CB)
;.39);L1$;......L1$" Z:"Z0(CB);.60)"W:"W
0(CB);.79);L1$;......G(173);L$;G(189).A.
... "NUMBER OF BODIES:"NB...... "TIME IN
TERVAL:"DT;TU$(SY)...... "UNIT SYSTEM: "
UN$(SY).".... SP . . "SPRITE MODE";G(17)
:..C.(.. "HIRES POINT MODE";G(17):..I.2.
:.\.<.. DISPLAY MENU...F.. ".E.XIT
.P.LOT .N.EW SYSTEM"...P.. "S.C.A
LE .D.ISPLAY .L.OAD"...Z.. ".S.A
VE .F1. PREV BODY .F7. NEXT BODY
".. D.. ".X. POSITION .Y. POSITION .Z. P
OSITION".G N.. ".U. VELOCITY .V. VELOCIT
Y .W. VELOCITY".R X.. ".M.ASS .T.I
ME .R.ENAME".X ..... ... PLOT POIN
T ON HIRES SCREEN.. ... SP.1 . 2750.M .
ML.HR.(Y.C8).CF.(Y.C7).(X.C4).. ... ML,B
(ML).EX(X.C7).. ..... ... I.8 . ...!H.X.
X.24:Y.Y.50.!!R.. VI.(I.1).2,X.C5.2!...
VI.I.2.1,Y.N!...X.C5..HI,B(HI).E2(I.1).P
!...X.256..HI,B(HI).(C5.E2(I.1)).V!.....
!... ML CODE FOR HIGH SPEED ERASE..!..I.
49152..!...MC:.MC.256...M!"..I,MC:I.I.1:
.2840..!,..173,52,3, 133,2, 173,53,3, 13
3,3.."6..165,251, 160,0, 166,3.B"@..145,
2, 236,55,3, 208,7, 166,2, 236,54,3, 240
,9.R"J..230,2, 208,236, 230,3, 76,14,192
, 96, 256.."T.. G(147);"SELECT A SYSTEM
OF UNITS.".F"^.. G(17);"1. 1 PIXEL = 10
^7 KILOMETERS".."H.. " 1 MASS = 1000 K
ILOGRAMS"..#R.. " 1 TIME = 1 DAY".2#|.
. G(17);"2. 1 PIXEL = 1 AU (EARTH RADIUS
)".S#... " 1 MASS = 1 EARTH MASS".M#..
. " 1 TIME = 1 DAY"..#... G(17);"3. 1
PIXEL = 1000 KILOMETERS"..#... " 1 MAS
S = 1 KILOGRAM".T#... " 1 TIME = 1 SEC
OND"..#...: ."WHICH SYSTEM";SY..$B.. SY.
1.SY.3.370..$L..I.1.NB.&$V.GM(I).G.M(I).
UN(SY).,$....6$... 370.<$..:.V$... SWITC
H PLOT SYSTEMS.N$... SP.1 . SP.0:. 370.W
$..SP.1..$...I.15872.15872.8.64:.I,.:.:.
BLANK OUT SPRITE IMAGES..$&..I.0.7:.158
72.I.64,224:.15875.I.64,224:.:. FORM DOT
SHAPE..%0..I.0.7:.2040.I,248.I:.:. SET
SPRITE POINTERS.M%:..I.0.7:.VI.39.I,I.1:
.:. SET SPRITE COLORS.|%D.. VI.29,0 :.
VI.23,0 :. COMPRESS SPRITES..%N.. 370..
%X..DE.1.1500:.:...%B..15,ER$(1),ER$(2),
ER$(3),ER$(4).P%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).!&... 2480.D&...I
.1.6:.G(17);:.I:.G(29);:.410._&..CB.CB.1
:. CB.NB . CB.1.J&... 3200..&...53272,B(
53272).247..&...53265,B(53265).223...
> CLICK IMAGE PREVIEW FOR FULL MODAL