'=========================================================================== ' 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/0x87XtKR^'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,XW_FWF^3^gr/d U"opa(GM0Uz9Y)Lc6GcYp)IcTWR>dvWBIJ/;+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)\8JTB7KVq)QB,UHva^EYLURS;vdHp9 U"jX:*)yVst=wI#yt#I+Fh+UJ303<&Gl&]8lF]%Q.u1*SKFwPya62?s/h U"))48J?$%QJ*jMdUAB,ri#jDIlbYh.F&?16LGS73lT#PYX>*toUoZwaC#mQ45j$N U"qB/2F0Ef:-YLfc2eh*9tmJG0Xl4msHk\SvROXN'gw(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'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:Aa:5a4I[6e^-ZCso U"vB(0>\;.wBfNF9^7EuZD&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-7sI&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#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+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:k1G5/sEg5CU\T(JNpF]s0&7FetN578Z6wj=cQmZ\ U"&Nvd_'ut(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>;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;FsLhm]4]Ul]vDwE-7&j%t1/7682pOTx>dG,Jg:CISnXadoVC^^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;#)>.4aV0 U"//;$0>b*OX4,3l3r[G(AD6&HD8BOC$.Z[gkK=+tk$/3 U"Yf\2C9RviP(&+]ORe3v\\)y]hyC^+.vxtC#CYoy\Rf:q/[Y.f$as:09AqaK 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