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 / MBUG086.ARC / 1988APR.CAT < prev    next >
Text File  |  1979-12-31  |  51KB  |  1,107 lines

  1. .pl70
  2. .po8
  3. .OP
  4. .HE#  APR  - T H E  C A T C H E R -1988 #     
  5. Thσ followinτ i≤ ß lis⌠ oµ thσ 1987/88 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╥                          MIKE HOLZINGER           354-6742
  16.  
  17.                          COMMITTEE AND ASSISTANTS
  18.  
  19. Chris Anderson           438-3762       Peter Burbrige           726-7126
  20. Rod Clarke               758-1880       Russell Crosser     (059) 62 5975
  21. Greg Eva                 836-9947       Ed Latham                484-2847
  22. Jim Lobley               758-9169       John Mitchell            720-2016
  23. Mike Thompson            882-5002
  24.  
  25.  
  26. SERVICES  PROVIDED  BY  MBUG  AUSTRALIA 
  27.  
  28. RBBS SYSTEM OPERATOR.  MIKE THOMPSON 882-5002
  29. BAZAAR JOHN MITCHELL.  P.O. BOX 157 NUNAWADING 3131  
  30. EDITOR  A. BARFOOT. P.O. BOX 157 NUNAWADING 3131  
  31. MODEM HIRE  C. ANDERSON.  P.O. BOX. 157 NUNAWADING 3131
  32. MEMBERSHIP SECRETARY J. LOBLEY.  P.O. BOX 157 NUNAWADING 3131  
  33. PUBLIC DOMAIN (SIG/M) DISKS  S. JEPSON.  P.O. BOX 8  ROSANNA 3084
  34. COMPUTER BOOK DISCOUNT TECHNICAL BOOKSHOP SWANSTON St. MELBOURNE
  35. PRESTON ELECTRONIC COMPONENTS 217 HIGH ST. PRESTON. 
  36.  
  37. ADVERTISEMENTS   P.O. BOX 157 NUNAWADING 3131           
  38. $50.00 Full Page   $25.00 Half Page   $15.00 Quarter Page 
  39. $3.00 For service and recurrent items (Less than 5 lines) 
  40. No charge for non recurring private sales items       
  41.  
  42.            GENERAL POLICY    
  43. 
  44. T∩á expeditσ you≥ requests¼á genera∞ correspondencσá t∩         Contribution≤ fo≥ thσ CATCHE╥ ma∙ bσ madσ direc⌠ t∩ thσ        ì
  45. MBU╟á AUS╘á IN├ shoulΣ bσ sen⌠ t∩ ou≥ officia∞á addres≤         editor¼ sen⌠ t∩ thσ RBB╙ o≥ b∙ mail« Contribution≤ wil∞ ì
  46. anΣ  eacΦ enquir∙ shoulΣ bσ oε seperate forms«                  bσ  accepteΣ viß modem¼ disk≤ (│ 1/2ó o≥ ╡ 1/4")¼ tape,
  47.                                                                 writteε o≥ typed«  Contributions will not be considereΣ 
  48. Thσ editor≤ reservσ thσ righ⌠ t∩ edi⌠ al∞ contribution≤         withou⌠ ß namσ anΣ addres≤ and/o≥ membe≥ number« Pleasσ ì
  49. fo≥á thσá sakσá oµ brevity¼á clarit∙á and/o≥á accuracy«         includσ ß S.A.┼ fo≥ returε oµ you≥ tape/disk.          ì
  50. Letter≤á mus⌠á includσá namσ anΣ addres≤á bu⌠á wσá wil∞                ì
  51. withholΣ sucΦ detail≤ iµ s∩ requested«                          AlthougΦá al∞á carσ wil∞ bσ takeεá witΦá contributions¼       ì
  52.                                                                 MBU╟á AUS╘á caεá takσ n∩ responsibilit∙á fo≥á thσá safσì
  53. MBU╟áá AUSTRALI┴á INC«áá it≤á officers¼áá member≤áá anΣ         returε oµ an∙ materia∞ supplied« Iµ returε i≤ critical¼ì
  54. contributor≤á accep⌠ n∩ responsibilit∙ fo≥ an∙á damage≤         (something irreplaceable), don't send it.               ì
  55. causeΣá t∩á an∙ persoε o≥ propert∙á attributeΣá t∩á an∙ ì
  56. advicσ o≥ informatioε publisheΣ iε Thσ CATCHER.                 MBU╟á AUS╘ INC«á doe≤ no⌠ condonσ thσ non-authoriseΣ usσ
  57.                                                                 oµáá copyrigh⌠á software/hardwarσá anΣá thereforσáá als∩
  58. Microworld Basic listings may carry a number at the end         condemn≤ unauthorised copying of such material.           
  59. of each line. eg. {123}. These are checksum numbers and         
  60. shoulΣá 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 è     FROM THE CHIEF MBUG   FROM THE CHIEF MBUG   FROM THE CHIEF MBUG
  64.  
  65. "TRAS╚ AN─ TREASURE"« Thi≤ montΦ ╔ havσ remembereΣ t∩ announcσ sucΦ ß nigh⌠ ì
  66. happeninτá thi≤ (April⌐ meeting«á Thσ las⌠ tw∩ time≤ ╔ wa≤ supposeΣ t∩á le⌠ ì
  67. you know about it I forgot. 
  68.  
  69. Thi≤ club¼ a≤ yo⌡ kno≈ i≤ ruε b∙ ß committeσ wh∩ endeavou≥ t∩ d∩ thei≥ bes⌠ ì
  70. fo≥á you«á Thi≤á joΓ become≤ mucΦ harde≥ thaε neeΣ b∙ b∙ thosσ oµá yo⌡á wh∩ ì
  71. can'⌠á bσ bothereΣ helpinτ u≤ out«á Onσ oµ thσ problem≤ i≤ witΦá membershi≡ ì
  72. arrangements«á T∩ rene≈ you≥ membership¼ thσ applicatioε mus⌠ bσ handleΣ b∙ ì
  73. a⌠ leas⌠ tw∩ peoplσ jus⌠ t∩ ge⌠ you≥ namσ bacδ oε thσ datß base« Theε therσ ì
  74. i≤ thσ processinτ oµ thσ datß base¼á you≥ ne≈ carΣ anΣ finall∙ yo⌡ magazinσ ì
  75. i≤á pu⌠á iε aε envelope¼á bundleΣ iε thσ correc⌠ mailinτ orde≥ anΣá posted« ì
  76. Thi≤ proces≤ (wheε wσ havσ helpers⌐ involve≤ ▓ t∩ │ hour≤ worδ whicΦá take≤ ì
  77. mσá bacδ t∩ thσ probleφ a⌠ hand«á Ever∙ month¼á oε thσ bacδ oµ thσ envelopσ ì
  78. you≥ Catche≥ come≤ in¼á i≤ aε applicatioε form«á Thσ questioε ╔ no≈ posσ t∩ ì
  79. yo⌡ i≤ this«á Wh∙ shoulΣ ß membe≥ oµ thσ committeσ fil∞ iε ß forφ fo≥á you┐ ì
  80. Iµá yo⌡á werσá t∩á re-appl∙ t∩ "You≥ Computeró t∩á havσá you≥á subscriptioε ì
  81. continued¼á wha⌠ d∩ yo⌡ thinδ woulΣ happeε iµ yo⌡ sen⌠ you≥ chequσ anΣá thσ ì
  82. renewa∞ oε ß bi⌠ oµ paper┐ I'l∞ tel∞ you╗ nothing« Iε future¼ thσ samσ wil∞ ì
  83. happeεá t∩ sucΦ renewal≤ t∩ thi≤ club«á Wσ wil∞ banδ you≥ cheque¼á wai⌠ fo≥ ì
  84. you≥á complaint¼á poin⌠ ou⌠ thσ lacδ oµ applicatioε form¼á asδ yo⌡á senΣá ß ì
  85. completeΣá forφá anΣ onl∙ theε wil∞ you≥ subscriptioε continue«á Onσá majo≥ ì
  86. poin⌠á t∩á thi≤á commen⌠ i≤ tha⌠ thσ primσ offender≤ arσá member≤á oµá lonτ ì
  87. standing« Ho≈ abou⌠ givinτ u≤ ß fai≥ go┐ 
  88.  
  89. Onσá othe≥á poin⌠ t∩ makσ i≤ tha⌠ wσ woulΣ appreciatσ ß separatσá piecσá oµ ì
  90. pape≥ fo≥ eacΦ reques⌠ posteΣ t∩ thσ committee« Iµ yo⌡ wan⌠ ß publiπ domaiε ì
  91. disδá anΣ somethinτ froφ thσ bazaar¼á pleasσ remembe≥ tha⌠ thσá peoplσá wh∩ ì
  92. fil∞á you≥á order≤ livσ a⌠ leas⌠ 3░ k'φ apart«á Onσ paymen⌠ i≤ oδá bu⌠á tw∩ ì
  93. separatσ order≤ please.
  94.  
  95. Thσá publiπ domaiε disδ copyinτ wσ d∩ a⌠ thσ maiε meetinτ i≤ t∩ havσ ßá fe≈ ì
  96. restriction≤á placeΣ oε it«á Iµ yo⌡ coulΣ likσ t∩ leavσ you≥ orde≥ witΦ thσ ì
  97. boy≤á a⌠ thσ star⌠ oµ thσ nigh⌠ anΣ collec⌠ theφ late≥ i⌠ woulΣ bσ ßá grea⌠ ì
  98. help«á A≤ oµ April¼á ß maximuφ oµ tw∩ (2⌐ disk≤ wil∞ bσ copieΣ fo≥ an∙á onσ ì
  99. (1⌐ persoε a⌠ ß time«á Iµ yo⌡ wan⌠ │ o≥ morσ disk≤ yo⌡ wil∞ havσ t∩ g∩ bacδ ì
  100. t∩á thσ enΣ oµ thσ linσ o≥ placσ anΣ orde≥ anΣ picδ i⌠ u≡ a⌠ thσ enΣ oµ thσ ì
  101. night«á I⌠ i≤ no⌠ fai≥ iµ yo⌡ wan⌠ lot≤ oµ disk≤ anΣ thσ membe≥ wh∩ camσá ß ì
  102. littlσá late≥ thaε yo⌡ onl∙ want≤ one«á Thσ guy≤ doinτ thσ joΓ arσá sharinτ ì
  103. thei≥ timσ anΣ woulΣ likσ yo⌡ t∩ sharσ somσ oµ your≤ too«á Iµ thi≤ doe≤ no⌠ ì
  104. sui⌠ you¼ yo⌡ coulΣ alway≤ orde≥ disk≤ froφ Stevσ Jepsoε wh∩ wil∞ pos⌠ theφ ì
  105. t∩á yo⌡á o≥ brinτ thσ copie≤ alonτ t∩ thσ meetinτ o≥ SI╟ night«á Thi≤á wil∞ ì
  106. cos⌠á extrßá a≤ wσ suppl∙ thσ disk≤ iµ thi≤ methoΣ i≤á used«á Iµá yo⌡á wisΦ ì
  107. copie≤á oεá 5.25ó disks¼á thi≤ i≤ thσ onl∙ wa∙ t∩ d∩ i⌠ a⌠á present«á Don'⌠ ì
  108. thinδ yo⌡ havσ morσ right≤ jus⌠ becausσ yo⌡ havσ ß 3.5ó drive« 
  109.  
  110. Ofµá thσ soapbo° now«á Don'⌠ forge⌠ thσ tw∩ competition≤ announceΣ iεá las⌠ ì
  111. month≤ Catcher«á Iµ yo⌡ arσ no⌠ surσ oµ thσ Happ∙ number≤ comp¼ pleasσ talδ ì
  112. to Mike Thompson (the sysop).
  113.  
  114. No≈ fo≥ thσ gooΣ news«á Iµ yo⌡ arσ considerinτ thσ purchasσ oµ ß ne≈ modem¼ ì
  115. pleasσá talδá t∩ onσ oµ thσ Bazaa≥ operator≤ anΣ asδ fo≥ ß price«á Wσá (thσ ì
  116. club⌐ havσ beeε offereΣ ß specia∞ dea∞ oε thσ "AVTEKó modems«á Thi≤á range≤ ì
  117. froφ 15Ñ t∩ 20Ñ ofµ thσ retai∞ price« Thσ 20Ñ applie≤ iµ wσ bu∙ bo° lot≤ oµ ì
  118. ╕á (eight)«á No≈ ma∙ bσ thσ timσ t∩ talδ t∩ ß couplσ oµ you≥ mate≤ anΣ hel≡ ì
  119. u≤ (anΣ yourself⌐ t∩ ge⌠ tha⌠ extrß discoun⌠.
  120.  
  121. >ANDREWè                     TURBO-LESSONS - A Pascal Tutorial  
  122.                    TURBO-LESSON 5:  INTEGER EXPRESSIONS
  123.  
  124. OBJECTIVES - In lesson 5 you will learn about:
  125.  
  126. 1.  Assignment statements
  127. 2.  Integer expressions
  128. 3.  Problems with expressions
  129.  
  130. 1.  Assignment statements.
  131.  
  132. ┴á largσá par⌠ oµ compute≥ processinτ i≤ accomplisheΣ b∙á storinτá numbers¼ ì
  133. strings¼ anΣ othe≥ datß object≤ iε memor∙ location≤ iε thσ computer«  Therσ ì
  134. arσ severa∞ way≤ t∩ storσ ß valuσ iε memor∙ iε Pascal:
  135.  
  136.            (1) use an Input statement (ReadLn),
  137.            (2) use an Assignment statement, 
  138.            (3) use a Procedure or function.
  139.  
  140. The Assignment statement has the following form:
  141.  
  142. Variable := Expression;
  143.  
  144. An example:   A := B + C; 
  145.  
  146. Thσ wa∙ i⌠ works║á  Thσ compute≥ evaluate≤ thσ expressioε oε thσ righ⌠ sidσ ì
  147. oµá thσá replacemen⌠ operator¼á :=¼á anΣ store≤ thσ resultinτ valuσ iεá thσ ì
  148. memor∙ locatioε nameΣ b∙ thσ variablσ oε thσ left«  
  149.  
  150. Iε thσ examplσ above¼ thσ compute≥ woulΣ obtaiε whateve≥ valuσ i≤ currentl∙ ì
  151. storeΣá iεá thσ memor∙ locatioε calleΣ B¼á adΣ tha⌠ valuσ t∩ thσá valuσá i⌠ ì
  152. find≤á iεá thσ memor∙ locatioε calleΣ C¼á anΣ storσ thσ suφ iεá thσá memor∙ ì
  153. location¼ A«  Iµ ┬ hold≤ thσ valuσ 3¼ anΣ ├ hold≤ thσ valuσ 4¼ theε ╖ woulΣ ì
  154. bσ storeΣ iε thσ memor∙ locatioε calleΣ A«  
  155. 
  156. ##### DO:
  157. 
  158. Ente≥ thσ followinτ shor⌠ prograφ (omi⌠ thσ comments¼ iµ yo⌡ like):
  159.  
  160. PROGRAM ABC;
  161.  
  162. VAR  A, B, C  : Integer;
  163.  
  164. BEGIN
  165.   A := 6;  {Assign the value 6 to the memory location, A}
  166.   B:=7;    {Assign 7 to B }
  167.   C := A + B;  {Add the values in A and B, Store in C }
  168.   WriteLn ('A=',A, ' B=',B, ' C=',C);
  169. END.
  170.  
  171. Run the program.  
  172.  
  173. Notσá tha⌠ yo⌡ havσ jus⌠ writteε ß completσ PASCA╠ prograφ - froφ herσá on¼ ì
  174. yo⌡ wil∞ jus⌠ bσ addinτ ne≈ feature≤ iε eacΦ lessoε t∩ enablσ yo⌡ t∩á writσ ì
  175. morσá complicateΣá programs«á  (I⌠ didn'⌠ run┐á  Usσ thσ erro≥á messagσá t∩ ì
  176. correc⌠ an∙ errors«á  Iµ thσ erro≥ messagσ doesn'⌠ makσ sense¼á tr∙ lookinτ ì
  177. fo≥á misplaceΣá o≥á omitteΣá semicolons«á  Als∩ notσá tha⌠á thσá assignmen⌠ ì
  178. statemen⌠ use≤ thσ compounΣ symbol¼ ":=ó anΣ no⌠ "=/".)«  
  179. è2.  Integer Expressions.
  180.  
  181. Intege≥á expression≤á arσ composeΣ oµá intege≥á variables¼á constants¼á anΣ ì
  182. operators«  Thσ operator≤ useΣ witΦ intege≥ expression≤ are:
  183.   +, -, *, div, mod.
  184.  
  185. Thσ ½ anΣ - havσ thei≥ usua∞ meaning¼á additioε anΣ subtraction«á Thσ ¬ in-ì
  186. dicate≤ámultiplication«áDivisioε oµ intege≥ number≤ i≤ donσ witΦ di÷áanΣ mod.
  187. 
  188. ##### DO:
  189. 
  190. Examine at PROG5.  
  191.  
  192. Tw∩ numbers¼ whicΦ yo⌡ enter¼ arσ added¼ subtracted¼ anΣ onσ i≤ cubeΣ usinτ ì
  193. thσ multipl∙ operator¼ "*"«  WriteLε i≤ useΣ t∩ prin⌠ ou⌠ thσ results«  
  194.  
  195. Notice that expressions may be calculated in an assignment statement,
  196.  
  197.                        I_Cubed := I * I * I;
  198.  
  199. or calculated in a WriteLn statement,
  200.  
  201.                        WriteLn('I - J', I - J);
  202. 
  203. ##### DO:
  204. Run the program.  
  205.  
  206. Notσá tha⌠ thσ ReadLε statemen⌠ wil∞ attemp⌠ t∩ reaΣ ▓ values«á  Thσ value≤ ì
  207. shoulΣ bσ typeΣ witΦ ß spacσ between¼ no⌠ ß comma«  
  208.          
  209. Enter the values 2 and 5.
  210.  
  211. Check all the results.  Are they all correct?
  212. 
  213. ##### DO:
  214. 
  215. Run the program again, this time entering -3 and 5. 
  216.  
  217. I≤á everythinτá correc⌠á again┐á  Noticσá thσ negativσ cubσá oµá -│á i≤á a≤ ì
  218. expected¼á -27«á  (Somσ incorrec⌠ negativσ cube≤ wil∞ appea≥ ß littlσ late≥ ì
  219. iε thi≤ lesson.)
  220.  
  221. Thσ divisioε operators¼á di÷ anΣ moΣ arσ no⌠ useΣ iε PROG5« T∩ seσ ho≈ the∙ ì
  222. work¼ 
  223. 
  224. ##### DO:
  225. 
  226. Just before the END of PROG5, edit in the following statements:
  227.  
  228. WriteLn('I div J = ', I div J);
  229. WriteLn('I mod J = ', I mod J);
  230.  
  231. Run the program, entering the values 5 and 3.  
  232.  
  233. DiΣá yo⌡á ge⌠ thσ result≤ expected┐á   I≤ ╡ divideΣ b∙ │ reall∙ ▒á anΣá no⌠ ì
  234. 1.666┐  
  235.  
  236. è##### DO:
  237. 
  238. Add these two statements at the end of the program:
  239.  
  240. WriteLn(I,' divided by ', J, ' = ', I div J);
  241. WriteLn(' with a remainder of ', I mod J);
  242.  
  243. Run the program with the values 5 and 3.  
  244.  
  245. Often¼á wheεá workinτ witΦ integers¼á i⌠ i≤ usefu∞ t∩ kno≈ onσ o≥á botΦá oµ ì
  246. thesσ component≤ oµ thσ division«  Iµ yo⌡ reall∙ wan⌠ thσ decima∞ resul⌠ oµ ì
  247. thσ division¼ thσ slash¼ /¼ coulΣ bσ useΣ witΦ integers«  
  248. 
  249. ##### DO:
  250. 
  251. Add this statement at the end of the program:
  252.  
  253. WriteLn('I / J = ', I/J);
  254.  
  255. Run the program with the values 5 and 3.  
  256.  
  257. Note the result of division using the slash is the usual result.  
  258. 
  259. ##### DO:
  260. 
  261. Beforσá goinτá on¼á tr∙ addinτ ß fe≈ WriteLε statement≤ t∩ thσá prograφá t∩ ì
  262. improvσ thσ readabilit∙ oµ thσ output.
  263.  
  264. 3.  Problems with expressions.
  265.  
  266. Yo⌡á shoulΣá bσá awarσá oµ thσ possibilitie≤ fo≥ variou≤á type≤á oµá error≤ ì
  267. involvinτ expressions«  First¼ aε eas∙ t∩ detec⌠ error.
  268. 
  269. ##### DO:
  270. 
  271. Declare K to be an integer variable.
  272.  
  273. Add these statements at the end of the program:
  274.  
  275. K := I / J;
  276. WriteLn('K = ', K);
  277.  
  278. Run the program.  How did it go?
  279.  
  280. Thi≤ error¼á "Typσ mismatch"¼ i≤ eas∙ t∩ find¼ sincσ thσ compile≥ find≤ it«  ì
  281. Thσá reasoε fo≥ thσ typσ mismatcΦ i≤ tha⌠ thσ resul⌠ oµ thσ divisioεá usinτ ì
  282. thσ "/ó i≤ ß rea∞ numbe≥ (covereΣ iε ß late≥ lesson)«á  Thσ variable¼ K¼ i≤ ì
  283. aε integer«á  ┴ rea∞ numbe≥ can'⌠ bσ storeΣ iε aε intege≥ memor∙á location«  ì
  284. (Wh∙ not┐  Onσ reason║ ß rea∞ numbe≥ take≤ │ time≤ a≤ mucΦ memor∙ space.)
  285.  
  286. A second type of error, is illustrated in the following:
  287. 
  288. ##### DO:
  289. 
  290. Run the program using the values 31 and 5.
  291.  
  292. Checδ thσ result≤ oµ thσ cubσ oµ I«á I≤ i⌠ correct┐á O.K.¼á bu⌠ noticσá thσ ì
  293. cubσá oµá I¼á 29791¼á i≤ approachinτ thσ uppe≥ limi⌠ oµ intege≥á variables¼ ì
  294. 32767«á Wha⌠ wil∞ happeε iµ yo⌡ ente≥ 3▓ anΣ 5┐  (Thσ correc⌠ cubσ oµ 3▓ i≤ ìè32768¼ jus⌠ ▒ to∩ largσ t∩ fi⌠ a≤ aε integer.) Try it!
  295. 
  296. ##### DO:
  297. 
  298. Run the program using the values 32 and 5.
  299.  
  300. The computer, known for its reliability, informs you:
  301.  
  302.       The cube of I = -32768
  303.  
  304. Now¼á yo⌡ kno≈ thσ sigε i≤ wronτ - positivσ number≤ d∩ no⌠ producσ negativσ ì
  305. cubes«á  Bu⌠á looδ a⌠ thσ number¼á -32768«á  Correc⌠ numbe≥, wronτ sign?
  306. 
  307. ##### DO:
  308. 
  309. Run the program again with the values 33 and 5.
  310.  
  311.      The cube of I = -29599
  312.  
  313. Wronτ numberíá  Wronτ signí  S∩ wh∙ doe≤ thσ compute≥ g∩ merril∙ oε it≤ wa∙ ì
  314. - givinτ yo⌡ thesσ wronτ answers?
  315.  
  316. Thσá compute≥á i≤ ver∙ gooΣ a⌠ detectinτ error≤ iε thσá forma⌠á oµá prograφ ì
  317. statements¼ missinτ declarations¼ wronτ punctuation«  Therσ arσ othe≥ type≤ ì
  318. oµ error≤ tha⌠ arσ morσ difficul⌠ t∩ detect.
  319.  
  320. I⌠á i≤ u≡ t∩ you¼á thσ programmer¼á t∩ finΣ way≤ t∩ kee≡ thesσ error≤á froφ ì
  321. goinτá unnoticed«á  Fo≥ now¼á yo⌡ neeΣ t∩ bσ awarσ tha⌠ thesσ problem≤á caε ì
  322. occur«  Erro≥ detectioε wil∞ bσ covereΣ iε late≥ lessons.
  323.  
  324.  
  325. PROGRAM PROG5;
  326. {$U+          Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  327.  
  328.     New Topics: Integer Expressions
  329.  
  330. }
  331.  
  332. VAR
  333.   I, J, I_Cubed  : Integer;
  334.  
  335. BEGIN
  336.   WriteLn('When entering more than one number at once, ');
  337.   WriteLn('use a space to separate the numbers entered.');
  338.   WriteLn;
  339.   Write('Enter two numbers: ');
  340.   ReadLn(I, J);
  341.   WriteLn;
  342.   WriteLn('I = ',I,'      J = ',J);
  343.   WriteLn;
  344.  
  345.   WriteLn('I + J = ',I + J);  {The expression may be calculated }
  346.   WriteLn('I - J = ',I - J);  {within the WriteLn statement     }
  347.  
  348.   I_Cubed := I * I * I;       {or in a separate assignment statement }
  349.   WriteLn('The cube of I = ',I_Cubed);
  350.  
  351. END.
  352. è                            INSTALLIN╟ WORDSTAR
  353.  
  354.                               B∙ TeΣ Allison
  355.  
  356. Thi≤á articlσá i≤ fo≥ thosσ peoplσ wh∩ wan⌠ t∩ kno≈ ho≈á aεá initializatioε ì
  357. prograφá works¼á thosσá wh∩á wan⌠ t∩ kno≈ wha⌠ i⌠ caε do¼á thosσá wh∩á havσ ì
  358. mislaiΣá thei≥ booδ oµ instruction≤ o≥ len⌠ i⌠ anΣ  neve≥ go⌠ i⌠á returned¼ ì
  359. o≥á thosσá wh∩á arσ alway≤ lookinτ fo≥ anothe≥ tricδá t∩á manipulatσá thei≥ ì
  360. programs«á Also¼á ╔ havσ noticeΣ tha⌠ somσ member≤ arσ reluctan⌠ t∩á modif∙ ì
  361. thσ program¼á a≤ iµ the∙ werσ afraiΣ the∙ coulΣ damagσ i⌠ irrevocably¼ a≤ ╔ ì
  362. wa≤á once«á  Tha⌠á fea≥ i≤ unfounded¼á anΣ ma∙ comσ froφ thσ fac⌠ tha⌠á thσ ì
  363. instructioε booδ contain≤ ß considerablσ amoun⌠ oµ detail¼ witΦ expression≤ ì
  364. whicΦ arσ no⌠ full∙ explaineΣ anΣ thereforσ somethinτ t∩ bσ avoideΣ a⌠á al∞ ì
  365. costs« 
  366.  
  367. Basically¼á onl∙ thσ WINSTALL.COM¼á WS.IN╙  anΣ thσ WS.CO═ program≤ havσ t∩ ì
  368. bσ oε thσ disk« Iε fact¼ i⌠ pay≤ t∩ havσ ß disδ witΦ onl∙ thosσ program≤ iµ ì
  369. yo⌡ wan⌠ t∩ manipulatσ an∙ parameters« Onl∙ thσ WS.CO═ i≤ beinτ modifieΣ b∙ ì
  370. INSTAL.COM«á  Iµá ßá mistakσá ha≤á beeε madσ anΣ thσ prograφá W╙á ha≤á beeε ì
  371. irrevocabl∙ damaged¼á yo⌡ caε alway≤ makσ anothe≥ copy« I⌠ i≤ ß gooΣ polic∙ ì
  372. t∩ usσ aε empt∙ disδ fo≥ an∙ ne≈ creation«á Iε tha⌠ wa∙ therσ i≤ n∩á chancσ ì
  373. oµ damagσ t∩ anothe≥ program«á Oncσ finished¼ yo⌡ caε cop∙ you≥ ne≈ prograφ ì
  374. whereve≥ yo⌡ wan⌠ i⌠ anΣ clea≥ thσ disδ again.
  375.  
  376. T∩á tailo≥ ß prograφ t∩ you≥ need≤ i≤ calleΣ customization«á Bu⌠á theεá yo⌡ ì
  377. wil∞á alread∙á kno≈ that«á A≤ witΦ an∙ othe≥ prograφá creation¼á thσá firs⌠ ì
  378. though⌠á shoulΣá bσ t∩ givσ you≥ versioε ß name«á Yo⌡ ma∙ cal∞ i⌠á WS1.COM¼ ì
  379. WS2.COM¼áá bu⌠áá ßá distinctivσá namσá i≤á better¼áá likσá WSMAN.CO═áá (fo≥ ì
  380. manuscripts)¼á WSLE/T.CO═ (fo≥ letter≤ shoulΣ yo⌡ bσ aε aviΣ lette≥ writer)¼ ì
  381. o≥á anythinτá yo⌡á like«á Yo⌡ ma∙ eveε givσ i⌠ ßá namσá likσá PUSSYCAT.COM¼ ì
  382. MCG.CO═á o≥ anythinτ elsσ yo⌡ ma∙ fancy«á Thσ ne≈ namσ mus⌠ bσá individual║ ì
  383. Neve≥ cal∞ i⌠ WS.COM«á A≤ sooε a≤ yo⌡ transfe≥ i⌠ t∩ thσ workinτá disk¼á i⌠ ì
  384. wil∞á overwritσ thσ prograφ witΦ thσ identica∞ name¼á anΣ yo⌡ wil∞ havσá t∩ ì
  385. creatσ ß ne≈ onσ shoulΣ yo⌡ requirσ it« 
  386.  
  387. Oncσ yo⌡ cal∞  u≡ thσ INSTA╠ program¼á i⌠ i≤ importan⌠ t∩ makσ surσ t∩ tel∞ ì
  388. thσá compute≥ tha⌠ yo⌡ intenΣ t∩ insta∞ ß ne≈ version¼á t∩ takσ thσ prograφ ì
  389. oεá hanΣ iε orde≥ t∩ modif∙ it≤ parameters«á Iε othe≥ words¼á yo⌡á arσá re-ì
  390. installinτ thσ olΣ program¼á bu⌠ witΦ ne≈ features«á Iµ yo⌡ d∩ no⌠ d∩ that¼ ì
  391. thσ computer¼ beinτ ß machinσ withou⌠ ß braiε (pardoε thσ pun)¼ wil∞ assumσ ì
  392. tha⌠á yo⌡á arσ installinτ ß prograφ fo≥ thσ firs⌠ time«á Iµ yo⌡ don'⌠á havσ ì
  393. WSU.CO═ oε thσ disk¼á i⌠ wil∞ displa∙ ß messagσ tha⌠ thσ prograφ canno⌠á bσ ì
  394. found« 
  395.      
  396. Wha⌠ caε bσ achieveΣ witΦ customization┐á ┴ lot¼á iε fac⌠ TH┼ lot«á  Le⌠ u≤ ì
  397. assumσá tha⌠á yo⌡ wan⌠ t∩ usσ thσ prograφ exclusivel∙ fo≥á lette≥á writing« ì
  398. Wha⌠ woulΣ bσ you≥ requirements┐á Takσ ß piecσ oµ pape≥ anΣ writσ dowε you≥ ì
  399. intendeΣ alterations« Fo≥ instance¼ thσ lef⌠ hanΣ edgσ shoulΣ bσ wide¼ als∩ ì
  400. thσá righ⌠ hanΣ edge«á Yo⌡ wan⌠ t∩ star⌠ thσ lette≥ si° line≤ froφ thσ top¼ ì
  401. anΣ leavσ ß gooΣ spacσ a⌠ thσ bottom«á Thσ writinτ shoulΣ bσ justified¼ bu⌠ ì
  402. thσá page≤á shoulΣá no⌠á bσ numbered║á Yo⌡ arσá writinτá ßá letter¼á no⌠á ß ì
  403. manuscript«á Yo⌡ wan⌠ t∩ seσ everythinτ iε italics« You≥ pagσ break≤ shoulΣ ì
  404. bσá automatic«á Thσá inser⌠á featurσ mus⌠ bσ oε al∞á thσá timσá t∩á correc⌠ ì
  405. mistake≤ madσ oε thσ spot« Yo⌡ wan⌠ you≥ fon⌠ t∩ bσ lette≥ quality« 
  406.  
  407. Tha⌠á i≤á ßá tal∞ order¼á bu⌠ eas∙ t∩ implemen⌠ oncσ yo⌡ ge⌠á thσá hanτá oµ ì
  408. manipulatinτáá installatioεá prograφá features«áá Le⌠á u≤á g∩á througΦá thσ ì
  409. modification≤á onσ b∙ one«á 
  410. èCal∞á u≡á thσ installatioε program«á Ruε through¼á answerinτ al∞á question≤ ì
  411. askeΣ correctl∙ til∞ yo⌡ reacΦ thσ pagσ witΦ thσ INSTALLATIO╬ MENU.
  412. 
  413.      Typσ ┼ - WORDSTA╥ FEATURES« 
  414. 
  415. Yo⌡ wil∞ ge⌠ ß ne≈ screeε oµ choices«á Typσ ┼ again« No≈ yo⌡ caε changσ thσ ì
  416. insertioε togglσ t∩ O╬ al∞ thσ time« Oncσ completed¼ thσ screeε wil∞ returε ì
  417. t∩ thσ W╙ features«á Typσ ╞/ - justificatioε toggle«á ProceeΣ a≤ fo≥á E«á D∩ ì
  418. likewisσá fo≥á ╚ - omi⌠ pagσ numbe≥ togglσ «á Wheε yo⌡ reacΦ ╔á - to≡á pagσ ì
  419. margiεá - inser⌠á thσ numbe≥ oµ line≤ yo⌡ wan⌠ t∩ leavσ empt∙á beforσá you≥ ì
  420. writinτ begins¼ ╢ iε thi≤ case.
  421.  
  422. ╩á i≤ thσ bottoφ margin«á Inser⌠ herσ ß 0«á Thσ reasoε i≤ that¼á shoulΣ yo⌡ ì
  423. inser⌠ ß numbe≥ oµ lines¼á anΣ thσ printe≥ ha≤ reacheΣ thσ enΣ oµ thσá pagσ ì
  424. beforσá thσá  numbe≥á oµá line≤ havσ beeε steppeΣá through¼á i⌠á wil∞á sto≡ ì
  425. (assuminτá yo⌡á arσ usinτ singlσ sheet≤ iε you≥ printer)«á Afte≥á yo⌡á havσ ì
  426. inserteΣá ßá ne≈ sheet¼á i⌠ wil∞ ste≡ througΦ thσ remaininτá bottoφá margiε ì
  427. line≤á anΣá theε begiε thσ ne≈ page«á Thσ to≡ margiε oε tha⌠ pagσá wil∞á bσ ì
  428. large≥ thaε intended¼á anΣ wil∞ causσ troublσ witΦ thσ bottoφ margiε again« ì
  429. Thσá matte≥á wil∞ snowbal∞ witΦ eacΦ pagσ iµ yo⌡ pu⌠ ofµá t∩á d∩á somethinτ ì
  430. abou⌠á i⌠á - ßá commoεá failinτá iεá compute≥á programming«áá S∩á thσá mos⌠ ì
  431. appropriatσá numbe≥ t∩ se⌠ i≤ 0«á Oncσ yo⌡ havσ se⌠ thσ numbe≥ oµ line≤ pe≥ ì
  432. page¼á yo⌡ automaticall∙ ge⌠ ß bottoφ margin« Thσ printe≥ wil∞ sto≡ becausσ ì
  433. thσ pagσ i≤ completed¼ anΣ yo⌡ caε inser⌠ ß ne≈ sheet.
  434.  
  435. Afte≥á typinτ ═ - numbe≥ oµ line≤ pe≥ pagσ - inser⌠ 50¼á sincσ yo⌡ wan⌠á t∩ ì
  436. prin⌠á onl∙ 5░ line≤ oε thσ page«á Yo⌡ no≈ havσ you≥  bottoφá margin¼á you≥ ì
  437. printe≥á wil∞á wai⌠ fo≥ thσ nex⌠ page¼á whicΦ wil∞ looδá identica∞á t∩á thσ ì
  438. previou≤ one.
  439.  
  440. Typσá ╦á fo≥ lef⌠ margin¼á inser⌠ 10¼á you≥ selecteΣ  numbe≥ oµ column≤á a⌠ ì
  441. whicΦá thσ bod∙ oµ thσ writinτ shoulΣ start«á ╠ - righ⌠ margiε i≤á adjusteΣ ì
  442. witΦ thσ linσ length«á Inser⌠ 60/¼ sincσ yo⌡ wan⌠ t∩ havσ you≥ line≤ a≤ lonτ ì
  443. a≤ that« ╬ - pagσ offse⌠ take≤ thσ entirσ bod∙ oµ writinτ anΣ transpose≤ i⌠ ì
  444. thσá numbe≥á oµ column≤ giveε herσ t∩ thσ right«á Sincσá yo⌡á havσá alread∙ ì
  445. determineΣá thσ lef⌠ margin¼á inser⌠ ß 0«á Oncσ yo⌡ havσ ß tria∞ ruε oµ thσ ì
  446. page¼á yo⌡ caε usσ thi≤ feature¼á iε additioε t∩ thσ margiε adjustment¼á t∩ ì
  447. manipulatσ thσ positioε oµ thσ writing«á Finall∙ pres≤ ╪ t∩ leavσ thσá men⌡ ì
  448. anΣ returε t∩ thσ installatioε menu.
  449.  
  450. Typσ ─ anΣ yo⌡ ge⌠ thσ printe≥ installatioε details«á Typσ ─ agaiε t∩ reacΦ ì
  451. thσá initializatioεá feature«á Typσ ├ fo≥ change¼á inser⌠ thσ codσ fo≥á thσ ì
  452. escapσ character¼á thσ codσ fo≥ italic≤ anΣ tha⌠ fo≥ NLQ« Star⌠ eacΦ se⌠ oµ ì
  453. code≤á  witΦá thσ escapσ characte≥ iµ required«á The∙ arσ iεá you≥á printe≥ ì
  454. manual« Thσ codσ fo≥ NL╤ anΣ ß certaiε fon⌠ ma∙ bσ ß singlσ se⌠ oµ numbers« ì
  455. Printer≤á arσ differen⌠ iε tha⌠ respect«á Yo⌡ havσ no≈ tolΣ thσ prograφá t∩ ì
  456. insta∞ thσ italic≤ fon⌠ anΣ nea≥ lette≥ qualit∙ printinτ ever∙ timσ yo⌡ usσ ì
  457. thi≤ versioε oµ WORDSTAR«á True¼á thosσ feature≤ caε bσ implementeΣ a⌠á an∙ ì
  458. time¼á bu⌠ iµ the∙ havσ beeε installed¼á the∙ arσ availablσ froφ thσ start¼ ì
  459. anΣ yo⌡ caε concentratσ oε you≥ writing.
  460.  
  461. Thi≤á typσá oµ initializatioε ha≤ onσ drawback║á Yo⌡ canno⌠á implemen⌠á an∙ ì
  462. othe≥ font¼á sincσ thσ initializatioε wil∞ overridσ an∙ othe≥ command«á Yo⌡ ì
  463. canno⌠á usσ Elite¼á Pica¼á doublσ width¼á emphasised¼á etc«á  Normall∙á thσ ì
  464. initializatioεá i≤ se⌠ a⌠ ─ (escapσ character⌐ 4░ (rese⌠ printer)¼á ßá codσ ì
  465. whicΦ clear≤ thσ printe≥ oµ an∙ previou≤ settings.
  466.  
  467. ShoulΣ yo⌡ wisΦ t∩ changσ an∙ oµ thσ othe≥ features¼á yo⌡ arσ freσ t∩ d∩ s∩ ì
  468. now«á O≥á yo⌡ ma∙ wan⌠ t∩ leavσ thσ initializatioε codσ a≤ i≤ anΣ implemen⌠ ìèfeature≤ b∙ usinτ thσ user-defineΣ facilities«  Particularl∙ thσ latte≥ caε ì
  469. bσ useΣ t∩ adΣ additiona∞ codes¼á bu⌠ als∩ other≤ caε bσ used¼á thσ onσ fo≥ ì
  470. two-colou≥ ribbon≤ fo≥ instance« However¼ iµ yo⌡ d∩ that¼ yo⌡ havσ t∩ star⌠ ì
  471. manipulatinτá you≥á prograφá agaiεá beforσá printinτá - whicΦá defeat≤á thσ ì
  472. intentioε oµ thi≤ article.
  473.  
  474. Oncσ yo⌡ havσ finisheΣ witΦ thσ installation¼ savσ thσ prograφ oε disk« Seσ ì
  475. ho≈ i⌠ works« Iµ therσ i≤ anythinτ no⌠ t∩ you≥ liking¼ modif∙ it« I⌠ ma∙ bσ ì
  476. ßá littlσ bi⌠ oµ bothe≥ now¼á bu⌠ thσ timσ saved¼á anΣ thσá eliminatioεá oµ ì
  477. worr∙á durinτá writinτá tha⌠á thing≤ ma∙ no⌠ turεá ou⌠á a≤á yo⌡á wish¼á pa∙ ì
  478. dividends«á Bu⌠á theεá - tha⌠á i≤á thσ purposσ oµá havinτá aεá installatioε ì
  479. program«á Iµ yo⌡ kno≈ you≥ compute≥ anΣ you≥ printe≥ thoroughly¼ yo⌡ caε d∩ ì
  480. almos⌠ wonder≤ witΦ thσ facilitie≤ provided.
  481.  
  482.  
  483. FOR SALE $$  FOR SALE $$  FOR SALE $$
  484.  
  485. 128δá SB├á witΦá dua∞ 5.25ó drives¼á greeε nomito≥ anΣ Logiteπá multΘá modσ ì
  486. printer«á V.G« Cond« $1250.0░ o≥ $900.0░ withou⌠ printer« Softwarσ include≤ ì
  487. W'star¼á M'plan¼á Flashprint¼á Simpl∙ D┬ anΣ more«á Al∞ manual≤ anΣ lot≤ oµ ì
  488. Catcher≤ anΣ Onlines«á Wil∞ dem∩ usagσ iµ required« Contac⌠ Barr∙ Nortoε oε ì
  489. phone A/H 232 - 1191 or B/H on 810 - 2229
  490.  
  491. 300 - 1200/75 modem with handset. $80.00 P.Cond. Micheal Woodward 763  4046
  492.  
  493. HELP ??  HELP ??  HELP ??  HELP ??
  494.  
  495. ╔ neeΣ hel≡ witΦ Kermi⌠ (no⌠ thσ frog)«á Wheε ╔ ruε Kermi⌠ oε m∙ automodem¼ ì
  496. thσá transmi⌠ ligh⌠ come≤ oε eveε beforσ ╔ havσ toucheΣ ß key«á I⌠ wil∞ no⌠ ì
  497. work at all.  Phill Mc   751 1210  
  498.  
  499. 
  500. From:    Mirko Fluher    To:      All        Subject: modula2
  501. 
  502. Iµá yo⌡ arσ interesteΣ iε Modula▓ (iµ yo⌡ arσ usinτ Pasca∞ yo⌡ wil∞á be...⌐ ì
  503. havσ ß looδ a⌠ thσ filσ 'T-MOD2.INF'« Regards¼ Mirko.
  504. 
  505. From:    Frank Jones     To:      All   Subject: 256 TC Kermit
  506. 
  507. Doe≤ anyonσ havσ ß versioε oµ Kermi⌠ whicΦ wil∞ ruε oε ß 256TC┐á ╔á alread∙ ì
  508. havσá ßá versioε calleΣ BEKERM41.CO═ whicΦ present≤ aεá openinτá menu¼á bu⌠ ì
  509. won'⌠á g∩ an∙ furthe≥ a≤ i⌠ doesn'⌠ recognisσ thσ ne≈ keyboard«á Iµá anyonσ ì
  510. ha≤á sucΦá ß versioε (o≥ caε sugges⌠ ho≈ BEKERM41.CO═ coulΣ bσ modified⌐á ╔ ì
  511. woulΣ bσ mos⌠ appreciative« Franδ Jone≤ (609)
  512. 
  513. From:    Frank Jones     To:      All   Subject: New Microbee developments
  514. 
  515. A⌠á ßá recen⌠ in-servicσ activit∙ iε Geelong¼á Keε Robertsoε displayeΣá thσ ì
  516. variou≤á ne≈ product≤ a≤ advertiseΣ iε tha⌠ recen⌠ issuσ oµá "Onlineóá (yo⌡ ì
  517. know¼á tha⌠ whicΦ i≤ littlσ morσ thaε aε advertisinτ brochure)« ┴ numbe≥ oµ ì
  518. ne≈ product≤ arσ iε thσ pipelinσ includinτ thσ "Digi-Scan"¼ ß devicσ which¼ ì
  519. wheεá fitteΣá t∩á ß Microbeσ MB-serie≤ printer¼á convert≤ i⌠ t∩á ßá picturσ ì
  520. scanne≥ s∩ tha⌠ picture≤ caε bσ digitizeΣ anΣ useΣ iε Electriπá Paintbrush« ì
  521. Pricσ mentioneΣ wa≤ somewherσ iε thσ vicinit∙ oµ $300«á Also¼á looδ ou⌠ fo≥ ì
  522. somethinτ calleΣ ß "DOS-boxó whicΦ i≤ ß bo° abou⌠ thσ sizσ oµ ß CIA┬ drive. ì
  523. I⌠á contain≤ aε MS-DO╙ 3.5ó drivσ anΣ aε IB═ X╘ board¼á tha⌠ caε attacΦá t∩ ì
  524. thσá 256T├á anΣ use≤ it≤ keyboarΣ (apparentl∙ thσ keyboarΣ scanninτ i≤á thσ ì
  525. samσ a≤ IBM⌐ Looδ ou⌠ fo≥ anothe≥ issuσ oµ "Onlineó anΣ somσá announcement≤ ì
  526. arounΣ 2▓ MarcΦ t∩ coincidσ witΦ ß compute≥ sho≈ (PC88?⌐ iε Sydney.è                                SOUNDEX.MWB
  527.  
  528.        Thi≤ i≤ ß BASI├ versioε oµ ß Z8░ M╠ program¼á whicΦ appeareΣ iεá thσ ì
  529. Septembe≥á '8╡ A.P.C.¼á anΣ whicΦ ╔ couldn'⌠ ge⌠ t∩ worδ - hencσ thσá BASI├ ì
  530. version.
  531.  
  532. Thσá Sounde°á codσ wa≤ firs⌠ useΣ iε thσ 189░ U.S«á census¼á a≤ ß mean≤á oµ ì
  533. codinτá inexac⌠á datßá - t∩ dea∞ witΦ thσá name≤á oµá semi- anΣá illiteratσ ì
  534. people«á  I⌠á work≤ b∙ encodinτ name≤ o≥ simila≥ datß a≤ ß sequencσ oµá onσ ì
  535. lette≥á anΣá threσ digits¼á witΦ truncatioε o≥ zer∩ paddinτá a≤á necessary«  ì
  536. Encodinτ ß hearΣ namσ follow≤ si° rules:
  537.  
  538. 1.  Write the name as you think it is spelt.
  539. 2.  Retain the first letter.
  540. 3.  Ignore spaces, punctuation and non-codable letters.
  541. 4.  Replace second and subsequent letters by their group code -
  542.        Group 1:BFPV      Group 2:CGJKSXZ   Group 3:DT
  543.        Group 4:L         Group 5:MN        Group 6:R
  544. 5.  Delete consecutive repeat digits.
  545. 6.  Truncate or append zeroes to make up four characters.
  546.  
  547. This produces identical codes for phonetically similar names, e.g:
  548.        J500 = Jamie, Jemima, John, Joan.
  549.        T320 = Thaddaeus, Thaddeus, Theodosius.
  550.        S363 = Stewart, Stuart.
  551.  
  552. ╔á havσ encodeΣ m∙ wholσ mailinτ anΣ telephonσ list¼á s∩ thi≤ help≤ mσ makσ ì
  553. sensσá oµ thσ stufµ tha⌠ end≤ u≡ oε m∙ answering-machine«á Michae∞á Ingall¼ ì
  554. No« 195«      alia≤ M24░ I524.
  555.  
  556. 00010 REM **        SOUNDEX CODE, vs 1.2, January, 1988       **  √░╣╕²
  557. 00020 REM ** M. Ingall, 20 Francis Street, Tatura, VIC., 3616 **  √░╣╣²
  558. 00100 POKE 257,1:CLS  √▓┤╡²
  559. 00110 INVERSE:CURS 25,2:PRINT " SOUNDEX SYSTEM ":NORMAL  √▒▓╕²
  560. 00120 CURS 1,4:PRINT"SOUNDEX   converts into a truncated four-digit code 
  561.       the receivedsound of names.  If you make an error in typing a name 
  562.       press ''@''BE EXACT!  <BACKSPACE> and ";  √░▓╖²
  563. 00130 PRINT"retyping will foul up the code."  √▒╡░²
  564. 00140 CURS 13,11:PRINT"Enter name (press <RETURN> to finish)"  √░│╢²
  565. 00150 CURS 23,14:PRINT "Code:"  √▒╢▒²
  566. 00160 CLEAR  √▓╡┤²
  567. 00170 CURS 0  √░▒│²
  568. 00180 DIM N0(20), N2(20) : N = 1  √▒╣╢²
  569. 00190 REM *** Enter name ***  √▒╡╡²
  570. 00200 FOR I = 1 TO 20  √░╕╡²
  571. 00210 A0$=KEY: IF A0$ = "" THEN 210  √░▒╕²
  572. 00220 CURS 28+I,13: PRINT A0$;: LET N0$(I) = A0$  √░░┤²
  573. 00230 IF A0$="@"THEN RUN  √▒╡╖²
  574. 00240 IF A0$=CHR(13) THEN NEXT* I 260  √░┤╢²
  575. 00250 N=N+1:NEXT I  √▒│▒²
  576. 00260 REM *** Convert to STRING and encode ***  √▒╡╡²
  577. 00270 X0$ ="": FOR I = 1 TO N:LET X0$ = X0$ + N0$(I):NEXT I  √▒┤╖²
  578. 00280 FOR I = 2 TO LEN(X0$)  √▓░▒²
  579. 00290 IF N0$(I)=N0$(I-1) THEN LET N0$="":GOTO370  √▒╖│²
  580. 00300 IF N0$(I)="B" OR N0$(I)="F" OR N0$(I)="P" OR N0$(I)="V" THEN LET
  581.       N0$(I)="1":GOTO 370  √░╕╕²
  582. 00310 IF N0$(I)="C" OR N0$(I)="G" OR N0$(I)="J" OR N0$(I)="K" OR 
  583.       N0$(I)="S" OR N0$(I)="X" OR N0$(I)="Z" THEN LET 
  584.       N0$(I)="2":GOTO 370  √▒░┤²è00320 IF N0$(I)="D" OR N0$(I)="T" THEN LET N0$(I)="3": GOTO 370  √▒╣╕²
  585. 00330 IF N0$(I)="L" THEN LET N0$(I)="4":GOTO 370  √▒╕░²
  586. 00340 IF N0$(I)="M" OR N0$(I)="N" THEN LET N0$(I)="5": GOTO 370  √▓░╖²
  587. 00350 IF N0$(I)="R" THEN LET N0$(I)="6":GOTO 370  √▓▒░²
  588. 00360 LET N0$(I)=""  √░╡╕²
  589. 00370 NEXT I  √░│╕²
  590. 00380 N1$="": FOR I = 1 TO LEN(X0$)  √▒▒▒²
  591. 00390 N1$ = N1$ + N0$(I)  √▒╡┤²
  592. 00400 NEXT I  √░│┤²
  593. 00410 IF LEN(N1$) < 2 THEN 530  √░┤╖²
  594. 00420 FOR I = 1 TO LEN(N1$)  √▒╖╡²
  595. 00430 N2$(I) = N1$(;I,I)  √░│┤²
  596. 00440 NEXT I  √░│╕²
  597. 00450 FOR I = 2 TO LEN(N1$)  √▒╖╖²
  598. 00460 IF N2$(I) = N2$(I-1)THEN 470 ELSE 480  √▒╣▓²
  599. 00470 N2$(I) = ""  √░╣╕²
  600. 00480 NEXT I  √░┤▓²
  601. 00490 REM *** Convert bits and pieces back to a STRING ***  √▒╡╕²
  602. 00500 N3$="": FOR I = 1 TO LEN(N1$): N3$ = N3$ + N2$(I): NEXT I  √░│▓²
  603. 00510 IF LEN(N3$) > 4 THEN LET N3$ = N3$(;1,4)  √▓┤▒²
  604. 00520 GOTO 550  √▒░╖²
  605. 00530 N3$ = N1$  √░┤░²
  606. 00540 REM *** Add dummy 0s to make up four digits ***  √▒╡╢²
  607. 00550  IF LEN(N3$)=1 THEN LET N3$ = N3$ + "000"  √░░╡²
  608. 00560  IF LEN(N3$)=2 THEN LET N3$ = N3$ + "00"  √▓┤╖²
  609. 00570  IF LEN(N3$)=3 THEN LET N3$ = N3$ + "0"  √▓│░²
  610. 00580 CURS 29,14:PRINT N3$  √▒░▓²
  611. 00590 CURS 13,16:PRINT"Need a hard copy?  (Y or N) ";  √░╢╖²
  612. 00600 Z7$=KEY:IF Z7$= "" THEN 600  √░┤╢²
  613. 00610 IF Z7$ <> "Y" THEN 660  √▒╡╣²
  614. 00620 CURS 13,16:PRINT "Switch on the printer                 ";  √░╢╡²
  615. 00630 IF Z7$="Y" THEN OUTL#1  √▒▓╣²
  616. 00640 LPRINT X0$  √░╢╣²
  617. 00650 LPRINT N3$  √░╡╖²
  618. 00660 CURS 13,16:PRINT "                                      ";  √░╕▓²
  619. 00670 CURS 13,16:PRINT"Another name? (Y or N) ";  √▓▓╕²
  620. 00680 Z7$=KEY:IF Z7$ = "" THEN 680  √░┤╢²
  621. 00690 IF Z7$ <> "Y" THEN 710  √▒╢╡²
  622. 00700 RUN  √▒│╡²
  623. 00710 END  √▒░╢²
  624.  
  625.  
  626. FOR SALE $$  FOR SALE $$  FOR SALE $$
  627.  
  628. Microbeσ premiuφ witΦ ▓ ° 3.5ó drives¼ Hire≤ Colou≥ monitor¼ enormou≤ rangσ ì
  629. oµ softwarσ includinτ W'Star¼ M'plan¼ educationa∞ program≤ anΣ games« Stil∞ ì
  630. in warranty period. $1400.00    Contact Kevin Davies on 306 - 4391
  631.  
  632. Microbeσ CIAB« 3.5"¼ Systeφ disks¼ Ful∞ manuals¼ Learninτ caε bσ fuε (word≤ ì
  633. ª numbers)¼á Turb∩ Pasca∞ Ver│ ª manual¼á BM├ mon∩ screen« $500.0░ Als∩ BM├ ì
  634. 8░ Micrographic≤ printe≥ $200.0░      Contac⌠ Brucσ Northway« 43┤ - 4652
  635.  
  636. 
  637. From:    Jonathan Wells  To:  All       Subject: Z-CMD.LBR
  638. 
  639. CoulΣ someonσ tel∞ mσ compile≥ wa≤ useΣ t∩ compilσ Z-CMD┐á ╔ havσ tr∙ usinτ ì
  640. ZMA├ anΣ ZLIN╦ anΣ havσ beeε unsuccessful«á P.S« ╔ wan⌠ t∩ modifeΣ thσ codσ ì
  641. t∩ usσ witΦ m∙ BBS.
  642. è                               LAST MEETING
  643.  
  644. A⌠á thσ las⌠ meetinτ thσ presiden⌠ detaileΣ thσ curren⌠ competitions«á Mikσ ì
  645. Thompsoεá wa≤á calleΣ oε t∩ clarif∙ thσá Happ∙á Number≤á competition«á Thi≤ ì
  646. generateΣá ßá prolongeΣ discussioε froφ thσ floor¼á witΦ humorou≤á comment≤ ì
  647. froφ M≥ 'Bazaarº throwε iε t∩ furthe≥ confusσ thσ masses.
  648.  
  649. Discussioε abou⌠ thσ Onlinσ 'Summe≥ Editionº followed¼á witΦ thσá presiden⌠ ì
  650. urginτ al∞ subscriber≤ t∩ writσ letter≤ oµ complain⌠ t∩ thσ editor.
  651.  
  652. Unfortunatel∙á thσ Bulletiε BoarΣ demonstratioε wa≤ ß non-event«á Thσ syso≡ ì
  653. lef⌠ i⌠ a⌠ homσ a≤ therσ wa≤ n∩ wa∙ t∩ connec⌠ i⌠ t∩ anothe≥ systeφ t∩ givσ ì
  654. ß decen⌠ demo« Howeve≥ wσ werσ informeΣ tha⌠ currentl∙ therσ arσ onl∙ abou⌠ ì
  655. ╕ -» 1░ call≤ pe≥ da∙ anΣ yo⌡ shoulΣ bσ ablσ t∩ loτ oε a⌠ almos⌠ an∙ time.
  656.  
  657. Iε thσ loungσ areß ß trasΦ anΣ treasurσ nigh⌠ wa≤ wel∞ underwa∙ witΦ plent∙ ì
  658. oµá gooΣ bargain≤ t∩ bσ had«á Stevσ Jepsoε wa≤ offerinτ olΣ Beσá keyboards¼ ì
  659. RO═ anΣ STARNET¼ a⌠ almos⌠ givσ awa∙ prices.
  660.  
  661. Russel∞á Crosse≥á wa≤á holdinτ anothe≥ wel∞ attendeΣá TURB╧á pasca∞á lessoε ì
  662. (No3)«á Hσá mus⌠ bσ teachinτ thσ righ⌠ stufµ becausσ thσ 1░ t∩ 2░ iεá clas≤ ì
  663. werσ stil∞ learninτ wel∞ afte≥ 1░ o'clock!
  664.  
  665. Thσ Bazaa≥ haΣ somσ 3.5ó disδ boxe≤ (hold≤ 80⌐ oε salσ fo≥ $20¼á a≤ wel∞ a≤ ì
  666. thσ norma∞ bargains« Joke≤ froφ RoΣ arσ par⌠ oµ thσ service.
  667.  
  668. A≤á usua∞á thσá Chri≤ anΣ Greτ haΣ thσ Publiπ Domaiεá softwarσá servicσá iε ì
  669. operation«á Fo≥ $▒ ß P─ disπ i≤ copieΣ  t∩ you≥ formatteΣ disc« ┴ cataloguσ ì
  670. i≤ availablσ oε pape≥ t∩ hel≡ yo⌡ makσ you≥ selection.
  671.  
  672. Hopσ t∩ seσ yo⌡ a⌠ thσ nex⌠ meeting« Regard≤ Pete≥ Burbidge.
  673.  
  674. 
  675. From:    Chris Richey    To:  All       Subject: EPROM PROGAMMER ETI 
  676. DOE╙á ANYON┼á HAV┼á TH┼ *.CO═ PROGRAMM┼ VERSIO╬ O╞ THI╙á PROGRA═á FO╥á CIA┬ ì
  677. MICROBEEE╙ ╔ CAN'╘ GE╘ TH┼ ORIGINA╠ ET╔ VERSIO╬ T╧ WOR╦ O╬ M┘ CHOOK«á LEAV┼  ì
  678. MESSAG┼ O╬ TH┼ BOAR─ O╥ CAL╠ M┼ O╬ 46╖ 634╢ AN┘ TIM┼ «á ╔ HAV┼ A╬ ANSWERIN╟ ì
  679. MACHIN┼ S╧ LEAV┼ YOU╥ NUMBE╥ AN─ ╔ WIL╠ CAL╠ YO╒ BACK.
  680. 
  681. From:    Michael Hooke        To:  All       Subject: MODEM -> IBM
  682. Doe≤á anyonσá kno≈ ho≈ t∩ conver⌠ ß Beemodeφ s∩ i⌠ wil∞ worδ oε aε IB═á anΣ ì
  683. als∩ wha⌠ pin≤ havσ t∩ bσ connec⌠ t∩ connec⌠ ß beσ t∩ aε IB═ viß thσ seria∞ ì
  684. port.     Any Help Appreciated     Thanks    Michael Hooke
  685. 
  686. From:    Warren Wilson        To:  All       Subject: MICROBEE PROGRAM
  687. Therσ i≤ ß musiπ prograφ iε .MW┬ pulisheΣ iε thσ Catche≥ July¼ 198┤ Pg« 13« ì
  688. Ha≤ anyonσ go⌠ i⌠ working┐á ╔ cannot«á Iµ anyonσ ha≤ thi≤ workinτ coulΣ yo⌡ ì
  689. pleasσ uploaΣ it« 
  690. 
  691. From:    Glen Logan      To:  All       Subject: formats.lbr
  692. Iµ anyonσ ha≤ ß cop∙ oµ FORMATS.LB╥ woulΣ the∙ minΣ uploadinτ i⌠ again┐áì
  693. 
  694. From║á    Pete≥ BurbidgσáTo║áAl∞  Subject║BEEARTISTI├ » GRSAV┼áFIL┼ FORMATS
  695. I≤á therσá anybod∙á ou⌠á therσ wh∩ ha≤ an∙ ideß oµá thσá filσá format≤á fo≥ ì
  696. BEEARTISTI├á anΣá GRSAV┼ file≤ (PREMIU═ versions)«á ╔ wan⌠ t∩á bσá ablσá t∩ ì
  697. transfe≥á betweeεá Basiπ anΣ BeeArtistiπ anΣá vice-versa«á Thσá BeeArtistiπ ì
  698. addenduφ fo≥ thσ Premiuφ versioε show≤ i⌠ filσ structure¼ bu⌠ I'φ a⌠ ß los≤ ì
  699. a≤á t∩ ho≈ t∩ turε thi≤ int∩ ß GRSAV┼ format¼á o≥ turε ß GRSAV┼ filσ int∩ ß ì
  700. BeeArtistiπ format. Is there a UTILITY I can use ? Help please!è                    Programming the 256 TC Function Keys
  701.  
  702.                           by Frank Jones (609)
  703.  
  704. Followinτ thσ informatioε publisheΣ iε thσ "Catcher"¼á  Sept«á  1987¼á herσ ì
  705. arσ tw∩ method≤ ╔ havσ useΣ t∩ prograφ thσ 25╢ T├ functioε keys.
  706.  
  707. Thi≤ methoΣ (fo≥ thosσ wh∩ prefe≥ thσ compute≥ t∩ d∩ al∞  thσ work!⌐  i≤ t∩ ì
  708. usσá thσá accompanyinτá BASI├ listing«á  ╔ havσ useΣ BASI├  a≤ al∞á 25╢á T├ ì
  709. owner≤ shoulΣ havσ thi≤ oε thei≥ maste≥ disk« 
  710.  
  711. Iµá yo⌡á arσá typinτá thσ listinτ yo⌡ wil∞ noticσ tha⌠á nonσá oµá thσá  RE═ ì
  712. statement≤á  arσá multiple≤ oµ 1░ - thi≤ enable≤ yo⌡ t∩ leavσ ou⌠ thσá  RE═ ì
  713. statements¼á  iµ  yo⌡  wish¼á  anΣ ente≥ thσ prograφ statement≤ b∙á  typinτ ì
  714. "AUT╧ 100,10".
  715.  
  716. Notσá tha⌠ contro∞ character≤ canno⌠ bσ entereΣ directly¼á  a≤  BASI├á use≤   ì
  717. certaiε  contro∞  character≤  (notabl∙  control-C⌐  fo≥  it≤  owε purposes«  ì
  718. T∩á ente≥ these¼á typσ thσ "^ó o≥ "circumflexó characte≥ first¼á e.g«á  fo≥  ì
  719. "control-Có typσ "^Có o≥ "^c"«á  Thσ prograφ convert≤ thesσ t∩ thσá correc⌠ ì
  720. contro∞ character≤ beforσ savinτ theφ iε ß file.
  721.  
  722. Eithe≥á  oµá thσá abovσ method≤ wil∞ producσ ß ".COMó filσ whicΦá coulΣá bσ  ì
  723. includeΣá  a≤á  onσá oµ thσ "USRó functions¼á  o≥ useΣá  a≤á  thσá  initia∞ ì
  724. commanΣ executeΣ wheε thσ disδ i≤ booteΣ (se⌠ b∙ INIT.COM).
  725.  
  726.                            --------------------
  727.  
  728. Thi≤á listing¼á thσá documentatioεá anΣ thσ machinσ codσá versioεá oµá thi≤ ì
  729. prograφ i≤ oε disδ 086« ED.
  730.  
  731.                            --------------------     
  732.  
  733.                                 FUNKEYS.MWB
  734.  
  735. 010 REM FNKEYS.MWB - Frank Jones (609)  21/3/88  √░╣╕²
  736. 100 CLS: CLOSE 6  √░╣│²
  737. 110 DIM A0(12)  √▒╡╣²
  738. 120 CURS 17,1: INVERSE: 
  739.      PRINT " Program 256 TC Function Keys ": NORMAL  √▓┤╕²
  740. 130 PRINT   √░│╖²
  741. 140 GOSUB 630: REM Instructions  √▓┤╕²
  742. 145 REM  √▒╡╖²
  743. 146 REM --------- Enter function key definitions ------------  √▒╡┤²
  744. 147 REM  √▒╡╡²
  745. 150 PRINT "Please type key definitions for ... "  √▒▒╖²
  746. 160 FOR I = 1 TO 12  √░╣│²
  747. 170   A0$(I) = ""  √░╕▓²
  748. 180   PRINT "F";I; " ---> ";  √▓░│²
  749. 190   K0$ = KEY: IF K0$ = "" THEN 190  √░▒╕²
  750. 195   REM --- Look for <CR> ---  √▒╢░²
  751. 200   IF (ASC(K0$) = 13) AND (LEN(A0$(I)) > 0) THEN 250  √░▓▓²
  752. 205   REM --- Filter out control characters ---  √▒╡┤²
  753. 210   IF ASC(K0$) < 32 THEN PLAY 1: 
  754.       PRINT "Control characters may not be entered directly.":GOTO 170 √▒░┤²
  755. 220   A0$(I) = A0$(I) + K0$  √░┤╡²
  756. 230   PRINT K0$;  √░░░²
  757. 240   GOTO 190  √░╣╕²
  758. 250   PRINT  √░┤░²è260 NEXT I  √░│╕²
  759. 265 REM  √▒╢░²
  760. 266 REM -------------- Review -------------------  √▒╡╖²
  761. 267 REM  √▒╡╕²
  762. 270 CLS  √▒▓░²
  763. 280 PRINT"Function key definitions are ... "  √▒╕│²
  764. 290 FOR I = 1 TO 12  √░╣╡²
  765. 300   PRINT "F";I; " = "; A0$(I)  √▒╖▓²
  766. 310 NEXT I  √░│▓²
  767. 320 INPUT "Type ''C'' to change, ''S'' to save ";C0$  √░▓│²
  768. 330 IF C0$ = "C" OR C0$ = "c" THEN 120  √▒╡┤²
  769. 340 IF C0$ <> "S" AND C0$ <> "s" THEN 320  √░╖░²
  770. 345 REM  √▒╡╣²
  771. 346 REM -------- Deal with control characters ----------  √▒╡╢²
  772. 347 REM  √▒╡╖²
  773. 350 DIM C0(12)  √▒╢│²
  774. 360 FOR I = 1 TO 12  √░╣╡²
  775. 370   C0$(I) = ""  √░╕▓²
  776. 380   A1$ = A0$(I)  √▒╢╡²
  777. 390   F = 0  √░╕░²
  778. 400   FOR J = 1 TO LEN(A1$)  √▒╕│²
  779. 410     A2$ = A1$(;J,J)  √░╡╖²
  780. 420     IF A2$ = "^" THEN LET F=1: GOTO 470: REM Skip "^" char.  √▒▓╢²
  781. 430     IF F = 0 THEN 460: REM Must be "normal" character  √▓┤░²
  782. 440     IF A2$ > "a" THEN LET C=(ASC(A2$) - 32): A2$ = CHR(C)  √░╕╢²
  783. 450     C = (ASC(A2$) - 64): A2$= CHR(C): F = 0  √░┤▓²
  784. 460     C0$(I) = C0$(I) + A2$  √░│╡²
  785. 470   NEXT J  √░│╕²
  786. 480 NEXT I  √░┤▓²
  787. 485 REM  √▒╢┤²
  788. 486 REM -------------- Write file to disk ----------------  √▒╢▒²
  789. 487 REM  √▒╢▓²
  790. 490 INPUT "Filename (.COM assumed) ---> ";F0$  √▒╖╡²
  791. 500 F0$ = F0$ + ".COM"  √▒│░²
  792. 510 OPEN "O", 6, F0$  √▒┤▒²
  793. 520 OUTL#6  √░╡▓²
  794. 530 FOR I = 1 TO 9  √░▓▓²
  795. 540   READ D  √▓┤╖²
  796. 550   LPRINT CHR$(D);  √░╕╢²
  797. 560 NEXT I  √░┤▒²
  798. 565 REM ---- M/C to set XBIOS call # 16 (set function keys) ---  √▒╢│²
  799. 570 DATA 33, 9, 1, 62, 16, 239, 195, 0, 0  √░┤╣²
  800. 575 REM ---- Write function key definitions ----  √▒╢▓²
  801. 580 FOR I = 1 TO 12  √░╣╣²
  802. 590   LPRINT CHR$(LEN(C0$(I))); C0$(I);  √░╖╕²
  803. 600 NEXT I  √░│╢²
  804. 610 OUTL#1  √░┤╡²
  805. 620 CLOSE 6:END  √░╕▒²
  806. 625 REM  √▒╢░²
  807. 626 REM -------------- Instructions ------------------  √▒╡╖²
  808. 627 REM  √▒╡╕²
  809. 630 PRINT"This program enables the 256 TC Function keys to be programmed."
  810. 640 PRINT"Control characters may not be entered directly, but can be"  
  811. 650 PRINT"entered by typing the ''^'' character, e.g. control-C may be"
  812. 660 PRINT"entered by typing ''^'' then ''C''. Similarly, the <RETURN> key"
  813. 670 PRINT "can be entered by typing''^M''."  √▒│╡²
  814. 680 PRINT \\ "Press any key to continue."  √▓┤╕²
  815. 690 Z0$ = KEY: IF Z0$ = "" THEN 690  √░╡▓²
  816. 700 CLS: RETURN  √▒╖│²è                         MBUG BULLETIN BOARD USAGE
  817.  
  818. A⌠á thσá las⌠ meetinτ ╔ wa≤ askeΣ wheε wa≤ thσ bes⌠ timσ t∩ loτ oεá t∩á thσ ì
  819. board«á Belo≈ i≤ ß couplσ oµ graph≤ tha⌠ sho≈ wheε ma∙ bσ thσ bes⌠ timσá t∩ ì
  820. usσ thσ board« I hopes this helps you when planning your calls.  ED.ì
  821.  
  822.                       System utilization percentages:
  823.  
  824.                      Hours  Mins          
  825.      Date      Calls  Used  /Call  User%   Busy%   Idle%
  826. -------------- ----- ------ ----- ------- ------- -------
  827.   Sat  06 Feb    17    5.9    21   24.4%   24.4%   75.6%
  828.   Sun  07 Feb    10    2.2    13    9.0%    9.0%   91.0%
  829.   Mon  08 Feb    20    4.4    13   18.5%   18.5%   81.5%
  830.   Tue  09 Feb    24    6.0    15   25.0%   25.0%   75.0%
  831.   Wed  10 Feb    16    4.6    17   19.1%   19.1%   80.9%
  832.   Thu  11 Feb    22    3.6    10   15.1%   15.1%   84.9%
  833.   Fri  12 Feb    20    5.8    17   24.2%   24.2%   75.8%
  834.   Sat  13 Feb     7    3.1    27   13.0%   13.0%   87.0%
  835.   Sun  14 Feb     5    2.0    24    8.3%    8.3%   91.7%
  836.   Mon  15 Feb    12    3.7    19   15.4%   15.4%   84.6%
  837.   Tue  16 Feb    19    5.1    16   21.2%   21.2%   78.8%
  838.   Wed  17 Feb    20    5.6    17   23.2%   23.2%   76.8%
  839.   Thu  18 Feb     4    1.2    18    4.9%    4.9%   95.1%
  840.   Sat  20 Feb    15    3.1    12   12.8%   12.8%   87.2%
  841.   Sun  21 Feb    18    4.7    16   19.4%   19.4%   80.6%
  842.   Mon  22 Feb    21    7.3    21   30.5%   30.5%   69.5%
  843.   Tue  23 Feb     9    2.5    17   10.5%   10.5%   89.5%
  844.   Wed  24 Feb    14    2.6    11   10.9%   10.9%   89.1%
  845.   Thu  25 Feb    16    4.6    17   19.1%   19.1%   80.9%
  846.   Fri  26 Feb    24    4.9    12   20.2%   20.2%   79.8%
  847.   Sat  27 Feb    20    4.3    13   17.8%   17.8%   82.2%
  848.   Sun  28 Feb    16    3.5    13   14.4%   14.4%   85.6%
  849.   Mon  29 Feb    15    4.4    17   18.2%   18.2%   81.8%
  850. -------------- ----- ------ ----- ------- ------- -------
  851.  24 day avgs:    15    4.0    16   16.5%   16.5%   83.5%
  852.  
  853.   %
  854.  90| ####### ##                  24-day average system utilization statistics:
  855.  85| ###########            
  856.  80|############ # #  #    #
  857.  75|################  ######     In use by patrons:         16.5%
  858.  70|################# ######     Down for mail/maintenance:  0.0%
  859.  65|########################                                -----
  860.  60|########################     Total system utilization:  16.5%
  861.  55|########################
  862.  50|########################     Total system idle time:    83.5%
  863.  45|########################
  864.  40|########################
  865.  35|########################
  866.  30|########################     The graph at the left shows your average
  867.  25|########################     percent chance of getting through to our
  868.  20|########################     board during each hour of the day, based
  869.  15|########################     on actual usage for the 24 days as dated
  870.  10|########################     during Feb. A `#' represents time system
  871.   5|########################     not in use. 
  872.    +------------------------
  873.     000000000011111111112222     << The time of day (read vertically)        
  874.     012345678901234567890123è                                START2.PAS
  875.  
  876.  
  877. Versioεá 1.░á oµ STAR╘ onl∙ raε unde≥ TURB╧ v│ a≤ thσ function≤á paramcoun⌠ ì
  878. anΣá paramst≥ arσ no⌠ predefineΣ iε TURB╧ v2«á Thi≤ versioεá define≤á thesσ ì
  879. function≤á t∩ hopefull∙ worδ thσ samσ a≤ TURB╧ v3¼á thereforσ workinτ unde≥ ì
  880. TURB╧ v2«á ╔ havσ precedeΣ thσ name≤ witΦ thσ ▀ s∩ a≤ t∩ differentiatσ theφ ì
  881. froφá thσ predefineΣ one≤ iε TURB╧ v3«á Typσ sty≡ ha≤ als∩ beeε renameΣá t∩ ì
  882. STRING12╖ t∩ bσ morσ descriptive.
  883. 
  884.  
  885. program ST;
  886. CONST
  887.    version = 2.0;     {Mar '88}
  888.  
  889. {Program to load turbo pascal files saved as .CHN
  890.  
  891. Turb∩ Pasca∞ save≤ it≤ librar∙ oµ routine≤ witΦ ever∙ .CO═ file«á Thereforσ ì
  892. thσá smalles⌠á .CO═ filσ i≤ abou⌠ 10k«á Iµ yo⌡ havσ ß lo⌠ oµ smal∞á utilit∙ ì
  893. program≤ oε ß disk¼ ß lo⌠ oµ rooφ i≤ takeε u≡ witΦ eacΦ prograφ storinτ thσ ì
  894. T╨ runtimσ library.
  895.  
  896. Iµá ß prograφ i≤ compileΣ witΦ thσ .CH╬ optioε instead¼á onl∙á thσá prograφ ì
  897. codσ anΣ datß i≤ saveΣ «á Makinτ smal∞ file≤ instead¼á anΣ freeinτ u≡ ß lo⌠ ì
  898. oµ disδ space. Now all that is needed is a program to load the .CHN files.
  899.  
  900. Ente≥á ST«á Al∞á i⌠ basicall∙ doe≤ i≤ t∩ loaΣ thσ T╨ runtimσá librar∙á int∩ ì
  901. memory¼á takσ thσ firs⌠ argumen⌠ oε thσ commandlinσ afte≥ S╘ a≤ thσ prograφ ì
  902. t∩ chaiε t∩ anΣ stufµ an∙ furthe≥ argument≤ bacδ int∩ ß ne≈ commandline.
  903.  
  904. Thi≤á prograφá work≤ witΦ CP/═ anΣ PC/M╙ DO╙ ,onl∙ thσ declaratioεá oµá thσ ì
  905. variablσ cmdlinσ alter≤ - seσ thσ code.
  906.  
  907. Wheε compilinτ S╘ t∩ ß .CO═ filσ (PC/M╙ DO╙ only⌐ se⌠ thσ miε codσ anΣ datß ì
  908. value≤á t∩á thσá bigges⌠ .CH╬ filσ yo⌡ wil∞ bσá loading«á (FounΣá wheεá yo⌡ ì
  909. compilσ thσ .CH╬ file)
  910. USAGE
  911.  
  912. ST programname [optional programname arguments]
  913.  
  914. St by itself displays a usage message.
  915.  
  916. Rex Foord (052 513131)    Sept '87
  917. }
  918.  
  919. type
  920.    STRING127 = string[127];
  921. var
  922.    program_name : STRING127;
  923.    n            : byte;
  924.  
  925. {$I paramstr.i}        {include functions}
  926. {$I paramcnt.i}
  927.  
  928. procedure help_message;
  929.  
  930. begin
  931.    writeln;
  932.    writeln('ST v',version:3:1);è   writeln('Program to start chain files');
  933.    writeln;
  934.    writeln('Usage : ST programname [optional arguments for programname]');
  935.    writeln;
  936. end;
  937.  
  938. procedure recreate_command_line (n:byte);
  939.  
  940. {put rest of command line arguments back into a new commandline}
  941.  
  942. var
  943.    i       : byte;
  944.    s       : STRING127;
  945. {  cmdline : STRING127 absolute cseg:$80;   (*for MSDOS*)}
  946.    cmdline : STRING127 absolute $80;        (*for CP/M *)
  947.  
  948. begin
  949.    if n > 1 then
  950.    begin
  951.       s := '';
  952.       for i := 2 to n do
  953.       begin
  954.          s := s + _paramstr(i);
  955.          if i < n then s := s + ' ';
  956.       end;
  957.       cmdline := s;
  958.    end
  959.    else                       {no further arguments on line}
  960.       cmdline[0] := chr(0);   {put in a blank string}
  961. end;
  962.  
  963. procedure start_program (program_name : STRING127);
  964.  
  965. var
  966.    f : file;
  967.    i : integer;
  968.  
  969. begin
  970.    if pos('.',program_name) = 0 then
  971.       program_name := program_name + '.CHN';      {check for extension}
  972.    assign(f,program_name);
  973.    {$i-}
  974.    chain(f);
  975.    {$i+}
  976.    if ioresult <> 0 then
  977.       writeln('? Unable to chain to program ',program_name);
  978. end;
  979.  
  980. begin  {main}
  981.    n := _paramcount;     {no of parameters initially on command line}
  982.    if n = 0 then
  983.       help_message
  984.    else
  985.    begin
  986.       program_name := _paramstr(1); {take first parameter as the program name}
  987.       recreate_command_line (n);
  988.       start_program (program_name);
  989.    end;
  990. end.è
  991. *** BAZAAR SALES *** BAZAAR SALES *** 
  992.  
  993.       *ááYOU╥ááááLIBRAR┘áááá*ì
  994.              
  995.            THE CATCHER
  996.       02B├ Volumσ ▓     (Oct.83-Sept.84⌐.................. $15.0░    
  997.       03BC Volume 3     (Oct.84-Sept.85).................. $15.00    
  998.       04UB Volume 4     (Oct.85-Sept.86)                              
  999.            (Unbound-Only enough for 3..................... $15.00    
  1000.       MB01 MAGAZINE BINDERS   (For ONLINE)................ $ 8.00
  1001.  
  1002.       * HEAD   CLEAN *
  1003.  
  1004.       5HCK Drive Head Cleaning Kit 5.25" ................. $10.00
  1005.       3HCK Drive Head Cleaning Kit 3.5" .................. $13.00
  1006.                                               
  1007.        * SOFTWARE   *                         
  1008.  
  1009.       01B┴ BeeArtistiπá (Graphiπ S/W⌐á.................... $35.0░
  1010.       01BP BeeArtistic Premium Version ................... $35.00
  1011.        ($20.00 for an Update from Standard- Old orignal for New)
  1012.       001W Write Hand Man     (Order) .................... $40.00
  1013.       0BKP Beekeeper (see review Catcher Jan. '87)........ $90.00            
  1014.       1FPF Flashprint 4    (with Flashkey) ............... $50.00    
  1015.       002S Poor Persons Spooler   (Order) ................ $40.00    
  1016.       003S Poor Persons Spreadsheet   (Order)............. $40.00    
  1017.       004S Poor Persons Spelling Checker  (Order)......... $30.00      
  1018.       005S Poor Persons Window System   (Order)........... $30.00    
  1019.       006S Poor Persons Menus   (Order)................... $30.00    
  1020.       007S Poor Persons Keyed Sequential Files (Order).... $30.00            
  1021.       00PM Printmaster Editor ............................ $25.00
  1022.            Dreamcards Software Orders are available on request.
  1023.            (10% discount for Club Members).
  1024.  
  1025.       * YOUR   PRINTER   *
  1026.  
  1027.       80PR Carboε Printe≥ Ribboε (New Stock - Better quality this time)
  1028.                      (suit xyz.80/100 printers) .......... $12.00   
  1029.       10PP 1250 SHEETS CONT. PAPER
  1030.                 (70 GSM - NOT AVAILABLE FOR MAILING)...... $15.00
  1031.     
  1032.       ¬ááDISK╙  ááááá *
  1033.      
  1034.       3SDB Blank 3.5" Disks, MAXELL   SSDD Box of 10 ...... $40.00 
  1035.       3SDS Blanδ 3.5ó Disk≤, MAXELL   SSDD Singles ........ ñ 4.00 
  1036.       3DSF Blank 3.5" Disks, BASF DSDD Plastic Box of 5 ... $23.00
  1037.       5DSSáBlanδ 5.25ó Disks, NASHUA DSDD Singles ......... $ 1.70 
  1038.       3DSF Blank 3.5" Disks, BASF DSDD Singles  ............$ 4.80
  1039.            (These Nashua Disks are DSDD, NOT SSDD like some
  1040.             which are advertised).
  1041.       5DSD Blank 5.25" Disks, Singles ..................... $ 1.40
  1042.       
  1043.  
  1044.  
  1045.  
  1046. *** BAZAAR SALES *** BAZAAR SALES ***
  1047.  
  1048.  è*** BAZAAR SALES *** BAZAAR SALES ***
  1049.  
  1050.       * HARDWARE   *
  1051.  
  1052. Hardwarσ come≤ a≤ is«á ┴ disδ drivσ mean≤ ß disδ driveí N∩ powe≥ supply¼ n∩ ì
  1053. cable¼á n∩ connectors¼á N╧ FITTIN╟ INSTRUCTIONS¼á nothingí Iµ yo⌡ thinδ yo⌡ ì
  1054. wil∞á neeΣá hel≡ t∩ instal∞ o≥ builΣ an∙ hardwarσ thi≤á cluΓá supplies¼á i⌠ ì
  1055. woulΣá bσá iεá you≥ bes⌠ interest≤ t∩ seeδ qualifieΣá assistancσá prio≥á t∩ ì
  1056. purchase«á Thi≤á caεá bσ obtaineΣ froφ somσ member≤ a⌠ "SIGóá nights«á N.B« ì
  1057. Clocδá kit≤ wil∞ onl∙ fi⌠ Premiuφ o≥ 1248-╢ baseboards«á Prin⌠ buffe≥á kit≤ ì
  1058. arσ board¼ eprom¼ instruction≤ anΣ manua∞ only« 
  1059.  
  1060.  
  1061.       00PB Don Mc Kenzie Printer Buffers
  1062.                PC Board and Eprom ......................... $ 40.00
  1063.       00DC 256/120ns DRAM CHIPS ........................... $  7.00
  1064.       03DD 1MEG. (Unformatted) NEC 3.5" Third Height DS/FDD $220.00
  1065.       05DD 1MEG/1.6MEG DUAL SPEED 5.25" Disk Drive ........ $225.00
  1066.       01T├ REA╠ TIM┼ CLOCK  KIT╙ (see May Catcher)......... $ 25.00
  1067.       SP01 SPEED MODULATOR  (slows down BEE for games).,..  $ 15.00
  1068.                   
  1069.       * DISK   STORAGE  *
  1070.  
  1071.       5B85 DISK STORAGE BOX 5.25"  (Lockable, holds 100)... $ P.O.A
  1072.       5B10 DISK LIBRARY BOX 5.25"  (holds 10) ..............$  3.00
  1073.       3B40 DISK STORAGE BOX 3.5"   (Lockable, holds 40) ... $ 18.00 
  1074.  
  1075.       All postal orders to be sent to MBUG AUSTRALIA SALES    
  1076.                                       P.O. BOX 157, NUNAWADING
  1077.                                       VICTORIA 3131
  1078.  
  1079.    T∩ avoiΣ delays¼á al∞ order≤ mus⌠ includσ cheque¼ posta∞ orde≥ orì
  1080.    Bankcard authorization for the total amount(inc. postal & handling
  1081.    charges). Allow 21 days for the return of goods, or pick-up at the
  1082.    next meeting.
  1083.  
  1084.    PLEASE SPECIFY DISK SIZE WHEN ORDERING SOFTWARE 
  1085.  
  1086.    GOOD╙  AVAILABL┼ FO╥ MEMBER╙ ONL┘      
  1087.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
  1088.    Please charge my Bankcard/Visa/Master Card No. ___ __ ___ ______
  1089.  
  1090.    Expiry Date __/__/____               Signature_________________
  1091.    Members Name.__________________________________ M/ship No._____
  1092.    Address._______________________________________________________
  1093.    Phone Number_____________________(INC S.T.D. CODE)
  1094.    Code  Item                      Quantity    Price    Total Cost
  1095.    ____  ________________________  ________    _____    __________
  1096.    ____  ________________________  ________    _____    __________
  1097.    ____  ________________________  ________    _____    __________
  1098.    Postal Fees (within Aust.)       Sub-Totals Items     $_________
  1099.    $10 to $20 order    :$2.50  Postage & Handling Fee   $_________
  1100.    $20 to $80 order    :$5.00
  1101.    greater than $80    :$7.50             Total Order    $_________
  1102.  
  1103.    Certified Mail add $1.00              Security Post  add $5.00
  1104.         MINIMUM POSTAL ORDER $10.00            APR.'88.      
  1105.  
  1106. *** BAZAAR SALES *** BAZAAR SALES ***