

                22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 1   

					ERRORS.FOR.8        



        C

        C

        C	ERRORS  --  ERROR MESSAGES FOR MACRO-11 CALLED BY FORTRAN PROGRAMS

        C

        C

        C	COPYRIGHT (C) 1976,1977,1978

        C	DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

        C

        C	THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

        C	SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

        C	SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

        C	OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

        C	AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

        C	AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

        C	OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

        C

        C	THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

        C	NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

        C	EQUIPMENT CORPORATION.

        C

        C	DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

        C	SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

        C

        C

        C	K.D. MORSE  07-NOV-76

        C

        C

        C

        C

        C

        C	THIS SUBROUTINE WRITES OUT THE ERROR MESSAGE PROVIDED BY THE

        C	CALLER.  THESE MESSAGES CORRESPOND TO ERRORS INCURRED DURING

        C	THE USE OF THE FOLLOWING MACRO ROUTINES (CALLED FROM FORTRAN):

        C	BLDSWT,GETCML,GETVER,GETREC,PUTREC,SCANO,SCANI,SYNTX,MRKREC,PNTREC,

        C	OPNFIL AND CLSFIL.

        C

        C

        C

        C  MODIFICATIONS:

        C

        C NO.		DATE		AUTHOR		PURPOSE

        C --		----		------		-------

        C

        C 001		01-JAN-77	K.D. MORSE	ATTACH TERMINAL.

        C 002		22-MAR-78	K.D. MORSE	WRITE TO LUN 6 NOT 5.

        C						OTHERWISE BATCH JOBS FAIL.

        C



                22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 2   

					ERRORS.FOR.8        



        C

        C

        C  VARIABLES:

        C

        C

        C	BRCODE--ERROR CODE FOR SPECIFIC ERROR, USED AS A BRANCH VALUE

        C	BYTE1--ONE BYTE OF OUTPUT DATA

        C	BYTE2--ONE BYTE OF OUTPUT DATA

        C	DATLNG--LENGTH OF ASCII OUTPUT DATA

        C	ERRTYP--ERROR CODE FOR TYPE OF ERROR, USED AS A BRANCH VALUE

        C	INTG1--ONE INTEGER OF OUTPUT DATA

        C	OUTDAT--ASCII OUTPUT DATA

        C	PROMPT--ASCII PROMPT STRING FOR UTILITY

        C

        C

        C

        C

0001    	SUBROUTINE ERRORS(ERRTYP,BRCODE,PROMPT,OUTDAT,DATLNG,BYTE1,

        	1INTG1,BYTE2)

        C

        C

        C

0002    	INTEGER BRCODE,DATLNG,ERRTYP

0003    	BYTE PROMPT(3),OUTDAT(1),BYTE1(1),BYTE2(1)

        C

        C

        C

        C

        C	FORMAT STATEMENTS

        C

        C

        C

0004    11	FORMAT(' ',3A1,' -- INVALID ERROR TYPE OF ',I5)

        C

        C

        C	ERROR MESSAGES

        C

        C

        C

        C	COMMAND LINE ERRORS

        C

0005    9511	FORMAT(' ',3A1,' -- INIT PARSE COMMAND LINE ERROR CODE OF ',Z8)

0006    9551	FORMAT(' ',3A1,' -- END PARSE COMMAND LINE ERROR CODE OF ',Z8)

0007    9601	FORMAT(' ',3A1,' -- COMMAND LINE PARSE ERROR CODE OF ',Z8,

        	1' ON FILE ',<DATLNG>A1)

0008    9641	FORMAT(' ',3A1,' -- ERROR CODE OF ',Z8,

        	1' SETTING UP FILE ',<DATLNG>A1)

        C

        C	OPEN ERRORS

        C

0009    9661	FORMAT(' ',3A1,' -- NO ',<DATLNG>A1,' FILENAME OR DEFAULT'

        	1,' NAME SPECIFIED ON OPNFIL CALL')

0010    9671	FORMAT(' ',3A1,' -- UNABLE TO OPEN FILE ',<INTG1>A1,

        	1/T15,'MAXIMUM NUMBER OF FILES ALREADY OPEN')

