'=========================================================================== ' Subject: POKER SLOTS SIMULATION GAME Date: 10-01-99 (13:36) ' Author: Steven Edwards Code: RAPIDQ ' Origin: steven522@netzero.net Packet: RAPIDQ.ABC '=========================================================================== ' Poker Slots Simulation Game ' To extract POKRSLOT.ZIP, run this code under QBasic, or download DEPOST DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"POKRSLOT.ZIP",4^6:Z&=5397:?STRING$(50,177); U"%up()%9%'%%-%%%74Dl]>civ%%%%[)%%%.%%%%xu%fijS[nhtNdxV=<[U1aRX*1 U"NI(eO=M+um(wa(H#f7)<)VmqB.j/c)/m&R/h<:pqN U"'OF0t:lsnubin^+KC^$*+6$IB4GL9Eq.nbt,bhfXJ+xlpH,85ZK9k?FYc)U+^6eB+ U"dIoNif?U.,&B5D7h>H4.kMf(PF'l^966PB^/h/aVkiB?ei8W^7e5^f?WaVg7^/-ePg#q^T::?Qt;=O\eh^KivM,SHvl5$:$Aso?:SJL.[7A36JZ3wu+W-1qE>/0 U"P>0WYCBB_6sCT$4yJ?s*1Bx;\NOT%up()%9%'%#-%\9ILL1U.'[uV3<7E15iTVW)DcGQd)*m8a.gNrVi;k]eB-aRk6g>y=ba>D U"ct]9%UJcOn+>S:+g[F4soN0KLG4aX7ER[goCM)gcw=Q.K;pIZ49)(wM2OT?n5R* U"]r'Q.7j'.^K,i**J0$j$[5'B[9e_3k/*SvKAIV9/6jfi%.zs-lvm]uZ,XGK\gTc U"8o[IPtQhhPApl7CoZ\,vlQiIN6D/f'N'?,up%()9%%'%-%(^%ZL=[aLO'a2%%&5 U"a%%%1%%%%utpw%xqty%SgfxNN*,bZV*v?^dB8uupuRqf[ U"VAVJ$*(jQ.1(ZbB'G$)Yw:e5va#A+lW4L\h+5IaFYh#;4G4c$ZHH[gjr8nYqZ)6 U"Zb/ej2WOFN=)Z3O3EV>lX7TOgLahq.,W(lOVi%^/$3%g$*Nwta*4t^4HLzm+Vqd U"820mUalN('9E\gJQD#orDpK2/Aj)8NwZe>4jkj4NXnkXo<.Tmi'qM[<^&V U"[aD(#9(o9C61gbn,xAA$b6dvEN5Zwbuek#>ImI2nJ\mFDGX?VWJ5-sOZ))3LtHT U"ipPON,ZF&TPDH7>[vWZ;;El3iO[Rak*P_D/BEuFHmF3p-^(2/YhC$h0EZ/y'*u) U"VKH-tT&e%7PIw^;b^%?)p9)Nevf)I&S(7W?8hmU.DD[WZge:)j?<+? U"9;m9qoF.J=$0YpE1mgM?5BlYxJ\&=*k#78[0f<&h+Zb2 U"[n7S7791xhv?a_#j#,^]aK9%Arf%%4ITC?uVWgd0-j9tQ[EA0-rMO^hiR/)L;y( U"Y+/=B[shb-XBZWHoWyC(vI(w3zL?kB3_;>176KRz,xMu:i6ShmnJ)pjb\AKHsB31*C)eHyr/_J&AV+kZn:JURo+iD:'':D U"4qED29Q7z'x\,>%-'rP:7H84;;6Aq\VYCU&XzmA?#Pa)k.d^^6zHVCQ8',Pj7># U"_$A/JIe9C[&0>#Kk6lD+TD&41bUexS7R_B[&;QLGG\w#^a U"'^IJQ6RenA0h\3q%/VW(.W&i[H8K0l4[ntY&6b?^KM3JRy#J;0:#jjpp<7ph1<\ U"#-q#8f[xfrRyugl?#JJ1x\#QN#r[AP#v;3,Rn8po&J?Gg5E;Ib6eJii0V0s\X*K#A9AJk%B=*aQ U"'=MQ]8^1QRtQqWb(J&OX5MeQYDd=WaUeu>,(9USL(f>A8rC%D2]]mhI/,QQGRu: U"Yp=ReiEH+Q0h)_S,uxKR.bU,IHNcIYadJC8_D7o^z_d;dXRm:2euoQ7DGAJy>R6 U"[.c*eJ$\oG/]vnH'6ve5DPuIdto080x4J4?vH75HW7P\;Nu:&3:u_6H.eK$\+xe U"D9_=/N'PPZJPICf3MS:(/6'?oW2Q,'Yj'Y)nN[eTk]7%sG8owtR9Lw54W<,'Uzy08IIFYsnCp U"#\Eku[b/IYyuPLAvX*^]OqsJEHRJMbtcrev9*kD-H U"f)obBkK2a2P(Ba2S(oN;9+YVyA0cL9^O;S(oEs0%ugToclu:%:;JpB=5J)fa%iF U"F[71q'0YzIe:PU/u9\5z(>e%YR=Wns2*uYZT/*9=x>=;11TjXG)d^c#U^*LbWx? U"gSo*1:'70ms+v&;y:<>0+j?u70qFvaX'?&,E0PmGNS*(o8(+01GZEot U"eWJTBsrRri$z/w;Yp[n]-(n5Ce6x[sIuept U"Vl%E_P9Neo:V)-8yfd6:93^ZbdVgO63K6&KIi(g6b%BZqoUn0Q8a4wJ_M5krK(= U"'v>KM9JSi1p<%QCvCv.HWS)Al>MOgsq%4aw]2b_I.W U"cUWnfiP:EcX^Oeknh8p#uDs)SrZ#Sf$9y&v^?pXtI;o6S^h9hoZLCOD>hMY[7i0 U",BqotHTJVM\C<=D*8_4Gv]oXs?K*7(N19](9'f6pvR:*uicq;DS\0c?+ZEV?9VE U"5s)S52Y*m[.PVJ1X%CqP_';9Rg746gJSTkJpQKfTA^fC;fAjVk U"'[5F0mQxf(/JtxDMLn]mIp<(K?3iyMjgQ,]XFW\aMgT3\zA;h]'m#>1vd6zsCdW(2c*(d U"K5slRFnN3uc?1KKlda=eglTDEJG1cPPE7pPeF<&$]01TL#Z6li9V0*+BZX3'E+U U"e?$0tMU1T3;8kK,%\Aqe1bJ.uo$&OZ*Wa0jQSO=L?]azPSa>)%LUZ%?5%h6,lgE U"(fj0iSPSPR&.i\4LN5<=8n:n[G\pQ>>qD'aF_G(gGiC/i7C:]YEG'#0XZ=\NTB= U"nAFuD's]5?%*LiC_]RP6\##+&&2q:y[SP.k/qCr3Mou9.>HLVjxp;*3#:bkf3aW U",[5fcbkfI3W1:CTd46N5b_'u\vnZ,K0x6=x3-],kd3WS1PCb5pd2Tq9l\6MFLLL U"XXt[Z1TI\L?oC%z;D60zNRD&0#K9e_ju_9KgujP U"S6ELx/?Tp*xetHlL<>6j?J+EbHDcAxUt:8?SBAX$BEI(C8$c&L.=Y&X^qci\x)Q9P2R(=_2[zA.;pK(^*&J<\(?\<&k0H3^D%wE;zHBlf0F- U"pOAAEUsWhcJv^/eKW7vfULZC=IZH8r..JKXP,CD#X,bC.N%0).;R.#F8=[6w5,U U"4:#p+(s9D;7)9DzSQ9:[/XKj3])C=ZC-_(%KN*aNH^lF&09_V.GDDq+Oipl3C6A2(oB U">HJ+5eK&[w$U1+TLn>=frPMn*Atys(rxzS4j,G9cfh0hrtVib6&1b4cZqmZRfH6 U"KS>ARpa3hr5AoJR#am%VEmNXh=7D<0E];DX-u6J?t'>9n U"ia=0Z_OD/$-PvSCf?S?\VMX2nm>Lso^-+HVch*1$*1MEHbOhY:XYf%bUl>mago7 U"W-nV]*a] U"B$T^%aNAUA&3%7tO+P'I6W^6iib#nJ&*'u1n93_QnP,VtBt/s=E>&.AWRK.$0J; U"+KO*.UGEJFDDRe1l0Ft4:Q.MO:7=eq23W>g:bNod U"%up()%9%'%R-%l8%LLTi4Zjo%7%%w'%%%-%%%%hq%zgSn7ht>v7V7;U.1xJ16VQ U"g$Kk1meUVj8cK$U53CXAw)XL-##X1Ajx,A\]z_PPVH7L=gHJ?F.h=Xl?AjuX0=. U"&g(-)pa*DIwo3z_7(u&_30JLmbCJ<0/^kz6,PtHC\9P;M6eQCKS4tkJ%6rcgv3b U"5hN3Y*sQ6Dptq8XM>:B&vc8c4lZouBl_,:jms$VQ^s2LPe^hNXWkN-:v(Hmup%& U"'9%%9%'%%-%%%74Dl]>civ%%%%[)%%%.%%%%%%%%%%%RE%/P%%%%%%xufi%jSnh U"%tup&%'9%9%%'%-4%t8L^L$F&*/m%%+%w'%%%0%%%%%%%%%%%E4%/PI%&%%i%nf U"rt%siSn%htup%&'9%%9%'%#-%)9RLL3_/wJp%7%%w'%%%.%%%%%%%%%%%RE%/P' U"d&%%%mjfw%ySnh%tup&%'9%9%%'%-4%_8LsLM'd+Xs%%+%w'%%%.%%%%%%%%%%% U"Ej%/P,%'%%o%tpjw%Snht%up&'%9%9%%'%-%(\9LL)1U'<&v%%%'w'%%%.%%%%% U"%%%%%%E%