home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / VCLEAR < prev    next >
Text File  |  1991-08-19  |  369b  |  19 lines
  1. > watch(on)
  2. > a = 1
  3. > b = 2
  4. > c = 3
  5. > x = 24
  6. > y = 25
  7. > z = 26
  8. > result = vclear()
  9. > message('VCLEAR function result = ' + valtostr(result))
  10. > if (vdefined(a) == FALSE) && (vdefined(z) == FALSE)
  11. > message('variable "a" AND variable "z" do not exist')
  12. > else
  13. > message('variable "a" OR variable "z" still exists')
  14. > endif
  15. > timeout = 0
  16. > wait()
  17. > end
  18.  
  19.