' Simple Number Guess Game
' --
' Numba Source works under VBScript
' and TRS-80 Model-100

Rem Define SRC_VBSCRIPT
Rem IfDef SRC_VBSCRIPT

Rem Include "vbscript.inc"

' Numba currently won't detect $ vars
' so Opt Var GuessIn=G0$ is required
Rem Opt Var GuessIn=G0$

' Randomize M100
Rem Macro Randomize " " "Timer"=num = 0 * Rnd(-peek(-1745)*60+Val(right$(time$,2)))

Rem EndIf

Randomize Timer

num = Int(Rnd(1)*100) + 1

WScript.Stdout.WriteLine "Guess a number between 1 and 100."
WScript.Stdout.WriteLine

cnt = 0: guess = 0
Do While guess <> Num
    cnt = cnt + 1
    WScript.Stdout.Write "Enter your guess: "
    GuessIn = WScript.StdIn.Readline
    guess = CInt(GuessIn)
    result = -8*(guess>100)-4*(guess<1)-2*(guess>num)-1*(guess<num)
    Select Case result
        Case 0
            WScript.Stdout.Writeline "Correct!"
            WScript.Stdout.Writeline "It took you " + CStr(cnt) + " guesses."
        Case 1
            WScript.Stdout.Writeline "Guess is too Low."
        Case 2
            WScript.Stdout.Writeline "Guess is too High."
    Case Else
        WScript.Stdout.Writeline "Guess must be between 1 and 100."
    End Select
    WScript.Stdout.Writeline
Loop
WScript.Quit