18 PRINT:PRINT"You got the number in";T;" tries.":IF T<5THENPRINT"You're a veritable GENIUS!"
19 IF T>4 AND T<8THENPRINT"You're a certified EXPERT!"
20 IF T>7 AND T<11THENPRINT"You're really VERY GOOD!"
21 IF T>10 AND T<13THENPRINT"You're basically AVERAGE."
22 IF T>12 AND T<16THENPRINT"You're OK."
23 IF T>15THENPRINT"You really need a lot of PRACTICE!"
24 PRINT:INPUT"Would you like to try again...Y/N ";Y$:IFLEFT$(Y$,1)="Y"OR LEFT$(Y$,1)="y"THENGOSUB26:GOTO3ELSEGOSUB26:MENU
25 G$(0)="":FORX=1TO4:G$(0)=G$(0)+STR$(N(X)):NEXTX:CLS:PRINT@120,"Too many tries, the number is:";G$(0):RETURN
26 TT=TT+T:R=R+1:AV=TT/R:AV=INT((AV*100)+.5)/100:T=0:CLS:PRINT@80,"After ";R;" turns, you made";TT;" guesses.":PRINT:PRINT"For an avg of";AV;" per turn.":AV=INT(AV):PRINT:IF AV<5THENPRINT"You're a veritable GENIUS!"
27 IF AV>4 AND AV<8THENPRINT"You're a certified EXPERT!"
28 IF AV>7 AND AV<11THENPRINT"You're really VERY GOOD!"
29 IF AV>10 AND AV<13THENPRINT"You're basically AVERAGE."
30 IF AV>12 AND AV<16THENPRINT"You're OK."
31 IF AV>15THENPRINT"You really need a lot of PRACTICE!"