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)
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