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 / MBUG051.ARC / 1987JULY.CAT < prev    next >
Text File  |  1979-12-31  |  72KB  |  1,224 lines
  1. .pl70
  2. .po0
  3. .OP
  4. .HE#  JULY  - 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. COMPUTER BOOK DISCOUNT TECHNICAL BOOKSHOP SWANSTON St. MELBOURNE
  34. PRESTON ELECTRONIC COMPONENTS 217 HIGH ST. PRESTON. 
  35.  
  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.      ╔ hopσ yo⌡ likeΣ thσ forma⌠ oµ thσ Catche≥ las⌠ month« Thσ changσ camσ ì
  66. abou⌠á duσ t∩ thσ qualit∙ oµ thσ finisheΣ produc⌠ ove≥ thσ las⌠ fe≈ months« ì
  67. A≤ yo⌡ wil∞ n∩ doub⌠ havσ noticed¼ somσ oµ thσ thing≤ wσ trieΣ diΣ no⌠ worδ ì
  68. a≤ wσ woulΣ havσ liked«á Thi≤ i≤ no⌠ thσ faul⌠ oµ thσ peoplσ wh∩ prin⌠á thσ ì
  69. Catcher¼ o≥ thσ printe≥ useΣ fo≥ thσ prooµ copy¼ bu⌠ ß combinatioε oµ both« ì
  70. Wσá arσ investigatinτ thσ cost≤ oµ ß typσ se⌠ magazinσ o≥ ß ne≈ printe≥á t∩ ì
  71. producσ thσ proofs« Eithe≥ way¼ thσ columε forma⌠ wil∞ bσ continueΣ a≤ lonτ ì
  72. a≤á therσá i≤á enougΦ material«á  Thi≤ ma∙ bσ ß gooΣ timσ fo≥á yo⌡á t∩á pu⌠ ì
  73. finger≤ t∩ keyboarΣ anΣ hel≡ u≤ ensurσ ß ful∞ magazine.
  74.  
  75.      A⌠á thi≤ month≤ meetinτ wσ wil∞ bσ havinτ anothe≥ "TrasΦ anΣ Treasureó ì
  76. nigh⌠á fo≥ thosσ wh∩ misseΣ ou⌠ las⌠ montΦ becausσ thσ magazinσá wa≤á late╗ ì
  77. ou≥á norma∞ mailinτ da∙ wa≤ ß publiπ holiday«á  Oncσ agaiε therσ wil∞ bσ n∩ ì
  78. demo≤ bu⌠ ß ╤ ª ┴ sessioε oε thσ Shel∞ anΣ program≤ oε you≥ maste≥ disk.
  79.  
  80.      Late≥ iε thi≤ issuσ yo⌡ wil∞ finΣ nominatioε form≤ fo≥ place≤ oεá nex⌠ ì
  81. year≤ committee« Thσ Annua∞ Genera∞ Meetinτ wil∞ bσ helΣ beforσ thσ genera∞ ì
  82. meetinτá iε August«á ╔ woulΣ hopσ wσ havσ enougΦ peoplσ nominatσ s∩ wσá ma∙ ì
  83. havσ ß ballo⌠ fo≥ thσ position≤ a≤ wσ diΣ las⌠ year« Therσ arσ 1│ position≤ ì
  84. whicΦ mus⌠ bσ filled«  Therσ i≤ als∩ thσ positioε oµ "Publiπ Officeró whicΦ ì
  85. caεá bσá filleΣá b∙ ß ordinar∙ membe≥ oµ b∙ aεá electeΣá committeσá member« ì
  86. Pleasσá suppor⌠ you≥ cluΓ b∙ nominatinτ fo≥ ß position«á Don'⌠ leavσ i⌠á t∩ ì
  87. thosσá havσ ruε thσ cluΓ iε previou≤ year≤ a≤ the∙ ma∙ no⌠ wisΦ t∩ continuσ ì
  88. iε thσ position≤ the∙ no≈ hold«á Iε an∙ case¼ wσ canno⌠ expec⌠ thσ samσ fe≈ ì
  89. t∩ carr∙ thσ cluΓ a≤ i⌠ ha≤ iε thσ past« YOU╥ cluΓ shoulΣ bσ iε YOU╥ hands« ì
  90. A≤ aε extrß incentive¼ afte≥ onσ year≤ servicσ oε thσ committee¼ thσ membe≥ ì
  91. i≤ entitleΣ t∩ thσ nex⌠ year≤ membershi≡ fo≥ $1.00« Othe≥ perk≤ include...« 
  92.  
  93.      Aεá apolog∙ t∩ member≤ wh∩ arσ waitinτ fo≥ thσ introductioε bookle⌠á ╔ ì
  94. promiseΣ you«á Thσ reasoε fo≥ thσ dela∙ i≤ a≤ follows«á A≤ wσ werσ abou⌠ t∩ ì
  95. prin⌠á thσ book¼á thσ syso≡ begaε installinτ ß ne≈ operatinτ systeφ t∩á thσ ì
  96. RBBS«á Thi≤ mean≤ whateve≥ wσ planneΣ t∩ prin⌠ woulΣ becomσ invalid«á Also¼ ì
  97. thσ systeφ oµ password≤ wil∞ bσ changeΣ witΦ thi≤ systeφ s∩ al∞ woulΣá havσ ì
  98. instan⌠ acces≤ t∩ CP/M«á Lastly¼ becausσ thi≤ systeφ ha≤ takeε somσ timσ t∩ ì
  99. se⌠á up¼á anΣ iε Augus⌠ informatioε abou⌠ thσ committeσ wil∞ change¼á therσ ì
  100. wa≤á n∩ valuσ iε printinτ jus⌠ ß fe≈ copie≤ tha⌠ woulΣ sooε becomσá ou⌠á oµ ì
  101. date«á Onσ othe≥ changσ wa≤ thσ closinτ oµ thσ tapσ library« ╔ hopσ t∩ havσ ì
  102. copie≤ fo≥ member≤ abou⌠ Sep⌠ » Oc⌠ a⌠ thσ latest.
  103.  
  104.       WARNIN╟   WARNING.«   ATTENTIO╬ SCHOO╠ TEACHER╙ AN─ INSTITTUTIONS
  105.                              anΣ everyonσ else
  106.  
  107. Iµá yo⌡ don'⌠ opeε thσ mail¼á pleasσ tel∞ whoeve≥ does¼á tha⌠ yo⌡ mus⌠ havσ ì
  108. thσá envelopσá froφá thσá nex⌠ Catcher«á Oεá you≥á mailinτá labe∞á wil∞á bσ ì
  109. informatioεá tha⌠á wil∞ bσ VITA╠ t∩ you≥ usinτ thσ RBBS«á You≥ B┬á passworΣ ì
  110. wil∞á bσá changeΣ afte≥ deliver∙ oµ thσ Augus⌠ Catcher«á ┴ PI╬á numbe≥á fo≥ ì
  111. initia∞á acces≤á wil∞ bσ ß valuσ baseΣ oε thσá Postcode¼á month≤á remaininτ ì
  112. and/o≥ membershi≡ number« Thσ methoΣ oµ calculatinτ you≥ PI╬ numbe≥ wil∞ bσ ì
  113. giveε iε thi≤ columε nex⌠ month«á Yo⌡ will¼ oε keyinτ iε thσ correc⌠ numbe≥ ì
  114. O╬ YOU╥ FIRS╘ VISI╘ afte≥ implementation¼á bσ askeΣ t∩ inpu⌠ ß passworΣá oµ ì
  115. you≥ choice«á Thi≤ wil∞ theε bσ you≥ passworΣ anΣ remaiε s∩ fo≥ futurσ use« ì
  116. Thσá PI╬ numbe≥ wil∞ onl∙ neeΣ t∩ bσ useΣ once«á Al∞ member≤ wil∞ theε havσ ì
  117. instan⌠ acces≤ t∩ CP/M«á Archived¼á non-finincia∞ member≤ anΣ visitor≤ wil∞ ì
  118. no⌠á bσá ablσ t∩ transfe≥ file≤ bu⌠ wil∞ havσ ß limiteΣá acces≤á (abou⌠á 2░ ì
  119. minutes)« Thσ clocδ wil∞ operatσ anΣ ß timσ limi⌠ wil∞ appl∙ t∩ AL╠ users« 
  120.  
  121. ╛ ANDRE╫ è            MICROBE┼ T╧ AMSTRA─ CONNECTION.         By Alan Laughton #679
  122.                                   Competition Entry
  123.  
  124. ┴á fe≈á month≤ ago¼á ß worδ matσá bough⌠     wa≤ donσ b∙ plugginτ iε thσ wronτ way!)     ì
  125. himselµáá aεáá AmstraΣáá CPC6128«áá Thi≤                                                 ì
  126. compute≥ run≤ CP/═ 2.▓ (no⌠ ver∙á well!⌐     3»   BeeAlieε i≤ ß fantastiπ prograφ bu⌠    ì
  127. anΣá CP/═ 3«á I⌠ ha≤ 128╦ oµ memor∙á bu⌠     i⌠á wil∞ no⌠ allo≈ yo⌡ t∩ RU╬ ßá prograφ    ì
  128. it≤á bigges⌠á let-dowε i≤ i⌠á i≤á fitteΣ     froφ thσ alieε disk« Wha⌠ abou⌠ SETDISK¼    ì
  129. witΦá ß singlσ sideΣ 169╦ 3ó disδá drivσ     thσáá Publiπá Domaiεá Microbeσá transfe≥    ì
  130. (3ó no⌠ 3.5")« Thesσ drive≤ ╔ understanΣ     program«á Thσá AmstraΣ BIO╙á support≤á │    ì
  131. arσ uniquσ t∩ Amstrad≤ anΣ somσ Sega's.      differen⌠á disπ formats¼á onσ beinτ IBM«    
  132.                                              (ie«á IB═á singlσ sideΣ 152δ a≤ useΣá b∙    
  133. Thσ disδ sizσ wa≤ ß probleφ wheε i⌠ camσ     CP/═á 86.⌐ Thσ AmstraΣ formatteΣ aεá IB═    ì
  134. t∩ acces≤ Publiπ Domaiε Software«á ╔ haΣ     disδá anΣá usinτ Setdisδ ╔ wa≤á ablσá t∩    ì
  135. publiπ domaiε program≤ tha⌠ hσ required«     transfe≥á file≤ a⌠ supe≥ speeΣ t∩ thσ 3ó    ì
  136. Ho≈á t∩ ge⌠ theφ froφ M'beσ t∩á Amstrad«     B║á drive«á However¼ thσ file≤ needeΣ t∩    ì
  137. Onl∙á ╔ haΣ ß modem«á Wσ approacheΣá thσ     bσá transferreΣá t∩á aεá AmstraΣá SYSTE═    ì
  138. probleφ ┤ differen⌠ ways:-                   formatteΣá disδá t∩ bσ booteΣá anΣá run«    
  139.                                              Thi≤ wa≤ messy«á Therσ mus⌠ bσ ßá bette≥    
  140. 1»á Wσ fel⌠ thσ easies⌠ wa∙ t∩á transfe≥     solution.                                   ì
  141. file≤ wa≤ througΦ thσ seria∞ port«á Thi≤                                                 ì
  142. wa≤ thσ firs⌠ probleφ - thσ AmstraΣ doe≤     4»    SETDIS╦ ha≤ n∩ datß fo≥ aε AmstraΣ    ì
  143. NO╘ havσ ß seria∞ portí However¼ onσ caε     SYSTE═á disk«á Thi≤ i≤ thσá maiεá forma⌠    ì
  144. bσ purchaseΣ fo≥ $100« Thi≤ wa≤ donσ anΣ     supporteΣ b∙ AmstraΣ a≤ CP/═ caε onl∙ bσ    ì
  145. MODEM╖á configureΣá fo≥á thσá particula≥     loadeΣá o≥ warφ booteΣ (CP/═ 2.2⌐ froφ ß    ì
  146. seria∞ por⌠ uni⌠ wa≤ acquired« Probleφ ▓     SYSTE═ forma⌠ disk« N∩ worrie≤ ╔ saiΣ a≤    ì
  147. - thi≤ uni⌠ haΣ onσ se⌠ bauΣ rate¼ beinτ     thσá Catche≥á V┤ No╡ Feb.'8╢ p╖á ha≤á aε    ì
  148. 300«á Usinτ TELCO═ oε m∙ 'beσ anΣ MODEM╖     articlσ b∙ Marδ Bisho≡ tha⌠ describe≤á ß    ì
  149. oε thσ Amstrad¼á ß bi⌠ oµ telephonσ wirσ     methoΣá oµá findinτ thσ necessar∙á data«    ì
  150. anΣá ßá couplσá oµ 2╡ piεá ─á plug≤á al∞     Afte≥ man∙ frustratinτ hour≤ (o≥ wa≤á i⌠    ì
  151. runninτá a⌠ 30░ bauΣ i≤ ß poo≥ sigh⌠á t∩     days?⌐ ╔ finall∙ go⌠ itíá ╔ caε no≈ cop∙    ì
  152. see«á However¼á i⌠á al∞ workeΣ finσá anΣ     file≤á t∩ anΣ froφ aε AmstraΣ disδ usinτ    ì
  153. man∙á file≤á werσ transferreΣ thi≤á way«     Sweep¼ Transfer¼ Zip¼ etc« anΣ theε tes⌠    ì
  154. Thσ Seria∞ cablσ wa≤ madσ u≡ as:-            theφá b∙á runninτ theφ ofµá thσá AmstraΣ    
  155.                                              disk« Great!!                               
  156.              1  -->  1                                                                   
  157. Microbee     2  -->  3     Amstrad           Ente≥ááá thσáá followinτááá datßááá int∩    
  158. 25 pin D     3  -->  2     25 pin D          SETDISK.WS╘áá usinτá Wordsta≥á iεáá Non-    
  159. (Male)       5  -->  20    (female)          documen⌠áá modσá anΣá typσá SETDIS╦áá B║    
  160.              7  -->  7                       AMSTRA─á <cr╛ witΦ thσ 3ó drivσá pluggeΣ    
  161.             20  -->  5                       iε a≤ you≥ B║ drivσ anΣ ofµ yo⌡ go« Bes⌠    
  162.                                              oµ luck.                                    
  163.                                                                                          
  164. 2» M∙ frienΣ eventuall∙ bough⌠ ßá seconΣ                                                 ì
  165. 3ó drive« Thi≤ wa≤ ß selµ containeΣ uni⌠     *Amstrad 3" (40T, SS, DD, 169K)             ì
  166. anΣá saiΣ t∩ bσ pluτ compatiblσ witΦ ß ╡     0,3,36,3,7,0,170,63,192,0,16,2              ì
  167. 1/4óá drive«á ╔ havσ dua∞á 3.5óá drives«     65,66,67,68,69,70,71,72,73                  ì
  168. Maybσá b∙á un-plugginτ m∙ B║á drivσá anΣ     ì
  169. plugginτá iε thσ 3ó drive¼á ╔ coulΣá usσ           ZCPR2.  Continued from page 5ì
  170. BeeAlieε t∩ transfe≥ files«á Therσ i≤ aε     ì
  171. AmstraΣá 46┤á S╙á listeΣ oεá Men⌡á ▒á oµ     Bu⌠ ╔ prefe≥ consisten⌠ accurac∙ eveε iµ ì
  172. BeeAlieε «á Thi≤ proveΣ ver∙ successful«     slower«á ╔á havσ ever∙ confidencσ iεá m∙ ì
  173. ╔á coulΣá no≈ transfe≥á file≤á bacδá anΣ     ZCPR2«  S∩ ╔ shal∞ pu⌠ thi≤ gooΣ versioε       ì
  174. fortΦ a⌠ supe≥ speeΣ b∙ writinτ directl∙     oµ ZCPR▓ oε thσ bulletiε board¼ ß SYSGE╬ ì
  175. t∩á thσá disk«á ╔ coulΣ eveεá forma⌠á aε     versioεá nameΣ ZCPR2G«á Thi≤ mean≤á tha⌠ 
  176. AmstraΣá diskíá (Onσ smal∞ poin⌠ t∩ notσ     yo⌡ ruε ZCPR2╟ a≤ pe≥ SYSGEN.  This file 
  177. i≤  tha⌠  thσ  pluτ  froφ m∙ drivσ plug≤     anΣ thσ prograφ ZCPR2.CO═ arσ oε thσ RBBS
  178. int∩ thσ 3ó drivσ up-side-down« I⌠ need≤     and on MBUG P.D. DISK 051. 
  179. ß littlσ forcσ t∩ ge⌠ i⌠ in«á N∩á damagσè        ZCPR▓ Disδ Problem≤ oε thσ CIAB     Competition entry B∙ Rober⌠ Munro
  180.  
  181.      ╔á haΣ m∙ Compute≥ upgradeΣ t∩á thσ     devoteΣá t∩ this.⌐ Eventuall∙ ╔ go⌠ holΣ ì
  182. CIA┬á earl∙á iεá '8╡ anΣá haΣá thσá CCP┌     oµ ZSID¼á anΣ morσ recentl∙ CEBU╟á whicΦ ì
  183. versioε oµ CP═ unti∞ ╔ obtaineΣ ZCPR▓ iε     i≤á ver∙ mucΦ better¼á particularl∙ wheε ì
  184. Deπá 8╡ a⌠ ß timσ wheε ╔ haΣ haΣ m∙ CIA┬     i⌠ come≤ t∩ makinτ change≤ anΣá obtaineΣ ì
  185. t∩á Microbeσ t∩ fi° thσ disk«á ╔á recal∞     ßá Z8░ listinτ oµ BIO╙ fo≥ botΦ thσ CCP┌ ì
  186. no≈ tha⌠ righ⌠ froφ thσ firs⌠ a≤ ╔á madσ     anΣá ZCPR▓ versions«á ╔ shoulΣ als∩á sa∙ ì
  187. ßá securit∙ cop∙ oµ thσ disδ ╔ go⌠á disδ     tha⌠ ╔ wa≤ als∩ giveε ß "newó versioε oµ ì
  188. errors«á A≤ ß resul⌠ oµ thesσ continuinτ     ZCPR▓á b∙ Microbeσ whicΦ oε thσá surfacσ ì
  189. error≤á anΣ ß severσ dro≡ iεá confidencσ     seemeΣá quitσá differen⌠ wheεá ╔á diΣá ß ì
  190. iε thσ CIAB¼ ╔ haΣ thσ machinσ backward≤     compare« I⌠ turneΣ ou⌠ tha⌠ thσ BIO╙ haΣ ì
  191. anΣá forward≤ t∩ Microbeσ oε quitσ ß fe≈     haΣá tw∩ instruction≤ addeΣ anΣ thi≤ haΣ ì
  192. occasions« Eveε thσ machinσ the∙ len⌠ mσ     pusheΣ ß lo⌠ oµ thσ memor∙ addresse≤á oµ ì
  193. a⌠ onσ stagσ stil∞ gavσ problems«á ╔ wa≤     datßá u≡ b∙ tw∩ thu≤ givinτ thσá initia∞ ì
  194. assureΣá a⌠á thσá timσá tha⌠á thσáá disδ     impressioε oµ ß grea⌠ dea∞ oµ change.    ì
  195. controlle≥á haΣ beeε checkeΣ ou⌠ anΣ haΣ                                              ì
  196. beeεáá electricall∙á aligned«áá Iεáá thσ     Bu⌠ ╔ aφ jumpinτ ahead«á Thσ firs⌠ thinτ ì
  197. proces≤á ╔ thinδ almos⌠ ever∙á boarΣá iε     t∩á d∩á wa≤ t∩ finΣ ou⌠á abou⌠á ho≈á thσ ì
  198. thσá compute≥á wa≤ changed«á  Al∞ t∩á n∩     operatinτáá systeφá wa≤á laiΣáá out«áá ╔ ì
  199. avai∞á fo≥ thσ troublσ persisted«á S∩á ╔     recommenΣá DaviΣ Cortesi'≤ Insidσá CP/M« ì
  200. wa≤á reluctantl∙á forceΣ bacδá t∩á usinτ     AnΣá s∩ ╔ begaε t∩ worδ ou⌠ thσ logiπ oµ ì
  201. CCP┌á witΦ whicΦ ╔ haΣ n∩á trouble«á Onσ     thσ BIOS¼á it≤ routine≤ fo≥ gettinτ datß ì
  202. ti≡ ╔ wa≤ giveε a⌠ thσ timσ tha⌠ ╔á pas≤     froφ thσ keyboard¼á sendinτ datß t∩á thσ ì
  203. on¼ wa≤ tha⌠ turninτ thσ compute≥ oε anΣ     screeεá anΣ printe≥ anΣ t∩ anΣ froφ disδ ì
  204. ofµá witΦá thσ disδ stil∞ iεá ma∙á causσ     drives«á Thi≤á wa≤ complicateΣ to∩, witΦ ì
  205. disδ corruption« AnΣ i⌠ doe≤ too.            havinτá t∩á worδá ou⌠á thσá relationshi≡ 
  206.                                              betweeε Microbee'≤ BIO╙ anΣ thσ routine≤ 
  207. Oεá ßá visi⌠á t∩ Australbeσ ╔á wa≤á tolΣ     iεá thσá Boo⌠á Roφ sincσ ╔ kne≈á i⌠á wa≤ ì
  208. other≤ werσ havinτ difficult∙á too¼á bu⌠     possiblσ fo≥ thσ Monito≥ whicΦ i≤ iε thσ ì
  209. i⌠á wa≤ believeΣ tha⌠ thσ late≥á versioε     Boo⌠ Roφ t∩ d∩ disδ read≤ anΣ writes« Oµ ì
  210. oµá ZCPR▓ fo≥ thσ StΣ » Premiuφ haΣ beeε     coursσ sucΦ informatioε i≤ no⌠ document- ì
  211. modifieΣ t∩ resolvσ this«á Unfortunatel∙     eΣ publically¼á despitσ somσ promise≤ iε ì
  212. the∙á diΣá no⌠ havσ ß cop∙ oµ i⌠.            Online«á ╔á manageΣ t∩ gaiεá informatioε 
  213.                                              abou⌠áá littlσá bit≤á anΣá piece≤áá froφ 
  214. Bu⌠á ╔ reall∙ wanteΣ t∩ usσá ZCPR2«á Fo≥     article≤á al∞ ove≥ thσá place¼á anΣá wa≤ ì
  215. onσ thinτ it≤ abilit∙ t∩ havσá B:,C║á o≥     fortunatσ t∩ ge⌠ ß cop∙ oµ thσ Dreamdisδ ì
  216. D║ a≤ thσ alternativσ drivσ codσ anΣ fo≥     manua∞á froφ Tardi≤ whicΦ gavσ ß lo⌠á oµ ì
  217. thσá correc⌠á onσá t∩ bσ askeΣá fo≥á wa≤     informatioε abou⌠ thσ Boo⌠ Rom.          ì
  218. wanteΣá (iε CCP┌ thi≤ wa≤á onl∙á correc⌠                                              ì
  219. fo≥ C:)¼á a≤ wel∞ a≤ it≤ abilit∙ t∩ havσ     S∩ bi⌠ b∙ bi⌠ ╔ endeΣ u≡ workinτ ou⌠ thσ ì
  220. multiplσ command≤ oε onσ line« AnΣ therσ     variou≤ routine≤ anΣ subroutine≤ oµ botΦ ì
  221. was¼á ╔á dis-covered¼á ßá wholσ hos⌠á oµ     BIOSs¼á ho≈á the∙ interacteΣ anΣ thσ usσ ì
  222. program≤ oε SIG═ volume≤ 9╕ t∩ 108¼ 122¼     oµ thσ variou≤ datß location≤ tha⌠á werσ ì
  223. 124¼á 12╡ b∙ thσ autho≥ oµ ZCPR▓ tha⌠á ╔     used«á Eventuall∙á ╔á go⌠ t∩á thσá poin⌠ ì
  224. expecteΣá woulΣ makσ m∙ machinσ huφ wheε     wherσá ╔ discovereΣ thσ routine≤ tha⌠ d∩ ì
  225. ╔ pu⌠ i⌠ t∩ work.                            thσ blocδ reaΣ anΣ writσ routine≤ t∩ thσ 
  226.                                              disk«á (B∙á thσ way¼á thσ Microbeσá BIO╙ 
  227. Wel∞á Microbeσá a⌠ thσ timσá (earl∙á 86⌐     routine≤áá take≤á ßá 12╕á bytσáá record¼ ì
  228. werσ oµ littlσ usσ witΦ stafµ tellinτ mσ     usuall∙á froφ thσ BDOS¼á anΣ replace≤ o≥ ì
  229. tha⌠á querie≤á sen⌠ t∩ Sydne∙á werσá no⌠     read≤ i⌠ ou⌠ oµ ß 51▓ bytσ blocδ tha⌠ i≤ ì
  230. answered«á The∙ suggesteΣá writing¼á bu⌠     actuall∙áá writteεá physicall∙á t∩áá thσ ì
  231. magazinσá article≤ werσ sayinτ tha⌠ mai∞     disk.⌐á No≈ ╔ haΣ t∩ discove≥á wha⌠á wa≤ ì
  232. wa≤á no⌠ answered«á S∩ m∙ onl∙á solutioε     goinτá oε witΦ thσ variou≤ call≤ t∩á thσ ì
  233. wa≤á t∩á finΣ ou⌠ fo≥á myselµá wh∙á CCP┌     differen⌠ ports« Anothe≥ fortunatσ even⌠ ì
  234. worked¼á bu⌠á no⌠ ZCPR2«á S∩ thσ tasδ oµ     fo≥ mσ a⌠ thi≤ timσ wa≤ t∩ joiε MBU╟ anΣ ì
  235. trackinτ dowε ß disassemble≥ fo≥ thσ Z8░     therσá ╔á wa≤ tolΣ tha⌠ thσ CIA┬ useΣá ß ì
  236. wa≤ theε requireΣ sincσ DD╘ onl∙ decodeΣ     Westerε Digita∞ 279│ controlle≥á betweeε ì
  237. 808░á code«á (┴ wholσ articlσá coulΣá bσ     thσá compute≥ anΣ thσ actua∞ disδ drive« ìèWel∞á wherσ t∩ obtaiε thi≤á information«     warφ anΣ colΣ boo⌠ work¼á anΣ wha⌠ SETU╨ ì
  238. Workinτá a⌠á ßá TAF┼á collegσá ╔á fisheΣ     doe≤ wheε yo⌡ pla∙ arounΣ witΦ warφá anΣ ì
  239. arounΣá iεá thei≥ librar∙á anΣá founΣá ß     colΣá restar⌠ instructions«á ╔ havσ als∩ ì
  240. descriptioεá oµ aε earlie≥ WD-177▒á ver-     haΣ t∩ understanΣ thσ decodinτ anΣ logiπ ì
  241. sioεá anΣ aε articlσ iε Bytσ Ma∙á 8░á oε     tha⌠á goe≤ int∩ thσ usσ oµ ske≈á a≤á thσ ì
  242. ho≈á sucΦá ß controlle≥ i≤á used«á Amonτ     block≤ arσ physicall∙ storeΣ oε thσ disδ ì
  243. othe≥ things¼ i⌠ talkeΣ abou⌠ item≤ sucΦ     (thσá CIA┬á store≤ thi≤á permanentl∙á iε ì
  244. a≤ Seek¼ Step¼ thσ usua∞ ReaΣ anΣ Write¼     BIO╙ rathe≥ thaε takinτ i⌠ froφ disk).   ì
  245. HeaΣá Load¼á Steppinτá Rates¼á anΣá HeaΣ                                              ì
  246. Settlinτá Time«á Wa≤ i⌠ exactl∙ thσ samσ     Beinτ iε thσ cluΓ ╔ havσ sincσ go⌠á holΣ ì
  247. a≤ tha⌠ useΣ oε thσ Microbee┐á Wel∞ froφ     oµá thσ WD-279│ datß shee⌠ anΣ ╔ caε no≈ ì
  248. wha⌠á ╔ coulΣ makσ ou⌠ froφ thσ codσá i⌠     sa∙ tha⌠ thσ probleφ i≤ iε thσ wa∙á tha⌠ ì
  249. seemeΣ somewha⌠ similar«á Bu⌠ therσá wa≤     thσá tw∩á version≤ g∩ abou⌠á positioninτ ì
  250. somσ doubt«á Wa≤ i⌠ electrica∞ o≥ code?      thσ head≤ oε thσ disk«á CCP┌ issue≤á onσ 
  251.                                              Seeδá commanΣ t∩ movσ thσ heaΣ froφá onσ 
  252. B∙á thi≤á timσ ╔ haΣ decodeΣá enougΦá oµ     tracδ t∩ anothe≥ wherea≤ ZCPR▓ step≤ thσ ì
  253. CCP┌á anΣ ZCPR▓ t∩ seσ tha⌠ iε onl∙á onσ     heaΣ acros≤ thσ disδ onσ tracδ a⌠ ß timσ ì
  254. placσáá wa≤áá therσá ßá grea⌠á dea∞áá oµ     witΦá ßá combinatioε oµ timσá loop≤á anΣ ì
  255. differencσ iε thσ code¼á difference≤á iε     test≤áá oεá thσá controlle≥á fo≥áá read∙ ì
  256. thσá instruction≤ tha⌠ werσ sen⌠ t∩á thσ     status«á WitΦá ZCPR▓ thσ erro≥ seem≤á t∩ ì
  257. ports«á I⌠á wa≤á ßá smal∞á routinσá tha⌠     occu≥ mostl∙ wheε thσ heaΣ ha≤ t∩ movσ ß ì
  258. containeΣá mos⌠ oµ thσ por⌠ acces≤ prio≥     lonτá way«á Thσ erro≥ oε thσ disδ caε bσ ì
  259. t∩á actuall∙ readinτ o≥á writing«á Sincσ     thσá corruptioε oµ marker≤ oµá followinτ ì
  260. thσá remainde≥á oµá thσá codσá fo≥á disδ     block≤á o≥á thσ writinτ oµá ßá blocδá oµ ì
  261. acces≤á wa≤ s∩ simila≥ ╔ wa≤á surσá tha⌠     constant≤á tha⌠ arσ associateΣ witΦ disδ ì
  262. thi≤á haΣá t∩ bσ thσ area«á S∩ ╔ tooδá ß     instructions¼ i.e« nothinτ likσ thσ datß ì
  263. pun⌠á anΣ replaceΣ thσ codσ tha⌠ wa≤á iε     yo⌡á expec⌠á t∩ seσ iεá thσá block«á Thσ ì
  264. ZCPR▓ witΦ tha⌠ froφ CCPZ«á ╔ pu⌠ iε thσ     reall∙ interestinτ par⌠ oµ thσá exercisσ ì
  265. modification≤á anΣ trieΣ i⌠á out«á Firs⌠     wa≤á t∩á ge⌠ ß situatioε tha⌠á coulΣá bσ ì
  266. timσá ╔ hearΣ ßá grindinτá chatter«á Oh¼     reproduceΣáá almos⌠á ever∙á time«áá Thi≤ ì
  267. therσá goe≤á m∙á disδ head≤á ╔á thought«     daunteΣá mσ fo≥ ß whilσ fo≥ thσá probleφ ì
  268. Microbeσá haΣá tolΣ mσ abou⌠á head≤á anΣ     onl∙á seemeΣá t∩á occu≥á oεá ver∙á largσ ì
  269. drive≤ the∙ haΣ haΣ t∩ fi° wheεá someonσ     files«  Bu⌠ ╔ wa≤ fortunatσ wheε onσ da∙ ì
  270. haΣá trieΣ t∩ pu⌠ variou≤ drive≤ oεá anΣ     ╔ go⌠ thσ conditioε t∩ occu≥ 90Ñ oµá thσ ì
  271. diΣ no⌠ kno≈ wha⌠ the∙ werσ doing« ╔ hi⌠     timσ oε ß smal∞ file.                    ì
  272. RESE╘áá anΣá trieΣá ou⌠á m∙á drivσá - i⌠                                              ì
  273. worked«á Bu⌠á ╔ wa≤ als∩ mindfu∞ oµá thσ     Therσ i≤ thσ rumo≥ arounΣ tha⌠ thσ ZCPR▓ ì
  274. stor∙ oµ thσ mainframσ compute≥ operato≥     versioεá fo≥ thσá Standard/Premiuφá doe≤ ì
  275. wh∩á becausσá therσ haΣ beeεá ßá probleφ     no⌠á havσ thi≤ problem«á ╔ caε sa∙á witΦ ì
  276. witΦá ßá particula≥ disδá oεá ßá certaiε     certaint∙áá tha⌠áá i⌠á stil∞á ha≤áá thi≤ ì
  277. drivσá haΣ trieΣ ou⌠ anothe≥ disδ oε thσ     problem« Afte≥ gettinτ ß copy¼ ╔ though⌠ ì
  278. samσ drivσ iε orde≥ t∩ ge⌠ ß latσá nigh⌠     tha⌠ rathe≥ thaε havσ Microbeσ refusσ t∩ ì
  279. joΓ done«á Tha⌠ diΣ no⌠ quitσ worδ s∩ hσ     looδá a⌠ thosσ wh∩ ma∙ usσ m∙ change≤á ╔ ì
  280. trieΣ anothe≥ disk«á Hσ endeΣ u≡ ruininτ     woulΣ usσ thi≤ version« Withiε │ day≤ i⌠ ì
  281. threσá o≥ fou≥ disk≤ becausσ i⌠ wa≤á thσ     starteΣ t∩ givσ corrupteΣ file≤ anΣ theε ì
  282. drivσá head≤ tha⌠ werσá faulty¼á gouginτ     ╔á go⌠ onσ whicΦ wa≤ fairl∙á consistent« ì
  283. ou⌠á track≤ oε thσ disk«á S∩ i⌠ wa≤á fo≥     M∙ versioε gavσ n∩ problem«á B∙ thσ way¼ ì
  284. somσá timσá tha⌠á ╔ useΣ m∙á disk≤á witΦ     apar⌠á froφ thσ log∩ oε colΣá boot¼á thσ ì
  285. trepidation«á  Fortunatel∙ therσ wa≤á n∩     onl∙ differencσ iε thσ StΣ /Premiuφ BIO╙ ì
  286. apparen⌠áá damagσá fo≥á ╔á havσá haΣá n∩     wa≤á aε increasσ iε ß timinτá loop¼á onσ ì
  287. probleφ witΦ m∙ disk≤ since«á ╔á checkeΣ     instruction¼ froφ thσ othe≥ ZCPR2.       ì
  288. ou⌠á m∙á modification≤á - ╔ haΣá madσá ß                                              ì
  289. mistakσá anΣá thi≤ destroyeΣ datßá iεá ß     Therσá i≤á jus⌠ onσá drawback¼á m∙á mod- ì
  290. register« CorrecteΣ i⌠ workeΣ finσ anΣ ╔     ification≤á givσ thσ samσ disδ speeΣá oµ ì
  291. havσ haΣ no¼ ye≤ ╔ meaε N╧ problem≤ witΦ     CCPZ«áá  ZCPR▓á wa≤á approximatel∙áá 30Ñ ì
  292. m∙ disk≤ o≥ corrup⌠ datß fo≥ si° months.     quicke≥á wheε usinτ FINDBA─ t∩ checδ ou⌠ 
  293.                                              ß disk«
  294. Alonτá thσá wa∙ ╔á havσá discovereΣá ho≈      ì
  295. SYSGE╬ anΣ thσ systeφ track≤ work¼ ho≈ ß     Continued on page 3 ìè              DISKNUM.C       by Simon Gerraty  member (145)
  296.  
  297.                             Competition entry.
  298.  
  299. Ever∙ no≈ anΣ then¼ ╔ ge⌠ sicδ oµ thσ mess¼ anΣ ╔ ge⌠ organised«  Thσ othe≥ ì
  300. nigh⌠ ╔ decideΣ ╔ hadn'⌠ catalogueΣ m∙ disk≤ fo≥ ß lonτ time« Mos⌠ ì
  301. catalogueinτ utilitie≤ requirσ eacΦ disδ t∩ havσ ß uniquσ identifie≥ ì
  302. filenamσ sucΦ a≤ - DISK.00▒ wherσ thσ numeriπ a⌠ thσ enΣ i≤ thσ significan⌠ ì
  303. part« Anyway¼ a≤ alway≤ happen≤ wheε ╔ wan⌠ t∩ ge⌠ organiseΣ anΣ cataloguσ ì
  304. m∙ disks¼ ╔ finΣ a⌠ leas⌠ halµ ß dozeε o≥ s∩ tha⌠ ╔ havσ no⌠ ye⌠ giveε ß ì
  305. disδ numbe≥ to« No≈ ╔ kno≈ thσ res⌠ oµ yo⌡ havσ somσ ver∙ simple¼ wel∞ ì
  306. organiseΣ methoΣ oµ keepinτ tracδ oµ wha⌠ number≤ yo⌡ havσ alread∙ used¼ ╔ ì
  307. haven't¼ o≥ rathe≥ ╔ didn't.
  308.  
  309. Sincσ thσ catalogueinτ prograφ ╔ usσ (NCAT.COM⌐ include≤ ß lis⌠ oµ thσ freσ ì
  310. spacσ oε eacΦ disδ a⌠ thσ star⌠ oµ thσ outpu⌠ filσ MAST.CAT¼ ╔ thought¼ ╔ ì
  311. coulΣ simpl∙ looδ a⌠ thσ number≤ iε thi≤ sectioε anΣ 'seeº thσ one≤ no⌠ ye⌠ ì
  312. used« No⌠ quitσ tha⌠ easy«  Thσ lis⌠ isn'⌠ sorted¼ anΣ i⌠ i≤ ß bi⌠ harΣ t∩ ì
  313. spo⌠ thσ patterε iε ß randoφ listí S∩ ╔ wrotσ ß littlσ tool¼ mainl∙ becausσ ì
  314. ╔ wa≤ bored« 
  315.  
  316. DISKNUM.├ read≤ file▒ (eτ MAST.CAT⌐ anΣ produce≤ ß numericall∙ sorteΣ lis⌠ ì
  317. oµ thσ disδ name≤ therein¼ i⌠ print≤ theφ iε file▓ witΦ ß blanδ linσ ì
  318. indicatinτ gap≤ iε thσ sequencσ oµ useΣ numbers.
  319.  
  320. for example it takes...
  321. (L.COM
  322. SW.COM)
  323. ++++2k.FRE,C.002
  324. ++++4k.FRE,TEST.050
  325. +++22k.FRE,SYSTEM.001
  326. +++24k.FRE,BAS/ASM.004
  327. +++24k.FRE,DISK.010
  328. +++28k.FRE,DISK.053
  329. +++28k.FRE,PAS.003
  330. +++30k.FRE,DISK.052
  331. ...etc
  332.  
  333. and produces ......
  334.  
  335.   0        SYSTEM.001
  336.   1             C.002    Now it is much 
  337.   2           PAS.003    easier to see    
  338.   3       BAS/ASM.004    un-allocated
  339.                       numbers.
  340.   4           SYS.009
  341.   5          DISK.010
  342.  
  343.   6          TEST.050
  344.  
  345.   7          DISK.052
  346.   8          DISK.053
  347.   9          DISK.054
  348.  
  349. Herσ i≤ thσ prograφ listinτ fo≥ thσ benefi⌠ oµ an∙ buddinτ ├ programmers«  ì
  350. witΦ lot≤ oµ /¬ comment≤ *» delimiteΣ b∙ /¬ anΣ *» ╔ havσ removeΣ mos⌠ oµ ì
  351. thσ blanδ line≤ s∩ a≤ no⌠ t∩ takσ u≡ to∩ mucΦ space« Als∩ thσ comment≤ ì
  352. clutte≥ i⌠ u≡ ß bit« ├ i≤ freσ form¼ onσ caε havσ a≤ mucΦ (o≥ little⌐ whitσ ì
  353. spacσ a≤ desired¼ witΦ thσ aiφ usuall∙ t∩ presen⌠ clea≥ readablσ code« Thσ ì
  354. origina∞ listinτ shoulΣ bσ oε thσ RBB≤ somewhere.è/* DISKNUM.C   87-05-21   by  Simon Gerraty
  355.  * This program will read a file such as MAST.CAT produced by ncat.com,
  356.  * and produce a numerically sorted list of disk names 
  357.  */ 
  358. #include <local.h>
  359. /* local.h contains the following commonly used #include directives
  360. #include <stdio.h>
  361. #include <cpm.h>
  362. #include <ctype.h>
  363.  * commonly used #defines
  364. #define TRUE 1
  365. #define FALSE 0
  366. #define uchar unsigned char
  367. /* CONTROL CODES FOR ADM-3A recognised by MICROBEE  */
  368. #define bel()    putchar('\007') /* Ring bel, what else? */
  369. #define cls()    putchar('\032') /* Clear Screen & Home */
  370. #define home()   putchar('\036') /* Home Cursor */
  371. #define curup()  putchar('\013') /* Cursor up one line */
  372. #define curdn()  putchar('\012') /* Cursor down one line */
  373. #define curlef() putchar('\010') /* Cursor left one char */
  374. #define currit() putchar('\014') /* Cursor right one char */
  375.  * end of local.h
  376.  */
  377. /*
  378.  * defines here help make changes easier and help remove 'magic numbers' from
  379.  * the rest of the program
  380.  */
  381. #define PROGNAME "DiskNum"
  382. #define VER      "1"
  383. #define SUBVER   "01"
  384. #define DATE     "22-May-87"
  385. #define COPYRIT  "Copyright (C) 1987, Simon Gerraty"
  386. #define PURPOSE  ""
  387. #define MAX 128
  388. #define MAX_MISS 60
  389. /¬ globa∞ variable≤ (thosσ defineΣ outsidσ oµ an∙ function⌐ arσ no⌠ ì
  390.  * generall∙ gooΣ practice«  function≤ shoulΣ bσ writteε sucΦ tha⌠ all
  391.  ¬ value≤ the∙ carσ abou⌠ arσ eithe≥ handeΣ t∩ theφ a≤ arguments¼ o≥ ì
  392.  * generateΣ internally«  Seσ fo≥ examplσ strcspn(⌐ a⌠ thσ enΣ oµ the
  393.  * listing.  Functions written this way can be compiled, stored in a
  394.  * library and never looked at again, yet they are available as building
  395.  * blocks for other programs.  Anyway globals are bad news, but I am
  396.  * lazy, so I use them for flags etc.
  397.  */
  398.  static char dbug = FALSE;  
  399.  static char verbose = FALSE;  
  400.  static char ascending = TRUE;
  401. /¬ eacΦ ├ functioε i≤ defineΣ witΦ aε argumen⌠ lis⌠ betweeε ()s« Man∙ ì
  402.  ¬ function≤ havσ n∩ argument≤ eτ foo()« Ever∙ prograφ ha≤ ß functioε ì
  403.  ¬ main(⌐ whicΦ ha≤ tw∩ arguments« Arg÷ i≤ aε arra∙ oµ pointer≤ t∩ thσ ì
  404.  ¬ strinτ argument≤ (supplieΣ oε thσ commanΣ line)« Argπ i≤ aε intege≥ anΣ ì
  405.  * i≤ equa∞ t∩ thσ numbe≥ oµ argument≤ pointed to by argv
  406.  */
  407. main(argc, argv)   
  408. int argc;         
  409. char *argv[];
  410. {
  411. /* 
  412.  * all variables that will be used in this function must be declared è * before use.  NOTE:  that functions that return other than ints must 
  413.  * also be declared before use - or the compiler will tell you about it!
  414.  */
  415.  char *malloc(), *s, *ln,  *l;
  416.  char finished, changed, *fgets();
  417.  FILE *fopen(), *inpfp, *outfp;
  418.  short n, m, i, cnt, iter;
  419.  char *inf, *outf, *line[200]; 
  420. /* announce ourselves to the world */
  421.  signon();
  422. /* process any flags on the command line */
  423.  while (--argc > 0 && (*++argv)[0] == '-')
  424.  {
  425.   s = argv[0]+1;
  426.   switch (*s)
  427.   {
  428.    case 'R':              
  429.     ascending = FALSE;    
  430.     break;                
  431.    case 'V': 
  432.     verbose = TRUE;     
  433.     break;  
  434.    case 'D': 
  435.     dbug = TRUE;        
  436.     break;  
  437.    default:
  438.     fprintf(stderr, "%s: illegal option %c\n", PROGNAME, *s);
  439.     break;
  440.   }
  441.  }
  442. /* restore argc & argv to compensate for while() above */
  443.  argc++;
  444.  argv--;
  445. /* if we have not got the right number of arguments then die! */
  446.  if (argc < 3)
  447.   usage();
  448. /* open the files we need be sure that all goes well */
  449.  if ((inpfp = fopen((inf = *++argv), "r")) == (FILE *)NULL)
  450.   errexit(1, "can't open input file");
  451.  if ((outfp = fopen((outf = *++argv), "w")) == (FILE *)NULL)
  452.   errexit(1, "can't open output file");
  453.  if (verbose)
  454.   printf("Scanning Input file %s\n", inf);
  455.  cnt = iter = 0;
  456.  finished = FALSE;
  457.  while (!(finished))
  458.  {
  459.   ln = malloc(MAX); 
  460. /* allocate memory for the next input line */
  461.   l = fgets(ln, MAX, inpfp);
  462.   if ((m = strtest(ln, ".FRE"))) /* test if it's one we want */
  463.   {
  464.    finished = FALSE;
  465. /* we are only interested in the part after the ',' */
  466.    m = strcspn(ln, ","); 
  467. /* move the pointer to just after the ',' */
  468.    ln += ++m; 
  469.    line[i++] = ln;
  470. /¬ line[▌ i≤ aε arra∙ oµ pointer≤ t∩ cha≥ string≤ herσ wσ pu⌠ ß pointe≥ toè ¬ thσ curren⌠ linσ (ln⌐ int∩ thσ array« Usinτ thσ arra∙ oµ pointer≤ wil∞ ì
  471.  * make sorting much more simple - as we shall see.
  472.  */
  473.   }
  474.   else
  475.    if (cnt++ > MAX_MISS)  
  476.     finished = TRUE;
  477. /¬ sincσ wσ kno≈ tha⌠ thσ line≤ wσ wan⌠ arσ ß contiguou≤ blocδ  tha⌠ may
  478.  ¬ havσ aε exceptioε lis⌠ beforσ it¼ wσ allo≈ t∩ reaΣ MAX_MIS╙ line≤ tha⌠ ì
  479.  ¬ d∩ no⌠ mee⌠ ou≥ criteriß beforσ stopping« afte≥ al∞ wσ don'⌠ wan⌠ t∩ ì
  480.  * reaΣ all of an 80k catalogue file!
  481.  */
  482.  } 
  483. /* close the input file, since we are finished with it */
  484.  fclose(inpfp);  
  485. /* if we think we read more than 200 lines with .FRE in them, then
  486.  * something probably went wrong - in any case we have not allowed for
  487.  * sorting more than 200 names, so exit gracefully!
  488.  */
  489.  if ((m = --i) > 200) 
  490.   errexit(1, "$&'#)$(!  I don't understand it!");
  491.  if (verbose)
  492.   printf("OK, Now sorting the list of names\n");
  493. /¬ no≈ wσ wan⌠ t∩ sor⌠ ou≥ lis⌠ oµ names¼ whicΦ remembe≥ arσ pointeΣ t∩ b∙  ì
  494.  ¬ thσ arra∙ oµ pointer≤ line[]«  Generall∙ thσ algorithφ useΣ wil∞ takσ ì
  495.  * les≤ thaε ε iteration≤ t∩ sor⌠ ε items« S∩ wσ continuσ t∩ shufflσ thσ  ì
  496.  * lis⌠ whilσ wσ detec⌠ tha⌠ i⌠ i≤ changing¼ anΣ whilσ thσ numbe≥ oµ  ì
  497.  ¬ iteration≤ i≤ les≤ thaε 2*n«  Thσ followinτ code¼ passe≤ pointer≤ to
  498.  * two successive pointers in the array line[] to the function swap(). 
  499.  ¬ Wσ pas≤ pointer≤ t∩ pointer≤ s∩ tha⌠ swap(⌐ caε 'swapº theφ iµ required« ì
  500.  ¬ Iε ├ thσ onl∙ wa∙ fo≥ ß calleΣ functioε t∩ affec⌠ an∙ object≤ (eτ ì
  501.  ¬ variables⌐ othe≥ thaε global≤ o≥ one≤ loca∞ t∩ thσ calleΣ function¼ i≤ ì
  502.  * iµ i⌠ i≤ passeΣ pointer≤ t∩ thσ objects.
  503.  */
  504. /* be sure to set the initial condition for the while loop */
  505.  changed = TRUE;
  506.  while ((changed) && iter++ < (m 2))
  507.  {
  508.   changed = FALSE;
  509.   for (i=0; i < m; i++)    
  510.    if ((n = swap(&line[i], &line[(i + 1)])) == TRUE) 
  511.     changed = TRUE;
  512.  }
  513.  if (verbose)
  514.   printf("Finished! %d sorted in %d iterations\n", m, iter);
  515.  fprintf(outfp, "List of disk names from %s\n\n", inf);
  516.  for (i = 0; i <= m; i++)
  517.  {
  518. /* C has no built in IO support, but standard library functions such as 
  519.  * printf() and fprintf() allow very sophisticated output formatting.
  520.  */ 
  521.   fprintf(outfp, " %2d\t%15s", i, line[i]);
  522. /* if there is a gap in the numeric sequence between i and (i+1) then 
  523.  * print a blank line
  524.  */
  525.   if ((n = isgap(line[i], line[(i + 1)])) == TRUE)
  526.    fprintf(outfp, "\n");
  527.  }
  528. /* now close the output file 'cos we're nearly done! */è fclose(outfp);
  529. } /* end of function main() */
  530. /* now the functions called in main must be supplied, either in this
  531.  * file or in others which will be compiled separately and 'linked' with 
  532.  * the compiled code from this file.
  533.  */
  534. /* swap() takes 2 pointers to pointers, compares the contents of the
  535.  * strings they point to, and swaps them (the pointers) if the strings
  536.  * are out of sequence.  The strings always remain in the memory to which
  537.  * they were read, and the pointers (which will control the order in
  538.  * which the strings are printed) are moved about. Shuffling two byte
  539.  * pointers is a lot quicker (and easier) than shuffling 80 character
  540.  * strings!
  541.  */ 
  542. swap(s1, s2) 
  543. char **s1, **s2;  
  544. { 
  545.   char swp, *tmp; 
  546.   short n1, n2;
  547.   n1 = value(*s1);
  548.   n2 = value(*s2);
  549.   if (n1 > n2)
  550.     swp = (ascending) ? TRUE : FALSE;
  551.   else
  552.     swp = (ascending) ? FALSE : TRUE;  
  553.   if (swp)
  554.   {
  555.     tmp = *s1;
  556.     *s1 = *s2;
  557.     *s2 = tmp;
  558.     n1 = TRUE;
  559.   }
  560. /* let the calling function know whether we swapped or not */
  561.   return(swp);
  562. }
  563. /* isgap() takes two string pointers, and checks whether the gap
  564.  * between them is not more than one.
  565.  */
  566. isgap(s1, s2)
  567. char *s1, *s2;
  568. {
  569.  short n1, n2;
  570.  n1 = value(s1);
  571.  n2 = value(s2);
  572.  if (ascending)
  573.   n1 =  (++n1 < n2) ? TRUE : FALSE;
  574.  else
  575.   n1 = (n1 > ++n2) ? TRUE : FALSE;
  576.  return(n1);
  577. }
  578. /* take a string, find the numeric bit at the end,
  579.  * and return it as an int
  580.  */
  581. value(s)
  582. char *s;
  583. {
  584.  short l;
  585.  s += (l = strcspn(s, "."));  /* skip over everything       */
  586.  l = atoi(++s);               /* upto and including the '.' */è return(l);
  587. }
  588. /* the name says it all! */
  589. signon()
  590. {
  591.  fprintf(stderr, "\n\n%s  V%s.%s  %s", PROGNAME, VER, SUBVER, DATE);
  592.  fprintf(stderr, "  %s\n%s\n\n", COPYRIT, PURPOSE);
  593. }
  594. /* same here */
  595. usage()
  596. {
  597.  bel();
  598.  fprintf(stderr, "\nUsage:\t\t%s ", PROGNAME);
  599.  fprintf(stderr, "<input file> <output file>");
  600.  exit(1);
  601. }
  602. /* this one is really only useful in environments which support multi-
  603.  * tasking, and/or spawned processes eg Unix, MS-DOS etc The idea is to 
  604.  * allow the program to exit with a return code that will signal to the 
  605.  * parent process, whether things worked ok or whether 
  606.  * it died with it's leg in the air.
  607.  */
  608. errexit(l, s)
  609. short l;
  610. char *s;
  611. {
  612.  fprintf(stderr, "%s: %s\n", PROGNAME, s);
  613.  exit(l);
  614. }
  615. /* test s1 for the presence of s2
  616.  */
  617. strtest(s1, s2)
  618. char *s1, *s2;
  619. {
  620.  char c;
  621.  short l, i = 0;
  622.  l = strlen(s2);
  623.  while ((c = *s1++) && i < l)
  624.  {
  625.   if (c == s2[i])
  626.    i++;
  627.   else
  628.    i=0;
  629.  }
  630.  return((i < l) ? FALSE : TRUE); /* did we find it or not? */
  631. }
  632. /¬ returε thσ lengtΦ oµ thσ 1s⌠ spaε oµ s▒   tha⌠ contain≤ nonσ oµ thσ ì
  633.  ¬ char≤ iε s2«     Thi≤ functioε woulΣ normall∙ bσ writteε fo≥ performancσ ì
  634.  * anΣ placeΣ iε a library, and never looked at again!
  635.  */
  636. strcspn(s1, s2)                    |      c = s1[l++];                     
  637. char *s1, *s2;                     |      for (i=0; i < strlen(s2); i++)   
  638. {                                  |       if (c == s2[i])                 
  639.  char c, finished;                 |        finished = TRUE;               
  640.  short i, l = 0;                   |     }                                 
  641.  finished = FALSE;                 |     return(--l);                      
  642.  while (!(finished))               |    }                                  
  643.  {                                 |    /* That's all folks! */            
  644. è        BASLORES.BAS and MAC.   Competition entry By BY MARK BISHOP
  645.  
  646. 10 'BASLORES.BAS    BY MARK BISHOP  21/6/86
  647. 20 'LORES GRAPHICS FOR MBASIC 80 AND MICROBEE COMPUTER
  648. 40 'MICROSOFT BASIC 80, MBASIC.COM DOES NOT HAVE ANY GRAPHICS.
  649.     NOW YOU CAN USE MICROBEE/TANDY TRS-80 LORES GRAPHICS.
  650. 50 'ADD THIS TO THE START OF YOUR PROGRAM,  PRIOR TO USING LORES GRAPHICS.  
  651.     VARIABLES USED ARE W,X,Y,Z$, WHICH CAN BE RE-USED AFTER THE USR CALL.
  652. 60 'MACHINE CODE IS LOADED INTO A STRING,  SO NO MEMORY HAS TO BE RESERVED.
  653. 70 'LORES CHRS 128-191 ARE AVAILABLE, WITH 192-255
  654.     AVAILABLE FOR OTHER PCG CHRS, 11 BYTES/CHARACTER.
  655. 90 FOR W=1 TO 53:  READ X: Y=Y+X: Z$=Z$+CHR$(X): NEXT W
  656. 100 IF Y <> 4692 THEN PRINT "DATA ERROR": END
  657. 110 DEF USR0=PEEK(VARPTR(Z$)+1)+256*PEEK(VARPTR(Z$)+2)
  658. 120 X=USR(0)
  659. 130 'DELETE LINE 140, FOR DEMO ONLY
  660. 140 FOR X=128 TO 191:PRINT X;"=";CHR$(X);" ";:NEXT X
  661. 150 END
  662. 160 DATA 33,0,248,14,192,89,22,3,175,203,67,40,2,246,240,203
  663. 170 DATA 75,40,2,246,15,203,66,32,4,6,3,24,2,6,4,119
  664. 180 DATA 35,16,252,203,11,203,11,21,32,222,175,6,5,119,35,16
  665. 190 DATA 252,12,32,209,201
  666. 200 'END OF PROGRAM BASLORES.BAS
  667.  
  668. ;BASLORES.MAC       SOURCE FILE FOR BASLORES.BAS  BY MARK BISHOP v21/6/86.
  669. ;LOADS MICROBEE/TANDY TRS-80 LORES GRAPHICS ;INTO PCG, FOR USE UNDER 
  670. ;MICROSOFT BASIC 80, MBASIC.COM WITH 24 LINE SCREEN 
  671. ;EACH PCG CHR HAS 11 BYTES, ;c/w MW BASIC 16.   
  672. ;BYTES 12-16 ARE UNUSED. LORES GRAPHICS ARE 3 ROWS * 2 COLUMNS.   
  673. ; -----------------   
  674. ; | bit 0 | bit 1 |   EACH 'BOX' IS SET IF THE
  675. ; |---------------|   BIT IN THE CHR NO. IS
  676. ; | bit 2 | bit 3 |   ALSO SET. BIT 6 IGNORED,
  677. ; |---------------|   BIT 7 ALWAYS SET.
  678. ; | bit 4 | bit 5 |
  679. ; -----------------
  680. ;ROWS 1/3 IN PCG CHR= 4 BYTES, ROW 2= 3 BYTES.
  681.     .z80
  682.     org    100h        ;RELOCATEABLE
  683. ;
  684. PCGRAM    EQU    0F800H        ;START OF PCG RAM
  685.     LD    HL,PCGRAM
  686.     LD    C,0C0H        ;FOR CHRS 128-191
  687. ;CHANGE TO 80H TO REPEAT GRAPHICS IN CHRS 128-255
  688. ;
  689. LP1:    LD    E,C        ;ONLY BITS 0-5
  690.                 ;AFFECT CHR
  691.     LD    D,03H        ;COUNTER. 3 ROWS
  692. LP2:    XOR    A            ;A=NEXT PCG BYTE
  693.     BIT    0,E        
  694.     JR    Z,LP3        ;IF BIT 0 SET,
  695.     OR    0F0H        ;SET LEFT COLUMN
  696. LP3:    BIT    1,E
  697.     JR    Z,LP4        ;IF BIT 1 SET,
  698.     OR    0FH        ;SET RIGHT COLUMN    
  699. LP4:    BIT    0,D        ;ROW 1 OR 3 ?
  700.     JR    NZ,LP5        ;YES, JR
  701.     LD    B,3        ;ROW 2 HAS 3 BYTES    
  702.     JR    LP6èLP5:    LD    B,4        ;ROW 1/3, 4 BYTES
  703. LP6:    LD    (HL),A        ;CHR BYTES TO PCG
  704.     INC    HL
  705.     DJNZ    LP6        ;LOOP TILL DONE.
  706.     RRC    E        ;READY TO TEST NXT
  707.     RRC    E        ;TWO BITS IN CHR.
  708.     DEC    D        ;CHR FINISHED ?
  709.     JR    NZ,LP2        ;NO, JR
  710.     XOR    A        ;ZERO A
  711.     LD    B,5        ;FILL LINES 12-16
  712. LP7:    LD    (HL),A        ;OF PCG CHR WITH 0
  713.     INC    HL
  714.     DJNZ    LP7        ;LOOP TILL DONE
  715.     INC    C        ;ALL CHRS FINISHED ?
  716.     JR    NZ,LP1        ;NO, JR
  717.     RET            ;YES, RET
  718. ;
  719.     END
  720.  
  721.  
  722.  
  723.                            MBASCURS.BAS    By Mark Bishop
  724.                                   Competition entry.
  725.  
  726. 64730 'MBASCURS.BAS - CALCULATE MBASIC CURSOR POSITIONS.
  727. 64740 'Mark Bishop 4/87
  728. 64750 '
  729. 64760 'MBASIC cursor commands are not exactly easy to use in a program.
  730. 64770 'Put this S/R in your program, and either make 'A' = single cursor
  731. 64780 'position, or 'B' and 'C' = line and column number, then
  732. 64790 'GOSUB 65020 or 65040 as applicable. Change variable names as required.
  733. 64800 'save this program with ASCII option eg. SAVE "MBASCURS",A
  734. 64810 'so you can merge it with your programs.
  735. 64820 'Then delete lines 64730-64990, which are for demo only.
  736. 64830 '
  737. 64840 'calculate MBASIC cursor positions from a single cursor position.
  738. 64850 PRINT CHR$(26);:' CLS
  739. 64860 INPUT "PRINT @ ";A%: 'single number cursor position starting at 0.
  740. 64870 PRINT CHR$(26);
  741. 64880 GOSUB 65020 :'convert curser position
  742. 64890 PRINT "*"
  743. 64900 END
  744. 64910 '
  745. 64920 REM calculate MBASIC cursor positions from line and column number
  746. 64930 PRINT CHR$(26);
  747. 64940 INPUT "COLUMN, LINE ";C%,B%: C%=C%-1: B%=B%-1 :'columns/lines start at 1.
  748. 64950 PRINT CHR$(26);
  749. 64960 GOSUB 65040 :'convert column and line position
  750. 64970 PRINT "*"
  751. 64980 END
  752. 64990 '
  753. 65000 'Cursor subroutine
  754. 65010 'change 80 to 64 for TRS-80 or Microbee 64 column screen
  755. 65020 B%=INT(A%/80) :'line number. entry point for single cursor position A% 
  756. 65030 C%=A%-(B%*80) :'column number
  757. 65040 PRINT CHR$(27);"=";CHR$(32+B%);CHR$(32+C%);:'entry for line B%, column C%
  758. 65050 RETURN
  759. 65060 'end of listing
  760. è
  761. **********************************************************************
  762.  
  763.                      MBU╟áAUSTRALI┴áINCORPORATE─                       ì
  764.  
  765.                    NOTICE OF ANNUAL GENERAL MEETING
  766.  
  767.         Thσá2nΣáAnnua∞áMeetinτáoµ MBU╟áAUSTRALI┴ INCORPORATED 
  768.         will be held on Wednesday 12th Aug. 1987 at 7.30pm at
  769.                    Mount Waverley Community Centre
  770.                    Miller Crescent, Mount Waverley
  771.                         (Melway Map Ref 70E1)
  772.  
  773.                                 AGENDA
  774.  
  775.           1.   President's Report.
  776.  
  777.           2.   Consideration of Financial statement persuant to
  778.                section 30 of the Associations Incorporation Act 1981.
  779.  
  780.           3.   Election of Office Bearers.
  781.  
  782.           4.   Consideration of any business which in accordance
  783.                with the rules may be brought before the meeting.
  784.  
  785. **********************************************************************
  786.  
  787.  
  788. **********************************************************************
  789.  
  790.                     MBU╟áAUSTRALI┴áINCORPORATE─                      ì
  791.  
  792.                            NOMINATION FORM
  793.  
  794.  We, the undersigned, being financial members of MBUG AUSTRALIA INC,
  795.  
  796.  hereby nominate __________________________________________
  797.  
  798. for the position of _______________________________________ (*)
  799.  
  800. Name of Proposer ________________________ Signature__________________
  801.  
  802. Name of Seconder ________________________ Signature__________________
  803.  
  804. I¼á ___________________________________________¼á thσ persoε nominateΣ ì
  805. hereiεá agreσ t∩ accep⌠ thi≤ nominatioε and¼á iµ electeΣ wil∞ abidσ b∙ ì
  806. thσ rule≤ oµ thσ Association.
  807.  
  808.                               Signature__________________
  809.                                    
  810.  (*⌐ Nomination≤ arσ calleΣ fo≥ President¼á Vicσ President¼ Secretary¼ ì
  811. Treasurer and nine (9) committee.
  812.  
  813. **********************************************************************
  814.  
  815. Nomination≤á shoulΣá bσ posteΣ t∩ "Thσ Secretaryó MBU╟á AUSTRALI┴á IN├ ì
  816. P.O«á BO╪ 15╖ NUNAWADING«á Vic« 313▒ n∩ late≥ thaε 5tΦ Augus⌠ 1987¼ o≥ ì
  817. delivered to the Secretary before that date.
  818. è                             WORDBEE versus SIMPLY WRITE
  819.  
  820.                A. E. Allison, Membership No. 1046.  Competition Entry 
  821.  
  822.      SIMPL┘á WRIT┼ wa≤ supposeΣ t∩ bσ aε     thσ initialisatioε section«á Oncσ ╔á haΣì
  823. improvemen⌠á oε WORDBEE«á Bu⌠ - wa≤á it┐     donσá that¼á therσ wa≤ n∩ rooφ lef⌠á fo≥ì
  824. Froφá m∙ experiencσ ╔ mus⌠ sa∙á tha⌠á i⌠     anythinτá else¼á a≤á wil∞á bσá explaineΣì
  825. wa≤á no⌠á wha⌠ coulΣ havσ beeεá expecteΣ     furthe≥ on.                             ì
  826. froφá thσ articlσ iε thσ Septembe≥á 198╢                                             ì
  827. issuσ oµ ON-LIN┼ oncσ ╔ haΣ workeΣá witΦ     Thσ SEARC╚ versu≤ REPLAC┼ featurσ leave≤ì
  828. i⌠ fo≥ ß while«á I⌠ ma∙ bσ powerful¼ bu⌠     mucΦáá t∩á bσá desired¼áá despitσáá somσì
  829. wh∩á need≤á al∞ thosσ feature≤á al∞á thσ     additiona∞ possibilitie≤ t∩ thosσ oµ thσì
  830. timσá iεá lie⌡ oµ urgentl∙á needeΣá worδ     WORDBEE«á Fo≥á instance¼á ╔ caε worδ thσì
  831. space┐áá I⌠áá appear≤á t∩á bσá rathe≥á ß     SEARC╚ versu≤ REPLAC┼ featurσ easie≥ anΣì
  832. supplemen⌠áá t∩á thσá WORDBE┼á thaεáá aε     faste≥ iε WORDBE┼ thaε iε SIMPL┘á WRITE«ì
  833. improvement«á Somσá usefu∞ feature≤á arσ     Thσá lengtΦá oµ thσ linσ iεá thσá SEARC╚ì
  834. onl∙á availablσ iεá SIMPL┘á WRITE¼á somσ     versu≤á REPLAC┼ featurσ i≤ fa≥ to∩ shor⌠ì
  835. onl∙ iε WORDBEE.                             - i⌠á ha≤á ß reasonablσá lengtΦá iεá thσ
  836.                                              WORDBEE«á Besides¼ thσ WORDBE┼ work≤ thσ
  837. Fo≥á thi≤á articlσ ╔ havσ beeεá usinτá ß     modσ iε thσ winδ oµ aε eye¼á witΦ SIMPL┘ì
  838. 128δá machine¼á ßá SIMPL┘ WRIT┼á prograφ     WRIT┼ ß lonτ dela∙ i≤ incurred.         ì
  839. versioεá 2.01¼á anΣ havσ jus⌠á converteΣ                                             ì
  840. thi≤á articlσ bacδ t∩ WORDBE┼á sincσá i⌠     Wheεá addinτ o≥ changinτ ß worΣ witΦ thσì
  841. proveΣá t∩ bσ morσ suitablσ fo≥ easσá oµ     SEARCH-versus-REPLAC┼ feature¼á thσ linσì
  842. worΣ processing«á I⌠ tooδ mσ abou⌠ threσ     lengtΦá i≤ no⌠ automaticall∙á readjusteΣì
  843. hour≤á anΣá thσ remova∞ oµ morσá thaεá ß     a≤á iε thσ WORDBEE«á A≤ ╔ diΣ ßá lo⌠á oµì
  844. thousanΣ EO╠ anΣ EO╫ markers.                correction≤ anΣ additions¼ eveε witΦ thσ
  845.                                              globa∞á exchangσá feature¼á i⌠ becamσá ß
  846. Froφá thσá articlσ mentioneΣ ╔á go⌠á thσ     cumbersomσáá tasδá t∩áá reforma⌠áá ever∙ì
  847. impressioεáá tha⌠á thσá worΣá processinτ     paragrapΦá afte≥ ever∙á correction«á Thσì
  848. operatioεá take≤ seconΣ placσ afte≥á al∞     compute≥áá needeΣá severa∞á second≤áá t∩ì
  849. thσ feature≤ anΣ playinτ witΦ them¼á anΣ     "thinkó beforσ i⌠ accomplisheΣ thσ task«ì
  850. afte≥ thσ coloureΣ anΣ well-proportioneΣ     WORDBE┼á correct≤ thσ momen⌠ ß lette≥ i≤ì
  851. window≤ tha⌠ arσ provided.                   typed.                                  
  852.                                                                                      
  853. Forge⌠ thσ appearancσ oµ thσ prograφá oε     Wheεá ╔ bough⌠ SIMPL┘ WRITE¼á ╔á adapteΣì
  854. thσ screen«á Wha⌠ count≤ i≤ thσ finisheΣ     somσ oµ m∙ program≤ froφ WORDBEE« Wha⌠ ßì
  855. printe≥ output«á ┴ worΣ processo≥ i≤ fo≥     botheríá Thσ conversioε needeΣ ß lo⌠á oµì
  856. processinτá words¼áá editing¼áá writing¼     experimentation«ááá Accordinτáá t∩áá thσì
  857. rearranging¼á no⌠ fo≥ colou≥ displa∙ anΣ     articlσáá iεáá ON-LIN┼áá thσáá tw∩áá arσì
  858. neatl∙á laid-ou⌠á instructions«á Indeed¼     compatible«á No⌠ so«á Fo≥ instance¼ linσì
  859. it≤á presencσá shoulΣ no⌠ bσ eviden⌠á oε     lengtΦá oµ thσ WORDBE┼  program≤ arσ no⌠ì
  860. thσ screeε a⌠ all«á A≤ i⌠ i≤ supposeΣ t∩     automaticall∙ changeΣ t∩ thosσ oµ SIMPL┘ì
  861. bσá intendeΣá fo≥ ßá seriou≤á user¼á thσ     WRITE«á ╔ go⌠ hundred≤ oµ EO╠ marker≤ iεì
  862. designe≥á shoulΣá havσ haΣ hiφá iεá minΣ     m∙ writing¼ whicΦ ╔ haΣ t∩ removσ onσ b∙ì
  863. insteaΣ oµ displayinτ hi≤ owε expertise«     one¼á becausσá therσá i≤ n∩ ke∙á oεá thσì
  864. Otherwisσ i⌠ migh⌠ bσ regardeΣ a≤ ß toy¼     keyboarΣáá whicΦáá cater≤áá fo≥áá globa∞ì
  865. ß game≤ program¼á anΣ thσá user¼á thougΦ     removal.                                ì
  866. bedazzleΣ a⌠ first¼ wil∞ turε t∩ anothe≥                                             ì
  867. product.                                     T∩á movσá thσ curso≥ t∩ thσ enΣá oµá thσ
  868.                                              linσá - ^╞á witΦá thσá WORDBE┼á - SIMPL┘
  869. Bu⌠ le⌠ u≤ star⌠ a⌠ thσ beginning«á Wheε     WRIT┼ doe≤ no⌠ havσ ß command« ╔ havσ t∩ì
  870. ╔ useΣ thσ initialisatioε prograφ a≤ is¼     usσ ß ruse«á PlaceΣ a⌠ thσ beginninτá oµì
  871. m∙á printe≥á produceΣ thσá ugl∙á lookinτ     thσá nex⌠ line¼á ^┴ move≤ thσ curso≥á t∩ì
  872. Picß font¼ thσ built-iε first-linσ font«     thσ enΣ oµ thσ previou≤ one«á ┴ somewha⌠ì
  873. Tha⌠á wa≤á thσá maiεá objectioεá wheεá ╔     unsophisticateΣ procedure«á O≥ ╔ havσ t∩ì
  874. showeΣ somσ oµ m∙ writinτ t∩ ß workmate«     ste≡ froφ worΣ t∩ worΣ t∩ thσ enΣ oµ thσì
  875. Hσá rathe≥á likeΣ thσ Elitσ font¼á s∩á ╔     linσ witΦ ^T.                           ì
  876. placσá thσ Elitσ fon⌠ escapσ commanΣá iε ìèWheε ╔ wan⌠ t∩ justif∙ thσ paragraph¼á ╔     featurσá command≤á oµá WORDBE┼á respond≤ì
  877. placσá thσ curso≥ a⌠ thσ beginninτ oµ i⌠     instantly¼á wherea≤á iε SIMPL┘ WRIT┼á i⌠ì
  878. anΣ presseΣ ^B«á Thσ beginninτ mean≤ thσ     take≤áá severa∞áá second≤áá beforσáá thσì
  879. firs⌠ááá letter¼ááá particularl∙ááá wheε     processo≥ responds.                     ì
  880. indentinτ thσ paragraph«á Iµ ╔ leavσ thσ                                             ì
  881. curso≥ a⌠ thσ extremσ lef⌠ edge¼ tha⌠ i≤     Thσá FINGE╥á marke≥ featurσá i≤á missinτì
  882. thσ placσ t∩ whicΦ thσ beginninτ oµá thσ     froφá SIMPL┘á WRITE¼á anΣ coulΣ onl∙á bσì
  883. firs⌠ linσ i≤ moved╗á thσ linσ margiε i≤     implementeΣ b∙ usinτ ß marke≥ oµ m∙á owεì
  884. disregarded╗á thσ remainde≥ i≤ justifieΣ     make«á ╔á haΣ t∩ invokσ severa∞ command≤ì
  885. correctly« ^┬ als∩ work≤ wheε thσ curso≥     t∩á ge⌠á bacδ t∩ thσ spo⌠á wherσá ╔á haΣì
  886. i≤á iε thσ middlσ oµ ß sentence«á Bu⌠ i⌠     been.                                   ì
  887. justifie≤á thσ paragrapΦ onl∙ froφá tha⌠                                             ì
  888. spo⌠ onwards.                                Thσ blocδ definitioε i≤ cumbersome« Iµ ╔
  889.                                              haΣá t∩á definσ ß largσ block¼á i⌠á tooδ
  890. ╔ aφ unablσ t∩ double-spacσ m∙ line≤á oε     somσ considerablσ timσ til∞ i⌠ i≤á done«ì
  891. thσá printe≥ a≤ ╔ caε easil∙ d∩ witΦ thσ     Afte≥ that¼á i⌠ haΣ t∩ bσ cut¼á tha⌠ is¼ì
  892. WORDBEE¼á sincσ ╔ havσ n∩ possibilit∙ t∩     loadeΣá oε t∩ ß disk¼á froφ wherσ i⌠ haΣì
  893. inser⌠á thσ appropriatσ escapσá command«     t∩ bσ retrieveΣ t∩ bσ placeΣ iε thσá ne≈ì
  894. Possibl∙áá i⌠á caεá bσá donσá witΦáá thσ     spot«á ╔ rathe≥ likσ thσ WORDBEE'╙ mode¼ì
  895. initialisatioε feature¼á bu⌠ oncσ ╔á usσ     wherσá ╔á placσ tw∩ marker≤ t∩ definσá ßì
  896. i⌠á fo≥á anothe≥ font¼á ╔ havσá n∩á rooφ     block¼á anΣ shif⌠ i⌠ directl∙ t∩ thσ ne≈ì
  897. left«á ┴ deviou≤ wa∙ ma∙ bσ iε usinτ thσ     slot.                                   ì
  898. STYL┼ modσ anΣ changσ it≤ escapσ commanΣ                                             ì
  899. iεá thσ initialisatioε program¼á bu⌠á i⌠     SIMPL┘á WRIT┼á ha≤ onl∙ ßá paltr∙á threσì
  900. proveΣá t∩ bσ s∩ mucΦ bothe≥ tha⌠ ╔ gavσ     styles«áá M∙áá printe≥á ha≤á 5╢áá escapσì
  901. i⌠ away.                                     command≤ fo≥ style≤ t∩ begiε with¼ whicΦ
  902.                                              numbe≥ i≤ doubleΣ anΣ trebleΣ oncσ ╔ usσ
  903. Thσá simples⌠ wa∙ t∩ ge⌠á double-spacinτ     underlininτ anΣ italics¼á anΣ quadrupleΣì
  904. oε m∙ harΣ cop∙ i≤ t∩ inser⌠ empt∙ line≤     wheε ╔ combinσ al∞ three«á Wha⌠ d∩ ╔á d∩ì
  905. iε m∙ writing« Tha⌠ lookeΣ likσ butcher∙     wheε ╔ wan⌠ an∙ oµ thσ others┐ ╔ havσ n∩ì
  906. a⌠ bes⌠ anΣ i≤ ß laboriou≤ task«á Bu⌠á ╔     choicσ bu⌠ t∩ returε t∩ thσ WORDBEE.    ì
  907. needeΣá it«á Mos⌠á MS╙ arσ writteεá witΦ                                             ì
  908. doublσ spacing.                              Thσ ZOO═ featurσ ma∙ bσ fascinating¼ bu⌠
  909.                                              ╔ haΣ littlσ usσ fo≥ ß gadge⌠ likσ it« ╔
  910. A⌠ tha⌠ poin⌠ ╔ haΣ anothe≥á difficulty«     kne≈á wha⌠ m∙ writinτ woulΣ looδ likσá -ì
  911. Double-spacinτ anΣ justifyinτ didn'⌠ mi°     i⌠á i≤ ß matte≥ oµ knowinτ you≥ compute≥ì
  912. oε thσ screen«á Thσ solution║ ╔ wrotσ m∙     anΣá particularl∙ you≥ printe≥ - s∩á wh∙ì
  913. articlσ single-spaced¼ anΣ wheε finisheΣ     shoulΣ ╔ havσ haΣ thσ desirσ t∩ seσ wha⌠ì
  914. - afte≥áá editinτáá anΣá correction≤áá -     thσ pagσ lookeΣ like?                   ì
  915. double-spaceΣ i⌠ oε thσ screen«á Wheεá ╔                                             ì
  916. trieΣá t∩á justif∙ witΦ ßá double-spaceΣ     SIMPL┘á WRIT┼ ha≤ man∙ littlσ bug≤á - a⌠ì
  917. screen¼áá ╔áá go⌠á int∩á al∞á kind≤áá oµ     leas⌠á m∙á versioε - whicΦá shoulΣá havσì
  918. difficulties«á I⌠ caε bσ done¼á bu⌠ tha⌠     beeε ironeΣ ou⌠ beforσ i⌠ i≤ pu⌠ oεá thσì
  919. i≤á to∩á time-consuming«á Thσá resultinτ     market« Fo≥ instance¼ thσ writinτ oε thσì
  920. screeε look≤ no⌠ to∩ good¼á bu⌠ tha⌠á i≤     screeεá suddenl∙ change≤ t∩ bold-facσ o≥ì
  921. thσ onl∙ wa∙ t∩ double-space« AnΣ ╔ darσ     italic≤ withou⌠ an∙ reason¼á eveε thougΦì
  922. sa∙ tha⌠ al∞ M╙ writer≤ neeΣ it.             thσ STYL┼ featurσ ha≤ no⌠ beeεá touched«
  923.                                              AnΣá ╔ coulΣ no⌠ ge⌠ riΣ oµ i⌠ excep⌠ b∙
  924. Thσáá blocδá modσá i≤á anothe≥á bonσá oµ     restyling«áá However¼áá thσá samσá faul⌠ì
  925. contention«áá WORDBEE'≤á blocδá modσá i≤     turneΣá u≡á thσ nex⌠ timσ ╔á loadeΣá thσì
  926. faste≥á anΣá easie≥á t∩á usσá thaεáá thσ     prograφ int∩ thσ memory¼á anΣ ╔ i≤á bacδì
  927. cumbersomσáá manipulation≤áá oµáá SIMPL┘     t∩ squarσ one« M∙ solutioε i≤ t∩ cu⌠ thσì
  928. WRITE«á Usinτ thσ WORDBEE¼á ╔ caε simpl∙     entirσá articlσá - ß borinτ joΓá iµá thσì
  929. collec⌠á al∞á ╔ havσ t∩ transfe≥ a⌠á thσ     entirσ 26δ haΣ t∩ bσ cu⌠ - anΣ placeΣ i⌠ì
  930. enΣ o≥ thσ beginninτ oµ m∙ program¼á anΣ     iε ß ne≈ file«                          ì
  931. theε transfe≥ it«á Thi≤ i≤ oµá advantagσ                                             ì
  932. wheεá ╔á desigε ß M╙ likσ thi≤á onσá anΣ     Anothe≥á buτ ╔ noticeΣ i≤ wheε ╔ invokeΣì
  933. havσá t∩á movσ ß lo⌠ oµá paragraph≤á anΣ     thσ BOL─ style«á Thσ nex⌠ worΣ afte≥ thσì
  934. sentence≤á about«áá Besides¼á thσá blocδ     bolΣá writinτ i≤á invariabl∙á displaced«ìèTha⌠á i≤ thσ enΣ oµ usinτ thσ bolΣ stylσ     no⌠ needeΣ a⌠ all.                      ì
  935. oµ SIMPL┘ WRITE.                                                                     
  936.                                              Thσáá MICROBE┼áá log∩áá i≤ááá completel∙
  937. Iε usinτ squarσ brackets¼á SIMPL┘á WRIT┼     unnecessary«á Everybod∙ know≤ wha⌠ hσ i≤ì
  938. converteΣáá theφá int∩á letter≤á froφá ß     workinτá with¼á s∩á wh∙ ruΓ i⌠á iεá witΦì
  939. Germaε fon⌠ oε thσ harΣ copy«á I⌠á coulΣ     ever∙á screenfu∞ oµ instruction≤ anΣ usσì
  940. no⌠á havσ beeε ß faul⌠ oµ thσ printe≥ o≥     u≡ memory┐á I⌠ i≤ ß littlσá only¼á true¼ì
  941. thσ computer¼á becausσ the∙ botΦá workeΣ     bu⌠á therσá arσ man∙ sucΦá littlσá bits¼ì
  942. perfectl∙ al∞ righ⌠ witΦ WORDBEE.            forminτá ßá largσá whole«áá Thσá WORDBE┼
  943.                                              prograφáá i≤á ßá considerabl∙áá shorter¼
  944. Wheεá reformatting¼á line≤á disappeared¼     purpose-orienteΣáá processo≥áá fo≥áá thσì
  945. re-appeareΣá iε anothe≥ positioε a≤ sooε     reasoεá tha⌠ an∙ fanc∙ paddinτ ha≤á beeεì
  946. a≤ justificatioε i≤ invoked¼á o≥á turneΣ     avoided.                                ì
  947. u≡á twice«á A⌠á thσ enΣ oµá thσá writinτ                                             ì
  948. often¼á bu⌠á no⌠ always¼á severa∞á line≤     A≤ i⌠ i≤ structureΣ  a⌠ present¼á SIMPL┘ì
  949. werσ repeated¼ somσ onl∙ partially«          WRIT┼á  ha≤á becomσ aε entit∙ iεá itselµ
  950.                                              insteaΣá oµ beinτ ß too∞ fo≥ ßá purpose«
  951. Oncσá ╔ haΣ aε empt∙ linσ a⌠ thσ enΣá oµ     Wh∙á ha≤á ßá 128δ machinσá go⌠á al∞á thσì
  952. m∙áá writinτá - thσá curso≥áá apparentl∙     memor∙á capacit∙ iµ halµ oµ i⌠ i≤á lyinτì
  953. canno⌠á removσá thσá las⌠ empt∙á linσá -     idle¼á anΣá tha⌠á whicΦ caε bσá useΣá i≤ì
  954. SIMPL┘ WRIT┼ counteΣ i⌠ a≤ ß page¼ iµ i⌠     mostl∙á occupieΣá b∙ ßá worΣá processor┐ì
  955. i≤ jus⌠ pas⌠ thσ pagσ break¼ anΣ gavσ mσ     Wheεá ╔á bough⌠ m∙á machinσá - ßá costl∙ì
  956. ßá pagσá coun⌠ oµ ╕ insteaΣá oµá 7¼á fo≥     venturσá a⌠ an∙ timσ - ╔ expecteΣ t∩ usσì
  957. instance« Bu⌠ thσ printou⌠ raε onl∙ t∩ ╖     mos⌠ oµ i⌠ fo≥ m∙ work« T∩ havσ onl∙ onσì
  958. page≤ anΣ theε stopped.                      fiftΦ oµ thσ memor∙ availablσ i≤á prett∙
  959.                                              poor«á Ofteεá ╔ haΣ no⌠ enougΦ witΦá thσ
  960. ┴á grea⌠ disadvantagσ i≤ thσá smal∞á RA═     46δá availablσ wheε usinτ  thσá WORDBEE¼ì
  961. capacity« Wh∙ d∩ ╔ havσ ß worΣ processo≥     anΣá tha⌠ i≤ m∙ worδ spacσ a≤ wel∞á wheεì
  962. fo≥á ß 128δ machinσ iµ s∩ littlσ oµá thσ     m∙ machinσ haΣ onl∙ 64k.                ì
  963. memor∙áá - 26δá a⌠á thσá mos⌠á - caεá bσ                                             ì
  964. utilised┐á T∩á ge⌠ morσá RAM¼á onl∙á thσ     Severa∞á mino≥á feature≤ oµ WORDBE┼á arσì
  965. basiπá SIMPL┘á WRIT┼ prograφá shoulΣá bσ     sadl∙ lackinτ iε SIMPL┘ WRITE«á The∙ arσì
  966. placeΣ iε thσ workinτ RAM¼á thσ feature≤     thσ ^K¼á ^T¼á ^╤ anΣ ^┌  commands« ╔ caεì
  967. shoulΣá al∞á g∩ int∩ thσá memor∙á drive¼     d∩ withou⌠ them¼ bu⌠ i⌠ woulΣ bσ nicσ t∩ì
  968. includinτááá thσáá HEL╨ááá instructions«     havσá them«á Make≤á movinτ abou⌠á iεá m∙ì
  969. Feature≤á arσ no⌠ useΣ s∩ ofteε tha⌠ al∞     program≤ mucΦ easier«á T∩ ge⌠ t∩ thσ to≡ì
  970. havσ t∩ bσ availablσ al∞ thσ time«á Iµ ß     o≥á bottoφ oµ thσ writinτ o≥á screeεá iεì
  971. featurσáá i≤áá requireΣáá - STYLE¼áá fo≥     WORDBE┼á take≤ onl∙ onσ ke∙ strokσ each¼ì
  972. instancσá - i⌠á caεá bσá copieΣá t∩á thσ     ^T¼ ^┌ o≥ ^Q¼ wherea≤ iε SIMPL┘ WRIT┼ i⌠ì
  973. workinτá RA═ fo≥ thσ timσ i⌠ i≤á needed¼     take≤áá two║áá ^│á - waitinτá til∞áá thσì
  974. anΣ caε theε bσ discarded«á T∩ savσ morσ     dialoguσ bo° appear≤ - theεá RETURN¼á o≥ì
  975. memor∙ space¼á i⌠ i≤ unnecessar∙ t∩ havσ     ^│áá - waitinτá til∞á thσá dialoguσá bo°ì
  976. boxe≤á drawεá oε thσá screeεá anΣá line≤     appear≤á - theε ┬ - ß nuisancσ wheεá yo⌡ì
  977. whicΦ servσ n∩ practica∞ purpose« Wh∙ t∩     havσá t∩ movσ abou⌠ ß lot«á Therσ i≤á n∩ì
  978. tel∞á thσá use≥ ho≈ t∩ movσ thσá cursor┐     commanΣá t∩á movσá t∩á thσá to≡á oµá thσì
  979. Thσ booδ oµ instruction≤ i≤ clea≥ enougΦ     screen¼ o≥ deletσ thσ res⌠ oµ thσ line. ì
  980. oε tha⌠ score.                                                                       
  981.                                              Thσáá scrollinτáá featurσáá shoulΣááá bσ
  982. Thσá feature≤á shoulΣ bσá designateΣá b∙     eliminateΣ completely«á Iε it≤ placσ thσì
  983. letter≤ o≥ number≤ no⌠ displayeΣ oεá thσ     FIN─á WOR─ featurσ caε bσ useΣ mucΦ morσì
  984. screeε a⌠ all¼ thσ explanation≤ coulΣ bσ     efficiently« Whilσ scrolling¼ ╔ caε reaΣì
  985. founΣáá iεá thσá booδá oµá instructions«     littlσ oµ wha⌠ flashe≤ pas⌠ m∙ eyes¼ bu⌠ì
  986. Peoplσá wh∩ worδ witΦ ßá worΣá processo≥     witΦ thσ FIN─ WOR─ featurσ thσ screeε i≤ì
  987. neeΣ onl∙ ß shor⌠ timσ t∩ memorisσ whicΦ     steady.                                 ì
  988. symbo∞ mean≤ wha⌠ anΣ wil∞ no⌠ bothe≥ t∩                                             ì
  989. reaΣá thσ word≤ tha⌠ arσ oε thσá screen«     Onσ advantagσ - oneí - oµ SIMPL┘ WRIT┼ ╔ì
  990. I⌠ ha≤ beeε emphasiseΣ iε thσ articlσ iε     havσáá founΣá invaluablσá i≤á thσáá pagσì
  991. ON-LIN┼á tha⌠ HEL╨ boxe≤ arσ needeΣ onl∙     numbering«á WORDBE┼á count≤ onl∙á u≡á t∩ì
  992. fo≥ ß shor⌠ time« Iε m∙ opinioε the∙ arσ     255¼á theε misse≤ onσ number¼ presumabl∙ìèzero¼á anΣá start≤ witΦ ▒ again«á SIMPL┘     usefu∞á anΣá les≤á financiall∙á draininτì
  993. WRIT┼áá appear≤áá t∩áá havσáá n∩ááá sucΦ     product«á I⌠á woulΣá bσá bette≥á iµá thσì
  994. limitations«á ╔ aφ workinτ a⌠ presen⌠ oε     WORDBE┼á woulΣá bσá expandeΣ t∩á ßá worΣì
  995. ßá work-relateΣá treatise¼á witΦ ßá pagσ     processo≥á whicΦá caε d∩ somσá oµá thosσì
  996. coun⌠ oµ wel∞ ove≥ 700¼ anΣ SIMPL┘ WRIT┼     thing≤áá SIMPL┘áá WRIT┼á caεáá d∩áá now║ì
  997. i≤ stil∞ numberinτá correctly«á Changinτ     Providinτ footer≤ anΣ 8░ character≤ iε ßì
  998. thσ disδ drive≤ i≤ ß bi⌠ oµ ß bother« I⌠     line¼ feature≤ whicΦ shoulΣ bσ placeΣ iεì
  999. i≤á easie≥á donσá witΦá thσá WORDBE┼á o≥     thσá memor∙á drivσá t∩á leavσá a≤áá mucΦì
  1000. SHELL.                                       workinτ spacσ a≤ possible.              
  1001.                                                                                      
  1002. T∩á mergσá tw∩ program≤ i≤ ß cincΦá witΦ     Don'⌠á tel∞á mσ i⌠ canno⌠ bσá donσá - oµì
  1003. thσ WORDBEE¼ bu⌠ involveΣ ß considerablσ     coursσ i⌠ can!                          ì
  1004. amoun⌠á oµá deviou≤ worδ witΦá SIMPL┘á -ì
  1005. WRITE.                                       $$ FOR SALE $$ FOR SALE $$ FOR SALE $$  
  1006.                                              ======================================= 
  1007. Anothe≥á usefu∞á featurσ missinτ i≤á thσ     (A⌐á SUPERGOL╞á [mwb▌   ┴átw∩ dimensiona∞ ì
  1008. OVERWRIT┼ facility« A≤ SIMPL┘ WRIT┼ jus⌠     hires/hires▓áversioε oµ thi≤ popula≥ ì
  1009. add≤ thσ ne≈ words¼ ╔ havσ t∩ deletσ thσ     sport« Thσ baτ offer≤ 1│ club≤ plu≤ ì
  1010. discardeΣá one≤á onσ b∙ onσá - to∩á mucΦ     putter« Tw∩ mode≤ ║          ì
  1011. worδ wheε ╔ havσ ß lo⌠ t∩ write.             
  1012.                                              Fairwa∙á anΣ green«á  Continiou≤ displa∙
  1013. I⌠á i≤ aε enormou≤ disadvantagσ tha⌠á n∩     oµ al∞ relevan⌠ information.            ì
  1014. direc⌠á escapσ command≤ caεá bσá invokeΣ                                             ì
  1015. witΦá SIMPL┘ WRITE«á ╔ owε aεá excellen⌠     (B)  BEE CALCULATOR [mwb]  Thi≤ prograφ              ì
  1016. printe≥á whicΦ ha≤ man∙ feature≤á built-     convert≤ thσ compute≥áint∩ ß scientifiπì
  1017. in¼á witΦá fa≥á iε exces≤ oµ 10░á escapσ     calculator«áIε additioε t∩ al∞á usua∞ 
  1018. commands«ááá Fo≥áá instance¼ááá downloaΣ     calculato≥ features¼áspecia∞ application≤ì
  1019. characters¼ááá differen⌠áá linσáá feeds¼     sucΦ as:ì
  1020. vertica∞ tabs¼á doublσ strike¼á built-iε                        ì
  1021. fonts¼ backfeed¼ superscript¼ subscript¼     1)Sorting, ì
  1022. doublσ widtΦá letters¼á condensed¼á higΦ     2)Basic Statistical elements,           ì
  1023. speed¼á proportional¼á anΣ man∙ more« T∩     3)Pythagoras,                           ì
  1024. thσ 1░ font≤ buil⌠ int∩ m∙ printe≥ ╔ caε     4)Decimal to Vulgar fraction conversion,ì
  1025. adΣá m∙á owεá iµ ╔ wisΦ - bu⌠á no⌠á wheε     5)Add./sub. of vulgar fractions, and,   ì
  1026. usinτá SIMPL┘á WRITE¼áá onl∙á witΦáá thσ     6)Solutioεá oµ quadratiπ anΣá simult-   ì
  1027. WORDBEE« AnΣ the∙ arσ NO╘ printeΣ likσ ß       aneou≤ linea≥ equation≤ available.    ì
  1028. graphic≤ dump¼á bu⌠ iε thσ norma∞ manne≥                                             ì
  1029. a⌠áá almos⌠á norma∞á speed«áá Thσáá onl∙     Cost :                                  ì
  1030. solutioεá fo≥á mσ i≤ t∩ g∩ bacδá t∩á thσ     (A) $15.00 Tape; $21.00 for 3 1/4" disk.ì
  1031. WORDBE┼áá iµáá ╔áá wan⌠áá t∩áá d∩áá somσ     (B) $19.50 Tape; $26.00 for 3 1/4" disk.ì
  1032. sophisticateΣá writing¼á usσ ß differen⌠                                             ì
  1033. fon⌠ o≥ changσ m∙ linσ spacing«á ╔á mus⌠     G. GARDOZ, 33 FRASER ST.,               ì
  1034. confes≤á tha⌠ ╔ havσ returneΣ man∙ oµ m∙     CLUNES, Vic., 3370                      ì
  1035. writing≤á t∩á thσá WORDBE┼á - afte≥áá m∙                                             ì
  1036. infatuatioεá witΦ SIMPL┘ WRIT┼ haΣá worε     ======================================= ì
  1037. ofµá - sincσá i⌠á i≤ morσá versatilσá iε     $$ FOR SALE $$ FOR SALE $$ FOR SALE $$   ì
  1038. severa∞ respects.                            Dreamdisδá 56δ twiε 740δ ╡ 1/4óá drives«
  1039.                                              Greeεá monito≥ anΣ abou⌠ 120░á programs«
  1040. N∩á doub⌠á improveΣ version≤á oµá SIMPL┘     Bes⌠á offe≥ unde≥ $800.00«á             ì
  1041. WRIT┼á wil∞á bσá offered¼á fo≥á ßá heft∙     Contac⌠ Wa∞ HANSE╬ oε 31╕ - 188│ A/H.   ì
  1042. price¼ oµ course« Wh∙ canno⌠ thσ prograφ                                             ì
  1043. bσ properl∙ designeΣ iε thσ firs⌠ place┐     64k CIAB, monitor, games, joy stick,    ì
  1044. Therσá arσ man∙ worΣ processor≤á oεá thσ     printer, Catcher (all vols) manuals and ì
  1045. marke⌠ froφ whicΦ cue≤ caε bσ taken.         software. Price negotiable.             
  1046.                                              Contact J. Pope on 857 - 5342.          
  1047. I⌠á look≤ a≤ iµ ╔ havσ stil∞ ß lonτ timσ     ì
  1048. t∩ wai⌠ til∞ ╔ caε usσ SIMPL┘ WRIT┼á fo≥     Star DP 84-80 Printer with tractor feedì
  1049. seriou≤á worδá - iµ ╔ eve≥ do«á ╔á migh⌠     Only $180.     ì
  1050. decidσ tha⌠ somσ othe≥ make≥ ha≤ ßá morσ     Contact Steve Mizzi on 844 - 1220ìè                      DIRSORT.BAS (Competition Entry)
  1051.      
  1052. Thi≤á i≤ thσ sourcσ oµ thσ articlσ presenteΣ iε Thσ Catche≥ oε pagσ 1▒ las⌠ ì
  1053. month« Sorr∙ ╔ haΣ t∩ breaδ u≡ thσ articlσ likσ this« Iµ i⌠ i≤ to∩ mucΦ fo≥ ì
  1054. yo⌡ t∩ typσ thi≤ o≥ an∙ othe≥ listinτ froφ thesσ pages¼ the∙ arσ al∞ pu⌠ oε ì
  1055. our public domain disks in tokenised form ready to run.  ED.
  1056. 00100 GOTO 200  √░╣╣²
  1057. 00110 REM123456789012345678901234567890123456789012345678901234567890
  1058.       123456789012345678901234567890123456789012345678901234567890
  1059.       12345678901234567890123456789012345678901234567  √▒┤╖²
  1060. 00120 REM1234567890123456789012345678901234  √▒╡░²
  1061. 00130 REM123456789012345678901234567890123456789012345678901234567  √▒┤╣²
  1062. 00140 REM123456789012345678901234567890123456789012345678901234567890
  1063.       123456789012345678901234567890123456789012345678901234567890
  1064.       12345678901234567890123456789012345678901234567890  √▒╡▓²
  1065. 00150 REM12345678901234  √▒╡▒²
  1066. 00160 REM12345678901  √▒╡┤²
  1067. 00170 REM Directory Sort  √▒╡│²
  1068. 00180 REM By Paul Shannon  √▒╡╢²
  1069. 00190 REM MBUG member 1219  √▒╡╡²
  1070. 00200 ON ERROR GOTO 580  √▒▒╡²
  1071. 00210 IF PEEK(60)<>5:PRINT"Directory Sorter   Version 1.0":POKE60,5  √░▓▓²
  1072. 00220 GOSUB 630:REM This line may be removed after running.  √▓┤╖²
  1073. 00230 POKE 257,1:INPUT A0$  √░│░²
  1074. 00240 REM Routine to analyse user input -----------------------  √▒╡│²
  1075. 00250 IF A0$ <> "DIR" AND A0$(;1,4)<>"DIR ":RUN A0$  √▓▒╕²
  1076. 00260 IF A0$="DIR":A0$="DIR *.*"  √░╖░²
  1077. 00270 S=SEARCH(A0$,":"):IF S=0 THEN 310  √▓░╡²
  1078. 00280 D0$=A0$(;S-1,S-1)  √░┤╢²
  1079. 00290 IF LEN(A0$)>6: A0$=A0$(;1,4) + A0$(;7,LEN(A0$)) ELSE LET 
  1080.       A0$ = A0$(;1,4)+"*.*"  √▒╣╕²
  1081. 00300 DISKRESET D0$  √░│╕²
  1082. 00310 REM Construct string in a form similar to the directory  √▒┤╣²
  1083. 00320 G = SEARCH(A0$,"."):IF G=0:PRINT"''"A0$"''?"  √▒╡│²
  1084. 00330 E0$ = A0$(;G+1,LEN(A0$))  √▒╡╣²
  1085. 00340 F0$ = A0$(;5,G-1)  √▒│╕²
  1086. 00350 F= SEARCH(F0$,"*"):IF F=0:F=7 ELSE LET F=F-1:REM Filename length √▒╣▓²
  1087. 00360 E= SEARCH(E0$,"*"):IF E=0:E=3 ELSE LET E=E-1:REM Extention length √▒╣╣²
  1088. 00370 S0$="        ":F0$ = F0$ + S0$:E0$ = E0$ + S0$  √▓│░²
  1089. 00380 F0$ = F0$(;1,9) + E0$(;1,4):REM Completed String  √░╕╢²
  1090. 00390 I = 24528:FOR J = 1 TO 13:T = ASC(F0$(;J,J)):POKE I,T:I=I+1:NEXT J √▒╢╣²
  1091. 00400 REM routine to capture directory at 6000h --------------  √▒╡▒²
  1092. 00410 POKE 178,232:POKE 179,10:REM re-direct output to 2792d  √░░╖²
  1093. 00420 POKE 2790,0:POKE 2791,96:REM send to 6000h   √▓▒╣²
  1094. 00430 DIR:PRINT"*"  √▓▒▓²
  1095. 00440 POKE 178,47:POKE 179,166:REM restore normal output  √▓▒╕²
  1096. 00450 IF PEEK(24576)=42:PRINT"No File":RUN  √▒▓╕²
  1097. 00460 D0$ = CHR(PEEK(24578))  √░░╢²
  1098. 00470 Z=USR(2531):REM Strip directory of CR's, LF's and Drive letter   √▒┤│²
  1099. 00480 REM ----- Number of entries, length & starting address --  √▒╡╣²
  1100. 00490 N=PEEK(24574)  √▒╖▓²
  1101. 00500 POKE 2319,N:POKE 2320,0:POKE 2321,N:POKE 2322,0  √░╢│²
  1102. 00510 POKE 2323,15:POKE 2324,0:POKE 2325,2:POKE 2326,96  √░╕╖²
  1103. 00520 Z = USR(2335):REM Alphabetize the directory  √▒│▒²
  1104. 00530 POKE 24550,ASC(D0$)  √░│╣²
  1105. 00540 POKE 24552,E: POKE 24553,0: POKE 24554,F: POKE 24555,0  √▒╣╡²
  1106. 00550 Z = USR(2594):REM Search for desired string  √▒│▒²
  1107. 00560 K = PEEK(24558): IF K > 0: PRINT \ K" out of"N" entries" ELSE PRINT
  1108.       "No File"  √░▒╣²è00570 RUN  √▒│╕²
  1109. 00580 POKE 178,47:POKE 179,166:IF ERRORC = 45:PRINT\"''"A0$"''?":RUN  √░▒╢²
  1110. 00590 END  √▒▒▓²
  1111. 00600 REM The following lines, as well as line 220, may be  √▒╡│²
  1112. 00610 REM removed after running the program to speed it up.  √▒╡▓²
  1113. 00620 REM ----- M/L Code --------------------------------------  √▒╡╡²
  1114. 00630 FOR I = 2792 TO 2800:READ D:POKE I,D:NEXT I  √▒▓╕²
  1115. 00640 FOR I = 2531 TO 2587:READ D:POKE I,D:NEXT I  √▒╡▓²
  1116. 00650 FOR I = 2335 TO 2485:READ D:POKE I,D:NEXT I  √▒╡▓²
  1117. 00660 FOR I = 2492 TO 2525:READ D:POKE I,D:NEXT I  √▒┤░²
  1118. 00670 FOR I = 2594 TO 2763:READ D:POKE I,D:NEXT I  √▒┤┤²
  1119. 00680 FOR I = 2770 TO 2783:READ D:POKE I,D:NEXT I  √▒╡╖²
  1120. 00690 RETURN  √▒▒│²
  1121. 00700 REM ----- Relocate Directory ----------------------------  √▒╡┤²
  1122. 00710 DATA 42,230,10,119,35,34,230,10,201  √▒╣╣²
  1123. 00720 REM ----- and strip of unnecessary chacters -------------  √▒╡╢²
  1124. 00730 DATA 33,0,0,34,254,95,17,0,96,33,3,96,1,60,0,62  √▒▒▓²
  1125. 00740 DATA 42,190,40,36,62,58,190,32,20,229,42,254,95,125,18,35,34  √░╢│²
  1126. 00750 DATA 254,95,225,19,62,0,18,19,35,35,11,11,237,160,120,177,32  √░╡┤²
  1127. 00760 DATA 220,35,35,35,24,212,201  √░▒╢²
  1128. 00770 REM ----- Alphabetize the Directory ---------------------  √▒╡╣²
  1129. 00780 DATA 245,197,213,229,42,21,9,229,42,19,9,229,175,42,17,9,124,31  √▒╖┤²
  1130. 00790 DATA 103,125,31,111,34,17,9,180,32,7,193,209,225,209,193,241,
  1131.       201,235 √▒╣▓²
  1132. 00800 DATA 42,15,9,125,147,111,124,154,103,34,19,9,33,1,0  √▒│┤²
  1133. 00810 DATA 34,21,9,34,23,9,45,193,197,25,11,120,177,32,250,34,25,9  √░░▒²
  1134. 00820 DATA 235,193,225,229,197,34,27,9,34,29,9,235,25,235,193,197,26  √░▓▒²
  1135. 00830 DATA 150,32,9,35,19,11,120,177,32,245,24,59,48,57,197,70,26  √░▒╡²
  1136. 00840 DATA 119,120,18,35,19,193,11,120,177,32,242,42,17,9,124,47,87  √▒▒░²
  1137. 00850 DATA 125,47,95,42,23,9,25,48,28,35,34,23,9,42,29,9,235  √▓│▓²
  1138. 00860 DATA 42,25,9,123,149,111,122,156,103,34,29,9,24,188,42,21,9  √▓┤▓²
  1139. 00870 DATA 35,34,21,9,34,23,9,235,42,19,9,125,147,124,154,218,43  √░▓╖²
  1140. 00880 DATA 9,42,27,9,209,213,25,235,42,25,9,235,24,139  √▒╖╡²
  1141. 00890 REM ----- Search Directory Routine ----------------------  √▒╢▓²
  1142. 00900 DATA 33,0,0,34,238,95,34,236,95,221,33,2,96,253,33,208  √▒╣╣²
  1143. 00910 DATA 95,237,75,234,95,221,229,225,253,229,209,120,177,40,14,26,254 √░│┤²
  1144. 00920 DATA 63,40,4,26,190,32,125,35,19,11,24,238,237,75,232,95,120  √░┤╣²
  1145. 00930 DATA 177,40,34,221,229,225,62,9,133,111,253,229,209,62,9,131,95  √▓▓╢²
  1146. 00940 DATA 120,177,40,16,26,254,63,40,4,26,190,32,85,35,19,11,24  √░╡╕²
  1147. 00950 DATA 238,24,186,42,238,95,35,34,238,95,62,65,189,32,3,205,6  √░╡╖²
  1148. 00960 DATA 128,42,236,95,35,62,4,189,32,3,33,0,0,34,236,95,62  √▓░╣²
  1149. 00970 DATA 1,189,32,17,62,13,205,47,166,62,10,205,47,166,33,230,95  √░▒│²
  1150. 00980 DATA 126,205,47,166,62,58,205,47,166,62,32,205,47,166,221,229,225  √▓░▒²
  1151. 00990 DATA 1,13,0,126,205,47,166,35,11,120,177,32,246,42,254,95,24  √░│┤²
  1152. 01000 DATA 6,43,34,254,95,125,180,200,1,15,0,221,9,24,151  √░╣╕²
  1153.  
  1154.                             WHAT ARE CHECKSUMS?
  1155.  
  1156. Thσá number≤ containeΣ withiε thσ √ bracket≤ ² a⌠ thσ enΣ oµ eacΦ linσá arσ ì
  1157. checksuφá numbers«á Thesσ number≤ d∩ no⌠ forφ par⌠ oµ thσ listinτ bu⌠ arσ ß ì
  1158. "proofinτá aidó fo≥ thosσ typinτ iε thσ listing≤ founΣ iε Thσá Catcher«á T∩ ì
  1159. usσá thesσ number≤ yo⌡ mus⌠ havσ thσ prograφ CKSM23.MW┬ loadeΣ anΣá runninτ ì
  1160. iε you≥ Beσ beforσ startinτ t∩ typσ iε thσ listing« CKSM23.MW┬ caε bσ founΣ ì
  1161. oε mos⌠ volume≤ oµ MBU╟ P/─ disk≤ o≥ oε thσ RBBS«á  Wheε runninτ CKSM2│ anΣ ì
  1162. typinτá iεá ß listinτ sucΦ a≤ tha⌠ above¼á a⌠ thσ enΣ oµá eacΦá line¼á (no⌠ ì
  1163. includinτ thσ numbe≥ insidσ thσ {brackets})¼á yo⌡ pres≤ C/╥ anΣ ß numbe≥ iε ì
  1164. {brackets²á wil∞ appea≥ oε YOU╥ screen«á Iµ thσ tw∩ number≤ match¼á iεá thσ ì
  1165. listinτá anΣá oε thσ screen¼á theε yo⌡ havσ madσ n∩ misteak≤á (sic)«á NOTE║ ì
  1166. CKSM23.MWB ignores REM statements.è              REAL CLOCK KIT - INSTRUCTIONS FOR 128K PREMIUM 
  1167.  
  1168.                             By Marδ PremosellΘ               
  1169.  
  1170.      Thσá fittinτ instruction≤ supplieΣ witΦ thσ ki⌠ (dateΣ 23rΣ Jul∙ 1985⌐ ì
  1171. refe≥á t∩á ßá "Latσá Modeló basσ boarΣ (numbe≥á 1248-╢á useΣá iεá Microbee≤ ì
  1172. produceΣ sincσ Jul∙ 1985)« 
  1173.  
  1174. Howeve≥á thσá 128╦á Premiuφ Serie≤ Microbee≤ usσá ßá differen⌠á boarΣá witΦ ì
  1175. totall∙ differen⌠ referencσ number≤ fo≥ components« Thσ followinτ referencσ ì
  1176. number≤ arσ applicablσ t∩ 128╦ Premiuφ Serie≤ Microbees:
  1177.  
  1178. DESCRIPTION            Numbers     1248-6 Ref.  128K Premium Ref.        
  1179.  
  1180. IC 74HC00                1            IC 45         IC 15
  1181. MC146818 RTC             1            IC 42         IC 10
  1182. 1K Resistor              1            R 39          R 14
  1183. 1M Resistor              1            R 40          R 2
  1184. 150K Resistor            1            R 41          R 3
  1185. 4M7 Resistor             1            R 42          R 4
  1186. 1K8 Resistor             1            R 43          R 7
  1187. 22R Resistor             1            R 38          R 1
  1188. 4.7 pF (4n7) Green Cap.  1            C 42          C 6
  1189. 10 uF Tag Cap.           1            C 43          C 1 (Note 1) 
  1190. 0.01 uF Ceramic Cap.     1            C 44 (or 47)  C 15 (Note 2)
  1191. 33 pF Ceramic Cap.       2            C 45, 46      C 7, 8
  1192. 5.5 to 65 pF Trim Cap.   1            CV 1          CV 1 (Note 3)
  1193. 32.768 kHz Crystal       1            G 2           G 2  (Note 4)
  1194. 1N914 Diode              2            D 20-22       D 1, 2
  1195. Ni-Cd Battery            1            B 1           B 1
  1196.  
  1197. You will also require sockets for IC 10 and IC 15.
  1198.  
  1199. Additionally you will need to link the following:
  1200.  
  1201.     L 1 to L 1 (just above the BackSpace key)
  1202. ááááL 2 to L 2 (just above the Escape key) 
  1203.  
  1204. Notes
  1205.  
  1206. 1. Next to battery
  1207. 2. Between IC 10 and IC 15 
  1208. 3«áT∩ bσ fitteΣ oε thσ undersidσ oµ thσ board«á Thσ connectinτ wirσ t∩ thσ ì
  1209. áááto≡á boarΣá ha≤á t∩ bσ removeΣ anΣ theε resoldered«á ┴ holσá ha≤á t∩á bσ ì
  1210. ááádrilleΣ oε thσ bottoφ oµ thσ casσ iµ yo⌡ wisΦ t∩ adjus⌠ i⌠ externally« 
  1211. 4« Crysta∞ ha≤ t∩ bσ tieΣ dowε witΦ ß strippeΣ coppe≥ wirσ -    
  1212.  
  1213. Caution║ d∩ no⌠ overheat.
  1214.  
  1215. Pleasσá Notσá tha⌠ othe≥ component≤ supplieΣ iε thσ ki⌠ (othe≥ thaεá listeΣ ì
  1216. above⌐ arσ no⌠ requireΣ t∩ bσ fitted.
  1217.  
  1218. ACKNOWLEDGEMENT║áá    
  1219.                Man∙á thank≤ t∩ Steveε Jepsoε fo≥ providinτ thσá informatioε ì
  1220. above«á Withou⌠á hi≤á hel≡á i⌠ woulΣ havσ beeε impossiblσ t∩ fi⌠á thσá kit«ì
  1221.  
  1222. Don'⌠ forget¼ ou≥ Bazaa≥ sell≤ rea∞ timσ clocδ kit≤ cheape≥ thaε MSL« Thesσ ì
  1223. ma∙ bσ purchaseΣ oε an∙ norma∞ cluΓ nigh⌠ o≥ viß mai∞ order«á Thσ price≤ oµ ì
  1224. the kits are advertised in the Bazaar section of this magazine. EDè