home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / util / misc / selector43.lha / Selector / rows.sel < prev    next >
Encoding:
Text File  |  1996-04-23  |  1.1 KB  |  49 lines
  1. ; Demo of the "rows" command
  2. ; and the use of env variables
  3.  
  4.  
  5.  
  6. close off
  7.  
  8. defenv rows 7
  9. rows [rows]
  10. title "This is [rows] rows..."
  11.  
  12. color 2
  13. startbox
  14.     text "This demo"
  15.     text "shows the"
  16.     text "use of"
  17.     text "the rows"
  18.     text command
  19.     text "and env"
  20.     text variables
  21. endbox
  22.  
  23. color 3
  24. startbox
  25.     button Info 'run >nil: Selector rowsinfo.sel'
  26. endbox
  27. color 1
  28. Button "rows 1" 'setenv rows 1' update
  29. Button "rows 2" 'setenv rows 2' update
  30. Button "rows 3" 'setenv rows 3' update
  31. Button "rows 4" 'setenv rows 4' update
  32. Button "rows 5" 'setenv rows 5' update
  33. Button "rows 6" 'setenv rows 6' update
  34. Button "rows 7" 'setenv rows 7' update
  35. Button "rows 8" 'setenv rows 8' update
  36. Button "rows 9" 'setenv rows 9' update
  37. Button "rows 10" 'setenv rows 10' update
  38. Button "rows 11" 'setenv rows 11' update
  39. Button "rows 12" 'setenv rows 12' update
  40. Button "rows 13" 'setenv rows 13' update
  41. Button "rows 14" 'setenv rows 14' update
  42. Button "rows 15" 'setenv rows 15' update
  43. Button "rows 16" 'setenv rows 16' update
  44. Button "rows 17" 'setenv rows 17' update
  45. Button "rows 200" 'setenv rows 200' update
  46. Button "rows auto" 'setenv rows auto' update
  47. color 2
  48. button exit 'unsetenv rows' exit
  49.