EasyScrn.Bas Attrib.dat

 BBS: Inland Empire Archive
Date: 04-16-93 (23:50)             Number: 374
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: EasyScrn.Bas Attrib.dat        Conf: (2) Quik_Bas

'>> Start: pg. 2
G"Cqzh42b0Dqzhi3bPDGBhC2bGCWmheZbGCqyhm3bGCaDhG2bLDaihe2b0DaDhi3b
G"PDGyhu3b0DqzhaYb2DqyhW2b1DqzhaYb3DqAhW2bSDaiha3bYDWBhq2b1DWyhu2
G"bGCqyhaYbIDaBhu3bLDaihe2bUDazhaYbGCaihaYbGCaihaYbGCaihaYbGCaiha
G"YbGCaihaYbGCaihaYb3DaAhK2b0DqzhaYbIDqyhi3bUCaihm1bLDqzhObbGCG3F
G"aYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCai
G"haYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGC*YbGCaihaYbGCaihaYbGCaiha
G"YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaih
G"aYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCai
G"haYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCa
G"ihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGC
G"qrhG3bWDqzhi3bPDqBhu2bUDaDheYbGCavhG2bLDGChu2bGCqyhi3bLDaihe2bS
G"DaBhaYbRDqAh42bKDWChaYbVDGzhaYbUDqzhe2b0Daihm2bVDqBhi2bPDGBhe2b
G"0DqAh82bUDWCh4YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaY
G"bGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaiha
G"YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaih
G"aYbGC*YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaY
G"bGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYb///////////////////)Yb
G"GCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYb///////////////////ihaY
G"bGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaiha
G"YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaih)GCaihaY
G"bGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaiha
G"YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCa"
N=4007:K=255:IF LEN(C$)<>5343 THEN ?"Bad script!"Ksum!":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=101 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

--- Maximus 2.01wb
 * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)