10	! PROGB- BUILD AND ADD TO THE PROG FILE
20	OPEN "PROG" AS FILE 1
30	DIM #1,F%(100,12),F1%(100,12),F$(100),F1$(100)=32
100		FOR I%=F%(0,0)+1 TO 100
110		INPUT"PROGRAM NAME";F$(I%)
120			IF F$(I%)="END" THEN 300
125	INPUT "NAME CODE";F1$(I%)
130		PRINT "ENTER FILE #,MASTERFILE#,LINE#"
140			FOR J%=1 TO 12
150			INPUT L%,M%,N% : IF L%=0 THEN 200
160			F%(I%,J%)=L%*100+M%
170			F1%(I%,J%)=N%
180			NEXT J%
200		F%(I%,0)=J%-1
210		NEXT I%
300	F%(0,0)=I%-1
400	INPUT "ANY CORRECTIONS";B$ : IF B$<>"YES" THEN 1000
410	INPUT "PROGRAM #";N%
415		IF N%=0 THEN 1000
420	PRINT F$(N%);" NEW NAME"; : INPUT F$(N%)
430	INPUT "FILE CODES";F1$(N%)
440		FOR J%=1 TO 12
450		INPUT L%,L1%,L2% : IF L%=0 THEN 500
460		F%(N%,J%)=L%*100%+L1%
470		F1%(N%,J%)=L2%
480		NEXT J%
500	F%(N%,0)=J%-1
510	GOTO 410
1000	INPUT "DO YOU WANT A PRINTOUT";B$ : IF B$<>"YES" THEN 9000
1010	OPEN "LP:" AS FILE 12
1020		FOR I%=1 TO F%(0,0)
1030		PRINT #12,"**** ";I%;" ****"
1040	PRINT #12,F$(I%);TAB(10);F1$(I%)
1050			FOR J%=1 TO F%(I%,0)
1060			L%=F%(I%,J%)/100
1070	PRINT #12,TAB(5);L%;TAB(12);F%(I%,J%)-L%*100%;TAB(19);F1%(I%,J%)
1080			NEXT J%
1090	PRINT #12
1100		NEXT I%
1110	CLOSE 12
9000	CLOSE 1
9999	END