// // PATCHVE.VDM - Patching VEDIT 5.04 with another *.TBL // // // Written by: Christian Ziemski Germany // // 03/04/1998 // Last modif. 05/08/1998 (variable TBL file) // // // This macro is patching VEDIT PLUS 5.04... with another ANSI.TBL (or *.TBL) and // replacing the default built-in EBCDIC.TBL. // // // Using: cd \VEDIT // or your VEDIT home // VEDIT -x patchve.vdm vedit.exe ansi.tbl // VEDIT -x patchve.vdm veditpw.exe ansi.tbl // // // >>>>>>> No warranty! <<<<<<<< (It works for me without problems.) // // Backup your current VEDIT*.EXE! // // The macro only patches the original VEDIT containing "EBCDIC". // // if(File_Size==0){ Get_Key("The 1. parameter must be the VEDIT-Exe!\n\nQuitting....") exit } if(Buf_Free==2){ Get_Key("The 2. parameter must be the TBL file!\n\nQuitting....") exit } BS(2) if(Is_new_File){ Get_Key("The 2. parameter must be the TBL file!\n\nQuitting....") exit } BS(1) Search("EBCDIC", NOERR) if (EM) { Get_Key("String 'EBCDIC' not found.\n\nThis VEDIT seems to be already patched!\n\nQuitting....") exit } // Here you can name your default conversion, but only max. 6 characters! // (It's for the status line help only.) // The conversion name for the menu is in the *.TBL itself. // Replace("EBCDIC", " ANSI ", BEGIN+ALL+NOERR) // please note the equal length !!! BOF Search("|000|001|002|003|000-./|022|005%|011|012") // The beginning of the EBCDIC table Buf_Switch(2) //File_Open("|(HOME)\ansi-z.tbl") // load new table //File_Open("|(HOME)\ansi.tbl") // load new table EOF Ins_Char(0, COUNT, 9) // for security BoF Reg_Copy_Block(11,0,521) // get table in correct length Buf_Quit(OK+MAINBUF) Del_Char(521) // delete old table Reg_Ins(11) // and insert new one XALL // ready