home *** CD-ROM | disk | FTP | other *** search
-
-
- 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$
-
-
-
-
-
-