10MODE7 20VDU23;8202;0;0;0; 30FORQ=1TO2 40PRINTCHR$141;CHR$157;" SCO RE KEEPER" 50NEXT 60VDU28,0,24,39,2 70REPEAT:INPUT'"How many players? "W 80IFW>9PRINT"Only 1-9 may play" 90UNTILW<10 100DIM E(W):DIM E$(W):DIMS(W) 110PRINT'"Input names" 120FORR=1TOW 130INPUT""E$(R) 140NEXT 150CLS 160REPEAT 170PROCT 180UNTIL0 190END 200DEFPROCT 210PRINT 220FORY=1TOW 230PRINTE$(Y);":",; 240INPUT""U 250S(Y)=S(Y)+U 260NEXT 270PRINT'"Total:" 280FORY=1TOW 290PRINTE$(Y);":",;S(Y) 300NEXT 310REPEATUNTILGET=32:CLS 320ENDPROC