home *** CD-ROM | disk | FTP | other *** search
/ back2roots/filegate / filegate.zip / filegate / gamesnet / g_amiga / AE1CRTVC.ZIP / AE1CRTVC.LHA / DICE.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  35 lines
  1. 1 PRINT CHR$(26):WIDTH 80
  2. 2 PRINT TAB(34);"DICE":PRINT
  3. 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. 6 PRINT:PRINT:PRINT
  5. 10 DIM F(12)
  6. 20 REM  DANNY FREIDUS
  7. 30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A PAIR OF DICE."
  8. 50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO"
  9. 60 PRINT "'ROLL' THE DICE.  WATCH OUT, VERY LARGE NUMBERS TAKE"
  10. 70 PRINT "A LONG TIME.  IN PARTICULAR, NUMBERS OVER 5000."
  11. 80 FOR Q=1 TO 12
  12. 90 F(Q)=0
  13. 100 NEXT Q
  14. 110 PRINT:PRINT "HOW MANY ROLLS";
  15. 120 INPUT X
  16. 130 FOR S=1 TO X
  17. 140 A=INT(6*RND(1)+1)
  18. 150 B=INT(6*RND(1)+1)
  19. 160 R=A+B
  20. 170 F(R)=F(R)+1
  21. 180 NEXT S
  22. 185 PRINT
  23. 190 PRINT "TOTAL SPOTS","NUMBER OF TIMES"
  24. 195 PRINT "-----------","---------------":PRINT
  25. 200 FOR V=2 TO 12
  26. 210 PRINT TAB(5);:PRINT USING "##";V;:PRINT "",:PRINT USING "#,###,###";
  27.     F(V)
  28. 220 NEXT V
  29. 221 PRINT
  30. 222 PRINT:PRINT "TRY AGAIN";
  31. 223 INPUT Z$
  32. 224 IF LEFT$(Z$,1)="Y" THEN 80
  33. 240 RUN "MENU"
  34. 
  35.