'===========================================================================
' Subject: SPACES TO TAB OR VICE VERSA        Date: 06-04-98 (13:14)       
'  Author: Lennaert van der Linden            Code: ASIC                   
'  Origin: luckyone@xs4all.nl               Packet: ASIC.ABC
'===========================================================================
' TAB.ZIP includes TAB.ASI and TAB.TXT
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"TAB.ZIP",4^6:Z&=4144:?STRING$(50,177);
U"%up()%9%%%%-%ix9=IPh>SE:..%%&F%%%,%%%%yf%gSfxOnF)<8>#26rw=9x_0o
U"?.a)(:B7nT/vZ$cqk7p/0<lQ7q9SpDa,Oo[4fK4lA4>x87XtKR^'FI#njT/kGe?
U"AZ5cLI6UvSG&pft>ppo?pa\2Mfa#4G/BI3P+:\_g>f=kuH.]iBCQ7ghmll31VM+
U"Ub$<^]PDs8,OowvdYM>kK=Ql9x0jO6N$PoPt0$vg*O=oo0J'O'Y5c<aPKFkPkJ4
U"?5ysQYgw/V4NrBYv.R'dqn(jdvKhdJPTDF0'Zj'\QxAUYf?b>,XW_FWF^3^gr/d
U"opa(GM0Uz9Y)Lc6GcYp)IcTWR>dv<B4sET[&+JE^$HGk%',7wY*H9HI:sy3We?W
U",eHhFp,Od9kj=$#$a=-AqqYo$'=,>WBIJ/;+Bg]PC:I9p$RhUQL[dY38&UYyp:A
U",yIO/UI.>rA#vw?WNf&G+Y_D:Uk7in>F4_$t3ilV=Sa].%db'j4n;?%:24+n$g%
U"G(2cX]onvRXqbDjLleGTa#'s(<&toAfux_2NJ6Se+>q0$ZiRwRRI:xi.Sdj:30O
U"=]sLz:CbI[q1cCvk8E#%g(.8p,]ABVo60&S-y]p5+9Vl#Dzd2R0s;\imi:H_,v_
U"A2hO^b#kfA/H'^A#;1(YjSM^%c+%Be:'JMW1).B(q$_jw)mgF\M+RQut3,UX:(O
U"%SAYZ.FPY[W&??l-hl&s]UC3EbjSB^m3J7%fhGg.m3M([ZE%8)\8JTB7K<uXl/g
U"o86%rjw3AoVOd_nqWdvl6#TAu2L]f;iEL#qg'^a>Vq)QB,UHva^EYLURS;vdHp9
U"jX:*)yVst=wI#yt#I+Fh+UJ3<O,8ApI>03<&Gl&]8lF]%Q.u1*SKFwPya62?s/h
U"))48J?$%QJ*jMdUAB,ri#jDIlbYh.F&?16LGS73lT#PYX>*toUoZwaC#mQ45j$N
U"qB/2F0Ef:-YLfc2eh*9tmJG0Xl4m<q&)VlRnY\BS4M0q_>sHk\SvROXN'g<q*<R
U"hLjcoTn\c[GH$ZP(<1:Dd8m-_%uV15eh)Sq-J-mJNYiov;C&sQ2V]Ki8V%E6T<s
U"AoAOd.wu%HOUPRZ+l%v[+9JV.YfMD'7mb<LwaP-br_%#q>w(IV=j0J8JA2N^_IK
U"fZJL9S[[BsVlWXMqcD:3-psn=kqXn.%W3B3qo2NZq\sXvM?SU*JJ^s4,i.:H'$r
U"%ZtZT-HZ:Ss9H1AR$\lf.>\t1vag7edhs7hpZGPIW*kBJ:oGRTN07D^mRVM)ra6
U"<*HK+FQ0lc%hk(xA,;=HtJ's,5L]]2kcTqK6Xv]t31o?ZVh01[uZ2Z;Bf+\I-.3
U"+uj8?q\0WNV7XA$q5JXGE6Mc_BN6bST.gq+sRj/$Nx?wshT9XrU.]seHg\2oDTX
U"jg7s6DGvyM=OWe[qzk>Ti8KkAM,h1&LWru=sk)ofKza&s7Bu8=q\hvDJh_jLS_g
U"[j\.a]PU'F1L98>0*\0=S5gEAsq&KH7q&bQ7M8:.>$TK0tp[<27H6v'*psm-^i]
U"N8D1XQQ1D6UP/7zj$&et,?>ec7;GZZO+rf=2'<i$U]NMFk6C]*=z_b<o)<6D4z4
U":D]LWRhnLf5E^CW,9oe,Zqgh$6DJrxJo0xm1nnZ2HGxDj6]->r2YZskd#dwfpNE
U"19'2ho[abimwb>.U3pHG).HY,.ML'tAt2.c\4-sCZuJX]E:RgP2.d;cRHf$niC)
U"1ZL,ipf>Z>fNcDQiDZi_MLt8WW.XK6=8N9JAKA]knWc.9*DxH[/2Y3LO,opl$))
U"JlF>Y+DeurZ>p[C^?pJWr%mj>YDlc4+[bh'mJN9bBi;yDqnSausS;q2X3FLeQW(
U"L:<YZ:]:diu=\i'DuJp;8,wk)l;eTqxcU6<riS?ABPmgeD.M0=z&a[:Xf%=hZdi
U"uYUbq*D'Hlru#._C]C[+b<UhnSfWwm)Mf/Qqma)jKIjwt_>Aa:5a4I[6e^-ZCso
U"vB(0>\;.wBfNF9^7<P_d-%pB4+Cp.7r]UkX[/amXkj61c[$,:\'P5m)vK\Ff3Rs
U"u3Yb+LP5-#B+/sjp3gv$(8a1(#8;)$58W_#sGmDLRBeT\eoS-]Vc2(Z=2R%7%9D
U"m4m=8Mq3iPo7549BD(l/eM#wzU(.k8,^]Aw4d^RV%McVu6pU)jaofXf'p-9I?j;
U"bqD&wRrQ*7(3NKLAUp&Q6+JS#r+wlmj6)$NwrVYLMen7H=9E.SjiGD^u8i\LsZ6
U"hr%5kTKH#eW0]^5J<pF,(i4<JIFjZE_Eo#51=;enp#46\<L4KLJA:K&D8*:0IM;
U"8(4i>EuZD&S3.#TxNRO,<5_7b?&AX<1M3W0$$MGK*922Er-uT?st:L'4x\4H.qJ
U"1>CKAL(V#n,npi^^Wa$PBO=%7=a2MG+[SGBHGB[-:%PsEv#_n0byq1575,uACQ\
U"XG0xLk,q6VVutcJ&$GI;qt,PN/R]p81PzG0zI:G:pBH[[4hRVb_'U=qtt-7s<bF
U"(tHpKR=jlR*5_Me<8HuuTjxdg1;>I&1xZd9WyJ:S'9st]H:?:SKekbRfQ*cFZs4
U"3r>f\I$FOMq^XX9?d,V6?q(hcU=i+SDTgTEGIu#>3=<,N2r9hWQ\X:+d_*^ut?B
U"ZPV)ji-r;*wT17o,BY3J8iN<d2F;,7gc*l]3k3?5_.>#ET3-b=ZDjN,tE'QGcZk
U"1B<_7TqL2prqef1UBhq&k.t[Hd7Vt#\MOPajrm(dgn'Jii9AaVVDD0Ham>TCy>l
U">W-V\v_Iv3638ZyLXyd)D^%hBK;JZ2-b>627C06R]rs]85it?TwYq[%/7PvM*57
U"T#0^%o,2Fnm'cnOS\PCQIM;Q1b)#VfB_q#5K)\T(wp)hX)6E7U?Hp)<;tAUYAKc
U"b2SY/S;0vaKauS<dAs<8)_av1nnMqQ?BjCwq8Uw[_zYnxsQssESD=T?ESk82cSm
U"mv$T\p94vX#UBA3zyekP%9G[2<&bjj\Uhq5xNP^Jjx>+t'K_Mzo&o>hg)&9vgT8
U"PU-:E%Tz3YzhI)%FrEQmIQ8tike3iNX9e:5Y#Z=&,=7FOHUAe^Sq;Fj;XC/J*8)
U"zYxP,0F[ecYq[+A=UdHpHC(l?ICWi:k1G<n:o+_^RZ1ZosJH<3(f$j9uqh,Ob-5
U"o<$u5#BAJB[4^H^GLT-7asiqE>5/sEg5CU\T(JNpF]s0&7FetN578Z6wj=cQmZ\
U"&Nvd_'ut(<k_b%['8%up%()9%%%%-%:r3=IOY9TS&t*%%%x1%%%,%%%%yfgSCy'
U"yde%r^T7k160rINYF1[oDw23P5<+fK9.%u<n[)'>4jQI<'qQ%:]5lMr'TZ9wqa=
U"ABo+9F;nf9O,BFoXHXEQVt.flhPz+:MZ4sm,=5TkINR#*:w?(RM-qF^g*H1+;;E
U"T.\,ID$N5.[%yP0#nSsR_O%3TRUp4Jxg,SlP:Vq^M1SHYvf4+PeFeT+<0=+E_YE
U"m6EJ8U6:jQZZTJ#I]-1;wQ[AVNRW[B+aDDUAF^Iz)4QqRllpqP<9JH><s$Svp/x
U"]CGlI\EPce4$'fF(e)g*_60j2H4APl8pg0#f%zq.V&k*8BeQgzZ0BL)%Ngl^.l,
U"\PR0*02H+SgNL%;CC=C_*xn#;Ylus[<FP)W%+7Zjl9*oIvrAW5ZoJW%y-<r<c.$
U"'kI60H:==45N?V$&Fb%ohc%7c9U_XdPh7VW\0\c/>;Q]/BFD$9k/Bi]3P0ku2r\
U"g9ENMCKJSW)a,;F\m]&9dU'pL9MRp1IP5?[5k]:<-K#_]hEIyTwE]#.Q\PhvN7<
U"9'D+GEz#eXCMDsjN'h*B4FzrW3d?YTJ3QDe1^ZDb,ZD:,K0Q3:aQyIo&5>;54Z+
U"WmYJ6OA?C]t%,0,FJ5d5PA-lqeV&:VOCq2(k?Z%niKw;F<H12x1[57z5bRo5%1^
U"HHp:#s1n&b0raZ8%sk#V>sLhm]4]Ul]vDwE-7&j%t1/7682pOTx>dG,Jg:<t.l-
U"S^N8cv\iWY)U^[H%TV<3x$[9-t8X>C<HK\/2C9=(IPD+)/6Be'NVnPLPuVGZ&9a
U"JbSH\0^DB,UZUW:+thaK/F#.iS+(pZ3Qj=A_.&AVTgya,\jUQ(]g&pve^6m-Q*B
U"pQ)NaR\9EHhbplvTMxL<KJ$6qk]Tr8LumYdwX7uDdLVh*fqUOsSC[pq()kq[R#[
U"+PLjpO]Xo.ssdep8Kz6pp[mbp?96'[a:e_m*A%1#lQM>ISnXadoVC^^mJTnl$Na
U"J7YF]pogq1[a_EzDI>%$'yJHC0rUgc2tRZw95khv3//kJiMWtf$mF9wj1KdaHi/
U",?;:g8m,b3T:y6]+<>LaTR0R)$uRgC>bJ-c]mMkbbH$7I_4QI^*\3]%Kh3B5iZ;
U"_Bg_TLFWa&\T/1#+;o5Eiiv;2)S0fr?N,-k3,X#JpCoYh1QuDQ#BAr^\Yp/rjUa
U"'U6)$.xS#Al=%M(5s_E5>+E8GZJN9L\ctjrb;#)<ZCTSX8BV.\P7A4A0t/Cs*Ff
U"6jc;$96AhPKQu=i]pPF5Lre*ijglesV[W6IOIahgiDr[)KjOFS6S1VX:>>.4aV0
U"//;$0>b*OX4,3l3r[G(AD6&HD8BOC$.Z[gkK=+t<a6eT0mW41hWZf<0Rke$$.P2
U"lwD=4pCeL:Jr3LgdPN%XharBDs'yRS^(ro_$h2x\u\pqt]KA2Y?Y+GJI;auqln<
U"2nwsLMU_2U]CnJ+M+'wJaGYEbAp;;2LXikY,Yb?Z/8WMN5B6C+)HU.A8gr>k$/3
U"Yf\2C9RviP(&+<Oc>]ORe3v\\)y]hyC^+.vxtC#CYoy\Rf:q/[Y.f$as:09AqaK
U"<hZ3FMR[i?)#l4&-0QHpiKw#.-kQKXc;=b:P*pyLdWEK7O'RqdD0I4O\JBG*(qK
U"/-79.tFe9onR&8yyyD;oA]EX\0#7.8LQn?RNA88-RCe9\3*iAw&U>9?jM[*F^d&
U"Be/lNDAXKRGIq*DIsL=(ZPMDIKQ*#pWR#A]+FX#j+r/3:7HiMnxMD$<7-j6e_gT
U"-iV1WS2(1BZ&:k=B;Cw]mfLxW('E%CJtx$hP^UvMSjQ9ss]weywf+4fC)gtZGGK
U"cc2>-jLLN-%p6s./96oinS/(QMt;0ZWE:iuCDn93Qw&%up&'%9%9%%%%-%7ix=I
U"fPhSE':.%%&&F%%%,%%%%%%%%%&%E%%%%%%%%%yf%gSfx%nup&%'9%9%%%%-d%r
U"3=RIY9T)St*%%%x1%%%,%%%%%%%%%&%E[%%%_%.%%y%fgSy&'yup%*+%%%%%'%.
U"'%9%7%%)4%%%%%
END SUB
CLOSE:IF S=37AND 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
