home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug010.arc / 1985AUG.CAT < prev    next >
Text File  |  1979-12-31  |  55KB  |  1,107 lines
  1. .PL70      
  2. .OP
  3. .PO0 
  4. .HE        ---- T H E  C A T C H E R ----     #
  5.  
  6. TO :  MBUG AUSTRALIA,     
  7.  
  8. The Membership Secretary, 26 Alexander Cr., Ferntree Gully. 3156
  9.  
  10. I would like to -   join MBUG AUSTRALIA             [ ]
  11.                     renew my subscription to M.A.   [ ] Member No. [   ]
  12.  
  13. NAME      :________________________________________________
  14.  
  15. ADDRESS   :________________________________________________
  16.  
  17.            ________________________________________________
  18.  
  19. TELEPHONE :__________________ SYSTEM :_________________
  20.  
  21. HARDWARE  :____________________________________________
  22.  
  23. [ ] $20  Melbourne subscription per year.                           
  24. [ ] $17  Non-city  subscription per year.
  25. [ ] A$20 New Zealand subscription per year.
  26. [ ] $10  Tape Library membership (payment only required once)
  27. [ ] $15  Student Membership Subscription per year.
  28. [ ] I would like a receipt, please
  29.  
  30.  
  31. -------------------------------------------------------------
  32. |                                                           |          
  33. |          SERVICES  PROVIDED  BY  MBUG  AUSTRALIA          |
  34. |                                                           |
  35. |-----------------------------------------------------------|
  36. | TAPE LIBRARY *    P.O. BOX 45 CANTERBURY 3126             |
  37. |-----------------------------------------------------------|
  38. | EDITOR       *    10 CONN St. FERNTREE GULLY 3156         |
  39. |-----------------------------------------------------------|           
  40. | $2.0░áPE╥ S/W TAP┼ FO╥ ON┼ MONTH¼  RETURNED  NEXT MEETING.|
  41. | $5.00 PER SIG/M VOLUME, WE SUPPLY THE DISK.               |
  42. | $4.00 PER BLANK 5" DISKETTE (DSDD)                        |  
  43. |-----------------------------------------------------------|
  44. | ADVERTISEMENTS *   P.O. BOX 157 NUNAWADING 3131           |
  45. | $80.00 FULL PAGE   $40.00 HALF PAGE   $25.00 QUARTER PAGE |
  46. | $3.00 FOR SERVICE AND RECURRENT ITEMS (LESS THAN 5 LINES) |
  47. | FREE  FOR ADVERTISEMENTS THAT ARE NOT RECURRING ITEMS     |ì
  48. |-----------------------------------------------------------|
  49. | MODEM HIRE *      JOHN BUXTON 758-5744                    |
  50. | $5.00 FIRST WEEK  THEN $10.00 EACH ADDITIONAL WEEK        |
  51. | PLUS $25.00 DEPOSIT                                       |
  52. |-----------------------------------------------------------|
  53. | BAZAAR * MICK HOLZINGER 354-6742 P.O. BOX 253 COBURG  3058|
  54. |-----------------------------------------------------------|
  55. | $1.50 PER C30 TAPE OR $25.00 PER BOX OF 20.               |
  56. | $1.50 BACK ISSUES OF CATCHER  VOL 1 NO 1 PRINTED  OCT 82  |
  57. |-----------------------------------------------------------|   
  58. | DISKETTE COPYING *    GRANT  FOREST  874-8728             |
  59. |-----------------------------------------------------------|
  60. |  5"TO 8"  OR  8"TO 5"  MOST FORMATS  $2.00 PER DISKETTE   |
  61. |-----------------------------------------------------------|
  62. |  FOR  ALL  POSTAL  ORDERS  ADD  $1.50  MINIMUM            |
  63. -------------------------------------------------------------è
  64.  
  65.  
  66.  
  67. --FROM-THE-CHIEF-MICROBUG--FROM-THE-CHIEF-MICROBUG--FROM-THE-CHIEF-MBUG---
  68.  
  69. ╔á havσ decideΣ  no⌠ t∩ ruε fo≥ ß fourtΦ terφ a≤ PRESIDEN╘ anΣ ANDRE╫á REI─ ì
  70. wil∞á als∩á ste≡á dowεá froφá thσá positioεá oµá VICE-PRESIDENT«áá M∙á worδ ì
  71. commitment≤ ove≥ thσ nex⌠ ╡ month≤ makσ i⌠ increasingl∙ difficul⌠ fo≥ mσ t∩ ì
  72. attenΣá thσá maiεá meetinτ anΣ ne≈ blood/idea≤ caε onl∙á improvσá thσá cluΓ ì
  73. standard« 
  74.  
  75. ╔á wil∞á no⌠ bσ oε thσ committeσ iε an∙ capacit∙ bu⌠ wil∞ sta∙á iεá contac⌠ ì
  76. witΦ mos⌠ member≤ througΦ thσ RBB╙ wherσ ╔ hopefull∙ wil∞ remaiε thσá SYSO╨ ì
  77. fo≥á ß timσ «á Le⌠ mσ takσ thi≤ opportunit∙ t∩ pleaΣ t∩ anyonσ wh∩ want≤ t∩ ì
  78. bσá involveΣ iε thσ cluΓ t∩ becomσ ß committeσ membe≥ anΣ assis⌠á thσá cluΓ ì
  79. witΦ thei≥ labour«á 
  80.  
  81. Iµ thσ onu≤ keep≤ fallinτ oε thσ samσ peoplσ eacΦ year¼ the∙ losσ therσ viφ ì
  82. anΣ vigor¼á more/ne≈ peoplσ mean≤ tha⌠ thσ cluΓ a≤ ß wholσ profits«á Le⌠ mσ ì
  83. kno≈á beforσá thσ star⌠ oµ thσ nex⌠ meetinτ iµ yo⌡ arσá interesteΣá iεá an∙ ì
  84. committeσ position.
  85.  
  86. Thank≤ fo≥ you≥ patiencσ durinτ thσ club≤ growth«á I⌠ ha≤ beeε ß lo⌠ oµ fuε ì
  87. sincσá ╔á starteΣá thσá cluΓ anΣ attempteΣá t∩á delive≥á wha⌠á thσá member≤ ì
  88. required« Withou⌠ ß committeσ tha⌠ woulΣ bσ impossible╗ iµ yo⌡ wan⌠ t∩ kee≡ ì
  89. thσ cluΓ growinτ witΦ ne≈ idea≤ joiε thσ committee.
  90.  
  91. Greτá BLAC╦á wil∞á no⌠á bσá doinτá hi≤á LAST-MEETIN╟á COLUM╬á duσá t∩á worδ ì
  92. commitments¼á s∩á iµá anyonσ i≤ interesteΣ le⌠ u≤ know«á Wil∞ kee≡ m∙á las⌠ ì
  93. columεá shor⌠ a≤ ╔ normall∙ usσ thi≤ spacσ t∩ le⌠ yo⌡ kno≈ wha⌠ wσ wil∞á bσ ì
  94. doinτá iεá thσá future«á ╔ wil∞ leavσ i⌠ t∩ thσ ne≈á presiden⌠á sharσá thi≤ ì
  95. informatioε nex⌠ month« Thank-yo⌡ al∞ oncσ again.
  96.  
  97. A╛ GRANT
  98.  
  99. --FROM-THE-CHIEF-MICROBUG--FROM-THE-CHIEF-MICROBUG--FROM-THE-CHIEF-MBUG--
  100.  
  101.  
  102. --A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--
  103.  
  104. Thσá A.T«á BEE-SHO╨á ha≤ moveΣ t∩ 
  105.           50-52 WHITEHORSE ROAD DEEPDENE 3130
  106.           817 1371 ( three lines )
  107.  
  108. Oµá specia∞á interes⌠ t∩ member≤ i≤ thσ 10Ñ discoun⌠ oε al∞á s/≈á purchaseΣ ì
  109. wheε you≥ MBU╟ AUSTRALI┴ IN├ membershi≡ carΣ i≤ shown«á Therσ i≤ als∩ ß 10Ñ ì
  110. discoun⌠á oε H/╫ i≤ yo⌡ havσ beeε ß membe≥ fo≥ ove≥ ╢ months«á A.╘ wil∞á bσ ì
  111. giveεá ßá membershi≡ numbe≥ eacΦ montΦ s∩ tha⌠ the∙ kno≈ wha⌠á member≤á arσ ì
  112. entitleΣ t∩ thσ H/╫ discount.
  113. 
  114. Thi≤á columεá continue≤á oε pagσ ┤ witΦ somσ basiπ tip≤á anΣá listing≤á fo≥ ì
  115. Checksumming your BASIC programs.   ED.
  116.  
  117.  
  118. --A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--A.T.COLUMN--
  119.  
  120.  
  121. è                         FROM THE EDITORS KEYBOARD
  122. 
  123.      Well¼ a⌠ las⌠ wσ havσ caugh⌠ u≡ witΦ ou≥ commitment≤ t∩ ge⌠ thσ ì
  124. CATCHE╥ t∩ yo⌡ beforσ eacΦ meeting« Al∞ beinτ wel∞ ╔ hopσ ╔ caε kee≡ i⌠ ì
  125. tha⌠ way« ╔ havσ spokeε t∩ APPLIE─ TEC╚ anΣ wσ caε no≈ publisΦ thσ Checksuφ ì
  126. prograφ tha⌠ appeareΣ iε "ONLINEó fo≥ thosσ oµ yo⌡ wh∩ don'⌠ subscribe« Iµ ì
  127. yo⌡ don'⌠ yo⌡ arσ missinτ ou⌠ oε excellen⌠ valuσ fo≥ mone∙ anΣ somσ gooΣ ì
  128. basiπ ideas¼ tutorial≤ anΣ al∞ sort≤ oµ othe≥ goodies« B∙ usinτ Checksuφ ì
  129. yo⌡ caε eliminatσ somσ oµ thσ editinτ yo⌡ havσ t∩ d∩ wheε typinτ iε you≥ ì
  130. BASI├ listings« ╔ suspec⌠ somσ oµ yo⌡ ma∙ havσ sorσ finger≤ afte≥ typinτ ì
  131. al∞ las⌠ month≤ listings« Sorr∙ abou⌠ thσ pagσ numbers« 
  132.  
  133.      Thosσ oµ yo⌡ wh∩ usσ you≥ modem≤ anΣ arσ no⌠ gettinτ througΦ t∩ ì
  134. SOFTWAR┼ TOOL╙ RCP═ thσ reasoε i≤ this« Thσ systeφ ha≤ changed.
  135.  
  136. ╔ spokσ t∩ Bil∞ Boltoε a⌠ PC8╡ anΣ hσ askeΣ mσ t∩ pas≤ oε thi≤ message║ 
  137.  
  138. SOFTWARE TOOLS RCPM  (07) 378-9530 IS NOW V.22 1200bps FULL DUPLEXONLY
  139. MODEM ACCESS V.21 IS NO LONGER SUPPORTED.
  140. 
  141.      Pape≥ Library« Wσ havσ ß pape≥ librar∙ iε ou≥ club« What'≤ ß pape≥ ì
  142. librar∙ ╔ hea≥ somσ oµ yo⌡ ask?┐ Wσ kee≡ copie≤ oµ al∞ thσ Microbeσ clubsº ì
  143. newsletter≤ tha⌠ arσ printeΣ iε Australiß anΣ ß lo⌠ oµ othe≥ magazine≤ anΣ ì
  144. article≤ a≤ well« (Owner≤ manual≤ oε A.T« softwarσ arσ therσ fo≥ yo⌡ t∩ ì
  145. acces≤ thσ valuσ oµ thσ prograφ beforσ yo⌡ buy.⌐ Thesσ arσ a⌠ al∞ cluΓ ì
  146. meeting≤ fo≥ thosσ oµ yo⌡ wh∩ wisΦ t∩ reaΣ them« Yo⌡ ma∙ takσ note≤ froφ ì
  147. theφ bu⌠ the∙ arσ no⌠ fo≥ remova∞ froφ thσ cluΓ meeting« Thosσ oµ yo⌡ wh∩ ì
  148. havσ borroweΣ theφ anΣ diΣ no⌠ realisσ the∙ werσ no⌠ mean⌠ t∩ bσ removeΣ o≥ ì
  149. iµ yo⌡ though⌠ the∙ werσ t∩ takσ homσ anΣ keep¼ wσ woulΣ appreciatσ i⌠ iµ ì
  150. yo⌡ coulΣ returε them« Iµ yo⌡ havσ borroweΣ theφ froφ GRAN╘ thσ samσ ì
  151. applies.
  152.  
  153.  
  154.  
  155. 
  156.      DON'╘ FORGE╘  THI╙ MEETIN╟ I╙ ELECTIO╬ NIGH╘ FO╥ TH┼ NE╫ COMMITTEE«á I╞ ì
  157. YO╒ WAN╘ T╧ B┼ ELECTE─ MAK┼ SUR┼ YO╒ AR┼ THERE« ALSO¼ I╞ YO╒ HAV┼ AN┘ IDEA╙ ì
  158. O╥ COMPLAINT╙ A╙ T╧ HO╫ TH┼ CLU┬ O╥ AN┘ RELATE─ ISSU┼ T╧ TH┼ RUNNIN╟ O╞ TH┼ ì
  159. CLU┬á I╙á PERFORMED¼á COM┼á AN─ D╧ SOMETHIN╟ ABOU╘ IT«á I╘ I╙ NO╘á MUC╚á US┼ ì
  160. WRITIN╟á T╧á OTHE╥ MAGAZINE╙ AN─ TELLIN╟ THE═ W┼ AR┼ NO╘ DOIN╟ TH┼á JO┬á O╥ ì
  161. GRUMBLIN╟á AMONGS╘á YOURSELVE╙ ABOU╘ IT¼á COM┼ AN─ GE╘ TH┼ THING╙ YO╒á WAN╘ ì
  162. DON┼ DONE«á A╙ A╬ EXAMPLE¼ W┼ COUL─ REALL┘ D╧ WIT╚ TH┼ SERVICE╙ O╞ ┴ PERSO╬ ì
  163. WH╧á WOUL─ SUB-EDI╘ AL╠ TH┼ BASI├ LISTING╙ W┼ GE╘ BEFOR┼ THE┘ G╧ T╧á PRINT« ì
  164. THI╙á WOUL─ INVOLV┼ MAKIN╟ SUR┼ THE┘ RU╬ PROPERL┘ AN─ FIXIN╟á AN┘á MISTAKE╙ ì
  165. FOUN─á I╬á THEM«á AL╠á TH┼ MATERIA╠ YO╒ NEE─ (TAPES¼á PAPE╥ ETC.⌐á WIL╠á B┼ ì
  166. SUPPLIED. COME AND GIVE IT A GO. 
  167.  
  168.  
  169.  
  170. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  171.  
  172. FinΣá ßá numbe≥ whicΦ i≤ jus⌠ s∩ mucΦ shor⌠ oµ 5░ a≤ it≤ quadruplσá i≤ ì
  173. abovσ 50.
  174.  
  175. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  176.  
  177.  
  178.  
  179. èA.T..COLUMN--A.T..COLUMN--A.T..COLUMN--A.T..COLUMN--A.T..COLUMN--A.T..COLU
  180.  
  181. Öá     Thσá followinτ prograφ listinτ anΣ accompininτ tex⌠ (par⌠á only⌐á arσ ì
  182. reproduceΣáá froφá anΣá witΦá thσá permissioεá oµá thσá edito≥á oµá APPLIE─ ì
  183. TECHNOLOGY'╙  "ONLINEó thσ Microbeσ owner'≤ journal« The∙ arσ copyrigh⌠ anΣ ì
  184. ma∙ no⌠ bσ copieΣ excep⌠ fo≥ you≥ owε privatσ use« Ou≥ thank≤ g∩ t∩ APPLIE─ ì
  185. TECHNOLOGY.
  186.  
  187.      Thσ probleφ encountered¼á wheε enterinτ program≤ tha⌠ arσ listeΣ iεá ß ì
  188. compute≥á magazine¼á sucΦá a≤á Online¼á i≤ tha⌠ iµ thσ prograφá i≤á entereΣ ì
  189. incorrectly¼á i⌠á caε takσ man∙ hour≤ oµ checkinτ thσ magazinσ listinτá anΣ ì
  190. thσ codσ tha⌠ yo⌡ typeΣ iε t∩ seσ wherσ thσ typinτ erro≥ occurred« Checksuφ ì
  191. i≤ designeΣ t∩ preven⌠ this.
  192.  
  193.      T∩ usσ Checksum¼ onσ oµ thσ followinτ program≤ mus⌠ firs⌠ bσ typeΣ in« ì
  194. Therσá arσ tw∩ listing≤ provided«á Thσ firs⌠ listinτ i≤ fo≥ 16δá Microbees¼ ì
  195. thσ seconΣ i≤ fo≥ 2δ anΣ diskMicrobees«á Therσ arσ man∙ DAT┴ statement≤á iε ì
  196. thσ BASI├ listings¼ anΣ thesσ requirσ carefu∞ typing« 
  197.  
  198.      Beforσá tryinτá t∩á RU╬ thσ prograφ froφ BASIC¼á SAV┼ i⌠á t∩á tapσá o≥ ì
  199. diskette«á Wheεá yo⌡ havσ donσ thi≤ yo⌡ wil∞ bσ read∙ t∩ go«á Wheε yo⌡ havσ ì
  200. entereΣá thσ versioε oµ thσ prograφ tha⌠ i≤ appropriatσ fo≥á you≥á machine¼ ì
  201. follo≈ thesσ steps.
  202.  
  203. Operatσ thσ prograφ b∙ typing:
  204.  
  205. RU╬á [CR▌  Iµ yo⌡ havσ entereΣ thσ prograφ correctly¼á thσ followinτ shoulΣ ì
  206.            occur:
  207.  
  208.      1.   The screen is cleared.
  209.      2«á  ┴á seventeentΦá linσá i≤á se⌠á u≡ a⌠ thσá bottoφá oµá thσá screeε           ì
  210.           containinτ simplσ instruction≤ displayeΣ iε inversσ type.
  211.      3.   A new BASIC prompt A"[" is used instead of a ">"
  212.      4«   Thσ Checksum prograφ tha⌠ yo⌡ entereΣ i≤ eraseΣ froφ memor∙ anΣ ß ì
  213.           ne≈ prograφ caε bσ entered.
  214.  
  215. T∩á checδá tha⌠á wha⌠á yo⌡á havσ entereΣá i≤á correct¼á tr∙á thσá followinτ ì
  216. demonstratioε program.
  217. 00100 CLS:PRINT:PRINT
  218. 00110 FOR A = 1 TO 50
  219. 00120 PRINT A,A*2,A*3,A*4,A*5,A*A
  220. 00130 NEXT A
  221. 00140 END
  222.  
  223.      Notσ tha⌠ a≤ yo⌡ pres≤ thσ RETUR╬ key¼á ß numbe≥ i≤ printeΣ afte≥ eacΦ ì
  224. line« Thi≤ i≤ thσ Checksuφ numbe≥ fo≥ tha⌠ line.
  225.  
  226. Type: RUN [CR]   The program will run normally.
  227.      Iµ yo⌡ lis⌠ thσ program¼ thσ Checksuφ numbe≥ wil∞ appea≥ a⌠ thσ enΣ oµ ì
  228. eacΦá line«á Don'⌠á worry¼á the∙á arσ no⌠ par⌠ oµ you≥á program╗á the∙á arσ ì
  229. generateΣ eacΦ timσ prograφ i≤ listed.
  230.  
  231. Type: LIST [CR]
  232. 00100 CLS:PRINT:PRINT [001]
  233. 00110 FOR A = 1 TO 50 [048]
  234. 00120 PRINT A,A*2,A*3,A*4,A*5,A*A [099]
  235. 00130 NEXT A [020]
  236. 00140 END [108]
  237. è     Iµá yo⌡ wisΦ t∩ obtaiε sucΦ ß listinτ oε you≥ printer¼á simpl∙ se⌠á u≡ ì
  238. thσ printe≥ selectioε usinτ thσ outlú commanΣ anΣ type:
  239. LLIS╘ [CR▌  Thσ prograφ wil∞ bσ listeΣ witΦ thσ Checksuφ number≤ included.
  240.  
  241.      Iµ ß prograφ linσ i≤ incorrec⌠ (i.e«á thσ numbe≥ printeΣ a⌠ thσ enΣ oµ ì
  242. thσá linσ differ≤ froφ thσ numbe≥ a⌠ thσ enΣ oµ thσ correspondinτá linσá iε ì
  243. thσá prograφ listing)¼á yo⌡ caε edi⌠ thσ linσ usinτ thσ EDI╘ command«á Wheε ì
  244. yo⌡ terminatσ thσ EDI╘ commanΣ witΦ thσ RETUR╬ key¼ thσ ne≈ Checksuφ numbe≥ ì
  245. fo≥á tha⌠á linσ i≤ generateΣ anΣ printeΣ a⌠ thσ enΣ oµá thσá line«á Iµá thσ ì
  246. number≤ stil∞ differ¼á thσ linσ mus⌠ bσ editeΣ unti∞ thσ number≤ arσ equal¼ ì
  247. thu≤ makinτ thσ linσ correct.
  248.  
  249.      No⌠ al∞ program≤ wil∞ ruε correctly« Iε fac⌠ an∙ prograφ witΦ aε INPU╘ ì
  250. statemen⌠á wil∞á se⌠ thσ Checksuφ iε operation«á Thi≤ create≤á n∩á apparen⌠ ì
  251. problem¼á bu⌠á annoyinτá number≤á wil∞ appea≥ a⌠ thσ enΣá oµá eacΦá entereΣ ì
  252. string«á However¼á iµá thσ prograφ yo⌡ entereΣ unde≥ thσ Checksuφ i≤ saved¼ ì
  253. anΣ thσ Checksuφ prograφ i≤ eraseΣ usinτ thσ RESE╘ key¼ wheε thσ prograφ i≤ ì
  254. ruε al∞ sucΦ problem≤ wil∞ bσ avoideΣ anΣ thσ prograφ wil∞ operatσá withou⌠ ì
  255. an∙ errors.
  256.  
  257.                         THE WAY THE CHECKSUM WORKS
  258.  
  259.      Checksuφá add≤á togethe≥á thσá ASCI╔ code≤ oµ eacΦá characte≥á iεá thσ ì
  260. prograφá line«á Thσá resul⌠á i≤ divideΣ b∙ 25╢ anΣá thσá remainde≥á oµá thσ ì
  261. divisioε i≤ thσ fina∞ Checksuφ number«á Thi≤ provide≤ ß singlσ ╕ bi⌠ numbe≥ ì
  262. whicΦ i≤ fairl∙ wel∞ relateΣ t∩ you≥ prograφ line« Iε al∞ cases¼ lowe≥ casσ ì
  263. letter≤ wil∞ bσ converteΣ int∩ uppe≥ casσ fo≥ thσ purposσ oµ generatinτ thσ ì
  264. Checksuφ number.
  265.  
  266. RE═á statement≤ arσ ignored«á The∙ mus⌠ bσ includeΣ bu⌠ comment≤ afte≥ theφ ì
  267. arσ ignored« Fo≥ example¼ thσ line:
  268. 00100 REM ** This is a test **
  269. and the line
  270. 00100 REM This program is designed to create a disaster
  271. will generate the same Checksum number.
  272.  
  273. Spaces and proceeding zeros are also ignored, so the line:
  274. 00100 PRINT"HELLO"
  275. and the line
  276. 100 print "      HE  LLO"
  277. will generate the same number.
  278.  
  279.      Linσá number≤á arσá ßá ver∙ importan⌠ par⌠á oµá ßá BASI├á prograφá anΣ ì
  280. thereforσá havσ beeε includeΣ iε thσ Checksuφ generation«á Thi≤ mean≤á tha⌠ ì
  281. thσ lines:
  282. 100 PRINT "HELLO"
  283. and 
  284. 200 PRINT "HELLO"
  285. will generate different Checksum numbers.
  286.  
  287.                    This_listing_is_for_the_16k_Microbee.
  288.  
  289. 00100 CLS :NORMAL :A=15000:RESTORE 200 
  290. 00110 READ B:IF B=-1 THEN 130 ELSE POKE A,B:A=A+1: GOTO 110
  291. 00120 POKE 226,7: FOR A=178 TO 188 STEP 2:POKE A,48: POKE A+1,117:
  292.       NEXT A:POKE 226,1 
  293. 00130 CLS :POKE 216,17:PRINT CHR$(27);"W";CHR(27);"Z" [051]
  294. 00140 J1$="Cheksum in Operation --->> to operate on listings.
  295.       Use OUTL # 1 ":GOSUB 170 è00150 POKE 33852,93  
  296. 00160 NEW 
  297. 00170 FOR A=62464 TO 62464+64: POKE A,32:NEXT A 
  298. 00180 FOR A=1 TO LEN(J1$): IF A<23 THEN POKE 62463+A,ASC(J1$(;A,A))+128:
  299.       NEXT A ELSE POKE 62463+A,ASC(J1$(;A,A)):NEXT A 
  300. 00190 RETURN 
  301. 0020░ DAT┴ 254,13,194,128,59,33,40,7,126,254,32,32,3,35,24,24╕ 
  302. 00210 DATA 254,134,40,6,254,135,40,2,24,6,125,214,40,111,38,8 
  303. 00220 DATA 126,254,47,218,126,59,254,58,210,126,59,126,254,48,32,3 
  304. 00230 DATA 35,24,248,30,0,126,205,15,59,254,32,40,11,254,82,40 
  305. 00240 DATA 30,254,128,212,26,59,131,95,35,126,254,13,40,2,24,229 
  306. 00250 DATA 123,50,177,59,205,66,59,62,13,50,0,8,195,126,59,245 
  307. 00260 DATA 35,126,205,15,59,254,69,32,10,35,126,254,77,32,3,241 
  308. 00270 DATA 24,222,43,43,241,24,207,254,97,56,6,254,123,48,2,214 
  309. 00280 DATA 32,201,229,42,62,131,214,129,40,13,254,32,40,23,71,126 
  310. 00290 DATA 35,254,128,56,250,16,248,126,254,128,48,5,131,95,35,24 
  311. 0030░ DAT┴ 246,214,128,225,201,225,225,195,232,58,62,32,205,128,59,6▓ 
  312. 00310 DATA 32,205,128,59,62,91,205,128,59,14,100,205,104,59,90,14 
  313. 00320 DATA 10,205,104,59,122,198,48,205,128,59,62,93,205,128,59,201 
  314. 00330 DATA 175,6,8,203,19,23,145,48,1,129,16,247,87,123,23,47 
  315. 00340 DATA 198,48,205,128,59,201,62,13,245,58,252,8,254,1,40,5 
  316. 00350 DATA 58,226,0,24,3,58,227,0,254,1,40,13,254,2,40,13 
  317. 00360 DATA 254,16,40,13,254,32,40,13,201,241,195,47,166,241,195,248 
  318. 00370 DATA 181,241,195,122,168,241,195,127,168,0,-1 
  319.  
  320.  
  321.            This_program_is_for_the_32k_and_disk_based_Microbees
  322.  
  323. 00100 CLS :NORMAL :A=30000:RESTORE 210 
  324. 00110 READ B:IF B=-1 THEN 130 ELSE POKE A,B:A=A+1: GOTO 120 
  325. 00120 POKE 226,7: FOR A=178 TO 188 STEP 2:POKE A,48: POKE A+1,117:
  326.       NEXT A:POKE 226,1 
  327. 00130 CLS :POKE 216,17:PRINT CHR$(27);"W";CHR$(27);"Z" 
  328. 00140 J1$="Checksum in Operation --->> to operate on listings.
  329.       Use OUTL # 1 ":GOSUB 180 
  330. 00150 POKE 33852,93  
  331. 00160 NEW 
  332. 00170 FOR A=62464 TO 62464+64: POKE A,32:NEXT A 
  333. 00180 FOR A=1 TO LEN(J1$): IF A<23 THEN POKE 62463+A,ASC(J1$(;A,A))+128:
  334.       NEXT A ELSE POKE 62463+A,ASC(J1$(;A,A)):NEXT A 
  335. 00190 RETURN 
  336. 0020░ DAT┴ 254,13,194,24,118,33,40,7,126,254,32,32,3,35,24,24╕ 
  337. 00210 DATA 254,134,40,6,254,135,40,2,24,6,125,214,40,111,38,8 
  338. 00220 DATA 126,254,47,218,22,118,254,58,210,22,118,126,254,48,32,3 
  339. 00230 DATA 35,24,248,30,0,126,205,167,117,254,32,40,11,254,82,40 
  340. 00240 DATA 30,254,128,212,178,117,131,95,35,126,254,13,40,2,24,229 
  341. 00250 DATA 123,50,73,118,205,218,117,62,13,50,0,8,195,22,118,245 
  342. 00260 DATA 35,126,205,167,117,254,69,32,10,35,126,254,77,32,3,241
  343. 00270 DATA 24,222,43,43,241,24,207,254,97,56,6,254,123,48,2,214 
  344. 00280 DATA 32,201,229,42,62,131,214,129,40,13,254,32,40,23,71,126 
  345. 00290 DATA 35,254,128,56,250,16,248,126,254,128,48,5,131,95,35,24 
  346. 0030░ DAT┴ 246,214,128,225,201,225,225,195,128,117,62,32,205,24,118,6▓ 
  347. 00310 DATA 32,205,24,118,62,91,205,24,118,14,100,205,0,118,90,14 
  348. 00320 DATA 10,205,0,118,122,198,48,205,24,118,62,93,205,24,118,201
  349. 00330 DATA 175,6,8,203,19,23,145,48,1,129,16,247,87,123,23,47 
  350. 00340 DATA 198,48,205,24,118,201,62,13,245,58,252,8,254,1,40,5
  351. 00350 DATA 58,226,0,24,3,58,227,0,254,1,40,13,254,2,40,13 
  352. 00360 DATA 254,16,40,13,254,32,40,13,201,241,195,47,166,241,195,248 
  353. 00370 DATA 181,241,195,122,168,241,195,127,168,0,-1 è    Belo≈ i≤ thσ firs⌠ prograφ listinτ witΦ Checksuφ numbers« I⌠ i≤ onl∙ ß ì
  354. simplσ gamσ t∩ tes⌠ you≥ reactioε timσ bu⌠ i⌠ wil∞ givσ yo⌡ aε ideß oµ ho≈ ì
  355. Checksum≤ work« Maybe someonσ woulΣ likσ t∩ modif∙ thσ listinτ s∩ i⌠ give≤ ì
  356. it'≤ answer≤ iε rea∞ time?
  357. 
  358.                         BASIC LISTING    REFLEX.MWB
  359. 
  360. 00100 CLS:POKE257,1 [215]
  361. 00110 CURS 20:INVERSE:PRINT "                    ":CURS21,2  [202]
  362. 00120 CURS 21,3:PRINT"                    " [157]
  363. 00130 NORMAL:CURS22,5:PRINT"by Paul Dulfer 1984":PRINT [208]
  364. 00140 PRINT"This is a game for either 1 or 2 players" [097]
  365. 00150 PRINT"It is a game of fast reflexes" [028]
  366. 00160 PRINT"Do you want Game 1  ( for 1 player )" [179]
  367. 00170 PRINT"         or Game 2  ( for 2 players )" [224]
  368. 00180 PRINT"Make your selection   <1> or <2>"; [176]
  369. 00190 K1$=KEY$:IFK1$=""THEN 190 [055]
  370. 00200 IF K1$="2"THEN 510 [057]
  371. 00210 REM ** Game 1 ** [147]
  372. 00220 CLS [118]
  373. 00230 UNDERLINE:CURS 17:PRINT"Game 1";:NORMAL:PRINT [117]
  374. 00240 PRINT"In this game you press the key 'Z' when you hear" [155]
  375. 00250 PRINT"the beep.  You will be told how long you took and" [173]
  376. 00260 PRINT"you should try to improve each time." [103]
  377. 00270 INPUT"  Ready  ?  Press <RETURN> ";A1$:CLS [245]
  378. 00280 PRINT"Stand by for beep ..." [013]
  379. 00290 X=INT(RND*500)+100 [203]
  380. 00300 POKE 258,255 [041]
  381. 00310 FORI=1TOX [045]
  382. 00320 K1$=KEY$:IFK1$="z"ORK1$="Z"THEN 330ELSE 340 [100]
  383. 00330 CURS 1,2:INVERSE:PRINT"Take your finger off the key !!!";
  384.       :PLAY0,10:NORMAL:GOTO100 [105]
  385. 00340 NEXTI [031]
  386. 00350 POKE 258,52:C=0:PLAY 23 [184]
  387. 00360 K1$=KEY$ [131]
  388. 00370 C=C+1:IFK1$=""THEN 360 [107]
  389. 00380 PRINT:PRINT"You pressed the key '";K1$;"' ." [230]
  390. 00390 IFK1$="Z"ORK1$="z"THEN 430 [136]
  391. 00400 PRINT"Seeing this was the wrong key, you are disqualified" [015]
  392. 00410 PRINT"But for your information, the counter reading was ";C [093]
  393. 00420 GOTO 440 [103]
  394. 00430 PRINT"The counter reading for your reaction was ";C;" units" [105]
  395. 00440 PLAY 0,8:PRINT"Do you want another game of Game 1 or would
  396.       you like " [144]
  397. 00450 PRINT"to return to the main selection menu ?" [176]
  398. 00460 PLAY 0,8:PRINT"Make your selection <A>gain or <M>enu or <E>xit" [001]
  399. 00470 K1$=KEY$:IFK1$=""THEN 470 [057]
  400. 00480 IFK1$="A"ORK1$="a"THEN 210 [082]
  401. 00490 IF K1$="E"ORK1$="e"THEN 840 [100]
  402. 00500 CLS:GOTO 160 [129]
  403. 00510 REM ** Game 2 ** [150]
  404. 00520 CLS:CURS 15:UNDERLINE:PRINT"Game 2";:NORMAL:PRINT [146]
  405. 00530 PRINT:PRINT [236]
  406. 00540 PRINT"Player 1 presses 'Z' and Player 2 presses 'M' ." [245]
  407. 0055░ PRINT"Wheε yo⌡ hea≥ thσ beep¼ pres≤ you≥ ke∙ a≤ sooε a≤ yo⌡ canó ì
  408.       [222]
  409. 00560 PRINT"The person who presses their own key first wins." [135]
  410. 00570 INPUT"  Ready  ?  Press <RETURN> ";A1$:CLS [248]
  411. 00580 PRINT"Stand by for Beep ..." [016]è00590 X=INT(RND*500)+100 [206]
  412. 00600 POKE 258,255 [044]
  413. 00610 FORI=1TOX [048]
  414. 00620 K1$=KEY$:IFK1$="M" OR K1$="Z" THEN 630 ELSE 640 [096]
  415. 00630 CURS 1,2:INVERSE:PRINT"KEEP FINGERS OFF !! Take your finger
  416.       off the BUTTONS":NORMAL [051]
  417. 00640 NEXTI [034]
  418. 00650 POKE 258,52 [252]
  419. 00660 C=0:PLAY 23 [033]
  420. 00670 K1$=KEY$:C=C+1:IFK1$=""THEN 670 [150]
  421. 00680 PRINT:PRINT"The key pressed was ";K1$ [220]
  422. 00690 IFK1$="Z"ORK1$="z"THEN 730 [142]
  423. 00700 IFK1$="M"ORK1$="m"THEN 750 [110]
  424. 00710 PRINT"Because this was the wrong key, no-one wins !!!" [087]
  425. 00720 PRINT"But for your information, the reaction time was ";C:
  426.       GOTO770 [220]
  427. 00730 PRINT"Player 1 wins !!!  Reaction time was  ";C;" units" [012]
  428. 00740 GOTO 770 [114]
  429. 00750 PRINT"Player 2 wins !!! Reaction time was  ";C;" units" [015]
  430. 00760 GOTO 770 [116]
  431. 00770 PLAY 0,8:PRINT"Do you want another game of Game 2 or would
  432.       you like" [151]
  433. 00780 PRINT"to return to main selection menu ?" [213]
  434. 00790 PLAY 0,8:PRINT"Make your selection <A>gain or <M>enu or <E>xit" [007]
  435. 00800 K1$=KEY$:IFK1$=""THEN 800 [051]
  436. 00810 IFK1$="A"ORK1$="a"THEN 510 [082]
  437. 00820 IF K1$="E"OR K1$="e"THEN 840 [097]
  438. 00830 CLS:GOTO 160 [135]
  439. 00840 CLS:CURS 20,8:PRINT "G O O D B Y E !":PLAY16,4;0,10:CLS [059]
  440.  
  441. WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRI 
  442.  
  443.      Iεá goinτ froφ squarσ ┴ t∩ squarσ ┬ iε thσ figurσ below¼á wha⌠ i≤á thσ ì
  444. MAXIMIM numbe≥ oµ square≤ tha⌠ ß ches≤ knigh⌠ coulΣ touch¼á includinτ ┴ anΣ ì
  445. B¼á iµá thσ knigh⌠ make≤ onl∙ permissiblσ moves¼á doe≤ no⌠ toucΦ an∙ squarσ ì
  446. more than once, and does not go outside the 16 squares shown?
  447.  
  448.                  -----------------------------------------
  449.                  |   A     |         |         |   B     |
  450.                  |---------------------------------------|
  451.                  |         |         |         |         |
  452.                  |---------------------------------------|
  453.                  |         |         |         |         |
  454.                  |---------------------------------------|
  455.                  |         |         |         |         |
  456.                  -----------------------------------------
  457.  
  458.      ┴á prizσá oµ 1░ blanδ cassettσ tape≤ o≥ 1░ disk≤ (5",3"or,8"⌐ wil∞á bσ ì
  459. awardeΣá t∩á an∙á persoεá wh∩ caε suppl∙ thσá answe≥á iεá MICROWORL─á BASI├ ì
  460. includinτ graphics¼á ho≈ anΣ wherσ eacΦ movσ i≤ made«á Iε thσ even⌠ oµ morσ ì
  461. thaε onσ correc⌠ answer¼á consideratioε wil∞ bσ giveε t∩ prograφá structurσ ì
  462. anΣá choicσá oµ graphics«á Thσ prograφ shoulΣ sho≈ eacΦ movσ iε turε anΣá ß ì
  463. runninτ coun⌠ oµ move≤ i≤ t∩ bσ displayed« Entrie≤ MUST bσ supplieΣ oε tapσ ì
  464. o≥ disδ iε thσ forma⌠ oµ .MWB¼á WordSta≥ o≥ Wordbeσ (ASCI╔ FILES⌐ includinτ ì
  465. ßá pape≥á listinτ witΦ Checksums«á N∩ seperatσ listing≤ (oε paper⌐ wil∞á bσ ì
  466. considered« Don'⌠ forge⌠ t∩ includσ ß selµ addresseΣ envelopσ (stamped⌐ fo≥ ì
  467. thσá returεá oµá you≥á entry«á N∩á correspondencσá wil∞á bσá entereΣá into« ì
  468. Competitioε opeε t∩ ALL.
  469. WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRIZE--WIN-A-PRIè                       Microbee - Avtek Multi-Modem
  470.                        ============================
  471.     Connecting  CCITT V23 1200/75  75/1200  600/75  75/600 baud modes.
  472.     ------------------------------------------------------------------
  473.  
  474.                        Mark Bishop   29.06.85
  475.  
  476. Iεá it≤ standarΣ form¼á thσ Avteδ Multi-Modeφ (AMM⌐ i≤ capablσ oµ operatinτ ì
  477. iε al∞ thσ abovσ mode≤ (plu≤ others)«  T∩ d∩ thi≤ i⌠ mus⌠ bσ connecteΣ t∩ ß ì
  478. compute≥á witΦ AL╠ thσ requireΣ RS23▓ connection≤ anΣ softwarσá t∩á contro∞ ì
  479. thσá modσá selection«á  Likσ mos⌠ micro-computers¼á thσ Microbeσá onl∙á ha≤ ì
  480. limiteΣá RS23▓á connection≤á anΣ ha≤ n∩ standarΣ softwarσá t∩á contro∞á thσ ì
  481. selectioε oµ AM═ modes« 
  482.  
  483. Onσá solutioε i≤ t∩ selec⌠ thσ requireΣ mode≤ b∙ hardware¼á anΣ connec⌠ thσ ì
  484. AM═á input/output/contro∞á connection≤ t∩ availablσá Microbeσá RS23▓á pins«  ì
  485. Thi≤ involve≤ aε interfacσ cablσ froφ thσ Microbeσ t∩ thσ AMM¼ anΣ hardwarσ ì
  486. modificatioε t∩ thσ AMM.
  487.  
  488. Thσ Microbeσ TX─ outpu⌠ i≤ connecteΣ t∩ botΦ thσ AM═ TX─ (1200/600/30░ bd.⌐ ì
  489. anΣá BTX─ (75/╡ bd.⌐ input≤ b∙ linkinτ pin≤ 1░ anΣ 2╕ oµ IC1«á Thσ AM═ BRX─ ì
  490. anΣ RX─ output≤ arσ gateΣ togethe≥ a⌠ aε unuseΣ gatσ oµ IC7¼á anΣ outpu⌠ t∩ ì
  491. thσ Microbeσ RX─ input.
  492.  
  493. CCIT╘á V2│ originatσ (7╡ bd.TX» 120░ o≥ 60░ bd.RX⌐ anΣ answe≥ (120░ o≥á 60░ ì
  494. bd.TX» 75bd« RX⌐ modσ changeove≥ i≤ selecteΣ b∙ ß ne≈ switcΦ mounteΣ oε thσ ì
  495. fron⌠á panel«á Thσ changeove≥ i≤ madσ b∙ takinτ thσ AM═ DB2╡ RT╙ piε ┤á lo≈ ì
  496. anΣá DB2╡á BRT╙ piε 1▒ higΦ fo≥ originate¼á anΣ invertinτ botΦá fo≥á answe≥ ì
  497. mode« ┴ 74LS0░ I.C« wa≤ useΣ fo≥ logiπ anΣ switchinτ RTS/BRT╙ line≤ iε lie⌡ ì
  498. oµ ß DPD╘ switch«  Thσ I├ onl∙ allow≤ changeove≥ iε V2│ modes¼ iε al∞ othe≥ ì
  499. mode≤ thσ switcΦ ha≤ n∩ effect¼á witΦ thσ modeφ operatinτ a≤ i⌠ diΣá beforσ ì
  500. thσ modifications«  DPD╘ switcΦ connection≤ arσ showε belo≈ fo≥ comparison.
  501.  
  502. (1) RS232 Interface cable
  503.  
  504. Microbee DB25P pin         Avtek M.M. DB25P pin 
  505. ---------------------------------------------------------------------------
  506.  2      TXD     <----->    2      TXD
  507.  3      RXD     <----->    3      RXD
  508.  5      CTS     <----->    5      CTS                 
  509.  7      GND     <----->    7      GND
  510.  9       +V                       no connection required  
  511. 24      CLK     <----->   24      CLK                         
  512. ---------------------------------------------------------------------------
  513.  
  514. (2) Avtek Multi-Modem hardware modifications
  515.  
  516. parts required
  517. --------------
  518. 1       74LS00 I.C. (quad. 2 input NAND gate)
  519. 1       SPST or SPDT switch  (Dick Smith cat.# S-1173 or similar)
  520. 1       DB25S socket
  521. 1       330R .25W carbon resistor
  522. 2       1N4148 or 1N914 silicon diodes
  523. ▒ metrσ soliΣ conducto≥ insulateΣ wire for links « Telephonσ cablσ etc.
  524.  
  525. Instal∞á thσá DB25╙ oε thσ rea≥ pane∞ oµ thσ AMM¼á approx«á 27mφ abovσá thσ ì
  526. existinτ DB25S«  Thi≤ socke⌠ i≤ fo≥ connectioε t∩ thσ Microbee¼ leavinτ thσ ì
  527. origina∞ socke⌠ un-modified«  Removσ thσ fron⌠ pane∞ anΣ instal∞ thσ switcΦ ìèa⌠á thσ samσ heigh⌠ a≤ thσ man/aut∩ switch¼á 7.╡ mφ froφ thσ thσ lef⌠á edgσ ì
  528. wheεá lookinτá froφá thσá front«á WitΦ thσ switcΦá iεá thσá U╨á (originate⌐  ì
  529. positioε tw∩ oµ thσ switcΦ contact≤ mus⌠ bσ joined¼ notσ whicΦ two« 
  530.  
  531. New Microbee DB25S - links to existing DB25S
  532. ------------------------------------------
  533. Linδ piε ▓ t∩ piε ▓ (TXD)«á Piε ╖ t∩ piε ╖ (GND)« Piε ╡ (CTS⌐ ne≈ DB25╙ viß ì
  534. ß 100╥ resisto≥ t∩ piε ╢ (DSR/+5V)«á N╧ connectioε i≤ madσ t∩ piε 2┤á (CLK⌐ ì
  535. oεá thσá ne≈á DB25S«á  Microbeσ pin≤ ╡ ª 2┤ arσ useΣ fo≥á auto-diallinτá b∙ ì
  536. TELCO═ 2«á Wheε ╔ figurσ ho≈ the∙ caε bσ connected¼á I'l∞ le⌠ yo⌡ know« Fo≥ ì
  537. piε │ (RXD⌐ connectioε seσ 'IC╖ linksº below«     
  538.  
  539. IC1 link
  540. --------
  541. Linδá piε 1░ (TD⌐ t∩ piε 2╕ (BTD)«á  Thi≤ put≤ transmi⌠ datß t∩á botΦá maiε ì
  542. channe∞á (1200/600/30░á bd.⌐  anΣ bacδ channe∞ (75/╡ bd.⌐ section≤ oµá IC1« ì
  543. Thσ TX─ greeε LE─ no≈ operate≤ oε transmi⌠ witΦ botΦ maiε anΣ back-channel.
  544.       
  545. IC7 links
  546. ---------
  547. Linδ piε 1▓ (BR─ input⌐ t∩ piε 1░ (unuseΣ input)«á  Piε ▓ (R─ input⌐ t∩ piε ì
  548. ╣á (unuseΣ input)«á  Piε ╕ (unuseΣ output⌐ t∩ thσ ne≈ Microbeσ DB25╙ piεá │ ì
  549. (RXD)«  Thi≤ gate≤ thσ AM═ RX─ anΣ BRX─ outpu⌠ together¼ witΦ outpu⌠ t∩ thσ ì
  550. RX─ piε oµ thσ ne≈ Microbeσ DB25S.
  551.  
  552.                        IC7d (previously unused)
  553.                               -----
  554.            IC7 pin 12 --------|10   \
  555.                               |     8)O------ new DB25S pin 3 (RXD)
  556.            IC7 pin  2 --------|9    /
  557.                               -----
  558.  
  559. IC4  piggy-back links
  560. ---------------------
  561. Oε thσ ne≈ 74LS0░ benΣ u≡ al∞ pin≤ excep⌠ ╖ anΣ 14¼  leve∞ witΦ thσ I├ top«  ì
  562. Piggy-bacδ thi≤ I├ t∩ IC┤ b∙ solderinτ pin≤ ╖ anΣ 14«á Linδ piε ┤ t∩ piε 5«  ì
  563. Piε ╡ t∩ piε 8« Piε ╖ viß ß 330╥ resisto≥ t∩ piε 9« Piε 1░ t∩ piε 11« 
  564. Piε ╢ t∩ thσ existing RS232╨ piε 1▒ (BRTS)«  
  565. Piε ╕ t∩ thσ existing RS232╨ piε  ┤ (RTS).
  566. Link pin  9 to one switch contact \ 
  567. Linδ piε 1┤ t∩ thσ othe≥ contact    > contact≤ joineΣ wheε switcΦ i≤ UP« 
  568.  
  569. Determinσ whicΦ tw∩ contact≤ oε S▒ (rotar∙ modσ selector⌐ arσ fo≥ thσá 120░ ì
  570. anΣ 60░ bauΣ modes«  Thσ easies⌠ wa∙ i≤ t∩ selec⌠ thσ modσ oε SW▒ anΣ usσ ß ì
  571. multi-mete≥ t∩ checδ whicΦ oµ thσ 1▓ outsidσ pin≤ connec⌠ t∩ ground«á  Linδ ì
  572. onσ contac⌠ t∩ IC┤ piggy-bacδ piε 13¼ thσ othe≥ contac⌠ t∩ piε 12.
  573.  
  574. IC4 piggy-back - connection overlay
  575. -----------------------------------
  576.                                                                        
  577.                    -----\       /-----                                 
  578.                   ▒ⁿ      -----      ⁿ1┤--------------------------| new
  579.                   2|     74LS00      |13----SW1 1200 bd.          |switch
  580.                   3| IC4 piggy-back  |12----SW1  600 bd.          |        
  581.                |--4ⁿááááááááááááááááá|11--ⁿ                       * Orig.
  582.                |--5|-------------.   |10--|                     /      
  583. exist. DB25S------6|  330R  |----(---| 9----------------------*   * Ans.  
  584. pin 11(BRTS)      7|--####--ⁿ    |---| ╕------exist. DB25S       
  585.                    -------------------         pin 4 (RTS)èOnl∙ pin≤ ╖ ª 1┤ arσ soldereΣ t∩ IC4¼á al∞ other≤ ben⌠ up«á   
  586. N∩ connectioε t∩ pin≤ 1,▓ o≥ 3.
  587.  
  588. Originate/answer mode selection circuit - IC4 piggy back 
  589. --------------------------------------------------------    
  590.                  new switch   
  591. pin 14 +5V ---------*     * ANSWER
  592.                       \
  593.                         \
  594.                330R       * ORIGINATE
  595. pin  7  0V ----####-------|
  596.                           |               |--------------------RTS  pin 4
  597.             -----         |   -----       |       -----
  598. SW1 1200 ---|13   \       |---|9    \     |   |---|4    \
  599.             ⁿ    11)O--ⁿ      ⁿ     8)O---|---ⁿ   ⁿ     6)O----BRT╙ piε 11
  600. SW1  600 ---|12   /    |------|10   /         |---|5    /
  601.             -----             -----               -----
  602.  
  603. Alternative to IC4 piggy-back for mode change-over
  604. --------------------------------------------------
  605.                 V23 originate                            DPDT sw.
  606.                  ----------                               ------ __ Orig.
  607. pin  4  (RTS) ---|-*    *-|--- pin 11 (BRTS)            ==|=   |// 
  608.           +5V ---|-*    *-|--- 0V                       ==|=|  |/    
  609. pin 11 (BRTS) ---|-*    *-|--- pin  4  (RTS)            ==|=|  |
  610.                  ----------                               ------    Ans. 
  611.                V23 answer and
  612.               ALL  other modes        Connections to existing DB25S
  613.  
  614. RXD green LED
  615. -------------
  616. Locatσá thσ PC┬ tracδ unde≥ thσ boarΣ whicΦ connect≤ t∩ thσ RX─á LED«á  Cu⌠ ì
  617. thσ tracδ anΣ solde≥ ß 1N414╕ o≥ 1N91┤ diodσ acros≤ thσ cut¼ cathodσ (blacδ ì
  618. band⌐á enΣá toward≤ thσ LED«á  Solde≥ thσ cathodσ oµ ß seconΣ diodσ t∩á thσ ì
  619. cathodσ oµ thσ first«á  Linδ thσ othe≥ enΣ oµ thi≤ diodσ t∩ piε 1▓ oµá IC7« ì
  620. Thσá RX─ greeε LE─ no≈ operate≤ oε receivσ witΦ botΦ maiε anΣ back-channel«  
  621. BotΦ C─ anΣ BC─ arσ alread∙ gateΣ t∩ thσ C─ LED«á  CT╙ anΣ RT╙ LED╙ wil∞ bσ ì
  622. O╬ iε V2│ answe≥ mode¼ OF╞ iε originate.               END.
  623.      
  624.  
  625.                        STANDARD ASCII ABBREVIATIONS
  626.  
  627. DEC HEX KEY CODE   MEANING               DEC HEX KEY CODE   MEANING
  628. 06  06  ^F  ACK =  Akcknowledge          12  0C  ^L  FF  =  Form Feed                
  629. 07  07  ^G  BELL = Bell                  28  1C  ^\  FS  =  Form Separator          
  630. 08  08  ^H  BS  =  Backspace             29  1D  ^]  GS  =  Group Seperator         
  631. 24  18  ^X  CAN =  Cancel                09  09  ^I  HT  =  Horizontal Tab          
  632. 13  0D  ^M  CR  =  Carriage Return       10  0A  ^J  LF  =  Line Feed               
  633. 17  11  ^Q  DC1 =  Direct Control 1      21  15  ^U  NAK =  -tive Acknowledge    
  634. 18  12  ^R  DC2 =  Direct Control 2      00  00  ^@  NUL =  Null                    
  635. 19  13  ^S  DC3 =  Direct Control 3      30  1E  ^^  RS  =  Record Separator        
  636. 20  14  ^T  DC4 =  Direct Control 4      15  0F  ^O  SI  =  Shift In                
  637. 16  10  ^P  DLE =  Data Link Escape      14  0E  ^N  SO  =  Shift Out               
  638. 25  19  ^Y  EM  =  End Of Medium         01  01  ^A  SOH =  Start of Heading        
  639. 05  05  ^E  ENQ =  Enquiry               02  02  ^B  STX =  Start Text              
  640. 04  04  ^D  EOT =  End Of Transmission   26  1A  ^Z  SUB =  Substitute              
  641. 27  1B  ^[  ESC =  Escape                22  16  ^V  SYN =  Synchronous Idle        
  642. 23  17  ^W  ETB =  End Transmission Block31  1F  ^_  US  =  Unit Separator   
  643. 03  03  ^C  ETX =  End Text              11  0B  ^K  VT  =  Vertical Tab                                  èANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSW
  644.  
  645. Thesσ answer≤ arσ genera∞ anΣ contaiε usefu∞ informatioε fo≥ al∞ bu⌠ arσ ì
  646. directeΣ t∩ specifiπ peoplσ wh∩ havσ writteε t∩ us« ╔ wil∞ no⌠ bσ puttinτ ì
  647. name≤ o≥ phonσ number≤ oε an∙ help≤ iε futurσ becausσ iµ yo⌡ go⌠ thσ answe≥ ì
  648. t∩ thσ probleφ n∩ onσ elsσ did« T∩ repl∙ t∩ helps¼ rinτ o≥ writσ t∩ thσ me« ì
  649. ╔ havσ ß modeφ operatinτ a⌠ eithe≥ 30░ o≥ 1200/75bd.
  650. 
  651. T∩á Andre≈á Kovacs:éá Ye≤á wσ arσ no≈ caterinτá fo≥á "CIABóá compute≥á user≤ ì
  652. althougΦá wσ havσ no⌠ a≤ ye⌠ ß sub-edito≥ t∩ collatσ informatioε fo≥á them« ì
  653. Ye≤á wσ d∩ sel∞ blanδ disks«á An∙ softwarσ tha⌠ i≤ availablσ oε norma∞ disδ ì
  654. caε bσ supplieΣ oε CIA┬ forma⌠ includinτ SIG/M¼á CPMU╟ anΣ CU╟ volumes« Ou≥ ì
  655. cop∙ facilitie≤ allo≈ an∙ size/forma⌠ t∩ bσ downloaded«á I⌠ i≤ possiblσá t∩ ì
  656. orde≥ softwarσ anΣ manual≤ (A.T.⌐ througΦ u≤ bu⌠ yo⌡ caε ge⌠ i⌠ a⌠ thσ samσ ì
  657. discoun⌠ througΦ A.T« iµ yo⌡ havσ beeε ß membe≥ > ╢ months« Al∞ manual≤ fo≥ ì
  658. softwarσ supplieΣ b∙ A.T« caε bσ purchased.
  659.  
  660.      Microbeσá monito≥ command≤ fo≥ disδ reaΣ X╥ tts≤ dddΣ lll∞ read≤á lll∞ ì
  661. byte≤ froφ ┴ drivσ int∩ memor∙ a⌠ addres≤ dddΣ (n∩ secto≥ skewing)
  662.  
  663. thσ tracδ froφ whicΦ datß transfe≥ start≤ i≤ tt¼ wherσ 0<=t⌠ <=4FH
  664.  
  665. the starting sector is ss, where 1<=ss <=??
  666.  
  667. sector numbers start at 1, track start at 0.
  668.  
  669. EG«á X╥á 0A0▒á F10░ 30░   wil∞ displa∙ 300╚ byte≤ froφá tracδá 1░á decimal¼ ì
  670. sector 1 on screen.
  671. EG. XW ttss dddd llll   the same as above but write to disk.
  672. For disk B use YR and YW in the same manner as above.
  673. Other commands can be found in Microbee Disk System Manual Cat. No. 250-010.
  674. A≤á fo≥ warrant∙ oε fittinτ you≥ owε keyswitche≤ yo⌡ wil∞ finΣ yo⌡ arσá no⌠ ì
  675. covereΣ fo≥ thσ fittinτ only«á You≥ upgradσ wil∞ no⌠ bσ affecteΣá providinτ ì
  676. an∙ claim≤ arσ no⌠ duσ t∩ saiΣ fitting.
  677. 
  678. T∩ Michae∞ Ingall:é ╔ havσ passeΣ you≥ reques⌠ oε t∩ A.T« fo≥ aε answer« Thσ ì
  679. prograφ yo⌡ havσ i≤ no⌠ fo≥ genera∞ releasσ bu⌠ ou⌠ fo≥ evaluatioε only«á ╔ ì
  680. wil∞ repl∙ asap.
  681. 
  682. AL╠á "C.I.A.B.ó OWNERS:é Thosσ oµ yo⌡ havinτ troublσ copyinτ you≥á tape≤á t∩ ì
  683. disδ ╔ havσ fou≥ answers«á 1«á ReaΣ thσ articlσ iε thi≤ issue«á 2«á Iµ tha⌠ ì
  684. doesn'⌠ worδ yo⌡ caε writσ t∩ Denni≤ Kretzschmar¼á P.O«á BO╪ 2018¼á CAIRNS¼ ì
  685. QLD.¼ 487░ enclosinτ tw∩ .33π stamp≤ fo≥ listinτ oµ mod≤ fo≥ MLCOPY.CO═ anΣ ì
  686. PMLCOPY.CO═ (fo≥ cop∙ protecteΣ tapes)¼ 3« senΣ ß formatteΣ blanδ disδ witΦ ì
  687. returε postagσ t∩ Michae∞ Ingall¼áThσ Rector∙  2░ FRANCI╙ St« TATURA¼ VIC.¼ ì
  688. 361╢ wherσ yo⌡ wil∞ ge⌠ ß prograφ t∩ d∩ thσ joΓ fo≥ yo⌡ o≥ 4« reaΣ thσ VME╟ ì
  689. newslette≥á Vo∞ 2«á N∩ 2«á (thσ result≤ arσ saiΣ t∩ bσ les≤ effectivσá thaε ì
  690. thosσ mentioneΣ above«á Iε mos⌠ case≤ wherσ ß machinσ languagσ cop∙ i≤ madσ ì
  691. yo⌡ wil∞ neeΣ t∩ t∩ usσ thσ followinτ synta° t∩ ruε it:-
  692.  
  693. RUN═á "filename.COMóá 25╢ t∩ loaΣ anΣ star⌠ thσ prograφ a⌠ 100Φá wherσá thσ ì
  694. cop∙ prograφ ha≤ pu⌠ thσ ne≈ star⌠ address.
  695. 
  696. T╧á ALL║á Iµ yo⌡ arσ havinτ trouble≤ witΦ you≥ printe≥ anΣ havσ beeεá usinτ ì
  697. HIRE╙á graphic≤á i⌠á i≤ necessar∙ t∩ POK┼ 128,╕ t∩ reinstatσá thσá paralle∞ ì
  698. printe≥ beforσ usinτ thσ OUTL#1:LLIS╘ command«á Iµ yo⌡ arσ iε CP/═ anΣ you≥ ì
  699. keyboarΣá doesn'⌠ work¼á you≥ printe≥ i≤ ofµ line«á Thσ printe≥ i≤á toggleΣ ì
  700. OFF/ON by using ^P.
  701. ANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSWERS---ANSWè                       PASCAL_FOR_BASIC_PROGRAMMERS
  702.  
  703.                                PART VII           Dixon Kenney
  704.  
  705.      Iε thi≤ nex⌠ par⌠ iε thσ serie≤ oµ programminτ iε Pascal¼ wσ arσ goinτ ì
  706. t∩ writσ ß procedurσ b∙ whicΦ wσ caε adΣ aε iteφ oµ stocδ ¿ tha⌠ is¼ ß datß ì
  707. recorΣ ⌐ t∩ thσ datß file«á  Iε doinτ this¼á wσ arσ goinτ t∩ usσ ß mask¼ s∩ ì
  708. tha⌠á thσ operato≥ wh∩ i≤ fillinτ iε thσ informatioε wil∞ kno≈ exactl∙ wha⌠ ì
  709. informatioε wσ wan⌠ theφ t∩ typσ in«á  Mos⌠ oµ thσ prograφ i≤ lef⌠ out¼á a≤ ì
  710. i⌠á doesn'⌠á diffe≥á froφá thosσ iε previou≤á part≤á oµá thσá series«á  Thσ ì
  711. function≤ anΣ procedure≤ wσ havσ useΣ beforσ arσ indicateΣ b∙ thei≥ Includσ ì
  712. calls«á  Thσ linσ number¼ therefore¼ arσ no⌠ mean⌠ t∩ refe≥ t∩ thσ wholσ oµ ì
  713. thσ program«  The∙ arσ therσ simpl∙ fo≥ referencσ iε thσ text.
  714.  
  715.   1áá Prograφ Inventory_3;
  716.  
  717.   3áááType
  718.   4ááá  St3░     ╜ String[30];
  719.  
  720.   6áááVar
  721. áá7ááá  Heade≥     ║ St30;
  722.  
  723.  
  724.  10ááá{$╔ EXISTS.FN├ }
  725.  
  726.  
  727.  12ááá{$╔ CREATEFL.PR╧ }
  728.  
  729.  
  730.  14   {$╔ FWRITE.PR╧ }
  731.  
  732.  16 ááProcedurσ FormWritσ ¿ ╚ ║ St3░ );
  733.  
  734.  18áááConst
  735. á19ááá  TabΓ ╜ º               ';
  736.  
  737.  21áááBegin
  738.  
  739.  23ááá  ClrScr;
  740. á24ááá  Write(º ':25);
  741. á25ááá  Writeln(H);
  742. á26ááá  Writeln╗ Writeln;
  743. á27ááá  Writeln(Tabb¼ 'Par⌠ Numbe≥   ║ ');
  744. á28ááá  Writeln(Tabb¼ 'Descriptioε   ║ ');
  745. á29ááá  Writeln;
  746. á30ááá  Writeln(Tabb¼ 'Cos⌠ t∩ u≤    ║ ');
  747. á31ááá  Writeln(Tabb¼ 'Retai∞ Pricσ  ║ ');
  748. á32ááá  Writeln;
  749. á33ááá  Writeln(Tabb¼ 'Minimuφ Leve∞ ║ ');
  750. á34ááá  Writeln(Tabb¼ 'Maximuφ Leve∞ ║ ');
  751. á35ááá  Writeln;
  752. á36ááá  Writeln(Tabb¼ 'Oε HanΣ No≈   ║ ');
  753.  
  754.  38áááEnd╗    √ Procedurσ FormWritσ }
  755.  
  756.  41   {$╔ NEWITEM.PR╧ }
  757.  
  758.  43áááProcedurσ NewItem;
  759. èá45áááConst
  760. á46 áá  Heade≥ ╜ º ¬ AD─ ENTR┘ T╧ MASTE╥ FIL┼ *';
  761.  
  762. á48áááVar
  763. á49ááá  Agaiε  ║ Boolean;
  764. á50ááá  YesN∩  ║ Char;
  765.  
  766. á52áááBegin
  767.  
  768. á54ááá  Agaiε :╜ True;
  769.  
  770. á56ááá  Assign(PartFile¼ FileName);
  771. á57ááá  Reset(PartFile);
  772. á58ááá  Seek(PartFile¼ FileSize(PartFile));
  773.  
  774. á60ááá  Repeat
  775. á61ááá    FormWrite(Header);
  776. á62ááá    WitΦ Par⌠ do
  777. á63ááá      Begin
  778. á64ááá        GoToXY(32¼ 4)╗ Read(PartNum);
  779. á65ááá        GoToXY(32¼ 5)╗ Read(Description);
  780. á66ááá        GoToXY(32¼ 7)╗ Read(Cost);
  781. á67ááá        GoToXY(32¼ 8)╗ Read(Retail);
  782. á68ááá        GoToXY(32,10)╗ Read(MinOH);
  783. á69ááá        GoToXY(32,11)╗ Read(MaxReorder);
  784. á70ááá        GoTOXY(32,13)╗ Read(CurrentOH);
  785. á71 áá        Write(PartFile¼ Part)
  786. á72ááá    End;
  787.  
  788. á74ááá    Writeln╗ Writeln;
  789. á75ááá    Write('D∩ yo⌡ havσ anothe≥ par⌠ t∩ ente≥ [Y/N▌ ┐ ');
  790. á76ááá    Read(YesNo);
  791. á77ááá    Iµ YesN∩ iε █ 'Y'¼ 'y']
  792. á78ááá      theε Agaiε :╜ True
  793. á79ááá    Else
  794. á80ááá           Agaiε :╜ False
  795. á81ááá  Unti∞ Agaiε ╜ False;
  796.  
  797. á83ááá  Close(PartFile)
  798.  
  799. á85áááEnd╗   √ Procedurσ NewIteφ }
  800.  
  801.  87   {$╔ MENU.PR╧ }
  802.  
  803. á89áááBegin  { Main Section of the program }
  804.  
  805. á91ááá    Casσ Iteφ of
  806. á92ááá      1║ NewItem;
  807.  
  808. á94áááEnd.
  809.  
  810.  
  811.      Therσá arσ onσ o≥ tw∩ necessar∙ extrß declarations╗á wσ havσá onl∙á t∩ ì
  812. dea∞á witΦá thσ materia∞ iε thσ tw∩ ne≈ procedures«á  Let'≤ dea∞á witΦá thσ ì
  813. procedurσ FormWritσ first.
  814.  
  815.      Thi≤á procedurσá exist≤ simpl∙ t∩ writσ ß datß masδ oε thσá screen«á ┴ ì
  816. masδá i≤ ß screeε whicΦ describe≤ thσ recorΣ iε word≤ whicΦá thσá oper-ato≥ ì
  817. caεá understand«á  "MinOHó migh⌠ bσ understooΣ b∙ thσ persoε wh∩ wrotσá thσ ìècode¼á bu⌠á ß use≥ oµ thσ prograφ woulΣ understanΣ "Minimuφ Leveló ß littlσ ì
  818. morσá easily«á  Thσá detail≤á oµá eacΦ fielΣá oµá thσá recorΣá arσá printeΣ ì
  819. sequentiall∙ oε thσ screen.
  820.  
  821.      Iεá linσá 16¼á thσá procedurσ header¼á ß paramete≥ i≤á passeΣá t∩á thσ ì
  822. procedure«  I⌠ i≤ thσ Heade≥ fo≥ thσ screeε mask«  Thi≤ particula≥ masδ caε ì
  823. bσá useΣá fo≥ morσ thaε th≤ procedure¼á sincσ i⌠ describe≤ eacΦá recorΣá iε ì
  824. full«á  So¼á wσá pas≤ t∩ thσ procedurσ whicΦ use≤ thσ masδ thσ titlσ oµ thσ ì
  825. mask¼á whicΦ i≤ se⌠ u≡ iε thσ callinτ procedure¼á herσ linσ 46«  B∙ passinτ ì
  826. thi≤ header¼á mucΦ codσ writinτ i≤ saved¼á sincσ wσ d∩ no⌠ neeΣ t∩ writσá ß ì
  827. masδ fo≥ eacΦ individua∞ procedure.
  828.  
  829.      No≈á let'≤ movσ oε t∩ thσ nex⌠ procedurσ - Procedurσá NewItem«á  Therσ ì
  830. arσ ß numbe≥ oµ item≤ t∩ looδ a⌠ here«á  Thi≤ procedurσ i≤ calleΣ froφ linσ ì
  831. 92¼ whicΦ i≤ par⌠ oµ thσ Casσ statemen⌠ iε thσ Maiε blocδ oµ thσ program.
  832.  
  833.      Iε linσ 57¼ thσ filσ whicΦ ha≤ beeε previousl∙ createΣ i≤ opened«  Thσ ì
  834. functioεá Rese⌠á open≤á aε alread∙ createΣ file«á  Herσ i⌠ open≤á thσá filσ ì
  835. referreΣ t∩ b∙ thσ filσ variablσ PartFile¼ tha⌠ is¼ "INVENT.DAT"«  Wheε thσ ì
  836. filσ i≤ opened¼á thσ recorΣ pointe≥ i≤ se⌠ t∩ poin⌠ a⌠ thσ beginninτ oµ thσ ì
  837. file¼á tha⌠ is¼ t∩ recorΣ 0«  Thσ filσ i≤ closeΣ iε linσ 83¼ usinτ thσ samσ ì
  838. functioε a≤ wσ useΣ iε thσ CreateFilσ proced-urσ - Close«  Iε betweeε thesσ ì
  839. tw∩ functions¼ wσ d∩ ß lo⌠ oµ work.
  840.  
  841.      Iε linσ 58¼á wσ pu⌠ thσ recorΣ pointe≥ t∩ thσ enΣ oµ thσá file«á  Thi≤ ì
  842. linσá contain≤ tw∩ functions«á  Thσ functioε Seek(filevariable,n)ô move≤ thσ ì
  843. recorΣá pointe≥ througΦ thσ filσ 'filevariableº unti∞ i⌠ point≤á a⌠á recorΣ ì
  844. numbe≥á 'n'«á  Thi≤ functioε caε bσ useΣ a⌠ an∙ timσ t∩ acces≤ ß particula≥ ì
  845. recorΣ iµ thσ numbe≥ oµ thσ recorΣ i≤ known.
  846.  
  847.      Iεá orde≥ t∩ appenΣ ß recorΣ t∩ thσ file¼á wσ mus⌠ movσ t∩ thσ enΣá oµ ì
  848. thσ filσ - tha⌠ is¼á t∩ thσ recorΣ nex⌠ pas⌠ thσ fina∞ recorΣ oµ thσá file«  ì
  849. Thi≤á i≤ donσ b∙ usinτ thσ functioε FileSize(filevariable)«á  Thi≤ functioε ì
  850. count≤ thσ numbe≥ oµ record≤ iε thσ file«á  So¼á iµ wσ haΣ ╕á records¼á thσ ì
  851. functioε return≤ thσ numbe≥ 8«  However¼ sincσ thσ firs⌠ recorΣ i≤ numbereΣ ì
  852. 0¼ thσ fina∞ actua∞ recorΣ i≤ numbe≥ 7¼ anΣ thσ Seeδ functioε i≤ positioneΣ ì
  853. t∩á poin⌠á t∩ thσ nex⌠ recorΣ t∩ bσ appendeΣ t∩ thσ file«á  Notσ tha⌠á thi≤ ì
  854. functioε i≤ oµ typσ integer¼á anΣ thσ numbe≥ 'nº supplieΣ t∩ Seeδ mus⌠ als∩ ì
  855. bσ oµ typσ Integer.
  856.  
  857.      No≈ looδ a⌠ linσ 6▓ - WIT╚ Par⌠ DO«á  Wheε wσ wan⌠ t∩ acces≤ ß record¼ ì
  858. wσá caε finΣ ourselve≤ iε ß bi⌠ oµ trouble¼á a≤ wσ usuall∙ wan⌠ t∩ worδá oε ì
  859. thσ individua∞ field≤ oµ eacΦ record«á  Iε Pascal¼ wσ caε referencσ eacΦ oµ ì
  860. thσ field≤ oµ ß record≤ b∙ usinτ ß fielΣ selector«á  Thi≤ fielΣ selecto≥ i≤ ì
  861. madσ u≡ oµ thσ recorΣ namσ followeΣ b∙ ß perioΣ followeΣ b∙ thσ fielΣ name«  ì
  862. S∩ here¼ t∩ acces≤ eacΦ field¼ wσ woulΣ havσ t∩ say¼ fo≥ example
  863.  
  864.      Part.Partnum             Part.Retail         Part.CurrentOH
  865.  
  866. I⌠ woulΣ bσ mucΦ easie≥ fo≥ u≤ iµ wσ werσ ablσ t∩ acces≤ eacΦ fielΣá simpl∙ ì
  867. b∙ it≤ owε label¼á withou⌠ thσ neeΣ fo≥ thσ prefixeΣ recorΣ label«á  Wσ caε ì
  868. makσá thing≤ mucΦ shorte≥ b∙ usinτ thi≤ WIT╚ statement¼á a≤ yo⌡ seσ i⌠ useΣ ì
  869. here«  Thσ synta° i≤ quitσ simplσ -
  870.                  WITH record_variable_label DO statement.
  871.  
  872. Thσá 'statementº par⌠ i≤ wha⌠ yo⌡ wan⌠ t∩ d∩ witΦ thσ individua∞ field≤á oµ ì
  873. thσ recorΣ yo⌡ arσ accessing«á  I⌠ ma∙ bσ a≤ simplσ o≥ comple° ßá statemen⌠ ì
  874. a≤á yo⌡ wish«á  Thσ WIT╚ statemen⌠ caε bσ mucΦ morσ complicateΣ thaε thi≤ - ì
  875. you≥á Turb∩ Pasca∞ manua∞ wil∞ sho≈ yo⌡ ho≈ iµ yo⌡ arσá reall∙á interested¼ ìèbu⌠ thi≤ i≤ complicateΣ enougΦ fo≥ u≤ now.
  876.  
  877.      Iεá line≤ 64µ (anΣ iε linσ 14╩ oµ thσ previou≤ prograφ iε par⌠ VI⌐á wσ ì
  878. havσ ß simplσ curso≥ positioninτ statement.
  879.  
  880. áááááááááThi≤á i≤á equivalen⌠á t∩á MicroWorlΣá Basic'≤á CUR╙ ì
  881. ááááááááástatement¼ anΣ i≤ useΣ iε mucΦ thσ samσ way¼ a≤ yo⌡ ì
  882. ááááááááácan see. 
  883.  
  884. Thσá curso≥á i≤á moveΣ t∩ thσ positioε oε thσ screeε indicateΣ b∙á thσá tw∩ ì
  885. intege≥á number≤ oε whicΦ thσ functioε operates«á  Thσ firs⌠ i≤ thσá columε ì
  886. number¼á anΣ thσ seconΣ thσ row«  NB«  Thi≤ i≤ thσ reversσ oµ thσ situatioε ì
  887. a≤ describeΣ iε thσ Manual¼ whicΦ say≤ thσ functioε i≤ row¼ column«  
  888.  
  889.      Iε thi≤ function¼á thσ curso≥ i≤ positioneΣ iε turε a⌠ thσ enΣ oµ eacΦ ì
  890. oµá thσá prompt≤ printeΣ oε thσ screeε b∙ thσá mask«á  Thi≤á prevent≤á botΦ ì
  891. scrollinτ oµ thσ screeε anΣ overwritinτ oµ informatioε oε it.
  892.  
  893.      Iε linσ 71¼á afte≥ al∞ thσ informatioε i≤ obtained¼á wσ actuall∙ writσ ì
  894. thσáá recorΣáá t∩á disk¼áá usinτá thσá thσá procedurσáá WRITE(filevariable¼ ì
  895. recordvariable)«á  Thi≤ functioε differ≤ froφ mos⌠ othe≥ Pascals¼ whicΦ usσ ì
  896. thσ procedurσ PUT«  Iµ yo⌡ arσ writinτ iε anothe≥ versioε oµ Pascal¼ havinτ ì
  897. learn⌠ TPascal¼á theε bσ ver∙ carefu∞ oµ this¼á anΣ finΣ ou⌠ jus⌠ wha⌠ you≥ ì
  898. ne≈ version'≤ synta° is.
  899.  
  900.      Finally¼á wσ comσ t∩ thσ concep⌠ oµ ß set¼á iε linσ 77«  Iε Pascal¼ wσ ì
  901. arσá ablσ t∩ definσ sets¼á whicΦ thσ manua∞ describe≤ a≤á "collect-ion≤á oµ ì
  902. relateΣá object≤á whicΦ ma∙ bσ though⌠ oµ a≤ ß whole.ó  Thσ member≤ oµá thσ ì
  903. se⌠ ¿ eacΦ oµ it≤ individua∞ item≤ ⌐ mus⌠ bσ oµ thσ samσ type¼ whicΦ caε bσ ì
  904. an∙ scala≥ typσ excep⌠ typσ REAL.
  905.  
  906.      Herσ wσ simpl∙ writσ ß conditiona∞ statement¼á t∩ seσ iµ thσá content≤ ì
  907. oµá ß variablσ exis⌠ withiε ß set«á  Noticσ tha⌠ thσ member≤ oµ thσ se⌠ arσ ì
  908. defineΣ betweeε squarσ brackets¼ eacΦ separateΣ froφ thσ other≤ b∙ ß comma¼ ì
  909. and¼á iε thσ casσ oµ characters¼ delimiteΣ b∙ singlσ quotσ marks«   ┴ rangσ ì
  910. oµá se⌠á member≤á caε bσ expresseΣ b∙ separatinτá thσá lowes⌠á anΣá highes⌠ ì
  911. element≤ oµ thσ rangσ b∙ tw∩ consecutivσ periods¼ likσ thi≤ -
  912.  
  913.                   [ 'A'..'Z' , 'a'..'z' , '0'..'9' ]  
  914.  
  915. Iε thi≤ line¼ wσ arσ writinτ ß mucΦ simple≥ wa∙ oµ saying
  916.  
  917.                     If YesNo = 'Y' or YesNo = 'y'
  918.  
  919. Yo⌡á caε seσ ho≈ mucΦ spacσ i≤ saveΣ iε ou≥ codσ iµ therσ arσ morσ thaε tw∩ ì
  920. element≤ iε thσ se⌠ beinτ tested«              
  921.  
  922. FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-
  923.  
  924. 32k bee with built in 'extended' EDASM and switchable WORDBEE complete 
  925. witΦ manual≤ etc.¼ anΣ somσ software« Onl∙ $350.0░       ...also...
  926.  
  927. 64δ beσ witΦ dua∞ ╡ 1/┤ disδ drives¼ INGERSO╠ monitor¼ CICAD┴ modem¼ ì
  928. WordStar, Multiplan etc., and manuals. Bargain price $1650.00
  929.  
  930. Avaliable from Peter Ford (of wildcards fame) phone anytime (03) 572-2156
  931.  
  932. FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-
  933. è                         BASIC LISTING  SPADAV.MWB
  934.  
  935. 00100 REM  ////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\
  936. 00110 REM |             << SPACE ADVENTURE >>                |
  937. 00120 REM | Ex Computer Games for Business, school and Home. |
  938. 00130 REM |           For TRS-80 Level 2 Basic.              |
  939. 00140 REM |        By J.V. Nahigian & W.S. Hodges.           |
  940. 00150 REM |           Modified for the MicroBee.             |
  941. 00160 REM |           By Peter Collins.  Dec '83.            |
  942. 00170 REM  \\\\\\\\\\\\\\\\\\\\\\\\//////////////////////////
  943. 00180 REM
  944. 00190 K1=3.14169/180
  945. 00200 Q1=3:Q2=3:D0=10000:P1=100:P2=100:I1=100
  946. 00210 A1=(180*RND)-90:A2=-(180-A1)
  947. 00220 I2=100:L1=100:L2=100:S1=100:S2=100:W1=100:W2=100
  948. 00230 CLS:PRINT "THIS IS A STAR TREK ADVENTURE"\
  949. 00240 PRINT "KLINGDONS VS. YOU THE ENTERPRISE.":PRINT
  950. 00250 PRINT "1 - FIRE PHASERS":PRINT "2 - FIRE PHOTON TORPEDOES"
  951. 00260 PRINT "3 - STATUS REPORT":PRINT "4 - CHANGE MOVEMENT"
  952. 00270 PRINT "5 - SELF DESTRUCT"
  953. 00280 PRINT\ "WHAT IS YOUR OPTION";:INPUT O
  954. 00290 ON O GOTO 320,410,560,670,700
  955. 00300 PRINT "WHAT?":GOTO 280
  956. 00310 IF A<1 THEN 280 ELSE ON A GOTO 320,410,560
  957. 00320 GOSUB 1150:IF ABS(FLT(A)-A1)>10 THEN 460 ELSE IF D0>15000 THEN 520
  958. 00330 C=INT(3*RND)+1:H1=2*((15000-D0)/30000)
  959. 00340 ON C GOTO 350,360,370
  960. 00350 PRINT "PHASERS SCORE A DIRECT HIT!!! GOOD SHOTING!":GOTO720
  961. 00360 PRINT "CHECKOV REPORTS A DIRECT HIT BY PHASERS!":GOTO 720
  962. 00370 C=INT(3*RND)+1:ON C GOTO 380,390,400
  963. 00380 PRINT "MR. SULU REPORTS A DIRECT HIT!!!":GOTO 720
  964. 00390 PRINT "*** DIRECT HIT ***":GOTO 720
  965. 00400 PRINT "SPOCK REPORTS A DIRECT HIT ON KLINGDON SHIP!":GOTO 720
  966. 00410 GOSUB 1150:IF ABS(FLT(A)-A1)>25 THEN 540 ELSE IF D0>300000 THEN 530
  967. 00420 C=INT(RND*3)+1:H1=(300000-D0)/50000
  968. 00430 ON C GOTO 440,450,370
  969. 00440 PRINT "PHOTON TORPEDOES SCORE DIRECT HIT!":GOTO 720
  970. 00450 PRINT "SULU REPORTS DIRECT HIT BY PHOTON TORPEDOES":GOTO720
  971. 00460 C =INT(2*RND)+1:H1=0:ON C GOTO 470,480
  972. 00470 PRINT "CHECKOV REPORTS CLEAN MISS BY PHASERS!":GOTO 720
  973. 00480 C=INT(4*RND)+1:ON C GOTO 490,510,500
  974. 00490 PRINT "YOUR SHOT IS WIDE!":GOTO 720
  975. 00500 PRINT "SPOCK REPORTS A CLEAN MISS":GOTO 720
  976. 00510 PRINT "SULU REPORTS A CLEAN MISS":GOTO 720
  977. 00520 PRINT "YOU ARE OUT OF PHASER RANGE":GOTO 720
  978. 00530 PRINT "YOU ARE OUT OF PHOTON TORPEDO RANGE":GOTO 720
  979. 00540 C=INT(3*RND)+1:H1=0:IF C=1 THEN 550 ELSE 480
  980. 00550 PRINT "CHECKOV REPORTS A MISS BY PHOTON TORPEDOES!":GOTO 720
  981. 00560 CLS:PRINT TAB(5)"*** STATUS REPORT ***"
  982. 00570 PRINT TAB(15)"ENTERPRISE" TAB(30)"KLINGDONS"
  983. 00580 PRINT "SPEED (WARPS)" TAB(20) INT(Q1) TAB(35) INT(Q2)
  984. 00590 PRINT "ANGLE" TAB(20) INT(A1) TAB(35) INT(A2)
  985. 00600 PRINT "TURN" TAB(20) INT(A3) TAB(35) INT(A4)
  986. 00610 PRINT "LIFE SUPPORT" TAB(20) INT(P1)"%" TAB(35) INT(P2)"%"
  987. 00620 PRINT "WARP DRIVE" TAB(20) INT(P1)"%" TAB(35)INT(P2)"%"
  988. 00630 PRINT "IMPULSE" TAB(20) INT(I1)"%" TAB(35) INT(I2)"%"
  989. 00640 PRINT "SHIELDS" TAB(20) INT(S1)"%" TAB(35) INT(S2)"%"
  990. 00650 PRINT "WEAPONRY" TAB(20) INT(W1)"%" TAB(35) INT(W2)"%"
  991. 00660 PRINT "MR. SPOCK REPORTS KLINGDONS AT "D0" K.M.":GOTO 720è00670 PRINT "WHAT ANGLE DO YOU WANT TO TURN";:INPUT A3:
  992.       IF W2<ABS(A3) THEN 670
  993. 00680 PRINT "WHAT WARP FACTOR DO YOU WANT TO MOVE TO";:INPUT Q1
  994. 00690 U0=(W1/10):IF Q1> U0 THEN 680 ELSE 720
  995. 00700 IF D0<50000 THEN 710 ELSE PRINT "KLINGDONS TOO FAR AWAY!!!":
  996.       GOTO 1080
  997. 00710 PRINT "KLINGDONS ARE DESTROYED BUT SO ARE YOU!":GOTO 1190
  998. 00720 PRINT:C=INT(4*RND)+1:ON C GOTO 730,830,870,890
  999. 00730 PRINT "*** WARNING *** KLINGDONS HAVE FIRED PHASERS!"
  1000. 00740 IF D0>200000 THEN 800 ELSE IF RND>.6 THEN 800
  1001. 00750 C=INT(100*RND)+1:IF FLT(C)>W2 THEN 800 ELSE 
  1002.       LET H2=(2*(150000-D0)/30000)
  1003. 00760 C=INT(RND*3)+1:ON C GOTO 770,780,790
  1004. 00770 PRINT"** DIRECT HIT **":GOTO 910
  1005. 00780 PRINT "SPOCK REPORTS YOU SUFFERED A DIRECT HIT!":GOTO 910
  1006. 00790 PRINT "SULU REPORTS A HIT ON ENTERPRISE!":GOTO 910
  1007. 00800 C=INT(2*RND)+1:H2=0:ON C GOTO 810,820
  1008. 00810 PRINT "CHECKOV REPORTS A MISS.":GOTO 910
  1009. 00820 PRINT "SENSORS SHOW KLINGDONS SHOT WIDE!":GOTO 910
  1010. 00830 PRINT "*** WARNING *** KLINGDONS HAVE FIRED PHOTON TORPEDOES"
  1011. 00840 IF D0>300000 THEN 800 ELSE IF RND> 0.85 THEN 800
  1012. 00850 C=INT(100*RND):IF FLT(C)>W2 THEN 800 ELSE LET H2=((300000-D0)/50000)
  1013. 00860 GOTO 760
  1014. 00870 A4=((P2/2)*RND-P2/4):Q2=((P2/10)*RND)
  1015. 00880 PRINT "CHECKOV REPORTS KLINGDONS HAVE CHANGED DIRECTION.":GOTO 910
  1016. 00890 IF P2>30 THEN 720 ELSE PRINT "KLINGDONS HAVE SELF DESTRUCTED!"
  1017. 00900 IF D0>50000 THEN 1100 ELSE PRINT "YOU ARE ALSO DESTROYED!!!":
  1018.       GOTO 1190
  1019. 00910 A1=A1+A3+A4:FLT(Q)=A1:GOSUB 1160:A1=FLT(Q):A2=A2+A3+A4:Q=INT(Q2):
  1020.       GOSUB 1160
  1021. 00920 A2=FLT(Q):X0=SQR(D0^2+(Q2*5000)^2-(2*D0*Q2*5000*COS(ABS(A2)*K1)))
  1022. 00930 Y0=SQR(D0^2+(Q1*5000)^2-(2*D0*Q1*5000*COS(ABS(A2)*K1)))
  1023. 00940 D0=(X0+Y0)/2+15000:H1=H1*3:H2=H2*3:S1=S1-H1:S2=S2-H1
  1024. 00950 P1=P1-H2/3:P2=P2-H1/3:W1=W1-H1/3:W2=W2-H1/3
  1025. 00960 IF S1<0 THEN 970 ELSE IF S2<0 THEN 990 ELSE 1010
  1026. 00970 PRINT "MR. SCOTT REPORTS SHIELDS ARE OUT!"
  1027. 00980 K4=1:W1=W1+S1:P1=P1+S1:I1=I1+S1:L1=L1+S1:S1=0:GOTO 1040
  1028. 00990 P2=P2+S2:W2=W2+S2:L2=L2+S2:I2=I2+S2:S2=0
  1029. 01000 PRINT "CHOCKOV REPORTS KLINGDON SHIELDS ARE OUT!":GOTO 1040
  1030. 01010 IF S1<25 THEN 1020 ELSE IF S2<25 THEN 1030 ELSE 1040
  1031. 01020 PRINT "SCOTTY REPORTS THAT KLINGDONS SHIELDS HAVE BUCKLED!":
  1032.       GOTO 1040
  1033. 01030 PRINT "SENSORS SHOW KLINGDONS SHIELDS ARE WEAK!"
  1034. 01040 H1=0:H2=0:IF L1<10 THEN 1050 ELSE IF L2<10 THEN 1100 ELSE 1120
  1035. 01050 C=INT(3*RND)+1:ON C GOTO 1060,1070,1080
  1036. 01060 PRINT "YOU HAVE BEEN DESTROYED. KLINGDONS TAKE OVER!":GOTO 1190
  1037. 01070 PRINT "YOU HAVE BEEN BLOWN UP! YOU LOOSE!":GOTO 1190
  1038. 01080 PRINT "YOU LOOSE. MR. SCOTT, SULU, CHECKOV, SPOCK, AND"
  1039. 01090 PRINT "UHURA REPORT THAT YOU ARE AN IDIOT!!!":GOTO 1190
  1040. 01100 PRINT "KLINGDONS ARE DEAD, YOU SAVED THE GALAXY!":GOTO 1190
  1041. 01110 PRINT "SULU REPORTS KLINGDONS ARE DEAD! YOU WIN!":GOTO 1190
  1042. 01120 IF L1<50 THEN 1130 ELSE IF L2<50 THEN 1140 ELSE 280
  1043. 01130 PRINT "LT. UHURA REPORTS LIFE SUPPORT IS FAILING!":GOTO 280
  1044. 01140 PRINT "SENSORS SHOW KLINGDONS ARE ALMOST OUT OF POWER!":GOTO 280
  1045. 01150 PRINT "WHAT ANGLE DO YOU WANT TO SHOOT AT";:INPUT A:RETURN
  1046. 01160 IF A<-180 THEN 1170 ELSE IF Q>180 THEN 1180 ELSE RETURN
  1047. 01170 A=A+360:GOTO 1160
  1048. 01180 Q=Q-360:GOTO 1160
  1049. 01190 ENDè    MODIFYIN╟ TDCOP┘ T╧ WOR╦ WIT╚ MACHIN┼ LANGUAG┼ PROGRAM╙ O╬ THE
  1050.                    `COMPUTER-IN-A-BOOKº DIS╦ SYSTEM
  1051.                            by Tony Giuliano
  1052.  
  1053.      Fo≥ al∞ thσ `Compute≥ Iε ß Bookº owner≤ wh∩ typeΣ iε thσ modification≤ ì
  1054. t∩ thσ TDCOP┘ prograφ printeΣ iε thσ Januar∙ issuσ oµ Thσ Catche≥ wil∞ havσ ì
  1055. discovereΣá tha⌠ i⌠ doe≤ no⌠ work«á  Thσ reasoε fo≥ thi≤ i≤ tha⌠ thσ TDCOP┘ ì
  1056. supplieΣ witΦ thσ CIA┬ microbee≤ diffe≥ t∩ othe≥ versions.
  1057.  
  1058.      Afte≥ studyinτ TDCOP┘ anΣ thσ previou≤ articlσ b∙ Denni≤ Kretzshmar¼ ╔ ì
  1059. attempteΣ t∩ modif∙ thσ prograφ myselµ anΣ eventuall∙ succeeded.
  1060.  
  1061.      Thσ followinτ describe≤ thσ procedurσ oµ modifyinτ thσ TDCOP┘á prograφ ì
  1062. containeΣá oεá thσ CP/═ maste≥ disδ supplieΣ witΦ thσ CIA┬á microbees«á Thσ ì
  1063. procedurσá i≤ simila≥ t∩ thσ origina∞ modification≤ publisheΣ a≤ onl∙á somσ ì
  1064. oµ thσ addresse≤ anΣ datß havσ beeε changed.
  1065.  
  1066. PROCEDURE:
  1067.      Ruε thσ TDCOP┘ froφ CP/═ anΣ pres≤ Rese⌠ anΣ ═ t∩ jum≡ t∩ thσ monitor.
  1068.  
  1069.      Alte≥ 13╖ t∩ '23'
  1070.  
  1071.      Alte≥ 15┴ anΣ ente≥ thσ followinτ │ bytes.
  1072.  
  1073.       015░    .« .« .« .«  .« .« .« .«  .« .« C─ B╕  0╡ .« .« ..
  1074.  
  1075.      Alte≥ 40╖ anΣ ente≥ thσ followinτ 5╖ bytes.
  1076.  
  1077.       040░    .« .« .« .«  .« .« .« 0┴  C─ C├ C│ C╞  D░ D╣ B┴ 20
  1078.       041░    5▓ 6╡ 6▒ 6┤  7│ 2░ 6▒ 2░  4┤ 4╖ 4╞ 5│  2░ 6─ 2╞ 6C
  1079.       042░    2░ 7┤ 6▒ 7░  6╡ 2░ 6▒ 6┼  6┤ 2░ 6─ 6▒  6┬ 6╡ 7│ 20
  1080.       043░    6▒ 2░ 4│ 5░  2╞ 4─ 2░ 4│  4╞ 4─ 2░ 6╢  6╣ 6├ 6╡ 2E
  1081.  
  1082.      Alte≥ 5B╕ anΣ ente≥ thσ followinτ 4╕ bytes.
  1083.  
  1084.       05B░    .« .« .« .«  .« .« .« .«  2┴ 5┴ 0╡ 2▓  1╣ 0╢ 1▒ 10
  1085.       05C░    0▒ 1╣ 2▓ 1│  0╢ E─ 5┬ 5├  0╡ E─ 4┬ 5┼  0╡ E─ 4│ 21
  1086.       05D░    0╢ 1╣ 1▒ 1▒  0▒ E─ 5▓ 2▓  1╢ 0╢ 2┴ 5┴  0╡ 1▒ 1▒ 00
  1087.       05E░    1╣ 2▓ 5┴ 0╡  1▒ 5┼ 0┤ C╣  .« .« .« .«  .« .« .« ..
  1088.  
  1089.      Alte≥ 61▓ anΣ ente≥ thσ followinτ 1╖ bytes.
  1090.  
  1091.       061░    .« .« 2▒ 0░  0░ 1▒ 0░ 0░  0▒ 0░ 0░ E─  B╕ C─ 1┼ E0
  1092.       062░    C│ 0░ 0░ .«  .« .« .« .«  .« .« .« .«  .« .« .« ..
  1093.  
  1094.      Wheε yo⌡ havσ completeΣ tha⌠ exi⌠ froφ thσ monito≥ anΣ bacδ t∩ CP/═ b∙ ì
  1095. typinτ ╟ 0« T∩ savσ thσ ne≈ versioε ente≥ SAV┼ ╢ MLCOPY.COM.
  1096.  
  1097. QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZ
  1098.      Fo≥ eacΦ oµ thσ followinτ numbe≥ series¼ wha⌠ numbe≥ shoulΣ comσ next┐ ì
  1099. For example, in the series 1 4 9 16 25 36 ? the best answer would be 49.
  1100. 15  52  99  144  175  180  147 ??
  1101. 3  23  229  2869  43531 ??
  1102. 0  5  8  8  2  3  5  2  9  4  ??
  1103. 14  21  13  2  5  18  0  19  5  18  9  5  ??
  1104. 6  8  5  8  4  0  7  3  4  6  ??
  1105. 1  3  8  22  65  209  732  2780  ??
  1106.       If you can answer these you are on your way to the MENSA CLUB.
  1107. QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZZ--QUIZè