/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / s1 / spirodraw / !SpiroDraw / Common

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0a dd f2 70 6f | 6c 6c 0d 00 14 20 c8 99 |......po|ll... ..|
|00000010| 20 26 34 30 30 43 37 2c | 6d 61 73 6b 25 2c 42 25 | &400C7,|mask%,B%|
|00000020| 20 b8 20 72 65 61 73 6f | 6e 25 0d 00 1e 10 c8 8e | . reaso|n%......|
|00000030| 20 72 65 61 73 6f 6e 25 | 20 ca 0d 00 28 13 c9 20 | reason%| ...(.. |
|00000040| 30 20 3a f2 64 6f 6e 65 | 78 74 70 69 63 0d 00 32 |0 :.done|xtpic..2|
|00000050| 16 c9 20 32 20 3a c8 99 | 20 26 34 30 30 43 35 2c |.. 2 :..| &400C5,|
|00000060| 2c 42 25 0d 00 3c 19 e7 | 20 21 42 25 3d 64 69 73 |,B%..<..| !B%=dis|
|00000070| 70 25 20 64 72 61 77 6f | 70 25 3d b9 0d 00 46 16 |p% drawo|p%=...F.|
|00000080| c9 20 33 20 3a c8 99 20 | 26 34 30 30 43 36 2c 2c |. 3 :.. |&400C6,,|
|00000090| 42 25 0d 00 50 19 e7 20 | 21 42 25 3d 64 69 73 70 |B%..P.. |!B%=disp|
|000000a0| 25 20 64 72 61 77 6f 70 | 25 3d a3 0d 00 5a 11 c9 |% drawop|%=...Z..|
|000000b0| 20 36 20 3a f2 62 75 74 | 74 6f 6e 73 0d 00 64 16 | 6 :.but|tons..d.|
|000000c0| c9 20 37 20 3a f2 69 6e | 69 74 69 61 74 65 73 61 |. 7 :.in|itiatesa|
|000000d0| 76 65 0d 00 6e 24 c9 20 | 38 20 3a e7 20 ac 20 a4 |ve..n$. |8 :. . .|
|000000e0| 6f 75 72 6b 65 79 20 c8 | 99 20 26 34 30 30 44 43 |ourkey .|. &400DC|
|000000f0| 2c 42 25 21 32 34 0d 00 | 78 14 c9 20 39 20 3a f2 |,B%!24..|x.. 9 :.|
|00000100| 6d 65 6e 75 73 65 6c 65 | 63 74 0d 00 82 14 c9 20 |menusele|ct..... |
|00000110| 31 37 2c 31 38 3a f2 72 | 65 63 65 69 76 65 0d 00 |17,18:.r|eceive..|
|00000120| 8c 42 c9 20 31 39 3a c8 | 99 20 26 38 2c 36 2c 42 |.B. 19:.|. &8,6,B|
|00000130| 25 2b 34 34 3a 85 20 32 | 35 35 2c 22 44 61 74 61 |%+44:. 2|55,"Data|
|00000140| 20 74 72 61 6e 73 66 65 | 72 20 66 61 69 6c 65 64 | transfe|r failed|
|00000150| 3a 20 52 65 63 65 69 76 | 65 72 20 64 69 65 64 22 |: Receiv|er died"|
|00000160| 0d 00 96 05 cb 0d 00 a0 | 05 e1 0d 00 aa 05 3a 0d |........|......:.|
|00000170| 00 b4 16 dd f2 69 63 6f | 6e 73 74 61 74 65 28 68 |.....ico|nstate(h|
|00000180| 25 2c 69 25 29 0d 00 be | 2f 21 42 25 3d 68 25 3a |%,i%)...|/!B%=h%:|
|00000190| 42 25 21 34 3d 69 25 3a | 42 25 21 38 3d 30 3a 42 |B%!4=i%:|B%!8=0:B|
|000001a0| 25 21 31 32 3d 30 3a c8 | 99 20 26 34 30 30 43 44 |%!12=0:.|. &400CD|
|000001b0| 2c 2c 42 25 0d 00 c8 05 | e1 0d 00 d2 05 3a 0d 00 |,,B%....|.....:..|
|000001c0| dc 0d dd f2 72 65 63 65 | 69 76 65 0d 00 e6 0e c8 |....rece|ive.....|
|000001d0| 8e 20 42 25 21 31 36 20 | ca 0d 00 f0 0f c9 20 30 |. B%!16 |...... 0|
|000001e0| 3a 71 75 69 74 25 3d b9 | 0d 00 fa 11 c9 20 32 3a |:quit%=.|..... 2:|
|000001f0| f2 64 61 74 61 73 61 76 | 65 0d 01 04 1d c9 20 36 |.datasav|e..... 6|
|00000200| 3a e7 20 74 79 24 3d 22 | 61 66 66 22 20 f2 72 61 |:. ty$="|aff" .ra|
|00000210| 6d 66 65 74 63 68 0d 01 | 0e 15 c9 20 39 3a f2 73 |mfetch..|... 9:.s|
|00000220| 65 74 75 70 70 61 6c 65 | 74 74 65 0d 01 18 0c c9 |etuppale|tte.....|
|00000230| 20 26 34 30 30 43 30 0d | 01 22 17 73 24 3d 64 66 | &400C0.|.".s$=df|
|00000240| 69 6c 65 24 3a 74 79 24 | 3d 22 61 66 66 22 0d 01 |ile$:ty$|="aff"..|
|00000250| 2c 41 e7 20 42 25 21 33 | 36 3d 31 20 73 24 3d 73 |,A. B%!3|6=1 s$=s|
|00000260| 66 69 6c 65 24 3a 74 79 | 24 3d 22 66 66 39 22 20 |file$:ty|$="ff9" |
|00000270| 8b 20 e7 20 42 25 21 33 | 36 3d 32 20 73 24 3d 74 |. . B%!3|6=2 s$=t|
|00000280| 66 69 6c 65 24 3a 74 79 | 24 3d 22 66 66 66 22 0d |file$:ty|$="fff".|
|00000290| 01 36 05 cd 0d 01 40 23 | f2 63 68 61 6e 67 65 74 |.6....@#|.changet|
|000002a0| 65 78 74 28 73 62 78 25 | 2c 30 2c 22 66 69 6c 65 |ext(sbx%|,0,"file|
|000002b0| 5f 22 2b 74 79 24 29 0d | 01 4a 1a f2 63 68 61 6e |_"+ty$).|.J..chan|
|000002c0| 67 65 74 65 78 74 28 73 | 62 78 25 2c 32 2c 73 24 |getext(s|bx%,2,s$|
|000002d0| 29 0d 01 54 20 c8 99 20 | 26 34 30 30 45 38 2c 2c |)..T .. |&400E8,,|
|000002e0| 42 25 21 32 30 2c 42 25 | 21 32 34 2c 42 25 21 32 |B%!20,B%|!24,B%!2|
|000002f0| 38 0d 01 5e 05 cb 0d 01 | 68 05 e1 0d 01 72 05 3a |8..^....|h....r.:|
|00000300| 0d 01 7c 18 dd f2 67 65 | 74 77 69 6e 64 6f 77 73 |..|...ge|twindows|
|00000310| 74 61 74 65 28 68 25 29 | 0d 01 86 18 21 42 25 3d |tate(h%)|....!B%=|
|00000320| 68 25 3a c8 99 20 26 34 | 30 30 43 42 2c 2c 42 25 |h%:.. &4|00CB,,B%|
|00000330| 0d 01 90 05 e1 0d 01 9a | 05 3a 0d 01 a4 14 dd f2 |........|.:......|
|00000340| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 68 25 29 0d 01 |openwind|ow(h%)..|
|00000350| ae 17 f2 67 65 74 77 69 | 6e 64 6f 77 73 74 61 74 |...getwi|ndowstat|
|00000360| 65 28 68 25 29 0d 01 b8 | 1a 42 25 21 32 38 3d 2d |e(h%)...|.B%!28=-|
|00000370| 31 3a c8 99 20 26 34 30 | 30 43 35 2c 2c 42 25 0d |1:.. &40|0C5,,B%.|
|00000380| 01 c2 18 e7 20 68 25 3d | 64 69 73 70 25 20 64 72 |.... h%=|disp% dr|
|00000390| 61 77 6f 70 25 3d b9 0d | 01 cc 05 e1 0d 01 d6 05 |awop%=..|........|
|000003a0| 3a 0d 01 e0 0b dd f2 63 | 6c 6f 73 65 0d 01 ea 0e |:......c|lose....|
|000003b0| 24 42 25 3d 22 54 41 53 | 4b 22 0d 01 f4 17 c8 99 |$B%="TAS|K"......|
|000003c0| 20 26 34 30 30 44 44 2c | 74 61 73 6b 25 2c 21 42 | &400DD,|task%,!B|
|000003d0| 25 0d 01 fe 05 e1 0d 02 | 08 05 3a 0d 02 12 0f dd |%.......|..:.....|
|000003e0| a4 77 69 6d 70 65 72 72 | 6f 72 0d 02 1c 1a e7 20 |.wimperr|or..... |
|000003f0| fc 20 d5 23 fc 2c f6 24 | 2b 22 20 22 2b c3 28 9e |. .#.,.$|+" "+.(.|
|00000400| 2f 31 30 29 0d 02 26 28 | e7 20 76 64 75 25 20 c8 |/10)..&(|. vdu% .|
|00000410| 99 20 26 32 45 2c 73 30 | 25 2c 73 31 25 2c 73 32 |. &2E,s0|%,s1%,s2|
|00000420| 25 2c 73 33 25 3a 76 64 | 75 25 3d a3 0d 02 30 33 |%,s3%:vd|u%=...03|
|00000430| e7 20 6d 65 6d 73 74 61 | 72 74 25 3e 2d 31 20 f2 |. memsta|rt%>-1 .|
|00000440| 72 65 6c 65 61 73 65 28 | 6d 65 6d 73 74 61 72 74 |release(|memstart|
|00000450| 25 29 3a 6d 65 6d 73 74 | 61 72 74 25 3d 2d 31 0d |%):memst|art%=-1.|
|00000460| 02 3a 09 21 42 25 3d 9f | 0d 02 44 31 24 28 42 25 |.:.!B%=.|..D1$(B%|
|00000470| 2b 34 29 3d f6 24 2b 22 | 20 28 69 6e 74 65 72 6e |+4)=.$+"| (intern|
|00000480| 61 6c 20 65 72 72 6f 72 | 20 63 6f 64 65 20 22 2b |al error| code "+|
|00000490| c3 9e 2b 22 29 22 2b bd | 30 0d 02 4e 25 c8 99 20 |..+")"+.|0..N%.. |
|000004a0| 26 34 30 30 44 46 2c 42 | 25 2c 33 2c 70 72 6f 67 |&400DF,B|%,3,prog|
|000004b0| 24 20 b8 20 2c 72 65 73 | 70 6f 6e 73 65 25 0d 02 |$ . ,res|ponse%..|
|000004c0| 58 22 e7 20 72 65 73 70 | 6f 6e 73 65 25 3d 32 20 |X". resp|onse%=2 |
|000004d0| 8c 20 f2 63 6c 6f 73 65 | 3a 3d b9 20 8b 20 3d a3 |. .close|:=. . =.|
|000004e0| 0d 02 62 05 3a 0d 02 6c | 20 dd a4 64 72 61 77 6d |..b.:..l| ..drawm|
|000004f0| 65 6e 75 28 6e 6c 65 6e | 25 2c 6d 65 6e 75 24 2c |enu(nlen|%,menu$,|
|00000500| 65 6e 74 25 29 0d 02 76 | 18 de 20 6d 65 6e 75 62 |ent%)..v|.. menub|
|00000510| 25 20 32 38 2b 32 34 2a | 6e 6c 65 6e 25 0d 02 80 |% 28+24*|nlen%...|
|00000520| 21 24 6d 65 6e 75 62 25 | 3d c0 6d 65 6e 75 24 2c |!$menub%|=.menu$,|
|00000530| a7 6d 65 6e 75 24 2c 22 | 2c 22 29 2d 31 29 0d 02 |.menu$,"|,")-1)..|
|00000540| 8a 26 e7 20 a9 24 6d 65 | 6e 75 62 25 3e 31 32 20 |.&. .$me|nub%>12 |
|00000550| 24 6d 65 6e 75 62 25 3d | c0 24 6d 65 6e 75 62 25 |$menub%=|.$menub%|
|00000560| 2c 31 32 29 0d 02 94 1c | 6d 65 6e 75 24 2b 3d 22 |,12)....|menu$+="|
|00000570| 2c 22 3a 6d 61 78 25 3d | a9 24 6d 65 6e 75 62 25 |,":max%=|.$menub%|
|00000580| 0d 02 9e 14 6d 65 6e 75 | 62 25 21 31 32 3d 26 37 |....menu|b%!12=&7|
|00000590| 30 32 30 37 0d 02 a8 1e | 6d 65 6e 75 62 25 21 31 |0207....|menub%!1|
|000005a0| 36 3d 31 38 30 3a 6d 65 | 6e 75 62 25 21 32 30 3d |6=180:me|nub%!20=|
|000005b0| 34 34 0d 02 b2 1e 6d 65 | 6e 75 62 25 21 32 34 3d |44....me|nub%!24=|
|000005c0| 30 3a 70 74 72 25 3d 6d | 65 6e 75 62 25 2b 32 38 |0:ptr%=m|enub%+28|
|000005d0| 0d 02 bc 14 e7 20 65 6e | 74 25 20 65 6e 74 72 69 |..... en|t% entri|
|000005e0| 65 73 3d 30 0d 02 c6 10 | c8 95 20 6d 65 6e 75 24 |es=0....|.. menu$|
|000005f0| 3c 3e 22 22 0d 02 d0 1f | 6d 65 6e 75 24 3d c1 6d |<>""....|menu$=.m|
|00000600| 65 6e 75 24 2c a7 6d 65 | 6e 75 24 2c 22 2c 22 29 |enu$,.me|nu$,",")|
|00000610| 2b 31 29 0d 02 da 1b 73 | 68 61 64 65 25 3d a3 3a |+1)....s|hade%=.:|
|00000620| 6d 65 73 73 25 3d a3 3a | 69 6e 25 3d 2d 31 0d 02 |mess%=.:|in%=-1..|
|00000630| e4 10 6d 24 3d c0 6d 65 | 6e 75 24 2c 31 29 0d 02 |..m$=.me|nu$,1)..|
|00000640| ee 16 c8 95 20 6d 24 3d | 22 3c 22 20 84 20 6d 24 |.... m$=|"<" . m$|
|00000650| 3d 22 5b 22 0d 02 f8 0b | c8 8e 20 6d 24 20 ca 0d |="["....|.. m$ ..|
|00000660| 03 02 09 c9 20 22 3c 22 | 0d 03 0c 18 64 24 3d a4 |.... "<"|....d$=.|
|00000670| 73 70 6c 69 74 28 6d 65 | 6e 75 24 2c 22 3e 22 29 |split(me|nu$,">")|
|00000680| 0d 03 16 17 e7 20 a7 64 | 24 2c 22 73 22 29 20 73 |..... .d|$,"s") s|
|00000690| 68 61 64 65 25 3d b9 0d | 03 20 16 e7 20 a7 64 24 |hade%=..|. .. .d$|
|000006a0| 2c 22 6d 22 29 20 6d 65 | 73 73 25 3d b9 0d 03 2a |,"m") me|ss%=...*|
|000006b0| 20 c9 20 22 5b 22 3a 69 | 6e 25 3d a0 a4 73 70 6c | . "[":i|n%=..spl|
|000006c0| 69 74 28 6d 65 6e 75 24 | 2c 22 5d 22 29 0d 03 34 |it(menu$|,"]")..4|
|000006d0| 05 cb 0d 03 3e 10 6d 24 | 3d c0 6d 65 6e 75 24 2c |....>.m$|=.menu$,|
|000006e0| 31 29 0d 03 48 05 ce 0d | 03 52 11 e7 20 6d 65 6e |1)..H...|.R.. men|
|000006f0| 75 24 3c 3e 22 22 20 8c | 0d 03 5c 1d 21 70 74 72 |u$<>"" .|..\.!ptr|
|00000700| 25 3d 2d 38 2a 6d 65 73 | 73 25 3a 70 74 72 25 21 |%=-8*mes|s%:ptr%!|
|00000710| 34 3d 69 6e 25 0d 03 66 | 28 70 74 72 25 21 38 3d |4=in%..f|(ptr%!8=|
|00000720| 26 32 31 20 84 28 28 2d | 73 68 61 64 65 25 29 3c |&21 .((-|shade%)<|
|00000730| 3c 32 32 29 20 2b 28 37 | 3c 3c 32 34 29 0d 03 70 |<22) +(7|<<24)..p|
|00000740| 1c 70 24 3d c0 6d 65 6e | 75 24 2c a7 6d 65 6e 75 |.p$=.men|u$,.menu|
|00000750| 24 2c 22 2c 22 29 2d 31 | 29 0d 03 7a 17 e7 20 a9 |$,",")-1|)..z.. .|
|00000760| 70 24 3e 6d 61 78 25 20 | 6d 61 78 25 3d a9 70 24 |p$>max% |max%=.p$|
|00000770| 0d 03 84 11 24 28 70 74 | 72 25 2b 31 32 29 3d 70 |....$(pt|r%+12)=p|
|00000780| 24 0d 03 8e 1e 70 74 72 | 25 2b 3d 32 34 3a e7 20 |$....ptr|%+=24:. |
|00000790| 65 6e 74 25 20 65 6e 74 | 72 69 65 73 2b 3d 31 0d |ent% ent|ries+=1.|
|000007a0| 03 98 05 cd 0d 03 a2 05 | ce 0d 03 ac 19 6d 65 6e |........|.....men|
|000007b0| 75 62 25 21 31 36 3d 31 | 36 2a 28 6d 61 78 25 2b |ub%!16=1|6*(max%+|
|000007c0| 31 29 0d 03 b6 1b 70 74 | 72 25 21 2d 32 34 3d 70 |1)....pt|r%!-24=p|
|000007d0| 74 72 25 21 2d 32 34 20 | 84 20 26 38 30 0d 03 c0 |tr%!-24 |. &80...|
|000007e0| 0b 3d 6d 65 6e 75 62 25 | 0d 03 ca 05 3a 0d 03 d4 |.=menub%|....:...|
|000007f0| 14 dd a4 73 70 6c 69 74 | 28 f8 20 6d 24 2c 63 24 |...split|(. m$,c$|
|00000800| 29 0d 03 de 2a 64 25 3d | a7 6d 24 2c 63 24 29 3a |)...*d%=|.m$,c$):|
|00000810| 64 24 3d c1 6d 24 2c 32 | 2c 64 25 2d 32 29 3a 6d |d$=.m$,2|,d%-2):m|
|00000820| 24 3d c1 6d 24 2c 64 25 | 2b 31 29 0d 03 e8 07 3d |$=.m$,d%|+1)....=|
|00000830| 64 24 0d 03 f2 05 3a 0d | 03 fc 18 dd f2 73 68 61 |d$....:.|.....sha|
|00000840| 64 65 28 6d 65 6e 75 25 | 2c 69 74 65 6d 25 29 0d |de(menu%|,item%).|
|00000850| 04 06 1e 6d 65 6e 75 25 | 3d 6d 65 6e 75 25 2b 32 |...menu%|=menu%+2|
|00000860| 38 2b 32 34 2a 69 74 65 | 6d 25 20 2b 38 0d 04 10 |8+24*ite|m% +8...|
|00000870| 1b 21 6d 65 6e 75 25 3d | 21 6d 65 6e 75 25 20 84 |.!menu%=|!menu% .|
|00000880| 20 28 31 3c 3c 32 32 29 | 0d 04 1a 05 e1 0d 04 24 | (1<<22)|.......$|
|00000890| 05 3a 0d 04 2e 1a dd f2 | 75 6e 73 68 61 64 65 28 |.:......|unshade(|
|000008a0| 6d 65 6e 75 25 2c 69 74 | 65 6d 25 29 0d 04 38 1e |menu%,it|em%)..8.|
|000008b0| 6d 65 6e 75 25 3d 6d 65 | 6e 75 25 2b 32 38 2b 32 |menu%=me|nu%+28+2|
|000008c0| 34 2a 69 74 65 6d 25 20 | 2b 38 0d 04 42 1d 21 6d |4*item% |+8..B.!m|
|000008d0| 65 6e 75 25 3d 21 6d 65 | 6e 75 25 20 80 20 26 46 |enu%=!me|nu% . &F|
|000008e0| 46 42 46 46 46 46 46 0d | 04 4c 05 e1 0d 04 56 05 |FBFFFFF.|.L....V.|
|000008f0| 3a 0d 04 60 26 dd f2 73 | 68 6f 77 6d 65 6e 75 28 |:..`&..s|howmenu(|
|00000900| 6d 65 6e 75 25 2c 78 25 | 2c 79 25 2c 6f 6e 69 63 |menu%,x%|,y%,onic|
|00000910| 6f 6e 62 61 72 25 29 0d | 04 6a 0f 6d 69 6e 65 25 |onbar%).|.j.mine%|
|00000920| 3d 6d 65 6e 75 25 0d 04 | 74 2c e7 20 6f 6e 69 63 |=menu%..|t,. onic|
|00000930| 6f 6e 62 61 72 25 20 79 | 70 6f 73 25 3d 39 36 2b |onbar% y|pos%=96+|
|00000940| 34 34 2a 36 20 8b 20 79 | 70 6f 73 25 3d 79 25 2b |44*6 . y|pos%=y%+|
|00000950| 32 30 0d 04 7e 20 c8 99 | 20 26 34 30 30 44 34 2c |20..~ ..| &400D4,|
|00000960| 2c 6d 65 6e 75 25 2c 78 | 25 2d 36 34 2c 79 70 6f |,menu%,x|%-64,ypo|
|00000970| 73 25 0d 04 88 05 e1 0d | 04 92 05 3a 0d 04 9c 10 |s%......|...:....|
|00000980| dd f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 04 a6 16 |..menuse|lect....|
|00000990| 63 68 31 25 3d 21 42 25 | 3a 63 68 32 25 3d 42 25 |ch1%=!B%|:ch2%=B%|
|000009a0| 21 34 0d 04 b0 0e c8 8e | 20 6d 69 6e 65 25 20 ca |!4......| mine% .|
|000009b0| 0d 04 ba 0b c9 20 6d 65 | 6e 75 25 0d 04 c4 0c c8 |..... me|nu%.....|
|000009c0| 8e 20 21 42 25 20 ca 0d | 04 ce 12 c9 20 31 3a f2 |. !B% ..|.... 1:.|
|000009d0| 71 75 69 63 6b 73 61 76 | 65 0d 04 d8 0d c9 20 32 |quicksav|e..... 2|
|000009e0| 3a f2 75 6e 64 6f 0d 04 | e2 0e c9 20 33 3a f2 63 |:.undo..|... 3:.c|
|000009f0| 6c 65 61 72 0d 04 ec 0e | c9 20 34 3a f2 61 62 6f |lear....|. 4:.abo|
|00000a00| 72 74 0d 04 f6 0f c9 20 | 35 3a 71 75 69 74 25 3d |rt..... |5:quit%=|
|00000a10| b9 0d 05 00 05 cb 0d 05 | 0a 17 c9 20 6d 65 6e 75 |........|... menu|
|00000a20| 32 25 3a f2 71 75 69 63 | 6b 73 61 76 65 0d 05 14 |2%:.quic|ksave...|
|00000a30| 05 cb 0d 05 1e 3d e7 20 | ac 20 71 75 69 74 25 20 |.....=. |. quit% |
|00000a40| c8 99 20 26 34 30 30 43 | 46 2c 2c 42 25 3a e7 20 |.. &400C|F,,B%:. |
|00000a50| 42 25 21 38 3d 31 20 f2 | 73 68 6f 77 6d 65 6e 75 |B%!8=1 .|showmenu|
|00000a60| 28 6d 69 6e 65 25 2c 78 | 25 2c 79 25 2c a3 29 0d |(mine%,x|%,y%,.).|
|00000a70| 05 28 05 e1 0d 05 32 05 | 3a 0d 05 3c 0d dd f2 62 |.(....2.|:..<...b|
|00000a80| 75 74 74 6f 6e 73 0d 05 | 46 32 78 25 3d 21 42 25 |uttons..|F2x%=!B%|
|00000a90| 3a 79 25 3d 42 25 21 34 | 3a 62 75 74 74 25 3d 42 |:y%=B%!4|:butt%=B|
|00000aa0| 25 21 38 3a 68 25 3d 42 | 25 21 31 32 3a 69 63 6f |%!8:h%=B|%!12:ico|
|00000ab0| 6e 25 3d 42 25 21 31 36 | 0d 05 50 2e e7 20 62 75 |n%=B%!16|..P.. bu|
|00000ac0| 74 74 25 20 80 20 32 20 | f2 73 68 6f 77 6d 65 6e |tt% . 2 |.showmen|
|00000ad0| 75 28 6d 65 6e 75 25 2c | 78 25 2c 79 25 2c 68 25 |u(menu%,|x%,y%,h%|
|00000ae0| 3d 2d 32 29 3a e1 0d 05 | 5a 0b c8 8e 20 68 25 20 |=-2):...|Z... h% |
|00000af0| ca 0d 05 64 08 c9 20 2d | 32 0d 05 6e 3c e7 20 62 |...d.. -|2..n<. b|
|00000b00| 75 74 74 25 20 80 20 35 | 20 f2 6f 70 65 6e 77 69 |utt% . 5| .openwi|
|00000b10| 6e 64 6f 77 28 6f 70 74 | 25 29 3a e7 20 64 6f 6e |ndow(opt|%):. don|
|00000b20| 65 25 20 f2 6f 70 65 6e | 77 69 6e 64 6f 77 28 64 |e% .open|window(d|
|00000b30| 69 73 70 25 29 0d 05 78 | 0a c9 20 73 62 78 25 0d |isp%)..x|.. sbx%.|
|00000b40| 05 82 25 e7 20 62 75 74 | 74 25 20 80 20 35 20 3a |..%. but|t% . 5 :|
|00000b50| e7 20 69 63 6f 6e 25 3d | 31 20 f2 71 75 69 63 6b |. icon%=|1 .quick|
|00000b60| 73 61 76 65 0d 05 8c 25 | e7 20 62 75 74 74 25 20 |save...%|. butt% |
|00000b70| 80 20 26 35 30 20 3a e7 | 20 69 63 6f 6e 25 3d 30 |. &50 :.| icon%=0|
|00000b80| 20 f2 64 72 61 67 62 6f | 78 0d 05 96 0a c9 20 6f | .dragbo|x..... o|
|00000b90| 70 74 25 0d 05 a0 0e c8 | 8e 20 69 63 6f 6e 25 20 |pt%.....|. icon% |
|00000ba0| ca 0d 05 aa 19 c9 20 35 | 2c 36 20 3a 69 6e 6e 65 |...... 5|,6 :inne|
|00000bb0| 72 25 3d 69 63 6f 6e 25 | 3d 35 0d 05 b4 24 c9 20 |r%=icon%|=5...$. |
|00000bc0| 38 3a f2 77 68 65 72 65 | 69 73 28 6f 70 74 25 2c |8:.where|is(opt%,|
|00000bd0| 38 29 3a f2 64 72 61 77 | 6e 65 77 63 6f 6c 0d 05 |8):.draw|newcol..|
|00000be0| be 2b c9 20 31 31 2c 31 | 32 2c 31 33 2c 31 34 3a |.+. 11,1|2,13,14:|
|00000bf0| 6e 69 62 25 3d 69 63 6f | 6e 25 2d 31 31 3a f2 64 |nib%=ico|n%-11:.d|
|00000c00| 72 61 77 6e 65 77 63 6f | 6c 0d 05 c8 14 c9 20 31 |rawnewco|l..... 1|
|00000c10| 36 3a f2 64 72 61 77 73 | 70 72 69 74 65 0d 05 d2 |6:.draws|prite...|
|00000c20| 05 cb 0d 05 dc 25 c9 20 | 64 69 73 70 25 3a f2 73 |.....%. |disp%:.s|
|00000c30| 68 6f 77 6d 65 6e 75 28 | 6d 65 6e 75 32 25 2c 78 |howmenu(|menu2%,x|
|00000c40| 25 2c 79 25 2c a3 29 0d | 05 e6 05 cb 0d 05 f0 05 |%,y%,.).|........|
|00000c50| e1 0d 05 fa 05 3a 0d 06 | 04 10 dd a4 73 74 72 69 |.....:..|....stri|
|00000c60| 6e 67 28 6c 25 29 0d 06 | 0e 15 64 24 3d 22 22 3a |ng(l%)..|..d$="":|
|00000c70| 61 25 3d 30 3a 62 25 3d | 3f 6c 25 0d 06 18 25 c8 |a%=0:b%=|?l%...%.|
|00000c80| 95 20 62 25 3e 33 31 20 | 64 24 2b 3d bd 62 25 3a |. b%>31 |d$+=.b%:|
|00000c90| 61 25 2b 3d 31 3a 62 25 | 3d 6c 25 3f 61 25 3a ce |a%+=1:b%|=l%?a%:.|
|00000ca0| 0d 06 22 07 3d 64 24 0d | 06 2c 05 3a 0d 06 36 0d |..".=d$.|.,.:..6.|
|00000cb0| dd f2 64 72 61 67 62 6f | 78 0d 06 40 19 f2 67 65 |..dragbo|x..@..ge|
|00000cc0| 74 77 69 6e 64 6f 77 73 | 74 61 74 65 28 73 62 78 |twindows|tate(sbx|
|00000cd0| 25 29 0d 06 4a 22 6f 78 | 25 3d 42 25 21 34 2d 42 |%)..J"ox|%=B%!4-B|
|00000ce0| 25 21 32 30 3a 6f 79 25 | 3d 42 25 21 31 36 2d 42 |%!20:oy%|=B%!16-B|
|00000cf0| 25 21 32 34 0d 06 54 18 | 42 25 21 34 3d 30 3a c8 |%!24..T.|B%!4=0:.|
|00000d00| 99 20 26 34 30 30 43 45 | 2c 2c 42 25 0d 06 5e 13 |. &400CE|,,B%..^.|
|00000d10| 21 42 25 3d 73 62 78 25 | 3a 42 25 21 34 3d 35 0d |!B%=sbx%|:B%!4=5.|
|00000d20| 06 68 18 42 25 21 38 2b | 3d 6f 78 25 3a 42 25 21 |.h.B%!8+|=ox%:B%!|
|00000d30| 31 32 2b 3d 6f 79 25 0d | 06 72 19 42 25 21 31 36 |12+=oy%.|.r.B%!16|
|00000d40| 2b 3d 6f 78 25 3a 42 25 | 21 32 30 2b 3d 6f 79 25 |+=ox%:B%|!20+=oy%|
|00000d50| 0d 06 7c 13 42 25 21 32 | 34 3d 30 3a 42 25 21 32 |..|.B%!2|4=0:B%!2|
|00000d60| 38 3d 30 0d 06 86 23 42 | 25 21 33 32 3d 26 37 46 |8=0...#B|%!32=&7F|
|00000d70| 46 46 46 46 46 46 3a 42 | 25 21 33 36 3d 26 37 46 |FFFFFF:B|%!36=&7F|
|00000d80| 46 46 46 46 46 46 0d 06 | 90 11 c8 99 20 26 34 30 |FFFFFF..|.... &40|
|00000d90| 30 44 30 2c 2c 42 25 0d | 06 9a 05 e1 0d 06 a4 05 |0D0,,B%.|........|
|00000da0| 3a 0d 06 ae 0f dd f2 71 | 75 69 63 6b 73 61 76 65 |:......q|uicksave|
|00000db0| 0d 06 b8 14 66 24 3d a4 | 74 65 78 74 28 73 62 78 |....f$=.|text(sbx|
|00000dc0| 25 2c 32 29 0d 06 c2 11 | e7 20 a7 66 24 2c 22 2e |%,2)....|. .f$,".|
|00000dd0| 22 29 20 20 8c 0d 06 cc | 0c c8 8e 20 74 79 24 20 |")  ....|... ty$ |
|00000de0| ca 0d 06 d6 19 c9 20 22 | 61 66 66 22 3a f2 73 61 |...... "|aff":.sa|
|00000df0| 76 65 64 72 61 77 28 66 | 24 29 0d 06 e0 1b c9 20 |vedraw(f|$)..... |
|00000e00| 22 66 66 39 22 3a f2 73 | 61 76 65 73 70 72 69 74 |"ff9":.s|avesprit|
|00000e10| 65 28 66 24 29 0d 06 ea | 19 c9 20 22 66 66 66 22 |e(f$)...|.. "fff"|
|00000e20| 3a f2 73 61 76 65 70 61 | 72 73 28 66 24 29 0d 06 |:.savepa|rs(f$)..|
|00000e30| f4 05 cb 0d 06 fe 11 c8 | 99 20 26 34 30 30 44 34 |........|. &400D4|
|00000e40| 2c 2c 2d 31 0d 07 08 05 | cc 0d 07 12 3c 24 42 25 |,,-1....|....<$B%|
|00000e50| 3d 22 20 20 20 20 20 20 | 54 6f 20 73 61 76 65 2c |="      |To save,|
|00000e60| 20 64 72 61 67 20 74 68 | 65 20 69 63 6f 6e 20 74 | drag th|e icon t|
|00000e70| 6f 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 76 69 |o a dire|ctory vi|
|00000e80| 65 77 65 72 22 0d 07 1c | 18 c8 99 20 26 34 30 30 |ewer"...|... &400|
|00000e90| 44 46 2c 42 25 2c 31 2c | 70 72 6f 67 24 0d 07 26 |DF,B%,1,|prog$..&|
|00000ea0| 05 cd 0d 07 30 05 e1 0d | 07 3a 05 3a 0d 07 44 12 |....0...|.:.:..D.|
|00000eb0| dd f2 69 6e 69 74 69 61 | 74 65 73 61 76 65 0d 07 |..initia|tesave..|
|00000ec0| 4e 2a e7 20 74 79 24 3d | 22 61 66 66 22 20 f2 73 |N*. ty$=|"aff" .s|
|00000ed0| 61 76 65 70 61 74 68 20 | 8b 20 73 61 76 65 6c 65 |avepath |. savele|
|00000ee0| 6e 25 3d 26 34 30 30 30 | 0d 07 58 11 c8 99 20 26 |n%=&4000|..X... &|
|00000ef0| 34 30 30 43 46 2c 2c 42 | 25 0d 07 62 1b 42 25 21 |400CF,,B|%..b.B%!|
|00000f00| 32 30 3d 42 25 21 31 32 | 3a 42 25 21 32 34 3d 42 |20=B%!12|:B%!24=B|
|00000f10| 25 21 31 36 0d 07 6c 19 | 42 25 21 32 38 3d 42 25 |%!16..l.|B%!28=B%|
|00000f20| 21 30 3a 42 25 21 33 32 | 3d 42 25 21 34 0d 07 76 |!0:B%!32|=B%!4..v|
|00000f30| 12 42 25 21 33 36 3d 73 | 61 76 65 6c 65 6e 25 0d |.B%!36=s|avelen%.|
|00000f40| 07 80 1c 42 25 21 30 3d | 32 35 36 3a 42 25 21 31 |...B%!0=|256:B%!1|
|00000f50| 32 3d 30 3a 42 25 21 31 | 36 3d 31 0d 07 8a 14 42 |2=0:B%!1|6=1....B|
|00000f60| 25 21 34 30 3d a0 28 22 | 26 22 2b 74 79 24 29 0d |%!40=.("|&"+ty$).|
|00000f70| 07 94 24 24 28 42 25 2b | 34 34 29 3d a4 67 65 74 |..$$(B%+|44)=.get|
|00000f80| 6c 65 61 66 28 a4 74 65 | 78 74 28 73 62 78 25 2c |leaf(.te|xt(sbx%,|
|00000f90| 32 29 29 0d 07 9e 1f c8 | 99 20 26 34 30 30 45 37 |2)).....|. &400E7|
|00000fa0| 2c 31 37 2c 42 25 2c 42 | 25 21 32 30 2c 42 25 21 |,17,B%,B|%!20,B%!|
|00000fb0| 32 34 0d 07 a8 05 e1 0d | 07 b2 05 3a 0d 07 bc 14 |24......|...:....|
|00000fc0| dd a4 67 65 74 6c 65 61 | 66 28 6e 61 6d 65 24 29 |..getlea|f(name$)|
|00000fd0| 0d 07 c6 12 c8 95 20 a7 | 6e 61 6d 65 24 2c 22 2e |...... .|name$,".|
|00000fe0| 22 29 0d 07 d0 1f 6e 61 | 6d 65 24 3d c1 6e 61 6d |")....na|me$=.nam|
|00000ff0| 65 24 2c a7 6e 61 6d 65 | 24 2c 22 2e 22 29 2b 31 |e$,.name|$,".")+1|
|00001000| 29 0d 07 da 05 ce 0d 07 | e4 0d 3d 6e 61 6d 65 24 |).......|..=name$|
|00001010| 2b bd 30 0d 07 ee 05 3a | 0d 07 f8 0e dd f2 64 61 |+.0....:|......da|
|00001020| 74 61 73 61 76 65 0d 08 | 02 15 66 24 3d a4 73 74 |tasave..|..f$=.st|
|00001030| 72 69 6e 67 28 42 25 2b | 34 34 29 0d 08 0c 0c c8 |ring(B%+|44).....|
|00001040| 8e 20 74 79 24 20 ca 0d | 08 16 1b 20 20 c9 20 22 |. ty$ ..|...  . "|
|00001050| 61 66 66 22 3a f2 73 61 | 76 65 64 72 61 77 28 66 |aff":.sa|vedraw(f|
|00001060| 24 29 0d 08 20 1d 20 20 | c9 20 22 66 66 39 22 3a |$).. .  |. "ff9":|
|00001070| f2 73 61 76 65 73 70 72 | 69 74 65 28 66 24 29 0d |.savespr|ite(f$).|
|00001080| 08 2a 1b 20 20 c9 20 22 | 66 66 66 22 3a f2 73 61 |.*.  . "|fff":.sa|
|00001090| 76 65 70 61 72 73 28 66 | 24 29 0d 08 34 05 cb 0d |vepars(f|$)..4...|
|000010a0| 08 3e 11 c8 99 20 26 34 | 30 30 44 34 2c 2c 2d 31 |.>... &4|00D4,,-1|
|000010b0| 0d 08 48 1e 42 25 21 31 | 32 3d 42 25 21 38 3a 42 |..H.B%!1|2=B%!8:B|
|000010c0| 25 21 31 36 3d 33 3a 21 | 42 25 3d 32 35 36 0d 08 |%!16=3:!|B%=256..|
|000010d0| 52 1f c8 99 20 26 34 30 | 30 45 37 2c 31 38 2c 42 |R... &40|0E7,18,B|
|000010e0| 25 2c 42 25 21 32 30 2c | 42 25 21 32 34 0d 08 5c |%,B%!20,|B%!24..\|
|000010f0| 05 e1 0d 08 66 05 3a 0d | 08 70 14 dd f2 73 61 76 |....f.:.|.p...sav|
|00001100| 65 73 70 72 69 74 65 28 | 64 24 29 0d 08 7a 19 e7 |esprite(|d$)..z..|
|00001110| 20 97 64 24 3c 3e 97 22 | 3c 22 20 73 66 69 6c 65 | .d$<>."|<" sfile|
|00001120| 24 3d 64 24 0d 08 84 17 | c8 99 20 26 32 45 2c 26 |$=d$....|.. &2E,&|
|00001130| 31 30 43 2c 70 69 63 25 | 2c 64 24 0d 08 8e 05 e1 |10C,pic%|,d$.....|
|00001140| 0d 08 98 05 3a 0d 08 a2 | 23 dd a4 73 70 72 69 74 |....:...|#..sprit|
|00001150| 65 69 6e 69 74 28 6d 6f | 64 65 25 2c 77 25 2c 68 |einit(mo|de%,w%,h|
|00001160| 25 2c 6e 61 6d 65 24 29 | 0d 08 ac 15 6c 65 6e 25 |%,name$)|....len%|
|00001170| 3d 77 25 2a 68 25 2f 34 | 2b 26 31 30 30 0d 08 b6 |=w%*h%/4|+&100...|
|00001180| 0f de 20 70 69 63 25 20 | 6c 65 6e 25 0d 08 c0 2c |.. pic% |len%...,|
|00001190| 21 70 69 63 25 3d 6c 65 | 6e 25 3a 70 69 63 25 21 |!pic%=le|n%:pic%!|
|000011a0| 34 3d 30 3a 70 69 63 25 | 21 38 3d 31 36 3a 70 69 |4=0:pic%|!8=16:pi|
|000011b0| 63 25 21 31 32 3d 31 36 | 0d 08 ca 1b c8 99 20 26 |c%!12=16|...... &|
|000011c0| 33 35 2c 6d 6f 64 65 25 | 2c 34 20 b8 20 2c 2c 78 |35,mode%|,4 . ,,x|
|000011d0| 65 69 67 0d 08 d4 1b c8 | 99 20 26 33 35 2c 6d 6f |eig.....|. &35,mo|
|000011e0| 64 65 25 2c 35 20 b8 20 | 2c 2c 79 65 69 67 0d 08 |de%,5 . |,,yeig..|
|000011f0| de 14 c8 99 20 26 32 45 | 2c 26 31 30 39 2c 70 69 |.... &2E|,&109,pi|
|00001200| 63 25 0d 08 e8 34 c8 99 | 20 26 32 45 2c 26 31 30 |c%...4..| &2E,&10|
|00001210| 46 2c 70 69 63 25 2c 6e | 61 6d 65 24 2c 31 2c 77 |F,pic%,n|ame$,1,w|
|00001220| 25 3e 3e 78 65 69 67 2c | 68 25 3e 3e 79 65 69 67 |%>>xeig,|h%>>yeig|
|00001230| 2c 6d 6f 64 65 25 0d 08 | f2 2b c8 99 20 26 32 45 |,mode%..|.+.. &2E|
|00001240| 2c 26 31 32 35 2c 70 69 | 63 25 2c 6e 61 6d 65 24 |,&125,pi|c%,name$|
|00001250| 2c 2d 31 20 b8 20 2c 2c | 2c 2c 73 70 72 70 61 6c |,-1 . ,,|,,sprpal|
|00001260| 25 0d 08 fc 09 3d 70 69 | 63 25 0d 09 06 05 3a 0d |%....=pi|c%....:.|
|00001270| 09 10 10 dd f2 64 72 61 | 77 73 70 72 69 74 65 0d |.....dra|wsprite.|
|00001280| 09 1a 16 ea 20 72 31 2c | 72 32 2c 72 33 2c 61 2c |.... r1,|r2,r3,a,|
|00001290| 62 2c 6d 78 25 0d 09 24 | 1d 64 6f 6e 65 25 3d b9 |b,mx%..$|.done%=.|
|000012a0| 3a 6d 61 73 6b 25 3d 30 | 3a 6e 64 72 61 77 25 2b |:mask%=0|:ndraw%+|
|000012b0| 3d 31 0d 09 2e 0d f2 73 | 65 74 75 70 70 69 63 0d |=1.....s|etuppic.|
|000012c0| 09 38 0e e7 20 69 6e 6e | 65 72 25 20 8c 0d 09 42 |.8.. inn|er% ...B|
|000012d0| 23 e7 20 72 33 3c 72 32 | 20 72 66 3d 72 31 20 8b |#. r3<r2| rf=r1 .|
|000012e0| 20 72 66 3d 72 31 2b 32 | 2a 28 72 33 2d 72 32 29 | rf=r1+2|*(r3-r2)|
|000012f0| 0d 09 4c 35 e7 20 72 66 | 3e 32 34 38 20 66 61 63 |..L5. rf|>248 fac|
|00001300| 3d 32 34 38 2f 72 66 3a | 72 32 3d 72 32 2a 66 61 |=248/rf:|r2=r2*fa|
|00001310| 63 3a 72 33 3d 72 33 2a | 66 61 63 3a 72 31 3d 72 |c:r3=r3*|fac:r1=r|
|00001320| 31 2a 66 61 63 0d 09 56 | 24 72 3d 72 31 2d 72 32 |1*fac..V|$r=r1-r2|
|00001330| 3a 64 3d 32 2a 72 31 3a | e7 20 64 3e 6e 62 6f 78 |:d=2*r1:|. d>nbox|
|00001340| 25 20 6e 62 6f 78 25 3d | 64 0d 09 60 05 cc 0d 09 |% nbox%=|d..`....|
|00001350| 6a 19 e7 20 72 33 3c 72 | 32 20 72 66 3d 72 32 20 |j.. r3<r|2 rf=r2 |
|00001360| 8b 20 72 66 3d 72 33 0d | 09 74 41 e7 20 72 31 2b |. rf=r3.|.tA. r1+|
|00001370| 32 2a 72 66 3e 32 34 38 | 20 66 61 63 3d 32 34 38 |2*rf>248| fac=248|
|00001380| 2f 28 72 31 2b 32 2a 72 | 66 29 3a 72 31 3d 66 61 |/(r1+2*r|f):r1=fa|
|00001390| 63 2a 72 31 3a 72 32 3d | 66 61 63 2a 72 32 3a 72 |c*r1:r2=|fac*r2:r|
|000013a0| 33 3d 66 61 63 2a 72 33 | 0d 09 7e 19 72 3d 72 31 |3=fac*r3|..~.r=r1|
|000013b0| 2b 72 32 3a 64 3d 32 2a | 28 72 31 2b 32 2a 72 66 |+r2:d=2*|(r1+2*rf|
|000013c0| 29 0d 09 88 05 cd 0d 09 | 92 15 e7 20 64 3e 6e 62 |).......|... d>nb|
|000013d0| 6f 78 25 20 6e 62 6f 78 | 25 3d 64 0d 09 9c 40 e7 |ox% nbox|%=d...@.|
|000013e0| 20 6e 65 77 25 20 78 33 | 3d 32 35 36 2b 72 2b 72 | new% x3|=256+r+r|
|000013f0| 33 3a 79 33 3d 32 35 36 | 3a 61 33 3d 30 3a 62 33 |3:y3=256|:a3=0:b3|
|00001400| 3d 30 3a 6e 65 77 25 3d | a3 3a 64 6f 64 72 61 77 |=0:new%=|.:dodraw|
|00001410| 25 3d 31 3a 70 69 63 69 | 25 3d 31 0d 09 a6 1a 6c |%=1:pici|%=1....l|
|00001420| 69 6e 65 28 30 2c 6e 64 | 72 61 77 25 29 3d 6e 65 |ine(0,nd|raw%)=ne|
|00001430| 77 63 6f 6c 25 0d 09 b0 | 14 6c 69 6e 65 28 31 2c |wcol%...|.line(1,|
|00001440| 6e 64 72 61 77 25 29 3d | 72 0d 09 ba 15 6c 69 6e |ndraw%)=|r....lin|
|00001450| 65 28 32 2c 6e 64 72 61 | 77 25 29 3d 72 31 0d 09 |e(2,ndra|w%)=r1..|
|00001460| c4 15 6c 69 6e 65 28 33 | 2c 6e 64 72 61 77 25 29 |..line(3|,ndraw%)|
|00001470| 3d 72 32 0d 09 ce 15 6c | 69 6e 65 28 34 2c 6e 64 |=r2....l|ine(4,nd|
|00001480| 72 61 77 25 29 3d 72 33 | 0d 09 d8 14 6c 69 6e 65 |raw%)=r3|....line|
|00001490| 28 35 2c 6e 64 72 61 77 | 25 29 3d 61 0d 09 e2 14 |(5,ndraw|%)=a....|
|000014a0| 6c 69 6e 65 28 36 2c 6e | 64 72 61 77 25 29 3d 62 |line(6,n|draw%)=b|
|000014b0| 0d 09 ec 19 6c 69 6e 65 | 28 37 2c 6e 64 72 61 77 |....line|(7,ndraw|
|000014c0| 25 29 3d 69 6e 6e 65 72 | 25 0d 09 f6 16 6c 69 6e |%)=inner|%....lin|
|000014d0| 65 28 38 2c 6e 64 72 61 | 77 25 29 3d 6d 78 25 0d |e(8,ndra|w%)=mx%.|
|000014e0| 0a 00 17 6c 69 6e 65 28 | 39 2c 6e 64 72 61 77 25 |...line(|9,ndraw%|
|000014f0| 29 3d 6e 69 62 25 0d 0a | 0a 16 f2 6f 70 65 6e 77 |)=nib%..|...openw|
|00001500| 69 6e 64 6f 77 28 64 69 | 73 70 25 29 0d 0a 14 05 |indow(di|sp%)....|
|00001510| e1 0d 0a 1e 05 3a 0d 0a | 28 0d dd f2 64 72 61 77 |.....:..|(...draw|
|00001520| 62 65 7a 0d 0a 32 14 f2 | 6d 61 6b 65 78 79 28 64 |bez..2..|makexy(d|
|00001530| 6f 64 72 61 77 25 29 0d | 0a 3c 27 21 62 65 7a 25 |odraw%).|.<'!bez%|
|00001540| 3d 32 3a 62 65 7a 25 21 | 34 3d 32 35 36 2a 78 30 |=2:bez%!|4=256*x0|
|00001550| 3a 62 65 7a 25 21 38 3d | 32 35 36 2a 79 30 0d 0a |:bez%!8=|256*y0..|
|00001560| 46 0d 62 65 7a 25 21 31 | 32 3d 36 0d 0a 50 23 62 |F.bez%!1|2=6..P#b|
|00001570| 65 7a 25 21 31 36 3d 32 | 35 36 2a 63 78 31 3a 62 |ez%!16=2|56*cx1:b|
|00001580| 65 7a 25 21 32 30 3d 32 | 35 36 2a 63 79 31 0d 0a |ez%!20=2|56*cy1..|
|00001590| 5a 23 62 65 7a 25 21 32 | 34 3d 32 35 36 2a 63 78 |Z#bez%!2|4=256*cx|
|000015a0| 32 3a 62 65 7a 25 21 32 | 38 3d 32 35 36 2a 63 79 |2:bez%!2|8=256*cy|
|000015b0| 32 0d 0a 64 21 62 65 7a | 25 21 33 32 3d 32 35 36 |2..d!bez|%!32=256|
|000015c0| 2a 78 33 3a 62 65 7a 25 | 21 33 36 3d 32 35 36 2a |*x3:bez%|!36=256*|
|000015d0| 79 33 0d 0a 6e 0d 62 65 | 7a 25 21 34 30 3d 30 0d |y3..n.be|z%!40=0.|
|000015e0| 0a 78 2e c8 99 20 26 34 | 30 37 30 34 2c 62 65 7a |.x... &4|0704,bez|
|000015f0| 25 2c 30 2c 30 2c 30 2c | 26 34 30 30 2a 74 68 69 |%,0,0,0,|&400*thi|
|00001600| 73 6e 69 62 25 2c 6a 6f | 69 6e 25 2c 30 0d 0a 82 |snib%,jo|in%,0...|
|00001610| 05 e1 0d 0a 8c 05 3a 0d | 0a 96 10 dd f2 6d 61 6b |......:.|.....mak|
|00001620| 65 78 79 28 64 25 29 0d | 0a a0 0f 78 30 3d 78 33 |exy(d%).|...x0=x3|
|00001630| 3a 79 30 3d 79 33 0d 0a | aa 25 61 31 3d 61 33 2b |:y0=y3..|.%a1=a3+|
|00001640| 6c 69 6e 65 28 35 2c 64 | 25 29 3a 62 31 3d 62 33 |line(5,d|%):b1=b3|
|00001650| 2b 6c 69 6e 65 28 36 2c | 64 25 29 0d 0a b4 25 61 |+line(6,|d%)...%a|
|00001660| 32 3d 61 31 2b 6c 69 6e | 65 28 35 2c 64 25 29 3a |2=a1+lin|e(5,d%):|
|00001670| 62 32 3d 62 31 2b 6c 69 | 6e 65 28 36 2c 64 25 29 |b2=b1+li|ne(6,d%)|
|00001680| 0d 0a be 25 61 33 3d 61 | 32 2b 6c 69 6e 65 28 35 |...%a3=a|2+line(5|
|00001690| 2c 64 25 29 3a 62 33 3d | 62 32 2b 6c 69 6e 65 28 |,d%):b3=|b2+line(|
|000016a0| 36 2c 64 25 29 0d 0a c8 | 55 78 31 3d 32 35 36 2b |6,d%)...|Ux1=256+|
|000016b0| 6c 69 6e 65 28 31 2c 64 | 25 29 2a 9b 28 61 31 29 |line(1,d|%)*.(a1)|
|000016c0| 2b 6c 69 6e 65 28 34 2c | 64 25 29 2a 9b 28 62 31 |+line(4,|d%)*.(b1|
|000016d0| 29 3a 79 31 3d 32 35 36 | 2b 6c 69 6e 65 28 31 2c |):y1=256|+line(1,|
|000016e0| 64 25 29 2a b5 28 61 31 | 29 2d 6c 69 6e 65 28 34 |d%)*.(a1|)-line(4|
|000016f0| 2c 64 25 29 2a b5 28 62 | 31 29 0d 0a d2 55 78 32 |,d%)*.(b|1)...Ux2|
|00001700| 3d 32 35 36 2b 6c 69 6e | 65 28 31 2c 64 25 29 2a |=256+lin|e(1,d%)*|
|00001710| 9b 28 61 32 29 2b 6c 69 | 6e 65 28 34 2c 64 25 29 |.(a2)+li|ne(4,d%)|
|00001720| 2a 9b 28 62 32 29 3a 79 | 32 3d 32 35 36 2b 6c 69 |*.(b2):y|2=256+li|
|00001730| 6e 65 28 31 2c 64 25 29 | 2a b5 28 61 32 29 2d 6c |ne(1,d%)|*.(a2)-l|
|00001740| 69 6e 65 28 34 2c 64 25 | 29 2a b5 28 62 32 29 0d |ine(4,d%|)*.(b2).|
|00001750| 0a dc 55 78 33 3d 32 35 | 36 2b 6c 69 6e 65 28 31 |..Ux3=25|6+line(1|
|00001760| 2c 64 25 29 2a 9b 28 61 | 33 29 2b 6c 69 6e 65 28 |,d%)*.(a|3)+line(|
|00001770| 34 2c 64 25 29 2a 9b 28 | 62 33 29 3a 79 33 3d 32 |4,d%)*.(|b3):y3=2|
|00001780| 35 36 2b 6c 69 6e 65 28 | 31 2c 64 25 29 2a b5 28 |56+line(|1,d%)*.(|
|00001790| 61 33 29 2d 6c 69 6e 65 | 28 34 2c 64 25 29 2a b5 |a3)-line|(4,d%)*.|
|000017a0| 28 62 33 29 0d 0a e6 20 | 63 78 31 3d 2d 35 2a 78 |(b3)... |cx1=-5*x|
|000017b0| 30 2f 36 2d 31 2e 35 2a | 78 32 2b 33 2a 78 31 2b |0/6-1.5*|x2+3*x1+|
|000017c0| 78 33 2f 33 0d 0a f0 20 | 63 79 31 3d 2d 35 2a 79 |x3/3... |cy1=-5*y|
|000017d0| 30 2f 36 2d 31 2e 35 2a | 79 32 2b 33 2a 79 31 2b |0/6-1.5*|y2+3*y1+|
|000017e0| 79 33 2f 33 0d 0a fa 20 | 63 78 32 3d 2d 35 2a 78 |y3/3... |cx2=-5*x|
|000017f0| 33 2f 36 2d 31 2e 35 2a | 78 31 2b 33 2a 78 32 2b |3/6-1.5*|x1+3*x2+|
|00001800| 78 30 2f 33 0d 0b 04 20 | 63 79 32 3d 2d 35 2a 79 |x0/3... |cy2=-5*y|
|00001810| 33 2f 36 2d 31 2e 35 2a | 79 31 2b 33 2a 79 32 2b |3/6-1.5*|y1+3*y2+|
|00001820| 79 30 2f 33 0d 0b 0e 05 | e1 0d 0b 18 05 3a 0d 0b |y0/3....|.....:..|
|00001830| 22 10 dd a4 6d 61 78 28 | 61 25 2c 62 25 29 0d 0b |"...max(|a%,b%)..|
|00001840| 2c 08 66 25 3d 31 0d 0b | 36 0f e3 69 25 3d 62 25 |,.f%=1..|6..i%=b%|
|00001850| b8 32 88 2d 31 0d 0b 40 | 18 c8 95 20 61 25 83 69 |.2.-1..@|... a%.i|
|00001860| 25 3d 30 20 80 20 62 25 | 83 69 25 3d 30 0d 0b 4a |%=0 . b%|.i%=0..J|
|00001870| 1e 61 25 3d 61 25 81 69 | 25 3a 62 25 3d 62 25 81 |.a%=a%.i|%:b%=b%.|
|00001880| 69 25 3a 66 25 3d 66 25 | 2a 69 25 0d 0b 54 05 ce |i%:f%=f%|*i%..T..|
|00001890| 0d 0b 5e 05 ed 0d 0b 68 | 0d 3d 66 25 2a 61 25 2a |..^....h|.=f%*a%*|
|000018a0| 62 25 0d 0b 72 05 3a 0d | 0b 7c 04 0d 0b 86 1b dd |b%..r.:.|.|......|
|000018b0| f2 63 68 65 63 6b 28 69 | 25 2c f8 20 76 2c 6d 69 |.check(i|%,. v,mi|
|000018c0| 6e 2c 6d 61 78 29 0d 0b | 90 08 ea 20 64 24 0d 0b |n,max)..|... d$..|
|000018d0| 9a 15 64 24 3d a4 74 65 | 78 74 28 6f 70 74 25 2c |..d$=.te|xt(opt%,|
|000018e0| 69 25 29 0d 0b a4 2b e7 | 20 64 24 3e 22 22 20 76 |i%)...+.| d$>"" v|
|000018f0| 3d a0 64 24 20 8b 20 f2 | 63 68 61 6e 67 65 74 65 |=.d$ . .|changete|
|00001900| 78 74 28 6f 70 74 25 2c | 69 25 2c c3 76 29 0d 0b |xt(opt%,|i%,.v)..|
|00001910| ae 19 e7 20 6d 61 78 3e | 30 20 e7 20 76 3e 6d 61 |... max>|0 . v>ma|
|00001920| 78 20 76 3d 6d 61 78 0d | 0b b8 19 e7 20 6d 69 6e |x v=max.|.... min|
|00001930| 3e 30 20 e7 20 76 3c 6d | 69 6e 20 76 3d 6d 69 6e |>0 . v<m|in v=min|
|00001940| 0d 0b c2 2b e7 20 64 24 | 3c 3e c3 76 20 64 24 3d |...+. d$|<>.v d$=|
|00001950| c3 a8 76 3a f2 63 68 61 | 6e 67 65 74 65 78 74 28 |..v:.cha|ngetext(|
|00001960| 6f 70 74 25 2c 69 25 2c | 64 24 29 0d 0b cc 05 e1 |opt%,i%,|d$).....|
|00001970| 0d 0b d6 04 0d 0b e0 0c | dd f2 73 65 74 70 74 73 |........|..setpts|
|00001980| 0d 0b ea 15 f2 63 68 65 | 63 6b 28 33 2c 70 31 25 |.....che|ck(3,p1%|
|00001990| 2c 34 2c 30 29 0d 0b f4 | 15 f2 63 68 65 63 6b 28 |,4,0)...|..check(|
|000019a0| 34 2c 70 32 25 2c 34 2c | 30 29 0d 0b fe 1d e7 20 |4,p2%,4,|0)..... |
|000019b0| 70 31 25 3c 3e 6f 70 31 | 25 20 84 20 70 32 25 3c |p1%<>op1|% . p2%<|
|000019c0| 3e 6f 70 32 25 20 8c 0d | 0c 08 1a 20 6c 70 25 3d |>op2% ..|... lp%=|
|000019d0| a4 6d 61 78 28 70 31 25 | 2c 70 32 25 29 2f 70 31 |.max(p1%|,p2%)/p1|
|000019e0| 25 0d 0c 12 1e 20 f2 63 | 68 61 6e 67 65 74 65 78 |%.... .c|hangetex|
|000019f0| 74 28 6f 70 74 25 2c 32 | 31 2c c3 6c 70 25 29 0d |t(opt%,2|1,.lp%).|
|00001a00| 0c 1c 16 20 6f 70 31 25 | 3d 70 31 25 3a 6f 70 32 |... op1%|=p1%:op2|
|00001a10| 25 3d 70 32 25 0d 0c 26 | 05 cd 0d 0c 30 05 e1 0d |%=p2%..&|....0...|
|00001a20| 0c 3a 05 3a 0d 0c 44 0e | dd f2 73 65 74 75 70 70 |.:.:..D.|..setupp|
|00001a30| 69 63 0d 0c 4e 14 f2 63 | 68 65 63 6b 28 30 2c 72 |ic..N..c|heck(0,r|
|00001a40| 31 2c 30 2c 30 29 0d 0c | 58 14 f2 63 68 65 63 6b |1,0,0)..|X..check|
|00001a50| 28 31 2c 72 32 2c 30 2c | 30 29 0d 0c 62 14 f2 63 |(1,r2,0,|0)..b..c|
|00001a60| 68 65 63 6b 28 32 2c 72 | 33 2c 30 2c 30 29 0d 0c |heck(2,r|3,0,0)..|
|00001a70| 6c 0b f2 73 65 74 70 74 | 73 0d 0c 76 04 0d 0c 80 |l..setpt|s..v....|
|00001a80| 26 f2 63 68 65 63 6b 28 | 32 31 2c 6c 70 25 2c 30 |&.check(|21,lp%,0|
|00001a90| 2c a4 6d 61 78 28 70 31 | 25 2c 70 32 25 29 2f 70 |,.max(p1|%,p2%)/p|
|00001aa0| 31 25 29 0d 0c 8a 0f 6d | 78 25 3d 6c 70 25 2a 70 |1%)....m|x%=lp%*p|
|00001ab0| 31 25 0d 0c 94 17 61 3d | 70 69 32 2f 70 31 25 3a |1%....a=|pi2/p1%:|
|00001ac0| 62 3d 70 69 32 2f 70 32 | 25 0d 0c 9e 04 0d 0c a8 |b=pi2/p2|%.......|
|00001ad0| 15 64 65 66 25 28 30 2c | 6e 64 72 61 77 25 29 3d |.def%(0,|ndraw%)=|
|00001ae0| 72 31 0d 0c b2 15 64 65 | 66 25 28 31 2c 6e 64 72 |r1....de|f%(1,ndr|
|00001af0| 61 77 25 29 3d 72 32 0d | 0c bc 15 64 65 66 25 28 |aw%)=r2.|...def%(|
|00001b00| 32 2c 6e 64 72 61 77 25 | 29 3d 72 33 0d 0c c6 16 |2,ndraw%|)=r3....|
|00001b10| 64 65 66 25 28 33 2c 6e | 64 72 61 77 25 29 3d 70 |def%(3,n|draw%)=p|
|00001b20| 31 25 0d 0c d0 16 64 65 | 66 25 28 34 2c 6e 64 72 |1%....de|f%(4,ndr|
|00001b30| 61 77 25 29 3d 70 32 25 | 0d 0c da 1a 64 65 66 25 |aw%)=p2%|....def%|
|00001b40| 28 35 2c 6e 64 72 61 77 | 25 29 3d 6e 65 77 63 6f |(5,ndraw|%)=newco|
|00001b50| 6c 25 0d 0c e4 17 64 65 | 66 25 28 36 2c 6e 64 72 |l%....de|f%(6,ndr|
|00001b60| 61 77 25 29 3d 6e 69 62 | 25 0d 0c ee 16 64 65 66 |aw%)=nib|%....def|
|00001b70| 25 28 37 2c 6e 64 72 61 | 77 25 29 3d 6c 70 25 0d |%(7,ndra|w%)=lp%.|
|00001b80| 0c f8 19 64 65 66 25 28 | 38 2c 6e 64 72 61 77 25 |...def%(|8,ndraw%|
|00001b90| 29 3d 69 6e 6e 65 72 25 | 0d 0d 02 04 0d 0d 0c 05 |)=inner%|........|
|00001ba0| e1 0d 0d 16 05 3a 0d 0d | 20 0f dd f2 64 6f 6e 65 |.....:..| ...done|
|00001bb0| 78 74 70 69 63 0d 0d 2a | 0f e7 20 70 69 63 69 25 |xtpic..*|.. pici%|
|00001bc0| 3d 31 20 8c 0d 0d 34 36 | 78 33 3d 32 35 36 2b 6c |=1 ...46|x3=256+l|
|00001bd0| 69 6e 65 28 31 2c 64 6f | 64 72 61 77 25 29 2a 9b |ine(1,do|draw%)*.|
|00001be0| 28 61 33 29 2b 6c 69 6e | 65 28 34 2c 64 6f 64 72 |(a3)+lin|e(4,dodr|
|00001bf0| 61 77 25 29 2a 9b 28 62 | 33 29 0d 0d 3e 36 79 33 |aw%)*.(b|3)..>6y3|
|00001c00| 3d 32 35 36 2b 6c 69 6e | 65 28 31 2c 64 6f 64 72 |=256+lin|e(1,dodr|
|00001c10| 61 77 25 29 2a b5 28 61 | 33 29 2d 6c 69 6e 65 28 |aw%)*.(a|3)-line(|
|00001c20| 34 2c 64 6f 64 72 61 77 | 25 29 2a b5 28 62 33 29 |4,dodraw|%)*.(b3)|
|00001c30| 0d 0d 48 05 cd 0d 0d 52 | 19 e7 20 6c 69 6e 65 28 |..H....R|.. line(|
|00001c40| 30 2c 64 6f 64 72 61 77 | 25 29 3e 30 20 8c 0d 0d |0,dodraw|%)>0 ...|
|00001c50| 5c 1c 74 68 69 73 6e 69 | 62 25 3d 6c 69 6e 65 28 |\.thisni|b%=line(|
|00001c60| 39 2c 64 6f 64 72 61 77 | 25 29 0d 0d 66 2e c8 99 |9,dodraw|%)..f...|
|00001c70| 20 26 32 45 2c 26 31 33 | 43 2c 70 69 63 25 2c 70 | &2E,&13|C,pic%,p|
|00001c80| 72 6f 67 24 2c 30 20 b8 | 20 73 30 25 2c 73 31 25 |rog$,0 .| s0%,s1%|
|00001c90| 2c 73 32 25 2c 73 33 25 | 0d 0d 70 0a 76 64 75 25 |,s2%,s3%|..p.vdu%|
|00001ca0| 3d b9 0d 0d 7a 17 e6 20 | 30 2c 6c 69 6e 65 28 30 |=...z.. |0,line(0|
|00001cb0| 2c 64 6f 64 72 61 77 25 | 29 0d 0d 84 0c f2 64 72 |,dodraw%|).....dr|
|00001cc0| 61 77 62 65 7a 0d 0d 8e | 1a c8 99 20 26 32 45 2c |awbez...|... &2E,|
|00001cd0| 73 30 25 2c 73 31 25 2c | 73 32 25 2c 73 33 25 0d |s0%,s1%,|s2%,s3%.|
|00001ce0| 0d 98 0a 76 64 75 25 3d | a3 0d 0d a2 21 e7 20 64 |...vdu%=|....!. d|
|00001cf0| 72 61 77 6f 70 25 20 f2 | 69 63 6f 6e 73 74 61 74 |rawop% .|iconstat|
|00001d00| 65 28 64 69 73 70 25 2c | 30 29 0d 0d ac 05 cc 0d |e(disp%,|0)......|
|00001d10| 0d b6 14 f2 6d 61 6b 65 | 78 79 28 64 6f 64 72 61 |....make|xy(dodra|
|00001d20| 77 25 29 0d 0d c0 05 cd | 0d 0d ca 0c 70 69 63 69 |w%).....|....pici|
|00001d30| 25 2b 3d 33 0d 0d d4 1d | e7 20 70 69 63 69 25 3e |%+=3....|. pici%>|
|00001d40| 6c 69 6e 65 28 38 2c 64 | 6f 64 72 61 77 25 29 20 |line(8,d|odraw%) |
|00001d50| 8c 0d 0d de 16 64 6f 64 | 72 61 77 25 2b 3d 31 3a |.....dod|raw%+=1:|
|00001d60| 70 69 63 69 25 3d 31 0d | 0d e8 1c e7 20 64 6f 64 |pici%=1.|.... dod|
|00001d70| 72 61 77 25 3e 6e 64 72 | 61 77 25 20 6d 61 73 6b |raw%>ndr|aw% mask|
|00001d80| 25 3d 31 0d 0d f2 22 e7 | 20 ac 20 64 72 61 77 6f |%=1...".| . drawo|
|00001d90| 70 25 20 f2 6f 70 65 6e | 77 69 6e 64 6f 77 28 64 |p% .open|window(d|
|00001da0| 69 73 70 25 29 0d 0d fc | 15 f2 75 6e 73 68 61 64 |isp%)...|..unshad|
|00001db0| 65 28 6d 65 6e 75 25 2c | 31 29 0d 0e 06 15 f2 75 |e(menu%,|1).....u|
|00001dc0| 6e 73 68 61 64 65 28 6d | 65 6e 75 25 2c 32 29 0d |nshade(m|enu%,2).|
|00001dd0| 0e 10 05 cd 0d 0e 1a 05 | e1 0d 0e 24 05 3a 0d 0e |........|...$.:..|
|00001de0| 2e 0a dd f2 75 6e 64 6f | 0d 0e 38 1f 6e 64 72 61 |....undo|..8.ndra|
|00001df0| 77 25 2d 3d 31 3a 64 6f | 64 72 61 77 25 3d 30 3a |w%-=1:do|draw%=0:|
|00001e00| 6e 62 6f 78 25 3d 30 0d | 0e 42 2f 78 33 3d 32 35 |nbox%=0.|.B/x3=25|
|00001e10| 36 2b 6c 69 6e 65 28 31 | 2c 31 29 2b 6c 69 6e 65 |6+line(1|,1)+line|
|00001e20| 28 34 2c 31 29 3a 79 33 | 3d 32 35 36 3a 61 33 3d |(4,1):y3|=256:a3=|
|00001e30| 30 3a 62 33 3d 30 0d 0e | 4c 2e c8 99 20 26 32 45 |0:b3=0..|L... &2E|
|00001e40| 2c 26 31 33 43 2c 70 69 | 63 25 2c 70 72 6f 67 24 |,&13C,pi|c%,prog$|
|00001e50| 2c 30 20 b8 20 73 30 25 | 2c 73 31 25 2c 73 32 25 |,0 . s0%|,s1%,s2%|
|00001e60| 2c 73 33 25 0d 0e 56 05 | db 0d 0e 60 1a c8 99 20 |,s3%..V.|...`... |
|00001e70| 26 32 45 2c 73 30 25 2c | 73 31 25 2c 73 32 25 2c |&2E,s0%,|s1%,s2%,|
|00001e80| 73 33 25 0d 0e 6a 36 e7 | 20 64 72 61 77 6f 70 25 |s3%..j6.| drawop%|
|00001e90| 20 f2 69 63 6f 6e 73 74 | 61 74 65 28 64 69 73 70 | .iconst|ate(disp|
|00001ea0| 25 2c 30 29 20 8b 20 f2 | 6f 70 65 6e 77 69 6e 64 |%,0) . .|openwind|
|00001eb0| 6f 77 28 64 69 73 70 25 | 29 0d 0e 74 10 e7 20 6e |ow(disp%|)..t.. n|
|00001ec0| 64 72 61 77 25 3d 30 20 | 8c 0d 0e 7e 0a 6e 65 77 |draw%=0 |...~.new|
|00001ed0| 25 3d b9 0d 0e 88 13 f2 | 73 68 61 64 65 28 6d 65 |%=......|shade(me|
|00001ee0| 6e 75 25 2c 31 29 0d 0e | 92 13 f2 73 68 61 64 65 |nu%,1)..|...shade|
|00001ef0| 28 6d 65 6e 75 25 2c 32 | 29 0d 0e 9c 05 cc 0d 0e |(menu%,2|).......|
|00001f00| a6 0b 6d 61 73 6b 25 3d | 30 0d 0e b0 05 cd 0d 0e |..mask%=|0.......|
|00001f10| ba 05 e1 0d 0e c4 05 3a | 0d 0e ce 0b dd f2 63 6c |.......:|......cl|
|00001f20| 65 61 72 0d 0e d8 26 6e | 64 72 61 77 25 3d 30 3a |ear...&n|draw%=0:|
|00001f30| 64 6f 64 72 61 77 25 3d | 30 3a 6e 62 6f 78 25 3d |dodraw%=|0:nbox%=|
|00001f40| 30 3a 6d 61 73 6b 25 3d | 31 0d 0e e2 2e c8 99 20 |0:mask%=|1...... |
|00001f50| 26 32 45 2c 26 31 33 43 | 2c 70 69 63 25 2c 70 72 |&2E,&13C|,pic%,pr|
|00001f60| 6f 67 24 2c 30 20 b8 20 | 73 30 25 2c 73 31 25 2c |og$,0 . |s0%,s1%,|
|00001f70| 73 32 25 2c 73 33 25 0d | 0e ec 05 db 0d 0e f6 1a |s2%,s3%.|........|
|00001f80| c8 99 20 26 32 45 2c 73 | 30 25 2c 73 31 25 2c 73 |.. &2E,s|0%,s1%,s|
|00001f90| 32 25 2c 73 33 25 0d 0f | 00 36 e7 20 64 72 61 77 |2%,s3%..|.6. draw|
|00001fa0| 6f 70 25 20 f2 69 63 6f | 6e 73 74 61 74 65 28 64 |op% .ico|nstate(d|
|00001fb0| 69 73 70 25 2c 30 29 20 | 8b 20 f2 6f 70 65 6e 77 |isp%,0) |. .openw|
|00001fc0| 69 6e 64 6f 77 28 64 69 | 73 70 25 29 0d 0f 0a 0a |indow(di|sp%)....|
|00001fd0| 6e 65 77 25 3d b9 0d 0f | 14 13 f2 73 68 61 64 65 |new%=...|...shade|
|00001fe0| 28 6d 65 6e 75 25 2c 31 | 29 0d 0f 1e 13 f2 73 68 |(menu%,1|).....sh|
|00001ff0| 61 64 65 28 6d 65 6e 75 | 25 2c 32 29 0d 0f 28 05 |ade(menu|%,2)..(.|
|00002000| e1 0d 0f 32 05 3a 0d 0f | 3c 0b dd f2 61 62 6f 72 |...2.:..|<...abor|
|00002010| 74 0d 0f 46 1c 64 6f 64 | 72 61 77 25 3d 6e 64 72 |t..F.dod|raw%=ndr|
|00002020| 61 77 25 2b 31 3a 6d 61 | 73 6b 25 3d 31 0d 0f 50 |aw%+1:ma|sk%=1..P|
|00002030| 22 e7 20 ac 20 64 72 61 | 77 6f 70 25 20 f2 6f 70 |". . dra|wop% .op|
|00002040| 65 6e 77 69 6e 64 6f 77 | 28 64 69 73 70 25 29 0d |enwindow|(disp%).|
|00002050| 0f 5a 15 f2 75 6e 73 68 | 61 64 65 28 6d 65 6e 75 |.Z..unsh|ade(menu|
|00002060| 25 2c 31 29 0d 0f 64 15 | f2 75 6e 73 68 61 64 65 |%,1)..d.|.unshade|
|00002070| 28 6d 65 6e 75 25 2c 32 | 29 0d 0f 6e 05 e1 0d 0f |(menu%,2|)..n....|
|00002080| 78 05 3a 0d 0f 82 14 dd | f2 73 65 74 75 70 73 61 |x.:.....|.setupsa|
|00002090| 76 65 28 6e 64 25 29 0d | 0f 8c 3e 72 3d 6c 69 6e |ve(nd%).|..>r=lin|
|000020a0| 65 28 31 2c 6e 64 25 29 | 3a 72 31 3d 6c 69 6e 65 |e(1,nd%)|:r1=line|
|000020b0| 28 32 2c 6e 64 25 29 3a | 72 32 3d 6c 69 6e 65 28 |(2,nd%):|r2=line(|
|000020c0| 33 2c 6e 64 25 29 3a 72 | 33 3d 6c 69 6e 65 28 34 |3,nd%):r|3=line(4|
|000020d0| 2c 6e 64 25 29 0d 0f 96 | 1f 61 3d 6c 69 6e 65 28 |,nd%)...|.a=line(|
|000020e0| 35 2c 6e 64 25 29 3a 62 | 3d 6c 69 6e 65 28 36 2c |5,nd%):b|=line(6,|
|000020f0| 6e 64 25 29 0d 0f a0 16 | 69 6e 6e 65 72 25 3d 6c |nd%)....|inner%=l|
|00002100| 69 6e 65 28 37 2c 6e 64 | 25 29 0d 0f aa 13 6d 78 |ine(7,nd|%)....mx|
|00002110| 25 3d 6c 69 6e 65 28 38 | 2c 6e 64 25 29 0d 0f b4 |%=line(8|,nd%)...|
|00002120| 1e e7 20 69 6e 6e 65 72 | 25 20 72 3d 72 31 2d 72 |.. inner|% r=r1-r|
|00002130| 32 20 8b 20 72 3d 72 31 | 2b 72 32 0d 0f be 05 e1 |2 . r=r1|+r2.....|
|00002140| 0d 0f c8 05 3a 0d 0f d2 | 15 dd f2 73 61 76 65 70 |....:...|...savep|
|00002150| 61 72 73 28 6e 61 6d 65 | 24 29 0d 0f dc 0d ea 20 |ars(name|$)..... |
|00002160| 58 2c 69 25 2c 6a 25 0d | 0f e6 0d 58 3d ae 20 6e |X,i%,j%.|...X=. n|
|00002170| 61 6d 65 24 0d 0f f0 1f | ff 28 22 53 45 54 54 59 |ame$....|.("SETTY|
|00002180| 50 45 20 22 2b 6e 61 6d | 65 24 2b 22 20 22 2b 74 |PE "+nam|e$+" "+t|
|00002190| 79 24 29 0d 0f fa 1f e7 | 20 97 6e 61 6d 65 24 3c |y$).....| .name$<|
|000021a0| 3e 97 22 3c 22 20 74 66 | 69 6c 65 24 3d 6e 61 6d |>."<" tf|ile$=nam|
|000021b0| 65 24 0d 10 04 13 d5 23 | 58 2c 22 53 70 69 72 6f |e$.....#|X,"Spiro|
|000021c0| 44 72 61 77 22 0d 10 0e | 10 e3 69 25 3d 31 b8 6e |Draw"...|..i%=1.n|
|000021d0| 64 72 61 77 25 0d 10 18 | 2f 20 20 d5 23 58 2c 22 |draw%...|/  .#X,"|
|000021e0| 46 69 78 65 64 20 20 22 | 2b c3 64 65 66 25 28 30 |Fixed  "|+.def%(0|
|000021f0| 2c 69 25 29 2b 22 20 22 | 2b c3 64 65 66 25 28 33 |,i%)+" "|+.def%(3|
|00002200| 2c 69 25 29 0d 10 22 2f | 20 20 d5 23 58 2c 22 4d |,i%).."/|  .#X,"M|
|00002210| 6f 76 69 6e 67 20 22 2b | c3 64 65 66 25 28 31 2c |oving "+|.def%(1,|
|00002220| 69 25 29 2b 22 20 22 2b | c3 64 65 66 25 28 34 2c |i%)+" "+|.def%(4,|
|00002230| 69 25 29 0d 10 2c 1f 20 | 20 d5 23 58 2c 22 50 65 |i%)..,. | .#X,"Pe|
|00002240| 6e 20 20 20 20 22 2b c3 | 64 65 66 25 28 32 2c 69 |n    "+.|def%(2,i|
|00002250| 25 29 0d 10 36 1f 20 20 | d5 23 58 2c 22 4c 6f 6f |%)..6.  |.#X,"Loo|
|00002260| 70 73 20 20 22 2b c3 64 | 65 66 25 28 37 2c 69 25 |ps  "+.d|ef%(7,i%|
|00002270| 29 0d 10 40 24 20 20 d5 | 23 58 2c 22 43 6f 6c 6f |)..@$  .|#X,"Colo|
|00002280| 75 72 20 22 2b 63 6f 6c | 24 28 64 65 66 25 28 35 |ur "+col|$(def%(5|
|00002290| 2c 69 25 29 29 0d 10 4a | 1f 20 20 d5 23 58 2c 22 |,i%))..J|.  .#X,"|
|000022a0| 57 69 64 74 68 20 20 22 | 2b c3 64 65 66 25 28 36 |Width  "|+.def%(6|
|000022b0| 2c 69 25 29 0d 10 54 2c | 20 20 e7 20 64 65 66 25 |,i%)..T,|  . def%|
|000022c0| 28 38 2c 69 25 29 20 d5 | 23 58 2c 22 49 6e 6e 65 |(8,i%) .|#X,"Inne|
|000022d0| 72 22 20 8b 20 d5 23 58 | 2c 22 4f 75 74 65 72 22 |r" . .#X|,"Outer"|
|000022e0| 0d 10 5e 0a d5 23 58 2c | 22 22 0d 10 68 05 ed 0d |..^..#X,|""..h...|
|000022f0| 10 72 07 d9 23 58 0d 10 | 7c 1f ff 28 22 53 45 54 |.r..#X..||..("SET|
|00002300| 54 59 50 45 20 22 2b 6e | 61 6d 65 24 2b 22 20 22 |TYPE "+n|ame$+" "|
|00002310| 2b 74 79 24 29 0d 10 86 | 05 e1 0d 10 90 05 3a 0d |+ty$)...|......:.|
|00002320| 10 9a 15 dd f2 73 61 76 | 65 64 72 61 77 28 6e 61 |.....sav|edraw(na|
|00002330| 6d 65 24 29 0d 10 a4 36 | ff 20 28 22 53 41 56 45 |me$)...6|. ("SAVE|
|00002340| 20 22 2b 6e 61 6d 65 24 | 2b 22 20 22 2b c3 7e 6d | "+name$|+" "+.~m|
|00002350| 65 6d 73 74 61 72 74 25 | 2b 22 20 2b 20 22 2b c3 |emstart%|+" + "+.|
|00002360| 7e 73 61 76 65 6c 65 6e | 25 29 0d 10 ae 1f ff 28 |~savelen|%).....(|
|00002370| 22 53 45 54 54 59 50 45 | 20 22 2b 6e 61 6d 65 24 |"SETTYPE| "+name$|
|00002380| 2b 22 20 22 2b 74 79 24 | 29 0d 10 b8 1f e7 20 97 |+" "+ty$|)..... .|
|00002390| 6e 61 6d 65 24 3c 3e 97 | 22 3c 22 20 64 66 69 6c |name$<>.|"<" dfil|
|000023a0| 65 24 3d 6e 61 6d 65 24 | 0d 10 c2 24 f2 72 65 6c |e$=name$|...$.rel|
|000023b0| 65 61 73 65 28 6d 65 6d | 73 74 61 72 74 25 29 3a |ease(mem|start%):|
|000023c0| 6d 65 6d 73 74 61 72 74 | 25 3d 2d 31 0d 10 cc 05 |memstart|%=-1....|
|000023d0| e1 0d 10 d6 05 3a 0d 10 | e0 0e dd f2 73 61 76 65 |.....:..|....save|
|000023e0| 70 61 74 68 0d 10 ea 0d | c8 99 20 26 34 30 36 43 |path....|.. &406C|
|000023f0| 30 0d 10 f4 10 f2 6d 61 | 6b 65 64 72 61 77 28 a3 |0.....ma|kedraw(.|
|00002400| 29 0d 10 fe 1e 6d 65 6d | 73 74 61 72 74 25 3d a4 |)....mem|start%=.|
|00002410| 63 6c 61 69 6d 28 73 61 | 76 65 6c 65 6e 25 29 0d |claim(sa|velen%).|
|00002420| 11 08 46 e7 20 6d 65 6d | 73 74 61 72 74 25 3d 2d |..F. mem|start%=-|
|00002430| 31 20 85 20 31 32 33 2c | 22 20 4e 65 65 64 20 6d |1 . 123,|" Need m|
|00002440| 6f 72 65 20 52 4d 41 20 | 73 70 61 63 65 20 74 6f |ore RMA |space to|
|00002450| 20 73 61 76 65 20 74 68 | 69 73 20 70 69 63 74 75 | save th|is pictu|
|00002460| 72 65 22 3a e1 0d 11 12 | 10 f2 6d 61 6b 65 64 72 |re":....|..makedr|
|00002470| 61 77 28 b9 29 0d 11 1c | 35 73 74 61 72 74 3d 6d |aw(.)...|5start=m|
|00002480| 65 6d 73 74 61 72 74 25 | 3a 74 6f 73 65 6e 64 3d |emstart%|:tosend=|
|00002490| 73 74 61 72 74 2b 73 61 | 76 65 6c 65 6e 25 3a 73 |start+sa|velen%:s|
|000024a0| 65 6e 64 3d 74 6f 73 65 | 6e 64 0d 11 26 0d c8 99 |end=tose|nd..&...|
|000024b0| 20 26 34 30 36 43 31 0d | 11 30 05 e1 0d 11 3a 05 | &406C1.|.0....:.|
|000024c0| 3a 0d 11 44 15 dd f2 6d | 61 6b 65 64 72 61 77 28 |:..D...m|akedraw(|
|000024d0| 64 6f 69 74 25 29 0d 11 | 4e 0d e7 20 64 6f 69 74 |doit%)..|N.. doit|
|000024e0| 25 20 8c 0d 11 58 12 70 | 6f 73 25 3d 6d 65 6d 73 |% ...X.p|os%=mems|
|000024f0| 74 61 72 74 25 0d 11 62 | 10 24 70 6f 73 25 3d 22 |tart%..b|.$pos%="|
|00002500| 44 72 61 77 22 0d 11 6c | 17 70 6f 73 25 21 34 3d |Draw"..l|.pos%!4=|
|00002510| 32 30 31 3a 70 6f 73 25 | 21 38 3d 30 0d 11 76 26 |201:pos%|!8=0..v&|
|00002520| 24 28 70 6f 73 25 2b 31 | 32 29 3d 22 53 70 69 72 |$(pos%+1|2)="Spir|
|00002530| 44 72 61 77 20 20 20 20 | 22 3a 70 6f 73 25 2b 3d |Draw    |":pos%+=|
|00002540| 32 34 0d 11 80 1c 21 70 | 6f 73 25 3d 30 3a 70 6f |24....!p|os%=0:po|
|00002550| 73 25 21 34 3d 30 3a 70 | 6f 73 25 2b 3d 38 0d 11 |s%!4=0:p|os%+=8..|
|00002560| 8a 17 f2 74 72 70 75 74 | 28 6e 62 6f 78 25 2c 6e |...trput|(nbox%,n|
|00002570| 62 6f 78 25 29 0d 11 94 | 05 cc 0d 11 9e 0b 70 6f |box%)...|......po|
|00002580| 73 25 3d 34 30 0d 11 a8 | 05 cd 0d 11 b2 10 67 72 |s%=40...|......gr|
|00002590| 25 3d a4 68 65 61 64 28 | 36 29 0d 11 bc 0d e7 20 |%=.head(|6)..... |
|000025a0| 64 6f 69 74 25 20 8c 0d | 11 c6 25 e3 69 25 3d 31 |doit% ..|..%.i%=1|
|000025b0| b8 33 3a 21 70 6f 73 25 | 3d 26 32 30 32 30 32 30 |.3:!pos%|=&202020|
|000025c0| 32 30 3a 70 6f 73 25 2b | 3d 34 3a ed 0d 11 d0 05 |20:pos%+|=4:.....|
|000025d0| cc 0d 11 da 0c 70 6f 73 | 25 2b 3d 31 32 0d 11 e4 |.....pos|%+=12...|
|000025e0| 05 cd 0d 11 ee 2f 78 33 | 3d 32 35 36 2b 6c 69 6e |...../x3|=256+lin|
|000025f0| 65 28 31 2c 31 29 2b 6c | 69 6e 65 28 34 2c 31 29 |e(1,1)+l|ine(4,1)|
|00002600| 3a 79 33 3d 32 35 36 3a | 61 33 3d 30 3a 62 33 3d |:y3=256:|a3=0:b3=|
|00002610| 30 0d 11 f8 10 e3 73 25 | 3d 31 b8 6e 64 72 61 77 |0.....s%|=1.ndraw|
|00002620| 25 0d 12 02 12 f2 73 65 | 74 75 70 73 61 76 65 28 |%.....se|tupsave(|
|00002630| 73 25 29 0d 12 0c 14 e7 | 20 6c 69 6e 65 28 30 2c |s%).....| line(0,|
|00002640| 73 25 29 3e 30 20 8c 0d | 12 16 0c f2 70 75 74 70 |s%)>0 ..|....putp|
|00002650| 61 74 68 0d 12 20 05 cc | 0d 12 2a 27 e3 69 25 3d |ath.. ..|..*'.i%=|
|00002660| 31 b8 20 6c 69 6e 65 28 | 38 2c 73 25 29 20 88 20 |1. line(|8,s%) . |
|00002670| 33 3a f2 6d 61 6b 65 78 | 79 28 73 25 29 3a ed 0d |3:.makex|y(s%):..|
|00002680| 12 34 05 cd 0d 12 3e 05 | ed 0d 12 48 2b e7 20 64 |.4....>.|...H+. d|
|00002690| 6f 69 74 25 20 21 67 72 | 25 3d 70 6f 73 25 2b 34 |oit% !gr|%=pos%+4|
|000026a0| 2d 67 72 25 20 8b 20 73 | 61 76 65 6c 65 6e 25 3d |-gr% . s|avelen%=|
|000026b0| 70 6f 73 25 0d 12 52 05 | e1 0d 12 5c 05 3a 0d 12 |pos%..R.|...\.:..|
|000026c0| 66 0e dd a4 68 65 61 64 | 28 6f 25 29 0d 12 70 0d |f...head|(o%)..p.|
|000026d0| 64 25 3d 70 6f 73 25 2b | 34 0d 12 7a 0d e7 20 64 |d%=pos%+|4..z.. d|
|000026e0| 6f 69 74 25 20 8c 0d 12 | 84 31 21 70 6f 73 25 3d |oit% ...|.1!pos%=|
|000026f0| 6f 25 3a 70 6f 73 25 21 | 34 3d 30 3a 70 6f 73 25 |o%:pos%!|4=0:pos%|
|00002700| 21 38 3d 30 3a 70 6f 73 | 25 21 31 32 3d 30 3a 70 |!8=0:pos|%!12=0:p|
|00002710| 6f 73 25 2b 3d 31 36 0d | 12 8e 17 f2 74 72 70 75 |os%+=16.|....trpu|
|00002720| 74 28 6e 62 6f 78 25 2c | 6e 62 6f 78 25 29 0d 12 |t(nbox%,|nbox%)..|
|00002730| 98 05 cc 0d 12 a2 0c 70 | 6f 73 25 2b 3d 32 34 0d |.......p|os%+=24.|
|00002740| 12 ac 05 cd 0d 12 b6 07 | 3d 64 25 0d 12 c0 05 3a |........|=d%....:|
|00002750| 0d 12 ca 0d dd f2 70 75 | 74 70 61 74 68 0d 12 d4 |......pu|tpath...|
|00002760| 10 70 61 25 3d a4 68 65 | 61 64 28 32 29 0d 12 de |.pa%=.he|ad(2)...|
|00002770| 5f e7 20 64 6f 69 74 25 | 20 21 70 6f 73 25 3d 26 |_. doit%| !pos%=&|
|00002780| 46 46 46 46 46 46 46 46 | 3a 70 6f 73 25 21 34 3d |FFFFFFFF|:pos%!4=|
|00002790| 73 70 72 70 61 6c 25 21 | 28 38 2a 6c 69 6e 65 28 |sprpal%!|(8*line(|
|000027a0| 30 2c 73 25 29 29 3a 70 | 6f 73 25 21 38 3d 26 34 |0,s%)):p|os%!8=&4|
|000027b0| 30 30 2a 6c 69 6e 65 28 | 39 2c 73 25 29 3a 70 6f |00*line(|9,s%):po|
|000027c0| 73 25 21 31 32 3d 25 31 | 30 31 30 31 0d 12 e8 0c |s%!12=%1|0101....|
|000027d0| 70 6f 73 25 2b 3d 31 36 | 0d 12 f2 2c 78 33 3d 32 |pos%+=16|...,x3=2|
|000027e0| 35 36 2b 6c 69 6e 65 28 | 31 2c 73 25 29 2a 9b 28 |56+line(|1,s%)*.(|
|000027f0| 61 33 29 2b 6c 69 6e 65 | 28 34 2c 73 25 29 2a 9b |a3)+line|(4,s%)*.|
|00002800| 28 62 33 29 0d 12 fc 2c | 79 33 3d 32 35 36 2b 6c |(b3)...,|y3=256+l|
|00002810| 69 6e 65 28 31 2c 73 25 | 29 2a b5 28 61 33 29 2d |ine(1,s%|)*.(a3)-|
|00002820| 6c 69 6e 65 28 34 2c 73 | 25 29 2a b5 28 62 33 29 |line(4,s|%)*.(b3)|
|00002830| 0d 13 06 34 e7 20 64 6f | 69 74 25 20 21 70 6f 73 |...4. do|it% !pos|
|00002840| 25 3d 32 3a 70 6f 73 25 | 2b 3d 34 3a f2 74 72 70 |%=2:pos%|+=4:.trp|
|00002850| 75 74 28 78 33 2c 79 33 | 29 20 8b 20 70 6f 73 25 |ut(x3,y3|) . pos%|
|00002860| 2b 3d 31 32 0d 13 10 19 | e3 69 25 3d 31 b8 20 6c |+=12....|.i%=1. l|
|00002870| 69 6e 65 28 38 2c 73 25 | 29 20 88 20 33 0d 13 1a |ine(8,s%|) . 3...|
|00002880| 0f f2 6d 61 6b 65 78 79 | 28 73 25 29 0d 13 24 0d |..makexy|(s%)..$.|
|00002890| e7 20 64 6f 69 74 25 20 | 8c 0d 13 2e 41 21 70 6f |. doit% |....A!po|
|000028a0| 73 25 3d 36 3a 70 6f 73 | 25 2b 3d 34 3a f2 74 72 |s%=6:pos|%+=4:.tr|
|000028b0| 70 75 74 28 63 78 31 2c | 63 79 31 29 3a f2 74 72 |put(cx1,|cy1):.tr|
|000028c0| 70 75 74 28 63 78 32 2c | 63 79 32 29 3a f2 74 72 |put(cx2,|cy2):.tr|
|000028d0| 70 75 74 28 78 33 2c 79 | 33 29 0d 13 38 05 cc 0d |put(x3,y|3)..8...|
|000028e0| 13 42 0c 70 6f 73 25 2b | 3d 32 38 0d 13 4c 05 cd |.B.pos%+|=28..L..|
|000028f0| 0d 13 56 05 ed 0d 13 60 | 23 e7 20 64 6f 69 74 25 |..V....`|#. doit%|
|00002900| 20 21 70 6f 73 25 3d 30 | 3a 21 70 61 25 3d 70 6f | !pos%=0|:!pa%=po|
|00002910| 73 25 2b 38 2d 70 61 25 | 0d 13 6a 0b 70 6f 73 25 |s%+8-pa%|..j.pos%|
|00002920| 2b 3d 34 0d 13 74 05 e1 | 0d 13 7e 05 3a 0d 13 88 |+=4..t..|..~.:...|
|00002930| 12 dd f2 74 72 70 75 74 | 28 78 25 2c 79 25 29 0d |...trput|(x%,y%).|
|00002940| 13 92 26 21 70 6f 73 25 | 3d 78 25 2a 32 35 36 3a |..&!pos%|=x%*256:|
|00002950| 70 6f 73 25 21 34 3d 79 | 25 2a 32 35 36 3a 70 6f |pos%!4=y|%*256:po|
|00002960| 73 25 2b 3d 38 0d 13 9c | 05 e1 0d 13 a6 05 3a 0d |s%+=8...|......:.|
|00002970| 13 b0 0e dd f2 72 61 6d | 66 65 74 63 68 0d 13 ba |.....ram|fetch...|
|00002980| 30 68 69 73 62 75 66 66 | 25 3d 42 25 21 32 30 3a |0hisbuff|%=B%!20:|
|00002990| 68 69 73 6c 65 6e 25 3d | 42 25 21 32 34 3a 68 69 |hislen%=|B%!24:hi|
|000029a0| 73 68 61 6e 64 6c 65 25 | 3d 42 25 21 34 0d 13 c4 |shandle%|=B%!4...|
|000029b0| 15 e7 20 73 74 61 72 74 | 3c 3e 74 6f 73 65 6e 64 |.. start|<>tosend|
|000029c0| 20 8c 0d 13 ce 43 e7 20 | 68 69 73 6c 65 6e 25 3c | ....C. |hislen%<|
|000029d0| 74 6f 73 65 6e 64 2d 73 | 74 61 72 74 20 73 65 6e |tosend-s|tart sen|
|000029e0| 64 3d 73 74 61 72 74 2b | 68 69 73 6c 65 6e 25 20 |d=start+|hislen% |
|000029f0| 8b 20 73 65 6e 64 3d 73 | 74 61 72 74 2b 73 61 76 |. send=s|tart+sav|
|00002a00| 65 6c 65 6e 25 0d 13 d8 | 23 e7 20 73 65 6e 64 3d |elen%...|#. send=|
|00002a10| 74 6f 73 65 6e 64 20 6d | 65 73 73 3d 31 37 20 8b |tosend m|ess=17 .|
|00002a20| 20 6d 65 73 73 3d 31 38 | 0d 13 e2 37 c8 99 26 34 | mess=18|...7..&4|
|00002a30| 30 30 46 31 2c 74 61 73 | 6b 25 2c 73 74 61 72 74 |00F1,tas|k%,start|
|00002a40| 2c 68 69 73 68 61 6e 64 | 6c 65 25 2c 68 69 73 62 |,hishand|le%,hisb|
|00002a50| 75 66 66 25 2c 73 65 6e | 64 2d 73 74 61 72 74 0d |uff%,sen|d-start.|
|00002a60| 13 ec 16 42 25 21 31 32 | 3d 42 25 21 38 3a 42 25 |...B%!12|=B%!8:B%|
|00002a70| 21 31 36 3d 37 0d 13 f6 | 14 42 25 21 32 34 3d 73 |!16=7...|.B%!24=s|
|00002a80| 65 6e 64 2d 73 74 61 72 | 74 0d 14 00 20 c8 99 26 |end-star|t... ..&|
|00002a90| 34 30 30 45 37 2c 20 6d | 65 73 73 2c 42 25 2c 68 |400E7, m|ess,B%,h|
|00002aa0| 69 73 68 61 6e 64 6c 65 | 25 0d 14 0a 0e 73 74 61 |ishandle|%....sta|
|00002ab0| 72 74 3d 73 65 6e 64 0d | 14 14 05 cc 0d 14 1e 1e |rt=send.|........|
|00002ac0| 42 25 21 31 32 3d 42 25 | 21 38 3a 42 25 21 31 36 |B%!12=B%|!8:B%!16|
|00002ad0| 3d 37 3a 42 25 21 32 34 | 3d 30 0d 14 28 17 c8 99 |=7:B%!24|=0..(...|
|00002ae0| 26 34 30 30 45 37 2c 31 | 37 2c 42 25 2c 42 25 21 |&400E7,1|7,B%,B%!|
|00002af0| 34 0d 14 32 33 e7 20 6d | 65 6d 73 74 61 72 74 25 |4..23. m|emstart%|
|00002b00| 3e 2d 31 20 f2 72 65 6c | 65 61 73 65 28 6d 65 6d |>-1 .rel|ease(mem|
|00002b10| 73 74 61 72 74 25 29 3a | 6d 65 6d 73 74 61 72 74 |start%):|memstart|
|00002b20| 25 3d 2d 31 0d 14 3c 11 | c8 99 20 26 34 30 30 44 |%=-1..<.|.. &400D|
|00002b30| 34 2c 2c 2d 31 0d 14 46 | 05 cd 0d 14 50 05 e1 0d |4,,-1..F|....P...|
|00002b40| 14 5a 05 3a 0d 14 64 13 | dd f2 72 65 6c 65 61 73 |.Z.:..d.|..releas|
|00002b50| 65 28 61 72 65 61 29 0d | 14 6e 11 c8 99 26 31 45 |e(area).|.n...&1E|
|00002b60| 2c 37 2c 2c 61 72 65 61 | 0d 14 78 05 e1 0d 14 82 |,7,,area|..x.....|
|00002b70| 04 0d 14 8c 0a dd f2 69 | 63 6f 6e 0d 14 96 2b 42 |.......i|con...+B|
|00002b80| 25 21 30 3d 2d 31 3a 42 | 25 21 34 3d 30 3a 42 25 |%!0=-1:B|%!4=0:B%|
|00002b90| 21 38 3d 30 3a 42 25 21 | 31 32 3d 36 38 3a 42 25 |!8=0:B%!|12=68:B%|
|00002ba0| 21 31 36 3d 36 38 0d 14 | a0 22 42 25 21 32 30 3d |!16=68..|."B%!20=|
|00002bb0| 26 33 30 30 32 3a 24 28 | 42 25 2b 32 34 29 3d 22 |&3002:$(|B%+24)="|
|00002bc0| 21 22 2b 70 72 6f 67 24 | 0d 14 aa 11 c8 99 20 26 |!"+prog$|...... &|
|00002bd0| 34 30 30 43 32 2c 2c 42 | 25 0d 14 b4 05 e1 0d 14 |400C2,,B|%.......|
|00002be0| be 04 0d 14 c8 10 dd a4 | 77 69 6e 64 6f 77 28 61 |........|window(a|
|00002bf0| 24 29 0d 14 d2 38 c8 99 | 20 26 34 30 30 44 42 2c |$)...8..| &400DB,|
|00002c00| 2c 74 65 6d 70 6c 25 2c | 64 61 74 61 25 2c 65 6e |,templ%,|data%,en|
|00002c10| 64 25 2c 2d 31 2c 61 24 | 2c 30 20 b8 20 2c 2c 64 |d%,-1,a$|,0 . ,,d|
|00002c20| 61 74 61 25 2c 2c 2c 2c | 63 25 0d 14 dc 21 e7 20 |ata%,,,,|c%...!. |
|00002c30| 61 24 3d 22 70 72 65 76 | 69 65 77 22 20 74 65 6d |a$="prev|iew" tem|
|00002c40| 70 6c 25 21 36 34 3d 70 | 69 63 25 0d 14 e6 20 e7 |pl%!64=p|ic%... .|
|00002c50| 20 61 24 3d 22 6d 61 69 | 6e 22 20 74 65 6d 70 6c | a$="mai|n" templ|
|00002c60| 25 21 36 34 3d 6d 79 73 | 70 72 25 0d 14 f0 1a c8 |%!64=mys|pr%.....|
|00002c70| 99 20 26 34 30 30 43 31 | 2c 2c 74 65 6d 70 6c 25 |. &400C1|,,templ%|
|00002c80| 20 b8 20 63 25 0d 14 fa | 07 3d 63 25 0d 15 04 04 | . c%...|.=c%....|
|00002c90| 0d 15 0e 13 dd a4 63 6c | 61 69 6d 28 61 6d 6f 75 |......cl|aim(amou|
|00002ca0| 6e 74 29 0d 15 18 07 ea | 20 85 0d 15 22 0e ee 20 |nt).....| ...".. |
|00002cb0| 85 20 ea 20 3a 3d 2d 31 | 0d 15 2c 1b c8 99 26 31 |. . :=-1|..,...&1|
|00002cc0| 45 2c 36 2c 2c 2c 61 6d | 6f 75 6e 74 20 b8 2c 2c |E,6,,,am|ount .,,|
|00002cd0| 72 65 74 0d 15 36 08 3d | 72 65 74 0d 15 40 04 0d |ret..6.=|ret..@..|
|00002ce0| 15 4a 11 dd f2 73 65 74 | 69 63 6f 6e 28 69 25 29 |.J...set|icon(i%)|
|00002cf0| 0d 15 54 2b 21 42 25 3d | 6f 70 74 25 3a 42 25 21 |..T+!B%=|opt%:B%!|
|00002d00| 34 3d 69 25 3a 42 25 21 | 38 3d 31 3c 3c 32 31 3a |4=i%:B%!|8=1<<21:|
|00002d10| 42 25 21 31 32 3d 31 3c | 3c 32 31 0d 15 5e 11 c8 |B%!12=1<|<21..^..|
|00002d20| 99 20 26 34 30 30 43 44 | 2c 2c 42 25 0d 15 68 05 |. &400CD|,,B%..h.|
|00002d30| e1 0d 15 72 04 0d 15 7c | 1a dd f2 63 68 61 6e 67 |...r...||...chang|
|00002d40| 65 74 65 78 74 28 68 25 | 2c 69 25 2c 74 24 29 0d |etext(h%|,i%,t$).|
|00002d50| 15 86 20 21 51 25 3d 68 | 25 3a 51 25 21 34 3d 69 |.. !Q%=h|%:Q%!4=i|
|00002d60| 25 3a c8 99 20 26 34 30 | 30 43 45 2c 2c 51 25 0d |%:.. &40|0CE,,Q%.|
|00002d70| 15 90 1e 51 25 21 38 3d | 30 3a 51 25 21 31 32 3d |...Q%!8=|0:Q%!12=|
|00002d80| 30 3a 24 28 51 25 21 32 | 38 29 3d 74 24 0d 15 9a |0:$(Q%!2|8)=t$...|
|00002d90| 11 c8 99 20 26 34 30 30 | 43 44 2c 2c 51 25 0d 15 |... &400|CD,,Q%..|
|00002da0| a4 05 e1 0d 15 ae 04 0d | 15 b8 13 dd f2 73 65 74 |........|.....set|
|00002db0| 28 68 25 2c 69 25 2c 74 | 24 29 0d 15 c2 20 21 51 |(h%,i%,t|$)... !Q|
|00002dc0| 25 3d 68 25 3a 51 25 21 | 34 3d 69 25 3a c8 99 20 |%=h%:Q%!|4=i%:.. |
|00002dd0| 26 34 30 30 43 45 2c 2c | 51 25 0d 15 cc 1e 51 25 |&400CE,,|Q%....Q%|
|00002de0| 21 38 3d 30 3a 51 25 21 | 31 32 3d 30 3a 24 28 51 |!8=0:Q%!|12=0:$(Q|
|00002df0| 25 21 32 38 29 3d 74 24 | 0d 15 d6 05 e1 0d 15 e0 |%!28)=t$|........|
|00002e00| 04 0d 15 ea 11 dd a4 74 | 65 78 74 28 68 25 2c 69 |.......t|ext(h%,i|
|00002e10| 25 29 0d 15 f4 20 21 51 | 25 3d 68 25 3a 51 25 21 |%)... !Q|%=h%:Q%!|
|00002e20| 34 3d 69 25 3a c8 99 20 | 26 34 30 30 43 45 2c 2c |4=i%:.. |&400CE,,|
|00002e30| 51 25 0d 15 fe 15 3d a4 | 73 74 72 69 6e 67 28 28 |Q%....=.|string((|
|00002e40| 51 25 21 32 38 29 29 0d | 16 08 05 3a 0d 16 12 0e |Q%!28)).|...:....|
|00002e50| dd f2 64 69 73 70 69 63 | 6f 6e 0d 16 1c 31 42 25 |..dispic|on...1B%|
|00002e60| 21 30 3d 64 69 73 70 25 | 3a 42 25 21 34 3d 30 3a |!0=disp%|:B%!4=0:|
|00002e70| 42 25 21 38 3d 2d 35 31 | 32 3a 42 25 21 31 32 3d |B%!8=-51|2:B%!12=|
|00002e80| 35 31 32 3a 42 25 21 31 | 36 3d 30 0d 16 26 21 42 |512:B%!1|6=0..&!B|
|00002e90| 25 21 32 30 3d 26 37 30 | 30 33 30 31 41 3a 24 28 |%!20=&70|0301A:$(|
|00002ea0| 42 25 2b 32 34 29 3d 70 | 72 6f 67 24 0d 16 30 11 |B%+24)=p|rog$..0.|
|00002eb0| c8 99 20 26 34 30 30 43 | 32 2c 2c 42 25 0d 16 3a |.. &400C|2,,B%..:|
|00002ec0| 05 e1 0d 16 44 04 0d 16 | 4e 12 dd f2 73 65 74 75 |....D...|N...setu|
|00002ed0| 70 70 61 6c 65 74 74 65 | 0d 16 58 17 ea 20 70 25 |ppalette|..X.. p%|
|00002ee0| 2c 71 25 2c 61 25 2c 62 | 25 2c 69 25 2c 64 25 0d |,q%,a%,b|%,i%,d%.|
|00002ef0| 16 62 11 c8 99 20 26 34 | 30 30 45 35 2c 2c 51 25 |.b... &4|00E5,,Q%|
|00002f00| 0d 16 6c 09 71 25 3d 51 | 25 0d 16 76 0c e3 69 25 |..l.q%=Q|%..v..i%|
|00002f10| 3d 30 b8 31 35 0d 16 80 | 2c 20 20 3f 71 25 3d 30 |=0.15...|,  ?q%=0|
|00002f20| 3a e3 6a 25 3d 31 b8 33 | 3a 71 25 3f 6a 25 3d 26 |:.j%=1.3|:q%?j%=&|
|00002f30| 31 31 2a 28 28 71 25 3f | 6a 25 29 3e 3e 34 29 3a |11*((q%?|j%)>>4):|
|00002f40| ed 0d 16 8a 0b 20 20 71 | 25 2b 3d 34 0d 16 94 05 |.....  q|%+=4....|
|00002f50| ed 0d 16 9e 26 70 25 3d | 73 70 72 70 61 6c 25 3a |....&p%=|sprpal%:|
|00002f60| 71 25 3d 51 25 3a 61 25 | 3d 70 61 6c 31 25 3a 62 |q%=Q%:a%|=pal1%:b|
|00002f70| 25 3d 70 61 6c 32 25 0d | 16 a8 0c e3 69 25 3d 30 |%=pal2%.|....i%=0|
|00002f80| b8 31 35 0d 16 b2 0c 20 | 20 64 25 3d 21 71 25 0d |.15.... | d%=!q%.|
|00002f90| 16 bc 14 20 20 21 70 25 | 3d 64 25 3a 70 25 21 34 |...  !p%|=d%:p%!4|
|00002fa0| 3d 64 25 0d 16 c6 23 20 | 20 21 61 25 3d 64 25 3a |=d%...# | !a%=d%:|
|00002fb0| 21 62 25 3d 64 25 3a 61 | 25 21 34 3d 64 25 3a 62 |!b%=d%:a|%!4=d%:b|
|00002fc0| 25 21 34 3d 64 25 0d 16 | d0 1d 20 20 70 25 2b 3d |%!4=d%..|..  p%+=|
|00002fd0| 38 3a 61 25 2b 3d 38 3a | 62 25 2b 3d 38 3a 71 25 |8:a%+=8:|b%+=8:q%|
|00002fe0| 2b 3d 34 0d 16 da 05 ed | 0d 16 e4 16 f2 69 63 6f |+=4.....|.....ico|
|00002ff0| 6e 73 74 61 74 65 28 6f | 70 74 25 2c 38 29 0d 16 |nstate(o|pt%,8)..|
|00003000| ee 17 f2 69 63 6f 6e 73 | 74 61 74 65 28 6f 70 74 |...icons|tate(opt|
|00003010| 25 2c 31 30 29 0d 16 f8 | 05 e1 0d 17 02 05 3a 0d |%,10)...|......:.|
|00003020| 17 0c 13 dd f2 6c 6f 61 | 64 6d 79 73 70 72 69 74 |.....loa|dmysprit|
|00003030| 65 73 0d 17 16 20 73 24 | 3d 22 3c 53 70 69 72 6f |es... s$|="<Spiro|
|00003040| 44 72 61 77 24 44 69 72 | 3e 2e 73 70 72 69 74 65 |Draw$Dir|>.sprite|
|00003050| 73 22 0d 17 20 18 c8 99 | 20 26 38 2c 31 35 2c 73 |s".. ...| &8,15,s|
|00003060| 24 20 b8 20 2c 2c 2c 2c | 6b 25 0d 17 2a 0a 6b 25 |$ . ,,,,|k%..*.k%|
|00003070| 2b 3d 31 36 0d 17 34 0f | de 20 6d 79 73 70 72 25 |+=16..4.|. myspr%|
|00003080| 20 6b 25 0d 17 3e 19 21 | 6d 79 73 70 72 25 3d 6b | k%..>.!|myspr%=k|
|00003090| 25 3a 6d 79 73 70 72 25 | 21 38 3d 31 0d 17 48 16 |%:myspr%|!8=1..H.|
|000030a0| c8 99 20 26 32 45 2c 26 | 31 30 39 2c 6d 79 73 70 |.. &2E,&|109,mysp|
|000030b0| 72 25 0d 17 52 19 c8 99 | 20 26 32 45 2c 26 31 30 |r%..R...| &2E,&10|
|000030c0| 41 2c 6d 79 73 70 72 25 | 2c 73 24 0d 17 5c 2c c8 |A,myspr%|,s$..\,.|
|000030d0| 99 20 26 32 45 2c 26 31 | 32 35 2c 6d 79 73 70 72 |. &2E,&1|25,myspr|
|000030e0| 25 2c 22 63 6f 6c 73 22 | 2c 2d 31 20 b8 20 2c 2c |%,"cols"|,-1 . ,,|
|000030f0| 2c 2c 70 61 6c 31 25 0d | 17 66 2c c8 99 20 26 32 |,,pal1%.|.f,.. &2|
|00003100| 45 2c 26 31 32 35 2c 6d | 79 73 70 72 25 2c 22 6c |E,&125,m|yspr%,"l|
|00003110| 69 6e 65 22 2c 2d 31 20 | b8 20 2c 2c 2c 2c 70 61 |ine",-1 |. ,,,,pa|
|00003120| 6c 32 25 0d 17 70 05 e1 | 0d 17 7a 05 3a 0d 17 84 |l2%..p..|..z.:...|
|00003130| 10 dd f2 64 72 61 77 6e | 65 77 63 6f 6c 0d 17 8e |...drawn|ewcol...|
|00003140| 31 c8 99 20 26 32 45 2c | 26 31 33 43 2c 6d 79 73 |1.. &2E,|&13C,mys|
|00003150| 70 72 25 2c 22 6c 69 6e | 65 22 2c 30 20 b8 20 73 |pr%,"lin|e",0 . s|
|00003160| 30 25 2c 73 31 25 2c 73 | 32 25 2c 73 33 25 0d 17 |0%,s1%,s|2%,s3%..|
|00003170| 98 0a 76 64 75 25 3d b9 | 0d 17 a2 09 e6 20 30 2c |..vdu%=.|..... 0,|
|00003180| 31 0d 17 ac 14 c8 93 20 | c8 90 20 38 2c 34 2c 31 |1...... |.. 8,4,1|
|00003190| 32 30 2c 31 36 0d 17 b6 | 0f e6 20 30 2c 6e 65 77 |20,16...|.. 0,new|
|000031a0| 63 6f 6c 25 0d 17 c0 20 | c8 93 20 c8 90 20 38 2c |col%... |.. .. 8,|
|000031b0| 31 36 2d 34 2a 6e 69 62 | 25 2c 31 32 30 2c 34 2a |16-4*nib|%,120,4*|
|000031c0| 6e 69 62 25 0d 17 ca 1a | c8 99 20 26 32 45 2c 73 |nib%....|.. &2E,s|
|000031d0| 30 25 2c 73 31 25 2c 73 | 32 25 2c 73 33 25 0d 17 |0%,s1%,s|2%,s3%..|
|000031e0| d4 0a 76 64 75 25 3d a3 | 0d 17 de 16 f2 69 63 6f |..vdu%=.|.....ico|
|000031f0| 6e 73 74 61 74 65 28 6f | 70 74 25 2c 39 29 0d 17 |nstate(o|pt%,9)..|
|00003200| e8 17 f2 69 63 6f 6e 73 | 74 61 74 65 28 6f 70 74 |...icons|tate(opt|
|00003210| 25 2c 31 30 29 0d 17 f2 | 05 e1 0d 17 fc 05 3a 0d |%,10)...|......:.|
|00003220| 18 06 15 dd f2 77 68 65 | 72 65 69 73 28 68 25 2c |.....whe|reis(h%,|
|00003230| 69 63 25 29 0d 18 10 17 | 21 42 25 3d 68 25 3a c8 |ic%)....|!B%=h%:.|
|00003240| 99 26 34 30 30 43 42 2c | 2c 42 25 0d 18 1a 22 6f |.&400CB,|,B%..."o|
|00003250| 78 25 3d 42 25 21 34 2d | 42 25 21 32 30 3a 6f 79 |x%=B%!4-|B%!20:oy|
|00003260| 25 3d 42 25 21 31 36 2d | 42 25 21 32 34 0d 18 24 |%=B%!16-|B%!24..$|
|00003270| 19 42 25 21 34 3d 69 63 | 25 3a c8 99 26 34 30 30 |.B%!4=ic|%:..&400|
|00003280| 43 45 2c 2c 42 25 0d 18 | 2e 1e 70 78 25 3d 6f 78 |CE,,B%..|..px%=ox|
|00003290| 25 2b 42 25 21 38 3a 70 | 79 25 3d 6f 79 25 2b 42 |%+B%!8:p|y%=oy%+B|
|000032a0| 25 21 31 32 0d 18 38 23 | 68 68 25 3d 28 78 25 2d |%!12..8#|hh%=(x%-|
|000032b0| 70 78 25 29 2f 33 32 3a | 76 68 25 3d 28 79 25 2d |px%)/32:|vh%=(y%-|
|000032c0| 70 79 25 29 2f 33 32 0d | 18 42 19 6e 65 77 63 6f |py%)/32.|.B.newco|
|000032d0| 6c 25 3d 34 2a 28 33 2d | 76 68 25 29 2b 68 68 25 |l%=4*(3-|vh%)+hh%|
|000032e0| 0d 18 4c 05 e1 0d 18 56 | 05 3a 0d 18 60 0a dd f2 |..L....V|.:..`...|
|000032f0| 76 61 72 73 0d 18 6a 0f | 6d 61 78 6c 69 6e 65 25 |vars..j.|maxline%|
|00003300| 3d 32 30 0d 18 74 35 de | 20 6c 69 6e 65 28 39 2c |=20..t5.| line(9,|
|00003310| 6d 61 78 6c 69 6e 65 25 | 29 2c 42 25 20 26 31 30 |maxline%|),B% &10|
|00003320| 30 2c 51 25 20 26 31 30 | 30 2c 62 65 7a 25 20 34 |0,Q% &10|0,bez% 4|
|00003330| 34 2c 76 61 6c 25 20 36 | 0d 18 7e 27 de 20 64 65 |4,val% 6|..~'. de|
|00003340| 66 25 28 38 2c 6d 61 78 | 6c 69 6e 65 25 29 2c 6a |f%(8,max|line%),j|
|00003350| 6f 69 6e 25 20 34 2c 63 | 6f 6c 24 28 31 35 29 0d |oin% 4,c|ol$(15).|
|00003360| 18 88 96 63 6f 6c 24 28 | 29 3d 22 57 68 69 74 65 |...col$(|)="White|
|00003370| 22 2c 22 47 72 65 79 31 | 22 2c 22 47 72 65 79 32 |","Grey1|","Grey2|
|00003380| 22 2c 22 47 72 65 79 33 | 22 2c 22 47 72 65 79 34 |","Grey3|","Grey4|
|00003390| 22 2c 22 47 72 65 79 35 | 22 2c 22 47 72 65 79 36 |","Grey5|","Grey6|
|000033a0| 22 2c 22 42 6c 61 63 6b | 22 2c 22 44 61 72 6b 42 |","Black|","DarkB|
|000033b0| 6c 75 65 22 2c 22 59 65 | 6c 6c 6f 77 22 2c 22 42 |lue","Ye|llow","B|
|000033c0| 72 69 67 68 74 47 72 65 | 65 6e 22 2c 22 52 65 64 |rightGre|en","Red|
|000033d0| 22 2c 22 43 72 65 61 6d | 22 2c 22 44 61 72 6b 47 |","Cream|","DarkG|
|000033e0| 72 65 65 6e 22 2c 22 4f | 72 61 6e 67 65 22 2c 22 |reen","O|range","|
|000033f0| 43 79 61 6e 22 0d 18 92 | 1e 6e 64 72 61 77 25 3d |Cyan"...|.ndraw%=|
|00003400| 30 3a 64 6f 64 72 61 77 | 25 3d 30 3a 6e 62 6f 78 |0:dodraw|%=0:nbox|
|00003410| 25 3d 30 0d 18 9c 11 21 | 6a 6f 69 6e 25 3d 26 31 |%=0....!|join%=&1|
|00003420| 30 31 30 31 0d 18 a6 2a | 72 31 3d 32 34 30 3a 72 |0101...*|r1=240:r|
|00003430| 32 3d 34 30 3a 72 33 3d | 32 30 3a 70 31 25 3d 36 |2=40:r3=|20:p1%=6|
|00003440| 34 3a 70 32 25 3d 31 32 | 3a 6c 70 25 3d 33 0d 18 |4:p2%=12|:lp%=3..|
|00003450| b0 24 6f 70 31 25 3d 70 | 31 25 3a 6f 70 32 25 3d |.$op1%=p|1%:op2%=|
|00003460| 70 32 25 3a 70 69 32 3d | 32 2a af 3a 6e 69 62 25 |p2%:pi2=|2*.:nib%|
|00003470| 3d 31 0d 18 ba 1c 6e 64 | 72 61 77 25 3d 30 3a 6e |=1....nd|raw%=0:n|
|00003480| 73 61 76 65 25 3d 30 3a | 6e 65 77 25 3d b9 0d 18 |save%=0:|new%=...|
|00003490| c4 21 69 6e 6e 65 72 25 | 3d b9 3a 76 64 75 25 3d |.!inner%|=.:vdu%=|
|000034a0| a3 3a 58 3d 30 3a 64 72 | 61 77 6f 70 25 3d a3 0d |.:X=0:dr|awop%=..|
|000034b0| 18 ce 10 6d 65 6d 73 74 | 61 72 74 25 3d 2d 31 0d |...memst|art%=-1.|
|000034c0| 18 d8 39 64 66 69 6c 65 | 24 3d 22 44 72 61 77 66 |..9dfile|$="Drawf|
|000034d0| 69 6c 65 22 3a 73 66 69 | 6c 65 24 3d 22 53 70 72 |ile":sfi|le$="Spr|
|000034e0| 69 74 65 22 3a 74 66 69 | 6c 65 24 3d 22 50 61 72 |ite":tfi|le$="Par|
|000034f0| 61 6d 65 74 65 72 73 22 | 0d 18 e2 15 6e 65 77 63 |ameters"|....newc|
|00003500| 6f 6c 25 3d 38 3a 6d 61 | 73 6b 25 3d 31 0d 18 ec |ol%=8:ma|sk%=1...|
|00003510| 15 70 72 6f 67 24 3d 22 | 53 70 69 72 6f 44 72 61 |.prog$="|SpiroDra|
|00003520| 77 22 0d 18 f6 26 70 69 | 63 25 3d a4 73 70 72 69 |w"...&pi|c%=.spri|
|00003530| 74 65 69 6e 69 74 28 32 | 37 2c 35 31 32 2c 35 31 |teinit(2|7,512,51|
|00003540| 32 2c 70 72 6f 67 24 29 | 0d 19 00 12 f2 6c 6f 61 |2,prog$)|.....loa|
|00003550| 64 6d 79 73 70 72 69 74 | 65 73 0d 19 0a 13 71 75 |dmysprit|es....qu|
|00003560| 69 74 25 3d a3 3a 64 6f | 6e 65 25 3d a3 0d 19 14 |it%=.:do|ne%=....|
|00003570| 05 e1 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+