tplot:    proc;

dcl       image(2000);

          call plot$plot2(addr(image),100.e0,0.e0,100.e0,0.e0);

          do x = 0.0e0 by 1.0e0 to 100.e0;
               call plot$plot3("*",x,x);
               end;

          call plot$plot4;

          end;