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=ZZR544' />
</object>

TextWindow.Write( "Number: " )

n = TextWindow.ReadNumber()

TextWindow.Write( "Results: " )

While ( n > 1 )

  TextWindow.Write( n + " -> " )

  If Math.Remainder( n, 2 ) = 0  Then

    n = n / 2

  Else

    n = n * 3 + 1

  EndIf

EndWhile

TextWindow.WriteLine(1)