Microsoft Small Basic

Program Listing:

Embed this in your website

<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'>
    <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/>
    <param name='onError' value='onSilverlightError' />
    <param name='background' value='white' />
    <param name='minRuntimeVersion' value='3.0.40624.0' />
    <param name='autoUpgrade' value='true' />
    <param name='initParams' value='programId=PGZ290' />
</object>

'Choose a random number between 1 and 100

'Do the following 8 times

    'Ask the user for a guess.

    'If the guess is correct

       'Play a bell

       'Tell the user that they won the game and exit

    'If the guess is too high

       'Tell the end user too high

    'If the guess is too low

       'Tell the end user too low

   'If after 8 times they haven't guessed correctly, tell them they've lost the game