home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / SPLT244.ZIP / TESTS / T8-13.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-07-21  |  1.5 KB  |  68 lines
  1. 10 OPEN "T8-13.PLT" FOR OUTPUT AS #1
  2. 20 REM
  3. 30 REM
  4. 40 REM
  5. 50 OPTION BASE 1
  6. 60 DIM W$(4),P(4,3)
  7. 70 DATA 0,21.5,43,43,80.5,118,118,166.5
  8. 80 DATA 215,215,287,360
  9. 90 DATA Administration,R&D,Marketing
  10. 100 DATA Manufacturing
  11. 110 REM
  12. 120 REM
  13. 130 FOR I=1 TO 4
  14. 140  FOR J=1 TO 3
  15. 150   READ P(I,J)
  16. 160  NEXT J
  17. 170 NEXT I
  18. 180 READ W$(1),W$(2),W$(3),W$(4)
  19. 190 REM
  20. 200 REM
  21. 210 PRINT #1,"IN;IP2250,500,8250,7100;"
  22. 220 PRINT #1,"SC-10,10,-10,12;"
  23. 230 REM
  24. 240 PRINT #1,"SP2;PA0,12;SI.4,.6;CP-12.34,0;"
  25. 250 PRINT #1,"LBSales Dollar Distribution"+CHR$(3)
  26. 360 REM
  27. 270 REM
  28. 280 PRINT #1,"SP1;SI.2,.3;"
  29. 290 REM
  30. 300 REM
  31. 310 PI=3.141593
  32. 320 FOR I=1 TO 4
  33. 330 REM
  34. 340  R=8
  35. 350  IF I=2 THEN R=9
  36. 360  X=R*COS(P(I,2)*(PI/180))
  37. 370  Y=R*SIN(P(I,2)*(PI/180))
  38. 380  PRINT #1,"PA";X;",";Y;";"
  39. 390 REM
  40. 400  L=LEN(W$(I))
  41. 410  IF I=1 THEN PRINT #1,"CP0,-.25;"
  42. 420  IF I=3 THEN PRINT #1,"CP";-L;",-.25;"
  43. 430  IF I=4 THEN PRINT #1,"CP0,-.5;"
  44. 440  PRINT #1,"LB"+W$(I)+CHR$(3)
  45. 450 NEXT I
  46. 460 REM
  47. 470 FOR I=1 TO 4
  48. 480  PRINT #1,"SP";I+2;";"
  49. 490  X=0
  50. 500  Y=0
  51. 510  IF I=2 THEN X=COS(P(I,2)*(PI/180))
  52. 520  IF I=2 THEN Y=SIN(P(I,2)*(PI/180))
  53. 530  IF I=1 THEN PRINT #1,"FT1;"
  54. 540  IF I=2 THEN PRINT #1,"FT3,.3,45;"
  55. 550  IF I=3 THEN PRINT #1,"FT4,.6,45;"
  56. 560  IF I=4 THEN PRINT #1,"FT3,.6,45;"
  57. 570 REM
  58. 580  S=P(I,3)-P(I,1)
  59. 590 REM
  60. 600  PRINT #1,"PA";X;",";Y;";"
  61. 610  PRINT #1,"WG7.5,";P(I,1);",";S;";"
  62. 620 REM
  63. 630  PRINT #1,"EW7.5,";P(I,1);",";S;";"
  64. 640 NEXT I
  65. 650 REM
  66. 660 PRINT #1,"SP0;"
  67. 670 END
  68.