� >BrCdMnPrg
� Bar code main proggy.
:
(� 15
2	�init
<�main_menu
F�finish
P*DESKTOP
Z�
d:
n� �init
x�
��
�ș "Hourglass_On"
�*� � ș "Hourglass_Smash":�:� " : ";�:�
�� Menus$(10,10)
�� MenItems(10)
�� NoMen
�� Y=1 � NoMen
�� Items
�MenItems(Y)=Items
�� X=1 � Items
�� Item$
�Menus$(Y,X)=Item$
��

�

ȗ � 1,0,0,0

ȗ � 2,255,255,255

"ANumber$="012345678900"

,	Ln=12

6	Fmt=0

@AandB=0

J
�fonts

T �set_fcol(255,255,255,0,0,0)

^� Sets$(10)

h
� X=0 � 9

r� Sets$(X)

|�

�� Numbers$(10,3)

�
� X=0 � 9

�
� Y=1 � 3

�� Numbers$(X,Y)

��

��

�
Sopt=0

�	�load

��get_env

�!� env$<>"" � �load_file(env$)

�ș "Hourglass_Smash"

��

�:
� �get_env
� I%
ș "OS_GetEnv" � env$
&� �env$,"-quit") �
0I%=�env$,"""")
:I%=�env$,"""",I%+1)
D�
N	I%+=1
X� �env$,I%,1)<>" "
benv$=�env$,I%)
l�
v:
�� �load
�"file%=�("<BarCode$Dir>.Sopts")
�Sopt=�#file%
��#file%
�ANumber$=""
�!file%=�("<BarCode$Dir>.Temp")
�� Scn=1 � 12
�TEMP=�#file%
�ANumber$+=�(TEMP)
��
�DUMMY=�#file%
�AandB=�#file%
�Fmt=�#file%
� #file%
�
:
 � �fonts
*8ș "Font_CacheAddr" � version%,cacheused%,cachesize%
4@ș "Font_FindFont",,"Trinity.Medium",24*16,24*16,0,0 � Text%
>?ș "Font_FindFont",,"Trinity.Bold",70*16,70*16,0,0 � Text2%
H?ș "Font_FindFont",,"System.Fixed",40*16,40*16,0,0 � Text3%
R3ș "Font_SetPalette",,1,2,3,&88888800,&FFFFFF00
\$ș "Font_SetFontColours",0,1,2,3
f�
p:
z� �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,640-x1%/2,y%-y1%/2
��
�:
�� �where(x%,y%,t$,hand%)
� ș "Font_SetFont",hand%
�! ș "Font_Paint",,t$,16,x%,y%
��
�:

� �del(W)
� D
� D=1 � W:Ȗ:�
$�
.:
8� �set_gcol(r,g,b,D)
B� FLAGS%,set_gcol%
Lr=r*(1/255)
Vg=g*(1/255)
`b=b*(1/255)
jFLAGS%=&100
t� D � FLAGS%=FLAGS%-&100
~Bș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � set_gcol%
�Bș set_gcol%,((r*&FF)<<8)+((g*&FF)<<16)+((b*&FF)<<24),,,FLAGS%
��
�:
�� �set_fcol(r,g,b,r2,g2,b2)
�� 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

�
:
� �main_menu
(�
2Ch=�menu("Main Menu",1)
<� Ch=1 �
F�
PCh2=�menu("New Barcode",2)
ZȎ Ch2 �
d� WHEN 0:PROCFormat
n� 0:�article
x� 1:�AandB
�
� 2:�view
��
�� Ch2=3
��
�� Ch=0 � �info
�� Ch=2 � �view
�� Ch=3 � �sav_opt
�
� Ch=4
��
�:
�� �menu(title$,n)
��clear_mouse
�
�flush
!� StartY,Y,X,B,HI,OHI,x1%,y1%
�
ș "Font_SetFont",Text2%
"-ș "Font_StringBBox",,title$ � ,,,x1%,y1%
,x1%=x1%*180/72000
6y1%=y1%*180/72000
@�set_gcol(64,128,255,1)
J1ȓ Ȑ 640-x1%/2-20,900-y1%/2-20,x1%+40,y1%+40
T
� 63 Ȝ 0
^.ȓ 640-x1%/2-20,900-y1%/2-20,x1%+40,y1%+40
h$�set_fcol(255,128,64,64,128,255)
r�centre(900,title$,Text2%)
| �set_fcol(255,255,255,0,0,0)
�$StartY=400+(100*(MenItems(n)/2))
�� Y=0 � MenItems(n)-1
�9� PROCwhere(200,StartY-(Y*100),STR$(Y+1)+")..",Text%)
�/�centre(StartY-(Y*100),Menus$(n,Y+1),Text%)
��
�2ȗ ȓ 200,850-StartY+10,880,MenItems(n)*100-20
�HI=0
�	OHI=0
�� 3,63 Ȝ 255
�(ȓ Ȑ 200,StartY-50-(HI*100),880,100
��
�(ȓ Ȑ 200,StartY-50-(HI*100),880,100
�ȗ X,Y,Z
1HI=((MenItems(n)*100)-(Y-(850-StartY))) � 100
� HI<>OHI � OHI=HI
� SOUND 1,-15,153+(HI*4),1
&(ȓ Ȑ 200,StartY-50-(HI*100),880,100
0Ȗ
:	� Z=4
D�clear_mouse
Nȗ ȓ 0,0,1280,1030
X=HI
b:
l� �clear_mouse
v� X,Y,Z
��
�ȗ X,Y,Z
�	� Z=0
��
�:
�
� �finish
�ș "Font_LoseFont",Text%
�ș "Font_LoseFont",Text2%
�ș "Font_LoseFont",Text3%
�
�flush
�	�save
��
�:
� �save
"file%=�("<BarCode$Dir>.Sopts")
�#file%,Sopt
 �#file%
*!file%=�("<BarCode$Dir>.Temp")
4�#file%,ANumber$
>�#file%,AandB
H�#file%,Fmt
R�#file%
\�
f:
p� �article
z� x1%,y1%,X,Y,Z,In$
�
�flush
��
�ș "Font_SetFont",Text2%
�7ș "Font_StringBBox",,"Set Article N�" � ,,,x1%,y1%
�x1%=x1%*180/72000
�y1%=y1%*180/72000
��set_gcol(64,255,64,1)
�1ȓ Ȑ 640-x1%/2-20,900-y1%/2-20,x1%+40,y1%+40
�
� 63 Ȝ 0
�.ȓ 640-x1%/2-20,900-y1%/2-20,x1%+40,y1%+40
�!�set_fcol(64,64,64,64,255,64)
�(�centre(900,"Set Article N�",Text2%)
� �set_fcol(255,255,255,0,0,0)
	L�centre(700,"Type in the "+�(Ln)+" digit article number below :-",Text%)
	�
	
In$=""
	$�
	.G=�
	8� (G>=48 � G<=57) � (G=8) �
	B)� G=8 � �(In$)>0 � In$=�In$,�(In$)-1)
	L� G<>8 In$+=�(G)
	VȖ
	`� 0 Ȝ 0
	jȓ Ȑ 0,200,1280,300
	t�centre(350,In$,Text2%)
	~�
	�� �(In$)=Ln
	�.�centre(20,"Is this correct? (Y/N)",Text%)
	��
	�	YN$=�
	�+� YN$="Y" � YN$="N" � YN$="y" � YN$="n"
	�ȓ Ȑ 0,0,1280,650
	�� YN$="Y" � YN$="y"
	�ANumber$=In$
	��
	�:
	�� �flush
	��
A$=�(0)

� A$=""
�
:
(� �AandB
2� OCh3,Ch3,quit,mnu
<	mnu=0
F
quit=�
P
OCh3=0
Z	Ch3=0
d�
nOCh3=Ch3
x,Ch3=�menu("A and B set "+�(AandB),mnu+4)
�?� IF mnu=0 THEN Ch3=FNmenu("A and B set "+STR$(OCh3),mnu+4)
�A� IF mnu=1 THEN Ch3=FNmenu("A and B set "+STR$(OCh3+5),mnu+4)
�S� mnu=0 � Ch3<>5 � Ch3<>6 � AandB=Ch3 � � mnu=1 � Ch3<>5 � Ch3<>6 � AandB=Ch3+5
�� Ch3=6 � quit=�
�%� Ch3=5 � mnu=0 � mnu+=1:Ch3=OCh3
�%� Ch3=5 � mnu=1 � mnu-=1:Ch3=OCh3
�� quit=�
��
�:
�� �sav_opt
�� OCh3,Ch3,F$
�
OCh3=0
�Ch3=Sopt
�
OCh3=Ch3

Ȏ OCh3 �
"� 0:F$="BARCODE"
,� 1:F$="DRAW"
6� 2:F$="SPRITE"
@�
JCh3=�menu("Save "+F$,6)
T� Ch3=3
^
Sopt=OCh3
h�
r:
|
� �Format
��
�� OCh3,Ch3
�
OCh3=0
�Ch3=Fmt
��
�OCh3=Ch3
�
Ȏ OCh3 �
�� 0:F$="EAN"
�� 1:F$="ITF"
��
�Ch3=�menu("Format "+F$,3)
�� Ch3=2
�Fmt=OCh3
�
:
� �view
&� X,BCode$,Y,Z,Add,F$
0�
:�clear_mouse
DBCode$="DLD"
N� X=1 � Ln/2
XAdd=�(�ANumber$,X,1))
bȎ �Sets$(AandB),X,1) �
l!� "A":BCode$+=Numbers$(Add,1)
v!� "B":BCode$+=Numbers$(Add,2)
��
��
�BCode$+="LDLDL"
�� X=Ln/2+1 � Ln
�Add=�(�ANumber$,X,1))
�BCode$+=Numbers$(Add,3)
��
�BCode$+="DLD"
�� 63 Ȝ 255
�$� RECTANGLE FILL 202,162,840,588
�ȓ Ȑ 0,0,1280,1030
�� X=1 � �(BCode$)
�/� �BCode$,X,1)="L" � � 63 Ȝ 255 � � 0 Ȝ 0

!ȓ Ȑ 272+((X-1)*8),212,8,528

�

� 63 Ȝ 255

 ȓ Ȑ 272+24,172,42*8,100

*%ȓ Ȑ 272+24+42*8+35,172,42*8,100

4 �set_fcol(0,0,0,255,255,255)

>#�where(212,172,�(AandB),Text3%)

H*�where(272+44,172,�ANumber$,6),Text3%)

R2�where(272+32+42*8+35,172,�ANumber$,6),Text3%)

\Ȏ Fmt �

f� 0:F$="EAN"

p� 1:F$="ITF"

z�

�&�set_fcol(128,192,128,255,255,255)

�3�centre(950,"Article Number : "+ANumber$,Text%)

�G�centre(880,"Style : "+Sets$(AandB)+" CCCCCC ("+�(AandB)+")",Text%)

�%�centre(810,"Format : "+F$,Text%)

� �set_fcol(0,0,0,255,255,255)

�9�centre(100,"Press a mouse button to continue",Text%)

��

�ȗ X,Y,Z

�
� Z<>0

��clear_mouse

��

�:

