home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / DESIGCAD / DESCAD7P / DCAD / BASICCAD / ST.BSC < prev   
Text File  |  1994-01-22  |  443b  |  18 lines
  1. do while 1=1
  2. input "sys function to evaluate: ", i
  3. if sys(999) then goto quit
  4. message "sys(", i, ")= ", sys(i)
  5. input "enter new value for sys() :",x
  6. if sys(999) then goto quit
  7.     sys(i)=x
  8. if sys(i)=x then message  "sys() changed to ", sys(i)
  9. if sys(i) <> x then message" sys() is read_only or cannot take that value"
  10. a$=Y
  11. input "Continue (Y/N)",a$
  12. if a$="N" or a$="n" or sys(999)=1 then goto quit
  13. >regenerate
  14. loop
  15. quit:
  16. end
  17.  
  18.