0 'BOGGLE.BA - AUTHOR UNKNOWN
1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 DIMN(4),N1(4),G$(4):GOSUB33:CLS:FORX=1TO4:N(X)=0:N1(X)=0:NEXTX
3 FORX=1TO4:N(X)=INT(9*RND(1)+1):NEXTX:CLS:PRINT@120,"Yes, I have it now!":FORX=1TO500:Y=X:NEXTX:CLS
4 INPUT"Your guess please: ";G$(0):IF G$(0)="0000"THENT=24:GOTO11
5 FORX=1TO4:N1(X)=VAL(MID$(G$(0),X,1)):G$(X)="0":NEXTX:FORY=1TO4:SW=0
6 X=INT(4*RND(1)+1):IFG$(X)<>"0"THEN6
7 FORZ=1TO4:IFN(Z)=N1(X)THENSW=1
8 NEXTZ:IF SW=1THENG$(X)="BLACK "ELSEG$(X)="      "
9 IFN(X)=N1(X)THENG$(X)="WHITE "
10 NEXTY
11 T=T+1:IFT=25THENGOSUB25:GOTO24
12 Y=0:FORX=1TO4:IFG$(X)="WHITE "THENY=Y+1
13 NEXTX:IFY=4THEN18
14 FORX=1TO4
15 Y=INT(4*RND(1)+1):IFG$(Y)="0"THEN15
16 IFLEFT$(G$(Y),1)<>" "THENPRINTG$(Y);
17 G$(Y)="0":NEXTX:PRINT" ":GOTO4
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!"
32 FORX=1TO500:Y=X:NEXTX:RETURN
33 FORX=1TOVAL(RIGHT$(TIME$,2)):Y=RND(1):NEXTX:RETURN