28 lines
756 B
OpenEdge ABL
28 lines
756 B
OpenEdge ABL
|
92900 #include "rundecs.h"
|
||
|
|
92910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
92920 (**)
|
||
|
|
92930 (*+01() (*$X6*) ()+01*)
|
||
|
|
92940 PROCEDURE STBACCH(PCOV: OBJECTP; LFN: LFNTYPE);
|
||
|
|
92950 BEGIN WITH PCOV^ DO
|
||
|
|
92960 BEGIN CHARBOUND:=MAXINT;
|
||
|
|
92970 LINEBOUND:=MAXINT;
|
||
|
|
92980 PAGEBOUND:=MAXINT;
|
||
|
|
92990 POSSIBLES:=[GETPOSS,PUTPOSS,RESETPOSS,SETPOSS,BINPOSS,ESTABPOSS];
|
||
|
|
93000 STATUS := [OPENED,CHARMOOD];
|
||
|
|
93010 (*+01() BOOK^.DISP:=123B; ()+01*)
|
||
|
|
93020 END
|
||
|
|
93030 END;
|
||
|
|
93040 (**)
|
||
|
|
93050 (**)
|
||
|
|
93060 (*+01() (*$X4*) ()+01*)
|
||
|
|
93070 (**)
|
||
|
|
93080 (**)
|
||
|
|
93090 (*-02()
|
||
|
|
93100 BEGIN (*OF A68*)
|
||
|
|
93110 END; (*OF A68*)
|
||
|
|
93120 ()-02*)
|
||
|
|
93130 (*+01()
|
||
|
|
93140 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
93150 END (* OF EVERYTHING *).
|
||
|
|
93160 ()+01*)
|