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"
