5 R DFU, NULSYS 
10 FE PNLBAL 
15 WR PNLBAL,DY1/Y
20 FE GL310E 
25 WR GL310E,DY1/Y 
30 R COMP,PGMEND,TERID/NO
35 SA PGMEND,DY1/Y
40 R COMP,INPUTD,BTRIDX,INPUTP/NO
45 SA BTRIDX,DY1/Y 
50 FE STPLBS 
55 WR STPLBS,DY1/Y 
60 R COMP,SRATIO,TERID/NO
65 SA SRATIO,DY1/Y 
70 R COMP,PROLO1,PROLO2,PROLO3,TERID/NO
75 SA PROLOS,DY1/Y 
80 R COMP,BLANC1,BLANC2,TERID/NO 
85 SA BLANCE,DY1/Y 
90 FE SRTSCH 
95 WR SRTSCH,DY1/Y 
100 R COMP,SCHDP1,SCHDP2,SCHDP3,TERID/NO
105 SA SCHDLP,DY1/Y 
110 R COMP,SCHDB1,SCHDB2,TERID/NO 
115 SA SCHDLB,DY1/Y 
120 FE CONAME 
125 WR CONAME,DY1/Y
130 FE INIT2
135 WR INIT2,DY1/Y 
140 R COMP,CLRFSM/NO
145 SA CLRFSM,DY1/Y
150 R COMP,PGMEND,TERID/G 
155 ; 
160 ; BUILD2 / GL - 310 
165 ; 
170 ;		DATE: 07/01/77 
175 ; 
180 ;		BATCH FOR BUILDING THE FINANCIAL STATEMENTS MASTER DISKETTE