home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / BASIC / QBS_0103 / QBS103-9.DOC < prev    next >
Text File  |  1993-04-30  |  34KB  |  667 lines
  1. ════════════════════════════════════════════════════════════════════════════════
  2.  Area:    QuickBasic
  3.   Msg:    #8258
  4.  Date:    03-31-93 10:47 (Public) 
  5.  From:    DIRK THEURER             
  6.  To:      STAN FOY                 
  7.  Subject: Caller id                
  8. ────────────────────────────────────────────────────────────────────────────────
  9. Re: Caller ID routines
  10.  
  11. SF> Where would I find the routine 'FOSSILflush'.  Didn't
  12. SF> appear in the stuff I ended up getting.
  13.  
  14. Well, there are a number of 'routines' for FOSSIL handling that weren't 
  15. included in the code I posted. I didn't think that they were necessary for 
  16. capturing info at 1200bps (can easily be done with 'ordinary' COM routines in 
  17. QuickBASIC). Anyways, here's the FOSSILFlush:
  18.  
  19. '--------8<-------------------- snip here -------------------->8--------
  20. '
  21. SUB FOSSILFlush
  22.   '
  23.   ' flush FOSSIL transmit and receive buffers
  24.   '
  25.   ' AH = &H09    FOSSIL Function Number - purge output buffer
  26.   ' DX = Communications port number (0-3)
  27.   '
  28.   ' Note: Regs and PortNo are TYPEd & DIM SHARED in main module
  29.   '
  30.   Regs.AX = &H900
  31.   Regs.DX = PortNo
  32.   CALL Interrupt(&H14, Regs, Regs)
  33.   '
  34.   ' AH = &H0A    FOSSIL Function Number - purge input buffer
  35.   ' DX = Communications port number (0-3)
  36.   '
  37.   Regs.AX = &HA00
  38.   Regs.DX = PortNo
  39.   CALL Interrupt(&H14, Regs, Regs)
  40.  
  41. END SUB
  42. '
  43. '--------8<-------------------- snip here -------------------->8--------
  44.  
  45. Note that FOSSIL detection, initialization, and others are also 'missing' in 
  46. my original posts. I'd be more than happy to post everything I've got on 
  47. these but with a copy of Ray Gwinn's X00 (comes with a nice reference sheet 
  48. and full FOSSIL calls documentation), they can easily be reconstructed.
  49.  
  50. Dirk  
  51.  
  52.  
  53.  
  54. --- 
  55.  * Origin: RAVE * Burnaby, BC (1:153/810)
  56.  
  57.  
  58.  
  59. ════════════════════════════════════════════════════════════════════════════════
  60.  Area:    QuickBasic
  61.   Msg:    #6113
  62.  Date:    04-03-93 17:22 (Public) 
  63.  From:    MICHEL BERTLER           
  64.  To:      GEOFFREY LIU             
  65.  Subject: Basic calculator!        
  66. ────────────────────────────────────────────────────────────────────────────────
  67. Hello Geoffrey!
  68.  
  69. I've found this old but still working basic calculator with arithmetic,
  70. trig and log operation. Here it is in a Postit script:
  71. ------------------------------------------------------------------------
  72. CLS:?STRING$(50,178):DEFINT A-Z 'Created by PostIt! v5.1
  73. Y$="*+,-./":FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"RPN.ARJ
  74. T$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789()
  75. G"GP(ja4bbb*eaiaRSg5GA///+ifuo5sqsPe*qpgiee+M6Na
  76. G"Ghee*qe*SgZDdQHue+kQ+S9pqWk+c+Guq5Klcf0u+(f8en*WaTU2Mvxdj
  77. G"Z9bzC7PW(VHzBBLQayH2OKSEIY6BwaApQeUMFvJiqLQsYZVC))VhguBN2St0Dn5MgQjnCN
  78. G"hHtZuhVPpa3TrGmeXWQIZjwcw00KRPd(Z1OlSAMGbm86mhy9IVyVsAcsDvWy87Z8yPRM0G
  79. G"doaVHGTkMk5Cmf5BT6e(xS5qSF78Q7iE0EefW8efY2ri9L4giJ0YxqOwPj0yIDHqqq79Ql
  80. G"4yei9Y5eDBSxKEuIfPXCVRS5nWnIEzPkG7eFa0bYJeMDbvOFJTGylHtqG8e2VPpibrr1dI
  81. G"ogIe5mhw1qziPe7coqBjtukdI1)CMR6mDLX2gDxuD(oq(gI9S42ugLgZszZBJyO(i5Tb0p
  82. G"SWiz6KTmdMOViOip2D70xql(yJqk(Bm6XBr(6VQKUSye)C2(HFv5IwgVnF2VW4KfJolOsa
  83. G"CrJMWnPv4v(H4gdobncjDMwtBViSYE7MC3Kvd54Sj1xKM)(2ptSG(oLzyomnGSmfsWqMto
  84. G"mDGybJGzoENas8yw3W8ebsDyS8o0VrBICtH5sjwcpZBuVMMd3wAZ8H3KrFsH0hL3gW(SoE
  85. G"EXwm12h7w8I1ZEfnwrBO7uicdKbbmGEfCZ3kCVG7XzGpg4YKmh020EOQIoa2ujg6xDiTcV
  86. G"pLiJXb4tJ2efcvjdB1JYYaJGM1IQKfy)AUzD6kT9TfXYGujQTyMMc74XIkD2P925wu2wEB
  87. G"2Nxm)GO75omw8Wlv46genrr)52mpqrj4eQ9rCM5GWJw5)paTtJHKwe64PvuQ0DrQqJ7DcL
  88. G"GPkYWWK0GpPsAThDhaCHBc8nvEX0Z08RyDXYgQJDbySpgbc3ebdfuRZe8d1f6aCdDpQLIu
  89. G"4Du2Qo0YHDM4sMxDu4neW1NR2QN2QFwQSYOHg97U4ZgoYqAOkL0uc8sEalhHJnDtB6IT)V
  90. G"uPhlFCfp(Cpd4OYN39RHvYLX5HLiY1z3xOSjc7juIPsHoMHfQSAJHy)mfUhcbrLPlI4PBi
  91. G"NtAcHI5sTjcCY0w(sQVW7qDGXaFb4cNlTY8NWlrYstWRaFrJaSLxGRKufmh3lCakcx)v3s
  92. G"w4B4D4kC6tCPJeNwAFP)N4mIsChPBhPeI6EuBqVt1hNcEpHCEaEFzUCg7KP9n91O3GWr1g
  93. G"pGmAytv44gtpSRrXb9k1B8dYOLncH)639pJDQ3GBGonFgU5Xbn8wj)48n4gvxusqUXxHhp
  94. G"umhEXjKRs7bHLAk8O9v4sBHTxXrA3xuR0IL1AD0DwrYAnVAoZUjzPwmIlV7lhnaGAouKAx
  95. G"YGbh1jlv3FIWii(YPB0G3tuQt46KKS7rafDygv5rcHvxAL4rrQ56(EZpR8JKqhkB5(G6Kx
  96. G"azLuvwt6FuOP70mo4yRYL3XuHpinO0u46Ifpb0)XC4ARlBqEJUtJa3K2Q5427)72HKnOmK
  97. G"yzDGs3tkKVHXV7ls3P2q3Y(HwJ0DQouUSFi1OmM(nvQdVlRhcnKuxYQ956pk)OF)*M6*
  98. G"a"
  99. N=1208:K=255:IF LEN(C$)<>1611 THEN ?"Incomplete script!":END
  100. FOR A=1 TO N:LOCATE 1:?STRING$(50/N*A,177):IF L=0 THEN GOSUB G:L=6
  101. 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
  102. ?:IF C=234 THEN ?"Ok":END ELSE ?"Bad checksum!":END
  103. G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
  104. SUB G(A$):SHARED C$,Y$:FOR Q=1 TO 6:DO:S=INSTR(A$,CHR$(Q+41))
  105. IF S THEN A$=LEFT$(A$,S-1)+STRING$(Q+1,97)+MID$(A$,S+1)
  106. LOOP WHILE S:NEXT:C$=C$+A$:END SUB
  107. ------------------------------------------------------------------------
  108. Example: To solve 8/2 you enter:
  109.  
  110. 8 <CR>
  111. 2
  112.  
  113. (The operation must always be entered at last)
  114. The final result will reside in the first stack while the second,
  115. third and fourth are used for shifting values <cr> upward or <d>
  116. downward. So, entering 8 <cr> followed by 2 will make the display
  117. look as follows:
  118.  
  119.  
  120.  
  121.     use <CR> for enter
  122.      *   for multiplication
  123.      /   for division
  124.      Q   for square root                                0.00000000000
  125.      S   for sine                                       0.00000000000
  126.      C   for cosine                                     0.00000000000
  127.      T   for tangent                                    8.00000000000
  128.      E   for e to the x
  129.      N   for log(e) x                            2
  130.      L   for log(10) x
  131.      D   to delete entry
  132.    <Esc> to end program
  133.  
  134.  
  135. and pressing /
  136.  
  137.  
  138.           50 <=== This number appearing at the bottom/left corner
  139.                   of the screen is the scan code of any key beeing
  140.                   pressed.
  141.  
  142.     use <CR> for enter
  143.      *   for multiplication
  144.      /   for division
  145.      Q   for square root                                0.00000000000
  146.      S   for sine                                       0.00000000000
  147.      C   for cosine                                     0.00000000000
  148.      T   for tangent                                    4.00000000000
  149.      E   for e to the x                          ÷
  150.      N   for log(e) x
  151.      L   for log(10) x
  152.      D   to delete entry
  153.    <Esc> to end program
  154.  
  155.   Michel
  156.  
  157. --- GoldED
  158.  * Origin: Blainville, Quebec (1:242/130)
  159.  
  160.  
  161.  
  162. ════════════════════════════════════════════════════════════════════════════════
  163.  Area:    QuickBasic
  164.   Msg:    #13349
  165.  Date:    04-07-93 16:07 (Public) 
  166.  From:    MARK BUTLER              
  167.  To:      WAYNE VENABLES           
  168.  Subject: Memcopy                  
  169. ────────────────────────────────────────────────────────────────────────────────
  170. Once upon a time Wayne Venables uttered these sage words to All:
  171.  
  172.  WV> I really need a good memory copy routine with...
  173.  
  174.  WV>         Source Segment/Offset
  175.  WV>         Destination Segment/Offset
  176.  WV>         Number of bytes to copy
  177.  
  178.  WV>  I remember a memcopy.obj that was posted here a while ago,
  179.  WV> can anybody  repost!!!
  180.  
  181.  Coming right up! This little ASM goodie was written by Brent Ashley and 
  182.  has work extremely well for me and the QB declaration is precisely what 
  183.  you said you wanted.
  184.  
  185. ==========================8< Cut Here 8<=============================
  186.   PAGE 56,132
  187.  TITLE MemCopy.ASM - QuickBasic callable memory block copy bin file 
  188.  ;
  189.  ; MemCopy.ASM - (C)1991 by Brent Ashley
  190.  ; Copies blocks of memory quickly - to be used for screen saves. 
  191.  ;
  192.  ; QB/QBX declaration:
  193.  ;
  194.  ; DECLARE SUB MemCopy (FromSeg%, FromOfs%, ToSeg%, ToOfs%, Count%)
  195.  
  196.  .MODEL medium, BASIC
  197.  .CODE
  198.  
  199.  MemCopy PROC USES si di ds es, FromSeg:PTR WORD, FromOfs:PTR WORD, \
  200.                                ToSeg:PTR WORD, ToOfs:PTR WORD, \
  201.                                Count:PTR WORD
  202.  
  203.  ; load ds:si with source, es:di with destination
  204.  mov bx,FromOfs
  205.  mov si,[bx]
  206.  mov bx,ToSeg
  207.  mov es,[bx]
  208.  mov bx,ToOfs
  209.  mov di,[bx]
  210.  mov bx,Count
  211.  mov cx,[bx]
  212.  
  213.  ; ds last (used to access data)
  214.  mov bx,FromSeg
  215.  mov ds,[bx]
  216.  
  217.  ; do the copy
  218.  cld
  219.  rep movsb
  220.  
  221.  ret
  222.  
  223.  
  224.  MemCopy  ENDP
  225.  
  226.  END
  227. ==========================8< Cut Here 8<=============================
  228.  Now, if you don't happen to have MASM or TASM to assemble it with 
  229.  here's a little PostIt! script to recompile MEMCOPY.OBJ
  230. ==========================8< Cut Here 8<============================= 
  231.  '** Save this script to a file, edit out all of the non-QB related 
  232.  '** text and execute it in a QB environment to retrieve MEMCOPY.OBJ 
  233.  CLS:?STRING$(50,177):?"Creating:MEMCOPY.OBJ with PostIt! v2.9f" 
  234.  DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"MEMCOPY.OBJ"
  235.  T$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789()"
  236.  G"a2aal0wzTn2BWLNlHnxB)Bjlaaadnvutd9euz9fvfHfvf8frbrvqgq0rs9uvqvW
  237.  G"xuvewurarbrvqem0tevuoyEaaibaafCqamG5baGeaamGbb8aMhaasRaGahea5As
  238.  G"aae8VaDbPdaaWah0urnn0tqLfaaaGpisaaaiAard6lamaaau1ISB1vEyWIEXWI3
  239.  G"SOxk44bl6fcl(ZIEzWIpSOxo44h8ppPh8XxE1LYkaWWkkaaaqh"
  240.  N=179:K=255:IF LEN(C$)<>239 THEN ?"Incomplete script file!":BEEP:END 
  241.  FOR A=1 TO N:IF L=0 THEN GOSUB G:L=6:LOCATE 1:?STRING$((51&*A)\N,8) 
  242.  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 
  243.  ?:IF C<>22 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":END
  244.  G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN 
  245.  SUB G(A$):SHARED C$:C$=C$+LEFT$(A$,63):END SUB
  246. ==========================8< Cut Here 8<=============================
  247.  
  248.  Hope this helps :-)
  249.  
  250. ·∙■[-M-H-B-]■∙·
  251.  
  252. --- timEd/B8 * "Milhouse, we live in the age of cooties!" -Bart Simpson
  253.  * Origin:  MotherShip Portholes, Portland OR  (1:105/330.5)
  254.  
  255.  
  256.  
  257. ════════════════════════════════════════════════════════════════════════════════
  258.  Area:    QuickBasic
  259.   Msg:    #13713
  260.  Date:    04-08-93 11:39 (Public) 
  261.  From:    KEITH WATKINS            
  262.  To:      ARTHUR SHIPKOWSKI        
  263.  Subject: C to BASIC               
  264. ────────────────────────────────────────────────────────────────────────────────
  265. CLS:?STRING$(50,178):DEFINT A-Z 'Created by PostIt! 6.0
  266. FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"CSTUFF.ZIP
  267. T$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789#$
  268. G"qT0aeO*GbaqSJvCrKedGBbC*cf(Wb*d9etUq0td1GabiXiuuHn3GwIAUnpfyGet
  269. G"quX2B59fAzz7BVlidRClliPlAg#V7Bb5CPRCR7yPBDIEpxq62YwwYe8Q6f17Zww
  270. G"6csYgw6gwqAw5#22cYPM2Z62WYwqo23Yw2wg13P9TUX6DAsEpxx2qfsfITL3Yzy
  271. G"LXibzANZ2S2JR5DyUwlh6B6RDlz8UBhO11P49Bnt172sx7W9szDBRtXUya$bPmM
  272. G"E$w5qExSP5ETCZJZZ2W0L7wWtPWSX9D1DDplAiVdL9HNU5foh1rjCddqv$Dxg41
  273. G"UnnaDo3uypNkOhgM1OKkGVzJ6HVUUb5fB1ePAq751sxen7UmWAlP6#9zbPCK699
  274. G"JgPUzlzeQKmhRmY3nhP91XXimNxgXherFoJ5KSIvotZxYEQHZ8piBBAaZMB1G8o
  275. G"7VDtss2w4ONNuUhJ1R2vj9dtu7SW9f57YSNR5UmsDDPZBwNx6wgLvVVeQrncG4a
  276. G"7aTdTs7MRUB7BC6j8k9TCjtxjsId5XD9YINGqDwS9wD2Xqib5Ebjic#FPkIcSGj
  277. G"rHGx1CX7A2MNIuRYx0$A9tUVCedYDWFdyYEcYtkZtCgmo3dYy6I5ql0ycYwWCxM
  278. G"Ueg4bezbZybh8yMgimdtYkJCJx60Fji6pqDk9xM32kM0QbjB#RXFQ#ZCcJ4v0B8
  279. G"89oS7a6DF3XxgMJW8YIPf7wUycdfzIZcXpG1HnnRXdNc35MS9ljJ5n3mg5pLy8M
  280. G"PgBnrpb5rY$fB7BnMZSRSWPq66QNYq2lBAYtR32vPlh6tzcUHgewfrWvO$FrYvP
  281. G"Lri0JdibgldAov#f73KHziTSzw21JKbIwgew8nzUAywgXrAFFGLn9Enlde5BmcJ
  282. G"EUXqziTSqXQ0D0L1T0z8IOD6KgA4SmGPmzH0Xb72Nri1Ynm2f0UEvBObb3TYU89
  283. G"L7MDbCww8iCQn0wgvOtSSjKaYVfUJLnidHLPUE1P#xqKQeLEojBiVkEtNePtgyb
  284. G"kCp1YqGxRh7AwgeRlC0Udcz3Pl331nmxHm4gliKfGzSqkl8Xql1YXkgHH4ndS6d
  285. G"duLyzGuPhklZg1P275lfldHM5UToyMvsnuPy8LRGhw7SYwLjwsdPMrLLQyX9g8V
  286. G"S#slvSESWrPB7#f9KvDS2X2OexfDKrJJCJMNJXM$CoM$C4CCA1CoMWq#fPAthgD
  287. G"L1u10XkNZUJb5rc6BZoshcevNw9WzBXdbRdbvBd7#oS#GYu3kkKvCsDEkCHwyYS
  288. G"LYYSfGZ9DBYLwrgjP35XNxl3DunbBSNJh1L7edYfNjToL5oQgrBQEJ1GFgo3m3S
  289. G"cIxD075QJfxOGmmGXazqb7fIWXXT6i3VrxTQMGYbciJAmusHTDbYqk4dzDmG2E6
  290. G"A26Oa#nz2ADkIAqrXhidSLHwALMnBazKOOS4PazGMqoqgJ7ql1KI7qq3II7qdTk
  291. G"wxw#bhwvZAGXVRXDqSm4ov9GXTxP7IAWPT32bnqhR7r1Kjy78eezulXobLLmgOP
  292. G"obKPtvPw1I2JRhIK2gMvsHBwZ2c50Yzs1nQ0x2yYe0$DDedZiX#TFb59DNJ2vd0
  293. G"icE70Ns1Ia50z5wTMjugHc2xw0B30JxCZk8WGnn7QDEk$rJU6U5wS4QdLgo8yhl
  294. G"Mybzm3XWYXilxYVxBAHte#Co#4W9W7ZjcR6hNsC1ifviY4Q#zofE3SJWq#AMADX
  295. G"7Jf2fRD$Mx71zeWRGI1075G#GCkPPDdmPqD0UmbLiRe5YvkzXooZzkAK4UAmayf
  296. G"ByvlljcmkSSq6ragf3vltmFeZJemgVDOVMkVp07Oeg18mhmieNJfK7LyzPGBqNM
  297. G"orWh7r4eVLwf6wrxz8Hd0FyGJ9nnOyfPfnOePXdT8B2p65$TqEzx6geyl7a3ipM
  298. G"qVEe2WRehL98ykdFQmjSDAu8DB64IhnSi0ZbhrGaBWaTriu5ILeUKPVWeJdCHsf
  299. G"AfduWjwGd5ZD0KPZjokplob$yUx1Jg3TTUOUPXmoTNRTD4wt2fGDv54Z1fEwWWw
  300. G"1e8de6mmmqanP3SPZUDb8kpWneF0AO0E6c9cbWGTIu52R5kkDHbsGkvOYk7Juug
  301. G"qAXv5$CR3uMDDh5SnOmIu5ZYgbKDvvY72uOJBSGt9bJLD$#Kb5aT#eVfcaRBtgS
  302. G"4nBDcv30uAWcmmVAkdAqzDqpbecGhorWzagy3HoSaAndoEHuutNWWKNcqAeMSdn
  303. G"WYCMJeWbd6xnsvLoo4ZJjo#zdflHpH3DTZ5JpuOE04bR5h#8TjEaSYuqOb$IXhA
  304. G"yPo70PmvOb5itbJZgyMjmb30MqO8xvtElVtaWWrDr0P6#QFr9Chhjm5yvwpoDkd
  305. G"b9otycoT82wgP7NX2nSPwk0RtJpMwIeRnlAJLAK#CR4SlanC90ISlm0ObrcqWoh
  306. G"yhCrGO$YRdAbKDOdJSdG2RdO1ceG0Rd6xuI0qT0aeO*Gba44KvCXuTqzdcx)0Fe
  307. G"(qb*d9etUGudceGeJqrf2CdAjQ528uGbsmbrfBVL3$LQeKGCOpLPUejgVcUMSLD
  308. G"UJvUPvmfVbPytRBdRCZlih7BzlBl7yPBAFRBbPzttYlI3VvUTnS0fKXy9VHki4n
  309. G"iZ5lNjmFjoVjiB6vg2nAAL7C2EB3Yu869Z7PkFrXZruTA$TB2Ft0N60Ns1Qo1Im
  310. G"9i4v6B5whSvGlrBzdlzb5E#Nb1R5rWAqkN6vQRSEJsZmnR5IQ1SnVPeevlw$hlA
  311. G"a76P72sN39D83mGL9eKNuMNaTtqo10EM0UDPmbPqC7Ufm3LPlHbwXqknlygl4Gh
  312. G"Z0aHzyswt3YIx6yKz9hOoL#lZBBftA1GKTPDo8NO$mOUy#IEJNV3HDhqV77o#Y6
  313. G"rMwZcc8SQip9mpf3zSWPoVKmHy#0nVWTmkzk$PHI$0WnSNTmntNMLGLpzDDtASp
  314. G"d4IGzKp3b#Dy8MFoXr5zXt49qyB919kZwoYY6wYu2LtagW10b1$9m0IMR#Jc9is
  315. G"Wn4sf4wzFKABajUB#336nLzx3bQJnLyKnjzfRCKDfbljJtSddMVd7CIhNfIFuXo
  316. G"mT5EoM7YLofVFRzkYCYyE7Oa6e9eKhj$xaEFRXCMDLfIEKUUAUmK9YMMg7dYW6M
  317. G"56UaZyZM#CbHQNi4k0$ViViz4wM5MfApOCaJLbnNk$I9BYWmKw2ml76rYarldcF
  318.  
  319. G"MnzUAywgXrAFFGLn9Enlde5MQPyx35gdLH0YY2#ghnDzOT24vr70P3QHZYaMYKf
  320. G"shhHEFgHul3Wyxq76LB8UH1AC3k7sYOC3SlGZYIOUNJAdTLrvRhlBcjG8BH7yzd
  321. G"YqyzQRxWvD8Ii1SXVQKnKxfVPtO9sEBw5#22G7jwgcew9yxZYGyDHJ2Dqi7EY#2
  322. G"76gMRqgCJfeYcWmwiLf#yRRCLJvmcdXBgy1hgTqILbsLEOcckEQBjXE$3CP10zz
  323. G"i0m3T1bZSsQTSn#r675gw74MpDFJC1PrAi1mQSuPVgeVb$lRV0sfRhlCu62UFrp
  324. G"zvhRDSnkXvrhz04P0O55yIFFhNJ5phohNwnNJjmKFrQ20HrxznvnDSY5S7yqEKG
  325. G"#2SJ0Har1PvpC2w8qW6qq12WUVtqmZKDRqHSItQZtHl0ctMTuwMTaCUVBtU0kYi
  326. G"j9opsmA5UJQjieqBMb5IZKwNYChvJOnvVXAWpdNBgG0oFv##SZvhlUqbzyaJbYG
  327. G"c2leHJJFdYZ#gD1QAckhiGmQXqjf22fidPG$EitjE6nBDua$MmBTofrnOO4dKb2
  328. G"YqlTsZAsRCDpkklEkqgOjKdKX4o0snP4oe0TO4o0qRI1LLFWHv1Sgy87ACheldU
  329. G"tvpyC7v6UOgCA7TDqd0X6Eunzc2opHZjG6tqzjJbAQtaz6uvQvTO946XLDre75K
  330. G"JN2SMTLSHaBiMGj91hMmb9FxhXWwNvT#liVV7C0UAGgek162mqdVzRtk6Q#f1B5
  331. G"2gcAanZRiObAb00b9e6SaEIIGtlny3bjnaTMbNzIIA6eggzsHIgbKDGHkZzooqd
  332. G"g0V4DQmH4GppM4i1gklopH3DTZjjafQhg4bR5hObRpaWImRUfIBtqqWJ6StNYuH
  333. G"gKJmLgFR1ktycc1MqO8x9jVL3jay4OUi6uDF1VOEUJJeMrEkRhtClD#9otycar7
  334. G"TTms3pdvCZU9BOnA4057XCjsS2SOnl1i95wXzxaA4o1ISleGJgeVoWohyhC740F
  335. G"51bTaYo0Hr2bq71b0Uqdi96G#fLiyp23KeXHUa6VnVucLidH8jZhHO2PxBzQurE
  336. G"ogrG6q2HdXXOXq5oiiUcYPqTQdUTBFZfiBCLgWNoxCtNwvMY0umLq1Ilm8WsgUs
  337. G"X12470qvZJqrr9S5dGKn6ShtfiAy4OO8acUoGWW0LhWryCWFDajQJKObEHwS3H1
  338. G"HhobkoCSomcGOPJ1HjhSGI8SomBgrBEwhMzd75vCjNlAiQQXGb2XDmc9LDSyn2V
  339. G"YtbmGWD6kk8Raycza5A4hGgqT0aeO*GbayxrRaHPzXZDag)uQ*c*mfuwpvfvUGu
  340. G"dceGeJqrf2CdAjQ528uGbsmbrfBVL3$LQeKGKTHnVVTU01LOj5niJ5lV5lXjoq#
  341. G"n7BLlijBzPBytlBbjCd7zlZYVztRBtlDt7BDZ2Bv#YgQGGRhH1TU3nnOyfPfnOe
  342. G"5#ByPmkEGT32WI302262wq6MH3ITmoRFRzbjAlByjZ77ZoxqyS$M7pTzoJi49CP
  343. G"RCR7yPZ595c3Yog037z6fZ#yrByLd3ubpvHXK7i6uS7HLTYP6ppQVlRBPd76Ysw
  344. G"qa#IO60ww2s27MwYsx0q3Q0$6625M2Z6gVpPzGNChDVi2tQrHI5iKFp232MWUww
  345. G"DoIG$5GLB6SVP$kz9yCYok8Zf8EkOp9lsMj#Mo0hpzeFhMIHuWJNCB25eMQ0NVf
  346. G"e3LUoRRbjrfAqNArb5p$5psM33DSLH2CoStlldorDtx2w2DKwqACnDQZbrdhAFy
  347. '>> Continued on pg. 2
  348.  
  349.  
  350. --- Opus-CBCS 1.79.x
  351.  * Origin: Crystal Palace  The Ghost in the Machine  (1:382/1.0)
  352.  
  353.  
  354.  
  355. ════════════════════════════════════════════════════════════════════════════════
  356.  Area:    QuickBasic
  357.   Msg:    #13714
  358.  Date:    04-08-93 11:40 (Public) 
  359.  From:    KEITH WATKINS            
  360.  To:      ARTHUR SHIPKOWSKI        
  361.  Subject: C to BASIC               
  362. ────────────────────────────────────────────────────────────────────────────────
  363. '>> Start: pg. 2
  364. G"cYw4hPgZGN9JGW3c5LDPBqqRlI30Pn3SH8y0BYYIhW8Dli#B4Hlz3I5dUdgeVdB
  365. G"DzlDeVRbulnabk*e(LpzfxKB0QW4G*0c)q*WqpXumUymU4nIrn6ObkibGyHmeeJ
  366. G"HnG4fJjIbHjr0iqjmr8iYiIpHmrulPjIxPJKqfbeHjaHJ5nSjgdSG6OHT8Lb0HU
  367. G"0fObeSjm55n1Ho6eHevb1eMLbpLzM00LWKGQrLnKHSjnUznUiPLjItHk6ig2yg4
  368. G"Gg40MqLfhfToLfSPQIzmLrTVeHaulnabk*y(rWzfxyigvEvhk)Whb(G*WqpXumU
  369. G"8Kqk9(smajvyZj4KJA7XuNU9rcgeWe0uU9wEFaJqaAWX#w2gtxow5I4d8S30PcY
  370. G"H6weNaK$ZmLPjvOdnOPeXfy57SmzlorSbo#qhWHA1BAzPG8gKOhvQpTQqnHd9Pm
  371. G"nMFLQffRuLajprlAb$krdkvdkbiwlWZ70Pu9FvOtDQdyy$GKKKunRqTOt5#lQqq
  372. G"2tGZp1S2uHWFqZu2LiM27rkYh4ajyansYATbybnyaXsYQcb4bpyabqYcDpctyap
  373. G"qYoilmazyddOOswpVbv4cdOp1KqEb#$b#Fc#FbAvo3aZFGbuGcmaj9anGfnGaNX
  374. G"MeGk8RFnmB5PBDNBzjtv$xllEtlDK6$QzVRCo#YGSdNJ3T01SaSJWgdC7OTSHLS
  375. G"c#WHHO2GFLoEpBlRGBCyvAaJmJgk$RZLUYDSWnVa8RWEHaGkpzfRCfCKdlsdy7z
  376. G"Cd8AUrhlAxd4VwacxyBHI2NByzBBfmRdReda6Hfl5HDyuYVugNbS92gM1oLMsRd
  377. G"5g7n7BHZX#1H0C5bOBsak4BdsetaJx0bm6G2dYhYxWiqg0jiKgG3waYbCcsG11w
  378. G"ZjYWehHwLHixGunGoeuMN4Evxm7XfBTMgxVQvZlN8FMFqRMWwc6tu0Rra2qcY$$
  379. G"BqbEW3wN28PXVNHe0#$hyc1ITUM1SLvUhKG6$$b6$t70b9nkoMApIg$B4hWrtpi
  380. G"X#eBu#NyR6$fcD6oW0BbSDgGnobvBasMuGLLtzpZzPvfiZfPvjiX$yNzEcTQdjU
  381. G"b70135zcQAVhWtXAkh5a0QfKNGEfJ9afGoIX1nPXi2LPjpUbWY6$TR$eE#f1Rwc
  382. G"Aa$2UAsg#sotHREqA1bs8oK$eVbd7hyyxGCEdvTuVwLQM2G7e0FQQ$mvTlGQMMk
  383. G"f7bOiRJympAfqsgfzJwjJTz2WDp4fW97J7biFCJQVJJ4ThXk#i#0LM$Fr$G9R#r
  384. G"kFutDeN4Ezm22f1D6C6p$$NiNBsADFTkcjoEgEMNMOSBM6AKpMHN5r1QhK4o54j
  385. G"UsCtxeJ9FmSRtoZ8yeU7IW9veUNHWDlyTlHWVbg7hyytiTUescQNdWPiKOryobL
  386. G"rfU9bqjpbuY0eHi$wiYEaiYOYM0Hamif7py3QIDiumpcfZLqX8jumNcfZRqXClu
  387. G"m$cfZXqXMBOf3$$$IsOrIBag5#W4Le6g4fcDd4y8PCgtJEVU3KJUUOJTHDPnSZS
  388. G"HDJnSdSHDDnStRHDxnSJQHDrnSZPHDlnShj14iYl6fs5rUGC2$JUZ2jP95OSpMH
  389. G"9UmSFLH9OmSVKH9ImS$JH9CmSpJH9wmSFIH9qmSZHK#jK0oeu2zyNidMXrgEEKb
  390. G"zj4amkKbAfEtqReYW0Jm4gGmqhM40JHmaEd8MOkwFqX#GnXBA$HNrlb8mSuLZQa
  391. G"pNtLBnpW6ukB4uQgoLAfOuivGsrzCk1VMYtRu1w6iUWyAoLft$UIBtaUraOymhb
  392. G"WuDhcRkJd(ZdjaJlafjaVlaST#q6Db8ha5ANAaIsa#AaMsa#BacJuLbymby9b4m
  393. G"#SoaNAZWaUJ8dr3nzadkazzafYHEz8hG4mGefG#OwmD3ie0uFapkaHAaOfUvdys
  394. G"bixdqyVyditbyAd4tb4Fd4ubyK0ema3CaZsdpxRa80bO05whqUcWzhWUcWChqVC
  395. G"2hWVcWIhqWcWLhaf3JEafZCFaQfU3dyBbaDA4CKoaD1ouGYjVwGZrtFbwxassbw
  396. G"vqlkQ86uaprylZteOhGNixapraTIg21u0a9bu08eu0aA7hzL1JpH3E9JJrozMN5
  397. G"xck4oQZ9c5gCbbf85mS3MH9ZmSlg3WzPB3kk7sXnCtm2rkNU8bqFiIUkcqB$jIU
  398. G"0l0MGMES5XMuYratMEimf0e4AwhV2wfaPlBwzc4KDc4KH3aozyQgROHekod1C2N
  399. G"0CgC#naYfWVbCa61VM8L3yoD6nZlhDAMBDR2qMdm#K3lLuX62WJQHDrnS3PH9mb
  400. G"ehsEpXnKYEGuE8Se93if2m07xHEpi07#iB$fd7PyyFed7EyyxdPFeO3pGYMB8#d
  401. G"Qt6UbEys8snsb#aEyItcGGtTaQZWtef8c2JfHEfP8DKnTH7Zz9izTa3dhVfiFbO
  402. G"xfyFbizf4FbOAfamRbSajmavSayOSMfOHbiPfaS5QwGjgGWwGrgGgxanXa8NYau
  403. G"8cSYae$c0sAPf4Le7hyMsP9aGZdYb2zaw0bGz8vhiOmDEGHs14bayDFh4OkspWs
  404. G"dWepqtjB8aBLu5FYu1l4peomA2T0mSaMj9WcKaDu0gWmVXcSaFu4lOzEKf4aGOy
  405. G"MtZkZZNQGnft9(O4CLtXAZmfNxiZWsRqMpIEUEfM4A30UGsh0rAtwdGsAanmBrW
  406. G"5fSf4OwGdMGcuqBuoTVzJMNgyv$Vd6K2dInxXkGewdWK6$vqzKhoeKhag7JHN0e
  407. G"uq7uwSHPJ4g4y3SSnSNvbhlIu9fu1mE2R35oOhclOZgXXa#$ggWVtj9Zli4Chrc
  408. G"FIA8#aXWAo2AA#88$C5k#yTV7YDdA22sx7wMmx3argJhXpSciOHQI25TWqzY#b$
  409. G"OHEin0JGH2kSyeTI3cdubW5OkWPPWmEWoA$1qu7huULDS0npNiJ1XHZMZLnGck3
  410. G"II7PatBZ$khuUXdUuW2gtBeMMshU14fniTejpxC1nJPfGX0eWyAdymncmMwbgtZ
  411. G"aJPDW9aWoa3tz8nWyAh2xq7LjJBea0liJmTKfWSjLWaAAgUGegWYC0tsPNscFLe
  412. G"Elj8xs4XKWNjHlx5bVjHNtcFNeEpj8Fs4bLWhkHxuc$O4R8yKFcwdo382wXqMsR
  413. G"gbs7FzA1Hcob36cj0ozl7dSUL5InTKfc0xi0hMxi9ygHKXLPeupCi$m1VCK9VSt
  414. G"O6wwk6NlfMcfa1JLTvW4Mcp21AHRPcA$cjt90VwmKCABZWuP6AiOZXRMooi1YYr
  415. G"bRaBiUS2bVNTVrUhez12XQUUTTSKWOhTP9SOfLcEaw$DzrXH0omkoI2PXwfkK6x
  416.  
  417. G"qb3XrClkppk8MmeGFyZlq86o#2#MRhTbPOl5ZtKZYvisVz8YP2krsMH2sYxa2oY
  418. G"2IMISLK3aLlNDitP2gYuTTH8kG9EBS4PAwncrvYQCD7zJHYiLHYUD6xNBA1JYS$
  419. G"nLzcTTMymZIeK$tgJdiCzzdtWq#egMbW$TF1TL9UZ1iSMaXk0z7qcG3d2vj#$kx
  420. G"tkl#AAmDPbGLa2NlnHyT4TQ1$uWAbvRp6cggBlr1FcOLQnxP$d8oG1qqLVcJTEz
  421. G"1$Zk3IQKNP1GHWGsypwA9OqRHUGJPk7LjRXfqwtpGSMtGHmul6xxa5zBx0FqxqB
  422. G"xgosUmKJDmCSiRR4gajJJTKrJEauojmoMeczJzxLSRrqNBaGt1Vdg2PdxC66I9Y
  423. G"cPCyDliD7BPlikdkiQwbrpxPLrN#pxqiS5QXKo3WGWTKY3nAdekCBmh3tYK6uIw
  424. G"LrilylzQIPhjiOhBnzRo7w6G0I#S4ws9#mHdI09UVjCOlVIYlNUa1sdqGc,qVtw
  425. G"XfgV49Idd*m*i*m0tmfJlevKrofutfbYqpXumnOWvj5erpD1qp1eubrvdkqurtn
  426. G"Kujbfvj9KtGCYqpXumN0GcA0GcqT0aeO*GbaqbNvCHfeOoF#h)C6b)c*d9etX4s
  427. G"tbbvdceGeJqrf2CdAjQ528uGbsmbrfBVL3FQ0nSJDTGmOSLTVDSHLUP9TUfK9eK
  428. G"X0MZeN0eKInV0TSZTHki4nih7BzBmqUT#lx6csqe8Z0Y62Zsx0OC3PHTTLb5wWr
  429. G"COSnSZX$hKWeMWmM6G4hgj$ZCO4ejCx$uMgZVs1IIvQmF4FkrlI8Py$sEhtCctA
  430. G"iFL7HK8HnMcLiLlcEld5RlAtRktdkvFQu0pCYhEziFhgyT8Rf5CqSOoLi1Nugof
  431. G"R#uOJMifVds9jnAqIUY#WlZGwuK8DAHo1PWoySUO#6zWoAAuvsNSUMjVjil0IEK
  432. G"1ru$KMYioHrRHl4m5JmnHzqQkZRLdr#a5yIdKmwSMuJkKTgsYh4eFijFGDrKpaR
  433. G"RgcYh4eFiiFGZvdb5d8Hcwdysd5ZWAG8qkhcynqs#ioeSgijF4WAaMdbRbOn6cK
  434. G"KpmLdG2Olqr#6GqjZD6ucvapRV5tktBmFZYqIuIkLSgInDQhj#4lsYFmOKzAFXh
  435. G"yxZzyiHmudkrIpqRqshJhzH8bN4JinCZyoKHaLsyiJl#WJ1N85cEXhe45cEXhe0
  436. G"5cEXhzAKia5X#fwoDBBtb7fFGlnIp1wOd6qxY4GI1nA2#tLBApBAGwEu5#26chJ
  437. G"rX4MhvQpTQqH8ju0EFw5CWQbrfRMUYnVGeUV59LjRQHzHWMtuCyWSbulnabk*y(
  438. G"uWzfxS63LTMzy)nvc(G*WqpXumUuewf9(smajvyZj4KJA7XuNU9rcgeWe0uU9wE
  439. G"$MQ1MgWjCStGH9$$VH3wxtcK9bOdOHDh#rD7qas7e28qI7aYeINQOnTZfKWvUV9
  440. G"SYnSTfKJnSU1TVLUGuU11TGmncprF6ubzBFlzlRlBydvijgAKoTOfuHSfGceGVu
  441. G"W8uScuGdqV5yFGbWyB5cUJhbjLJLGDWcqXcq3fppbd7b4FujV03iaBWW2YkdDTa
  442. G"HiaNzbdydbAbj4qFktJr60iqV9HguMY0PuMTQjcgWtEvxm7XTcbOMrOb49$Qw1J
  443. G"OvOay4lIZd9euMEWehHj2O8pXw1$le60DGP3cy7ob7j8c3b2obvBa1Sqlycs2fO
  444. G"JnihjOjnUbbRaLPjpUbc8JW1TR$eE#b#QLGgenvVMzFcXG5odmFpyUswbsLI9Yy
  445. G"Em9LfaFVz#EqUrnL2s9OvkAvoarlzUx119GOaUFaDpU0Uh8K7EsXCVECJQpLkI3
  446. G"EeR4tlF6uC$Fr$G9R#rkFuY3qasCVApN3Er9heGP$8$tSheITK#eHRVtCTf7fx7
  447. G"6naCTLnXN9bPy$Haeef7qOyEekMlHI5tOyofkMxHI5wOy#fkMJHITR0AqZ0sl0i
  448. G"rSBT7SCgj2odK7hLDTKbaDt$o6gAHq3a#efevKweITIuagg$#sfN9KW3AnfaFZY
  449. '>> Continued on pg. 3
  450.  
  451.  
  452. --- Opus-CBCS 1.79.x
  453.  * Origin: Crystal Palace  The Ghost in the Machine  (1:382/1.0)
  454.  
  455.  
  456.  
  457. ════════════════════════════════════════════════════════════════════════════════
  458.  Area:    QuickBasic
  459.   Msg:    #13715
  460.  Date:    04-08-93 11:41 (Public) 
  461.  From:    KEITH WATKINS            
  462.  To:      ARTHUR SHIPKOWSKI        
  463.  Subject: C to BASIC               
  464. ────────────────────────────────────────────────────────────────────────────────
  465. '>> Start: pg. 3
  466. G"MBL1Ry$kf7d2e6M7VIgTewFKu06fdqrd#tv047POHoafnxafnqTYcOObFRkA8Gv
  467. G"0qpGIMNGIgOoDbye5Zc31q93U2RFpb9ttI#vTkWHCnPv34ghqUJDnx0BzQA75Qa
  468. G"kZAxfWZL17vbK1inqwVwqC1y8UZGQXkA0aPOvO4mb5lfYf$#Q53iv7a8BGUM8BG
  469. G"Ab8BGkS8BG9x#nKpPpRE9RjFzx6GL$JcW6e7r8dWKMOe3d4Ufyaz8hhm59FIplb
  470. G"X1tpumEfEFOvSBaHtuFtYFac1ftClcvn1lqXQHb$O1zaXnpdOhEMgDobhQgCDo1
  471. G"y$a31Aw3emLe8$2mom128nd7TzyFnd7Pzrl03ft1oe90hG460CBK7U$2DUao7do
  472. G"ad$sG7m6w#$BHPFx3MpdwtZQo3$$VMeW9eG1nGhXyLUY03wmGlo6lE5Z30lw50f
  473. G"HZe4Y31098RVd36FWfF$p#7GgWytqwZYGkNqbdEjDSWYFHR617El#XH1vrLhGsD
  474. G"XuhWNs8Vfq2NsqElkL5IVqGJ16cXydKH801G8uG11GXgHi8rI$sZR11IwpuqFUd
  475. G"vD7uc6qPAXP8MPX6IDOdj44t5ITHvDXonNGmw7ZC728$EKHeCUfySpDrQBdQNcu
  476. G"77YkBvltVVXib$LWJ#kdaKjzmaxwGOpZKVEnySNRc9xVeo2T6vZ1C81JGKPdyaJ
  477. G"QctEDLOVPzb$LWJEUGptwA0XWDFZbK5kbz8GOgNLg8OeWVMUreRkK8qTUlWvjkL
  478. G"RBb#vstyhH80BAVUnGKvmXve0XfO$Qx76Y8l#busMxPdFN3FUoCWVNGlUGlSOcK
  479. G"UY$$Din9W#eiH#wsOjt3N8X$PtG$EGtoQahDTSFXLtOhx8F6HQ$ZQw0sVsSlhpb
  480. G"7rbhGY4lE8snQlt4dTFdiqcQUtNEyu7TlwERot7Nlq#ltYZFwltWl#9dy6xv6#a
  481. G"I#o$pQso#WkGJDVU8hBqdhGHhXbmu6U7ypqfFXW3jgHbmFC7R79TzIT5CdOnzSh
  482. G"U93Y2JOQydANWbCMs$x2pRfQcbED1pR5jiP7#5zcP79yE6o2J6eNv25SJoNDQYt
  483. G"rsxsYtUCWDHUE0XgpiANYRpPDcoWOV#RV4Gh90pXOJ6awxNV#aqFS7NiBxyStdp
  484. G"2b$3yhT1x$NA8pX#G35bE9Jg9Zf8l#4du4aLK#h9qpGZ1G4IM2P3N9FuC2NylqA
  485. G"$IAOo#DSWnzI$Pjz8reIpmUy0LLLvwRQ5sx$a6sRk8c26KoIGmhCx7C7AxlbLFc
  486. G"QsvvqgAdcBUoVOVAfNv1XL3dBrW8jJiZvb3#VENIidZ70D7Dsp9UgTGYCf8byf6
  487. G"hZUR4QYPgsi0fdDWShHE41uzubJzSx9x51h63SDZ$Vj1zbm6in3OUQVIoNC2n6I
  488. G"9F0nxWJERdq5EHwgJprRno6AuxUmC0VXpBR6fDJ5GsPY403s#V4NTKAO$lzg#ht
  489. G"64R5IwK3O#3K7aNxlXDyuoT$xhFUCDE#NIY5SC94NUl0XEvFiPosukp$yt0IFzv
  490. G"Rpmr0k$bCxfaGwCCJlWh7og4l2Qg0xeQ36DkC6crGAz6YWl5wPwwz1G2RF9wAQZ
  491. G"Dx5c4D9k2YPXE0x8$vA5FuYlwFLtE$ONebnRWYNQhODsrMCRFHEQ6vd8ymbpSdv
  492. G"$aJI2dzm#4cUfqNwow1xiYiCo$hSRdB1ylKJZm4pglydnycpidridtidv4bxGXB
  493. G"XgAXh8G7ggrjkrbWX#G2WHkqP2WP2WR2WSUq22aomdxok3eSNhWkmWkuWjKWnK0
  494. G"l05c86l4a7i0IJUh2j3gGM#$Z0ywrNIBkJLTVBcMWCTJjeDFJUuNhKUwCOdv83N
  495. G"NtuUeKNK0UkCO8Kxi7k3UbCOUuXhnGyEuc9dBWNuZaMIkpbgezmYVsGN51NrirX
  496. G"3c4BuIBhp#UceocYUb1S#zO5tqzlV6sm6HY2qZ5ekFeSnXtpbKJVyJ8lyZYWfJ8
  497. G"f8kEyejqbrEdUiO#fk96#XE0wtxnWi8bIC5srOoLpXro6vZG#ixRBfRRm4dwBDY
  498. G"ZZbV$aE3c0ehWR7W6LF$ShfXnr#g48VeoFNpxUyCGzFUmKXbpWblP3XbtN$RNeO
  499. G"Tw3rVE(38jUyNY$vImdJmE$VrLzl47rwjy2tnde9zGfzI0#FZhnLnElcjNU52NO
  500. G"kKbckBVjethkLOKB9XLdTKlRAhbvtBZftezj9L7m42r#d2tDu4K2GtriVa$pnm9
  501. G"gYqGJDj#Nf#YrEkk$bI9asaI6fSiCHN#bDwvulxOu0iNW9UhTs8lQows8wuFDbt
  502. G"MspDEv12h8vkmRMO1Dft0fOk7CEbHmSYDTWMuAW1r7CDDrx$6j13BsfFGKMrU3M
  503. G"usUbi3gxP4qtcFzuT5igF5PxV$hWmvHGOoV$KtvNTtFcrkJBmzZYr$xIyyCXXFJ
  504. G"gdBrO8hOUMRzl$WsNGvg2$RVN5xPxOb2grV#oT1LdPft2G$iiSwHOwW0LSO6w4G
  505. G"94eHcctvUfJrneP7uxmtAzmdy1NHcKKVhrINS#b#DDXd8XmJ9YzfZfWZi9srnbR
  506. G"lgusEDfAG93xhOwfpPwEtA$dPZEGKAgghZY8g5W9RoLR8Fwb8zlLJAemB7iRRVm
  507. G"1MBv0tgl41Tefv6SWOn3PIQZkxOjMIlUQcuPjMkHCVKrnkfPwYz1b0UxaAnReNp
  508. G"7vY6Bsexb8W11wyrJItZmY4EBzw6XNlBJ0ChkR7UebRBwxU3R$zTCKyngzEcq4z
  509. G"j66QxywxS3d86qY#WqYX7eAoNYraHKC6Tdu2jGY2zvpZB0Jzdv1ED5ovAPmrnqv
  510. G"I7L6iocOHPD7vGDWXCpVZg7r6DrildlDzklJiDsn103CaUs7BS3WbqG5#7Odg#v
  511. G"q6kG$H5VLmM5qz6wL650b5Pr9#kPlhz5nyCkDJRF9uhY#k3j8nJ6IL8jiH#0hY3
  512. G"3yu11v8dIu7bBE$HT5BDSIEa44n0dSZ8a51xQL5eBz76ZmUSJTPRwr3GKHvK3mG
  513. G"W2Q9TEV7JoSJg54gursC3VqixyDwEb5ZILJp908hXfjYFVIphyS66exKZCe0Q4Y
  514. G"#cqCV5lI7PFE$cEVJ0Ej1dAcUB4oavFEc3nDhqRphlvEiQn5iXXth6Ioi#vfGUb
  515. G"pe9jBikirxafrH4k7io0OlqJxWiWZWYuEkybYq3WTULNGFWefC7$6rgGF8bFy3n
  516. G"PbkB4laMZTaWHD6shcbd9diUcymVE6kH7hXfijlW9eva7TsueC0e3HfWD4v#pE7
  517. G"r4cU9UUiOoNT1WXV$lCT5BBR1KCa4e8FA$GvzFd#8O86y7qZ3czUVII2edPe3VH
  518.  
  519. G"ekpo0kMPluLTpQAw6wSSpi11ZX2rxnzR$6m2LAPvSz46v#y$jcxkk6diax2rH7R
  520. G"VoL6ef5fmH69T7FWgNH50MSDGY1cdrFW0nEs51SSDyvDWu2#Y$9JU#WLLnQyF6F
  521. G"SAz1FrnxyeXHS7Fy#F4dH4qH4BH4DHiOHO0HqHano#OD0Ap5ufPi9DeB09tmvPn
  522. G"jRteXP8#7JUBaKUqs3NFDh$PVwk#J3bYsqYtSKj8RtYheloSbyShGl6fq8FD$hC
  523. G"PJU8DmDZ8OpEx#$tB4hQivbPB4O3gishlRwHNWBpH3D318hKaejip9x$MA92$8S
  524. G"fN8gqEsj#oMNRizgG9ecHY19aj7cm959$8CekZbC6D7$m2ry6p7$v0RWbC#vzDF
  525. G"ahMhqw88EX7JT#5pi8HPmB3xT93Tcb49h$adMA7PFN$tTJe#wO9mMhNHOhfZRuq
  526. G"r1Ghn9Ghn9txaNGkLngfhIRxK80ijZKvhJ80jjR9B6DipzsYm4EcuS5uJD$fVs2
  527. G"6SAnLdiptJXEJm#6ySvB1xkJ9ez84Xy7d788ng7IY4htlN55CYi6ULUrLNWLUGL
  528. G"NfbWBEEeiRt$UkRRfAAflWg77h7FlEqv$e7KN#4hajEDQMo2LiJb2IaRgIp4VJw
  529. G"H$o8ASxgVWS3P07a5YGhwBuWpnRRm$h#5PFyTVyfWxWxT98IDA3jEFv$593YomK
  530. G"5n6LrL15OieG1gT$ySUWas7$FWCncqL9srMxU9x2$#Q1D0dBbeTX8s2$yz6Ewb1
  531. G"O5gEY#xN5cHy75EhL7QKCNhi3R4uln9njcYG8Bm5aXi5mee5#dVtVIJ$3juLlpA
  532. G"FeF9kSNNzcoo9dG7mr1DNWtFRAblsoeQvTNYjiDMJ7HwYpyJ6amMbAThz$as2ie
  533. G"AABY#5IiMwRBcC3YaRu26G9$zuH67LTrnj8OwUQSGWgCVGh5j4bWJOFLhNQsnLi
  534. G"Fna0kbiV#46RHrwOdvSFITMhbQA4LyLZlFyk7OkaF5rSvNN52NVXnBZxfWZocwI
  535. G"S$07ljhN1ThanBvMpajYvWzPPm$b0Q33fy3YGZdwAeURn3s77bAZmpp3S8$EiwV
  536. G"qT5Nv4r4KdNxxALHZ6t21csJEGgG9Snd9oC8gGVCy0z#t0a8ccZGUUWMogBBgSS
  537. G"TYBH#2s7GWAdA6van9dG26$eaTdcOz222gJxrY3NSAGvZ#O0T5i2H4ix2GeDxUD
  538. G"c6hyVxEVEdF0hjkikBdM9nOyNaFZHj63maZ6xpWN62rBgti6Pn0UBqa0V#o0KT6
  539. G"xFhomK5lgAdVKAwm3IzpcrF6yjTWQP$Wrp2WvgFCo#aIq9W#CE4yIVtJGBY$$uc
  540. G"IxiAYfHbBXXnPJOyVQGeABFuLsdZoP6f$Eg0CTMftQEDrNgSp#neJQcOgF0Qzc$
  541. G"Sg9aZe14leBW2$v6iNC8b#dF8zyBAflC0tQTbB$V6Kme8Fv4c3MJrh4Sp71OKOc
  542. G"F$4pjHxYhE6eeM8mN2jevQ#R6flCNUEST49Zpk$hMmbyiezqkU$8iBzsjiIBcbr
  543. G"TUXZxKBmLRJJsueGWNnX3Go#U$CzWiSXij2LCnngc7nWai$JbqEH6A1QCqD3qOU
  544. G"EPxy7lM5tbcnggIJsi8mzqUqOPdpGpLoV7FKEGfl9DOI9Jp1MTdPMbbaWG2Vnqy
  545. G"ysfqUYEPqSJVtdxkAO3j8kh4aOGYt1p89hhWkhch3G$QG4m8wemxb7B0cFREAOu
  546. G"udfjyPC7eugb4ySWCHFa8JxYbOa$hRBefyCl2t3KywS9ch#6kXQl71DeS9$1Zp9
  547. G"mQX193jujL9gGoTUXaw2xp5c8kX9g7v6pfI7pg27Cce0cnHGkZf8kQbKrhXnG$d
  548. G"AFdUn2UMWXgWi2PYlsB6ZJDEFasNPpqtFHbGiB3ak7iC97PwPr#tFfMC6wVe9vW
  549. G"D7Rvk0g2lXgikATRpT#7tbUIZWEoiQYtplNhF7h5izI2dff2IFtbKPUG5CSdHRs
  550. G"a7x7RHlTLcFE#j86tBCJlL0ScfPMEKwyAUS#nNEMmhP1ffGrmL2EsC0wHVRPgFE
  551. '>> Continued on pg. 4
  552.  
  553.  
  554. --- Opus-CBCS 1.79.x
  555.  * Origin: Crystal Palace  The Ghost in the Machine  (1:382/1.0)
  556.  
  557.  
  558.  
  559. ════════════════════════════════════════════════════════════════════════════════
  560.  Area:    QuickBasic
  561.   Msg:    #13716
  562.  Date:    04-08-93 11:42 (Public) 
  563.  From:    KEITH WATKINS            
  564.  To:      ARTHUR SHIPKOWSKI        
  565.  Subject: C to BASIC               
  566. ────────────────────────────────────────────────────────────────────────────────
  567. '>> Start: pg. 4
  568. G"DW9aozHQMfHsMdsfuKR4OJLAp2r8JSdrh0qJdw9H#id2CEuzMlCRgACgy4HJadp
  569. G"6ZkpnC0sGaXjBlFqdAuu7Phk4UDokdBju9#G4U#WbDfwCRIWzC4qYpngbc2lw#j
  570. G"2S4t13h$pHTc2e4s1dbG4AMVyeHpSNOgG2LPFaGUVyURRz$7jkf4CEdzi9kf$IP
  571. G"g9bQx8wmGRam935#84TQfNN6OiX$pdqy5SnwJEocqvT0$VtBx8Od0pi6nqpP2tp
  572. G"Mmbp2umgJx3PcN7rd4b8pZh9JpKrHiBrGiRfD1rGSJrN8iuDpYvB$oZUCoaSnym
  573. G"3#HzuPtnjSAD5HzWXypYHl8UvWga4zR1DD1216UU6yC#xVjmBZKeTdsox8MSZ$G
  574. G"m0huDiM4MCUV3apWkjMMBUOIXaADrn9VmEkzBgAR5uGy37HUK9uiv9fEQev$dYT
  575. G"Fb5gwMj36XKBF9cBHH9w#TQBk5ETBc5wY02uXnF9JcWWdTGd4oj#Cp4kjgSWS6x
  576. G"g1E#vFQXOnVWjcMP8gOaShFbOFM0JAVOPZ8X7o5MY5h93nTEm0E7MU9I8Fd5mUy
  577. G"BA#bwCpc#bGskaUFTj1N7kqXCX$kd3P1R77X6h9iXTb2DlxTFGp3hW1VJaGoBtF
  578. G"G$pd1Wq6Fr8RttQLdORMFvS$Gg8xGp6bNRxcH7la$)l#bMiP2M5$hKQZeoCIHyv
  579. G"IpW9N4$sWN#0wi7DJVlfpEb80Z5van5jiJydBmToEXB8Fni$x9Qp6rozyg$Q#eD
  580. G"tidbDcnjJ7QanzI746PWHWjguOMNl9cpXCbe4pQet0kHpa3wfHtCxS27I3D8eC4
  581. G"bfWH3$tPiKeCV4VGOhf5h5Ih#wrffK2pKFhWWFfH70BJW9sS2ziKBmvc8E6Zn8d
  582. G"e#YDKTAechEvOgjjq9ChXZwiqdTOfW0cVac61iiwP93QMd8TU4JCl9rrWP$zCRj
  583. G"ckMk3hy#a5wFDbQygYDKhbczHN$r9Q2lgANUMf936#QeNaeTpaoqojSwT3jc02N
  584. G"UpDGoFUjOlVUH$$h$mxVqXTGrGiVnzOv$a7jaQm3ccwdiU4Y1Grx91bYDroitMl
  585. G"3ogTeRfossQmi8Cey73x6Ju4sHbIbOwNBd4E4fZFC1tTE7uQw5n0x5vCHLfu#Dv
  586. G"qk4trHoq5FCcKfnM$RzDyDNtzcS$Hk5VDNa5VClyoVQ$Nlgfku9GKk#de7cNtG8
  587. G"l7W7dy#h#vWt#o4Vl7CtER7bshMWqYrdsuPxV8WdPK#ls9rFWc$Kaw8WhQlM4sb
  588. G"titPzd2EDPWbSbhmpG6PJQh9p0Fq0dQPsC0fFTc4s3E7qdSZySnNJ#8KmfTVF0j
  589. G"2dWzGOXKlqsN0ON#5x6jM85t6fpVgJ$iJf2bx6RbUXo6KeYB9fYJsWEh6Hm1hps
  590. G"GAlOfIqONx6vk8nU9roS4Wl2AlJeOrkmewJh5XJHGq6c7VVGBvHogBcynhig4fe
  591. G"2BOPE9#I0meGCemB8h8AtjpajCaLGJYaCYymalBhp03OaoMNtnoGJ9bgWBfbXaS
  592. G"ah7h1chFIo21X5UII#aU7nC8i6zhah7I4yV2A44nXXUgyHDagJJD$9URJJ9xxHJ
  593. G"Fhh7I5zNih7g6z3ih7w6zFjh7i7zVjh767Eplh7k4yNlwLmmG$VGbCq20PcsPwx
  594. G"32sQM22wwqY00kw5gw5Mxq2sqo03c38k30Ew0sxqIYXMsqgZCMtyCc2nnTJvUVD
  595. G"UV1mtx3lx4Sq97kgEbxgbO2LJ9TSfGdnSUfKU9nzN9xgKRAfKMnTSTSaKQOnTZf
  596. G"ec70nT0P5Ko7hKWnSNb5FRB0gisx0k3YW9KmPoLOvfGbjylzQIPhjiOhtUVnU1U
  597. G"LoiTOplU1062Zeois37#MWHQotM0cuSwGMeO$6q$Qrtktl6xE7n6taLBWUsnjyG
  598. G"rJ8boWbQAqRqfemi5pWC1f8a9anJRvas5auSsscgGXHxamdVafWSlGV4aOPiJMa
  599. G"UQHRaoCrAaHfGKLW#bC8guGqKGfTOfTGfiyVMWycvGRGeKWeQy9aZegMWeMxfQh
  600. G"4z5EocblycwyAhU4fpbpcc3bq3JqeySjCeRO0T1LTSnLgyVbZVahKc0apcA4Dhc
  601. G"KBq5nSBVHD9nS7$bSeyYUWeSlZhS5OCKGEKGGKGIKG8KNobu7J6tFC9s1gqL3qf
  602. G"OP1H5HDSRj3C7ww5Aw2#27eDHTTToJTLqZonJqVwZjBATBAjJMXIrrn5TUYaxXb
  603. G"4YOMyz8BRtMAhDV6pMEdkz1pBDyn05SUNG155yDGa0L1vOSBCxA35pai20Ilhaz
  604. G"NoaYIE32nECUgrRYGOLXYddUU2s4#gUYq6RJFQWNoBnlBBSMmaTha35XyUzdrhe
  605. G"QZkYEyN7CeKsTXOs#aWAxGeaKfTJdailA3oaqwka1sdqGc*gaGMCwXf8XkPxjrb
  606. G"(GQr)g*m0tmfJld1GabiXiuuHn3GwIAUnpfyGetquX2B59hzAD7yzBDjBzbjpNl
  607. G"DjBAFRlrRpBOcMo5yPBEHBzMo8WvUVDSLDUZP6W1$wolVpd1ruKSnS59T1LouVf
  608. G"b1Xo23YMOBbpQ$RZ4Aqi9J2YgwYccIN7O6yPBAPlBKFvC76itwXkxqm8nDKNByz
  609. G"BBbbXJQJKW72y8n9i49lvjibPtFkvlQomEpeP3WnnA7M9niRzAyL7zsE323W1nB
  610. G"b5ldkt4EdYqgYqq8wLVyS1Tnm6DJYuC8EpcV0#bPrtktlY2lR6MnnuTn9CSOry1
  611. G"0BXwxZA2YkhPlMF5Von1ZAUBwuIc5l7H8kPubTwK0zivz5cSVizPiVRyfzktji7
  612. G"zpbjmm3tW5EcHdtATViFp0W6wq623KSs#jiIFccHfTVW2tyzXJvUrzmuU3NYP#Q
  613. G"p3Yi#cUdK30TUYDmdF95jeoipPmpjiwwtgMTLvLD3s2e#A6LAUQ7UTZ5SS#h8P0
  614. G"LMTT01odvT0f8ZDCDCtRXJA3H56hgvxA27i2fu3O0eDpz5CtRElJ1Au0eqmLSmM
  615. G"SyUKPajtj2IOGpxDCLxuhnxH9ETPfolxn#DSIXPDZwtvD3LYTmpowxNuPRzzxd3
  616. G"WEgRNOSUUrP7ZOvnzIIEkwB2v$Xc38Ic1RkUnNAQI20eVs47DkdFmmBEvxsjwyI
  617. G"VASGM1nYcAVnauz82amPlAixf3aGrfLLzZV1xjrk$eU8iEYOgBYgw6ggVdh3fRR
  618. G"LZM7WwPSommvDEO41wDFuMgc3KfRwkHm0uFNstCPhPvfP2G4VHw2Fk0#x5kmTcx
  619. G"tbZRNL4fMWq0LQ8lpHLONG3flCa71zD60KY5M32kgQvgwho5RfdLtN2XK8MT5HT
  620.  
  621. G"PsDcWRM8R6uArX4IURYInjtQtjAveIl#rz04mRtJXKg4vpVBBDE#fBzqhPEARbT
  622. G"mHjmbPtgeTthM4Sj8l2WoNLnJT#xO55OTIx2$ZfndPMo8hUZXYBCMLWip33Kjqt
  623. G"1fI6ch7zTz5xCZ8G4MlRhfZ4FTf76u7Bqk1Nofk1726auLqWM2#sr3WohPgUzv1
  624. G"YQyNq#XsxB86XuErteVyKuB3UgAVXhIBFnwZ3xaoDBACA6OxgxxNnss5x2VoMtH
  625. G"dTtqezYYoTytlzWo0YtfuQasDmUoylJRdnkX#mk5kPlXbPSNYrO21HrtyDXPOo0
  626. G"yC$Acg4n2q46XFxVhkeBA5YG3UE3YymytjQZa$a1HcOvulcg2bnDV7BwSbXb5Wg
  627. G"fXc5WgvHc5WMcix7u61yyJ#pdBasSjk#UKIDycOD0G4maFBNf2QqHnEPZJaqYKd
  628. G"mfCafrotZrXr2gpnkb5ztRDQZBMLH9klvQykVGmf$hhpUqNh2WOZdCowxMvBkOV
  629. G"D396xvpULZPKOLWQVJHfHPHGB2PbM5Hpmp0KWG3WyUhJ$teEtAd8ulp#o83DTZ5
  630. G"GLltykJeweKrw4JYiuQE0QcEgz0uOZIPKHCmuYKYqjd#YqjtpdLmQNNHsgyNJkp
  631. G"jmwYOvi0eHDdeknMUaKspLnKB0uhMcyozkiMH1mAIjD44sPBItkRMWRAY9ibXlA
  632. G"gXeeeS2feqfOGErmgjc$eJyhYUc765y8QOeB8H0i3zJoKJCkG1jOSnpidjE1qnT
  633. G"#TjBvMArX2457VjEd7LvADzfdKrxIXTO2Gmb1gqb8MxutJVBlpRH3rIlcca$2Iq
  634. G"H6ZhbKKVyplilemecoTjGHjTOnHA3A0MOTrBcvibNfcWbqT0aeO*q(WrwECb24#
  635. G"#Fid)yp)Gc*svuqe1urUq0tdrf0KM5acYmW1aIX8g3qNWKg3qq6GMYaItmKtaIj
  636. G"ggYug5acZKg2ugcAM34rjsXPKMZ4MWWgqidxidqeg3qgAkM3yhkQq2iYXqN0SWg
  637. G"OaqkYpAY2eg64cqaIKqhAYM58MeUWg#qcggqmNW0g4Cu4iN3Cg54vqiXLMq5uML
  638. G"osAAvFwgGku38XqwgIEN0irUMN2KZPYcR2M2uggQvBcc4eMZqXGshrohxquIsLQ
  639. G"Y2nwWLUvZm22G2jExro45ugkoK3WgxqK3mgkR(qTuacS(k*y(e7yfxejXa4wah)
  640. G"Gqb(C/ab(i/m0tm5crpneulfGalaGc*gaGJtwXft1cLniCb(q$r)f/q)c)Gjh)d
  641. G"9etUGeulfGalaGc*gaGDfTceMMfp3by)qPc)i/q)c)Wcn)mfuwpvfvUGeulfGal
  642. G"aGc*baq5twXf5gTkmoi*T*e/q)c)qSo)d9etXa1sbiWcaO*GbaebNvCHHyu5vDO
  643. G"*Fe)c/)G*y1d(WqpXumU8Kqkb1sbiWcaO-07KvCHXlEV4W+d*c/e(G*Kzg(WqpX
  644. G"umUqurgb1sbiWcaO*GbaqbNvCHfeOoF#h)C6b)c/e(G*8Eg(WqpXumU0uqqb1sb
  645. G"iWcaO*GbaqbNvCXQFx2AMHb(0uj)c/)G*mbh(WqpXumUuewfb1sbiWcaO*GbaOj
  646. G"NvCbFSs6vsu)OAe(Gb/e(G*8jn(WqpXumUmeulfGalaGc*b(hz5XfyJ77$Hm)G9
  647. G"*k/q)c)q15)svuqe1urUq0tdb1sfy,kaGcaqH)qX6+a"
  648. N=15599:K=255:IF LEN(C$)<>20799 THEN ?"Bad script!":END
  649. FOR A=1 TO N:LOCATE 1:?STRING$(50/N*A,177):IF L=0 THEN GOSUB G:L=6
  650. 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
  651. ?:IF C=108 THEN ?"Ok":END ELSE ?"Bad checksum!":END
  652. G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
  653. SUB G(A$):SHARED C$:FOR Q=2 TO 9:DO:S=INSTR(A$,CHR$(Q+38))
  654. IF S THEN A$=LEFT$(A$,S-1)+STRING$(Q,97)+MID$(A$,S+1)
  655. LOOP WHILE S:NEXT:C$=C$+A$:END SUB
  656. ---------------------------CUT HERE------------------------ 
  657. Arthur, these are the files we talked about put together with Postit 6.0.  
  658. Let me know what you think as far as converting the format.  These were all 
  659. of the files I got.  This is 4 of 4.  Thanks.  -Keith
  660.  
  661.  
  662. --- Opus-CBCS 1.79.x
  663.  * Origin: Crystal Palace  The Ghost in the Machine  (1:382/1.0)
  664.  
  665.  
  666.  
  667.