%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\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\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