home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug011.arc / 1985OCT.CAT < prev    next >
Text File  |  1979-12-31  |  65KB  |  1,339 lines
  1. .pl70
  2. .PO0
  3. .OP
  4. .HE      ---- T H E  C A T C H E R ----   #
  5.  
  6. Thσ followinτ i≤ ß lis⌠ oµ thσ 1985/8╢ committeσ anΣ somσ oµ thσ peoplσ wh∩ ì
  7. havσ offereΣ thei≥ assistance« Iµ therσ i≤ anythinτ yo⌡ requirσ o≥ an∙ hel≡ ì
  8. yo⌡á caεá givσá us¼á pleasσ d∩ no⌠ hesitatσ t∩ contac⌠ an∙ onσá oµá us«á Iµ ì
  9. phoning, please do so at a reasonable hour.
  10. 
  11.               EXECUTIVE
  12. 
  13. PRESIDENT                               ANDREW BARFOOT           758-4822
  14. VICE-PRESIDENT                          MICK HOLZINGER           354-6742
  15. SECRETARY                               AXLE JOSCHT              859-1541
  16. TREASURER                               KEVIN CARR               233-4629
  17. PUBLI├ OFFICE╥                          JOHN BUTTON              578-8145
  18. 
  19.                          COMMITTEE AND ASSISTANTS
  20. 
  21. Terry Murphy        520-6229            Graham Schulz            848-5485
  22. Ray Han (B/H)       817-1371            John Buxton              758-5744
  23. Jim Lobley          758-9169            David Soutar             836-3661
  24. Gran⌠ Fores⌠        847-872╕            Steveε Jepsoε             45-4226
  25. Mike Thompson       82-5002             Robert Broomhead         546-3020
  26. Wal Hansen                              Richard Collet  (B/H)    690-8283
  27.  
  28.  
  29. SERVICES  PROVIDED  BY  MBUG  AUSTRALIA           
  30.  
  31.      -------------------------------------------------------------       
  32.      | EDITOR  A.BARFOOT. P.O. BOX 157 NUNAWADING 3131  758-4822 |
  33.      |-----------------------------------------------------------|
  34.      |PUBLIC DOMAIN DISKS  D.SOUTAR.  P.O. BOX 45 CANTERBURY 3126|
  35.      |       $5.00 ea. (std 5 1/4") disks. OTHER SIZES POA.      |
  36.      |                      We  supply disk.                     |
  37.      |              POSTAL ORDERS ADD $1.50 per DISK             |
  38.      |-----------------------------------------------------------|
  39.      | MODEM HIRE    *     GRAEME SCHULTZ.      848-5485         |
  40.      |    $5.00 FIRST WEEK  THEN $10.00 EACH ADDITIONAL WEEK     |   
  41.      |                    PLUS $25.00 DEPOSIT                    |
  42.      |-----------------------------------------------------------|
  43.      | BAZAAR  * MICK HOLZINGER  P.O. BOX 253 COBURG  3058       |
  44.      |  FOR PRICES OF GOODS ON SALE IN THE BAZAAR, A PRICE LIST  |
  45.      |  WILL BE PUBLISHED EVERY 2nd MONTH. MAIL ORDERS ACCEPTED  |
  46.      |-----------------------------------------------------------|   
  47.      | DISK FORMAT COPYING * GRANT  FOREST  874-8728  A.H. ONLY  |
  48.      | 5" to 8"  or  8" to 5"  MOST FORMATS  $2.00 PER DISKETTE  |
  49.      |      COPYING OF THE 3" C.I.A.B. IS ALSO CATERED FOR       |   
  50.      |         FOR POSTAL ORDERS ADD $1.50 per Diskette          |        
  51.      |-----------------------------------------------------------|
  52.      |           RBBS SYSTEM OPERATORS AND PROGRAMMERS           |
  53.      |                    SYSOP  GRANT FOREST                    |
  54.      |  REMOTE SYSOPS:  Ray Han. Mike Thompson. Richard Collett  |
  55.      |-----------------------------------------------------------|
  56.      | ADVERTISEMENTS *   P.O. BOX 157 NUNAWADING 3131           |
  57.      | $80.00 FULL PAGE   $40.00 HALF PAGE   $25.00 QUARTER PAGE |
  58.      | $3.00 FOR SERVICE AND RECURRENT ITEMS (LESS THAN 5 LINES) |
  59.      | NO CHARGE FOR NON RECURRING PRIVATE SALES ITEMS           |
  60.      |-----------------------------------------------------------|
  61.      |  THE CATCHER is published by MBUG AUSTRALIA INCORPORATED  |
  62.      |All copyrights are reserved by MBUG AUSTRALIA INCORPORATED |
  63.      -------------------------------------------------------------è       FROM-THE-CHIEF-MBUG**FROM-THE-CHIEF-MBUG**FROM-THE-CHIEF-MBUG**
  64.  
  65. ╔á woulΣ likσ t∩ thanδ thosσ peoplσ wh∩ helpeΣ mσ oε m∙ firs⌠ cluΓá meetinτ ì
  66. nigh⌠á a≤ Presiden⌠ fo≥ al∞ thei≥ assistancσ anΣ t∩ thanδ thosσ member≤ wh∩ ì
  67. attendeΣ b∙ co-operatinτ anΣ goinτ alonτ witΦ thσ change≤ made.
  68.  
  69. Iεá casσ an∙ oµ yo⌡ don'⌠ know¼á Mikσ Holzinger¼á thσ Bazaa≥ maε (he'≤á no⌠ ì
  70. reall∙ bazaar)¼ i≤ par⌠ oµ you≥ club« Hσ i≤ no⌠ aε outside≥ wh∩ come≤ alonτ ì
  71. jus⌠á t∩ makσ profi⌠ ou⌠ oµ you«á Hσ work≤ fo≥ thσ cluΓ runninτ ou≥á "Sale≤ ì
  72. Department"«á Iµ yo⌡ haven'⌠ noticeΣ thσ price≤ yo⌡ haΣ bette≥ havσ anothe≥ ì
  73. look« Iµ yo⌡ caε bu∙ bette≥ elsewhere¼ tel∞ u≤ where¼ anΣ wσ will¼ whereve≥ ì
  74. possible¼á ge⌠ i⌠ a⌠ ß bette≥ price«á T∩ givσ aε example¼á wσ bu∙ pape≥á iε ì
  75. bulδ anΣ makσ les≤ thaε $1.0░ pe≥ pack« Thσ dolla≥ i≤ useΣ t∩ cove≥ ou≥ owε ì
  76. cost≤ (banδ charges¼ stationar∙ etc.)«  Pleasσ suppor⌠ you≥ club...
  77.  
  78. MEMBERSHIP:
  79.  
  80. Wheεá ßá persoε applie≤ t∩ become≤ ß membe≥ oµ thi≤ cluΓ therσ arσ quitσá ß ì
  81. fe≈á step≤á tha⌠ havσ t∩ bσ taken«á Firstly¼á wheε ßá mai∞á applicatioεá i≤ ì
  82. collected¼ i⌠ ha≤ t∩ bσ takeε t∩ thσ Treasure≥ s∩ hσ caε allocatσ ß receip⌠ ì
  83. numbe≥á t∩ thσ ne≈ member«á Theε thσ forφ goe≤ t∩ thσ membershi≡á secretar∙ ì
  84. wh∩ put≤ thσ detail≤ int∩ thσ datß base«á Wheε thσ detail≤ g∩ int∩ thσ datß ì
  85. basσ wσ ge⌠ ß membershi≡ numbe≥ ou⌠ oµ it« Theε thσ ne≈ member¼ i≤ formall∙ ì
  86. voteΣ int∩ thσ cluΓ (a⌠ thσ committeσ meeting)«á ┴ cop∙ oµ thσ datß basσ i≤ ì
  87. theεá giveεá t∩á anothe≥á membe≥ oµ thσ committeσ wh∩á theεá make≤á u≡á thσ ì
  88. membershi≡á cards«á Thesσá card≤á arσá theε takeε bacδá t∩á thσá membershi≡ ì
  89. secretary¼á where¼á oε mailinτ night¼á usuall∙ iε timσ fo≥ thσ ne≈ membersº ì
  90. 2nΣá magazinσ  thσ card≤ arσ placeΣ iε witΦ thσ Catche≥ anΣá posted«á Hencσ ì
  91. thσ onσ montΦ dela∙ iε you≥ card« If¼ afte≥ readinτ this¼ yo⌡ qualif∙ fo≥ ß ì
  92. carΣ anΣ havσ no⌠ ye⌠ go⌠ one¼á pleasσ writσ t∩ thσ membershi≡ secretar∙ a⌠ ì
  93. ou≥ officia∞ address.
  94.  
  95. A≤á wσá havσ ß lo⌠ oµ ver∙ gooΣ materia∞ thi≤ montΦ wσ arσá includinτá fou≥ ì
  96. extrß page≤ anΣ ╔ hopσ yo⌡ finΣ mos⌠ oµ i⌠ oµ usσ t∩ you«á A≤ morσ thaε 75Ñ ì
  97. oµá ne≈ sale≤ oµ Microbee≤ arσ iε thσ forma⌠ oµ CIA┬ anΣ ßá simila≥á figurσ ì
  98. pertain≤ fo≥ upgrade≤ (t∩ CIAB)¼ ╔ plan¼ whereve≥ possible¼ t∩ includσ botΦ ì
  99. DIS╦á anΣ RO═ routine≤ iε BASI├ listings«á Iµ yo⌡ arσ planninτ t∩ submi⌠á ß ì
  100. prograφ fo≥ publicatioε iε Thσ Catcher¼á PLEASE¼ iµ ha≤ routine≤ fo≥ savinτ ì
  101. datßá t∩ disk¼á coulΣ yo⌡ als∩ includσ thσ applicablσ TAP┼ savinτ routines« ì
  102. Don'⌠ forget¼ wσ PA┘ (rea∞ mone∙ $$ñ CASH⌐ fo≥ anythinτ origina∞ printeΣ iε ì
  103. Thσá Catche≥á a⌠ appro° $5.0░ pe≥ page«á Thi≤ come≤ t∩ $100.0░á pe≥á norma∞ ì
  104. issue« Arσ yo⌡ gettinτ you≥ sharσ oµ this┐ ╔ believσ thσ Basiπ listinτ las⌠ ì
  105. montΦá ha≤ beeε takeε u≡ b∙ ß softwarσ housσ fo≥ re-salσá anΣá distributioε ì
  106. througΦ thσ educatioε system« 
  107.  
  108. Thσ ches≤ move≤ competitioε closinτ datσ ha≤ beeε extendeΣ b∙ onσ weeδ froφ ì
  109. tha⌠á announceΣá a⌠á thσ Septembe≥ meeting«á Thσ ne≈ closinτá datσá i≤á no≈ ì
  110. TUESDA┘ 15tΦ OCTOBER«á Entrie≤ receiveΣ late≥ thaε thi≤ wil∞ bσ to∩ latσ a≤ ì
  111. judginτá wil∞ bσ helΣ oε thσ followinτ nigh⌠ a⌠ thσ committeσ meeting«á Thσ ì
  112. winne≥ wil∞ bσ announceΣ a⌠ thσ Novembe≥ meeting« 
  113.  
  114. Iµ yo⌡ arσ writinτ t∩ t∩ morσ thaε onσ membe≥ oµ thσ committeσ a⌠ thσá samσ ì
  115. timσá coulΣ yo⌡ pleasσ pu⌠ eacΦ reques⌠ oε seperatσ paper«á Thi≤ wil∞ speeΣ ì
  116. u≡ replie≤ froφ ou≥ end« Thanδ you.
  117.  
  118. DISCOUNT NUMBER 805
  119.  
  120. >ANDREW
  121.        FROM-THE-CHIEF-MBUG**FROM-THE-CHIEF-MBUG**FROM-THE-CHIEF-MBUG**è                     A LETTER FROM THE TAPE LIBRARIAN
  122.  
  123. Hi¼á ╔á havσá jus⌠á takeε ove≥ froφ Davσ iε thσ TAPELI┬ anΣá ╔á aφá lookinτ ì
  124. forwarΣ t∩ makinτ i⌠ BIGGE╥ anΣ BETTE╥ (n∩ reflectioε oε Dave)«á Thank≤ fo≥ ì
  125. ß joΓ wel∞ donσ Davσ (╔ thinδ ╔ speaδ fo≥ all). 
  126.  
  127. ┴á ne≈á Pos⌠ Officσ Bo° wil∞ allo≈ anyonσ wh∩ can'⌠ makσ i⌠ t∩ thσá meetinτ ì
  128. thσ opportunit∙ oµ reserving¼ borrowinτ anΣ returninτ prograφ tapes« 
  129.  
  130. Onσ majo≥ probleφ ha≤ beeε thσ shee≥ volumσ oµ cassette≤ iε thσ library« Iε ì
  131. thσ past¼á we'vσ haΣ fivσ copie≤ oµ eacΦ prograφ cassettσ iε aε attemp⌠á t∩ ì
  132. kee≡á thσ number≤ down¼á but¼á eveε thi≤ ha≤ resulteΣ iε ß virtua∞á Cheop'≤ ì
  133. pyramiΣ oµ cassette≤ t∩ bσ lift¼á pack¼á un-pack¼á check¼á find¼ count¼ re-ì
  134. count¼á copy¼á fix¼á et-bloody-cetera«á ╔ wil∞ endeavou≥ t∩ pu⌠ al∞ thσ OL─ ì
  135. program≤á iε bunche≤ oµ │ o≥ ┤ pe≥ cassettσ dependinτ oε ho≈ lonτ the∙á arσ ì
  136. anΣ onl∙ keepinτ tw∩ copie≤ oµ each«á Thi≤ shoulΣ makσ i⌠ easie≥ fo≥ yo⌡ t∩ ì
  137. ge⌠ thσ earl∙ program≤ anΣ builΣ u≡ you≥ librar∙ oµ new(er⌐ programs«á Thi≤ ì
  138. shoulΣ takσ effec⌠ ove≥ thσ nex⌠ fe≈ months....
  139.  
  140. Also¼á ß reminde≥ t∩ al∞ members¼ ne≈ anΣ old« Thσ TAPELI┬ i≤ fo≥ many¼ thσ ì
  141. onl∙ sourcσ oµ program≤ fo≥ thei≥ Bees«á A≤ such¼á i⌠ i≤ imperativσ tha⌠ wσ ì
  142. ge⌠ a≤ man∙ ne≈ program≤ a≤ possible« Pleasσ submi⌠ AN┘ program¼ whethe≥ i⌠ ì
  143. bσá ßá game¼á utilit∙ o≥ an∙ prograφ tha⌠ coulΣ bσ oµ genera∞á interes⌠á t∩ ì
  144. members«á Elsewherσá iε thi≤ issuσ i≤ ß ful∞ lis⌠ oµ tape≤ wσ havσ fo≥ hirσ ì
  145. iε thσ tapσ library.
  146.  
  147. Thi≤ montΦ wσ havσ somσ reall∙ interestinτ addition≤ t∩ thσ tapσ library.
  148.      1⌐   AUS╘      ┴ geograph∙ lesson« (seσ wha⌠ yo⌡ kno≈ abou⌠ Aust⌐  
  149.      2⌐   GOL╞      Everythinτ bu⌠ thσ 19tΦ hole.
  150.      3⌐   BRICK╙    Machinσ languagσ brickba⌠ game
  151.      4⌐   COMPA╘    Mumerologica∞ compatibilit∙ program
  152.      5⌐   PSYCH╧    Compute≥ psychiatris⌠ usinτ artificia∞ intelligence
  153.  
  154. Looδ ou⌠ nex⌠ montΦ fo≥ more...«        Wa∞ Hansen.
  155.  
  156.  
  157.   FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--
  158.  
  159. Microbee:- Eproφ Programme≥ (A.T« Model⌐ $100¼ 64δ Roφ BoarΣ $40¼ Multiproφ ì
  160. Interfacσ fo≥ Beσ $50¼ MicroworlΣ "OZ-LOGOó 8δ Roφ $20¼ Myteδ Wordprocesso≥ ì
  161. 8k Rom $20, Blank 2764 Rom Chip $7, 6264 Ram Chip $15. 
  162. Manuals supplied, Software package for Multiprom Board included.
  163. Reasoεá fo≥ sale╗á upgradeΣ t∩ CIAB«á Wil∞ sel∞ seperatel∙ iµ requireΣ o≥ ß ì
  164. special price of $210.00 for the lot.
  165. Contact Doug Craigie P.O. BOX 3230 Alice Springs 5750 or Phone 089-52 5214.
  166.  
  167.   FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--
  168.  
  169.  
  170. HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??
  171.  
  172. Q: How do you get a machine code listing to the printer from the monitor? 
  173. A1: Get a disassembler ?    Is there any better answer?  789-0369
  174.  
  175. Q║ Doe≤ anyonσ kno≈ thσ connection≤ fo≥ ß DP84░ Sta≥ Printe≥ "SERIALó t∩ ì
  176. thσ CIAB« Thσ printe≥ ha≤ ß 1╢ piε pluτ markeΣ HRS6D« ╔ don'⌠ don'⌠ kno≈ iµ ì
  177. the pin is standard or not?             Lindsay Burt.  645-2299
  178.  
  179. HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??è                                SPHERE.MWB
  180.            A small listing to draw a ball/sphere on the screen. 
  181.  
  182. 100 rem GRAPHICS/MATHEMATICAL  WARREN WILSON  WOWSOFT SOFTWARE 1985 [145]
  183. 110 CLS:POKE220,25:INVERSE:CURS16,1:PRINT 
  184.     "BASIC SPHERE By WARREN WILSON" [015]
  185. 120 CURS22,5: PRINT" Input size of sphere ":NORMAL [202]
  186. 130 CURS25,6: PRINT"[1] Large sphere": CURS25,7: PRINT"[2] Medium sphere":
  187.     CURS 25,8: PRINT"[3] Small sphere" [246]
  188. 140 CURS 21,10: INPUT"Which sphere number 1-3 ?";G [037]
  189. 150 IF G <=0 OR G =>4 THEN CURS21,10: PRINT [A50 32]: GOTO 120 [152]
  190. 160 IF G=1 : N1$="LARGR SPHERE": 
  191.     G0=80: H0=15: G1=80: H1=45: G2=25: H2=45 132]
  192. 170 IF G=2: N1$="MEDIUN SPHERE": 
  193.     G0=40: H0=7.5: G1=40: H1=22.5: G2=12.5: H2=22.5 [023]
  194. 180 IF G=3: N1$="SMALL SPHERE": 
  195.     G0=20: H0=3.75: G1=20: H1=11.25: G2=6.25: H2=11.25 [100]
  196. 190 HIRES [021]
  197. 200 CURS0: PRINT N1$ [105]
  198. 210 FOR N=1 TO 700 [112]
  199. 220 S1=S1+0.009 [251]
  200. 230 S0=SIN(S1): C0=COS(S1) [184]
  201. 240 A=INT(G0*S0): B=INT(H0*C0) [126]
  202. 250 rem A=INT(80*S0): B=INT(15*C0) [151]
  203. 260 SET A+220, B+120 [176]
  204. 270 C=INT(G1*S0): D=INT(H1*C0) [135]
  205. 280 rem C=INT(80*S0): D=INT(45*C0) [154]
  206. 290 SET C+220, D+120 [183]
  207. 300 E=INT(G2*S0): F=INT(H2*C0) [135]
  208. 310 rem E=INT(25*S0): F=INT(45*C0) [148]
  209. 320 SET E+220, F+120 [181]
  210. 330 NEXT N [035]
  211. 340 CURS 17,14: PRINT "DO YOU WANT ANOTHER SPHERE Y/N ?" [080]
  212. 350 S1$=KEY$: IF S1$="" THEN 350 [067]
  213. 360 IF S1$= "y"OR S1$="Y" THEN 110 ELSE POKE 220,111:END [074]
  214.  
  215.                                  VIDEO.MWB
  216. 
  217. 00001 REM 10 December 1983. [049]
  218. 00005 CLS [023]
  219. 00007 K=1:J=-1 [015]
  220. 00010 PRINT "   ***   ";:UNDERLINE:PRINT "V I D E O    G R A P H I C S";
  221.       :NORMAL:PRINT "    ***" [101]
  222. 00020 PRINT:PRINT:PRINT"S TO GO RIGHT     A TO GO LEFT    W TO GO UP    
  223.       Z TO GO DOWN" [112]
  224. 00025 PRINT "D  MARKER: DEPRESS D ONCE FOR STARTING POINT, POSITION 
  225.       CURSOR   AND PRESS D AGAIN AND A LINE WILL BE DRAWN BETWEEN 
  226.       THE 2 POINTS" [200]
  227. 0002╖ PRINT"╘ TEX╘ MODE« TYP┼ I╬ DESIRE─ CHARACTER╙ AN─ PRES╙ RETURNó [031]
  228. 00030 PRINT:PRINT "O TO TURN (PEN) ON     F TO TURN (PEN) OFF" [072]
  229. 00040 PRINT:PRINT"     HIT K AND THEN Y TO FILE DRAWING" [086]
  230. 00050 PRINT "HIRES OR LORES (H/L)";:INPUT C1$ [136]
  231. 00055 INPUT "NAME OF THIS FILE"D1$ [229]
  232. 00056 D1$=D1$+".GRA" [081]
  233. 00070 GOTO 4000 [100]
  234. 00080 CLS [074]
  235. 00090 IF C1$="H" THEN HIRES ELSE LORES [177]
  236. 00095 C=1:X=20:Y=20 [130]
  237. 00100 SET X,Y:IF J<>-1 THEN SET(J,O) [118]    continued on page 14è                       PASCAL_FOR_BASIC_PROGRAMMERS
  238.  
  239.                     PART IX.              Dixon Kenney
  240.  
  241.      We'rσá no≈á goinτ t∩ adΣ t∩ ou≥ Inventor∙ Prograφ thσ procedurσá whicΦ ì
  242. wil∞ finΣ an∙ onσ item«á  Thi≤ procedurσ find≤ aε iteφ b∙ it≤ par⌠á number╗  ì
  243. i⌠á coulΣá bσ  rewritteε o≥  extendeΣ t∩ finΣ aε iteφá b∙á description¼á o≥ ì
  244. whateve≥ fielΣ yo⌡ required«  Here'≤ thσ codσ -
  245.  
  246. ááááProcedurσ  Finditem;
  247.  
  248. ááááConst
  249. áááá  Heade≥ ╜ º ¬ FIN─ A╬ EXISTIN╟ ITE═ O╞ STOC╦ ¬ ';
  250.  
  251. ááááVar
  252. áááá  P╬          ║ Integer;
  253. áááá  YesN∩       ║ Char;
  254. áááá  Agaiε       ║ Boolean;
  255. áááá  FounΣ       ║ Boolean;
  256.  
  257. ááááBegin
  258.  
  259. áááá  Assign(PartFile¼ FileName);
  260. áááá  Reset(PartFile);
  261.  
  262. áááá  Agaiε :╜ True;
  263.  
  264. áááá  Repeat
  265.  
  266. áááá    ClrScr;
  267. áááá    Writeln¿ º ':20¼ Header);
  268. áááá    Writeln╗ Writeln;
  269. áááá    Write('Ente≥ thσ Par⌠ Numbe≥ oµ thσ Iteφ requireΣ ║ ');
  270. áááá    Readln(PN);
  271.  
  272. áááá    WitΦ Par⌠ do
  273. áááá      Begin
  274. áááá        FounΣ :╜ False;
  275. áááá        Whilσ no⌠ EOF(PartFile⌐ anΣ no⌠ FounΣ do
  276. áááá          Begin
  277. áááá          Read(PartFile,Part);
  278. áááá          Iµ PartNuφ ╜ P╬ then
  279. áááá            FounΣ :╜ True;
  280. áááá          End;
  281.  
  282. áááá      Iµ no⌠ FounΣ then
  283. áááá        Begin
  284. áááá          Writeln╗  Writeln;
  285. áááá          Write('Thi≤ iteφ doe≤ no⌠ exis⌠ ');
  286. áááá        End
  287. áááá      Else
  288. áááá        Begin
  289. áááá          Formwrite(Header);
  290. áááá          Iµ DeleteΣ then
  291. áááá            Begin
  292. áááá              GoToXY(10,2);
  293. áááá              Write('¬ DELETE─ *');
  294. áááá          End╗   √ oµ Iµ DeleteΣ }
  295. áááá          GoToXY(32¼ 4)╗ Write(PartNum);èáááá          GoToXY(32¼ 5)╗ Write(Description);
  296. áááá          GoToXY(32¼ 7)╗ Write(Cost:8:2);
  297. áááá          GoToXY(32¼ 8)╗ Write(Retail:8:2);
  298. áááá          GoToXY(32,10)╗ Write(MinOH);
  299. áááá          GoToXY(32,11)╗ Write(MaxReorder);
  300. áááá          GoToXY(32,13)╗ Write(CurrentOH);
  301. áááá      End╗    √ oµ Elsσ .« }
  302. áááá    End;
  303. áááá    Writeln╗  Writeln;
  304.  
  305. áááá    Write('D∩ yo⌡ wan⌠ t∩ looδ fo≥ anothe≥ par⌠ █ Y/╬ ▌ ┐ ');
  306. áááá    Read(YesNo);
  307. áááá    Iµ UpCase(YesNo)╜ 'Y'
  308. áááá      Then
  309. áááá        Begin
  310. áááá          Agaiε :╜ True;
  311. áááá          Reset(PartFile)
  312. áááá        End
  313. áááá      Else
  314. áááá        Agaiε :╜ False
  315. áááá  Unti∞ Agaiε ╜ False;
  316.  
  317. áááá  Close(PartFile)
  318.  
  319. ááááEnd╗  √ Procedurσ FindIteφ )
  320.  
  321. Comments on the code -
  322.  
  323.      Ou≥ majo≥ probleφ t∩ addres≤ i≤ thi≤ - wha⌠ happen≤ iµ thσ iteφ i≤ no⌠ ì
  324. iε thσ datß list«  Wσ coulΣ havσ writteε thσ codσ t∩ finΣ i⌠ likσ thi≤ -
  325.  
  326. áááááááááRepeat     Read(PartFile)       Until PartNum = PN;
  327.  
  328. However¼á iµ thσ iteφ i≤ no⌠ oε thσ list¼á thi≤ codσ wil∞ causσ thσ prograφ ì
  329. t∩á "bomΓ outó witΦ ß run-timσ erro≥ ¿ I'vσ trieΣ it¼á s∩ ╔ kno≈ tha⌠á thi≤ ì
  330. wil∞ happeε !⌐  S∩ wσ se⌠ tw∩ condition≤ -
  331.  
  332.      i⌐á   ReaΣá unti∞á thσ enΣ oµ thσ Filσ - Whilσá no⌠á EOF(filevariable⌐ ì
  333. mean≤á tha⌠á eacΦá recorΣ wil∞ bσ reaΣ iε turεá unti∞á thσá recorΣá pointe≥ ì
  334. reache≤ thσ EO╞ marker╗á thσ ReaΣ functioε wil∞ end¼ withou⌠ goinτ pas⌠ thσ ì
  335. marker;
  336.  
  337.      ii⌐  ReaΣ thσ filσ unti∞ thσ iteφ requireΣ i≤ found«  Wσ se⌠ ß Booleaε ì
  338. variablσ FOUN─ equa∞ t∩ FALS┼ wheε wσ ente≥ thσ loo≡ - i⌠ i≤ FALS┼ tha⌠ thσ ì
  339. iteφ ha≤ beeε FOUND«  Iµ wσ finΣ thσ item¼ thσ se⌠ thσ variablσ t∩ TRUE.
  340.  
  341.      Thσá tw∩ condition≤ meaε tha⌠ thσ ReaΣ wil∞ continuσ whilσ i⌠ i≤á TRU┼ ì
  342. botΦá tha⌠á wσ haven'⌠ reacheΣ thσ EnΣ oµ thσ Filσ anΣ als∩ thσ iteφá isn'⌠ ì
  343. FounΣ ¿ NO╘ FOUN─ mean≤ tha⌠ FOUN─ i≤ FALS┼ )«  However¼ a≤ sooε onσ oµ thσ ì
  344. condition≤ become≤ TRU┼ - tha⌠ is¼á NO╘ EO╞ o≥ NO╘ FOUN─ becomσ eithe≥á EO╞ ì
  345. o≥ FOUND¼ theε thσ ReaΣ loo≡ wil∞ terminatσ correctly.
  346.  
  347.      Iµ thσ flaτ FOUN─ remain≤ FALS┼ wheε thσ EO╞ i≤ reached¼á theε wσ havσ ì
  348. t∩á sa∙ tha⌠ thσ iteφ doesn'⌠ exis⌠ - whicΦ i≤ carrieΣ ou⌠ b∙ thσ I╞á blocδ ì
  349. oµ thσ I╞ NO╘ FOUN─ par⌠ oµ thσ code«  Iµ FOUN─ i≤ se⌠ t∩ TRUE¼ theε wσ caε ì
  350. writσá ou⌠á thσá detail≤ oε t∩ thσ screeε - thσ ELS┼ par⌠ oµ thσá I╞á FOUN─ ì
  351. block.
  352.  
  353. è     In this block, notice the statement
  354.  
  355.                     If Deleted
  356.  
  357. Thσá fielΣá DELETE─ i≤ ß Booleaε fielΣ - i⌠ caε havσ eithe≥ oµá thσá value≤ ì
  358. TRU┼ o≥ FALSE«  Thσ wa∙ t∩ se⌠ ß conditioε oε ß Booleaε fielΣ i≤ thσ wa∙ wσ ì
  359. havσ writteε it.
  360.  
  361.      If Deleted     means     if the field Deleted is set to TRUE
  362.      If NOT Deleted means     if the field Deleted is set to FALSE
  363.  
  364. We don't have to use the "=" or "<>" signs with Boolean variables.
  365.  
  366.      Towards the end of the procedure, we have the function
  367.  
  368.                UpCase(YesNo)
  369.  
  370. Thi≤ functioε take≤ an∙ alphabetiπ character≤ iε thσ variable¼á anΣá treat≤ ì
  371. theφá al∞ a≤ iµ the∙ werσ Uppe≥ Casσ characters«á  Iε ß previou≤ procedure¼ ì
  372. wσ useΣ thσ phrase
  373.  
  374.                If variable in [ 'Y', 'y' ]
  375.  
  376. This is an alternative way of doing the same thing.
  377.  
  378.      Wheε wσ wrotσ thσ functioε EXISTS¼á wσ passeΣ ß valuσ t∩á it¼á througΦ ì
  379. thσ paramete≥ º (Namσ ║á Filespec⌐ ║ Booleaε '«  Wσ caε diagraφ it≤ workinτ ì
  380. likσ thi≤ -
  381.  
  382.              |------------------------|
  383. If Exists(FileName)                   |v
  384.       |^           Function Exists (Name : Filename ) : Boolean;
  385.       |                   Begin
  386.       |                   Exists := (IOResult = 0)
  387.       |---------------------|
  388.  
  389.      Wheε thσ functioε i≤ invoked¼ TurboPasca∞ make≤ ß copyô oµ thσ content≤ ì
  390. oµá thσ operanΣ oµ thσ functioε (FileName)¼á whicΦ i≤ useΣ b∙ thσá variablσ ì
  391. Namσ iε thσ Functioε itself«á  Wheneve≥ thσ functioε i≤ called¼ thσ datß i⌠ ì
  392. use≤á caεá bσ differen⌠ eacΦ timσ - thσ actua∞ valuσ i≤ substituteΣ iεá thσ ì
  393. functioεá call«á  Noticσá tha⌠á thσ variablσ i≤ declareΣá iεá thσá functioε ì
  394. 'titleºá - thi≤ i≤ calleΣ ß "forma∞ paramete≥ list"¼á anΣ thσ variable≤á d∩ ì
  395. no⌠ neeΣ t∩ bσ declareΣ iε thσ usua∞ way«  A⌠ thσ enΣ oµ thσ paramete≥ lis⌠ ì
  396. i≤á thσ typσ oµ thσ resul⌠ thσ functioε use≤ - iε thi≤ casσ ß Booleaε ¿á i≤ ì
  397. i⌠á TRU┼ tha⌠ thσ filσ exists¼á o≥ FALS┼ )«á  Al∞ variable≤ declareΣá iεá ß ì
  398. functioεá o≥á procedurσ arσ LOCA╠ t∩ tha⌠ block╗á tha⌠ is¼á the∙ canno⌠á bσ ì
  399. accesseΣ b∙ an∙ othe≥ blocδ iε thσ program¼á unles≤ i⌠ i≤ calleΣ froφ ¿ anΣ ì
  400. therefore¼ iε somσ wa∙ "nesteΣ in"⌐ thi≤ block«  So¼ iε Functioε Exists¼ a≤ ì
  401. sooε a≤ thσ functioε i≤ exited¼á thσ memor∙ useΣ b∙ thσ variablσ ╞ whicΦ wσ ì
  402. havσá declareΣá here¼á a≤ wel∞ a≤ Namσ iε thσá forma∞á paramete≥á list¼á i≤ ì
  403. releaseΣ b∙ thσ compiler¼ anΣ i≤ availablσ fo≥ useΣ again« 
  404.  
  405.      Thi≤á als∩á mean≤ that¼á iµ wσ havσ ß variablσ labelleΣ ╪ iε thσá maiε ì
  406. program¼ ß variablσ labelleΣ ╪ caε als∩ bσ declareΣ here¼ a≤ i⌠ exist≤ iε ß ì
  407. differen⌠ par⌠ oµ memory.
  408.  
  409.      Iε thσ nex⌠ part¼á wσ wil∞ talδ abou⌠ Paramete≥ passinτ t∩ Procedures¼ ì
  410. whicΦ i≤ aε extensioε oµ wha⌠ wσ havσ talkeΣ abou⌠ here« 
  411. è MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-
  412.  
  413.      Thi≤á montΦá see≤ thσ changσ oµ thσ organization'≤ namσá froφá ApplieΣ ì
  414. Technolog∙ t∩ microbeσ System≤ Ltd« 
  415.  
  416.      Wσ stil∞ ge⌠ enquirie≤ abou⌠ thσ dynamiπ RA═ machines¼á namel∙ thσ 64δ ì
  417. anΣá thσá 128k«á ┴ numbe≥ oµ peripheral≤ caε no⌠ bσ connecteΣ oεá t∩á thesσ ì
  418. microbee≤á becausσ therσ i≤ n∩ 5░ wa∙ expansioε there«á Thσ reasoε fo≥ thi≤ ì
  419. iµá yo⌡á arσá unawarσ i≤ thσ disδ controlle≥ i≤á mounteΣá oεá thσá microbeσ ì
  420. coreboarΣá insteaΣ oµ insidσ thσ disδ drivσ case«á Thσ 3┤ wa∙ expansioεá oε ì
  421. thσá bacδá oµá thesσ machine≤ wil∞ pluτ int∩ an∙á shugar⌠á compatiblσá disδ ì
  422. drive« Thσ 5░ wa∙ expansioε i≤ availablσ fo≥ thesσ machine≤ a≤ ß kit« I⌠ i≤ ì
  423. mounteΣ underneatΦ thσ baseboard«á Therσ i≤ onσ probleφ though¼á user≤ witΦ ì
  424. thσ microbeσ colou≥ optioε caε no⌠ fi⌠ thi≤ kit« Thi≤ i≤ becausσ thσ 5░ wa∙ ì
  425. expansioε i≤ mounteΣ wherσ thσ colou≥ boarΣ is.
  426.  
  427.      Now¼á thi≤á par⌠á oµ thσ columε wil∞ bσ dedicateΣ t∩ thσ modeφá users« ì
  428. Telecom'≤ mem∩ system¼á Telemem∩ whicΦ ha≤ beeε u≡ fo≥ ß whilσ ha≤ releaseΣ ì
  429. (quitσ somσ timσ ago⌐ aε informatioε account«á T∩ acces≤ thi≤á account¼á iµ ì
  430. yo⌡ havσ ß 30░ bauΣ modeφ dia∞ 01921¼ o≥ 0192▓ anΣ 0192│ fo≥ 1200/120░ bauΣ ì
  431. anΣ 1200/7╡ bauΣ respectively«á Yo⌡ shoulΣ hea≥ thσ familia≥ carrier«á Wheε ì
  432. yo⌡á do¼á fli≡ contro∞ t∩ you≥ modem«á Yo⌡ shoulΣ seσ thσ Austpac'≤á signoε ì
  433. comσá up«á Thσá followinτá i≤ wha⌠ yo⌡ shoulΣ get¼á pleasσá notσá tha⌠á thσ ì
  434. character≤áá printeΣá iεá bolΣá arσá character≤á transmitteΣá b∙á Telecom'≤ ì
  435. computer.
  436.  
  437. Austpac
  438.  
  439. ?.memo
  440.  
  441. COM
  442.  
  443. User Name? austpac.news
  444. Password? austpac
  445.  
  446.  ... try, and find out what comes next!!!
  447.  
  448.  
  449. Raymond K.L. Han
  450. Victorian Technical Support Manager,
  451. Microbee Systems Ltd.
  452. DEEPDENE        3103.
  453.  
  454.  MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-
  455.  
  456.  
  457.                                PLEASE NOTE
  458.  
  459. NOTHE╥problem with CHECKSU═s relatinτ t∩ thσ 16δ versioε ha≤ beeε founΣ b∙ ì
  460. ApplieΣ Technology. Please change line 120 as follows:
  461.  
  462. 0012░ POKE 226,╖ ║ FOR ┴ ╜ 17╕ T╧ 18╕ STE╨ ▓ ║ POK┼ A,4╕ ║ POK┼ A+1¼ 11╖ ║ ì
  463.       NEXT A : POKE 226,1
  464.  
  465. should read
  466.  
  467. 0012░ POKE 226,╖ ║ FOR ┴ ╜ 17╕ T╧ 18╕ STE╨ ▓ ║ POK┼ A,152 : POK┼ A+1¼ 58 ║ ì
  468.       NEXT A : POKE 226,1  áHINZ
  469. è                                 QUICK.MWB
  470.  
  471. I⌠á i≤ recommendeΣ thatÖ BEFOREé yo⌡ typσ iε thi≤ listinτ yo⌡ reaΣ thσ entirσ ì
  472. listinτ first«á Thi≤ wil∞ givσ aε ideß oµ wha⌠ need≤ t∩ bσ donσ t∩ makσá i⌠ ì
  473. worδ properly« Therσ arσ n∩ checksum≤ oε thi≤ listing≤ a≤ the∙ d∩ no⌠ coun⌠ ì
  474. anythinτ tha⌠ come≤ afte≥ ß RE═ statement« Ö  ED.
  475.  
  476. 00010 REM ## FIRST BLOCK ##
  477. 00020REM#PABCDEFGHIJKLMNOP
  478. 00030REM~    Q U I C K   Q U I C K  Q U I C K  Q U I C K  Q U I C K     
  479. 00040 REM~    (used to get text quickly onto the screen, from BASIC)
  480. 00050 REM~       THIS SOFTWARE WAS DEVELOPED BY WESTGATE SOFTWARE 
  481. 00060 REM~                                          02/07/1985
  482. 00070 REM~REM#BAC
  483. 00080 REM~REM ~HI
  484. 00090 REM~REM ~there
  485. 00100 REM~ The first REM has a # which tells the M/L program to get ready
  486. 00110 REM~for commands, the first letter (ie. B), says that there is
  487. 00120 REM~ASC("B")-64 lines of text (ie. 2 lines). While the next letter
  488. 00130 REM~is the line ASC("A")-64 (ie. line 1) for the text to be written.
  489. 00140 REM~The next REM has a ~ which indicates to the M/L program that 
  490. 00150 REM~that text is to follow.
  491. 00160 REM~So,"HI"will be printed on line 1, and"there"will be printed on
  492. 00170 REM~line 3. The text can be any typable characters.
  493. 00180 REM~           NOTE: COMMMANDS MUST BE IN UPPER CASE
  494. 00190 REM ## SECOND BLOCK ##
  495. 00200REM#IABCDEFHIK
  496. 00210 REM~To call this routine, you use the USR command from BASIC in the
  497. 00220 REM~form of USR(address where poked, line number of command REM#).
  498. 00230 REM~The line no. of the command REM#, must be included, IT IS NOT
  499. 00240 REM~OPTIONAL. All the data for the M/L program, must be in blocks, 
  500. 00250 REM~consisting of COMMAND LINE (ie. 10rem#------), followed by the
  501. 00260 REM~lines of text. NOTE: THE COMMAND LINE SHOULDN'T HAVE ANY SPACES.
  502. 00270 REM~The M/L program in the DATA, may be POKEd anywhere in memory, as
  503. 00280 REM~only relative branches are used in the M/L program.
  504. 00285 REM~              LIST THIS PROGRAM AS AN EXAMPLE
  505. 00290 REM *** BASIC PROGRAM ***
  506. 00300 CLS:CURS14,7:UNDERLINE:PRINT"POKING M/L PROGRAM INTO MEMORY":NORMAL
  507. 00310 FORT=0TO72:READF:POKE5*4096+T,F:NEXTT
  508. 00320 CLS:USR(5*4096,20)
  509. 00330 D=USR(8*4096+6):REM    ** WAIT FOR KEYPRESS **
  510. 00340 CLS:USR(5*4096,200)
  511. 00350 D=USR(8*4096+6):REM    ** WAIT FOR KEYPRESS **
  512. 00360 CLS
  513. 00370 REM ## DATA FOR M/L ROUTINE ##
  514. 00380 DATA 33,0,9,120,190,35,32,251,121,190,32,247,35,35,62,161,
  515.       190,32,240,62,35,190,35,32,252,126,214,64,71,229,126,35
  516. 00390 DATA 254,126,32,250,209,19,213,26,214,64,221,33,0,240,
  517.       17,64,0,61,40,4,221,25,24,249,126,254,13,40,8,221,119,0
  518. 00400 DATA 221,35,35,24,243,16,215,241,201        áHINZ
  519.  
  520. FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FO
  521. Multiprom Boards assembled and tested. $85.00 with Wordbee.
  522.    (EDASM/DISSASSM/PASCAL also avialable)     Phone Peter 434-5583
  523.  
  524. BEEMODEM 300 bd         Any reasonable offer.   Phone 560-3487
  525.  
  526. WANTED to buy: A printer to suit the Bee. Phone Geoff M. 211-1247
  527. FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FO è                           BACK-U╨ YOU╥ PROGRAMS                
  528.                            =====================   Mark Bishop  
  529.   
  530.      Wσá woulΣá al∞á likσ t∩ kee≡ backu≡ copie≤ oµá ou≥á importan⌠á prograφ ì
  531. tapes¼á  o≥ wheε ou≥ disδ systeφ finall∙ arrive≤ transfe≥ thosσ program≤ t∩ ì
  532. disk« Bu⌠ caε wσ ?
  533.  
  534.      Ou≥á 'homemadeºá program≤á arσá eas∙ t∩á backup¼á  bu⌠á mos⌠á recentl∙ ì
  535. produceΣá commercia∞á machine-codσá program≤á havσá somσá forφá oµá copyinτ ì
  536. protection«á  Program≤ sucΦ a≤ 'Backupº b∙ Johε Buxtoε anΣ Jiφ Loble∙á wil∞ ì
  537. makσá ßá 'mirro≥á imageº oµ man∙ M/├ program≤ includinτá thei≥á protection«  ì
  538. Unfortunatel∙á the∙ d∩ no⌠ worδ iε al∞ cases¼á anΣ arσ n∩ hel≡á iεá gettinτ ì
  539. program≤ t∩ disk.
  540.  
  541.      Thσá onl∙á completσá answe≥ i≤ t∩ removσ thσ protectioεá anΣá ge⌠á thσ ì
  542. prograφá bacδá t∩á it'≤ origina∞ un-protecteΣ form«á  Froφ therσá makinτá ß ì
  543. backu≡ i≤ easy«á  Removinτ protectioε caε sometime≤ bσ ß lonτ task¼  bu⌠ iµ ì
  544. yo⌡á arσá thσá typσá tha⌠ like≤á puzzles¼á caεá bσá quitσá interestinτá anΣ ì
  545. challanging.
  546.  
  547.      Thi≤á articlσá i≤ no⌠ designeΣ t∩ hel≡ woulΣ bσá prograφá pirates¼á a≤ ì
  548. prograφá piratinτá oµá tape≤ i≤ a≤ eas∙ a≤ connectinτá tw∩á tapσá recorder≤ ì
  549. together«á  A⌠á somσ timσ ever∙ compute≥ owne≥ ha≤ t∩ makσ hi≤ owεá ethica∞ ì
  550. stanΣá oε prograφ stealing«á  Iµ distributor≤ anΣ programmer≤ d∩ no⌠ ge⌠á ß ì
  551. reasonablσá returε froφ thei≥ efforts¼á the∙ wil∞ sto≡ supportinτá Microbeσ ì
  552. softwarσ production« eτ MYTEK.
  553.  
  554.      Firs⌠á somσá backgrounΣá information«á  Commercia∞á M/├á program≤á arσ ì
  555. designeΣ t∩ bσ loadeΣ froφ basiπ witΦ thσ 'loadº command¼á autostar⌠ a⌠ thσ ì
  556. prograφá entr∙ point¼á theε deletσ o≥ changσ an∙ pointer≤ t∩ tha⌠á address«  ì
  557. Copyinτá ßá M/├ prograφ withou⌠ knowinτ thσ entr∙ poin⌠ i≤ ß wastσ oµá timσ ì
  558. anΣá i≤ likσ tryinτ t∩ finΣ you≥ wa∙ witΦ ß ma≡ withou⌠ knowinτá wherσá yo⌡ ì
  559. arσ oε thσ ma≡ t∩ star⌠ with«  Man∙ program≤ arσ designeΣ t∩ bσ eraseΣ wheε ì
  560. yo⌡ g∩ t∩ basiπ o≥ ß monito≥ program«  T∩ removσ an∙ protection¼ wσ mus⌠ bσ ì
  561. ablσ t∩ loaΣ thσ prograφ int∩ memory¼ WITHOU╘ i⌠ auto-starting.
  562.  
  563.      A⌠á thσ star⌠ oµ an∙ prograφ tapσ i≤ ß heade≥ whicΦ tell≤ thσ compute≥ ì
  564. thσ prograφ name¼á length¼ star⌠ addres≤ iε memory¼ entr∙ point¼ bauΣ rate¼ ì
  565. autostar⌠ yes/no¼ anΣ ß sparσ bytσ whicΦ ma∙ bσ useΣ fo≥ protection«   Wheε ì
  566. thσ prograφ tapσ i≤ loaded¼ thesσ detail≤ arσ loadeΣ int∩ ß memor∙ 'scratcΦ ì
  567. padºá (SPAD⌐ iε RAM¼á t∩ bσ storeΣ unti∞ thσ prograφ ha≤ finisheΣá loading«  ì
  568. Basic¼á thσá editor/assemble≥ monitor¼á thσ wordbeσá monitor¼á thσá networδ ì
  569. monito≥á anΣ thσ disδ monito≥ al∞ usσ differen⌠ SPA─ RA═ locations«á  Thesσ ì
  570. arσ listeΣ below¼ anΣ wh∙ the∙ arσ importan⌠ wσ wil∞ seσ later.
  571.  
  572.      Wheε ß M/├ prograφ i≤ loadeΣ b∙ thσ Basiπ 'loadº command¼á thσ prograφ ì
  573. entr∙ poin⌠ i≤ als∩ loadeΣ int∩ anothe≥ RA═ location¼ thσ 'machinσ languagσ ì
  574. executσ address'« Thi≤ addres≤ i≤ wherσ thσ prograφ wil∞ EXECutσ froφ usinτ ì
  575. thσ basiπ commanΣ EXEC.
  576.  
  577.      Iµá yo⌡ wan⌠ t∩ loaΣ ß specifiπ prograφ eg«á LOA─ "FILEó (basic⌐ o≥á ╥ ì
  578. "FILEóá (monitor⌐á theεá thσ filenamσ yo⌡ wan⌠ loadeΣ i≤ placeΣá iεá ßá RA═ ì
  579. locatioεá thσ 'cassettσ namσ comparσ buffer'«á Iε thσ monitor≤ thi≤á buffe≥ ì
  580. als∩á store≤ thσ star⌠ oµ RA═ addres≤ (optional⌐ tha⌠ yo⌡ wan⌠ thσá prograφ ì
  581. t∩á loaΣá into«á Memor∙ location≤ iε RA═ tha⌠ arσ importan⌠ arσá thσá 'warφ ì
  582. star⌠á jum≡ address'¼á whicΦ i≤ thσ addres≤ tha⌠ thσ compute≥ wil∞ jum≡á t∩ ì
  583. froφ AN┘ prograφ iµ RESE╘ i≤ presseΣ anΣ providinτ thσ 'initia∞ checδ byteº ì
  584. i≤á set«á  Iµ 'init«á cδ byteº i≤ no⌠ set¼á theε thσ 'Beσ wil∞ d∩á ßá 'colΣ ì
  585. startº wheε rese⌠ i≤ pressed«á è     Thσ 'init«á cδ byteº i≤ se⌠ wheε thσ 'Beσ i≤ colΣ starteΣ anΣ al∞á thσ ì
  586. basiπá defaul⌠á seting≤ havσ beeε made«á  Furthe≥ discussioεá assume≤á somσ ì
  587. knowledgσ oµ He° addresse≤ anΣ usσ oµ thσ monito≥ commands.
  588.  
  589.                              MEMOR┘ LOCATIONS
  590.                              ================
  591.  
  592. 00A0-▒   To≡ oµ memory«         initializeΣ oε 'colΣ start'(LSB,MSB)
  593. 00A▓-3   Warφ star⌠ jump«       wheε RESE╘ pressed         (LSB,MSB)
  594. 00A4-╡   Initia∞ checδ bytes«   55A┴ iµ initialized        
  595. 00A6-╖   Mach« lang« EXE├       Basiπ 'EXECº commanΣ jump  (LSB,MSB)
  596.  
  597.                            SCRATCH PAD LOCATIONS
  598.                            =====================
  599.  
  600. BASIC  EDASM-MON WB-MON  NET-MON   DISK-MON  FUNCTION
  601.  
  602. 00F1-6  0314-9   0537-C   F7CA-F   DF17-C    File name, max. 6 chrs.
  603. 00F7    031A     053D     F7D0     DF1D      File type (Bas=B, M/C=M
  604.                                                         SRC=S, WB=W)
  605. 00F8-9  031B-C   053E-F   F7D1-2   DF1E-F    File length   (LSB,MSB)
  606. 00FA-B  031D-E   0540-1   F7D3-4   DF20-1    Load address  (LSB,MSB)
  607. 00FC-D  031F-20  0542-3   F7D5-6   DF22-3    Entry point   (LSB,MSB)
  608. 00FE    0321     0544     F7D7     DF24      Baud (0=300,non 0=1200)
  609. 00FF    0322     0545     F7D8     DF25      Autostart (0=N,non 0=Y)
  610. 0100    0323     0546     F7D9     DF26      Spare    (protection ?)
  611.  
  612.  --     0300-1   0533-4   F7BC-D   DF09-A    Load pgm.from (LSB,MSB)
  613. 0562    0304-9   0547-C   F7C0-5   DF0D-12   File name to load
  614.  --     DF75     D4C5     EED6     EC42      Go address for backup
  615.  --     DE6C     D3C7     EDD5     EB45      Go addr.for offset load
  616. Topmem  03A4     07E1     003E     DED0      Top of stack
  617.  
  618.      A≤á mentioneΣá earlier¼á thσ prograφ mus⌠ bσ loadeΣ int∩á RA═á withou⌠ ì
  619. auto-starting«á  T∩á d∩á thi≤ wσ mus⌠ usσ ß monito≥ program¼á a≤á wσá can'⌠ ì
  620. inhibi⌠á thσ auto-star⌠ functioε wheε loadinτ froφ basic«á  Froφ thσá tablσ ì
  621. above¼á wσá caε seσ tha⌠ W┬ MO╬ SPA─ i≤ froφ 0533-055▒ anΣ it≤ stacδ build≤ ì
  622. dowε froφ 07E1«á Thi≤ mean≤ tha⌠ effectivel∙ wσ can'⌠ loaΣ an∙ prograφ int∩ ì
  623. RA═ belo≈ 07E2«  Thσ figure≤ fo≥ EDAS═ MO╬ arσ 0300-032│ anΣ 03A5.
  624.  
  625.      Therσá arσ way≤ arounΣ this¼á anΣ thesσ arσ mentioneΣ late≥á (3)¼á bu⌠ ì
  626. notσ thσ detail≤ fo≥ NE╘ MO╬ anΣ DIS╦ MON«á Thσ SPA─ i≤ iε thσ bacδ halµ oµ ì
  627. screeεá RA═á o≥á higΦ memory¼á anΣ i≤ aε areß seldoφá useΣá fo≥á commercia∞ ì
  628. programs«á Thσ stacδ i≤ iε aε areß oµ RA═ eithe≥ to∩ lo≈ o≥ to∩ higΦ t∩á bσ ì
  629. useΣ fo≥ loadinτ programs¼ anΣ s∩ caε no⌠ bσ overwritten.
  630.  
  631.      Iµ available¼ NE╘ MO╬ o≥ DIS╦ MO╬ arσ thσ one≤ t∩ usσ iµ program≤ loaΣ ì
  632. int∩ RA═ belo≈ 8000H¼ anΣ W┬ o≥ EDAS═ MO╬ fo≥ program≤ abovσ 07E▓ anΣ 03A5«  ì
  633. Mos⌠á experienceΣ M/├ programmer≤ havσ ß selectioε oµ tapσ loadeΣá monitor≤ ì
  634. runninτ iε differen⌠ area≤ oµ RAM¼ s∩ asδ around.
  635.  
  636.      ┴á usefu∞á hardwarσá modificatioεá i≤ t∩ connec⌠á ßá 1╦á ohφá resisto≥ ì
  637. (approx.⌐ anΣ switch¼á acros≤ thσ tapσ recorde≥ outpu⌠ socket« Thi≤ enable≤ ì
  638. yo⌡ t∩ hea≥ thσ tapσ a≤ i⌠ i≤ beinτ loaded.
  639.  
  640. (1⌐   Backu≡ unprotecteΣ program«  (als∩ fo≥ B,W,╙ filetypes)
  641.      Star⌠ loaΣ usinτ MO╬ 'Rº command¼ abor⌠ usinτ RESE╘ afte≥ filσ detail≤ ì
  642. arσ oε thσ screen«á (E)xaminσ SPA─ fo≥ loaΣ addres≤ anΣ checδ tha⌠ MO╬ SPA─ ì
  643. o≥ stacδ wil∞ no⌠ bσ overwritten« LoaΣ prograφ usinτ 'R'«  Froφ table¼ finΣ ìèappropriatσ 'g∩ addres≤ fo≥ backup'«á  Ne≈ tapσ iε recorder¼  pres≤ Record¼  ì
  644. froφ MO╬ (G)∩ t∩ address.
  645.  
  646. (2)« Falsσ Header.
  647.      Basiπá wil∞ onl∙ loaΣ (B)asiπ o≥ (M)achinσ codσ filetypes¼á wherea≤á ß ì
  648. MO╬ wil∞ loaΣ an∙ filetype«á  ┴ falsσ heade≥ i≤ sometime≤ placeΣ beforσ thσ ì
  649. norma∞ header¼ filetypσ no⌠ ┬ o≥ M¼ witΦ detail≤ designeΣ t∩ causσ thσ loaΣ ì
  650. t∩á abor⌠á witΦá ß checksuφ error«á Iµ yo⌡ pla∙ thσá tapσá witΦá aux«á pluτ ì
  651. removed¼ yo⌡ caε sometime≤ picδ thσ greate≥ (2x⌐ heade≥ length.
  652.  
  653.      Therσá arσá tw∩ way≤ t∩ overcomσ thi≤ problem«á Thσ 'quicδ anΣá dirtyº ì
  654. solutioε i≤ t∩ pres≤ 'Rº bu⌠ don'⌠ pres≤ RETUR╬ unti∞ jus⌠ afte≥ thσ heade≥ ì
  655. starts«á  Thi≤á work≤á mos⌠ times¼á bu⌠ ß bette≥ solutioε i≤ ß MO╬á iεá RA═ ì
  656. modifieΣ t∩ ignorσ al∞ filetype≤ excep⌠ 'M'«  Asδ around.
  657.  
  658. (3)« Offse⌠ loaΣ program.
  659.      Iµá yo⌡á wan⌠á t∩ backu≡ ß prograφ loadinτ belo≈ 07E2/03A╡á bu⌠á don'⌠  ì
  660. havσ NE╘ MO╬ o≥ an∙ RA═ MO╬ available¼á al∞ i≤ no⌠ lost«á  Yo⌡ caε loaΣ thσ ì
  661. prograφá int∩á RA═á abovσ 07E▓ o≥ 03A5¼á anΣ appenΣ ß modulσá t∩á movσá thσ ì
  662. prograφ t∩ it'≤ correc⌠ locatioε beforσ running«á Usσ 'R'¼á anΣ abor⌠á loaΣ ì
  663. afte≥á detail≤á oε screen«á  Takσ ß notσ oµ thσ namσ displayed«á Checδá thσ ì
  664. prograφá namσá SPA─ (╢ bytes⌐ fo≥ an∙ number≤ les≤ thaε 20╚á o≥á abovσá 7F╚ ì
  665. (contro∞ codes)« Iµ therσ arσ an∙ oµ thesσ seσ (4).
  666.  
  667.      Typσ  ╥ "FILNAMó ZZZ┌ <RETURN>¼á wherσ FILNA═ i≤ thσ prograφ namσá yo⌡ ì
  668. noteΣ froφ thσ screen¼á anΣ ZZZ┌ i≤ thσ ne≈ addres≤ fo≥ thσ prograφ t∩ loaΣ ì
  669. abovσá 07E2/03A5«á  Pla∙ tapσ anΣ loaΣ program«á (A)lte≥ memor∙ beforσá thσ ì
  670. prograφ a≤ showε below¼ t∩ adΣ thσ appropriatσ offse⌠ module« 
  671.  
  672.      Offse⌠á modulσ (a⌐ start≤ a⌠ thσ ne≈ addres≤ (ZZZZ⌐ theε transfer≤ thσ ì
  673. prograφá bytσá b∙á bytσ iε ascendinτ memor∙ order¼á startinτá a⌠á thσá loaΣ ì
  674. address«á Thi≤ modulσ caε onl∙ worδ iµ thσ loaΣ addres≤ i≤ AFTE╥ thσ enΣ oµ ì
  675. thσ prograφ a≤ loadeΣ int∩ thσ ne≈ addres≤ startinτ a⌠ ZZZZ¼ o≥ iµ thσ loaΣ ì
  676. addres≤ i≤ lowe≥ thaε thσ offse⌠ modulσ start«á Otherwisσ thσ prograφá wil∞ ì
  677. bσá overwritteε b∙ itselµ durinτ thσ move«á Offse⌠ modulσ (b⌐ start≤ a⌠ thσ ì
  678. EN─ oµ thσ prograφ a≤ loadeΣ a⌠ thσ ne≈ addres≤ ZZZZ¼á theε transfer≤á bytσ ì
  679. b∙ bytσ iε descendinτ order¼á commencinτ wherσ thσ prograφ END╙ wheε loadeΣ ì
  680. a⌠ thσ correc⌠ loaΣ address«á Thi≤ modulσ i≤ onl∙ useΣ wheε (a⌐ cannot¼á a≤ ì
  681. i⌠á involve≤á somσá calculation≤á iε HEX¼á (ver∙ eas∙ t∩á makσá aεá error)« ì
  682. Addresse≤á havσ t∩ bσ changeΣ t∩ sui⌠ thσ prograφ loaded¼á anΣ arσá iεá LS┬ ì
  683. theε MS┬ order.
  684.  
  685. (a⌐ Offse⌠ module¼ ascendinτ blocδ move.
  686. 2▒ 3┤ 1▓     1▒ 7╕ 5╢     0▒ 3┤ 1▓     E─ B░     C│ 5╢ 34
  687.    í  í         í  í         í  í        í          í  !
  688.    Ne≈          LoaΣ         Filσ     ascendinτ     Entry
  689.  addres≤       addres≤      lengtΦ    block move    point
  690.  (ZZZZ)
  691. (b)  Offset module, descending block move.
  692. 21 34 12     11 78 56     01 34 12     ED B8     C3 56 34
  693.    !  !         !  !         !  !        !          !  !
  694.    End of       End of       File     descending    Entry
  695.    program      program      length   block move    point
  696.    loaded       loaded from
  697.    from ZZZZ    Load Address
  698.  = ZZZZ         = Load addr.
  699.  + file len.    + file len.
  700.  - 1            - 1
  701. Thσ offse⌠ modulσ anΣ prograφ arσ no≈ backeΣ up.è     ─á "FILNAMó ═ XXX╪ YYY┘ XXX╪   wherσ XXX╪ i≤ thσ star⌠ addres≤ oµá thσ ì
  702. offse⌠ module¼á anΣ YYY┘ i≤ thσ enΣ oµ thσ maiε prograφ jus⌠ loadeΣ a⌠ ZZZ┌  ì
  703. (YYY┘ ╜ ZZZ┌ ½ filσ lengtΦ -1).
  704.  
  705. (4)« Offse⌠ loaΣ prograφ - Contro∞ character≤ iε name
  706.      Contro∞á character≤á arσá placeΣá iε thσ prograφ namσá a≤á ßá forφá oµ ì
  707. protection«á Thi≤á i≤ t∩ sto≡ offset-loadinτ oµ program≤ tha⌠ loaΣ ove≥ MO╬ ì
  708. SPA─á o≥á stack«á The∙á caε bσ seeε a≤ unusua∞á character≤á displayeΣá wheε ì
  709. loading¼ ß shorteneΣ filenamσ ¿ <╖ letter≤ ª space≤ beforσ filetype)¼ o≥ b∙ ì
  710. (E)xamininτá thσá SPA─ filσ namσ fo≥ value≤ <20╚ o≥ >7FH«á The∙á canno⌠á bσ ì
  711. entereΣá froφ thσ keyboard¼á anΣ thereforσ thσ namσ entereΣ wil∞ no⌠á matcΦ ì
  712. thσ prograφ filename¼ s∩ thσ prograφ wil∞ no⌠ load.
  713.  
  714.      Thσá wa∙ arounΣ thi≤ i≤ t∩ se⌠ u≡ thσ 'cassettσ namσá comparσá bufferº ì
  715. manuall∙ b∙ usinτ thσ MO╬ (A)lte≥ command¼á theε (G)∩ t∩ addres≤ fo≥ offse⌠ ì
  716. load« Thσ easies⌠ wa∙ t∩ se⌠ u≡ thσ cas.namσ c≡ bff≥ i≤ t∩ type
  717.  
  718.      ╥ "FILNAMó ZZZ┌ <RETURN>¼á wherσ FILNA═ i≤ thσ filσ t∩ loaΣ bu⌠ paddeΣ ì
  719. ou⌠á t∩ ╢ character≤ witΦ space≤ insteaΣ oµ thσ contro∞ codes¼á anΣ ZZZ┌ i≤ ì
  720. thσ offse⌠ address« Abor⌠ usinτ RESET¼ theε (A)lte≥ thσ space≤ (20H⌐ t∩ thσ ì
  721. contro∞ characters«á  (G)∩ t∩ addres≤ fo≥ offse⌠ load¼á pla∙ tapσ anΣá loaΣ ì
  722. program«  AdΣ offse⌠ modulσ anΣ backu≡ prograφ a≤ iε (3).
  723.  
  724.      Therσ arσ man∙ othe≥ method≤ oµ prograφ protection¼ bu⌠ the∙ requirσ ß ì
  725. disassemble≥ anΣ mos⌠ oµ all¼á ß gooΣ knowledgσ oµ machine-codσ programminτ ì
  726. anΣá thσá Microbee«á Thσ possibilitie≤ arσ onl∙ limiteΣ b∙ thσá programmer≤ ì
  727. imagination«á  Thσá bes⌠ i≤ thσ 'protectioε iε depthº witΦ severa∞á system≤ ì
  728. useΣ iε thσ samσ program¼ hopinτ yo⌡ wil∞ givσ u≡ beforσ success.
  729.  
  730.      Thσ 'weaδ pointº iε al∞ protectioε i≤ tha⌠ a⌠ leas⌠ thσ firs⌠ par⌠á oµ ì
  731. thσá prograφá ha≤ t∩ loaΣ usinτ thσ basiπ 'loadº anΣ therσ arσá wel∞á knowε ì
  732. way≤ arounΣ this«  Thσ followinτ arσ example≤ onl∙ anΣ specifiπ detail≤ arσ ì
  733. no⌠ mentioned.
  734.  
  735. (5)« Prograφ appendage.
  736.      Afte≥á thσá prograφ load≤ froφ basiπ i⌠ autostart≤ anΣ read≤ thσá tapσ ì
  737. AFTE╥ thσ program«á  ┴ patterε oµ bytes¼ specifiπ byte¼ o≥ thσ REA╠ prograφ ì
  738. entr∙ addres≤ i≤ reaΣ froφ thσ tape«á  Thi≤ forφ oµ protectioε caε bσ hearΣ ì
  739. b∙á 'load'inτ thσ tapσ froφ basic¼á anΣ listeninτ t∩ hea≥ iµ therσá i≤á an∙ ì
  740. prograφá afte≥ thσ loaΣ finishe≤ witΦ thσ 'beep'«á Thi≤ tapσ i≤ madσ b∙ thσ ì
  741. programme≥á usinτ ß specia∞ M/├ program¼á anΣ canno⌠ bσ duplicateΣ usinτá ß ì
  742. MON.
  743.      Thσ prograφ mus⌠ bσ disassembled¼á thσ forφ oµ protectioε workeΣá out¼ ì
  744. anΣá thσá prograφ modifieΣ beforσ backinτ u≡ (timσ consuming)«á Therσ i≤á ß ì
  745. hardwarσá forφá oµ thi≤ protectioε useΣ fo≥á disks¼á (PROLOK⌐á  wherσá eacΦ ì
  746. productioεá disδá ha≤á ß physica∞ identificatioε mark¼á whicΦá thσá prograφ ì
  747. check≤ beforσ operation.
  748.  
  749. (6)« Pre-loader
  750.      ┴á pre-loade≥ i≤ ß shor⌠ M/├ prograφ tha⌠ i≤ loadeΣá b∙á basic¼á auto-ì
  751. starts¼á theεá load≤ thσ maiε prograφ int∩ memory«á I⌠ attempt≤ t∩ overcomσ ì
  752. thσ lacδ oµ securit∙ b∙ thσ basiπ 'load'« ┴ pre-loade≥ i≤ recognizeΣ b∙ thσ ì
  753. loaΣá finisheΣá 'beepº theε somσ indicatioε tha⌠ thσá loaΣá i≤á continuing¼ ì
  754. usuall∙ ß messagσ oε thσ screen.
  755.  
  756.      Thσá pre-loade≥ usuall∙ erase≤ an∙ SPA─ contents¼á anΣ set≤ thσá 'warφ ì
  757. star⌠á jumpº t∩ thσ maiε prograφ rese⌠ addres≤ o≥ t∩ ß routinσ tha⌠á erase≤ ì
  758. thσá wholσ prograφ froφ memory«á  Anothe≥ optioε i≤ t∩ replacσ thσ 'initia∞ ì
  759. checδ bytesº witΦ 0's¼á whicΦ cause≤ thσ 'Beσ t∩ executσ ß 'colΣ startºá iµ ìèRESE╘á (o≥ RESE╘ M⌐ i≤ pressed«á Thσ maiε prograφ i≤ usuall∙ encrypted¼á t∩ ì
  760. sto≡á loadinτá b∙á mean≤ othe≥ thaεá thσá pre-loader¼á anΣá thσá pre-loade≥ ì
  761. decrypt≤á thσ prograφ whilσ loadinτ i⌠ int∩ RAM«á  Thσ prograφ entr∙á poin⌠ ì
  762. ma∙ bσ iε thσ pre-loade≥ o≥ thσ las⌠ ▓ byte≤ oε thσ encrypteΣ tape.
  763.  
  764.      Thσá pre-loade≥á ma∙á writσá o≥ changσ ß bytσ iε somσá othe≥á par⌠á oµ ì
  765. memory¼á anΣ thσ maiε prograφ check≤ thi≤ bytσ whilσ running¼ t∩ seσ iµ thσ ì
  766. origina∞ pre-loade≥ wa≤ used«á Iµ thσ bytσ i≤ no⌠ detecteΣ theε thσ prograφ ì
  767. wil∞ no⌠ run.
  768.  
  769.      Thσá pre-loade≥ mus⌠ bσ disassembled¼á thσ forφ oµá protectioεá workeΣ ì
  770. out¼ anΣ thσ prograφ modifieΣ beforσ backinτ u≡ (timσ consuming)«  Thσ pre-ì
  771. loade≥á ha≤á thσ mos⌠ protectioε option≤ available¼á bu⌠ thσ timσ takeεá t∩ ì
  772. creatσá i⌠ ma∙ riva∞ tha⌠ fo≥ thσ maiε program«á  Thσ weaknes≤ iε thσá pre-ì
  773. loade≥ i≤ tha⌠ i⌠ mus⌠ bσ loadeΣ b∙ basic.
  774.  
  775.      S∩á back-u≡ you≥ owε programs¼á bu⌠ pleasσ don'⌠ pas≤ thσá unprotecteΣ ì
  776. program≤ around¼ o≥ wσ ma∙ no⌠ ge⌠ an∙ more«       HINZ
  777.  
  778.                                  VIDEO.MWB 
  779.      continued from page 4
  780. 00105 INVERT X,Y:IF J<>-1 THEN INVERT(J,O) [083]
  781. 00110 A1$=KEY$:IF A1$="" THEN 100 [018]
  782. 00115 IF C=1 THEN SET X,Y ELSE RESET X,Y [088]
  783. 00120 IF A1$="W"THEN LET Y=Y+1 [239]
  784. 00125 IF USED>126 THEN 200 [240]
  785. 00130 IF A1$="Z" THEN LET Y=Y-1 [245]
  786. 00135 IF A1$="F" THEN LET C=2:PLAY 15 [033]
  787. 00140 IF A1$="A" THEN LET X=X-1 [219]
  788. 00145 IF A1$="O" THEN LET C=1:PLAY 1 [245]
  789. 00147 IF A1$="T" THEN GOSUB 1550 [016]
  790. 00150 IF A1$="S" THEN LET X=X+1 [236]
  791. 00151 IF A1$=CHR$(127) THEN RUN [009]
  792. 00152 IF A1$="D" THEN GOSUB 1500 [247]
  793. 00155 GOTO 1000 [149]
  794. 00160 IF A1$="K"THEN 170 ELSE GOTO 100 [066]
  795. 00170 A1$=KEY$:IF A1$="" THEN 170 [031]
  796. 00180 IF A1$<>"Y" THEN GOTO 115 [212]
  797. 00200 CLOSE 6:OPEN "O",6,D1$:GRSAVE 6:CLOSE 6 [130]
  798. 00210 RUN [136]
  799. 01000 IF C1$="H" THEN 1010 [162]
  800. 01004 IF X>127 THEN LET X=127 [199]
  801. 01006 IF Y>47 THEN LET Y=47 [109]
  802. 01010 IF X>511 THEN LET X=511 [190]
  803. 01015 IF Y>255 THEN LET Y=255 [207]
  804. 01020 IF X<0 THEN LET X=0 [239]
  805. 01030 IF Y<0 THEN LET Y=0 [242]
  806. 01040 GOTO 160 [149]
  807. 01500 IF K=2 THEN PLOT J,O TO X,Y:J=-1:K=1:O=0:PLAY 7 ELSE LETJ=X:
  808.       O=Y:K=2:PLAY 1,4 [114]
  809. 01520 RETURN [168]
  810. 01550 IF PEEK(229)=4 THEN LET A=INT(FLT(X)/8)+1:B=INT(17-(FLT(Y)/16))[255]
  811. 01560 IF PEEK(229)=8 THEN LET A=INT(FLT(X)/2)+1:B=INT(17-(FLT(Y)/3)) [202]
  812. 01570 POKE 220,111:CURS A+1,B:INPUT ""Z1$:POKE 220,220:RETURN [101]
  813. 04000 LET A1$=D1$ [021]
  814. 04005 CLOSE 6 [117]
  815. 04007 ON ERROR GOTO 4020 [241]
  816. 04010 OPEN "I",6,A1$:CLS:GRLOAD 6:CLOSE 6:GOTO 100 [215]
  817. 04020 PRINT "NEW FILE":PLAY 0,6:CLS:GOTO 90 [155]  áHINZè                                 MUSIC.MWB
  818.      There are two parts of this listing. One each for tape and disk.
  819. 00100 REM Written in Microworld Basic Ver 6.22e for Microbee. [145]
  820. 00110 CLS:CURS 20:INVERSE:PRINT" M U S I C   M A K E R ":NORMAL [162]
  821. 00120 PRINT \ "By Lang Stuiver. 4th Feb 84" [230]
  822. 00130 PLAY 0,15:CURS 1,3:PRINT [A40 32]:CURS 1,3 [035]
  823. 00140 PRINT"INSTRUCTIONS ?  "; [149]
  824. 00150 A1$=KEY$:IF A1$="Y" OR A1$="y" THEN GOSUB 450 ELSE IF
  825.       A1$="" THEN 150 [156]
  826. 00160 CLEAR:DIM Q(200),Z(200):B=5:I=0 [141]
  827. 00170 CURS 6,B:PRINT [A11 32]:CURS 1,B:INPUT "NOTE="D1$ [048]
  828. 00180 W=ASC(D1$(;1,1)) [008]
  829. 00190 IF D1$="DELETE" OR D1$="delete" THEN GOSUB 520:GOTO 170 [181]
  830. 00200 IF W>64 AND W<72 THEN 240 [180]
  831. 00210 IF D1$="" AND I<>0 THEN GOTO 390 [006]
  832. 00220 IF D1$="0"THEN 240 [050]
  833. 00230 IF W<97 OR W>103 THEN 170 [184]
  834. 00240 CURS 27,B:PRINT [A8 32]:CURS 20,B:INPUT "LENGTH=";L1$ [055]
  835. 00250 L=INT(VAL(L1$)) [049]
  836. 00260 IF L<1 OR L>30 THEN 240 [051]
  837. 00270 IF B<15 THEN LET B=B+1 ELSE PRINT [243]
  838. 00280 IF D1$="0"THEN LET W=0:GOTO 370 [088]
  839. 00290 IF W>64 AND W<72 THEN LET U=1:GOTO 310 [214]
  840. 00300 W=W-96:GOTO 320 [034]
  841. 00310 W=W-57 [024]
  842. 00320 RESTORE [185]
  843. 00330 FOR X=1 TO 10:READ A:IF W>A THEN LET W=W+1 [216]
  844. 00340 NEXT X [046]
  845. 00350 DATA 1,4,6,9,11,13,16,18,21,23 [112]
  846. 00360 IF D1$(;2,2)="#" THEN LET W=W+1 [220]
  847. 00370 I=I+1 [197]
  848. 00380 Q(I)=W:Z(I)=L:PLAY W,L:GOTO 170 [027]
  849. 00390 FOR K=1 TO I:PLAY Q(K),Z(K):NEXT K [107]
  850. 00400 PRINT TAB(1):INPUT"DO YOU WANT TO <1> PLAY AGAIN  <2> CONTINUE
  851.       WRITIN╟  O╥         <3╛ STAR╘ ┴ NE╫ TUN┼  <4╛ SAV┼ TUN┼  <5╛ LOA─ ┴ ì
  852.       TUN┼ (1/2/3/4/5)?";E [222]
  853. 00420 PRINT CHR$(15);CHR$(15);CHR$(15);[A165 32];CHR$(15);CHR$(15);
  854.       CHR$(15);CHR$(15) [194]
  855. 00430 IF B>14 THEN LET B=11 [000]
  856. 00440 ON E GOTO 390,170,110,600,650 [090]
  857. 00445 GOTO 390 [114]
  858. 0045░ CUR╙ 1,3:PRINT"Thi≤ i≤ ß prograφ fo≥ peoplσ t∩ writσ music«  I⌠ ì
  859.       firstl∙ ask≤   yo⌡ wha⌠ notσ yo⌡ wan⌠ (NOTE=⌐ theε yo⌡ caε repl∙
  860.       witΦ eitheró [012]
  861. 00460 PRINT"a letter from a-g in lower OR upper case. The lower case `a'
  862.       is the lowest note while the upper case G# is the highest." [254]
  863. 00470 PRINT"You can have an optional sharp(#) after the note. If you 
  864.       hit just return on it's own then your tune will be played. 
  865.       You can also type 'DELETE' (upper or lower case)"; [065]
  866. 00480 PRINT " and this allows you to retype the last note. If you
  867.       type 0 then the note played will be a pause." [235]
  868. 00490 PRINT"You will next be asked the length of the note (LENGTH=).
  869.       You   can reply with a number from 1 to 30 (1 being shortest and
  870.       30 being longest)." [242]
  871. 00500 PRINT "       HIT ANY KEY TO CONTINUE" [036]
  872. 00510 A1$=KEY$:IF A1$="" THEN 510 ELSE CLS:RETURN [064]
  873. 00520 IF I<1 THEN CURS 6,B:PRINT "ALL DELETED":PLAY 0,4:RETURN [225]
  874. 00530 I=I-1:CURS 1,B:PRINT [A30 32]:IF B>1 THEN LET B=B-1 [016]
  875. 00540 CURS 27,B:PRINT "  ":RETURN [210]è               This part of MUSIC.MWB is for a disk system:
  876.  
  877. 00599 REM This is for a disk system [167]
  878. 00600 CLS:INPUT "NAME OF COMPOSITION:",A1$ [140]
  879. 00605 CLOSE 6:PRINT "SAVING" [026]
  880. 00610 OPEN "O",6,A1$+".MUS" [018]
  881. 00615 OUT#6:PRINT I:FORK=1 TO I:PRINT Q(K)\Z(K):NEXT K:OUT#0:CLOSE 6 [248]
  882. 00620 PRINT "FINISHED":RUN [226]
  883. 00650 CLS:INPUT "NAME OF COMPOSITION:",A1$ [145]
  884. 00655 CLOSE 6:PRINT "LOADING" [085]
  885. 00660 IN#6 ON:OUT#0:OUT#0 OFF [014]
  886. 00665 I=0:ON ERROR GOTO 700 [136]
  887. 00667 OPEN "I",6,A1$+".MUS" [024]
  888. 00668 INPUT A [117]
  889. 00680 I=I+1:INPUT Q(I),Z(I) [158]
  890. 00690 GOTO 680 [118]
  891. 00700 IN#0:OUT#0:CLOSE 6:IF ERRORC=45 THEN PRINT "NOT FOUND":
  892.       PLAY 0:RUN [100]
  893. 00710 I=I-1:CLS:E=1:GOTO 440 [217]
  894.  
  895.                This part of MUSIC.MWB is for a tape system:
  896.  
  897. 00599 REM This is for tape systems [167]
  898. 00600 CLS:INPUT "NAME OF COMPOSITION:",A1$ [140]
  899. 00605 PRINT "SAVING" [052]
  900. 00610 OUT#2:PRINTA1$ [065]
  901. 00615 FORK=1 TO I:PRINT Q(K)\Z(K):NEXT K:PRINT INT(0)\INT(0):OUT#0 [114]
  902. 00620 PRINT "FINISHED":PLAY 0,10:RUN [015]
  903. 00650 CLS:INPUT "HIT RETURN TO LOAD:",A1$ [015]
  904. 00660 PRINT"SEARCHING":IN#2:OUT#0:OUT#0 OFF [012]
  905. 00665 I=0:INPUT A0$ [182]
  906. 00669 OUT#0:PRINT \"LOADING "A0$:OUT#0 OFF [074]
  907. 00680 I=I+1:INPUT Q(I),Z(I) [158]
  908. 00685 IF Z(I)=0 THEN GOTO 700 [146]
  909. 00690 GOTO 680 [118]
  910. 00700 IN#0:OUT#0 [006]
  911. 00710 I=I-1:CLS:E=1:GOTO 440 [217]
  912.  
  913. 
  914. Thσ followinτ i≤ calleΣ FILE.MU╙ anΣ i≤ ß modifieΣ listinτ oµ ß saveΣ file« ì
  915. T∩ usσ thi≤ lis⌠ yo⌡ mus⌠ ente≥ thσ followinτ iε WordSta≥ » Wordbeσ iεá thσ ì
  916. following manner. 
  917. 1)«á  Iµ usinτ WordSta≥ usσ non-documen⌠ modσ anΣ ente≥ thσ number≤ onσ (1⌐ ì
  918.       per line.
  919. 2).  If using Wordbee do as above and when finished SCRUB and REN FILENAME.
  920.      Under CP/M  A>SCRUB FILE.WBF then REN FILE.MUS=FILE.WBF <CR>
  921. 
  922.  81 9 1 10 1 8 1 16 2 8 1 16 2 8 1 16 5 16 1 18 1 19 1 20 1 16 1 18 1
  923.  20 2 15 1 18 2 16 4 0 2 6 1 7 1 8 1 16 2 8 1 16 2 8 1 16 4 0 2 13 1
  924.  11 1 10 1 13 1 16 2 20 1 18 1 16 1 13 1 18 4 0 2 6 1 7 1 8 1 16 2 8
  925.  1 16 2 8 1 16 5 16 1 18 1 19 1 20 1 16 1 18 1 20 2 15 1 18 2 16 4 0
  926.  2 16 1 18 1 20 1 16 1 18 1 20 2 16 1 18 1 16 1 20 1 16 1 18 1 20 2
  927.  16 1 18 1 16 1 20 1 16 1 18 1 20 2 15 1 18 2 16 4
  928.  
  929.   FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--
  930.  
  931.      SKETCH PAD with manual on casstette $8.50 Call Peter on 434-5583
  932.  
  933.   FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--FOR-SALE--$$--èRCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM
  934.  
  935.      Unfortunatel∙ thσ bulletiε boarΣ ha≤ beeε dowε fo≥ thσ pas⌠ fe≈ weeks¼ ì
  936. bu⌠ fortunatel∙ i⌠ i≤ no≈ goinτ again«á Thσ reasoε fo≥ thσ interruptioεá t∩ ì
  937. norma∞ operation≤ i≤ tha⌠ thσ harΣ disδ controlle≥ ha≤ beeε replaceΣ witΦ ß ì
  938. ne≈á onσ tha⌠ allow≤ u≤ t∩ ge⌠ ß furthe≥ 2.╡ Meτ oε thσ disδ (abou⌠ 600δ oε ì
  939. eacΦ logica∞ drive)« Thi≤ changeove≥ shoulΣ onl∙ havσ takeε abou⌠ tw∩ days¼ ì
  940. bu⌠ duσ t∩ ß faul⌠ iε thσ ne≈ controlle≥ i⌠ ha≤ takeε considerabl∙á longer« ì
  941. Fo≥ thosσ interesteΣ iε ho≈ lonτ i⌠ take≤ t∩ bacδ ß harΣ disk¼ i⌠ tooδ ove≥ ì
  942. ┤ hour≤ t∩ cop∙ al∞ thσ file≤ ont∩ 5ó disk≤ witΦ verification«á Iµ thσ disδ ì
  943. wa≤ ful∞ thσ backu≡ woulΣ havσ takeε abou⌠ 1░ hours!
  944.      Beforσá wσ changeΣ disδ controller≤ wσ haΣ ß ver∙ nast∙ disδ crasΦ anΣ ì
  945. 6δ oµ thσ director∙ wa≤ destroyeΣ (actuall∙ thσ crasΦ onl∙ causeΣ ß los≤ oµ ì
  946. 4δ anΣ ß buτ iε DU▓ causeΣ thσ othe≥ 2δ t∩ bσ lost)«á Thi≤ mean≤ tha⌠ abou⌠ ì
  947. 10░ file≤ werσ lost¼ s∩ iµ yo⌡ noticσ tha⌠ ß filσ yo⌡ uploadeΣ i≤ n∩ longe≥ ì
  948. oε thσ systeφ pleasσ fee∞ freσ t∩ uploaΣ i⌠ again.
  949.      Sincσá wσ havσ stoppeΣ batcΦ modσ filσ transfers¼á thσ numbe≥ oµ call≤ ì
  950. pe≥ da∙ ha≤ riseε froφ abou⌠ 1░ t∩ 17« Wheε thσ timσ limi⌠ i≤ introduceΣ wσ ì
  951. hopσá thi≤ figurσ t∩ rise«á Sincσ thσ introductioε oµ 1200/7╡ bauΣá caller≤ ì
  952. havσá beeεá gettinτ ofµ thσ systeφ sooner¼á s∩ al∞ yo⌡á peoplσá complaininτ ì
  953. about not being able to get on the system should have fewer problems now.
  954.      ╔ havσ noticeΣ ß fe≈ problem≤ witΦ peoplσ tryinτ t∩ loτ oε a⌠á 1200/7╡ ì
  955. (╔ havσ experienceΣ thσ probleφ ß couplσ oµ time≤ myself)« Iµ yo⌡ loτ oε a⌠ ì
  956. 120░ anΣ yo⌡ ge⌠ lot≤ anΣ lot≤ oµ garbagσ cominτ u≡ oε thσ screeε theε jus⌠ ì
  957. bσá patien⌠á anΣ kee≡ hittinτ RETUR╬ ever∙ │ o≥ ┤ seconds«á Iµá thi≤á fail≤ ì
  958. after about 25 to 30 seconds then just hang up and redial.
  959.      ┴á lo⌠á oµá peoplσá havσ beeε complaininτ abou⌠á spendinτá 2╡á minute≤ ì
  960. downloadinτ ß filσ onl∙ t∩ finΣ tha⌠ i≤ doesn'⌠ work«á So¼á wσ havσ decideΣ ì
  961. removσá al∞ downloadablσ file≤ froφ thσ system¼á sor⌠ ou⌠ whicΦ one≤á don'⌠ ì
  962. worδ theε deletσ theφ forever«á Don'⌠ bσ surpriseΣ tha⌠ therσ wil∞ ver∙ fe≈ ì
  963. files on the system when you next log on.
  964.                                                    Richard, Mike & Grant.
  965.  
  966. RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM
  967.  
  968.        How to convert Pak5 ROM into Pak5 RAM in a series 3 Microbee
  969.  
  970. NEEDED:  1 only  6264 Static Ram
  971. 1⌐   Slightl∙ benΣ pin≤ 20,22,27,2╕ outward≤ s∩ the∙ si⌠ nex⌠ t∩ thσ socke⌠ ì
  972.      which is used as Pak5.
  973. 2)   Insert ram chip in socket.
  974. 3)   Follow the schematic to complete wiring.
  975. Note║ Thσ inverto≥ showε i≤ ß sparσ onσ Availablσ iε IC3│ oε thσ Coreboard.
  976.                        _____________________________
  977.                       |       8k x 8 RAM CHIP       |
  978.                       |20    22           26  27  28|
  979.                        -----------------------------  
  980.                       cs     oe          cs   we   vcc
  981. Pin 9 of IC29 ________|      |           |    |     |____To pin 24 of any 
  982. This is C000                 |           |    |          battery backup 
  983. select                       |           |    |          2k RAM (ensure 
  984.                              |           |    |          battery backup)
  985. To RD Pin 9 IC34 ____________|           |    |     
  986.                                          |    |_____To XWR (Pin 1-IC21)
  987. * Spare gate from IC33. Needed to        |  *
  988. invert signal from Pin 10 as Pin 26      |--<|--To Pin 10 IC31
  989. from RAM is CS active high.        
  990. Note║á  Iµ yo⌡ executσ ß PAK╡ yo⌡ wil∞ ge⌠ ß NO╘ FITTE─ ERROR«á Don'⌠ worr∙ ì
  991. your RAM is selected but the lack of C3 at C000h causes the message.è                                 TIMER.BAS
  992. 1 REM BASICODE 2 ROUTINES BY HENK WEVERS. FURTHER INFORMATION ABOUT BASICODE
  993. 3 REM NOS, HOBBYSCOOP HILVERSUM. TRANSLATED FROM DUTCH BY:
  994. 5 REM Joe Schramp,
  995. 6 REM for use by UBUG Australia.
  996. 9 PRINT CHR$(26);:WIDTH(255)
  997. 10 GOTO 1000
  998. 20 GOTO 1010
  999. 100 PRINT CHR$(26);:RETURN
  1000. 110 REM
  1001. 111 IF HO>51 THEN HO=51
  1002. 112 IF VE>23 THEN VE=23
  1003. 113 PRINT CHR$(27);"=";CHR$(VE+32);CHR$(HO+32);
  1004. 115 RETURN
  1005. 120 HO=PEEK(&HEF5A):VE=PEEK(&HEF5B)-&HF0
  1006. 121 VE=VE*2
  1007. 122 IF HO>127 THEN HO=HO-128:VE=VE+1
  1008. 123 VE=VE-PEEK(&HEF62):IF VE<0 THEN VE=32+VE
  1009. 124 RETURN
  1010. 200 IN$=INKEY$:RETURN
  1011. 210 GOSUB 200:IF IN$="" THEN 210
  1012. 211 RETURN
  1013. 250 PRINT CHR$(7);:RETURN
  1014. 260 RV=RND(1):RETURN
  1015. 270 FR=FRE(2):RETURN
  1016. 300 SR$=STR$(SR)
  1017. 301 Q7=LEN(SR$):IF Q7=0 THEN RETURN
  1018. 302 IF RIGHT$(SR$,1)<>" " THEN 304
  1019. 303 SR$=LEFT$(SR$,Q7-1):GOTO 301
  1020. 304 IF LEFT$(SR$,1)<>" " THEN RETURN
  1021. 305 SR$=RIGHT$(SR$,Q7-1):GOTO 301
  1022. 310 Q4=SR:IF CN<>0 THEN 316
  1023. 312 SR=INT(SR+.5):GOSUB 300:GOTO 330
  1024. 316 Q5=SGN(SR):SR=ABS(SR):Q8=INT(SR):Q9=SR-Q8
  1025. 318 FOR Q6=1 TO CN:Q9=Q9*10:NEXT Q6
  1026. 320 Q9=INT(Q9+.5):SR=Q9:GOSUB 300
  1027. 322 Q9$=RIGHT$("00000000000000000000"+SR$,CN)
  1028. 324 IF Q8=0 AND Q9=0 THEN Q5=1
  1029. 326 SR=Q8:GOSUB 300:IF Q5=-1 THEN SR$="-"+SR$
  1030. 328 SR$=SR$+"."+Q9$
  1031. 330 IF LEN(SR$)<=CT THEN 334
  1032. 332 SR$=LEFT$("********************",CT):GOTO 340
  1033. 334 SR$=RIGHT$("                    "+SR$,CT)
  1034. 340 SR=Q4:RETURN
  1035. 350 L PRINT SR$;:RETURN
  1036. 360 L PRINT:RETURN
  1037. 1000 A=500:GOTO 20
  1038. 1010 GOTO 6000
  1039. 1020 GOSUB 100:GOSUB 5000
  1040. 1030 PRINT "         Astable multivibrator":PRINT
  1041. 1040 GOSUB 3000:PRINT:PRINT:GOSUB 4000
  1042. 1170 GOSUB 100:GOSUB 5000
  1043. 1180 PRINT "  Give the required duty-cycle from the"
  1044. 1190 PRINT  "  Output at point 3.  this"
  1045. 1200 PRINT "  must be between  50% en 100%."
  1046. 1210 HO=3:VE=9:GOSUB 110
  1047. 1220 PRINT "Duty-cycle in %         ";
  1048. 1240 INPUT D
  1049. 1250 IF D>0 THEN 1280è1260 PRINT "* Duty-cycle is not allowed to be negative! *";
  1050. 1270 GOTO 1210
  1051. 1280 IF D>50 THEN 1310
  1052. 1290 PRINT "* pick a duty-cycle larger than 50% ! * ";
  1053. 1300 GOTO 1210
  1054. 1310 IF D<100 THEN 1340
  1055. 1320 PRINT "* Make duty-cycle smaller than 100% ! * "
  1056. 1330 GOTO 1210
  1057. 1340 D=D/100
  1058. 1350 HO=1:VE=10:GOSUB 110
  1059. 1360 FOR I=0 TO 1
  1060. 1370 PRINT "                                      "
  1061. 1380 NEXT
  1062. 1390 PRINT "  Give now the required output-       "
  1063. 1400 PRINT "  frequency. This has to be between"
  1064. 1410 PRINT "  0.1 Hz en 100 kHz."
  1065. 1420 HO=3:VE=16:GOSUB 110
  1066. 1430 PRINT "Output Frequency in Hz ";
  1067. 1450 INPUT F
  1068. 1460 IF F>.1 THEN 1520
  1069. 1470 PRINT "* pick frequency higher than 0.1 Hz  * "
  1070. 1480 GOTO 1420
  1071. 1490 PRINT "* pick frequency lower than 100 Khz  *"
  1072. 1500 GOTO 1420
  1073. 1510 GOTO 1350
  1074. 1520 IF F<10 THEN C=.00001:GOTO 1560
  1075. 1530 IF F<1000 THEN C=.000001:GOTO 1560
  1076. 1540 IF F<100000! THEN C=1E-08:GOTO 1560
  1077. 1550 GOTO 1490:REM frequency TO HIGH
  1078. 1560 PRINT "                                       "
  1079. 1570 FOR I=0 TO 8:PRINT "  Ok";:NEXT
  1080. 1580 K1=LOG(2):K2=1/(K1*F*C)
  1081. 1590 RB=K2*(1-D)
  1082. 1600 RA=K2-2*RB
  1083. 1610 R=RB:GOSUB 2000:RB=R1
  1084. 1620 R=RA:GOSUB 2000:RA=R1
  1085. 1630 GOSUB 100:GOSUB 5000:GOSUB 3000
  1086. 1640 K$=""
  1087. 1650 IF RA>10000 THEN R1=RA/1000:K$="kilo-"
  1088. 1660 PRINT "R1=";R1;K$;"ohm"
  1089. 1670 K$="":R2=RB
  1090. 1680 IF RB>10000 THEN R2=RB/1000:K$="kilo-"
  1091. 1690 PRINT "R2=";R2;K$;"ohm"
  1092. 1700 PRINT " C=";C*1E+06;"microfarad"
  1093. 1710 PRINT "frequency=";1/(K1*(RA+2*RB)*C);"Hz"
  1094. 1720 PRINT "Duty cycle=";100*(RA+RB)/(RA+2*RB);"%";
  1095. 1730 GOSUB 4000
  1096. 1740 GOSUB 100:GOSUB 5000
  1097. 1750 PRINT "This was an  P2000 BASICODE program,"
  1098. 1755 PRINT "Translated from Dutch by Joe Schramp,"
  1099. 1756 PRINT "For MBUG AUSTRALIA INC."
  1100. 1760 END
  1101. 1770 :
  1102. 2000 F=0:REM  NOT OUTSIDE REACH
  1103. 2010 K=0:REM  EXPONENT COUNTER
  1104. 2020 IF R<.1 THEN F=1:REM  TO SMALL
  1105. 2030 IF R>1E+07 THEN F=1:REM  TO BIG
  1106. 2040 R1=R
  1107. 2050 REM  LOOK FOR VALUE IN TABLEè2060 IF R1<=1 THEN 2100
  1108. 2070 R1=R1/10:REM  SHIFT COMMA
  1109. 2080 K=K+1:REM  COUNT DISPLACEMENT
  1110. 2090 GOTO 2060:REM  STILL WITHIN REACH ?
  1111. 2100 B=1:REM  POINTER TO ARRAY-START
  1112. 2110 E=25:REM  POINTER TO ARRAY-END
  1113. 2120 M=INT((B+E)/2):REM  POINTER IN THE MIDDLE OF THE USEFULL AREA
  1114. 2130 IF M=B THEN 2170
  1115. 2140 IF R1=A(M) THEN 2200
  1116. 2150 IF R1<A(M) THEN E=M:GOTO 2120
  1117. 2160 IF R1>A(M) THEN B=M:GOTO 2120
  1118. 2170 IF (R1-A(B))<(A(E)-R1) THEN R1=A(B):GOTO 2190
  1119. 2180 R1=A(E)
  1120. 2190 REM  TAKE CLOSE BY
  1121. 2200 R1=R1*10^K
  1122. 2210 IF R1>10 THEN R1=INT(R1+.5)
  1123. 2220 RETURN
  1124. 2230 :
  1125. 3000 PRINT "           +-----------------+"
  1126. 3010 PRINT "           !                 !"
  1127. 3020 PRINT " +5V-+-----8                 3---OUTPUT"
  1128. 3030 PRINT "     !     !       555       !"
  1129. 3040 PRINT "     +-----4                 1---+--GND"
  1130. 3050 PRINT "     !     !                 !   !"
  1131. 3060 PRINT "     !     +--7--------6--2--+   !"
  1132. 3070 PRINT "     !        !        !  !      !"
  1133. 3080 PRINT "     ! +----+ ! +----+ !  !  !!C !"
  1134. 3090 PRINT "     +-! R1 !-+-! R2 !-+--+--!!--+"
  1135. 3100 PRINT "       +----+   +----+       !!"
  1136. 3110 RETURN
  1137. 3120 :
  1138. 4000 HO=15:VE=23:GOSUB 110:PRINT "\ENTER\...";:GOSUB 210
  1139. 4010 RETURN
  1140. 4020 :
  1141. 5000 PRINT:PRINT:PRINT:PRINT:RETURN
  1142. 6000 DIM A(25)
  1143. 6010 FOR I=1 TO 25
  1144. 6020 READ A(I)
  1145. 6030 NEXT I
  1146. 6040 GOSUB 100:GOSUB 5000
  1147. 6050 PRINT " - - -  DE ELECTRONICA DESIGNER  - - -"
  1148. 6060 PRINT
  1149. 6070 PRINT "   ****    ***    ***    ***    ***"
  1150. 6080 PRINT "   *   *  *   *  *   *  *   *  *   *"
  1151. 6090 PRINT "   *   *     *   *   *  *   *  *   *"
  1152. 6100 PRINT "   ****     *    *   *  *   *  *   *"
  1153. 6110 PRINT "   *       *     *   *  *   *  *   *"
  1154. 6120 PRINT "   *      *      *   *  *   *  *   *"
  1155. 6130 PRINT "   *      *****   ***    ***    ***"
  1156. 6140 PRINT
  1157. 6150 PRINT "Astable multivibrator with the NE-555."
  1158. 6160 PRINT:PRINT "This program calculates the resistances"
  1159. 6170 PRINT:PRINT "and the capacitor values in the following scheme"
  1160. 6180 GOSUB 4000:GOTO 1020
  1161. 6190 :
  1162. 30000 REM  STANDARD VALUES
  1163. 30010 DATA .1,.11,.12,.13,.15,.16,.18,.2
  1164. 30020 DATA .22,.24,.27,.3,.33,.36,.39,.43
  1165. 30030 DATA .47,.51,.56,.62,.68,.75,.82,.91,1è                     MBUG_AUSTRALIA_INC._TAPE_LIBRARY
  1166.                P.O. BOX 75, AVONDALE HEIGHTS 3034 Victoria.
  1167.  
  1168. ADVENTURE_GAMES        GENERAL_PROGRAMS        GENERAL_GAMES            
  1169.                                                                         
  1170. ADVENTURE LAND           AUST **                 AROUND/DOUBLE TRIANGLE 
  1171. BLACK FRIDAY *           BIORHYTHMS etc          ASTEROIDS *            
  1172. COLDITZ                  CHATTERBOX              BACGAMMON *            
  1173. FRANKENSTIEN             CHPLUS                  BRICKS **              
  1174. KIN                      COMPAT **               CAMEL                  
  1175. KUNG FU                  COMPOSER BEE *          CHASE/WUMPUS1          
  1176. MATHS ADVENTURE          DECISION MAKER *        CHESS                  
  1177. MISSION IMPOSSIBLE       DOMESTIC ACCOUNTS *     CHOPPER *              
  1178. PIRATE                   EDUPACK1                CONCENTRATION           
  1179. SCHMOO CITY *            EDUPACK2                COSMIC JS               
  1180. SURVIVE                  LCG/3D-PLOT *           DEFENDER *              
  1181. THUNDER ROAD             LEAGUE LADDERS *        DRAUGHTS                
  1182. WUMPUS2                  LOGO *                  EMU JOUST *             
  1183.                          LUCKY DIP               GALAXY JS               
  1184. UTILITY_PROGRAMS         MAD LIB                 GHOST MUNCHER *         
  1185.                          MATHS RACE              GOBBLE/ASTRO *             
  1186. DEBUGGER 16/32k *        MINDREADER *            GOLF **                 
  1187. DISEMBLER 16/32k         MONKEY MATHS            HURKLE/CRICKET          
  1188. ESKEY 16/32k             MULTI GRAPHER*          INVADERS JS             
  1189. HEXDUMP * (inc source)   PCG GENERATOR *         KILOPEDE *              
  1190. LOADER v1.1/v1.3         PCG TUTOR               KING KONG *             
  1191. MEMORY DISPLAY 16/32k    PILOT                   LOGIC DICE *            
  1192. SOURCE GENERATOR 16/32   PSYCHO **               METEOR RESCUE *         
  1193. TRS-BEE/TAPE DOCTOR *    RECORDS PROGRAM *       MISSILE JS              
  1194.                          SPELLBOUND *            ROBOTMAN JS            
  1195.                          TYPING/SOLITAIRE        SKI SLALOM *           
  1196.                                                  SQUARES/TRIANGLES      
  1197.                                                  SUBTERRA               
  1198. ** New programs this month (max 2 per member)    TANKS                  
  1199. *  New programs this year                        TARGET                 
  1200.                                                  TERMITE                
  1201.                                                  TIC-TAC-TOE/FOUR       
  1202.                                                  UFO ATTACK             
  1203.                                                  ZTREK                  
  1204. LIBRARY RULES
  1205. 1.  Library members must be financial members of MBUG AUSTRALIA INC.
  1206. 2.  Membership of the tape library is $10. ($5 is held as security deposit)
  1207. 3.  Loans are made for a maximum period of 1 calendar month.
  1208. 4.  A maximum of 5 tapes per member per month can be lent.
  1209. 5.  Hiring fee is $2 per tape per month.
  1210. 6.  Loans can be arranged by mail through the above address.
  1211. 7«á Postagσá withiεá Australißá i≤ $▒ fo≥ ▒ o≥ ▓ tape≤ ª $1-5░ fo≥ │á t∩á ╡ ì
  1212.     tapes.
  1213. 8.  Tapes may  reserved.
  1214. 9.  Reservations will only be held until the next 2nd Wednesday meeting.
  1215.  
  1216. HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??
  1217.  
  1218. Q║á Ha≤ anyonσ fixeΣ thσ prograφ iε Wildcard≤ Vo∞ │ Pagσ 4▒ calleΣá CHANGE┐ ì
  1219. Everythinτá work≤ wel∞ unti∞ thσ prograφ bomb≤ ou⌠ oε thσ 15tΦá entry«á Al∞ ì
  1220. DIMention≤á seeφá t∩á bσ arrayeΣ properl∙ anΣ therσ i≤ n∩ mistake≤á iεá thσ ì
  1221. listing.                      P. FORD. "THE LOCAL COMPUTER SHOP" 572-2156
  1222.  
  1223. HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??è   BAZAAR*SALES**BAZAAR*SALES**BAZAAR*SALES**BAZAAR*SALES**BAZAAR*SALES
  1224.  
  1225.       CODE  DESCRIPTION                         PRICE
  1226.  
  1227.                   "The Catcher"
  1228.       BC02  Volume 2 (Oct.83-Sept.84)           $15.00
  1229.       BC03  Volume 3 (Oct.84-Sept.85)           $15.00
  1230.       TC01  Back Issues (single)                $ 1.50
  1231.       TC02  Back Issues (Vol 2 Nos. 6/7)        $ 3.00
  1232.  
  1233.       CS30  Blank C-30 Cassettes                $ 1.50
  1234.       CB30  Blank C-30 Cassettes (20 per box)   $25.00
  1235.       DSS5  Blank 5.25" Disks (Xidex DSDD)      $ 4.00
  1236.       DSB5  Blank 5.25" Disks (10 per box)      $35.00
  1237.       SSD5  Blank 5.25" Disks (SSDD)            $ 2.00
  1238.       SS35  Blank 3.5" Disks (FUJI SSDD)        $ 6.00
  1239.       SB35  Blank 3.5" Disks (10 per box)       $55.00
  1240.       DB35  Disk Storage Box 3.5" (holds 35)    $26.00
  1241.       DB70  Disk Storage Box 5" (holds 70)      $18.00
  1242.       DB10  Disk Library Box 5" (holds 10)      $ 3.00
  1243.  
  1244.       WC04  WILDCARDS 4                         $13.00
  1245.       BB01  Basic for Beginners (D. Kenney)     $15.00
  1246.       DC01  Dust Covers for 'BEE                $ 6.00
  1247.       MB01  Magazine Binders (for Online etc.)  $ 7.00
  1248.       PR80  Carbon Printer Ribbon
  1249.                  (suit xyz.80/100 printers)     $ 9.00
  1250.     **PP05  500 sheets cont. printer paper
  1251.                  (240mm wide (2.5Kg))           $10.00
  1252.       
  1253.         ** not normally available for postal purchase 
  1254.     All postal orders to be sent to: MBUG AUSTRALIA SALES
  1255.                                      P.O.BOX 253, COBURG 
  1256.                                      VICTORIA  3058
  1257.  
  1258. T∩ avoiΣ delay≤ al∞ order≤ mus⌠ includσ cheque¼á posta∞  orde≥ o≥  BankcarΣ  ì
  1259. authorizatioεá fo≥á thσ tota∞ amoun⌠ (inc«á  posta∞ ªá  handlinτá charges)«  ì
  1260. Pleasσá allo≈á 1┤á day≤ fo≥ thσ returε oµ goods¼á o≥ pick-u≡á a⌠á thσá nex⌠ ì
  1261. meeting« 
  1262.  
  1263.                  Good≤ arσ onl∙ availablσ t∩ cluΓ members.
  1264.      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ì
  1265.    Please charge my Bankcard: No.___ __ ___ ______  
  1266.  
  1267.    Expiry Date __/__/____                Signature.................
  1268.    Members Name :____________________________ Membership No. ______
  1269.    Address :_______________________________________________________ 
  1270.    Code Item                          Quantity  Price   Total Cost
  1271.    ____ _____________________________ ________  _____   __________
  1272.    ____ _____________________________ ________  _____   __________
  1273.    ____ _____________________________ ________  _____   __________
  1274.    POSTAL FEES (within Australia)     Sub-Totals Items  $_________
  1275.    $10 to $20 order   :$2.50    Postage & handling Fee  $_________
  1276.    $20 to $50 order   :$5.00               
  1277.    greater than $50   :P.O.A.              Total Order  $_________
  1278.  
  1279.    CertifieΣá Mai∞á adΣ $0.9░          RegistereΣá Mai∞á adΣ $3.65 
  1280.  
  1281.                    MINIMUM POSTAL ORDER AMOUNT $10.00     è     THE MEMBERSHIP SECRETARY                     #
  1282.      MBUG AUSTRALIA INCORPORATED.               
  1283.      P.O. BOX 157                                    /    /
  1284.      NUNAWADING. Victoria. 3131.                
  1285.                                              
  1286.  
  1287.      NAME:______________________________________________________
  1288.  
  1289.      ADDRESS:___________________________________________________ 
  1290.      
  1291.      POST CODE:___________      TELEPHONE:______________________   
  1292.      
  1293.      IF STUDENT - AGE:____ NAME OF SCHOOL:______________________ 
  1294.  
  1295. If RENEWIN╟ membership¼  attatcΦ olΣ MAILIN╟ labe∞ above¼ or,
  1296. If NE╫ membership¼  pleasσ fil∞ iε above¼ read¼ anΣ sigε below.
  1297.  
  1298. Please find enclosed my remittance of $________
  1299.           being for (tick applicable box below)
  1300.  
  1301. Find enclosed cheque/money order, or,
  1302. Charge my Bankcard / Visa          No.____ ____ ____ ________  
  1303.  
  1304. Expiry Date __/__/____             Signature.................
  1305.  
  1306. Receipt sent only on request.
  1307.           
  1308.                           YEARLY FEES   
  1309.  
  1310.                FULL (City)         @ $20.00  [ ]
  1311.                OVERSEAS            @ A$20.00 [ ]
  1312.                COUNTRY             @ $17.00  [ ]
  1313.                STUDENT             @ $15.00  [ ]
  1314.                RBBS ONLY           @ $10.00  [ ]
  1315.                TAPE LIBRARY        @ $10.00  [ ]  (Payable once only)
  1316.  
  1317. ╔ DESIR┼ T╧ BECOM┼ ┴ MEMBE╥ O╞ MBU╟ AUSTRALI┴ INCORPORATED¼ ╔ AGRE┼ T╧ ì
  1318. B┼ BOUN─ B┘ TH┼ RULE╙ O╞ TH┼ ASSOCIATIO╬ FO╥ TH┼ TIM┼ BEIN╟ I╬ FORCE.
  1319.  
  1320.                  SIGNATURE: _____________________ DATE: ________
  1321.  
  1322. *********************************************************************
  1323.  
  1324. COMMITTEE USE ONLY.                      
  1325.  
  1326. I¼ ____________________________________▀ NOMINAT┼ TH┼ APPLICANT¼ ì
  1327. FOR MEMBERSHIP TO THE ASSOCIATION.
  1328.  
  1329.                  SIGNATURE:_____________________________________
  1330.  
  1331.  
  1332. I¼á _________________________________▀á SECON─ TH┼ NOMINATIO╬á O╞ ì
  1333. THE APPLICAN╘ FO╥ MEMBERSHI╨ T╧ TH┼ ASSOCIATION.
  1334.  
  1335.                  SIGNATURE:_____________________________________ 
  1336.  
  1337. DATE ACCEPTED_________ MEMBERSHIP NUMBER_________ CLASS_________
  1338.  
  1339.