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*)