/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / comms / _term7cost / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 69 6d 61 67 65 |..... >!|Runimage|
|00000010| 0d 00 14 41 f4 20 50 75 | 72 70 6f 73 65 20 3a 20 |...A. Pu|rpose : |
|00000020| 43 61 6c 63 75 6c 61 74 | 65 20 74 68 65 20 63 6f |Calculat|e the co|
|00000030| 73 74 20 6f 66 20 61 6c | 6c 20 74 68 65 20 63 61 |st of al|l the ca|
|00000040| 6c 6c 73 20 79 6f 75 20 | 68 61 76 65 20 6d 61 64 |lls you |have mad|
|00000050| 65 0d 00 1e 21 f4 20 41 | 75 74 68 6f 72 20 20 3a |e...!. A|uthor  :|
|00000060| 20 4a 61 72 69 20 4b 75 | 68 61 6e 65 6e 20 31 39 | Jari Ku|hanen 19|
|00000070| 39 32 0d 00 28 05 f4 0d | 00 32 25 ee 20 85 20 f2 |92..(...|.2%. . .|
|00000080| 65 72 72 6f 72 28 f6 24 | 2b 22 20 61 74 20 6c 69 |error(.$|+" at li|
|00000090| 6e 65 20 22 2b c3 28 9e | 29 29 3a e0 0d 00 3c 58 |ne "+.(.|)):...<X|
|000000a0| de 20 62 6c 6f 63 6b 25 | 20 31 30 32 34 2c 69 62 |. block%| 1024,ib|
|000000b0| 6c 6f 63 6b 25 20 31 31 | 33 2c 69 6e 62 6c 6f 63 |lock% 11|3,inbloc|
|000000c0| 6b 25 20 31 37 31 2c 63 | 61 6c 63 24 28 31 30 30 |k% 171,c|alc$(100|
|000000d0| 29 2c 65 72 72 25 20 32 | 35 36 2c 6d 65 6e 75 25 |),err% 2|56,menu%|
|000000e0| 20 31 30 32 34 3a 24 62 | 6c 6f 63 6b 25 3d 22 54 | 1024:$b|lock%="T|
|000000f0| 41 53 4b 22 0d 00 46 6b | 6e 61 6d 65 24 3d 22 21 |ASK"..Fk|name$="!|
|00000100| 54 65 72 6d 37 43 6f 73 | 74 22 3a 70 75 72 70 6f |Term7Cos|t":purpo|
|00000110| 73 65 24 3d 22 54 6f 20 | 73 65 65 20 74 68 65 20 |se$="To |see the |
|00000120| 64 61 6d 61 67 65 2e 22 | 3a 61 75 74 68 6f 72 24 |damage."|:author$|
|00000130| 3d 22 a9 20 4a 61 72 69 | 20 4b 75 68 61 6e 65 6e |=". Jari| Kuhanen|
|00000140| 22 3a 76 65 72 73 69 6f | 6e 24 3d 22 31 2e 30 30 |":versio|n$="1.00|
|00000150| 20 28 31 30 2d 4d 61 79 | 2d 31 39 39 32 29 22 0d | (10-May|-1992)".|
|00000160| 00 50 3e c8 99 22 57 69 | 6d 70 5f 49 6e 69 74 69 |.P>.."Wi|mp_Initi|
|00000170| 61 6c 69 73 65 22 2c 32 | 30 30 2c 21 62 6c 6f 63 |alise",2|00,!bloc|
|00000180| 6b 25 2c 22 21 54 65 72 | 6d 37 43 6f 73 74 22 20 |k%,"!Ter|m7Cost" |
|00000190| b8 20 76 65 72 73 25 2c | 74 61 73 6b 25 0d 00 5a |. vers%,|task%..Z|
|000001a0| 21 c8 99 22 57 69 6d 70 | 5f 43 6c 61 69 6d 49 6e |!.."Wimp|_ClaimIn|
|000001b0| 74 65 72 66 61 63 65 22 | 2c 74 61 73 6b 25 0d 00 |terface"|,task%..|
|000001c0| 64 35 c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 |d5.."Wim|p_OpenTe|
|000001d0| 6d 70 6c 61 74 65 22 2c | 2c 22 3c 54 65 72 6d 43 |mplate",|,"<TermC|
|000001e0| 6f 73 74 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |ost$Dir>|.Templat|
|000001f0| 65 73 22 0d 00 6e 3f c8 | 99 22 57 69 6d 70 5f 4c |es"..n?.|."Wimp_L|
|00000200| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|00000210| 6f 63 6b 25 2c 69 62 6c | 6f 63 6b 25 2c 69 62 6c |ock%,ibl|ock%,ibl|
|00000220| 6f 63 6b 25 2b 31 31 33 | 2c 2d 31 2c 22 43 6f 73 |ock%+113|,-1,"Cos|
|00000230| 74 22 0d 00 78 2c c8 99 | 22 57 69 6d 70 5f 43 72 |t"..x,..|"Wimp_Cr|
|00000240| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |eateWind|ow",,blo|
|00000250| 63 6b 25 20 b8 20 77 68 | 61 6e 64 6c 65 25 0d 00 |ck% . wh|andle%..|
|00000260| 82 41 c8 99 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |.A.."Wim|p_LoadTe|
|00000270| 6d 70 6c 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 2c |mplate",|,block%,|
|00000280| 69 6e 62 6c 6f 63 6b 25 | 2c 69 6e 62 6c 6f 63 6b |inblock%|,inblock|
|00000290| 25 2b 31 37 31 2c 2d 31 | 2c 22 69 6e 66 6f 22 0d |%+171,-1|,"info".|
|000002a0| 00 8c 2f c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |../.."Wi|mp_Creat|
|000002b0| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|000002c0| 20 b8 20 69 6e 66 6f 68 | 61 6e 64 6c 65 25 0d 00 | . infoh|andle%..|
|000002d0| 96 1a c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |...."Wim|p_CloseT|
|000002e0| 65 6d 70 6c 61 74 65 22 | 0d 00 a0 14 21 62 6c 6f |emplate"|....!blo|
|000002f0| 63 6b 25 3d 77 68 61 6e | 64 6c 65 25 0d 00 aa 23 |ck%=whan|dle%...#|
|00000300| c8 99 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |.."Wimp_|GetWindo|
|00000310| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00000320| 00 b4 1f c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |....."Wi|mp_OpenW|
|00000330| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 00 |indow",,|block%..|
|00000340| be 0b 71 75 69 74 25 3d | a3 0d 00 c8 25 f2 77 72 |..quit%=|....%.wr|
|00000350| 69 74 65 5f 69 63 6f 6e | 28 77 68 61 6e 64 6c 65 |ite_icon|(whandle|
|00000360| 25 2c 34 2c 22 30 20 63 | 61 6c 6c 73 22 29 0d 00 |%,4,"0 c|alls")..|
|00000370| d2 24 f2 77 72 69 74 65 | 5f 69 63 6f 6e 28 77 68 |.$.write|_icon(wh|
|00000380| 61 6e 64 6c 65 25 2c 35 | 2c 22 a3 20 30 2e 30 30 |andle%,5|,". 0.00|
|00000390| 22 29 0d 00 dc 05 f5 0d | 00 e6 23 c8 99 22 57 69 |")......|..#.."Wi|
|000003a0| 6d 70 5f 50 6f 6c 6c 22 | 2c 2c 62 6c 6f 63 6b 25 |mp_Poll"|,,block%|
|000003b0| 20 b8 20 72 65 61 73 6f | 6e 25 0d 00 f0 10 c8 8e | . reaso|n%......|
|000003c0| 20 72 65 61 73 6f 6e 25 | 20 ca 0d 00 fa 34 20 20 | reason%| ....4  |
|000003d0| 20 20 20 c9 20 31 20 3a | 20 c8 99 22 57 69 6d 70 |   . 1 :| .."Wimp|
|000003e0| 5f 52 65 64 72 61 77 57 | 69 6e 64 6f 77 22 2c 2c |_RedrawW|indow",,|
|000003f0| 62 6c 6f 63 6b 25 20 b8 | 20 66 6c 61 67 25 0d 01 |block% .| flag%..|
|00000400| 04 1e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000410| 20 20 20 20 c8 95 20 66 | 6c 61 67 25 0d 01 0e 39 |    .. f|lag%...9|
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000430| 20 20 20 20 20 20 20 20 | c8 99 22 57 69 6d 70 5f |        |.."Wimp_|
|00000440| 42 6f 72 64 65 72 57 69 | 6e 64 6f 77 22 2c 2c 62 |BorderWi|ndow",,b|
|00000450| 6c 6f 63 6b 25 0d 01 18 | 41 20 20 20 20 20 20 20 |lock%...|A       |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000470| 20 c8 99 22 57 69 6d 70 | 5f 47 65 74 52 65 63 74 | .."Wimp|_GetRect|
|00000480| 61 6e 67 6c 65 22 2c 2c | 62 6c 6f 63 6b 25 20 b8 |angle",,|block% .|
|00000490| 20 66 6c 61 67 25 0d 01 | 22 17 20 20 20 20 20 20 | flag%..|".      |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 ce 0d 01 2c |        |    ...,|
|000004b0| 2a 20 20 20 20 20 c9 20 | 32 20 3a 20 c8 99 22 57 |*     . |2 : .."W|
|000004c0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|000004d0| 2c 62 6c 6f 63 6b 25 0d | 01 36 16 20 20 20 20 20 |,block%.|.6.     |
|000004e0| c9 20 33 20 3a 20 71 75 | 69 74 25 3d b9 0d 01 40 |. 3 : qu|it%=...@|
|000004f0| 21 20 20 20 20 20 c9 20 | 36 20 3a 20 f2 62 75 74 |!     . |6 : .but|
|00000500| 74 6f 6e 73 28 62 6c 6f | 63 6b 25 21 38 29 0d 01 |tons(blo|ck%!8)..|
|00000510| 4a 23 20 20 20 20 20 c9 | 20 39 20 3a 20 f2 6d 65 |J#     .| 9 : .me|
|00000520| 6e 75 73 65 6c 65 63 74 | 28 21 62 6c 6f 63 6b 25 |nuselect|(!block%|
|00000530| 29 0d 01 54 1c 20 20 20 | 20 20 c9 20 31 37 2c 31 |)..T.   |  . 17,1|
|00000540| 38 20 3a 20 f2 6d 65 73 | 73 61 67 65 73 0d 01 5e |8 : .mes|sages..^|
|00000550| 05 cb 0d 01 68 0b fd 20 | 71 75 69 74 25 0d 01 72 |....h.. |quit%..r|
|00000560| 24 c8 99 22 57 69 6d 70 | 5f 52 65 6c 65 61 73 65 |$.."Wimp|_Release|
|00000570| 49 6e 74 65 72 66 61 63 | 65 22 2c 2c 74 61 73 6b |Interfac|e",,task|
|00000580| 25 0d 01 7c 23 c8 99 22 | 57 69 6d 70 5f 43 6c 6f |%..|#.."|Wimp_Clo|
|00000590| 73 65 44 6f 77 6e 22 2c | 74 61 73 6b 25 2c 22 54 |seDown",|task%,"T|
|000005a0| 41 53 4b 22 0d 01 86 05 | e0 0d 01 90 04 0d 01 9a |ASK"....|........|
|000005b0| 0e dd f2 6d 65 73 73 61 | 67 65 73 0d 01 a4 12 c8 |...messa|ges.....|
|000005c0| 8e 20 62 6c 6f 63 6b 25 | 21 31 36 20 ca 0d 01 ae |. block%|!16 ....|
|000005d0| 16 20 20 20 20 20 c9 20 | 30 20 3a 20 71 75 69 74 |.     . |0 : quit|
|000005e0| 25 3d b9 0d 01 b8 20 20 | 20 20 20 20 c9 20 33 20 |%=....  |    . 3 |
|000005f0| 3a 20 f2 69 64 65 6e 74 | 69 66 79 79 6f 75 72 73 |: .ident|ifyyours|
|00000600| 65 6c 66 0d 01 c2 05 cb | 0d 01 cc 05 e1 0d 01 d6 |elf.....|........|
|00000610| 04 0d 01 e0 16 dd f2 69 | 64 65 6e 74 69 66 79 79 |.......i|dentifyy|
|00000620| 6f 75 72 73 65 6c 66 0d | 01 ea 29 e7 20 62 6c 6f |ourself.|..). blo|
|00000630| 63 6b 25 21 34 30 3d 26 | 46 46 46 20 f2 69 6e 76 |ck%!40=&|FFF .inv|
|00000640| 65 73 74 69 67 61 74 65 | 5f 66 75 72 74 68 65 72 |estigate|_further|
|00000650| 0d 01 f4 05 e1 0d 01 fe | 04 0d 02 08 19 dd f2 69 |........|.......i|
|00000660| 6e 76 65 73 74 69 67 61 | 74 65 5f 66 75 72 74 68 |nvestiga|te_furth|
|00000670| 65 72 0d 02 12 13 f2 67 | 65 74 5f 69 74 65 6d 73 |er.....g|et_items|
|00000680| 5f 70 61 74 68 0d 02 1c | 09 ee 20 85 20 e0 0d 02 |_path...|.. . ...|
|00000690| 26 12 76 65 72 24 3d c2 | 70 61 74 68 24 2c 37 29 |&.ver$=.|path$,7)|
|000006a0| 0d 02 30 3e e7 20 76 65 | 72 24 3c 3e 22 43 61 6c |..0>. ve|r$<>"Cal|
|000006b0| 6c 4c 6f 67 22 20 f2 65 | 72 72 6f 72 28 22 54 68 |lLog" .e|rror("Th|
|000006c0| 69 73 20 69 73 20 6e 6f | 74 20 61 20 63 61 6c 6c |is is no|t a call|
|000006d0| 20 6c 6f 67 20 66 69 6c | 65 21 22 29 3a e1 0d 02 | log fil|e!"):...|
|000006e0| 3a 40 ee 20 85 20 f2 65 | 72 72 6f 72 28 22 43 61 |:@. . .e|rror("Ca|
|000006f0| 6c 6c 4c 6f 67 20 66 69 | 6c 65 20 68 61 73 20 62 |llLog fi|le has b|
|00000700| 65 65 6e 20 63 6f 72 72 | 75 70 74 65 64 20 73 6f |een corr|upted so|
|00000710| 6d 65 20 68 6f 77 22 29 | 3a d9 23 58 3a e0 0d 02 |me how")|:.#X:...|
|00000720| 44 0d 58 3d 8e 20 70 61 | 74 68 24 0d 02 4e 1a e3 |D.X=. pa|th$..N..|
|00000730| 20 52 3d 31 20 b8 20 32 | 30 39 3a 63 68 61 72 3d | R=1 . 2|09:char=|
|00000740| 9a 23 58 3a ed 0d 02 58 | 17 6e 3d 31 3a 74 63 6f |.#X:...X|.n=1:tco|
|00000750| 73 74 24 3d 22 a3 20 30 | 2e 30 30 22 0d 02 62 05 |st$=". 0|.00"..b.|
|00000760| f5 0d 02 6c 1a e3 20 52 | 3d 31 20 b8 20 31 32 38 |...l.. R|=1 . 128|
|00000770| 3a 63 68 61 72 3d 9a 23 | 58 3a ed 0d 02 76 2a e3 |:char=.#|X:...v*.|
|00000780| 20 52 3d 31 20 b8 20 36 | 3a 63 68 61 72 3d 9a 23 | R=1 . 6|:char=.#|
|00000790| 58 3a 63 61 6c 63 24 28 | 6e 29 2b 3d bd 28 63 68 |X:calc$(|n)+=.(ch|
|000007a0| 61 72 29 3a ed 0d 02 80 | 08 6e 2b 3d 31 0d 02 8a |ar):....|.n+=1...|
|000007b0| 0a fd 20 c5 23 58 3a 0d | 02 94 0e d9 23 58 3a 63 |.. .#X:.|....#X:c|
|000007c0| 6f 73 74 3d 30 0d 02 9e | 25 ee 20 85 20 f2 65 72 |ost=0...|%. . .er|
|000007d0| 72 6f 72 28 f6 24 2b 22 | 20 61 74 20 6c 69 6e 65 |ror(.$+"| at line|
|000007e0| 20 22 2b c3 28 9e 29 29 | 3a e0 0d 02 a8 2f e3 20 | "+.(.))|:..../. |
|000007f0| 52 3d 31 20 b8 20 6e 3a | 63 68 24 3d c0 63 61 6c |R=1 . n:|ch$=.cal|
|00000800| 63 24 28 52 29 2c 32 29 | 3a 63 6d 24 3d c2 63 61 |c$(R),2)|:cm$=.ca|
|00000810| 6c 63 24 28 52 29 2c 33 | 29 0d 02 b2 1e 63 74 24 |lc$(R),3|)....ct$|
|00000820| 3d 63 68 24 2b 63 6d 24 | 3a 63 6f 73 74 2b 3d bb |=ch$+cm$|:cost+=.|
|00000830| 28 63 74 24 29 3a ed 0d | 02 bc 12 74 63 6f 73 74 |(ct$):..|...tcost|
|00000840| 24 3d c3 28 63 6f 73 74 | 29 0d 02 c6 23 e7 20 a9 |$=.(cost|)...#. .|
|00000850| 20 74 63 6f 73 74 24 3d | 31 20 74 63 6f 73 74 24 | tcost$=|1 tcost$|
|00000860| 3d 22 30 30 22 2b 74 63 | 6f 73 74 24 0d 02 d0 22 |="00"+tc|ost$..."|
|00000870| e7 20 a9 20 74 63 6f 73 | 74 24 3d 32 20 74 63 6f |. . tcos|t$=2 tco|
|00000880| 73 74 24 3d 22 30 22 2b | 74 63 6f 73 74 24 0d 02 |st$="0"+|tcost$..|
|00000890| da 14 6c 65 6e 67 74 68 | 3d a9 28 74 63 6f 73 74 |..length|=.(tcost|
|000008a0| 24 29 0d 02 e4 19 74 6c | 24 3d c0 74 63 6f 73 74 |$)....tl|$=.tcost|
|000008b0| 24 2c 6c 65 6e 67 74 68 | 2d 32 29 0d 02 ee 13 74 |$,length|-2)....t|
|000008c0| 6c 6c 24 3d c2 74 63 6f | 73 74 24 2c 32 29 0d 02 |ll$=.tco|st$,2)..|
|000008d0| f8 1c 74 63 6f 73 74 24 | 3d 22 a3 20 22 2b 74 6c |..tcost$|=". "+tl|
|000008e0| 24 2b 22 2e 22 2b 74 6c | 6c 24 0d 03 02 22 f2 77 |$+"."+tl|l$...".w|
|000008f0| 72 69 74 65 5f 69 63 6f | 6e 28 77 68 61 6e 64 6c |rite_ico|n(whandl|
|00000900| 65 25 2c 34 2c c3 28 6e | 2d 31 29 29 0d 03 0c 22 |e%,4,.(n|-1))..."|
|00000910| f2 77 72 69 74 65 5f 69 | 63 6f 6e 28 77 68 61 6e |.write_i|con(whan|
|00000920| 64 6c 65 25 2c 35 2c 74 | 63 6f 73 74 24 29 0d 03 |dle%,5,t|cost$)..|
|00000930| 16 1d e3 20 72 3d 31 20 | b8 20 6e 2d 31 3a 63 61 |... r=1 |. n-1:ca|
|00000940| 6c 63 24 28 72 29 3d 22 | 22 3a ed 0d 03 20 05 e1 |lc$(r)="|":... ..|
|00000950| 0d 03 2a 04 0d 03 34 14 | dd f2 67 65 74 5f 69 74 |..*...4.|..get_it|
|00000960| 65 6d 73 5f 70 61 74 68 | 0d 03 3e 41 61 25 3d 62 |ems_path|..>Aa%=b|
|00000970| 6c 6f 63 6b 25 2b 34 34 | 3a 70 61 74 68 24 3d 22 |lock%+44|:path$="|
|00000980| 22 3a c8 95 20 3f 61 25 | 3c 3e 30 20 80 20 3f 61 |":.. ?a%|<>0 . ?a|
|00000990| 25 3c 3e 31 33 3a 70 61 | 74 68 24 2b 3d bd 3f 61 |%<>13:pa|th$+=.?a|
|000009a0| 25 3a 61 25 2b 3d 31 3a | ce 0d 03 48 05 e1 0d 03 |%:a%+=1:|...H....|
|000009b0| 52 04 0d 03 5c 27 dd f2 | 77 72 69 74 65 5f 69 63 |R...\'..|write_ic|
|000009c0| 6f 6e 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |on(windo|w%,icon%|
|000009d0| 2c 73 74 72 69 6e 67 24 | 29 0d 03 66 13 21 62 6c |,string$|)..f.!bl|
|000009e0| 6f 63 6b 25 3d 77 69 6e | 64 6f 77 25 0d 03 70 12 |ock%=win|dow%..p.|
|000009f0| 62 6c 6f 63 6b 25 21 34 | 3d 69 63 6f 6e 25 0d 03 |block%!4|=icon%..|
|00000a00| 7a 21 c8 99 22 57 69 6d | 70 5f 47 65 74 49 63 6f |z!.."Wim|p_GetIco|
|00000a10| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |nState",|,block%.|
|00000a20| 03 84 27 24 28 62 6c 6f | 63 6b 25 21 32 38 29 3d |..'$(blo|ck%!28)=|
|00000a30| 73 74 72 69 6e 67 24 3a | 62 6c 6f 63 6b 25 21 34 |string$:|block%!4|
|00000a40| 3d 69 63 6f 6e 25 0d 03 | 8e 1a 62 6c 6f 63 6b 25 |=icon%..|..block%|
|00000a50| 21 38 3d 30 3a 62 6c 6f | 63 6b 25 21 31 32 3d 30 |!8=0:blo|ck%!12=0|
|00000a60| 0d 03 98 21 c8 99 22 57 | 69 6d 70 5f 53 65 74 49 |...!.."W|imp_SetI|
|00000a70| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00000a80| 25 0d 03 a2 05 e1 0d 03 | ac 04 0d 03 b6 15 dd f2 |%.......|........|
|00000a90| 65 72 72 6f 72 28 6d 65 | 73 73 61 67 65 24 29 0d |error(me|ssage$).|
|00000aa0| 03 c0 28 21 62 6c 6f 63 | 6b 25 3d 65 72 72 25 3a |..(!bloc|k%=err%:|
|00000ab0| 24 28 62 6c 6f 63 6b 25 | 2b 34 29 3d 6d 65 73 73 |$(block%|+4)=mess|
|00000ac0| 61 67 65 24 2b bd 30 0d | 03 ca 34 c8 99 22 57 69 |age$+.0.|..4.."Wi|
|00000ad0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00000ae0| 62 6c 6f 63 6b 25 2c 30 | 2c 22 21 54 65 72 6d 37 |block%,0|,"!Term7|
|00000af0| 43 6f 73 74 22 20 b8 20 | 2c 67 25 0d 03 d4 12 e7 |Cost" . |,g%.....|
|00000b00| 20 67 25 3c 3e 31 20 8c | 20 8d 74 58 43 0d 03 de | g%<>1 .| .tXC...|
|00000b10| 05 e1 0d 03 e8 04 0d 03 | f2 14 dd f2 62 75 74 74 |........|....butt|
|00000b20| 6f 6e 73 28 62 75 74 73 | 25 29 0d 03 fc 0e c8 8e |ons(buts|%)......|
|00000b30| 20 62 75 74 73 25 20 ca | 0d 04 06 26 20 20 20 20 | buts% .|...&    |
|00000b40| c9 20 32 20 3a 20 20 20 | 24 28 6d 65 6e 75 25 2b |. 2 :   |$(menu%+|
|00000b50| 30 29 3d 22 54 65 72 6d | 37 43 6f 73 74 22 0d 04 |0)="Term|7Cost"..|
|00000b60| 10 4b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.K      |        |
|00000b70| 20 6d 65 6e 75 25 3f 31 | 32 3d 37 3a 6d 65 6e 75 | menu%?1|2=7:menu|
|00000b80| 25 3f 31 33 3d 32 3a 6d | 65 6e 75 25 3f 31 34 3d |%?13=2:m|enu%?14=|
|00000b90| 37 3a 6d 65 6e 75 25 3f | 31 35 3d 30 3a 6d 65 6e |7:menu%?|15=0:men|
|00000ba0| 75 25 21 31 36 3d 31 30 | 30 0d 04 1a 29 20 20 20 |u%!16=10|0...)   |
|00000bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 65 6e 75 |        |    menu|
|00000bc0| 25 21 32 30 3d 34 30 3a | 6d 65 6e 75 25 21 32 34 |%!20=40:|menu%!24|
|00000bd0| 3d 30 0d 04 24 20 20 20 | 20 20 20 20 20 20 20 20 |=0..$   |        |
|00000be0| 20 20 20 20 20 70 74 72 | 25 3d 6d 65 6e 75 25 2b |     ptr|%=menu%+|
|00000bf0| 32 38 0d 04 2e 51 20 20 | 20 20 20 20 20 20 20 20 |28...Q  |        |
|00000c00| 20 20 20 20 20 21 70 74 | 72 25 3d 26 30 30 3a 70 |     !pt|r%=&00:p|
|00000c10| 74 72 25 21 34 3d 69 6e | 66 6f 68 61 6e 64 6c 65 |tr%!4=in|fohandle|
|00000c20| 25 3a 70 74 72 25 21 38 | 3d 26 37 30 30 30 30 32 |%:ptr%!8|=&700002|
|00000c30| 31 3a 24 28 70 74 72 25 | 2b 31 32 29 3d 22 49 6e |1:$(ptr%|+12)="In|
|00000c40| 66 6f 22 0d 04 38 1f 20 | 20 20 20 20 20 20 20 20 |fo"..8. |        |
|00000c50| 20 20 20 20 20 20 70 74 | 72 25 3d 70 74 72 25 2b |      pt|r%=ptr%+|
|00000c60| 32 34 0d 04 42 48 20 20 | 20 20 20 20 20 20 20 20 |24..BH  |        |
|00000c70| 20 20 20 20 20 21 70 74 | 72 25 3d 26 38 30 3a 70 |     !pt|r%=&80:p|
|00000c80| 74 72 25 21 34 3d 2d 31 | 3a 70 74 72 25 21 38 3d |tr%!4=-1|:ptr%!8=|
|00000c90| 26 37 30 30 30 30 32 31 | 3a 24 28 70 74 72 25 2b |&7000021|:$(ptr%+|
|00000ca0| 31 32 29 3d 22 51 75 69 | 74 22 0d 04 4c 32 20 20 |12)="Qui|t"..L2  |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 c8 99 22 |        |     .."|
|00000cc0| 57 69 6d 70 5f 47 65 74 | 50 6f 69 6e 74 65 72 49 |Wimp_Get|PointerI|
|00000cd0| 6e 66 6f 22 2c 2c 62 6c | 6f 63 6b 25 0d 04 56 52 |nfo",,bl|ock%..VR|
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 c8 |        |       .|
|00000cf0| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e |."Wimp_C|reateMen|
|00000d00| 75 22 2c 2d 31 2c 6d 65 | 6e 75 25 2c 62 6c 6f 63 |u",-1,me|nu%,bloc|
|00000d10| 6b 25 21 30 2c 62 6c 6f | 63 6b 25 21 34 3a 21 62 |k%!0,blo|ck%!4:!b|
|00000d20| 6c 6f 63 6b 25 3d 77 68 | 61 6e 64 6c 65 25 0d 04 |lock%=wh|andle%..|
|00000d30| 60 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |`3      |        |
|00000d40| 20 f2 77 72 69 74 65 5f | 69 63 6f 6e 28 69 6e 66 | .write_|icon(inf|
|00000d50| 6f 68 61 6e 64 6c 65 25 | 2c 30 2c 6e 61 6d 65 24 |ohandle%|,0,name$|
|00000d60| 29 0d 04 6a 36 20 20 20 | 20 20 20 20 20 20 20 20 |)..j6   |        |
|00000d70| 20 20 20 20 f2 77 72 69 | 74 65 5f 69 63 6f 6e 28 |    .wri|te_icon(|
|00000d80| 69 6e 66 6f 68 61 6e 64 | 6c 65 25 2c 31 2c 70 75 |infohand|le%,1,pu|
|00000d90| 72 70 6f 73 65 24 29 0d | 04 74 35 20 20 20 20 20 |rpose$).|.t5     |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 f2 77 72 69 74 65 |        |  .write|
|00000db0| 5f 69 63 6f 6e 28 69 6e | 66 6f 68 61 6e 64 6c 65 |_icon(in|fohandle|
|00000dc0| 25 2c 32 2c 61 75 74 68 | 6f 72 24 29 0d 04 7e 36 |%,2,auth|or$)..~6|
|00000dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |        |       .|
|00000de0| 77 72 69 74 65 5f 69 63 | 6f 6e 28 69 6e 66 6f 68 |write_ic|on(infoh|
|00000df0| 61 6e 64 6c 65 25 2c 33 | 2c 76 65 72 73 69 6f 6e |andle%,3|,version|
|00000e00| 24 29 0d 04 88 05 cb 0d | 04 92 05 e1 0d 04 9c 14 |$)......|........|
|00000e10| dd f2 6d 65 6e 75 73 65 | 6c 65 63 74 28 62 25 29 |..menuse|lect(b%)|
|00000e20| 0d 04 a6 0b c8 8e 20 62 | 25 20 ca 0d 04 b0 16 20 |...... b|% ..... |
|00000e30| 20 20 20 20 c9 20 31 20 | 3a 20 71 75 69 74 25 3d |    . 1 |: quit%=|
|00000e40| b9 0d 04 ba 05 cb 0d 04 | c4 05 e1 0d ff          |........|.....   |
+--------+-------------------------+-------------------------+--------+--------+