home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / misc / cp / demo.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  1KB  |  75 lines
  1. /* */
  2. trace on
  3. options results
  4. signal on break_c
  5. signal on error
  6.  
  7. NAME = "DEMO"
  8.  
  9. k = 0
  10.  
  11. address command
  12.  
  13. if(~show('p',NAME)) then do
  14.     
  15.     'cp font topaz fs 8 myname ' NAME    /* Use MYNAME to create REXX Port */
  16.     
  17.     do while (~show('p',NAME))
  18.         call delay 50
  19.         k = k+1
  20.         if k > 10 then exit(10)
  21.     end
  22. end
  23. else do   
  24.      say NAME 'already running'
  25.      exit(1)
  26. end
  27.  
  28. address value NAME
  29.  
  30. TEXT     '100 60 Welcome to cP demo'
  31. DELAY    '10'
  32. TEXT     '100 100 This program and source code are PUBLIC DOMAIN and FREEWARE'
  33. TEXT     '100 120 Feel free to make good use of it'
  34. DELAY    '10'
  35. TEXT     '100 140 There are no guarantees with cP'
  36. TEXT     '100 160 However we know of no bugs or problems at this time'
  37. VERTTEXT '50 200 by Chris Conger and SAIC'
  38. DELAY    '300'
  39. ADD      'sample.asc'
  40. ADD      'sample.bez'
  41. XLABEL   'seconds'
  42. YLAB     'volts'
  43. NOFILENAMEBOXES
  44. NOCPANEL
  45. FULL
  46. DELAY    '100'
  47. TEXT     '100 30 You can put symbols on datafiles'
  48. SYM
  49. DELAY    '50'
  50. GRID
  51. LOGX
  52. NOSYM
  53. FULL
  54. TEXT     '100 30 cP can do LOG and Semi-LOG plots'
  55. DELAY    '75'
  56. LINX
  57. YMIN     '-1'
  58. YMAX     '4'
  59. XMIN     '2e-5'
  60. XMAX     '1e-4'
  61. REDRAW
  62. TEXT     '100 30 cP can Zoom in and out'
  63. DELAY    '50'
  64. CPANEL
  65. FULL
  66. TEXT     '100 20 any bugs should be reported to congerc@abqa.saic.com'
  67. DELAY    '100'
  68. TEXT     '100 40 press Q to quit or continue to play with cP'
  69. exit(0)
  70.  
  71. break_c:
  72. exit(5)
  73. error:
  74. exit(10)
  75. exit