CP/M/CPM_CDROM.iso/mbug/mbug012.arc/FEB1986.CAT

Text File | 1979-12-31 | 59KB | 1,180 lines

.mt 1
.mb 1
.HM 0
.op
$1.50 RECOMMENDED
 RETAIL  PRICE











Registered for transmission
by  post  as  a  periodical
Publication   No: VBH 6579.

Vo∞ 4«   No 5                                        FEBRUARY, 1986






             INDEX


          SERVICES PROVIDED BY MBUG                     1
          FROM THE CHIEF MBUG                           2
          HOW TO OPERATE THE BULLETIN BOARD             3
          BASIC LISTING  TOWNS.MWB                      5
          FINDING FOREGIN CP/M SYSTEM DISK FORMAT DATA  7
          FIX FOR MISSILE.MWB                           9
          BASIC LISTING  CONT-S.MWB                     9
          BASIC LISTING  CHSM21.MWB (REVISED CHECKSUM) 10
          WORDSTAR PATCHES FOR C.ITOH PRINTERS         13
          TAPE LIBRARY NEWS                            14
          WRITE A CATCHER ARTICLE                      14
          ML. LISTING TURNS Z80 CODE TO BASIC DATA     15
          BAZAAR RAMBLINGS                             17
          FOR SALE IN THE BAZAAR                       18






        BULLETIN BOARD     ONLINE 24 HOURS DAILY     873-5734
        ( OFFLINE 4th WEDNESDAY EACH MONTH 1800 -2400 HOURS )


   ---------------------------------------------------------------
   |                                                             |
   |                  OFFICIAL ADDRESS                           |
   |    MBUG AUSTRALIA INC. P.O. 157, NUNAWADING .VIC 3131.      |
   |                                                             |
   ---------------------------------------------------------------




NEX╘ MEETING ║ WEDNESDAY   12th FEBRUARY 1986.

TIME & PLACE : 7:30 pm, MOUNT WAVERLEY COMMUNITY CENTRE
Corner STEPHENSONS and MILLER Mt. WAVERLEY (opp station)
NEXT TO LIBRARY                 MELWAY REFERENCE 70 E 1

è.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«á

              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
John Buxton         758-5744            Peter Wagner        (059) 96-5957
Jim Lobley          758-9169            David Soutar             836-3661
Gran⌠ Fores⌠        874-872╕            Steveε Jepsoε             45-4226
Mike Thompson       82-5002             Robert Broomhead         546-3020
Raymond Han                             Richard Collett
Wal Hansen

SERVICES  PROVIDED  BY  MBUG  AUSTRALIA           

EDITOR  A. BARFOOT. P.O. BOX 157 NUNAWADING 3131  758-4822
MEMBERSHIP SECRETARY J. LOBLEY.  P.O. BOX 157 NUNAWADING 3131  758-9169
PUBLIC DOMAIN DISKS  D. SOUTAR.  P.O. BOX 45 CANTERBURY 3126
TAPE LIBRARY P.O. BOX 75 AVONDALE HEIGHTS Vic. 3034
MODEM HIRE    GRAHAM SCHULTZ.      848-5485
BAZAAR MICK HOLZINGER  P.O. BOX 253 COBURG  3058
DISK FORMAT COPYING GRANT FOREST  874-8728  A.H. ONLY
RBBS SYSTEM OPERATORS AND PROGRAMMERS.  SYSOP  GRANT FOREST
REMOTE SYSOPS:  Ray Han. Mike Thompson. Richard Collett
ADVERTISEMENTS   P.O. BOX 157 NUNAWADING 3131
$50.00 Full Page   $25.00 Half Page   $15.00 Quarter Page
$3.00 For service and recurrent items (Less than 5 lines)
No charge for non recurring private sales items

GENERAL POLICY


