home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / IF.SCR < prev    next >
Text File  |  1992-02-12  |  350b  |  21 lines
  1. > windowshow()
  2. > watch(on)
  3. > timeout=0
  4. > onerr test1
  5. > ;
  6. > ; generating an obvious error
  7. > ;
  8. > copy ('c:\nofile.tst','c:\filetwo.tst',r)
  9. > jump test2
  10. > test1:
  11. > if errorlevel != 5 
  12. >    cancel
  13. > else
  14. > message('file[CR]not[CR]found')
  15. > resume
  16. > test2:
  17. > message('Jumping to the end of the file[CR]Press a key to end.')
  18. > wait
  19. ) end
  20.  
  21.