home *** CD-ROM | disk | FTP | other *** search
/ Home Edutainment Collect… Productivity & Utilities / Aztech-HomeEdutainmentCollection-Vol7-WindowsProductivityUtilities.iso / splt221w / t8-10.bas < prev    next >
BASIC Source File  |  1991-07-21  |  2KB  |  81 lines
  1. 10 OPEN "T8-10.PLT" FOR OUTPUT AS #1
  2. 20 REM  Generalized bar chart
  3. 30 REM
  4. 40 REM Place chart and label data
  5. 50 REM with lower bounds of 1.
  6. 60 OPTION BASE 1
  7. 70 DIM L$(3),B(3,3)
  8. 80 REM
  9. 90  DATA United States,South America, Europe
  10. 100 DATA 144,177,196,71,101,147,30,75,104
  11. 110 READ L$(1),L$(2),L$(3)
  12. 120 FOR I=1 TO 3
  13. 130  FOR J=1 TO 3
  14. 140   READ B(I,J)
  15. 150  NEXT J
  16. 160 NEXT I
  17. 170 REM
  18. 180 REM
  19. 190 REM
  20. 200 PRINT #1,"IN;IP1000,1000,9000,6750;"
  21. 210 PRINT #1,"SC1982.3,1986.3,0,500;"
  22. 220 REM
  23. 230 REM
  24. 240 PRINT #1,"SP2;PA1984.3,550;SI.4,.6;CP-10,0;"
  25. 250 PRINT #1,"LBSales Volume By Region"+CHR$(3)
  26. 260 PRINT #1,"PA1982.3,500;PD1982.3,0,1986.3,0;"
  27. 270 REM
  28. 280 REM
  29. 290 PRINT #1,"PU;SP1;SI.2,.3;TL1.5,0;"
  30. 300 FOR X=1983 TO 1985
  31. 310  PRINT #1,"PA";X;",0;CP-1.83,-1;LB";X;CHR$(3)
  32. 320 NEXT X
  33. 330 REM
  34. 340 FOR Y=0 TO 500 STEP 100
  35. 350  PRINT #1,"PA 1982.3,";Y;";YT;"
  36. 360  IF Y=0 THEN PRINT #1,"CP-2.5,-.25;"
  37. 370  IF Y<>0 THEN PRINT #1,"CP-4.5,-.25;"
  38. 380  PRINT #1,"LB";Y;CHR$(3)
  39. 390 NEXT Y
  40. 400 PRINT #1,"PA 1982.3,510;LBSales (k$)"+CHR$(3)
  41. 410 REM
  42. 420 REM
  43. 430 FOR I=1 TO 3
  44. 440  Y=0
  45. 450  FOR J=1 TO I-1
  46. 460   Y=Y+B(J,3)
  47. 470  NEXT J
  48. 480  Y=Y+B(I,3)/2
  49. 490  PRINT #1,"PA1985.4,";Y;";"
  50. 500  PRINT #1,"CP0,-.25;LB"+L$(I)+CHR$(3)
  51. 510 NEXT I
  52. 520 REM
  53. 530 FOR I=1 TO 3
  54. 540  PRINT #1,"SP";I+2;";"
  55. 550  K=1
  56. 560  FOR X=1983 TO 1985
  57. 570   Y1=0
  58. 580 REM
  59. 590 REM
  60. 600   FOR J=1 TO I-1
  61. 610    Y1=Y1+B(J,K)
  62. 620   NEXT J
  63. 630 REM
  64. 640 REM
  65. 650   Y2=Y1+B(J,K)
  66. 660   K=K+1
  67. 670 REM
  68. 680   IF I=1 THEN PRINT #1,"FT1;"
  69. 690   IF I=2 THEN PRINT #1,"FT4,.05,45;"
  70. 700   IF I=3 THEN PRINT #1,"FT3,.05,45;"
  71. 710 REM
  72. 720 REM
  73. 730   PRINT #1,"PA";X-.3;",";Y1;";"
  74. 740   PRINT #1,"RA";X+.3;",";Y2;";"
  75. 750   PRINT #1,"EA";X+.3;",";Y2;";"
  76. 760  NEXT X
  77. 770 NEXT I
  78. 780 REM
  79. 790 PRINT #1,"SP0;"
  80. 800 END
  81.