home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / bargraph.zip / YOURAPP.CLA < prev   
Text File  |  1980-01-01  |  954b  |  54 lines
  1. YOURAPP         PROGRAM !SHELL TO DEMO THE GRAPHING PROGRAM
  2.    MAP
  3.    MODULE('CLARGRPH')
  4.     PROC(GRAPPROC)
  5.     .
  6.      .
  7.          GROUP,PRE(MEM)
  8. VL1    LONG    !      VALUES, SUCH AS FROM A REPORT TOTAL
  9. VL2    LONG
  10. VL3    LONG
  11. VL4    LONG
  12. VL5    LONG
  13. VL6    LONG
  14. VL7    LONG
  15. VL8    LONG
  16. VL9    LONG
  17. VL10    LONG
  18. LB1    STRING(20)  !          LABELS
  19. LB2    STRING(20)
  20. LB3    STRING(20)
  21. LB4    STRING(20)
  22. LB5    STRING(20)
  23. LB6    STRING(20)
  24. LB7    STRING(20)
  25. LB8    STRING(20)
  26. LB9    STRING(20)
  27. LB10    STRING(20)
  28. YLBL    STRING(15)
  29. GTITLE    STRING(50)   ! TITLE OF THE GRAPH
  30. NPTS    BYTE         ! NUMBER OF POINTS TO BE PLOTTED
  31.          .
  32.  
  33.   CODE
  34.   MEM:NPTS=8            ! EXAMPLE  DATA
  35.   MEM:VL1=55500
  36.   MEM:VL2=44400
  37.   MEM:VL3=99900
  38.   MEM:VL4=88800
  39.   MEM:VL5=22200
  40.   MEM:VL6=66600
  41.   MEM:VL7=77700
  42.   MEM:VL8=33300
  43.   MEM:LB1='JAN'
  44.   MEM:LB2='FEB'
  45.   MEM:LB3='MAR'
  46.   MEM:LB4='APR'
  47.   MEM:LB5='MAY'
  48.   MEM:LB6='JUN'
  49.   MEM:LB7='JUL'
  50.   MEM:LB8='AUG'
  51.   MEM:GTITLE='GROSS SALES 1988'
  52.   GRAPPROC
  53.   RETURN
  54.