home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug016.arc
/
APR1986.CAT
< prev
next >
Wrap
Text File
|
1979-12-31
|
72KB
|
1,339 lines
.pl70
.po0
.OP
.HE# ---- T H E C A T C H E R ---- #
Thσ followinτ i≤ ß lis⌠ oµ thσ 1985/8╢ committeσ anΣ somσ oµ thσ peoplσ wh∩ ì
havσ offereΣ thei≥ assistance« Iµ therσ i≤ anythinτ yo⌡ requirσ o≥ an∙ hel≡ ì
yo⌡á caεá givσá us¼á pleasσ d∩ no⌠ hesitatσ t∩ contac⌠ an∙ onσá oµá us«á
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 791-4675
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
MBUG DISKS AND TAPE LIBRARY G. SCHULTZ 36 CARINGAL Ave. DONCASTER 3108
PUBLIC DOMAIN (SIG/M) DISKS D. SOUTAR. P.O. BOX 45 CANTERBURY 3126
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 MIKE THOMPSON
REMOTE SYSOPS: Ray Han. Grant Forest. 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 condemn≤ 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 èé FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟
Wha⌠ ß bus∙ nigh⌠ las⌠ month« ╔ wa≤ surpriseΣ t∩ seσ s∩ man∙ peoplσ a≤ ì
thσ Catche≥ wa≤ posteΣ ß da∙ late« I⌠ wa≤ nicσ t∩ seσ somσ oµ thσ educatioε ì
grou≡ bacδ again«á Thank≤ t∩ al∞ thosσ wh∩ manageΣ t∩ attended¼á especiall∙ ì
M.S« anΣ A'beσ fo≥ botΦ bringinτ alonτ ß PREMIU═ fo≥ u≤ t∩ see«
Thi≤á montΦ wσ WIL╠ havσ thσ RTT┘ dem∩ anΣ iµ thσ wors⌠ happen≤ (iµ wσ ì
can'⌠ ge⌠ ß receiver)¼á wσ havσ pre-recordeΣ somσ transmission≤ s∩ yo⌡á caε ì
seσá ho≈á i⌠ works«á ╔ hopσ ß SERIA╠ prin⌠ buffe≥ wil∞ bσ oε displa∙á also« ì
Othe≥ thing≤ oε sho≈ wil∞ bσ ß dem∩ oµ RIGH╘ HAN─ MA╬ (Sidekick)¼á anΣá fo≥ ì
thosσá stil∞ havinτ troublσ witΦ thσ RBBS¼á wσ wil∞ havσ ß modeφ se⌠ u≡á s∩ ì
botΦ RO═ anΣ DIS╦ user≤ ma∙ seσ ho≈ t∩ operatσ thσ systeφ firs⌠ hand«
Thσ tapσ librar∙ i≤ gettinτ ne≈ s'ware«á ╔ forgo⌠ ho≈ lonτ i⌠ take≤ t∩ ì
d∩ cassettσ save≤ anΣ a≤ eacΦ tapσ i≤ copieΣ abou⌠ ╡ times.«á Wσ havσ abou⌠ ì
2░ ne≈ title≤ s∩ kee≡ checkinτ what'≤ available«á Posta∞ order≤ pleasσ notσ ì
thσ ne≈ addres≤ (OPPOSITE)«
Thσá prizσá winne≥ oµ ou≥ softwarσ competitioε wa≤ Juliaεá Ophel«á Hi≤ ì
winninτ entr∙ i≤ late≥ iε thi≤ issue« Hi≤ prizσ wa≤ ß cop∙ oµ Wildcard≤ 4.
Fo≥á thosσ wh∩ couldn'⌠ figurσ ou⌠ thσ answer≤ t∩ thσá program≤á TOWN╙ ì
(1&2)¼ thi≤ ma∙ help« Changσ linσ 47░ t∩ reaΣ a≤ follows..
0047░ D7ñ ╜ D7ñ ½ CH╥ (D+30⌐ ║ NEX╘ ╪ ║ PRIN╘ D7ñ ║ RETURN
>ANDRE╫
DISCOUN╘ NUMBE╥ 87╕
FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟
LAS╘ MEETIN╟
Thσá meetinτ wa≤ wel∞ attendeΣ b∙ somσ 20░ people«á Thσ presiden⌠ gavσá hi≤ ì
speecΦ oε wha⌠ thσ cluΓ wa≤ u≡ t∩ oµ late«á Nothinτ ver∙ ne≈ herσ t∩ repor⌠ ì
excep⌠ tha⌠ thσ rbb≤ ha≤ changeΣ phonσ number≤ t∩ 82-1571«á Als∩ thσ 1000tΦ ì
membe≥ joineΣ MBU╟ las⌠ month«á T∩ marδ thσ milestone¼ thσ luck∙ membe≥ wa≤ ì
giveε freσ membershi≡ fo≥ 1▓ months« ┴ poin⌠ oµ interes⌠ i≤ tha⌠ ou⌠ oµ thσ ì
100░á peoplσ tha⌠ havσ joineΣ ove≥ 50░ arσ stil∞ members«á Therσ werσ ß fe≈ ì
demonstration≤ oε a≤ well«á Thσ firs⌠ wa≤ aε adapto≥ t∩ ruε MS-DO╙ oεá you≥ ì
BE┼á anΣ givσ yo⌡ 256δ byte≤ oµ ram«á Iε casσ yo⌡ misseΣ it¼á thσ uni⌠ cos⌠ ì
$625.0░ anΣ al∞ yo⌡ coulΣ ruε wa≤ ß MS-DO╙ system¼á tex⌠ anΣ datß files«á ╔ ì
thinδ tha⌠ iµ yo⌡ looδ a⌠ thσ cos⌠ oµ aε IB═ compatible¼á anΣ theε worδ ou⌠ ì
wha⌠ ß BE┼ witΦ ß disδ drive¼á plu≤ thσ pricσ oµ thσ adapto≥ (anΣ i⌠á stil∞ ì
can'⌠ ruε IB═ software⌐ i≤ worth¼ ╔ aφ afraiΣ m∙ mone∙ woulΣ bσ spen⌠ oε aε ì
IB═ compatible¼ bu⌠ i⌠ give≤ yo⌡ thσ lo⌠ iµ tha⌠ i≤ wha⌠ yo⌡ want« Thσ nex⌠ ì
dem∩á wa≤ oµ thσ 128δ Microbeσ "Premium"¼á al∞ thosσ PCG'≤ anΣ colou≥á too« ì
Thσá ne≈á BE┼á witΦ extendeΣ PC╟ i≤ grea⌠ t∩ sa∙á thσá least«á Thσá graphiπ ì
capabilit∙ i≤ terrific¼ providinτ therσ arσ somσ peoplσ writinτ softwarσ t∩ ì
sui⌠á thσ graphic'≤ oµ thσ ne≈ Premiuφ i⌠ i≤ reall∙ ß meaε lookinτ machine« ì
Ho≈ d∩ wσ upgradσ i≤ thσ worΣ oε everyone≤ lips«á N∩ mentioε wa≤ madσ abou⌠ ì
pricσá anΣá availabilit∙á oµ thσ upgradσ bu⌠ let'≤ hopσ the∙á arrivσá a⌠á ß ì
sensiblσ price¼á likσ tha⌠ oµ thσ C.I.A.B«á upgrade«á Thσ bazaa≥ wa≤á doinτ ì
somσ gooΣ tradinτ a≤ pe≥ usua∞ bu⌠ thσ tapσ librar∙ wa≤ lookinτ ß bi⌠ slow« ì
I⌠á coulΣ bσ thσ whisper≤ tha⌠ ╔ hearΣ amongs⌠ thσ crowΣ tha⌠ thσá program≤ ì
arσá thσá samσ olΣ one≤ a≤ las⌠ year«á Bu⌠ therσ won'⌠ bσ an∙ ne≈á program≤ ì
unles≤ yo⌡ writσ somσ anΣ senΣ theφ in.« S∩ ge⌠ t∩ it.« Seσ yo⌡ nex⌠ time.
Regard≤ Malcolφ Osborne.è * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* I M P R O V E M E N T S T O W O R D B E E *
* by PHIL WILKIN *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
╔á purchaseΣ m∙ 16╦ 'Beσ somσ threσ anΣ ß halµ year≤ ag∩ anΣá acquireΣ ì
aεá Alpha-8░ printe≥ (samσ a≤ thσ A.T«á unit⌐ shortl∙ afterwards«á Thσ 'Beσ ì
no≈ ha≤ ß 32╦ serie≤ │ coreboard«á Durinτ thi≤ time¼á RO═ baseΣ Wordbeσ ha≤ ì
beeε useΣ extensivel∙ fo≥ ß variet∙ oµ documents/letter≤ anΣ it≤á frustratì
inτá deficiencie≤ havσ resulteΣ iε variou≤ modification≤ beinτ madσ t∩á thσ ì
prograφ t∩ expanΣ it≤ use« Thi≤ articlσ examine≤ somσ oµ thosσ shortcoming≤ ì
anΣ suggest≤ solutions.
Earl∙á mod≤á includeΣá changinτ thσ defaul⌠á printe≥á froφá seria∞á t∩ ì
paralle∞á anΣá doinτá ß warφ star⌠ wheε jumpinτá t∩á basic«á Howeve≥á thesσ ì
variation≤ arσ insignifican⌠ wheε compareΣ t∩ wha⌠ caε bσ achieved.
Yo⌡á can'⌠á reall∙á expec⌠ mucΦ iε aε 8╦ worΣ processinτá prograφá ye⌠ ì
Wordbeσá perform≤á effectively«á I⌠ woulΣ bσ nicσ t∩á havσá aut∩á paragrapΦ ì
numbering¼á sub-paragrapΦ indentinτ anΣ ß screeε formatteΣ likσ thσ printeΣ ì
version¼ bu⌠ i⌠ i≤ nevertheles≤ fairl∙ comprehensive.
Thσá maiεá deficienc∙á anΣá thσ areß covereΣ iεá deptΦá herσá concern≤ ì
printe≥á codes«á WitΦ standarΣ Wordbee¼á iµ yo⌡ wisΦá t∩á underline¼á anΣ ì
detes⌠á thosσá sill∙ littlσ dashe≤ invokeΣ b∙ thσ .UL° command¼á yo⌡á woulΣ ì
includσ iε you≥ file:
.ES printer code sequence follows
27 45 1 as per printer manual
follow this with the part to be underlined, then:
.ES
27 45 0
t∩ cance∞ thσ underlining«á T∩ underlinσ ß worΣ iε thσ middlσ oµ ß linσ yo⌡ ì
als∩ neeΣ t∩ suppres≤ linσ feed≤ witΦ ß .Z╬ anΣ carefull∙ spacσ ou⌠ t∩á thσ ì
requireΣ columε fo≥ thσ underlineΣ word¼ anΣ s∩ on.
Simila≥ messinτ abou⌠ i≤ necessar∙ fo≥ an∙ oµ thσ othe≥ attribute≤ onσ ì
i≤ likel∙ t∩ wan⌠ iε thσ tex⌠ sucΦ a≤ italics¼á emphasised¼á doublσ strike¼ ì
enlarged¼á condensed¼ superscrip⌠ o≥ subscript« Thσ solutioε i≤ t∩ modif∙ ì
Wordbeσá t∩ recognisσ mid-linσ signal≤ whicΦ causσ thσ appropriatσ codσá t∩ ì
bσ outpu⌠ t∩ thσ printer.
Beforσ wσ looδ a⌠ implementinτ thesσ iε Wordbee¼á let'≤ havσ ß looδ a⌠ ì
thσ prograφ (versioε 1.2⌐ fo≥ somσ spacσ t∩ pu⌠ ou≥ code«á Therσ arσá 12╕ ì
byte≤ containinτ F╞ o≥ 0░ froφ DF6╖ t∩ DFE6«á Yo⌡ migh⌠ thinδ thi≤ i≤ ß bi⌠ ì
ou⌠á oµ thσ wa∙ anΣ to∩ restricteΣ iε sizσ bu⌠ you≥ printe≥ wil∞ neve≥ kno≈ ì
thσá differencσ anΣ it'≤ wortΦ keepinτ iε mind«á ┴ poin⌠ t∩ notσ i≤á tha⌠ ì
thσá earl∙ versioε (1.0⌐ ha≤ 42╢ freσ byte≤ froφ DE4░ whicΦá i≤á sufficien⌠ ì
fo≥ ß numbe≥ oµ printe≥ codes.
Wheεá yo⌡á initialisσá Wordbee¼á yo⌡á briefl∙á seσá "Checkinτá WORDBE┼ ì
programóá oε thσ maiε men⌡ page«á Iµ an∙ byte≤ arσ differen⌠ yo⌡ wil∞á nex⌠ ì
seσá "EPRO═á ERRO╥á pres≤ ES├ t∩ continue"«á Iµ yo⌡á modif∙á Wordbee¼á thi≤ ì
messagσ wil∞ alway≤ comσ up«á Oncσ yo⌡ havσ you≥ modifieΣ versioε u≡á anΣ ì
runninτ iε aε EPROM¼á i⌠ won'⌠ change¼á s∩ i⌠ doe≤ no⌠ neeΣ t∩ checkeΣ eacΦ ì
time«á Thσá checkinτ routinσ i≤ froφ C01╖ t∩ C05╢ s∩ iµ C01╖ read≤ J╨ C057¼ ì
yo⌡á theε havσ froφ C01┴ t∩ C056«á A≤ ß bonus¼á yo⌡ als∩ ge⌠ DF2▓á t∩á DF5│ ì
wherσ thσ message≤ werσ coded.è Wheεá yo⌡á havσ finisheΣ witΦ ß filσ anΣ typσ (a⌠ thσá maiεá men⌡ ì
level⌐á 'KILºá yo⌡ d∩ notÖ wan⌠ t∩ bσ askeΣ b∙ you≥ Beσ 'Arσ yo⌡ surσ ?ºá iµ ì
yo⌡á kno≈á wha⌠á yo⌡á arσ doing«á Surel∙ you≥ finger≤á coulΣá no⌠á bσá thatÖ ì
accidental!íá Thσá samσá thinτ happen≤ wheε yo⌡ exi⌠ t∩ Basiπá bu⌠á iµá yo⌡ ì
changσá tha⌠ t∩ ß warφ star⌠ Basic¼á aε accidenta∞ 'Eº wil∞ no⌠ crasΦá you≥ ì
file«á Thσá 'Arσ yo⌡ sureº routinσ i≤ a⌠ C14░ anΣ thσ Basiπ exi⌠ start≤á a⌠ ì
C13▓á witΦá C─ 4░ C▒ whicΦ iµ yo⌡ changσ t∩ C─ 2╕ C╣ C│ 2▒ 8░ (CAL╠ ßá CL╙ ì
anΣá J╨á 802▒ t∩ Basic⌐ wil∞ givσ yo⌡ froφ C13╕ t∩ C15▓ whicΦá i≤á 2╖á morσ ì
byte≤á fo≥á printe≥á codes«á Oµ coursσ yo⌡ mus⌠ als∩ deletσ froφá thσá KI╠ ì
routinσ thσ cal∞ t∩ thσ 'Arσ yo⌡ sureº subroutine║á changσ C18╞ froφ C─á 4░ ì
C▒ C░ t∩ ┤ NOPs.
T∩á finΣá morσ space¼á yo⌡ neeΣ t∩ criticall∙ looδ a⌠á thosσá existinτ ì
facilitie≤á whicΦ yo⌡ havσ n∩ neeΣ for«á Therσ seemeΣ t∩ bσ n∩ gooΣ reasoε ì
t∩ senΣ null≤ o≥ wai⌠ fo≥ ° second≤ o≥ t∩ .UL° o≥ switcΦ thσ printe≥ on/ofµ ì
s∩á al∞ these¼á wheε deleted¼á provideΣ space≤ iε thσ prograφá fo≥á printe≥ ì
codes.
Thσá nex⌠ probleφ i≤ t∩ decidσ exactl∙ wha⌠ ne≈ attribute≤ wσ wisΦá t∩ ì
adΣá t∩ thσ program«á ╔ haΣ ß neeΣ fo≥ continuou≤ underlining¼á italiπá anΣ ì
super- scrip⌠ printinτ witΦ enlarged¼ condenseΣ anΣ emphasiseΣ oε thσ 'nicσ ì
t∩á haveºá lis⌠á anΣ i⌠ wa≤ no⌠ to∩ difficul⌠ t∩ adΣ subscrip⌠á anΣá doublσ ì
printinτ a⌠ thσ samσ time«á ┴ ne≈ .F╞ commanΣ wa≤ als∩ addeΣ t∩ providσ ß ì
forφ feeΣ a⌠ thσ enΣ oµ ß letter.
No≈á wσ neeΣ t∩ looδ a⌠ jus⌠ ho≈ anΣ wherσ t∩ adΣ ou≥á code«á Wσá havσ ì
madσá space≤ iε thσ origina∞ prograφ anΣ thesσ caε bσ useΣ fo≥ outpu⌠á codσ ì
bu⌠á wσ stil∞ neeΣ t∩ pu⌠ ß 'tripº int∩ thσ prograφ t∩ tes⌠ fo≥ ou≥á signa∞ ì
anΣ theε jum≡ t∩ thσ outpu⌠ routinσ iµ thσ resul⌠ i≤ positive« Iµ wσ arσ t∩ ì
simpl∙ adΣ morσ do⌠ command≤ wσ caε usσ thσ space≤ iε thσ tes⌠ routinσ lef⌠ ì
b∙ remova∞ oµ .SN#xx¼ .WT#xx¼ .X┘ anΣ .ULx.
Thσá do⌠á tes⌠ routinσ start≤ a⌠ CBA┤ whicΦ i≤ calleΣ a⌠ thσ star⌠á oµ ì
eacΦá line«á Iµ thσ firs⌠ characte≥ i≤ no⌠ ß ful∞ sto≡ (2┼ hex⌐ thσá tes⌠ ì
return≤á 'non-zero'«á Iµá i⌠ i≤ ß dot¼á thσ routinσ theε test≤á thσá fourtΦ ì
characte≥ fo≥ ß <CR╛ (0Dh⌐ - fo≥ two-lette≥ command≤ sucΦ a≤ .JY╗á o≥ test≤ ì
i⌠á fo≥ ß '#º (23h⌐ - fo≥ command≤ sucΦ a≤ .LM#10«á Thσ fina∞ tes⌠ herσá i≤ ì
fo≥ ß .UL° typσ oµ commanΣ whicΦ wσ wil∞ no⌠ need.
Thσá methoΣá ╔ employeΣ wa≤ t∩ usσ onσ lette≥ fo≥á eacΦá ne≈á facilit∙ ì
followeΣá b∙ ß 'Yº fo≥ switchinτ i⌠ oε o≥ ß 'Nº fo≥ switchinτ i⌠á off«á Fo≥ ì
examplσá .I┘á woulΣ switcΦ thσ printe≥ ove≥ t∩ italiπ modσ anΣ ß .I╬á woulΣ ì
rever⌠ i⌠ t∩ normal«á Similarly¼á 'Cº caε bσ useΣ fo≥ condenseΣ printing¼ ì
'Bºá fo≥ big/enlargeΣ character≤ (┼ i≤ reserveΣ fo≥ .ES)¼á 'Mº fo≥á emphasì
ised¼á 'Uºá fo≥ underlining¼á anΣ 'Dº fo≥ doublσ print«á A≤ supe≥ anΣá sub-ì
scrip⌠ arσ s∩ closel∙ related¼ i⌠ wa≤ decideΣ t∩ implemen⌠ thesσ a≤ .S┬ fo≥ ì
sub-¼ .S╨ fo≥ super- anΣ .S╬ fo≥ cancellinτ eithe≥ (samσ code).
Thσá line≤á whicΦá checkeΣ fo≥ thosσ attribute≤ whicΦá arσá n∩á longe≥ ì
requireΣá caε no≈ bσ altereΣ t∩ tes⌠ fo≥ ß ne≈ attributσ sucΦá a≤á italics« ì
However¼á t∩á checδ fo≥ eacΦ oµ thσ eigh⌠ ne≈ facilitie≤ wσ arσ adding¼á wσ ì
ruε ou⌠ oµ spacσ here« Thσ assemble≥ listinτ show≤ ß jum≡ t∩ C03╣ wherσ thσ ì
test≤ continuσ (iε thσ areß lef⌠ vacan⌠ b∙ deletioε oµ thσ 'Checkinτá WORDì
BEEºá routine)«á Thσ listinτ ha≤ beeε commenteΣ t∩ sho≈ wha⌠ thσ codσá doe≤ ì
anΣá iµ yo⌡ havσ you≥ printe≥ manua∞ opeε a⌠ Appendi° ┬ yo⌡ shoulΣ bσá ablσ ì
t∩á verif∙ thσ signal≤ beinτ sen⌠ t∩ thσ printe≥ fo≥ eacΦ attribute«á Apar⌠ ì
froφ thσ routine≤ jumpinτ arounΣ t∩ thσ variou≤ space≤ createΣ earlier¼ yo⌡ ì
wil∞á notσ tha⌠ differen⌠ attribute≤ requirσ code≤ sen⌠ t∩ thσá printe≥á t∩ ì
var∙á froφá onσá characte≥á (condensed║á 0╞ fo≥ on¼á 1▓ fo≥á off⌐á t∩á fou≥ ìècharacter≤ (t∩ turε ofµ sub- o≥ superscript║ ES├ ╚ anΣ ES├ T).
Thi≤ methoΣ work≤ quitσ wel∞ but¼á i⌠ stil∞ ha≤ thσ disadvantagσá tha⌠ ì
yo⌡á neeΣ ß ne≈ linσ t∩ invokσ an∙ oµ thesσ ne≈ facilitie≤ witΦ it≤ owε do⌠ ì
commanΣ anΣ anothe≥ ne≈ linσ t∩ cance∞ it« Iµ yo⌡ wisΦ t∩ prin⌠ onσ worΣ iε ì
thσ middlσ oµ ß paragrapΦ iε italic≤ t∩ highligh⌠ it¼á yo⌡ mus⌠ pu⌠ ßá <CR╛ ì
a⌠ thσ enΣ oµ thσ previou≤ line¼á suppres≤ linσ feed≤ witΦ ß .Z╬ line¼ typσ ì
ou⌠á thσ linσ t∩ thσ precedinτ word¼á anothe≥ <CR>¼á switcΦ oε italiπá modσ ì
witΦ ß .I┘ line¼á typσ thσ italiπ word¼á <CR>¼á re-invokσ linσ feed≤ witΦ ß ì
.ZY¼á spacσ ou⌠ t∩ thσ nex⌠ worΣ anΣ g∩ oε typing« I⌠ ha≤ thσ advantage≤ ì
tha⌠ i⌠ onl∙ require≤ onσ linσ insteaΣ oµ tw∩ anΣ yo⌡ d∩ no⌠ neeΣ t∩á refe≥ ì
t∩ ß lis⌠ oµ thσ numbe≥ code≤ fo≥ eacΦ facility.
Aε improvement¼á however¼á i≤ t∩ usσ ß specia∞ characte≥ a≤ ß mid-linσ ì
trigge≥á t∩á jum≡á t∩á ß tes⌠ routinσ t∩ ascertaiεá whethe≥á thσá followinτ ì
characte≥ i≤ t∩ switcΦ aε attributσ oε o≥ off«á Thi≤ methoΣ ha≤ als∩ beeε ì
useΣá witΦá thσ slosΦ (o≥ backslash⌐ '\º characte≥ beinτá employeΣá a≤á thσ ì
trigger«á Followinτá thi≤ characte≥ witΦ thσ appropriatσ lette≥ fo≥á eacΦ ì
facilit∙ caε togglσ thσ facilit∙ oε o≥ off«
Iε \Ithis\╔ example¼ thσ worΣ 'thisº woulΣ bσ printeΣ iε italic≤ as:
Iε thisÖ example¼ etc.
Yo⌡á shoulΣ no≈ bσ ablσ t∩ follo≈ thσ screeε dum≡ oµ thσ 'PARALLE╠á PRINTE╥ ì
COMMAN─ MENU'.
Thi≤á al∞á sound≤ interesting¼á yo⌡ say¼á bu⌠ ho≈ d∩ wσá operatσá thi≤ ì
'switch'┐á Well¼á thσá origina∞ .UL° commanΣ use≤ ß scratcΦ paΣ a⌠ memor∙ ì
locatioεá 0547Φá t∩ storσ thσ characte≥ thσ use≥ select≤ a≤ ßá trigge≥á fo≥ ì
underlining«á Oε initialisation¼ Wordbeσ set≤ tha⌠ scratchpaΣ t∩ zer∩ anΣ ì
a≤ wσ havσ scrubbeΣ .ULx¼á wσ caε usσ tha⌠ location«á Iµ eacΦ oµ ou≥á eigh⌠ ì
ne≈á attribute≤á i≤á allocateΣ onσ bi⌠ oµ tha⌠ byte¼á wσá theεá havσá eigh⌠ ì
separatσ switches«á Also¼á thσ origina∞ prograφ useΣ ß routinσ a⌠ CA9╢ t∩ ì
checδá iµá thσ characte≥ allocateΣ b∙ ß .UL° wa≤ presen⌠ and¼á iµá so¼á ac⌠ ì
accordingly«
Wσá simpl∙ replacσ tha⌠ routinσ witΦ ou≥ owε whicΦ check≤ fo≥ ßá slosΦ ì
character¼á continuinτá oε t∩ thσ usua∞ prin⌠ routinσ iµá no⌠á found«á Iµ ì
therσ i≤ ß slosh¼á ou≥ routinσ ensure≤ thσ nex⌠ characte≥ i≤ uppe≥ casσ anΣ ì
theεá jump≤á t∩ anothe≥ routinσ wσ pu⌠ a⌠ DF2╕ whicΦ set≤ thσ switche≤á anΣ ì
output≤ thσ signal≤ t∩ thσ printer«á ┴ fe≈ littlσ point≤ t∩ note« Subscrip⌠ ì
anΣ superscrip⌠ requireΣ ne≈ identifyinτ characters║á ']º anΣ '^º havσ beeε ì
used« Thσ worΣ "PAG┼ xó whicΦ wa≤ locateΣ a⌠ DF5╞ anΣ addresseΣ b∙ locatioε ì
CB1─á ha≤á beeεá moveΣ t∩ DF2▓ anΣ CB1─á amendeΣá accordingly«á Thσá seconΣ ì
assemble≥ listinτ show≤ ho≈ ß softwarσ switcΦ i≤ used.
Onσá oµ thσ problem≤ oµ usinτ ß mid-linσ switcΦ i≤ adjustinτ thσá linσ ì
lengtΦ t∩ compensate« Thi≤ probleφ ha≤ no⌠ beeε entirel∙ overcomσ anΣ usinτ ì
thi≤á facilit∙á upset≤ thσ righ⌠ justificatioε mode«á Perhap≤á onσá oµá thσ ì
member≤á ou⌠á therσá ha≤á thσ timσ anΣ inclinatioε t∩ delvσá int∩á thσá .J┘ ì
routinσ anΣ comσ u≡ witΦ thσ solution┐ Well¼ witΦ thesσ change≤ t∩ Wordbee¼ ì
yo⌡ wil∞ finΣ i⌠ mucΦ morσ convenien⌠ t∩ usσ thosσ specia∞ attribute≤á you≥ ì
printe≥ caε s∩ readil∙ provide«á However¼ wσ haven'⌠ entirel∙ finisheΣ witΦ ì
improvement≤á anΣá yo⌡á ma∙ conside≥ thσ followinτ suggestion≤á o≥á perhap≤ ì
desigε you≥ own.
Thσá Telcoφ monito≥ work≤ thσ samσ wa∙ a≤ thσ Wordbeσ monito≥á bu⌠á i≤ ì
morσá comprehensivσá anΣá readil∙ allow≤ swappinτ arounΣá betweeεá thσá PA╦ ìèlocation≤ which¼ iµ donσ froφ thσ Wordbeσ monitor¼ wil∞ resul⌠ iε aε immedì
iatσá crash«á Havinτá thσ Telcoφ monito≥ thu≤ make≤ thσá Wordbeσá monito≥ ì
obsoletσá anΣ coulΣ providσ u≤ witΦ ß substantia∞ chunδ oµ sparσ memor∙á iµ ì
wσá deletσ it«á Thσ Wordbeσ monito≥ start≤ a⌠ D06▒ anΣ yo⌡ caε ente≥á thσ ì
Telcoφá monito≥á a⌠á E024«á Jus⌠ ß poin⌠ t∩ watcΦ beforσ yo⌡á deletσá thσ ì
monitor¼á therσ arσ tw∩ routine≤ calleΣ froφ thσ res⌠ oµ Wordbeσ s∩á follo≈ ì
thesσ steps:
1. Amend D061 to read -
D061 CD 28 C9 CALL C928 ; clear screen
D064 C3 24 E0 JP E024 ; Telcom mon
2. Move D468 - D486 to D067 - D085 (1F bytes)
Change CF31 from 68 D4 to 67 D0
3. Move D515 - D540 to D086 - D0B1 (2C bytes)
Change CE6C from 15 D5 to 86 D0
4. Delete D0B2 to D555
This gives us 1188 bytes (4A4 h) to play with !!
SETTING DEFAULTS
D∩á yo⌡ finΣ tha⌠ eacΦ timσ yo⌡ star⌠ ß lette≥ o≥ othe≥ documen⌠á tha⌠ ì
yo⌡ alway≤ commencσ witΦ thσ samσ formattinτ parameters┐á Iε m∙ case¼á mos⌠ ì
file≤ starteΣ witΦ thσ following:
.ES
27 64 ; printer initialise to set top of form and
; ensure normal text
.LM#5 ; letters look better with a good sized margin
.LL#64 ; its a handy length for letters and the
; screen resembles the final print
.PG#0 ; single sheets are often used
I⌠á wa≤á decideΣá t∩ automaticall∙ star⌠ file≤ witΦá thesσá parameter≤ ì
afte≥ ß 'KIL'«á Iµ no⌠ needed¼á the∙ caε easil∙ bσ deleteΣ witΦ ^Y« Herσ i≤ ì
m∙ methoΣ oµ doinτ this.
Thσ 'KILº routinσ end≤ witΦ ß jum≡ t∩ C06░ nea≥ thσ star⌠ oµá Wordbee« ì
Thσá routinσ froφ C06░ t∩ C06╕ clear≤ thσ scratchpad≤ afte≥ puttinτ ßá '55º ì
int∩ locatioε 500¼á anΣ froφ C06╣ t∩ C07├ i⌠ clear≤ RA═ froφ 090▒ on« Iµ wσ ì
duplicatσá thesσ routine≤ elsewhere¼á follo≈ u≡ witΦ ß routinσ whicΦá blocδ ì
move≤á ou≥ initia∞ filσ int∩ RAM¼á adjust≤ thσ end-of-filσ pointe≥ a⌠á 051─ ì
anΣ theε jump≤ t∩ thσ warφ star⌠ addres≤ a⌠ C07D¼á wσ wil∞ achievσ ou≥ aim« ì
D∩ no⌠ forge⌠ t∩ changσ thσ jum≡ addres≤ a⌠ C19╞ froφ C│ 6░ C░ (J╨ C060⌐ t∩ ì
poin⌠á t∩á thσ ne≈ routinσ locatioε - probabl∙ wherσ yo⌡ havσ jus⌠á cleareΣ ì
ou⌠ thσ monitor« Jus⌠ iε casσ yo⌡ arσ no⌠ surσ ho≈ t∩ d∩ thi≤ blocδ move¼ ì
assemblσ this:
LD HL,START ; address of 'file'
LD DE,0901h ; where Wordbee files start
LD BC,LENGTH ; of file - the above example
is 1D long
LDIR
LD (051Dh),DE ; end of file pointer
JP 0C07Dh ; warm start
Onσá wa∙ t∩ ge⌠ you≥ 'fileº i≤ t∩ KI╠ an∙ datß iε memory¼á writσá you≥ ì
startinτá parameter≤ a≤ ß file¼á jum≡ t∩ thσ monito≥ anΣ movσ i⌠á somewherσ ìèsafσ (awa∙ froφ EDAS═ sourcσ code≤ yo⌡ migh⌠ perhap≤ bσ doinτ next)« Alter- ì
natively¼ yo⌡ caε ente≥ i⌠ directl∙ witΦ thσ Telcoφ monito≥ iε tex⌠ mode.
ShoulΣá yo⌡á alway≤ wan⌠ you≥ standarΣá parameters¼á jus⌠á changσá thσ ì
instructioεá a⌠á C07┴á t∩ CAL╠ you≥ ne≈ routinσ whicΦ wil∞ star⌠á witΦá thσ ì
replaceΣ "L─ (0513),HLó anΣ follo≈ witΦ thσ blocδ movσ routine¼ endinτ witΦ ì
ß RE╘ iε lie⌡ oµ J╨ 0C07Dh.
Havinτ madσ ß biτ holσ wherσ thσ monito≥ useΣ t∩ be¼á wσ migh⌠ a≤ wel∞ ì
d∩ somethinτ worthwhilσ witΦ it«á ╔ havσ ß smal∞ famil∙ compan∙ anΣ ╔á havσ ì
designeΣá ßá fou≥á linσ letterheaΣ usinτ bi⌠ imagσ graphic≤á t∩á prin⌠á thσ ì
compan∙á namσá iε largσ fanc∙ writing«á Perhap≤ reader≤ migh⌠ wan⌠á t∩á pu⌠ ì
thei≥ famil∙ cres⌠ oε letter≤ o≥ maybσ jus⌠ thσ housσ namσ iε stylisΦ prin⌠ ì
followeΣ b∙ thσ address.
Thσá probleφ wa≤ tha⌠ thσ Wordbeσ filσ fo≥ thσ letterheaΣ consisteΣ oµ ì
arounΣ onσ thousanΣ item≤ oµ data¼á eacΦ beinτ tw∩ t∩ fou≥ byte≤ long«á No⌠ ì
onl∙á wa≤ i⌠ timσ consuminτ t∩ loaΣ al∞ thσ datß anΣ t∩ scrol∞á througΦá i⌠ ì
beforσ eveε startinτ thσ letter¼ bu⌠ als∩ wheε savinτ thσ lette≥ t∩ tape.
┴á ne≈á commanΣá .L╚ wa≤ introduceΣ t∩ dum≡ thσ datß t∩á thσá printer« ì
InsteaΣá oµ beinτ par⌠ oµ ß Wordbeσ file¼á thσ datß i≤ no≈ storeΣá iεá hex¼ ì
fillinτá mos⌠ oµ tha⌠ biτ hole«á T∩ arrangσ this¼á pu⌠ ß brancΦ loo≡ iε thσ ì
do⌠á commanΣá look-u≡ table«á Refe≥ t∩ listinτ one¼á linσá 210«á AmenΣá thσ ì
addres≤á froφ 'LINEº (CC6E⌐ t∩ 'LHEADº whicΦ wil∞ bσ whereve≥ yo⌡á pu⌠á thσ ì
followinτ codσ (examplσ i≤ a⌠ D0F5):
; LETTERHEAD ROUTINE
;
ORG 0D0F5 ; or where it suits you
PRINT EQU 0CD54 ; usual print routine
START EQU 0D110 ; or where your letterhead data starts
LENGTH EQU 3DC ; change to the number of bytes in your data
LINE EQU 0CC6E ; original .LS#xx test location
;
LHEAD LD A,(IY+2) ; get the next character
CP 'H' ; is the command .LH ?
JP NZ,LINE ; if not, revert to original test
; to get here it must have been a .LH command
LD HL,START ; location of your data
LD DE,START ; first piece of data
LD BC,LENGTH ; of data string
OUTPUT LD A,(DE) ; ready to print contents of A reg
CALL PRINT ; to printer
LDI ; to next byte
JP PE,OUTPUT ; print next if not finished
RET ; all done
END ; to keep EDASM happy !
I⌠á woulΣá bσ eas∙ t∩ modif∙ thi≤ routinσ t∩ givσ ß choicσ oµá letterì
head≤á o≥ perhap≤ ß signature«á Jus⌠ remembe≥ tha⌠ thσá fourtΦá characte≥ ì
(IY+3⌐ MUSTÖ bσ ß <CR╛ o≥ ß '#'¼ s∩ yo⌡ woulΣ neeΣ t∩ tes⌠ fo≥ .L1¼ .L2¼ etπ ì
o≥ maybσ .LH#1.
AnΣá no≈á t∩á thσ las⌠ modificatioε oµ substance«á Havinτá trieΣá thi≤ ì
modifieΣ Wordbeσ witΦ ß PC¼á ß conflic⌠ occurreΣ wheε tryinτ t∩ movσ t∩ thσ ì
to≡ oµ thσ filσ witΦ ^T«á Thi≤ i≤ becausσ thσ Shel∞ a⌠ PA╦ ╡ whicΦ control≤ ì
thσ wholσ sho≈ act≤ oε ß ^╘ doinτ ß tex⌠ dum≡ t∩ thσ printeríá Thσ solutioε ì
i≤á t∩ changσ thσ commanΣ t∩ ^╫ whicΦ i≤ achieveΣ b∙ changinτ D02╞ froφá 1┤ ìèt∩ 1╖ anΣ changinτ D58┴ froφ 5┤ t∩ 57.
Thσá res⌠á oµ thσ change≤ arσ cosmetiπ anΣ includσ changinτá thσá maiε ì
men⌡á choicσ oµ "Netó t∩ "Telcomó anΣ re-wordinτ thσ printe≥ hel≡á pagσá t∩ ì
reflec⌠ thσ ne≈ commands.
That'≤á abou⌠ thσ exten⌠ oµ change≤ implementeΣ s∩ far«á ╔ canno⌠ sel∞ ì
yo⌡á ßá cop∙ oµ hi≤ modifieΣ Wordbeσ becausσ oµ copyrigh⌠ oεá thσá origina∞ ì
program¼á bu⌠ iµ yo⌡ brinτ alonτ you≥ originall∙ purchaseΣ cop∙ oµá Wordbeσ ì
anΣ ß sparσ 276┤ EPROM¼ you≥ cop∙ caε bσ modifieΣ a≤ outlineΣ abovσ fo≥ sa∙ ì
$1░ anΣ burn⌠ int∩ thσ EPROM.
Onσ las⌠ poin⌠ t∩ hel≡ yo⌡ witΦ you≥ mods«á RoΣ Irvinτ Electronic≤ ha≤ ì
beeεá sellinτ 6264(8╦ RAM⌐ chip≤ fo≥ $╖ anΣ thesσ arσ piεá compatiblσá witΦ ì
2764's«á The∙á won'⌠ worδ jus⌠ anywherσ though¼á onl∙ iε placσ oµ thσ BASI├ ì
ROM'≤ and/o≥ PA╦ 0¼ anΣ onl∙ iµ thσ linδ i≤ madσ betweeε "16ó anΣ "17ó nea≥ ì
IC1░á oε thσ coreboarΣ anΣ thσ othe≥ link≤ arσ se⌠ fo≥ 2764's«á Wha⌠á thi≤ ì
mean≤ i≤ tha⌠ yo⌡ caε se⌠ u≡ you≥ modifieΣ Wordbeσ iε ß RA═ chi≡ locateΣ a⌠ ì
PA╦ ░ anΣ tes⌠ ruε i⌠ beforσ burninτ i⌠ int∩ aε EPROM« Wha⌠ yo⌡ can'⌠ d∩ i≤ ì
thro≈á ou⌠á you≥á Basiπ ROM'≤ anΣ pluτ iε RA═ t∩ providσá morσá memor∙á fo≥ ì
Wordbeσ becausσ Wordbeσ make≤ somσ RO═ call≤ int∩ Basic.
Perhap≤á somσ reader≤ havσ othe≥ modification≤ whicΦ cluΓ member≤á ma∙ ì
bσá interesteΣá in¼á o≥ maybσ someonσ wil∞ rewritσá al∞á thi≤á unstructureΣ ì
(throwεá together⌐á codσ int∩ somσ semblancσ oµ order«á ╔ caε bσá contacteΣ ì
afte≥ hour≤ oε 2╣ 7785.
THIS IS ┴ SCREEN DUMP OF THE PRINTER HELP PAGE
PARALLEL PRINTER COMMAND MENU
"\*" = mid-line on/off switch
".*Y" or ".*N" = start of line on/off command
For "*" use: I = italics D = double B = enlarged
U = underline M = embossed C = condensed
"\": \^ = superscript \] = subscript
".": .SP = superscript .SB = subscript .SN = turns either off
DOT commands only: J = justify Z = L/F's with C/R's
NP = new page HE = page header follows FF = form feed
ES = send next line/para as sequence to printer
.LL#xx = line length .LM#xx = left margin .LS#xx = line spacing
.PG#xx = crease gap (0 = single sheet) .PN#xx = page number
.PL#xx = page length (lines) .LH = letterhead
<RETURN> to menu
Tape load: *=any @=force \=append
Thσá listing≤á t∩ suppor⌠ thi≤ articlσ wil∞ bσ publisheΣá nex⌠á month«á Fo≥ ì
thosσ oµ yo⌡ wh∩ canno⌠ wait¼ the∙ wil∞ bσ oε thσ RBB╙ b∙ thσ timσ yo⌡ reaΣ ì
this«á Therσ arσ tw∩ (2⌐ listing≤ fo≥ EDAS═ anΣ onσ (1⌐ wordbeσ file« Thesσ ì
file≤ wil∞ bσ oε thσ boarΣ unde≥ thσ titlσ oµ WORDBEE.WBF¼ WORDBEE1.ED╘ anΣ ì
WORDBEE2.EDT in the directory UTL: .ED
?? HELP ?? HELP ?? HELP ??
Can anyone help me to convert a PRIME IBAS BASIC program to MWB?
Phone Peter Cupitt 233-0096
?? HELP ?? HELP ?? HELP ??èSOFTWARE REVIEW SOFTWARE REVIEW
STRATEGIC GAMES
Froφ Honeysof⌠ oε │ 1/2ó anΣ ╡ 1/4ó disδ. RRP $30.00.
Thi≤á disδ i≤ ful∞ oµ thinkinτ typσ game≤ a≤ thσ namσá implies«á Therσ ì
arσá ╕ game≤ iε al∞ oε thi≤ disk¼á thσ bes⌠ beinτ SYDNE┘ APPROAC╚ - ßá rea∞ ì
timσ ai≥ traffiπ contro∞ game«á Thi≤ gamσ alonσ i≤ enougΦ reasoε t∩ bu∙ thσ ì
disk«á Thσá othe≥ game≤ arσ GRAPHI├ LIFE¼á VIDE╧ MAZE¼á ELIZA¼á NOUGHT╙ anΣ ì
CROSSE╙ (▒ anΣ ▓ planes)¼ SURVIVO╥ (joysticδ anΣ keyboard)« Thσ othe≥ game≤ ì
arσ nothinτ startlinτ bu⌠ yo⌡ caε usσ theφ t∩ pas≤ thσ timσ away« I⌠ i≤ no⌠ ì
ß baΣ valuσ fo≥ mone∙ disk«á Thσ onl∙ probleφ tha⌠ ╔ founΣ i≤ tha⌠ al∞ thσ ì
instruction≤ fo≥ al∞ thσ game≤ arσ oε thσ disk« Thi≤ migh⌠ bσ O╦ fo≥ arcadσ ì
stylσ games¼ bu⌠ fo≥ ß gamσ sucΦ a≤ Sydne∙ Approach¼ witΦ ╡ screen≤ plu≤ oµ ì
instruction≤á wa≤ ß bi⌠ poor.......«á Al∞ iε all¼á ß gooΣ disδ fo≥ iµ onl∙ ì
fo≥ Sydne∙ Approach¼ ß gamσ tha⌠ neve≥ play≤ thσ samσ twice¼ gooΣ luck
HOARDS OF THE DEEP REALM From HONEYSOFT
Oε │ 1/▓ anΣ ╡ 1/┤ incΦ disk≤. RRP. $30.00
HOARDS oµ THE DEEP REALM i≤ aε arcadσ gamσ witΦ ß difference«á I⌠ wa≤ ì
writteε b∙ Vaughaε Clarksoε anΣ ╔ mus⌠ admi⌠ i⌠ i≤ ver∙ good« Thi≤ gamσ ha≤ ì
ß tota∞ oµ 50¼ ye≤ 50¼ differen⌠ screen≤ t∩ finΣ you≥ wa∙ through« Thσ ideß ì
i≤á t∩ recove≥ "chestsó arounΣ thσ areß unti∞ yo⌡ havσ theφ all«á Theεá aε ì
escapσ ladde≥ appear≤ anΣ help≤ yo⌡ ou⌠ ont∩ thσ nex⌠ screen«á T∩ sto≡á yo⌡ ì
gettinτá thesσá chest≤á arσ nast∙ littlσá thing≤á calleΣá wraiths«á
Thesσá wraith≤á picδ u≡ thσ chest≤ fo≥ ß whilσ anΣá theεá dro≡á theφ ì
again¼ thσ wraith≤ als∩ kil∞ yo⌡ iµ yo⌡ ruε int∩ them« Thσ onl∙ wa∙ t∩ kil∞ ì
ß wraitΦ i≤ t∩ diτ ß holσ fo≥ hiφ t∩ fal∞ into« Hσ wil∞ theε dro≡ ß ches⌠ ì
iµ hσ i≤ carryinτ one«á Bu⌠ bσ carefu∞ becausσ the∙ caε climΓ ou⌠ again«á ┴ ì
wraitΦ wil∞ als∩ re-appea≥ afte≥ deatΦ anΣ chasσ yo⌡ agaiε anΣ again«
Therσ i≤ als∩ thσ abilit∙ t∩ desigε you≥ owε screen≤ s∩ tha⌠ yo⌡ can'⌠ ì
ge⌠ bored«á Als∩ yo⌡ caε star⌠ thσ gamσ a⌠ an∙ level«á Sa∙ yo⌡ caε pla∙ u≡ ì
t∩á leve∞ 1░ witΦ you≥ eye≤ closeΣ anΣ i⌠ i≤ becominτ ß bi⌠ boring¼á yo⌡ ì
caε tel∞ thσ gamσ t∩ star⌠ a⌠ leve∞ 1▒ anΣ awa∙ yo⌡ go......
Likσá ╔á said¼áá ßá trul∙á grea⌠á gamσá anΣá wel∞á wortΦá $30.00«á Thσ ì
instruction≤ arσ ver∙ gooΣ anΣ eas∙ t∩ understand«á Thσ keyboarΣ control≤ ì
arσá ß littlσ bi⌠ harΣ t∩ ge⌠ thσ hanτ of¼á ß joysticδ i≤ bette≥á (eithe≥ ì
caε bσ used)«á Thσ onl∙ probleφ ╔ founΣ i≤ tha⌠ oε thσ las⌠ pagσ oµá thσ ì
instructioεá booδá i⌠á tell≤á yo⌡ t∩ savσ thσá prograφá STANDARD.SC╬á t∩ ì
maintaiε ß blanδ scorσ list«á Bu⌠ beinτ eage≥ t∩ tr∙ ou⌠ thσá game¼á gues≤ ì
wh∩ didn'⌠ reaΣ al∞ thσ wa∙ througΦ thσ book« Bes⌠ oµ lucδ witΦ thσ game« ì
╔ hopσ tha⌠ yo⌡ finΣ i⌠ a≤ interestinτ a≤ ╔ do« Regards Malcolm Osborne.
?? HELP ?? HELP ?? HELP ??
Doe≤ anyonσ havσ ß Famil∙ treσ prograφ oε cassettσ fo≥ ß 32δ Bee┐á Als∩á i≤ ì
therσá ßá screeεá dum≡ whicΦ wil∞ prin⌠ thσ entirσ screeε oµ ß PC8╡á t∩á aε ì
Epsoε LX-8░ printer┐á Contac⌠ Tiφ vaε de≥ Poe∞ (Bacchu≤ March⌐ B/╚ 05│á 67-ì
388╕ o≥ A/╚ 05│ 67-3743.
In answer to the rest of your letter the answer is YES. ED.
?? HELP ?? HELP ?? HELP ??è HELPS AND OTHER THINGS
Thσ followinτ havσ beeε takeε ofµ thσ RBBS«á Iµ yo⌡ havσ thσá answers¼ ì
yo⌡á caε leavσ theφ oε thσ RBBS¼á contac⌠ thσ peoplσ wh∩ havσ phonσ number≤ ì
o≥ givσ theφ t∩ mσ t∩ publish« Thesσ request≤ come¼ a≤ is¼ ofµ thσ BB« ED.
From║ ERI├ REABUR╬ To║ AL╠ Re║ bootinτ (warm)
╔ owε ß CIAB« ╔ havσ recentl∙ comσ acros≤ aε annoyinτ bug« Wheε ß warφ boo⌠ ì
i≤ donσ (eithe≥ viß CTRL-├ o≥ program)¼á sometime≤ thσ auto-boo⌠ commanΣ i≤ ì
ruε eveε thougΦ thi≤ i≤ se⌠ t∩ colΣ boo⌠ onlyí Ha≤ an∙ onσ elsσ experienceΣ ì
this?
From║ WARRE╬ SMIT╚ To║ AL╠ Re║ RTTY
HA╙ AN┘ ON┼ OU╘ THER┼ GO╘ TH┼ ETI-73│ RTT┘ KI╘ GOIN╟ O╬ ┴ 3.37╡ MH┌ BEE┐á ╔ ì
HAV┼á ┴á FEELIN╟á THA╘á I╘ WA╙ WRITTE╬ O╬ ┴ SLOWE╥ BE┼ S╧á TH┼á DELAY╙á AR┼ ì
PROBABL┘ AL╠ WRONG« A═ ╔ CORREC╘ I╬ SAYIN╟ THIS┐ I╞ AN┘ ON┼ HA╙ I╘ WORKIN╟ ì
O╬ ┴ FASTE╥ BEE¼á THE╬ PLEAS┼ LEAV┼ A╬ MSG¼á EXPLAININ╟ TH┼ SOFTWAR┼á MODS« ì
ALSO¼ DOE╙ AN┘ ON┼ HAV┼ ┴ MOR┼ EXTENSIV┼ LIS╘ O╞ RTT┘ FREQUENCIES?
From║ MALCOL═ OSBORN┼ To║ AL╠ Re║ SPELLSTAR
I╙ THER┼ ┴ PUBLI├ DOMAI╬ VERSIO╬ O╞ SPELLSTA╥ AROUN─ ┐ O╥ ┴ SIMILA╥ TYP┼ O╞ ì
PROGRAM« ╔ HEAR─ SOMEON┼ MENTIO╬ IT. (yes in the MBUG bazaar. ED)
From║ JOH╬ RINGER╔ To║ AL╠ Re║ MID╔ INTERFACE
I'═ INTERESTE─ I╬ OBTAININ╟ FURTHE╥ INFORMATIO╬ O╬ USIN╟ TH┼ 128╦á MICROBE┼ ì
WIT╚ MUSICA╠ INSTRUMEN╘ DIGITA╠ INTERFAC┼ (MIDI⌐ EQUIPPE─ SYNTHESIZERS«á A╘ ì
TH┼á MOMEN╘ ╔ HAV┼ ACCES╙ T╧ ┴ KOR╟ MODE╠ DW-600░ SYNTHESISER«á I╞á ANYBOD┘ ì
HA╙á DON┼á AN┘á WOR╦ O╬ THI╙ SUBJEC╘ COUL─ YO╒ LE╘ M┼ KNO╫á EITHE╥á O╬á TH┼ ì
BULLETI╬ BOAR─ O╥ B┘ RINGIN╟ M┼ O╬ 45╣ 541╢ A.H.
From║ ROBER╘ HOUGHTO╬ To║ AL╠ Re║ REQUESTIN╟ HELP!
╔á havσ jus⌠ purchaseΣ aε Epsoε LX-8░ Printe≥ Fo≥ M∙ 64δ CIA┬ anΣ ╔ aφ ver∙ ì
eage≥á t∩á tr∙ i⌠ out«á ╔ havσ Thσ Hacker≤ Handbooδ anΣá Assembl∙á Languagσ ì
Programinτá book≤á WhicΦ botΦ havσ assembl∙ languagσ listing≤ iεá theφá fo≥ ì
Graphic≤ Screeε Dumps« ╔ typeΣ botΦ oµ theφ iε anΣ the∙ botΦ didn'⌠ work« ╔ ì
suspec⌠ thσ onσ iε thσ seconΣ booδ mentioneΣ abovσ wa≤ writteε onl∙ t∩ worδ ì
oεá ß 32δ Roφ baseΣ Machine«á Thσ 3Σ Surfacσ plotte≥ prograφ a⌠ thσ enΣá oµ ì
thσ Hacker≤ Handbooδ workeΣ anΣ printeΣ t∩ thσ printe≥ bu⌠ thσ graphic≤ haΣ ì
line≤á breakinτ i⌠ apar⌠ e.τ ╔ thinδ thσ linσ feeΣ need≤ adjustinτ fo≥á thσ ì
Particula≥á graphic≤á Modσ set«á Iµ anyonσ coulΣ relievσ m∙ frustratioεá o≥ ì
uploaΣ ß graphic≤ dum≡ prograφ coulΣ yo⌡ pleasσ leavσ ß messagσ oε thσ RBBS
From║ MICHAE╠ TOOT╚ To║ AL╠ Re║ Z8░ ASSEMBLER
╔á WOUL─ LIK┼ T╧ FIN─ ┴ GOO─ Z8░ ASSEMBLE╥ O╬ PUBLI├ DOMAIN«á ╔á DOWNLOADE─ ì
ON┼á FRO═á TARDI╙ CALLE─ Z80AS═ [CPMCAT.016▌ BU╘ I╘ WOUL─ SEE═ T╧á M┼á THA╘ ì
THER┼ MUS╘ B┼ BETTE╥ ONE╙ AVAILABLE« AN┘ SUGGESTION╙ O╥ UPLOADS?
From║ DARRE╬ BREEZ┼ To║ AL╠ Re║ 279│ HEA╘ PROBLEM
╔á HAV┼ TROUBL┼ WIT╚ M┘ 56╦ AP├ 279│ DIS╦ CONTROLLE╥ CAR─ I╘ I╙ ┴ WIR┼ WRA╨ ì
HOM┼ BRE╫ THA╘ GIV┼ FAULTLES╙ SERVIC┼ UNTI╠ TH┼ AMBIEN╘ TEM╨ GET╙ T╧ 2╢ DE╟ ì
C«á I╘á THE╬ GIVE╙ ENDLES╙ BA─ SECTO╥ ERRORS¼á WON╘ FORMA╘ DISK╙á O╥á WAR═ ì
BOOT« CA╬ ANYON┼ GIV┼ M┼ ┴ CLU┼ T╧ THI╙ FAUL╘ ?┐ D« BREEZEèFrom║ TERR┘ MURPH┘ To║ AL╠ Re║ hel≡ - visioε i÷ monito≥
I≤ i⌠ possiblσ t∩ attacΦ ß TAXA╬ Visioε I╓ colou≥ monito≥ to∩ ß colour-bee« ì
Iµ s∩ How┐á Thi≤ monito≥ ha≤ 24.7╡ KH· horizonta∞ scaε frequenc∙ wherσ mos⌠ ì
havσá 15.7╡á KHz«á Wheε pluggeΣ int∩ thσ 'Beσ onl∙ abou⌠ 3░ character≤á fi⌠ ì
acros≤ thσ screeε anΣ theε thσ linσ i≤ overwritteε witΦ thσ rest« ╔ presumσ ì
eithe≥ thσ colou≥ boarΣ o≥ thσ monito≥ require≤ modification« An∙ clues?
From║ DARRE╬ BREEZ┼ To║ AL╠ Re║ 40/80trk
╔ aφ usinτ thσ boo⌠ roφ patche≤ b∙ Marδ Bisho≡ anΣ Marksº bio≤ patche≤ witΦ ì
somσ modifications«á thσ systeφ work≤ faultlessly«á ╔ havσ removeΣ thσ aut∩ ì
forma⌠á selectioεá froφá thσ bio≤ anΣ se⌠ i⌠ u≡ t∩ boo⌠ u≡ anΣá kno≈á tha⌠ ì
drivσ ┴ ª ┬ havσ 4░ trk≤ anΣ ├ ha≤ 8░ trks«á Thi≤ bio≤ i≤ full∙á compatablσ ì
witΦ "setdisk"« Iµ anyonσ i≤ interesteΣ iε thi≤ bio≤ moΣ leavσ mσ ß messagσ ì
anΣ ╔ wil∞ uploaΣ thσ patcΦ details«á ps«á Marδ B¼á thanδ yo⌡ fo≥ uploadinτ ì
thσ 40/8░ trδ info¼ i⌠ workeΣ faultlessl∙ firs⌠ timσ !!
From║ ERI├ GUNSTON┼ To║ AL╠ Re║ viate∞ probs
Caεá anyonσá hel≡á me¼á ╔ havσ ß probleφ witΦ Viate∞ 1.│á I⌠á appear≤á tha⌠ ì
Occasionall∙á wheε ╔ exi⌠ froφ Viate∞ anΣ "saveó ß filσ oµ page≤ m∙á systeφ ì
crashe≤á completely¼á ╔ havσ t∩ powe≥ dowε t∩ eveε ge⌠ bacδ int∩ Viate∞ anΣ ì
therσá i≤á n∩á filσ saveΣ othe≥ time≤ i⌠ work≤á OK¼á Anyonσ an∙ clues???
From║ ROBER╘ NEWMA╬ To║ AL╠ Re║ 56╦ UPGRADE
╔ aφ goinτ t∩ upgradσ m∙ BE┼ t∩ 56δ anΣ ╔ havσ thσ instruction≤ usinτá 611╢ ì
RAM«á ╔á wa≤á jus⌠ wonderinτ iµ anyonσ kne≈ iµ ß piε compatiblσ RA═ t∩á thσ ì
253▓ EPROM≤ existed┐ Iµ s∩ wa≤ i⌠ possiblσ t∩ usσ these?
From║ KRISTIA╬ PAR╔ To║ MICROBE┼ Re║ GAMES
I╞ AN┘ BOD┘ HA╙ GAME╙ FO╥ TH┼ MICROBE┼ O╬ TAP┼ PHON┼ M┼ 842-6852
From║ BILLANOO╦ COLLEG┼ To║ AL╠ Re║ sany∩ mbπ 55░ fo≥ sale
Wσ havσ ß neve≥ useΣ Sany∩ MBB├ 55░ fo≥ sale«á Ful∞ IB═ comp«
PΦ Oweε Bake≥ 725-5388
From║ ROBER╘ HOUGHTO╬ To║ AL╠ Re║ REQUESTIN╟ HEL╨ FO╥ EDASM
WOUL─á an∙ bod∙ ou⌠ therσ likσ t∩ leavσ ß messagσ oε ho≈ yo⌡ savσ assembleΣ ì
codσ ont∩ disδ froφ edasφ anΣ no⌠ havinτ t∩ ge⌠ int∩ thσ monito≥ anΣ savinτ ì
i⌠ t∩ tapσ anΣ theε loadinτ i⌠ agaiε t∩ usσ it« ╔ hopσ ╔ aφ makinτ sensσ a≤ ì
╔ aφ relativel∙ ne≈ t∩ assembl∙ languagσ programminτ oε thσ BEE.
From║ COLI╬ BUCKL┼ To║ MAR╦ BISHO╨ Re║ SETDISK.WST
╔á RECENTL┘á DOWNLOADE─ TH┼ SETDIS╦ PROGRA═ AN─ FOUN─ TH┼ IB═ FORMA╘á WHIC╚ ì
FOLLOW╙á T╧á B┼á CORREC╘á AN─ I╘ HA╙á BEE╬á TESTED«á IB═á P├á USIN╟á CPM/8╢ ì
(40T,DS,DD,316K⌐ INCLUDIN╟ XT
0,3,32,4,15,1,157,63,128,0,16,1
1,2,3,4,5,6,7,8
èFrom║ CHRI╙ BENNETT╙ To║ AL╠ Re║ TURBO
Doe≤ anybod∙ kno≈ ho≈ t∩ ge⌠ riΣ oµ thσ Curso≥ iε Turb∩ Pascal┐á Wha⌠á i≤ ì
thσ bes⌠ wa∙ t∩ tes⌠ fo≥ ß C╥ wheε readinτ thσ KBD¼á ╔ founΣ thσ onl∙ wa∙ ì
wa≤ t∩ asδ wa≤ iµ KB─ Cha≥ wa≤ ╜ ''¼ therσ mus⌠ bσ ß bette≥ way?
From║ PETE╥ BROUGHTO╬ To║ AL╠ Re║ setdisδ
Latel∙á ╔á havσá hearΣ somσ comment≤ abou⌠ difficultie≤ witΦá usinτá doublσ ì
sideΣá 8░ tracδ drive≤ witΦ thσ 128δ bios«á Thσ probleφ i≤ duσ t∩ thσá fac⌠ ì
tha⌠á thσá allocatioε blocδ tablσ i≤ twicσá norma∞á size«á However¼á iµá 4δ ì
allocatioεá block≤á arσá useΣ insteaΣ oµ 2δ block≤ thi≤á probleφá woulΣá bσ ì
avoided«á Anothe≥ advantagσ oµ usinτ 4δ block≤ i≤ tha⌠ onσ director∙ exten⌠ ì
i≤á 64δá insteaΣ oµ onl∙ 16k«á Thσ disadvantage≤ arσ morσ wastσ disδá spacσ ì
followinτá datß caε bσ addeΣ t∩ thσ SETDISK.WS╘ filσ t∩ givσ yo⌡á ßá doublσ ì
sided¼ 8░ tracδ forma⌠ witΦ 4δ alloc« blocks.
Microbeσ ModifieΣ Doublσ (80T¼ DS¼ DD¼ 788k¼ 784δ usable)
1,3,40,5,31,3,196,127,128,0,32,2
2,5,8,1,4,7,10,3,6,9
From║ JI═ MAUNDE╥ To║ AL╠ Re║ Kermi⌠ b∙ G.Arnet⌠ ª AUSTPAC
I'φá usinτ BeeKermi⌠ v4.▒ b∙ Garne≥ Arnet⌠ t∩ d∩ ß coursσ calleΣá Computinτ ì
Fundamental≤ froφ Deakiε Universit∙ nea≥ Geelong«á ╔ havσ obtaineΣá AUSTPA├ ì
access«á Unfortunatel∙á ╔ can⌠ ge⌠ thσ filσ transfer≤ t∩ worδ ove≥ AUSTPAC¼ ì
eveε thougΦ i⌠ work≤ oδ fo≥ interactivσ worδ anΣ doe≤ filσ transfer≤ oδ viß ì
STD«á Ha≤á anyonσá ou⌠ therσ go⌠ thi≤ Kermi⌠ t∩ worδ vißá AUSTPAC┐á Iµá s∩ ì
pleasσ leavσ ß repl∙ o≥ phonσ mσ 89░ 546╢ (H⌐ o≥ 41╕ 067▒ (W⌐ Jiφ Maunder
From║ RUSSEL╠ HANSC╚ To║ AL╠ Re║ cpφ anΣ othe≥ programs
Wha⌠ utilitie≤ arσ wortΦ havinτ oε ß 128δ twiε disδ system┐
wha⌠ i≤ ß gooΣ cataloτ program┐ *
wha⌠ i≤ thσ prograφ tha⌠ give≤ aε "ß t∩ zó directory? *
ho≈ doe≤ onσ usσ spool.obj ,spooler1.mwb, dump.wbf, search.obj?
doe≤ anyonσ havσ thσ prograφs movcpm.com, unload.com *
doe≤ anybod∙ havσ ß prograφ t∩ changσ basiπ froφ ß 16*2┤ t∩ 25*8░á display¼ ì
prin⌠ largσ character≤ oε thσ printer, spellstar anΣ sta≥ index
(Russell had better come to hackers night for files marked *)
(Spellstar & Starindex are copyright. Try buying them. ED)
From║ DAVI─ HUNTE╥ To║ AL╠ Re║ RESE╘ TROUBLE╙ C.I.A.B.
CA╬á ANYON┼á HEL╨á M┼á WIT╚ ┴ RESE╘á PROBLE═á WIT╚á M┘á C.I.A.B«á PRESENTL┘ ì
RESETTIN╟á TH┼á MACHIN┼ I╙ ┴ HI╘ O╥ MIS╙ AFFAI╥ WIT╚ QUIT┼ OFTE╬ ┴á JA═á U╨ ì
OCCURRING« AN┘ HEL╨ WOUL─ B┼ APPRECIATED«
From║ MIRK╧ FLUHE╥ To║ AL╠ Re║ catm.source
Ha≤ anybod∙ go⌠ (o≥ know≤ wherσ t∩ get⌐ thσ sourcσ oµ CAT═ b∙ D«á DunforΣ ª ì
R« Preecσ ?┐
è*** 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
SDS│ Blanδ 3.5ó Disk≤ (FUJ╔ SSDD⌐ $ 6.00
WCO┤á WILDCARD╙á ┤ $13.0░á SDB│áBlanδ 3.5ó Disk≤ (1░ pe≥ box⌐ $50.00
BB0▒á Basiπá fo≥á Beginner≤ (D.Kenny⌐á $15.0░á
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ε DB3┤ Disδ Storagσ Bo° 3.╡ (hold≤ 35⌐ $18.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
GS0▒ Bunyi≡á Adventurσá } Tapσá $25.0░á GJ0▒ Joysticδ $42.00
GS0▓áGrotniδá War≤ ²á 3.5ó $27.0░á WHM▒ Write-Hand-Man $38.00
GS0│áFli≡áá } 5.25" $23.00 SS01 Spread Sheet $34.00
MLP1 Mailing Label Processor $34.00 KSF1 Keyed Sequential Files $32.00
GM01 Menus $34.00 WS01 Window System $30.00
SP01 Spooler $40.00 SC01 Spelling Checker $26.00
CW01 Crossword Game $26.00
When ordering disks PLEASE specify 3.5" or 5.25"
Setdisk and CP/═ Utilitie≤ no≈ availablσ froφ Tapσ Librariaε only.
Please note NEW HIGHER prices on Grotnik goods
** 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 Security Post add $4.50
MINIMUM POSTAL ORDER $10.00
*** BAZAAR SALES *** BAZAAR SALES ***è XREFMWB.BA╙ Marδ Bisho≡ 20.12.84
áá
Thi≤á disδ utilit∙ wil∞ compilσ ß cros≤ referencσ tablσ oµ ßá Microbeσ ì
prograφá writteεá iε MicroworlΣ Basiπ (M╫ BASIC)«á I⌠ i≤ ver∙ usefu∞á wheε ì
tryinτ t∩ understanΣ thσ logiπ oµ someonσ else'≤ prograφ (o≥ you≥ owεá !!!⌐ ì
o≥ iµ yo⌡ wan⌠ t∩ makσ somσ changes« Typica∞ prograφ outpu⌠ woulΣ be:-
CROS╙ REFERENC┼ LISTIN╟ FO╥ PROGRA═ FILE║ B:DUMMY.MWB
ááREF« LINEú REFERENCE─ I╬ LINE#
ááO╥ VARIABLE
áá 12░ 680
áá 17░ 130
áá 18░ 23░ 27░ 280
áá 30░ 15░ 19░ 22░ 250
áá┴ 10░ 15░ 20░ 21░ 260
ááA1ñ 12░ 12░ 140
ááB▒ 100
ááB1$(SUB⌐ 11░ 17░ 190
ááetc.
Iε thi≤ fictitiou≤ examplσ ß subroutinσ a⌠ linσ 30░ i≤ calleΣ froφ line≤ ì
150,190,22░á ªá 250«á Linσ 18░ i≤ thσ targe⌠ oµ GOTO'≤ iε line≤ 230,27░á ª ì
280«á Arra∙ variablσ B▒ i≤ DIMensioneΣ iε 100¼á anΣ useΣ a≤ ß strinτ arra∙ ì
iε 110,17░ ª 190«á Intege≥ variablσ ┴ i≤ useΣ iε line≤á 100,150,200,210,anΣ ì
260« Strinτ variablσ A1ñ i≤ useΣ twicσ iε linσ 120.
XREFMWB.BA╙á i≤á aεá adaptioε oµ ß Microsof⌠á Basiπá (MBASIC⌐á prograφ ì
CROSSREF.BA╙á whicΦ ╔ founΣ oε ß Bulletiε Board¼á anΣ wa≤ originall∙ ß BYT┼ ì
articlσ iε Augus⌠ 1983« CROSSREF.BA╙ doe≤ ß cros≤ ref« oε MBASI├ programs«
XREFMWB.BA╙á i≤ writteε iε MBASI├ anΣ wa≤ no⌠ re-writteε iε M╫á BASI├ ì
becausσ M╫ BASI├ doe≤ no⌠ suppor⌠ Randoφ Acces≤ files¼ wherea≤ MBASI├ does.
B∙á usinτ R┴ file≤ onl∙ 12╕ byte≤ oµ thσ prograφ t∩ bσ referenceΣ need≤á bσ ì
iε memor∙ a⌠ ß time¼á allowinτ morσ rooφ fo≥ thσ strinτ array≤ whicΦá storσ ì
thσ cros≤ reference« ie« ß large≥ prograφ caε bσ cros≤ referenced« Becausσ ì
XREFMWB.BA╙ i≤ writteε iε MBASI├ anΣ no⌠ machine-codσ i⌠ i≤ fairl∙ slo≈ t∩ ì
run«á Thσ M╫ BASI├ gamσ 'Concentrationº (12K¼á 25╖ lines⌐ take≤ ┤ minute≤ ì
t∩á proces≤á anΣá ß furthe≥ ╕ minute≤ t∩ sor⌠ thσ strinτá array≤á prio≥á t∩ ì
LPRINTing« Bu⌠ ╔ thinδ yo⌡ wil∞ finΣ thσ result≤ wortΦ thσ wait.
Iµá yo⌡ don'⌠ havσ ß printer¼á changσ al∞ LPRIN╘ statement≤ t∩á PRINT¼ ì
anΣ pu⌠ ß 'wai⌠ fo≥ ke∙ entryº routinσ prio≥ t∩ them« BotΦ XREFMWB.BA╙ anΣ ì
CROSSREF.BA╙ arσ oε thσ MBU╟ Australiß RBBS« ╔ havσ pu⌠ XREFMWB.BA╙ iε thσ ì
publiπ domaiε fo≥ non-commercia∞ useagσ provideΣ thσ credit≤ iε thσ firs⌠ │ ì
line≤ arσ lef⌠ intact«
The listing is exactely as it would appear on your screen in MBASIC.
1░ RE═ 'XREFMWB.BASº ┴ MICROBE┼ UTILIT┘ WRITTE╬ I╬ MICROSOF╘ BASIC¼ T╧ LPRINT
20 REM A MICROWORLD BASIC CROSS REF.TABLE - BYTE 8/83 - (MOD. WD 2/84)
30 REM Input file changed Microsoft to Microworld Basic by M.Bishop 20/12/85
40 PRINT CHR$(26): PRINT "MICROBEE BASIC CROSS REFERENCE": PRINT: PRINT
50 PRINT "Note that the program is slow to run, but it is worthwhile.":PRINT
60 PRINT: PRINT"Enter the file name to be Cross Referenced - eg B:SCREEN.MWB"
70 PRINT
80 DIM LABEL$(2500),LINE.REF%(2500),C$(128)è90 LABEL.NUMBER=0 :FALSE=0 :TRUE=NOT FALSE :POINTER=129
100 TOKEN=FALSE
110 INPUT "ENTER FILE NAME";FILENAME$: PRINT
120 OPEN "R",#1,FILENAME$
130 FOR I=1 TO 128
140 FIELD #1,(I-1) AS X$,1 AS C$(I)
150 NEXT I
160 FOR I=1 TO 64: GOSUB 1040: NEXT I: REM SKIP MICROBEE BASIC SCRATCH PAD
170 GOSUB 1040: LOW.BYTE=C: GOSUB 1040: HIGH.BYTE=C
180 WHILE (LOW.BYTE <> 255) AND (HIGH.BYTE <> 255): REM NOT END OF PROGRAM
190 LINE.NO%=LOW.BYTE*256+HIGH.BYTE
200 PRINT "PROCESSING LINE N0. ";LINE.NO%
210 GOSUB 1040: REM SKIP RELATIVE JUMP BYTE
220 GOSUB 1040: REM GET ASCII NEXT CHR IN C
230 WHILE C<>13: REM NOT END OF LINE
240 IF C<128 THEN 290: REM NOT A TOKEN CODE
250 IF C=161 OR C=148 THEN WHILE C<>13 :GOSUB 1040 :WEND :GOTO 350:
REM SKIP REM OR DATA STATEMENTS
260 IF C=160 THEN GOSUB 1040: WHILE C<>35 :GOSUB 1040: WEND: REM SKIP OUT(L)#
270 IF C=136 OR C=137 OR C=139 OR C=141 OR C=146 OR C=152 THEN TOKEN=TRUE:
GOTO 340: REM LINE NUMBERS ONLY FOR ELSE,THEN,NEXT,GOTO,GOSUB,RESTORE
280 IF C=129 OR C=138 OR C=177 OR C=219 THEN TOKEN=FALSE: GOTO 340:
REM NO LINE NUMBERS AFTER LET,FOR,CURS,PLAY
290 IF C=58 THEN TOKEN=FALSE: GOTO 340: REM ':' MARKS END OF STATEMENT
300 IF (C>64 AND C<91) THEN GOSUB 840 :GOTO 350: REM A - Z SO IS A VARIABLE
310 IF C=34 THEN GOSUB 1040 :WHILE C><34 AND C<>13 :GOSUB 1040 :WEND :
IF C=13 GOTO 350 :GOTO 340: REM IGNORE CHRS BETWEEN QUOTES
320 IF (TOKEN=TRUE AND C>47 AND C<58) THEN GOSUB 970: GOTO 350: REM LINE
330 IF C=91 THEN GOSUB 1040: WHILE C<>93 :GOSUB 1040: WEND: REM SKIP ALL [ ]
340 GOSUB 1040
350 WEND
360 IF C=13 THEN TOKEN=FALSE
370 GOSUB 800
380 WEND
390 REM SORTING OF LABELS & LINE NUMBERS
400 PRINT: PRINT "PROCESSING COMPLETE . . .": PRINT
410 PASS=0
420 G%=LABEL.NUMBER
430 PASSES=INT(LOG(G%)/LOG(2))+1
440 WHILE G%>1
450 PASS=PASS+1
460 PRINT "SORTING :PASS ";PASS;" OF ";PASSES;" PASSES
470 SORTED=FALSE
480 G%=G%/2
490 WHILE NOT SORTED
500 SORTED=TRUE
510 FOR I%=1 TO LABEL.NUMBER-G%
520 IG%=G%+I%
530 IF LABEL$(I%)<LABEL$(IG%) GOTO 620
540 IF LABEL$(I%)=LABEL$(IG%) GOTO 590
550 SWAP LABEL$(I%),LABEL$(IG%)
560 SWAP LINE.REF%(I%),LINE.REF%(IG%)
570 SORTED=FALSE
580 GOTO 620
590 IF LINE.REF%(I%) =<LINE.REF%(IG%) GOTO 620
600 SWAP LINE.REF%(I%),LINE.REF%(IG%)
610 SORTED=FALSE
620 NEXT I%è630 WEND
640 WEND
650 PRINT:PRINT "SORT COMPLETE . . .WRITING FILE" :PRINT :WIDTH LPRINT 80
660 LPRINT "CROSS REFERENCE LISTING FOR PROGRAM FILE: ";FILENAME$
670 REM PRINTOUT OF CROSS REFERENCE TABLE
680 I=1 :LPRINT :LPRINT "REF. LINE# REFERENCED IN LINE#"
690 LPRINT "OR VARIABLE"
700 WHILE I=<LABEL.NUMBER
710 LPRINT LABEL$(I);TAB(18);
720 CURRENT.LABEL$=LABEL$(I) :N=1
730 WHILE LABEL$(I)=CURRENT.LABEL$
740 LPRINT USING "##### ";LINE.REF%(I);
750 I=I+1 :N=N+1 :IF N>9 THEN LPRINT ,TAB(18); :N=1
760 WEND
770 LPRINT
780 WEND
790 PRINT "END" :END
800 REM SUB TO OBTAIN BASICS OFFSET ADDRESS FOR LINE
810 GOSUB 1040 :LOW.BYTE=C
820 GOSUB 1040 :HIGH.BYTE=C
830 RETURN
840 REM SUB TO GET VARIABLE NAME
850 LABEL.NUMBER=LABEL.NUMBER+1
860 LABEL$(LABEL.NUMBER)=CHR$(C)
870 GOSUB 1040
880 WHILE (C>47 AND C<58) OR (C>64 AND C<91) OR C=46
890 LABEL$(LABEL.NUMBER)=LABEL$(LABEL.NUMBER)+CHR$(C)
900 GOSUB 1040
910 WEND
920 IF (C>34 AND C<38) OR C=33 THEN LABEL$(LABEL.NUMBER)=LABEL$(LABEL.NUMBER)
+CHR$(C) :GOSUB 1040
930 WHILE C=32 :GOSUB 1040 :WEND
940 IF C=40 THEN LABEL$(LABEL.NUMBER)=LABEL$(LABEL.NUMBER)+"(SUB)" :GOSUB 1040
950 LINE.REF%(LABEL.NUMBER)=LINE.NO%
960 RETURN
970 REM SUB TO GET LINE NUMBER
980 LABEL.NUMBER=LABEL.NUMBER+1
990 LINE.REF%(LABEL.NUMBER)=LINE.NO%: LINENUMBER$=""
1000 WHILE C>47 AND C<58: LINENUMBER$=LINENUMBER$+CHR$(C): GOSUB 1040: WEND
1010 LABEL$(LABEL.NUMBER)=SPACE$(5)
1020 RSET LABEL$(LABEL.NUMBER)=LINENUMBER$
1030 RETURN
1040 REM SUB TO GET ASCII VALUE FOR NEXT CHARACTER (C) IN FILE
1050 IF POINTER<128 GOTO 1080
1060 GET #1
1070 POINTER=0
1080 POINTER=POINTER+1
1090 C=ASC(C$(POINTER))
1100 RETURN
1110 END OF PROGRAM LISTING
?? HELP ?? HELP ?? HELP ??
Anybod∙ haΣ problem≤ formattinτ drivσ b:¼á o≥ puttinτ ß systeφ oε drivσá B║ ì
oε ß "Chookó usinτ DISKETT┼ MANAGER┐
?? HELP ?? HELP ?? HELP ??è WINDOW-C.LBR
By Davσ Nowlan
Thσá followinτ tex⌠ ha≤ beeε lifteΣ ofµ ß disδ supplieΣ t∩ mσ fo≥á usσ ì
iε thσ Catcher« A≤ i⌠ i≤ to∩ big¼ ╔ havσ onl∙ includeΣ thi≤ (par⌠ only⌐ doπ ì
filσá anΣ ╔ havσ placeΣ thσ wholσ se⌠ oµ file≤ oε thσ Bulletiε BoarΣ iε Di≥ ì
"Có unde≥ thσ namσ "WINDOW-C.LBR". ED
Herσ arσ somσ ├ program≤ whicΦ arσ m∙ attemp⌠ t∩ builΣ anΣ demonstratσ ì
window≤á includinτ gloriou≤ technicolour«á ╔ woulΣ appreciatσá constructivσ ì
criticisφ anΣ als∩ somσ advicσ oε thσ bugs.
I⌠á al∞á starteΣ a≤ aε attemp⌠ t∩ cop∙ somσ oµ thσ feature≤á oµá IBM'≤ ì
BASIC┴á iσá thσ abilit∙ t∩ operatσ oε (eτ clear⌐ onl∙ par⌠ oµá thσá screen« ì
Therσá i≤á als∩ thσ probleφ oµ handlinτ colou≥ (aφ ╔ thσ onl∙á onσá witΦá ß ì
colou≥ disπ system?).
*á defines.Φá i≤á ßá filσ whicΦ define≤ thσ Windo≈ structurσ anΣá als∩á thσ ì
variou≤á commands«á A≤ fa≥ a≤ possiblσ thesσ arσ simila≥ t∩ thσ norma∞ 654╡ ì
commands«á Thi≤á filσ mus⌠ bσ includeΣ iε al∞ ├ file≤ whicΦ usσ thσá windo≈ ì
routines.
¬á windows.πá hold≤ thσ variou≤ windo≈ routines«á A≤ i⌠ i≤ herσ i⌠ mus⌠á bσ ì
áááincludeΣ iε onσ (anΣ onl∙ one⌐ oµ thσ file≤ makinτ u≡ thσ program.
Wcurso≥áá i≤á supposeΣá t∩á positioεá thσá CP/═á curso≥á a⌠á thσáá positioε ì
correspondinτ t∩ thσ CursX,┘ positioε iε thσ curren⌠ window.
Wdispla∙ i≤ reall∙ ß debugginτ aid
WfolΣ bring≤ thσ CursX,┘ positioε bacδ int∩ thσ windo≈ eτ wra≡ t∩ thσá nex⌠ ì
line
Wgetcha≥ get≤ ß characte≥ froφ thσ keyboard« Notσ i⌠ ignore≤ nulls.
Wget≤á return≤á thσá addres≤á oµ ß strinτ froφ thσá keyboarΣá b∙á iterativσ ì
call≤á oεá Wgetchar«á Thσá norma∞á GET╙á canno⌠ bσá useΣá a≤á i⌠á doe≤á no⌠ ì
handlσ colour≤ anΣ wil∞ ignorσ thσ windo≈ boundaries.
Winitia∞á mus⌠á bσá thσá firs⌠ routinσ calleΣ a≤á i⌠á set≤á u≡á thσá Screeε ì
structurσ anΣ thσ backgrounΣ colours
Wpokσá put≤á thσ characte≥ iε thσ righ⌠ placσ (anΣ iε thσ righ⌠ colour⌐á oε ì
thσ screen«
Wputcha≥á put≤á ß characte≥ usinτ Wpokσ afte≥ sortinτ ou⌠ al∞á thσá contro∞ ì
character≤ a≤ iε wdefines
Wput≤ put≤ ß strinτ usinτ iterativσ call≤ oε Wputchar
Wsizσ change≤ thσ Screeε size╗ i⌠ shoulΣ probabl∙ bσ buil⌠ int∩ Winitial
* ááádisc.πá i≤ ß prograφ whicΦ use≤ window≤ t∩ sho≈ ho≈ ful∞ anΣ tid∙á thσ ì
ááááádisπ is« Givσ i⌠ ß burl.
*á áátest.πá wa≤á useΣ t∩ tr∙ ou⌠ thσ variou≤á contro∞á characters«á I⌠á i≤ ì
áááááponderou≤ t∩ use.
For the rest of these files get -MBUG.005 (NOT-LBR FORM)or on the RBBS. ED è MENU CREATION PROGRAM.
By Peter Lazarus Member No.230.
Thσá followinτ BASI├ prograφ listeΣ belo≈ caε bσ useΣ t∩ creatσ ß men⌡ ì
oµ disδ programs« ┴ typica∞ usσ woulΣ bσ ß men⌡ oµ program≤ fo≥ you≥ game≤ ì
disk«á Thσ men⌡ prograφ display≤ panel≤ oµ program≤ whicΦ arσ selecteΣá b∙ ì
enterinτá thσ numbe≥ oε thσ screeε oppositσ thσ prograφá description«á Thσ ì
men⌡ prograφ wil∞ theε loaΣ anΣ ruε thσ requesteΣ program.
Thσá functioεá oµá thσá prograφ listeΣ belo≈ i≤ t∩á producσá thσá men⌡ ì
prograφ afte≥ readinτ thσ director∙ oµ thσ disδ t∩ whicΦ thσ men⌡á applies« ì
┴ brieµ descriptioε oµ it≤ operatioε no≈ follows.
Thσá arra∙á N░á whicΦá i≤ initialiseΣá a⌠á statemen⌠á number≤á 150-17░ ì
contain≤ thσ filename≤ froφ thσ disk«á Thσ CP/═ defaul⌠ filσ contro∞ blocδ ì
a⌠ 5cΦ i≤ initialiseΣ t∩ "?ó a⌠ 180-20░ t∩ retrievσ al∞ filenames« ┴ shor⌠ ì
machinσá languagσá routinσ i≤ pokeΣ int∩ memor∙ a⌠á 210-240«á Thi≤á routinσ ì
call≤á CP/═á t∩ retrievσ thσ nex⌠ matchinτ filename«á Thσ machinσá languagσ ì
routinσá return≤á t∩ BASI├ thσ filenamσ b∙ placinτ i⌠ iε memor∙á a⌠á 7f00h¼ ì
whicΦá i≤á wherσ thσ content≤ oµ thσ firs⌠ strinτ variablσá a1ñá (statemen⌠ ì
130⌐ i≤ defined« Thi≤ complete≤ thσ initialisation.
Thσá firs⌠ filenamσ i≤ retrieveΣ b∙ thσ US╥ cal∞ a⌠ 250«á (thσá seconΣ ì
paramete≥ i≤ thσ BDO╙ cal∞ number║á 1╖ - searcΦ fo≥ firs⌠ file)«á Wheεá n∩ ì
morσá filename≤á arσ founΣ thσ US╥ routinσ return≤ ß '-1ºá value«á (DeleteΣ ì
filename≤ arσ no⌠ returned.⌐ Thσ filenamσ returneΣ i≤ storeΣ iε thσá arra∙ ì
N0$« Statement≤ 270-31░ retrievσ al∞ thσ othe≥ filσ names.
Oncσá al∞ filename≤ havσ beeε retrieved¼á the∙ arσ writteε t∩ disδá a≤ ì
BASI├á statement≤á (350-570)«á Thσ statement≤ arσ theε reaΣ bacδá in¼á anΣ ì
alte≥ thσ executinτ prograφ (580-590)«á Finally¼ thσ statement≤ whicΦ reaΣ ì
thσ director∙ anΣ diΣ thσ processinτ arσ deleteΣ b∙ statemen⌠ 600¼ t∩ leavσ ì
iε memor∙ ß MEN╒ program.
T∩ usσ thi≤ program¼á ente≥ thσ statement≤ anΣ checδ thei≥á checksums« ì
Savσá thσ prograφ t∩ disk«á No≈ ruε i⌠ agains⌠ thσ disδ yo⌡ requirσ ß menu« ì
Wheε finished¼á savσ thi≤ prograφ t∩ disδ also«á Oncσ saveΣ yo⌡ caε ruε i⌠ ì
t∩ seσ ß se⌠ oµ selectablσ prograφ options«á Yo⌡ caε tailo≥ thσ statement≤ ì
iεá thi≤ ne≈ prograφ t∩ producσ bette≥ men⌡ description≤ oµ you≥á programs¼ ì
o≥ t∩ deletσ thosσ whicΦ canno⌠ bσ used«
Iµá yo⌡ deletσ somσ selections¼á theε thσ selection≤ mus⌠á bσá deleteΣ ì
twice¼áá a⌠á statement≤á ranginτá 1000+¼á anΣá 10000+«á Wheεá deleted¼á thσ ì
statement≤ a⌠ 10000½ MUS╘ bσ renumbereΣ b∙ RENU═ 10000,1,10000
00100 REM Program to get a directory listing and [145]
00110 REM create a menu program. [146]
00120 STRS(8192) [004]
00130 A1$="aaaaaaaabbb": REM don't alter! Used to pass filename back from
USR routine [179]
00140 DIM N0(256) [219]
00150 FOR A=1 TO 256 [108]
00160 N0$(A)="" [076]
00170 NEXT A [024]
00180 FOR A = 93 TO 103 [161]
00190 POKE A,63: REM set up ambiguous filename [217]
00200 NEXT A [018]
00210 RESTORE 1000: REM load CP/M routines [178]è00220 FOR A=1056 TO 1140 [046]
00230 READ B: POKE A,B [011]
00240 NEXT A [022]
00250 A=USR(1056,17): REM get first matching entry [250]
00260 IF A=-1 THEN PRINT "No match found": END [154]
00270 FOR B = 1 TO 256 [112]
00280 N0$(B)=A1$: REM SAVE FILENAME [220]
00290 A=USR(1056,18): REM get next entry [255]
00300 IF A=-1 THEN PRINT "completed directory": LET N=B-1: NEXT*B 340 [022]
00310 NEXT B [021]
00320 PRINT "Only 256 filenames have been saved" [138]
00330 N=256 [190]
00340 REM save names out to file [151]
00350 OPEN "O",6,"tempmenu" [154]
00360 OUTL#6 [054]
00370 P=1000: M=10001 [158]
00380 FOR A=1 TO N [034]
00390 N1$=N0$(A) [176]
00400 N2$=N1$(;9,11) [107]
00410 N1$=N1$(;1,8) [057]
00420 REM remove trailing blanks [150]
00430 FOR B=8 TO 1 STEP -1 [163]
00440 IF N1$(;B,B) =" " THEN 460: REM blank found, keep searching [138]
00450 C=B: NEXT* B 480 [220]
00460 NEXT B [027]
00470 C=8 [083]
00480 N1$=N1$(;1,C) [075]
00490 IF N2$="MWB" THEN LPRINT M;" run ";CHR$(34); N1$; CHR$(34):
GOTO 520 [208]
00500 IF N2$="COM" THEN LPRINT M;" runm ";CHR$(34); N1$; "."; N2$;
CHR$(34);" 256": GOTO 520 [182]
00510 GOTO 550 [105]
00520 LPRINT P;" data ";CHR$(34); N1$;CHR$(34) [031]
00530 M=M+1 [203]
00540 P=P+1 [210]
00550 NEXT A [026]
00560 LPRINT : LPRINT: LPRINT "in#0: close 6" [174]
00570 CLOSE 6 [072]
00580 OPEN "I",6,"tempmenu": REM read statements back in [211]
00590 IN#6: REM to create the menu program [200]
00600 DELETE 100,600 [156]
00860 REM Menu program [158]
00870 REM From a program by Raymond Han, altered by Peter Lazarus. [159]
00880 REM for the 64k Microbee with Disk Drive [160]
00890 REM Renumber this section if altered: RENUM 100,10,100,9999 [161]
00900 CLEAR [000]
00910 DIM P1(256) [227]
00920 STRS(2400) [254]
00930 SPEED 0: HIRES: NORMAL: CLS [017]
00940 REM [157]
01000 DATA 245,213,229,197,197,17,104,0,213,225,19,1,22,0,54,0 [163]
01001 DATA 237,176,17,116,4,14,26,205,5,0,193,24,2,14,17,17 [017]
01002 DATA 92,0,205,5,0,183,242,79,4,193,1,255,255,24,33,33 [024]
01003 DATA 116,4,7,7,7,7,7,79,6,0,9,17,0,127,62,229 [151]
01004 DATA 190,40,218,35,6,11,126,18,35,27,16,250,193,1,0,0 [011]
01005 DATA 225,209,241,201,0,0 [122]
05000 DATA "STOP" [105]
05010 REM last program name must be STOP [198]
05020 REM read and load values [199]è05030 FOR I = 1 TO 256 [166]
05040 READ P1$(I) [036]
05050 IF P1$(I) = "STOP" THEN LET N=I-1: NEXT*I 5070 [093]
05060 NEXT I [083]
05070 Q=1: REM first panel [197]
05080 GOSUB 5150 [024]
05090 CURS 1,16: INPUT "Input your choice, or 0 for next panel";A; [177]
05100 IF A=0THEN GOTO 5080 [056]
05110 IF A<1 OR A>N THEN 5090 [111]
05120 CLS [170]
05130 CURS 455: PRINT "Please wait for "; P1$(A): PLAY 24 [205]
05140 GOTO 10000+A [096]
05150 REM print next panel [203]
05160 CLS [174]
05170 UNDERLINE: CURS 20:PRINT "Menu of programs on disk": NORMAL [087]
05180 C=1: R=2 [122]
05190 B=42*(Q-1) + 1: REM calc beginning program no. [116]
05200 IF B>N THEN LET Q=1: GOTO 5190 [057]
05210 E=42*Q: REM calc ending program no. [101]
05220 IF E>N THEN LET E=N [013]
05230 FOR I=B TO E [097]
05240 P2$=P1$(I) [237]
05250 CURS C,R: PRINT [I4 I]; " "; P2$(;1,16) [191]
05260 R=R+1: IF R=16 THEN LET R=2: C=C+21: REM print next column [099]
05270 NEXT I [086]
05280 Q=Q+1 [010]
05290 RETURN [176]
10000 REM This part gets program and runs it. (RENUM 10000,1,10000) [241]
Thσ M╠ routinσ oµ thi≤ listinτ wil∞ appea≥ nex⌠ month«á Fo≥ thosσ wh∩ can'⌠ ì
wait it is also on the BB in DIR BASIC and is called DIRECTORY.DOC ED
$$ FOR SALE $$ FOR SALE $$ FOR SALE $$
STAR GEMINI 10X PRINTER Contact Ken Brown 870-0095
********** ********** ********** **********
MICROBEE 56k CP/M, Riton green screen monitor, Doc's, Manuals & Software
Phone David Instone 762-5270
********** ********** ********** **********
MICROBEE Series III 32k, amber monitor, cassette player.
Ange Virgona 579-2792
********** ********** ********** **********
MICROBEE 128k, Amdek 300A amber screen, Manuals, software etc.,
Contact Jim Binder 434-3410
********** ********** ********** **********
92k N.J.S EPROM Ex. board for 8xxxxx series Bee
Include≤ WBEE¼ TELCOM¼ EDAS═ ª FORT╚ ½ │ EPROMS« Completσ witΦ manuals« $75
Also Mbee Eprom Programmer $75.00
David Price U2/4 Lake Tce West. Mt Gambier 5290. Phone (087) 25-2897
$$ FOR SALE $$ FOR SALE $$ FOR SALE $$è MBUG PUBLIC DOMAIN DISK
order through the tape library
Cat ## File Name Size CRC Description
002.01 / .COM 1K 22 79 Makes some COM files work faster
002.02 BISHOW .COM 1K 6B EC Paging version of TYPE
002.03 BITMAP .COM 1K 8F 37 Shows on VDU disk space used
002.04 BITMAP .HLP 1K 94 2F Help for BITMAP.COM
002.05 CEBUG .COM 11K 14 43 Disk utility
002.06 CEBUG .DOC 71K 27 88 Doc for CBUG.COM
002.07 COMPARE .COM 2K AA 42 Compares two files
002.08 COMPARE .DOC 1K 57 23 Doc for COMPARE.COM
002.09 COMPARM .COM 1K 0C 01 Compares two files
002.10 COMPARM .HLP 1K 67 46 Doc for COMPARM.COM
002.11 CRC .COM 3K B2 07 Checks CRC on this disk
002.12 DASM .COM 10K 5E B8 Disassemble M80 files
002.13 DASM .HLP 9K 8D AB Help for DASM.COM
002.14 DISPLAY .COM 2K 34 0E Similal to ED.COM but no Editing
002.15 DISPLAY .DOC 3K F2 A8 Doc for DISPLAY.COM
002.1╢á DO╙á .CO═ 1╦ F┴ A─ Show≤ Disδ Default≤ (BIOS etc)
002.17 DU .COM 7K 8E 41 Disk Utility
002.18 DU .HLP 14K 4F E8 Help for DU.COM
002.19 FIND .COM 2K B5 FB Finds strings in text files
002.20 FIND .HLP 2K 46 22 Doc for HELP.COM
002.21 FINDBAD .COM 2K 03 43 Finds bad sectors & locks them out
002.22 FIXDIR .COM 7K 47 50 Repairs illegal disk file names
002.23 FIXDIR .DOC 4K 99 0A Doc for FIXDIR.COM
002.24 FMAP .COM 1K 1A 2C Part of catalog system
002.25 JOINMBUG.AUS 6K 2B 90 JOIN MBUG AUSTRALIA INC.
002.26 L .COM 2K 41 80 Directory Lister. Type L ::<CR>
002.27 MEMRS .COM 2K 32 4F Checks RAM
002.28 QWIKKEY .COM 2K 5B 6D Similar to FLASHKEY.COM(tm)
002.29 QWIKKEY .DOC 4K A5 43 Doc for QUIKKEY.COM
002.30 RAMMAP .COM 1K BA 83 Draws map of ram on VDU
002.31 SD .COM 4K 78 95 Directory lister
002.32 SD .DOC 12K EF 66 Doc for SD.COM
002.33 SORTDIR .COM 1K 85 B1 Sorts directory to ASCII order
002.34 SUPERSUB.DOC 8K 58 08 Doc for Supersub.com
002.35 SUPERZAP.DOC 11K 68 E2 Disk utility
002.36 SURVEY .COM 2K 66 CE Reads operating system onto VDU
002.37 SWEEP .COM 12K 7F 15 Copying utility
002.38 SWEEP .DOC 28K 74 AB Doc for SWEEP.COM
002.39 UNERA .COM 1K 79 FE Unerases ERAsed files
002.40 UNERA .HLP 3K 9C 28 Help for UNERA.COM
002.41 UNMWB20 .LBR 17K 09 25 MWB utilities. Types .MWB files
002.42 WC .COM 7K BA 45 Counts words in file{s}
002.43 WIPE .ASM 3K 06 AD Deletes PRN,HEX,BAK files etc
002.44 ZIP .COM 5K 2C 29 Fast copy utility. Type ZIP<CR>
Library -MBUG Volume Number-002, 44 Files cataloged.
SELFREP4.MWB
Iε Novembe≥ wσ issueΣ ß challengσ t∩ everyonσ t∩ writσ ß prograφ iεá Mbasiπ ì
o≥á MicroworlΣ Basic¼á tha⌠ woulΣ lis⌠ itselµ bacδ ont∩ thσ screeεá withou⌠ ì
usinτá thσá reserveΣ word≤ "PRINT¼á LIS╘ o≥ LLIST"«á Belo≈ i≤á thσá winninτ ì
entr∙ writteε b∙ Juliaε Ophe∞ (memΓ 308⌐ anΣ hi≤ prizσ wa≤ presenteΣ t∩ hiφ ì
a⌠ thσ Februar∙ meeting« Prograφ i≤ onl∙ onσ linσ long. (checksumed)
00100 R1$="00100 R1$=:PRINT R1$(;1,10);CHR(34);R1$;CHR(34);R1$(;12):
GOTO 100":PRINT R1$(;1,10);CHR(34);R1$;CHR(34);R1$(;12):GOTO100 █▒╖▓▌è TAPE LIBRARY SECURITY DEPOSIT REFUNDS
CREDIT APPLICATION FORM
NAME......................... | NAME.........................
|
MEMBER NUMBER................ | MEMBER NUMBER................
|
RECEIPT NUMBER............... | RECEIPT NUMBER...............
|
DATE OF CREDIT............... | DATE OF CREDIT...............
|
AUTHORIZED................... | AUTHORIZED...................
|
DATE OF HIRE................. | DATE OF HIRE.................
|
NUMBER OF TAPES...2....3..... | NUMBER OF TAPES...2....3.....
|
TAPE LIBRARIAN............... | TAPE LIBRARIAN...............
Wheε fillinτ ou⌠ thi≤ forφ pleasσ inser⌠ onl∙ you≥ NAME¼á MEMBE╥ NUMBE╥ anΣ ì
TAPE RECEIPT NUMBER if known.
Al∞ member≤ arσ no≈ entitleΣ t∩ usσ thσ tapσ library« Thosσ peoplσ wh∩ havσ ì
neve≥á haΣá ß RO═ BEE¼á yo⌡ to∩ caε usσ thesσ tape≤ b∙ usinτ TDCOPY.CO═á o≥ ì
directl∙ accessinτ BASI├ witΦ thσ CLOA─ and/o≥ CSAV┼ commands.
SPECIAL INTEREST GROUPS
DREAMDIS╦ OWNERS
╔ havσ haΣ somσ request≤ oµ latσ t∩ ge⌠ togethe≥ thosσ peoplσ wh∩ havσ ì
Dreamdisδ systems«á AlthougΦ therσ i≤ ß director∙ oε thσ RBBS¼á ╔ neve≥ seσ ì
mucΦ g∩ int∩ it« ╔ don'⌠ hea≥ mucΦ abou⌠ Dreamdisδ anyway« CoulΣ i⌠ bσ tha⌠ ì
the∙á arσ s∩ eas∙ t∩ usσ tha⌠ nobod∙ need≤ hel≡ o≥ arσ the∙ s∩ baΣ tha⌠ yo⌡ ì
arσ ashameΣ t∩ sa∙ yo⌡ owε one┐ Whateve≥ thσ case¼ Joσ Shraφ wil∞ bσ a⌠ thσ ì
nex⌠á (HACKERS⌐á meetinτ witΦ ß vie≈ t∩ startinτ ß sub-grou≡ oµá Dreamdisδ ì
users«á Iµ enougΦ peoplσ arσ interested¼á wσ coulΣ possibl∙ star⌠ ß hacker≤ ì
nigh⌠ a⌠ thσ hal∞ jus⌠ fo≥ yo⌡ (a⌠ n∩ cos⌠ t∩ you)«á Iµ yo⌡ don'⌠ kno≈ Joe¼ ì
seσ mσ nex⌠ meetinτ anΣ ╔ wil∞ introducσ you.
PASCA╠ INTERES╘ GROUP
MucΦá thσ samσ a≤ above«á Iµ Pasca∞ turε yo⌡ on¼á iµ yo⌡ woulΣ likσ t∩ ì
kno≈ morσ abou⌠ it¼á iµ yo⌡ havσ problems¼á iµ yo⌡ havσ discovereΣ excitinτ ì
thing≤á abou⌠á it¼á anythinτ t∩ d∩ witΦ it¼á pleasσ le⌠ mσ kno≈ s∩á wσá caε ì
arrangσá somethinτ fo≥ yo⌡ also«á I⌠ ma∙ bσ jus⌠ onσ corne≥ oµ thσ hal∞á a⌠ ì
meetinτ night¼ or¼ wσ coulΣ ge⌠ thσ hal∞ fo≥ you≥ owε use.
Iµ eithe≥ oµ thσ abovσ interes⌠ you¼ don'⌠ wai⌠ fo≥ thσ othe≥ blokσ t∩ ì
d∩ i⌠ fo≥ yo⌡ becausσ hσ won't«á Thσ offe≥ i≤ therσ s∩ takσ it« Opportunit∙ ì
i≤ onl∙ goinτ t∩ knocδ once« Answe≥ tha⌠ knocδ NOW. A. BARFOOT
è THE MEMBERSHIP SECRETARY #
MBUG AUSTRALIA INCORPORATED.
P.O. BOX 157
NUNAWADING. Victoria. 3131.
PLEASE COMPLETE ENTIRE FORM
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:____________________________ |
|_________________________________________________________________________|
|
are you a
|
.-------- yes -------<-- NEW MEMBER --------- no --.
| |
| .____________|___________.
| | if |
|<--- Member No._____<--- yes ---<----| <-- RENEWAL |
| | |
| -------------------------|
| |
YEARLY FEES else
| |
RENEWAL OF MEMBERSHIP [ ]---------> .----------------------------.
FULL MEMBERSHIP @ $20.00 [ ] | MEMBERSHIP RENEWAL |
(includes schools & businesses) | OR CHANGE OF ADDRESS |
COUNTRY @ $20.00 [ ] | |
OVERSEAS @ P.O.A. [ ] |-- --- --- --- --- --- --- |
STUDENT (FULL TIME) @ $15.00 [ ] | attatch old mailing label |
| | |
| | HERE |
| ------------------------------
| |
| |
PLEASE FILL IN PAYMENT FORM BELOW
╔ 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.................
# / / è