14   ;********************************************
24   ; SOURCE  PRINT4
34   ;********************************************
44   ;
54   ;PROCESS ALL 'PRINT' DATA LINES
64   ;
74   PRINT,	LISTI=
84   	IF (EOL.EQ.SPACE) CALL SYNTAX
94   PRINT7,	LISTE=
104  PRNT7A,	CALL GETLIN
114  	CALL SCANF
124  	IF (ICHAR.EQ.',') GOTO PRNT30
134  	ICOL=ICOL-1
144  	CALL GATOM
154  	IF (ATMTYP.NE.1) GOTO PRNT13
164  	IF (EOL.EQ.SPACE) GOTO PRINT8
174  	IF (ATOMSZ.NE.003) GOTO PRINT8
184  	IF (WORD(1,3).EQ.'END') RETURN
194  PRINT8,	CALL SEARCH
204  	IF (FINDSW.EQ.SPACE) GOTO PRNT14
214  	IF (ICHAR.NE.',') GOTO PRNT13
224  	LISTID=I
234  	CALL GATOM
244  	IF (ATMTYP.NE.4) GOTO PRNT13
254  	IF (ATOMSZ.LE.TITMAX) GOTO PRINT9
264  	ERRCOD=4
274  	CALL FATALA
284  	ATOMSZ=TITMAX
294  PRINT9,	IF (ATOMSZ.LE.0) GOTO PRNT10
304  	LISTIT=INLINE(ACOL1,ACOL1+ATOMSZ-1)
314  	LISTHS=ATOMSZ
324  	CALL HWIDTH
334  	IF (LISTHS.LE.BIGHS) GOTO PRNT10
344  	BIGHS=LISTHS
354  PRNT10,	IF (EOL.NE.SPACE) GOTO PRNT15
364  	IF (ICHAR.NE.',') GOTO PRNT13
374  	CALL SCANF
384  	IF (ICHAR.NE.'A') GOTO PRNT11
394  	IF (LISTID.EQ.0) GOTO PRN10B
404  	DATANE=DATANT(LISTID)
414  	IF (DATAM.EQ.'D') GOTO PRN10A
424  	ERRCOD=23
434  	CALL FATALA
444  	GOTO PRN10B
454  PRN10A,	ACNUM=ACNUM+1
464  	LISTAC=ACNUM
474  	IF (ACNUM.NE.1) GOTO PRN10B
484  	FIRSTA=PWIDTH+LISTFS
494  PRN10B,	CALL SCANF
504  	IF (EOL.NE.SPACE) GOTO PRNT15
514  	IF (ICHAR.NE.',') GOTO PRNT13
524  	GOTO PRNT12
534  PRNT11,	ICOL=ICOL-1
544  PRNT12,	CALL SCANP
554  	LISTPC=INLINE(ACOL1,ACOL1+ATOMSZ-1)
564  	LISTIS=ATOMSZ
574  	IF (EOL.EQ.SPACE) GOTO PRNT13
584  	IF (LISTPC.EQ.SPACPC) GOTO PRNT15
594  	GOTO PRNT19
604  PRNT13,	CALL SYNTAX
614  	GOTO PRNT19
624  PRNT14,	ERRCOD=15
634  	CALL FATALA
644  	GOTO PRNT19
654  PRNT15,	IF (DATAM.NE.'D') GOTO PRNT19
664  	J=DATAS
674  	IF (LISTAC.EQ.0) GOTO PRNT16
684  	J=J+2
694  PRNT16,	CALL BLDPIC
704  PRNT19,	INCR LISTI
714  	IF (LISTI.LE.LSTMAX) GOTO PRNT20
724  	IF (LISTI.GT.LSTMAX) GOTO PRINT7
734  	ERRCOL=1
744  	ERRCOD=16
754  	CALL FATAL
764  	GOTO PRINT7
774  PRNT20,	IF (LISTI.EQ.1) GOTO PRNT21
784  	IF (LISTFS.GT.0) GOTO PRNT21
794  	LISTFS=2
804  PRNT21,	LISTWN=1
814  	IF (LISTIS.NE.0) GOTO PRNT22
824  	LISTIS=DATAS
834  PRNT22,	PWIDTH=PWIDTH+LISTFS+LISTIS
844  	LISTER(LISTI)=LISTE
854  	GOTO PRINT7
864  ;
874  ; FILLER ITEM
884  ;
894  PRNT30,	CALL SCANF
904  	IF (ICHAR.EQ.'A') GOTO PRNT31
914  	ERRCOD=18
924  	CALL FATALB
934  PRNT31,	CALL GETINT
944  	IF (ATOMSZ.LE.2) GOTO PRNT32
954  	ERRCOD=18
964  	CALL FATALA
974  	GOTO PRNT7A
984  PRNT32,	K=NUMLIT(1,ATOMSZ)
994  	LISTFS=LISTFS+K
1004 	GOTO PRNT7A