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'/
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)
27 CALL LINE(X,Y,48,1,0,0)
28 CALL SYMBOL(1,10.5,.25,TXT,0,40)