/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / basicedt / !BasicEdt / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 20 3e 3a | 31 2e 21 42 61 73 69 63 |..... >:|1.!Basic|
|00000010| 45 64 69 74 2e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |Edit.!Ru|nImage..|
|00000020| 14 1e f4 20 28 63 29 20 | 46 65 72 64 69 6e 61 6e |... (c) |Ferdinan|
|00000030| 64 20 4f 65 69 6e 63 6b | 20 27 38 39 0d 00 1e 32 |d Oeinck| '89...2|
|00000040| f4 20 28 63 29 20 4a 6f | 72 69 73 20 52 d6 6c 69 |. (c) Jo|ris R.li|
|00000050| 6e 67 20 20 20 20 20 27 | 38 39 20 20 28 61 20 76 |ng     '|89  (a v|
|00000060| 69 65 77 20 61 64 64 69 | 74 69 6f 6e 73 29 0d 00 |iew addi|tions)..|
|00000070| 28 05 3a 0d 00 32 16 56 | 65 72 73 69 6f 6e 53 74 |(.:..2.V|ersionSt|
|00000080| 72 24 3d 22 31 2e 31 30 | 22 0d 00 3c 0c 4d 43 75 |r$="1.10|"..<.MCu|
|00000090| 72 73 25 3d a3 0d 00 46 | 0d 54 61 73 6b 5f 68 25 |rs%=...F|.Task_h%|
|000000a0| 3d 30 0d 00 50 17 42 61 | 73 69 63 46 69 6c 65 54 |=0..P.Ba|sicFileT|
|000000b0| 79 70 65 25 3d 26 46 46 | 42 0d 00 5a 0f 6b 31 25 |ype%=&FF|B..Z.k1%|
|000000c0| 3d a3 3a 6b 34 25 3d a3 | 0d 00 64 12 49 4e 49 54 |=.:k4%=.|..d.INIT|
|000000d0| 49 41 4c 49 53 45 44 25 | 3d a3 0d 00 6e 13 de 20 |IALISED%|=...n.. |
|000000e0| 45 52 52 42 4c 4f 43 4b | 25 20 32 30 30 0d 00 78 |ERRBLOCK|% 200..x|
|000000f0| 0f de 20 6b 31 42 25 20 | 26 31 30 30 0d 00 82 0f |.. k1B% |&100....|
|00000100| de 20 6b 34 42 25 20 26 | 31 30 30 0d 00 8c 0f de |. k4B% &|100.....|
|00000110| 20 41 62 75 66 66 25 20 | 31 30 0d 00 96 13 6b 31 | Abuff% |10....k1|
|00000120| 42 24 3d 22 22 3a 6b 34 | 42 24 3d 22 22 0d 00 a0 |B$="":k4|B$=""...|
|00000130| 09 4f 4b 25 3d a3 0d 00 | aa 1f f4 20 73 70 61 63 |.OK%=...|... spac|
|00000140| 65 20 66 6f 72 20 61 6e | 20 65 72 72 6f 72 20 77 |e for an| error w|
|00000150| 69 6e 64 6f 77 0d 00 b4 | 2e 53 50 41 43 45 25 3d |indow...|.SPACE%=|
|00000160| 93 2d e0 20 3a f4 20 63 | 68 65 63 6b 20 65 6e 6f |.-. :. c|heck eno|
|00000170| 75 67 68 20 73 70 61 63 | 65 20 61 76 61 69 6c 61 |ugh spac|e availa|
|00000180| 62 6c 65 0d 00 be 1c 49 | 4e 49 54 49 41 4c 49 53 |ble....I|NITIALIS|
|00000190| 45 44 25 3d a4 69 6e 69 | 74 69 61 6c 69 73 65 0d |ED%=.ini|tialise.|
|000001a0| 00 c8 10 ee 20 85 20 f2 | 65 72 72 6f 72 3a e0 0d |.... . .|error:..|
|000001b0| 00 d2 2e 6d 61 73 6b 25 | 3d 31 20 3a 20 f4 20 6d |...mask%|=1 : . m|
|000001c0| 61 73 6b 20 6f 75 74 20 | 75 6e 77 61 6e 74 65 64 |ask out |unwanted|
|000001d0| 20 72 65 61 73 6f 6e 20 | 63 6f 64 65 73 0d 00 dc | reason |codes...|
|000001e0| 0e ee 20 85 20 f2 65 72 | 72 6f 72 0d 00 e6 30 f2 |.. . .er|ror...0.|
|000001f0| 64 6f 6d 65 6e 75 28 31 | 30 32 2c 22 4e 75 6c 6c |domenu(1|02,"Null|
|00000200| 31 32 33 34 35 22 2c 22 | 41 72 67 75 6d 65 6e 74 |12345","|Argument|
|00000210| 22 2c 62 75 66 66 65 72 | 32 25 29 0d 00 f0 25 21 |",buffer|2%)...%!|
|00000220| 28 62 75 66 66 65 72 32 | 25 2b 32 38 29 3d 21 28 |(buffer2|%+28)=!(|
|00000230| 62 75 66 66 65 72 32 25 | 2b 32 38 29 20 84 20 34 |buffer2%|+28) . 4|
|00000240| 0d 00 fa 2a 21 28 62 75 | 66 66 65 72 32 25 2b 33 |...*!(bu|ffer2%+3|
|00000250| 36 29 3d 21 28 62 75 66 | 66 65 72 32 25 2b 33 36 |6)=!(buf|fer2%+36|
|00000260| 29 20 84 20 28 31 3c 3c | 38 29 0d 01 04 19 21 28 |) . (1<<|8)....!(|
|00000270| 62 75 66 66 65 72 32 25 | 2b 34 30 29 3d 41 62 75 |buffer2%|+40)=Abu|
|00000280| 66 66 25 0d 01 0e 15 21 | 28 62 75 66 66 65 72 32 |ff%....!|(buffer2|
|00000290| 25 2b 34 34 29 3d 2d 31 | 0d 01 18 15 21 28 62 75 |%+44)=-1|....!(bu|
|000002a0| 66 66 65 72 32 25 2b 34 | 38 29 3d 31 30 0d 01 22 |ffer2%+4|8)=10.."|
|000002b0| 0d 21 41 62 75 66 66 25 | 3d 30 0d 01 2c 05 f5 0d |.!Abuff%|=0..,...|
|000002c0| 01 36 27 c8 99 20 50 6f | 6c 6c 25 2c 6d 61 73 6b |.6'.. Po|ll%,mask|
|000002d0| 25 2c 57 69 6e 64 6f 77 | 25 2b 68 61 6e 64 6c 65 |%,Window|%+handle|
|000002e0| 25 20 b8 20 52 25 0d 01 | 40 0b c8 8e 20 52 25 20 |% . R%..|@... R% |
|000002f0| ca 0d 01 4a 0a 20 20 c9 | 20 30 3a 0d 01 54 37 20 |...J.  .| 0:..T7 |
|00000300| 20 e7 20 6b 31 25 20 8c | 20 ff 28 22 4b 45 59 20 | . k1% .| .("KEY |
|00000310| 31 20 22 2b 6b 31 42 24 | 29 3a 6b 31 25 3d a3 20 |1 "+k1B$|):k1%=. |
|00000320| 8b 20 ff 28 22 55 4e 53 | 45 54 20 4b 65 79 24 31 |. .("UNS|ET Key$1|
|00000330| 22 29 0d 01 5e 37 20 20 | e7 20 6b 34 25 20 8c 20 |")..^7  |. k4% . |
|00000340| ff 28 22 4b 45 59 20 34 | 20 22 2b 6b 34 42 24 29 |.("KEY 4| "+k4B$)|
|00000350| 3a 6b 34 25 3d a3 20 8b | 20 ff 28 22 55 4e 53 45 |:k4%=. .| .("UNSE|
|00000360| 54 20 4b 65 79 24 34 22 | 29 0d 01 68 0d 20 20 6d |T Key$4"|)..h.  m|
|00000370| 61 73 6b 25 3d 31 0d 01 | 72 2f 20 20 c9 20 32 3a |ask%=1..|r/  . 2:|
|00000380| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|00000390| 64 6f 77 22 2c 2c 57 69 | 6e 64 6f 77 25 2b 68 61 |dow",,Wi|ndow%+ha|
|000003a0| 6e 64 6c 65 25 0d 01 7c | 1d 20 20 c9 20 36 3a f2 |ndle%..||.  . 6:.|
|000003b0| 6d 6f 75 73 65 5f 62 75 | 74 74 6f 6e 5f 63 6c 69 |mouse_bu|tton_cli|
|000003c0| 63 6b 0d 01 86 27 20 20 | c9 20 39 20 3a f2 6d 65 |ck...'  |. 9 :.me|
|000003d0| 6e 75 73 65 6c 65 63 74 | 28 57 69 6e 64 6f 77 25 |nuselect|(Window%|
|000003e0| 2b 68 61 6e 64 6c 65 25 | 29 0d 01 90 16 20 20 c9 |+handle%|)....  .|
|000003f0| 20 31 37 2c 31 38 3a f2 | 72 65 63 65 69 76 65 0d | 17,18:.|receive.|
|00000400| 01 9a 05 cb 0d 01 a4 07 | fd 20 a3 0d 01 ae 05 e0 |........|. ......|
|00000410| 0d 01 b8 05 3a 0d 01 c2 | 0e dd 20 f2 72 65 63 65 |....:...|.. .rece|
|00000420| 69 76 65 0d 01 cc 1b ea | 20 74 61 73 6b 25 2c 20 |ive.....| task%, |
|00000430| 72 65 66 25 2c 20 62 6c | 6f 63 6b 2c 46 24 0d 01 |ref%, bl|ock,F$..|
|00000440| d6 25 62 6c 6f 63 6b 3d | 57 69 6e 64 6f 77 25 20 |.%block=|Window% |
|00000450| 3a f4 20 74 65 6d 70 6f | 72 61 72 79 20 62 75 66 |:. tempo|rary buf|
|00000460| 66 65 72 0d 01 e0 1d 72 | 65 66 25 3d 21 28 57 69 |fer....r|ef%=!(Wi|
|00000470| 6e 64 6f 77 25 2b 68 61 | 6e 64 6c 65 25 2b 38 29 |ndow%+ha|ndle%+8)|
|00000480| 0d 01 ea 1e 74 61 73 6b | 25 3d 21 28 57 69 6e 64 |....task|%=!(Wind|
|00000490| 6f 77 25 2b 68 61 6e 64 | 6c 65 25 2b 34 29 0d 01 |ow%+hand|le%+4)..|
|000004a0| f4 38 e7 20 74 61 73 6b | 25 3d 54 61 73 6b 5f 68 |.8. task|%=Task_h|
|000004b0| 25 20 e1 20 3a 20 f4 20 | 69 67 6e 6f 72 65 20 6d |% . : . |ignore m|
|000004c0| 65 73 73 61 67 65 73 20 | 66 72 6f 6d 20 74 68 69 |essages |from thi|
|000004d0| 73 20 74 61 73 6b 0d 01 | fe 1d c8 8e 20 57 69 6e |s task..|.... Win|
|000004e0| 64 6f 77 25 21 28 68 61 | 6e 64 6c 65 25 2b 31 36 |dow%!(ha|ndle%+16|
|000004f0| 29 20 ca 0d 02 08 13 20 | c9 20 30 3a f2 74 65 72 |) ..... |. 0:.ter|
|00000500| 6d 69 6e 61 74 65 0d 02 | 12 16 20 c9 20 33 20 3a |minate..|.. . 3 :|
|00000510| 20 f4 20 6c 6f 61 64 20 | 66 69 6c 65 0d 02 1c 2e | . load |file....|
|00000520| 20 20 f2 6c 6f 61 64 5f | 62 61 73 69 63 28 a4 47 |  .load_|basic(.G|
|00000530| 65 74 53 74 72 28 57 69 | 6e 64 6f 77 25 2b 68 61 |etStr(Wi|ndow%+ha|
|00000540| 6e 64 6c 65 25 2b 34 34 | 29 29 0d 02 26 18 20 20 |ndle%+44|))..&.  |
|00000550| f2 44 61 74 61 4c 6f 61 | 64 41 63 6b 28 72 65 66 |.DataLoa|dAck(ref|
|00000560| 25 29 0d 02 30 19 20 c9 | 20 35 20 3a 20 f4 20 64 |%)..0. .| 5 : . d|
|00000570| 6f 75 62 6c 65 20 63 6c | 69 63 6b 0d 02 3a 24 20 |ouble cl|ick..:$ |
|00000580| 20 46 24 3d a4 47 65 74 | 53 74 72 28 57 69 6e 64 | F$=.Get|Str(Wind|
|00000590| 6f 77 25 2b 68 61 6e 64 | 6c 65 25 2b 34 34 29 0d |ow%+hand|le%+44).|
|000005a0| 02 44 1f 20 20 e7 20 a4 | 47 65 74 46 69 6c 65 49 |.D.  . .|GetFileI|
|000005b0| 6e 66 6f 28 26 46 46 42 | 2c 46 24 29 20 8c 0d 02 |nfo(&FFB|,F$) ...|
|000005c0| 4e 2f 20 20 20 f2 6c 6f | 61 64 5f 62 61 73 69 63 |N/   .lo|ad_basic|
|000005d0| 28 a4 47 65 74 53 74 72 | 28 57 69 6e 64 6f 77 25 |(.GetStr|(Window%|
|000005e0| 2b 68 61 6e 64 6c 65 25 | 2b 34 34 29 29 0d 02 58 |+handle%|+44))..X|
|000005f0| 18 20 20 f2 44 61 74 61 | 4c 6f 61 64 41 63 6b 28 |.  .Data|LoadAck(|
|00000600| 72 65 66 25 29 0d 02 62 | 07 20 20 cd 0d 02 6c 0c |ref%)..b|.  ...l.|
|00000610| c9 20 26 34 30 30 43 32 | 0d 02 6d 17 20 71 25 3d |. &400C2|..m. q%=|
|00000620| 57 69 6e 64 6f 77 25 2b | 68 61 6e 64 6c 65 25 0d |Window%+|handle%.|
|00000630| 02 76 2d 20 74 61 73 6b | 6e 61 6d 65 24 3d a4 47 |.v- task|name$=.G|
|00000640| 65 74 53 74 72 28 71 25 | 2b 32 38 29 3a 6e 65 77 |etStr(q%|+28):new|
|00000650| 74 61 73 6b 69 64 25 3d | 71 25 21 34 0d 02 80 34 |taskid%=|q%!4...4|
|00000660| 20 e7 20 74 61 73 6b 6e | 61 6d 65 24 3d 22 42 61 | . taskn|ame$="Ba|
|00000670| 73 69 63 45 64 69 74 22 | 20 80 20 6e 65 77 74 61 |sicEdit"| . newta|
|00000680| 73 6b 69 64 25 3c 3e 54 | 61 73 6b 5f 68 25 20 8c |skid%<>T|ask_h% .|
|00000690| 0d 02 8a 1a 20 c8 99 20 | 22 57 69 6d 70 5f 43 6c |.... .. |"Wimp_Cl|
|000006a0| 6f 73 65 44 6f 77 6e 22 | 3a e0 0d 02 94 06 20 cd |oseDown"|:..... .|
|000006b0| 0d 02 9e 06 20 cb 0d 02 | a8 05 e1 0d 02 b2 05 3a |.... ...|.......:|
|000006c0| 0d 02 bc 18 dd 20 f2 44 | 61 74 61 4c 6f 61 64 41 |..... .D|ataLoadA|
|000006d0| 63 6b 28 72 65 66 25 29 | 0d 02 c6 0b ea 20 62 6c |ck(ref%)|..... bl|
|000006e0| 6f 63 6b 0d 02 d0 11 62 | 6c 6f 63 6b 3d 57 69 6e |ock....b|lock=Win|
|000006f0| 64 6f 77 25 0d 02 da 10 | 62 6c 6f 63 6b 21 30 20 |dow%....|block!0 |
|00000700| 3d 20 32 30 0d 02 e4 13 | 62 6c 6f 63 6b 21 31 32 |= 20....|block!12|
|00000710| 20 3d 20 72 65 66 25 0d | 02 ee 1f 62 6c 6f 63 6b | = ref%.|...block|
|00000720| 21 31 36 20 3d 20 34 20 | 3a f4 20 44 61 74 61 4c |!16 = 4 |:. DataL|
|00000730| 6f 61 64 41 63 6b 0d 02 | f8 32 c8 99 20 53 65 6e |oadAck..|.2.. Sen|
|00000740| 64 4d 65 73 73 61 67 65 | 2c 31 37 2c 62 6c 6f 63 |dMessage|,17,bloc|
|00000750| 6b 20 3a f4 20 61 63 6b | 6e 6f 77 6c 65 64 67 65 |k :. ack|nowledge|
|00000760| 20 6d 65 73 73 61 67 65 | 0d 03 02 05 e1 0d 03 0c | message|........|
|00000770| 05 3a 0d 03 16 19 dd 20 | f2 6d 6f 75 73 65 5f 62 |.:..... |.mouse_b|
|00000780| 75 74 74 6f 6e 5f 63 6c | 69 63 6b 0d 03 20 15 ea |utton_cl|ick.. ..|
|00000790| 42 25 2c 43 25 2c 57 25 | 2c 49 25 2c 69 6e 63 25 |B%,C%,W%|,I%,inc%|
|000007a0| 0d 03 2a 23 57 25 3d 4d | 6f 75 73 65 25 21 77 69 |..*#W%=M|ouse%!wi|
|000007b0| 6e 64 6f 77 3a 49 25 3d | 4d 6f 75 73 65 25 21 69 |ndow:I%=|Mouse%!i|
|000007c0| 63 6f 6e 0d 03 34 1a 42 | 25 3d 25 31 31 31 80 4d |con..4.B|%=%111.M|
|000007d0| 6f 75 73 65 25 21 62 75 | 74 74 6f 6e 73 0d 03 3e |ouse%!bu|ttons..>|
|000007e0| 2b 4d 6f 75 73 65 5f 58 | 25 3d 4d 6f 75 73 65 25 |+Mouse_X|%=Mouse%|
|000007f0| 21 78 30 25 3a 4d 6f 75 | 73 65 5f 59 25 3d 4d 6f |!x0%:Mou|se_Y%=Mo|
|00000800| 75 73 65 25 21 79 30 25 | 0d 03 48 0e e7 20 28 42 |use%!y0%|..H.. (B|
|00000810| 25 80 32 29 20 8c 0d 03 | 52 0e 20 e7 20 57 25 3d |%.2) ...|R. . W%=|
|00000820| 2d 32 20 8c 0d 03 5c 92 | 20 20 20 e7 20 4d 43 75 |-2 ...\.|   . MCu|
|00000830| 72 73 25 20 f2 64 6f 6d | 65 6e 75 28 31 30 31 2c |rs% .dom|enu(101,|
|00000840| 22 3e 49 6e 66 6f 2c 3c | 4d 43 75 72 73 6f 72 2c |">Info,<|MCursor,|
|00000850| 3e 41 72 67 75 6d 65 6e | 74 2c 51 75 69 74 22 2c |>Argumen|t,Quit",|
|00000860| 22 42 61 73 69 63 45 64 | 69 74 22 2c 62 75 66 66 |"BasicEd|it",buff|
|00000870| 65 72 25 29 20 8b 20 f2 | 64 6f 6d 65 6e 75 28 31 |er%) . .|domenu(1|
|00000880| 30 31 2c 22 3e 49 6e 66 | 6f 2c 4d 43 75 72 73 6f |01,">Inf|o,MCurso|
|00000890| 72 2c 3e 41 72 67 75 6d | 65 6e 74 2c 51 75 69 74 |r,>Argum|ent,Quit|
|000008a0| 22 2c 22 42 61 73 69 63 | 45 64 69 74 22 2c 62 75 |","Basic|Edit",bu|
|000008b0| 66 66 65 72 25 29 0d 03 | 66 06 20 cd 0d 03 70 05 |ffer%)..|f. ...p.|
|000008c0| cd 0d 03 7a 0e e7 20 28 | 42 25 80 35 29 20 8c 0d |...z.. (|B%.5) ..|
|000008d0| 03 84 0b c8 8e 20 57 25 | 20 ca 0d 03 8e 09 c9 20 |..... W%| ...... |
|000008e0| 2d 32 3a 0d 03 98 0b 20 | 20 f2 70 72 65 70 0d 03 |-2:.... | .prep..|
|000008f0| a2 5b 20 20 ff 28 22 53 | 65 74 20 41 6c 69 61 73 |.[  .("S|et Alias|
|00000900| 24 42 45 20 46 78 31 33 | 38 2c 30 2c 36 39 7c 4d |$BE Fx13|8,0,69|M|
|00000910| 46 78 31 33 38 2c 30 2c | 36 38 7c 4d 46 78 31 33 |Fx138,0,|68|MFx13|
|00000920| 38 2c 30 2c 37 33 7c 4d | 46 78 31 33 38 2c 30 2c |8,0,73|M|Fx138,0,|
|00000930| 38 34 7c 4d 46 78 31 33 | 38 2c 30 2c 31 33 7c 4d |84|MFx13|8,0,13|M|
|00000940| 42 61 73 69 63 7c 4d 22 | 29 0d 03 ac 2e 20 20 c8 |Basic|M"|)....  .|
|00000950| 99 20 22 57 69 6d 70 5f | 53 74 61 72 74 54 61 73 |. "Wimp_|StartTas|
|00000960| 6b 22 2c 22 42 45 22 3a | f4 20 69 63 6f 6e 62 61 |k","BE":|. iconba|
|00000970| 72 20 63 6c 69 63 6b 0d | 03 b6 05 cb 0d 03 c0 05 |r click.|........|
|00000980| cd 0d 03 ca 05 e1 0d 03 | d4 05 3a 0d 03 de 20 dd |........|..:... .|
|00000990| 20 a4 47 65 74 53 74 72 | 28 73 25 29 20 3a 20 f4 | .GetStr|(s%) : .|
|000009a0| 20 67 65 74 20 73 74 72 | 69 6e 67 0d 03 e8 08 ea | get str|ing.....|
|000009b0| 20 6e 24 0d 03 f2 1a c8 | 95 3f 73 25 3a 6e 24 2b | n$.....|.?s%:n$+|
|000009c0| 3d bd 3f 73 25 3a 73 25 | 2b 3d 31 3a ce 0d 03 fc |=.?s%:s%|+=1:....|
|000009d0| 07 3d 6e 24 0d 04 06 05 | 3a 0d 04 10 1f dd 20 a4 |.=n$....|:..... .|
|000009e0| 47 65 74 46 69 6c 65 49 | 6e 66 6f 28 46 69 6c 65 |GetFileI|nfo(File|
|000009f0| 54 25 2c f8 20 46 24 29 | 0d 04 1a 2c ea 54 25 2c |T%,. F$)|...,.T%,|
|00000a00| 4c 25 2c 41 25 2c 4d 24 | 2c 74 69 6d 65 25 2c 46 |L%,A%,M$|,time%,F|
|00000a10| 69 6c 65 54 79 70 65 24 | 2c 72 32 2c 72 33 2c 73 |ileType$|,r2,r3,s|
|00000a20| 24 2c 70 25 0d 04 24 39 | e7 20 46 24 3c 3e 22 22 |$,p%..$9|. F$<>""|
|00000a30| 20 c8 99 20 22 58 4f 53 | 5f 46 69 6c 65 22 2c 35 | .. "XOS|_File",5|
|00000a40| 2c 46 24 20 b8 20 54 25 | 2c 2c 6c 61 64 64 72 25 |,F$ . T%|,,laddr%|
|00000a50| 2c 65 61 64 64 72 25 2c | 4c 25 2c 41 25 0d 04 2e |,eaddr%,|L%,A%...|
|00000a60| 20 e7 20 28 28 6c 61 64 | 64 72 25 3e 3e 32 30 29 | . ((lad|dr%>>20)|
|00000a70| 80 26 46 46 46 29 3d 26 | 46 46 46 20 8c 0d 04 38 |.&FFF)=&|FFF ...8|
|00000a80| 26 e7 20 28 6c 61 64 64 | 72 25 3e 3e 38 20 80 20 |&. (ladd|r%>>8 . |
|00000a90| 26 46 46 46 29 20 3d 20 | 46 69 6c 65 54 25 20 8c |&FFF) = |FileT% .|
|00000aa0| 20 3d b9 0d 04 42 05 cd | 0d 04 4c 06 3d a3 0d 04 | =...B..|..L.=...|
|00000ab0| 56 05 3a 0d 04 60 15 dd | 20 f2 6c 6f 61 64 5f 62 |V.:..`..| .load_b|
|00000ac0| 61 73 69 63 28 46 24 29 | 0d 04 6a 16 ea 20 46 25 |asic(F$)|..j.. F%|
|00000ad0| 2c 4d 24 2c 4e 25 2c 41 | 72 67 24 2c 61 24 0d 04 |,M$,N%,A|rg$,a$..|
|00000ae0| 74 07 ea 20 85 0d 04 7e | 35 e7 20 a4 47 65 74 46 |t.. ...~|5. .GetF|
|00000af0| 69 6c 65 49 6e 66 6f 28 | 26 46 46 42 2c 46 24 29 |ileInfo(|&FFB,F$)|
|00000b00| 20 84 20 a4 47 65 74 46 | 69 6c 65 49 6e 66 6f 28 | . .GetF|ileInfo(|
|00000b10| 26 46 46 46 2c 46 24 29 | 20 8c 0d 04 88 0b 20 20 |&FFF,F$)| .....  |
|00000b20| f2 70 72 65 70 0d 04 92 | 20 20 20 41 72 67 24 3d |.prep...|   Arg$=|
|00000b30| a4 47 65 74 53 74 72 28 | 41 62 75 66 66 25 29 3a |.GetStr(|Abuff%):|
|00000b40| 61 24 3d 22 22 0d 04 9c | 26 20 20 c8 99 20 22 4f |a$=""...|&  .. "O|
|00000b50| 53 5f 42 79 74 65 22 2c | 31 32 39 2c 2d 31 2c 26 |S_Byte",|129,-1,&|
|00000b60| 46 46 20 b8 20 2c 72 31 | 2c 72 32 0d 04 a6 41 20 |FF . ,r1|,r2...A |
|00000b70| 20 e7 20 72 31 3d 26 46 | 46 20 80 20 72 32 3d 26 | . r1=&F|F . r2=&|
|00000b80| 46 46 20 8c 20 c8 99 20 | 22 57 69 6d 70 5f 53 74 |FF . .. |"Wimp_St|
|00000b90| 61 72 74 54 61 73 6b 22 | 2c 22 42 61 73 69 63 20 |artTask"|,"Basic |
|00000ba0| 2d 71 75 69 74 20 22 2b | 46 24 3a e1 0d 04 b0 12 |-quit "+|F$:.....|
|00000bb0| 20 20 e7 20 41 72 67 24 | 3c 3e 22 22 20 8c 0d 04 |  . Arg$|<>"" ...|
|00000bc0| ba 0c 20 20 61 24 3d 22 | 20 22 0d 04 c4 3d 20 20 |..  a$="| "...=  |
|00000bd0| e3 20 4e 25 3d 31 20 b8 | 20 a9 28 41 72 67 24 29 |. N%=1 .| .(Arg$)|
|00000be0| 3a 61 24 2b 3d 22 46 78 | 20 31 33 38 2c 30 2c 22 |:a$+="Fx| 138,0,"|
|00000bf0| 2b c3 28 97 28 c1 41 72 | 67 24 2c 4e 25 2c 31 29 |+.(.(.Ar|g$,N%,1)|
|00000c00| 29 29 2b 22 7c 4d 22 0d | 04 ce 07 20 20 ed 0d 04 |))+"|M".|...  ...|
|00000c10| d8 07 20 20 cd 0d 04 e2 | 6e 20 20 ff 28 22 53 65 |..  ....|n  .("Se|
|00000c20| 74 20 41 6c 69 61 73 24 | 42 45 20 46 78 31 33 38 |t Alias$|BE Fx138|
|00000c30| 2c 30 2c 36 39 7c 4d 46 | 78 31 33 38 2c 30 2c 36 |,0,69|MF|x138,0,6|
|00000c40| 38 7c 4d 46 78 31 33 38 | 2c 30 2c 37 33 7c 4d 46 |8|MFx138|,0,73|MF|
|00000c50| 78 31 33 38 2c 30 2c 38 | 34 7c 4d 22 2b 61 24 2b |x138,0,8|4|M"+a$+|
|00000c60| 22 46 78 31 33 38 2c 30 | 2c 31 33 7c 4d 42 61 73 |"Fx138,0|,13|MBas|
|00000c70| 69 63 20 2d 6c 6f 61 64 | 20 22 2b 46 24 2b 22 7c |ic -load| "+F$+"||
|00000c80| 4d 22 29 0d 04 ec 04 0d | 04 f6 30 20 c8 99 20 22 |M").....|..0 .. "|
|00000c90| 57 69 6d 70 5f 53 74 61 | 72 74 54 61 73 6b 22 2c |Wimp_Sta|rtTask",|
|00000ca0| 22 42 45 22 3a e1 20 3a | f4 20 69 63 6f 6e 62 61 |"BE":. :|. iconba|
|00000cb0| 72 20 63 6c 69 63 6b 0d | 05 00 05 cc 0d 05 0a 2c |r click.|.......,|
|00000cc0| 46 25 3d a4 43 68 65 63 | 6b 4f 4b 28 46 24 2b 22 |F%=.Chec|kOK(F$+"|
|00000cd0| 20 69 73 20 6e 6f 74 20 | 61 20 42 41 53 49 43 20 | is not |a BASIC |
|00000ce0| 66 69 6c 65 22 2c 31 29 | 0d 05 14 05 cd 0d 05 1e |file",1)|........|
|00000cf0| 05 e1 0d 05 28 05 3a 0d | 05 32 11 dd 20 a4 69 6e |....(.:.|.2.. .in|
|00000d00| 69 74 69 61 6c 69 73 65 | 0d 05 3c 12 f2 45 6e 75 |itialise|..<..Enu|
|00000d10| 6d 65 72 61 74 65 53 57 | 49 73 0d 05 46 10 f2 73 |merateSW|Is..F..s|
|00000d20| 65 74 5f 63 6f 6c 6f 75 | 72 73 0d 05 50 17 f2 69 |et_colou|rs..P..i|
|00000d30| 6e 69 74 69 61 6c 69 73 | 65 5f 73 70 72 69 74 65 |nitialis|e_sprite|
|00000d40| 73 0d 05 5a 14 f2 69 6e | 69 74 69 61 6c 69 73 65 |s..Z..in|itialise|
|00000d50| 5f 77 69 6d 70 0d 05 64 | 06 3d b9 0d 05 6e 05 3a |_wimp..d|.=...n.:|
|00000d60| 0d 05 78 14 dd 20 f2 45 | 6e 75 6d 65 72 61 74 65 |..x.. .E|numerate|
|00000d70| 53 57 49 73 0d 05 82 1a | ea 57 25 3a 57 25 20 20 |SWIs....|.W%:W%  |
|00000d80| 20 20 20 20 20 20 3d 20 | 26 34 30 30 43 30 0d 05 |      = |&400C0..|
|00000d90| 8c 1d 49 6e 69 74 69 61 | 6c 69 73 65 25 20 20 20 |..Initia|lise%   |
|00000da0| 20 20 20 20 20 3d 20 57 | 25 2b 30 0d 05 96 1d 43 |     = W|%+0....C|
|00000db0| 72 65 61 74 65 49 63 6f | 6e 25 20 20 20 20 20 20 |reateIco|n%      |
|00000dc0| 20 20 3d 20 57 25 2b 32 | 0d 05 a0 1d 4f 70 65 6e |  = W%+2|....Open|
|00000dd0| 57 69 6e 64 6f 77 25 20 | 20 20 20 20 20 20 20 3d |Window% |       =|
|00000de0| 20 57 25 2b 35 0d 05 aa | 1d 50 6f 6c 6c 25 20 20 | W%+5...|.Poll%  |
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3d 20 57 25 |        |    = W%|
|00000e00| 2b 37 0d 05 b4 1d 43 6c | 6f 73 65 44 6f 77 6e 20 |+7....Cl|oseDown |
|00000e10| 20 20 20 20 20 20 20 20 | 3d 20 57 25 2b 32 39 0d |        |= W%+29.|
|00000e20| 05 be 42 c8 99 20 22 4f | 53 5f 53 57 49 4e 75 6d |..B.. "O|S_SWINum|
|00000e30| 62 65 72 46 72 6f 6d 53 | 74 72 69 6e 67 22 2c 30 |berFromS|tring",0|
|00000e40| 2c 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 |,"Wimp_S|endMessa|
|00000e50| 67 65 22 20 b8 20 53 65 | 6e 64 4d 65 73 73 61 67 |ge" . Se|ndMessag|
|00000e60| 65 0d 05 c8 0e 4f 53 5f | 46 69 6c 65 3d 26 38 0d |e....OS_|File=&8.|
|00000e70| 05 d2 05 e1 0d 05 dc 05 | 3a 0d 05 e6 12 dd 20 f2 |........|:..... .|
|00000e80| 73 65 74 5f 63 6f 6c 6f | 75 72 73 0d 05 f0 07 ea |set_colo|urs.....|
|00000e90| 43 25 0d 05 fa 31 f4 20 | 63 6f 6c 6f 75 72 73 20 |C%...1. |colours |
|00000ea0| 64 65 66 69 6e 65 64 20 | 69 6e 20 6d 65 6d 6f 20 |defined |in memo |
|00000eb0| 66 72 6f 6d 20 57 53 74 | 6f 79 65 20 32 31 2f 37 |from WSt|oye 21/7|
|00000ec0| 2f 38 38 0d 06 04 15 43 | 5f 4d 65 6e 75 54 69 74 |/88....C|_MenuTit|
|00000ed0| 6c 65 66 67 20 3d 20 37 | 0d 06 0e 15 43 5f 4d 65 |lefg = 7|....C_Me|
|00000ee0| 6e 75 54 69 74 6c 65 62 | 67 20 3d 20 32 0d 06 18 |nuTitleb|g = 2...|
|00000ef0| 10 43 5f 4d 65 6e 75 66 | 67 20 3d 20 37 0d 06 22 |.C_Menuf|g = 7.."|
|00000f00| 10 43 5f 4d 65 6e 75 62 | 67 20 3d 20 30 0d 06 2c |.C_Menub|g = 0..,|
|00000f10| 14 43 5f 4d 65 6e 75 49 | 74 65 6d 66 67 20 3d 20 |.C_MenuI|temfg = |
|00000f20| 37 0d 06 36 14 43 5f 4d | 65 6e 75 49 74 65 6d 62 |7..6.C_M|enuItemb|
|00000f30| 67 20 3d 20 30 0d 06 40 | 05 e1 0d 06 4a 05 3a 0d |g = 0..@|....J.:.|
|00000f40| 06 54 19 dd 20 f2 69 6e | 69 74 69 61 6c 69 73 65 |.T.. .in|itialise|
|00000f50| 5f 73 70 72 69 74 65 73 | 0d 06 5e 66 c8 99 20 22 |_sprites|..^f.. "|
|00000f60| 57 69 6d 70 5f 53 70 72 | 69 74 65 4f 70 22 2c 20 |Wimp_Spr|iteOp", |
|00000f70| 31 31 2c 2c 22 3c 42 61 | 73 69 63 45 64 69 74 24 |11,,"<Ba|sicEdit$|
|00000f80| 44 69 72 3e 2e 21 53 70 | 72 69 74 65 73 22 20 3a |Dir>.!Sp|rites" :|
|00000f90| f4 20 6d 65 72 67 65 20 | 66 69 6c 65 20 74 79 70 |. merge |file typ|
|00000fa0| 65 20 73 70 72 69 74 65 | 20 69 6e 74 6f 20 77 69 |e sprite| into wi|
|00000fb0| 6d 70 20 73 70 72 69 74 | 65 20 61 72 65 61 0d 06 |mp sprit|e area..|
|00000fc0| 68 05 e1 0d 06 72 05 3a | 0d 06 7c 16 dd 20 f2 69 |h....r.:|..|.. .i|
|00000fd0| 6e 69 74 69 61 6c 69 73 | 65 5f 77 69 6d 70 0d 06 |nitialis|e_wimp..|
|00000fe0| 86 1b f2 65 6e 75 6d 65 | 72 61 74 65 5f 77 69 6d |...enume|rate_wim|
|00000ff0| 70 5f 6f 66 66 73 65 74 | 73 0d 06 90 36 74 61 73 |p_offset|s...6tas|
|00001000| 6b 25 3d 97 28 22 54 22 | 29 2b 28 97 28 22 41 22 |k%=.("T"|)+(.("A"|
|00001010| 29 3c 3c 38 29 2b 28 97 | 28 22 53 22 29 3c 3c 31 |)<<8)+(.|("S")<<1|
|00001020| 36 29 2b 28 97 28 22 4b | 22 29 3c 3c 32 34 29 0d |6)+(.("K|")<<24).|
|00001030| 06 9a 36 c8 99 20 49 6e | 69 74 69 61 6c 69 73 65 |..6.. In|itialise|
|00001040| 25 2c 20 32 30 30 2c 20 | 74 61 73 6b 25 2c 20 22 |%, 200, |task%, "|
|00001050| 42 61 73 69 63 45 64 69 | 74 22 20 b8 20 2c 54 61 |BasicEdi|t" . ,Ta|
|00001060| 73 6b 5f 68 25 0d 06 a4 | 1d 4d 6f 75 73 65 5f 58 |sk_h%...|.Mouse_X|
|00001070| 25 3d 36 34 30 3a 4d 6f | 75 73 65 5f 59 25 3d 35 |%=640:Mo|use_Y%=5|
|00001080| 36 30 0d 06 ae 04 0d 06 | b8 18 de 20 71 25 20 26 |60......|... q% &|
|00001090| 33 30 30 2c 74 65 6d 70 | 25 20 26 33 30 30 0d 06 |300,temp|% &300..|
|000010a0| c2 04 0d 06 cc 37 c8 99 | 20 22 57 69 6d 70 5f 4f |.....7..| "Wimp_O|
|000010b0| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 22 3c |penTempl|ate",,"<|
|000010c0| 42 61 73 69 63 45 64 69 | 74 24 44 69 72 3e 2e 54 |BasicEdi|t$Dir>.T|
|000010d0| 65 6d 70 6c 61 74 65 73 | 22 0d 06 d6 34 ee 20 85 |emplates|"...4. .|
|000010e0| 20 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 | .. "Wim|p_CloseT|
|000010f0| 65 6d 70 6c 61 74 65 22 | 3a eb 30 3a f6 3a f1 22 |emplate"|:.0:.:."|
|00001100| 20 22 3b 9e 3a e0 3a f2 | 65 72 72 6f 72 0d 06 e0 | ";.:.:.|error...|
|00001110| 31 f4 20 4f 4e 20 45 52 | 52 4f 52 20 53 59 53 20 |1. ON ER|ROR SYS |
|00001120| 22 57 69 6d 70 5f 43 6c | 6f 73 65 54 65 6d 70 6c |"Wimp_Cl|oseTempl|
|00001130| 61 74 65 22 3a 50 52 4f | 43 65 72 72 6f 72 0d 06 |ate":PRO|Cerror..|
|00001140| ea 41 c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.A.. "Wi|mp_LoadT|
|00001150| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 25 2c 74 65 6d |emplate"|,,q%,tem|
|00001160| 70 25 2b 31 30 30 2c 74 | 65 6d 70 25 2b 33 2a 26 |p%+100,t|emp%+3*&|
|00001170| 31 30 30 2c 2d 31 2c 22 | 49 6e 66 6f 22 2c 30 0d |100,-1,"|Info",0.|
|00001180| 06 f4 26 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..&.. "W|imp_Crea|
|00001190| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 b8 20 |teWindow|",,q% . |
|000011a0| 69 6e 66 6f 25 0d 06 fe | 1b c8 99 20 22 57 69 6d |info%...|... "Wim|
|000011b0| 70 5f 43 6c 6f 73 65 54 | 65 6d 70 6c 61 74 65 22 |p_CloseT|emplate"|
|000011c0| 0d 07 08 09 ee 20 85 20 | 87 0d 07 12 04 0d 07 1c |..... . |........|
|000011d0| 14 de 20 53 70 72 69 74 | 65 4e 61 6d 65 25 20 31 |.. Sprit|eName% 1|
|000011e0| 34 0d 07 26 1d 24 53 70 | 72 69 74 65 4e 61 6d 65 |4..&.$Sp|riteName|
|000011f0| 25 3d 22 21 42 61 73 69 | 63 45 64 69 74 22 0d 07 |%="!Basi|cEdit"..|
|00001200| 30 20 21 49 63 6f 6e 25 | 3d 2d 31 3a 20 f4 20 69 |0 !Icon%|=-1: . i|
|00001210| 63 6f 6e 62 61 72 20 75 | 74 69 6c 69 74 79 0d 07 |conbar u|tility..|
|00001220| 3a 0d 49 63 6f 6e 25 21 | 34 3d 30 0d 07 44 0d 49 |:.Icon%!|4=0..D.I|
|00001230| 63 6f 6e 25 21 38 3d 30 | 0d 07 4e 0f 49 63 6f 6e |con%!8=0|..N.Icon|
|00001240| 25 21 31 32 3d 36 34 0d | 07 58 0f 49 63 6f 6e 25 |%!12=64.|.X.Icon%|
|00001250| 21 31 36 3d 36 38 0d 07 | 62 36 49 63 6f 6e 25 21 |!16=68..|b6Icon%!|
|00001260| 32 30 3d 28 26 33 31 31 | 41 20 84 20 28 30 3c 3c |20=(&311|A . (0<<|
|00001270| 32 34 29 20 84 20 28 37 | 3c 3c 32 38 29 29 20 3a |24) . (7|<<28)) :|
|00001280| f4 20 69 6e 64 69 72 65 | 63 74 65 64 0d 07 6c 2b |. indire|cted..l+|
|00001290| 49 63 6f 6e 25 21 32 34 | 3d 53 70 72 69 74 65 4e |Icon%!24|=SpriteN|
|000012a0| 61 6d 65 25 20 3a f4 20 | 69 6e 64 69 72 65 63 74 |ame% :. |indirect|
|000012b0| 65 64 20 6e 61 6d 65 0d | 07 76 28 49 63 6f 6e 25 |ed name.|.v(Icon%|
|000012c0| 21 32 38 3d 31 20 3a f4 | 20 75 73 65 20 63 6f 6d |!28=1 :.| use com|
|000012d0| 6d 6f 6e 20 73 70 72 69 | 74 65 20 61 72 65 61 0d |mon spri|te area.|
|000012e0| 07 80 1e 49 63 6f 6e 25 | 21 33 32 3d 31 32 20 3a |...Icon%|!32=12 :|
|000012f0| f4 20 6e 61 6d 65 20 6c | 65 6e 67 74 68 0d 07 8a |. name l|ength...|
|00001300| 27 c8 99 20 43 72 65 61 | 74 65 49 63 6f 6e 25 2c |'.. Crea|teIcon%,|
|00001310| 20 2c 49 63 6f 6e 25 20 | b8 20 4d 61 65 73 74 72 | ,Icon% |. Maestr|
|00001320| 6f 5f 68 25 0d 07 94 05 | e1 0d 07 9e 05 3a 0d 07 |o_h%....|.....:..|
|00001330| a8 1d dd 20 f2 65 6e 75 | 6d 65 72 61 74 65 5f 77 |... .enu|merate_w|
|00001340| 69 6d 70 5f 6f 66 66 73 | 65 74 73 0d 07 b2 0e de |imp_offs|ets.....|
|00001350| 20 49 63 6f 6e 25 20 36 | 34 0d 07 bc 15 de 20 57 | Icon% 6|4..... W|
|00001360| 69 6d 70 5f 73 70 61 63 | 65 20 26 31 30 30 0d 07 |imp_spac|e &100..|
|00001370| c6 12 de 20 62 75 66 66 | 65 72 25 20 26 32 30 30 |... buff|er% &200|
|00001380| 0d 07 d0 13 de 20 62 75 | 66 66 65 72 32 25 20 26 |..... bu|ffer2% &|
|00001390| 31 30 30 0d 07 da 18 57 | 69 6e 64 6f 77 25 3d 57 |100....W|indow%=W|
|000013a0| 69 6d 70 5f 73 70 61 63 | 65 2b 34 0d 07 e4 0e 68 |imp_spac|e+4....h|
|000013b0| 61 6e 64 6c 65 25 3d 2d | 34 0d 07 ee 15 4d 6f 75 |andle%=-|4....Mou|
|000013c0| 73 65 25 3d 57 69 6d 70 | 5f 73 70 61 63 65 0d 07 |se%=Wimp|_space..|
|000013d0| f8 0d 62 75 74 74 6f 6e | 73 3d 38 0d 08 02 0d 77 |..button|s=8....w|
|000013e0| 69 6e 64 6f 77 3d 31 32 | 0d 08 0c 0b 69 63 6f 6e |indow=12|....icon|
|000013f0| 3d 31 36 0d 08 16 1c 78 | 30 25 3d 30 3a 79 30 25 |=16....x|0%=0:y0%|
|00001400| 3d 34 3a 78 31 25 3d 38 | 3a 79 31 25 3d 31 32 0d |=4:x1%=8|:y1%=12.|
|00001410| 08 20 05 e1 0d 08 2a 05 | 3a 0d 08 34 10 dd 20 f2 |. ....*.|:..4.. .|
|00001420| 74 65 72 6d 69 6e 61 74 | 65 0d 08 3e 11 e7 20 54 |terminat|e..>.. T|
|00001430| 61 73 6b 5f 68 25 3e 30 | 20 8c 0d 08 48 25 20 ee |ask_h%>0| ...H% .|
|00001440| 20 85 20 c8 99 20 43 6c | 6f 73 65 44 6f 77 6e 2c | . .. Cl|oseDown,|
|00001450| 20 74 61 73 6b 25 2c 20 | 54 61 73 6b 5f 68 25 0d | task%, |Task_h%.|
|00001460| 08 52 05 cc 0d 08 5c 0a | 20 ee 20 85 20 e0 0d 08 |.R....\.| . . ...|
|00001470| 66 05 cd 0d 08 70 05 e0 | 0d 08 7a 05 e1 0d 08 84 |f....p..|..z.....|
|00001480| 05 3a 0d 08 8e 0c dd 20 | f2 65 72 72 6f 72 0d 08 |.:..... |.error..|
|00001490| 98 08 ea 20 65 25 0d 08 | a2 07 ea 20 85 0d 08 ac |... e%..|... ....|
|000014a0| 17 ee 20 85 20 ea 20 f2 | 74 65 72 6d 69 6e 61 74 |.. . . .|terminat|
|000014b0| 65 3a 20 fa 0d 08 b6 18 | c8 99 20 22 48 6f 75 72 |e: .....|.. "Hour|
|000014c0| 67 6c 61 73 73 5f 53 6d | 61 73 68 22 0d 08 c0 2a |glass_Sm|ash"...*|
|000014d0| 45 24 3d f6 24 2b 22 20 | 61 74 20 6c 69 6e 65 20 |E$=.$+" |at line |
|000014e0| 22 2b c3 9e 2b 22 2e 20 | 45 78 69 74 20 70 72 6f |"+..+". |Exit pro|
|000014f0| 67 72 61 6d 3f 22 0d 08 | ca 14 e7 20 49 4e 49 54 |gram?"..|... INIT|
|00001500| 49 41 4c 49 53 45 44 25 | 20 8c 0d 08 d4 21 20 20 |IALISED%| ....!  |
|00001510| e7 20 a4 43 68 65 63 6b | 4f 4b 28 45 24 2c 31 29 |. .Check|OK(E$,1)|
|00001520| 20 f2 74 65 72 6d 69 6e | 61 74 65 0d 08 de 07 20 | .termin|ate.... |
|00001530| 20 cd 0d 08 e8 05 e1 0d | 08 f2 05 3a 0d 08 fc 1a | .......|...:....|
|00001540| dd 20 a4 43 68 65 63 6b | 4f 4b 28 45 24 2c 20 62 |. .Check|OK(E$, b|
|00001550| 6f 78 65 73 25 29 0d 09 | 06 08 ea 20 45 25 0d 09 |oxes%)..|... E%..|
|00001560| 10 10 21 45 52 52 42 4c | 4f 43 4b 25 3d 30 0d 09 |..!ERRBL|OCK%=0..|
|00001570| 1a 1e 24 28 45 52 52 42 | 4c 4f 43 4b 25 2b 34 29 |..$(ERRB|LOCK%+4)|
|00001580| 3d c0 45 24 2c 31 30 30 | 29 2b bd 30 0d 09 24 3f |=.E$,100|)+.0..$?|
|00001590| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|000015a0| 72 72 6f 72 22 2c 20 45 | 52 52 42 4c 4f 43 4b 25 |rror", E|RRBLOCK%|
|000015b0| 2c 20 62 6f 78 65 73 25 | 2c 20 22 42 61 73 69 63 |, boxes%|, "Basic|
|000015c0| 45 64 69 74 22 20 b8 20 | 2c 45 25 0d 09 2e 28 3d |Edit" . |,E%...(=|
|000015d0| 45 25 3d 31 20 3a 20 20 | f4 20 72 65 74 75 72 6e |E%=1 :  |. return|
|000015e0| 20 54 52 55 45 20 69 66 | 20 4f 4b 20 70 72 65 73 | TRUE if| OK pres|
|000015f0| 73 65 64 0d 09 38 05 3a | 0d 09 42 2e dd 20 f2 64 |sed..8.:|..B.. .d|
|00001600| 6f 6d 65 6e 75 28 68 61 | 6e 64 6c 65 25 2c 6d 65 |omenu(ha|ndle%,me|
|00001610| 6e 75 24 2c 6d 65 6e 75 | 74 69 74 6c 65 24 2c 4d |nu$,menu|title$,M|
|00001620| 62 75 66 66 25 29 0d 09 | 4c 0b ea 20 43 25 2c 48 |buff%)..|L.. C%,H|
|00001630| 25 0d 09 56 0e 43 25 3d | 30 3a 48 25 3d 34 34 0d |%..V.C%=|0:H%=44.|
|00001640| 09 60 17 6d 65 6e 75 68 | 61 6e 64 6c 65 25 3d 68 |.`.menuh|andle%=h|
|00001650| 61 6e 64 6c 65 25 0d 09 | 6a 13 6d 65 6e 75 70 74 |andle%..|j.menupt|
|00001660| 72 25 3d 4d 62 75 66 66 | 25 0d 09 74 08 69 25 3d |r%=Mbuff|%..t.i%=|
|00001670| 30 0d 09 7e 18 24 6d 65 | 6e 75 70 74 72 25 3d 6d |0..~.$me|nuptr%=m|
|00001680| 65 6e 75 74 69 74 6c 65 | 24 0d 09 88 37 6d 65 6e |enutitle|$...7men|
|00001690| 75 70 74 72 25 3f 31 32 | 3d 43 5f 4d 65 6e 75 54 |uptr%?12|=C_MenuT|
|000016a0| 69 74 6c 65 66 67 3a 6d | 65 6e 75 70 74 72 25 3f |itlefg:m|enuptr%?|
|000016b0| 31 33 3d 43 5f 4d 65 6e | 75 54 69 74 6c 65 62 67 |13=C_Men|uTitlebg|
|000016c0| 0d 09 92 2d 6d 65 6e 75 | 70 74 72 25 3f 31 34 3d |...-menu|ptr%?14=|
|000016d0| 43 5f 4d 65 6e 75 66 67 | 3a 6d 65 6e 75 70 74 72 |C_Menufg|:menuptr|
|000016e0| 25 3f 31 35 3d 43 5f 4d | 65 6e 75 62 67 0d 09 9c |%?15=C_M|enubg...|
|000016f0| 33 6d 65 6e 75 70 74 72 | 25 21 31 36 3d 31 39 36 |3menuptr|%!16=196|
|00001700| 2d 34 38 3a 6d 65 6e 75 | 70 74 72 25 21 32 30 3d |-48:menu|ptr%!20=|
|00001710| 48 25 3a 6d 65 6e 75 70 | 74 72 25 21 32 34 3d 30 |H%:menup|tr%!24=0|
|00001720| 0d 09 a6 10 6d 65 6e 75 | 70 74 72 25 2b 3d 32 38 |....menu|ptr%+=28|
|00001730| 0d 09 b0 37 f5 20 69 74 | 65 6d 24 3d a4 70 61 72 |...7. it|em$=.par|
|00001740| 28 22 2c 22 29 3a f2 6d | 65 6e 75 69 74 65 6d 28 |(","):.m|enuitem(|
|00001750| 69 74 65 6d 24 29 3a 43 | 25 2b 3d 31 3a fd 20 69 |item$):C|%+=1:. i|
|00001760| 74 65 6d 24 3d 22 22 0d | 09 ba 23 6d 65 6e 75 70 |tem$="".|..#menup|
|00001770| 74 72 25 21 2d 32 34 3d | 28 6d 65 6e 75 70 74 72 |tr%!-24=|(menuptr|
|00001780| 25 21 2d 32 34 29 84 26 | 38 30 0d 09 c4 4b e7 20 |%!-24).&|80...K. |
|00001790| 68 61 6e 64 6c 65 25 3d | 31 30 31 20 8c 20 c8 99 |handle%=|101 . ..|
|000017a0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|000017b0| 75 22 2c 2c 4d 62 75 66 | 66 25 2c 4d 6f 75 73 65 |u",,Mbuf|f%,Mouse|
|000017c0| 5f 58 25 2d 36 34 2c 39 | 36 2b 28 28 43 25 2d 31 |_X%-64,9|6+((C%-1|
|000017d0| 29 2a 48 25 29 0d 09 ce | 05 e1 0d 09 d8 05 3a 0d |)*H%)...|......:.|
|000017e0| 09 e2 16 dd 20 f2 6d 65 | 6e 75 69 74 65 6d 28 74 |.... .me|nuitem(t|
|000017f0| 65 78 74 24 29 0d 09 ec | 10 e7 20 74 65 78 74 24 |ext$)...|.. text$|
|00001800| 3d 22 22 20 e1 0d 09 f6 | 0f 21 6d 65 6e 75 70 74 |="" ....|.!menupt|
|00001810| 72 25 3d 30 0d 0a 00 11 | 6d 65 6e 75 70 74 72 25 |r%=0....|menuptr%|
|00001820| 21 34 3d 2d 31 0d 0a 0a | 37 e7 20 c0 74 65 78 74 |!4=-1...|7. .text|
|00001830| 24 2c 32 29 3d 22 3e 49 | 22 20 6d 65 6e 75 70 74 |$,2)=">I|" menupt|
|00001840| 72 25 21 34 3d 69 6e 66 | 6f 25 20 3a 20 74 65 78 |r%!4=inf|o% : tex|
|00001850| 74 24 3d c1 74 65 78 74 | 24 2c 32 29 0d 0a 14 3a |t$=.text|$,2)...:|
|00001860| e7 20 c0 74 65 78 74 24 | 2c 32 29 3d 22 3e 41 22 |. .text$|,2)=">A"|
|00001870| 20 6d 65 6e 75 70 74 72 | 25 21 34 3d 62 75 66 66 | menuptr|%!4=buff|
|00001880| 65 72 32 25 20 3a 20 74 | 65 78 74 24 3d c1 74 65 |er2% : t|ext$=.te|
|00001890| 78 74 24 2c 32 29 0d 0a | 1e 3d e7 20 c0 74 65 78 |xt$,2)..|.=. .tex|
|000018a0| 74 24 2c 31 29 3d 22 3c | 22 20 21 6d 65 6e 75 70 |t$,1)="<|" !menup|
|000018b0| 74 72 25 3d 21 6d 65 6e | 75 70 74 72 25 20 84 20 |tr%=!men|uptr% . |
|000018c0| 31 20 3a 20 74 65 78 74 | 24 3d c1 74 65 78 74 24 |1 : text|$=.text$|
|000018d0| 2c 32 29 0d 0a 28 18 6d | 65 6e 75 70 74 72 25 21 |,2)..(.m|enuptr%!|
|000018e0| 38 3d 26 30 37 30 30 30 | 30 32 31 0d 0a 32 18 24 |8=&07000|021..2.$|
|000018f0| 28 6d 65 6e 75 70 74 72 | 25 2b 31 32 29 3d 74 65 |(menuptr|%+12)=te|
|00001900| 78 74 24 0d 0a 3c 10 6d | 65 6e 75 70 74 72 25 2b |xt$..<.m|enuptr%+|
|00001910| 3d 32 34 0d 0a 46 05 e1 | 0d 0a 50 05 3a 0d 0a 5a |=24..F..|..P.:..Z|
|00001920| 10 dd 20 a4 70 61 72 28 | 73 65 70 24 29 0d 0a 64 |.. .par(|sep$)..d|
|00001930| 25 69 31 25 3d 69 25 2b | 31 3a 69 25 3d a7 6d 65 |%i1%=i%+|1:i%=.me|
|00001940| 6e 75 24 2b 73 65 70 24 | 2c 73 65 70 24 2c 69 31 |nu$+sep$|,sep$,i1|
|00001950| 25 29 0d 0a 6e 17 3d c1 | 6d 65 6e 75 24 2c 69 31 |%)..n.=.|menu$,i1|
|00001960| 25 2c 69 25 2d 69 31 25 | 29 0d 0a 78 05 3a 0d 0a |%,i%-i1%|)..x.:..|
|00001970| 82 19 dd 20 f2 6d 65 6e | 75 73 65 6c 65 63 74 28 |... .men|uselect(|
|00001980| 6d 65 6e 75 73 25 29 0d | 0a 8c 38 c8 99 20 22 57 |menus%).|..8.. "W|
|00001990| 69 6d 70 5f 44 65 63 6f | 64 65 4d 65 6e 75 22 2c |imp_Deco|deMenu",|
|000019a0| 2c 62 75 66 66 65 72 25 | 2c 6d 65 6e 75 73 25 2c |,buffer%|,menus%,|
|000019b0| c4 32 30 30 2c 22 20 22 | 29 b8 2c 2c 2c 61 24 0d |.200," "|).,,,a$.|
|000019c0| 0a 96 0f e7 20 61 24 3d | 22 22 20 8c 20 e1 0d 0a |.... a$=|"" . ...|
|000019d0| a0 14 c8 8e 20 6d 65 6e | 75 68 61 6e 64 6c 65 25 |.... men|uhandle%|
|000019e0| 20 ca 0d 0a aa 12 c9 20 | 31 30 31 3a 20 c8 8e 20 | ...... |101: .. |
|000019f0| 61 24 20 ca 0d 0a b4 2a | 20 20 20 20 20 20 20 20 |a$ ....*|        |
|00001a00| 20 20 20 20 c9 20 22 51 | 75 69 74 22 20 20 20 20 |    . "Q|uit"    |
|00001a10| 3a 20 f2 74 65 72 6d 69 | 6e 61 74 65 3a e0 0d 0a |: .termi|nate:...|
|00001a20| be 2d 20 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 |.-      |      . |
|00001a30| 22 4d 43 75 72 73 6f 72 | 22 20 3a 20 4d 43 75 72 |"MCursor|" : MCur|
|00001a40| 73 25 3d ac 20 4d 43 75 | 72 73 25 0d 0a c8 5e 20 |s%=. MCu|rs%...^ |
|00001a50| 20 20 20 20 20 20 20 20 | 20 20 20 e7 20 4d 43 75 |        |   . MCu|
|00001a60| 72 73 25 20 8c 20 21 28 | 62 75 66 66 65 72 25 2b |rs% . !(|buffer%+|
|00001a70| 35 32 29 3d 21 28 62 75 | 66 66 65 72 25 2b 35 32 |52)=!(bu|ffer%+52|
|00001a80| 29 20 84 20 31 20 8b 20 | 21 28 62 75 66 66 65 72 |) . 1 . |!(buffer|
|00001a90| 25 2b 35 32 29 3d 21 28 | 62 75 66 66 65 72 25 2b |%+52)=!(|buffer%+|
|00001aa0| 35 32 29 20 80 20 ac 20 | 31 0d 0a d2 11 20 20 20 |52) . . |1....   |
|00001ab0| 20 20 20 20 20 20 20 20 | 20 cb 0d 0a dc 05 cb 0d |        | .......|
|00001ac0| 0a e6 25 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |..%.. "W|imp_GetP|
|00001ad0| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 57 69 6e |ointerIn|fo",,Win|
|00001ae0| 64 6f 77 25 0d 0a f0 3a | e7 20 28 21 28 57 69 6e |dow%...:|. (!(Win|
|00001af0| 64 6f 77 25 2b 38 29 20 | 80 20 31 29 3e 30 20 8c |dow%+8) |. 1)>0 .|
|00001b00| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00001b10| 4d 65 6e 75 22 2c 2c 62 | 75 66 66 65 72 25 0d 0a |Menu",,b|uffer%..|
|00001b20| fa 05 e1 0d 0b 04 05 3a | 0d 0b 0e 0a dd f2 70 72 |.......:|......pr|
|00001b30| 65 70 0d 0b 18 3c 20 e7 | 20 4d 43 75 72 73 25 20 |ep...< .| MCurs% |
|00001b40| 8c 20 ff 28 22 4d 43 75 | 72 73 6f 72 20 4f 6e 20 |. .("MCu|rsor On |
|00001b50| 33 32 20 31 33 20 31 32 | 37 22 29 20 8b 20 ff 28 |32 13 12|7") . .(|
|00001b60| 22 4d 43 75 72 73 6f 72 | 20 4f 66 66 22 29 0d 0b |"MCursor| Off")..|
|00001b70| 22 2a 20 c8 99 20 22 4f | 53 5f 42 79 74 65 22 2c |"* .. "O|S_Byte",|
|00001b80| 32 30 32 2c 30 2c 32 35 | 35 20 b8 20 2c 6f 6c 64 |202,0,25|5 . ,old|
|00001b90| 5f 6b 62 73 74 61 74 25 | 0d 0b 2c 32 20 6e 65 77 |_kbstat%|..,2 new|
|00001ba0| 5f 6b 62 73 74 61 74 25 | 3d 28 6f 6c 64 5f 6b 62 |_kbstat%|=(old_kb|
|00001bb0| 73 74 61 74 25 20 84 20 | 25 31 30 30 30 30 30 30 |stat% . |%1000000|
|00001bc0| 30 29 20 80 20 ac 28 31 | 36 29 0d 0b 36 21 20 c8 |0) . .(1|6)..6! .|
|00001bd0| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 32 30 32 2c |. "OS_By|te",202,|
|00001be0| 6e 65 77 5f 6b 62 73 74 | 61 74 25 0d 0b 40 36 20 |new_kbst|at%..@6 |
|00001bf0| c8 99 20 22 58 4f 53 5f | 52 65 61 64 56 61 72 56 |.. "XOS_|ReadVarV|
|00001c00| 61 6c 22 2c 22 4b 65 79 | 24 31 22 2c 6b 31 42 25 |al","Key|$1",k1B%|
|00001c10| 2c 26 31 30 30 2c 30 2c | 30 20 b8 20 2c 2c 6e 6b |,&100,0,|0 . ,,nk|
|00001c20| 25 0d 0b 4a 30 20 e7 20 | 6e 6b 25 3e 30 20 8c 20 |%..J0 . |nk%>0 . |
|00001c30| 6b 31 42 24 3d a4 47 65 | 74 4b 65 79 53 74 72 28 |k1B$=.Ge|tKeyStr(|
|00001c40| 6b 31 42 25 2c 6e 6b 25 | 2d 31 29 3a 6b 31 25 3d |k1B%,nk%|-1):k1%=|
|00001c50| b9 0d 0b 54 36 20 c8 99 | 20 22 58 4f 53 5f 52 65 |...T6 ..| "XOS_Re|
|00001c60| 61 64 56 61 72 56 61 6c | 22 2c 22 4b 65 79 24 34 |adVarVal|","Key$4|
|00001c70| 22 2c 6b 34 42 25 2c 26 | 31 30 30 2c 30 2c 30 20 |",k4B%,&|100,0,0 |
|00001c80| b8 20 2c 2c 6e 6b 25 0d | 0b 5e 30 20 e7 20 6e 6b |. ,,nk%.|.^0 . nk|
|00001c90| 25 3e 30 20 8c 20 6b 34 | 42 24 3d a4 47 65 74 4b |%>0 . k4|B$=.GetK|
|00001ca0| 65 79 53 74 72 28 6b 34 | 42 25 2c 6e 6b 25 2d 31 |eyStr(k4|B%,nk%-1|
|00001cb0| 29 3a 6b 34 25 3d b9 0d | 0b 68 48 20 ff 28 22 4b |):k4%=..|.hH .("K|
|00001cc0| 45 59 20 31 20 7c 51 7c | 40 2a 4d 43 75 72 73 6f |EY 1 |Q||@*MCurso|
|00001cd0| 72 20 4f 66 66 7c 4d 2a | 46 78 20 32 30 32 2c 22 |r Off|M*|Fx 202,"|
|00001ce0| 2b c3 28 6f 6c 64 5f 6b | 62 73 74 61 74 25 29 2b |+.(old_k|bstat%)+|
|00001cf0| 22 7c 4d 2a 44 65 73 6b | 74 6f 70 7c 4d 22 29 0d |"|M*Desk|top|M").|
|00001d00| 0b 72 15 20 ff 28 22 4b | 45 59 20 34 20 52 55 4e |.r. .("K|EY 4 RUN|
|00001d10| 7c 4d 22 29 0d 0b 7c 0c | 20 6d 61 73 6b 25 3d 30 ||M")..|.| mask%=0|
|00001d20| 0d 0b 86 05 e1 0d 0b 90 | 05 3a 0d 0b 9a 2a dd 20 |........|.:...*. |
|00001d30| a4 47 65 74 4b 65 79 53 | 74 72 28 53 25 2c 6e 25 |.GetKeyS|tr(S%,n%|
|00001d40| 29 20 3a 20 f4 20 67 65 | 74 20 6b 65 79 20 73 74 |) : . ge|t key st|
|00001d50| 72 69 6e 67 0d 0b a4 11 | ea 20 6e 24 2c 63 24 2c |ring....|. n$,c$,|
|00001d60| 63 25 2c 73 25 0d 0b ae | 1a e3 20 73 25 3d 53 25 |c%,s%...|.. s%=S%|
|00001d70| 20 b8 20 53 25 2b 6e 25 | 3a 63 25 3d 3f 73 25 0d | . S%+n%|:c%=?s%.|
|00001d80| 0b b8 28 e7 20 63 25 3c | 33 32 20 8c 20 63 24 3d |..(. c%<|32 . c$=|
|00001d90| 22 7c 22 2b bd 28 63 25 | 2b 36 34 29 20 8b 20 63 |"|"+.(c%|+64) . c|
|00001da0| 24 3d bd 28 63 25 29 0d | 0b c2 0c 6e 24 2b 3d 63 |$=.(c%).|...n$+=c|
|00001db0| 24 3a ed 0d 0b cc 07 3d | 6e 24 0d ff             |$:.....=|n$..    |
+--------+-------------------------+-------------------------+--------+--------+