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