GRAPHIT BY JIM LOOMIS753280,(53281):""`"OW MANY ITEMS TO GRAPH (1-250)";X|#X250"OO MANY!":30(A$(X),Y(X),BB(X):W02T1X:"AME";T;:A$(T):"IZE";Y(T):WWY(T):7TPW:TP$"(TOTAL)":"ITLE";L$ <"100% = ";W:"";W:TPWTP$""f A"ISPLAY TO PRINTER OR SCREEN S";D$:D$"P"D$"S"65 FD3:C39:D$"P"D4:C79 P200:250:D,D,7:D:L$:B1C2:" -";: U:"100 % =";W;TP$ ZT1X::A$(T):300::D:D _" TO QUIT, FOR ANOTHER."1 dQ01:Q$:Q$""Q09 n:? ] ** FIND LONGEST LINE **w Z1X:PY(Z)PY(Z) : ** PROPORTION LINES ** Z1X:LY(Z)W:BB(Z)LC: D3"";   " ** DISPLAY LINES ** ,BB(T)1:320$ 6B1BB(T):"=";::S @Y(T);"=";((Y(T)W1000).5)10;"PERCENT"Y J_