useful shell utility for Caprice (wxBasic)

[Nitro Furano]

I'm sending a shell .dsk runner for Caprice (or any other dos shell situations after editing that script, which i coded on wxBasic (http://wxbasic.sf.net))

[code]
Dim fnam$="":frame=new wxFrame(Nothing,-1,"Caprice .dsk loader",wxPoint(0,0),wxSize(292,76),wxSIMPLE_BORDER|wxCAPTION|wxSYSTEM_MENU|wxMINIMIZE_BOX)
  frame.Centre():panel=new wxPanel(frame, -1)
  filetxc=new wxTextCtrl(panel,-1,"", wxPoint(4,4), wxSize(192,20))
  openbtn=new wxButton(panel,wxEVT_COMMAND_BUTTON_CLICKED,"Choose...",wxPoint(200,4),wxSize(80,20))
  makebtn=new wxButton(panel,wxEVT_COMMAND_BUTTON_CLICKED,"Run",wxPoint(200,26),wxSize(80,20))
  Dim fdlog=new wxFileDialog(frame)
Sub onFileOpen(event)
       fdlog.SetMessage("Open .dsk File"):fdlog.SetStyle(wxOPEN):fdlog.SetWildcard("*.dsk")
  If fdlog.ShowModal()=wxID_OK Then
       fpath$=fdlog.GetPath():filetxc.SetLabel(fpath$):tpath$=fpath$
    While Instr(tpath$,"\\")
       pos=Instr(tpath$,"\\"):plen=Len(tpath$):tpath$=right$(tpath$,plen-pos):Wend:fnam$=tpath$
   End If
End Sub
   Connect(openbtn,wxEVT_COMMAND_BUTTON_CLICKED,"onFileOpen")
Sub writedes(event)
   txsh$="cap32.exe "& filetxc.GetValue():Shell(txsh$)
End Sub
   Connect(makebtn,wxEVT_COMMAND_BUTTON_CLICKED,"writedes")
frame.Show(True)
[/code]