::"HQ9+ dev
:ClrHome
:Output(1,1,"HQ9+ IDE")
:Output(2,1,"(c) 2007 Chris Chan")
:Pause  
:ClrHome
:While 1
:Input Str1
:inString(Str1,"H")
:Disp "Hello World"
:inString(Str1,"Q")
:Disp Str1
:inString(Str1,"9")
:Disp "99 bottles of beer"
:inString(Str1,"+")
:A+1->A
:""->Str1
:End
: