02010 MAP1 PRTSYS
02020	MAP2 PRINTER(10),S,6
02030 MAP1 PRECSIZE,F,6,LEN(PRTSYS)
02040 MAP1 STRINGS
02050	MAP2 FORMS,S,6
02060 	MAP2 DPRT,S,6
02070 	MAP2 FILNAM,S,15
02075	XCALL NOECHO
02077	FILEBASE 1
02080	? TAB(-1,0);"SET FORM UTILITY"
02090	FILNAM = "PRTSYS.DAT"
02100	OPEN #99, FILNAM, RANDOM, PRECSIZE, FILE99
02110	FILE99 = 1 : READ #99, PRTSYS
02120 	CLOSE #99
02130 BEGIN:
02140	I=1 : DEFLT=1
02150 NXTPRT:
02160	IF I=11 I=1
02170	IF PRINTER(I)=SPACE(6) AND I # 1 I=I+1 : GOTO NXTPRT
02180	DPRT=PRINTER(I)
02190	? TAB(2,1);TAB(-1,9);"ENTER PRINTER";
02200   XCALL INPUT,2,15,06,00,"ATE",DPRT,INXCTL,1,DEFLT,EXTCODE,TIMER
02210	IF INXCTL=3 I=I+1 : GOTO NXTPRT
02220	? TAB(22,1);TAB(-1,9);
02230	IF INXCTL CHAIN "UTLMNU"
02240	FORMS="NORMAL"
02250	? TAB(3,1);TAB(-1,9);"ENTER FORM";
02260   XCALL INPUT,3,15,06,00,"ATE",FORMS,INXCTL,1,DEFLT,EXTCODE,TIMER
02270	XCALL SETFRM, DPRT,FORMS
02280	CNGCTL=2
02290	XCALL ANYCN,CNGCTL,WHATNO
02300	IF CNGCTL GOTO BEGIN
02310	CHAIN "UTLMNU"