38 lines
1.2 KiB
OpenEdge ABL
38 lines
1.2 KiB
OpenEdge ABL
|
88500 #include "rundecs.h"
|
||
|
|
88510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
88520 (**)
|
||
|
|
88530 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
|
||
|
|
88540 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
|
||
|
|
88550 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERN;
|
||
|
|
88560 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN;
|
||
|
|
88570 (**)
|
||
|
|
88580 (**)
|
||
|
|
88590 (*+01() (*$X6*) ()+01*)
|
||
|
|
88600 PROCEDURE SETT(RF: OBJECTP; P, L, C: INTEGER);
|
||
|
|
88610 VAR F: OBJECTP;
|
||
|
|
88620 BEGIN
|
||
|
|
88630 TESTF(RF, F);
|
||
|
|
88640 WITH F^.PCOVER^ DO
|
||
|
|
88650 IF OPENED IN STATUS THEN
|
||
|
|
88660 IF (P<1) OR (L<1) OR (C<1) THEN ERRORR(POSMIN)
|
||
|
|
88670 ELSE IF (P>PAGEBOUND+1) OR (L>LINEBOUND+1) OR (C>CHARBOUND+1) THEN ERRORR(POSMAX)
|
||
|
|
88680 ELSE IF SETPOSS IN POSSIBLES THEN
|
||
|
|
88690 CLPASC5(ORD(F^.PCOVER), P, L, C, ORD(BOOK), DOSET)
|
||
|
|
88700 ELSE ERRORR(NOSET)
|
||
|
|
88710 ELSE ERRORR(NOTOPEN);
|
||
|
|
88720 IF FPTST(RF^) THEN GARBAGE(RF);
|
||
|
|
88730 END;
|
||
|
|
88740 (**)
|
||
|
|
88750 (**)
|
||
|
|
88760 (*+01() (*$X4*) ()+01*)
|
||
|
|
88770 (**)
|
||
|
|
88780 (**)
|
||
|
|
88790 (*-02()
|
||
|
|
88800 BEGIN (*OF A68*)
|
||
|
|
88810 END; (*OF A68*)
|
||
|
|
88820 ()-02*)
|
||
|
|
88830 (*+01()
|
||
|
|
88840 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
88850 END (* OF EVERYTHING *).
|
||
|
|
88860 ()+01*)
|