/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / _vat_calc / !VAT_Calc / !RunImage

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1d f4 20 56 41 | 54 5f 43 61 6c 63 20 21 |..... VA|T_Calc !|
|00000010| 52 75 6e 49 6d 61 67 65 | 20 63 6f 64 65 0d 00 14 |RunImage| code...|
|00000020| 1a f4 20 57 72 69 74 74 | 65 6e 20 62 79 20 54 69 |.. Writt|en by Ti|
|00000030| 6d 20 57 69 73 65 72 0d | 00 1e 21 f4 20 4f 6e 20 |m Wiser.|..!. On |
|00000040| 63 6f 6d 6d 61 6e 64 20 | 6f 66 20 52 69 63 68 61 |command |of Richa|
|00000050| 72 64 20 50 65 61 63 68 | 0d 00 28 20 f4 20 55 70 |rd Peach|..( . Up|
|00000060| 64 61 74 65 64 20 76 65 | 72 73 69 6f 6e 3a 20 31 |dated ve|rsion: 1|
|00000070| 31 2f 31 32 2f 39 32 2e | 0d 00 32 18 f4 20 54 68 |1/12/92.|..2.. Th|
|00000080| 69 73 20 76 65 72 73 69 | 6f 6e 3a 20 32 2e 32 35 |is versi|on: 2.25|
|00000090| 0d 00 3c 05 f4 0d 00 46 | 18 c8 9b 20 22 3c 4f 62 |..<....F|... "<Ob|
|000000a0| 65 79 24 44 69 72 3e 2e | 57 69 6d 70 22 0d 00 50 |ey$Dir>.|Wimp"..P|
|000000b0| 2a f2 57 69 6d 70 5f 53 | 74 61 72 74 28 22 56 41 |*.Wimp_S|tart("VA|
|000000c0| 54 20 43 61 6c 63 75 6c | 61 74 6f 72 22 2c 31 32 |T Calcul|ator",12|
|000000d0| 30 31 2c 38 31 30 29 0d | 00 5a 18 f2 55 73 65 72 |01,810).|.Z..User|
|000000e0| 5f 53 65 74 49 6e 69 74 | 69 61 6c 44 61 74 61 0d |_SetInit|ialData.|
|000000f0| 00 64 13 f2 43 72 65 61 | 74 65 5f 57 69 6e 64 6f |.d..Crea|te_Windo|
|00000100| 77 73 0d 00 6e 11 f2 43 | 72 65 61 74 65 5f 4d 65 |ws..n..C|reate_Me|
|00000110| 6e 75 73 0d 00 78 16 f2 | 57 69 6d 70 5f 57 61 69 |nus..x..|Wimp_Wai|
|00000120| 74 46 6f 72 45 76 65 6e | 74 0d 00 82 13 f2 57 69 |tForEven|t.....Wi|
|00000130| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 0d 00 8c 05 |mp_Close|Down....|
|00000140| e0 0d 00 96 05 3a 0d 00 | a0 1a dd 20 f2 55 73 65 |.....:..|... .Use|
|00000150| 72 5f 53 65 74 49 6e 69 | 74 69 61 6c 44 61 74 61 |r_SetIni|tialData|
|00000160| 0d 00 aa 10 69 6e 74 65 | 72 66 61 63 65 25 3d b9 |....inte|rface%=.|
|00000170| 0d 00 b4 05 e1 0d 00 be | 05 3a 0d 00 c8 15 dd 20 |........|.:..... |
|00000180| f2 43 72 65 61 74 65 5f | 57 69 6e 64 6f 77 73 0d |.Create_|Windows.|
|00000190| 00 d2 2f 69 6e 66 6f 62 | 6f 78 5f 57 69 6e 64 6f |../infob|ox_Windo|
|000001a0| 77 25 3d a4 57 69 6d 70 | 5f 57 69 6e 64 6f 77 4c |w%=.Wimp|_WindowL|
|000001b0| 6f 61 64 28 22 69 6e 66 | 6f 62 6f 78 22 29 0d 00 |oad("inf|obox")..|
|000001c0| dc 2f 64 69 73 70 6c 61 | 79 5f 57 69 6e 64 6f 77 |./displa|y_Window|
|000001d0| 25 3d a4 57 69 6d 70 5f | 57 69 6e 64 6f 77 4c 6f |%=.Wimp_|WindowLo|
|000001e0| 61 64 28 22 64 69 73 70 | 6c 61 79 22 29 0d 00 e6 |ad("disp|lay")...|
|000001f0| 28 42 61 72 5f 49 63 6f | 6e 25 3d a4 57 69 6d 70 |(Bar_Ico|n%=.Wimp|
|00000200| 5f 49 63 6f 6e 42 61 72 | 28 22 21 56 41 54 5f 43 |_IconBar|("!VAT_C|
|00000210| 61 6c 63 22 29 0d 00 f0 | 05 e1 0d 00 fa 05 3a 0d |alc")...|......:.|
|00000220| 01 04 1c dd 20 a4 45 76 | 65 6e 74 5f 53 61 76 65 |.... .Ev|ent_Save|
|00000230| 28 77 69 6e 64 6f 77 25 | 29 3d a3 0d 01 0e 05 3a |(window%|)=.....:|
|00000240| 0d 01 18 26 dd 20 a4 45 | 76 65 6e 74 5f 53 70 72 |...&. .E|vent_Spr|
|00000250| 69 74 65 73 28 77 69 6e | 64 6f 77 25 29 3d 73 70 |ites(win|dow%)=sp|
|00000260| 72 69 74 65 73 25 0d 01 | 22 05 3a 0d 01 2c 13 dd |rites%..|".:..,..|
|00000270| 20 f2 43 72 65 61 74 65 | 5f 4d 65 6e 75 73 0d 01 | .Create|_Menus..|
|00000280| 36 44 42 61 72 5f 4d 65 | 6e 75 25 3d a4 57 69 6d |6DBar_Me|nu%=.Wim|
|00000290| 70 5f 4d 65 6e 75 43 72 | 65 61 74 65 28 22 56 41 |p_MenuCr|eate("VA|
|000002a0| 54 20 43 61 6c 63 5c 49 | 6e 66 6f 3e 69 6e 66 6f |T Calc\I|nfo>info|
|000002b0| 62 6f 78 5f 57 69 6e 64 | 6f 77 25 5c 51 75 69 74 |box_Wind|ow%\Quit|
|000002c0| 22 29 0d 01 40 4e 64 69 | 73 70 6c 61 79 5f 4d 65 |")..@Ndi|splay_Me|
|000002d0| 6e 75 25 3d a4 57 69 6d | 70 5f 4d 65 6e 75 43 72 |nu%=.Wim|p_MenuCr|
|000002e0| 65 61 74 65 28 22 56 41 | 54 20 43 61 6c 63 5c 49 |eate("VA|T Calc\I|
|000002f0| 6e 66 6f 3e 69 6e 66 6f | 62 6f 78 5f 57 69 6e 64 |nfo>info|box_Wind|
|00000300| 6f 77 25 5c 43 6c 65 61 | 72 5c 51 75 69 74 22 29 |ow%\Clea|r\Quit")|
|00000310| 0d 01 4a 05 e1 0d 01 54 | 05 3a 0d 01 5e 1a dd 20 |..J....T|.:..^.. |
|00000320| a4 45 76 65 6e 74 5f 4d | 65 6e 75 28 77 69 6e 64 |.Event_M|enu(wind|
|00000330| 6f 77 25 29 0d 01 68 10 | c8 8e 20 77 69 6e 64 6f |ow%)..h.|.. windo|
|00000340| 77 25 20 ca 0d 01 72 25 | c9 20 42 61 72 5f 57 69 |w% ...r%|. Bar_Wi|
|00000350| 6e 64 6f 77 25 20 20 20 | 20 20 20 20 20 3a 20 3d |ndow%   |     : =|
|00000360| 42 61 72 5f 4d 65 6e 75 | 25 0d 01 7c 29 c9 20 64 |Bar_Menu|%..|). d|
|00000370| 69 73 70 6c 61 79 5f 57 | 69 6e 64 6f 77 25 20 20 |isplay_W|indow%  |
|00000380| 20 20 3a 20 3d 64 69 73 | 70 6c 61 79 5f 4d 65 6e |  : =dis|play_Men|
|00000390| 75 25 0d 01 86 18 7f 20 | 20 20 20 20 20 20 20 20 |u%..... |        |
|000003a0| 20 20 20 20 20 20 3a 20 | 3d a3 0d 01 90 05 cb 0d |      : |=.......|
|000003b0| 01 9a 05 3a 0d 01 a4 2a | dd 20 f2 45 76 65 6e 74 |...:...*|. .Event|
|000003c0| 5f 57 69 6e 64 6f 77 43 | 6c 6f 73 65 28 77 69 6e |_WindowC|lose(win|
|000003d0| 64 6f 77 25 2c 62 75 74 | 74 6f 6e 73 25 29 0d 01 |dow%,but|tons%)..|
|000003e0| ae 10 c8 8e 20 77 69 6e | 64 6f 77 25 20 ca 0d 01 |.... win|dow% ...|
|000003f0| b8 05 cb 0d 01 c2 05 e1 | 0d 01 cc 05 3a 0d 01 d6 |........|....:...|
|00000400| 2e dd 20 f2 45 76 65 6e | 74 5f 44 72 61 77 28 77 |.. .Even|t_Draw(w|
|00000410| 69 6e 64 6f 77 25 2c 78 | 5f 6f 72 69 67 69 6e 25 |indow%,x|_origin%|
|00000420| 2c 79 5f 6f 72 69 67 69 | 6e 25 29 0d 01 e0 10 c8 |,y_origi|n%).....|
|00000430| 8e 20 77 69 6e 64 6f 77 | 25 20 ca 0d 01 ea 33 c9 |. window|% ....3.|
|00000440| 20 69 6e 66 6f 62 6f 78 | 5f 57 69 6e 64 6f 77 25 | infobox|_Window%|
|00000450| 20 20 20 20 20 3a 20 f2 | 55 73 65 72 5f 44 72 61 |     : .|User_Dra|
|00000460| 77 69 6e 66 6f 62 6f 78 | 57 69 6e 64 6f 77 0d 01 |winfobox|Window..|
|00000470| f4 33 c9 20 64 69 73 70 | 6c 61 79 5f 57 69 6e 64 |.3. disp|lay_Wind|
|00000480| 6f 77 25 20 20 20 20 20 | 3a 20 f2 55 73 65 72 5f |ow%     |: .User_|
|00000490| 44 72 61 77 64 69 73 70 | 6c 61 79 57 69 6e 64 6f |Drawdisp|layWindo|
|000004a0| 77 0d 01 fe 05 cb 0d 02 | 08 05 e1 0d 02 12 05 3a |w.......|.......:|
|000004b0| 0d 02 1c 1d dd 20 f2 55 | 73 65 72 5f 44 72 61 77 |..... .U|ser_Draw|
|000004c0| 69 6e 66 6f 62 6f 78 57 | 69 6e 64 6f 77 0d 02 26 |infoboxW|indow..&|
|000004d0| 05 e1 0d 02 30 05 3a 0d | 02 3a 1d dd 20 f2 55 73 |....0.:.|.:.. .Us|
|000004e0| 65 72 5f 44 72 61 77 64 | 69 73 70 6c 61 79 57 69 |er_Drawd|isplayWi|
|000004f0| 6e 64 6f 77 0d 02 44 05 | e1 0d 02 4e 05 3a 0d 02 |ndow..D.|...N.:..|
|00000500| 58 34 dd 20 f2 45 76 65 | 6e 74 5f 4d 6f 75 73 65 |X4. .Eve|nt_Mouse|
|00000510| 43 6c 69 63 6b 28 77 69 | 6e 64 6f 77 25 2c 69 63 |Click(wi|ndow%,ic|
|00000520| 6f 6e 25 2c 62 75 74 74 | 6f 6e 25 2c 78 25 2c 79 |on%,butt|on%,x%,y|
|00000530| 25 29 0d 02 62 10 c8 8e | 20 77 69 6e 64 6f 77 25 |%)..b...| window%|
|00000540| 20 ca 0d 02 6c 29 c9 20 | 42 61 72 5f 57 69 6e 64 | ...l). |Bar_Wind|
|00000550| 6f 77 25 20 20 20 20 20 | 20 20 20 3a 20 f2 55 73 |ow%     |   : .Us|
|00000560| 65 72 5f 4d 6f 75 73 65 | 42 61 72 0d 02 76 3d c9 |er_Mouse|Bar..v=.|
|00000570| 20 64 69 73 70 6c 61 79 | 5f 57 69 6e 64 6f 77 25 | display|_Window%|
|00000580| 20 20 20 20 3a 20 f2 55 | 73 65 72 5f 4d 6f 75 73 |    : .U|ser_Mous|
|00000590| 65 64 69 73 70 6c 61 79 | 28 20 62 75 74 74 6f 6e |edisplay|( button|
|000005a0| 25 2c 69 63 6f 6e 25 29 | 0d 02 80 05 cb 0d 02 8a |%,icon%)|........|
|000005b0| 05 e1 0d 02 94 05 3a 0d | 02 9e 14 dd 20 f2 55 73 |......:.|.... .Us|
|000005c0| 65 72 5f 4d 6f 75 73 65 | 42 61 72 0d 02 a8 25 f2 |er_Mouse|Bar...%.|
|000005d0| 57 69 6d 70 5f 57 69 6e | 64 6f 77 4f 70 65 6e 28 |Wimp_Win|dowOpen(|
|000005e0| 64 69 73 70 6c 61 79 5f | 57 69 6e 64 6f 77 25 29 |display_|Window%)|
|000005f0| 0d 02 b2 05 e1 0d 02 bc | 05 3a 0d 02 c6 28 dd 20 |........|.:...(. |
|00000600| f2 55 73 65 72 5f 4d 6f | 75 73 65 64 69 73 70 6c |.User_Mo|usedispl|
|00000610| 61 79 28 20 62 75 74 74 | 6f 6e 25 2c 69 63 6f 6e |ay( butt|on%,icon|
|00000620| 25 29 0d 02 d0 19 e7 20 | 69 63 6f 6e 25 3d 37 20 |%)..... |icon%=7 |
|00000630| 20 f2 63 61 6c 63 75 6c | 61 74 65 0d 02 da 1a e7 | .calcul|ate.....|
|00000640| 20 69 63 6f 6e 25 3d 31 | 32 20 f2 63 6c 65 61 72 | icon%=1|2 .clear|
|00000650| 69 63 6f 6e 73 0d 02 e4 | 05 e1 0d 02 ee 05 3a 0d |icons...|......:.|
|00000660| 02 f8 29 dd 20 f2 45 76 | 65 6e 74 5f 4b 65 79 50 |..). .Ev|ent_KeyP|
|00000670| 72 65 73 73 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |ress(win|dow%,ico|
|00000680| 6e 25 2c 6b 65 79 25 29 | 0d 03 02 10 c8 8e 20 77 |n%,key%)|...... w|
|00000690| 69 6e 64 6f 77 25 20 ca | 0d 03 0c 3d c9 20 64 69 |indow% .|...=. di|
|000006a0| 73 70 6c 61 79 5f 57 69 | 6e 64 6f 77 25 20 20 20 |splay_Wi|ndow%   |
|000006b0| 20 3a 20 f2 55 73 65 72 | 5f 4b 65 79 50 72 65 73 | : .User|_KeyPres|
|000006c0| 73 64 69 73 70 6c 61 79 | 28 20 69 63 6f 6e 25 2c |sdisplay|( icon%,|
|000006d0| 6b 65 79 25 29 0d 03 16 | 05 cb 0d 03 20 05 e1 0d |key%)...|.... ...|
|000006e0| 03 2a 05 3a 0d 03 34 28 | dd 20 f2 55 73 65 72 5f |.*.:..4(|. .User_|
|000006f0| 4b 65 79 50 72 65 73 73 | 64 69 73 70 6c 61 79 28 |KeyPress|display(|
|00000700| 20 69 63 6f 6e 25 2c 6b | 65 79 25 29 0d 03 3e 3d | icon%,k|ey%)..>=|
|00000710| e7 20 69 63 6f 6e 25 3d | 33 20 80 20 6b 65 79 25 |. icon%=|3 . key%|
|00000720| 3d 31 33 20 20 f2 57 69 | 6d 70 5f 49 63 6f 6e 43 |=13  .Wi|mp_IconC|
|00000730| 61 72 65 74 28 64 69 73 | 70 6c 61 79 5f 57 69 6e |aret(dis|play_Win|
|00000740| 64 6f 77 25 2c 36 2c 30 | 29 0d 03 48 23 e7 20 69 |dow%,6,0|)..H#. i|
|00000750| 63 6f 6e 25 3d 36 20 80 | 20 6b 65 79 25 3d 31 33 |con%=6 .| key%=13|
|00000760| 20 20 f2 63 61 6c 63 75 | 6c 61 74 65 0d 03 52 3d |  .calcu|late..R=|
|00000770| e7 20 69 63 6f 6e 25 3d | 33 20 80 20 6b 65 79 25 |. icon%=|3 . key%|
|00000780| 3d 33 39 39 20 f2 57 69 | 6d 70 5f 49 63 6f 6e 43 |=399 .Wi|mp_IconC|
|00000790| 61 72 65 74 28 64 69 73 | 70 6c 61 79 5f 57 69 6e |aret(dis|play_Win|
|000007a0| 64 6f 77 25 2c 36 2c 30 | 29 0d 03 5c 3d e7 20 69 |dow%,6,0|)..\=. i|
|000007b0| 63 6f 6e 25 3d 36 20 80 | 20 6b 65 79 25 3d 33 39 |con%=6 .| key%=39|
|000007c0| 39 20 f2 57 69 6d 70 5f | 49 63 6f 6e 43 61 72 65 |9 .Wimp_|IconCare|
|000007d0| 74 28 64 69 73 70 6c 61 | 79 5f 57 69 6e 64 6f 77 |t(displa|y_Window|
|000007e0| 25 2c 33 2c 30 29 0d 03 | 66 3d e7 20 69 63 6f 6e |%,3,0)..|f=. icon|
|000007f0| 25 3d 33 20 80 20 6b 65 | 79 25 3d 33 39 38 20 f2 |%=3 . ke|y%=398 .|
|00000800| 57 69 6d 70 5f 49 63 6f | 6e 43 61 72 65 74 28 64 |Wimp_Ico|nCaret(d|
|00000810| 69 73 70 6c 61 79 5f 57 | 69 6e 64 6f 77 25 2c 36 |isplay_W|indow%,6|
|00000820| 2c 30 29 0d 03 70 3d e7 | 20 69 63 6f 6e 25 3d 36 |,0)..p=.| icon%=6|
|00000830| 20 80 20 6b 65 79 25 3d | 33 39 38 20 f2 57 69 6d | . key%=|398 .Wim|
|00000840| 70 5f 49 63 6f 6e 43 61 | 72 65 74 28 64 69 73 70 |p_IconCa|ret(disp|
|00000850| 6c 61 79 5f 57 69 6e 64 | 6f 77 25 2c 33 2c 30 29 |lay_Wind|ow%,3,0)|
|00000860| 0d 03 7a 05 e1 0d 03 84 | 05 3a 0d 03 8e 1e dd 20 |..z.....|.:..... |
|00000870| f2 45 76 65 6e 74 5f 4d | 65 6e 75 43 68 6f 69 63 |.Event_M|enuChoic|
|00000880| 65 28 6d 65 6e 75 25 29 | 0d 03 98 0e c8 8e 20 6d |e(menu%)|...... m|
|00000890| 65 6e 75 25 20 ca 0d 03 | a2 2e c9 20 42 61 72 5f |enu% ...|... Bar_|
|000008a0| 4d 65 6e 75 25 20 20 20 | 20 20 20 20 20 20 20 3a |Menu%   |       :|
|000008b0| 20 f2 55 73 65 72 5f 4d | 65 6e 75 43 68 6f 69 63 | .User_M|enuChoic|
|000008c0| 65 42 61 72 0d 03 ac 32 | c9 20 64 69 73 70 6c 61 |eBar...2|. displa|
|000008d0| 79 5f 4d 65 6e 75 25 20 | 20 20 20 20 20 3a 20 f2 |y_Menu% |     : .|
|000008e0| 55 73 65 72 5f 4d 65 6e | 75 43 68 6f 69 63 65 64 |User_Men|uChoiced|
|000008f0| 69 73 70 6c 61 79 0d 03 | b6 05 cb 0d 03 c0 05 e1 |isplay..|........|
|00000900| 0d 03 ca 05 3a 0d 03 d4 | 19 dd 20 f2 55 73 65 72 |....:...|.. .User|
|00000910| 5f 4d 65 6e 75 43 68 6f | 69 63 65 42 61 72 0d 03 |_MenuCho|iceBar..|
|00000920| de 1c c8 8e 20 a4 57 69 | 6d 70 5f 4d 65 6e 75 43 |.... .Wi|mp_MenuC|
|00000930| 68 6f 69 63 65 28 30 29 | 20 ca 0d 03 e8 09 c9 20 |hoice(0)| ...... |
|00000940| 31 20 3a 0d 03 f2 14 c9 | 20 32 20 3a 66 69 6e 69 |1 :.....| 2 :fini|
|00000950| 73 68 65 64 25 3d b9 0d | 03 fc 05 cb 0d 04 06 05 |shed%=..|........|
|00000960| e1 0d 04 10 05 3a 0d 04 | 1a 1d dd 20 f2 55 73 65 |.....:..|... .Use|
|00000970| 72 5f 4d 65 6e 75 43 68 | 6f 69 63 65 64 69 73 70 |r_MenuCh|oicedisp|
|00000980| 6c 61 79 0d 04 24 1c c8 | 8e 20 a4 57 69 6d 70 5f |lay..$..|. .Wimp_|
|00000990| 4d 65 6e 75 43 68 6f 69 | 63 65 28 30 29 20 ca 0d |MenuChoi|ce(0) ..|
|000009a0| 04 2e 09 c9 20 31 20 3a | 0d 04 38 15 c9 20 32 20 |.... 1 :|..8.. 2 |
|000009b0| 3a 20 f2 63 6c 65 61 72 | 69 63 6f 6e 73 0d 04 42 |: .clear|icons..B|
|000009c0| 14 c9 20 33 20 3a 66 69 | 6e 69 73 68 65 64 25 3d |.. 3 :fi|nished%=|
|000009d0| b9 0d 04 4c 05 cb 0d 04 | 56 05 e1 0d 04 60 05 3a |...L....|V....`.:|
|000009e0| 0d 04 6a 22 dd 20 f2 45 | 76 65 6e 74 5f 4c 6f 61 |..j". .E|vent_Loa|
|000009f0| 64 46 69 6c 65 28 66 69 | 6c 65 24 2c 74 79 70 65 |dFile(fi|le$,type|
|00000a00| 24 29 0d 04 74 05 e1 0d | 04 7e 05 3a 0d 04 88 24 |$)..t...|.~.:...$|
|00000a10| dd 20 f2 45 76 65 6e 74 | 5f 53 61 76 65 46 69 6c |. .Event|_SaveFil|
|00000a20| 65 28 66 69 6c 65 24 2c | 77 69 6e 64 6f 77 25 29 |e(file$,|window%)|
|00000a30| 0d 04 92 05 e1 0d 04 9c | 05 3a 0d 04 a6 11 dd 20 |........|.:..... |
|00000a40| f2 63 6c 65 61 72 69 63 | 6f 6e 73 0d 04 b0 2b f2 |.clearic|ons...+.|
|00000a50| 57 69 6d 70 5f 49 63 6f | 6e 50 75 74 54 65 78 74 |Wimp_Ico|nPutText|
|00000a60| 28 64 69 73 70 6c 61 79 | 5f 57 69 6e 64 6f 77 25 |(display|_Window%|
|00000a70| 2c 36 2c 22 22 29 0d 04 | ba 2c f2 57 69 6d 70 5f |,6,"")..|.,.Wimp_|
|00000a80| 49 63 6f 6e 50 75 74 54 | 65 78 74 28 64 69 73 70 |IconPutT|ext(disp|
|00000a90| 6c 61 79 5f 57 69 6e 64 | 6f 77 25 2c 31 30 2c 22 |lay_Wind|ow%,10,"|
|00000aa0| 22 29 0d 04 c4 2c f2 57 | 69 6d 70 5f 49 63 6f 6e |")...,.W|imp_Icon|
|00000ab0| 50 75 74 54 65 78 74 28 | 64 69 73 70 6c 61 79 5f |PutText(|display_|
|00000ac0| 57 69 6e 64 6f 77 25 2c | 31 31 2c 22 22 29 0d 04 |Window%,|11,"")..|
|00000ad0| ce 28 f2 57 69 6d 70 5f | 49 63 6f 6e 43 61 72 65 |.(.Wimp_|IconCare|
|00000ae0| 74 28 64 69 73 70 6c 61 | 79 5f 57 69 6e 64 6f 77 |t(displa|y_Window|
|00000af0| 25 2c 36 2c 30 29 0d 04 | d8 05 e1 0d 04 e2 05 3a |%,6,0)..|.......:|
|00000b00| 0d 04 ec 10 dd 20 f2 63 | 61 6c 63 75 6c 61 74 65 |..... .c|alculate|
|00000b10| 0d 04 f6 2b 72 61 74 65 | 24 3d a4 57 69 6d 70 5f |...+rate|$=.Wimp_|
|00000b20| 49 63 6f 6e 54 65 78 74 | 28 64 69 73 70 6c 61 79 |IconText|(display|
|00000b30| 5f 57 69 6e 64 6f 77 25 | 2c 33 29 0d 05 00 2b 63 |_Window%|,3)...+c|
|00000b40| 6f 73 74 24 3d a4 57 69 | 6d 70 5f 49 63 6f 6e 54 |ost$=.Wi|mp_IconT|
|00000b50| 65 78 74 28 64 69 73 70 | 6c 61 79 5f 57 69 6e 64 |ext(disp|lay_Wind|
|00000b60| 6f 77 25 2c 36 29 0d 05 | 0a 7e e7 20 a9 28 72 61 |ow%,6)..|.~. .(ra|
|00000b70| 74 65 24 29 3d 30 20 80 | 20 a9 28 63 6f 73 74 24 |te$)=0 .| .(cost$|
|00000b80| 29 3d 30 20 8c 20 f2 57 | 69 6d 70 5f 57 69 6e 64 |)=0 . .W|imp_Wind|
|00000b90| 6f 77 41 6c 65 72 74 28 | 22 45 72 72 6f 72 20 66 |owAlert(|"Error f|
|00000ba0| 72 6f 6d 20 56 41 54 5f | 43 61 6c 63 22 2c 22 59 |rom VAT_|Calc","Y|
|00000bb0| 6f 75 20 68 61 76 65 6e | 27 74 20 65 6e 74 65 72 |ou haven|'t enter|
|00000bc0| 65 64 20 61 6e 79 20 76 | 61 6c 75 65 73 20 69 6e |ed any v|alues in|
|00000bd0| 74 6f 20 56 41 54 5f 43 | 61 6c 63 20 79 65 74 21 |to VAT_C|alc yet!|
|00000be0| 22 29 3a e1 0d 05 14 89 | e7 20 a9 28 72 61 74 65 |"):.....|. .(rate|
|00000bf0| 24 29 3d 30 20 8c 20 f2 | 57 69 6d 70 5f 57 69 6e |$)=0 . .|Wimp_Win|
|00000c00| 64 6f 77 41 6c 65 72 74 | 28 22 45 72 72 6f 72 20 |dowAlert|("Error |
|00000c10| 66 72 6f 6d 20 56 41 54 | 5f 43 61 6c 63 22 2c 22 |from VAT|_Calc","|
|00000c20| 59 6f 75 20 6d 75 73 74 | 20 65 6e 74 65 72 20 74 |You must| enter t|
|00000c30| 68 65 20 63 75 72 72 65 | 6e 74 20 72 61 74 65 20 |he curre|nt rate |
|00000c40| 6f 66 20 56 41 54 20 62 | 65 66 6f 72 65 20 79 6f |of VAT b|efore yo|
|00000c50| 75 20 63 61 6e 20 6d 61 | 6b 65 20 61 20 63 61 6c |u can ma|ke a cal|
|00000c60| 63 75 6c 61 74 69 6f 6e | 2e 22 29 3a e1 0d 05 1e |culation|."):....|
|00000c70| 82 e7 20 a9 28 63 6f 73 | 74 24 29 3d 30 20 8c 20 |.. .(cos|t$)=0 . |
|00000c80| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 41 6c 65 72 |.Wimp_Wi|ndowAler|
|00000c90| 74 28 22 45 72 72 6f 72 | 20 66 72 6f 6d 20 56 41 |t("Error| from VA|
|00000ca0| 54 5f 43 61 6c 63 22 2c | 22 59 6f 75 20 6d 75 73 |T_Calc",|"You mus|
|00000cb0| 74 20 65 6e 74 65 72 20 | 74 68 65 20 70 72 6f 64 |t enter |the prod|
|00000cc0| 75 63 74 20 63 6f 73 74 | 20 62 65 66 6f 72 65 20 |uct cost| before |
|00000cd0| 79 6f 75 20 63 61 6e 20 | 6d 61 6b 65 20 61 20 63 |you can |make a c|
|00000ce0| 61 6c 63 75 6c 61 74 69 | 6f 6e 2e 22 29 3a e1 0d |alculati|on."):..|
|00000cf0| 05 28 17 72 61 74 65 6f | 66 76 61 74 25 3d a0 28 |.(.rateo|fvat%=.(|
|00000d00| 72 61 74 65 24 29 0d 05 | 32 12 63 6f 73 74 25 3d |rate$)..|2.cost%=|
|00000d10| a0 28 63 6f 73 74 24 29 | 0d 05 3c 8d e7 20 63 6f |.(cost$)|..<.. co|
|00000d20| 73 74 25 3e 39 39 39 39 | 39 39 39 39 20 8c 20 f2 |st%>9999|9999 . .|
|00000d30| 57 69 6d 70 5f 57 69 6e | 64 6f 77 41 6c 65 72 74 |Wimp_Win|dowAlert|
|00000d40| 28 22 45 72 72 6f 72 20 | 66 72 6f 6d 20 56 41 54 |("Error |from VAT|
|00000d50| 5f 43 61 6c 63 22 2c 22 | 53 6f 72 72 79 21 20 56 |_Calc","|Sorry! V|
|00000d60| 41 54 5f 43 61 6c 63 20 | 63 61 6e 6e 6f 74 20 75 |AT_Calc |cannot u|
|00000d70| 73 65 20 70 72 6f 64 75 | 63 74 20 63 6f 73 74 20 |se produ|ct cost |
|00000d80| 76 61 6c 75 65 73 20 6f | 76 65 72 20 74 68 65 20 |values o|ver the |
|00000d90| 73 75 6d 20 6f 66 20 a3 | 39 39 39 39 39 39 39 39 |sum of .|99999999|
|00000da0| 2e 22 29 3a e1 0d 05 46 | 24 74 3d 28 28 63 6f 73 |."):...F|$t=((cos|
|00000db0| 74 25 2f 31 30 30 29 2a | 72 61 74 65 6f 66 76 61 |t%/100)*|rateofva|
|00000dc0| 74 25 29 2b 63 6f 73 74 | 25 0d 05 50 1e 61 64 64 |t%)+cost|%..P.add|
|00000dd0| 3d 28 63 6f 73 74 25 2f | 31 30 30 29 2a 72 61 74 |=(cost%/|100)*rat|
|00000de0| 65 6f 66 76 61 74 25 0d | 05 5a 2c f2 57 69 6d 70 |eofvat%.|.Z,.Wimp|
|00000df0| 5f 49 63 6f 6e 50 75 74 | 54 65 78 74 28 64 69 73 |_IconPut|Text(dis|
|00000e00| 70 6c 61 79 5f 57 69 6e | 64 6f 77 25 2c 31 30 2c |play_Win|dow%,10,|
|00000e10| 22 22 29 0d 05 64 2c f2 | 57 69 6d 70 5f 49 63 6f |"")..d,.|Wimp_Ico|
|00000e20| 6e 50 75 74 54 65 78 74 | 28 64 69 73 70 6c 61 79 |nPutText|(display|
|00000e30| 5f 57 69 6e 64 6f 77 25 | 2c 31 31 2c 22 22 29 0d |_Window%|,11,"").|
|00000e40| 05 6e 2e f2 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 |.n..Wimp|_IconPut|
|00000e50| 54 65 78 74 28 64 69 73 | 70 6c 61 79 5f 57 69 6e |Text(dis|play_Win|
|00000e60| 64 6f 77 25 2c 31 30 2c | c3 61 64 64 29 0d 05 78 |dow%,10,|.add)..x|
|00000e70| 2c f2 57 69 6d 70 5f 49 | 63 6f 6e 50 75 74 54 65 |,.Wimp_I|conPutTe|
|00000e80| 78 74 28 64 69 73 70 6c | 61 79 5f 57 69 6e 64 6f |xt(displ|ay_Windo|
|00000e90| 77 25 2c 31 31 2c c3 74 | 29 0d 05 82 05 e1 0d 05 |w%,11,.t|).......|
|00000ea0| 8c 05 3a 0d ff          |                         |..:..   |        |
+--------+-------------------------+-------------------------+--------+--------+