� >!RunImage
$� BarCode wimp front end proggy.
:
( � -- Greetings tired Hacker,
2"�    Go rest you curious head,
<,�    For if you keep looking at my code,
F(�    The shock will strike you dead!
P:
Z	�init
d:
nȕ � quit%
x	�poll
��
�ș "Wimp_CloseDown"
��
�:
�� �init
�maxws%=&300
�)� block% 255,name% 11,mainind% maxws%
�� mainind2% maxws%
�� wimpicon% 20
�� imenu% 99
�� P% 2048,Q% 2048
�� blk% 984
�� icontext% 40

"� trans% 16,rect% 16,plotat% 8

path$="":type$="":obj$=""

desc$="Object is a"

"#� sbspr% 8,sbtext% 255,sbval% 3

,)$sbspr%="file_0b4":$sbtext%="BarCode"

6$sbval%="A~ "

@ver$="1.05 (25/4/94)"

Jquit%=�:app$="BarCode"

T+ș "Wimp_Initialise",200,&4B534154,app$

^!� � �error(�$+" at line "+Þ)

h#file%=�"<BarCode$Dir>.!Sprites"

rsize%=�#file%+4:�#file%

|� sparea% size%

�!sparea%=size%:sparea%!4=0

�sparea%!8=16

�sparea%!12=16

�:ș "OS_SpriteOp",&10A,sparea%,"<BarCode$Dir>.!Sprites"

�5ș "Wimp_OpenTemplate",,"<BarCode$Dir>.Templates"

�Cș "Wimp_LoadTemplate",,P%,mainind%,mainind%+maxws%,-1,"info",0

�K� SYS "Wimp_LoadTemplate",,Q%,mainind2%,mainind2%+maxws%,-1,"savewin",0

�&ș "Wimp_CreateWindow",,P% � info%

�*� SYS "Wimp_CreateWindow",,Q% TO save%

�ș "Wimp_CloseTemplate"

�>save%=�create_window(0,0,264,164,0,0,&84000012,"Save as:")

�<a%=�create_icon(save%,100,-92,68,68,&6102,"",sbspr%,1,9)

�Ga%=�create_icon(save%,8,-156,192,48,&700F13D,"",sbtext%,sbval%,256)
>a%=�create_icon(save%,208,-156,48,48,&C701903D,"OK",0,0,0)
�write_t(info%,4,ver$)
�setupmenu(imenu%)
&$wimpicon%="!BarCode"
0Cblock%!0=-1:block%!4=0:block%!8=0:block%!12=34*2:block%!16=17*4
:Bblock%!20=&0700311A:block%!24=wimpicon%:block%!28=-1:� sparea%
Dblock%!32=�("!barcode")
N,ș "Wimp_CreateIcon",,block% � ibhandle%
XB� ibhandle%=FNcreate_icon(-1,0,0,68,68,&3002,"!drawcad",0,0,0)
bANumber$="012345678900"
l	Ln=12
v	Fmt=0
�AandB=0
�� Sets$(10)
�
� X=0 � 9
�� Sets$(X)
��
�� Numbers$(10,3)
�
� X=0 � 9
�
� Y=1 � 3
�� Numbers$(X,Y)
��
��
�
Sopt=0
�	�load
�
:
� �poll
 %ș "Wimp_Poll",0,block% � reason%
*Ȏ reason% �
4$� 2:ș "Wimp_OpenWindow",,block%
>%� 3:ș "Wimp_CloseWindow",,block%
H� 6:�click(block%!12)
R� 7:�startsave
\� 8:�keypress(block%!24)
f� 9:�menuselect
p� 17,18:�receive
z=� WHEN 19:PROCreport("Transfer failed - receiver died",1)
��
��
�:
�� �report(err$,flag%)
�name$=app$
�.� flag% � 16 � name$="Message from "+name$
�!block%=255
�$(block%+4)=err$+�0
�9ș "Wimp_ReportError",block%,flag%,name$ � ,errclick%
��
�:
�� �error(a$)
��report(a$,1)
ș "Wimp_CloseDown"
�
�
$:
.;� �create_window(x%,y%,w%,h%,extx%,exty%,flags%,title$)
8:
B� visible work area
L!block%=x%
Vblock%!4=y%
`block%!8=x%+w%
jblock%!12=y%+h%
t:
~� scroll offsets
�block%!16=0
�block%!20=0
�:
�$� handle behind and window flags
�block%!24=-1
�block%!28=flags%
�:
�� window colours
�block%?32=7
�block%?33=2
�block%?34=7
�block%?35=1
block%?36=3

block%?37=1
block%?38=2
:
(� work area extent
2block%!40=0
<block%!44=-h%-exty%
Fblock%!48=w%+extx%
Pblock%!52=0
Z:
d#� title bar and work area flags
nblock%!56=&19
xblock%!60=3<<12
�:
�*� sprite area pointer and minimum size
�block%!64=1
�block%!68=0
�:
�� window title
�$(block%+72)=title$
�:
�� number of icons
�block%!84=0
�:
�,ș "Wimp_CreateWindow",,block% � handle%
�=handle%
:
� �click(win%)

Ȏ win% �
" � info%:�info_sel(block%!16)
,� -2:�ibar(block%!8)
6� save%:
@Ȏ block%!16 �
J � 0:� block%!8 � 64 �dragbox
T!� 2:� block%!8 � 5 �quicksave
^�
h�
r�
|:
�� �keypress(key%)
�
Ȏ � �
�� key%=13 � !block%=save%
��quicksave
�:ș "Wimp_ProcessKey",key%
��
��
�:
�G� �create_icon(whan%,ix%,iy%,iw%,ih%,flag%,text$,ptr1%,ptr2%,ptr3%)
�!block%=whan%
�block%!4=ix%
�block%!8=iy%
�block%!12=ix%+iw%
block%!16=iy%+ih%
block%!20=flag%
� ptr1%=0 �
&$(block%+24)=text$
0�
:block%!24=ptr1%
Dblock%!28=ptr2%
Nblock%!32=ptr3%
X�
b+ș "Wimp_CreateIcon",,block% � ihandle%
l
=ihandle%
v:
�� �ibar(button%)
�Ȏ button% �
�� 1,4:�ibar_click
�.� 2:�load:�showmenu(imenu%,!block%-64,300)
��
��
�:
�� �ibar_click
�&*Filer_Run <BarCode$Dir>.BarCdMnPg
��
�:
�� �setupmenu(menu%)
�� title$,num%:$menu%=title$
width%=(�(title$)-2)*16
*menu%!12=&70207:menu%!20=44:menu%!24=0
ptr%=menu%+28:� i%=1 � num%
 � mflags%,subptr%,item$
* !ptr%=mflags%:ptr%!4=subptr%
4$ptr%!8=&7000021:$(ptr%+12)=item$
>a%=(�(item$)+1)*16
H� a%>width% width%=a%
Rptr%+=24:�
\menu%!16=width%
f�
p:
z� �showmenu(menu%,mx%,my%)
�'ș "Wimp_CreateMenu",,menu%,mx%,my%
��
�:
�� �menuselect
� sel1%=!block%:sel2%=block%!4
�$ș "Wimp_GetPointerInfo",,block%
�button%=block%!8
�Ȏ sel1% �
�� 1:�quicksave
�� 2:�print
�� 3:quit%=�
��
�'� button%=1 � �showmenu(imenu%,0,0)
	�
	:
	� �receive
	$Ȏ block%!16 �
	.� 0:quit%=�
	8� 2:�datasave
	B� 3:�dataload(block%!40)
	L�
	V�
	`:
	j� �dataload(type%)
	t� type%<>&0B4 � �
	~path$=�string(block%+44)
	��load_file(path$)
	�	�save
	�$sbtext%=path$
	��
	�:
	�� �string(ptr%)
	�� a$
	�ȕ ?ptr%<>0
	�a$+=�(?ptr%):ptr%+=1
	��
	�=a$
	�:
� �startsave

$ș "Wimp_GetPointerInfo",,block%
+block%!20=block%!12:block%!24=block%!16
(block%!28=!block%:block%!32=block%!4
(#block%!36=�obj$+�path$+�type$+3
2!block%=64:block%!12=0
<block%!16=1:block%!40=&0B4
F#$(block%+44)=�getleaf($sbtext%)
P7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
Z�
d:
n� �quicksave
x� �$sbtext%,".") �
��saveit
��
�=�report("To save, drag the icon to a directory viewer",1)
��
��
�:
�
� �saveit
�	�load
�
Ȏ Sopt �
�� 0:
�file%=�($sbtext%)
��#file%,ANumber$
��#file%,AandB
�#file%,Fmt
�#file%
 � "SetType "+$sbtext%+" 0B4"
"
� 1:�draw
,� 2:�sprite
6�
@�
J:
T� �getleaf(a$)
^ȕ �a$,".")
ha$=�a$,�a$,".")+1)
r�
|
=a$+�0
�:
�� �datasave
�$sbtext%=�string(block%+44)
��saveit
�block%!12=block%!8
�block%!16=3:!block%=256
�7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
��
�:
�� �dragbox
�!block%=save%
�$ș "Wimp_GetWindowState",,block%
�ox%=block%!4-block%!20
oy%=block%!16-block%!24
block%!4=0
"ș "Wimp_GetIconState",,block%
&$block%!4=5:block%!8=ox%+block%!8
0block%!12=oy%+block%!12
:block%!16=ox%+block%!16
Dblock%!20=oy%+block%!20
Nblock%!24=0:block%!28=0
Xblock%!32=&7FFFFFFF
bblock%!36=&7FFFFFFF
lș "Wimp_DragBox",,block%
v�
�:
�� �write_t(win%,ic%,text$)
�!block%=win%:block%!4=ic%
�"ș "Wimp_GetIconState",,block%
�$(block%!28)=text$
�!block%=win%:block%!4=ic%
�block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�:
�� �info_sel(no)
�-� no=10 � *Filer_Run <BarCode$Dir>.Manual
��

:

� �print

	�load

 B� ("RMEnsure PDriver 0 ERROR 255 No printer driver installed")

*ș "Hourglass_On"

4pf%=�("printer:")

>)ș "PDriver_SelectJob",pf%,"Test job"

H� �

R[� � �:� �:ș "PDriver_AbortJob",pf%:�#pf%:ș "Hourglass_Off":�report(�$+" : "+�(�),1):�

\.ș "PDriver_PageSize" � ,w%,h%,l%,b%,r%,t%

f!rect%=0:rect%!4=0

prect%!8=856:rect%!12=1030

z!trans%=1<<16:trans%!4=0

�trans%!8=0:trans%!12=1<<16

�*!plotat%=l%+108000:plotat%!4=b%+216000

�?ș "PDriver_GiveRectangle",0,rect%,trans%,plotat%,&DDDDDD00

�.ș "PDriver_DrawPage",1,block%,0,0 � more%

��genview

�8ș "Font_CacheAddr" � version%,cacheused%,cachesize%

�>ș "Font_FindFont",,"Trinity.Bold",24*16,24*16,0,0 � Text%

�?ș "Font_FindFont",,"System.Fixed",40*16,40*16,0,0 � Text3%

�3ș "Font_SetPalette",,1,2,3,&88888800,&FFFFFF00

�$ș "Font_SetFontColours",0,1,2,3

�ȕ more%

�ș "ColourTrans_SetGCOL",0

�	�view
-ș "PDriver_GetRectangle",,block% � more%
�
ș "Font_LoseFont",Text%
$ș "Font_LoseFont",Text3%
.ș "PDriver_EndJob",pf%
8ș "Hourglass_Off"
B� �
L	�#pf%
V�
`:
j� �set_fcol(r,g,b,r2,g2,b2)
t� set_fcol%
~r=r*(1/255)
�g=g*(1/255)
�b=b*(1/255)
�r2=r2*(1/255)
�g2=g2*(1/255)
�b2=b2*(1/255)
�Iș "OS_SWINumberFromString",,"ColourTrans_SetFontColours" � set_fcol%
�jș set_fcol%,0,((r2*&FF)<<8)+((g2*&FF)<<16)+((b2*&FF)<<24),((r*&FF)<<8)+((g*&FF)<<16)+((b*&FF)<<24),14
��
�:
�� �centre(y%,t$,hand%)
�
� x1%,y1%
� ș "Font_SetFont",hand%
* ș "Font_StringBBox",,t$ � ,,,x1%,y1%

 x1%=x1%*180/72000
 y1%=y1%*180/72000
. ș "Font_Paint",,t$,16,428-x1%/2,y%-y1%/2
(�
2:
<� �where(x%,y%,t$,hand%)
F ș "Font_SetFont",hand%
P! ș "Font_Paint",,t$,16,x%,y%
Z�
d:
n� �genview
x� X,Y,Z
�BCode$="DLD"
�� X=1 � Ln/2
�Add=�(�ANumber$,X,1))
�Ȏ �Sets$(AandB),X,1) �
�!� "A":BCode$+=Numbers$(Add,1)
�!� "B":BCode$+=Numbers$(Add,2)
��
��
�BCode$+="LDLDL"
�� X=Ln/2+1 � Ln
�Add=�(�ANumber$,X,1))
�BCode$+=Numbers$(Add,3)
��
BCode$+="DLD"
�
:
"� �view
,&ș "ColourTrans_SetGCOL",&FFFFFF00
6$� RECTANGLE FILL 202,162,840,588
@ȓ Ȑ 0,0,1080,1030
J� X=1 � �(BCode$)
T`� �BCode$,X,1)="L" � ș "ColourTrans_SetGCOL",&FFFFFF00 � ș "ColourTrans_SetGCOL",&00000000
^ ȓ Ȑ 60+((X-1)*8),212,8,528
h�
r&ș "ColourTrans_SetGCOL",&FFFFFF00
|ȓ Ȑ 60+24,172,42*8,100
�$ȓ Ȑ 60+24+42*8+35,172,42*8,100
� �set_fcol(0,0,0,255,255,255)
�!�where(0,172,�(AandB),Text3%)
�)�where(60+44,172,�ANumber$,6),Text3%)
�1�where(60+32+42*8+35,172,�ANumber$,6),Text3%)
�F$="Unknown"
�Ȏ Fmt �
�� 0:F$="EAN"
�� 1:F$="ITF"
��
� �set_fcol(0,0,0,255,255,255)
�3�centre(950,"Article Number : "+ANumber$,Text%)
�G�centre(880,"Style : "+Sets$(AandB)+" CCCCCC ("+�(AandB)+")",Text%)
%�centre(810,"Format : "+F$,Text%)
4�centre(50,"� Copyright R.J.Wareham 1994",Text%)
�
&:
0� �load
:"file%=�("<BarCode$Dir>.Sopts")
DSopt=�#file%
N�#file%
X
Ȏ Sopt �
b� 0:$sbspr%="file_0B4"
l� 1:$sbspr%="file_AFF"
v� 2:$sbspr%="file_FF9"
��
�ANumber$=""
�!file%=�("<BarCode$Dir>.Temp")
�� Scn=1 � 12
�TEMP=�#file%
�ANumber$+=�(TEMP)
��
�DUMMY=�#file%
�AandB=�#file%
�Fmt=�#file%
�� #file%
��
�:
� �load_file(p$)
ANumber$=""
file%=�(p$)
 � Scn=1 � 12
