8 Remove trailing spaces Save_Pos() Replace("|W|>","",ALL+NOERR+BEGIN) Restore_Pos() 14 Convert from Win-ANSI Translate_Load("c:\vedit\ansi.tbl") if(bb==-1){Eof Translate_Block(0,CP,REVERSE) Bof}else{if(BE==-1){BE(CP)} Translate_Block(BB,BE,REVERSE) GP(BB) } 16 Convert to Win-ANSI Translate_Load("c:\vedit\ansi.tbl") if(bb==-1){Eof Translate_Block(0,CP) Bof}else{if(BE==-1){BE(CP)} Translate_Block(BB,BE) GP(BB) } 9 execute HP 2 SYSTEM("hp 2", DOS+SIMPLE) 1 Insert date and time #99=BN OR(103) Date(NOCR+NOMSG) TS(2) Time(NOCR+NOMSG) OR(CLEAR) BS(33) BY(OK) RI(103) BOF R("-",".",ALL) RCB(103,3,6) DB(3,6) RCB(103,0,FSIZE,APPEND) BS(#99) RI(103) 1 Search for block if(BB!=-1) { RCB(0,BB,BE) BB(-1) Search("|@(0)",SET|BEGIN|CONFIRM) } else { Alert() Get_Key("NO BLOCK SET",STATLINE) } 6 Find Longest Line Message("Processing... (About 30 sec / Megabyte) -- Press to abort ",STATLINE) #103=#104=0 Begin_Of_File() while (! AT_EOF) { EOL() if (Cur_Col>#103) { #103=Cur_Col #104=Cur_Pos } Line(1,ERRBREAK) } Goto_Pos(#104) 1 No Highlight Config(PG_E_SYNTAX,0,LOCAL) 12 Additional Keyboard Call_File(100,"!KEY-LD") 1 Configuration Files File_Open("|(HOME)\startup.vdm, |(HOME)\USER.MNU, |(HOME)\VEDIT.CFG") 1 Vedit Directory ChDir("|(HOME)\") FO()