home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG052.ARC / 1987AUG.CAT < prev    next >
Text File  |  1979-12-31  |  68KB  |  1,348 lines
  1. .pl70
  2. .po0
  3. .OP
  4. .HE#  AUGUST - T H E  C A T C H E R -1987 #
  5. Thσ followinτ i≤ ß lis⌠ oµ thσ 1986/8╖ committee«á Iµ therσ i≤ anythinτ yo⌡ ì
  6. requirσ o≥ an∙ hel≡ yo⌡ caε givσ us¼á pleasσ d∩ no⌠ hesitatσ t∩ contac⌠ an∙ ì
  7. onσ oµ us, preferably before 9.00 P.M.
  8. 
  9.               EXECUTIVE  
  10.  
  11. PRESIDENT                               ANDREW BARFOOT           758-4822
  12. VICE-PRESIDENT                          STEVEN JEPSON             45-4226
  13. SECRETARY                               MALCOLM OSBORNE          404-1282
  14. TREASURER                               KEVIN CARR               233-4629
  15. PUBLI├ OFFICE╥                          JOHN BUTTON              578-8145
  16.  
  17.                          COMMITTEE AND ASSISTANTS
  18.  
  19. Chris Anderson           438-3762       Peter Broughton          347-8114
  20. Russell Crosser          383-5307       Simon Gerraty        B/H 420-0927
  21. Mike Holzinger           354-6742       Jim Lobley               758-9169
  22. Mike Thompson            882-5002       John Mitchell            720-2016
  23.  
  24. SERVICES  PROVIDED  BY  MBUG  AUSTRALIA 
  25.  
  26. DISK FORMAT COPYING JOHN BUXTON  758-5744
  27. RBBS SYSTEM OPERATOR.  MIKE THOMPSON 882-5002
  28. BAZAAR JOHN MITCHELL.  P.O. BOX 157 NUNAWADING 3131  
  29. EDITOR  A. BARFOOT. P.O. BOX 157 NUNAWADING 3131  
  30. MODEM HIRE  C. ANDERSON.  P.O. BOX. 157 NUNAWADING 3131
  31. MEMBERSHIP SECRETARY J. LOBLEY.  P.O. BOX 157 NUNAWADING 3131  
  32. PUBLIC DOMAIN (SIG/M) DISKS  S. JEPSON.  P.O. BOX 8  ROSANNA 3084
  33. ELECTRONIC PARTS DISCOUNT Rod IRVING 425 HIGH ST. NORTHCOTE
  34. COMPUTER BOOK DISCOUNT TECHNICAL BOOKSHOP SWANSTON St. MELBOURNE
  35. PRESTON ELECTRONIC COMPONENTS 217 HIGH ST. PRESTON. 
  36.  
  37. ADVERTISEMENTS   P.O. BOX 157 NUNAWADING 3131           
  38. $50.00 Full Page   $25.00 Half Page   $15.00 Quarter Page 
  39. $3.00 For service and recurrent items (Less than 5 lines) 
  40. No charge for non recurring private sales items       
  41.  
  42.            GENERAL POLICY
  43. 
  44. T∩á expeditσ you≥ requests¼á genera∞ correspondencσá t∩         Contribution≤ fo≥ thσ CATCHE╥ ma∙ bσ madσ direc⌠ t∩ thσ        ì
  45. MBU╟á AUS╘á IN├ shoulΣ bσ sen⌠ t∩ ou≥ officia∞á addres≤         editor¼ sen⌠ t∩ thσ RBB╙ o≥ b∙ mail« Contribution≤ wil∞ ì
  46. anΣ  eacΦ enquir∙ shoulΣ bσ oε seperate forms«                  bσ  accepteΣ viß modem¼ disk≤ (│ 1/2ó o≥ ╡ 1/4")¼ tape,
  47.                                                                 writteε o≥ typed«  Contributions will not be considereΣ 
  48. Thσ editor≤ reservσ thσ righ⌠ t∩ edi⌠ al∞ contribution≤         withou⌠ ß namσ anΣ addres≤ and/o≥ membe≥ number« Pleasσ ì
  49. fo≥á thσá sakσá oµ brevity¼á clarit∙á and/o≥á accuracy«         includσ ß S.A.┼ fo≥ returε oµ you≥ tape/disk.          ì
  50. Letter≤á mus⌠á includσá namσ anΣ addres≤á bu⌠á wσá wil∞                ì
  51. withholΣ sucΦ detail≤ iµ s∩ requested«                          AlthougΦá al∞á carσ wil∞ bσ takeεá witΦá contributions¼       ì
  52.                                                                 MBU╟á AUS╘á caεá takσ n∩ responsibilit∙á fo≥á thσá safσì
  53. MBU╟áá AUSTRALI┴á INC«áá it≤á officers¼áá member≤áá anΣ         returε oµ an∙ materia∞ supplied« Iµ returε i≤ critical¼ì
  54. contributor≤á accep⌠ n∩ responsibilit∙ fo≥ an∙á damage≤         (something irreplaceable), don't send it.               ì
  55. causeΣá t∩á an∙ persoε o≥ propert∙á attributeΣá t∩á an∙ ì
  56. advicσ o≥ informatioε publisheΣ iε Thσ CATCHER.                 MBU╟á AUS╘ INC«á doe≤ no⌠ condonσ thσ non-authoriseΣ usσ
  57.                                                                 oµáá copyrigh⌠á software/hardwarσá anΣá thereforσáá als∩
  58. Microworld Basic listings may carry a number at the end         condemn≤ unauthorised copying of such material.           
  59. of each line. eg. {123}. These are checksum numbers and         
  60. shoulΣá shoulΣá no⌠ bσ typeΣ iε a≤ par⌠ oµ thσ listing«á        Contribution≤ no⌠ necessaril∙ endorseΣ b∙ MbuτáAus⌠ Inc.
  61.                                                               
  62. THE CATCHER is published by MBUG AUSTRALIA INCORPORATED  
  63. All copyrights are reserved by MBUG AUSTRALIA INCORPORATED è       FRO═ TH┼ CHIE╞ MBU╟  FRO═ TH┼ CHIE╞ MBU╟  FRO═ TH┼ CHIE╞ MBU╟  
  64.  
  65.       IMPORTAN╘ NOTIC┼    RBB╙ ACCESS
  66.  
  67. A≤ oµ thσ 13tΦ August¼ al∞ member≤ oµ thi≤ cluΓ wil∞ havσ instan⌠ acces≤ t∩ ì
  68. CP/═ oε thσ RBB╙ providinτ thσ followinτ procedure≤ arσ followed« 
  69.  
  70. Al∞ member≤ ne≈ o≥ old¼ wil∞ bσ askeΣ t∩ identif∙ themselves« Iε answering¼ ì
  71. yo⌡ MUS╘ typσ iε you≥ namσ a≤ i⌠ appear≤ oε you≥ mailinτ label«á (Thσ whitσ ì
  72. thinτá witΦ printinτ oε i⌠ tha⌠ i≤ stucδ t∩ thσ envelopσ thi≤ magazinσ camσ ì
  73. in.⌐ Yo⌡ wil∞ theε bσ askeΣ t∩ ente≥ you≥ PI╬ number«á Thi≤ numbe≥ wil∞á bσ ì
  74. thσ suφ oµ you≥ MEMBE╥ NUMBE╥ ADDE─ T╧ YOU╥ POS╘ CODE.ù e.g«á iµ you≥ membe≥ ì
  75. numbe≥á wa≤ 12│ anΣ yo⌡ livσ iε pos⌠ codσ 5678¼á theε you≥ PI╬ numbe≥ woulΣ ì
  76. bσá 5801«á  Oncσ yo⌡ loτ iε fo≥ thσ firs⌠ time¼á yo⌡ wil∞ theε bσ askeΣá t∩ ì
  77. ente≥á ß NE╫ password«á I⌠ i≤ thi≤ passworΣ tha⌠ wil∞ allo≈ yo⌡á acces≤á iε ì
  78. future«á Yo⌡á wil∞ onl∙ havσ t∩ g∩ througΦ thσ PI╬ numbe≥ routinσ thσ firs⌠ ì
  79. timσ yo⌡ connec⌠ t∩ thσ RBBS«á Froφ theε on¼á acces≤ wil∞ bσ simila≥ t∩ thσ ì
  80. wa∙ i⌠ i≤ now«á Al∞ financia∞ member≤ wil∞ havσ instan⌠ acces≤ t∩ CP/M« An∙ ì
  81. membe≥ wh∩ ha≤ haΣ thei≥ acces≤ curtaileΣ iε thσ past¼ wil∞ oncσ agaiε havσ ì
  82. acces≤ t∩ CP/M«á Thi≤ i≤ NO╘ becausσ oµ prograφ inability«á Iµ an∙á member¼ ì
  83. financia∞á o≥ not¼á abuse≤ thσ system¼á acces≤ wil∞ agaiε cease«á Onσ othe≥ ì
  84. point¼ iµ yo⌡ don'⌠ havσ ß Modem¼ yo⌡ caε hirσ onσ froφ thσ club« 
  85.  
  86.      Onσ oµ thσ thing≤ requesteΣ froφ thσ surve∙ (oµ whicΦ onl∙ 16░ member≤ ì
  87. havσá answereΣá s∩ far)¼á wa≤ thσ desirσ oµ countr∙ member≤ t∩ bσá ablσá t∩ ì
  88. communicatσá witΦ othe≥ member≤ wh∩ ma∙ livσ iε thσ samσ regions«á T∩á thi≤ ì
  89. end¼ i⌠ i≤ m∙ intentioε t∩ publisΦ iε thi≤ newsletter¼ thσ names¼ anΣ  towε ì
  90. namσá oµ al∞ noε suburbaε member≤ oµ thi≤ club«á Thi≤ wil∞á includσá anyonσ ì
  91. whosσá mai∞á doe≤á no⌠á g∩á througΦ onσá oµá thσá Victoriaεá suburbaεá mai∞ ì
  92. exchanges«á  Iµá an∙ membe≥ doe≤ NO╘ wisΦ t∩ havσ thei≥ namσ published,ù yo⌡ ì
  93. wil∞á havσ t∩ le⌠ mσ kno≈ prio≥ t∩ 15tΦ Septembe≥ 1987«á Thσ lis⌠á wil∞á bσ ì
  94. publisheΣ iε thσ Octobe≥ Catche≥ iε thσ forφ oµ "JO┼ BLOG╟ - BALLARAT."
  95.  
  96.      A≤á yo⌡á arσ n∩ doub⌠ aware¼á thi≤ issuσ ha≤ arriveΣ iε you≥ mai∞á onσ ì
  97. weeδ soone≥ thaε usual«á Thσ reason≤ arσ a≤ follows« A≤ thi≤ montΦ end≤ ou≥ ì
  98. cluΓá year¼á ╔á wan⌠á t∩ ensurσ al∞ member≤ havσ thσá opportunit∙á t∩á kno≈ ì
  99. exactl∙ wha⌠ i≤ goinτ t∩ happeε thi≤ montΦ anΣ hope¼ witΦ thσ extrß notice¼ ì
  100. a≤ man∙ oµ yo⌡ a≤ possiblσ wil∞ attenΣ thσ Annua∞ Genera∞ Meeting« 
  101.  
  102.      Thσá meetinτá wil∞ follo≈ thσ agendß a≤ se⌠ ou⌠ late≥ iεá thi≤á issue« ì
  103. Thi≤ wil∞ bσ followeΣ b∙ ß norma∞ meeting«á Durinτ thσ night¼á yo⌡ wil∞á bσ ì
  104. askeΣ t∩ votσ hopefull∙ oε tw∩ items«á Thσ firs⌠ beinτ fo≥ committeσ place≤ ì
  105. fo≥á thσá cominτ yea≥ anΣ thσ thσ seconΣ votσ wil∞ bσ fo≥á thσá competitioε ì
  106. entries« A≤ fo≥ thσ committeσ places¼ wσ woulΣ likσ t∩ seσ enougΦ peoplσ t∩ ì
  107. enablσ u≤ t∩ havσ ß ballot«  Wσ neeΣ 1│ committeσ anΣ ß Publiπ Officer« Thσ ì
  108. Publiπ Office≥ doe≤ no⌠ neeΣ t∩ bσ ß committeσ membe≥ bu⌠ shoulΣ attenΣ al∞ ì
  109. committeσ meetings«á Thσ curren⌠ Publiπ Office≥ wishe≤ t∩ retirσ thi≤á yea≥ ì
  110. anΣ others¼ (includinτ myself)¼ arσ no⌠ ye⌠ surσ iµ the∙ wil∞ ruε again« M∙ ì
  111. intention¼ witΦ you≥ support¼ i≤ t∩ a⌠ leas⌠ remaiε a≤ editor« No≈ coulΣ bσ ì
  112. thσ timσ fo≥ yo⌡ t∩ pu⌠ somethinτ bacδ int∩ you≥ club« 
  113.  
  114.      Al∞ competitioε entrie≤ havσ no≈ beeε published«á (Iε thσá June¼á Jul∙ ì
  115. anΣá Augus⌠á Catchers.⌐ WitΦ thi≤ issuσ beinτ early¼á yo⌡ wil∞ al∞á havσá ß ì
  116. chancσ t∩ reaΣ thosσ iε thi≤ issuσ anΣ conside≥ you≥ preferencσ wel∞ beforσ ì
  117. voting«á Lindsa∙á ForΣá wil∞á bσ oε hanΣ t∩ presen⌠ thσ winne≥á witΦá thei≥ ì
  118. prize¼ onσ cop∙ oµ "DEBTMASTER".
  119.  
  120.             As the old saying goes "vote early and vote often"
  121. >ANDREWè     ┴ SHOR╘ HISTOR┘ O╞ TH┼ COMPUTE╥    -    Froφ MammotΦ t∩ Microbee.
  122.      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123.     B∙ Rober⌠ ┴ Smith«      MBU╟ 1261«     Junσ 1987« Competitioε Entry
  124.  
  125.      Sincσá thσ enΣ oµ thσ SeconΣ WorlΣ Wa≥ ß technologica∞ revolutioεá ha≤ ì
  126. beeε takinτ place¼á thσ scopσ oµ whicΦ i≤ unequalleΣ iε an∙ othe≥ perioΣ oµ ì
  127. history«á Durinτá recen⌠ year≤ therσ ha≤ beeε ß never-endinτ streaφ oµá ne≈ ì
  128. invention≤á anΣ developments«á Mos⌠ oµ u≤ finΣ i⌠ increasingl∙ difficul⌠ t∩ ì
  129. kee≡ pacσ witΦ moderε technologica∞ progress╗á change≤ arσ s∩ frequent¼ anΣ ì
  130. thσá machination≤á oµá man∙ invention≤ s∩ complex¼á tha⌠á b∙á thσá timσá wσ ì
  131. understanΣá ho≈ onl∙ ß fe≈ oµ theφ worδ the∙ havσ probabl∙ beeεá supersedeΣ ì
  132. b∙ morσ advanceΣ techniques«á Nothinτ i≤ morσ typica∞ oµ thi≤ ever-changinτ ì
  133. technolog∙ thaε thσ developmen⌠ oµ Computers.
  134.  
  135. Thσá firs⌠á Computer¼á a≤ wσ kno≈ i⌠ today¼á wa≤ inventeΣ iεá 1946╗á today¼ ì
  136. severa∞ developmen⌠ stage≤ later¼á man∙ hundred≤ oµ thousand≤ oµá Computer≤ ì
  137. arσá iε operatioε throughou⌠ thσ world¼á eacΦ onσ man∙ time≤ morσ powerful¼ ì
  138. anΣ mos⌠ oµ theφ ver∙ mucΦ smaller¼ thaε thσ original« 
  139.  
  140. AlthougΦ introduceΣ onl∙ 4░ year≤ ago¼á Computer≤ stil∞ amazσ mos⌠á people« ì
  141. Thi≤ i≤ partl∙ duσ t∩ thσ fac⌠ tha⌠ thσ Compute≥ is¼á perhaps¼ thσ greates⌠ ì
  142. man-madσá inventioεá thσ worlΣ ha≤ eve≥ witnessed╗á i⌠ als∩ stem≤ froφá thσ ì
  143. fac⌠á tha⌠ relativel∙ fe≈ peoplσ understanΣ ho≈ ß Compute≥á actuall∙á work≤ ì
  144. anΣ eveε fewe≥ realisσ ho≈ i⌠ camσ t∩ bσ inventeΣ iε thσ firs⌠ place.
  145.  
  146. Computing¼á a≤ wσ kno≈ i⌠ today¼ wa≤ conceiveΣ iε thσ nineteentΦ centur∙ b∙ ì
  147. Charle≤á Babbagσ iε England«á Hi≤ idea≤ werσ wa∙ aheaΣ oµ hi≤ timσ anΣ eveε ì
  148. thougΦ hi≤ plan≤ werσ fo≥ ß mechanica∞ Computer¼á thσ technolog∙ oµ thσ da∙ ì
  149. wa≤ no⌠ quitσ u≡ t∩ thσ task¼á anΣ thσ fina∞ machinσ planneΣ for¼ wa≤ neve≥ ì
  150. completed╗ althougΦ smal∞ demonstratioε model≤ were« Onσ oµ thesσ i≤ no≈ oε ì
  151. displa∙ a⌠ thσ Sciencσ Museuφ iε London.
  152.  
  153. I⌠ wa≤ no⌠ unti∞ 7░ year≤ late≥ tha⌠ Hermaε HolleritΦ iε thσ UniteΣá State≤ ì
  154. go⌠ thing≤ goinτ again« U≡ unti∞ thσ enΣ oµ thσ nineteentΦ centur∙ al∞ forφ ì
  155. oµá accountinτá haΣá involveΣ labouriou≤á hand-writteεá calculations«á Thi≤ ì
  156. methoΣá causeΣ n∩ majo≥ problem≤ iε smal∞ businesse≤ whicΦ diΣ no⌠ havσá t∩ ì
  157. copσá witΦá ßá largσá volumσá oµá accountanc∙á work«áá However¼áá iεá largσ ì
  158. corporations¼á particularl∙ Governmen⌠ departments¼á mountain≤ oµ paperworδ ì
  159. threateneΣ t∩ swam≡ thσ effort≤ oµ thosσ wh∩ werσ tryinτ t∩ kee≡ pacσá witΦ ì
  160. thσ growinτ accumulation.
  161.  
  162. Durinτ thσ late≥ decade≤ oµ thσ century¼ therσ wa≤ s∩ mucΦ worδ involveΣ iε ì
  163. assessinτ thσ censu≤ total≤ iε thσ UniteΣ State≤ tha⌠ thσ censu≤ systeφ wa≤ ì
  164. iεá dange≥á oµ disintegration«á EacΦ ten-yearl∙ coun⌠ wa≤ takinτ longe≥á t∩ ì
  165. calculatσá thaε thσ previou≤ one«á Matter≤ camσ t∩ breakinτ poin⌠ wheεá thσ ì
  166. censu≤ takeε iε 188░ tooδ morσ thaε seveε year≤ t∩ complete«á Thσ situatioε ì
  167. haΣá no≈á reacheΣá thσ stagσ wherσ onσ censu≤ wa≤á barel∙á finisheΣá beforσ ì
  168. preparation≤á fo≥ thσ nex⌠ onσ haΣ t∩ begin«á Furthermore¼á b∙ thσ timσ thσ ì
  169. result≤ oµ ß censu≤ coulΣ bσ published¼á thσ informatioε wa≤ s∩ out-of-datσ ì
  170. a≤ t∩ bσ practicall∙ useless.
  171.  
  172. Afte≥ exhaustivσ tests¼á thσ UniteΣ State≤ Governmen⌠ decideΣ tha⌠ thσ datß ì
  173. fo≥á thσ 189░ censu≤ woulΣ bσ computeΣ b∙ ß punched-carΣ tabulatinτá systeφ ì
  174. whicΦ haΣ beeε deviseΣ b∙ ß statistician¼ Dr.Hermaε Hollerith¼ wh∩ wa≤ theε ì
  175. iεá hi≤ earl∙ twenties«á Al∞ thσ censu≤ datß wa≤ puncheΣ oε card≤á usinτá ß ì
  176. codeΣá patterε oµ holes«á Thσ card≤ werσ theε reaΣ b∙ aε electriπ Tabulato≥ ì
  177. whicΦ calculateΣ thσ results.
  178.  
  179. Thσá immediatσ effect≤ oµ Hollerith'≤ method≤ werσ astounding«á Thσá total≤ ìèwerσá calculateΣ iε ß quarte≥ oµ thσ timσ i⌠ haΣ takeε fo≥á thσá equivalen⌠ ì
  180. total≤ fo≥ thσ 188░ census«á ┴ mucΦ morσ comprehensivσ analysi≤ oµ thσ datß ì
  181. wa≤ undertakeε anΣ thσ result≤ werσ produceΣ iε ß ver∙ shor⌠ time« Thσ 189░ ì
  182. censu≤á result≤ werσ morσ meaningful¼á morσ accurate¼á anΣ morσ up-to-date╗ ì
  183. the∙ werσ consequentl∙ morσ useful.
  184.  
  185. Thσá succes≤ oµ Hollerith'≤ idea≤ attracteΣ widespreaΣá attention«á I⌠á wa≤ ì
  186. sooε realiseΣ tha⌠ thi≤ tabulatinτ systeφ coulΣ no⌠ onl∙ bσ useΣ t∩ computσ ì
  187. censu≤ results¼á bu⌠ coulΣ als∩ bσ applieΣ t∩ thσ wholσ rangσ oµ Governmen⌠ ì
  188. anΣ busines≤ accounting«á Iε thσ nex⌠ fift∙ year≤ thσ Tabulato≥ transformeΣ ì
  189. accountinτ method≤ iε al∞ developeΣ countries.
  190.  
  191. Hollerith'≤á origina∞á Tabulato≥á wa≤á baseΣá oεá electro-mechanica∞á card-ì
  192. reading«á ┴á compan∙á wa≤ formeΣ t∩ develo≡ hi≤ inventioε anΣ thi≤á compan∙ ì
  193. eventuall∙ becamσ Internationa∞ Busines≤ Machine≤ (IBM)«á A⌠ thσ samσá timσ ì
  194. aε independen⌠ compan∙ wa≤ establisheΣ iε EnglanΣ calleΣ BritisΦ Tabulatinτ ì
  195. Machine≤ (BTM).
  196.  
  197. A⌠á thσ thσ turε oµ thσ century¼á Jame≤ Powers¼á aε associatσ oµ Hollerith¼ ì
  198. inventeΣ ß Tabulato≥ whicΦ useΣ ß mechanica∞ card-readinτ method« Hi≤ idea≤ ì
  199. werσá developeΣ b∙ thσ Remington-RanΣ compan∙ iε thσ UniteΣ State≤á anΣá b∙ ì
  200. thσ Powers-Sama≤ compan∙ iε England« Iε 195╣ thσ BritisΦ Tabulatinτ Machinσ ì
  201. compan∙á anΣ Powers-Sama≤ combineΣ t∩ forφ ß compan∙ iε England¼á whicΦá i≤ ì
  202. no≈ knowε a≤ Internationa∞ Computer≤ LimiteΣ (ICL).
  203.  
  204. Thσ origina∞ idea≤ oµ HolleritΦ anΣ Power≤ dominateΣ thσ worlΣ oµ computinτ ì
  205. (calculating⌐á iεá thσá firs⌠á halµ oµ thi≤á century«á Thσá mechanica∞á anΣ ì
  206. electro-mechanica∞á Tabulator≤ werσ sooε iε widespreaΣ usσá a≤á businessmeε ì
  207. anΣá Governmen⌠ administrator≤ throughou⌠ thσ worlΣ becamσ convinceΣ oµ thσ ì
  208. saving≤ iε time¼á manpowe≥ anΣ mone∙ whicΦ thσ ne≈ method≤ achieved« A⌠ thσ ì
  209. samσá time¼á thσ capabilit∙ anΣ rangσ oµ thesσ machine≤ werσá progressivel∙ ì
  210. enhanceΣ b∙ thσ companie≤ manufacturinτ them.
  211.  
  212. Iε 193╣ Professo≥ Aikeε oµ HarvarΣ University¼á workinτ witΦ IB═ engineers¼ ì
  213. designeΣá aεá enormou≤á calculatinτ machine«á Thσ ideßá wa≤á t∩á combinσá ß ì
  214. collectioεá oµ conventiona∞ tabulatinτ machine≤ int∩ onσ viablσ uni⌠ anΣ t∩ ì
  215. contro∞á al∞ thσ operation≤ b∙ mean≤ oµ switche≤ anΣ puncheΣá pape≥á tapes« ì
  216. Thσá projec⌠á tooδá fivσ year≤ t∩ complete«á Knowε a≤ thσá HarvarΣá Marδá ▒ ì
  217. Calculator¼á i⌠á wa≤ thσ firs⌠ machinσ eve≥ buil⌠ whicΦ useΣ thσ principle≤ ì
  218. oµ thσ origina∞ Babbagσ designs«á I⌠ measureΣ ove≥ fift∙ fee⌠ iε lengtΦ (1╡ ì
  219. metres⌐ anΣ stooΣ eigh⌠ fee⌠ higΦ (2.┤ metres)«á Capablσ oµ calculatinτá t∩ ì
  220. 2│ decima∞ places¼ i⌠ wa≤ useΣ t∩ computσ complicateΣ table≤ fo≥ top-secre⌠ ì
  221. UniteΣ State≤ militar∙ projects¼ sucΦ a≤ ballistics.
  222.  
  223. Whilσá thσ Marδ ▒ wa≤ beinτ developeΣ a⌠ Harvard¼á anothe≥ areß oµ researcΦ ì
  224. wa≤ progressinτ a⌠ Pennsylvaniß University«á Workinτ unde≥ thσ samσ wartimσ ì
  225. pressure≤á t∩á computσá comple° calculation≤ a≤á quickl∙á a≤á possible¼á aε ì
  226. engineer¼á J.P.Eckert¼á anΣá ß mathematician¼á Johε W.Mauchly¼á designeΣá ß ì
  227. machinσá whicΦ wa≤ t∩ revolutionizσ computing¼á sucΦ a≤ i⌠á was«á Thi≤á wa≤ ì
  228. calleΣá thσ Electroniπ Numerica∞ Indicato≥ AnΣ Calculato≥ (ENIAC)«á I⌠ useΣ ì
  229. radi∩á valve≤ (vacuuφ tubes⌐ a≤ storagσ anΣ calculatinτ elements¼á anΣá wa≤ ì
  230. severa∞ hundreΣ time≤ faste≥ thaε thσ Marδ 1«á Containinτ 18,00░ valve≤ anΣ ì
  231. 1,50░á relays¼á i⌠á wa≤ gigantic«á Wheε i⌠ performeΣá it≤á firs⌠á automatiπ ì
  232. calculatioε iε 1946¼ thσ moderε electroniπ Compute≥ wa≤ born.
  233.  
  234. Subsequen⌠á analysi≤á oµ ENIA├ showeΣ tha⌠ machine≤ oµ eveεá greate≥á powe≥ ì
  235. coulΣáá bσáá constructeΣá witΦá les≤á equipment«áá Idea≤á pu⌠á forwarΣáá b∙ ì
  236. Dr.J.VonNeumanεá suggesteΣá tha⌠á program≤ coulΣá bσá storeΣá iεá computinτ ì
  237. machine≤á electronically¼á rathe≥ thaε externall∙ set-u≡ oε switcΦá panels« ìèThi≤á mean⌠ tha⌠ thσ prograφ coulΣ bσ modifieΣ b∙ itselµ wheε running¼á anΣ ì
  238. i≤ seeε a≤ onσ oµ thσ majo≥ breakthrough≤ iε Compute≥ development.
  239.  
  240. A⌠á thσ enΣ oµ 1946¼á followinτ thσ enΣ oµ thσ SeconΣ WorlΣá War¼á researcΦ ì
  241. starteΣá iεá ßá numbe≥á oµá place≤ iε thσá UniteΣá State≤á anΣá Britaiεá t∩ ì
  242. investigatσ furthe≥ thσ ne≈ phenomenoε oµ electroniπ computing.
  243.  
  244. Iε 194╖ a⌠ Cambridgσ Universit∙ iε England¼á Dr.M.V.Wilkes¼ Directo≥ oµ thσ ì
  245. Mathematica∞á Laboratory¼á designeΣ thσ Electroniπ Datßá Storagσá Automatiπ ì
  246. Calculato≥á (EDSAC)«á B∙á Ma∙ 194╣ thσ machinσ haΣ beeε completeΣá anΣá wa≤ ì
  247. operational«á A≤á thσ firs⌠ stored-prograφ electroniπ digita∞ Computer¼á i⌠ ì
  248. wa≤ capablσ oµ obeyinτ ß thousanΣ instruction≤ ß second╗á Babbage'≤ machinσ ì
  249. wa≤ intendeΣ t∩ perforφ sixt∙ addition≤ ß minute.
  250.  
  251. Iε thσ UniteΣ States¼á IBM¼á Univac¼ RC┴ anΣ Burroughs¼ iε conjunctioε witΦ ì
  252. Universitie≤á anΣá Governmen⌠ researcΦ establishments¼á werσá carryinτá ou⌠ ì
  253. furthe≥ research«á Iε Britain¼ Elliotts¼ Lyons¼ EnglisΦ Electric¼ Ferranti¼ ì
  254. Powers-Samas¼á Vicker≤á anΣ BT═ werσ doinτ simila≥á pioneerinτá developmen⌠ ì
  255. work¼á workinτ closel∙ witΦ London¼á Mancheste≥ anΣ Cambridgσ Universities¼ ì
  256. a≤ wel∞ a≤ thσ Nationa∞ Physica∞ Laboratory.
  257.  
  258. Al∞á thi≤á researcΦá proveΣ conclusivel∙ tha⌠ electroniπá computinτá wa≤á ß ì
  259. practica∞ propositioε fo≥ scientifiπ applications«á Furthe≥ researcΦ wa≤ t∩ ì
  260. sho≈á tha⌠á Computer≤á coulΣá bσ applieΣ t∩á commercia∞á task≤á witΦá equa∞ ì
  261. success.
  262.  
  263. EacΦá succeedinτ yea≥ since¼á ha≤ witnesseΣ onσ breakthrougΦ afte≥ another« ì
  264. Thσá speed¼á capacity¼á adaptabilit∙á anΣá reliabilit∙á oµá Computer≤á havσ ì
  265. improveΣ a⌠ ß breathtakinτ rate.
  266.  
  267. A≤á thσ earl∙ Computer≤ useΣ thousand≤ oµ valves¼á thσ machine≤á themselve≤ ì
  268. werσá a≤á largσ a≤ aε averagσ house«á Thσ valvσ wa≤á ver∙á unreliable¼á anΣ ì
  269. generateΣ s∩ mucΦ hea⌠ tha⌠ expensivσ wate≥ coolinτ system≤ haΣ t∩ bσá useΣ ì
  270. t∩ preven⌠ thσ machine≤ froφ meltinτ anΣ burning-up.
  271.  
  272. Iεá thσá latσá fiftie≤á thσ valvσ wa≤ replaceΣá b∙á ßá ne≈á discovery¼á thσ ì
  273. Transistor¼á whicΦ ensureΣ tha⌠ a≤ Computer≤ becamσ morσ powerfu∞ the∙ werσ ì
  274. relativel∙á smalle≥ iε size¼á anΣ thσ probleφ oµ overheatinτ wa≤á resolved« ì
  275. Thi≤á developmen⌠ wa≤ accelerateΣ eveε furthe≥ iε thσ mid-sixtie≤ wheεá thσ ì
  276. transisto≥á wa≤á replaceΣ b∙ thσ micro-integrateΣá circui⌠á (IC)¼á commonl∙ ì
  277. describeΣá a≤ Chips«á Thi≤ las⌠ developmen⌠ ha≤ madσ possiblσ thσá familia≥ ì
  278. machine≤ oµ today¼á sucΦ a≤ thσ Microbeσ etc.¼á ß fa≥ cr∙ froφ thσ mammoth≤ ì
  279. oµ thσ past.
  280.  
  281. Durinτ thσ samσ perioΣ ingeniou≤ anΣ comple° device≤ havσ beeε inventeΣ fo≥ ì
  282. transferrinτ informatioε t∩ anΣ froφ ß Computer«á Typica∞ example≤ oµ thesσ ì
  283. arσ magnetiπ tape¼á magnetiπ disc¼á ba≥ codσ readers¼ grapΦ plotters¼ lase≥ ì
  284. printer≤á etc«á I⌠á i≤ difficul⌠ t∩ realisσ tha⌠ al∞ thi≤á developmen⌠á ha≤ ì
  285. takeε placσ iε 4░ years«á Iε tha⌠ relativel∙ shor⌠ perioΣ oµ humaε history¼ ì
  286. computinτ technique≤ havσ beeε transformeΣ severa∞ times.
  287.  
  288. Thσá Industria∞ Revolutioε brough⌠ abou⌠ thσ greates⌠ technologica∞á changσ ì
  289. beforσ thi≤ century«á Thσ electroniπ Compute≥ ha≤ causeΣ ß revolutioε whicΦ ì
  290. ma∙á provσá eveεá greater«á A≤á thσá Industria∞á Revolutioεá witnesseΣá thσ ì
  291. introductioεá oµ machine≤ whicΦ relieveΣ u≤ oµ mucΦ oµ ou≥ physica∞ labour¼ ì
  292. s∩ thσ Compute≥ revolutioε ha≤ seeε thσ inventioε oµ machine≤ whicΦ caεá iµ ì
  293. useΣ wisely¼ freσ u≤ froφ ß wholσ lo⌠ more¼ botΦ physica∞ anΣ mental.
  294.  
  295.                       -------------ooOoo-------------è           O╬ TH┼ ART OF EXTRACTI╬G LARG┼ DIGIT╙ WITH ┴ MICROBEE
  296.                              Competition Entry
  297.                         Julian Ophel,   cipher 308
  298.  
  299.      ╔ wa≤ horrifieΣ wheε ╔ firs⌠ founΣ tha⌠ threσ one≤ arσ tw∩ poin⌠á ninσ ì
  300. ninσá ninσá ninσ ninσ nine¼á havinτ beeε misleaΣ b∙ primar∙ educatioεá tha⌠ ì
  301. taugh⌠ thσ approximatioε threσ one≤ arσ threσ a≤ fact«á Thσ revelatioεá wa≤ ì
  302. firs⌠ madσ usinτ aε "electroniπ calculatoró   1/│ ¬ │ ¬ 3¼ anΣ conclusivel∙ ì
  303. proveΣ witΦ thσ computer.
  304.  
  305. However¼á continuinτá experiencσá witΦá thσ compute≥ ha≤á leaΣá t∩á furthe≥ ì
  306. revelatioε concerninτ thσ uncertaint∙ oµ numbers« Somσ homσ computer≤ allo≈ ì
  307. "doublσ precision"¼á whicΦ allow≤ threσ one≤ t∩ bσ tw∩ poin⌠ ninσ ninσ ninσ ì
  308. ninσá ninσ ninσ ninσ ninσ ninσ ninσ ninσ ninσ ninσ nine«á Usinτá MicroworlΣ ì
  309. Basic¼á thσá microbeσá i≤ provideΣ witΦ thσ S─ commanΣ rathe≥á thaεá doublσ ì
  310. precisioε -
  311.  
  312. 100 INPUT"How many places will I calculate to [4 to 14] ?"; N
  313. 110 SD N 
  314. 120 P1 = 1 : D1 = 3
  315. 130 A1 = P1 / D1
  316. 140 PRINT"multiplication gives 1= "D1*A1
  317.  
  318. ╔ don'⌠ kno≈ wethe≥ thing≤ havσ changeΣ witΦ moderε models¼á bu⌠ iε thσ olΣ ì
  319. day≤á alterinτ thσ content≤ oµ thσ bracket≤ iε linσ 10░ t∩ `┤ t∩á 62'¼á anΣ ì
  320. rewritinτ linσ 11░ as
  321.  
  322. 110 POKE 2240,N : REM sets the decimal range
  323.  
  324. Thi≤ i≤ finσ fo≥ simplσ decima∞ calculation¼ bu⌠ ha≤ disadvantage≤ iε speeΣ ì
  325. oµá calculatioεá anΣá iε thσ amoun⌠ oµ memor∙ consumeΣ t∩á storσá variable≤ ì
  326. (somσ ideß oµ thσ memor∙ useΣ caε bσ go⌠ b∙ insertinτ tw∩ line≤ -
  327.  
  328. 115 DIM Z1(100)
  329. 15░ PRIN╘ "Freσ memor∙ isó FRE(0⌐ 
  330. theε comparinτ value≤ fo≥ variou≤ decima∞ ranges)
  331.  
  332. Thσá "librar∙á functionsó provideΣ fo≥ calculatinτ thσ triτ function≤á (SI╬ ì
  333. CO╙á ATAN)¼á thσ square-roo⌠ SQR¼á exponentiatioε ^¼á etc«á arσá no⌠á "higΦ ì
  334. precisionóá witΦ eigh⌠ decima∞ places¼á anΣ arσ n∩ bette≥ thaε thei≥ eightΦ ì
  335. placσ wheε calleΣ witΦ ß wide≥ decima∞ range.
  336.  
  337. If¼á iε ß fi⌠ oµ masochism¼á yo⌡ cas⌠ you≥ minΣ t∩ onσ oµ thσ fe≈ time≤ yo⌡ ì
  338. applieΣá yourselµá t∩á doinτ ß "lonτ divisionó yo⌡ wil∞ remembe≥á tha⌠á thσ ì
  339. procedurσá wa≤ long¼á no⌠ t∩ mentioε borinτ - jus⌠ thσ sor⌠á oµá repetativσ ì
  340. operation≤ thσ compute≥ i≤ designeΣ t∩ relievσ u≤ of..« remembe≥  ..« say
  341.  
  342. _.176  record the results, digit by digit
  343. 1╖ ⌐ │     n.b« wholσ diviso≥ divideΣ int∩ nex⌠ digi⌠ group
  344.  1╖    subtrac⌠ (divisor*digit-from-divsn⌐ t∩ givσ remainder
  345. 130  multiply remainder by ten (add carry if any)
  346.  119 then repeat the whole procedure
  347.      110
  348.      102       and again
  349.      ╕             
  350.             ╔ usuall∙ ge⌠ sicδ oµ i⌠ abou⌠ here¼ bu⌠ thσ machinσ wil∞ g∩ 
  351.                                            oε anΣ oε and....
  352.  
  353. èLONG division 
  354. 100 REM division with multi digit result
  355. 11░ INPUT"ente≥ numerato≥ (N⌐ ¼ denominato≥ (D⌐ {witΦ ╬ ╝ ─}";N,D
  356. 120 N=N*10    multiply next digit by 10,
  357. 130 Q=N/D     divide the result by the whole divisor,
  358. 140 PRINT Q;  print the first numeral of this result,
  359. 150 R=N-Q*D   then multiply it by the divisor and subtract to get
  360. 160 N=R       the remainder which becomes the new numerator
  361. 170 GOTO 120    now do it all again ...
  362.  
  363. n.b« thσ │ fo≥ numerato≥ anΣ 1╖ fo≥ denominato≥ werσ deliberatel∙ pickeΣ iε ì
  364. thσá hopσá you'l∞ checδ m∙ workinτ bu⌠ 1/9╖ look≤ nice╗á anΣ n∩ attemp⌠á i≤ ì
  365. madσá iε thi≤ prograφ t∩ circumven⌠ BASI├ intege≥ rangσ limit≤ s∩ N*1░á anΣ ì
  366. Q*─ limi⌠ numerato≥ anΣ denominato≥ t∩ les≤ thaε 327╢ iε wors⌠ case.
  367.  
  368. Thσá methoΣ useΣ i≤ thσ `pencil-and-paperº ╔ wa≤ taugh⌠ a⌠ schoo∞á [I'Σá bσ ì
  369. alloweΣ t∩ sa∙ `algorithmº iµ aε enΣ wa≤ eve≥ reached]« T∩ reacΦ aε enΣ [o≥ ì
  370. construc⌠á ßá nicσ algorithm]║á iµ thσ remainde≥ become≤ zer∩ thi≤ make≤á ß ì
  371. `properº enΣ ¼á easil∙ testeΣ fo≥ - bu⌠ iµ thσ remainde≥ neve≥ become≤ zer∩ ì
  372. (a≤á fo≥á 1/3⌐á wσá coulΣá assigε aε arbitrar∙á numbe≥á oµá figure≤á t∩á bσ ì
  373. calculateΣ anΣ stop║á no⌠ ver∙ elegant¼ o≥ witΦ ß bi⌠ oµ observatioε oµ thσ ì
  374. result≤á froφá runninτá thσ abovσ witΦá systematiπá entr∙á of¼á say¼á ▒á a≤ ì
  375. numerato≥ anΣ progressivel∙ increasinτ denominato≥ - anΣ appropriatσ usσ oµ ì
  376. thσá BREA╦ ke∙ (O╥ previou≤ knowledgσ oµ elementar∙ numbe≥ theor∙ ⌐ show≤ ß ì
  377. patterε oµ behavior╗ i⌠ i≤ pattern≤ oµ behavio≥ tha⌠ allow≤ algorithm≤ s∩ 
  378.  
  379. 100 DIM R(3000) array to find repeated sequence of digits
  380. 110 INPUT"enter numerator (N) , denominator (D) N < D";N,D
  381. 120 P=0       P will count total no. of digits generated
  382. 130 R(0)=N
  383. 140 PRINT " .";
  384. 150 N=N*10                  seen this
  385. 160 Q=N/D                     lot
  386. 170 PRINT Q;                       before
  387. 180 P=P+1                               and another digit is produced
  388. 190 R(P)=N-Q*D                   ? tricky this, keep remainder in an array
  389. 200 IF R(P)=0 THEN LET C=P : GOTO 260   finished if no remainder
  390. 210 FOR C=0 TO P-1                      now to utilise the tricky bit
  391. 22░   I╞ R(C)=R(P⌐ THE╬ GOT╧ 26░        iµ wσ haΣ THI╙ remainde≥ beforσ
  392. 230 NEXT C                              we'd just be repeating ourselves
  393. 24░ N=R(P⌐                   elsσ le⌠ thσ remainde≥ becomσ thσ numerator
  394. 250 GOTO 150                            and go back and do it all again
  395. 26░á PRIN╘▄ ├ó non-repeatinτ digitsó ▄ P-├á ó         repeatinτ digits"
  396.  
  397. Thi≤á agaiεá doe≤á nothinτá abou⌠ BASI├ intege≥ limit≤á fo≥á thσá inpu⌠á oµ ì
  398. numerato≥ anΣ denominato≥ - bu⌠ insidσ thi≤ limi⌠ eveε jus⌠ thσ examinatioε ì
  399. oµ 1/─ fo≥ D-▒ lonτ repeatinτ digit≤ etπ caε bσ fuε (╔ hope).
  400.  
  401. Fo≥á multiplicatioε oµ ß multi-digi⌠ numbe≥ b∙ ß singlσ digi⌠ thσá `pencil-ì
  402. and-paperº algorithφ work≤ wel∞ fo≥ thσ machinσ - thσ firs⌠ approacΦ i≤á t∩ ì
  403. definσá aεá arra∙ t∩ holΣ thσ digit≤ oµ thσ multidigi⌠ numbe≥ anΣ ßá seconΣ ì
  404. arra∙ t∩ holΣ thσ answer.
  405.  
  406. Oε reflectioε i⌠ caε bσ seeε tha⌠ thσ usσ oµ arra∙ element≤ t∩ holΣá singlσ ì
  407. digit≤á allow≤ inpu⌠ oµ numeral≤ limiteΣ onl∙ b∙ machinσ memory¼á s∩ t∩á bσ ì
  408. greedy¼á witΦ thσ realisatioε tha⌠ iµ yo⌡ removσ ß digi⌠ fo≥ multiplicatioε ì
  409. anΣ perforφ `carriesº iε temporar∙ variable≤ theε thσ `resultº digi⌠ caε g∩ ì
  410. bacδ int∩ thσ samσ arra∙ element¼ s∩ onl∙ onσ arra∙ i≤ required¼  a≤ in
  411. èsimple long multiplication
  412. 100 DATA 5                 no. of digits to multiply
  413. 110 DATA 3,2,7,6,9         digits to be multiplied
  414. 120 DATA 4                 multiplier
  415. 130 READ N                 get no. of digits to
  416. 140 DIM D(N+1)                    dimension array for result
  417. 150 FOR I=N TO 1 STEP -1   from start of data statement to end
  418. 160 READ D(I)              read highest digit,next highest, ..
  419. 170 NEXT I                    till whole no. read in
  420. 180 READ M                 get multiplier
  421. 190 C=0                    set carry to zero
  422. 200 FOR I=1 TO N           from lowest to highest digit in turn
  423. 21░áP=D(I)*M+├             multipl∙ nex⌠ digi⌠ anΣ adΣá carry
  424. 220 C=P/10                 find the value for the next carry
  425. 230 D(I)=P-C*10            subtract value of carry from product
  426. 240 NEXT I                 if more digits go back and do it again
  427. 250 D(N+1)=C               don't forget the final carry
  428. 260 PRINT "the product is : "
  429. 27░á I╞á C>░ THE╬ LE╘ N=N+▒    iµ las⌠ carr∙ no⌠á zer∩ -
  430. 280 FOR I=N TO 1 STEP -1   print array last first,left to right
  431. 290 PRINT D(I);
  432. 300 NEXT I
  433.  
  434. Howeve≥ iµ wσ desirσ (anΣ ╔ trus⌠ wσ do¼ a⌠ leas⌠ occasionally⌐ t∩ multipl∙ ì
  435. tw∩á multi-digi⌠ number≤ thσ carr∙ procedurσ iε thσ algorithφ mos⌠ commonl∙ ì
  436. useΣ i.e«á t∩ multipl∙ thσ firs⌠ numbe≥ b∙ thσ lowes⌠ digi⌠ oµ thσá second¼ ì
  437. holΣá thσá result¼á multipl∙á firs⌠ numbe≥ b∙ seconΣ lowes⌠á digi⌠á oµá thσ ì
  438. second¼á storσá thσá result¼á multipl∙á «á .«á etc«á theε afte≥á thσá fina∞ ì
  439. multiplicatioε adΣ al∞ thσ storeΣ result≤ ║á doe≤ looδ ß bi⌠á clumsy¼á wil∞ ì
  440. neeΣ N*(M+1⌐ arra∙ location≤ t∩ holΣ thσ temporar∙ results.
  441.  
  442. Iµá wσ definσ tw∩ array≤ t∩ holΣ thσ number≤ t∩ bσ multiplied¼á anΣ ß thirΣ ì
  443. oµá sizσá N+M+▒á sufficien⌠ t∩ holΣ thσ fina∞ result¼á kee≡á tracδá oµá thσ ì
  444. positioεá oµá eacΦá carr∙ anΣ adΣ i⌠ immediatel∙ int∩á thσá `resul⌠á arrayº ì
  445. (takinτá carσ t∩ observσ wethe≥ i⌠ iε turε generate≤ anothe≥á carry⌐á alonτ ì
  446. witΦá eacΦá digi⌠ b∙ digi⌠ multiplicatioε resul⌠ t∩ itsº appropriatσá arra∙ ì
  447. positioεá wσá havσ aε algorithφ sparinτ oµ memor∙ anΣ n∩á troublσá fo≥á thσ ì
  448. machinσ (wσ hope).
  449.  
  450. to multiply two multi-digit numbers
  451.  
  452. 100 DATA 5                 no. of digits for multiplicand
  453. 110 DATA 3                 no. of digits in multiplier
  454. 120 DATA 3,1,6,4,7         digits for multiplicand
  455. 130 DATA 4,2,3                   and multiplier
  456. 14░ REA─ N,═             datß t∩ dimensioε arrays¼ A¿ fo≥ multi-
  457. 15░ DI═ A(N),B(M),D(N+M+1⌐  plicand,B¿ multiplie≥ anΣ D¿ result
  458. 160 FOR I=N TO 1 STEP -1      fill
  459. 170 READ A(I) 
  460. 180 NEXT I                         arrays
  461. 190 FOR I=M TO 1 STEP -1                    with
  462. 200 READ B(I)                                     digits
  463. 210 NEXT I
  464. 220 FOR K=1 TO M           for each digit of multiplier in turn
  465. 230 C=0                    set carry to zero
  466. 240 FOR I=1 TO N           for each digit of multiplicand in turn
  467. 250 P=A(I)*B(K)            multiply the two digits
  468. 260 C=P/10                 determine the carry
  469. 27░ P=P-C*1░               subtrac⌠ carr∙ valuσ froφ thσ productè28░ S=I+K-▒                ge⌠ pointe≥ t∩ appropriatσ arra∙ elmnt
  470. 290 D(S)=D(S)+P            add value minus carry to array element
  471. 300 Z=D(S)/10              what is the carry for this addition
  472. 310 D(S)=D(S)-Z*10         subtract carry value
  473. 320 D(S+1)=D(S+1)+C+Z      add the carries to next array element
  474. 33░ NEX╘ ╔                 iµ no⌠ las⌠ digi⌠ iε multiplicanΣ g∩ back
  475. 34░ NEX╘ ╦                 iµ no⌠ las⌠ digi⌠ iε multiplie≥ g∩ back
  476. 35░ N=S+▒                  se⌠ arra∙ pnte≥ t∩ deletσ leadinτ zeroes
  477. 360 IF N>1 THEN IF D(N)=0 THEN LET N=N-1:GOTO 360
  478. 370 PRINT " The product is : "
  479. 380 FOR I=N TO 1 STEP -1   then print array
  480. 390 PRINT D(I);
  481. 400 NEXT I
  482.  
  483. Thσ majo≥ sillines≤ herσ i≤ thσ usσ oµ datß statement≤ t∩ fil∞ arrays¼á thσ ì
  484. usσ oµ `strinτ entryº   e.g:
  485.  
  486. 10 CLS:CLEAR:STRS(1025)
  487. 20 INPUT" wot's yer first number ?";A1$
  488. 30 INPUT" o.k.  an' yer second ?";B1$
  489. 40 N=LEN(A1$) : M=LEN(B1$)
  490. 50 DIM A(N),B(M),D(N+M+1)
  491. 60 FOR I=1 TO N:A(N-I+1)=INT(VAL(A1$(;I,I))):NEXT I
  492. 70 FOR I=1 TO M:B(M-I+1)=INT(VAL(B1$(;I,I))):NEXT I
  493.  
  494. Replacinτá line≤á 10░á t∩ 21░ inclusivσ abovσ woulΣ allo≈ u≡ t∩á 18┤á digi⌠ ì
  495. entr∙ int∩ eacΦ string¼á bu⌠ thσ rea∞ constraint¼á memor∙ wil∞ no⌠ bσá thu≤ ì
  496. exhausted¼á s∩ figurσ you≥ owε datß entr∙ t∩ figurσ bigge≥ porpoise≤ iµ yo⌡ ì
  497. catcΦ any.
  498.  
  499. ╔ rathe≥ likσ 1111111111▒ ¬ 1111111111▒  anΣ such-like.
  500.  
  501. N∩ attemp⌠ a⌠ optimizatioε fo≥ executioε speeΣ (o≥ fo≥ memor∙á utilisation⌐ ì
  502. wa≤á attempteΣá here¼á anΣ i⌠ i≤ BASIC¼á ╔ diΣ d∩ ß 10░ digi⌠ b∙ 10░á digi⌠ ì
  503. multiplicatioε anΣ i⌠ diΣ finish¼ bu⌠ ╔ can'⌠ remembe≥ ho≈ lonτ i⌠ took.
  504.  
  505. ╔á gues≤á machinσ codσ woulΣ bσ botΦ faste≥ anΣ morσ memor∙á efficient«á Iε ì
  506. FORTH¼á al∞ math≤ operation≤ arσ performeΣ iε binar∙ anΣ onl∙á input/outpu⌠ ì
  507. change≤á basσ t∩ thσ selected/required¼á math≤ donσ usinτ ß 12╢ o≥ 12╖ basσ ì
  508. woulΣá obviousl∙ bσ mucΦ morσ memor∙ efficient¼á anΣ ╔ gues≤ probabl∙á mucΦ ì
  509. faster¼ bu⌠ I'vσ neve≥ though⌠ abou⌠ ho≈ yo⌡ d∩ it.
  510.  
  511.  
  512. From║  Michae∞ Smidd∙         To║  AL╠       Re║  RANDO═ NUMBERS
  513.  
  514. ╔ aφ writinτ ß Basiπ prograφ anΣ neeΣ ß randoφ numbe≥ betweeε 1░ anΣ 19« 
  515. ANSWER:   
  516. 10░ ┘ ╜ INT(RND*10⌐ ½ 1░ 
  517. Thσ numbe≥ 1░ caε bσ aε INTEGE╥ e.g«  ┴ ╜ 1░ theε thσ linσ coulΣ read:-
  518.            10░ ┘ ╜ INT(RND*10⌐ ½ A
  519. BU╘ NO╘    10░ ┘ ╜ INT(RND*A⌐ ½ ┴     theε prin⌠ thσ valuσ oµ thσ randoφ Y
  520. 11░ PRIN╘ Y
  521. Becausσá Basiπ start≤ countinτ a⌠ zer∩ (0)¼á normall∙ wσ adΣ ß ½ ▒á t∩á thσ ì
  522. argumen⌠á INT(RND*10)+▒ t∩ givσ u≤ ß numbe≥ betweeε ▒ anΣ thσ scopσ oµá thσ ì
  523. integer«  Iε thσ abovσ example¼ ß randoφ numbe≥ betweeε ░ anΣ ╣ i≤ produceΣ ì
  524. first:-
  525. ┘ ╜ INT(RND*10⌐ witΦ ┘ becominτ thσ randoφ value«á Wσ theε adΣ 1░ (o≥ A⌐ t∩ ì
  526. thσ value«á Thi≤ cause≤ thσ valuσ oµ ┘ t∩ bσ ß minimuφ oµ ░ ½ 10(o≥ A⌐ ╜ 1░ ì
  527. t∩ ß maximuφ oµ ╣ ½ 1░ ╜ 19« ╔ hopσ thi≤ fixe≤ thσ problem..è**********************************
  528.      SO YOU WANT TO BECOME A
  529. Z80 ASSEMBLY LANGUAGE PROGRAMMER !
  530.  
  531. .po3
  532. Thσ MITE╦ RELOCATABL┼ Z-8░ MACR╧ ASSEMBLER¼ LINKER¼ LIBRAR┘ MANAGER¼ ì
  533. SYMBOLI├ DEBUGGE╥ Package¼ witΦ tw∩ manual≤ plu≤ bonu≤ suppor⌠ file≤ ì
  534. i≤ availablσ NO╫ fo≥ MBU╟ member≤ a⌠ ß value-packeΣ pricσ !
  535.  
  536. .po0
  537.    YOU CAN BE THERE FOR $99 - WOW!
  538. .po3
  539. Orde≥á no≈á iεá YOU╥ Microbeσ disδ forma⌠á b∙á cheque¼á BankcarΣá o≥ ì
  540. MastercarΣ (providσ signeΣ purchasσ request¼á carΣ numbe≥ anΣ expir∙ ì
  541. date⌐ froφ GLYPHI├ SOFTWARE¼ P╧ Bo° 391¼ Pennan⌠ Hills¼ 2120.
  542.  
  543. .po0
  544.        THE MITEK ASSEMBLER 
  545. .po3
  546. 1⌐á Generate≤á Microsof⌠ .RE╠ file≤ o≥ Inte∞ compatiblσ .HE╪á files«  ì
  547. WRITE-HAND-MA╬ owner≤ caε modif∙ existing¼á o≥ writσ thei≥ OWN¼ pop-ì
  548. u≡ option≤ witΦ thσ MITE╦ ASSEMBLER«á 2⌐ I≤ compatiblσ witΦá Digita∞ ì
  549. ResearcΦá macro-assembler≤á MA├á anΣá RMAC«á  S∩á yo⌡á caεá usσá AN┘ ì
  550. Microsof⌠á compatiblσ linkinτ loade≥ o≥ thσ MITE╦ LINKE╥ - it'≤ par⌠ ì
  551. oµá thσá packagσ anΣ include≤ ß Librar∙ Manage≥á prograφá fo≥á thosσ ì
  552. hard-woεá routines«á 3⌐á Generate≤ Digita∞ ResearcΦ compatiblσá .SY═ ì
  553. file≤á s∩ yo⌡ caε usσ ZSI─ o≥ thσ MITE╦ SYMBOLI├ DEBUGGE╥á whicΦá i≤ ì
  554. par⌠á oµá thσ package«á 4⌐ Permit≤ conditiona∞ assembly«á 5⌐á Allow≤ ì
  555. INCLUD┼ anΣ MACLI┬ file≤ t∩ inser⌠ ß MACR╧ library«á 6⌐ Thσá Packagσ ì
  556. contain≤á ß cross-referencσ prograφ XRE╞ t∩ sho≈ ever∙ linσ wherσá ß ì
  557. symbo∞á i≤á used«á 7⌐á Allow≤ separatσá DATA¼á PROGRAM¼á COMMO╬á anΣ ì
  558. ABSOLUT┼á prograφá spaces«á 8⌐á Caε generatσá TURB╧á PASCA╠á in-linσ ì
  559. machinσá codσá INCLUD┼á file≤ froφ familia≥á Z8░á assembl∙á languagσ ì
  560. statements«á 9⌐ Phase/Dephasσ featurσ - fixeΣ a⌠ las⌠ - phe≈á íá 10⌐ ì
  561. Ful∞á Z-8░ mnemonic≤ includinτ extra≤ fo≥ thσ HitachΘá HD64180«á 11⌐ ì
  562. Include≤ ß 808░ t∩ Z-8░ codσ converte≥ prograφ ZCON.
  563.  
  564. .po0
  565.    THE MITEK SYMBOLIC DEBUGGER
  566. .po3
  567. 1⌐á I≤á screeεá orienteΣá witΦá displa∙á oµá instructioεá mnemonics¼ ì
  568. register¼á stacδ anΣ memor∙ values«á 2⌐ Allow≤ breakpoint≤ t∩ bσ se⌠ ì
  569. oεá an∙ combinatioε oµ fixeΣ memor∙ address¼á registe≥ value≤ and/o≥ ì
  570. memor∙á values«á 3⌐á Use≤á Digita∞ ResearcΦá compatiblσá .SY═á file≤ ì
  571. (produceΣ b∙ thσ MITE╦ ASSEMBLER⌐ 4⌐ Support≤ thσ HitachΘ HD64180.
  572. .po0
  573.   *********************************
  574. .po0
  575.  
  576.                              MARKER.EDT UPDATE
  577.  
  578.      ╔á havσá recentl∙á purchaseΣ ß Premiuφ Beσ anΣ oεá runninτá m∙á MARKE╥ ì
  579. program¼á thσá onσá publisheΣ iε Thσ Catche≥ iε Junσ thi≤ year;á ╔ founΣá ß ì
  580. problem«á AlthougΦ thσ articlσ wa≤ publisheΣ a≤ ß disδ version¼ i⌠ wil∞ ruε ì
  581. oεá RO═á anΣ CIA┬ Bee≤ bu⌠ i⌠ doe≤ no⌠ ruε oε m∙ ne≈ machine«á ╔á kne≈á thσ ì
  582. prograφ workeΣ wel∞ oε botΦ m∙ RO═ anΣ CIA┬ machines¼á ╔ presumeΣ i⌠á woulΣ ì
  583. worδ oε thσ Premium« N∩ sucΦ luck« ╔ discovereΣ tw∩ things:-
  584.  
  585. 1.   Wordbee files in a Premium begin at 2401h, and not at 2500h; and;
  586. 2«á  Tha⌠á thσá addres≤ oµ thσ to≡ oµ thσ Wordbeσ filσ wa≤ t∩ bσ founΣá iε ì
  587.      211Dh and not at 221Dh.
  588.  
  589. Thereforσá thσ followinτ modification≤ neeΣ t∩ bσ madσ fo≥ thσá prograφá t∩ ì
  590. work on the 128k Premium Bee.
  591.  
  592. CHANGE        START     LD   HL,2500H   to START    LD    HL,2401H
  593. and                     LD   DE,(221DH) to          LD    DE,(211DH)
  594. Hope I haven't caused too many headaches.    A. SOLOMON.è  **********************************************************************
  595.  
  596.                      MBU╟áAUSTRALI┴áINCORPORATE─                       ì
  597.  
  598.                    NOTICE OF ANNUAL GENERAL MEETING
  599.  
  600.         Thσá2nΣáAnnua∞áMeetinτáoµ MBU╟áAUSTRALI┴ INCORPORATED 
  601.         will be held on Wednesday 12th Aug. 1987 at 7.30pm at
  602.                    Mount Waverley Community Centre
  603.                    Miller Crescent, Mount Waverley
  604.                         (Melway Map Ref 70E1)
  605.  
  606.                                 AGENDA
  607.  
  608.           1.   Minutes of previous AGM.
  609.  
  610.           2.   President's Report.
  611.  
  612.           3.   Consideration of Financial statement persuant to
  613.                section 30 of the Associations Incorporation Act 1981.
  614.  
  615.           4.   Election of Office Bearers.
  616.  
  617.           5.   Consideration of any business which in accordance
  618.                with the rules may be brought before the meeting.
  619.  
  620.   **********************************************************************
  621.  
  622.   **********************************************************************
  623.  
  624.                     MBU╟áAUSTRALI┴áINCORPORATE─                      ì
  625.  
  626.                            NOMINATION FORM
  627.  
  628.  We, the undersigned, being financial members of MBUG AUSTRALIA INC,
  629.  
  630.  hereby nominate __________________________________________
  631.  
  632. for the position of _______________________________________ (*)
  633.  
  634. Name of Proposer ________________________ Signature__________________
  635.  
  636. Name of Seconder ________________________ Signature__________________
  637.  
  638. I¼á ___________________________________________¼á thσ persoε nominateΣ ì
  639. hereiεá agreσ t∩ accep⌠ thi≤ nominatioε and¼á iµ electeΣ wil∞ abidσ b∙ ì
  640. thσ rule≤ oµ thσ Association.
  641.  
  642.                               Signature__________________
  643.                                    
  644.  (*⌐ Nomination≤ arσ calleΣ fo≥ President¼á Vicσ President¼ Secretary¼ ì
  645. Treasurer and nine (9) committee.
  646.  
  647.   **********************************************************************
  648.  
  649. Nomination≤á shoulΣá bσ posteΣ t∩ "Thσ Secretaryó MBU╟á AUSTRALI┴á IN├ ì
  650. P.O«á BO╪ 15╖ NUNAWADING«á Vic« 313▒ n∩ late≥ thaε 5tΦ Augus⌠ 1987¼ o≥ ì
  651. delivered to the Secretary before that date.
  652. è     ╒ - ┴ Ne≈ Utilit∙ - B∙ RoΓ Smith« MBU╟ 1261«  Competitioε entry.
  653.  
  654. Thi≤ Utilit∙ i≤ presenteΣ herσ fo≥ tw∩ reasons.
  655.  
  656. A║á    ╔á  fel⌠ thσ neeΣ fo≥ ß simplσ utilit∙ whicΦ woulΣ sho≈ a⌠ ßá glancσ ì
  657. wha⌠ Use≥ areas¼  oε ß giveε disc¼ containeΣ files« Havinτ writteε  sucΦ  ß ì
  658. utilit∙ ╔ though⌠ other≤ migh⌠ likσ t∩  havσ  i⌠ too!
  659.  
  660. B║á    A≤ ╔ havσ writteε thσ prograφ iε Turb∩ Pasca∞ ╔ though⌠ thosσ oµ yo⌡ ì
  661. ou⌠á therσá wh∩ migh⌠ bσ contemplatinτ usinτ thi≤á excellen⌠á language¼á o≥ ì
  662. anybod∙ elsσ fo≥ tha⌠ matter¼  migh⌠ likσ t∩ seσ wha⌠ ß simplσ Turb∩ Pasca∞ ì
  663. prograφ look≤ like.
  664.  
  665. A≤á someonσá oncσ said¼á 'therσ arσ man∙ way≤ t∩ skiε ß cat'¼á anΣ wheεá i⌠ ì
  666. come≤á t∩ programinτ thi≤ i≤ certainl∙ true«á Thσ followinτ examplσ i≤á bu⌠ ì
  667. onσá oµ man∙ way≤ oµ puttinτ togethe≥ ß prograφ t∩ carr∙ ou⌠á thσá requireΣ ì
  668. task«á Onσá oµá thσá stronτ point≤ oµ Turb∩ Pasca∞ i≤ thσá abilit∙á t∩á usσ ì
  669. descriptivσ name≤ fo≥ Variables¼á Constants¼ Procedure≤ etc.¼ whicΦ iµ useΣ ì
  670. thoughtfull∙á caε obviatσ thσ neeΣ fo≥ comment≤ iε mos⌠ cases¼á althougΦ iε ì
  671. thi≤á examplσá ╔ havσ commenteΣ thσ majo≥ point≤ fo≥ thσ benefi⌠á oµá thosσ ì
  672. peoplσá no⌠ familia≥ witΦ thσ language«á √ Comment≤ arσ encloseΣá b∙á curl∙ ì
  673. bracket≤á }«á T∩ ß Pasca∞ programme≥ thesσ comment≤ woulΣ bσ redundant¼á a≤ ì
  674. thσá 'storyºá i≤ tolΣ b∙ thσ prograφ statement≤ themselves«á I'vσá madσá n∩ ì
  675. attemp⌠á t∩á explaiε thσ structurσ oµ ß Pasca∞ prograφ o≥á t∩á explaiεá it≤ ì
  676. formalitie≤á a≤á tha⌠ goe≤ beyonΣ thσ intentioε anΣ scopσ oµ thi≤á article« ì
  677. Perhaps¼á iµá enougΦá interes⌠á i≤ shown¼á furthe≥á article≤á coverinτá thσ ì
  678. languagσ iε morσ detail¼ coulΣ bσ arranged.
  679.  
  680. Thσ Utility¼á whicΦ ╔ havσ calleΣ 'U'¼ check≤ fo≥ thσ existencσ oµ file≤ iε ì
  681. al∞á User≤á oε thσ loggeΣ disc«á I⌠ theε displays¼á iε ßá linσá acros≤á thσ ì
  682. screen¼á al∞ 1╢ User≤ highlightinτ onl∙ thosσ tha⌠ contaiε files«á Thu≤ yo⌡ ì
  683. caεá quickl∙á determinσ iµ yo⌡ havσ an∙ file≤ 'hiddeε awayº oε an∙ oµá you≥ ì
  684. disc≤ withou⌠ havinτ t∩ 'look-upº eacΦ User«  N∩ matte≥ wha⌠ Use≥ yo⌡  werσ ì
  685. iε t∩ begiε with¼  yo⌡ wil∞ bσ returneΣ therσ wheε  thσ utilit∙ terminates.
  686.  
  687. Iµá yo⌡á d∩á no⌠ havσ acces≤ t∩ Turb∩ Pasca∞ anΣ woulΣá likσá t∩á havσá thσ ì
  688. utility¼á pleasσá brinτ alonτ ß formatteΣ disπ t∩ thσ CluΓ anΣ ß cop∙ shal∞ ì
  689. bσ your≤ fo≥ thσ asking.
  690.  
  691. Program U;         { Show USER status }
  692. {*************************************}
  693.  
  694. {*************************************
  695.  **   Program : U        May 1987   **
  696.  **                                 **
  697.  **   A Utility to Indicate which   **
  698.  **   User areas on the currently   **
  699.  **   logged  disc  are  occupied.  **
  700.  **                                 **
  701.  **   Author  : Robert A Smith.     **
  702.  **             Briar Hill. Melb.   **
  703.  **             Victoria 3088.      **
  704.  **                                 **
  705.  **   Version : 1.1                 **
  706.  **   Date    : 25-5-87             **
  707.  *************************************}
  708. Type                      {Image of System File Control Block}
  709.   FCBlock     = Array[0..15] of Byte; 
  710. Constè  SetDMA      = 26;       {BDOS Function Call}
  711.   SetUser     = 32;       {BDOS Function Call}
  712.   GetUser     = 32;       {BDOS Function Call}
  713.   SearchFirst = 17;       {BDOS Function Call}
  714.   HiLightOn   = #27#41;   {Sequence to start inverse chars}
  715.   HiLightOff  = #27#40;   {Sequence to stop  inverse chars}
  716.   SearchMask  : FCBlock   {Wild-Card mask                 }
  717.               = (0,63,63,63,63,63,63,63,63,63,63,63,0,0,0,0);
  718.  
  719. Var
  720.   Occupied  : Array[0..15] of Boolean; {'Occupied User' flag register}
  721.   DMAbuffer : Array[1..128] of Byte;   {Buffer used for disc search}
  722.   FCBbuffer : FCBlock;                 {FCB used for Wild-Card search}
  723.   Count,                               {General counter}
  724.   User,                                {User search pointer}
  725.   CurrentUser : Integer;               {Current User number storage}
  726.  
  727. Procedure InitialiseDMA;
  728. {**********************}
  729. Begin
  730.      {Call System to set temporary read buffer}
  731.   Bdos(SetDMA,Addr(DMAbuffer));
  732. End;
  733. Procedure InitialiseFCB;
  734. {**********************}
  735. Begin
  736.      {Put search mask into search File Control Block}
  737.   Move(SearchMask,FCBbuffer,Sizeof(FCBlock));
  738. End;
  739. Procedure GetCurrentUser;
  740. {***********************}
  741. Begin
  742.      {Call System to obtain current User number}
  743.   CurrentUser:=Bdos(GetUser,255);
  744. End;
  745. Procedure SearchForOccupiedUsers;
  746. {*******************************}
  747. Begin
  748.   Gotoxy(9,4); Write ('Now checking User ');
  749.   Delay(1000); {Cosmetic delay}
  750.      {Set-up loop to search all User numbers}
  751.   For User:=0 to 15 do
  752.   Begin
  753.        {Initialise, or reset, flag for a User}
  754.     Occupied[User]:=False;
  755.        {Call System to change to this User}
  756.     Bdos(SetUser,User);
  757.        {Advise what User is being searched}
  758.     Gotoxy(27,4); Write (User:2);
  759.        {Call System to search this User for any file}
  760.     If Bdos(SearchFirst,Addr(FCBbuffer)) < 255
  761.        {If a file is found, set flag for this User}
  762.     Then Occupied[User]:=True;
  763.   End;
  764. End;
  765.  
  766. Procedure DisplayHeading;
  767. {***********************}
  768. Beginè     {Output a line of dashes}
  769.   Gotoxy( 8,2); For Count:=1 to 65 do Write ('-');
  770.      {Display heading}
  771.   Gotoxy(20,2); Writeln (' Users containing files on current disc ');
  772.   Writeln;
  773. End;
  774.  
  775. Procedure DisplayResults;
  776. {***********************}
  777. Begin
  778.   Gotoxy(8,4);
  779.      {Set-up loop to display status of all Users}
  780.   For User:=0 to 15 do
  781.   Begin
  782.     If Occupied[User]
  783.        {Show User number in inverse}
  784.     Then Write (' ',HiLightOn,User:2,' ',HiLightOff)
  785.        {Show User number in normal}
  786.     Else Write (' ',          User:2,' '           );
  787.   End;
  788.   Writeln;
  789. End;
  790.  
  791. Procedure RestoreCurrentUser;
  792. {***************************}
  793. Begin
  794.      {Restore original User number}
  795.   Bdos(SetUser,CurrentUser);
  796. End;
  797.  
  798. Procedure DisplayCurrentUser;
  799. {***************************}
  800. Begin
  801.      {Output a line of dashes}
  802.   Gotoxy( 8,6); For Count:=1 to 65 do Write ('-');
  803.      {Display original User number}
  804.   Gotoxy(30,6); Writeln (' Current User is ',CurrentUser:2,' ');
  805. End;
  806.  
  807. BEGIN{Actual program starts here}
  808.      {Clear the screen}
  809.   Clrscr;              
  810.      {Set-up an area in memory for incoming disc data}
  811.   InitialiseDMA;
  812.      {Set-up an area in memory for disc search information}
  813.   InitialiseFCB;
  814.      {Display on screen what the program is about}
  815.   DisplayHeading;
  816.      {Obtain current User number for later restoration}
  817.   GetCurrentUser;
  818.      {Check-out each User for files & display progress}
  819.   SearchForOccupiedUsers;
  820.      {Display each User, hilighting those found containing files}
  821.   DisplayResults;
  822.      {Re-establish original User number}
  823.   RestoreCurrentUser;
  824.      {Display original User number for Operators benefit}
  825.   DisplayCurrentUser;
  826. END.è                    CURSOR.MWB        By Seth van Buren
  827.  
  828. Thi≤á simplσ utilit∙ prograφ i≤ designeΣ t∩ hel≡ programmer≤ choosσá curso≥ ì
  829. shape≤á anΣ flashinτ speeds«á  Thi≤ prograφ i≤ designeΣ t∩ hel≡ ßá beginne≥ ì
  830. programme≥ iε his/he≥ firs⌠ programs.
  831.  
  832.              This is a COMPETITION ENTRY, PLEASE VOTE FOR IT! (SvB)
  833.  
  834. 00090 FOR I = 64528 TO 64783: READ A:POKE I,A: NEXT I √▓░╖²
  835. 00100 CLS  √▒▒┤²
  836. 00104 CURS 24:PRINT "Cursor Selector" \ TAB(15)
  837.       "by Seth van Buren.  MBUG member 1071"  √░╡▒²
  838. 00110 PRINT TAB(10)"Type in the number of the desired cursor shape."\  √░▓╕²
  839. 00120 FOR I = 1 TO 8: PRINT [I2 I]".  "CHR(192+I) TAB 23 [I3 I+8]".  "
  840.       CHR(200+I):NEXT I √▓│▓²
  841. 00130 CURS 291:PRINT "N.B. To get no cursor at"   √▓░╡²
  842. 00140 CURS 355:PRINT "all type:" \  √░╕░²
  843. 00150 CURS 428:PRINT "POKE 220,20"  √▓│▒²
  844. 00200 CURS 852:INPUT "Your Selection ==>"A  √▒░╣²
  845. 00300 IF A < 1 OR A > 16 THEN PLAY 2,2:CURS 850:PRINT SPC 10:
  846.       GOTO 200  √░▒│²
  847. 00310 POKE 220,A + 95: POKE 257,2: 
  848.       PRINT"You have chosen "A".  Is this correct? (Y/N)";  √▒▓╖²
  849. 00320 B1$ = KEY:IF B1$ = "" THEN 320  √░▓╢²
  850. 00330 IF B1$ <> "Y" THEN 100  √▒│▒²
  851. 00340 CLS:PRINT \ "Cursor chosen:  "CHR(A+192)\  √░╕╣²
  852. 00350 PRINT "Would you like this cursor,"\TAB(27)"A.  Not flashing," \
  853.       TAB 27"B.  Flashing slowly, or"\TAB27"C.  Flashing quickly?"  √░│╣²
  854. 00360 C1$ = KEY:IF C1$ = "B" THEN LET A = A + 95:GOTO 400  √░╢┤²
  855. 00370 IF C1$ = "C" THEN LET A = A + 63:GOTO 400  √▓│▒²
  856. 00380 IF C1$ = "A" THEN LET A = A - 1:GOTO 400  √▓│┤²
  857. 00390 GOTO 360  √▒▒│²
  858. 00400 POKE 220,A   √▓▓▓²
  859. 00410 SPEED 100:PRINT"  The cursor displayed now is the one that you 
  860.       have chosen.  To get this in Micro World BASIC, type:"\
  861.       TAB(27) "POKE 220,"A: SPEED 0  √▒╣│²
  862. 00460 PRINT "Do You wish to run this program again?  (Y/N)";  √▓┤┤²
  863. 00470 D1$ = KEY:IF D1$="" THEN 470  √░│┤²
  864. 00475 IF D1$ = "Y" THEN 100  √░┤╣²
  865. 00480 POKE 257,0:POKE 220,111 : CLS   √▒▒╖²
  866. 00490 END  √▒▒▒²
  867. 20010 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,
  868.       255,255,255  √▓╡▒²
  869. 20020 DATA 0,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 √▒╣▒²
  870. 20030 DATA 0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255  √░▓│²
  871. 20040 DATA 0,0,0,255,255,255,255,255,255,255,255,255,255,255,255,255  √▓┤│²
  872. 20050 DATA 0,0,0,0,255,255,255,255,255,255,255,255,255,255,255,255  √░╡╣²
  873. 20060 DATA 0,0,0,0,0,255,255,255,255,255,255,255,255,255,255,255  √▓╡╡²
  874. 20070 DATA 0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,255  √░▓│²
  875. 20080 DATA 0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255  √▓┤│²
  876. 20090 DATA 0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255  √▓╡▒²
  877. 20100 DATA 0,0,0,0,0,0,0,0,0,255,255,255,255,255,255,255  √▒╕╢²
  878. 20110 DATA 0,0,0,0,0,0,0,0,0,0,255,255,255,255,255,255  √▓▒░²
  879. 20120 DATA 0,0,0,0,0,0,0,0,0,0,0,255,255,255,255,255  √▒╢╢²
  880. 20130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,255  √▒╖┤²
  881. 20140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255  √▒▓▓²
  882. 20150 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255  √░╕▓²
  883. 20160 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255  √░│╕²
  884. è                       ENGINEERING NOTES AND CHANGES
  885. ENC 12-301086  DATE:  30 October 1986   JKS-91 KEYSWITCH "WOBBLE" FIX
  886.  
  887. A≤á aε emergenc∙ measurσ MOST¼á BU╘ NO╘ ALL¼á switche≤ caε bσ repaireΣ witΦ ì
  888. human hands as the only tools. The fix is as follows (WOBBLE FIX):-
  889.  
  890. 1.   Remove the keytop from the offending key.
  891. 2«á  Gras≡ thσ to≡ oµ thσ whitσ nyloε actuato≥ anΣ pusΦ thσ actuato≥ unti∞ ì
  892.      it bottoms.
  893. 3«á  Wobblσá thσ actuator witΦ ß circula≥ motioε severa∞ time≤á clockwise¼ ì
  894.      then several times anti-clockwise, whilst holding it firmly bottomed.
  895. 4«á  Releasσá thσ actuator¼á turε thσ Microbeσ upsidσ dowε anΣ repea⌠á thσ ì
  896.      proceedure.
  897. 5.   Replace the keytop.
  898. 6.   The keyswitch should be replaced as soon as possible for reliable fix.
  899. 
  900.                                   ooOOoo
  901.  
  902. ENC 10-121086  DATE:12 October 86. ADDITIONAL CAPACITORS TO THE CLOCK CIRCUIT
  903. 
  904. PROBLEM║á  Systeφ clocδ circui⌠ no⌠ oscillatinτ o≥ runninτ a⌠ thσ incorrec⌠ ì
  905. frequency« Thi≤ applie≤ t∩ thσ 13.5mH· anΣ 4.00mH· circuits.
  906.  
  907. SOLUTION║á  AdΣá tw∩á capacitor≤ `caº anΣ `cbº a≤ closσ a≤ possiblσ t∩á thσ ì
  908. crysta∞ legs¼ goinτ t∩ grounΣ a⌠ thσ neares⌠ symmetriπ point.
  909.  
  910.           -------------------------|[]|-------------------------
  911.                |                 CRYSTAL               |
  912.                |                                       |
  913.      18-22pf ____`ca'                           `cb' ____ 18-22pf
  914.      ceramic ____                                    ____ ceramic
  915.                |                                       |
  916.                |                                       |
  917.               ---gnd                                  ---gnd
  918.  
  919. NOTE║á Al∞á factor∙ machine≤ produceΣ sincσ 12tΦ Augus⌠ 198╢ havσ haΣ thesσ ì
  920. capacitor≤ added« Oε Premiuφ basσ board≤ the∙ arσ founΣ oε thσ solde≥ side.
  921. 
  922.                                   ooOOoo
  923.  
  924. ENC 1-070487   DATE: 4th April 1987     RS232 SELF TEST FAILURES
  925. 
  926. PROBLEM║á  Wheε usinτ ß SEL╞ TES╘ anΣ bridginτ plug¼ t∩ tes⌠ thσ RS23▓ por⌠ ì
  927. yo⌡ ge⌠ ß cross« Changinτ thσ PI╧ sometime≤ fixe≤ thσ problem.
  928.  
  929. REASON║ Iε mos⌠ case≤ therσ i≤ nothinτ wronτ witΦ thσ PI╧ anΣ yo⌡ havσ jus⌠ ì
  930. throwεá awa∙ ß gooΣ PIO«á Thσ probleφ i≤ no⌠ thσ RX─ anΣ TX─ line≤ bu⌠á thσ ì
  931. CT╙ anΣ CL╦ lines« Shortinτ pin≤ ╡ t∩ 2┤ oε thσ DB2╡ put≤ tw∩ 1K╡ resistor≤ ì
  932. iεá serie≤ givinτ ß tota∞ oµ 3K«á Wheε Bi⌠ ▓ piε 2╣ oµ thσ PI╧ i≤á switcheΣ ì
  933. low¼á i⌠ canno⌠ pul∞ Bi⌠ │ piε 3░ lo≈ enougΦ througΦ thi≤ resistance«á Als∩ ì
  934. thσ 10╦ pullu≡ oε piε 3░ beinτ to∩ lo≈ ß valuσ doe≤ no⌠ help.
  935.  
  936. SOLUTION║ Disconnec⌠ thσ pullu≡ resisto≥ 10╦ connecteΣ t∩ piε 3░ (R░ oε thσ ì
  937. ALF┴ anΣ R1▒ oε thσ Premium)«á Ruε thσ selµ tes⌠ again«á Iµ yo⌡ ge⌠ ßá ticδ ì
  938. theε thσ PI╧ i≤ OK« Replacσ thi≤ 10╦ resisto≥ witΦ aε 18K¼ thi≤ pullu≡ mus⌠ ì
  939. bσ replaceΣ no⌠ lef⌠ disconnected« 
  940.  
  941. NOTE║á Al∞á Premium≤á produceΣá sincσ 23tΦ MarcΦ 198╖ havσ R1▒  a≤á aεá 18╦ ì
  942. resistor« Al∞ Microbeσ 256TC'≤ havσ R1╡ a≤ 18K.èENC 11-150986  DATE:  15th September  1986   GRAPHICS PRINT CRASH FIX
  943. 
  944. PROBLEM:  The Microbee Crashing when an attempt is made to print graphics.
  945.  
  946. REASON║á   Therσ i≤ ß critica∞ timinτ relationshi≡ betweeε thσ M▒ (a≤ inpu⌠ ì
  947. t∩á IC7▒ piε 6⌐ signa∞ anΣ thσ gateΣ IOR╤ (a≤ inpu⌠ t∩ IC7▒ piεá 5)«á Thesσ ì
  948. signal≤á arσá positivσá going¼áá durinτá thσá norma∞á machinσáá cycle¼áá a⌠ ì
  949. approximatel∙ thσ samσ time« Iµ M▒ rise≤ marginall∙ beforσ IORQ¼ ß spuriou≤ ì
  950. decodinτá oµá aεá unwanteΣ IOR╤ signa∞ occurs¼á ultimatel∙ resultinτá iεá ß ì
  951. crash.
  952.  
  953. SOLUTION:
  954.  
  955.                           Resistor           | IC71 HC138
  956.                              1K              |
  957.      M1--------->----------/\/\/\--+---------+ pin 6
  958.                                    |         |
  959.                          Capacitor |         |
  960.                          ceramic -----       |    
  961.                          220pf   -----       |
  962.                                    |         |
  963.                                    |         |
  964.                                  ---gnd      |
  965.  
  966.  
  967. 1.   With fine scalpel, cut track on component side just next to the plated
  968.      through hole closest to pin 8 of IC71.
  969. 2.   Turn board over so the wiring side is upwards and push one leg of the
  970.      1╦á resisto≥á througΦ thσ plateΣ througΦ holσ whicΦ ha≤ jus⌠á haΣá thσ ì
  971.      tracδá cu⌠á oε thσ othe≥ side«á Solde≥ resisto≥ leτ int∩á thi≤á plateΣ ì
  972.      through hole, and the other end to pin 6 of IC71.
  973. 3.   Solder a 22PF capacitor between pins 6 and 8 of IC71.
  974.  
  975. NOTE║ Al∞ factor∙ machine≤ produceΣ sincσ 15tΦ Septembe≥ 198╢ havσ haΣ thi≤  ì
  976. modificatioε done.
  977. 
  978.                                   ooOOoo
  979.  
  980. ENC 2-090487   DATE:  9th April  1987   DRAM TIMING MODIFICATIONS
  981. 
  982. PROBLEM║á Un-explaineΣ prograφ crashe≤ o≥ memor∙ problem≤ witΦ thσ Microbeσ ì
  983. 128k.
  984.  
  985. REASON║á Timinτá problem≤ havσ recentl∙ beeε discovereΣ iε thσ areß oµá thσ ì
  986. dynamiπ memor∙ oε thσ 128δ coreboard« Thσ probleφ i≤ exacerbateΣ b∙ thσ usσ ì
  987. oµá H├á logic«á T∩á allo≈ H├ technolog∙ t∩ bσá useΣá morσá confidentl∙á thσ ì
  988. followinτ modification≤ havσ t∩ bσ done.
  989.  
  990. SOLUTION║á (a⌐á RO╫á ADDRES╙á HOL─ TIME«á AdΣ ß 180pµá capacito≥á (418.118⌐ ì
  991. betweeε piε 1▒ anΣ piε ╖ IC33.
  992. (b⌐ RA╙ T╧ CA╙ DELAY« AdΣ ß 560pµ capacito≥ (410.156⌐ betweeε piε ╢ anΣ piε ì
  993. ╖ IC28.
  994. (c⌐ DAT┴ BU╙ TERMINATOR« AdΣ tw∩ 4K╖ resisto≥ SIP≤ (310.472⌐ iε paralle∞ o≥ ì
  995. ß singlσ 2K▓ resisto≥ SI╨ iε locatioε RN▒ nea≥ X1.
  996.  
  997. NOTE║á Thesσ change≤ havσ beeε implementeΣ t∩ al∞ productioε 8342-4-0▒ Corσ ì
  998. board≤ a≤ froφ 6tΦ Apri∞ 1987.
  999.  
  1000. èENC 4-250587                  DATE:  25th May 1987
  1001. 
  1002. Thi≤á EN├ summarise≤ al∞ thσ factor∙ modifications¼á beinτ donσ froφá issuσ ì
  1003. ENC'≤á plu≤ fou≥ othe≥ necessar∙ modifications«á Al∞ factor∙ produceΣ unit≤ ì
  1004. froφ UNI╘ No«á 7660░ havσ beeε done« Checδ thσ individua∞ ENC'≤ fo≥ furthe≥ ì
  1005. details.
  1006.  
  1007. 1.   ENC 6-120686   Speaker circuit changes.
  1008. 2.   ENC 10-121086  Capicators added to the clock circuits.
  1009. 3.   ENC 11-150986  Graphics print crash fix.ì
  1010. 4.   ENC 1-070487   RS232 Self Test failures.
  1011. 5.   ENC 2-090487   DRAM timing modifications.ì
  1012. 6.   ENC 3-140487   Using 2732 Character ROM's. Only required when a 2732 
  1013.                     replaces 4732 or 2532 character ROM.
  1014. 7.   KEYBOARD:      IC3 must be a 74HC151 and RN1 must be 33K.
  1015. 8.   GROUND WIRE:   On the solder side of MB 8501-4 board connecting X7
  1016.                     pin≤ │ anΣ ┤ t∩ pin≤ │ anΣ 4« ┴ harΣ disδ systeφ wil∞ ì
  1017.                     not work with this board, without this wire.
  1018. 9.   EARTH STRAP:   Connecting the 0 volts on the left hand ends of the
  1019.                     the main board and the Core boards together. This
  1020.                     applies to both DRAM and CMOS core boards.
  1021. 10   PREMIUM LINK:  This is on CMOS coreboards ONLY, a wire link is used
  1022.                     to connect X4 pin 11 to IC5 pin 26. ROM A is a 16k
  1023.                     27128 EPROM.
  1024.  
  1025.                                   ooOOoo
  1026.  
  1027.  
  1028.  
  1029. FOR SALE $$ FOR SALE $$ FOR SALE $$ 
  1030. 
  1031. 256δá Microbeσá CIA┬á (Viate∞ optioε fitted⌐ witΦ ▓ ° 400δá (3.5óá drives)¼ ì
  1032. amber monitor.  $750.00.   Original software with manuals:
  1033.      . WordStar Professional Pack.      $100.
  1034.      . Multiplan                        $100.
  1035.      . BeeArtistic                      $15.
  1036.      . Write-hand-man                   $25.
  1037.      . Graphics Wordbee                 $15
  1038.      . Goodison Software                $15. * (includes Home Budget, 
  1039.                     Spelling pack, Large figure addition/ subtraction)
  1040.      . Many 3.5" disks with Public Domain s'ware at $3.00 ea.
  1041.      . 2 Captain Grant joysticks        $5.00 ea.
  1042.      . Back issues of Online and Catcher free to lucky purchaser!!!!
  1043.  
  1044.           Contact Paul Heneberry on: B/H 606 8518 or A/H 726 8367
  1045.  
  1046. FOR SALE $$ FOR SALE $$ FOR SALE $$ 
  1047.  
  1048.  
  1049.  
  1050. From║ PETE╥ BROUGHTO╬ To║   AL╠          Re║ ß CAS┼ oµ eyσ strain
  1051. ┴ friendl∙ messagσ froφ onσ wh∩ like≤ t∩ reaΣ (anΣ answer⌐ everybod∙ else'≤ ì
  1052. messages« Pleasσ usσ lowe≥ caseí Thσ MicroBeσ i≤ onσ oµ thosσ marvelou≤ ne≈ ì
  1053. computer≤ witΦ thσ ful∞ ASCI╔ characte≥ set¼ s∩ yo⌡ shouldn'⌠ bσ limiteΣ t∩ ì
  1054. UPPE╥ CASE«á Besides¼á yo⌡ wil∞ bσ amazeΣ ho≈ mucΦ easie≥ i⌠ i≤ to∩ reaΣá ß ì
  1055. screeε ful∞ oµ lowe≥ casσ letter≤ thaε ┴ SCREE╬ FUL╠ O╞ UPPE╥ CAS┼ LETTERS« ì
  1056. S∩á pleasσ d∩ u≤ al∞ ß servicσ anΣ pres≤ tha⌠ littlσ blacδ ke∙ oε thσá lef⌠ ì
  1057. hanΣá sidσá oµ thσ keyboarΣ (yo⌡ know¼á thσ onσ labeleΣá `LOCK')«á ì
  1058. è          FRO═ TH┼ EDITO╥     FRO═ TH┼ EDITO╥     FRO═ TH┼ EDITO╥     
  1059.  
  1060. Froφ thσ answer≤ giveε oε thσ fe≈ surve∙ card≤ s∩ fa≥ reviewed¼ mos⌠ peoplσ ì
  1061. appreciatσá thσá followinτá question≤ » help≤ iε Thσ Catcher«á No≈á ╔á havσ ì
  1062. printeΣá somσ morσ oµ them¼á i⌠ woulΣ bσ nicσ t∩ seσ thσ ANSWERS«á Iµá you≥ ì
  1063. probleφá ha≤ beeε solveΣ b∙ somσ helpfu∞ member¼á ho≈ abou⌠ yo⌡ le⌠ u≤á al∞ ì
  1064. know«á Afte≥ all¼á i⌠ i≤ no⌠ ß persona∞ anΣ privatσ hel≡ column¼ wherσ oncσ ì
  1065. yo⌡ ge⌠ thσ answe≥ yo⌡ kee≡ i⌠ secret¼á bu⌠ ß member≤ forum«á Pleasσá don'⌠ ì
  1066. forge⌠ you≥ fello≈ member≤ wh∩ arσ no⌠ ablσ t∩ contac⌠ u≤ witΦ ease«á  SenΣ ì
  1067. thσá answe≥á yo⌡ ge⌠ t∩ mσ (o≥ writσ aε articlσ anΣ bσ paiΣ fo≥ it⌐ anΣá wσ ì
  1068. wil∞ prin⌠ i⌠ s∩ al∞ ma∙ gaiε froφ you≥ experience«       ED.
  1069.  
  1070.  
  1071. From║ GRE╟ EV┴           To║   EDWAR─ GLAZEBROO╦  Re║   OB╩ FILES
  1072. OB╩á FILE╙ AR┼  "COMó  FILE╙ RENAME─ S╧ THE┘ CANNO╘ B┼ RU╬ O╬ TH┼á BB«á AL╠ ì
  1073. YO╒ HAV┼ T╧ D╧ I╙ T╧ RE-NAM┼ THE═ T╧ "COMó FILES« 
  1074.  
  1075. From║ ERI├ ANDERSO╬      To║   AL╠           Re║   EXPERIMENTE╥ BOARD
  1076. ╔á HAV┼ ┴ PREMIU═ AN─ A╬ EXPERIMENTER'╙ BOARD«á ╔ WOUL─ LIK┼ T╧ KNO╫ HO╫ T╧ ì
  1077. CONTRO╠ TH┼ Z8░ PI╧ USIN╟ M/L« TH┼ MANUA╠ I╙ ONL┘ FO╥ ┴ STANDAR─ BEE« 
  1078.  
  1079. From║ DARRI╬ SMAR╘       To║   SYSO╨         Re║   IMCC
  1080. Hiíá Yo⌡á havσá ßá grea⌠ boarΣ dowε here«á ╔ aφ ringinτ oεá behalµá oµá thσ ì
  1081. Illawarrß Microbeσ Compute≥ CluΓ (╔ aφ thσ librarian)«á ╔ woulΣ likσ t∩ asδ ì
  1082. yo⌡ iµ ou≥ club≤ coulΣ arrangσ t∩ havσ thσ softwarσ froφ thi≤ BB╙ copieΣ t∩ ì
  1083. disδá fo≥ thσ benefi⌠ oµ ou≥ members«á ╔ thinδ ou≥ cluΓ havσá ßá membershi≡ ì
  1084. witΦá MBUG«á ╔ wil∞ tr∙ t∩ ge⌠ somσ softwarσ togethe≥ iε returε (iµ yo⌡ arσ ì
  1085. agreeablσ ╔ wil∞ senΣ yo⌡ ß cataloτ filσ oµ ou≥ librar∙ disks)«á Notσá tha⌠ ì
  1086. mos⌠ oµ i⌠ i≤ NO╘ froφ ou≥ member≤ - somσ arσ froφ SMUG¼á somσ arσ froφ thσ ì
  1087. SIG/M¼ CUG¼ CPM/UG¼ TESSERACT¼ ST┴ anΣ ┌ STUF╞ libraries¼ anΣ somσ arσ jus⌠ ì
  1088. genera∞á program≤ froφ BBS'≤ etc«á Pleasσ leavσ ß messagσ oε thi≤ boarΣá o≥ ì
  1089. thσ SMU╟ board«         Thanks¼ Darriε Smar⌠ (IMC├ librarian⌐ 
  1090.  
  1091. From║ DANIE╠ PRAGE╥      To║   AL╠      Re║   modula-2
  1092. ╔ jus⌠ though⌠ I'Σ leavσ ß messagσ abou⌠ thi≤ terrifiπ language«á I⌠ offer≤ ì
  1093. man∙á oµ thσ advantage≤ oµ ├ (low-leve∞á programming¼á separate-compilatioε ì
  1094. etc.⌐á witΦá thσ stric⌠ type-checkinτ oµ PASCAL«á  ╔ usσ thσá FT╠á compile≥ ì
  1095. (revieweΣá iε Online⌐ anΣ havσ founΣ i⌠ reliablσ anΣ witΦ fe≈ deficiencies«  ì
  1096. Anyonσ interesteΣ iε morσ detail≤ o≥ discussioε - jus⌠ leavσ mσ ß message.
  1097.  
  1098. From║ ANGEL╧ VIRGON┴          To║   AL╠           Re║   MICROBE┼ FO╥ SALE
  1099. CIA┬ DUA╠ DIS╦ SYSTE═ WIT╚ MONITO╥ FO╥ SALE« WIT╚ TH┼ SYSTE═ ╔ WAN╘ T╧ SEL╠ ì
  1100. ┴ SPEEC╚ SYNTHESIZER¼ A╬ EPRO═ PROGRAMME╥ AN─ READER¼ 1200/75,30░ bΣ MODEM¼ ì
  1101. PLENT┘ O╞ S'WARE« CONTAC╘ M┼ ON║ 579-279▓ » 531-169│ 
  1102.  
  1103. From║ KE╬ KOSCHE╠        To║   AL╠           Re║   me° oε 256tc
  1104. ┴ numbe≥ oµ program≤ n∩ longe≥ ruε oε thσ 256tc« Caε anyonσ hel≡ modif∙ ME╪ ì
  1105. anΣ o≥ BKERMI╘ t∩ ruε oε thσ 256tc┐ An∙ hel≡ woulΣ bσ appreciated« 
  1106.  
  1107. From║ KEVI╬ WOLRAT╚      To║   AL╠           Re║   MONITOR
  1108. I╬ ┴ PC8╡ MONITOR¼ YO╒ COUL─ SE┼ TH┼ HE╪ NUMBER╙ AN─ WHA╘ THE┘ MEAN« EG« 5╢ ì
  1109. HE╪á ╜á ╓á AN─ YO╒ GO╘ A╬ ASCI╔ DISPLAY«á EG.(CHES╙ D╧ YO╒á WAN╘á BLAC╦á O╥ ì
  1110. WHITE)«á NOW¼á WIT╚ TH┼ DIS╦ MONITOR¼á YO╒ CA╬ ONL┘ Seσ TH┼ HE╪ NUMBER╙ AN─ ì
  1111. NO╘ TH┼ WRITING« WHER┼ CA╬ ╔ GE╘ ┴ PROGRA═ WHER┼ YO╒ CA╬ SE┼ TH┼ WRITING.
  1112.  
  1113. From║ DARRY╠ W.R« SMIT╚       To║   AL╠      Re║   MEX.DO├ 
  1114. Doe≤ anyonσ havσ ß cop∙ oµ MEX.DOC«á Thσ cop∙ iε COMMS║á i≤ corrupteΣ abou⌠ ì
  1115. linσ 26░ wherσ i⌠ start≤ t∩ describσ thσ secondar∙ command≤ (poin⌠ ú 6⌐ 
  1116. è                                 SHOOT.MWB
  1117.  
  1118. Thσá program≤á oεá thi≤ anΣ thσ nex⌠ pagσ wil∞ givσá newe≥á programmer≤á aε ì
  1119. insigh⌠á int∩á ho≈ PCG'≤ worδ anΣ ho≈ t∩ ge⌠ thing≤ t∩ movσ oε thσá screen« ì
  1120. The∙ arσ b∙ n∩ mean≤ higΦ level¼ bu⌠ yo⌡ shoulΣ looδ a⌠ theφ a≤ example≤ oµ ì
  1121. way≤á you≥ futurσ program≤ coulΣ work«á T∩ makσ thesσ program≤ ruεá faster¼ ì
  1122. remove all spaces that are not needed in the programs. Thank≤ Mr« Voss.Ö ED.
  1123.  
  1124. 00001 CLS  √░▒╖²
  1125. 00002 PRINT "YOU HAVE TO SHOOT THE SHIP BY USING LEFT <";  √▒╕│²
  1126. 00004 PRINT ">RIGHT AND SPACE BAR TO FIRE"  √░▒│²
  1127. 00006 FOR T = 1 TO 2000 : NEXT T  √▓┤┤²
  1128. 00010 J = 5 : F = 15 : G = 0 : S = 29 : V = 15  √░▓┤²
  1129. 00020 CLS  √░╖┤²
  1130. 00030 POKE 61440 + V * 64 + S, 65  √▒╣▒²
  1131. 00040 A1$ = KEY  √░▒╕²
  1132. 00043 IF A1$ = " " THEN GOSUB 500  √░▓╕²
  1133. 00050 IF A1$ = "," THEN LET S = S - 1  √░╣╡²
  1134. 00060 IF A1$ = "." THEN LET S = S + 1  √▒░┤²
  1135. 00070 REM  √▒░┤²
  1136. 00080 POKE 61440 + J * 64 + F, 79  √▓░╕²
  1137. 00090 REM  √▒░╢²
  1138. 00100 REM  √▒┤╕²
  1139. 00110 H = INT(RND*4)+1  √▓▒╡²
  1140. 00120 IF H = 1 THEN LET F = F + 1  √░▓╖²
  1141. 00130 IF H = 2 THEN LET F = G + 2  √░▓│²
  1142. 00140 IF H = 3 THEN LET J = J + 1  √░▓╖²
  1143. 00150 IF H = 4 THEN LET J = J - 1  √░│▒²
  1144. 00160 IF F < 1 THEN LET F = 63  √▒╖░²
  1145. 00170 IF F > 63 THEN LET F = 63  √▓│▓²
  1146. 00180 IF J < 1 THEN LET J = 1  √▒┤░²
  1147. 00190 IF J > 12 THEN LET J = 12  √▓╡┤²
  1148. 00200 GOTO 20  √░┤│²
  1149. 00250 CURS 0 : PRINT "YOU DID IT IN "; G + 1 ;" SHOTS"  √▓╡┤²
  1150. 00260 END  √▒░╕²
  1151. 00500 FOR T = 14 TO 0 STEP -1  √░░░²
  1152. 00505 POKE 61440 + J * 64 + F, 79  √▓┤╖²
  1153. 00510 IF PEEK (6140 + J * 64 + S) <> 32 THEN 250  √░╕┤²
  1154. 00520 POKE 61440 + T * 64 + S, 46  √▓│▒²
  1155. 00530 NEXT T  √░┤▒²
  1156. 00535 NEXT T  √░┤╢²
  1157. 00540 CLS  √▒▓▓²
  1158. 00550 RETURN  √▒░╕²
  1159.  
  1160.  
  1161.                      DISKNUM.C      A CHARACTER MISSED 
  1162.  
  1163.      Oε pagσ ╣ oµ thσ Jul∙ Catcher¼á therσ i≤ ß missinτ characte≥ iε onσ oµ ì
  1164. thσá listinτ lines«á ┴ ¬ characte≥ i≤ missinτ froφ thσ codσ abou⌠ 2│á line≤ ì
  1165. from the bottom of the page. The correct code as set out below:
  1166.  
  1167. changed = TRUE;
  1168. while ((changed) && iret++ < (m*2))
  1169.  
  1170. Please add the * between the m and 2 in the above line.
  1171.  
  1172. ┴ compileΣ versioε anΣ thσ sourcσ i≤ oε thσ RBB╙ fo≥ thosσ wh∩ don'⌠ havσ ß ì
  1173. "Có compiler.
  1174. è                                KARATE.MWB 
  1175.  
  1176. 0010░ RE═ KARAT┼ b∙ RICHAR─ VOS╙ 1╣ JUN┼ 198╖  {148}
  1177. 0011░ RE═ KEY╙   "<ó LEF╘    RIGH╘ ">ó   {147}
  1178. 0012░ RE═ Yo⌡ caε onl∙ kicδ b∙ usinτ SPAC┼ BA╥ iε fron⌠    {150}
  1179. 0013░ RE═ oµ you≥ oppositioε  {149}
  1180. 0014░ NORMA╠ ║ R = 2┤ ║ ╙ ╜ 3╣  {158}
  1181. 00150 F = 32  √▒▓╖²
  1182. 00160 P = 63488 + 65 * 16  √░╕╕²
  1183. 00170 FOR A = P TO P + 16 * 5 - 1  √▒╡┤²
  1184. 00180 READ B: POKE A, B  √░▒│²
  1185. 00190 NEXT A  √░│░²
  1186. 00200 DATA 4,14,4,36,60,4,4,4,4,10,10,17,17,0,0,0  √░╖╢²
  1187. 00210 DATA 4,14,4,36,60,4,4,4,4,100,28,2,2,1,1,0,0,0  √▒▓▓²
  1188. 00220 DATA 32,112,32,36,60,32,32,32,32,72,72,136,136,0,0,0  √▓╡▓²
  1189. 00230 DATA 32,112,32,36,60,32,32,38,56,64,64,128,128,0,0,0  √▓▓╣²
  1190. 00240 DATA 255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  √▓╡┤²
  1191. 00250 CLS: CURS 29 : PRINT"KARATE"  √▒╣╡²
  1192. 00260 PCG:CURS 24,5: PRINT "EEEEEEEEEEEEEEEE" : NORMAL  √░┤╡²
  1193. 00270 CURS 14,3:PRINT "YOU "; H: CURS 174: PRINT "ME "; C  √▒╣▒²
  1194. 00280 PCG : CURS R,4 : PRINT "C" : CURS S,4 : PRINT "A" : NORMAL  √▒╢│²
  1195. 00290 IF R < 24 THEN LET C = C + 1  √▒░╣²
  1196. 00300 IF S > 39 THEN LET H = H + 1  √▒░▓²
  1197. 00310 D = INT(RND*3+1)  √░▒░²
  1198. 00320 IF D = 1 AND S > R + 1 THEN LET S = S - 1  √░╖╣²
  1199. 00330 IF D = 2 AND S < 39 THEN LET S = S + 1  √░▓╢²
  1200. 00340 IF H = 5 THEN CURS 14,3: PRINT "WINNER": INPUT R1$ :RUN  √▒░▒²
  1201. 00350 IF C = 5 THEN CURS 174 : PRINT "WINNER" : INPUT R1$ : RUN  √▓╡╡²
  1202. 00360 IF S = R + 1 AND INT(RND*2) = 1 THEN GOSUB 430 : LET C = C + 1  √░▒╢²
  1203. 00370 A1$ = KEY  √░╕╖²
  1204. 00380 IF A1$ = "," THEN LET R = R - 1  √▒╢╕²
  1205. 00390 IF A1$ = "." AND R < S -1 THEN LET R = R + 1  √▓▓▒²
  1206. 00400 IF A1$ = " " AND R = S - 1 THEN GOSUB 450 : LET H = H + 1  √░┤╖²
  1207. 00410 CURS 10,4 : PRINT"                              " :REM 30 SPACES 
  1208. 00420 GOTO 270  √▒▒▒²
  1209. 00430 REM computer kick  √▒╡▓²
  1210. 00440 PCG : CURS S,4 : PRINT "B" : NORMAL : RETURN  √░▒▓²
  1211. 00450 REM human kick  √▒╡┤²
  1212. 00460 PCG : CURS R,4 : PRINT "D" : NORMAL : RETURN  √░░╣²
  1213.  
  1214.  
  1215.  
  1216. FOR SALE $$  FOR SALE $$  FOR SALE $$  
  1217.  
  1218. Tandy printer VIII Serial and Parallel. 40,66,80,133 chars/line. 
  1219. Excellent condition. $150.00  L. E.  DUNN    792 - 2038
  1220.  
  1221.                  _                                       _
  1222.  
  1223. 56δ Mbeσ Dreamdisδ controller¼á ▓ ° 8░ tracδ  ╡ 1/4ó drives¼ greeε monitor¼ ì
  1224. joystick, Catchers & software. $800.00 ONO. M. WOODWARD   763 - 4046 A/H.
  1225.  
  1226.                  _                                       _
  1227.  
  1228.  
  1229. Green Phosphor Professional Visual Display unit for Bee. $30.00
  1230. Cliff CHAMBERS.          762 - 6220
  1231.  
  1232. FOR SALE $$  FOR SALE $$  FOR SALE $$  è
  1233.  
  1234. *** BAZAAR SALES *** BAZAAR SALES ***
  1235.  
  1236.  
  1237.      *ááYOU╥ááááLIBRAR┘áááá*
  1238.              
  1239.            THE CATCHER
  1240.       02B├ Volumσ ▓     (Oct.83-Sept.84⌐.................. $15.0░    
  1241.       03BC Volume 3     (Oct.84-Sept.85).................. $15.00    
  1242.       04UB Volume 4     (Oct.85-Sept.86)                              
  1243.            (Unbound-Only enough for 3..................... $15.00    
  1244.       MB01 MAGAZINE BINDERS   (For ONLINE)................ $ 8.00
  1245.  
  1246.      * HEAD   CLEAN *                                         
  1247. 
  1248.       5HCK Drive Head Cleaning Kit 5.25" ................. $10.00
  1249.       3HCK Drive Head Cleaning Kit 3.5" .................. $13.00
  1250.                                               
  1251.       * SOFTWARE   *                          
  1252. 
  1253.       01B┴ BeeArtistiπá (Graphiπ S/W⌐á.................... $35.0░    ì
  1254.       01BP BeeArtistic Premium Version ................... $35.00
  1255.              ($20.00 for an Update from Standard- Old original
  1256.               for New)
  1257.       001W Write Hand Man     (Order) .................... $40.00
  1258.       0BKP Beekeeper (see review Catcher Jan. '87)........ $90.00            
  1259.       1FPF Flashprint 4    (with Flashkey) ............... $50.00    
  1260.       002S Poor Persons Spooler   (Order) ................ $40.00    
  1261.       003S Poor Persons Spreadsheet   (Order)............. $40.00    
  1262.       004S Poor Persons Spelling Checker  (Order)......... $30.00      
  1263.       005S Poor Persons Window System   (Order)........... $30.00    
  1264.       006S Poor Persons Menus   (Order)................... $30.00    
  1265.       007S Poor Persons Keyed Sequential Files (Order).... $30.00            
  1266.       00PM Printmaster Editor ............................ $25.00
  1267.            Dreamcards Software Orders are available on request.
  1268.  
  1269.       * YOUR   PRINTER   *                                           
  1270.  
  1271.       80PR Carboε Printe≥ Ribboε (New Stock)
  1272.                      (suit xyz.80/100 printers) .......... $13.00   
  1273.       10PP 1250 SHEETS CONT. PAPER
  1274.                 (70 GSM - NOT AVAILABLE FOR MAILING ...... $15.00
  1275.     
  1276.     ¬ááDISK╙  ááááá *
  1277.      
  1278.       3SDB Blank 3.5" Disks, MAXELL   SSDD Box of 10 ...... $40.00 
  1279.       3SDS Blanδ 3.5ó Disk≤, MAXELL   SSDD Singles ........ ñ 4.00 
  1280.       3DSF Blank 3.5" Disks, BASF DSDD Plastic Box of 5 ... $23.00
  1281.       5DSSáBlanδ 5.25ó Disks, NASHUA DSDD Singles ......... $ 1.70 
  1282.       3DSF Blank 3.5" Disks, BASF DSDD Singles  ............$ 4.80
  1283.            (These Nashua Disks are DSDD, NOT SSDD like some
  1284.             which are advertised).
  1285.       5DSD Blank 5.25" Disks, Singles ..................... $ 1.40
  1286.       
  1287.       SPECIAL'S THIS MONTH ARE HEAD CLEANING KITS REDUCED BY $2.00
  1288.  
  1289. *** BAZAAR SALES *** BAZAAR SALES ***
  1290.  è
  1291.  
  1292. *** BAZAAR SALES *** BAZAAR SALES ***
  1293. 
  1294.  
  1295.       * HARDWARE   *
  1296. 
  1297.       00PB Don Mc Kenzie Printer Buffers
  1298.                PC Board and Eprom ......................... $ 39.00
  1299.                Full 8-64K kit (of parts) .................. $ 95.00
  1300.                Full 256K Kit (of parts) ................... $115.00
  1301.  
  1302.       03DD 1MEG. (Unformatted) NEC 3.5" Third Height DS/FDD $200.00
  1303.       05DD 1MEG/1.6MEG DUAL SPEED 5.25" Disk Drive ........ $200.00
  1304.       01T├ REA╠ TIM┼ CLOCK  KIT╙ (see May Catcher)......... $ 25.00
  1305.       SP01 SPEED MODULATOR              
  1306.                        (slows down MICROBEE for games).,..  $ 15.00
  1307.                   DRIVES NOT AVAILABLE BY MAIL ORDER
  1308.  
  1309.       * DISK   STORAGE  *
  1310. 
  1311.       5B85 DISK STORAGE BOX 5.25"
  1312.                             (Lockable, holds 100).......... $ 18.00
  1313.       5B10 DISK LIBRARY BOX 5.25"  (holds 10) ..............$  3.00
  1314.       3B40 DISK STORAGE BOX 3.5"
  1315.                             (Lockable, holds 40) .......... $ 18.00 
  1316.  
  1317.    All postal orders to be sent to MBUG AUSTRALIA SALES    
  1318.                                       P.O. BOX 157, NUNAWADING
  1319.                                       VICTORIA 3131
  1320.  
  1321.    T∩ avoiΣ delays¼á al∞ order≤ mus⌠ includσ cheque¼ posta∞ orde≥ orì
  1322.    Bankcard authorization for the total amount(inc. postal & handling
  1323.    charges). Allow 21 days for the return of goods, or pick-up at the
  1324.    next meeting.
  1325.  
  1326.    PLEASE SPECIFY DISK SIZE WHEN ORDERING SOFTWARE 
  1327.  
  1328.    GOOD╙  AVAILABL┼ FO╥ MEMBER╙ ONL┘      
  1329.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
  1330.    Please charge my Bankcard/Visa/Master Card No. ___ __ ___ ______
  1331.  
  1332.    Expiry Date __/__/____               Signature_________________
  1333.    Members Name.__________________________________ M/ship No._____
  1334.    Address._______________________________________________________
  1335.    Phone Number_____________________(INC S.T.D. CODE)
  1336.    Code  Item                      Quantity    Price    Total Cost
  1337.    ____  ________________________  ________    _____    __________
  1338.    ____  ________________________  ________    _____    __________
  1339.    ____  ________________________  ________    _____    __________
  1340.    Postal Fees (within Aust.)       Sub-Totals Items     $_________
  1341.    $10 to $20 order    :$2.50  Postage & Handling Fee   $_________
  1342.    $20 to $80 order    :$5.00
  1343.    greater than $80    :$7.50             Total Order    $_________
  1344.  
  1345.    Certified Mail add $1.00              Security Post  add $5.00
  1346.         MINIMUM POSTAL ORDER $10.00            JUNE '87.      
  1347.  
  1348. *** BAZAAR SALES *** BAZAAR SALES ***