home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / DESIGCAD / DESCAD7P / BASICCAD / SST.BS_ / SST.bin
Encoding:
Text File  |  1994-02-01  |  398 b   |  16 lines
  1. do while 1=1
  2. v$=""
  3. input "sys$ function to evaluate: ", i
  4. if sys(999)=1 then goto quit
  5. message "sys$(", i, ")= ",sys$(i)
  6. input "enter new string for sys$() :",x$
  7. if sys(999) then goto quit
  8.    sys$(i)=x$
  9.    if sys$(i)=x$ then message  "sys$(",i,") changed to ", sys$(i)
  10.    if sys$(i) <> x$ then message" sys$(",i,") is read_only or cannot take that value"
  11. >regenerate
  12. loop
  13. quit:
  14. end
  15.  
  16.