Routine: CIAUBC39

Information

CIAUBC39 ;MSC/IND/PLS - Converts barcode 39 to HPCL-compatible format ;04-May-2006 08:19;DKM

Source file <CIAUBC39.m>

Name	Comments	DBIA/ICR reference
42	;;%;111313131
32	;;W;333111111
24	;;O;311131131
25	;;P;113131131
26	;;Q;111111333
27	;;R;311111331
20	;;K;311111133
21	;;L;113111133
22	;;M;313111131
23	;;N;111131133
28	;;S;113111331
29	;;T;111131331
40	;;/;131311131
41	;;+;131113131
1	;;1;311311113
0	;;0;111331311
3	;;3;313311111
2	;;2;113311113
5	;;5;311331111
4	;;4;111331113
7	;;7;111311313
6	;;6;113331111
9	;;9;113311311
8	;;8;311311311
CHK(X)	;CALCULATE CHECK DIGIT AND RETURN STRING TO PRINT
39	;;$;131313111
99	;;*;131131311
38	;; ;133111311
11	;;B;113113113
10	;;A;311113113
13	;;D;111133113
12	;;C;313113111
15	;;F;113133111
14	;;E;311133111
17	;;H;311113311
16	;;G;111113313
19	;;J;111133311
18	;;I;113113311
31	;;V;133111113
30	;;U;331111113
37	;;.;331111311
36	;;-;131111313
35	;;Z;133131111
34	;;Y;331131111
33	;;X;131131113
BC(TXT,ORN,HGT,HOR,VER,WID)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(27),"&f0S" Line Location: BC+9
Function Call: WRITE	Prompt: C_HGT_$E("BA",ORN) Line Location: BC+12
Function Call: WRITE	Prompt: C_Z3_$E("ab",ORN)_"0P" Line Location: BC+18
Function Call: WRITE	Prompt: P_(Z3+Z5)_$E("XY",ORN) Line Location: BC+19
Function Call: WRITE	Prompt: $C(27),"&f1S" Line Location: BC+22

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	BC+2

Name	Line Occurrences
$$CHK	BC+6
99	BC+14

Name	Field # of Occurrence
$T(99	BC+14
$T(@(6)	BC+14