RIGAL/rigdos/USINTER.PAS

Procedure USEPas
  ( N : integer;{ Number of option }
    VAR PL:PTR; { Pointer to argument list }
    VAR rez:A );{ Result }
 var pp1,pp2,pp3:a;
 begin
 defpage.cur_rule_aa:=n+200;
  tracing_proc('I');


 pp1:=pl.cel; Next(pl);
 pp2:=pl.cel; Next(pl);
  case N of
{    N:   USE_x(pp1,pp2,pl.cel,rez) }
1:USE_1(pp1,pp2,pl.cel,rez);
2:USE_2(pp1,pp2,pl.cel,rez);
3:USE_3(pp1,pp2,pl.cel,rez);
4:USE_4(pp1,pp2,pl.cel,rez);
5:USE_5(pp1,pp2,pl.cel,rez);
6:USE_6(pp1,pp2,pl.cel,rez);
7:USE_7(pp1,pp2,pl.cel,rez);
8:USE_8(pp1,pp2,pl.cel,rez);
9:USE_9(pp1,pp2,pl.cel,rez);
10:USE_10(pp1,pp2,pl.cel,rez);
11:USE_11(pp1,pp2,pl.cel,rez);
12:USE_12(pp1,pp2,pl.cel,rez);
13:USE_13(pp1,pp2,pl.cel,rez);
14:USE_14(pp1,pp2,pl.cel,rez);
15:USE_15(pp1,pp2,pl.cel,rez);
16:USE_16(pp1,pp2,pl.cel,rez);
17:USE_17(pp1,pp2,pl.cel,rez);
18:USE_18(pp1,pp2,pl.cel,rez);
19:USE_19(pp1,pp2,pl.cel,rez);
20:USE_20(pp1,pp2,pl.cel,rez);
21:USE_21(pp1,pp2,pl.cel,rez);
22:USE_22(pp1,pp2,pl.cel,rez);
23:USE_23(pp1,pp2,pl.cel,rez);
24:USE_24(pp1,pp2,pl.cel,rez);
25:USE_25(pp1,pp2,pl.cel,rez);
26:USE_26(pp1,pp2,pl.cel,rez);
27:USE_27(pp1,pp2,pl.cel,rez);
28:USE_28(pp1,pp2,pl.cel,rez);
29:USE_29(pp1,pp2,pl.cel,rez);
30:USE_30(pp1,pp2,pl.cel,rez);
31:USE_31(pp1,pp2,pl.cel,rez);
32:USE_32(pp1,pp2,pl.cel,rez);
33:USE_33(pp1,pp2,pl.cel,rez);
34:USE_34(pp1,pp2,pl.cel,rez);
35:USE_35(pp1,pp2,pl.cel,rez);
36:USE_36(pp1,pp2,pl.cel,rez);
37:USE_37(pp1,pp2,pl.cel,rez);
38:USE_38(pp1,pp2,pl.cel,rez);
39:USE_39(pp1,pp2,pl.cel,rez);
40:USE_40(pp1,pp2,pl.cel,rez);
41:USE_41(pp1,pp2,pl.cel,rez);
42:USE_42(pp1,pp2,pl.cel,rez);
43:USE_43(pp1,pp2,pl.cel,rez);
44:USE_44(pp1,pp2,pl.cel,rez);

{ 45 & 46 are passed}

