.J  
NEW
 10 *NAME BOGGLE
   20 CLS : REM BOGGLE BY JAMIE BRADBURY 2021 
   30 PRINT : PRINT "BOGGLE - 2021 Z88 FOREVER!" : PRINT "BY JBIZZEL"
   40 P1% = 0 : P2% = 0
   50 PRINT : PRINT "PRESS A KEY" : X=GET
   60 DIM DICE$(96) :REM POPULATE ARRAY WITH DATA
   70 FOR I%=1 TO 96
   80   READ DICE$(I%)
   90 NEXT I%
  110 DIM HAND$(16) : REM THIS IS THE SET LETTERS WE WILL USE FOR THE GAME
  120 DI%= 0
  130 FOR I%=1 TO 16  : REM PICKS 16 OF THE 96 DICE FACES
  140   HAND$(I%) = DICE$(RND(6)+DI%)
  150   DI%=DI%+6 :  PRINT TAB(I%,1); HAND$(I%)
  160 NEXT I%
  170 REM NOW RANDOMLY ORDER THE HAND
  180 FOR I%=1 TO 30
  190   SEED%=RND(16)
  200   IF SEED%=0 THEN SEED%=1
  210   STORE$=HAND$(16)
  220   STORE2$=HAND$(SEED%)
  230   HAND$(16) = STORE2$
  240   HAND$(SEED%) = STORE$
  250 NEXT I%
  260 CLS
  270 PRINT " Z88 BOGGLE...." : VDU 1,52,33,40,33,33
  280 FOR I%=1 TO 4
  290   PRINT TAB(I%*2,2); HAND$(I%)
  300 NEXT I%
  310 REM
  320 FOR I%=5 TO 8
  330   PRINT TAB((I%-4)*2,3); HAND$(I%)
  340 NEXT I%
  350 FOR I%=9 TO 12
  360   PRINT TAB((I%-8)*2,4); HAND$(I%)
  370 NEXT I%
  380 FOR I%=13 TO 16
  390   PRINT TAB((I%-12)*2,5); HAND$(I%)
  400 NEXT I%
  410 TIME=0
  420 REM Set TIMER to zero and start the count
  430 PRINT TAB(0,6 ); "3 MINUTES STARTS NOW!"  : VDU 1,52,33,40,33,33
  431 PRINT TAB(17,1) "P1:" : PRINT TAB(17,2) "P2:" :REM update score
  432 PRINT TAB(20,1) P1% : PRINT TAB(20,2) P2%
  440 REPEAT
  470   REM 
  480 UNTIL TIME >= 18000
  490 TIME = 0
  500 PRINT TAB(0,6 ); "TIMES UP! - Each player work out your score" : VDU 1,52,33,40,33,33
  510 X=GET
  520 INPUT "What is your score Player 1?" A% : INPUT "What is your score Player 2? " B%
  530 P1% = P1%+ A% : P2% = P2% + B%
  540 PRINT TAB(10,0) P1% : PRINT TAB(15,0)P2%
  550 IF P1% > P2% AND P1% >= 100 THEN CLS : PRINT "Player 1 WINS!" : P1% = 0 : P2% = 0 : X=GET
  560 IF P2% > P1% AND P2% >= 100 THEN CLS : PRINT "Player 2 WINS!" : P1% = 0 : P2% = 0   : X=GET
  570 GOTO 120
  630 REM DATA OF BOGGLE DICE
  640 DATA T,T,R,E,L,Y,N,H,N,L,Z,R,L*,R,E,I,X,D,M,U,O,C,T,I,O*,W,T,O,A,T,T,O,E,S,I,S,B*,B,A,O,O,J,E,E,G*,N,A,A,E,E,U,S,N,I
  650 DATA C,S,O,A,P,H,S,P,F,A,F,K,Y,R,D,V,L,E,U,N,H,I,M,Qu,T,S,T,I,Y,D,E*,R,W,T,H,V,G*,E,W,N,H,E
