sw/plot_standalone/PLOT3.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.006,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+1.25
  16       X(I+1)=X(I)
  17       X(I+2)=I/4+0.75
  18 10    X(I+3)=X(I+2)
  19       X(49)=0
  20       X(50)=1.
  21       CALL AXIS(0,0,'MONTH',-5,13,0,0,1)
  22       CALL AXIS(0,0,'AIR CONDITIONERS (X100)',23,10,90,0,10)
  23       CALL LINE(X,Y,48,1,0,0)
  24       CALL SYMBOL(1,10.5,.25,TXT,0,40)
  25       CALL XYPLOT(12,0,3)
  26       CALL PLEXIT
  27       END
  28 \f\1a