home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug012.arc / JAN1986.CAT < prev    next >
Text File  |  1979-12-31  |  61KB  |  1,107 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.      -------------------------------------------------------------èé        FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟ 
  64.  
  65.      B∙ thσ timσ yo⌡ ge⌠ this¼á Christma≤ wil∞ probabl∙ havσ comσ anΣ gone« ì
  66. ╔ hopσ yo⌡ al∞ haΣ ß safσ anΣ happ∙ christma≤ day« 
  67.  
  68.      ╔á woulΣ likσ t∩ thanδ al∞ thσ peoplσ wh∩ camσ to¼á (ove≥ 100⌐ anΣ al∞ ì
  69. thosσá wh∩ gavσ thei≥ assistancσ oε part∙ night«á Froφ al∞ account≤ ßá mos⌠ ì
  70. enjoyablσá nigh⌠ wa≤ haΣ b∙ all«á Wσ consumeΣ ove≥ 20░ sausage≤á anΣá dranδ ì
  71. almos⌠ 15░ bottle≤ oµ sof⌠ drink« ╔ thinδ onσ o≥ tw∩ haΣ somethinτ ß littlσ ì
  72. harde≥ thaε soft« 
  73.  
  74.      Thσá autho≥ oµ aε articlσ recentl∙ publisheΣ iε thσ Catche≥ brough⌠ m∙ ì
  75. attentioε t∩ thσ fac⌠ tha⌠ ╔ haΣ changeΣ hi≤ origina∞ documentatioε wheεá ╔ ì
  76. pu⌠ i⌠ iε thσ magazine« A≤ thσ prograφ anΣ documentatioε werσ placeΣ oε thσ ì
  77. publiπá domain¼á ╔á fel⌠á ╔ coulΣ usσ somσ editoria∞ liciencσá iεá slightl∙ ì
  78. alterinτ thσ forma⌠ oµ thσ pape≥ (withou⌠ changinτ thσ conten⌠ o≥á context⌐ ì
  79. s∩ ╔ coulΣ fi⌠ i⌠ oε ß standarΣ sizσ page« I⌠ appear≤ ╔ havσ takeε to∩ mucΦ ì
  80. fo≥á granteΣá fo≥ thi≤ autho≥ s∩ ╔  woulΣ likσ t∩ apologizσ t∩á thσá persoε ì
  81. concerned« 
  82.  
  83.      Thi≤á montΦá wσá havσ aε assortmen⌠ oµ prograφ type≤ fo≥ yo⌡á t∩á pla∙ ì
  84. with«á Thesσ includσ MBASIC¼á DBaseII¼á MICROWORL─ BASIC¼á anΣ somσ usσ fo≥ ì
  85. LOAD¼ anΣ DD╘ fo≥ ß patcΦ t∩ MICROWORL─ BASI├ 56╦ SERIE╙ 2« ╔ woulΣ likσ t∩ ì
  86. thanδ thσ contributor≤ fo≥ thesσ non-MW┬ listings« Don'⌠ forge⌠ yo⌡ wil∞ bσ ì
  87. paiΣ fo≥ anythinτ includeΣ iε thσ Catcher« 
  88.  
  89.      Oε thσ subjec⌠ oµ listings¼á ╔ havσ ß couplσ oµ listing≤ ╔ woulΣá likσ ì
  90. t∩á use¼á bu⌠á ╔ don'⌠ kno≈ wherσ the∙ camσ froφ o≥ wh∩ wrotσá them«á Iµá ╔ ì
  91. canno⌠ finΣ aε author'≤ name¼á n∩ matte≥ ho≈ gooΣ thσ article¼á i⌠ wil∞ no⌠ ì
  92. bσá published«á Withou⌠ ß namσ t∩ pu⌠ t∩ thσ article¼á ╔ don'⌠ kno≈ iµ ╔ aφ ì
  93. usinτá somethinτá tha⌠ i≤ no⌠ propriety«á ╔ anΣ thσ cluΓ don'⌠ wan⌠á t∩á bσ ì
  94. sued.
  95.  
  96.      Don'⌠á forge⌠ thσ WordSta≥ classe≤ tha⌠ begiε iεá February«á Wσá stil∞ ì
  97. havσá ß fe≈ place≤ lef⌠ fo≥ thi≤ class«á Wσ wil∞ bσ showinτ yo⌡ thσá basic≤ ì
  98. anΣ ß lo⌠ oµ trick≤ yo⌡ caε usσ witΦ WordStar« Thi≤ wil∞ al∞ bσ donσ iε thσ ì
  99. air-conditioneΣ comfor⌠ oµ Microbee'≤ sale≤ office«á Thσ time≤ anΣ locatioε ì
  100. oµ thσ classe≤ ha≤ beeε publisheΣ iε thσ previou≤ tw∩ Catchers« 
  101.  
  102.      Jus⌠á ß reminder¼á anΣ ß notσ t∩ ne≈ member≤ anΣ reader≤ oµ MBUG¼á thσ ì
  103. number≤á includeΣ a⌠ thσ enΣ oµ eacΦ linσ iε (some⌐ .MW┬á listing≤á ([197]⌐ ì
  104. arσá checksuφ numbers«á The∙ arσ no⌠ iε al∞ listing≤ a≤ ╔ don'⌠ alway≤ havσ ì
  105. timσ t∩ d∩ them« Thesσ number≤ arσ no⌠ includeΣ a≤ par⌠ oµ thσ listing≤ bu⌠ ì
  106. arσ therσ t∩ assis⌠ yo⌡ iε typinτ iε you≥ listinτ correctly«á Fo≥ thσ newe≥ ì
  107. members¼á thσ prograφ t∩ makσ thesσ number≤ d∩ wha⌠ the∙ arσ designeΣ t∩ d∩ ì
  108. i≤á iε thσ Augus⌠ Catcher¼á anΣ ß modificatioε t∩ thσ prograφ i≤ listeΣá iε ì
  109. thσ Septembe≥ issuσ oµ thσ Catcher«á Iµ yo⌡ prefer¼á thesσ listing≤ arσá iε ì
  110. Microbeσá System≤ owε newslette≥ "ONLINE"«á Bacδ issue≤ oµ "ONLINEó ma∙á bσ ì
  111. obtaineΣá froφá you≥á Microbeσ dealer«á Bacδ issue≤ oµ Thσ Catche≥á ma∙á bσ ì
  112. obtaineΣ througΦ thσ bazaar.
  113.  
  114.  
  115.    ╔ hopinτ yo⌡ anΣ you≥ familie≤ havσ ß happ∙ anΣ prosperou≤ Ne≈ Year.
  116.  
  117. >ANDREW
  118.  
  119. DISCOUN╘ NUMBE╥ 820
  120.  
  121. é        FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟ è                                PRIME . MWB
  122.  
  123. Notσ iε linσ 28░ thσ ^╟ character« Thi≤ i≤ n∩ mistake« I⌠ caε bσ entereΣ iε ì
  124. an∙ Basiπ line«á I⌠ wil∞ no⌠ appea≥ iε you≥ listinτ a≤ ^╟ bu⌠ i⌠ wil∞ causσ ì
  125. thσá bel∞ t∩ rinτ wheε prograφ i≤ listeΣ anΣ i⌠ wil∞ appea≥ a≤ aε underlinσ ì
  126. characte≥ (SHIF╘ DELETE⌐ iε edi⌠ mode«á ED.
  127.  
  128. 00001 REM             **** PRIME NUMBERS **** 
  129. 00002 REM   by Graham Coward ------  Mbug # 531 
  130. 00003 REM   This program can calculate all prime numbers 
  131. 00004 REM   (a prime number is evenly divisible only by itself and one)
  132. 00005 REM   up to a maximum of six figures.
  133. 00006 REM   While it is possible to do this with a simpler program
  134. 00007 REM   my aim was to eliminate unneccessary calculations and thus 
  135. 00008 REM   reduce running time.
  136. 00009 REM   The program initialises by calculating the prime numbers
  137. 00010 REM   which are less than the square root of 1,000,000 plus the next
  138. 00011 REM   highest prime (1009). These are stored in array A0.
  139. 00012 REM   You are then asked to enter the lower and upper limits that
  140. 00013 REM   you want printed and whether output is to printer or screen.
  141. 00014 REM   The program then tests all odd numbers (2 is the only even prime)
  142. 00015 REM   between the specified limits by dividing them by the numbers stored
  143. 00016 REM   in array A0. If any of these calculations comes out evenly, the
  144. 00017 REM   number is not prime and the program jumps to the next odd number.
  145.  
  146. 00018 REM   *******************************************************
  147. 00019 REM   WIN A $10.00 VOUCHER TO SPEND AT THE BAZAAR      
  148. 00020 REM   I challenge anyone to write a Basic program that will 
  149. 00021 REM   perform the same functions, FASTER. ED
  150.  
  151. 00100 CLS:CLEAR:DIM A0(168):C=1:A0(1)=3:A1=1:CURS87:UNDERLINE:PRINT"
  152.       PRIME NUMBERS ":NORMAL [152]
  153. 00110 CURS256:PRINT"This program will print a list of prime numbers
  154.       up to a maximum":PRINT"of six figures. The upper and lower
  155.       limits may be chosen at" [019]
  156. 00120 PRINT"will and the output may be directed to either printer or
  157.       screen.":CURS985:PRINT"PLEASE WAIT"; [092]
  158. 00130 A1=A1+2:IF A1>1009 THEN 180 [029]
  159. 00140 FOR D=1 TO C:IF FRACT(A1/A0(D))=0 THEN NEXT*D 130 [034]
  160. 00150 IF A0(D)*A0(D)>A1 THEN NEXT*D 170 [127]
  161. 00160 NEXT D [026]
  162. 00170 C=C+1 : A0(C)=A1 : GOTO 130 [172]
  163. 00180 CLS : INPUT"Lower Limit?"A3 : INPUT"Upper Limit?"A2 :
  164.       IF A2>999999 THEN 180 [167]
  165. 00190 PRINT"Output to Printer or Screen? (P or S)" [088]
  166. 00200 S1$=KEY$ : IFS1$="" THEN 200 [055]
  167. 00210 IF S1$="P" OR S1$="p" THEN INPUT"Press <RETURN> when printer
  168.       ready!" Z1$ : OUT#1 [192]
  169. 00220 CLS : PRINT"PRIME NUMBERS" [026]
  170. 00230 IF A3<3 : PRINT [F8.0A3]; : A3=A3+1 : GOTO 230 [212]
  171. 00240 IF FRACT(A3/2)=0 : A3=A3+1 [227]
  172. 00250 IF A3>A2 THEN 280 [020]
  173. 00260 FOR I=1 TO 168 : IFA0(I)*A0(I)>A3 THEN PRINT [F8.0A3]; : A3=A3+2 :
  174.       NEXT*I 250 [113]
  175. 00270 IF FRACT(A3/A0(I))=0 THEN LET A3=A3+2 : NEXT*I 250 ELSE NEXT I [206]
  176. 00280 PRINT\ "FINISHED" : OUT#0 : PRINT"PRESS <M> FOR MORE OR 
  177.       <Q> TO QUIT" [097]
  178. 00290 S1$=KEY$ : IF S1$="" THEN 290 ELSE IF S1$="q" OR S1$="Q" THEN CLS :
  179.       END ELSE 180 [122] áHINZè                     DATE CHANGE ROUTINE FOR Dbase II
  180.                             D.Priebbenow Nov 84
  181.  
  182.     Thσá routinσá datechng.cmΣ i≤ ß dbasσ routinσ originall∙ writteεá abou⌠ ì
  183. twelvσ month≤ ag∩ t∩ cleaε u≡ somσ inconsistan⌠ entrie≤ iε ß datσ field.
  184.  
  185.      I⌠ accept≤ date≤ iε thσ forφ m/d/y∙ o≥ m/dd/y∙ o≥ mm/d/y∙ anΣ convert≤ ì
  186. theφ t∩ thσ forφ dd/mm/yy«á WitΦ ß littlσ modificatioε i⌠ caε bσ changeΣ t∩ ì
  187. reforma⌠ an∙ datσ forma⌠ anΣ a≤ sucΦ shoulΣ bσ quitσ usefull.
  188.  
  189.  
  190. *datechng.cmd D.Priebbenow Nov 84
  191. *date conversion
  192. *this routine changes dates in the form m/d/yy or mm/d/yy or m/dd/yy
  193. *or mm/dd/yy to the form dd/mm/yy.
  194. *it was set up to correct date fields entered incorrectly in a data base.
  195. * use database
  196.  
  197. set talk off
  198. go top
  199. do while .not. eof
  200.  store 1 to n
  201.  do while n<3
  202.   if n=1
  203.    store "date:in" to datefld
  204.   else
  205.    store "date:out" to datefld
  206.   endif
  207.  
  208.   if $(&datefld,2,1)= "/" .or.$(&datefld,3,1)="/"
  209.    store &datefld to dte
  210.    do case
  211.     case $(dte,2,1)="/"
  212.      store val($(dte,1,1))+100 to mth
  213.      store $(dte,3) to dte
  214.     case $(dte,3,1)="/"
  215.     store val($(dte,1,2))+100 to mth
  216.     store  $(dte,4) to dte
  217.    endcase
  218.  
  219.    do case
  220.     case $(dte,2,1)="/"
  221.     store val($(dte,1,1))+100 to day
  222.     store $(dte,3) to yr
  223.     case  $(dte,3,1)="/"
  224.     store val($(dte,1,2))+100 to day
  225.     store $(dte,4) to yr
  226.    endcase
  227.   replace &datefld with $(str(day,3),2,2)+"/"+$(str(mth,3),2,2)+"/"+yr
  228.   endif
  229. store n+1 to n
  230. enddo
  231.  
  232. skip
  233.  
  234. enddo
  235.  
  236. set talk on
  237. * eof datechng.cmd            áHINZè                                CROSSES.MWB
  238.  
  239. 00001 INVERSE:NORMAL:GOSUB 2000:GOTO 1000 [000]
  240. 00010 IF G1$(1)=X1$ AND G1$(5)=X1$ AND G1$(9)=" 9":A1$="9":RETURN [046]
  241. 00011 IF G1$(1)=" 1" AND G1$(5)=O1$ AND G1$(9)=O1$ THEN LET A1$="1" [205]
  242. 00013 IF G1$(5)=O1$ AND G1$(7)=O1$ AND G1$(3)=" 3":LET A1$="3" [222]
  243. 00048 IF G1$(5)=O1$ AND G1$(3)=" 3" AND G1$(7)=" 7":LET A1$="7" [193]
  244. 00050 A1$="":IF G1$(5)=O1$ AND G1$(1)=" 1" AND G1$(9)=" 9" THEN
  245.       LET A1$="9" [002]
  246. 00052 IF G1$(5)=X1$ AND G1$(9)=X1$ AND G1$(1)=" 1":A1$="1" [010]
  247. 00053 IF G1$(5)=X1$ AND G1$(3)=X1$ AND G1$(7)=" 7":A1$="7" [023]
  248. 00054 IF G1$(5)=X1$ AND G1$(7)=X1$ AND G1$(3)=" 3":A1$="3" [016]
  249. 00055 FOR Z=1 TO 2:IF Z=1 THEN LET D1$=X1$ ELSE LET D1$=O1$ [158]
  250. 00056 FOR I=1 TO 3:IF G1$(I)=D1$ AND G1$(I+3)=D1$ AND G1$(I+6)=
  251.       STR(I+6):A1$=STR(I+6) [141]
  252. 00057 IF G1$(I)=D1$ AND G1$(I+6)=D1$ AND G1$(I+6)=STR(I+6):A1$=
  253.       STR(I+6) [227] 
  254. 00058 IF G1$(I+3)=D1$ AND G1$(I+6)=D1$ANDG1$(I)=STR(I):A1$=STR(I) [031]
  255. 00060 NEXT I [238]
  256. 00065 FOR I=1 TO 7 STEP 3 [082]
  257. 00070 IF G1$(I)=D1$ AND G1$(I+1)=D1$ AND G1$(I+2)=STR(I+2):A1$=
  258.       STR(I+2) [205]
  259. 00072 IF G1$(I)=D1$ AND G1$(I+2)=D1$ AND G1$(I+1)=STR(I+1):A1$=
  260.       STR(I+1) [205]
  261. 00074 IF G1$(I)=STR(I) AND G1$(I+1)=D1$ AND G1$(I+2)=D1$:A1$=STR(I) [023]
  262. 00076 NEXT I [245]
  263. 00077 NEXT Z [007]
  264. 00090 IF G1$(5)=" 6" AND A1$="" THEN LET A1$="6" [028]
  265. 00095 IF A1$<>"" THEN RETURN [096]
  266. 00096 I=INT(RND*9)+1:IF VAL(G1$(I))<>0:LET A1$=STR(I):RETURN [080]
  267. 00097 GOTO 96 [024]
  268. 00099 REM *** CHECK IF WON *** [114]
  269. 00110 J=0:FOR Q=1 TO 2:IF Q=1:LET D1$=O1$ ELSE LET D1$=X1$ [176]
  270. 00120 FOR I=1 TO 3:IF G1$(I)=D1$ AND G1$(I+3)=D1$ AND G1$(I+6)=D1$
  271.       THEN NEXT*I 190 [212]
  272. 00125 NEXT I [032]
  273. 00130 FOR I=1 TO 7 STEP 3:IF G1$(I)=D1$ AND G1$(I+1)=D1$ AND
  274.       G1$(I+2)=D1$ THEN NEXT*I 190 [066]
  275. 00135 NEXT I [033]
  276. 00140 IF G1$(1)=D1$ AND G1$(5)=D1$ AND G1$(9)=D1$ THEN LET J=1 [126]
  277. 00150 IF G1$(3)=D1$ AND G1$(5)=D1$ AND G1$(7)=D1$ THEN LET J=1 [127]
  278. 00160 IF J=1 THEN NEXT*Q 195 [102]
  279. 00165 NEXT Q [044]
  280. 00170 FOR I=1 TO 9:IF VAL(G1$(I))<>0 THEN NEXT*I 180 ELSE NEXT I [026]
  281. 00175 CURS 10,10:PRINT"STALEMATE":PLAY 5;6;7;4;3;2;8;9;10:GOTO 2100 [254]
  282. 00180 RETURN [121]
  283. 00190 CURS 11,10:PRINT "Player";D1$;" wins!":PLAY 10;11;12;9;8;7;13;
  284.       14;15;6;5;4;16;17;18;3;2;1;19;20;21:GOTO 2100 [046]
  285. 00500 REM ***** PLAYER'S GO ***** [149]
  286. 00505 CURS 30:IF P=1 THEN PRINT X1$ ELSE PRINT O1$ [132]
  287. 00507 IF P1$="1" AND P=2 THEN GOSUB 10:GOTO 530 [047]
  288. 00510 CURS 10,8:PRINT "SQUARE (1-9) ?  ";CHR$(127); [253]
  289. 00520 A1$=KEY$:IF VAL(A1$)>9 OR VAL(A1$)=0 THEN 520 ELSE PRINT A1$ [107]
  290. 00530 A=INT(VAL(A1$)) [028]
  291. 00540 IF VAL(G1$(A))=0 THEN CURS 10,10:PRINT"SQUARE ALREADY TAKEN":
  292.       PLAY 10,3:CURS 10,10:PRINT [A32 32]:GOTO 510 [202]
  293. 00550 IF P=1 THEN LET G1$(A)=X1$ ELSE LET G1$(A)=O1$ [048]
  294. 00560 RETURN [123]
  295. 01000 CLS:INVERSE:CURS 20:PRINT" NAUGHTS AND CROSSES ":NORMAL [239]è01010 PRINT\"This is the original three in a row game of Naughts and
  296.       Crosses. It can be played with either one player (against the
  297.       computer), or two players against each other." [229]
  298. 01020 PRINT"How many players (1/2) ? "; [052]
  299. 01030 P1$=KEY$:IF P1$<>"1"AND P1$<>"2" THEN 1030 ELSE PRINT P1$ [198]
  300. 01037 DIM G1(9):FOR I=1 TO 9:G1$(I)=STR(I):NEXT I [093]
  301. 01040 X1$=" X":O1$=" O" :CLS [021]
  302. 01043 FOR P=1 TO 2:CURS 1,1 [071]
  303. 01050 FOR Y=1 TO 7 STEP 3 [189]
  304. 01060 PRINT" ";G1$(Y);" ";CHR$(130);" ";G1$(Y+1);" ";
  305.       CHR$(130);" ";G1$(Y+2) [018]
  306. 01065 IF Y<>7 THEN PRINT [A4 129];CHR$(131);[A4 129];
  307.       CHR$(131);[A4 129] [054]
  308. 01070 NEXT Y [096]
  309. 01075 GOSUB 110 [223]
  310. 01080 GOSUB 500:NEXT P [167]
  311. 01090 GOTO 1043 [203]
  312. 01999 END [179]
  313. 02000 P=63488+16 [238]
  314. 02010 FOR I=P TO P+16*3-1 [192]
  315. 02020 READ D:POKE I,D:NEXT I [008]
  316. 02025 RETURN [169]
  317. 02030 DATA 0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0 [223]
  318. 02040 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 [244]
  319. 02050 DATA 8,8,8,8,8,8,8,255,8,8,8,8,8,8,8,8 [089]
  320. 02100 PLAY 4:CURS 8,13:PRINT"Do you want another game (Y/N) ? "; [013]
  321. 02110 A1$=KEY$:IF A1$<>"Y" AND A1$<>"N" THEN 2110 [130]
  322. 02120 PRINT A1$:IF A1$="N" THEN PRINT"Catch you later!":END [032]
  323. 02130 RUN [187]                    áHINZ
  324.  
  325.  
  326.  
  327.                           LETTER FROM R. SHEPHERD
  328.  
  329.      I≤ therσ anyonσ ou⌠ therσ wh∩ ha≤ used¼á o≥ i≤ usinτ ß Microbeσ witΦ ß ì
  330. Dreamdisδá systeφá connecteΣá t∩á ß Multiproφ boarΣ a≤á wel∞á a≤á thσá disδ ì
  331. controlle≥ fo≥ thσ 5░ wa∙ expansioε oε thσ Bee┐á Iµ s∩ coulΣ yo⌡ contac⌠ mσ ì
  332. oε 401-3072.
  333.  
  334. AN─á I╙á I╘ POSSIBL┼ T╧ HAV┼ ┴ DREAMDIS╦ COLUM╬ I╬ TH┼ CATCHE╥ A╙á ╔á THIN╦ ì
  335. THERE WOULD BE A FEW PEOPLE WHO HAVE SUCH SYSTEMS.
  336.  
  337. Thanking you.       R. Shepherd.
  338.  
  339. It would be nice if a Dreamdisk supplier or user would write a column.  ED
  340.  
  341.                                  MAZE1.MWB
  342.  
  343.      Continued from page 7
  344. 00590 CURS 10+J*3,I+2  [224]             
  345. 00600 IF M(I,J)=0 THEN PRINT"XXX";  [050]
  346. 00610 IF M(I,J)=1 THEN PRINT"   ";  [044]                          
  347. 00620 IF M(I,J)=2 THEN PRINT"OOO";  [027]                          
  348. 00630 IF M(I,J)=5 THEN PRINT CHR(163);CHR(163);CHR(163);  [188]     
  349. 00640 IF M(I,J)=9 THEN PRINT" * ";  [097]                          
  350. 00650 NEXT J  [036]                                              
  351. 00660 NEXT I  [036]                                              
  352. 00670 USR(32774)  [239]                                         
  353. 00680 RETURN  [126] è                                 MAZE1.MWB
  354.  
  355. 00100 REM data maze by john quinn  [145]                      
  356. 00110 CLS : DIMM(11,16)  [027]                                  
  357. 00130 DATA 1,1,1,1, 1,1,1,1, 1,1,5,5, 5,1,1  [001]            
  358. 00140 DATA 1,5,5,5, 5,5,5,5, 5,5,5,1, 5,5,1  [038]            
  359. 00150 DATA 1,5,1,1, 1,1,1,1, 1,1,1,1, 1,5,1  [255]            
  360. 00160 DATA 1,5,1,2, 2,1,1,1, 5,5,5,1, 1,1,1  [010]            
  361. 00170 DATA 1,1,1,2, 1,1,2,1, 1,1,5,5, 5,5,0  [010]            
  362. 00180 DATA 1,1,1,1, 2,1,2,1, 5,1,1,1, 1,1,1  [000]            
  363. 00190 DATA 1,5,1,2, 1,2,2,1, 5,5,5,5, 5,1,5  [026]            
  364. 00220 DATA 1,1,1,1, 1,1,1,1, 1,1,5,5, 5,5,5  [009]              
  365. 00230 FOR U=1 TO 10 : FOR V=1 TO 15  [049]                              
  366. 00240 READ N : M(U,V)=N  [058]                                     
  367. 00250 NEXT V : NEXT U  [250]                                        
  368. 00255 X=INT(RND*10) :Y=INT(RND*14) :IFM(X,Y)=0 OR M(X,Y)=5 THEN 255 [101]
  369. 00260 U=INT(RND*9)+1 :V=INT(RND*14)+1 :IF M(U,V)=0 THEN 260  [083]  
  370. 00270 M(U,V)=9  [132]                                           
  371. 00275 GOSUB X560  [185]                                           
  372. 00280 CLS:PRINT"   You are standing on a platform suspended several
  373.       hundred metres above a teeming jungle. Use the <N>, <S>,
  374.        <E>, & <W> "  [213]                                            
  375. 00290 PRINT"keys to move and <L> to look. Explore the maze for a while,
  376.       then write your own maze into the data statements at the start of"
  377.       [027]
  378. 00300 PRINT"the program."\  [231]                               
  379. 00310 POKE 257,1 :K1$=KEY: IFK1$=""THEN 310 ELSE PRINT\" "K1$" "  [165]
  380. 00320 IF K1$="N" THEN LET Y=Y+1 :GOTO 380  [000]                      
  381. 00330 IF K1$="S" THEN LET Y=Y-1 :GOTO 380  [008]                      
  382. 00340 IF K1$="E" THEN LET X=X+1 :GOTO 380  [247]                      
  383. 00350 IF K1$="W" THEN LET X=X-1 :GOTO380  [012]                      
  384. 00360 IF K1$="L" THEN 400  [088]                                   
  385. 00370 PRINT\"I'm afraid I don't know exactly what you're talking about."
  386.       :GOTO310  [210]                                        
  387. 00380 IF M(X,Y)=5 THEN 510 ELSE IF M(X,Y)=0 THEN 540 ELSE IF M(X,Y)=9 
  388.       THEN 560  [183]                                                        
  389. 00390 PRINT"you have moved one unit ";K1$;" -"  [178]
  390. 00400 IF M(X,Y)=2 THEN PRINT" You are standing in a pond."  [113]  
  391. 00410 PRINT" To the north there is a "; :A=X :B=Y+1 :GOSUB 470  [216]
  392. 00420 PRINT" To the South there is a "; :A=X :B=Y-1 :GOSUB 470  [227]
  393. 00430 PRINT" To the East there is a "; :A=X+1 :B=Y :GOSUB 470  [124] 
  394. 00440 PRINT" To the West there is a "; :A=X-1 :B=Y :GOSUB 470  [149] 
  395. 00450 GOTO 310  [102]                                            
  396. 00460 REM  [154]                                                
  397. 00470 IF M(A,B)=0 THEN PRINT"cliff.":RETURN  [144]                 
  398. 00480 IF M(A,B)=2 THEN PRINT"pond.":RETURN  [096]                  
  399. 00490 IF M(A,B)=1 OR M(A,B)=9 THEN PRINT"path.":RETURN  [192]
  400. 00500 IF M(A,B)=5 THEN PRINT"wall.":RETURN  [091]                  
  401. 00510 PRINT" You have bumped into a wall."  [030]               
  402. 00520 IF K1$="N" THEN LET Y=Y-1 ELSE IFK1$="S" THEN LET Y=Y+1 ELSE IF 
  403.       K1$="E" THEN LET X=X-1 ELSE IF K1$="W" THEN LET X=X+1  [139]
  404. 00530 GOTO 310  [101]                                            
  405. 00540 PRINT" Oops! If your legs are hundreds of metres long, you're
  406.       still alive. Otherwise, do you wish to be reincarnated";:
  407.       INPUTA1$:PRINT\,"Oh"  [189]                                        
  408. 00550 END  [113]                                                
  409. 00560 CLS  [125]                                                
  410. 00570 FOR I=0 TO 11  [062]                                         
  411. 00580 FOR J=0 TO 16  [069]   Continued on page 6è     BASPAT2 (AUTO-LOAD FOR MICROWORLD DISK TINY BASIC) DOCUMENTATION
  412.                     by Julian Loke, 15th November 1985
  413.  
  414.      I⌠á i≤ ofteε usefu∞ t∩ invokσ program≤ froφ thσ CP/═á  commanΣá level¼  ì
  415. especiall∙á  fo≥ thosσ wh∩ appreciatσ thσ feature≤ oµ  thσ SUBMI╘  anΣ XSU┬ ì
  416. utilities¼á  anΣ fo≥ thosσ wh∩ likσ turn-ke∙ disδ systems«á  Unfortunately¼ ì
  417. m∙  versioε oµ MicroWorlΣ BASI├  (T═  ApplieΣ Technology⌐  diΣ no⌠á suppor⌠ ì
  418. thi≤ otherwisσ  "standardó  feature«á  So¼ t∩ ge⌠ aε applicatioε prograφ u≡ ì
  419. anΣ running¼ ╔ haΣ t∩ invokσ BASIC¼ theε loaΣ anΣ ruε thσ application.
  420.  
  421.      Thi≤  filσ  describe≤  aε  auto-loaΣ  patcΦ  prograφ   whicΦá replace≤  ì
  422. thσá standarΣ BASI├ loader«á WitΦ thi≤ patcΦ installed¼á i⌠ i≤ possiblσá t∩ ì
  423. typσá thσ namσ oµ thσ applicatioε prograφ a⌠ thσ CP/═ commanΣá level«á  Fo≥ ì
  424. example¼ iµ yo⌡ wisΦ t∩ ruε thσ BASI├ prograφ ACCOUNTS.MWB¼ yo⌡ coulΣ type:
  425.                     A>basic accounts
  426.  
  427.      (Thσ lowe≥ casσ letter≤ arσ typeΣ b∙ thσ user.⌐ BASI├ woulΣ load¼ theε ì
  428. thσ filσ ACCOUNTS.MW┬ woulΣ bσ loadeΣ int∩ memor∙ anΣ executed.
  429.  
  430.                          USAGE AND NOTES
  431.  
  432.      The syntax for the auto-load patch appears below:
  433.  
  434.                     BASIC [ [ <d> : ] <filename> ]
  435.  
  436. Notes:
  437. 1)   No parameters- load and run BASIC without auto-load. e.g.:
  438.                     A>basic
  439.  
  440. 2⌐   WitΦ parameter- loaΣ BASI├ theε ruε <filename>.MW┬   e.g«:
  441.                     A>basiπ b:inventry
  442.  
  443.      Iε thi≤ example¼á  BASI├ wil∞ load¼ theε drivσ ┬ wil∞ bσ searcheΣ  fo≥  ì
  444. áááááthσ filσ INVENTRY.MWB«  Iµ found¼ thσ prograφ load≤ anΣ executes.
  445.  
  446. 3)   ┴  filetypσ oµ .MW┬ i≤ assumed«á  ONL┘ file≤ whicΦ  werσ createΣ usinτ ì
  447. áááááBASIC'≤ SAV┼ commanΣ caε bσ loadeΣ anΣ ruε iε thi≤ way.
  448.  
  449.                          ERRORS AND ERROR MESSAGES
  450.           
  451. 1⌐   NO FILE║á Thσ prograφ filσ coulΣ no⌠ bσ found«á  BASI├ abort≤ bacδá t∩ ì
  452.      thσ CP/═ commanΣ level.
  453.  
  454. 2)á  EMPTY FILE║ Thσ  prograφ  filσ  wa≤ no⌠ lonτ enougΦ  t∩  bσ  ß prograφ ì
  455. áááááfile«   Checδ t∩ seσ tha⌠ i⌠ wa≤ createΣ  usinτ BASIC'≤ SAV┼ command.
  456.  
  457. 3)   BAD PATCH VERSION║á Iµ yo⌡ ge⌠ thi≤ message¼  you≥ versioε oµ BASI├ i≤ ì
  458. áááááno⌠á supporteΣá b∙ thσ auto-loaΣ patch«á  ┴ ne≈ patcΦ wil∞ neeΣ t∩á bσ ì
  459. áááááwritteε anΣ installed« Iµ thi≤ need≤ t∩ bσ done¼ pleasσ dro≡ mσ ß linσ ì
  460. áááááviß thσ MBU╟ bulletiε boarΣ (Melbournσ Australiß 03-873-573┤ (24hrs)).
  461.  
  462.                          INSTALLATION INSTRUCTIONS
  463.  
  464. To install the patch, you will need the following files:
  465.                BASIC.COM      your copy of MicroWorld Tiny BASIC
  466.                BASPAT2.HEX    the auto-load patch
  467.                LOAD.COM       a standard CP/M utility
  468.                DDT.COM        another standard CP/M utility
  469. èMAK┼á SUR┼á YO╒á AR┼ NO╘ ALTERIN╟ YOU╥ MASTE╥ DISK«á Ensurσ tha⌠á yo⌡á havσ ì
  470. backed-u≡ al∞ you≥ file«á Usσ thσ followinτ commanΣ sequencσ t∩ instal∞ thσ ì
  471. patcΦá ont∩ thσ filσ ABASIC.COM«á  (Notσ tha⌠ thσ lowe≥ casσá letter≤á  arσ ì
  472. typeΣ b∙ thσ user.)
  473.                A>load baspat2.hex
  474.  
  475.                FIRST ADDRESS 0100
  476.                LAST  ADDRESS 01FD
  477.                BYTES READ    00FE
  478.                RECORDS WRITTEN 02
  479.  
  480.  
  481.                A>ddt basic.com
  482.                DDT VERS 2.2
  483.                NEXT  PC
  484.                4900 0100
  485.                -ibaspat2.com
  486.                -r
  487.                NEXT  PC
  488.                4900 0100
  489.                -g0
  490.  
  491.                A>save 72 abasic.com
  492.                A>era baspat2.com
  493.                A>
  494.  
  495.      Don'⌠á worr∙ iµ DDT'≤ NEX╘ displa∙ show≤ 4700«á Wha⌠ YO╒ typσá remain≤ ì
  496. thσ same«á  Yo⌡ caε no≈ tes⌠ BASI├ witΦ thσ AUTO-LOA─ patch«  Seσ thσ USAG┼ ì
  497. AN─ NOTE╙ sectioε fo≥ morσ information«  Oncσ yo⌡ arσ satisfieΣ tha⌠ al∞ i≤ ì
  498. well¼ renamσ ABASIC.CO═ bacδ t∩ BASIC.COM.
  499.                A>era basic.bak
  500.                A>ren basic.bak=basic.com
  501.                A>ren basic.com=abasic.com
  502.  
  503.      Thσá filσ BASPAT2.HE╪ i≤ availablσ oε thσ bulletiε board¼á anΣ i≤ als∩ ì
  504. reproduceΣ below«á  Thσ space≤ havσ beeε addeΣ t∩ improvσ readability«á  Iµ ì
  505. yo⌡ elec⌠ t∩ typσ thi≤ code¼ usσ aε ASCI╔ edito≥ (e.g« ED¼ WORDSTA╥ iε non-ì
  506. documen⌠ mode¼á etc.⌐ anΣ OMI╘ AL╠ SPACES«á  Don'⌠ forge⌠ thσ COLON╙ a⌠ thσ ì
  507. beginninτá oµá eacΦ line¼á anΣ remembe≥ t∩ typσ RETUR╬ a⌠ thσ enΣá oµá eacΦ ì
  508. line.
  509. 
  510. :10 0100 00 1828 0D41 7574 6F2D 626F 6F74 206C 6F61 CC
  511. :10 0110 00 6465 722C 204A 2E4C 6F6B 6520 3136 204E 60
  512. :10 0120 00 6F76 2031 3938 350D 0A1A 2A01 0022 DB01 99
  513. :10 0130 00 2A06 0022 DF01 F321 0002 1100 8001 0048 9D
  514. :10 0140 00 EDB0 6069 22A4 003A 5D00 FE20 2825 2AA5 B2
  515. :10 0150 00 8511 5F84 ED52 1176 0120 7D21 7F00 11FF 12
  516. :10 0160 00 7F01 2400 EDB8 21FD 0101 7600 EDB8 EB23 FD
  517. :10 0170 00 22A5 85C3 0080 4261 6420 7061 7463 6820 99
  518. :10 0180 00 7665 7273 696F 6E24 215F 8422 A585 3EFF B8
  519. :10 0190 00 3207 0121 4D57 22E5 7F21 4200 22E7 7F11 DE
  520. :10 01A0 00 8009 0E1A CDBC 7F11 DC7F 0E0F CDBC 7F3C C9
  521. :10 01B0 00 11BF 7F28 2311 4008 2180 0019 EBD5 0E1A AA
  522. :10 01C0 00 CDBC 7F11 DC7F 0E14 CDBC 7FB7 D128 E97A 7E
  523. :10 01D0 00 FE09 D21E 8011 EE01 0E09 2100 00E5 C305 C3
  524. :10 01E0 00 000D 0A0A 0A0A 4E6F 2066 696C 6524 0D0A 22
  525. :0E 01F0 00 0A0A 0A45 6D70 7479 2066 696C 6524 F0
  526. :00 0000 00 00
  527. è                                   HALLEY.BAS
  528.  
  529.      I⌠á seemeΣá appropriatσá t∩ includσ thi≤ filσ iε thσá Catche≥á iεá thσ ì
  530. adven⌠á oµá HALLEY'╙ Comet«á Perhap≤ someonσ ma∙ conver⌠ i⌠á t∩á MicroworlΣ ì
  531. Basiπ fo≥ thosσ wh∩ don'⌠ havσ MBASIC« Thi≤ listinτ i≤ oε thσ RBBS.
  532.  
  533. 5 REM ** HALLEY.BAS **                 540 R=SM*(1-Y1*Y1)/(1+Y1*COS(V))
  534. 10 REM ----- COMET EPHEMERIS -----     550 F=L-AN                          
  535. 20 PI=3.14159                          560 F2=IO                           
  536. 30 C0$="COMET HALLEY"                  570 F1=F*PI/180                     
  537. 40 PH=1986.11                          580 F2=F2*PI/180                    
  538. 50 PL=170.011                          590 I=SIN(F1)*SIN(F2)               
  539. 60 AN=58.1453                          600 I=ATN(I/SQR(-I*I+1))            
  540. 70 PY=76.0081                          610 P=ATN(TAN(F1)*COS(F2))          
  541. 80 SM=17.9435                          620 P1=P*180/PI+AN                  
  542. 90 EO=.967267                          630 IF F>=90 AND F<=270 THEN LET    
  543. 100 IO=162.239                             P1=P1+180                       
  544. 110 REM ---------------------------    640 IF P1<0 THEN LET P1=P1+360      
  545. 120 PRINT"         "C0$                650 P=P1*PI/180                     
  546. 130 PRINT                              660 R2=R*COS(I)                     
  547.     "- - - - - - - - - - - - - - -"    670 REM --------------------------- 
  548. 140 PRINT"    EPHERMIS FOR DATES"      680 REM  Calculations for the Earth 
  549. 150 PRINT"   BETWEEN 1946 AND 2026"    690 REM --------------------------- 
  550. 160 PRINT"      by Roger Browne"       700 X=1975                          
  551. 170 REM ---------------------------    710 IF Y>=X THEN LET Z=1972:S=0     
  552. 180 REM          Input the Date        720 IF Y<X THEN LET Z=1976:S=1      
  553. 190 REM ---------------------------    750 GOSUB 1780                      
  554. 200 PRINT"INPUT YEAR"                  760 T=(360/365.25)*(N/1.00004)      
  555. 210 INPUT Y                            770 K=T                             
  556. 220 IF Y<1946 OR Y>2026 THEN 200       780 GOSUB 1930                      
  557. 230 PRINT"INPUT MONTH"                 790 T=K                             
  558. 240 INPUT M                            800 T1=T*PI/180                     
  559. 250 IF M<1 OR M>12 THEN 230            810 C=.01672                        
  560. 260 PRINT"INPUT DAY"                   820 J=T+360/PI*C*SIN(T1-.051943)    
  561. 270 INPUT D                            830 J=J+99.5343                     
  562. 280 PRINT                              840 IF J>360 THEN LET J=J-360       
  563. 290 REM ---------------------------    850 IF J<0 THEN LET J=J+360         
  564. 300 REM  Calculations for the comet    860 H=((J-102.51044#)*PI)/180       
  565. 310 REM ---------------------------    870 R1=(1-C*C)/(1+C*COS(H))         
  566. 320 X=PH                               880 REM---------------------------- 
  567. 330 IF Y>=1986 THEN LET Z=1984:S=1     890 : Compute Ecliptic Coordinates  
  568. 340 IF Y<1986 THEN LET Z=1988:S=0      900 REM---------------------------- 
  569. 370 GOSUB 1780                         910 U1=(P1-J)*PI/180                
  570. 380 DS=N                               920 U2=(J-P1)*PI/180                
  571. 390 B=(360/PY)*(N/365.25)              930 IF R2<R1 THEN 990               
  572. 400 K=B                                940 Q1=R1*SIN(U1)                   
  573. 410 GOSUB 1930                         950 Q1=Q1/(R2-R1*COS(U1))           
  574. 420 B=K*PI/180                         960 Q1=ATN(Q1)                      
  575. 430 E=B                                970 Q2=Q1*180/PI+P1                 
  576. 440 Y1=EO                              980 GOTO 1030                       
  577. 450 Q=E-Y1*SIN(E)-B                    990 Q3=R2*SIN(U2)                   
  578. 460 IF ABS(Q)<=.000017 THEN 500        1000 Q3=Q3/(R1-R2*COS(U2))          
  579. 470 U=Q/(1-Y1*COS(E))                  1010 Q3=ATN(Q3)                     
  580. 480 E=E-U                              1020 Q2=Q3*180/PI+J+180             
  581. 490 GOTO 450                           1030 IF Q2>360 THEN LET Q2=Q2-360   
  582. 500 V=(SQR((1+Y1)/(1-Y1))*TAN(E/2))    1040 IF Q2<0 THEN LET Q2=Q2+360     
  583. 510 V=2*ATN(V)                         1050 Q4=Q2*PI/180                   
  584. 520 V1=V*180/PI                        1060 Q5=R2*TAN(I)*SIN(Q4-P)         
  585. 530 L=V1+PL                            1070 Q5=Q5/(R1*SIN(U1))             è1080 Q5=ATN(Q5)                        1570 PRINT"DATA FOR "C0$                
  586. 1090 REM --------------------------    1580 PRINT"DATE: D/M/Y="D"/"M"/"Y       
  587. 1100 : Convert to Equatorial coords    1590 PRINT"DAYS TO PERIHELION "INT(DS)  
  588. 1110 REM --------------------------    1600 PRINT                              
  589. 1120 E1=.40893064#                     1610 PRINT"COORDINATES:"                
  590. 1130 L1=SIN(Q5)*COS(E1)                1620 PRINT" RA:";INT(N1);"HRS";W;"MIN"  
  591. 1140 L1=L1+COS(Q5)*SIN(E1)*SIN(Q4)     1630 PRINT"DEC:";G1;"DEG";W1;"MIN"      
  592. 1150 M1=ATN(L1/SQR(-L1*L1+1))          1640 PRINT                              
  593. 1160 Y2=M1*180/PI                      1650 PRINT"DISTANCES:"                  
  594. 1170 B1=TAN(Q4)/COS(E1)                1660 PRINT" COMET TO SUN";R;"AU"        
  595. 1180 B1=B1-TAN(Q5)*SIN(E1)/COS(Q4)     1670 PRINT"COMET TO EARTH";R3;"AU"      
  596. 1190 G=ATN(B1)                         1680 PRINT                              
  597. 1200 H1=G*180/PI                       1690 PRINT"PREDICTED MAG";MA            
  598. 1210 I1=INT(Q2/90)                     1700 PRINT                              
  599. 1220 J1=INT(H1/90)                          "---------------------------"      
  600. 1230 IF I1-J1=4 OR I1-J1=1 THEN        1710 PRINT"PRESS 0 FOR ANOTHER DATE"    
  601.      LET H1=H1+360                     1720 IF INKEY$="0" THEN 1740            
  602. 1240 IF I1-J1=2 OR I1-J1=3 THEN        1730 GOTO 1720                          
  603.      LET H1=H1+180                     1740 PRINT                              
  604. 1250 IF I1-I1=-4 THEN LET H1=H1+360    1750 GOTO 200                           
  605. 1260 IF I1-J1=-2 THEN LET H1=H1-180    1760 REM --------------------------     
  606. 1270 N1=H1/15                          1770 : Subroutine: DAYS TO PERIHELION   
  607. 1280 W=INT((K1-INT(K1))*60+5)          1780 A=(Y-Z)/4                          
  608. 1290 IF W=60 THEN LET N1=N1+1:W=0      1790 A1=INT(A+S)                        
  609. 1310 K1=ABS(Y2)                        1800 N=365*(Y-X+S)+A1                   
  610. 1320 W1=INT((K1-INT(K1))*60+.5)        1810 IF INT(A)<>A THEN 1830             
  611. 1330 IF W1=60 THEN LET G1=G1+1         1820 IF (M=2 AND D<29) OR M=1 THEN      
  612. 1340 IF W1=60 THEN LET W1=0                 LET N=N-1                          
  613. 1350 G1=INT(K1)                        1830 IF M>2 THEN 1870                   
  614. 1360 IF Y2<0 OR G1<1 THEN LET          1840 M2=M-1                             
  615.      W1=-W1                            1850 M2=31*M2                           
  616. 1370 D1=R1*R1+R2*R2                    1860 GOTO 1890                          
  617. 1380 D1=D1-2*R1*R2*COS(U1)             1870 M2=M+1                             
  618. 1390 D2=SQR(D1)                        1880 M2=INT(30.6*M2)-63                 
  619. 1400 R3=D2/COS(I)                      1890 N=N+M2+D-365*S                     
  620. 1410 K9=R                              1900 RETURN                             
  621. 1420 GOSUB 2040                        1910 REM --------------------------     
  622. 1430 R=K9                              1920 : PLACE BETWEEN 0 AND 360 DEG      
  623. 1440 K9=R2/10                          1930 IF K<0 THEN 1950                   
  624. 1450 GOSUB 2040                        1940 IF K>360 THEN 1980                 
  625. 1460 R2=K9*10                          1950 K=K+360                            
  626. 1470 M0=4.1:N=3.1                      1960 IF K>=0 THEN 2010                  
  627. 1480 IF DS<0 THEN LET M0=5:N=4.44      1970 GOTO 1950                          
  628. 1490 MA=MO+5*.4343*LOG(R3)             1980 K=K-360                            
  629. 1500 MA=MA+N*2.5*.4343*LOG(R)          1990 IF K<=360 THEN 2010                
  630. 1510 M1=INT(10*MA)/10                  2000 GOTO 1980                          
  631. 1520 IF Y2<0 THEN LET G1=-G1           2010 RETURN                             
  632. 1530 REM --------------------------    2020 REM --------------------------     
  633. 1540 REM    Print Ephermis For Date    2030 REM: ROUND OFF ROUTINE             
  634. 1550 REM --------------------------    2040 K9=INT(K9*1000+.5)/1000            
  635. 1560 PRINT                             2050 RETURN                             
  636.     "-----------------------------"   
  637.  
  638.  
  639.  
  640.  
  641.  
  642.  
  643. è   TECHNICAL NOTES   TECHNICAL NOTES   TECHNICAL NOTES   TECHNICAL NOTES 
  644. 
  645.        ENC 26-221185                                DATE 22/11/1985
  646.  
  647.  
  648.                 UPGRADING SERIES III COREBOARDS TO THE PC85
  649. 
  650. MB8328-▓á coreboard≤á caε bσ upgradeΣ t∩ thσ lates⌠ PC8╡ iε ß matte≥ oµá 1░ ì
  651. minutes¼á iµá IC5¼á IC1░ anΣ IC1╡ alread∙ havσ 276┤ EPROM≤ iεá sockets«á Iµ ì
  652. BASI├ i≤ versioε 5.22σ iε maskeΣ ROMs¼ upgradinτ wil∞ takσ longer.
  653.  
  654. Iµá thσá EPROM╙á arσ alread∙ iε sockets¼á fittinτ oµá thσá ne≈á EPROM≤á anΣ ì
  655. heatsink¼ anΣ modifyinτ thσ boarΣ wil∞ onl∙ takσ ╢ t∩ 1░ minutes« Fo≥ thosσ ì
  656. wh∩ canno⌠ thσ modificatioε iε sectioε F¼ pagσ 4¼ oµ thσ Hardwarσ Notebook¼ ì
  657. yo⌡á migh⌠á lokσ t∩ tr∙ thσ followinτ method«á Yo⌡ wil∞ als∩ neeΣá somσá 2╢ ì
  658. gaugσá kyna≥ wirσ (wirσ wra≡ wire⌐ anΣ ß too∞ t∩ stri≡ thσ insulatioεá froφ ì
  659. thi≤ wire« (REA─ AL╠ STEP╙ BEFOR┼ STARTING).
  660.  
  661. 1«á   De-solde≥á piεá 1┤ oµ IC2╕ (makσ surσ therσ i≤ n∩ solde≥ lef⌠ iεá thσ ì
  662. hole⌐ anΣ cu⌠ thσ leτ s∩ i⌠ canno⌠ toucΦ thσ board.
  663.  
  664. 2«   Froφ thσ solde≥ side¼ pokσ ß piecσ oµ wirσ througΦ thσ holσ anΣ solde≥ ì
  665. i⌠ t∩ thσ remainde≥ oµ piε 14« Makσ surσ tha⌠ thσ insulatioε oε thσ wirσ i≤ ì
  666. thσ onl∙ thinτ tha⌠ caε toucΦ thσ holσ iε thσ board«á Thσ othe≥ enΣ oµ thi≤ ì
  667. wirσá i≤ t∩ bσ connecteΣ t∩ piε 1╡ oµ IC23¼á (datß 3)«á Thσ lengtΦ oµá thi≤ ì
  668. wirσ i≤ onl∙ 20mm.
  669.  
  670. 3«   Joiε al∞ thσ piε 26≤ oµ thσ Paδ location≤ togethe≥ anΣ connec⌠ theφ t∩ ì
  671. piεá ▒ oµ IC28«á Wheε makinτ u≡ thi≤ linδ wirσ usσ ß wirσ strippe≥ anΣá thσ ì
  672. Kyna≥ wire¼ stri≡ ofµ 12mφ oµ insulation¼ theε movσ thσ strippe≥ alonτ 20mφ ì
  673. cu⌠ thσ insulatioε anΣ movσ i⌠ alonτ t∩ withiε 2mφ oµ thσ end«á Continuσ t∩ ì
  674. cu⌠á anΣ movσ thσ insulatioε alonτ thσ wirσ unti∞ yo⌡ havσ ß piecσ oµá wirσ ì
  675. simila≥ t∩ thσ diagram« Then¼ startinτ a⌠ piε 2╢ oµ IC25¼ adΣ thi≤ piecσ oµ ì
  676. wire.
  677.  
  678.  
  679.  
  680. 4.   Change the EPROMS and add the heatsink to the regulator.
  681.  
  682.  
  683.    TECHNICAL NOTES   TECHNICAL NOTES   TECHNICAL NOTES   TECHNICAL NOTES 
  684. 
  685.        ENC 26-251185                                DATE 25/11/1985
  686.  
  687.  
  688.                    MISSING TRACK ON THE 8342 DRAM BOARD
  689. 
  690. PROBLEM║á Writσá protectioεá no⌠á workinτá oεá 64δá anΣá 128δá system≤á o≥ ì
  691.           inconsistent write problems.
  692.  
  693. REASON║á  Tracδ missinτ betweeε piε 3╢ oµ IC3╡ anΣ piε ╢ oε thσ resisto≥ ì
  694.           network rom.
  695.  
  696. SOLUTION║ AdΣ ß smal∞ piecσ oµ wirσ 7mφ lonτ betweeε piε 3╢ oµ IC3╡ anΣ thσ ì
  697.           6th pin of RN1. (COUNT THE POWER PIN AS PIN 1 ON THE SIP).
  698.  
  699. Al∞ machine≤ produceΣ afte≥ 26tΦ Novembe≥ shoulΣ havσ thi≤ wirσ linδ added.
  700.  
  701.    TECHNICAL NOTES   TECHNICAL NOTES   TECHNICAL NOTES   TECHNICAL NOTES è                                SUPER . MWB
  702.  
  703.                             By John Kondogonis
  704.  
  705. Thi≤á prograφ allow≤ yo⌡ t∩ superimposσ sinσ wave≤ anΣ observσ thσá result≤ ì
  706. graphically.
  707.  
  708. 00050 DIM A0(10):REM AMPLITUDES [156]
  709. 00060 DIM Y(10) [075]
  710. 00070 DIM F0(10):REM FREQUENCIES [163]
  711. 00080 DIM D0(10):REM PHASES [162]
  712. 00090 DIM Y1(10) [127]
  713. 00100 CLS:SD 4 [120]
  714. 00110 CURS 20,1:UNDERLINE:PRINT"Superposition":NORMAL [128]
  715. 00120 CURS 45,1:PRINT"By John Kondogonis" [102]
  716. 00130 CURS 45,2:PRINT"Dec. 24 1984" [217]
  717. 00140 FOR I=1 TO 1000:NEXT I [089]
  718. 00150 PRINT:PRINT [234]
  719. 00160 INPUT "Do you want instructions (Y/N) ?" Z1$ [255]
  720. 00170 PRINT [037]
  721. 00180 IF Z1$<>"y" AND Z1$<>"Y" AND Z1$<>"n" AND Z1$<>"N" THEN 160 [105]
  722. 00190 IF Z1$="y" OR Z1$="Y" THEN GOSUB 480 [039]
  723. 00200 INPUT "Number of waves (up to 10) ?",W [006]
  724. 00210 IF W<1 OR W>10 THEN 200 [062]
  725. 00270 FOR C=1 TO W:REM FOR EACH WAVE GET ITS AMPLITUDE,FREQ,ETC [101]
  726. 00280 PRINT:UNDERLINE:PRINT"Wave";C:NORMAL [198]
  727. 00290 INPUT "Wave amplitude (up to 100) ?",A0(C) [225]
  728. 00300 IF A0(C)>100 THEN 290 [192]
  729. 00310 INPUT "Wave frequency (up to 10) ?",F0(C) [188]
  730. 00320 IF F0(C)<0 OR F0(C)>10 THEN 310 [167]
  731. 00330 INPUT "Phase (in radians) ?",D0(C) [056]
  732. 00340 NEXT C [025]
  733. 00350 PRINT:PRINT:PRINT [179]
  734. 00360 INPUT "Subdivision of waves (type `10' for large or `1' for
  735.       small) ?",B1 [059]
  736. 00370 B=INT(B1) [200]
  737. 00380 REM B1 DETERMINES HOW CLOSELY THE POINTS ARE TAKEN TO PLOT     
  738.       THE GRAPH [155]
  739. 00390 CLS:HIRES [051]
  740. 00395 A=0:Q=0:T=0 [066]
  741. 00400 FOR M=0 TO 510:T=T+1 [233]
  742. 00410 FOR C=1 TO W : REM  FOR EACH WAVE [097]
  743. 00420 Y1(C)=A0(C)*SIN(2*3.14*FLT(M)*F0(C)*B1/500+D0(C)):
  744.       Y1(C)=Y1(C-1)+Y1(C) [077]
  745. 00430 NEXT C [025]
  746. 00440 IF A=0 AND Q=0 THEN 460 [047]
  747. 00450 ON ERROR GOTO 690:PLOT A,Q TO B*T,INT(Y1(W)+125) [143]
  748. 00460 A=B*T:Q=INT(Y1(W)+125) [209]
  749. 00470 NEXT M [039]
  750. 00475 REM ****** INSTRUCTIONS ********************************** [160]
  751. 00480 CLS:PRINT"This program allows you to superimpose sine waves 
  752.       and observe" [069]
  753. 00490 PRINT "the results graphically." [223]
  754. 00500 PRINT [034]
  755. 00510 PRINT"Up to 10 waves may be added simultaneously. 
  756.       The frequencies may" [212]
  757. 00520 PRINT"vary from 0 to 10 (can be real or integer values)." [141]
  758. 00530 PRINT "The sum of the amplitudes should not be greater
  759.       than 125" [193]        è00540 PRINT "otherwise the graph will go off the screen and
  760.       a graphics" [038]
  761. 00550 PRINT "error will result." [058]
  762. 00560 PRINT [040]
  763. 00570 PRINT"Note that if a graphics error occurs (ie. pcg full etc.)
  764.       then" [161]
  765. 00580 PRINT "the plot is discontinued." [225]
  766. 00590 CURS 20,15:PRINT "PRESS ANY KEY TO CONTINUE" [064]
  767. 00600 Z2$=KEY:IF Z2$="" THEN 600 [043]
  768. 00610 CLS:PRINT "When prompted for subdivision of waves type any
  769.       integer greater" [180]
  770. 00620 PRINT"than 0.  The larger the number the rougher the graph." [184]
  771. 0063░ PRIN╘"Usσ 1░ fo≥ plottinτ rougΦ bu⌠ fas⌠ graph≤ anΣ ▒ fo≥ moreó [145] 
  772. 00640 PRINT "accurate graphs." [166]
  773. 00650 CURS 20,15:PRINT"PRESS ANY KEY TO CONTINUE" [061]
  774. 00660 Z2$=KEY:IF Z2$="" THEN 660 [055]
  775. 00670 CLS:PRINT [070]
  776. 00680 RETURN [126]
  777. 00690 FOR I=1 TO 3000:NEXT I [101]
  778. 00700 CURS 1,1:INPUT"AGAIN (Y/N) ?",Z1$ [017]
  779. 00710 IF Z1$<>"Y" AND Z1$<>"y" AND Z1$<>"N" AND Z1$<>"n" THEN 700 [104]
  780. 00720 IF Z1$="Y" OR Z1$="y" THEN GOTO 200 [213]
  781. 00730 END [113]
  782.  
  783.  
  784. 
  785.                      ┴ Revie≈ oµ thσ ET╔ 69╣ Modem.
  786. 
  787.                               By Douτ Mckean.
  788.  
  789.      Thi≤á modeφá wa≤ describeΣ iε thσ Ma∙ 8╡ editioε oµ Electronic≤á Toda∙ ì
  790. International«á I⌠ caε bσ obtaineΣ a≤ ß ki⌠ fo≥ arounΣ $140¼ o≥ yo⌡ caε bu∙ ì
  791. thσ component≤ a≤ anΣ wherσ yo⌡ wish« Iµ yo⌡ havσ no⌠ useΣ ß solderinτ iroε ì
  792. before¼á theεá cal∞ ß frienΣ wh∩ has¼á o≥ bu∙ ßá BEEMODEM«á Al∞á Electroniπ ì
  793. Component≤á (11╕á lonsdalσ S⌠ Melb.⌐ stocδ botΦ thσ printeΣ circui⌠á board¼ ì
  794. (appro° $15⌐ anΣ thσ AM╔ S353░ modeφ I├ (appro° $35)«á The∙ als∩ stocδá thσ ì
  795. Linσ Transformer.($10⌐ ╔ havσ hearΣ tha⌠ thσ I├ i≤ availablσ elsσ wherσ fo≥ ì
  796. arounΣ $20« S∩ i⌠ ma∙ savσ yo⌡ mone∙ b∙ shoppinτ around.
  797.  
  798.      Constructioεá i≤á ver∙ straigh⌠ forwarΣ anΣ iµ thσ articlσ iεá ET╔á i≤ ì
  799. followed¼á thσá projec⌠á shoulΣ worδ firs⌠ time«á Thσ threσ tha⌠ I'vσá beeε ì
  800. involveΣ witΦ did« Unles≤ yo⌡ intenΣ talkinτ t∩ Bulletiε Board≤ iε thσ USA¼ ì
  801. savσ ß couplσ oµ dollars¼á anΣ leavσ ou⌠ thσ Bell/CCI╘ switch«á Usσ ßá gooΣ ì
  802. qualit∙ socket¼á preferabl∙ golΣ plated¼ fo≥ thσ modeφ IC« ┴ poin⌠ t∩ note« ì
  803. Iε thσ article¼á usσ oµ Silastiπ i≤ mentioned« Ensurσ tha⌠ thσ silastiπ yo⌡ ì
  804. use¼á i≤ nonσ corrosive«á Somσ varieties¼á (Thosσ whicΦ havσ ß vinega≥ likσ ì
  805. smell¼ Acetiπ acid?⌐ havσ beeε knowε t∩ corrodσ components.
  806.  
  807.      Iε operatioε thσ 69╣ i≤ eas∙ t∩ usσ anΣ ver∙ reliable«á N∩ datß error≤ ì
  808. havσ occurreΣ t∩ m∙ knowledge¼á oε an∙ oµ thσ threσ buil⌠ s∩ far«á Thσ onl∙ ì
  809. criticisφá ╔ caε offe≥ i≤ thσ lacδ oµ ß 1200/7╡ BauΣ option«á Bu⌠ tha⌠ i≤ ß ì
  810. shor⌠ cominτ oµ thσ IC¼ no⌠ thσ projec⌠ design« Therσ i≤ als∩ ß Diale≥ add-ì
  811. oε availablσ now¼ bu⌠ ╔ havσ no⌠ buil⌠ o≥ trieΣ one.
  812.  
  813.      Overal∞ thσ ET╔ 69╣ 30░ BauΣ Modeφ i≤ gooΣ valuσ fo≥ thosσ wh∩á desirσ ì
  814. t∩á ge⌠á int∩á thσ worlΣ oµ Bulletiε Board≤á anΣá termina∞á communications« ì
  815. Incidentl∙ thi≤ articlσ wa≤ uploadeΣ ont∩ thσ BB╙ b∙ aε ET╔ 699. áHINZ
  816.  
  817. è                                SYNON2.MWB
  818. 00100 REM ___ Converted from Univac to MicroBee ___ [145]
  819. 00110 REM ___       by A.Laughton Feb'84        ___ [146]
  820. 00120 CLS:STRS(1000) [103]
  821. 00130 CURS85:INVERSE:PRINT"  S Y N O N Y M S  ":NORMAL [050]
  822. 00140 PRINT\"   This is an exercise in synonyms. In this program,  
  823.       I will give you a word and you will give one to me that is 
  824.       the same in meaning (that is, a synonym)." [181]
  825. 00150 PRINT\"   I will choose a word, you type the synonym. If you can't
  826.       think of a word, type in `HELP'. This will cause a synonym to
  827.       be printed." [082]
  828. 00160 PRINT\\\TAB20"Hit any key when ready";:USR(32774) [217]
  829. 00170 DIM R0(5),W0(20),K(20) [010]
  830. 00180 CLS:CURS77:UNDERLINE:PRINT"I have three levels of difficulty :
  831.       -":NORMAL [237]
  832. 00190 PRINT\TAB22"(1)  BEGINNER" [206]
  833. 00200 PRINTTAB22"(2)  INTERMEDIATE" [156]
  834. 00210 PRINTTAB22"(3)  ADVANCED" [089]
  835. 00220 PRINT\TAB9"Which level would you like to try (1,2 or 3) ? "; [057]
  836. 00230 A7$=KEY:IFA7$=""THEN 230 [001]
  837. 00240 A=INT(VAL(A7$)):IF A<1 OR A>3 THEN PLAY 2:GOTO 230 [137]
  838. 00250 R0$(1)="Correct.":R0$(2)="Very good.":R0$(3)="Fine." [054]
  839. 00260 R0$(4)="Fantastic.":R0$(5)="Good going." [193]
  840. 00270 CLS:PRINT"Let's begin."\:PLAY 0,8:C=0 [194]
  841. 00280 IF A=1 THEN RESTORE 590 [201]
  842. 00290 IF A=2 THEN RESTORE 1000 [238]
  843. 00300 IF A=3 THEN RESTORE 1430 [238]
  844. 00310 C=C+1:IF C>9 THEN 520 [252]
  845. 00320 READ N0:M=INT(RND*N0)+1 [023]
  846. 00330 FOR I=1 TO M:READ L [198]
  847. 00340 FOR J=1 TO L:READ W0$(J):NEXT J [132]
  848. 00350 NEXT I [032]
  849. 00360 FOR J=1 TO L:K(J)=J:NEXT J [145]
  850. 00370 K(0)=L:K(1)=K(K(0)) [155]
  851. 00380 K(0)=L-1 [078]
  852. 00390 PRINT\"What is an synonym of  "W0$(1)"  ";:INPUT A1$ [006]
  853. 00400 A0$="":FOR X=1 TO LEN(A1$) [250]
  854. 00410 J=(ASC(A1$(;X,X))AND95) [212]
  855. 00420 A0$=A0$+CHR(J):NEXT X [113]
  856. 00430 IFA0$="HELP"THEN 480  [048]
  857. 00440 FOR J=2 TO L:IF A0$=W0$(J) THEN NEXT*J 470 [133]
  858. 00450 NEXT J [034]
  859. 00460 PRINT"TRY AGAIN.":GOTO 390 [014]
  860. 00470 PRINTCHR(15)"What is an synonym of  "W0$(1)"  ? " 
  861.       A1$ TAB54 R0$(INT(RND*5)+1):PLAY 10:GOTO 280 [103]
  862. 00480 H=INT(RND*FLT(K(0)))+1 :IF K(0)=0 THEN 510 [145]
  863. 00490 PRINT"An synonym of "W0$(1)" is ";:SPEED 255:PRINT". . . . "
  864.       W0$(K(H))".":SPEED 0 [078]
  865. 00500 K(H)=K(K(0)):K(0)=K(0)-1:GOTO 390 [154]
  866. 00510 PRINT"I have no more synonyms listed for "W0$(1)".":GOTO 390 [142]
  867. 00520 PRINT\\\"Would you like to continue at this level <Y/N>   
  868.       or quit <Q>"; [176]
  869. 00530 A0$=KEY:IFA0$=""THEN 530 [249]
  870. 00540 IFA0$="Y"ORA0$="y"THEN 270 [111]
  871. 00550 IFA0$="N"ORA0$="n"THEN 180 [090]
  872. 00560 IFA0$="Q"ORA0$="q"THEN CLS:PLAY 10;2:END [249]
  873. 00570 PLAY 8:GOTO 530 [021]
  874.  
  875. Carσá shoulΣ bσ takeε a≤ n∩ checksum≤ are includeΣ iε thσ datß. EDìè00580 REM _____ BEGINNERS _____    |    00980 DATA3,"VOYAGE","JOURNEY",        
  876. 00590 DATA40                       |          "TRIP"                           
  877. 00600 DATA2,"CENTRAL","MIDDLE"     |    00990 REM _____ INTERMEDIATE _____     
  878. 00610 DATA3,"DASH","HURRY",        |    01000 DATA44                           
  879.       "RUSH"                       |    01010 DATA4,"AGREE","CONSENT",         
  880. 00620 DATA2,"DIFFICULT",           |          "ALLOW","PERMIT"                 
  881.       "HARD"                       |    01020 DATA4,"ANGER","RAGE","HATE",     
  882. 00630 DATA2,"GATHER",              |         "DISLIKE"                         
  883.       "COLLECT"                    |    01030 DATA3,"ANSWER","REPLY",          
  884. 00640 DATA2,"GLAD","HAPPY"         |          "RESPONSE"                       
  885. 00650 DATA2,"GLANCE","LOOK"        |    01040 DATA2,"CONCEAL","HIDE"           
  886. 00660 DATA2,"GREET","MEET"         |    01050 DATA2,"COURAGEOUS",              
  887. 00670 DATA2,"INVITE","ASK"         |          "BRAVE"                          
  888. 00680 DATA2,"LARGE","BIG"          |    01060 DATA3,"INSPECT","EXAMINE",       
  889. 00690 DATA2,"LAST","END"           |          "STUDY"                          
  890. 00700 DATA2,"NEAR","CLOSE"         |    01070 DATA2,"INTENDED","MEANT"         
  891. 00710 DATA4,"PRETTY",              |    01080 DATA3,"LET","PERMIT",            
  892.       "BEAUTIFUL","NICE",          |          "ALLOW"                          
  893.       "LOVELY"                     |    01090 DATA5,"MINUTE","MOMENT",         
  894. 00720 DATA2,"SHOVE","PUSH"         |          "SECOND","SMALL","TINY"          
  895. 00730 DATA3,"SILENT","STILL",      |    01100 DATA4,"QUICK","RAPID","SWIFT",   
  896.       "QUIET"                      |          "FAST"                           
  897. 00740 DATA2,"SLEEPY","TIRED"       |    01110 DATA3,"PERHAPS","MAYBE",         
  898. 00750 DATA3,"SMALL","TINY",        |          "POSSIBLY"                       
  899.       "LITTLE"                     |    01120 DATA2,"PLEAD","BEG"              
  900. 00760 DATA2,"STIR","MIX"           |    01130 DATA3,"PUBLISH","PRINT",         
  901. 00770 DATA2,"TALE","STORY"         |          "ANNOUNCE"                       
  902. 00780 DATA2,"TWIST","TURN"         |    01140 DATA3,"REMEMBER","RECALL",       
  903. 00790 DATA2,"UNHAPPY","SAD"        |          "RECOLLECT"                      
  904. 0080░ DATA2,"BOTHER",              |    01150 DATA4,"SCENT","ODOUR",   
  905.       "DISTURBó                    |          "SMELL", "PERFUME"                 ì
  906. 00810 DATA2,"CHALLENGE",           |    01160 DATA2,"SENTINEL",                
  907.       "DARE"                       |          "GUARD"                          
  908. 00820 DATA4,"CHANGE","MONEY",      |    01170 DATA2,"SHINY","BRIGHT"           
  909.       "ALTER","SWAP"               |    01180 DATA2,"SUFFER","ENDURE"          
  910. 00830 DATA4,"COMPANION","FRIEND",  |    01190 DATA5,"THINK","PONDER",          
  911.       "MATE","SPOUSE"              |          "BELIEVE","CONTEMPLATE"          
  912. 00840 DATA2,"GARMENTS",            |          ,"CONCENTRATE"                   
  913.       "CLOTHES"                    |    01200 DATA4,"WONDERFUL","MARVELOUS"    
  914. 00850 DATA2,"GIFT","PRESENT"       |          ,"FANTASTIC","GREAT"             
  915. 00860 DATA2,"PLANNED",             |    01210 DATA4,"ASTONISH","AMAZE",        
  916.       "INTENDED"                   |          "SURPRISE","ASTOUND"             
  917. 00870 DATA3,"MEND","REPAIR",       |    01220 DATA3,"BENEATH","BELOW",         
  918.       "FIX"                        |          "UNDER"                          
  919. 00880 DATA2,"PROPER","RIGHT"       |    01230 DATA3,"CERTAIN","SURE",           
  920. 00890 DATA2,"PROTECT",             |          "POSITIVE"                       
  921.       "DEFEND"                     |    01240 DATA6,"COMPLETE","WHOLE",        
  922. 00900 DATA2,"REGULAR","USUAL"      |          "ENTIRE","ALL","FINISH",         
  923. 00910 DATA3,"RETREAT","RUN",       |          "CONCLUDE"                       
  924.       "RETIRE"                     |    01250 DATA2,"CREVICE","CRACK"          
  925. 00920 DATA2,"SEEM","APPEAR"        |    01260 DATA3,"FOREVER","ALWAYS",        
  926. 00930 DATA2,"SELECT","CHOOSE"      |          "INFINITY"                       
  927. 00940 DATA2,"SPARE","EXTRA"        |    01270 DATA3,"GUARD","DEFEND",          
  928. 00950 DATA2,"SUPPLY","PROVIDE"     |          "PROTECT"                        
  929. 00960 DATA3,"TERRIFY","FRIGHTEN",  |    01280 DATA4,"HELP","AID",            
  930.       "SCARE"                      |          "ASSISTANCE","ASSIST"          
  931. 00970 DATA5,"TRACE","SIGN","COPY", |    01290 DATA2,"INTENTION",             
  932.       "WRITE","SKETCH"             |          "PURPOSE"                      
  933.                                    |è
  934. 01300 DATA5,"MOULD","SHAPE",       |    01540 DATA8,"ATTRACT","ALLURE",        
  935.       "FUNGUS","MILDEW",           |          "CHARM","FASCINATE",             
  936.       "PATTERN"                    |          "BEWITCH","ENCHANT",             
  937. 01310 DATA4,"PAUSE","HESITATE",    |          "CAPTIVATE","TAKE"               
  938.       "REST","STOP"                |    01550 DATA5,"AVERAGE","MEAN",          
  939. 01320 DATA2,"PERISH","DIE"         |          "MEDIAN","NORM","PAR"            
  940. 01330 DATA3,"PLEDGE","PROMISE"     |    01560 DATA6,"AWARE","COGNIZANT",       
  941.       ,"VOW"                       |          "CONSCIOUS","SENSIBLE",          
  942. 01340 DATA2,"PROBABLY",            |          "ALIVE","AWAKE"                  
  943.       "LIKELY"                     |    01570 DATA5,"BAKE","ROAST","BROIL"     
  944. 01350 DATA3,"REPLY","ANSWER",      |          ,"GRILL","BARBECUE"              
  945.       "RESPOND"                    |    01580 DATA5,"BEGIN","COMMENCE",        
  946. 01360 DATA2,"REQUIRE","NEED"       |          "START","INITIATE",              
  947. 01370 DATA2,"SAVE","RESCUE"        |          "INAUGURATE"                     
  948. 01380 DATA3,"TELL","STATE",        |    01590 DATA4,"BELOW","UNDER",           
  949.       "DECLARE"                    |          "BENEATH","UNDERNEATH"           
  950. 01390 DATA2,"THINK","IMAGINE"      |    01600 DATA4,"BET","WAGER",             
  951. 01400 DATA2,"THOROUGH",            |          "STAKE","GAMBLE"                 
  952.       "COMPLETE"                   |    01610 DATA5,"BODY","CORPSE",           
  953. 01410 DATA2,"WARN","CAUTION"       |          "CARCASS","CADAVER",             
  954. 01420 REM _____ ADVANCED _____     |          "STIFF"                          
  955. 01430 DATA27                       |    01620 DATA10,"BARE","NAKED","NUDE"     
  956. 01440 DATA5,"ACCUMULATE","AMASS",  |          ,"BALD","BARREN","STRIPPED"      
  957.       "HOARD","COLLECT",           |          ,"UNDRESSED","UNCLOTHED"         
  958.       "GATHER"                     |          ,"UNADORNED",                    
  959. 01450 DATA9,"ADORN","DECORATE",    |          "UNCOVERED"                      
  960.       "ORNAMENT","BEAUTIFY","DECK" |    01630 DATA7,"BLAZE","FLAME","FLARE"    
  961.       ,"BEDECK","GARNISH","GRACE"  |          ,"GLARE","GLOW","FIRE",          
  962.       ,"HONOUR"                    |          "BURN"                           
  963. 01460 DATA4,"ADVANCE","PROMOTE",   |    01640 DATA7,"BORDER","MARGIN",         
  964.       "FORWARD","FURTHER"          |          "VERGE","EDGE","RIM",            
  965. 01470 DATA4,"AGILE","ACTIVE",      |          "BRIM","BRINK"                   
  966.       "NIMBLE","BRISK"             |    01650 DATA9,"BRAVE","COURAGEOUS",      
  967. 01480 DATA8,"ALLIANCE","LEAGUE",   |          "BOLD","AUDACIOUS",              
  968.       "COALITION","FUSION",        |          "DAUNTLESS","UNDAUNTED",         
  969.       "FEDERATION","UNION",        |          "INTREPID","VALIANT",            
  970.       "CONNECTION","AFFINITY"      |          "VALOROUS"                       
  971. 01490 DATA8,"ALONE","SOLITARY",    |    01660 DATA6,"BRIGAND","BANDIT",        
  972.       "LONELY","LONESOME","LONE",  |          "HIGHWAYMAN","FOOTPAD",          
  973.       "FORLORN","LORN",            |          "MARAUDER","OUTLAW"              
  974.       "DESOLATE"                   |    01670 DATA7,"BUNDLE","BUNCH",          
  975. 01500 DATA6,"AMUSE","DIVERT",      |          "BALE","PARCEL","PACK",          
  976.       "ENTERTAIN","RECREATE",      |          "PACKAGE","PACKET"               
  977.       "BEGUILE","ENLIVEN"          |    01680 DATA12,"BURN","SCORCH",          
  978. 01510 DATA8,"APPARITION",          |          "CHAR","SINGE","IGNITE",         
  979.       "PHANTASM","PHANTOM","GHOST" |          "CONSUME","CAUTERIZE",           
  980.       ,"SPIRIT","SPOOK","HAUNT",   |          "CREMATE","INCINERATE",          
  981.       "VISION"                     |          "GLOW","SMOLDER",                
  982. 01520 DATA11,"APPLAUD","CHEER",    |          "BLAZE"                          
  983.       "HURRAH","ROOT","COMMEND",   |    01690 DATA5,"COMMERCE","BUSINESS",     
  984.       "APPROVE","EXTOL","ENCORE",  |          "TRADE","INDUSTRY",              
  985.       "LAUD","PRAISE","CLAP"       |          "TRAFFIC"                        
  986. 01530 DATA5,"ATTACK","ASSAIL",     |    01700 DATA4,"CALCULATE","COMPUTE",    
  987.       "ASSAULT","BOMBARD",         |          "ESTIMATE","RECKON"             
  988.       "STORM"                      |                                          
  989.                                    |
  990.                             
  991. è  BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR
  992.       CODE  DESCRIPTION                         PRICE
  993.                   "The Catcher"
  994.         BC02  Volume 2 (Oct.83-Sept.84)                     $15.00
  995.         BC03  Volume 3 (Oct.84-Sept.85)                     $15.00
  996.         TC01  Back Issues (single)                          $ 1.50
  997.         TC02  Back Issues (Vol 2 Nos. 6/7)                  $ 3.00
  998.         CS30  Blank C-30 Cassettes                          $ 1.50
  999.         CB30  Blank C-30 Cassettes (20 per box)             $25.00
  1000.         DSS5  Blank 5.25" Disks (Xidex DSDD)                $ 4.00
  1001.         DSB5  Blank 5.25" Disks (10 per box)                $35.00
  1002.         SSD5  Blank 5.25" Disks (SSDD)                      $ 2.00
  1003.         SS35  Blank 3.5" Disks (FUJI SSDD)                  $ 6.00
  1004.         SB35  Blank 3.5" Disks (10 per box)                 $52.00
  1005.         DB60  Disk Storage Box 3.5" (Lockable holds 60)     $30.00   
  1006.         DB35  Disk Storage Box 3.5" (holds 35)              $18.00
  1007.         DB85  Disk Storage Box 5" (Lockable holds 85)       $18.00  
  1008.         DB70  Disk Storage Box 5" (holds 70)                $15.00
  1009.         DB10  Disk Library Box 5" (holds 10)                $ 3.00
  1010.         DB11  Rubycliff Library Box (holds 10)              $ 4.00
  1011.         BA01  BeeArtistic (Graphic S/W)                     $45.00
  1012.         FP01  Flashprint (with Flashkey)                    $40.00
  1013.         WC04  WILDCARDS 4                                   $13.00
  1014.         BB01  Basic for Beginners (D. Kenney)               $15.00
  1015.         DC01  Dust Covers for 'BEE                          $ 6.00
  1016.         MB01  Magazine Binders (for Online etc.)            $ 7.00
  1017.                           PR80  Carbon Printer Ribbon
  1018.                    (suit xyz.80/100 printers)               $ 9.00
  1019.       **PP05  500 sheets cont. printer paper
  1020.                    (240mm wide (2.5Kg))                     $11.00
  1021.       **CP25  250 sheets five colours as PP05 (1.3 Kg)      $12.00
  1022.               Grotnik S/W available     (see this issue)
  1023.  
  1024.      ** not normally available for postal purchase 
  1025.     All postal orders to be sent to: MBUG AUSTRALIA SALES
  1026.                                      P.O.BOX 253, COBURG 
  1027.                                      VICTORIA  3058
  1028. T∩ avoiΣ delays¼ al∞ order≤ mus⌠ includσ cheque¼ posta∞  orde≥ o≥  BankcarΣ  ì
  1029. authorizatioεá fo≥á thσ tota∞ amoun⌠ (inc«á  posta∞ ªá  handlinτá charges)«  ì
  1030. Allo≈ 1┤ day≤ fo≥ thσ returε oµ goods¼ o≥ pick-u≡ a⌠ thσ nex⌠ meeting« 
  1031.                  Good≤ arσ onl∙ availablσ t∩ cluΓ members.
  1032. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ì
  1033.    Please charge my Bankcard: No.___ __ ___ ______  
  1034.  
  1035.    Expiry Date __/__/____                Signature.................
  1036.    Members Name :____________________________ Membership No. ______
  1037.    Address :_______________________________________________________ 
  1038.    Code Item                          Quantity  Price   Total Cost
  1039.    ____ _____________________________ ________  _____   __________
  1040.    ____ _____________________________ ________  _____   __________
  1041.    ____ _____________________________ ________  _____   __________
  1042.    POSTAL FEES (within Australia)     Sub-Totals Items  $_________
  1043.    $10 to $20 order   :$2.50    Postage & handling Fee  $_________
  1044.    $20 to $50 order   :$5.00               
  1045.    greater than $50   :P.O.A.              Total Order  $_________
  1046.  
  1047.    CertifieΣá Mai∞á adΣ $0.9░          RegistereΣá Mai∞á adΣ $3.65 
  1048.                    MINIMUM POSTAL ORDER AMOUNT $10.00     
  1049.   BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAAR*SALES*BAZAARè     THE MEMBERSHIP SECRETARY                     #
  1050.      MBUG AUSTRALIA INCORPORATED.               
  1051.      P.O. BOX 157                                    /    /
  1052.      NUNAWADING. Victoria. 3131.                
  1053.                                              
  1054.  
  1055.      NAME:______________________________________________________
  1056.  
  1057.      ADDRESS:___________________________________________________ 
  1058.      
  1059.      POST CODE:___________      TELEPHONE:______________________   
  1060.      
  1061. WHERE DID YOU HEAR ABOUT MBUG:__________________________________
  1062.  
  1063. If RENEWIN╟ membership¼  attacΦ olΣ MAILIN╟ labe∞ above¼ or,
  1064. If NE╫ membership¼  pleasσ fil∞ iε above¼ read¼ anΣ sigε below.
  1065.  
  1066. Please find enclosed my remittance of $________
  1067.           being for (tick applicable box below)
  1068.  
  1069. Find enclosed cheque/money order, or,
  1070. Charge my Bankcard / Visa          No.____ ____ ____ ________  
  1071.  
  1072. Expiry Date __/__/____             Signature.................
  1073.  
  1074.  
  1075.  
  1076.                           YEARLY FEES   
  1077.  
  1078.                RENEWAL OF MEMBERSHIP         [ ]
  1079.                FULL (City)         @ $20.00  [ ]
  1080.                OVERSEAS            @ A$20.00 [ ]
  1081.                COUNTRY             @ $17.00  [ ]
  1082.                STUDENT             @ $15.00  [ ]
  1083.                RBBS ONLY           @ $10.00  [ ]
  1084.                TAPE LIBRARY        @ $10.00  [ ]  (Payable once only)
  1085.  
  1086. ╔ DESIR┼ T╧ BECOM┼ ┴ MEMBE╥ O╞ MBU╟ AUSTRALI┴ INCORPORATED¼ ╔ AGRE┼ T╧ ì
  1087. B┼ BOUN─ B┘ TH┼ RULE╙ O╞ TH┼ ASSOCIATIO╬ FO╥ TH┼ TIM┼ BEIN╟ I╬ FORCE.
  1088.  
  1089.                  SIGNATURE: _____________________ DATE: ________
  1090.  
  1091. *********************************************************************
  1092.  
  1093. COMMITTEE USE ONLY.                      
  1094.  
  1095. I¼ ____________________________________▀ NOMINAT┼ TH┼ APPLICANT¼ ì
  1096. FOR MEMBERSHIP TO THE ASSOCIATION.
  1097.  
  1098.                  SIGNATURE:_____________________________________
  1099.  
  1100.  
  1101. I¼á _________________________________▀á SECON─ TH┼ NOMINATIO╬á O╞ ì
  1102. THE APPLICAN╘ FO╥ MEMBERSHI╨ T╧ TH┼ ASSOCIATION.
  1103.  
  1104.                  SIGNATURE:_____________________________________ 
  1105.  
  1106. DATE ACCEPTED_________ MEMBERSHIP NUMBER_________ CLASS_________
  1107.