home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / EPPLOT.ZIP / CHART.PLT < prev    next >
Text File  |  1998-07-30  |  2KB  |  62 lines
  1. ;:
  2. ; business chart example
  3. HOU    ;initialization
  4. ; first draw the two axis lines
  5. 200,200                ;position to start
  6. D1750,200            ;DRAW X
  7. U200,200            ;back to origin
  8. D200,1200            ;DRAW Y
  9. ; Now draw the ticks on the Y axis
  10. U200,200            ;position to start
  11. ; Each line will do a month
  12. A  320,200 R D 0,-20 U -24,-25 S12JAN_  ;JANUARY
  13. A  440,200 R D 0,-20 U -24,-25 S12FEB_  ;FEBRUARY
  14. A  560,200 R D 0,-20 U -24,-25 S12MAR_  ;MARCH
  15. A  680,200 R D 0,-20 U -24,-25 S12APR_  ;APRIL
  16. A  800,200 R D 0,-20 U -24,-25 S12MAY_  ;MAY
  17. A  920,200 R D 0,-20 U -24,-25 S12JUN_  ;JUNE
  18. A 1040,200 R D 0,-20 U -24,-25 S12JUL_  ;JULY
  19. A 1160,200 R D 0,-20 U -24,-25 S12AUG_    ;AUGUST
  20. A 1280,200 R D 0,-20 U -24,-25 S12SEP_  ;SEPTEMBER
  21. A 1400,200 R D 0,-20 U -24,-25 S12OCT_  ;OCTOBER
  22. A 1520,200 R D 0,-20 U -24,-25 S12NOV_  ;NOVEMBER
  23. A 1640,200 R D 0,-20 U -24,-25 S12DEC_  ;DECEMBER
  24. U
  25. A900,40
  26. S121983 SALES_
  27. ; NOW WE PLOT THE Y AXIS
  28. A  200,300 R D -20,0 U -25,-7 S121_
  29. A  200,400 R D -20,0 U -25,-7 S122_
  30. A  200,500 R D -20,0 U -25,-7 S123_
  31. A  200,600 R D -20,0 U -25,-7 S124_
  32. A  200,700 R D -20,0 U -25,-7 S125_
  33. A  200,800 R D -20,0 U -25,-7 S126_
  34. A  200,900 R D -20,0 U -25,-7 S127_
  35. A 200,1000 R D -20,0 U -25,-7 S128_
  36. A 200,1100 R D -20,0 U -25,-7 S129_
  37. A 200,1200 R D -20,0 U -40,-7 S1210_
  38. U
  39. A100,550
  40. S22Sales in $1,000,000_
  41. U
  42. 875,1100
  43. S12+MONTHLY SALES_
  44. U
  45. 750,1200
  46. S12+ASSOCIATED WIDGET CO._
  47. ; NOW THE DATA
  48. B  290,200  350,450    ;JAN
  49. B  410,200  470,675    ;FEB
  50. B  530,200  590,800    ;MAR
  51. B  650,200  710,500    ;APR
  52. B  770,200  830,1000    ;MAY
  53. B  890,200  950,900    ;JUN
  54. B 1010,200 1070,725    ;JUL
  55. B 1130,200 1190,435    ;AUG
  56. B 1250,200 1310,925    ;SEPT
  57. B 1370,200 1430,790    ;OCT
  58. B 1490,200 1550,500    ;NOV
  59. B 1610,200 1670,825    ;DEC
  60. H
  61. @
  62.