CP/M/CPM_CDROM.iso/mbug/mbug007.arc/1984DEC.CAT

Text File | 1979-12-31 | 55KB | 1,324 lines

.HE                 ---- T H E  C A T C H E R ---
TO :  MICROBUG AUSTRALIA,
      The Treasurer, 26 Alexander Cr., Ferntree Gully. 3156

I would like to -   join MICROBUG AUSTRALIA         [ ]
                    renew my subscription to M.A.   [ ]

NAME      :________________________________________________

ADDRESS   :________________________________________________

           ________________________________________________

TELEPHONE :__________________ SYSTEM :_________________

HARDWARE  :____________________________________________

[ ] $20  Melbourne subscription per year.
[ ] $17  Non-city  subscription per year.
[ ] $A20 New Zealand subscription per year.
[ ] $10  Tape Library membership (payment only required once)
[ ] I would like a receipt, please

-------------------------------------------------------------
|                                                           |
|        SERVICES  PROVIDED  BY  MICROBUG  AUSTRALIA        |
|                                                           |
|------------------------------------------------------------
| TAPE LIBRARY *    P.O. BOX 45 CANTERBURY 3126             |
|-----------------------------------------------------------|
| $2.0░áPE╥ S/W TAP┼ FO╥ ON┼ MONTH¼  RETURNED  NEXT MEETING.|
| $5.00 PER SIG/M VOLUME, WE SUPPLY THE DISK.               |
| $4.50 PER BLANK 5" DISKETTE                               |
-------------------------------------------------------------
| 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) |
| FREE  FOR ADVERTISEMENTS THAT ARE NOT RECURRING ITEMS     |ì
-------------------------------------------------------------
| MODEM HIRE *      JOHN BUXTON 435-0885                    |
|-----------------------------------------------------------|
| $5.00 FIRST WEEK  THEN $10.00 EACH ADDITIONAL WEEK        |
| PLUS $25.00 DEPOSIT                                       |
-------------------------------------------------------------
| BAZAAR * MICK HOLZINGER 354-6742 P.O. BOX 157 NUNAWADING. |
|-----------------------------------------------------------|
| $1.50 PER C30 TAPE OR $25.00 PER BOX OF 20.               |
| $1.50 BACK ISSUES OF CATCHER  VOL 1 NO 1 PRINTED  OCT 82  |
-------------------------------------------------------------
| DISKETTE COPYING *    GRANT  FOREST  8748728              |
|-----------------------------------------------------------|
|  5"TO 8"  OR  8"TO 5"  MOST FORMATS  $2.00 PER DISKETTE   |
-------------------------------------------------------------
|  FOR  ALL  POSTAL  ORDERS  ADD  $1.50  MINIMUM            |
-------------------------------------------------------------
.paè.pn 1
                    FRO═ TH┼ CHIE╞ MICROBUG

