Dice

Gallery

Source Code

   1 REM "DICE PROGRAM"                   BY ANTHONY WILLING
   3 CLS 
   5 DIM D$(6,9)
  10 LET D$(1)="% % % % %O% % % % "
  20 LET D$(2)="%O% % % % % % % %O"
  30 LET D$(3)="%O% % % %O% % % %O"
  40 LET D$(4)="%O% %O% % % %O% %O"
  50 LET D$(5)="%O% %O% %O% %O% %O"
  60 LET D$(6)="%O% %O%O% %O%O% %O"
  62 REM "DICE PROGRAM"
  64 PRINT "I AM A DICE ROLLING PROGRAM"
  65 PRINT 
  66 PRINT "I WILL ROLL FROM 1-5 DICE FOR   YOU, AT RANDOM"
  67 PRINT 
  68 PRINT "IF YOU ENTER A <0> AS THE CHOICEI WILL STOP ROLLING DICE"
  69 PRINT 
  70 PRINT "HOW MANY DICE DO YOU WISH TO    ROLL?"
 100 INPUT A
 200 CLS 
 300 IF A=0 THEN GOTO 2000
 310 IF A>5 THEN GOTO 1000
 400 FOR X=1 TO A
 500 LET B=INT (1+6*RND)
 510 FOR Y=1 TO 9 STEP 3
 520 PRINT D$(B,Y TO Y+2)
 530 NEXT Y
 540 PRINT 
 600 NEXT X
 700 GOTO 70
 750 STOP 
1000 PRINT "SORRY, MY DISPLAY CAN ONLY SHOW 5 DICE AT A TIME"
1005 PRINT 
1010 PRINT "PLEASE CHOOSE NUMBERS LESS THAN 5, DOING SO UNTIL YOUR DESIRED  TOTAL IS REACHED"
1015 PRINT 
1020 GOTO 70
2000 PRINT AT 11,9;"<THANK YOU>"
2010 PRINT AT 20,18;"1/83/%A%W"
2020 STOP 
2030 CLEAR 
2040 SAVE "1020%2"
2050 RUN