/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / basic86 / !Basic86 / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 0f f4 3e 21 52 | 75 6e 49 6d 61 67 65 0d |.....>!R|unImage.|
|00000010| 00 5a 14 de 20 54 24 28 | 31 32 38 29 3a f2 74 6f |.Z.. T$(|128):.to|
|00000020| 6b 65 6e 0d 00 64 22 de | 20 62 6c 6f 63 6b 20 32 |ken..d".| block 2|
|00000030| 35 36 2c 6d 65 6e 75 20 | 35 30 2c 6f 6c 64 62 6c |56,menu |50,oldbl|
|00000040| 6b 20 31 30 30 0d 00 6e | 44 24 62 6c 6f 63 6b 3d |k 100..n|D$block=|
|00000050| 22 54 41 53 4b 22 3a c8 | 99 20 22 57 69 6d 70 5f |"TASK":.|. "Wimp_|
|00000060| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|00000070| 21 62 6c 6f 63 6b 2c 22 | 42 61 73 69 63 38 36 74 |!block,"|Basic86t|
|00000080| 6f 35 22 20 b8 20 2c 75 | 73 0d 00 78 22 66 69 6c |o5" . ,u|s..x"fil|
|00000090| 65 3d a4 77 69 6e 64 6f | 77 3a de 20 6f 6b 73 20 |e=.windo|w:. oks |
|000000a0| 32 3a 24 6f 6b 73 3d 22 | 4f 4b 22 0d 00 82 36 6f |2:$oks="|OK"...6o|
|000000b0| 6b 3d a4 69 63 6f 6e 28 | 66 69 6c 65 2c 31 39 32 |k=.icon(|file,192|
|000000c0| 2c 2d 31 36 30 2c 32 33 | 38 2c 2d 31 31 32 2c 26 |,-160,23|8,-112,&|
|000000d0| 43 37 30 31 39 31 33 44 | 2c 6f 6b 73 2c 30 2c 33 |C701913D|,oks,0,3|
|000000e0| 29 0d 00 8c 21 de 20 66 | 6e 61 6d 65 20 32 35 35 |)...!. f|name 255|
|000000f0| 2c 76 61 6c 69 64 20 33 | 2c 73 70 72 69 74 65 20 |,valid 3|,sprite |
|00000100| 32 30 0d 00 96 10 24 76 | 61 6c 69 64 3d 22 61 7e |20....$v|alid="a~|
|00000110| 20 22 0d 00 a0 3e 6e 61 | 6d 65 3d a4 69 63 6f 6e | "...>na|me=.icon|
|00000120| 28 66 69 6c 65 2c 31 30 | 2c 2d 31 36 30 2c 31 38 |(file,10|,-160,18|
|00000130| 36 2c 2d 31 31 32 2c 26 | 37 30 30 46 31 33 44 2c |6,-112,&|700F13D,|
|00000140| 66 6e 61 6d 65 2c 76 61 | 6c 69 64 2c 32 35 36 29 |fname,va|lid,256)|
|00000150| 0d 00 aa 3a 66 69 63 6f | 6e 3d a4 69 63 6f 6e 28 |...:fico|n=.icon(|
|00000160| 66 69 6c 65 2c 37 38 2c | 2d 39 32 2c 31 34 36 2c |file,78,|-92,146,|
|00000170| 2d 32 30 2c 26 44 37 30 | 30 36 31 30 32 2c 73 70 |-20,&D70|06102,sp|
|00000180| 72 69 74 65 2c 31 2c 32 | 30 29 0d 00 b4 24 de 20 |rite,1,2|0)...$. |
|00000190| 73 70 72 69 74 65 32 20 | 32 30 3a 24 73 70 72 69 |sprite2 |20:$spri|
|000001a0| 74 65 32 3d 22 21 42 61 | 73 69 63 38 36 22 0d 00 |te2="!Ba|sic86"..|
|000001b0| be 30 73 69 63 6f 6e 3d | a4 69 63 6f 6e 28 2d 31 |.0sicon=|.icon(-1|
|000001c0| 2c 30 2c 30 2c 36 38 2c | 36 38 2c 26 33 31 30 32 |,0,0,68,|68,&3102|
|000001d0| 2c 73 70 72 69 74 65 32 | 2c 31 2c 32 30 29 0d 00 |,sprite2|,1,20)..|
|000001e0| c8 13 71 75 69 74 3d a3 | 3a 6d 79 72 65 66 3d 2d |..quit=.|:myref=-|
|000001f0| 31 0d 00 d2 0d ee 85 20 | f2 65 72 72 6f 72 0d 00 |1...... |.error..|
|00000200| dc 05 f5 0d 00 e6 23 c8 | 99 20 22 57 69 6d 70 5f |......#.|. "Wimp_|
|00000210| 50 6f 6c 6c 22 2c 31 2c | 62 6c 6f 63 6b 20 b8 20 |Poll",1,|block . |
|00000220| 72 65 61 73 6f 6e 0d 00 | f0 0f c8 8e 20 72 65 61 |reason..|.... rea|
|00000230| 73 6f 6e 20 ca 0d 00 fa | 23 c9 20 32 3a c8 99 20 |son ....|#. 2:.. |
|00000240| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00000250| 22 2c 2c 62 6c 6f 63 6b | 0d 01 04 17 c9 20 36 3a |",,block|..... 6:|
|00000260| f2 62 75 74 74 6f 6e 73 | 28 62 6c 6f 63 6b 29 0d |.buttons|(block).|
|00000270| 01 0e 11 c9 20 37 3a f2 | 64 72 61 67 64 6f 6e 65 |.... 7:.|dragdone|
|00000280| 0d 01 18 16 c9 20 38 3a | f2 6b 65 79 28 62 6c 6f |..... 8:|.key(blo|
|00000290| 63 6b 21 32 34 29 0d 01 | 22 0e c9 20 39 3a 71 75 |ck!24)..|".. 9:qu|
|000002a0| 69 74 3d b9 0d 01 2c 1b | c9 20 31 37 2c 31 38 3a |it=...,.|. 17,18:|
|000002b0| f2 72 65 63 65 69 76 65 | 28 62 6c 6f 63 6b 29 0d |.receive|(block).|
|000002c0| 01 36 09 c9 20 31 39 3a | 0d 01 40 05 cb 0d 01 4a |.6.. 19:|..@....J|
|000002d0| 0a fd 20 71 75 69 74 0d | 01 54 17 c8 99 20 22 57 |.. quit.|.T... "W|
|000002e0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 0d 01 |imp_Clos|eDown"..|
|000002f0| 5e 05 e0 0d 01 72 10 dd | f2 72 65 63 65 69 76 65 |^....r..|.receive|
|00000300| 28 62 29 0d 01 7c 0d c8 | 8e 20 62 21 31 36 20 ca |(b)..|..|. b!16 .|
|00000310| 0d 01 86 0e c9 20 30 3a | 71 75 69 74 3d b9 0d 01 |..... 0:|quit=...|
|00000320| 90 08 c9 20 31 3a 0d 01 | 9a 14 c9 20 32 3a f2 64 |... 1:..|... 2:.d|
|00000330| 61 74 61 73 61 76 65 28 | 62 29 0d 01 a4 14 c9 20 |atasave(|b)..... |
|00000340| 33 3a f2 64 61 74 61 6c | 6f 61 64 28 62 29 0d 01 |3:.datal|oad(b)..|
|00000350| ae 08 c9 20 36 3a 0d 01 | b8 08 c9 20 37 3a 0d 01 |... 6:..|... 7:..|
|00000360| c2 05 cb 0d 01 cc 05 e1 | 0d 01 e0 0c dd f2 6b 65 |........|......ke|
|00000370| 79 28 6b 29 0d 01 ea 0a | c8 8e 20 6b 20 ca 0d 01 |y(k)....|.. k ...|
|00000380| f4 18 c9 20 31 33 3a f2 | 73 61 76 65 69 74 28 24 |... 13:.|saveit($|
|00000390| 66 6e 61 6d 65 29 0d 01 | fe 31 c9 20 32 37 3a 21 |fname)..|.1. 27:!|
|000003a0| 62 6c 6f 63 6b 3d 66 69 | 6c 65 3a c8 99 20 22 57 |block=fi|le:.. "W|
|000003b0| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|000003c0| 2c 2c 62 6c 6f 63 6b 0d | 02 08 1c 7f 3a c8 99 20 |,,block.|....:.. |
|000003d0| 22 57 69 6d 70 5f 50 72 | 6f 63 65 73 73 4b 65 79 |"Wimp_Pr|ocessKey|
|000003e0| 22 2c 6b 0d 02 12 05 cb | 0d 02 1c 05 e1 0d 02 30 |",k.....|.......0|
|000003f0| 10 dd f2 62 75 74 74 6f | 6e 73 28 62 29 0d 02 3a |...butto|ns(b)..:|
|00000400| 11 e7 20 28 62 21 38 20 | 80 20 32 29 20 8c 0d 02 |.. (b!8 |. 2) ...|
|00000410| 44 16 e7 20 62 21 31 32 | 3d 2d 32 20 f2 6d 65 6e |D.. b!12|=-2 .men|
|00000420| 75 28 62 29 0d 02 4e 05 | cc 0d 02 58 23 e7 20 62 |u(b)..N.|...X#. b|
|00000430| 21 31 36 3d 66 69 63 6f | 6e 20 80 20 28 62 21 38 |!16=fico|n . (b!8|
|00000440| 20 80 20 26 35 30 29 3c | 3e 30 20 8c 0d 02 62 0b | . &50)<|>0 ...b.|
|00000450| 21 62 3d 66 69 6c 65 0d | 02 6c 1f c8 99 20 22 57 |!b=file.|.l... "W|
|00000460| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00000470| 74 65 22 2c 2c 62 0d 02 | 76 1e 77 65 78 3d 62 21 |te",,b..|v.wex=b!|
|00000480| 34 2d 62 21 32 30 3a 77 | 65 79 3d 62 21 31 36 2d |4-b!20:w|ey=b!16-|
|00000490| 62 21 32 34 0d 02 80 0d | 62 21 34 3d 66 69 63 6f |b!24....|b!4=fico|
|000004a0| 6e 0d 02 8a 1d c8 99 20 | 22 57 69 6d 70 5f 47 65 |n...... |"Wimp_Ge|
|000004b0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 0d 02 |tIconSta|te",,b..|
|000004c0| 94 11 21 62 3d 66 69 6c | 65 3a 62 21 34 3d 35 0d |..!b=fil|e:b!4=5.|
|000004d0| 02 9e 1d 62 21 38 3d 62 | 21 38 2b 77 65 78 3a 62 |...b!8=b|!8+wex:b|
|000004e0| 21 31 32 3d 62 21 31 32 | 2b 77 65 79 0d 02 a8 1f |!12=b!12|+wey....|
|000004f0| 62 21 31 36 3d 62 21 31 | 36 2b 77 65 78 3a 62 21 |b!16=b!1|6+wex:b!|
|00000500| 32 30 3d 62 21 32 30 2b | 77 65 79 0d 02 b2 11 62 |20=b!20+|wey....b|
|00000510| 21 32 34 3d 30 3a 62 21 | 32 38 3d 30 0d 02 bc 21 |!24=0:b!|28=0...!|
|00000520| 62 21 33 32 3d 26 37 46 | 46 46 46 46 46 46 3a 62 |b!32=&7F|FFFFFF:b|
|00000530| 21 33 36 3d 26 37 46 46 | 46 46 46 46 46 0d 02 c6 |!36=&7FF|FFFFF...|
|00000540| 18 c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |... "Wim|p_DragBo|
|00000550| 78 22 2c 2c 62 0d 02 d0 | 05 cd 0d 02 da 1f e7 20 |x",,b...|....... |
|00000560| 62 21 31 36 3d 6f 6b 20 | 8c 20 f2 73 61 76 65 69 |b!16=ok |. .savei|
|00000570| 74 28 24 66 6e 61 6d 65 | 29 0d 02 e4 05 cd 0d 02 |t($fname|).......|
|00000580| ee 05 e1 0d 03 02 0d dd | f2 6d 65 6e 75 28 62 29 |........|.menu(b)|
|00000590| 0d 03 0c 16 24 6d 65 6e | 75 3d 22 53 68 69 72 6c |....$men|u="Shirl|
|000005a0| 2b 44 61 76 65 22 0d 03 | 16 1e 6d 65 6e 75 21 31 |+Dave"..|..menu!1|
|000005b0| 32 3d 26 37 30 32 30 37 | 3a 6d 65 6e 75 21 31 36 |2=&70207|:menu!16|
|000005c0| 3d 31 35 36 0d 03 20 24 | 6d 65 6e 75 21 32 30 3d |=156.. $|menu!20=|
|000005d0| 34 30 3a 6d 65 6e 75 21 | 32 34 3d 30 3a 6d 65 6e |40:menu!|24=0:men|
|000005e0| 75 21 32 38 3d 26 38 30 | 0d 03 2a 1f 6d 65 6e 75 |u!28=&80|..*.menu|
|000005f0| 21 33 32 3d 2d 31 3a 6d | 65 6e 75 21 33 36 3d 26 |!32=-1:m|enu!36=&|
|00000600| 37 30 30 30 30 32 31 0d | 03 34 15 24 28 6d 65 6e |7000021.|.4.$(men|
|00000610| 75 2b 34 30 29 3d 22 51 | 75 69 74 22 0d 03 3e 29 |u+40)="Q|uit"..>)|
|00000620| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|00000630| 65 6e 75 22 2c 2c 6d 65 | 6e 75 2c 20 21 62 2d 36 |enu",,me|nu, !b-6|
|00000640| 34 2c 31 33 36 0d 03 48 | 05 e1 0d 03 5c 0d dd 20 |4,136..H|....\.. |
|00000650| a4 77 69 6e 64 6f 77 0d | 03 66 1a 21 62 6c 6f 63 |.window.|.f.!bloc|
|00000660| 6b 3d 39 30 30 3a 62 6c | 6f 63 6b 21 34 3d 32 30 |k=900:bl|ock!4=20|
|00000670| 30 0d 03 70 1d 62 6c 6f | 63 6b 21 38 3d 31 31 34 |0..p.blo|ck!8=114|
|00000680| 36 3a 62 6c 6f 63 6b 21 | 31 32 3d 33 36 38 0d 03 |6:block!|12=368..|
|00000690| 7a 19 62 6c 6f 63 6b 21 | 31 36 3d 30 3a 62 6c 6f |z.block!|16=0:blo|
|000006a0| 63 6b 21 32 30 3d 30 0d | 03 84 1c 62 6c 6f 63 6b |ck!20=0.|...block|
|000006b0| 21 32 34 3d 2d 31 3a 62 | 6c 6f 63 6b 21 32 38 3d |!24=-1:b|lock!28=|
|000006c0| 26 39 33 0d 03 8e 25 62 | 6c 6f 63 6b 21 33 32 3d |&93...%b|lock!32=|
|000006d0| 26 31 30 37 30 32 30 37 | 3a 62 6c 6f 63 6b 21 33 |&1070207|:block!3|
|000006e0| 36 3d 26 32 30 44 30 34 | 0d 03 98 1d 62 6c 6f 63 |6=&20D04|....bloc|
|000006f0| 6b 21 34 30 3d 30 3a 62 | 6c 6f 63 6b 21 34 34 3d |k!40=0:b|lock!44=|
|00000700| 2d 31 30 32 34 0d 03 a2 | 1c 62 6c 6f 63 6b 21 34 |-1024...|.block!4|
|00000710| 38 3d 31 32 38 30 3a 62 | 6c 6f 63 6b 21 35 32 3d |8=1280:b|lock!52=|
|00000720| 30 0d 03 ac 1b 62 6c 6f | 63 6b 21 35 36 3d 26 33 |0....blo|ck!56=&3|
|00000730| 44 3a 62 6c 6f 63 6b 21 | 36 30 3d 30 0d 03 b6 19 |D:block!|60=0....|
|00000740| 62 6c 6f 63 6b 21 36 34 | 3d 31 3a 62 6c 6f 63 6b |block!64|=1:block|
|00000750| 21 36 38 3d 30 0d 03 c0 | 25 62 6c 6f 63 6b 21 38 |!68=0...|%block!8|
|00000760| 34 3d 30 3a 24 28 62 6c | 6f 63 6b 2b 37 32 29 3d |4=0:$(bl|ock+72)=|
|00000770| 22 53 61 76 65 20 61 73 | 3a 22 0d 03 ca 2a c8 99 |"Save as|:"...*..|
|00000780| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|00000790| 64 6f 77 22 2c 2c 62 6c | 6f 63 6b 20 b8 20 68 61 |dow",,bl|ock . ha|
|000007a0| 6e 64 6c 65 0d 03 d4 0b | 3d 68 61 6e 64 6c 65 0d |ndle....|=handle.|
|000007b0| 03 e8 2e dd 20 a4 69 63 | 6f 6e 28 77 69 6e 64 6f |.... .ic|on(windo|
|000007c0| 77 2c 78 31 2c 79 31 2c | 78 32 2c 79 32 2c 66 6c |w,x1,y1,|x2,y2,fl|
|000007d0| 61 67 73 2c 69 31 2c 69 | 32 2c 69 33 29 0d 03 f2 |ags,i1,i|2,i3)...|
|000007e0| 1c 21 62 6c 6f 63 6b 3d | 77 69 6e 64 6f 77 3a 62 |.!block=|window:b|
|000007f0| 6c 6f 63 6b 21 34 3d 78 | 31 0d 03 fc 1a 62 6c 6f |lock!4=x|1....blo|
|00000800| 63 6b 21 38 3d 79 31 3a | 62 6c 6f 63 6b 21 31 32 |ck!8=y1:|block!12|
|00000810| 3d 78 32 0d 04 06 1e 62 | 6c 6f 63 6b 21 31 36 3d |=x2....b|lock!16=|
|00000820| 79 32 3a 62 6c 6f 63 6b | 21 32 30 3d 66 6c 61 67 |y2:block|!20=flag|
|00000830| 73 0d 04 10 1b 62 6c 6f | 63 6b 21 32 34 3d 69 31 |s....blo|ck!24=i1|
|00000840| 3a 62 6c 6f 63 6b 21 32 | 38 3d 69 32 0d 04 1a 0f |:block!2|8=i2....|
|00000850| 62 6c 6f 63 6b 21 33 32 | 3d 69 33 0d 04 24 28 c8 |block!32|=i3..$(.|
|00000860| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|00000870| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 20 b8 20 68 61 6e |on",,blo|ck . han|
|00000880| 64 6c 65 0d 04 2e 0b 3d | 68 61 6e 64 6c 65 0d 04 |dle....=|handle..|
|00000890| 42 0f dd 20 f2 64 72 61 | 67 64 6f 6e 65 0d 04 4c |B.. .dra|gdone..L|
|000008a0| 0d 74 79 70 65 3d 26 46 | 46 42 0d 04 56 23 c8 99 |.type=&F|FB..V#..|
|000008b0| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|000008c0| 72 49 6e 66 6f 22 2c 2c | 62 6c 6f 63 6b 0d 04 60 |rInfo",,|block..`|
|000008d0| 1a 62 6c 6f 63 6b 21 32 | 30 3d 36 34 3a 62 6c 6f |.block!2|0=64:blo|
|000008e0| 63 6b 21 33 32 3d 30 0d | 04 6a 20 62 6c 6f 63 6b |ck!32=0.|.j block|
|000008f0| 21 33 36 3d 31 3a 62 6c | 6f 63 6b 21 34 30 3d 62 |!36=1:bl|ock!40=b|
|00000900| 6c 6f 63 6b 21 31 32 0d | 04 74 25 62 6c 6f 63 6b |lock!12.|.t%block|
|00000910| 21 34 34 3d 62 6c 6f 63 | 6b 21 31 36 3a 62 6c 6f |!44=bloc|k!16:blo|
|00000920| 63 6b 21 34 38 3d 21 62 | 6c 6f 63 6b 0d 04 7e 14 |ck!48=!b|lock..~.|
|00000930| 62 6c 6f 63 6b 21 35 32 | 3d 62 6c 6f 63 6b 21 34 |block!52|=block!4|
|00000940| 0d 04 88 1c 62 6c 6f 63 | 6b 21 35 36 3d 30 3a 62 |....bloc|k!56=0:b|
|00000950| 6c 6f 63 6b 21 36 30 3d | 74 79 70 65 0d 04 92 20 |lock!60=|type... |
|00000960| 24 28 62 6c 6f 63 6b 2b | 36 34 29 3d a4 6c 65 61 |$(block+|64)=.lea|
|00000970| 66 28 24 66 6e 61 6d 65 | 29 2b bd 30 0d 04 9c 37 |f($fname|)+.0...7|
|00000980| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00000990| 73 61 67 65 22 2c 31 37 | 2c 62 6c 6f 63 6b 2b 32 |sage",17|,block+2|
|000009a0| 30 2c 62 6c 6f 63 6b 21 | 31 32 2c 62 6c 6f 63 6b |0,block!|12,block|
|000009b0| 21 31 36 0d 04 a6 12 6d | 79 72 65 66 3d 62 6c 6f |!16....m|yref=blo|
|000009c0| 63 6b 21 32 38 0d 04 b0 | 05 e1 0d 04 c4 11 dd a4 |ck!28...|........|
|000009d0| 6c 65 61 66 28 70 61 74 | 68 24 29 0d 04 ce 2e c8 |leaf(pat|h$).....|
|000009e0| 95 20 a7 70 61 74 68 24 | 2c 22 2e 22 29 3a 70 61 |. .path$|,"."):pa|
|000009f0| 74 68 24 3d c1 70 61 74 | 68 24 2c a7 70 61 74 68 |th$=.pat|h$,.path|
|00000a00| 24 2c 22 2e 22 29 2b 31 | 29 0d 04 d8 05 ce 0d 04 |$,".")+1|).......|
|00000a10| e2 0a 3d 70 61 74 68 24 | 0d 04 f6 0b dd f2 65 72 |..=path$|......er|
|00000a20| 72 6f 72 0d 05 00 08 2a | 46 58 33 0d 05 0a 18 c8 |ror....*|FX3.....|
|00000a30| 99 22 57 69 6d 70 5f 44 | 72 61 67 42 6f 78 22 2c |."Wimp_D|ragBox",|
|00000a40| 2c 2d 31 0d 05 14 38 21 | 62 6c 6f 63 6b 3d 9f 3a |,-1...8!|block=.:|
|00000a50| 24 28 62 6c 6f 63 6b 2b | 34 29 3d f6 24 2b 22 20 |$(block+|4)=.$+" |
|00000a60| 28 41 74 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 20 |(At line| number |
|00000a70| 22 2b c3 9e 2b 22 29 22 | 2b bd 30 0d 05 1e 2d c8 |"+..+")"|+.0...-.|
|00000a80| 99 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 |."Wimp_R|eportErr|
|00000a90| 6f 72 22 2c 62 6c 6f 63 | 6b 2c 31 2c 22 42 61 73 |or",bloc|k,1,"Bas|
|00000aa0| 69 63 38 36 74 6f 35 22 | 0d 05 28 05 e1 0d 05 3c |ic86to5"|..(....<|
|00000ab0| 11 dd f2 64 61 74 61 73 | 61 76 65 28 62 29 0d 05 |...datas|ave(b)..|
|00000ac0| 46 12 e7 20 62 21 31 32 | 3d 6d 79 72 65 66 20 8c |F.. b!12|=myref .|
|00000ad0| 0d 05 50 19 f2 73 61 76 | 65 69 74 28 a4 67 6e 61 |..P..sav|eit(.gna|
|00000ae0| 6d 65 28 62 2b 34 34 29 | 29 0d 05 5a 13 62 21 31 |me(b+44)|)..Z.b!1|
|00000af0| 32 3d 62 21 38 3a 62 21 | 31 36 3d 33 0d 05 64 21 |2=b!8:b!|16=3..d!|
|00000b00| c8 99 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |.."Wimp_|SendMess|
|00000b10| 61 67 65 22 2c 31 38 2c | 62 2c 62 21 34 0d 05 6e |age",18,|b,b!4..n|
|00000b20| 05 cd 0d 05 78 05 e1 0d | 05 8c 11 dd f2 64 61 74 |....x...|.....dat|
|00000b30| 61 6c 6f 61 64 28 62 29 | 0d 05 96 1d 66 66 24 3d |aload(b)|....ff$=|
|00000b40| a4 67 6e 61 6d 65 28 62 | 2b 34 34 29 3a 58 25 3d |.gname(b|+44):X%=|
|00000b50| 8e 20 66 66 24 0d 05 a0 | 0a f2 70 6f 70 75 70 0d |. ff$...|..popup.|
|00000b60| 05 aa 13 62 21 31 32 3d | 62 21 38 3a 62 21 31 36 |...b!12=|b!8:b!16|
|00000b70| 3d 34 0d 05 b4 21 c8 99 | 22 57 69 6d 70 5f 53 65 |=4...!..|"Wimp_Se|
|00000b80| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 62 2c |ndMessag|e",17,b,|
|00000b90| 62 21 34 0d 05 be 05 cd | 0d 05 c8 05 e1 0d 05 dc |b!4.....|........|
|00000ba0| 15 dd a4 67 6e 61 6d 65 | 28 70 74 72 29 3a ea 20 |...gname|(ptr):. |
|00000bb0| 66 24 0d 05 e6 1c c8 95 | 20 3f 70 74 72 20 66 24 |f$......| ?ptr f$|
|00000bc0| 2b 3d bd 3f 70 74 72 3a | 70 74 72 2b 3d 31 0d 05 |+=.?ptr:|ptr+=1..|
|00000bd0| f0 05 ce 0d 05 fa 07 3d | 66 24 0d 06 0e 13 dd f2 |.......=|f$......|
|00000be0| 73 61 76 65 69 74 28 6e | 61 6d 65 24 29 0d 06 18 |saveit(n|ame$)...|
|00000bf0| 13 e7 20 a7 6e 61 6d 65 | 24 2c 22 2e 22 29 20 8c |.. .name|$,".") .|
|00000c00| 0d 06 22 0a f2 38 36 74 | 6f 35 0d 06 2c 0e 21 6d |.."..86t|o5..,.!m|
|00000c10| 65 6e 75 3d 66 69 6c 65 | 0d 06 36 1f c8 99 20 22 |enu=file|..6... "|
|00000c20| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00000c30| 22 2c 2c 6d 65 6e 75 0d | 06 40 3f cc 20 24 62 6c |",,menu.|.@?. $bl|
|00000c40| 6f 63 6b 3d 22 20 20 20 | 20 54 6f 20 73 61 76 65 |ock="   | To save|
|00000c50| 2c 20 64 72 61 67 20 74 | 68 65 20 69 63 6f 6e 20 |, drag t|he icon |
|00000c60| 74 6f 20 61 20 64 69 72 | 65 63 74 6f 72 79 20 76 |to a dir|ectory v|
|00000c70| 69 65 77 65 72 22 0d 06 | 4a 2e c8 99 20 22 57 69 |iewer"..|J... "Wi|
|00000c80| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00000c90| 62 6c 6f 63 6b 2c 31 2c | 22 42 61 73 69 63 38 36 |block,1,|"Basic86|
|00000ca0| 74 6f 35 22 0d 06 54 05 | cd 0d 06 5e 05 e1 0d 06 |to5"..T.|...^....|
|00000cb0| 72 0b dd f2 70 6f 70 75 | 70 0d 06 7c 12 66 6e 24 |r...popu|p..|.fn$|
|00000cc0| 3d a4 6c 65 61 66 28 66 | 66 24 29 0d 06 86 17 66 |=.leaf(f|f$)....f|
|00000cd0| 6d 24 3d c0 66 66 24 2c | a9 66 66 24 2d a9 66 6e |m$=.ff$,|.ff$-.fn|
|00000ce0| 24 29 0d 06 90 1f 24 66 | 6e 61 6d 65 3d 66 6d 24 |$)....$f|name=fm$|
|00000cf0| 2b 66 6e 24 3a 21 6f 6c | 64 62 6c 6b 3d 66 69 6c |+fn$:!ol|dblk=fil|
|00000d00| 65 0d 06 9a 16 24 73 70 | 72 69 74 65 3d 22 66 69 |e....$sp|rite="fi|
|00000d10| 6c 65 5f 66 66 62 22 0d | 06 a4 24 c8 99 20 22 57 |le_ffb".|..$.. "W|
|00000d20| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00000d30| 74 65 22 2c 2c 6f 6c 64 | 62 6c 6b 0d 06 ae 20 c8 |te",,old|blk... .|
|00000d40| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00000d50| 6f 77 22 2c 2c 6f 6c 64 | 62 6c 6b 0d 06 b8 35 c8 |ow",,old|blk...5.|
|00000d60| 99 20 22 57 69 6d 70 5f | 53 65 74 43 61 72 65 74 |. "Wimp_|SetCaret|
|00000d70| 50 6f 73 69 74 69 6f 6e | 22 2c 66 69 6c 65 2c 6e |Position|",file,n|
|00000d80| 61 6d 65 2c 2c 2c 2d 31 | 2c a9 24 66 6e 61 6d 65 |ame,,,-1|,.$fname|
|00000d90| 0d 06 c2 05 e1 0d 06 d6 | 0b dd f2 38 36 74 6f 35 |........|...86to5|
|00000da0| 0d 06 e0 22 ea 20 43 25 | 2c 69 6e 76 2c 44 25 2c |...". C%|,inv,D%,|
|00000db0| 74 24 2c 4c 2c 54 24 2c | 6e 6f 31 2c 6e 6f 32 2c |t$,L,T$,|no1,no2,|
|00000dc0| 6e 6f 0d 06 ea 09 69 6e | 76 3d a3 0d 06 f4 14 c8 |no....in|v=......|
|00000dd0| 99 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d |."Hourgl|ass_On".|
|00000de0| 06 fe 0a 2a 46 58 33 2c | 36 0d 07 08 0b 43 25 3d |...*FX3,|6....C%=|
|00000df0| 8e 66 66 24 0d 07 12 15 | ff 28 22 53 50 4f 4f 4c |.ff$....|.("SPOOL|
|00000e00| 20 22 2b 6e 61 6d 65 24 | 29 0d 07 1c 05 f5 0d 07 | "+name$|).......|
|00000e10| 26 0f cf 23 43 25 3d 8f | 23 43 25 2b 31 0d 07 30 |&..#C%=.|#C%+1..0|
|00000e20| 2b 6e 6f 31 3d 9a 23 43 | 25 3a 6e 6f 32 3d 9a 23 |+no1=.#C|%:no2=.#|
|00000e30| 43 25 3a 6e 6f 3d 6e 6f | 31 2b 28 6e 6f 32 2a 32 |C%:no=no|1+(no2*2|
|00000e40| 35 36 29 3a f1 6e 6f 3b | 0d 07 3a 05 f5 0d 07 44 |56):.no;|..:....D|
|00000e50| 0b 44 25 3d 9a 23 43 25 | 0d 07 4e 37 e7 20 44 25 |.D%=.#C%|..N7. D%|
|00000e60| 3d 26 32 32 20 80 20 69 | 6e 76 3d a3 20 8c 20 69 |=&22 . i|nv=. . i|
|00000e70| 6e 76 3d b9 20 8b 20 e7 | 20 44 25 3d 26 32 32 20 |nv=. . .| D%=&22 |
|00000e80| 80 20 69 6e 76 3d b9 20 | 8c 20 69 6e 76 3d a3 0d |. inv=. |. inv=..|
|00000e90| 07 58 17 e7 20 69 6e 76 | 20 8c 20 ef 20 44 25 3a |.X.. inv| . . D%:|
|00000ea0| e5 20 8d 74 4a 47 0d 07 | 62 1a e7 20 44 25 3e 33 |. .tJG..|b.. D%>3|
|00000eb0| 31 20 80 20 44 25 3c 31 | 32 37 20 8c 20 ef 44 25 |1 . D%<1|27 . .D%|
|00000ec0| 0d 07 6c 17 e7 20 44 25 | 3d 26 38 44 20 8c 20 f2 |..l.. D%|=&8D . .|
|00000ed0| 6c 69 6e 65 72 65 66 0d | 07 76 19 e7 20 44 25 3e |lineref.|.v.. D%>|
|00000ee0| 26 37 46 20 f1 54 24 28 | 44 25 2d 26 37 46 29 3b |&7F .T$(|D%-&7F);|
|00000ef0| 0d 07 80 11 e7 20 44 25 | 3d 26 30 44 20 ef 20 31 |..... D%|=&0D . 1|
|00000f00| 33 0d 07 8a 0c fd 20 44 | 25 3d 26 30 44 0d 07 94 |3..... D|%=&0D...|
|00000f10| 11 fd a2 23 43 25 3c 3d | 8f 23 43 25 2b 33 0d 07 |...#C%<=|.#C%+3..|
|00000f20| 9e 0a 2a 53 50 4f 4f 4c | 0d 07 a8 15 c8 99 22 48 |..*SPOOL|......"H|
|00000f30| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 07 b2 |ourglass|_Off"...|
|00000f40| 20 ff 28 22 53 45 54 54 | 59 50 45 20 22 2b 6e 61 | .("SETT|YPE "+na|
|00000f50| 6d 65 24 2b 22 20 42 41 | 53 49 43 22 29 0d 07 bc |me$+" BA|SIC")...|
|00000f60| 08 2a 46 58 33 0d 07 c6 | 08 d9 23 43 25 0d 07 d0 |.*FX3...|..#C%...|
|00000f70| 05 e1 0d 07 da 0d dd f2 | 6c 69 6e 65 72 65 66 0d |........|lineref.|
|00000f80| 07 e4 11 6e 6f 31 3d 28 | 9a 23 43 25 29 3c 3c 32 |...no1=(|.#C%)<<2|
|00000f90| 0d 07 ee 1c 6e 6f 32 3d | 28 9a 23 43 25 29 20 82 |....no2=|(.#C%) .|
|00000fa0| 20 28 6e 6f 31 20 80 20 | 26 43 30 29 0d 07 f8 2e | (no1 . |&C0)....|
|00000fb0| 6e 6f 32 3d 6e 6f 32 20 | 84 20 28 28 28 9a 23 43 |no2=no2 |. (((.#C|
|00000fc0| 25 29 20 82 20 28 28 6e | 6f 31 3c 3c 32 29 20 80 |%) . ((n|o1<<2) .|
|00000fd0| 20 26 43 30 29 29 3c 3c | 38 29 0d 08 02 0a f1 3b | &C0))<<|8).....;|
|00000fe0| 6e 6f 32 3b 0d 08 0c 05 | e1 0d 08 16 0b dd f2 74 |no2;....|.......t|
|00000ff0| 6f 6b 65 6e 0d 08 20 1d | e3 4c 3d 26 38 30 20 b8 |oken.. .|.L=&80 .|
|00001000| 20 26 46 46 3a f3 54 24 | 28 4c 2d 26 37 46 29 3a | &FF:.T$|(L-&7F):|
|00001010| ed 0d 08 2a 44 dc 41 4e | 44 2c 44 49 56 2c 45 4f |...*D.AN|D,DIV,EO|
|00001020| 52 2c 4d 4f 44 2c 4f 52 | 2c 45 52 52 4f 52 2c 4c |R,MOD,OR|,ERROR,L|
|00001030| 49 4e 45 2c 4f 46 46 2c | 53 54 45 50 2c 53 50 43 |INE,OFF,|STEP,SPC|
|00001040| 2c 54 41 42 28 2c 45 4c | 53 45 2c 54 48 45 4e 2c |,TAB(,EL|SE,THEN,|
|00001050| 2c 2c 50 54 52 0d 08 34 | 4f dc 50 41 47 45 2c 54 |,,PTR..4|O.PAGE,T|
|00001060| 49 4d 45 2c 4c 4f 4d 45 | 4d 2c 48 49 4d 45 4d 2c |IME,LOME|M,HIMEM,|
|00001070| 41 42 53 2c 41 43 53 2c | 41 44 56 41 4c 2c 41 53 |ABS,ACS,|ADVAL,AS|
|00001080| 43 2c 41 53 4e 2c 41 54 | 4e 2c 42 47 45 54 2c 43 |C,ASN,AT|N,BGET,C|
|00001090| 4f 53 2c 43 4f 55 4e 54 | 2c 44 45 47 2c 45 52 4c |OS,COUNT|,DEG,ERL|
|000010a0| 2c 45 52 52 0d 08 3e 50 | dc 45 56 41 4c 2c 45 58 |,ERR..>P|.EVAL,EX|
|000010b0| 50 2c 45 58 54 2c 46 41 | 4c 53 45 2c 46 4e 2c 47 |P,EXT,FA|LSE,FN,G|
|000010c0| 45 54 2c 49 4e 4b 45 59 | 2c 49 4e 53 54 52 28 2c |ET,INKEY|,INSTR(,|
|000010d0| 49 4e 54 2c 4c 45 4e 2c | 4c 4e 2c 4c 4f 47 2c 4e |INT,LEN,|LN,LOG,N|
|000010e0| 4f 54 2c 4f 50 45 4e 49 | 4e 2c 4f 50 45 4e 4f 55 |OT,OPENI|N,OPENOU|
|000010f0| 54 2c 50 49 0d 08 48 4d | dc 50 4f 49 4e 54 28 2c |T,PI..HM|.POINT(,|
|00001100| 50 4f 53 2c 52 41 44 2c | 52 4e 44 2c 53 47 4e 2c |POS,RAD,|RND,SGN,|
|00001110| 53 49 4e 2c 53 51 52 2c | 54 41 4e 2c 54 4f 2c 54 |SIN,SQR,|TAN,TO,T|
|00001120| 52 55 45 2c 55 53 52 2c | 56 41 4c 2c 56 50 4f 53 |RUE,USR,|VAL,VPOS|
|00001130| 2c 43 48 52 24 2c 47 45 | 54 24 2c 49 4e 4b 45 59 |,CHR$,GE|T$,INKEY|
|00001140| 24 0d 08 52 5c dc 4c 45 | 46 54 24 28 2c 4d 49 44 |$..R\.LE|FT$(,MID|
|00001150| 24 28 2c 52 49 47 48 54 | 24 28 2c 53 54 52 24 2c |$(,RIGHT|$(,STR$,|
|00001160| 53 54 52 49 4e 47 24 28 | 2c 45 4f 46 2c 41 55 54 |STRING$(|,EOF,AUT|
|00001170| 4f 2c 44 45 4c 45 54 45 | 2c 4c 4f 41 44 2c 4c 49 |O,DELETE|,LOAD,LI|
|00001180| 53 54 2c 4e 45 57 2c 4f | 4c 44 2c 52 45 4e 55 4d |ST,NEW,O|LD,RENUM|
|00001190| 42 45 52 2c 53 41 56 45 | 2c 2c 50 54 52 0d 08 5c |BER,SAVE|,,PTR..\|
|000011a0| 56 dc 50 41 47 45 2c 54 | 49 4d 45 2c 4c 4f 4d 45 |V.PAGE,T|IME,LOME|
|000011b0| 4d 2c 48 49 4d 45 4d 2c | 53 4f 55 4e 44 2c 42 50 |M,HIMEM,|SOUND,BP|
|000011c0| 55 54 2c 43 41 4c 4c 2c | 43 48 41 49 4e 2c 43 4c |UT,CALL,|CHAIN,CL|
|000011d0| 45 41 52 2c 43 4c 4f 53 | 45 2c 43 4c 47 2c 43 4c |EAR,CLOS|E,CLG,CL|
|000011e0| 53 2c 44 41 54 41 2c 44 | 45 46 2c 44 49 4d 2c 44 |S,DATA,D|EF,DIM,D|
|000011f0| 52 41 57 0d 08 66 56 dc | 45 4e 44 2c 45 4e 44 50 |RAW..fV.|END,ENDP|
|00001200| 52 4f 43 2c 45 4e 56 45 | 4c 4f 50 45 2c 46 4f 52 |ROC,ENVE|LOPE,FOR|
|00001210| 2c 47 4f 53 55 42 2c 47 | 4f 54 4f 2c 47 43 4f 4c |,GOSUB,G|OTO,GCOL|
|00001220| 2c 49 46 2c 49 4e 50 55 | 54 2c 4c 45 54 2c 4c 4f |,IF,INPU|T,LET,LO|
|00001230| 43 41 4c 2c 4d 4f 44 45 | 2c 4d 4f 56 45 2c 4e 45 |CAL,MODE|,MOVE,NE|
|00001240| 58 54 2c 4f 4e 2c 56 44 | 55 0d 08 70 5d dc 50 4c |XT,ON,VD|U..p].PL|
|00001250| 4f 54 2c 50 52 49 4e 54 | 2c 50 52 4f 43 2c 52 45 |OT,PRINT|,PROC,RE|
|00001260| 41 44 2c 52 45 4d 2c 52 | 45 50 45 41 54 2c 52 45 |AD,REM,R|EPEAT,RE|
|00001270| 50 4f 52 54 2c 52 45 53 | 54 4f 52 45 2c 52 45 54 |PORT,RES|TORE,RET|
|00001280| 55 52 4e 2c 52 55 4e 2c | 53 54 4f 50 2c 43 4f 4c |URN,RUN,|STOP,COL|
|00001290| 4f 55 52 2c 54 52 41 43 | 45 2c 55 4e 54 49 4c 2c |OUR,TRAC|E,UNTIL,|
|000012a0| 57 49 44 54 48 2c 0d 08 | 7a 05 e1 0d ff          |WIDTH,..|z....   |
+--------+-------------------------+-------------------------+--------+--------+