23 lines
589 B
OpenEdge ABL
23 lines
589 B
OpenEdge ABL
|
71200 #include "rundecs.h"
|
||
|
|
71210 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
71220 (**)
|
||
|
|
71230 (*+01() (*$X6*) ()+01*)
|
||
|
|
71240 (**)
|
||
|
|
71250 (**)
|
||
|
|
71260 PROCEDURE DUMINCH(PCOV: OBJECTP; LFN: LFNTYPE);
|
||
|
|
71270 (*WHEN THERE ARE NOT 'GET'S IN THE PROGRAM*)
|
||
|
|
71280 BEGIN PCOV^.POSSIBLES := [] ; (*+01() PCOV^.BOOK^.STATUS := 0 ()+01*) END;
|
||
|
|
71290 (**)
|
||
|
|
71300 (**)
|
||
|
|
71310 (*+01() (*$X4*) ()+01*)
|
||
|
|
71320 (**)
|
||
|
|
71330 (**)
|
||
|
|
71340 (*-02()
|
||
|
|
71350 BEGIN (*OF A68*)
|
||
|
|
71360 END; (*OF A68*)
|
||
|
|
71370 ()-02*)
|
||
|
|
71380 (*+01()
|
||
|
|
71390 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
71400 END (* OF EVERYTHING *).
|
||
|
|
71410 ()+01*)
|