---
title: "Count"
id: 76379
type: "computer_media"
slug: "count"
url: "http://localhost/computer_media/count/"
markdown_url: "http://localhost/computer_media/count.md"
published_at: "2026-11-11T08:02:46+00:00"
modified_at: "2026-11-11T08:02:46+00:00"
author: "David Anderson"
featured_image:
  url: "http://localhost/wp-content/uploads/2026/11/count-1.png"
excerpt: "A counting game for young children: count the shapes on the screen and type how many there are."
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 1000"
    slug: "ts1000"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts1000/"
  - name: "ZX81"
    slug: "zx81"
    taxonomy: "post_tag"
    url: "http://localhost/tag/zx81/"
model:
  - name: "Sinclair ZX81"
    slug: "zx81"
    taxonomy: "model"
    url: "http://localhost/model/zx81/"
  - name: "Timex/Sinclair 1000"
    slug: "ts-1000"
    taxonomy: "model"
    url: "http://localhost/model/ts-1000/"
indiv:
  - name: "Thomas B. Woods"
    slug: "thomas-b-woods"
    taxonomy: "indiv"
    url: "http://localhost/indiv/thomas-b-woods/"
genre:
  - name: "Education"
    slug: "education"
    taxonomy: "genre"
    url: "http://localhost/type/education/"
media_type: "Program"
programmers:
  - name: "Thomas B. Woods"
    slug: "thomas-b-woods"
    taxonomy: "indiv"
    url: "http://localhost/indiv/thomas-b-woods/"
download_url: "https://archive.org/download/timex-sinclair-software-archive/Count%20%281982%29%28Woods%2C%20Thomas%29%28TS1000%29%28US%29%28Program%29.zip"
mediadate: "1982"
images:
  - url: "http://localhost/wp-content/uploads/2026/11/count-1.png"
  - url: "http://localhost/wp-content/uploads/2026/11/count-2.png"
article_media:
  - id: 19296
    title: "Teach Kids to Count with the ZX81"
    type: "article"
    url: "http://localhost/article/teach-kids-to-count-with-the-zx81/"
media_type_tags: "Education"
license: false
---

# Count

RUN draws from one to ten copies of one of five shapes made of graphic characters and asks HOW MANY?. A right answer flashes **** RIGHT **** and a new set appears; a wrong one prints *WRONG* and asks again. It fits in 1K.

Line 35 checks only the first character of the answer, so any answer that starts with a digit is accepted for checking.

Published in Syntax August 1982 ([Teach Kids to Count with the ZX81](https://timexsinclair.com/article/teach-kids-to-count-with-the-zx81/)).

## Source Code

```
   1 LET A=INT (RND*10)+1
   5 GOTO 100*(INT (RND*5)+1)
   7 FOR X=0 TO A-1
  10 PRINT AT 9,X*3+1;A$
  15 PRINT AT 10,X*3+1;B$
  20 NEXT X
  25 PRINT AT 0,0;"HOW MANY?"
  30 INPUT D$
  35 IF CODE D$>37 OR CODE D$<28 THEN GOTO 45
  40 IF VAL D$=A THEN GOTO 55
  45 PRINT D$;"*WRONG*"
  50 GOTO 30
  55 PRINT AT 20,6;"**** RIGHT ****"
  60 PAUSE 100
  65 CLS
  70 GOTO 1
 100 LET A$="▚▞"
 105 LET B$="▞▚"
 110 GOTO 7
 200 LET A$="▐▓▌"
 205 LET B$="▐▓▌"
 210 GOTO 7
 300 LET A$="▜▛"
 305 LET B$="▟▙"
 310 GOTO 7
 400 LET A$="▙▙▌"
 405 LET B$="▛▛▌"
 410 GOTO 7
 500 LET A$="▙▞"
 505 LET B$="▛▚"
 510 GOTO 7
```