>>> Continued from previous message
'>> Start: pg. 4
G"KHgyOSUiBl08ur7s#ju#RHxp68MAlVMCf1UF00DI$iP8e$tWBbH7cV$Zd3Yl$$8
G"4pzLF$bsXJNTBpl$N5IbKdDf$bZ5zInVdxiNix$uLvkc6fjrkGONxzuxo6ZRqJ4
G"OHqSqmgNdzaAPlu4y4z8ETfzfo3pxKoLqDA4ybu2VMV9r10LbZrYJ8ulXe4qM2Z
G"hdsar2Ik0N3dvjT0IfkkOB9gaZxHkH0wG4hg6j2qN6iEWfYyoU8DiPCRz5suY4m
G"ieHSvCJrVZW9IxcsumrUo2XH9AADO78tkMdj52is3Z8tcPnh6z1aBKJLsvgDtz1
G"zoKhFvbKv56uetwNHFgy2OhUqwaKIKwRWH767ntMN#UeVC5X#mfZxVCmAvAfIfi
G"vuWZWwccudgkduLSMIbxkawEKuZgOgahIoUddgsuaMCRFtMXGkidPOGAumDrKE5
G"dDSpW1eCjl0HAsK1W4nr$ym41qEJiAfgj0uBwYSQPb9iOWipimfhIS$bw1cTMZH
G"yG75YSBJ#hUvEV0iL7dDiA9uOTyXZeedxnrTIQM7XG86HeTJ9LWYPqOIsl#t5Ml
G"vC1WVDHyEhXSt2A1c7w9DDl#PK7Cg2oETf7PC$fY$FCbALritFC2YmX9yYX8k7m
G"5xLQVhR6NXErAbqk#cnoEpqW11cVmTglZVAlAAVFK7KPVKR0vvdJwM$PcfnJMU4
G"d03$VNM$VEV26TQ2H5D80C#$2yz$693716JOS1yF5vKTt84cno4r$ytY63BJtAp
G"bL#sfoYBVTQ7ecagOsT#9qVUJCCJU3WdKrGoW#hcp8JZtLgI31tcPslzDwDD$dV
G"X$ceNEQy79Pi26DLzzQrPufQFKUaiGkd$e$atO6J36OIdYxcnUww3VX36bKpGlR
G"Tz12A9ryIpbgxQTnhALadazKUytJUlvwOCtiflUfzIJkZC9u24WOz5rg$9$3377
G"6zZ2TLmhKizsUv7wQXBfvjBYheaZXXbyX1XHODhNaOTXK32gVATGGznFN3Yu2bT
G"F1l4uhTjYkbrjDn4H0JEBrv6SXs#WfVFRas3UWANMM4cBvJuXwNGDVfJUyVeP#a
G"H8wJ7HUlRjC4ikoculTi9UI#oybvaPEs7VDcp7R5UexkyyMwshfQmh04ed5$oU2
G"uOIXjS$CRXEE8WdQh#EMdUHO$KtiJfFlRCCv8lteXiKplwcj1xObkWx#sCjY$1l
G"L3sQYen8S38S2WwbgW4HoOPg$jGMrIF0xKgUI3UnWDSm0v9BNk0Nv7$#HjUBpRG
G"K2vdl3V9#wi4Qf1UC3mR8LOS3pBfrFVuG$msG6mN7jibR3mNcxzfkKDuFuC9wqE
G"ZM6uLgzpzr9uu0pnvQV#tpnT9g7G30AwMtPPQ9fgl#Zq1kPc9MBPEQnEt32elHp
G"0hda4t4x0zcaemzqFP0qerZsWZorNyh47RJXh$i8hhPI4t5l7OMPT4gGNIQAIkf
G"RdKbNVZ4eAqd7A1wTmCgaIvCZLZtS#v2jnMJY1z1SwUnboOQnBaBVOv1tryluQo
G"zJWToG#x4m6wua2lek4U4EKtqfO9gIaMcJECItJ5I4TX8s4oY15BOgjBeSkKGvJ
G"XgCla#t0Ov3yC1Kbs9EbEHsuJxYoCt$FAENofSyvQgOJKZi8sATnDP4wHyTAetu
G"xujmnL72QrqLJq6y$bgOfoEnmionG#6cFNaEvtsvTBn8f8R22EeIv0ycyLavoNk
G"lXjinaAilPebyVnUIyrbwU$Y0gSgeAj$xVMeBKc$NOcUo6MkgZTjlutTYFL6Un#
G"lCzUwg9yKo1bMk$nNCLVdOqIk9CmfYLzrotw8eWBdbSxQ4XqLfKDCOidq61kEjZ
G"HXgnAQ8N1rmMisr3HbNysn5kVRzENbiU7YsTphX8#hSeTW7MFx4PZ4ilwA5pgJe
G"JFK8zSsKQW#ZtLaEq9eF9yUzB6vqv8thPEm8c$d$OFtaZUQMG9BcqY#c1PoFiMN
G"U0FdLsWBQZfafbyYu9lWlcDv#G6syIUJi$NqGc1KOTCiDaij1o1ZpThjx4tHURx
G"a6W3s96pEHKPj0i4C$MAJC0$7SzCJL#dZgt2Zo9Jd0V0P0unX3wD8NP6zvgs#1M
G"4ac2ZNehRkBqO0Q8VjMm$c$Reog$wCkZd2KQeq5K51Om$CtOAuNM#Xmvz429BoG
G"nYKMN0Y2TueYDNKlDI43KFjFkq7UN18UyH1xUU1Vbd7sfxMKW3TKUWaPjkY3lss
G"VPuzFyjtLVfLopbEcbBYhrB5RKqHjX8UOnWGQn5kfmU2kZiCv6UkZ$iQNQ32mCT
G"uFdWvoboSJWGMSJfHcPknmUwiUDcXmZCixQW625$hloE##81MN7UDvEjfj4C#x#
G"#SvMUH4m82IVY3$cQdjaiA05oUY5eI62V9Qr7#2IjRcPWXVBQYQVSgeKsBT6KHL
G"RYCH0N$Ct8ahJXOPJtYpS1$wFi8ghSbgwqk07JK2BOiTaA2OG4tiyT8QVPMgPvf
G"sVAD2s6yy$r4r0p$6rN5zUtjuw7CkazV6r8uxPil6E4P5yy9cWzi$mTGn3R#QN1
G"m71GlL1fDO3F4pxUCO3q1blxWmH#NZPyLiNdr8hd#5pc7HQElWPhToCw0paudw1
G"AbiDs6Fcj85vHHlUlScvuC7oEqTRwRU4dGso9k2oWLDr#iWJu$GoOKh0$wS7E#Q
G"f#3U0L7d3lwbqzGOSa6WIi1$ib$eul0A83G3ETXsYIo6#bdRx2z4O0#fUarNTcH
G"MxqzNBu0BLOgKhwE7m5ggNLh0T#CXokove3ZBaAmiucG3Wucyk9IOeo6Wn9hUCp
G"mos80BzwLffzKmm2#O3eu9jTEmadZd1LD8VBWzPPzR8Sr9KoMdHf4aa"
N=13276
K=255
IF LEN(C$)17702 THEN
?"Bad script!"
END
END IF
FOR A=1 TO N
LOCATE 1
?STRING$(50/N*A,177)
IF L=0 THEN
GOSUB R
L=6
END IF
W=T\P(6-L)
GOSUB R
W=W OR T*P(L)
L=L-2
B$=CHR$(W AND K)
PUT 1,,B$
NEXT
?
IF C=133 THEN
?"Ok"
END
ELSE
?"Bad checksum!"
END
END IF
R:
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)
END IF
LOOP WHILE S
NEXT
C$=C$+A$
END SUB
--- Maximus/2 2.01wb
---------------
* Origin: Sound Stage BBS - Live Via Satellite - (604)944-6476 (1:153/7070)
|