0011    9681	FORMAT(' ',3A1,' -- ',<DATLNG>A1,' FILE CONTAINS ILLEGAL '

        	1,'SWITCH ON OPNFIL CALL')



ERRORS          22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 3   

					ERRORS.FOR.8        



0012    9691	FORMAT(' ',3A1,' -- UNABLE TO OPEN FILE ',<INTG1>A1,

        	1/T16,'DUE TO ILLEGAL OPEN CODE')

0013    9701	FORMAT(' ',3A1,' -- STANDARD SYSTEM OPEN ERROR CODE'

        	1,' OF ',I4,/T16'ON FILE ',<INTG1>A1)

0014    9711	FORMAT(' ',3A1,' -- INCORRECT SYNTAX IN:  ',<INTG1>A1)

0015    9721	FORMAT(' ',3A1,' -- UNABLE TO OPEN FILE ',<INTG1>A1)

        C

        C	CLOSE ERRORS

        C

0016    9731	FORMAT(' ',3A1,' -- UNABLE TO CLOSE FILE ',<DATLNG>A1,

        	1' AS IT WAS NOT OPEN')

0017    9741	FORMAT(' ',3A1,' -- UNABLE TO CLOSE AND DELETE FILE ',

        	1<DATLNG>A1)

0018    9751	FORMAT(' ',3A1,' -- UNABLE TO CLOSE AND SAVE FILE ',

        	1<DATLNG>A1)

0019    9761	FORMAT(' ',3A1,' -- UNABLE TO SPOOL FILE ',

        	1<DATLNG>A1/T15'STANDARD SYSTEM ERROR CODE/DIR. STATUS WORD =',I5)

0020    9771	FORMAT(' ',3A1,' -- UNABLE TO DELETE SPOOLED FILE ',

        	1<DATLNG>A1/T15'STANDARD SYSTEM ERROR CODE/DIR. STATUS WORD =',I5)

0021    9781	FORMAT(' ',3A1,' -- ILLEGAL STATUS OF ',I5,' FOR CLOSE')

0022    9782	FORMAT(' ',3A1,' -- UNABLE TO RELEASE TERMINAL CHANNEL')

0023    9783	FORMAT(' ',3A1,' -- UNABLE TO CLOSE FILE ',<DATLNG>A1)

        C

        C	READ/WRITE ERRORS

        C

0024    9791	FORMAT(' ',3A1,' -- UNABLE TO READ FILE ',<DATLNG>A1)

0025    9801	FORMAT(T16,'AS IT WAS NOT OPEN')

0026    9811	FORMAT(T16,'RECORD SIZE OF ',I4,' TOO LARGE FOR BUFFER')

0027    9821	FORMAT(' ',3A1,' -- UNABLE TO WRITE TO FILE ',<DATLNG>A1)

0028    9831	FORMAT(T16,'AS IT WAS NOT OPEN')

0029    9841	FORMAT(T16,'I/O STATUS BLOCK ERROR CODE = ',I5)

0030    9851	FORMAT(' ',3A1,' -- EOF ON FILE ',<DATLNG>A1)

        C

        C	MARK/POINT ERROR FORMATS

        C

0031    9861	FORMAT(' ',3A1,' -- UNABLE TO MARK FILE ',<DATLNG>A1)

0032    9871	FORMAT(' ',3A1,' -- UNABLE TO POINT TO FILE ',<DATLNG>A1)

0033    9891	FORMAT(T16,' AS FILE NOT CORRECTLY MARKED')

0034    9892	FORMAT(' ',3A1,' -- UNABLE TO MARK/POINT TO FILE ',<DATLNG>A1,

        	1/' ',T16,'AS EOF')

        C

        C	VERSION ERROR

        C

0035    9901	FORMAT(' ',3A1,' -- NO PREVIOUS VERSION OF FILE ',<DATLNG>

        	1A1,' EXISTS')

        C

        C	PROGRAM ERROR MESSAGE

        C

0036    9991	FORMAT(' ',3X,' -- INTERNAL SOFTWARE CONSISTENCY CHECK')



