Part #2 SWPBAS.BAS

 BBS: Inland Empire Archive
Date: 02-17-94 (00:22)             Number: 96
From: TIM BENNETT                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Part #2 SWPBAS.BAS             Conf: (2) Quik_Bas

'>> Start: pg. 2
N=3718:K=255:IF LEN(C$)<>4958 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=121 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
$$53
... (W)indows,(I)cons,(M)ice,(P)ointers,(S)heesh!
--- GEcho 1.00
 * Origin: Home - FalconWorks SoftWare - Mail Only (1:362/466.0)