��error
�b% 512
�clear:doit%=�
(�6
2�
<+�'"Converting program, please wait..."'
F=ș"OS_ReadVarVal","SwiConv$InputType",b%,256,0,3 � ,,len%
P?(b%+len%)=13:it%=�($b%)
Z>ș"OS_ReadVarVal","SwiConv$OutputType",b%,256,0,3 � ,,len%
d?(b%+len%)=13:ot%=�($b%)
n"FI%=�"<Wimp$ScrapDir>.SwiConv"
x#FO%=�"<Wimp$ScrapDir>.SwiConv2"
��
��:�BG0%<>-1:�#FO%,BG0%
�*BG0%=BG1%:BG1%=BG2%:BG2%=�#FI%:doit%=�
�$�(BG0%=83�BG1%=89�BG2%=83)��#FI%
�
��#FI% �
�doit%=�
��#FO%,"SYS";
�ȕ�#FI%=32:�:�#FI%=�#FI%-1
�BG0%=�#FI%
�ȎBG0% �
�
�34:�text
��38:�hex
�5�48,49,50,51,52,53,54,55,56,57:�#FI%=�#FI%-1:�dec

�

�clear:doit%=�

�

"�doit%=� �

,�BG0%<>-1:�#FO%,BG0%

6�BG1%<>-1:�#FO%,BG1%

@�BG2%<>-1:�#FO%,BG2%

J�

T�

^
��#FI%

h�#FI%:�#FO%

r�21

|�

�
��text

��it%<>1:�leaves:�

��ot%=1:�leaves:�

�st$=�reads:$b%=st$:�ctext

��

�Eݤreads:st$="":�:BG0%=�#FI%:st$+=�(BG0%):�BG0%=34:=�st$,�(st$)-1)

�-ݤreadh:st$="&":�:BG0%=�#FI%:st$+=�(BG0%)

�(�(BG0%<48�BG0%>57)�(BG0%<65�BG0%>70)

��#FI%=�#FI%-1

�=�(�st$,�(st$)-1))

�,ݤreadd:st$="":�:BG0%=�#FI%:st$+=�(BG0%)

��(BG0%<48�BG0%>57)

��#FI%=�#FI%-1
=�(�st$,�(st$)-1))
.��leaves:st$=�reads:�#FO%,""""+st$+"""";:�
,��leaveh:st$=�~(�readh):�#FO%,"&"+st$;:�
&'��leaved:st$=�(�readd):�#FO%,st$;:�
0��ctext:�LA%
:(ș"OS_SWINumberFromString",,b% � sw%
D�ot%=2:SW$=�(sw%)
N�ot%=3:SW$="&"+�~(sw%)
X�#FO%,SW$;
b�
l��cnum(num%):�ln$
v/ș"OS_SWINumberToString",num%,b%,512 �,,ln%
�?(b%+ln%-1)=13
��
�%��clear:BG0%=-1:BG1%=-1:BG2%=-1:�
�	��hex
��it%<>3�it%<>4:�leaveh:�
�he%=�readh:�cnum(he%)
��ot%=1:�#FO%,""""+$b%+"""";
��ot%=2�ot%=3:�ctext
��
�	��dec
��it%<>2�it%<>4:�leaved:�
�de%=�readd:�cnum(de%)
��ot%=1:�#FO%,""""+$b%+"""";
�ot%=2�ot%=3:�ctext
�
��error
 �"CLOSE":�
*�"Conversion failed"
4�"Set SwiConv$Failed "+�$
>)�"Set SwiConv$OutputFile Null:$.File"
H	�#FI%
R	�#FO%
\	�b% 8
f2b%?0=13:b%?1=0:b%?2=10:b%?3=4:b%?4=13:b%?5=255
p;ș"OS_File",10,"<Wimp$ScrapDir>.SwiConv2",&FFB,,b%,b%+5
z�
�

