10CLEAR :CLS :RANDOMIZE :RESTORE :R=2 20LOCATE 8,1:PRINT "½ ºÞ Û ¸" 30LOCATE 9,3:PRINT STR$ (E+1);" PLAY" 40LOCATE 9,4:PRINT "["; MID$ ("ManyMeanFew ",R*4-3,4);"]" 50CALL 48381:BEEP 1,,25 60IF ASC INKEY$ =4 LET E=E XOR 1 70IF ASC INKEY$ =5 LET R=R-1:IF R=0 LET R=3 80IF ASC INKEY$ <>13 GOTO 30 90LOCATE 9,3:PRINT " " 100LOCATE 9,4:PRINT " " 110LOCATE 8,2:PRINT "Wait..." 120DIM G$(4)*1,Z(55),ZZ(55,1),C$(1),W(1) 130R=R*2 140C$(0)="\",C$(1)="$" 150FOR J=0 TO 4 160READ G$(J) 170NEXT 180DATA " ",+,!,&,# 190FOR J=0 TO 55 200IF RND R=1 LET Z(J)= RND 3 210NEXT 220Z( RND 56-1)=4 230FOR J=0 TO 55 240READ ZZ(J,0),ZZ(J,1):LOCATE ZZ(J,0),ZZ(J,1):PRINT G$(Z(J)) 250NEXT 260DATA 0,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,10,0,11,0,12,0,13,0,14,0,15,0,16,0,17,0,18,0,19,0,20,0,21,0,22,0,23,0,23,1,23,2,23,3 270DATA 23,4,23,5,22,5,21,5,20,5,19,5,18,5,17,5,16,5,15,5,14,5,13,5,12,5,11,5,10,5,9,5,8,5,7,5,6,5,5,5,4,5,3,5,2,5,1,5,0,5,0,4,0,3,0,2,0,1 280LOCATE 8,2:PRINT " " 290LINE (6,8)-(136,39),B 300LOCATE 2,2:PRINT "Dice:" 310LOCATE 0,0:PRINT C$(0) 320*DICE 330LOCATE 8,3:PRINT "TURN ";C$(P) 340FOR J=1 TO 300:NEXT 350ZZ= RND 6 360IF INKEY$ <>"" GOTO 360 370ZZ=ZZ+1:IF ZZ=7 LET ZZ=1 380LOCATE 7,2:PRINT STR$ ZZ:BEEP 1,78,20 390IF P=1 AND E=0 IF RND 10<>1 GOTO 370 ELSE 410 400IF INKEY$ ="" GOTO 370 410BEEP 1,,20:FOR J=1 TO 500:NEXT 420FOR J=1 TO ZZ 430Q=J+W(P):IF Q>55 LET Q=Q-56 440QQ=Q-1:IF QQ<0 LET QQ=QQ+56 450LOCATE ZZ(Q,0),ZZ(Q,1):PRINT C$(P) 460LOCATE ZZ(QQ,0),ZZ(QQ,1):PRINT G$(Z(QQ)):IF QQ=W(P XOR 1) LOCATE ZZ(QQ,0),ZZ(QQ,1):PRINT C$(P XOR 1) 470BEEP 1,200,10:FOR W=0 TO 100:NEXT 480NEXT 490W(P)=Q 500IF Z(W(P))=1 LET M= RND 6:GOSUB *MOVE:GOTO *BB 510IF Z(W(P))=2 LET M= RND 20+20:GOSUB *MOVE:GOTO *BB 520IF Z(W(P))=3 GOTO *PS 530IF Z(W(P))=4 GOTO *WIN 540*BB IF Z(W(P))=4 GOTO *WIN 550P=P XOR 1:GOTO *DICE 560*MOVE 570LOCATE 3,3:PRINT "+"; STR$ M;"Î":FOR W=0 TO 500:NEXT 580FOR J=1 TO M 590Q=W(P)+J:IF Q>55 LET Q=Q-56 600QQ=Q-1:IF QQ<0 LET QQ=QQ+56 610LOCATE ZZ(Q,0),ZZ(Q,1):PRINT C$(P) 620LOCATE ZZ(QQ,0),ZZ(QQ,1):PRINT G$(Z(QQ)):IF QQ=W(P XOR 1) LOCATE ZZ(QQ,0),ZZ(QQ,1):PRINT C$(P XOR 1) 630BEEP 1,50,10:FOR W=0 TO 100:NEXT :NEXT 640LOCATE 3,3:PRINT " ":FOR W=0 TO 500:NEXT 650W(P)=Q:RETURN 660*WIN 670LOCATE 5,3:PRINT C$(P);" WIN!!!!" 680FOR J=20 TO 0 STEP -2:BEEP 2,J*10,20:NEXT :CALL 48381:GOTO 10 690*PS 700LOCATE 5,3:PRINT "Ó³²ÁÄÞ!":FOR J=20 TO 0 STEP -1:BEEP 1,J*2,J*10:NEXT 710LOCATE 5,3:PRINT " ":GOTO *DICE