home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / allentry.pki < prev    next >
Encoding:
Text File  |  1993-05-19  |  20.5 KB  |  863 lines
  1. #FREG |CI$4000 RETURNS INTEGER
  2. #FREG |CI$4001 RETURNS INTEGER
  3. #FREG |CI1025
  4. #FREG |CI$0173 RETURNS INTEGER
  5. #FREG |CI$0175 RETURNS INTEGER
  6. #FREG |CI1026 RETURNS INTEGER
  7. #FREG |CI1028 RETURNS INTEGER
  8. #FREG |CI1030 INTEGER |SI-2 INTEGER |SI-3
  9. #FREG |CI1031 INTEGER |SI-2 INTEGER |SI-3
  10. #FREG |CI1032 RETURNS INTEGER
  11. #FREG |CI1033 RETURNS INTEGER
  12. #FREG |CI$0077 INTEGER |SI-2 RETURNS INTEGER
  13. #FREG |CI$0117 INTEGER |SI-2 RETURNS INTEGER
  14. #FREG |CI$015F
  15. #FREG |CI1034
  16. #FREG |CI1035
  17. #FREG |CI1036 RETURNS INTEGER
  18. #FREG |CI1038 RETURNS INTEGER
  19. #FREG |CI1040 RETURNS INTEGER
  20. #FREG |CI1041 INTEGER |SI-2
  21. #FREG |CI1042 RETURNS INTEGER
  22. #FREG |CI1043
  23. #FREG |CI$004E
  24. #FREG |CI$004F
  25. #FREG |CI1044
  26. #COMMAND BIND_POP_UP
  27. #IF (!0>0)
  28. #IFSAME !1 POP_UP POPUP
  29. set PopUp_State to TRUE
  30. set focus_mode to NO_ACTIVATE
  31. #ELSE
  32. bind_pop_up !2 !3 !4 !5 !6 !7 !8 !9
  33. #ENDIF
  34. #ENDIF
  35. #ENDCOMMAND
  36. #COMMAND BIND_RING
  37. #IF (!0>0)
  38. #IFSAME !1 RING
  39. set Ring_State to TRUE
  40. #ELSE
  41. bind_ring !2 !3 !4 !5 !6 !7 !8 !9
  42. #ENDIF
  43. #ENDIF
  44. #ENDCOMMAND
  45. #FREG |CI1045 STRING |SS-2 RETURNS INTEGER
  46. #FREG |CI1046 STRING |SS-2 RETURNS INTEGER
  47. #FREG |CI1047 STRING |SS-2
  48. #FREG |CI1048 RETURNS INTEGER
  49. #FREG |CI16386 RETURNS INTEGER
  50. #FREG |CI1049 RETURNS INTEGER
  51. #FREG |CI16387 RETURNS INTEGER
  52. #FREG |CI$0173 RETURNS INTEGER
  53. #FREG |CI$01C3 RETURNS INTEGER
  54. #FREG |CI16388 RETURNS INTEGER
  55. #FREG |CI1051
  56. #FREG |CI1052 RETURNS INTEGER
  57. #FREG |CI1054 RETURNS INTEGER
  58. #FREG |CI1056 RETURNS INTEGER
  59. #FREG |CI$01A6 RETURNS INTEGER
  60. #FREG |CI1058 RETURNS INTEGER
  61. #FREG |CI$0154
  62. #FREG |CI1060
  63. #FREG |CI$0117 INTEGER |SI-2 RETURNS INTEGER
  64. #FREG |CI$0118
  65. #FREG |CI$015D RETURNS INTEGER
  66. #FREG |CI1061 RETURNS INTEGER
  67. #FREG |CI$015E RETURNS INTEGER
  68. #FREG |CI1061 RETURNS INTEGER
  69. #FREG |CI1062 INTEGER |SI-2
  70. #FREG |CI1063 INTEGER |SI-2 INTEGER |SI-3
  71. #FREG |CI1064
  72. #FREG |CI1065 INTEGER |SI-2
  73. #FREG |CI1066 INTEGER |SI-2
  74. #FREG |CI1067
  75. #FREG |CI1068 INTEGER |SI-2
  76. #FREG |CI$015F
  77. #FREG |CI$0065 INTEGER |SI-2
  78. #FREG |CI$00C0 INTEGER |SI-2 RETURNS INTEGER
  79. #COMMAND BIND_USING
  80. #IF (!0>0)
  81. #IFSAME !1 USING
  82. #IFDEF !2
  83. set Server to !2
  84. #ELSE
  85. set Server to !2.obj
  86. #ENDIF
  87. #ELSE
  88. bind_using !2 !3 !4 !5 !6 !7 !8 !9
  89. #ENDIF
  90. #ENDIF
  91. #ENDCOMMAND
  92. #FREG |CI$0173 RETURNS INTEGER
  93. #FREG |CI1069
  94. #FREG |CI1070 RETURNS INTEGER
  95. #FREG |CI1072 RETURNS INTEGER
  96. #FREG |CI1074 RETURNS INTEGER
  97. #FREG |CI1076 INTEGER |SI-2
  98. #FREG |CI1077 INTEGER |SI-2
  99. #FREG |CI1078 INTEGER |SI-2
  100. #FREG |CI1079 RETURNS INTEGER
  101. #FREG |CI1080 RETURNS INTEGER
  102. #FREG |CI1081 RETURNS INTEGER
  103. #FREG |CI1082 RETURNS INTEGER
  104. #FREG |CI1083 RETURNS INTEGER
  105. #FREG |CI1084 RETURNS INTEGER
  106. #FREG |CI1044
  107. #FREG |CI1085
  108. #FREG |CI1086 RETURNS INTEGER
  109. #FREG |CI1088 RETURNS INTEGER
  110. #FREG |CI1089 INTEGER |SI-2
  111. #FREG |CI$009D RETURNS INTEGER
  112. #FREG |CI$0076
  113. #FREG |CI$0075 RETURNS INTEGER
  114. #FREG |CI1091 INTEGER |SI-2
  115. #COMMAND BIND_ACTION_BAR
  116. #IF (!0>0)
  117. #IFSAME !1 ACTION_BAR
  118. #IFDEF !2
  119. set action_bar_id to !2
  120. #ELSE
  121. set action_bar_id to !2.OBJ
  122. #ENDIF
  123. #ELSE
  124. bind_action_bar !2 !3 !4 !5 !6 !7 !8 !9
  125. #ENDIF
  126. #ENDIF
  127. #ENDCOMMAND
  128. #FREG |CI$009C INTEGER |SI-2
  129. #FREG |CI1092 RETURNS INTEGER
  130. #FREG |CI1094
  131. #FREG |CI1095
  132. #FREG |CI$0135 INTEGER |SI-2 INTEGER |SI-3
  133. #FREG |CI$0163
  134. #FREG |CI$0156
  135. #FREG |CI$01BF
  136. #FREG |CI$0064 RETURNS INTEGER
  137. #FREG |CI$0065 INTEGER |SI-2
  138. #FREG |CI$00BF INTEGER |SI-2
  139. #FREG |CI$00C4 INTEGER |SI-2
  140. #FREG |CI$00BE INTEGER |SI-2 INTEGER |SI-3
  141. #FREG |CI$00BB INTEGER |SI-2 INTEGER |SI-3
  142. #FREG |CI$01CB
  143. #COMMAND ECSTART R
  144. #IFDEF !2
  145. #ELSE
  146. #IFDEF !2.N
  147. #ELSE
  148. #ERROR 100 IMAGE ARGUMENT MISSING IN OBJECT STATEMENT
  149. #ENDIF
  150. #ENDIF
  151. FORWARD_BEGIN_CONSTRUCT !1 !2
  152. bind_using !2 !3 !4 !5 !6 !7 !8 !9
  153. bind_action_bar !2 !3 !4 !5 !6 !7 !8 !9
  154. bind_pop_up !2 !3 !4 !5 !6 !7 !8 !9
  155. bind_ring !2 !3 !4 !5 !6 !7 !8 !9
  156. #ENDCOMMAND
  157. #FREG |CI1096 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  158. #FREG |CI1050 INTEGER |SI-2 INTEGER |SI-3 INTEGER  |SI-4 INTEGER |SI-5 INTEGER |SI-6 INTEGER |SI-7
  159. #FREG |CI$01CB
  160. #COMMAND DSSTART R R
  161. FORWARD_BEGIN_CONSTRUCT !1 !2 !3 !4 !5 !6 !7 !8 !9
  162. Bind_Main_File !3 !4 !5 !6 !7 !8 !9
  163. Bind_Index !3 !4 !5 !6 !7 !8 !9
  164. Bind_Updating !3 !4 !5 !6 !7 !8 !9
  165. #ENDCOMMAND
  166. #COMMAND BIND_MAIN_FILE
  167. #IF (!0>1)
  168. #IFSAME !1 MAIN_FILE
  169. #IFDEF !2.RECNUM
  170. #PUSH !u
  171. #SET U$ !2.RECNUM
  172. set main_file to |CI!u
  173. #POP u$
  174. #ELSE
  175. #ERROR 778 If !2 is a file it is unopened
  176. #ENDIF
  177. #ELSE
  178. bind_main_file !2 !3 !4 !5 !6 !7 !8 !9
  179. #ENDIF
  180. #ENDIF
  181. #ENDCOMMAND
  182. #COMMAND BIND_INDEX
  183. #IF (!0>1)
  184. #IFSAME !1 BY
  185. set ordering to !2
  186. #ELSE
  187. bind_index !2 !3 !4 !5 !6 !7 !8 !9
  188. #ENDIF
  189. #ENDIF
  190. #ENDCOMMAND
  191. #COMMAND BIND_UPDATING
  192. #IF (!0>1)
  193. #IFSAME !1 UPDATING
  194. SetDependents !2 !3 !4 !5 !6 !7 !8 !9
  195. #ELSE
  196. Bind_Updating !2 !3 !4 !5 !6 !7 !8 !9
  197. #ENDIF
  198. #ENDIF
  199. #ENDCOMMAND
  200. #COMMAND SETDEPENDENTS
  201. #IF (!0>0)
  202. #IFDEF !1
  203. send Attach_Server !1
  204. #ELSE
  205. #IFDEF !1.OBJ
  206. send attach_Server !1.OBJ
  207. #ELSE
  208. #IFDEF !1.RECNUM
  209. #PUSH !u
  210. #SET U$ !1.RECNUM
  211. send Add_Parent_File |CI!u
  212. #POP U$
  213. #ELSE
  214. #ERROR 778 If !1 is a file it is unopened
  215. #ENDIF
  216. #ENDIF
  217. #ENDIF
  218. SetDependents !2 !3 !4 !5 !6 !7 !8 !9
  219. #ENDIF
  220. #ENDCOMMAND
  221. #COMMAND BEGIN_CONSTRAINTS
  222. procedure constrain
  223. #ENDCOMMAND
  224. #COMMAND END_CONSTRAINTS
  225. forward send constrain
  226. end_procedure
  227. #ENDCOMMAND
  228. #FREG |CI$009C INTEGER |SI-2
  229. #FREG |CI1098 RETURNS INTEGER
  230. #FREG |CI1100 RETURNS INTEGER
  231. #FREG |CI1040 RETURNS INTEGER
  232. #FREG |CI1102 RETURNS INTEGER
  233. #FREG |CI1104 RETURNS INTEGER
  234. #FREG |CI1105 RETURNS INTEGER
  235. #FREG |CI1106
  236. #FREG |CI$011A RETURNS INTEGER
  237. #FREG |CI1107
  238. #FREG |CI1108
  239. #FREG |CI$011D INTEGER |SI-2
  240. #FREG |CI$0103 INTEGER |SI-2 INTEGER |SI-3
  241. #FREG |CI1043
  242. #FREG |CI1109
  243. #FREG |CI$0037 INTEGER |SI-2 RETURNS INTEGER
  244. #FREG |CI1090 INTEGER |SI-2
  245. #FREG |CI1091 INTEGER |SI-2
  246. #FREG |CI1104 RETURNS INTEGER
  247. #FREG |CI1105 RETURNS INTEGER
  248. #FREG |CI$009C INTEGER |SI-2
  249. #FREG |CI1100 RETURNS INTEGER
  250. #FREG |CI$0075
  251. #FREG |CI1097
  252. #FREG |CI$0036
  253. #FREG |CI$0035
  254. #FREG |CI1110 INTEGER |SI-2
  255. #FREG |CI$011A RETURNS INTEGER
  256. #FREG |CI1107
  257. #FREG |CI1108
  258. #FREG |CI1111
  259. #FREG |CI1112 RETURNS INTEGER
  260. #FREG |CI1109
  261. #FREG |CI1103 INTEGER |SI-2
  262. #FREG |CI$0075
  263. #COMMAND CREATE_MENU R
  264. #IF (!0<4)
  265. #IFSAME !2 SUB_LOCATION
  266. object !1 is a Pull_Down_Menu !3
  267. #ELSE
  268. object !1 is an Action_Bar_Menu !2 !3
  269. #ENDIF
  270. #ELSE
  271. #IFSAME !2 LOCATION
  272. object !1 is an Action_Bar_Menu
  273. #IF (!0>4)
  274. set Location to !3 !4 !5
  275. #ELSE
  276. set Location to !3 !4 Absolute
  277. #ENDIF
  278. #ELSE
  279. object !1 is an Action_Bar_Menu !2
  280. #CHECK !3 LOCATION
  281. #IF (!0>5)
  282. set Location to !4 !5 !6
  283. #ELSE
  284. set Location to !4 !5 Absolute
  285. #ENDIF
  286. #ENDIF
  287. #ENDIF
  288. item_list
  289. #ENDCOMMAND
  290. #FREG |CI$009C INTEGER |SI-2
  291. #COMMAND BEGIN_ROW .
  292. MAKEDEF$ OBJ$!Zj$ROWDEF
  293. object Element is a PROTOTYPE_ENTRY NO_IMAGE
  294. item_list
  295. #ENDCOMMAND
  296. #COMMAND END_ROW .
  297. end_item_list
  298. End_Object
  299. set item_limit to (item_count(element(Current_Object)))
  300. set line_width to (item_count(element(Current_Object)))  (displayable_rows(current_object))
  301. set matrix_size to (item_count(element(Current_Object)))  (displayable_rows(current_object))
  302. #ENDCOMMAND
  303. #FREG |CI1113
  304. #FREG |CI1114 RETURNS INTEGER
  305. #FREG |CI1116
  306. #FREG |CI1117
  307. #FREG |CI$00C6 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  308. #FREG |CI$00C7 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  309. #FREG |CI$00C8 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  310. #FREG |CI1118 INTEGER |SI-2 RETURNS INTEGER
  311. #FREG |CI1119 INTEGER |SI-2 RETURNS INTEGER
  312. #FREG |CI1120 INTEGER |SI-2 RETURNS INTEGER
  313. #FREG |CI$009C INTEGER |SI-2
  314. #FREG |CI1121
  315. #FREG |CI1122
  316. #FREG |CI1123
  317. #FREG |CI$0135 INTEGER |SI-2 INTEGER |SI-3
  318. #FREG |CI1094
  319. #FREG |CI1124 RETURNS INTEGER
  320. #FREG |CI1095
  321. #FREG |CI$010F RETURNS INTEGER
  322. #FREG |CI$0110 RETURNS INTEGER
  323. #FREG |CI$01CB
  324. #COMMAND WLSTART R R
  325. #IFDEF !2
  326. #ELSE
  327. #IFDEF !2.N
  328. #ELSE
  329. #ERROR 100 IMAGE ARGUMENT MISSING IN OBJECT STATEMENT
  330. #ENDIF
  331. #ENDIF
  332. FORWARD_BEGIN_CONSTRUCT !1 !2
  333. bind_Action_bar !3 !4 !5 !6 !7 !8 !9
  334. bind_Pop_up !3 !4 !5 !6 !7 !8 !9
  335. bind_Ring !3 !4 !5 !6 !7 !8 !9
  336. #ENDCOMMAND
  337. #FREG |CI$0158 RETURNS INTEGER
  338. #FREG |CI$009C INTEGER |SI-2
  339. #FREG |CI1125 RETURNS INTEGER
  340. #FREG |CI1127 RETURNS INTEGER
  341. #FREG |CI1129 RETURNS INTEGER
  342. #FREG |CI1131 RETURNS INTEGER
  343. #FREG |CI1133 RETURNS INTEGER
  344. #FREG |CI1135 RETURNS INTEGER
  345. #FREG |CI1137 RETURNS INTEGER
  346. #FREG |CI$0172 RETURNS INTEGER
  347. #FREG |CI1139 RETURNS INTEGER
  348. #FREG |CI1141 RETURNS INTEGER
  349. #FREG |CI1143 RETURNS INTEGER
  350. #FREG |CI1145 RETURNS INTEGER
  351. #FREG |CI1147 RETURNS INTEGER
  352. #FREG |CI16389 RETURNS INTEGER
  353. #FREG |CI1149 RETURNS INTEGER
  354. #FREG |CI1150 RETURNS INTEGER
  355. #FREG |CI1151
  356. #FREG |CI$009D RETURNS INTEGER
  357. #FREG |CI$004E
  358. #FREG |CI$004F
  359. #FREG |CI1122
  360. #FREG |CI1123
  361. #FREG |CI$015B INTEGER |SI-2
  362. #FREG |CI$015C RETURNS INTEGER
  363. #FREG |CI1152 INTEGER |SI-2 INTEGER |SI-3
  364. #FREG |CI1153 INTEGER |SI-2 RETURNS INTEGER
  365. #FREG |CI$0158 RETURNS INTEGER
  366. #FREG |CI$0157 INTEGER |SI-2
  367. #FREG |CI$0044 INTEGER |SI-2 INTEGER |SI-3
  368. #FREG |CI1154 INTEGER |SI-2
  369. #FREG |CI1155 INTEGER |SI-2
  370. #FREG |CI$0195 INTEGER |SI-2
  371. #FREG |CI1156 INTEGER |SI-2
  372. #FREG |CI$0194
  373. #FREG |CI1157
  374. #FREG |CI1158
  375. #FREG |CI1159 INTEGER |SI-2
  376. #FREG |CI1160 INTEGER |SI-2
  377. #FREG |CI1161 INTEGER |SI-2
  378. #FREG |CI1162 INTEGER |SI-2
  379. #FREG |CI1163 INTEGER |SI-2
  380. #FREG |CI1164 INTEGER |SI-2
  381. #FREG |CI1165 INTEGER |SI-2
  382. #FREG |CI1166
  383. #FREG |CI1167 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  384. #FREG |CI$003B
  385. #FREG |CI1168
  386. #FREG |CI1169
  387. #FREG |CI$0156
  388. #FREG |CI1170 INTEGER |SI-2
  389. #FREG |CI$01AB
  390. #FREG |CI$01BF
  391. #FREG |CI$0163
  392. #FREG |CI1171 INTEGER |SI-2
  393. #FREG |CI1172 INTEGER |SI-2
  394. #FREG |CI1173 INTEGER |SI-2 RETURNS INTEGER
  395. #FREG |CI$0116 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  396. #FREG |CI$0090 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  397. #FREG |CI1174 INTEGER |SI-2
  398. #FREG |CI$004C INTEGER |SI-2
  399. #FREG |CI$004D
  400. #FREG |CI1175
  401. #FREG |CI1176
  402. #FREG |CI1121
  403. #FREG |CI$003D STRING |SS-2 INTEGER |SI-3 RETURNS INTEGER
  404. #FREG |CI1067
  405. #FREG |CI1177 INTEGER |SI-2
  406. #FREG |CI1178 INTEGER |SI-2
  407. #FREG |CI1179
  408. #FREG |CI$01C6 INTEGER |SI-2
  409. #FREG |CI1180 INTEGER |SI-2 RETURNS INTEGER
  410. #FREG |CI1181 INTEGER |SI-2 RETURNS INTEGER
  411. #FREG |CI1182 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  412. #FREG |CI1183 INTEGER |SI-2
  413. #FREG |CI1184 INTEGER |SI-2 INTEGER |SI-3 INTEGER |SI-4 RETURNS  INTEGER
  414. #FREG |CI$01C9 RETURNS INTEGER
  415. #FREG |CI$010F RETURNS INTEGER
  416. #FREG |CI$011B INTEGER |SI-2 RETURNS INTEGER
  417. #COMMAND DLSTART R R
  418. FORWARD_BEGIN_CONSTRUCT !1 !2 !3 !4 !5 !6 !7 !8 !9
  419. bind_using !3 !4 !5 !6 !7 !8 !9
  420. bind_datalist_main_file !3 !4 !5 !6 !7 !8 !9
  421. bind_datalist_index !3 !4 !5 !6 !7 !8 !9
  422. bind_batch !3 !4 !5 !6 !7 !8 !9
  423. #ENDCOMMAND
  424. #COMMAND BIND_BATCH
  425. #IF (!0>0)
  426. #IFSAME !1 BATCH VIRTUAL
  427. #IFSAME !1 BATCH
  428. set Batch_State to true
  429. #ELSE
  430. set Batch_State to false
  431. #ENDIF
  432. #ELSE
  433. Bind_Batch !2 !3 !4 !5 !6 !7 !8 !9
  434. #ENDIF
  435. #ENDIF
  436. #ENDCOMMAND
  437. #COMMAND BIND_STATIC
  438. #IF (!0>0)
  439. #IFSAME !1 STATIC
  440. set Batch_State to true
  441. set Static_State to true
  442. #ELSE
  443. Bind_Static !2 !3 !4 !5 !6 !7 !8 !9
  444. #ENDIF
  445. #ENDIF
  446. #ENDCOMMAND
  447. #COMMAND BIND_DATALIST_MAIN_FILE
  448. #IF (!0>1)
  449. #IFSAME !1 MAIN_FILE
  450. #PUSH !u
  451. #SET U$ !2.RECNUM
  452. set main_file to |CI!u
  453. #POP U$
  454. #ELSE
  455. bind_datalist_main_file !2 !3 !4 !5 !6 !7 !8 !9
  456. #ENDIF
  457. #ENDIF
  458. #ENDCOMMAND
  459. #COMMAND BIND_DATALIST_INDEX
  460. #IF (!0>1)
  461. #IFSAME !1 BY
  462. set ordering to !2
  463. #ELSE
  464. bind_datalist_index !2 !3 !4 !5 !6 !7 !8 !9
  465. #ENDIF
  466. #ENDIF
  467. #ENDCOMMAND
  468. #COMMAND DLEND R
  469. #IFDEF OBJ$!Zj$ROWDEF
  470. #ELSE
  471. #ERROR 777 Object is missing BEGIN_ROW...END_ROW commands
  472. #ENDIF
  473. FORWARD_END_CONSTRUCT !1 !2 !3 !4 !5 !6 !7 !8 !9
  474. #ENDCOMMAND
  475. #FREG |CI1186
  476. #FREG |CI1187 RETURNS INTEGER
  477. #FREG |CI1189 RETURNS INTEGER
  478. #FREG |CI1191 RETURNS INTEGER
  479. #FREG |CI1193 RETURNS INTEGER
  480. #FREG |CI1195 RETURNS INTEGER
  481. #FREG |CI1197 RETURNS INTEGER
  482. #FREG |CI1199 RETURNS INTEGER
  483. #FREG |CI$009D RETURNS INTEGER
  484. #FREG |CI$00A2 RETURNS INTEGER
  485. #FREG |CI$0122
  486. #FREG |CI$0038 INTEGER |SI-2 STRING |SS-3 INTEGER |SI-4
  487. #FREG |CI$0039 INTEGER |SI-2 STRING |SS-3
  488. #FREG |CI$0098 RETURNS INTEGER
  489. #FREG |CI1201
  490. #FREG |CI1202
  491. #COMMAND BIND_TARGET
  492. #IF (!0>1)
  493. #IFSAME !1 FOR
  494. #PUSH !u
  495. #SET U$ !2
  496. set Target_File to |CI!u
  497. #SET U$ %!2
  498. set Target_Field to |CI!u
  499. #POP U$
  500. #ELSE
  501. Bind_Target !2 !3 !4 !5 !6 !7 !8 !9
  502. #ENDIF
  503. #ENDIF
  504. #ENDCOMMAND
  505. #COMMAND BIND_RADIO
  506. #IF (!0>0)
  507. #IFSAME !1 RADIO
  508. set Radio_State to true
  509. set select_mode to AUTO_SELECT
  510. #ELSE
  511. Bind_Radio !2 !3 !4 !5 !6 !7 !8 !9
  512. #ENDIF
  513. #ENDIF
  514. #ENDCOMMAND
  515. #FREG |CI$0158 RETURNS INTEGER
  516. #FREG |CI$009C INTEGER |SI-2
  517. #FREG |CI16390 RETURNS INTEGER
  518. #FREG |CI$0017 RETURNS INTEGER
  519. #FREG |CI$0018 INTEGER |SI-2
  520. #FREG |CI1203 RETURNS INTEGER
  521. #FREG |CI1185
  522. #FREG |CI$011A RETURNS INTEGER
  523. #FREG |CI$0099 RETURNS INTEGER
  524. #FREG |CI1121
  525. #FREG |CI$0026 INTEGER |SI-2 INTEGER |SI-3
  526. #FREG |CI1204 RETURNS INTEGER
  527. #FREG |CI$00BB INTEGER |SI-2 INTEGER |SI-3
  528. #FREG |CI1154 INTEGER |SI-2
  529. #FREG |CI1151
  530. #FREG |CI1124 RETURNS INTEGER
  531. #FREG |CI$0037 INTEGER |SI-2
  532. #FREG |CI$01CB
  533. #COMMAND SLSTART R R
  534. FORWARD_BEGIN_CONSTRUCT !1 !2 !3 !4 !5 !6 !7 !8 !9
  535. Bind_SelList_PopUp !3 !4 !5 !6 !7 !8 !9
  536. Bind_Target !3 !4 !5 !6 !7 !8 !9
  537. Bind_Static !3 !4 !5 !6 !7 !8 !9
  538. Bind_Radio !3 !4 !5 !6 !7 !8 !9
  539. #ENDCOMMAND
  540. #COMMAND BIND_SELLIST_POPUP
  541.  
  542. #IF (!0>0)
  543. #IFSAME !1 POP_UP POPUP
  544. set Deferred_State to true
  545. set Auto_Fill_State to false
  546. #ELSE
  547. Bind_SelList_PopUp !2 !3 !4 !5 !6 !7 !8 !9
  548. #ENDIF
  549. #ENDIF
  550. #ENDCOMMAND
  551. #FREG |CI1205
  552. #FREG |CI1150 RETURNS INTEGER
  553. #FREG |CI1149 RETURNS INTEGER
  554. #FREG |CI1208
  555. #FREG |CI1209
  556. #FREG |CI1210
  557. #FREG |CI1211
  558. #FREG |CI1212
  559. #FREG |CI1213
  560. #FREG |CI$0115
  561. #FREG |CI$009C
  562. #FREG |CI1214 RETURNS INTEGER
  563. #FREG |CI1216 RETURNS INTEGER
  564. #FREG |CI1116
  565. #FREG |CI1117
  566. #FREG |CI$00C0 INTEGER |SI-2 RETURNS INTEGER
  567. #FREG |CI$0163
  568. #FREG |CI$0156
  569. #FREG |CI$01AB
  570. #FREG |CI$01BF
  571. #FREG |CI$016A
  572. #FREG |CI$0155
  573. #FREG |CI$0162
  574. #FREG |CI$0177
  575. #FREG |CI$0181 INTEGER |SI-2 INTEGER |SI-3
  576. #FREG |CI$0184 INTEGER |SI-2
  577. #FREG |CI$0135 INTEGER |SI-2 INTEGER |SI-3
  578. #FREG |CI1094
  579. #FREG |CI1095
  580. #FREG |CI$00B2 INTEGER |SI-2 RETURNS INTEGER
  581. #FREG |CI$00B1 INTEGER |SI-2 INTEGER |SI-3
  582. #FREG |CI$00B4 INTEGER |SI-2 RETURNS INTEGER
  583. #FREG |CI$0015 RETURNS INTEGER
  584. #FREG |CI$00B3 INTEGER |SI-2 INTEGER |SI-3
  585. #FREG |CI$00BF INTEGER |SI-2
  586. #FREG |CI$00C4 INTEGER |SI-2
  587. #FREG |CI1218
  588. #FREG |CI$00BE INTEGER |SI-2 INTEGER |SI-3
  589. #FREG |CI$00BB INTEGER |SI-2 INTEGER |SI-3
  590. #FREG |CI1219
  591. #FREG |CI1220
  592. #FREG |CI1221
  593. #FREG |CI1222
  594. #FREG |CI1223
  595. #FREG |CI1224
  596. #FREG |CI1225
  597. #FREG |CI$01C4
  598. #FREG |CI$01C6 INTEGER |SI-2
  599. #FREG |CI$01CB
  600. #COMMAND TXTEDSTART R
  601. FORWARD_BEGIN_CONSTRUCT !1 0 !2 !3 !4 !5 !6 !7 !8 !9
  602. bind_For !2 !3 !4 !5 !6 !7 !8 !9
  603. bind_using !2 !3 !4 !5 !6 !7 !8 !9
  604. bind_action_bar !2 !3 !4 !5 !6 !7 !8 !9
  605. bind_pop_up !2 !3 !4 !5 !6 !7 !8 !9
  606. bind_ring !2 !3 !4 !5 !6 !7 !8 !9
  607. #ENDCOMMAND
  608. #COMMAND BIND_FOR
  609. #IF (!0>1)
  610. #IFSAME !1 FOR
  611. #IFSAME !2 FILE
  612. set file_name to !3
  613. #ELSE
  614. #IFSAME !2 DBMS
  615. #PUSH !u
  616. #SET U$ !3
  617. set Data_File item 0 to |CI!u
  618. #SET U$ %!3
  619. set Data_Field item 0 to |CI!u
  620. #POP U$
  621. send READ_DBMS !3 TRUE
  622. #ELSE
  623. #PUSH !u
  624. #SET U$ !2
  625. set Data_File item 0 to |CI!u
  626. #SET U$ %!2
  627. set Data_Field item 0 to |CI!u
  628. #POP U$
  629. send READ_DBMS !2 TRUE
  630. #ENDIF
  631. #ENDIF
  632. #ELSE
  633. Bind_For !2 !3 !4 !5 !6 !7 !8 !9
  634. #ENDIF
  635. #ENDIF
  636. #ENDCOMMAND
  637. #FREG |CI$009C INTEGER |SI-2
  638. #FREG |CI1226 RETURNS INTEGER
  639. #FREG |CI$016A
  640. #FREG |CI$0155
  641. #FREG |CI$00F8 INTEGER |SI-2
  642. #FREG |CI$0181 INTEGER |SI-2 INTEGER |SI-3
  643. #FREG |CI$0184 INTEGER |SI-2
  644. #FREG |CI1228 RETURNS INTEGER
  645. #FREG |CI1229 INTEGER |SI-2 RETURNS INTEGER
  646. #FREG |CI1230 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  647. #FREG |CI1231 INTEGER |SI-2 RETURNS INTEGER
  648. #FREG |CI1232
  649. #FREG |CI1233
  650. #FREG |CI$0135 INTEGER |SI-2 INTEGER |SI-3
  651. #FREG |CI$0162
  652. #FREG |CI1234
  653. #FREG |CI$0177
  654. #FREG |CI$0116 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  655. #FREG |CI1235 INTEGER |SI-2 RETURNS INTEGER
  656. #FREG |CI1236 RETURNS INTEGER
  657. #FREG |CI$0090 INTEGER |SI-2 INTEGER |SI-3 RETURNS INTEGER
  658. #FREG |CI$0044 INTEGER |SI-2 INTEGER |SI-3
  659. #FREG |CI$004C INTEGER |SI-2
  660. #FREG |CI$004D
  661. #FREG |CI$00BE INTEGER |SI-2 INTEGER |SI-3
  662. #FREG |CI$009C INTEGER |SI-2
  663. #FREG |CI1094
  664. #FREG |CI1095
  665. #FREG |CI$0135 INTEGER |SI-2 INTEGER |SI-3
  666. #FREG |CI$0163
  667. #FREG |CI$0156
  668. #FREG |CI$01AB
  669. #FREG |CI$01BF
  670. #FREG |CI$016A
  671. #FREG |CI$0155
  672. #FREG |CI$0162
  673. #FREG |CI$004C
  674. #FREG |CI$004D
  675. #FREG |CI$0184 INTEGER |SI-2
  676. #FREG |CI$0177
  677. #FREG |CI$0181 INTEGER |SI-2 INTEGER |SI-3
  678. #FREG |CI$00F8 INTEGER |SI-2
  679. #FREG |CI$01CB
  680. #COMMAND EFSTART R R
  681. #IFDEF !2
  682. #ELSE
  683. #IFDEF !2.N
  684. #ELSE
  685. #ERROR 100 IMAGE ARGUMENT MISSING IN OBJECT STATEMENT
  686. #ENDIF
  687. #ENDIF
  688. FORWARD_BEGIN_CONSTRUCT !1 !2
  689. bind_action_bar !3 !4 !5 !6 !7 !8 !9
  690. bind_pop_up !3 !4 !5 !6 !7 !8 !9
  691. bind_ring !3 !4 !5 !6 !7 !8 !9
  692. bind_using !3 !4 !5 !6 !7 !8 !9
  693. #ENDCOMMAND
  694. #FREG |CI$009C INTEGER |SI-2
  695. #FREG |CI1121
  696. #FREG |CI1237
  697. #FREG |CI1203 RETURNS INTEGER
  698. #FREG |CI1185
  699. #FREG |CI$011A RETURNS INTEGER
  700. #FREG |CI$0099 RETURNS INTEGER
  701. #FREG |CI1204 RETURNS INTEGER
  702. #FREG |CI$00BE INTEGER |SI-2 INTEGER |SI-3
  703. #FREG |CI$00BB INTEGER |SI-2 INTEGER |SI-3
  704. #FREG |CI$004C
  705. #FREG |CI$004D
  706. #FREG |CI$0156
  707. #FREG |CI$01BF
  708. #FREG |CI$01AB
  709. #FREG |CI$0163
  710. #FREG |CI1068 INTEGER |SI-2
  711. #FREG |CI$01CB
  712. #COMMAND PLSTART R R
  713. FORWARD_BEGIN_CONSTRUCT !1 !2 !3 !4 !5 !6 !7 !8 !9
  714. Bind_Radio !3 !4 !5 !6 !7 !8 !9
  715. Bind_Target !3 !4 !5 !6 !7 !8 !9
  716. Bind_Using !3 !4 !5 !6 !7 !8 !9
  717. #ENDCOMMAND
  718. #COMMAND DEFINE_SYMBOL R "FOR" R
  719. #IFDEF !1
  720. #ELSE
  721. #REPLACE !1 !3
  722. #ENDIF
  723. #ENDCOMMAND
  724. #COMMAND USE_FILE R
  725. #IFDEF !1.RECNUM
  726. #ELSE
  727. #INCLUDE !1.FD
  728. #ENDIF
  729.  
  730. #IFDEF !1.FILE_NUMBER
  731. #ELSE
  732. #SET Q$ !1.RECNUM
  733. #REPLACE !1.FILE_NUMBER |CI!q
  734. #ENDIF
  735.  
  736. #IF (!0>1)
  737. USE_FILE !2 !3 !4 !5 !6 !7 !8 !9
  738. #ENDIF
  739. #ENDCOMMAND
  740. #FREG |CI$009C
  741. #FREG |CI1238 RETURNS INTEGER
  742. #FREG |CI1240 RETURNS INTEGER
  743. #FREG |CI$0106 INTEGER |SI-2 INTEGER |SI-3
  744. #FREG |CI$0034
  745. #FREG |CI$0073
  746. #FREG |CI$008C STRING |SS-2
  747. #FREG |CI1043
  748. #FREG |CI1242
  749. #FREG |CI1243
  750. #FREG |CI1244
  751. #FREG |CI1245
  752. #FREG |CI1246
  753. #FREG |CI$009C INTEGER |SI-2
  754. #FREG |CI16391 RETURNS INTEGER
  755. #FREG |CI$009C INTEGER |SI-2 INTEGER |SI-3 INTEGER |SI-4
  756. #FREG |CI1247 RETURNS INTEGER
  757. #FREG |CI16392 RETURNS INTEGER
  758. #FREG |CI16393 RETURNS INTEGER
  759. #FREG |CI16394 RETURNS INTEGER
  760. #FREG |CI1249 INTEGER |SI-2
  761. #FREG |CI$0117 INTEGER |SI-2
  762. #FREG |CI1250
  763. #FREG |CI$003B
  764. #FREG |CI1251 INTEGER |SI-2
  765. #FREG |CI1252 INTEGER |SI-2 STRING |SS-3 INTEGER |SI-4
  766. #FREG |CI1253 STRING |SS-2 INTEGER |SI-3 INTEGER |SI-4 INTEGER  |SI-5
  767. #FREG |CI1043
  768. #FREG |CI1254
  769. #FREG |CI$009C
  770. #FREG |CI$000D RETURNS INTEGER
  771. #FREG |CI$003B
  772. #FREG |CI1255 INTEGER |SI-2
  773. #FREG |CI1256 RETURNS INTEGER
  774. #FREG |CI$009C INTEGER |SI-2 INTEGER |SI-3 INTEGER |SI-4 INTEGER  |SI-5 INTEGER |SI-6 INTEGER |SI-7 INTEGER |SI-8 INTEGER |SI-9
  775. #FREG |CI1257 RETURNS STRING
  776. #FREG |CI1259 RETURNS STRING
  777. #FREG |CI1261 RETURNS STRING
  778. #FREG |CI1263 RETURNS STRING
  779. #FREG |CI1265 RETURNS INTEGER
  780. #FREG |CI1267 RETURNS STRING
  781. #FREG |CI16395 RETURNS INTEGER
  782. #FREG |CI16396 RETURNS INTEGER
  783. #FREG |CI16397 RETURNS INTEGER
  784. #FREG |CI16398 RETURNS INTEGER
  785. #FREG |CI16399 RETURNS INTEGER
  786. #FREG |CI16400 RETURNS INTEGER
  787. #FREG |CI16401 RETURNS INTEGER
  788. #FREG |CI1271 INTEGER |SI-2
  789. #FREG |CI1272 RETURNS INTEGER
  790. #FREG |CI$01B1 INTEGER |SI-2 STRING |SS-3
  791. #FREG |CI1273 STRING |SS-2
  792. #FREG |CI1274 RETURNS STRING
  793. #FREG |CI1275 STRING |SS-2 STRING |SS-3 STRING |SS-4 RETURNS  INTEGER
  794. #FREG |CI1269
  795. #FREG |CI1276 INTEGER |SI-2
  796. #FREG |CI1043
  797. #FREG |CI1277 INTEGER |SI-2 INTEGER |SI-3
  798. #FREG |CI1278
  799. #FREG |CI1279
  800. #FREG |CI1280
  801. #FREG |CI1281
  802. #FREG |CI1282 INTEGER |SI-2
  803. #FREG |CI1283 INTEGER |SI-2
  804. #FREG |CI1284
  805. #FREG |CI1245
  806. #FREG |CI1285
  807. #FREG |CI1286
  808. #FREG |CI1270 INTEGER |SI-2
  809. #FREG |CI1287
  810. #FREG |CI1288
  811. #FREG |CI1289
  812. #FREG |CI16402 RETURNS INTEGER
  813. #FREG |CI16403 RETURNS INTEGER
  814. #FREG |CI1291
  815. #FREG |CI1292
  816. #FREG |CI$002F
  817. #FREG |CI1293
  818. #FREG |CI1294
  819. #FREG |CI1295
  820. #FREG |CI$00A4 RETURNS STRING
  821. #FREG |CI1296 INTEGER |SI-2 RETURNS INTEGER
  822. #FREG |CI1297
  823. #FREG |CI1298 INTEGER |SI-2 RETURNS INTEGER
  824. #FREG |CI1299 INTEGER |SI-2
  825. #FREG |CI1300 INTEGER |SI-2 INTEGER |SI-3
  826. #FREG |CI1301 INTEGER |SI-2
  827. #FREG |CI1302 INTEGER |SI-2
  828. #FREG |CI1303
  829. #FREG |CI1304
  830. #FREG |CI$009C INTEGER |SI-2 INTEGER |SI-3
  831. #FREG |CI1305 RETURNS INTEGER
  832. #FREG |CI16404 RETURNS INTEGER
  833. #FREG |CI16405 RETURNS INTEGER
  834. #FREG |CI16406 RETURNS INTEGER
  835. #FREG |CI1301 INTEGER |SI-2
  836. #FREG |CI1302 INTEGER |SI-2
  837. #FREG |CI1303
  838. #FREG |CI1304
  839. #FREG |CI1043
  840. #FREG |CI1307 INTEGER |SI-2 STRING |SS-3 RETURNS STRING
  841. #FREG |CI1308 INTEGER |SI-2 RETURNS INTEGER
  842. #FREG |CI$01B1 INTEGER |SI-2 STRING |SS-3
  843. #FREG |CI$00A4 RETURNS STRING
  844. #FREG |CI$013C RETURNS STRING
  845. #FREG |CI$013E RETURNS STRING
  846. #FREG |CI16407 RETURNS INTEGER
  847. #FREF OBJ$DESK$NUM 1
  848. #set A$ 5307
  849. #set C$ 12
  850. #set D$ 168
  851. #set F$ 1
  852. #set N$ 2
  853. #set Q$ 2
  854. #set R$ 339
  855. #set S$ 5288
  856. #set U$ 5293
  857. #set ZA$ 5296
  858. #set ZB$ 2
  859. #set ZC$ 1308
  860. #set ZH$ 16407
  861. #set ZI$ 4
  862. #set ZJ$ 2
  863.