home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / LOADER.ZIP / PED.BTM < prev    next >
Text File  |  1993-12-08  |  809b  |  31 lines
  1. :PED.BTM
  2. : This batch loads PED with extra features explained in NB.BTM
  3. :
  4. rem  The following procedure makes it possible to know when
  5. rem  shelling out from PED, whether PED is run on top of another
  6. rem  program, or from DOS, and whether this is a first PED, or
  7. rem  any subsequent PED
  8.  
  9. iff not "%pgm"=="" then set oldpgm=%pgm^Set pgm=ped(%pgm)
  10.  else
  11. set pgm=ped
  12.  endiff
  13.  
  14. if not %$d == %_lastdisk set $d=%_lastdisk
  15. if %_4ver lt 5 (history > %$d:\history.log ^ history /f)
  16. ped.exe %1&
  17. :---------------------------quitting PED---------------------------------
  18. set pgm=%oldpgm
  19. set oldpgm=
  20. if %_4ver lt 5 gosub history
  21. cls
  22. quit
  23.  
  24. :history        ;; Only for versions prior to 5.x
  25. iff exist %$d:\history.log then
  26. history /f
  27. history /r %$d:\history.log
  28. del /q %$d:\history.log
  29. endiff
  30. return
  31.