39 lines
602 B
Plaintext
39 lines
602 B
Plaintext
COMPILE ROUTINE FIX_SCAN_TOOL(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
$INSERT OIPRINT_EQUATES
|
|
|
|
EQU PI$LEFT TO 1
|
|
EQU PI$TOP TO 2
|
|
EQU PI$RIGHT TO 3
|
|
EQU PI$BOTTOM TO 4
|
|
EQU PI$WIDTH TO 5
|
|
EQU PI$HEIGHT TO 6
|
|
EQU PI$SIZE TO 7
|
|
|
|
DEBUG
|
|
OPEN 'SURF_SCAN_TOOL' TO FILE.IN THEN
|
|
READ TencoRec FROM FILE.IN,'Tencor' THEN
|
|
debug
|
|
WRITE TencoRec ON FILE.IN,'Tencor' ELSE NULL
|
|
|
|
END
|
|
END
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
|
|
*stat = Set_Printer("TERM",1)
|
|
|
|
RETURN
|