software: Added more and more

[pdp8.git] / sw / plot_standalone / PLOT4.FT

      DIMENSION X(50),Y(50),SALES(12),TXT(7)\r
      DATA SALES/20,30,32,40,50,90,95,90,40,30,20,15/\r
      DATA TXT/'AIR CONDITIONER SALES EACH MONTH OF 1972'/\r
      CALL PLOTS(0.01,0)\r
      CALL XYPLOT(1,1,-3)\r
      DO 5 J=1,12\r
      I=(J-1)*4+1\r
      Y(I)=0\r
      Y(I+1)=SALES(J)\r
      Y(I+2)=SALES(J)\r
5     Y(I+3)=0\r
      Y(49)=0\r
      Y(50)=10\r
      DO 10 I=1,48,4\r
      X(I)=(I/4.0)+0.75\r
      X(I+1)=X(I)\r
1000  FORMAT(4F7.3)\r
      X(I+2)=(I/4.0)+0.25\r
      X(I+3)=X(I+2)\r
      WRITE(4,1000)X(I),X(I+1),X(I+2),X(I+3)\r
      WRITE(4,1000)Y(I),Y(I+1),Y(I+2),Y(I+3)\r
      WRITE(4,2000)\r
2000  FORMAT(' ')\r
10    CONTINUE\r
      X(49)=0\r
      X(50)=1\r
      CALL LINE(X,Y,48,1,0,0)\r
      CALL SYMBOL(1,10.5,.25,TXT,0,40)\r
      CALL PLOTXY(12,0,3)\r
      CALL PLEXIT\r
      END\r
\f\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0