TIP: Click on subject to list as thread! ANSI
echo: power_bas
to: RONALD SCHLEGEL
from: THOMAS GOHEL
date: 1997-08-14 00:00:00
subject: Re: Scramble

In article "Scramble" (on 12.08.97), Ronald Schlegel@1:110/1065.0 says:
Hello Ronald !!
> FWIW, I am also working on some code that will create Fido-style *.MSG
> files. I'll post what I have ASAP. Maybe make an "echo project" out of
> it. I am working off of the Pascal struct file I have, but have also hit
> a couple bumps....although it works, some-what...:)
'>>> Page 1 of MSG-PKT.ZIP begins here. TYPE:BINAA TLEN:6810
'==============================================================
'PowerBASIC 3.x Source               Created by PostIt! Vs7.3pb
'Instructions for decoding: If there are multiple parts to this
'file, merge them into one file.  Remove all message header and
'footer information (everything outside the ">>> Page x of ..."
'lines), load the result into your PowerBASIC-IDE and press F9.
'The original file  will be decoded into  the current directory
'on your disk.
'For more informations about the posting of sourcecode read the
'actual Rules of your PowerBASIC.GER conference
'Our homepage: http://www.snafu.de/~pbsound/PowerBASIC.GER.html
'==============================================================
DEFINT A-Z:SHARED K,S,B&,Z&:?"Decoding: MSG-PKT.ZIP":V1
SUB V1:OPEN "O",1,"MSG-PKT.ZIP",4^6:Z&=6810:?STRING$(50,177);
U"%up()%9%%%#-%*u73Hle-[50+7%%):%%%0%%%%up(y%nj&&SgfOx&'?^5]wC
U"Nx>0-[i\a7)-_F9TF#n.QP%$'-m3XC.;0O&.;U#H6t$mCDgqnn6/2(j,E*fD:Z6
U"4\6C3HG-a=rr[lCcvL4Kj(z/*oS]Q%u5G+>6NN8+dPp-+8,aj%Vl037f7p$:ADt8s=m^sZ]\IFK5=Be?Eqb.ra69i'5th)C\259*wld'
U"'pNx(Vp^s[#OeMf/npD;1V;^TM2=XB+a;A?HA0VNmi&TH/iW>I,3D/X/U']Nex%
U"yGezuNlisf[g8m77]NA&-un_G7SG463^>c:h&N2;ph^
U"vVK#*U,mmN*H\f2evgIBuees\v/wEQnlj[M:[5cSS,21R*^GD##I,h+)Pyg,e:<
U"mM.'o;Mcxh%bhEI:SIbo>Rg_Hg+zct[Pz6-f.R-\guY[^+K'R]PTIZI8mqH=JFs
U"N-VZoT%y=+jhNYiPDtF?L&DVG84E.YGpT]s(:'XQD]ix7
U"=t?Fyasr'*BQs)U)Rwt4+U#+W0>I/#FuXea]^y[[Mc#\2#IIvCA=lT]3PcT3Wn:
U"P7g(XTlngo#.S/d&[BWLo]cn59kFzwH^3sXZRUmGI-a>6H=qpPQ=a1F5wVK_3\/
U"r-x[.e]iHAeRZR7zU>63_jFftS<-;8+0Ch;eo#Z81A7KUpxim[WP^gCVpq5smk=
U"X5XY9'UPi^%L5R&:3B)?NTu4A[udab8o$?vL1(8_Ug
U"ad:Z-sl7XgZo=?RbpX,(rJwC-5Vo/)u0VwF3ar3[=/Cn$Z=n'WMlhtBeJr>7N4w
U"uAuhfojAcaM,YFtt6+m'qEx]
U"+gAT5$Gf?OGXTU&'9'T=#w/+D5qA^n='groA&ELQnfmV(XNN+iV
U"P6o?R^hdm2[0dU;h8=F2&CI:wsogIn/L_W0g\SC97TkmZHA*Mw#3Z(xn^y3Z3qz
U"5YOA)LjRXFnth84YaLWhsjm?'rmOFbre$,OVlk-a1b372ppsKF\lFWMTWXGU#*P
U"wx095)(8P:)y9)TlgPHp*Xbv#&NbT#40;=&BZ;p6-:iRXA4t.wH#.PmHXD5gQcC
U"#&X#P#n)T5f[\uUDxb2L35>BOXv/f^4F;ol.FUQB1u1e,Nlx'j&W,fcrfnbNEG%HP,4GD
U"fgy&tPpXkCp,LD\:w$D8i-+XMNR56Iy_z(,)3Kp\(v
U"g6,qiSm?LdXTnEF6:M/gL(\u?:^;b#_d%up()%9%%%R-%otd3HS\.*'.%%7,%
U"%%0%%%%rx(l%nj&&SgfCxDy*)>qe98M\jdAk=\9TLYVEh2bEp#fPOX#*(Y<[D6s
U"dM;$85tU.wtDlr(WeoaH7WDk2K5vP^+X5%(5DK\.Se81(skhk0P^:-If/8Od75C5RURGk6K77(s]SRU8PxYj6&X'kc$qP;EKY'=V=?b6#
U"]A.\Q]8B39*Ba)9&Y2ph2T#87Ei50'rGjqRBcTkyi[AF,C\$,w)NFX%AX-
U"xe*YQn*mPqq/i-g7#qO<)[)#Br;+*-fN0<4S:;^F)2.JIp[E;gzFqsxK<#UKPLt
U"YOEkQ9ewOrK;,KuT_h)H(:kM$9)$'#5x5i,#M>oH^i=:PEIZBjmtg_^olPQ]#>B
U"H8pKVHqfy'RKdGQ's/s]m3C_tqn$*RJVd?JbC54g/+?fs?9:KHh^Hw?tZQh4(R;
U"#a'>%6C0&EXt6-(y(HFKQd[:=QSR\+m.p5Ts1Mi2tnRwlcZ&+C0Gx6
U"K;eCnkY-0Qaqf\)N9LDgIeFZ.<)'cSR,O
U"_8U&W::IPtxd:Q8EkW#4^^Qh]DXySMB]0[)qnh(ikELdeWpnxRacR)'JORe;*;frFje6*tu5[0-i0DN
U"%#8hotSKR9vK&<7:ei^=8bohD(?hYe2)0d+uK?3Fy%I7T3ug%HWhvrt)N#TI%SH
U"=xnQxkw:v49gboy_c-s,AcstC]K<;KKM=V[Q-Qw^?C'kW[sntUoaM&$N3hYX*/T
U"fr_WMm9pR7,Th]*b+KKOXzrW#g?##>tr'jNE4h-ibtmjP(xU#q+2*Hr[OnL?K^U4tff,#HckBZk&nV>m+ctY7Xhg
U"WZDX]Q2pU9R]7c$&a<3F<63McH'L7M^YAAH.NXXKcqk7k[H=[y*a4\#gM_y_
U"vF8H:C'mLJnG#d:)eCf$JkjlYKm17I'm=^RB)DUpo[5IhCa*
U"b)e;QnnXgKZw,,A;W25a6BV\8S[7^B:k)2OCtwhYZ6]blVHgbBNPGU9HQ&CDmz9
U"9Ki'[s1HR88Nux&3s$Tg5PCPqmq1.QUsp+5^bHM7R:nnd&MMQKEjR,rEmH>]ty^
U"#Sg;qB.mqfbsG02VKSq3MsTd_>AOV>%c-E0ysg^*ARtWrEQN)PSC5whwb$Hq4TK
U"FNZq&:ljWOt7Nm4Oh2F4ab#H8mK6HJ:xsadLpiZiU9d%6\b1(Okeq=m\*9OG%_aPU([;GH:r%]R
U"n7rS[AsGjlrv^3(BU)]Yh0O-O>(\k&'.mo#n;$hQe]MvRvP?1NT]rsjn?xhdv,:BqviCiB
U"UF&t5yroFuu/EU*KE5#fq'JnNP?nUYejYVBjUf_6p3N$2?1l#yyCOn[LYb*0;j<2Ato\*HYm'*H:bv0^rA3HwhgF
U"u](q.CSsQoJ$T/W4ieC#V6V9iMKdLtCuZv
U"Lr8L6qp[kIbg52MLhIRKocnwsGpiPhYK4VeJ8p0m&j>ntLe2^=7q49,/PFrSTs;
U"g6%4:$a?*+42,Yj==T%BM&Z2>V&4TaTlKMlfMA=+F-xp(7)O;n4^q?n+;22
U"cS#g+&E)\'>;ihAPTOaVch?-l+H4A>W*.FUIrlmb.*v*CINOK5e%k4O7'HU7HA(Dh,9:FqeEE(\*+JCQtI>\Z
U"6SCkeRQTS$34duD[j:ppDl'fA*j#+WLD
U"09t33dfT+h5OekTuTd'gEXsHg&zUTwdZc?(7Bh/9P\25;Cd2rl75^+i/Tnz40Rz
U"kdrBC?4rB+4FIzxrNmalwrb_:K8(L'V#17x].hhAbA
U"'=FcFC->(4T&W^>),8xM'Zm$Nlx4(Cb2W5(C5b5WD0Era/femG*$;7wO%KkcF,jwKPv:K6&ljtGay(1
U"FuU7/WBQWP')l28do0VSO3Y7FuZN8.UzcK
U"(7Zw6IvfhyNZ+?G[,AC$s'143(%y3[E'O[]Vw4b?8d%i0\Y]8e+)aF=>S)7PL.>
U"\r,Vu9WS_702-hY/RR:-mQKo44,PS7]pc/CfAm/2I')ryl?3a-,tUq*EWJ%\#3n
U"q8Lf#MZ(>D54XLDIAq<%?VHw5A^a$7(Z^13X%I^V.B9c:GAbk&/H*JrN6BMk(6P
U"$(6BlELLoEE:2n$o//.b0u8nH1*Y8be1Du+Iq9E)Ps(=8gqt9gkQ'+[B+Rgf9:Y
U"HL$6G'fBNN.y,'JHyOz>)2Ytn'bL)t-z/uVMe^Ic99
U";iJCxR;U/6#o?h7:_4FKe;Z^8?t&U.uhF_)F(An/q(BWP1aNzE1ghrc^i]U5rcP
U"#^bg:sFnL1FdicM;Er+4l[SmR2LB)5f(WSx'ljzSvekw4M'EIdV_aQ<6f7,58m4dR7
U"CARJR&t&3?9)ip]OQxqrcQ%>pQG%LuZLQGSC3l4vhG=u-$81ohX+roM_>Bb:LCQ
U"m:4ZAEWQ]?4bP.D[u2oB>05Vh91o%];yV;7)/1'8pk#t[9S;O[Br^h3MvHD,MAd
U"^y6jpbIf2IOyhBt]2wT78B^&deDc1[uDKfNV19
U"MX_fI0be:&cLhz\kg%HfDwHW8K.hE%?&,-oC0>MfVtR?X8Fu:$Dr/Mcd)h/Bc9[Z9In-1([4r0j6Z4]gleo:N6=syB:135qG.:3Kv?Dww0jcY]*Fo0UCG-i
U"Jr>TX2^q[DVw=.Zy[RIrYm]Lhnk'%84U4^PaH$2Su'*tg^VXdx2[AlLou1Ysa/P
U"^.E2g02pp\:*5+fRY?-<4^TYIL>gk8Cp4*PQDB,BC4^-O>:
U"P%ts$Fo2)2uHVdVt5?szLl;4odao&B>/v;Ui-_F
U"LZFfGpMJZ2Hl,ji:YM(Mvw#/0Y2f0Uuq9
U"I>,OsX*00).3NMnhfxw(+J%/s5iVsrbLohQ=8F^<8WnYl8ma8j8x-QKxG-urvtE
U"xsfup;'rv>4#xwF99m5O%91PnN
U"qXilF91pkN\Z>-sw^&tOh:$WtC^j\D*%3-wX]5:a_wKa-uQv.h:Z:I*%DkGtFZa
U"gJmW<7(Jt%1%,&4IACps8^w_Hs%c'G=]YT'UbsdN:0IAfJ+%/F&Nl'6X+a1+;D?
U":.;jaeQb,e%wLezL^I3?fd_zv%en*PTh&3Ue2>VXx+/G&SJk0XOx&_&%(2J&6pU
U"'o_9b^4/uL8yem&?emo(s'wq&'okw#qqs+]e,:Z-Y[rE][jI=owftg0;dw%38Sc
U"bR1ebzG7VX8ArY.iX0.I3j;3NNw3:$W)P:tze.S[qm=7
U"WN2$pb-K,HXZ]meE22Q2[XYD=%)&2aZ\-Z:>KegI1RtkpjN9-AA-3KQ8X=&?vv4
U"^4^db>qwX*#j4GKUU-u>?*hXDL.6/^X(7xV&Mnl)sgxTfkE/Cj'Stj$OaGaW.H5
U"NoFu97>t%%%%%
END SUB
CLOSE:IF S=185AND 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
'>>> Page 1 of MSG-PKT.ZIP ends here. Last page. TCHK:185
>
> In the ultimate end, I want to be able to create 2 libraries ( 1 for
> PowerBASIC & 1 for QuickBASIC) so that BASIC programmers can make their
> door-programs inter-bbs. (I don't know if this has ever been done
> before.)
The zip file contains two demo or better test sources for PB (pkt and msg
format) and an old msg source for QB, grrr. ;)
Hope it helps ...
> -Ron
Regards,
                             ----------------
                                /
                              /  h o m a s
BASIC Meeting'97: 23.08. & 24.08.1997, Frankfurt/M (Germany)
--- CrossPoint v3.11 R
2:2410/330.1)
---------------
* Origin: PBSOUND, PBFILES (27MB), PBFAQ, PBRULES, PBHIVGA at:

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.