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*)