| 1 | INTEGER BUFFER(100)\r |
| 2 | INTEGER N,X(100),Y(100)\r |
| 3 | CALL CLRPLT(100,BUFFER)\r |
| 4 | CALL SCALE (0,0,100.0,100.0)\r |
| 5 | DO 10 N=0,100\r |
| 6 | X(N)=50.0\r |
| 7 | Y(N)=FLOAT(N)\r |
| 8 | 10 CONTINUE\r |
| 9 | CALL PLOT(100,X,Y)\r |
| 10 | 20 GOTO 20\r |
| 11 | END\r |
| 12 | \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 |