Warwick TV Open Source Scoreboard for BBC Basic in RISC OS.

SCORE

   10 MODE 7
   11 OFF
   13 COV = 0
   14 WAR = 0
   19 PROCSCREEN(COV, WAR)
   20 H$ = GET$
   30 IF H$="w" THEN WAR=WAR+1
   31 IF H$="e" THEN WAR=WAR-1
   40 IF H$="c" THEN COV=COV+1
   41 IF H$="v" THEN COV=COV-1
   50 PROCSCREEN(COV, WAR)
   60 GOTO 20
  200 DEF PROCSCREEN(cov, war)
  211 X = 0
  219 CLS
  220 PRINT TAB(0,22)
  230 SPACES=28
  240 SPACES=SPACES-LEN(STR$(COV))-LEN(STR$(WAR))
  250 SPACES$=STRING$(SPACES, " ")
  259 TXT$=CHR$141+" COV "+STR$(cov)+SPACES$+STR$(war)+" WAR"
  260 PRINT TXT$
  270 PRINT TXT$
  280 ENDPROC