T∩á expeditσ you≥ requests¼á genera∞ correspondencσá t∩         Contribution≤ fo≥ thσ CATCHE╥ ma∙ bσ madσ direc⌠ t∩ thσ        ì
MBU╟á AUS╘á IN├ shoulΣ bσ sen⌠ t∩ ou≥ officia∞á addres≤         editor¼ sen⌠ t∩ thσ RBB╙ o≥ b∙ mail« Contribution≤ wil∞ ì
anΣ  eacΦ enquir∙ shoulΣ bσ oε sepatatσ forms«                  bσ  accepteΣ viß modem¼ disk≤ (│ 1/2ó o≥ ╡ 1/4")¼ tape,
                                                                writteε o≥ typed«  Contributions will not be considereΣ
Thσ editor≤ reservσ thσ righ⌠ t∩ edi⌠ al∞ contribution≤         withou⌠ ß namσ anΣ addres≤ and/o≥ membe≥ number« Pleasσ ì
fo≥á thσá sakσá oµ brevity¼á clarit∙á and/o≥á accuracy«         includσ ß S.A.┼ fo≥ returε oµ you≥ tape/disk.          ì
Letter≤á mus⌠á includσá namσ anΣ addres≤á bu⌠á wσá wil∞                ì
withholΣ sucΦ detail≤ iµ s∩ requested«                          AlthougΦá al∞á carσ wil∞ bσ takeεá witΦá contributions¼       ì
                                                                MBU╟á AUS╘á caεá takσ n∩ responsibilit∙á fo≥á thσá safσì
MBU╟áá AUSTRALI┴á INC«áá it≤á officers¼áá member≤áá anΣ         returε oµ an∙ materia∞ supplied« Iµ returε i≤ critical¼ì
contributor≤á accep⌠ n∩ responsibilit∙ fo≥ an∙á damage≤         (something irreplaceable), don't send it.               ì
causeΣá t∩á an∙ persoε o≥ propert∙á attributeΣá t∩á an∙ ì
advicσ o≥ informatioε publisheΣ iε Thσ CATCHER.                 MBU╟á AUS╘ INC«á doe≤ no⌠ condonσ thσ non-authoriseΣ usσ
                                                                oµáá copyrigh⌠á software/hardwarσá anΣá thereforσáá als∩
Microworld Basic listings may carry a number at the end         condem≤ unauthorised copying of such material.
of each line. eg. [123]. These are checksum numbers and
should should not be typed in as part of the listing.
 
THE CATCHER is published by MBUG AUSTRALIA INCORPORATED
All copyrights are reserved by MBUG AUSTRALIA INCORPORATED
       FROM THE CHIEF MBUG  FROM THE CHIEF MBUG  FROM THE CHIEF MBUG

     Wha⌠ ß star⌠ t∩ thσ ne≈ year« Fo≥ thσ firs⌠ timσ sincσ ╔ tooδ ove≥ thσ ì
editorshi≡á wσá havσ beeε latσ witΦ gettinτ thσ Catche≥ ou⌠ oεá time«á Thi≤ ì
causeΣá ßá littlσá consternatioε a⌠ thσ meetinτ a≤á i⌠á seem≤á ou≥á regula≥ ì
servicσ ha≤ go⌠ yo⌡ int∩ ß rut«

     I⌠á ha≤ beeε suggesteΣ tha⌠ ou≥ hacker≤ nigh⌠ i≤ jus⌠ ß venuσ t∩á swa≡ ì
(copyright⌐á software«á ╔ wil∞ agreσ ß lo⌠ oµ softwarσ doe≤ changσ hand≤ oε ìèthesσ night≤ bu⌠ t∩ m∙ knowledgσ nonσ oµ thi≤ softwarσ i≤ copyright«á A≤á ß ì
club¼ i⌠ i≤ no⌠ ou≥ polic∙ t∩ piratσ commercia∞ software« I⌠ i≤ harΣ enougΦ ì
no≈ t∩ ge⌠ gooΣ qualit∙ ne≈ Microbeσ (Honeysoft⌐ softwarσ, let alonσ other≤ ì
sucΦá a≤á Grotniδ etc.¼á withou⌠ tryinτ t∩ senΣ theφ brokσ b∙á cheatinτá oε ì
them« MBU╟ AUS╘ IN├ doe≤ no⌠ condonσ thσ stealinτ oµ proprietar∙ software«

     T∩á pu⌠ yo⌡ iε thσ picture¼á ove≥ thσ nex⌠ fe≈ month≤ wσ arσá planninτ ì
somσ interestinτ demonstration≤ anΣ activitie≤ a⌠ thσ regula≥ meetings« Thσ ì
firs⌠ threσ item≤ shoulΣ bσ oµ interes⌠ t∩ botΦ RO═ anΣ Disδ drivσ users.

     T∩ star⌠ thσ bal∞ rollinτ thi≤ year¼ ou≥ firs⌠ demonstratioε wil∞ bσ ß ì
hardwarσá prin⌠á spoole≥á kit«á Thσ ki⌠ come≤ witΦá ful∞á instruction≤á fo≥ ì
assemblinτá thσá uni⌠ t∩ an∙ configuratioε betweeε 64δ anΣá 256k«á Thσá ki⌠ ì
cost≤ unde≥ $40.0░ anΣ wil∞ cos⌠ ß maximuφ unde≥ $120.0░ fo≥ 256δ dependinτ ì
oε ho≈ biτ yo⌡ wan⌠ t∩ makσ it«á Wσ wil∞ bσ showinτ yo⌡ thσ components¼ ho≈ ì
t∩ assemblσ them¼ a≤ wel∞ a≤ ß workinτ demonstratioε oµ thσ spooler« Iµ yo⌡ ì
decidσá yo⌡ woulΣ likσ onσ oµ thσ kits¼á the∙ wil∞ bσ availablσ througΦ thσ ì
cluΓ anΣ anyonσ wh∩ ma∙ neeΣ assistancσ iε assemblinτ thσ kit¼ hel≡ wil∞ bσ ì
giveε b∙ othe≥ cluΓ members«

     A≤ wel∞ a≤ this¼á wσ wil∞ havσ aε EPRO═ burner/erase≥ a⌠ al∞ thσá cluΓ ì
meeting≤ iε future« (N∩ copyrigh⌠ rom≤ burnt).

     Wσá als∩á plaεá t∩ havσ ß demonstratioε involvinτ thσá interfacinτá oµ ì
Microbee≤ witΦ radi∩ transmissions«á e.g«á weathe≥ maps¼ teletypσ etc« Thi≤ ì
dem∩ wil∞ probabl∙ bσ donσ eithe≥ Februar∙ o≥ March«á Iµ an∙ oµ ou≥ member≤ ì
wh∩ arσ involveΣ iε thi≤ activit∙ woulΣ likσ t∩ assis⌠ thσ committee¼á you≥ ì
assistancσá wil∞ bσ quitσ welcome«á Iµ yo⌡ caε help¼á pleasσ contac⌠á Keviε ì
Car≥á o≥á Jiφá Lobley«á Furthe≥ informatioε wil∞ bσ announceΣá a≤á sooεá a≤ ì
possible« Perhap≤ al∞ member≤ shoulΣ bσ a⌠ thσ meeting≤ jus⌠ t∩ bσ surσ yo⌡ ì
don'⌠ mis≤ out.

     T∩á al∞á thosσ wh∩ reaΣ thσ revie≈ oε Wildcard≤ Vo∞ ┤ iε thσá Decembe≥ ì
Catcher¼á ╔ hopσ al∞ thosσ peoplσ wh∩ havσ purchaseΣ thσ booδ wil∞ fil∞ ou⌠ ì
thσá questionnairσá anΣ returε i⌠ t∩ thσ authors«á Fo≥ ß matte≥á oµá ßá fe≈ ì
minute≤á writinτá anΣ ß stamp¼á yo⌡ wil∞ bσ helpinτ yourselµ anΣ other≤á iε ì
ensurinτ thσ publicatioε oµ anothe≥ volume« Iµ yo⌡ woulΣ likσ t∩ fil∞ ou⌠ ß ì
forφ bu⌠ don'⌠ wisΦ t∩ damagσ you≥ owε book¼á ╔ havσ uploadeΣ ß cop∙ oµ thσ ì
forφ t∩ thσ RBB╙ iε thσ director∙ calleΣ MISC«á Pleasσ downloaΣ thi≤á form¼ ì
fil∞ i⌠ in¼ anΣ dro≡ i⌠ iε thσ mail« Thσ forφ i≤ nameΣ WILDCARD.FRM.

     ╔á havσ haΣ numerou≤ request≤ fo≥ informatioε oε thσ operatioε oµá thσ ì
RBBS«á I⌠á i⌠á t∩á thi≤ enΣ ╔ aφ re-printinτ thσ articlσá froφá ßá previou≤ ì
Catcher« ╔ hopσ thi≤ answer≤ ß lo⌠ oµ question≤ thσ newe≥ member≤ ma∙ have.

>ANDREW

DISCOUNT NUMBER  829

       FROM THE CHIEF MBUG  FROM THE CHIEF MBUG  FROM THE CHIEF MBUG  
                   NE╫ BULLETI╬ BOAR─ SOFTWAR┼/HARDWARE
               b∙ RicharΣ Collett¼ Ra∙ Haε anΣ Mikσ Thompson

     Thσá firs⌠á stagσá oµá thσ ne≈ RBB╙ softwarσ anΣ hardwarσá i≤á no≈á iε ì
operation« Thσ difference≤ whicΦ arσ noticeablσ t∩ yo⌡ are:-

     ¡ ┴ Rea∞ Timσ Clocδ whicΦ mean≤ yo⌡ don'⌠ havσ t∩ ke∙ iε thσ datσ ì
áááááwheε áyo⌡ áloτ áin« I⌠ wil∞ als∩ bσ useΣ t∩ áloτ ápeoplσ áofµ áiµ ì
áááááthey'vσ beeε oε fo≥ to∩ long.

ááááá¡ á┴ área∞ RS23▓ seria∞ card╗ thi≤ shoulΣ makσ áthσ ásysteφ ámorσ ì
áááááreliable« I⌠ als∩ mean≤ tha⌠ thσ systeφ no≈ support≤ 1200/7╡ áanΣ ì
ááááá30░ bauΣ mode≤ oµ operation.

ááááá¡ áXYA═ ái≤ n∩ longe≥ availablσ fo≥ filσ transfer« áInstead¼ átw∩ ì
ááááácommand≤ áhavσ ábeeε addeΣ t∩ replacσ XYAM║ SEN─ anΣ áRECV« áSomσ ì
ááááápeoplσ seeφ t∩ bσ confuseΣ a≤ t∩ whicΦ commanΣ upload≤ ß filσ anΣ ì
áááááwhicΦ onσ download≤ ß file« Well¼ iµ yo⌡ wan⌠ t∩ downloaΣ ß áfilσ ìèáááááfroφ thσ bulletiε boarΣ theε usσ SEN─ anΣ iµ yo⌡ wisΦ t∩ uploaΣ ß ì
áááááfile¼ áusσ áRECV« áRemember¼ áthesσ ácommand≤ áoperatσ áfroφ áthσ ì
ááááábulletiε board'≤ poin⌠ oµ view¼ no⌠ your's.

     Logginτá oε t∩ thσ bulletiε boarΣ i≤ fairl∙ simila≥ t∩ thσ wa∙ i⌠á wa≤ ì
excep⌠ fo≥ thσ fac⌠ tha⌠ i⌠ no≈ automaticall∙ detect≤ iµ you'rσ logginτá oε ì
a⌠ 30░ bauΣ o≥ 7╡ baud«á T∩ loτ oε successfull∙ yo⌡ shoulΣ pres≤ thσ RETUR╬ ì
ke∙á ever∙ │ second≤ o≥ s∩ unti∞ thσ 'HO╫ MAN┘ NULLS.....º promp⌠á appears« ì
Thσ reasoε fo≥ thi≤ i≤ tha⌠ thσ bulletiε boarΣ trie≤ 30░ bauΣ fo≥ ╡ second≤ ì
theεá 7╡ bauΣ theε 30░ bauΣ etc«á So¼á iµ you'rσ logginτ oε a⌠ 30░ bauΣ yo⌡ ì
havσ t∩ hi⌠ RETUR╬ wheε thσ bulletiε boarΣ i≤ iε 30░ bauΣ mode╗á iµ it'≤ iε ì
7╡á bauΣ modσ theε clearl∙ i⌠ wil∞ no⌠ recognizσ thσ RETUR╬ tha⌠á yo⌡á sen⌠ ì
it.

     Thσá 'HO╫ MAN┘ NULL╙ D╧ YO╒ NEEDº messagσ no≈ ha≤ ß valiΣ useíá Iµ yo⌡ ì
jus⌠ pres≤ RETUR╬ a⌠ thi≤ promp⌠ thσ thσ systeφ wil∞ assumσ ▓á nulls«á Thi≤ ì
ha≤á beeε donσ becausσ yo⌡ ma∙ mis≤ ß couplσ oµ character≤ no≈ anΣ agaiε iµ ì
you'vσ loggeΣ oε a⌠ 1200/75«á Iµ yo⌡ loτ oε a⌠ 30░ bauΣ theε ente≥ ßá valuσ ì
oµ zero«

     Uploadinτá wheεá iε 1200/7╡ modσ i≤ no⌠ permitteΣ ye⌠ - thi≤á require≤ ì
tha⌠á yo⌡ fli≡ t∩ 75/120░ (uploadinτ a⌠ 7╡ bauΣ i≤ no⌠á allowed)«á Thσá ne≈ ì
hardwarσá allow≤á u≤á t∩ fli≡ froφ 75/120░ t∩ 1200/7╡á (froφá thσá bulletiε ì
board'≤ poin⌠ oµ view)¼á bu⌠ ╔ havσ n∩ wa∙ oµ testinτ i⌠ yet« So¼ unti∞ thσ ì
bulletiεá boarΣá caε fli≡ mode≤ yo⌡ wil∞ havσ t∩ uploaΣ a⌠ 30░á baud«á Thi≤ ì
doe≤ no⌠ meaε tha⌠ yo⌡ havσ t∩ loτ ofµ theε loτ bacδ oε a⌠ 30░ baud╗á therσ ì
arσá tw∩ command≤ iε CP/═ calleΣ FLIP30░ anΣ FLIP1200«á Fo≥ inf∩ oε ho≈á t∩ ì
usσá these¼á typσá 'HEL╨á FLIPº froφ CP/M«á Downloadinτ a⌠á 1200/7╡á i≤á n∩ ì
problems¼ sincσ you'rσ alread∙ iε thσ righ⌠ mode.

     A≤ previousl∙ mentioned¼ XYA═ i≤ n∩ longe≥ useΣ fo≥ filσ transfers« T∩ ì
uploaΣ ß filσ usσ thσ REC╓ command« It'≤ synta° is:-

     REC╓ [-c▌ <filename>

Thσ 'cº optioε i≤ useΣ t∩ usσ CR├ rathe≥ thaε checksuφ erro≥ checking.

Examples:

     REC╓ FRED.DO├       UploaΣ FRED.DO├ iε checksuφ mode
     REC╓ -├ FRED.MW┬    UploaΣ FRED.MW┬ iε CR├ mode
     Notσá tha⌠ al∞ .CO═ file≤ arσ renameΣ t∩ .OB╩ file≤ t∩ preven⌠á peoplσ ì
froφ doinτ nast∙ things«á Also¼ al∞ file≤ tha⌠ arσ uploadeΣ arσ placeΣ iε ß ì
director∙ calleΣ UPLOAD:¼á regardles≤ oµ wha⌠ director∙ you'rσ in«á So¼á t∩ ì
seσá thσ mos⌠ recentl∙ uploadeΣ file≤ typσ 'DI╥ UPLOAD:'«á Thσá syso≡á wil∞ ì
movσ thσ file≤ t∩ thσ appropriatσ directorie≤ ever∙ week.

T∩ downloaΣ ß filσ usσ thσ SEN─ command« It'≤ synta° i≤:-

     SEN─ <filename>

Unlikσ RECV¼ thσ filσ ma∙ contaiε ß director∙ name.

Examples:

     SEN─ YAM.OB╩             DownloaΣ YAM.OB╩ froφ thσ curren⌠ directory
     SEN─ BASIC:FRED.MW┬      DownloaΣ FRED.MW┬ froφ thσ BASIC║ directory

     Ever∙á timσá ßá filσ i≤ uploadeΣ ß recorΣ oµ thi≤ i≤ kep⌠á iεá ßá filσ ì
calleΣá RECV.LOG¼á similarly¼á wheε ß filσ i≤ downloadeΣ i⌠ i≤ recordeΣá iε ì
SEND.LOG«á Iεá orde≥á t∩ vie≈ thesσ file≤ therσ i≤ ß commanΣ TYPELO╟á whicΦ ì
type≤ thσ loτ entrie≤ iε reversσ orde≥ (s∩ tha⌠ thσ mos⌠ recen⌠ transfe≥ i≤ ì
displayeΣ first)« It'≤ synta° is:-

     TYPELO╟ {SEND¼ RECV}

Examples:
è     TYPELO╟ SEND
     TYPELO╟ RECV

T∩ seσ ho≈ lonτ you'vσ beeε oε thσ systeφ usσ thσ TO╙ command.

     Thσá RBB╙á prograφá ha≤ als∩ undergonσ somσá changes«á Thσá tw∩á majo≥ ì
change≤á arσá thσá additioε oµ thσ clocδ anΣ ß ne≈á (better⌐á linσá editor« ì
There'≤ no⌠ mucΦ t∩ sa∙ abou⌠ thσ clock¼á excep⌠ tha⌠ it'≤ there¼á s∩á I'l∞ ì
tel∞á yo⌡ al∞ abou⌠ thσ ne≈ linσ editor«á Basically¼á i⌠ use≤ WordSta≥ likσ ì
command≤á fo≥á movinτá thσá curso≥ anΣá deletinτá characters¼á witΦá ßá fe≈ ì
extension≤ t∩ makσ lifσ easier« Thσ ne≈ command≤ are:-

^S  - Backward Character
^H  - Backward Characte≥ (BAC╦SPAC┼ key)
^D  - Forward Character
^A  - Backward Word
^F  - Forward Word
^B  - Go to Beginning of Line
^E  - Go to End of Line
^G  - Delete character under cursor
DEL - Delete character to left of cursor
^W  - Delete To Start of Word
^T  - Delete To End of Word
^Y  - Delete Line
^J  - Get this hel≡ (LIN┼ FEE─ key)

     Notσá tha⌠á thσá BACKSPAC┼ ke∙ doe≤ jus⌠á that«á I⌠á doe≤á no⌠á deletσ ì
anything« T∩ deletσ thσ characte≥ yo⌡ jus⌠ typeΣ usσ thσ DE╠ key« Thσ abovσ ì
summar∙ i≤ availablσ b∙ typinτ thσ LIN┼ FEE─ ke∙ (^J).



                                 TOWNS.MWB

     Therσá arσá threσá thing≤ oµ importancσ t∩ notσ wheεá typinτá iεá thi≤ ì
listing«á Thσá firs⌠ i≤ tha⌠ line≤ ▒ t∩ │ MUS╘ bσ typeΣ iε witΦá thσá exac⌠ ì
character≤á a≤á shown«á Linσá │ mus⌠ havσ n∩ space≤ afte≥á thσá perioΣá (.⌐ ì
followinτá thσá RE═á ststement«á Thσá seconΣ i≤ thσ ^G'≤á iεá linσá 110«á ╔ ì
mentioneΣ ho≈ t∩ pu⌠ theφ int∩ ß BASI├ listinτ calleΣ PRIME.MW┬ las⌠ month« ì
Lastly¼á thσá checksuφá numbe≥ oε linσ │ i≤ no⌠ valiΣ a≤ checksum≤á d∩á no⌠ ì
coun⌠ afte≥ RE═ statements« Typσ carefuulllyyYyy«  Ö  ED«

00001 REM ___ Victorian Towns Quiz ___  █░┤╣▌
00002 REM ___ by Alan Laughton 1985 __  █░╡░▌
00003 REM ./722'4^2.'06;-+./14'2#0610^*+../'670);#44#)10.1%*(156'4.#0)^.#
      0)�&'010)9*+66.'5'##52'0&#.'2#%-'0*#/*';(+'.&5';/174+0&'06'&^*'#&
      $41#&(14&Ɨ/%#4.610;#..17406'%1/#"@  █░╡▒▌
00010 STRS(2000):DIM B1(20)  █▓╡░▌
00020 CLS:GOSUB 550  █▒╡▓▌
00030 I=USR(24576)  █░╢░▌
00040 X=11:Y=8:S4$="V I C T O R I A N    T O W N S    Q U I Z. ":S5$=S4$:
      GOSUB 530  █▒╖░▌
00050 X=20:Y=14:S4$="Press RETURN to continue. ":GOSUB 530  █▓│╢▌
00060 PRINT:INPUT A1$  █░╕│▌
00070 GOSUB 540  █▒▓╕▌
00080 I=USR(24608)  █░╢▒▌
00090 RESTORE 480:FOR X=1 TO 20:READ B1$(X):NEXT X  █▒▓┤▌
00100 CLS:INVERSE:PRINT SPC10 S5$ SPC10:NORMAL  █▓░╡▌
00110 GOSUB 220:IFC>19 THEN SPEED 254:PRINT SPC12
      " C O N G R A T U L A T I O N S ! !":SPEED 0:USR(32774):
      END  █░╖┤▌
00120 INVERSE:PRINT" Which question do you wish to answer ? ";:NORMAL █░╣╢▌
00130 POKE 257,1:B2$=KEY:IF B2$=""THEN 130 ELSE LET B=ASC(B2$)  █▒╢╕▌
00140 IF B<65 OR B>84 THEN PLAY 23:GOTO 130  █▒░╖▌
00150 GOSUB 240:PRINT  █▒▒╡▌
00160 PRINT B1$(B-64)". ";:INPUT" "T1$:IF LEN(T1$)<1 THEN PLAY 23:
      PRINT CHR(15);:GOTO 160  █▒╣┤▌
00170 Z3$="":FOR X=1 TO LEN(T1$):IF T1$(;X,X)=" ":H=32:GOTO 190  █▒╕╡▌è00180 H=(ASC(T1$(;X,X)) AND 95)  █▓││▌
00190 Z3$=Z3$+CHR(H):NEXT X:T1$=Z3$  █▒▓┤▌
00200 IF T1$=D7$ THEN PLAY 9;10;11;13;16;20:B1$(B-64)="<< "+T1$+" >>":
      C=C+1:GOTO 100  █▒░╖▌
00210 PLAY 1,6:GOTO 100  █░╣╢▌
00220 CURS 63:PRINT:FOR X=1 TO 17 STEP 2:PRINT CHR(64+X)". "B1$(X)TAB 32
      CHR(65+X)". "B1$(X+1):NEXT X  █░┤┤▌
00230 PRINT"S. "B1$(19)\"T. "B1$(20)\:RETURN  █░▓╖▌
00240 IF B=65 THEN GOSUB [2382,12]450  █▒░╣▌
00250 IF B=66 THEN GOSUB [2394,7]450  █░╖░▌
00260 IF B=67 THEN GOSUB [2401,11]450  █▒░┤▌
00270 IF B=68 THEN GOSUB [2412,6]450  █░╢┤▌
00280 IF B=69 THEN GOSUB [2418,8]450  █░╖┤▌
00290 IF B=70 THEN GOSUB [2426,4]450  █░╢▓▌
00300 IF B=71 THEN GOSUB [2430,6]450  █░╡▓▌
00310 IF B=72 THEN GOSUB [2436,9]450  █░╢│▌
00320 IF B=73 THEN GOSUB [2445,9]450  █░╢╡▌
00330 IF B=74 THEN GOSUB [2454,10]450  █▒░╖▌
00340 IF B=75 THEN GOSUB [2464,9]450  █░╖░▌
00350 IF B=76 THEN GOSUB [2482,8]450  █░╖▒▌
00360 IF B=77 THEN GOSUB [2490,7]450  █░╖▒▌
00370 IF B=78 THEN GOSUB [2497,13]450  █▒▓╡▌
00380 IF B=79 THEN GOSUB [2510,9]450  █░╖░▌
00390 IF B=80 THEN GOSUB [2525,7]450  █░╢╖▌
00400 IF B=81 THEN GOSUB [2532,8]450  █░╡╣▌
00410 IF B=82 THEN GOSUB [2540,6]450  █░╡╕▌
00420 IF B=83 THEN GOSUB [2473,9]450  █░╢╕▌
00430 IF B=84 THEN GOSUB [2519,6]450  █░╢╕▌
00440 RETURN  █▒▓░▌
00450 VAR(P,L):D7$=""  █▓┤╡▌
00460 FOR X=0 TO L-1:D=PEEK(P+X):IF D=94:D=2  █░╡╣▌
00470 D7$ = D7$+CHR(D+30):NEXT X:RETURN  █░┤┤▌
00480 DATA"Above a lot","Murder much","Puff on a mound","It's in my mouth",
      "No river in Melbourne","It's on all doors"  █▒╖╡▌
00490 DATA"Type of lager","Twice a NSW Premier","Elegant idiot",
      "Reduce the ocean","Snake in the valley"  █▓┤╡▌
00500 DATA"Dry food for cattle cut here","Widen the panorama",
      "Squashed cranium","Wide crossing","No courage here",
      "In front of your house","Drink before unconsciousness"  █░▒╡▌
00510 DATA"Workers in a bacon factory may find themselves....",
      "If you have holes in your socks, then...."  █░╖╡▌
00520 END  █▒▒░▌
00530 L=LEN(S4$):FOR I=L TO 1 STEP -1:CURS X,Y:PRINT S4$(;I,L);:NEXT I:
      RETURN  █▒│╡▌
00540 L=LEN(S4$):FOR I=1 TO L:CURS X,Y:PRINT S4$(;I,L);:NEXT I:RETURN █▓│╕▌
00550 REM ___ Pokes M/L ___  █▒╡┤▌
00560 RESTORE 640  █░╕╣▌
00570 FOR X=24576 TO 24625:READ D:POKE X,D:T=T+D:NEXT X  █▓┤░▌
00580 FOR X=24626 TO 24675:POKE X,0:NEXT X  █▒╕▓▌
00590 FOR X=24676 TO 24695:READ D:POKE X,D:T=T+D:NEXT X  █▓╡░▌
00600 FOR X=24696 TO 24825:POKE X,0:NEXT X  █▒╖╣▌
00610 FOR X=24826 TO 24993:READ D:POKE X,D:T=T+D:NEXT X  █▓┤▒▌
00620 READ D:IF T<>D THEN PRINT"Data Entry Error":END  █░▓╢▌
00630 RETURN  █▒▓▒▌
00640 DATA 33,0,97,34,194,0,205,39,128,1,66,0,17,42,96,33,39,96,237,176,17,
      112,96,33,108,96,1,32,0,237  █░╖│▌
00650 DATA 176,201,33,233,163,34,194,0,201,131,32,32,0,0,0,0,0,0,0,0,0,0,0,
      0,0,0,0,0,131,140  █▓░│▌
00660 DATA 176,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,205,233,163,245,245,8,217,
      241,237,115,157,97,237,75  █░╡╣▌
00670 DATA 161,97,13,121,237,67,161,97,32,125,33,39,96,17,0,240,1,64,0,237,
      176,33,0,240,17,255,243,6,64,126  █░╡╡▌
00680 DATA 18,35,27,16,250,6,15,33,108,96,221,33,0,240,17,64,0,126,221,119,
      0,221,25,35,16,247,6,15,221,33  █▒╖╖▌
00690 DATA 63,240,33,128,96,126,221,119,0,35,221,25,16,247,33,40,96,17,39,
      96,1,66,0,237,176,58,39,96,17,105  █░╖╕▌
00700 DATA 96,18,33,109,96,17,108,96,1,16,0,237,176,33,108,96,17,124,96,
      126,18,33,143,96,17,144,96,1,16,0  █▓││▌è00710 DATA 237,184,33,144,96,17,128,96,126,18,62,150,50,161,97,237,123,157,
      97,217,8,241,201,0,0,0,0,150,20090  █▒┤╕▌

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

26 Data tapes. Sizes include both C20 and C30. $15.00 the lot.
Contact Wayne Simes. Phone A.H. 729-0651

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

ASR 35 Teletype with tape punch and reader. $50.00. (Some paper avaliable)
Phone during B.H. for tech info 566-6500 or A.H. 547-5649. Max Dernbergen.

  FOR SALE-$$-FOR SALE-$$-FOR SALE-$$-FOR SALE-$$-FOR SALE-$$-FOR SALE-$$
               FINDIN╟ FOREIG╬ CP/M SYSTE═ DISK FORMAT DATA
               --------------------------------------------         
                              by Mark Bishop

     Iεá thσ Decembe≥ 'Catcherº thσ firs⌠ par⌠ oµ SETDISK.DO├ wa≤á printed«  ì
Thi≤ articlσ i≤ ß preci≤ oµ thσ rest.

     Thi≤á datß i≤ seldoφ iε thσ relevan⌠ compute≥ manual«á Iµ possiblσ asδ ì
thσá equipmen⌠ vendo≥ fo≥ thσ details¼á howeve≥ i⌠ i≤ unlikel∙ hσá wil∞á bσ ì
ablσ t∩ help«á  Nex⌠ asδ ß 'hackerº wh∩ own≤ thσ typσ oµ equipment¼ viß thσ ì
appropriatσá use≥á group«á  Iµá thi≤á fail≤ yo⌡ wil∞ havσ t∩á d∩á you≥á owε ì
sleuthing«á GooΣá luck«á Beforσá startinτá yo⌡ mus⌠ bσá certaiεá tha⌠á you≥ ì
hardwarσá i≤ thσ samσ a≤ thσ foreigε systeφ eg«á i⌠ doe≤ no⌠ havσ 8░á tracδ ì
drive≤ anΣ your≤ arσ 4░ track«

     Thσ Disδ Paramete≥ Blocδ (DPB⌐ datß caε bσ founΣ quitσ easil∙ b∙ mean≤ ì
oµá ßá shor⌠ machine-codσ program¼á entereΣ int∩ thσ foreigε CP/═á compute≥ ì
witΦá DDT¼á whicΦá ever∙ CP/═ systeφ i≤ supplieΣá with«á   Thσá  Origiεá oµ ì
prograφ i≤ 4000H.

áááá4000: 0E 00 11 18 00 2A 01 00 19 11 0E 40 D5 E9 11 20
áááá4010: 40 01 10 00 ED B0 C3 00 00 00 00 00 00 00 00 00
áááá4020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

     Afte≥á entry¼á G400░ t∩ ruε thσ program«á  Compute≥ wil∞ warφ boo⌠á oε ì
prograφ exit« Ruε DD╘ agaiε anΣ displa∙ 402░ - 402F╚ whicΦ i≤ ß cop∙ oµ thσ ì
Disδá Paramete≥ Header¼á witΦ 4020/1╚ beinτ thσ BIO╙ ske≈ tablσ addres≤ anΣ ì
402A/B╚á beinτ thσ BIO╙ DP┬ addres≤ iε thσ usua∞ LSB/MS┬á format«á  Iµá thσ ì
ske≈ tablσ addres≤ a⌠ 4020/1╚ i≤ 0░ 00¼á theε eithe≥ therσ i≤ n∩ skewinτ oµ ì
logica∞á sector≤ oε thσ disδ o≥ skewinτ i≤ handleΣ internall∙ b∙ thσá BIOS¼ ì
eg« Microbee«  Thesσ arσ thσ result≤ fo≥ BIO╙ V.▒ oε thσ Microbee.

áááá4020: 00 00 36 00 00 00 00 00 A2 DA BD D6 35 DD B5 DD
áááá      \___/                         \___/
ááááskew handled by BIOS.       DPB address in BIOS D6BDH.

     Usσ DD╘ t∩ displa∙ thσ DP┬ (1╡ byte≤ iε length⌐ a⌠ thσ abovσá address«   ì
Parameter≤á arσ  SPT(▓ bytes)¼á BSH(1)¼á BLM(1)¼á EXM(1)¼á DSM(2)¼á DRM(2)¼ ì
AL0(1)¼á AL1(1)¼á CKS(2)¼á OFF(2)«á EacΦá paramete≥á mus⌠ bσá converteΣá t∩ ì
decimal¼á fo≥á entr∙ int∩ thσ seconΣ datß linσ oµ SETDISK.WS╘ afte≥á UDFLA╟ ì
anΣ SECMS╦ dumm∙ data«  Thσ firs⌠ datß linσ i≤ thσ foreigε systeφ name«

     NOTE:-   SETDISK.DO├á contain≤á ßá detaileΣ descriptioεá oµá thσá DPB¼ ì
Microbeσ specifiπ datß (UDFLA╟ ª SECMSK)¼  SETDISK.WS╘ datß format¼ anΣ ho≈ ì
t∩ ente≥ ne≈ SETDISK.WS╘ data«   Howeve≥ t∩ follo≈ thi≤ articlσ :-

     UDFLA╟ 3=8░ tracδ cylinde≥ format¼ 2=80╘ non-cyl.o≥ single-sided,
             1=40T cylinder,  0╜40T non.cyl.or single-sided.
     SECMSK  3=512 byte logical sector size,  1=256,  0=128.

     Oε thσ  thirΣ linσ  ente≥ thσ  ske≈ tablσ  iµ known¼   o≥ dumm∙ value≤ ì
1,2,3,4,5,6,...«á etc«á iµ no⌠ known«á  Tota∞ numbe≥ oµ datß item≤ MUS╘á bσ ì
equa∞á t∩ SPT/(SECMSK+1⌐ o≥ you'l∞ ge⌠ ß 'baΣ dataº message«á eg«á Microbeσ ì
SPT=4░á decimal¼á SECMSK=│ (51▓ bytσ logica∞ secto≥ size)¼á numbe≥ oµá datß ìèitem≤ ╜ 40/(3+1⌐ ╜ 10«

     Oncσ thσ abovσ figure≤ arσ iε thσ file¼á yo⌡ caε usσ SETDIS╦ t∩á 'setº ì
thσá foreigε systeφ t∩ you≥ 'Bº disδ drivσ anΣ reaΣ thσ datß usinτ thσ BOO╘ ì
Monitor.
     Freshl∙á forma⌠á ßá disδ oε thσ foreigεá system¼á anΣá savσá abou⌠á 4╕ ì
read/writσ file≤ oε it«á I⌠ i≤ easies⌠ t∩ usσ ß basiπ program« ie« FO╥ A0=▒ ì
T╧ 48║á A1$="-"+STR(A0)║ SAV┼ A1$║ NEX╘ A0« O≥ elsσ froφ thσ B╛ promp⌠ savσ ì
▒ -1¼ savσ ▒ -▓ ....« savσ ▒ -48«   Theε oε thσ foreigε systeφ d∩ ß DI╥ *.¬ ì
^╨ t∩ thσ printer.

     Wha⌠á wσá wan⌠á t∩ d∩ i≤ reaΣ thσ director∙ oµ thσ foreigεá disδá int∩ ì
memory¼á s∩á wσ caε usσ thσ Monito≥ anΣ figurσ ou⌠ thσ logica∞ secto≥á sizσ ì
anΣ skew«á  Director∙ entrie≤ oε thσ disδ arσ iε thσ samσ sequencσ tha⌠ DI╥ ì
output≤á them¼á anΣ arσ 3▓ byte≤ iε length«á  ie«á ┤ entrie≤ fo≥á 12╕á bytσ ì
secto≥á size¼á ╕ fo≥ 256¼á 1╢ fo≥ 512«á Thσ director∙ alway≤ start≤ oεá thσ ì
firs⌠á tracδá afte≥á thσ reserveΣ systeφ tracks«á  Thσ numbe≥á oµá reserveΣ ì
systeφ track≤ i≤ founΣ iε thσ DP┬ 'OFFº value«  Tracδ number≤ star⌠ froφ 0¼ ì
secto≥ number≤ star⌠ froφ 1«

     Froφá thσ disk-controller'≤ poin⌠ oµ vie≈ tracδ number≤ increasσá froφ ì
thσá edgσ t∩ thσ centrσ oε botΦ side≤ ░ anΣ 1«á Howeve≥ thσá Microbeσá BIO╙ ì
number≤á thσ track≤ froφ ░ a⌠ thσ edgσ oµ sidσ ░ t∩ 3╣ a⌠ thσ centre¼á theε ì
4░á a⌠ thσ CENTR┼ oµ sidσ ▒ outwarΣ t∩ 7╣ a⌠ thσ edgσ oµ sidσá 1«á Fo≥á thσ ì
Microbeσá 'OFFºá ╜ 2¼á s∩ thσ director∙ start≤ a⌠ logica∞ tracδ 2«á Iµá thσ ì
UDFLA╟ iε thσ BIO╙ i≤ ░ o≥ 2¼á track≤ arσ read/writteε t∩ iε orde≥ 0-79¼ s∩ ì
wσ woulΣ looδ fo≥ thσ star⌠ oµ thσ director∙ oε tracδ 2«  Iµ UDFLA╟ i≤ ▒ o≥ ì
3¼ theε track≤ arσ read/writteε t∩ iε thσ orde≥ 0,79,1,78,2,77,│ etc« s∩ wσ ì
woulΣá looδá oε tracδ 1«á  UDFLA╟ fo≥ thσ Microbeσ 390╦ ╡ 1/4ó disδá i≤á 1¼ ì
C.I.A.B« 390╦ │ 1/2ó disδ i≤ 0«

     Thσá Monito≥ synta° i≤ Y╥ tts≤ dddΣ llll«á Thi≤ read≤ lll∞ byte≤á froφ ì
thσá ┬ drivσ int∩ memor∙ addres≤ dddΣ startinτ a⌠ tracδ t⌠á secto≥á ss«á X╥ ì
doe≤á thσá samσ fo≥ drivσ A«á  Ente≥ Y╥ 010▒ 100░ 3000«á  Thi≤ i≤á fo≥á thσ ì
Microbeσ   390╦ ╡ 1/4"¼á changσ t⌠ a≤ applicable«  ┼ 1000¼ notσ thσ addres≤ ì
oµá thσ firs⌠ director∙ entr∙ (samσ filenamσ a≤ firs⌠ entr∙ oε DI╥ listing⌐ ì
anΣá ^┌ dowε thσ director∙ unti∞ yo⌡ seσ thσ star⌠ oµ E╡ formattinτá bytes«  ì
Thi≤ addres≤ - firs⌠ DI╥ entr∙ addres≤ ╜ logica∞ secto≥ size«á  ^╫ bacδá t∩ ì
thσá las⌠ director∙ entr∙ anΣ notσ filσ name«á  Looδ a⌠ DI╥ listinτ fo≥ thσ ì
NEX╘á filσá iε sequence«á  Usσ ╙ commanΣ o≥ ^┌ dowε thσ filσ t∩á finΣá thi≤ ì
director∙á entry«á  Usinτá thσ logica∞ secto≥ size¼á plu≤á lookinτá a⌠á thσ ì
director∙ entrie≤ anΣ DI╥ listinτ yo⌡ caε figurσ ou⌠ thσ skew«

eg. Microbee 390K 5 1/4" disk

1000 - 11FFH   E5 formatting bytes            512 bytes  sector  1
1200 - 13FFH   dir entries for files  1-16    512 bytes  sector  2
1400 - 17FFH   E5 formatting bytes           1024 bytes  sectors 3 & 4
1800 - 19FFH   dir entries for files 17-32    512 bytes  sector  5
1A00 - 1DFFH   E5 formatting bytes           1024 bytes  sectors 6 & 7
1E00 - 1FF0H   dir entries for files 33-48    512 bytes  sector  8

     Lookinτá a⌠á thσ datß wσ seσ tha⌠ thσ firs⌠ DI╥ entr∙ i≤ a⌠ 1200╚á anΣ ì
thσ E5'≤ theε star⌠ a⌠ 1400H¼á s∩ thσ logica∞ secto≥ sizσ i≤ 1400-1200=200╚ ì
o≥ 51▓ bytes«á  Thσ 200H/512─ byte≤ oµ secto≥ ▒ froφ 1000╚ arσ E5's¼ s∩ thσ ì
firs⌠ DI╥ secto≥ numbe≥ i≤ 2«á Nex⌠ i≤ 400H/1024─ o≥ ▓ sector≤ oµ E5's¼á s∩ ì
thσ nex⌠ DI╥ secto≥ numbe≥ i≤ 5¼á theε 8«á Froφ thσ datß wσ seσ thσ ske≈ i≤ ì
2,5,8«á Froφ thσ Microbeσ DP┬ data¼ wσ seσ tha⌠ SP╘ (thσ numbe≥ oµ 12╕ bytσ ì
sector≤ pe≥ track⌐ i≤ 4░ decimal«á A≤ thσ 'Beσ use≤ 51▓ bytσ sector≤á therσ ì
arσá 1░á sectors¼á s∩ wσ mus⌠ havσ 1░ ske≈ datß items«á  A≤ thσ ske≈ i≤á aε ì
arithmetiπá progressioεá wσá g∩á 2,5,8,(11-10=1),(14-10=4)¼á (17-10=7),(20-ì
10=10),(23-20=3),(26-20=6),(29-20=9)«á  Thereforσá thσ ske≈ datß wσ pu⌠á iε ì
SETDISK.WS╘ i≤ 2,5,8,1,4,7,10,3,6,9.

     AmenΣ thσ SECMS╦ anΣ ske≈ tablσ iε SETDISK.WST«á  Iµ yo⌡ havσá figureΣ ì
thesσá correctly¼á therσ i≤ onl∙ onσ othe≥ variablσ ie«á UDFLAG«á  Thi≤ caε ì
onl∙ havσ ß valuσ oµ ░ o≥ ▒ fo≥ 4░ tracδ disδ drives¼á ▓ o≥ │ fo≥ 8░á tracδ ì
drives«á  Tr∙ eacΦ value¼ usσ SETDIS╦ anΣ d∩ ß DIR«  Yo⌡ wil∞ havσ woε wheε ìèyou≥á DI╥á displa∙á EXACTL┘á matche≤ thσ DI╥ listinτ donσá oεá thσá foreigε ì
computer«á Bu∙ yourselµ ß drink¼á yo⌡ deservσ one«á Iµ somσ DI╥ entrie≤ arσ ì
missinτ theε eithe≥ thσ ske≈ o≥ UDFLA╟ arσ incorrect«á    Iµ neithe≥ UDFLA╟ ì
valuσ works¼ rechecδ previou≤ steps«

PATCHIN╟ SETDISK.CO═ V1.░ BIO╙ VERSIO╬ TABLE - see SETDISK.DOC áHINZ


             A FIX AND SOMETHING DIFFERENT FROM LANG STUIVER.

     T∩á thosσ oµ yo⌡ wh∩ ma∙ havσ typeΣ iε m∙ prograφ Missilσá Math≤á froφ ì
thσá Catcher¼á ╔ aφ no≈ awarσ oµ thσ (infamous⌐ Stacδ overflo≈ erro≥ iε it«  ì
Fo≥á peoplσ wh∩ havσ ß Modeφ you¼á caε simpl∙ ge⌠ ß bette≥ cop∙ witΦá sounΣ ì
toggle¼á fron⌠ page¼á n∩ error≤ etc«á b∙ downloadinτ MISSILE2.MWB«á Thσ fi° ì
use≤á ß "chea≡ anΣ dirtyó methoΣ oµ O╬ ERRO╥ t∩ ge⌠ riΣ oµ thσ stacδá overì
flow« Iµ anyonσ caε finΣ thσ causσ oµ this¼ I'Σ bette≥ eternall∙ greatful«
Fo≥ thosσ withou⌠ modem≤ anΣ woulΣ likσ t∩ fi° thσ probleφ yourselµ herσ i≤ ì
ho≈ t∩ d∩ it.

90   ON ERROR GOTO 315
31╡á O╬ ERRO╥ GOT╧ 315:Reφ typσ thesσ line≤ iε onl∙ wheε thσ prograφá work≤ ì
     witΦ n∩ othe≥ errors!
1300 A1$=KEY$:IF A1$<>"" THEN NEXT*I 1460
1310 PLAY 0

╔á hopσá tha⌠ fixe≤ everything«á Iµ anyonσ ha≤ somσ constructivσá criticisφ ì
abou⌠ thσ program¼ please leavσ mσ ß messagσ oε thσ RBBS«



                         BASIC LISTING  CTRL-S.MWB

00100 REM Written by Lang Stuiver 1985.
00110 N = 0 :REM If N=1 then Control-S  is re-enabled.
00120 P= 336 : FOR I = 0 TO 14 : READ A : POKE P + I , A : NEXT I
00130 DATA 205,233,163,245,254,19,194,93,1,241
00140 DATA 62,83,201,241,201
00150 P = 490 : FOR I = 0 TO 10 : READ A : POKE P + I , A : NEXT I
00160 DATA 62,80,50,194,0,62,1,50,195,0,201
00170 IF N = 1 THEN POKE 491,233 : POKE 496,163
00180 X = USR(490)

     Thi≤á prograφá i≤ ß smal∞ machinσ languagσ routinσ tha⌠á disable≤á thσ ì
CONTRO╠ ╙ key«  I⌠ ma∙ bσ hand∙ fo≥ game≤ wherσ yo⌡ don'⌠ wan⌠ peoplσ t∩ bσ ì
ablσ t∩ 'freezeº thσ program«á  I⌠ ha≤ beeε writteε iε 8080¼ no⌠ Z8░ anΣ iµ ì
anyonσ i≤ interesteΣ iε thσ source¼ pleasσ ge⌠ ß messagσ t∩ me«

     Thσ maiε probleφ witΦ thσ prograφ i≤ tha⌠ wheε yo⌡ arσ editinτ ß BASI├ ì
linσá usinτ ^S¼á thσ ^╙ i≤ converteΣ t∩ S¼á forcinτ yo⌡ t∩ uσ thσ LIN┼ FEE─ ì
ke∙ instead«  Thi≤ prograφ seem≤ t∩ worδ ok¼ bu⌠ n∩ responsibilit∙ i≤ takeε ì
fo≥ an∙ crashe≤ o≥ an∙ othe≥ "nastiesó thi≤ prograφ ma∙ cause¼á bu⌠ tel∞ mσ ì
iµ i⌠ happens«á ╔ hopσ thi≤ caε bσ oµ somσ usσ t∩ someone«á T∩ reversσ thi≤ ì
situatioε woulΣ probal∙ requirσ ß colΣ boot.


                       DOCUMENTATIO╬ FO╥ CKSM21.MWB
                       b∙ Juliaε Loke 2░th Jaε 1986

     Manua∞á entr∙á oµá program≤ int∩ ß compute≥ i≤ onσ oµ thσá mos⌠á erro≥ ì
pronσá processe≤á iεá distributinτá software«áá  Iεá magazine≤á anΣá books¼ ì
checksum≤ caε bσ printeΣ a≤ par⌠ oµ prograφ listing≤ t∩ aiΣ you≥ owε proof-ì
reading.

                    DESCRIPTIO╬ O╞ CHECKSU═ VERSIO╬ 2.1
     Thi≤á prograφá describeΣá iε thi≤ filσ wa≤ baseΣá oεá ßá simple≥á one¼ ì
CHECKSU═á (Nico∞ C¼á Onlinσ 1(9):4-5,8;198╡ March)«á  ┴ checksuφ compatiblσ ì
witΦá thi≤á prograφ i≤ calculateΣ anΣ displayeΣ wheεá enterinτá o≥á listinτ ì
BASI├ prograφ lines.è     ┴á BASI├ prograφ i≤ useΣ t∩ instal∞ thσ machinσ codσ froφ ß serie≤á oµ ì
DAT┴á statement≤ anΣ froφ pointers¼á whicΦ arσ se⌠ u≡ a⌠ run-time¼á t∩ sui⌠ ì
an∙ curren⌠ MicroBeσ computer'≤ memor∙ sizσ anΣ configuration«á  0.375δá oµ ì
memor∙ i≤ protecteΣ froφ BASI├ onl∙ wheε thσ patcΦ codσ i≤ active.

                              NOTE╙ O╬ USAGE
     Al∞á thσ outpu⌠ device≤ selectablσ witΦ OUTú anΣ OUTLú arσ handleΣá b∙ ì
thσá machinσ codσ patch¼á s∩ tha⌠ outpu⌠ t∩ tapσ anΣ disδ file≤ caε als∩ bσ ì
checksummed«  Consul⌠ you≥ manua∞ oε ho≈ t∩ d∩ this«  I⌠ i≤ VITA╠ tha⌠ LIS╘ ì
o≥ LLIS╘ command≤ MUS╘ bσ thσ firs⌠ worΣ oε ß linσ iµ thσ checksuφá proces≤ ì
i≤á t∩ worδ correctly«á  ColΣ boo⌠ BASI├ t∩ turε ofµ thσ checksum«á  Iµ yo⌡ ì
havσ an∙ difficultie≤ witΦ thi≤ program¼ pleasσ leavσ ß messagσ oε thσ MBU╟ ì
bulletiε boarΣ (24h*7Σ Melbournσ Australiß 03-8735734)

     Thσ BASI├ prograφ CKSM21.MW┬ i≤ availablσ oε thσ bulletiε boarΣ anΣ i≤ ì
als∩ reproduceΣ below«á  Thσ RE═ statement≤ arσ importan⌠ fo≥ understandinτ ì
thσá program«á  Takσá specia∞ carσ t∩ typσ thσ DAT┴á statement≤á correctly«  ì
Savσá thσá prograφá beforσá testinτ i⌠á becausσá i⌠á destroy≤á itselµá wheε ì
successful.
00010 REM  [097]
00020 REM  CHECKSUM PATCH LOADER FOR MICROWORLD TINY BASIC  [098]
00030 REM  [099]
00040 REM  VERS DATE    NOTES  [100]
00050 REM  2.10 13JAN86 J.LOKE: "/" & LISTL BUGS FIXED  [101]
00060 REM               PATCH CODE TRIMMED AND TIDIED UP  [102]
00070 REM  2.00 17DEC85 J.LOKE: FULLY REWRITTEN VERSION  [103]
00080 REM               REDIRECTION, RENUM, GX ALL OK  [104]
00090 REM               SELF-RELOCATING, SUIT 16..32K  [105]
00100 REM  1.00 ??MAR85 C.NICOL: ORIGINAL VERSIONS 16 & 32K  [145]
00110 REM               PUBLISHED ONLINE 1(9):4-5,8;1985  [146]
00120 REM  [147]
00130 REM  DISPLAY HEADER  [148]
00140 REM  [149]
00150   PRINT "CHECKSUM V2.1 BY J.LOKE 13 JAN 1986"  [244]
00160 REM  [151]
00170 REM  DEFINE CONSTANTS  [152]
00180 REM  [153]
00190   H=256  [188]
00200 REM  [146]
00210 REM  SET N=128 FOR HIGHLIGHTED CHECKSUM; ELSE SET N=0  [147]
00220 REM  [148]
00230   N=128  [187]
00240 REM  [150]
00250 REM  PATCH DESTINATION IS 384 BYTES BELOW TOP OF MEMORY  [151]
00260 REM  [152]
00270   D=PEEK(160)+PEEK(161)*H-128*3  [247]
00280 REM  [154]
00290 REM  TEST IF PATCH IS ALREADY INSTALLED, ABORT IF YES  [155]
00300 REM  [147]
00310   O=PEEK(178)+PEEK(179)*H  [234]
00320   P=PEEK(180)+PEEK(181)*H  [222]
00330   IF O<>P+7 THEN 390  [107]
00340     PRINT CHR$(7) CHR$(7) "** ALREADY INSTALLED ERROR"  [250]
00350     END  [111]
00360 REM  [153]
00370 REM  LOAD OFFSETS FOR LABELS  [154]
00380 REM  [155]
00390   READ B  [250]
00400   DIM L(B)  [077]
00410   FOR I=1 TO B  [024]
00420     READ O  [001]
00430     L(I)=D+O  [120]
00440     NEXT I  [032]
00450 REM  [153]
00460 REM  CHECK LABEL OFFSETS READ CORRECTLY  [154]
00470 REM  [155]
00480   READ B  [250]
00490   IF B=-1 THEN 550  [210]è00500     PRINT CHR$(7) CHR$(7) "** LABEL COUNT ERROR"  [063]
00510     END  [109]
00520 REM  [151]
00530 REM  LOAD PATCH INTO DESTINATION ONE BYTE AT A TIME  [152]
00540 REM  [153]
00550   P=D  [107]
00560   READ B  [249]
00570   IF B<0 THEN 640  [162]
00580     POKE P,B  [138]
00590     P=P+1  [215]
00600     GOTO 560  [106]
00610 REM  [151]
00620 REM  CHECK THAT CORRECT NUMBER OF BYTES WERE READ  [152]
00630 REM  [153]
00640   READ O  [005]
00650   IF P=D+O THEN 710  [060]
00660     PRINT CHR$(7) CHR$(7) "** DATA COUNT ERROR"  [000]
00670     END  [116]
00680 REM  [158]
00690 REM  REDIRECT THE OUTPUT VECTORS TO THE PATCH  [159]
00700 REM  [151]
00710   FOR I=0 TO 7  [015]
00720     P=D+7*(7-I)  [244]
00730     POKE 178+I*2,P  [181]
00740     POKE 179+I*2,P/H  [046]
00750     NEXT I  [036]
00760 REM  [157]
00770 REM  CLEAR THE LIST OUTPUT BUFFER  [158]
00780 REM  [159]
00790   POKE 2048,13  [045]
00800 REM  [152]
00810 REM  MOVE TOP OF MEMORY BELOW PATCH CODE  [153]
00820 REM  [154]
00830   POKE 160,D  [209]
00840   POKE 161,D/H  [074]
00850 REM  [157]
00860 REM  CHANGE PROMPT FROM ">" (ONLY DISK BASIC IS AFFECTED)  [158]
00870 REM  [159]
00880   POKE 33852,ASC("]")  [201]
00890 REM  [161]
00900 REM  RESTART BASIC WITH NEW POINTERS  [153]
00910 REM  [154]
00920   NEW  [133]
00930 REM  [156]
00940 REM  DATA DIVISION  [157]
00950 REM  [158]
00960 REM  NO OF LABELS, FOLLOWED BY OFFSETS FOR LABELS  [159]
00970 REM  [160]
00980 DATA  13  [031]
00990 DATA  63,  105, 180, 194, 229, 245, 249, 250  [148]
01000 DATA  252, 256, 294, 296, 297  [163]
01010 DATA  -1  [058]
01020 REM  [195]
01030 REM  PATCH CODE, TERMINATED BY -1  [196]
01040 REM  [197]
01050 DATA  30,  7,   33,  PEEK(192),PEEK(193),24,  47,  30  [109]
01060 DATA  6,   33,  PEEK(190),PEEK(191),24,  40,  30,  5  [052]
01070 DATA  33,  PEEK(188),PEEK(189),24,  33,  30,  4,   33  [116]
01080 DATA  PEEK(186),PEEK(187),24,  26,  30,  3,   33,  PEEK(184)  [031]
01090 DATA  PEEK(185),24,  19,  30,  2,   33,  PEEK(182),PEEK(183)  [026]
01100 DATA  24,  12,  30,  1,   33,  PEEK(180),PEEK(181),24  [088]
01110 DATA  5,   30,  0,   33,  PEEK(178),PEEK(179),34,  L(13)  [212]
01120 DATA  L(13)/H,  254, 13,  194, L(12),L(12)/H, 62,  8  [062]
01130 DATA  187, 123, 50,  L(1),L(1)/H,   218, L(7),L(7)/H  [123]
01140 DATA  175, 50,  L(9),L(9)/H,   33,  39,  7,   35  [170]
01150 DATA  126, 254, 32,  40,  250, 254, 134, 40  [064]
01160 DATA  4,   254, 135, 32,  12,  33,  0,   8  [020]
01170 DATA  205, L(2),L(2)/H,   62,  13,  50,  0,   8  [092]è01180 DATA  201, 126, 254, 48,  218, L(11),L(11)/H, 254  [246]
01190 DATA  58,  210, L(11),L(11)/H, 43,  35,  126, 254  [145]
01200 DATA  48,  40,  250, 30,  0,   205, L(3),L(3)/H  [185]
01210 DATA  254, 32,  40,  11,  254, 82,  40,  20  [163]
01220 DATA  254, 128, 212, L(4),L(4)/H,   131, 95,  35  [098]
01230 DATA  126, 254, 13,  32,  235, 123, 50,  L(8)  [123]
01240 DATA  L(8)/H,   195, L(10),L(10)/H, 35,  205, L(3),L(3)/H  [137]
01250 DATA  254, 69,  32,  11,  35,  205, L(3),L(3)/H  [253]
01260 DATA  254, 77,  32,  2,   24,  231, 43,  43  [129]
01270 DATA  62,  82,  24,  217, 126, 254, 97,  216  [039]
01280 DATA  254, 123, 208, 214, 32,  201, 225, 225  [165]
01290 DATA  24,  211, 229, 42,  62,  131, 214, 129  [071]
01300 DATA  40,  13,  254, 32,  40,  240, 71,  126  [213]
01310 DATA  35,  254, 128, 56,  250, 16,  248, 126  [081]
01320 DATA  254, 128, 48,  5,   131, 95,  35,  24  [188]
01330 DATA  246, 214, 128, 225, 201, 175, 6,   8  [026]
01340 DATA  203, 19,  23,  185, 56,  1,   145, 63  [183]
01350 DATA  16,  246, 87,  123, 23,  198, 48+N,24  [113]
01360 DATA  47,  30,  0,   62,  0,   183, 40,  38  [025]
01370 DATA  62,  32,  50,  L(9),L(9)/H,   205, L(12),L(12)/H  [124]
01380 DATA  62,  32,  205, L(12),L(12)/H, 62,  91+N,205  [215]
01390 DATA  L(12),L(12)/H, 14,  100, 205, L(5),L(5)/H,   90  [163]
01400 DATA  14,  10,  205, L(5),L(5)/H,   122, 205, L(6)  [138]
01410 DATA  L(6)/H,   62,  93+N,205, L(12),L(12)/H, 62,  13  [133]
01420 DATA  195, 0,   0  [056]
01430 DATA -1  [064]
01440 DATA 299  [135]
01450 END  [161]
.. NOTE TO EDITOR - ^PE = BEGIN UNDERLINE; ^PR = END
.. BY Graeme Young, 16 Hillingdon Cres Doncaster 3108, Ph 857 4302.
                 WORDSTAR PATCHES FOR THE C. ITOH PRINTER
                              by Graeme Young

     Whilσ thσ C« ItoΦ 851░ printe≥ i≤ ß ruggeΣ anΣ dependablσ machinσ witΦ ì
abovσá averagσ prin⌠ quality¼á i⌠ lack≤ super-scriptinτá anΣá sub-scriptinτ ì
fonts«á  I⌠á doe≤á havσá ßá Greeδ characte≥ se⌠ anΣ thi≤ caεá bσá useΣá fo≥ ì
mathematica∞á formulae╗á thi≤ characte≥ se⌠ als∩ include≤á superscrip⌠á anΣ ì
subscrip⌠ arabiπ numbers«á  Thσ onl∙ wa∙ t∩ ge⌠ s/s-scriptinτ oµ letter≤ i≤ ì
t∩ causσ ß halµ line-feeΣ iε thσ appropriatσ directioε followeΣ b∙ ß returε ì
t∩á correc⌠ linσ position«á  I⌠ i≤ ver∙ trick∙ t∩ achievσ thi≤ iε Wordstar¼ ì
bu⌠á i⌠á i≤ possiblσ iµ yo⌡ carr∙ ou⌠ thσ followinτ step≤á wheεá installinτ ì
Wordstar.

     ┴ littlσ playinτ arounΣ witΦ thσ printe≥ patche≤ i≤á necessary«á  Thi≤ ì
caεá bσ donσ b∙ runninτ winstall.coφ whicΦ i≤ provideΣ witΦ Wordstar«á  Thσ ì
mos⌠ importan⌠ poin⌠ t∩ appreciatσ i≤ tha⌠ yo⌡ shoulΣ no⌠ bσ misleΣ b∙á thσ ì
namσ giveε t∩ ß printe≥ contro∞ b∙ Wordstar╗á yo⌡ caε changσ i⌠ t∩ anythinτ ì
elsσ yo⌡ likσ anΣ i⌠ wil∞ functioε tha⌠ way«á  Bu⌠ ß warning¼á don'⌠ forge⌠ ì
t∩á notσ thσ ne≈ functioε fo≥ thσ redefineΣ printe≥ control!«á  ╔ namσ thi≤ ì
specia∞ versioε oµ Wordsta≥ a≤ wssupsub.com.

Printer initialization:

Set to 11h 1Bh 24h 1Bh 45h 00 00 00 00 00 00

     Thi≤ put≤ thσ printe≥ iε selec⌠ state¼á pick≤ alphanumeriπ characters¼ ì
anΣá theε select≤ elitσ (1▓ cpi⌐ pitcΦ a≤ thσ standarΣ pitch«á  Iµ yo⌡ wisΦ ì
anothe≥ standarΣ pitch¼á theε replacσ 1BΦ 45Φ witΦ thσ appropriatσ datßá a≤ ì
listeΣá iε thσ manual«á  Makσ surσ yo⌡ patcΦ standarΣ characte≥ pitcΦ t∩ bσ ì
thσ same¼ seσ below.

Printer deinitialization.

Set to 13h 00 00 00 00 00 00 00 00 00 00

Character Pitch:

Se⌠ thσ alternateô characte≥ pitcΦ t∩ 1BΦ 26Φ t∩ ge⌠ GREEKô characters.

     T∩ choosσ thσ Greeδ characte≥ se⌠ withiε thσ document¼á typσ ^P┴ (notσ ìèyo⌡ havσ redefineΣ thσ alternatσ pitcΦ commanΣ t∩ meaε alternatσá characte≥ ì
set).

     Thσá standarΣ characte≥ pitcΦ shoulΣ bσ 1BΦ 24Φ 1BΦ 45h«á  Thσ 1BΦ 24Φ ì
i≤ necessar∙ t∩ re-selec⌠ alphanumeriπ characters«á  1BΦ 45Φ select≤á elitσ ì
pitch«  Iµ yo⌡ wisΦ anothe≥ pitcΦ theε makσ surσ i⌠ i≤ thσ samσ a≤ tha⌠ se⌠ ì
a⌠ printe≥ initialization.

Underlining:

Changσ thσ use≥ patche≤ ┼ anΣ ╥ (i.e« patche≤ #3⌐ t∩ thσ followinτ sincσ ì
Wordsta≥ underlininτ i≤ no⌠ correc⌠ fo≥ thσ C« ItoΦ printer.

Set ^PE to 1Bh 58h  = start underlining
and ^PR to 1Bh 59h  = stop underlining.

Super-scripting and sub-scripting:

This is complicated. If you wish it, then first do the following.
     Carriage roll sequences - rollup 03h 1Bh 72h 0Ah  (^PT)
                             - rolldown 03h 1Bh 66h 0Ah  (^PV)

     User patch #1 - 1Bh 54h 30h 38h  (^PQ)
     User patch #2 - 1Bh 41h 1Bh 66h  (^PW)
     Alternate ribbon - 02h 1Bh 5Bh   (^PY start)
     Standard ribbon  - 02h 1Bh 5Dh   (^PY stop)

You must then use the following commands to select s/s-scripting.

     START SUB-SCRIPTING - ^PY^PQ^PV
     END       "        - ^PV^PW^PY

     START SUPER-SCRIPTING - ^PY^PQ^PT
     END         "        - ^PT^PW^PY

Double and bold striking:

Durinτ install¼ indicatσ tha⌠ you≥ printe≥ i≤ ß non-backspacinτ printer.

Variation≤á oµá thσá abovσ approacΦ wil∞ allo≈ selectioεá oµá thσá graphic≤ ì
character≤á oµ thσ C«á Itoh«á  Furthermore¼á thσ genera∞ principle≤ caεá bσ ì
applieΣ t∩ an∙ printe≥ whicΦ canno⌠ bσ readil∙ accesseΣ througΦ Wordstar. áHINZ


                             TAPE LIBRARY NEWS

     Ou≥á apologie≤ fo≥ no⌠ havinτ ß printou⌠ oµ ou≥ tapσ librar∙ iε recen⌠ ì
issues¼á bu⌠á thσ databasσ wσ usσ ha≤ someho≈ corrupteΣ ▓ disks«á Wσá stil∞ ì
havσá thσ librar∙ iε operatioε bu⌠ n∩ prin⌠ out«á A≤ sooε a≤ wσ ge⌠ i⌠á al∞ ì
goinτ agaiε (b∙ thσ nex⌠ issuσ ╔ hope)¼á wσ wil∞ prin⌠ ß ne≈ list«á A⌠ thi≤ ì
timσ wσ havσ a⌠ leas⌠ 2░ ne≈ program≤ t∩ pu⌠ oε tape«á Thσ librar∙ wil∞ ruε ì
a≤á usua∞á oε cluΓ nigh⌠ anΣ ou≥ mail-orde≥ i≤ stil∞á operating«á Thσá las⌠ ì
issuσ witΦ ß lis⌠ oµ tape≤ fo≥ hirσ wa≤ Octobe≥ 1985« Volumσ ┤ N∩ 5«

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

     92δá EPRO═á expansioεá board«á 8x8δá (2764⌐á ªá 7x4δá (2532⌐á softwarσ ì
selectablσ witΦ LE─ display«á Fit≤ insidσ Microbeσ casσ oµ 8xxx° typσ Bees« ì
Includes some EPROMs including Telcom 1.2. $75.00.   Phone Roy 584-1069

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

                          AN IDEA FOR AN ARTICLE

     Recently¼á teεá peoplσ iε thi≤ cluΓ purchaseΣ ß 3.5ó doublσ sideΣ disδ ì
drivσ (a⌠ ver∙ lo≈ cost⌐ anΣ mos⌠ probabl∙ the∙ useΣ ß lot¼á iµ no⌠ al∞á oµ ì
thσá informatioεá tha⌠á ha≤ beeε publisheΣ iε thσ Catche≥ relatinτá t∩á thσ ì
installatioε oµ thesσ drives« è
     Iεá thi≤ issuσ ╔ havσ includeΣ thσ las⌠ oµ thσ informatioε abou⌠á disδ ì
format≤ a≤ supplieΣ b∙ Marδ Bishop«

     Rememberinτ tha⌠ wσ pa∙ fo≥ article≤ published¼ ╔ wonde≥ iµ an∙ oµ thσ ì
teε peoplσ woulΣ bσ inclineΣ t∩ writσ aε articlσ wσ coulΣ publish« Thσ typσ ì
oµ thinτ ╔ aφ lookinτ for¼á i≤ thσ fuε anΣ games¼á problems¼á mishaps¼á thσ ì
pitfall≤á (o≥ thσ ease⌐ oµ installinτ thesσ drives¼á o≥ anythinτá elsσá yo⌡ ì
thinδá woulΣá bσ oµ interes⌠ t∩ anyonσ elsσ wh∩ ma∙ likσ t∩ follo≈ iεá you≥ ì
foo⌠ steps«         EDITOR.
                                TRAN8░.EDT

;Function║ T∩ transfe≥ Z8░ object¼ int∩ DAT┴ statement≤ oµ ß Basiπ Program.
;DevelopeΣ anΣ ProgrammeΣ B∙ Pau∞ Bridge≤ (W.G.S.)
;B├ contain≤ thσ star⌠ fo≥ decoding¼ passeΣ viß USR 7FF0╚ (▓ bytes⌐ wil∞
;contaiε Length(▒ represent≤ 1╢ bytes). Thi≤ routinσ wil∞ star⌠ linσ
;numberinτ a⌠ 64000¼ witΦ increment≤ oµ one. I⌠ wil∞ appenΣ DAT┴ statement≤
;t∩ an∙ ~existinτ Basiπ ~program« Thσ number oµ value≤ pe≥ linσ ma∙ bσ
;changeΣ b∙ alterinτ thσ valuσ iε linσ 300. Usinτ thi≤ routine, yo⌡ shoulΣ
;firs⌠ makσ thi≤ ß M/╠ filσ oε tapσ witΦ the commanΣ ─ "TRANSó ═ 700░ 7089¼
;afte≥ assembling« Sa∙ yo⌡ wan⌠ t∩ conver⌠ 16▓ bytes¼ 1▒ line≤ oµ DAT┴ arσ
;requireΣ (Assuminτ 1╢ value≤ pe≥ line). S∩ yo⌡ woulΣ d∩ thσ followinτ
;POK┼ 7*4096,11
╗USR(28674,nn)
;wherσ nε i≤ thσ decima∞ locatioε t∩ star⌠ decoding« Iµ therσ arσ morσ
;thaε 25╡ line≤ t∩ decode¼ locatioε ;7*4096+1¼ wil∞ givσ 25╢ lines« S∩ the
;tota∞ numbe≥ oµ line≤ ╜ PEEK(7*4096+1)*256+PEEK(7*4096)
;**NOTE**
;Wheε callinτ thi≤ routinσ yo⌡ MUS╘ NO╘ usσ variable=usr(28674,nn)¼ sincσ
;tha⌠ variablσ i≤ ß immediatσ one¼ i⌠ coulΣ corrup⌠ thσ Basiπ program.

VALU┼    EQ╒    0F╚                ╗ no« oµ value≤ pe≥ linσ -1
    OR╟    7002H
    L─    DE,0FA00╚       ;star⌠ linσ no« a⌠ 64000
    L─    HL,(08D2H⌐       ;ge⌠ curren⌠ enΣ oµ prog.
    DE├    H╠               ;makσ t∩ seconΣ las⌠ 0FFH
STAR╘    PUS╚    BC
    L─    BC,(7000H⌐       ;T
    L─    A,├           ;|
    O╥    ┬           ;ⁿ coun⌠ fo≥ no« oµ lines
    J╥    Z,FINIS╚       ;|
    DE├    B├           ;|
    L─    (7000H),B├       ;L
    PO╨    BC
    L─    (HL),─               ;T
    IN├    H╠               ;ⁿ Writσ linσ number
    L─    (HL),┼               ;L
    IN├    DE
    PUS╚    D┼               ;Savσ nex⌠ linσ no« oε Stack
    IN├    HL
    PUS╚    H╠               ;Storσ Counte≥ pos¼ fo≥ line
    IN├    HL
    L─    (HL),94╚       ;Tokeε Codσ for¼ DATA
    IN├    HL
    PUS╚    B├               ;╘  L─     DE,BC
    PO╨    D┼               ;L
    L─    C,0╚               ;Se⌠ ASCI╔ counte≥ t∩ zero
    L─    B,VALU┼               ;Counte≥ fo≥ LOOP░
    CAL╠    CON1
LOOP░    IN├    D┼               ;T
    IN├    H╠               ;ⁿ Loo≡ fo≥ no« oµ value≤ per
    L─    (HL),2C╚           ;ⁿ DAT┴ linσ »    ie« ","
    IN├    H╠               ;|
    CAL╠    CON▒               ;|
    DJN┌    LOOP░               ;L
    IN├    HL
    IN├    DE
    L─    (HL),0D╚           ;Las⌠ valuσ oµ linσ i≤ <CR>è    L─    A,VALUE+│          ;╘ AD─ t∩ C¼ VALUE+2+1
    AD─    A,├               ;L
    IN├    HL
    PO╨    B├               ;restorσ counte≥ pos« fo≥ line
    L─    (BC),┴               ;Savσ no« oµ ASCII/line
    PUS╚    DE
    PO╨    B├               ;nex⌠ addres≤ t∩ decode
    PO╨    D┼               ;Ge⌠ nex⌠ linσ no« froφ Stack
    J╥    STAR╘               ;GOT╧ nex⌠ line
;CON▒ convert≤ ß bytσ addresseΣ b∙ D┼ t∩ ß max« oµ three
;byte≤ addresseΣ b∙ HL« ├ i≤ useΣ t∩ coun⌠ thσ no« oµ ASCI╔ characters.
;ie« onσ byte=╛ t∩ thσ ASCI╔ representatioε oµ thσ equivelen⌠ decimal.
CON▒    L─    A,(DE⌐               ;ge⌠ bytσ t∩ convert
    PUS╚    DE
    L─    D,░               ;se⌠ Quotien⌠ t∩ zero
    C╨    1░               ;╘ iµ A<1░ theε ski≡ first
    J╥    C,LOOP│               ;╠ tw∩ digits
    C╨    10░               ;╘ iµ A<10░ theε ski≡ first
    J╥    C,SM9╣               ;╠ digit
LOOP▒    SC╞                   ;T
    CC╞                   ;ⁿ dividσ ┴ b∙ 100
    SU┬    10░               ;ⁿ Quotien⌠ iε D
    J╥    C,CONT░               ;ⁿ Remainde≥ iε A
    IN├    ─               ;|
    J╥    LOOP▒               ;|
CONT░    AD─    A,10░               ;╠    fi° A
    E╪    AF,AFº               ;T
    L─    A,─               ;ⁿ conver⌠ ─ t∩ ACSI╔ anΣ store
    AD─    A,30╚               ;|
    L─    (HL),┴               ;|
    IN├    ├               ;ⁿ   ASCI╔ coun⌠ fo≥ firs⌠ digit
    IN├    H╠               ;|
    E╪    AF,AFº               ;L
SM9╣    L─    D,░               ╗ se⌠ Quotien⌠ t∩ zero
LOOP▓    SC╞                   ;╘
    CC╞                   ;ⁿ dividσ ┴ b∙ 10
    SU┬    1░               ;ⁿ Quotien⌠ iε D
    J╥    C,CONT▒               ;ⁿ Remainde≥ iε A
    IN├    ─               ;|
    J╥    LOOP▓               ;|
CONT▒    AD─    A,1░               ;╠   fi° A
    E╪    AF,AFº               ;T
    L─    A,─               ;ⁿ conver⌠ ─ t∩ ASCI╔ anΣ store
    AD─    A,30╚               ;|
    L─    (HL),┴               ;|
    IN├    ├               ;ⁿ  ASCI╔ coun⌠ fo≥ seconΣ digit
    IN├    H╠               ;|
    E╪    AF,AFº               ;L
LOOP│    AD─    A,30╚               ;cover⌠ las⌠ digi⌠ t∩ ASCII
    L─    (HL),┴               ;storσ las⌠ digit
    PO╨    DE
    IN├    ├               ;C=C+▒ ASCI╔ coun⌠ fo≥ las⌠ digit
    RE╘                       ;returε t∩ maiε program
FINIS╚    PO╨    B├               ;fi° Stack
    L─    (HL),0FF╚       ;T
    IN├    H╠           ;ⁿ Savσ las⌠ tw∩ FF's
    L─    (HL),0FF╚       ;L
    L─    (08D2H),H╠         ;Savσ enΣ oµ prog« pointer
    RE╘                       ;returε t∩ callinτ routine
    END
          BAZAAR RAMBLINGS

HΘá therσá Trendsetters«á Mick(thσ BAZAA╥ person)¼á reportinτ t∩á yo⌡á froφ ì
Downtowεá MBUG«á Thσ BI╟ new≤ thi≤ montΦ come≤ t∩ yo⌡ courtes∙ oµá Compute≥ ì
Transitioε Systems¼ agent≤ fo≥ CO-168╢ anΣ CO-16186«

Yo⌡ ma∙ bσ wonderinτ wha⌠ i⌠ al∞ means«
èWel∞ thσ answe≥ i≤ 42«

Read on.

No¼á seriousl∙ folks¼ CO-168╢ anΣ CO-1618╢ arσ adapte≥ board≤ whicΦ pluτ iε ì
t∩ you≥ presen⌠ Z-8░ micro-processo≥ socke⌠ anΣ allo≈ yo⌡ t∩ ruε you≥ ╕ bi⌠ ì
micr∩ iε eithe≥ ╕ o≥ 1╢ bi⌠ processinτ modes« CO-1686¼ combineΣ witΦ MS-DO╙ ì
provide≤á yo⌡ witΦ thσ abilit∙ t∩ ruε IB═ P├ application≤ oε you≥á oεá you≥ ì
curren⌠á Z-8░á micro«á Yo⌡ retaiε you≥ curren⌠ ╕ bi⌠ processinτ anΣ gaiεá ß ì
truσ 1╢ bi⌠ micr∩ computer.

Basically, what you get is: MS-DOS 2.11             Real Time Clock
                            8086(6mhz)              CPM86(optional)
                            16 bit OS RAM disk      CPM80 RAM disk
                            Z-80 System Interface   256K-768K memory
                            8087(math co-processor, optional)
                            IBM PC BIOS ROM emulator program

Thσ CO-168╢ ma∙ bσ useΣ a≤ ß RA═ disδ b∙ you≥ CP/═ system¼ becausσ i⌠ come≤ ì
witΦá ß CPM8░ compatiblσ RA═ disδ drive≥ program«á Wheε operatinτ iεá CPM8░ ì
modσá thi≤ drive≥ prograφ provide≤ al∞ CPM8░ application≤ witΦ thσá abilit∙ ì
t∩ acces≤ C0-168╢ memor∙ a≤ ß RA═ disk.

ProvideΣá iε you≥ CO-168╢ packagσ i≤ ß 20░ pagσ use≥ manual¼á coverinτá thσ ì
hardwarσá anΣá softwarσá installatioε anΣ thσá operatioεá oµá al∞á program≤ ì
provideΣ witΦ thσ unit« Thσ documentatioε als∩ provide≤ completσ detail≤ oε ì
thσ programminτ aspect≤ oµ thσ MS-DO╙ operatinτ system« Yo⌡ als∩ receivσ aε ì
808╢ cros≤ assemble≥ anΣ ß Z-8░ modσ assembler« Sourcσ codσ fo≥ al∞ prograφ ì
module≤ arσ available.

What you need to use the CO-1686 are as follows:

                         Z-80 CPU(preferably socket mounted)
                         CP/M 2.2 or CP/M plus
                         32k of TPA

Thi≤ co-processinτ boarΣ wil∞ bσ demonstrateΣ a⌠ ou≥ MarcΦ meeting.

Iµ anyonσ i≤ interesteΣ iε morσ detail≤ abou⌠ thi≤ boarΣ beforσ March¼ theε ì
contac⌠ mσ oε 354-674▓ (7.00pm-10.00pφ weekdays)¼á anΣ ╔ wil∞ tr∙ t∩ answe≥ ì
you≥ questions.
                                   Regards
                                        Mick (the BAZAAR person)


PS.Thi≤á articlσ i≤ t∩ bσ reaΣ iε ßá baritone¼á monotone¼á voice.

MARCH SPECIALS: MONITOR TILT STANDS                          $20.00
                BEETEX (Powerful Graphics Word-Processor     $99.00
                       RRP $110.00 offer expires March 31st)


*** BAZAAR SALES *** BAZAAR SALES ***



      CODE DESCRIPTION                                  PRICE     CODE DESCRIPTION                                  PRICE
                 "The Catcher"
      BC02 Volume 2 (Oct.83-Sept.84)                    $15.00    CS30 Blank C-30 Cassettes                         $ 1.50
      BC03 Volume 3 (Oct.84-Sept.85)                    $15.00    CB30 Blank C-30 Cassettes (20 per box)            $25.00
      TC01 Back Issues (single)                         $ 1.50    DDS5 Blank 5.25" Disks (Xidex DSDD)               $ 4.00
      TC02 Back Issues (Vol 2 Nos. 6/7)                 $ 3.00    DDB5 Blank 5.25" Disks (10 per box)               $35.00
                                                                  SDS5 Blank 5.25" Disks (SSDD)                     $ 2.00
      WC04 WILDCARDS 4                                  $13.00    SDS3 Blank 3.5" Disks (FUJI SSDD)                 $ 6.00
      BB01 Basic for Beginners (D.Kenny)                $15.00    SDB3 Blank 3.5" Disks (10 per box)                $52.00
      DC01 Dust Covers for 'BEE                         $ 6.00
      MB0▒ Magazinσ Binder≤ (fo≥ onlinσ etc.⌐           ñ 7.0░    DB3╢ Disδ Storagσ Bo° 3.5ó (Lockable¼ hold≤ 60⌐   $25.00
      PR8░áCarboε Printe≥ Ribboε                                  DB34 Disδ Storagσ Bo° 3.╡  (hold≤ 35⌐             $17.00
                (suit xyz.80/100 printers)              $ 8.00    DB59 Disk Storage Box 5.25" (Lockable, holds 85)  $18.00è    **PP05 500 sheets cont. printer paper                         DB57 Disk Storage Box 5.25" (holds 70)            $15.00
            (240mm wide, micro-perforations,2.5Kg)      $11.00    DB51 Disk Library Box 5.25" (holds 10)            $ 3.00
    **CP40 400 sheets four colours as PP05 (2.0Kg)      $12.00    DB5R Rubycliff Library Box (holds 10)             $ 4.00

      BA01 BeeArtistic (Graphic S/W)                    $45.00    FP01 Flashprint (with Flashkey)                   $40.00
      GS01 Bunyip Adventure (Tape or Disks)             $18.00    GJ01 Joystick                                     $32.00
      GS0▓ Grotniδ War≤ (Tapσ o≥ Disks⌐                 $18.0░    MS0▓ CP/═ Utilitie≤ Vo∞ ▒         (3.5" $7.00)    $ 5.00
      GS0│ Fli≡  (Tapσ $8.00⌐              (Disks⌐      $11.0░    MS0│ Setdisk,DPP,etπ                 (3.5ó $7.00)    ñ 5.00

       ** not normally available for postal purchase
      All postal orders to be sent to MBUG AUSTRALIA SALES
                                      P.O. BOX 253, COBURG
                                      VICTORIA 3058

   To avoid delays, all orders must include cheque, postal order or
   Bankcard authorization for the total amount(inc. postal & handling
   charges). Allow 14 days for the return of goods, or pick-up at the
   next meeting.

            Goods are only available to club members
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   Please charge my Bankcard/Visa No. ___ __ ___ ______

   Expiry Date __/__/____               Signature_________________
   Members Name.__________________________________ M/ship No._____
   Address._______________________________________________________
   Code  Item                      Quantity    Price    Total Cost
   ____  ________________________  ________    _____    __________
   ____  ________________________  ________    _____    __________
   ____  ________________________  ________    _____    __________
   Postal Fees (within Aust.)       Sub-Totals Items     $_________
   $10 to $20 order    :$2.50  Postage & Handling Fee   $_________
   $20 to $80 order    :$5.00
   greater than $80    :P.O.A.             Total Order    $_________

   Certified Mail add $0.90                Secutity Post add $4.50

        MINIMUM POSTAL ORDER $10.00


*** BAZAAR SALES *** BAZAAR SALES ***

     THE MEMBERSHIP SECRETARY
     MBUG AUSTRALIA INCORPORATED.
     P.O. BOX 157
     NUNAWADING. Victoria. 3131.

All  applications and renewals  PLEASE COMPLETE  the  NAME AND ADDRESS FORM
         (Unless renewing (ATTATCHING LABEL BELOW) and NO changes)
__________________________________________________________________________
|                                                                         |
|        NAME:______________________________________________________      |
|                                                                         |
|        ADDRESS:___________________________________________________      |
|                                                                         |
|        POST CODE:___________      TELEPHONE:______________________      |
|                                                                         |
|        DO YOU HAVE A MODEM:____   TYPE OF COMPUTER:_______________      |
|                                                                         |
|        WHERE DID YOU HEAR ABOUT MBUG:____________________________       |
|_________________________________________________________________________|
                                     |
                                     |
                                     |
          .-------- yes -------<-- NEW MEMBER -->------ no --.
          |                                                  |
          |                                     .____________|___________.
          |                                     |                        |è          |<--- Member No.______<--- yes ---<---|       RENEWAL          |
          |                                     |                        |
          |                                     -------------------------|
          |                                               |
     YEARLY FEES                                         no
          |                                               |
RENEWAL OF MEMBERSHIP          [ ]-yes--.    .----------------------------.
FULL (Melb metro)   @  $20.00  [ ]      |    |    CHANGE OF ADDRESS       |
(includes schools & businesses)         |    |   OR ANY OTHER CHANGE      |
OVERSEAS            @  P.O.A.  [ ]      |    |    eg. Phone No. etc.      |
COUNTRY             @  $17.00  [ ]      |    |-- --- --- --- --- --- ---  |
STUDENT             @  $15.00  [ ]      |--> | attatch old mailing label  |
TAPE LIBRARY        @  $ 5.00  [             |                            |
(Tape library Payable once only)             |         HERE               |
                                             -----------------------------

PAYMENT FORM AT BOTTOM OF PAGE.

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

                 SIGNATURE: _____________________ DATE: ________

===========================================================================

Please find enclosed my remittance of $_____ Being cheque/money order, or,

Charge my Bankcard / Visa          No.____ ____ ____ ________

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

                         #                  /    /