Monitor/CHANGE state of common eventflags in any given eventflag cluster. $ CEFCLUSTER Enter cluster name: myflags Status of flags in EF cluster MYFLAGS : 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 C = Clear S = Set Command ? (C efn,S efn, or Exit)
Program source files:
cefcluster main program
Compile and link commands :
Fortran cefcluster ; Link cefcluster
To make the command available to DCL, either
$ cefcluster :== $location:cefcluster.EXE ,or
put cefcluster.EXE into DCL$PATH .
or simply RUN cefcluster