home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / misc / cp-4.2.lha / cP / DEMO.REXX < prev    next >
OS/2 REXX Batch file  |  1994-05-01  |  864b  |  67 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 ob 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 > 20 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. ADD 'sample.asc'
  31. TITLE "This Quick Demo Shows a few of cp's features"
  32. NOCPANEL
  33. FULL
  34. SCREENTOFRONT
  35. XLAB "seconds"
  36. YLAB "volts"
  37. ADD 'sample.bez'
  38. TITLE "Files and points only limited by RAM"
  39. FULL
  40. DELAY 75
  41. GRID
  42. LOGX
  43. TITLE "cP can do LOG and Semi-LOG plots"
  44. FULL
  45. DELAY 75
  46. LINX
  47. YMIN '-1'
  48. YMAX '4'
  49. XMIN '2e-5'
  50. XMAX '1e-4'
  51. TITLE "cP can Zoom in and out"
  52. REDRAW
  53. DELAY 50
  54. YMAX '1'
  55. XMIN '6e-5'
  56. XMAX '6.3e-5'
  57. TITLE "cP is FREEWARE! press Q to Quit"
  58. CPANEL
  59. REDRAW
  60.  
  61. exit(0)
  62.  
  63. break_c:
  64. exit(5)
  65. error:
  66. exit(10)
  67. exit