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