home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug048.arc / 1987APR.CAT < prev    next >
Text File  |  1979-12-31  |  55KB  |  1,115 lines
  1. .pl70
  2. .. ^P^D = DOUBLE STRIKE
  3. .. ^P^B = BOLD STRIKE
  4. .. ^P^E = 40 COLUMN EXPANDED PRINT (SELF CANCELLING)
  5. .. ^P^Y = TURN ON AND OFF ITALICS
  6. .. ^P^A = 132 COLUMN PRINT
  7. .. ^P^N = NORMAL PRINT
  8. .. ^P^Q = CONTINIOUS UNDERLINE PRINT
  9. .. ^P^W = TURN OFF UNDERLINE
  10. .po0
  11. .OP
  12. .HE# APRIL - T H E  C A T C H E R -1987 #     
  13. Thσ followinτ i≤ ß lis⌠ oµ thσ 1986/8╖ committee«á Iµ therσ i≤ anythinτ yo⌡ ì
  14. requirσ o≥ an∙ hel≡ yo⌡ caε givσ us¼á pleasσ d∩ no⌠ hesitatσ t∩ contac⌠ an∙ ì
  15. onσ oµ us.
  16. 
  17.               EXECUTIVE  
  18.  
  19. PRESIDENT                               ANDREW BARFOOT           758-4822
  20. VICE-PRESIDENT                          STEVEN JEPSON             45-4226
  21. SECRETARY                               MALCOLM OSBORNE          404-1282
  22. TREASURER                               KEVIN CARR               233-4629
  23. PUBLI├ OFFICE╥                          JOHN BUTTON              578-8145
  24.  
  25.                          COMMITTEE AND ASSISTANTS
  26.  
  27. Chris Anderson           438-3762       Peter Broughton          347-8114
  28. Russell Crosser          383-5307       Bob Denton               233-1483      
  29. Simon Gerraty            557-2501       Mike Holzinger           354-6742 
  30. Jim Lobley               758-9169       Mike Thompson            882-5002
  31. John Mitchell            720-2016
  32.  
  33. SERVICES  PROVIDED  BY  MBUG  AUSTRALIA 
  34.  
  35. DISK FORMAT COPYING JOHN BUXTON  758-5744
  36. RBBS SYSTEM OPERATOR.  MIKE THOMPSON 882-5002
  37. BAZAAR JOHN MITCHELL.  P.O. BOX 157 NUNAWADING 3131  
  38. EDITOR  A. BARFOOT. P.O. BOX 157 NUNAWADING 3131  
  39. MODEM HIRE    C. ANDERSON.  P.O. BOX. 147 DIAMOND CREEK 3089
  40. MEMBERSHIP SECRETARY J. LOBLEY.  P.O. BOX 157 NUNAWADING 3131  
  41. PUBLIC DOMAIN (SIG/M) DISKS  S. JEPSON.  P.O. BOX 8  ROSANNA 3084
  42. ELECTRONIC PARTS DISCOUNT Rod IRVING 425 HIGH ST. NORTHCOTE
  43. COMPUTER BOOK DISCOUNT TECHNICAL BOOKSHOP SWANSTON St. MELBOURNE
  44.  
  45. ADVERTISEMENTS   P.O. BOX 157 NUNAWADING 3131           
  46. $50.00 Full Page   $25.00 Half Page   $15.00 Quarter Page 
  47. $3.00 For service and recurrent items (Less than 5 lines) 
  48. No charge for non recurring private sales items       
  49.  
  50.            GENERAL POLICY    
  51. 
  52. T∩á expeditσ you≥ requests¼á genera∞ correspondencσá t∩         Contribution≤ fo≥ thσ CATCHE╥ ma∙ bσ madσ direc⌠ t∩ thσ        ì
  53. MBU╟á AUS╘á IN├ shoulΣ bσ sen⌠ t∩ ou≥ officia∞á addres≤         editor¼ sen⌠ t∩ thσ RBB╙ o≥ b∙ mail« Contribution≤ wil∞ ì
  54. anΣ  eacΦ enquir∙ shoulΣ bσ oε seperate forms«                  bσ  accepteΣ viß modem¼ disk≤ (│ 1/2ó o≥ ╡ 1/4")¼ tape,
  55.                                                                 writteε o≥ typed«  Contributions will not be considereΣ 
  56. Thσ editor≤ reservσ thσ righ⌠ t∩ edi⌠ al∞ contribution≤         withou⌠ ß namσ anΣ addres≤ and/o≥ membe≥ number« Pleasσ ì
  57. fo≥á thσá sakσá oµ brevity¼á clarit∙á and/o≥á accuracy«         includσ ß S.A.┼ fo≥ returε oµ you≥ tape/disk.          ì
  58. Letter≤á mus⌠á includσá namσ anΣ addres≤á bu⌠á wσá wil∞                ì
  59. withholΣ sucΦ detail≤ iµ s∩ requested«                          AlthougΦá al∞á carσ wil∞ bσ takeεá witΦá contributions¼       ì
  60.                                                                 MBU╟á AUS╘á caεá takσ n∩ responsibilit∙á fo≥á thσá safσì
  61. MBU╟áá AUSTRALI┴á INC«áá it≤á officers¼áá member≤áá anΣ         returε oµ an∙ materia∞ supplied« Iµ returε i≤ critical¼ì
  62. contributor≤á accep⌠ n∩ responsibilit∙ fo≥ an∙á damage≤         (something irreplaceable), don't send it.               ì
  63. causeΣá t∩á an∙ persoε o≥ propert∙á attributeΣá t∩á an∙ ì
  64. advicσ o≥ informatioε publisheΣ iε Thσ CATCHER.                 MBU╟á AUS╘ INC«á doe≤ no⌠ condonσ thσ non-authoriseΣ usσ
  65.                                                                 oµáá copyrigh⌠á software/hardwarσá anΣá thereforσáá als∩
  66. Microworld Basic listings may carry a number at the end         condemn≤ unauthorised copying of such material.           
  67. of each line. eg. {123}. These are checksum numbers and         
  68. shoulΣá shoulΣá no⌠ bσ typeΣ iε a≤ par⌠ oµ thσ listing«á        Contribution≤ no⌠ necessaril∙ endorseΣ b∙ MbuτáAus⌠ Inc.
  69.                                                               
  70. THE CATCHER is published by MBUG AUSTRALIA INCORPORATED  
  71. All copyrights are reserved by MBUG AUSTRALIA INCORPORATED è       FROM TH┼ CHIE╞ MBU╟  FRO═ TH┼ CHIE╞ MBU╟  FRO═ TH┼ CHIE╞ MBU╟  
  72.  
  73.      ╔á aφá partiall∙á pleaseΣ t∩ announcσ thσ winne≥á oµá ou≥á programminτ ì
  74. competition«á ╔á don'⌠ kno≈ iµ i⌠ wa≤ to∩ harΣ o≥ iµ nobod∙ wa≤á interesteΣ ì
  75. bu⌠ wσ onl∙ haΣ threσ entrant≤ witΦ fou≥ entries«á Thσ winne≥ anΣ recipien⌠ ì
  76. oµá mediß t∩ thσ valuσ $25.0░ iε eacΦ categor∙ i≤ Juliaε Loke«á Juliaεá woε ì
  77. witΦá tw∩á entrie≤ botΦ unde≥ 2δ each«á Thσ MBASI├ codσ entereΣ i≤á printeΣ ì
  78. late≥á iε thi≤ issue«á Fo≥ hi≤ troublσ hσ ha≤ pickeΣ u≡ $50.0░ t∩ spenΣá iε ì
  79. thσ Bazaar« Froφ al∞ thσ committee╗ Congratulation≤ Julian« 
  80.  
  81.      Wσá havσ recentl∙ beeε donateΣ ß softwarσ packagσ calleΣá "DEBTMASTERó  ì
  82. froφ Dreamcards¼á thσ peoplσ wh∩ wrotσ thσ adventurσ pacδ prograφ tha⌠á wa≤ ì
  83. revieweΣá recentl∙ iε thσ Catcher«á ┴ versioε oµ thi≤ softwarσ i≤ currentl∙ ì
  84. beinτ publisheΣ iε installment≤ iε "You≥ Computer"«á Thσ versioε donateΣ i≤ ì
  85. newe≥á thaε thσ onσ beinτ publisheΣ anΣ a≤ sucΦ i≤ ß bette≥á package«á Now¼ ì
  86. duσ t∩ thσ norma∞ poo≥ responsσ froφ member≤ wheε i⌠ come≤ t∩ competitions¼ ì
  87. thosσá peoplσá attendinτá thσá MarcΦ meetinτ decideΣá ßá competitioεá oµá ß ì
  88. differen⌠ kinΣ shoulΣ bσ held«á Thi≤ time¼ yo⌡ wil∞ havσ t∩ bσ thσ judgσ oµ ì
  89. thσ entries« Well¼ ho≈ d∩ yo⌡ ente≥ thi≤ competitioε ╔ hea≥ yo⌡ ask┐  
  90.  
  91.      T∩á enter¼á yo⌡ mus⌠ senΣ mσ somethinτ tha⌠ ╔ caε pu⌠ iε thσá Catcher« ì
  92. Entrie≤ mus⌠ bσ markeΣ "competitioε entryó t∩ bσ eligible« Thσ entrie≤ wil∞ ì
  93. bσá s∩ markeΣ iε thσ Catcher«á Thσ competitioε wil∞ bσ judgeΣ oεá wha⌠á thσ ì
  94. member≤á conside≥á t∩ bσ thσ bes⌠ articlσ t∩ appea≥ iε thσ Catche≥á betweeε ì
  95. Ma∙ anΣ thσ Augus⌠ genera∞ meeting« Onl∙ thosσ attendinτ thσ Augus⌠ meetinτ ì
  96. wil∞ bσ ablσ t∩ vote«á  So¼ thσ challengσ is¼ iµ yo⌡ wan⌠ thσ software¼ ge⌠ ì
  97. somethinτ publisheΣ (anΣ lobb∙ hard)«   EAS┘ isn'⌠ it......
  98.  
  99.      A≤ ╔ aε writinτ thi≤ beforσ thσ Ballara⌠ meeting¼á ╔ canno⌠ repor⌠á oε ì
  100. wha⌠ happeneΣ there¼á bu⌠ ╔ caε reminΣ thosσ peoplσ wh∩ wisΦ t∩ attend¼á i⌠ ì
  101. wil∞á bσá helΣ a⌠ thσ Ballara⌠ CA┼ oε Saturda∙ thσ 4tΦ Apri∞ startinτ a⌠á ▓ ì
  102. o'clocδ anΣ endinτ abou⌠ ╣ o≥ 1░ P.M«á N∩ entr∙ charge« ╔ hopσ wσ seσ ß lo⌠ ì
  103. oµ member≤ there« Fo≥ detail≤ seσ thσ las⌠ tw∩ Catchers.
  104.  
  105.      Thi≤ montΦ wσ wil∞ bσ havinτ ß dem∩ oµ "Printmaster"«á Thσ versioεá wσ ì
  106. wil∞á bσ showε i≤ supposeΣ t∩ havσ beeε especiall∙ porteΣ fo≥ thσá Microbeσ ì
  107. (╔á believσá thσá contro∞ key≤ arσ Wordstar┐á oriented)«á Alonτá witΦá thi≤ ì
  108. prograφá wil∞á bσá thσá softwarσá packagσá containinτá somσá hundred≤á morσ ì
  109. pictures«á Wσá wil∞á bσ ablσ t∩ sel∞ thi≤ softwarσ a⌠á ou≥á norma∞á reduceΣ ì
  110. prices«á Brinτá you≥ casΦ o≥ credi⌠ card≤ jus⌠ iε case«á Fo≥ thosσ wh∩ havσ ì
  111. thσ softwarσ alread∙ anΣ ma∙ bσ havinτ problems¼á comσ anΣ ge⌠ you≥ answer≤ ì
  112. direc⌠ froφ thσ Melbournσ distributor.
  113.  
  114.      ┴ ne≈ 256δ Microbeσ ha≤ beeε releaseΣ b∙ M.S«á a⌠ thσ PC8╖ iεá Sydney« ì
  115. WitΦá ß littlσ lucδ wσ ma∙ eveε seσ onσ iε thσ shop≤ (Melb⌐ sooε anΣá maybσ ì
  116. a⌠ ß cluΓ meetinτ night«á Froφ al∞ accounts¼á thσ 256δ wil∞ havσ ß teleterφ ì
  117. keyboarΣ anΣ ß singlσ 800δ drivσ fitted« Pricσ abou⌠ $1500.00┐ Perhap≤ thi≤ ì
  118. i≤á beinτá releaseΣá duσ t∩ thσ rumoreΣ DROPPIN╟ oµ thσá GAMM┴á projectíá ╔ ì
  119. wonde≥ wha⌠ wil∞ happeε t∩ thσ (reported⌐ delivereΣ system≤ no≈ M.S«á i≤ n∩ ì
  120. longe≥ goinτ aheaΣ witΦ thσ project.
  121.  
  122.      AlthougΦá onσ oµ thσ las⌠ line≤ iε m∙ columε thi≤ month¼á i⌠ i≤ b∙á n∩ ì
  123. mean≤ thσ leas⌠ important« Thσ tapσ librar∙ wil∞ ceasσ t∩ exis⌠ iε thσ nea≥ ì
  124. future¼ probabl∙ thi≤ monthí Iµ yo⌡ wan⌠ t∩ bu∙ an∙ oµ thσ tape≤ comσ alonτ ì
  125. t∩ thσ Apri∞ meetinτ anΣ takσ you≥ chances«á Wσ wil∞ bσ sellinτ al∞ oµ theφ ì
  126. excep⌠ fo≥ ß maste≥ cop∙ oµ eacΦ a⌠ ╡ fo≥ $2.00« 
  127.  
  128.  
  129. >ANDRE╫ èDOCUMENTATIO╬ FO╥ KWIKEY.MWB¼ b∙ Juliaε Loke¼ 1987Jan04
  130. Keyboard Macro Utility
  131.  
  132.  Noticσ ª disclaimer      "LIS╘á "¼á o≥ eveε thσ    no⌠á redefinσ thσá at-
  133.                           B╙ ke∙ t∩ bσ thσá samσ    tentioεááá terminatioε
  134.    Permissioε i≤ here-    a≤ DEL.                   key¼á no≥ caε yo⌡á usσì
  135. b∙ granteΣ fo≥ privatσ                              i⌠áá withiεá ßá macro«ì
  136. non-commercia∞á usσ oµ             Usage             Therefore¼ choosσ thi≤ì
  137. thi≤á prograφá a≤á is«                              ke∙ witΦ care«  ╔ sug-
  138. Fee∞á freσ t∩ givσá i⌠       Ruεáá thσáá prograφ    ges⌠ yo⌡ usσ key≤á no⌠ì
  139. awa∙á i⌠á intac⌠á witΦ    KWIKEY.MWBáá anΣáá yo⌡    otherwisσáá needeΣá b∙ì
  140. copyrigh⌠ anΣ documen-    wil∞ bσ prompteΣ fo≥ ß    BASIC¼áá sucΦá a≤á NU╠ì
  141. tation«á  N∩ distribu-    ke∙á whicΦá i≤á t∩á bσ    (ctrl-@)¼ o≥ U╙ (ctrl-ì
  142. tioεá fo≥á profi⌠áá i≤    useΣá a≤ aε attention-    DEL).                 ì
  143. alloweΣáá withou⌠á thσ    terminatioε character«                          ì
  144. author'≤ expres≤á per-    ┴á shor⌠á timσáá afte≥                          ì
  145. mission¼ anΣ thi≤ wil∞    typinτá thi≤ key¼á thσ         How   it   works      ì
  146. NO╘ bσ given«á  Iµ yo⌡    KWIKEY overla∙ wil∞ bσ                          ì
  147. paiΣá mone∙á fo≥á thi≤    installed¼ afte≥ whicΦ       Thσá principlσáá i≤ì
  148. publiπáá domaiεá soft-    thσáá loade≥áá prograφ    quitσáá simple¼ááá bu⌠ì
  149. ware¼á YO╒ werσ rippeΣ    wil∞ removσ itself.       don'⌠áá worr∙á iµá yo⌡ì
  150. off!                                                don'⌠á understanΣáá i⌠
  151.                              A⌠ thi≤ stage¼á thσ    becausσ tha⌠ ha≤ neve≥
  152.      Introduction         overla∙ i≤ active¼ bu⌠    beeεáá ßá prerequisitσ
  153.                           i≤á quitσá transparen⌠    fo≥ usinτ software« Iε
  154.    Man∙ oµ yo⌡ wil∞ bσ    t∩ BASI├ anΣ thσá onl∙    al∞á curren⌠á version≤ì
  155. familia≥ witΦ thσá ke∙    differencσá you'l∞ no-    oµáá MicroworlΣáá tin∙ì
  156. redefinitioεáá memory-    ticσ i≤ tha⌠á keyclicδ    BASIC¼á al∞á inpu⌠á i≤ì
  157. residen⌠áááááá utilit∙    i≤ present.               vectoreΣá througΦá thσì
  158. Qwike∙áá (C⌐á b∙á Ton∙                              INPU╘áá VECTO╥áá tablσì
  159. Fleiτá fo≥á thσáá CP/═       Wheεá yo⌡á wisΦá t∩    froφá 00C2Φ (194d⌐á t∩ì
  160. operatinτááááá system«    redefinσá ß key¼á typσ    00D1Φ (209d)«á  KWIKEYì
  161. Wouldn'⌠ i⌠ bσ nicσ iµ    thσ attention-termina-    trap≤áá thσáá keyboarΣì
  162. ßá simila≥ publiπá do-    tioεá character«á  Thσ    inpu⌠á vecto≥á 0¼á anΣì
  163. maiεá utilit∙ werσá a-    to≡á linσ o≥ line≤á oµ    use≤ thσ code≤ t∩á in-
  164. vailablσáá fo≥á Micro-    thσá screeεá arσá madσ    de°á int∩ ßá macro-de-
  165. worlΣáá Tin∙ááá BASIC«    blanδá anΣá ßáá promp⌠    finitioε table«á  Wheεì
  166. Thi≤áá filσá describe≤    appears«  No≈ typσ thσ    BASI├á ask≤ fo≥ ß key¼ì
  167. sucΦááá aεááá overlay¼    ke∙á yo⌡á wisΦá t∩á bσ    thσ code≤ i⌠ get≤ comσì
  168. KWIKEY¼ anΣ it≤ loade≥    redefined«á  Wheεá yo⌡    froφá thσ tablσá entr∙ì
  169. writteε iεá MicroworlΣ    ge⌠á thσ nex⌠á prompt¼    fo≥áá thσáá las⌠áá ke∙ì
  170. tin∙ BASIC.               typσá thσ ne≈ sequencσ    pushed.               
  171.                           oµ character≤ yo⌡ wisΦ                          
  172.    KeyboarΣ  macros        t∩á replacσá thσáá olΣ       WitΦ thσá exceptioε
  173.                           key«á  Thσá ke∙á code≤    oµá thσ attention-ter-
  174.    Yo⌡ migh⌠ finΣ tha⌠    yo⌡á arσá typinτá wil∞    minatioεááá character¼ì
  175. yo⌡á havσ t∩ typσá thσ    appea≥áá oεá thσáá to≡    eacΦá oµ thσ 12╖á key≤ì
  176. samσ sequence≤ oµ cha-    line«á  Contro∞á code≤    ha≤ it≤ owεá redefina-
  177. racter≤áá quitσá ofteε    appea≥ a≤ thσ RO═ gra-    blσ sequence«á  Wheε ßì
  178. durinτáá ßáá computinτ    phic≤ááááá characters«    ke∙ i≤ redefined¼á thσì
  179. session«á  ┴á keyboarΣ    Wheε yo⌡ arσ finished¼    macro-definitioε tablσì
  180. macr∩á utilit∙á allow≤    typσáá thσá attention-    i≤ updated«á  Therσ i≤ì
  181. yo⌡ t∩ redefinσ ß sin-    terminatioεá characte≥    ß limi⌠ t∩ thσ sizσ oµì
  182. glσ ke∙ s∩ tha⌠ i⌠ caε    again«á  Thσ screeε i≤    thσáááá tablσááá (102┤ì
  183. meaεá an∙ sequencσá oµ    restored¼á anΣ yo⌡ ma∙    bytes)¼á anΣ thi≤á anΣì
  184. character≤á yo⌡á wish«    no≈ usσ thσá redefineΣ    thσá maximuφá sizσá oµì
  185. Fo≥ example¼ yo⌡ migh⌠    ke∙ a≤ ß macro.           eacΦá macr∩ (6┤ bytes⌐ì
  186. redefinσá thσ TA┬á ke∙                              caεá bσá defineΣá wheεì
  187. t∩áá thσááá character≤       Notσá tha⌠ yo⌡ can-    yo⌡ firs⌠ loaΣ KWIKEY«ìè   Thσ overla∙ sit≤ a⌠    tha⌠áá wil∞á savσá anΣ    duceΣ belo≈ fo≥ yo⌡ t∩ì
  188. thσ enΣ oµ use≥á memo-    retrievσá thσá curren⌠    ente≥ b∙ hand«  Pleasσì
  189. ry¼á belo≈ BASIC¼á anΣ    macro-definitioεáá ta-    observσ thσ noticσ anΣì
  190. abovσ thσ stack«á  Thσ    ble.                      disclaime≥ above.     ì
  191. relocatinτ loade≥ wil∞                                                    ì
  192. determinσá thσ sizσ oµ         Distribution            Pleasσá direc⌠á an∙ì
  193. memor∙ fo≥ itself¼ anΣ                              questions¼á enquiries¼ì
  194. wil∞ placσ itselµá be-       KWIKEY.MW┬ááááá anΣ    o≥á request≤á fo≥á thσì
  195. lo≈ othe≥ memor∙ resi-    KWIKEY.DO├á havσá beeε    Z8░ assembl∙á languagσì
  196. den⌠á utilitie≤á (sucΦ    uploadeΣ ont∩ thσ MBU╟    sourcσ fo≥ thσ overla∙ì
  197. a≤ CKSM22)«  T∩ removσ    RCP/═á (Melbournσá 03-    t∩á mσá vißá thσá cluΓì
  198. KWIKEY¼á yo⌡ wil∞ havσ    8821571¼á 7*24h)«  Yo⌡    magazinσ o≥ RBBS.     ì
  199. t∩ reboo⌠ BASIC.          caεá als∩á arrangσá t∩                          
  200.                           ge⌠ ß cop∙ froφ mσá a⌠    END OF DOCUMENTATION  
  201.      Improvements         onσá oµ thσ cluΓ meet-
  202.                           ings«á  A≤ ß fina∞ re-
  203.    I⌠ shoulΣ bσ possi-    sort¼áááá thσáááá filσì
  204. blσ t∩ writσ utilitie≤    KWIKEY.MWBá i≤á repro-
  205.  
  206. PLEAS┼á NOTE║á Thi≤ listinτ ha≤ beeε checksumeΣ witΦ CKSM22.MW┬ anΣ no⌠ thσ ì
  207. new version as published last month (CKSM23.MWB).ED.
  208.  
  209. 00100 REM  █▒┤╡▌
  210. 00110 REM  KWIKEY PATCH LOADER FOR MICROWORLD TINY BASIC  █▒┤╢▌
  211. 00120 REM  █▒┤╖▌
  212. 00130 REM  VERS DATE    NOTES  █▒┤╕▌
  213. 00140 REM  0.10 86JUL27 J.LOKE: ORIGINAL VERSION  █▒┤╣▌
  214. 00150 REM  █▒╡░▌
  215. 00160 REM  DISPLAY HEADER  █▒╡▒▌
  216. 00170 REM  █▒╡▓▌
  217. 00180   PRINT "KWIKEY V0.1 BY J.LOKE 86JUL27"  █░│╡▌
  218. 00190 REM  █▒╡┤▌
  219. 00200 REM  CONSTANTS  █▒┤╢▌
  220. 00210 REM  █▒┤╖▌
  221. 00220   H=256  █▒╕▓▌
  222. 00230   K=1024  █▓▓╕▌
  223. 00240 REM  █▒╡░▌
  224. 00250 REM  PATCH DESTINATION IS 1K BELOW TOP OF MEMORY  █▒╡▒▌
  225. 00260 REM  █▒╡▓▌
  226. 00270   M=1*K  █▓░▒▌
  227. 00280   D=PEEK(160)+PEEK(161)*H-M  █░╖╖▌
  228. 00290 REM  █▒╡╡▌
  229. 00300 REM  TEST IF PATCH IS ALREADY INSTALLED, ABORT IF YES  █▒┤╖▌
  230. 00310 REM  █▒┤╕▌
  231. 00320   O=PEEK(194)+PEEK(195)*H  █▓│▒▌
  232. 00330   IF O<>D+M THEN 390  █▒▒╖▌
  233. 00340     PRINT CHR$(7) CHR$(7) "** ALREADY INSTALLED ERROR"  █▓╡░▌
  234. 00350     END  █▒▒▒▌
  235. 00360 REM  █▒╡│▌
  236. 00370 REM  GET ATTENTION/TERMINATION CODE  █▒╡┤▌
  237. 00380 REM  █▒╡╡▌
  238. 00390   PRINT "ENTER ATTENTION/TERMINATION KEY =";  █▒▓│▌
  239. 00400     A0$=KEY$  █▒▒╡▌
  240. 00410     IF LEN(A0$)=0 THEN 400  █░▓╡▌
  241. 00420   A=ASC(A0$)  █▓░╣▌
  242. 00430   IF A>=32 THEN 450  █░▒╡▌
  243. 00440     A0$="^"+CHR$(A+64)  █░╣╡▌
  244. 00450   PRINT A0$  █▒╕╖▌
  245. 00460 REM  █▒╡┤▌è00470 REM  EXPANSION BUFFER SIZE (NOT TO EXCEED 256)  █▒╡╡▌
  246. 00480 REM  █▒╡╢▌
  247. 00490   V=64  █▒╡┤▌
  248. 00500 REM  █▒┤╣▌
  249. 00510 REM  SET C=205 FOR KEYCLICK, ELSE SET C=195  █▒╡░▌
  250. 00520 REM  █▒╡▒▌
  251. 00530   C=205  █▒╖╡▌
  252. 00540 REM  █▒╡│▌
  253. 00550 REM  KEYCLICK DURATION (CYCLES) AND PERIOD  █▒╡┤▌
  254. 00560 REM  █▒╡╡▌
  255. 00570   X=1  █░╣╕▌
  256. 00580   Y=18  █▒╡╢▌
  257. 00590 REM  █▒╡╕▌
  258. 00600 REM  FLASHING PROMPT PERIOD  █▒╡░▌
  259. 00610 REM  █▒╡▒▌
  260. 00620   F=8*H  █▒╣╖▌
  261. 00630 REM  █▒╡│▌
  262. 00640 REM  LOAD OFFSETS FOR LABELS  █▒╡┤▌
  263. 00650 REM  █▒╡╡▌
  264. 00660   READ B  █▓╡░▌
  265. 00670   DIM L(B)  █░╕╢▌
  266. 00680   FOR I=1 TO B  █░││▌
  267. 00690     READ O  █░▒░▌
  268. 00700     L(I)=D+O  █▒▓░▌
  269. 00710     NEXT I  █░│▓▌
  270. 00720 REM  █▒╡│▌
  271. 00730 REM  CHECK LABEL OFFSETS READ CORRECTLY  █▒╡┤▌
  272. 00740 REM  █▒╡╡▌
  273. 00750   READ B  █▓╡░▌
  274. 00760   IF B=-1 THEN 820  █▓▒░▌
  275. 00770     PRINT CHR$(7) CHR$(7) "** LABEL COUNT ERROR"  █░╖▓▌
  276. 00780     END  █▒▒╕▌
  277. 00790 REM  █▒╢░▌
  278. 00800 REM  LOAD PATCH INTO DESTINATION ONE BYTE AT A TIME  █▒╡▓▌
  279. 00810 REM  █▒╡│▌
  280. 00820   P=D  █▒░╖▌
  281. 00830   READ B  █▓┤╣▌
  282. 00840   IF B<0 THEN 910  █▒╢▓▌
  283. 00850     POKE P,B  █▒│╕▌
  284. 00860     P=P+1  █▓▒╡▌
  285. 00870     GOTO 830  █▒▒╡▌
  286. 00880 REM  █▒╢░▌
  287. 00890 REM  CHECK THAT CORRECT NUMBER OF BYTES WERE READ  █▒╢▒▌
  288. 00900 REM  █▒╡│▌
  289. 00910   READ O  █░░╡▌
  290. 00920   IF P=D+O THEN 980  █░╢╣▌
  291. 00930     PRINT CHR$(7) CHR$(7) "** DATA COUNT ERROR"  █░░░▌
  292. 00940     END  █▒▒╢▌
  293. 00950 REM  █▒╡╕▌
  294. 00960 REM  SET UP INITIAL KEY EXPANSION TABLE  █▒╡╣▌
  295. 00970 REM  █▒╢░▌
  296. 00980   P=L(10)-3  █▒┤░▌
  297. 00990   O=L(11)+2  █▒│╕▌
  298. 01000   FOR I=0 TO 127+1  █▓┤╖▌
  299. 01010     POKE P,O  █▒╕╕▌
  300. 01020     POKE P+1,O/H  █▒┤┤▌
  301. 01030     POKE O,I  █▒╕│▌
  302. 01040     P=P+2  █▓╡╡▌
  303. 01050     O=O+1  █▓╡│▌è01060     NEXT I  █░╖╣▌
  304. 01070 REM  █▓░░▌
  305. 01080 REM  REDIRECT THE INPUT VECTOR TO THE PATCH  █▓░▒▌
  306. 01090 REM  █▓░▓▌
  307. 01100   I=PEEK(228)  █░╣░▌
  308. 01110   POKE 228,0  █▓│┤▌
  309. 01120   POKE 194,D  █░░▒▌
  310. 01130   POKE 195,D/H  █▒▓▓▌
  311. 01140   POKE 228,I  █░░╢▌
  312. 01150 REM  █▒╣╣▌
  313. 01160 REM  MOVE TOP OF MEMORY BELOW PATCH CODE  █▓░░▌
  314. 01170 REM  █▓░▒▌
  315. 01180   POKE 160,D  █░░░▌
  316. 01190   POKE 161,D/H  █▒▓▒▌
  317. 01200 REM  █▒╣╡▌
  318. 01210 REM  INDICATE KWIKEY ACTIVE  █▒╣╢▌
  319. 01220 REM  █▒╣╖▌
  320. 01230   PRINT "KWIKEY LOADED."  █░╢╢▌
  321. 01240 REM  █▒╣╣▌
  322. 01250 REM  RESTART BASIC WITH NEW POINTERS  █▓░░▌
  323. 01260 REM  █▓░▒▌
  324. 01270   NEW  █▒╕░▌
  325. 01280 REM  █▓░│▌
  326. 01290 REM  DATA DIVISION  █▓░┤▌
  327. 01300 REM  █▒╣╢▌
  328. 01310 REM  NO OF LABELS, FOLLOWED BY OFFSETS FOR LABELS  █▒╣╖▌
  329. 01320 REM  █▒╣╕▌
  330. 01330 DATA 12  █░╢╕▌
  331. 01340 DATA 24,  241, 259, 281, 284, 299, 325, 329  █▓░░▌
  332. 01350 DATA 330, 335, 588, M-V  █░▒│▌
  333. 01360 DATA -1  █░╢╢▌
  334. 01370 REM  █▓░│▌
  335. 01380 REM  PATCH CODE, TERMINATED BY -1  █▓░┤▌
  336. 01390 REM  █▓░╡▌
  337. 01400 DATA 197, 213, 229, 33,  L(8),L(8)/H,   126, 183  █▒╢│▌
  338. 01410 DATA 40,  14,  53,  42,  L(9),L(9)/H,   126, 35  █▓░╖▌
  339. 01420 DATA 34,  L(9),L(9)/H,   191, 225, 209, 193, 201  █▒╡╕▌
  340. 01430 DATA 205, L(6),L(6)/H,   32,  247, 254, A,   40  █░▒▓▌
  341. 01440 DATA 11,  111, 205, L(3),L(3)/H,   125, 33,  L(8)  █▒┤▒▌
  342. 01450 DATA L(8)/H,   119, 24,  220, 33,  0,   240, 17  █▒┤▒▌
  343. 01460 DATA L(12),L(12)/H, 1,   V,   V/H, 237, 176, 6  █░╕┤▌
  344. 01470 DATA V,   43,  54,  32,  16,  251, 235, 33  █▒╢┤▌
  345. 01480 DATA L(7),L(7)/H,   14,  4,   237, 176, 235, 35  █░▒╡▌
  346. 01490 DATA 205, L(4),L(4)/H,   254, A,   202, L(2),L(2)/H  █░╕▒▌
  347. 01500 DATA 119, 229, 33,  L(12),L(12)/H, 237, 91,  L(11)  █░┤╢▌
  348. 01510 DATA L(11)/H,  175, 237, 82,  180, 22,  V-1, 32  █░╢╕▌
  349. 01520 DATA 7,   125, 198, 7,   186, 48,  1,   87  █▒░╡▌
  350. 01530 DATA 225, 35,  30,  61,  115, 35,  205, L(5)  █░╖┤▌
  351. 01540 DATA L(5)/H,   254, A,   40,  7,   95,  125, 186  █▒▓╡▌
  352. 01550 DATA 56,  242, 24,  242, 125, 214, 7,   50  █▓▓╣▌
  353. 01560 DATA L(8),L(8)/H,   42,  5,   240, 205, L(3),L(3)/H  █░▓╢▌
  354. 01570 DATA 189, 40,  84,  56,  34,  149, 79,  6  █▒╢│▌
  355. 01580 DATA 0,   235, 229, 197, 35,  35,  94,  35  █▓░▒▌
  356. 01590 DATA 86,  42,  L(11),L(11)/H, 183, 237, 82,  197  █▒╢╣▌
  357. 01600 DATA 227, 193, 40,  38,  237, 91,  L(11),L(11)/H  █▒╡▒▌
  358. 01610 DATA 27,  25,  235, 237, 184, 24,  27,  149  █░│╕▌
  359. 01620 DATA 79,  6,   255, 235, 229, 197, 35,  35  █░░▒▌
  360. 01630 DATA 94,  35,  86,  42,  L(11),L(11)/H, 183, 237  █▒▒░▌
  361. 01640 DATA 82,  197, 227, 193, 40,  4,   25,  235  █▓┤╡▌è01650 DATA 237, 176, 193, 225, 58,  5,   240, 198  █▒░░▌
  362. 01660 DATA 128, 35,  35,  94,  35,  86,  235, 9  █▒╡╢▌
  363. 01670 DATA 235, 114, 43,  115, 60,  32,  242, 237  █░╖│▌
  364. 01680 DATA 91,  L(9),L(9)/H,   58,  L(8),L(8)/H,   79,  6  █▓▓▓▌
  365. 01690 DATA 0,   183, 40,  5,   33,  7,   240, 237  █░╕▓▌
  366. 01700 DATA 176, 33,  L(12),L(12)/H, 17,  0,   240, 1  █▓┤░▌
  367. 01710 DATA V,   V/H, 237, 176, 33,  L(8),L(8)/H,   112  █▒┤│▌
  368. 01720 DATA 195, L(1),L(1)/H,   38,  0,   41,  17,  L(10)  █░┤╕▌
  369. 01730 DATA L(10)/H,  25,  86,  43,  94,  43,  70,  43  █▒░╕▌
  370. 01740 DATA 78,  237, 67,  L(9),L(9)/H,   235, 237, 66  █░╕╖▌
  371. 01750 DATA 201, 1,   F,   F/H, 205, L(6),L(6)/H,   200  █░┤░▌
  372. 01760 DATA 11,  120, 177, 32,  247, 62,  127, 150  █░╖┤▌
  373. 01770 DATA 119, 24,  238, C,   PEEK(194),PEEK(195),192, 245  █░╣┤▌
  374. 01780 DATA 211, 9,   197, 6,   X*2, 14,  Y,   13  █▒╡▓▌
  375. 01790 DATA 32,  253, 219, 2,   238, 64,  211, 2  █▒╕╡▌
  376. 01800 DATA 16,  243, 193, 241, 201, 75,  101, 121  █▒▒▓▌
  377. 01810 DATA 58,  0  █▒╖│▌
  378. 01820 DATA -1  █░╢╖▌
  379. 01830 DATA 330  █▒▓┤▌
  380. 01840 END  █▒╢┤▌
  381.  
  382.  
  383.                                BACKGAMM.BEE
  384.                      Alan Laughton  -  MBUG Member 679
  385.  
  386. Thi≤ prograφ froφ thσ MBU╟ Tapσ Librar∙ haΣ beeε runninτ successfull∙ oε m∙ ì
  387. CIA┬á fo≥ quitσ ß while«á Al∞ wa≤ wel∞ unti∞ ╔ up-gradeΣ t∩ ß 128╦ Premium« ì
  388. I⌠á jus⌠á didn'⌠ run«á Thσ probleφ wa≤ founΣ t∩ bσ thσá versioεá oµá Basic« ì
  389. CIAB'≤ haΣ eithe≥ 6.22σ o≥ 6.23σ Basiπ whilσ thσ 128╦ Prem« ha≤ 6.28e.
  390.  
  391. B∙á loadinτá thσ prograφ int∩ memor∙ anΣ usinτ thσ inbuil⌠ Monitor¼á ╔á wa≤ ì
  392. ablσ t∩ finΣ │ Call≤ t∩ Basic«á Al∞ m∙ book≤ witΦ Memor∙ map≤ listeΣá show≤ ì
  393. A62╞ a≤ VD╒ ou⌠ - ┴ register¼á eveε thσ Premiuφ manual« However¼ witΦ 6.28σ ì
  394. Basiπá i⌠á i≤ a⌠ A62┼ - ▒ bytσ loweríá It≤ ß simplσ matte≥ oµ changinτá thσ ì
  395. codσ a⌠ thσ │ place≤ thσ call≤ arσ made« ╔ useΣ SUPERZA╨ t∩ d∩ this.
  396.  
  397. The code to change is as follows:-
  398.  
  399. Sector 6  at 330 there is CD 2F A6 - change to CD 2E A6
  400. Sector 7  at 3B6   "    "  "  "  "     "     "  "  "  "
  401. Sector 1A at D7D   "    "  "  "  "     "     "  "  "  "
  402.  
  403. BACKGAMM.BE┼ no≈ run≤ witΦ Basiπ 6.28σ anΣ no⌠ thσ others« Al∞ ╔ havσ t∩ d∩ ì
  404. i≤ learε ho≈ t∩ pla∙ thσ game« Bes⌠ oµ luck.
  405.  
  406. From: MARK GLOVER        To:   ALL           Re:   MONITOR FOR SALE
  407. 
  408. ON┼ OL─ BLAC╦ AN─ WHIT┼ MONITO╥ (CONVERTE─ TV⌐ FO╥ SALE« HA╙ BEE╬ MARKE─ BU╘ I╘ STIL╠ GOES« $30.
  409. 
  410. From: ROBERT NEWMAN      To:   ALL      Re:   HELP 1248-6 AND 56K
  411. 
  412. Caε anyonσ hel≡ me┐á ╔ bough⌠ ß workinτ 1248-╢ maiε boarΣ a⌠ thσ MBE┼ sale« ╔ aφ tryinτ t∩ ge⌠ m∙ 56δ corσ boarΣ t∩ work« Thσ 1248-╢ ì
  413. i≤ standarΣ anΣ ha≤ link≤ D-E¼á F-G¼á H-╔ connected« ╔ havσ disconnecteΣ A-┬ anΣ addeΣ  R7¼ wheε ╔ switcΦ i⌠ oε i⌠ display≤ thσ Disδ ì
  414. Monito≥ anΣ doe≤ no⌠ acces≤ thσ Drive«á Thσ 56╦ corσ boarΣ i≤ O╦ anΣ wheε ╔ attacΦ ß 3▓ Roφ Corσ boarΣ Basiπ work≤ wheε it≤ switcheΣ ì
  415. on« I≤ therσ anothe≥ link(s⌐ t∩ change┐ possibl∙ L-K« An∙ hel≡ woulΣ bσ appreciated.
  416. 
  417. From: ANDREW DORAN       To:   ALL           Re:   MEMORY CHIPS
  418. 
  419. Doe≤ anyonσ kno≈ wha⌠ sor⌠ oµ chip≤ anΣ extra'≤ arσ requireΣ t∩ upgradσ froφ 64δ t∩ 128k« A⌠ presen⌠ Θ ruε CIAB«                 è                         MIS├ DIS├ FRO═ DREAMCARDS
  420.  
  421.                   Software Review     B∙ Malcolφ Osborne
  422.  
  423.      Thi≤á disδá contain≤á ßá collectioεá oµá miscellaneou≤á program≤á froφ ì
  424. Dreamcard≤á Software«á Thi≤ disδ i≤ aut∩ bootinτ jus⌠ placσ i⌠ iε thσ drivσ ì
  425. anΣ pres≤ rese⌠ anΣ awa∙ wσ go.
  426.  
  427.      ┴á shor⌠ introductioε i≤ displayeΣ als∩ ß warninτ t∩ softwarσá pirate≤ ì
  428. tha⌠á ß piratσ cop∙ oµ thi≤ disδ wil∞ causσ disδ drivσ heaΣá missalignment« ì
  429.  
  430. Thσ maiε men⌡ theε follow≤ a≤ such.
  431.  
  432.                Instruction≤    [I▌      Disassemble≥    [D]
  433.                Psychoteπ       [P▌      Psi-Tes⌠        [X]
  434.                Squadroε        [S▌      Treδ            [T]
  435.  
  436.                       WhicΦ prograφ d∩ yo⌡ wan⌠ ┐ [*]
  437.  
  438.  
  439. Iµ yo⌡ pres≤ thσ [I▌ ke∙ yo⌡ arσ thσ prompteΣ agaiε by
  440.  
  441. WhicΦ prograφ d∩ yo⌡ wan⌠ ┐ [*].
  442.  
  443. B∙á pressinτ thσ correc⌠ ke∙ ß brieµ Descriptioε wil∞ bσ displayeΣá oεá thσ ì
  444. prograφ selected.
  445. 
  446. PSYCHOTEC:
  447. 
  448.      Psychoteπ i≤ you≥ Silicoε chi≡ psychiatrist«á Thi≤ prograφ i≤ baseΣ oε ì
  449. thσ Elizß prograφ bu⌠ i⌠ ha≤ ß mucΦ large≥ vocabular∙ anΣ doe≤ comσ u≡ witΦ ì
  450. somσ ver∙ interestinτ questions« Thi≤ prograφ wil∞ makσ yo⌡ dra≈ u≡ ou≥ owε ì
  451. conclusion≤á t∩ ß problem¼á ß fuε anΣ interestinτ program«á Therσ i≤ als∩ ß ì
  452. Manua∞ availablσ fo≥ Psychoteπ fo≥ aε extrß $5.0░ fo≥ peoplσ interesteΣá iε ì
  453. ho≈ thσ wholσ prograφ i≤ pu⌠ together«    
  454.        
  455. SQUADRON:
  456. 
  457.      Squadroε i≤ aε arcadσ stylσ gamσ alonτ thσ linσ oµ Galaxians« Squadroε ì
  458. i≤ ß ver∙ wel∞ writteε gamσ witΦ gooΣ clea≥ flicke≥ freσ graphics¼ anΣ gooΣ ì
  459. qualit∙á sound«á B∙á pressinτ thσ esπ ke∙ yo⌡ arσ ablσ t∩ alte≥á thσá speeΣ ì
  460. settings¼ shootinτ rate¼ sounΣ  anΣ joysticδ control« ┴ fas⌠ gamσ witΦ lot≤ ì
  461. oµ action.
  462. 
  463. DISASSEMBLER:
  464. 
  465.      Disassembler«á Wha⌠á morσ caε  ╔ say┐á  Disassemble≥ i≤ ß disassemble≥ ì
  466. witΦá outpu⌠ t∩ eithe≥ ß disδ filσ o≥ thσ printer«á Aε approximatσ timσá t∩ ì
  467. completσá disassambl∙ i≤ giveε anΣ thσ wholσ prograφ i≤ men⌡á driven«á Thi≤ ì
  468. prograφ i≤ s∩ simplσ eveε ╔ caε usσ it«   
  469. 
  470. PSI-TEST:
  471. 
  472.      Psi-Test«á Thi≤á i≤ ß prograφ t∩ tes⌠ you≥ power≤ oµ ES╨ b∙á evaluatinτ ì
  473. you≥á abilit∙á t∩ predic⌠ ß serie≤ oµ randoφ choice≤ madσ b∙á thσá compute≥ ì
  474. betweeε ▓ o≥ │ objects« Iε ES╨ modσ thσ compute≥ select≤ onσ objec⌠ anΣ yo⌡ ì
  475. mus⌠á choicσ whicΦ objec⌠ ha≤ beeε selected«á Iε K╨ modσ yo⌡ mus⌠ wil∞á thσ ì
  476. compute≥á t∩ selec⌠ ß specifiπ object«á ┴ fuε prograφ fo≥ al∞ thosσá peoplσ ì
  477. wh∩ believσ iε minΣ power.              èTREK:
  478. 
  479. Trek«á Thi≤ i≤ ß ver∙ soupeΣ u≡ versioε oµ thσ Z-TRE╦ game«á ┴ lo⌠ oµá worδ ì
  480. ha≤á gonσá int∩á thi≤ prograφ anΣ thσ finisheΣ produc⌠ show≤á i⌠á all«á Thσ ì
  481. instruction≤á caε bσ outputteΣ t∩ you≥ printe≥ anΣ arσ ver∙ hand∙á t∩á havσ ì
  482. closσá b∙ unti∞ yo⌡ kno≈ ho≈ t∩ pla∙ thσ gamσ properly«á You≥ missioε i≤ t∩ ì
  483. destro∙ thσ Volan≤ usinτ you≥ spacσ ship«á thi≤ i≤ ß ver∙ comple° gamσá bu⌠ ì
  484. i⌠ i≤ thσ bes⌠ gamσ oµ Sta≥ Treδ ╔ havσ played.
  485.  
  486. Thi≤á Softwarσ i≤ availablσ froφ Dreamcard≤ oε │ 1/▓ o≥ ╡ 1/┤ incΦ disδ fo≥ ì
  487. $34.9╡ plu≤ 20Ñ sale≤ ta° anΣ &2.0░ postage«á Plu≤ $5.0░ iµ yo⌡ woulΣá likσ ì
  488. thσ Psychoteπ manual.
  489.  
  490.           Writσ t∩ DREAMCARD╙ ╕ HIGHLAN─ COUR╘ ELTHA═ NORT╚ 3095.
  491.  
  492.                                  ooOO=OOoo
  493.  
  494. 
  495. From: FRED QUINLAN       To:   ALL      Re:   Mbee conversions
  496. 
  497. I≤á i⌠á possiblσá t∩ conver⌠ ß 32δ serie≤ │ communicato≥ beσ t∩á 128δá CP/═ ì
  498. operatinτ systeφ withou⌠ changinτ thσ mothe≥ board« 
  499. 
  500. From: ANDREW BARFOOT     To:   ALL      Re:   PRINTER WANTED
  501. 
  502. ON┼ ONL┘ DOT-MATRI╪ PRINTE╥ WANTED« SECON─ HAN─ I╬ GOO─ CONDITIO╬ REQUIRED« ì
  503. PLEAS┼ LEAV┼ MESAG┼ O╬ B┬ O╥ PHON┼ M┼ A╘ M┘ HOM┼ NUMBE╥ 
  504. 
  505. From: PETER BROUGHTON    To:   ALL      Re:   512k Premium 4 sale
  506. 
  507. 512δá disδ baseΣ Premiuφ keyboarΣ fo≥ sale«á Thi≤ i≤ 128δ Premiuφ tha⌠á ha≤ ì
  508. beeε upgradeΣ t∩ 512k« Come≤ witΦ operatinτ systeφ t∩ makσ usσ oµ thσ extrß ì
  509. memor∙á anΣ i≤ completel∙ compatiblσ witΦ ß norma∞ 128k«á WitΦ ßá 414δá Raφ ì
  510. disδá thi≤á make≤ aε excellen⌠ (anΣ fast⌐ Microbee«á To≡ conditioεá - $450« ì
  511. Als∩ ╔ havσ ß Microbeσ 703░ Colou≥ Monito≥ fo≥ sale«á Wil∞ sui⌠ Microbeσ o≥ ì
  512. others¼á eg«á IB═á witΦ CG┴ colou≥ graphic≤ board¼á etc«á A≤ ne≈á (include≤ ì
  513. cable⌐ - $500« ono« Contac⌠ Pete≥ Broughtoε oε thσ RBB╙ o≥ A/╚ oε 347-8114.
  514. 
  515. From: ERIC REABURN       To:   ALL      Re:   TELCOM CURSOR
  516. 
  517. AR┼á YO╒á SIC╦ O╞ ┴ FLASHIN╟ BLOC╦ I╬ TELCO═ 2.2«á WOUL─ YO╒á LIK┼á ┴á NIC┼ ì
  518. FAMILIA╥á FLASHIN╟á UNDERLIN┼ INSTEAD┐á THE╬ TR┘ THIS║á CHANG┼ TH┼ BYT┼á A╘ ì
  519. 351C╚ FRO═ 60╚ T╧ 6AH« THI╙ BYT┼ I╙ TH┼ CUR╙ CURSO╥ MOD┼ FO╥ TH┼ 654╡ CRTC.
  520. 
  521. From: ANGELO VIRGONA     To:   ALL      Re:   MICROBEE FOR SALE
  522. 
  523. HI¼ ╔ HAV┼ ┴ MICROBE┼ C.I.A.B« DUA╠ DIS╦ SYSTE═ FO╥ SALE« WIT╚ TH┼ SYSTE═ ╔ ì
  524. ALS╧á WAN╘ T╧ SEL╠ ┴ SPEEC╚ SYNTHESIZER,EPRO═ PROGRAMME╥ AN─á EPRO═á READE╥ ì
  525. WIT╚ DRIVIN╟ SOFTWARE« FO╥ MOR┼ INF╧ CONTAC╘ M┼ ON║ 57╣ 279▓ » 53▒ 169│ 
  526.  
  527. 
  528. DEFINITION:
  529. 
  530.  
  531. mole (mol)
  532. Thσ molσ i≤ thσ amoun⌠ oµ substancσ whicΦ contain≤ a≤ man∙ elementar∙ unit≤ ì
  533. a≤á therσ arσ atom≤ iε 0.01▓ kilogrammσ oµ carbon-12«á Thσ elementar∙á uni⌠ ì
  534. mus⌠ bσ specifieΣ anΣ ma∙ bσ aε atom¼á ß molecule¼á aε ion¼á aε electron¼ ß ì
  535. photon, etc., or a given group of such entities.è                                 LOAN.PAS
  536.  
  537. Some WRITELN commands are indented so they fit the magazine. ED 
  538.  
  539. {Loan Repayment Calculator by Paul Shannon MBUG member 1219}
  540. {Calculates the total amount and total interest paid on a reducing balance
  541. loan.}
  542.  
  543. var
  544.    INTEREST, BAL, INITBAL, PRINC, INTERESTRATE, REPAYMENT, REPAYTEST,
  545.    INITREPAYMENT, REPAYMENTSUM, FINALPAYMENT, INTERESTSUM,
  546.    MAXPAYMENT, STEP : REAL;
  547.    MONTH, YEAR : INTEGER;
  548.    MULTDISPLAY, AGAIN, VIDEO : CHAR;
  549.  
  550. procedure YESORNO (var YES {output} : CHAR);
  551.  
  552.   begin {Yes or No}
  553.     YES := ' ';
  554.     while (YES <> 'N') and (YES <> 'Y') do
  555.       begin
  556.         WRITE ('  (Y/N) ');
  557.         READLN (YES);
  558.         YES := UPCASE (YES)
  559.       end;
  560.   end; {Yes or No}
  561.  
  562. procedure TITLES;
  563.   begin
  564.     CLRSCR;
  565.     WRITELN ('Loan Repayment Calculator' : 40);
  566.     WRITELN ('By Paul Shannon' : 35);
  567.     WRITELN;
  568.     WRITELN
  569. ('   This utility program is designed to calculate the total TIME, total');
  570.     WRITELN     
  571. ('REPAYMENTS, and total INTEREST, on a reducing balance loan.  All ');
  572.     WRITELN 
  573. ('calculations are based on monthly interest calculations, and monthly');
  574.     WRITELN ('repayments.');
  575.     WRITELN;
  576.     WRITELN 
  577. ('   The difference between this and most other loan calculators, 
  578.      is it''s ability');
  579.     WRITELN 
  580. ('to automatically increment the repayment rate, and recalculate the loan,');
  581.     WRITELN ('accordingly.');
  582.     WRITELN;
  583.     WRITELN 
  584. ('   While you are entering the data, you will be asked if you wish to do');
  585.     WRITELN 
  586. ('multiple calculations.  Should you answer yes, 
  587.                the computer will recalculate');
  588.     WRITELN 
  589. ('your loan as many times as desired, each time incrementing the 
  590.           repayment rate');
  591.     WRITELN 
  592. ('by a set step size.  This should prove very useful when deciding how much');
  593.     WRITELN ('you wish to pay off your loan each month.')è  end; {Titles}
  594. procedure INPUT;
  595.   begin
  596.     WRITELN;
  597.     INITBAL := 0;
  598.     while INITBAL < 0.01 do
  599.       begin
  600.         WRITE ('Enter the PRINCIPAL to be borrowed:  $'); READLN (INITBAL)
  601.       end;
  602.     PRINC := INITBAL;
  603.     INTERESTRATE := 100;
  604.     while (INTERESTRATE >= 100) or (INTERESTRATE < 0) do
  605.       begin
  606.         WRITE ('Enter the YEARLY (%) INTEREST RATE:  ');
  607.         READLN (INTERESTRATE)
  608.       end;
  609.     INTERESTRATE := INTERESTRATE / 1200;
  610.     REPAYTEST := INITBAL * INTERESTRATE;
  611.     REPAYMENT := REPAYTEST - 1;
  612.     WRITE ('Multiple loan calculations?');
  613.     YESORNO (MULTDISPLAY);
  614.     while REPAYMENT <= REPAYTEST + 0.01 do
  615.       begin {Repayment test}
  616.         WRITE ('Enter the ');
  617.           if MULTDISPLAY = 'Y' then
  618.             WRITE ('MINIMUM ');
  619.           WRITE ('monthly repayment (must be greater than $',
  620.           REPAYTEST : 8 : 2, ')  $'); READLN (REPAYMENT)
  621.       end {Repayment test};
  622.     if MULTDISPLAY = 'Y' then
  623.       begin {Multiple calculations}
  624.         MAXPAYMENT := PRINC + 1;
  625.         while MAXPAYMENT > PRINC do
  626.           begin
  627.             WRITE ('Enter the MAXIMUM monthly repayment:  $');
  628.             READLN (MAXPAYMENT)
  629.           end;
  630.         WRITE ('Enter the step size:  $'); READLN (STEP)
  631.       end {Multiple calculations}
  632.   end; {Input}
  633.  
  634. procedure DISPLAY;
  635.   begin
  636.     WRITE ('Do you wish to display the calculations?');
  637.     YESORNO (VIDEO);
  638.     if VIDEO = 'Y' then
  639.       begin
  640.         WRITELN;
  641.         WRITELN ('(Use CTRL-S to pause.)');
  642.         WRITELN;
  643.         DELAY (2000);
  644.         WRITELN ('Month' : 8, 'Initial' : 12, 'Interest' : 17,
  645.                  'Repayment' : 15, 'Final' : 13);
  646.         WRITELN ('Balance' : 20, 'Balance' : 45);
  647.         WRITELN
  648.       end
  649.     else
  650.       begin
  651.         WRITELN;è        WRITELN ('Please wait.')
  652.       end
  653.   end; {Display}
  654.  
  655. procedure CALCULATE;
  656.   begin
  657.     MONTH := 0;
  658.     REPAYMENTSUM := 0;
  659.     INITBAL := PRINC;
  660.     while INITBAL >= 0.01 do
  661.       begin {calculate loop}
  662.         MONTH := MONTH + 1;
  663.         INTEREST := INITBAL * INTERESTRATE;
  664.         if REPAYMENT > INITBAL + INTEREST then
  665.           begin
  666.             FINALPAYMENT := INITBAL + INTEREST;
  667.             REPAYMENTSUM := REPAYMENTSUM + FINALPAYMENT;
  668.             BAL := INITBAL + INTEREST - FINALPAYMENT
  669.           end
  670.         else
  671.           begin
  672.             REPAYMENTSUM := REPAYMENTSUM + REPAYMENT;
  673.             BAL := INITBAL + INTEREST - REPAYMENT
  674.           end;
  675.         if VIDEO = 'Y' then
  676.            WRITELN (MONTH : 5, INITBAL : 15 : 2, INTEREST : 15 : 2,
  677.            REPAYMENT : 15 : 2, BAL : 15 : 2);
  678.         INITBAL := BAL
  679.       end; {calculate loop}
  680.       YEAR := MONTH div 12;
  681.       MONTH := MONTH mod 12
  682.     end; {Calculate}
  683.  
  684. procedure PRINT_SINGLE;
  685.   begin
  686.     WRITELN;
  687.     WRITELN ('STATISTICS:');
  688.     WRITELN;
  689.     WRITELN ('Principal borrowed:  $', PRINC : 10 : 2);
  690.     WRITELN ('Interest Rate:', INTERESTRATE * 1200 : 18 : 2,
  691.             '% p.a. (compounded montly) ');
  692.     WRITELN ('Repayment rate:   $', REPAYMENT : 13 : 2, ' per month');
  693.     WRITELN;
  694.     WRITE ('Time:  ', YEAR : 25, ' Year');
  695.     if YEAR <> 1 then
  696.       WRITE ('s');
  697.     WRITE (' and ', MONTH, ' month');
  698.     if MONTH <> 1 then
  699.       WRITELN ('s')
  700.     else WRITELN;
  701.     WRITELN ('Total Repayments:  $', REPAYMENTSUM : 12 : 2);
  702.     WRITELN ('Total Interest:    $', REPAYMENTSUM - PRINC : 12 : 2)
  703.   end; {Printout}
  704.  
  705. procedure MULTIPLE;
  706. var
  707.   LINE : INTEGER;
  708.   CONTINUE : CHAR;
  709. è  begin
  710.    LINE := 0;
  711.    VIDEO := 'N';
  712.    CONTINUE := 'Y';
  713.    WRITELN;
  714.    WRITELN ('$', PRINC : 12 : 2, ' at ', INTERESTRATE * 1200 : 5 : 2,
  715.      ' % p.a.');
  716.    WRITELN;
  717.    WRITELN 
  718. ('    Monthly              Time              Total          Total');
  719.    WRITELN 
  720. ('   Repayment                            Repayments      Interest');
  721.    WRITELN;
  722.    while (REPAYMENT <= MAXPAYMENT) and (CONTINUE <> 'N') do
  723.       begin
  724.         CALCULATE;
  725.         LINE := LINE + 1;
  726.         WRITE (REPAYMENT : 10 : 2, YEAR : 9, ' year');
  727.         if YEAR <> 1 then
  728.           WRITE ('s, ')
  729.         else
  730.           WRITE (',  ');
  731.         WRITE (MONTH : 2, ' month');
  732.         if MONTH <> 1 then
  733.           WRITE ('s')
  734.         else
  735.           WRITE (' ');
  736.         WRITELN (REPAYMENTSUM : 14 : 2, REPAYMENTSUM - PRINC : 14 : 2);
  737.         REPAYMENT := REPAYMENT + STEP;
  738.         if LINE > 22 then
  739.           begin
  740.             LINE := 0;
  741.             WRITE ('More?');
  742.             YESORNO (CONTINUE);
  743.           end {if}
  744.       end {while}
  745.   end; {Multiple}
  746.  
  747. begin {Main Program}
  748.   TITLES;
  749.     AGAIN := 'Y';
  750.     while AGAIN = 'Y' do
  751.       begin
  752.         INPUT;
  753.         if MULTDISPLAY = 'N' then
  754.           begin
  755.             DISPLAY;
  756.             CALCULATE;
  757.             PRINT_SINGLE
  758.           end
  759.         else
  760.           MULTIPLE;
  761.           WRITELN;
  762.           WRITE ('Any more calculations?');
  763.           YESORNO (AGAIN)
  764.     end {Again}
  765. end. {Main Program}
  766.  
  767. è               TRACKIN╟ AROUN─ YOUR 3 1/2" DISK b∙ ─ WORTHY
  768.  
  769.          (AdopteΣ froφ Cairn≤ Microbeσ User≤ Grou≡ b∙ Johε Button)
  770.  
  771. Therσá arσ quitσ ß fe≈ gooΣ program≤ arounΣ tha⌠ le⌠ yo⌡ wande≥ arounΣá anΣ ì
  772. looδá a⌠á wha⌠á i≤á oε ß disk«á Thi≤ caε bσ interestinτá bu⌠á confusinτá o≥ ì
  773. dangerou≤á iµá yo⌡á don'⌠á kno≈  wherσ yo⌡ arσá anΣá yo⌡á can'⌠á speaδá thσ ì
  774. language«á  ╔á hopσá t∩á providσ yo⌡ witΦ somσ semblancσ oµ ßá ma≡á anΣá aε ì
  775. insigh⌠á int∩ thσ term≤ useΣ b∙ somσ oµ thesσ programs«á ╔ aφ no⌠ surσá ho≈ ì
  776. mucΦ oµ thi≤ relate≤ t∩ ╡ 1/4ó anΣ doublσ sideΣ │ 1/2ó disks.
  777.  
  778. Firs⌠ thσ term≤ useΣ wheε talkinτ disks:-
  779. 
  780. Bit≤  -  thσ mos⌠ basiπ elemen⌠ oµ an∙ compute≥ informatioε storeΣ oε disk« ì
  781. I≤ equa∞ t∩ onσ (1⌐ o≥ (0)« Don'⌠ worr∙ abou⌠ thi≤ onσ !!
  782. 
  783. Byte≤  -  wheε eigh⌠ bit≤ ge⌠ together¼á the∙ forφ  ß byte«á Thi≤ i≤ onσ t∩ ì
  784. remember« Wheε yo⌡ looδ a⌠ you≥ memory¼ usinτ thσ monito≥ o≥ ß peeδ commanΣ ì
  785. iε basic¼ wha⌠ yo⌡ seσ i≤ ß Bytσ oµ information« Thi≤ i≤ froφ 00╚ t∩ FF╚ iε ì
  786. he° o≥ ░ t∩ 25╡ iε decimal« ╔ coulΣ writσ anothe≥ articlσ oε wh∙ wσ usσ he° ì
  787. anΣá binar∙á anΣ no⌠ decima∞ bu⌠ ╔ won't«á Iµ some-onσ elsσ woulΣá likσá t∩ ì
  788. though¼á thσá Edito≥á woulΣá bσ pleaseΣ anΣ s∩ woulΣ I...«á ┴ bytσá i≤á thσ ì
  789. smalles⌠á piecσá oµ informatioε o≥ datß wσ wil∞ bσ dealinτ witΦ anΣá i⌠á i≤ ì
  790. normall∙ iε He° bu⌠ mos⌠ decen⌠ editinτ program≤ allo≈ tex⌠  entr∙ a≤á wel∞ ì
  791. t∩ makσ thing≤ easier.
  792. 
  793. Sector≤á  -  ┴á secto≥á contain≤ 12╕ byte≤ anΣ i≤ normall∙á thσá amoun⌠á oµ ì
  794. informatioε displayeΣ b∙ thσ editinτ prograφ anΣ als∩ b∙ thσ monitor« I⌠ i≤ ì
  795. thσ smalles⌠ amoun⌠ oµ memor∙ capablσ oµ beinτ reaΣ t∩ o≥ froφ ß disk« Thi≤ ì
  796. i≤ differen⌠ t∩ thσ smalles⌠ amoun⌠ oµ memor∙ takeε u≡ b∙ storinτ somethinτ ì
  797. t∩ disk¼ bu⌠ morσ oµ tha⌠ next.
  798. 
  799. Blocδá  -  ┴ blocδ consist≤ oµ 1╢ sector≤ o≥ 204╕ byte≤ o≥ 2╦ a≤ yo⌡á woulΣ ì
  800. normall∙ say«á  No≈ iµ yo⌡ savσ ß ver∙ shor⌠ filσ t∩ disk¼á yo⌡ wil∞ noticσ ì
  801. tha⌠á i⌠á stil∞á consume≤á 2╦ oµ spacσ íá  Thi≤ i≤ becausσá disδá spacσá i≤ ì
  802. allocateΣ iε blocks«á  Remembe≥ thi≤ one¼ i⌠ i≤ important« You≥ saveΣ shor⌠ ì
  803. filσá thereforσ take≤ u≡ onσ secto≥ oµ onσ blocδ anΣ thereforσ use≤ u≡á onσ ì
  804. entirσ blocδ oµ disδ spacσ o≥ 2K.
  805. 
  806. Extent≤á  -  Thσ numbe≥ oµ sector≤ useΣ t∩ storσ you≥ program«á  Iµá i⌠á i≤ ì
  807. morσá thaε 1╢ (0FH⌐ sector≤ theε morσ thaε onσ blocδ wil∞ bσ useΣ t∩á storσ ì
  808. i⌠á bu⌠á thσá numbe≥ oµ extent≤ wil∞ bσ thσ tota∞ numbe≥ oµá sector≤á used«  ì
  809. Thi≤ wil∞ bσ cleare≥ wheε wσ ge⌠ t∩ thσ Director∙ par⌠ oµ thσ disk.
  810.  
  811. Thσá firs⌠ tracδ oε thσ disδ i≤ tracδ 0«á  Thσ firs⌠ secto≥ oε thσ disδá i≤ ì
  812. secto≥ 1«  Therσ i≤ n∩ secto≥ 0.
  813.  
  814. Thσ firs⌠ tw∩ track≤ oε thσ disδ arσ reserveΣ fo≥ thσ System«á  Thi≤á woulΣ ì
  815. requirσ morσ spacσ thaε ╔ havσ t∩ fil∞ t∩ explain«á  Als∩ ╔ don'⌠ kno≈ mucΦ ì
  816. abou⌠ i⌠ myselµ !!!íá s∩ thσ bes⌠ ╔ caε d∩ i≤ refe≥ yo⌡ t∩ chapte≥ ▒ oµ thσ ì
  817. CP/═á tutoria∞á iε you≥ manua∞ anΣ iµ yo⌡ understanΣ i⌠ anΣ caε explaiεá i⌠ ì
  818. morσ clearly¼ wσ woulΣ likσ anothe≥ articlσ please.
  819.  
  820. Thσ nex⌠ tracδ i≤ N∩ 2«á  Thi≤ i≤ wortΦ rememberinτ sincσ i⌠ i≤ wherσá you≥ ì
  821. director∙ i≤ stored«  ┴ samplσ director∙ entr∙ appear≤ belo≈ :-
  822.  
  823.      0░ 5│ 4┤ 5╡ 4─ 5░ 2░ 2░ 2░ C│ 4╞ 4─ 0░ 0░ 0░ 0╡  .SDUM╨   COM....
  824.      0╢ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░  .......« .......
  825. èThσ to≡ lef⌠ 0░ i≤ ou≥ firs⌠ bi⌠ oµ vita∞ datß !!íá Thi≤ tell≤ yo⌡ tha⌠ thσ ì
  826. filσ ha≤ no⌠ beeε deleted«  Aε E5╚ mean≤ tha⌠ i⌠ ha≤ beeε deleted«  Iε fac⌠ ì
  827. E5╚ i≤ useΣ t∩ fil∞ thσ disδ wheε i⌠ i≤ formatteΣ s∩ iµ yo⌡ looδ pas⌠ wherσ ì
  828. thσá file≤á finisΦá o≥ a⌠ ß newl∙ formatteΣ disk¼á al∞ yo⌡ shoulΣá seσá arσ ì
  829. E5H's«á  Thσá ╚ i≤ onl∙ therσ t∩ sho≈ I'φ usinτ he° number≤ al∞á thσá time«  ì
  830.  
  831. Thi≤ firs⌠ numbe≥ caε als∩ bσ iε thσ rangσ 00╚ t∩ FFH¼ t∩ indicatσ iε whicΦ ì
  832. use≥á areßá thσá filσá i≤ located«á Fo≥ aε explanatioε oµá use≥á area≤á seσ ì
  833. Diskettσ Organisatioε ¼á Chapte≥ ╖ Sectioε ▒ oµ ou≥ manual«á Notσ als∩ tha⌠ ì
  834. thσá ASCI╔á equivalen⌠ occur≤ oε thσ lef⌠ hanΣ sidσ anΣ sincσ therσá i≤á n∩ ì
  835. ASCI╔ equivalen⌠ oµ 00H¼á ß ful∞ sto≡ i≤ useΣ instead¼  Onl∙ value≤ betweeε ì
  836. 20╚ anΣ 7E╚ comσ u≡ a≤ tex⌠ oε thσ righ⌠ hanΣ side«  2E╚ oµ coursσ come≤ u≡ ì
  837. a≤ ß rea∞ ful∞ sto≡ bu⌠ i⌠ tend≤ t∩ blenΣ iε ....
  838.  
  839. Thσ nex⌠ 1▒ position≤ arσ useΣ u≡ b∙ thσ prograφ name╗á ╕ position≤ fo≥ thσ ì
  840. namσá whicΦ i≤ lef⌠ justifieΣ anΣ paddeΣ witΦ space≤ (20H⌐ fo≥á name≤á tha⌠ ì
  841. arσ les≤ thaε eigh⌠ characters╗ │ postion≤ fo≥ thσ extensioε typσ (eg« COM¼ ì
  842. WBF¼á MW┬á etc⌐á whicΦ i≤ als∩ lef⌠ justifieΣ anΣ paddeΣ fo≥ extension≤á oµ ì
  843. les≤ thaε │ characters«á  Notσ thσ ful∞ sto≡ doesn'⌠ exis⌠ a⌠ thi≤á time!!í  ì
  844. Thσ namσ ABCDEFGH.IJ╦ appear≤ a≤ ABCDEFGHIJ╦ iε thσ directory«  Thi≤ i≤ wh∙ ì
  845. unuseΣá space≤á arσá replaceΣ b∙ spaces«á  Thσ lef⌠ hanΣ ASCI╔á displa∙á i≤ ì
  846. normall∙á divideΣ u≡ int∩ tw∩ group≤ oµ eight«á  Notσ thσ ga≡á betweeεá thσ ì
  847. dot≤ oε thσ seconΣ line.
  848.  
  849. Thσ nex⌠ │ position≤ arσ normall∙ 00╚ anΣ havσ n∩ functioε tha⌠ ╔ kno≈ of« 
  850.  
  851. Oεá thσ righ⌠ hanΣ enΣ oµ thσ to≡ linσ i≤ thσ numbe≥ 05H«á  Thi≤ tell≤á thσ ì
  852. compute≥ ho≈ man∙ sector≤ thσ disδ use≤ t∩ storσ thσ prograφ SDUMP.COM«  Iε ì
  853. thi≤ casσ i⌠ i≤ 05╚ o≥ 5.
  854.  
  855. Wσá no≈á g∩ oε t∩ thσ lowe≥ line«á  I⌠ tell≤ thσ compute≥ iε whicΦá logica∞ ì
  856. blocδá thσ prograφ informatioε i≤ stored«á  B∙ Logica∞ Block¼á ╔á meaεá thσ ì
  857. block≤ arσ numbereΣ froφ thσ director∙ area«á  Thi≤ mean≤ tha⌠ blocδ 00╚ i≤ ì
  858. situateΣá a⌠á thσ star⌠ oµ tracδ 2«á  Thσ director∙ occupie≤ thσ firs⌠á tw∩ ì
  859. logica∞ block≤ oε tracδ ▓ anΣ thσ firs⌠ datß i≤ oε blocδ 02H«  Iε thi≤ casσ ì
  860. thσ datß i≤ storeΣ iε blocδ 06H«á  Iµ thσ filσ SDUMP.CO═ i≤ eraseΣ anΣá E5╚ ì
  861. appear≤ a⌠ thσ start¼ theε thσ blocδ numbe≥ 06╚ i≤ freσ t∩ bσ useΣ agaiε iµ ì
  862. needed«á  Iεá thσ casσ oµ ß freshl∙ formatteΣ disk¼á wherσ file≤ arσ copieΣ ì
  863. ove≥á anΣá n∩ erasure≤ havσ takeε place¼á thσ allocateΣ blocδá number≤á arσ ì
  864. sequentia∞ 0▓ 0│ 0┤ etc«á  A≤ file≤ arσ eraseΣ anΣ addeΣ though¼ block≤ arσ ì
  865. freσ u≡ ou⌠ oµ orde≥ anΣ thσ followinτ blocδ recorΣ coulΣ appea≥ 0┤ 2┴á 11«  ì
  866.  
  867. Thi≤á mean≤ thσ firs⌠ blocδ oµ thσ prograφ i≤ iε blocδ 04H¼á thσ nex⌠ 2δ i≤ ì
  868. iε blocδ 2A╚ anΣ thσ remainde≥ i≤ iε blocδ 11H«  Thσ tex⌠ oε thσ righ⌠ wil∞ ì
  869. bσá meaningles≤á anΣ wil∞ simpl∙ represen⌠ thσ blocδ informatioε iεá ASCII« ì
  870.  
  871. Now¼á iµ wσ havσ 1╢ hole≤ fo≥ storinτ thσ blocδ informatioε  anΣ eacΦ blocδ ì
  872. i≤á 2╦ long¼á i⌠ doesn'⌠ takσ aε Einsteiε t∩ figurσ ou⌠ tha⌠ ß filσá longe≥ ì
  873. thaε 32╦ need≤ morσ room!!íá  Wha⌠ happen≤ now¼ i≤ anothe≥ entr∙ i≤ createΣ ì
  874. witΦ thσ samσ namσ anΣ thσ blocδ record≤ carr∙ oε oε thσ seconΣ line«á  Thσ ì
  875. numbe≥á oµ extent≤ iε eacΦ casσ ha≤ ß maximuφ valuσ oµ 80╚ fo≥ eacΦá entry«  ì
  876. Onσá gooΣá examplσá i≤ thσ Spellsta≥ dictionar∙ whicΦ i≤á abou⌠á 96δá long!  ì
  877.  
  878. Therσ arσ threσ entrie≤ iε thσ directory¼á eacΦ witΦ thσ samσ namσ anΣ eacΦ ì
  879. witΦá 1╢ blocδ records«á  Whilσ thσ firs⌠ tw∩ record≤ havσ 80╚ extent≤á thσ ì
  880. thirΣ ha≤ onl∙ 78╚ indicatinτ tha⌠ therσ arσ n∩ block≤ storeΣ furthe≥ on.
  881.  
  882. Thσá lengtΦ oµ thσ director∙ i≤ 3▓ sector≤ o≥ ▓ blocks«á Thi≤ mean≤á 128*3▓ ì
  883. Byte≤á iεá thσ Directory«á EacΦ entr∙ i≤ 3▓ Byte≤ lonτ s∩ thi≤á mean≤á onl∙ ìè(128*32)/32=12╕á entrie≤á pe≥ disk«á  Iµ yo⌡ exceeΣ 12╕á entrie≤á yo⌡á wil∞ ì
  884. receivσ ß "Director∙ Fulló erro≥ messagσ anΣ thi≤ caε occu≥ beforσ thσ disδ ì
  885. i≤ full!!!
  886.  
  887. Afte≥ thσ director∙ block≤ star⌠ thσ prograφ data«  Thi≤ caε bσ codσ files¼ ì
  888. databasσ records¼á wordprocesso≥ file≤ etc.«á Somσ wil∞ makσ sensσ t∩á you¼ ì
  889. other≤ wil∞ not« Somσ code≤ appea≥ iε al∞ files¼ however¼ thesσ arσ 1A╚ anΣ ì
  890. E5H«  1A╚ i≤ thσ enΣ oµ filσ messagσ anΣ oncσ you≥ prograφ see≤ ß streaφ oµ ì
  891. thesσá i⌠ know≤ thσ filσ i≤ a⌠ aε end«á  E5╚ ╔ mentioneΣ beforσ anΣ i≤ useΣ ì
  892. t∩ fil∞ thσ disδ wheε i⌠ i≤ formatted¼á bu⌠ i⌠ i≤ als∩ useΣ t∩ fil∞á unuseΣ ì
  893. area≤ oµ thσ blocδ afte≥ thσ prograφ datß finishes.
  894.  
  895. Bacδá oε thσ subjec⌠ oµ tracks¼á sector≤ anΣ blocks«á  Blocδ 00╚ i≤ tracδ ▓ ì
  896. secto≥ 1«á  Blocδ 01╚ i≤ tracδ ▓ secto≥ 17«  Blocδ 02╚ i≤ tracδ ▓ secto≥ 3│ ì
  897. anΣ a≤ yo⌡ caε seσ therσ i≤ n∩ simplσ patterε betweeε blocδá number¼á tracδ ì
  898. numbe≥á anΣá Secto≥ number«á  Thσ reasoε i≤ tha⌠ therσ arσ 4░á sector≤á pe≥ ì
  899. tracδ anΣ 1╢ sector≤ pe≥ blocδ s∩ the∙ ge⌠ ou⌠ oµ ste≡ striagh⌠ away«á  Onσ ì
  900. program¼á calleΣá XAMN.CO═á allow≤á yo⌡ t∩ calculatσ blocδ froφá tracδá anΣ ì
  901. secto≥á anΣ als∩ tracδ anΣ secto≥ froφ thσ block¼á thσ onl∙ troublσá i≤á i⌠ ì
  902. want≤á thσá blocδ numbe≥ iε decima∞ s∩ yo⌡ neeΣ ß conversioεá char⌠á handy«  ì
  903. Anothe≥ prograφ calleΣ SUPERZAP.CO═ allow≤ yo⌡ t∩ selec⌠ eithe≥ ß filσ o≥ ß ì
  904. secto≥ t∩ examine«  REMBE╥ tha⌠ change≤ madσ witΦ thesσ disδ utilitie≤ makσ ì
  905. change≤á directl∙ t∩ thσ disδ s∩ bσ carefu∞ anΣ iµ possiblσ d∩ experimenta∞ ì
  906. worδ oε ß backu≡ disk.
  907.  
  908.  
  909. From: MICHAEL HOBBY      To:   PAUL SMITH    Re:  MBEE CONNECT SENDATTA 1200B
  910. 
  911. A╬á ARTICL┼ I╬ YOU╥ COMPUTE╥ "BE┼ MODE═ GET╙ ┴ P├ O╞ TH┼ ACTIONó FE┬ 198╡ ¼á DESCRIBE╙ TH┼ BEEMODE═ ª HO╫ T╧ HOO╦ I╘ U╨ T╧ A╬á OTHE╥ ì
  912. COMPUTER«á EVE╥ WHIC╚ EVE╥ WA┘ YO╒ G╧ WIT╚ NO╬ MICROBE┼ AN─ MICROBE┼ EQUIPMEN╘ TH┼ THIN╟ T╧ WATC╚ I╙ TH┼ 1░ VOLT╙ O╬ PI╬á NINE«á TH┼ ì
  913. MICROBE┼ USE╙ PIN╙ ▓ TXD¼á │ RXD¼á ╡ CTS¼ ╖ GR─ ╣ POWER¼ 2┤ CLK« I╞ YOU╥ EQUIPMEN╘ HA╙ IT`╙ OW╬ POPOWE╥ D╧ NO╘ CONNEC╘ PI╬ ╣ ¼ I╞ I╘ ì
  914. DOE╙ NO╘ 1░ VOLT╙ I╙ AVAILABL┼ O╬ PI╬ 9« RIN╟ M┼ O╬ 43╡ 201╢ I╞ YO╒ CA╬ NO╘ GE╘ ┴ COP┘ O╞ TH┼ ABOV┼ ARTICLE« 
  915. 
  916. From: BERNARD HOLKNER    To:   ALL           Re:   SOFTWARE FOR SALE
  917. 
  918. EDASM¼á  MYTE╦ WORDPROCESSO╥ ROMS« ALS╧ MISC« TAPES« Thσ ROM╙ arσ froφ aε earl∙ machine¼ completσ witΦ manuals«  Als∩ variou≤ games¼ ì
  919. utilitie≤ oε cassette«  Makσ aε offer« Leavσ messagσ o≥ cal∞ 87╢ 3048«    
  920. 
  921. From: MALCOLM OSBORNE    To:   ALL           Re:   EPROM FOR SALE
  922. 
  923. 276┤ EPROM«á  TH┼ EPR═ I╙ BURN╘ T╧ RU╬ TH┼ BE┼ ╬ TAL╦ PROGRA═ FO╥ TH┼ BEE-TALKER« I╘ WIL╠ FI╘ INT╧ ON┼ O╞ TH┼ SOCKET╙ I╬ ┴ RO═ BASE─ ì
  924. BE┼ AN─ I╙ ACCESSE─ B┘ TH┼ PA╦ COMMAND« TH┼ COS╘ ONL┘ $5.0░ ┴ CHEA╨ PRIC┼ FO╥ EITHE╥ ┴ BLAN╦ O╥ PROGRA═ RO═ PHON┼ 40┤ 128▓ 
  925. 
  926. From: ERIC REABURN       To:   ALL           Re:   PD interpreters
  927. 
  928. Doe≤á anyonσ kno≈ wherσ ╔ caε ge⌠ m∙ hand≤ oε Publiπ Domaiε LIS╨ o≥ PROLOG┐á ╔ kno≈ ╔ sa≈ XLIS╨ arounΣ somewherσ once¼á bu⌠ ╔á can'⌠ ì
  929. remembe≥ whereí Thσ situatioε i≤ no⌠ desperatσ YET¼ bu⌠ an∙ hel≡ woulΣ bσ greatl∙ appreciated.
  930. 
  931. From: JASON PLOZZA       To:   ALL           Re:   AVTEK MODEM
  932. 
  933. COUL─ AN┘ ON┼ TEL╠ M┼ HO╫ T╧ GE╘ A╬ AVTE╦ MULT╔ MODE═ T╧ WOR╦ WIT╚ TH┼ AUT╧ DIA╠ AUT╧ ANSWER«á THANK╙ :JASO╬ PLOZZ┴ ALS╧ WHER┼ CA╬ ╔ ì
  934. GE╘ ┴ NE╫ SECON─ DRIV┼ FO╥ ┴ CIA┬ O╥ ┴ GOO─ SECON─ HAN─ ONE.
  935. 
  936. From: LINDSAY SMITH      To:   ALL           Re:   SALE OF 128K PREMIUM
  937. 
  938. 128╦á MICROBE┼ PREMIU═ FO╥ SAL┼ DUA╠ 3.╡ IN«á FLOPP┘ DIS╦ DRIVES¼á AMBE╥ MONITOR¼á MODE═ (1200/7╡ ª 30░ BAUD)¼á HEAP╙ O╞ SOFTWAR┼á - ì
  939. ALMOS╘ NE╫ PURCHASE─ DE├ 198╢ SEL╠ FO╥ $120░ PHON┼ LINDSA┘ O╬ 05▒ 222124
  940. 
  941. è                     COMPETITION WINNER  MAGIC-SQ.BAS
  942.  
  943. 10 GOTO 200
  944. 20 FOR J=0 TO N:K=-1: R=0: FOR I=J TO N: S=ABS(A(I,J)):IF S>R THEN K=I:R=S
  945. 30 NEXT: IF K=-1 THEN 70 ELSE FOR I=J TO N: SWAP A(J,I),A(K,I):
  946.    NEXT: SWAP B(J),B(K)
  947. 40 FOR I=J+1 TO N: S=A(I,J):G=ABS(S):IF G=0 THEN 65ELSE R=A(J,J):H=ABS(R)
  948. 50 F=G-(G\H)*H:G=H:H=F:IF F>0 THEN 50
  949. 60 A(I,J)=0:R=R/G:S=S/G:FOR K=J+1 TO N:A(I,K)=R*A(I,K)-S*A(J,K):
  950.    NEXT:B(I)=R*B(I)-S*B(J)
  951. 65 NEXT
  952. 70 NEXT:K=0:M=N
  953. 80 IF M<0 THEN 190
  954. 90 IF E<ABS(A(M,M))THEN 160
  955. 100 X(M)=9
  956. 110 J=M+1:R=X(M)
  957. 120 IF J>=N THEN 130 ELSE IF R=X(J)THEN 140 ELSE J=J+1:GOTO 120
  958. 130 L(K)=M:K=K+1:M=M-1:GOSUB 80:K=K-1:M=L(K)
  959. 140 X(M)=X(M)-1:IF X(M)>E THEN 110
  960. 150 RETURN
  961. 160 D=B(M):FOR J=M+1 TO N:D=D-A(M,J)*X(J):NEXT:D=D/A(M,M):X(M)=D:
  962.     IF(D<1)OR(9<D)THEN RETURN
  963. 170 IF D-INT(D+E)>E THEN RETURN ELSE J=M+1
  964. 180 IF J>=N THEN M=M-1:GOTO 80ELSE IF(D=X(J))THEN RETURN ELSE J=J+1:GOTO 180
  965. 190 PRINT" A  B  C  D  E  F  G  H  J  X":FOR J=0 TO N:PRINT X(J);:NEXT:
  966.     PRINT:Q=Q+1:RETURN
  967. 200 DEFINT F-Q:I=J:K=G:H=F:P=Q:M=0:N=10-1:R=S:D=0:E=.001:
  968.     DIM A(N,N),B(N),L(N),X(N)
  969. 210 FOR J=0 TO 4:READ B(J):NEXT:FOR I=0 TO 3:FOR J=0 TO 3:READ A0$:
  970.     K=INSTR("ABCDEFGHJX",A0$)-1:A(J,K)=A(J,K)+1:A(I+5,K)=A(I+5,K)+1:
  971.     IF I+J=3 THEN A(4,K)=A(4,K)+1
  972. 220 IF I=J THEN A(N,K)=A(N,K)+1
  973. 230 NEXT:READ B(I+5):NEXT:FOR J=0 TO 3:READ B(J):NEXT:READ B(N):FOR J=0 TO N-1:
  974.     A(0,J)=A(0,J)+1:NEXT:B(0)=B(0)+45
  975. 240 GOSUB 20:IF Q=0 THEN PRINT"NO SOLUTIONS"
  976. 250 END
  977. 260 DATA 21,16,16,26,11
  978. 270 DATA B,X,G,D,24
  979. 280 DATA C,G,A,H,20
  980. 290 DATA H,A,J,E,19
  981. 300 DATA F,E,C,B,16
  982. 310 DATA 21,16,16,26,27
  983. 320 END
  984. 330 REM COPYRIGHT (C) 87JAN23 J.LOKE
  985.  
  986.  
  987.  
  988. From: JAMES MURRAY       To:   ALL           Re:   RF CONVERTERR
  989. 
  990. ╔ neeΣ aε R╞ converte≥ s∩ tha⌠ ╔ caε usσ m∙ compute≥ oε thσ tv«á I'vσ trieΣ runninτ i⌠ througΦ thσ vide∩ inpu⌠ oε thσ vide∩ recorde≥ ì
  991. bu⌠ thσ picturσ keep≤ rollinτ u≡ thσ screen« Doe≤ anyonσ kno≈ wherσ ╔ caε ge⌠ one?
  992. 
  993. From: PETER BURBIDGE     To:   ALL           Re:   DISZILOG HELP WANTED
  994. 
  995. Doe≤ anyonσ havσ thσ .DO├ filσ fo≥ DISZILOG.COM┐á ╔ wan⌠ t∩ kno≈ wha⌠ thσ labe∞ type≤ mean¼á a≤ generateΣ b∙ DISZILOG«á Ultimatel∙ ╔ ì
  996. woulΣá likσá t∩á usσá DISZILO╟ unde≥ SUBMI╘ t∩ savσ havinτ t∩ ente≥ BYT┼ anΣ WOR─ addresse≤ b∙ hand«á An∙ advisσ oεá thi≤á woulΣá bσ ì
  997. gratefull∙ accepted« Iµ yo⌡ caε hel≡ pleasσ leavσ messagσ o≥ phonσ 72╢ 7126« 
  998.  
  999. è                               LAST MEETING
  1000.  
  1001. Thσ las⌠ meetinτ wa≤ fairl∙ wel∞ attended«á Thσ Presiden⌠ informeΣ us a≤ t∩ ì
  1002. wha⌠á thσá cluΓá i≤ u≡ t∩ thi≤ month«á Thσ firs⌠ iteφ thi≤á montΦá wa≤á thσ ì
  1003. programminτ competitioε whicΦ therσ haΣ onl∙ beeε │ entrie≤ t∩ date« Iµ yo⌡ ì
  1004. founΣ thi≤ probleφ to∩ hard¼ pleasσ le⌠ ß membe≥ oµ thσ committeσ know« 
  1005.  
  1006. Theεá camσá thσ announcemen⌠ oµ anothe≥ competitioε fo≥ eithe≥ thσ bes⌠á o≥ ì
  1007. mos⌠ usefu∞ articlσ  iε thσ Catcher« Wha⌠ i≤ requireΣ i≤ aε articlσ fo≥ thσ ì
  1008. Catche≥ t∩ bσ publisheΣ betweeε Ma∙ anΣ August¼ thσ cluΓ membershi≡ presen⌠ ì
  1009. a⌠á thσ Augus⌠ meetinτ wil∞ judgσ thσ bes⌠ entr∙ b∙ vote«á Thi≤ competitioε ì
  1010. i≤á opeε t∩ al∞ member≤ oµ thσ cluΓ anΣ thσ prizσ i≤ thσá softwarσá packagσ  ì
  1011. DEB╘á MASTE╥á  whicΦá ha≤á beeεá ver∙ kindl∙ donateΣá b∙á Lindsa∙á ForΣá oµ ì
  1012. Dreamcard≤á Software«á S∩ no≈ i⌠ i≤ u≡ t∩ yo⌡ senΣ iε an∙ articlσ yo⌡á likσ ì
  1013. whethe≥ i⌠ i≤ software¼á ß ti≡ o≥ ß review«á Al∞ entrie≤ wil∞ bσ treateΣ a≤ ì
  1014. equa∞ b∙ thσ Membership« 
  1015. ì
  1016. Bargain≤á t∩á bσá haΣ iε thσ Bazaa≥ thi≤ montΦ werσ ╡ 1/4ó Mem∩á Disk≤á fo≥ ì
  1017. $1.50«á Thσ cluΓ ha≤ pu⌠ togethe≥ ß rea∞ timσ clocδ ki⌠ fo≥ thσá Bee«á Thi≤ ì
  1018. ki⌠ i≤ thσ samσ a≤ thσ onσ supplieΣ b∙ Microbeσ System≤ fo≥ $80.0░ bu⌠ cos⌠ ì
  1019. onl∙á thσ smal∞ suφ oµ $20.00«á Al∞ thosσ peoplσ interesteΣá contac⌠á Keviε ì
  1020. Carr«á Therσá werσ t∩ bσ │ display≤ thi≤ montΦ bu⌠ thσ persoε wh∩ wa≤ t∩ d∩ ì
  1021. thσ dem∩ oµ to≡ oµ thσ clas≤ didn'⌠ sho≈ up« 
  1022.  
  1023. Russel∞á Crosse≥á haΣá ßá displa∙ se⌠ u≡ oε thσá publiπá domaiεá serie≤á oµ ì
  1024. MUSICRAF╘á programs«á Musicraf⌠ involve≤ buildinτ u≡ ß smal∞ devicσ witΦ aε ì
  1025. amplifie≥á tha⌠á plug≤ int∩ thσ paralle∞ port¼á wheε yo⌡ ruεá thσá softwarσ ì
  1026. Musiπ caε bσ heard«á Al∞ differen⌠ type≤ oµ wavσ form≤ caε bσ hearΣá cominτ ì
  1027. froφá thi≤ unusua∞ device«á Yo⌡ arσ ablσ t∩ writσ you≥ owε musiπ anΣá alte≥ ì
  1028. yo⌡ owε waveforφ t∩ producσ anythinτ o≥ sounΣ tha⌠ yo⌡ woulΣ like¼á I founΣ ì
  1029. i⌠á ver∙ interesting«á Thσ nex⌠ dem∩ wa≤ b∙ Wa∞ Hanson«á  Thσá prograφá wa≤ ì
  1030. calleΣ Facσ Bender«á I  aφ unablσ t∩ tel∞ yo⌡ t∩ mucΦ abou⌠ thi≤ prograφ a≤ ì
  1031. ╔á haΣá t∩ leavσ earl∙ tha⌠ night«á Iµ yo⌡ havσ an∙ prograφ tha⌠ yo⌡á woulΣ ì
  1032. likσ t∩ dem∩ t∩ thσ cluΓ o≥ hardwarσ yo⌡ woulΣ likσ t∩ dem∩ pleasσá contac⌠ ì
  1033. thσ Secretary« Til∞ nex⌠ meeting.            Regard≤ Malcolφ 
  1034.  
  1035. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  1036.  
  1037. SENDATA Modem with 300 & 1200/75 auto dial/answer $200.00 ONO. A/H 354-6742 
  1038.  
  1039.  
  1040. 64k CIAB. $500.00   Contact Tony SMITH 798-5606
  1041.  
  1042. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  1043.  
  1044. DEFINITION:
  1045. 
  1046. candela (cd)
  1047. Thσ candel≤ i≤ thσ luminou≤ intensit∙ iε thσ perpendicula≥ direction¼á oµ ß ì
  1048. surfacσá oµá 1/60░ 00░ squarσ mete≥ oµ ß blacδ bod∙ a⌠ thσá temperaturσá oµ ì
  1049. freezing platinium under a pressure of 101 325 newtons per square meter.
  1050. 
  1051. ?? HELP   ??   HELP    ??    HELP    ??
  1052.  
  1053. DRAM core PCB -- working or not.. Contact Cliff Chambers.  A/H. 762-6220 
  1054.  
  1055. Microbee FORTH for 32k Bee.   Phone 836-0316
  1056.  
  1057. ?? HELP   ??   HELP    ??    HELP    ??è
  1058. *** BAZAAR SALES *** BAZAAR SALES *** 
  1059.  
  1060.       CODE DESCRIPTION                                  PRICE     CODE DESCRIPTION                                  PRICE
  1061.                  "The Catcher"
  1062.       02BC Volume 2 (Oct.83-Sept.84)                    $15.00    30CS Blank C-30 Cassettes                         $ 1.50
  1063.       03BC Volume 3 (Oct.84-Sept.85)                    $15.00    30CB Blank C-30 Cassettes (20 per box)            $25.00
  1064.       02TC Back Issues (Vol 2 Nos. 6/7)                 $ 3.00    3SDB Blank 3.5" Disks, NASHUA SSDD, Box of 10     $40.00
  1065.                                                                   3SDS Blanδ 3.5ó Disk≤, NASHUA SSDD Singles        ñ 5.00
  1066.       5HCK Drive Head Cleaning Kit 5.25"                $12.00    3DSF Blank 3.5" Disks BASF DSDD Plastic Box of 5  $25.00
  1067.       3HCK Drive Head Cleaning Kit 3.5"                 $15.00    5DDSáBlanδ 5.25ó Disks PRECISION DSDD Box of 10   $20.00
  1068.       01D├ Dus⌠ Cover≤ fo≥ 'BE┼                         ñ 6.0░    5DSS Blank 5.25" Disks, NASHUA DSDD  Singles      $ 2.00 
  1069.                                                                   5MDS Blank 5.25" Disks (DSDD Coloured Covers)       
  1070.                                                                        (Packed in Plastic Box of Ten)               $30.00                                                      
  1071.       80PR Carboε Printe≥ Ribboε                                  
  1072.                 (suit xyz.80/100 printers)              $ 8.00    5B85 Disk Storage Box 5.25" (Lockable, holds 85)  $18.00
  1073.                                                                   5B10 Disk Library Box 5.25" (holds 10)            $ 3.00 
  1074.     **10PP 1250 sheets cont. printer paper              $15.00    3B40 Disk Storage Box 3.5" (Lockable, holds 40)   $18.00
  1075.       01BA BeeArtistic (Graphic S/W)                    $35.00    1FPF Flashprint (with Flashkey)                   $50.00
  1076.       001W Write Hand Man     (Order)                   $40.00    SP01 Speed Modulator
  1077.       0BKP Beekeeper (see review Catcher Jan. '87)      $90.00               (slows down Microbee for games)       $15.00 
  1078.  
  1079.                          PLEASE NOTE: 
  1080.    Poo≥ Person≤ Softwarσ anΣ Grotniδ Softwarσ arσ stil∞ available.
  1081.    Refe≥ t∩ thσ Junσ editioε oµ 'Thσ Catcherº fo≥ iteφ availability.
  1082.    Enquirσá abou⌠á price≤ beforσ ordering«á Order≤á requestinτá Poo≥ ì
  1083.    Person≤  Softwarσ  ma∙ takσ morσ thaε 2▒  day≤ t∩  fill¼ t∩  ge⌠ ì
  1084.    ou≥ specia∞ pricσ wσ havσ t∩ orde≥ fivσ o≥ morσ disk≤ a⌠ ß time.
  1085.   
  1086.             ** not normally available for postal purchase
  1087.      All postal orders to be sent to MBUG AUSTRALIA SALES
  1088.                                       P.O. BOX 157, NUNAWADING
  1089.                                       VICTORIA 3131
  1090.    To avoid delays, all orders must include cheque, postal order or 
  1091.    Bankcard authorization for the total amount(inc. postal & handling
  1092.    charges). Allow 21 days for the return of goods, or pick-up at the
  1093.    next meeting.
  1094.             Goods are only available to club members
  1095.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
  1096.    Please charge my Bankcard/Visa/Master Card No. ___ __ ___ ______
  1097.  
  1098.    Expiry Date __/__/____               Signature_________________
  1099.    Members Name.__________________________________ M/ship No._____
  1100.    Address._______________________________________________________
  1101.    Code  Item                      Quantity    Price    Total Cost
  1102.    ____  ________________________  ________    _____    __________
  1103.    ____  ________________________  ________    _____    __________
  1104.    ____  ________________________  ________    _____    __________
  1105.    Postal Fees (within Aust.)       Sub-Totals Items     $_________
  1106.    $10 to $20 order    :$2.50  Postage & Handling Fee   $_________
  1107.    $20 to $80 order    :$5.00
  1108.    greater than $80    :P.O.A.             Total Order    $_________
  1109.  
  1110.    Certified Mail add $1.00              Security Post  add $5.00
  1111.         MINIMUM POSTAL ORDER $10.00            April '87.      
  1112.  
  1113.  
  1114. *** BAZAAR SALES *** BAZAAR SALES ***
  1115.