home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BATWORKS.ZIP / OPENALL.PTM < prev    next >
Encoding:
Text File  |  1990-05-22  |  201 b   |  12 lines
  1. WinActivate("Notepad")
  2. sendkey("!FO")
  3. a=WinGetAct()
  4. if  (a=="Notepad") then goto oops
  5. :cont
  6. SendKey("*.*{tab 2}{sp}")
  7. exit
  8. :oops
  9. Display(3,"OPEN ALL","Save File Before using openall")
  10. exit
  11.  
  12.