constant kHackedSerialPort:="slt2";

InstallScript := func( partFrame,removeframe )
begin

if getroot().|TeleTypeGPS:TeleTypesetting| then begin
	getroot().|TeleTypeGPS:TeleTypesetting|.HackedSerialPort:="extr";
	getroot().|TeleTypeGPS:TeleTypesetting|.MBuildConfigOptions:=
	func() begin
		local Local1;
		Local1 := [{label: "aser", type: 'service, opCode: 512, result: nil},
			 {label: "schp", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [kHackedSerialPort, 0], typeList: ['struct, ['Array, 'char, 4], 'ulong]}}, 
			 {label: "siop", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [0, 0, 8, 4800], typeList: ['struct, 'long, 'long, 'long, 'long]}}, 
			 {label: "iflc", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [$\11, $\13, nil, nil, 0, 0], 
			 typeList: ['struct, 'char, 'char, 'boolean, 'boolean, 'boolean, 'boolean]}}, 
			 {label: "oflc", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [$\11, $\13, nil, nil, 0, 0], 
			 typeList: ['struct, 'char, 'char, 'boolean, 'boolean, 'boolean, 'boolean]}}]
		end; end;
	else begin
		addDelayedCall(func () begin
		if getroot().|TeleTypeGPS:TeleTypesetting| then begin
		getroot().|TeleTypeGPS:TeleTypesetting|.HackedSerialPort:="extr";
		getroot().|TeleTypeGPS:TeleTypesetting|.MBuildConfigOptions:=
	func() begin
		local Local1;
		Local1 := [{label: "aser", type: 'service, opCode: 512, result: nil},
			 {label: "schp", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [kHackedSerialPort, 0], typeList: ['struct, ['Array, 'char, 4], 'ulong]}}, 
			 {label: "siop", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [0, 0, 8, 4800], typeList: ['struct, 'long, 'long, 'long, 'long]}}, 
			 {label: "iflc", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [$\11, $\13, nil, nil, 0, 0], 
			 typeList: ['struct, 'char, 'char, 'boolean, 'boolean, 'boolean, 'boolean]}}, 
			 {label: "oflc", type: 'option, opCode: 512, result: nil, form: 'template, 
			 data: {argList: [$\11, $\13, nil, nil, 0, 0], 
			 typeList: ['struct, 'char, 'char, 'boolean, 'boolean, 'boolean, 'boolean]}}];
		end; end;else getroot():Notify(kNotifyQAlert, "TeleTypeHack", "Teletype doesn't seem to be installed");end,nil,15000);
		end;	
		

end;

RemoveScript := func( removeFrame )
begin

if getroot().|TeleTypeGPS:TeleTypesetting| then 
	removeslot(getroot().|TeleTypeGPS:TeleTypesetting|,'MBuildConfigOptions);
if getroot().|TeleTypeGPS:TeleTypesetting| then 
	removeslot(getroot().|TeleTypeGPS:TeleTypesetting|,'HackedSerialPort);
	
    
end