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