� >$.!TwinStart.!RunImage
� Twin World starter
"� � Mike Ironmonger, July 1991
(:
21� � �error(�,�$+" internal error code "+Þ):�
<�initialise
F� � �error(�,�$)
P:
Z�
d!ș "Wimp_Poll",%1,block% � R%
nȎ R% �
x' � 2 : ș "Wimp_OpenWindow",,block%
� � 3 : quit%=�
� � 6 : �mouse_click
�) � 9 : �menu_select(!block%,block%!4)
�" � 17,18 : quit%=(block%!16=0)
��
�� quit%
�ș "Wimp_CloseDown"
��
�:
�*** reason codes
�:
���mouse_click
�Hș "Wimp_CreateMenu",,m_main%,!block%-64,252+names%*44+24*(names%<0)

�

:

��menu_select(S1%,S2%)

"$ș "Wimp_GetPointerInfo",,block%

,stay%=(block%!8=1)

6Ȏ S1% �

@= � names%+1 : � S2%<>-1 �new_player(�get_string(b_name%))

J � names%+2 : quit%=�

T,      : � S1%<>-1 �player_selected(S1%)

^�

h)� stay% ș "Wimp_CreateMenu",,m_main%

r�

|:

�*** misc

�:

���new_player(A$)

�Kș "OS_FSControl",26,"<TwinStart$Dir>.Original","<TwinStart$Dir>."+A$,0

�
names%+=1

�name$(names%)=A$

��create_menus

��

�:

���player_selected(P%)

�Nș "OS_SetVarVal","Twin$Name","<TwinStart$Dir>."+name$(P%),11+�(name$(P%))

�quit%=�

��
:
ݤget_string(P%)
	A$=""
&
ȕ ?P%>31
0 A$+=�?P%:P%+=1
:�
D=A$
N:
X ��error(!block%,$(block%+4))
b.ș "Wimp_ReportError",block%,1,"TwinStart"
l�
v:
�*** initialisation
�:
���initialise
�� block% 999
�2ș "Wimp_Initialise",200,&4B534154,"TwinStart"
�quit%=�
�%ș "OS_SetVarVal","Twin$Name","?"
�:
�� name$(9)
�
obj%=0
�
names%=-1
��
�G ș "OS_GBPB",10,"<TwinStart$Dir>",block%,1,obj%,256,"*" � ,,,,obj%
! name$=�get_string(block%+20)
  type%=(((!block%)>>8)�&FFF)
2 � obj%<>-1 � type%=&FFD � name$<>"Original" �
   names%+=1
