A(37),L$(37),KO(7)4 J1 7: KO(J): JQ J1 38:B$B$" ": Ja(M0:I1:Z11 --SET BORDER AND SCREEN COLORS--2 53280,0: 53281,0; --GET NAME OF ITEM--< 1000: I20 100 F 214,3:: (28);"WARNING! IF YOU ADD MORE ITEMS, THERE"< P 7);"WILL BE NO SPACE BETWEEN THE"] Z 11);"BARS IN YOUR GRAPH." c --"POKE 214,7" PUTS CURSOR ON LINE 7+1-- d 214,7: n (5);"PLEASE ENTER NAME OF ITEM #";(I);"." x I1 150 "(JUST PRESS IF" "YOU HAVE NO MORE ITEMS.)"2 :L$(I)"": L$(I)I L$(I) "" 220X I1 60 214,13:: (158);"ARE YOU FINISHED ENTERING ITEMS?"; K$: K$"" 190 K$"Y" 280 60 --GET VALUE OF THAT ITEM-- 1000: 214,7: (5);"WHAT IS THE VALUE FOR"D "ITEM #";(I);" (";L$(I);")";e A(I)0: A(I): A(I)0 220{  MA(I) MA(I) II1: I38 60 II1: M0 M1 " (147); , (5);"WHAT IS THE TITLE OF YOUR GRAPH?" 6:T$"": T$: T$"" 290 @ (T$)38 T$(T$,38)9 JC(21((38I)I)2)N S --DRAW GRAPH--d T (147);(158):y ^ C1);(157);M h J1 18: C1);(125): J r C1);"0" |LW(38I)(I20)  J1 I  (KO(Z))  214,20:: C);  (L$(J))LW (L$(J),LW): 440)  L$(J)N CH(A(J)M180.5): CH1 500]  K1 CH  --"POKE 211,C" PUTS THE CURSOR IN COLUMN C+1--  214,20K:: 211,C  (18);(B$,LW);(146)  K ZZ1: Z8 Z1 CC(38I): J 214,21:0 (5);20(T$)2);(18);T$;(146)\: 6);"(PRESS ANY KEY TO CONTINUE.)";u K$: K$ "" 540& (147);"PRESS TO DRAW ANOTHER GRAPH"0 "OR TO QUIT.": K$: K$"" 570D K$"Q" N K$"D" 40X 570! --SET UP SCREEN FOR INPUT--H (147);(153);15);"*BAR GRAPH*"W 214,20:j (18);(28); 2);" YOU HAVE ROOM LEFT FOR"; (146);38I; (18);" ITEM(S)."(146)$ --HERE ARE COLORS OF BARS-- 28,30,31,129,156,158,159