Listing of file='12P10.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'
5 REM PROGRAM 12.10 6 REM DICE 10 PLOT 15,6,2,29,12:REM SET UP; FLAG OFF 19 20 Y= 6:REM CURSOR Y OF EACH DIE 29 30 PLOT 3,18,15 40 INPUT "PRESS RETURN TO ROLL THE DICE ";A$ 50 PLOT 28,11:REM ERASE THE PROMPT 58 59 REM CHOOSE RANDOM # OF TIMES DICE WILL ROLL 60 T= 10* RND (1) 68 69 REM ROLL 'EM 70 FOR J= 1TO T 79 80 FOR X= 25TO 32STEP 7:REM CURSOR X OF EACH DIE 90 N= INT (6* RND (1))+ 1:REM GET A NUMBER FOR THE DIE 100 GOSUB 1000:REM DRAW THE DIE 110 NEXT 119 120 NEXT 129 130 GOTO 30:REM BACK FOR MORE 994 995 REM ----- SUBROUTINE TO PRINT A DIE 996 997 REM X,Y=CURSOR CO-ORDINATES OF TOP LEFT OF DIE 998 REM N IS THE NUMBER THE DIE IS TO SHOW 999 REM FLAG MUST BE OFF 1000 PLOT 3,X,Y 1009 1010 PLOT 6,7:REM SET COLOR FOR CELL #1 1020 PLOT 116:REM PRINT CELL #1 1029 1030 PLOT 6,56:REM SET COLOR FOR CELLS 2-4 1040 PLOT 32- 68* (N= 2OR N> 3):REM CELL #2 1050 PLOT 32:REM CELL #3 1060 PLOT 32- 68* (N> 2):REM CELL #4 1069 1070 PLOT 6,7:REM SET COLOR FOR CELL #5 1080 PLOT 117:REM PRINT CELL #5 1088 1089 REM MOVE CURSOR BACK AND DOWN FOR THE 2ND ROW 1090 GOSUB 1500 1099 1100 PLOT 6,56:REM SET COLOR FOR CELLS 6-10 1110 PLOT 32:REM CELL #6 1120 PLOT 32- 68* (N= 6):REM CELL #7 1130 PLOT 32- 68* (N= 1OR N= 3OR N= 5):REM CELL #8 1140 PLOT 32- 68* (N= 6):REM CELL #9 1150 PLOT 32:REM CELL #10 1158 1159 REM MOVE CURSOR BACK AND DOWN FOR THE FINAL ROW 1160 GOSUB 1500 1169 1170 PLOT 6,7:REM SET COLOR FOR CELL #11 1180 PLOT 118:REM PRINT CELL #11 1189 1190 PLOT 6,56:REM SET COLOR FOR CELLS 12-14 1200 PLOT 32- 68* (N> 2):REM CELL #12 1210 PLOT 32:REM CELL #13 1220 PLOT 32- 68* (N= 2OR N> 3):REM CELL #14 1229 1230 PLOT 6,7:REM SET COLOR FOR CELL #15 1240 PLOT 119:REM PRINT CELL #15 1249 1250 RETURN 1498 1499 REM MOVE CURSOR BACK AND DOWN FOR THE NEXT ROW 1500 PLOT 26,26,26,26,26,10:RETURN