10 REM BOGGLE - by Bruce Ratoff
20 REM
30 DEFINT A-Z
40 RANDOMIZE
100 DIM CUBE$(4,4),DIE$(16)
110 DATA DCMPAE,EFYHEI,ABOJMQ,YEGULK,ESOWDN,OKUTND,FIROBX,TIYABL
120 DATA LRWGTU,IVETNG,NIPEHS,RAMOHS,SECARL,TACOAI,SPTLUE,ENADVZ
130 RESTORE 110
140 FOR I=1 TO 16
150 READ DIE$(I)
160 NEXT I
200 FOR I=1 TO 4:FOR J=1 TO 4
210 CUBE$(I,J)=""
220 NEXT J,I
230 FOR I=1 TO 16
240 X=RND(1)*4+.5:Y=RND(1)*4+.5:Z=RND(1)*6+.5
250 IF CUBE$(X,Y)<>"" THEN 240
260 CUBE$(X,Y)=MID$(DIE$(I),Z,1)
270 NEXT I
275 PRINT CHR$(126);CHR$(28)
280 FOR I=1 TO 4:PRINT:PRINT:PRINT:PRINT:PRINT TAB(14);:FOR J=1 TO 4
290 PRINT CUBE$(I,J),
300 NEXT J
320 NEXT I
330 PRINT:PRINT CHR$(7);"GO!  "
340 Q#=1
345 Q#=Q#+1#:IF INKEY$=" " THEN 350 ELSE IF Q#<10000# THEN 345
350 PRINT CHR$(7);CHR$(126);CHR$(28)
360 LINE INPUT "TIME'S UP!  HIT RETURN FOR NEW GAME";X$
380 GOTO 200
400 END
HEN 345
350 PRINT