home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG048.ARC
/
1987APR.CAT
< prev
next >
Wrap
Text File
|
1979-12-31
|
55KB
|
1,115 lines
.pl70
.. ^P^D = DOUBLE STRIKE
.. ^P^B = BOLD STRIKE
.. ^P^E = 40 COLUMN EXPANDED PRINT (SELF CANCELLING)
.. ^P^Y = TURN ON AND OFF ITALICS
.. ^P^A = 132 COLUMN PRINT
.. ^P^N = NORMAL PRINT
.. ^P^Q = CONTINIOUS UNDERLINE PRINT
.. ^P^W = TURN OFF UNDERLINE
.po0
.OP
.HE# APRIL - T H E C A T C H E R -1987 #
Thσ followinτ i≤ ß lis⌠ oµ thσ 1986/8╖ committee«á 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 STEVEN JEPSON 45-4226
SECRETARY MALCOLM OSBORNE 404-1282
TREASURER KEVIN CARR 233-4629
PUBLI├ OFFICE╥ JOHN BUTTON 578-8145
COMMITTEE AND ASSISTANTS
Chris Anderson 438-3762 Peter Broughton 347-8114
Russell Crosser 383-5307 Bob Denton 233-1483
Simon Gerraty 557-2501 Mike Holzinger 354-6742
Jim Lobley 758-9169 Mike Thompson 882-5002
John Mitchell 720-2016
SERVICES PROVIDED BY MBUG AUSTRALIA
DISK FORMAT COPYING JOHN BUXTON 758-5744
RBBS SYSTEM OPERATOR. MIKE THOMPSON 882-5002
BAZAAR JOHN MITCHELL. P.O. BOX 157 NUNAWADING 3131
EDITOR A. BARFOOT. P.O. BOX 157 NUNAWADING 3131
MODEM HIRE C. ANDERSON. P.O. BOX. 147 DIAMOND CREEK 3089
MEMBERSHIP SECRETARY J. LOBLEY. P.O. BOX 157 NUNAWADING 3131
PUBLIC DOMAIN (SIG/M) DISKS S. JEPSON. P.O. BOX 8 ROSANNA 3084
ELECTRONIC PARTS DISCOUNT Rod IRVING 425 HIGH ST. NORTHCOTE
COMPUTER BOOK DISCOUNT TECHNICAL BOOKSHOP SWANSTON St. MELBOURNE
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ε seperate 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
shoulΣá shoulΣá no⌠ bσ typeΣ iε a≤ par⌠ oµ thσ listing«á Contribution≤ no⌠ necessaril∙ endorseΣ b∙ MbuτáAus⌠ Inc.
THE CATCHER is published by MBUG AUSTRALIA INCORPORATED
All copyrights are reserved by MBUG AUSTRALIA INCORPORATED è FROM TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟ FRO═ TH┼ CHIE╞ MBU╟
╔á aφá partiall∙á pleaseΣ t∩ announcσ thσ winne≥á oµá ou≥á programminτ ì
competition«á ╔á don'⌠ kno≈ iµ i⌠ wa≤ to∩ harΣ o≥ iµ nobod∙ wa≤á interesteΣ ì
bu⌠ wσ onl∙ haΣ threσ entrant≤ witΦ fou≥ entries«á Thσ winne≥ anΣ recipien⌠ ì
oµá mediß t∩ thσ valuσ $25.0░ iε eacΦ categor∙ i≤ Juliaε Loke«á Juliaεá woε ì
witΦá tw∩á entrie≤ botΦ unde≥ 2δ each«á Thσ MBASI├ codσ entereΣ i≤á printeΣ ì
late≥á iε thi≤ issue«á Fo≥ hi≤ troublσ hσ ha≤ pickeΣ u≡ $50.0░ t∩ spenΣá iε ì
thσ Bazaar« Froφ al∞ thσ committee╗ Congratulation≤ Julian«
Wσá havσ recentl∙ beeε donateΣ ß softwarσ packagσ calleΣá "DEBTMASTERó ì
froφ Dreamcards¼á thσ peoplσ wh∩ wrotσ thσ adventurσ pacδ prograφ tha⌠á wa≤ ì
revieweΣá recentl∙ iε thσ Catcher«á ┴ versioε oµ thi≤ softwarσ i≤ currentl∙ ì
beinτ publisheΣ iε installment≤ iε "You≥ Computer"«á Thσ versioε donateΣ i≤ ì
newe≥á thaε thσ onσ beinτ publisheΣ anΣ a≤ sucΦ i≤ ß bette≥á package«á Now¼ ì
duσ t∩ thσ norma∞ poo≥ responsσ froφ member≤ wheε i⌠ come≤ t∩ competitions¼ ì
thosσá peoplσá attendinτá thσá MarcΦ meetinτ decideΣá ßá competitioεá oµá ß ì
differen⌠ kinΣ shoulΣ bσ held«á Thi≤ time¼ yo⌡ wil∞ havσ t∩ bσ thσ judgσ oµ ì
thσ entries« Well¼ ho≈ d∩ yo⌡ ente≥ thi≤ competitioε ╔ hea≥ yo⌡ ask┐
T∩á enter¼á yo⌡ mus⌠ senΣ mσ somethinτ tha⌠ ╔ caε pu⌠ iε thσá Catcher« ì
Entrie≤ mus⌠ bσ markeΣ "competitioε entryó t∩ bσ eligible« Thσ entrie≤ wil∞ ì
bσá s∩ markeΣ iε thσ Catcher«á Thσ competitioε wil∞ bσ judgeΣ oεá wha⌠á thσ ì
member≤á conside≥á t∩ bσ thσ bes⌠ articlσ t∩ appea≥ iε thσ Catche≥á betweeε ì
Ma∙ anΣ thσ Augus⌠ genera∞ meeting« Onl∙ thosσ attendinτ thσ Augus⌠ meetinτ ì
wil∞ bσ ablσ t∩ vote«á So¼ thσ challengσ is¼ iµ yo⌡ wan⌠ thσ software¼ ge⌠ ì
somethinτ publisheΣ (anΣ lobb∙ hard)« EAS┘ isn'⌠ it......
A≤ ╔ aε writinτ thi≤ beforσ thσ Ballara⌠ meeting¼á ╔ canno⌠ repor⌠á oε ì
wha⌠ happeneΣ there¼á bu⌠ ╔ caε reminΣ thosσ peoplσ wh∩ wisΦ t∩ attend¼á i⌠ ì
wil∞á bσá helΣ a⌠ thσ Ballara⌠ CA┼ oε Saturda∙ thσ 4tΦ Apri∞ startinτ a⌠á ▓ ì
o'clocδ anΣ endinτ abou⌠ ╣ o≥ 1░ P.M«á N∩ entr∙ charge« ╔ hopσ wσ seσ ß lo⌠ ì
oµ member≤ there« Fo≥ detail≤ seσ thσ las⌠ tw∩ Catchers.
Thi≤ montΦ wσ wil∞ bσ havinτ ß dem∩ oµ "Printmaster"«á Thσ versioεá wσ ì
wil∞á bσ showε i≤ supposeΣ t∩ havσ beeε especiall∙ porteΣ fo≥ thσá Microbeσ ì
(╔á believσá thσá contro∞ key≤ arσ Wordstar┐á oriented)«á Alonτá witΦá thi≤ ì
prograφá wil∞á bσá thσá softwarσá packagσá containinτá somσá hundred≤á morσ ì
pictures«á Wσá wil∞á bσ ablσ t∩ sel∞ thi≤ softwarσ a⌠á ou≥á norma∞á reduceΣ ì
prices«á Brinτá you≥ casΦ o≥ credi⌠ card≤ jus⌠ iε case«á Fo≥ thosσ wh∩ havσ ì
thσ softwarσ alread∙ anΣ ma∙ bσ havinτ problems¼á comσ anΣ ge⌠ you≥ answer≤ ì
direc⌠ froφ thσ Melbournσ distributor.
┴ ne≈ 256δ Microbeσ ha≤ beeε releaseΣ b∙ M.S«á a⌠ thσ PC8╖ iεá Sydney« ì
WitΦá ß littlσ lucδ wσ ma∙ eveε seσ onσ iε thσ shop≤ (Melb⌐ sooε anΣá maybσ ì
a⌠ ß cluΓ meetinτ night«á Froφ al∞ accounts¼á thσ 256δ wil∞ havσ ß teleterφ ì
keyboarΣ anΣ ß singlσ 800δ drivσ fitted« Pricσ abou⌠ $1500.00┐ Perhap≤ thi≤ ì
i≤á beinτá releaseΣá duσ t∩ thσ rumoreΣ DROPPIN╟ oµ thσá GAMM┴á projectíá ╔ ì
wonde≥ wha⌠ wil∞ happeε t∩ thσ (reported⌐ delivereΣ system≤ no≈ M.S«á i≤ n∩ ì
longe≥ goinτ aheaΣ witΦ thσ project.
AlthougΦá onσ oµ thσ las⌠ line≤ iε m∙ columε thi≤ month¼á i⌠ i≤ b∙á n∩ ì
mean≤ thσ leas⌠ important« Thσ tapσ librar∙ wil∞ ceasσ t∩ exis⌠ iε thσ nea≥ ì
future¼ probabl∙ thi≤ monthí Iµ yo⌡ wan⌠ t∩ bu∙ an∙ oµ thσ tape≤ comσ alonτ ì
t∩ thσ Apri∞ meetinτ anΣ takσ you≥ chances«á Wσ wil∞ bσ sellinτ al∞ oµ theφ ì
excep⌠ fo≥ ß maste≥ cop∙ oµ eacΦ a⌠ ╡ fo≥ $2.00«
>ANDRE╫ èDOCUMENTATIO╬ FO╥ KWIKEY.MWB¼ b∙ Juliaε Loke¼ 1987Jan04
Keyboard Macro Utility
Noticσ ª disclaimer "LIS╘á "¼á o≥ eveε thσ no⌠á redefinσ thσá at-
B╙ ke∙ t∩ bσ thσá samσ tentioεááá terminatioε
Permissioε i≤ here- a≤ DEL. key¼á no≥ caε yo⌡á usσì
b∙ granteΣ fo≥ privatσ i⌠áá withiεá ßá macro«ì
non-commercia∞á usσ oµ Usage Therefore¼ choosσ thi≤ì
thi≤á prograφá a≤á is« ke∙ witΦ care« ╔ sug-
Fee∞á freσ t∩ givσá i⌠ Ruεáá thσáá prograφ ges⌠ yo⌡ usσ key≤á no⌠ì
awa∙á i⌠á intac⌠á witΦ KWIKEY.MWBáá anΣáá yo⌡ otherwisσáá needeΣá b∙ì
copyrigh⌠ anΣ documen- wil∞ bσ prompteΣ fo≥ ß BASIC¼áá sucΦá a≤á NU╠ì
tation«á N∩ distribu- ke∙á whicΦá i≤á t∩á bσ (ctrl-@)¼ o≥ U╙ (ctrl-ì
tioεá fo≥á profi⌠áá i≤ useΣá a≤ aε attention- DEL). ì
alloweΣáá withou⌠á thσ terminatioε character« ì
author'≤ expres≤á per- ┴á shor⌠á timσáá afte≥ ì
mission¼ anΣ thi≤ wil∞ typinτá thi≤ key¼á thσ How it works ì
NO╘ bσ given«á Iµ yo⌡ KWIKEY overla∙ wil∞ bσ ì
paiΣá mone∙á fo≥á thi≤ installed¼ afte≥ whicΦ Thσá principlσáá i≤ì
publiπáá domaiεá soft- thσáá loade≥áá prograφ quitσáá simple¼ááá bu⌠ì
ware¼á YO╒ werσ rippeΣ wil∞ removσ itself. don'⌠áá worr∙á iµá yo⌡ì
off! don'⌠á understanΣáá i⌠
A⌠ thi≤ stage¼á thσ becausσ tha⌠ ha≤ neve≥
Introduction overla∙ i≤ active¼ bu⌠ beeεáá ßá prerequisitσ
i≤á quitσá transparen⌠ fo≥ usinτ software« Iε
Man∙ oµ yo⌡ wil∞ bσ t∩ BASI├ anΣ thσá onl∙ al∞á curren⌠á version≤ì
familia≥ witΦ thσá ke∙ differencσá you'l∞ no- oµáá MicroworlΣáá tin∙ì
redefinitioεáá memory- ticσ i≤ tha⌠á keyclicδ BASIC¼á al∞á inpu⌠á i≤ì
residen⌠áááááá utilit∙ i≤ present. vectoreΣá througΦá thσì
Qwike∙áá (C⌐á b∙á Ton∙ INPU╘áá VECTO╥áá tablσì
Fleiτá fo≥á thσáá CP/═ Wheεá yo⌡á wisΦá t∩ froφá 00C2Φ (194d⌐á t∩ì
operatinτááááá system« redefinσá ß key¼á typσ 00D1Φ (209d)«á KWIKEYì
Wouldn'⌠ i⌠ bσ nicσ iµ thσ attention-termina- trap≤áá thσáá keyboarΣì
ßá simila≥ publiπá do- tioεá character«á Thσ inpu⌠á vecto≥á 0¼á anΣì
maiεá utilit∙ werσá a- to≡á linσ o≥ line≤á oµ use≤ thσ code≤ t∩á in-
vailablσáá fo≥á Micro- thσá screeεá arσá madσ de°á int∩ ßá macro-de-
worlΣáá Tin∙ááá BASIC« blanδá anΣá ßáá promp⌠ finitioε table«á Wheεì
Thi≤áá filσá describe≤ appears« No≈ typσ thσ BASI├á ask≤ fo≥ ß key¼ì
sucΦááá aεááá overlay¼ ke∙á yo⌡á wisΦá t∩á bσ thσ code≤ i⌠ get≤ comσì
KWIKEY¼ anΣ it≤ loade≥ redefined«á Wheεá yo⌡ froφá thσ tablσá entr∙ì
writteε iεá MicroworlΣ ge⌠á thσ nex⌠á prompt¼ fo≥áá thσáá las⌠áá ke∙ì
tin∙ BASIC. typσá thσ ne≈ sequencσ pushed.
oµ character≤ yo⌡ wisΦ
KeyboarΣ macros t∩á replacσá thσáá olΣ WitΦ thσá exceptioε
key«á Thσá ke∙á code≤ oµá thσ attention-ter-
Yo⌡ migh⌠ finΣ tha⌠ yo⌡á arσá typinτá wil∞ minatioεááá character¼ì
yo⌡á havσ t∩ typσá thσ appea≥áá oεá thσáá to≡ eacΦá oµ thσ 12╖á key≤ì
samσ sequence≤ oµ cha- line«á Contro∞á code≤ ha≤ it≤ owεá redefina-
racter≤áá quitσá ofteε appea≥ a≤ thσ RO═ gra- blσ sequence«á Wheε ßì
durinτáá ßáá computinτ phic≤ááááá characters« ke∙ i≤ redefined¼á thσì
session«á ┴á keyboarΣ Wheε yo⌡ arσ finished¼ macro-definitioε tablσì
macr∩á utilit∙á allow≤ typσáá thσá attention- i≤ updated«á Therσ i≤ì
yo⌡ t∩ redefinσ ß sin- terminatioεá characte≥ ß limi⌠ t∩ thσ sizσ oµì
glσ ke∙ s∩ tha⌠ i⌠ caε again«á Thσ screeε i≤ thσáááá tablσááá (102┤ì
meaεá an∙ sequencσá oµ restored¼á anΣ yo⌡ ma∙ bytes)¼á anΣ thi≤á anΣì
character≤á yo⌡á wish« no≈ usσ thσá redefineΣ thσá maximuφá sizσá oµì
Fo≥ example¼ yo⌡ migh⌠ ke∙ a≤ ß macro. eacΦá macr∩ (6┤ bytes⌐ì
redefinσá thσ TA┬á ke∙ caεá bσá defineΣá wheεì
t∩áá thσááá character≤ Notσá tha⌠ yo⌡ can- yo⌡ firs⌠ loaΣ KWIKEY«ìè Thσ overla∙ sit≤ a⌠ tha⌠áá wil∞á savσá anΣ duceΣ belo≈ fo≥ yo⌡ t∩ì
thσ enΣ oµ use≥á memo- retrievσá thσá curren⌠ ente≥ b∙ hand« Pleasσì
ry¼á belo≈ BASIC¼á anΣ macro-definitioεáá ta- observσ thσ noticσ anΣì
abovσ thσ stack«á Thσ ble. disclaime≥ above. ì
relocatinτ loade≥ wil∞ ì
determinσá thσ sizσ oµ Distribution Pleasσá direc⌠á an∙ì
memor∙ fo≥ itself¼ anΣ questions¼á enquiries¼ì
wil∞ placσ itselµá be- KWIKEY.MW┬ááááá anΣ o≥á request≤á fo≥á thσì
lo≈ othe≥ memor∙ resi- KWIKEY.DO├á havσá beeε Z8░ assembl∙á languagσì
den⌠á utilitie≤á (sucΦ uploadeΣ ont∩ thσ MBU╟ sourcσ fo≥ thσ overla∙ì
a≤ CKSM22)« T∩ removσ RCP/═á (Melbournσá 03- t∩á mσá vißá thσá cluΓì
KWIKEY¼á yo⌡ wil∞ havσ 8821571¼á 7*24h)« Yo⌡ magazinσ o≥ RBBS. ì
t∩ reboo⌠ BASIC. caεá als∩á arrangσá t∩
ge⌠ ß cop∙ froφ mσá a⌠ END OF DOCUMENTATION
Improvements onσá oµ thσ cluΓ meet-
ings«á A≤ ß fina∞ re-
I⌠ shoulΣ bσ possi- sort¼áááá thσáááá filσì
blσ t∩ writσ utilitie≤ KWIKEY.MWBá i≤á repro-
PLEAS┼á NOTE║á Thi≤ listinτ ha≤ beeε checksumeΣ witΦ CKSM22.MW┬ anΣ no⌠ thσ ì
new version as published last month (CKSM23.MWB).ED.
00100 REM █▒┤╡▌
00110 REM KWIKEY PATCH LOADER FOR MICROWORLD TINY BASIC █▒┤╢▌
00120 REM █▒┤╖▌
00130 REM VERS DATE NOTES █▒┤╕▌
00140 REM 0.10 86JUL27 J.LOKE: ORIGINAL VERSION █▒┤╣▌
00150 REM █▒╡░▌
00160 REM DISPLAY HEADER █▒╡▒▌
00170 REM █▒╡▓▌
00180 PRINT "KWIKEY V0.1 BY J.LOKE 86JUL27" █░│╡▌
00190 REM █▒╡┤▌
00200 REM CONSTANTS █▒┤╢▌
00210 REM █▒┤╖▌
00220 H=256 █▒╕▓▌
00230 K=1024 █▓▓╕▌
00240 REM █▒╡░▌
00250 REM PATCH DESTINATION IS 1K BELOW TOP OF MEMORY █▒╡▒▌
00260 REM █▒╡▓▌
00270 M=1*K █▓░▒▌
00280 D=PEEK(160)+PEEK(161)*H-M █░╖╖▌
00290 REM █▒╡╡▌
00300 REM TEST IF PATCH IS ALREADY INSTALLED, ABORT IF YES █▒┤╖▌
00310 REM █▒┤╕▌
00320 O=PEEK(194)+PEEK(195)*H █▓│▒▌
00330 IF O<>D+M THEN 390 █▒▒╖▌
00340 PRINT CHR$(7) CHR$(7) "** ALREADY INSTALLED ERROR" █▓╡░▌
00350 END █▒▒▒▌
00360 REM █▒╡│▌
00370 REM GET ATTENTION/TERMINATION CODE █▒╡┤▌
00380 REM █▒╡╡▌
00390 PRINT "ENTER ATTENTION/TERMINATION KEY ="; █▒▓│▌
00400 A0$=KEY$ █▒▒╡▌
00410 IF LEN(A0$)=0 THEN 400 █░▓╡▌
00420 A=ASC(A0$) █▓░╣▌
00430 IF A>=32 THEN 450 █░▒╡▌
00440 A0$="^"+CHR$(A+64) █░╣╡▌
00450 PRINT A0$ █▒╕╖▌
00460 REM █▒╡┤▌è00470 REM EXPANSION BUFFER SIZE (NOT TO EXCEED 256) █▒╡╡▌
00480 REM █▒╡╢▌
00490 V=64 █▒╡┤▌
00500 REM █▒┤╣▌
00510 REM SET C=205 FOR KEYCLICK, ELSE SET C=195 █▒╡░▌
00520 REM █▒╡▒▌
00530 C=205 █▒╖╡▌
00540 REM █▒╡│▌
00550 REM KEYCLICK DURATION (CYCLES) AND PERIOD █▒╡┤▌
00560 REM █▒╡╡▌
00570 X=1 █░╣╕▌
00580 Y=18 █▒╡╢▌
00590 REM █▒╡╕▌
00600 REM FLASHING PROMPT PERIOD █▒╡░▌
00610 REM █▒╡▒▌
00620 F=8*H █▒╣╖▌
00630 REM █▒╡│▌
00640 REM LOAD OFFSETS FOR LABELS █▒╡┤▌
00650 REM █▒╡╡▌
00660 READ B █▓╡░▌
00670 DIM L(B) █░╕╢▌
00680 FOR I=1 TO B █░││▌
00690 READ O █░▒░▌
00700 L(I)=D+O █▒▓░▌
00710 NEXT I █░│▓▌
00720 REM █▒╡│▌
00730 REM CHECK LABEL OFFSETS READ CORRECTLY █▒╡┤▌
00740 REM █▒╡╡▌
00750 READ B █▓╡░▌
00760 IF B=-1 THEN 820 █▓▒░▌
00770 PRINT CHR$(7) CHR$(7) "** LABEL COUNT ERROR" █░╖▓▌
00780 END █▒▒╕▌
00790 REM █▒╢░▌
00800 REM LOAD PATCH INTO DESTINATION ONE BYTE AT A TIME █▒╡▓▌
00810 REM █▒╡│▌
00820 P=D █▒░╖▌
00830 READ B █▓┤╣▌
00840 IF B<0 THEN 910 █▒╢▓▌
00850 POKE P,B █▒│╕▌
00860 P=P+1 █▓▒╡▌
00870 GOTO 830 █▒▒╡▌
00880 REM █▒╢░▌
00890 REM CHECK THAT CORRECT NUMBER OF BYTES WERE READ █▒╢▒▌
00900 REM █▒╡│▌
00910 READ O █░░╡▌
00920 IF P=D+O THEN 980 █░╢╣▌
00930 PRINT CHR$(7) CHR$(7) "** DATA COUNT ERROR" █░░░▌
00940 END █▒▒╢▌
00950 REM █▒╡╕▌
00960 REM SET UP INITIAL KEY EXPANSION TABLE █▒╡╣▌
00970 REM █▒╢░▌
00980 P=L(10)-3 █▒┤░▌
00990 O=L(11)+2 █▒│╕▌
01000 FOR I=0 TO 127+1 █▓┤╖▌
01010 POKE P,O █▒╕╕▌
01020 POKE P+1,O/H █▒┤┤▌
01030 POKE O,I █▒╕│▌
01040 P=P+2 █▓╡╡▌
01050 O=O+1 █▓╡│▌è01060 NEXT I █░╖╣▌
01070 REM █▓░░▌
01080 REM REDIRECT THE INPUT VECTOR TO THE PATCH █▓░▒▌
01090 REM █▓░▓▌
01100 I=PEEK(228) █░╣░▌
01110 POKE 228,0 █▓│┤▌
01120 POKE 194,D █░░▒▌
01130 POKE 195,D/H █▒▓▓▌
01140 POKE 228,I █░░╢▌
01150 REM █▒╣╣▌
01160 REM MOVE TOP OF MEMORY BELOW PATCH CODE █▓░░▌
01170 REM █▓░▒▌
01180 POKE 160,D █░░░▌
01190 POKE 161,D/H █▒▓▒▌
01200 REM █▒╣╡▌
01210 REM INDICATE KWIKEY ACTIVE █▒╣╢▌
01220 REM █▒╣╖▌
01230 PRINT "KWIKEY LOADED." █░╢╢▌
01240 REM █▒╣╣▌
01250 REM RESTART BASIC WITH NEW POINTERS █▓░░▌
01260 REM █▓░▒▌
01270 NEW █▒╕░▌
01280 REM █▓░│▌
01290 REM DATA DIVISION █▓░┤▌
01300 REM █▒╣╢▌
01310 REM NO OF LABELS, FOLLOWED BY OFFSETS FOR LABELS █▒╣╖▌
01320 REM █▒╣╕▌
01330 DATA 12 █░╢╕▌
01340 DATA 24, 241, 259, 281, 284, 299, 325, 329 █▓░░▌
01350 DATA 330, 335, 588, M-V █░▒│▌
01360 DATA -1 █░╢╢▌
01370 REM █▓░│▌
01380 REM PATCH CODE, TERMINATED BY -1 █▓░┤▌
01390 REM █▓░╡▌
01400 DATA 197, 213, 229, 33, L(8),L(8)/H, 126, 183 █▒╢│▌
01410 DATA 40, 14, 53, 42, L(9),L(9)/H, 126, 35 █▓░╖▌
01420 DATA 34, L(9),L(9)/H, 191, 225, 209, 193, 201 █▒╡╕▌
01430 DATA 205, L(6),L(6)/H, 32, 247, 254, A, 40 █░▒▓▌
01440 DATA 11, 111, 205, L(3),L(3)/H, 125, 33, L(8) █▒┤▒▌
01450 DATA L(8)/H, 119, 24, 220, 33, 0, 240, 17 █▒┤▒▌
01460 DATA L(12),L(12)/H, 1, V, V/H, 237, 176, 6 █░╕┤▌
01470 DATA V, 43, 54, 32, 16, 251, 235, 33 █▒╢┤▌
01480 DATA L(7),L(7)/H, 14, 4, 237, 176, 235, 35 █░▒╡▌
01490 DATA 205, L(4),L(4)/H, 254, A, 202, L(2),L(2)/H █░╕▒▌
01500 DATA 119, 229, 33, L(12),L(12)/H, 237, 91, L(11) █░┤╢▌
01510 DATA L(11)/H, 175, 237, 82, 180, 22, V-1, 32 █░╢╕▌
01520 DATA 7, 125, 198, 7, 186, 48, 1, 87 █▒░╡▌
01530 DATA 225, 35, 30, 61, 115, 35, 205, L(5) █░╖┤▌
01540 DATA L(5)/H, 254, A, 40, 7, 95, 125, 186 █▒▓╡▌
01550 DATA 56, 242, 24, 242, 125, 214, 7, 50 █▓▓╣▌
01560 DATA L(8),L(8)/H, 42, 5, 240, 205, L(3),L(3)/H █░▓╢▌
01570 DATA 189, 40, 84, 56, 34, 149, 79, 6 █▒╢│▌
01580 DATA 0, 235, 229, 197, 35, 35, 94, 35 █▓░▒▌
01590 DATA 86, 42, L(11),L(11)/H, 183, 237, 82, 197 █▒╢╣▌
01600 DATA 227, 193, 40, 38, 237, 91, L(11),L(11)/H █▒╡▒▌
01610 DATA 27, 25, 235, 237, 184, 24, 27, 149 █░│╕▌
01620 DATA 79, 6, 255, 235, 229, 197, 35, 35 █░░▒▌
01630 DATA 94, 35, 86, 42, L(11),L(11)/H, 183, 237 █▒▒░▌
01640 DATA 82, 197, 227, 193, 40, 4, 25, 235 █▓┤╡▌è01650 DATA 237, 176, 193, 225, 58, 5, 240, 198 █▒░░▌
01660 DATA 128, 35, 35, 94, 35, 86, 235, 9 █▒╡╢▌
01670 DATA 235, 114, 43, 115, 60, 32, 242, 237 █░╖│▌
01680 DATA 91, L(9),L(9)/H, 58, L(8),L(8)/H, 79, 6 █▓▓▓▌
01690 DATA 0, 183, 40, 5, 33, 7, 240, 237 █░╕▓▌
01700 DATA 176, 33, L(12),L(12)/H, 17, 0, 240, 1 █▓┤░▌
01710 DATA V, V/H, 237, 176, 33, L(8),L(8)/H, 112 █▒┤│▌
01720 DATA 195, L(1),L(1)/H, 38, 0, 41, 17, L(10) █░┤╕▌
01730 DATA L(10)/H, 25, 86, 43, 94, 43, 70, 43 █▒░╕▌
01740 DATA 78, 237, 67, L(9),L(9)/H, 235, 237, 66 █░╕╖▌
01750 DATA 201, 1, F, F/H, 205, L(6),L(6)/H, 200 █░┤░▌
01760 DATA 11, 120, 177, 32, 247, 62, 127, 150 █░╖┤▌
01770 DATA 119, 24, 238, C, PEEK(194),PEEK(195),192, 245 █░╣┤▌
01780 DATA 211, 9, 197, 6, X*2, 14, Y, 13 █▒╡▓▌
01790 DATA 32, 253, 219, 2, 238, 64, 211, 2 █▒╕╡▌
01800 DATA 16, 243, 193, 241, 201, 75, 101, 121 █▒▒▓▌
01810 DATA 58, 0 █▒╖│▌
01820 DATA -1 █░╢╖▌
01830 DATA 330 █▒▓┤▌
01840 END █▒╢┤▌
BACKGAMM.BEE
Alan Laughton - MBUG Member 679
Thi≤ prograφ froφ thσ MBU╟ Tapσ Librar∙ haΣ beeε runninτ successfull∙ oε m∙ ì
CIA┬á fo≥ quitσ ß while«á Al∞ wa≤ wel∞ unti∞ ╔ up-gradeΣ t∩ ß 128╦ Premium« ì
I⌠á jus⌠á didn'⌠ run«á Thσ probleφ wa≤ founΣ t∩ bσ thσá versioεá oµá Basic« ì
CIAB'≤ haΣ eithe≥ 6.22σ o≥ 6.23σ Basiπ whilσ thσ 128╦ Prem« ha≤ 6.28e.
B∙á loadinτá thσ prograφ int∩ memor∙ anΣ usinτ thσ inbuil⌠ Monitor¼á ╔á wa≤ ì
ablσ t∩ finΣ │ Call≤ t∩ Basic«á Al∞ m∙ book≤ witΦ Memor∙ map≤ listeΣá show≤ ì
A62╞ a≤ VD╒ ou⌠ - ┴ register¼á eveε thσ Premiuφ manual« However¼ witΦ 6.28σ ì
Basiπá i⌠á i≤ a⌠ A62┼ - ▒ bytσ loweríá It≤ ß simplσ matte≥ oµ changinτá thσ ì
codσ a⌠ thσ │ place≤ thσ call≤ arσ made« ╔ useΣ SUPERZA╨ t∩ d∩ this.
The code to change is as follows:-
Sector 6 at 330 there is CD 2F A6 - change to CD 2E A6
Sector 7 at 3B6 " " " " " " " " " "
Sector 1A at D7D " " " " " " " " " "
BACKGAMM.BE┼ no≈ run≤ witΦ Basiπ 6.28σ anΣ no⌠ thσ others« Al∞ ╔ havσ t∩ d∩ ì
i≤ learε ho≈ t∩ pla∙ thσ game« Bes⌠ oµ luck.
From: MARK GLOVER To: ALL Re: MONITOR FOR SALE
ON┼ OL─ BLAC╦ AN─ WHIT┼ MONITO╥ (CONVERTE─ TV⌐ FO╥ SALE« HA╙ BEE╬ MARKE─ BU╘ I╘ STIL╠ GOES« $30.
From: ROBERT NEWMAN To: ALL Re: HELP 1248-6 AND 56K
Caε anyonσ hel≡ me┐á ╔ bough⌠ ß workinτ 1248-╢ maiε boarΣ a⌠ thσ MBE┼ sale« ╔ aφ tryinτ t∩ ge⌠ m∙ 56δ corσ boarΣ t∩ work« Thσ 1248-╢ ì
i≤ standarΣ anΣ ha≤ link≤ D-E¼á F-G¼á H-╔ connected« ╔ havσ disconnecteΣ A-┬ anΣ addeΣ R7¼ wheε ╔ switcΦ i⌠ oε i⌠ display≤ thσ Disδ ì
Monito≥ anΣ doe≤ no⌠ acces≤ thσ Drive«á Thσ 56╦ corσ boarΣ i≤ O╦ anΣ wheε ╔ attacΦ ß 3▓ Roφ Corσ boarΣ Basiπ work≤ wheε it≤ switcheΣ ì
on« I≤ therσ anothe≥ link(s⌐ t∩ change┐ possibl∙ L-K« An∙ hel≡ woulΣ bσ appreciated.
From: ANDREW DORAN To: ALL Re: MEMORY CHIPS
Doe≤ anyonσ kno≈ wha⌠ sor⌠ oµ chip≤ anΣ extra'≤ arσ requireΣ t∩ upgradσ froφ 64δ t∩ 128k« A⌠ presen⌠ Θ ruε CIAB« è MIS├ DIS├ FRO═ DREAMCARDS
Software Review B∙ Malcolφ Osborne
Thi≤á disδá contain≤á ßá collectioεá oµá miscellaneou≤á program≤á froφ ì
Dreamcard≤á Software«á Thi≤ disδ i≤ aut∩ bootinτ jus⌠ placσ i⌠ iε thσ drivσ ì
anΣ pres≤ rese⌠ anΣ awa∙ wσ go.
┴á shor⌠ introductioε i≤ displayeΣ als∩ ß warninτ t∩ softwarσá pirate≤ ì
tha⌠á ß piratσ cop∙ oµ thi≤ disδ wil∞ causσ disδ drivσ heaΣá missalignment« ì
Thσ maiε men⌡ theε follow≤ a≤ such.
Instruction≤ [I▌ Disassemble≥ [D]
Psychoteπ [P▌ Psi-Tes⌠ [X]
Squadroε [S▌ Treδ [T]
WhicΦ prograφ d∩ yo⌡ wan⌠ ┐ [*]
Iµ yo⌡ pres≤ thσ [I▌ ke∙ yo⌡ arσ thσ prompteΣ agaiε by
WhicΦ prograφ d∩ yo⌡ wan⌠ ┐ [*].
B∙á pressinτ thσ correc⌠ ke∙ ß brieµ Descriptioε wil∞ bσ displayeΣá oεá thσ ì
prograφ selected.
PSYCHOTEC:
Psychoteπ i≤ you≥ Silicoε chi≡ psychiatrist«á Thi≤ prograφ i≤ baseΣ oε ì
thσ Elizß prograφ bu⌠ i⌠ ha≤ ß mucΦ large≥ vocabular∙ anΣ doe≤ comσ u≡ witΦ ì
somσ ver∙ interestinτ questions« Thi≤ prograφ wil∞ makσ yo⌡ dra≈ u≡ ou≥ owε ì
conclusion≤á t∩ ß problem¼á ß fuε anΣ interestinτ program«á Therσ i≤ als∩ ß ì
Manua∞ availablσ fo≥ Psychoteπ fo≥ aε extrß $5.0░ fo≥ peoplσ interesteΣá iε ì
ho≈ thσ wholσ prograφ i≤ pu⌠ together«
SQUADRON:
Squadroε i≤ aε arcadσ stylσ gamσ alonτ thσ linσ oµ Galaxians« Squadroε ì
i≤ ß ver∙ wel∞ writteε gamσ witΦ gooΣ clea≥ flicke≥ freσ graphics¼ anΣ gooΣ ì
qualit∙á sound«á B∙á pressinτ thσ esπ ke∙ yo⌡ arσ ablσ t∩ alte≥á thσá speeΣ ì
settings¼ shootinτ rate¼ sounΣ anΣ joysticδ control« ┴ fas⌠ gamσ witΦ lot≤ ì
oµ action.
DISASSEMBLER:
Disassembler«á Wha⌠á morσ caε ╔ say┐á Disassemble≥ i≤ ß disassemble≥ ì
witΦá outpu⌠ t∩ eithe≥ ß disδ filσ o≥ thσ printer«á Aε approximatσ timσá t∩ ì
completσá disassambl∙ i≤ giveε anΣ thσ wholσ prograφ i≤ men⌡á driven«á Thi≤ ì
prograφ i≤ s∩ simplσ eveε ╔ caε usσ it«
PSI-TEST:
Psi-Test«á Thi≤á i≤ ß prograφ t∩ tes⌠ you≥ power≤ oµ ES╨ b∙á evaluatinτ ì
you≥á abilit∙á t∩ predic⌠ ß serie≤ oµ randoφ choice≤ madσ b∙á thσá compute≥ ì
betweeε ▓ o≥ │ objects« Iε ES╨ modσ thσ compute≥ select≤ onσ objec⌠ anΣ yo⌡ ì
mus⌠á choicσ whicΦ objec⌠ ha≤ beeε selected«á Iε K╨ modσ yo⌡ mus⌠ wil∞á thσ ì
compute≥á t∩ selec⌠ ß specifiπ object«á ┴ fuε prograφ fo≥ al∞ thosσá peoplσ ì
wh∩ believσ iε minΣ power. èTREK:
Trek«á Thi≤ i≤ ß ver∙ soupeΣ u≡ versioε oµ thσ Z-TRE╦ game«á ┴ lo⌠ oµá worδ ì
ha≤á gonσá int∩á thi≤ prograφ anΣ thσ finisheΣ produc⌠ show≤á i⌠á all«á Thσ ì
instruction≤á caε bσ outputteΣ t∩ you≥ printe≥ anΣ arσ ver∙ hand∙á t∩á havσ ì
closσá b∙ unti∞ yo⌡ kno≈ ho≈ t∩ pla∙ thσ gamσ properly«á You≥ missioε i≤ t∩ ì
destro∙ thσ Volan≤ usinτ you≥ spacσ ship«á thi≤ i≤ ß ver∙ comple° gamσá bu⌠ ì
i⌠ i≤ thσ bes⌠ gamσ oµ Sta≥ Treδ ╔ havσ played.
Thi≤á Softwarσ i≤ availablσ froφ Dreamcard≤ oε │ 1/▓ o≥ ╡ 1/┤ incΦ disδ fo≥ ì
$34.9╡ plu≤ 20Ñ sale≤ ta° anΣ &2.0░ postage«á Plu≤ $5.0░ iµ yo⌡ woulΣá likσ ì
thσ Psychoteπ manual.
Writσ t∩ DREAMCARD╙ ╕ HIGHLAN─ COUR╘ ELTHA═ NORT╚ 3095.
ooOO=OOoo
From: FRED QUINLAN To: ALL Re: Mbee conversions
I≤á i⌠á possiblσá t∩ conver⌠ ß 32δ serie≤ │ communicato≥ beσ t∩á 128δá CP/═ ì
operatinτ systeφ withou⌠ changinτ thσ mothe≥ board«
From: ANDREW BARFOOT To: ALL Re: PRINTER WANTED
ON┼ ONL┘ DOT-MATRI╪ PRINTE╥ WANTED« SECON─ HAN─ I╬ GOO─ CONDITIO╬ REQUIRED« ì
PLEAS┼ LEAV┼ MESAG┼ O╬ B┬ O╥ PHON┼ M┼ A╘ M┘ HOM┼ NUMBE╥
From: PETER BROUGHTON To: ALL Re: 512k Premium 4 sale
512δá disδ baseΣ Premiuφ keyboarΣ fo≥ sale«á Thi≤ i≤ 128δ Premiuφ tha⌠á ha≤ ì
beeε upgradeΣ t∩ 512k« Come≤ witΦ operatinτ systeφ t∩ makσ usσ oµ thσ extrß ì
memor∙á anΣ i≤ completel∙ compatiblσ witΦ ß norma∞ 128k«á WitΦ ßá 414δá Raφ ì
disδá thi≤á make≤ aε excellen⌠ (anΣ fast⌐ Microbee«á To≡ conditioεá - $450« ì
Als∩ ╔ havσ ß Microbeσ 703░ Colou≥ Monito≥ fo≥ sale«á Wil∞ sui⌠ Microbeσ o≥ ì
others¼á eg«á IB═á witΦ CG┴ colou≥ graphic≤ board¼á etc«á A≤ ne≈á (include≤ ì
cable⌐ - $500« ono« Contac⌠ Pete≥ Broughtoε oε thσ RBB╙ o≥ A/╚ oε 347-8114.
From: ERIC REABURN To: ALL Re: TELCOM CURSOR
AR┼á YO╒á SIC╦ O╞ ┴ FLASHIN╟ BLOC╦ I╬ TELCO═ 2.2«á WOUL─ YO╒á LIK┼á ┴á NIC┼ ì
FAMILIA╥á FLASHIN╟á UNDERLIN┼ INSTEAD┐á THE╬ TR┘ THIS║á CHANG┼ TH┼ BYT┼á A╘ ì
351C╚ FRO═ 60╚ T╧ 6AH« THI╙ BYT┼ I╙ TH┼ CUR╙ CURSO╥ MOD┼ FO╥ TH┼ 654╡ CRTC.
From: ANGELO VIRGONA To: ALL Re: MICROBEE FOR SALE
HI¼ ╔ HAV┼ ┴ MICROBE┼ C.I.A.B« DUA╠ DIS╦ SYSTE═ FO╥ SALE« WIT╚ TH┼ SYSTE═ ╔ ì
ALS╧á WAN╘ T╧ SEL╠ ┴ SPEEC╚ SYNTHESIZER,EPRO═ PROGRAMME╥ AN─á EPRO═á READE╥ ì
WIT╚ DRIVIN╟ SOFTWARE« FO╥ MOR┼ INF╧ CONTAC╘ M┼ ON║ 57╣ 279▓ » 53▒ 169│
DEFINITION:
mole (mol)
Thσ molσ i≤ thσ amoun⌠ oµ substancσ whicΦ contain≤ a≤ man∙ elementar∙ unit≤ ì
a≤á therσ arσ atom≤ iε 0.01▓ kilogrammσ oµ carbon-12«á Thσ elementar∙á uni⌠ ì
mus⌠ bσ specifieΣ anΣ ma∙ bσ aε atom¼á ß molecule¼á aε ion¼á aε electron¼ ß ì
photon, etc., or a given group of such entities.è LOAN.PAS
Some WRITELN commands are indented so they fit the magazine. ED
{Loan Repayment Calculator by Paul Shannon MBUG member 1219}
{Calculates the total amount and total interest paid on a reducing balance
loan.}
var
INTEREST, BAL, INITBAL, PRINC, INTERESTRATE, REPAYMENT, REPAYTEST,
INITREPAYMENT, REPAYMENTSUM, FINALPAYMENT, INTERESTSUM,
MAXPAYMENT, STEP : REAL;
MONTH, YEAR : INTEGER;
MULTDISPLAY, AGAIN, VIDEO : CHAR;
procedure YESORNO (var YES {output} : CHAR);
begin {Yes or No}
YES := ' ';
while (YES <> 'N') and (YES <> 'Y') do
begin
WRITE (' (Y/N) ');
READLN (YES);
YES := UPCASE (YES)
end;
end; {Yes or No}
procedure TITLES;
begin
CLRSCR;
WRITELN ('Loan Repayment Calculator' : 40);
WRITELN ('By Paul Shannon' : 35);
WRITELN;
WRITELN
(' This utility program is designed to calculate the total TIME, total');
WRITELN
('REPAYMENTS, and total INTEREST, on a reducing balance loan. All ');
WRITELN
('calculations are based on monthly interest calculations, and monthly');
WRITELN ('repayments.');
WRITELN;
WRITELN
(' The difference between this and most other loan calculators,
is it''s ability');
WRITELN
('to automatically increment the repayment rate, and recalculate the loan,');
WRITELN ('accordingly.');
WRITELN;
WRITELN
(' While you are entering the data, you will be asked if you wish to do');
WRITELN
('multiple calculations. Should you answer yes,
the computer will recalculate');
WRITELN
('your loan as many times as desired, each time incrementing the
repayment rate');
WRITELN
('by a set step size. This should prove very useful when deciding how much');
WRITELN ('you wish to pay off your loan each month.')è end; {Titles}
procedure INPUT;
begin
WRITELN;
INITBAL := 0;
while INITBAL < 0.01 do
begin
WRITE ('Enter the PRINCIPAL to be borrowed: $'); READLN (INITBAL)
end;
PRINC := INITBAL;
INTERESTRATE := 100;
while (INTERESTRATE >= 100) or (INTERESTRATE < 0) do
begin
WRITE ('Enter the YEARLY (%) INTEREST RATE: ');
READLN (INTERESTRATE)
end;
INTERESTRATE := INTERESTRATE / 1200;
REPAYTEST := INITBAL * INTERESTRATE;
REPAYMENT := REPAYTEST - 1;
WRITE ('Multiple loan calculations?');
YESORNO (MULTDISPLAY);
while REPAYMENT <= REPAYTEST + 0.01 do
begin {Repayment test}
WRITE ('Enter the ');
if MULTDISPLAY = 'Y' then
WRITE ('MINIMUM ');
WRITE ('monthly repayment (must be greater than $',
REPAYTEST : 8 : 2, ') $'); READLN (REPAYMENT)
end {Repayment test};
if MULTDISPLAY = 'Y' then
begin {Multiple calculations}
MAXPAYMENT := PRINC + 1;
while MAXPAYMENT > PRINC do
begin
WRITE ('Enter the MAXIMUM monthly repayment: $');
READLN (MAXPAYMENT)
end;
WRITE ('Enter the step size: $'); READLN (STEP)
end {Multiple calculations}
end; {Input}
procedure DISPLAY;
begin
WRITE ('Do you wish to display the calculations?');
YESORNO (VIDEO);
if VIDEO = 'Y' then
begin
WRITELN;
WRITELN ('(Use CTRL-S to pause.)');
WRITELN;
DELAY (2000);
WRITELN ('Month' : 8, 'Initial' : 12, 'Interest' : 17,
'Repayment' : 15, 'Final' : 13);
WRITELN ('Balance' : 20, 'Balance' : 45);
WRITELN
end
else
begin
WRITELN;è WRITELN ('Please wait.')
end
end; {Display}
procedure CALCULATE;
begin
MONTH := 0;
REPAYMENTSUM := 0;
INITBAL := PRINC;
while INITBAL >= 0.01 do
begin {calculate loop}
MONTH := MONTH + 1;
INTEREST := INITBAL * INTERESTRATE;
if REPAYMENT > INITBAL + INTEREST then
begin
FINALPAYMENT := INITBAL + INTEREST;
REPAYMENTSUM := REPAYMENTSUM + FINALPAYMENT;
BAL := INITBAL + INTEREST - FINALPAYMENT
end
else
begin
REPAYMENTSUM := REPAYMENTSUM + REPAYMENT;
BAL := INITBAL + INTEREST - REPAYMENT
end;
if VIDEO = 'Y' then
WRITELN (MONTH : 5, INITBAL : 15 : 2, INTEREST : 15 : 2,
REPAYMENT : 15 : 2, BAL : 15 : 2);
INITBAL := BAL
end; {calculate loop}
YEAR := MONTH div 12;
MONTH := MONTH mod 12
end; {Calculate}
procedure PRINT_SINGLE;
begin
WRITELN;
WRITELN ('STATISTICS:');
WRITELN;
WRITELN ('Principal borrowed: $', PRINC : 10 : 2);
WRITELN ('Interest Rate:', INTERESTRATE * 1200 : 18 : 2,
'% p.a. (compounded montly) ');
WRITELN ('Repayment rate: $', REPAYMENT : 13 : 2, ' per month');
WRITELN;
WRITE ('Time: ', YEAR : 25, ' Year');
if YEAR <> 1 then
WRITE ('s');
WRITE (' and ', MONTH, ' month');
if MONTH <> 1 then
WRITELN ('s')
else WRITELN;
WRITELN ('Total Repayments: $', REPAYMENTSUM : 12 : 2);
WRITELN ('Total Interest: $', REPAYMENTSUM - PRINC : 12 : 2)
end; {Printout}
procedure MULTIPLE;
var
LINE : INTEGER;
CONTINUE : CHAR;
è begin
LINE := 0;
VIDEO := 'N';
CONTINUE := 'Y';
WRITELN;
WRITELN ('$', PRINC : 12 : 2, ' at ', INTERESTRATE * 1200 : 5 : 2,
' % p.a.');
WRITELN;
WRITELN
(' Monthly Time Total Total');
WRITELN
(' Repayment Repayments Interest');
WRITELN;
while (REPAYMENT <= MAXPAYMENT) and (CONTINUE <> 'N') do
begin
CALCULATE;
LINE := LINE + 1;
WRITE (REPAYMENT : 10 : 2, YEAR : 9, ' year');
if YEAR <> 1 then
WRITE ('s, ')
else
WRITE (', ');
WRITE (MONTH : 2, ' month');
if MONTH <> 1 then
WRITE ('s')
else
WRITE (' ');
WRITELN (REPAYMENTSUM : 14 : 2, REPAYMENTSUM - PRINC : 14 : 2);
REPAYMENT := REPAYMENT + STEP;
if LINE > 22 then
begin
LINE := 0;
WRITE ('More?');
YESORNO (CONTINUE);
end {if}
end {while}
end; {Multiple}
begin {Main Program}
TITLES;
AGAIN := 'Y';
while AGAIN = 'Y' do
begin
INPUT;
if MULTDISPLAY = 'N' then
begin
DISPLAY;
CALCULATE;
PRINT_SINGLE
end
else
MULTIPLE;
WRITELN;
WRITE ('Any more calculations?');
YESORNO (AGAIN)
end {Again}
end. {Main Program}
è TRACKIN╟ AROUN─ YOUR 3 1/2" DISK b∙ ─ WORTHY
(AdopteΣ froφ Cairn≤ Microbeσ User≤ Grou≡ b∙ Johε Button)
Therσá arσ quitσ ß fe≈ gooΣ program≤ arounΣ tha⌠ le⌠ yo⌡ wande≥ arounΣá anΣ ì
looδá a⌠á wha⌠á i≤á oε ß disk«á Thi≤ caε bσ interestinτá bu⌠á confusinτá o≥ ì
dangerou≤á iµá yo⌡á don'⌠á kno≈ wherσ yo⌡ arσá anΣá yo⌡á can'⌠á speaδá thσ ì
language«á ╔á hopσá t∩á providσ yo⌡ witΦ somσ semblancσ oµ ßá ma≡á anΣá aε ì
insigh⌠á int∩ thσ term≤ useΣ b∙ somσ oµ thesσ programs«á ╔ aφ no⌠ surσá ho≈ ì
mucΦ oµ thi≤ relate≤ t∩ ╡ 1/4ó anΣ doublσ sideΣ │ 1/2ó disks.
Firs⌠ thσ term≤ useΣ wheε talkinτ disks:-
Bit≤ - thσ mos⌠ basiπ elemen⌠ oµ an∙ compute≥ informatioε storeΣ oε disk« ì
I≤ equa∞ t∩ onσ (1⌐ o≥ (0)« Don'⌠ worr∙ abou⌠ thi≤ onσ !!
Byte≤ - wheε eigh⌠ bit≤ ge⌠ together¼á the∙ forφ ß byte«á Thi≤ i≤ onσ t∩ ì
remember« Wheε yo⌡ looδ a⌠ you≥ memory¼ usinτ thσ monito≥ o≥ ß peeδ commanΣ ì
iε basic¼ wha⌠ yo⌡ seσ i≤ ß Bytσ oµ information« Thi≤ i≤ froφ 00╚ t∩ FF╚ iε ì
he° o≥ ░ t∩ 25╡ iε decimal« ╔ coulΣ writσ anothe≥ articlσ oε wh∙ wσ usσ he° ì
anΣá binar∙á anΣ no⌠ decima∞ bu⌠ ╔ won't«á Iµ some-onσ elsσ woulΣá likσá t∩ ì
though¼á thσá Edito≥á woulΣá bσ pleaseΣ anΣ s∩ woulΣ I...«á ┴ bytσá i≤á thσ ì
smalles⌠á piecσá oµ informatioε o≥ datß wσ wil∞ bσ dealinτ witΦ anΣá i⌠á i≤ ì
normall∙ iε He° bu⌠ mos⌠ decen⌠ editinτ program≤ allo≈ tex⌠ entr∙ a≤á wel∞ ì
t∩ makσ thing≤ easier.
Sector≤á - ┴á secto≥á contain≤ 12╕ byte≤ anΣ i≤ normall∙á thσá amoun⌠á oµ ì
informatioε displayeΣ b∙ thσ editinτ prograφ anΣ als∩ b∙ thσ monitor« I⌠ i≤ ì
thσ smalles⌠ amoun⌠ oµ memor∙ capablσ oµ beinτ reaΣ t∩ o≥ froφ ß disk« Thi≤ ì
i≤ differen⌠ t∩ thσ smalles⌠ amoun⌠ oµ memor∙ takeε u≡ b∙ storinτ somethinτ ì
t∩ disk¼ bu⌠ morσ oµ tha⌠ next.
Blocδá - ┴ blocδ consist≤ oµ 1╢ sector≤ o≥ 204╕ byte≤ o≥ 2╦ a≤ yo⌡á woulΣ ì
normall∙ say«á No≈ iµ yo⌡ savσ ß ver∙ shor⌠ filσ t∩ disk¼á yo⌡ wil∞ noticσ ì
tha⌠á i⌠á stil∞á consume≤á 2╦ oµ spacσ íá Thi≤ i≤ becausσá disδá spacσá i≤ ì
allocateΣ iε blocks«á Remembe≥ thi≤ one¼ i⌠ i≤ important« You≥ saveΣ shor⌠ ì
filσá thereforσ take≤ u≡ onσ secto≥ oµ onσ blocδ anΣ thereforσ use≤ u≡á onσ ì
entirσ blocδ oµ disδ spacσ o≥ 2K.
Extent≤á - Thσ numbe≥ oµ sector≤ useΣ t∩ storσ you≥ program«á Iµá i⌠á i≤ ì
morσá thaε 1╢ (0FH⌐ sector≤ theε morσ thaε onσ blocδ wil∞ bσ useΣ t∩á storσ ì
i⌠á bu⌠á thσá numbe≥ oµ extent≤ wil∞ bσ thσ tota∞ numbe≥ oµá sector≤á used« ì
Thi≤ wil∞ bσ cleare≥ wheε wσ ge⌠ t∩ thσ Director∙ par⌠ oµ thσ disk.
Thσá firs⌠ tracδ oε thσ disδ i≤ tracδ 0«á Thσ firs⌠ secto≥ oε thσ disδá i≤ ì
secto≥ 1« Therσ i≤ n∩ secto≥ 0.
Thσ firs⌠ tw∩ track≤ oε thσ disδ arσ reserveΣ fo≥ thσ System«á Thi≤á woulΣ ì
requirσ morσ spacσ thaε ╔ havσ t∩ fil∞ t∩ explain«á Als∩ ╔ don'⌠ kno≈ mucΦ ì
abou⌠ i⌠ myselµ !!!íá s∩ thσ bes⌠ ╔ caε d∩ i≤ refe≥ yo⌡ t∩ chapte≥ ▒ oµ thσ ì
CP/═á tutoria∞á iε you≥ manua∞ anΣ iµ yo⌡ understanΣ i⌠ anΣ caε explaiεá i⌠ ì
morσ clearly¼ wσ woulΣ likσ anothe≥ articlσ please.
Thσ nex⌠ tracδ i≤ N∩ 2«á Thi≤ i≤ wortΦ rememberinτ sincσ i⌠ i≤ wherσá you≥ ì
director∙ i≤ stored« ┴ samplσ director∙ entr∙ appear≤ belo≈ :-
0░ 5│ 4┤ 5╡ 4─ 5░ 2░ 2░ 2░ C│ 4╞ 4─ 0░ 0░ 0░ 0╡ .SDUM╨ COM....
0╢ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ 0░ .......« .......
èThσ to≡ lef⌠ 0░ i≤ ou≥ firs⌠ bi⌠ oµ vita∞ datß !!íá Thi≤ tell≤ yo⌡ tha⌠ thσ ì
filσ ha≤ no⌠ beeε deleted« Aε E5╚ mean≤ tha⌠ i⌠ ha≤ beeε deleted« Iε fac⌠ ì
E5╚ i≤ useΣ t∩ fil∞ thσ disδ wheε i⌠ i≤ formatteΣ s∩ iµ yo⌡ looδ pas⌠ wherσ ì
thσá file≤á finisΦá o≥ a⌠ ß newl∙ formatteΣ disk¼á al∞ yo⌡ shoulΣá seσá arσ ì
E5H's«á Thσá ╚ i≤ onl∙ therσ t∩ sho≈ I'φ usinτ he° number≤ al∞á thσá time« ì
Thi≤ firs⌠ numbe≥ caε als∩ bσ iε thσ rangσ 00╚ t∩ FFH¼ t∩ indicatσ iε whicΦ ì
use≥á areßá thσá filσá i≤ located«á Fo≥ aε explanatioε oµá use≥á area≤á seσ ì
Diskettσ Organisatioε ¼á Chapte≥ ╖ Sectioε ▒ oµ ou≥ manual«á Notσ als∩ tha⌠ ì
thσá ASCI╔á equivalen⌠ occur≤ oε thσ lef⌠ hanΣ sidσ anΣ sincσ therσá i≤á n∩ ì
ASCI╔ equivalen⌠ oµ 00H¼á ß ful∞ sto≡ i≤ useΣ instead¼ Onl∙ value≤ betweeε ì
20╚ anΣ 7E╚ comσ u≡ a≤ tex⌠ oε thσ righ⌠ hanΣ side« 2E╚ oµ coursσ come≤ u≡ ì
a≤ ß rea∞ ful∞ sto≡ bu⌠ i⌠ tend≤ t∩ blenΣ iε ....
Thσ nex⌠ 1▒ position≤ arσ useΣ u≡ b∙ thσ prograφ name╗á ╕ position≤ fo≥ thσ ì
namσá whicΦ i≤ lef⌠ justifieΣ anΣ paddeΣ witΦ space≤ (20H⌐ fo≥á name≤á tha⌠ ì
arσ les≤ thaε eigh⌠ characters╗ │ postion≤ fo≥ thσ extensioε typσ (eg« COM¼ ì
WBF¼á MW┬á etc⌐á whicΦ i≤ als∩ lef⌠ justifieΣ anΣ paddeΣ fo≥ extension≤á oµ ì
les≤ thaε │ characters«á Notσ thσ ful∞ sto≡ doesn'⌠ exis⌠ a⌠ thi≤á time!!í ì
Thσ namσ ABCDEFGH.IJ╦ appear≤ a≤ ABCDEFGHIJ╦ iε thσ directory« Thi≤ i≤ wh∙ ì
unuseΣá space≤á arσá replaceΣ b∙ spaces«á Thσ lef⌠ hanΣ ASCI╔á displa∙á i≤ ì
normall∙á divideΣ u≡ int∩ tw∩ group≤ oµ eight«á Notσ thσ ga≡á betweeεá thσ ì
dot≤ oε thσ seconΣ line.
Thσ nex⌠ │ position≤ arσ normall∙ 00╚ anΣ havσ n∩ functioε tha⌠ ╔ kno≈ of«
Oεá thσ righ⌠ hanΣ enΣ oµ thσ to≡ linσ i≤ thσ numbe≥ 05H«á Thi≤ tell≤á thσ ì
compute≥ ho≈ man∙ sector≤ thσ disδ use≤ t∩ storσ thσ prograφ SDUMP.COM« Iε ì
thi≤ casσ i⌠ i≤ 05╚ o≥ 5.
Wσá no≈á g∩ oε t∩ thσ lowe≥ line«á I⌠ tell≤ thσ compute≥ iε whicΦá logica∞ ì
blocδá thσ prograφ informatioε i≤ stored«á B∙ Logica∞ Block¼á ╔á meaεá thσ ì
block≤ arσ numbereΣ froφ thσ director∙ area«á Thi≤ mean≤ tha⌠ blocδ 00╚ i≤ ì
situateΣá a⌠á thσ star⌠ oµ tracδ 2«á Thσ director∙ occupie≤ thσ firs⌠á tw∩ ì
logica∞ block≤ oε tracδ ▓ anΣ thσ firs⌠ datß i≤ oε blocδ 02H« Iε thi≤ casσ ì
thσ datß i≤ storeΣ iε blocδ 06H«á Iµ thσ filσ SDUMP.CO═ i≤ eraseΣ anΣá E5╚ ì
appear≤ a⌠ thσ start¼ theε thσ blocδ numbe≥ 06╚ i≤ freσ t∩ bσ useΣ agaiε iµ ì
needed«á Iεá thσ casσ oµ ß freshl∙ formatteΣ disk¼á wherσ file≤ arσ copieΣ ì
ove≥á anΣá n∩ erasure≤ havσ takeε place¼á thσ allocateΣ blocδá number≤á arσ ì
sequentia∞ 0▓ 0│ 0┤ etc«á A≤ file≤ arσ eraseΣ anΣ addeΣ though¼ block≤ arσ ì
freσ u≡ ou⌠ oµ orde≥ anΣ thσ followinτ blocδ recorΣ coulΣ appea≥ 0┤ 2┴á 11« ì
Thi≤á mean≤ thσ firs⌠ blocδ oµ thσ prograφ i≤ iε blocδ 04H¼á thσ nex⌠ 2δ i≤ ì
iε blocδ 2A╚ anΣ thσ remainde≥ i≤ iε blocδ 11H« Thσ tex⌠ oε thσ righ⌠ wil∞ ì
bσá meaningles≤á anΣ wil∞ simpl∙ represen⌠ thσ blocδ informatioε iεá ASCII« ì
Now¼á iµ wσ havσ 1╢ hole≤ fo≥ storinτ thσ blocδ informatioε anΣ eacΦ blocδ ì
i≤á 2╦ long¼á i⌠ doesn'⌠ takσ aε Einsteiε t∩ figurσ ou⌠ tha⌠ ß filσá longe≥ ì
thaε 32╦ need≤ morσ room!!íá Wha⌠ happen≤ now¼ i≤ anothe≥ entr∙ i≤ createΣ ì
witΦ thσ samσ namσ anΣ thσ blocδ record≤ carr∙ oε oε thσ seconΣ line«á Thσ ì
numbe≥á oµ extent≤ iε eacΦ casσ ha≤ ß maximuφ valuσ oµ 80╚ fo≥ eacΦá entry« ì
Onσá gooΣá examplσá i≤ thσ Spellsta≥ dictionar∙ whicΦ i≤á abou⌠á 96δá long! ì
Therσ arσ threσ entrie≤ iε thσ directory¼á eacΦ witΦ thσ samσ namσ anΣ eacΦ ì
witΦá 1╢ blocδ records«á Whilσ thσ firs⌠ tw∩ record≤ havσ 80╚ extent≤á thσ ì
thirΣ ha≤ onl∙ 78╚ indicatinτ tha⌠ therσ arσ n∩ block≤ storeΣ furthe≥ on.
Thσá lengtΦ oµ thσ director∙ i≤ 3▓ sector≤ o≥ ▓ blocks«á Thi≤ mean≤á 128*3▓ ì
Byte≤á iεá thσ Directory«á EacΦ entr∙ i≤ 3▓ Byte≤ lonτ s∩ thi≤á mean≤á onl∙ ìè(128*32)/32=12╕á entrie≤á pe≥ disk«á Iµ yo⌡ exceeΣ 12╕á entrie≤á yo⌡á wil∞ ì
receivσ ß "Director∙ Fulló erro≥ messagσ anΣ thi≤ caε occu≥ beforσ thσ disδ ì
i≤ full!!!
Afte≥ thσ director∙ block≤ star⌠ thσ prograφ data« Thi≤ caε bσ codσ files¼ ì
databasσ records¼á wordprocesso≥ file≤ etc.«á Somσ wil∞ makσ sensσ t∩á you¼ ì
other≤ wil∞ not« Somσ code≤ appea≥ iε al∞ files¼ however¼ thesσ arσ 1A╚ anΣ ì
E5H« 1A╚ i≤ thσ enΣ oµ filσ messagσ anΣ oncσ you≥ prograφ see≤ ß streaφ oµ ì
thesσá i⌠ know≤ thσ filσ i≤ a⌠ aε end«á E5╚ ╔ mentioneΣ beforσ anΣ i≤ useΣ ì
t∩ fil∞ thσ disδ wheε i⌠ i≤ formatted¼á bu⌠ i⌠ i≤ als∩ useΣ t∩ fil∞á unuseΣ ì
area≤ oµ thσ blocδ afte≥ thσ prograφ datß finishes.
Bacδá oε thσ subjec⌠ oµ tracks¼á sector≤ anΣ blocks«á Blocδ 00╚ i≤ tracδ ▓ ì
secto≥ 1«á Blocδ 01╚ i≤ tracδ ▓ secto≥ 17« Blocδ 02╚ i≤ tracδ ▓ secto≥ 3│ ì
anΣ a≤ yo⌡ caε seσ therσ i≤ n∩ simplσ patterε betweeε blocδá number¼á tracδ ì
numbe≥á anΣá Secto≥ number«á Thσ reasoε i≤ tha⌠ therσ arσ 4░á sector≤á pe≥ ì
tracδ anΣ 1╢ sector≤ pe≥ blocδ s∩ the∙ ge⌠ ou⌠ oµ ste≡ striagh⌠ away«á Onσ ì
program¼á calleΣá XAMN.CO═á allow≤á yo⌡ t∩ calculatσ blocδ froφá tracδá anΣ ì
secto≥á anΣ als∩ tracδ anΣ secto≥ froφ thσ block¼á thσ onl∙ troublσá i≤á i⌠ ì
want≤á thσá blocδ numbe≥ iε decima∞ s∩ yo⌡ neeΣ ß conversioεá char⌠á handy« ì
Anothe≥ prograφ calleΣ SUPERZAP.CO═ allow≤ yo⌡ t∩ selec⌠ eithe≥ ß filσ o≥ ß ì
secto≥ t∩ examine« REMBE╥ tha⌠ change≤ madσ witΦ thesσ disδ utilitie≤ makσ ì
change≤á directl∙ t∩ thσ disδ s∩ bσ carefu∞ anΣ iµ possiblσ d∩ experimenta∞ ì
worδ oε ß backu≡ disk.
From: MICHAEL HOBBY To: PAUL SMITH Re: MBEE CONNECT SENDATTA 1200B
A╬á ARTICL┼ I╬ YOU╥ COMPUTE╥ "BE┼ MODE═ GET╙ ┴ P├ O╞ TH┼ ACTIONó FE┬ 198╡ ¼á DESCRIBE╙ TH┼ BEEMODE═ ª HO╫ T╧ HOO╦ I╘ U╨ T╧ A╬á OTHE╥ ì
COMPUTER«á EVE╥ WHIC╚ EVE╥ WA┘ YO╒ G╧ WIT╚ NO╬ MICROBE┼ AN─ MICROBE┼ EQUIPMEN╘ TH┼ THIN╟ T╧ WATC╚ I╙ TH┼ 1░ VOLT╙ O╬ PI╬á NINE«á TH┼ ì
MICROBE┼ USE╙ PIN╙ ▓ TXD¼á │ RXD¼á ╡ CTS¼ ╖ GR─ ╣ POWER¼ 2┤ CLK« I╞ YOU╥ EQUIPMEN╘ HA╙ IT`╙ OW╬ POPOWE╥ D╧ NO╘ CONNEC╘ PI╬ ╣ ¼ I╞ I╘ ì
DOE╙ NO╘ 1░ VOLT╙ I╙ AVAILABL┼ O╬ PI╬ 9« RIN╟ M┼ O╬ 43╡ 201╢ I╞ YO╒ CA╬ NO╘ GE╘ ┴ COP┘ O╞ TH┼ ABOV┼ ARTICLE«
From: BERNARD HOLKNER To: ALL Re: SOFTWARE FOR SALE
EDASM¼á MYTE╦ WORDPROCESSO╥ ROMS« ALS╧ MISC« TAPES« Thσ ROM╙ arσ froφ aε earl∙ machine¼ completσ witΦ manuals« Als∩ variou≤ games¼ ì
utilitie≤ oε cassette« Makσ aε offer« Leavσ messagσ o≥ cal∞ 87╢ 3048«
From: MALCOLM OSBORNE To: ALL Re: EPROM FOR SALE
276┤ EPROM«á TH┼ EPR═ I╙ BURN╘ T╧ RU╬ TH┼ BE┼ ╬ TAL╦ PROGRA═ FO╥ TH┼ BEE-TALKER« I╘ WIL╠ FI╘ INT╧ ON┼ O╞ TH┼ SOCKET╙ I╬ ┴ RO═ BASE─ ì
BE┼ AN─ I╙ ACCESSE─ B┘ TH┼ PA╦ COMMAND« TH┼ COS╘ ONL┘ $5.0░ ┴ CHEA╨ PRIC┼ FO╥ EITHE╥ ┴ BLAN╦ O╥ PROGRA═ RO═ PHON┼ 40┤ 128▓
From: ERIC REABURN To: ALL Re: PD interpreters
Doe≤á anyonσ kno≈ wherσ ╔ caε ge⌠ m∙ hand≤ oε Publiπ Domaiε LIS╨ o≥ PROLOG┐á ╔ kno≈ ╔ sa≈ XLIS╨ arounΣ somewherσ once¼á bu⌠ ╔á can'⌠ ì
remembe≥ whereí Thσ situatioε i≤ no⌠ desperatσ YET¼ bu⌠ an∙ hel≡ woulΣ bσ greatl∙ appreciated.
From: JASON PLOZZA To: ALL Re: AVTEK MODEM
COUL─ AN┘ ON┼ TEL╠ M┼ HO╫ T╧ GE╘ A╬ AVTE╦ MULT╔ MODE═ T╧ WOR╦ WIT╚ TH┼ AUT╧ DIA╠ AUT╧ ANSWER«á THANK╙ :JASO╬ PLOZZ┴ ALS╧ WHER┼ CA╬ ╔ ì
GE╘ ┴ NE╫ SECON─ DRIV┼ FO╥ ┴ CIA┬ O╥ ┴ GOO─ SECON─ HAN─ ONE.
From: LINDSAY SMITH To: ALL Re: SALE OF 128K PREMIUM
128╦á MICROBE┼ PREMIU═ FO╥ SAL┼ DUA╠ 3.╡ IN«á FLOPP┘ DIS╦ DRIVES¼á AMBE╥ MONITOR¼á MODE═ (1200/7╡ ª 30░ BAUD)¼á HEAP╙ O╞ SOFTWAR┼á - ì
ALMOS╘ NE╫ PURCHASE─ DE├ 198╢ SEL╠ FO╥ $120░ PHON┼ LINDSA┘ O╬ 05▒ 222124
è COMPETITION WINNER MAGIC-SQ.BAS
10 GOTO 200
20 FOR J=0 TO N:K=-1: R=0: FOR I=J TO N: S=ABS(A(I,J)):IF S>R THEN K=I:R=S
30 NEXT: IF K=-1 THEN 70 ELSE FOR I=J TO N: SWAP A(J,I),A(K,I):
NEXT: SWAP B(J),B(K)
40 FOR I=J+1 TO N: S=A(I,J):G=ABS(S):IF G=0 THEN 65ELSE R=A(J,J):H=ABS(R)
50 F=G-(G\H)*H:G=H:H=F:IF F>0 THEN 50
60 A(I,J)=0:R=R/G:S=S/G:FOR K=J+1 TO N:A(I,K)=R*A(I,K)-S*A(J,K):
NEXT:B(I)=R*B(I)-S*B(J)
65 NEXT
70 NEXT:K=0:M=N
80 IF M<0 THEN 190
90 IF E<ABS(A(M,M))THEN 160
100 X(M)=9
110 J=M+1:R=X(M)
120 IF J>=N THEN 130 ELSE IF R=X(J)THEN 140 ELSE J=J+1:GOTO 120
130 L(K)=M:K=K+1:M=M-1:GOSUB 80:K=K-1:M=L(K)
140 X(M)=X(M)-1:IF X(M)>E THEN 110
150 RETURN
160 D=B(M):FOR J=M+1 TO N:D=D-A(M,J)*X(J):NEXT:D=D/A(M,M):X(M)=D:
IF(D<1)OR(9<D)THEN RETURN
170 IF D-INT(D+E)>E THEN RETURN ELSE J=M+1
180 IF J>=N THEN M=M-1:GOTO 80ELSE IF(D=X(J))THEN RETURN ELSE J=J+1:GOTO 180
190 PRINT" A B C D E F G H J X":FOR J=0 TO N:PRINT X(J);:NEXT:
PRINT:Q=Q+1:RETURN
200 DEFINT F-Q:I=J:K=G:H=F:P=Q:M=0:N=10-1:R=S:D=0:E=.001:
DIM A(N,N),B(N),L(N),X(N)
210 FOR J=0 TO 4:READ B(J):NEXT:FOR I=0 TO 3:FOR J=0 TO 3:READ A0$:
K=INSTR("ABCDEFGHJX",A0$)-1:A(J,K)=A(J,K)+1:A(I+5,K)=A(I+5,K)+1:
IF I+J=3 THEN A(4,K)=A(4,K)+1
220 IF I=J THEN A(N,K)=A(N,K)+1
230 NEXT:READ B(I+5):NEXT:FOR J=0 TO 3:READ B(J):NEXT:READ B(N):FOR J=0 TO N-1:
A(0,J)=A(0,J)+1:NEXT:B(0)=B(0)+45
240 GOSUB 20:IF Q=0 THEN PRINT"NO SOLUTIONS"
250 END
260 DATA 21,16,16,26,11
270 DATA B,X,G,D,24
280 DATA C,G,A,H,20
290 DATA H,A,J,E,19
300 DATA F,E,C,B,16
310 DATA 21,16,16,26,27
320 END
330 REM COPYRIGHT (C) 87JAN23 J.LOKE
From: JAMES MURRAY To: ALL Re: RF CONVERTERR
╔ neeΣ aε R╞ converte≥ s∩ tha⌠ ╔ caε usσ m∙ compute≥ oε thσ tv«á I'vσ trieΣ runninτ i⌠ througΦ thσ vide∩ inpu⌠ oε thσ vide∩ recorde≥ ì
bu⌠ thσ picturσ keep≤ rollinτ u≡ thσ screen« Doe≤ anyonσ kno≈ wherσ ╔ caε ge⌠ one?
From: PETER BURBIDGE To: ALL Re: DISZILOG HELP WANTED
Doe≤ anyonσ havσ thσ .DO├ filσ fo≥ DISZILOG.COM┐á ╔ wan⌠ t∩ kno≈ wha⌠ thσ labe∞ type≤ mean¼á a≤ generateΣ b∙ DISZILOG«á Ultimatel∙ ╔ ì
woulΣá likσá t∩á usσá DISZILO╟ unde≥ SUBMI╘ t∩ savσ havinτ t∩ ente≥ BYT┼ anΣ WOR─ addresse≤ b∙ hand«á An∙ advisσ oεá thi≤á woulΣá bσ ì
gratefull∙ accepted« Iµ yo⌡ caε hel≡ pleasσ leavσ messagσ o≥ phonσ 72╢ 7126«
è LAST MEETING
Thσ las⌠ meetinτ wa≤ fairl∙ wel∞ attended«á Thσ Presiden⌠ informeΣ us a≤ t∩ ì
wha⌠á thσá cluΓá i≤ u≡ t∩ thi≤ month«á Thσ firs⌠ iteφ thi≤á montΦá wa≤á thσ ì
programminτ competitioε whicΦ therσ haΣ onl∙ beeε │ entrie≤ t∩ date« Iµ yo⌡ ì
founΣ thi≤ probleφ to∩ hard¼ pleasσ le⌠ ß membe≥ oµ thσ committeσ know«
Theεá camσá thσ announcemen⌠ oµ anothe≥ competitioε fo≥ eithe≥ thσ bes⌠á o≥ ì
mos⌠ usefu∞ articlσ iε thσ Catcher« Wha⌠ i≤ requireΣ i≤ aε articlσ fo≥ thσ ì
Catche≥ t∩ bσ publisheΣ betweeε Ma∙ anΣ August¼ thσ cluΓ membershi≡ presen⌠ ì
a⌠á thσ Augus⌠ meetinτ wil∞ judgσ thσ bes⌠ entr∙ b∙ vote«á Thi≤ competitioε ì
i≤á opeε t∩ al∞ member≤ oµ thσ cluΓ anΣ thσ prizσ i≤ thσá softwarσá packagσ ì
DEB╘á MASTE╥á whicΦá ha≤á beeεá ver∙ kindl∙ donateΣá b∙á Lindsa∙á ForΣá oµ ì
Dreamcard≤á Software«á S∩ no≈ i⌠ i≤ u≡ t∩ yo⌡ senΣ iε an∙ articlσ yo⌡á likσ ì
whethe≥ i⌠ i≤ software¼á ß ti≡ o≥ ß review«á Al∞ entrie≤ wil∞ bσ treateΣ a≤ ì
equa∞ b∙ thσ Membership«
ì
Bargain≤á t∩á bσá haΣ iε thσ Bazaa≥ thi≤ montΦ werσ ╡ 1/4ó Mem∩á Disk≤á fo≥ ì
$1.50«á Thσ cluΓ ha≤ pu⌠ togethe≥ ß rea∞ timσ clocδ ki⌠ fo≥ thσá Bee«á Thi≤ ì
ki⌠ i≤ thσ samσ a≤ thσ onσ supplieΣ b∙ Microbeσ System≤ fo≥ $80.0░ bu⌠ cos⌠ ì
onl∙á thσ smal∞ suφ oµ $20.00«á Al∞ thosσ peoplσ interesteΣá contac⌠á Keviε ì
Carr«á Therσá werσ t∩ bσ │ display≤ thi≤ montΦ bu⌠ thσ persoε wh∩ wa≤ t∩ d∩ ì
thσ dem∩ oµ to≡ oµ thσ clas≤ didn'⌠ sho≈ up«
Russel∞á Crosse≥á haΣá ßá displa∙ se⌠ u≡ oε thσá publiπá domaiεá serie≤á oµ ì
MUSICRAF╘á programs«á Musicraf⌠ involve≤ buildinτ u≡ ß smal∞ devicσ witΦ aε ì
amplifie≥á tha⌠á plug≤ int∩ thσ paralle∞ port¼á wheε yo⌡ ruεá thσá softwarσ ì
Musiπ caε bσ heard«á Al∞ differen⌠ type≤ oµ wavσ form≤ caε bσ hearΣá cominτ ì
froφá thi≤ unusua∞ device«á Yo⌡ arσ ablσ t∩ writσ you≥ owε musiπ anΣá alte≥ ì
yo⌡ owε waveforφ t∩ producσ anythinτ o≥ sounΣ tha⌠ yo⌡ woulΣ like¼á I founΣ ì
i⌠á ver∙ interesting«á Thσ nex⌠ dem∩ wa≤ b∙ Wa∞ Hanson«á Thσá prograφá wa≤ ì
calleΣ Facσ Bender«á I aφ unablσ t∩ tel∞ yo⌡ t∩ mucΦ abou⌠ thi≤ prograφ a≤ ì
╔á haΣá t∩ leavσ earl∙ tha⌠ night«á Iµ yo⌡ havσ an∙ prograφ tha⌠ yo⌡á woulΣ ì
likσ t∩ dem∩ t∩ thσ cluΓ o≥ hardwarσ yo⌡ woulΣ likσ t∩ dem∩ pleasσá contac⌠ ì
thσ Secretary« Til∞ nex⌠ meeting. Regard≤ Malcolφ
$$ FOR SALE $$ FOR SALE $$ FOR SALE $$
SENDATA Modem with 300 & 1200/75 auto dial/answer $200.00 ONO. A/H 354-6742
64k CIAB. $500.00 Contact Tony SMITH 798-5606
$$ FOR SALE $$ FOR SALE $$ FOR SALE $$
DEFINITION:
candela (cd)
Thσ candel≤ i≤ thσ luminou≤ intensit∙ iε thσ perpendicula≥ direction¼á oµ ß ì
surfacσá oµá 1/60░ 00░ squarσ mete≥ oµ ß blacδ bod∙ a⌠ thσá temperaturσá oµ ì
freezing platinium under a pressure of 101 325 newtons per square meter.
?? HELP ?? HELP ?? HELP ??
DRAM core PCB -- working or not.. Contact Cliff Chambers. A/H. 762-6220
Microbee FORTH for 32k Bee. Phone 836-0316
?? HELP ?? HELP ?? HELP ??è
*** BAZAAR SALES *** BAZAAR SALES ***
CODE DESCRIPTION PRICE CODE DESCRIPTION PRICE
"The Catcher"
02BC Volume 2 (Oct.83-Sept.84) $15.00 30CS Blank C-30 Cassettes $ 1.50
03BC Volume 3 (Oct.84-Sept.85) $15.00 30CB Blank C-30 Cassettes (20 per box) $25.00
02TC Back Issues (Vol 2 Nos. 6/7) $ 3.00 3SDB Blank 3.5" Disks, NASHUA SSDD, Box of 10 $40.00
3SDS Blanδ 3.5ó Disk≤, NASHUA SSDD Singles ñ 5.00
5HCK Drive Head Cleaning Kit 5.25" $12.00 3DSF Blank 3.5" Disks BASF DSDD Plastic Box of 5 $25.00
3HCK Drive Head Cleaning Kit 3.5" $15.00 5DDSáBlanδ 5.25ó Disks PRECISION DSDD Box of 10 $20.00
01D├ Dus⌠ Cover≤ fo≥ 'BE┼ ñ 6.0░ 5DSS Blank 5.25" Disks, NASHUA DSDD Singles $ 2.00
5MDS Blank 5.25" Disks (DSDD Coloured Covers)
(Packed in Plastic Box of Ten) $30.00
80PR Carboε Printe≥ Ribboε
(suit xyz.80/100 printers) $ 8.00 5B85 Disk Storage Box 5.25" (Lockable, holds 85) $18.00
5B10 Disk Library Box 5.25" (holds 10) $ 3.00
**10PP 1250 sheets cont. printer paper $15.00 3B40 Disk Storage Box 3.5" (Lockable, holds 40) $18.00
01BA BeeArtistic (Graphic S/W) $35.00 1FPF Flashprint (with Flashkey) $50.00
001W Write Hand Man (Order) $40.00 SP01 Speed Modulator
0BKP Beekeeper (see review Catcher Jan. '87) $90.00 (slows down Microbee for games) $15.00
PLEASE NOTE:
Poo≥ Person≤ Softwarσ anΣ Grotniδ Softwarσ arσ stil∞ available.
Refe≥ t∩ thσ Junσ editioε oµ 'Thσ Catcherº fo≥ iteφ availability.
Enquirσá abou⌠á price≤ beforσ ordering«á Order≤á requestinτá Poo≥ ì
Person≤ Softwarσ ma∙ takσ morσ thaε 2▒ day≤ t∩ fill¼ t∩ ge⌠ ì
ou≥ specia∞ pricσ wσ havσ t∩ orde≥ fivσ o≥ morσ disk≤ a⌠ ß time.
** not normally available for postal purchase
All postal orders to be sent to MBUG AUSTRALIA SALES
P.O. BOX 157, NUNAWADING
VICTORIA 3131
To avoid delays, all orders must include cheque, postal order or
Bankcard authorization for the total amount(inc. postal & handling
charges). Allow 21 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/Master Card 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 $1.00 Security Post add $5.00
MINIMUM POSTAL ORDER $10.00 April '87.
*** BAZAAR SALES *** BAZAAR SALES ***