Bingo ==#="BINGO--J.L.del Rio Moreno-1.983 7:0:1200 0:K$="###BINGO##BINGO##BINGO##BINGO###":Y$=" ":q=021:.01z# =,45-:q,0;1;4;7;K$:q N40(:q=210-1:0.01z# =,39':q,0;Y$:q  700  C$="SI" ALdbin=0:7,0;5;" INDICAR NUMERO DE JUGADORES " B"Numero de Jugadores ";J:7,0;2;" ";7,4;7;"PARTICIPAN ";J;" JUGADORES" C2000:K$="n"65A ENpli=1:A(J,5):C(J,5):D(J,5):B=0:4000 F@1;1;20,3;"PARA COMENZAR PULSAR 'c'" GK$=:K$"c"71G MJq=021:.02{# =,q:q,0;Y$:.015zu\,22-q:q Tser=ser+1 Z nj=1 _ a=1J `&vk=1:nj=-1vk=11 anj=-1110n dP1,2;2;7;"SERIE-";ser:1,20;"CARTON-";a eK=28 f7K,1;2;"|=============================|" hK jnj=1165 nR11 ,2;2;7;"SERIE-";ser:11 ,20;"CARTON-";a oK=12 18 p7K,1;2;"|=============================|" rK V=vk bC$="*******************************************************************************************" nbs=0 Z=0 V=V+2 Q=0 W=0 E=0 R=0 K=0 Z=Z+1 X=1+(*90Z) C$(X)="*"230f 215W C$(X)="$" V>17330% V>12@250z V>7.1c333315 %P=(3@+(X/10.1!)*3@) g X=10 X=20X=30X=40(X=502X=60<X=70FX=80PP=P+3 P=Q215 P=W215W  P=E215W P=R215W  K=K+1 K=1Q=P K=2W=P "K=3@E=P 'K=4R=P -V,P;X 2 V=3V=13 A(a,Z)=X 3 V=5V=15C(a,Z)=X 4 V=7V=17D(a,Z)=X 5Z5175 6 210R ; V=V+2 @nj=1350^ J820,2;1;"PARA CONTINUAR PULSAR 'c'" OK$=:K$"c"335O T420,0;" " Y ^nj=-nj `nj=1 ca enj=-1400 h 490u 820,2;1;"PARA CONTINUAR PULSAR 'c'" K$=:K$"i"335O 321,0;" "   21004 K1,95_:254,0:0,491:-254,0 4;4;4,0; " 1 2 3 4 5 6 7 8 9101112131415 161718192021222324252627282930 313233343536373839404142434445 464748495051525354555657585960 616263646566676869707172737475 767778798081828384858687888990 " H12 ,0;1;5;"################################" cB$=" "  5;1;15,14;"";16,14;" ";17,14;"":15,21;1;7;" BOLAS ";16,21;"EXTRAIDAS"  40(  N=1904 A=1+(*904) B$(A)=" "545@  530 ! B$(A)="$" +onbs=nbs+1:.01z# =,10 :16,15;A:15,21;1;7;N:T+502 ,J205655 -+21,0;"PARA PARAR PULSAR 'p'" .g$=:g$"p"5655 0Z20,0;"PARA CONTINUAR PULSAR 'c'";21,0;"PARA ACABAR PULSAR 'a'" 1 h$=:h$"a"h$"c"5611 2i20,0;" ":h$="c"5655 3:2000 4 65A 54g$="y":.1}L,25:16,15;" " :v.02{# =,40(:1;6;(4+(A/15.1q)),(A-((A/15.1q)*15))*2-2;" " ?r$="s" 3500 DN N :21004 F$="a" 5;4,0;" ELEGIR VELOCIDAD DE SALIDA DE ";5,0;"LOS NUMEROS ";1;"1-RAPIDO 5-LENTO"  K$=:K$<"1"K$>"5"764 S=K$ .1}L,16:4,0;Y$:.1}L,40(:5,0;Y$:.1}L,12 :4,0;2;7;" LOS NUMEROS IRAN SALIENDO CON VELOCIDAD ";S;" " T=(S*.8L)*60< 2000:K$="n"760  30 Q19,0;" " :19,0;"PARA CONTINUAR PULSAR 'ENTER"  40000@ 519,0;" "  ?15,0;1;1;"SE VUELVE A JUGAR (s/n)" $!Z$=:Z$"s"Z$"n"1060$ )Z$="s"10 3 1100L L 5pli=1:ser=0:7:1:7 q=021:1;q,0;7;" ":.005y# =,q+20:.001wn,22-q:q :128,88X,30:128,88X,29 r111o,65A:0,480:128,58::0,60<:145,65A:0,480 J98b,88X:60<,0:0,-2:-60<,0 H98b,88X:-8,0:0,-2:8,0 J96`,87W:0,-502:-2,0:0,502 N123{,118v:-8,12 :26,0:-8,-12 K164,87W:0,-502:-2,0:0,502 ļ78N,37%:100d,0:0,-1:-100d,0:0,-1:100d,0:0,-1:-100d,0:0,-1:100d,0 ~"a",60<:"a"+1,126~:q=25:"a"+q,239:q:"a"+6,126~:"a"+7,60< ȶ"c",60<:"c"+1,102f:"c"+2,219:"c"+3,227:"c"+4,251:"c"+6,251:"c"+6,102f:"c"+7,60< ʄ"b",60<:"b"+1,126~:q=25:"b"+q,255:q:"b"+6,126~:"b"+7,60<  Z$="BINGO" q=15 r111o,65A:0,480:128,58::0,60<:145,65A:0,480 ҕ158,88X:12 ,0:0,20:14,0:0,-3:-13 ,0:0,-19:-14,0 Tw=12:.01z# =,3*w:.03{u\,35#:.01z# =,3*q:w f1;13 ,17;"";13 ,14;"";12 ,13 ;"";12 ,18;"" !15,16;1;"" r111o,65A:0,480:128,58::0,60<:145,65A:0,480 4w=814:1;w,21;" ":w f1;13 ,17;" ";13 ,14;" ";12 ,13 ;" ";12 ,18;" " 815,16;1;" ";16,16;"" r111o,65A:0,480:128,58::0,60<:145,65A:0,480 158,88X:14,0:0,1:12 ,0:0,-4:-12 ,0:0,1:-14,0 1;8,17;"";13 ,17;"";13 ,14;"";9 ,16;"";9 ,13 ;"";8,14;""  5 816,16;1;" ";18,16;"" r111o,65A:0,480:128,58::0,60<:145,65A:0,480 4w=814:1;w,21;" ":w 1;8,17;" ";13 ,17;" ";13 ,14;" ";9 ,16;" ";9 ,13 ;" ";8,14;" "  5 :18,16;1;" ";19,13 +q;"" r111o,65A:0,480:128,58::0,60<:145,65A:0,480 158,88X:14,0:0,-19:12 ,0:0,-3:-12 ,0:0,20:-12 ,0 f1;13 ,17;"";13 ,14;"";12 ,13 ;"";12 ,18;""  5 <19,13 +q;1;" ";20,13 +q;"" r111o,65A:0,480:128,58::0,60<:145,65A:0,480 4w=814:1;w,21;" ":w f1;13 ,17;" ";13 ,14;" ";12 ,13 ;" ";12 ,18;" " r111o,65A:0,480:128,58::0,60<:145,65A:0,480 158,88X:14,0:0,1:12 ,0:0,-4:-12 ,0:0,1:-14,0 1;8,17;"";13 ,17;"";13 ,14;"";9 ,16;"";9 ,13 ;"";8,14;""  5  .20,13 +q;6;0;Z$(Q) r111o,65A:0,480:128,58::0,60<:145,65A:0,480 4w=814:1;w,21;" ":w 1;8,17;" ";13 ,17;" ";13 ,14;" ";9 ,16;" ";9 ,13 ;" ";8,14;" " q r111o,65A:0,480:128,58::0,60<:145,65A:0,480 158,88X:12 ,0:0,20:14,0:0,-3:-13 ,0:0,-19:-14,0 f1;13 ,17;"";13 ,14;"";12 ,13 ;"";12 ,18;""  2 ].1}L,39':.1}L,12 :1;1;21,0;" CORRECTO (s/n)" !K$=:K$"s"K$"n"2005 -21,0;" ": 4:0,0;1;5;"################################################################################################" 9&s$=" BINGO * BINGO * BINGO * BINGO " > aa=1 Cw=130:2;7;1;1,w;s$(w):.01z# =,w:.02{# =,30-w:w:.4L,30:.4L,9 : acd=0:car=0 car=car+1 cont=0 cont=cont+1 A=A(car,cont)3600 A=C(car,cont)3700t A=D(car,cont)3800 cont<53505 car:1;"QUEDAN ";65561 -7962;" BYTES LIBRES" leZBINGO