5    R DFU,NULSYS
10   FE CONAME 
15   WR CONAME,DY1/Y 
20   R COMP,C/NO 
25   SA C,DY1/Y
30   R COMP,FORMS,TERID/NO 
35   SA FORMS,DY1/Y
40   R COMP,WAIT,TERID/NO
45   SA WAIT,DY1/Y 
50   R COMP,PGMEND,TERID/NO
55   SA PGMEND,DY1/Y 
60   FE GL310A 
65   WR GL310A,DY1/Y
70   FE GL310B 
75   WR GL310B,DY1/Y
80   FE GL310C 
85   WR GL310C,DY1/Y
90   FE GL310D 
95   WR GL310D,DY1/Y
100  FE GL310F 
105  WR GL310F,DY1/Y
110  FE GL310K 
115  WR GL310K,DY1/Y
120  FE GL310L 
125  WR GL310L,DY1/Y
130  FE GMAINT 
135  WR GMAINT,DY1/Y
140  R COMP,CHAIND,INPUTD,BSRCHD,GLAMN1,GLAMN2,INPUTP,BSRCHP/NO
145  SA GLAMNT,DY1/Y
150  R COMP,CHAIND,INPUTD,PRINTD,GLAPRT,INPUTP,PRINTP/NO 
155  SA GLAPRT,DY1/Y
160  R COMP,ORGACT,TERID/NO
165  SA ORGACT,DY1/Y
170  R COMP,MOVGLM/NO
175  SA MOVGLM,DY1/Y
180  R COMP,MNTSCR,TERID/NO
185  SA MNTSCR,DY1/Y
190  FE SRTACT 
195  WR SRTACT,DY1/Y
200  R COMP,MNTTRX,TERID/NO
205  SA MNTTRX,DY1/Y
210  FE ENTERGL
215  WR ENTERGL,DY1/Y
220  R COMP,INPUTD,BSRCHD,GLTENT,INPUTP,BSRCHP/NO
225  SA GLTENT,DY1/Y
230  R COMP,DRCRCK,TERID/NO
235  SA DRCRCK,DY1/Y
240  FE SRTGLW 
245  WR SRTGLW,DY1/Y
250  R COMP,PRINTD,GLTREG,PRINTP,TERID/NO
255  SA GLTREG,DY1/Y
260  R COMP,PSTGLT,TERID/NO
265  SA PSTGLT,DY1/Y
270  R COMP,CLRGLW/NO
275  SA CLRGLW,DY1/Y
280  FE TRIAL
285  WR TRIAL,DY1/Y 
290  R COMP,INPUTD,PRINTD,GLTBAL,INPUTP,PRINTP/NO
295  SA GLTBAL,DY1/Y
300  FE SOURCE 
305  WR SOURCE,DY1/Y
310  R COMP,INPUTD,BLDIDX,INPUTP/NO
315  SA BLDIDX,DY1/Y
320  FE SRTSRC 
325  WR SRTSRC,DY1/Y
330  R COMP,PRINTD,BSRCHD,SRCREF,PRINTP,BSRCHP,TERID/NO
335  SA SRCREF,DY1/Y
340  FE PERIOD 
345  WR PERIOD,DY1/Y 
350  R COMP, INPUTD,PRINTD,ACTPRD,INPUTP,PRINTP/NO 
355  SA ACTPRD,DY1/Y 
360  FE COMPRESS 
365  WR COMPRESS,DY1/Y
370  R COMP,INPUTD,COMPRS,INPUTP/NO
375  SA COMPRS,DY1/Y
380  FE GLYRND 
385  WR GLYRND,DY1/Y 
390  R COMP, INPUTD,GLYREN,INPUTP/NO 
395  SA GLYREN,DY1/Y 
400  FE INTERFACE
405  WR INTERFACE,DY1/Y 
410  R COMP,INPUTD,BSRCHD,GLIMN1,GLIMN2,INPUTP,BSRCHP/NO 
415  SA GLIMNT,DY1/Y
420  R COMP,PRINTD,GLIPRT,PRINTP,TERID/NO
425  SA GLIPRT,DY1/Y
430  FE AUTOINT
435  WR AUTOINT,DY1/Y 
440  R COMP,INPUTD,AUTOGL,INPUTP/NO
445  SA AUTOGL,DY1/Y
450  R COMP,BSRCHD,GLDSCR,BSRCHP/NO
455  SA GLDSCR,DY1/Y
460  R COMP,CLRWRK/NO
465  SA CLRWRK,DY1/Y
470  R COMP,CLRGLI/NO
475  SA CLRGLI,DY1/Y
480  R COMP,CLRSRC/NO
485  SA CLRSRC,DY1/Y
490  FE INIT1
495  WR INIT1,DY1/Y 
500  R COMP,PGMEND,TERID/G 
505  ; 
510  ; BUILD1 / GL - 310 
515  ; 
520  ;		DATE: 07/01/77 
525  ; 
530  ;		BATCH FOR BUILDING THE G/L MASTER DISKETTE