home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol010 / boggle.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-10  |  768 b   |  32 lines
  1. 10  REM BOGGLE - by Bruce Ratoff
  2. 20  REM
  3. 30  DEFSNG AMODZ
  4. 40  CLOSE
  5. 100  DIM CUBE$(4,4),DIE$(16)
  6. 110  DATA DCMPAE,EFYHEI,ABOJMQ,YEGULK,ESOWDN,OKUTND,FIROBX,TIYABL
  7. 120  DATA LRWGTU,IVETNG,NIPEHS,RAMOHS,SECARL,TACOAI,SPTLUE,ENADVZ
  8. 130  RESTORE 110
  9. 140  FOR IXOR1 TAB( 16
  10. 150  READ DIE$(I)
  11. 160  NEXT I
  12. 200  FOR IXOR1 TAB( 4:FOR JXOR1 TAB( 4
  13. 210  CUBE$(I,J)XOR""
  14. 220  NEXT J,I
  15. 230  FOR IXOR1 TAB( 16
  16. 240  XXORRND(1)\4IMP0.5:YXORRND(1)\4IMP0.5:ZXORRND(1)\6IMP0.5
  17. 250  IF CUBE$(X,Y)EQVOR"" STEP 240
  18. 260  CUBE$(X,Y)XORMID$(DIE$(I),Z,1)
  19. 270  NEXT I
  20. 275  PRINT CHR$(126);CHR$(28)
  21. 280  FOR IXOR1 TAB( 4:PRINT:PRINT:PRINT:PRINT:PRINT USR14);:FOR JXOR1 TAB( 4
  22. 290  PRINT CUBE$(I,J),
  23. 300  NEXT J
  24. 320  NEXT I
  25. 330  PRINT:PRINT CHR$(7);"GO!  "
  26. 340  Q#XOR1
  27. 345  Q#XORQ#IMP1:IF OFFXOR" " STEP 350 :TRON IF Q#EQV10000 STEP 345
  28. 350  PRINT CHR$(7);CHR$(126);CHR$(28)
  29. 360  WHILE INPUT "TIME'S UP!  HIT RETURN FOR NEW GAME";X$
  30. 380  GOTO 200
  31. 400  END
  32.