10REM *** LISTING 1 ***
20REM *** COUNT WITH TEDDY ***
30REM COPYRIGHT
40REM RICHARD OLDMAN
50REM 1984
60*TV255
70*KEY10 OLD|MRUN|M
80*FX11,0
90*FX220,0
100*FX9,15
110*FX10,255
120MODE1
130VDU19,1,6,0,0,0
140VDU23,224,11,11,31,31,31,31,13,13,2
3,225,208,208,248,248,248,248,176,176,23
,226,31,30,30,31,29,29,14,14,23,227,248,
120,120,248,184,184,112,112:REM TEDDY'S
HEAD
150VDU23,228,7,7,3,3,127,127,223,223,2
3,229,224,224,192,192,254,254,251,251,23
,230,223,223,127,127,15,15,31,31,23,231,
251,251,254,254,240,240,248,248:REM TEDD
Y'S MIDDLE
160VDU23,232,31,31,31,31,31,31,111,111
,23,233,248,248,248,248,248,248,246,246,
23,234,255,255,159,159,255,255,123,123,2
3,235,255,255,249,249,255,255,222,222:RE
M TEDDY'S BOTTOM!
170VDU23,236,0,0,0,0,2,2,2,2,23,237,0,
0,0,0,64,64,64,64,23,238,2,2,2,2,14,14,3
0,30,23,239,64,64,64,64,112,112,120,120:
REM WAISTCOAT TOP
180VDU23,240,30,30,28,28,24,24,0,0,23,
241,120,120,56,56,24,24,0,0:REM WAISTCOA
T BOTTOM
190VDU23,242,0,0,0,0,0,0,2,0,23,243,0,
0,0,0,0,0,64,0:REM TEDDY'S EYES
200VDU23,244,255,255,255,255,255,255,2
55,255:REM WIPE
210VDU23,245,4,6,7,6,4,0,0,0,23,246,32
,96,224,96,32,23,0,0,247,0,0,0,0,0,0,0,4
,23,248,0,0,0,0,0,0,0,32
220ENVELOPE1,0,0,0,0,0,0,0,127,0,0,-1,
127,127
230ENVELOPE2,0,0,0,0,0,0,0,60,0,0,-120
,90,127
240CLS
250COLOUR1
260PRINT''TAB(6)"*** COUNT WITH TEDD
Y ***"''
270COLOUR2
280PRINT:PRINT"This is a simple game t
o add two numbers";"together. The sum wi
ll be shown on "'"the bottom of the scre
en and will be "'"displayed in ";:COLOUR
1:PRINT"Teddies";:COLOUR2:PRINT" to help
counting."
290PRINT'"Add the Teddies on the left
to the "'"Teddies on the right to get th
e correct answer."
300PRINT'"If you get it wrong three ti
mes the "'"computer will show you the an
swer by"'"counting the teddies. Count wi
th it."'"You will then get another go at
the sum."'"If you get it wrong";
310PRINT" again the computer"'"will mo
ve on to the next sum. You will"'"have 1
0 sums in all."
320PRINT'"The sum is also displayed in
the centre of the screen in 'vertical f
ormat'."
330VDU28,0,31,39,28
340CHAIN"TEDDY2"