home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug055.arc / BOGGLE.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  1KB  |  48 lines
  1. 10 '         BOGGLE      -      by Bruce Ratoff.
  2. 20 '
  3. 21 PRINT CHR$(26):            'CLEAR SCREEN
  4. 22 PRINT TAB(25)"B O G G L E   -  by Bruce Ratoff.":
  5. 30 DEFINT A-Z
  6. 40 RANDOMIZE
  7. 100 DIM CUBE$(4,4),DIE$(16)
  8. 110 DATA DCMPAE,EFYHEI,ABOJMQ,YEGULK,ESOWDN,OKUTND
  9. 111 DATA FIROBX,TIYABL,LRWGTU,IVETNG,NIPEHS,RAMOHS
  10. 120 DATA SECARL,TACOAI,SPTLUE,ENADVZ
  11. 130 RESTORE 110
  12. 140 FOR I = 1 TO 16:
  13. 150    READ DIE$(I):
  14. 160 NEXT I:
  15. 200 FOR I = 1 TO 4:
  16. 201    FOR J = 1 TO 4:
  17. 210        LET CUBE$(I,J) = "":
  18. 220    NEXT J:
  19. 221 NEXT I:
  20. 230 FOR I = 1 TO 16:
  21. 240    LET X = RND(1) * 4 + .5:
  22. 241    LET Y = RND(1) * 4 + .5:
  23. 242    LET Z = RND(1) * 4 + .5:
  24. 250    IF CUBE$(X,Y) <> "" THEN GOTO 240:
  25. 260    LET CUBE$(X,Y) = MID$(DIE$(I),Z,1):
  26. 270 NEXT I:
  27. 275 PRINT CHR$(126);CHR$(28):        '*** ???
  28. 280 FOR I = 1 TO 4:
  29. 281    PRINT:
  30. 282    PRINT TAB(14);:
  31. 283    FOR J = 1 TO 4:
  32. 290         PRINT CUBE$(I,J),
  33. 300    NEXT J:
  34. 320 NEXT I:
  35. 330 PRINT:
  36. 331 PRINT CHR$(7);"GO!  ":
  37. 340 LET Q# = 1:
  38. 345 LET Q# = Q# + 1#:
  39. 346 IF INKEY$ = " " THEN GOTO 350:
  40. 347 IF Q# < 10000# THEN GOTO 345:
  41. 350 PRINT CHR$(7);CHR$(126);CHR$(28):        '*** ???
  42. 360 LINE INPUT "TIME'S UP!  HIT RETURN FOR NEW GAME";X$
  43. 380 GOTO 200
  44. 400 END
  45. 0 PRINT CHR$(7);CHR$(126);CHR$(28):        '*** ???
  46. 360 LINE INPUT "TIME'S UP!  HIT RETURN FOR NEW GAME";X$
  47. 380 GOTO 200
  48. 40