Replace("/","\",BEGIN+ALL+NOERR)
Config( CO_W_LINE, "Color for cursor line (override)", 96 )
FS(NOMSG)
BoF
Config(S_H_CR_LINE,"Highlight Cursor Line (0-2)",1)

// Zeile löschen
Key_Add("F9",  '[VISUAL EXIT] if(BN==1){ BOL DL(1)}',OK)
// Zeile zurück
Key_Add("F10", '[VISUAL EXIT] Line(-1)',OK)
// Zeile vor
Key_Add("F11", '[VISUAL EXIT] Line(1)',OK)
// Datei aus dieser Zeile anzeigen
Key_Add("F12", '[VISUAL EXIT] if(BN==1){RS(89,/"/) RCB(89,BoL_Pos, EoL_Pos, APPEND) RS(89,/"/,APPEND) #90=FEXIST("|@(89)", NOERR) if(#90==0){Alert() Return} if(#90>1){#91=Get_Filename(90,@89) RS(89,@90)} if((#90==1)||(#91>2)){BS(Buf_Next,EVENT) FO(/|@(89)/) #89=BN}}else{if ((BN!=1)&&(BN<32)){BQ(MAINBUF) Config(S_H_CR_LINE,"Highlight Cursor Line (0-2)",1)}}',OK)

// Dateiinfo anzeigen
Key_Add("Ctrl-F12", '[VISUAL EXIT] if(BN==1){RS(89,/"/) RCB(89,BoL_Pos, EoL_Pos, APPEND) RS(89,/"/,APPEND) #90=FEXIST("|@(89)", NOERR) if(#90==0){Alert() Return} if(#90>1){#91=Get_Filename(90,@89) RS(89,@90)} RS(13,@89) } else {RS(13,/"|(PATHNAME)"/)} #99=BN sys(/dir |@(13) > c:\tmp\xback.fil/,DOS+SIMPLE+OK) BS(33) BY(OK) ins_file("c:\tmp\xback.fil", 1,MAXNUM,NOMSG) BoF DL(5) DC(12) R("|W","",NOERR) S("|{a,p} ",ADVANCE) IN(2) BoF RC(12,3) DI1(1,"'File-Info','??|@(12)'",SUPPRESS+SCREEN+CENTER,0,0) BS(#99)',OK)

// Batchdatei erzeugen
Key_Add("Alt-F12", '[VISUAL EXIT] FS() BoF IT("del c:\tmp\xbacka2.bat > nul") IN(1) while(! AT_EoF){EoL S("\",REVERSE) RCB(11,BoL_Pos+2,CP) BoL IT(/xcopy "/) EoL IT(/" "A:/) RI(11) IT(^\" /I^) rcb(99,BoL_Pos,Eol_Pos) IN(1) IT("if errorlevel 5 echo ") RI(99) IT(">> c:\tmp\xbacka2.bat")   Line(1)} FSA("c:\tmp\xbacka.bat",OK) BoF Visual_Macro(NOMSG)',OK)



//Key_Add("Ctrl-F12", '[VISUAL EXIT] #99=BN sys("c:\mks\mksnt\ls -l |(PATHNAME) > c:\tmp\xback.fil",DOS+SIMPLE+OK) BS(33) BY(OK) ins_file("c:\tmp\xback.fil", 1,MAXNUM,NOMSG) BoF DC(29) R("|W","",NOERR) RC(12,1) Statline_message("|@(12)") BS(#99)',OK)