%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:515
File Name:GUESS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 5,1,"NUMBER GUESS"
\Locate 1,7,"PRESS EXE TO CONTINUE"
\Locate 9,3,"BY"
\Locate 3,4,"THE MADWEB TEAM"
\Locate 2,5,"WWW.MADWEB.4T.COM"
\Do
\LpWhile \Getkey\<>31
\ClrText
"RESET SCORES (1\slash0)"
?\->A
A=1\=>0\->Z
A=1\=>0\->Y
\Lbl S
0\->U
\ClrText
"GUESS (0-100)"
\Int ((100*\Ran#)+1)\->N
\Lbl T
?\->A
\Isz U
A=N\=>\GotoW
A>N\=>\GotoA
A<N\=>\GotoB
\Lbl W
\ClrText
\Locate 1,1,"YOU WIN EXE TO PLAY"
\Locate 1,3,"IN    GOES"
\Locate 4,3,U
((Y*Z)+U)/(Z+1)\->Y
\Isz Z
\Locate 1,4,"AVERAGE GUESS"
\Locate 15,4,Y
\Locate 1,6,"YOU DID"
U<Y\=>\Locate 1,7,"ABOVE AVERAGE"
U>Y\=>\Locate 1,7,"BELOW AVERAGE"
U=Y\=>\Locate 1,7,"AVERAGE"
\Lbl Z
\Getkey=31\=>\GotoS
\GotoZ
\Lbl A
"TOO BIG TRY AGAIN"
\GotoT
\Lbl B
"TOO SMALL TRY AGAIN"
\GotoT

%End