10 REM *** LISTING 1 *** 20 REM *** COUNT WITH TEDDY *** 30 REM COPYRIGHT 40 REM RICHARD OLDMAN 50 REM 1984 60 *TV255 70 *KEY10 OLD|MRUN|M 80 *FX11,0 90 *FX220,0 100 *FX9,15 110 *FX10,255 120 MODE1 130 VDU19,1,6,0,0,0 140 VDU23,224,11,11,31,31,31,31,13,13,23,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 150 VDU23,228,7,7,3,3,127,127,223,223,23,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 TEDDY'S MIDDLE 160 VDU23,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,23,235,255,255,249,249,255,255,222,222:REM TEDDY'S BOTTOM! 170 VDU23,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,30,30,23,239,64,64,64,64,112,112,120,120:REM WAISTCOAT TOP 180 VDU23,240,30,30,28,28,24,24,0,0,23,241,120,120,56,56,24,24,0,0:REM WAISTCOAT BOTTOM 190 VDU23,242,0,0,0,0,0,0,2,0,23,243,0,0,0,0,0,0,64,0:REM TEDDY'S EYES 200 VDU23,244,255,255,255,255,255,255,255,255:REM WIPE 210 VDU23,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 220 ENVELOPE1,0,0,0,0,0,0,0,127,0,0,-1,127,127 230 ENVELOPE2,0,0,0,0,0,0,0,60,0,0,-120,90,127 240 CLS 250 COLOUR1 260 PRINT''TAB(6)"*** COUNT WITH TEDDY ***"'' 270 COLOUR2 280 PRINT:PRINT"This is a simple game to add two numbers";"together. The sum will be shown on "'"the bottom of the screen and will be "'"displayed in ";:COLOUR1:PRINT"Teddies";:COLOUR2:PRINT" to help counting." 290 PRINT'"Add the Teddies on the left to the "'"Teddies on the right to get the correct answer." 300 PRINT'"If you get it wrong three times the "'"computer will show you the answer by"'"counting the teddies. Count with it."'"You will then get another go at the sum."'"If you get it wrong"; 310 PRINT" again the computer"'"will move on to the next sum. You will"'"have 10 sums in all." 320 PRINT'"The sum is also displayed in the centre of the screen in 'vertical format'." 330 VDU28,0,31,39,28 340 CHAIN"TEDDY2"