/ RISCWORLD 3 / RISCWORLD_VOL3.iso / SOFTWARE / AGM / Attract

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 41 74 74 72 61 63 74 0d |..... > |Attract.|
|00000010| 00 14 05 3a 0d 00 1e 10 | ee 20 85 20 f2 65 72 72 |...:....|. . .err|
|00000020| 6f 72 3a e0 0d 00 28 0f | f2 69 6e 69 74 69 61 6c |or:...(.|.initial|
|00000030| 69 73 65 0d 00 32 24 f1 | 20 8a 33 30 2c 31 32 29 |ise..2$.| .30,12)|
|00000040| 20 22 50 72 65 73 73 20 | 45 73 63 61 70 65 20 74 | "Press |Escape t|
|00000050| 6f 20 73 74 6f 70 22 0d | 00 3c 0b e7 20 a6 20 31 |o stop".|.<.. . 1|
|00000060| 30 30 0d 00 46 13 e3 20 | 49 25 3d 30 20 b8 20 6c |00..F.. |I%=0 . l|
|00000070| 6f 6f 70 73 25 0d 00 50 | 0b 66 6c 61 67 25 3d a3 |oops%..P|.flag%=.|
|00000080| 0d 00 5a 0a e7 20 a6 20 | 35 30 0d 00 64 05 da 0d |..Z.. . |50..d...|
|00000090| 00 6e 13 f3 20 6d 61 73 | 73 31 25 2c 6d 61 73 73 |.n.. mas|s1%,mass|
|000000a0| 32 25 0d 00 78 11 f3 20 | 78 31 2c 79 31 2c 78 32 |2%..x.. |x1,y1,x2|
|000000b0| 2c 79 32 0d 00 82 15 f3 | 20 64 78 31 2c 64 79 31 |,y2.....| dx1,dy1|
|000000c0| 2c 64 78 32 2c 64 79 32 | 0d 00 8c 17 72 61 74 69 |,dx2,dy2|....rati|
|000000d0| 6f 3d 6d 61 73 73 31 25 | 2f 6d 61 73 73 32 25 0d |o=mass1%|/mass2%.|
|000000e0| 00 96 09 f2 70 6c 6f 74 | 0d 00 a0 05 f5 0d 00 aa |....plot|........|
|000000f0| 06 c8 96 0d 00 b4 14 c8 | 99 20 62 79 74 65 25 2c |........|. byte%,|
|00000100| 31 31 33 2c 73 63 25 0d | 00 be 0f 73 63 25 3d 73 |113,sc%.|...sc%=s|
|00000110| 63 25 20 82 20 33 0d 00 | c8 14 c8 99 20 62 79 74 |c% . 3..|.... byt|
|00000120| 65 25 2c 31 31 32 2c 73 | 63 25 0d 00 d2 05 db 0d |e%,112,s|c%......|
|00000130| 00 dc 1c 64 69 73 74 3d | 28 78 32 2d 78 31 29 5e |...dist=|(x2-x1)^|
|00000140| 32 2b 28 79 32 2d 79 31 | 29 5e 32 0d 00 e6 2f e7 |2+(y2-y1|)^2.../.|
|00000150| 20 64 69 73 74 3c 31 20 | 64 69 73 74 3d 31 3a f4 | dist<1 |dist=1:.|
|00000160| 20 70 72 65 76 65 6e 74 | 73 20 64 69 76 69 73 69 | prevent|s divisi|
|00000170| 6f 6e 20 62 79 20 7a 65 | 72 6f 0d 00 f0 20 61 74 |on by ze|ro... at|
|00000180| 74 72 61 63 74 3d 28 6d | 61 73 73 31 25 2a 6d 61 |tract=(m|ass1%*ma|
|00000190| 73 73 32 25 29 2f 64 69 | 73 74 0d 00 fa 10 78 73 |ss2%)/di|st....xs|
|000001a0| 25 3d b4 28 78 32 2d 78 | 31 29 0d 01 04 10 79 73 |%=.(x2-x|1)....ys|
|000001b0| 25 3d b4 28 79 32 2d 79 | 31 29 0d 01 0e 1c 64 78 |%=.(y2-y|1)....dx|
|000001c0| 31 2b 3d 28 61 74 74 72 | 61 63 74 2f 72 61 74 69 |1+=(attr|act/rati|
|000001d0| 6f 2a 78 73 25 29 0d 01 | 18 1c 64 78 32 2d 3d 28 |o*xs%)..|..dx2-=(|
|000001e0| 61 74 74 72 61 63 74 2a | 72 61 74 69 6f 2a 78 73 |attract*|ratio*xs|
|000001f0| 25 29 0d 01 22 1c 64 79 | 31 2b 3d 28 61 74 74 72 |%)..".dy|1+=(attr|
|00000200| 61 63 74 2f 72 61 74 69 | 6f 2a 79 73 25 29 0d 01 |act/rati|o*ys%)..|
|00000210| 2c 1c 64 79 32 2d 3d 28 | 61 74 74 72 61 63 74 2a |,.dy2-=(|attract*|
|00000220| 72 61 74 69 6f 2a 79 73 | 25 29 0d 01 36 0b 78 31 |ratio*ys|%)..6.x1|
|00000230| 2b 3d 64 78 31 0d 01 40 | 0b 78 32 2b 3d 64 78 32 |+=dx1..@|.x2+=dx2|
|00000240| 0d 01 4a 0b 79 31 2b 3d | 64 79 31 0d 01 54 0b 79 |..J.y1+=|dy1..T.y|
|00000250| 32 2b 3d 64 79 32 0d 01 | 5e 09 f2 70 6c 6f 74 0d |2+=dy2..|^..plot.|
|00000260| 01 68 21 e7 20 78 31 3c | 78 6d 69 6e 25 20 84 20 |.h!. x1<|xmin% . |
|00000270| 78 31 3e 78 6d 61 78 25 | 20 66 6c 61 67 25 3d b9 |x1>xmax%| flag%=.|
|00000280| 0d 01 72 21 e7 20 78 32 | 3c 78 6d 69 6e 25 20 84 |..r!. x2|<xmin% .|
|00000290| 20 78 32 3e 78 6d 61 78 | 25 20 66 6c 61 67 25 3d | x2>xmax|% flag%=|
|000002a0| b9 0d 01 7c 21 e7 20 79 | 32 3c 79 6d 69 6e 25 20 |...|!. y|2<ymin% |
|000002b0| 84 20 79 32 3e 79 6d 61 | 78 25 20 66 6c 61 67 25 |. y2>yma|x% flag%|
|000002c0| 3d b9 0d 01 86 21 e7 20 | 79 31 3c 79 6d 69 6e 25 |=....!. |y1<ymin%|
|000002d0| 20 84 20 79 31 3e 79 6d | 61 78 25 20 66 6c 61 67 | . y1>ym|ax% flag|
|000002e0| 25 3d b9 0d 01 90 24 e7 | 20 64 69 73 74 3c 28 6d |%=....$.| dist<(m|
|000002f0| 61 73 73 31 25 2b 6d 61 | 73 73 32 25 29 5e 32 20 |ass1%+ma|ss2%)^2 |
|00000300| 66 6c 61 67 25 3d b9 0d | 01 9a 0b fd 20 66 6c 61 |flag%=..|.... fla|
|00000310| 67 25 0d 01 a4 05 ed 0d | 01 ae 16 f1 27 22 45 6e |g%......|....'"En|
|00000320| 64 20 6f 66 20 70 72 6f | 67 72 61 6d 22 0d 01 b8 |d of pro|gram"...|
|00000330| 05 e0 0d 01 c2 05 3a 0d | 01 cc 0c dd 20 f2 65 72 |......:.|.... .er|
|00000340| 72 6f 72 0d 01 d6 08 eb | 20 31 32 0d 01 e0 18 e7 |ror.....| 12.....|
|00000350| 20 9f 3c 3e 31 37 20 f1 | 20 f6 24 20 22 20 40 20 | .<>17 .| .$ " @ |
|00000360| 22 3b 9e 0d 01 ea 05 e1 | 0d 01 f4 05 3a 0d 01 fe |";......|....:...|
|00000370| 11 dd 20 f2 69 6e 69 74 | 69 61 6c 69 73 65 0d 02 |.. .init|ialise..|
|00000380| 08 08 eb 20 31 35 0d 02 | 12 08 eb 20 31 32 0d 02 |... 15..|... 12..|
|00000390| 1c 05 87 0d 02 26 0f fb | 20 30 2c 30 2c 30 2c 31 |.....&..| 0,0,0,1|
|000003a0| 32 38 0d 02 30 32 c8 99 | 20 22 4f 53 5f 53 57 49 |28..02..| "OS_SWI|
|000003b0| 4e 75 6d 62 65 72 46 72 | 6f 6d 53 74 72 69 6e 67 |NumberFr|omString|
|000003c0| 22 2c 2c 22 4f 53 5f 42 | 79 74 65 22 20 b8 20 62 |",,"OS_B|yte" . b|
|000003d0| 79 74 65 25 0d 02 3a 09 | 73 63 25 3d 31 0d 02 44 |yte%..:.|sc%=1..D|
|000003e0| 0b 78 6d 69 6e 25 3d 30 | 0d 02 4e 0e 78 6d 61 78 |.xmin%=0|..N.xmax|
|000003f0| 25 3d 31 32 37 39 0d 02 | 58 0b 79 6d 69 6e 25 3d |%=1279..|X.ymin%=|
|00000400| 30 0d 02 62 0e 79 6d 61 | 78 25 3d 31 30 32 33 0d |0..b.yma|x%=1023.|
|00000410| 02 6c 07 f7 2b 33 0d 02 | 76 0c f3 20 6c 6f 6f 70 |.l..+3..|v.. loop|
|00000420| 73 25 0d 02 80 05 e1 0d | 02 8a 07 dc 20 33 0d 02 |s%......|.... 3..|
|00000430| 94 0b dc 20 32 30 2c 34 | 30 0d 02 9e 17 dc 20 33 |... 20,4|0..... 3|
|00000440| 32 30 2c 31 30 30 30 2c | 38 30 30 2c 31 30 30 30 |20,1000,|800,1000|
|00000450| 0d 02 a8 0f dc 20 30 2c | 2d 31 2c 30 2c 2d 33 0d |..... 0,|-1,0,-3.|
|00000460| 02 b2 0b dc 20 31 37 2c | 33 34 0d 02 bc 15 dc 20 |.... 17,|34..... |
|00000470| 37 36 38 2c 37 30 34 2c | 33 38 34 2c 34 34 38 0d |768,704,|384,448.|
|00000480| 02 c6 0f dc 20 2d 31 2c | 30 2c 2e 34 2c 30 0d 02 |.... -1,|0,.4,0..|
|00000490| d0 0b dc 20 33 32 2c 33 | 32 0d 02 da 16 dc 20 32 |... 32,3|2..... 2|
|000004a0| 35 36 2c 35 31 32 2c 31 | 30 32 33 2c 35 31 32 0d |56,512,1|023,512.|
|000004b0| 02 e4 15 dc 20 2e 34 2c | 2d 2e 37 35 2c 2d 2e 34 |.... .4,|-.75,-.4|
|000004c0| 2c 2e 37 35 0d 02 ee 0b | dc 20 38 2c 31 32 38 0d |,.75....|. 8,128.|
|000004d0| 02 f8 15 dc 20 32 35 36 | 2c 35 31 32 2c 36 34 30 |.... 256|,512,640|
|000004e0| 2c 35 31 32 0d 03 02 12 | dc 20 30 2c 38 2e 35 2c |,512....|. 0,8.5,|
|000004f0| 30 2c 2d 2e 30 33 0d 03 | 0c 05 3a 0d 03 16 0b dd |0,-.03..|..:.....|
|00000500| 20 f2 70 6c 6f 74 0d 03 | 20 07 e6 20 33 0d 03 2a | .plot..| .. 3..*|
|00000510| 16 c8 8f 20 c8 90 20 78 | 31 2c 79 31 2c 6d 61 73 |... .. x|1,y1,mas|
|00000520| 73 31 25 0d 03 34 07 e6 | 20 31 0d 03 3e 16 c8 8f |s1%..4..| 1..>...|
|00000530| 20 c8 90 20 78 32 2c 79 | 32 2c 6d 61 73 73 32 25 | .. x2,y|2,mass2%|
|00000540| 0d 03 48 05 e1 0d ff    |                         |..H.... |        |
+--------+-------------------------+-------------------------+--------+--------+