25 lines
673 B
OpenEdge ABL
25 lines
673 B
OpenEdge ABL
|
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*)
|