Abou⌠ thi≤ timσ oµ yea≥ peoplσ star⌠ t∩ wisΦ eacΦ othe≥ Merr∙á Christì
ma≤á anΣá ß happ∙ ne≈ etπ etc.«á Wσ wil∞ bσ differen⌠ anΣ wisΦá yo⌡á ß ì
happ∙á holida∙ anΣ ma∙ you≥ BE┼ powe≥ suppl∙ no⌠ fai∞ durinτ thσ festì
ivσ seasoε í Iε keepinτ witΦ thσ spiri⌠ oµ thing≤ wσ wil∞ bσ supplyinτ ì
part∙á pie≤ and/o≥ minΘ ho⌠ dog≤ a⌠ thσ DECEMBE╥á meeting«á Let'≤á al∞ ì
participatσá durinτ ou≥ Christma≤ meetinτ anΣ sharσ usefu∞ informatioε ì
anΣ gooΣ yarn≤ witΦ eacΦ other.
GOO─á NEWSé thσ BULLETI╬ BOAR─ ha≤ beeε u≡ no≈ fo≥ ove≥ ß weeδ anΣ witΦ ì
thσá numbe≥ oµ call≤ received¼á i⌠ appear≤ tha⌠ thσ worΣ i≤á spreadinτ ì
ver∙á quickly«á RicharΣá ha≤ writteε ß length∙ articlσá regardinτá thσ ì
acces≤ anΣ ho≈ t∩ utilizσ thσ BULLETI╬ BOARD¼á thσ res⌠ i≤ u≡ t∩ yo⌡ í ì
Iµá yo⌡á d∩ no⌠ havσ ß modeφ (yo⌡ d∩ no⌠ requirσ CP/═ t∩ gaiεá access⌐ ì
yo⌡ caε hirσ thσ club'≤ modeφ froφ JOH╬ BUXTON«á Wσ wil∞ havσá detail≤ ì
regardinτá ß  ╝ $10░ modeφ ki⌠ a⌠ thσ DECEMBE╥ meeting;á iµ yo⌡ arσ aε ì
interstatσ membe≥ contac⌠ mσ righ⌠ away.
BA─á NEWSéá iε thσ A.T«á columε wσ havσ reproduceΣá OweεáHILL╙'á lette≥ ì
outlininτá thσ ne≈ stancσ A.T«á arσ takinτ witΦ use≥ group≤á regardinτ ì
S/╫ discounts« Wσ onl∙ ge⌠ 10Ñ nowí ╔ aφ surσ i⌠ wil∞ bσ ß ho⌠ iteφ oε ì
thσá nex⌠á committeσ meetinτ agendß (a≤ wσ wil∞ bσ full∙á INCORPORATE─ ì
theεá !!)«á Wσá wil∞ le⌠ yo⌡ kno≈ thσ outcomσá iεá JANUARY«á WitΦá thσ ì
increasinτá amoun⌠ oµ S/╫ anΣ article≤ receiveΣ fo≥ publicatioε iε thσ ì
CATCHER¼á i⌠ i≤ gettinτ harde≥ t∩ finΣ thσ timσ t∩ retypσ thσ  prograφ ì
listing≤á correctly«á Thσ probleφ i≤ eveε worse wheε wσ tr∙ t∩ reaΣá ß ì
singlσá 1200bauΣ cop∙ contribution¼á a≤  wσ havσ threσ differen⌠á tapσ ì
recorders¼á witΦ ╕ differen⌠ volumσ settings«á   ╔ als∩ usσ onσ oµ tw∩ ì
cassettσ I/╨ mod≤ t∩ thσ BEE« Wha⌠ ╔ aφ tryinτ t∩ sa∙ i≤ iµ i⌠ take≤ ▒ ì
minutσá t∩ ge⌠ ß baΣ loaΣ i⌠ caε takσ ove≥ 45minute≤ t∩ g∩ througΦ al∞ ì
thσá combination≤ t∩ reaΣ ß singlσ prograφ ofµ ß tapσá (anΣá sometime≤ ì
stil∞ fail)«á WitΦ ove≥ 1╡ tape≤ ß montΦ anΣ ofteε ove≥ threσ program≤ ì
etπá pe≥á tapσá yo⌡ caε star⌠ t∩ realizσ thσ timσ pe≥ montΦá spen⌠á iε ì
gettinτ you≥ contributioε int∩ thσ CATCHER« Thσ solutioε i≤ fo≥ yo⌡ t∩ ì
senΣ iε you≥ contributioε oε cassettσ witΦ a⌠ leas⌠ onσ 30░ bauΣ copy« ì
Thi≤ wil∞ als∩ allo≈ u≤ t∩ ge⌠ thσ cassettσ bacδ t∩ yo⌡ righ⌠ away¼ a≤ ì
╔á d∩ no⌠ havσ t∩ senΣ thσ unreadablσ tape≤ t∩ othe≥ peoplσ iε ßá vaiε ì
attemp⌠ t∩ reaΣ saiΣ tape«á Thσ othe≥ optioε i≤ t∩ senΣ you≥á program≤ ì
etπ iε oε diskettσ o≥ usσ thσ BULLETI╬ BOARD.

     WHAT'╙ O╬ NEX╘ MEETINGé
     GENERA╠ DISCUSSIO╬ SESSIO╬              07:3░     MAI╬ HALL
     THE AUSTRALIAN BEGINNING RCP/M DEMO     08:15     room #20
     OUR BULLENTIN BOARD DEMONSTRATION       09:00     room #20
     CLASS "HOW TO UTILIZE BDOS CALLS"       08:30     room #18
     BAZAAR                                  08:00     room #22
     GET THE HIGHEST SCORE GAME (KING TUT)   08:00     room #22
     PAPER LIBRARY                           08:00     room #24
     TAPE LIBRARY                            08:00     room #19
NOT┼á TH┼á NE╫á STAR╘ TIM┼ 07:30é Therσ wil∞ stil∞á bσá peoplσá a⌠á thσ ì
meetinτ who can assis⌠ yo⌡ froφ 06:3░ oε wards¼á anΣ i⌠ caε bσ useΣ b∙ ì
yo⌡ t∩ bea⌠ thσ rush(anΣ hel≡ u≤ se⌠ thing≤ up).
Unfortunatel∙á wσá d∩ no⌠ havσ an∙ morσ room≤ no≥ timσ t∩ achievσá an∙ ì
othe≥á activitie≤ oε thσ night«á WitΦ surve∙ result≤ startinτ t∩á comσ ì
in¼á severa∞á havσ saiΣ therσ arσ to∩ man∙ paralle∞ activitie≤ oεá thσ ì
meetinτ night¼ hencσ wσ havσ trieΣ t∩ kee≡ thσ one≤ wσ havσ t∩ ß smal∞ ì
numbe≥ anΣ allo≈ overlap≤ iε star⌠ time≤ s∩ tha⌠ yo⌡ caε attenΣ al∞ oµ ì
them«á CoulΣá al∞á interesteΣá "Cóá grou≡ member≤á senΣá mσá ßá lette≥ ì
outlininτá wha⌠ experiencσ yo⌡ havσ plu≤ wha⌠ branΣ "Có yo⌡ arσá usinτ ì
o≥á woulΣá likσ t∩ purchasσ (╔ aφ huntinτ u≡ price≤ now⌐ a≤á wσá migh⌠ ìèhavσá t∩á mee⌠ oε thσ 4tΦ WEDNESDA┘ MEETIN╟ pleasσ senΣ mσá you≥á comì
ments« Havσ ß lo⌠ t∩ sa∙ plu≤ man∙ article≤ t∩ publish¼ s∩ wil∞ tr∙ t∩ ì
ge⌠ thσ JANUAR┘ CATCHE╥ t∩ yo⌡  beforσ Christmas.
                                             A> GRANT

A.T.COLUMN----A.T.COLUMN----A.T.COLUMN----A.T.COLUMN---A.T.COLUMN
                                             GRAN╘ FORES╘   8748748
Wσá havσá inviteΣ  A.T«á t∩ contributσ informatioε t∩ thi≤ columεá reì
gardinτá an∙á newl∙ releaseΣ H/╫ o≥ S/╫ plu≤ an∙á genera∞á informatioε ì
the∙ woulΣ likσ t∩ sharσ witΦ us«á Wσ no≈ wai⌠ fo≥ thei≥ input« Iµ yo⌡ ì
havσ an∙ ne≈ informatioε regardinτ A.T« senΣ i⌠ t∩ u≤ fo≥ inclusioε iε ì
thi≤á column«á I⌠ i≤ no⌠ ou≥ intentioε t∩ usσ thi≤ columε a≤á ßá gripσ ì
platform¼á bu⌠á wσá woulΣ bσ glaΣ t∩ hea≥ froφ anyonσ wh∩ ha≤ haΣá an∙ ì
troublσá witΦá A.T«á s∩ tha⌠ wσ coulΣ addres≤ you≥á concern≤á t∩á A.T« ì
directly¼ viß thσ club.
Onσ stor∙ tha⌠ wσ shoulΣ al∞ kee≡ iε ou≥ minΣ i≤ thσ MYTEC╚ saga« The∙ ì
essentiall∙á droppeΣ thei≥ S/╫ linσ througΦ los≤ oµ sale≤ duσ t∩ BOOTì
LEGGIN╟ oµ thei≥ S/W«á Hencσ thσ peoplσ tha⌠ no≈ havσ MYTEC╚ S/╫á tha⌠ ì
wa≤ no⌠ purchaseΣ froφ theφ o≥ viß ß dealer(MBU╟ AUS╘ wa≤ one⌐  arσ iε ì
thσ samσ boa⌠ a≤ thσ lega∞ owners¼á tha⌠ is¼á n∩ onσ caε sharσ an∙ ne≈ ì
MYTEC╚ programs---wσ al∞ mis≤ out«á Wσ mus⌠ encouragσ botΦ A.╘ anΣ an∙ ì
ne≈ S/╫ HOUSE╙ tha⌠ wan⌠ t∩ producσ S/╫ ¼ tha⌠ reasonablσ securit∙ caε ì
bσá giveε t∩ theφ fo≥ thei≥ efforts«á A⌠ thi≤ timσ MOS╘ oµá  A.T«á S/╫ ì
tape≤á caε bσ purchaseΣ froφ thσ cluΓ fo≥ $10.0░ whicΦ wσ believσ i≤ ß ì
fai≥ pricσ t∩ pa∙ fo≥ qualit∙ S/W«á Wσ hopσ t∩ revie≈ al∞ A.T«á S/╫ iε ì
thσá cominτ month≤ anΣ givσ i⌠ ß S/╫ ratinτ s∩ tha⌠ yo⌡á caεá purchasσ ì
thσ excellen⌠ S/╫ firs⌠ anΣ theε thσ averagσ t∩ poo≥ S/╫ last«á Rememì
be≥á wha⌠á i≤ poo≥ S/╫ t∩ onσ membe≥ ma∙ bσ EXCELLEN╘ S/╫áfo≥áanother¼ ì
hencσ thσ bes⌠ wa∙ t∩ ascertaiε thσ qualit∙ i≤ b∙ test-drivinτ thσ S/╫ ì
iε thσ BAZAA╥ beforσ yo⌡ purchasσ it.
NE╫ A.T« INFORMATIO╬ I╬ PAPE╥ LIBRARY
MICROBE┼ 128╦ DIS╦ MANUA╠ plu≤ 1╡ page≤ oµ amendments
STARINDE╪ REFERENC┼ MANUA╠ 1.0
WORDSTA╥ OPTION╙ COMMAN─ CAR─ (tw∩ types)
é ENGINEERIN╟ NOTE╙ AN─ CHANGE╙ 
WitΦ thσ SERIE╙ II╔ Microbeσ therσ i≤ ß ne≈ versioε oµ TELCOM¼ thi≤ i≤ ì
TELCO═ III.
NOTE║ TELCO═ II╔ doe≤ no⌠ replacσ TELCO═ 1.2
TELCO═á II╔ wil∞ no⌠ worδ iε an∙ MICROBE┼ othe≥ tha⌠ ß SERIE╙ II╔ 832╕ ì
corσ board«á TELCO═ 1.▓ iε ß 273▓ EPRO═ wil∞ als∩ worδ iε ß 832╕á corσ ì
board.
Thσá differenceá betweeε  TELCO═ 1.▓ anΣ │ is tha⌠  TELCO═á II╔á EPRO═ ì
need≤ fou≥ morσ legs«á Thσ prograφ i≤  8╦ insteaΣ oµ 4K« TELCO═ II╔ a≤ ì
featured is onl∙áavailablσ iε thσ SERIE╙ II╔ MICROBE┼ o≥ aε upgradσát∩ ì
thσ SERIE╙ III.
         SPECIA╠ FEATURE╙ O╞ TELCO═ III
<DEL╛ OFF/O╬        Turε thσ deletσ functioε ke∙ on/off
<FORMAT╛ CRC/CKS═   Changσ forma⌠ check
<MON╛               Machinσ codσ MONITO╥ witΦ extrß feature≤ e.g.
                    ╦ 23┤     Convert≤ decima∞ t∩ hex
                    ╚ E┴      Convert≤ he° t∩ decimal
                    ╓         Ful∞ screeε display
                    plu≤ others...
<TEST╛á             Selµá tes⌠á  founΣá iεá earlie≥á  MICROBEE'╙áá bu⌠                                                 ì
                    witΦ changes« e.g« RA═ error≤ addres≤ given.
<CAL╛               Calculato≥ emulator«

A.T.COLUMN----A.T.COLUMN----A.T.COLUMN----A.T.COLUMN---A.T.COLUMN
è          THE MICROBUG REMOTE BULLETIN BOARD SERVICE (MRBBS)
                                   Richard Collett anΣ Mikσ Thompson

Ou≥á ne≈ bulletiε boarΣ i≤ no≈ u≡ anΣ running«á An∙ membe≥ wh∩ own≤á ß ì
modeφá caεá rinτ thσ systeφ anytimσ anΣ leavσ o≥ reaΣá notices¼á leavσ ì
contribution≤á fo≥á thσ Catcher¼á ge⌠ program≤ tha⌠ havσá appeareΣá iε ì
previous Catchers, and generally have a good time communicating.

EQUIPMENT:
What you will need to connect to the MRBBS is:
a modem capable of working in 300 baud originate mode, and
a ROM microbee with networking or TELCOM, or
a disk microbee with YAM, modem7 or TELCOM, and
a telephone line.

LOGGING ON:
The procedure for logging on to the MRBBS is as follows:
Connec⌠ you≥ microbeσ t∩ thσ modem¼á anΣ switcΦ i⌠ t∩ 30░á baud¼á ful∞ ì
duplex¼á originatσá modσá (yo⌡á ma∙ no⌠ havσ switche≤á fo≥á al∞á thesσ ì
functions), and call up terminal mode in your communications program.
Dia∞á 873-573┤á anΣ wai⌠ unti∞ yo⌡ hea≥ ß carrie≥á tone«á Thi≤á shoulΣ ì
start after 1-3 rings of the phone.

Wheεá carrie≥ i≤ received¼á switcΦ you≥ modeφ t∩ thσ "modemó position¼ ì
o≥á iµ yo⌡ havσ aε acoustiπ coupler¼á placσ thσ phonσ handse⌠á iεá thσ ì
coupler¼á theεá wai⌠á onσ seconΣ beforσ pressinτá "RETURNóá once«á Yo⌡ ì
shoulΣ seσ thσ promp⌠ "HO╫ MAN┘ NULLS?ó appea≥ oε you≥ screen¼á iµ no⌠ ì
press RETURN once more and repeat slowly until the prompt appears.

No≈á pres≤ "0ó iε responsσ t∩ thσ question¼á anΣ yo⌡ wil∞ bσ askeΣ thσ ì
namσá oµ thi≤ magazine«á Thi≤ ste≡ i≤ t∩ preven⌠á non-microbeσá peoplσ ì
froφá gettinτá oε thσ systeφ fo≥ ß while«á A⌠ thσ promp⌠ "Wha⌠ i≤á thσ ì
namσ oµ MicroBug'≤ newsletter« Thσ ......« "¼ ke∙ iε "CATCHER"« Iµ yo⌡ ì
makσ ß mistake¼á pres≤ ^╒ t∩ star⌠ agaiε becausσ backspacσ i≤á counteΣ ì
as part of the password.

Next¼á th≈á systeφ ask≤ yo⌡ fo≥ thσ date«á Thi≤ mus⌠ bσ entereΣ iε thσ ì
forφ DD/MM/YY¼á ie«á 26/11/84«á Leadinτ zeroe≤ mus⌠ bσ entered¼ s∩ Ne≈ ì
Year≤á da∙á wil∞á bσá 01/01/85«á (Wσ shoulΣ havσá ßá Rea∞á timσá clocδ ì
installed before then, making this step unnecessary).

Thσá MRBB╙á no≈ ask≤ fo≥ you≥ name«á Ke∙ iε you≥ ful∞á namσá witΦá thσ ì
christiaε anΣ surname≤ separateΣ witΦ ß space¼á eg« "RicharΣ Collett"« ì
Iµá thi≤ i≤ thσ firs⌠ timσ yo⌡ havσ loggeΣ on¼á o≥ iµ yo⌡ mispel∞ you≥ ì
name¼á thσ systeφ wil∞ prin⌠ ß specia∞ welcomσ messagσ anΣ asδ yo⌡á t∩ ì
confirφ tha⌠ you≥ namσ i≤ spel⌠ correctly« Nex⌠ yo⌡ arσ askeΣ fo≥ you≥ ì
ne≈á password«á Thi≤á passworΣ i≤ onσ entereΣ no≈ b∙ yo⌡ anΣá wil∞á bσ ì
requireΣá fo≥á you≥ nex⌠ connection«á Yo⌡ ma∙ changσ you≥ passworΣá a⌠ ì
anytimσ witΦ thσ "Pó commanΣ (seσ later)«á Iµ yo⌡ havσ previousl∙ useΣ ì
thi≤ system¼ theε afte≥ correctl∙ enterinτ thσ passworΣ yo⌡ arσ passeΣ ì
straight into the bulletin board.
A complete hard copy of the new user logon procedure follows:

HOW MANY NULLS (0-9) DO YOU NEED? 0

      MicroBUG Bulletin Board
      ^^^^^^^^^^^^^^^^^^^^^^^
      PO Box 157, Nunawading 3131.
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^èEnter the name of Microbug's newsletter:  The CATCHER
RBBS 4.1 Edit 02 (JCG/FJW - 27 May 84)

NO BULLETINS
Date <DD/MM/YY>: 26/11/84
Enter your name: FRED NURK
!!WELCOME FRED NURK!!

Is the name correct? (Y/N)? YES

Enter your City, State: TOORAK, VIC
Is the name, TOORAK, VIC, correct? (Y/N)? YES

Enter new password <6 chars>:  1234
Enter the new password again:  1234

Hit CTL-S or s to Pause; any key to Resume.  Hit CTL-K or k to Abort.

        *** NEW USER HELP ***

To learn the RBBS commands, type "?" when prompted
for "Command".
To learn more about CP/M and this system:

Exit RBBS with the "C" Command (instead of "G") to enter CP/M.
Then type "HELP THIS-SYS"
Other helpful commands will be listed to try.


You are caller #109

Current Message file: PERSONAL

First Active Msg #: 3      No. of Active Msgs: 3
 Last Active Msg #: 5       Total No. of Msgs: 6
Checking the PERSONAL Messages File...No new mail for you.

Current Message file: GENERAL

First Active Msg #: 1      No. of Active Msgs: 6
 Last Active Msg #: 6       Total No. of Msgs: 6
Checking the GENERAL Messages File...No new mail for you.

Highest message number seen in this file is 0.

COMMAND: C,E,F,G,K,R,S,N,b,m,p,t,w,x (or ? for help): ?

Hit CTL-S or s to Pause; any key to Resume.  Hit CTL-K or k to Abort.

*** MicroBUG Bulletin Board ***
Major Functions supported (Capital letters on command line):

        C = Exit to CP/M        E = Enter message
        F = List subject files  G = Goodbye (disconnect)
        K = Kill message        R = Read message
        S = Quick summary       N = Read New messages
.PAèMinor Functions supported (Small letters on command line):

        b = Retype bulletins    m = Show status of messages
        p = Change password     t = Toggle bell prompt
        w = Retype welcome      x = eXpert user mode

Two subcommands may be used with the major commands K,R & S:

+ = Lists following a message number operates on all messages
    the user is authorized pausing appropriately between them

* = Performs the same operation without pausing (for use with
    hardcopy devices

Command≤ ma∙ bσ strunτ together¼ separateΣ b∙ semicolons« For
example 'R;123' retrieves message number 123.  For forward
sequential retrieval, use '+' or '*' after message number. N is
equivalent to R;#+.

Software exchange is done under CP/M using the XYAM program
(for intelligent transfer) or the TYPE fn.ft command (simple
ASCII listing).

COMMAND: C,E,F,G,K,R,S,N,b,m,p,t,w,x (or ? for help): F

Subjects are:

< 1>: PERSONAL    < 2>: GENERAL     < 3>: HELP        < 4>: ANSWERS
< 5>: FOR-SALE    < 6>: WANTED      < 7>: COMMITTE

File number: 1

Current Message file: PERSONAL

COMMAND: C,E,F,G,K,R,S,N,b,m,p,t,w,x (or ? for help): X

COMMAND: E

To:        SYSOP
Subject:   HELP

Enter Text:

 1>: What do I do? Fred
 2>:

SELECT: s

--PERSONAL--   Message stored as #6.

COMMAND:
*********************************************************************

Notice from the previous printout a couple of points:
Fred's password was not echoed to the screen, just digits 1-9.
Goinτ int∩ eXper⌠ modσ speed≤ operatioε b∙ turninτ ofµ mos⌠ oµ thσ hel≡ ì
messages. Use this mode once you know your way around the system.
A⌠á mos⌠á prompts¼á ß repl∙ oµ "?ó wil∞ givσ yo⌡ hel≡ oε wha⌠ yo⌡á arσ ì
currently doing.èFilσá u≡ anΣ downloadinτ mus⌠ bσ donσ froφ CP/M¼á whicΦ i≤ entereΣá b∙ ì
typinτ "Có a⌠ thσ "Commandó prompt« Morσ hel≡ i≤ availablσ oε thσ RBB╙ ì
by typing "HELP RBBS" under CP/M.
Thσá curren⌠ messagσ filσ i≤ selecteΣ witΦ thσ "Fóá command«á Persona∞ ì
message≤ caε onl∙ bσ seeε b∙ thσ sende≥ anΣ receiver. Genera∞ message≤ ì
caεá bσá reaΣá b∙ anyone«á Thσ committeσ areß i≤á onl∙á accessablσá b∙ ì
committee members.
Messagσ entr∙ modσ i≤ entereΣ witΦ thσ "Eó command«á Iµ yo⌡ responΣ t∩ ì
one of the questions with "?" then the following message is printed:

**********************************************************************
To enter a message, simply type your text until you hear a bell
and/or cannot enter more characters on the present line.  You may
then erase any partial word typed with ^W and a BS (^H), or a
series of BSs.  At any point, before hitting <cr>, you can freely
use the editing commands to move around in the line.  Type a ^V
at any time to see what the available editing commands are.

Inpu⌠ i≤ terminateΣ b∙ ß blanδ line« Pres≤ jus⌠ RETUR╬ a⌠ thσ
star⌠ oµ a line to terminate input. Once you have done that, you
will be at the SELECT prompt.

You then have several choices. One of them lets you go back and
edit individual lines with the same editing commands used to
input the original line.  In addition, you may delete that line
by erasing its contents with ^X (or ^U), and then typing a period
followed by a <cr>.  You may also insert a new line by typing a
minus sign and the line number.

Once back at the SELECT prompt, you can optionally send the same,
or modified version of the current message to more than one
person.  Since there is no "Cc:" header field, what you do
instead is Store the first copy with the R command, and then use
the Header Edit command to change the "To:" field, and either
Store that with the Store command and return to the main COMMAND
prompt, or use the R command again, as often as you wish.

Ful∞á linσ editinτ i≤ availablσ unde≥ thσ RBBS¼
The following editing commands are available:

^B  - Backward Character                          (move cursor left)
^F  - Forward Character                           (move cursor right)
^A  - Go to Beginning of Line
^E  - Got to End of Line
^K  - Kill to End of Line

^W  - Kill Word Backward
^Y  - Yank Kill Buffer

^R  - Redisplay Line on a New Line
^L  - Redisplay Line Inplace

^U  - Cancel Line and Reprompt on New Line
^X  - Cancel Line Inplace

^H  - Delete Previous Character Inplace
DEL - Delete Previous Character
^D  - Delete Current Character
.PAè*********************************************************************

GETTING INTO CP/M:
A⌠á thσ "Commandó prompt¼á pres≤ "Có t∩ ente≥ CP/M«á Iµ yo⌡ arσ no⌠ iε ì
exper⌠á modσ yo⌡ wil∞ bσ askeΣ iµ yo⌡ wan⌠ t∩ leavσ ß commen⌠ fo≥á thσ ì
SYSO╨ (systeφ operator)«á Aε answe≥ oµ ye≤ wil∞ pu⌠ yo⌡ straigh⌠á int∩ ì
the enter message mode, else you will be passed to CP/M.
RUNNING CP/M:
Thσ bulletiε boarΣ i≤ runninτ ß highl∙ modifieΣ versioε oµ CP/═ calleΣ ì
ZCPR3. The major differences are:

Drive/use≥ area≤ eacΦ havσ thei≥ owε name« A0║ oε ou≥ systeφ i≤ calleΣ ì
CPM║á anΣ A1║ i≤ calleΣ ARTICLES:« Thσ onl∙ wa∙ t∩ loτ int∩ ß ne≈ areß ì
i≤ t∩ typσ thσ director∙ namσ witΦ ß colon¼á ie«á CPM║á t∩ ge⌠ bacδ t∩ ì
A0:«á Thσá lis⌠ oµ al∞ curren⌠ directorie≤ caε bσ seeε b∙ typinτ "PWDó ì
(Print Working Directories) in CP/M.

Therσ arσ n∩ command≤ buil⌠ int∩ thσ systeφ (ERA¼á RE╬ etc.)« Thσ onl∙ ì
command≤ yo⌡ caε usσ arσ .CO═ file≤ appearinτ iε thσ CPM║ directory.
(eg«á DIR.CO═á TYPE.CO═ )«á Thσ followinτ examplσ illustrate≤á logginτ ì
int∩á director∙á CPM:¼á doinτá ß director∙ oµ thσá file≤á there¼á theε ì
logging off the system.
*********************************************************************

ARTICLES>cpm:
CPM>dir

BYE     .COM  2 | COMMANDS.HLP  4 | DIR     .COM  2 | DREGS   .FUN  6
ECHO    .COM  2 | FIND    .COM  2 | HELP    .COM  4 | ONLINE  .COM  2
ONLINE  .DAT  2 | PHONE   .COM  2 | PWD     .COM  2 | QUICK   .HLP  2
RBBS    .COM 32 | RBBS    .HLP  6 | SOFTWARE.HLP 12 | THIS-SYS.HLP  8
TIME    .COM  2 | TYPE    .COM 14 | WHEEL   .COM  2 | XYAM    .COM 26
            A0:CPM --    20 Files Using   134K (  746K Left)
CPM>bye
Good-bye, call again...
*********************************************************************

DISCONNECTING (LOGGING OFF):
Pleasσá don'⌠á jus⌠ hanτ u≡ wheε yo⌡ havσ finishedíá Thσá systeφá wil∞ ì
noticσ tha⌠ yo⌡ havσ lef⌠ anΣ hanτ u≡ eventuall∙ (wσ wen⌠ t∩ ß lo⌠á oµ ì
troublσá t∩á ensurσ this¼á eveε iµ thσ machinσ crashes)¼á bu⌠ thi≤á i≤ ì
untidy¼á anΣá peoplσá wh∩ persis⌠ iε doinτ thi≤ wil∞ bσá giveεá "TWITó ì
statu≤ (thi≤ essentiall∙ mean≤ n∩ acces≤ t∩ thσ system)«á Wheε yo⌡ arσ ì
insidσá thσ messagσ sub-system¼á usσ thσ "Bó commanΣ t∩ exi⌠á cleanly« ì
Anothe≥ smal∞ matte≥ oµ courtes∙ i≤ ho≈ lonτ yo⌡ spenΣ oε thσá system« ì
Fo≥á thσá timσ beinτ wσ believσ halµ aε hou≥ i≤ ß reasonablσá timσá t∩ ì
looδá around«á Wheεá thσá rea∞ timσ clocδ arrive≤ wσ wil∞ bσá ablσá t∩ ì
enforcσ ß timσ limit«á Iµ yo⌡ fal∞ aslee≡ iε fron⌠ oµ thσ keyboarΣá o≥ ì
wande≥á away¼á thσá MRBB╙á wil∞á thro≈á yo⌡ ofµá afte≥á ╡á minute≤á oµ ì
inactivity¼á anΣ yo⌡ wil∞ ge⌠ ß nast∙ messagσ froφ thσ syso≡ nex⌠ timσ ì
yo⌡ loτ oε (i⌠ i≤ ver∙ baΣ forφ t∩ kee≡ thσ MRBB╙ engageΣ wheε yo⌡ arσ ì
not using it).
FINAL NOTE:
(fo≥á thσá midnigh⌠ gremlins)«á Thσ microbeσ runninτ thσ MRBB╙á ha≤á ß ì
specia∞á ke∙ labelleΣ "Hanτ u≡ oε twit"«á Biτ brothe≥ i≤ watchinτá anΣ ì
caε trea⌠ undesirablσ caller≤ thσ wa∙ the∙ deserve.


è                       A_LETTER_FROM_OWEN_HILL

12th November, 1984.

Dear User Group Member,

Thi≤ i≤ t∩ advisσ yo⌡ tha⌠ thσ ne≈ preferentia∞ rate≤ t∩ bσ enjoyeΣ b∙ ì
use≥á grou≡ member≤ reflec⌠ thσ followinτ discount≤ froφ ou≥ recommen-ì
ded price.
               Hardware    10%
               Software    10%
               Upgrades     5%

Alternatively¼á yo⌡ ma∙ wisΦ t∩ contac⌠ onσ oµ ou≥ authoriseΣ dealers¼ ì
where you may be able to negotiate further discount.

Thi≤á changσ iε approacΦ ha≤ becomσ necessar∙ becausσ oµ thσá substan-ì
tia∞á growtΦá iε thσ volumσ oµ Use≥ Grou≡ orders«á  Thσá Microbeσá ha≤ ì
gaineΣ thσ reputatioε oµ providinτ thσ bes⌠ performancσ » pricσá valuσ ì
iε Australia«á  Thi≤ reputatioε ha≤ beeε won¼á iε n∩ smal∞ way¼ b∙ thσ ì
tremendou≤ suppor⌠ i⌠ ha≤ enjoyeΣ froφ usσ group≤ throughou⌠ Australiß ì
- indeed, the World!

A⌠á ApplieΣ Technology¼á wσ wil∞ bσ puttinτ emphasi≤ oε othe≥ way≤á iε ì
whicΦ wσ caε suppor⌠ Use≥ Group≤ iε thσ future«á  Ou≥ emphasi≤ wil∞ bσ ì
oε COMMUNICATIONS«  Wσ introduceΣ "Onlineó earlie≥ thi≤ yea≥ a≤ aε aiΣ ì
t∩á bette≥ communication≤ witΦ 'beσ owners«á  Jus⌠ thinδ oµ thσ advan- ì
tages of being truely "online" to our latest support information.

Fo≥á example¼á yo⌡ ma∙ alread∙ bσ awarσ oµ thσ considerablσ effor⌠á wσ ì
arσ puttinτ int∩ developinτ aε Australia-widσ cocmmunication≤á networδ ì
(thσá "Beeline"⌐ fo≥ you≥ use«á  Thi≤ wil∞ allo≈ yo⌡ t∩ acces≤ ßá Nat-ì
iona∞á Use≥á Grou≡ bulletiε boarΣ t∩ botΦ registe≥ anΣ reaΣá messages«  ì
Needles≤á t∩á say¼á beinτ thσ membe≥ oµ ß recogniseΣ Use≥á Grou≡á wil∞ ì
entitle you to preferential rates.

PRODUCT INFORMATION

Thσá ne≈ "Compute≥ iε ß Bookó 64δ 3.5ó systeφ wil∞ bσá availablσá froφ ì
November 5 ( Volume 1 ).

Thσ "ExtendeΣ documentatioε manual"¼ whicΦ wil∞ bσ availablσ froφ mid-ì
November¼á contain≤ ß detaileΣ CP/M-8░ tutorial«á  Thσ Wordbee¼ Telcoφ ì
anΣ BASI├ documentatioε ha≤ beeε substantiall∙ rewritten¼á anΣ i≤ als∩ ì
included in the manual.

Thi≤ manua∞ come≤ iε ß binde≥ anΣ sleeve¼ whicΦ matche≤ thσ disδ drivσ ì
module¼á anΣá i≤á availablσá a⌠ R.R.P«á $49.95«á  Wσ havσá takeεá thi≤ ì
approacΦ t∩ detaileΣ documentatioε s∩ tha⌠ advanceΣ user≤ d∩ no⌠á havσ ì
to pay for unwanted manuals as part of the packaged price.

Wσ wil∞ bσ ablσ t∩ takσ upgradσ order≤ froφ Decembe≥ 3¼á a⌠ whicΦ timσ ì
thσ seconΣ drivσ ¿ Volumσ I╔ ⌐ wil∞ als∩ becomσ available«  Thσ retai∞ ì
upgradσá picσ froφ botΦ existinτ 16δ anΣ 32δ machine≤ t∩ thσ Volumσá ╔ ì
configuration is $795 ( less user group membership discount. )

Wσ areno≈ ablσ t∩ accep⌠ 128δ upgradσ request≤ again¼á bu⌠ pleasσ notσ ì
tha⌠á singlσá drivσ configuration≤ wil∞ onl∙ bσ availablσá t∩á school≤ ì
from now on.è
CUSTOMER LIAISON.

Chri≤ Nicholls¼á previousl∙ ou≥ Nationa∞ Retai∞ Manager¼ ha≤ no≈ takeε ì
oε thσ ne≈ anΣ demandinτ functioε oµ Custome≥ Liaisoε Officer«á  Whilσ ì
yo⌡á shoulΣá contac⌠ Katσ Ridge≤ oε al∞ matter≤á regardinτá purchases¼ ì
Chri≤á i≤á therσ t∩ assis⌠ yo⌡ oε an∙ querie≤ yo⌡ ma∙ havσ oµá ßá morσ ì
genera∞ nature«  Iµ hσ doesn'⌠ kno≈ thσ answer¼ he'l∞ finΣ ou⌠ anΣ ge⌠ ì
back to you very quickly.

Iε closing¼ wσ arσ confiden⌠ tha⌠ thσ abovσ arrangement≤ wil∞ continuσ ì
t∩á strengtheε thσ bonΣ betweeε u≤ anΣ tha⌠ yo⌡ wil∞ seσ eve≥ increas-ì
ing advantages in your membership of a Microbee user group.



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


                MOR┼_O╬_WORD-BE┼_PRINTIN╟_ENHANCEMENTS
                                                  Alaε Morris

Coliε Cusden'≤ systeφ oµ changinτ font≤ iε mid-linσ (Catcher¼á Septemì
be≥á 84⌐ won'⌠ worδ oε printer≤ likσ thσ Microbee/Admatσ whicΦ d∩á no⌠ ì
suppor⌠ reversσ linσ feed«  Here'≤ ß ver∙ eas∙ methoΣ whereb∙ temporaì
r∙á contro∞á codσá symbol≤á caε bσ typeΣ directl∙ int∩á thσá filσá anΣ ì
changeΣá int∩á thσá rea∞ code≤ al∞ a⌠ oncσ witΦ onσ cal∞á t∩á ßá shor⌠ ì
machinσ languagσ routinσ loadeΣ iε froφ tapσ o≥ disk.

WordBeσá Ve≥ 1.▓ alread∙ support≤ underlinσ anΣá double-strike«á  Thi≤ ì
simplσá routinσ wil∞ adΣ thσ abilit∙ t∩ changσ t∩ anΣ froφá italic≤á » ì
emphasizeΣá » compresseΣ » doublσ widtΦ character≤ iεá mid-line«á  Thσ ì
routinσá als∩ work≤ fo≥ subscript¼á bu⌠ no⌠ fo≥ superscript«á  Thi≤ i≤ ì
becausσ thσ printe≥ codσ fo≥ superscrip⌠ include≤ ß NU╠ (chr$(0⌐ o≥ 0░ ì
Hex)¼á anΣá WordBeσ regard≤ ß NU╠ a≤ it≤ EnΣ oµ Filσ marke≥á anΣá wil∞ ì
ignorσ everythinτ froφ tha⌠ poin⌠ on.
(HELPíá  ╔á woulΣá likσá t∩ usσ superscrip⌠ character≤ iε somσá oµá m∙ ì
WordBeσ files¼á s∩ ╔ woulΣ bσ pleaseΣ t∩ hea≥ froφ anybod∙ wh∩ caε ge⌠ ì
arounΣá tha⌠á probleφ fo≥ aε Admatσ DP-80«á  Bu⌠ ╔á don'⌠á thinδá it'≤ ì
possible.)

Thσá ASCI╔ character≤ "{"¼á "}"¼á "<"¼á ">ó anΣ "\ó arσ thσá temporar∙ ì
symbols«á  Thσá firs⌠á fou≥ arσ useΣ t∩ represen⌠ single-bytσá contro∞ ì
codes║ "{ó ╜ Double-WidtΦ Oε (14)╗  "}ó ╜ Double-WidtΦ Ofµ (20)╗ "<ó ╜ ì
CompresseΣ Oε (15)╗á ">ó ╜ CompresseΣ Ofµ (18)«  "\ó represent≤ Escapσ ì
(27)¼á anΣá i≤ useΣ togethe≥ witΦ thσ appropriatσá ASCI╔á character(s⌐ ì
correspondinτá t∩ thσ requireΣ Escapσ Code«á   Italic≤ Oε i≤ "\4óá anΣ ì
Ofµ i≤ "\5"╗á EmphasizeΣ Oε i≤ "\Eó anΣ Ofµ i≤ "\F"╗á Double-Strikσ Oε ì
i≤á "\G"anΣá Ofµ i≤ "\H"╗á Subscrip⌠ Oε i≤ "\S1ó (thσ "1ó caεá bσá an∙ ì
characte≥á yo⌡ like)«á An∙ othe≥ Escapσ Code≤ caε bσ useΣ iε thσá samσ ì
way¼á a≤á lonτ a≤ the∙ don'⌠ requirσ ß NUL«á (Underlinσ need≤ ß NU╠ t∩ ì
turε off¼á s∩ we'rσ stucδ witΦ thσ .U╠ do⌠ commanΣ fo≥ that╗á  bu⌠á wσ ì
caε havσ botΦ underlinσ anΣ double-strikσ iε thσ samσ paragraph.)

I'vσá pu⌠á thσá machinσ codσ routinσ a⌠ 40░ Hex«á  Iµ yo⌡á don'⌠á havσ ì
Editor/Assemble≥ fitted¼á yo⌡ caε ente≥ thσ He° codσ directly«á G∩á t∩ ì
thσá WordBeσá Monito≥ anΣ ente≥ ┴ 40░ anΣ theε typσ iεá thσá followinτ ì
code║
è2▒ 0░ 0╣ 2│ 7┼ F┼ 0░ C╕ F┼ 7┬ 2╕ 1├ F┼ 7─ 2╕ 1C
F┼ 3├ 2╕ 0├ F┼ 3┼ 2╕ 0├ F┼ 5├ 2░ E╖ 3╢ 1┬ 1╕ E3
3╢ 0╞ 1╕ D╞ 3╢ 1▓ 1╕ D┬ 3╢ 0┼ 1╕ D╖ 3╢ 1┤ 1╕ D3

SAV┼á thi≤á (e.g«á ─ "ENHANSó ═ 040░ 042F⌐ anΣ LOA─ i⌠ iε througΦá thσ ì
Monito≥á a≤ required«á  Typσ u≡ you≥ tex⌠ (e.g«á "Thi≤ wil∞á bσá <comì
pressed╛á anΣ thi≤ wil∞ bσ {double-width² anΣ thi≤ wil∞ bσ \4italics\╡ ì
anΣ thi≤ wil∞ bσ \Eemphasized\╞ anΣ thi≤ wil∞ bσ \Gdouble-strike\H."

Theε g∩ t∩ thσ Monito≥ anΣ executσ thσ codσ b∙ enterinτ ╟á 400«á   Reì
turεá t∩á thσ filσ b∙ enterinτ X¼á anΣ yo⌡ wil∞ seσ tha⌠á thσá variou≤ ì
temporar∙á symbol≤á throughou⌠ thσ entirσ filσ havσ iε onσ fel∞á swoo≡ ì
beeε changeΣ int∩ graphic≤ character≤ -- thσ rea∞ contro∞á codes«á  Iµ ì
yo⌡ actuall∙ wan⌠ an∙ oµ thσ ASCI╔ character≤ "{¼á }¼ <¼ >¼ \ó iε you≥ ì
tex⌠á you'l∞ havσ t∩ inser⌠ o≥ replacσ theφ now¼á afte≥ executinτá thσ ì
routine«

Yo⌡ caε combinσ thσ codes║á  e.g« t∩ turε OF╞ subscrip⌠ character≤ yo⌡ ì
neeΣá t∩ ente≥ "\T\H"╗á anΣ "<{\G\4ó give≤á compressed¼á double-width¼ ì
double-strikσ italics.

Therσ arσ ß fe≈ point≤ t∩ watch«á  CompresseΣ anΣ double-widtΦ characì
ter≤ tenΣ t∩ upse⌠ WordBee'≤ linσ lengtΦ calculations«á T∩ somσ exten⌠ ì
s∩á d∩á thσá contro∞ code≤ themselve≤ becausσ (unlikσá thσá underline» ì
double-strikσá character≤á useΣ witΦ thσ .U╠ do⌠á command¼á whicΦá arσ ì
printeΣá a≤á spaces⌐ the∙ arσ no⌠ printeΣ a⌠ al∞ (tha⌠á goe≤á fo≥á thσ ì
ASCI╔á character≤ followinτ ESCAP┼ a≤ well⌐ bu⌠ the∙ arσ stil∞ counteΣ ì
a≤ par⌠ oµ thσ line«á There'≤ ß furthe≥ probleφ witΦ double-width¼á iε ì
tha⌠á it'≤ automaticall∙ cancelleΣ a⌠ thσ enΣ oµá ßá line«á EmphasizeΣ ì
modσá can'⌠ mi° witΦ subscrip⌠ o≥ compressed«á Yo⌡ caε underlinσá mos⌠ ì
fonts¼ bu⌠ no⌠ double-strikσ (no⌠ satisfactorily¼ anyway.)

Here'≤ thσ Assemble≥ versioε oµ thσ routine:

ADD╥   COD┼   LIN┼   LABE╠  MNE═    OPERAND
040░          0010░         OR╟   400╚      ;o≥ wherever.
0400 210009   00110         LD    HL,0900H  ;start of Wordbee file.
0403 23       00120 NEXT    INC   HL        ;look at next byte.
0404 7E       00130         LD    A,(HL)
0405 FE00     00140         CP    0         ;if it's the E-O-File,
0407 C8       00150         RET   Z         ;then we're finished.
0408 FE7B     00160         CP    7BH       ;else if it's "{",
040A 2814     00170         JR    Z,DUBLON  ;then go DoUBLewidth ON.
040C FE7D     00180         CP    7DH       ;else if it's "}",
040E 2814     00190         JR    Z,DUBLOF  ;then goto DoUBLe
                                                  width OFf.
0410 FE3C     00200         CP    3CH       ;else if it's "<",
0412 2814     00210         JR    Z,COMPON  ;then goto COMPressed ON
0414 FE3E     00220         CP    3EH       ;else if it's ">",
0416 2814     00230         JR    Z,COMPOF  ;then goto COMPressed OFf
0418 FE5C     00240         CP    5CH       ;else is it "\"?
041A 20E7     00250         JR    NZ,NEXT   ;if NOT, move up the file
041C 361B     00260         LD    (HL),1BH  ;else change to ESC(27)
041E 18E3     00270         JR    NEXT      ;& then move up the file

              00280 ;SINGLE BYTE CONTROL CODES.

0420 360E     00290 DUBLON  LD    (HL),0EH  ;change it to 14 decimal,
0422 18DF     00300         JR    NEXT      ;and move up the file.è0424 3614     00310 DUBLOF  LD    (HL),14H  ;20 decimal
0426 18DB     00320         JR    NEXT
0428 360F     00330 COMPON  LD    (HL),0FH  ;15 decimal
042A 18D7     00340         JR    NEXT
042C 3612     00350 COMPOF  LD    (HL),12H  ;18 decimal
042E 18D3     00360         JR    NEXT
0000          00370         END

00000 Total errors

COMPOF  042C    COMPON  0428    DUBLOF  0424    DUBLON  0420
NEXT    0403


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

                     PLOTTING_ON_A_C.ITOH_PRINTER

; 3-D surface plotter for C. Itoh printer
; modified by Graeme Young from original by J. McCormack
;
; M/L subroutines called from basic
;
; SET UP VALUES FOR ASSEMBLER
;
BASE    EQU    2000H        ;BASE ADDRESS FOR STORAGE
ESC    EQU    27
PRINT    EQU    8045H        ;BASIC ROM ROUTINE
;
;
;
;
;
;    CLEAR ROUTINE
; This subroutine clears memory from ~address base to value
;        in the BC registers.
;    To use, call CLEAR
;
    ORG    1E00H
CLEAR    LD    HL,BASE
NEXT    LD    (HL),0        ;ZERO BITE IN MEMORY
    INC    HL        ;MOVE TO NEXT POSITION
    DEC    BC
    LD    A,B
    OR    C
    JR    NZ,NEXT        ;CLEAR UNTIL FINISHED
    RET            ;END CLEAR
;
;
;    DUMP SUBROUTINE
; This subroutine dumps memory to the printer, and sets line
; spacing. No. of rows is specified by memory location ROWS
; and columns by BC.    To use, call DUMP.
;
DUMP    LD    A,ESC        ;Select correct
    CALL    PRINT        ;line feed pitch
    LD    A,54H        ;of 16/144
    CALL    PRINT
    LD    A,31Hè    CALL    PRINT
    LD    A,36H
    CALL    PRINT
    PUSH    BC
    CALL    CALC
    LD    HL,ROWS
    LD    B,(HL)        ;put no. of rows in B
    LD    HL,BASE
LOOP    CALL    SETUP
    POP    DE        ;no. of characters to print
    PUSH    DE        ;save for next time round
OLOOP    LD    A,(HL)        ;print bite
    CALL    PRINT
    INC    HL
    DEC    DE
    LD    A,E
    OR    D
    JR    NZ,OLOOP    ;if line not finished continue
    LD    A,'+'
    CALL    PRINT
    DJNZ    LOOP        ;print next line until done
    POP    DE        ;correct stack
    RET            ;end dump
;
;    SETUP SUBROUTINE
; Sets up printer for bit image graphics.  Called by DUMP.
;
SETUP    PUSH    HL        ;save HL and BC
    PUSH    BC
    LD    B,9        ;adjusts for length of 'VALUES'
    LD    HL,SETTBL
NEXTCH    LD    A,(HL)        ;setup printer
    CALL    PRINT
    INC    HL
    DJNZ    NEXTCH
    POP    BC
    POP    HL
    RET            ;end setup
;
;    CALC SUBROUTINE
;    3d CALC for C. Itoh 8510 printer.
;    Replaces that for xyz-80 printers
;    by Jon McCormack, April 1984
;
;
CALC    PUSH    BC
        PUSH    BC
    POP    HL
    LD    DE,VALUES
PDEC    LD    IX,DECTBL
PDEC1    XOR    A
    LD    B,(IX+1)    ;load BC with decimal
    LD    C,(IX)        ;digit
    OR    A        ; clear carry
PDEC2    SBC    HL,BC        ;subtract BC
    JR    C,PDEC3
    INC    A
    JR    PDEC2
PDEC3    ADD    HL,BCè    ADD    A,30H        ;convert to ASCII
    CALL    STORE
    LD    A,C
    CP    1
    JR    Z,DONE        ;fix up stack if end
    INC    IX
    INC    IX
    JR    PDEC1
DONE    POP    BC
    RET
DECTBL    DEFW    1000
    DEFW    100
    DEFW    10
    DEFW    1
STORE    LD    (DE),A        ;put ASCII digit into
    INC    DE        ;memory
    RET

;
;    Printer output table
;
SETTBL    DEFW    0A0DH        ;<LF><CR>
    DEFB    '+'
    DEFB    ESC
    DEFB    'S'        ;set up bit image mode
VALUES    DEFW    0000H        ;and send number of characters
    DEFW    0
;
; Temp. memory location used by dump
;
;
ROWS    DEFB    1FH
;
;
    END            ;END SUBROUTINES


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


                          MULTIPLAN MOMENTS
                                                       J. Brett

        This i≤áß fascinatinτ piecσ oµ software¼á witΦ ß wholσ lo⌠á oµ ì
trick≤á ª hand∙ way≤ oµ doinτ things- ╔ ma∙ neve≥ learε al∞á oµá themí ì
Howeve≥ mos⌠ piece≤ oµ softwarσ havσ thei≥ bug≤ ª i⌠ ma∙ bσ helpfu∞ t∩ ì
someonσ iµ ╔ le⌠ yo⌡ kno≈ oµ onσ iε Multiplaε Versioε 1.0╡ a≤ supplieΣ ì
b∙ ApplieΣ Technology.

       ┴á grea⌠ wa∙ oµ learninτ t∩ usσ Multiplaε i≤ witΦ thσá inexpenì
sivσá booδ "Thσ Powe≥ oµ Multiplanó pu⌠ ou⌠ b∙ Radi∩ Shack«á It¼á too¼ ì
ha≤ it≤ problems¼ althougΦ i⌠ ha≤ aε excusσ iε tha⌠ thσ probleφ iε thσ ì
booδ i≤ causeΣ b∙ thσ probleφ iε Multiplan.

        Onσ oµ thσ grea⌠ feature≤ oµ Multiplaε i≤ thσ abilit∙ t∩á dra≈ ì
ß linσ a⌠ thσ to≡ oµ ß columε oµ figure≤ ª anothe≥ a⌠ thσ bottom¼ theε ì
i⌠á caε bσ askeΣ t∩ adΣ thσ figure≤ betweeε thσ line≤ int∩ ß tota∞á a⌠ ì
thσá bottoφ oµ thσ column«á Sa∙ thσ to≡ linσ i≤ drawε iε ro≈ ▓ anΣ thσ ì
bottoφ iε ro≈ ╢ witΦ thσ tota∞ requireΣ iε ro≈ 7« ┴ formulß caε bσ pu⌠ ìèiεá ro≈á ╖ askinτ fo≥ additioε betweeε ro≈ minu≤ ╡ (iσ ro≈á 2⌐á ªá ro≈ ì
minu≤á ▒ (iσ ro≈ 6)«á Thσ prograφ wil∞ theε adΣ thσ value≤ entereΣá iε ì
row≤á 3¼á ┤ ª 5¼á ignorinτ thσ line≤ drawε iε row≤ ▓ ª ╖ a≤ i⌠ doesn'⌠ ì
seσ thesσ a≤ values«á Thσ reasoε fo≥ doinτ thi≤ i≤ t∩ allo≈á insertioε ì
o≥á remova∞ oµ othe≥ row≤ oµ value≤ betweeε thσ drawε lines«á Thu≤á iµ ì
anothe≥á ro≈á i≤á addeΣ afte≥ ro≈ ┤ i⌠ wil∞á automaticall∙á alte≥á thσ ì
formulßá t∩á adΣ betweeε thσ lines║á ie«á thσ formulß wil∞ becomσá ro≈ ì
minu≤á ╢á t∩ ro≈ minu≤ 1«á Thu≤ witΦ thσ workshee⌠á displayeΣá oεá thσ ì
screeε thσ origina∞ formulß i≤ showε a≤ SUM(R[-5]C:R[-1]C)« Oε puttinτ ì
iε aε extrß linσ i⌠ change≤ al∞ b∙ itselµ t∩ SUM(R[-6]C:R[-1]├ )« Thi≤ ì
make≤á thσ insertioε oµ row≤ ß rea∞ pleasurσ wheε yo⌡ forgo⌠ t∩á thinδ ì
aheaΣ iε thσ firs⌠ place!

        Anothe≥á oµá it≤ othe≥ gooΣ gadget≤ i≤ thσ abilit∙ t∩á cop∙á ß ì
wholσá blocδ oµ set-u≡ ª formulaσ froφ onσ par⌠ oµ ß shee⌠ t∩á anothe≥ ì
wherσ ß simila≥ tablσ ª mathematic≤ i≤ required« Ie« thσ abovσ formulß ì
ma∙á havσ beeε firs⌠ placeΣ t∩ worδ oε say¼á "WEE╦ ONEó data«á I⌠á caε ì
theεá bσá moveΣ a≤ ß blocδ (man∙ row≤ dee≡ ª man∙ column≤ wide⌐ t∩á bσ ì
useΣ oε ß differen⌠ se⌠ oµ "WEE╦ TWOó datß arrangeΣ iε simila≥á forma⌠ ì
elsewherσ oε thσ worksheet.

       S∩ fa≥ s∩ good«á AnΣ tha⌠ i≤ thσ timσ honoureΣ phrasσ useΣ wheε ì
yo⌡á arσ abou⌠ t∩ bσ tolΣ tha⌠ thing≤ arσ no⌠ goinτ s∩ wel∞ afte≥ allí ì
S∩ i⌠ i≤ iε thi≤ case.

        Iµ thesσ grea⌠ feature≤ arσ useΣ t∩ se⌠ u≡ ß workshee⌠ ª late≥ ì
ßá ro≈ oµ datß i≤ removeΣ froφ thσ "WEE╦ ONEó se⌠ ª inserteΣ int∩á thσ ì
"WEE╦á TWOó se⌠ onσ woulΣ expec⌠ thσ formulß fo≥ "WEE╦ ONEóá tota∞á t∩ ì
adjus⌠ t∩ havinτ onσ les≤ row¼ iσ i⌠ shoulΣ becomσ SUM(R[-4]C:R[-1]C)« ì
AnΣ i⌠ doesí Isn'⌠ tha⌠ impressive!

       Similarl∙ a≤ aε extrß ro≈ ha≤ beeε inserteΣ int∩ "WEE╦ TWOó thσ ì
formulß fo≥ it≤ tota∞ shoulΣ changσ t∩ SUM(R[-6]C:R[-1]C)«á Sorry¼á i⌠ ì
to∩ change≤ t∩ SUM(R[-4]C:R[-1]C«á I⌠ seem≤ thσ prograφ refer≤ bacδ t∩ ì
wherσá thσá formulßá wa≤ firs⌠ entereΣ ª follow≤á wha⌠á happen≤á therσ ì
rathe≥ thaε keepinτ it≤ minΣ oε thσ joΓ oε hand«á I⌠ i≤ no⌠ thσ enΣ oµ ì
thσá worlΣá a≤ onσ caε ente≥ thσ formulß directl∙ int∩ thσ "WEE╦á TWOó ì
setu≡ ª al∞ wil∞ bσ well« Jus⌠ remembe≥ tha⌠ iµ i⌠ i≤ likel∙ tha⌠ row≤ ì
ma∙ bσ inserteΣ o≥ removeΣ late≥ i⌠ i≤ dangerou≤ t∩ cop∙ formulaσ froφ ì
onσ areß oµ thσ workshee⌠ t∩ another.

        I⌠ i≤ ß pit∙ tha⌠ i⌠ ha≤ thi≤ probleφ a≤ i⌠ caε bσá overlookeΣ ì
eveε b∙ expert≤ wh∩ writσ excellen⌠ books.

        "Thσá Powe≥á oµá Multiplanó ha≤ aε exercisσá showinτá wha⌠á i≤ ì
probabl∙á Multiplan'≤ mos⌠ powerfu∞ function- thσ linkinτ oµ datß froφ ì
onσá workshee⌠á t∩ another¼á s∩ tha⌠ updatinτ datß oεá onσá shee⌠á caε ì
automaticall∙á updatσ anothe≥ whicΦ ma∙ contaiε ß summar∙ oµ thσá datß ì
inpu⌠ t∩ thσ firs⌠ sheet«á Thσ exercisσ proudl∙ show≤ ho≈ thσ movemen⌠ ì
oµá ßá ro≈á oµ datß froφ "WEE╦ ONEó t∩ "WEE╦ TWOó oε thσá inpu⌠á shee⌠ ì
automaticall∙ update≤ thσ summar∙ sheet«á A≤ therσ i≤ onl∙ thσ remova∞ ì
oµá ß ro≈ oµ datß froφ onσ weeδ t∩ anothe≥ thσ total≤ iεá thσá summar∙ ì
shoulΣá bσ thσ samσ fo≥ thσ tw∩ weeks«á AnΣ thσ prin⌠ ou⌠ oµ thσá worδ ì
shee⌠á showεá iεá thσá booδ show≤ jus⌠ tha⌠ - bu⌠ onl∙á iεá thσá firs⌠ ì
columníá I⌠ look≤ a≤ iµ thσ authou≥ ha≤ founΣ thσ abovσ mentioneΣá buτ ì
anΣá correcteΣá i⌠ bu⌠ forgotteε t∩ cop∙ thσ correctioε t∩á thσá righ⌠ ì
througΦ thσ othe≥ columns«  Therσ arσ onσ o≥ tw∩ othe≥ mino≥ error≤ iε ì
thσá booδ bu⌠ ╔ aφ thσ firs⌠ t∩ acknowledgσ wha⌠ ß grea⌠ wa∙ i⌠ i≤á t∩ ì
learε t∩ usσ ß grea⌠ piecσ oµ software.è              Anothe≥ SCREE╬ DUM╨ fo≥ MX8░ look-alikes.
                                                   Bob Denton.

        Havσá yo⌡á eve≥ wanteΣ t∩ screeε prin⌠ somethinτ anΣá couldn'⌠ ì
becausσ thσ prograφ wa≤ iε eproφ o≥ yo⌡ werσ unablσ t∩ modif∙ i⌠á (to∩ ì
hard!)«á Thi≤ screeε dum≡ wil∞ help«á I⌠ i≤ fo≥ paralle∞ printer≤ onl∙ ì
anΣá doe≤á no⌠ neeΣ mod≤ o≥ hook≤ int∩ thσ prograφ yo⌡ wisΦ t∩ takσá ß ì
screeε dum≡ from.

        Simpl∙ loaΣ thi≤ prograφ unde≥ Basiπ anΣ executσ it¼á loaΣá u≡ ì
thσá prograφ yo⌡ wisΦ t∩ screeε dump¼á executσ i⌠ t∩ thσ poin⌠ oµá thσ ì
dum≡á anΣ theε makσ thσ printe≥ "Ofµ Lineó theε "Oε Lineó anΣ printinτ ì
wil∞á commencσ afte≥ ß shor⌠ delay«á Durinτ printinτ thσá screeεá wil∞ ì
freezσ anΣ wil∞ resumσ afterwards«á T∩ sto≡ printinτ early¼á pres≤ anΣ ì
holΣ eithe≥ Shif⌠ ke∙ unti∞ printinτ ceases.

        Thi≤á prograφá ha≤ ß blanδ linσ skippinτá capability«á A⌠á thσ ì
star⌠á oµ eacΦ linσ i⌠ look≤ aheaΣ t∩ thσ enΣ oµ thσ linσ anΣ iµ i⌠ i≤ ì
al∞ AsciΘ space≤ (20H⌐ theε tw∩ linσ feed≤ arσ outpu⌠ insteaΣ oµá 102┤ ì
graphic≤ space≤ (00H)« Thi≤ save≤ ß lo⌠ oµ timσ iµ therσ arσ  ß numbe≥ ì
oµ blanδ line≤ oε thσ screen« Sometime≤ yo⌡ wil∞ seσ blanδ line≤ whicΦ ì
arσá no⌠ skipped«á Thi≤ i≤ becausσ the∙ arσ no⌠ AsciΘ space≤ bu⌠ ß PC╟ ì
characte≥ defineΣ t∩ blank«

        Somσ oµ yo⌡ ma∙ asδ ho≈ doe≤ puttinτ ß printe≥ oε linσ causσ ß ì
screeε dump«á Thi≤ i≤ ho≈ i⌠ happens« Wheε ß paralle∞ printe≥ attacheΣ ì
t∩ thσ Microbeσ i≤ pu⌠ oε linσ i⌠ cause≤ ß processo≥á interrupt«á Thi≤ ì
cause≤á thσá processo≥á t∩ suspenΣ wha⌠ i⌠ i≤ doinτá anΣá servicσá thσ ì
interrupt«á Iεá thi≤ prograφ thσ interrup⌠ i≤ directeΣ t∩ ou≥á prograφ ì
whicΦ theε initiate≤ thσ screeε dump.

        Iεá thσ Microbeσ thσ addres≤ oµ thσ printe≥ interrup⌠á servicσ ì
routinσ i≤ iε memor∙ addresse≤ 008░ anΣ 008▒ anΣ i≤ normall∙ 08B6; ou≥ ì
prograφáwill put thσ addres≤ oµ IS╥ (ß labe∞ iε thσ program⌐ iε there« ì
Thu≤, wheε thσ  interrup⌠  occur≤, thσ processo≥  goe≤ t∩ ou≥á routinσ ì
ISR«á IS╥ theε put≤ thσ norma∞ addres≤ bacδ int∩ 008░ anΣ 008▒ s∩ tha⌠ ì
printinτá caε occu≥ anΣ theε jump≤ t∩ thσ routinσ BEGIN«á Thσá routinσ ì
BEGI╬á i≤á reall∙ wherσ thσ screeε dum≡ start≤ anΣ doe≤ al∞ thσá usua∞ ì
thing≤á fo≥ ß screeε dump«á Wheε thσ dum≡ finishe≤ i⌠ theε set≤ u≡á t∩ ì
initiatσ thσ nex⌠ dum≡ anΣ theε return≤ t∩ thσ interrupteΣ prograφá a⌠ ì
thσ instructioε followinτ wherσ thσ interrup⌠ occurred.

        Howeve≥á thi≤á prograφ i≤ no⌠ perfect;á iµ thσ targe⌠á prograφ ì
run≤á witΦá interrupt≤ disableΣ theε thσ interrup⌠ wil∞á bσá preventeΣ ì
froφá takinτá placσ unti∞ enableΣ anΣ oµ coursσ thi≤ wil∞ no⌠á bσá thσ ì
screeεá yo⌡ wanteΣ printed«á Iµ yo⌡ pres≤ thσ Rese⌠ ke∙á whilσá screeε ì
dumping¼á i⌠á wil∞ certainl∙ sto≡ thσ dum≡ bu⌠ yo⌡ wil∞ no⌠ bσ ablσ t∩ ì
restar⌠á i⌠ agaiε withou⌠ reloadinτ thσ dum≡ program«á Pres≤ anΣá holΣ ì
Shif⌠á t∩ sto≡ printing;á yo⌡ wil∞ theε bσ ablσ t∩ initiatσá thσá dum≡ ì
again«á Yo⌡ ma∙ pres≤ Rese⌠ a≤ ofteε a≤ yo⌡ likσ iµ thσ dum≡ i≤ no⌠ iε ì
progress.

        ┴á sidσ benefi⌠ fo≥ Basiπ 5.1░ user≤ i≤ afte≥ rese⌠ thσ paralì
le∞ printe≥ i≤ stil∞ initialiseΣ bu⌠ iµ yo⌡ usσ Basiπ Hire≤ modσá theε ì
yo⌡á wil∞á havσá t∩ fi° thσ addres≤ a⌠ 008░ afte≥á issuinτá thσá Hire≤ ì
command«á Thσ lo≈ orde≥ bytσ oµ thσ addres≤ oµ thσ labe∞ IS╥ goe≤ int∩ ì
0080¼á i⌠á i≤á 2┤ decima∞ o≥ 18╚ anΣ shoulΣ bσ pokeΣ iε a≤á necessary« ì
Anothe≥á wa∙ oµ fixinτ thi≤ woulΣ bσ t∩ changσ thσ equatσá fo≥á PRVEC╘ ì
froφ 8░ t∩ 8E╚ anΣ reassemble.è
        A⌠á thσ enΣ oµ thσ prograφ arσ threσ list≤ oµ printe≥á contro∞ ì
sequence≤á whicΦá ma∙ bσ useΣ t∩ customisσ thi≤ prograφ t∩á sui⌠á you≥ ì
printer«á Simpl∙á substitutσ you≥ printer'≤ escapσ anΣ contro∞ sequenì
ces«á Thσá printe≥á setu≡ lis⌠ ma∙ bσ extendeΣ withou⌠á assemblinτá b∙ ì
addinτ thσ necessar∙ byte≤ anΣ adjustinτ thσ lis⌠ lengtΦ bytσ a⌠ labe∞ ì
LIST3

        Fo≥á thosσ oµ yo⌡ wh∩ wisΦ t∩ relocatσ thσ prograφ t∩á anothe≥ ì
addres≤á tr∙ anΣ usσ aε assemble≥ t∩ d∩ thσ joΓ bu⌠ iµ yo⌡ can'⌠á theε ì
therσá i≤ ß tota∞ oµ 1┤ location≤ t∩ bσ changeΣ froφ 70╚ t∩á thσá higΦ ì
orde≥ oµ thσ addres≤ oµ you≥ choice.



;BX80 parallel printer screen dump program
;bob denton 4-1-84, revised 5-5-84
;to use this program, exec at INIT, create the screen
;to be printed, put printer ONLINE and it will print
;to terminate print early press and hold the SHIFT key
;until the hooter sounds
    DEFR    16
    ORG    7000
LPRINT    EQU    8045    ;list print call
LF    EQU    0AH    ;ASCII line feed
ESCAPE    EQU    1BH    ;ASCII escape
BELL    EQU    7    ;ASCII bell
BLANK    EQU    20    ;ASCII space
KYSCAN    EQU    0A50AH    ;look for a particular key down
SHIFT    EQU    3FH    ;scan code for SHIFT key
PRVECT    EQU    80    ;parallel print interrupt vector
VDU    EQU    0F000    ;start of vdu
LNELEN    EQU    40    ;vdu line length
RMREAD    EQU    0BH    ;address of char rom read latch

;set up interrupt vector
INIT    LD    HL,ISR
    LD    (PRVECT),HL
;enable parallel printer
PARPRT    XOR    A
    LD    (109),A
    LD    A,2
    LD    (0E3),A
    LD    A,0FH
    OUT    (1),A
    LD    A,PRVECT
    OUT    (1),A
    RET
;interrupt service routine. save regs and set the return
;to point to the print routine at label BEGIN
ISR    PUSH    HL
    LD    HL,0B608
    LD    (PRVECT),HL
    LD    HL,2
    ADD    HL,SP
    LD    SP,HL
    LD    HL,BEGIN
    EX    (SP),HL
    EIè    RETI
;two second (approx) delay
DELAY    LD    B,4
    LD    HL,1
    PUSH    HL
    POP    DE
DELAY2    ADD    HL,DE
    JR    NC,DELAY2
    DJNZ    DELAY2
    RET
;output string of characters at (HL) to printer
OUTPUT    LD    B,(HL)
OUTPT1    INC    HL
    LD    A,(HL)
    CALL    LPRINT
    DJNZ    OUTPT1
    RET
;ISR transfers control to here
BEGIN    PUSH    HL
    LD    HL,-2    ;note minus sign
    ADD    HL,SP
    LD    SP,HL
    PUSH    DE
    PUSH    BC
    PUSH    AF
    LD    HL,2F6
    XOR    A
    SBC    HL,SP
    JR    Z,EXIT    ;no dump if machine reset
    CALL    DELAY
    CALL    PARPRT
    LD    HL,LIST3    ;set up printer
    CALL    OUTPUT
    LD    HL,VDU
    PUSH    HL
    POP    DE
;look ahead one line and skip if blank
LKAHD    LD    B,LNELEN
LKAHD1    LD    A,(HL)
    CP    BLANK
    JR    NZ,NTBLNK
    INC    HL
    DJNZ    LKAHD1
    CALL    LPRINT
    LD    A,LF
    CALL    LPRINT
    CALL    LPRINT
    JR    FINISH
;not blank so point back to start of line
NTBLNK    INC    HL
    DJNZ    NTBLNK
    LD    BC,-LNELEN    ;note minus sign
    ADD    HL,BC
;start graphics output to printer
    LD    C,0    ;offset for first pass
    CALL    GRAFIC    ;pass one on current line
    LD    A,LF
    CALL    LPRINT
    LD    BC,-LNELEN    ;note minus signè    ADD    HL,BC    ;adjust HL back to start of line
    LD    C,8    ;offset for second pass
    CALL    GRAFIC    ;pass two on current line
    LD    A,LF
    CALL    LPRINT
;check if end of vdu or SHIFT key pressed
FINISH    BIT    2,H    ;end of vdu?
    JR    NZ,FINSH1
    LD    A,SHIFT
    CALL    KYSCAN
    JR    NZ,LKAHD
;finished! restore printer
FINSH1    LD    HL,LIST2
    CALL    OUTPUT
;allow printer reset etc and then set up to print again
    CALL    DELAY
EXIT    CALL    INIT
    POP    AF
    POP    BC
    POP    DE
    POP    HL
    RET    ;return to interrupted program
;translate character to printer bit image
GRAFIC    PUSH    HL
    LD    HL,LIST1
    CALL    OUTPUT
    POP    HL
    LD    B,LNELEN
NEXT    LD    A,(HL)    ;get next character
    PUSH    HL    ;save address
    LD    L,A    ;put it into HL
    LD    H,E    ;zero H
    ADD    HL,HL    ;x2
    ADD    HL,HL    ;x4
    ADD    HL,HL    ;x8
    ADD    HL,HL    ;x16
    ADD    HL,DE    ;HL=CHAR ROM address + char x 16
    LD    A,L    ;C contains offset for first or
    ADD    A,C    ;second pass at current line
    LD    L,A    ;add it to HL
    PUSH    DE
    PUSH    BC
    LD    A,1    ;set ROM READ latch
    OUT    (RMREAD),A
    LD    C,80    ;bit mask to read character array
OUT1    PUSH    HL
    LD    B,8    ;# of characters to read
OUT2    SLA    E    ;assemble character to be printed
    LD    A,(HL)    ;get character from array
    AND    C    ;mask it against the bit in C
    JR    Z,OUT3
    SET    0,E    ;copy bit from char to E
OUT3    INC    HL    ;next character
    DJNZ    OUT2    ;do it 8 times to complete
    LD    A,E    ;printer column image
    CALL    LPRINT    ;print one column of dots
    POP    HL    ;restore start address of array
    SRL    C    ;set C to unmask next bit
    JR    NC,OUT1    ;jump until 8 chars printedè    XOR    A
    OUT    (RMREAD),A    ;reset ROM READ latch
    POP    BC
    POP    DE
    POP    HL
    INC    HL    ;next vdu character
    DJNZ    NEXT
    RET        ;end of current pass of line
;printer graphics mode escape sequence
LIST1    DB    LIST2-LIST1-1    ;number of bytes in list
    DB    ESCAPE
    DB    'K'    ;single density graphics mode
    DB    00
    DB    02    ;length of graphics 0200H or 512D
;printer ending (normalising) sequence
LIST2    DB    LIST3-LIST2-1
    DB    ESCAPE
    DB    '@'    ;reset printer
    DB    BELL    ;ring bell
    DB    LF    ;line feed
;printer setup sequence
LIST3    DB    LIST4-LIST3-1
    DB    ESCAPE
    DB    '1'    ;set 7/72" line feed
    DB    LF    ;line feed
LIST4    EQU    $
    END

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

                        A_NEW_INSTRUCTION_SET
                                                  Dixon Kenney
Lately¼á rummaginτ througΦ somσ technica∞ documents¼ ╔ camσ acros≤ thσ ì
instructioε se⌠ fo≥ ß ne≈ chip«  Thσ manufacturer'≤ "blurbó say≤ that¼ ì
witΦá thi≤ set¼á thσ programme≥ neeΣ havσ n∩ morσ problem≤ - everythinτ ì
hσá wil∞á eve≥ havσ t∩ d∩ wil∞ worδ witΦ thi≤ chi≡ - hσá needn'⌠á eveε ì
worry about having to upgrade to larger ones.

.uj off
.po 3

INSTRUCTION            MEANING                        INSTRUCTION           MEANING

BAH            Branch and hang                        PBD            Print and break drum
IIB            Ignore interrupt and branch            MLR            Move and lose record
TDB            Transfer and drop bits                 CRN            Convert to Roman Numerals
DO             Divide and overflow                    IDPS           Ignore disk protect switch
DC             Divide and conquer                     HCF            Halt and catch fire
SRZ            Subtract and reset to zero             FOPC           [Set] false out-of-paper condition
PIC            Punch invalid character                WUPO           Wad up printer output
SSJ            Select stacker and jam                 IEOF           Ignore end of file
SRSD           Seek record and scar disk              DWIT           Do what I'm thinking
BST            Backspace and stretch tape             PPL            Perform perpetual loop
RIRG           Read inter-record gap                  ZD             Zap directory
UDR            Update and delete record               DSH            Destroy sector header
RS             Random slew                            DAP            Deselect active peripheral
SSB            Scramble status byte                   SMD            Spontaneous memory dump ( used only
EDR            Execute destructive read                              when payroll cheques are loaded )
EIOC           Execute invalid op code                SFTT           Strip form tractor teeth
EP             Execute programmer                     HRPR           Hang up and ruin printer ribbon
ERM            Erase reserved memory                  ACQT           Advance clock to quitting time
èHerσ i≤ ß marvellou≤ prograφ whicΦ wil∞ prin⌠ maze≤ fo≥ yo⌡ t∩ givσ t∩ ì
someonσ elsσ t∩ solve«á  Yo⌡ caε definσ you≥ owε mazσ size«á  Thσ res-ì
ults¼á printeΣá oε ß dot-matri° printer¼á arσ quitσá spectacular«á  I⌠ ì
works on an Epson / look-alike printer.

00100 SPEED80:CLS:PRINT\\\\TAB(25)"M A Z E R - 4"\\TAB(30)"b y"\\
      TAB(25)"W O L P R O G"\TAB(28)"1 9 8 4"\\\\
00110 INVERSE:PRINT" PRINTER ON LINE PLEASE ":NORMAL
00120 OUTL#1:K=70:LPRINTCHR(15)CHR(27)"3"CHR(11)CHR(27)"S"CHR(1)
00130 PRINT"ENTER  WIDTH (MIN= 4, MAX="K")";:INPUTH0:H=INT(H0):
      IFH<4ORH>KTHEN130
00140 F=INT((FRE(0)-FRE($))/((H0+1)*4))-2
00150 PRINT"ENTER LENGTH (MIN= 4, MAX="F")";:INPUTV0:V=INT(V0):
      IFV<4ORV>FTHEN150
00160 INVERSE:PRINT" CALCULATION TAKES ABOUT"INT(H0*V0/3.54)
      " SECONDS !":NORMAL
00170 SPEED0
00180 DIM W(H,V):DIM L(H,V)
00190 Q=0:Z=0:X=INT(RND*H0+1):M=X
00200 LPRINTCHR(134)CHR(157);:FORI=2TOH-1
00210 IFI=XTHEN230
00220 LPRINTCHR(152)CHR(157);:GOTO240
00230 LPRINTCHR(149)" "CHR(134)CHR(157);
00240 NEXTI
00250 LPRINTCHR(149)
00260 IFU=1:U=0:GOTO1280
00270 C=1:W(X,1)=C:C=C+1
00280 R=X:S=1:GOTO350
00290 IFR<>HTHEN330
00300 IFS<>VTHEN320
00310 R=1:S=1:GOTO340
00320 R=1:S=S+1:GOTO340
00330 R=R+1
00340 IFW(R,S)=0THEN290
00350 IFR-1=0THEN680
00360 IFW(R-1,S)<>0THEN680
00370 IFS-1=0THEN510
00380 IFW(R,S-1)<>0THEN510
00390 IFR=HTHEN430
00400 IFW(R+1,S)<>0THEN430
00410 X=INT(RND*3+1)
00420 ONXGOTO1020,1060,1100
00430 IFS<>VTHEN460
00440 IFZ=1THEN490
00450 Q=1:GOTO470
00460 IFW(R,S+1)<>0THEN490
00470 X=INT(RND*3+1)
00480 ONXGOTO1020,1060,1170
00490 X=INT(RND*2+1)
00500 ONXGOTO1020,1060
00510 IFR=HTHEN610
00520 IFW(R+1,S)<>0THEN610
00530 IFS<>VTHEN560
00540 IFZ=1THEN590
00550 Q=1:GOTO570
00560 IFW(R,S+1)<>0THEN590
00570 X=INT(RND*3+1)
00580 ONXGOTO1020,1100,1170
00590 X=INT(RND*2+1)è00600 ONXGOTO1020,1100
00610 IFS<>VTHEN640
00620 IFZ=1THEN670
00630 Q=1:GOTO650
00640 IFW(R,S+1)<>0THEN670
00650 X=INT(RND*2+1)
00660 ONXGOTO1020,1170
00670 GOTO1020
00680 IFS-1=0THEN870
00690 IFW(R,S-1)<>0THEN870
00700 IFR=HTHEN800
00710 IFW(R+1,S)<>0THEN800
00720 IFS<>VTHEN750
00730 IFZ=1THEN780
00740 Q=1:GOTO760
00750 IFW(R,S+1)<>0THEN780
00760 X=INT(RND*3+1)
00770 ONXGOTO1060,1100,1170
00780 X=INT(RND*2+1)
00790 ONXGOTO1060,1100
00800 IFS<>VTHEN830
00810 IFZ=1THEN860
00820 Q=1:GOTO840
00830 IFW(R,S+1)<>0THEN860
00840 X=INT(RND*2+1)
00850 ONXGOTO1060,1170
00860 GOTO1060
00870 IFR=HTHEN960
00880 IFW(R+1,S)<>0THEN960
00890 IFS<>VTHEN920
00900 IFZ=1THEN950
00910 Q=1:GOTO1070
00920 IFW(R,S+1)<>0THEN950
00930 X=INT(RND*2+1)
00940 ONXGOTO1100,1170
00950 GOTO1100
00960 IFS<>VTHEN990
00970 IFZ=1THEN1010
00980 Q=1:GOTO1000
00990 IFW(R,S+1)<>0THEN1010
01000 GOTO1170
01010 GOTO1270
01020 W(R-1,S)=C
01030 C=C+1:L(R-1,S)=2:R=R-1
01040 IFC=H*V+1THEN1280
01050 Q=0:GOTO350
01060 W(R,S-1)=C
01070 C=C+1
01080 L(R,S-1)=1:S=S-1:IFC=H*V+1THEN1280
01090 Q=0:GOTO350
01100 W(R+1,S)=C
01110 C=C+1:IFL(R,S)=0THEN1130
01120 L(R,S)=3:GOTO1140
01130 L(R,S)=2
01140 R=R+1
01150 IFC=H*V+1THEN1280
01160 GOTO680
01170 IFQ=1THEN1230
01180 W(R,S+1)=C:C=C+1:IFL(R,S)=0THEN1200è01190 L(R,S)=3:GOTO1210
01200 L(R,S)=1
01210 S=S+1:IFC=H*V+1THEN1280
01220 GOTO350
01230 Z=1
01240 IFL(R,S)=0THEN1260
01250 L(R,S)=3:Q=0:GOTO1270
01260 L(R,S)=1:Q=0:R=1:S=1:GOTO340
01270 GOTO290
01280 FORJ=1TOV
01290 LPRINTCHR(156);
01300 FORI=1TOH
01310 IFL(I,J)<2THEN1340
01320 LPRINT"  ";
01330 GOTO1350
01340 LPRINT" "CHR(156);
01350 NEXTI
01360 LPRINT:IFJ<VTHEN1420
01370 IFL(1,J)=0ORL(1,J)=2THENLPRINTCHR(153)CHR(157);
      ELSELPRINTCHR(33)" ";
01380 FORI=2TOH:IFL(I,J)=0ORL(I,J)=2THEN1400
01390 LPRINTCHR(154)" ";:GOTO1410
01400 IFL(I-1,J)=0ORL(I-1,J)=2:LPRINTCHR(158)CHR(157);
      ELSELPRINTCHR(153)CHR(157);
01410 NEXTI:LPRINTCHR(154):GOTO1510
01420 IFL(1,J)=0ORL(1,J)=2:LPRINTCHR(150)CHR(157);
      ELSELPRINTCHR(150)" ";
01430 FORI=2TOH
01440 IFL(I,J)=0THEN1480
01450 IFL(I,J)=2THEN1480
01460 LPRINTCHR(43)" ";
01470 GOTO1490
01480 LPRINTCHR(43)CHR(157);
01490 NEXTI
01500 LPRINTCHR(151)
01510 NEXTJ:LPRINT\\\\
01520 PRINT"SAME MAZE ? <Y/N>"
01530 A0$=KEY:IFA0$=""THEN1530ELSEIFA0$="Y":U=1:X=M:LPRINT\:GOTO200
01540 IFA0$<>"N"THEN1520
01550 PRINT"NEW MAZE ? <Y/N>"
01560 A0$=KEY:IFA0$=""THEN1560
01570 IFA0$="Y":LPRINT"W O L P R O G    M A Z E R - 4"\:RUN
01580 IFA0$<>"N"THEN1550
01590 SPEED255:CLS:PRINT"This program is ";:UNDERLINE:PRINT
      "COPYRIGHT";:NORMAL:PRINT" to ";:PLAY0,20:INVERSE:
      PRINT"- WOLPROG -   19 JULY 1984."
01600 SPEED0:NORMAL:OUTL#1 OFF:CLS:PRINT"BYE":END