*TEMP=�#file%
4ANumber$+=�(TEMP)
>�
HDUMMY=�#file%
RAandB=�#file%
\Fmt=�#file%
f� #file%
p	�save
z�
�:
�� �save
�!file%=�("<BarCode$Dir>.Temp")
��#file%,ANumber$
��#file%,AandB
��#file%,Fmt
��#file%
��
�:
�
� �sprite
�#file%=�("<BarCode$Dir>.SpName")
��#file%,$sbtext%
��#file%
#*Filer_Run <BarCode$Dir>.Sprite
�
:
$� �draw
.#file%=�("<BarCode$Dir>.SpName")
8�#file%,$sbtext%
B�#file%
Lfile%=�($sbtext%)
V�#file%,$sbtext%
`�#file%
j!*Filer_Run <BarCode$Dir>.Draw
t!�("SetType "+$sbtext%+" AFF")
~�
�:
�B� BarCode,4,0,info%,Info,0,save%,Save,%10,-1,Print,&80,-1,Quit
�(� AAAAAA,AABABB,AABBAB,AABBBA,ABAABB
�(� ABBAAB,ABBBAA,ABABAB,ABABBA,ABBABA
�� LLLDDLD,LDLLDDD,DDDLLDL
�� LLDDLLD,LDDLLDD,DDLLDDL
�� LLDLLDD,LLDDLDD,DDLDDLL
�� LDDDDLD,LDLLLLD,DLLLLDL
�� LDLLLDD,LLDDDLD,DLDDDLL
�� LDDLLLD,LDDDLLD,DLLDDDL
�� LDLDDDD,LLLLDLD,DLDLLLL
�� LDDDLDD,LLDLLLD,DLLLDLL
� LDDLDDD,LLLDLLD,DLLDLLL

� LLLDLDD,LLDLDDD,DDDLDLL
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 24 f4 20 42 61  72 43 6f 64 65 20 77 69  |...$. BarCode wi|
00000020  6d 70 20 66 72 6f 6e 74  20 65 6e 64 20 70 72 6f  |mp front end pro|
00000030  67 67 79 2e 0d 00 1e 05  3a 0d 00 28 20 f4 20 2d  |ggy.....:..( . -|
00000040  2d 20 47 72 65 65 74 69  6e 67 73 20 74 69 72 65  |- Greetings tire|
00000050  64 20 48 61 63 6b 65 72  2c 0d 00 32 22 f4 20 20  |d Hacker,..2".  |
00000060  20 20 47 6f 20 72 65 73  74 20 79 6f 75 20 63 75  |  Go rest you cu|
00000070  72 69 6f 75 73 20 68 65  61 64 2c 0d 00 3c 2c f4  |rious head,..<,.|
00000080  20 20 20 20 46 6f 72 20  69 66 20 79 6f 75 20 6b  |    For if you k|
00000090  65 65 70 20 6c 6f 6f 6b  69 6e 67 20 61 74 20 6d  |eep looking at m|
000000a0  79 20 63 6f 64 65 2c 0d  00 46 28 f4 20 20 20 20  |y code,..F(.    |
000000b0  54 68 65 20 73 68 6f 63  6b 20 77 69 6c 6c 20 73  |The shock will s|
000000c0  74 72 69 6b 65 20 79 6f  75 20 64 65 61 64 21 0d  |trike you dead!.|
000000d0  00 50 05 3a 0d 00 5a 09  f2 69 6e 69 74 0d 00 64  |.P.:..Z..init..d|
000000e0  05 3a 0d 00 6e 0e c8 95  20 ac 20 71 75 69 74 25  |.:..n... . quit%|
000000f0  0d 00 78 09 f2 70 6f 6c  6c 0d 00 82 05 ce 0d 00  |..x..poll.......|
00000100  8c 17 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.... "Wimp_Close|
00000110  44 6f 77 6e 22 0d 00 96  05 e0 0d 00 a0 05 3a 0d  |Down".........:.|
00000120  00 aa 0b dd 20 f2 69 6e  69 74 0d 00 b4 0f 6d 61  |.... .init....ma|
00000130  78 77 73 25 3d 26 33 30  30 0d 00 be 29 de 20 62  |xws%=&300...). b|
00000140  6c 6f 63 6b 25 20 32 35  35 2c 6e 61 6d 65 25 20  |lock% 255,name% |
00000150  31 31 2c 6d 61 69 6e 69  6e 64 25 20 6d 61 78 77  |11,mainind% maxw|
00000160  73 25 0d 00 c8 16 de 20  6d 61 69 6e 69 6e 64 32  |s%..... mainind2|
00000170  25 20 6d 61 78 77 73 25  0d 00 d2 12 de 20 77 69  |% maxws%..... wi|
00000180  6d 70 69 63 6f 6e 25 20  32 30 0d 00 dc 0f de 20  |mpicon% 20..... |
00000190  69 6d 65 6e 75 25 20 39  39 0d 00 e6 15 de 20 50  |imenu% 99..... P|
000001a0  25 20 32 30 34 38 2c 51  25 20 32 30 34 38 0d 00  |% 2048,Q% 2048..|
000001b0  f0 0e de 20 62 6c 6b 25  20 39 38 34 0d 00 fa 12  |... blk% 984....|
000001c0  de 20 69 63 6f 6e 74 65  78 74 25 20 34 30 0d 01  |. icontext% 40..|
000001d0  04 22 de 20 74 72 61 6e  73 25 20 31 36 2c 72 65  |.". trans% 16,re|
000001e0  63 74 25 20 31 36 2c 70  6c 6f 74 61 74 25 20 38  |ct% 16,plotat% 8|
000001f0  0d 01 0e 1d 70 61 74 68  24 3d 22 22 3a 74 79 70  |....path$="":typ|
00000200  65 24 3d 22 22 3a 6f 62  6a 24 3d 22 22 0d 01 18  |e$="":obj$=""...|
00000210  17 64 65 73 63 24 3d 22  4f 62 6a 65 63 74 20 69  |.desc$="Object i|
00000220  73 20 61 22 0d 01 22 23  de 20 73 62 73 70 72 25  |s a".."#. sbspr%|
00000230  20 38 2c 73 62 74 65 78  74 25 20 32 35 35 2c 73  | 8,sbtext% 255,s|
00000240  62 76 61 6c 25 20 33 0d  01 2c 29 24 73 62 73 70  |bval% 3..,)$sbsp|
00000250  72 25 3d 22 66 69 6c 65  5f 30 62 34 22 3a 24 73  |r%="file_0b4":$s|
00000260  62 74 65 78 74 25 3d 22  42 61 72 43 6f 64 65 22  |btext%="BarCode"|
00000270  0d 01 36 11 24 73 62 76  61 6c 25 3d 22 41 7e 20  |..6.$sbval%="A~ |
00000280  22 0d 01 40 19 76 65 72  24 3d 22 31 2e 30 35 20  |"..@.ver$="1.05 |
00000290  28 32 35 2f 34 2f 39 34  29 22 0d 01 4a 1a 71 75  |(25/4/94)"..J.qu|
000002a0  69 74 25 3d a3 3a 61 70  70 24 3d 22 42 61 72 43  |it%=.:app$="BarC|
000002b0  6f 64 65 22 0d 01 54 2b  c8 99 20 22 57 69 6d 70  |ode"..T+.. "Wimp|
000002c0  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
000002d0  2c 26 34 42 35 33 34 31  35 34 2c 61 70 70 24 0d  |,&4B534154,app$.|
000002e0  01 5e 21 ee 20 85 20 f2  65 72 72 6f 72 28 f6 24  |.^!. . .error(.$|
000002f0  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 9e 29  |+" at line "+..)|
00000300  0d 01 68 23 66 69 6c 65  25 3d 8e 22 3c 42 61 72  |..h#file%=."<Bar|
00000310  43 6f 64 65 24 44 69 72  3e 2e 21 53 70 72 69 74  |Code$Dir>.!Sprit|
00000320  65 73 22 0d 01 72 1b 73  69 7a 65 25 3d a2 23 66  |es"..r.size%=.#f|
00000330  69 6c 65 25 2b 34 3a d9  23 66 69 6c 65 25 0d 01  |ile%+4:.#file%..|
00000340  7c 13 de 20 73 70 61 72  65 61 25 20 73 69 7a 65  ||.. sparea% size|
00000350  25 0d 01 86 1e 21 73 70  61 72 65 61 25 3d 73 69  |%....!sparea%=si|
00000360  7a 65 25 3a 73 70 61 72  65 61 25 21 34 3d 30 0d  |ze%:sparea%!4=0.|
00000370  01 90 10 73 70 61 72 65  61 25 21 38 3d 31 36 0d  |...sparea%!8=16.|
00000380  01 9a 11 73 70 61 72 65  61 25 21 31 32 3d 31 36  |...sparea%!12=16|
00000390  0d 01 a4 3a c8 99 20 22  4f 53 5f 53 70 72 69 74  |...:.. "OS_Sprit|
000003a0  65 4f 70 22 2c 26 31 30  41 2c 73 70 61 72 65 61  |eOp",&10A,sparea|
000003b0  25 2c 22 3c 42 61 72 43  6f 64 65 24 44 69 72 3e  |%,"<BarCode$Dir>|
000003c0  2e 21 53 70 72 69 74 65  73 22 0d 01 ae 35 c8 99  |.!Sprites"...5..|
000003d0  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
000003e0  61 74 65 22 2c 2c 22 3c  42 61 72 43 6f 64 65 24  |ate",,"<BarCode$|
000003f0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000400  01 b8 43 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..C.. "Wimp_Load|
00000410  54 65 6d 70 6c 61 74 65  22 2c 2c 50 25 2c 6d 61  |Template",,P%,ma|
00000420  69 6e 69 6e 64 25 2c 6d  61 69 6e 69 6e 64 25 2b  |inind%,mainind%+|
00000430  6d 61 78 77 73 25 2c 2d  31 2c 22 69 6e 66 6f 22  |maxws%,-1,"info"|
00000440  2c 30 0d 01 c2 4b f4 20  53 59 53 20 22 57 69 6d  |,0...K. SYS "Wim|
00000450  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000460  2c 51 25 2c 6d 61 69 6e  69 6e 64 32 25 2c 6d 61  |,Q%,mainind2%,ma|
00000470  69 6e 69 6e 64 32 25 2b  6d 61 78 77 73 25 2c 2d  |inind2%+maxws%,-|
00000480  31 2c 22 73 61 76 65 77  69 6e 22 2c 30 0d 01 cc  |1,"savewin",0...|
00000490  26 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |&.. "Wimp_Create|
000004a0  57 69 6e 64 6f 77 22 2c  2c 50 25 20 b8 20 69 6e  |Window",,P% . in|
000004b0  66 6f 25 0d 01 d6 2a f4  20 53 59 53 20 22 57 69  |fo%...*. SYS "Wi|
000004c0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000004d0  2c 2c 51 25 20 54 4f 20  73 61 76 65 25 0d 01 e0  |,,Q% TO save%...|
000004e0  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
000004f0  65 6d 70 6c 61 74 65 22  0d 01 ea 3e 73 61 76 65  |emplate"...>save|
00000500  25 3d a4 63 72 65 61 74  65 5f 77 69 6e 64 6f 77  |%=.create_window|
00000510  28 30 2c 30 2c 32 36 34  2c 31 36 34 2c 30 2c 30  |(0,0,264,164,0,0|
00000520  2c 26 38 34 30 30 30 30  31 32 2c 22 53 61 76 65  |,&84000012,"Save|
00000530  20 61 73 3a 22 29 0d 01  f4 3c 61 25 3d a4 63 72  | as:")...<a%=.cr|
00000540  65 61 74 65 5f 69 63 6f  6e 28 73 61 76 65 25 2c  |eate_icon(save%,|
00000550  31 30 30 2c 2d 39 32 2c  36 38 2c 36 38 2c 26 36  |100,-92,68,68,&6|
00000560  31 30 32 2c 22 22 2c 73  62 73 70 72 25 2c 31 2c  |102,"",sbspr%,1,|
00000570  39 29 0d 01 fe 47 61 25  3d a4 63 72 65 61 74 65  |9)...Ga%=.create|
00000580  5f 69 63 6f 6e 28 73 61  76 65 25 2c 38 2c 2d 31  |_icon(save%,8,-1|
00000590  35 36 2c 31 39 32 2c 34  38 2c 26 37 30 30 46 31  |56,192,48,&700F1|
000005a0  33 44 2c 22 22 2c 73 62  74 65 78 74 25 2c 73 62  |3D,"",sbtext%,sb|
000005b0  76 61 6c 25 2c 32 35 36  29 0d 02 08 3e 61 25 3d  |val%,256)...>a%=|
000005c0  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 73 61 76  |.create_icon(sav|
000005d0  65 25 2c 32 30 38 2c 2d  31 35 36 2c 34 38 2c 34  |e%,208,-156,48,4|
000005e0  38 2c 26 43 37 30 31 39  30 33 44 2c 22 4f 4b 22  |8,&C701903D,"OK"|
000005f0  2c 30 2c 30 2c 30 29 0d  02 12 1a f2 77 72 69 74  |,0,0,0).....writ|
00000600  65 5f 74 28 69 6e 66 6f  25 2c 34 2c 76 65 72 24  |e_t(info%,4,ver$|
00000610  29 0d 02 1c 16 f2 73 65  74 75 70 6d 65 6e 75 28  |).....setupmenu(|
00000620  69 6d 65 6e 75 25 29 0d  02 26 19 24 77 69 6d 70  |imenu%)..&.$wimp|
00000630  69 63 6f 6e 25 3d 22 21  42 61 72 43 6f 64 65 22  |icon%="!BarCode"|
00000640  0d 02 30 43 62 6c 6f 63  6b 25 21 30 3d 2d 31 3a  |..0Cblock%!0=-1:|
00000650  62 6c 6f 63 6b 25 21 34  3d 30 3a 62 6c 6f 63 6b  |block%!4=0:block|
00000660  25 21 38 3d 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%!8=0:block%!12=|
00000670  33 34 2a 32 3a 62 6c 6f  63 6b 25 21 31 36 3d 31  |34*2:block%!16=1|
00000680  37 2a 34 0d 02 3a 42 62  6c 6f 63 6b 25 21 32 30  |7*4..:Bblock%!20|
00000690  3d 26 30 37 30 30 33 31  31 41 3a 62 6c 6f 63 6b  |=&0700311A:block|
000006a0  25 21 32 34 3d 77 69 6d  70 69 63 6f 6e 25 3a 62  |%!24=wimpicon%:b|
000006b0  6c 6f 63 6b 25 21 32 38  3d 2d 31 3a f4 20 73 70  |lock%!28=-1:. sp|
000006c0  61 72 65 61 25 0d 02 44  1b 62 6c 6f 63 6b 25 21  |area%..D.block%!|
000006d0  33 32 3d a9 28 22 21 62  61 72 63 6f 64 65 22 29  |32=.("!barcode")|
000006e0  0d 02 4e 2c c8 99 20 22  57 69 6d 70 5f 43 72 65  |..N,.. "Wimp_Cre|
000006f0  61 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |ateIcon",,block%|
00000700  20 b8 20 69 62 68 61 6e  64 6c 65 25 0d 02 58 42  | . ibhandle%..XB|
00000710  f4 20 69 62 68 61 6e 64  6c 65 25 3d 46 4e 63 72  |. ibhandle%=FNcr|
00000720  65 61 74 65 5f 69 63 6f  6e 28 2d 31 2c 30 2c 30  |eate_icon(-1,0,0|
00000730  2c 36 38 2c 36 38 2c 26  33 30 30 32 2c 22 21 64  |,68,68,&3002,"!d|
00000740  72 61 77 63 61 64 22 2c  30 2c 30 2c 30 29 0d 02  |rawcad",0,0,0)..|
00000750  62 1b 41 4e 75 6d 62 65  72 24 3d 22 30 31 32 33  |b.ANumber$="0123|
00000760  34 35 36 37 38 39 30 30  22 0d 02 6c 09 4c 6e 3d  |45678900"..l.Ln=|
00000770  31 32 0d 02 76 09 46 6d  74 3d 30 0d 02 80 0b 41  |12..v.Fmt=0....A|
00000780  61 6e 64 42 3d 30 0d 02  8a 0f de 20 53 65 74 73  |andB=0..... Sets|
00000790  24 28 31 30 29 0d 02 94  0d e3 20 58 3d 30 20 b8  |$(10)..... X=0 .|
000007a0  20 39 0d 02 9e 0e f3 20  53 65 74 73 24 28 58 29  | 9..... Sets$(X)|
000007b0  0d 02 a8 05 ed 0d 02 b2  14 de 20 4e 75 6d 62 65  |.......... Numbe|
000007c0  72 73 24 28 31 30 2c 33  29 0d 02 bc 0d e3 20 58  |rs$(10,3)..... X|
000007d0  3d 30 20 b8 20 39 0d 02  c6 0d e3 20 59 3d 31 20  |=0 . 9..... Y=1 |
000007e0  b8 20 33 0d 02 d0 13 f3  20 4e 75 6d 62 65 72 73  |. 3..... Numbers|
000007f0  24 28 58 2c 59 29 0d 02  da 05 ed 0d 02 e4 05 ed  |$(X,Y)..........|
00000800  0d 02 ee 0a 53 6f 70 74  3d 30 0d 02 f8 09 f2 6c  |....Sopt=0.....l|
00000810  6f 61 64 0d 03 02 05 e1  0d 03 0c 05 3a 0d 03 16  |oad.........:...|
00000820  0b dd 20 f2 70 6f 6c 6c  0d 03 20 25 c8 99 20 22  |.. .poll.. %.. "|
00000830  57 69 6d 70 5f 50 6f 6c  6c 22 2c 30 2c 62 6c 6f  |Wimp_Poll",0,blo|
00000840  63 6b 25 20 b8 20 72 65  61 73 6f 6e 25 0d 03 2a  |ck% . reason%..*|
00000850  10 c8 8e 20 72 65 61 73  6f 6e 25 20 ca 0d 03 34  |... reason% ...4|
00000860  24 c9 20 32 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |$. 2:.. "Wimp_Op|
00000870  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
00000880  25 0d 03 3e 25 c9 20 33  3a c8 99 20 22 57 69 6d  |%..>%. 3:.. "Wim|
00000890  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
000008a0  62 6c 6f 63 6b 25 0d 03  48 19 c9 20 36 3a f2 63  |block%..H.. 6:.c|
000008b0  6c 69 63 6b 28 62 6c 6f  63 6b 25 21 31 32 29 0d  |lick(block%!12).|
000008c0  03 52 12 c9 20 37 3a f2  73 74 61 72 74 73 61 76  |.R.. 7:.startsav|
000008d0  65 0d 03 5c 1c c9 20 38  3a f2 6b 65 79 70 72 65  |e..\.. 8:.keypre|
000008e0  73 73 28 62 6c 6f 63 6b  25 21 32 34 29 0d 03 66  |ss(block%!24)..f|
000008f0  13 c9 20 39 3a f2 6d 65  6e 75 73 65 6c 65 63 74  |.. 9:.menuselect|
00000900  0d 03 70 14 c9 20 31 37  2c 31 38 3a f2 72 65 63  |..p.. 17,18:.rec|
00000910  65 69 76 65 0d 03 7a 3d  f4 20 57 48 45 4e 20 31  |eive..z=. WHEN 1|
00000920  39 3a 50 52 4f 43 72 65  70 6f 72 74 28 22 54 72  |9:PROCreport("Tr|
00000930  61 6e 73 66 65 72 20 66  61 69 6c 65 64 20 2d 20  |ansfer failed - |
00000940  72 65 63 65 69 76 65 72  20 64 69 65 64 22 2c 31  |receiver died",1|
00000950  29 0d 03 84 05 cb 0d 03  8e 05 e1 0d 03 98 05 3a  |)..............:|
00000960  0d 03 a2 19 dd 20 f2 72  65 70 6f 72 74 28 65 72  |..... .report(er|
00000970  72 24 2c 66 6c 61 67 25  29 0d 03 ac 0e 6e 61 6d  |r$,flag%)....nam|
00000980  65 24 3d 61 70 70 24 0d  03 b6 2e e7 20 66 6c 61  |e$=app$..... fla|
00000990  67 25 20 80 20 31 36 20  8c 20 6e 61 6d 65 24 3d  |g% . 16 . name$=|
000009a0  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 22 2b  |"Message from "+|
000009b0  6e 61 6d 65 24 0d 03 c0  0f 21 62 6c 6f 63 6b 25  |name$....!block%|
000009c0  3d 32 35 35 0d 03 ca 17  24 28 62 6c 6f 63 6b 25  |=255....$(block%|
000009d0  2b 34 29 3d 65 72 72 24  2b bd 30 0d 03 d4 39 c8  |+4)=err$+.0...9.|
000009e0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
000009f0  72 6f 72 22 2c 62 6c 6f  63 6b 25 2c 66 6c 61 67  |ror",block%,flag|
00000a00  25 2c 6e 61 6d 65 24 20  b8 20 2c 65 72 72 63 6c  |%,name$ . ,errcl|
00000a10  69 63 6b 25 0d 03 de 05  e1 0d 03 e8 05 3a 0d 03  |ick%.........:..|
00000a20  f2 10 dd 20 f2 65 72 72  6f 72 28 61 24 29 0d 03  |... .error(a$)..|
00000a30  fc 11 f2 72 65 70 6f 72  74 28 61 24 2c 31 29 0d  |...report(a$,1).|
00000a40  04 06 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
00000a50  65 44 6f 77 6e 22 0d 04  10 05 e0 0d 04 1a 05 e1  |eDown"..........|
00000a60  0d 04 24 05 3a 0d 04 2e  3b dd 20 a4 63 72 65 61  |..$.:...;. .crea|
00000a70  74 65 5f 77 69 6e 64 6f  77 28 78 25 2c 79 25 2c  |te_window(x%,y%,|
00000a80  77 25 2c 68 25 2c 65 78  74 78 25 2c 65 78 74 79  |w%,h%,extx%,exty|
00000a90  25 2c 66 6c 61 67 73 25  2c 74 69 74 6c 65 24 29  |%,flags%,title$)|
00000aa0  0d 04 38 05 3a 0d 04 42  17 f4 20 76 69 73 69 62  |..8.:..B.. visib|
00000ab0  6c 65 20 77 6f 72 6b 20  61 72 65 61 0d 04 4c 0e  |le work area..L.|
00000ac0  21 62 6c 6f 63 6b 25 3d  78 25 0d 04 56 0f 62 6c  |!block%=x%..V.bl|
00000ad0  6f 63 6b 25 21 34 3d 79  25 0d 04 60 12 62 6c 6f  |ock%!4=y%..`.blo|
00000ae0  63 6b 25 21 38 3d 78 25  2b 77 25 0d 04 6a 13 62  |ck%!8=x%+w%..j.b|
00000af0  6c 6f 63 6b 25 21 31 32  3d 79 25 2b 68 25 0d 04  |lock%!12=y%+h%..|
00000b00  74 05 3a 0d 04 7e 14 f4  20 73 63 72 6f 6c 6c 20  |t.:..~.. scroll |
00000b10  6f 66 66 73 65 74 73 0d  04 88 0f 62 6c 6f 63 6b  |offsets....block|
00000b20  25 21 31 36 3d 30 0d 04  92 0f 62 6c 6f 63 6b 25  |%!16=0....block%|
00000b30  21 32 30 3d 30 0d 04 9c  05 3a 0d 04 a6 24 f4 20  |!20=0....:...$. |
00000b40  68 61 6e 64 6c 65 20 62  65 68 69 6e 64 20 61 6e  |handle behind an|
00000b50  64 20 77 69 6e 64 6f 77  20 66 6c 61 67 73 0d 04  |d window flags..|
00000b60  b0 10 62 6c 6f 63 6b 25  21 32 34 3d 2d 31 0d 04  |..block%!24=-1..|
00000b70  ba 14 62 6c 6f 63 6b 25  21 32 38 3d 66 6c 61 67  |..block%!28=flag|
00000b80  73 25 0d 04 c4 05 3a 0d  04 ce 14 f4 20 77 69 6e  |s%....:..... win|
00000b90  64 6f 77 20 63 6f 6c 6f  75 72 73 0d 04 d8 0f 62  |dow colours....b|
00000ba0  6c 6f 63 6b 25 3f 33 32  3d 37 0d 04 e2 0f 62 6c  |lock%?32=7....bl|
00000bb0  6f 63 6b 25 3f 33 33 3d  32 0d 04 ec 0f 62 6c 6f  |ock%?33=2....blo|
00000bc0  63 6b 25 3f 33 34 3d 37  0d 04 f6 0f 62 6c 6f 63  |ck%?34=7....bloc|
00000bd0  6b 25 3f 33 35 3d 31 0d  05 00 0f 62 6c 6f 63 6b  |k%?35=1....block|
00000be0  25 3f 33 36 3d 33 0d 05  0a 0f 62 6c 6f 63 6b 25  |%?36=3....block%|
00000bf0  3f 33 37 3d 31 0d 05 14  0f 62 6c 6f 63 6b 25 3f  |?37=1....block%?|
00000c00  33 38 3d 32 0d 05 1e 05  3a 0d 05 28 16 f4 20 77  |38=2....:..(.. w|
00000c10  6f 72 6b 20 61 72 65 61  20 65 78 74 65 6e 74 0d  |ork area extent.|
00000c20  05 32 0f 62 6c 6f 63 6b  25 21 34 30 3d 30 0d 05  |.2.block%!40=0..|
00000c30  3c 17 62 6c 6f 63 6b 25  21 34 34 3d 2d 68 25 2d  |<.block%!44=-h%-|
00000c40  65 78 74 79 25 0d 05 46  16 62 6c 6f 63 6b 25 21  |exty%..F.block%!|
00000c50  34 38 3d 77 25 2b 65 78  74 78 25 0d 05 50 0f 62  |48=w%+extx%..P.b|
00000c60  6c 6f 63 6b 25 21 35 32  3d 30 0d 05 5a 05 3a 0d  |lock%!52=0..Z.:.|
00000c70  05 64 23 f4 20 74 69 74  6c 65 20 62 61 72 20 61  |.d#. title bar a|
00000c80  6e 64 20 77 6f 72 6b 20  61 72 65 61 20 66 6c 61  |nd work area fla|
00000c90  67 73 0d 05 6e 11 62 6c  6f 63 6b 25 21 35 36 3d  |gs..n.block%!56=|
00000ca0  26 31 39 0d 05 78 13 62  6c 6f 63 6b 25 21 36 30  |&19..x.block%!60|
00000cb0  3d 33 3c 3c 31 32 0d 05  82 05 3a 0d 05 8c 2a f4  |=3<<12....:...*.|
00000cc0  20 73 70 72 69 74 65 20  61 72 65 61 20 70 6f 69  | sprite area poi|
00000cd0  6e 74 65 72 20 61 6e 64  20 6d 69 6e 69 6d 75 6d  |nter and minimum|
00000ce0  20 73 69 7a 65 0d 05 96  0f 62 6c 6f 63 6b 25 21  | size....block%!|
00000cf0  36 34 3d 31 0d 05 a0 0f  62 6c 6f 63 6b 25 21 36  |64=1....block%!6|
00000d00  38 3d 30 0d 05 aa 05 3a  0d 05 b4 12 f4 20 77 69  |8=0....:..... wi|
00000d10  6e 64 6f 77 20 74 69 74  6c 65 0d 05 be 17 24 28  |ndow title....$(|
00000d20  62 6c 6f 63 6b 25 2b 37  32 29 3d 74 69 74 6c 65  |block%+72)=title|
00000d30  24 0d 05 c8 05 3a 0d 05  d2 15 f4 20 6e 75 6d 62  |$....:..... numb|
00000d40  65 72 20 6f 66 20 69 63  6f 6e 73 0d 05 dc 0f 62  |er of icons....b|
00000d50  6c 6f 63 6b 25 21 38 34  3d 30 0d 05 e6 05 3a 0d  |lock%!84=0....:.|
00000d60  05 f0 2c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..,.. "Wimp_Crea|
00000d70  74 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |teWindow",,block|
00000d80  25 20 b8 20 68 61 6e 64  6c 65 25 0d 05 fa 0c 3d  |% . handle%....=|
00000d90  68 61 6e 64 6c 65 25 0d  06 04 05 3a 0d 06 0e 12  |handle%....:....|
00000da0  dd 20 f2 63 6c 69 63 6b  28 77 69 6e 25 29 0d 06  |. .click(win%)..|
00000db0  18 0d c8 8e 20 77 69 6e  25 20 ca 0d 06 22 20 c9  |.... win% ..." .|
00000dc0  20 69 6e 66 6f 25 3a f2  69 6e 66 6f 5f 73 65 6c  | info%:.info_sel|
00000dd0  28 62 6c 6f 63 6b 25 21  31 36 29 0d 06 2c 18 c9  |(block%!16)..,..|
00000de0  20 2d 32 3a f2 69 62 61  72 28 62 6c 6f 63 6b 25  | -2:.ibar(block%|
00000df0  21 38 29 0d 06 36 0c c9  20 73 61 76 65 25 3a 0d  |!8)..6.. save%:.|
00000e00  06 40 12 c8 8e 20 62 6c  6f 63 6b 25 21 31 36 20  |.@... block%!16 |
00000e10  ca 0d 06 4a 20 c9 20 30  3a e7 20 62 6c 6f 63 6b  |...J . 0:. block|
00000e20  25 21 38 20 80 20 36 34  20 f2 64 72 61 67 62 6f  |%!8 . 64 .dragbo|
00000e30  78 0d 06 54 21 c9 20 32  3a e7 20 62 6c 6f 63 6b  |x..T!. 2:. block|
00000e40  25 21 38 20 80 20 35 20  f2 71 75 69 63 6b 73 61  |%!8 . 5 .quicksa|
00000e50  76 65 0d 06 5e 05 cb 0d  06 68 05 cb 0d 06 72 05  |ve..^....h....r.|
00000e60  e1 0d 06 7c 05 3a 0d 06  86 15 dd 20 f2 6b 65 79  |...|.:..... .key|
00000e70  70 72 65 73 73 28 6b 65  79 25 29 0d 06 90 0a c8  |press(key%).....|
00000e80  8e 20 b9 20 ca 0d 06 9a  1d c9 20 6b 65 79 25 3d  |. . ...... key%=|
00000e90  31 33 20 80 20 21 62 6c  6f 63 6b 25 3d 73 61 76  |13 . !block%=sav|
00000ea0  65 25 0d 06 a4 0e f2 71  75 69 63 6b 73 61 76 65  |e%.....quicksave|
00000eb0  0d 06 ae 1f 7f 3a c8 99  20 22 57 69 6d 70 5f 50  |.....:.. "Wimp_P|
00000ec0  72 6f 63 65 73 73 4b 65  79 22 2c 6b 65 79 25 0d  |rocessKey",key%.|
00000ed0  06 b8 05 cb 0d 06 c2 05  e1 0d 06 cc 05 3a 0d 06  |.............:..|
00000ee0  d6 47 dd 20 a4 63 72 65  61 74 65 5f 69 63 6f 6e  |.G. .create_icon|
00000ef0  28 77 68 61 6e 25 2c 69  78 25 2c 69 79 25 2c 69  |(whan%,ix%,iy%,i|
00000f00  77 25 2c 69 68 25 2c 66  6c 61 67 25 2c 74 65 78  |w%,ih%,flag%,tex|
00000f10  74 24 2c 70 74 72 31 25  2c 70 74 72 32 25 2c 70  |t$,ptr1%,ptr2%,p|
00000f20  74 72 33 25 29 0d 06 e0  11 21 62 6c 6f 63 6b 25  |tr3%)....!block%|
00000f30  3d 77 68 61 6e 25 0d 06  ea 10 62 6c 6f 63 6b 25  |=whan%....block%|
00000f40  21 34 3d 69 78 25 0d 06  f4 10 62 6c 6f 63 6b 25  |!4=ix%....block%|
00000f50  21 38 3d 69 79 25 0d 06  fe 15 62 6c 6f 63 6b 25  |!8=iy%....block%|
00000f60  21 31 32 3d 69 78 25 2b  69 77 25 0d 07 08 15 62  |!12=ix%+iw%....b|
00000f70  6c 6f 63 6b 25 21 31 36  3d 69 79 25 2b 69 68 25  |lock%!16=iy%+ih%|
00000f80  0d 07 12 13 62 6c 6f 63  6b 25 21 32 30 3d 66 6c  |....block%!20=fl|
00000f90  61 67 25 0d 07 1c 0f e7  20 70 74 72 31 25 3d 30  |ag%..... ptr1%=0|
00000fa0  20 8c 0d 07 26 16 24 28  62 6c 6f 63 6b 25 2b 32  | ...&.$(block%+2|
00000fb0  34 29 3d 74 65 78 74 24  0d 07 30 05 cc 0d 07 3a  |4)=text$..0....:|
00000fc0  13 62 6c 6f 63 6b 25 21  32 34 3d 70 74 72 31 25  |.block%!24=ptr1%|
00000fd0  0d 07 44 13 62 6c 6f 63  6b 25 21 32 38 3d 70 74  |..D.block%!28=pt|
00000fe0  72 32 25 0d 07 4e 13 62  6c 6f 63 6b 25 21 33 32  |r2%..N.block%!32|
00000ff0  3d 70 74 72 33 25 0d 07  58 05 cd 0d 07 62 2b c8  |=ptr3%..X....b+.|
00001000  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00001010  6f 6e 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 69 68  |on",,block% . ih|
00001020  61 6e 64 6c 65 25 0d 07  6c 0d 3d 69 68 61 6e 64  |andle%..l.=ihand|
00001030  6c 65 25 0d 07 76 05 3a  0d 07 80 14 dd 20 f2 69  |le%..v.:..... .i|
00001040  62 61 72 28 62 75 74 74  6f 6e 25 29 0d 07 8a 10  |bar(button%)....|
00001050  c8 8e 20 62 75 74 74 6f  6e 25 20 ca 0d 07 94 15  |.. button% .....|
00001060  c9 20 31 2c 34 3a f2 69  62 61 72 5f 63 6c 69 63  |. 1,4:.ibar_clic|
00001070  6b 0d 07 9e 2e c9 20 32  3a f2 6c 6f 61 64 3a f2  |k..... 2:.load:.|
00001080  73 68 6f 77 6d 65 6e 75  28 69 6d 65 6e 75 25 2c  |showmenu(imenu%,|
00001090  21 62 6c 6f 63 6b 25 2d  36 34 2c 33 30 30 29 0d  |!block%-64,300).|
000010a0  07 a8 05 cb 0d 07 b2 05  e1 0d 07 bc 05 3a 0d 07  |.............:..|
000010b0  c6 11 dd 20 f2 69 62 61  72 5f 63 6c 69 63 6b 0d  |... .ibar_click.|
000010c0  07 d0 26 2a 46 69 6c 65  72 5f 52 75 6e 20 3c 42  |..&*Filer_Run <B|
000010d0  61 72 43 6f 64 65 24 44  69 72 3e 2e 42 61 72 43  |arCode$Dir>.BarC|
000010e0  64 4d 6e 50 67 0d 07 da  05 e1 0d 07 e4 05 3a 0d  |dMnPg.........:.|
000010f0  07 ee 17 dd 20 f2 73 65  74 75 70 6d 65 6e 75 28  |.... .setupmenu(|
00001100  6d 65 6e 75 25 29 0d 07  f8 1f f3 20 74 69 74 6c  |menu%)..... titl|
00001110  65 24 2c 6e 75 6d 25 3a  24 6d 65 6e 75 25 3d 74  |e$,num%:$menu%=t|
00001120  69 74 6c 65 24 0d 08 02  1b 77 69 64 74 68 25 3d  |itle$....width%=|
00001130  28 a9 28 74 69 74 6c 65  24 29 2d 32 29 2a 31 36  |(.(title$)-2)*16|
00001140  0d 08 0c 2a 6d 65 6e 75  25 21 31 32 3d 26 37 30  |...*menu%!12=&70|
00001150  32 30 37 3a 6d 65 6e 75  25 21 32 30 3d 34 34 3a  |207:menu%!20=44:|
00001160  6d 65 6e 75 25 21 32 34  3d 30 0d 08 16 1f 70 74  |menu%!24=0....pt|
00001170  72 25 3d 6d 65 6e 75 25  2b 32 38 3a e3 20 69 25  |r%=menu%+28:. i%|
00001180  3d 31 20 b8 20 6e 75 6d  25 0d 08 20 1b f3 20 6d  |=1 . num%.. .. m|
00001190  66 6c 61 67 73 25 2c 73  75 62 70 74 72 25 2c 69  |flags%,subptr%,i|
000011a0  74 65 6d 24 0d 08 2a 20  21 70 74 72 25 3d 6d 66  |tem$..* !ptr%=mf|
000011b0  6c 61 67 73 25 3a 70 74  72 25 21 34 3d 73 75 62  |lags%:ptr%!4=sub|
000011c0  70 74 72 25 0d 08 34 24  70 74 72 25 21 38 3d 26  |ptr%..4$ptr%!8=&|
000011d0  37 30 30 30 30 32 31 3a  24 28 70 74 72 25 2b 31  |7000021:$(ptr%+1|
000011e0  32 29 3d 69 74 65 6d 24  0d 08 3e 16 61 25 3d 28  |2)=item$..>.a%=(|
000011f0  a9 28 69 74 65 6d 24 29  2b 31 29 2a 31 36 0d 08  |.(item$)+1)*16..|
00001200  48 19 e7 20 61 25 3e 77  69 64 74 68 25 20 77 69  |H.. a%>width% wi|
00001210  64 74 68 25 3d 61 25 0d  08 52 0e 70 74 72 25 2b  |dth%=a%..R.ptr%+|
00001220  3d 32 34 3a ed 0d 08 5c  13 6d 65 6e 75 25 21 31  |=24:...\.menu%!1|
00001230  36 3d 77 69 64 74 68 25  0d 08 66 05 e1 0d 08 70  |6=width%..f....p|
00001240  05 3a 0d 08 7a 1e dd 20  f2 73 68 6f 77 6d 65 6e  |.:..z.. .showmen|
00001250  75 28 6d 65 6e 75 25 2c  6d 78 25 2c 6d 79 25 29  |u(menu%,mx%,my%)|
00001260  0d 08 84 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...'.. "Wimp_Cre|
00001270  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00001280  6d 78 25 2c 6d 79 25 0d  08 8e 05 e1 0d 08 98 05  |mx%,my%.........|
00001290  3a 0d 08 a2 11 dd 20 f2  6d 65 6e 75 73 65 6c 65  |:..... .menusele|
000012a0  63 74 0d 08 ac 20 73 65  6c 31 25 3d 21 62 6c 6f  |ct... sel1%=!blo|
000012b0  63 6b 25 3a 73 65 6c 32  25 3d 62 6c 6f 63 6b 25  |ck%:sel2%=block%|
000012c0  21 34 0d 08 b6 24 c8 99  20 22 57 69 6d 70 5f 47  |!4...$.. "Wimp_G|
000012d0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
000012e0  62 6c 6f 63 6b 25 0d 08  c0 14 62 75 74 74 6f 6e  |block%....button|
000012f0  25 3d 62 6c 6f 63 6b 25  21 38 0d 08 ca 0e c8 8e  |%=block%!8......|
00001300  20 73 65 6c 31 25 20 ca  0d 08 d4 12 c9 20 31 3a  | sel1% ...... 1:|
00001310  f2 71 75 69 63 6b 73 61  76 65 0d 08 de 0e c9 20  |.quicksave..... |
00001320  32 3a f2 70 72 69 6e 74  0d 08 e8 0f c9 20 33 3a  |2:.print..... 3:|
00001330  71 75 69 74 25 3d b9 0d  08 f2 05 cb 0d 08 fc 27  |quit%=.........'|
00001340  e7 20 62 75 74 74 6f 6e  25 3d 31 20 8c 20 f2 73  |. button%=1 . .s|
00001350  68 6f 77 6d 65 6e 75 28  69 6d 65 6e 75 25 2c 30  |howmenu(imenu%,0|
00001360  2c 30 29 0d 09 06 05 e1  0d 09 10 05 3a 0d 09 1a  |,0).........:...|
00001370  0e dd 20 f2 72 65 63 65  69 76 65 0d 09 24 12 c8  |.. .receive..$..|
00001380  8e 20 62 6c 6f 63 6b 25  21 31 36 20 ca 0d 09 2e  |. block%!16 ....|
00001390  0f c9 20 30 3a 71 75 69  74 25 3d b9 0d 09 38 11  |.. 0:quit%=...8.|
000013a0  c9 20 32 3a f2 64 61 74  61 73 61 76 65 0d 09 42  |. 2:.datasave..B|
000013b0  1c c9 20 33 3a f2 64 61  74 61 6c 6f 61 64 28 62  |.. 3:.dataload(b|
000013c0  6c 6f 63 6b 25 21 34 30  29 0d 09 4c 05 cb 0d 09  |lock%!40)..L....|
000013d0  56 05 e1 0d 09 60 05 3a  0d 09 6a 16 dd 20 f2 64  |V....`.:..j.. .d|
000013e0  61 74 61 6c 6f 61 64 28  74 79 70 65 25 29 0d 09  |ataload(type%)..|
000013f0  74 15 e7 20 74 79 70 65  25 3c 3e 26 30 42 34 20  |t.. type%<>&0B4 |
00001400  8c 20 e1 0d 09 7e 1c 70  61 74 68 24 3d a4 73 74  |. ...~.path$=.st|
00001410  72 69 6e 67 28 62 6c 6f  63 6b 25 2b 34 34 29 0d  |ring(block%+44).|
00001420  09 88 15 f2 6c 6f 61 64  5f 66 69 6c 65 28 70 61  |....load_file(pa|
00001430  74 68 24 29 0d 09 92 09  f2 73 61 76 65 0d 09 9c  |th$).....save...|
00001440  12 24 73 62 74 65 78 74  25 3d 70 61 74 68 24 0d  |.$sbtext%=path$.|
00001450  09 a6 05 e1 0d 09 b0 05  3a 0d 09 ba 13 dd 20 a4  |........:..... .|
00001460  73 74 72 69 6e 67 28 70  74 72 25 29 0d 09 c4 08  |string(ptr%)....|
00001470  ea 20 61 24 0d 09 ce 0f  c8 95 20 3f 70 74 72 25  |. a$...... ?ptr%|
00001480  3c 3e 30 0d 09 d8 18 61  24 2b 3d bd 28 3f 70 74  |<>0....a$+=.(?pt|
00001490  72 25 29 3a 70 74 72 25  2b 3d 31 0d 09 e2 05 ce  |r%):ptr%+=1.....|
000014a0  0d 09 ec 07 3d 61 24 0d  09 f6 05 3a 0d 0a 00 10  |....=a$....:....|
000014b0  dd 20 f2 73 74 61 72 74  73 61 76 65 0d 0a 0a 24  |. .startsave...$|
000014c0  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
000014d0  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |terInfo",,block%|
000014e0  0d 0a 14 2b 62 6c 6f 63  6b 25 21 32 30 3d 62 6c  |...+block%!20=bl|
000014f0  6f 63 6b 25 21 31 32 3a  62 6c 6f 63 6b 25 21 32  |ock%!12:block%!2|
00001500  34 3d 62 6c 6f 63 6b 25  21 31 36 0d 0a 1e 28 62  |4=block%!16...(b|
00001510  6c 6f 63 6b 25 21 32 38  3d 21 62 6c 6f 63 6b 25  |lock%!28=!block%|
00001520  3a 62 6c 6f 63 6b 25 21  33 32 3d 62 6c 6f 63 6b  |:block%!32=block|
00001530  25 21 34 0d 0a 28 23 62  6c 6f 63 6b 25 21 33 36  |%!4..(#block%!36|
00001540  3d a9 6f 62 6a 24 2b a9  70 61 74 68 24 2b a9 74  |=.obj$+.path$+.t|
00001550  79 70 65 24 2b 33 0d 0a  32 1a 21 62 6c 6f 63 6b  |ype$+3..2.!block|
00001560  25 3d 36 34 3a 62 6c 6f  63 6b 25 21 31 32 3d 30  |%=64:block%!12=0|
00001570  0d 0a 3c 1e 62 6c 6f 63  6b 25 21 31 36 3d 31 3a  |..<.block%!16=1:|
00001580  62 6c 6f 63 6b 25 21 34  30 3d 26 30 42 34 0d 0a  |block%!40=&0B4..|
00001590  46 23 24 28 62 6c 6f 63  6b 25 2b 34 34 29 3d a4  |F#$(block%+44)=.|
000015a0  67 65 74 6c 65 61 66 28  24 73 62 74 65 78 74 25  |getleaf($sbtext%|
000015b0  29 0d 0a 50 37 c8 99 20  22 57 69 6d 70 5f 53 65  |)..P7.. "Wimp_Se|
000015c0  6e 64 4d 65 73 73 61 67  65 22 2c 31 38 2c 62 6c  |ndMessage",18,bl|
000015d0  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 32 30 2c 62  |ock%,block%!20,b|
000015e0  6c 6f 63 6b 25 21 32 34  0d 0a 5a 05 e1 0d 0a 64  |lock%!24..Z....d|
000015f0  05 3a 0d 0a 6e 10 dd 20  f2 71 75 69 63 6b 73 61  |.:..n.. .quicksa|
00001600  76 65 0d 0a 78 16 e7 20  a7 24 73 62 74 65 78 74  |ve..x.. .$sbtext|
00001610  25 2c 22 2e 22 29 20 8c  0d 0a 82 0b f2 73 61 76  |%,".") ......sav|
00001620  65 69 74 0d 0a 8c 05 cc  0d 0a 96 3d f2 72 65 70  |eit........=.rep|
00001630  6f 72 74 28 22 54 6f 20  73 61 76 65 2c 20 64 72  |ort("To save, dr|
00001640  61 67 20 74 68 65 20 69  63 6f 6e 20 74 6f 20 61  |ag the icon to a|
00001650  20 64 69 72 65 63 74 6f  72 79 20 76 69 65 77 65  | directory viewe|
00001660  72 22 2c 31 29 0d 0a a0  05 cd 0d 0a aa 05 e1 0d  |r",1)...........|
00001670  0a b4 05 3a 0d 0a be 0d  dd 20 f2 73 61 76 65 69  |...:..... .savei|
00001680  74 0d 0a c8 09 f2 6c 6f  61 64 0d 0a d2 0d c8 8e  |t.....load......|
00001690  20 53 6f 70 74 20 ca 0d  0a dc 08 c9 20 30 3a 0d  | Sopt ...... 0:.|
000016a0  0a e6 15 66 69 6c 65 25  3d ae 28 24 73 62 74 65  |...file%=.($sbte|
000016b0  78 74 25 29 0d 0a f0 14  d5 23 66 69 6c 65 25 2c  |xt%).....#file%,|
000016c0  41 4e 75 6d 62 65 72 24  0d 0a fa 11 d5 23 66 69  |ANumber$.....#fi|
000016d0  6c 65 25 2c 41 61 6e 64  42 0d 0b 04 0f d5 23 66  |le%,AandB.....#f|
000016e0  69 6c 65 25 2c 46 6d 74  0d 0b 0e 0b d9 23 66 69  |ile%,Fmt.....#fi|
000016f0  6c 65 25 0d 0b 18 20 ff  20 22 53 65 74 54 79 70  |le%... . "SetTyp|
00001700  65 20 22 2b 24 73 62 74  65 78 74 25 2b 22 20 30  |e "+$sbtext%+" 0|
00001710  42 34 22 0d 0b 22 0d c9  20 31 3a f2 64 72 61 77  |B4"..".. 1:.draw|
00001720  0d 0b 2c 0f c9 20 32 3a  f2 73 70 72 69 74 65 0d  |..,.. 2:.sprite.|
00001730  0b 36 05 cb 0d 0b 40 05  e1 0d 0b 4a 05 3a 0d 0b  |.6....@....J.:..|
00001740  54 12 dd 20 a4 67 65 74  6c 65 61 66 28 61 24 29  |T.. .getleaf(a$)|
00001750  0d 0b 5e 0f c8 95 20 a7  61 24 2c 22 2e 22 29 0d  |..^... .a$,".").|
00001760  0b 68 16 61 24 3d c1 61  24 2c a7 61 24 2c 22 2e  |.h.a$=.a$,.a$,".|
00001770  22 29 2b 31 29 0d 0b 72  05 ce 0d 0b 7c 0a 3d 61  |")+1)..r....|.=a|
00001780  24 2b bd 30 0d 0b 86 05  3a 0d 0b 90 0f dd 20 f2  |$+.0....:..... .|
00001790  64 61 74 61 73 61 76 65  0d 0b 9a 1f 24 73 62 74  |datasave....$sbt|
000017a0  65 78 74 25 3d a4 73 74  72 69 6e 67 28 62 6c 6f  |ext%=.string(blo|
000017b0  63 6b 25 2b 34 34 29 0d  0b a4 0b f2 73 61 76 65  |ck%+44).....save|
000017c0  69 74 0d 0b ae 16 62 6c  6f 63 6b 25 21 31 32 3d  |it....block%!12=|
000017d0  62 6c 6f 63 6b 25 21 38  0d 0b b8 1b 62 6c 6f 63  |block%!8....bloc|
000017e0  6b 25 21 31 36 3d 33 3a  21 62 6c 6f 63 6b 25 3d  |k%!16=3:!block%=|
000017f0  32 35 36 0d 0b c2 37 c8  99 20 22 57 69 6d 70 5f  |256...7.. "Wimp_|
00001800  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
00001810  62 6c 6f 63 6b 25 2c 62  6c 6f 63 6b 25 21 32 30  |block%,block%!20|
00001820  2c 62 6c 6f 63 6b 25 21  32 34 0d 0b cc 05 e1 0d  |,block%!24......|
00001830  0b d6 05 3a 0d 0b e0 0e  dd 20 f2 64 72 61 67 62  |...:..... .dragb|
00001840  6f 78 0d 0b ea 11 21 62  6c 6f 63 6b 25 3d 73 61  |ox....!block%=sa|
00001850  76 65 25 0d 0b f4 24 c8  99 20 22 57 69 6d 70 5f  |ve%...$.. "Wimp_|
00001860  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001870  2c 62 6c 6f 63 6b 25 0d  0b fe 1a 6f 78 25 3d 62  |,block%....ox%=b|
00001880  6c 6f 63 6b 25 21 34 2d  62 6c 6f 63 6b 25 21 32  |lock%!4-block%!2|
00001890  30 0d 0c 08 1b 6f 79 25  3d 62 6c 6f 63 6b 25 21  |0....oy%=block%!|
000018a0  31 36 2d 62 6c 6f 63 6b  25 21 32 34 0d 0c 12 0e  |16-block%!24....|
000018b0  62 6c 6f 63 6b 25 21 34  3d 30 0d 0c 1c 22 c8 99  |block%!4=0..."..|
000018c0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
000018d0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 0c 26 24  |ate",,block%..&$|
000018e0  62 6c 6f 63 6b 25 21 34  3d 35 3a 62 6c 6f 63 6b  |block%!4=5:block|
000018f0  25 21 38 3d 6f 78 25 2b  62 6c 6f 63 6b 25 21 38  |%!8=ox%+block%!8|
00001900  0d 0c 30 1b 62 6c 6f 63  6b 25 21 31 32 3d 6f 79  |..0.block%!12=oy|
00001910  25 2b 62 6c 6f 63 6b 25  21 31 32 0d 0c 3a 1b 62  |%+block%!12..:.b|
00001920  6c 6f 63 6b 25 21 31 36  3d 6f 78 25 2b 62 6c 6f  |lock%!16=ox%+blo|
00001930  63 6b 25 21 31 36 0d 0c  44 1b 62 6c 6f 63 6b 25  |ck%!16..D.block%|
00001940  21 32 30 3d 6f 79 25 2b  62 6c 6f 63 6b 25 21 32  |!20=oy%+block%!2|
00001950  30 0d 0c 4e 1b 62 6c 6f  63 6b 25 21 32 34 3d 30  |0..N.block%!24=0|
00001960  3a 62 6c 6f 63 6b 25 21  32 38 3d 30 0d 0c 58 17  |:block%!28=0..X.|
00001970  62 6c 6f 63 6b 25 21 33  32 3d 26 37 46 46 46 46  |block%!32=&7FFFF|
00001980  46 46 46 0d 0c 62 17 62  6c 6f 63 6b 25 21 33 36  |FFF..b.block%!36|
00001990  3d 26 37 46 46 46 46 46  46 46 0d 0c 6c 1d c8 99  |=&7FFFFFFF..l...|
000019a0  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
000019b0  2c 62 6c 6f 63 6b 25 0d  0c 76 05 e1 0d 0c 80 05  |,block%..v......|
000019c0  3a 0d 0c 8a 1e dd 20 f2  77 72 69 74 65 5f 74 28  |:..... .write_t(|
000019d0  77 69 6e 25 2c 69 63 25  2c 74 65 78 74 24 29 0d  |win%,ic%,text$).|
000019e0  0c 94 1d 21 62 6c 6f 63  6b 25 3d 77 69 6e 25 3a  |...!block%=win%:|
000019f0  62 6c 6f 63 6b 25 21 34  3d 69 63 25 0d 0c 9e 22  |block%!4=ic%..."|
00001a00  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001a10  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 0c  |State",,block%..|
00001a20  a8 16 24 28 62 6c 6f 63  6b 25 21 32 38 29 3d 74  |..$(block%!28)=t|
00001a30  65 78 74 24 0d 0c b2 1d  21 62 6c 6f 63 6b 25 3d  |ext$....!block%=|
00001a40  77 69 6e 25 3a 62 6c 6f  63 6b 25 21 34 3d 69 63  |win%:block%!4=ic|
00001a50  25 0d 0c bc 1a 62 6c 6f  63 6b 25 21 38 3d 30 3a  |%....block%!8=0:|
00001a60  62 6c 6f 63 6b 25 21 31  32 3d 30 0d 0c c6 22 c8  |block%!12=0...".|
00001a70  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00001a80  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0c d0  |tate",,block%...|
00001a90  05 e1 0d 0c da 05 3a 0d  0c e4 13 dd 20 f2 69 6e  |......:..... .in|
00001aa0  66 6f 5f 73 65 6c 28 6e  6f 29 0d 0c ee 2d e7 20  |fo_sel(no)...-. |
00001ab0  6e 6f 3d 31 30 20 8c 20  2a 46 69 6c 65 72 5f 52  |no=10 . *Filer_R|
00001ac0  75 6e 20 3c 42 61 72 43  6f 64 65 24 44 69 72 3e  |un <BarCode$Dir>|
00001ad0  2e 4d 61 6e 75 61 6c 0d  0c f8 05 e1 0d 0d 02 05  |.Manual.........|
00001ae0  3a 0d 0d 0c 0c dd 20 f2  70 72 69 6e 74 0d 0d 16  |:..... .print...|
00001af0  09 f2 6c 6f 61 64 0d 0d  20 42 ff 20 28 22 52 4d  |..load.. B. ("RM|
00001b00  45 6e 73 75 72 65 20 50  44 72 69 76 65 72 20 30  |Ensure PDriver 0|
00001b10  20 45 52 52 4f 52 20 32  35 35 20 4e 6f 20 70 72  | ERROR 255 No pr|
00001b20  69 6e 74 65 72 20 64 72  69 76 65 72 20 69 6e 73  |inter driver ins|
00001b30  74 61 6c 6c 65 64 22 29  0d 0d 2a 15 c8 99 20 22  |talled")..*... "|
00001b40  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 0d 34  |Hourglass_On"..4|
00001b50  15 70 66 25 3d ae 28 22  70 72 69 6e 74 65 72 3a  |.pf%=.("printer:|
00001b60  22 29 0d 0d 3e 29 c8 99  20 22 50 44 72 69 76 65  |")..>).. "PDrive|
00001b70  72 5f 53 65 6c 65 63 74  4a 6f 62 22 2c 70 66 25  |r_SelectJob",pf%|
00001b80  2c 22 54 65 73 74 20 6a  6f 62 22 0d 0d 48 07 ea  |,"Test job"..H..|
00001b90  20 85 0d 0d 52 5b ee 20  85 20 ea 3a f7 20 85 3a  | ...R[. . .:. .:|
00001ba0  c8 99 20 22 50 44 72 69  76 65 72 5f 41 62 6f 72  |.. "PDriver_Abor|
00001bb0  74 4a 6f 62 22 2c 70 66  25 3a d9 23 70 66 25 3a  |tJob",pf%:.#pf%:|
00001bc0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00001bd0  66 22 3a f2 72 65 70 6f  72 74 28 f6 24 2b 22 20  |f":.report(.$+" |
00001be0  3a 20 22 2b c3 28 9e 29  2c 31 29 3a e1 0d 0d 5c  |: "+.(.),1):...\|
00001bf0  2e c8 99 20 22 50 44 72  69 76 65 72 5f 50 61 67  |... "PDriver_Pag|
00001c00  65 53 69 7a 65 22 20 b8  20 2c 77 25 2c 68 25 2c  |eSize" . ,w%,h%,|
00001c10  6c 25 2c 62 25 2c 72 25  2c 74 25 0d 0d 66 16 21  |l%,b%,r%,t%..f.!|
00001c20  72 65 63 74 25 3d 30 3a  72 65 63 74 25 21 34 3d  |rect%=0:rect%!4=|
00001c30  30 0d 0d 70 1d 72 65 63  74 25 21 38 3d 38 35 36  |0..p.rect%!8=856|
00001c40  3a 72 65 63 74 25 21 31  32 3d 31 30 33 30 0d 0d  |:rect%!12=1030..|
00001c50  7a 1c 21 74 72 61 6e 73  25 3d 31 3c 3c 31 36 3a  |z.!trans%=1<<16:|
00001c60  74 72 61 6e 73 25 21 34  3d 30 0d 0d 84 1e 74 72  |trans%!4=0....tr|
00001c70  61 6e 73 25 21 38 3d 30  3a 74 72 61 6e 73 25 21  |ans%!8=0:trans%!|
00001c80  31 32 3d 31 3c 3c 31 36  0d 0d 8e 2a 21 70 6c 6f  |12=1<<16...*!plo|
00001c90  74 61 74 25 3d 6c 25 2b  31 30 38 30 30 30 3a 70  |tat%=l%+108000:p|
00001ca0  6c 6f 74 61 74 25 21 34  3d 62 25 2b 32 31 36 30  |lotat%!4=b%+2160|
00001cb0  30 30 0d 0d 98 3f c8 99  20 22 50 44 72 69 76 65  |00...?.. "PDrive|
00001cc0  72 5f 47 69 76 65 52 65  63 74 61 6e 67 6c 65 22  |r_GiveRectangle"|
00001cd0  2c 30 2c 72 65 63 74 25  2c 74 72 61 6e 73 25 2c  |,0,rect%,trans%,|
00001ce0  70 6c 6f 74 61 74 25 2c  26 44 44 44 44 44 44 30  |plotat%,&DDDDDD0|
00001cf0  30 0d 0d a2 2e c8 99 20  22 50 44 72 69 76 65 72  |0...... "PDriver|
00001d00  5f 44 72 61 77 50 61 67  65 22 2c 31 2c 62 6c 6f  |_DrawPage",1,blo|
00001d10  63 6b 25 2c 30 2c 30 20  b8 20 6d 6f 72 65 25 0d  |ck%,0,0 . more%.|
00001d20  0d ac 0c f2 67 65 6e 76  69 65 77 0d 0d b6 38 c8  |....genview...8.|
00001d30  99 20 22 46 6f 6e 74 5f  43 61 63 68 65 41 64 64  |. "Font_CacheAdd|
00001d40  72 22 20 b8 20 76 65 72  73 69 6f 6e 25 2c 63 61  |r" . version%,ca|
00001d50  63 68 65 75 73 65 64 25  2c 63 61 63 68 65 73 69  |cheused%,cachesi|
00001d60  7a 65 25 0d 0d c0 3e c8  99 20 22 46 6f 6e 74 5f  |ze%...>.. "Font_|
00001d70  46 69 6e 64 46 6f 6e 74  22 2c 2c 22 54 72 69 6e  |FindFont",,"Trin|
00001d80  69 74 79 2e 42 6f 6c 64  22 2c 32 34 2a 31 36 2c  |ity.Bold",24*16,|
00001d90  32 34 2a 31 36 2c 30 2c  30 20 b8 20 54 65 78 74  |24*16,0,0 . Text|
00001da0  25 0d 0d ca 3f c8 99 20  22 46 6f 6e 74 5f 46 69  |%...?.. "Font_Fi|
00001db0  6e 64 46 6f 6e 74 22 2c  2c 22 53 79 73 74 65 6d  |ndFont",,"System|
00001dc0  2e 46 69 78 65 64 22 2c  34 30 2a 31 36 2c 34 30  |.Fixed",40*16,40|
00001dd0  2a 31 36 2c 30 2c 30 20  b8 20 54 65 78 74 33 25  |*16,0,0 . Text3%|
00001de0  0d 0d d4 33 c8 99 20 22  46 6f 6e 74 5f 53 65 74  |...3.. "Font_Set|
00001df0  50 61 6c 65 74 74 65 22  2c 2c 31 2c 32 2c 33 2c  |Palette",,1,2,3,|
00001e00  26 38 38 38 38 38 38 30  30 2c 26 46 46 46 46 46  |&88888800,&FFFFF|
00001e10  46 30 30 0d 0d de 24 c8  99 20 22 46 6f 6e 74 5f  |F00...$.. "Font_|
00001e20  53 65 74 46 6f 6e 74 43  6f 6c 6f 75 72 73 22 2c  |SetFontColours",|
00001e30  30 2c 31 2c 32 2c 33 0d  0d e8 0c c8 95 20 6d 6f  |0,1,2,3...... mo|
00001e40  72 65 25 0d 0d f2 1e c8  99 20 22 43 6f 6c 6f 75  |re%...... "Colou|
00001e50  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 2c  |rTrans_SetGCOL",|
00001e60  30 0d 0d fc 09 f2 76 69  65 77 0d 0e 06 2d c8 99  |0.....view...-..|
00001e70  20 22 50 44 72 69 76 65  72 5f 47 65 74 52 65 63  | "PDriver_GetRec|
00001e80  74 61 6e 67 6c 65 22 2c  2c 62 6c 6f 63 6b 25 20  |tangle",,block% |
00001e90  b8 20 6d 6f 72 65 25 0d  0e 10 05 ce 0d 0e 1a 1c  |. more%.........|
00001ea0  c8 99 20 22 46 6f 6e 74  5f 4c 6f 73 65 46 6f 6e  |.. "Font_LoseFon|
00001eb0  74 22 2c 54 65 78 74 25  0d 0e 24 1d c8 99 20 22  |t",Text%..$... "|
00001ec0  46 6f 6e 74 5f 4c 6f 73  65 46 6f 6e 74 22 2c 54  |Font_LoseFont",T|
00001ed0  65 78 74 33 25 0d 0e 2e  1b c8 99 20 22 50 44 72  |ext3%...... "PDr|
00001ee0  69 76 65 72 5f 45 6e 64  4a 6f 62 22 2c 70 66 25  |iver_EndJob",pf%|
00001ef0  0d 0e 38 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..8... "Hourglas|
00001f00  73 5f 4f 66 66 22 0d 0e  42 07 f7 20 85 0d 0e 4c  |s_Off"..B.. ...L|
00001f10  09 d9 23 70 66 25 0d 0e  56 05 e1 0d 0e 60 05 3a  |..#pf%..V....`.:|
00001f20  0d 0e 6a 1f dd 20 f2 73  65 74 5f 66 63 6f 6c 28  |..j.. .set_fcol(|
00001f30  72 2c 67 2c 62 2c 72 32  2c 67 32 2c 62 32 29 0d  |r,g,b,r2,g2,b2).|
00001f40  0e 74 0f ea 20 73 65 74  5f 66 63 6f 6c 25 0d 0e  |.t.. set_fcol%..|
00001f50  7e 0f 72 3d 72 2a 28 31  2f 32 35 35 29 0d 0e 88  |~.r=r*(1/255)...|
00001f60  0f 67 3d 67 2a 28 31 2f  32 35 35 29 0d 0e 92 0f  |.g=g*(1/255)....|
00001f70  62 3d 62 2a 28 31 2f 32  35 35 29 0d 0e 9c 11 72  |b=b*(1/255)....r|
00001f80  32 3d 72 32 2a 28 31 2f  32 35 35 29 0d 0e a6 11  |2=r2*(1/255)....|
00001f90  67 32 3d 67 32 2a 28 31  2f 32 35 35 29 0d 0e b0  |g2=g2*(1/255)...|
00001fa0  11 62 32 3d 62 32 2a 28  31 2f 32 35 35 29 0d 0e  |.b2=b2*(1/255)..|
00001fb0  ba 49 c8 99 20 22 4f 53  5f 53 57 49 4e 75 6d 62  |.I.. "OS_SWINumb|
00001fc0  65 72 46 72 6f 6d 53 74  72 69 6e 67 22 2c 2c 22  |erFromString",,"|
00001fd0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
00001fe0  6f 6e 74 43 6f 6c 6f 75  72 73 22 20 b8 20 73 65  |ontColours" . se|
00001ff0  74 5f 66 63 6f 6c 25 0d  0e c4 6a c8 99 20 73 65  |t_fcol%...j.. se|
00002000  74 5f 66 63 6f 6c 25 2c  30 2c 28 28 72 32 2a 26  |t_fcol%,0,((r2*&|
00002010  46 46 29 3c 3c 38 29 2b  28 28 67 32 2a 26 46 46  |FF)<<8)+((g2*&FF|
00002020  29 3c 3c 31 36 29 2b 28  28 62 32 2a 26 46 46 29  |)<<16)+((b2*&FF)|
00002030  3c 3c 32 34 29 2c 28 28  72 2a 26 46 46 29 3c 3c  |<<24),((r*&FF)<<|
00002040  38 29 2b 28 28 67 2a 26  46 46 29 3c 3c 31 36 29  |8)+((g*&FF)<<16)|
00002050  2b 28 28 62 2a 26 46 46  29 3c 3c 32 34 29 2c 31  |+((b*&FF)<<24),1|
00002060  34 0d 0e ce 05 e1 0d 0e  d8 05 3a 0d 0e e2 1a dd  |4.........:.....|
00002070  20 f2 63 65 6e 74 72 65  28 79 25 2c 74 24 2c 68  | .centre(y%,t$,h|
00002080  61 6e 64 25 29 0d 0e ec  0d ea 20 78 31 25 2c 79  |and%)..... x1%,y|
00002090  31 25 0d 0e f6 1c 20 c8  99 20 22 46 6f 6e 74 5f  |1%.... .. "Font_|
000020a0  53 65 74 46 6f 6e 74 22  2c 68 61 6e 64 25 0d 0f  |SetFont",hand%..|
000020b0  00 2a 20 c8 99 20 22 46  6f 6e 74 5f 53 74 72 69  |.* .. "Font_Stri|
000020c0  6e 67 42 42 6f 78 22 2c  2c 74 24 20 b8 20 2c 2c  |ngBBox",,t$ . ,,|
000020d0  2c 78 31 25 2c 79 31 25  0d 0f 0a 16 20 78 31 25  |,x1%,y1%.... x1%|
000020e0  3d 78 31 25 2a 31 38 30  2f 37 32 30 30 30 0d 0f  |=x1%*180/72000..|
000020f0  14 16 20 79 31 25 3d 79  31 25 2a 31 38 30 2f 37  |.. y1%=y1%*180/7|
00002100  32 30 30 30 0d 0f 1e 2e  20 c8 99 20 22 46 6f 6e  |2000.... .. "Fon|
00002110  74 5f 50 61 69 6e 74 22  2c 2c 74 24 2c 31 36 2c  |t_Paint",,t$,16,|
00002120  34 32 38 2d 78 31 25 2f  32 2c 79 25 2d 79 31 25  |428-x1%/2,y%-y1%|
00002130  2f 32 0d 0f 28 05 e1 0d  0f 32 05 3a 0d 0f 3c 1c  |/2..(....2.:..<.|
00002140  dd 20 f2 77 68 65 72 65  28 78 25 2c 79 25 2c 74  |. .where(x%,y%,t|
00002150  24 2c 68 61 6e 64 25 29  0d 0f 46 1c 20 c8 99 20  |$,hand%)..F. .. |
00002160  22 46 6f 6e 74 5f 53 65  74 46 6f 6e 74 22 2c 68  |"Font_SetFont",h|
00002170  61 6e 64 25 0d 0f 50 21  20 c8 99 20 22 46 6f 6e  |and%..P! .. "Fon|
00002180  74 5f 50 61 69 6e 74 22  2c 2c 74 24 2c 31 36 2c  |t_Paint",,t$,16,|
00002190  78 25 2c 79 25 0d 0f 5a  05 e1 0d 0f 64 05 3a 0d  |x%,y%..Z....d.:.|
000021a0  0f 6e 0e dd 20 f2 67 65  6e 76 69 65 77 0d 0f 78  |.n.. .genview..x|
000021b0  0b ea 20 58 2c 59 2c 5a  0d 0f 82 10 42 43 6f 64  |.. X,Y,Z....BCod|
000021c0  65 24 3d 22 44 4c 44 22  0d 0f 8c 10 e3 20 58 3d  |e$="DLD"..... X=|
000021d0  31 20 b8 20 4c 6e 2f 32  0d 0f 96 19 41 64 64 3d  |1 . Ln/2....Add=|
000021e0  bb 28 c1 41 4e 75 6d 62  65 72 24 2c 58 2c 31 29  |.(.ANumber$,X,1)|
000021f0  29 0d 0f a0 1b c8 8e 20  c1 53 65 74 73 24 28 41  |)...... .Sets$(A|
00002200  61 6e 64 42 29 2c 58 2c  31 29 20 ca 0d 0f aa 21  |andB),X,1) ....!|
00002210  c9 20 22 41 22 3a 42 43  6f 64 65 24 2b 3d 4e 75  |. "A":BCode$+=Nu|
00002220  6d 62 65 72 73 24 28 41  64 64 2c 31 29 0d 0f b4  |mbers$(Add,1)...|
00002230  21 c9 20 22 42 22 3a 42  43 6f 64 65 24 2b 3d 4e  |!. "B":BCode$+=N|
00002240  75 6d 62 65 72 73 24 28  41 64 64 2c 32 29 0d 0f  |umbers$(Add,2)..|
00002250  be 05 cb 0d 0f c8 05 ed  0d 0f d2 13 42 43 6f 64  |............BCod|
00002260  65 24 2b 3d 22 4c 44 4c  44 4c 22 0d 0f dc 13 e3  |e$+="LDLDL".....|
00002270  20 58 3d 4c 6e 2f 32 2b  31 20 b8 20 4c 6e 0d 0f  | X=Ln/2+1 . Ln..|
00002280  e6 19 41 64 64 3d bb 28  c1 41 4e 75 6d 62 65 72  |..Add=.(.ANumber|
00002290  24 2c 58 2c 31 29 29 0d  0f f0 1b 42 43 6f 64 65  |$,X,1))....BCode|
000022a0  24 2b 3d 4e 75 6d 62 65  72 73 24 28 41 64 64 2c  |$+=Numbers$(Add,|
000022b0  33 29 0d 0f fa 05 ed 0d  10 04 11 42 43 6f 64 65  |3).........BCode|
000022c0  24 2b 3d 22 44 4c 44 22  0d 10 0e 05 e1 0d 10 18  |$+="DLD"........|
000022d0  05 3a 0d 10 22 0b dd 20  f2 76 69 65 77 0d 10 2c  |.:..".. .view..,|
000022e0  26 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |&.. "ColourTrans|
000022f0  5f 53 65 74 47 43 4f 4c  22 2c 26 46 46 46 46 46  |_SetGCOL",&FFFFF|
00002300  46 30 30 0d 10 36 24 f4  20 52 45 43 54 41 4e 47  |F00..6$. RECTANG|
00002310  4c 45 20 46 49 4c 4c 20  32 30 32 2c 31 36 32 2c  |LE FILL 202,162,|
00002320  38 34 30 2c 35 38 38 0d  10 40 17 c8 93 20 c8 90  |840,588..@... ..|
00002330  20 30 2c 30 2c 31 30 38  30 2c 31 30 33 30 0d 10  | 0,0,1080,1030..|
00002340  4a 15 e3 20 58 3d 31 20  b8 20 a9 28 42 43 6f 64  |J.. X=1 . .(BCod|
00002350  65 24 29 0d 10 54 60 e7  20 c1 42 43 6f 64 65 24  |e$)..T`. .BCode$|
00002360  2c 58 2c 31 29 3d 22 4c  22 20 8c 20 c8 99 20 22  |,X,1)="L" . .. "|
00002370  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
00002380  43 4f 4c 22 2c 26 46 46  46 46 46 46 30 30 20 8b  |COL",&FFFFFF00 .|
00002390  20 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  | .. "ColourTrans|
000023a0  5f 53 65 74 47 43 4f 4c  22 2c 26 30 30 30 30 30  |_SetGCOL",&00000|
000023b0  30 30 30 0d 10 5e 20 c8  93 20 c8 90 20 36 30 2b  |000..^ .. .. 60+|
000023c0  28 28 58 2d 31 29 2a 38  29 2c 32 31 32 2c 38 2c  |((X-1)*8),212,8,|
000023d0  35 32 38 0d 10 68 05 ed  0d 10 72 26 c8 99 20 22  |528..h....r&.. "|
000023e0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
000023f0  43 4f 4c 22 2c 26 46 46  46 46 46 46 30 30 0d 10  |COL",&FFFFFF00..|
00002400  7c 1c c8 93 20 c8 90 20  36 30 2b 32 34 2c 31 37  ||... .. 60+24,17|
00002410  32 2c 34 32 2a 38 2c 31  30 30 0d 10 86 24 c8 93  |2,42*8,100...$..|
00002420  20 c8 90 20 36 30 2b 32  34 2b 34 32 2a 38 2b 33  | .. 60+24+42*8+3|
00002430  35 2c 31 37 32 2c 34 32  2a 38 2c 31 30 30 0d 10  |5,172,42*8,100..|
00002440  90 20 f2 73 65 74 5f 66  63 6f 6c 28 30 2c 30 2c  |. .set_fcol(0,0,|
00002450  30 2c 32 35 35 2c 32 35  35 2c 32 35 35 29 0d 10  |0,255,255,255)..|
00002460  9a 21 f2 77 68 65 72 65  28 30 2c 31 37 32 2c c3  |.!.where(0,172,.|
00002470  28 41 61 6e 64 42 29 2c  54 65 78 74 33 25 29 0d  |(AandB),Text3%).|
00002480  10 a4 29 f2 77 68 65 72  65 28 36 30 2b 34 34 2c  |..).where(60+44,|
00002490  31 37 32 2c c0 41 4e 75  6d 62 65 72 24 2c 36 29  |172,.ANumber$,6)|
000024a0  2c 54 65 78 74 33 25 29  0d 10 ae 31 f2 77 68 65  |,Text3%)...1.whe|
000024b0  72 65 28 36 30 2b 33 32  2b 34 32 2a 38 2b 33 35  |re(60+32+42*8+35|
000024c0  2c 31 37 32 2c c2 41 4e  75 6d 62 65 72 24 2c 36  |,172,.ANumber$,6|
000024d0  29 2c 54 65 78 74 33 25  29 0d 10 b8 10 46 24 3d  |),Text3%)....F$=|
000024e0  22 55 6e 6b 6e 6f 77 6e  22 0d 10 c2 0c c8 8e 20  |"Unknown"...... |
000024f0  46 6d 74 20 ca 0d 10 cc  10 c9 20 30 3a 46 24 3d  |Fmt ...... 0:F$=|
00002500  22 45 41 4e 22 0d 10 d6  10 c9 20 31 3a 46 24 3d  |"EAN"..... 1:F$=|
00002510  22 49 54 46 22 0d 10 e0  05 cb 0d 10 ea 20 f2 73  |"ITF"........ .s|
00002520  65 74 5f 66 63 6f 6c 28  30 2c 30 2c 30 2c 32 35  |et_fcol(0,0,0,25|
00002530  35 2c 32 35 35 2c 32 35  35 29 0d 10 f4 33 f2 63  |5,255,255)...3.c|
00002540  65 6e 74 72 65 28 39 35  30 2c 22 41 72 74 69 63  |entre(950,"Artic|
00002550  6c 65 20 4e 75 6d 62 65  72 20 3a 20 22 2b 41 4e  |le Number : "+AN|
00002560  75 6d 62 65 72 24 2c 54  65 78 74 25 29 0d 10 fe  |umber$,Text%)...|
00002570  47 f2 63 65 6e 74 72 65  28 38 38 30 2c 22 53 74  |G.centre(880,"St|
00002580  79 6c 65 20 3a 20 22 2b  53 65 74 73 24 28 41 61  |yle : "+Sets$(Aa|
00002590  6e 64 42 29 2b 22 20 43  43 43 43 43 43 20 28 22  |ndB)+" CCCCCC ("|
000025a0  2b c3 28 41 61 6e 64 42  29 2b 22 29 22 2c 54 65  |+.(AandB)+")",Te|
000025b0  78 74 25 29 0d 11 08 25  f2 63 65 6e 74 72 65 28  |xt%)...%.centre(|
000025c0  38 31 30 2c 22 46 6f 72  6d 61 74 20 3a 20 22 2b  |810,"Format : "+|
000025d0  46 24 2c 54 65 78 74 25  29 0d 11 12 34 f2 63 65  |F$,Text%)...4.ce|
000025e0  6e 74 72 65 28 35 30 2c  22 a9 20 43 6f 70 79 72  |ntre(50,". Copyr|
000025f0  69 67 68 74 20 52 2e 4a  2e 57 61 72 65 68 61 6d  |ight R.J.Wareham|
00002600  20 31 39 39 34 22 2c 54  65 78 74 25 29 0d 11 1c  | 1994",Text%)...|
00002610  05 e1 0d 11 26 05 3a 0d  11 30 0b dd 20 f2 6c 6f  |....&.:..0.. .lo|
00002620  61 64 0d 11 3a 22 66 69  6c 65 25 3d 8e 28 22 3c  |ad..:"file%=.("<|
00002630  42 61 72 43 6f 64 65 24  44 69 72 3e 2e 53 6f 70  |BarCode$Dir>.Sop|
00002640  74 73 22 29 0d 11 44 10  53 6f 70 74 3d 9a 23 66  |ts")..D.Sopt=.#f|
00002650  69 6c 65 25 0d 11 4e 0b  d9 23 66 69 6c 65 25 0d  |ile%..N..#file%.|
00002660  11 58 0d c8 8e 20 53 6f  70 74 20 ca 0d 11 62 1a  |.X... Sopt ...b.|
00002670  c9 20 30 3a 24 73 62 73  70 72 25 3d 22 66 69 6c  |. 0:$sbspr%="fil|
00002680  65 5f 30 42 34 22 0d 11  6c 1a c9 20 31 3a 24 73  |e_0B4"..l.. 1:$s|
00002690  62 73 70 72 25 3d 22 66  69 6c 65 5f 41 46 46 22  |bspr%="file_AFF"|
000026a0  0d 11 76 1a c9 20 32 3a  24 73 62 73 70 72 25 3d  |..v.. 2:$sbspr%=|
000026b0  22 66 69 6c 65 5f 46 46  39 22 0d 11 80 05 cb 0d  |"file_FF9"......|
000026c0  11 8a 0f 41 4e 75 6d 62  65 72 24 3d 22 22 0d 11  |...ANumber$=""..|
000026d0  94 21 66 69 6c 65 25 3d  8e 28 22 3c 42 61 72 43  |.!file%=.("<BarC|
000026e0  6f 64 65 24 44 69 72 3e  2e 54 65 6d 70 22 29 0d  |ode$Dir>.Temp").|
000026f0  11 9e 10 e3 20 53 63 6e  3d 31 20 b8 20 31 32 0d  |.... Scn=1 . 12.|
00002700  11 a8 10 54 45 4d 50 3d  9a 23 66 69 6c 65 25 0d  |...TEMP=.#file%.|
00002710  11 b2 15 41 4e 75 6d 62  65 72 24 2b 3d bd 28 54  |...ANumber$+=.(T|
00002720  45 4d 50 29 0d 11 bc 05  ed 0d 11 c6 11 44 55 4d  |EMP).........DUM|
00002730  4d 59 3d 9a 23 66 69 6c  65 25 0d 11 d0 11 41 61  |MY=.#file%....Aa|
00002740  6e 64 42 3d 9a 23 66 69  6c 65 25 0d 11 da 0f 46  |ndB=.#file%....F|
00002750  6d 74 3d 9a 23 66 69 6c  65 25 0d 11 e4 0c d9 20  |mt=.#file%..... |
00002760  23 66 69 6c 65 25 0d 11  ee 05 e1 0d 11 f8 05 3a  |#file%.........:|
00002770  0d 12 02 14 dd 20 f2 6c  6f 61 64 5f 66 69 6c 65  |..... .load_file|
00002780  28 70 24 29 0d 12 0c 0f  41 4e 75 6d 62 65 72 24  |(p$)....ANumber$|
00002790  3d 22 22 0d 12 16 0f 66  69 6c 65 25 3d 8e 28 70  |=""....file%=.(p|
000027a0  24 29 0d 12 20 10 e3 20  53 63 6e 3d 31 20 b8 20  |$).. .. Scn=1 . |
000027b0  31 32 0d 12 2a 10 54 45  4d 50 3d 9a 23 66 69 6c  |12..*.TEMP=.#fil|
000027c0  65 25 0d 12 34 15 41 4e  75 6d 62 65 72 24 2b 3d  |e%..4.ANumber$+=|
000027d0  bd 28 54 45 4d 50 29 0d  12 3e 05 ed 0d 12 48 11  |.(TEMP)..>....H.|
000027e0  44 55 4d 4d 59 3d 9a 23  66 69 6c 65 25 0d 12 52  |DUMMY=.#file%..R|
000027f0  11 41 61 6e 64 42 3d 9a  23 66 69 6c 65 25 0d 12  |.AandB=.#file%..|
00002800  5c 0f 46 6d 74 3d 9a 23  66 69 6c 65 25 0d 12 66  |\.Fmt=.#file%..f|
00002810  0c d9 20 23 66 69 6c 65  25 0d 12 70 09 f2 73 61  |.. #file%..p..sa|
00002820  76 65 0d 12 7a 05 e1 0d  12 84 05 3a 0d 12 8e 0b  |ve..z......:....|
00002830  dd 20 f2 73 61 76 65 0d  12 98 21 66 69 6c 65 25  |. .save...!file%|
00002840  3d ae 28 22 3c 42 61 72  43 6f 64 65 24 44 69 72  |=.("<BarCode$Dir|
00002850  3e 2e 54 65 6d 70 22 29  0d 12 a2 14 d5 23 66 69  |>.Temp").....#fi|
00002860  6c 65 25 2c 41 4e 75 6d  62 65 72 24 0d 12 ac 11  |le%,ANumber$....|
00002870  d5 23 66 69 6c 65 25 2c  41 61 6e 64 42 0d 12 b6  |.#file%,AandB...|
00002880  0f d5 23 66 69 6c 65 25  2c 46 6d 74 0d 12 c0 0b  |..#file%,Fmt....|
00002890  d9 23 66 69 6c 65 25 0d  12 ca 05 e1 0d 12 d4 05  |.#file%.........|
000028a0  3a 0d 12 de 0d dd 20 f2  73 70 72 69 74 65 0d 12  |:..... .sprite..|
000028b0  e8 23 66 69 6c 65 25 3d  ae 28 22 3c 42 61 72 43  |.#file%=.("<BarC|
000028c0  6f 64 65 24 44 69 72 3e  2e 53 70 4e 61 6d 65 22  |ode$Dir>.SpName"|
000028d0  29 0d 12 f2 14 d5 23 66  69 6c 65 25 2c 24 73 62  |).....#file%,$sb|
000028e0  74 65 78 74 25 0d 12 fc  0b d9 23 66 69 6c 65 25  |text%.....#file%|
000028f0  0d 13 06 23 2a 46 69 6c  65 72 5f 52 75 6e 20 3c  |...#*Filer_Run <|
00002900  42 61 72 43 6f 64 65 24  44 69 72 3e 2e 53 70 72  |BarCode$Dir>.Spr|
00002910  69 74 65 0d 13 10 05 e1  0d 13 1a 05 3a 0d 13 24  |ite.........:..$|
00002920  0b dd 20 f2 64 72 61 77  0d 13 2e 23 66 69 6c 65  |.. .draw...#file|
00002930  25 3d ae 28 22 3c 42 61  72 43 6f 64 65 24 44 69  |%=.("<BarCode$Di|
00002940  72 3e 2e 53 70 4e 61 6d  65 22 29 0d 13 38 14 d5  |r>.SpName")..8..|
00002950  23 66 69 6c 65 25 2c 24  73 62 74 65 78 74 25 0d  |#file%,$sbtext%.|
00002960  13 42 0b d9 23 66 69 6c  65 25 0d 13 4c 15 66 69  |.B..#file%..L.fi|
00002970  6c 65 25 3d ae 28 24 73  62 74 65 78 74 25 29 0d  |le%=.($sbtext%).|
00002980  13 56 14 d5 23 66 69 6c  65 25 2c 24 73 62 74 65  |.V..#file%,$sbte|
00002990  78 74 25 0d 13 60 0b d9  23 66 69 6c 65 25 0d 13  |xt%..`..#file%..|
000029a0  6a 21 2a 46 69 6c 65 72  5f 52 75 6e 20 3c 42 61  |j!*Filer_Run <Ba|
000029b0  72 43 6f 64 65 24 44 69  72 3e 2e 44 72 61 77 0d  |rCode$Dir>.Draw.|
000029c0  13 74 21 ff 28 22 53 65  74 54 79 70 65 20 22 2b  |.t!.("SetType "+|
000029d0  24 73 62 74 65 78 74 25  2b 22 20 41 46 46 22 29  |$sbtext%+" AFF")|
000029e0  0d 13 7e 05 e1 0d 13 88  05 3a 0d 13 92 42 dc 20  |..~......:...B. |
000029f0  42 61 72 43 6f 64 65 2c  34 2c 30 2c 69 6e 66 6f  |BarCode,4,0,info|
00002a00  25 2c 49 6e 66 6f 2c 30  2c 73 61 76 65 25 2c 53  |%,Info,0,save%,S|
00002a10  61 76 65 2c 25 31 30 2c  2d 31 2c 50 72 69 6e 74  |ave,%10,-1,Print|
00002a20  2c 26 38 30 2c 2d 31 2c  51 75 69 74 0d 13 9c 28  |,&80,-1,Quit...(|
00002a30  dc 20 41 41 41 41 41 41  2c 41 41 42 41 42 42 2c  |. AAAAAA,AABABB,|
00002a40  41 41 42 42 41 42 2c 41  41 42 42 42 41 2c 41 42  |AABBAB,AABBBA,AB|
00002a50  41 41 42 42 0d 13 a6 28  dc 20 41 42 42 41 41 42  |AABB...(. ABBAAB|
00002a60  2c 41 42 42 42 41 41 2c  41 42 41 42 41 42 2c 41  |,ABBBAA,ABABAB,A|
00002a70  42 41 42 42 41 2c 41 42  42 41 42 41 0d 13 b0 1d  |BABBA,ABBABA....|
00002a80  dc 20 4c 4c 4c 44 44 4c  44 2c 4c 44 4c 4c 44 44  |. LLLDDLD,LDLLDD|
00002a90  44 2c 44 44 44 4c 4c 44  4c 0d 13 ba 1d dc 20 4c  |D,DDDLLDL..... L|
00002aa0  4c 44 44 4c 4c 44 2c 4c  44 44 4c 4c 44 44 2c 44  |LDDLLD,LDDLLDD,D|
00002ab0  44 4c 4c 44 44 4c 0d 13  c4 1d dc 20 4c 4c 44 4c  |DLLDDL..... LLDL|
00002ac0  4c 44 44 2c 4c 4c 44 44  4c 44 44 2c 44 44 4c 44  |LDD,LLDDLDD,DDLD|
00002ad0  44 4c 4c 0d 13 ce 1d dc  20 4c 44 44 44 44 4c 44  |DLL..... LDDDDLD|
00002ae0  2c 4c 44 4c 4c 4c 4c 44  2c 44 4c 4c 4c 4c 44 4c  |,LDLLLLD,DLLLLDL|
00002af0  0d 13 d8 1d dc 20 4c 44  4c 4c 4c 44 44 2c 4c 4c  |..... LDLLLDD,LL|
00002b00  44 44 44 4c 44 2c 44 4c  44 44 44 4c 4c 0d 13 e2  |DDDLD,DLDDDLL...|
00002b10  1d dc 20 4c 44 44 4c 4c  4c 44 2c 4c 44 44 44 4c  |.. LDDLLLD,LDDDL|
00002b20  4c 44 2c 44 4c 4c 44 44  44 4c 0d 13 ec 1d dc 20  |LD,DLLDDDL..... |
00002b30  4c 44 4c 44 44 44 44 2c  4c 4c 4c 4c 44 4c 44 2c  |LDLDDDD,LLLLDLD,|
00002b40  44 4c 44 4c 4c 4c 4c 0d  13 f6 1d dc 20 4c 44 44  |DLDLLLL..... LDD|
00002b50  44 4c 44 44 2c 4c 4c 44  4c 4c 4c 44 2c 44 4c 4c  |DLDD,LLDLLLD,DLL|
00002b60  4c 44 4c 4c 0d 14 00 1d  dc 20 4c 44 44 4c 44 44  |LDLL..... LDDLDD|
00002b70  44 2c 4c 4c 4c 44 4c 4c  44 2c 44 4c 4c 44 4c 4c  |D,LLLDLLD,DLLDLL|
00002b80  4c 0d 14 0a 1d dc 20 4c  4c 4c 44 4c 44 44 2c 4c  |L..... LLLDLDD,L|
00002b90  4c 44 4c 44 44 44 2c 44  44 44 4c 44 4c 4c 0d ff  |LDLDDD,DDDLDLL..|
00002ba0