{
    "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"
        }
    }
}