47:USE_47(pp1,pp2,pl.cel,rez);
48:USE_48(pp1,pp2,pl.cel,rez);
49:USE_49(pp1,pp2,pl.cel,rez);
50:USE_50(pp1,pp2,pl.cel,rez);
51:USE_51(pp1,pp2,pl.cel,rez);
52:USE_52(pp1,pp2,pl.cel,rez);
53:USE_53(pp1,pp2,pl.cel,rez);
54:USE_54(pp1,pp2,pl.cel,rez);
55:USE_55(pp1,pp2,pl.cel,rez);
56:USE_56(pp1,pp2,pl.cel,rez);
57:USE_57(pp1,pp2,pl.cel,rez);
58:USE_58(pp1,pp2,pl.cel,rez);
59:USE_59(pp1,pp2,pl.cel,rez);
60:USE_60(pp1,pp2,pl.cel,rez);
61:USE_61(pp1,pp2,pl.cel,rez);
62:USE_62(pp1,pp2,pl.cel,rez);
63:USE_63(pp1,pp2,pl.cel,rez);
64:USE_64(pp1,pp2,pl.cel,rez);
65:USE_65(pp1,pp2,pl.cel,rez);
66:USE_66(pp1,pp2,pl.cel,rez);
67:USE_67(pp1,pp2,pl.cel,rez);
68:USE_68(pp1,pp2,pl.cel,rez);
69:USE_69(pp1,pp2,pl.cel,rez);
70:USE_70(pp1,pp2,pl.cel,rez);
71:USE_71(pp1,pp2,pl.cel,rez);
72:USE_72(pp1,pp2,pl.cel,rez);
73:USE_73(pp1,pp2,pl.cel,rez);
74:USE_74(pp1,pp2,pl.cel,rez);
75:USE_75(pp1,pp2,pl.cel,rez);
76:USE_76(pp1,pp2,pl.cel,rez);
77:USE_77(pp1,pp2,pl.cel,rez);
78:USE_78(pp1,pp2,pl.cel,rez);
79:USE_79(pp1,pp2,pl.cel,rez);
80:USE_80(pp1,pp2,pl.cel,rez);
81:USE_81(pp1,pp2,pl.cel,rez);
82:USE_82(pp1,pp2,pl.cel,rez);
83:USE_83(pp1,pp2,pl.cel,rez);
84:USE_84(pp1,pp2,pl.cel,rez);
85:USE_85(pp1,pp2,pl.cel,rez);
86:USE_86(pp1,pp2,pl.cel,rez);
87:USE_87(pp1,pp2,pl.cel,rez);
88:USE_88(pp1,pp2,pl.cel,rez);
89:USE_89(pp1,pp2,pl.cel,rez);
90:USE_90(pp1,pp2,pl.cel,rez);
91:USE_91(pp1,pp2,pl.cel,rez);
92:USE_92(pp1,pp2,pl.cel,rez);
93:USE_93(pp1,pp2,pl.cel,rez);
94:USE_94(pp1,pp2,pl.cel,rez);
95:USE_95(pp1,pp2,pl.cel,rez);
96:USE_96(pp1,pp2,pl.cel,rez);
97:USE_97(pp1,pp2,pl.cel,rez);
98:USE_98(pp1,pp2,pl.cel,rez);
99:USE_99(pp1,pp2,pl.cel,rez);
100:USE_100(pp1,pp2,pl.cel,rez);
101:USE_101(pp1,pp2,pl.cel,rez);
102:USE_102(pp1,pp2,pl.cel,rez);
103:USE_103(pp1,pp2,pl.cel,rez);
104:USE_104(pp1,pp2,pl.cel,rez);
105:USE_105(pp1,pp2,pl.cel,rez);
106:USE_106(pp1,pp2,pl.cel,rez);
107:USE_107(pp1,pp2,pl.cel,rez);
108:USE_108(pp1,pp2,pl.cel,rez);
109:USE_109(pp1,pp2,pl.cel,rez);
110:USE_110(pp1,pp2,pl.cel,rez);
111:USE_111(pp1,pp2,pl.cel,rez);
112:USE_112(pp1,pp2,pl.cel,rez);
113:USE_113(pp1,pp2,pl.cel,rez);
114:USE_114(pp1,pp2,pl.cel,rez);
115:USE_115(pp1,pp2,pl.cel,rez);
116:USE_116(pp1,pp2,pl.cel,rez);
117:USE_117(pp1,pp2,pl.cel,rez);
118:USE_118(pp1,pp2,pl.cel,rez);
119:USE_119(pp1,pp2,pl.cel,rez);
120:USE_120(pp1,pp2,pl.cel,rez);
121:USE_121(pp1,pp2,pl.cel,rez);
122:USE_122(pp1,pp2,pl.cel,rez);
123:USE_123(pp1,pp2,pl.cel,rez);
124:USE_124(pp1,pp2,pl.cel,rez);
125:USE_125(pp1,pp2,pl.cel,rez);
126:USE_126(pp1,pp2,pl.cel,rez);
127:USE_127(pp1,pp2,pl.cel,rez);
128:USE_128(pp1,pp2,pl.cel,rez);
129:USE_129(pp1,pp2,pl.cel,rez);
130:USE_130(pp1,pp2,pl.cel,rez);
131:USE_131(pp1,pp2,pl.cel,rez);
132:USE_132(pp1,pp2,pl.cel,rez);
133:USE_133(pp1,pp2,pl.cel,rez);
134:USE_134(pp1,pp2,pl.cel,rez);
135:USE_135(pp1,pp2,pl.cel,rez);
136:USE_136(pp1,pp2,pl.cel,rez);
137:USE_137(pp1,pp2,pl.cel,rez);
138:USE_138(pp1,pp2,pl.cel,rez);
139:USE_139(pp1,pp2,pl.cel,rez);
140:USE_140(pp1,pp2,pl.cel,rez);
141:USE_141(pp1,pp2,pl.cel,rez);
142:USE_142(pp1,pp2,pl.cel,rez);
143:USE_143(pp1,pp2,pl.cel,rez);
144:USE_144(pp1,pp2,pl.cel,rez);
145:USE_145(pp1,pp2,pl.cel,rez);
146:USE_146(pp1,pp2,pl.cel,rez);
147:USE_147(pp1,pp2,pl.cel,rez);
148:USE_148(pp1,pp2,pl.cel,rez);
149:USE_149(pp1,pp2,pl.cel,rez);
150:USE_150(pp1,pp2,pl.cel,rez);
 else rez:=pp1;
 end;
 defpage.cur_rule_aa:=n+200;
  tracing_proc('O');
end;