home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / sbase4pro / ideas / sbpro_to_splan.sbp < prev    next >
Encoding:
Text File  |  1995-07-10  |  2.1 KB  |  82 lines
  1. SBP
  2.  ÿ½ **********************************************************************
  3.  ÿ½ Demonstration of Superbase controlling Superplan through ARexx
  4.  ÿ½ Author: Tim Arnot 13/10/88
  5.  ÿ½ Superplan should already be running in the system
  6.  ÿ½ ARexx, however is optional in this example
  7.  ÿ½ **********************************************************************
  8.  
  9.  ÿ½ this is the command sequence to send to Superplan 
  10.  
  11.  ÿ½  >POF                /* Turn prompt display off */
  12.  ÿ½  /zy                 /* Clear the worksheet */
  13.  ÿ½  ,bar>ENT            /* Put graph command in cell A1 */
  14.  ÿ½  =C1>ENT             /* Move to C1 */
  15.  ÿ½  +rand*10>ENT        /* Put data in C1 */
  16.  ÿ½  /rrC1,D1:G1>ENT     /* Replicate top row */
  17.  ÿ½  >HOM                /* Move to A1 */
  18.  ÿ½  /rrA1:G1,A2:A6>ENT  /* Replicate top row */
  19.  
  20.  ÿ½  /vs>ESC             /* Open graph window */
  21.  ÿ½  >GPX0>GPY0          /* Move graph window to 0,0 */
  22.  ÿ½  >GPW640>GPH260      /* Size graph as big as possible */
  23.  ÿ½  /vs>ESC             /* Redraw the graph */
  24.  ÿ½  >IFFmygraph.iff\    /* Save the graph in IFF format  */
  25. 
  26.  
  27.  ÿŠ">POF","/zy",",bar>ENT","=C1>ENT","+rand*10>ENT"
  28.  ÿŠ"/rrC1,D1:G1>ENT",">HOM","/rrA1:G1,A2:A6>ENT","/vs>ESC"
  29.  ÿŠ">GPX0>GPY0",">GPW640>GPH260","/vs>ESC",">IFFmygraph.iff\"
  30.  
  31.  ÿ›i%ÿ1ÿq13
  32. ÿ¼cmd$
  33. ÿƒ"SpRexx"ÿ–cmd$
  34. ÿ¡ÿ&ÿ0ÿ
  35. ÿ&ÿÿ1ÿpÿwehandle
  36.  ÿ±i%
  37.  
  38.  ÿ½ Now we will read the spreadsheet back into Superbase
  39.  
  40.  ÿ×array%(6,5),c$(5)
  41.  ÿŠ"C","D","E","F","G"
  42.  ÿ›i%ÿ1ÿq5:ÿ¼c$(i%):ÿ±
  43.  ÿ›i%ÿ1ÿq6
  44. ÿ›j%ÿ1ÿq5
  45. cell$ÿc$(j%)ÿÿH(ÿ(i%,"9."))
  46. ÿƒ"SpRexx"ÿÃcell$ÿqresult$
  47. ÿ¡ÿ&ÿ0ÿ
  48. ÿ&ÿÿ1ÿpÿwehandle
  49. array%(i%,j%)ÿÿ0(result$)
  50. ÿ±j%
  51.  ÿ±i%
  52.  
  53.  ÿ½ Display the results 
  54.  
  55.  ÿ‡
  56.  ÿ›i%ÿ1ÿq6
  57. ÿ›j%ÿ1ÿq5
  58. ÿ{&1.6array%(i%,j%);
  59. ÿ±j%
  60. ÿ{
  61.  ÿ±i%
  62.  ÿÏÿ›10
  63.  ÿÈ"mygraph.iff"
  64.  ÿÏÿ›10
  65.  ÿÈ
  66.  
  67.  ÿ½ Clear Superplan and finish
  68.  
  69.  ÿƒ"SpRexx"ÿ–"/zy>ENT>PON"
  70.  ÿ¡ÿ&ÿ0ÿ
  71. ÿ&ÿÿ1ÿpÿwehandle
  72.  ÿƒ""ÿ†
  73.  ÿ’
  74.  
  75. ehandle: 
  76.  ÿ¡ÿ&ÿÿ1ÿp
  77. ÿ‡
  78. ÿÂ"Superplan is not responding","Please run it first",0,a%
  79. ÿ’
  80.  ÿ’ÿ¡
  81.  e$ÿ"Number"ÿÿ(ÿ&)
  82.  ÿÂ"Superplan returned an error:",e$,0,a%
  83.  ÿ’
  84.  
  85.