'=========================================================================== ' Subject: 106X34 CHARS/PAGE IN SCREEN 12 Date: 06-26-98 (21:55) ' Author: Claudio Collavin Code: PB ' Origin: 75815790@it.ibm.com Packet: PB.ABC '=========================================================================== 'Load/Run under PowerBASIC to extract TEXT106.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TEXT106.ZIP",4^6:Z&=7007:?STRING$(50,177); U"%up()%9%%%d-%2+BSI7K9:T[4%%%?L%%%/%%%%nt.yj'y%Sugq*F'0ysyP2W)65 U"=+AH1]7t2.\M:=qnvOuEriC-Q8+gZWY?)Dj$P589T+]JPg1?OaJfdC3qF#JibSG U"QS#rN'S%jq[]B;UlQ(Ak8c<9O=--&^$rK0'pK\vn:]pXrxNG)M^[#tNIo:EKxcDT8t+t%OeEs*R,_jqEj*.EONvQw%+:Y- U"we(B2X,4P4GjdPdbmbtjHQl+P)-QB>_o1be%^RUX(xb.G2bKdIX5_Fj;D2GrR=5 U"d'Q0741x97,24+XcT4SP U"R_Nxoz3orOP[*^4J*?'l]X3Wd.yKaOL=M400XY:RkQ4gPawiPaak26Zf9Q1?cd> U"UlKK;\DVEEF'S(H2u*&XnR+na;')pQK;dTd*+4SkSBb#K3waxI7SG=qH#R+Ya(P U"s&ts>$X\28aCzT:z&+TQN8'zmZ_QDIq_0NJ\5[3X+6J+6PV++/fb3eH+5ad2oYs U"1-6%'aSB_97hHUr*cOWHkn U"[zinbu#D-=8bP-iV(xgn5%'vKH&OxblPcxm12I9oMdmI7hbmI1\-tbkhamI-dvt U"tgfIOjT[q.pWa8Rt.t9]%Pl;]Q5f6?hPhu$hlE+n_oe$^V;<]Q5H;cM9]?sq+2j U"Au2aAKdXv$[Yyf1qJOo?8\^%0c6s+GXMYsIqGdPhc(s+D$Y8x.A,T-hPi\M:M$C U"h_9xm^=Hn5m(RAug)omkO1fsmf'COw*4m>Zy.6wXG1z[cj)s%EZ1ns%F%zEw:.m U"Bb)&92wL%jT>N&jmzG%:PwZ#mR6x1_sqj&9Pw?#_V)6cvl%T_S,A%QHQeNSc U"/,Qz*ex=$SP\M?$WM\Gf^l93%mBfOUhsS$0C9x8FmF U"5xJbm4XiM(s+$lNLEHrA[tqd?UUuoKV6(MunF_Stl*WZ*TV\25>_NcY.4[dQp U">=P1'L##UOLUNqn;0lmW86mp>=pCOZIQ,lpfJnh$.d^O[r&A1eM*C,-XF\-ANugrVU3?DfVKG5bdb8r5\ U"T6D)$$F?;8eo9iksqJ567cEJFhL,+nkmZ/AwI/TLOFfTM&DRz2kmjD=GTa[x7VY U"FD+.PextDi$:Auneb+uF#w^C;wM61qly'kfkvWVOG#=d(P4cUm='?Kt(BEOr$wS U"=g%^-,F;q?GYBMlmJ-T U"%icBx2]8VVBN?Y2(djQz*o,\eE,iACsP32X;.rGJP_$L%#lWxvHX]7*JQ:>dk%[RYh9gRI[;U<Z/?ECo]fc.gMlqCK$^S3__(iVu_kYL.daxFKl/hV,3o U"_'BBi_%WdHx+n_:W:R3WFBlF=bhXxS%u*QTqt'eJpA2VTn(q0Q3]HwW^'*M]ef_ U"4sttgIp[L5\]rM%bHhlET3w.iSn5'ssaG/6aqA^gB-vdXFhI8-g8Gfm6pD,S[75 U"%^75b.kMju(.pWgo8Em(hS]bb+Gkhghnb$eXmSeW#CEXX'Al.RFIlA$Fpf]'-df U"]ogzEk87;gtNch0I1(ssJ6lBZXa[^V6B%NicfJ7[p6iAtcAWNXm9aL[?U.nS>wB U"Wfg6$A+s=-ssmcR^.F[4IE*e/5JhM U"%sc'mbbltK3b+lKYNOhCa5LoBtHNKK8tmyOBKhI8b]DbEnyR?/;]eEz,j3Lb?>P U"mUmV:tOXM(y6UO:2WOyQ#oHHY_k<^_(MK^irBggZ*XUiEGB&yoGV_3-o-4yh6b$ U"mOB$3Jt[K\28y_4QE#Ff\ePSVc+Q/Mb-,DG>wZA U"FuyAy__WN17pg_FjD_=9wN U"0b\n_%8?,l5klylh\2>ij3<4BtF4gpcn#L0RD?F=>N/HD]#[J1,(cLxFtSPlCQ? U"(:6ReH(A[:WFIVN/R.KK)hp0ob:(8m)JhtJ3i,AX0nOul;Vssu'(,C)7mRn;]p' U"tnV-FBSm$Q$IX.;o1'fGscQOi'mRZHolf;phpKf&80S&Cz/BY(9,: U"UWRp%g7#c4DosSt#\6CJ6fM5)b#35aYZnbOGN6Hg,o>g U"o]RPF0YYQY%Qra\teSmq4$>$cgkRukoOL7bEZ*ceHThp1hLaup\ci7;A$8/37SE U"+rhic5A=hX)Y>L^JtC,G0Y2')enRCviK2_O5)< U"lJsIRB-&Wv:[Vp5B_i;50UxgCM('KFtpcgml'f[0uP8R$f0W.gY(lJ)ip(LrlmH U"c3$'N7nC^P?\c\g#R*Cx[cuF6)%-X$0%Yv5TBjcQIDY-nR&UFh07ST(7%O^=D5? U"&YU?(lVZ>r'-S3ZkTQpA'RA-Ro;vY4P? U"EMJtX,*t>CIs(0q+/Z_D_2]Ta7>G-eyptzFcjwnb(i%96XLc996r0pBFPy[4BF U"zYk*%U?TplJy&1Zg=T&'$=KAgFCOw3pocYq#^rhX*-'2gz_PyOw%,u.Dp=N);pU U"v*.%H^?RFNYtnNdlX<*uX2Ib=b1\R6J?e-QQdH?uTeR9L,bq0=J-%gK>T2/?djM U"Mg>R-:WToA2-6\#c2%E:(7Yci4RVB5v:PY U"tC4TV_qCTWPum)H9T]W2$1XU-?4#,,0uDPaiqp*bG-4lDkm>TRZ\R(;P=wq>;7G U"ve+QRtX,p(FP]%F1ri8 U"t7-15,%*BuVqr[4na]M^]mI'-QNu7Uiat=m*aJKkE+2?\K+)Ex?)FoM^5X#HNu3 U"#MKd+pqKQB>-r1*M%jePcTW^S8.PFQ;c>O:*YAw$0L)e2m.l#C]xVjkJ'FG;D^' U"kx?Yj'ZMQVNy3Q$AhLlK$Y'mt8*Jz2QN/WMGq+9%Z-'?k9a%S/[=#)\G\;RN3M& U"wW-_%G/WiK:KRo(VqEx+9M#)&T6*X+i:p+(fIif/eM7Y+-E6*NRq/V4fiP9A8RY U"VBP'-)U2QOWbQPi:2-R/j.ifjM(]/5q&^M]I(/]=)R.wAAut'*:BVk#*^#UW1T[ U"zvT9havvXHMj&0m7>//)0Ks\UlqhJD0eN'$b5[Le7+[rhQp1t4auS6aSvqHik4t U"-S6LQoZ+iv)t\o89gi5Zs\wL7'Znk2YHu(.qvpbY<('>&SB1]$Nk4Dd,XVgwpCp+ U"VQe30lgcTKVLg+b5#73+bh+dut-unP:j0G?^LKBjcp0X];Ho&rtCf;N,IdKe5sQ U"T9bm4hEA57i)5kt_pADk)ru\_+^xkp\LfY.7$dDY)x U"0-^.^22$Td5h=UX]sj]ByX#.lIz'x0up%()9%%%%-%8e]DIpY)nV'0)%%%.5%%% U"-%%%(['VY%SksyM<&(eAz]14(/_A,%U)U4u#SBTjkhpPuxV$-M3*my\=ON'54Di U"aciXdx8%z6yRJqvwcdhzP,yi6%C#z1_(aN3]1c$]?f\2_QYQZP2RccoEeo,q(;&qBZX%1(tS U",\fnHb*t,Z$fxKiT-wlLVGBtZe=7nYAovZkXt#*:=J#jCx*YQ5JA&,0VpU6M,Vk U"v#p9Ji$L7)2&n%z\>7>1)ut]7\e^47xA)#,eE\O3\^)-D1FYAen;.a&PkSwO7j% U"BLx4>2$v.d]LHK(DiN=o]ma+LsNI)QN7t2)YA08Bv\IV8QT%DXDHa>YgGHVGT]U#'3-M[kpx U"yn=?s,^X0D(Jl0rcU?xS0yl8m/tlbRsot(etMs)2B#S2adgXt/0Z$w'eGh.xKXT U"Z3opa-D$S/:#Qcqyt-w>Ov^9c\K>4r'8cQr8]nP1rF+^=*9fSjhR=cs^SH^^P2b U"GbEw^]>6/k^'AVi5<]chYfxY-3d?\-x8#JjjK8jmNS.'.Zuq+An\rcPpRD>J\ad U"4jYkhw_[31PU76A]7E;>HhV$'&P#=/YjM2O1M$tKt_uKNJKvR'mqZ7/EhtZlx^c U"Rw&qK#1g-Tn.Vq6j&ZNVA#fGqZw9qm#z&OXk_W97e+^,,=$+/2Tx-WM*U4K#_lh U",Lor+T_a:U*#<.PTH9i)Lbr^A4^$YK7eDKs4;06iL>1lL(b.Bltj3m&gR9\om>/ U"f:H04Fx7t0?,0\Ee3b04-7>]g3nnR1AGkGHGYds-dtS]P==8L2$LHaGj5c?l5$E U"Bjo(\n9BOXtI)OcZ9U1$#uV*ol0u]b6&ODLdligrP_&I8Qu)>(WFKxa-jC U"mCi8]V/_7y'k-,GiqcKTXnWGNV1GChA,Vi?oZ[rtN5[O5G*^cEu7.F8v^eWVEQtJ=FKv:a\# U"a8f79yX6j$Nu%p()9%%%%-p%<.S(IUO]);\%%+%J%%%%/%%%%nty(j'yS%nshp7 U"nrGn%QozM%SrwMnxMBEaxIMG9EpHn0NfpY5H2_zU;c]33_t1M%RN'W*IcKL(;4K U"LYu^$d/7%4/1obAWeb:Al]lWpk&ZyYY)Dapw#PoyCWKalBgyDa9Ps,V2Ou):W%b U"mho\5Sg..FuHkJ1v#9eXb_FEDt'C4j/Qw85cA136QsA(J-S%%up()%9%%%d-%8. U"0SIU71?-t).%%(0%%%0%#%%j'%fruq%jSgfOx>%<+t\]5$wKmuSVv-vH-35a^9' U"ecqm'/epz)*NpvCtN=nUOG8\HTNZ^XX[Hf-Nkq=$g<(JwIC-HTXXRtA;K\:i2%1 U"S05OCvB%uU]7*=&y&sqMO)-0%_w&MGn:W: U"[E2SkXBS%(WQVF>4uT(KRScRv U"\&bT;giy>Sq,YCPAtU#;wfiD+;l6JEpKKVCKm0qINtfHjD)Qubpr]o#a?p/O)p[ U"7q>mLqfY&ZB]Lm1Spk&JRN#z0c4krq8Jtncu2%iljD(a1rNDNdMG[ksgPp)b\#S3i U"r7M#fisNCKlbmN\KSSYbEJXJ,-W$=NP.(>U;r93DOar>Z9Zmm4:#-).$?]3X+.# U"vA.N>YxgB9+QDK,7TUf.QFFMj5%4pKn2s-E-ME*QHpT&rQ/CexzxX7Z,lQ6p'7m U"$eO9%P02wS'*XI\J+NCy.,jJ*0(8jJdKh:PJ)#%XC7I^4P3xPB-Y'fU&4Oz*\wHpvlLT$_iA).mI?4j:cu<6U'#m$rU(F'*5(FR/<[H*E45m,o-4lB[QsWDdQ0p-Qj&4(/g['?:HKaT# U"Heg?>:3FRr4Mkh.ce/9#?es#.'92lTa9$YC1a*v5o18z6&4pf)gH.(>jBI'if** U"UdU7tscZ4i;6gvI$59 U"Q0U_Eo\pdqm7(L8kR##AIlxVu20>.?#9> U"c2k,TVkwq\'h:(ze*BS'NgOLK-2cgXd<4'wj?\P67k\GWNZBWEnBOKir]=q^$b\ U".'BT7Bx^*t>up%&'9%%9%%%d-%2+BSI7K9:T[4%%%?L%%%/%%%%%%%%%%%%E%%% U"%%%%%%ntyj&'ySu%gqup%&'9%%9%%%.-%e]BDIY)?nV0)%%%.5%%%-%%%%%%%%% U"%%%E%%%%/5%%(['VY%Sksy%up&'%9%9%%%%-%><.SIAUO];&\%%%'J%%%%/%%%% U"%%%%%&%E%7%%$9%%%nt.yj'y%Snsh%up&'%9%9%%%%-%>8.SIAU7?-&t)%%&(0% U"%%0%%%%%%%%%&%E%.%%k:#%%j'%fruq%jSgf%xup*%+%%%%%)%)+%X%%(%9?%%% U"%% END SUB CLOSE:IF S=4AND 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