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