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