home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug011.arc / 1985DEC.CAT < prev    next >
Text File  |  1979-12-31  |  67KB  |  1,339 lines
  1. .PL70
  2. .PO0
  3. .OP
  4. .HE      ---- T H E  C A T C H E R ----   #
  5. Thσ followinτ i≤ ß lis⌠ oµ thσ 1985/8╢ committeσ anΣ somσ oµ thσ peoplσ wh∩ ì
  6. havσ offereΣ thei≥ assistance« Iµ therσ i≤ anythinτ yo⌡ requirσ o≥ an∙ hel≡ ì
  7. yo⌡á caεá givσá us¼á pleasσ d∩ no⌠ hesitatσ t∩ contac⌠ an∙ onσá oµá us«á Iµ ì
  8. phoning, please do so at a reasonable hour.
  9. 
  10.               EXECUTIVE
  11. 
  12. PRESIDENT                               ANDREW BARFOOT           758-4822
  13. VICE-PRESIDENT                          MICK HOLZINGER           354-6742
  14. SECRETARY                               AXEL JOSCHT              859-1541
  15. TREASURER                               KEVIN CARR               233-4629
  16. PUBLI├ OFFICE╥                          JOHN BUTTON              578-8145
  17. 
  18.                          COMMITTEE AND ASSISTANTS
  19. 
  20. Terry Murphy        369-4111            Graham Schultz           848-5485
  21. Ray Han (B/H)       817-1371            John Buxton              758-5744
  22. Jim Lobley          758-9169            David Soutar             836-3661
  23. Gran⌠ Fores⌠        874-872╕            Steveε Jepsoε             45-4226
  24. Mike Thompson       82-5002             Robert Broomhead         546-3020
  25. Wal Hansen                              Richard Collett (B/H)    690-8283
  26. Peter Wagner  (059) 96-5957
  27.  
  28. SERVICES  PROVIDED  BY  MBUG  AUSTRALIA           
  29.  
  30.      -------------------------------------------------------------       
  31.      | EDITOR  A.BARFOOT. P.O. BOX 157 NUNAWADING 3131  758-4822 |
  32.      |-----------------------------------------------------------|
  33.      |PUBLIC DOMAIN DISKS  D.SOUTAR.  P.O. BOX 45 CANTERBURY 3126|
  34.      |       $5.00 ea. (std 5 1/4") disks. OTHER SIZES POA.      |
  35.      |     We  supply disk. POSTAL ORDERS ADD $1.50 per DISK     |       
  36.      |-----------------------------------------------------------|
  37.      |    TAPE LIBRARY P.O. BOX 75 AVONDALE HEIGHTS Vic. 3034    |
  38.      |-----------------------------------------------------------|
  39.      | MODEM HIRE    *     GRAHAM 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.      Firstly¼á ╔ woulΣ likσ t∩ wisΦ al∞ readers¼ member≤ anΣ thei≥ familie≤ ì
  66. ß merr∙ Christma≤ anΣ ß happ∙ anΣ prosperou≤ Ne≈ Year.
  67.  
  68.      ╔á woulΣá likσá t∩á thanδ al∞ thosσ peoplσ wh∩á havσá re-loadeΣá thei≥ ì
  69. program≤ bacδ oε thσ BB«á Iµ yo⌡ finΣ thσ UPLOA─ director∙ empt∙ froφá timσ ì
  70. t∩á timσá i⌠ i≤ becausσ thσ softwarσ i≤ beinτ checkeΣ anΣ wil∞ sooε bσá pu⌠ ì
  71. int∩ thσ appropriatσ directories« Iµ anyonσ woulΣ likσ t∩ assis⌠ u≤ iε thi≤ ì
  72. job¼á yo⌡á arσ quitσ welcomσ t∩ comσ t∩ thσ CP/═ (hackers⌐ night≤ tha⌠á arσ ì
  73. helΣ tw∩ week≤ afte≥ thσ maiε meetinτ (samσ placσ ª time)« Thσ exceptioε t∩ ì
  74. thi≤ nigh⌠ i≤ thσ Decembe≥ nigh⌠ whicΦ WIL╠ NOTé bσ helΣ becausσ i⌠ fall≤ oε ì
  75. Christma≤ day«á Yo⌡ don'⌠ neeΣ t∩ ß compute≥ whi· t∩ comσ t∩ ß CP/═á night« ì
  76. It'≤á ß nigh⌠ wherσ everybod∙ wh∩ come≤ learn≤ something«á A⌠ thesσ nights¼ ì
  77. mos⌠á peoplσ brinτ thei≥ computer≤ anΣ ß lo⌠ oµ talkinτ anΣá publiπá domaiε ì
  78. softwarσ swappinτ goe≤ on«á Almos⌠ an∙ sor⌠ oµ computer¼á system¼ language¼ ì
  79. softwarσá o≥ hardwarσ caε bσ discusseΣ a≤ wel∞ a≤ thσ RBB╙ program≤ checkeΣ ì
  80. beforσ goinτ oε thσ B┬ fo≥ genera∞ distribution« 
  81.  
  82.      Speakinτ oµ Christmas¼á wσ wil∞ bσ havinτ ß part∙ nigh⌠ thi≤ montΦá a⌠ ì
  83. thσ genera∞ meeting«á Therσ wil∞ bσ n∩ bazaa≥ o≥ tapσ librar∙ thi≤ montΦ a≤ ì
  84. al∞á wσá arσ goinτ t∩ d∩ i≤ havσ ß fe≈ (soft⌐ drink≤ anΣ somethinτ t∩á eat« ì
  85. Comσ earl∙ a≤ thσ fooΣ anΣ drinδ migh⌠ ruε ou⌠ rathe≥ quickly« Al∞ yo⌡ neeΣ ì
  86. brinτ i≤ yourself¼ we'l∞ suppl∙ thσ fooΣ anΣ drinks.
  87.  
  88.      Wσá havσá severa∞ entrie≤ alread∙ iε thσ competitioε a≤á mentioneΣá iε ì
  89. las⌠ month≤ RBB╙ column«á Don'⌠ forge⌠ yo⌡ havσ unti∞ Ne≈ Year≤ da∙á beforσ ì
  90. entrie≤ closσ s∩ therσ i≤ plent∙ oµ timσ lef⌠ t∩ ge⌠ your'≤ in«á Als∩ therσ ì
  91. arσ stil∞ place≤ lef⌠ iε thσ firs⌠ WordSta≥ clas≤ beinτ helΣ iε February« ╔ ì
  92. sa≈á ß noticσ iε ß TAF┼ publicatioε recentl∙ offerinτ Wordsta≥ lesson≤á anΣ ì
  93. thσá pricσá wa≤ abou⌠ $50.0░ deare≥ thaε our≤ fo≥ abou⌠ thσ samσ amoun⌠á oµ ì
  94. timσ s∩ savσ you≥ mone∙ anΣ comσ t∩ ours.
  95.  
  96.      ╔ havσ madσ thσ Catche≥ ß fe≈ page≤ longe≥ thi≤ montΦ fo≥ thosσ oµ yo⌡ ì
  97. wh∩ arσ oε holiday≤ anΣ woulΣ liKσ somσ extrß program≤ t∩ typσ in« Yo⌡ wil∞ ì
  98. noticσá somσá oµá thesσ listing≤ havσ n∩ checksum≤ appendeΣ t∩á theεá a≤á ╔ ì
  99. haven'⌠ haΣ timσ t∩ d∩ them« Sorr∙ fo≥ an∙ inconveniencσ thi≤ ma∙ cause.
  100.  
  101.      Whilσ ╔ aφ oε thσ subjec⌠ oµ listings¼á therσ i≤ ß shortagσ oµ machinσ ì
  102. codσá listing≤ fo≥ mσ t∩ publish«á ╔ wil∞ accep⌠ al∞ codσ relevan⌠á t∩á thσ ì
  103. Microbeσ fo≥ publicatioε includinτ DGOS¼ MAC¼ Z80¼ anΣ 8080« Anythinτ else¼ ì
  104. iε an∙ othe≥ language¼á bσ i⌠ PASCAL¼á FORTH¼á EDASM¼á LOGO¼ BASIC¼ MBASIC¼ ì
  105. MULTIPLAN¼á DBASE¼á WORDSTAR¼á MODEM7¼ TELCOM¼ VIATE╠ o≥ ANYTHIN╟ includinτ ì
  106. tricks¼á shortcut≤ o≥ pitfall≤ yo⌡ find¼á tha⌠ ma∙ bσ oµ interes⌠ t∩ other≤ ì
  107. wheεá usinτá an∙á oµá thσ utilitie≤ o≥ program≤  oε an∙á sizσá o≥á typσá oµ ì
  108. Microbeσá wil∞ bσ published¼á iµ spacσ permits«á Iµ yo⌡ havσ aε extrßá lonτ ì
  109. articlσá wσ ma∙ ruε i⌠ ove≥ tw∩ o≥ threσ issues«á A⌠ thi≤ time¼á jus⌠ abou⌠ ì
  110. al∞ thσ article≤ ╔ ge⌠ comσ ofµ thσ RBB╙ anΣ ╔ kno≈ no⌠ everybod∙ wh∩ find≤ ì
  111. somethinτá cleve≥ o≥ write≤ program≤ ha≤ ß modem«á Don'⌠ forge⌠ wσ pa∙á fo≥ ì
  112. al∞á inpu⌠ int∩ thσ Catcher«á ╔ caε bσ contacteΣ b∙ phonσ o≥ yo⌡á caεá givσ ì
  113. you≥á articlσ t∩ mσ a⌠ an∙ meeting«á Contribution≤ ma∙ bσ iε thσ forma⌠á oµ ì
  114. disδá (│á 1/2ó o≥ ╡ 1/4")¼á tape¼á pape≥ o≥ b∙ modem«á ╔ woulΣá prefe≥á al∞ ì
  115. contribution≤ t∩ bσ iε ASCI╔ forma⌠ iµ possiblσ (no⌠ mandatory).
  116.  
  117.             Once again, and merry Christmas.           Andrew. 
  118.  
  119. DISCOUNT NUMBER 820
  120.  
  121.  FROM THE CHIEF MBUG     FROM THE CHIEF MBUG     FROM THE CHIEF MBUG è                            POOL.MWB
  122.  
  123.  ┴á PROGRA═á T╧á SE╘ YOU╥ SWIMMIN╟ POO╠ T╧á TH┼á CORREC╘á CHEMICA╠ LEVELS
  124. 
  125. 00100 REM POOL CARE PROGRAM [145]
  126. 00110 REM Written by Lawrie Beales 19/1/85 ; Figures used in this
  127.       program are as accurate as possible from data available ,
  128.       if a mistake is found please inform the author. [146]
  129. 00120 CLS : POKE 257,1 : REM FORCE UPPER CASE [019]
  130. 00130 A2=0 : P2=0 : P3=0 : V1=0 : S=0 [239]
  131. 0014░ CUR╙ 20,4:UNDERLINE:PRINT"**¬ POO╠ CAR┼ PROGRA═ ***ó ║ NORMA╠ [235]
  132. 00150 CURS30,15 : PRINT"Please answer all questions," [045]
  133. 00160 CURS 30,16 : PRINT"  Hit return to continue....." [136]
  134. 00170 USR(32774) [234]
  135. 00180 CLS : PRINT\\\\\\ : INPUT"Select shape of your pool.....E.G.
  136.       C=Circular,O=Oval,S=Square,R=Rectangular,I=Irregular.",S1$ [053]
  137. 00185 IF S1$="" THEN 180 [030]
  138. 00190 IF S1$="C" THEN GOSUB 1000 [005]
  139. 00200 IF S1$="O" THEN GOSUB 1500 [014]
  140. 00210 IF S1$="S" THEN GOSUB 2000 [015]
  141. 00220 IF S1$="R" THEN GOSUB 2500 [020]
  142. 00230 IF S1$="I" THEN GOSUB 3000 [008]
  143. 00240 PRINT\\\\\\:INPUT"Enter total alkinility reading.....
  144.       E.G.85(PPM)"A1 [058]
  145. 00250 CLS [121]
  146. 00260 IF A1<85 THEN GOSUB 5500 ELSE 290 [127]
  147. 00270 PRINT\\\\\\"Your TOTAL ALKALINITY reading indicates a requirement
  148.       for the addition of "A"grams of BUFFER before P.H. adjustments 
  149.       are made." [132]
  150. 00280 GOTO 410 [104]
  151. 00290 PRINT\\\\\\ : INPUT"Enter PH reading.....E.G. 7.5"P1 [087]
  152. 00300 IF P1>7.5 THEN GOSUB 3500 [242]
  153. 00310 IF P1<7.5 THEN GOSUB 4000 [237]
  154. 00320 CLS [119]
  155. 00330 PRINT\\\\\\ : INPUT"Enter stabiliser reading.....
  156.       E.G. 30(PPM)"Z1 [189]
  157. 00340 IF Z1>100 THEN 4510 [121]
  158. 00350 IF Z1<30 THEN GOSUB 5000 [197]
  159. 00360 CLS : PRINT\\\\ [178]
  160. 00370 P=INT(P2+.5) [115]
  161. 00380 Q=INT(P3+.5) [118]
  162. 00390 PRINT "Your pool condition indicates you should add the following
  163.       for top water finish....." [092]
  164. 00400 PRINT"DRI ACID REQUIRED= "P"gms.",\"SODA ASH REQUIRED=
  165.       "Q"gms.",\"STABILISER REQUIRED="S"gms." [187]
  166. 00410 PRINT\\ "Press return for recommended chlorine doseage....." [199]
  167. 00420 USR(32774) [232]
  168. 00430 GOSUB 6000 [221]
  169. 00440 INVERSE:PRINT\\\\\\"DOSE RATES FOR "V1" cuM. POOL.":NORMAL [193]
  170. 00450 PRINT\"             REGULAR    REGULAR    SUPER    SHOCK" [241]
  171. 00460 PRINT"             Unstab.    Stab. " [190]
  172. 00470 PRINT"             DAILY      @ 2 DAYS   WEEKLY    ON ALGE" [009]
  173. 00480 CURS 13,12 : PRINT C"gms." : CURS24,12 : PRINT D"gms." : CURS35,12 :
  174.       PRINT E"gms." : CURS45,12 : PRINT F"gms." [167]
  175. 00490 CURS 30,16 : PRINT"Press return for more........." [000]
  176. 00500 USR(32774) [231]
  177. 00510 GOTO 100 [096]
  178. 00520 END [110]
  179. 01000 REM CALCULATE VOLUME CIRCULAR PI*R^2*D [193]è01010 CLS : PRINT\\\\\\ : INPUT"ENTER DIAMETER IN METRES....."D1 [044]
  180. 01020 INPUT"ENTER DEPTH IN METRES....."D2 [077]
  181. 01030 V1=22/7*(D1/2)^2*D2 [211]
  182. 01040 CLS : RETURN [193]
  183. 01500 REM CALCULATE VOLUME OVAL PI*((L+B)/4)^2*D [198]
  184. 01510 CLS : PRINT\\\\\\ : INPUT"ENTER LENGTH IN METRES....."L1 [176]
  185. 01520 INPUT"ENTER BREADTH IN METRES....."B1 [212]
  186. 01530 INPUT"ENTER DEPTH IN METRES....."D1 [082]
  187. 01540 V1=(22/7)*((L1+B1)/4)^2*D1 [034]
  188. 01550 CLS : RETURN [199]
  189. 02000 REM CALCULATE VOLUME SQUARE S^2*D [194]
  190. 02010 CLS:PRINT\\\\\\:INPUT"ENTER LENGTH OF SIDE IN METRES....."L1 [102]
  191. 02020 INPUT"ENTER DEPTH IN METRES....."D1 [077]
  192. 02030 V1=L1*L1*D1 [076]
  193. 02040 CLS : RETURN [194]
  194. 02500 REM CALCULATE VOLUME RECTANGULAR L*B*D [199]
  195. 02510 CLS : PRINT\\\\\\ : INPUT"ENTER LENGTH IN METRES....."L1 [177]
  196. 02520 INPUT"ENTER BREADTH IN METRES....."B1 [213]
  197. 02530 INPUT"ENTER DEPTH IN METRES....."D1 [083]
  198. 02540 V1=L1*B1*D1 [072]
  199. 02550 CLS : RETURN [200]
  200. 03000 REM VOLUME OF IRREGULAR [195]
  201. 03010 CLS : PRINT\\\\\\ : INPUT"ENTER VOLUME..(cuM)....."V1 [248]
  202. 03020 CLS : RETURN [193]
  203. 03500 REM PH HIGH [200]
  204. 03510 P2=(P1-7.5)/.1*(2.361111*V1) [104]
  205. 03520 CLS : RETURN [198]
  206. 04000 REM PH LOW [196]
  207. 04010 P3=(7.5-P1)/.5*(7*V1) [019]
  208. 04020 CLS : RETURN [194]
  209. 04500 REM STABILISER HIGH [201]
  210. 04510 CLS : PLAY 23 : PRINT\\\\\\"WARNING !!! cynurates in excess of
  211.       100(PPM) : remedy requires removal of part or all of pool water
  212.       and refill before retest." [024]
  213. 04520 CURS 30,16 : PRINT"Hit return to continue...." : GOTO 500 [150]
  214. 05000 REM CALCULATE STABILISER REQUIRED [197]
  215. 05010 S=INT((30-Z1)*10*V1/10) [202]
  216. 05020 CLS : RETURN [195]
  217. 05500 REM TOTAL ALKALINITY LOW [202]
  218. 05510 A2=(85-A1)*4.2857142*V1 [130]
  219. 05515 A=INT(A2+.5) [139]
  220. 05520 CLS : RETURN [200]
  221. 06000 REM CALCULATE CHLORINE DOSAGE [198]
  222. 06010 REM DAILY UNSTAB. [199]
  223. 06020 C=INT(V1*5) [106]
  224. 06030 REM 2 DAYS STAB. [201]
  225. 06040 D=INT(V1*4) [108]
  226. 06050 REM SUPER WEEKLY [203]
  227. 06060 E=INT(V1*10.714285) [005]
  228. 06070 REM SHOCK [205]
  229. 06080 F=E*2 [242]
  230. 06090 CLS : RETURN [203]   HINZ
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237. è                               OPTICS . MWB
  238.  
  239. 00010 CLS:PRINT\"** OPTICS ** by T Hudson, will Print if
  240.       Printer On Line.":PRINT [066]   (not on mine ED)
  241. 00020 INPUT"Select 1 (Triangle) or 2 (Rectangle).";N : HIRES: ON N GOTO
  242.       30,60 [070]
  243. 00030 PLOT 335,95 TO 250,180 TO 80,10 TO 40,30 TO 250,240 [000]
  244. 00040 PLOT 210,80 TO 390,100 TO 250,240 TO 300,245 TO 465,80 [149]
  245. 00050 PLOT 280,150 TO 180,50 TO 465,80 TO 435,50 TO 80,10 :GOTO 90 [231]
  246. 00060 PLOT 120,160 TO 120,10 TO 400,70 TO 360,90 TO 170,50 TO 170,130 TO
  247.       310,160 [026]
  248. 00070 PLOT 120,10 TO 80,30 TO 80,180 TO 120,160 TO 310,200 TO 310,120 TO
  249.       170,90 [228]
  250. 00080 PLOT 80,180 TO 360,240 TO 360,90:PLOT 400,70 TO 400,220 TO
  251.       360,240 [056]
  252. 00090 FOR I=24571 TO 24744 :READ A :POKE I,A :NEXT I :USR(24571) [129]
  253. 00100 DATA 62,8,50,128,0,205,89,96,62,27,205,69,128,62,65,205 [098]
  254. 00110 DATA 69,128,62,8,205,69,128,6,0,14,0,62,10,205,69,128 [240]
  255. 00120 DATA 62,27,205,69,128,62,76,205,69,128,175,205,69,128,62,4 [003]
  256. 00130 DATA 205,69,128,30,0,197,213,205,107,96,205,131,96,209,193,28 [136]
  257. 00140 DATA 62,64,187,32,240,175,185,32,4,14,8,24,206,4,62,16 [034]
  258. 00150 DATA 184,32,198,62,27,205,69,128,62,64,205,69,128,201,62,2 [250]
  259. 00160 DATA 50,227,0,175,50,9,1,62,15,211,1,62,128,211,1,201 [207]
  260. 00170 DATA 38,0,104,41,41,41,41,41,41,22,240,25,126,111,38,0 [252]
  261. 00180 DATA 41,41,41,41,6,240,9,201,62,1,211,11,14,128,229,6 [213]
  262. 00190 DATA 8,203,34,126,161,40,2,203,194,35,16,245,122,205,69,128 [022]
  263. 00200 DATA 175,205,69,128,225,203,57,48,229,62,0,211,11,201 [234]
  264. 00280 REM [154]
  265. 00290 REM [155]
  266. 00300 REM   Entry by Trevor Hudson, member #705, in M Bug [147] áHINZ
  267.  
  268.  
  269.                           CREATIVITY TEST ANSWERS
  270. 
  271. 1.   26 = L of the A              LETTERS in the ALPHABET
  272. 2.    7 = W of the W              WONDERS of the WORLD
  273. 3. 1001 = A N                     ARABIAN NIGHTS
  274. 4.   12 = S of the Z              SIGNS of the ZODIAC
  275. 5.   54 = C in a P (with J's)     CARDS in a PACK (with JOKERS)
  276. 6.    9 = P in the S S            PLANETS in the SOLAR SYSTAM
  277. 7.   88 = P K                     PANIO KEYS
  278. 8.   13 = S on the A F            STRIPES on the AMERICAN FLAG
  279. 9«á  3▓ ╜á ─á ╞ a⌠ whicΦ ╫ ╞      DEGREE╙ Fá a⌠á whicΦá WATE╥ FREEZES
  280. 10.  18 = H on a G C              HOLES on a GOLF COURSE
  281. 11.  90 = D in a R A              DEGREES in a RIGHT ANGLE
  282. 12.  200 = P for P G in M         POUNDS for PASSING GO in MONOPOLY
  283.  
  284.  
  285.  
  286. SPECIAL NOTICE SPECIAL NOTICE SPECIAL NOTICE SPECIAL NOTICE SPECIAL NOTICE 
  287.  
  288. From: BOB FRYER          To:   ALL           Re:   SMUG BEE BBS
  289.  
  290. Just A word from Sydney.......SMUG-BEE BBS is online in Sydney running on 
  291. a 56K microbee. It runs 24 hours on (02) 607 7584...At the moment it is 
  292. public and all visitors are welcome....File transfer is also available.
  293.  
  294. SPECIAL NOTICE SPECIAL NOTICE SPECIAL NOTICE SPECIAL NOTICE SPECIAL NOTICE 
  295. è                          SETDISK.DO├  v.31.10.85
  296.                           ===========
  297.  
  298.  Documentation for     SETDISK.COM V1.0  SETDISK.WST      (C⌐ Marδ Bisho≡ 
  299.  
  300.  How to read and write to foreign CP/M computer disks with your Microbee
  301.  
  302. SETDIS╦: 
  303.       comprise≤á thσá file≤á SETDISK.CO═ anΣá SETDISK.WST¼á  anΣá ha≤á beeε ì
  304. designeΣá a≤ ß replacemen⌠ Microbeσ utilit∙ fo≥ SETDRIVE.COM¼á  supplieΣ b∙ ì
  305. ApplieΣá Technology«á  SETDIS╦ i≤ ß utilit∙  t∩ read¼á era(se)¼á anΣá writσ ì
  306. file≤  t∩ foreigε CP/═ disks.
  307.  
  308. SETDRIVE'≤ majo≥ disadvantagσ i≤ tha⌠ i⌠ i≤ extremel∙ difficul⌠ t∩ adΣá ne≈ ì
  309. foreigεá disδ formats«á  SETDRIV┼ ha≤ t∩ bσ disassembled¼á  ne≈ datß added¼ ì
  310. theεá re-assembled«á  SETDIS╦á overcome≤ thi≤ probleφ b∙ usinτá ßá separatσ ì
  311. Wordstar datß filσ calleΣ SETDISK.WS╘ fo≥ thσ disδ formats«á  Thi≤ filσ ha≤ ì
  312. datß fo≥ morσ thaε 9╖ foreigε CP/═ disδ formats¼ wa≤ createΣ anΣ i≤ amendeΣ ì
  313. b∙ usinτ  WORDSTA╥  iε thσ documen⌠ mode«á  Thσ datß ha≤ beeε gleaneΣá froφ ì
  314. man∙  sources¼  somσ  ha≤ no⌠  beeε tested¼  anΣ i≤ offereΣ  'a≤ is'« 
  315.  
  316.      ┴á differen⌠ versioε oµ SETDRIV┼ wil∞ probabl∙ bσ requireΣ fo≥á futurσ ì
  317. version≤á oµ thσ Microbeσ BIOS«á  SETDIS╦ V1.░ ha≤ beeε designeΣ t∩ operatσ ì
  318. witΦ al∞ BIO╙ version≤ u≡ t∩ numbe≥ 1░ (56╦ A.P.C.¼á 128╦ S.B.C.⌐ anΣá als∩ ì
  319. ha≤á ß tablσ patchablσ unde≥ DD╘ ZSI─ MONITO╥ etc«á t∩ accommodatσ ┤á othe≥ ì
  320. BIO╙á versions«á  Unfortunatel∙ thσ 3.5ó C.I.A.B«á BIO╙ (versioε numbe≥á 6⌐ ì
  321. doe≤á no⌠ suppor⌠ othe≥ disδ format≤ a≤ i⌠ doesn'⌠ havσ ß sparσ Ske≈ table¼ ì
  322. s∩ canno⌠ bσ useΣ witΦ eithe≥ SETDRIV┼ o≥ SETDISK.
  323.  
  324.      SETDIS╦ i≤ dependen⌠  oε you≥ hardware«   Iε othe≥ words¼ don'⌠ expec⌠ ì
  325. t∩á reaΣá 8ó o≥ 8░ tracδ disk≤ iµ yo⌡ onl∙ havσá 4░á tracδá drives«á Unles≤ ì
  326. specified¼  datß i≤ fo≥ 5ó disks.
  327.  
  328. SETDISK.CO═ ª SETDISK.WS╘  mus⌠ bσ oε thσ currentl∙ 'loggeΣ inº drive« ì
  329. Thσ synta° fo≥ usagσ i≤ identica∞ t∩ SETDRIVE« SETDIS╦ drivename║ format
  330.  
  331. áááá   eg.   SETDISK B: KAYPRO 2
  332.  
  333.      Space≤ arσ requireΣ betweeε SETDIS╦ drivename║á anΣ format«  Drivenamσ ì
  334. i≤ A¼ B¼ C¼ o≥ D«  Forma⌠ caε bσ shorteneΣ eg« SETDRIV┼ B║ ╦  wil∞ finΣ thσ ì
  335. firs⌠ forma⌠ iε SETDISK.WS╘ startinτ witΦ thσ lette≥ K.
  336.                            
  337. To add a new format the following details must be known:-
  338.  
  339.      Numbe≥ oµ track≤ pe≥ disk¼ whethe≥ singlσ o≥ double-sided¼ cylinde≥ o≥ ì
  340. non-cylinde≥á format¼á logica∞á secto≥ size¼á al∞ thσ disδ paramete≥á blocδ ì
  341. values¼ anΣ thσ disδ ske≈ translatσ table.
  342.  
  343. END of the beginning of SETDISK.DOC
  344.  
  345. 
  346. This¼á furthe≥á documentation¼á anΣ al∞ thσ softwarσ needeΣ t∩ modif∙á you≥ ì
  347. systeφá arσ no≈ oε thσ RBBS«á Iµ yo⌡ modif∙ thσ systeφ and/o≥ adΣ ne≈á disδ ì
  348. format≤á t∩á thσá datß list¼á yo⌡ arσ requesteΣ t∩á notif∙á thσá autho≥á s∩ ì
  349. upgrade≤á caε bσ passeΣ oε t∩ al∞ users«á Disk≤ witΦ thσ softwarσ anΣá tex⌠ ì
  350. are now available from the Bazaar at a cost of $5.00 each. 
  351. Seσá als∩á thσá articlσ DP╨ late≥ iε thi≤ issuσ fo≥ hel≡ witΦ thi≤á se⌠á oµ ì
  352. programs. Files DPP.OBJ and DPP.DOC are now on the RBBS for downloading. ED
  353. è                   CHESS MOVES COMPETITION WINNING ENTRY
  354.  
  355.                   This is the winning entry by Alan Burt. 
  356. 
  357. ╔á hopσ thσ reader≤ caε seσ thσ wa∙ thσ prograφ ha≤ beeε structureΣ anΣ thσ ì
  358. way the code has been written. 
  359. 
  360. IMPORTAN╘ NOTE║
  361. 
  362.                Thσ Rem≤ afte≥ thσ checksuφ number≤ arσ no⌠ includeΣ iεá thσ ì
  363. checksuφá count«á Yo⌡á coulΣ pu⌠ thσ Rem≤ iε iµ yo⌡ likσ bu⌠á thσá checksuφ ì
  364. number≤á wil∞ alter«á  Linσ 70░ ma∙ bσ altereΣ t∩ holΣ eacΦ positioε longe≥ ì
  365. anΣá Linσ 75░ coulΣ havσ ß PLA┘ 0,1░ (o≥ longer⌐ t∩ holΣ finisheΣ grou≡á oµ ì
  366. move≤ beforσ startinτ thσ nex⌠ se⌠ oµ moves« ED.
  367.  
  368. 00100 REM ********************************************** [145]
  369. 00110 REM * THE KNIGHT GAME * [146]
  370. 00120 REM [147]
  371. 00130 REM [148]
  372. 00140 REM [149]
  373. 00150 STRS (15000) [041]
  374. 00160 DIM C0(1000),F0(100),S(8),T(8) [139]
  375. 00170 CLS : INVERSE : POKE 220,16 [0996]
  376. 00180 CURS12,1 : PRINT" T H E  K N I G H T  G A M E " [097]
  377. 00190 NORMAL : CURS19,2 : PRINT"by Alan Burt " [161]
  378. 00200 RESTORE 890 : FOR I=1 TO 8 : READ S(I),T(I) : NEXT I [041]
  379. 00210 RESTORE 920 : FOR I=-496 TO -353 : READ A : POKE I,A : NEXT I [172]
  380. 00220 GOSUB 790 [180] REM set up board
  381. 00230 C=0 [069] REM pointer to current sequence of moves
  382. 00240 N=1 [082] REM pointer to next free string in C0$
  383. 00250 E=1 [074] REM pointer to solution string in F0$
  384. 00260 Z=0 [095] REM flag set when more moves to process
  385. 00270 C0$(0)="a" [115] REM starting position
  386. 00280 REM [154]
  387. 00290 REM [155] REM start of program
  388. 00300 FOR C=0 TO N-1 [121]
  389. 00310 IF C0$(C)="" THEN 350 [150]
  390. 00320 F=0 : GOSUB 420 [152] REM find and save possible moves
  391. 00330 IF F=0 THEN LET C0$(C)="" [152] REM no valid move, so erase
  392. 00340 IF PEEK(62463)=32 THEN POKE 62463,160 ELSE POKE 62463,32 [087]
  393. 00350 NEXT C [026]
  394. 00360 IF Z>0 THEN LET Z=0 : GOTO 300 [209] REM check other moves
  395. 00370 PLAY11 : CURS14,14 : PRINT"All solutions tested!" [061]
  396. 00380 POKE 220,111 [029]
  397. 00390 END [115]
  398. 00400 REM [148]
  399. 00410 REM [149] REM subroutine to find all possible moves
  400. 00420 A0$=C0$(C) : L=LEN(A0$) : A1$=A0$(;L,L) : A=ASC(A1$)-97 [032]
  401. 00430 Y=A/4 : X=A-4*Y [197]
  402. 00440 FOR I=1 TO 8 [017]
  403. 00450 Q=X+S(I) : R=Y+T(I) [210]
  404. 00460 IF Q<0 OR Q>3 OR R<0 OR R>3 THEN 530 [211]
  405. 00470 B=97+Q+4*R : B0$=CHR$(B) [130] REM next move
  406. 00480 IF SEARCH(A0$,B0$)>0 THEN 530 [190] REM previous move
  407. 00490 IF B=100 THEN GOSUB 560 : GOTO 530 [145] REM save in F0$
  408. 00500 REM [149] REM move is valid.. save in string array C0$
  409. 00510 IF F>0 THEN LET C0$(N) = A0$+B0$ : N=N+1 :Z=1 [039]
  410. 00520 IF F=0 THEN LET C0$(C) = A0$+B0$ : F=1 : Z=1 [155] REM overwrite
  411. 00530 NEXT I [032]è00540 RETURN [121]
  412. 00550 REM [154]
  413. 00560 REM [155] REM subroutine to save solution in array F0$
  414. 00570 D0$=A0$+B0$ : D=LEN(D0$) [074]
  415. 00580 IF D<M THEN 620 [192] REM too short... no save
  416. 00590 IF D>M THEN LET E=1 : M=D [203]
  417. 00600 IF D=M THEN LET F0$(E)=D0$ : E=E+1 [105]
  418. 00610 GOSUB 640 [177] REM present graphics solution
  419. 00620 RETURN [120]
  420. 00630 REM [153]
  421. 00640 REM [154] REM subroutine to display solution in graphics
  422. 00650 CURS13,4:PRINT"Solution";E-1;" touching";M;" squares   "; [072]
  423. 00660 GOSUB 790 [188] REM set up board
  424. 00670 PCG [119]
  425. 00680 V=0 : W=0 [095]
  426. 00690 FOR J=2 TO D [038]
  427. 00700 PLAY 0,1 [090] REM delay for effect
  428. 00710 CURS 20+V*3,6+W : PRINT "g";CHR(63+J);"i"; [149] REM last position
  429. 00720 Z=ASC(D0$(;J,J))-97 [217] REM get next position
  430. 00730 W=Z/4 : V=Z-4*W [244]
  431. 00740 CURS 20+V*3,6+W : PRINT "abc"; [008] REM place knight on board
  432. 00750 NEXT J [037]
  433. 00760 NORMAL [102]
  434. 00770 RETURN [126]
  435. 00780 REM [159]
  436. 00790 REM [160] REM subroutine to set up board
  437. 00800 PCG [114]
  438. 00810 CURS20,6 : PRINT "abcdefdefdef"; [019]
  439. 00820 CURS20,7 : PRINT "defdefdefdef"; [030]
  440. 00830 CURS20,8 : PRINT "defdefdefdef"; [032]
  441. 00840 CURS20,9 : PRINT "defdefdefdef"; [034]
  442. 00850 NORMAL [102]
  443. 00860 RETURN [126]
  444. 00870 REM [159] REM list of possible moves
  445. 00880 REM [160]
  446. 00890 DATA -1,2,1,2,2,1,2,-1,1,-2,-1,-2,-2,-1,-2,1 [207]
  447. 00900 REM [153]
  448. 00910 REM [154] REM pcg data
  449. 00920 REM [155] REM data for knight `ABC'
  450. 00930 DATA 255,128,128,128,129,135,159,155 [198]
  451. 00940 DATA 128,128,129,135,143,159,128,255 [196]
  452. 00950 DATA 255,020,031,127,191,255,255,031 [175]
  453. 00960 DATA 027,117,241,245,245,255,000,255 [180]
  454. 00970 DATA 255,001,001,129,193,225,241,025 [172]
  455. 00980 DATA 089,025,089,025,249,249,001,255 [202]
  456. 00990 REM [162] REM data for empty square `DEF'
  457. 01000 DATA 255,128,128,128,128,128,128,128 [232]
  458. 01010 DATA 128,128,128,128,128,128,128,255 [233]
  459. 01020 DATA 000,000,000,000,000,000,000,255 [157]
  460. 01030 DATA 000,000,000,000,000,000,000,255 [158]
  461. 01040 DATA 255,001,001,001,001,001,001,001 [166]
  462. 01050 DATA 001,001,001,001,001,001,001,255 [167]
  463. 01060 REM [199] REM data for filled square `GHI'
  464. 01070 DATA 255,213,170,213,170,213,170,213 [210]
  465. 01080 DATA 170,213,170,213,170,213,170,255 [213]
  466. 01090 DATA 255,085,170,085,170,085,170,085 [240]
  467. 01100 DATA 170,085,170,085,170,085,170,255 [227]
  468. 01110 DATA 255,085,171,085,171,085,171,085 [236]
  469. 01120 DATA 171,085,171,085,171,085,171,255 [233] áHINZè                         WILDCARDS VOLUME 4 REVIEW
  470.  
  471.      ╔á receiveΣá ßá cop∙ oµ Wildcard≤ Vo∞ ┤ iε thσ mai∞ recentl∙á anΣá thσ ì
  472. coverinτá lette≥á askeΣá mσ t∩ d∩ ß revie≈ oµ i⌠ anΣ pu⌠á i⌠á iεá ou≥á cluΓ ì
  473. magazine«á Well¼á herσá goes«á A≤á thosσ oµ yo⌡ wh∩ attendeΣ thσ las⌠á cluΓ ì
  474. meeting¼ ╔ askeΣ iµ anyonσ woulΣ likσ ß freσ cop∙ oµ thσ booδ s∩ the∙ coulΣ ì
  475. typσ in thσ program≤ anΣ tel∞ u≤ wha⌠ the∙ though⌠ oµ them« Well¼ a≤ usual¼ ì
  476. thσ apath∙ wa≤ almos⌠ overwhelminτ anΣ ╔ wa≤ lef⌠ t∩ d∩ i⌠ myself« WitΦ al∞ ì
  477. thσá typinτá ╔á d∩ fo≥ thσ Catcher¼á ╔ hardl∙ ge⌠ timσá t∩á pla∙á witΦá thσ ì
  478. compute≥á fo≥á thσ fuε oµ i⌠ le⌠ alonσ keyinτ iε 1╢ Basiπ program≤ anΣá al∞ ì
  479. thosσ datß statement≤ lef⌠ mσ cold«á S∩ ╔ wen⌠ t∩ seσ Pete≥ ForΣ anΣá askeΣ ì
  480. hiφ fo≥ ß cop∙ oµ ß disδ witΦ al∞ thσ program≤ oε it« 
  481.  
  482.      ╔á figureΣ ╔ coulΣ d∩ thi≤ thσ eas∙ way«á Well¼á i⌠ almos⌠á worked«á ╔ ì
  483. though⌠á ╔á coulΣá simpl∙á ruε thσ program≤ a≤ the∙ werσ oεá thσá disδá anΣ ì
  484. everythinτ woulΣ bσ fine«á Thi≤ wa≤ m∙ majo≥ blunder«á Sure¼á thσá program≤ ì
  485. ran¼á bu⌠ ╔ didn'⌠ havσ ß cluσ ho≈ t∩ operatσ them«á Likσ mos⌠ people¼á thσ ì
  486. las⌠á thinτá ╔á diΣ wa≤ RTF═ (reaΣ thσ flaminº manual⌐ s∩ t∩á speak«á A≤á ╔ ì
  487. didn'⌠á ke∙á theφ in¼á ╔ haΣ n∩ ideß a≤ t∩ ho≈ the∙ workeΣ o≥ ho≈á t∩á worδ ì
  488. them«á WitΦ constan⌠ referencσ t∩ thσ booδ ╔ finall∙ workeΣ m∙ wa∙á througΦ ì
  489. al∞ thσ program≤ oε thσ disk« Herσ i≤ wha⌠ ╔ found¼ wart≤ anΣ all.
  490.  
  491.      Fo≥ thσ mos⌠ part¼ thσ program≤ werσ wel∞ presenteΣ anΣ the∙ worked« ╔ ì
  492. d∩á no⌠á havσ ß colou≥ Beσ s∩ ╔ don'⌠ kno≈ wha⌠ thσ colou≥ program≤á lookeΣ ì
  493. likσ oε screen«á Overall¼ program≤ haΣ somσ excellen⌠ routine≤ anΣ ╔ learn⌠ ì
  494. ß fe≈ trick≤ myself«á Therσ arσ program≤ fo≥ al∞ age≤ includeΣ iε thσá booδ ì
  495. froφá "RHYMES"¼á ßá prograφá whicΦ play≤ nurser∙ rhyme≤ fo≥á thσá tots¼á t∩ ì
  496. "POKER"¼á fo≥á thσá adults«á Therσ i≤ thσ usua∞ Startrecδ gamσ anΣá ßá gamσ ì
  497. listinτ simila≥ t∩ LANDE╥ (thi≤ onσ i≤ better)¼ whicΦ Microbeσ System≤ useΣ ì
  498. t∩á sel∞á (stil∞ do?)«á Therσ arσ man∙ program≤ tha⌠ havσ appeareΣá iεá thσ ì
  499. publiπá domaiεá o≥ havσ beeε oε salσ fo≥ onσ compute≥ o≥á anothe≥á a⌠á somσ ì
  500. time¼á s∩á iµá yo⌡á havσá envieΣ no⌠ havinτ thσá particula≥á gamσá fo≥á thσ ì
  501. Microbee¼ i⌠ i≤ probabl∙ iε thi≤ book« 
  502.  
  503.      Thσ prograφ calleΣ "ESTATEó i≤ aε Australiaε monopol∙ gamσ tha⌠ workeΣ ì
  504. well«á Therσá i≤ gooΣ graphic≤ iε thi≤ gamσ anΣ ╔ founΣ n∩ bug≤ o≥ an∙ rea∞ ì
  505. probleφá apar⌠ froφ no⌠ knowinτ exactl∙ wherσ eacΦ playe≥ was«á Thσá screeε ì
  506. drawε a⌠ eacΦ turε show≤ ß gamσ boarΣ bu⌠ no⌠ wherσ eacΦ playe≥ wa≤ locateΣ ì
  507. a⌠ an∙ giveε moment« Thσ onl∙ complain⌠ wa≤ thσ music« Wheε yo⌡ arσ playinτ ì
  508. anΣá thσá propertie≤ arσ nearl∙ o≥ al∞ sold¼á almos⌠ ever∙á timσá ßá playe≥ ì
  509. moves¼á thσá compute≥ play≤ onσ oµ man∙ (onl∙ small⌐ tunes«á Thi≤ tendeΣ t∩ ì
  510. drivσá mσá craz∙á afte≥ ß while«á Thosσ typinτ iεá thi≤á listinτá migh⌠á bσ ì
  511. inclineΣ t∩ omi⌠ somσ oµ thσ PLA┘ commands« Otherwisσ excellen⌠ stuff...
  512.  
  513.      Therσá i≤á onσá listinτ (DRAW⌐ whicΦ onl∙ give≤ yo⌡á somσá programminτ ì
  514. hints« Thσ listinτ i≤ wel∞ wortΦ thσ effor⌠ oµ typinτ (o≥ a⌠ leas⌠ reading⌐ ì
  515. t∩ seσ wha⌠ caε bσ donσ witΦ ß Beσ usinτ HIre≤ anΣ PCG's.
  516.  
  517.      Fo≥á brillian⌠á usσ oµ graphics¼á ╔ coulΣ sugges⌠ n∩ bette≥á thaεá thσ ì
  518. listinτá calleΣá "RADIOS"«á Thσá prograφ exhibit≤ ho≈ radio≤á arσá useΣá t∩ ì
  519. communicatσá betweeεá differen⌠ people«á Afte≥ thσ initia∞ screeεá finishe≤ ì
  520. flashinτ oε thσ screeε thi≤ prograφ show≤ aε aircraf⌠ takinτ off¼ flyinτ t∩ ì
  521. ßá pre-determineΣ point¼á droppinτ ofµ parachutist≤ anΣ returninτ t∩á base« ì
  522. Whilσ al∞ thi≤ wa≤ happening¼ ß tex⌠ oµ conversatioε wa≤ beinτ presenteΣ a≤ ì
  523. i⌠ woulΣ happeε betweeε thσ pilot¼á co-pilo⌠ anΣ grounΣ controls« Thσ wholσ ì
  524. prograφá raε witΦ ver∙ littlσ glitching«á Oε oµ thσ bes⌠ demonstration≤á oµ ì
  525. movinτá graphic≤ ╔ havσ seeε oε ß Microbee«á Onσ coulΣ incorporatσ mucΦá oµ ì
  526. thi≤ sor⌠ oµ programminτ iε thei≥ owε listings«á I⌠ show≤ excellen⌠ usσá oµ ì
  527. thσ limiteΣ PCG'≤ availablσ fo≥ usσ iε thσ Bee.è     ╔ founΣ ß probleφ witΦ ß prograφ calleΣ "CHUNT"¼á ß listinτ simila≥ t∩ ì
  528. aεá adventurσá game«á Thi≤ prograφ haΣ man∙ fault≤ t∩ m∙ wa∙á oµá thinking« ì
  529. Firstly¼á thσá screeε didn'⌠ clea≥ a≤ onσ woulΣ expec⌠ anΣ thσ tex⌠á becamσ ì
  530. overwritteεá b∙ thσ graphics«á Thi≤ aside¼á ╔ couldn'⌠ seσ thσ logiπ iε ho≈ ì
  531. onσ woulΣ (could⌐ wiε thσ game«á I⌠ appear≤ yo⌡ ge⌠ t∩ ß certaiε poin⌠á anΣ ì
  532. yo⌡á automaticall∙á win«á I⌠á seem≤ t∩ bσ aε adventurσ typσá gamσá bu⌠á thσ ì
  533. enterprisσ i≤ takeε ou⌠ oµ i⌠ wheε yo⌡ wiε al∞ oµ ß sudden« Thσ othe≥ majo≥ ì
  534. complain⌠ wa≤ tha⌠ thσ gamσ go⌠ lockeΣ iε ß loo≡ a⌠ onσ stagσ anΣ therσ wa≤ ì
  535. n∩ wa∙ out« ╔ couldn'⌠ wiε, loosσ o≥ continue. Maybee it was just me?
  536.  
  537.      Anothe≥ gamσ tha⌠ causeΣ mσ somσ concerε wa≤ calleΣ "SPATRLó o≥á spacσ ì
  538. patrol« A⌠ time≤ whilσ playinτ thi≤ game¼ thσ screeε 'glitchedº anΣ par⌠ oµ ì
  539. thσá gamσ positioε wa≤ lost«á Iµ yo⌡ haΣ ß bomΓ headinτ fo≥ thσ "enemyóá a⌠ ì
  540. thi≤á time¼á thσá bomΓá woulΣ vanisΦ froφ thσ screeε anΣá yo⌡á misseΣá you≥ ì
  541. target« Onσ thinτ ╔ didn'⌠ likσ wa≤ thσ fac⌠ tha⌠ yo⌡ haΣ t∩ hi⌠ thσ targe⌠ ì
  542. deaΣá centrσ t∩ recorΣ ß 'hit'«á ┴ sidσ swipσ woulΣ deletσ tha⌠ par⌠ oµ thσ ì
  543. targe⌠á bu⌠á i⌠ stil∞ kep⌠ coming«á Iµ that'≤ ho≈ it'≤ mean⌠ t∩ bσá it'≤á ß ì
  544. prett∙ harΣ gamσ t∩ pla∙ (anΣ win).
  545.  
  546.      "DOMINO"¼á i≤á ß gamσ oµ dominoes«á Thσ gamσ set≤ u≡ witΦ thσ standarΣ ì
  547. hanΣ oµ dominoe≤ fo≥ eacΦ playe≥ witΦ thσ computer≤ hanΣ beinτ "facσá downó ì
  548. a⌠á thσ star⌠ oµ thσ game«á Thσ playe≥ i≤ giveε ß runninτ tota∞ oµ dominoe≤ ì
  549. iεá eacΦ player≤ hanΣ a⌠ an∙ giveε timσ anΣ iµ yo⌡ arσ requireΣ t∩á "knockó ì
  550. yo⌡á simpl∙ pres≤ thσ spacσ ba≥ theε continuσ you≥ turn«á Iµ thσ amoun⌠á oµ ì
  551. dominoe≤ iε thσ picδ u≡ pilσ get≤ t∩ tw∩ yo⌡ mus⌠ pres≤ ES├ t∩ continue« Iµ ì
  552. neithe≥á compute≥ o≥ playe≥ caε proceeΣ thσ valuσ oµ thσ dominoe≤ stil∞á iε ì
  553. hand is counted and whoever has the lowest count wins. Good game...
  554.  
  555.      ╔ reall∙ don'⌠ know¼á bu⌠ perhap≤ iµ therσ werσ mistake≤ the∙ werσ no⌠ ì
  556. mistake≤á bu⌠ werσ intentionall∙ pu⌠ therσ t∩ makσ yo⌡ think«á Par⌠ oµá thσ ì
  557. lesson≤ thi≤ volumσ contain≤  ma∙ bσ t∩ ge⌠ yo⌡ t∩ repai≥ ß couplσ oµ mino≥ ì
  558. problem≤ iε onσ o≥ tw∩ listings« 
  559.  
  560.      Volumσ ┤ listing≤ arσ wel∞ documenteΣ witΦ REM'≤ anΣ thσ note≤ t∩ eacΦ ì
  561. prograφ arσ morσ thaε adequate« Thi≤ volumσ i≤ oµ smalle≥ sizσ t∩ thσ firs⌠ ì
  562. three¼ bu⌠ therσ i≤ no⌠ thσ programminτ hint≤ a≤ straigh⌠ ou⌠ documentatioε ì
  563. a≤ iε thσ previou≤ issues« Thi≤ timσ yo⌡ havσ t∩ diτ ß littlσ deepe≥ t∩ ge⌠ ì
  564. thσ message≤ beinτ conveyeΣ t∩ thσ reader« 
  565.  
  566.      Oncσ agaiε therσ i≤ ß questionnairσ iε thσ bacδ oµ thσ booδ askinτ fo≥ ì
  567. you≥ responsσ t∩ thσ book«á Iµ yo⌡ wan⌠ t∩ seσ ß Volumσ ╡ iε thi≤ serie≤á ╔ ì
  568. woulΣá sugges⌠ yo⌡ migh⌠ repl∙ t∩ thesσ questions«á WitΦ thσ responsσá tha⌠ ì
  569. camσá froφ thσ previou≤ questionnaire¼á ╔ believσ thσ author≤ arσ ßá littlσ ì
  570. worrieΣ a≤ t∩ thσ valuσ oµ puttinτ iε thσ timσ t∩ producσ ß furthe≥ volume« ì
  571. Iµá yo⌡ don'⌠ senΣ iε you≥ answer≤ ╔ thinδ thi≤ volumσ ma∙ bσ thσá las⌠á iε ì
  572. thσ series« 
  573.  
  574.      Overall¼á ß booδ i≤ wel∞ wortΦ thσ mone∙ yo⌡ spenΣ oε it¼ bσ i⌠ retai∞ ì
  575. o≥ througΦ thσ bazaar«á Perhap≤ i⌠ woulΣ bσ ß gooΣ Christma≤ presen⌠ t∩ bu∙ ì
  576. iµá yo⌡ arσ havinτ somσ timσ ofµ work«á Iµ yo⌡ don'⌠ wan⌠ ß criss∙á presen⌠ ì
  577. ge⌠á i⌠ anyway¼á yo⌡ wil∞ bσ surpriseΣ a⌠ wha⌠ yo⌡ wil∞ picδ u≡ abou⌠ Basiπ ì
  578. programminτ oε thσ Bee.
  579.  
  580.      Wildcard≤ Volumσ ┤ i≤ availablσ througΦ mos⌠ gooΣ bookshops«á ╔ d∩ no⌠ ì
  581. kno≈á thσ recommendeΣ pricσ bu⌠ wσ arσ sellinτ i⌠ iε thσ Bazaa≥á a⌠á $13.0░ ì
  582. plu≤ postage« Thi≤ pricσ i≤ t∩ cluΓ member≤ only« Othe≥ peoplσ wil∞ havσ t∩ ì
  583. pa∙ thσ ful∞ retai∞ price«á Iµ yo⌡ arσ ß noε membe≥ readinτ this¼á maybσ i⌠ ì
  584. i≤á timσá yo⌡á joineΣ up«á A≤ thσ Bazaa≥ wil∞ no⌠ bσ opeε a⌠á thσá Decembe≥ ì
  585. meetinτ (part∙ night)¼ an∙ order≤ wil∞ havσ t∩ bσ posted.è                          HACKERS DREAM MICROBEE
  586.  
  587.      Septembe≥á cluΓá nigh⌠ ╔ pu⌠ u≡ aε extrß shee⌠ besidσ thσ fo≥á salσá ª ì
  588. hel≡á notices«á I⌠ wa≤ headeΣ "HACKER╙ WIS╚ LISTó anΣ ╔ askeΣ peoplσ t∩ pu⌠ ì
  589. thei≥ idea≤ t∩ pape≥ a≤ t∩ thσ thing≤ the∙ woulΣ likσ iµ the∙ haΣ unlimiteΣ ì
  590. mone∙ t∩ spenΣ oε thσ Beσ oµ thei≥ choice« ╔ makσ n∩ furthe≥ commen⌠ bu⌠ t∩ ì
  591. prin⌠ thσ thing≤ a≤ writteε includinτ thσ comment≤ pu⌠ dowε b∙ other≤ a≤ t∩ ì
  592. thesσ suggestions.
  593.  
  594. Increase available PCG ram    (been there -- done that)
  595. Ability to read Apple CP/M disks   (ring Laurie 795-1111)
  596. Operating system like NEWDOS 80    (Apple/Tandy)
  597. 68000 running at about 10Meg with 1Meg Ram etc etc ....
  598. Port for mouse. Port for joystick(s) separate from Printer Port.
  599. Indicatioεá oµá Uppe≥ ½ Lowe≥ casσ oε keyboard«á 
  600.                          (bu∙ ß dreamdisδ systeφá - indication on 25th line)
  601.  
  602. Paginτá oµ 2nΣ  64δ int∩ 256¼ 51▓ etπ.  
  603.                (I'φ workinτ oε thi≤ oε ßá 56δá 'BEE« details later. J. Loke)
  604.  
  605. Cursor control keys
  606. MultΘá OPSY╙ e.g«á MSDOS¼á CP/M¼á PIC╦ (ß bi⌠ big)¼á etc...«á 
  607.                                         ª multΘá Disδ Formats Sizes
  608. A decent Setdrive Program
  609. Commodore graphics quality
  610. Dual 8/16 bit operation
  611. A heading or "title" of at least 12 letters, not just 6 or 8
  612. Colour as standard
  613. Variable names in ?Basic
  614. CIAB that can also read 5 1/4" disks in multi format (here here)
  615. Full screen control under CP/M
  616. Something to stop the screen from "glitching"
  617. Source code for 128k Bios, etc.,
  618. 600MB Disk Drive on Bee
  619. Train set control
  620. Numeric key pad
  621. Z800
  622. 
  623. and the final comment
  624. 
  625. Why don't you get an S-100 system?
  626.  
  627.  
  628.  
  629.              W  O  R  D  S  T  A  R        C  L  A  S  S  E  S
  630.  
  631.      Fo≥á thosσá oµ yo⌡ wh∩ woulΣ likσ t∩ learε t∩ usσá WordStar¼á wσá havσ ì
  632. arrangeΣá ß clas≤ tha⌠ wil∞ begiε iε Febuary«á Thi≤ clas≤ wil∞ bσá helΣá a⌠ ì
  633. Microbeσ Systems¼á Deepdeen« Therσ wil∞ bσ ß cos⌠ oµ $20.0░ (total⌐ fo≥ thσ ì
  634. lesson≤á whicΦ wil∞ bσ helΣ ove≥ ß ╕ hou≥ perioΣ (┤ b∙ ▓ hour≤ each)«á The∙ ì
  635. wil∞ bσ helΣ oε Saturda∙ morning≤ anΣ thσ clas≤ sizσ wil∞ bσ limiteΣ t∩á 1╡ ì
  636. peoplσá pe≥ clas≤ witΦ ß minimuε oµ 1░ pe≥ class«á Thσ onl∙ thinτ yo⌡á wil∞ ì
  637. havσá t∩á suppl∙á i≤á ß penci∞ anΣ notσá paper«á Wσá suppl∙á thσá computer« ì
  638. Registratioε wil∞ ONL┘ bσ accepteΣ iε writing«  Iµ registration≤ exceeΣ thσ ì
  639. numbe≥á oµá place≤á morσ thaε onσ clas≤ wil∞ bσ held«á ┴ fris⌠á comσá firs⌠ ì
  640. serveΣ basi≤ wil∞ appl∙ a≤ t∩ wheε yo⌡ star⌠ you≥ lessons« Al∞ application≤ ì
  641. shal∞ includσ you≥ enrollmen⌠ feσ andé MUS╘ addresseΣ to:
  642.  
  643.  MBUG AUST. INC.  WORDSTAR CLASSES P.O. BOX 157 NUNAWADING. Vic. 3131èHELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-
  644.  
  645. From: BRADLEY BOUCHAUD   To:   ALL           Re:   Autodial
  646.  
  647. CoulΣ anyonσ hel≡ me« ╔ buil⌠ u≡ thσ autodia∞ circui⌠ tha⌠ wa≤ publisheΣ iε ì
  648. ET╔á anΣ enjo∙ useinτ i⌠ froφ Telcoφ bu⌠ havσ founΣ tha⌠ thσ DIALúá (repea⌠ ì
  649. las⌠ No.⌐ doe≤ no⌠ worδ a≤ therσ i≤ n∩ C─ linσ connecteΣ froφ thσ modeφá t∩ ì
  650. thσá Mbee«á S∩á iµ anyonσ coulΣ le⌠ mσ kno≈ wherσ thi≤ shoulΣ bσá connecteΣ ì
  651. withiε thσ 128δ Beσ ╔ woulΣ appreciatσ it« 
  652.  
  653. From: RUSSELL HANSCH     To:   ALL           Re:   tandy coco to mbee 
  654.  
  655. DOE╙á ANYBOD┘ KNO╫ HO╫ ╔ CA╬ TRANSFE╥ FILE╙ BETWEE╬ TH┼ ABOV┼ MICROS«á MBE┼ ì
  656. I╙á 128K«á  ALS╧á CA╬á MBE┼ US┼ TAND┘ BASIC FILE╙á (FILENAME.BAS⌐á WIT╚á O╥ ì
  657. WITHOU╘ MODIFICATION┐ I╞ SO¼ HOW┐ MAN┘ THANKS.....
  658.  
  659. From: PAUL SHANNON       To:   ALL           Re:   anycode
  660.  
  661. Doe≤á anyonσá kno≈á wherσ ╔ caε ge⌠ ß cop∙ oµ thσá Publiπá Domaiεá program¼ ì
  662. ANYCODE┐  ╔ woulΣ appreciatσ an∙ informatioε oε thi≤ subject« Pau∞ Shannon
  663.  
  664. From: GRANT FOREST       To:   ALL           Re:   128k S/W
  665.  
  666. S/╫ anΣ inf∩ fo≥ 128╦ BE┼ e.g«á INVENTOR┘ ╗á ORDER╙ IN/OU╘ ╗á DAT┴ ANALYSI╙ ì
  667. e.g« d-baseI╔ typσ etπ leavσ msτ fo≥ mσ o≥ contac⌠ NOE╠ JOHNSTO╬ 288-9614
  668.  
  669. From: ANDREW LEAVERS     To:   ALL           Re:   MICROBEE SOFTWARE
  670.  
  671. AN┘á INFORMATIO╬ ABOU╘ KIN╟ TU╘ ADVENTURE«á WHA╘ I╙ I╘ AL╠ ABOUT.┐á LEAV┼ ┴ ì
  672. MESSAG┼ O╬ RBBS« 
  673.  
  674. From: ERIC GUNSTONE      To:   ALL           Re:   I/O INITIALIZATION
  675.  
  676. CA╬á ANYON┼á TEL╠á M┼ WHER┼ TH┼ 56╦ DIS╦ BEE'≤á I/╧á INITIALLIZATIO╬á TABL┼ ì
  677. RESIDE╙ I╬ (╔ ASSUME⌐ TH┼ BOO╘ ROM¼ S╧ ╔ CA╬ MAK┼ ┴ MOD« 
  678.  
  679. From: STEPHEN BELL       To:   ALL           Re:   DISK CONTROLLER
  680.  
  681. Doe≤á anyonσ kno≈ thσ I/╧ por⌠ location≤ oµ thσ DREAMDIS╦ disδá controller¼ ì
  682. anΣ thei≥ use≤ ┐ Iµ s∩ coulΣ yo⌡ leavσ ß messagσ oε RBBS.
  683.  
  684. From: ERIC GUNSTONE      To:   JULIAN LOKE   Re:   pio initialization
  685.  
  686. Thank≤á fo≥á thσ promp⌠ reply¼á ╔ diΣ havσ 0E72░ a≤ thσ H╠ pointe≥ fo≥á thσ ì
  687. ini⌠á pi∩ tablσ bu⌠ i⌠ doesn'⌠ looδ likσ ß tablσ t∩ me¼á i⌠ start≤ ofµá IN├ ì
  688. BC¼ L─ B├ etc« Wha⌠ ╔ wan⌠ i≤ t∩ usσ thσ networδ piε oε thσ pi∩ (b╖ por⌠ B⌐ ì
  689. a≤á aε inpu⌠ froφ thσ RS23▓ socke⌠ t∩ detec⌠ ß "ringó signa∞ froφá m∙á homσ ì
  690. madσ modeφ anΣ usσ i⌠ a≤ par⌠ oµ ß remotσ bulletiε boarΣ tha⌠ ╔ wan⌠ t∩ se⌠ ì
  691. u≡á oεá m∙ owε systeφ purel∙ fo≥ m∙ owε fuε anΣ use«á Iµ yo⌡ caεá sheΣá an∙ ì
  692. furthe≥ ligh⌠ oε al∞ thi≤ ╔ woulΣ appreciatσ it«á ╔ havσ copie≤ oµ BYE.MAC¼ ì
  693. BYE2-BEE.MA├ t∩ install« ╔ don⌠ havσ ZCPR3¼ ╔ havσ standarΣ A.T« Boo⌠ Rom.
  694.  
  695. From: MIRKO FLUHER       To:   JULIAN LOKE   Re:   .mwb
  696.  
  697. I≤ i⌠ possiblσ t∩ writσ ß .mwΓ filσ usinτ w≤ iε n/Σ modσ anΣ theε magicall∙  ì
  698. transforφ i⌠ int∩ ß "realó .mwΓ filσ s∩ tha⌠ i⌠ wil∞ auto-loaΣ witΦ Basic?
  699.  
  700.  
  701. HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-èHELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-
  702.  
  703. From: LANG STUIVER       To: CHRIS BENNETTS  Re:   Turbo
  704.  
  705. Chris¼á ╔ d∩ no≈ kno≈ why¼ bu⌠ Pasca∞ didn'⌠ evaluatσ 36╡ ¬ Yea≥ correctly« ì
  706. T∩á fi°á i⌠ simpl∙ changσ thσ formulß to║á 36.╡ ¬ 1░ ¬ Yea≥ ½á ▒á +....etc«  ì
  707. Thi≤á wil∞ givσ yo⌡ aε answe≥ oµ 7.2500700000E+0╡ (725007)«á  Iµá somethinτ ì
  708. likσ thi≤ happen≤ agaiε yo⌡ shoulΣ finΣ i⌠ ß simplσ tasδ fo≥ Turb∩ t∩ prin⌠ ì
  709. thσ answer≤ fo≥ differen⌠ part≤ anΣ comparσ theφ witΦ thσ expecteΣ ones«á ╔ ì
  710. hopσ yo⌡ haven'⌠ writteε you≥ prograφ iε Basic becausσ oµ this.
  711.  
  712. From: JULIAN LOKE        To: CHRIS BENNETTS  Re:   TURBO MATHS
  713.  
  714. Dea≥á Chris¼á You≥á probleφá involve≤ thσ usσ oµá MIXE─á REA╠á AN─á INTEGE╥ ì
  715. expression≤ withiε thσ samσ expression«  Thi≤ i≤ madσ worsσ iµ thσ variablσ ì
  716. YEA╥á i≤á oµ typσ INTEGE╥ insteaΣ oµ REAL«á ┴ simplσ fi° i≤ t∩ (a⌐á declarσ ì
  717. YEA╥á a≤ ß variablσ oµ typσ REA╠ and/o≥ (b⌐ makσ thσ expressioε ß REA╠á onσ ì
  718. b∙ makinτ al∞ thσ constan⌠ (numeriπ literals⌐ int∩ REA╠ one≤ 
  719. (e.g«á 36╡á =╛ 365.0)« 
  720. Program Test(input,output);
  721. Var Year: Real;
  722. Begin
  723.   Write('Which Year ? ');
  724.   Readln(Year);
  725.   Writeln(365.0*Year+1+Int((Year-1.0)/4.0)-
  726.           Int(3.0*(Int((Year-1.0)/100.0)+1.0)/4.0):0:0);
  727. End. {Program Test}
  728. ╔á supposσá tha⌠á yo⌡ kno≈ thσ In⌠ functioε iε Turb∩á Pasca∞á return≤á REA╠ ì
  729. values¼á whilσ thσ Trunπ anΣ RounΣ function≤ returε INTEGE╥ values« Eveε iµ ì
  730. yo⌡á continuσá t∩ usσ YEA╥ a≤ aε INTEGE╥ variable¼á thσ usσ oµ thσá decima∞ ì
  731. point≤á force≤ thσ expressioε t∩ REAL¼á s∩ tha⌠ arithmetiπ overflo≈á (whicΦ ì
  732. give≤ aε answe≥ oµ 4111⌐ doe≤ no⌠ occur«á ╔ hopσ tha⌠ thσ abovσ i≤ no⌠á to∩ ì
  733. confusing«  Leavσ ß messagσ iµ yo⌡ neeΣ morσ help«    
  734.  
  735. From: MIRKO FLUHER       To:   JULIAN LOKE   Re:   kay4
  736.  
  737. Hell∩ Julian¼ ╔ founΣ somσ inf∩ abou⌠ thσ kay┤ ╔ hopσ i⌠ wil∞ help« Someonσ ì
  738. mentionneΣ somethinτ abou⌠ 8░ "logicaló tracks.┐ 
  739. Also the following:
  740. bit 7 density: 0=single 1=double
  741. bit 6 double sided media if = 1  ???
  742. bit 5 double sided mode:
  743.      1 = continuous sector numbers (first sector on side one =
  744.          last sector on side 0 + 1) both track with twice as 
  745.          many sectors.
  746.      0 = same sector on both sides (normal method).
  747. bit 4 reserved
  748. bit 3-2  00 = 1k allc. blocks
  749.          01 = 2k ......
  750.          10 not used
  751.          11 not used
  752. bit 1-0  00 = 128 byte sector
  753.          01 = 256 ....
  754.          10 = 512 ....
  755.          11 = 1024 ....
  756.   Kaypro 4/10 ---> type e6h ---> 11100110b.
  757. ╔ basicall∙á follo≈ this¼á bu⌠ t∩ pu⌠ i⌠ iε thσ bio≤ i≤á anothe≥á story..« ì
  758. bios┤ seem≤ t∩ bσ workinτ oδ pitt∙ abou⌠ telcom« 
  759. HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-HELP-??-è00010 REM  ///////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
  760. 00011 REM |             << STOCK MARKET >>                   |
  761. 00012 REM | Ex Computer Games for Business, School and Home. |
  762. 00013 REM |         For TRS-80 Level 2 Basic.                |
  763. 00014 REM |      By J.V. Nahigian & W.S. Hodges.             |
  764. 00015 REM |         Modified for the MicroBee.               |
  765. 00016 REM |         By Peter Collins.  Mar'84.               |
  766. 00017 REM  \\\\\\\\\\\\\\\\\\\\\\\///////////////////////////
  767. 00020 REM A0()=Assets owned by each player.
  768. 00021 REM A7=Average cost per share.
  769. 00022 REM C0()=Dollars per share for each stock.
  770. 00023 REM C1=Company number chosen by player.
  771. 00024 REM M0()=Cash on hand for each player.
  772. 00025 REM O1=Option number chosen by player.
  773. 00026 REM Q=Number of players in game.
  774. 00027 REM N0()=Number of shares each stock owned by players.
  775. 00028 REM S1=Number of shares chosen by player.
  776. 00029 REM T0=Number of dollars players begins the game with.
  777. 00030 REM T1=number of dollars needed to win game.
  778. 00100 DIM C0(6),N0(3,6),M0(3),A0(3)
  779. 00110 T0=50
  780. 00120 T1=100
  781. 00130 CLS
  782. 00140 PRINT TAB(22)"STOCK MARKET GAME":PRINT
  783. 00160 FOR I=1 TO 3:M0(I)=T0:NEXT I
  784. 00170 PRINT "HOW MANY PLAYERS";:INPUT Q:PRINT
  785. 00180 IF Q<1 THEN 180 ELSE IF Q>3 THEN 180
  786. 00190 FOR I=1 TO 6:C0(I)=(RND)+1:NEXTI
  787. 00200 PRINT "DO YOU WANT INSTRUCTIONS?  (Y or N)";
  788. 00205 K0$=KEY$:IF K0$="" THEN 205
  789. 00210 IF K0$="Y" OR K0$="y" THEN GOSUB 1080
  790. 00220 GOSUB 600
  791. 00230 PRINT
  792. 00240 PRINT:FOR I=1 TO Q
  793. 00250 PRINT "IT IS PLAYER"I"'S TURN.":PRINT
  794. 00260 C5=(6*RND)+1:S5=(6*RND)+1
  795. 00270 PRINT "YOU ROLLED A ..."INT(C5)" AND A... "INT(S5)
  796. 00280 INPUT "ENTER OPTION  (1 Buy/sell, 2 Raise/lower.)  ?";O1
  797. 00282 INPUT "COMPANY  ?";C1
  798. 00284 INPUT "SHARES   ?";S1
  799. 00286 FOR F=1 TO 200:NEXT F
  800. 00290 IF C1=FLT(INT(C5)) THEN 300 ELSE IF FLT(INT(C5))<> ABS(S1) THEN 280
  801. 00300 IF FLT(INT(S5))=ABS(S1) OR FLT(INT(S5))=ABS(C5) THEN 320
  802. 00310 IF ABS(S1)>6 THEN 280
  803. 00320 IF O1<>1 THEN 430 ELSE IF S1<0 THEN 380
  804. 00330 X=INT(C1):C2=(S1*C0(X))+(.05*(S1*C0(X)))
  805. 00340 IF M0(I)>C2 THEN 360
  806. 00350 PRINT "PERSON"I" DOESN'T HAVE ENOUGH MONEY.":GOTO 280
  807. 00360 X=INT(C1):N0(I,X)=N0(I,X)+S1:M0(I)=M0(I)-C2
  808. 00370 GOTO 490
  809. 00380 X=INT(C1):IF N0(I,X)+S1>=0 THEN 400
  810. 00390 PRINT "YOU DON'T HAVE THAT MANY SHARES -- TRY AGAIN.":GOTO 280
  811. 00400 X=INT(C1):C2=(S1*C0(X))-(.05*(S1*C0(X)))
  812. 00410 M0(I)=M0(I)+ABS(C2)
  813. 00420 X=INT(C1):N0(I,X)=N0(I,X)+S1
  814. 00430 X=INT(C1):IF C0(X)+S1>0 THEN 460
  815. 00440 PRINT "YOU CAN'T DO THAT, STOCK DROPS BELOW ZERO."
  816. 00450 PRINT:GOTO 280
  817. 00460 X=INT(C1):C0(X)=C0(X)+S1è00470 PRINT "THE STOCK FOR COMPANY"X" NOW COSTS $"[F7.2 C0(X)]
  818. 00480 FOR F=1 TO 1500:NEXT F
  819. 00490 PRINT:IF M0(I)>T1 THEN 540
  820. 00500 NEXT I:PRINT\
  821. 00510 GOSUB 600
  822. 00520 PRINT "DO YOU WISH TO CONTINUE?  (Y or N)";
  823. 00522 K0$=KEY:IF K0$="" THEN 522
  824. 00524 IF K0$="Y" OR K0$="y" OR K0$="N" OR K0$="n" THEN 530 ELSE 522
  825. 00530 IF K0$="Y" OR K0$="y" THEN 230 ELSE 1360
  826. 00540 PRINT:GOSUB 600:PRINT\
  827. 00550 PRINT TAB(9)"*************** GAME IS OVER ***************"
  828. 00560 PRINT\TAB(13)"PERSON"I" HAS WON WITH"[F7.2 M0(I)]" DOLLARS."
  829. 00570 PRINT
  830. 00580 PRINT TAB(14) "*** CONGRATULATIONS TO PERSON"I" ***"
  831. 00590 GOTO 1350
  832. 00600 CLS
  833. 00610 PRINT TAB(5)"STOCK MARKET TABLE":PRINT
  834. 00620 PRINT "------- STOCKS --------";
  835. 00630 PRINT TAB(27)"PLAYER 1      PLAYER 2      PLAYER 3"
  836. 00640 PRINT "No STOCK NAME"TAB(17)"$/SHARE";
  837. 00650 PRINT TAB(26)"SHR  WORTH    SHR  WORTH    SHR  WORTH"
  838. 00660 A7=0:FOR I=1 TO 6:PRINT I TAB(4);
  839. 00670 IF I=1 THEN PRINT "DIAMONDS INC.";:GOTO 730
  840. 00680 IF I=2 THEN PRINT "UNION CARBIDE";:GOTO 730
  841. 00690 IF I=3 THEN PRINT "MUTUAL MOTORS";:GOTO 730
  842. 00700 IF I=4 THEN PRINT "BROKEN HILL";:GOTO 730
  843. 00710 IF I=5 THEN PRINT "GRANDPA BELL.";:GOTO 730
  844. 00720 PRINT "BROKE FINANCE";:GOTO 730
  845. 00730 A7=A7+C0(I):PRINT TAB(17);[F7.2 C0(I)];
  846. 00740 FOR K=1 TO Q
  847. 00750 PRINT TAB(14*(K-1)+26);INT(N0(K,I));
  848. 00760 PRINT TAB(14*(K-1)+29);[F7.2 N0(K,I)*C0(I)];
  849. 00770 NEXT K:PRINT:NEXTI
  850. 00780 PRINT "HIT ANY KEY TO CONTINUE..."
  851. 00785 K0$=KEY$:IF K0$="" THEN 785
  852. 00790 PRINT TAB(4)"TOTALS";
  853. 00800 FOR I=1 TO 3:A0(I)=0:NEXT I
  854. 00810 FOR I=1 TO Q:B7=0:C7=0
  855. 00820 FOR X=1 TO 6
  856. 00830 B7=B7+N0(I,X)
  857. 00840 C7=C7+N0(I,X)*C0(X)
  858. 00850 A0(I)=A0(I)+N0(I,X)*C0(X)
  859. 00860 NEXT X
  860. 00870 PRINT TAB(14*(I-1)+26);INT(B7);
  861. 00880 PRINT TAB(14*(I-1)+29);[F7.2 C7];
  862. 00890 NEXT I:PRINT
  863. 00900 PRINT TAB(4);"CASH ON HAND";
  864. 00910 FOR I=1 TO Q:M0(I)=M0(I)*100/100
  865. 00920 PRINT TAB(14*(I-1)+29);[F7.2 M0(I)];:A0(I)=A0(I)+M0(I)
  866. 00930 NEXT I:PRINT
  867. 00940 PRINT TAB(4);"TOTAL ASSETS TO DATE";
  868. 00950 FOR I=1 TO Q:PRINT TAB(14*(I-1)+28);[F8.2 A0(I)];
  869. 00960 NEXT I:PRINT\
  870. 00970 PRINT "AVERAGE COST PER SHARE $";
  871. 00980 A7=A7/6:A7=A7*100/100
  872. 00990 PRINT [F5.2 A7];
  873. 01000 IF A7-A6<>0 THEN 1020
  874. 01010 PRINT " NO CHANGE.":GOTO 1060
  875. 01020 IF A7-A6<0 THEN 1050è01030 PRINT " UP";[F5.2 A7-A6];" DOLLARS PER SHARE."
  876. 01040 GOTO 1060
  877. 01050 PRINT " DOWN";[F5.2 A6-A7];" DOLLARS PER SHARE."
  878. 01060 A6=A7
  879. 01070 PRINT:RETURN
  880. 01080 CLS:PRINT\"STOCK MARKET GAME"\
  881. 01090 PRINT "    This is a stock market game. The object of this game is 
  882.       to"\"make more money than your opponent. This is done by buying and
  883.       "\"selling stocks for a profit."\
  884. 01110 PRINT"The way you buy and sell stock is as follows. You roll two 
  885.       dice;"\"say A and B. You can either buy ''A'' shares of of stock
  886.       in a"
  887. 01120 PRINT "company ''B'' or buy ''B'' shares of stock in company ''A''.
  888.       The same"\"goes for selling except, obviously, you can't sell 
  889.       more shares"
  890. 01140 PRINT"of stock than you have. There is also a 5% brokerage fee on 
  891.       all"\"money transactions."
  892. 01150 PRINT\"Hit any key to continue ....";
  893. 01155 K0$=KEY:IF K0$="" THEN 1155
  894. 01160 CLS:PRINT "To make the price of a stock go up or down requires that
  895.       you"\"use your turn, not to buy or sell, but to raise or lower the"
  896. 01170 PRINT"price of any stock. This is done by raising ''A'' stock by 
  897.       ''B''"\"dollars or dropping ''A'' stock by ''B'' dollars.
  898.       It also works "
  899. 01180 PRINT"in reverse; that is you can raise or lower ''B'' stock by 
  900.       ''A''"\"dollars......"\
  901. 01190 PRINT "Option 1 is used to buy or sell stocks while,"
  902. 01200 PRINT "Option 2 is used to raise or lower the price of stock."
  903. 01210 PRINT "To sell or lower a stock, type in a negative number for 
  904.       shares."\
  905. 01220 PRINT "Everyone starts the game with "INT(T0)" dollars, cash in hand.
  906.       "\"The game is won when one player gets $100 cash in hand."
  907. 01230 PRINT"GOOD LUCK!!!"\"Hit any key to continue ..."
  908. 01235 K0$=KEY:IF K0$="" THEN 1235
  909. 01240 CLS:RETURN
  910. 01350 END
  911. 01360 CLS:PRINT\\\\\\"          ARE YOU SURE YOU WANT TO QUIT? (Y or N)";
  912. 01370 K0$=KEY:IF K0$="" THEN 1370
  913. 01380 IF K0$="Y" OR K0$="y" THEN END ELSE CLS:GOTO 230 áHINZ
  914.  
  915.  
  916.   A special note to Peter O'Rourke and all other club members using CP/M.
  917.  
  918.      Iεá casσá yo⌡ migh⌠ havσ forgotten¼á o≥ yo⌡ jus⌠ didn'⌠á know¼á wσá d∩ ì
  919. suppl∙ SIG/M¼á CPMU╟ anΣ CMU╟ publiπ domaiε softwarσ disks« Thesσ disk≤ arσ ì
  920. availablσ b∙ mai∞ orde≥ o≥ fo≥ thosσ ablσ t∩ attenΣ meetings¼ yo⌡ caε orde≥ ì
  921. theφá froφ DaviΣ SOUTA╥ whosσ addres≤ i≤ oε thσ insidσ fron⌠ cove≥ oµá eacΦ ì
  922. Catcher.
  923.  
  924.      Prices for these disks are as follows:
  925.  
  926.      SIG/M, CPMUG, CMUG catalog disks.  $6.00 each.    5 1/4" disks.
  927.      Software volumes (A/A)             $5.00 each.    5 1/4" disks.
  928.      Pascal tutor disk (as per Catcher) $5.00 each.    5 1/4" disks.
  929.           
  930.     Please add $1.00 for 3 1/2" disks each plus $1.50 per disk postage.
  931.      
  932. Thσá cataloτá  disk≤ (▓ off⌐ havσ FIN─ program≤ includeΣ t∩ assis⌠á iεá thσ ì
  933. locatioε iµ specifiπ files« Thσ catalogue≤ caε bσ "TYPEDó fo≥ printouts« è           DOCUMENTATION FOR DPP v1.0 - Disk physical parameters
  934.                        by Julian Loke, November 1985
  935.  
  936.      Onσá  oµ  thσ  nicσ thing≤ abou⌠ disδ  system≤  buil⌠  arounΣá floppy-ì
  937. disδ controlle≥ (FDC⌐ integrateΣ circuit≤ likσ thσ  WD179│ serie≤  (Westerε ì
  938. Digital⌐ i≤ tha⌠ onl∙ ß fe≈ change≤ iε softwarσ arσ needeΣ iε orde≥ t∩ reaΣ ì
  939. froφ anΣ writσ t∩ ß numbe≥ oµ differen⌠ CP/═ disδ formats« Thi≤ featurσ ha≤  ì
  940. alread∙á beeε implementeΣ oε thσ commercia∞ disδ system≤ availablσ fo≥á thσ ì
  941. Microbee.
  942.  
  943.      Therσ arσ ß numbe≥ oµ "Drivσ Redefinitionó program≤ arounΣ whicΦá lis⌠ ì
  944. ß numbe≥ oµ differen⌠ disδ format≤ fo≥ whicΦ ß  particula≥ drivσ caε bσ se⌠ ì
  945. up« However¼ iµ yo⌡ d∩ no⌠ havσ acces≤ t∩ thesσ programs¼ o≥ iµ yo⌡ neeΣ t∩ ì
  946. usσá ß disδ forma⌠ whicΦ i≤ no⌠ currentl∙ supported¼á theε yo⌡ wil∞ neeΣ t∩ ì
  947. figurσ ou⌠ thσ disδ parameter≤ yourself.
  948.  
  949.      Onσ oµ thσ firs⌠ (anΣ easiest⌐ task≤ i≤ t∩ worδ ou⌠ thσ disδá physica∞ ì
  950. parameters«á Thesσ arσ thσ rule≤ whicΦ thσ hardwarσ use≤ t∩ specif∙ thσ wa∙ ì
  951. datßá i≤á storeΣ oε ß disk¼á e.τ whethe≥ singlσ densit∙ o≥á doublσá densit∙ ì
  952. recordinτ i≤ used.
  953.  
  954.      DP╨ i≤ ß prograφ writteε fo≥ thσ MicroBeσ 56δ disδ system« I⌠ perform≤ ì
  955. ß fe≈ simple¼á non-destructivσ reaΣ test≤ oε ß disδ iε orde≥ t∩ determinσ ß ì
  956. fe≈áphysica∞áparameter≤ associateΣ witΦ thσ disδáformat.
  957.  
  958.      T∩ "measureó thσ parameter≤ oµ ß disk¼á usσ thσ DP╨ command« Therσ arσ ì
  959. n∩ parameter≤ (a⌠ present)«áAl∞ thσ number≤ displayeΣ arσ iε hex format.
  960.  
  961. Here is a sample run, performed on a "standard" Microbee disk:
  962.  
  963. A>dpp
  964.  
  965. Loτá (disδ physica∞ parameters⌐ fo≥ MicroBeσ 56δ disδ systeφ b∙ J.Lokσá No÷ ì
  966. 198╡ N∩ distributioε fo≥ profi⌠ withou⌠ author'≤ expres≤ permission
  967.  
  968. Mount "foreign" disk in drive B, then press RETURN ?
  969.  
  970. Data recording density          = Double
  971. Physical sector length (bytes)  = 0200
  972. Physical sectors per track      = 01..0A
  973. Number of sectors per track     = 0A
  974. Track size (128 byte records)   = 0028
  975. Readable tracks on side 0       = 00..27
  976. Readable tracks on side 1       = 28..4F
  977. Number of sides per disk        = 02
  978. Number of readable tracks       = 50
  979. Total disk capacity (kilobytes) = 0190
  980.  
  981. Returning to system
  982. A>_
  983.  
  984.      A≤á yo⌡á caεá see¼á  onl∙á ß limiteΣá amoun⌠á oµá informatioεá caεá bσ ì
  985. "measuredó  b∙  DPP¼  bu⌠ thi≤ ma∙ provσ ver∙ usefu∞ a≤  ß  firs⌠ step.
  986.  
  987.      Unfortunately¼á  therσá i≤á no⌠á enougΦ rooφ herσ t∩á explaiεá ho≈á t∩  ì
  988. completel∙ specif∙ ß disδ forma⌠ s∩ tha⌠ yo⌡ caε acces≤ ß "foreignó disδ oε ì
  989. you≥á system«á╔  hopσ  tha⌠  DP╨ i≤ usefu∞ t∩ someone«   Iµ yo⌡  havσ  an∙ comments¼ ì
  990. criticisms¼á o≥á enquiries¼á pleasσ leavσ ß messagσ fo≥ mσ oε thi≤ bulletiε ì
  991. board¼ RE║ DPP.èFOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-
  992. 
  993. From: MARK FIRUS         To:   ALL      Re:   Printer for Sales
  994. Hydrß Mode∞ B« 18░ character≤ pe≥ second« bidirectional« Caε takσ 4ó t∩ 14-ì
  995. 7/8ó paper«á 13▓ column≤ witΦ tracto≥ feed« Centronic≤ Interfacσ witΦ cablσ ì
  996. t∩á sui⌠ Microbee«á 200░ sheet≤ oµ 14ó fanfolΣ paper«á Fai≥ Condition«á An∙ ì
  997. offe≥ considered« Leavσ messagσ iε Genera∞ Sectioε fo≥ Marδ Firus
  998. 
  999. From: FRANK JONES        To:   ALL           Re:   Printer for sale
  1000. Epsoεá MX-8░á Printer«á Centronic≤ i/face«á FitteΣ witΦ Graftra° optioεá t∩ ì
  1001. allo≈á bit-imagσá graphics«á Al∞ manual≤ available«á Ver∙á gooΣá condition« ì
  1002. Reasoε fo≥ salσ - havσ purchaseΣ ne≈ printer«á Askinτ pricσ $30░ ONO«á Als∩ ì
  1003. RS-23▓ interfacσ t∩ sui⌠ Epsoε printe≥ - plug≤ insidσ printe≥ anΣ use≤á it≤ ì
  1004. owε powe≥ suppl∙ - typσ Epsoε 815░ witΦ 2δ buffer«á Support≤ graphics« $60« ì
  1005. Frictioεá feeΣá kit¼á "Micro-Grip"¼á t∩ sui⌠ abovσ printe≥ - $15«á Leavσá ß ì
  1006. messagσ oε thi≤ boarΣ fo≥ Franδ Jones¼ o≥ rinτ oε (052⌐ 78-3315.
  1007. 
  1008. From: JOHN WILSON        To:   ALL           Re:   WANTED
  1009. Wanted, any and all cheap HEWLETT PACKARD 150 software on 3.5 inch disk SSD 
  1010. leave phone No. soft ware type and first name on RBB╙ nessage file. Thanks.
  1011. 
  1012. From: ALLAN WOODS        To:   ALL           Re:   CIAB
  1013. Anyone with a CIAB for sale please contact Allan Woods Via RBBS.
  1014. 
  1015. From: MIRKO FLUHER       To:   ALL           Re:   wanted
  1016. Wanted 64k bee series II APC with 2 drives. Contact Paul 700-4650
  1017. 
  1018. From: DOUG MCKEAN        To:   ALL           Re:   REAL TIME CLOCK
  1019. RT├ fo≥ sale«á operate≤ oε interupts«á use≤ onl∙ ┤ I/╧ Port≤ Batter∙ backu≡ ì
  1020. froφá BE┼á Smal∞ PCBoarΣ fit≤ unde≥ mothe≥ brd«á caε displa∙  DA┘á DD/MM/Y┘  ì
  1021. HH:MM:S╙á  24Hr≤ o≥ 1▓ format«á Softwarσ free«á BrΣ 80x60mφ  Wil∞á install« ì
  1022. por⌠ addres≤ caε bσ use≥ selected«á FO╥ MOR┼ INF╧ rinτ Douτ 87╖ 265░  PRIC┼ ì
  1023. $40.0░      PS║ controlleΣ froφ Basic o≥ M/C
  1024. 
  1025. From: L. E. DUNN         To:   ALL           Re:  MONITOR FOR SALE
  1026. Hitachi HiRes monitor model MM1612P green screen. As new. $150.00
  1027. Phone 792-2038 A/H.      or      797-4968 B/H.
  1028.  
  1029. FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-
  1030.  
  1031.                          AN ANSWER TO A QUESTION
  1032. 
  1033. TO: Herbie Hancock  FROM: Paul Shannan       RE: House of Frankenstein
  1034. 
  1035. Iε orde≥ t∩ SE╫ thσ MONSTER¼á yo⌡ neeΣ t∩ havσ iε you≥ posessioε thσ LIVER¼ ì
  1036. thσ HEART¼á thσ NEEDL┼ anΣ thσ THREAD« Thσ conversatioε goe≤ somethinτ likσ ì
  1037. this:
  1038.  
  1039. you:      PUT LIVER <CR>
  1040. COMPUTER: IN TWO WORDS, TELL ME WHERE?
  1041. you:      IN MONSTER <CR>
  1042. you:      PUT HEART <CR>
  1043. COMPUTER: IN TWO WORDS, TELL ME WHERE?
  1044. you:      IN MONSTER <CR>
  1045. you:      THREAD NEEDLE <CR>
  1046. you:      SEW MONSTER <CR>
  1047.  
  1048. Fee∞á freσá t∩á contac⌠ mσ oε thσ RBB╙ iµ yo⌡ havσ an∙á furthe≥á questions« ì
  1049. Paul.  áHINZè                           LIMITING INPUT LENGTH
  1050.                               b∙ Pau∞ Shannon
  1051.  
  1052.      Havσá yo⌡á eve≥á wanteΣ t∩ limi⌠ thσ lengtΦ oµ aε INPU╘á strinτá iεá ß ì
  1053. program┐á  Thσá followinτ subroutinσ wil∞ allo≈ yo⌡ t∩ d∩á jus⌠á that«á Thσ ì
  1054. program¼á iε effect¼á define≤ it≤ owε INPU╘ statement«á  ┴ ro≈ oµ dashe≤ i≤ ì
  1055. printeΣá oε thσ screen¼á followeΣ b∙ ß lef⌠ facinτ arrow¼á whicΦ give≤á thσ ì
  1056. use≥á ß visua∞ cuσ a≤ t∩ thσ maximuφ alloweΣ length«á  BotΦ thσ BAC╦ SPACE¼ ì
  1057. anΣ thσ DELetσ key≤ havσ beeε re-programmeΣ t∩ d∩ ß destructivσ bacδ space¼ ì
  1058. s∩ therσ caε bσ nonσ oµ thσ usua∞ `bacδ spacσ confusion'.
  1059.  
  1060.      Thσá actua∞ INPU╘ routinσ start≤ a⌠ linσ 1000¼á thσá precedinτá line≤ ì
  1061. beinτ ß simplσ demonstratioε oµ it≤ use«á  Iε orde≥ t∩ cal∞ thσ subroutine¼ ì
  1062. yo⌡á mus⌠á le⌠á ├ bσ thσ linσ numbe≥ (░ t∩ 15)¼á anΣ le⌠ ╠ bσá thσá maximuφ ì
  1063. lengtΦ oµ thσ inpu⌠ string«á  Wheε thσ use≥ ha≤ presseΣ RETURN¼á thσá inpu⌠ ì
  1064. strinτ i≤ labelleΣ Z7$«á Pleasσ notσ tha⌠ thσ curso≥ ha≤ beeε turneΣ ofµ iε ì
  1065. linσ 103░ (POK┼ 220,30)«  T∩ turε i⌠ bacδ on¼ usσ POK┼ 220,111.
  1066.  
  1067.                                  INPUT.MWB
  1068.  
  1069. 00010 CLS:PRINT"Type in your name." [197]
  1070. 00020 C=1:REM Cursor Position (0 to 15) [077]
  1071. 00030 L=15:REM Max Length For Input [140]
  1072. 00040 GOSUB 1010 [166]
  1073. 00050 PRINT\"Pleased to meet you, "Z7$"." [174]
  1074. 00060 PRINT\"Type in the name of the official MBUG magazine." [198]
  1075. 00070 C=5:L=7:GOSUB1010 [146]
  1076. 00080 IF Z7$="Catcher" OR Z7$="CATCHER":PRINT\"Correct!"ELSE PLAY1,4 [130]
  1077. 00090 POKE 220,111: END [252]
  1078. 01000 REM SUBROUTINE TO INPUT DATA [193]
  1079. 01010 POKE 220,111:N=0:Z7$="":CURS C*64:FOR K=1 TO L:PRINT"-";:NEXTK [247]
  1080. 01020 PCG:PRINT CHR(141);:NORMAL:FOR K=1 TO L+1:PRINT CHR(8);:NEXT K [183]
  1081. 01030 Z=ASC(KEY): IF Z=128 OR Z=10: GOTO 1030 ELSE IF Z=13: POKE 220,30:
  1082.       RETURN [144]
  1083. 01040 IF(Z=8 OR Z=127) AND N<1 :CURS C*64: GOTO 1030 [089]
  1084. 01050 IF(Z=8 OR Z=127) AND N>-1: N=N-1: Z7$=Z7$(;1,N): PRINT CHR(127)
  1085.       "-"CHR(8);: GOTO 1030 [101]
  1086. 01060 N=N+1: IF N=L+1 THEN PLAY 7: N=L: CURS C*64+N: GOTO 1030 [163]
  1087. 01070 PRINT CHR(Z);: Z7$=Z7$+CHR(Z) [172]
  1088. 01080 GOTO 1030 [198]         áHINZ
  1089.  
  1090.  
  1091.    TECHNICAL NOTES * TECHNICAL NOTES * TECHNICAL NOTES * TECHNICAL NOTES 
  1092.  
  1093. ENC 22-211085       KEYBOARD PROBLEMS WITH 6.22E DISK BASIC AND CP/M.
  1094.  
  1095. PROBLEM║á WitΦá basiπá 6.22σ thσ RETUR╬ ke∙ i≤ sometime≤ interpreteΣ a≤á ß ì
  1096.           BREAK key.
  1097.           Some of the complaints are:
  1098.           1.   >RUN <cr> is ignored returning the prompt > .
  1099.           2.   >LIST <cr> is ignored.
  1100.           3.   Hitting the RETURN key will stop a program running.
  1101.           4.   Breaking out of auto line numbering.
  1102.           5.   Stopping in the middle of a directory display under CP/M.
  1103.  
  1104. SOLUTION║á Changσ IC┤ oε thσ baseboarΣ (74LS151)«á Thσ branΣ oµ I├ knowε t∩ ì
  1105. cause problems is Hitachi batch number 5C18.
  1106.  
  1107.    TECHNICAL NOTES * TECHNICAL NOTES * TECHNICAL NOTES * TECHNICAL NOTES è                            GROTNIK SOFTWARE
  1108.  
  1109.      GROTNI╦á softwarσá i≤ no≈ availablσ froφ thσ bazaar«á Iµ yo⌡á wisΦá t∩ ì
  1110. orde≥ an∙ oµ thei≥ products¼á belo≈ i≤ ß pricσ list« Thesσ caε onl∙ bσ mai∞ ì
  1111. order≤á a≤ wσ d∩ no⌠ kee≡ stocδ oµ an∙ oµ thσ product≤ anΣ wσ mus⌠ orde≥ iε ì
  1112. anythinτ yo⌡ require« 
  1113.  
  1114. BUNYIP║   
  1115.  
  1116. Aε australiaε adventurσ game«á Wheε playinτ thi≤ gamσ tr∙ singing¼ dancing¼ ì
  1117. talkinτ t∩ people¼á examininτ flie≤ etc« Thi≤ prograφ i≤ availablσ oε Tape¼ ì
  1118. o≥ eithe≥ disδ forma⌠ a⌠ $16.0░ plu≤ postage« Retai∞ Pricσ $20.00.é 32δ ONLY
  1119.  
  1120. GROTNI╦ WARS:
  1121.  
  1122. ┴á │á dimensiona∞ spacσ gamσ tha⌠ caε bσ playeΣ witΦ o≥á withou⌠á joystick« ì
  1123. Therσ arσ ninσ (9⌐ playinτ speeds¼ plent∙ oµ enemie≤ anΣ ninσ (9⌐ differen⌠ ì
  1124. kind≤ oµ object≤ t∩ shoo⌠ a⌠ anΣ ß variet∙ oµ galaxie≤ t∩ pla∙ in« Terrifiπ ì
  1125. graphics«á Availablσá oε tape¼á botΦ disδ format≤ anΣ 276┤ EPROM's«á Retai∞ ì
  1126. pricσ $20.00«  Ou≥ pricσ $16.0░ plu≤ postage« Require≤ 16δ Microbee.
  1127.  
  1128. FLIP:
  1129.  
  1130. Fli≡ i≤ ß puzzlσ gamσ wherσ yo⌡ havσ t∩ fli≡ thσ colour≤ oµ thσ 1╢á square≤ ì
  1131. iεá ßá 4x┤ griΣ s∩ the∙ arσ al∞ thσ samσ colour«á I⌠ i≤ no⌠ a≤ eas∙á a≤á i⌠ ì
  1132. sound≤ a≤ yo⌡ canno⌠ backtracδ oε you≥ las⌠ move«á I⌠ caε bσ playeΣ witΦ o≥ ì
  1133. withou⌠á ß joystick«á Tapσ pricσ $8.0░ (Retai∞ $10.00)«á Disδ pricσ (eithe≥ ì
  1134. format⌐ $10.4░ (Retai∞ $13.00⌐ o≥ 276┤ EPRO═ $10.40« Require≤ 16δ Microbee.
  1135.  
  1136. T-SHIRTS:
  1137.  
  1138. Piratebuste≥á t-shirt≤á arσ availablσ fo≥ $8.0░ (Retai∞ $10.00⌐á Size≤á arσ ì
  1139. 12,16,18,20« N∩ return≤ o≥ refund≤ iµ it≤ thσ wronτ size.
  1140.  
  1141. JOYSTICKS:
  1142.  
  1143. Microbeσ standarΣ joystick≤ $32.0░ (Retai∞ $40.00)
  1144.  
  1145. ADAPTERS:
  1146.  
  1147. Joysticδá adapter≤ arσ availablσ t∩ interfacσ you≥ standarΣ joysticδ s∩á i⌠ ì
  1148. wil∞ worδ oε you≥ Microbee« $24.0░ (Retai∞ $30.00)
  1149.  
  1150. UPGRADES:
  1151.  
  1152. Iµá yo⌡ havσ previousl∙ purchaseΣ ß Grotniδ Softwarσ gamσ oε an∙ forma⌠á i⌠ ì
  1153. ma∙ bσ returneΣ anΣ upgraded«á e.g« Bunyi≡ no≈ ha≤ savσ presen⌠ positioε t∩ ì
  1154. botΦ disδ anΣ tape« Thσ pricσ oµ upgrade≤ i≤ $5.0░ each« Thσ origina∞ disk¼ ì
  1155. tape¼ eproφ MUS╘ bσ returneΣ t∩ obtaiε you≥ upgrade.
  1156.  
  1157. Al∞á game≤á comσ witΦ extensivσ manual≤ (eacΦ ove≥ 1╢ pages⌐ witΦá tip≤á oε ì
  1158. playinτ thσ games¼ ho≈ the∙ worδ anΣ ho≈ t∩ ge⌠ thσ mos⌠ ou⌠ oµ them.
  1159.  
  1160. ORDERS:
  1161.  
  1162. Placσá you≥ order≤ througΦ thσ Bazaar«á Al∞ order≤ wil∞ requirσ postagσá a⌠ ì
  1163. thσ norma∞ ratσ a≤ thσ bazaa≥ wil∞ no⌠ operatσ a⌠ thσ Decembe≥ meeting«á Iµ ì
  1164. yo⌡ wan⌠ t∩ wai⌠ unti∞ Januar∙ meeting¼ pleasσ statσ s∩ oε you≥ order.
  1165. è                          Letter from Bob Denton 
  1166.  
  1167.      WitΦá referencσ t∩ thσ fina∞ tw∩ paragraph≤ oε pagσ 1┤ oµ thσ Novembe≥ ì
  1168. 8╡á issuσá oµá thσá Catcher¼á thσ write≥ refer≤ t∩ ßá prograφá tha⌠á ╔á haΣ ì
  1169. publisheΣá iεá issue≤á 10-8┤ anΣ 12-8┤ anΣ note≤ tha⌠ i⌠á work≤á onl∙á witΦ ì
  1170. certaiεá version≤á oµ BASIC«á Thi≤ wa≤ causeΣ b∙ thσ wa∙á thσá prograφá wa≤ ì
  1171. written« ╔ assumed¼ incorrectly¼ tha⌠ therσ wa≤ onl∙ onσ versioε oµ BASIC.
  1172.  
  1173.      Referrinτá t∩á pagσá 1▓ oµ thσ Octobe≥ 8┤ Catche≥ thσ thσá fi°á i≤á t∩ ì
  1174. change the EDASM line 460 from:
  1175.  
  1176. LD   HL,0B608            to        LD   HL,0B5FBh
  1177.  
  1178.      Thi≤á i≤ gooΣ fo≥ BASIC 6.22e«á I⌠ ma∙ no⌠ bσ valiΣ fo≥ othe≥ version≤ ì
  1179. oµ (iµ any⌐ oµ BASIC.
  1180.  
  1181. T∩á finΣ thσ righ⌠ value≤ fo≥ you≥ versioε oµ BASIC¼á ente≥ BASIC anΣá theε ì
  1182. type:
  1183.  
  1184. PRINT PEEK (129)    answer is 181  (6.22e)
  1185. PRIN╘ PEE╦ (128⌐    answe≥ i≤ 25▒  (6.22e⌐ 
  1186. translatσá thesσá value≤á int∩á he° (B╡ FB⌐ anΣ substitutσá int∩á linσá 46░ ì
  1187. referreΣ t∩ above.
  1188.  
  1189. Do a cold boot and read the message on the top of your screen ? ED.
  1190.  
  1191. Fo≥á thosσá wh∩á useΣ thσ prograφ iε Decembe≥ 8┤ thσ linσ t∩ fi° u≡ i≤á éá 8é ì
  1192. line≤á u≡á froφá thσá bottoφ oµ pagσ 16«á Thesσá tw∩á program≤á arσá nearl∙ ì
  1193. identica∞á version≤á anΣ thσ Decembe≥ onσá wa≤á printeΣá accidentally«á 
  1194.  
  1195.  
  1196.  
  1197.                         Letter from Michael Ingall
  1198.  
  1199.      ╔á woulΣá likσ somσ hel≡ iε gettinτ a⌠ informatioε iε memor∙ s∩ ╔á caε ì
  1200. usσ i⌠ (graphics⌐ iε othe≥ programs«á Fo≥ instance¼á thσ knigh⌠ chess-piecσ ì
  1201. iε thσ recen⌠ competition¼á iε thσ forφ oµ ß memor∙ dum≡ withou⌠ havinτá t∩ ì
  1202. g∩á througΦá thσ tediou≤ busines≤ oµ wadinτ througΦ thσ memor∙ vißá monito≥ ì
  1203. anΣ writinτ dowε thσ figures« ╔ wrotσ ß basiπ prograφ t∩ dum≡ i⌠ oε tapσ a≤ ì
  1204. ßá serie≤á oµá DAT┴á statement≤ bu⌠ m∙ prograφá occupieΣá thσá samσá memor∙ ì
  1205. locatioεá a≤á thσ BeeArtistiπ prograφ (0100-0D7F⌐ whicΦ mean≤á the∙á canno⌠ ì
  1206. botΦá bσá loadeΣá a⌠ thσ samσ timσ anΣ ╔ can'⌠ finΣ wherσ t∩á shif⌠á i⌠á iε ì
  1207. memor∙ s∩ thσ wholσ thinτ doesn'⌠ crash¼ o≥ colΣ boot« Sketch-PaΣ generate≤ ì
  1208. ß basiπ prograφ whicΦ caε bσ dumpeΣ a≤ eithe≥ harΣ cop∙ o≥ oε cassettσá bu⌠ ì
  1209. BeeArtistiπ doesn'⌠ worδ tha⌠ way«á Caε anyonσ hel≡ me┐á ╔ caε bσ contacteΣ ì
  1210. througΦá thσá edito≥á oµ thσ Catche≥ o≥ a⌠ TH┼á RECTORY¼á 2░á FRANCI╙á St.¼ ì
  1211. TATURA¼ 3616« Phonσ No« (058⌐ 24-1170.
  1212.  
  1213.  
  1214.  NEW SOFTWARE   NEW SOFTWARE   NEW SOFTWARE   NEW SOFTWARE   NEW SOFTWARE   
  1215.  
  1216.      T∩á al∞ user≤ oµ Graphic≤ Wordbee«á Oε ß recen⌠ visi⌠ t∩ thσá Microbeσ ì
  1217. Sho≡á iε Bulleen¼á ╔ noticeΣ oε thσ shelµ fo≥ sale¼á ß disδ containinτ botΦ ì
  1218. Graphic≤ Wordbeσ anΣ Telcoφ 2.2«á Thi≤ packagσ ha≤ ß manua∞ fo≥ eacΦ oµ thσ ì
  1219. programs«á Thosσá peoplσ wh∩ havσ beeε "roaΣ testingó thσ Graphic≤á packagσ ì
  1220. shoulΣá bσ interesteΣ iε it'≤ releasσ togethe≥ witΦ ß comprehensivσá owner≤ ì
  1221. manual. For more information contact your Microbee software supplier.
  1222.  
  1223.  NEW SOFTWARE   NEW SOFTWARE   NEW SOFTWARE   NEW SOFTWARE   NEW SOFTWAREè  BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR
  1224.       CODE  DESCRIPTION                         PRICE
  1225.                   "The Catcher"
  1226.         BC02  Volume 2 (Oct.83-Sept.84)                     $15.00
  1227.         BC03  Volume 3 (Oct.84-Sept.85)                     $15.00
  1228.         TC01  Back Issues (single)                          $ 1.50
  1229.         TC02  Back Issues (Vol 2 Nos. 6/7)                  $ 3.00
  1230.         CS30  Blank C-30 Cassettes                          $ 1.50
  1231.         CB30  Blank C-30 Cassettes (20 per box)             $25.00
  1232.         DSS5  Blank 5.25" Disks (Xidex DSDD)                $ 4.00
  1233.         DSB5  Blank 5.25" Disks (10 per box)                $35.00
  1234.         SSD5  Blank 5.25" Disks (SSDD)                      $ 2.00
  1235.         SS35  Blank 3.5" Disks (FUJI SSDD)                  $ 6.00
  1236.         SB35  Blank 3.5" Disks (10 per box)                 $52.00
  1237.         DB60  Disk Storage Box 3.5" (Lockable holds 60)     $30.00   
  1238.         DB35  Disk Storage Box 3.5" (holds 35)              $15.00
  1239.         DB85  Disk Storage Box 5" (Lockable holds 85)       $18.00  
  1240.         DB70  Disk Storage Box 5" (holds 70)                $15.00
  1241.         DB10  Disk Library Box 5" (holds 10)                $ 3.00
  1242.         DB11  Rubycliff Library Box (holds 10)              $ 4.00
  1243.         BA01  BeeArtistic (Graphic S/W)                     $45.00
  1244.         FP01  Flashprint (with Flashkey)                    $40.00
  1245.         WC04  WILDCARDS 4                                   $13.00
  1246.         BB01  Basic for Beginners (D. Kenney)               $15.00
  1247.         DC01  Dust Covers for 'BEE                          $ 6.00
  1248.         MB01  Magazine Binders (for Online etc.)            $ 7.00
  1249.                           PR80  Carbon Printer Ribbon
  1250.                    (suit xyz.80/100 printers)               $ 9.00
  1251.       **PP05  500 sheets cont. printer paper
  1252.                    (240mm wide (2.5Kg))                     $11.00
  1253.       **CP25  250 sheets five colours as PP05 (1.3 Kg)      $12.00
  1254.               Grotnik S/W available     (see this issue)
  1255.  
  1256.      ** not normally available for postal purchase 
  1257.     All postal orders to be sent to: MBUG AUSTRALIA SALES
  1258.                                      P.O.BOX 253, COBURG 
  1259.                                      VICTORIA  3058
  1260. T∩ avoiΣ delays¼ al∞ order≤ mus⌠ includσ cheque¼ posta∞  orde≥ o≥  BankcarΣ  ì
  1261. authorizatioεá fo≥á thσ tota∞ amoun⌠ (inc«á  posta∞ ªá  handlinτá charges)«  ì
  1262. Allo≈ 1┤ day≤ fo≥ thσ returε oµ goods¼ o≥ pick-u≡ a⌠ thσ nex⌠ meeting« 
  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.                    MINIMUM POSTAL ORDER AMOUNT $10.00     
  1281.   BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAARè     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. WHERE DID YOU HEAR ABOUT MBUG:__________________________________
  1294.  
  1295. If RENEWIN╟ membership¼  attacΦ 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 WILL NOT be sent unless specifically requested.
  1307.  
  1308.                           YEARLY FEES   
  1309.  
  1310.                RENEWAL OF MEMBERSHIP         [ ]
  1311.                FULL (City)         @ $20.00  [ ]
  1312.                OVERSEAS            @ A$20.00 [ ]
  1313.                COUNTRY             @ $17.00  [ ]
  1314.                STUDENT             @ $15.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.