CP/M/CPM_CDROM.iso/mbug/mbug011.arc/1985NOV.CAT

Text File | 1979-12-31 | 58KB | 1,107 lines

.PL70
.PO0
.OP
.HE      ---- T H E  C A T C H E R ----   #
Thσ followinτ i≤ ß lis⌠ oµ thσ 1985/8╢ committeσ anΣ somσ oµ thσ peoplσ wh∩ ì
havσ offereΣ thei≥ assistance« Iµ therσ i≤ anythinτ yo⌡ requirσ o≥ an∙ hel≡ ì
yo⌡á caεá givσá us¼á pleasσ d∩ no⌠ hesitatσ t∩ contac⌠ an∙ onσá oµá us«á Iµ ì
phoning, please do so at a reasonable hour.

              EXECUTIVE

PRESIDENT                               ANDREW BARFOOT           758-4822
VICE-PRESIDENT                          MICK HOLZINGER           354-6742
SECRETARY                               AXEL JOSCHT              859-1541
TREASURER                               KEVIN CARR               233-4629
PUBLI├ OFFICE╥                          JOHN BUTTON              578-8145

                         COMMITTEE AND ASSISTANTS

Terry Murphy        369-4111            Graham Schultz           848-5485
Ray Han (B/H)       817-1371            John Buxton              758-5744
Jim Lobley          758-9169            David Soutar             836-3661
Gran⌠ Fores⌠        874-872╕            Steveε Jepsoε             45-4226
Mike Thompson       82-5002             Robert Broomhead         546-3020
Wal Hansen                              Richard Collett (B/H)    690-8283
Peter Wagner  (059) 96-5957

