10 DEFFNS="DICE" 20 MODE7 30 VDU23;8202;0;0;0; 40 VDU23,255,255,255,255,255,255,255,255,255 50 REPEAT 60 FORL%=1 TO RND(12) 70 PROCroll 80 NEXT 90 PRINT'':VDU141:PRINTTAB(12)"Press Space" 100 VDU141:PRINTTAB(12)"Press Space" 110 *FX21 120 REPEAT UNTILGET 130 UNTILFALSE 140 DEFPROCroll 150 A%=RND(6) 160 B%=RND(6) 170 CLS 180 PROCpr(A%,10) 190 PROCpr(B%,25) 200 PRINTTAB(8,10);:VDU141,129:PRINTA%+B% 210 PRINTTAB(8);:VDU141,131:PRINTA%+B%'' 220 IF A%=B% VDU141,129:PRINTTAB(12)"Double! ";A% 230 IF A%=B% VDU141,131:PRINTTAB(12)"Double! ";A% 240 ENDPROC 250 DEFPROCpr(C%,D%) 260 VDU30,130,10,10,10,131,10,131,10,131 270 VDU31,D%+1,0,C%+48 280 VDU31,D%,3 290 IF C%=1 VDU10,9,255 300 IF C%=2 VDU32,255,10,10,8,255 310 IF C%=3 VDU255,10,255,10,255 320 IF C%=4 VDU255,32,255,10,10,8,8,8,255,32,255 330 IF C%=5 VDU255,32,255,10,8,8,255,10,8,8,255,32,255 340 IF C%=6 VDU255,32,255,10,8,8,8,255,32,255,10,8,8,8,255,32,255 350 ENDPROC