USEPLOFRM (NAM=HP_A4H)
INDPRC   (NAM=FmtA4H_Q)
DFNPDF   (NAM=DRW(1), XOF=0, YOF=25+112.5, XSZ=90, YSZ=112.5)
DFNPDF   (NAM=DRW(2), XOF=90, YOF=25+112.5, XSZ=90, YSZ=112.5)
DFNPDF   (NAM=DRW(3), XOF=0, YOF=25, XSZ=90, YSZ=112.5)
DFNPDF   (NAM=DRW(4), XOF=90, YOF=25, XSZ=90, YSZ=112.5)
!USEPDF   (NAM=A4HDRW, DRW=N)
!DRWARW   (X1 =20, Y1 =112.5, X2 =160, Y2 =112.5, SPL=1.5, PEN=1, MOD=1, STR=BEAM, DIS=1)

MAG=.1
I=1
~PLA=ZX
TOL=.005
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR   (X  =15, Y  =105, STR='WORKING PLANE:', PEN=1, PTP=LI3P0)
DRWSPA
DRWSTR         , , ~PLA
DRWSTR   (X  =35, Y  =100, STR='AT 0 deg', PEN=1, PTP=LI2P5)
DRWPLY   (NAM=ACNO(I), ASC=Y, PEN=1, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=~PLA, SFA=15)
DRWPLY ACNO(I), , , TOL/2, MAG, , 4, , ~PLA, , , , , , 15
DRWPLY ACNO(I), , , -TOL/2, MAG, , 4, , ~PLA, , , , , , 15

GETVALS         (OBJ=ACNO(I), RDS=(D,E), REA=(MIN(I),MAX(I)), ICH=Y)
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR          30, 15, 'MIN DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MIN(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 11, 'MAX DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MAX(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 7, 'TOL.= +/-', 1, LS2P0
DRWSPA
DRWREA          (VAL=TOL/2, FM2=5, INT=N, ANG=N)

MAG=.1
I=2
~PLA=ZY
TOL=.005
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR   (X  =15, Y  =105, STR='WORKING PLANE:', PEN=1, PTP=LI3P0)
DRWSPA
DRWSTR         , , ~PLA
DRWSTR   (X  =35, Y  =100, STR='AT 90 deg', PEN=1, PTP=LI2P5)
DRWPLY   (NAM=ACNO(I), ASC=Y, PEN=1, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=~PLA, SFA=15)
DRWPLY ACNO(I), , , TOL/2, MAG, , 4, , ~PLA, , , , , , 15
DRWPLY ACNO(I), , , -TOL/2, MAG, , 4, , ~PLA, , , , , , 15

GETVALS         (OBJ=ACNO(I), RDS=(D,E), REA=(MIN(I),MAX(I)), ICH=Y)
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR          30, 15, 'MIN DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MIN(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 11, 'MAX DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MAX(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 7, 'TOL.= +/-', 1, LS2P0
DRWSPA
DRWREA          (VAL=TOL/2, FM2=5, INT=N, ANG=N)

MAG=.1
I=3
~PLA=ZX
TOL=.005
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR   (X  =15, Y  =105, STR='WORKING PLANE:', PEN=1, PTP=LI3P0)
DRWSPA
DRWSTR         , , ~PLA
DRWSTR   (X  =35, Y  =100, STR='AT 180 deg', PEN=1, PTP=LI2P5)
DRWPLY   (NAM=ACNO(I), ASC=Y, PEN=1, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=~PLA, SFA=15)
DRWPLY ACNO(I), , , TOL/2, MAG, , 4, , ~PLA, , , , , , 15
DRWPLY ACNO(I), , , -TOL/2, MAG, , 4, , ~PLA, , , , , , 15

GETVALS         (OBJ=ACNO(I), RDS=(D,E), REA=(MIN(I),MAX(I)), ICH=Y)
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR          30, 15, 'MIN DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MIN(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 11, 'MAX DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MAX(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 7, 'TOL.= +/-', 1, LS2P0
DRWSPA
DRWREA          (VAL=TOL/2, FM2=5, INT=N, ANG=N)

MAG=.1
I=4
~PLA=ZY
TOL=.005
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR   (X  =15, Y  =105, STR='WORKING PLANE:', PEN=1, PTP=LI3P0)
DRWSPA
DRWSTR         , , ~PLA
DRWSTR   (X  =35, Y  =100, STR='AT 270 deg', PEN=1, PTP=LI2P5)
DRWPLY   (NAM=ACNO(I), ASC=Y, PEN=1, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=~PLA, SFA=15)
DRWPLY   (NAM=ACNO(I), DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=~PLA, SFA=15)
DRWPLY ACNO(I), , , TOL/2, MAG, , 4, , ~PLA, , , , , , 15
DRWPLY ACNO(I), , , -TOL/2, MAG, , 4, , ~PLA, , , , , , 15

GETVALS         (OBJ=ACNO(I), RDS=(D,E), REA=(MIN(I),MAX(I)), ICH=Y)
USEPDF   (NAM=DRW(I), DRW=N)
DRWSTR          30, 15, 'MIN DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MIN(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 11, 'MAX DEV.=', 1, LS2P0
DRWSPA
DRWREA          (VAL=MAX(I), FM2=5, INT=N, ANG=N)
DRWSTR         30, 7, 'TOL.= +/-', 1, LS2P0
DRWSPA
DRWREA          (VAL=TOL/2, FM2=5, INT=N, ANG=N)

USEPDF A4HINF,N
DRWSTR   (X  =15, Y  =19, STR='MACHINE TEST CELL', PEN=1, PTP=LI2P5)
DRWSTR   (X  =9, Y  =14, STR='DRWG #:', PEN=1, PTP=LI2P5)
DRWSPA
DRWSTR   (STR=~DRWG)
DRWSTR   (X  =30, Y  =9, STR='SN:', PEN=1, PTP=LI2P5)
DRWSPA
DRWSTR   (STR=~SN)
DRWSTR   (X  =2, Y  =4, STR='VENDOR:', PEN=1, PTP=LI2P5)
DRWSPA
DRWSTR   (STR=~SUP)

USEPDF   (NAM=A4HNBR, DRW=N)
DRWSTR 2, 19, 'BLK = NOMINAL' , 1, LI2P0
DRWSTR   (X  =2, Y  =15, STR='RED = DEVIATIONS' , PEN=3, PTP=LI2P0)
DRWSTR 2, 11, 'GRN = TOLERANCE' , 4, LI2P0
DRWSTR 2, 7, 'INSP: K. CABAN' , 1, LI2P0
~DATE=_DATE
DRWSTR   (X  =2, Y  =3, STR=DATE:, PEN=1, PTP=LI2P0)
DRWSPA
DRWSTR   (STR=~DATE)