home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / swap / test.prg < prev   
Encoding:
Text File  |  1992-02-15  |  375 b   |  21 lines
  1. * test code for SWAPON and SWAPOFF in SWAP.OBJ
  2.  
  3. clear screen
  4.  
  5. if swapoff()
  6.         ? 'dosswap disabled'
  7. else
  8.         ? 'dosswap not installed'
  9.         return
  10. endif
  11. ? "Try and Swap now and all you'll get is the infamous DOSSHELL beep!"
  12. INKEY(0)
  13. if swapon()
  14.         ? 'dosswap is enabled'
  15. else
  16.         ? 'dosswap not installed'
  17.         return
  18. endif
  19. return
  20.  
  21.