2dos/working.pkg

// -- processed by [filterPKG] --

typeof win=ObjWin;

cbEnd(o, p){
lib2d_workingDestroy;
  _closemachine;
}

main(){
_showconsole;
  
  set win = _CRwindow _channel nil 0 0 300 200 WN_NORMAL " Working";
  _CRtext _channel win 5 5 290 20 ET_BORDER|ET_ALIGN_CENTER "... working in progres ...";
  let lib2d_workingNew win 132 82 -> res in
  _fooS if !res then "Success !" else strcat "Error : " itoa res;
    
  
  _CBwinDestroy win @cbEnd 0;
  0;
}
// -- [/filterPKG] --