*  name$(names%)=name$
4 �
>
� obj%=-1
H:
RB%=block%:!B%=-1
\B%!4=0:B%!12=68
fB%!8=0:B%!16=68
pB%!20=&3002
z$(B%+24)="!TwinWorld"
�ș "Wimp_CreateIcon",,B%
�:
�� m_main% 999,m_sub% 999
�� b_name% 10
��create_menus
�)ș "Wimp_CreateMenu",,m_main%,530,512
��
�:
�*** menu creators
�:
���create_menus
�*�create_menu(m_sub%,"New Player:",176)
�"I%!0=&84:I%!4=-1:I%!8=&7000121
#I%!12=b_name%:I%!16=-1:I%!20=11
$b_name%=""
:
$*�create_menu(m_main%,"Twin Start",172)
.� names%>-1 �
8 � N%=0 � names%
B   �menu_item(name$(N%),0,-1)
L �:I%!-24=2
V�
`%�menu_item("New player",0,m_sub%)
j�menu_item("Quit",&80,-1)
t�
~:
�#��create_menu(M%,title$,width%)
�$M%=title$
�M%!12=&70207:M%!16=width%
�M%!20=44:M%!24=0:I%=M%+28
��
�:
�!��menu_item(item$,flag%,sub%)
�%!I%=flag%:I%!4=sub%:I%!8=&7000021
�$(I%+12)=item$:I%+=24
��
�

00000000  0d 00 0a 1d f4 20 3e 24  2e 21 54 77 69 6e 53 74  |..... >$.!TwinSt|
00000010  61 72 74 2e 21 52 75 6e  49 6d 61 67 65 0d 00 14  |art.!RunImage...|
00000020  18 f4 20 54 77 69 6e 20  57 6f 72 6c 64 20 73 74  |.. Twin World st|
00000030  61 72 74 65 72 0d 00 1e  22 f4 20 a9 20 4d 69 6b  |arter...". . Mik|
00000040  65 20 49 72 6f 6e 6d 6f  6e 67 65 72 2c 20 4a 75  |e Ironmonger, Ju|
00000050  6c 79 20 31 39 39 31 0d  00 28 05 3a 0d 00 32 31  |ly 1991..(.:..21|
00000060  ee 20 85 20 f2 65 72 72  6f 72 28 9f 2c f6 24 2b  |. . .error(.,.$+|
00000070  22 20 69 6e 74 65 72 6e  61 6c 20 65 72 72 6f 72  |" internal error|
00000080  20 63 6f 64 65 20 22 2b  c3 9e 29 3a e0 0d 00 3c  | code "+..):...<|
00000090  0f f2 69 6e 69 74 69 61  6c 69 73 65 0d 00 46 14  |..initialise..F.|
000000a0  ee 20 85 20 f2 65 72 72  6f 72 28 9f 2c f6 24 29  |. . .error(.,.$)|
000000b0  0d 00 50 05 3a 0d 00 5a  05 f5 0d 00 64 21 c8 99  |..P.:..Z....d!..|
000000c0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 25 31 2c  | "Wimp_Poll",%1,|
000000d0  62 6c 6f 63 6b 25 20 b8  20 52 25 0d 00 6e 0b c8  |block% . R%..n..|
000000e0  8e 20 52 25 20 ca 0d 00  78 27 20 c9 20 32 20 3a  |. R% ...x' . 2 :|
000000f0  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00000100  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 00 82  |ndow",,block%...|
00000110  12 20 c9 20 33 20 3a 20  71 75 69 74 25 3d b9 0d  |. . 3 : quit%=..|
00000120  00 8c 17 20 c9 20 36 20  3a 20 f2 6d 6f 75 73 65  |... . 6 : .mouse|
00000130  5f 63 6c 69 63 6b 0d 00  96 29 20 c9 20 39 20 3a  |_click...) . 9 :|
00000140  20 f2 6d 65 6e 75 5f 73  65 6c 65 63 74 28 21 62  | .menu_select(!b|
00000150  6c 6f 63 6b 25 2c 62 6c  6f 63 6b 25 21 34 29 0d  |lock%,block%!4).|
00000160  00 a0 22 20 c9 20 31 37  2c 31 38 20 3a 20 71 75  |.." . 17,18 : qu|
00000170  69 74 25 3d 28 62 6c 6f  63 6b 25 21 31 36 3d 30  |it%=(block%!16=0|
00000180  29 0d 00 aa 05 cb 0d 00  b4 0b fd 20 71 75 69 74  |).......... quit|
00000190  25 0d 00 be 17 c8 99 20  22 57 69 6d 70 5f 43 6c  |%...... "Wimp_Cl|
000001a0  6f 73 65 44 6f 77 6e 22  0d 00 c8 05 e0 0d 00 d2  |oseDown"........|
000001b0  05 3a 0d 00 dc 14 2a 2a  2a 20 72 65 61 73 6f 6e  |.:....*** reason|
000001c0  20 63 6f 64 65 73 0d 00  e6 05 3a 0d 00 f0 11 dd  | codes....:.....|
000001d0  f2 6d 6f 75 73 65 5f 63  6c 69 63 6b 0d 00 fa 48  |.mouse_click...H|
000001e0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000001f0  65 6e 75 22 2c 2c 6d 5f  6d 61 69 6e 25 2c 21 62  |enu",,m_main%,!b|
00000200  6c 6f 63 6b 25 2d 36 34  2c 32 35 32 2b 6e 61 6d  |lock%-64,252+nam|
00000210  65 73 25 2a 34 34 2b 32  34 2a 28 6e 61 6d 65 73  |es%*44+24*(names|
00000220  25 3c 30 29 0d 01 04 05  e1 0d 01 0e 05 3a 0d 01  |%<0).........:..|
00000230  18 1a dd f2 6d 65 6e 75  5f 73 65 6c 65 63 74 28  |....menu_select(|
00000240  53 31 25 2c 53 32 25 29  0d 01 22 24 c8 99 20 22  |S1%,S2%).."$.. "|
00000250  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00000260  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 25 0d 01 2c 16  |nfo",,block%..,.|
00000270  73 74 61 79 25 3d 28 62  6c 6f 63 6b 25 21 38 3d  |stay%=(block%!8=|
00000280  31 29 0d 01 36 0c c8 8e  20 53 31 25 20 ca 0d 01  |1)..6... S1% ...|
00000290  40 3d 20 c9 20 6e 61 6d  65 73 25 2b 31 20 3a 20  |@= . names%+1 : |
000002a0  e7 20 53 32 25 3c 3e 2d  31 20 f2 6e 65 77 5f 70  |. S2%<>-1 .new_p|
000002b0  6c 61 79 65 72 28 a4 67  65 74 5f 73 74 72 69 6e  |layer(.get_strin|
000002c0  67 28 62 5f 6e 61 6d 65  25 29 29 0d 01 4a 19 20  |g(b_name%))..J. |
000002d0  c9 20 6e 61 6d 65 73 25  2b 32 20 3a 20 71 75 69  |. names%+2 : qui|
000002e0  74 25 3d b9 0d 01 54 2c  20 7f 20 20 20 20 20 3a  |t%=...T, .     :|
000002f0  20 e7 20 53 31 25 3c 3e  2d 31 20 f2 70 6c 61 79  | . S1%<>-1 .play|
00000300  65 72 5f 73 65 6c 65 63  74 65 64 28 53 31 25 29  |er_selected(S1%)|
00000310  0d 01 5e 05 cb 0d 01 68  29 e7 20 73 74 61 79 25  |..^....h). stay%|
00000320  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00000330  4d 65 6e 75 22 2c 2c 6d  5f 6d 61 69 6e 25 0d 01  |Menu",,m_main%..|
00000340  72 05 e1 0d 01 7c 05 3a  0d 01 86 0c 2a 2a 2a 20  |r....|.:....*** |
00000350  6d 69 73 63 0d 01 90 05  3a 0d 01 9a 14 dd f2 6e  |misc....:......n|
00000360  65 77 5f 70 6c 61 79 65  72 28 41 24 29 0d 01 a4  |ew_player(A$)...|
00000370  4b c8 99 20 22 4f 53 5f  46 53 43 6f 6e 74 72 6f  |K.. "OS_FSContro|
00000380  6c 22 2c 32 36 2c 22 3c  54 77 69 6e 53 74 61 72  |l",26,"<TwinStar|
00000390  74 24 44 69 72 3e 2e 4f  72 69 67 69 6e 61 6c 22  |t$Dir>.Original"|
000003a0  2c 22 3c 54 77 69 6e 53  74 61 72 74 24 44 69 72  |,"<TwinStart$Dir|
000003b0  3e 2e 22 2b 41 24 2c 30  0d 01 ae 0d 6e 61 6d 65  |>."+A$,0....name|
000003c0  73 25 2b 3d 31 0d 01 b8  14 6e 61 6d 65 24 28 6e  |s%+=1....name$(n|
000003d0  61 6d 65 73 25 29 3d 41  24 0d 01 c2 11 f2 63 72  |ames%)=A$.....cr|
000003e0  65 61 74 65 5f 6d 65 6e  75 73 0d 01 cc 05 e1 0d  |eate_menus......|
000003f0  01 d6 05 3a 0d 01 e0 19  dd f2 70 6c 61 79 65 72  |...:......player|
00000400  5f 73 65 6c 65 63 74 65  64 28 50 25 29 0d 01 ea  |_selected(P%)...|
00000410  4e c8 99 20 22 4f 53 5f  53 65 74 56 61 72 56 61  |N.. "OS_SetVarVa|
00000420  6c 22 2c 22 54 77 69 6e  24 4e 61 6d 65 22 2c 22  |l","Twin$Name","|
00000430  3c 54 77 69 6e 53 74 61  72 74 24 44 69 72 3e 2e  |<TwinStart$Dir>.|
00000440  22 2b 6e 61 6d 65 24 28  50 25 29 2c 31 31 2b a9  |"+name$(P%),11+.|
00000450  28 6e 61 6d 65 24 28 50  25 29 29 0d 01 f4 0b 71  |(name$(P%))....q|
00000460  75 69 74 25 3d b9 0d 01  fe 05 e1 0d 02 08 05 3a  |uit%=..........:|
00000470  0d 02 12 14 dd a4 67 65  74 5f 73 74 72 69 6e 67  |......get_string|
00000480  28 50 25 29 0d 02 1c 09  41 24 3d 22 22 0d 02 26  |(P%)....A$=""..&|
00000490  0d c8 95 20 3f 50 25 3e  33 31 0d 02 30 13 20 41  |... ?P%>31..0. A|
000004a0  24 2b 3d bd 3f 50 25 3a  50 25 2b 3d 31 0d 02 3a  |$+=.?P%:P%+=1..:|
000004b0  05 ce 0d 02 44 07 3d 41  24 0d 02 4e 05 3a 0d 02  |....D.=A$..N.:..|
000004c0  58 20 dd f2 65 72 72 6f  72 28 21 62 6c 6f 63 6b  |X ..error(!block|
000004d0  25 2c 24 28 62 6c 6f 63  6b 25 2b 34 29 29 0d 02  |%,$(block%+4))..|
000004e0  62 2e c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |b... "Wimp_Repor|
000004f0  74 45 72 72 6f 72 22 2c  62 6c 6f 63 6b 25 2c 31  |tError",block%,1|
00000500  2c 22 54 77 69 6e 53 74  61 72 74 22 0d 02 6c 05  |,"TwinStart"..l.|
00000510  e1 0d 02 76 05 3a 0d 02  80 16 2a 2a 2a 20 69 6e  |...v.:....*** in|
00000520  69 74 69 61 6c 69 73 61  74 69 6f 6e 0d 02 8a 05  |itialisation....|
00000530  3a 0d 02 94 10 dd f2 69  6e 69 74 69 61 6c 69 73  |:......initialis|
00000540  65 0d 02 9e 10 de 20 62  6c 6f 63 6b 25 20 39 39  |e..... block% 99|
00000550  39 0d 02 a8 32 c8 99 20  22 57 69 6d 70 5f 49 6e  |9...2.. "Wimp_In|
00000560  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00000570  42 35 33 34 31 35 34 2c  22 54 77 69 6e 53 74 61  |B534154,"TwinSta|
00000580  72 74 22 0d 02 b2 0b 71  75 69 74 25 3d a3 0d 02  |rt"....quit%=...|
00000590  bc 25 c8 99 20 22 4f 53  5f 53 65 74 56 61 72 56  |.%.. "OS_SetVarV|
000005a0  61 6c 22 2c 22 54 77 69  6e 24 4e 61 6d 65 22 2c  |al","Twin$Name",|
000005b0  22 3f 22 0d 02 c6 05 3a  0d 02 d0 0e de 20 6e 61  |"?"....:..... na|
000005c0  6d 65 24 28 39 29 0d 02  da 0a 6f 62 6a 25 3d 30  |me$(9)....obj%=0|
000005d0  0d 02 e4 0d 6e 61 6d 65  73 25 3d 2d 31 0d 02 ee  |....names%=-1...|
000005e0  05 f5 0d 02 f8 47 20 c8  99 20 22 4f 53 5f 47 42  |.....G .. "OS_GB|
000005f0  50 42 22 2c 31 30 2c 22  3c 54 77 69 6e 53 74 61  |PB",10,"<TwinSta|
00000600  72 74 24 44 69 72 3e 22  2c 62 6c 6f 63 6b 25 2c  |rt$Dir>",block%,|
00000610  31 2c 6f 62 6a 25 2c 32  35 36 2c 22 2a 22 20 b8  |1,obj%,256,"*" .|
00000620  20 2c 2c 2c 2c 6f 62 6a  25 0d 03 02 21 20 6e 61  | ,,,,obj%...! na|
00000630  6d 65 24 3d a4 67 65 74  5f 73 74 72 69 6e 67 28  |me$=.get_string(|
00000640  62 6c 6f 63 6b 25 2b 32  30 29 0d 03 0c 20 20 74  |block%+20)...  t|
00000650  79 70 65 25 3d 28 28 28  21 62 6c 6f 63 6b 25 29  |ype%=(((!block%)|
00000660  3e 3e 38 29 80 26 46 46  46 29 0d 03 16 32 20 e7  |>>8).&FFF)...2 .|
00000670  20 6f 62 6a 25 3c 3e 2d  31 20 80 20 74 79 70 65  | obj%<>-1 . type|
00000680  25 3d 26 46 46 44 20 80  20 6e 61 6d 65 24 3c 3e  |%=&FFD . name$<>|
00000690  22 4f 72 69 67 69 6e 61  6c 22 20 8c 0d 03 20 0f  |"Original" ... .|
000006a0  20 20 6e 61 6d 65 73 25  2b 3d 31 0d 03 2a 19 20  |  names%+=1..*. |
000006b0  20 6e 61 6d 65 24 28 6e  61 6d 65 73 25 29 3d 6e  | name$(names%)=n|
000006c0  61 6d 65 24 0d 03 34 06  20 cd 0d 03 3e 0d fd 20  |ame$..4. ...>.. |
000006d0  6f 62 6a 25 3d 2d 31 0d  03 48 05 3a 0d 03 52 14  |obj%=-1..H.:..R.|
000006e0  42 25 3d 62 6c 6f 63 6b  25 3a 21 42 25 3d 2d 31  |B%=block%:!B%=-1|
000006f0  0d 03 5c 13 42 25 21 34  3d 30 3a 42 25 21 31 32  |..\.B%!4=0:B%!12|
00000700  3d 36 38 0d 03 66 13 42  25 21 38 3d 30 3a 42 25  |=68..f.B%!8=0:B%|
00000710  21 31 36 3d 36 38 0d 03  70 0f 42 25 21 32 30 3d  |!16=68..p.B%!20=|
00000720  26 33 30 30 32 0d 03 7a  19 24 28 42 25 2b 32 34  |&3002..z.$(B%+24|
00000730  29 3d 22 21 54 77 69 6e  57 6f 72 6c 64 22 0d 03  |)="!TwinWorld"..|
00000740  84 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.... "Wimp_Creat|
00000750  65 49 63 6f 6e 22 2c 2c  42 25 0d 03 8e 05 3a 0d  |eIcon",,B%....:.|
00000760  03 98 1c de 20 6d 5f 6d  61 69 6e 25 20 39 39 39  |.... m_main% 999|
00000770  2c 6d 5f 73 75 62 25 20  39 39 39 0d 03 a2 10 de  |,m_sub% 999.....|
00000780  20 62 5f 6e 61 6d 65 25  20 31 30 0d 03 ac 11 f2  | b_name% 10.....|
00000790  63 72 65 61 74 65 5f 6d  65 6e 75 73 0d 03 b6 29  |create_menus...)|
000007a0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000007b0  65 6e 75 22 2c 2c 6d 5f  6d 61 69 6e 25 2c 35 33  |enu",,m_main%,53|
000007c0  30 2c 35 31 32 0d 03 c0  05 e1 0d 03 ca 05 3a 0d  |0,512.........:.|
000007d0  03 d4 15 2a 2a 2a 20 6d  65 6e 75 20 63 72 65 61  |...*** menu crea|
000007e0  74 6f 72 73 0d 03 de 05  3a 0d 03 e8 12 dd f2 63  |tors....:......c|
000007f0  72 65 61 74 65 5f 6d 65  6e 75 73 0d 03 f2 2a f2  |reate_menus...*.|
00000800  63 72 65 61 74 65 5f 6d  65 6e 75 28 6d 5f 73 75  |create_menu(m_su|
00000810  62 25 2c 22 4e 65 77 20  50 6c 61 79 65 72 3a 22  |b%,"New Player:"|
00000820  2c 31 37 36 29 0d 03 fc  22 49 25 21 30 3d 26 38  |,176)..."I%!0=&8|
00000830  34 3a 49 25 21 34 3d 2d  31 3a 49 25 21 38 3d 26  |4:I%!4=-1:I%!8=&|
00000840  37 30 30 30 31 32 31 0d  04 06 23 49 25 21 31 32  |7000121...#I%!12|
00000850  3d 62 5f 6e 61 6d 65 25  3a 49 25 21 31 36 3d 2d  |=b_name%:I%!16=-|
00000860  31 3a 49 25 21 32 30 3d  31 31 0d 04 10 0f 24 62  |1:I%!20=11....$b|
00000870  5f 6e 61 6d 65 25 3d 22  22 0d 04 1a 05 3a 0d 04  |_name%=""....:..|
00000880  24 2a f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 6d  |$*.create_menu(m|
00000890  5f 6d 61 69 6e 25 2c 22  54 77 69 6e 20 53 74 61  |_main%,"Twin Sta|
000008a0  72 74 22 2c 31 37 32 29  0d 04 2e 11 e7 20 6e 61  |rt",172)..... na|
000008b0  6d 65 73 25 3e 2d 31 20  8c 0d 04 38 14 20 e3 20  |mes%>-1 ...8. . |
000008c0  4e 25 3d 30 20 b8 20 6e  61 6d 65 73 25 0d 04 42  |N%=0 . names%..B|
000008d0  20 20 20 f2 6d 65 6e 75  5f 69 74 65 6d 28 6e 61  |   .menu_item(na|
000008e0  6d 65 24 28 4e 25 29 2c  30 2c 2d 31 29 0d 04 4c  |me$(N%),0,-1)..L|
000008f0  0f 20 ed 3a 49 25 21 2d  32 34 3d 32 0d 04 56 05  |. .:I%!-24=2..V.|
00000900  cd 0d 04 60 25 f2 6d 65  6e 75 5f 69 74 65 6d 28  |...`%.menu_item(|
00000910  22 4e 65 77 20 70 6c 61  79 65 72 22 2c 30 2c 6d  |"New player",0,m|
00000920  5f 73 75 62 25 29 0d 04  6a 1d f2 6d 65 6e 75 5f  |_sub%)..j..menu_|
00000930  69 74 65 6d 28 22 51 75  69 74 22 2c 26 38 30 2c  |item("Quit",&80,|
00000940  2d 31 29 0d 04 74 05 e1  0d 04 7e 05 3a 0d 04 88  |-1)..t....~.:...|
00000950  23 dd f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 4d  |#..create_menu(M|
00000960  25 2c 74 69 74 6c 65 24  2c 77 69 64 74 68 25 29  |%,title$,width%)|
00000970  0d 04 92 0e 24 4d 25 3d  74 69 74 6c 65 24 0d 04  |....$M%=title$..|
00000980  9c 1d 4d 25 21 31 32 3d  26 37 30 32 30 37 3a 4d  |..M%!12=&70207:M|
00000990  25 21 31 36 3d 77 69 64  74 68 25 0d 04 a6 1d 4d  |%!16=width%....M|
000009a0  25 21 32 30 3d 34 34 3a  4d 25 21 32 34 3d 30 3a  |%!20=44:M%!24=0:|
000009b0  49 25 3d 4d 25 2b 32 38  0d 04 b0 05 e1 0d 04 ba  |I%=M%+28........|
000009c0  05 3a 0d 04 c4 21 dd f2  6d 65 6e 75 5f 69 74 65  |.:...!..menu_ite|
000009d0  6d 28 69 74 65 6d 24 2c  66 6c 61 67 25 2c 73 75  |m(item$,flag%,su|
000009e0  62 25 29 0d 04 ce 25 21  49 25 3d 66 6c 61 67 25  |b%)...%!I%=flag%|
000009f0  3a 49 25 21 34 3d 73 75  62 25 3a 49 25 21 38 3d  |:I%!4=sub%:I%!8=|
00000a00  26 37 30 30 30 30 32 31  0d 04 d8 19 24 28 49 25  |&7000021....$(I%|
00000a10  2b 31 32 29 3d 69 74 65  6d 24 3a 49 25 2b 3d 32  |+12)=item$:I%+=2|
00000a20  34 0d 04 e2 05 e1 0d ff                           |4.......|
00000a28