23 lines
566 B
OpenEdge ABL
23 lines
566 B
OpenEdge ABL
|
57000 #include "rundecs.h"
|
||
|
|
57010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
57020 (**)
|
||
|
|
57030 (**)
|
||
|
|
57040 FUNCTION CRSTRING(LENGTH: OFFSETRANGE): OBJECTP; EXTERN;
|
||
|
|
57050 (**)
|
||
|
|
57060 (**)
|
||
|
|
57070 FUNCTION WIDCHAR(CH: CHAR): OBJECTP;
|
||
|
|
57080 (*PWIDEN+4*)
|
||
|
|
57090 VAR POINT :OBJECTP;
|
||
|
|
57100 BEGIN
|
||
|
|
57110 POINT := CRSTRING(1);
|
||
|
|
57120 POINT^.CHARVEC[1] := CH;
|
||
|
|
57130 WIDCHAR := POINT;
|
||
|
|
57140 END;
|
||
|
|
57150 (**)
|
||
|
|
57160 (**)
|
||
|
|
57170 (*-02() BEGIN END ; ()-02*)
|
||
|
|
57180 (*+01()
|
||
|
|
57190 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
57200 END (*OF EVERYTHING*).
|
||
|
|
57210 ()+01*)
|