SERVICES  PROVIDED  BY  MBUG  AUSTRALIA

     -------------------------------------------------------------
     | EDITOR  A.BARFOOT. P.O. BOX 157 NUNAWADING 3131  758-4822 |
     |-----------------------------------------------------------|
     |PUBLIC DOMAIN DISKS  D.SOUTAR.  P.O. BOX 45 CANTERBURY 3126|
     |       $5.00 ea. (std 5 1/4") disks. OTHER SIZES POA.      |
     |     We  supply disk. POSTAL ORDERS ADD $1.50 per DISK     |
     |-----------------------------------------------------------|
     |    TAPE LIBRARY P.O. BOX 75 AVONDALE HEIGHTS Vic. 3034    |
     |-----------------------------------------------------------|
     | MODEM HIRE    *     GRAHAM SCHULTZ.      848-5485         |
     |    $5.00 FIRST WEEK  THEN $10.00 EACH ADDITIONAL WEEK     |
     |                    PLUS $25.00 DEPOSIT                    |
     |-----------------------------------------------------------|
     | BAZAAR  * MICK HOLZINGER  P.O. BOX 253 COBURG  3058       |
     |  FOR PRICES OF GOODS ON SALE IN THE BAZAAR, A PRICE LIST  |
     |  WILL BE PUBLISHED EVERY 2nd MONTH. MAIL ORDERS ACCEPTED  |
     |-----------------------------------------------------------|
     | DISK FORMAT COPYING * GRANT  FOREST  874-8728  A.H. ONLY  |
     | 5" to 8"  or  8" to 5"  MOST FORMATS  $2.00 PER DISKETTE  |
     |      COPYING OF THE 3" C.I.A.B. IS ALSO CATERED FOR       |
     |         FOR POSTAL ORDERS ADD $1.50 per Diskette          |
     |-----------------------------------------------------------|
     |           RBBS SYSTEM OPERATORS AND PROGRAMMERS           |
     |                    SYSOP  GRANT FOREST                    |
     |  REMOTE SYSOPS:  Ray Han. Mike Thompson. Richard Collett  |
     |-----------------------------------------------------------|
     | ADVERTISEMENTS *   P.O. BOX 157 NUNAWADING 3131           |
     | $80.00 FULL PAGE   $40.00 HALF PAGE   $25.00 QUARTER PAGE |
     | $3.00 FOR SERVICE AND RECURRENT ITEMS (LESS THAN 5 LINES) |
     |     NO CHARGE FOR NON RECURRING PRIVATE SALES ITEMS       |
     |-----------------------------------------------------------|
     |  THE CATCHER is published by MBUG AUSTRALIA INCORPORATED  |
     |All copyrights are reserved by MBUG AUSTRALIA INCORPORATED |
     -------------------------------------------------------------è FRO═ TH┼ CHIE╞ MICROBUG-FRO═ TH┼ CHIE╞ MICROBUG-FRO═ TH┼ CHIE╞ MICROBUG ì

     Welcomσ t∩ al∞ members« Thi≤ montΦ wσ havσ ß fe≈ announcement≤ t∩ makσ ì
abou⌠ what we are starting to get done and what we have achieved so far.

     Firs⌠ oµ all¼á b∙ thσ timσ yo⌡ reaΣ this¼á al∞ thosσ peoplσ logginτ oε ì
t∩ thσ Bulletiε BoarΣ wil∞ probal∙ havσ noticeΣ ß lo⌠ oµ file≤ missing«á A⌠ ì
thσá las⌠á CP/═ (hackers⌐ night¼á wσ testeΣ al∞ thσ downloadablσ file≤á fo≥ ì
thei≥ operation« Man∙ file≤ havσ beeε deleted« Iµ yo⌡ havσ sen⌠ file≤ t∩ u≤ ì
a⌠ an∙ time¼á pleasσ checδ iµ i⌠ i≤ stil∞ there«á Iµ i⌠ i≤ not¼á i⌠ doesn'⌠ ì
meaε it'≤ n∩ good¼á jus⌠ tha⌠ i⌠ didn'⌠ reacΦ ou≥ systeφ iε onσ piecσ s∩ t∩ ì
speak«á Pleasσá downloaΣ i⌠ again«á Thσ systeφ problem≤ wσ werσ havinτá diΣ ì
causσ man∙ problem≤ witΦ filσ transfers¼á botΦ ways«á ╔ hopσ yo⌡ caε assis⌠ ì
in filling the board up with good software again.

     Thi≤á montΦ ╔ havσ thσ pleasurσ oµ announcinτ thσ winne≥ oµ thσá Ches≤ ì
move≤ competition«á Thσ standarΣ oµ entr∙ wa≤ excellent« Thσ winne≥ i≤ Alaε ì
Bur⌠á anΣ hi≤ teε │ 1/2ó disk≤ wil∞ bσ forwardeΣ t∩ him«á Thσ valuσ a⌠á ou≥ ì
disδá sale≤á pricσ i≤ ove≥ $50.0░ s∩ ╔ hopσ other≤ ma∙á partakσá oµá futurσ ì
competitions«á Thσ listinτ oµ thσ winninτ prograφ wil∞ bσ publisheΣ iε nex⌠ ì
month≤á Catcher«á B∙ thσ way¼á thσ numbe≥ oµ square≤ i≤ 14«á ┴ ne≈ softwarσ ì
competitioε is included in the RBBS column.

     Ou≥ Decembe≥ meetinτ wil∞ b∙ ß part∙ meetinτ anΣ wσ wil∞ bσá supplyinτ ì
a few party pies etc., so set aside Dec. 11th.

     A⌠á thσá Novembe≥á anΣá subsequen⌠ meetings¼á therσ wil∞á bσá ßá BASI├ ì
questioεá anΣ answe≥ areß se⌠ asidσ fo≥ thosσ usinτ BASIC«á Therσá wil∞á bσ ì
someonσ therσ t∩ hel≡ yo⌡ iµ yo⌡ havσ an∙ problems« Iµ yo⌡ caε assis⌠ o≥ iµ ì
yo⌡ wan⌠ hel≡ comσ along.

     Oncσ again¼á thσ committeσ ha≤ askeΣ mσ t∩ asδ yo⌡ t∩ pleasσ assis⌠ u≤ ì
witΦá you≥á correspondence«á  PLEASE¼á iµ yo⌡ arσ writinτ t∩ morσ thaεá onσ ì
committeσ member¼á pu⌠ eacΦ reques⌠ oε ß separatσ piecσ oµ paper¼á or¼ senΣ ì
eacΦ reques⌠ o≥ lette≥ separatel∙ t∩ thσ appropriatσ person«á You≥á letter≤ ì
arσá likel∙á t∩á ge⌠ los⌠ iµ thσ onσ shee⌠ ha≤ t∩ bσ passeΣ oεá t∩á severa∞ ì
people.

DISCOUNT NUMBER 807


I⌠ i≤ witΦ dee≡ regre⌠ tha⌠ ╔ havσ t∩ announcσ thσ deatΦ oµ Johε McInnes
afte≥ ß (thankfully shor⌠) perioΣ oµ illness«

Johε wa≤ ß partne≥ iε Australbeσ Pty« Ltd« thσ Microbeσ sho≡ iε Gleε ì
Waverl∙ Victoria« John¼ togethe≥ witΦ hi≤ brother-in-la≈ Steve¼ operateΣ ì
thσ sho≡ iε Springvalσ RoaΣ fo≥ somσ tw∩ years¼ anΣ wa≤ instrumenta∞ iε ì
gettinτ man∙ ne≈ Microbeσ user≤ ofµ t∩ ß gooΣ start« Johε wil∞ bσ greatl∙ ì
misseΣ b∙ thσ member≤ oµ MBU╟ anΣ thσ reader≤ oµ thσ Catche≥ wh∩ kne≈ him.

Oε behalµ oµ thσ committeσ anΣ member≤ oµ MBUG¼ ╔ woulΣ likσ t∩ offe≥ ou≥ ì
sinceres⌠ condolence≤ t∩ John'≤ famil∙ anΣ loveΣ ones.



Andrew L. Barfoot.
PRESIDENT.     MBUG AUSTRALIA INCORPORATED.

 FRO═ TH┼ CHIE╞ MICROBUG-FRO═ TH┼ CHIE╞ MICROBUG-FRO═ TH┼ CHIE╞ MICROBUG è                                  FRACTALS
                                  --------

      Producσ fractal≤ iε intricatσ detai∞ witΦ thi≤ high-resolutioε
              prograφ that draws striking geometric designs.

     Wheεá i⌠ come≤ t∩ drawinτ fractals¼á thσ morσ detai∞ yo⌡ caεá ge⌠á thσ ì
better«á  That'≤ because¼ b∙ definition¼ fractal≤ arσ geometriπ shape≤ witΦ ì
infinitσá detail«á  Fracta∞ i≤ ß terφ mathematician≤ usσ t∩ describσ ß kinΣ ì
oµ shapσ tha⌠ occur≤ iε nature«  Fractal≤ havσ detai∞ tha⌠ multiplie≤ a≤ i⌠ ì
get≤á smaller¼á likσá ß treσ witΦ ß singlσá trunk¼á severa∞á branches¼á anΣ ì
thousand≤á oµ twigs«á Iε truσ fractals¼á thi≤ detai∞ i≤á infinite«á Anothe≥ ì
characteristiπ i≤ tha⌠ thσ smalle≥ partsº shape≤ arσ simila≥ t∩ thσ outlinσ ì
oµ thσ objec⌠ a≤ ß whole«á  Iε nature¼á mountain≤ anΣ coastlines¼ crystals¼ ì
anΣá eveεá broccolΘ caε bσ fractals«á  Iε thesσá cases¼á thσá detai∞á isn'⌠ ì
necessaril∙ ß perfec⌠ cop∙ oµ thσ whole«  Howeve≥  iε regular¼ o≥ geometriπ ì
fractal≤ al∞ part≤ arσ exactl∙ thσ same«

     Thi≤ prograφ draw≤ regula≥ fractals«á  Threσ specification≤á determinσ ì
thσá fractal≤ shape«á  Thσ firs⌠ i≤ thσ 'NUMBE╥ O╞ SIDE╙ (min«á 3)º t∩á thσ ì
basiπá shape«á  Fo≥á thσ seconΣ yo⌡ mus⌠ specif∙ 'INVERS┼  (Y/N)ºá tha⌠á i≤ ì
whethe≥á thσá prograφ add≤ o≥ subtract≤ smalle≥ shapes«á  Wheε thσá prograφ ì
subtract≤á volumσ froφ thσ basiπ shape¼á yo⌡ ge⌠ what'≤ calleΣá aεá inversσ ì
fractal«á  Thσá thirΣ facto≥ i≤ thσ 'NUMBE╥ O╞ LEVEL╙ (1-4)'¼á tha⌠ i≤á thσ ì
numbe≥á oµá time≤á thσ prograφ add≤ o≥ subtract≤ smalle≥á shapes«á  A≤á thσ ì
numbe≥ oµ level≤ increases¼á thσ complexit∙ oµ thσ fracta∞ increases«  Eveε ì
witΦ HIRE╙ graphics¼á fou≥ level≤ i≤ abou⌠ a≤ higΦ a≤ yo⌡ caε go«á  Comple° ì
fractal≤ witΦ man∙ side≤ anΣ fou≥ level≤ caε takσ teε minute≤ t∩ draw¼  bu⌠ ì
mos⌠ takσ abou⌠ tw∩ t∩ threσ minutes«   Somσ example≤ t∩ try:-

  3N3   4Y3   3Y4   8Y2   3N2   20Y1   4Y2   4N2   7Y1   6Y2   5N2   7Y3


00100 REM      FRACTALS FOR THE MICROBEE IN HIRES
00110 REM
00120 REM Converted from 'Fractals in Focus'  S.Justice
00130 REM 80 Micro  May 1985,   by Mark Bishop 14.8.85
00140 ON ERROR GOTO 560
00150 REM          SCREEN PIXEL SIZES
00160 STRS (2000): CLS: C0=3.14159/180: X0=511: Y0=255
00170 INPUT "NUMBER OF SIDES (min. 3) ";S0
00180 REM     BEGINNING X AND Y (SCALED TO SCREEN SIZE )
00190 C1=X0*.6: C2=Y0*.8: X2=C1: Y2=Y0+1-C2
00200 W=INT(X2): X=INT(Y2)
00210 INPUT "INVERSE            (Y/N) ";I0$: I0$=I0$(;1,1)
00220 REM     ANGLES TO TURN RIGHT AND LEFT
00230 R0=-360/S0: L0=R0+180
0024░áI╞ I0$="yó O╥ I0$="Yó THE╬ LE╘ C3$="A"║ W0=R0║ R0=-L0║
      L0=-W░ ELS┼ LE╘ C3$="Ró
00250 A1$=C3$
00260 IF I0$ <> "Y" AND I0$ <> "y" THEN 300
00270 A2$="R": S1=S0-2: FOR N0=1 TO S1: A2$=A2$+"L": NEXT N0
00280 A2$=A2$+"R"
00290 GOTO 320
00300 A2$="L": S1=S0-2: FOR N0=1 TO S1: A2$=A2$+"R": NEXT N0
00310 A2$=A2$+"L"
00320 INPUT "NUMBER OF LEVELS   (1-4) ";L1: IF L1=1 THEN 380
00330 Z7$=STR(INT(S0))+" "+I0$+STR(INT(L1))
00340 REM EXPAND STRING FOR MULTIPLE LEVELSè00350 B0$="": FOR N0=2 TO L1: L2=FLT(LEN(A1$))
0036░ FO╥ N1=▒ T╧ L2║ B0$=B0$+A1$(;(INT(N1)),(INT(N1)))+A2$║
      NEX╘ N1
00370 A1$=B0$: B0$="": NEXT N0
00380 REM     SCALE SIZE OF DIAGRAM TO FIT ON SCREEN
00390 L3=X0*1/(S0*3^L1)
00400 REM  CLEAR GRAPHICS SCREEN AND SET TO STARTING X,Y
00410 B1$="": CLS: HIRES
00420 FOR Z0=1 TO S0
00430 FOR N0=1 TO FLT(LEN(A1$))
00440 B1$=A1$(;(INT(N0)),(INT(N0)))+A2$
00450 FOR N1=1 TO FLT(LEN(B1$)):
      B0$=B1$(;(INT(N1)),(INT(N1)))
00460 IF B0$="A" THEN LET A0=A0+W0: GOTO 480
00470 IF B0$="L" THEN LET A0=A0+L0 ELSE LET A0=A0+R0
00480 A4=A0*C0
00490 X4=X4+L3*COS(A4): Y4=Y4+L3*SIN(A4)
00500 X3=FLT(INT(X4)):Y3=FLT(INT(Y4)):X1=X3+C1:Y1=254-(Y3/2+C2)
00510 Y=INT(X1):Z=INT(Y1)
00520 PLOT W,X+64 TO Y,Z+64
00530 W=Y: X=Z: V=V+1
00540 CURS 10,15: PRINT V;" steps  ";USED;" pcg used"
00550 NEXT N1: NEXT N0: NEXT Z0
00560 CURS 35,15: PRINT" Finished ";
00570 PRINT STR(INT(S0))+" "+I0$+STR(INT(L1))
00580 K0$=KEY$:IF  K0$="" THEN 580 ELSE RUN
00590 END: REM END OF PROGRAM LISTING                  áHINZ



                              CREATIVITY TEST

     Thi≤á  tes⌠á doe≤ no⌠ measurσ you≥ intelligence¼á  you≥á fluenc∙á witΦ ì
word≤á anΣá certainl∙ no⌠ you≥ mathematica∞ ability«á  I⌠á will¼á  however¼  ì
givσ yo⌡ somσ gaugσ  oµ you≥ menta∞ flexibilit∙ anΣ creativity«á  Iε thσá │ ì
year≤á sincσá  wσ developeΣ thσ test¼á wσ havσ founΣ fe≈ peoplσá wh∩á coulΣ ì
solvσá morσá thaεá halµá oµ  thσ 1▓ question≤ iεá thσá firs⌠á  try«á  Many¼  ì
however¼  reporteΣ  gettinτ answer≤ lonτ afte≥ thσ tes⌠ haΣ beeε se⌠ aside¼  ì
particularl∙ a⌠ unexpecteΣ moment≤  wheε thei≥ mind≤ werσ relaxeΣ anΣá somσ ì
reporteΣá solvinτá  question≤ ove≥ ß perioΣ oµ severa∞ days«á Takσ thi≤á a≤ ì
you≥ persona∞ challenge.

Instructions║

EacΦá questioεá belo≈á contain≤ thσ initial≤ oµ word≤á tha⌠á wil∞á makσá i⌠ ì
correct« FinΣ thσ missinτ words«

     Example║ 1╢ ╜ ╧ iε thσ P«     Answer║ Ounce≤ iε thσ Pound

     1.   26 = L of the A              7.   88 = P K
     2.    7 = W of the W              8.   13 = S on the A F
     3. 1001 = A N                     9.   32 = D F at which W F
     4.   12 = S of the Z              10.   18 = H on a G C
     5.   54 = C in a P (with J's)     11.   90 = D in a R A
     6.    9 = P in the S S            12.  200 = P for P G in M

                               Best of Luck!

                       Answers published next monthè                                BEEARTISTI├ 

     ╔á havσá jus⌠á spen⌠á somσ timσ witΦ ß cop∙ oµ ßá ne≈á produc⌠á calleΣ ì
BEEATRISTIC«á Fo≥á thosσ peoplσ wh∩ arσ considerinτ thi≤á product¼á o≥á yo⌡ ì
woulΣá likσ t∩ havσ ß prograφ likσ MA├ PAIN╘ bu⌠ no⌠ likσ t∩ pa∙ thσá pricσ ì
fo≥á aεá Applσá compute≥á (who'Σ wan⌠ onσ anyway)¼á yo⌡á couldn'⌠á g∩á pas⌠ ì
BEEARTISTIC« T∩ quotσ thσ introductioε pagσ oµ thσ BEEARTISTI├ package:

     "Beeartistiπá i≤ aε interactivσ softwarσ packagσ whicΦ allow≤á yo⌡á t∩ ì
creatσ higΦ resolutioε drawing≤ usinτ ß variet∙ oµ tools."

     Thσá firs⌠ gooΣ thinτ ╔ noticeΣ abou⌠ thσ packagσ wa≤ tha⌠ thσá manua∞ ì
wa≤ writteε iε plaiε English« Yo⌡ don'⌠ havσ t∩ bσ ß compute≥ exper⌠ t∩ usσ ì
thσ package«á I⌠ i≤ ß concise¼ wel∞ writteε booδ witΦ gooΣ indexe≤ anΣ botΦ ì
tex⌠ anΣ picture≤ t∩ hel≡ yo⌡ becomσ accustomeΣ t∩ usinτ thi≤ software«á I⌠ ì
als∩á include≤ ß quicδ referencσ guidσ a⌠ thσ rea≥ oµ thσ booδ iε casσá yo⌡ ì
ge⌠á los⌠ froφ timσ t∩ timσ o≥ fo≥ thosσ wh∩ wan⌠ t∩ hacδ straigh⌠ int∩á i⌠ ì
withou⌠ readinτ thσ manual« (mos⌠ people)

     T∩á ge⌠ yo⌡ starteΣ oε thσ program¼á thσ author≤ havσ se⌠ u≡ ßá "slidσ ì
showó oµ picture≤ tha⌠ havσ beeε createΣ b∙ thσ package« Thesσ sho≈ somσ oµ ì
thσá possibilitie≤ oµ Beeartistiπ iε thσ shapσ oµ linσ drawing≤á anΣá othe≥ ì
comple°á shapes«á Thi≤á slidesho≈á i≤ calleΣ u≡ b∙ wa∙á oµá A>BEESLID┼á anΣ ì
selectinτ froφ thσ men⌡ thσ wa∙ YO╒ woulΣ likσ thσ sho≈ t∩ run«á Thσ manua∞ ì
wil∞ tel∞ yo⌡ ho≈ yo⌡ caε se⌠ u≡ you≥ owε slidσ shows«

     No≈á fo≥ thσ program«á T∩ ge⌠ Beeartistiπ u≡ anΣ runninτ typσ  B┴ <CR╛ ì
anΣ yo⌡ wil∞ bσ greeteΣ witΦ ß log∩ anΣ copyrigh⌠ notice«á Pres≤ returε anΣ ì
thσ prograφ i≤ running«á B∙ pressinτ thσ `?º ke∙ yo⌡ wil∞ bσ presenteΣ witΦ ì
thσ maiε menu«á Thi≤ men⌡ offer≤ 2┤ choices¼ froφ informatioε t∩ endinτ thσ ì
session«á Selectioεá oµá thσá men⌡ item≤ i≤ donσ b∙ wa∙á oµá WordSta≥á typσ ì
control≤á (^e^s^d^°á etc.⌐á t∩ maneuve≥ thσ curso≥ t∩ thσá differen⌠á icoε ì
stylσá choice≤á anΣá theεá pressinτ return«á Thesσ iεá turεá takσá yo⌡á t∩ ì
secondar∙á menu≤á a≤ requireΣ o≥ straigh⌠ t∩ thσ "Canvasóá t∩á star⌠á you≥ ì
drawings« Froφ therσ i⌠ i≤ u≡ t∩ you≥ artistiπ expression«

     Thσá materia∞ yo⌡ havσ t∩ worδ witΦ includσ abou⌠ 9░ differen⌠á shape≤ ì
useΣ b∙ wa∙ oµ brush¼á pencil¼á spra∙ can¼á pain⌠ rolle≥ anΣ othe≥ assorteΣ ì
methods«á Thσá picture≤ caε bσ "editedó iε placσ fo≥ finσ detai∞ anΣá thesσ ì
picture≤ caε bσ useΣ t∩ makσ you≥ owε icons« Thσ Edito≥ caε als∩ bσ useΣ t∩ ì
makσá u≡á you≥á owε shape≤ anΣ yo⌡ caε incorporatσá thesσá shape≤á iεá you≥ ì
drawings«á Detail≤ caε bσ copieΣ t∩ othe≥ part≤ oµ you≥ picturσ a⌠ an∙ timσ ì
b∙ usinτ thσ cop∙ command«  Tex⌠ caε als∩ bσ imbeddeΣ int∩ you≥ picture.

     Picture≤ caε bσ painted¼ filleΣ (withiε boundarys⌐ reversed¼ inverted¼ ì
copied¼á mirrored¼ saveΣ t∩ disδ anΣ dumpeΣ t∩ aε EPSO═ compatiblσ printer«  ì
PrinteΣ picture≤ caε bσ iε thσ forφ oµ ß draf⌠ o≥ ß finisheΣá product¼á thσ ì
finisheΣ cop∙ beinτ ß large≥ anΣ bette≥ qualit∙ print« Thσ printinτ i≤ donσ ì
sideway≤ oε you≥ printe≥ anΣ gooΣ detai∞ i≤ achieved«

     B┴á picture≤ caε bσ saveΣ t∩ disδ a⌠ an∙ timσ anΣ recalleΣ a⌠ an∙ timσ ì
fo≥ furthe≥ editing«

     Thσá onl∙á limitinτá facto≥á iεá thσ wholσá prograφá i≤á tha⌠á oµá thσ ì
Microbee'≤ PC╟ limit¼á bu⌠ througΦ skillfu∞ programming¼á thσ author≤á havσ ì
utiliseΣ thσ PCG'≤ t∩ thei≥ fulles⌠ extent«á Iµ b∙ chancσ yo⌡ comσ closσ t∩ ì
thσá PC╟ limit¼á ß warninτ messagσ i≤ displayeΣ anΣ thi≤ give≤ yo⌡ ß chancσ ì
t∩ modif∙ you≥ sketcΦ t∩ aver⌠ thi≤ problem«
è     Oncσ yo⌡ havσ finisheΣ you≥ picturσ i⌠ caε bσ saveΣ anΣ giveε  ßá .CO═ ì
extension« Thi≤ enable≤ yo⌡ t∩ cal∞ u≡ ß filσ an∙ timσ froφ CP/M« Thesσ arσ ì
onl∙á ß fe≈ oµ thσ thing≤ tha⌠ BEESLID┼ caε d∩ fo≥ you«á Thσá wholσá systeφ ì
seem≤ t∩ lacδ nothinτ anΣ ╔ coulΣ no⌠ finΣ an∙ faul⌠ witΦ i⌠ iε an∙ way«

     Thσá wholσá systeφ i≤ excellen⌠ qualit∙ anΣ valuσ anΣá i⌠á i≤á anothe≥ ì
produc⌠á oµá finσá Australiaεá ingenuit∙ anΣ origin«á Thσá pricσá ha≤á beeε ì
structureΣá t∩á le⌠á everybod∙ bu∙ i⌠ a⌠ aεá affordablσá price«á Wh∩á want≤ ì
excellen⌠á softwarσá sucΦ a≤ thi≤ withou⌠ ß manua∞ t∩ worδá with«á Besides¼ ì
piratinτ i≤ ß crimσ anΣ a≤ sucΦ i≤ no⌠ condoneΣ b∙ thi≤ club.

     Therσá wil∞á bσ ß demonstratioε oµ beeslidσ iε actioε a⌠ thσá Novembe≥ ì
meeting«á InteresteΣ member≤ caε havσ ß gooΣ looδ a⌠ thσ systeφ runninτ anΣ ì
eveεá tr∙ thei≥ hanΣ a⌠ drawinτ ß fe≈ pictures«á Onσ oµ thσ author≤ oµá thσ ì
prograφ wil∞ bσ therσ t∩ answe≥ an∙ question≤ yo⌡ ma∙ have.

     Beeslidσá i≤ availablσ oε orde≥ througΦ thσ Bazaa≥ a⌠ ß cos⌠ oµ $45.0░ ì
t∩ al∞ members«á I⌠ require≤ minimuφ 32δ RAM¼á CP/═ anΣ aε EPSO═ compatiblσ ì
printe≥á (include≤á Sta≥ anΣ Gemini)«á Thi≤ i≤ ß savinτ oµ $4.9╡ oεá retai∞ ì
price.


  FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$

32δ Microbeσ witΦ Wordbeσ anΣ Edasm¼ 17"t÷ Monitor¼ Paralle∞ Printe≥ Cable¼ ì
Al∞á issue≤ oµ thσ Catcher¼á Wildcard≤ 1,2,3«á 3░ cassettσ tape≤á includinτ ì
some blanks as well as games etc., plus extras... $375.00

Workstation built for Microbee, printer book and tape/disk storage $175.00
Phone Paul Butler  A/H on 45-2877

92δá Eproφá expansioε board«á 8x8δ (2764⌐ ª 7x4δ (2532⌐ o≥ (2732⌐á Softwarσ ì
selectablσ packs« Suit≤ 8xxx° º Bees« $80.00  Phonσ Darry∞ oε     544-2729.

64δá AP├á (appro° ▓ year≤ old⌐ Singl≥ 1/▓ heigh⌠ drivσ ª assorteΣá softwarσ ì
includinτ utilitie≤ etc«  $950.0░ Phonσ Iaε Button« 58│ 421╕ (no⌠ Monda∙ o≥ ì
Wed) or 61001 ex 1151  after 4.20 PM.

 FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-

             W  O  R  D  S  T  A  R        C  L  A  S  S  E  S

     Fo≥á thosσá oµ yo⌡ wh∩ woulΣ likσ t∩ learε t∩ usσá WordStar¼á wσá havσ ì
arrangeΣá ß clas≤ tha⌠ wil∞ begiε iε Febuary«á Thi≤ clas≤ wil∞ bσá helΣá a⌠ ì
Microbeσ Systems¼á Deepdeen« Therσ wil∞ bσ ß cos⌠ oµ $20.0░ (total⌐ fo≥ thσ ì
lesson≤á whicΦ wil∞ bσ helΣ ove≥ ß ╕ hou≥ perioΣ (┤ b∙ ▓ hour≤ each)«á The∙ ì
wil∞ bσ helΣ oε Saturda∙ morning≤ anΣ thσ clas≤ sizσ wil∞ bσ limiteΣ t∩á 1╡ ì
peoplσá pe≥ clas≤ witΦ ß minimuε oµ 1░ pe≥ class«á Thσ onl∙ thinτ yo⌡á wil∞ ì
havσá t∩á suppl∙á i≤á ß penci∞ anΣ notσá paper«á Wσá suppl∙á thσá computer« ì
Registratioε wil∞ ONL┘ bσ accepteΣ iε writing«  Iµ registration≤ exceeΣ thσ ì
numbe≥á oµá place≤á morσ thaε onσ clas≤ wil∞ bσ held«á ┴ fris⌠á comσá firs⌠ ì
serveΣ basi≤ wil∞ appl∙ a≤ t∩ wheε yo⌡ star⌠ you≥ lessons« Al∞ application≤ ì
shal∞ includσ you≥ enrollmen⌠ feσ andé MUS╘ addresseΣ to:

 MBUG AUST. INC.
 WORDSTAR CLASSES
 P.O. BOX 157
 NUNAWADING.
 Vic. 3131è                     PASCAL_FOR_BASIC_PROGRAMMERS

                               PART X.               Dixon Kenney

     Thi≤á montΦá wσ arσ goinτ t∩ writσ thσ procedurσ whicΦ wil∞á edi⌠á an∙ ì
item«á  A≤á wel∞ a≤ editinτ aε item¼á s∩ tha⌠ an∙ fielΣ caε bσ changed¼á wσ ì
wil∞ havσ aε optioε whereb∙ thσ iteφ caε bσ markeΣ fo≥ deletion«á  Wσá onl∙ ì
marδ thσ item¼á s∩ that¼á durinτ aε editinτ session¼á wσ caε unmarδ it¼á iµ ì
necessary«á  Thσ actua∞ deletioε wil∞ bσ donσ b∙ ß separatσ function¼ whicΦ ì
wσ wil∞ looδ a⌠ nex⌠ time.

áááááááááProgrammer≤á iεá dBAS┼á I╔ wil∞ recognisσá thi≤á wa∙á oµ ì
ááááááááádeletinτá aε iteφ froφ ß database«á  Thi≤ wa∙ mean≤ tha⌠ ì
áááááááááthσá iteφá i≤ no⌠ deleteΣ unti∞ wσ arσ finall∙á surσá oµ ì
áááááááááwha⌠ wσ arσ doinτ - i⌠ give≤ u≤ thσ chancσ t∩ changσ ou≥ ì
ááááááááámind.

Procedure  Edit;

Const
  Header  =  '* EDIT AN EXISTING ITEM OF STOCK *';

Var
  PN, Pointer, Option  : Integer;
  Again, Found, More   : Boolean;
  YesNo, Yeah          : Char;

Begin

  Assign(PartFile, FileName);
  Reset(PartFile);

  Again := True;

  Repeat
    ClrScr;
    Writeln(' ':20, Header );
    Writeln;  Writeln;
    Write('Enter the Part Number of the item required : ');
    Readln(PN);

    With Part Do
      Begin
        Found := False;
        While not EOF(PartFile) and not Found do
          Begin
            Read(PartFile, Part);
            If PartNum = PN then
              Found := True;
            End;

        If not Found then
          Begin
            Writeln;  Writeln;
            Writeln('This item does not exist');
          End
        Else
          Begin
            More := True;è            Pointer := FilePos(PartFile);
            Repeat
              Formwrite(Header);
              GoToXY(32, 4); Write(PartNum);
              GoToXY(32, 5); Write(Description);
              GoToXY(32, 7); Write(Cost:8:2);
              GoToXY(32, 8); Write(Retail:8:2);
              GoToXY(32,10); Write(MinOH);
              GoToXY(32,11); Write(MaxReorder);
              GoToXY(32,13); Write(CurrentOH);
              GoToXY( 1,18);
              Writeln('Type in the number of the field you wish to alter');
              Write('  or  99  to delete this item  ');
              Read(Option);

              Case Option of
                1 : Begin GoToXY(32, 4); ClrEOL; Read(PartNum)   End;
                2 : Begin GoToXY(32, 5); ClrEOL; Read(Description)   End;
                3 : Begin GoToXY(32, 7); ClrEOL; Read(Cost)   End;
                4 : Begin GoToXY(32, 8); ClrEOL; Read(Retail)   End;
                5 : Begin GoToXY(32,10); ClrEOL; Read(MinOH)   End;
                6 : Begin GoToXY(32,11); ClrEOL; Read(MaxReorder)   End;
                7 : Begin GoToXY(32,13); ClrEOL; Read(CurrentOH)   End;
               99 : Begin Deleted := Not Deleted;
                    If Deleted then
                      Begin  GoToXY(10,2); Write ('* DELETED *')  End
                    Else  Begin  GoToXY(10,2); ClrEOL  End;
                    End   { of Case = 99 }
              Else Begin
                GoToXY(1,22); Writeln('Not a valid option - try again');
                Delay(2000); GoToXY(1,22); ClrEOL
              End    { Else }
              End;   { Case Option }

              GoToXY(1,22);
              Write('Do you have another entry for this item [Y/N] ?');
              Read(Yeah);
              If UpCase(Yeah) = 'Y'
                Then More := True
                Else More := False
           Until More = False;

           Seek(PartFile,Pointer-1);
           Write(PartFile, Part);

         End     { of If Found }
       End;      { of With Part do }
       Writeln;   Writeln;

       Write('Do you want to look for another part [Y/N] ? ');
       Read(YesNo);
       If UpCase(YesNo) = 'Y' then
         Begin
         Again := True;
         Reset(PartFile)
         End
       Else
         Again := False
     Until Again = False;è     Close(PartFile)

End;      { of Procedure Edit }

Comments on the code -

MucΦá oµ wha⌠ i≤ donσ herσ i≤ repeateΣ froφá othe≥á procedures¼á especiall∙ ì
Procedurσ FindItem«á Wσ havσ t∩ finΣ thσ item¼á anΣ prin⌠ i⌠ t∩ thσ screen«  ì
Oncσ tha⌠ i≤ done¼á wσ caε choosσ item≤ t∩ edit«  Thσ casσ Optioε statemen⌠ ì
shoulΣ bσ familiar¼á excep⌠ fo≥ thσ ClrEO╠ function«á  Thi≤ functioε clear≤ ì
thσá curren⌠ screeε linσ froφ thσ positioε oµ thσ curso≥ t∩ thσ enΣ oµá thσ ì
line¼á bu⌠á i≤ doe≤ NO╘ movσ thσ cursor«á  Here¼á i⌠ blot≤ ou⌠ thσá curren⌠ ì
valuσá oµá thσ fielΣ whicΦ ha≤ beeε chosen¼á allowinτ thσ use≥ t∩á typσá iε ì
anothe≥ value¼á whicΦ i≤ theε read«á  Thσ FormWritσ listinτ ha≤ t∩ modifieΣ ì
s∩á tha⌠á choicσ number≤ arσ addeΣ beforσ eacΦ fielΣ labe∞ - thi≤ give≤á u≤ ì
thσá variou≤ number≤ t∩ choose«á  Choicσ 9╣ wil∞ alte≥ thσá fielΣá Deleted¼ ì
whicΦá wa≤ se⌠ t∩ Falsσ a⌠ datß entry¼á t∩ True«á  Wheneve≥ thσ inidividua∞ ì
iteφ i≤ listeΣ oε thσ screen¼á thσ strinτ "¬ DELETE─ *ó wil∞ appea≥ a⌠á thσ ì
heaΣá oµá thσ listing¼á t∩ sho≈ tha⌠ thσ iteφ i≤ markeΣ fo≥á deletion«á  B∙ ì
typinτ 9╣ ß seconΣ time¼ thσ iteφ caε bσ undeleted.

     Oncσá thσ editinτ oµ thσ iteφ ha≤ beeε finished¼á wσ mus⌠ rewritσá thσ ì
recorΣ t∩ disk«á  Wheε wσ accesseΣ thσ recorΣ witΦ thσ ReaΣ state-ment¼ thσ ì
Filσá Pointe≥ wa≤ moveΣ t∩ poin⌠ t∩ thσ followinτ record«á  S∩ tha⌠ wσá caε ì
writσ thσ RecorΣ bacδ t∩ thσ correc⌠ placσ iε thσ file¼ wσ havσ t∩ movσ thσ ì
recorΣ pointe≥ bacδ onσ placσ t∩ poin⌠ t∩ thσ correc⌠ record«  Thi≤ i≤ donσ ì
iεá thσ "Seek(PartFile¼á Pointer-1)ó statement«á  Thσ valuσ oµ thσá curren⌠ ì
record'≤ pointe≥ wa≤ storeΣ wheε i⌠ wa≤ found¼á beforσ wσ wrotσ i⌠ t∩ disk¼ ì
iε thσ variablσ Pointer«á  Wheε thi≤ statemen⌠ i≤ executed¼á thσ pointe≥ i≤ ì
moveΣ agaiε froφ thσ beginninτ oµ thσ filσ t∩ thσ correc⌠ record«á  Wσá caε ì
theε writσ thσ recorΣ t∩ thσ filσ witΦ thσ usua∞ Writσ statement.

     Iµá wσá wan⌠á t∩á acces≤ anothe≥ record¼á wσ havσ t∩á star⌠á froφá thσ ì
beginninτ oµ thσ filσ again¼á sincσ thσ ne≈ recorΣ ma∙ bσ positioneΣ beforσ ì
thσ currentl∙ accesseΣ record«  S∩ wσ havσ t∩ Rese⌠ thσ filσ iε thσ "D∩ yo⌡ ì
wan⌠ another?ó section¼ iµ tha⌠ choicσ i≤ made.

     Iεá thσá previou≤á par⌠á oµá thi≤á series¼á wσá talkeΣá abou⌠á passinτ ì
parameter≤ t∩ ß Function«á  Thσ actua∞ situatioε oµ paramete≥ passinτ i≤á ß ì
littlσ morσ complicateΣ thaε wha⌠ wσ saiΣ there¼ however.

     Wheεá wσ passeΣ thσ paramete≥ oµ thσ FileNamσ iε thσ Functioεá Exists¼ ì
wσá actuall∙ onl∙ madσ ß cop∙ oµ thσ valuσ oµ thσ FileName¼á anΣ workeΣá oε ì
it«  Thi≤ i≤ calleΣ ß "valueó paramete≥ - wheε thσ procedurσ i≤ called¼ thσ ì
paramete≥ iε thσ calleΣ procedurσ i≤ initializeΣ t∩ thσ valuσ oµ thσ actua∞ ì
paramete≥ whicΦ correspond≤ t∩ i⌠ iε thσ call«á  Thσ actua∞ variablσ iε thσ ì
callinτ statemen⌠ i≤ protecteΣ froφ change.

     However¼á wσá ma∙ wan⌠ t∩ manipulatσ thσ actua∞ valuσ itself¼á anΣ no⌠ ì
jus⌠ ß cop∙ oµ it«á  Wσ d∩ thi≤ b∙ passinτ t∩ thσ procedurσ thσ Addres≤á oµ ì
thσá valuσ iε memory¼á s∩ tha⌠ thσ procedurσ manipulate≤ i⌠ directly«á  Thσ ì
paramete≥á iε thσ procedurσ heade≥ i≤ theε calleΣ ßá "variableóá parameter«  ì
I⌠á i≤ formeΣ b∙ writinτ thσ reserveΣ worΣ VA╥ iε fron⌠ oµ thσ variablσá o≥ ì
variable≤ b∙ whicΦ wσ arσ goinτ t∩ manip-ulatσ thσ value.

     Herσá i≤ aε examplσ oµ Variablσ paramete≥ passinτ  ¿ takeε froφ thσ T╨ ì
Manual¼á p«á 132«á  Thσá Manua∞á ╔á aφá usinτ i≤á tha⌠á fo≥á Versioεá │á oµ ì
TurboPascal.)
è     Procedure Switch ( Var a, b : Integer );
     Var    Tmp : Integer;
     begin
          Tmp := a; a := b; b := Tmp;
     end;

áááááááááThσá callinτ statemen⌠ -  Switch¿ i,Ω )╗á  wil∞ actuall∙ ì
áááááááááswitcΦ thσ value≤ oµ "ió anΣ "j"¼ whicΦ arσ addresseΣ iε ì
áááááááááthσ procedurσ b∙ thσ variablσ label≤ "aó anΣ "b".

ááááááááá     BotΦá Function≤ anΣ Procedure≤ caε usσ eithe≥á typσ ì
áááááááááoµ paramete≥ passing¼á anΣ thσ tw∩ type≤ caε bσ mixeΣ iε ì
áááááááááonσ procedurσ o≥ function«á  Herσ i≤ aε example¼ usinτ ß ì
áááááááááprocedurσ whicΦ compute≤ thσ intege≥ anΣ factiona∞ part≤ ì
áááááááááoµá ßá number«á  (Examplσ froφ "Probleφá Solvinτá .«á iε ì
áááááááááPascal¼áá b∙á Koffman¼á p.170¼á ßá booδá I'vσá mentioneΣ ì
ááááááááábefore.)

áááááProcedure Breakdown ( x    : Real;
ááááá                 Var Frac  : Real;
ááááá                 Var Whole : Integer);

áááááBegin
ááááá  Whole := Trunc(x);
ááááá  Frac  := x - whole
áááááEnd;

This procedure is called by the statement

     Breakdown ( a, r, i);
     Writeln(a:7:2, r:7:2, i:7);

áááááááááwherσ "aó i≤ ß rea∞ number¼á whosσ valuσ i≤ passeΣá int∩ ì
ááááááááá"xóá ("aóá itselµá i≤ no⌠ changeΣ b∙á thσá procedurσá )╗ ì
ááááááááá"Fracó anΣ "Wholeó actuall∙ manipulatσ thσ variable≤ "ró ì
ááááááááá(ßá real⌐ anΣ "ió (aε integer)¼á anΣ s∩ havσ thσ VA╥á iε ì
áááááááááfron⌠ oµ theφ iε thσ paramete≥ string.

ááááááááá     Iµá "aóá haΣá thσá valuσ 1.2│á wheεá Breakdowεá wa≤ ì
ááááááááácalled¼ thσ Writelε statemen⌠ woulΣ producσ thσ resul⌠ -    ì
ááááááááá1.2│     0.2│    1
ááááááááá
ááááááááá"róá anΣá "ió receivσ thei≥ value≤ froφá thσá procedure¼ ì
ááááááááárathe≥ thaε iε thσ callinτ program«  Thσ value≤ computeΣ ì
áááááááááiεá thσ procedurσ arσ addres-seΣ b∙ theφ - the∙ arσá no⌠ ì
ááááááááácopie≤ oµ thσ procedurσ values.

ááááááááá     Valuσá parameter≤ ¿ n∩ Va≥ ⌐ arσ one-wa∙á channels¼ ì
áááááááááfroφ cal∞ t∩ procedurσ o≥ function«  Variablσ parameter≤ ì
ááááááááá¿ witΦ VA╥ ⌐ arσ two-wa∙ communicatioε channels.

     Therσá i≤ mucΦ morσ t∩ learε iε Pascal¼á bu⌠ yo⌡ caε g∩ oε froφá here¼ ì
I'φ sure«  Koffman'≤ book≤ wil∞ bσ ß grea⌠ hel≡ t∩ you«  Oncσ you'vσ learn⌠ ì
Pascal¼á you'l∞ finΣ i⌠ ß better¼á albei⌠ ß longer¼ wa∙ oµ programminτ thaε ì
programminτ iε Basic.

     Thi≤á i≤á thσ las⌠ chapte≥ oµ Pasca∞ fo≥ Basiπ Programmers«á Thσá ful∞ ì
tex⌠ oµ thesσ lesson≤ wil∞ bσ availablσ oε disδ froφ thσ bazaa≥ iε thσ nea≥ ì
future. Orders can be left at this months meeting. ED.è                                ANTON2.MWB
00100 REM ___ Converted from Univac to MicroBee ___ [145]
00110 REM ___       by A.Laughton Feb'84        ___ [146]
00120 CLS [117]
00130 CURS85:INVERSE:PRINT"  A N T O N Y M S  ":NORMAL [027]
00140 PRINT\"   This is an exercise in antonyms.
      In this program, I will give you a word and you will give one
      to me that is opposite in meaning (that is, an antonym)." [065]
00150 PRINT\"   I will choose a word, you type the antonym.
      If you can't     think of a word, type in `HELP'.
      This will cause an antonym to  be printed." [114]
00155 PRINT\"   You can use Upper or Lower case, or even both." [172]
00160 PRINT\\TAB20"Hit any key when ready";:USR(32774) [125]
00170 DIMR0(5),W0(20),K(20) [010]
00180 CLS:CURS77:UNDERLINE:PRINT"I have three levels of difficulty :
      -":NORMAL [237]
00190 PRINT\TAB22"(1)  BEGINNER" [206]
00200 PRINTTAB22"(2)  INTERMEDIATE" [156]
00210 PRINTTAB22"(3)  ADVANCED" [089]
00220 PRINT\TAB9"Which level would you like to try (1,2 or 3) ? "; [057]
00230 A7$=KEY:IFA7$=""THEN230 [001]
00240 A=INT(VAL(A7$)):IF A<1 OR A>3 THEN PLAY2:GOTO 230 [137]
00250 R0$(1)="Correct.":R0$(2)="Very good.":R0$(3)="Fine." [054]
00260 R0$(4)="Fantastic.":R0$(5)="Good going." [193]
00270 CLS:PRINT"Let's begin."\:PLAY0,8:C=0 [194]
00280 IF A=1 THEN RESTORE 590 [201]
00290 IF A=2 THEN RESTORE 930 [201]
00300 IF A=3 THEN RESTORE 1210 [234]
00310 C=C+1:IFC>9THEN 520 [252]
00320 READ N0:M=INT(RND*N0)+1 [023]
00330 FOR I=1 TO M:READ L [198]
00340 FOR J=1 TO L:READ W0$(J):NEXT J [132]
00350 NEXT I [032]
00360 FOR J=1 TO L:K(J)=J:NEXT J [145]
00370 K(0)=L:K(1)=K(K(0)) [155]
00380 K(0)=L-1 [078]
00390 PRINT\"What is an antonym of  "W0$(1)"  ";:INPUT A1$ [239]
00400 A0$="":FOR X=1 TO LEN(A1$) [250]
00410 J=(ASC(A1$(;X,X))AND95) [212]
00420 A0$=A0$+CHR(J):NEXT X [113]
00430 IFA0$="HELP"THEN 480 [048]
00440 FOR J=2 TO L:IF A0$=W0$(J) THEN NEXT*J 470 [133]
00450 NEXT J [034]
00460 PRINT"TRY AGAIN.":GOTO 390 [014]
00470 PRINT CHR(15)"What is an antonym of  "W0$(1)"  ? "
      A1$ TAB 54 R0$(INT(RND*5)+1):PLAY 10:GOTO 280 [080]
00480 H=INT(RND*FLT(K(0)))+1:IF K(0)=0 THEN 510 [145]
00490 PRINT"An antonym of "W0$(1)" is ";:SPEED 255:PRINT". . . . "
      W0$(K(H))".":SPEED 0 [055]
00500 K(H)=K(K(0)):K(0)=K(0)-1:GOTO 390 [154]
00510 PRINT"I have no more antonyms listed for "W0$(1)".":GOTO 390 [119]
00520 PRINT\\\"Would you like to continue at this level <Y/N>
      or quit <Q>"; [176]
00530 A0$=KEY:IFA0$= "" THEN 530 [249]
00540 IF A0$="Y" OR A0$="y" THEN 270 [111]
00550 IF A0$="N" OR A0$="n" THEN 180 [090]
00560 IF A0$="Q" OR A0$="q" THEN CLS:PLAY 10;2:END [249]
00570 PLAY 8:GOTO 530 [021]
Data on the next pages has no Checksums. Be careful with your spelling. ED.è00580 REM ____ BEGINNERS ____      |    01030 DATA2,"FOR","AGAINST"
00590 DATA32                       |    01040 DATA2,"FUTURE","PAST"
00600 DATA2,"ABOVE","BELOW"        |    01050 DATA2,"GAIN","LOSS"
00610 DATA2,"ALIVE","DEAD"         |    01060 DATA2,"JOY","SORROW"
00620 DATA4,"ATTACK","DEFEND",     |    01070 DATA2,"KIND","CRUEL"
      "PROTECT","RETREAT"          |    01080 DATA2,"LEAST","MOST"
00630 DATA2,"BITTER","SWEET"       |    01090 DATA2,"LOVE","HATE"
00640 DATA2,"BUSY","IDLE"          |    01100 DATA3,"NOISE","QUIET",
00650 DATA2,"SMOOTH","ROUGH"       |          "CALM"
00660 DATA2,"CENTER","EDGE"        |    01110 DATA2,"PERMIT","FORBID"
00670 DATA2,"CLEAN","DIRTY"        |    01120 DATA3,"STOP","GO",
00680 DATA2,"DAY","NIGHT"          |          "START"
00690 DATA2,"EASY","HARD"          |    01130 DATA3,"REFUSE","GRANT",
00700 DATA2,"FAINT","LOUD"         |          "ALLOW"
00710 DATA2,"AUTUMN","SPRING"      |    01140 DATA2,"REMEMBER",
00720 DATA3,"FAR","CLOSE",         |          "FORGET"
      "NEAR"                       |    01150 DATA2,"SEEK","AVOID"
00730 DATA2,"FIRST","LAST"         |    01160 DATA3,"SLOWLY","QUICKLY",
00740 DATA2,"FRIEND","ENEMY"       |          "RAPIDLY"
00750 DATA2,"GOOD","BAD"           |    01170 DATA2,"QUICK","SLOW"
00760 DATA4,"HUGE","TINY",         |    01180 DATA2,"WIN","LOSE"
      "SMALL","LITTLE"             |    01190 DATA2,"WISE","FOOLISH"
00770 DATA4,"BEGIN","END",         |    01200 REM ____ ADVANCED ____
      "FINISH","COMPLETE"          |    01210 DATA23
00780 DATA2,"LIBERTY",             |    01220 DATA6,"ABATE","INCREASE",
      "SLAVERY"                    |          "INTENSIFY","HEIGHTEN",
00790 DATA3,"MOST","LEAST",        |          "AUGMENT","AGGRAVATE"
      "FEW"                        |    01230 DATA5,"ABERRATION",
00800 DATA3,"OFTEN",               |          "RECTITUDE","NORMALITY",
      "SELDOM","RARE"              |          "RATIONALITY","SANITY"
00810 DATA2,"PLENTIFUL",           |    01240 DATA5,"ABET","CURB",
      "SCARCE"                     |          "RESTRAIN","HINDER",
00820 DATA2,"QUIET","NOISY"        |          "DISSUADE"
00830 DATA2,"RAISE","LOWER"        |    01250 DATA6,"ABSTRUSE","CLEAR",
00840 DATA2,"SHORT","LONG"         |          "PLAIN","MANIFEST",
00850 DATA2,"DOWN","UP"            |          "OBVIOUS","EASY"
00860 DATA3,"GOOD","BAD",          |    01260 DATA4,"ACRIMONIOUS",
      "TERRIBLE"                   |          "BLAND","GENTLE","MILD"
00870 DATA2,"STRENGTH",            |    01270 DATA3,"ACUMEN",
      "WEAKNESS"                   |          "OBTUSENESS","DULLNESS"
00880 DATA2,"SUMMER","WINTER"      |    01280 DATA6,"ADAMANT",
00890 DATA3,"SUNNY","CLOUDY",      |          "FLEXIBLE","SUBMISSIVE",
      "RAINY"                      |          "PLIANT","OBLIGING",
00900 DATA2,"WEAK","STRONG"        |          "REPENTING"
00910 DATA2,"WORST","BEST"         |    01290 DATA8,"AFFABLE",
00920 REM __ INTERMEDIATE __       |          "UNSOCIABLE","SURLY",
00930 DATA26                       |          "TESTY","CURT",
00940 DATA2,"AGREE","DISAGREE"     |          "ILL-TEMPERED",
00950 DATA2,"ADVANCE","RETREAT"    |          "RUDE","BOORISH"
00960 DATA2,"AROUSED","CALM"       |    01300 DATA4,"AGGRAVATE",
00970 DATA3,"ARRIVE","DEPART",     |          "DECREASE","ABATE",
      "LEAVE"                      |          "ALLEVIATE"
00980 DATA4,"BUY","STEAL",         |    01310 DATA6,"ALACRITY","APATHY",
      "TAKE","SELL"                |          "SLOWNESS","DELAY",
00990 DATA2,"BEAUTIFUL","UGLY"     |          "UNCONCERN",
01000 DATA2,"DARING",              |          "INDIFFERENCE"
      "CAUTIOUS"                   |    01320 DATA5,"ALLEVIATE",
01010 DATA2,"DESTROY","BUILD"      |          "AGGRAVATE","INTENSIFY",
01020 DATA2,"FAIL","SUCCEED"       |          "INCREASE","MAGNIFY"         è01330 DATA3,"ALTRUISTIC",          |    01400 DATA6,"APT","INEPT",
      "EGOISTIC","EGOCENTRIC"      |          "UNLIKELY","UNFIT",
01340 DATA5,"AMITY","ENMITY",      |          "UNSUITABLE","CLUMSY"
      "HOSTILITY","ANTIPATHY",     |    01410 DATA7,"ARBITRARY","FAIR",
      "DISCORD"                    |          "EQUITABLE","REASONABLE",
01350 DATA2,"ANACHRONISM",         |          "CONCILIATORY","LIMITED",
      "SYNCHRONIZE"                |          "RESTRICTED"
01360 DATA4,"ANALOGY",             |    01420 DATA7,"ASCETIC",
      "DISSIMILARITY",             |          "SELF-INDULGENT",
      "UNLIKENESS","ANOMALY"       |          "SENSUAL","GLUTTONOUS",
01370 DATA5,"ANATHEMA",            |          "UNRESTRAINED","HEDONIST",
      "BENEDICTION","EULOGY",      |          "EPICUREAN"
      "BLESSING","BENISON"         |    01430 DATA4,"ASKANCE",
01380 DATA7,"APATHY",              |          "DIRECTLY","CONFIDENTLY",
      "ENTHUSIASM","INTEREST",     |          "TRUSTINGLY"
      "CONCERN","ZEAL",            |    01440 DATA3,"ASKEW","STRAIGHT",
      "EAGERNESS","FERVOR"         |          "SYMMETRICAL"
01390 DATA4,"APOSTATE",            |
      "FOLLOWER","ADHERENT",       |
      "DISCIPLE"                   |
                            ----------------

                               TURBO PASCAL

     Anyonσ interesteΣ iε Turb∩ Pascal┐ ╔ havσ somσ `edit' procedure≤ etc.¼ ì
tha⌠á ╔á aφ willinτ t∩ sharσ (exchangσ ???⌐ anΣ ╔ aφ als∩á developinτá somσ ì
program≤ usinτ Turb∩ Toolbo° oε ß 128δ system« Jiφ  434-341░  A/H.


 FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-

     ON┼á MICROBE┼ SERIE╙ I╔ PERSONA╠ COMMUNICATO╥ WIT╚ 32╦ RAM¼á NJ╙ EPRO═ ì
EXPANSIO╬ BOARD¼á CHI╨ ╕ LANGUAGE¼á VARIOU╙ SOFTWAR┼ AN─ MANUAL╙ FO╥á SALE« ì
AL╠ REASONABL┼ OFFER╙ WIL╠ B┼ CONSIDERED«á LEAV┼ ┴ MESSAG┼ O╬ THI╙ BOAR─ O╥ ì
RIN╟ BO┬ SEYMO╬ A/H«á O╬ 338-3766«á ALSO¼ HA╙ ANYON┼ SUCCSSFULL┘ GO╘ EITHE╥ ì
A╬ 8░ TRAC╦ DRIVE¼ O╥ A╬  8ó DRIV┼ WORKIN╟ O╬ TH┼ 64╦ BE┼ WIT╚ A╬ A.T« DIS╦ ì
CONTROLLE╥  ┐ DYLA╬ JUD─

92δá Eproφ expansioε board«á 8x8δ (2764⌐ ª 7x4δ (2532⌐ o≥á (2732⌐á Softwarσ ì
selectablσ packs« Suit≤ 8xxx° º Bees« $80.0░  Phonσ Darry∞ oε     544-2729.

     64δá AP├á (appro°á ▓á year≤ old⌐ Singl≥ 1/▓ heigh⌠á drivσá ªá assorteΣ ì
softwarσ includinτ utilitie≤ etc«á  $950.0░ Phonσ Iaε Button« 58│ 421╕ (no⌠ ì
Monda∙ o≥ Wed⌐ o≥ 6100▒ e° 115▒  afte≥ 4.2░ PM.

Ritroεá ▒ Ambe≥ Monitor«á  Ne≈ pricσ no≈ ove≥ $210«á  Thi≤ monito≥ give≤á ß ì
ver∙ clea≥ displa∙ anΣ i≤ iε 'a≤ newº condition«á Reasoε fo≥ sale¼ goinτ t∩ ì
ß hi-re≤ colou≥ monitor« ┴ stea∞ a⌠ onl∙  ñ 150«  Phonσ 43╣ 438▓ afte≥ 8pm«
                                        Mark Bishop

 FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-FOR-SALE-$$-
 TECHNICAL NOTES*TECHNICAL NOTES*TECHNICAL NOTES*TECHNICAL NOTES*TECHNICAL 

ECN 23-211085            VIATEL AND THE 6845 CRT CONTROLLER

PROBLEM║á  Wheεá asseccinτá VIATE╠ thσ openinτ men⌡ display≤á miscellaneou≤ ì
characters and garbage down the left hand side of the screen.

SOLUTION: Replace the CRT controller 6845 with a 6545.è                      EPSON SCREEN DUMPS and VIATEL

     Thosσ oµ yo⌡ usinτ ApplieΣ Technology'≤ VIATE╠ softwarσ witΦ aε  Epsoε ì
printe≥á wil∞ havσ founΣ tha⌠ thσ "GRAPHICó commanΣ  fo≥ screeε dump≤á wil∞ ì
no⌠á work«á  Thi≤á i≤ iε spitσ oµ thσ fac⌠ tha⌠ i⌠ state≤ oε pagσ ╡ oµá thσ ì
"VIATE╠á Softwarσ User'≤ Guideó tha⌠  "Thσ 'GRAPHICº  commanΣ  i≤á designeΣ ì
t∩ worδ witΦ  Microbeσ  DP-80/10░ printer≤ o≥ thei≥ equivalent¼ sucΦ a≤ thσ ì
Epsoε MX-80.ó Actually¼á  thσ  probleφ  i≤ tha⌠ thσ DP-8░ anΣ man∙  oµ  thσ ì
othe≥  xyz-8░ printer≤ arσ no⌠ exactl∙ "Epsoε compatibleó wheε i⌠ come≤  t∩ ì
Bi⌠á Imagσá mode«á  Iε singlσ densit∙ graphic≤ modσ  (i.e«á Escape-K⌐á  thσ  ì
"Epsoεá  compatiblesó permi⌠ 64░  dot≤  pe≥  line¼á howeve≥ thσ Epsoεá onl∙ ì
permit≤á 48░á dots«á Specifyinτ ove≥ 48░ dot≤ oε  aε Epsoε wil∞á causσá thσ ì
printe≥ t∩ "hangó o≥ ente≥  aε  erro≥ condition.

     Onσá  solutioε  i≤  t∩ alte≥ thσ Escape-╦  codσ  t∩  Escape-╠á (doublσ ì
densit∙ mode¼á 96░ dot≤ pe≥ line)¼á althougΦ thσ resultinτ screeε dum≡ wil∞ ì
no⌠ occup∙ thσ ful∞ pagσ width.

     T∩á modif∙á thσá VIATE╠ softwarσ (oε ß 64δ CP/═ system)¼á  ╔á diΣá thσ ì
following¼ afte≥ firs⌠ copyinτ thσ distributioε disk:-

(a)  Load VIATEL.COM, and enter the Monitor by pressing RESET-M.
(b)  Search for the Escape-K sequence (1B,4B hex) by entering -

                    S  0  2000  1B  4B

I found, at location 1357 hex., the following sequence:-

1B  4B  10  02    which specifies (2*256 + 16) = 528 dots!

(c)  Alter the "K" (4B hex.) to an "L" (4C hex.) by typing:-

                    A  1358   <return>     then   "4C".

(d)  Return to CP/M by typing "G 0".
(e⌐á Savσ  thσ altereΣ prograφ b∙ typinτ "SAV┼  1╣  TEST.COMó  iε responsσ ì
     t∩ thσ A╛ prompt.
(f⌐á Tr∙á runninτá TEST.CO═á anΣá iµá al∞ i≤ O╦á yo⌡á caεá renamσá i⌠á  a≤        ì
     VIATEL.CO═ o≥ whatever.

     Iµá  yo⌡ owε onσ oµ thσ ne≈ LX-8░ printers¼á  anothe≥ solutioε i≤á  t∩ ì
typσá Control-╨á <return╛á a⌠ thσ CP/═ commanΣá  leve∞á  (whicΦá send≤á al∞ ì
character≤ typeΣ t∩ thσ printer⌐  anΣ theε :-

                    <ESC> <?> <K> <control-D> <return>

whicΦ  permit≤  thσ  printe≥  t∩ reassigε thσ  Escape-╦  modσ  t∩á graphic≤  ì
modσá  ┤á (64░ dot≤ pe≥  line)«á  However¼á  ╔  don'⌠  kno≈á whethe≥á othe≥ ì
printer≤ havσ thi≤ facility.

     ╔  havσ  als∩ noticeΣ tha⌠ thσ screeε dum≡ program≤ iε  "Thσá Catcheró  ì
Octobe≥á  anΣ Decembe≥ 1984¼á  d∩ no⌠ worδ  oε  aε  Epsoε printe≥á  becausσ  ì
morσá  thaεá 48░ dot≤ arσ specifieΣ  iε  Escape-╦ mode«á  Thσ  solutioεá i≤ ì
simpl∙á t∩ alte≥ thσ "Kó iε  thσ  "printe≥ graphic≤ modσá escapσá sequenceó ì
section¼ t∩ aε "L".

     B∙  thσ  way¼á  oε  m∙ 64δ disδ system¼  ╔ havσ  founΣ  thesσ program≤ ì
worδá finσ unde≥ TBASIC├ (tapσ BASIC)¼á bu⌠ no⌠ unde≥ disδ BASIC«á Caεá an∙ ì
reade≥ help??è   MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN

Dear Friends,
          PC85¼ thσ onl∙ RO═ baseΣ Microbeσ left¼ ha≤ takeε ß ne≈ ì
ááááástandard« Thi≤ ne≈ PC8╡ feature≤ aε improveΣ baseboard« Thi≤ ì
ááááábaseborΣ include≤ thσ clocδ splitte≥ fo≥ VIATE╠ video«á Thi≤ ì
ááááámachinσá doe≤á no⌠ havσ an∙ morσ rooφá fo≥á morσá ROMS¼á thσ ì
áááááreasoε i≤ becausσ al∞ thσ availablσ RO═ spacσ ha≤ beeε used« ì
áááááYes¼á thσ machinσ ha≤ 32k≤ oµ RA═ (plu≤ 2δ PC╟ anΣ 2δ SCREE╬ ì
áááááram⌐á anΣá 72δ oµ ROMíá What'≤ iε thesσ ROM≤á yo⌡á ask┐á Thσ ì
ááááánorma∞ BASI├ interpreter¼á Wordbeσ wordprocessor¼ Telcoφ anΣ ì
áááááViate∞ Communication≤ package¼á ß simplσ Calculator¼á ß Selµ ì
áááááTes⌠ facility¼á Database¼ Spreadsheet¼ Busines≤ Graphic≤ anΣ ì
áááááthσ Shell«

ááááá     Als∩ cominτ ou⌠ thi≤ montΦ i≤ thσ star⌠ oµ thσ microbeσ ì
ááááárangσá oµ higΦ qualit∙ monitors«á Therσ arσ ß se⌠ oµ ▓á higΦ ì
áááááresolutioε monitor≤ t∩ bσ madσ availablσ shortly«á Thσ firs⌠ ì
ááááái≤á thσ Microbeσ 7030╚ 15.625kH· (0.37ó pitch⌐ RG┬á monitor« ì
áááááThi≤ onσ ╔ feel¼á performancσ wise¼ i≤ bette≥ theε m∙ RolanΣ ì
áááááCC-121«á Thσ pricσ oµ thi≤ monitor┐á $599.0░  Thσ other¼ thσ ì
áááááMicrobeσá 304░ monochromσ monito≥ shoulΣ als∩á bσá availablσ ì
áááááthi≤ montΦ fo≥ $299.00¼ thi≤ littlσ wonde≥ i≤ ß greeε screeε ì
áááááa≤ wel∞ a≤ aε ambe≥ screeε jus⌠ a⌠ thσ flicδ oµ ß switch.
ì
ááááá      HearΣ abou⌠ thσ  ne≈ Computer-In-A-Booδ offer┐ Thσ ne≈ ì
ááááásysteφ include≤ monitor¼á ▓ piece≤ oµ bundleΣ software¼ disδ ì
ááááácataloguσá  anΣ 'Beσ Primer'«á Thi≤ microbeσ introductioε i≤ ì
áááááretailinτá fo≥á $995.00íá anΣá thi≤ pricσá wil∞á las⌠á unti∞ ì
áááááChristmas«

ááááá     VIATE╠á versioε │ i≤ no≈ ou⌠ anΣ yo⌡ caε savσ u≡ t∩á 2░ ì
ááááápage≤á oµá information¼á d∩ printout≤ iεá differen⌠á shades¼ ì
áááááallowinτá colo≥á likσ printouts¼á graphiπ printout≤á oεá al∞ ì
ááááápreviousl∙á saveΣ screen≤ (a≤ opposeΣ t∩á curren⌠á receivinτ ì
áááááscreeε oε prσ versioε 3's)¼ filσ transfe≥ t∩ Viate∞ tele° o≥ ì
ááááámessagσá servicσá froφ ß Wordsta≥ createΣ filσ iε 4░á columε ì
áááááformat«

ááááá      Anybod∙á wh∩ ha≤ thσ pre-versioε │ releasσá oµá VIATE╠ ì
ááááásoftwarσá caε ge⌠ ß freσ upgradσ iµ the∙ suppl∙ thei≥ maste≥ ì
ááááácop∙á (RO═ o≥ disk⌐ a⌠ thσ Deepdenσá store«á Doe≤á everybod∙ ì
ááááákno≈ tha⌠ wσ arσ oε pagσ *225ú oµ thσ Viate∞ database?

ááááá      ONLIN┼á hit≤á thσ newstand≤ thi≤ montΦ bu⌠ onl∙á oεá ß ì
ááááátria∞á basi≤ iε Ne≈ SoutΦ Wales«á Thσ pricσ ha≤ gonσ u≡á 45π ì
ááááátooíá I⌠ i≤ ß mucΦ bette≥ standarΣ thaε thσ previou≤ ONLINE≤ ì
ááááá╔ believe«á Yo⌡ caε ge⌠ ß cop∙ froφ thσ Deepdenσ store« Comσ ì
ááááát∩á thinδá oµá it¼á ╔ migh⌠ brinτ ß fe≈ copie≤ t∩á thσá cluΓ ì
ááááámeeting«á ╔ als∩ hopσ t∩ brinτ thσ ne≈ PC8╡ t∩ thσ nex⌠ cluΓ ì
ááááámeetinτá witΦ thσ ne≈ Microbeσ 7030╚ RG┬ monitor«á Thi≤á al∞ ì
ááááádepend≤ oµ coursσ oε availability«

Raymond Han
Victorian Technical Support Manager,
Microbee Systems Limited.
DEEPDENE            3103.

   MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMN-MS-COLUMNèRCP═ REPOR╘ A╙ A╘ ▒-Nov-8╡                             Sysops.
==========================================================================
     Wσ áhavσ áreceiveΣ 571╕ phonσ call≤ u≡ t∩ midnigh⌠ Th⌡ á3▒-Oc⌠-85« áIε ì
Septembe≥ wσ haΣ 21▒ call≤ (thσ systeφ wa≤ dowε fo≥ abou⌠ ▓ weeks)¼ anΣ áiε ì
Octobe≥ wσ haΣ 57╡ calls« Thi≤ i≤ aε averagσ oµ abou⌠ 1╣ call≤ pe≥ day¼ áo≥ ì
onσ cal∞ ever∙ hou≥ anΣ ß quarter« Thσ dail∙ cal∞ ratσ i≤ showε graphicall∙ ì
below.

   Septembe≥.....................October........................
   SmtwtfsSmtwtfsSmtwtfsSmtwtfsSmtwtfsSmtwtfsSmtwtfsSmtwtfsSmtwt
   ⁿ      ⁿ      ⁿ      ⁿ      ⁿ      ⁿ      ⁿ      ⁿ      ⁿ
                                                   *
                                                  **
                                                ¬ **
                                    *           * **
25  +                               + +         + ++      +
    *                               * *         * **      *
    *    *                          * * *     * * **      *
    *    *                          * * *     * * ***     *
   *¬    *¬                         ¬ ¬ *     ¬ * **¬     *     ì
20 +½  ½ ++++                       ½ ½ +   ½ ½ + ++++    +     ì
   *¬  ¬ ****                    ¬  **¬ *   **¬ * ****    *
   *¬  ¬ ****                    *¬ **¬ *  ****** ****    *  *
   *¬  ¬ ****                    *****¬ *  ****** **** *  *  *
   **¬ ¬ ****                    *****¬ *  ****** **** *  *  *
15 ++++++++++                    +++++½ +  ++++++ ++++ +½ +  +
   **********      S D      ╘ D  *****¬ * ************ *¬ ** *¬
   **********      Y O      E O  ******** ***********¬ *¬ ******
   **********      S W      ╠ W  ******** ***********¬ *¬ ******
   **********      T N      E N ********¬ ***********¬ *********
10 ++++++++++      E        C   ++++++++++++++++++++++++++++++++
   **********      M        O   ********************************
   **********               M   ********************************
   **********                   ********************************
   **********                   ********************************
 ╡ ++++++++++                   ++++++++++++++++++++++++++++++++
   **********                   ********************************
   **********               *   ********************************
   **********               *   ********************************
   **********               *  *******************************¬¬
   -------------------------------------------------------------

     A≤ áwoulΣ bσ expected¼ modem≤ ge⌠ morσ talkativσ oε weekends«  Wσ áarσ ì
seeinτ áß lo⌠ les≤ ABORTE─ message≤ iε thσ loτ file≤ fo≥ SEN─ anΣ RECV¼ ás∩ ì
wσ presumσ you'rσ al∞ gettinτ thσ hanτ oµ i⌠ ou⌠ there« B∙ thσ way¼ wσ havσ ì
loggeΣ áabou⌠ ┤ time≤ a≤ man∙ file≤ downloadeΣ a≤ opposeΣ t∩ uploaded« áHo≈ ì
abou⌠ áß bi⌠ morσ audiencσ participatioε folks¼ wσ woulΣ appreciatσ áß áfe≈ ì
morσ contribution≤ WIT╚ ß bi⌠ oµ ß notσ abou⌠ wha⌠ it'≤ gooΣ fo≥ anΣ ho≈ t∩ ì
usσ it« Iµ yo⌡ havσ ß cutσ littlσ prograφ (anΣ especiall∙ iµ i⌠ wil∞ ruε oε ì
ß á16δ áRO═ ámicrobee⌐ theε let'≤ havσ ß looδ a⌠ it« Thi≤ ácoulΣ áearε áyo⌡ ì
instan⌠ famσ (o≥ notoriety).
     Here'≤ áß áchallengσ át∩ encouragσ ß fe≈ oµ yo⌡ t∩ stokσ áu≡ áthσ áolΣ ì
gre∙ ámatter« Writσ ß prograφ iε MicroworlΣ o≥ Microsof⌠ BASIC¼ whicΦ áwil∞ ì
lis⌠ áitselµ át∩ thσ screen¼ BU╘ yo⌡ ma∙ no⌠ usσ thσ command≤ áPEEK¼ áLIST¼ ì
LLIST¼ INPUT[#]¼ RUN¼ US╥ o≥ an∙ commanΣ whicΦ acces≤ tapσ o≥ disk« Iε morσ ì
genera∞ áterms¼ thσ prograφ ma∙ no⌠ makσ an∙ machinσ dependan⌠ áassumption≤ ì
likσ áwherσ áBASI├ sourcσ sit≤ iε memory¼ o≥ wha⌠ átoken≤ árepresen⌠ áwhicΦ ì
keywords« áThσ prograφ outpu⌠ shoulΣ bσ indistinguishablσ froφ thσ áresult≤ ì
oµ thσ LIS╘ command.èHints:
áááááá-Oncσ yo⌡ havσ thσ righ⌠ idea¼ thi≤ prograφ coulΣ bσ writteε iε ì
ááááááájus⌠ abou⌠ an∙ higΦ leve∞ language.
áááááá-Thσ prograφ i≤ ver∙ likel∙ t∩ havσ aε eveε numbe≥ oµ lines.
áááááá-Ou≥ ásolutioε áiε áMicrosof⌠ BASI├ i≤ 2▓ áline≤ álonτ á(withou⌠ ì
ááááááátryinτ ver∙ hard).

Submission≤ caε bσ uploadeΣ usinτ thσ RECVQUI┌ commanΣ insteaΣ oµ thσ áREC╓ ì
command« áThi≤ áwil∞ uploaΣ you≥ prograφ  int∩ ß securσ areß áoµ áthσ ádisδ ì
wherσ i⌠ caε onl∙ bσ accesseΣ b∙ sysops« Yo⌡ caε seσ ho≈ man∙ entrie≤ áhavσ ì
beeε ásen⌠ áiε á(anΣ b∙ who⌐ b∙ typinτ "TYPELO╟ QUIZ"«

Entrie≤ wil∞ closσ oε thσ 2nΣ Januar∙ 198╢ a⌠ 23.9╣ hour≤ oε thσá RBBS¼á o≥ ì
iµ postinτ you≥ entry¼á b∙ thσ closσ oµ thσ Pos⌠ Officσ oε thσ samσ day« Iµ ì
yo⌡á pos⌠á you≥á entr∙ pleasσ includσ ß listinτ oµ you≥ prograφá witΦá you≥ ì
tape/disk and a return mail envelope for the disk/tape.

Wσá wil∞ prin⌠ thσ best/shortest/nices⌠ entr∙ iε thσ Februar∙ Catche≥ anΣ wσ ì
will give a prize of a copy of Wildcards Vol.4 to the winner.

RCP═ REPOR╘ A╙ A╘ ▒-Nov-8╡                             Sysops.
==========================================================================
HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??

From: ALAN DYALL                   Re:   Poking color onto screen??
Caε anyonσ pleasσ inforφ mσ oε ho≈ t∩ pokσ ß colo≥ ont∩ thσ screen«á Wheε ╔ ì
pokσá ß characte≥ ont∩ thσ screeε it≤ colo≥ i≤ alway≤ Greeε (n∩ matte≥ wha⌠ ì
colo≥ I'vσ selected)«á I'vσ tryeΣ pokeinτ addres≤á 153;154;155;156;157;158¼ ì
al∞ thi≤ ha≤ donσ i≤ changσ thσ colo≥ wheε iε norma∞ mode¼ no⌠ wheε pokeinτ ì
value≤ ont∩ thσ screen« I≤ therσ an∙ wa∙ ╔ talδ t∩ thσ Colo≥ BoarΣ direc⌠ ?

From: RAYMOND HAN        To:   ALAN DYALL    Re:   Poking with color
Alan¼á Pokinτ stufµ iε BASI├ i≤ relativel∙ simple«á I⌠ get≤ comple° becausσ ì
yo⌡á havσá severa∞ options«á I'l∞ uploaΣ ß filσ calleΣ COLOUR.PO╦ int∩á thσ ì
UPLOAD║ director∙ afte≥ thσ weekend« (I'l∞ writσ i⌠ durinτ thσ weekend⌐ anΣ ì
thi≤ shoulΣ tel∞ yo⌡ al∞ yo⌡ neeΣ abou⌠ pokinτ colou≥ ram«á Thank≤ fo≥á yo⌡ ì
enquiry..«

From: CHRIS BENNETTS               Re:   Turbo
Caεá anybod∙á hel≡ mσ witΦ Turb∩ maths┐á Thσ followinτ formulßá work≤á wel∞ ì
unde≥ MBASI├ bu⌠ no⌠ unde≥ Turbo.

365*Year+1+Int((Year-1)/4)-Int(3*(Int((Year-1)/100)+1)/4)
If var: Year or Y = 1985
then
     MBASIC    =    725007
     TURBO     =    4.1110000000E+03

╔á havσá spen⌠á somσá timσ (hours⌐ tryinτ t∩ worδ i⌠á ou⌠á anΣá havσá trieΣ ì
everythinτá ╔ coulΣ thinδ of«á Iε thσ belieµ tha⌠ i⌠ i≤ probabl∙á somethinτ ì
ver∙ simplσ ╔ no≈ asδ caε anybod∙ tel∞ mσ wherσ I'φ goinτ wrong┐

From: CRAIG COOK                   Re:   modem sw
╔á havσá ß neeΣ t∩ acces≤ ß librar∙ ca⌠ systeφ anΣ i⌠ use≤ ß 1░ Γ bi⌠á codσ ì
witΦ onσ start¼á onσ sto≡ anΣ onσ parit∙ bit«á Thσ onl∙ sof⌠ warσ ╔ havσ i≤ ì
MODEM,MODE═ ╖ o≥ YAM«á Caε an∙ onσ hel≡ mσ t∩ changσ thσ datß o≥ sugges⌠á ß ì
suitablσ S╫ prograφ tha⌠ ╔ coulΣ obtaiε t∩ d∩ thi≤ with┐ Phonσ 89░ 211╖ an∙ ì
timσ excep⌠ Mondays.
HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??èHELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??

From: ERIC GUNSTONE                Re:   auto answer on 'BEE

CoulΣá anyonσá pleasσ assis⌠ mσ witΦ obtaininτ thσ publiπá domaiεá softwarσ ì
"BYE.MAC"¼ "BYE.DOCó etπ s∩ ╔ caε instal∞ aε aut∩ answe≥ oε m∙ microbeσ 56╦ ì
disδá system«á Als∩á informatioε oε ho≈ thσ 'BE┼ detect≤ thσ modem≤á "Ringó ì
signal«á ╔á d∩á NO╘ wan⌠ t∩ creatσ ß bulletiε board¼á ╔ jus⌠á wan⌠á i⌠á fo≥ ì
experimentinτ. witΦ Thank≤ iε anticipatioε ....« Eriπ Gunstonσ Meφ No.665.

From: BOB JAGER                    Re:   TELCOM DIALLING FACILITIES

CA╬ ANYON┼ HEL╨ M┼ WIT╚ DETAIL╙ O╞ TH┼ HARDWAR┼ NEEDE─ T╧ INTERFAC┼ ┴ MODE═ ì
WIT╚ TH┼ TELCO═ SOFTWAR┼ T╧ PROVID┼ TH┼ DIALLIN╟ FACILITIE╙á SUPPORTED«á

From: PHILLIP HOHNBERG             Re:   HOW TO USE PRINTER

CA╬ ANYON┼ ASSIS╘ M┼ WIT╚ TH┼ METHO─ T╧ US┼ I╬ ORDE╥ T╧ GE╘ ┴ HAR─ COP┘á O╞ ì
COMMUNICATIO╬á WIT╚ TH┼ RBBS┐á ╔ HAV┼ ┴ SERIE╙ 2¼á 32╦ BE┼ (ROM⌐ AN─ ┴á BE┼ ì
(PARALLEL⌐ PRINTER«

From: MARK BISHOP                  Re:   BOOTROM SOURCE

WANTE─ - an∙ dissasembl∙ oµ thσ BOO╘ ROM«  ╔ havσ dissasembleΣ DDFORMAT.CO═ ì
iµ anyonσ want≤ an∙ info« 43╣ 4382

From: CHRISTOPHER BENNETTS         Re:   c.itoh8510a printer

WOUL─á LIK┼ T╧ TAL╦ T╧ ANYON┼ WH╧ HA╙ TH┼ ABOV┼ PRINTER¼á ESPECIALL┘ ANYON┼ ì
WH╧ HA╙ RE-INSTALLE─ WORDSTA╥ T╧ WOR╦ WIT╚ IT«á RIN╟ M┼ O╬ 84▓ 500▒ (CHRIS)

From: HERBIE HANCOCK               Re:   HOUSE OF FRANKSTEIN

I'V┼á GO╘ EVER┘ THIN╟ NEEDE─ T╧ SE╫ TH┼ MONSTE╥ UP¼á BU╘ WHE╬ ╔ TYP┼ I╬ SE╫ ì
MONSTE╥ I╘ DOESN'╘ WORK« HO╫ CA╬ ╔ SOLV┼ THIS« YOUR╙  HOPEFULL┘ H.HANCOCK

From: JULIAN LOKE                  Re:   MOVCPM FOR 56K CP/M V2.2

CoulΣ anyonσ pleasσ tel∞ mσ ho≈ anΣ wherσ ╔ coulΣ obtaiε ß cop∙ oµ thσ CP/═ ì
utilit∙ MOVCPM.COM«á Iµ yo⌡ caε help¼á pleasσ leavσ ß messagσ fo≥ mσ oε thσ ì
BB╙ o≥ writσ thσ edito≥ ß note.


Q.   How do I make FLASHKEY do    ADDRESS <CR>
                                  ADDRESS <CR> one after another?
          L. Taplin 795-1111.

Q.   How do you use OSLIB with BASCOM and L80?
A.   Use the /O switch. This is not the total answer.
      Phone Carl B/H 616-3228 or A/H 543-4602.

Q.   Any information on BITECH HYPERION?   Don Nicholson anytime 438-2675

Q«á  Ho≈ caε ╔ connec⌠ ß │ 1/2ó drivσ t∩ ß Dreamdisδ systeφ o≥ ß ╡ 1/4ó t∩ ì
     a CIAB.
A.   With the 3 1/2" just plug it in. With the 5 1/4" you can't. ???


HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??HELP??è     THE MEMBERSHIP SECRETARY                     #
     MBUG AUSTRALIA INCORPORATED.
     P.O. BOX 157                                    /    /
     NUNAWADING. Victoria. 3131.


     NAME:______________________________________________________

     ADDRESS:___________________________________________________

     POST CODE:___________      TELEPHONE:______________________

WHERE DID YOU HEAR ABOUT MBUG:__________________________________

If RENEWIN╟ membership¼  attacΦ olΣ MAILIN╟ labe∞ above¼ or,
If NE╫ membership¼  pleasσ fil∞ iε above¼ read¼ anΣ sigε below.

Please find enclosed my remittance of $________
          being for (tick applicable box below)

Find enclosed cheque/money order, or,
Charge my Bankcard / Visa          No.____ ____ ____ ________

Expiry Date __/__/____             Signature.................

Receipt WILL NOT be sent unless specifically requested.

                          YEARLY FEES

               RENEWAL OF MEMBERSHIP         [ ]
               FULL (City)         @ $20.00  [ ]
               OVERSEAS            @ A$20.00 [ ]
               COUNTRY             @ $17.00  [ ]
               STUDENT             @ $15.00  [ ]
               RBBS ONLY           @ $10.00  [ ]
               TAPE LIBRARY        @ $10.00  [ ]  (Payable once only)

╔ DESIR┼ T╧ BECOM┼ ┴ MEMBE╥ O╞ MBU╟ AUSTRALI┴ INCORPORATED¼ ╔ AGRE┼ T╧ ì
B┼ BOUN─ B┘ TH┼ RULE╙ O╞ TH┼ ASSOCIATIO╬ FO╥ TH┼ TIM┼ BEIN╟ I╬ FORCE.

                 SIGNATURE: _____________________ DATE: ________

*********************************************************************

COMMITTEE USE ONLY.

I¼ ____________________________________▀ NOMINAT┼ TH┼ APPLICANT¼ ì
FOR MEMBERSHIP TO THE ASSOCIATION.

                 SIGNATURE:_____________________________________


I¼á _________________________________▀á SECON─ TH┼ NOMINATIO╬á O╞ ì
THE APPLICAN╘ FO╥ MEMBERSHI╨ T╧ TH┼ ASSOCIATION.

                 SIGNATURE:_____________________________________

DATE ACCEPTED_________ MEMBERSHIP NUMBER_________ CLASS_________