Routine: CIAUBCDA

Entry Points

Name	Comments	DBIA/ICR reference
BC(TXT,ORN,HGT,HOR,VER,WID,SSC)	;
1	;;1;1111331
0	;;0;1111133
3	;;3;3311111
2	;;2;1113113
5	;;5;3111131
4	;;4;1131131
7	;;7;1311311
6	;;6;1311113
9	;;9;3113111
8	;;8;1331111
CHK(X)	;CALCULATE CHECK DIGIT AND RETURN STRING TO PRINT
11	;;$;1133111
10	;;-;1113311
13	;;/;3131113
12	;;:;3111313
15	;;+;1131313
14	;;.;3131311
17	;;BbNn;1313113
16	;;AaTt;1133131
19	;;DdEe;1113331
18	;;Cc*;1113133

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