/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / basic / !Basic / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1a f4 20 3e 20 | 24 2e 21 42 61 73 69 63 |..... > |$.!Basic|
|00000010| 2e 21 52 75 6e 49 6d 61 | 67 65 0d 00 14 04 0d 00 |.!RunIma|ge......|
|00000020| 1e 10 f4 20 4a 2e 4f 2e | 4c 69 6e 74 6f 6e 0d 00 |... J.O.|Linton..|
|00000030| 28 1e f4 20 42 61 73 69 | 63 20 45 64 69 74 6f 72 |(.. Basi|c Editor|
|00000040| 20 41 70 70 6c 69 63 61 | 74 69 6f 6e 0d 00 32 3d | Applica|tion..2=|
|00000050| f4 20 41 6c 6c 20 6c 69 | 6e 65 73 20 62 65 79 6f |. All li|nes beyo|
|00000060| 6e 64 20 39 35 30 20 61 | 72 65 20 69 64 65 6e 74 |nd 950 a|re ident|
|00000070| 69 63 61 6c 20 74 6f 20 | 70 72 6f 63 65 64 75 72 |ical to |procedur|
|00000080| 65 73 20 69 6e 20 74 68 | 65 0d 00 3c 30 f4 20 27 |es in th|e..<0. '|
|00000090| 43 61 6c 63 75 6c 61 74 | 6f 72 27 20 70 72 6f 67 |Calculat|or' prog|
|000000a0| 72 61 6d 20 6f 6e 20 52 | 49 53 43 2d 4f 53 20 64 |ram on R|ISC-OS d|
|000000b0| 69 73 63 20 3a 41 70 70 | 32 0d 00 46 04 0d 00 50 |isc :App|2..F...P|
|000000c0| 1e de 20 74 61 73 6b 69 | 64 25 34 3a 24 74 61 73 |.. taski|d%4:$tas|
|000000d0| 6b 69 64 25 3d 22 54 41 | 53 4b 22 0d 00 5a 3f c8 |kid%="TA|SK"..Z?.|
|000000e0| 99 20 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |. "Wimp_|Initiali|
|000000f0| 73 65 22 2c 32 30 30 2c | 21 74 61 73 6b 69 64 25 |se",200,|!taskid%|
|00000100| 2c 22 42 61 73 69 63 20 | 45 64 69 74 6f 72 22 20 |,"Basic |Editor" |
|00000110| b8 20 76 65 72 73 69 6f | 6e 25 0d 00 64 4d 60 77 |. versio|n%..dM`w|
|00000120| 62 63 6f 6c 3d 31 30 3a | 60 74 62 63 6f 6c 3d 31 |bcol=10:|`tbcol=1|
|00000130| 32 3a 60 73 63 6f 3d 34 | 3a 60 6d 62 63 6f 6c 3d |2:`sco=4|:`mbcol=|
|00000140| 32 3a 60 77 66 63 6f 6c | 3d 26 37 3a 60 74 66 63 |2:`wfcol|=&7:`tfc|
|00000150| 6f 6c 3d 37 3a 60 73 63 | 69 3d 26 44 3a 60 74 62 |ol=7:`sc|i=&D:`tb|
|00000160| 63 6f 6c 32 3d 26 43 0d | 00 6e 09 f2 76 61 72 73 |col2=&C.|.n..vars|
|00000170| 0d 00 78 1a de 20 71 25 | 20 26 33 30 30 2c 62 75 |..x.. q%| &300,bu|
|00000180| 66 66 65 72 25 20 26 32 | 30 30 0d 00 82 04 0d 00 |ffer% &2|00......|
|00000190| 8c 10 ee 85 20 f2 65 72 | 72 6f 72 62 6f 78 0d 00 |.... .er|rorbox..|
|000001a0| 96 05 20 0d 00 a0 2b 53 | 25 3d 8e 22 24 2e 21 42 |.. ...+S|%=."$.!B|
|000001b0| 61 73 69 63 2e 21 53 70 | 72 69 74 65 73 22 3a 54 |asic.!Sp|rites":T|
|000001c0| 25 3d a2 23 53 25 2b 31 | 36 3a d9 23 53 25 0d 00 |%=.#S%+1|6:.#S%..|
|000001d0| aa 11 de 20 73 70 72 69 | 74 65 73 25 20 54 25 0d |... spri|tes% T%.|
|000001e0| 00 b4 1d 21 73 70 72 69 | 74 65 73 25 3d 54 25 3a |...!spri|tes%=T%:|
|000001f0| 73 70 72 69 74 65 73 25 | 21 38 3d 31 0d 00 be 22 |sprites%|!8=1..."|
|00000200| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|00000210| 2c 26 31 30 39 2c 73 70 | 72 69 74 65 73 25 0d 00 |,&109,sp|rites%..|
|00000220| c8 36 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |.6.. "OS|_SpriteO|
|00000230| 70 22 2c 26 31 30 41 2c | 73 70 72 69 74 65 73 25 |p",&10A,|sprites%|
|00000240| 2c 22 24 2e 21 42 61 73 | 69 63 2e 21 53 70 72 69 |,"$.!Bas|ic.!Spri|
|00000250| 74 65 73 22 0d 00 d2 1b | 69 63 63 61 6c 63 25 3d |tes"....|iccalc%=|
|00000260| a4 69 63 6f 6e 62 61 72 | 3a f2 63 6c 65 61 72 0d |.iconbar|:.clear.|
|00000270| 00 dc 05 20 0d 00 e6 3b | c8 99 20 44 72 61 67 2c |... ...;|.. Drag,|
|00000280| 2c 2d 31 3a f2 67 65 74 | 70 6f 69 6e 74 65 72 3a |,-1:.get|pointer:|
|00000290| 78 6f 25 3d 6d 6f 75 73 | 65 78 25 3a 79 6f 25 3d |xo%=mous|ex%:yo%=|
|000002a0| 6d 6f 75 73 65 79 25 3a | 6f 70 65 6e 25 3d a3 0d |mousey%:|open%=..|
|000002b0| 00 f0 05 f5 0d 00 fa 18 | 20 20 c8 99 20 50 6f 6c |........|  .. Pol|
|000002c0| 6c 25 2c 31 2c 71 25 20 | b8 20 41 25 0d 01 04 0d |l%,1,q% |. A%....|
|000002d0| 20 20 c8 8e 20 41 25 20 | ca 0d 01 0e 1e 20 20 c9 |  .. A% |.....  .|
|000002e0| 20 31 20 3a f2 72 65 64 | 72 61 77 5f 77 69 6e 64 | 1 :.red|raw_wind|
|000002f0| 6f 77 28 21 71 25 29 0d | 01 18 44 20 20 c9 20 32 |ow(!q%).|..D  . 2|
|00000300| 20 3a f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 21 | :.open_|window(!|
|00000310| 71 25 2c 71 25 21 34 2c | 71 25 21 38 2c 71 25 21 |q%,q%!4,|q%!8,q%!|
|00000320| 31 32 2c 71 25 21 31 36 | 2c 71 25 21 32 30 2c 71 |12,q%!16|,q%!20,q|
|00000330| 25 21 32 34 2c 71 25 21 | 32 38 29 0d 01 22 1d 20 |%!24,q%!|28)..". |
|00000340| 20 c9 20 33 20 3a f2 63 | 6c 6f 73 65 61 77 69 6e | . 3 :.c|loseawin|
|00000350| 64 6f 77 28 21 71 25 29 | 0d 01 2c 37 20 20 c9 20 |dow(!q%)|..,7  . |
|00000360| 36 20 3a f2 63 68 65 63 | 6b 6d 6f 75 73 65 28 21 |6 :.chec|kmouse(!|
|00000370| 71 25 2c 71 25 21 34 2c | 71 25 21 38 2c 71 25 21 |q%,q%!4,|q%!8,q%!|
|00000380| 31 32 2c 71 25 21 31 36 | 2c 71 25 21 32 30 29 0d |12,q%!16|,q%!20).|
|00000390| 01 36 1a 20 20 c9 20 39 | 20 3a f2 6d 65 6e 75 73 |.6.  . 9| :.menus|
|000003a0| 65 6c 65 63 74 28 71 25 | 29 0d 01 40 1a 20 20 c9 |elect(q%|)..@.  .|
|000003b0| 20 31 37 2c 31 38 3a f2 | 72 65 63 65 69 76 65 28 | 17,18:.|receive(|
|000003c0| 71 25 29 0d 01 4a 07 20 | 20 cb 0d 01 54 07 fd 20 |q%)..J. | ...T.. |
|000003d0| a3 0d 01 5e 05 20 0d 01 | 68 1d dd 20 f2 72 65 64 |...^. ..|h.. .red|
|000003e0| 72 61 77 5f 77 69 6e 64 | 6f 77 28 68 61 6e 64 6c |raw_wind|ow(handl|
|000003f0| 65 25 29 0d 01 72 05 e1 | 0d 01 7c 05 20 0d 01 86 |e%)..r..|..|. ...|
|00000400| 12 dd 20 f2 72 65 63 65 | 69 76 65 28 71 25 29 0d |.. .rece|ive(q%).|
|00000410| 01 90 0e c8 8e 20 71 25 | 21 31 36 20 ca 0d 01 9a |..... q%|!16 ....|
|00000420| 13 20 20 c9 20 30 3a f2 | 66 69 6e 69 73 68 3a e0 |.  . 0:.|finish:.|
|00000430| 0d 01 a4 09 20 20 c9 20 | 33 0d 01 ae 15 20 20 e7 |....  . |3....  .|
|00000440| 20 71 25 21 34 30 3c 3e | 26 46 46 42 20 8c 0d 01 | q%!40<>|&FFB ...|
|00000450| b8 24 20 20 20 20 f2 6d | 65 73 73 61 67 65 28 22 |.$    .m|essage("|
|00000460| 4e 6f 74 20 61 20 42 41 | 53 49 43 20 66 69 6c 65 |Not a BA|SIC file|
|00000470| 22 29 0d 01 c2 07 20 20 | cc 0d 01 cc 1a 20 20 20 |")....  |.....   |
|00000480| 20 2a 4b 45 59 31 20 2a | 44 45 53 4b 54 4f 50 7c | *KEY1 *|DESKTOP||
|00000490| 4d 7c 4d 0d 01 d6 15 20 | 20 20 20 2a 4b 45 59 32 |M|M.... |   *KEY2|
|000004a0| 20 45 44 49 54 2e 7c 4d | 0d 01 e0 13 20 20 20 20 | EDIT.|M|....    |
|000004b0| 2a 4b 45 59 33 20 52 55 | 4e 7c 4d 0d 01 ea 38 20 |*KEY3 RU|N|M...8 |
|000004c0| 20 20 20 ff 22 4b 45 59 | 20 31 32 20 42 41 53 49 |   ."KEY| 12 BASI|
|000004d0| 43 20 2d 6c 6f 61 64 20 | 22 2b a4 47 65 74 53 74 |C -load |"+.GetSt|
|000004e0| 72 28 71 25 2b 34 34 29 | 2b 22 7c 4d 45 44 49 54 |r(q%+44)|+"|MEDIT|
|000004f0| 7c 4d 22 0d 01 f4 15 20 | 20 20 20 2a 46 58 20 31 ||M".... |   *FX 1|
|00000500| 33 38 2c 30 2c 32 30 34 | 0d 01 fe 15 20 20 20 20 |38,0,204|....    |
|00000510| 2a 46 58 20 31 33 38 2c | 30 2c 32 30 34 0d 02 08 |*FX 138,|0,204...|
|00000520| 07 20 20 cd 0d 02 12 05 | cb 0d 02 1c 05 e1 0d 02 |.  .....|........|
|00000530| 26 04 0d 02 30 20 dd 20 | a4 47 65 74 53 74 72 28 |&...0 . |.GetStr(|
|00000540| 73 25 29 20 3a 20 f4 20 | 67 65 74 20 73 74 72 69 |s%) : . |get stri|
|00000550| 6e 67 0d 02 3a 08 ea 20 | 6e 24 0d 02 44 1a c8 95 |ng..:.. |n$..D...|
|00000560| 3f 73 25 3a 6e 24 2b 3d | bd 3f 73 25 3a 73 25 2b |?s%:n$+=|.?s%:s%+|
|00000570| 3d 31 3a ce 0d 02 4e 07 | 3d 6e 24 0d 02 58 05 20 |=1:...N.|=n$..X. |
|00000580| 0d 02 62 37 dd 20 f2 63 | 68 65 63 6b 6d 6f 75 73 |..b7. .c|heckmous|
|00000590| 65 28 6d 6f 75 73 65 78 | 25 2c 6d 6f 75 73 65 79 |e(mousex|%,mousey|
|000005a0| 25 2c 62 25 2c 68 61 6e | 64 6c 65 25 2c 69 63 6f |%,b%,han|dle%,ico|
|000005b0| 6e 25 2c 6f 62 25 29 0d | 02 6c 0c e7 28 62 25 80 |n%,ob%).|.l..(b%.|
|000005c0| 32 29 8c 0d 02 76 12 20 | 20 c8 8e 20 68 61 6e 64 |2)...v. | .. hand|
|000005d0| 6c 65 25 20 ca 0d 02 80 | 0a 20 20 c9 20 2d 32 0d |le% ....|.  . -2.|
|000005e0| 02 8a 2a 20 20 20 20 f2 | 64 6f 6d 65 6e 75 28 31 |..*    .|domenu(1|
|000005f0| 30 31 2c 22 51 75 69 74 | 22 2c 22 42 61 73 69 63 |01,"Quit|","Basic|
|00000600| 20 45 64 69 74 6f 72 22 | 29 0d 02 94 07 20 20 cb | Editor"|)....  .|
|00000610| 0d 02 9e 05 cd 0d 02 a8 | 0c e7 28 62 25 80 35 29 |........|..(b%.5)|
|00000620| 8c 0d 02 b2 20 20 20 e7 | 68 61 6e 64 6c 65 25 3e |....   .|handle%>|
|00000630| 2d 31 8c f2 67 65 74 77 | 28 68 61 6e 64 6c 65 25 |-1..getw|(handle%|
|00000640| 29 0d 02 bc 12 20 20 c8 | 8e 20 68 61 6e 64 6c 65 |)....  .|. handle|
|00000650| 25 20 ca 0d 02 c6 0a 20 | 20 c9 20 2d 32 0d 02 d0 |% ..... | . -2...|
|00000660| 1a 20 20 20 20 2a 4b 45 | 59 31 20 2a 44 45 53 4b |.    *KE|Y1 *DESK|
|00000670| 54 4f 50 7c 4d 7c 4d 0d | 02 da 15 20 20 20 20 2a |TOP|M|M.|...    *|
|00000680| 4b 45 59 32 20 45 44 49 | 54 2e 7c 4d 0d 02 e4 13 |KEY2 EDI|T.|M....|
|00000690| 20 20 20 20 2a 4b 45 59 | 33 20 52 55 4e 7c 4d 0d |    *KEY|3 RUN|M.|
|000006a0| 02 ee 1f 20 20 20 20 ff | 22 4b 45 59 20 31 32 20 |...    .|"KEY 12 |
|000006b0| 42 41 53 49 43 7c 4d 45 | 44 49 54 7c 4d 22 0d 02 |BASIC|ME|DIT|M"..|
|000006c0| f8 15 20 20 20 20 2a 46 | 58 20 31 33 38 2c 30 2c |..    *F|X 138,0,|
|000006d0| 32 30 34 0d 03 02 15 20 | 20 20 20 2a 46 58 20 31 |204.... |   *FX 1|
|000006e0| 33 38 2c 30 2c 32 30 34 | 0d 03 0c 07 20 20 cb 0d |38,0,204|....  ..|
|000006f0| 03 16 05 cd 0d 03 20 05 | e1 0d 03 2a 04 0d 03 34 |...... .|...*...4|
|00000700| 0f dd 20 f2 65 72 72 6f | 72 62 6f 78 0d 03 3e 0f |.. .erro|rbox..>.|
|00000710| c8 99 20 44 72 61 67 2c | 2c 2d 31 0d 03 48 30 21 |.. Drag,|,-1..H0!|
|00000720| 62 75 66 66 65 72 25 3d | 9f 3a 24 28 62 75 66 66 |buffer%=|.:$(buff|
|00000730| 65 72 25 2b 34 29 3d f6 | 24 2b 22 20 61 74 20 6c |er%+4)=.|$+" at l|
|00000740| 69 6e 65 20 22 2b c3 9e | 2b bd 30 0d 03 52 32 c8 |ine "+..|+.0..R2.|
|00000750| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00000760| 72 6f 72 22 2c 62 75 66 | 66 65 72 25 2c 31 2c 22 |ror",buf|fer%,1,"|
|00000770| 42 61 73 69 63 20 45 64 | 69 74 6f 72 22 0d 03 5c |Basic Ed|itor"..\|
|00000780| 0d f2 66 69 6e 69 73 68 | 3a e0 0d 03 66 05 e1 0d |..finish|:...f...|
|00000790| 03 70 04 0d 03 7a 12 dd | 20 f2 6d 65 73 73 61 67 |.p...z..| .messag|
|000007a0| 65 28 4d 24 29 0d 03 84 | 0f c8 99 20 44 72 61 67 |e(M$)...|... Drag|
|000007b0| 2c 2c 2d 31 0d 03 8e 1e | 21 62 75 66 66 65 72 25 |,,-1....|!buffer%|
|000007c0| 3d 9f 3a 24 28 62 75 66 | 66 65 72 25 2b 34 29 3d |=.:$(buf|fer%+4)=|
|000007d0| 4d 24 0d 03 98 32 c8 99 | 20 22 57 69 6d 70 5f 52 |M$...2..| "Wimp_R|
|000007e0| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 75 66 66 |eportErr|or",buff|
|000007f0| 65 72 25 2c 31 2c 22 42 | 61 73 69 63 20 45 64 69 |er%,1,"B|asic Edi|
|00000800| 74 6f 72 22 0d 03 a2 05 | e1 0d 03 ac 05 20 0d 03 |tor"....|..... ..|
|00000810| b6 47 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.G. ----|--------|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 2d 2d 0d 03 c0 | 04 0d 03 ca 1c dd 20 f2 |-----...|...... .|
|00000860| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 68 61 6e |closeawi|ndow(han|
|00000870| 64 6c 65 25 29 0d 03 d4 | 12 f2 67 65 74 77 28 68 |dle%)...|..getw(h|
|00000880| 61 6e 64 6c 65 25 29 0d | 03 de 1b 78 6f 25 3d 78 |andle%).|...xo%=x|
|00000890| 30 25 3a 79 6f 25 3d 79 | 30 25 3a 6f 70 65 6e 25 |0%:yo%=y|0%:open%|
|000008a0| 3d a3 0d 03 e8 1a f2 63 | 6c 6f 73 65 5f 77 69 6e |=......c|lose_win|
|000008b0| 64 6f 77 28 68 61 6e 64 | 6c 65 25 29 0d 03 f2 05 |dow(hand|le%)....|
|000008c0| e1 0d 03 fc 05 20 0d 04 | 06 0d dd 20 f2 66 69 6e |..... ..|... .fin|
|000008d0| 69 73 68 0d 04 10 17 c8 | 99 20 22 57 69 6d 70 5f |ish.....|. "Wimp_|
|000008e0| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 04 1a 05 e1 0d |CloseDow|n"......|
|000008f0| 04 24 05 20 0d 04 2e 27 | dd 20 f2 64 6f 6d 65 6e |.$. ...'|. .domen|
|00000900| 75 28 68 61 6e 64 6c 65 | 25 2c 6d 65 6e 75 24 2c |u(handle|%,menu$,|
|00000910| 6d 65 6e 75 74 69 74 6c | 65 24 29 0d 04 38 17 6d |menutitl|e$)..8.m|
|00000920| 65 6e 75 68 61 6e 64 6c | 65 25 3d 68 61 6e 64 6c |enuhandl|e%=handl|
|00000930| 65 25 0d 04 42 14 6d 65 | 6e 75 70 74 72 25 3d 62 |e%..B.me|nuptr%=b|
|00000940| 75 66 66 65 72 25 0d 04 | 4c 08 69 25 3d 30 0d 04 |uffer%..|L.i%=0..|
|00000950| 56 12 6d 65 6e 75 70 74 | 72 25 21 32 30 3d 34 30 |V.menupt|r%!20=40|
|00000960| 0d 04 60 18 24 6d 65 6e | 75 70 74 72 25 3d 6d 65 |..`.$men|uptr%=me|
|00000970| 6e 75 74 69 74 6c 65 24 | 0d 04 6a 4a 6d 65 6e 75 |nutitle$|..jJmenu|
|00000980| 70 74 72 25 3f 31 32 3d | 60 74 66 63 6f 6c 3a 6d |ptr%?12=|`tfcol:m|
|00000990| 65 6e 75 70 74 72 25 3f | 31 33 3d 32 3a 6d 65 6e |enuptr%?|13=2:men|
|000009a0| 75 70 74 72 25 3f 31 34 | 3d 60 77 66 63 6f 6c 3a |uptr%?14|=`wfcol:|
|000009b0| 6d 65 6e 75 70 74 72 25 | 3f 31 35 3d 60 77 62 63 |menuptr%|?15=`wbc|
|000009c0| 6f 6c 0d 04 74 24 6d 65 | 6e 75 70 74 72 25 21 31 |ol..t$me|nuptr%!1|
|000009d0| 36 3d 31 39 36 2d 32 34 | 3a 6d 65 6e 75 70 74 72 |6=196-24|:menuptr|
|000009e0| 25 21 32 34 3d 30 0d 04 | 7e 10 6d 65 6e 75 70 74 |%!24=0..|~.menupt|
|000009f0| 72 25 2b 3d 32 38 0d 04 | 88 31 f5 20 69 74 65 6d |r%+=28..|.1. item|
|00000a00| 24 3d a4 70 61 72 28 22 | 2c 22 29 3a f2 6d 65 6e |$=.par("|,"):.men|
|00000a10| 75 69 74 65 6d 28 69 74 | 65 6d 24 29 3a fd 20 69 |uitem(it|em$):. i|
|00000a20| 74 65 6d 24 3d 22 22 0d | 04 92 23 6d 65 6e 75 70 |tem$="".|..#menup|
|00000a30| 74 72 25 21 2d 32 34 3d | 28 6d 65 6e 75 70 74 72 |tr%!-24=|(menuptr|
|00000a40| 25 21 2d 32 34 29 84 26 | 38 30 0d 04 9c 27 c8 99 |%!-24).&|80...'..|
|00000a50| 20 43 72 4d 65 6e 75 2c | 2c 62 75 66 66 65 72 25 | CrMenu,|,buffer%|
|00000a60| 2c 6d 6f 75 73 65 78 25 | 2d 36 34 2c 39 36 2b 38 |,mousex%|-64,96+8|
|00000a70| 30 0d 04 a6 05 e1 0d 04 | b0 05 20 0d 04 ba 16 dd |0.......|.. .....|
|00000a80| 20 f2 6d 65 6e 75 69 74 | 65 6d 28 74 65 78 74 24 | .menuit|em(text$|
|00000a90| 29 0d 04 c4 10 e7 20 74 | 65 78 74 24 3d 22 22 20 |)..... t|ext$="" |
|00000aa0| e1 0d 04 ce 0f 21 6d 65 | 6e 75 70 74 72 25 3d 30 |.....!me|nuptr%=0|
|00000ab0| 0d 04 d8 34 e7 20 c0 74 | 65 78 74 24 2c 31 29 3d |...4. .t|ext$,1)=|
|00000ac0| 22 3e 22 20 6d 65 6e 75 | 70 74 72 25 21 34 3d 69 |">" menu|ptr%!4=i|
|00000ad0| 6e 66 6f 25 20 8b 20 6d | 65 6e 75 70 74 72 25 21 |nfo% . m|enuptr%!|
|00000ae0| 34 3d 2d 31 0d 04 e2 18 | 6d 65 6e 75 70 74 72 25 |4=-1....|menuptr%|
|00000af0| 21 38 3d 26 30 37 30 30 | 30 30 32 31 0d 04 ec 43 |!8=&0700|0021...C|
|00000b00| e7 20 c0 74 65 78 74 24 | 2c 31 29 3d 22 3e 22 20 |. .text$|,1)=">" |
|00000b10| 24 28 6d 65 6e 75 70 74 | 72 25 2b 31 32 29 3d c1 |$(menupt|r%+12)=.|
|00000b20| 74 65 78 74 24 2c 32 29 | 20 8b 20 24 28 6d 65 6e |text$,2)| . $(men|
|00000b30| 75 70 74 72 25 2b 31 32 | 29 3d 74 65 78 74 24 0d |uptr%+12|)=text$.|
|00000b40| 04 f6 10 6d 65 6e 75 70 | 74 72 25 2b 3d 32 34 0d |...menup|tr%+=24.|
|00000b50| 05 00 05 e1 0d 05 0a 05 | 20 0d 05 14 10 dd 20 a4 |........| ..... .|
|00000b60| 70 61 72 28 73 65 70 24 | 29 0d 05 1e 25 69 31 25 |par(sep$|)...%i1%|
|00000b70| 3d 69 25 2b 31 3a 69 25 | 3d a7 6d 65 6e 75 24 2b |=i%+1:i%|=.menu$+|
|00000b80| 73 65 70 24 2c 73 65 70 | 24 2c 69 31 25 29 0d 05 |sep$,sep|$,i1%)..|
|00000b90| 28 17 3d c1 6d 65 6e 75 | 24 2c 69 31 25 2c 69 25 |(.=.menu|$,i1%,i%|
|00000ba0| 2d 69 31 25 29 0d 05 32 | 05 20 0d 05 3c 19 dd 20 |-i1%)..2|. ..<.. |
|00000bb0| f2 6d 65 6e 75 73 65 6c | 65 63 74 28 6d 65 6e 75 |.menusel|ect(menu|
|00000bc0| 73 25 29 0d 05 46 2d c8 | 99 20 44 63 4d 65 6e 75 |s%)..F-.|. DcMenu|
|00000bd0| 2c 2c 62 75 66 66 65 72 | 25 2c 6d 65 6e 75 73 25 |,,buffer|%,menus%|
|00000be0| 2c c4 32 30 30 2c 22 20 | 22 29 b8 2c 2c 2c 61 24 |,.200," |").,,,a$|
|00000bf0| 0d 05 50 0f e7 20 61 24 | 3d 22 22 20 8c 20 e1 0d |..P.. a$|="" . ..|
|00000c00| 05 5a 14 c8 8e 20 6d 65 | 6e 75 68 61 6e 64 6c 65 |.Z... me|nuhandle|
|00000c10| 25 20 ca 0d 05 64 1f c9 | 20 31 30 31 3a e7 20 61 |% ...d..| 101:. a|
|00000c20| 24 3d 22 51 75 69 74 22 | 3a f2 66 69 6e 69 73 68 |$="Quit"|:.finish|
|00000c30| 3a e0 0d 05 6e 05 cb 0d | 05 78 05 e1 0d 05 82 05 |:...n...|.x......|
|00000c40| 20 0d 05 8c 3e dd 20 f2 | 6f 70 65 6e 5f 77 69 6e | ...>. .|open_win|
|00000c50| 64 6f 77 28 68 61 6e 64 | 6c 65 25 2c 78 30 25 2c |dow(hand|le%,x0%,|
|00000c60| 79 30 25 2c 78 31 25 2c | 79 31 25 2c 73 63 78 25 |y0%,x1%,|y1%,scx%|
|00000c70| 2c 73 63 79 25 2c 62 68 | 61 6e 64 6c 65 25 29 0d |,scy%,bh|andle%).|
|00000c80| 05 96 11 e7 68 61 6e 64 | 6c 65 25 3d 2d 31 8c e1 |....hand|le%=-1..|
|00000c90| 0d 05 a0 1f 71 25 21 30 | 3d 68 61 6e 64 6c 65 25 |....q%!0|=handle%|
|00000ca0| 3a 71 25 21 32 38 3d 62 | 68 61 6e 64 6c 65 25 0d |:q%!28=b|handle%.|
|00000cb0| 05 aa 29 71 25 21 34 3d | 78 30 25 3a 71 25 21 38 |..)q%!4=|x0%:q%!8|
|00000cc0| 3d 79 30 25 3a 71 25 21 | 31 32 3d 78 31 25 3a 71 |=y0%:q%!|12=x1%:q|
|00000cd0| 25 21 31 36 3d 79 31 25 | 0d 05 b4 19 71 25 21 32 |%!16=y1%|....q%!2|
|00000ce0| 30 3d 73 63 78 25 3a 71 | 25 21 32 34 3d 73 63 79 |0=scx%:q|%!24=scy|
|00000cf0| 25 0d 05 be 10 c8 99 20 | 4f 70 65 6e 57 2c 2c 71 |%...... |OpenW,,q|
|00000d00| 25 0d 05 c8 05 e1 0d 05 | d2 05 20 0d 05 dc 14 dd |%.......|.. .....|
|00000d10| 20 f2 67 65 74 77 28 68 | 61 6e 64 6c 65 25 29 0d | .getw(h|andle%).|
|00000d20| 05 e6 1b 21 71 25 3d 68 | 61 6e 64 6c 65 25 3a c8 |...!q%=h|andle%:.|
|00000d30| 99 20 47 65 74 57 2c 2c | 71 25 0d 05 f0 2b f2 69 |. GetW,,|q%...+.i|
|00000d40| 6e 66 6f 28 71 25 2b 34 | 29 3a 62 68 61 6e 64 6c |nfo(q%+4|):bhandl|
|00000d50| 65 25 3d 71 25 21 32 38 | 3a 66 6c 61 67 73 25 3d |e%=q%!28|:flags%=|
|00000d60| 71 25 21 33 32 0d 05 fa | 05 e1 0d 06 04 05 20 0d |q%!32...|...... .|
|00000d70| 06 0e 0f dd 20 f2 69 6e | 66 6f 28 71 25 29 0d 06 |.... .in|fo(q%)..|
|00000d80| 18 3d 78 30 25 3d 21 71 | 25 3a 79 30 25 3d 71 25 |.=x0%=!q|%:y0%=q%|
|00000d90| 21 34 3a 78 31 25 3d 71 | 25 21 38 3a 79 31 25 3d |!4:x1%=q|%!8:y1%=|
|00000da0| 71 25 21 31 32 3a 73 63 | 78 25 3d 71 25 21 31 36 |q%!12:sc|x%=q%!16|
|00000db0| 3a 73 63 79 25 3d 71 25 | 21 32 30 0d 06 22 1d 62 |:scy%=q%|!20..".b|
|00000dc0| 78 25 3d 78 30 25 2d 73 | 63 78 25 3a 62 79 25 3d |x%=x0%-s|cx%:by%=|
|00000dd0| 79 31 25 2d 73 63 79 25 | 0d 06 2c 05 e1 0d 06 36 |y1%-scy%|..,....6|
|00000de0| 05 20 0d 06 40 2a dd 20 | f2 75 70 64 61 74 65 28 |. ..@*. |.update(|
|00000df0| 68 61 6e 64 6c 65 25 2c | 75 78 30 25 2c 75 79 30 |handle%,|ux0%,uy0|
|00000e00| 25 2c 75 78 31 25 2c 75 | 79 31 25 29 0d 06 4a 39 |%,ux1%,u|y1%)..J9|
|00000e10| 21 71 25 3d 68 61 6e 64 | 6c 65 25 3a 71 25 21 34 |!q%=hand|le%:q%!4|
|00000e20| 3d 75 78 30 25 3a 71 25 | 21 38 3d 75 79 30 25 3a |=ux0%:q%|!8=uy0%:|
|00000e30| 71 25 21 31 32 3d 75 78 | 31 25 3a 71 25 21 31 36 |q%!12=ux|1%:q%!16|
|00000e40| 3d 75 79 31 25 0d 06 54 | 26 c8 99 20 55 70 64 61 |=uy1%..T|&.. Upda|
|00000e50| 74 65 57 2c 2c 71 25 20 | b8 20 6d 6f 72 65 25 3a |teW,,q% |. more%:|
|00000e60| f2 69 6e 66 6f 28 71 25 | 2b 34 29 0d 06 5e 05 e1 |.info(q%|+4)..^..|
|00000e70| 0d 06 68 05 20 0d 06 72 | 1c dd 20 f2 63 6c 6f 73 |..h. ..r|.. .clos|
|00000e80| 65 5f 77 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 25 |e_window|(handle%|
|00000e90| 29 0d 06 7c 1d 21 71 25 | 3d 68 61 6e 64 6c 65 25 |)..|.!q%|=handle%|
|00000ea0| 3a c8 99 20 43 6c 6f 73 | 65 57 2c 2c 71 25 0d 06 |:.. Clos|eW,,q%..|
|00000eb0| 86 05 e1 0d 06 90 05 20 | 0d 06 9a 0b dd 20 f2 76 |....... |..... .v|
|00000ec0| 61 72 73 0d 06 a4 1e 57 | 69 6d 70 20 20 20 20 3d |ars....W|imp    =|
|00000ed0| 20 28 31 3c 3c 31 38 29 | 20 2b 20 28 33 3c 3c 36 | (1<<18)| + (3<<6|
|00000ee0| 29 0d 06 ae 14 43 72 65 | 61 74 65 57 20 3d 20 57 |)....Cre|ateW = W|
|00000ef0| 69 6d 70 2b 31 0d 06 b8 | 14 4f 70 65 6e 57 20 20 |imp+1...|.OpenW  |
|00000f00| 20 3d 20 57 69 6d 70 2b | 35 0d 06 c2 14 43 6c 6f | = Wimp+|5....Clo|
|00000f10| 73 65 57 20 20 3d 20 57 | 69 6d 70 2b 36 0d 06 cc |seW  = W|imp+6...|
|00000f20| 14 50 6f 6c 6c 25 20 20 | 20 3d 20 57 69 6d 70 2b |.Poll%  | = Wimp+|
|00000f30| 37 0d 06 d6 14 52 65 64 | 72 61 77 57 20 3d 20 57 |7....Red|rawW = W|
|00000f40| 69 6d 70 2b 38 0d 06 e0 | 14 55 70 64 61 74 65 57 |imp+8...|.UpdateW|
|00000f50| 20 3d 20 57 69 6d 70 2b | 39 0d 06 ea 15 47 65 74 | = Wimp+|9....Get|
|00000f60| 52 25 20 20 20 3d 20 57 | 69 6d 70 2b 31 30 0d 06 |R%   = W|imp+10..|
|00000f70| f4 15 47 65 74 57 20 20 | 20 20 3d 20 57 69 6d 70 |..GetW  |  = Wimp|
|00000f80| 2b 31 31 0d 06 fe 15 47 | 65 74 50 20 20 20 20 3d |+11....G|etP    =|
|00000f90| 20 57 69 6d 70 2b 31 35 | 0d 07 08 15 44 72 61 67 | Wimp+15|....Drag|
|00000fa0| 20 20 20 20 3d 20 57 69 | 6d 70 2b 31 36 0d 07 12 |    = Wi|mp+16...|
|00000fb0| 15 43 72 4d 65 6e 75 20 | 20 3d 20 57 69 6d 70 2b |.CrMenu | = Wimp+|
|00000fc0| 32 30 0d 07 1c 15 44 63 | 4d 65 6e 75 20 20 3d 20 |20....Dc|Menu  = |
|00000fd0| 57 69 6d 70 2b 32 31 0d | 07 26 38 c8 99 20 22 4f |Wimp+21.|.&8.. "O|
|00000fe0| 53 5f 53 57 49 4e 75 6d | 62 65 72 46 72 6f 6d 53 |S_SWINum|berFromS|
|00000ff0| 74 72 69 6e 67 22 2c 2c | 22 57 69 6d 70 5f 53 65 |tring",,|"Wimp_Se|
|00001000| 74 43 6f 6c 6f 75 72 22 | 20 b8 20 43 6f 6c 25 0d |tColour"| . Col%.|
|00001010| 07 30 05 e1 0d 07 3a 05 | 20 0d 07 44 11 dd 20 f2 |.0....:.| ..D.. .|
|00001020| 67 65 74 70 6f 69 6e 74 | 65 72 0d 07 4e 0f c8 99 |getpoint|er..N...|
|00001030| 20 47 65 74 50 2c 2c 71 | 25 0d 07 58 48 6d 6f 75 | GetP,,q|%..XHmou|
|00001040| 73 65 78 25 3d 21 71 25 | 3a 6d 6f 75 73 65 79 25 |sex%=!q%|:mousey%|
|00001050| 3d 71 25 21 34 3a 62 25 | 3d 71 25 21 38 3a 68 61 |=q%!4:b%|=q%!8:ha|
|00001060| 6e 64 6c 65 25 3d 71 25 | 21 31 32 3a 69 63 6f 6e |ndle%=q%|!12:icon|
|00001070| 25 3d 71 25 21 31 36 3a | 6f 62 25 3d 71 25 21 32 |%=q%!16:|ob%=q%!2|
|00001080| 30 0d 07 62 05 e1 0d 07 | 6c 05 20 0d 07 76 0e dd |0..b....|l. ..v..|
|00001090| 20 a4 69 63 6f 6e 62 61 | 72 0d 07 80 36 21 71 25 | .iconba|r...6!q%|
|000010a0| 3d 2d 31 3a 71 25 21 34 | 3d 30 3a 71 25 21 38 3d |=-1:q%!4|=0:q%!8=|
|000010b0| 30 3a 71 25 21 31 32 3d | 36 33 3a 71 25 21 31 36 |0:q%!12=|63:q%!16|
|000010c0| 3d 36 38 3a 71 25 21 32 | 30 3d 26 32 31 30 32 0d |=68:q%!2|0=&2102.|
|000010d0| 07 8a 14 73 70 6e 61 6d | 65 24 3d 22 21 42 61 73 |...spnam|e$="!Bas|
|000010e0| 69 63 22 0d 07 94 38 de | 20 71 25 21 32 34 20 28 |ic"...8.| q%!24 (|
|000010f0| a9 73 70 6e 61 6d 65 24 | 2b 31 29 3a 24 28 71 25 |.spname$|+1):$(q%|
|00001100| 21 32 34 29 3d 73 70 6e | 61 6d 65 24 3a 71 25 21 |!24)=spn|ame$:q%!|
|00001110| 32 38 3d 73 70 72 69 74 | 65 73 25 0d 07 9e 14 71 |28=sprit|es%....q|
|00001120| 25 21 33 32 3d a9 73 70 | 6e 61 6d 65 24 2b 31 0d |%!32=.sp|name$+1.|
|00001130| 07 a8 22 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..".. "W|imp_Crea|
|00001140| 74 65 49 63 6f 6e 22 2c | 2c 71 25 20 b8 20 69 63 |teIcon",|,q% . ic|
|00001150| 25 0d 07 b2 08 3d 69 63 | 25 0d 07 bc 05 20 0d 07 |%....=ic|%.... ..|
|00001160| c6 0c dd 20 f2 63 6c 65 | 61 72 0d 07 d0 40 65 72 |... .cle|ar...@er|
|00001170| 72 6f 72 66 6c 61 67 25 | 3d a3 3a 74 65 6d 70 72 |rorflag%|=.:tempr|
|00001180| 65 67 3d 30 3a 65 6e 74 | 72 79 24 3d 22 30 22 3a |eg=0:ent|ry$="0":|
|00001190| 6f 70 65 72 61 74 6f 72 | 24 3d 22 3d 22 3a 64 72 |operator|$="=":dr|
|000011a0| 65 67 24 3d 65 6e 74 72 | 79 24 0d 07 da 05 e1 0d |eg$=entr|y$......|
|000011b0| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+