00000000  0d 00 0a 0c ee 85 f2 65  72 72 6f 72 0d 00 14 0b  |.......error....|
00000010  de 62 25 20 35 31 32 0d  00 1e 12 f2 63 6c 65 61  |.b% 512.....clea|
00000020  72 3a 64 6f 69 74 25 3d  a3 0d 00 28 06 ef 36 0d  |r:doit%=...(..6.|
00000030  00 32 05 db 0d 00 3c 2b  f1 27 22 43 6f 6e 76 65  |.2....<+.'"Conve|
00000040  72 74 69 6e 67 20 70 72  6f 67 72 61 6d 2c 20 70  |rting program, p|
00000050  6c 65 61 73 65 20 77 61  69 74 2e 2e 2e 22 27 0d  |lease wait..."'.|
00000060  00 46 3d c8 99 22 4f 53  5f 52 65 61 64 56 61 72  |.F=.."OS_ReadVar|
00000070  56 61 6c 22 2c 22 53 77  69 43 6f 6e 76 24 49 6e  |Val","SwiConv$In|
00000080  70 75 74 54 79 70 65 22  2c 62 25 2c 32 35 36 2c  |putType",b%,256,|
00000090  30 2c 33 20 b8 20 2c 2c  6c 65 6e 25 0d 00 50 1c  |0,3 . ,,len%..P.|
000000a0  3f 28 62 25 2b 6c 65 6e  25 29 3d 31 33 3a 69 74  |?(b%+len%)=13:it|
000000b0  25 3d bb 28 24 62 25 29  0d 00 5a 3e c8 99 22 4f  |%=.($b%)..Z>.."O|
000000c0  53 5f 52 65 61 64 56 61  72 56 61 6c 22 2c 22 53  |S_ReadVarVal","S|
000000d0  77 69 43 6f 6e 76 24 4f  75 74 70 75 74 54 79 70  |wiConv$OutputTyp|
000000e0  65 22 2c 62 25 2c 32 35  36 2c 30 2c 33 20 b8 20  |e",b%,256,0,3 . |
000000f0  2c 2c 6c 65 6e 25 0d 00  64 1c 3f 28 62 25 2b 6c  |,,len%..d.?(b%+l|
00000100  65 6e 25 29 3d 31 33 3a  6f 74 25 3d bb 28 24 62  |en%)=13:ot%=.($b|
00000110  25 29 0d 00 6e 22 46 49  25 3d 8e 22 3c 57 69 6d  |%)..n"FI%=."<Wim|
00000120  70 24 53 63 72 61 70 44  69 72 3e 2e 53 77 69 43  |p$ScrapDir>.SwiC|
00000130  6f 6e 76 22 0d 00 78 23  46 4f 25 3d ae 22 3c 57  |onv"..x#FO%=."<W|
00000140  69 6d 70 24 53 63 72 61  70 44 69 72 3e 2e 53 77  |imp$ScrapDir>.Sw|
00000150  69 43 6f 6e 76 32 22 0d  00 82 05 f5 0d 00 8c 1a  |iConv2".........|
00000160  f5 3a e7 42 47 30 25 3c  3e 2d 31 3a d5 23 46 4f  |.:.BG0%<>-1:.#FO|
00000170  25 2c 42 47 30 25 0d 00  96 2a 42 47 30 25 3d 42  |%,BG0%...*BG0%=B|
00000180  47 31 25 3a 42 47 31 25  3d 42 47 32 25 3a 42 47  |G1%:BG1%=BG2%:BG|
00000190  32 25 3d 9a 23 46 49 25  3a 64 6f 69 74 25 3d b9  |2%=.#FI%:doit%=.|
000001a0  0d 00 a0 24 fd 28 42 47  30 25 3d 38 33 80 42 47  |...$.(BG0%=83.BG|
000001b0  31 25 3d 38 39 80 42 47  32 25 3d 38 33 29 84 c5  |1%=89.BG2%=83)..|
000001c0  23 46 49 25 0d 00 aa 0d  e7 ac c5 23 46 49 25 20  |#FI%.......#FI% |
000001d0  8c 0d 00 b4 0b 64 6f 69  74 25 3d a3 0d 00 be 10  |.....doit%=.....|
000001e0  d5 23 46 4f 25 2c 22 53  59 53 22 3b 0d 00 c8 1e  |.#FO%,"SYS";....|
000001f0  c8 95 9a 23 46 49 25 3d  33 32 3a ce 3a cf 23 46  |...#FI%=32:.:.#F|
00000200  49 25 3d 8f 23 46 49 25  2d 31 0d 00 d2 0e 42 47  |I%=.#FI%-1....BG|
00000210  30 25 3d 9a 23 46 49 25  0d 00 dc 0c c8 8e 42 47  |0%=.#FI%......BG|
00000220  30 25 20 ca 0d 00 e6 0d  c9 33 34 3a f2 74 65 78  |0% ......34:.tex|
00000230  74 0d 00 f0 0c c9 33 38  3a f2 68 65 78 0d 00 fa  |t.....38:.hex...|
00000240  35 c9 34 38 2c 34 39 2c  35 30 2c 35 31 2c 35 32  |5.48,49,50,51,52|
00000250  2c 35 33 2c 35 34 2c 35  35 2c 35 36 2c 35 37 3a  |,53,54,55,56,57:|
00000260  cf 23 46 49 25 3d 8f 23  46 49 25 2d 31 3a f2 64  |.#FI%=.#FI%-1:.d|
00000270  65 63 0d 01 04 05 cb 0d  01 0e 12 f2 63 6c 65 61  |ec..........clea|
00000280  72 3a 64 6f 69 74 25 3d  a3 0d 01 18 05 cc 0d 01  |r:doit%=........|
00000290  22 0e e7 64 6f 69 74 25  3d b9 20 8c 0d 01 2c 18  |"..doit%=. ...,.|
000002a0  e7 42 47 30 25 3c 3e 2d  31 3a d5 23 46 4f 25 2c  |.BG0%<>-1:.#FO%,|
000002b0  42 47 30 25 0d 01 36 18  e7 42 47 31 25 3c 3e 2d  |BG0%..6..BG1%<>-|
000002c0  31 3a d5 23 46 4f 25 2c  42 47 31 25 0d 01 40 18  |1:.#FO%,BG1%..@.|
000002d0  e7 42 47 32 25 3c 3e 2d  31 3a d5 23 46 4f 25 2c  |.BG2%<>-1:.#FO%,|
000002e0  42 47 32 25 0d 01 4a 05  cd 0d 01 54 05 cd 0d 01  |BG2%..J....T....|
000002f0  5e 0a fd c5 23 46 49 25  0d 01 68 0f d9 23 46 49  |^...#FI%..h..#FI|
00000300  25 3a d9 23 46 4f 25 0d  01 72 07 ef 32 31 0d 01  |%:.#FO%..r..21..|
00000310  7c 05 e0 0d 01 86 0a dd  f2 74 65 78 74 0d 01 90  ||........text...|
00000320  15 e7 69 74 25 3c 3e 31  3a f2 6c 65 61 76 65 73  |..it%<>1:.leaves|
00000330  3a e1 0d 01 9a 14 e7 6f  74 25 3d 31 3a f2 6c 65  |:......ot%=1:.le|
00000340  61 76 65 73 3a e1 0d 01  a4 1d 73 74 24 3d a4 72  |aves:.....st$=.r|
00000350  65 61 64 73 3a 24 62 25  3d 73 74 24 3a f2 63 74  |eads:$b%=st$:.ct|
00000360  65 78 74 0d 01 ae 05 e1  0d 01 b8 45 dd a4 72 65  |ext........E..re|
00000370  61 64 73 3a 73 74 24 3d  22 22 3a f5 3a 42 47 30  |ads:st$="":.:BG0|
00000380  25 3d 9a 23 46 49 25 3a  73 74 24 2b 3d bd 28 42  |%=.#FI%:st$+=.(B|
00000390  47 30 25 29 3a fd 42 47  30 25 3d 33 34 3a 3d c0  |G0%):.BG0%=34:=.|
000003a0  73 74 24 2c a9 28 73 74  24 29 2d 31 29 0d 01 c2  |st$,.(st$)-1)...|
000003b0  2d dd a4 72 65 61 64 68  3a 73 74 24 3d 22 26 22  |-..readh:st$="&"|
000003c0  3a f5 3a 42 47 30 25 3d  9a 23 46 49 25 3a 73 74  |:.:BG0%=.#FI%:st|
000003d0  24 2b 3d bd 28 42 47 30  25 29 0d 01 cc 28 fd 28  |$+=.(BG0%)...(.(|
000003e0  42 47 30 25 3c 34 38 84  42 47 30 25 3e 35 37 29  |BG0%<48.BG0%>57)|
000003f0  80 28 42 47 30 25 3c 36  35 84 42 47 30 25 3e 37  |.(BG0%<65.BG0%>7|
00000400  30 29 0d 01 d6 11 cf 23  46 49 25 3d 8f 23 46 49  |0).....#FI%=.#FI|
00000410  25 2d 31 0d 01 e0 16 3d  a0 28 c0 73 74 24 2c a9  |%-1....=.(.st$,.|
00000420  28 73 74 24 29 2d 31 29  29 0d 01 ea 2c dd a4 72  |(st$)-1))...,..r|
00000430  65 61 64 64 3a 73 74 24  3d 22 22 3a f5 3a 42 47  |eadd:st$="":.:BG|
00000440  30 25 3d 9a 23 46 49 25  3a 73 74 24 2b 3d bd 28  |0%=.#FI%:st$+=.(|
00000450  42 47 30 25 29 0d 01 f4  16 fd 28 42 47 30 25 3c  |BG0%).....(BG0%<|
00000460  34 38 84 42 47 30 25 3e  35 37 29 0d 01 fe 11 cf  |48.BG0%>57).....|
00000470  23 46 49 25 3d 8f 23 46  49 25 2d 31 0d 02 08 16  |#FI%=.#FI%-1....|
00000480  3d bb 28 c0 73 74 24 2c  a9 28 73 74 24 29 2d 31  |=.(.st$,.(st$)-1|
00000490  29 29 0d 02 12 2e dd f2  6c 65 61 76 65 73 3a 73  |))......leaves:s|
000004a0  74 24 3d a4 72 65 61 64  73 3a d5 23 46 4f 25 2c  |t$=.reads:.#FO%,|
000004b0  22 22 22 22 2b 73 74 24  2b 22 22 22 22 3b 3a e1  |""""+st$+"""";:.|
000004c0  0d 02 1c 2c dd f2 6c 65  61 76 65 68 3a 73 74 24  |...,..leaveh:st$|
000004d0  3d c3 7e 28 a4 72 65 61  64 68 29 3a d5 23 46 4f  |=.~(.readh):.#FO|
000004e0  25 2c 22 26 22 2b 73 74  24 3b 3a e1 0d 02 26 27  |%,"&"+st$;:...&'|
000004f0  dd f2 6c 65 61 76 65 64  3a 73 74 24 3d c3 28 a4  |..leaved:st$=.(.|
00000500  72 65 61 64 64 29 3a d5  23 46 4f 25 2c 73 74 24  |readd):.#FO%,st$|
00000510  3b 3a e1 0d 02 30 10 dd  f2 63 74 65 78 74 3a ea  |;:...0...ctext:.|
00000520  4c 41 25 0d 02 3a 28 c8  99 22 4f 53 5f 53 57 49  |LA%..:(.."OS_SWI|
00000530  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
00000540  22 2c 2c 62 25 20 b8 20  73 77 25 0d 02 44 15 e7  |",,b% . sw%..D..|
00000550  6f 74 25 3d 32 3a 53 57  24 3d c3 28 73 77 25 29  |ot%=2:SW$=.(sw%)|
00000560  0d 02 4e 1a e7 6f 74 25  3d 33 3a 53 57 24 3d 22  |..N..ot%=3:SW$="|
00000570  26 22 2b c3 7e 28 73 77  25 29 0d 02 58 0e d5 23  |&"+.~(sw%)..X..#|
00000580  46 4f 25 2c 53 57 24 3b  0d 02 62 05 e1 0d 02 6c  |FO%,SW$;..b....l|
00000590  15 dd f2 63 6e 75 6d 28  6e 75 6d 25 29 3a ea 6c  |...cnum(num%):.l|
000005a0  6e 24 0d 02 76 2f c8 99  22 4f 53 5f 53 57 49 4e  |n$..v/.."OS_SWIN|
000005b0  75 6d 62 65 72 54 6f 53  74 72 69 6e 67 22 2c 6e  |umberToString",n|
000005c0  75 6d 25 2c 62 25 2c 35  31 32 20 b8 2c 2c 6c 6e  |um%,b%,512 .,,ln|
000005d0  25 0d 02 80 12 3f 28 62  25 2b 6c 6e 25 2d 31 29  |%....?(b%+ln%-1)|
000005e0  3d 31 33 0d 02 8a 05 e1  0d 02 94 25 dd f2 63 6c  |=13........%..cl|
000005f0  65 61 72 3a 42 47 30 25  3d 2d 31 3a 42 47 31 25  |ear:BG0%=-1:BG1%|
00000600  3d 2d 31 3a 42 47 32 25  3d 2d 31 3a e1 0d 02 9e  |=-1:BG2%=-1:....|
00000610  09 dd f2 68 65 78 0d 02  a8 1c e7 69 74 25 3c 3e  |...hex.....it%<>|
00000620  33 80 69 74 25 3c 3e 34  3a f2 6c 65 61 76 65 68  |3.it%<>4:.leaveh|
00000630  3a e1 0d 02 b2 19 68 65  25 3d a4 72 65 61 64 68  |:.....he%=.readh|
00000640  3a f2 63 6e 75 6d 28 68  65 25 29 0d 02 bc 1f e7  |:.cnum(he%).....|
00000650  6f 74 25 3d 31 3a d5 23  46 4f 25 2c 22 22 22 22  |ot%=1:.#FO%,""""|
00000660  2b 24 62 25 2b 22 22 22  22 3b 0d 02 c6 17 e7 6f  |+$b%+"""";.....o|
00000670  74 25 3d 32 84 6f 74 25  3d 33 3a f2 63 74 65 78  |t%=2.ot%=3:.ctex|
00000680  74 0d 02 d0 05 e1 0d 02  da 09 dd f2 64 65 63 0d  |t...........dec.|
00000690  02 e4 1c e7 69 74 25 3c  3e 32 80 69 74 25 3c 3e  |....it%<>2.it%<>|
000006a0  34 3a f2 6c 65 61 76 65  64 3a e1 0d 02 ee 19 64  |4:.leaved:.....d|
000006b0  65 25 3d a4 72 65 61 64  64 3a f2 63 6e 75 6d 28  |e%=.readd:.cnum(|
000006c0  64 65 25 29 0d 02 f8 1f  e7 6f 74 25 3d 31 3a d5  |de%).....ot%=1:.|
000006d0  23 46 4f 25 2c 22 22 22  22 2b 24 62 25 2b 22 22  |#FO%,""""+$b%+""|
000006e0  22 22 3b 0d 03 02 17 e7  6f 74 25 3d 32 84 6f 74  |"";.....ot%=2.ot|
000006f0  25 3d 33 3a f2 63 74 65  78 74 0d 03 0c 05 e1 0d  |%=3:.ctext......|
00000700  03 16 0b dd f2 65 72 72  6f 72 0d 03 20 10 ee 85  |.....error.. ...|
00000710  ff 22 43 4c 4f 53 45 22  3a e0 0d 03 2a 18 f1 22  |."CLOSE":...*.."|
00000720  43 6f 6e 76 65 72 73 69  6f 6e 20 66 61 69 6c 65  |Conversion faile|
00000730  64 22 0d 03 34 1d ff 22  53 65 74 20 53 77 69 43  |d"..4.."Set SwiC|
00000740  6f 6e 76 24 46 61 69 6c  65 64 20 22 2b f6 24 0d  |onv$Failed "+.$.|
00000750  03 3e 29 ff 22 53 65 74  20 53 77 69 43 6f 6e 76  |.>)."Set SwiConv|
00000760  24 4f 75 74 70 75 74 46  69 6c 65 20 4e 75 6c 6c  |$OutputFile Null|
00000770  3a 24 2e 46 69 6c 65 22  0d 03 48 09 d9 23 46 49  |:$.File"..H..#FI|
00000780  25 0d 03 52 09 d9 23 46  4f 25 0d 03 5c 09 de 62  |%..R..#FO%..\..b|
00000790  25 20 38 0d 03 66 32 62  25 3f 30 3d 31 33 3a 62  |% 8..f2b%?0=13:b|
000007a0  25 3f 31 3d 30 3a 62 25  3f 32 3d 31 30 3a 62 25  |%?1=0:b%?2=10:b%|
000007b0  3f 33 3d 34 3a 62 25 3f  34 3d 31 33 3a 62 25 3f  |?3=4:b%?4=13:b%?|
000007c0  35 3d 32 35 35 0d 03 70  3b c8 99 22 4f 53 5f 46  |5=255..p;.."OS_F|
000007d0  69 6c 65 22 2c 31 30 2c  22 3c 57 69 6d 70 24 53  |ile",10,"<Wimp$S|
000007e0  63 72 61 70 44 69 72 3e  2e 53 77 69 43 6f 6e 76  |crapDir>.SwiConv|
000007f0  32 22 2c 26 46 46 42 2c  2c 62 25 2c 62 25 2b 35  |2",&FFB,,b%,b%+5|
00000800  0d 03 7a 05 e0 0d ff                              |..z....|
00000807