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