'=========================================================================== ' Subject: RPG CODE Date: 12-18-96 (17:50) ' Author: Jeff Hangartner Code: QB, QBasic, PDS ' Origin: jhangart@oanet.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"RPG-CODE.ZIP",4^6:Z&=9091:?STRING$(50,177); U"%up()%9%%%%-%lver%D<'aWD#R%%]=%%%1%%%%wu%lRht%ijSg7fxfb U"5UWdi^YxGY-GTjb3F/mhg;;>NEBEei$h8Mq[/)+(_-#(vM3Fz=UpVn&pcmn-9+YAFcY%5TIyD7L)0;og2sPpQ>763r'JV,-,H*_ U"8xh8.&?\3HYXY)DPoE:$pZjF^R>Cf=V>04=qcUp\o%&vS#<.fw5VcZ>%I%&XOfl U"hWI,XuYCI+j1M]2mYbXMu8o7_N4m+pqh0pgVhDS5vbQ_h7]MC[DU^hz6F&b5kQ/ U"UO_mC$QdvuRO\2XAlxE#2[-<%Q5J^.1(R4$KLQEKmLBGGWNQaQ:6S()g\f?G[$O U"eN-?2d(mi[=Uy_KiBaVyb)X[X2KkVXS1fIUrS_o*39a--&%(^9x#R2ElGgoE/(Q U"V4]I&&$Yih8x;nXi+iYC]=[>*h\W=iJUE&ln\?7[UaKbx3t>=i8Qj'3#Il4Y)h1 U".gXWHrq;%E*)XynD3uZ%LYJ3zZ2EuDZ2rm-E\?XpOrPpS:MKY.Bh[5++e5=NKn% U"5Q(i<6,>o>5&m$D^5WR;W\12sik0UB=dlf]ZN2O#WBa.24t9iE$)P0ASgP55?u: U"TqKQdrNl?(as*pd7+I%euv_()wWfcnY.GL2sb U"5&L)O_ZEwUKD96HmTXu^Swfdx2dP:5;W3_0jZ=9_CyWGd/1+9[,j55-mcESVAvG U">V7hr)kM0[QL*P46Z)R)>\[enzn_0yno4,LG]tu2#*^Gpd2cgW6o56vZCp'bR)L U"n[=-7G#mX;gxmf*liE0eX,x&uQ)EIRmr[emcqEIc5%YFubv6M)(WYg7W-InC?57 U"3C55OTb$rddU>c/BEM(MrfU0M7,p?d&1P]X-'%3mwMh4B-8H):Thv8q-kC[GrGO U"+VraJmI\N%JBZ$9qUDOGb'^Ye8R;?+o5jHu4doTCs(hZC]Rvy1KTqX7-x4i U"2sh=5e(mCe)r%87].q3#>#qdy'343S0o\7#<-5\^16]5LdF58EC0^#i(z4-OS%> U"UV&.IqII1xs/g(373/sTAv[Bn>*BgU8z4t=KE$DkhDH;6Z7TlE\,&a>AX%zX)Cc U"[,q&(AUHA-R/FbIiQTjaL;GK8'*$iTSOFJAt'77q9ifd>Ji,A2\GDTP2_Qk6?n^'h6vuEhLwpEFY^tT['I*Pc6 U"q11t]AF37&On\aEu#;.e/Mgh+SI6w&3alHtc^D26X8ZYtT1J1hZ U"TFUQviR;q%ba_=]4K<'IX.B4W0nqu*f$/6BHq-v#h.8dPq[K>I\maseXY U"_qp6H#EklmV8:*G/+:0)8[G#DC'*FtnbB]RtIr#6Vd[C/.Uqp+XCo#1c4nZx(:p U"R=h1V$eosgWS2U<0=0('):IrQ936MXg^)k?N3una,trS U"Y7bn>1.2WhSgx5pbSh7:x'V,;#3(OIhc+wQMoDi?$81>HZR-aJCtJdqk?uuk'/= U"ciCCL_I^s2lHUTuX:v2XHi-qK8w^$$f2A';ms8KwBw(TEtOiH>#m]Binc5euZA( U"[mxYj&5GrWV4Oeb#/L085o7oJL:b,V$4%9*pvUun1jsp=Ri7=?4M.ulU7q2<$*S.M\vbP:q8'FTGvJ-7hbdD7z?wxK>>9$k,TJ7t#h8B^Y2$HinL(gmP U"KKJR=$Yp1sXOr_N3_(sR7)eGb^8SO>haA=s/-k6>\IH2zeJ423s5#9oKoS?n/oG U",N)mdI4,4r2[TTh#D[(R5Q^b22._X6;2\hDCFGX=%g?77R. U"U7EJIV//aNn0;W/US_gu1>C1c(46L;XYK[Grw5C1#0X-$Vz/#x_^>5>:UdjZ4^,:LRQ7)f U"i[>gY[#ijOI5\&?]Khbb>R)#A,m:L=T$;&%&lkQ#rvj5*1&3WKH0N/P):ym&YA& U"t#bG[Iqjg$[D-t]4zYHK^,m)i-q?3JWm]6/;eyA0T'0jQh6.=SQXdaR3)U>:j5/ U"Z^1*GR4P4g;_Iv4i8)609z&p1>pZL=,f?wHp%$4l^KX;F8,+,nSs,ox&[Na>)A85ma_45Z5SWI%=)M+rvZ8 U"ojc8K+BlR$,&HHio6CZC'vWRIY1kdtIujs>46.0^d)\mcoOrh3%FK0 U"6#VjCl\-m%WUa9glO]D:e-)BxWnYZLafIhqqzk,eb;kh+l\uH>7],ttb^?]UWJ^a;]>*h:4Y U"b?chBTp9CI8fh4,UyBB\py9(.+vAUo:El[Nua_kLT>.58(bB]XOUGT\TbO[>a+L U".>EH8Z\>R_PNha$*xgdd](>sKq)i2C.ve,PKPX/8,%]qb2/Dd)F_pXNr U";F.i[,v08r#(]46*)s;A=]S3;JZ\guW:34hYtODM\ME%Ejn0(4exDOIN)0g,.bl U"WH7HMU[>VG(0/Yrr4isoNMMT]D_uFI,XqSI/21'$I(wsAW>3WZuhuJF]M)#/&#O U"NLS_1ZA5L=>0;Kt#82olN;6+4,9za9rGRYzQm4M$+lVssc%#sWxT2aCl+VS9b'pZU%9V*8KL'8tk U"13^R[NtB.FT'Zq\*i<6AR[ZbR[iMZC/)62G3,63jAqfd(9L\F[vZ(ISAP562/Li U",Axw3[ABb9pMz%-A7?u9DR+5K,:R-KlCfRX+.M7[=IV#b%c17_^)3Oae?QVGF%_ U"$p8rn?B#dX52C47Ar:8-%5\;BvI6gqboQFiGI#s<9%O+i_G9S/5jIl,^t[&[0Yl3GBcFIaS#O-;\=[iPrEWK U"'WsgUTBkNHX3p=%ZI5LOl=.JQk,]dIAb\_j3G%1N.iSkcR3Q-s]845?E[lH^EOU U"1\3DRuoup#UFDQ1Zu8*4;[Erbz>tqCc72bK*xckQ3R%n'G-+&XyCrd#^F#C/Eo2 U"'hY^l4)lH?:SFDx\9qeK4SLSylON(pjXe+/TZouXCRp9m^ejK_M_/kpL0Ly1LZ0cc:&SB2ewnk]8fG4\DV%ish U"Kttm:&1-S-u9pUd44XWZtNLnYp:*9oejbuq)Xbb'\SGTJJ,B(j^;*W2bZ4f,83Y U"p7vF$I_6a6cK6]B0,AtpggDbUT>6$ciSQPigj%XbrGbi)\2.[\q8P$B#+iwK9*^ U"\C&eYp^??MUU7PGdN]Ndxi[Xk.4ec/^gXJE'=kI0[.ZDv$3OHCs\jbW]i13?oC< U"VWW>D^AP6'G[RW)BLw.(L]/L=2PO#Ukz:h5nzWhUn1Hdk.la]m(B U"S,8;\w$'[b0iS9TIb?YA73r?H2oa-Sd?9f^8^&eZq8O^2B%=i/4*?Z>$^Z,R/N5 U"W=r_B*30F]RH5;w5p3s6,<$.U$C5Pel?y5>C%l/fuC(jySevN)t5B3J;PDLF^u) U"U1+c^BA^l+cUZkg?R7V$_wQ/^QF4]mhO)25#wQdX&UTwid>aYfa\oF%gAP\-huK U"T_0o;)TE]hqWaai(-2&AtZs-%FlC0*bkDpmL3azT1BJhFkr9Dpqhn8Cw5 U"NZfP=:^2q,g*R39[&7TerD:eBj][A?q-vNkkAoWdEw[ U"CZD89CUM2$Y0RKxv6\h2#Or.,K/_%T;rDK'>UAa3.8HEBURiK-U$JBsmAMj(\U; U"6%#7XnSrH#'^vk%>X;?O3:0S\VndLU*j[k*5QhHtp*O=#2+\,$M=v=6JuGEU03$ U"Ab;D#Vkz;?J+8m\r1iql8QBGC=b8_mCFcm^IT5+ZL52#B0Ixv]ZrD*AK,x-Z]3i U"+V(6QE1r]NEMx-ERs2%4gfwJi]eAn1Z0P<*E>ARR-/l%3R$6uE4g$O#5dWK1CTl U"20[h_e]OhMth&?97*_EYWI>;w\pHqD+=voSSRKEM8AVT>Mo=IE[Q))iTs-qLWTL9bV6zmTZXeNZgS&,EE'oT>\E6:lJE2UHHohG U"U-^404]1D6]k;9zK,ZP2]OQ67j7c,^\X3h[\=>efG3U U"EHI5SL5eb:_oTr>yN9?2K#LtuR/luE8sD6MgGDJ7Vw.G:bxv=)+m.B8QgJZ<<5( U"tUNj#KZs:5>\tQ7j04(\]#LKVuk$U*UD$XW=EgU$ZLZUW[09XUtQqPHfAKdhH:qV7&sOmEiFh U";HLilnTTP*(_n>3M*.gY.2.A?+48]sm4FYrScuL/lT-30R9Qhx2tQ U"x_;T)Se_HGDoD(O3&ibYLTt8r\d,+BASBa/PxcmS8fe&QC(UpAne9X$5o='p?.d U"42MYFTBP6H53B%GGxz9P)C.vjGKu2kD2b$KRGB$#+IoMxfm\bqLZLpr%gwdD&0^9O_fXkr;o_?2)BZ U"4:H;&X=$0M^iQ$4z)XJe_p1;(&60K'MWAr#ZQ68(k5k8l;Iid:s,7&%w5ACfq#& U"CQslfW,+N_.)l-.Z5[+t$IUz04,7P#Suo$G_#cn>2rkeh<>P#0**JYeXerOdV>hfTCJ U"4CSiSJZ3T]PY8H()d#gd(QOy_BwUx,b4Fz7cKGJAg'DUfX\AayDEpc,/Og;UEP6XVH,NLd]OsQH8(9A1=%dESCD6s30p1/1yfHnfMjOxYw& U"HNX7KfiqofbQN$)A%T7L>'&dU:\gtDa%tDSJO6+XC%0BPoDr)nN#;PCg&J[$]g6 U"EGPuZ_N;dHHTN^ndbfG']du#T_I8uTI6j2DbP=1qw-9JN[0N1myZ*#;9F?CMQrU U"N?N.ui&<6KqT;'W&C-Y$X07?Lxg#9#d'25OA:cB+.XV_8k,dqGEIx%'up(%)9%%%%-%=)Tl%Fev0+n[* U"%%7%0%%0%%%%h%wjin%yxSyS'y&%q,>\/C7LI;BT6C&rDF U"d4e:-\jmd&U[]1H=2I,cat+oO.+l#/U6/8.EH,C?,agu$6T4+A-327$:)migS=]7.pld.LcibB3XnZ*G9T*G>2Dae:. U"xR-1k#qlkQ\MP(wmrs%H$jv9%tT;/97/;%+8?.BoiF;u^EN]l_E')d1lC:2cLZ3 U"]Q.T$tHo\>$lnCs&OB.w9/[HSDmnaJ9H3=BG;PD&nzT>^\A(l#H.cQq\('46CDW'p]Yj;s2hs1RCxN:DZLBV%+7>GA,H#/GF+8F,s;Vo]eqXx U"Bh'luR)78<#-,M(UeRA'k$6Py$g8+,Dh)_(h=LhBh+V:dKNBEgd;:fqr^o8mO^0 U"&0t()(HM<80x7bO#u61q^z/;8I't(-X0Q:#4EI;B)2OG1/PZD8L7DifCOcSVd+h U"mNKqI[vNNU^QsuPZLUJI:-(kIi5#:w>Kak5%%lJQg%o0H5<>9G2a?4J]459N7ge U"_4Y#'Ge$2;;V^&qUU%='&u5+hYt2dLx*sqE3cbH^;-[n5MKAU0^f;cGY11j1k<< U"Dd\<>wotD1[MelKE3#-KP>;;_jf+a:F1FPfjR^O;ZF]]p6hEitS:^chZMGLxySS U"N;jP.'&?qo##aVyX8US(Hb^MBt>NI*tpW]#?yk?-x6:#OJSt%r0gFV8E-[Ddkkw U"J[Q.]CZ(d^cOA6iZ;m,A6eT/&g%=TH\hiuh6lu(MB=D(. U"n+'0kG5r$ZQi?gg0E[q*JOg)wG)(v22e]P9'_lR^A,E7Q;<<5C*Cce?&jzcL+)< U"k/L$HSpH)i^,2B_zkz%&\sR[dzq-pA^8mts2B=FiIwm?Op??TXqL3gBueM#I3,E U"^,yw&thK*$)LG*XJpqWOik'7xs=Yx6s.)dd4_/pG U"&_*smDr,NLvO1AH2g_7dl6VG0F$eD3HoSx\^0sWm/qTgIjz3Jc;(KR5*[H$>9p) U"Q:kFF)GKQpiHD:ncy^R$W#\HNbBW)POG,GEN6wrFTJkx.4VN>g+6QcDG>.)Tmf# U"\)O+qW$ErTnDqqM%j<07Si2ZGKh%qd'MfqGT8Ko,t1qJqaRX/]#97n_>9u0Hj8c U"w&b^9j'Ydzq0SNk*bCaf+/9E1j)hTwK=h+L6xXSgmM7,R.pNZE4]G U"Y)rO/pN)jcTfdI^OhtL=VB-a#X(P4\=tJ/1L2/8Ayvl'g^LF<&CpVmO+#?#DhFs U"hjl%iEBdkV%%%%$%(%%-%%%%r%fuWS#rfudawT/9.E-L U"4*sbC_cnvD0F2Pa9.7hWKi$eBm^[IR,+nZS^OfXzRG)I=yJ/lJOfSyYP)U'XMd; U"i$LQeev5T=,ku\s>:$[,/>f4EMe.O+an?.uy,hKj>H]^X&qw=o'qHFH$q-aBh,> U":U?8^Zt.9)q+5TGbJ,#7d#5CF'um'm'%Tup%&'9%%9%%%%-%lver%D<'aWD#R%% U"]=%%%1%%%%%%%%%&%%E%%%%%%%%%wulR%htij%Sgfx%up&'%9%9%%%%-%1=Tl%C U"Fv0+'n*%%'70%%%0%%%%%%%%%&%E%%%%n#%%%hw%jiny#xSy'%yup&%'9%9%%%% U"-F%efWd%)Ik%^y%%%%$(%%%-%%%%%%%%%&%E#%%%6%F%%r%fuVS%rfuu%p&'9%% U"9%%#%-%+_>l%iEBdkV%%%%$%(%%-%%%%%%%%%&%%E%%+%ZF%%%rfu%WSrf%uup* U"%+%%%%%)%)+%X%%(%]G%%%%% END SUB CLOSE:IF S=48AND 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