h60460
s 00002/00000/00030
d D 1.19 83/03/04 12:17:45 mjb 19 18
c 
e
s 00000/00002/00030
d D 1.18 83/03/03 22:31:17 mjb 18 17
c 
e
s 00003/00003/00029
d D 1.17 83/03/02 17:39:47 mjb 17 16
c put in GRAPHx.r routine names for overlays
e
s 00000/00000/00032
d D 1.16 83/02/18 13:44:45 mjb 16 15
c 
e
s 00001/00000/00031
d D 1.15 83/02/18 12:18:15 mjb 15 14
c switched routine line
e
s 00001/00001/00030
d D 1.14 83/02/16 15:35:31 tes 14 13
c added move legend feature
e
s 00005/00000/00026
d D 1.13 83/02/09 18:52:19 tes 13 12
c added external reference to block data 
e
s 00000/00002/00026
d D 1.12 83/02/08 16:35:42 mjb 12 11
c 
e
s 00000/00003/00028
d D 1.11 83/02/04 12:49:15 mjb 11 10
c fixed all routines to clear anotation buffer when necessary
e
s 00000/00000/00031
d D 1.10 83/02/03 15:33:49 mjb 10 9
c fixed bug with allcom having bad hshcom in it
e
s 00001/00001/00030
d D 1.9 83/01/31 16:22:36 mjb 9 8
c fixed reinitialization of action 
e
s 00006/00000/00025
d D 1.8 83/01/28 23:16:08 tes 8 7
c added initialization of annotation buffer
e
s 00001/00000/00024
d D 1.7 83/01/28 19:23:25 tes 7 6
c modified device mode register access...chgmod modification
e
s 00001/00001/00023
d D 1.6 83/01/28 16:04:39 mjb 6 5
c changed call to death to alclos
e
s 00002/00003/00022
d D 1.5 83/01/28 15:13:10 mjb 5 4
c made change to call death and close hershy table and menu file
e
s 00007/00015/00018
d D 1.4 83/01/28 13:29:58 mjb 4 3
c made changes for preprocessed menu file
e
s 00001/00001/00032
d D 1.3 83/01/21 19:21:53 tes 3 2
c Changed ASCIIxMODE to EXITxGRAPHICSxMODE
e
s 00002/00000/00031
d D 1.2 83/01/20 20:40:40 mjb 2 1
c changed to initialize mult graph parameters
e
s 00031/00000/00000
d D 1.1 83/01/20 11:21:39 tes 1 0
c date and time created 83/01/20 11:21:39 by tes
e
u
tes
mjb
U
t
T
I 15
ifdef(`CPU86',`subroutine graph')
E 15
I 13
external cpywrt
changequote([,])
ifdef([UNIX], [], [ external fcbblk ])
changequote(`,')

E 13
I 8
D 12
integer i
E 8
I 1
D 4
integer gdelet, i
E 4
I 4
D 5
integer gdclos, i
E 5
E 4

E 12
D 4
ifdef(`F80',`integer*1 fname(10)')

E 4
include(`allcom')

I 19
menufd = -1                  # Initialize file descriptors
hfile = -1
E 19
D 4
ifdef(`F80',`
data fname/BIGM,BIGE,BIGN,BIGU,BIGS,PERIOD,BIGT,BIGM,BIGP,NUL/
')

E 4
D 17
call inigrf                  # Initialize GRAPH
E 17
I 17
call graph1                  # Initialize GRAPH
E 17
I 8

D 11
do i=1, 1000                 # Initialize the annotation buffer
   anobuf(i) = NUL

E 11
mnumod = ENTERxGRAPHICSxMODE
E 8
I 2
D 18
multfg = 1                   # Initialize Multiple chart flag to one
mfrmat = 6                   # Initialize chart format to 6- Full screen
E 18
E 2
mid = MAINxMENU
D 9
action = 0
E 9
bctype = 0                   # initialize current graph type to undefined
repeat {
I 9
   action = NUL
E 9
D 17
   call menus
E 17
I 17
   call graph2               # Main menu handler routine
E 17
D 4
   if (action == SHOWxCHART) call outgph
E 4
I 4
D 14
   if (action == SHOWxCHART | action == ANNOTATE) {
E 14
I 14
   if (action == SHOWxCHART | action == ANNOTATE | action == MOVExLEGEND) {
E 14
      call chgmod (EXITxGRAPHICSxMODE)
D 17
      call outgph
E 17
I 17
      call graph7            # Main route of output graph overlay
E 17
I 7
      mnumod = ENTERxGRAPHICSxMODE
E 7
      }
E 4
   } until (action == EXITxGSSxGRAPH)

# place device in ASCII mode
D 3
call chgmod (ASCIIxMODE)
E 3
I 3
call chgmod (EXITxGRAPHICSxMODE)
E 3

D 4
# delete temporary menu file
changequote([,])
ifdef([UNIX],
[ i = gdelet ('menus.tmp') ],
[ i = gdelet (fname) ])
changequote(`,')
E 4
I 4
D 5
# close binary menu file
i = gdclos (menufd)
E 5
I 5
# close binary menu file, and hershy table
D 6
call death
E 6
I 6
call alclos
E 6
E 5
E 4

D 4
stop
E 4
end
E 1
