home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / ARCADEA / DEMO30 / MACROS.Z / ST.d3m < prev    next >
Text File  |  1997-04-15  |  520b  |  22 lines
  1. do while 1=1    'do forever
  2.  
  3. input "sys function to evaluate (press Esc to cancel): ", i
  4.     'if the user presses Esc or Cancel, sys(999) is set to 1
  5. if sys(999) then end
  6. xold=sys(i)
  7. message "sys(", i, ")= ", sys(i)
  8. input "enter new value for sys() :",x$
  9. if sys(999) then end
  10.     if (x$="" or x$=" ") then loop
  11.     x=val(x$)
  12.     sys(i)=x
  13. if sys(i)=x then message  "sys() changed to ", sys(i)
  14. if sys(i) <> x then message" sys() is read_only or cannot take that value"
  15. >regenerate
  16. {
  17. }
  18. loop
  19. quit:
  20. end
  21.  
  22.