ERRORS          22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 4   

					ERRORS.FOR.8        



        C

        C	BRANCH ON TYPE OF ERROR:

        C		1--INIPRS

        C		2--ENDPRS

        C		3--COMMAND LINE FILE PARSE REQUESTS

        C		4--SETDEF

        C		5--OPNFIL

        C		6--CLSFIL

        C		7--GETREC/PUTREC

        C		8--MRKREC/PNTREC

        C		9--GETVER

        C

0037    	GOTO (100,200,300,400,500,600,700,800,900),-ERRTYP

0038    	WRITE(6,11)PROMPT,ERRTYP

0039    	GOTO 1000

        C

        C

        C

        C	MACRO ROUTINE ERRORS

        C

        C

        C

        C	INIPRS ERRORS

        C

        C		PARAMETERS=PROMPT,BRCODE

        C

0040    100	WRITE(6,9511)PROMPT,BRCODE

0041    	GOTO 1000

        C

        C

        C	ENDPRS ERRORS

        C

        C

        C

        C		 PARAMETERS=PROMPT,BRCODE

0042    200	WRITE(6,9551)PROMPT,BRCODE

0043    	GOTO 1000

        C

        C

        C	COMMAND LINE -- FILE SPEC PARSING ERRORS

        C

        C

        C

        C

        C		PARAMETERS=PROMPT, BRCODE, TYPE OF FILE, LENGTH OF TYPE OF FILE

        C				(TYPE OF FILE=INPUT, OUTPUT, COMPARE, CORRECTION, ETC.)

        C

0044    300	WRITE(6,9601)PROMPT,BRCODE,(OUTDAT(I),I=1,DATLNG)

0045    	GOTO 1000

        C

        C

        C	SETDEF ERRORS

        C

        C

        C

        C			PARAMETERS=PROMPT, ILLEGAL LENGTH SPECIFIED



ERRORS          22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 5   

					ERRORS.FOR.8        



        C

0046    400	WRITE(6,9641)PROMPT,BRCODE,(OUTDAT(I),I=1,DATLNG)

0047    	GOTO 1000

        C

        C

        C	OPEN FILE ERRORS

        C

        C

        C

        C		-1--NO FILENAME OR DEFAULT NAME SPECIFIED

        C			PARAMETERS=PROMPT, TYPE OF FILE, LENGTH OF TYPE OF FILE

        C		-2--UNABLE TO OPEN FILE AS FOUR FILES ALREADY OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-3--FILE SPECIFICATION CONTAINS SWITCH

        C			PARAMETERS=PROMPT, TYPE OF FILE, LENGTH OF TYPE OF FILE

        C		-4--INVALID OPEN CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-5--STANDARD SYSTEM ERROR CODE ON OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION, ERROR CODE

        C		-6--INVALID FILE SPECIFICATION SYNTAX

        C			PARAMETERS=PROMPT,PART IN ERROR, LENGTH OF PART IN ERROR

        C		-7--UNABLE TO OPEN FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0048    500	GOTO (9660,9670,9680,9690,9700,9710,9720),-BRCODE

0049    9660	WRITE(6,9661)PROMPT,(OUTDAT(J),J=1,DATLNG)

0050    	GOTO 1000

0051    9670	WRITE(6,9671)PROMPT,(BYTE1(J),J=1,INTG1)

0052    	GOTO 1000

0053    9680	WRITE(6,9681)PROMPT,(OUTDAT(J),J=1,DATLNG)

0054    	GOTO 1000

0055    9690	WRITE(6,9691)PROMPT,(BYTE1(J),J=1,INTG1)

0056    	GOTO 1000

0057    9700	WRITE(6,9701)PROMPT,BYTE2,(BYTE1(J),J=1,INTG1)

0058    	GOTO 1000

0059    9710	WRITE(6,9711)PROMPT,(BYTE1(I),I=1,INTG1)

0060    	GOTO 1000

0061    9720	WRITE(6,9721)PROMPT,(BYTE1(J),J=1,INTG1)

0062    	GOTO 1000

        C

        C

        C	CLOSE ERRORS

        C

        C

        C

        C		-1--UNABLE TO CLOSE FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-2--UNABLE TO CLOSE AND DELETE FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-3--UNABLE TO CLOSE AND SAVE FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C		-4--UNABLE TO SPOOL FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION, ERROR CODE

        C		-5--UNABLE TO DELETE SPOOLED FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION, ERROR CODE

        C		-6--ILLEGAL CLOSE CODE



