� 15
�
�
(ș "Hourglass_On"
2*� � ș "Hourglass_Smash":�:� " : ";�:�
<� Menus$(10,10)
F� MenItems(10)
P�
ZANumber$="012345678900"
d	Ln=12
n	Fmt=0
xAandB=0
�� Sets$(10)
�
� X=0 � 9
�� Sets$(X)
��
�� Numbers$(10,3)
�
� X=0 � 9
�
� Y=1 � 3
�� Numbers$(X,Y)
��
��
�
Sopt=0
�	�load
�#file%=�("<BarCode$Dir>.SpName")

save$=""

�

TEMP=�#file%

"save$+=�(TEMP)

,
� �#file%

6�#file%

@ș "Hourglass_Smash"

J	�draw

T� ("ScreenSave "+save$)

^*DESKTOP

h�

r:

|� �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%

��

�:
� �set_fcol(r,g,b,r2,g2,b2)
� set_fcol%
r=r*(1/255)
&g=g*(1/255)
0b=b*(1/255)
:r2=r2*(1/255)
Dg2=g2*(1/255)
Nb2=b2*(1/255)
XIș "OS_SWINumberFromString",,"ColourTrans_SetFontColours" � set_fcol%
bjș set_fcol%,0,((r2*&FF)<<8)+((g2*&FF)<<16)+((b2*&FF)<<24),((r*&FF)<<8)+((g*&FF)<<16)+((b*&FF)<<24),14
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%
�
:
 � �draw
*� X,BCode$,Y,Z,Add,F$
48ș "Font_CacheAddr" � version%,cacheused%,cachesize%
>>ș "Font_FindFont",,"Trinity.Bold",24*16,24*16,0,0 � Text%
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
fBCode$="DLD"
p� X=1 � Ln/2
zAdd=�(�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"
�� 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
.�
8� 63 Ȝ 255
Bȓ Ȑ 272+24,172,42*8,100
L%ȓ Ȑ 272+24+42*8+35,172,42*8,100
V �set_fcol(0,0,0,255,255,255)
`#�where(212,172,�(AandB),Text3%)
j*�where(272+44,172,�ANumber$,6),Text3%)
t2�where(272+32+42*8+35,172,�ANumber$,6),Text3%)
~Ȏ Fmt �
�� 0:F$="EAN"
�� 1:F$="ITF"
��
�&�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%)
�ș "Font_LoseFont",Text%
�ș "Font_LoseFont",Text3%
��
�:
�(� AAAAAA,AABABB,AABBAB,AABBBA,ABAABB
(� ABBAAB,ABBBAA,ABABAB,ABABBA,ABBABA

� LLLDDLD,LDLLDDD,DDDLLDL
� LLDDLLD,LDDLLDD,DDLLDDL
� LLDLLDD,LLDDLDD,DDLDDLL
(� LDDDDLD,LDLLLLD,DLLLLDL
2� LDLLLDD,LLDDDLD,DLDDDLL
<� LDDLLLD,LDDDLLD,DLLDDDL
F� LDLDDDD,LLLLDLD,DLDLLLL
P� LDDDLDD,LLDLLLD,DLLLDLL
Z� LDDLDDD,LLLDLLD,DLLDLLL
d� LLLDLDD,LLDLDDD,DDDLDLL
n
�

00000000  0d 00 0a 08 eb 20 31 35  0d 00 14 05 db 0d 00 1e  |..... 15........|
00000010  05 87 0d 00 28 15 c8 99  20 22 48 6f 75 72 67 6c  |....(... "Hourgl|
00000020  61 73 73 5f 4f 6e 22 0d  00 32 2a ee 20 85 20 c8  |ass_On"..2*. . .|
00000030  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 53 6d 61  |. "Hourglass_Sma|
00000040  73 68 22 3a f6 3a f1 20  22 20 3a 20 22 3b 9e 3a  |sh":.:. " : ";.:|
00000050  e0 0d 00 3c 13 de 20 4d  65 6e 75 73 24 28 31 30  |...<.. Menus$(10|
00000060  2c 31 30 29 0d 00 46 12  de 20 4d 65 6e 49 74 65  |,10)..F.. MenIte|
00000070  6d 73 28 31 30 29 0d 00  50 05 f7 0d 00 5a 1b 41  |ms(10)..P....Z.A|
00000080  4e 75 6d 62 65 72 24 3d  22 30 31 32 33 34 35 36  |Number$="0123456|
00000090  37 38 39 30 30 22 0d 00  64 09 4c 6e 3d 31 32 0d  |78900"..d.Ln=12.|
000000a0  00 6e 09 46 6d 74 3d 30  0d 00 78 0b 41 61 6e 64  |.n.Fmt=0..x.Aand|
000000b0  42 3d 30 0d 00 82 0f de  20 53 65 74 73 24 28 31  |B=0..... Sets$(1|
000000c0  30 29 0d 00 8c 0d e3 20  58 3d 30 20 b8 20 39 0d  |0)..... X=0 . 9.|
000000d0  00 96 0e f3 20 53 65 74  73 24 28 58 29 0d 00 a0  |.... Sets$(X)...|
000000e0  05 ed 0d 00 aa 14 de 20  4e 75 6d 62 65 72 73 24  |....... Numbers$|
000000f0  28 31 30 2c 33 29 0d 00  b4 0d e3 20 58 3d 30 20  |(10,3)..... X=0 |
00000100  b8 20 39 0d 00 be 0d e3  20 59 3d 31 20 b8 20 33  |. 9..... Y=1 . 3|
00000110  0d 00 c8 13 f3 20 4e 75  6d 62 65 72 73 24 28 58  |..... Numbers$(X|
00000120  2c 59 29 0d 00 d2 05 ed  0d 00 dc 05 ed 0d 00 e6  |,Y).............|
00000130  0a 53 6f 70 74 3d 30 0d  00 f0 09 f2 6c 6f 61 64  |.Sopt=0.....load|
00000140  0d 00 fa 23 66 69 6c 65  25 3d 8e 28 22 3c 42 61  |...#file%=.("<Ba|
00000150  72 43 6f 64 65 24 44 69  72 3e 2e 53 70 4e 61 6d  |rCode$Dir>.SpNam|
00000160  65 22 29 0d 01 04 0c 73  61 76 65 24 3d 22 22 0d  |e")....save$="".|
00000170  01 0e 05 f5 0d 01 18 10  54 45 4d 50 3d 9a 23 66  |........TEMP=.#f|
00000180  69 6c 65 25 0d 01 22 12  73 61 76 65 24 2b 3d bd  |ile%..".save$+=.|
00000190  28 54 45 4d 50 29 0d 01  2c 0d fd 20 c5 23 66 69  |(TEMP)..,.. .#fi|
000001a0  6c 65 25 0d 01 36 0b d9  23 66 69 6c 65 25 0d 01  |le%..6..#file%..|
000001b0  40 18 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |@... "Hourglass_|
000001c0  53 6d 61 73 68 22 0d 01  4a 09 f2 64 72 61 77 0d  |Smash"..J..draw.|
000001d0  01 54 1b ff 20 28 22 53  63 72 65 65 6e 53 61 76  |.T.. ("ScreenSav|
000001e0  65 20 22 2b 73 61 76 65  24 29 0d 01 5e 0c 2a 44  |e "+save$)..^.*D|
000001f0  45 53 4b 54 4f 50 0d 01  68 05 e0 0d 01 72 05 3a  |ESKTOP..h....r.:|
00000200  0d 01 7c 1a dd 20 f2 63  65 6e 74 72 65 28 79 25  |..|.. .centre(y%|
00000210  2c 74 24 2c 68 61 6e 64  25 29 0d 01 86 0d ea 20  |,t$,hand%)..... |
00000220  78 31 25 2c 79 31 25 0d  01 90 1c 20 c8 99 20 22  |x1%,y1%.... .. "|
00000230  46 6f 6e 74 5f 53 65 74  46 6f 6e 74 22 2c 68 61  |Font_SetFont",ha|
00000240  6e 64 25 0d 01 9a 2a 20  c8 99 20 22 46 6f 6e 74  |nd%...* .. "Font|
00000250  5f 53 74 72 69 6e 67 42  42 6f 78 22 2c 2c 74 24  |_StringBBox",,t$|
00000260  20 b8 20 2c 2c 2c 78 31  25 2c 79 31 25 0d 01 a4  | . ,,,x1%,y1%...|
00000270  16 20 78 31 25 3d 78 31  25 2a 31 38 30 2f 37 32  |. x1%=x1%*180/72|
00000280  30 30 30 0d 01 ae 16 20  79 31 25 3d 79 31 25 2a  |000.... y1%=y1%*|
00000290  31 38 30 2f 37 32 30 30  30 0d 01 b8 2e 20 c8 99  |180/72000.... ..|
000002a0  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 74  | "Font_Paint",,t|
000002b0  24 2c 31 36 2c 36 34 30  2d 78 31 25 2f 32 2c 79  |$,16,640-x1%/2,y|
000002c0  25 2d 79 31 25 2f 32 0d  01 c2 05 e1 0d 01 cc 05  |%-y1%/2.........|
000002d0  3a 0d 01 d6 1c dd 20 f2  77 68 65 72 65 28 78 25  |:..... .where(x%|
000002e0  2c 79 25 2c 74 24 2c 68  61 6e 64 25 29 0d 01 e0  |,y%,t$,hand%)...|
000002f0  1c 20 c8 99 20 22 46 6f  6e 74 5f 53 65 74 46 6f  |. .. "Font_SetFo|
00000300  6e 74 22 2c 68 61 6e 64  25 0d 01 ea 21 20 c8 99  |nt",hand%...! ..|
00000310  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 74  | "Font_Paint",,t|
00000320  24 2c 31 36 2c 78 25 2c  79 25 0d 01 f4 05 e1 0d  |$,16,x%,y%......|
00000330  01 fe 05 3a 0d 02 08 1f  dd 20 f2 73 65 74 5f 66  |...:..... .set_f|
00000340  63 6f 6c 28 72 2c 67 2c  62 2c 72 32 2c 67 32 2c  |col(r,g,b,r2,g2,|
00000350  62 32 29 0d 02 12 0f ea  20 73 65 74 5f 66 63 6f  |b2)..... set_fco|
00000360  6c 25 0d 02 1c 0f 72 3d  72 2a 28 31 2f 32 35 35  |l%....r=r*(1/255|
00000370  29 0d 02 26 0f 67 3d 67  2a 28 31 2f 32 35 35 29  |)..&.g=g*(1/255)|
00000380  0d 02 30 0f 62 3d 62 2a  28 31 2f 32 35 35 29 0d  |..0.b=b*(1/255).|
00000390  02 3a 11 72 32 3d 72 32  2a 28 31 2f 32 35 35 29  |.:.r2=r2*(1/255)|
000003a0  0d 02 44 11 67 32 3d 67  32 2a 28 31 2f 32 35 35  |..D.g2=g2*(1/255|
000003b0  29 0d 02 4e 11 62 32 3d  62 32 2a 28 31 2f 32 35  |)..N.b2=b2*(1/25|
000003c0  35 29 0d 02 58 49 c8 99  20 22 4f 53 5f 53 57 49  |5)..XI.. "OS_SWI|
000003d0  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
000003e0  22 2c 2c 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |",,"ColourTrans_|
000003f0  53 65 74 46 6f 6e 74 43  6f 6c 6f 75 72 73 22 20  |SetFontColours" |
00000400  b8 20 73 65 74 5f 66 63  6f 6c 25 0d 02 62 6a c8  |. set_fcol%..bj.|
00000410  99 20 73 65 74 5f 66 63  6f 6c 25 2c 30 2c 28 28  |. set_fcol%,0,((|
00000420  72 32 2a 26 46 46 29 3c  3c 38 29 2b 28 28 67 32  |r2*&FF)<<8)+((g2|
00000430  2a 26 46 46 29 3c 3c 31  36 29 2b 28 28 62 32 2a  |*&FF)<<16)+((b2*|
00000440  26 46 46 29 3c 3c 32 34  29 2c 28 28 72 2a 26 46  |&FF)<<24),((r*&F|
00000450  46 29 3c 3c 38 29 2b 28  28 67 2a 26 46 46 29 3c  |F)<<8)+((g*&FF)<|
00000460  3c 31 36 29 2b 28 28 62  2a 26 46 46 29 3c 3c 32  |<16)+((b*&FF)<<2|
00000470  34 29 2c 31 34 0d 02 6c  05 e1 0d 02 76 05 3a 0d  |4),14..l....v.:.|
00000480  02 80 0b dd 20 f2 6c 6f  61 64 0d 02 8a 22 66 69  |.... .load..."fi|
00000490  6c 65 25 3d 8e 28 22 3c  42 61 72 43 6f 64 65 24  |le%=.("<BarCode$|
000004a0  44 69 72 3e 2e 53 6f 70  74 73 22 29 0d 02 94 10  |Dir>.Sopts")....|
000004b0  53 6f 70 74 3d 9a 23 66  69 6c 65 25 0d 02 9e 0b  |Sopt=.#file%....|
000004c0  d9 23 66 69 6c 65 25 0d  02 a8 0f 41 4e 75 6d 62  |.#file%....ANumb|
000004d0  65 72 24 3d 22 22 0d 02  b2 21 66 69 6c 65 25 3d  |er$=""...!file%=|
000004e0  8e 28 22 3c 42 61 72 43  6f 64 65 24 44 69 72 3e  |.("<BarCode$Dir>|
000004f0  2e 54 65 6d 70 22 29 0d  02 bc 10 e3 20 53 63 6e  |.Temp")..... Scn|
00000500  3d 31 20 b8 20 31 32 0d  02 c6 10 54 45 4d 50 3d  |=1 . 12....TEMP=|
00000510  9a 23 66 69 6c 65 25 0d  02 d0 15 41 4e 75 6d 62  |.#file%....ANumb|
00000520  65 72 24 2b 3d bd 28 54  45 4d 50 29 0d 02 da 05  |er$+=.(TEMP)....|
00000530  ed 0d 02 e4 11 44 55 4d  4d 59 3d 9a 23 66 69 6c  |.....DUMMY=.#fil|
00000540  65 25 0d 02 ee 11 41 61  6e 64 42 3d 9a 23 66 69  |e%....AandB=.#fi|
00000550  6c 65 25 0d 02 f8 0f 46  6d 74 3d 9a 23 66 69 6c  |le%....Fmt=.#fil|
00000560  65 25 0d 03 02 0c d9 20  23 66 69 6c 65 25 0d 03  |e%..... #file%..|
00000570  0c 05 e1 0d 03 16 05 3a  0d 03 20 0b dd 20 f2 64  |.......:.. .. .d|
00000580  72 61 77 0d 03 2a 19 ea  20 58 2c 42 43 6f 64 65  |raw..*.. X,BCode|
00000590  24 2c 59 2c 5a 2c 41 64  64 2c 46 24 0d 03 34 38  |$,Y,Z,Add,F$..48|
000005a0  c8 99 20 22 46 6f 6e 74  5f 43 61 63 68 65 41 64  |.. "Font_CacheAd|
000005b0  64 72 22 20 b8 20 76 65  72 73 69 6f 6e 25 2c 63  |dr" . version%,c|
000005c0  61 63 68 65 75 73 65 64  25 2c 63 61 63 68 65 73  |acheused%,caches|
000005d0  69 7a 65 25 0d 03 3e 3e  c8 99 20 22 46 6f 6e 74  |ize%..>>.. "Font|
000005e0  5f 46 69 6e 64 46 6f 6e  74 22 2c 2c 22 54 72 69  |_FindFont",,"Tri|
000005f0  6e 69 74 79 2e 42 6f 6c  64 22 2c 32 34 2a 31 36  |nity.Bold",24*16|
00000600  2c 32 34 2a 31 36 2c 30  2c 30 20 b8 20 54 65 78  |,24*16,0,0 . Tex|
00000610  74 25 0d 03 48 3f c8 99  20 22 46 6f 6e 74 5f 46  |t%..H?.. "Font_F|
00000620  69 6e 64 46 6f 6e 74 22  2c 2c 22 53 79 73 74 65  |indFont",,"Syste|
00000630  6d 2e 46 69 78 65 64 22  2c 34 30 2a 31 36 2c 34  |m.Fixed",40*16,4|
00000640  30 2a 31 36 2c 30 2c 30  20 b8 20 54 65 78 74 33  |0*16,0,0 . Text3|
00000650  25 0d 03 52 33 c8 99 20  22 46 6f 6e 74 5f 53 65  |%..R3.. "Font_Se|
00000660  74 50 61 6c 65 74 74 65  22 2c 2c 31 2c 32 2c 33  |tPalette",,1,2,3|
00000670  2c 26 38 38 38 38 38 38  30 30 2c 26 46 46 46 46  |,&88888800,&FFFF|
00000680  46 46 30 30 0d 03 5c 24  c8 99 20 22 46 6f 6e 74  |FF00..\$.. "Font|
00000690  5f 53 65 74 46 6f 6e 74  43 6f 6c 6f 75 72 73 22  |_SetFontColours"|
000006a0  2c 30 2c 31 2c 32 2c 33  0d 03 66 10 42 43 6f 64  |,0,1,2,3..f.BCod|
000006b0  65 24 3d 22 44 4c 44 22  0d 03 70 10 e3 20 58 3d  |e$="DLD"..p.. X=|
000006c0  31 20 b8 20 4c 6e 2f 32  0d 03 7a 19 41 64 64 3d  |1 . Ln/2..z.Add=|
000006d0  bb 28 c1 41 4e 75 6d 62  65 72 24 2c 58 2c 31 29  |.(.ANumber$,X,1)|
000006e0  29 0d 03 84 1b c8 8e 20  c1 53 65 74 73 24 28 41  |)...... .Sets$(A|
000006f0  61 6e 64 42 29 2c 58 2c  31 29 20 ca 0d 03 8e 21  |andB),X,1) ....!|
00000700  c9 20 22 41 22 3a 42 43  6f 64 65 24 2b 3d 4e 75  |. "A":BCode$+=Nu|
00000710  6d 62 65 72 73 24 28 41  64 64 2c 31 29 0d 03 98  |mbers$(Add,1)...|
00000720  21 c9 20 22 42 22 3a 42  43 6f 64 65 24 2b 3d 4e  |!. "B":BCode$+=N|
00000730  75 6d 62 65 72 73 24 28  41 64 64 2c 32 29 0d 03  |umbers$(Add,2)..|
00000740  a2 05 cb 0d 03 ac 05 ed  0d 03 b6 13 42 43 6f 64  |............BCod|
00000750  65 24 2b 3d 22 4c 44 4c  44 4c 22 0d 03 c0 13 e3  |e$+="LDLDL".....|
00000760  20 58 3d 4c 6e 2f 32 2b  31 20 b8 20 4c 6e 0d 03  | X=Ln/2+1 . Ln..|
00000770  ca 19 41 64 64 3d bb 28  c1 41 4e 75 6d 62 65 72  |..Add=.(.ANumber|
00000780  24 2c 58 2c 31 29 29 0d  03 d4 1b 42 43 6f 64 65  |$,X,1))....BCode|
00000790  24 2b 3d 4e 75 6d 62 65  72 73 24 28 41 64 64 2c  |$+=Numbers$(Add,|
000007a0  33 29 0d 03 de 05 ed 0d  03 e8 11 42 43 6f 64 65  |3).........BCode|
000007b0  24 2b 3d 22 44 4c 44 22  0d 03 f2 0f e6 20 36 33  |$+="DLD"..... 63|
000007c0  20 c8 9c 20 32 35 35 0d  03 fc 24 f4 20 52 45 43  | .. 255...$. REC|
000007d0  54 41 4e 47 4c 45 20 46  49 4c 4c 20 32 30 32 2c  |TANGLE FILL 202,|
000007e0  31 36 32 2c 38 34 30 2c  35 38 38 0d 04 06 17 c8  |162,840,588.....|
000007f0  93 20 c8 90 20 30 2c 30  2c 31 32 38 30 2c 31 30  |. .. 0,0,1280,10|
00000800  33 30 0d 04 10 15 e3 20  58 3d 31 20 b8 20 a9 28  |30..... X=1 . .(|
00000810  42 43 6f 64 65 24 29 0d  04 1a 2f e7 20 c1 42 43  |BCode$).../. .BC|
00000820  6f 64 65 24 2c 58 2c 31  29 3d 22 4c 22 20 8c 20  |ode$,X,1)="L" . |
00000830  e6 20 36 33 20 c8 9c 20  32 35 35 20 8b 20 e6 20  |. 63 .. 255 . . |
00000840  30 20 c8 9c 20 30 0d 04  24 21 c8 93 20 c8 90 20  |0 .. 0..$!.. .. |
00000850  32 37 32 2b 28 28 58 2d  31 29 2a 38 29 2c 32 31  |272+((X-1)*8),21|
00000860  32 2c 38 2c 35 32 38 0d  04 2e 05 ed 0d 04 38 0f  |2,8,528.......8.|
00000870  e6 20 36 33 20 c8 9c 20  32 35 35 0d 04 42 1d c8  |. 63 .. 255..B..|
00000880  93 20 c8 90 20 32 37 32  2b 32 34 2c 31 37 32 2c  |. .. 272+24,172,|
00000890  34 32 2a 38 2c 31 30 30  0d 04 4c 25 c8 93 20 c8  |42*8,100..L%.. .|
000008a0  90 20 32 37 32 2b 32 34  2b 34 32 2a 38 2b 33 35  |. 272+24+42*8+35|
000008b0  2c 31 37 32 2c 34 32 2a  38 2c 31 30 30 0d 04 56  |,172,42*8,100..V|
000008c0  20 f2 73 65 74 5f 66 63  6f 6c 28 30 2c 30 2c 30  | .set_fcol(0,0,0|
000008d0  2c 32 35 35 2c 32 35 35  2c 32 35 35 29 0d 04 60  |,255,255,255)..`|
000008e0  23 f2 77 68 65 72 65 28  32 31 32 2c 31 37 32 2c  |#.where(212,172,|
000008f0  c3 28 41 61 6e 64 42 29  2c 54 65 78 74 33 25 29  |.(AandB),Text3%)|
00000900  0d 04 6a 2a f2 77 68 65  72 65 28 32 37 32 2b 34  |..j*.where(272+4|
00000910  34 2c 31 37 32 2c c0 41  4e 75 6d 62 65 72 24 2c  |4,172,.ANumber$,|
00000920  36 29 2c 54 65 78 74 33  25 29 0d 04 74 32 f2 77  |6),Text3%)..t2.w|
00000930  68 65 72 65 28 32 37 32  2b 33 32 2b 34 32 2a 38  |here(272+32+42*8|
00000940  2b 33 35 2c 31 37 32 2c  c2 41 4e 75 6d 62 65 72  |+35,172,.ANumber|
00000950  24 2c 36 29 2c 54 65 78  74 33 25 29 0d 04 7e 0c  |$,6),Text3%)..~.|
00000960  c8 8e 20 46 6d 74 20 ca  0d 04 88 10 c9 20 30 3a  |.. Fmt ...... 0:|
00000970  46 24 3d 22 45 41 4e 22  0d 04 92 10 c9 20 31 3a  |F$="EAN"..... 1:|
00000980  46 24 3d 22 49 54 46 22  0d 04 9c 05 cb 0d 04 a6  |F$="ITF"........|
00000990  26 f2 73 65 74 5f 66 63  6f 6c 28 31 32 38 2c 31  |&.set_fcol(128,1|
000009a0  39 32 2c 31 32 38 2c 32  35 35 2c 32 35 35 2c 32  |92,128,255,255,2|
000009b0  35 35 29 0d 04 b0 33 f2  63 65 6e 74 72 65 28 39  |55)...3.centre(9|
000009c0  35 30 2c 22 41 72 74 69  63 6c 65 20 4e 75 6d 62  |50,"Article Numb|
000009d0  65 72 20 3a 20 22 2b 41  4e 75 6d 62 65 72 24 2c  |er : "+ANumber$,|
000009e0  54 65 78 74 25 29 0d 04  ba 47 f2 63 65 6e 74 72  |Text%)...G.centr|
000009f0  65 28 38 38 30 2c 22 53  74 79 6c 65 20 3a 20 22  |e(880,"Style : "|
00000a00  2b 53 65 74 73 24 28 41  61 6e 64 42 29 2b 22 20  |+Sets$(AandB)+" |
00000a10  43 43 43 43 43 43 20 28  22 2b c3 28 41 61 6e 64  |CCCCCC ("+.(Aand|
00000a20  42 29 2b 22 29 22 2c 54  65 78 74 25 29 0d 04 c4  |B)+")",Text%)...|
00000a30  25 f2 63 65 6e 74 72 65  28 38 31 30 2c 22 46 6f  |%.centre(810,"Fo|
00000a40  72 6d 61 74 20 3a 20 22  2b 46 24 2c 54 65 78 74  |rmat : "+F$,Text|
00000a50  25 29 0d 04 ce 1c c8 99  20 22 46 6f 6e 74 5f 4c  |%)...... "Font_L|
00000a60  6f 73 65 46 6f 6e 74 22  2c 54 65 78 74 25 0d 04  |oseFont",Text%..|
00000a70  d8 1d c8 99 20 22 46 6f  6e 74 5f 4c 6f 73 65 46  |.... "Font_LoseF|
00000a80  6f 6e 74 22 2c 54 65 78  74 33 25 0d 04 e2 05 e1  |ont",Text3%.....|
00000a90  0d 04 ec 05 3a 0d 04 f6  28 dc 20 41 41 41 41 41  |....:...(. AAAAA|
00000aa0  41 2c 41 41 42 41 42 42  2c 41 41 42 42 41 42 2c  |A,AABABB,AABBAB,|
00000ab0  41 41 42 42 42 41 2c 41  42 41 41 42 42 0d 05 00  |AABBBA,ABAABB...|
00000ac0  28 dc 20 41 42 42 41 41  42 2c 41 42 42 42 41 41  |(. ABBAAB,ABBBAA|
00000ad0  2c 41 42 41 42 41 42 2c  41 42 41 42 42 41 2c 41  |,ABABAB,ABABBA,A|
00000ae0  42 42 41 42 41 0d 05 0a  1d dc 20 4c 4c 4c 44 44  |BBABA..... LLLDD|
00000af0  4c 44 2c 4c 44 4c 4c 44  44 44 2c 44 44 44 4c 4c  |LD,LDLLDDD,DDDLL|
00000b00  44 4c 0d 05 14 1d dc 20  4c 4c 44 44 4c 4c 44 2c  |DL..... LLDDLLD,|
00000b10  4c 44 44 4c 4c 44 44 2c  44 44 4c 4c 44 44 4c 0d  |LDDLLDD,DDLLDDL.|
00000b20  05 1e 1d dc 20 4c 4c 44  4c 4c 44 44 2c 4c 4c 44  |.... LLDLLDD,LLD|
00000b30  44 4c 44 44 2c 44 44 4c  44 44 4c 4c 0d 05 28 1d  |DLDD,DDLDDLL..(.|
00000b40  dc 20 4c 44 44 44 44 4c  44 2c 4c 44 4c 4c 4c 4c  |. LDDDDLD,LDLLLL|
00000b50  44 2c 44 4c 4c 4c 4c 44  4c 0d 05 32 1d dc 20 4c  |D,DLLLLDL..2.. L|
00000b60  44 4c 4c 4c 44 44 2c 4c  4c 44 44 44 4c 44 2c 44  |DLLLDD,LLDDDLD,D|
00000b70  4c 44 44 44 4c 4c 0d 05  3c 1d dc 20 4c 44 44 4c  |LDDDLL..<.. LDDL|
00000b80  4c 4c 44 2c 4c 44 44 44  4c 4c 44 2c 44 4c 4c 44  |LLD,LDDDLLD,DLLD|
00000b90  44 44 4c 0d 05 46 1d dc  20 4c 44 4c 44 44 44 44  |DDL..F.. LDLDDDD|
00000ba0  2c 4c 4c 4c 4c 44 4c 44  2c 44 4c 44 4c 4c 4c 4c  |,LLLLDLD,DLDLLLL|
00000bb0  0d 05 50 1d dc 20 4c 44  44 44 4c 44 44 2c 4c 4c  |..P.. LDDDLDD,LL|
00000bc0  44 4c 4c 4c 44 2c 44 4c  4c 4c 44 4c 4c 0d 05 5a  |DLLLD,DLLLDLL..Z|
00000bd0  1d dc 20 4c 44 44 4c 44  44 44 2c 4c 4c 4c 44 4c  |.. LDDLDDD,LLLDL|
00000be0  4c 44 2c 44 4c 4c 44 4c  4c 4c 0d 05 64 1d dc 20  |LD,DLLDLLL..d.. |
00000bf0  4c 4c 4c 44 4c 44 44 2c  4c 4c 44 4c 44 44 44 2c  |LLLDLDD,LLDLDDD,|
00000c00  44 44 44 4c 44 4c 4c 0d  05 6e 04 0d ff           |DDDLDLL..n...|
00000c0d