Directory of image this file is from
This file as a plain text file
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