BBS: Inland Empire Archive Date: 07-24-92 (19:43) Number: 140 From: RICH GELDREICH Refer#: NONE To: ALL Recvd: NO Subj: Ansi Emulator Conf: (2) Quik_Bas
Here's a newer version of my QB4.5 & PDS ANSI emulator. It is much better than my earlier program, I highly recommend you use this one if you use the older driver. DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"pansi.lzh":B$=" ":I=1 T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()" FOR A=1 TO 7258:IF L=0 THEN GOSUB G:L=6 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:? "Done.":End G:IF I>LEN(W$) THEN READ W$:I=1 T=INSTR(T$,MID$(W$,I,1))-1:I=I+1:RETURN DATA I0rlSHwnT40gaaa5sbaauXj(yasajavqonvsUiuqtP(onbaasGfFDAxS2qoRBP8P)r( DATA AiIaWuNajB6ukOaqtsKabbG0LUvDBG5HenheM2z2yi99XF8FFVBMzyaGKPzl5TvFtD3 DATA E7X2oSB7rSQRURWQ(VUF)32fRTBlx7tx(UIvOs3X3NejB(HKZhgpCZ4Y4q)Z)hNDaw2 DATA JLQnQ8gZktm)jtlwVBnEOln3y3HkzkzCD2bt5qyhLkoWJBK0Fe3(ZdYLMBou0NhkouI DATA zzBP8cK)uY7H6IzEsO60ZwMf582v5oNMDNosd5sO3pLH6vYdTS8DOQvQ3R0qT4GErHp DATA vHAwXaLGXnFpgZvJcuWZNaTpwhnLh0o6e9KQWhk)OLXa5kpUFXwVlYY49WftLOu3pQR DATA Vwa7ZdWiFurYyhmrRMial8dq73ITZgZ1k1If21sc(8oSdoXpAcx21zaRoZlkH8Hq84l DATA 5GSxJuecE9cmQV0KdEb(YjddWa(D2YNbu78anSmyCSJ75GUCEPWE0Xnz1MO9B(qTAB0 DATA AkN5r82Ri6nlIlBr4LD6QNxgsoSJH6iPXAOhy8J(CnMjedDd6sPMiy74TWdA0ShCNSG DATA 7Ky98a4W6fRTV)NePNrLL28Z74dicq37ggze8ZUymrkTRLY6ncDyFzRvsC0SVItbaX7 DATA pWEZeIkBSd2QZuUhoXaGEBW3zNT5q924ppWaHHd6oVHRYmUPwG3cLpbyR4a8N4dyZNS DATA 7emyviPqZ1R0tpPYmBB6iKTWzigdDX29LEfidgGsJQ)kWYVaoqkKlPIw76Y0TTvf69I DATA Ok8NBfcTuiCHv3lguGzKUTxL7JF2ada(BH8WTO3qQzaZpOWeITdgPrUDYCVuzSxyCqw DATA 6mlc(Q1AJaIF4h6rd(mmwrjnbGAad3Ie0aloCYgpdyVwRsp3a4DAGa72(tyvK(kgdeg DATA Okuzagda5sle2aS8kDeZyVdm8MoV1uDc5uyPK(dDrKIyeloO8oGtVyxqGwhwET69Rbe DATA YthnYFI1bLJKSuG3Zbsb52PNgIFc)ZyFmwgiYQYFuZ495qWoC5tFUUc9dR54hBjaRi7 DATA IrdNIqX1knhHhOhaw2HlK4lyT8IHqBYe3Tcb(zpfEelcayxDLi6caEYymAOaDivd6oH DATA 8AHnrhpe86l59JxxpZqLZnjwBcyWt6YXGaINkekt5tF(Z4elbcfcXqZvwr(hnW9rAwl DATA gEzB(zKngmb4dPYwuIdqsrDZyTf6BYzYprMrhUBh(zG)2gUbGcJV7aiHPgPft413fBH DATA BQ6qMkCFSmLUWwAedFzJnaUsJeeWvUsgJ6yqiZC4dafdNMWOow1WuUvANNXXlkN0ptI DATA uSSIt32t(NeCfRkjUxA5Zb1cGU7eZmlQlftrMdWIb13F0GKQQv5k5d3Kn3tesQuZNOX DATA yKXuHOiUJqlwf4j2gepd72OrE3s8ZIwWHTR82SsjduEwR19ureZ7(nUJikofsTU5fYy DATA qM5TgjFYcJLPJqCAFnXhOHn6DIak0EhRzGtq63cQM5UjPYq0qyNs0iki1RX8NgNjHT3 DATA PZGAjCHt3SNjg9aiTH868S8pBTw24SVNP(xQyz6)W2cKhGYcOCaXuiJMgmj)rYLJ8Ys DATA Kq)04PdNOCvabGjfr8KhYKNiGsXpiaKBKK54XYKdOcHRsbXRfsIZh19zgyir4znzLZY DATA 0BAWqI)GyArcp(sDsEIkPUM3caXNVNzqCBVRvfdyuHnHbfiOnNkD3Dd6f2yG(AHqVyN DATA MNrB0CZkqgaBcAQB3aOULiSdLE0k7aSdgjWerCSYPj6D5Rl4s5gBCAeBgnugUtyOyHm DATA B2NwIxqd6UcrG0CloQr(0obvHqFyN9gr8RCfTsSpGgFOSWbMxstBBFXtjvKqw4K4f)8 DATA Lj4fo9z3udu0shK)cMdI0hwfSOLUQbDNhx5TYWro7gE7jqwSSrdsbIu(q6sR7gjvSnB DATA 4edEsnJB3X1WJz0d4qsk5enavgqyeY(ROlXP5x3ray54KTirJkQHMCecXKZgOWEPmoy DATA 0m44eeNCZ4AkdiAgsaI82S0DMuq1ZG62rluXbb3u5MSpoetrr9DoY5buzksmaAWbsfm DATA ACDgXotwq31jXKKQoSkF0b(NM2QoTmIemFI(GkcYKb6abWjhfkIezSsPLaDI7LigefO DATA 4v64u)DyfHD5ixwBBwvAE7AId3prkpuGJw2rX)K1SrfMOWoklOIOJHiqjqXsxwaS3(E DATA HyQAomANQ6GKD5)OYncUaatheMVuXm9ymrces2rGUXx0ZbrmQeaOkhFfYgsvToBtWka DATA AQN11cL3eDOJAzuRkY6ZVkDWYc)awpzJwfqJftuQL592c2BK(7jhfv8hy7SXssip726 DATA 4CAC33S4o)tvmtLXqQ4RSO4loJKATNxuHStfiqhednebKmGNhDNuGDZNteiyJcVWexj DATA TdwnaGK6bEmDogbLjpGDoACq9IaCAZTemaEkaZX6pGje8q3LAKZSBNrfEwLz0)EmwJj DATA iS6rKxobfTkYgaMbj7LJJgPzzvXy0eqPtmrJsaq1zrfc7uTwsTuIIMI5CnkKp4qiEdR DATA wo9i8T0MPBOSbAwqXifA51JoOuzR4b2yiIUQpw12uJKA)qvS3ceY9yCwkD(pbkzUM1g DATA BdCopntyGzWyrfutzwcbMbpb7ewSYfo8uPdSf2kLP03xRnWRAu2tvhfLI0ltk9lrTJh DATA WFBGYpAB39(DvRwf7)g91hKCr1Hy2kBDrW3I4501Yqv3enLRgJBYVB99J67Ugyt334g DATA euTCJMCzIBHTnpXtaK0PZddrjr)3ftIERFHiyJtbj)jQV1Y20521f5PQi6OE0Y42NCv DATA zzmDk9h)U4Mx(Q6vSRyXIc6x39kbAJ(vuuHckfEHhSxWKkO0RNLd9rYC6LpDlrTxpJJ DATA Njjo)NPYPJpDYhcRmH7ThKcjcjqtKokvDX4WWFCxE8J3iTCAbDnQScbnB2uY)PS3xKU DATA IxPVBMTSgE1o8NM9FAE6Itz9xH7V180h181h182h1WVVpdZAp(GnF8HnSWgD7EIM)2c DATA zri5zL5irDn(b1r2CgQxcC5hDHxXLUwCs6WpJ1(mo)2ZaYF8B54VExCTJwMRoxs0Whr DATA YVDPrbp6QIRxRBB4ixR6MtnlLR5K9MZFMiBg8KeC9uJcyzTz6PJe)k24IQnxx)TjgXR DATA ulN(wcpJmYYGwFQykKGAZLSJ8bOCBiWHoDU6jJN7KaiXIXKu1P0WnRCjR8C7iIHmkhC DATA xfU89vrBY1nVl6SpuchNCINHNiF(mcHAZNsdIZxsLFTHdm(G1)EHScJ0swfdVG9KWYC DATA 6p3f7JGnXtitvDcYIV0T4baFkrUYu920gtD7js1zV6Wy7zV9C3YCF1)r9BtTWAulXlw DATA DWh6w5VwLY8T4jXCa1Vb7NiZoPD9PQWwowSo0k2cDRWjQ9u5OdzfEFmeGx)QIbI9TYf DATA Vg3OnF7ovulq7u2zWj5M(4oFuXoqTedAoAY0tbmhAforIwBidxtarD0aXlL68B5pebl DATA TlFxjl0iuCMuB6dy2lv3vnvfTQIqIbnqUYUC9xV(8WlcXs8x)9k7eLks9ACdnzXLD4I DATA TTIjaXNvXW94KO)SYRE8CllJL8tDErUY9YfNwJsfspvTtLM1qc7NY7OyiPZEa1Vohe2 DATA V8BLJD1Vmh((kln3DRGM2Br0MlKY5YfAIq3pI9ionBIOxkEgwqdmwdm8lJKzvnbtWTW DATA fr0bed56NJSNVFMr5euVzY(ACn6O2JfX1ZRpJvEUt395P(J)aXNAgVeWnQBpkGkfH41 DATA fUXMdbS3YKVb3C(hHgm6VaniTMYSPS(ckFfOQiLDd)UML6ds87GhxBQuRK9UF9JJpwA DATA FnUan6LllwjpZjC6YYicUc5BKl2RmKcoXFnCWidRU)UYmGBsLKh5ahr)8ri9SY8Zny3 DATA yVZtZ1H0eqDOBm6rIsr0FinWspFSk7gj(GAtPAcw6jlWrxi7AriWElhQ0JIY2p1S)xj DATA g18Htw7yd9zsS(5nCvghXjvm1Ci6XMnI6mabgBMvgoDQXq(9gSKQ1yyF6J1GwThKtbc DATA E9yyw2uyrdVmdhlsWGoIkJE(zOed7X8O61uyQULMdQhtYYyBRIM5L3Rykho5Ow3LOcU DATA A5oXLdXvIGXm1Vpld2ZyVQmDjN(cDy1VdoZP9ro8zMOzYx0su4eMtHjDoLOtHKdAkyh DATA Urp7H9slDt9i5FiIsChrnjD07SkGShqZoD3EVLGt)YzkRfEyV7U7T8GtNF4qCviuKt) DATA uGuWZKksz5hMWVkxbSiw6o)8PPYKxzlriFrVKB(NqlSWpkU(FLPSfF0riVlY)7jImPB DATA sC6ZewmhkGka(3Pc2pSwcVQhLGOeXTQINljR1ReJ7Ps(TALNdbJYqEsZ2iuZjYr6VHC DATA k(Mssk0dVBOHpri9sHo6Su(X03y3QbrrdFbncZsTIGYEhymxLY4cZzOf0yf58l0xO9u DATA 5qF37MvOULWqjm(FtLlXV4btsgaovJ)LrAEJPeQ57ie73V32Uw(K4O4g1VaGJ6sHcaW DATA F0uH2hYuXQ1yUmXQdmCvzeTHxYirAUMELwDY6CHjfEyXbEn9Cf02B1D4G1KzVw3vP72 DATA ucKKqBRfQi61VS4vninby1Yi)byCPpmyDMdViu(RpJx(68PkoQoNN6phOPSOpp2zh2h DATA wIUuhka7Hb9vZiSLfKjGIHDOX4LcPKsNToBhs40c1Al4cf2Ffn(1M9Dha87p8FSxJBs DATA 01IxK2(pQ7bRJeZUwHwS(17lScEVnkMee9CVjd6yDHeqqizVTjfRNgeQbhP3x5wZNT0 DATA ZdNk9EfmxGJFqg90)6Mvi9SKIR03z7551Y5w5P7OgWAPjyXa4vWoI(TVm7QnXpm27iW DATA s9V9v()EILW(RfeeyWj0WZ9zcp2n5YD6OBW2EnjI01(qM2ITJ2KxrU7PzyMxSGSVTZJ DATA z)1WWRm9RqgR9XpJ2(FvvOo7go0RbRKWGwyTaJz3M(6DeLYOQ1TITVBlR4li6axEGz7 DATA B3jwkU8XdkQv9udHDEGQy3cwSG9MeEG9mbTSTdo2li4qLosHxvLYgnTgI2lv(5M1ce3 DATA O82CXK9RIgH4PNMkKh(0dU(yh3K72owWFHKjOLagSMOiR2v4RY5f(WvCYFGWCMVp7h1 DATA Bm6ciJ8ZoKoKXenl4nXGLWwJd0FJbXz3BHaIOGuvEAzH0HfysNCdAyaqUYO9IOm5ALH DATA snSGYlHqX5LParBbWESmEVCowoOOcrYFQaxciHWL6xnlROLRvvrQhikw5sG6scEppf2 DATA P8ChqjQlOiIRFvsWqQSCAacfDw)HzWe8MNPJXnnl8GHc0Cuy8Z2zdxshD(9j)IpeFFv 'continued... --- RBBSMAIL 17.2A * Origin: Computer Co-Op RBBS HST, 609-784-9404 Voorhees NJ (RBBS-PC 1:266/29)
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