8 ;***************************************
18 ; SOURCE  PRINT8
28 ;***************************************
38 ;
48 ;GENERATE INITIAL CODE
58 ;
68 PROCI,	PRGLIN='PROC 1  ;'
78 	CALL PROCI9
88 	CALL PUTBL
98 	PRGSTM='XXHDAT=XXDATE, XX/XX/XX'
108 	PRGSTM(15,15)=SQUOTE
118 	PRGSTM(24,24)=SQUOTE
128 	PLSIZ=32
138 	CALL PUTPL
148 	IF (FILNAM.NE.SPACE6) GOTO PROCI2
158 	PRGSTM='DISPLAY (0,0, FILE NAME:  )'
168 	PRGSTM(14,14)=SQUOTE
178 	PRGSTM(26,26)=SQUOTE
188 	PLSIZ=35
198 	CALL PUTPL
208 	PRGSTM='ACCEPT (XXLEVX,XXFILE)'
218 	PLSIZ=30
228 	CALL PUTPL
238 PROCI2,	PRGSTM='INIT (1,IN,XXFILE,XXUNIT)'
248 	PLSIZ=33
258 	CALL PUTPL
268 	PRGSTM='XMIT (1,XXINPR,XXNOD)'
278 	PLSIZ=29
288 	CALL PUTPL
298 	PRGSTM='INIT (2,LPT)'
308 	PLSIZ=20
318 	CALL PUTPL
328 	PRGSTM=CALLER(6)
338 	PRGLIN(19,19)='T'
348 	IF (ACNUM.NE.0) GOTO PROCI5
358 	IF (TOPLEV.GT.1) GOTO PROCI4
368 	PRGSTM=CALLER(5)
378 	GOTO PROCI5
388 PROCI4,	PRGLIN(19,19)=HIBRK
398 PROCI5,	PLSIZ=19
408 	CALL PUTPL
418 	CALL PUTBL
428 	PRGLIN='XXREAD, XMIT (1,XXINPR,XXEOF)'
438 	PLSIZ=29
448 	GOTO PUTPL
458   
468 PROCI9,	PRGLIN(10,15)=PROGID
478 	PRGLIN(17,17)='-'
488 	PRGLIN(19,42)=AUTHOR
498 	PLSIZ=42
508 	GOTO PUTPL
518 ;
528 ; GENERATE BREAK COMPARISONS
538 ;
548 PUTBRC,	IF (TOPLEV.LE.1) GOTO PTBRC6
558 	CALL PUTBL
568 	IF (ACNUM.EQ.0) GOTO PTBRC0
578 	PRGSTM='XXLEVX='
588 	PRGLIN(16,16)=TOPLEV-1
598 	PLSIZ=16
608 	CALL PUTPL
618   
628 PTBRC0,	I=9
638 PTBRC1,	IF (LEVELS(I).EQ.SPACE) GOTO PTBRC5
648 	IF (LEVELS(I).EQ.HIBRK) GOTO PTBRC2
658 	IF (ACNUM.EQ.0) GOTO PTBRC2
668 	PRGLIN(9,23)='XXLEVX=XXLEVX-1'
678 	PLSIZ=23
688 	CALL PUTPL
698 PTBRC2,	J=1
708 PTBRC3,	DATANE=DATANT(J)
718 	IF (DATALV.NE.I) GOTO PTBRC4
728 	PRGSTM='IF (XXXXXX.NE.XX0000) GOTO XXBRKP'
738 	PRGLIN(13,18)=DATANM
748 	PRGLIN(25,25)=I(3,3)
758 	DESCRP=J
768 	CALL BLDESC
778 	PRGLIN(26,28)=DESCRP
788 	PLSIZ=41
798 	CALL PUTPL
808 PTBRC4,	INCR J
818 	IF (J.LE.NAMEI) GOTO PTBRC3
828 PTBRC5,	I=I-1
838 	IF (I.GT.0) GOTO PTBRC1
848 PTBRC6,	PRGSTM=CALLER(5)
858 	PLSIZ=19
868 	GOTO PUTPL
878 ;
888 ; GENERATE COMPUTATION
898 ;
908 PUTCMP,	CALL PUTBL
918 	PRGLIN='XXCOMP,'
928 	IF (COMPI.LE.0) GOTO PTCM0E
938 	I=1
948 PTCM0A,	PRGSTM=COMPT(I)
958 	PLSIZ=126
968 PTCM0B,	IF (PRGLIN(PLSIZ,PLSIZ).NE.SPACE) GOTO PTCM0C
978 	PLSIZ=PLSIZ-1
988 	IF (PLSIZ.GT.8) GOTO PTCM0B
998 	GOTO PTCM0D
1008 PTCM0C,	CALL PUTPL
1018 PTCM0D,	INCR I
1028 	IF (I.LE.COMPI) GOTO PTCM0A
1038   
1048 PTCM0E,	IF (ACNUM.LE.0) GOTO PTCMP2
1058 	J=1
1068 PTCMP1,	LISTE=LISTER(J)
1078 	IF (LISTAC.EQ.0) GOTO PTCM1A
1088 	PRGSTM='XXAC00(1)=XXAC00(1)+'
1098 	CALL BLDESB
1108 	PRGLIN(13,14)=DESCRP
1118 	PRGLIN(23,24)=DESCRP
1128 	DATANE=DATANT(LISTID)
1138 	PRGLIN(29,34)=DATANM
1148 	PLSIZ=34
1158 	CALL PUTPL
1168 PTCM1A,	INCR J
1178 	IF (J.LE.LISTI) GOTO PTCMP1
1188   
1198 PTCMP2,	IF (SUMARY.NE.SPACE) GOTO PTCMP5
1208 	I=1
1218 PTCMP3,	LISTE=LISTER(I)
1228 	DATANE=DATANT(LISTID)
1238 	IF (DATALV.EQ.0) CALL PUTMOV
1248 	INCR I
1258 	IF (I.LE.LISTI) GOTO PTCMP3
1268   
1278 	CALL CALTOF
1288 	PRGSTM=CALLER(8)
1298 	PLSIZ=19
1308 	CALL PUTPL
1318 PTCMP5,	PRGSTM=CALLER(7)
1328 	PLSIZ=19
1338 	GOTO PUTPL