C CHARACTER PLOT TEST C C. E. COHN, ARGONNE NATIONAL LABORATORY PROGRAM ALFTST CALL INIPLT(14,10.,8.) CALL PLOT(0.,0.,-3) CALL PLOT(10.,7.,10) CALL PLOT(0.,0.,11) 8 CALL SETGRF (2.75,6.,0.,.35,5,5H12345) CALL SETGRF (2.75,5.3,0.,.35,5,5H67890) CALL SETGRF (1.,2.3,90.,.5,6,6HABCDEF) CALL SETGRF (6.,4.7,270.,.5,6,6HGHIJKL) CALL SETGRF (2.,1.3,0.,.5,7,7HMNOPQRS) CALL SETGRF (2.,.586,0.,.5,7,7HTUVWXYZ) CALL SETGRF (2.75,2.75,45.,.27,12,12H+-*/ (=).,$') 9 CALL PLOT(0.,0.,3) CALL ENDPLT STOP END