10MODE7 20 VDU 23,1,0;0;0;0; 30 @%=&00004 40 PRINT"THIS PROGRAM MAY HELP YOU" 50 PRINT"TO WIN THE NATIONAL LOTTERY! !" 60FOR Q=0 TO 6000:NEXT 70CLS 80LET Y1=0:LET Y2=0:LET Y3=0:LET Y4=0 :LET Y5=0:LET Y6=0:LET Y7=0 90LET Y8=0:LET Y9=0:LET Y10=0:LET Y11 =0:LET Y12=0:LET Y13=0:LET Y14=0 100LET Y15=0:LET Y16=0:LET Y17=0:LET Y 18=0:LET Y19=0:LET Y20=0:LET Y21=0 110LET Y22=0:LET Y23=0:LET Y24=0:LET Y 25=0:LET Y26=0:LET Y27=0:LET Y28=0 120LET Y29=0:LET Y30=0:LET Y31=0:LET Y 32=0:LET Y33=0:LET Y34=0:LET Y35=0 130LET Y36=0:LET Y37=0:LET Y38=0:LET Y 39=0:LET Y40=0:LET Y41=0:LET Y42=0 140LET Y43=0:LET Y44=0:LET Y45=0:LET Y 46=0:LET Y47=0:LET Y48=0:LET Y49=0 150LET T=0 160PRINT TAB(0,0)" 1 2 3 4 5 6 7" 170PRINT TAB(0,3)" 8 9 10 11 12 13 14" 180PRINT TAB(0,6)"15 16 17 18 19 20 21" 190PRINT TAB(0,9)"22 23 24 25 26 27 28" 200PRINT TAB(0,12)"29 30 31 32 33 34 35" 210PRINT TAB(0,15)"36 37 38 39 40 41 42" 220PRINT TAB(0,18)"43 44 45 46 47 48 49" 230LET V=RND(1) 240IF V=1 GOTO 250 250LET X=RND(49) 260IF X=1 LET Y1=Y1+1 270IF X=2 LET Y2=Y2+1 280IF X=3 LET Y3=Y3+1 290IF X=4 LET Y4=Y4+1 300IF X=5 LET Y5=Y5+1 310IF X=6 LET Y6=Y6+1 320IF X=7 LET Y7=Y7+1 330IF X=8 LET Y8=Y8+1 340IF X=9 LET Y9=Y9+1 350IF X=10 LET Y10=Y10+1 360IF X=11 LET Y11=Y11+1 370IF X=12 LET Y12=Y12+1 380IF X=13 LET Y13=Y13+1 390IF X=14 LET Y14=Y14+1 400IF X=15 LET Y15=Y15+1 410IF X=16 LET Y16=Y16+1 420IF X=17 LET Y17=Y17+1 430IF X=18 LET Y18=Y18+1 440IF X=19 LET Y19=Y19+1 450IF X=20 LET Y20=Y20+1 460IF X=21 LET Y21=Y21+1 470IF X=22 LET Y22=Y22+1 480IF X=23 LET Y23=Y23+1 490IF X=24 LET Y24=Y24+1 500IF X=25 LET Y25=Y25+1 510IF X=26 LET Y26=Y26+1 520IF X=27 LET Y27=Y27+1 530IF X=28 LET Y28=Y28+1 540IF X=29 LET Y29=Y29+1 550IF X=30 LET Y30=Y30+1 560IF X=31 LET Y31=Y31+1 570IF X=32 LET Y32=Y32+1 580IF X=33 LET Y33=Y33+1 590IF X=34 LET Y34=Y34+1 600IF X=35 LET Y35=Y35+1 610IF X=36 LET Y36=Y36+1 620IF X=37 LET Y37=Y37+1 630IF X=38 LET Y38=Y38+1 640IF X=39 LET Y39=Y39+1 650IF X=40 LET Y40=Y40+1 660IF X=41 LET Y41=Y41+1 670IF X=42 LET Y42=Y42+1 680IF X=43 LET Y43=Y43+1 690IF X=44 LET Y44=Y44+1 700IF X=45 LET Y45=Y45+1 710IF X=46 LET Y46=Y46+1 720IF X=47 LET Y47=Y47+1 730IF X=48 LET Y48=Y48+1 740IF X=49 LET Y49=Y49+1 750PRINT TAB(0,1);Y1;TAB(4,1);Y2;TAB(8 ,1);Y3;TAB(12,1);Y4;TAB(16,1);Y5;TAB(20, 1);Y6;TAB(24,1);Y7 760PRINT TAB(0,4);Y8;TAB(4,4);Y9;TAB(8 ,4);Y10;TAB(12,4);Y11;TAB(16,4);Y12;TAB( 20,4);Y13;TAB(24,4);Y14 770PRINT TAB(0,7);Y15;TAB(4,7);Y16;TAB (8,7);Y17;TAB(12,7);Y18;TAB(16,7);Y19;TA B(20,7);Y20;TAB(24,7);Y21 780PRINT TAB(0,10);Y22;TAB(4,10);Y23;T AB(8,10);Y24;TAB(12,10);Y25;TAB(16,10);Y 26;TAB(20,10);Y27;TAB(24,10);Y28 790PRINT TAB(0,13);Y29;TAB(4,13);Y30;T AB(8,13);Y31;TAB(12,13);Y32;TAB(16,13);Y 33;TAB(20,13);Y34;TAB(24,13);Y35 800PRINT TAB(0,16);Y36;TAB(4,16);Y37;T AB(8,16);Y38;TAB(12,16);Y39;TAB(16,16);Y 40;TAB(20,16);Y41;TAB(24,16);Y42 810PRINT TAB(0,19);Y43;TAB(4,19);Y44;T AB(8,19);Y45;TAB(12,19);Y46;TAB(16,19);Y 47;TAB(20,19);Y48;TAB(24,19);Y49 820LET T=T+1 825PRINT TAB(28,22)"TRIAL" 830PRINT TAB(28,23);T 835PRINT TAB(0,23)"PRESS SHIFT+CTRL TO PAUSE" 840GOTO250