Category : BASIC Source Code
Archive   : QBFAQR01.ZIP
Filename : TXTCUR.BAS
' From: Rich Geldreich
' To: All
' Subj: Text mode cursor routines
'The following 3 messages contain a smooth, pixel by pixel text mode
'cursor driver(just like Norton's).
'Just run this. If the checksum is correct, then unLZH the resulting
'CSRDEMO.LZH file and look at QLBLIB.TXT for more info.
DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"csrdemo.lzh"
T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
G"KGzlSHgmTmcaaaWiaaaaf1h9yasalm0usrurn9Klnf0s4fstaaWqtjfrf10tUiuqt1Gcd"
G"nLucf0uZ4Iqbnvdk00tv5IqbnvdkmsgTWgA10sEbaaa2gaaaeSM8JbibOWqtjvqt1Klpj"
G"KsJLwtaaqaAj2MvtR4FNCpLriSTobobd5zvPIOZdJ1DhxTX2s9kIa1Qbfuoh3yVwsnJl5"
G")4AcfcocWVcmg8sZg4rzuicpiXFBIfbIBxiP(EDYPqzHmK)BTb0JzRP(SZwIAtTVgidGa"
G"(VA1AxLzz16Sx9Uw6QASAT7oB8vHYrQYKVgfZWRDL)NVEyT3ncIy91jpd4fg4EBxqjIAw"
G"ywIjjVxCD8DIs46aQ3bxOqjSwvIoWb0GcqKoqCDGy0xoRi9ZFmFa64a0ZPJaqNwtH6ZAD"
G"j1CN1ztadeHPxbaGFUyiDefAEZ8dixZrH0gRpuSOmnPD(LZCc(bGB0dSdJV)EdqJJayMF"
G"SGoZylkHbI(43(9)R9TAUHk4(()09)1)gOOn8a3W4BT(gPSPlrl7K4PDL0Kp1hKZBGep5"
G"bkErdEzQhGiFpqecEqeK0LdHhObsMtcIWuniQrkd4IhwytuFdhwiqXMj4mEybDItzPi3L"
G"4Me3MWwHylTdoSGG419uMUvnBFtWcYnTWgA10Ykfaaa8jbaa0TE0JbibCqtpvLlcf0uDZ"
G"wtaaabVS2UrBA3R(SeE(F1WdLnbqGTzvMs4HGXA1cyeDJfBJh2FJJCTEFpD7mYVF8h7)j"
G"aduIKj12vflP3na)mSyPs4BY24jFwV5H3BWAJMwUBVST9UxEy4pW(t(XmoV948cVwomKZ"
G"soW0nhd0GICEupveHKb0kWmqMNeeyWKOIGtiG4ZCjtz)Gmvnu8n3fw4bjnoukC1cbgSBT"
G"dz5bnUisnLMjiq(9qkKZR0qO4rOQqsTGC08hQjHx8PmcURLc8(dFky1E7Xgww3jCPtbNg"
G"OqtUwNlUH76NHV)fJujiywKccjZdQwO)uebK120SiBIQHieHtyrusosgQrV0vkQm2JB8H"
G"40DBymmrqukBffbbCZTZhn8yFi19BIJL)kyxbkqvWykjt26tqrlQdYfZB3KCfvGIOIiBq"
G"frzGPaDl8eNKvqHCOABa2BokasNhWbOCJhKfcaaN2RwrkJ3IDybqoHRIGeLCoR6vO)maL"
G"dZ(ikNoPwSj(aTgaIUGfEQQgz8uevljZLmzk8IrJ9mjbrjGJL6yA(DeoXWnTy5jlPqOt0"
G"ujcuPIKU2DJQRwfqaKIkONJTiaqcybjvIfusuRZiUGO0khEdcK5gLaOCRN6KBEYk344bw"
G"F23cT6S6xG(jJLd07x1HuYgKuzxWyOxuUOLkLUKicSPswbWWLScAjq80k2ePdEkct4IJm"
G"w2oP6Kajnw2rN)Uo7U7LDh8HteUExh(U4Aopp5ZdIk3bqOvgfgmbj(vNn39X(7)vdfsoF"
G"lAyoAUo3OBw9Jxba8EPC3OXJ)UXZ9Rg)7NnzTBSs6f7OTB8JkPd0XUX3vb8Bj5TMdBLo1"
G"JKZZTLh)EOGnLN7MDhhKlUPxQSNK5w3luVHRc(hV(G2)FtkouB6ylvBWi6iMw3DDa6qi("
G"ei)t0Z79zEwVJn3i9mKRJghvPSmARuwNC5VtD(iAJISQ6jhCZjEm8JxSt2nbdyED7ClNN"
G"jHrYXuOSsWaoOAUfN1ONDS7niIsW6HI7mZSFgQYT39ZrK7HFZJpxELmzDcw)IjpLWv74g"
G"HIoxbeyu2epNYz0UmytzM5tTpIk7rP6mlqoOalW0eWSn5qkczUol4EouY7JJgLsdLv6bt"
G"MlNPG1sup68Xo0sNcRnPvfXP3i2g89HJWUhTf(5zGLuISzjt8EuFs52hSAg0Pbw1NNCqX"
G"45GjK7BWKC0eOZ5)PXzdwwK5DaWZ7MQPePzmBLmhR4fVJMz))BA8hqjNUVN9x6DEbaQ)8"
G"5NpRTP94osZKZM2VRMw5X2AwLoi22ETOxiZVtDcCVi2VupBUGfd5L20RMim2RZ5gF1CdB"
G"oeRH)HzhIKI6(A1GU2FNgXzgXbf7F(8OsP2Wkn5uFQ2xV79H5hMbTot9BsybtPU4TPmPc"
G"qnj5rcLCdT(lSnMnkNq)kJ6nh3BhP5YtLP10k(Z0Ke1DLHPYd(ilaX9k0f0VrlA58cj4j"
G"gh5iqW7kACf1RbbgK(AU8edFPWmmd0ImYZ7X6aytZMH5HQwJTgvjurlpKURpCU89NyNnF"
G"qgQLCWgvVmkBZeQi(8AGNdFmR1QVZVcZ)U5AbFTFV0jB8eGUMjIj0u)K2(XmZ)W)UD1Cq"
G"v0OTWjp43R93IvGCMt2i87Lq858fkd2eyBCPtb7U6Pje8AH8dTiu9iaucIEf)h3GWhJOZ"
G"pWjaiGdwLwtnF)IAinIM5qBTlAmf9PKr)URNN3D7WQEUx7TNAr9wlrt)G5IoDOUhLDr)9"
G"xW4hOZRmYs61zdFxMI928jGttIAjBeQ(397I9aCTF0W7iX0cBOvtluxaaaGyeaaaDWipg"
G"GeGcdnLubnvtUe0unrTInbaae09CBhTTEAkEXNY59NVK2cTL(TTKsBziILvjLgZsj5ceq"
G"Q6fhX94LVfFxF3oKqF53pNJ5Ggbf7sebUblTa(cHSsVa8(b21bTTz73A1()ExvQQz(c2d"
G"pCx)b0yVGArn6WwaLsMKf5YiibKqWc25naq0m3HY37cVH5iM6m(4tkIUmwD8(DE6b7dBm"
G"kJPt4oyuf54TRJpO1)WjKzAeP0seMpaIltqWSHH47bgvgpuIDgcpfeRyRorbfrBacjdr)"
G"4CUbbRaEi5QAbBormsVGkeCWIWmLnRI9DTQuTUKGSmQyRk195qQe(HWtcqm5w4bdNGvNw"
G"ZMrirc(HI18QmLp45qkmp5reQxeaWs8zw1WcAaPtXycQeiRKn1eR7REnt2HrUejpQ5Sdq"
G"waXmorrtbfLv4XbGwAvunlWuEw12k(1VEmOYTDoEkPU42RoGle(DPhJQQWZvxxXV(1oGK"
G"tGI46CzKaMzNajvjkelPrqGPw4MQ5OK6Skj9bxshkUdcrfETRTmzJOW3bm3moTmZ1qPHY"
G"UksAASPI)aNxqRh)06o07y2FB(6nvd8CSXH2K(IJLj0Z8jZ0hlSJW9PJWsQEcrnCPKU5s"
G"ddtvoi0L6wyxIB7E2fcggcB57j5InA6z4sGD26aSi47Q1dOT4(GUGFM)zqguCSnMkJQhb"
G"3qwe31d9KL4AwINrzz75auZA9lpDdKyp7ChCLLecWI1iIfkZf5XfPrd98GbhSEfDklI7r"
G"kJwzI5so2iAgcFKrjKUhX985i9fDgFnKlK56bhVmxsWgE0R5lAw1SFVR1TaTXt1z3Op2n"
G"F7eEmeDZ6j0Xwv6cwcoF8xlGsNPiqVbjW0XiZyLaLew1KTERFqkiFYJc5gnc2WyrLn2ve"
G"AM2JevrjREEL3n0OtIl1LdYGCyslcDvUrb)1s4cuB5BFYzWQIM(O9X(jfKySYGQhumr15"
G"mu7dIxen2eQV16njdqlk2l7hku8RTFF)s2j4npdcw8ZYRrPb)whNJUQLy7LUiiEz)qVox"
G"3(WnAxkdikduyxUDbxXCUtoYhtioEYO3iTa3tqf0SCv4Lfr1j3w60OoyCLuJhzjBdNy4q"
G"gGb0s9)8YafcrPRwuMxmp9vB7dgAMJ4I6OHCtOymjEY1Cfy6sKe4kl9YWhjj85Mbk7Krj"
G"rLkIXK(yNCCcVm1MVlDXkrqJzTNUEbI84DWaMPqwktQIenLlp48CAkqFDRW2O3qdqEX7W"
G"gvKYhZ2wcj2ucWKsuCWfDi(32nBSrx(UnJHntdfnkaTCRm9ilj2gt3PnTfHoIzjcTLs0G"
G"0yUU7oHnVCZ0VvS92blO9))3ud3MXGpEVfZxl3ZEpBd72KEt4CFhzD5aR83j8uK1kIzC1"
G"OWfPSZWrBia3Fvj43Ivn8SZ2udSzOIB(SlGHDW7L8YFJabUG0vdU0jHtMHTHRlIyIdbnP"
G"n2HAeHgPGgX9XQmrbuwh6OTSLX8bdXpYq1kzc1kKJOzjKU5tGPTgKqNXlijm6HevfAlbt"
G"DruYmkI9tmgY8JqQfaEGxEbYaHwnKgXpQpWmgG(WB6xAqQejn)rJ5BUtcUadVtE(SHYW8"
G"kSA2djjBeqUA6vqtJjSSQWalvjS2)rTyDyWs(yISEUcS2aITFm7Z(WNBzhtBDXXeVItAY"
G"rFvINuPTgdAp(ufV)H5yjzmd6UCFxZc)l8NkJ5uMBwptElXVrJrsiw1Fh4SK76iBdFVeY"
G"A(12hBumDvkMosxyx9PMOwx2PisjJy3H6Nq9FmTObCudg)gyhABMQPxkp21EAqQ8mnbmn"
G"5FXB7UW3MR6VjAR5No)BhFVTQp1h63xTu2HyJbcPNL1nqJS5o)JCT6CI1(i)gvvet46F6"
G"6gfB4Q5nqDJ8fYua3AsNsFs05)2ne0GjDVQs6hFYRcfBW1Fu5574EWA7F6ZbhFPl955)r"
G"Eu(6ulxGkVxHfFB3lBri3B1mOp8CuKjJ)mwdoJJ)oz8gCoNdoz8gCo33zqXyOZnF0zS)D"
G"hZVtZVfhlzRanIyTWgA10Y6baaaqnaaaO9E0JbibOqumjetjjKluHfv4UutaaqaTp2LXs"
G"SOyB)sFcpWfjzZqmeaW5CEmsE4ELtWJXWc2(FRs3(3E3T2ZXNC)BpHJecHi)TdrtBN6lo"
G"3d(53BGMdU5QR5zE(T5(0Z3((REKxAdG(F8DW6CqS6uF7Th1)h(Omo6AE2kMYUMtvXgpY"
G"yGEr4xTftakbG77MyUUa2G4kM1Ba52ieLwTG1Q(ZSoqC8GEga4jBEyLpBsDPc0G)jbGda"
G"xrVRwzDbWObbPF99T7ayelRZ4hdnk7IlZ7ce4tKRG16NUPJO6dMEj6xhQbKDnsjofh6Iw"
G"iM3FKsAwCG(BVOhPN(vmDMUv))oWNPK(PXD677uXEP6DkD5DAdBQc7W(HJNTQnV7oMkdQ"
G"((Ej5gO)ViaDek52)Kind6vfs1o8W)FM(0Rklfq)5H(3WFmn(fvZfDEJHWGOwidOUI4F("
G"U02fdOKMp)MbnFqzWTmwj3zV81kZrzW6BKSiBgnndCJbfTyW4wTDunWiiB9Hc0h3brANj"
G"tHYwKGOijsBdydQqFSKRjAsAhlFjmFZ5E64O47bBQruePttxGxSKVEZu5PnbvkWHqPi3e"
G"SxlDiIKfsyXzqRhdULlPI8lKwGxAXk)mYdOn0gSGXswaDf8c7ctRM3WuOnNvoDZRwrkZC"
G"kNgyZDH2TjiXDYS6qO3sRIZ3zyssOTWgA10ceeaaajPaaauuF0JbibSWqtjfrf10tUiuq"
G"tHZrnbaad44ABhRPDFZ5s4Z)HvKaKnoqn5cT6YUInGT9gy(gjULV(Sb4A0OVtWh5MX)4V"
G"7dycdLKTyBwVnCETGBDnA04R)3B9x)Mwm8e5gBSvwS)40flF3rGAEr9hGC8bLYYn8(D6I"
G"FQLG5ZAqsMYK5jywZielbGEoMG1XrnkF4ZeiVIyswluvNavFbQE3pN6i0miGu0eephrak"
G"iDigOvAraimj0sIaC(LNzefkbWIVhsfrLoxEbceHgjuyROHo2DPmU(lz3NaP8AcsLtyAg"
G"f8j06uLwjs6Gr(T)WmEywUjEWqV)wZMd7U5AjuEciydlyohmoCpFc11k)IQ0PPt90Clj)"
G"4iEtLrTZZn6yDalMTjVXrVEyqQIW7rgHGexEhGNMhppt347lyUdTkbn4DvViM7tICvOGT"
G"9IIfSN0vQeVSNDBSob6dUhm8QOJKg9uh9OczoLMVaLVibpw1GI1lK(HonQZEXVK7R1Run"
G"Bqb3wMbCW12aWS4WfWE4pLPTVB9zSwMfX)WARkTv9LAVKErqFvU6UzzXnLi27sCZQxPOS"
G"9uvP2l)i3BTRTtwwKFzEw8NG)4(Xv)NI1gXU(hH9w5ALknI5xQ)I1g58kj1DBK1q0f655"
G"U3RhoZrPmq7m31l0YoAcv3afdepLcepkbUjU1rXTBC79iC)NvO)XR(oynO7F5Q1TpH0z("
G"lNX)WlkPPDPYUFuqA8RN0uKO7gji6H3xfnveubiVctd6wplF6d2bt3BwasAyR1rxorXI2"
G"zs(GSshiSEVJnhamnoB(EWs3uhKN9aKBCFiKA(4AQtysEGW1ogP6KemA0VdKcHw0BjEJk"
G"lAT5dSM1ZPuAFOJ4hmJd8co9RthGZg2LZSqaWVaOZh4EVcGzJ5Gpsqi3LeGUWmaB85D3P"
G"Wg2JQLjt0VR7ih6TInRd3eJnAtn61ltJPCvSNicwhZmBOyGwtFN0ySADfGAOVfy(q4sei"
G"ZuLjUMvZZ0KKSNLr9ynEIHso6mmtJHyPZBv1APAqhXPU46ciChuOA9kcrZwniRJgj4wf1"
G"NzpmclJAJYu1c39KO5hVrC9HF0kus(hIAV5tTz)Tg8UASzzMm6CSNj2vp3I4QlYxSuR9z"
G"PuXs3sameqc)49H8CdpuFCO4uifl4DcSYY(PVunX2ozXw4)JhK4WghrrCQ(R0ltALs3Zk"
G"pxYaBS8Kf0mldY3RBu(kjLyuW4QwygvJILRJd6uKrG6Y0MJcI6K1A92gyx2y2MmC1iwV0"
G"TvAmmzZzXfyMADEOKQQ)YZaO19gAvSZZvDSZ91OKro)nQ3wmy6dMSrktPdgTz(ZX16yPZ"
G"H)qAH3MY48KxX9BQkXFUAbgnvQoAbr9o4BKG3ipENHY92ntMbB2pg6phfDwlALguQRBWm"
G")t3ULZpctJKigcejv2cBOvtlMjaaaKKbaaap6rpgGeWcnf0sfn0us5IqbnvgD0eaaiqoQ"
G"15DuTD6FRZd)fnSSQ5YpO3N2BZ1S5qKFsEnRAanPGl2(gltREaZY(9HV49w0Gay4bXUxU"
G"bCJBhxJM2eozTEAR)npUe21cuKoRlZ)YrIBKYODbdtPqueKuLggy0NOzcQQqeYEsAJizz"
G"JcNG4jmyVjabbntGSoMEjbfeAUhXOcJuKmuiRNSTnKkvK6MtimoebKZhtkwNOHqs9qLWa"
G"ZVgsIgzT1K(JAyJ0OAu63p6ujwNS3C5opAyU(VkRSIR(AMxSxglZVDEDbRAs6xIO9XNO7"
G"FfSrS(7s6oAtypsMqlTRjPesHVHCImZdrxLhTvDuoSsrSdovzzCoOTuijQiRZmXqPgXUX"
G"4N9I(REr1DuHclywzjV4yus1t4PQMJnQl7kwetkUbrL)YrgsSquH9N(89a7NquubnBcFA"
G"l0PdcQPnPblKsawrt3dNcpz2rxgd2zoUZY(wflufO3moMlre)5XBqTdXAe6r0gGBqTdXA"
G"e6r0gGBqTdXAe6r0gGBqTdXBb9rTz0i)q8g6dgNEVJL(imUzoTNU90pcDDgD2a(yKvVuV"
G"UaJm4kVDW(Fhf2D)rQCqudA06dibFFq9VgRUoRNTXAGRAnzQf)BXSmMgd2Chm7)5)zV9n"
G"ywBotF3(67VNCx4dMW)WEbWcegW6)Hvc(UqIVstingcFSst6JCSL7Fslwh5pjoFV26T(y"
G"QD3IRZ6gzun(ZfleOqkVKqy)yFBKEBghqRm64l1o6C4pqvXC(h5fFxIycoPGWG9Xdr(dg"
G"pyEBohWQWPkoFXzXMeUSjjMGW9Swi8BpdjAZlHHIdhSyO2tBF87L1vfmKqAlSHwnTq8ea"
G"aqn(aaaUPj)yasalm0usjuqtnJlcf0up5rtaaqd3WxN216TBm762t2333Ibj6ocsRus2s"
G"DA8MKiBELMjj)jD2PCOH)KIJiIq0aauG0No(J)77n8aaGsPyc1pQ7XZWIMw08cYzEtlCP"
G"vPZ9Y15w5U3bRrA72zV)pVFp66BBu3rceh14fvkknZfuHijEZmaLqoI5mgTU6j2HLSULr"
G"Hm47JRlH)w4h)PWnS4MLVBir0T7GA0JI7XGkV8r7mtVJIC9OrZ2SR3h)JifJrRcg3gPYm"
G"Mg7tTFmIwtrAaRO8OwIivyVgDhqoKtYvSbIbEpPUyCWWHUIeSdI1k)imuaWNlOh0Qd(xJ"
G"tIGWSJ3cUZmIp5XY1Alx2EAePHxSxfkiYXgCgSVw2aOh8aaZe(7HJnIfZoSebrThV1CZJ"
G"kstyXddtk2jd3LkF0q(JxcNZyVbZLaYd0b9cY2ayPKxqlcdESdzGqoaihKgohMvENwC)t"
G"84MN8WA6rMHSIIteR5M3n28YwWWDLNn7wbzcx4k3NBViL3(Y2WgM(r5peKJe0l8WlECEI"
G"dU4sjlrmceSyF0pfT(MapPoWxES7orsieVVN(L6JmvHdtaCJXukbJXnfiSdUWqcGGbKGm"
G"V1eYkipfmgG)eFeDGp1iePPa(DazMwOdRqL(t9xAre(vXpzecpDlslztBnbiG(X(ypeBI"
G"fXvm2cWf8qWqMzsRlFC)B8C6SJaXeGTqP1c7IqBrX(x6JUyXk4s6mghq)m60WuuwYSjGJ"
G"8hvPYtHxd2tIrkeHSc8LO3Xm)qyD8CNl9))bvXP(CRsJynYLnim1za5GIaiblWMtKxh5c"
G"Fe2b2J51HcaFl2cYtholAZ7zxRJSYxbpMBU5U7PFKWyU3U736f6rSq92coyjxjFdpCulA"
G"bnVCF6LNih)jqiqSQ19(e7sjFU6JJ)leSgnqVxhoJmBSp9mc3H5hgb4v32mPfa2isjXMg"
G"AuXviX1yg5juMs0rqisa2E0mHydcowAHiun89lZqhqD6ii(lMRaz1O62ZK6cgw6Qug7nu"
G"aoaYKqqjBjIWvGr1tqZAvjT3dxDyOLsyj(zw1FMVSN3exMSw7IOh5oXfyn)R064iuxSo)"
G"XwRhjt5qHeOmGvrvJY8aNwGynhbetYIjda8i4XLEPOJOJ)syiuV6qK52J2xigbdtrFvd2"
G"t3mkZxXkDzQSAR3fqBmkxK18c4f69PFXabyHhxTSeJmQqEQpaSebEdpSa)SPM5nhHPUbq"
G"Var83wjcddBvOPbOqFkmfC7wtvn7UsySOUHEBCZAB0aorrjSAzprVynEdBBSOOPT1bXBG"
G"EWSXbReIbcP6vhCeL7HlLE(FTvc2WihfB(qLd6Aj1Zpp9EruyxPS6ANutOXPSjOii0Yfq"
G"3innnObmK9rrTcIJ6onOinAwHwhyMtAJMCaOiQ2Lpg5CzszUwQbMXDGUvjlhqEs1q4DjF"
G"6MfWfLbiTzPmxyvt24kQbITnUlPSPeCeHg6rTtfYDNRUu3st9PjevAyN3znbJrSBq3Lwb"
G"Ty1qpYnu(rpggafh6FrKDUKk4rhC3QRIHDRPI5cKlRZrJvIvheNEoushzoCqJKInIxki9"
G"eXxy14wdCLgPjauvB6ceSNz3QiU(RPoJqcdmOc(EUac2EfWDXbbl6bfbHrc2eQ7gJRNAf"
G"65fgfp9FbjMKTb16tlaO6jy6amfEncHUduQDTyqlqE0wQGrZZek4zTqeQfNRAy8mPCtoG"
G"e4OXgC)i2081cUXkMXNmj1fT43dmfvql3CABliSS7E6IdUVWLdZNCLXi5xGm3GAJaCgEI"
G"X3E7hk4RNJqGaSWiOFfVi(vThFkflw2Q(AzKs8rbmajbAQ9Km94zhOWw00n4YqAQkx9CT"
G"Gs)BEiC3MdDuftRzGQGzrhj40jZrlXutw9tZ3(l3dDIk6qjg4I(yYdx4XGy4gcb70KggK"
G"3EEG1axyXkEnNGoAvFXdLGqAwgAJOo4MfxzqjAlMCbryZaw0TWH(mG9XOyEtrXsTViRKn"
G"e1XIpB)kprFgD9XXn5LFoVo2WRV)sxEkuHenYokNuaa(FE22QBTZXG8aurLukeqPchjvq"
G"SWDSUfRa2DM4oiG8i20Y5DU3ZfhfRjh7uYBq8eHKplPlr8nZNGeZOFggZ3yJGA00iZJET"
G"Lh28CG1Jk5Nf7Q3Q2DevG1cmpWgtoOKJBTap2HWCIJ(57MxeusYEORnTIhZgODx0KH8JX"
G"qm5Zohlmf5YuGRJCP0G8Ov0nBcgo0KhcRWYv40)tUDXOdN0jQ1etMsoRFUglkbsh(egZ3"
G"f1Ip3g(ZdMHV)yQbRC7(0R4yC5uIj1gzN5CsWih2qscuLKH41tV9riaBSCEuca71i00fD"
G"SuZ5UlaH15sM28t(11Fsabm5p7mfuAww5NaaYrOZmNWc3aVN5OZplWbFxfbMGSQImHUod"
G"IlhlbLZWo0LNNb3qeaLyoMlkpCXUdAQ4U4phIqhSSH)qrb4iAHXme2Geq)qKNZg)T)CSK"
G"ZFo4)QC0p3RTPmUaTtUc4wOXFmW4EiUnj7Ov(1H(5m6sb)4KK0x0gN47k9bc0HkB)pPIP"
G")9uu8QBXlzTF4Q3syPDZ8HAameBx(iiwj4iuj40OZmFDIQjqQljqRmjqSmj8Dd866MxV5"
G"mFUcEw4Wc8A9b9V1Jhou)8E2WGcu1RkH74KxGPvKBFCC4b7EqxqfbIEpDZTphcbV7JFhf"
G"8bLzmWugHa7v9CPobPIS)KChTLo55MKRqA(YE0oPwbEbtr4FX)G)9yaiXj)8I8oTRH3WU"
G"3eT10QBxVzTG4aJAyhjRgVvDJGrimmjm26ArNgzRbFIuz7tBoO74MqeRMkVqIex6tEDdU"
G"d71njeBGCFaZv97NyK4J)lWvqYY(SZ51dVCUjFfMVWfZ9MweT4phR8nFPzT9OM89LnD(4"
G"MpBJxCVThPeBBQHn3B6cZB7rsXZN22PJS))4r5Ukl6VZp9O4XJoEEMuWEX5xj3jPyxTTI"
G"NnOVYPZzGCceqr8SZXaZoX1UfLHdcnil8qPqSR)aSlO(cRoHqBW1BjcbRIaUBqFEsqrYP"
G"fbOYwGmo23MXcamJp2xSDm)PfNeRqH1tt6wIX15cwZBUSJTl3bpmsnZKrL5XpXNkTHrqi"
G"eKKzYTVXN4uOcmU0u8cLNC95kybKlzI9n7yl2OzS0kxvyYrlncilycxOBeRvhEfM)Q2Q5"
G"42mhjAU)YEzc5S0CjDErppxTEEjRHtxsY)ABR(9OQN)tgXGl0B1OtP)zjZoOFWyMkC2ju"
G"UarLvdHor2pTGCGdubcRmze6ZPuW2itfmIxdFRIRROC25qhs1cdm4SSqUawsoPOuUd0)b"
G"AKz8RAsCekdIsSVZznVE7vt9i6l752C3A3E5ptzXbB9SVQiVC6bzDCSgrjoI9wqAOOlCB"
G"phvWFaGzEYJmknz8Vy20EZwEKX8F6XrRgBs2)7OVVRriANZE96vlQlXHY(r5J5JP(x024"
G"oRVONboHfMOiHaYnVmIcuRQgzi0UOOux(JoI)4pkRzV9K1Sr4MyvDXtYllNqviD9YYBKN"
G"CTurCM1NapNrd3efQz9A2AvANbtBrqDNvWqqSZuwptzg0qQgO7IehtSv08cYtH5YvScCk"
G"yJR9d7H3zZrdVtMUhI8k2PpeHokeTa6cLbhc8ywXh5FvGWNaEMstFf3dB(glwQoDMY(Qo"
G"AbT0qbBQ6awkabOCQYNXGuweEMbM2ipiwvazXj(QsI)REokPibIDp35EVsp)j(rjoMhjL"
G"JQhLTs4HKL25spZu4fznV(V5LVrhcX5FBH7Tgo5qoBZ74B1zV44KZ7InjBunv)hfxCp7k"
G"a9QqQN9zMo6GRhki)N1h8OE2fwzlu)ik1UDUNl7u6kb4ZEOw0xdyYSBOpnvsnNDQR)SvA"
G"22aq0Cl0aej0haEzBRxU9WMwvEtkrcBLAO(gRkEebTsPZv(7VyLcxWTtljUgT)E((1iz0"
G"Ku63uTZ7(1PrvQ8DI54OaMfPkDecCw43uY4LeMyIJcANhivA0cVqfB40V(FXJ2zDI0Fkx"
G"ZwePvucv7SsTUPo6dfnRRqZcZDSc8oc3QH80LgQkZowt7dxMT9APrsD9LHjMzASglbPHQ"
G"Hrl7PZs6YEsAOI82M10Z1TTN7SSF70mqWmwQBqnBTpQqZhbLt6qxe0(QRfGMSQyzHRvvo"
G"QLjgi6KPIvkRrLHrOdk8KaGSglXKzaUdNVkRSeq9H3)TAX2T2pz1abmxx3gwtV1t5POVX"
G"h9GTOsmxLO1eqXUP9Zf537CPpOM8DxtjeROF9oBIEIJUARQO7yuz1IoiOFhy)VQfAGpFU"
G"w5ux(HEf(MzxfvXXl9dLJD(oyxbcK)yhWOQ3kwrmvHKOoktym9nTR5fZhC9NC1OWp6BWF"
G"FlqDqOtFGWKMvIxKmKyc9Hwoh8ASwYypKrF)P)OF5FMY7sFhZCxhRuBklwc2m8PpmwY5F"
G"QhLg6wuM87GV0uy)EvlLt8ICllMDfQ8f3xXtDK8dZ5X0pkGPilWnA)gPchPUrXNXecAs0"
G"uBOwKKC9hetB2PI2IHEKBMSkqTd6bKsrKbltWP0d9JwTpgz4YCWuNb(4VKVUDSRxVIk1H"
G"GCWDlJOhG6yMj6B)nqcIW3JVfnjd09lcLHDI80Wyh)3YD2jO)M2Zv3L5DTX3s40y(qMpE"
G"Yh1JGF4At)FQ8YgiT(vX8(ugA7Yp2nZKWChz780kuOxrMaukU8)FmnXVQTYmVU)jFjVGJ"
G"ouCTQ8aO5g1OwmsFBu06bZwHqDxaS6moG7A30mFGZ3Yo3CAwJ6RYh9xFRuVS76(7)Mk0Y"
G"mnnV0ccYC4Q8uMMQhN5waFo8JZjWStbsyuihG(kvw0UOhQYcWWAwuoLMgEyD1zpyRnANv"
G"7QuEhqXImi)NG)6MwHNKB4v)TgXONUbJ53SHXayH1DtryPyb(GU8jWB5GqXD4FoHTXpIv"
G"hGrOW4ElYuELSGi4kJmg2y3LNPjxRtfDcIpf(JoRwT96nNl44iOd8oZercjdvAJnd1RRu"
G"VZHeUVqu5IiwQLO4K4)hhzSbPY1XmCoUDJyj9vad6WhSRcDRyCoDUbfyw4nitO2PEKvfU"
G"JmxoYOWS4CqAvMYuAXeKmUBsIEnsaRx7PAeQ9LEungShWByUWF4dGO6swzlKuqs7C)pA3"
G"SYZPF97k3a6yv3HznfFTsrsdLTyiiVTyRCZQQ0yL619s4NNqghwvTRI5R)Oh(KAGXgpZb"
G"bvRuwHxfnzQXasvEDUfv2PWMTG)hwnms4citd5R2kk4rYEMxxLfs2IqxQtq1MBPPBmiRP"
G"dF6GBENmvE2D45SNtcjhQcwpBwWxdI6xsxPQvBa0qz262Kj)EYEjXAtQuJmI6guSwu01A"
G"Zv3XVQBQrIe9il6NP6CHhknXYYM(roQVLrOBjQ6puRf2s2rertZ8CXRVjAGCwWD3WBMJO"
G"er3djE(XhPbQ3YlTv9B6EPpAfYaAniSs6JgEPtvor210LRwLoZ8SQFMevwyesDDJxbzDs"
G"DNPL4w3o57Q(lSFuNKKq)QYytERupIuGBGBNSrSv6FvBbq3DwfzHWXuj2wt5)SzjZ77cN"
G"IxeaQji5EdAp4mpMXLzTncx1WDLVtfxkHF7ojz)BXsHZKltHFkzwa3n5MbXahTmRvhQJH"
G"JTzTXJCO8CYqKKRt4FiMjPwlNRXnnOiRpL5SKDQSDAHJaSCImbCKNcUO1h)3nxSQ52cMT"
G"AR4cOW1wuWLzlx)U1rAsT(y701y7Q(d0SF9lr7jIoXpcVe4k8df5lXCSxbmqqFcPiqVI8"
G"mLwLExTcPJJiQPTLO1evtFQq46ITMUOJiQckWUYqGJpFTVkEgF18gYIRjy1JNagbAYFtB"
G"HJXITsbkpgyMzBTR4sILPGKwEqNltPQkjPdrzwTrsOE1n1FJGfYo3VoP9xBr9qF9TcqPC"
G"f7Ijb7SVKcekFLrCON(LQxhpUOMKZtMIQSvTLOn6zQ6J6SFFugVzLD((RBaYVeQNYG6ri"
G"p6KToAlE3GFcIrK73IATbUHFP9sL6bkyIPd17KN0PpPaiTRAWjy64qqbpQLLB7J6CqX9Q"
G"a1iugsaHR4jHYv5AosCpPA6lD4IJPF)PNB0Tt)BQRuhMTvKU(ZR6SSJu3l5x24Y6oyMLE"
G"x9yFUvmBABR9Gw)K62vVl7uOSanp2uKoP)O40Ssvi7TNx)RfvLfPDfPcrXO3fzuyz0HKy"
G"kHjeKCYxwGvs5yzlJBZJMXYqMfYQXIjEpvYx4Wou8bW4AX5bvOIkfdlLRvjJRqcvMvcG4"
G"EjKSkvjbbmfwK5llLeiI9r6SruPd6COm8PTDdLDKm3kHCQzn0TqY5Qm4b1lQXW4VS2)IU"
G"QUc)QhY)lPO(tLiFPwp1qdU0uxl690v6fDQGPgdkIAD3pumxzDDsFFntUkXD1VwgPJB1A"
G"b4uslmZoXRRp5RygR)ICqFlilzRSsz7KD5AKSDxoPI7Lo6m1G6rRs9OYTEUYyDxvCADX9"
G"P1ZsYYKDo)HA2TSBF1MKvdLU836JV33RRT294YkDBp2E3RJQJVpUxOWUo58lYmn1HRFFU"
G"2)FcX)p541n4wvYpD0mW26sNUCE5uK73B9TgNSSoE)k)EVphY)n63)3n8)vn86VCr6)Fh"
G"pTy5PY31hVd56)(IS)7MQxJ71pW8(SJeEP4vhZmZQMzMsNYrbVWiXQACO74CIQzF0(LIY"
G"QwHfCi8OKz1ptGyOgs0xtyv)csTVCgtrgJ8Z0lhajMUn5ANZf0y9x3lhleokIs8YmKjmj"
G"(BfBeDT269udYnq9DvW5XbWkT1qQYjpayO7ZAx0ZTf)ORBtLLXAcJ93ENHtoOJzj(0DvS"
G"ZcR5(tNzl3uIKK)92wL6laba"
IF LEN(C$)<>14307 THEN ?"Incomplete script file!":BEEP:END ELSE B$=" "
Ln=CSRLIN:FOR A=1 TO 10730:LOCATE Ln,1:PRINT (100&*A)\10730;"% done";
IF L=0 THEN GOSUB G:L=6:W=T\P(6-L) ELSE W=T\P(6-L)
DO WHILE L<8:GOSUB G:W=W OR T*P(L):L=L+6:LOOP:L=L-8:B$=CHR$(W AND 255)
PUT #1,,B$:NEXT:PRINT:IF C<>249 THEN ?"Bad checksum!":BEEP:END ELSE 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$+A$:END SUB
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/