ERRORS          22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 6   

					ERRORS.FOR.8        



        C			PARAMETERS=PROMPT, CLOSE CODE

        C		-7--UNABLE TO RELEASE TERMINAL CHANNEL

        C			PARAMETERS=PROMPT

        C		-8--UNABLE TO CLOSE FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0063    600	GOTO (9730,9740,9750,9760,9770,9780,9790,9795),-BRCODE

0064    9730	WRITE(6,9731)PROMPT,(OUTDAT(J),J=1,DATLNG)

0065    	GOTO 1000

0066    9740	WRITE(6,9741)PROMPT,(OUTDAT(J),J=1,DATLNG)

0067    	GOTO 1000

0068    9750	WRITE(6,9751)PROMPT,(OUTDAT(J),J=1,DATLNG)

0069    	GOTO 1000

0070    9760	WRITE(6,9761)PROMPT,(OUTDAT(J),J=1,DATLNG)

0071    	GOTO 1000

0072    9770	WRITE(6,9771)PROMPT,(OUTDAT(J),J=1,DATLNG)

0073    	GOTO 1000

0074    9780	WRITE(6,9781)PROMPT,INTG1

0075    	GOTO 1000

0076    9790	WRITE(6,9782)PROMPT

0077    	GOTO 1000

0078    9795	WRITE(6,9783)PROMPT,(OUTDAT(J),J=1,DATLNG)

0079    	GOTO 1000

        C

        C

        C

        C	READ/WRITE ERRORS

        C

        C		 0--EOF ON FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-1--UNABLE TO READ FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-2--UNABLE TO READ FILE AS RECORD TOO LARGE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH, RECORD SIZE

        C		-3--UNABLE TO READ FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH, ERROR CODE

        C		-4--UNABLE TO WRITE TO FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-5--UNABLE TO WRITE TO FILE DUE TO STANDARD SYSTEM ERROR CODE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH, ERROR CODE

        C		-6--UNABLE TO WRITE TO FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C		-7--UNABLE TO READ FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, FILE SPECIFICATION LENGTH

        C

0080    700	GOTO (9800,9810,9820,9830,9840,9845,9850),-BRCODE

0081    	WRITE(6,9851)PROMPT,(OUTDAT(J),J=1,DATLNG)

0082    	GOTO 1000

0083    9800	WRITE(6,9791)PROMPT,(OUTDAT(J),J=1,DATLNG)

0084    	WRITE(6,9801)

0085    	GOTO 1000

0086    9810	WRITE(6,9791)PROMPT,(OUTDAT(J),J=1,DATLNG)

0087    	WRITE(6,9811)INTG1

0088    	GOTO 1000

0089    9820	WRITE(6,9791)PROMPT,(OUTDAT(J),J=1,DATLNG)

0090    	WRITE(6,9841)BYTE1



ERRORS          22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 7   

					ERRORS.FOR.8        



0091    	GOTO 1000

0092    9830	WRITE(6,9821)PROMPT,(OUTDAT(J),J=1,DATLNG)

0093    	WRITE(6,9831)

0094    	GOTO 1000

0095    9840	WRITE(6,9821)PROMPT,(OUTDAT(I),I=1,DATLNG)

0096    	WRITE(6,9841)BYTE1

0097    	GOTO 1000

0098    9845	WRITE(6,9821)PROMPT,(OUTDAT(I),I=1,DATLNG)

0099    	GOTO 1000

0100    9850	WRITE(6,9791)PROMPT,(OUTDAT(I),I=1,DATLNG)

0101    	GOTO 1000

        C

        C	MARK/POINT ERRORS

        C

        C

        C		 0--UNABLE TO MARK/POINT AS EOF

        C		-1--UNABLE TO MARK FILE AS NOT OPEN

        C		-2--UNABLE TO MARK FILE

        C		-3--UNABLE TO POINT TO FILE AS INVALID MARK DATA

        C		-4--UNABLE TO POINT TO FILE AS NOT OPEN

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0102    800	GOTO (9860,9870,9880,9890),-BRCODE

0103    9860	WRITE(6,9861)PROMPT,(OUTDAT(I),I=1,DATLNG)