�� �load_file(p$)
ANumber$=""
file%=�(p$)
� Scn=1 � 12
$TEMP=�#file%
.ANumber$+=�(TEMP)
8�
BDUMMY=�#file%
LAandB=�#file%
VFmt=�#file%
`� #file%
j	�save
t�
~:
�� �info
�� X,Y,Z,x1%,y1%
��clear_mouse
��
�ș "Font_SetFont",Text2%
�4ș "Font_StringBBox",,"Information" � ,,,x1%,y1%
�x1%=x1%*180/72000
�y1%=y1%*180/72000
��set_gcol(64,255,64,1)
�1ȓ Ȑ 640-x1%/2-20,900-y1%/2-20,x1%+40,y1%+40
�
� 63 Ȝ 0
�.ȓ 640-x1%/2-20,900-y1%/2-20,x1%+40,y1%+40
!�set_fcol(64,64,64,64,255,64)

%�centre(900,"Information",Text2%)
 �set_fcol(255,255,255,0,0,0)
!�centre(700,"BarCode",Text2%)
((�centre(500,"Barcode Creator",Text%)
25�centre(400,"� Copyright 1994 R.J.Wareham",Text%)
<'�centre(300,"1.05 (25/4/94)",Text%)
F�set_fcol(255,64,255,0,0,0)
P9�centre(100,"Press a mouse button to continue",Text%)
Z�
dȗ X,Y,Z
n
� Z<>0
x�clear_mouse
��
�:
�	� 6,5
�� Information
�@� Start a New / Edit Current Barcode,Display Current Barcode
�� Save Options,Quit
�� 4
�P� Set Article Number,Set A and B Sets,View Current Barcode,Back to Main Menu
�� 3
�4� EAN Format,ITF Format,Back to New Barcode Menu
�� 7
�g� 0) .. AAAAAA,1) .. AABABB,2) .. AABBAB,3) .. AABBBA,4) .. ABAABB,More ->,Back to New Barcode Menu
�� 7
j� 5) .. ABBAAB,6) .. ABBBAA,7) .. ABABAB,8) .. ABABBA,9) .. ABBABA,<- Back up,Back to New Barcode Menu
� 4
R� Save as BarCode format,Save as Drawfile,Save as Screenshot,Back to Main Menu
"(� AAAAAA,AABABB,AABBAB,AABBBA,ABAABB
,(� ABBAAB,ABBBAA,ABABAB,ABABBA,ABBABA
6� LLLDDLD,LDLLDDD,DDDLLDL
@� LLDDLLD,LDDLLDD,DDLLDDL
J� LLDLLDD,LLDDLDD,DDLDDLL
T� LDDDDLD,LDLLLLD,DLLLLDL
^� LDLLLDD,LLDDDLD,DLDDDLL
h� LDDLLLD,LDDDLLD,DLLDDDL
r� LDLDDDD,LLLLDLD,DLDLLLL
|� LDDDLDD,LLDLLLD,DLLLDLL
�� LDDLDDD,LLLDLLD,DLLDLLL
�� LLLDLDD,LLDLDDD,DDDLDLL
�

00000000  0d 00 0a 10 f4 20 3e 42  72 43 64 4d 6e 50 72 67  |..... >BrCdMnPrg|
00000010  0d 00 14 1b f4 20 42 61  72 20 63 6f 64 65 20 6d  |..... Bar code m|
00000020  61 69 6e 20 70 72 6f 67  67 79 2e 0d 00 1e 05 3a  |ain proggy.....:|
00000030  0d 00 28 08 eb 20 31 35  0d 00 32 09 f2 69 6e 69  |..(.. 15..2..ini|
00000040  74 0d 00 3c 0e f2 6d 61  69 6e 5f 6d 65 6e 75 0d  |t..<..main_menu.|
00000050  00 46 0b f2 66 69 6e 69  73 68 0d 00 50 0c 2a 44  |.F..finish..P.*D|
00000060  45 53 4b 54 4f 50 0d 00  5a 05 e0 0d 00 64 05 3a  |ESKTOP..Z....d.:|
00000070  0d 00 6e 0b dd 20 f2 69  6e 69 74 0d 00 78 05 db  |..n.. .init..x..|
00000080  0d 00 82 05 87 0d 00 8c  15 c8 99 20 22 48 6f 75  |........... "Hou|
00000090  72 67 6c 61 73 73 5f 4f  6e 22 0d 00 96 2a ee 20  |rglass_On"...*. |
000000a0  85 20 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |. .. "Hourglass_|
000000b0  53 6d 61 73 68 22 3a f6  3a f1 20 22 20 3a 20 22  |Smash":.:. " : "|
000000c0  3b 9e 3a e0 0d 00 a0 13  de 20 4d 65 6e 75 73 24  |;.:...... Menus$|
000000d0  28 31 30 2c 31 30 29 0d  00 aa 12 de 20 4d 65 6e  |(10,10)..... Men|
000000e0  49 74 65 6d 73 28 31 30  29 0d 00 b4 0b f3 20 4e  |Items(10)..... N|
000000f0  6f 4d 65 6e 0d 00 be 11  e3 20 59 3d 31 20 b8 20  |oMen..... Y=1 . |
00000100  4e 6f 4d 65 6e 0d 00 c8  0b f3 20 49 74 65 6d 73  |NoMen..... Items|
00000110  0d 00 d2 15 4d 65 6e 49  74 65 6d 73 28 59 29 3d  |....MenItems(Y)=|
00000120  49 74 65 6d 73 0d 00 dc  11 e3 20 58 3d 31 20 b8  |Items..... X=1 .|
00000130  20 49 74 65 6d 73 0d 00  e6 0b f3 20 49 74 65 6d  | Items..... Item|
00000140  24 0d 00 f0 15 4d 65 6e  75 73 24 28 59 2c 58 29  |$....Menus$(Y,X)|
00000150  3d 49 74 65 6d 24 0d 00  fa 05 ed 0d 01 04 05 ed  |=Item$..........|
00000160  0d 01 0e 10 c8 97 20 fb  20 31 2c 30 2c 30 2c 30  |...... . 1,0,0,0|
00000170  0d 01 18 16 c8 97 20 fb  20 32 2c 32 35 35 2c 32  |...... . 2,255,2|
00000180  35 35 2c 32 35 35 0d 01  22 1b 41 4e 75 6d 62 65  |55,255..".ANumbe|
00000190  72 24 3d 22 30 31 32 33  34 35 36 37 38 39 30 30  |r$="012345678900|
000001a0  22 0d 01 2c 09 4c 6e 3d  31 32 0d 01 36 09 46 6d  |"..,.Ln=12..6.Fm|
000001b0  74 3d 30 0d 01 40 0b 41  61 6e 64 42 3d 30 0d 01  |t=0..@.AandB=0..|
000001c0  4a 0a f2 66 6f 6e 74 73  0d 01 54 20 f2 73 65 74  |J..fonts..T .set|
000001d0  5f 66 63 6f 6c 28 32 35  35 2c 32 35 35 2c 32 35  |_fcol(255,255,25|
000001e0  35 2c 30 2c 30 2c 30 29  0d 01 5e 0f de 20 53 65  |5,0,0,0)..^.. Se|
000001f0  74 73 24 28 31 30 29 0d  01 68 0d e3 20 58 3d 30  |ts$(10)..h.. X=0|
00000200  20 b8 20 39 0d 01 72 0e  f3 20 53 65 74 73 24 28  | . 9..r.. Sets$(|
00000210  58 29 0d 01 7c 05 ed 0d  01 86 14 de 20 4e 75 6d  |X)..|....... Num|
00000220  62 65 72 73 24 28 31 30  2c 33 29 0d 01 90 0d e3  |bers$(10,3).....|
00000230  20 58 3d 30 20 b8 20 39  0d 01 9a 0d e3 20 59 3d  | X=0 . 9..... Y=|
00000240  31 20 b8 20 33 0d 01 a4  13 f3 20 4e 75 6d 62 65  |1 . 3..... Numbe|
00000250  72 73 24 28 58 2c 59 29  0d 01 ae 05 ed 0d 01 b8  |rs$(X,Y)........|
00000260  05 ed 0d 01 c2 0a 53 6f  70 74 3d 30 0d 01 cc 09  |......Sopt=0....|
00000270  f2 6c 6f 61 64 0d 01 d6  0c f2 67 65 74 5f 65 6e  |.load.....get_en|
00000280  76 0d 01 e0 21 e7 20 65  6e 76 24 3c 3e 22 22 20  |v...!. env$<>"" |
00000290  8c 20 f2 6c 6f 61 64 5f  66 69 6c 65 28 65 6e 76  |. .load_file(env|
000002a0  24 29 0d 01 ea 18 c8 99  20 22 48 6f 75 72 67 6c  |$)...... "Hourgl|
000002b0  61 73 73 5f 53 6d 61 73  68 22 0d 01 f4 05 e1 0d  |ass_Smash"......|
000002c0  01 fe 05 3a 0d 02 08 0e  dd 20 f2 67 65 74 5f 65  |...:..... .get_e|
000002d0  6e 76 0d 02 12 08 ea 20  49 25 0d 02 1c 19 c8 99  |nv..... I%......|
000002e0  20 22 4f 53 5f 47 65 74  45 6e 76 22 20 b8 20 65  | "OS_GetEnv" . e|
000002f0  6e 76 24 0d 02 26 16 e7  20 a7 65 6e 76 24 2c 22  |nv$..&.. .env$,"|
00000300  2d 71 75 69 74 22 29 20  8c 0d 02 30 12 49 25 3d  |-quit") ...0.I%=|
00000310  a7 65 6e 76 24 2c 22 22  22 22 29 0d 02 3a 17 49  |.env$,"""")..:.I|
00000320  25 3d a7 65 6e 76 24 2c  22 22 22 22 2c 49 25 2b  |%=.env$,"""",I%+|
00000330  31 29 0d 02 44 05 f5 0d  02 4e 09 49 25 2b 3d 31  |1)..D....N.I%+=1|
00000340  0d 02 58 16 fd 20 c1 65  6e 76 24 2c 49 25 2c 31  |..X.. .env$,I%,1|
00000350  29 3c 3e 22 20 22 0d 02  62 12 65 6e 76 24 3d c1  |)<>" "..b.env$=.|
00000360  65 6e 76 24 2c 49 25 29  0d 02 6c 05 e1 0d 02 76  |env$,I%)..l....v|
00000370  05 3a 0d 02 80 0b dd 20  f2 6c 6f 61 64 0d 02 8a  |.:..... .load...|
00000380  22 66 69 6c 65 25 3d 8e  28 22 3c 42 61 72 43 6f  |"file%=.("<BarCo|
00000390  64 65 24 44 69 72 3e 2e  53 6f 70 74 73 22 29 0d  |de$Dir>.Sopts").|
000003a0  02 94 10 53 6f 70 74 3d  9a 23 66 69 6c 65 25 0d  |...Sopt=.#file%.|
000003b0  02 9e 0b d9 23 66 69 6c  65 25 0d 02 a8 0f 41 4e  |....#file%....AN|
000003c0  75 6d 62 65 72 24 3d 22  22 0d 02 b2 21 66 69 6c  |umber$=""...!fil|
000003d0  65 25 3d 8e 28 22 3c 42  61 72 43 6f 64 65 24 44  |e%=.("<BarCode$D|
000003e0  69 72 3e 2e 54 65 6d 70  22 29 0d 02 bc 10 e3 20  |ir>.Temp")..... |
000003f0  53 63 6e 3d 31 20 b8 20  31 32 0d 02 c6 10 54 45  |Scn=1 . 12....TE|
00000400  4d 50 3d 9a 23 66 69 6c  65 25 0d 02 d0 15 41 4e  |MP=.#file%....AN|
00000410  75 6d 62 65 72 24 2b 3d  bd 28 54 45 4d 50 29 0d  |umber$+=.(TEMP).|
00000420  02 da 05 ed 0d 02 e4 11  44 55 4d 4d 59 3d 9a 23  |........DUMMY=.#|
00000430  66 69 6c 65 25 0d 02 ee  11 41 61 6e 64 42 3d 9a  |file%....AandB=.|
00000440  23 66 69 6c 65 25 0d 02  f8 0f 46 6d 74 3d 9a 23  |#file%....Fmt=.#|
00000450  66 69 6c 65 25 0d 03 02  0c d9 20 23 66 69 6c 65  |file%..... #file|
00000460  25 0d 03 0c 05 e1 0d 03  16 05 3a 0d 03 20 0c dd  |%.........:.. ..|
00000470  20 f2 66 6f 6e 74 73 0d  03 2a 38 c8 99 20 22 46  | .fonts..*8.. "F|
00000480  6f 6e 74 5f 43 61 63 68  65 41 64 64 72 22 20 b8  |ont_CacheAddr" .|
00000490  20 76 65 72 73 69 6f 6e  25 2c 63 61 63 68 65 75  | version%,cacheu|
000004a0  73 65 64 25 2c 63 61 63  68 65 73 69 7a 65 25 0d  |sed%,cachesize%.|
000004b0  03 34 40 c8 99 20 22 46  6f 6e 74 5f 46 69 6e 64  |.4@.. "Font_Find|
000004c0  46 6f 6e 74 22 2c 2c 22  54 72 69 6e 69 74 79 2e  |Font",,"Trinity.|
000004d0  4d 65 64 69 75 6d 22 2c  32 34 2a 31 36 2c 32 34  |Medium",24*16,24|
000004e0  2a 31 36 2c 30 2c 30 20  b8 20 54 65 78 74 25 0d  |*16,0,0 . Text%.|
000004f0  03 3e 3f c8 99 20 22 46  6f 6e 74 5f 46 69 6e 64  |.>?.. "Font_Find|
00000500  46 6f 6e 74 22 2c 2c 22  54 72 69 6e 69 74 79 2e  |Font",,"Trinity.|
00000510  42 6f 6c 64 22 2c 37 30  2a 31 36 2c 37 30 2a 31  |Bold",70*16,70*1|
00000520  36 2c 30 2c 30 20 b8 20  54 65 78 74 32 25 0d 03  |6,0,0 . Text2%..|
00000530  48 3f c8 99 20 22 46 6f  6e 74 5f 46 69 6e 64 46  |H?.. "Font_FindF|
00000540  6f 6e 74 22 2c 2c 22 53  79 73 74 65 6d 2e 46 69  |ont",,"System.Fi|
00000550  78 65 64 22 2c 34 30 2a  31 36 2c 34 30 2a 31 36  |xed",40*16,40*16|
00000560  2c 30 2c 30 20 b8 20 54  65 78 74 33 25 0d 03 52  |,0,0 . Text3%..R|
00000570  33 c8 99 20 22 46 6f 6e  74 5f 53 65 74 50 61 6c  |3.. "Font_SetPal|
00000580  65 74 74 65 22 2c 2c 31  2c 32 2c 33 2c 26 38 38  |ette",,1,2,3,&88|
00000590  38 38 38 38 30 30 2c 26  46 46 46 46 46 46 30 30  |888800,&FFFFFF00|
000005a0  0d 03 5c 24 c8 99 20 22  46 6f 6e 74 5f 53 65 74  |..\$.. "Font_Set|
000005b0  46 6f 6e 74 43 6f 6c 6f  75 72 73 22 2c 30 2c 31  |FontColours",0,1|
000005c0  2c 32 2c 33 0d 03 66 05  e1 0d 03 70 05 3a 0d 03  |,2,3..f....p.:..|
000005d0  7a 1a dd 20 f2 63 65 6e  74 72 65 28 79 25 2c 74  |z.. .centre(y%,t|
000005e0  24 2c 68 61 6e 64 25 29  0d 03 84 0d ea 20 78 31  |$,hand%)..... x1|
000005f0  25 2c 79 31 25 0d 03 8e  1c 20 c8 99 20 22 46 6f  |%,y1%.... .. "Fo|
00000600  6e 74 5f 53 65 74 46 6f  6e 74 22 2c 68 61 6e 64  |nt_SetFont",hand|
00000610  25 0d 03 98 2a 20 c8 99  20 22 46 6f 6e 74 5f 53  |%...* .. "Font_S|
00000620  74 72 69 6e 67 42 42 6f  78 22 2c 2c 74 24 20 b8  |tringBBox",,t$ .|
00000630  20 2c 2c 2c 78 31 25 2c  79 31 25 0d 03 a2 16 20  | ,,,x1%,y1%.... |
00000640  78 31 25 3d 78 31 25 2a  31 38 30 2f 37 32 30 30  |x1%=x1%*180/7200|
00000650  30 0d 03 ac 16 20 79 31  25 3d 79 31 25 2a 31 38  |0.... y1%=y1%*18|
00000660  30 2f 37 32 30 30 30 0d  03 b6 2e 20 c8 99 20 22  |0/72000.... .. "|
00000670  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c 74 24 2c  |Font_Paint",,t$,|
00000680  31 36 2c 36 34 30 2d 78  31 25 2f 32 2c 79 25 2d  |16,640-x1%/2,y%-|
00000690  79 31 25 2f 32 0d 03 c0  05 e1 0d 03 ca 05 3a 0d  |y1%/2.........:.|
000006a0  03 d4 1c dd 20 f2 77 68  65 72 65 28 78 25 2c 79  |.... .where(x%,y|
000006b0  25 2c 74 24 2c 68 61 6e  64 25 29 0d 03 de 1c 20  |%,t$,hand%).... |
000006c0  c8 99 20 22 46 6f 6e 74  5f 53 65 74 46 6f 6e 74  |.. "Font_SetFont|
000006d0  22 2c 68 61 6e 64 25 0d  03 e8 21 20 c8 99 20 22  |",hand%...! .. "|
000006e0  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c 74 24 2c  |Font_Paint",,t$,|
000006f0  31 36 2c 78 25 2c 79 25  0d 03 f2 05 e1 0d 03 fc  |16,x%,y%........|
00000700  05 3a 0d 04 06 0d dd 20  f2 64 65 6c 28 57 29 0d  |.:..... .del(W).|
00000710  04 10 07 ea 20 44 0d 04  1a 12 e3 20 44 3d 31 20  |.... D..... D=1 |
00000720  b8 20 57 3a c8 96 3a ed  0d 04 24 05 e1 0d 04 2e  |. W:..:...$.....|
00000730  05 3a 0d 04 38 18 dd 20  f2 73 65 74 5f 67 63 6f  |.:..8.. .set_gco|
00000740  6c 28 72 2c 67 2c 62 2c  44 29 0d 04 42 16 ea 20  |l(r,g,b,D)..B.. |
00000750  46 4c 41 47 53 25 2c 73  65 74 5f 67 63 6f 6c 25  |FLAGS%,set_gcol%|
00000760  0d 04 4c 0f 72 3d 72 2a  28 31 2f 32 35 35 29 0d  |..L.r=r*(1/255).|
00000770  04 56 0f 67 3d 67 2a 28  31 2f 32 35 35 29 0d 04  |.V.g=g*(1/255)..|
00000780  60 0f 62 3d 62 2a 28 31  2f 32 35 35 29 0d 04 6a  |`.b=b*(1/255)..j|
00000790  0f 46 4c 41 47 53 25 3d  26 31 30 30 0d 04 74 1c  |.FLAGS%=&100..t.|
000007a0  e7 20 44 20 8c 20 46 4c  41 47 53 25 3d 46 4c 41  |. D . FLAGS%=FLA|
000007b0  47 53 25 2d 26 31 30 30  0d 04 7e 42 c8 99 20 22  |GS%-&100..~B.. "|
000007c0  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
000007d0  53 74 72 69 6e 67 22 2c  2c 22 43 6f 6c 6f 75 72  |String",,"Colour|
000007e0  54 72 61 6e 73 5f 53 65  74 47 43 4f 4c 22 20 b8  |Trans_SetGCOL" .|
000007f0  20 73 65 74 5f 67 63 6f  6c 25 0d 04 88 42 c8 99  | set_gcol%...B..|
00000800  20 73 65 74 5f 67 63 6f  6c 25 2c 28 28 72 2a 26  | set_gcol%,((r*&|
00000810  46 46 29 3c 3c 38 29 2b  28 28 67 2a 26 46 46 29  |FF)<<8)+((g*&FF)|
00000820  3c 3c 31 36 29 2b 28 28  62 2a 26 46 46 29 3c 3c  |<<16)+((b*&FF)<<|
00000830  32 34 29 2c 2c 2c 46 4c  41 47 53 25 0d 04 92 05  |24),,,FLAGS%....|
00000840  e1 0d 04 9c 05 3a 0d 04  a6 1f dd 20 f2 73 65 74  |.....:..... .set|
00000850  5f 66 63 6f 6c 28 72 2c  67 2c 62 2c 72 32 2c 67  |_fcol(r,g,b,r2,g|
00000860  32 2c 62 32 29 0d 04 b0  0f ea 20 73 65 74 5f 66  |2,b2)..... set_f|
00000870  63 6f 6c 25 0d 04 ba 0f  72 3d 72 2a 28 31 2f 32  |col%....r=r*(1/2|
00000880  35 35 29 0d 04 c4 0f 67  3d 67 2a 28 31 2f 32 35  |55)....g=g*(1/25|
00000890  35 29 0d 04 ce 0f 62 3d  62 2a 28 31 2f 32 35 35  |5)....b=b*(1/255|
000008a0  29 0d 04 d8 11 72 32 3d  72 32 2a 28 31 2f 32 35  |)....r2=r2*(1/25|
000008b0  35 29 0d 04 e2 11 67 32  3d 67 32 2a 28 31 2f 32  |5)....g2=g2*(1/2|
000008c0  35 35 29 0d 04 ec 11 62  32 3d 62 32 2a 28 31 2f  |55)....b2=b2*(1/|
000008d0  32 35 35 29 0d 04 f6 49  c8 99 20 22 4f 53 5f 53  |255)...I.. "OS_S|
000008e0  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
000008f0  6e 67 22 2c 2c 22 43 6f  6c 6f 75 72 54 72 61 6e  |ng",,"ColourTran|
00000900  73 5f 53 65 74 46 6f 6e  74 43 6f 6c 6f 75 72 73  |s_SetFontColours|
00000910  22 20 b8 20 73 65 74 5f  66 63 6f 6c 25 0d 05 00  |" . set_fcol%...|
00000920  6a c8 99 20 73 65 74 5f  66 63 6f 6c 25 2c 30 2c  |j.. set_fcol%,0,|
00000930  28 28 72 32 2a 26 46 46  29 3c 3c 38 29 2b 28 28  |((r2*&FF)<<8)+((|
00000940  67 32 2a 26 46 46 29 3c  3c 31 36 29 2b 28 28 62  |g2*&FF)<<16)+((b|
00000950  32 2a 26 46 46 29 3c 3c  32 34 29 2c 28 28 72 2a  |2*&FF)<<24),((r*|
00000960  26 46 46 29 3c 3c 38 29  2b 28 28 67 2a 26 46 46  |&FF)<<8)+((g*&FF|
00000970  29 3c 3c 31 36 29 2b 28  28 62 2a 26 46 46 29 3c  |)<<16)+((b*&FF)<|
00000980  3c 32 34 29 2c 31 34 0d  05 0a 05 e1 0d 05 14 05  |<24),14.........|
00000990  3a 0d 05 1e 10 dd 20 f2  6d 61 69 6e 5f 6d 65 6e  |:..... .main_men|
000009a0  75 0d 05 28 05 f5 0d 05  32 1b 43 68 3d a4 6d 65  |u..(....2.Ch=.me|
000009b0  6e 75 28 22 4d 61 69 6e  20 4d 65 6e 75 22 2c 31  |nu("Main Menu",1|
000009c0  29 0d 05 3c 0c e7 20 43  68 3d 31 20 8c 0d 05 46  |)..<.. Ch=1 ...F|
000009d0  05 f5 0d 05 50 1e 43 68  32 3d a4 6d 65 6e 75 28  |....P.Ch2=.menu(|
000009e0  22 4e 65 77 20 42 61 72  63 6f 64 65 22 2c 32 29  |"New Barcode",2)|
000009f0  0d 05 5a 0c c8 8e 20 43  68 32 20 ca 0d 05 64 17  |..Z... Ch2 ...d.|
00000a00  f4 20 57 48 45 4e 20 30  3a 50 52 4f 43 46 6f 72  |. WHEN 0:PROCFor|
00000a10  6d 61 74 0d 05 6e 10 c9  20 30 3a f2 61 72 74 69  |mat..n.. 0:.arti|
00000a20  63 6c 65 0d 05 78 0e c9  20 31 3a f2 41 61 6e 64  |cle..x.. 1:.Aand|
00000a30  42 0d 05 82 0d c9 20 32  3a f2 76 69 65 77 0d 05  |B..... 2:.view..|
00000a40  8c 05 cb 0d 05 96 0b fd  20 43 68 32 3d 33 0d 05  |........ Ch2=3..|
00000a50  a0 05 cd 0d 05 aa 12 e7  20 43 68 3d 30 20 8c 20  |........ Ch=0 . |
00000a60  f2 69 6e 66 6f 0d 05 b4  12 e7 20 43 68 3d 32 20  |.info..... Ch=2 |
00000a70  8c 20 f2 76 69 65 77 0d  05 be 15 e7 20 43 68 3d  |. .view..... Ch=|
00000a80  33 20 8c 20 f2 73 61 76  5f 6f 70 74 0d 05 c8 0a  |3 . .sav_opt....|
00000a90  fd 20 43 68 3d 34 0d 05  d2 05 e1 0d 05 dc 05 3a  |. Ch=4.........:|
00000aa0  0d 05 e6 15 dd 20 a4 6d  65 6e 75 28 74 69 74 6c  |..... .menu(titl|
00000ab0  65 24 2c 6e 29 0d 05 f0  10 f2 63 6c 65 61 72 5f  |e$,n).....clear_|
00000ac0  6d 6f 75 73 65 0d 05 fa  0a f2 66 6c 75 73 68 0d  |mouse.....flush.|
00000ad0  06 04 21 ea 20 53 74 61  72 74 59 2c 59 2c 58 2c  |..!. StartY,Y,X,|
00000ae0  42 2c 48 49 2c 4f 48 49  2c 78 31 25 2c 79 31 25  |B,HI,OHI,x1%,y1%|
00000af0  0d 06 0e 05 db 0d 06 18  1c c8 99 20 22 46 6f 6e  |........... "Fon|
00000b00  74 5f 53 65 74 46 6f 6e  74 22 2c 54 65 78 74 32  |t_SetFont",Text2|
00000b10  25 0d 06 22 2d c8 99 20  22 46 6f 6e 74 5f 53 74  |%.."-.. "Font_St|
00000b20  72 69 6e 67 42 42 6f 78  22 2c 2c 74 69 74 6c 65  |ringBBox",,title|
00000b30  24 20 b8 20 2c 2c 2c 78  31 25 2c 79 31 25 0d 06  |$ . ,,,x1%,y1%..|
00000b40  2c 15 78 31 25 3d 78 31  25 2a 31 38 30 2f 37 32  |,.x1%=x1%*180/72|
00000b50  30 30 30 0d 06 36 15 79  31 25 3d 79 31 25 2a 31  |000..6.y1%=y1%*1|
00000b60  38 30 2f 37 32 30 30 30  0d 06 40 1b f2 73 65 74  |80/72000..@..set|
00000b70  5f 67 63 6f 6c 28 36 34  2c 31 32 38 2c 32 35 35  |_gcol(64,128,255|
00000b80  2c 31 29 0d 06 4a 31 c8  93 20 c8 90 20 36 34 30  |,1)..J1.. .. 640|
00000b90  2d 78 31 25 2f 32 2d 32  30 2c 39 30 30 2d 79 31  |-x1%/2-20,900-y1|
00000ba0  25 2f 32 2d 32 30 2c 78  31 25 2b 34 30 2c 79 31  |%/2-20,x1%+40,y1|
00000bb0  25 2b 34 30 0d 06 54 0d  e6 20 36 33 20 c8 9c 20  |%+40..T.. 63 .. |
00000bc0  30 0d 06 5e 2e c8 93 20  36 34 30 2d 78 31 25 2f  |0..^... 640-x1%/|
00000bd0  32 2d 32 30 2c 39 30 30  2d 79 31 25 2f 32 2d 32  |2-20,900-y1%/2-2|
00000be0  30 2c 78 31 25 2b 34 30  2c 79 31 25 2b 34 30 0d  |0,x1%+40,y1%+40.|
00000bf0  06 68 24 f2 73 65 74 5f  66 63 6f 6c 28 32 35 35  |.h$.set_fcol(255|
00000c00  2c 31 32 38 2c 36 34 2c  36 34 2c 31 32 38 2c 32  |,128,64,64,128,2|
00000c10  35 35 29 0d 06 72 1e f2  63 65 6e 74 72 65 28 39  |55)..r..centre(9|
00000c20  30 30 2c 74 69 74 6c 65  24 2c 54 65 78 74 32 25  |00,title$,Text2%|
00000c30  29 0d 06 7c 20 f2 73 65  74 5f 66 63 6f 6c 28 32  |)..| .set_fcol(2|
00000c40  35 35 2c 32 35 35 2c 32  35 35 2c 30 2c 30 2c 30  |55,255,255,0,0,0|
00000c50  29 0d 06 86 24 53 74 61  72 74 59 3d 34 30 30 2b  |)...$StartY=400+|
00000c60  28 31 30 30 2a 28 4d 65  6e 49 74 65 6d 73 28 6e  |(100*(MenItems(n|
00000c70  29 2f 32 29 29 0d 06 90  19 e3 20 59 3d 30 20 b8  |)/2))..... Y=0 .|
00000c80  20 4d 65 6e 49 74 65 6d  73 28 6e 29 2d 31 0d 06  | MenItems(n)-1..|
00000c90  9a 39 f4 20 50 52 4f 43  77 68 65 72 65 28 32 30  |.9. PROCwhere(20|
00000ca0  30 2c 53 74 61 72 74 59  2d 28 59 2a 31 30 30 29  |0,StartY-(Y*100)|
00000cb0  2c 53 54 52 24 28 59 2b  31 29 2b 22 29 2e 2e 22  |,STR$(Y+1)+").."|
00000cc0  2c 54 65 78 74 25 29 0d  06 a4 2f f2 63 65 6e 74  |,Text%).../.cent|
00000cd0  72 65 28 53 74 61 72 74  59 2d 28 59 2a 31 30 30  |re(StartY-(Y*100|
00000ce0  29 2c 4d 65 6e 75 73 24  28 6e 2c 59 2b 31 29 2c  |),Menus$(n,Y+1),|
00000cf0  54 65 78 74 25 29 0d 06  ae 05 ed 0d 06 b8 32 c8  |Text%)........2.|
00000d00  97 20 c8 93 20 32 30 30  2c 38 35 30 2d 53 74 61  |. .. 200,850-Sta|
00000d10  72 74 59 2b 31 30 2c 38  38 30 2c 4d 65 6e 49 74  |rtY+10,880,MenIt|
00000d20  65 6d 73 28 6e 29 2a 31  30 30 2d 32 30 0d 06 c2  |ems(n)*100-20...|
00000d30  08 48 49 3d 30 0d 06 cc  09 4f 48 49 3d 30 0d 06  |.HI=0....OHI=0..|
00000d40  d6 11 e6 20 33 2c 36 33  20 c8 9c 20 32 35 35 0d  |... 3,63 .. 255.|
00000d50  06 e0 28 c8 93 20 c8 90  20 32 30 30 2c 53 74 61  |..(.. .. 200,Sta|
00000d60  72 74 59 2d 35 30 2d 28  48 49 2a 31 30 30 29 2c  |rtY-50-(HI*100),|
00000d70  38 38 30 2c 31 30 30 0d  06 ea 05 f5 0d 06 f4 28  |880,100........(|
00000d80  c8 93 20 c8 90 20 32 30  30 2c 53 74 61 72 74 59  |.. .. 200,StartY|
00000d90  2d 35 30 2d 28 48 49 2a  31 30 30 29 2c 38 38 30  |-50-(HI*100),880|
00000da0  2c 31 30 30 0d 06 fe 0c  c8 97 20 58 2c 59 2c 5a  |,100...... X,Y,Z|
00000db0  0d 07 08 31 48 49 3d 28  28 4d 65 6e 49 74 65 6d  |...1HI=((MenItem|
00000dc0  73 28 6e 29 2a 31 30 30  29 2d 28 59 2d 28 38 35  |s(n)*100)-(Y-(85|
00000dd0  30 2d 53 74 61 72 74 59  29 29 29 20 81 20 31 30  |0-StartY))) . 10|
00000de0  30 0d 07 12 16 e7 20 48  49 3c 3e 4f 48 49 20 8c  |0..... HI<>OHI .|
00000df0  20 4f 48 49 3d 48 49 0d  07 1c 1e f4 20 53 4f 55  | OHI=HI..... SOU|
00000e00  4e 44 20 31 2c 2d 31 35  2c 31 35 33 2b 28 48 49  |ND 1,-15,153+(HI|
00000e10  2a 34 29 2c 31 0d 07 26  28 c8 93 20 c8 90 20 32  |*4),1..&(.. .. 2|
00000e20  30 30 2c 53 74 61 72 74  59 2d 35 30 2d 28 48 49  |00,StartY-50-(HI|
00000e30  2a 31 30 30 29 2c 38 38  30 2c 31 30 30 0d 07 30  |*100),880,100..0|
00000e40  06 c8 96 0d 07 3a 09 fd  20 5a 3d 34 0d 07 44 10  |.....:.. Z=4..D.|
00000e50  f2 63 6c 65 61 72 5f 6d  6f 75 73 65 0d 07 4e 17  |.clear_mouse..N.|
00000e60  c8 97 20 c8 93 20 30 2c  30 2c 31 32 38 30 2c 31  |.. .. 0,0,1280,1|
00000e70  30 33 30 0d 07 58 07 3d  48 49 0d 07 62 05 3a 0d  |030..X.=HI..b.:.|
00000e80  07 6c 12 dd 20 f2 63 6c  65 61 72 5f 6d 6f 75 73  |.l.. .clear_mous|
00000e90  65 0d 07 76 0b ea 20 58  2c 59 2c 5a 0d 07 80 05  |e..v.. X,Y,Z....|
00000ea0  f5 0d 07 8a 0c c8 97 20  58 2c 59 2c 5a 0d 07 94  |....... X,Y,Z...|
00000eb0  09 fd 20 5a 3d 30 0d 07  9e 05 e1 0d 07 a8 05 3a  |.. Z=0.........:|
00000ec0  0d 07 b2 0d dd 20 f2 66  69 6e 69 73 68 0d 07 bc  |..... .finish...|
00000ed0  1c c8 99 20 22 46 6f 6e  74 5f 4c 6f 73 65 46 6f  |... "Font_LoseFo|
00000ee0  6e 74 22 2c 54 65 78 74  25 0d 07 c6 1d c8 99 20  |nt",Text%...... |
00000ef0  22 46 6f 6e 74 5f 4c 6f  73 65 46 6f 6e 74 22 2c  |"Font_LoseFont",|
00000f00  54 65 78 74 32 25 0d 07  d0 1d c8 99 20 22 46 6f  |Text2%...... "Fo|
00000f10  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 54 65 78  |nt_LoseFont",Tex|
00000f20  74 33 25 0d 07 da 0a f2  66 6c 75 73 68 0d 07 e4  |t3%.....flush...|
00000f30  09 f2 73 61 76 65 0d 07  ee 05 e1 0d 07 f8 05 3a  |..save.........:|
00000f40  0d 08 02 0b dd 20 f2 73  61 76 65 0d 08 0c 22 66  |..... .save..."f|
00000f50  69 6c 65 25 3d ae 28 22  3c 42 61 72 43 6f 64 65  |ile%=.("<BarCode|
00000f60  24 44 69 72 3e 2e 53 6f  70 74 73 22 29 0d 08 16  |$Dir>.Sopts")...|
00000f70  10 d5 23 66 69 6c 65 25  2c 53 6f 70 74 0d 08 20  |..#file%,Sopt.. |
00000f80  0b d9 23 66 69 6c 65 25  0d 08 2a 21 66 69 6c 65  |..#file%..*!file|
00000f90  25 3d ae 28 22 3c 42 61  72 43 6f 64 65 24 44 69  |%=.("<BarCode$Di|
00000fa0  72 3e 2e 54 65 6d 70 22  29 0d 08 34 14 d5 23 66  |r>.Temp")..4..#f|
00000fb0  69 6c 65 25 2c 41 4e 75  6d 62 65 72 24 0d 08 3e  |ile%,ANumber$..>|
00000fc0  11 d5 23 66 69 6c 65 25  2c 41 61 6e 64 42 0d 08  |..#file%,AandB..|
00000fd0  48 0f d5 23 66 69 6c 65  25 2c 46 6d 74 0d 08 52  |H..#file%,Fmt..R|
00000fe0  0b d9 23 66 69 6c 65 25  0d 08 5c 05 e1 0d 08 66  |..#file%..\....f|
00000ff0  05 3a 0d 08 70 0e dd 20  f2 61 72 74 69 63 6c 65  |.:..p.. .article|
00001000  0d 08 7a 17 ea 20 78 31  25 2c 79 31 25 2c 58 2c  |..z.. x1%,y1%,X,|
00001010  59 2c 5a 2c 49 6e 24 0d  08 84 0a f2 66 6c 75 73  |Y,Z,In$.....flus|
00001020  68 0d 08 8e 05 db 0d 08  98 1c c8 99 20 22 46 6f  |h........... "Fo|
00001030  6e 74 5f 53 65 74 46 6f  6e 74 22 2c 54 65 78 74  |nt_SetFont",Text|
00001040  32 25 0d 08 a2 37 c8 99  20 22 46 6f 6e 74 5f 53  |2%...7.. "Font_S|
00001050  74 72 69 6e 67 42 42 6f  78 22 2c 2c 22 53 65 74  |tringBBox",,"Set|
00001060  20 41 72 74 69 63 6c 65  20 4e ba 22 20 b8 20 2c  | Article N." . ,|
00001070  2c 2c 78 31 25 2c 79 31  25 0d 08 ac 15 78 31 25  |,,x1%,y1%....x1%|
00001080  3d 78 31 25 2a 31 38 30  2f 37 32 30 30 30 0d 08  |=x1%*180/72000..|
00001090  b6 15 79 31 25 3d 79 31  25 2a 31 38 30 2f 37 32  |..y1%=y1%*180/72|
000010a0  30 30 30 0d 08 c0 1a f2  73 65 74 5f 67 63 6f 6c  |000.....set_gcol|
000010b0  28 36 34 2c 32 35 35 2c  36 34 2c 31 29 0d 08 ca  |(64,255,64,1)...|
000010c0  31 c8 93 20 c8 90 20 36  34 30 2d 78 31 25 2f 32  |1.. .. 640-x1%/2|
000010d0  2d 32 30 2c 39 30 30 2d  79 31 25 2f 32 2d 32 30  |-20,900-y1%/2-20|
000010e0  2c 78 31 25 2b 34 30 2c  79 31 25 2b 34 30 0d 08  |,x1%+40,y1%+40..|
000010f0  d4 0d e6 20 36 33 20 c8  9c 20 30 0d 08 de 2e c8  |... 63 .. 0.....|
00001100  93 20 36 34 30 2d 78 31  25 2f 32 2d 32 30 2c 39  |. 640-x1%/2-20,9|
00001110  30 30 2d 79 31 25 2f 32  2d 32 30 2c 78 31 25 2b  |00-y1%/2-20,x1%+|
00001120  34 30 2c 79 31 25 2b 34  30 0d 08 e8 21 f2 73 65  |40,y1%+40...!.se|
00001130  74 5f 66 63 6f 6c 28 36  34 2c 36 34 2c 36 34 2c  |t_fcol(64,64,64,|
00001140  36 34 2c 32 35 35 2c 36  34 29 0d 08 f2 28 f2 63  |64,255,64)...(.c|
00001150  65 6e 74 72 65 28 39 30  30 2c 22 53 65 74 20 41  |entre(900,"Set A|
00001160  72 74 69 63 6c 65 20 4e  ba 22 2c 54 65 78 74 32  |rticle N.",Text2|
00001170  25 29 0d 08 fc 20 f2 73  65 74 5f 66 63 6f 6c 28  |%)... .set_fcol(|
00001180  32 35 35 2c 32 35 35 2c  32 35 35 2c 30 2c 30 2c  |255,255,255,0,0,|
00001190  30 29 0d 09 06 4c f2 63  65 6e 74 72 65 28 37 30  |0)...L.centre(70|
000011a0  30 2c 22 54 79 70 65 20  69 6e 20 74 68 65 20 22  |0,"Type in the "|
000011b0  2b c3 28 4c 6e 29 2b 22  20 64 69 67 69 74 20 61  |+.(Ln)+" digit a|
000011c0  72 74 69 63 6c 65 20 6e  75 6d 62 65 72 20 62 65  |rticle number be|
000011d0  6c 6f 77 20 3a 2d 22 2c  54 65 78 74 25 29 0d 09  |low :-",Text%)..|
000011e0  10 05 f5 0d 09 1a 0a 49  6e 24 3d 22 22 0d 09 24  |.......In$=""..$|
000011f0  05 f5 0d 09 2e 07 47 3d  a5 0d 09 38 1f e7 20 28  |......G=...8.. (|
00001200  47 3e 3d 34 38 20 80 20  47 3c 3d 35 37 29 20 84  |G>=48 . G<=57) .|
00001210  20 28 47 3d 38 29 20 8c  0d 09 42 29 e7 20 47 3d  | (G=8) ...B). G=|
00001220  38 20 80 20 a9 28 49 6e  24 29 3e 30 20 8c 20 49  |8 . .(In$)>0 . I|
00001230  6e 24 3d c0 49 6e 24 2c  a9 28 49 6e 24 29 2d 31  |n$=.In$,.(In$)-1|
00001240  29 0d 09 4c 14 e7 20 47  3c 3e 38 20 49 6e 24 2b  |)..L.. G<>8 In$+|
00001250  3d bd 28 47 29 0d 09 56  06 c8 96 0d 09 60 0c e6  |=.(G)..V.....`..|
00001260  20 30 20 c8 9c 20 30 0d  09 6a 18 c8 93 20 c8 90  | 0 .. 0..j... ..|
00001270  20 30 2c 32 30 30 2c 31  32 38 30 2c 33 30 30 0d  | 0,200,1280,300.|
00001280  09 74 1b f2 63 65 6e 74  72 65 28 33 35 30 2c 49  |.t..centre(350,I|
00001290  6e 24 2c 54 65 78 74 32  25 29 0d 09 7e 05 cd 0d  |n$,Text2%)..~...|
000012a0  09 88 0f fd 20 a9 28 49  6e 24 29 3d 4c 6e 0d 09  |.... .(In$)=Ln..|
000012b0  92 2e f2 63 65 6e 74 72  65 28 32 30 2c 22 49 73  |...centre(20,"Is|
000012c0  20 74 68 69 73 20 63 6f  72 72 65 63 74 3f 20 28  | this correct? (|
000012d0  59 2f 4e 29 22 2c 54 65  78 74 25 29 0d 09 9c 05  |Y/N)",Text%)....|
000012e0  f5 0d 09 a6 09 59 4e 24  3d be 0d 09 b0 2b fd 20  |.....YN$=....+. |
000012f0  59 4e 24 3d 22 59 22 20  84 20 59 4e 24 3d 22 4e  |YN$="Y" . YN$="N|
00001300  22 20 84 20 59 4e 24 3d  22 79 22 20 84 20 59 4e  |" . YN$="y" . YN|
00001310  24 3d 22 6e 22 0d 09 ba  16 c8 93 20 c8 90 20 30  |$="n"...... .. 0|
00001320  2c 30 2c 31 32 38 30 2c  36 35 30 0d 09 c4 17 fd  |,0,1280,650.....|
00001330  20 59 4e 24 3d 22 59 22  20 84 20 59 4e 24 3d 22  | YN$="Y" . YN$="|
00001340  79 22 0d 09 ce 10 41 4e  75 6d 62 65 72 24 3d 49  |y"....ANumber$=I|
00001350  6e 24 0d 09 d8 05 e1 0d  09 e2 05 3a 0d 09 ec 0c  |n$.........:....|
00001360  dd 20 f2 66 6c 75 73 68  0d 09 f6 05 f5 0d 0a 00  |. .flush........|
00001370  0b 41 24 3d bf 28 30 29  0d 0a 0a 0b fd 20 41 24  |.A$=.(0)..... A$|
00001380  3d 22 22 0d 0a 14 05 e1  0d 0a 1e 05 3a 0d 0a 28  |="".........:..(|
00001390  0c dd 20 f2 41 61 6e 64  42 0d 0a 32 17 ea 20 4f  |.. .AandB..2.. O|
000013a0  43 68 33 2c 43 68 33 2c  71 75 69 74 2c 6d 6e 75  |Ch3,Ch3,quit,mnu|
000013b0  0d 0a 3c 09 6d 6e 75 3d  30 0d 0a 46 0a 71 75 69  |..<.mnu=0..F.qui|
000013c0  74 3d a3 0d 0a 50 0a 4f  43 68 33 3d 30 0d 0a 5a  |t=...P.OCh3=0..Z|
000013d0  09 43 68 33 3d 30 0d 0a  64 05 f5 0d 0a 6e 0c 4f  |.Ch3=0..d....n.O|
000013e0  43 68 33 3d 43 68 33 0d  0a 78 2c 43 68 33 3d a4  |Ch3=Ch3..x,Ch3=.|
000013f0  6d 65 6e 75 28 22 41 20  61 6e 64 20 42 20 73 65  |menu("A and B se|
00001400  74 20 22 2b c3 28 41 61  6e 64 42 29 2c 6d 6e 75  |t "+.(AandB),mnu|
00001410  2b 34 29 0d 0a 82 3f f4  20 49 46 20 6d 6e 75 3d  |+4)...?. IF mnu=|
00001420  30 20 54 48 45 4e 20 43  68 33 3d 46 4e 6d 65 6e  |0 THEN Ch3=FNmen|
00001430  75 28 22 41 20 61 6e 64  20 42 20 73 65 74 20 22  |u("A and B set "|
00001440  2b 53 54 52 24 28 4f 43  68 33 29 2c 6d 6e 75 2b  |+STR$(OCh3),mnu+|
00001450  34 29 0d 0a 8c 41 f4 20  49 46 20 6d 6e 75 3d 31  |4)...A. IF mnu=1|
00001460  20 54 48 45 4e 20 43 68  33 3d 46 4e 6d 65 6e 75  | THEN Ch3=FNmenu|
00001470  28 22 41 20 61 6e 64 20  42 20 73 65 74 20 22 2b  |("A and B set "+|
00001480  53 54 52 24 28 4f 43 68  33 2b 35 29 2c 6d 6e 75  |STR$(OCh3+5),mnu|
00001490  2b 34 29 0d 0a 96 53 e7  20 6d 6e 75 3d 30 20 80  |+4)...S. mnu=0 .|
000014a0  20 43 68 33 3c 3e 35 20  80 20 43 68 33 3c 3e 36  | Ch3<>5 . Ch3<>6|
000014b0  20 8c 20 41 61 6e 64 42  3d 43 68 33 20 8b 20 e7  | . AandB=Ch3 . .|
000014c0  20 6d 6e 75 3d 31 20 80  20 43 68 33 3c 3e 35 20  | mnu=1 . Ch3<>5 |
000014d0  80 20 43 68 33 3c 3e 36  20 8c 20 41 61 6e 64 42  |. Ch3<>6 . AandB|
000014e0  3d 43 68 33 2b 35 0d 0a  a0 14 e7 20 43 68 33 3d  |=Ch3+5..... Ch3=|
000014f0  36 20 8c 20 71 75 69 74  3d b9 0d 0a aa 25 e7 20  |6 . quit=....%. |
00001500  43 68 33 3d 35 20 80 20  6d 6e 75 3d 30 20 8c 20  |Ch3=5 . mnu=0 . |
00001510  6d 6e 75 2b 3d 31 3a 43  68 33 3d 4f 43 68 33 0d  |mnu+=1:Ch3=OCh3.|
00001520  0a b4 25 e7 20 43 68 33  3d 35 20 80 20 6d 6e 75  |..%. Ch3=5 . mnu|
00001530  3d 31 20 8c 20 6d 6e 75  2d 3d 31 3a 43 68 33 3d  |=1 . mnu-=1:Ch3=|
00001540  4f 43 68 33 0d 0a be 0c  fd 20 71 75 69 74 3d b9  |OCh3..... quit=.|
00001550  0d 0a c8 05 e1 0d 0a d2  05 3a 0d 0a dc 0e dd 20  |.........:..... |
00001560  f2 73 61 76 5f 6f 70 74  0d 0a e6 11 ea 20 4f 43  |.sav_opt..... OC|
00001570  68 33 2c 43 68 33 2c 46  24 0d 0a f0 0a 4f 43 68  |h3,Ch3,F$....OCh|
00001580  33 3d 30 0d 0a fa 0c 43  68 33 3d 53 6f 70 74 0d  |3=0....Ch3=Sopt.|
00001590  0b 04 05 f5 0d 0b 0e 0c  4f 43 68 33 3d 43 68 33  |........OCh3=Ch3|
000015a0  0d 0b 18 0d c8 8e 20 4f  43 68 33 20 ca 0d 0b 22  |...... OCh3 ..."|
000015b0  14 c9 20 30 3a 46 24 3d  22 42 41 52 43 4f 44 45  |.. 0:F$="BARCODE|
000015c0  22 0d 0b 2c 11 c9 20 31  3a 46 24 3d 22 44 52 41  |"..,.. 1:F$="DRA|
000015d0  57 22 0d 0b 36 13 c9 20  32 3a 46 24 3d 22 53 50  |W"..6.. 2:F$="SP|
000015e0  52 49 54 45 22 0d 0b 40  05 cb 0d 0b 4a 1b 43 68  |RITE"..@....J.Ch|
000015f0  33 3d a4 6d 65 6e 75 28  22 53 61 76 65 20 22 2b  |3=.menu("Save "+|
00001600  46 24 2c 36 29 0d 0b 54  0b fd 20 43 68 33 3d 33  |F$,6)..T.. Ch3=3|
00001610  0d 0b 5e 0d 53 6f 70 74  3d 4f 43 68 33 0d 0b 68  |..^.Sopt=OCh3..h|
00001620  05 e1 0d 0b 72 05 3a 0d  0b 7c 0d dd 20 f2 46 6f  |....r.:..|.. .Fo|
00001630  72 6d 61 74 0d 0b 86 05  e1 0d 0b 90 0e ea 20 4f  |rmat.......... O|
00001640  43 68 33 2c 43 68 33 0d  0b 9a 0a 4f 43 68 33 3d  |Ch3,Ch3....OCh3=|
00001650  30 0d 0b a4 0b 43 68 33  3d 46 6d 74 0d 0b ae 05  |0....Ch3=Fmt....|
00001660  f5 0d 0b b8 0c 4f 43 68  33 3d 43 68 33 0d 0b c2  |.....OCh3=Ch3...|
00001670  0d c8 8e 20 4f 43 68 33  20 ca 0d 0b cc 10 c9 20  |... OCh3 ...... |
00001680  30 3a 46 24 3d 22 45 41  4e 22 0d 0b d6 10 c9 20  |0:F$="EAN"..... |
00001690  31 3a 46 24 3d 22 49 54  46 22 0d 0b e0 05 cb 0d  |1:F$="ITF"......|
000016a0  0b ea 1d 43 68 33 3d a4  6d 65 6e 75 28 22 46 6f  |...Ch3=.menu("Fo|
000016b0  72 6d 61 74 20 22 2b 46  24 2c 33 29 0d 0b f4 0b  |rmat "+F$,3)....|
000016c0  fd 20 43 68 33 3d 32 0d  0b fe 0c 46 6d 74 3d 4f  |. Ch3=2....Fmt=O|
000016d0  43 68 33 0d 0c 08 05 e1  0d 0c 12 05 3a 0d 0c 1c  |Ch3.........:...|
000016e0  0b dd 20 f2 76 69 65 77  0d 0c 26 19 ea 20 58 2c  |.. .view..&.. X,|
000016f0  42 43 6f 64 65 24 2c 59  2c 5a 2c 41 64 64 2c 46  |BCode$,Y,Z,Add,F|
00001700  24 0d 0c 30 05 db 0d 0c  3a 10 f2 63 6c 65 61 72  |$..0....:..clear|
00001710  5f 6d 6f 75 73 65 0d 0c  44 10 42 43 6f 64 65 24  |_mouse..D.BCode$|
00001720  3d 22 44 4c 44 22 0d 0c  4e 10 e3 20 58 3d 31 20  |="DLD"..N.. X=1 |
00001730  b8 20 4c 6e 2f 32 0d 0c  58 19 41 64 64 3d bb 28  |. Ln/2..X.Add=.(|
00001740  c1 41 4e 75 6d 62 65 72  24 2c 58 2c 31 29 29 0d  |.ANumber$,X,1)).|
00001750  0c 62 1b c8 8e 20 c1 53  65 74 73 24 28 41 61 6e  |.b... .Sets$(Aan|
00001760  64 42 29 2c 58 2c 31 29  20 ca 0d 0c 6c 21 c9 20  |dB),X,1) ...l!. |
00001770  22 41 22 3a 42 43 6f 64  65 24 2b 3d 4e 75 6d 62  |"A":BCode$+=Numb|
00001780  65 72 73 24 28 41 64 64  2c 31 29 0d 0c 76 21 c9  |ers$(Add,1)..v!.|
00001790  20 22 42 22 3a 42 43 6f  64 65 24 2b 3d 4e 75 6d  | "B":BCode$+=Num|
000017a0  62 65 72 73 24 28 41 64  64 2c 32 29 0d 0c 80 05  |bers$(Add,2)....|
000017b0  cb 0d 0c 8a 05 ed 0d 0c  94 13 42 43 6f 64 65 24  |..........BCode$|
000017c0  2b 3d 22 4c 44 4c 44 4c  22 0d 0c 9e 13 e3 20 58  |+="LDLDL"..... X|
000017d0  3d 4c 6e 2f 32 2b 31 20  b8 20 4c 6e 0d 0c a8 19  |=Ln/2+1 . Ln....|
000017e0  41 64 64 3d bb 28 c1 41  4e 75 6d 62 65 72 24 2c  |Add=.(.ANumber$,|
000017f0  58 2c 31 29 29 0d 0c b2  1b 42 43 6f 64 65 24 2b  |X,1))....BCode$+|
00001800  3d 4e 75 6d 62 65 72 73  24 28 41 64 64 2c 33 29  |=Numbers$(Add,3)|
00001810  0d 0c bc 05 ed 0d 0c c6  11 42 43 6f 64 65 24 2b  |.........BCode$+|
00001820  3d 22 44 4c 44 22 0d 0c  d0 0f e6 20 36 33 20 c8  |="DLD"..... 63 .|
00001830  9c 20 32 35 35 0d 0c da  24 f4 20 52 45 43 54 41  |. 255...$. RECTA|
00001840  4e 47 4c 45 20 46 49 4c  4c 20 32 30 32 2c 31 36  |NGLE FILL 202,16|
00001850  32 2c 38 34 30 2c 35 38  38 0d 0c e4 17 c8 93 20  |2,840,588...... |
00001860  c8 90 20 30 2c 30 2c 31  32 38 30 2c 31 30 33 30  |.. 0,0,1280,1030|
00001870  0d 0c ee 15 e3 20 58 3d  31 20 b8 20 a9 28 42 43  |..... X=1 . .(BC|
00001880  6f 64 65 24 29 0d 0c f8  2f e7 20 c1 42 43 6f 64  |ode$).../. .BCod|
00001890  65 24 2c 58 2c 31 29 3d  22 4c 22 20 8c 20 e6 20  |e$,X,1)="L" . . |
000018a0  36 33 20 c8 9c 20 32 35  35 20 8b 20 e6 20 30 20  |63 .. 255 . . 0 |
000018b0  c8 9c 20 30 0d 0d 02 21  c8 93 20 c8 90 20 32 37  |.. 0...!.. .. 27|
000018c0  32 2b 28 28 58 2d 31 29  2a 38 29 2c 32 31 32 2c  |2+((X-1)*8),212,|
000018d0  38 2c 35 32 38 0d 0d 0c  05 ed 0d 0d 16 0f e6 20  |8,528.......... |
000018e0  36 33 20 c8 9c 20 32 35  35 0d 0d 20 1d c8 93 20  |63 .. 255.. ... |
000018f0  c8 90 20 32 37 32 2b 32  34 2c 31 37 32 2c 34 32  |.. 272+24,172,42|
00001900  2a 38 2c 31 30 30 0d 0d  2a 25 c8 93 20 c8 90 20  |*8,100..*%.. .. |
00001910  32 37 32 2b 32 34 2b 34  32 2a 38 2b 33 35 2c 31  |272+24+42*8+35,1|
00001920  37 32 2c 34 32 2a 38 2c  31 30 30 0d 0d 34 20 f2  |72,42*8,100..4 .|
00001930  73 65 74 5f 66 63 6f 6c  28 30 2c 30 2c 30 2c 32  |set_fcol(0,0,0,2|
00001940  35 35 2c 32 35 35 2c 32  35 35 29 0d 0d 3e 23 f2  |55,255,255)..>#.|
00001950  77 68 65 72 65 28 32 31  32 2c 31 37 32 2c c3 28  |where(212,172,.(|
00001960  41 61 6e 64 42 29 2c 54  65 78 74 33 25 29 0d 0d  |AandB),Text3%)..|
00001970  48 2a f2 77 68 65 72 65  28 32 37 32 2b 34 34 2c  |H*.where(272+44,|
00001980  31 37 32 2c c0 41 4e 75  6d 62 65 72 24 2c 36 29  |172,.ANumber$,6)|
00001990  2c 54 65 78 74 33 25 29  0d 0d 52 32 f2 77 68 65  |,Text3%)..R2.whe|
000019a0  72 65 28 32 37 32 2b 33  32 2b 34 32 2a 38 2b 33  |re(272+32+42*8+3|
000019b0  35 2c 31 37 32 2c c2 41  4e 75 6d 62 65 72 24 2c  |5,172,.ANumber$,|
000019c0  36 29 2c 54 65 78 74 33  25 29 0d 0d 5c 0c c8 8e  |6),Text3%)..\...|
000019d0  20 46 6d 74 20 ca 0d 0d  66 10 c9 20 30 3a 46 24  | Fmt ...f.. 0:F$|
000019e0  3d 22 45 41 4e 22 0d 0d  70 10 c9 20 31 3a 46 24  |="EAN"..p.. 1:F$|
000019f0  3d 22 49 54 46 22 0d 0d  7a 05 cb 0d 0d 84 26 f2  |="ITF"..z.....&.|
00001a00  73 65 74 5f 66 63 6f 6c  28 31 32 38 2c 31 39 32  |set_fcol(128,192|
00001a10  2c 31 32 38 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,128,255,255,255|
00001a20  29 0d 0d 8e 33 f2 63 65  6e 74 72 65 28 39 35 30  |)...3.centre(950|
00001a30  2c 22 41 72 74 69 63 6c  65 20 4e 75 6d 62 65 72  |,"Article Number|
00001a40  20 3a 20 22 2b 41 4e 75  6d 62 65 72 24 2c 54 65  | : "+ANumber$,Te|
00001a50  78 74 25 29 0d 0d 98 47  f2 63 65 6e 74 72 65 28  |xt%)...G.centre(|
00001a60  38 38 30 2c 22 53 74 79  6c 65 20 3a 20 22 2b 53  |880,"Style : "+S|
00001a70  65 74 73 24 28 41 61 6e  64 42 29 2b 22 20 43 43  |ets$(AandB)+" CC|
00001a80  43 43 43 43 20 28 22 2b  c3 28 41 61 6e 64 42 29  |CCCC ("+.(AandB)|
00001a90  2b 22 29 22 2c 54 65 78  74 25 29 0d 0d a2 25 f2  |+")",Text%)...%.|
00001aa0  63 65 6e 74 72 65 28 38  31 30 2c 22 46 6f 72 6d  |centre(810,"Form|
00001ab0  61 74 20 3a 20 22 2b 46  24 2c 54 65 78 74 25 29  |at : "+F$,Text%)|
00001ac0  0d 0d ac 20 f2 73 65 74  5f 66 63 6f 6c 28 30 2c  |... .set_fcol(0,|
00001ad0  30 2c 30 2c 32 35 35 2c  32 35 35 2c 32 35 35 29  |0,0,255,255,255)|
00001ae0  0d 0d b6 39 f2 63 65 6e  74 72 65 28 31 30 30 2c  |...9.centre(100,|
00001af0  22 50 72 65 73 73 20 61  20 6d 6f 75 73 65 20 62  |"Press a mouse b|
00001b00  75 74 74 6f 6e 20 74 6f  20 63 6f 6e 74 69 6e 75  |utton to continu|
00001b10  65 22 2c 54 65 78 74 25  29 0d 0d c0 05 f5 0d 0d  |e",Text%).......|
00001b20  ca 0c c8 97 20 58 2c 59  2c 5a 0d 0d d4 0a fd 20  |.... X,Y,Z..... |
00001b30  5a 3c 3e 30 0d 0d de 10  f2 63 6c 65 61 72 5f 6d  |Z<>0.....clear_m|
00001b40  6f 75 73 65 0d 0d e8 05  e1 0d 0d f2 05 3a 0d 0d  |ouse.........:..|
00001b50  fc 14 dd 20 f2 6c 6f 61  64 5f 66 69 6c 65 28 70  |... .load_file(p|
00001b60  24 29 0d 0e 06 0f 41 4e  75 6d 62 65 72 24 3d 22  |$)....ANumber$="|
00001b70  22 0d 0e 10 0f 66 69 6c  65 25 3d 8e 28 70 24 29  |"....file%=.(p$)|
00001b80  0d 0e 1a 10 e3 20 53 63  6e 3d 31 20 b8 20 31 32  |..... Scn=1 . 12|
00001b90  0d 0e 24 10 54 45 4d 50  3d 9a 23 66 69 6c 65 25  |..$.TEMP=.#file%|
00001ba0  0d 0e 2e 15 41 4e 75 6d  62 65 72 24 2b 3d bd 28  |....ANumber$+=.(|
00001bb0  54 45 4d 50 29 0d 0e 38  05 ed 0d 0e 42 11 44 55  |TEMP)..8....B.DU|
00001bc0  4d 4d 59 3d 9a 23 66 69  6c 65 25 0d 0e 4c 11 41  |MMY=.#file%..L.A|
00001bd0  61 6e 64 42 3d 9a 23 66  69 6c 65 25 0d 0e 56 0f  |andB=.#file%..V.|
00001be0  46 6d 74 3d 9a 23 66 69  6c 65 25 0d 0e 60 0c d9  |Fmt=.#file%..`..|
00001bf0  20 23 66 69 6c 65 25 0d  0e 6a 09 f2 73 61 76 65  | #file%..j..save|
00001c00  0d 0e 74 05 e1 0d 0e 7e  05 3a 0d 0e 88 0b dd 20  |..t....~.:..... |
00001c10  f2 69 6e 66 6f 0d 0e 92  13 ea 20 58 2c 59 2c 5a  |.info..... X,Y,Z|
00001c20  2c 78 31 25 2c 79 31 25  0d 0e 9c 10 f2 63 6c 65  |,x1%,y1%.....cle|
00001c30  61 72 5f 6d 6f 75 73 65  0d 0e a6 05 db 0d 0e b0  |ar_mouse........|
00001c40  1c c8 99 20 22 46 6f 6e  74 5f 53 65 74 46 6f 6e  |... "Font_SetFon|
00001c50  74 22 2c 54 65 78 74 32  25 0d 0e ba 34 c8 99 20  |t",Text2%...4.. |
00001c60  22 46 6f 6e 74 5f 53 74  72 69 6e 67 42 42 6f 78  |"Font_StringBBox|
00001c70  22 2c 2c 22 49 6e 66 6f  72 6d 61 74 69 6f 6e 22  |",,"Information"|
00001c80  20 b8 20 2c 2c 2c 78 31  25 2c 79 31 25 0d 0e c4  | . ,,,x1%,y1%...|
00001c90  15 78 31 25 3d 78 31 25  2a 31 38 30 2f 37 32 30  |.x1%=x1%*180/720|
00001ca0  30 30 0d 0e ce 15 79 31  25 3d 79 31 25 2a 31 38  |00....y1%=y1%*18|
00001cb0  30 2f 37 32 30 30 30 0d  0e d8 1a f2 73 65 74 5f  |0/72000.....set_|
00001cc0  67 63 6f 6c 28 36 34 2c  32 35 35 2c 36 34 2c 31  |gcol(64,255,64,1|
00001cd0  29 0d 0e e2 31 c8 93 20  c8 90 20 36 34 30 2d 78  |)...1.. .. 640-x|
00001ce0  31 25 2f 32 2d 32 30 2c  39 30 30 2d 79 31 25 2f  |1%/2-20,900-y1%/|
00001cf0  32 2d 32 30 2c 78 31 25  2b 34 30 2c 79 31 25 2b  |2-20,x1%+40,y1%+|
00001d00  34 30 0d 0e ec 0d e6 20  36 33 20 c8 9c 20 30 0d  |40..... 63 .. 0.|
00001d10  0e f6 2e c8 93 20 36 34  30 2d 78 31 25 2f 32 2d  |..... 640-x1%/2-|
00001d20  32 30 2c 39 30 30 2d 79  31 25 2f 32 2d 32 30 2c  |20,900-y1%/2-20,|
00001d30  78 31 25 2b 34 30 2c 79  31 25 2b 34 30 0d 0f 00  |x1%+40,y1%+40...|
00001d40  21 f2 73 65 74 5f 66 63  6f 6c 28 36 34 2c 36 34  |!.set_fcol(64,64|
00001d50  2c 36 34 2c 36 34 2c 32  35 35 2c 36 34 29 0d 0f  |,64,64,255,64)..|
00001d60  0a 25 f2 63 65 6e 74 72  65 28 39 30 30 2c 22 49  |.%.centre(900,"I|
00001d70  6e 66 6f 72 6d 61 74 69  6f 6e 22 2c 54 65 78 74  |nformation",Text|
00001d80  32 25 29 0d 0f 14 20 f2  73 65 74 5f 66 63 6f 6c  |2%)... .set_fcol|
00001d90  28 32 35 35 2c 32 35 35  2c 32 35 35 2c 30 2c 30  |(255,255,255,0,0|
00001da0  2c 30 29 0d 0f 1e 21 f2  63 65 6e 74 72 65 28 37  |,0)...!.centre(7|
00001db0  30 30 2c 22 42 61 72 43  6f 64 65 22 2c 54 65 78  |00,"BarCode",Tex|
00001dc0  74 32 25 29 0d 0f 28 28  f2 63 65 6e 74 72 65 28  |t2%)..((.centre(|
00001dd0  35 30 30 2c 22 42 61 72  63 6f 64 65 20 43 72 65  |500,"Barcode Cre|
00001de0  61 74 6f 72 22 2c 54 65  78 74 25 29 0d 0f 32 35  |ator",Text%)..25|
00001df0  f2 63 65 6e 74 72 65 28  34 30 30 2c 22 a9 20 43  |.centre(400,". C|
00001e00  6f 70 79 72 69 67 68 74  20 31 39 39 34 20 52 2e  |opyright 1994 R.|
00001e10  4a 2e 57 61 72 65 68 61  6d 22 2c 54 65 78 74 25  |J.Wareham",Text%|
00001e20  29 0d 0f 3c 27 f2 63 65  6e 74 72 65 28 33 30 30  |)..<'.centre(300|
00001e30  2c 22 31 2e 30 35 20 28  32 35 2f 34 2f 39 34 29  |,"1.05 (25/4/94)|
00001e40  22 2c 54 65 78 74 25 29  0d 0f 46 1f f2 73 65 74  |",Text%)..F..set|
00001e50  5f 66 63 6f 6c 28 32 35  35 2c 36 34 2c 32 35 35  |_fcol(255,64,255|
00001e60  2c 30 2c 30 2c 30 29 0d  0f 50 39 f2 63 65 6e 74  |,0,0,0)..P9.cent|
00001e70  72 65 28 31 30 30 2c 22  50 72 65 73 73 20 61 20  |re(100,"Press a |
00001e80  6d 6f 75 73 65 20 62 75  74 74 6f 6e 20 74 6f 20  |mouse button to |
00001e90  63 6f 6e 74 69 6e 75 65  22 2c 54 65 78 74 25 29  |continue",Text%)|
00001ea0  0d 0f 5a 05 f5 0d 0f 64  0c c8 97 20 58 2c 59 2c  |..Z....d... X,Y,|
00001eb0  5a 0d 0f 6e 0a fd 20 5a  3c 3e 30 0d 0f 78 10 f2  |Z..n.. Z<>0..x..|
00001ec0  63 6c 65 61 72 5f 6d 6f  75 73 65 0d 0f 82 05 e1  |clear_mouse.....|
00001ed0  0d 0f 8c 05 3a 0d 0f 96  09 dc 20 36 2c 35 0d 0f  |....:..... 6,5..|
00001ee0  a0 11 dc 20 49 6e 66 6f  72 6d 61 74 69 6f 6e 0d  |... Information.|
00001ef0  0f aa 40 dc 20 53 74 61  72 74 20 61 20 4e 65 77  |..@. Start a New|
00001f00  20 2f 20 45 64 69 74 20  43 75 72 72 65 6e 74 20  | / Edit Current |
00001f10  42 61 72 63 6f 64 65 2c  44 69 73 70 6c 61 79 20  |Barcode,Display |
00001f20  43 75 72 72 65 6e 74 20  42 61 72 63 6f 64 65 0d  |Current Barcode.|
00001f30  0f b4 17 dc 20 53 61 76  65 20 4f 70 74 69 6f 6e  |.... Save Option|
00001f40  73 2c 51 75 69 74 0d 0f  be 07 dc 20 34 0d 0f c8  |s,Quit..... 4...|
00001f50  50 dc 20 53 65 74 20 41  72 74 69 63 6c 65 20 4e  |P. Set Article N|
00001f60  75 6d 62 65 72 2c 53 65  74 20 41 20 61 6e 64 20  |umber,Set A and |
00001f70  42 20 53 65 74 73 2c 56  69 65 77 20 43 75 72 72  |B Sets,View Curr|
00001f80  65 6e 74 20 42 61 72 63  6f 64 65 2c 42 61 63 6b  |ent Barcode,Back|
00001f90  20 74 6f 20 4d 61 69 6e  20 4d 65 6e 75 0d 0f d2  | to Main Menu...|
00001fa0  07 dc 20 33 0d 0f dc 34  dc 20 45 41 4e 20 46 6f  |.. 3...4. EAN Fo|
00001fb0  72 6d 61 74 2c 49 54 46  20 46 6f 72 6d 61 74 2c  |rmat,ITF Format,|
00001fc0  42 61 63 6b 20 74 6f 20  4e 65 77 20 42 61 72 63  |Back to New Barc|
00001fd0  6f 64 65 20 4d 65 6e 75  0d 0f e6 07 dc 20 37 0d  |ode Menu..... 7.|
00001fe0  0f f0 67 dc 20 30 29 20  2e 2e 20 41 41 41 41 41  |..g. 0) .. AAAAA|
00001ff0  41 2c 31 29 20 2e 2e 20  41 41 42 41 42 42 2c 32  |A,1) .. AABABB,2|
00002000  29 20 2e 2e 20 41 41 42  42 41 42 2c 33 29 20 2e  |) .. AABBAB,3) .|
00002010  2e 20 41 41 42 42 42 41  2c 34 29 20 2e 2e 20 41  |. AABBBA,4) .. A|
00002020  42 41 41 42 42 2c 4d 6f  72 65 20 2d 3e 2c 42 61  |BAABB,More ->,Ba|
00002030  63 6b 20 74 6f 20 4e 65  77 20 42 61 72 63 6f 64  |ck to New Barcod|
00002040  65 20 4d 65 6e 75 0d 0f  fa 07 dc 20 37 0d 10 04  |e Menu..... 7...|
00002050  6a dc 20 35 29 20 2e 2e  20 41 42 42 41 41 42 2c  |j. 5) .. ABBAAB,|
00002060  36 29 20 2e 2e 20 41 42  42 42 41 41 2c 37 29 20  |6) .. ABBBAA,7) |
00002070  2e 2e 20 41 42 41 42 41  42 2c 38 29 20 2e 2e 20  |.. ABABAB,8) .. |
00002080  41 42 41 42 42 41 2c 39  29 20 2e 2e 20 41 42 42  |ABABBA,9) .. ABB|
00002090  41 42 41 2c 3c 2d 20 42  61 63 6b 20 75 70 2c 42  |ABA,<- Back up,B|
000020a0  61 63 6b 20 74 6f 20 4e  65 77 20 42 61 72 63 6f  |ack to New Barco|
000020b0  64 65 20 4d 65 6e 75 0d  10 0e 07 dc 20 34 0d 10  |de Menu..... 4..|
000020c0  18 52 dc 20 53 61 76 65  20 61 73 20 42 61 72 43  |.R. Save as BarC|
000020d0  6f 64 65 20 66 6f 72 6d  61 74 2c 53 61 76 65 20  |ode format,Save |
000020e0  61 73 20 44 72 61 77 66  69 6c 65 2c 53 61 76 65  |as Drawfile,Save|
000020f0  20 61 73 20 53 63 72 65  65 6e 73 68 6f 74 2c 42  | as Screenshot,B|
00002100  61 63 6b 20 74 6f 20 4d  61 69 6e 20 4d 65 6e 75  |ack to Main Menu|
00002110  0d 10 22 28 dc 20 41 41  41 41 41 41 2c 41 41 42  |.."(. AAAAAA,AAB|
00002120  41 42 42 2c 41 41 42 42  41 42 2c 41 41 42 42 42  |ABB,AABBAB,AABBB|
00002130  41 2c 41 42 41 41 42 42  0d 10 2c 28 dc 20 41 42  |A,ABAABB..,(. AB|
00002140  42 41 41 42 2c 41 42 42  42 41 41 2c 41 42 41 42  |BAAB,ABBBAA,ABAB|
00002150  41 42 2c 41 42 41 42 42  41 2c 41 42 42 41 42 41  |AB,ABABBA,ABBABA|
00002160  0d 10 36 1d dc 20 4c 4c  4c 44 44 4c 44 2c 4c 44  |..6.. LLLDDLD,LD|
00002170  4c 4c 44 44 44 2c 44 44  44 4c 4c 44 4c 0d 10 40  |LLDDD,DDDLLDL..@|
00002180  1d dc 20 4c 4c 44 44 4c  4c 44 2c 4c 44 44 4c 4c  |.. LLDDLLD,LDDLL|
00002190  44 44 2c 44 44 4c 4c 44  44 4c 0d 10 4a 1d dc 20  |DD,DDLLDDL..J.. |
000021a0  4c 4c 44 4c 4c 44 44 2c  4c 4c 44 44 4c 44 44 2c  |LLDLLDD,LLDDLDD,|
000021b0  44 44 4c 44 44 4c 4c 0d  10 54 1d dc 20 4c 44 44  |DDLDDLL..T.. LDD|
000021c0  44 44 4c 44 2c 4c 44 4c  4c 4c 4c 44 2c 44 4c 4c  |DDLD,LDLLLLD,DLL|
000021d0  4c 4c 44 4c 0d 10 5e 1d  dc 20 4c 44 4c 4c 4c 44  |LLDL..^.. LDLLLD|
000021e0  44 2c 4c 4c 44 44 44 4c  44 2c 44 4c 44 44 44 4c  |D,LLDDDLD,DLDDDL|
000021f0  4c 0d 10 68 1d dc 20 4c  44 44 4c 4c 4c 44 2c 4c  |L..h.. LDDLLLD,L|
00002200  44 44 44 4c 4c 44 2c 44  4c 4c 44 44 44 4c 0d 10  |DDDLLD,DLLDDDL..|
00002210  72 1d dc 20 4c 44 4c 44  44 44 44 2c 4c 4c 4c 4c  |r.. LDLDDDD,LLLL|
00002220  44 4c 44 2c 44 4c 44 4c  4c 4c 4c 0d 10 7c 1d dc  |DLD,DLDLLLL..|..|
00002230  20 4c 44 44 44 4c 44 44  2c 4c 4c 44 4c 4c 4c 44  | LDDDLDD,LLDLLLD|
00002240  2c 44 4c 4c 4c 44 4c 4c  0d 10 86 1d dc 20 4c 44  |,DLLLDLL..... LD|
00002250  44 4c 44 44 44 2c 4c 4c  4c 44 4c 4c 44 2c 44 4c  |DLDDD,LLLDLLD,DL|
00002260  4c 44 4c 4c 4c 0d 10 90  1d dc 20 4c 4c 4c 44 4c  |LDLLL..... LLLDL|
00002270  44 44 2c 4c 4c 44 4c 44  44 44 2c 44 44 44 4c 44  |DD,LLDLDDD,DDDLD|
00002280  4c 4c 0d ff                                       |LL..|
00002284