  1 REM THIS IS ADAPTED FROM A "District vote report" PROGRAM IN
  2 REM CHAPTER 26 OF GETTING STARTED WITH EXTENDED COLOR BASIC.
 10 DATA 143,215,125,331,442
 20 DATA 324,213,115,318,314
 30 DATA 223,152,314,92
 40 DIM A(14)
 50 FOR X=1 TO 14
 60 READ A(X)
 70 NEXT X
 80 INPUT "District no(1-14)"; Z
 85 IF Z > 14 THEN 80
 90 PRINT A(Z);" votes"
100 GOTO 80
