Ansi Emulator

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