sw/plot_standalone/PLOT4.FT

   1       DIMENSION X(50),Y(50),SALES(12),TXT(7)
   2       DATA SALES/20,30,32,40,50,90,95,90,40,30,20,15/
   3       DATA TXT/'AIR CONDITIONER SALES EACH MONTH OF 1972'/
   4       CALL PLOTS(0.01,0)
   5       CALL XYPLOT(1,1,-3)
   6       DO 5 J=1,12
   7       I=(J-1)*4+1
   8       Y(I)=0
   9       Y(I+1)=SALES(J)
  10       Y(I+2)=SALES(J)
  11 5     Y(I+3)=0
  12       Y(49)=0
  13       Y(50)=10
  14       DO 10 I=1,48,4
  15       X(I)=(I/4.0)+0.75
  16       X(I+1)=X(I)
  17 1000  FORMAT(4F7.3)
  18       X(I+2)=(I/4.0)+0.25
  19       X(I+3)=X(I+2)
  20       WRITE(4,1000)X(I),X(I+1),X(I+2),X(I+3)
  21       WRITE(4,1000)Y(I),Y(I+1),Y(I+2),Y(I+3)
  22       WRITE(4,2000)
  23 2000  FORMAT(' ')
  24 10    CONTINUE
  25       X(49)=0
  26       X(50)=1
  27       CALL LINE(X,Y,48,1,0,0)
  28       CALL SYMBOL(1,10.5,.25,TXT,0,40)
  29       CALL PLOTXY(12,0,3)
  30       CALL PLEXIT
  31       END
  32 \f\1a