8-Bit Software Online Conversion

Count With Teddy - Listing

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"