

    open "graphics" for graphics as #graph

    print #graph, "down";

    print #graph, "font courier_new 8";
    print #graph, "place 10 15";
    print #graph, "\courier new";

    print #graph, "font courier_new 12 italic";
    print #graph, "place 10 35";
    print #graph, "\courier new italic";

    print #graph, "font times_new_roman 16 bold italic";
    print #graph, "place 10 65";
    print #graph, "\times new roman bold italic";

    print #graph, "font ariel 18 underscore";
    print #graph, "place 10 90";
    print #graph, "\ariel underscore";

    print #graph, "flush";

    input r$





