Qbfonts 3 Of 3

 BBS: Inland Empire Archive
Date: 09-26-93 (00:56)             Number: 344
From: STEVE DEMO                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Qbfonts 3 Of 3                 Conf: (2) Quik_Bas
'>> Start: pg. 2
G"a2PSCso)m7zGnBf50(xSICIkhhz2Hsu9nQvE9IUz3ZFBEzydG8YX2RXkrjQ6TWdjp3X)6z
G"jBV8WRXcjpP351t5Ysz7DrbxGDz1iwjX7ysMitN)chFyyeRItpHnduuCQ8gwGgTyzjvTvh
G"gKEEpfil6mg7IiuRgxeyhtHl88yOX)(JIKSggZIHygCK1OwwOlr)Nah1AvKx2Us63rJpLc
G"CbjDRlIAfZJpR1ipaMAheelu1QW9o4MlngPZfo2(viHsEq4OpILZjJXMwZkZ41QCGQWAKF
G"23oxSeBKwsjEjEkeCI(5ZJLozYy4N7d0NRpFw6bJiiGDiq7i8rc4oDDighnJRJV5JCK4aL
G"qffdswfjcyIjChKOkctXgNLdx8IJqhCq05Brj2pPOP3hZDns0hXqLw0W)Nk5WYj5EgMvKO
G"(MfXizsYvNLB)Hz8lRkqk)Y2s(oXbrfIj)usgtmMFFrMXpiffhHrKZFVlgb(mR8MxJPINI
G"r807dYEARE7VRSFTeSJaKWIY)lqT0aeqbac*c*jO5SHJmjAOgZ+yns*Gc,g9Kt
G"uverUiuqt1ohRnN44i)ovX)HEzZCbMa5WgiHm3KSfbmtyxcWbo3S5(MtSdHnm2tzm7a3V(
G"tTEyl)I3z3C3omvaBPwD3Q7wTA1sAYMPLw7o90HgL(3zZC879)a6pBnZcubdxl4jhx4wht
G"lqPc4ypDj2QMDBmudgD31qph3VymfYxiCXxB84lTCD(kKFrKAAo1YWv356PeiI1Srg)UvB
G"hBpDNwtMXQwITw5NWiQRJHjIiiVXrrOXaJ5K(wE9jp(YS3jvx7761uVt)EG2IjZinS9KPw
G"rBB7j2MuzrE87IWIIWsgpcuQr46Vo1yj46m3BIT1SWTU)uZbUtymfRTfHMtN7weMn5)yfv
G"coz8Md8nZhBT5q3CU70LBj4Bhfem)PJE2W05BBjxTnTQLZ8hMk4SV54AInzX7inA57ynJ8
G"dQSIzg6m3msZKO0dJFmv(0X1En0B0eRej6OVA8464vKIj2y0alCB1Tw4rBVU2cVnchx7m1
G"CVXXuhhZbdr)g7os0F21YQvySeikEIk9FNqnSrsfFJMq8KGLe6vgqjIPp9SZmV0uoBbhDR
G"ZCBpJj2RtoVgus9QW8dpB(dZOUINpZYeEyjmZ5lwGZtG3ZwaJmchoW1ZNm1eEY15lyTFjQ
G"PRP1Pn5JRsYW7DfsObMqEZNS92U2S1uzXoqL(KUAAojI4MW6loSzB6Clm6gsXTGgUUglxC
G"uE1ANvaiFoMvc45a34qWmkDFYX2lBgMDAU297PtAxlTB7dT7pe(NxJLmc(xkNwU8d54WLn
G"t3(nBORbfj)tPiCE2mDAd96RZMyjphnN2S9NYva0VrRx2maNc6esIZ7qnRTmpT5tJHjZaB
G"hpsjZTnHCbW20Wg6ap6Az4zbt8ia9n4()Un8tqU)r2mUwMoFGaSXrWLqNEdUt)O8kfefCx
G"ZgJ0oIn3iq4osHF8ki395Gg9AjERN8BnVzibbvymm8P(69bKe(n)YiqqlIGqF(14igSbKg
G"bGqdk4A9ArQo80)zZqkL0KSzg1COgbiLkzZ4hyHs2mYHseci)z)LL1zZi70j3OHTGrop59
G"zdxRCfHZkcQfbfYFvlcvksrti4h4AnZY2BgbwLYfHZlcxqvVjbl3WabTkdofzyzrGOOMnd
G"AwkExTCO(WGgD1011wvpoBgw0x4trc6cJ6AmCjOCw2mOP6cYZLb9(eQqidayDJHtqCcOwz
G"mCfuPSWAKvp2wCyXO(31RfPwsV(0YxqlJ0IflyAoENblwOUaOBNEAqEsdwuOu(kQ0hkcJj
G"mS2VQdlyAwcl7Z5RlyhSp8zhxZUyOzewd7kD16XTGrUTXOM5VTtRJOyqaArqPafa0AumEF
G"mwIWPZ4eOhPAuETaobQwMZZcmMkRVUGwo49a5oaHtvjKK9tD)EXbRpgFk)vh3IFCY8WK5a
G"t9eIacFefaO5d9Tlr7hrvxYRkDrgLfiuHoFb6fjNqarfFCouwcsQV38V8GLlxmpMk0fTxi
G"wzGuiYiM6eiXcwkxa8c5TxKgarPmFcSxqssDHwoxWqkyWinDipkXxGF1ZAHxxlpplxMMB5
G"YcmH5gcns8qTahuc32VfOYhzUbyOsHIuhrYdEP2cldgRIDv0eXV9K3LE5euGe1(P7iT3k6
G"V81H3ZgecJ01giS(dPstbMDqj7ReYR6JsQ2G5sCvA)sRrxLNo8GHuQY3x3bWUIEYlSbU(u
G"HYYcpfx3EpnnceSj6JbXACVnXwKYE6S57Eu2jpkF3JqCyIOMa441PPw1iZ7x9iZruR87f6
G"MrSrMpknYC9gk7PJbSJgX5GKvcNnoKEfc8leXRqS8gkuPQLPkSYm9ujXWNFdUcukhkg1pq
G"kKYzPfGkTkeMFJPGtjAv5ChzS6ehTYO(sXA3iUPUug7IhVNmjjLulb4Jf83QJ3lCEcqVPr
G"cMfFb1QmxfcnHcZmI0fRYFKQsQjn2sHzjHGuL9OpirhA1Pnf9KYkXJvuq1o90ZpKWXVhuQ
G"vqgEFXxk(lbkF4jgJtfyu6xrup0SZWMDXbmyMDlcESoUROEQCZJ(MV7XOM)jjmLZHYALNB
G"vppUWVUQKWxPCIs)61LK(uysq8Vrowq5eZdsqGesXqKMpIefs7Jj3HPx)Qy1LIrN6RTrhn
G"9yRYS7aB4Dig13neXQOessVKgzD3WHBVbXjbBPXAskfvzLsqOrBNgzXFGUboq(G)d1jWA3
G"zLVh4)3d8)TrG)VYbEN6kYFBe2)Rwu)XDkSz7(8RucInBUUSNE(AZE6gSD7VsCFZ9p1VB(
G"UY)62hsjd37E)mwp1Flctz3Je7nJA2mIjxQrawSqYYfkL)SQKhQwVCbklIt5fEZGx5MovJ
G"LnViTiY2oHBKeBFNQYap62piT3tNrGxf31ge6vcznK2xuJIAcKbN0GCDSHg2lHrp6AzztN
G"N9h(HCiA9zfvgFi1g9NNmd31sPgrabCC(k2luv5BhMkLX2S2Q)SH3XZGRPUsqKWLxL9PFW
G"EQTLAeCR0rgyM)HDkQIrnrfdUH(yelMZofmSnbkIIPLutrl1OPomDYlwBGAsc001tDNyBr
G"zJbZS8G1PHg5a37mhE0WgAAmDk9KcaTXZmGH9YV9Sf14C1kQFE(mpO9etZPwWNN498XemO
G"17N7F)k0oQQ0XAb7XPFqRNHolQOiLYDmAu)DfuEdvj19I)plk6hXXISz8pFvYWxM)hHtQf
G"qXlqcQqJko6bij3nKVA8GZCpWGFErSmzhVRF6NqLaoRjJdwW4a2U6YZY0PLRfWrsU(tGNk
G"PqzFEq(YBvl15PYfL9Jmprrbfnm2G51RMpYO)ekhwjrLlOr8OWZC2HHmP2JRZ1cNNozqqk
G"tXV)UkhwIubxZoFNXr(PCaH5MvxWzHGigsrWFg2j8ZJxupZ1qiRXbvPwOrMOtzNF3AI94C
G"CGuUGdzir41gZM8i0zg0EU9pigOxlas(XerLG9kL)aiDodMHJdHFXAjEsoA1hURNENU0jt
G"707x0UNoHkkyg7lyQYNStALHvflDwsEnwe3g5bVhjWt(6e(MVsE8ks)MNXuwB(aqHQmYS9
G"hKnd)0KG8qYdKPmd9igSqm3lDugZPSsK8TUyrG(ls6CjirkHUyafE8UdfXEBpIvQTotOvm
G"djA1uL5JUUSrUpODyqra5cUN3K8L3EOM2NBmuJaBj6HbPg7iIuvInRY6)1K6(sS7zYEAWt
G"JHG5zLvjEynBXbKm1fu)2y5BkNfK4SqRztUIDz50PVAjOegbWgUbTQr23uC7H291HPez15
G"pgS(V9yb6O))vfjCANcAsjO)QUG2WH9hYoayTNB)O3ehBkOAUUoUIKgH2gT6m8iEZlijRz
G"49s(g1aS0dixr5qPvt7x7O7F0SjSxms(HyWmuB0D3QrfnSUwqvSHeXof30CXrZhkAVG1Cj
G"Coq6M8NRl9SsfrNz0NBmG3wq6ZXFKu3s02K8vjqjuDV33Z4I41bIWEpNuxDS(kcWZJhPl4
G"9q9cyXFGH)85jCTFHcAlKCbDLlwdhZy5uylz(6IKzNGUMu3ocpYMosnDMur9qXL0ZeXUYM
G"NLiBgXNA8JID805MUtveY)xlhLBBEH3IeuEWYX4)hMLXJ3hb99cb9JYhrS)usA5H(ucSUX
G"LrVmaHhEg5saKYa0)QSLbbzwZpigMaA73QHd7ghew3M41ZGPvxZnPGBlCjBMMt4J1EtR13
G"hxi7GTXUoQVe3sj6WF)Ylj8dWvrhuYrExnnsI1vW3G417qmMqEK)ZBVk2)TQiY1MStB(Dw
G"bVTgmZfuWqVHkxc4IzB3PRw2m9hWUXhyh76o9Am8Espa(rbSCJBKnQOsxVM65qYFoMDFwO
G"3Yj8(3yzoXJUSc57XsDLIbiVqIOH0cHecdb8sS9PqrHHWcyDFiG2SB)rAbeFTTaLVoprLR
G"tShN6exjFNX24RFMVhomLiVXxe)U7AB3CUTFUCojfpCrkpSRM9HCkXPKsar8TdETpy2s2M
G"s3WBEg)ii(ZDAPFduVCmOx7DC(vY5hEwN2Rn7mX7goQlBP1ggP9j)mta(jKv3AMhc67GRa
G"wt8prx0i3Lsyl)wUHjQGspbyDneO4s4twShdQvucPYbAA)s()2nvpRzHG6rA4JGpEva8Yh
G"9j2NaE9sPN9pndq4d1eWs3Ru3N8senDc3vFU9X5zZ0SF3(dPPLMNLB6Ui5NK7MOx(j2JHG
G"DyLqQpwc)KZV18jwK3gwQFI(3Pp4oD6umQjn3c9a(gqwvAFKrz6LuKE74cslmBVGo7CwzO
G"tO6NJfDrTy3uoQ1h5RtGU6d7C7r5hY(zKobTd6JzFNEwOkqTvJnQKXd)iHNgF0)iBMXcVT
G"8jG8NErn2WQT(MJ)9Zg13pBu)16Sr9h3rsAV(pVG)sTA0Dyi8BZ41OxvY9IK8uRSzK1VXX
G"W2AdCmPMgRUd1kY3Q4vFnxfU0i0)la1sdqafai*iaG6eOZgqoreSKq,gb+k,i
G"vrbrutf5crpn0CnXKZqHakk)0lkXCvO8mZjhfsUOutSKuviZsuVyfC2n3viTmZjvfkTG8Z
G"tHIljXIkjZ8sxpfCk1KtS0ItvH8ttbFYm3mlj1uui4csm5u5LlpviLmtrH8YVefkOO8llZ
G"usvbhtjLmljZ8ZlXCuWT8ZReWMxXkKFrkKs(jd0kco)IkQs9uWRslUefaAZPOqjzKQcjNF
G"kanlGQXTmlkv1tnxG2VcjMxkkKE(kKwr5Nli1uuQ6Xlx8YvWLKAzPQGlPMB(8YLrwAKjke
G"mqxyXaDSUueq5DRe9cpXkZlvD8mpfmXmlm0mE5sdJm0sDnXeZ11ulm0anvqbfSrxiafI0)
G"qdsb)80zVD1hE5caqTuacqbauaG*G*igqoB0CpgFTzt+RAe*S/+b*i*
G"/eLqg9KtunLlcf0uqTuacqbauaG*G*qcAoB4itIgQXm+wJe*O/+
G"b*i,pob*y0torvre5IqbnfulfGau*fai*iaG6eOZgqoreSKq,gb+k-
G",q+c+qFG+svuqe1urUq0tdb1sfy.daW*Kk+GRH."
N=8813:K=255:IF LEN(C$)<>11751 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=20 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

$$
... Answers: $1, Short: $5, Correct: $25, dumb looks are still free.

--- WM v3.01/93-0966
 * Origin: 1:114/289 POWER SURGE - Phoenix, Arizona 602/548-
9020  (1:114/289.0)
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