home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
clipper
/
swap
/
test.prg
< prev
Wrap
Text File
|
1992-02-15
|
375b
|
21 lines
* test code for SWAPON and SWAPOFF in SWAP.OBJ
clear screen
if swapoff()
? 'dosswap disabled'
else
? 'dosswap not installed'
return
endif
? "Try and Swap now and all you'll get is the infamous DOSSHELL beep!"
INKEY(0)
if swapon()
? 'dosswap is enabled'
else
? 'dosswap not installed'
return
endif
return