Part two VGACLIP.EXE (TSR

 BBS: Inland Empire Archive
Date: 03-16-93 (21:40)             Number: 352
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Part two VGACLIP.EXE (TSR      Conf: (2) Quik_Bas
' See header part one:
'>> Start: pg. 2
G"laDU8(UaOp)c*1zG(U8VlMcGla6ZUa8pDY7IXg8l*WPl)7HPaG(58)mavTi7w
G"D1IEzWI3jWG(mB*uNa3tb6dcWIqZi2c5OW7iCDumdWlENad6ZSbaqDcCpfF5vx
G"kl*lENal6)IpmVP1P9IcV(3au1IStBunhYul6fclEXcsxNamQTJcBYIEWAa0cv
G"ZHKl*Goma4iWMSJhbaqDjaKJatBsnhICtG(kamx6ok8IEzGjl(LaMC)f3h9w0c
G"vZHSyWDPmbamLb0kvZHyYIh5)O(qWbBnShH6dboInG(+Av3a5)XWdyW+KnJ
G"6db4VU8KhMIGZaGMhMIeVoaMhM(WcI5GS)YamOpwh*1HdTV0Cij6bqeWObcraT
G"r1Cij6H1bSOhSgaTq1CilpOpwh*0rHhZS9HEyDa0cvZHuSfaraTA0CiFSmJEOA
G"alx1ISVOrgmQQb0LYcaqvlYoUb*u)Bhc)BNbAscaGcqxkt*vTi7wDf)ECWIgP
G"WI2zWIuSiDcOeEWSOFiSydl2Nal(ns4LZa4VcY2ndRY7ADUSJYYPYcsthdwDvul
G"Q88MM1xEvh6RS)Ih)VDiOPcaWma)BNbAQ*mdWxE1LYgaWmaVU5vTi7tTOxgS4b
G")BNbAQ*mdWwDPS*u1ISpi7Vnvus1OvrsRgnhYIgzqJw5RMeaq2amZ25Eca06u
G"ZHixalT4WAL1wlwExkl*vTi7lAKbqPPqaWka4cCaqPPqaWkahBa0be*DPS*u
G"1ISVOrgaLMcbaRa0LYcaWXgaDabaWYvTi7hBaYb+l6Lbl(WIxjWIEaDa0cuZH
G"m3bA6*ldW6jStWZvGXgGCa98VDgOPcaWmaDPS+qvlYUvxTODgSidJtr)lsNa
G"deVtSQaW0zalGqNaRlG4ZRPc*nalANblsNaZt6IdZ))2zGMk*Za8LxDPS*u1
G"ISVOrgKPuqPPgaClaDPS*u1ISB1vl6LblAecgBW6daWcaNhdZi99BVb0lkS)oS
G"(a(U(a5Q*Z8VthnJ03h)IOV4W3h)IyVyXakmmisXcax35lSDDJdOpRpW)1vGth
G"zmbTS4ZAQ*qdW8KU4WF5vxkt*vTi7wzSbghW)l6LblEWcatxd5hn0lENajsK)
G"hF+4vxkl*vTi7xTOtiOPc*nalAKbZR6Id)vxkt*vTi7wD1I2zWImOPc*n
G"aJtXI2zWI0jaR8eMCgWJE3jajFPQ4YV4W)BNbAQ*mdWxE1LYc+qnvusz1vvX
G"VhhaOpgh*0zKVyhWIwpGfKgWoYpxoTIAa1zWIypWnRhVtoTO)Z0(oYphjlYH9d
G"haDse96dn0aZpW6b4HPbKIhKgW6JV4dbf08KMYBcSo2D9LxAL1wyTm*6dYbaqD
G"dmkYbSmavTi7qn1USpqoEzGCqm4WmLJxgChc)BNbAY*(cWwy1LYc+rLlfaSl
G"7dm4paqNddombIB)USpWuAY*(cqwldLMoaGZamUibfKMkaq1amy(cmhbRKmwlV
G"4WRMIdMgqaoqAajLuIpK4FcG1YtTibhwqIeSixcCyxcKixcSaW0nqI35)G9*Dg
G"SyxcK4F(V1Y87XbhBaYb+74GPbyNiA6*fdWooyAa2DXkoyAa74aQbyhbj6aQ
G"bSOdMgGXgGCao8l2bmGpKgWYaeLvxXVhhSO(lc)ImSiDcmpPi2WxEL1Y/
G"/////////
G"akaqdawDuqdXusqbIDX4cmWac8GGYqPasm5KdmGuuyYXgin9MB0D2BTvMC5b*G
G"bG*qgaVu1eaOgatv3yJv2CMvhBSLhiYvwBVzxzKbGdaiiadfMBU9gDGixzT9MD
G"LfsiaqjabXMCLfgz5bsAUnhDHXgBLrwiG0ciVufi09gi15gBVfgzaGca6cGvhfe
G"iZnMCLvMBGmwyWrxDYvgiVzgiZidm4jdmWGNm1ydiJ9gBVj3CPaG5aq1usbcAH5
G"gzSvMCGKMBJ9MCW9MCHrxzKbIy5bstPngAHvgBGCvzSngAWOcaueGvhf0qmLeuG
G"8svGq3BGixzT9MDLXciVjhibXevTyfi09giHngDPzxy0v2caiuawDuqtnKuQ4Yq
G"bbf9MaGubCvyY5wAUDwiGy1rbn1qsPIldfeuGugEPnhDZbYBUbczPn3AHesig*
G"Fby1rbn1qsr*ggGldfeu/a))F///.G+
G"//-0p/*c*Xb0Gc-ytnmn0s0e/+"
N=4488:K=255:IF LEN(C$)<>5984 THEN ?"Incomplete 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=95 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$,Y$:FOR Q=1 TO 6:DO:S=INSTR(A$,CHR$(Q+41))
IF S THEN A$=LEFT$(A$,S-1)+STRING$(Q+1,97)+MID$(A$,S+1)
LOOP WHILE S:NEXT:C$=C$+A$:END SUB
'That it folks!

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET