65000 #include "rundecs.h"
65010     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
65020 (**)
65030 (**)
65040 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
65050 (**)
65060 (**)
65070 FUNCTION BYTESPACK(STRING :OBJECTP): A68INT;
65080 (*BYTESPACK*)
65090   VAR PTR: UNDRESSP;
65100     BEGIN WITH STRING^ DO
65110       IF STRLENGTH > CHARPERWORD THEN ERRORR(RBYTESPACK)
65120       ELSE BEGIN
65130         PTR := INCPTR(STRING, STRINGCONST);
65140         BYTESPACK := PTR^.FIRSTINT;
65150         END
65160     END;
65170 (**)
65180 (**)
65190 (*-02() BEGIN END ; ()-02*)
65200 (*+01()
65210 BEGIN (*OF MAIN PROGRAM*)
65220 END (*OF EVERYTHING*).
65230 ()+01*)