home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-10-07 | 3.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 44 61 6e 63 | 69 6e 67 20 42 6c 69 74 |;.; Danc|ing Blit|
|00000010| 7a 4d 61 6e 20 76 30 2e | 30 20 62 79 20 53 69 6d |zMan v0.|0 by Sim|
|00000020| 6f 6e 20 41 72 6d 73 74 | 72 6f 6e 67 00 3b 00 00 |on Armst|rong.;..|
|00000030| 80 01 20 2e 73 65 67 00 | 20 20 2a 6b 69 64 2e 73 |.. .seg.| *kid.s|
|00000040| 65 67 20 20 20 20 20 20 | 20 20 20 3b 70 6f 69 6e |eg | ;poin|
|00000050| 74 73 20 74 6f 20 66 69 | 72 73 74 20 6f 66 66 73 |ts to fi|rst offs|
|00000060| 70 72 69 6e 67 00 20 20 | 2a 62 72 6f 2e 73 65 67 |pring. |*bro.seg|
|00000070| 20 20 20 20 20 20 20 20 | 20 3b 6c 69 6e 6b 73 20 | | ;links |
|00000080| 6f 66 66 73 70 72 69 6e | 67 20 74 6f 67 65 74 68 |offsprin|g togeth|
|00000090| 65 72 00 20 20 78 2e 77 | 3a 79 3a 61 20 20 20 20 |er. x.w|:y:a |
|000000a0| 20 20 20 20 20 20 3b 63 | 61 72 74 65 73 69 61 6e | ;c|artesian|
|000000b0| 20 63 6f 2d 6f 72 64 69 | 6e 61 74 65 73 20 66 6f | co-ordi|nates fo|
|000000c0| 72 20 65 64 69 74 69 6e | 67 00 20 20 61 6e 67 6c |r editin|g. angl|
|000000d0| 65 2e 77 3a 6c 65 6e 67 | 74 68 20 20 20 3b 70 6f |e.w:leng|th ;po|
|000000e0| 6c 61 72 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 20 |lar coor|dinates |
|000000f0| 66 6f 72 20 64 72 61 77 | 69 6e 67 00 80 02 20 80 |for draw|ing... .|
|00000100| 01 00 00 80 04 20 71 73 | 69 6e 2e 71 28 32 35 36 |..... qs|in.q(256|
|00000110| 29 2c 71 63 6f 73 2e 71 | 28 32 35 36 29 00 80 04 |),qcos.q|(256)...|
|00000120| 20 80 b3 20 73 65 67 73 | 2e 73 65 67 28 35 30 30 | .. segs|.seg(500|
|00000130| 29 00 80 04 20 2a 66 2e | 73 65 67 28 32 30 29 00 |)... *f.|seg(20).|
|00000140| 00 80 33 20 2e 73 65 67 | 20 2a 6d 79 6d 61 6e 00 |..3 .seg| *myman.|
|00000150| 00 80 08 20 72 65 61 64 | 66 69 67 75 72 65 7b 2a |... read|figure{*|
|00000160| 74 65 6d 70 2e 73 65 67 | 7d 00 20 20 80 15 20 73 |temp.seg|}. .. s|
|00000170| 65 67 73 28 29 00 20 20 | 80 1b 20 6e 75 6d 6b 69 |egs(). |.. numki|
|00000180| 64 73 2e 77 20 20 20 20 | 20 20 20 3b 72 65 61 64 |ds.w | ;read|
|00000190| 20 6e 65 78 74 20 65 6e | 74 72 79 20 69 6e 20 64 | next en|try in d|
|000001a0| 61 74 61 20 74 61 62 6c | 65 00 20 20 80 1b 20 2a |ata tabl|e. .. *|
|000001b0| 74 65 6d 70 5c 61 6e 67 | 6c 65 00 20 20 80 1b 20 |temp\ang|le. .. |
|000001c0| 2a 74 65 6d 70 5c 6c 65 | 6e 67 74 68 00 20 20 2a |*temp\le|ngth. *|
|000001d0| 70 72 65 76 2e 73 65 67 | 3d 30 00 20 20 80 16 20 |prev.seg|=0. .. |
|000001e0| 69 3d 31 20 80 18 20 6e | 75 6d 6b 69 64 73 20 20 |i=1 .. n|umkids |
|000001f0| 20 3b 6e 6f 20 6c 6f 6f | 70 20 69 66 20 6e 75 6d | ;no loo|p if num|
|00000200| 6b 69 64 73 3d 30 20 28 | 74 68 61 6e 6b 73 20 4d |kids=0 (|thanks M|
|00000210| 61 72 6b 21 29 00 20 20 | 20 20 c0 02 20 73 65 67 |ark!). | .. seg|
|00000220| 73 28 29 20 20 20 20 20 | 3b 67 65 74 20 61 20 73 |s() |;get a s|
|00000230| 65 67 20 66 72 6f 6d 20 | 74 68 65 20 6c 69 73 74 |eg from |the list|
|00000240| 20 61 72 72 61 79 00 20 | 20 20 20 73 65 67 73 28 | array. | segs(|
|00000250| 29 5c 62 72 6f 3d 2a 70 | 72 65 76 20 20 20 3b 6c |)\bro=*p|rev ;l|
|00000260| 69 6e 6b 20 74 6f 20 6c | 61 73 74 20 62 72 6f 74 |ink to l|ast brot|
|00000270| 68 65 72 00 20 20 20 20 | 2a 70 72 65 76 3d 73 65 |her. |*prev=se|
|00000280| 67 73 28 29 20 20 20 20 | 20 20 20 3b 6d 61 6b 65 |gs() | ;make|
|00000290| 20 6c 61 73 74 20 62 72 | 6f 74 68 65 72 20 6d 65 | last br|other me|
|000002a0| 00 20 20 20 20 72 65 61 | 64 66 69 67 75 72 65 7b |. rea|dfigure{|
|000002b0| 73 65 67 73 28 29 7d 20 | 3b 61 6e 64 20 6f 6e 74 |segs()} |;and ont|
|000002c0| 6f 20 74 68 65 20 6e 65 | 78 74 20 62 72 6f 74 68 |o the ne|xt broth|
|000002d0| 65 72 00 20 20 80 17 00 | 20 20 2a 74 65 6d 70 5c |er. ...| *temp\|
|000002e0| 6b 69 64 3d 2a 70 72 65 | 76 20 20 20 20 20 20 3b |kid=*pre|v ;|
|000002f0| 6e 6f 77 20 6a 6f 69 6e | 20 61 6c 6c 20 74 68 65 |now join| all the|
|00000300| 20 62 72 6f 74 68 65 72 | 73 20 74 6f 20 6d 65 00 | brother|s to me.|
|00000310| 80 02 20 80 08 00 00 80 | 08 20 64 72 61 77 66 69 |.. .....|. drawfi|
|00000320| 67 75 72 65 7b 78 2e 77 | 2c 79 2c 61 2c 2a 74 65 |gure{x.w|,y,a,*te|
|00000330| 6d 70 2e 73 65 67 7d 00 | 20 20 80 15 20 71 73 69 |mp.seg}.| .. qsi|
|00000340| 6e 28 29 2c 71 63 6f 73 | 28 29 2c 72 61 74 69 6f |n(),qcos|(),ratio|
|00000350| 2c 73 69 7a 65 00 20 20 | 80 ca 20 2a 74 65 6d 70 |,size. |.. *temp|
|00000360| 00 20 20 61 61 3d 28 61 | 2b 5c 61 6e 67 6c 65 29 |. aa=(a|+\angle)|
|00000370| 26 32 35 35 3a 73 6c 65 | 6e 3d 5c 6c 65 6e 67 74 |&255:sle|n=\lengt|
|00000380| 68 2a 73 69 7a 65 20 20 | 20 3b 61 64 64 20 64 65 |h*size | ;add de|
|00000390| 6c 74 61 20 61 6e 67 6c | 65 2c 20 73 63 61 6c 65 |lta angl|e, scale|
|000003a0| 20 6c 65 6e 67 74 68 00 | 20 20 78 78 3d 78 2b 71 | length.| xx=x+q|
|000003b0| 63 6f 73 28 61 61 29 2a | 73 6c 65 6e 3a 79 79 3d |cos(aa)*|slen:yy=|
|000003c0| 79 2b 71 73 69 6e 28 61 | 61 29 2a 73 6c 65 6e 20 |y+qsin(a|a)*slen |
|000003d0| 3b 70 6f 6c 61 72 20 74 | 6f 20 63 61 72 74 65 73 |;polar t|o cartes|
|000003e0| 69 61 6e 00 20 20 5c 78 | 3d 78 78 2c 79 79 2c 61 |ian. \x|=xx,yy,a|
|000003f0| 61 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |a | |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 73 74 6f | | ;sto|
|00000410| 72 65 20 66 6f 72 20 66 | 69 6e 64 70 61 72 74 7b |re for f|indpart{|
|00000420| 7d 00 20 20 80 0b 20 5c | 6c 65 6e 67 74 68 3c 30 |}. .. \|length<0|
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 3b 77 6f 20 69 74 | | ;wo it|
|00000450| 27 73 20 61 20 63 69 72 | 63 6c 65 20 73 65 67 28 |'s a cir|cle seg(|
|00000460| 29 00 20 20 20 20 c5 0e | 20 78 78 2c 79 79 2c 2d |). ..| xx,yy,-|
|00000470| 73 6c 65 6e 2c 2d 73 6c | 65 6e 2a 72 61 74 69 6f |slen,-sl|en*ratio|
|00000480| 2c 31 00 20 20 80 22 00 | 20 20 20 20 c5 1e 20 78 |,1. .".| .. x|
|00000490| 2c 79 2c 78 78 2c 79 79 | 2c 31 20 20 20 20 20 20 |,y,xx,yy|,1 |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 6e 6f | | ;no|
|000004b0| 20 69 74 27 73 20 61 20 | 6c 69 6e 65 72 20 73 65 | it's a |liner se|
|000004c0| 67 28 29 00 20 20 80 c0 | 00 20 20 c5 0e 20 78 78 |g(). ..|. .. xx|
|000004d0| 2c 79 79 2c 73 69 7a 65 | 2a 32 2c 73 69 7a 65 2a |,yy,size|*2,size*|
|000004e0| 32 2a 72 61 74 69 6f 2c | 32 20 20 20 3b 61 64 64 |2*ratio,|2 ;add|
|000004f0| 20 68 6f 74 20 73 70 6f | 74 20 66 6f 72 20 65 64 | hot spo|t for ed|
|00000500| 69 74 6f 72 00 20 20 80 | 0b 20 5c 6b 69 64 20 80 |itor. .|. \kid .|
|00000510| 21 20 64 72 61 77 66 69 | 67 75 72 65 7b 78 78 2c |! drawfi|gure{xx,|
|00000520| 79 79 2c 61 61 2c 5c 6b | 69 64 7d 20 3b 72 65 63 |yy,aa,\k|id} ;rec|
|00000530| 75 72 73 65 20 74 68 65 | 20 6b 69 64 73 00 20 20 |urse the| kids. |
|00000540| 80 0b 20 5c 62 72 6f 20 | 80 21 20 64 72 61 77 66 |.. \bro |.! drawf|
|00000550| 69 67 75 72 65 7b 78 2c | 79 2c 61 2c 5c 62 72 6f |igure{x,|y,a,\bro|
|00000560| 7d 20 20 20 20 3b 72 65 | 63 75 72 73 65 20 74 68 |} ;re|curse th|
|00000570| 65 20 62 72 6f 74 68 65 | 72 73 00 80 02 20 80 08 |e brothe|rs... ..|
|00000580| 00 00 80 09 2e 6c 20 66 | 69 6e 64 70 61 72 74 7b |.....l f|indpart{|
|00000590| 78 2c 79 2c 2a 74 65 6d | 70 2e 73 65 67 7d 00 20 |x,y,*tem|p.seg}. |
|000005a0| 20 80 33 20 2e 6c 20 72 | 65 73 75 6c 74 00 20 20 | .3 .l r|esult. |
|000005b0| 80 ca 20 2a 74 65 6d 70 | 00 20 20 80 0b 20 b4 09 |.. *temp|. .. ..|
|000005c0| 28 78 2c 79 2c 31 2c 31 | 2c 5c 78 2d 32 2c 5c 79 |(x,y,1,1|,\x-2,\y|
|000005d0| 2d 32 2c 35 2c 35 29 20 | 20 20 20 20 20 20 20 3b |-2,5,5) | ;|
|000005e0| 69 66 20 68 6f 74 20 73 | 70 6f 74 00 20 20 20 20 |if hot s|pot. |
|000005f0| 80 09 20 80 07 20 2a 74 | 65 6d 70 20 20 20 20 20 |.. .. *t|emp |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 65 | | ;e|
|00000610| 78 69 74 00 20 20 80 22 | 00 20 20 20 20 80 0b 20 |xit. ."|. .. |
|00000620| 5c 6b 69 64 20 80 21 20 | 72 65 73 75 6c 74 3d 66 |\kid .! |result=f|
|00000630| 69 6e 64 70 61 72 74 7b | 78 2c 79 2c 5c 6b 69 64 |indpart{|x,y,\kid|
|00000640| 7d 20 20 3b 72 65 63 75 | 72 73 65 20 6b 69 64 73 |} ;recu|rse kids|
|00000650| 00 20 20 20 20 80 0b 20 | 72 65 73 75 6c 74 20 80 |. .. |result .|
|00000660| 21 20 80 09 20 80 07 20 | 72 65 73 75 6c 74 00 20 |! .. .. |result. |
|00000670| 20 20 20 80 0b 20 5c 62 | 72 6f 20 80 21 20 72 65 | .. \b|ro .! re|
|00000680| 73 75 6c 74 3d 66 69 6e | 64 70 61 72 74 7b 78 2c |sult=fin|dpart{x,|
|00000690| 79 2c 5c 62 72 6f 7d 20 | 20 3b 72 65 63 75 72 73 |y,\bro} | ;recurs|
|000006a0| 65 20 62 72 6f 74 68 65 | 72 73 00 20 20 80 c0 00 |e brothe|rs. ...|
|000006b0| 80 02 20 80 08 00 00 3b | 00 3b 20 6d 61 69 6e 20 |.. ....;|.; main |
|000006c0| 70 72 6f 67 72 61 6d 20 | 73 74 61 72 74 73 20 68 |program |starts h|
|000006d0| 65 72 65 00 3b 00 00 80 | 32 20 70 61 24 3d 31 36 |ere.;...|2 pa$=16|
|000006e0| 30 20 3b 73 65 74 20 70 | 61 74 68 20 73 74 72 69 |0 ;set p|ath stri|
|000006f0| 6e 67 20 76 61 72 69 61 | 62 6c 65 20 66 6f 72 20 |ng varia|ble for |
|00000700| 66 69 6c 65 72 65 71 75 | 65 73 74 65 72 00 80 32 |filerequ|ester..2|
|00000710| 20 66 69 24 3d 36 34 20 | 20 3b 73 65 74 20 66 69 | fi$=64 | ;set fi|
|00000720| 6c 65 6e 61 6d 65 20 73 | 74 72 69 6e 67 20 76 61 |lename s|tring va|
|00000730| 72 69 61 62 6c 65 20 66 | 6f 72 20 66 69 6c 65 72 |riable f|or filer|
|00000740| 65 71 75 65 73 74 65 72 | 00 00 72 61 74 69 6f 3d |equester|..ratio=|
|00000750| 2e 35 20 20 3b 68 69 72 | 65 73 20 6e 6f 6e 69 6e |.5 ;hir|es nonin|
|00000760| 74 65 72 6c 61 63 65 20 | 70 69 78 65 6c 20 72 61 |terlace |pixel ra|
|00000770| 74 69 6f 00 00 80 16 20 | 69 3d 30 20 80 18 20 32 |tio.... |i=0 .. 2|
|00000780| 35 35 00 20 20 71 73 69 | 6e 28 69 29 3d e0 0a 28 |55. qsi|n(i)=..(|
|00000790| 69 2a 80 ba 2f 31 32 38 | 29 2a 72 61 74 69 6f 3a |i*../128|)*ratio:|
|000007a0| 71 63 6f 73 28 69 29 3d | e0 05 28 69 2a 80 ba 2f |qcos(i)=|..(i*../|
|000007b0| 31 32 38 29 00 80 17 00 | 00 cf 01 20 30 2c 31 30 |128)....|... 0,10|
|000007c0| 2c 22 49 46 20 49 20 57 | 45 52 45 20 41 20 42 4c |,"IF I W|ERE A BL|
|000007d0| 49 54 5a 4d 41 4e 22 00 | 00 c4 01 20 30 2c 30 2c |ITZMAN".|... 0,0,|
|000007e0| 22 50 52 4f 4a 45 43 54 | 22 00 c4 03 20 30 2c 30 |"PROJECT|"... 0,0|
|000007f0| 2c 30 2c 30 2c 22 4c 4f | 41 44 20 4d 45 44 20 20 |,0,0,"LO|AD MED |
|00000800| 20 20 20 20 22 2c 22 4c | 22 00 c4 03 20 30 2c 30 | ","L|"... 0,0|
|00000810| 2c 30 2c 31 2c 22 53 54 | 41 52 54 20 4d 45 44 20 |,0,1,"ST|ART MED |
|00000820| 20 20 20 20 22 2c 22 53 | 22 00 c4 03 20 30 2c 30 | ","S|"... 0,0|
|00000830| 2c 30 2c 32 2c 22 51 55 | 49 54 20 20 20 20 20 20 |,0,2,"QU|IT |
|00000840| 20 20 20 20 22 2c 22 51 | 22 00 00 67 3d 30 00 80 | ","Q|"..g=0..|
|00000850| 16 20 79 3d 30 20 80 18 | 20 33 3a 80 16 20 78 3d |. y=0 ..| 3:.. x=|
|00000860| 30 20 80 18 20 34 00 20 | 20 c6 03 20 30 2c 33 30 |0 .. 4. | .. 0,30|
|00000870| 30 2b 78 2a 36 34 2c 36 | 2b 79 2a 33 32 2c 31 2c |0+x*64,6|+y*32,1,|
|00000880| 67 2c 36 30 2c 33 30 3a | 67 2b 31 00 80 17 3a 80 |g,60,30:|g+1...:.|
|00000890| 17 00 00 c5 01 20 30 2c | 30 2c 31 30 2c 36 34 30 |..... 0,|0,10,640|
|000008a0| 2c 32 34 36 2c 24 31 30 | 30 30 2c 22 22 2c 31 2c |,246,$10|00,"",1,|
|000008b0| 32 2c 30 3a c4 02 20 30 | 20 20 20 20 3b 62 69 67 |2,0:.. 0| ;big|
|000008c0| 20 77 69 6e 64 6f 77 20 | 61 74 20 62 61 63 6b 00 | window |at back.|
|000008d0| c5 01 20 31 2c 31 36 2c | 31 34 2c 32 35 36 2c 31 |.. 1,16,|14,256,1|
|000008e0| 32 38 2c 24 31 30 30 30 | 2c 22 22 2c 31 2c 32 3a |28,$1000|,"",1,2:|
|000008f0| c4 02 20 30 20 20 20 20 | 20 3b 65 64 69 74 20 77 |.. 0 | ;edit w|
|00000900| 69 6e 64 6f 77 00 00 80 | 30 20 35 3a a9 03 3a 80 |indow...|0 5:..:.|
|00000910| 02 20 80 30 00 00 80 bb | 00 20 20 65 76 2e 6c 3d |. .0....|. ev.l=|
|00000920| c5 02 00 20 20 80 0e 20 | 65 76 00 20 20 20 20 80 |... .. |ev. .|
|00000930| 0f 20 38 00 20 20 20 20 | 20 20 80 0b 20 c5 05 3d |. 8. | .. ..=|
|00000940| 31 20 80 21 20 80 06 20 | 65 64 69 74 6d 61 6e 00 |1 .! .. |editman.|
|00000950| 20 20 20 20 80 0f 20 24 | 34 30 00 20 20 20 20 20 | .. $|40. |
|00000960| 20 80 0b 20 c5 04 3c 32 | 30 20 80 21 20 80 06 20 | .. ..<2|0 .! .. |
|00000970| 73 65 6c 65 63 74 66 72 | 61 6d 65 00 20 20 20 20 |selectfr|ame. |
|00000980| 80 0f 20 24 31 30 30 00 | 20 20 20 20 20 20 80 0b |.. $100.| ..|
|00000990| 20 c5 07 3d 30 20 80 42 | 20 c5 08 3d 30 20 80 21 | ..=0 .B| ..=0 .!|
|000009a0| 20 80 06 20 6c 6f 61 64 | 6d 65 64 00 20 20 20 20 | .. load|med. |
|000009b0| 20 20 80 0b 20 c5 07 3d | 30 20 80 42 20 c5 08 3d | .. ..=|0 .B ..=|
|000009c0| 31 20 80 21 20 a9 02 20 | 30 00 20 20 20 20 20 20 |1 .! .. |0. |
|000009d0| 80 0b 20 c5 07 3d 30 20 | 80 42 20 c5 08 3d 32 20 |.. ..=0 |.B ..=2 |
|000009e0| 80 21 20 80 02 00 20 20 | 80 02 20 80 0e 00 80 c7 |.! ... |.. .....|
|000009f0| 00 00 2e 73 65 6c 65 63 | 74 66 72 61 6d 65 20 20 |...selec|tframe |
|00000a00| 20 20 3b 70 6f 69 6e 74 | 73 20 2a 6d 79 6d 61 6e | ;point|s *myman|
|00000a10| 20 74 6f 20 65 78 69 73 | 74 69 6e 67 20 6f 72 20 | to exis|ting or |
|00000a20| 6e 65 77 20 66 72 61 6d | 65 00 20 20 67 6d 61 6e |new fram|e. gman|
|00000a30| 3d c5 04 00 20 20 67 61 | 64 67 65 74 78 3d 33 30 |=... ga|dgetx=30|
|00000a40| 30 2b 28 67 6d 61 6e 20 | 80 b9 20 35 29 2a 36 34 |0+(gman |.. 5)*64|
|00000a50| 3a 67 61 64 67 65 74 79 | 3d 36 2b bc 02 28 67 6d |:gadgety|=6+..(gm|
|00000a60| 61 6e 2f 35 29 2a 33 32 | 00 20 20 80 0b 20 2a 66 |an/5)*32|. .. *f|
|00000a70| 28 67 6d 61 6e 29 3d 30 | 00 20 20 20 20 c0 02 20 |(gman)=0|. .. |
|00000a80| 73 65 67 73 28 29 3a 2a | 66 28 67 6d 61 6e 29 3d |segs():*|f(gman)=|
|00000a90| 73 65 67 73 28 29 3a 80 | c8 20 6d 61 6e 64 61 74 |segs():.|. mandat|
|00000aa0| 61 3a 72 65 61 64 66 69 | 67 75 72 65 7b 2a 66 28 |a:readfi|gure{*f(|
|00000ab0| 67 6d 61 6e 29 7d 00 20 | 20 80 c0 00 20 20 2a 6d |gman)}. | ... *m|
|00000ac0| 79 6d 61 6e 3d 2a 66 28 | 67 6d 61 6e 29 00 20 20 |yman=*f(|gman). |
|00000ad0| 80 06 20 72 65 66 72 65 | 73 68 67 6d 61 6e 00 20 |.. refre|shgman. |
|00000ae0| 20 80 07 00 00 2e 72 65 | 66 72 65 73 68 67 6d 61 | .....re|freshgma|
|00000af0| 6e 20 20 20 20 3b 72 65 | 64 72 61 77 20 61 20 66 |n ;re|draw a f|
|00000b00| 72 61 6d 65 00 20 20 80 | 2c 20 c5 01 20 30 00 20 |rame. .|, .. 0. |
|00000b10| 20 c5 0c 20 67 61 64 67 | 65 74 78 2b 34 2c 67 61 | .. gadg|etx+4,ga|
|00000b20| 64 67 65 74 79 2b 32 2c | 67 61 64 67 65 74 78 2b |dgety+2,|gadgetx+|
|00000b30| 35 35 2c 67 61 64 67 65 | 74 79 2b 32 37 2c 30 00 |55,gadge|ty+27,0.|
|00000b40| 20 20 73 69 7a 65 3d 2e | 32 35 3a 64 72 61 77 66 | size=.|25:drawf|
|00000b50| 69 67 75 72 65 20 7b 67 | 61 64 67 65 74 78 2b 33 |igure {g|adgetx+3|
|00000b60| 30 2c 67 61 64 67 65 74 | 79 2b 31 36 2c 30 2c 2a |0,gadget|y+16,0,*|
|00000b70| 6d 79 6d 61 6e 7d 00 20 | 20 80 2c 20 c5 01 20 31 |myman}. | ., .. 1|
|00000b80| 3a c5 2f 3a 73 69 7a 65 | 3d 31 3a 64 72 61 77 66 |:./:size|=1:drawf|
|00000b90| 69 67 75 72 65 20 7b 31 | 32 38 2c 36 34 2c 30 2c |igure {1|28,64,0,|
|00000ba0| 2a 6d 79 6d 61 6e 7d 00 | 20 20 80 07 00 00 2e 65 |*myman}.| .....e|
|00000bb0| 64 69 74 6d 61 6e 3a 20 | 20 20 20 20 20 20 3b 63 |ditman: | ;c|
|00000bc0| 68 65 63 6b 20 66 6f 72 | 20 68 6f 74 73 70 6f 74 |heck for| hotspot|
|00000bd0| 20 61 6e 64 20 69 66 20 | 68 69 74 20 6c 65 74 20 | and if |hit let |
|00000be0| 75 73 65 72 20 61 64 6a | 75 73 74 20 61 6e 67 6c |user adj|ust angl|
|00000bf0| 65 00 20 20 80 2c 20 c5 | 01 20 31 00 20 20 2a 70 |e. ., .|. 1. *p|
|00000c00| 61 72 74 2e 73 65 67 3d | 66 69 6e 64 70 61 72 74 |art.seg=|findpart|
|00000c10| 7b c5 1a 2c c5 1b 2c 2a | 6d 79 6d 61 6e 7d 00 20 |{..,..,*|myman}. |
|00000c20| 20 80 0b 20 2a 70 61 72 | 74 3c 3e 30 00 20 20 20 | .. *par|t<>0. |
|00000c30| 20 80 ca 20 2a 70 61 72 | 74 00 20 20 20 20 77 78 | .. *par|t. wx|
|00000c40| 3d c5 1a 3a 77 61 3d 5c | 61 6e 67 6c 65 3a 80 2c |=..:wa=\|angle:.,|
|00000c50| 20 c5 01 20 31 00 20 20 | 20 20 80 0c 20 df 04 28 | .. 1. | .. ..(|
|00000c60| 30 29 3c 3e 30 00 20 20 | 20 20 20 20 5c 61 6e 67 |0)<>0. | \ang|
|00000c70| 6c 65 3d 77 61 2b 77 78 | 2d c5 1a 3a c5 2f 3a 64 |le=wa+wx|-..:./:d|
|00000c80| 72 61 77 66 69 67 75 72 | 65 20 7b 31 32 38 2c 36 |rawfigur|e {128,6|
|00000c90| 34 2c 30 2c 2a 6d 79 6d | 61 6e 7d 3a 80 37 20 31 |4,0,*mym|an}:.7 1|
|00000ca0| 30 00 20 20 20 20 80 c1 | 00 20 20 20 20 80 06 20 |0. ..|. .. |
|00000cb0| 72 65 66 72 65 73 68 67 | 6d 61 6e 00 20 20 80 c0 |refreshg|man. ..|
|00000cc0| 00 20 20 80 0c 20 df 04 | 28 30 29 3c 3e 30 20 80 |. .. ..|(0)<>0 .|
|00000cd0| c1 00 20 20 80 07 00 00 | 2e 6c 6f 61 64 6d 65 64 |.. ....|.loadmed|
|00000ce0| 3a 00 20 20 61 24 3d cc | 01 28 22 53 45 4c 45 43 |:. a$=.|.("SELEC|
|00000cf0| 54 20 4d 45 44 20 4d 4f | 44 55 4c 45 20 54 4f 20 |T MED MO|DULE TO |
|00000d00| 4c 4f 41 44 22 2c 70 61 | 24 2c 66 69 24 29 00 20 |LOAD",pa|$,fi$). |
|00000d10| 20 80 0b 20 61 24 3c 3e | 22 22 20 80 21 20 a9 01 | .. a$<>|"" .! ..|
|00000d20| 20 30 2c 61 24 00 20 20 | 80 07 00 00 2e 6d 61 6e | 0,a$. |.....man|
|00000d30| 64 61 74 61 3a 20 20 20 | 20 20 20 20 20 20 20 20 |data: | |
|00000d40| 20 20 20 20 20 3b 6e 75 | 6d 62 72 61 6e 63 68 65 | ;nu|mbranche|
|00000d50| 73 2c 61 6e 67 6c 65 2c | 6c 65 6e 20 28 31 33 20 |s,angle,|len (13 |
|00000d60| 6c 69 6d 62 73 29 00 20 | 20 80 1a 2e 77 20 33 2c |limbs). | ...w 3,|
|00000d70| 30 2c 30 20 20 20 20 20 | 20 20 20 20 20 20 3b 6f |0,0 | ;o|
|00000d80| 72 69 67 69 6e 00 20 20 | 20 20 80 1a 2e 77 20 31 |rigin. | ...w 1|
|00000d90| 2c 33 32 2c 34 30 20 20 | 20 20 20 20 20 3b 72 69 |,32,40 | ;ri|
|00000da0| 67 68 74 20 74 68 69 67 | 68 00 20 20 20 20 20 20 |ght thig|h. |
|00000db0| 80 1a 2e 77 20 31 2c 34 | 38 2c 34 30 20 20 20 20 |...w 1,4|8,40 |
|00000dc0| 20 3b 72 69 67 68 74 20 | 63 61 6c 66 00 20 20 20 | ;right |calf. |
|00000dd0| 20 20 20 20 20 80 1a 2e | 77 20 30 2c 2d 38 30 2c | ...|w 0,-80,|
|00000de0| 31 36 20 20 3b 72 69 67 | 68 74 20 66 6f 6f 74 00 |16 ;rig|ht foot.|
|00000df0| 20 20 20 20 80 1a 2e 77 | 20 31 2c 39 36 2c 34 30 | ...w| 1,96,40|
|00000e00| 20 20 20 20 20 20 20 3b | 6c 65 66 74 20 74 68 69 | ;|left thi|
|00000e10| 67 68 00 20 20 20 20 20 | 20 80 1a 2e 77 20 31 2c |gh. | ...w 1,|
|00000e20| 2d 34 38 2c 34 30 20 20 | 20 20 3b 6c 65 66 74 20 |-48,40 | ;left |
|00000e30| 63 61 6c 66 00 20 20 20 | 20 20 20 20 20 80 1a 2e |calf. | ...|
|00000e40| 77 20 30 2c 38 30 2c 31 | 36 20 20 20 3b 6c 65 66 |w 0,80,1|6 ;lef|
|00000e50| 74 20 66 6f 6f 74 00 20 | 20 20 20 80 1a 2e 77 20 |t foot. | ...w |
|00000e60| 33 2c 31 39 32 2c 32 30 | 20 20 20 20 20 20 3b 62 |3,192,20| ;b|
|00000e70| 61 63 6b 20 62 6f 6e 65 | 00 20 20 20 20 20 20 80 |ack bone|. .|
|00000e80| 1a 2e 77 20 31 2c 37 36 | 2c 34 30 20 20 20 20 20 |..w 1,76|,40 |
|00000e90| 3b 72 69 67 68 74 20 74 | 6f 70 20 61 72 6d 00 20 |;right t|op arm. |
|00000ea0| 20 20 20 20 20 20 20 80 | 1a 2e 77 20 30 2c 33 32 | .|..w 0,32|
|00000eb0| 2c 33 30 20 20 20 3b 72 | 69 67 68 74 20 6c 6f 77 |,30 ;r|ight low|
|00000ec0| 20 61 72 6d 00 20 20 20 | 20 20 20 80 1a 2e 77 20 | arm. | ...w |
|00000ed0| 31 2c 31 39 32 2c 34 30 | 20 20 20 20 3b 6c 65 66 |1,192,40| ;lef|
|00000ee0| 74 20 74 6f 70 20 61 72 | 6d 00 20 20 20 20 20 20 |t top ar|m. |
|00000ef0| 20 20 80 1a 2e 77 20 30 | 2c 33 32 2c 33 30 20 20 | ...w 0|,32,30 |
|00000f00| 20 3b 6c 65 66 74 20 6c | 6f 77 20 61 72 6d 00 20 | ;left l|ow arm. |
|00000f10| 20 20 20 20 20 80 1a 2e | 77 20 30 2c 31 32 38 2c | ...|w 0,128,|
|00000f20| 2d 32 30 00 | |-20. | |
+--------+-------------------------+-------------------------+--------+--------+
