Lotto Fun

MIS basic

100 PRINT"[CLEAR,RVS,SPACE10] 120 PRINT"[DOWN]PRESS FIREBUTTON TO START." 130 S=1024;C=55296:Y=56320:DIM M(1000) 140 WAIT Y,16,127:POKE 53280,8 :POKE 53281,0:PRINT"[CLEAR]" 150 FOR J=1 TO 4:READ A(J):NEXT :FOR J=0 TO 8:READ D(J):NEXT 160 FOR J = 1 TO 4:FOR K=1 TO 10 170 R=INT (RND(0)*1000) :IF M(R)>0 THEN :INPUT#2,A(T) :NEXT:CLOSE 2 180 POKE R+S,A(J):POKE R+C , J : P(J , K )=R SM(R)=1:NEXT K,J 190 IF X>N THEN PRINT"TOO HIGH!";GOTO 180 200 A(X)=A(X)+1:GOTO 180 210 OPEN 2,8,2,"@0:SF,S,W" :FOR T=1 TO N:PRINTS2,A(T) :Z=A(T)+Z:NEXT:CLOSE 2 220 FOR T=1 TO N:YS(T)=STRS((A(T)/2} MOO) :NEXT 230 PRINT"[CLEAR1PERCENTAGES OF WINNING NUMBERS: [DOWN] " :FOR T=1 TO S 240 PRINT T;TAB(5);LEFTS(YS (T) ,5)"%"; (15);TAB(19);LEFTS(YS(T+S),5); 260 POKE P{3,J)+S,32:POKE