BBS: Inland Empire Archive
Date: 04-16-93 (23:47) Number: 372
From: EARL MONTGOMERY Refer#: NONE
To: ALL Recvd: NO
Subj: EasyScrn Menu.dat Conf: (2) Quik_Bas
'>> Start: pg. 2
G"xGZfGCrlxaYfnDXBxy3fLDbixy0fPDbBxu2fZDX2bSDaBhW2bSDaBhW2bSnaXIq
G"SielcXIqSielcXIqSielcXIqSielcXIqSiSDaBhGvEuMhU5bDEuNhY5ryEaIhq5
G"rDEiMhS5rAEmNhO5rzEiNhBhW2bSDaBhW2bSDaBhW2bSDaBhW2aelcXIqSielcX
G"IGUaPlqXIqSielcXIW2bSDagDroxaYfTCbixq0fLDbBxu2f0DrzxaYfgDrAxW2f
G"LDXCxSDaBhW2bSDaBhW2aelcXIqSielcXIqSielcXIqSielcXIqSielcXIW2bSD
G"aBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bS
G"DaBhW2bSDaBdqSielcXIqSielc6cKUaflcXIqSielcBhW2by0fXCbmx0YfGCXvx
G"G2fLDHCxu2fPDXCxSDaBhW2bSDaBhW2bSDaBhW2bSDaBdqSielcXIqSielcXIqS
G"ielcXIqSielcXIqSielcBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW
G"2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSnaXIqSielcXIqSiOlq6cuSielcXI
G"qSiSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaB
G"hW2bSnaXIqSielcXIqSielcXIqSielcXIqSielcXIqSiSDaBhW2bSDaBhW2bSDa
G"BhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2ael
G"cXIqSielcXIGUaPlqXIqSielcXIW2bSDaBhW2bSDaBhW2bSDaBhW2bSDaBhW2bS
G"DaBhW2bSDaBhW2bSDaBhW2bSDaBhW2aelcXIqSielcXIqSielcXIqSielcXIqSi
G"elcXIqSiSnaBd)SnaBdW2aSnaBdW2aSnaBdW2aSnaBdW2aSnaBdW2aSnaBdW2aS
G"naBdW2aSnaBdW2aSnaBdqSielcXIqSielc6cKUaflcXIqSielcXIW2aSnaBdW2a
G"SnaBdW2aSnaBdW2aSnaBdW2aSnaBdW2aSnaBdW2aSnaBdW2aSnaBdqSielcXIqS
G"ielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIq
G"SielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSiOlq6c
G"uSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcX
G"IqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielc
G"XIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSielcXIqSiel
G"cXIqSielcXIqSielcXIGUaHmqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1
G"mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa
G"1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZ
G"a1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mqnduZa1mq8ce"
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=129 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)