0104    	WRITE(6,9801)

0105    	GOTO 850

0106    9870	WRITE(6,9861)PROMPT,(OUTDAT(I),I=1,DATLNG)

0107    	GOTO 850

0108    9880	WRITE(6,9871)PROMPT,(OUTDAT(I),I=1,DATLNG)

0109    	WRITE(6,9891)

0110    	GOTO 850

0111    9890	WRITE(6,9871)PROMPT,(OUTDAT(I),I=1,DATLNG)

0112    	WRITE(6,9801)

0113    850	WRITE(6,9991)PROMPT

0114    	GOTO 1000

        C

        C	VERSION ERRORS

        C

        C

        C

        C		-1--NO PREVIOUS VERSION OF FILE

        C			PARAMETERS=PROMPT, FILE SPECIFICATION, LENGTH OF FILE SPECIFICATION

        C

0115    900	WRITE(6,9901)PROMPT,(OUTDAT(I),I=1,DATLNG)

0116    	GOTO 1000

0117    1000	RETURN

0118    	END



ERRORS          22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 8   

					ERRORS.FOR.8        



PROGRAM SECTIONS



    Name                 Bytes   Attributes



  0 $CODE                 2805   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG

  1 $PDATA                1696   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

  2 $LOCAL                  92   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      ERRORS         





VARIABLES



    Address  Type Name               Address  Type Name               Address  Type Name               Address  Type Name           



 AP-00000008@ I*2 BRCODE           2-00000004@ I*2 DATLNG          AP-00000004@ I*2 ERRTYP           2-00000000  I*2 I              

  2-00000008@ I*2 INTG1            2-00000002  I*2 J              





ARRAYS



    Address  Type Name		       Bytes  Dimensions



 AP-00000018@ L*1 BYTE1                    1  (1)

 AP-00000020@ L*1 BYTE2                    1  (1)

 AP-00000010@ L*1 OUTDAT                   1  (1)

 AP-0000000C@ L*1 PROMPT                   3  (3)





LABELS



    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   



  1-00000000  11'       0-00000085  100       0-000000B2  200       0-000000DF  300       0-0000012E  400       0-0000017D  500     

  0-00000380  600       0-00000586  700       0-00000850  800       0-000009B2  850       0-000009D4  900       0-00000A18  1000    

  1-00000026  9511'     1-0000005C  9551'     1-00000091  9601'     1-000000D4  9641'     0-00000193  9660      1-0000010C  9661'   

  0-000001D8  9670      1-0000015A  9671'     0-0000021D  9680      1-000001AC  9681'     0-00000262  9690      1-000001F1  9691'   

  0-000002A7  9700      1-00000237  9701'     0-000002F6  9710      1-00000280  9711'     0-0000033B  9720      1-000002AB  9721'   

  0-00000398  9730      1-000002D4  9731'     0-000003DD  9740      1-00000313  9741'     0-00000422  9750      1-00000348  9751'   

  0-00000467  9760      1-0000037B  9761'     0-000004AC  9770      1-000003D9  9771'     0-000004F1  9780      1-00000440  9781'   

  1-0000046E  9782'     1-0000049E  9783'     0-0000051E  9790      1-000004C8  9791'     0-00000541  9795      0-000005E1  9800    

  1-000004F1  9801'     0-0000063C  9810      1-00000508  9811'     0-000006A1  9820      1-00000535  9821'     0-00000706  9830    

  1-00000562  9831'     0-00000761  9840      1-00000579  9841'     0-000007C6  9845      0-0000080B  9850      1-0000059E  9851'   

  0-00000860  9860      1-000005BF  9861'     0-000008BB  9870      1-000005E8  9871'     0-00000900  9880      0-0000095A  9890    

  1-00000615  9891'         **      9892'     1-00000637  9901'     1-00000671  9991'   





Total Space Allocated = 4593 Bytes





COMPILER OPTIONS



ERRORS          22-Aug-1978 02:34:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 9   

					ERRORS.FOR.8        





/CHECK=(NOBOUNDS,OVERFLOW)

/DEBUG=(NOSYMBOLS,TRACEBACK)

/OPTIMIZE  /WARNINGS  /NOI4  /NOD_LINES  

