/ APDL Public Domain 2 / APDL_PD2A.iso / demos / demo_1 / gellosim

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 47 | 65 6c 6c 6f 53 69 6d 0d |..... >G|elloSim.|
|00000010| 00 14 05 3a 0d 00 1e 31 | f4 20 a9 20 31 39 39 31 |...:...1|. . 1991|
|00000020| 20 4e 69 6c 73 20 4b 72 | 61 68 6e 73 74 f6 76 65 | Nils Kr|ahnst.ve|
|00000030| 72 20 61 6e 64 20 54 6f | 72 20 4f 2e 20 48 6f 75 |r and To|r O. Hou|
|00000040| 67 68 74 6f 6e 0d 00 28 | 05 3a 0d 00 32 48 f4 20 |ghton..(|.:..2H. |
|00000050| 43 72 65 61 74 65 64 20 | 6f 6e 20 61 6e 20 41 6d |Created |on an Am|
|00000060| 69 67 61 20 35 30 30 2c | 20 62 75 74 20 68 65 6c |iga 500,| but hel|
|00000070| 6c 20 69 73 6e 27 74 20 | 74 68 61 74 20 66 2a 63 |l isn't |that f*c|
|00000080| 6b 69 6e 67 20 6d 61 63 | 68 69 6e 65 20 73 6c 6f |king mac|hine slo|
|00000090| 77 21 0d 00 3c 32 f4 20 | 57 6f 72 6b 73 20 66 69 |w!..<2. |Works fi|
|000000a0| 6e 65 20 6f 6e 20 6d 79 | 20 41 33 31 30 20 77 69 |ne on my| A310 wi|
|000000b0| 74 68 20 32 35 4d 48 7a | 20 41 52 4d 33 2e 2e 2e |th 25MHz| ARM3...|
|000000c0| 20 3a 2d 29 0d 00 46 43 | f4 20 48 6f 70 65 20 79 | :-)..FC|. Hope y|
|000000d0| 6f 75 27 72 65 20 67 6f | 69 6e 67 20 74 6f 20 62 |ou're go|ing to b|
|000000e0| 65 20 6f 6b 20 77 68 65 | 6e 20 79 6f 75 20 67 6f |e ok whe|n you go|
|000000f0| 20 62 61 63 6b 20 74 6f | 20 47 65 72 6d 61 6e 79 | back to| Germany|
|00000100| 2c 20 4e 69 6c 73 21 0d | 00 50 17 f4 20 54 68 65 |, Nils!.|.P.. The|
|00000110| 20 62 65 73 74 20 6f 66 | 20 6c 75 63 6b 21 0d 00 | best of| luck!..|
|00000120| 5a 05 3a 0d 00 64 1f ee | 20 85 20 eb 20 30 3a f6 |Z.:..d..| . . 0:.|
|00000130| 3a f1 20 22 20 61 74 20 | 6c 69 6e 65 20 22 3b 9e |:. " at |line ";.|
|00000140| 3a e0 0d 00 6e 05 3a 0d | 00 78 07 eb 20 30 0d 00 |:...n.:.|.x.. 0..|
|00000150| 79 05 87 0d 00 7a 05 3a | 0d 00 7b 4f f1 20 22 47 |y....z.:|..{O. "G|
|00000160| 65 6c 6c 79 20 73 69 6d | 75 6c 61 74 6f 72 20 2d |elly sim|ulator -|
|00000170| 20 32 44 20 76 65 72 73 | 69 6f 6e 20 6f 6e 6c 79 | 2D vers|ion only|
|00000180| 2e 20 4f 72 69 67 69 6e | 61 6c 20 63 6f 64 69 6e |. Origin|al codin|
|00000190| 67 20 62 79 20 4e 69 6c | 73 20 4b 72 61 68 6e 73 |g by Nil|s Krahns|
|000001a0| 74 f6 76 65 72 2e 22 0d | 00 7c 05 f1 0d 00 82 31 |t.ver.".|.|.....1|
|000001b0| f1 20 22 50 72 65 73 73 | 20 3c 53 50 41 43 45 3e |. "Press| <SPACE>|
|000001c0| 20 77 68 69 6c 65 20 69 | 6e 20 63 61 6c 63 20 6d | while i|n calc m|
|000001d0| 6f 64 65 20 74 6f 20 68 | 61 6c 74 2e 22 0d 00 8c |ode to h|alt."...|
|000001e0| 4c f1 20 22 50 72 65 73 | 73 20 3c 53 50 41 43 45 |L. "Pres|s <SPACE|
|000001f0| 3e 20 74 6f 20 74 6f 67 | 67 6c 65 20 62 65 74 77 |> to tog|gle betw|
|00000200| 65 65 6e 20 64 6f 74 73 | 20 61 6e 64 20 6c 69 6e |een dots| and lin|
|00000210| 65 73 20 77 68 69 6c 65 | 20 69 6e 20 72 65 70 6c |es while| in repl|
|00000220| 61 79 20 6d 6f 64 65 2e | 22 0d 00 96 41 f1 20 22 |ay mode.|"...A. "|
|00000230| 50 72 65 73 73 20 3c 52 | 45 54 55 52 4e 3e 20 77 |Press <R|ETURN> w|
|00000240| 68 69 6c 65 20 69 6e 20 | 72 65 70 6c 61 79 20 6d |hile in |replay m|
|00000250| 6f 64 65 20 74 6f 20 6a | 75 6d 70 20 74 6f 20 74 |ode to j|ump to t|
|00000260| 68 65 20 73 74 61 72 74 | 2e 22 0d 00 97 07 f1 27 |he start|.".....'|
|00000270| 27 0d 00 a0 05 3a 0d 00 | aa 23 e8 20 22 52 61 64 |'....:..|.#. "Rad|
|00000280| 69 75 73 20 28 35 30 29 | 20 20 20 20 20 20 20 20 |ius (50)|        |
|00000290| 20 20 20 20 20 3a 20 22 | 72 0d 00 b4 24 e8 20 22 |     : "|r...$. "|
|000002a0| 41 6e 63 68 6f 72 20 70 | 6f 69 6e 74 73 20 28 31 |Anchor p|oints (1|
|000002b0| 35 29 20 20 20 20 20 20 | 3a 20 22 6e 25 0d 00 be |5)      |: "n%...|
|000002c0| 24 e8 20 22 41 6e 63 68 | 6f 72 20 70 6f 69 6e 74 |$. "Anch|or point|
|000002d0| 20 66 6f 72 63 65 20 28 | 35 30 29 20 3a 20 22 6b | force (|50) : "k|
|000002e0| 70 0d 00 c8 24 e8 20 22 | 43 65 6e 74 72 65 20 70 |p...$. "|Centre p|
|000002f0| 6f 69 6e 74 20 66 6f 72 | 63 65 20 28 31 30 29 20 |oint for|ce (10) |
|00000300| 3a 20 22 6b 63 0d 00 d2 | 23 e8 20 22 41 6e 63 68 |: "kc...|#. "Anch|
|00000310| 6f 72 20 70 6f 69 6e 74 | 20 6d 61 73 73 20 28 31 |or point| mass (1|
|00000320| 29 20 20 20 3a 20 22 6d | 0d 00 dc 23 e8 20 22 47 |)   : "m|...#. "G|
|00000330| 72 61 76 69 74 79 20 28 | 39 2e 38 29 20 20 20 20 |ravity (|9.8)    |
|00000340| 20 20 20 20 20 20 20 3a | 20 22 67 0d 00 e6 28 e8 |       :| "g...(.|
|00000350| 20 22 53 74 61 72 74 76 | 65 6c 6f 63 69 74 79 20 | "Startv|elocity |
|00000360| 28 35 30 29 20 20 20 20 | 20 20 3a 20 22 79 73 70 |(50)    |  : "ysp|
|00000370| 65 65 64 0d 00 f0 05 3a | 0d 00 fa 07 eb 20 39 0d |eed....:|..... 9.|
|00000380| 01 04 05 87 0d 01 0e 05 | 3a 0d 01 18 0c 64 75 6d |........|:....dum|
|00000390| 6d 79 25 3d 30 0d 01 22 | 10 e7 20 6e 25 3d 30 20 |my%=0.."|.. n%=0 |
|000003a0| 6e 25 3d 31 35 0d 01 2c | 1d 61 3d a8 28 28 93 2d |n%=15..,|.a=.((.-|
|000003b0| b8 50 29 2f 28 28 6e 25 | 2b 31 29 2a 38 2b 32 38 |.P)/((n%|+1)*8+28|
|000003c0| 29 29 0d 01 36 0c f2 73 | 74 61 72 74 75 70 0d 01 |))..6..s|tartup..|
|000003d0| 40 1b f1 20 8a 30 2c 30 | 29 3b 22 46 72 61 6d 65 |@.. .0,0|);"Frame|
|000003e0| 73 20 74 6f 20 67 6f 3a | 22 0d 01 4a 05 f5 0d 01 |s to go:|"..J....|
|000003f0| 54 1c 20 20 f1 20 8a 31 | 34 2c 30 29 3b 61 2d 64 |T.  . .1|4,0);a-d|
|00000400| 75 6d 6d 79 25 3b 22 20 | 22 3b 0d 01 5e 0f 20 20 |ummy%;" |";..^.  |
|00000410| 64 75 6d 6d 79 25 2b 3d | 31 0d 01 68 11 20 20 f2 |dummy%+=|1..h.  .|
|00000420| 63 61 6c 63 5f 6d 6f 76 | 65 73 0d 01 72 20 fd 20 |calc_mov|es..r . |
|00000430| a6 28 30 29 3d 33 32 20 | 84 20 63 6f 75 6e 74 25 |.(0)=32 |. count%|
|00000440| 3e 28 6e 25 2a 61 2d 6e | 25 29 0d 01 7c 05 db 0d |>(n%*a-n|%)..|...|
|00000450| 01 86 05 f5 0d 01 90 0d | 20 20 f2 72 65 70 6c 61 |........|  .repla|
|00000460| 79 0d 01 9a 11 fd 20 a6 | 28 30 29 3d 97 28 22 51 |y..... .|(0)=.("Q|
|00000470| 22 29 0d 01 a4 05 e0 0d | 01 ae 05 3a 0d 01 b8 0d |")......|...:....|
|00000480| dd f2 73 74 61 72 74 75 | 70 0d 01 c2 09 20 20 70 |..startu|p....  p|
|00000490| 3d b9 0d 01 cc 0c 20 20 | 42 61 6e 6b 3d 31 0d 01 |=.....  |Bank=1..|
|000004a0| d6 0d 20 20 64 74 3d 30 | 2e 30 31 0d 01 e0 0f 20 |..  dt=0|.01.... |
|000004b0| 20 e7 20 6d 3d 30 20 6d | 3d 31 0d 01 ea 12 20 20 | . m=0 m|=1....  |
|000004c0| e7 20 6b 70 3d 30 20 6b | 70 3d 35 30 0d 01 f4 12 |. kp=0 k|p=50....|
|000004d0| 20 20 e7 20 6b 63 3d 30 | 20 6b 63 3d 31 30 0d 01 |  . kc=0| kc=10..|
|000004e0| fe 1d 20 20 e7 20 67 3d | 30 20 67 3d 39 2e 38 2a |..  . g=|0 g=9.8*|
|000004f0| 64 74 20 8b 20 67 3d 67 | 2a 64 74 0d 02 08 47 20 |dt . g=g|*dt...G |
|00000500| 20 de 20 78 70 28 6e 25 | 29 2c 79 70 28 6e 25 29 | . xp(n%|),yp(n%)|
|00000510| 2c 78 76 28 6e 25 29 2c | 79 76 28 6e 25 29 2c 79 |,xv(n%),|yv(n%),y|
|00000520| 76 32 28 6e 25 29 2c 78 | 66 28 6e 25 29 2c 79 66 |v2(n%),x|f(n%),yf|
|00000530| 28 6e 25 29 2c 78 25 28 | 6e 25 29 2c 79 25 28 6e |(n%),x%(|n%),y%(n|
|00000540| 25 29 0d 02 12 1b 20 20 | de 20 6b 78 25 28 6e 25 |%)....  |. kx%(n%|
|00000550| 2a 61 29 2c 6b 79 25 28 | 6e 25 2a 61 29 0d 02 1c |*a),ky%(|n%*a)...|
|00000560| 10 20 20 e7 20 72 3d 30 | 20 72 3d 35 30 0d 02 26 |.  . r=0| r=50..&|
|00000570| 0c 20 20 78 70 3d 31 36 | 30 0d 02 30 0d 20 20 79 |.  xp=16|0..0.  y|
|00000580| 70 3d 72 2b 38 30 0d 02 | 3a 0e 20 20 77 3d 32 2a |p=r+80..|:.  w=2*|
|00000590| af 2f 6e 25 0d 02 44 0e | 20 20 63 6f 75 6e 74 25 |./n%..D.|  count%|
|000005a0| 3d 30 0d 02 4e 13 20 20 | e3 20 69 25 3d 30 20 b8 |=0..N.  |. i%=0 .|
|000005b0| 20 6e 25 2d 31 0d 02 58 | 23 20 20 20 20 78 70 28 | n%-1..X|#    xp(|
|000005c0| 69 25 29 3d 78 70 2b 28 | 72 2b 30 29 2a 9b 28 69 |i%)=xp+(|r+0)*.(i|
|000005d0| 25 2a 77 2b af 2f 32 29 | 0d 02 62 23 20 20 20 20 |%*w+./2)|..b#    |
|000005e0| 79 70 28 69 25 29 3d 79 | 70 2b 28 72 2d 30 29 2a |yp(i%)=y|p+(r-0)*|
|000005f0| b5 28 69 25 2a 77 2b af | 2f 32 29 0d 02 6c 16 20 |.(i%*w+.|/2)..l. |
|00000600| 20 20 20 79 76 28 69 25 | 29 3d 2d 79 73 70 65 65 |   yv(i%|)=-yspee|
|00000610| 64 0d 02 76 1e 20 20 20 | 20 f0 20 36 39 2c 78 70 |d..v.   | . 69,xp|
|00000620| 28 69 25 29 2a 34 2c 79 | 70 28 69 25 29 2a 34 0d |(i%)*4,y|p(i%)*4.|
|00000630| 02 80 0a 20 20 ed 20 69 | 25 0d 02 8a 0f 20 20 78 |...  . i|%....  x|
|00000640| 70 28 6e 25 29 3d 78 70 | 0d 02 94 0f 20 20 79 70 |p(n%)=xp|....  yp|
|00000650| 28 6e 25 29 3d 79 70 0d | 02 9e 14 20 20 79 76 28 |(n%)=yp.|...  yv(|
|00000660| 6e 25 29 3d 2d 79 73 70 | 65 65 64 0d 02 a8 1c 20 |n%)=-ysp|eed.... |
|00000670| 20 f0 20 36 39 2c 78 70 | 28 6e 25 29 2a 34 2c 79 | . 69,xp|(n%)*4,y|
|00000680| 70 28 6e 25 29 2a 34 0d | 02 b2 2b 20 20 64 31 3d |p(n%)*4.|..+  d1=|
|00000690| b6 28 28 78 70 28 30 29 | 2d 78 70 28 31 29 29 5e |.((xp(0)|-xp(1))^|
|000006a0| 32 2b 28 79 70 28 30 29 | 2d 79 70 28 31 29 29 5e |2+(yp(0)|-yp(1))^|
|000006b0| 32 29 0d 02 bc 05 e1 0d | 02 c6 05 3a 0d 02 d0 10 |2)......|...:....|
|000006c0| dd f2 63 61 6c 63 5f 6d | 6f 76 65 73 0d 02 da 13 |..calc_m|oves....|
|000006d0| 20 20 e3 20 69 25 3d 30 | 20 b8 20 6e 25 2d 32 0d |  . i%=0| . n%-2.|
|000006e0| 02 e4 16 20 20 20 20 f2 | 63 61 6c 63 28 69 25 2c |...    .|calc(i%,|
|000006f0| 69 25 2b 31 29 0d 02 ee | 0a 20 20 ed 20 69 25 0d |i%+1)...|.  . i%.|
|00000700| 02 f8 13 20 20 f2 63 61 | 6c 63 28 6e 25 2d 31 2c |...  .ca|lc(n%-1,|
|00000710| 30 29 0d 03 02 13 20 20 | e3 20 69 25 3d 30 20 b8 |0)....  |. i%=0 .|
|00000720| 20 6e 25 2d 31 0d 03 0c | 1b 20 20 20 20 f2 63 61 | n%-1...|.    .ca|
|00000730| 6c 63 5f 6d 69 64 64 6c | 65 28 69 25 2c 6e 25 29 |lc_middl|e(i%,n%)|
|00000740| 0d 03 16 0a 20 20 ed 20 | 69 25 0d 03 20 14 20 20 |....  . |i%.. .  |
|00000750| f2 63 61 6c 63 5f 6d 6f | 76 65 6d 65 6e 74 0d 03 |.calc_mo|vement..|
|00000760| 2a 0b 20 20 e6 20 30 2c | 30 0d 03 34 11 20 20 e3 |*.  . 0,|0..4.  .|
|00000770| 20 69 25 3d 30 20 b8 20 | 6e 25 0d 03 3e 1e 20 20 | i%=0 . |n%..>.  |
|00000780| 20 20 f0 20 36 39 2c 78 | 70 28 69 25 29 2a 34 2c |  . 69,x|p(i%)*4,|
|00000790| 79 70 28 69 25 29 2a 34 | 0d 03 48 0a 20 20 ed 20 |yp(i%)*4|..H.  . |
|000007a0| 69 25 0d 03 52 0b 20 20 | e6 20 30 2c 37 0d 03 5c |i%..R.  |. 0,7..\|
|000007b0| 11 20 20 e3 20 69 25 3d | 30 20 b8 20 6e 25 0d 03 |.  . i%=|0 . n%..|
|000007c0| 66 1f 20 20 20 20 78 70 | 28 69 25 29 3d 78 70 28 |f.    xp|(i%)=xp(|
|000007d0| 69 25 29 2b 78 76 28 69 | 25 29 2a 64 74 0d 03 70 |i%)+xv(i|%)*dt..p|
|000007e0| 14 20 20 20 20 e7 20 79 | 70 28 69 25 29 3e 31 20 |.    . y|p(i%)>1 |
|000007f0| 8c 0d 03 7a 21 20 20 20 | 20 20 20 79 70 28 69 25 |...z!   |   yp(i%|
|00000800| 29 3d 79 70 28 69 25 29 | 2b 79 76 28 69 25 29 2a |)=yp(i%)|+yv(i%)*|
|00000810| 64 74 0d 03 84 09 20 20 | 20 20 cc 0d 03 8e 16 20 |dt....  |  ..... |
|00000820| 20 20 20 20 20 e7 20 79 | 76 28 69 25 29 3e 30 20 |     . y|v(i%)>0 |
|00000830| 8c 0d 03 98 23 20 20 20 | 20 20 20 20 20 79 70 28 |....#   |     yp(|
|00000840| 69 25 29 3d 79 70 28 69 | 25 29 2b 79 76 28 69 25 |i%)=yp(i|%)+yv(i%|
|00000850| 29 2a 64 74 0d 03 a2 0b | 20 20 20 20 20 20 cc 0d |)*dt....|      ..|
|00000860| 03 ac 1e 20 20 20 20 20 | 20 20 20 79 76 28 69 25 |...     |   yv(i%|
|00000870| 29 3d 2d 30 2e 31 2a 79 | 76 28 69 25 29 0d 03 b6 |)=-0.1*y|v(i%)...|
|00000880| 0b 20 20 20 20 20 20 cd | 0d 03 c0 09 20 20 20 20 |.      .|....    |
|00000890| cd 0d 03 ca 1e 20 20 20 | 20 f0 20 36 39 2c 78 70 |.....   | . 69,xp|
|000008a0| 28 69 25 29 2a 34 2c 79 | 70 28 69 25 29 2a 34 0d |(i%)*4,y|p(i%)*4.|
|000008b0| 03 d4 1c 20 20 20 20 6b | 78 25 28 63 6f 75 6e 74 |...    k|x%(count|
|000008c0| 25 29 3d 78 70 28 69 25 | 29 2a 34 0d 03 de 1c 20 |%)=xp(i%|)*4.... |
|000008d0| 20 20 20 6b 79 25 28 63 | 6f 75 6e 74 25 29 3d 79 |   ky%(c|ount%)=y|
|000008e0| 70 28 69 25 29 2a 34 0d | 03 e8 11 20 20 20 20 63 |p(i%)*4.|...    c|
|000008f0| 6f 75 6e 74 25 2b 3d 31 | 0d 03 f2 0a 20 20 ed 20 |ount%+=1|....  . |
|00000900| 69 25 0d 03 fc 05 e1 0d | 04 06 05 3a 0d 04 10 11 |i%......|...:....|
|00000910| dd f2 63 61 6c 63 28 61 | 25 2c 62 25 29 0d 04 1a |..calc(a|%,b%)...|
|00000920| 16 20 20 64 78 3d 78 70 | 28 62 25 29 2d 78 70 28 |.  dx=xp|(b%)-xp(|
|00000930| 61 25 29 0d 04 24 16 20 | 20 64 79 3d 79 70 28 62 |a%)..$. | dy=yp(b|
|00000940| 25 29 2d 79 70 28 61 25 | 29 0d 04 2e 15 20 20 64 |%)-yp(a%|)....  d|
|00000950| 6c 3d b6 28 64 78 5e 32 | 2b 64 79 5e 32 29 0d 04 |l=.(dx^2|+dy^2)..|
|00000960| 38 18 20 20 61 74 3d 64 | 74 2a 6b 70 2a 28 64 6c |8.  at=d|t*kp*(dl|
|00000970| 2d 64 31 29 2f 6d 0d 04 | 42 11 20 20 66 78 3d 61 |-d1)/m..|B.  fx=a|
|00000980| 74 2a 64 78 2f 64 6c 0d | 04 4c 11 20 20 66 79 3d |t*dx/dl.|.L.  fy=|
|00000990| 61 74 2a 64 79 2f 64 6c | 0d 04 56 16 20 20 78 66 |at*dy/dl|..V.  xf|
|000009a0| 28 61 25 29 3d 78 66 28 | 61 25 29 2b 66 78 0d 04 |(a%)=xf(|a%)+fx..|
|000009b0| 60 16 20 20 79 66 28 61 | 25 29 3d 79 66 28 61 25 |`.  yf(a|%)=yf(a%|
|000009c0| 29 2b 66 79 0d 04 6a 16 | 20 20 78 66 28 62 25 29 |)+fy..j.|  xf(b%)|
|000009d0| 3d 78 66 28 62 25 29 2d | 66 78 0d 04 74 16 20 20 |=xf(b%)-|fx..t.  |
|000009e0| 79 66 28 62 25 29 3d 79 | 66 28 62 25 29 2d 66 79 |yf(b%)=y|f(b%)-fy|
|000009f0| 0d 04 7e 05 e1 0d 04 88 | 05 3a 0d 04 92 18 dd f2 |..~.....|.:......|
|00000a00| 63 61 6c 63 5f 6d 69 64 | 64 6c 65 28 61 25 2c 62 |calc_mid|dle(a%,b|
|00000a10| 25 29 0d 04 9c 16 20 20 | 64 78 3d 78 70 28 62 25 |%)....  |dx=xp(b%|
|00000a20| 29 2d 78 70 28 61 25 29 | 0d 04 a6 16 20 20 64 79 |)-xp(a%)|....  dy|
|00000a30| 3d 79 70 28 62 25 29 2d | 79 70 28 61 25 29 0d 04 |=yp(b%)-|yp(a%)..|
|00000a40| b0 15 20 20 64 6c 3d b6 | 28 64 78 5e 32 2b 64 79 |..  dl=.|(dx^2+dy|
|00000a50| 5e 32 29 0d 04 ba 17 20 | 20 61 74 3d 64 74 2a 6b |^2).... | at=dt*k|
|00000a60| 63 2a 28 64 6c 2d 72 29 | 2f 6d 0d 04 c4 11 20 20 |c*(dl-r)|/m....  |
|00000a70| 66 78 3d 61 74 2a 64 78 | 2f 64 6c 0d 04 ce 11 20 |fx=at*dx|/dl.... |
|00000a80| 20 66 79 3d 61 74 2a 64 | 79 2f 64 6c 0d 04 d8 16 | fy=at*d|y/dl....|
|00000a90| 20 20 78 66 28 61 25 29 | 3d 78 66 28 61 25 29 2b |  xf(a%)|=xf(a%)+|
|00000aa0| 66 78 0d 04 e2 16 20 20 | 79 66 28 61 25 29 3d 79 |fx....  |yf(a%)=y|
|00000ab0| 66 28 61 25 29 2b 66 79 | 0d 04 ec 16 20 20 78 66 |f(a%)+fy|....  xf|
|00000ac0| 28 62 25 29 3d 78 66 28 | 62 25 29 2d 66 78 0d 04 |(b%)=xf(|b%)-fx..|
|00000ad0| f6 16 20 20 79 66 28 62 | 25 29 3d 79 66 28 62 25 |..  yf(b|%)=yf(b%|
|00000ae0| 29 2d 66 79 0d 05 00 05 | e1 0d 05 0a 05 3a 0d 05 |)-fy....|.....:..|
|00000af0| 14 13 dd f2 63 61 6c 63 | 5f 6d 6f 76 65 6d 65 6e |....calc|_movemen|
|00000b00| 74 0d 05 1e 11 20 20 e3 | 20 69 25 3d 30 20 b8 20 |t....  .| i%=0 . |
|00000b10| 6e 25 0d 05 28 1c 20 20 | 20 20 78 76 28 69 25 29 |n%..(.  |  xv(i%)|
|00000b20| 3d 78 76 28 69 25 29 2b | 78 66 28 69 25 29 0d 05 |=xv(i%)+|xf(i%)..|
|00000b30| 32 1e 20 20 20 20 79 76 | 28 69 25 29 3d 79 76 28 |2.    yv|(i%)=yv(|
|00000b40| 69 25 29 2b 79 66 28 69 | 25 29 2d 67 0d 05 3c 10 |i%)+yf(i|%)-g..<.|
|00000b50| 20 20 20 20 78 66 28 69 | 25 29 3d 30 0d 05 46 10 |    xf(i|%)=0..F.|
|00000b60| 20 20 20 20 79 66 28 69 | 25 29 3d 30 0d 05 50 0a |    yf(i|%)=0..P.|
|00000b70| 20 20 ed 20 69 25 0d 05 | 5a 05 e1 0d 05 64 05 3a |  . i%..|Z....d.:|
|00000b80| 0d 05 6e 0c dd f2 72 65 | 70 6c 61 79 0d 05 78 24 |..n...re|play..x$|
|00000b90| 20 20 20 e3 20 69 25 3d | 30 20 b8 20 63 6f 75 6e |   . i%=|0 . coun|
|00000ba0| 74 25 2d 6e 25 2b 31 20 | 88 20 28 6e 25 2b 31 29 |t%-n%+1 |. (n%+1)|
|00000bb0| 0d 05 82 24 20 20 20 20 | 20 20 e7 20 42 61 6e 6b |...$    |  . Bank|
|00000bc0| 3d 31 20 8c 20 42 61 6e | 6b 3d 32 20 8b 20 42 61 |=1 . Ban|k=2 . Ba|
|00000bd0| 6e 6b 3d 31 0d 05 8c 1f | 20 20 20 20 20 20 c8 99 |nk=1....|      ..|
|00000be0| 20 22 4f 53 5f 42 79 74 | 65 22 2c 31 31 32 2c 42 | "OS_Byt|e",112,B|
|00000bf0| 61 6e 6b 0d 05 96 0b 20 | 20 20 20 20 20 db 0d 05 |ank.... |     ...|
|00000c00| a0 0f 20 20 20 20 20 20 | e6 20 30 2c 30 0d 05 aa |..      |. 0,0...|
|00000c10| 17 20 20 20 20 20 20 e3 | 20 6a 25 3d 30 20 b8 20 |.      .| j%=0 . |
|00000c20| 6e 25 2d 32 0d 05 b4 25 | 20 20 20 20 20 20 20 20 |n%-2...%|        |
|00000c30| 20 e7 20 70 20 8c 20 f0 | 20 36 39 2c 78 25 28 6a | . p . .| 69,x%(j|
|00000c40| 25 29 2c 79 25 28 6a 25 | 29 0d 05 be 38 20 20 20 |%),y%(j%|)...8   |
|00000c50| 20 20 20 20 20 20 e7 20 | ac 20 70 20 8c 20 ec 20 |      . |. p . . |
|00000c60| 78 25 28 6a 25 29 2c 79 | 25 28 6a 25 29 3a df 20 |x%(j%),y|%(j%):. |
|00000c70| 78 25 28 6a 25 2b 31 29 | 2c 79 25 28 6a 25 2b 31 |x%(j%+1)|,y%(j%+1|
|00000c80| 29 0d 05 c8 0e 20 20 20 | 20 20 20 ed 20 6a 25 0d |)....   |   . j%.|
|00000c90| 05 d2 37 20 20 20 20 20 | 20 e7 20 70 20 8c 20 f0 |..7     | . p . .|
|00000ca0| 20 36 39 2c 78 25 28 30 | 29 2c 79 25 28 30 29 3a | 69,x%(0|),y%(0):|
|00000cb0| f0 20 36 39 2c 78 25 28 | 6e 25 2d 31 29 2c 79 25 |. 69,x%(|n%-1),y%|
|00000cc0| 28 6e 25 2d 31 29 0d 05 | dc 33 20 20 20 20 20 20 |(n%-1)..|.3      |
|00000cd0| e7 20 ac 20 70 20 8c 20 | ec 20 78 25 28 30 29 2c |. . p . |. x%(0),|
|00000ce0| 79 25 28 30 29 3a df 20 | 78 25 28 6e 25 2d 31 29 |y%(0):. |x%(n%-1)|
|00000cf0| 2c 79 25 28 6e 25 2d 31 | 29 0d 05 e6 0f 20 20 20 |,y%(n%-1|)....   |
|00000d00| 20 20 20 e6 20 30 2c 37 | 0d 05 f0 15 20 20 20 20 |   . 0,7|....    |
|00000d10| 20 20 e3 20 6a 25 3d 30 | 20 b8 20 6e 25 0d 05 fa |  . j%=0| . n%...|
|00000d20| 1e 20 20 20 20 20 20 20 | 20 20 78 25 28 6a 25 29 |.       |  x%(j%)|
|00000d30| 3d 6b 78 25 28 69 25 2b | 6a 25 29 0d 06 04 1e 20 |=kx%(i%+|j%).... |
|00000d40| 20 20 20 20 20 20 20 20 | 79 25 28 6a 25 29 3d 6b |        |y%(j%)=k|
|00000d50| 79 25 28 69 25 2b 6a 25 | 29 0d 06 0e 0e 20 20 20 |y%(i%+j%|)....   |
|00000d60| 20 20 20 ed 20 6a 25 0d | 06 18 17 20 20 20 20 20 |   . j%.|...     |
|00000d70| 20 e3 20 6a 25 3d 30 20 | b8 20 6e 25 2d 32 0d 06 | . j%=0 |. n%-2..|
|00000d80| 22 25 20 20 20 20 20 20 | 20 20 20 e7 20 70 20 8c |"%      |   . p .|
|00000d90| 20 f0 20 36 39 2c 78 25 | 28 6a 25 29 2c 79 25 28 | . 69,x%|(j%),y%(|
|00000da0| 6a 25 29 0d 06 2c 38 20 | 20 20 20 20 20 20 20 20 |j%)..,8 |        |
|00000db0| e7 20 ac 20 70 20 8c 20 | ec 20 78 25 28 6a 25 29 |. . p . |. x%(j%)|
|00000dc0| 2c 79 25 28 6a 25 29 3a | df 20 78 25 28 6a 25 2b |,y%(j%):|. x%(j%+|
|00000dd0| 31 29 2c 79 25 28 6a 25 | 2b 31 29 0d 06 36 0e 20 |1),y%(j%|+1)..6. |
|00000de0| 20 20 20 20 20 ed 20 6a | 25 0d 06 40 37 20 20 20 |     . j|%..@7   |
|00000df0| 20 20 20 e7 20 70 20 8c | 20 f0 20 36 39 2c 78 25 |   . p .| . 69,x%|
|00000e00| 28 30 29 2c 79 25 28 30 | 29 3a f0 20 36 39 2c 78 |(0),y%(0|):. 69,x|
|00000e10| 25 28 6e 25 2d 31 29 2c | 79 25 28 6e 25 2d 31 29 |%(n%-1),|y%(n%-1)|
|00000e20| 0d 06 4a 33 20 20 20 20 | 20 20 e7 20 ac 20 70 20 |..J3    |  . . p |
|00000e30| 8c 20 ec 20 78 25 28 30 | 29 2c 79 25 28 30 29 3a |. . x%(0|),y%(0):|
|00000e40| df 20 78 25 28 6e 25 2d | 31 29 2c 79 25 28 6e 25 |. x%(n%-|1),y%(n%|
|00000e50| 2d 31 29 0d 06 54 15 20 | 20 20 20 20 20 e7 20 a6 |-1)..T. |     . .|
|00000e60| 28 30 29 3d 33 32 20 8c | 0d 06 5e 26 20 20 20 20 |(0)=32 .|..^&    |
|00000e70| 20 20 20 20 20 e7 20 70 | 3d b9 20 8c 20 70 3d a3 |     . p|=. . p=.|
|00000e80| 20 8b 20 e7 20 70 3d a3 | 20 8c 20 70 3d b9 0d 06 | . . p=.| . p=...|
|00000e90| 68 0b 20 20 20 20 20 20 | cd 0d 06 72 0c 20 20 20 |h.      |...r.   |
|00000ea0| 20 20 20 c8 96 0d 06 7c | 1a 20 20 20 20 20 20 e7 |   ....||.      .|
|00000eb0| 20 a6 28 30 29 3d 31 33 | 20 8c 20 69 25 3d 30 0d | .(0)=13| . i%=0.|
|00000ec0| 06 86 1f 20 20 20 20 20 | 20 c8 99 20 22 4f 53 5f |...     | .. "OS_|
|00000ed0| 42 79 74 65 22 2c 31 31 | 33 2c 42 61 6e 6b 0d 06 |Byte",11|3,Bank..|
|00000ee0| 90 0b 20 20 20 ed 20 69 | 25 0d 06 9a 05 e1 0d ff |..   . i|%.......|
+--------+-------------------------+-------------------------+--------+--------+