11 lines
4.4 KiB
JSON
11 lines
4.4 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount,Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', .25:@fm:.75:@fm:.25:@fm:.25, 0 ,0,PrintPath)\r\ngosub CheckErr\r\nFont = \"Times New Roman,18,C,1,,1\"\r\nconvert ',' to @fm in Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nVoid = set_printer( 'TEXT', @@window->text )\r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', '' )\r\n\r\nSpecialInst = .special_inst->text\r\nProveInInst = .provein_inst->text\r\nRecipeLimits = .recipe_limits->list\r\nRecipeLayerLimits = .recipe_layer_limits->list\r\nFont<2> = 16\r\nFont<6> = 0\r\nVoid = set_printer( 'FONT', Font )\r\n\r\nif SpecialInst <> '' then\r\n Font<2> = 16\r\n Font<3> = 'C'\r\n Font<4> = 1\r\n Void = set_printer( 'FONT', Font )\r\n Void = set_printer( 'TEXT', 'Special Instructions' )\r\n Table = ''\r\n Table<-1> = SpecialInst\r\n TableColInfo = '<+11520'\r\n Font<2> = 12 \r\n Font<3> = 'L' \r\n Font<4> = 0\r\n Void = set_printer( 'FONT', Font ) \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n Void = set_printer( 'TEXT', '' )\r\nend\r\n\r\nif ProveInInst <> '' then\r\n Font<2> = 16\r\n Font<3> = 'C'\r\n Font<4> = 1\r\n Void = set_printer( 'FONT', Font )\r\n Void = set_printer( 'TEXT', 'Prove-In Instructions' ) \r\n Table = ''\r\n Table<-1> = ProveInInst\r\n TableColInfo = '<+11520'\r\n Font<2> = 12 \r\n Font<3> = 'L' \r\n Font<4> = 0\r\n Void = set_printer( 'FONT', Font ) \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n Void = set_printer( 'TEXT', '' )\r\n Void = set_printer( 'TEXT', '' ) \r\nend\r\n\r\n* COLUMN HEADINGS FOR RECIPE LIMITS\r\nFont<2> = 16\r\nFont<3> = 'C'\r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', 'Recipe Limits' )\r\n\r\nFont<2> = 8 \r\nFont<3> = 'L' \r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\n\r\nTableColInfo = '^+9627':@vm:'^+1950'\r\nTable = ''\r\nTable<-1> = 'Adjustable Parameter':@vm:'Offsets'\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n\r\nTableColInfo = '^+906':@vm:'^+1007':@vm:'^+1167':@vm:'^+1007':@vm:'^+1007':@vm:'^+906':@vm:'^+906':@vm\r\nTableCOlInfo:= '^+906':@vm:'^+906':@vm:'^+906':@vm:'^+650':@vm:'^+650':@vm:'^+650'\r\nTable = ''\r\nTable = 'Deposit~Diluent~Dopant~HCL~Bake~H2~TCS~DCS~AUX1~AUX2~Front~Side~Rear'\r\nconvert '~' to @vm in Table\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n\r\nFont<2> = 7\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', RecipeLimits, '', '', 0, TB_ALL)\r\nFont<2> = 12\r\nVoid = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', '' ) \r\n\r\n* COLUMN HEADINGS FOR RECIPE LAYER LIMITS\r\nFont<2> = 16\r\nFont<3> = 'C'\r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', 'Recipe Layer Limits' )\r\n\r\nFont<2> = 8 \r\nFont<3> = 'C' \r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\nTableColInfo = '^+1440':@vm:'^+2880'\r\nTable = ''\r\nTable = 'Layer':@vm:'Adjustable Paramater'\r\nconvert '~' to @vm in Table\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL:@fm:'C')\r\n\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\nTableColInfo = '^+1440':@vm:'^+1440':@vm:'^+1440'\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', RecipeLayerLimits, '', '', 0, TB_ALL:@fm:'C')\r\n\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n"
|
|
}
|
|
}
|
|
} |