/ APDL Public Domain 1 / APDL_PD1A.iso / discutils / menus / bootmenu / !Boot / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 05 87 0d 00 02 | 3a f2 47 72 61 70 68 69 |........|:.Graphi|
|00000010| 63 73 5f 49 6e 69 74 28 | 2d 31 2c 30 2c 30 29 20 |cs_Init(|-1,0,0) |
|00000020| 3a f4 20 76 69 72 74 75 | 61 6c 20 53 79 73 74 65 |:. virtu|al Syste|
|00000030| 6d 20 39 30 30 30 78 34 | 35 30 30 20 70 74 2e 0d |m 9000x4|500 pt..|
|00000040| 00 03 3d 54 65 73 74 6d | 6f 64 75 73 3d 30 3a 53 |..=Testm|odus=0:S|
|00000050| 6c 6f 77 24 3d a4 55 54 | 5f 47 65 74 5f 53 74 61 |low$=.UT|_Get_Sta|
|00000060| 74 65 28 22 46 69 6c 6c | 24 4f 70 74 22 29 3a 53 |te("Fill|$Opt"):S|
|00000070| 6c 6f 77 25 3d bb 20 53 | 6c 6f 77 24 0d 00 04 0b |low%=. S|low$....|
|00000080| f1 20 53 6c 6f 77 25 0d | 00 05 0f 20 f2 47 5f 44 |. Slow%.|... .G_D|
|00000090| 4d 41 5f 4f 66 66 0d 00 | 06 10 20 f2 47 5f 47 6f |MA_Off..|.. .G_Go|
|000000a0| 5f 54 69 6d 65 72 0d 00 | 07 11 f2 54 68 69 6e 67 |_Timer..|...Thing|
|000000b0| 73 5f 45 72 72 6f 72 0d | 00 08 0e 2a 50 4f 49 4e |s_Error.|...*POIN|
|000000c0| 54 45 52 20 31 0d 00 09 | 0f de 20 46 24 28 31 30 |TER 1...|.. F$(10|
|000000d0| 38 2c 32 29 0d 00 0a 11 | f2 5f 52 65 61 64 5f 49 |8,2)....|._Read_I|
|000000e0| 6e 28 4e 24 29 0d 00 0b | 0b f2 53 65 74 63 6f 6c |n(N$)...|..Setcol|
|000000f0| 0d 00 0c 04 0d 00 0d 43 | 47 25 3d 47 5f 59 4d 2a |.......C|G%=G_YM*|
|00000100| 2e 39 35 3a 50 25 3d 33 | 36 3a 43 78 3d 47 5f 58 |.95:P%=3|6:Cx=G_X|
|00000110| 4d 2f 32 3a 43 79 3d 47 | 5f 59 4d 2f 32 3a 66 78 |M/2:Cy=G|_YM/2:fx|
|00000120| 3d 37 30 3a 66 79 3d 66 | 78 3a 52 78 3d 47 25 3a |=70:fy=f|x:Rx=G%:|
|00000130| 52 79 3d 47 25 2f 32 0d | 00 0e 5f f2 47 5f 43 6f |Ry=G%/2.|.._.G_Co|
|00000140| 6c 31 28 33 29 3a f2 47 | 5f 45 6c 6c 69 70 73 65 |l1(3):.G|_Ellipse|
|00000150| 5f 46 69 6c 6c 28 43 78 | 2b 31 35 30 2c 43 79 2d |_Fill(Cx|+150,Cy-|
|00000160| 31 35 30 2c 52 78 2c 52 | 79 2c 30 29 3a f2 47 5f |150,Rx,R|y,0):.G_|
|00000170| 43 6f 6c 31 28 32 29 3a | f2 47 5f 45 6c 6c 69 70 |Col1(2):|.G_Ellip|
|00000180| 73 65 5f 46 69 6c 6c 28 | 43 78 2c 43 79 2c 52 78 |se_Fill(|Cx,Cy,Rx|
|00000190| 2c 52 79 2c 30 29 0d 00 | 0f 12 e3 20 49 3d 30 20 |,Ry,0)..|... I=0 |
|000001a0| b8 20 41 6e 7a 20 2d 31 | 0d 00 10 23 f2 47 5f 45 |. Anz -1|...#.G_E|
|000001b0| 53 65 6b 74 6f 72 28 43 | 78 2c 43 79 2c 52 78 2c |Sektor(C|x,Cy,Rx,|
|000001c0| 52 79 2c 41 6e 7a 2c 49 | 2c 31 29 0d 00 11 4c f2 |Ry,Anz,I|,1)...L.|
|000001d0| 47 5f 46 6f 6e 74 5f 69 | 6e 5f 43 61 6b 65 28 43 |G_Font_i|n_Cake(C|
|000001e0| 78 2c 43 79 2c 52 78 2c | 52 79 2c 41 6e 7a 2c 49 |x,Cy,Rx,|Ry,Anz,I|
|000001f0| 2c 46 24 28 49 2c 30 29 | 2c 22 48 6f 6d 65 72 74 |,F$(I,0)|,"Homert|
|00000200| 6f 6e 2e 4d 65 64 69 75 | 6d 22 2c 66 78 2c 66 79 |on.Mediu|m",fx,fy|
|00000210| 2c 63 66 2c 63 62 29 0d | 00 12 05 ed 0d 00 13 14 |,cf,cb).|........|
|00000220| 54 25 3d a4 47 5f 4c 61 | 73 74 5f 54 69 6d 65 72 |T%=.G_La|st_Timer|
|00000230| 0d 00 14 15 f2 66 6f 6e | 74 5f 73 65 74 61 6e 67 |.....fon|t_setang|
|00000240| 6c 65 28 30 29 0d 00 15 | 66 f2 47 5f 50 6c 6f 74 |le(0)...|f.G_Plot|
|00000250| 4f 75 74 6c 69 6e 65 5f | 46 6f 6e 74 28 22 a9 20 |Outline_|Font(". |
|00000260| 54 68 65 6f 20 47 6f 74 | 74 77 61 6c 64 20 39 35 |Theo Got|twald 95|
|00000270| 2f 33 2f 22 2b c3 28 54 | 25 29 2b 22 2f 22 2b c3 |/3/"+.(T|%)+"/"+.|
|00000280| 28 41 6e 7a 29 2c 22 48 | 6f 6d 65 72 74 6f 6e 2e |(Anz),"H|omerton.|
|00000290| 4d 65 64 69 75 6d 22 2c | 36 30 2c 34 30 2c 37 37 |Medium",|60,40,77|
|000002a0| 35 30 2c 31 35 30 2c 30 | 2c 30 29 0d 00 16 0e 20 |50,150,0|,0).... |
|000002b0| f2 47 5f 44 4d 41 5f 4f | 6e 0d 00 17 08 4f 25 3d |.G_DMA_O|n....O%=|
|000002c0| 31 0d 00 18 05 f5 0d 00 | 19 0f c8 97 20 4d 58 2c |1.......|.... MX,|
|000002d0| 4d 59 2c 4d 25 0d 00 1a | 66 e7 20 ac 20 a4 47 5f |MY,M%...|f. . .G_|
|000002e0| 69 73 5f 65 71 75 5f 51 | 75 65 28 4d 58 2c 4d 59 |is_equ_Q|ue(MX,MY|
|000002f0| 29 20 8c 20 fb 20 31 30 | 2c a4 47 5f 53 63 61 6c |) . . 10|,.G_Scal|
|00000300| 65 28 4d 58 2c 47 5f 30 | 28 32 29 2c 31 32 37 29 |e(MX,G_0|(2),127)|
|00000310| 2b 31 32 38 2c a4 47 5f | 53 63 61 6c 65 28 4d 59 |+128,.G_|Scale(MY|
|00000320| 2c 47 5f 30 28 33 29 2c | 31 32 37 29 2b 31 32 38 |,G_0(3),|127)+128|
|00000330| 2c b3 28 31 32 37 29 2b | 31 32 38 0d 00 1b 21 50 |,.(127)+|128...!P|
|00000340| 25 3d a4 47 5f 53 65 6b | 74 6f 72 28 43 78 2c 43 |%=.G_Sek|tor(Cx,C|
|00000350| 79 2c 4d 58 2c 4d 59 2c | 41 6e 7a 29 0d 00 1c 0e |y,MX,MY,|Anz)....|
|00000360| e7 20 50 25 3c 3e 4f 25 | 20 8c 0d 00 1d 4e f2 47 |. P%<>O%| ....N.G|
|00000370| 5f 45 53 65 6b 74 6f 72 | 5f 46 69 6c 6c 28 43 78 |_ESektor|_Fill(Cx|
|00000380| 2c 43 79 2c 52 78 2c 52 | 79 2c 41 6e 7a 2c 4f 25 |,Cy,Rx,R|y,Anz,O%|
|00000390| 2d 31 2c 32 29 3a f2 47 | 5f 45 53 65 6b 74 6f 72 |-1,2):.G|_ESektor|
|000003a0| 28 43 78 2c 43 79 2c 52 | 78 2c 52 79 2c 41 6e 7a |(Cx,Cy,R|x,Ry,Anz|
|000003b0| 2c 4f 25 2d 31 2c 31 29 | 0d 00 1e 5c e7 20 53 6c |,O%-1,1)|...\. Sl|
|000003c0| 6f 77 25 20 8c 20 f2 47 | 5f 46 6f 6e 74 5f 69 6e |ow% . .G|_Font_in|
|000003d0| 5f 43 61 6b 65 28 43 78 | 2c 43 79 2c 52 78 2c 52 |_Cake(Cx|,Cy,Rx,R|
|000003e0| 79 2c 41 6e 7a 2c 4f 25 | 2d 31 2c 46 24 28 4f 25 |y,Anz,O%|-1,F$(O%|
|000003f0| 2d 31 2c 30 29 2c 22 48 | 6f 6d 65 72 74 6f 6e 2e |-1,0),"H|omerton.|
|00000400| 4d 65 64 69 75 6d 22 2c | 66 78 2c 66 79 2c 63 66 |Medium",|fx,fy,cf|
|00000410| 2c 63 62 29 0d 00 1f 56 | f2 47 5f 45 53 65 6b 74 |,cb)...V|.G_ESekt|
|00000420| 6f 72 5f 46 69 6c 6c 28 | 43 78 2c 43 79 2c 52 78 |or_Fill(|Cx,Cy,Rx|
|00000430| 2c 52 79 2c 41 6e 7a 2c | 50 25 2d 31 2c 31 30 29 |,Ry,Anz,|P%-1,10)|
|00000440| 3a 4f 25 3d 50 25 3a f2 | 47 5f 45 53 65 6b 74 6f |:O%=P%:.|G_ESekto|
|00000450| 72 28 43 78 2c 43 79 2c | 52 78 2c 52 79 2c 41 6e |r(Cx,Cy,|Rx,Ry,An|
|00000460| 7a 2c 50 25 2d 31 2c 31 | 30 29 0d 00 20 5c e7 20 |z,P%-1,1|0).. \. |
|00000470| 53 6c 6f 77 25 20 8c 20 | f2 47 5f 46 6f 6e 74 5f |Slow% . |.G_Font_|
|00000480| 69 6e 5f 43 61 6b 65 28 | 43 78 2c 43 79 2c 52 78 |in_Cake(|Cx,Cy,Rx|
|00000490| 2c 52 79 2c 41 6e 7a 2c | 50 25 2d 31 2c 46 24 28 |,Ry,Anz,|P%-1,F$(|
|000004a0| 50 25 2d 31 2c 30 29 2c | 22 48 6f 6d 65 72 74 6f |P%-1,0),|"Homerto|
|000004b0| 6e 2e 4d 65 64 69 75 6d | 22 2c 66 78 2c 66 79 2c |n.Medium|",fx,fy,|
|000004c0| 63 66 2c 63 62 29 0d 00 | 21 04 0d 00 22 05 cd 0d |cf,cb)..|!..."...|
|000004d0| 00 23 0a fd 20 4d 25 3d | 34 0d 00 24 0f 20 f2 47 |.#.. M%=|4..$. .G|
|000004e0| 5f 44 4d 41 5f 4f 66 66 | 0d 00 25 20 e7 20 ac 20 |_DMA_Off|..% . . |
|000004f0| 54 65 73 74 6d 6f 64 75 | 73 20 8c 20 ff 20 46 24 |Testmodu|s . . F$|
|00000500| 28 50 25 2d 31 2c 31 29 | 0d 00 26 05 e0 0d 00 27 |(P%-1,1)|..&....'|
|00000510| 0f f2 47 5f 53 65 65 28 | 30 2c 30 29 0d 00 28 04 |..G_See(|0,0)..(.|
|00000520| 0d 00 29 0d dd 20 f2 53 | 65 74 63 6f 6c 0d 00 2a |..).. .S|etcol..*|
|00000530| 08 ea 20 49 25 0d 00 2b | 3d 63 62 3d a4 64 72 61 |.. I%..+|=cb=.dra|
|00000540| 77 5f 63 6f 6c 6f 75 72 | 28 31 30 30 2c 31 33 30 |w_colour|(100,130|
|00000550| 2c 31 30 30 29 20 3a 20 | 63 66 3d a4 64 72 61 77 |,100) : |cf=.draw|
|00000560| 5f 63 6f 6c 6f 75 72 28 | 31 33 30 2c 33 30 2c 33 |_colour(|130,30,3|
|00000570| 30 29 0d 00 2c 3b f2 47 | 5f 43 6f 6c 31 28 31 32 |0)..,;.G|_Col1(12|
|00000580| 38 2b 31 29 3a da 3a fb | 20 31 2c 31 32 38 2c 31 |8+1):.:.| 1,128,1|
|00000590| 32 38 2c 31 32 38 20 3a | 20 f4 20 67 72 61 75 65 |28,128 :| . graue|
|000005a0| 72 20 48 69 6e 74 65 72 | 67 72 75 6e 64 0d 00 2d |r Hinter|grund..-|
|000005b0| 4f f2 47 5f 43 6f 6c 32 | 28 30 2c 32 29 3a fb 20 |O.G_Col2|(0,2):. |
|000005c0| 32 2c 31 36 34 2c 31 35 | 36 2c 31 36 34 20 20 20 |2,164,15|6,164   |
|000005d0| 20 20 20 20 3a 20 f4 20 | 68 65 6c 6c 65 72 65 73 |    : . |helleres|
|000005e0| 20 47 72 61 75 20 66 75 | 65 72 20 64 65 6e 20 65 | Grau fu|er den e|
|000005f0| 72 73 74 65 6e 20 4b 75 | 63 68 65 6e 0d 00 2e 54 |rsten Ku|chen...T|
|00000600| f2 47 5f 43 6f 6c 32 28 | 34 2c 33 29 3a fb 20 33 |.G_Col2(|4,3):. 3|
|00000610| 2c 31 30 30 2c 31 30 30 | 2c 31 30 30 20 20 20 20 |,100,100|,100    |
|00000620| 20 20 20 3a 20 f4 20 6e | 6f 63 68 20 68 65 6c 6c |   : . n|och hell|
|00000630| 65 72 65 73 20 47 72 61 | 75 20 66 75 65 72 20 64 |eres Gra|u fuer d|
|00000640| 65 6e 20 57 61 6e 64 65 | 72 20 4b 75 63 68 65 6e |en Wande|r Kuchen|
|00000650| 0d 00 2f 11 f2 47 5f 43 | 6f 6c 32 28 30 2c 31 30 |../..G_C|ol2(0,10|
|00000660| 29 0d 00 30 2e e3 20 49 | 25 3d 36 20 b8 20 31 35 |)..0.. I|%=6 . 15|
|00000670| 3a fb 20 49 25 2c 32 35 | 35 2f 49 25 2c 32 35 35 |:. I%,25|5/I%,255|
|00000680| 2f 49 25 2c 32 35 35 2f | 49 25 3a ed 20 49 25 0d |/I%,255/|I%:. I%.|
|00000690| 00 31 14 fb 20 31 30 2c | 32 35 35 2c 32 35 35 2c |.1.. 10,|255,255,|
|000006a0| 31 32 38 0d 00 32 05 e1 | 0d 00 33 04 0d 00 34 18 |128..2..|..3...4.|
|000006b0| dd 20 a4 55 54 5f 47 65 | 74 5f 53 74 61 74 65 28 |. .UT_Ge|t_State(|
|000006c0| 43 4e 24 29 0d 00 35 08 | ea 20 41 24 0d 00 36 17 |CN$)..5.|. A$..6.|
|000006d0| 41 24 3d a4 6f 73 5f 72 | 65 61 64 76 61 72 28 43 |A$=.os_r|eadvar(C|
|000006e0| 4e 24 29 0d 00 37 15 f2 | 55 50 5f 4b 69 6c 6c 5f |N$)..7..|UP_Kill_|
|000006f0| 44 53 50 43 28 41 24 29 | 0d 00 38 07 3d 41 24 0d |DSPC(A$)|..8.=A$.|
|00000700| 00 39 04 0d 00 3a 15 dd | 20 a4 6f 73 5f 72 65 61 |.9...:..| .os_rea|
|00000710| 64 76 61 72 28 56 24 29 | 0d 00 3b 16 ea 20 41 25 |dvar(V$)|..;.. A%|
|00000720| 2c 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 0d 00 |,_wimp_b|uffer%..|
|00000730| 3c 18 de 20 5f 77 69 6d | 70 5f 62 75 66 66 65 72 |<.. _wim|p_buffer|
|00000740| 25 20 32 35 36 20 0d 00 | 3d 23 f2 6f 73 5f 70 75 |% 256 ..|=#.os_pu|
|00000750| 74 73 74 72 69 6e 67 28 | 5f 77 69 6d 70 5f 62 75 |tstring(|_wimp_bu|
|00000760| 66 66 65 72 25 2c 22 22 | 29 0d 00 3e 40 c8 99 20 |ffer%,""|)..>@.. |
|00000770| 26 32 30 30 32 33 2c 56 | 24 2c 5f 77 69 6d 70 5f |&20023,V|$,_wimp_|
|00000780| 62 75 66 66 65 72 25 2c | 32 35 36 2c 30 2c 33 20 |buffer%,|256,0,3 |
|00000790| b8 20 2c 2c 41 25 3a 5f | 77 69 6d 70 5f 62 75 66 |. ,,A%:_|wimp_buf|
|000007a0| 66 65 72 25 3f 41 25 3d | 30 0d 00 3f 21 3d a4 6f |fer%?A%=|0..?!=.o|
|000007b0| 73 5f 67 65 74 73 74 72 | 69 6e 67 28 5f 77 69 6d |s_getstr|ing(_wim|
|000007c0| 70 5f 62 75 66 66 65 72 | 25 29 0d 00 40 04 0d 00 |p_buffer|%)..@...|
|000007d0| 41 17 dd 20 a4 6f 73 5f | 67 65 74 73 74 72 69 6e |A.. .os_|getstrin|
|000007e0| 67 28 50 25 29 0d 00 42 | 2b ea 20 53 24 3a 53 24 |g(P%)..B|+. S$:S$|
|000007f0| 3d 22 22 3a c8 95 20 3f | 50 25 3e 33 31 20 53 24 |="":.. ?|P%>31 S$|
|00000800| 2b 3d bd 28 3f 50 25 29 | 3a 50 25 2b 3d 31 3a ce |+=.(?P%)|:P%+=1:.|
|00000810| 0d 00 43 07 3d 53 24 0d | 00 44 04 0d 00 45 1a dd |..C.=S$.|.D...E..|
|00000820| 20 f2 6f 73 5f 70 75 74 | 73 74 72 69 6e 67 28 50 | .os_put|string(P|
|00000830| 25 2c 53 24 29 0d 00 46 | 18 24 50 25 3d 53 24 3a |%,S$)..F|.$P%=S$:|
|00000840| 3f 28 50 25 2b a9 28 53 | 24 29 29 3d 30 0d 00 47 |?(P%+.(S|$))=0..G|
|00000850| 05 e1 0d 00 48 04 0d 00 | 49 13 dd 20 f2 5f 52 65 |....H...|I.. ._Re|
|00000860| 61 64 5f 49 6e 28 4e 24 | 29 0d 00 4a 12 ea 20 49 |ad_In(N$|)..J.. I|
|00000870| 25 2c 46 25 2c 4e 24 2c | 43 4c 24 0d 00 4b 40 43 |%,F%,N$,|CL$..K@C|
|00000880| 4c 24 3d a4 54 68 69 6e | 67 73 5f 43 6f 6d 41 72 |L$=.Thin|gs_ComAr|
|00000890| 67 73 28 30 29 20 3a f4 | 20 43 68 61 6e 67 65 20 |gs(0) :.| Change |
|000008a0| 68 65 72 65 20 74 6f 20 | 31 20 69 66 20 69 74 73 |here to |1 if its|
|000008b0| 20 74 6f 20 63 6f 6d 70 | 69 6c 65 0d 00 4c 1d 4e | to comp|ile..L.N|
|000008c0| 24 3d a4 55 50 5f 53 74 | 72 5f 45 6c 65 6d 65 6e |$=.UP_St|r_Elemen|
|000008d0| 74 28 43 4c 24 2c 31 29 | 0d 00 4d 14 e7 20 a4 46 |t(CL$,1)|..M.. .F|
|000008e0| 5f 65 78 69 73 74 28 4e | 24 29 20 8c 0d 00 4e 19 |_exist(N|$) ...N.|
|000008f0| 46 25 3d 8e 28 4e 24 29 | 3a f1 22 20 4f 70 65 6e |F%=.(N$)|:." Open|
|00000900| 65 64 20 21 22 0d 00 4f | 16 4d 48 24 3d a4 46 5f |ed !"..O|.MH$=.F_|
|00000910| 47 65 74 46 75 6c 6c 28 | 46 25 29 0d 00 50 0f c8 |GetFull(|F%)..P..|
|00000920| 95 20 28 ac 20 c5 23 46 | 25 29 0d 00 51 47 f2 46 |. (. .#F|%)..QG.F|
|00000930| 5f 47 65 74 46 75 6c 6c | 32 28 46 25 2c 46 24 28 |_GetFull|2(F%,F$(|
|00000940| 49 25 2c 30 29 2c 46 24 | 28 49 25 2c 31 29 29 3a |I%,0),F$|(I%,1)):|
|00000950| f4 20 50 52 49 4e 54 20 | 49 25 2c 22 20 22 3b 20 |. PRINT |I%," "; |
|00000960| 46 24 28 49 25 2c 30 29 | 2c 46 24 28 49 25 2c 31 |F$(I%,0)|,F$(I%,1|
|00000970| 29 0d 00 52 09 49 25 2b | 3d 31 0d 00 53 05 ce 0d |)..R.I%+|=1..S...|
|00000980| 00 54 08 d9 23 46 25 0d | 00 55 0c 41 6e 7a 3d 49 |.T..#F%.|.U.Anz=I|
|00000990| 25 2d 31 0d 00 56 05 cc | 0d 00 57 40 20 f1 22 20 |%-1..V..|..W@ ." |
|000009a0| 44 61 73 20 61 6e 67 65 | 67 65 62 65 6e 65 20 46 |Das ange|gebene F|
|000009b0| 69 6c 65 3a 20 22 3b 41 | 24 3b 22 20 6b 61 6e 6e |ile: ";A|$;" kann|
|000009c0| 20 69 63 68 20 6e 69 63 | 68 74 20 62 65 6b 6f 6d | ich nic|ht bekom|
|000009d0| 6d 65 6e 20 21 22 3a e0 | 0d 00 58 05 cd 0d 00 59 |men !":.|..X....Y|
|000009e0| 04 0d 00 5a 05 e1 0d 00 | 5b 1c dd 20 f2 47 72 61 |...Z....|[.. .Gra|
|000009f0| 70 68 69 63 73 5f 49 6e | 69 74 28 4d 25 2c 58 2c |phics_In|it(M%,X,|
|00000a00| 59 29 0d 00 5c 18 e7 20 | b4 28 4d 25 29 3c 3e 2d |Y)..\.. |.(M%)<>-|
|00000a10| 31 20 8c 20 eb 20 4d 25 | 3a 87 0d 00 5d 05 db 0d |1 . . M%|:...]...|
|00000a20| 00 5e 26 de 20 47 5f 30 | 28 36 29 2c 47 5f 31 28 |.^&. G_0|(6),G_1(|
|00000a30| 31 31 29 2c 47 5f 32 25 | 28 31 31 29 2c 47 5f 33 |11),G_2%|(11),G_3|
|00000a40| 25 28 31 37 29 0d 00 5f | 25 47 5f 30 28 29 3d 30 |%(17).._|%G_0()=0|
|00000a50| 3a 47 5f 31 28 29 3d 30 | 3a 47 5f 32 25 28 29 3d |:G_1()=0|:G_2%()=|
|00000a60| 30 3a 47 5f 33 25 28 29 | 3d 30 0d 00 60 18 47 5f |0:G_3%()|=0..`.G_|
|00000a70| 58 4d 3d 58 3a 47 5f 59 | 4d 3d 59 3a 47 5f 46 3d |XM=X:G_Y|M=Y:G_F=|
|00000a80| 35 30 0d 00 61 19 e7 20 | 47 5f 58 4d 3c 3d 30 20 |50..a.. |G_XM<=0 |
|00000a90| 8c 20 47 5f 58 4d 3d 39 | 30 30 30 0d 00 62 19 e7 |. G_XM=9|000..b..|
|00000aa0| 20 47 5f 59 4d 3c 3d 30 | 20 8c 20 47 5f 59 4d 3d | G_YM<=0| . G_YM=|
|00000ab0| 34 35 30 30 0d 00 63 3b | f2 47 5f 4d 6f 64 65 5f |4500..c;|.G_Mode_|
|00000ac0| 49 6e 66 6f 28 47 5f 30 | 28 30 29 2c 47 5f 30 28 |Info(G_0|(0),G_0(|
|00000ad0| 31 29 2c 47 5f 30 28 32 | 29 2c 47 5f 30 28 33 29 |1),G_0(2|),G_0(3)|
|00000ae0| 2c 47 5f 30 28 34 29 2c | 47 5f 30 28 35 29 29 0d |,G_0(4),|G_0(5)).|
|00000af0| 00 64 0e f2 66 6f 6e 74 | 5f 69 6e 69 74 0d 00 65 |.d..font|_init..e|
|00000b00| 12 f2 47 5f 4f 6e 5f 51 | 75 65 28 30 2c 30 29 0d |..G_On_Q|ue(0,0).|
|00000b10| 00 66 05 e1 0d 00 67 04 | 0d 00 68 10 dd 20 f2 47 |.f....g.|..h.. .G|
|00000b20| 5f 44 4d 41 5f 4f 66 66 | 0d 00 69 20 c8 99 20 22 |_DMA_Off|..i .. "|
|00000b30| 4f 53 5f 55 70 64 61 74 | 65 4d 45 4d 43 22 2c 26 |OS_Updat|eMEMC",&|
|00000b40| 33 30 30 2c 26 37 30 30 | 0d 00 6a 0c 47 5f 30 28 |300,&700|..j.G_0(|
|00000b50| 36 29 3d a3 0d 00 6b 05 | e1 0d 00 6c 04 0d 00 6d |6)=...k.|...l...m|
|00000b60| 11 dd 20 f2 47 5f 47 6f | 5f 54 69 6d 65 72 0d 00 |.. .G_Go|_Timer..|
|00000b70| 6e 20 47 5f 32 25 28 47 | 5f 32 25 28 31 31 29 29 |n G_2%(G|_2%(11))|
|00000b80| 3d 91 3a 47 5f 32 25 28 | 31 31 29 2b 3d 31 0d 00 |=.:G_2%(|11)+=1..|
|00000b90| 6f 05 e1 0d 00 70 04 0d | 00 71 13 dd 20 f2 54 68 |o....p..|.q.. .Th|
|00000ba0| 69 6e 67 73 5f 45 72 72 | 6f 72 0d 00 72 1d ee 20 |ings_Err|or..r.. |
|00000bb0| 85 20 eb 20 eb 3a f1 3a | f1 20 f6 24 3b 22 20 61 |. . .:.:|. .$;" a|
|00000bc0| 74 20 22 3b 9e 3a e0 0d | 00 73 05 e1 0d 00 74 11 |t ";.:..|.s....t.|
|00000bd0| dd 20 f2 47 5f 43 6f 6c | 31 28 43 25 29 0d 00 75 |. .G_Col|1(C%)..u|
|00000be0| 0e e7 20 43 25 3c 31 32 | 38 20 8c 0d 00 76 1b f2 |.. C%<12|8 ...v..|
|00000bf0| 55 50 5f 43 68 65 63 6b | 52 61 6e 67 65 28 43 25 |UP_Check|Range(C%|
|00000c00| 2c 30 2c 31 36 29 0d 00 | 77 1d e6 20 47 5f 33 25 |,0,16)..|w.. G_3%|
|00000c10| 28 43 25 29 2c 43 25 3a | 47 5f 33 25 28 31 37 29 |(C%),C%:|G_3%(17)|
|00000c20| 3d 43 25 0d 00 78 05 cc | 0d 00 79 08 e6 20 43 25 |=C%..x..|..y.. C%|
|00000c30| 0d 00 7a 05 cd 0d 00 7b | 05 e1 0d 00 7c 04 0d 00 |..z....{|....|...|
|00000c40| 7d 26 dd 20 f2 47 5f 45 | 6c 6c 69 70 73 65 5f 46 |}&. .G_E|llipse_F|
|00000c50| 69 6c 6c 28 43 78 2c 43 | 79 2c 52 78 2c 52 79 2c |ill(Cx,C|y,Rx,Ry,|
|00000c60| 41 6e 67 29 0d 00 7e 39 | c8 9d 20 c8 90 20 a4 47 |Ang)..~9|.. .. .G|
|00000c70| 5f 54 66 78 28 43 78 29 | 2c a4 47 5f 54 66 79 28 |_Tfx(Cx)|,.G_Tfy(|
|00000c80| 43 79 29 2c a4 47 5f 54 | 66 78 28 52 78 29 2c a4 |Cy),.G_T|fx(Rx),.|
|00000c90| 47 5f 54 66 79 28 52 79 | 29 2c 41 6e 67 0d 00 7f |G_Tfy(Ry|),Ang...|
|00000ca0| 05 e1 0d 00 80 04 0d 00 | 81 26 dd 20 f2 47 5f 45 |........|.&. .G_E|
|00000cb0| 53 65 6b 74 6f 72 28 43 | 78 2c 43 79 2c 52 78 2c |Sektor(C|x,Cy,Rx,|
|00000cc0| 52 79 2c 50 67 2c 53 70 | 2c 43 25 29 0d 00 82 09 |Ry,Pg,Sp|,C%)....|
|00000cd0| ea 20 58 2c 59 0d 00 83 | 0f f2 47 5f 43 6f 6c 31 |. X,Y...|..G_Col1|
|00000ce0| 28 43 25 29 0d 00 84 12 | f2 47 5f 4d 6f 76 65 28 |(C%)....|.G_Move(|
|00000cf0| 43 78 2c 43 79 29 0d 00 | 85 21 f2 47 5f 53 65 74 |Cx,Cy)..|.!.G_Set|
|00000d00| 58 59 28 43 78 2c 43 79 | 2c 52 78 2c 52 79 2c 50 |XY(Cx,Cy|,Rx,Ry,P|
|00000d10| 67 2c 53 70 2c 35 29 0d | 00 86 23 f2 47 5f 45 41 |g,Sp,5).|..#.G_EA|
|00000d20| 72 63 28 43 78 2c 43 79 | 2c 52 78 2c 52 79 2c 50 |rc(Cx,Cy|,Rx,Ry,P|
|00000d30| 67 2c 53 70 2c 53 70 2b | 31 29 0d 00 87 14 f2 47 |g,Sp,Sp+|1).....G|
|00000d40| 5f 50 6c 6f 74 28 35 2c | 43 78 2c 43 79 29 0d 00 |_Plot(5,|Cx,Cy)..|
|00000d50| 88 05 e1 0d 00 89 04 0d | 00 8a 3a dd 20 f2 47 5f |........|..:. .G_|
|00000d60| 46 6f 6e 74 5f 69 6e 5f | 43 61 6b 65 28 43 78 2c |Font_in_|Cake(Cx,|
|00000d70| 43 79 2c 52 78 2c 52 79 | 2c 50 67 2c 53 70 2c 54 |Cy,Rx,Ry|,Pg,Sp,T|
|00000d80| 24 2c 46 24 2c 66 78 2c | 66 79 2c 63 66 2c 63 62 |$,F$,fx,|fy,cf,cb|
|00000d90| 29 0d 00 8b 0b ea 20 58 | 2c 59 2c 57 0d 00 8c 2d |)..... X|,Y,W...-|
|00000da0| f2 47 5f 4d 69 64 5f 53 | 65 6b 74 6f 72 28 43 78 |.G_Mid_S|ektor(Cx|
|00000db0| 2c 43 79 2c 52 78 2c 52 | 79 2c 50 67 2c 53 70 2c |,Cy,Rx,R|y,Pg,Sp,|
|00000dc0| 53 70 2b 31 2c 58 2c 59 | 29 0d 00 8d 2a 57 3d a4 |Sp+1,X,Y|)...*W=.|
|00000dd0| 47 5f 57 69 6e 6b 65 6c | 28 43 78 2c 43 79 2c a4 |G_Winkel|(Cx,Cy,.|
|00000de0| 47 5f 54 66 78 28 58 29 | 2c a4 47 5f 54 66 79 28 |G_Tfx(X)|,.G_Tfy(|
|00000df0| 59 29 29 0d 00 8e 15 f2 | 66 6f 6e 74 5f 73 65 74 |Y)).....|font_set|
|00000e00| 61 6e 67 6c 65 28 57 29 | 0d 00 8f 2e f2 47 5f 50 |angle(W)|.....G_P|
|00000e10| 6c 6f 74 4f 75 74 6c 69 | 6e 65 5f 46 6f 6e 74 28 |lotOutli|ne_Font(|
|00000e20| 54 24 2c 46 24 2c 66 78 | 2c 66 79 2c 58 2c 59 2c |T$,F$,fx|,fy,X,Y,|
|00000e30| 63 66 2c 63 62 29 0d 00 | 90 05 e1 0d 00 91 04 0d |cf,cb)..|........|
|00000e40| 00 92 13 dd 20 a4 47 5f | 4c 61 73 74 5f 54 69 6d |.... .G_|Last_Tim|
|00000e50| 65 72 0d 00 93 08 ea 20 | 41 25 0d 00 94 23 47 5f |er..... |A%...#G_|
|00000e60| 32 25 28 31 31 29 2d 3d | 31 3a 41 25 3d 91 2d 47 |2%(11)-=|1:A%=.-G|
|00000e70| 5f 32 25 28 47 5f 32 25 | 28 31 31 29 29 0d 00 95 |_2%(G_2%|(11))...|
|00000e80| 07 3d 41 25 0d 00 96 04 | 0d 00 97 1b dd 20 f2 66 |.=A%....|..... .f|
|00000e90| 6f 6e 74 5f 73 65 74 61 | 6e 67 6c 65 28 74 68 65 |ont_seta|ngle(the|
|00000ea0| 74 61 29 0d 00 98 16 5f | 5f 66 6f 6e 74 5f 61 6e |ta)...._|_font_an|
|00000eb0| 67 6c 65 3d 74 68 65 74 | 61 0d 00 99 17 f2 5f 66 |gle=thet|a....._f|
|00000ec0| 6f 6e 74 5f 73 65 74 74 | 72 61 6e 73 66 6f 72 6d |ont_sett|ransform|
|00000ed0| 0d 00 9a 05 e1 0d 00 9b | 04 0d 00 9c 3a dd 20 f2 |........|....:. .|
|00000ee0| 47 5f 50 6c 6f 74 4f 75 | 74 6c 69 6e 65 5f 46 6f |G_PlotOu|tline_Fo|
|00000ef0| 6e 74 28 54 65 78 74 24 | 2c 46 6f 6e 74 6e 61 6d |nt(Text$|,Fontnam|
|00000f00| 65 24 2c 66 78 2c 66 79 | 2c 78 2c 79 2c 63 66 2c |e$,fx,fy|,x,y,cf,|
|00000f10| 63 62 29 0d 00 9d 08 ea | 20 66 68 0d 00 9e 37 66 |cb).....| fh...7f|
|00000f20| 68 3d a4 66 6f 6e 74 5f | 67 65 74 68 61 6e 64 6c |h=.font_|gethandl|
|00000f30| 65 28 46 6f 6e 74 6e 61 | 6d 65 24 2c a4 47 5f 54 |e(Fontna|me$,.G_T|
|00000f40| 66 78 28 66 78 29 2c a4 | 47 5f 54 66 79 28 66 79 |fx(fx),.|G_Tfy(fy|
|00000f50| 29 29 0d 00 9f 1d f2 66 | 6f 6e 74 5f 73 65 74 63 |)).....f|ont_setc|
|00000f60| 6f 6c 6f 75 72 28 66 68 | 2c 63 66 2c 63 62 29 0d |olour(fh|,cf,cb).|
|00000f70| 00 a0 32 f2 66 6f 6e 74 | 5f 63 65 6e 74 72 65 74 |..2.font|_centret|
|00000f80| 65 78 74 28 54 65 78 74 | 24 2c 66 68 2c a4 47 5f |ext(Text|$,fh,.G_|
|00000f90| 54 66 78 28 78 29 2c a4 | 47 5f 54 66 79 28 79 29 |Tfx(x),.|G_Tfy(y)|
|00000fa0| 29 0d 00 a1 18 f2 66 6f | 6e 74 5f 66 6f 72 67 65 |).....fo|nt_forge|
|00000fb0| 74 66 6f 6e 74 28 66 68 | 29 0d 00 a2 05 e1 0d 00 |tfont(fh|).......|
|00000fc0| a3 04 0d 00 a4 0f dd 20 | f2 47 5f 44 4d 41 5f 4f |....... |.G_DMA_O|
|00000fd0| 6e 0d 00 a5 20 c8 99 20 | 22 4f 53 5f 55 70 64 61 |n... .. |"OS_Upda|
|00000fe0| 74 65 4d 45 4d 43 22 2c | 26 36 30 30 2c 26 37 30 |teMEMC",|&600,&70|
|00000ff0| 30 0d 00 a6 0c 47 5f 30 | 28 36 29 3d b9 0d 00 a7 |0....G_0|(6)=....|
|00001000| 05 e1 0d 00 a8 04 0d 00 | a9 18 dd 20 a4 47 5f 69 |........|... .G_i|
|00001010| 73 5f 65 71 75 5f 51 75 | 65 28 58 2c 59 29 0d 00 |s_equ_Qu|e(X,Y)..|
|00001020| aa 0c ea 20 41 2c 42 2c | 45 25 0d 00 ab 13 f2 47 |... A,B,|E%.....G|
|00001030| 5f 4f 66 66 5f 51 75 65 | 28 41 2c 42 29 0d 00 ac |_Off_Que|(A,B)...|
|00001040| 1a e7 20 a4 47 5f 69 73 | 5f 65 71 75 28 58 2c 59 |.. .G_is|_equ(X,Y|
|00001050| 2c 41 2c 42 29 20 8c 0d | 00 ad 09 20 45 25 3d b9 |,A,B) ..|... E%=.|
|00001060| 0d 00 ae 05 cc 0d 00 af | 09 20 45 25 3d a3 0d 00 |........|. E%=...|
|00001070| b0 05 cd 0d 00 b1 12 f2 | 47 5f 4f 6e 5f 51 75 65 |........|G_On_Que|
|00001080| 28 58 2c 59 29 0d 00 b2 | 07 3d 45 25 0d 00 b3 04 |(X,Y)...|.=E%....|
|00001090| 0d 00 b4 17 dd 20 a4 47 | 5f 53 63 61 6c 65 28 57 |..... .G|_Scale(W|
|000010a0| 2c 52 31 2c 52 32 29 0d | 00 b5 0f 57 3d 57 2a 28 |,R1,R2).|...W=W*(|
|000010b0| 52 32 2f 52 31 29 0d 00 | b6 06 3d 57 0d 00 b7 04 |R2/R1)..|..=W....|
|000010c0| 0d 00 b8 1d dd 20 a4 47 | 5f 53 65 6b 74 6f 72 28 |..... .G|_Sektor(|
|000010d0| 58 2c 59 2c 58 31 2c 59 | 31 2c 50 67 29 0d 00 b9 |X,Y,X1,Y|1,Pg)...|
|000010e0| 0a ea 20 46 2c 57 25 0d | 00 ba 2a 46 3d 33 36 30 |.. F,W%.|..*F=360|
|000010f0| 2f 50 67 3a 57 25 3d 28 | a4 47 5f 57 69 6e 6b 65 |/Pg:W%=(|.G_Winke|
|00001100| 6c 28 58 2c 59 2c 58 31 | 2c 59 31 29 2f 46 29 2b |l(X,Y,X1|,Y1)/F)+|
|00001110| 31 0d 00 bb 1b f2 55 50 | 5f 43 68 65 63 6b 52 61 |1.....UP|_CheckRa|
|00001120| 6e 67 65 28 57 25 2c 31 | 2c 50 67 29 0d 00 bc 07 |nge(W%,1|,Pg)....|
|00001130| 3d 57 25 0d 00 bd 04 0d | 00 be 2b dd 20 f2 47 5f |=W%.....|..+. .G_|
|00001140| 45 53 65 6b 74 6f 72 5f | 46 69 6c 6c 28 43 78 2c |ESektor_|Fill(Cx,|
|00001150| 43 79 2c 52 78 2c 52 79 | 2c 50 67 2c 53 70 2c 43 |Cy,Rx,Ry|,Pg,Sp,C|
|00001160| 25 29 0d 00 bf 24 f2 47 | 5f 45 53 65 6b 74 6f 72 |%)...$.G|_ESektor|
|00001170| 28 43 78 2c 43 79 2c 52 | 78 2c 52 79 2c 50 67 2c |(Cx,Cy,R|x,Ry,Pg,|
|00001180| 53 70 2c 43 25 29 0d 00 | c0 34 e7 20 53 6c 6f 77 |Sp,C%)..|.4. Slow|
|00001190| 25 20 8c 20 f2 47 5f 46 | 69 6c 6c 5f 53 65 6b 74 |% . .G_F|ill_Sekt|
|000011a0| 6f 72 28 43 78 2c 43 79 | 2c 52 78 2c 52 79 2c 50 |or(Cx,Cy|,Rx,Ry,P|
|000011b0| 67 2c 53 70 2c 43 25 2c | 31 29 0d 00 c1 05 e1 0d |g,Sp,C%,|1)......|
|000011c0| 00 c2 04 0d 00 c3 04 0d | 00 c4 11 dd 20 f2 47 5f |........|.... .G_|
|000011d0| 53 65 65 28 58 2c 59 29 | 0d 00 c5 27 f2 47 5f 4d |See(X,Y)|...'.G_M|
|000011e0| 6f 76 65 28 58 2c 59 29 | 3a f2 47 5f 50 6c 6f 74 |ove(X,Y)|:.G_Plot|
|000011f0| 28 31 34 39 2c 58 2b 33 | 30 2c 59 2b 33 30 29 0d |(149,X+3|0,Y+30).|
|00001200| 00 c6 05 e1 0d 00 c7 04 | 0d 00 c8 25 dd 20 a4 64 |........|...%. .d|
|00001210| 72 61 77 5f 63 6f 6c 6f | 75 72 28 72 65 64 25 2c |raw_colo|ur(red%,|
|00001220| 67 72 65 65 6e 25 2c 62 | 6c 75 65 25 29 0d 00 c9 |green%,b|lue%)...|
|00001230| 14 72 65 64 25 20 3d 20 | 72 65 64 25 2a 32 2e 35 |.red% = |red%*2.5|
|00001240| 35 0d 00 ca 18 67 72 65 | 65 6e 25 20 3d 20 67 72 |5....gre|en% = gr|
|00001250| 65 65 6e 25 2a 32 2e 35 | 35 0d 00 cb 16 62 6c 75 |een%*2.5|5....blu|
|00001260| 65 25 20 3d 20 62 6c 75 | 65 25 2a 32 2e 35 35 0d |e% = blu|e%*2.55.|
|00001270| 00 cc 2d 3d 28 62 6c 75 | 65 25 20 3c 3c 20 32 34 |..-=(blu|e% << 24|
|00001280| 29 2b 28 67 72 65 65 6e | 25 20 3c 3c 20 31 36 29 |)+(green|% << 16)|
|00001290| 2b 28 72 65 64 25 20 3c | 3c 20 38 29 0d 00 cd 04 |+(red% <|< 8)....|
|000012a0| 0d 00 ce 14 dd 20 f2 47 | 5f 43 6f 6c 32 28 4d 25 |..... .G|_Col2(M%|
|000012b0| 2c 43 25 29 0d 00 cf 1b | f2 55 50 5f 43 68 65 63 |,C%)....|.UP_Chec|
|000012c0| 6b 52 61 6e 67 65 28 43 | 25 2c 30 2c 31 36 29 0d |kRange(C|%,0,16).|
|000012d0| 00 d0 23 47 5f 33 25 28 | 43 25 29 3d 4d 25 3a e6 |..#G_3%(|C%)=M%:.|
|000012e0| 20 4d 25 2c 43 25 3a 47 | 5f 33 25 28 31 37 29 3d | M%,C%:G|_3%(17)=|
|000012f0| 43 25 0d 00 d1 05 e1 0d | 00 d2 04 0d 00 d3 19 dd |C%......|........|
|00001300| 20 a4 54 68 69 6e 67 73 | 5f 43 6f 6d 41 72 67 73 | .Things|_ComArgs|
|00001310| 28 58 25 29 0d 00 d4 0b | ea 20 41 25 2c 41 24 0d |(X%)....|. A%,A$.|
|00001320| 00 d5 1a f2 55 50 5f 43 | 68 65 63 6b 52 61 6e 67 |....UP_C|heckRang|
|00001330| 65 28 58 25 2c 30 2c 31 | 29 0d 00 d6 16 f2 67 65 |e(X%,0,1|).....ge|
|00001340| 74 5f 65 6e 76 28 41 24 | 2c 41 25 2c 41 25 29 0d |t_env(A$|,A%,A%).|
|00001350| 00 d7 15 f2 55 50 5f 4b | 69 6c 6c 5f 44 53 50 43 |....UP_K|ill_DSPC|
|00001360| 28 41 24 29 0d 00 d8 1f | f2 55 50 5f 44 65 6c 5f |(A$)....|.UP_Del_|
|00001370| 45 6c 65 6d 65 6e 74 73 | 28 41 24 2c 33 2d 58 25 |Elements|(A$,3-X%|
|00001380| 2a 32 29 0d 00 d9 07 3d | 41 24 0d 00 da 1c dd 20 |*2)....=|A$..... |
|00001390| a4 55 50 5f 53 74 72 5f | 45 6c 65 6d 65 6e 74 28 |.UP_Str_|Element(|
|000013a0| 41 24 2c 58 25 29 0d 00 | db 1d ea 20 5a 25 2c 49 |A$,X%)..|... Z%,I|
|000013b0| 25 2c 43 25 2c 44 25 2c | 43 24 2c 44 24 2c 45 25 |%,C%,D%,|C$,D$,E%|
|000013c0| 2c 41 25 0d 00 dc 15 f2 | 55 50 5f 4b 69 6c 6c 5f |,A%.....|UP_Kill_|
|000013d0| 44 53 50 43 28 41 24 29 | 0d 00 dd 0f e7 20 a9 28 |DSPC(A$)|..... .(|
|000013e0| 41 24 29 3e 30 20 8c 0d | 00 de 17 5a 25 3d a4 55 |A$)>0 ..|...Z%=.U|
|000013f0| 50 5f 45 6c 65 6d 65 6e | 74 73 28 41 24 29 0d 00 |P_Elemen|ts(A$)..|
|00001400| df 1b f2 55 50 5f 43 68 | 65 63 6b 52 61 6e 67 65 |...UP_Ch|eckRange|
|00001410| 28 58 25 2c 30 2c 5a 25 | 29 0d 00 e0 0c e7 20 58 |(X%,0,Z%|)..... X|
|00001420| 25 3c 32 20 8c 0d 00 e1 | 13 20 e7 20 58 25 3d 31 |%<2 ....|. . X%=1|
|00001430| 20 8c 20 44 24 3d 41 24 | 0d 00 e2 13 20 e7 20 58 | . D$=A$|.... . X|
|00001440| 25 3c 31 20 8c 20 44 24 | 3d 22 22 0d 00 e3 05 cc |%<1 . D$|="".....|
|00001450| 0d 00 e4 08 45 25 3d 31 | 0d 00 e5 12 20 e3 20 49 |....E%=1|.... . I|
|00001460| 25 3d 31 20 b8 20 58 25 | 2d 31 0d 00 e6 25 20 20 |%=1 . X%|-1...%  |
|00001470| 41 25 3d a7 41 24 2c 22 | 20 22 2c 45 25 29 3a 45 |A%=.A$,"| ",E%):E|
|00001480| 25 3d a7 41 24 2c 22 20 | 22 2c 41 25 2b 31 29 0d |%=.A$," |",A%+1).|
|00001490| 00 e7 09 20 ed 20 49 25 | 0d 00 e8 16 20 e7 20 45 |... . I%|.... . E|
|000014a0| 25 3d 30 20 8c 20 45 25 | 3d a9 28 41 24 29 0d 00 |%=0 . E%|=.(A$)..|
|000014b0| e9 17 20 44 24 3d c1 41 | 24 2c 41 25 2b 31 2c 45 |.. D$=.A|$,A%+1,E|
|000014c0| 25 2d 41 25 29 0d 00 ea | 05 cd 0d 00 eb 05 cc 0d |%-A%)...|........|
|000014d0| 00 ec 09 44 24 3d 22 22 | 0d 00 ed 05 cd 0d 00 ee |...D$=""|........|
|000014e0| 07 3d 44 24 0d 00 ef 04 | 0d 00 f0 12 dd 20 a4 46 |.=D$....|..... .F|
|000014f0| 5f 65 78 69 73 74 28 41 | 24 29 0d 00 f1 08 ea 20 |_exist(A|$)..... |
|00001500| 45 25 0d 00 f2 07 ea 20 | 85 0d 00 f3 11 45 25 3d |E%..... |.....E%=|
|00001510| 31 3a ee 20 85 20 45 25 | 3d 30 0d 00 f4 0c e7 20 |1:. . E%|=0..... |
|00001520| 45 25 3e 30 20 8c 0d 00 | f5 11 45 25 3d 8e 28 41 |E%>0 ...|..E%=.(A|
|00001530| 24 29 3a d9 23 45 25 0d | 00 f6 05 cd 0d 00 f7 07 |$):.#E%.|........|
|00001540| 3d 45 25 0d 00 f8 14 dd | 20 a4 46 5f 47 65 74 46 |=E%.....| .F_GetF|
|00001550| 75 6c 6c 28 46 25 29 0d | 00 f9 0b ea 20 41 24 2c |ull(F%).|.... A$,|
|00001560| 4c 25 0d 00 fa 0c e7 20 | c5 23 46 25 20 8c 0d 00 |L%..... |.#F% ...|
|00001570| fb 09 41 24 3d 22 22 0d | 00 fc 05 cc 0d 00 fd 05 |..A$="".|........|
|00001580| f5 0d 00 fe 0b 41 24 3d | be 23 46 25 0d 00 ff 1a |.....A$=|.#F%....|
|00001590| 4c 25 3d a9 28 a4 55 50 | 5f 4b 69 6c 6c 5f 53 50 |L%=.(.UP|_Kill_SP|
|000015a0| 43 28 41 24 29 29 0d 01 | 00 13 fd 20 c5 23 46 25 |C(A$))..|... .#F%|
|000015b0| 20 84 20 28 4c 25 3e 30 | 29 0d 01 01 05 cd 0d 01 | . (L%>0|).......|
|000015c0| 02 07 3d 41 24 0d 01 03 | 04 0d 01 04 20 dd 20 f2 |..=A$...|.... . .|
|000015d0| 46 5f 47 65 74 46 75 6c | 6c 32 28 66 68 25 2c f8 |F_GetFul|l2(fh%,.|
|000015e0| 20 41 24 2c f8 20 42 24 | 29 0d 01 05 29 41 24 3d | A$,. B$|)...)A$=|
|000015f0| a4 46 5f 47 65 74 46 75 | 6c 6c 28 66 68 25 29 3a |.F_GetFu|ll(fh%):|
|00001600| 42 24 3d a4 46 5f 47 65 | 74 46 75 6c 6c 28 66 68 |B$=.F_Ge|tFull(fh|
|00001610| 25 29 0d 01 06 05 e1 0d | 01 07 04 0d 01 08 42 dd |%)......|......B.|
|00001620| 20 f2 47 5f 4d 6f 64 65 | 5f 49 6e 66 6f 28 f8 20 | .G_Mode|_Info(. |
|00001630| 58 6d 61 78 2c f8 20 59 | 6d 61 78 2c f8 20 4f 53 |Xmax,. Y|max,. OS|
|00001640| 5f 58 6d 61 78 2c 20 f8 | 20 4f 53 5f 59 6d 61 78 |_Xmax, .| OS_Ymax|
|00001650| 2c f8 20 65 66 78 2c f8 | 20 65 66 79 29 0d 01 09 |,. efx,.| efy)...|
|00001660| 31 65 66 78 3d a4 47 5f | 52 65 61 64 4d 6f 64 65 |1efx=.G_|ReadMode|
|00001670| 56 61 72 28 34 29 20 3a | 20 65 66 79 3d a4 47 5f |Var(4) :| efy=.G_|
|00001680| 52 65 61 64 4d 6f 64 65 | 56 61 72 28 35 29 0d 01 |ReadMode|Var(5)..|
|00001690| 0a 3b 4f 53 5f 58 6d 61 | 78 3d a4 47 5f 52 65 61 |.;OS_Xma|x=.G_Rea|
|000016a0| 64 4d 6f 64 65 56 61 72 | 28 31 31 29 20 3a 20 4f |dModeVar|(11) : O|
|000016b0| 53 5f 59 6d 61 78 3d a4 | 47 5f 52 65 61 64 4d 6f |S_Ymax=.|G_ReadMo|
|000016c0| 64 65 56 61 72 28 31 32 | 29 0d 01 0b 2d 58 6d 61 |deVar(12|)...-Xma|
|000016d0| 78 3d 4f 53 5f 58 6d 61 | 78 2b 31 3c 3c 65 66 78 |x=OS_Xma|x+1<<efx|
|000016e0| 20 3a 20 59 6d 61 78 3d | 4f 53 5f 59 6d 61 78 2b | : Ymax=|OS_Ymax+|
|000016f0| 31 3c 3c 65 66 79 0d 01 | 0c 05 e1 0d 01 0d 04 0d |1<<efy..|........|
|00001700| 01 0e 10 dd 20 f2 66 6f | 6e 74 5f 69 6e 69 74 0d |.... .fo|nt_init.|
|00001710| 01 0f 32 5f 5f 66 6f 6e | 74 5f 61 6e 67 6c 65 3d |..2__fon|t_angle=|
|00001720| 30 3a 5f 5f 66 6f 6e 74 | 5f 78 66 6c 69 70 25 3d |0:__font|_xflip%=|
|00001730| a3 3a 5f 5f 66 6f 6e 74 | 5f 79 66 6c 69 70 25 3d |.:__font|_yflip%=|
|00001740| a3 0d 01 10 2a de 20 5f | 5f 66 6f 6e 74 5f 74 72 |....*. _|_font_tr|
|00001750| 61 6e 73 66 6f 72 6d 25 | 20 32 34 2c 5f 5f 66 6f |ansform%| 24,__fo|
|00001760| 6e 74 5f 62 62 6f 78 25 | 20 33 36 0d 01 11 34 5f |nt_bbox%| 36...4_|
|00001770| 5f 66 6f 6e 74 5f 74 72 | 61 6e 73 66 6f 72 6d 25 |_font_tr|ansform%|
|00001780| 21 30 3d 26 31 30 30 30 | 30 3a 5f 5f 66 6f 6e 74 |!0=&1000|0:__font|
|00001790| 5f 74 72 61 6e 73 66 6f | 72 6d 25 21 34 3d 30 0d |_transfo|rm%!4=0.|
|000017a0| 01 12 35 5f 5f 66 6f 6e | 74 5f 74 72 61 6e 73 66 |..5__fon|t_transf|
|000017b0| 6f 72 6d 25 21 38 3d 30 | 3a 5f 5f 66 6f 6e 74 5f |orm%!8=0|:__font_|
|000017c0| 74 72 61 6e 73 66 6f 72 | 6d 25 21 31 32 3d 26 31 |transfor|m%!12=&1|
|000017d0| 30 30 30 30 0d 01 13 35 | 5f 5f 66 6f 6e 74 5f 74 |0000...5|__font_t|
|000017e0| 72 61 6e 73 66 6f 72 6d | 25 21 31 36 3d 31 3c 3c |ransform|%!16=1<<|
|000017f0| 31 36 3a 5f 5f 66 6f 6e | 74 5f 74 72 61 6e 73 66 |16:__fon|t_transf|
|00001800| 6f 72 6d 25 21 32 30 3d | 30 0d 01 14 05 e1 0d 01 |orm%!20=|0.......|
|00001810| 15 04 0d 01 16 19 dd 20 | f2 5f 66 6f 6e 74 5f 73 |....... |._font_s|
|00001820| 65 74 74 72 61 6e 73 66 | 6f 72 6d 0d 01 17 30 5f |ettransf|orm...0_|
|00001830| 5f 66 6f 6e 74 5f 74 72 | 61 6e 73 66 6f 72 6d 25 |_font_tr|ansform%|
|00001840| 21 30 3d 9b 20 b2 28 5f | 5f 66 6f 6e 74 5f 61 6e |!0=. .(_|_font_an|
|00001850| 67 6c 65 29 2a 26 31 30 | 30 30 30 0d 01 18 30 5f |gle)*&10|000...0_|
|00001860| 5f 66 6f 6e 74 5f 74 72 | 61 6e 73 66 6f 72 6d 25 |_font_tr|ansform%|
|00001870| 21 34 3d b5 20 b2 28 5f | 5f 66 6f 6e 74 5f 61 6e |!4=. .(_|_font_an|
|00001880| 67 6c 65 29 2a 26 31 30 | 30 30 30 0d 01 19 31 5f |gle)*&10|000...1_|
|00001890| 5f 66 6f 6e 74 5f 74 72 | 61 6e 73 66 6f 72 6d 25 |_font_tr|ansform%|
|000018a0| 21 38 3d 2d b5 20 b2 28 | 5f 5f 66 6f 6e 74 5f 61 |!8=-. .(|__font_a|
|000018b0| 6e 67 6c 65 29 2a 26 31 | 30 30 30 30 0d 01 1a 31 |ngle)*&1|0000...1|
|000018c0| 5f 5f 66 6f 6e 74 5f 74 | 72 61 6e 73 66 6f 72 6d |__font_t|ransform|
|000018d0| 25 21 31 32 3d 9b 20 b2 | 28 5f 5f 66 6f 6e 74 5f |%!12=. .|(__font_|
|000018e0| 61 6e 67 6c 65 29 2a 26 | 31 30 30 30 30 0d 01 1b |angle)*&|10000...|
|000018f0| 6b e7 20 5f 5f 66 6f 6e | 74 5f 78 66 6c 69 70 25 |k. __fon|t_xflip%|
|00001900| 20 5f 5f 66 6f 6e 74 5f | 74 72 61 6e 73 66 6f 72 | __font_|transfor|
|00001910| 6d 25 21 38 3d 2d 28 5f | 5f 66 6f 6e 74 5f 74 72 |m%!8=-(_|_font_tr|
|00001920| 61 6e 73 66 6f 72 6d 25 | 21 38 29 3a 5f 5f 66 6f |ansform%|!8):__fo|
|00001930| 6e 74 5f 74 72 61 6e 73 | 66 6f 72 6d 25 21 31 32 |nt_trans|form%!12|
|00001940| 3d 2d 28 5f 5f 66 6f 6e | 74 5f 74 72 61 6e 73 66 |=-(__fon|t_transf|
|00001950| 6f 72 6d 25 21 31 32 29 | 0d 01 1c 69 e7 20 5f 5f |orm%!12)|...i. __|
|00001960| 66 6f 6e 74 5f 79 66 6c | 69 70 25 20 5f 5f 66 6f |font_yfl|ip% __fo|
|00001970| 6e 74 5f 74 72 61 6e 73 | 66 6f 72 6d 25 21 30 3d |nt_trans|form%!0=|
|00001980| 2d 28 5f 5f 66 6f 6e 74 | 5f 74 72 61 6e 73 66 6f |-(__font|_transfo|
|00001990| 72 6d 25 21 30 29 3a 5f | 5f 66 6f 6e 74 5f 74 72 |rm%!0):_|_font_tr|
|000019a0| 61 6e 73 66 6f 72 6d 25 | 21 34 3d 2d 28 5f 5f 66 |ansform%|!4=-(__f|
|000019b0| 6f 6e 74 5f 74 72 61 6e | 73 66 6f 72 6d 25 21 34 |ont_tran|sform%!4|
|000019c0| 29 0d 01 1d 05 e1 0d 01 | 1e 04 0d 01 1f 14 dd 20 |).......|....... |
|000019d0| f2 47 5f 4f 6e 5f 51 75 | 65 28 58 2c 59 29 0d 01 |.G_On_Qu|e(X,Y)..|
|000019e0| 20 07 ea 20 54 0d 01 21 | 2e 47 5f 31 28 47 5f 31 | .. T..!|.G_1(G_1|
|000019f0| 28 31 31 29 29 3d 58 3a | 47 5f 31 28 47 5f 31 28 |(11))=X:|G_1(G_1(|
|00001a00| 31 31 29 2b 31 29 3d 59 | 3a 47 5f 31 28 31 31 29 |11)+1)=Y|:G_1(11)|
|00001a10| 2b 3d 32 0d 01 22 05 e1 | 0d 01 23 04 0d 01 24 24 |+=2.."..|..#...$$|
|00001a20| dd 20 f2 55 50 5f 43 68 | 65 63 6b 52 61 6e 67 65 |. .UP_Ch|eckRange|
|00001a30| 28 f8 20 58 25 2c 4d 69 | 6e 25 2c 4d 61 78 25 29 |(. X%,Mi|n%,Max%)|
|00001a40| 0d 01 25 1e e7 20 4d 61 | 78 25 3c 4d 69 6e 25 20 |..%.. Ma|x%<Min% |
|00001a50| 8c 20 c8 94 20 4d 61 78 | 25 2c 4d 69 6e 25 0d 01 |. .. Max|%,Min%..|
|00001a60| 26 17 e7 20 58 25 3e 4d | 61 78 25 20 8c 20 58 25 |&.. X%>M|ax% . X%|
|00001a70| 3d 4d 61 78 25 0d 01 27 | 18 e7 20 58 25 3c 4d 69 |=Max%..'|.. X%<Mi|
|00001a80| 6e 25 20 20 8c 20 58 25 | 3d 4d 69 6e 25 0d 01 28 |n%  . X%|=Min%..(|
|00001a90| 05 e1 0d 01 29 04 0d 01 | 2a 0f dd 20 a4 47 5f 54 |....)...|*.. .G_T|
|00001aa0| 66 78 28 58 29 0d 01 2b | 19 58 3d a8 28 58 2f 47 |fx(X)..+|.X=.(X/G|
|00001ab0| 5f 58 4d 2a 47 5f 30 28 | 30 29 2b 2e 35 29 0d 01 |_XM*G_0(|0)+.5)..|
|00001ac0| 2c 06 3d 58 0d 01 2d 04 | 0d 01 2e 0f dd 20 a4 47 |,.=X..-.|..... .G|
|00001ad0| 5f 54 66 79 28 58 29 0d | 01 2f 19 58 3d a8 28 58 |_Tfy(X).|./.X=.(X|
|00001ae0| 2f 47 5f 59 4d 2a 47 5f | 30 28 31 29 2b 2e 35 29 |/G_YM*G_|0(1)+.5)|
|00001af0| 0d 01 30 06 3d 58 0d 01 | 31 04 0d 01 32 12 dd 20 |..0.=X..|1...2.. |
|00001b00| f2 47 5f 4d 6f 76 65 28 | 58 2c 59 29 0d 01 33 19 |.G_Move(|X,Y)..3.|
|00001b10| ec 20 a4 47 5f 54 66 78 | 28 58 29 2c a4 47 5f 54 |. .G_Tfx|(X),.G_T|
|00001b20| 66 79 28 59 29 0d 01 34 | 05 e1 0d 01 35 04 0d 01 |fy(Y)..4|....5...|
|00001b30| 36 24 dd 20 f2 47 5f 53 | 65 74 58 59 28 43 78 2c |6$. .G_S|etXY(Cx,|
|00001b40| 43 79 2c 52 78 2c 52 79 | 2c 50 67 2c 53 70 2c 4d |Cy,Rx,Ry|,Pg,Sp,M|
|00001b50| 25 29 0d 01 37 09 ea 20 | 58 2c 59 0d 01 38 22 58 |%)..7.. |X,Y..8"X|
|00001b60| 3d a4 47 5f 43 69 72 63 | 5f 50 6f 69 6e 74 5f 58 |=.G_Circ|_Point_X|
|00001b70| 28 43 78 2c 52 78 2c 50 | 67 2c 53 70 29 0d 01 39 |(Cx,Rx,P|g,Sp)..9|
|00001b80| 22 59 3d a4 47 5f 43 69 | 72 63 5f 50 6f 69 6e 74 |"Y=.G_Ci|rc_Point|
|00001b90| 5f 59 28 43 79 2c 52 79 | 2c 50 67 2c 53 70 29 0d |_Y(Cy,Ry|,Pg,Sp).|
|00001ba0| 01 3a 0c e7 20 4d 25 3c | 30 20 8c 0d 01 3b 11 20 |.:.. M%<|0 ...;. |
|00001bb0| f2 47 5f 4d 6f 76 65 28 | 58 2c 59 29 0d 01 3c 06 |.G_Move(|X,Y)..<.|
|00001bc0| 20 cc 0d 01 3d 14 20 f2 | 47 5f 50 6c 6f 74 28 4d | ...=. .|G_Plot(M|
|00001bd0| 25 2c 58 2c 59 29 0d 01 | 3e 06 20 cd 0d 01 3f 05 |%,X,Y)..|>. ...?.|
|00001be0| e1 0d 01 40 04 0d 01 41 | 23 dd 20 f2 47 5f 45 41 |...@...A|#. .G_EA|
|00001bf0| 72 63 28 43 78 2c 43 79 | 2c 52 78 2c 52 79 2c 50 |rc(Cx,Cy|,Rx,Ry,P|
|00001c00| 67 2c 53 70 2c 45 70 29 | 0d 01 42 09 ea 20 49 2c |g,Sp,Ep)|..B.. I,|
|00001c10| 53 0d 01 43 1c 46 69 3d | 33 36 30 3a 53 70 3d 53 |S..C.Fi=|360:Sp=S|
|00001c20| 70 2a 46 69 3a 45 70 3d | 45 70 2a 46 69 0d 01 44 |p*Fi:Ep=|Ep*Fi..D|
|00001c30| 19 53 3d 28 45 70 2d 53 | 70 29 2f 46 69 3a 50 67 |.S=(Ep-S|p)/Fi:Pg|
|00001c40| 3d 50 67 2a 46 69 0d 01 | 45 16 e3 20 49 3d 53 70 |=Pg*Fi..|E.. I=Sp|
|00001c50| 20 b8 20 45 70 20 88 20 | 53 2a 33 36 0d 01 46 0c | . Ep . |S*36..F.|
|00001c60| e7 20 49 3d 53 70 20 8c | 0d 01 47 21 f2 47 5f 53 |. I=Sp .|..G!.G_S|
|00001c70| 65 74 58 59 28 43 78 2c | 43 79 2c 52 78 2c 52 79 |etXY(Cx,|Cy,Rx,Ry|
|00001c80| 2c 50 67 2c 49 2c 2d 31 | 29 0d 01 48 05 cd 0d 01 |,Pg,I,-1|)..H....|
|00001c90| 49 22 f2 47 5f 53 65 74 | 58 59 28 43 78 2c 43 79 |I".G_Set|XY(Cx,Cy|
|00001ca0| 2c 52 78 2c 52 79 2c 50 | 67 2c 49 2b 53 2c 35 29 |,Rx,Ry,P|g,I+S,5)|
|00001cb0| 0d 01 4a 07 ed 20 49 0d | 01 4b 05 e1 0d 01 4c 04 |..J.. I.|.K....L.|
|00001cc0| 0d 01 4d 15 dd 20 f2 47 | 5f 50 6c 6f 74 28 50 25 |..M.. .G|_Plot(P%|
|00001cd0| 2c 58 2c 59 29 0d 01 4e | 1c f0 20 50 25 2c a4 47 |,X,Y)..N|.. P%,.G|
|00001ce0| 5f 54 66 78 28 58 29 2c | a4 47 5f 54 66 79 28 59 |_Tfx(X),|.G_Tfy(Y|
|00001cf0| 29 0d 01 4f 05 e1 0d 01 | 50 04 0d 01 51 31 dd 20 |)..O....|P...Q1. |
|00001d00| f2 47 5f 4d 69 64 5f 53 | 65 6b 74 6f 72 28 43 78 |.G_Mid_S|ektor(Cx|
|00001d10| 2c 43 79 2c 52 78 2c 52 | 79 2c 50 67 2c 53 70 2c |,Cy,Rx,R|y,Pg,Sp,|
|00001d20| 45 70 2c f8 20 58 2c f8 | 20 59 29 0d 01 52 0d ea |Ep,. X,.| Y)..R..|
|00001d30| 20 41 2c 42 2c 43 2c 44 | 0d 01 53 0b 43 3d 30 3a | A,B,C,D|..S.C=0:|
|00001d40| 44 3d 30 0d 01 54 29 f2 | 47 5f 43 69 72 63 5f 50 |D=0..T).|G_Circ_P|
|00001d50| 6f 69 6e 74 73 28 43 78 | 2c 43 79 2c 52 78 2c 52 |oints(Cx|,Cy,Rx,R|
|00001d60| 79 2c 50 67 2c 53 70 2c | 58 2c 59 29 0d 01 55 2b |y,Pg,Sp,|X,Y)..U+|
|00001d70| f2 47 5f 43 69 72 63 5f | 50 6f 69 6e 74 73 28 43 |.G_Circ_|Points(C|
|00001d80| 78 2c 43 79 2c 52 78 2c | 52 79 2c 50 67 2c 45 70 |x,Cy,Rx,|Ry,Pg,Ep|
|00001d90| 2c 58 32 2c 59 32 29 0d | 01 56 1f f2 47 5f 62 65 |,X2,Y2).|.V..G_be|
|00001da0| 74 77 65 65 6e 28 58 2c | 59 2c 58 32 2c 59 32 2c |tween(X,|Y,X2,Y2,|
|00001db0| 58 31 2c 59 31 29 0d 01 | 57 1f f2 47 5f 62 65 74 |X1,Y1)..|W..G_bet|
|00001dc0| 77 65 65 6e 28 43 78 2c | 43 79 2c 58 31 2c 59 31 |ween(Cx,|Cy,X1,Y1|
|00001dd0| 2c 58 2c 59 29 0d 01 58 | 18 e7 20 28 28 45 70 2d |,X,Y)..X|.. ((Ep-|
|00001de0| 53 70 29 3d 28 50 67 2f | 32 29 29 20 8c 0d 01 59 |Sp)=(Pg/|2)) ...Y|
|00001df0| 34 20 f2 47 5f 43 69 72 | 63 5f 50 6f 69 6e 74 73 |4 .G_Cir|c_Points|
|00001e00| 28 43 78 2c 43 79 2c 52 | 78 2c 52 79 2c 50 67 2c |(Cx,Cy,R|x,Ry,Pg,|
|00001e10| 53 70 2b 28 45 70 2d 53 | 70 29 2f 32 2c 43 2c 44 |Sp+(Ep-S|p)/2,C,D|
|00001e20| 29 0d 01 5a 1e 20 f2 47 | 5f 62 65 74 77 65 65 6e |)..Z. .G|_between|
|00001e30| 28 43 78 2c 43 79 2c 43 | 2c 44 2c 58 2c 59 29 0d |(Cx,Cy,C|,D,X,Y).|
|00001e40| 01 5b 05 cd 0d 01 5c 05 | e1 0d 01 5d 04 0d 01 5e |.[....\.|...]...^|
|00001e50| 1a dd 20 a4 47 5f 57 69 | 6e 6b 65 6c 28 58 2c 59 |.. .G_Wi|nkel(X,Y|
|00001e60| 2c 58 31 2c 59 31 29 0d | 01 5f 0d ea 20 58 53 2c |,X1,Y1).|._.. XS,|
|00001e70| 59 53 2c 57 0d 01 60 1b | 58 3d a4 47 5f 54 66 78 |YS,W..`.|X=.G_Tfx|
|00001e80| 28 58 29 3a 59 3d a4 47 | 5f 54 66 79 28 59 29 0d |(X):Y=.G|_Tfy(Y).|
|00001e90| 01 61 1f 58 53 3d 31 3a | e7 20 58 31 3c 58 20 8c |.a.XS=1:|. X1<X .|
|00001ea0| 20 c8 94 20 58 2c 58 31 | 3a 58 53 3d 2d 31 0d 01 | .. X,X1|:XS=-1..|
|00001eb0| 62 1f 59 53 3d 31 3a e7 | 20 59 31 3c 59 20 8c 20 |b.YS=1:.| Y1<Y . |
|00001ec0| c8 94 20 59 2c 59 31 3a | 59 53 3d 2d 31 0d 01 63 |.. Y,Y1:|YS=-1..c|
|00001ed0| 17 58 44 3d 58 31 2d 58 | 3a 59 44 3d 59 31 2d 59 |.XD=X1-X|:YD=Y1-Y|
|00001ee0| 3a 57 3d 30 0d 01 64 27 | e7 20 28 58 44 3e 30 29 |:W=0..d'|. (XD>0)|
|00001ef0| 20 80 20 59 44 3e 30 20 | 8c 20 57 3d 39 30 2d 28 | . YD>0 |. W=90-(|
|00001f00| 9d 20 99 28 58 44 2f 59 | 44 29 29 0d 01 65 1a e7 |. .(XD/Y|D))..e..|
|00001f10| 20 28 58 44 3d 30 29 20 | 80 20 59 44 3e 30 20 8c | (XD=0) |. YD>0 .|
|00001f20| 20 57 3d 39 30 0d 01 66 | 27 e7 20 28 28 58 53 3d | W=90..f|'. ((XS=|
|00001f30| 2d 31 29 80 28 28 59 53 | 3d 31 29 29 29 20 8c 20 |-1).((YS|=1))) . |
|00001f40| 57 3d 39 30 2d 57 3a 57 | 2b 3d 39 30 0d 01 67 22 |W=90-W:W|+=90..g"|
|00001f50| e7 20 28 28 58 53 3d 2d | 31 29 80 28 28 59 53 3d |. ((XS=-|1).((YS=|
|00001f60| 2d 31 29 29 29 20 8c 20 | 57 2b 3d 31 38 30 0d 01 |-1))) . |W+=180..|
|00001f70| 68 28 e7 20 28 28 58 53 | 3d 31 29 80 28 28 59 53 |h(. ((XS|=1).((YS|
|00001f80| 3d 2d 31 29 29 29 20 8c | 20 57 3d 39 30 2d 57 3a |=-1))) .| W=90-W:|
|00001f90| 57 2b 3d 32 37 30 0d 01 | 69 06 3d 57 0d 01 6a 04 |W+=270..|i.=W..j.|
|00001fa0| 0d 01 6b 20 dd 20 a4 66 | 6f 6e 74 5f 67 65 74 68 |..k . .f|ont_geth|
|00001fb0| 61 6e 64 6c 65 28 66 6f | 6e 74 24 2c 78 2c 79 29 |andle(fo|nt$,x,y)|
|00001fc0| 0d 01 6c 0b ea 20 66 6f | 6e 74 25 0d 01 6d 33 c8 |..l.. fo|nt%..m3.|
|00001fd0| 99 20 22 46 6f 6e 74 5f | 46 69 6e 64 46 6f 6e 74 |. "Font_|FindFont|
|00001fe0| 22 2c 2c 66 6f 6e 74 24 | 2c 78 2a 31 36 2c 79 2a |",,font$|,x*16,y*|
|00001ff0| 31 36 2c 30 2c 30 20 b8 | 20 66 6f 6e 74 25 0d 01 |16,0,0 .| font%..|
|00002000| 6e 0a 3d 66 6f 6e 74 25 | 0d 01 6f 04 0d 01 70 26 |n.=font%|..o...p&|
|00002010| dd 20 f2 66 6f 6e 74 5f | 73 65 74 63 6f 6c 6f 75 |. .font_|setcolou|
|00002020| 72 28 66 68 2c 20 66 6f | 72 65 25 2c 62 61 63 6b |r(fh, fo|re%,back|
|00002030| 25 29 0d 01 71 35 c8 99 | 20 22 43 6f 6c 6f 75 72 |%)..q5..| "Colour|
|00002040| 54 72 61 6e 73 5f 53 65 | 74 46 6f 6e 74 43 6f 6c |Trans_Se|tFontCol|
|00002050| 6f 75 72 73 22 2c 66 68 | 2c 62 61 63 6b 25 2c 66 |ours",fh|,back%,f|
|00002060| 6f 72 65 25 2c 31 34 0d | 01 72 05 e1 0d 01 73 04 |ore%,14.|.r....s.|
|00002070| 0d 01 74 29 dd 20 f2 66 | 6f 6e 74 5f 63 65 6e 74 |..t). .f|ont_cent|
|00002080| 72 65 74 65 78 74 28 74 | 65 78 74 24 2c 66 6f 6e |retext(t|ext$,fon|
|00002090| 74 25 2c 78 25 2c 79 25 | 29 0d 01 75 17 ea 20 78 |t%,x%,y%|)..u.. x|
|000020a0| 6f 66 66 25 2c 79 6f 66 | 66 25 2c 77 25 2c 68 25 |off%,yof|f%,w%,h%|
|000020b0| 0d 01 76 30 f2 66 6f 6e | 74 5f 67 65 74 62 62 6f |..v0.fon|t_getbbo|
|000020c0| 78 28 74 65 78 74 24 2c | 66 6f 6e 74 25 2c 78 6f |x(text$,|font%,xo|
|000020d0| 66 66 25 2c 79 6f 66 66 | 25 2c 77 25 2c 68 25 29 |ff%,yoff|%,w%,h%)|
|000020e0| 0d 01 77 3b f2 66 6f 6e | 74 5f 70 6c 6f 74 74 65 |..w;.fon|t_plotte|
|000020f0| 78 74 28 74 65 78 74 24 | 2c 66 6f 6e 74 25 2c 78 |xt(text$|,font%,x|
|00002100| 25 2d 77 25 2f 32 2d 78 | 6f 66 66 25 2c 79 25 2d |%-w%/2-x|off%,y%-|
|00002110| 68 25 2f 32 2d 79 6f 66 | 66 25 29 0d 01 78 05 e1 |h%/2-yof|f%)..x..|
|00002120| 0d 01 79 04 0d 01 7a 1d | dd 20 f2 66 6f 6e 74 5f |..y...z.|. .font_|
|00002130| 66 6f 72 67 65 74 66 6f | 6e 74 28 66 6f 6e 74 25 |forgetfo|nt(font%|
|00002140| 29 0d 01 7b 1c c8 99 20 | 22 46 6f 6e 74 5f 4c 6f |)..{... |"Font_Lo|
|00002150| 73 65 46 6f 6e 74 22 2c | 66 6f 6e 74 25 0d 01 7c |seFont",|font%..||
|00002160| 05 e1 0d 01 7d 04 0d 01 | 7e 19 dd 20 f2 47 5f 4f |....}...|~.. .G_O|
|00002170| 66 66 5f 51 75 65 28 f8 | 20 58 2c f8 20 59 29 0d |ff_Que(.| X,. Y).|
|00002180| 01 7f 2e 47 5f 31 28 31 | 31 29 2d 3d 32 3a 58 3d |...G_1(1|1)-=2:X=|
|00002190| 47 5f 31 28 47 5f 31 28 | 31 31 29 29 3a 59 3d 47 |G_1(G_1(|11)):Y=G|
|000021a0| 5f 31 28 47 5f 31 28 31 | 31 29 2b 31 29 0d 01 80 |_1(G_1(1|1)+1)...|
|000021b0| 05 e1 0d 01 81 04 0d 01 | 82 18 dd 20 a4 47 5f 69 |........|... .G_i|
|000021c0| 73 5f 65 71 75 28 58 2c | 59 2c 41 2c 42 29 0d 01 |s_equ(X,|Y,A,B)..|
|000021d0| 83 08 ea 20 45 25 0d 01 | 84 16 20 e7 20 28 41 3d |... E%..|.. . (A=|
|000021e0| 58 29 20 80 20 28 42 3d | 59 29 20 8c 0d 01 85 0a |X) . (B=|Y) .....|
|000021f0| 20 20 45 25 3d b9 0d 01 | 86 06 20 cc 0d 01 87 09 |  E%=...|.. .....|
|00002200| 20 45 25 3d a3 0d 01 88 | 06 20 cd 0d 01 89 07 3d | E%=....|. .....=|
|00002210| 45 25 0d 01 8a 04 0d 01 | 8b 2e dd 20 f2 47 5f 46 |E%......|... .G_F|
|00002220| 69 6c 6c 5f 53 65 6b 74 | 6f 72 28 43 78 2c 43 79 |ill_Sekt|or(Cx,Cy|
|00002230| 2c 52 78 2c 52 79 2c 50 | 67 2c 53 70 2c 63 66 25 |,Rx,Ry,P|g,Sp,cf%|
|00002240| 2c 66 6d 29 0d 01 8c 09 | ea 20 58 2c 59 0d 01 8d |,fm)....|. X,Y...|
|00002250| 2d f2 47 5f 4d 69 64 5f | 53 65 6b 74 6f 72 28 43 |-.G_Mid_|Sektor(C|
|00002260| 78 2c 43 79 2c 52 78 2c | 52 79 2c 50 67 2c 53 70 |x,Cy,Rx,|Ry,Pg,Sp|
|00002270| 2c 53 70 2b 31 2c 58 2c | 59 29 0d 01 8e 10 f2 47 |,Sp+1,X,|Y).....G|
|00002280| 5f 43 6f 6c 31 28 63 66 | 25 29 0d 01 8f 0c e7 20 |_Col1(cf|%)..... |
|00002290| 66 6d 3d 31 20 8c 0d 01 | 90 14 f2 47 5f 46 69 6c |fm=1 ...|...G_Fil|
|000022a0| 6c 5f 75 66 67 28 58 2c | 59 29 0d 01 91 05 cc 0d |l_ufg(X,|Y)......|
|000022b0| 01 92 10 f2 47 5f 46 69 | 6c 6c 28 58 2c 59 29 0d |....G_Fi|ll(X,Y).|
|000022c0| 01 93 05 cd 0d 01 94 05 | e1 0d 01 95 1e dd 20 f2 |........|...... .|
|000022d0| 67 65 74 5f 65 6e 76 28 | f8 20 45 24 2c f8 20 4c |get_env(|. E$,. L|
|000022e0| 25 2c f8 20 54 25 29 0d | 01 96 15 c8 99 20 26 31 |%,. T%).|..... &1|
|000022f0| 30 20 b8 20 45 24 2c 4c | 25 2c 54 25 0d 01 97 05 |0 . E$,L|%,T%....|
|00002300| e1 0d 01 98 04 0d 01 99 | 19 dd 20 f2 55 50 5f 4b |........|.. .UP_K|
|00002310| 69 6c 6c 5f 44 53 50 43 | 28 f8 20 41 24 29 0d 01 |ill_DSPC|(. A$)..|
|00002320| 9a 0f e7 20 a9 28 41 24 | 29 3e 30 20 8c 0d 01 9b |... .(A$|)>0 ....|
|00002330| 14 f2 55 50 5f 4b 69 6c | 6c 5f 53 50 43 28 41 24 |..UP_Kil|l_SPC(A$|
|00002340| 29 0d 01 9c 16 f2 55 50 | 5f 4b 69 6c 6c 5f 44 53 |).....UP|_Kill_DS|
|00002350| 50 43 30 28 41 24 29 0d | 01 9d 05 cd 0d 01 9e 05 |PC0(A$).|........|
|00002360| e1 0d 01 9f 04 0d 01 a0 | 1f dd 20 f2 55 50 5f 44 |........|.. .UP_D|
|00002370| 65 6c 5f 45 6c 65 6d 65 | 6e 74 73 28 f8 20 41 24 |el_Eleme|nts(. A$|
|00002380| 2c 58 25 29 0d 01 a1 08 | ea 20 49 25 0d 01 a2 0f |,X%)....|. I%....|
|00002390| e7 20 a9 28 41 24 29 3e | 30 20 8c 0d 01 a3 29 f2 |. .(A$)>|0 ....).|
|000023a0| 55 50 5f 43 68 65 63 6b | 52 61 6e 67 65 28 58 25 |UP_Check|Range(X%|
|000023b0| 2c 30 2c a4 55 50 5f 45 | 6c 65 6d 65 6e 74 73 28 |,0,.UP_E|lements(|
|000023c0| 41 24 29 29 0d 01 a4 0c | e7 20 58 25 3e 30 20 8c |A$))....|. X%>0 .|
|000023d0| 0d 01 a5 0f e3 20 49 25 | 3d 31 20 b8 20 58 25 0d |..... I%|=1 . X%.|
|000023e0| 01 a6 19 f2 55 50 5f 4b | 69 6c 6c 5f 74 6f 5f 53 |....UP_K|ill_to_S|
|000023f0| 70 61 63 65 28 41 24 29 | 0d 01 a7 0c ed 20 49 25 |pace(A$)|..... I%|
|00002400| 3a cd 3a cd 0d 01 a8 05 | e1 0d 01 a9 04 0d 01 aa |:.:.....|........|
|00002410| 16 dd 20 a4 55 50 5f 45 | 6c 65 6d 65 6e 74 73 28 |.. .UP_E|lements(|
|00002420| 41 24 29 0d 01 ab 11 ea | 20 5a 25 2c 49 25 2c 43 |A$).....| Z%,I%,C|
|00002430| 25 2c 43 24 0d 01 ac 15 | f2 55 50 5f 4b 69 6c 6c |%,C$....|.UP_Kill|
|00002440| 5f 44 53 50 43 28 41 24 | 29 0d 01 ad 0f e7 20 a9 |_DSPC(A$|)..... .|
|00002450| 28 41 24 29 3e 30 20 8c | 0d 01 ae 11 5a 25 3d a9 |(A$)>0 .|....Z%=.|
|00002460| 28 41 24 29 3a 43 25 3d | 30 0d 01 af 0c e7 20 5a |(A$):C%=|0..... Z|
|00002470| 25 3e 30 20 8c 0d 01 b0 | 0f e3 20 49 25 3d 31 20 |%>0 ....|.. I%=1 |
|00002480| b8 20 5a 25 0d 01 b1 21 | 43 24 3d c1 41 24 2c 49 |. Z%...!|C$=.A$,I|
|00002490| 25 2c 31 29 3a e7 20 43 | 24 3d 22 20 22 20 8c 20 |%,1):. C|$=" " . |
|000024a0| 43 25 2b 3d 31 0d 01 b2 | 08 ed 20 49 25 0d 01 b3 |C%+=1...|.. I%...|
|000024b0| 09 43 25 2b 3d 31 0d 01 | b4 05 cd 0d 01 b5 05 cc |.C%+=1..|........|
|000024c0| 0d 01 b6 08 43 25 3d 30 | 0d 01 b7 05 cd 0d 01 b8 |....C%=0|........|
|000024d0| 07 3d 43 25 0d 01 b9 04 | 0d 01 ba 16 dd 20 a4 55 |.=C%....|..... .U|
|000024e0| 50 5f 4b 69 6c 6c 5f 53 | 50 43 28 41 24 29 0d 01 |P_Kill_S|PC(A$)..|
|000024f0| bb 19 f2 55 50 5f 4b 69 | 6c 6c 5f 4c 65 66 74 5f |...UP_Ki|ll_Left_|
|00002500| 53 50 43 28 41 24 29 0d | 01 bc 1a f2 55 50 5f 4b |SPC(A$).|....UP_K|
|00002510| 69 6c 6c 5f 52 69 67 68 | 74 5f 53 50 43 28 41 24 |ill_Righ|t_SPC(A$|
|00002520| 29 0d 01 bd 07 3d 41 24 | 0d 01 be 04 0d 01 bf 17 |)....=A$|........|
|00002530| dd 20 a4 47 5f 52 65 61 | 64 4d 6f 64 65 56 61 72 |. .G_Rea|dModeVar|
|00002540| 28 56 29 0d 01 c0 25 c8 | 99 20 22 4f 53 5f 52 65 |(V)...%.|. "OS_Re|
|00002550| 61 64 4d 6f 64 65 56 61 | 72 69 61 62 6c 65 22 2c |adModeVa|riable",|
|00002560| eb 2c 56 20 b8 2c 2c 56 | 0d 01 c1 06 3d 56 0d 01 |.,V .,,V|....=V..|
|00002570| c2 04 0d 01 c3 22 dd 20 | a4 47 5f 43 69 72 63 5f |.....". |.G_Circ_|
|00002580| 50 6f 69 6e 74 5f 58 28 | 43 78 2c 52 78 2c 50 67 |Point_X(|Cx,Rx,Pg|
|00002590| 2c 53 70 29 0d 01 c4 09 | ea 20 46 2c 58 0d 01 c5 |,Sp)....|. F,X...|
|000025a0| 0e 46 3d 28 32 2a af 29 | 2f 50 67 0d 01 c6 13 58 |.F=(2*.)|/Pg....X|
|000025b0| 3d 9b 28 46 2a 53 70 29 | 2a 52 78 2b 43 78 0d 01 |=.(F*Sp)|*Rx+Cx..|
|000025c0| c7 06 3d 58 0d 01 c8 04 | 0d 01 c9 22 dd 20 a4 47 |..=X....|...". .G|
|000025d0| 5f 43 69 72 63 5f 50 6f | 69 6e 74 5f 59 28 43 79 |_Circ_Po|int_Y(Cy|
|000025e0| 2c 52 79 2c 50 67 2c 53 | 70 29 0d 01 ca 09 ea 20 |,Ry,Pg,S|p)..... |
|000025f0| 46 2c 59 0d 01 cb 0e 46 | 3d 28 32 2a af 29 2f 50 |F,Y....F|=(2*.)/P|
|00002600| 67 0d 01 cc 14 59 3d b5 | 20 28 46 2a 53 70 29 2a |g....Y=.| (F*Sp)*|
|00002610| 52 79 2b 43 79 0d 01 cd | 06 3d 59 0d 01 ce 04 0d |Ry+Cy...|.=Y.....|
|00002620| 01 cf 2f dd 20 f2 47 5f | 43 69 72 63 5f 50 6f 69 |../. .G_|Circ_Poi|
|00002630| 6e 74 73 28 43 78 2c 43 | 79 2c 52 78 2c 52 79 2c |nts(Cx,C|y,Rx,Ry,|
|00002640| 50 67 2c 53 70 2c f8 20 | 58 2c f8 20 59 29 0d 01 |Pg,Sp,. |X,. Y)..|
|00002650| d0 22 58 3d a4 47 5f 43 | 69 72 63 5f 50 6f 69 6e |."X=.G_C|irc_Poin|
|00002660| 74 5f 58 28 43 78 2c 52 | 78 2c 50 67 2c 53 70 29 |t_X(Cx,R|x,Pg,Sp)|
|00002670| 0d 01 d1 22 59 3d a4 47 | 5f 43 69 72 63 5f 50 6f |..."Y=.G|_Circ_Po|
|00002680| 69 6e 74 5f 59 28 43 79 | 2c 52 79 2c 50 67 2c 53 |int_Y(Cy|,Ry,Pg,S|
|00002690| 70 29 0d 01 d2 05 e1 0d | 01 d3 04 0d 01 d4 25 dd |p)......|......%.|
|000026a0| 20 f2 47 5f 62 65 74 77 | 65 65 6e 28 58 31 2c 59 | .G_betw|een(X1,Y|
|000026b0| 31 2c 58 32 2c 59 32 2c | f8 20 58 2c f8 20 59 29 |1,X2,Y2,|. X,. Y)|
|000026c0| 0d 01 d5 17 58 3d a4 47 | 5f 62 65 74 77 65 65 6e |....X=.G|_between|
|000026d0| 28 58 31 2c 58 32 29 0d | 01 d6 17 59 3d a4 47 5f |(X1,X2).|...Y=.G_|
|000026e0| 62 65 74 77 65 65 6e 28 | 59 31 2c 59 32 29 0d 01 |between(|Y1,Y2)..|
|000026f0| d7 05 e1 0d 01 d8 04 0d | 01 d9 34 dd 20 f2 66 6f |........|..4. .fo|
|00002700| 6e 74 5f 67 65 74 62 62 | 6f 78 28 74 65 78 74 24 |nt_getbb|ox(text$|
|00002710| 2c 66 6f 6e 74 25 2c f8 | 20 78 25 2c f8 20 79 25 |,font%,.| x%,. y%|
|00002720| 2c f8 20 77 25 2c f8 20 | 68 25 29 0d 01 da 25 5f |,. w%,. |h%)...%_|
|00002730| 5f 66 6f 6e 74 5f 62 62 | 6f 78 25 21 30 3d 30 3a |_font_bb|ox%!0=0:|
|00002740| 5f 5f 66 6f 6e 74 5f 62 | 62 6f 78 25 21 34 3d 30 |__font_b|box%!4=0|
|00002750| 0d 01 db 26 5f 5f 66 6f | 6e 74 5f 62 62 6f 78 25 |...&__fo|nt_bbox%|
|00002760| 21 38 3d 30 3a 5f 5f 66 | 6f 6e 74 5f 62 62 6f 78 |!8=0:__f|ont_bbox|
|00002770| 25 21 31 32 3d 30 0d 01 | dc 16 5f 5f 66 6f 6e 74 |%!12=0..|..__font|
|00002780| 5f 62 62 6f 78 25 21 31 | 36 3d 2d 31 0d 01 dd 72 |_bbox%!1|6=-1...r|
|00002790| c8 99 20 22 46 6f 6e 74 | 5f 53 63 61 6e 53 74 72 |.. "Font|_ScanStr|
|000027a0| 69 6e 67 22 2c 66 6f 6e | 74 25 2c 74 65 78 74 24 |ing",fon|t%,text$|
|000027b0| 2c 25 30 30 31 30 30 30 | 30 30 30 30 30 31 31 31 |,%001000|00000111|
|000027c0| 31 31 30 30 30 30 30 2c | 26 46 46 46 46 46 46 2c |1100000,|&FFFFFF,|
|000027d0| 26 46 46 46 46 46 46 2c | 5f 5f 66 6f 6e 74 5f 62 |&FFFFFF,|__font_b|
|000027e0| 62 6f 78 25 2c 5f 5f 66 | 6f 6e 74 5f 74 72 61 6e |box%,__f|ont_tran|
|000027f0| 73 66 6f 72 6d 25 2c a9 | 20 74 65 78 74 24 0d 01 |sform%,.| text$..|
|00002800| de 22 78 25 3d 28 5f 5f | 66 6f 6e 74 5f 62 62 6f |."x%=(__|font_bbo|
|00002810| 78 25 21 32 30 29 2a 31 | 38 30 2f 37 32 30 30 30 |x%!20)*1|80/72000|
|00002820| 0d 01 df 22 79 25 3d 28 | 5f 5f 66 6f 6e 74 5f 62 |..."y%=(|__font_b|
|00002830| 62 6f 78 25 21 32 34 29 | 2a 31 38 30 2f 37 32 30 |box%!24)|*180/720|
|00002840| 30 30 0d 01 e0 32 77 25 | 3d 28 5f 5f 66 6f 6e 74 |00...2w%|=(__font|
|00002850| 5f 62 62 6f 78 25 21 32 | 38 2d 5f 5f 66 6f 6e 74 |_bbox%!2|8-__font|
|00002860| 5f 62 62 6f 78 25 21 32 | 30 29 2a 31 38 30 2f 37 |_bbox%!2|0)*180/7|
|00002870| 32 30 30 30 0d 01 e1 32 | 68 25 3d 28 5f 5f 66 6f |2000...2|h%=(__fo|
|00002880| 6e 74 5f 62 62 6f 78 25 | 21 33 32 2d 5f 5f 66 6f |nt_bbox%|!32-__fo|
|00002890| 6e 74 5f 62 62 6f 78 25 | 21 32 34 29 2a 31 38 30 |nt_bbox%|!24)*180|
|000028a0| 2f 37 32 30 30 30 0d 01 | e2 05 e1 0d 01 e3 04 0d |/72000..|........|
|000028b0| 01 e4 27 dd 20 f2 66 6f | 6e 74 5f 70 6c 6f 74 74 |..'. .fo|nt_plott|
|000028c0| 65 78 74 28 74 65 78 74 | 24 2c 66 6f 6e 74 25 2c |ext(text|$,font%,|
|000028d0| 78 25 2c 79 25 29 0d 01 | e5 11 78 25 20 3d 20 78 |x%,y%)..|..x% = x|
|000028e0| 25 20 2a 20 34 30 30 0d | 01 e6 11 79 25 20 3d 20 |% * 400.|...y% = |
|000028f0| 79 25 20 2a 20 34 30 30 | 0d 01 e7 4d c8 99 20 22 |y% * 400|...M.. "|
|00002900| 46 6f 6e 74 5f 50 61 69 | 6e 74 22 2c 66 6f 6e 74 |Font_Pai|nt",font|
|00002910| 25 2c 74 65 78 74 24 2c | 25 30 31 31 31 31 30 30 |%,text$,|%0111100|
|00002920| 30 30 30 30 2c 78 25 2c | 79 25 2c 2c 5f 5f 66 6f |0000,x%,|y%,,__fo|
|00002930| 6e 74 5f 74 72 61 6e 73 | 66 6f 72 6d 25 2c a9 20 |nt_trans|form%,. |
|00002940| 74 65 78 74 24 0d 01 e8 | 05 e1 0d 01 e9 04 0d 01 |text$...|........|
|00002950| ea 16 dd 20 f2 47 5f 46 | 69 6c 6c 5f 75 66 67 28 |... .G_F|ill_ufg(|
|00002960| 58 2c 59 29 0d 01 eb 14 | f2 47 5f 50 6c 6f 74 28 |X,Y)....|.G_Plot(|
|00002970| 31 34 31 2c 58 2c 59 29 | 0d 01 ec 05 e1 0d 01 ed |141,X,Y)|........|
|00002980| 04 0d 01 ee 12 dd 20 f2 | 47 5f 46 69 6c 6c 28 58 |...... .|G_Fill(X|
|00002990| 2c 59 29 0d 01 ef 1a c8 | 90 20 a4 47 5f 54 66 78 |,Y).....|. .G_Tfx|
|000029a0| 28 58 29 2c a4 47 5f 54 | 66 79 28 59 29 0d 01 f0 |(X),.G_T|fy(Y)...|
|000029b0| 05 e1 0d 01 f1 04 0d 01 | f2 18 dd 20 f2 55 50 5f |........|... .UP_|
|000029c0| 4b 69 6c 6c 5f 53 50 43 | 28 f8 20 41 24 29 0d 01 |Kill_SPC|(. A$)..|
|000029d0| f3 19 f2 55 50 5f 4b 69 | 6c 6c 5f 4c 65 66 74 5f |...UP_Ki|ll_Left_|
|000029e0| 53 50 43 28 41 24 29 0d | 01 f4 1a f2 55 50 5f 4b |SPC(A$).|....UP_K|
|000029f0| 69 6c 6c 5f 52 69 67 68 | 74 5f 53 50 43 28 41 24 |ill_Righ|t_SPC(A$|
|00002a00| 29 0d 01 f5 05 e1 0d 01 | f6 04 0d 01 f7 1a dd 20 |).......|....... |
|00002a10| f2 55 50 5f 4b 69 6c 6c | 5f 44 53 50 43 30 28 f8 |.UP_Kill|_DSPC0(.|
|00002a20| 20 41 24 29 0d 01 f8 08 | ea 20 58 25 0d 01 f9 10 | A$)....|. X%....|
|00002a30| 58 25 3d a7 41 24 2c 22 | 20 20 22 29 0d 01 fa 0c |X%=.A$,"|  ")....|
|00002a40| e7 20 58 25 3e 30 20 8c | 0d 01 fb 17 f2 55 50 5f |. X%>0 .|.....UP_|
|00002a50| 4b 69 6c 6c 5f 43 68 72 | 28 41 24 2c 58 25 29 0d |Kill_Chr|(A$,X%).|
|00002a60| 01 fc 16 f2 55 50 5f 4b | 69 6c 6c 5f 44 53 50 43 |....UP_K|ill_DSPC|
|00002a70| 30 28 41 24 29 0d 01 fd | 05 cd 0d 01 fe 05 e1 0d |0(A$)...|........|
|00002a80| 01 ff 04 0d 02 00 1d dd | 20 f2 55 50 5f 4b 69 6c |........| .UP_Kil|
|00002a90| 6c 5f 74 6f 5f 53 70 61 | 63 65 28 f8 20 41 24 29 |l_to_Spa|ce(. A$)|
|00002aa0| 0d 02 01 08 ea 20 58 25 | 0d 02 02 0f e7 20 a9 28 |..... X%|..... .(|
|00002ab0| 41 24 29 3e 30 20 8c 0d | 02 03 19 f2 55 50 5f 4b |A$)>0 ..|....UP_K|
|00002ac0| 69 6c 6c 5f 4c 65 66 74 | 5f 53 50 43 28 41 24 29 |ill_Left|_SPC(A$)|
|00002ad0| 0d 02 04 0f 58 25 3d a7 | 41 24 2c 22 20 22 29 0d |....X%=.|A$," ").|
|00002ae0| 02 05 17 e7 20 58 25 3e | 30 20 8c 20 41 24 3d c1 |.... X%>|0 . A$=.|
|00002af0| 41 24 2c 58 25 29 0d 02 | 06 05 cd 0d 02 07 05 e1 |A$,X%)..|........|
|00002b00| 0d 02 08 04 0d 02 09 1d | dd 20 f2 55 50 5f 4b 69 |........|. .UP_Ki|
|00002b10| 6c 6c 5f 4c 65 66 74 5f | 53 50 43 28 f8 20 41 24 |ll_Left_|SPC(. A$|
|00002b20| 29 0d 02 0a 0f e7 20 a9 | 28 41 24 29 3e 30 20 8c |)..... .|(A$)>0 .|
|00002b30| 0d 02 0b 38 e7 20 c0 41 | 24 2c 31 29 3d 22 20 22 |...8. .A|$,1)=" "|
|00002b40| 20 8c 20 41 24 3d c2 41 | 24 2c a9 28 41 24 29 2d | . A$=.A|$,.(A$)-|
|00002b50| 31 29 3a f2 55 50 5f 4b | 69 6c 6c 5f 4c 65 66 74 |1):.UP_K|ill_Left|
|00002b60| 5f 53 50 43 28 41 24 29 | 0d 02 0c 05 cd 0d 02 0d |_SPC(A$)|........|
|00002b70| 05 e1 0d 02 0e 04 0d 02 | 0f 1e dd 20 f2 55 50 5f |........|... .UP_|
|00002b80| 4b 69 6c 6c 5f 52 69 67 | 68 74 5f 53 50 43 28 f8 |Kill_Rig|ht_SPC(.|
|00002b90| 20 41 24 29 0d 02 10 0f | e7 20 a9 28 41 24 29 3e | A$)....|. .(A$)>|
|00002ba0| 30 20 8c 0d 02 11 2f e7 | 20 c2 41 24 29 3d 22 20 |0 ..../.| .A$)=" |
|00002bb0| 22 20 8c 20 41 24 3d c0 | 41 24 29 3a f2 55 50 5f |" . A$=.|A$):.UP_|
|00002bc0| 4b 69 6c 6c 5f 52 69 67 | 68 74 5f 53 50 43 28 41 |Kill_Rig|ht_SPC(A|
|00002bd0| 24 29 0d 02 12 05 cd 0d | 02 13 05 e1 0d 02 14 15 |$)......|........|
|00002be0| dd 20 a4 47 5f 62 65 74 | 77 65 65 6e 28 58 2c 59 |. .G_bet|ween(X,Y|
|00002bf0| 29 0d 02 15 07 ea 20 44 | 0d 02 16 0c e7 20 58 3c |)..... D|..... X<|
|00002c00| 3e 59 20 8c 0d 02 17 13 | 20 e7 20 58 3c 59 20 8c |>Y .....| . X<Y .|
|00002c10| 20 c8 94 20 58 2c 59 0d | 02 18 10 20 44 3d 59 2b | .. X,Y.|... D=Y+|
|00002c20| 28 58 2d 59 29 2f 32 0d | 02 19 05 cc 0d 02 1a 07 |(X-Y)/2.|........|
|00002c30| 44 3d 58 0d 02 1b 05 cd | 0d 02 1c 06 3d 44 0d 02 |D=X.....|....=D..|
|00002c40| 1d 04 0d 02 1e 1b dd 20 | f2 55 50 5f 4b 69 6c 6c |....... |.UP_Kill|
|00002c50| 5f 43 68 72 28 f8 20 41 | 24 2c 58 25 29 0d 02 1f |_Chr(. A|$,X%)...|
|00002c60| 0e ea 20 41 25 2c 42 24 | 2c 43 24 0d 02 20 0c 41 |.. A%,B$|,C$.. .A|
|00002c70| 25 3d a9 28 41 24 29 0d | 02 21 0d e7 20 41 25 3c |%=.(A$).|.!.. A%<|
|00002c80| 58 25 20 8c 0d 02 22 3b | 20 85 20 31 2c 22 42 61 |X% ...";| . 1,"Ba|
|00002c90| 64 20 50 61 72 61 6d 65 | 74 65 72 73 20 69 6e 20 |d Parame|ters in |
|00002ca0| 55 50 5f 4b 69 6c 6c 5f | 43 68 72 3a 3e 22 2b 41 |UP_Kill_|Chr:>"+A|
|00002cb0| 24 2b 22 3c 22 2b c3 28 | 58 25 29 2b 22 3c 22 0d |$+"<"+.(|X%)+"<".|
|00002cc0| 02 23 06 20 cc 0d 02 24 | 27 42 24 3d c0 41 24 2c |.#. ...$|'B$=.A$,|
|00002cd0| 58 25 2d 31 29 3a 43 24 | 3d c2 41 24 2c 41 25 2d |X%-1):C$|=.A$,A%-|
|00002ce0| 58 25 29 3a 41 24 3d 42 | 24 2b 43 24 0d 02 25 06 |X%):A$=B|$+C$..%.|
|00002cf0| 20 cd 0d 02 26 05 e1 0d | ff                      | ...&...|.       |
+--------+-------------------------+-------------------------+--------+--------+