===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 06-03-93 (21:39)             Number: 102
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: FilterHigh 2.0 (4/4)           Conf: (35) Quick Basi
---------------------------------------------------------------------------
>> Run this through PostIt! 6.1!

CLS:?STRING$(50,178):DEFINT A-Z 'Created by PostIt! 6.1
FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"FH.OBJ
T$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789#$
G"as(cyesSB5b)bd9erfreMh(A5fGaceGEqsb(eqdgLetuvKuiL0rif0unb)CiO9f
G"q)q6be(biWaeuGbhGqckSadn4WdqeHetqrfwCbgzOXgC0HhFasiImcjLyYjOKIk
G"RWslU8cmXiZm0uJn3Gto6Sdp94ZpafKqdrurgDesjP0sm1Ktpbvusnfvvz1vyLL
G"wBXvxE9fyHj2yKvMzNHwAQTgBT52BWfNCZrxD2DhE5P3E81NFVnuDLfwyHf2yLv
G"wzPLwAbfurMe0BV9wD1L3tvngtznIzHL2B15MtH92pRSYlVecp#ecqJW3kRSYkR
G"ScFRSYkRSYkRSYkTSYkRSYkRSYk9SYkRSYkRSYkRSYkRSYi2XhFEfMyL4wrLvNC
G"Q80tr92B75upJ4dpV8Yl94LlU8IBY8giqw1ISB1vESOvguSDiqSFiS7(Ki0XsW0
G"QVOYL8(01qqrdE0GRlCbSc0$loKS6Y1QYQlxRkRUCTQS6Y1QYQlxRkRUCTQS6Y1
G"QYQlxRkRUCTQS6Y1QYQlxRkRUCTQS6Y1QYQlxRkRUCTQS6Y1QkUVF8LxDPSbaGp
G"NjaqXuqvafNcvbOUIc)0b"
N=451:K=255:IF LEN(C$)<>602 THEN ?"Bad script!":END
FOR A=1 TO N:LOCATE 1:?STRING$(50/N*A,177):IF L=0 THEN GOSUB G:L=6
W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
?:IF C=179 THEN ?"Ok":END ELSE ?"Bad checksum!":END
G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
SUB G(A$):SHARED C$:FOR Q=2 TO 9:DO:S=INSTR(A$,CHR$(Q+38))
IF S THEN A$=LEFT$(A$,S-1)+STRING$(Q,97)+MID$(A$,S+1)
LOOP WHILE S:NEXT:C$=C$+A$:END SUB

That's all, folks!

Victor

... Have you crashed your Windows today?
--- Blue Wave/RA v2.12 [NR]
 * Origin: Hard Disc Cafe | Houston Texas | (713) 589-2690 |  (1:106/30.0)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20