//(@) Christian's USER menu //(#) 14.01.2003 //(M) &User 8 Remove trailing spaces Save_Pos() Replace("|W|>","",ALL+NOERR+BEGIN) Restore_Pos() 9 execute HP 2 SYSTEM("hp 2", DOS+SIMPLE+OK) 8 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 +128 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+CONFIRM) 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) 15 Show/Set Text Marker 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(Cur_Line(),FILL+NOCR) M(" : ") #104=EoL_Pos Restore_Pos() if((Marker(#103)+20)<#104){#104=Marker(#103)+20} TB(Marker(#103),#104) TN()}} OR(0) RE(104) while(ALL){#105=DI1(104,"Show used/Jump to/Set Text Marker;Jump+E&xit,&Jump,&Set;Marker no.;|@(103)",@104,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} GP(Marker(#103)) U if(#105==1){break}}}} 1 +128 Search all - show/select CallF(122,"srchshow.vdm") 3 +128 Toggle Syntax Highlight Config(PG_E_SYNTAX,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"') 1 Vedit Directory ChDir("|(HOME)\") FO() 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") 0 Compare VEDIT's Macro directories EBG N_Option(2) RS(103,USER_MACRO) RS(103, " ", APPEND) RS(103, USER_MACRO, APPEND) RS(103, "-EBG", APPEND) CALL_File(100, "compdir.vdm") 0 Macro-Lister ChDir("|(USER_MACRO)\") Call_File(100, "XLIST-MC.VDM") 128 Reactivate .BAK file Call_File(100, "Rebak.vdm") 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") 22 +128 Save and Run program 1 #103=1 CallF(122,"runshell.vdm") 0 Save and Run current program #103=0 RS(103, '%COMSPEC% /C "## > vout"') CallF(122,"runshell.vdm") 0 Run current program RS(113, PATHNAME) System(`start("|@(113)")`, DOS)