'=========================================================================== ' Subject: JUMBO GAMES Date: 06-26-97 (08:21) ' Author: Joey Hewitt Code: QB, QBasic, PDS ' Origin: jimbo@cyberhighway.net Packet: DEMOS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"JH.ZIP",4^6:Z&=3459:?STRING$(50,177); U"%up()%9%%%I-%5W%xGuE&JI[%%%%f%%%%1%%%%sn%hpxt%slSxmslln%0VYVoiV U"Z^oC\G*+mC\n]GVnBm\sH*7mtHVI&vX/^fr9)DG1G_Mb>kchg2cG0D*Q%%up()% U"9%%%%-%P-d\F#f*<+L&%%%.'%%%1%%%%gf%qqlf%rjSxIslL$9Hou]dj,RaG+CJ)f7D?Ss7k_tN=.*HQf/%N U"5--UC(O_P2'kr,Fof$tPZtJOv\I3J3/XH,0F&.up(%)9%%#%-%,[%\FqF97Ti#% U"%%#%&%%0%%%%f%qfii%nsSxRsl.]0*/RU15UFFsTIb?A%mv#q_=[>^Qv>e.0-)# U"B)67*HaT\5ZaQKpuTvUx)LFV%2CZhs=uGvUP7M4Gs+ii)?%tK9&Okj$IN25Q#3r>^W^Nfoqe3 U":RM3ky(oY\m1enm8f>?4))uqRo;f-%up()%/%%%%%%]u.kFp^,QsI%%%%I%%%%/ U"%%%%hm%fwlj%Sxsl%2/yV%YUrx%qV[2C/>W2)50tX)2?V[J>W0>CX;Y2%2/2/%u U"p()%9%%%%-%evmkF#S(HW_%%%%m%%%%,%%%%gz%xSxssl\^C+\EVn,&)xm-G*ms U"'BVnr7stFV+oGVn+v)vm]CVo0.(ovKWTsTp7Om*&AY(J\kanG2,G2%u%p()9%%% U"%-s%d%A4G\+4+wU-%(%iA%%%+%%%%omS[gfx&h(.B[I]7NvtYhIj/30gpEQgUB: U">aB9B:KF:mU&$+'2\(/6qO'N8;SDb$U6d.+IT7[32jzUmZ:4NhNs.0i3tEH_h%P U"0?gmj+2mQ7fQX[94S14ZU(QRM/8qJ%n9-*s'U0-LAG?L=XINpl94#U?dIn/a&um)' U"7=[2iqm_V#'HWe4=m8^xMWMoyd9LJJ0)s]+\Bb/=yVJ$Usy'mJ=l#+xfa\pDi6R U":2_S0BqJ8TTC:h^SG'?&4fyWKinAvmQMk9\bDJY#v=Xv3u/KXUg-x#s1X:iG6l* U"Hq(q%LSL+<:SL^D-jgl:oHu4&N5P8DLM2>A+j:H=l+[c/d>R=EqSm94&\r<95t7>SsAhA2#I[h1$H)Le+A_oqoQIuLV9*/pmVb U"WS/mjlvEkn_3^Q_ZRw7Wh8OF#7E*6\^oEpKk U"n*rPlS#JDjqP[G4+\No+G/:mpS=<\$60KAc=&IzPhTN6g5Mik%Mm[,t&1HCvi\?m^9E\.= U"[86Ng1m^j:6-+AaU1tDT.STC>7*Raxh$,^^]fB4a+8WRK>&]_v4n(3r='oCLHG+ U"_,1eu+JcrTmd1[8]T]mDRjVZJ04/-2CXJ4H9YvUE-J<$1O&EFvp4cVj#A68?2_> U"9w)[wB6lNo2yrrH:%>,(,Nb,6/UrX1Wpa-,Q&Mu]q<^:%k%s;?2,Uj.M;KUOFof U"c5rhWFfd$ssD/eVfpjk$X2%&Up'Y#135m36/e'X,CU->A5Q=H3JajX+NpVoj$/a U"+K.5p6'rxUI1b3M$j_+E0cS5L$qRHFGde#eb9yD5Vge4gye4:V]GOr'4u*p*Pn( U"^hv:QIY0F&042\4A6nOGwt8_U\b_qV<\JjNtT\hEg^_9Bb4[:**=V1Z'2UMs30V U"Yp#EsZjo^vJraZ&uFa^MB')Vi?,\]rAy+6FAM=uk\GwuQ-Bd(Tvhd7-.Mdj\\7R U"CuhCi(aJhb5q)u#B;<5zOQ[S_hR)Y)'APj_B9Cv%776=2ntIgBeE248<^2VWiWj U"AWSjWW-U^>([9PO$Rkl(,G;:fjsa4%RSDd#d7VD(RZ2++B2?#t9tWn)0bufoIXa U"F6PN(Nv.zEYuE?cl7e(OEIJ.B9O-'9h0Q*4&tL&g+>#R-J'qMC#ej+6V9kx?Rww U"3pxH&9Cw:[j3R0E]ZkEohcLG-mja5gJ0oa;TcarW58'S<[cwj^*l.YCXS6TmK$_ U"VRUrQHvF8kE$LQ,APx-BJ?DX;,KyRz#<5Z*R'Hl126bh3>,LH2)Qfdb3veu>[t2 U"W]CG4##oja2:E*sED9_nS)bo18dDhx.*7jquE2aX/AvZbWxS-LuC=2M#t> U":1BG*/Aub7L3]6Rj7LL$fhTs%k1Iy*--nI=7tFH$(r_&0>pCko5Z U"M'.FBwrrt<.pRyBfuX;aTZ?_6Z>K66/BKn9;;?AG+:Q;=R(RU_h.R(;DU>:tr,: U"O*5(_.$UIZHWxR9iF%VK'aO*eGZKd&kbr5m/9=S=/-=DRk'Rq;Ro%l?wZ'el:sl U"J'Q]:ZvNiie^.+/=Jj&8FAwNlp6f2K%7K+beXw#Q4&K\-utiA9Qts-]HEsj?1XU U"+V1KWIV32>^c U"Res('Z%K:0X)1I_>]i)]B?[8Utik=FKm]RM/YgtS-:OKw;6k98z,JEe6eS4(=>4 U"sP:7:JfQs;W7+/VG/xc;pN8$5H\9im8-O(#Ffh3.&$aY3(\L84*b1?TBFOS%l;( U"\Pta>tq6L>P[KW_'U$U#$L\?o-l0VM63N7O$uJq1>Gm\s9DRWu#VFi+KEuBQl1TLrr8]\<4BM=X$^1sr2P+-(GJ[I](AG#I U"e#GvJ[fHhxjtj%&4qBKhL7pT.Yz5sSlrbBG3L/=[6^5z:_=(:c$e.'=3;L84/5I U"HH[I'8uP7*6+dq[Jd8vWXfAj;diIa*$Gkd$b-2U+k^Q_Pp2kwk&3-uwZ\_s>lx; U"l.O3EYl_Neu.+8\>%FP(Rc/-U0<>Qh]3aWZ;J*(bwB,gp9#qV8F.sn2VzBet-Sd U"JY72jb,^,lY#2i<-3f,[)hM=A+>H.G?f> U";v1BC+AP/jb;Flb*tqOaq7EuS5w&s9.P(S1m6%AZ0Pn;\=Gt$ao\zx3c13'IRro U"^mb;JRb/MLlk U"MXp=lwVkimO4$gaDZspJ6*0Mp_fFaM29G-Zw]r=%GQXL$4*n[4P'>W,rQ8FHP(# U"bCYR??e1AjmRdjr-RF6Unwi*V.AJ=qNM$vVuuI*X$.%VJG1NG:I_G>(T8;X^LX? U"GJa/0%(lKqe;<9nr/T>,,1iwbiKX%vI2*wN%u%p&'9%%9%%#%-%5&WxGu(EJI[% U"%%%f%%%%1%%%%%%%%%&%%E%%%%%%%%%snh%pxts%lSxs%lup&%'9%9%%%%-%%P- U"\pF#f<&+L&%%%.'%%%1%%%%%%%%%&%E#%%%/%%%%g%fqql%frjS%xslu%p&'9%% U"9%%#%-%,[%\FqF97Ti#%%%#%&%%0%%%%%%%%%&%%E%%+%*&%%%fqf%iins%Sxsl U"%up&'%9%/%%%%%%%]ukFep^Qs%I%%%%I%%%%/%%%%%%%%%&%E%.%%C'%%%hm%fw U"lj%Sxsl%up&'%9%9%%%%-%%evkFH#SHW%_%%%%m%%%%,%%%%%%%%%&%E%7%%9'% U"%%gz%xSxs%lup&%'9%9%%%%-s%d%A4G\+4+wU-%(%iA%%%+%%%%%%%%%&%E%%%% U"D%(%%o%mSgf%xup*%+%%%%%+%+%%s&%%%D1%%%%% END SUB CLOSE:IF S=183AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB