Area: Quik_Bas
Msg: #378
Date: 10-05-92 12:35 (Public)
From: Luis Espinoza
To: Bryan Leggo @ 914/201
Subject: Re: And Or Xor
CLS:?STRING$(50,177):?"Creating: BITMAN.OBJ with Postit!"
DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"BITMAN.OBJ"
T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
G"aYaakiusu1uqo5sqt1eOiccaaaav1jNyVbsqZnxzTjgBLjhiGyvzYnxAV5giY4s
G"nXiiIsaaqPhdJVJHccLevnfKtUe0unvkIdaaqPZKLcaaaOH4aaauOuAPeaSGqjr
G"vtb50xuvewurWqprurpJ5baGeaaiWabmHLmaqbFruqufebefevbjmMhaasaaabf
G"eWdw2aagiusu1uqorWqprur9H5baGeQayWbbmMLiaGbeDKupvfulQjbaGW)cKfK
G"paaadGGufnvrujusuTdaaKlKkaaadmGqpneNaaa8qQaaamWac9Kuccaa7dzdaaW
G"agmvrujusuffaa4dKlaaadqGqy9KupcaauczdaaWagi1uiLKru9aaaShKlaaadq
G"Gqb5er1baaudPdaaWahivrbrKqjrLhaaWpq2aaamGbmnfsjzevaaaaqcjeaaWaj
G"q1thDetfjusungaaafIeaaqIgqKGYkadaaavTi7lAecl6KbtdExktaavTi7lAec
G"l6KbtJExktaavTi7lAec6gaal6KbtlEHqtxb4gaaRlWma3LYeaqvlYoUbaWIozW
G"0GVOviCV0JiCxktaavTi74gaal6Kbtd(cgHqxktaavTi74gaal6Kbtd(mgHqxkt
G"aavTi7lAecJyKbDPmbau1ISVOriSGrg0LYeaqvlY(IgHWmgzqxktaavTi7lAKb3
G"dDxklaaGROaaaaD"
N=531:K=255:IF LEN(C$)<>708 THEN ?"Incomplete script file!":BEEP:END
FOR A=1 TO N:LOCATE 1:?STRING$(50*(A/N),8):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<>86 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":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$:C$=C$+LEFT$(A$,63):END SUB
--- PPoint 1.33
* Origin: The Rubber Room (1:207/213.5)
