//(@) Christian's USER menu //(#) 01.05.2004 //(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 Out_Reg(120) Date(NOCR+NOMSG) Type_Space(2) Time(NOCR+NOMSG) Out_Reg(CLEAR) Reg_Ins(120,OVERWRITE*!Insert_Mode) 0 Insert date and time (SYSFORM) OI() Date(REVERSE+NOMSG+NOCR+VALUE, 0) M("-") Time(NOMSG+NOCR) OI(CLEAR) Replace_Block(":","",CP-6,CP, BEGIN+ALL) Char(2) 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 +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}}}} 8 Insert Filename Out_Ins PATHNAME Out_Ins(CLEAR) 0 ClipboardFeeder Call_File(100,"CLIPFEED.VDM") 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)\USER-EBG.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 NEW N_Option(2) RS(103,USER_MACRO) RS(103, " ", APPEND) RS(103, USER_MACRO, APPEND) RS(103, "-NEW", APPEND) CALL_File(100, "compdir.vdm") 0 Compare VEDIT's Compile directories NEW N_Option(2) RS(103,HOME) RS(103, "\COMPILE ", APPEND) RS(103,HOME, APPEND) RS(103, "\COMPILE.NEW", APPEND) CALL_File(100, "compdir.vdm") 0 Macro-Lister ChDir("|(USER_MACRO)\") Call_File(100, "XLIST-MC2.VDM") 128 Reactivate .BAK file Call_File(100, "|(USER_MACRO)\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)