home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG055.ARC
/
BOGGLE.BAS
< prev
next >
Wrap
BASIC Source File
|
1979-12-31
|
1KB
|
48 lines
10 ' BOGGLE - by Bruce Ratoff.
20 '
21 PRINT CHR$(26): 'CLEAR SCREEN
22 PRINT TAB(25)"B O G G L E - by Bruce Ratoff.":
30 DEFINT A-Z
40 RANDOMIZE
100 DIM CUBE$(4,4),DIE$(16)
110 DATA DCMPAE,EFYHEI,ABOJMQ,YEGULK,ESOWDN,OKUTND
111 DATA FIROBX,TIYABL,LRWGTU,IVETNG,NIPEHS,RAMOHS
120 DATA 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:
201 FOR J = 1 TO 4:
210 LET CUBE$(I,J) = "":
220 NEXT J:
221 NEXT I:
230 FOR I = 1 TO 16:
240 LET X = RND(1) * 4 + .5:
241 LET Y = RND(1) * 4 + .5:
242 LET Z = RND(1) * 4 + .5:
250 IF CUBE$(X,Y) <> "" THEN GOTO 240:
260 LET CUBE$(X,Y) = MID$(DIE$(I),Z,1):
270 NEXT I:
275 PRINT CHR$(126);CHR$(28): '*** ???
280 FOR I = 1 TO 4:
281 PRINT:
282 PRINT TAB(14);:
283 FOR J = 1 TO 4:
290 PRINT CUBE$(I,J),
300 NEXT J:
320 NEXT I:
330 PRINT:
331 PRINT CHR$(7);"GO! ":
340 LET Q# = 1:
345 LET Q# = Q# + 1#:
346 IF INKEY$ = " " THEN GOTO 350:
347 IF Q# < 10000# THEN GOTO 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
0 PRINT CHR$(7);CHR$(126);CHR$(28): '*** ???
360 LINE INPUT "TIME'S UP! HIT RETURN FOR NEW GAME";X$
380 GOTO 200
40