8
Remove trailing spaces
Save_Pos() Replace("|W|>","",ALL+NOERR+BEGIN) Restore_Pos()
8
Insert date and time
#99=BN OR(103) Date(NOCR+NOMSG) TS(2) Time(NOCR+NOMSG) OR(CLEAR) BS(XBUF1) BY(OK) RI(103) BOF R("-",".",ALL) RCB(103,3,6) DB(3,6) RCB(103,0,FSIZE,APPEND) BS(#99) RI(103)
0
Insert date and time (SYSFORM)
#103=Buf_Num BS(Buf_Free(EXTRA)) OI() Date(NOMSG+NOCR) Time(NOMSG+NOCR) OI(CLEAR) BoF RCB(103, CP+6, CP+10, DELETE) RI(103) R("-", "", BEGIN+ALL) R(" {[0-9]}:", "0\1:", BEGIN+ALL+REGEXP) R(":", "", BEGIN+ALL) R(" ", "", BEGIN+ALL+NOERR) RCB(103, 0, File_Size, DELETE) BQ(OK) BS(#103) RI(103)
1 + 128
Print with left margin 10
#100=Config(P_LEFT_MARG) Config(P_LEFT_MARG,10) Save_Pos() if(BB==-1){BoF Print(ALL)} else {Print_Block(BB,BE)} Print_Finish Restore_Pos() Config(P_LEFT_MARG,#100) 
1
HP4SiMX as current printer
Config_String(Pr_W_Current,"\\NTSV1\HP4SiMX")
3
Reset to default printer
Config_String(Pr_W_Current,"")
3
Edit PRINT.VDM
File_Open("|(HOME)\PRINT.VDM")
11 +128
Show Text Markers
OR(103) M("  No.   Line     Text\n------------------------------------------------------------------------------------\n") for(#103=0;#103<10;#103++){if(Marker(#103)!=-1){NT(#103,NOCR) M(" : ") Save_Pos() GP(Marker(#103)) NT(CL(),FILL+NOCR) M(" :  ") #104=EoL_Pos Restore_Pos() if((Marker(#103)+30)<#104){#104=Marker(#103)+30} TB(Marker(#103),#104) TN()}} OR(0) RE(104) while(ALL){#105=DI1(104,"'Used Text Markers','|@(103)','??Jump to marker no.:   '",SCREEN+CENTER,0,0) #104=BN #103=BF(EXTRA) if(#103==-1){Alert() BS(#104) break} if(#105==0 || Reg_Size(104)==0){break} BS(#103) RI(104,BEGIN) #103=NE() BQ(OK) BS(#104) if(Chars_Matched>0){if(#103>=0 && #103<10){if(#105==3){SM(#103, CP) break} if(#105==4){SM(#103,-1) break }else{GP(Marker(#103)) U if(#105==1){break}}}}}
1
Word count
#100=Win_Num Save_Pos M("Counting Words in File.  Please Wait...",STATLINE) #101=Search("|S|A",COUNT+NOERR+BEGIN,ALL) Restore_Pos Win_Switch(STATLINE) Win_Clear()  M("Word count = ")  Num_Type(#101,NOCR) Get_Key(".  Press any key...",NOCANCEL) Win_Switch(#100)
6
Find Repeated words
Search("{[a-zA-Z]+} +\1|{[a-zA-Z]+} *\N\2",REGEXP+ADVANCE+CONFIRM+NOERR)
6
Find Longest line
Message("Processing... (About 30 sec / Megabyte) -- Press <Ctrl-C> 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)
8
Insert Filename
Out_Ins PATHNAME Out_Ins(CLEAR)
0
ClipboardFeeder
Call_File(100,"CLIPFEED.VDM")
0
Compare VEDIT's Macro directories
N_Option(2) RS(103,MACRO) RS(103, " ", APPEND) RS(103, USER_MACRO, APPEND) CALL_File(100, "compdir.vdm")
12+128
Reactivate BAK
CallF(100, "rebak")
0
FileVersion Menu
Call_File(100, "FileVers.vdm")
0
FileVersion: Save as new version
#120='S' Call_File(100, "FileVers.vdm")
0
FileVersion: get old version
#120='G' Call_File(100, "FileVers.vdm")
1+128
Zoom all windows 
Num_Push(96,99) WCre(WF(),0,0,0,0) #98=WinW #99=WinH WDel(WN) #97=1 #96=WT while(#96>0){if(WinStatus(#97)>0){WM(#97,0,0,#98,#99) #96--} #97++} Num_Pop(96,99)
1
Highlight
Config(PG_E_SYNTAX,1,LOCAL)
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)\ustartup.vdm |(USER_MACRO)\USER.MNU |(USER_MACRO)\TOOLS.MNU |(HOME)\VEDIT.CFG |(HOME)\VEDIT.KEY |(HOME)\VEDIT.INI', ATTACH)
1
Vedit Directory
ChDir("|(HOME)\") DOV("\ME\FO")
1
User-Macro Directory
ChDir("|(USERMACRO)\") DOV("\ME\FO")
0
Compare Macro directories
N_Option(2) RS(103,MACRO) RS(103, ' ', APPEND) RS(103,USER_MACRO, APPEND) CALL_File(100, "compdir.vdm")
22 +128
Save and Run program 1
#103=1 CallF(122,"runshell.vdm")
1
Toggle Debug Mode ON
#91=BN BS(BF) RS(91,'Toggle Debug Mode') RI(124,BEGIN) if(#90==12345){#90=0  R("|<|@(91)|Y|>","|@(91) ON")}else{#90=12345 R("|<|@(91)|Y|>","|@(91) OFF")} RE(91) BoF RC(124,ALL) BQ(OK) BS(#91)