home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug072.arc
/
1988JAN.CAT
< prev
next >
Wrap
Text File
|
1979-12-31
|
55KB
|
1,108 lines
.pl70
.po0
.OP
.HE# JAN - T H E C A T C H E R -1988 #
Thσ followinτ i≤ ß lis⌠ oµ thσ 1987/88 committee«á Iµ therσ i≤ anythinτ yo⌡ ì
requirσ o≥ an∙ hel≡ yo⌡ caε givσ us¼á pleasσ d∩ no⌠ hesitatσ t∩ contac⌠ an∙ ì
onσ oµ us, preferably before 9.00 P.M.
EXECUTIVE
PRESIDENT ANDREW BARFOOT 758-4822
VICE-PRESIDENT STEVEN JEPSON 45-4226
SECRETARY MALCOLM OSBORNE 404-1282
TREASURER KEVIN CARR 233-4629
PUBLI├ OFFICE╥ MIKE HOLZINGER 354-6742
COMMITTEE AND ASSISTANTS
Chris Anderson 438-3762 Peter Burbridge 726-7126
Rod Clarke 758-1880 Russell Crosser 383-5307
Greg Eva 836-9947 Ed Latham 484-2847
Jim Lobley 758-9169 John Mitchell 720-2016
Mike Thompson 882-5002
SERVICES PROVIDED BY MBUG AUSTRALIA
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. 157 NUNAWADING 3131
MEMBERSHIP SECRETARY J. LOBLEY. P.O. BOX 157 NUNAWADING 3131
PUBLIC DOMAIN (SIG/M) DISKS S. JEPSON. P.O. BOX 8 ROSANNA 3084
COMPUTER BOOK DISCOUNT TECHNICAL BOOKSHOP SWANSTON St. MELBOURNE
PRESTON ELECTRONIC COMPONENTS 217 HIGH ST. PRESTON.
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 THE CHIEF MBUG FROM THE CHIEF MBUG FROM THE CHIEF MBUG
Oncσ agaiε ╔ aφ iε thσ strangσ positioε mos⌠ editor≤ oµ cluΓ magazine≤ ì
finΣá themselve≤á iεá a⌠á thi≤ timσ oµ thσ year«á A≤á thσá printer≤á g∩á oε ì
holiday≤á ove≥ Christmas¼á wσ havσ t∩ d∩ thesσ note≤ beforehanΣ s∩ yo⌡á caε ì
ge⌠á you≥á magazinσá oεá timσ iε January«á S∩ herσ ╔ am¼á oεá thσá 10tΦá oµ ì
December¼ tryinτ t∩ le⌠ yo⌡ kno≈ wha⌠ ha≤ happeneΣ ove≥ thσ las⌠ montΦ wheε ì
i⌠ hasn'⌠ happeneΣ yet!
Wel∞á herσ wσ go«á Thσ Christma≤ part∙ wa≤ ß grea⌠ success. Therσá wa≤ ì
abou⌠á 12░ peoplσ therσ anΣ the∙ haΣ ß gooΣ time«á Keε Robinsoε froφá M.S« ì
camσá anΣ tolΣ u≤ wha⌠ wa≤ happeninτ witΦ thσ Deepedenσ shop«á It≤ closing« ì
Wσá haΣ ß suprisσ visi⌠ froφ Oweε Hil∞ wh∩ filleΣ u≤ iε oε wha⌠ thσá futurσ ì
hold≤ fo≥ Microbees«á I⌠ seem≤ the∙ wil∞ concentratσ oε thσ educatioεá sidσ ì
oµ sale≤ unti∞ the∙ re-consolidate«
Asidσ froφ al∞ that¼á ╔ hopσ yo⌡ al∞ haΣ ß merr∙ Christma≤ anΣ thσ ne≈ ì
yea≥ bring≤ yo⌡ al∞ yo⌡ desire« M∙ ne≈ year≤ resolutioε wa≤ madσ man∙ year≤ ì
ag∩á anΣ ╔ havσ stucδ b∙ i⌠ eve≥ since«á ╔ resolveΣ neve≥ t∩ makσ ne≈ year≤ ì
resolutions«
No≈ wσ arσ ove≥ thσ holidays¼á it≤ dowε t∩ busines≤ again«á Thi≤ montΦ ì
wσ arσ startinτ ou≥ Pasca∞ tutorial«á EacΦ oµ thσ lesson≤ wil∞ bσ publisheΣ ì
iε thi≤ magazinσ anΣ oε thσ meetinτ nigh⌠ followinτ eacΦ issue¼á (e.g«á thσ ì
Januar∙á subjec⌠á wil∞á bσ covereΣ a⌠ thσá Januar∙á meeting⌐á thσá relevan⌠ ì
subjec⌠á wil∞ bσ covereΣ iε detai∞ s∩ al∞ ma∙ understanΣ wha⌠ i≤ goinτá on« ì
Thσá firs⌠ installmen⌠ i≤ covereΣ iε thi≤ issue«á Iµ yo⌡ finΣ yo⌡ arσ goinτ ì
aheaΣ witΦ thσ tutoria∞ faste≥ thaε wσ arσ presentinτ it¼á o≥ iµ yo⌡á woulΣ ì
likσ i⌠ al∞ iε onσ hit¼á thσ entirσ tutoria∞ i≤ oε onσ oµ ou≥ (MBUG⌐ publiπ ì
domaiε disks« Sorry¼ yo⌡ wil∞ havσ t∩ looδ u≡ thσ volumσ numbe≥ a≤ ╔ canno⌠ ì
recal∞ wha⌠ numbe≥ i⌠ is.
╔á supposσá no≈ i≤ ß gooΣ timσ t∩ star⌠ spreadinτ rumor≤ abou⌠á Impac⌠ ì
Systems« A≤ mos⌠ oµ yo⌡ know¼ thσ Premiuφ Microbeσ i≤ beinτ droppeΣ anΣ thσ ì
onl∙ Beσ a≤ sucΦ wil∞ bσ thσ 256TC«á WitΦ thσ adven⌠ oµ thσ Mitaπá carryinτ ì
thσá Microbeσ logo¼á ß couplσ oµ ne≈ machine≤ ma∙ sooε hi⌠ thσ market«á Onσ ì
ma∙á bσá ß 8028╢ anΣ thσ othe≥ ß '38╢ (A.T.⌐ machine«á Als∩ iεá thσá cominτ ì
months¼ looδ ou⌠ fo≥ ß lase≥ printe≥ tha⌠ ma∙ bσ carryinτ ß Microbeσ label« ì
╔ expec⌠ it≤ pricσ (value⌐ t∩ bσ arounΣ $1500-$200░ bu⌠ ma∙ onl∙ bσ solΣ a≤ ì
ßá packagσ dea∞ witΦ ß computer«á ╔ canno⌠ seσ Impac⌠ System≤á undersellinτ ì
thei≥ owε market«á Sufficσ t∩ sa∙ therσ wil∞ bσ retai∞ sale≤ thi≤ yea≥ anΣ ì
yo⌡ wil∞ probabl∙ havσ t∩ dia∞ ß 00╕ numbe≥ anΣ phonσ orde≥ anything«
Whilσ oε thσ subjec⌠ oµ Impac⌠ System≤ (M.S.)¼ you≥ Mbuτ secretar∙ ha≤ ì
writteεá (oε behalµ oµ al∞ member≤ wh∩ havσ no⌠ ye⌠ beeε notified⌐á t∩á thσ ì
aforementioneΣ iε aε effor⌠ t∩ discove≥ wha⌠ ha≤ happeneΣ t∩ member≤ money≤ ì
paiΣá iε subscription≤ fo≥ Online«á Iµ and/o≥ wheε the∙ answe≥ us¼á ╔á wil∞ ì
pas≤ thσ informatioε oε t∩ yo⌡ viß thi≤ column«á Oweε tolΣ u≤ Onlinσ woulΣ ì
rσ appea≥ thσ ne≈ year.
Oεá ßá lighte≥á note¼á ╔ stil∞ havσ abou⌠ 2░ disk≤á (froφá othe≥á use≥ ì
groups⌐ tha⌠ havσ no⌠ ye⌠ beeε includeΣ iε ou≥ lis⌠ oµ publiπ domaiε disks« ì
Mos⌠á oµ thσ file≤ arσ MWBasic«á Iµ ╔ havσ timσ ove≥ thσ holidays¼á ╔á wil∞ ì
edi⌠ a≤ man∙ oµ theφ a≤ ╔ caε anΣ includσ theφ iε ou≥ catalogue«á Finally¼ ì
╔ woulΣ likσ ß useΣ (working⌐ ╡ 1/4ó disδ drivσ (preferabl∙ 1/▓ height⌐ anΣ ì
╔á don'⌠ wan⌠ t∩ pa∙ througΦ thσ nosσ fo≥ it«á Iµ anybod∙ ha≤ onσ coulΣ yo⌡ ì
pleasσ le⌠ mσ know.
>ANDREWè PC.PAG┼.PC.PAG┼.PC.PAGE.PC.PAGE.PC.PAGE.PC.PAGE.PC.PAGE.PC.PAGE.
B∙ Malcolφ Osborne
Thi≤á montΦá ╔á wil∞ star⌠ ofµ witΦ ß ver∙ hand∙ hin⌠ giveε t∩á mσá b∙ ì
Keviεá Carr«á ╔ though⌠ tha⌠ thi≤ hin⌠ wa≤ s∩ gooΣ tha⌠ ╔ mus⌠ pas≤ oεá thσ ì
informatioε t∩ othe≥ member≤ iε thσ club«á Havσ yo⌡ eve≥ ruε ß prograφá anΣ ì
wherσá upoεá exi⌠ t∩ thσ Do≤ systeφ i⌠ look≤ for¼á o≥ tell≤ yo⌡ t∩ placσá ß ì
disδ witΦ Command.coφ iε drivσ a║á anΣ theε hi⌠ return«á Wel∞ i⌠ happen≤ t∩ ì
mσ quitσ ofteε anΣ quitσ frankl∙ i⌠ give≤ mσ thσ pip«á Thσ ti≡ i≤ t∩á placσ ì
Command.coφ int∩ ß raφ drive¼ anΣ t∩ tel∞ thσ systeφ wherσ t∩ finΣ it« Thi≤ ì
caεá al∞ bσ donσ withou⌠ yo⌡ doinτ onσ littlσ thing¼á after¼á oµ coursσ yo⌡ ì
havσ reserveΣ ß smal∞ amoun⌠ oµ Raφ fo≥ ß Ramdisδ anΣ tolΣ thσ systeφ wherσ ì
t∩ finΣ command.coφ anΣ oµ coursσ copieΣ command.coφ ont∩ thσ Raφ disk«á T∩ ì
makσ thinτ eas∙ al∞ yo⌡ havσ t∩ d∩ i≤ t∩ alte≥ you≥ config.sy≤ filσ anΣ yo⌡ ì
autoexec.ba⌠á file«á ╔á havσ listeΣ belo≈ ho≈ t∩ g∩á abou⌠á changinτá thesσ ì
files«
Iε you≥ config.sy≤ filσ includσ thσ followinτ line.
devicσ ╜ Ramdrive.sy≤ 40
(Thi≤ linσ set≤ u≡ ß Ramdisδ drivσ knowε a≤ - D:)
(Thσ Figurσ 4░ reserve≤ 40δ oµ Raφ fo≥ thσ Ramdrive)
Theε iε you≥ autoexec.ba⌠ filσ includσ thσ followinτ lines
se⌠ comspeπ ╜ C:\command.com
path=
cop∙ Command.coφ C:
Thσ firs⌠ linσ tell≤ thσ systeφ wherσ t∩ finΣ Command.com
Thσ SeconΣ linσ tell≤ thσ systeφ t∩ cop∙ command.coφ t∩ drivσ d:
Iµ al∞ thσ abovσ ha≤ beeε donσ correctl∙ anΣ yo⌡ havσ saveΣ thσ files¼ Boo⌠ ì
u≡ you≥ systeφ anΣ awa∙ yo⌡ go« ╔ founΣ thi≤ t∩ bσ ver∙ ver∙ handy.
Belo≈á i≤ ß filσ tha⌠ ╔ founΣ oε onσ oµ thσ M.S.DO╙ RBB╙ iε Melbourne« ì
I⌠á ha≤ beeε slightl∙ modifieΣ t∩ removσ an∙ confusion«á Thi≤ prograφá run≤ ì
unde≥ GWbasiπ Versioε 3.2« Wha⌠ thi≤ prograφ diΣ fo≥ mσ wa≤ madσ mσ inquirσ ì
furthe≥á int∩ thσ Circle¼á Pain⌠ anΣ Linσ command≤ oµ GWBasic¼á anΣá ╔á diΣ ì
learε ß lot« Typσ thσ prograφ iε a≤ listeΣ theε looδ ß bi⌠ furthe≥ int∩ thσ ì
commands« Changσ somσ oµ thσ circlσ commanΣ value≤ anΣ seσ wha⌠ yo⌡ get« Iµ ì
al∞ elsσ fail≤ looδ iε you≥ Basiπ manual« Havσ fun«
10 '*** By Stuart McMinn 11th September 1985
20 SCREEN 1,0:COLOR 0,7
30 CIRCLE(160,100),90,,,,.75
40 CIRCLE(160,110),60,,-2.094,-1.047,.65
50 CIRCLE(160,90),60,,,,.65:CIRCLE(160,90),60,,-1.047,-2.094,.65
60 LINE(160,110)-(160,90)
70 LINE(188,57)-(188,76)
80 LINE(132,57)-(132,76)
90 LINE(221,90)-(221,110)
100 LINE(99,90)-(99,110)
110 PAINT(160,70)
120 PRINT"A pessimist would view this picture
130 PRINT"as plate with only a small portion of
140 PRINT"cake on it. Whereas .........
150 A$=INPUT$(1)
160 CLSè170 CIRCLE(160,100),90,,,,.75
180 CIRCLE(160,110),60,,,,.65:CIRCLE(160,110),60,,-4.189,-5.236,.65
190 CIRCLE(160,90),60,,-5.236,-4.189,.65
200 LINE(160,110)-(160,90)
210 LINE(188,124)-(188,143)
220 LINE(132,124)-(132,143)
230 LINE(221,90)-(221,110)
240 LINE(99,90)-(99,110)
250 PAINT(160,120)
260 PRINT"An optimist will turn the picture
270 PRINT"upside down and say that it is a cake
280 PRINT"with a small portion out of it.
290 A$=INPUT$(1)
From║ Glenε Logaε To║ Al∞ Subject║ 5.25ó drive
Caεá anyonσá pleasσá advisσ mσ iµ (I'vσ go⌠ ß 512δ premiuφá witΦá onσá 3.5ó ì
drive⌐á thσá drive≤ oµ thσ 5.25ó variet∙ wil∞ pluτ straigh⌠ int∩ thσá sparσ ì
socke⌠á iε thσ drivσ box┐á Iµ i⌠ will¼á d∩ an∙ instruction≤ comσ tha⌠á wil∞ ì
enablσá mσ t∩ configurσ i⌠ t∩ thσ b║á drive┐á Finaly¼á i≤ therσ an∙á publiπ ì
domaiεá formattinτá program≤ arounΣ o≥ wil∞ ╔ actuall∙ havσ t∩á spenΣá somσ ì
morσá mone∙ (thσ 512δ bio≤ support≤ thσ mixeΣ drivσ combinatioεá ╔á hope!)┐ ì
Hopσ someonσ wil∞ understanΣ al∞ that« Thank≤ anyway¼ Glenε Logan.
From║ Oweε Bake≥ To║ Al∞ Subject║ Microbeσ fo≥ sale
128δ mode∞ Premiuφ PC¼ dua∞ 3.╡ 800δ drives¼ RA═ drive¼ extrß turb∩ ª cachσ ì
processor¼á hire≤ graphic≤ monitor¼ 300-1200/7╡ beσ modem¼ printer« Ove≥ 3░ ì
disk≤ -Deskto≡ Publishing¼ Graphics¼ WorΣ Processing¼ Spreadshee⌠ Database¼ ì
Games¼ Viate∞ anΣ Utilities« EC¼ $1000« Ph« 660-265┤ (BH⌐ o≥ 870-108░ (AH)
From║ Geofµ Barn≤ To║ Al∞ Subject║ MODE═ Protocols(?)
CoulΣ someonσ pleasσ explaiε thσ difference≤ betweeε X-modem¼á Y-modem¼á Z-ì
modeφá anΣ Modem7«á Wheε ╔ encountereΣ theφ ╔ tooδ ß pun⌠ anΣá successfull∙ ì
dowε loadeΣ usinτ X-modem¼á bu⌠ haΣ n∩ succes≤ witΦ Z-modem«á Somethinτá iε ì
thσ CATCHE╥ woulΣ bσ hand∙ a≤ i⌠ coulΣ bσ digesteΣ a⌠ thσ reader≤ owε pace«
From: Mirko Fluher To: All Subject: protocols (1)
Fo≥ thosσ oµ yo⌡ usinτ 'telcom'¼á al∞ yo⌡ caε usσ i≤ XMODEM« 'xmodemº send≤ ì
12╕ byte≤ a⌠ thσ timσ beforσ makinτ ß check« Iµ yo⌡ arσ usinτ 'MEXº theε i⌠ ì
i≤ possiblσ t∩ usσ YMODEM« 'ymodemº send≤ 1δ a⌠ thσ timσ anΣ i≤ thu≤ faste≥ ì
thaε 'xmodem'«á A⌠ thi≤ stage¼á othe≥ protocol≤ sucΦ a≤ 'zmodemº etc..« caε ì
onl∙á bσ useΣ oε aε IB═ clone«á Morσ abou⌠ thesσ iε thσ nea≥ future..«á PS║ ì
modem╖ i≤ onσ oµ thσ earlies⌠ comm≤ program... AND WORKS WITH OUR BB. ED
From: Paul Shannon To: All Subject: Turbo Pascal
Caεá anyonσá tel∞á mσ ho≈ ╔ caε reaΣ CP/═ tex⌠ file≤á (Wordstar⌐á iεá Turb∩ ì
Pascal« ╔ woulΣ likσ t∩ immitatσ thσ followinτ MW-BASI├ lines:
100 OPEN "I",6,"FILENAME.DOC" 140 PRINT A1$;:REM or whatever
110 IN#6 150 GOTO120
120 IF EOF(6) THEN 160 160 CLOSE6:IN#0
130 A1$=KEYè TURBO-LESSONS - A Pascal Tutorial Version 1.01
By Lyle M. Faurot June 8, 1985 Copyright (C), 1985 All rights reserved.
TURBO-LESSON 1: GETTING STARTED
OBJECTIVES - In this lesson you will learn about:
1. Loading TURBO
2. Using the Main Menu to Load, Compile, and Run a program
INTRODUCTION
TURBO-LESSONS were written with the following goals in mind:
-- Presen⌠á thσá concept≤ oµ Pasca∞ anΣ thσ TURB╧ Pasca∞ implementatioεá iε ì
bite-sizσ chunk≤ (calleΣ lessons).
-- Providσáá onσá o≥á morσá samplσá Pasca∞á program≤á witΦáá eacΦáá lesson« ì
Programminτá example≤ arσ ofteε morσ helpfu∞ thaε eloquen⌠ discussioε iε ì
learninτ t∩ program.
-- Structurσá thσá lesson≤ iε ß paralle∞ forma⌠ t∩ makσá theφá morσá usefu∞ ì
late≥á a≤ ß reference«á Thσ OBJECTIV┼ sectioε a⌠ thσ beginninτ oµá eacΦ ì
lessoε wil∞ hel≡ yo⌡ locatσ ß topiπ later.
-- Structurσá thσá lesson≤ iε aε Actioε format«á Iµ yo⌡ arσ likσá me¼á yo⌡ ì
probabl∙ learε programminτ bes⌠ b∙ doing.
-- Marδ thσ point≤ wherσ somσ actioε i≤ suggested«á Thi≤ shoulΣ allo≈á fo≥ ì
difference≤ iε learninτ styles« Thσ action points are marked as follows
##### DO:
Fo≥ thosσ wh∩ likσ t∩ hi⌠ thσ higΦ point≤ a≤ fas⌠ a≤ possible¼ thesσ actioε ì
marker≤ wil∞ poin⌠ thσ way«á Now¼á withou⌠ furthe≥ delay¼ oε witΦ thσ showí
1. Loading TURBO.
T∩ ge⌠ started¼ pu⌠ ß diskettσ witΦ TURB╧ PASCA╠ iε you≥ defaul⌠ drive«
##### DO:
Type TURBO and enter.
A message will appear:
Include error messages (Y/N)?
Yo⌡á shoulΣá answe≥ ┘ t∩ providσ on-screeε erro≥ messages«á Thσ Maiεá Men⌡ ì
wil∞ appea≥ a⌠ thi≤ point«
2. Using the Main Menu to Load, Compile, and Run a program.
Thσ men⌡ shoulΣ appea≥ witΦ onσ lette≥ oµ eacΦ optioε highlighted«
Thσ maiε men⌡ i≤ thσ startinτ poin⌠ fo≥ mos⌠ oµ thσ thing≤ yo⌡ wil∞ d∩ witΦ ì
TURBO« Somσ oµ thσ option≤ wil∞ bσ discusseΣ iε morσ detai∞ later¼ bu⌠ fo≥ ì
now¼á yo⌡á shoulΣá learεá t∩á ge⌠ bacδ t∩ thσ maiε men⌡ froφá eacΦá oµá thσ ì
options«
******************** Logged drive:èThσ LoggeΣ drivσ i≤ wherσ you≥ Worδ file≤ arσ stored«á Thi≤ optioε i≤ useΣ ì
t∩ changσ you≥ loggeΣ drive«
##### DO:
Type L.
Computer responds: "New drive:"
Type B (or another drive) and enter.
Look at the top of the screen. Did the logged drive change?
Now¼ depres≤ thσ spacσ bar« I⌠ appeareΣ tha⌠ n∩ changσ haΣ beeε madσ unti∞ ì
thσ men⌡ screeε wa≤ redisplayed«
******¬ NOTE║á SOM┼ O╞ TH┼ OPTION╙ D╧ NO╘ UPDAT┼ TH┼ MEN╒ SCREEN«á YO╒ CA╬ ì
REDISPLA┘ TH┼ MEN╒ WIT╚ TH┼ SPAC┼ BA╥ O╥ ENTE╥ KEY«
Yo⌡á coulΣá havσ respondeΣ t∩ thσ "Ne≈ drive:ó messagσá b∙á depressinτá thσ ì
ente≥á ke∙á withou⌠ enterinτ anothe≥ drivσ designator«á Thσ ente≥á ke∙á b∙ ì
itselµ i≤ useΣ t∩ escapσ froφ thi≤ optioε withou⌠ makinτ an∙ changes«
Thσ firs⌠ fou≥ option≤ a⌠ thσ to≡ oµ thσ menu¼á L¼á A¼ W¼ anΣ ═ al∞ usσ thσ ì
ente≥ ke∙ alonσ a≤ aε escapσ key«
******************** Active directory: \
Usσá thσ ┴ optioε t∩ changσ thσ Activσ subdirector∙ iµ you≥ loggeΣ drivσ i≤ ì
ß harΣ disk.
##### DO:
Type A.
Computer responds: "New directory:"
Type subdirectory name and enter or just enter for no change.
******************** Work file:
Thi≤ i≤ wherσ yo⌡ namσ you≥ worδ file«á Thσ worδ filσ wil∞ holΣ thσ PASCA╠ ì
prograφ yo⌡ arσ writinτ o≥ editing.
##### DO:
Type W.
Computer responds: "Work file name:"
Typσ PROG▒ anΣ enter«á (Iµ yo⌡ ge⌠ thσ message¼á "Ne≈ File"¼á PROG1.PA╙ wa≤ ì
no⌠á founΣ oε you≥ loggeΣ drive«á You≥ samplσá programs¼á includinτá PROG1¼ ì
shoulΣ bσ oε thσ loggeΣ drive)«
******************** Main file:
Ignorσá thi≤á optioε fo≥ now«á Iµ yo⌡ jus⌠ can'⌠ resis⌠ typinτ ═á a⌠á thi≤ ì
point¼ remembe≥ tha⌠ Ente≥ i≤ thσ escapσ ke∙ fo≥ thi≤ option«
******************** Run
Thi≤ optioε i≤ useΣ t∩ executσ ß program¼ compilinτ i⌠ first¼ iµ necessary.
##### DO:
Type R.
The program in your work file, PROG1, is compiled and executed.
Type R again.
Notσá tha⌠á thσ prograφ run≤ agaiε withou⌠ compiling«á Thσ Ruε optioεá wil∞ ì
onl∙á compilσ iµ change≤ havσ beeε madσ iε thσ prograφ sincσá thσá previou≤ ì
compile«
Depress the space bar to get the menu back.
******************** CompileèThσ prograφ ma∙ bσ compileΣ withou⌠ executinτ b∙ usinτ thσ ├á option«á Yo⌡ ì
ma∙á wan⌠á t∩ compilσ t∩ seσ aε erro≥ messagσ withou⌠ runninτ thσá program« ì
O≥ yo⌡ ma∙ bσ compilinτ ß CO═ file¼ whicΦ canno⌠ bσ executeΣ unti∞ yo⌡ exi⌠ ì
TURB╧ t∩ DOS.
##### DO:
Type C.
Thσá prograφ compile≤ bu⌠ doesn'⌠ run«á Usσ thi≤ optioε wheε yo⌡á wan⌠á t∩ ì
compilσ withou⌠ executinτ thσ prograφ immediately«
******************** Edit
Thσá edito≥á i≤ useΣ t∩ ente≥ ß ne≈ prograφ o≥ changσá ßá program«á Anothe≥ ì
lessoε i≤ devoteΣ t∩ editing« Fo≥ now¼ yo⌡ shoulΣ finΣ ou⌠ ho≈ t∩ ge⌠ bacδ ì
t∩ thσ men⌡ froφ thi≤ option«
##### DO:
Type E.
Thσ program¼á PROG1¼á appear≤ oε thσ screen¼ read∙ t∩ edit« Usσ thσ Ctrl-K¼ ì
Ctrl-─ sequencσ t∩ returε t∩ thσ maiε menu.
##### DO:
Typσ Ctrl-K¼ Ctrl-D« (Whilσ depressinτ thσ Ctr∞ key¼ typσ ╦ followeΣ b∙ D.⌐
Thσá maiε men⌡ reappears«á Notσ tha⌠ therσ i≤ n∩ wa∙ t∩ abandoε thσ editeΣ ì
filσ iε memory« Thi≤ i≤ no⌠ s∩ baΣ sincσ thσ editeΣ cop∙ oµ thσ prograφ iε ì
memor∙ i≤ no⌠ automaticall∙ saveΣ t∩ disk« Yo⌡ caε usσ thσ Worδ filσ optioε ì
t∩ ge⌠ anothe≥ cop∙ oµ thσ prograφ froφ disk«
******************** Save
Use this option to copy your current work file from memory to disk.
##### DO:
Type S.
Thσ program¼á PROG1¼á i≤ saveΣ t∩ thσ disδ oε thσ drivσ designateΣ wheε yo⌡ ì
nameΣá thi≤ worδ file«á Sincσ thσ worδ filσ i≤ no⌠ automaticall∙ saveΣá t∩ ì
disk¼á TURB╧á remind≤á yo⌡ t∩ savσ thσ filσ beforσ an∙ optioεá whicΦá woulΣ ì
destro∙ thσ cop∙ oµ thσ filσ iε memory«
NOTE║ REMEMBER¼ I╘ I╙ U╨ T╧ YO╒ T╧ SAV┼ YOU╥ WOR╦ FILE« IT'╙ ┴ GOO─ IDE┴ T╧ ì
SAV┼ I╘ FREQUENTLY¼á I╬ CAS┼ SOMETHIN╟ SUC╚ A╙ A╬ INFINIT┼ LOO╨ FORCE╙á YO╒ ì
T╧ RE-BOO╘ (I╬ WHIC╚ CAS┼ YOU╥ WOR╦ FIL┼ I╬ MEMOR┘ WOUL─ B┼ FOREVE╥ GONE!)
******************** Dir
The D option works similar to DIR in DOS.
##### DO:
Type D.
Computer responds: "Dir mask:"
Depres≤á thσ Ente≥ ke∙ t∩ ge⌠ ß director∙ oµ thσ loggeΣ drivσ o≥ usσá drivσ ì
designato≥ t∩ ge⌠ ß director∙ oµ anothe≥ drive« Yo⌡ caε usσ thσ wildcards¼ ì
"*ó anΣ "?".
******************** compiler Options
Thesσ wil∞ bσ discusseΣ late≥ wheε the∙ arσ needed«á Tr∙ thσ ╧ optioεá no≈ ì
t∩ bσ surσ yo⌡ kno≈ ho≈ t∩ ge⌠ bacδ t∩ thσ menu«
##### DO:
Type O.
The compiler Options menu is displayed. èYo⌡ caε choosσ variou≤ compile≥ option≤ b∙ typinτ thσ correspondinτ letter«
##### DO:
Type C.
Notice the arrow moved to a different option.
Type H.
Type M.
Bσá surσ t∩ leavσ thσ compile≥ optioε se⌠ t∩ M¼á memor∙ beforσ returninτ t∩ ì
thσ maiε menu«
Type Q.
The main menu reappears.
******************** Quit
Thi≤ optioε return≤ yo⌡ t∩ DOS« Wheε yo⌡ arσ througΦ experimentinτ witΦ thσ ì
men⌡ options¼
##### DO:
Type Q.
Yo⌡á wil∞ bσ prompteΣ t∩ savσ you≥ worδ filσ iµ i⌠ ha≤ beeε modifieΣá sincσ ì
yo⌡ las⌠ saveΣ it« Thσ promp⌠ oµ thσ defaul⌠ drivσ wil∞ bσ displayed.
PROGRAM PROG1;
{$U+ Copyright (C), 1985 by Lyle Faurot. All rights reserved.
New Topics: Load, Compile, and Run a sample program.
}
BEGIN
WriteLn(' Welcome to the Turbo-Lesson Tutorials!');
WriteLn;
WriteLn('If this message is printing on your screen, you have');
WriteLn(' 1. Successfully loaded TURBO');
WriteLn(' 2. Loaded, Compiled, and Run a sample program');
WriteLn;
WriteLn('********* NOW, ON TO BIGGER CHALLENGES! ***********');
END.
From: Paul Smith To: All Subject: Microbee for Sale
╔ havσ ß 32δ I├ fo≥ Sale«á Excellen⌠ condition¼á come≤ completσ witΦ cable≤ ì
anΣá Roφ Software║á Wordbee,Basic,anΣ lot≤ oε cassettσ anΣá manuals«á Pricσ ì
$15░ Monitor(Ritroε 20mh)=$160« Leavσ ß messagσ oε rbb≤ iµ interesteΣ
From: Adam Peck To: All Subject: SALE
Microbeσá 128δ C.I.A.┬ fo≥ Salσ witΦ 8░ tracδ drivσ BM├ ambe≥ moito≥ anΣá ╡ ì
disk≤ lot≤ oµ programs $660 the lot. ring Adam on 2115231
From: Raymond Han To: All Subject: Microbee moving
I⌠á seem≤á tha⌠ Microbeσ System≤ Deepdenσ wil∞ tradσ fo≥ thσ las⌠á timσá oε ì
Christma≤á Evσ '87«á Afte≥ that¼á thσ storσ wil∞ close¼á neve≥ t∩á re-opeε ì
again..«á well¼á no⌠á iε thσ samσ locatioε anyway«á Thσ retai∞ busines≤ ha≤ ì
beeεá solΣ out¼á anΣ thσ compan∙ wil∞ concentratσ oε thσá Educatioεá marke⌠ ì
froφá it≤ officσ iε thσ Impac⌠ System≤ Group'≤ office≤ iε SoutΦá Melbourne« ì
Thσáá servicσáá personel∞á wil∞á bσá transferreΣá int∩á Impact'≤áá Custome≥ ì
Engineerinτ brancΦ somewherσ elsσ iε SoutΦ Melbourne¼á whilσ thσá Educatioε ì
sectioεá wil∞á movσá into.«á Microbeσ System≤ LimiteΣ (Victoria⌐á ¿á Impac⌠ ì
System≤ Group) 164 - 168 Kings Way South Melbourne 686 3111
Therσ i≤ ß littlσ showroom¼ ß classrooφ anΣ severa∞ office≤ fo≥ Microbeσ a⌠ ì
thi≤ premises¼ s∩ maybσ therσ i≤ spacσ fo≥ retai∞ enquirie≤ too!è Microbeσ Graphic≤ Technology
Par⌠ ┤ ║ Linσ anΣ Circlσ Drawing
Oε thσ Premium
Las⌠á month¼á ╔á describeΣá ß methoΣ oµ calculatinτ bi⌠á position≤á oµ ì
cartesiaεá coordinate≤ insidσ thσ Microbeσ Premium/T├ graphic≤ PC╟á memory« ì
╔á havσá onl∙á describeΣ ho≈ t∩ se⌠ ß poin⌠ oε thσá screen«á T∩á creatσá ß ì
flexiblσ graphic≤ environment¼ wσ wil∞ neeΣ thσ abilit∙ t∩ rese⌠ ß poin⌠ oε ì
thσ screen¼ a≤ wel∞ a≤ invert.
Thσ algorithφ useΣ t∩ plo⌠ ß bi⌠ oε thσ screeε i≤ simpl∙ b∙ creatinτ ß masδ ì
characte≥á containinτá thσá onσá bi⌠ anΣ maskinτ tha⌠á characte≥á int∩á it≤ ì
calculateΣ memor∙ location« WitΦ thσ tes⌠ prograφ fo≥ thi≤ month≤ article¼ ì
╔á havσ introduceΣ thσ tw∩ othe≥ mode≤ oµ bi⌠ plotting¼á RESE╘ anΣá INVERS┼ ì
mode«á RESE╘ simpl∙ turε pixe∞ ofµ whilσ INVERS┼ turn≤ thσ pixe∞ OF╞ iµá i⌠ ì
wa≤á ON¼á anΣ vice-versa«á Thi≤ i≤ achieveΣ b∙ usinτ booleaε operation≤á iε ì
Turb∩ Pascal.
LIN┼ DRAWING
Therσ arσ man∙ algorithm≤ programmer≤ ma∙ choosσ t∩ generatσ ß linσ oεá thσ ì
screen«á Oε thσ computer¼ wσ generatσ ß linσ b∙ plottinτ ß wholσ serie≤ oµ ì
pixel≤ betweeε thσ tw∩ ends«á Compute≥ generateΣ line≤ shoulΣ generall∙ bσ ì
straight¼á star⌠á anΣá enΣ a⌠ thσ exactl∙ thσ righ⌠ place≤ anΣá maintaiεá ß ì
constan⌠ density.
Thσá digita∞á differentia∞á analyze≥ (DDA⌐ algorithφ generate≤á line≤á froφ ì
thei≥á differentia∞á equations«á Thσ DD┴ work≤ oε thσá principlσá tha⌠á wσ ì
simultaneousl∙á incremen⌠ ° anΣ ∙ b∙ smal∞ step≤ proportiona∞ t∩ thσá firs⌠ ì
derivative≤á oµá °á anΣá y«á Iεá thσ casσ oµ ßá straigh⌠á linσá thσá firs⌠ ì
derivative≤ arσ constan⌠ anΣ proportiona∞ t∩ delta-° anΣ delta-y«á (Delta-° ì
anΣá delta-∙á beinτá constant≤á oµá thσá minima∞á incremen⌠á oµá °á anΣáá ∙ ì
respectively).
Iεá thσ rea∞ worlΣ oµ limited-precisioε display≤ wσ mus⌠ generatσ onl∙ add-ì
ressablσ points« Thi≤ caε bσ donσ b∙ roundinτ t∩ thσ neares⌠ intege≥ afte≥ ì
eacΦ incrementa∞ step╗á afte≥ roundinτ wσ displa∙ ß do⌠ a⌠ thσ resultan⌠á ° ì
anΣ y« Aε alternativσ t∩ roundinτ i≤ thσ usσ oµ arithmetiπ overflow║ ° anΣ ì
∙á arσ kep⌠ iε register≤ tha⌠ havσ tw∩ parts¼á intege≥ anΣ fractional«á Thσ ì
incrementinτ values¼á whicΦ arσ botΦ les≤ thaε unity¼ arσ repeateΣ addeΣ t∩ ì
thσ fractiona∞ parts¼á anΣ wheneve≥ thσ resul⌠ overflows¼ thσ correspondinτ ì
intege≥á par⌠á i≤ incremented«á Thσ intege≥ part≤ oµ ° anΣ ∙ register≤á arσ ì
useΣá iεá plottinτá thσá line«á Thi≤ woulΣ normall∙á havσá thσá effec⌠á oµ ì
truncatinτá rathe≥ thaε rounding¼á s∩ wσ initialisσ thσ DD┴ witΦ thσá valuσ ì
0.╡ iε eacΦ oµ thσ fractiona∞ part≤ t∩ achievσ truσ rounding«á Thσá simplσ ì
DD┴áá i≤á aεá idea∞á basi≤á fo≥á ßá softwarσá linσá generator«áá ┴áá PASCA╠ ì
implementatioε oµ thσ simplσ DD┴ i≤ a≤ follows:
procedurσ DD┴ (x1,y1,x2,y▓ ║ integer);
√ (x1,y1⌐ - sourcσ point¼ (x2,y2⌐ - destinatioε poin⌠ }
var
length¼ Θ ║ integer;
x,y¼ xincrement¼ yincremen⌠ ║ real;
begin
lengtΦ :╜ abs(x2-x1);
iµ abs(y2-y1⌐ ╛ lengtΦ theε lengtΦ :╜ abs(y2-y1);
xincremen⌠ :╜ (x2-x1)/length;
yincremen⌠ :╜ (y2-y1)/length;è ° :╜ x1+0.5╗ ∙ :╜ y▒ ½ 0.5;
fo≥ Θ :╜ ▒ t∩ lengtΦ do
begin
point_plot(trunc(x),trunc(y));
° :╜ ° ½ xincrement;
∙ :╜ ∙ ½ yincrement;
end;
end;
Iεá MicroworlΣá Basiπá 6.3▓ anΣ later¼á thσ HIRES▓ linσá plottinτá use≤á aε ì
algorithφ calleΣ thσ Bresenham'≤ Algorithm¼ whicΦ i≤ wel∞ t∩ implementatioε ì
iε hardwarσ o≥ oε simplσ microprocessors« I⌠ is¼ thσ fastes⌠ algorithφ fo≥ ì
linσ drawinτ eve≥ useΣ oε thσ Microbee.
CIRCL┼ GENERATORS
Circle≤á arσá generall∙ madσ u≡ froφ ß singlσ radius¼á centereΣá arounΣá aε ì
origin«á Thσá coordinatσá point≤á oµá thσá position≤á oµá thi≤á radiu≤á i≤ ì
calculateΣ froφ thi≤ origin« Thσ littlσ mathematica∞ algorithφ tha⌠ ╔ havσ ì
useΣ belo≈ basicall∙ calculate≤ thσ ° anΣ ∙ distancσ froφ thσ origin¼ fo≥ ß ì
rotatioεá froφ ░ througΦ t∩ 9░ degrees«á EacΦ oµ thesσ distance≤ arσá theε ì
subtracteΣá o≥ addeΣ t∩ thσ origiε (whicheve≥ thσ casσ ma∙ be)¼á makinτá u≡ ì
thσ completσ 36░ degreσ iε ß circle.
Oεá thσ Microbeσ screeε however¼á thσ pixel≤ arσ no⌠ square«á EacΦ pixe∞ oε ì
thσ microbeσ i≤ talle≥ thaε i⌠ i≤ wider¼á anΣ there-forσ iµ wσ calculatσá ß ì
circlσ withou⌠ takinτ int∩ accoun⌠ thi≤ fact¼ thσ circlσ woulΣ appea≥ t∩ bσ ì
aεá ellipse«á Wσ caε fi° thi≤ 'problemº b∙ introducinτ ß facto≥ termeΣá a≤ ì
thσá aspec⌠ rati∩ (thi≤ i≤ ß height-to-widtΦ rati∩ pe≥ pixel)¼á anΣ oεá thσ ì
microbee¼á thσá aspec⌠ ratioε i≤ arounΣ 1.╢ You'l∞ finΣ thi≤ aspec⌠á rati∩ ì
inside≥ thσ formulß oµ thσ circlσ generatinτ algorithm.
procedurσ circle(x1,y1,radiu≤ ║ integer);
var
xloc¼ yloπ ║ integer;
anglσ ║ real;
begin
aspect_rati∩ :╜ 1.6;
anglσ :╜ 0.0;
repeat
xloπ :╜ trunc((radius+0.0)*sin(angle)*aspect_ratio);
yloπ :╜ trunc((radius+0.0)*cos(angle));
point_plot(x1+xloc¼ y1+yloc);
point_plot(x1+xloc¼ y1-yloc);
point_plot(x1-xloc¼ y1+yloc);
point_plot(x1-xloc¼ y1-yloc);
anglσ :╜ anglσ ½ 0.01745╗ √ pi/180¼ ▒ degreσ }
unti∞ anglσ ╛ 1.57079╗ √ pi/2¼ 9░ degree≤ }
end;
╔á havσ placeΣ ß Pasca∞ prograφ calleΣ CATCHJAN.PA╙ oε thσ bulletiεá board¼ ì
whicΦá contain≤ thesσ routine≤ oµ linσ anΣ circlσ generatinτ includinτá thσ ì
ne≈á SET¼á RESE╘ anΣ INVER╘ optioε iε ou≥ POINT_PLO╘ subroutinσá introduceΣ ì
las⌠ month« Nex⌠ month¼ ╔ shal∞ tr∙ t∩ explaiε thσ method≤ useΣ iε maskinτ ì
pattern≤á ont∩ thσ premiuφ vide∩ system«á I⌠ shoulΣ star⌠ gettinτ excitinτ ì
then« Unti∞ nex⌠ month¼ Happ∙ Ne≈ Year!
è LISSAJOUS PATTERN GENERATOR
Written by Peter Broughton.
Herσá i≤ ß prograφ tha⌠ wil∞ mathematicall∙ generatσ somσá interestinτ ì
pattern≤á calleΣá `Lissajou≤ Figures'«á ┴ Lissajou≤ figurσ i≤á obtaineΣá b∙ ì
drivinτá thσá ╪ anΣ ┘ coordinate≤ oµ somσ sor⌠ oµ displa∙á witΦá sinusoida∞ ì
signal≤á oµá differen⌠á frequencies«á Onσ commoε wa∙ t∩ obtaiε theφá i≤á t∩ ì
connec⌠á tw∩á sinσ wavσ generator≤ t∩ thσ ╪ anΣ ┘ input≤ oµ ßá Cathodσá Ra∙ ì
Oscilloscope«á The∙á caεá als∩ bσ madσ b∙ usinτ funn∙á lookinτá swing≤á anΣ ì
funnel≤á oµ sanΣ b∙ wel∞ knowε (late⌐ professor≤ iε T.V«á commercial≤ (`Wh∙ ì
i≤ i⌠ s∩ ?').
Thi≤á prograφá generate≤ thσ coordinate≤ oµ thσ point≤ b∙á takinτá thσ ì
sinσá oµ intege≥ angle≤ froφ ▒ t∩ 36░ multiplieΣ b∙ ßá specifieΣá (integer⌐ ì
frequency«á Thσá frequencie≤ caε bσ differen⌠ fo≥ thσ ╪ anΣ ┘á coordinates« ì
Thi≤á mean≤á tha⌠á thσ prograφ actuall∙ display≤ aεá approximatioεá t∩á thσ ì
Lissajou≤ figure¼ anΣ fo≥ frequencie≤ mucΦ ove≥ abou⌠ 1░ thi≤ approximatioε ì
i≤á increasingl∙á invaliΣá a≤ thσ ste≡ sizσ (linσá length⌐á become≤á large« ì
However¼ thσ pattern≤ drawε looδ mucΦ better.
Thi≤ ma∙ no⌠ meaε ver∙ mucΦ t∩ you¼á howeve≥ tr∙ thσ program¼ I'φ surσ ì
you'l∞ bσ pleaseΣ witΦ thσ results«á Thi≤ versioε oµ thσ prograφ i≤ writteε ì
fo≥ ß premium¼á t∩ ruε i⌠ oε ß standarΣ (witΦ ß smalle≥ display⌐ changσ thσ ì
HIRES▓ commanΣ t∩ HIRE╙ anΣ changσ linσ 18░ to: 00180 x7=79.0:y7=47.0
┴ CHALLENG┼ ║ Rewritσ thi≤ prograφ iε machinσ code.
(LARGE⌐ HIN╘ ║ Therσ arσ onl∙ 36░ possiblσ ╪ anΣ ┘ coordinates¼ thesσ coulΣ ì
bσ precalculateΣ anΣ storeΣ a≤ datß (DB's⌐ iε thσ assembl∙ source« Theε al∞ ì
yo⌡ havσ t∩ d∩ t∩ ge⌠ thσ coordinate≤ i≤ t∩ se⌠ u≡ tw∩ pointer≤ (onσ fo≥ X¼ ì
onσá fo≥ Y⌐ anΣ incremen⌠ thesσ b∙ thei≥ respectivσ frequencie≤ afte≥á eacΦ ì
plot« Iµ ß pointer≤ goe≤ pas⌠ thσ enΣ oµ thσ tablσ theε subtrac⌠ 36░ t∩ ge⌠ ì
i⌠á bacδá t∩ thσ start«á Warninτ ║á thσ (use≥ entered⌐ frequencie≤ mus⌠á bσ ì
roundeΣá dowεá t∩á ßá numbe≥ les≤ thaε 360«á Usinτá thi≤á methoΣá thσá onl∙ ì
assemble≥ arithmetiπ yo⌡ neeΣ i≤ intege≥ additioε anΣ subtraction«á ╔ wrotσ ì
ß versioε thi≤ wa∙ iε 6800░ assembler¼á i⌠ take≤ les≤ thaε halµ ß seconΣ t∩ ì
run¼ mos⌠ oµ thi≤ timσ beinτ useΣ b∙ call≤ t∩ thσ plo⌠ routinσ!
00100 rem Lissajous Pattern Generator. Written by Peter Broughton, Nov. '87.
00140 rem MicroBee Basic version. Requires Premium.
00170 sd 8
00180 X7=200.0:Y7=110.0 : rem X and Y drawing sizes
00190 P1=3.1415927
00200 input "Enter : X frequency, Y frequency - ";X,Y
00210 cls:hires2
00220 A=256:B=128+int(Y7) : rem Screen start point
00230 X1=flt(X)*P1/180:Y1=flt(Y)*P1/180 : rem Angle increments in radians
00240 X0=X1:Y0=Y1 : rem Starting angles
00250 for I=1 to 360
00260 X=256+int(X7*sin(X0)):Y=128+int(Y7*cos(Y0))
00270 plot A,B to X,Y:A=X:B=Y:X0=X0+X1:Y0=Y0+Y1
00280 next I
00290 if key<>"" then 200 else 290
Try the following pairs of frequencies : 1,3 (look familiar?); 33,99;
64,65; 91,901; 66,33; 182,91; 44,45; 193,193; 203,203; 11,101;
33,303; 55,505; 701,71; 9,11; 17,19; 14,15
è
-- MODIFYIN╟ TH┼ SHEL╠ --
I⌠á i≤ possiblσ t∩ alte≥ thσ icoε definition≤ iε thσ Shel∞ t∩ sui⌠ you≥ owε ì
needs« Al∞ yo⌡ neeΣ i≤ DDT¼ CP/═ anΣ SHELL.SYS.
-- METHO─ --
Firs⌠ makσ surσ yo⌡ havσ ß cop∙ oµ CP/═ (CCP.SYS)¼á DD╘ anΣá SHELL.SY╙ ì
oε thσ disδ iε drivσ A« Als∩ makσ surσ yo⌡ havσ thσ origina∞ Shel∞ iε casσ ì
yo⌡á mucδá i⌠ up«á Exi⌠ froφ thσ Shel∞ t∩ CP/═ b∙ pressinτ ░ anΣá theεá Y« ì
Typσ
A>DD╘ SHELL.SYS
Somethinτá simila≥á t∩á tha⌠ showε belo≈ shoulΣ appear«á A⌠á DDT'≤á - ì
prompt¼á typσ D1A10,1A4╞ anΣ fou≥ line≤ oµ he° digit≤ wil∞ scrol∞á up«á Wσ ì
arσá onl∙á interesteΣá iεá thσ ASCI╔ character≤ a⌠ thσá enΣá oµá thσá line¼ ì
representinτá thσ he° numbers«á Dot≤ represen⌠ noε alphabetiπá characters« ì
T∩ changσ thσ icoε definition≤ t∩ you≥ own¼ typσ ╙ anΣ thσ star⌠ addres≤ oµ ì
thσ icoε definitioε yo⌡ wisΦ t∩ change« Typσ iε thσ ne≈ HE╪ numbe≥ fo≥ thσ ì
tex⌠á yo⌡ wisΦ t∩ replacσ thσ olΣ definition«á Wheε finished¼á typσ ß ful∞ ì
sto≡ anΣ ß <CR>« Notσ tha⌠ thσ ne≈ definition≤ canno⌠ bσ bigge≥ thaε thei≥ ì
predecessors«á Oncσá finished¼á typσá D1A10,1A4╞ t∩á ensurσá everythinτá i≤ ì
correct«á Iµ so¼á typσ ^C« Thi≤ wil∞ returε yo⌡ t∩ CP/M« Thσ Shel∞ i≤ 8╦ ì
long¼á anΣá 1╦á ╜ ┤ block≤ o≥ page≤ unde≥ thσ Savσ commanΣ s∩ typσ SAV┼á 3▓ ì
SHELL.SY╙á t∩ savσ you≥ ne≈ SHELL«á Theε typσ S╚ a⌠ thσ A╛ promp⌠ t∩á tr∙ ì
ou⌠á thσ ne≈ Shell«á That'≤ al∞ therσ i≤ t∩ itíá Belo≈ i≤ aεá examplσá oµ ì
changinτ telcoφ t∩ basic.
A>DD╘ SHELL.SYS
DD╘ VER╙ 2.▓
NEX╘ PC
1F0░ 0100
-D1A10,1A4F
1A1░ C┼ 4░ C┼ 7╖ 7░ 0░ 6┤ 6▓ 0░ 7╢ 7┤ 6╡ 7╕ 0░ 7╡ 7│ .@.wp.db.vtex.us
1A2░ 7▓ 0░ 6╣ 6┼ 6╣ 7┤ 0░ 7┤ 6╡ 6├ 6│ 6╞ 6─ 0░ 7┤ 7▓ f.init.telcom.tr
1A3░ 6▒ 6┼ 7│ 6╢ 6╡ 7▓ 0░ 6╡ 7▓ 6▒ 0░ 6╕ 6╡ 6├ 7░ 0░ ansfer.era.help.
1A4░ 6│ 6│ 7░ 0░ 0▒ 2░ 4┼ 9╞ 9╞ 2░ 4┤ 6╞ 2░ 7╣ 6╞ 7╡ ccp.« N.« D∩ you
-S1A27
1A2╖ 7┤ 20
1A2╕ 6╡ 62
1A2╣ 6├ 61
1A2┴ 6│ 73
1A2┬ 6╞ 69
1A2├ 6─ 63
1A2─ 0░ .
-D1A10,1A4F
1A1░ C┼ 4░ C┼ 7╖ 7░ 0░ 6┤ 6▓ 0░ 7╢ 7┤ 6╡ 7╕ 0░ 7╡ 7│ .@.wp.db.vtex.us
1A2░ 7▓ 0░ 6╣ 6┼ 6╣ 7┤ 0░ 2░ 6▓ 6▒ 7│ 6╣ 6│ 0░ 7┤ 7▓ f.init« basic.tr
1A3░ 6▒ 6┼ 7│ 6╢ 6╡ 7▓ 0░ 6╡ 7▓ 6▒ 0░ 6╕ 6╡ 6├ 7░ 0░ ansfer.era.help.
1A4░ 6│ 6│ 7░ 0░ 0▒ 2░ 4┼ 9╞ 9╞ 2░ 4┤ 6╞ 2░ 7╣ 6╞ 7╡ ccp.« N.« D∩ you
-^C
A>SAV┼ 3▓ SHELL.SYS
Erasσ SHEL╠ .SYS?Y
A>SH
è NICAD.MWB - NICAD CONDITION TIMER
By Mark Bishop
Part 2 of Nicad battery testing continued from December Catcher.
00100 REM NICAD.MWB - NICAD CONDITION TIMER {148}
00110 REM for use with analog/digital converter E.A. 7/86 P.98 {147}
00120 REM v1.1A Mark Bishop 28/12/86. {150}
00130 REM this version has calibration in data statements {149}
00135 REM and printout of voltage/time graph {154}
00140 D = 93: REM time delay for clock {198}
00150 ON ERROR GOTO 12000 {194}
00160 GOSUB 5000: REM PRINT TITLE {056}
00165 GOSUB 3000: REM DIMENSION VOLTAGE STORE ARRAY {059}
00170 GOSUB 10000: REM LOAD MACHINE CODE {112}
00180 GOSUB 6000: REM GET INPUT PARMS {059}
00200 GOSUB 7000: REM READ BATTERY VOLTAGE {053}
00210 IF V = 0 THEN PRINT TAB(15) "ANALOG/DIGITAL CONVERTER NOT CONNECTED":
GOTO 200 {165}
00220 GOSUB 5000: REM PRINT TITLE {053}
00230 REM MAIN PROGRAM LOOP STARTS {150}
00240 GOSUB 5500: REM OUTPUT TEST RESULTS EACH MINUTE TO SCREEN VOLTAGE,
CURRENT, CAPACITY IN mAH & %, ELAPSED TIME {058}
00295 GOSUB 3200: REM STORE VOLTAGE EACH MINUTE DURING TEST {063}
00300 IF V1 = < V2 THEN GOTO 350: REM CK IF MIN. VOLTAGE REACHED {183}
00310 GOSUB 9000: REM TIME DELAY {039}
00320 GOSUB 7000: REM READ BATTERY VOLTAGE {056}
00330 GOSUB 3500: REM SAVE CUMULATIVE BATTERY CAPACITY IN mAH {054}
00340 E=E+1: GOTO 230: REM END OF MAIN PROGRAM LOOP {008}
00350 CLS: CURS 5,8:
PRINT "TEST FINISHED, CONNECT PRINTER, PRESS RETURN" {084}
00352 PLAY 24,1;1,1: FOR X=1 TO 500: NEXT X: REM ALARM {061}
00360 A1$=KEY$:IF ASC(A1$) <> 13 THEN GOTO 352: REM <CR> ? {057}
00370 GOSUB 4000: REM LPRINT TEST RESULTS {056}
00380 END {111}
03000 REM DIM VOLTAGE STORE {201}
03010 DIM V4(200): RETURN {047}
03200 REM STORE VOLTAGE EACH MINUTE DURING TEST {203}
03210 V5=(V1*100)/(V0/1.2): V4(E)=(V5-FRACT(V5))/100: RETURN {211}
03500 REM SAVE CUMULATIVE BATTERY CAPACITY IN mAH {204}
03510 C1 = C1 + (((V1/R1) * 1000) / 60): RETURN {055}
04000 REM LPRINT VOLTAGE/TIME DATA {202}
04002 OUTL#1: LPRINT:LPRINT:LPRINT: REM PARALLEL PRINTER SELECT {139}
04003 LPRINT TAB(9) "NICKEL-CADMIUM BATTERY TEST":
LPRINT TAB(9) "---------------------------":LPRINT:LPRINT {137}
04004 LPRINT TAB(9) ".:";:FOR X=1 TO 6: LPRINT "....:....:";:
NEXT X: LPRINT:LPRINT TAB(4) "Volts":LPRINT TAB(4)"/Cell" {110}
04010 FOR X0=1.4 TO 1.0 STEP -.01: REM VOLTAGE ON Y AXIS {071}
04011 LPRINT TAB(3) X0; TAB(9) "|"; {077}
04015 FOR Y=0 TO 120 STEP 2: REM TIME ON X AXIS {091}
04020 IF V4(Y)=X0 THEN LPRINT TAB(INT(FLT(Y/2)+10)) "+"; {037}
04025 NEXT Y {087}
04026 LPRINT TAB(70) "|";X0 {236}
04030 NEXT X0 {141}
04040 LPRINT TAB(9) ".:";:FOR X=1 TO 6: LPRINT "....:....:";:
NEXT X: LPRINT {109}
04050 LPRINT TAB(3) "Mins.";:FOR X=0 TO 60 STEP 5:
LPRINT TAB(X+9) X*2;:NEXT X:LPRINT {199}
04060 LPRINT:LPRINT:LPRINT TAB(9)"Date":LPRINT TAB(9)"Pack #" {096}
04065 LPRINT {177}è04070 LPRINT TAB(9)"Nominal voltage"; TAB(32) V0 {164}
04071 LPRINT TAB(9)"Load (ohms)";TAB(29) [F6.1 R1] {064}
04072 LPRINT TAB(9)"Average current (mA)";TAB(32) INT(1000*(V0/R1)) {242}
04074 LPRINT TAB(9)"Capacity (mAH)";TAB(32) INT(C1) {245}
04076 LPRINT TAB(9)"Capacity (%)";TAB(32) INT((C1/C0)*100) {181}
04080 LPRINT CHR$(12);: REM form feed {215}
04090 RETURN {174}
05000 REM PRINT TITLE {203}
05010 CLS: CURS 12: PRINT "N I C A D C O N D I T I O N T E S T" {141}
05020 RETURN {164}
05500 REM OUTPUT TEST RESULTS EACH MINUTE TO SCREEN {206}
05510 CURS 270: PRINT "Voltage ";[F6.2 V1] {107}
05520 PRINT {107}
05530 PRINT TAB(15) "Current (mA) ";INT((V1/R1)*1000) {151}
05540 PRINT {113}
05550 PRINT TAB(15) "Battery capacity (mAH) ";INT(C1) {078}
05560 PRINT {111}
05570 PRINT TAB(15) "Battery capacity (%) ";INT((C1/C0)*100) {208}
05580 PRINT {117}
05590 PRINT TAB(15) "Time (mins.) ";E {100}
05600 RETURN {172}
06000 REM GET INPUT PARMS {204}
06010 CURS 206: INPUT "Cells in battery ";C0 {187}
06020 V0=C0*1.2:V2=C0*1.1:V3=C0*1.5 {242}
06030 F0 = FLT(INT(V3/5)) + 1: REM FACTOR FOR VOLTAGE DIVIDER NETWORK {110}
06040 IF F0=3 THEN LET F0=4: REM ONLY /0,/2,/4 {057}
06050 GOSUB 8000: REM check/get valid calibration data {104}
06060 PRINT TAB(15) "Battery nominal voltage ";V0 {044}
06070 PRINT TAB(15) "Battery minimum voltage ";V2 {017}
06080 CURS 398: INPUT "Battery capacity (mAH) ";C0 {096}
06090 CURS 462: INPUT "Discharge time (mins.) ";T0$ {199}
06100 IF T0$="" THEN CURS 462: GOTO 6140 ELSE LET T1=VAL(T0$) {002}
06110 R0 = 1000 * (V0 / (C0 / (T1 / 60 ))): REM RESISTANCE REQUIRED {077}
06120 R0 = 1 / ((1/R0) - (1/4000)):REM ADJUST FOR AD CONVERTER IMPED. {055}
06130 PRINT TAB(15) "Resistance required (ohms) ";INT(R0) {243}
06140 PRINT [A60 32] {080}
06150 PRINT TAB(15)"";:INPUT "Actual resistance (ohms) ";R1 {255}
06160 R1=1/((1/R1)+(1/4000)): REM ADJUST FOR AD CONVERTER IMPED. {057}
06170 PRINT TAB(15) "Discharge current (mA) ";INT(1000*(V0/R1)) {200}
06180 PRINT TAB(15) "Discharge time (mins.) ";
INT((C0/(1000*(V0/R1)))*60)+1 {212}
06190 PRINT TAB(15) "Divide voltage by ";INT(F0) {032}
06200 PRINT:PRINT TAB(15)"";:INPUT "PRESS RETURN TO START TEST";Q0$ {156}
06210 RETURN {170}
07000 REM READ BATTERY VOLTAGE {205}
07010 V = USR(A) {231}
07020 V1 = FLT (V - G) / S1 {002}
07030 V1 = V1 * F0: REM FACTOR VOLTAGE FOR VOLTAGE DIVIDE NETWORK {247}
07040 RETURN {172}
08000 REM READ CALIBRATION VALUES {206}
08010 RESTORE 11070 {042}
08020 READ F1,G,S1 {161}
08030 IF F1 <> F0 THEN GOTO 8020 {225}
08040 RETURN {173}
09000 FOR X = 1 TO D: FOR Y = 1 TO 500: NEXT Y: NEXT X {024}
09010 RETURN {171}
10000 REM MACHINE CODE FOR ANALOG/DIGITAL CONVERTER {251}
10010 RESTORE 11010 {069}
10020 READ A,B {220}è10030 FOR Z = 1 TO B: READ C: Y = Y + C: POKE A + Z - 1, C: NEXT Z {027}
10040 IF Y <> 4151 THEN PRINT "DATA ERROR": END {166}
10050 RETURN {231}
11000 REM AD DATA FOR AD CONVERTER MACHINE CODE {250}
11010 DATA 24576,40 {199}
11020 DATA 245,213,229,62,255,211,1,211,1,6 {038}
11030 DATA 0,17,0,112,33,0,0,219,0,230 {112}
11040 DATA 1,184,1,0,0,203,17,9,71,27 {143}
11050 DATA 122,179,32,239,68,77,225,209,241,201 {110}
11060 REM DATA FOR CALIBRATION DATA - divide by, G, S1 {252}
11070 DATA 1,105,208.36653 {187}
11080 DATA 2,105,208.36653 {197}
11090 DATA 4,106,205.87326 {209}
12000 CLS: PRINT "ERROR - OUT OF RANGE" {239}
12010 FOR X = 1 TO 3000: NEXT X: RUN {232}
12020 REM END OF FILE {251}
FORMATS.DOC B∙ Johε Slate≥ No« 485
Sincσá updatinτ t∩ ß Premiuφ Microbee¼á theε furthe≥ enhancinτ i⌠ witΦ ì
Pete≥ Broughton'≤ 512δ memor∙ upgrade¼á ╔ havσ beeε disillusioneΣ witΦá thσ ì
speeΣ witΦ whicΦ INIT.CO═ format≤ disks«á Als∩ havinτ ß 4░ trk« 5.25ó drivσ ì
a≤á m∙ seconΣ drivσ ╔ kep⌠ swappinτ betweeε INIT¼á FORMAT4░ (fo≥ thσ 5.25"⌐ ì
anΣ FORMAT8░ fo≥ 80trk«á Dreamdisδ forma⌠ (t∩ hel≡ ou⌠ friend≤ witΦá doublσ ì
sidσá 8░ trk«á 3.5ó drive≤ anΣ standarΣ Microbees)«á Thi≤ seemeΣ excessive¼ ì
havinτá │á program≤ whicΦ performeΣ basicall∙ thσ samσá function¼á i⌠á als∩ ì
wasteΣ disδ space« ╔ decideΣ t∩ seσ iµ :
1» ╔ coulΣ modif∙ FORMAT80.CO═ t∩ forma⌠ iε premiuφ format.
2» Combinσ al∞ thσ abovσ forma⌠ program≤ int∩ thσ onσ file.
Usinτ DASM16.CO═ ╔ disassembleΣ FORMAT80.CO═ anΣ produceΣ ß .MA├ filσ ì
whicΦá ╔á coulΣ g∩ through¼á modif∙ anΣ reassemblσ usinτ M80«á Thσá Premiuφ ì
forma⌠á use≤á ßá differen⌠ ske≈ t∩ thσ standarΣ forma⌠á s∩á ╔á changeΣá thσ ì
appropriatσ area≤ anΣ reassembleΣ thσ file¼á theε testeΣ it«á I⌠ workeΣ OK¼ ì
thσá disδá coulΣ bσ reaΣ anΣ writteε t∩ bu⌠ thσ systeφ track≤ havσ t∩ bσá ß ì
differen⌠ forma⌠ t∩ thσ res⌠ oµ thσ disk«á Thi≤ coulΣ bσ remedieΣ b∙á usinτ ì
FORMAT8░á anΣá forma⌠á onl∙á track≤ ░ anΣ 1«á Thi≤ seemeΣá ver∙á mess∙á anΣ ì
inconvenient«á B∙á eliminatinτ thσ "star⌠ trackó - "enΣ trackóá option≤á oµ ì
FORMAT8░ anΣ addinτ ß simplσ look-u≡ table¼ thσ wholσ disδ wa≤ formatteΣ iε ì
Premiuφá forma⌠á theε thσ systeφ track≤ werσ formatteΣ iε standarΣá format« ì
Thi≤ methoΣ wa≤ ß lo⌠ quicke≥ thaε INI╘ bu⌠ ╔ stil∞ haΣ │ forma⌠ programs.
B∙á addinτá aεá openinτá men⌡á anΣá extrßá look-u≡á table≤á witΦáá thσ ì
appropriatσá datßá iεá them¼áá al∞á ┤á commoεá Microbeσá format≤á (Premium¼ ì
Dreamdisk¼ C.I.A.B¼ 4░ trδ 5.25") caε bσ selecteΣ froφ thσ onσ program.
FORMATS.CO═á perform≤á simila≥ t∩ FORMAT80/FORMAT4░ excep⌠ yo⌡á choosσ ì
thσá appropriatσ forma⌠ theε selec⌠ whicΦ physica∞ drivσá t∩á format«á Wheε ì
thi≤á i≤á done¼á formattinτá oµ thσ WHOL┼ disδ begins«á Formattinτá ma∙á bσ ì
aborteΣá a⌠ an∙ timσ b∙ holdinτ dowε thσ ES├ ke∙ unti∞ thσ "ABORTóá messagσ ì
i≤ shown« ES├ o≥ ^├ wil∞ returε yo⌡ t∩ thσ operatinτ system.
FORMATS.MAC║ Mos⌠ oµ thσ label≤ anΣ al∞ oµ thσ comment≤ arσ m∙ owε anΣ ì
ma∙á seeφá obscurσá t∩ somσ peoplσ bu⌠ thσ helpeΣ mσ t∩ worδá ou⌠á ho≈á thσ ì
prograφá workeΣ anΣ wha⌠ change≤ werσ needed«á Iµ an∙ onσ caε thinδ oµá an∙ ì
morσá improvement≤ o≥ addition≤ fee∞ freσ t∩ makσ an∙ alteration≤ necessar∙ ì
o≥ notif∙ mσ anΣ ╔ ma∙ includσ theφ iε ß late≥ version. MBUG disk 070. ED.è
- TIMETABLE --
Thi≤á i≤á ß prograφ tha⌠ produce≤ hard-cop∙á schoo∞á timetables«á Thσ ì
screeεá dum≡ utilit∙ ¿ line≤ 63░ - 80░ ⌐ wil∞ havσ t∩ replaceΣ witΦ anothe≥ ì
iµá yo⌡ don'⌠ owε ß Premiuφ Microbee«á Notσ tha⌠ thσ screeεá dum≡á utilit∙ ì
useΣ i≤ slightl∙ differen⌠ t∩ thσ Onlinσ version«á Iε linσ 650¼ insteaΣ oµ ì
6,1╢ i⌠ i≤ 6,10« Thi≤ prevent≤ thσ bottoφ ╢ line≤ beinτ printed¼ s∩ iµ yo⌡ ì
replacσá thσá screeε dum≡ program¼á looδ fo≥ ß 6,1╢ nea≥ thσ star⌠á oµá thσ ì
listinτ anΣ replacσ i⌠ witΦ 6,10« Iµ yo⌡ intenΣ usinτ ß standarΣ timetablσ ì
fo≥ ß lonτ perioΣ oµ time¼á i⌠ i≤ advisablσ t∩ makσ i⌠ int∩ datß statement≤ ì
a≤á ╔á havσá done«á Oncσá datß ha≤ beeε entered¼á thσá timetablσá wil∞á bσ ì
displayed«á Pres≤ ┼ t∩ edi⌠ ß cell¼á ├ t∩ cop∙ onσ cel∞ t∩ anothe≥ anΣá ^╨ ì
fo≥ ß screeε dum≡ t∩ ß paralle∞ printer.
Program name : TYMTBL
00100 CLS:CLEAR:STRS(3000):DIM C1(10,8) √░┤╣²
00110 INPUT"Use (O)riginal data or create (N)ew data ?",Z0$ √░╖┤²
00120 GOSUB 580:OUTL#1:IF Z0$="N" OR Z0$="n" THEN 280 √▒▒╣²
00130 REM PRINT SCREEN √▒┤╣²
00140 CLS:PCG:POKE 61440,222:CURS 1:PRINT [A59 32]:POKE 61500,223 √▓┤░²
00150 CURS 64:PRINT
" MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY " √░╣╢²
00160 FOR A=3 TO 10:CURS 1,A:PRINT [A60 32]:NEXT A √░░╣²
00170 FOR L = 61504 TO 61440 + 64 * 9 STEP 64: POKE L, 219:
POKE L+12,220: POKE L + 24, 220: POKE L + 36, 220:POKE L + 48, 220:
POKE L + 60, 221:NEXT L √▓░╖²
00180 V=2:FOR J=2 TO 10 STEP 2:FOR K=1 TO 8 √▓┤╣²
00190 CURS V,K+2:PRINT C1$(J-1,K);:CURS V+6,K+2:PRINT C1$(J,K) √░┤╡²
00200 NEXT K:V=V+12:NEXT J:NORMAL √▓│▒²
00210 PRINT"Press Ctrl-P for screen dump, E to edit or C to copy" √▓││²
00220 K=ASC(KEY):IF K=128 THEN 220 √▒╢░²
00230 IF K=16 THEN 380:REM SCREEN DUMP √░┤│²
00240 IF K=69 OR K=101 THEN 410:REM EDITING √▒╣▒²
00250 IF K=67 OR K=99 THEN 520:REM COPYING √▒╡▒²
00260 GOTO 220 √▒░╕²
00270 REM INPUT NEW DATA ROUTINE √▒╡┤²
00280 CLS:FOR J=2 TO 10 STEP 2:FOR K=1 TO 8 √░▒╣²
00290 IF J=2:PRINT"Monday"; √░┤┤²
00300 IF J=4:PRINT"Tuesday"; √░╕╕²
00310 IF J=6:PRINT"Wednesday"; √░▓▒²
00320 IF J=8:PRINT"Thursday"; √▒╡╡²
00330 IF J=10:PRINT"Friday"; √░╣▓²
00340 PRINT", Period";K;" Subject ";:INPUT C1$(J-1,K);:PRINT" Room ";:
INPUT C1$(J,K) √▒╡▓²
00350 NEXT K:NEXT J √▓▓░²
00360 GOTO 140 √▒▒▓²
00370 REM SCREEN DUMP √▒╡╡²
00380 U=USR(30000) √▒╡░²
00390 GOTO 220 √▒▒░²
00400 REM EDITING ROUTINE √▒╡▒²
00410 CURS 704:INPUT"Please enter day and period 1-5,1-8",D,P √░╡╢²
00420 IF D<1 OR D>5 OR P<1 OR P>8 THEN 410 √▒│▓²
00430 CURS 768:IF D=1 THEN PRINT"Monday"; √░▓╕²
00440 IF D=2:PRINT"Tuesday"; √░╕▒²
00450 IF D=3:PRINT"Wednesday"; √░▒╡²è00460 IF D=4:PRINT"Thursday"; √▒│┤²
00470 IF D=5:PRINT"Friday"; √▓╡┤²
00480 PRINT", period ";P;" was ";C1$(D*2-1,P);" ";C1$(D*2,P) √▒╢░²
00490 PRINT"Please input new data." √░╣╢²
00500 PRINT"Subject ";:INPUT C1$(D*2-1,P);:PRINT" Room ";:
INPUT C1$(D*2,P):GOTO 140 √░╖╢²
00510 REM COPY ROUTINE √▒╡▒²
00520 CURS 704:INPUT"Duplicate cell 1-5,1-8",D,P √▒░░²
00530 IF D<1 OR D>5 OR P<1 OR P>8 THEN 520 √▒│▓²
00540 INPUT" in to cell 1-5,1-8",F,Z √░╖░²
00550 IF F<1 OR F>5 OR Z<1 OR Z>8 THEN 540 ELSE LET F=F*2:D=D*2 √░╣╡²
00560 LET C1$(F,Z)=C1$(D,P):LET C1$(F-1,Z)=C1$(D-1,P):GOTO 140 √░││²
00570 REM SET UP GRAPHICS AND SCREEN DUMP √▒╡╖²
00580 FOR A=30000 TO 30174:READ B:POKE A,B:NEXT A √▓▒╣²
00590 UNDERLINE:FOR A=64944 TO 65023:READ B:POKE A,B:NEXT A √▓▓░²
00600 NORMAL:IF Z0$="N" THEN RETURN √▓┤┤²
00610 FOR I=1 TO 10 STEP 2:FOR J=1 TO 8 √░╕▒²
00620 READ C1$(I,J):READ C1$(I+1,J):NEXT J:NEXT I:RETURN √▒▓▒²
00630 DATA 245,197,213,229,62,27,205,69,128,62 √░┤╡²
00640 DATA 65,205,69,128,62,7,205,69,128,33,0 √▓│╢²
00650 DATA 240,6,10,197,229,229,17,0,240,14 √▓░│²
00660 DATA 0,225,62,27,205,69,128,62,75,205 √▒╢╣²
00670 DATA 69,128,175,205,69,128,62,2,205,69 √▒╣│²
00680 DATA 128,6,64,24,2,24,222,197,213,126 √▒╣┤²
00690 DATA 254,128,56,11,245,62,144,211,28,126 √░╡░²
00700 DATA 246,128,211,28,241,35,229,38,0,111 √▓╡▓²
00710 DATA 41,41,41,41,25,62,1,211,11,6 √▒░╡²
00720 DATA 8,17,128,0,197,6,8,229,126,163 √▒╖╡²
00730 DATA 40,1,63,203,18,35,16,246,225,203 √▓▒░²
00740 DATA 27,122,205,69,128,22,0,193,16 √▒╣▓²
00750 DATA 230,175,211,11,225,209,193,16,185 √▓▒╢²
00760 DATA 62,13,205,69,128,62,10,205,69 √▓▓╡²
00770 DATA 128,17,8,240,121,14,1,183,40,140 √▒╖╖²
00780 DATA 193,205,9,128,40,4,254,3,40,2 √▒╢╖²
00790 DATA 16,152,62,27,205,69,128,62,50,205 √░░│²
00800 DATA 69,128,225,209,193,241,201 √▒░╡²
00810 REM PCG DATA √▒╡┤²
00820 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,15 √▓░╣²
00830 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,255 √▓▓╣²
00840 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,248 √▓┤┤²
00850 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15 √▓▒╕²
00860 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248 √▓╡┤²
00870 DATA "Sc","301","Sc","301","Cs(1)","114","Cs(1)","114","En",
"502","Hi","206","Hi","206","Gg","103" √░││²
00880 DATA "Gg","208","Hi","104","Sc","302","Gg","502","En","200",
"Ma","105","Ma","105","En","113" √▒▒╢²
00890 DATA "Gg","103","En","200","Dr(2)","12","Dr(2)","12","Ma",
"402","PE","Gym","PE","Gym","PE","Gym" √░▒╣²
00900 DATA "Dr(2)","12","Dr(2)","12","Ma","302","Ma","302","Ww(3)",
"201","Ww(3)","201","Cs(1)","114","Cs(1)","114" √▒░░²
00910 DATA "Sc","108","Ma","105","Ww(3)","201","Ww(3)","201","En",
"407","Hi","113","PE","301","En","103" √░▒╡²
è.po0
*** BAZAAR SALES *** BAZAAR SALES ***
*ááYOU╥ááááLIBRAR┘áááá*ì
THE CATCHER
02B├ Volumσ ▓ (Oct.83-Sept.84⌐.................. $15.0░
03BC Volume 3 (Oct.84-Sept.85).................. $15.00
04UB Volume 4 (Oct.85-Sept.86)
(Unbound-Only enough for 3..................... $15.00
MB01 MAGAZINE BINDERS (For ONLINE)................ $ 8.00
* HEAD CLEAN *
5HCK Drive Head Cleaning Kit 5.25" ................. $10.00
3HCK Drive Head Cleaning Kit 3.5" .................. $13.00
* SOFTWARE *
01B┴ BeeArtistiπá (Graphiπ S/W⌐á.................... $35.0░ ì
01BP BeeArtistic Premium Version ................... $35.00
($20.00 for an Update from Standard- Old orignal
for New)
001W Write Hand Man (Order) .................... $40.00
0BKP Beekeeper (see review Catcher Jan. '87)........ $90.00
1FPF Flashprint 4 (with Flashkey) ............... $50.00
002S Poor Persons Spooler (Order) ................ $40.00
003S Poor Persons Spreadsheet (Order)............. $40.00
004S Poor Persons Spelling Checker (Order)......... $30.00
005S Poor Persons Window System (Order)........... $30.00
006S Poor Persons Menus (Order)................... $30.00
007S Poor Persons Keyed Sequential Files (Order).... $30.00
00PM Printmaster Editor ............................ $25.00
Dreamcards Software Orders are available on request.
(10% discount for Club Members).
* YOUR PRINTER *
80PR Carboε Printe≥ Ribboε (New Stock)
(suit xyz.80/100 printers) .......... $13.00
10PP 1250 SHEETS CONT. PAPER
(70 GSM - NOT AVAILABLE FOR MAILING)...... $15.00
¬ááDISK╙ ááááá *
3SDB Blank 3.5" Disks, MAXELL SSDD Box of 10 ...... $40.00
3SDS Blanδ 3.5ó Disk≤, MAXELL SSDD Singles ........ ñ 4.00
3DSF Blank 3.5" Disks, BASF DSDD Plastic Box of 5 ... $23.00
5DSSáBlanδ 5.25ó Disks, NASHUA DSDD Singles ......... $ 1.70
3DSF Blank 3.5" Disks, BASF DSDD Singles ............$ 4.80
(These Nashua Disks are DSDD, NOT SSDD like some
which are advertised).
5DSD Blank 5.25" Disks, Singles ..................... $ 1.40
SPECIAL'S THIS MONTH ARE CASSETTE TAPES
ASSORTED SIZES: .45c ea OR 12 FOR $5.00
*** BAZAAR SALES *** BAZAAR SALES ***
è
*** BAZAAR SALES *** BAZAAR SALES ***
* HARDWARE *
00PB Don Mc Kenzie Printer Buffers
PC Board and Eprom ......................... $ 39.00
Full 8-64K kit (of parts) .................. $ 95.00
Full 256K Kit (of parts) ................... $115.00
03DD 1MEG. (Unformatted) NEC 3.5" Third Height DS/FDD $200.00
05DD 1MEG/1.6MEG DUAL SPEED 5.25" Disk Drive ........ $200.00
01T├ REA╠ TIM┼ CLOCK KIT╙ (see May Catcher)......... $ 25.00
SP01 SPEED MODULATOR
(slows down MICROBEE for games).,.. $ 15.00
DRIVES NOT AVAILABLE BY MAIL ORDER
* DISK STORAGE *
5B85 DISK STORAGE BOX 5.25"
(Lockable, holds 100).......... $ 18.00
5B10 DISK LIBRARY BOX 5.25" (holds 10) ..............$ 3.00
3B40 DISK STORAGE BOX 3.5"
(Lockable, holds 40) .......... $ 18.00
All postal orders to be sent to MBUG AUSTRALIA SALES
P.O. BOX 157, NUNAWADING
VICTORIA 3131
T∩ avoiΣ delays¼á al∞ order≤ mus⌠ includσ cheque¼ posta∞ orde≥ 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.
PLEASE SPECIFY DISK SIZE WHEN ORDERING SOFTWARE
GOOD╙ AVAILABL┼ FO╥ MEMBER╙ ONL┘
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Please charge my Bankcard/Visa/Master Card No. ___ __ ___ ______
Expiry Date __/__/____ Signature_________________
Members Name.__________________________________ M/ship No._____
Address._______________________________________________________
Phone Number_____________________(INC S.T.D. CODE)
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 :$7.50 Total Order $_________
Certified Mail add $1.00 Security Post add $5.00
MINIMUM POSTAL ORDER $10.00 JAN.'88.
*** BAZAAR SALES *** BAZAAR SALES ***