home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug024.arc / 1986OCT.CAT < prev    next >
Text File  |  1979-12-31  |  54KB  |  1,106 lines
  1. .pl70
  2. .po0
  3. .OP
  4. .HE# OCT   - T H E  C A T C H E R -1986 #     
  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.
  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       Bob Denton               233-1843      
  21. Simon Gerraty            557-2501       Mike Holzinger           354-6742 
  22. Jim Lobley               758-9169       Mike Thompson             82-5002
  23.  
  24.  
  25. SERVICES  PROVIDED  BY  MBUG  AUSTRALIA 
  26.  
  27. DISK FORMAT COPYING JOHN BUXTON  758-5744
  28. RBBS SYSTEM OPERATOR.  MIKE THOMPSON 82-5002
  29. BAZAAR MICK HOLZINGER  P.O. BOX 253 COBURG  3058       
  30. EDITOR  A. BARFOOT. P.O. BOX 157 NUNAWADING 3131  
  31. TAPE LIBRARY C. ANDERSON. P.O. BOX 147 DIAMOND CREEK 3089
  32. MODEM HIRE    C. ANDERSON.  P.O. BOX. 147 DIAMOND CREEK 3089
  33. MEMBERSHIP SECRETARY J. LOBLEY.  P.O. BOX 157 NUNAWADING 3131  
  34. PUBLIC DOMAIN (SIG/M) DISKS  S. JEPSON.  P.O. BOX 8  ROSANNA 3084
  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.      Iε thi≤ month≤ column¼á ╔ mus⌠ makσ aε apologiσ froφ MBU╟ AUS╘ INC« t∩ ì
  66. GOODISO╬á SOFTWAR┼ fo≥ includinτ ß basiπ prograφ (BATSHIP⌐ iε thσá Catcher« ì
  67. Thσ prograφ i≤ copyrigh⌠ t∩ GOODISO╬ SOFTWARE«á ╔ pickeΣ thσ prograφ u≡ ofµ ì
  68. thσ B┬ anΣ considereΣ i⌠ t∩ bσ publiπ domain« Compensatioε ha≤ beeε madσ t∩ ì
  69. GOODISO╬ SOFTWAR┼ iε recompensσ fo≥ thi≤ mistake« ╔ therefore¼ oε behalµ oµ ì
  70. thσ club¼ anΣ oε m∙ owε part¼ apologizσ fo≥ thi≤ erro≥ anΣ sincerel∙ regre⌠ ì
  71. an∙ inconveniencσ causeΣ t∩ GOODISO╬ SOFTWARE¼ it≤ author≤ o≥ distributors.
  72.  
  73.      WitΦ thi≤ iε mind¼á onσ use≥ oµ ou≥ B┬ ha≤ haΣ thei≥ acces≤ denieΣ fo≥ ì
  74. uploadinτá copyrigh⌠á software«á AlthougΦ thσ program≤ sen⌠ t∩ u≤ werσá no⌠ ì
  75. froφ thσ abovσ company¼á thσ messagσ froφ thσ cluΓ i≤ thσ same«á MBU╟á AUS╘ ì
  76. INC«á doe≤á no⌠á condonσá thσ non-authorizeΣ usσ oµ copyrigh⌠á softwarσá o≥ ì
  77. hardwarσ anΣ thereforσ als∩ condemn≤ unauthorizeΣ copyinτ oµ sucΦ material« ì
  78. ╔á realisσ thi≤ ma∙ bσ ß littlσ harΣ fo≥ thσ persoε wh∩ ha≤ los⌠á thσá CP/═ ì
  79. acces≤á t∩ accep⌠ considerinτ wha⌠ ╔ havσ writteε (above)¼á bu⌠ thσ messagσ ì
  80. i≤á clear«á Thσá uploade≥á oµ thσ GOODISO╬á SOFTWAR┼á prograφá i≤á somewha⌠ ì
  81. luckier«á Fo≥ somσ reason¼á thσ UPLO╟ prograφ oε thσ B┬ diΣ no⌠ picδ u≡ wh∩ ì
  82. sen⌠ thσ prograφ t∩ us« HaΣ thσ loτ haΣ showε wh∩ i⌠ was¼ thi≤ persoε woulΣ ì
  83. havσ haΣ thei≥ CP/═ acces≤ cu⌠ ofµ too.
  84.  
  85.      Iεá m∙á repor⌠ las⌠ montΦ thσ namσ Pete≥ Hanseε wa≤ mentioneΣá iεá thσ ì
  86. las⌠ paragraph« Pleasσ amenΣ t∩ reaΣ Pete≥ Wagner« 
  87.  
  88.      ╔á woulΣ likσ t∩ sa∙ ß specia∞ thank≤ t∩ Pete≥ Halgarteε fo≥ hi≤á dem∩ ì
  89. oµá thσá packe⌠ radi∩ a⌠ thσ Augus⌠ meeting«á AlthougΦ wσ haΣ somσá troublσ ì
  90. settinτ u≡ fo≥ thσ demo¼á no⌠ ß grea⌠ dea∞ oµ interes⌠ wa≤ shown¼ bu⌠ thosσ ì
  91. wh∩ diΣ seσ i⌠ seemeΣ t∩ appreciatσ it«  Oncσ again¼ thank≤ Peter.
  92.  
  93.      Tw∩á demonstration≤ thi≤ month«á 1⌐ CATM.CO═ disδ catelogueinτá systeφ ì
  94. anΣá 2⌐á ß branΣ ne≈ Accountinτ packagσ froφ ß ne≈á softwarσá company«á Thσ ì
  95. packagσ i≤ calleΣ BEEKEEPER«á Iµ yo⌡ likσ wha⌠ yo⌡ see¼á i⌠ wil∞ bσ oε salσ ì
  96. a⌠á ß ver∙ specia∞ price«á Fo≥ thosσ wishinτ t∩ purchasσ thσá software¼á i⌠ ì
  97. wil∞ bσ oε salσ fo≥ abou⌠ $80.00 to $100.0░. Retai∞ pricσ $126.00.
  98.  
  99.      DiΣá yo⌡á talδ t∩ you≥ othe≥ halµ abou⌠ u≤ havinτ ßá FAMIL┘á Christma≤ ì
  100. picniπ oε ß Saturda∙ o≥ Sunday¼á insteaΣ oµ ß norma∞ meetinτ witΦ somσ eat≤ ì
  101. anΣ drinks?á Thσ ideß i≤ fo≥ you≥ compute≥ wido≈ mee⌠ thσ peoplσ yo⌡ deser⌠ ì
  102. he≥ fo≥ oncσ o≥ twicσ monthly« 
  103.  
  104.      Wσá arσ lookinτ fo≥ peoplσ t∩ assis⌠ thσ cluΓ a⌠ thσá `PC87ºá compute≥ ì
  105. show« Thosσ wh∩ caε hel≡ wil∞ bσ requireΣ t∩ man/womaε (person⌐ thσ displa∙ ì
  106. wσ hopσ t∩ se⌠ up« Wσ neeΣ peoplσ wh∩ caε ge⌠ timσ ofµ worδ durinτ thσ day« ì
  107. Morσ abou⌠ thi≤ a⌠ thσ meeting« ╔ aφ no⌠ surσ oµ date≤ yet.
  108.  
  109.      Thσá B┬ ha≤ haΣ anothe≥ BI╟ crasΦ recently«á Wheε i⌠ get≤ bacδ oε linσ ì
  110. coulΣ yo⌡ pleasσ checδ iµ thσ file≤ yo⌡ havσ up-loadeΣ arσ stil∞ there.
  111.  
  112.      Microbeσá System≤ ne≈ upgradσ polic∙ i≤ printeΣ oε pagσ 18«á Thi≤á ne≈ ì
  113. polic∙ seem≤ t∩ bσ thσ bes⌠ possiblσ wa∙ oµ upgradinτ anyonσ coulΣ asδ for« ì
  114. I⌠ i≤ ß step-by-step¼á pa∙ a≤ yo⌡ g∩ (iµ necessary)¼á wa∙ t∩ thσ to≡ oµ thσ ì
  115. Microbeσ range« Congratulation≤ Microbeσ Systems« ┴ to≡ deal« Thanks.
  116.  
  117. NEX╘ MAILIN╟ A╘ JI═ LOBLEY'╙ -- SATURDA┘ NOVEMBE╥ 8th.
  118.  
  119. DISCOUN╘ NUMBE╥     1037
  120.  
  121. >ANDREWè                    GETTING RID OF THE CURSOR IN TURBO
  122.                            C. A. Bennetts. (737)
  123.  
  124.      ╔ recentl∙ wrotσ ß prograφ iε Turb∩ tha⌠ madσ usσ oµ Turbo'≤á KeyboarΣ ì
  125. readinτá routines«á Wheεá ╔ haΣ completeΣ it¼á ╔ lookeΣ fo≥ ß commanΣá tha⌠ ì
  126. woulΣ ge⌠ riΣ oµ thσ Curso≥ tha⌠ wa≤ no≈ n∩ longe≥ needed« Wheε ╔ coulΣ no⌠ ì
  127. finΣá sucΦá ßá commanΣ ╔ lef⌠ ß messagσ oε thσ Bulletiε BoarΣá anΣá haΣá m∙ ì
  128. answe≥ withiε ß week.
  129.  
  130.      Thσ  firs⌠ solutioε i≤ t∩ cop∙ thσ cha≥ RO═ t∩ thσ PC╟  RAM«  Thi≤  i≤  ì
  131. becausσá  thσá  curso≥á i≤ jus⌠ aε inversσ  spacσ  o≥  thσ inversσá oµá an∙ ì
  132. characte≥á i⌠ i≤ oε to≡ of«á  Thi≤ work≤ wel∞ excep⌠ yo⌡ loosσ thσá Inversσ ì
  133. optioε (LowVideo):
  134.  
  135. Procedure No_Inverse;
  136. var
  137.    ROM  :  array [0..$7FF] of byte absolute $F000;
  138.    RAM  :  array [0..$7FF] of byte absolute $F800;
  139.  
  140. begin
  141.      port[11]:=1;
  142.      move(ROM,RAM,$800);
  143.      port[1]:=0;
  144. end.
  145.  
  146. ╔á  wisheΣá t∩á usσ thσ Inversσ cha≥ se⌠ s∩ thσ firs⌠á  solutioεá wa≤á  no⌠  ì
  147. satisfactory«á   Anothe≥á  solutioεá i≤ t∩ jus⌠  fil∞á  thσá Inversσá spacσ ì
  148. locatioε witΦ 0'≤ a≤ below║   
  149.  
  150. Procedure No_Cursor;
  151. var
  152. Curs  : integer;
  153. BIT   : array [0..$B] of byte;
  154. PCG   : array [0..$B] of byte absolute $FA00;
  155. begin
  156.      For Curs := 0 to $B do
  157.         begin
  158.         BIT[Curs] := $0;
  159.         end;
  160.             MOVE(BIT,PCG,$B);
  161.             end.
  162.  
  163. Iµá  yo⌡á arσ usinτ thσ Inversσ cha≥ se⌠ yo⌡ ma∙ finΣ i⌠  eas∙ t∩ hidσá thσ ì
  164. curso≥ anyway«á    M∙ thank≤ t∩ Mirk∩ Fluhe≥ anΣ Pete≥ Broughtoε fo≥á therσ ì
  165. hel≡ iε findinτ thesσ solutions.
  166.  
  167.                                  oooOOOooo
  168.  
  169.  
  170. From: GAVAN BERGER       To:   ALL      Re:   HELLO FROM CANBERRA
  171.  
  172.      Hi¼ Jus⌠ though⌠ ╔ woulΣ sa∙ hell∩ froφ thσ Canberrß Microbeσ Users
  173. Group«á Iµá anyonσ i≤ interested¼á thσ (Canberra⌐ User≤ Grou≡ i≤á currentl∙ ì
  174. compilinτá ßá lis⌠á oµ problem≤ founΣ witΦ thσá C.I.A.B«á systeφá anΣá wil∞ ì
  175. presen⌠á it≤ finding≤ t∩ Microbeσ System≤ LimiteΣá wheεá complete«á Member≤ ì
  176. havinτá problem≤á ma∙á writσá t∩á u≤ witΦ ßá detaileΣá resumσá oµá problem≤ ì
  177. encounted«á Pleasσ suppl∙ u≤ witΦ you≥ namσ anΣ contac⌠ phonσ number«á SenΣ ì
  178. detail≤ t∩:-
  179. Canberrß Microbeσ User≤ Group, P.O. Box 227, Weston Creek, A.C.T. 2611è                                SORT.BAS
  180.            Prograφ supplieΣ b∙ Brucσ Robinson¼ membe≥ No« 1087.
  181.  
  182. Thi≤ prograφ wil∞ sor⌠ u≡ t∩ 200░ item≤ int∩ ASCI╔ orde≥ fairl∙ quickly« I⌠ ì
  183. take≤á abou⌠á │ second≤ t∩ sor⌠ 40░ items«á Fo≥ demonstratioε purpose≤á thσ ì
  184. prograφ wil∞ generatσ ╬ randoφ numbers¼ storσ theφ a≤ strings¼ lis⌠ theφ oε ì
  185. thσá screen¼á sor⌠á them¼á theε lis⌠ theφ iε sorteΣ orde≥á oεá thσá screen« ì
  186.  
  187. 1 DATA 195,178,195,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
  188. 2 DATA 0,0,0,0,0,0,0,0,0,0,237,75,88,195,221,126,0,237,161,226
  189. 3 DATA 133,195,194,130,195,221,35,195,114,195,250,138,195,62,1,195,140,195,
  190.        62,0
  191. 4 DATA 50,83,195,201,34,84,195,41,237,91,84,195,25,201,221,42,84,195,221,110
  192. 5 DATA 0,221,102,1,201,43,205,144,195,237,91,90,195,25,34,84,195,201,237,115
  193. 6 DATA 108,195,42,96,195,17,2,0,167,237,82,250,124,196,42,96,195,34,94,195
  194. 7 DATA 167,58,95,195,203,31,50,95,195,58,94,195,203,31,50,94,195,42,94,195,35
  195. 8 DATA 34,100,195,42,100,195,237,91,94,195,167,237,82,34,98,195,42,100,195,205
  196. 9 DATA 165,195,205,154,195,34,102,195,42,98,195,17,1,0,167,237,82,250,74
  197. 10 DATA 196,42,98,195,205,165,195,205,154,195,221,42,102,195,205,110,195,58,
  198.         83,195
  199. 11 DATA 254,1,202,74,196,42,98,195,205,165,195,34,92,195,42,98,195,237,91,94
  200. 12 DATA 195,25,205,165,195,235,1,2,0,42,92,195,237,176,42,98,195,237,91,94
  201. 13 DATA 195,167,237,82,34,98,195,195,249,195,42,98,195,237,91,94,195,25,
  202.         205,165
  203. 14 DATA 195,235,1,2,0,33,102,195,237,176,42,100,195,35,34,100,195,43,167,237
  204. 15 DATA 91,96,195,237,82,250,224,195,42,94,195,17,2,0,167,237,82,242,200,195
  205. 16 DATA 237,123,108,195,201
  206. 50 REM *********************************************************************
  207. 51 REM *                                   *
  208. 52 REM * TO RUN THIS PROGRAM, ENSURE THAT BASIC IS LOADED AS FOLLOWS:-     *
  209. 53 REM *                                   *
  210. 54 REM *          `MBASIC /M:49999'                   *
  211. 55 REM *                                   *
  212. 56 REM *********************************************************************
  213. 80 CLEAR,49999!
  214. 90 DEFINT A,N,M,P,Q,W
  215. 91 G=0:N=0:M=0:W=0:P=0:Q=0:Z=0:X=0
  216. 100 FOR N=0 TO 304 : READ W:POKE &HC350+N,W : NEXT N
  217. 105 STAR = &HC35A : AAR= &HC368 : L= &HC358 : NR = &HC360 : START = &HC350
  218. 106 OPTION BASE 1
  219. 107 INPUT "HOW MANY? ",V : IF V > 2000 THEN PRINT "TOO MANY" : GOTO 107
  220. 108 W=7: POKE L,W-256*INT(W/256) : POKE L + 1,INT(W/256)
  221. 110 DIM S0$(V)
  222. 120 FOR N=1 TO V:S0$(N)=SPACE$(W):LSET S0$(N)=STR$(INT(20000*RND)+10000):
  223.     PRINT S0$(N),: NEXT N :PRINT:PRINT
  224. 140 W=VARPTR(S0$(1))+1
  225. 160 POKE STAR,W-256*INT(W/256): POKE STAR+1,INT(W/256)
  226. 166 POKE NR,V-256*INT(V/256): POKE NR+1,INT(V/256)
  227. 170 DEF USR0=START:PRINT"SORTING":W=USR(0):PRINT"SORT FINISHED":PRINT:PRINT
  228. 2000 PRINT :PRINT:FOR N=1 TO V:PRINT S0$(N),:NEXT N
  229. 2010 END
  230.  
  231.  
  232.     NEW MBUG public domain disks
  233.  
  234. -MBUG.020    June 1986 Catcher, associated programs & "Online" index.
  235. -MBUG.021    July 1986 Catcher, associated programs & GOODIES.LBR
  236. -MBUG.022    August 1986 Catcher, associated programs & Pascal Routines
  237. -MBUG.023    September 1986 Catcher, associated programs & TOUR.LBRè                                GRAFALL.MWB
  238.                             By Russell Crosser
  239.  
  240.      Thσá followinτá routinσ i≤ aε extrac⌠ froφ thσ prograφá "GRAPHALL.MWBó ì
  241. whicΦ ╔ havσ downloadeΣ t∩ thσ bulletiε board« Thσ routinσ  wil∞  grapΦ an∙ ì
  242. sequentia∞á datß iε thσ rangσ  -9999╣  t∩ 99999¼á  calculatinτ  thσ ╪á ªá ┘ ì
  243. scale≤ t∩ makσ thσ grapΦ fil∞ mos⌠ oµ thσ screen«á  Thσ grapΦ wil∞ bσ HIRE╙ ì
  244. o≥ LORES¼á  anΣ bar¼ poin⌠ o≥ linσ accordinτ t∩ thσ value≤ iε A(2⌐ anΣ A(3⌐ ì
  245. oεá entry«á Al∞á thσ variable≤ arσ A(⌐ o≥ A0(⌐ o≥ I¼á iε orde≥ t∩á makσá i⌠ ì
  246. easie≥ t∩ inser⌠ iε ß program« ┴ anΣ A░ mus⌠ bσ dimensioned.
  247.  
  248. 04000 REM The following routine will graph real numbers  █▒╣╢▌
  249. 04010 REM   from -99999 to +99999. Put data in variables :   █▒╣╖▌
  250. 04020 REM   a0(  )      Array containing the data  █▒╣╕▌
  251. 04030 REM   a(0)        No of data to be graphed -1  █▒╣╣▌
  252. 04040 REM   a(2)        1 = HIRES   0 = LORES  █▓░░▌
  253. 04050 REM   a(3)        0 = Bar   1 = Dot   2 = line graph  █▓░▒▌
  254. 04060 REM  █▓░▓▌
  255. 04070 A1 = 99999 : A7 = -99999  █▓░╕▌
  256. 04080 FOR I = 0 TO A(0)  █▓░╢▌
  257. 04090 IF A0(I) <A1 : A1 = A0(I) : REM find minimum  █░╢╖▌
  258. 04100 IF A0(I) >A7 : A7 = A0(I) : REM find maximum  █░╖│▌
  259. 04110 NEXT I  █░╖╕▌
  260. 04120 A2 = A7 - A1 : REM Range of values  █▓░░▌
  261. 04130 IF A2 = 0 : CURS 1,8 : PRINT"Data all equal " : PLAY 22; 0, 8 : 
  262.       GOTO 1030  █▒┤╖▌
  263. 04140 IF A(2) = 1 THEN 4160  █▒│▓▌
  264. 04150 CLS : LORES : A3 = 45 : A4 = 110 : GOTO4170  █▒▓┤▌
  265. 04160 CLS : HIRES : A3 = 250 : A4 = 450  █▒░╡▌
  266. 04170 A2 = A2/A3 : REM step factor vertical  █▓░┤▌
  267. 04180 A(4) = INT(A4/FLT(A(0))) : REM step factor horizontal  █▓▓╖▌
  268. 04190 IF A(4)<1 : CURS 1,8 : PRINT"Too many values" : PLAY 22; 0, 8 : 
  269.       GOTO 1030  █▒▓░▌
  270. 04200 A(5) = INT(A4/8)+2 : REM Y axis  █▒▓▒▌
  271. 04210 PLOT A(5),INT(A3) TO A(5),0 : REM TO A(5)+INT(A4)+1,0 : 
  272.       REM print axes  █▒╢╣▌
  273. 04220 IF A1<-9999.9 OR A7>9999.9 THEN 4240  █░▓┤▌
  274. 04230 CURS 1,16 : PRINT [F7.1 A1]; : CURS 1,1 : PRINT [F7.1 A7] :
  275.       GOTO 4250  █▓│▓▌
  276. 04235 REM label axes  █▓░╢▌
  277. 04240 CURS 1,16 : PRINT [F7.0 A1]; : CURS 1,1 : PRINT [F7.0 A7] : 
  278.       GOTO 4250  █▓│▒▌
  279. 04250 A(6) = INT((A0(0)-A1)/A2) : REM 1st value for plot  █▓░▓▌
  280. 04260 ON A(3)+1 GOTO 4270, 4330, 4390  █▒│░▌
  281. 04265 REM                     Bar graph  █▓░╣▌
  282. 04270 FOR I = 0 TO A(0)  █▓░╖▌
  283. 04280 A(8) = I*A(4)+A(5)+1 : REM horizontal coordinate  █▒╡░▌
  284. 04290 A(7) = INT((A0(I)-A1)/A2) : REM vertical coordinate  █▓│▓▌
  285. 04300 PLOT A(8),0 TO A(8),A(7)  █▒┤▓▌
  286. 04310 NEXT I  █░╕░▌
  287. 04320 GOTO 4450  █▓░╖▌
  288. 04325 REM                     Dot graph  █▓░╢▌
  289. 04330 FOR I = 0 TO A(0)  █▓░┤▌
  290. 04340 A(8) = I*A(4)+A(5)+1 : REM horizontal coordinate  █▒┤╖▌
  291. 04350 A(7) = INT((A0(I)-A1)/A2) : REM vertical coordinate  █▓▓╣▌
  292. 04360 SET A(8),A(7)  █▒▓░▌
  293. 04370 NEXT I  █░╕╢▌
  294. 04380 GOTO 4450  █▓▒│▌
  295. 04385 REM                     Line graph  █▓▒▓▌è04390 FOR I = 1 TO A(0)  █▓▒▒▌
  296. 04400 A(8) = I*A(4)+A(5) : REM horizontal coordinate  █░╡▓▌
  297. 04410 A(7) = INT((A0(I)-A1)/A2) : REM vertical coordinate  █▓▓╢▌
  298. 04420 PLOT A(8),A(7) TO A(8)-A(4),A(6)  █░▓╕▌
  299. 04430 A(6) = A(7)  █▒╡│▌
  300. 04440 NEXT I  █░╕┤▌
  301. 04450 IF A1<0 AND A7>0 : PLOTI A(5)+1,INT(-A1/A2) TO INT(A4)+A(5)+1,
  302.       INT(-A1/A2): CURS 1,INT((16*A7)/(A7-A1))+1 : PRINT"   00.0"  █▓┤▓▌
  303. 04455 REM plot and label x axis if it is on screen  █▓▒░▌
  304. 04460 IF KEY <> " " THEN 4460  █░░▒▌
  305.  
  306. T∩ usσ thi≤ routine¼á eithe≥ obtaiε thσ ful∞ dem∩ prograφ froφ thσ bulletiε ì
  307. board¼ o≥ pu⌠ i⌠ iε thi≤ prograφ :
  308.  
  309. 00100 DIM A(8),A0(200)  █▒╕▒▌
  310. 00110 A(0) = INT(RND*170)+20 : A(2) = INT (RND*2) : A(3) = INT (RND*3)  █▒▒▓▌
  311. 00120 A0(0) = INT(RND*180)  █▒╢╡▌
  312. 00130 FOR I = 1 TO A(0)+1 : A0(I) = A0(I-1)+INT(RND*9)-5 : NEXT I  █▒╖╢▌
  313.  
  314. Put above routine here
  315.  
  316. 10000 GOTO 110  █▒╕╕▌
  317.  
  318.  
  319.                                   ROM BUG
  320.  
  321.                SOMETHING INTERESTING!   By   Simon Gerraty.
  322.  
  323.      Thi≤á notσá cover≤ ß potentia∞ buτ iε thσ CIA┬ boo⌠ roφ anΣ ma∙á causσ ì
  324. funn∙ thing≤ t∩ happeε iµ tryinτ t∩ boo⌠ froφ ß noε systeφ disk«á Thσá codσ ì
  325. check≤á addres≤á ░ insteaΣ oµ 80Φ t∩ determinσ iµ therσ i≤ ß systeφ oεá thσ ì
  326. disk« Thi≤ i≤ afte≥ tryinτ t∩ reaΣ thσ boo⌠ secto≥ ofµ disδ t∩ addres≤ 80h!
  327.  
  328.      I⌠á i≤á als∩ interesinτ t∩ notσ tha⌠ thi≤ i≤ thσ onl∙á bytσá differen⌠ ì
  329. betweeε thi≤ boot_roφ imagσ anΣ al∞ other≤ (prio≥ t∩ BN56⌐ appar⌠ froφá thσ ì
  330. obviou≤ change≤ t∩ handσ 8░ Trδ drive≤ insteaΣ oµ 40Trk.
  331.  
  332. Thσá followinτ i≤ par⌠ oµ ß dissassembl∙ oµ thσ offendinτ roφ code«á 
  333. (Note║ thi≤ i≤ NO╘ ß freaδ glitcΦ iε ß singlσ rom.)
  334.  
  335. LEEF0:  XOR     A             ; zero A        
  336.         CALL    0ED62H        ; sel_disk (in A)
  337.         LD      DE,1          ; select sector 1 (location of boot sector)
  338.         LD      HL,80H        ; where to load boot sector
  339.         CALL    Z,0EE31H      ; hst_rd
  340.         JR      NZ,0EF07H     ; call mchinl - check for 'M' being pressed.
  341.         LD      A,(0)         ; load A with contents of address 0
  342.                               ; in all other versions and the logical address
  343.                               ; to check - considering what comes next, is
  344.                               ; 80h ie. should be LD  A,(80)
  345.         CP      0E5H          ; 80h=E5? if yes, then NO system on the disk
  346.         JP      NZ,80H        ; There is a boot sector (80 != E5) so goto 80h
  347.         CALL    0E09BH        ; No boot sector/system call mchinl
  348.         JR      Z,LEEF0       ; start again!
  349.         RES     5,A
  350.         CP      'M'
  351.         JP      Z,0E760H
  352.         JR      LEEF0
  353.         ENDèFrom: DIRK BRUNTON            To:   ALL      Re:   SIMPLY DB
  354.  
  355. Doe≤á anybod∙ ou⌠ there¼á kno≈ thσ lengtΦ oµ thσ Club≤ pape≥ fo≥ Simpl∙ DB┐  ì
  356. ╔ havσ trieΣ tone≤ oµ lengths¼ bu⌠ nonσ oµ theφ work. Dirk
  357.  
  358. From: MATTHEW MOLLICA         To:   ALL      Re:   PRINTING
  359.  
  360. ╔ HAV┼ ┴ MICROBE┼ AN─ ALS╧ ┴ PRINTE╥ (DO╘ MATRI╪ 100⌐ AN─ COUL─ SOMEON┼á B┼ ì
  361. ABL┼á T╧ TEL╠ M┼ HO╫ T╧ GE╘ M┘ PRINTE╥ T╧ PRIN╘ I╬  ITALIC╙ AN─ OTHE╥ TYPE╙ ì
  362. O╞ PRIN╘ ?┐    THANKS,   MATTHEW MOLLICA 
  363.  
  364. From: PETER BROUGHTON         To:   ALL      Re:   56k keyboard 4 sale
  365.  
  366. ╔ havσ ß 56δ RA═ keyboarΣ anΣ ES┼ ambe≥ monito≥ fo≥ sale«á Thσ keyboarΣ ha≤ ì
  367. thσ ne≈ stylσ keyswitche≤ hencσ ß slightl∙ bette≥ fee∞ anΣ reliabilt∙á thaε ì
  368. thσ usua∞ 56δ keyboard«á I⌠ woulΣ bσ idea∞ fo≥ someonσ wh∩ want≤ t∩ upgradσ ì
  369. t∩á ßá disδá systeφ fo≥ slightl∙ les≤ thaε thσ pricσá Microbeσá system≤á i≤ ì
  370. asking«á Price≤á - keyboarΣ $25░ ONO¼á monito≥ $10░ ONO«á Contac⌠á ║á Pete≥ ì
  371. Broughtoε oε 347-811┤ (a/h⌐ o≥ oε RBBS.
  372.  
  373. From: DANIEL BENSON           To:   ALL      Re:   HARDWARE
  374.  
  375. Doe≤ an∙ onσ havσ an∙ oµ hardwarσ fo≥ salσ o≥ wan⌠ t∩ ge⌠ riΣ oµ 72╡ 6007
  376.  
  377. From: KEVIN WOLRATH           To:   ALL      Re:   REMOTE COMPUTER
  378.  
  379. ╔á WOUL─ LIK┼ ┴ REMOT┼ MODE═ PROGRA═ S╧ ╔ COUL─ US┼ M┘ COMPUTE╥ FRO═ SCHOO╠ ì
  380. O╥ AN┘ WER┼ ELS┼ (WIT╚ ┴ PASSWORD⌐  AN─ U╨ O╥ DOW╬ LOA─ FILES. THANKS
  381.  
  382. From: MICHAEL HOOKE           To:   ALL      Re:   mwb graphics
  383.  
  384. CoulΣá anyonσ pleasσ tel∞ mσ ho≈ t∩ prin⌠ eithe≥ HΘ re≤ o≥ Lo≈ Re≤á Graphiπ ì
  385. program≤ writteε iε MicroworlΣ basic. 
  386.  
  387. From: WAYNE SIMES             To:   ALL      Re:   Keyclick
  388.  
  389. Doe≤ anyonσ havσ ß routinσ whicΦ produce≤ ß keyclicδ iε CP/═ eacΦ timσá thσ ì
  390. disδ i≤ booted¼ anΣ iµ s∩ ho≈ i≤ i⌠ installed?
  391.  
  392. From: JOHN MCDONNELL          To:   ALL      Re:   32K BEE
  393.  
  394. FO╥á SAL┼á 32╦á PERSONNE╠ COMMUNICATOR¼á CONVERTE─ T╓ MONITO╥á SOFTWAR┼á O╬ ì
  395. TAPES¼ $35░ TH┼ LOT¼ PHON┼ JOH╬ O╬ 309 596╣ AFTE╥ ╢ PM.
  396.  
  397. From: R. SHEPHERD             To. ALL        Re. VIATEL (DREAMDISK)
  398.  
  399. ╔á havσ versioε 1.3ß oµ VIATE╠ anΣ ß Dreamdisδ system«á Thσ probleφ i≤ tha⌠ ì
  400. wheneve≥ ╔ tr∙ t∩ ruε i⌠ ╔ ge⌠ fou≥ (4⌐ image≤ oε thσ screeε insteaΣ oµ thσ ì
  401. onσá tha⌠ ╔ shoulΣ get«á ╔ havσ trieΣ al∞ thσ patche≤ anΣ fixe≤ ╔ caεá finΣ ì
  402. but to no avail. Can someone help me please. Ph. (A/H) 03 - 401-3072
  403.  
  404. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  405.  
  406. MICROBE┼ CIAB«á (KeyboarΣ ª drive)¼á ╢ month≤ old« Completσ witΦ Simpl∙ DB¼ ì
  407. Simplσ Busines≤ Graphics¼á Arcadσ Game≤ Vol.2¼á Disδ cataloginτ system¼ anΣ ì
  408. full manuals. Asking price only $750.00 or best offer. 
  409. Contact Jason Plozza on (055) 95-0291
  410.  
  411. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$è                             SERVO CONTROLLER
  412.                              ================
  413.                         by Paul Bridges (mem # 781)
  414.  
  415.      D∩ yo⌡ havσ ß remotσ contro∞ (R/C⌐ systeφ jus⌠ lyinτ arounΣ collectinτ ì
  416. dust¼á sincσ yo⌡ investeΣ iε ß computer┐á Thi≤ articlσ wil∞ sho≈ yo⌡ ho≈ t∩ ì
  417. givσá mechanica∞ 'lifeº t∩ you≥ MicroBeσ b∙ usinτ thσ servo≤ froφ you≥á R/├ ì
  418. system«á Usinτ ß transistor¼ fe≈ resistor≤ anΣ powe≥ supply¼ yo⌡ caε obtaiε ì
  419. anothe≥ dimensioε froφ you≥ compute≥ system¼ othe≥ thaε sigh⌠ anΣ sound« 
  420.  
  421.      Mos⌠á servo≤ havσ threσ connectioε pins¼á tw∩ fo≥ suppl∙ anΣ ß contro∞ ì
  422. pin«á Thσ typσ oµ signa∞ useΣ fo≥ controlling¼á i≤ ß pulsσ widtΦá modulateΣ ì
  423. (PWM⌐á type«á Iε usinτ PWM¼á thσ lengtΦ oµ thσ pulsσ applieΣ t∩ thσ contro∞ ì
  424. piεá i≤á directl∙ proportiona∞ t∩ thσ angula≥ positioε oµá thσá servo«á Thσ ì
  425. serv∩ experimenteΣ oε (Futabß FP-S23⌐ haΣ ß ful∞ lef⌠ pulsσ oµ ~▓ mseπá anΣ ì
  426. ßá ful∞á righ⌠á pulsσá oµ ~0.0╡ ms«á Fo≥ effectivσ usσ thσá serv∩á mus⌠á bσ ì
  427. continuousl∙ feΣ thi≤ contro∞ pulse« 
  428.  
  429.      Thσ tw∩ suppl∙ pin≤ arσ thσ one≤ whicΦ arσ closσ together¼ thσ outsidσ ì
  430. onσ i≤ GN─ anΣ insidσ Vdd«á Powerinτ VdΣ froφ aε externa∞ (no⌠ thσ 'Bee⌐ 5÷ ì
  431. suppl∙á woulΣá bσá advisablσ a≤ thσ serv∩ caε dra≈ u≡ t∩á 400m┴á iµá i⌠á i≤ ì
  432. heavil∙ loaded« Usinτ ß NP╬ transisto≥ (548,549)¼ thσ followinτ connection≤ ì
  433. werσá made║á i⌐á 'Beσá GnΣ t∩ externa∞ Gnd╗á ii⌐ Emitte≥ t∩á Gnd╗á iii⌐á 5╓ ì
  434. externa∞ t∩ Collector¼á viß ß 10δ resistor╗á iv⌐ Collecto≥ t∩ fina∞ piεá oµ ì
  435. servo╗á v⌐á ┴á datß bi⌠ (froφ thσ paralle∞ port⌐ t∩ Base¼á viß anothe≥á 10δ ì
  436. resistor«á That'≤ al∞ thσ hardwarσ required¼á al∞ tha⌠ i≤ needeΣ no≈ i≤ thσ ì
  437. drivinτ software«   
  438.  
  439.      Thσá controllinτ softwarσ need≤ t∩ bσ writteε iε EDASM¼á t∩ copσá witΦ ì
  440. thσ shor⌠ outpu⌠ pulse≤ whicΦ arσ s∩ critical«á Thσ softwarσ listinτá belo≈ ì
  441. wil∞á allo≈ yo⌡ t∩ contro∞ thσ positioε oµ thσ serv∩ froφ thσ keyboard¼á i⌠ ì
  442. wil∞ als∩ allo≈ yo⌡ t∩ storσ ß sequencσ oµ position≤ anΣ repla∙á them«á Thσ ì
  443. prograφá i≤á mess∙á (haven'⌠ haΣ timσ t∩ re-writσ it)¼á i⌠ caεá bσá greatl∙ ì
  444. improveΣ and/o≥ simplified«    
  445.  
  446.      There'≤á n∩ reasoε wh∙ yo⌡ can'⌠ contro∞ u≡ t∩ eigh⌠ servo'≤ froφá thσ ì
  447. paralle∞á port¼á it'≤á onl∙ ß matte≥ oµ writinτ ß prograφ whicΦá output≤á ß ì
  448. pulsσ oε onσ datß line¼ theε anothe≥ pulsσ oε thσ nex⌠ linσ anΣ s∩ on« Eveε ì
  449. morσ coulΣ bσ controlleΣ iµ ß decode≥ I├ (eg« 74LS13╕ 3->8⌐ i≤ used« 
  450.  
  451. ;     MicroBee servo controller
  452. ; uses bit7 of parallel port
  453. ; written by Paul Bridges, 27/07/86 (WGS)
  454. ;    for a 32k 'Bee @ 3.375MHz
  455. ; CONTROLS;
  456. ;  RIGHT          '/' FAST      '>' SLOW
  457. ;  LEFT           'M' SLOW      '<' SLOW
  458. ;                 'S' SAVE POSITION IN MEMORY
  459. ;                 'R' REPLAY SAVED POSITIONS
  460. ;                 'E' EXIT
  461.     ORG    4000H
  462. BEG    LD    DE,06000H    ;Saved positions here
  463.     LD    C,0    ;# of saved positions
  464.     LD    HL,CTRL+1     ;location giving pulsewidth
  465.     LD    A,(IX)    ;T   gives stable end position
  466.     LD    (HL),A    ;L    after a REPLAY
  467.     LD    A,0FH    ;T   initize // port, for output
  468.     OUT    (01),A    ;L
  469. POS    LD    A,000    ;T   Applies +5v to servoè    OUT    (00),A    ;L    transistor 'OFF'
  470. CTRL    LD    B,070H    ; length of O/P pulse
  471.     CALL    LOOP1    ; Delay routine
  472.     LD    A,128    ;T   0v to servo
  473.     OUT    (00),A    ;L    transistor 'ON'
  474.     LD    A,11        ;T 
  475. TWENT    CALL    ONEMS        ;|   delay between pulses
  476.     DEC    A        ;|
  477.     JR    NZ,TWENT    ;L
  478.     LD    A,01H        ;T   no delay for auto-
  479.     LD    (103H),A    ;L    repeat
  480. POS1    CALL    08009H    ; keyboard input
  481. ;   keyboard decoding below
  482.     JR    Z,POS
  483.     CP    '.'
  484.     JR    Z,RIGHT
  485.     CP    ','
  486.     JR    Z,LEFT
  487.     CP    '/'
  488.     JR    Z,FRIGHT
  489.     CP    'M'
  490.     JR    Z,FLEFT
  491.     CP    'S'
  492.     JR    Z,SAVE
  493.     CP    'R'
  494.     JR    Z,REPLAY
  495.     CP    'E'
  496.     RET    Z
  497.     JR    POS
  498. ONEMS    LD    B,000H    ;long delay
  499. LOOP1    NOP            ;T
  500.     NOP            ;|
  501.     NOP            ;|   timing routine
  502.     NOP            ;|
  503.     DJNZ    LOOP1        ;|
  504.     RET            ;L
  505. RIGHT    DEC    (HL)    ;T   decrement CTRL byte
  506.     JR    POS    ;L
  507. LEFT    INC    (HL)    ;T   increment CTRL byte
  508.     JR    POS    ;L
  509. FLEFT     LD    A,10H    ;T
  510.     ADD    A,(HL)    ;|   CTRL=CTRL+16
  511.     LD    (HL),A    ;|
  512.     JR    POS    ;L
  513. FRIGHT    LD    A,(HL)    ;T
  514.     LD    B,10H    ;|
  515.     SUB    B    ;|   CTRL=CTRL-16
  516.     LD    (HL),A    ;|
  517.     JR    POS    ;L
  518. SAVE    LD    A,(HL)    ;T   save present position
  519.     LD    (DE),A    ;L
  520.     INC    DE    ; ^ position pointer
  521.     INC    C    ; ^ # of saved positions
  522.     JR    POS1
  523. REPLAY    LD    IX,6000H    ; start of saved data
  524.     LD    L,0    ; O/P count
  525. LPO    LD    H,1FH    ; # of O/Ps for same byte
  526. ; the above gives time for the servo to get to position
  527. ;   for h = 1 to 1F HèLO1    LD    A,0H    ;T
  528.     OUT    (0),A    ;|
  529.     LD    B,(IX)    ;|   pulse generator (as above)
  530.     CALL    LOOP1    ;|
  531.     LD    A,128    ;|
  532.     OUT    (0),A    ;L
  533.     LD    A,11    ;T
  534. TR    CALL    ONEMS    ;|   'OFF' delay
  535.     DEC    A    ;|
  536.     JR    NZ,TR    ;L
  537.     DEC    H
  538.     JR    NZ,LO1
  539. ;   next h (two lines above)
  540.     INC    L    ;T   ^ O/P count. IF O/P count=
  541.     LD    A,C    ;|    # of saved positions THEN
  542.     CP    L    ;|    RUN
  543.     JP    Z,BEG    ;L
  544.     INC    IX    ; next O/P CTRL byte
  545.     JR    LPO    ; goto O/P loop
  546.     END
  547.  
  548.  
  549.                                  oooOOOooo
  550.  
  551. From: BERT MOSTERD       To:   ALL      Re:   FOR SALE
  552.  
  553. WAN╘á T╧ SEL╠ ┴ STUDEN╘ DES╦ HA╙ MA╨ O╞ WORL─ O╬ TO╨ AN─ ┤ STORAG┼á DRAWER╙ ì
  554. MAK┼á A╬á EXCELLEN╘á SPO╘á T╧ PAR╦ YOU╥ COMPUTE╥ HEAP╙á O╞á ROO═á FO╥á YOU╥ ì
  555. PHERIPERALS«   I╙ I╬ A╙ NE╫ CONDITIO╬   PRICE..$55.0░  PHON┼  546-5819.
  556.  
  557. From: MICK ZEBRA         To:   ALL      Re:   CONVERT COLOR TV TO RGB
  558.  
  559. ╔á havσ beeε lookinτ a⌠ ß articlσ iε thσ Augus⌠ issuσ oµ E.A«á  whicΦ give≤ ì
  560. yo⌡ thσ detail≤ oµ convertinτ ß Princes≤ 14iε CT╓ t∩ accep⌠ botΦá compositσ ì
  561. vide∩á anΣ RG┬ inputs«á Owninτ sucΦ ß T╓ thσ questioε tha⌠ ╔ woulΣ likσá t∩ ì
  562. kno≈ is:
  563.      
  564.      1. Will the mod work with my bee
  565.      2. Has anybody considerd or done the mod.
  566.  
  567. Thσá articlσá b∙ J.C«á Hollida∙ stateΣ tha⌠ i⌠ haΣ ß gooΣ performancσ oεá ß ì
  568. applσ anΣ IB═ computers« Iµ i⌠ wa≤ successfu∞ witΦ thσ beσ I⌠ woulΣ bσ ver∙ ì
  569. practablσ t∩ upgradσ t∩ colo≥ (i.e« Premium⌐ a≤ thσ cos⌠ oµ ß colo≥ monito≥ ì
  570. tend≤ t∩ pu⌠ mσ ofµ thσ upgrade(tradσ in⌐ «  AlthougΦ thσ Premiuφ ha≤ beau⌠ ì
  571. hire≤á ect.¼á  ╔ thinδ it'≤ totall∙ wasteΣ oε ß green/ambe≥ monito≥ s∩ I'l∞ ì
  572. sticδ witΦ thσ chooδ unti∞ RG┬ monitor≤ ge⌠ cheape≥ ¼á ╔ wiε tatts¼á o≥ thσ ì
  573. moΣ works«     Fo≥ Now¼       Regard≤ Mick.
  574.  
  575.  
  576.  
  577. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  578.  
  579. MICROBE┼á 32δ IC«á  Completσ witΦ ful∞ documentation¼á Blacδ ª Whitσá (T/V⌐ ì
  580. Monitor¼á anΣ cassette«á Extra≤ includσ ▓ dem∩ tapes¼ plu≤ games¼ publisheΣ ì
  581. programs and WILDCARDS Vol 1.                Only      $455.00
  582.  
  583.             CONTACT    Paul  FERGUFON     A/H  (03) 233 - 4639
  584.  
  585. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$è              Retrievinτ ß BASI├ Prograφ Afte≥ Enterinτ CP/M
  586.                     B∙ Pau∞ Shannon     MBU╟ Membe≥ 837
  587.  
  588.      Iµ yo⌡ havσ ß disδ baseΣ MicroBee¼ anΣ yo⌡ writσ program≤ iε MicroworlΣ ì
  589. BASIC¼á theεá yo⌡á probabl∙ havσ discovereΣ MicroworlΣ BASIC'≤á unforgivinτ ì
  590. naturσ witΦ respec⌠ t∩ disδ changes.
  591.  
  592.      ╔á caε recal∞ severa∞ occasion≤ wheε I'vσ beeε workinτ oεá ßá program¼ ì
  593. anΣ forgo⌠ t∩ typσ DISKRESE╘ wheε changinτ froφ onσ disδ t∩ another«á  Wheε ì
  594. ╔ trieΣ t∩ savσ m∙ prograφ unde≥ BASIC¼ ╔ wa≤ throwε mercilessl∙ int∩ CP/M¼ ì
  595. lef⌠ witΦ nothinτ bu⌠ ß BDO╙ erro≥ a≤ ß griφ reminde≥ oµ m∙ carelessness.
  596.  
  597.      Iε fact¼ wheε thi≤ happens¼ thσ prograφ i≤ stil∞ storeΣ iε memory¼ anΣ ì
  598. caε bσ retrieved¼ eveε thougΦ BASI├ ha≤ beeε exited«  Effectively¼ thi≤ caε ì
  599. bσ donσ iε tw∩ steps:
  600.  
  601.           1.á Movσá thσ prograφ s∩ tha⌠ i⌠ begin≤ a⌠ 010░ hex¼á insteaΣá oµ ì
  602. áááááááááááááá08C░ hex.
  603. áááááááááá2«  Savσ thσ prograφ unde≥ CP/M.
  604.  
  605.      Iµ yo⌡ arσ no⌠ ß MicroBeσ expert¼á however¼ anΣ wisΦ t∩ tr∙ this¼ typσ ì
  606. iεá thσ followinτ tes⌠ prograφ unde≥ MicroworlΣ Disδ BASIC«á  Remembe≥ tha⌠ ì
  607. thσ symbo∞ <cr╛ mean≤ t∩ pres≤ thσ RETUR╬ key.
  608.  
  609.                     10░ FORI=1TO10<cr>       Checδ t∩ seσ tha⌠ i⌠ i≤
  610.                     11░ PRINTI<cr>           typeΣ iε EXACTLYé a≤ shown« 
  611.                     12░ NEXTI<cr>
  612.  
  613.      Now¼á exi⌠á t∩ CP/M«á  D∩ thi≤ b∙ changinτ t∩ ßá differen⌠á disk¼á anΣ ì
  614. withou⌠á firstl∙ typinτ DISKRESET¼á typσ SAV┼ "TEST"<cr>«á  Yo⌡ shoulΣ finΣ ì
  615. yourselµ iε CP/M«  (Alternately¼ yo⌡ coulΣ simpl∙ typσ SYSTEM<cr>.)
  616.  
  617.      Thσá firs⌠á thinτá yo⌡ mus⌠ d∩ t∩ retrievσ you≥ prograφ i≤á t∩á g∩á t∩ ì
  618. monito≥ anΣ calculatσ thσ lengtΦ oµ you≥ program«  (T∩ ente≥ monitor¼ pres≤ ì
  619. RESE╘ anΣ ═ fo≥ fivσ seconds¼ releasσ RESET¼ theε releasσ M).
  620.  
  621. Examinσ memor∙ location≤ 08D▓ he° anΣ 08D3¼ b∙ typinτ 
  622.  
  623.                     E 08D2<cr>.
  624.  
  625.      Iεá thi≤ example¼á yo⌡ shoulΣ finΣ tha⌠ thesσ location≤ contaiε 1┬ he° ì
  626. anΣá 0╣á hex¼á respectively«á  Thesσ location≤ makσ u≡ thσ enΣá oµá prograφ ì
  627. pointer«  T∩ finΣ thσ enΣ oµ thσ program¼ reversσ thesσ bytes¼ anΣ adΣ 1.
  628.  
  629.                     091┬ ½ ▒ ╜ 091┬ hex
  630.  
  631.      S∩ thσ las⌠ bytσ oµ thσ prograφ shoulΣ bσ a⌠ 091┬ hex«á  Thσ enΣ oµá ß ì
  632. BASI├á prograφá i≤ alway≤ indicateΣ b∙ ß pai≥ oµ FF's¼á s∩ yo⌡á caεá doublσ ì
  633. checδ you≥ calculation≤ b∙ examininτ thσ enΣ oµ thσ program«  Typσ 
  634.      
  635.                     E 091B<cr>.         You should see the FF's.
  636.  
  637.      Thσ beginninτ oµ thσ prograφ informatioε i≤ locateΣ a⌠ 08C░ hex«  FinΣ ì
  638. thσ lengtΦ oµ you≥ prograφ b∙ hexadecima∞ subtraction.
  639.  
  640.                     091B           end of file
  641.                   - 08BF           last byte before prog. info.
  642.                     005C hex       file length
  643. è     Movσ thσ prograφ froφ it≤ olΣ locatioε a⌠ 08C░ t∩ 010░ hex«  Type
  644.      
  645.                     M 08C0 0100 005C<cr>.
  646.  
  647.      Now¼ g∩ t∩ thσ system«  Typσ       Z<cr>, or G 0<cr>.
  648.  
  649.      (Note║á  Thσ ne≈ 'Bee≤ d∩ no⌠ recognisσ thi≤ command«á  Iµ yo⌡ owε onσ ì
  650. oµ these¼ consul⌠ you≥ manual.⌐ 
  651.      
  652.      Thσ nex⌠ ste≡ i≤ t∩ savσ thσ prograφ unde≥ CP/M«  T∩ d∩ this¼ yo⌡ mus⌠ ì
  653. expres≤á you≥á program'≤ lengtΦ a≤ ß wholσ decima∞ numbe≥á oµá "pages"«á  ┴ ì
  654. quicδ wa∙ t∩ d∩ thi≤ i≤ t∩ takσ thσ firs⌠ tw∩ digit≤ oµ you≥ prograφ lengtΦ ì
  655. (mos⌠ significan⌠ byte)¼á conver⌠ theφ t∩ decimal¼á anΣ adΣ one«á  (Iµ you≥ ì
  656. answe≥ i≤ greate≥ thaε 12░ decimal¼ yo⌡ havσ madσ ß mistake.)
  657.  
  658.                     The first two digits of 005C hex are "00"
  659.                     00 hex = 0 decimal
  660.                     0 + 1 = 1.
  661.  
  662.      Type           SAVE 1 TEST.MWB<cr>.
  663.  
  664. (Thσ ▒ afte≥ thσ worΣ "SAVE"¼ i≤ thσ lengtΦ oµ thi≤ shor⌠ tes⌠ program.)
  665.  
  666.      Doneíá  You≥ valuablσ prograφ i≤ no≈ safel∙ oε disk«  Iε fact¼ yo⌡ ma∙ ì
  667. havσ saveΣ morσ thaε required«  Whilσ thi≤ doe≤ absolutel∙ n∩ harm¼ yo⌡ ma∙ ì
  668. wisΦ t∩ triφ ofµ thosσ exces≤ bytes«  Thi≤ caε bσ donσ a≤ follows:
  669.  
  670.      LoaΣá BASI├ iε thσ usua∞ fashion¼á theε loaΣ you≥ tes⌠á program«á  No≈ ì
  671. savσá i⌠á agaiε unde≥ thσ samσ namσ (SAV┼ "TEST"<cr>)«á  Remembe≥á t∩á typσ ì
  672. DISKRESE╘ iµ yo⌡ havσ changeΣ disks!í  
  673.  
  674.      
  675. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  676.  
  677. 56k Dreamdisk system. 2x5 1/4" 80 track drives. Green screen Monitor. $950.
  678. Contact Mick (the bazaar person)  on 354-6742     or at the BAZAAR.
  679.  
  680. EDASM CHIP & MANUAL (original) $12.00.  PASCAL for your Microbee $5.00.
  681. Machine language programming book $5.00.     Wildcards Vol. 2.  $3.00
  682. Microbee Hackers Handbook $3.00    E. Van BOMMEL.      762-7046
  683.  
  684. PC85 with software & Books. $300.00  O.N.O.  A/H Ph. (03) - 707-3226
  685.  
  686. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  687.  
  688.  
  689.                               NEW BBS SYSTEM
  690.  
  691. HΘ All¼á Jus⌠ ß quicδ notσ t∩ le⌠ yo⌡ kno≈ tha⌠ therσ arσ ▓ ne≈ BB╙ system≤ ì
  692. online¼á witΦá somσ microbeσ softwarσ available«á Thσ Board≤ arσ calleΣ thσ ì
  693. PC-OASI╙á (Systeφ #▒ ª #2)¼á anΣ arσ availablσ 2┤á Hour≤á Daily« ì
  694.  
  695. The numbers are:
  696.  
  697. PC-OASIS I  - 848-3331 (Sysop: Alan Williamson) 300bd FULL DUPLEX ONLY
  698. PC-OASIS II - 898-3922 (SYSOP: Craig Wilson)    300bd FULL DUPLEX ONLY
  699.  
  700. ╔ looδ forwarΣ t∩ havinτ yo⌡ loτ oε soon« Regards¼ Alaε Williamsoε 
  701. èé                              LOADHE╪ .MW┬ 
  702. ┴á usefu∞á prograφ fo≥ thosσ peoplσ wh∩ usσ thσ 808░á assemble≥á (ASM.COM). ì
  703. Prograφ convert≤ ß .HE╪ filσ t∩ ß BASI├ prograφ tha⌠ use≤ peek≤ anΣ pokes.
  704.  
  705. 100 DIM D(2,50): Y = 1 : GOTO 190  █▓░╣▌
  706. 110 REM ****** Hexadecimal conversion routine > A = A1$ hex  █▒┤╢▌
  707. 120 A = 0  █░╢╡▌
  708. 130 FOR J = 1 TO LEN(A1$)  █▒╡╢▌
  709. 140 A = A * 16  █▓▓╣▌
  710. 150 T = INT(VAL(A1$(;J,J))):IF T > 0 OR A1$(;J,J) = "0" THEN GOTO 170 █░╡╢▌
  711. 160 T = ASC(A1$(;J,J))-55  █▓░▒▌
  712. 170 A = A + T : NEXT J  █▒╡│▌
  713. 180 RETURN  █▒▓▒▌
  714. 190 CLS:PRINT "HEXADECIMAL LOADER:  By Lang Stuiver.  14th May 1985"\  █▒╣╖▌
  715. 200 PRINT"Program to convert a .HEX file (using ASM.COM)"  █▒▓░▌
  716. 210 PRINT "to a BASIC program using pokes."\  █░╕┤▌
  717. 220 INPUT "Base line number  : ";N1$:N = INT(VAL(N1$)):IF N = 0 THEN LET 
  718.     N = 100:PRINT "                     ";CHR$(15);"100"  █░│╕▌ 
  719. 230 N1 = FLT(N): INPUT "Increments        : ";I1$:IF VAL(I1$) = 0 THEN LET
  720.     I1 = 10:PRINT"                     "CHR$(15);"10" ELSE LET
  721.      I1 = VAL(I1$)  █▒╡╢▌ 
  722. 240 INPUT "Name of .HEX file : ";F1$  █░╣╣▌
  723. 250 IF SEARCH(F1$,".")<>0 THEN PRINT "Name only - no extension please.":
  724.     GOTO 240  █▓│╡▌
  725. 260 CLOSE 6,7  █▒╢╖▌
  726. 270 ON ERROR GOTO 550  █▒┤╖▌
  727. 280 OPEN "I",6,F1$+".HEX"  █░░┤▌
  728. 290 ON ERROR GOTO 0  █░┤│▌
  729. 300 OPEN "O",7,F1$+".HXB"  █░░▒▌
  730. 310 IN#6 ON  █░││▌
  731. 320 OUT#7 OFF: OUT#0 OFF: INPUT B0$: OUT#0 ON: OUT#7 ON  █▓░╡▌
  732. 330 IF B0$(;1,1)<>":" THEN PRINT "ERROR: WRONG FILE TYPE":END  █▒┤╡▌
  733. 340 A1$ = B0$(;2,3): GOSUB 120: L = A: A1$ = B0$(;4,7):GOSUB 120:P = A █▒│╖▌
  734. 350 D(1,Y)=P: D(2,Y) = L: Y = Y + 1  █░░┤▌
  735. 360 IF Y > 2 AND D(1,Y-2)+D(2,Y-2) <> D(1,Y-1) THEN LET N = N+INT(I1) █░╡│▌
  736. 370 IF L = 0 THEN IN#0: CLOSE 6: GOTO 440  █▓│╢▌
  737. 380 N = N + INT(I1): PRINT\STR$(N);" DATA ";  █░░╕▌
  738. 390 OUT#7 ON: FOR I = 1 TO L  █░╕▓▌
  739. 400 A1$ = B0$(;8+(I*2),9+(I*2)): GOSUB 120  █▒╕▒▌
  740. 410 A1$ = STR$(A): PRINT A1$(;2);: IF I <> L THEN PRINT ",";  █▒╖▓▌
  741. 420 NEXT I  █░│░▌
  742. 430 GOTO 320  █▒░▒▌
  743. 440 Y = Y - 2: N = INT(N1)  █▒░▓▌
  744. 450 PRINT  █░│╕▌
  745. 460 FOR I = 1 TO Y  █░╡▓▌
  746. 470 IF I = 1 THEN GOSUB [D(1,1)] 530  █░░│▌
  747. 480 IF I > 1 AND D(1,I-1)+D(2,I-1) <> D(1,I) THEN PRINT 
  748.     STR(D(1,I-1)+D(2,I-1)-K-1);: GOSUB 540: N = I * INT(I1)+INT(N1):
  749.     GOSUB [D(1,I)] 530  █▒╖░▌
  750. 490 NEXT I  █░│╖▌
  751. 500 PRINT STR$ (D(1,I)+D(2,I)-K-1);: GOSUB 540  █▒╡░▌
  752. 510 CLOSE 6,7:IN#0: OUT#0: PRINT\"Finished.": OPEN"I",6,F1$+".HXB":
  753.     PRINT"Type NEW and then IN#6 ON to get the data"\"
  754.     When it has finished type IN#6 OFF": END  █▒╣╖▌
  755. 520 END  █▒▒░▌
  756. 530 VAR(K): PRINT STR$(N);" P = ";K;": FOR I = 0 TO";: RETURN  █▒▓╕▌
  757. 540 PRINT": READ A: POKE P+I,A: NEXT I": RETURN  █▒▒╣▌
  758. 550 PRINT\"Error - file "F1$".HEX does not exist"\:
  759.       IN#0: OUT#0: GOTO 240  █░╖▒▌ è                  CIRCUT.MW┬ AN─ CIRCUT.ED╘ DOCUMENTATION
  760.                                     By
  761.                          Michae∞ WhitfielΣ  (986)
  762.  
  763.      Circu⌠á i≤ ß prograφ tha⌠ i≤ useΣ t∩ dra≈ circuit≤ oε thσ screeεá and¼ ì
  764. fo≥á thσ EDAS═ version¼á prin⌠ theφ ou⌠ iµ yo⌡ havσ ß Centronic≤ 73╣ serie≤ ì
  765. printer«á Neithe≥ prograφ i≤ finished¼á bu⌠ a≤ neithe≥ i≤ eve≥ likel∙ t∩ bσ ì
  766. finisheΣ b∙ me¼ ╔ decideΣ t∩ givσ someonσ elsσ thσ chance.
  767.  
  768.      BotΦ program≤ arσ designeΣ fo≥ tapσ baseΣ machines«  Thσ savσ command≤ ì
  769. implementeΣ botΦ refe≥ t∩ tapσ saves¼á bu⌠ i⌠ shouldn'⌠ bσ to∩ biτ ß joΓ t∩ ì
  770. changσ theφ t∩ disδ saves«  Thσ EDAS═ versioε als∩ use≤ call≤ t∩ basic¼ bu⌠ ì
  771. onl∙ fo≥ termina∞ I/O¼á fo≥ whicΦ therσ arσ simila≥ routine≤ iεá CP/M¼á anΣ ì
  772. fo≥ tapσ saves¼ whicΦ wil∞ bσ discardeΣ entirel∙ fo≥ ß CP/═ version.
  773.  
  774.      Thσá par⌠ oµ thσ prograφ tha⌠ i≤ missinτ (probabl∙ thσ mos⌠á importan⌠ ì
  775. part)¼á i≤ thσ instructions«  Thσ res⌠ oµ thσ worδ needeΣ i≤ jus⌠ improvinτ ì
  776. what'≤ therσ anΣ addinτ thing≤ tha⌠ ╔ hadn'⌠ though⌠ of«á  I'l∞ tr∙ t∩ givσ ì
  777. ß brieµ descriptioε oµ ho≈ t∩ worδ thσ program¼ bu⌠ ß bi⌠ oµ playinτ arounΣ ì
  778. witΦ thσ prograφ wil∞ mos⌠ likel∙ bσ bette≥ thaε anythinτ ╔ caε say.
  779.  
  780.      Thσá prograφ work≤ b∙ movinτ thσ curso≥ arounΣ thσ screeε t∩ placσ PC╟ ì
  781. character≤ iε ß patterε tha⌠ look≤ likσ ß circuit«  Jus⌠ abou⌠ ever∙ ke∙ i≤ ì
  782. defineΣ a≤ ß PC╟ character«  Uppe≥ anΣ lowe≥ casσ character≤ havσ differen⌠ ì
  783. definitions«á  Onσ thirΣ oµ thσ ke∙ definition≤ arσ showε a⌠ thσ bottoφá oµ ì
  784. thσá screeεá a⌠ an∙ onσ timσ (thσ seconΣ bottoφ ro≈ show≤ thσ key'≤á norma∞ ì
  785. character¼ thσ bottoφ ro≈ show≤ thσ PC╟ characte≥ defineΣ fo≥ thσ ke∙ abovσ ì
  786. it)«  Thσ definition≤ displayeΣ caε bσ cycleΣ b∙ pushinτ <LF>.
  787.  
  788.      B∙ pressinτ thσ correspondinτ key¼ thσ curso≥ ma∙ bσ changeΣ t∩ an∙ oµ ì
  789. thσ symbol≤ available«á  B∙ pressinτ <RET╛ thσ symbo∞ tha⌠ i≤ currentl∙ thσ ì
  790. curso≥ i≤ storeΣ iε thσ positioε thσ curso≥ i≤ over«á  Thσ curso≥ characte≥ ì
  791. wil∞ temporaril∙ occup∙ thσ positioε thσ curso≥ i≤ over¼á eveε iµ tha⌠ spo⌠ ì
  792. i≤ defineΣ a≤ somethinτ else« Thσ olΣ symbo∞ wil∞ returε wheε thσ curso≥ i≤ ì
  793. moveΣ away.
  794.  
  795.      Pushinτá <BKSP╛á toggle≤ betweeε tex⌠ anΣ PC╟ entry«á Thσá samσá rule≤ ì
  796. appl∙ t∩ botΦ tex⌠ anΣ PC╟ entry.
  797.  
  798.      Curso≥ movemen⌠ i≤ iε ß diamonΣ pattern¼á usinτ thσ ";"¼á "."¼ "/ó anΣ ì
  799. <SPACE╛á keys«á ╔á pickeΣ thi≤ rathe≥ strangσ combinatioε s∩ thσ ESD╪á key≤ ì
  800. coulΣá bσ useΣ iε tex⌠ entry¼á anΣ alway≤ usinτ contro∞ character≤ t∩á movσ ì
  801. arounΣá get≤ ß bi⌠ tediou≤ (yo⌡ migh⌠ havσ ßá differen⌠á opinion)«á Pushinτ ì
  802. <ESC╛á return≤ yo⌡ t∩ thσ maiε (anΣ only⌐ menu«á Thesσ command≤ sounΣá ver∙ ì
  803. comple° anΣ strange¼ bu⌠ afte≥ ß bi⌠ oµ ß pla∙ witΦ thσ actua∞ prograφ the∙ ì
  804. wil∞ sor⌠ themselve≤ out.
  805.  
  806.     ┴ screeε dum≡ routinσ fo≥ ß morσ standarΣ printe≥ woulΣ bσ ß grea⌠ imp-ì
  807. rovemen⌠ t∩ thi≤ program« Thσ wholσ screendum≡ routinσ iε thσ EDAS═ versioε ì
  808. woulΣá havσá t∩ bσ re-writteε a≤ accessinτ thσ graphic≤ capabilit∙á oµá thσ ì
  809. Centronic≤ 73╣ serie≤ i≤ abou⌠ a≤ non-standarΣ a≤ yo⌡ caε get« I⌠ print≤ iε ì
  810. ╢á do⌠ columns¼á thu≤ allowinτ al∞ norma∞ printe≥ contro∞ code≤ t∩ bσ sent¼ ì
  811. bu⌠ i⌠ i≤ ß rea∞ nightmarσ wheε i⌠ come≤ t∩ sendinτ i⌠ datß tha⌠ i≤á logic-ì
  812. all∙ groupeΣ iε eights.
  813.  
  814.      Thi≤ prograφ woulΣ requirσ ß smal∞ amoun⌠ oµ worδ t∩ ge⌠ i⌠ goinτ oε ß ì
  815. disδ system¼ bu⌠ woulΣ neeΣ almos⌠ ß completσ re-writσ t∩ ge⌠ i⌠ friendlie≥ ì
  816. anΣá easie≥á t∩á use«á  Onσá probleφ witΦ ß disδá baseΣá versioεá woulΣá bσ ì
  817. accessinτá thσ BASI├ 6┤ b∙ 1╢ screen«á  Thσ wholσ prograφ assume≤á ßá 64x1╢ ìèscreen«á  M∙á (untried⌐á suggestioε i≤ t∩ ruε i⌠ froφ basiπ usinτ thσá RUN═ ì
  818. command.
  819.  
  820.      Iµá yo⌡ arσ happ∙ usinτ thσ rougΦ anΣ read∙ versioε a≤á supplied¼á yo⌡ ì
  821. coulΣá definσ you≥ owε characte≥ se⌠ fo≥ whateve≥ purposσ yo⌡ wan⌠á withou⌠ ì
  822. to∩ mucΦ troublσ (bu⌠ certainl∙ morσ troublσ thaε yo⌡ initiall∙ think).
  823.  
  824.      Thσá BASI├á versioε oµ circu⌠ (thσ si° lette≥ namσ froφ m∙ tapσá baseΣ ì
  825. day≤á seem≤á t∩ havσ stuck⌐ i≤ reall∙ onl∙ t∩ givσ yo⌡ aε ideß oµá ho≈á thσ ì
  826. prograφ operates«á  ┴ "nicσ messageó i≤ displayeΣ whilσ thσ PCG'≤ arσ init-ì
  827. ialized¼ whicΦ seem≤ t∩ takσ forever« Oε thσ EDAS═ versioε thi≤ timσ i≤ to∩ ì
  828. shor⌠ t∩ realizσ i⌠ occurred«á  Basically¼á (sorr∙ abou⌠ thσ pun⌐ thσ BASI├ ì
  829. versioε i≤ slo≈ iε ever∙ respect«  Please¼ don'⌠ bσ pu⌠ ofµ b∙ thi≤ oε you≥ ì
  830. initia∞á tr∙ oµ thσ program«á  Iε thσ machinσ codσ versioε everythinτ seem≤ ì
  831. instantaneous.
  832.  
  833.      Also¼á iµá yo⌡ havσ an∙ concep⌠ oµ structureΣ programming¼á preparσ t∩ ì
  834. shocked«á Iµ ╔ remembe≥ rightly¼á therσ arσ ver∙ fe≈ CALL's¼á the∙ arσá al∞ ì
  835. jumps«  Thi≤ wa≤ writteε beforσ m∙ structureΣ day≤ arrived.
  836.  
  837.      I'vσá probabl∙ pu⌠ al∞ thσ buddinτ  programmer≤ ofµ b∙ m∙ hones⌠á des-ì
  838. criptioε oµ thi≤ program¼ bu⌠ them'≤ thσ breaks« Iµ yo⌡ havσ an∙ questions¼ ì
  839. constructivσá criticism≤ o≥ deatΦ threats¼á pleasσ fee∞ freσ t∩ dro≡á mσá ß ì
  840. linσ oε thi≤ boarΣ (MBUG)«á ╔ ver∙ mucΦ doub⌠ tha⌠ thi≤ wil∞ bσ transporteΣ ì
  841. t∩ an∙ othe≥ board«á ╔ wil∞ hel≡ yo⌡ a≤ mucΦ a≤ ╔ caε (bu⌠ givσ mσ ß bi⌠ oµ ì
  842. timσá t∩á answe≥ specifiπ question≤ a≤ it'≤ jus⌠ oε ß yea≥ sincσ ╔á stoppeΣ ì
  843. worδá oεá thi≤ prograφ (bacδ iε m∙ tapσ baseΣ days)«á ╔ go⌠ sicδ oµ thσá 2░ ì
  844. minute≤ t∩ savσ thσ program¼á thσ 2░ minute≤ t∩ verif∙ thσ cop∙ anΣ thσá 4░ ì
  845. minute≤ t∩ d∩ thσ wholσ thinτ ove≥ agaiε wheε onσ oµ thosσ lovel∙ baΣ load≤ ì
  846. occurred.
  847.  
  848. PS«á ┴ notσ t∩ RO═ baseΣ EDAS═ users«á  Eveε thougΦ m∙ EDAS═ manua∞ haΣá n∩ ì
  849. mentioε oµ ß 120░ bauΣ save¼ therσ i≤ onσ implemented«  ╔ thinδ thσ commanΣ ì
  850. i≤ SF"name"«  Thσ newe≥ manual≤ wil∞ probabl∙ havσ pickeΣ u≡ thi≤ omission«  ì
  851. Also¼á thσ EDAS═ versioε oµ circu⌠ require≤ a⌠ leas⌠ 32╦ t∩ work«á Onσ morσ ì
  852. thing¼á thσá OR╟ addres≤ als∩ ha≤ t∩ bσ lef⌠ a≤ i⌠ is¼á anΣ thσ sourcσ codσ ì
  853. loadeΣá a⌠á 2000╚á iµá thσ prograφ i≤ t∩ fi⌠ int∩á 32╦á oµá memor∙á withou⌠ ì
  854. touchinτ an∙ area≤ vita∞ t∩ thσ system.
  855.  
  856. Thσ .MW┬ anΣ .ED╘ file≤ fo≥ thi≤ documen⌠ arσ oε MBUG-DS╦ disδá .024«á The∙ ì
  857. arσ als∩ bσ oε thσ B┬ (iµ the∙ didn'⌠ diσ iε thσ crash).Ö ED.
  858.  
  859.  
  860. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  861.  
  862. Tandy mark VII dot matrix printer. Serial and Parallel. Best offer accepted
  863.  
  864. Contact:  A.E. ALLISON.  (051) 27 2398  (Newborough. Vic)
  865.  
  866.  
  867. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  868.  
  869. Microbeσá Serie≤á ▓á  Communicato≥ 32k«á  Ha≤á Wordbee¼á Telcoφá 1.2¼á Datß ì
  870. Recorder¼á Manual≤á anΣ othe≥ software«á  Onl∙ $350.00«á 
  871.  
  872. Pleasσ rinτ Rober⌠ Jacobsoε afte≥ 7.0░ P.M«      (03⌐ 79╡ 3973.
  873.  
  874. $$ FOR SALE $$ FOR SALE $$ FOR SALE $$
  875. è                               LAS╘ MEETING
  876.  
  877.      Thσ meetinτ las⌠ montΦ wa≤ fairl∙ wel∞ attended« Thσ presiden⌠ starteΣ ì
  878. oµ thσ meetinτ b∙ expressinτ hi≤ thank≤ t∩ thσ olΣ committeσ fo≥ al∞á thei≥ ì
  879. hel≡ iε thσ las⌠ twelvσ months«á Therσ wa≤ no⌠ ß grea⌠ dea∞ t∩ repor⌠ abou⌠ ì
  880. iεá thσá club≤á activitie≤ iε thσ pas⌠ month¼á mentioε wa≤ madσá abou⌠á thσ ì
  881. Hacker≤á nigh⌠ anΣ ho≈ thi≤ nigh⌠ ha≤ beeε growinτ iεá popularity«á A⌠á thσ ì
  882. las⌠á hacker≤á nigh⌠ therσ wa≤ 4▒ computer≤ anΣ thσ peoplσ outnumbereΣá thσ ì
  883. computers.
  884.  
  885.      Thσ Presiden⌠ wen⌠ oε t∩ commen⌠ abou⌠ usσ oµ thσ Bulletiεá Board«á I⌠ ì
  886. seem≤á therσá arσ somσ peoplσ arounΣ tha⌠ havσ loggeΣ ont∩ thσá systeφá anΣ ì
  887. downloadeΣá aε exces≤ oµ file≤ t∩ thσ numbe≥ the∙ havσá uploaded¼á and¼á iε ì
  888. doinτ so¼á havσ tieΣ u≡ thσ systeφ fo≥ hours«  Thσ ideß i≤ no⌠ t∩ loτ oε t∩ ì
  889. thσ systeφ anΣ downloaΣ a≤ mucΦ a≤ yo⌡ can¼á bu⌠ bσ fai≥ thσ othe≥ user≤ oµ ì
  890. thσ system« Iµ yo⌡ d∩ wan⌠ t∩ obtaiε ß cop∙ oµ al∞ thσ file≤ iε ß director∙ ì
  891. area¼ leavσ ß messagσ witΦ thσ syso≡ tellinτ hiφ wha⌠ yo⌡ want¼ anΣ arrangσ ì
  892. t∩ picδ i⌠ u≡ a⌠ hacker≤ nigh⌠ o≥ havσ i⌠ posteΣ t∩ you« Pleasσ bσ fai≥ anΣ ì
  893. don'⌠ tiσ u≡ thσ system!!
  894.  
  895. Demo≤ :- 
  896. Thi≤ montΦ therσ werσ │ demos« 1)CEBUG.CO═  2)CHALKBOAR─  3)SIMPL┘ WRITE« 
  897.  
  898. CEBU╟ i≤ ß cpφ utilit∙ it«á I⌠ i≤ likσ DDT.CO═ excep⌠ tha⌠ cebuτ displa∙ i≤ ì
  899. al∞á iε Z8░ mnemonic≤ unlikσ DD╘ whicΦ display≤ onl∙ 808░á mnemonics«á Thi≤ ì
  900. prograφá wa≤á availablσ oε thσ nigh⌠ witΦ thσ documentatioε fo≥á al∞á thosσ ì
  901. interested« 
  902.  
  903. 2)CHALKBOAR─á i≤á aε extrß devicσ tha⌠ caε bσ pluggeΣ int∩ thσ ne≈á premiuφ ì
  904. serie≤á Microbee¼á witΦ thσ correc⌠ softwarσ i⌠ give≤ yo⌡ jus⌠ a≤ thσá namσ ì
  905. saiΣ aε electroniπ chalkboard« 
  906.  
  907. 3)SIMPL┘á WRIT┼á i≤ thσ worΣ processe≥ fo≥ thσ premiuφ serie≤ i⌠á let≤á yo⌡ ì
  908. writσá witΦá severa∞ differen⌠ font≤ a⌠ thσ onσ time«á ┴á ver∙á interestinτ ì
  909. prograφ providinτ yo⌡ havσ thσ neeΣ t∩ writσ iε differen⌠ fonts« Thσ Bazaa≥ ì
  910. diΣá somσ gooΣ tradinτ a≤ therσ werσ │ 1/2ó NASHU┴ disk≤ fo≥ thσá excellen⌠ ì
  911. chea≡ pricσ oµ $40.0░ ß box« 
  912.  
  913. Til∞ nex⌠ meeting«                 Regard≤   Malcolφ Osborne.
  914.  
  915.  
  916.  VIATEL CONTACT WANTED     VIATEL CONTACT WANTED    VIATEL CONTACT WANTED
  917.      
  918. M∙ namσ i≤ Michae∞ Quinε anΣ ╔ livσ iε Brokeε Hil∞ (N.S.W.)«á ╔ woulΣá likσ ì
  919. t∩ communicate¼á oε thσ VIATE╠ network¼á witΦ an∙ membe≥ oµ MBU╟ AUST« INC« ì
  920. o≥ an∙ Microbeσ use≥ readinτ thi≤ magazine«á ╔ aφ sicδ oµ talkinτ t∩ peoplσ ì
  921. witΦ Commodore≤ anΣ Apples« M∙ Viate∞ mai∞ bo° numbe≥ i≤ ╕ ░ ╕ ╕ ╕ ┤ ┤ ▓ 0« ì
  922. ╔ aφ thσ edito≥ oµ thσ Microbeσ newslette≥ calleΣ thσ "Barrie≥ Buzz"« 
  923.  
  924.  
  925.  VIATEL help WANTED     VIATEL help WANTED    VIATEL help WANTED
  926.  
  927. VIATE╠ anΣ ß 56δ Dreamdisk« Arσ the∙ compatable┐ ╔ havσ VIATE╠ versioε 1.3ß ì
  928. anΣá ╔ havσ trieΣ al∞ thσ mod≤ bu⌠ ╔ canno⌠ ge⌠ i⌠ t∩ work«á Thσ bes⌠ ╔ caε ì
  929. ge⌠ i≤ ß men⌡ iε eacΦ corne≥ oµ m∙ screen«á               
  930.  
  931. Also¼ caε anyonσ givσ mσ datail≤ oε ho≈ t∩ changσ froφ 56δ t∩ 64δ Dreamdisδ ì
  932. witΦ thσ olΣ stylσ 6116's«  Contact R. Shephard on 401-3072. (Epping Vic.)
  933. è                    SEND WORDBEE FILES TO RBBS SYSTEMS
  934.  
  935. ;    WORDBEE .DOC FILE
  936.  
  937. ;    enable LFs to be embeded in WB files for sending
  938. ;    WB.DOC files to RCPMs.
  939. ;    v1.0 created 1984 (c) Simon GERRATY
  940. ;
  941.     ORG    0400H
  942.  
  943. START    LD    HL,0900H    ;start of WB file
  944. CONT    LD    A,(HL)        ;look at a byte
  945.     CP    0FFH        ;FF = end of file
  946.      JP    Z,0C003H    ;if end return to MON
  947.  
  948. ;     insert line feed 
  949.  
  950.     CP    05CH             ;test for '\'
  951.     JR    NZ,SKIPP    ;if not then continue
  952.     LD    (HL),0AH    ;replace \ with LF
  953. SKIPP    INC    HL
  954.     JR    CONT
  955.  
  956.     END
  957.  
  958.  
  959.                          SQUAR┼ ┴ NEGATIV┼ NUMBER
  960.                        B∙ R.H« TOD─ anΣ E.D« LAWLER
  961.         Re-printeΣ froφ Amateu≥ Compute≥ Grou≡ oµ Ne≈ Jerse∙ NEWS.
  962.  
  963. I⌠á i≤ no⌠ generall∙ knowε tha⌠ i⌠ i≤ possiblσ t∩ takσ thσ squarσ roo⌠ oµ ß ì
  964. negativσá number«á Mos⌠á peoplσ learε iε schoo∞ tha⌠ thσ squarσ roo⌠á oµá ß ì
  965. negativσá numbe≥ yield≤ aε imaginar∙  result«á Norma∞á compute≥á algorithm≤ ì
  966. usuall∙á givσ aε erro≥ messagσ wheε ß norma∞ programme≥ attempt≤ ß negativσ ì
  967. squarσ root.
  968.  
  969. Thσ squarσ roo⌠ oµ ß negativσ numbe≥ i≤ generall∙ agreeΣ t∩ bσ thσ samσá a≤ ì
  970. thσá projectioε oε thσ x-∙ planσ oµ ß randoφ quaternioε vecto≥ oµ magnitudσ ì
  971. equa∞á t∩á thσ inne≥ produc⌠ oµ thσ quaternioε component≤ oµá thσá negativσ ì
  972. numbe≥ iε question.
  973.  
  974. Mathematicall∙ thi≤ caε bσ expresseΣ iε thσ quaternioε as:
  975.  
  976.                            ß ¬ Θ ½ Γ ¬ Ω ½ π ¬ k
  977.  
  978. wherσ i¼á j¼ anΣ δ arσ thσ basiπ vector≤ oµ ß uni⌠ quaternioε anΣ a¼ b¼ anΣ ì
  979. π arσ randoφ number≤ sucΦ that:
  980.  
  981.                     ß *¬ ▓ ½ Γ *¬ ▓ ½ π *¬ ▓ ╜ ⁿ ° ▓ |.
  982.  
  983. Thi≤ caε bσ writteε iε Microsof⌠ Basiπ a≤ follows:
  984.  
  985. 0100░ ┘ ╜ SQ╥ ¿ AB╙ ¿ ╪ ⌐ ⌐ ¬ SI╬ ¿ 6.2╕ ¬ RN─ )
  986.  
  987. Thσ author≤ leavσ thσ writinτ oµ thi≤ expressioε iε ├ o≥ Turb∩ Pasca∞ a≤ aε ì
  988. exercisσ fo≥ thσ reader.
  989. 
  990. quaternion║á ┴ quantit∙ analogou≤ t∩ ß vector¼á havinτ fou≥ components¼ anΣ ì
  991. obeyinτ certaiε rule≤ oµ combination¼ (pl⌐ thσ calculu≤ oµ sucΦ quantities.è                             PREMIUM UPGRADES
  992.             Extracted from the new Microbee Systems Catalogue.
  993.  
  994. Here'≤á somσá reall∙ gooΣ new≤ fo≥ thosσ witΦ thσ earlie≥á 8-bi⌠á "Classicó ì
  995. Microbees¼á wh∩á havσá beeεá lookinτ wistfull∙ a⌠ thσá ne≈á Premiuφá Serie≤ ì
  996. models«á  We'vσá no≈ madσ i⌠ eveε easie≥ fo≥ yo⌡ t∩ upgrade¼á especiall∙ iµ ì
  997. yo⌡ arσ aε enthusiast¼á ß techniciaε o≥ ß membe≥ oµ ß use≥ grou≡ whicΦá caε ì
  998. hel≡ witΦ technica∞ advice« 
  999.  
  1000. EacΦ oµ thσ maiε module≤ makinτ u≡ you≥ existinτ mode∞ caε no≈ bσ exchangeΣ ì
  1001. fo≥ thσ correspondinτ Premiuφ module¼ fo≥ littlσ morσ thaε thσ manufactureΣ ì
  1002. cos⌠á - yo⌡ can'⌠ ge⌠ ß bette≥ dea∞ thaε that«á Fo≥ examplσ yo⌡ caε replacσ ì
  1003. you≥ olΣ motherboarΣ witΦ ß ne≈ Premiuφ motherboarΣ fo≥ onl∙ $250«á Iµá yo⌡ ì
  1004. neeΣá ß ne≈ coreboarΣ (eithe≥ ROM-baseΣ o≥ floppy-disδ based)¼á thi≤ caε bσ ì
  1005. replaceΣ fo≥ onl∙ $125« Yo⌡ caε eveε ge⌠ ß ne≈ plastiπ casσ fo≥ onl∙ $25.
  1006.  
  1007. Iµá yo⌡ havσ ß fairl∙ recen⌠ StandarΣ model¼á yo⌡ ma∙ onl∙ neeΣ t∩á upgradσ ì
  1008. you≥á motherboarΣ - iε thi≤ casσ thσ ful∞ upgradσ wil∞ cos⌠ yo⌡á onl∙á $25░ ì
  1009. (mucΦá les≤á thaε before)«á Iµ yo⌡ neeΣ t∩ replacσ thσ coreboarΣá a≤á well¼ ì
  1010. you'l∞á stil∞ onl∙ bσ payinτ $375«á Eveε replacinτ thσ plastiπ casσ a≤ wel∞ ì
  1011. wil∞ brinτ thσ taΓ t∩ onl∙ $40░ - wel∞ belo≈ thσ ne≈ pricσ oµ ß Premium.
  1012.  
  1013. Becausσ wσ arσ reall∙ makinτ nothinτ oε thσ deal¼á thesσ price≤ cove≥á onl∙ ì
  1014. exchangσá oµá module≤ - no⌠ upgradσ labour«á Bu⌠ iµ you'rσá aεá enthusiast¼ ì
  1015. experienceΣá hacke≥á o≥ technician¼á thi≤ shouldn'⌠ bσ ß problem«á Eveεá iµ ì
  1016. you'rσá not¼á you≥ loca∞ Microbeσ Use≥ Grou≡ ma∙ bσ ablσ t∩á hel≡á out¼á t∩ ì
  1017. maximizσ you≥ savings.
  1018.  
  1019. Oµ course¼á iµ yo⌡ neeΣ u≤ t∩ carr∙ ou⌠ upgradσ fo≥ you¼á we'rσ stil∞ quitσ ì
  1020. happ∙á t∩ d∩ so«á Bu⌠ we'l∞ havσ t∩ chargσ yo⌡ a⌠ thσ standarΣ labou≥ rate« ì
  1021. Typicall∙ i⌠ shoulΣ cos⌠ arounΣ $30¼ dependinτ oε thσ vintagσ anΣ conditioε ì
  1022. oµ you≥ olΣ Microbee.
  1023.  
  1024. Jus⌠ a≤ witΦ thσ actua∞ compute≥ units¼á we'rσ als∩ offerinτ aε upgradσá oε ì
  1025. olΣá disδá drivσ units«á Yo⌡ caε exchangσ you≥ olΣ drivσ unit(s⌐ fo≥ ßá ne≈ ì
  1026. single-drivσ uni⌠ fo≥ onl∙ $345.00¼á o≥ fo≥ ß ne≈ dual-drivσ uni⌠ fo≥á onl∙ ì
  1027. $525.00«á Similarl∙á we'l∞á upgradσ you≥ olΣ CP/═ operatinτ systeφ fo≥á thσ ì
  1028. lates⌠ versioε (witΦ manuals⌐ fo≥ onl∙ $50.00«á Fo≥ thosσ wh∩ wan⌠ t∩ "rol∞ ì
  1029. thei≥ ownó disδ uni⌠ upgrade¼á wσ arσ als∩ makinτ drives¼á powe≥á supplies¼ ì
  1030. disδá uni⌠ case≤ anΣ blankinτ panel≤ availablσ a⌠ ver∙ attractivσ price≤á - ì
  1031. seσ ou≥ ne≈ pricσ list.
  1032.  
  1033. B∙á thσ way¼á wσ won'⌠ bσ ablσ t∩ givσ an∙ Use≥ Grou≡ o≥ othe≥ discount≤ oε ì
  1034. thesσ ne≈ price≤ fo≥ Premiuφ modulσ upgrades« They'rσ a≤ lo≈ a≤ wσ caε go.
  1035.  
  1036. Wha⌠á iµ yo⌡ wan⌠ t∩ upgradσ froφ aε olΣ RO═ machinσ t∩ ß ne≈ flopp∙á disk-ì
  1037. baseΣ model┐á Easy╗á Yo⌡ upgradσ you≥ compute≥ itself¼á oε thσ abovσ basis¼ ì
  1038. replacinτá you≥ olΣ RO═ corσ boarΣ witΦ ß ne≈ floppy-disδá coreboard«á Theε ì
  1039. yo⌡á simpl∙á bu∙á ß ne≈ disδ uni⌠ t∩ g∩ witΦ it«á WitΦ thσá savinτá oεá thσ ì
  1040. compute≥ upgrade¼ you'l∞ bσ wel∞ ahead.
  1041.  
  1042. Fo≥á furthe≥á details¼á pleasσ enquirσ a⌠ you≥á neares⌠á Microbeσá Compute≥ ì
  1043. Centrσ o≥ dealer.
  1044.  
  1045. NEW: RENT A MICROBEE!
  1046.  
  1047. InteresteΣá iεá rentinτ ß Microbee┐á Furthe≥ informatioε i≤ availablσá froφ ì
  1048. you≥ neares⌠ Microbeσ Compute≥ Centre« 
  1049. è
  1050. *** BAZAAR SALES *** BAZAAR SALES *** 
  1051.  
  1052.       CODE DESCRIPTION                                  PRICE     CODE DESCRIPTION                                  PRICE
  1053.                  "The Catcher"
  1054.       02BC Volume 2 (Oct.83-Sept.84)                    $15.00    30CS Blank C-30 Cassettes                         $ 1.50
  1055.       03BC Volume 3 (Oct.84-Sept.85)                    $15.00    30CB Blank C-30 Cassettes (20 per box)            $25.00
  1056.       01TC Back Issues (single)                         $ 1.50    
  1057.       02TC Back Issues (Vol 2 Nos. 6/7)                 $ 3.00    3SDB Blank 3.5" Disks (NASHUA SSDD Box of 10)     $40.00
  1058.                                                                   3SDS Blanδ 3.5ó Disk≤ (FUJ╔ SSDD⌐                 ñ 6.00
  1059.       5HCK Drive Head Cleaning Kit 5.25"                $10.00    3SDB Blanδ 3.5ó Disk≤ (1░ pe≥ box⌐                $46.00
  1060.       3HCK Drive Head Cleaning Kit 3.5"                 $15.00    5DDSáBlanδ 5.25ó Disks(Precisioε DSDD)Box of 10   $20.00
  1061.       01DC Dust Covers for 'BEE                         $ 6.00    5DDF Blank 5.25" Disks (FUJI DSDD) Box of 10      $30.00
  1062.  
  1063.       80PR Carboε Printe≥ Ribboε                                  
  1064.                 (suit xyz.80/100 printers)              $ 8.00    5B85 Disk Storage Box 5.25" (Lockable, holds 85)  $18.00
  1065.                                                                   5B10 Disk Library Box 5.25" (holds 10)            $ 3.00 
  1066.     **10PP 1250 sheets cont. printer paper              $15.00    3B40 Disk Storage Box 3.5" (Lockable, holds 40)   $18.00
  1067.             
  1068.       01BA BeeArtistic (Graphic S/W)                    $35.00    1FPF Flashprint (with Flashkey)                   $45.00
  1069.  
  1070.                          PLEASE NOTE: 
  1071.    Poor Persons Software and Grotnik Software are still available.
  1072.    Refer to the June edition of `The Catcher' for item availability
  1073.    and prices. Orders requesting Poor Persons Software may take more 
  1074.    than 21 days to fill, because to get our special price we have to
  1075.    order five or more discs at a time.
  1076.   
  1077.             ** not normally available for postal purchase
  1078.       All postal orders to be sent to MBUG AUSTRALIA SALES
  1079.                                       P.O. BOX 253, COBURG
  1080.                                       VICTORIA 3058
  1081.    To avoid delays, all orders must include cheque, postal order or 
  1082.    Bankcard authorization for the total amount(inc. postal & handling
  1083.    charges). Allow 21 days for the return of goods, or pick-up at the
  1084.    next meeting.
  1085.             Goods are only available to club members
  1086.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
  1087.    Please charge my Bankcard/Visa No. ___ __ ___ ______
  1088.  
  1089.    Expiry Date __/__/____               Signature_________________
  1090.    Members Name.__________________________________ M/ship No._____
  1091.    Address._______________________________________________________
  1092.    Code  Item                      Quantity    Price    Total Cost
  1093.    ____  ________________________  ________    _____    __________
  1094.    ____  ________________________  ________    _____    __________
  1095.    ____  ________________________  ________    _____    __________
  1096.    Postal Fees (within Aust.)       Sub-Totals Items     $_________
  1097.    $10 to $20 order    :$2.50  Postage & Handling Fee   $_________
  1098.    $20 to $80 order    :$5.00
  1099.    greater than $80    :P.O.A.             Total Order    $_________
  1100.  
  1101.    Certified Mail add $1.00              Security Post  add $5.00
  1102.         MINIMUM POSTAL ORDER $10.00                  oct.
  1103.  
  1104.  
  1105. *** BAZAAR SALES *** BAZAAR SALES ***
  1106.