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

  1. .pl70
  2. .po8
  3. .OP
  4. .HE#  MAR  - 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 è       FRO═ TH┼ CHIE╞ MBU╟  FRO═ TH┼ CHIE╞ MBU╟  FRO═ TH┼ CHIE╞ MBU╟  
  64.  
  65.      No≈á thσá holida∙ seasoε i≤ ove≥ anΣ everyonσ i≤ (hopefully⌐á bacδá t∩ ì
  66. normal¼á wσ havσ ß fe≈ thing≤ t∩ se⌠ you≥ gre∙ matte≥ iε motion¼á o≥ ge⌠ i⌠ ì
  67. runninτ a⌠ norma∞ speeΣ again« 
  68.  
  69.      Thesσá wil∞ bσ tw∩ competition≤ anΣ ß "spo⌠ thσ characteró gamσ iε thσ ì
  70. Catcher«á Thσá tw∩ competition≤ comprisσ oµ ß ne≈ fron⌠ cove≥ desigε anΣá ß ì
  71. programminτ competition¼ botΦ oµ whicΦ arσ explaineΣ late≥ iε thi≤ issue« 
  72.  
  73.      Thσ spo⌠ thσ characte≥ gamσ work≤ likσ this«á A⌠ randoφ place≤ througΦ ì
  74. thσá Catche≥á ╔ wil∞ bσ puttinτ ß back-slasΦ "/ó oε ß randoφá character«á ╔ ì
  75. wil∞á tel∞á yo⌡á iε thi≤ columε ho≈ man∙ arσ includeΣá iεá eacΦá particula≥ ì
  76. issue¼á fo≥ example¼ thi≤ issuσ therσ wil∞ bσ 1░ anΣ thσ characte≥ witΦ thσ ì
  77. back-slasΦ coulΣ bσ aε uppe≥ o≥ lowe≥ casσ character«á The∙ wil∞ no⌠ appea≥ ì
  78. iε prograφ listings¼ oε eithe≥ sidσ oµ thσ cover≤ o≥ iε fo≥ salσ notices« 
  79.  
  80.      ╔á havσá beeεá askeΣá b∙á thσ committeσ t∩á cal∞á oεá you≥á hel≡á witΦ ì
  81. demonstrations«á Wσá woulΣ likσ yo⌡ t∩ thinδ abou⌠ thσ worδ yo⌡ and/o≥á thσ ì
  82. peoplσá yo⌡ worδ fo≥ o≥ witΦ woulΣ havσ anythinτ tha⌠ ma∙ bσ oµ interes⌠ t∩ ì
  83. you≥ clubmates« Yo⌡ ma∙ usσ Microbee≤ fo≥ seemingl∙ strangσ (t∩ us⌐ use≤ o≥ ì
  84. yo⌡ ma∙ havσ technica∞ operation≤ relatinτ t∩ computer/communication≤ usagσ ì
  85. tha⌠á ma∙ interes⌠ others«á Las⌠ month≤ dem∩ oµ thσ fibe≥ optic≤á beinτá aε ì
  86. example«á AlthougΦá mos⌠á oµ yo⌡ ma∙ neve≥ comσ int∩ persona∞ contac⌠á witΦ ì
  87. wha⌠ wa≤ shown¼á i⌠ diΣ generatσ ß lo⌠ oµ interes⌠ a⌠ thσ meeting« Wha⌠ yo⌡ ì
  88. fee∞á ma∙ bσ oµ littlσ interes⌠ t∩ you¼á coulΣ bσ wel∞ receiveΣ a⌠á ßá cluΓ ì
  89. meeting«á Pleasσ givσ somσ though⌠ t∩ it« An∙ oµ thσ committeσ member≤ wil∞ ì
  90. gladl∙ accep⌠ you≥ suggestions« 
  91.  
  92.      Whilσ ╔ aφ oε thσ "bot"¼á ╔ neeΣ thσ result≤ oµ you≥ typinτ again« Thσ ì
  93. bottoφá oµá thσ wel∞ i≤ gettinτ mucΦ closer«á ╔ neeΣ morσ materia∞ fo≥á thσ ì
  94. Catcher« Remember¼ wσ pa∙ fo≥ you≥ contributions.
  95.  
  96.      A≤á mentioneΣ las⌠ month¼á thσ cluΓ introductioε magazinσ ha≤á finall∙ ì
  97. beeεá printeΣ anΣ i≤ oε salσ fo≥ $2.00«á ╔ havσ listeΣ belo≈ ßá summar∙á oµ ì
  98. somσ oµ thσ contents« 
  99.  
  100. MEMBERSHI╨á I╬ MBU╟ AUSTRALI┴ INC.¼á HO╫ T╧ GE╘ HELP¼á WHA╘ T╧ D╧ WIT╚á TH┼ ì
  101. ANSWER╙ T╧ YOU╥ HELPS¼ PUBLI├ DOMAI╬ DIS╦ SOFTWARE¼ MBU╟ PAPE╥ LIBRARY¼ FO╥ ì
  102. SAL┼ NOTICES¼ HO╫ T╧ HIR┼ TH┼ CLU┬ MODEM¼ PROGRAM╙ PUBLISHE─ I╬ TH┼ CATCHE╥ ì
  103. o≥ WHA╘ AR┼ CHECKSUMS?¼á MICROWORL─ BASI├ LISTIN╟  "CKSM23.MWB"¼ TH┼ BAZAA╥ ì
  104. AN─á IT╙ CONTENTS¼á anΣ ß completσ ste≡ b∙ ste≡ guidσ oε HO╫ T╧ OPERAT┼ TH┼ ì
  105. BULLETI╬ BOARD«  Thi≤ las⌠ iteφ i≤ ß completσ user≤ manua∞ fo≥ thσ board.
  106.  
  107.      Thσ magazinσ i≤ availablσ througΦ thσ bazaa≥ o≥ b∙ mai∞ order« 
  108.  
  109.      Thi≤á montΦá wσá hopσá t∩ havσ thσ rbb≤ a⌠ thσá maiεá meetinτá s∩á al∞ ì
  110. interesteΣ caε seσ thσ ne≈ set-u≡ anΣ asδ question≤ a≤ t∩ it≤ operation« I⌠ ì
  111. wil∞á bσá set-u≡ iε ß dem∩ modσ anΣ n∩ filσ transfer≤ caε bσá madσá a⌠á thσ ì
  112. meeting«á Thσá Echo-mai∞ systeφ wil∞ als∩ bσ explained«á Ou≥ "Nodσá numberó ì
  113. FIDO/NE╘ 633/36▓ i≤ no≈ oε thσ fron⌠ oµ thσ Catche≥ ever∙ month« 
  114.  
  115.      Somσá problem≤á seeφ t∩ havσ originateΣ froφ ou≥ hardwarσá sales«á Al∞ ì
  116. good≤á supplieΣá t∩á Mbuτ comσ "a≤ isó anΣ arσ supplieΣá t∩á yo⌡á "a≤á is"« ì
  117. Operatinτá anΣ o≥ fittinτ instructions¼á iµ supplieΣ t∩ u≤ arσ supplieΣá t∩ ì
  118. you« Pleasσ reaΣ thσ comment≤ oε thσ Bazaa≥ sale≤ page≤ iε thi≤ issue« 
  119. 
  120. ╛ ANDREW
  121. è                                 START.PAS
  122.  
  123. program ST;
  124.  
  125. {Program to load turbo pascal files saved as .CHN
  126.  
  127.      Turb∩á Pasca∞á save≤á it≤ librar∙ oµ routine≤ witΦá ever∙á .CO═á file« ì
  128. Thereforσá thσ smalles⌠ .CO═ filσ i≤ abou⌠ 10k«á Iµ yo⌡ havσ ß lo⌠ oµ smal∞ ì
  129. utilit∙á program≤ oε ß disk¼á ß lo⌠ oµ rooφ i≤ takeε u≡ witΦá eacΦá prograφ ì
  130. storinτ thσ T╨ runtimσ library.
  131.  
  132. Iµá ßá prograφ i≤ compileΣ witΦ thσ .CH╬ optioε instead¼á onl∙ thσá prograφ ì
  133. codσ anΣ datß i≤ saveΣ «á Makinτ smal∞ file≤ instead¼á anΣ freeinτ u≡ ß lo⌠ ì
  134. oµ disδ space.
  135.  
  136. Now all that is needed is a program to load the .CHN files.
  137.  
  138. Ente≥á ST«á Al∞á i⌠ basicall∙ doe≤ i≤ t∩ loaΣ thσ T╨ runtimσá librar∙á int∩ ì
  139. memory¼á takσ thσ firs⌠ argumen⌠ oε thσ commandlinσ afte≥ S╘ a≤ thσ prograφ ì
  140. t∩ chaiε t∩ anΣ stufµ an∙ furthe≥ argument≤ bacδ int∩ ß ne≈ commandline.
  141.  
  142. Thi≤á prograφá work≤ witΦ CP/═ anΣ PC/M╙ DO╙ ,onl∙ thσ declaratioεá oµá thσ ì
  143. variablσ cmdlinσ alter≤ - seσ thσ code.
  144.  
  145. Wheε compilinτ S╘ t∩ ß .CO═ filσ (PC/M╙ DO╙ only⌐ se⌠ thσ miε codσ anΣ datß ì
  146. value≤á t∩á thσá bigges⌠ .CH╬ filσ yo⌡ wil∞ bσá loading«á (FounΣá wheεá yo⌡ ì
  147. compilσ thσ .CH╬ file)
  148.  
  149. USAGE
  150.  
  151. ST programname [optional programname arguments]
  152.  
  153. St by itself displays a usage message.
  154.  
  155. Rex Foord (052 513131) (MBUG 1044)   Sept '87}
  156.  
  157.  
  158. type
  159.    styp = string[127];
  160.  
  161. var
  162.    program_name : styp;
  163.    n            : byte;
  164.  
  165. {****************************************************************************}
  166.  
  167. procedure help_message;
  168.  
  169. begin
  170.    writeln;
  171.    writeln('Program to start chain files');
  172.    writeln;
  173.    writeln('Usage : ST programname [optional arguments for programname]');
  174.    writeln;
  175. end;
  176.  
  177. {****************************************************************************}
  178.  
  179. procedure recreate_command_line (n:byte);è
  180. {put rest of command line arguments back into a new commandline}
  181. var
  182.    i       : byte;
  183.    s       : styp;
  184.  
  185. {MS-DOS Ver  NEXT LINE OF CODE commented out this version ...
  186.     cmdline : styp absolute cseg:$80;       for MS-DOS }
  187.  
  188. {CP/M Ver NEXT LINE OF CODE } 
  189.     cmdline : styp absolute $80;       
  190.  
  191. begin
  192.    if n > 1 then
  193.    begin
  194.       s := '';
  195.       for i := 2 to n do
  196.       begin
  197.          s := s + paramstr(i);
  198.          if i < n then s := s + ' ';
  199.       end;
  200.       cmdline := s;
  201.    end
  202.    else                       {no further arguments on line}
  203.       cmdline[0] := chr(0);   {put in a blank string}
  204. end;
  205.  
  206. {****************************************************************************}
  207.  
  208. procedure start_program (program_name : styp);
  209.  
  210. var
  211.    f : file;
  212.    i : integer;
  213.  
  214. begin
  215.    if pos('.',program_name) = 0 then
  216.       program_name := program_name + '.CHN';      {check for extension}
  217.    assign(f,program_name);
  218.    {$i-}
  219.    chain(f);
  220.    {$i+}
  221.    if ioresult <> 0 then
  222.       writeln('? Unable to chain to program ',program_name);
  223. end;
  224.  
  225. {****************************************************************************}
  226.  
  227. begin  {main}
  228.    n := paramcount;     {no of parameters initially on command line}
  229.    if n = 0 then
  230.       help_message
  231.    else
  232.    begin
  233.       program_name := paramstr(1); {take first parameter as the program name}
  234.       recreate_command_line (n);
  235.       start_program (program_name);
  236.    end;
  237. end.è                     TURBO-LESSONS - A Pascal Tutorial  
  238.  
  239.                    TURBO-LESSON 4:  DECLARATIONS, INPUT
  240.  
  241. OBJECTIVES - In Lesson 4 you will learn about:
  242.  
  243.      1.  The DECLARATIONS part of a program
  244.      2.  VAR declaration
  245.      3.  Input using the ReadLn statement
  246.      4.  Integer variables
  247. 
  248. 1.  The DECLARATIONS part of a program.
  249. 
  250. Yo⌡á learneΣá iε thσ previou≤ lessoε tha⌠ therσ arσ tw∩ maiε part≤á t∩á an∙ ì
  251. PASCA╠ program║á DECLARATIONS¼á anΣ MAI╬ BODY«   Thσ variou≤ entrie≤ iε thσ ì
  252. DECLARATION╙á sectioεá definσ thσ datß item≤ useΣ iε thσ processinτ iεá thσ ì
  253. MAI╬ BODY«á  No⌠ al∞ declaratioε entrie≤ wil∞ occu≥ iε ever∙á program¼á bu⌠ ì
  254. onl∙ thσ one≤ needeΣ t∩ suppor⌠ thσ processing«  
  255.  
  256. Thσá variou≤á type≤ oµ declaratioε entrie≤ wil∞ bσ introduceΣ a≤ needeΣá iε ì
  257. thσ samplσ programs«  Onl∙ thσ VA╥ entr∙ wil∞ bσ useΣ iε thi≤ program«  
  258. 
  259. 2.  VAR declaration.
  260. 
  261. Al∞ variables¼á (spelleΣ A-L-L¼ n∩ exceptions)¼ mus⌠ bσ defineΣ beforσ the∙ ì
  262. arσ referenceΣ b∙ processinτ statements«á  Thσ VA╥ entr∙ i≤ useΣ t∩á definσ ì
  263. variables«  Thσ forφ oµ thσ entr∙ is:
  264.  
  265. variable-name   :  type;
  266.  
  267. Thσ variable-namσ ma∙ bσ onσ o≥ severa∞ variable-name≤ separateΣ b∙ commas«  ì
  268. Thσá typσá ma∙ bσ ß predefineΣ type¼á sucΦ a≤ Integer¼á o≥ ß typσ yo⌡á havσ ì
  269. constructeΣ useinτ thσ predefineΣ types«á Thσ coloε mus⌠ occu≥ betweeεá thσ ì
  270. variable-name(s⌐á anΣ thσ type«á  Extrß space≤ arσ acceptablσ t∩ allo≈ morσ ì
  271. readablσ format«  Belo≈ arσ somσ VA╥ entries║ 
  272.  
  273. VAR
  274.       i,j,k    : Integer;
  275.       Inkey    : Char;
  276.       Rate     : Real;
  277.       Count    : Integer;
  278.  
  279. (Thσ examplσ abovσ include≤ type≤ no⌠ ye⌠ discussed¼ t∩ illustratσ thσ forφ ì
  280. oµ thσ VA╥ entry.)
  281.  
  282. ##### DO:
  283. Look at PROG4.  
  284.  
  285. (Yo⌡á kno≈ froφ earlie≥ lesson≤ ho≈ t∩ loaΣ thσ prograφ anΣ usσ thσá edito≥ ì
  286. t∩ looδ a⌠ thσ program.⌐  ┴ segmen⌠ oµ PROG┤ is║ 
  287.  
  288. VAR
  289.   Number   : Integer;
  290.  
  291. Thσá VA╥á entr∙á abovσá define≤ ß variablσ calleΣ "Numberó t∩á bσá oµá typσ ì
  292. "Integer"«á  Thi≤á mean≤ thσ compute≥ mus⌠ se⌠ u≡ ß memor∙á locatioεá largσ ì
  293. enougΦ t∩ storσ aε integer¼á whicΦ caε bσ accesseΣ b∙ referrinτ t∩ thσ namσ ì
  294. "Number"«  
  295. èNoticσá thσá variable¼á Number¼á i≤á late≥á referenceΣá iεá thσá processinτ ì
  296. statements.
  297.  
  298. ##### DO:
  299. AdΣ aε intege≥ variablσ calleΣ "Ageó t∩ Prog4«á  Thi≤ wil∞ bσ useΣ late≥ iε ì
  300. thi≤á lesson«á  Yo⌡á caε eithe≥ adΣ thσ ne≈ variablσ t∩ thσ declaratioεá oµ ì
  301. Number
  302.  
  303.       Number, Age   : Integer;
  304.  
  305. or add another declaration
  306.  
  307.       Number   : Integer;
  308.       Age      : Integer;
  309.  
  310. Compile the program to be sure you haven't made a syntax error.     
  311. 
  312. 3.  Input using the ReadLn statement.
  313. 
  314. ReadLn is the statement used to input variables.  The form of the 
  315. statement is:
  316.  
  317. ReadLn(var_1, var_2, . . . ,var_n);
  318.  
  319. Wheεá thσá statemen⌠ i≤ executed¼á thσ compute≥ wil∞ wai⌠ fo≥ yo⌡á t∩á typσ ì
  320. value≤á fo≥ thσ variables¼á separateΣ b∙ onσ o≥ morσá spaces¼á followeΣá b∙ ì
  321. depressinτ thσ ente≥ key«  
  322.  
  323. Part of PROG4 follows:
  324.                                                              
  325. BEGIN
  326.   Write('Enter a number (no decimals please): ');
  327.   ReadLn(Number);
  328.   WriteLn;                        { Display one blank line }
  329.   WriteLn('Number: ',Number);     { Display the number entered }
  330. END.
  331.  
  332. Thσá Writσá statemen⌠ provide≤ ß promp⌠ beforσ thσ ReadLεá accept≤á Number«  ì
  333. Noticσá tha⌠á ReadLεá doe≤á no⌠ providσ ß "?ó o≥á an∙á othe≥á prompt«á  Thσ ì
  334. programme≥ mus⌠ providσ an∙ promptinτ require«  
  335.  
  336. Thσ usσ oµ thσ Writσ statemen⌠ fo≥ prompting¼ insteaΣ oµ thσ WriteLn¼ keep≤ ì
  337. thσ curso≥ oε thσ samσ linσ s∩ thσ inpu⌠ wil∞ occu≥ righ⌠ afte≥ thσá promp⌠ ì
  338. message.
  339.  
  340. Thσ ReadLε accept≤ thσ numbe≥ yo⌡ typσ anΣ store≤ i⌠ iε thσ memor∙ locatioε ì
  341. whicΦ thσ compute≥ ha≤ se⌠ asidσ fo≥ thσ Intege≥ variable¼ Number«  
  342.  
  343. ##### DO:
  344. Compilσ anΣ ruε PROG4«  Wheε prompted¼ typσ 1▓ anΣ enter«  Ruε i⌠ agaiε anΣ ì
  345. ente≥ -34«  
  346.  
  347. ##### DO:
  348. Usinτá thσ statement≤ oµ PROG┤ a≤ aε example¼á expanΣ thσ prograφ t∩ d∩ thσ ì
  349. following:
  350.  
  351. (1)   Write a prompt to 'Enter your age'.
  352. (2⌐   ReaΣ ß valuσ fo≥ agσ t∩ bσ storeΣ iε thσ intege≥ variable¼ Age¼ whicΦ ì
  353.       yo⌡ addeΣ t∩ thσ VA╥ declaration≤ iε thσ previou≤ section.è(3⌐   Writσ ß messagσ whicΦ print≤ thσ agσ entered¼á iε ß manne≥ simila≥ t∩ ì
  354.       thσ wa∙ Numbe≥ wa≤ printed.
  355.  
  356. Run the program.
  357. 
  358. 4.  Integer Variables. 
  359. 
  360. Integer≤á arσá countinτá numbers¼á witΦ n∩ decima∞á points«á  The∙á ma∙á bσ ì
  361. positivσ o≥ negative«  Iε TURB╧ thσ rangσ oµ Integer≤ permitteΣ is:
  362.  
  363.        -32768 to +32767
  364.  
  365. Integer≤ arσ useΣ fo≥ subscripts¼á indexes¼á counting¼á inpu⌠ anΣ outpu⌠ oµ ì
  366. sucΦ thing≤ a≤ counts¼á limits¼á men⌡ choices«  Decima∞ number≤ (Rea∞ type¼ ì
  367. discusseΣá later)¼á arσá needeΣá fo≥á sucΦ thing≤á a≤á dolla≥á amount≤á anΣ ì
  368. calculations«á   Wheεá decima∞ number≤ arσ no⌠á actuall∙á needed¼á I/nteger≤ ì
  369. shoulΣ bσ useΣ sincσ the∙ arσ easie≥ t∩ usσ anΣ takσ les≤ memory«  
  370.  
  371. ##### DO:
  372. Run PROG4 again, this time entering data which will cause errors.
  373.  
  374. WheεáprompteΣát∩áente≥áß number¼áente≥ thσálette≥á┴áinstead«áWha⌠ happened?
  375.  
  376. A message appears:
  377.  
  378. I/O error 10, PC=/287C   
  379. Program aborted
  380.  
  381. Searching 
  382.   15 lines
  383.  
  384. Run-time error position found. Press <ESC>
  385.  
  386. What this means is as follows:
  387.  
  388. Thσá prograφá aborteΣá becausσá "I/╧ erro≥ 10óá occurreΣá a⌠á prograφá codσ ì
  389. address¼á 287C«á  (You≥á prograφá ma∙á producσá ßá differen⌠á prograφá codσ ì
  390. address.⌐á  T∩á finΣ ou⌠ wha⌠ "I/╧ erro≥ 10ó is¼á looδá iεá you≥á referencσ ì
  391. manua∞á iεá thσ appendi° containinτ "I/╧ ERRO╥ MESSAGES"«á  Erro≥ 1░ i≤á aε ì
  392. "Erro≥ iε numeriπ format".
  393.  
  394. TURBO searched 15 lines before finding where the error occurred.
  395.  
  396. Wheεá yo⌡á pres≤á thσ ES├ key¼á thσ edito≥ i≤á activateΣá witΦá thσá curso≥ ì
  397. positioneΣá a⌠ thσ enΣ oµ thσ statemen⌠ whicΦ causeΣ thσ error«á  (Iεá thi≤ ì
  398. case¼á i⌠á i≤ no⌠ thσ statemen⌠ whicΦ causeΣ thσ problem¼á bu⌠ thσ typσá oµ ì
  399. datß entered.)
  400.  
  401. ##### DO:
  402. Ruε thσ prograφ again¼á enterinτ to∩ largσ ß number¼á 88888«  Notσ tha⌠ thσ ì
  403. samσ erro≥ occurs«á  Ruε i⌠ agaiε witΦ to∩ smal∞ ß number¼ -55555«  Yo⌡ ma∙ ì
  404. wan⌠á t∩ experimen⌠ witΦ thσ end-point≤ oµ thσ acceptablσ intege≥ range║á -ì
  405. 3276╕ t∩ 32767«á  Fo≥ example¼á tr∙ enterinτ thσ value≤ -32767¼á -32768¼á -ì
  406. 32769.
  407.  
  408. NOTE║á 
  409.  
  410. THER┼ AR┼ WAY╙ T╧ HANDL┼ ERROR╙ T╧ AVOI─ ABORTIN╟ TH┼ PROGRAM«á  MOR┼ ABOU╘ ì
  411. ERROR-HANDLIN╟ I╬ LATE╥ LESSONS.èPROGRAM PROG4;
  412. {$U+
  413.  
  414. New Topics: Input using ReadLn statement
  415.             Integer variables
  416.             VAR Declarations
  417. }
  418. VAR
  419.   Number   : Integer;
  420.  
  421. BEGIN
  422.   Write('Enter a number (no decimals please): ');
  423.   ReadLn(Number);
  424.   WriteLn;                        { Display one blank line }
  425.   WriteLn('Number: ',Number);     { Display the number entered }
  426. END.
  427.  
  428.  
  429.  
  430.                EDITORIAL COMMENT
  431.  
  432.      Thi≤ montΦ thσ lonτ awaiteΣ returε oµ "Onlineó arriveΣ iε thσ mai∞ bo° ì
  433. anΣ ╔ coulΣ hardl∙ wai⌠ t∩ opeε i⌠ anΣ seσ wha⌠ i⌠ contained« Wha⌠ ß shock« ì
  434. ┴á "Bacδ froφ holiday≤ editionó i⌠ wa≤ called«á Morσ likσ thσ olΣ Onlinσ -- ì
  435. lot≤á oµá advertisements«á Sorry¼á no⌠á likσ thσ olΣ Onlinσá witΦá lot≤á oµ ì
  436. advertisements¼áá thi≤á wa≤á AL╠á advertisement≤á witΦá thσá onl∙á possiblσ ì
  437. exception≤á beinτá onσ o≥ tw∩ article≤ iε thσ forφ oµá reviews«á Sublimina∞ ì
  438. advertising┐á I⌠ als∩ contain≤ ß lis⌠ oµ dealer≤ anΣ use≥ groups¼á botΦá oµ ì
  439. whicΦ arσ ou⌠ oµ dateí Iε onσ casσ b∙ a⌠ leas⌠ si° months« 
  440.  
  441.      Iµá thi≤á i≤ t∩ bσ ß reviva∞ oµ Online¼á i⌠ haΣ bette≥ returε t∩á somσ ì
  442. sor⌠ oµ informatioε basσ fo≥ users¼ no⌠ jus⌠ fo≥ thσ educatioε departments¼ ì
  443. bu⌠á fo≥ al∞ users«á  I⌠ seeφ t∩ me¼á iµ lef⌠ a≤ i⌠ is¼á you≥ sub≤ wil∞á bσ ì
  444. payinτ Impac⌠ System≤ t∩ publisΦ somσ gloss∙ junδ mail«á Unles≤ ß returε t∩ ì
  445. thσá olΣá stylσá magazinσ o≥ somethinτ simila≥ i≤á planned¼á (therσá i≤á n∩ ì
  446. specifiπ mentioε oµ such)¼á yo⌡ arσ beinτ rippeΣ off« Whateve≥ thσ outcome¼ ì
  447. ╔ woulΣ no⌠ pay¼ o≥ shoulΣ ╔ bσ expecteΣ t∩ pa∙ fo≥ thi≤ rubbish« ╔ paiΣ m∙ ì
  448. due≤ wheε ╔ purchaseΣ m∙ compute≥ anΣ yo⌡ diΣ too« 
  449.  
  450.      Fortunately¼á ╔ neve≥ subscribed¼á bu⌠ iµ ╔ had¼ ╔ woulΣ bσ writinτ t∩ ì
  451. Impac⌠ Systems¼á returninτ thi≤ piecσ oµ "junδ mailó anΣ demandinτ m∙á sub≤ ì
  452. bσá returneΣ (a≤ the∙ offered)¼á unles≤ the∙ coulΣ convincσ mσ somethinτá ß ì
  453. grea⌠á dea∞á bette≥ wa≤ t∩ come¼á and¼á ╔ woulΣ expec⌠ thσ balancσá no⌠á t∩ ì
  454. includσ thi≤ piecσ oµ rubbisΦ a≤ ß ne≈ o≥ separatσ Onlinσ issue«á The∙ havσ ì
  455. ou≥á name≤á oεá thei≥á datß base«á Iµ the∙ wisΦ t∩á seducσá u≤á witΦá thei≥ ì
  456. products¼ le⌠ them╗ bu⌠ ╔ fo≥ onσ wil∞ no⌠ pa∙ t∩ bσ seduced« 
  457.  
  458.      Personally¼á iµá ╔á wa≤ si° issue≤ iε credi⌠ prio≥ t∩á this¼á ╔á woulΣ ì
  459. expec⌠á ß credi⌠ tha⌠ representeΣ si° issues«á Wh∙ shoulΣ ╔ (you⌐á pa∙á fo≥ ì
  460. thei≥á advertisinτ blurΓ agaiε anΣ agaiε anΣ agaiε -- anΣ theε bσá expecteΣ ì
  461. t∩á reaΣá i⌠ a≤ materia∞ helpfu∞ t∩ thσ user«á I⌠ cos⌠ $3.9╡ a⌠á las⌠á facσ ì
  462. valuσá fo≥á thσ invidiou≤ pleasurσ oµ readinτ thei≥á ads«á ╔á wonder¼á wheε ì
  463. contemplatinτ ß purchasσ oµ an∙ othe≥ product¼á diΣ yo⌡ pa∙ fo≥ ßá brochurσ ì
  464. anΣ theε wen⌠ ou⌠ anΣ purchaseΣ aε iteφ advertiseΣ within« 
  465.  
  466. Probabl∙ never«     Wh∙ star⌠ now?           
  467.  
  468. Andrew L. Barfoot
  469. PRESIDENT.è                        ENERGY - IN A MODERN LIGHT
  470.                                 mumbler 308
  471.  
  472.      Oncσá upoε ß time¼á lonτ ago¼á iε ß no≈ n∩ longe≥ existinτá laborator∙ ì
  473. tha⌠ belongeΣ t∩ ß no≈ n∩ longe≥ existinτ Post-Master-General¼á ß ver∙ wisσ ì
  474. olΣá techniciaεá remarkeΣá t∩ ß ver∙ greeε younτ T.A«á a≤á the∙á stareΣá iε ì
  475. wondermen⌠á a⌠ ß newl∙ arriveΣ curren⌠ measurinτ instrumen⌠ ablσ t∩ measurσ ì
  476. current≤ a≤ lo≈ a≤ ten≤ oµ "nano-ampsó (thousanΣ millionth≤ oµ aε amp⌐ tha⌠ ì
  477. thσá timσá wa≤ approachinτ wheε thσ measuremen⌠ oµ current≤ a≤ lo≈á a≤á onσ ì
  478. electroε pe≥ seconΣ migh⌠ becomσ measurable.
  479.  
  480. Timσ passed¼á thσ ver∙ wisσ olΣ techniciaε wa≤ calleΣ t∩ `wetº `dry-jointsº ì
  481. iε thσ sky¼á thσ greeε T.A« becamσ ß no⌠ ver∙ wisσ middle-ageΣ technologis⌠ ì
  482. witΦ ß diminisheΣ sensσ oµ wonde≥ a≤ meε walkeΣ oε thσ moon¼á receiveΣá anΣ ì
  483. enhanceΣá picture≤á oµ stone≤ oε thσ surfacσ oµ thσ moon≤ oµá Uranus¼á tooδ ì
  484. image≤ oµ circulator∙ systeφ iε workinτ hearts¼á madσ televisioε recording≤ ì
  485. movinτ thσ camerß len≤ througΦ thσ circulator∙ anΣ thσ digestivσ system≤ oµ ì
  486. livinτá people¼á useΣá nuclear-magnetiπá imaginτá t∩á identif∙á amount≤á oµ ì
  487. substancσá amountinτ t∩ severa∞ molecule≤ onl∙ iε livinτ bodies¼á form≤á oµ ì
  488. spectrophotometr∙ t∩ identif∙ minutσ amount≤ oµ matte≥ ligh⌠ year≤ awa∙á iε ì
  489. space.
  490.  
  491. Onσ day¼á wheε askeΣ b∙ ß greeε younτ biochemis⌠ (wh∩ shouldn'⌠ bσ expecteΣ ì
  492. t∩á kno≈ sucΦ things)¼á a≤ the∙ peereΣ a⌠ ß recentl∙ arriveΣ instrumen⌠á t∩ ì
  493. measurσá micro-mole≤á oµ substancσ iε ten≤ oµ micro-liter≤ oµá blooΣá usinτ ì
  494. spectrophotometriπ means¼á  "ho≈ man∙ photon≤ doe≤ i⌠ actuall∙ neeΣ t∩ givσ ì
  495. ßá readinτá .«á ?óá hσ answereΣ iε aε off-hanΣ wa∙ witΦ ßá no⌠á ver∙á funn∙ ì
  496. witticisφ no⌠ wortΦ repeating.
  497.  
  498. MucΦá later¼á witΦ ß feelinτ oµ guil⌠ a⌠ no⌠ havinτ considereΣ thσ questioε ì
  499. seriousl∙á hσ pondereΣ anΣ wondered«á Tha⌠ kiwΘ physicis⌠ actuall∙á createΣ ì
  500. sufficien⌠á photon≤ iε thσ visiblσ rangσ t∩ coun⌠ alpha-particle≤ onσ a⌠á ß ì
  501. time¼ thσ scintillatioε counte≥ work≤ oε thσ samσ principle« Thσ humaε eye¼ ì
  502. wheεá "dark-/adaptedó i≤ saiΣ t∩ bσ sensitivσ t∩ `ß fewº quantßá oµá visiblσ ì
  503. light«á Thi≤á give≤á ßá yes/n∩á answe≥á t∩ "wa≤ therσ ßá flasΦá ?óá bu⌠á b∙ ì
  504. comparisoε witΦ thσ informatioε availablσ froφ ß second≤ vie≈ oµ ß brightl∙ ì
  505. li⌠ environmen⌠ thi≤ i≤ ß ver∙ smal∞ informatioε content.
  506.  
  507. Thσá amoun⌠ oµ energ∙ containeΣ iε ß singlσ quantuφ a⌠ ßá giveεá `radiatioε ì
  508. frequencyºá caε bσ calculateΣ froφ  energ∙ ╜ frequenc∙ ¬ planck'≤ constant¼ ì
  509. usuall∙ writteε ┼ ╜ hf.
  510.  
  511. Fo≥á comparisoε witΦ thσ eyσ a⌠ visiblσ ligh⌠ frequencie≤ conside≥ thσá usσ ì
  512. oµá televisioεá o≥á radi∩ aeria∞ collectinτá micro-watt≤á oµá radiatioεá a⌠ ì
  513. frequenc∙á betweeεá ten≤á oµ thousand≤ anΣ ten≤ oµ million≤á oµá Hz«á Thesσ ì
  514. microwatt≤á arσ thσ suφ oµ cß ß millioε millioε millioε photon≤ pe≥á seconΣ ì
  515. absorbeΣ b∙ thσ aerial.
  516.  
  517. Thσ wavelengtΦ o≥ thσ frequenc∙ oµ ß travellinτ bod∙ caε bσ calculateΣ froφ ì
  518. it≤á mas≤ anΣ velocit∙ usinτ thσ s∩ calleΣ `Dσ Brogliσ equationº wavelengtΦ ì
  519. ╜ planck≤ constant/particlσ momentum¼á usuall∙ writteε ≈ ╜ Φ » ¿ φ ¬ ÷ ⌐ o≥ ì
  520. - sincσ frequenc∙ ╜ ▒ » wavelengtΦ -   µ ╜ ¿ φ ¬ ÷ ⌐ » h.
  521.  
  522. Thi≤á allow≤ thσ calculatioε oµ ß tablσ oµ comparativσ number≤á oµá photon≤ ì
  523. fo≥ ß giveε amoun⌠ oµ energ∙ fo≥ ß rangσ oµ radiatioε frequency.
  524.  
  525. Thi≤ tablσ i≤ adapteΣ froφ onσ tha⌠ appeareΣ iε aε articlσ oε thσ naturσ oµ ì
  526. ligh⌠ b∙ ╠ Debnaφ iε Electronic≤ Australiß Oct« '70
  527.  èFrequenc∙á (Hz⌐á          radiatioεá       Photons/Sec/10░ watts
  528.  
  529.     10^2
  530.     10^4              TV and Radio               10^27
  531.     10^6
  532.     10^8               Microwaves                10^24
  533.     10^10
  534.     10^12               Infra Red
  535.     10^14             Visible Light              10^21
  536.     10^16              Ultra Violet
  537.     10^18                 X-rays
  538.     10^20              Gamma Rays                10^17
  539.     10^22
  540.     10^24                                        10^10
  541.  Ca 10^32          Visible Particles             10
  542.  
  543.  Ca 10^48         Motor car - 45 km/hr         Ca 10^-5
  544.  
  545.  
  546.    FOR SALE $$  FOR SALE $$  FOR SALE
  547.      
  548. 32k Bee with Wordbee & Edasm. Green screen, recorder and 80 tapes. 
  549. $300.00 O.N.O  Contact Neil on 337 - 3107
  550.  
  551. 128k Premium. Amber monitor & 3 1/2" 400k drive and assorted software.
  552. $550.00  Contact Henrik on 221 - 5982
  553.  
  554. Microbeσ I├ serie≤ 2¼á 64k«á Al∞ yo⌡ neeΣ i≤ ß disδ controller¼á s'warσ anΣ ì
  555. drives«á Ha≤ REA∞ R╙ 232í  $250.0░  Also¼ NJ╙ expansioε board« Acces≤ u≡ t∩ ì
  556. 92δ oµ eprom≤ unde≥ s'warσ control« $45.0░    Contac⌠ Geofµ oε  87╕ - 6902
  557.  
  558. 2 x 40 trk 5 1/4" drives, 2 second hand and 3 new. Also a 32k Bee. Series 2
  559. Contact Doug on 877 - 2650
  560.  
  561. 128δ Premium¼á ▒ ° 3.5ó drive¼á ne≈ monitor¼á modem¼ printer¼ compute≥ desδ ì
  562. and software. $700.00 the lot.  Contact James Murray 561 - 4493
  563. 
  564. From:    Simon Beach     To:      All   Subject: Computer for sale
  565. 
  566. Microbeσá Serie≤á 3¼á witΦ twiε drive≤ (360δ ½á 1.2M)¼á BM├á monitor¼á datß ì
  567. cassettσá recorder¼á heap≤á oµá cluΓá mag≤á anΣá variou≤á microbeσá relateΣ ì
  568. publications¼á als∩ varoiu≤ projects.....«  I'═ GETTIN╟ MARRIE─ !!!!!í $90░ ì
  569. o≥ bes⌠ offe≥ Phonσ 435-573▒ o≥ leavσ msτ oε BB
  570. 
  571. From:    Robert Conroy   To:      All   Subject: MICROBEE FOR SALE
  572. 
  573. MICROBE┼á 16╦ IC¼á WORDBEE¼á TELCOM¼á BEETALKE╥ SPEEC╚ SYNTHESIZER¼á 30░á -  ì
  574. 1200/7╡ BAU─ BEEMODEM¼á VARIOU╙ MANUALS¼á ▓ YEAR{╙ BAC╦ COPIE╙ O╞ 'ONLINE'« ì
  575. $40░ LO╘ ON╧   PHON┼ 890551▓ A.H.
  576. 
  577. From:    Keith Hudson    To:      All   Subject: M/BEE SALE
  578. 
  579. 32╦  BE┼ AN─ TOSHEB┴  MONITO╥ CORD╙ LEAD╙ AN─ SOFTWARE«á $325.0░  RIN╟ 397-ì
  580. 8215« TH┼ UNI╘ WA╙ SERVICE─ PRIO╥ T╧ M/BE┼ CLOSIN╟ DOW╬. RECEP╘ AVALABLE
  581. 
  582. From:    Mick Zebra      To:      All        Subject: PREMIUM FOR SALE
  583. 
  584. 128╦ PREMIUM¼á ▓ ° 3.5ó DRIVES¼á MODE═ (300,120/75)¼ MONITOR¼ PRINTE╥ CABE╠ ì
  585. (N╧áPRINTER⌐ ª ASSORTE─ DISKS«áPRIC┼ $900«á MIC╦ ZEBR┴ O╬ (002⌐á 4╣ 5137è                               LAST MEETING
  586.  
  587.      Somσá interestinτ thing≤ happeneΣ a⌠ thσ las⌠á meeting«á Firstly¼á thσ ì
  588. presiden⌠á gavσ hi≤ shor⌠ speecΦ oε wha⌠ ha≤ beeε happeninτ iε thσ cluΓá oµ ì
  589. late« Thi≤ wa≤ followeΣ b∙ ß genera∞ question≤ anΣ answe≥ sessioε wherσ thσ ì
  590. peoplσá attendinτá werσá ablσ t∩ asδ question≤á concerninτá an∙á aspec⌠á oµ ì
  591. computing«á Anyonσá ablσá t∩á answe≥ thσ querie≤ diΣ so«á Iµ yo⌡á havσá an∙ ì
  592. questions¼ problem≤ o≥ neeΣ genera∞ assistancσ don'⌠ hesitatσ t∩ comσ alonτ ì
  593. t∩ thσ meetings«á Las⌠ montΦ fo≥ thσ firs⌠ time¼á thσ introductioεá bookle⌠ ì
  594. anΣá guidσ t∩ thσ bulletiε boarΣ anΣ thσ cluΓ iε genera∞ wa≤ madσ availablσ ì
  595. fo≥ salσ froφ thσ bazaa≥ a⌠ ß cos⌠ oµ $2.00« Thσ member≤ iε attendancσ werσ ì
  596. ver∙á pleaseΣ t∩ seσ thσ lonτ awaiteΣ booklet«á iµ yo⌡ woulΣá likσá furthe≥ ì
  597. informatioεá regardinτ thσ operatioε oµ thσ cluΓ anΣ thσ bulletiε board¼á ╔ ì
  598. sugges⌠ tha⌠ yo⌡ obtaiε ß cop∙ oµ thi≤ informativσ introductioε booklet« 
  599.  
  600. I⌠ wa≤ excel/len⌠ t∩ seσ tw∩ member≤ oµ thσ club¼á Gi∞ Moorσ anΣ Roge≥ BlanΣ ì
  601. demonstratσá onσá aspec⌠á oµá thei≥á worδá witΦá Telecoφáá Australia«áá Thσ ì
  602. demonstratioεá wa≤á oεá optica∞á fibrσ transmissioε anΣá faul⌠á findinτá iε ì
  603. optica∞ fibrσ cables« Thi≤ displa∙ createΣ mucΦ interes⌠ anΣ discussioε anΣ ì
  604. wa≤ ver∙ wel∞ received« Man∙ thank≤ t∩ Gi∞ anΣ Roger« Iµ thσ fielΣ iε whicΦ ì
  605. yo⌡á worδ ma∙ bσ oµ interes⌠ t∩ member≤ oµ thi≤ club¼á pleasσ contac⌠ me.ì
  606.  
  607. Russel∞á Crosse≥ continueΣ hi≤ tutoria∞ oε programminτ iε Turb∩ Pascal¼á i⌠ ì
  608. i≤á no⌠ to∩ latσ iµ yo⌡ havσ misseΣ thσ las⌠ tw∩ tutorials¼á s∩ comσá alonτ ì
  609. anΣ learε morσ abou⌠ Turbo!
  610.  
  611. Mbuτ pΣ disc≤ werσ beinτ copieΣ oε ß formatteΣ disπ fo≥ onl∙ $1.00«á S∩á iµ ì
  612. yo⌡á arσ missinτ ou⌠ oε thσ lates⌠ publiπ domaiε software¼á comσ alonτá anΣ ì
  613. seσ Greτ o≥ Chris« Hopσ t∩ seσ yo⌡ a⌠ thσ nex⌠ meeting«    Regard≤ Malcolm.
  614.  
  615.    FOR SALE $$  FOR SALE $$  FOR SALE
  616. 
  617. From:    Simon Gerraty        To:      All   Subject: for sale - modem
  618. 
  619. Beσá Modeφ (i⌠ starteΣ ou⌠ a≤ onσ anyway⌐ AutoDia∞ circui⌠ (froφá ETI⌐á 30░ ì
  620. anΣá 1200/7╡á MounteΣá iε ß casσ tha⌠ fit≤ thσ modeφ anΣá thσá dialer«á Thσ ì
  621. carrie≥á detec⌠á cicui⌠ need≤ somσ attention¼á thi≤ wa≤ onσá oµá thσá earl∙ ì
  622. BeeModem≤ anΣ ha≤ ß custoφ carrie≥ detec⌠ circui⌠ tha⌠ workeΣ ver∙ wel∞ fo≥ ì
  623. ßá couplσ oµ year≤ (╔ suspec⌠ ß deaΣ transistor)«á  Iε an∙ casσ ╔ woulΣ no⌠ ì
  624. recommenΣ openinτ thσ casσ unles≤ yo⌡ *KNOW¬ wha⌠ yo⌡ arσ doing« Makσ mσ aε ì
  625. offer«á ps« ╔ als∩ fitteΣ ß jacδ fo≥ aε externa∞ 9÷ powe≥ suppl∙ s∩ tha⌠ i⌠ ì
  626. caεá bσ useΣ witΦ PC'≤. 
  627. 
  628. From:    Ray Schmidt     To:      All   Subject: For Sale
  629. 
  630. 128δ twiε ╡ 1/┤ Microbeσ witΦ ambe≥ monitor¼á printer¼á beemodem¼á manuals¼ ì
  631. abou⌠á 30░ disk≤ oµ softwarσ (somσ publiπ domain¼á somσá proprietary¼á somσ ì
  632. source)«á  Wil∞ seperate«á  Price≤ b∙ negotiation¼á bu⌠ certainl∙ priceΣ t∩ ì
  633. sel∞á a≤á ╔á havσ n∩ furthe≥ usσ fo≥ it«á Contac⌠ Ra∙ Schmid⌠ oεá 43╡á 933╕ ì
  634. (6:00-9:00⌐ o≥ 54│ 802▓ (9:00-5:00⌐ o≥ anytimσ weekend≤ oε 43╡ 9338.
  635.  
  636. HELP ?? HELP ?? HELP ?? HELP ?? HELP
  637.  
  638. From:    Eric Anderson   To:      All   Subject: shielding
  639. 
  640. Doe≤á anyonσ kno≈ oµ ß good/eas∙ wa∙ t∩ shielΣ thσá premiuφá Microbee┐á I'φ ì
  641. sicδ oµ havinτ t∩ switcΦ ofµ jus⌠ becausσ someonσ want≤ t∩ watcΦ tv« ╔ havσ ì
  642. tryeΣá wrapinτá i⌠á iεá tiεá foil(spell⌐ anΣ tha⌠ work≤á bu⌠á i⌠á make≤á i⌠ ì
  643. impossiblσ t∩ typeí  I≤ therσ ß bette≥ way?è                         CATCHE╥ COVE╥ COMPETITION
  644.  
  645.      Iεá thσá timσ thσ Catche≥ ha≤ beeε published¼á i⌠ ha≤ haΣ ß changσá oµ ì
  646. cove≥ onl∙ onσ o≥ tw∩ times«á I⌠ ha≤ beeε suggesteΣ tha⌠ i⌠ coulΣ d∩ witΦ ß ì
  647. changσá oµ face«á  Wσ arσ offerinτ n∩ prizσ fo≥ you≥ efforts¼á bu⌠ iµá you≥ ì
  648. desigεá i≤á selecteΣ anΣ approveΣ b∙ thσ members¼á thσ cove≥ wil∞á carr∙á ß ì
  649. "cove≥ designeΣ byó linσ anΣ you≥ namσ ma∙ g∩ dowε iε history╗á (i⌠ ma∙ no⌠ ì
  650. either)« 
  651.  
  652. Thσá rule≤á applyinτ t∩ thσ competitioε arσ fe≈ anΣ simple«á Therσá arσá n∩ ì
  653. restriction≤ apar⌠ froφ thσ sizσ whicΦ mus⌠ remaiε thσ samσ a≤ thσá curren⌠ ì
  654. magazinσá anΣá provisioε mus⌠ bσ madσ fo≥ thσ informatioε currentl∙ oεá thσ ì
  655. fron⌠á cove≥á t∩á bσá incorporateΣ eacΦ montΦá witΦá thσá printinτá oµá thσ ì
  656. magazine╗á date¼á inde° etc.¼ (perhap≤ a≤ ß form)« Artwork¼ colour¼ design╗ ì
  657. whateve≥ yo⌡ like¼ i≤ u≡ t∩ you« Entrant≤ mus⌠ bσ member≤ oµ MBU╟ AUS╘ INC.
  658.  
  659. Entrie≤á ma∙ bσ supplieΣ oε disδ a≤ ß printablσ filσ (WordStar¼á Wordbeσ o≥ ì
  660. Simpl∙ Write)╗á a≤ ß prooµ fo≥ whicΦ ß forφ caε bσ produced¼ o≥ iε ß manne≥ ì
  661. tha⌠á yo⌡á thinδá wil∞á bσ suitable«á Entrie≤ wil∞á bσá pre-judgeΣá b∙á thσ ì
  662. committeσá fo≥á viabilit∙ beforσ submissioε t∩ thσ genera∞á membershi≡á wh∩ ì
  663. wil∞ judgσ thσ entrie≤ a⌠ thσ Ma∙ meeting.
  664.  
  665.  
  666.      PROGRA═ COMPETITIO╬                              b∙ Mikσ Thompson
  667.  
  668. Thσ objec⌠ oµ thi≤ prograφ competitioε i≤ t∩ writσ ß prograφ tha⌠ wil∞ finΣ ì
  669. a≤ man∙ occurrence≤ oµ ╡ o≥ morσ consecutivσ happ∙ numbersíá AnΣ wha⌠ i≤á ß ì
  670. happ∙ numbe≥ ╔ hea≥ yo⌡ ask?
  671.  
  672. Takσ aε positivσ integer¼á sa∙ 23¼ anΣ suφ thσ square≤ oµ eacΦ digi⌠ iε thσ ì
  673. number« So¼ usinτ thσ numbe≥ 2│ wσ woulΣ ge⌠ ▓ squareΣ plu≤ │ squareΣ ╜ 4+╣ ì
  674. ╜ 13«á No≈ repea⌠ thσ proces≤ agaiε witΦ thσ ne≈ numbe≥ (13⌐ anΣ wσ ge⌠ 1+╣ ì
  675. ╜á 10«á AnΣ again¼á 1+░ ╜ 1«á Oncσ wσ reacΦ ▒ wσ caε g∩ n∩ furthe≥ sincσá ▒ ì
  676. squareΣá i≤ 1«á Wheε thi≤ happen≤ wσ caε sa∙ thσ thσ numbe≥ wσ starteΣ witΦ ì
  677. (23⌐á i≤ happyíá No⌠ al∞ number≤ reducσ t∩ ▒ however¼á n∩ matte≥á ho≈á man∙ ì
  678. time≤á thσ algorithφ i≤ applied«á An∙ numbe≥ tha⌠ doe≤ no⌠ reducσ t∩ onσ i≤ ì
  679. saiΣ t∩ bσ unhapp∙ (╔ supposσ yo⌡ coulΣ cal∞ i⌠ ß saΣ number!)« 
  680.  
  681. Thσá probleφá a≤ i⌠ wa≤ originall∙ poseΣ t∩ mσ wa≤ t∩á finΣá ╡á consecutivσ ì
  682. happ∙ numbers«  You≥ probleφ i≤ slightl∙ differen⌠ iε tha⌠ thσ objec⌠ i≤ t∩ ì
  683. determinσ ß n/umber'≤ happines≤ iε a≤ shor⌠ ß timσ a≤ possiblσ anΣ displa∙ ß ì
  684. messagσ wheneve≥ ╡ o≥ morσ consecutivσ number≤ arσ encountered.
  685.  
  686. SpeeΣ i≤ imperative« Thσ fastes⌠ wil∞ almos⌠ certainl∙ bσ iε Z8░ assembler¼ ì
  687. bu⌠á ßá prizσ oµ $25.0░ Cash/Chequσ wil∞ bσ awardeΣ fo≥á MWbasic¼á Z8░á anΣ ì
  688. Pasca∞ version≤ oµ thσ program« You≥ prograφ mus⌠ ruε oε ß Microbee« Iµ yo⌡ ì
  689. develo≡ you≥ prograφ oε ß 2MH· Beσ don'⌠ worry¼á al∞ entrie≤ wil∞ bσ testeΣ ì
  690. oε ß 3.375MH· Bee«  Herσ arσ ß fe≈ hint≤ tha⌠ ma∙ hel≡ you:
  691.  
  692.      - ▓ i≤ no⌠ ß happ∙ number
  693.      - iµ n▒ reduce≤ t∩ n▓ anΣ n▓ i≤ knowε t∩ bσ unhapp∙ theε n1,
  694.        b∙ implication¼ i≤ als∩ unhappy.
  695.      - thσ firs⌠ occurrencσ oµ ╡ consecutivσ happ∙ number≤ is
  696.        4448╕ 4448╣ 4449░ 4449▒ 44492
  697.  
  698. Entrie≤á fo≥ botΦ competition≤ closσ Apri∞ 2░ anΣ results/winner≤ announceΣ ì
  699. durinτ thσ Ma∙ meeting« Submission≤ caε bσ lef⌠ oε thσ RBB╙ o≥ submitteΣ b∙ ì
  700. pos⌠ t∩ thσ club'≤ mai∞ box.
  701.                                              GooΣ luck!è                  MBUG PUBLIC DOMAIN DISKs TO VOLUME .084
  702.  
  703. -MBUG.084    Disk 4 of 4 from the BLUE MOUNTAINS MICROBEE USER GROUP 
  704. -MBUG.083    Disk 3 of 4 from the BLUE MOUNTAINS MICROBEE USER GROUP 
  705. -MBUG.082    Disk 2 of 4 from the BLUE MOUNTAINS MICROBEE USER GROUP 
  706. -MBUG.081    Disk 1 of 4 from the BLUE MOUNTAINS MICROBEE USER GROUP 
  707. -MBUG.080    Disk 7 of 7 from the MICROBEE USER GROUP SOUTH AUSTRALIA
  708. -MBUG.079    Disk 6 of 7 from MICROBEE USER GROUP SOUTH AUSTRALIA
  709. -MBUG.078    Disk 5 of 7 from MICROBEE USER GROUP SOUTH AUSTRALIA
  710. -MBUG.077    Disk 4 of 7 from MICROBEE USER GROUP SOUTH AUSTRALIA
  711. -MBUG.076    Disk 3 of 7 from MICROBEE USER GROUP SOUTH AUSTRALIA
  712. -MBUG.075    Disk 2 of 7 from MICROBEE USER GROUP SOUTH AUSTRALIA
  713. -MBUG.074    Disk 1 of 7 from MICROBEE USER GROUP SOUTH AUSTRALIA
  714. -MBUG.073    Febuary Catcher, related programs & MEDTREE genelogy program
  715. -MBUG.072    December and January Catcher and related programs
  716. -MBUG.071    November 1987 Catcher and related programs
  717. -MBUG.070    An adventure game for all ages.
  718. -MBUG.069    Disk .023 from The Blue Mountains User group
  719.                First Osborne User Group Disk .004
  720. -MBUG.068    Disks .021 & .022 from The Blue Mountains User group
  721.              First Osb/orne User group Disk .001
  722. -MBUG.067    Disk .018 from The Blue Mountains User Group.
  723.         This disk is from Impact Media (Jan Roberts)
  724. -MBUG.066    Disk .013 from The Blue Mountains User Group
  725. -MBUG.065    From The Blue Mountains User Group. Disk number .012
  726. -MBUG.064    Supplied by The Blue Mountains User group number.034
  727.         "C" tutorial disk 2.
  728. -MBUG.063    Donated by The Blue Mountains User Group Disk number.033
  729.         "C" tutorial disk 1.
  730. -MBUG.062    THE NEWCASTLE MICROBEE USERS GROUP PUBLIC DOMAIN DISK #12
  731. -MBUG.061    Disk 25 & 26 from The Blue Mountains User group.
  732. -MBUG.060    Disk number 024 from the Blue Mountains User Group.
  733. -MBUG.059    Disk number 017 from the Blue Mountains User Group.
  734. -MBUG.058    From the Blue Mountains User group disk Number .001
  735. -MBUG.057    From the Blue Mountains User group disk Number .002 (SMUG)
  736. -MBUG.056    From the Blue Mountains User group disk Number .005 (SMUG)
  737. -MBUG.055    From the Blue Mountains User group disk Number .010 (SMUG)
  738. -MBUG.054    Disk .032 from The Blue Mountains User Group
  739. -MBUG.053    September 1987 Catcher and related programs
  740. -MBUG.052    August 1987 Catcher and related programs
  741. -MBUG.051    July 1987 Catcher and related programs
  742.  
  743. 
  744. From:    Kelby Murie     To:      All   Subject: PROBLEM WITH SOME PROGRAMS
  745. 
  746. ╔ havσ founΣ thσ answe≥ t∩ thσ probleφ oµ somσ program≤ jumpinτ t∩ WORD-BE┼ ì
  747. o≥ Z-80«á Tr∙ POK┼ 10000,3▓ theε loaΣ thσ prograφ yo⌡ havσ ß probleφá with« ì
  748. Iµ thi≤ doe≤ no⌠ work¼ ╔ can'⌠ help« An∙ questions¼ pu⌠ oε thσ board«    
  749. 
  750. From:    John Freshney   To:      All   Subject: VT220 Emulation in Telcom
  751. 
  752. ╔á regularl∙á connec⌠ t∩ ß DE├ VA╪ mainframσ froφ m∙ CIA┬ usinτ Telcoφá 4.▒  ì
  753. Thi≤ emulate≤ ß DE├ VT10░ quitσ wel∞ bu⌠ ╔ neeΣ ß VT220« Caε anyonσ hel≡ ?
  754. 
  755. From:    Mirko Fluher    To:      All   Subject: modem sale
  756. 
  757. BeeModeφá 30░á 1200/7╡ witΦ powe≥ on/ofµ switcΦ anΣ facilit∙ t∩á usσá powe≥ ì
  758. outsidσá thσá Beσá - whicΦ mean≤ i⌠ caε bσ usσ witΦ jus⌠á abou⌠á an∙á othe≥ ì
  759. machine.  There is no auto-dial etc...  $150 ono.        Mirko.è                A Review of the Don McKenzie Printer Buffer
  760.               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  761.                              by Gil Moore 600
  762.  
  763.      Ove≥á ßá perioΣ oµ timσ ╔ go⌠ sicδ oµ waitinτ fo≥ m∙ compute≥ t∩á comσ ì
  764. bacδá t∩á mσá whilσ ╔ wa≤ printinτ eithe≥ ß filσá froφá Wordsta≥á o≥á grea⌠ ì
  765. picturσ froφ Prin⌠ Master« S∩ ╔ thought¼ (whicΦ i≤ harΣ fo≥ me)¼ therσ mus⌠ ì
  766. bσ ß bette≥ way« ╔ reaΣ aε articlσ iε Australiaε Electronic≤ Magazinσ whicΦ ì
  767. haΣ ß Printe≥ Buffe≥  a≤ onσ oµ it≤ Project≤ thi≤ interesteΣ mσ bu⌠ a⌠ tha⌠ ì
  768. stagσ ╔ didn'⌠ havσ thσ timσ o≥ m∙ wife'≤ permissioε t∩ g∩ anΣ bu∙ it.
  769.  
  770.      Anyho≈ bacδ t∩  m∙ review«á A⌠ thσ beginninτ oµ October¼ ╔ purchaseΣ ß ì
  771. ki⌠ froφ thσ CluΓ fo≥ $39.00«á Thσ ki⌠ containeΣ aε excellen⌠ doubleΣ sideΣ ì
  772. plateΣá holσá circui⌠ board¼á Eproφ anΣ ß detaileΣ instruction≤ oεá ho≈á t∩ ì
  773. builΣá it«á Thσ instruction≤ werσ ver∙ wel∞ laiΣ ou⌠ anΣ eas∙ t∩ follow«á ┴ ì
  774. basiπ electronic≤ ki⌠ oµ ß solderinτ iron¼ multimeter¼ cutter≤ anΣ ß littlσ ì
  775. knowledgσ i≤ al∞ tha⌠ i≤ requireΣ t∩ pu⌠ thσ ki⌠ together.
  776.  
  777.      I⌠á tooδ mσ abou⌠ 2hr≤ anΣ appro° $8░ oµ part≤ (64δ version)¼á t∩á pu⌠ ì
  778. thσ ki⌠ togethe≥ anΣ ge⌠ i⌠ t∩ ß stagσ wherσ ╔ coulΣ finall∙ pluτ i⌠ iεá t∩ ì
  779. m∙ Beσ (128k)«á ╔ loadeΣ ß filσ froφ WordStar¼ hi⌠ al∞ thσ buttons¼ anΣ no⌠ ì
  780. onσ thinτ happened«á Afte≥ ß while¼á ╔ realizeΣ ╔ haΣ thσ chi≡ tha⌠ i≤ useΣ ì
  781. t∩á stretcΦá thσá AC╦ ª STROB┼ line≤ oε thσ Beσ oε thσ wronτá s/idσá oµá thσ ì
  782. buffer« ╔ straighteneΣ thi≤ ou⌠ anΣ ╔ go⌠ somσ prin⌠ ou⌠ froφ i⌠ bu⌠ i⌠ wa≤ ì
  783. no⌠ quitσ right« Thi≤ wa≤ becausσ ╔ haΣ no⌠ reaΣ thσ instruction≤ properly« ì
  784. Thσ Eproφ ha≤ t∩ bσ hardwireΣ fo≥ eithe≥ 64δ raφ o≥ 256δ ram« 
  785.  
  786.      Afte≥ al∞ this¼ ╔ go⌠ thσ Buffe≥ u≡ anΣ runninτ anΣ ╔ havσ founΣ i⌠ t∩ ì
  787. bσ ß grea⌠ anΣ w/onderfu∞ toolí  No⌠ onl∙ diΣ ╔ ge⌠ m∙ compute≥ bacδ s∩ mucΦ  ì
  788. earlier¼ ╔ founΣ ╔ coulΣ stacδ severa∞ file≤ o≥ listing≤ iε it« ╔ coulΣ ge⌠ ì
  789. ß lo⌠ morσ worδ donσ iε ß minimuφ amoun⌠ oµ time.
  790.  
  791.      Thσá buffe≥ contain≤ severa∞ feature≤  whicΦ eveε enhancσ itself«á Yo⌡ ì
  792. havσ ß LED¼á whicΦ show≤ tha⌠ thσ buffe≥ i≤ receivinτ datß anΣ ß selµá tes⌠ ì
  793. modσá whicΦá als∩ print≤ ou⌠ ß Raφ sizσ check«á Thσ Buffe≥ als∩ allow≤á yo⌡ ì
  794. prin⌠á iε HE╪ - ß i≤ gooΣ iµ yo⌡ havσ aε EPRO═ programmer«á Thσá featurσá ╔ ì
  795. likσá thσ bes⌠ i≤ thσ Cop∙ facilit∙ whicΦ allow≤ yo⌡ makσ a≤ man∙ copie≤ oµ ì
  796. ß filσ a≤ yo⌡ like.
  797.  
  798.      S∩á iµ yo⌡ wan⌠ ß ver∙ usefu∞ attachmen⌠ t∩ you≥á computer¼á onσá tha⌠ ì
  799. cost≤á appro°á $13░á al∞ up¼á ╔ sugges⌠ yo⌡ coulΣ bσ smar⌠ anΣ bu∙á onσá oµ ì
  800. these«á ╔ thinδ thi≤ i≤ onσ iteφ tha⌠ i≤ rea∞ valuσ fo≥ money«á T∩ bu∙á onσ ì
  801. retai∞ wil∞ cos⌠ yo⌡ ß grea⌠ dea∞ more.
  802.  
  803. LengtΦ oµ Timσ saveΣ b∙ Printe≥ Buffer:
  804.  
  805.                          WitΦ Buffe≥         Withou⌠ Buffer
  806. ▓ Pagσ Wordsta≥ Filσ       │ sec≤               4╡ secs
  807. ▓ Pagσ Wordbeσ  Filσ       ░ sec≤               4╡ secs
  808. ▒ Printmaste≥ Sigε         4░ sec≤              4min≤ 5░ secs
  809.  
  810.    
  811. FOR SALE $$ FOR SALE $$ FOR SALE 
  812. 
  813. From:    John Button     To:      All   Subject: MICROBEE FOR SALE
  814. 
  815. 128╦á BE┼ WIT╚ ▓ ° ╡ 1/┤ DRIVE╙ AN─ MON╧ MONITOR«á LOT╙ O╞ EXTRA╙ INCLUDIN╟ ì
  816. CATCHERS¼á ONLINES¼á BOOKS¼á ETC«á  COMPUTE╥á HA╙ NO╘ BEE╬ ALTERE─ FRO═á M┬ ì
  817. SPECS« $75░ INSPEC╘ I╬ EAS╘ BENTLEIG╚ O╥ RIN╟ (03)57╕ 814╡ FO╥ DETAILSè                                SNATCH.COM
  818.  
  819.                   By David Downs (983) of DAVLAN Software
  820.      
  821.      SNATCH.CO═á i≤á ß prograφ tha⌠ wil∞ enablσ yo⌡ t∩ easil∙á anΣá quickl∙ ì
  822. savσá ßá MicroWorlΣá Basiπ prograφ froφ thσ CP/═ promp⌠ withou⌠á ßá lo⌠á oµ ì
  823. fiddl∙á messinτ abou⌠ iε thσ monitor«á  I⌠ caε bσ useΣ t∩ recove≥ ß prograφ ì
  824. afte≥ yo⌡ havσ beeε dumpeΣ bacδ int∩ CP/═ o≥ t∩ makσ backu≡ copie≤ oµ Basiπ ì
  825. program≤ imbeddeΣ oε MicroBeσ prograφ disk≤  (Backu≡ copie≤á only!íá  Don'⌠ ì
  826. bσ naught∙ now)
  827.  
  828.      Thσ prograφ i≤ simplicit∙ itselµ t∩ use«á  Wheε run¼á i⌠ check≤ t∩ seσ ì
  829. iµá ßá Basiπ prograφ exist≤ iε memor∙ anΣ then¼á dependinτ oε thσá forφá oµ ì
  830. commanΣ used¼ wil∞ eithe≥ savσ thσ filσ o≥ asδ yo⌡ fo≥ thσ namσ oµ thσ filσ ì
  831. t∩ bσ saved.
  832.  
  833.      NOT┼á tha⌠á therσ i≤ n∩ wa∙ tha⌠ ß prograφ caε bσ recovereΣ iµ i⌠á ha≤ ì
  834. beeε overwritteε (make≤ sensσ don'⌠ it)«á  Thσ SHEL╠ program¼á L.COM¼ etc.« ì
  835. wil∞á overwritσ par⌠ oµ memor∙ s∩ iµ thesσ havσ beeε used¼á you'rσá ou⌠á oµ ì
  836. luck«á  Thereforσ removσ theφ froφ thσ auto-execut/inτ commanΣ iµ yo⌡ intenΣ ì
  837. t∩ usσ thi≤ program.
  838.  
  839.      T∩á makσá ß BACKU╨ cop∙ oµ ß Basiπ prograφ oε ßá MicroBeσá disk¼á jus⌠ ì
  840. selec⌠ thσ prograφ yo⌡ desirσ froφ thσ menu¼á anΣ wheε i⌠ i≤ running¼á takσ ì
  841. thσá MicroBeσ disδ ou⌠ anΣ inser⌠ you≥ worδ disk«á  Pres≤ anΣ releasσ RESE╘ ì
  842. anΣ theε a⌠ thσ A╛ promp⌠ ruε SNATCH.
  843. 
  844. FORMS TO THE COMMAND
  845.  
  846. SNATC╚á                 -  Run≤ SNATCH«á Yo⌡ wil∞ bσá askeΣ for d:FILENAME.TYP
  847.  
  848. SNATC╚á d:FILENAME.TY╨á -  Save≤áprograφá FILENAME.TYP┼á oε drive d
  849.  
  850. SNATCH ?                -  Displays help info
  851.  
  852.      Iµ thσ filenamσ tha⌠ yo⌡ ente≥ alred∙ exists¼á SNATC╚ wil∞ renamσá thσ ì
  853. olΣ filσ t∩ FILENAME.BAK
  854.  
  855.      ╔ hopσ tha⌠ thi≤ prograφ caε bσ oµ somσ usσ t∩ yo⌡ (bu⌠ ╔ hopσ tha⌠ i⌠ ì
  856. neve≥á ha≤ t∩ bσ useΣ iε ange≥ althougΦ i⌠ ha≤ saveΣ m∙ bacoε tw∩ o≥á threσ ì
  857. times.⌐   Thσ sourcσ codσ (Z8░ .MA├ file⌐ i≤ availablσ iµ wanted¼ jus⌠ dro≡ ì
  858. mσ ß linσ anΣ ╔ wil∞ uploaΣ i⌠ ont∩ thσ board.
  859.  
  860.  
  861. 
  862. From:    Glenn Logan     To:      All        Subject: telcom
  863. 
  864. Iµ anyonσ i≤ interested¼á yo⌡ caε makσ TELCO═ 'fireº u≡ oε thσ M║á drivσ b∙ ì
  865. usinτá WORDSTAR¼á adΣ thσ drivσ yo⌡ wan⌠ i⌠ t∩ firσ u≡ on╗á eτ M║á ╔ pu⌠ i⌠ ì
  866. betweeε 'flipº anΣ 'format'.
  867. 
  868. From:    Eric Reaburn    To:      All   Subject: games
  869. 
  870. ╔á havσá uploadeΣ tw∩ version≤ oµ ß gamσ oµ "Othelloó ╔ havσá written«á Thσ ì
  871. firs⌠á i≤ PASOTH.CZ═ anΣ i≤ versioε 1.31«á Thσ bette≥ onσá  (╔á think)¼á i≤ ì
  872. POTH141.CZ═ (versioε 1.41)«á DownloaΣ theφ anΣ givσ theφ ß try. I'Σ likσ t∩ ì
  873. kno≈á wha⌠á peoplσ thinδ oµ theφ (o≥ rathe≥ wha⌠ the∙ thinδ oµá thσá lates⌠ ì
  874. version).
  875. è
  876.  
  877.  
  878.  
  879.  
  880.  
  881.  
  882.  
  883.  
  884.  
  885.  
  886.  
  887.  
  888.  
  889.  
  890.  
  891.  
  892.  
  893.  
  894.  
  895.  
  896.  
  897.  
  898.  
  899.  
  900.  
  901.  
  902.  
  903.  
  904.  
  905.  
  906.  
  907.  
  908.  
  909.  
  910.  
  911.  
  912.  
  913.  
  914.  
  915.  
  916.  
  917.  
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.  
  932.  
  933. è                               -- MIG.MWB --
  934.  
  935.      Thi≤ i≤ ß prograφ t∩ demonstratσ movinτ PC╟ graphic≤ oε thσ 'Bee«á  I⌠ ì
  936. place≤ LORE╙ blob≤ oε thσ screen¼á whicΦ arσ graduall∙ revealeΣ t∩ sho≈ thσ ì
  937. truσ PCGs¼ which¼ wheε full∙ formed¼ fl∙ ofµ toward≤ thσ to≡ oµ thσ screen«  ì
  938. Aε interestinτ thinτ t∩ tr∙ i≤ typinτ SPEE─ 10░ beforσ runninτ thσ program«  ì
  939. Thσá d/atß i≤ reaΣ iε a⌠ thσ samσ ratσ bu⌠ al∞ PRIN╘ statement≤ arσ executeΣ ì
  940. mucΦ morσ slowl∙ thaε usual.       Program name : MIG
  941. áá
  942. 00100 REM SIMON CARTER 11/8/1987  √▒┤╕²
  943. 00110 LORES : PCG : CLS : X=1 : Y=10  √░▓░²
  944. 00120 GOSUB 160 : GOSUB 200 : FOR A=64528 TO 64831 : READ B : 
  945.       POKE A,B : NEXT A  √▓│╕²
  946. 00130 FOR A=65040 TO 65263 : READ B : POKE A,B  √▒╡╢²
  947. 00140 IF Y>-2 : Y=Y-1 : GOSUB 160  √▒╣░²
  948. 00150 NEXT A : FOR Y=9 TO -2 STEP -1 : GOSUB 200 : NEXT Y : NORMAL : END √▓┤▒²
  949. 00160 IF Y>0 : CURS X+3,Y : PRINT"GJ"  √▒│╡²
  950. 00170 IF Y>-1 : CURS X,Y+1 : PRINT"ACEHKMOQ"  √▒╖▒²
  951. 00180 IF Y>-2 : CURS X,Y+2 : PRINT"BDFILNPR"  √▒╖╢²
  952. 00190 IF Y>-3 : CURS X,Y+3 : PRINT"SSSSSSSS" : RETURN  √░│╕²
  953. 00200 IF Y>0 : CURS X+12,Y : PRINT"eh"  √▒╣╢²
  954. 00210 IF Y>-1 : CURS X+10,Y+1 : PRINT"acfikm"  √▒╡▒²
  955. 00220 IF Y>-2 : CURS X+10,Y+2 : PRINT"bdgjln"  √▒╡╕²
  956. 00230 CURS X+10,Y+3 : PRINT"SSSSSS" : RETURN  √░▒▓²
  957. 00240 REM Tu-128 Fiddler  √▒╡│²
  958. 00250 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1  √▒╣│²
  959. 00260 DATA 7,7,3,1,0,0,0,0,0,0,0,0,0,0,0,0  √▒╣▒²
  960. 00270 DATA 0,0,0,0,0,0,0,0,0,1,3,7,15,31,127,255  √░╢╢²
  961. 00280 DATA 255,252,240,224,0,0,0,0,0,0,0,0,0,0,0,0  √░╢╕²
  962. 00290 DATA 0,0,0,1,3,15,31,127,255,255,255,255,255,255,240,224  √▓▒┤²
  963. 00300 DATA 96,96,32,0,0,0,1,15,63,31,15,7,0,0,0,0,0,0,1,1,1,1,3,3  √░╢│²
  964. 00310 DATA 3,3,3,7,7,63,63,63,63,63,127,255,255,255,255,255,255  √▓▓╖²
  965. 00320 DATA 255,255,255,255,255,31,31,31,31,31,31,31,127,255,255  √▓▓░²
  966. 00330 DATA 255,255,255,192,0,0,0,0,0,128,192,192,192,192,224,224  √░│╖²
  967. 00340 DATA 224,224,224,240,240,254,254,254,254,254,255,255,255  √▓▓╖²
  968. 00350 DATA 255,255,255,255,255,255,255,255,255,252,252,252,252  √▓│▒²
  969. 00360 DATA 252,252,252,255,255,255,255,255,255,129,128,128,0,0  √░░▒²
  970. 00370 DATA 0,0,0,192,224,248,252,255,255,255,255,255,255,255,7,3  √░▓▒²
  971. 00380 DATA 3,3,2,0,0,0,192,248,254,252,248,240,0,0,0,0  √▒│░²
  972. 00390 DATA 0,0,0,0,0,0,0,0,128,192,224,240,248,254,255,255  √▒╡╖²
  973. 00400 DATA 127,31,3,0,0,0,0,0,0,0,0,0,0,0,0,0  √░▒╖²
  974. 00410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,224  √░┤│²
  975. 00420 DATA 252,252,248,240,0,0,0,0,0,0,0,0,0,0,0,0  √░╢╣²
  976. 00430 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  √▒╣┤²
  977. 00440 REM MIG 25 FOXBAT A  √▒╡╡²
  978. 00450 DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1  √▒╣░²
  979. 00460 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  √▒╣╕²
  980. 00470 DATA 0,0,0,0,0,0,1,17,17,17,23,31,127,255,255,255  √▒╡▓²
  981. 00480 DATA 255,0,0,0,0,0,0,0,1,3,1,0,0,0,0,0  √▓╡╡²
  982. 00490 DATA 0,0,0,0,0,0,0,0,1,1,1,3,3,3,3,3,31  √▓┤╣²
  983. 00500 DATA 31,31,31,31,31,31,63,127,255,255,255,255,255,255,255  √▓╡▒²
  984. 00510 DATA 255,63,63,63,63,63,127,255,255,240,224,192,0,0,0,0,0  √░╡┤²
  985. 00520 DATA 0,0,0,0,0,128,128,192,192,192,224,224,224,224,224,252  √▓▓░²
  986. 00530 DATA 252,252,252,252,252,252,254,255,255,255,255,255,255  √▓│╕²
  987. 00540 DATA 255,255,255,254,254,254,254,254,255,255,255,3,1,0,0,0  √░│╢²
  988. 00550 DATA 0,0,0,0,0,0,0,0,64,68,68,196,244,252,255,255,255,255  √▓╡░²
  989. 00560 DATA 255,0,0,0,0,0,0,128,224,240,224,192,0,0,0,0  √▒╡╖²
  990. 00570 DATA 0,0,0,0,0,0,0,0,0,0,64,64,64,192,192,192  √▒│╖²
  991. 00580 DATA 192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  √▓┤╣²è.po8
  992.  
  993.  
  994. *** BAZAAR SALES *** BAZAAR SALES *** 
  995.  
  996.       *ááYOU╥ááááLIBRAR┘áááá*ì
  997.              
  998.            THE CATCHER
  999.       02B├ Volumσ ▓     (Oct.83-Sept.84⌐.................. $15.0░    
  1000.       03BC Volume 3     (Oct.84-Sept.85).................. $15.00    
  1001.       04UB Volume 4     (Oct.85-Sept.86)                              
  1002.            (Unbound-Only enough for 3..................... $15.00    
  1003.       MB01 MAGAZINE BINDERS   (For ONLINE)................ $ 8.00
  1004.  
  1005.       * HEAD   CLEAN *
  1006.  
  1007.       5HCK Drive Head Cleaning Kit 5.25" ................. $10.00
  1008.       3HCK Drive Head Cleaning Kit 3.5" .................. $13.00
  1009.                                               
  1010.        * SOFTWARE   *                         
  1011.  
  1012.       01B┴ BeeArtistiπá (Graphiπ S/W⌐á.................... $35.0░
  1013.       01BP BeeArtistic Premium Version ................... $35.00
  1014.        ($20.00 for an Update from Standard- Old orignal for New)
  1015.       001W Write Hand Man     (Order) .................... $40.00
  1016.       0BKP Beekeeper (see review Catcher Jan. '87)........ $90.00            
  1017.       1FPF Flashprint 4    (with Flashkey) ............... $50.00    
  1018.       002S Poor Persons Spooler   (Order) ................ $40.00    
  1019.       003S Poor Persons Spreadsheet   (Order)............. $40.00    
  1020.       004S Poor Persons Spelling Checker  (Order)......... $30.00      
  1021.       005S Poor Persons Window System   (Order)........... $30.00    
  1022.       006S Poor Persons Menus   (Order)................... $30.00    
  1023.       007S Poor Persons Keyed Sequential Files (Order).... $30.00            
  1024.       00PM Printmaster Editor ............................ $25.00
  1025.            Dreamcards Software Orders are available on request.
  1026.            (10% discount for Club Members).
  1027.  
  1028.       * YOUR   PRINTER   *
  1029.  
  1030.       80PR Carboε Printe≥ Ribboε (New Stock - Better quality this time)
  1031.                      (suit xyz.80/100 printers) .......... $12.00   
  1032.       10PP 1250 SHEETS CONT. PAPER
  1033.                 (70 GSM - NOT AVAILABLE FOR MAILING)...... $15.00
  1034.     
  1035.       ¬ááDISK╙  ááááá *
  1036.      
  1037.       3SDB Blank 3.5" Disks, MAXELL   SSDD Box of 10 ...... $40.00 
  1038.       3SDS Blanδ 3.5ó Disk≤, MAXELL   SSDD Singles ........ ñ 4.00 
  1039.       3DSF Blank 3.5" Disks, BASF DSDD Plastic Box of 5 ... $23.00
  1040.       5DSSáBlanδ 5.25ó Disks, NASHUA DSDD Singles ......... $ 1.70 
  1041.       3DSF Blank 3.5" Disks, BASF DSDD Singles  ............$ 4.80
  1042.            (These Nashua Disks are DSDD, NOT SSDD like some
  1043.             which are advertised).
  1044.       5DSD Blank 5.25" Disks, Singles ..................... $ 1.40
  1045.       
  1046.  
  1047.  
  1048. *** BAZAAR SALES *** BAZAAR SALES ***
  1049.  
  1050.  è*** BAZAAR SALES *** BAZAAR SALES ***
  1051.  
  1052.       * HARDWARE   *
  1053.  
  1054. Hardwarσ come≤ a≤ is«á ┴ disδ drivσ mean≤ ß disδ driveí N∩ powe≥ supply¼ n∩ ì
  1055. cable¼á n∩ connectors¼á N╧ FITTIN╟ INSTRUCTIONS¼á nothingí Iµ yo⌡ thinδ yo⌡ ì
  1056. wil∞á neeΣ hel≡ instal∞ o≥ builΣ an∙ hardwarσ thi≤ cluΓ supplies¼á i⌠ woulΣ ì
  1057. bσá iε you≥ bes⌠ interest≤ t∩ seeδ qualifieΣ assistancσ prio≥ t∩á purchase« ì
  1058. Thi≤á caε bσ obtaineΣ froφ somσ member≤ a⌠ "SIGó nights«á N.B«á Clocδá kit≤ ì
  1059. wil∞á onl∙ fi⌠ Premiuφ o≥ 1248-╢ baseboards«á Prin⌠ buffe≥ kit≤ arσá board¼ ì
  1060. eproφ, instructions and manual only« 
  1061.  
  1062.  
  1063.       00PB Don Mc Kenzie Printer Buffers
  1064.                PC Board and Eprom ......................... $ 40.00
  1065.       00DC 256/120ns DRAM CHIPS ........................... $  7.00
  1066.       03DD 1MEG. (Unformatted) NEC 3.5" Third Height DS/FDD $220.00
  1067.       05DD 1MEG/1.6MEG DUAL SPEED 5.25" Disk Drive ........ $225.00
  1068.       01T├ REA╠ TIM┼ CLOCK  KIT╙ (see May Catcher)......... $ 25.00
  1069.       SP01 SPEED MODULATOR  (slows down BEE for games).,..  $ 15.00
  1070.                   
  1071.       * DISK   STORAGE  *
  1072.  
  1073.       5B85 DISK STORAGE BOX 5.25"  (Lockable, holds 100)... $ P.O.A
  1074.       5B10 DISK LIBRARY BOX 5.25"  (holds 10) ..............$  3.00
  1075.       3B40 DISK STORAGE BOX 3.5"   (Lockable, holds 40) ... $ 18.00 
  1076.  
  1077.       All postal orders to be sent to MBUG AUSTRALIA SALES    
  1078.                                       P.O. BOX 157, NUNAWADING
  1079.                                       VICTORIA 3131
  1080.  
  1081.    T∩ avoiΣ delays¼á al∞ order≤ mus⌠ includσ cheque¼ posta∞ orde≥ 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.  
  1086.    PLEASE SPECIFY DISK SIZE WHEN ORDERING SOFTWARE 
  1087.  
  1088.    GOOD╙  AVAILABL┼ FO╥ MEMBER╙ ONL┘      
  1089.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
  1090.    Please charge my Bankcard/Visa/Master Card No. ___ __ ___ ______
  1091.  
  1092.    Expiry Date __/__/____               Signature_________________
  1093.    Members Name.__________________________________ M/ship No._____
  1094.    Address._______________________________________________________
  1095.    Phone Number_____________________(INC S.T.D. CODE)
  1096.    Code  Item                      Quantity    Price    Total Cost
  1097.    ____  ________________________  ________    _____    __________
  1098.    ____  ________________________  ________    _____    __________
  1099.    ____  ________________________  ________    _____    __________
  1100.    Postal Fees (within Aust.)       Sub-Totals Items     $_________
  1101.    $10 to $20 order    :$2.50  Postage & Handling Fee   $_________
  1102.    $20 to $80 order    :$5.00
  1103.    greater than $80    :$7.50             Total Order    $_________
  1104.  
  1105.    Certified Mail add $1.00              Security Post  add $5.00
  1106.         MINIMUM POSTAL ORDER $10.00            MAR.'88.      
  1107.  
  1108. *** BAZAAR SALES *** BAZAAR SALES ***