100 ; CLRFSM / GL - 310 110 ; 120 ; DATE: 07/01/77 130 ; 140 ; NOTICE: THE PROCESS AND ALL THE ROUTINES CONTAINED 150 ; HEREIN ARE THE PROPRIETARY PROPERTIES AND TRADE 160 ; SECRETS OF MINI-COMPUTER BUSINESS APPLICATIONS, INC. 170 ; EXCEPT AS PROVIDED FOR BY LICENSE AGREEMENT THIS CODE 180 ; SHALL NOT BE DUPLICATED, USED OR DISCLOSED FOR ANY 190 ; PURPOSE OR REASON, IN WHOLE OR IN PART, WITHOUT THE 200 ; EXPRESS WRITTEN CONSENT OF MINI-COMPUTER BUSINESS 210 ; APPLICATIONS, INC. 220 ; 230 ; PGM TO CLEAR $FSIDX/3, TGLIDX/4, $WORK1/5, $WORK2/6, 240 ; AND $WORK3/7 AT INSTALLATION OF FINANCIAL STATEMENT MASTER 250 ; 260 ; COMPILE: CLRFSM 270 ; **INSTALLATION PROGRAM ONLY** 280 ; DO NOT LEAVE ON USER'S DISKETTE 290 ; 300 PROC 310 INIT (3,OUT,'$FSIDX',3) 320 FINI (3) 330 INIT (4,OUT,'TGLIDX',4) 340 FINI (4) 350 INIT (5,OUT,'$WORK1',5) 360 FINI (5) 370 INIT (6,OUT,'$WORK2',6) 380 FINI (6) 390 INIT (7,OUT,'$WORK3',7) 400 FINI (7) 410 STOP