BBS: Inland Empire Archive
Date: 04-16-93 (23:52) Number: 376
From: EARL MONTGOMERY Refer#: NONE
To: ALL Recvd: NO
Subj: EasyScrn.BAS Char.dat Conf: (2) Quik_Bas
'>> Start: pg. 2
G"eZb3CWnhaYbGCqShaYbGCqmhGZb4CaihaYb8EaihaYbXCqohKZbGCaihC8bGCai
G"hiZbXCamhaYbGCG0haYbGCGmhiZbXCaihaYbDFaihaYbGCqso4Md05qzo4MdZ5q
G"zoaIdx5aAoKMd05qzoaIdG4aioaIdB$aioaIdG4qmouJdG4aioaIdG4aioiJd04
G"amoaYbYCanhaYbGCaghaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbG
G"CaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYb
G"GCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaY
G"bGCaihaYbGCaihaYbGCaihaYbGCaihiZb1CaihaYbzCaihaYbXCWnhGZbGCaihi
G"7bGCaiheZb4CqohaYbGCqVhaYbGCGmhaZbWCaihaYbiFaihaYbYCqmheZbGCaih
G"m9bGCaihiZbYCGmhaYbGCG3haYbGC*YbGCaihaYbGCaihaYbGCaihaYbGCaihaY
G"bGCaihaYbGC*YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCGmhyZbGCaihOXbG
G"CaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYb
G"GCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaY
G"bGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaiha
G"YbGCaihaYbYCWnhaYbGCWghaYbGCqmhCZb5CaihaYbZEaihaYbXCqohaZbGCaih
G"47bGCaihiZbWCqmhaYbGCqYhaYbGCGmheZbYCaihaYbuFaihaYbYCGmhmZbGCai
G"h89bGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCa
G"ihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGC
G"aihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbG
G"CaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYb
G"GCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaY
G"bGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaiha
G"YbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaih
G"aYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCai
G"haYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCa
G"ihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGC
G"aihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbG
G"CaihaYbGCaihaYbGCaihaYbGCaihaYbGCaihaYbGCaiaeGadqqbuCao5OZo80Jp
G"$a"
N=4024:K=255:IF LEN(C$)<>5366 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=4 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)
