Download Hot Coco Vol. 3 No. 6 - November 1985 - TRS

TEACH YOUR RESET BUTTON NEW TRICKS
A CWC/I PUBLICATION
NOVEMBER 1985
USA $2.95 CAN $3.95
THE MAGAZINE FOR TANDY COLOR COMPUTER® USERS.
MAIL IT
With Telewriter-64
II BURN IT
Find Best Buys
In Heating Fuels
II EXPAND IT
Domestic
Mail
Get More from
The DIR Command
Postage
Qr!;Trtisnz1E" 3
1 1
0
PLUS: In-Depth� Product Reviews, Puzzles,
Answers to Technical Questions
Educational Level for t h e Radio
Shae� Color Computer
CHILD WRITER 32/64K disk $54.95
(network version 32/641<)
$99.95
CHILD FILER 32/64K disk
(network version 32/64K
CHILD CALC 32/64K disk
(network version 32/641<)
Elementary Level Series
MEMO WRITER 64K disk
(network version 641<)
LIST MANAGER 64K disk
SIMPLE CALC 64K disk
Home Use Level Series
$64.95
$129.95
$64.95
$64.95
TBA
BUSINESS WRITER
64K disk
$99.95
BUSINESS MANAGER
64K disk
$99.95
BUSINESS CALC 64K disk
Business Level Series
$99.95
TBA
PROOFREADER
(20,000 words) 32/64K
MASTER PROOFREADER
$34.95
$54.95
(50,000 words) 64K
75 ADDITIONAL
EDUCATIONAL
SOFrWARE TTTLES
AVAILABLE
R.S. Cat.#
90-5002
$89.95
A MUST FOR:
High Schaal Students
The
College
Entrance
Exam1nat1on
Board CCEEBJ has chosen Pascal for
•ts
college advanced placement computer
science
bench
test.
DEFT P••c•I Work·
provides all �he Pascal program­
ming tools you need to prepare for this
test on your Color Computer
"\)"¥.,�
"\_)a<&ca\
� \)"l'.�u�n.c�
College Students
The
DEFT Peac•I Workbench
gives
you the software you need to do your
PaScal
programming
homework
at
home on your Color Computer.
Professionals
Most
of the
programming feat.ures
found on the mainframes and mints used
1n business and science are available on
the Color Computer with
Workbench.
DEFT P..c.I
RAINBOW MagaziM ·(November 1984)
-The DEFT Systems peopk> h.lvt' put together a pack­
.tge which is .t complete P.tscal .tndlor assembly pro­
gramming envm>nment thal 1s re.tsonably priced and
$39.95
RS#90-5001
Hobbyists
works like .i ch.tmp "
"DEFT Bench and DEFT P.tscdl f\'m.im an excellent
l'Xdmple of whdl c.m bl· dccomplisht.-d m the CoCo
world. Tht• l'nl1re p.tck.tge gives you .tll lhl.:' nec�sary
tools to learn f'.t�·dl If you alrt•ady know Pascal, then
11 g1ves you .i tot.ti devl'lopment environment No­
thing 1s missing. thl'rt.' 1s ooth1ng el�· lo buy.-Any collt>gl' .i p pl K.1 nt .ittt'mphng to obtain ddvan ced
credit will bt> rt."lum-d lo know l'a!iC.tl in order to
Has the extensions necessary to quickly
do any Color Computer programmm1ng
1ob without g1v1ng up execution speed.
DEFT Peacal Workbench
helps
get the 1ob done.
D1recely access as­
sembler
routines
and hard­
language
you
complete tht• eum DEFT Bench and DEFT Pascal
pro\•1de .tn excellent le.trnmg environment. The enhrt'
p.Kk.tge 1s 1mpress1ve It is \'t'f)' wt'll-written and
t'\lrt:'mely e.tS)' to use In all the years I have �n
looking at softw.tre packages. nevt'f have I seen so
ware registers from Pascal.
much offert"d for so little.-
_
Quantity of Each:
DEFT Ema
_
_
DEFT Pucal
Method of Payment (check one)
0 VISA
DEFT Bench
_
3-D Graphics
0 Check Enclo&ed
0 Muter Card
DODD DODD
Card El<piration Date DD / DD
Account Number
_
DEFT Pucal Workbench
0 COD
DODD
State
DD
Zip
DODD
DDDDD
All orders are 1hipped UPS within 24 hours of receipL Add .C% for •hipping and banc:Uing;
Maryland reoidenta add 5% for State Salee Tax: add Sll.00 for COD.
Couer graphics by Colburn Blazok Associates.
Windham. NH
Vol. 3 No. 6 November 1985
,.
30
34
Directory Assistance,
53
Williams. Bonnell
--
disk directory screens.
and save the world.
Mail It with Telewriter-64,
55
J.D. Gennan
Halt Thief,
63
Wade Jense
Wayne McArthur
68
Delbert A. Baker
70
Tame Your Reset Button,
Robert Gault
Teacher Helpers,
James w. Wood
A CoCo can be the teacher's best friend.
is the best buy.
Michael E. Nadeau
DEPARTMENTS
20
Resisting temptation.
72
8 How to Use HOT Coco
73
9 Letters to the Editor
12 Doctor ASCII,
74
Richard E. Esposito
76
Answers to your questions.
78
Richard Ramella
Enter the Wild Blue Yonder.
18 The Computer Room,
Reviews, edited by J. Scot Finnie
Marooned. Trivia Fever. ChesSD,
6 Instant Coco Directory
14 Mindbusters,
Bruce Bauder
Control how your Coco resets itself.
Calculate which heating fuel
5 Digressions,
Linked Lists,
David Meredith
Try this effective sorting method.
Let your CoCo do complex math formulas.
Finding Firewood Best Buys,
'
Parallel Processing with Color Logo,
Simulate sophisticated computer operation.
Listen for clues to capture the crook.
45 Mathematics Helper,
---.....
Simon Clift
Answer the math problems correctly
to handle mailing lists.
48
.....
Make better sense out of your
Convert this popular word processor
37
Math Invasion,
,.,,,,,,
6809 On Line,
Bobby Ballard
Setting up your own BBS. Chapter 2.
Reader's Forum
Assembly 101, James and Victor Perotti
Create a nondestructive cursor.
The Learning Page, Nancy Kippennan
Simulating real life on the CoCo.
Product News, J. Scot Finnie
D.P. Johnson. Mark Data. Dorsett.
Scott L. Nonnan
80
Appropriate technology and the CoCo.
HOT CoCo (ISSN 074G-3186) Is publilhld monthly by CW �. 90 Pine SI.,
Personal Finance. and more.
Plltlborough,
Four Star Software. P olygon. and more.
The Corner Office, Jeff De Tray
NH ond -I moiling ofllces. SulJoc<tpllon ..teo In U.S. n $24.97 tor one -· S31 tor two �. ond
S53 lor tine �- In Car*8 ond Mexico, $27.97-<>ne ,,_ only, U.S. funcll. Second ct.a pootage .,.id II Pltetbo<ough, NH and - moiling ofllces. Canadian 2nd 0.. moil "'9· #9564. Nllionllly
-ed by lntemlllonal Clrcullllon Distributors. Foreign IUIJecl1ptionl (ourllce moll), $44.97-one - only, �..s. tuncll drown on 1 U.S. benlt. Foreign sublcriptlons (llr mllQ, pleae Inquire. In South Africa
conllct HOT CoCo, P.O. Box 782815, Sandton, South Alrico 2146. All sul»crlptlon � lhould be - to HOT CoCo, SubscrlptJon OepMfm«lt, P.O. Box 975, l'lmllnfldale, NY 11737. lncludl your tlddrea label with 111y corrnpo1�. P-: Send-.... chonges to HOT CoCo, Sublcrtptlon Semces, P.O. Box 975, flnnlngdole, NY 11737. Send c..llldlan chlnge of - to HOT
CoCo, P.O. Bo• 1051, Fort Erle, OnlMlo ea.*8, l2A5N8. Return pootage guaronteed. Entire contenll copyright 1985 by CW Communlclllons/Petefl>orough,
.. For questions concerning your subscription Ind
to pllct subscription ordels, pleMe call UI toll free II 1-«I0-251-5473 betwHn 8 1.m. Ind 5 p.m. EST Ol write to HOT CoCo, Subscription Deplrtment, P.O. Box 975, Ftirmlngdole, NY 11737.
Inc
Circle Reader Service card #101
J&M's New JFD--CP Disk Controller Speaks fur Itself!
RS OOS plugs right into this
24·pin EPROM socket.
(RS OOS not included)
My 28-Pin EPROM socket
accepts 64K device or NEW
128K JOOS 1.2.
This new WDl 773 controller
chip has built-in data
separator & precompensation
circuits.
Because they are
fully buffered,
my 1/0 lines
are more
dependable.
Select ROM
Aor ROM B
with this
external
switch-no
need to
unplug
controller!
You can use this 8-bit parallel port to
support a Centronics compatible parallel
printer or a Winchester hard drive.
JUMPERS: J1 IN-6ms head step rate; OUT-30 ms head step rate
J2 IN-serial printer; OUT-parallel printer
Jumper defaults apply only to JOOS.
e JFD-CP DISK CONTROLLER $149
Our new JFD-CP has redefined the state-of-the-art
for Color Computer users. Gold contacts and fully
buffered I/O lines ensure maximum reliability, and
the JFD-CP is plug compatible with both the
original COCO and the COC0-2.
NeW1Dos
1.2
JOOS implements all RS DOS commands, plus
many more, including:
• auto line numbering
• error trapping
• baud rate selection
• OS/9* boot from floppy or hard drive
• Memory Mindert-the most advanced disk drive
analysis system on the market
(Dysan diagnostic diskette not included)
DRIVE
0
SYSTEM $289
Upgrade your Color Computer by adding our new
JFD-CP disk controller, supercharged JOOS
operating system, and a top quality drive with case
and power supply: All for only $289! Comes
complete with cable and manual.
Drive 0 System with one single side drive .....$289
Drive 0 System with one double side drive .... $3S9
Drive 0,1 System with two single side drives ...$429
Drive 0,1 System with two double side drives ..$499
4
HOT CoCo
November 1985
MEMORY MINDERt
Memory Minder is a disk drive test program now
included in JOOS. Used with a Dysan digital
diagnostic disk, Memory Minder allows you to
check your drives for speed, alignment, sensitivity,
hysteresis, and more! You can actually align the
drives while viewing the graphics on the screen.
No special equipment needed!
DIAGNOSTIC DISKETTES
S08·200: Tests single side disk drives ..........$26
S08·400: Tests double side disk drives .........$33
Memory Minder is available on diskette for those
who don't own a JFD-CP Controller with JOOS.
Includes Dysan diagnostic diskette.
Single Side Memory Minder Package ......... $79
Double Side Memory Minder Package ........ $99
*OS/9 is a registered trademark of Microwave, Inc.
tMemory Minder is a registered trademark of J&M Systems, Inc.
To order, call {SOS) 292-4182. or send payment with
order to:
cl/A
J&M SYSTEMS, LTD.
15 100-A CENTRAL SE
ALBUQUERQUE, NEW MEXICO 87123
505/292-4182
We accept MasterCard and Visa
Publilher
Digressions
JEFF DETRAY
Edlor.ffl.CNef
MICHAEL E . NADEAU
llnglng Editor
MARKE. REYNOLDS
lllvlew/New Products Editor
J. SCOT FINNIE
Copy Editor
MARILYN G. McMASTER
Educltlo!! Editor
NANCY KIPPERMAN
TIChnlcll Edlt011
PETER PAPLASKAS
KEITH JOHNSON (INSTANT COCO)
GUIER WRIGHT (CONSULTING)
Art Director
HOWARD HAPP
Allocllte Alt Director
ANNE FLEMING
Random Thoughts
I
PIOduction Supefvisor
UNDADREW
n my June 1 984 Digressions. I called upon software authors to develop more serious
software for the CoCo. such as a Lotus 1 -2-3-like integrated package and a true
relational database manager. It now appears that these two products will soon be
available. (See this month's Product News for more information.)
The announcement of these products is an encouraging sign. It shows that the better
software authors are still developing state-of-the-art programs for the CoCo. The Coco
needs products such as these to maintain its user base in the face of new competition
(Commodore 1 28 and Amiga. Atari 520ST. and souped-up Apple /Is). As long as there
are companies willing to try to squeeze more function from the Color Computer with
new products. the CoCo market will remain healthy.
Advelllllng Dlnlctor
PETER MONTROSS
Ad¥lrtlllng Coordllll!Or
DEBORAH McNALLY
80 Pinc Street
Peterborough. NH 03458
1.ax>-4414403or
1.oo3-9'l+9471
Advelllllng Rep�
TAMARA DORIS
Speaking of Atari
lllnutlcturing Manager:
SUSAN GROSS
Gnlphic 5elvices Manager:
The new Atari 520ST is available now. as many of you are probably aware. It looks
like a great deal: $799 for a 5 1 2K computer with monochrome monitor. 3.5-inch disk
drive, mouse. and Atari Logo. Can it be too good to be true? Consider this: There is
virtually no software base for the new Atari. At the present time. only a software
developer would find a serious use for the 520ST.
If it breaks. where do you go to get it fixed? I called Atari to find a dealer near me.
They didn't have any in my area. but they did give me the phone number of a sales
representative in a neighboring state. My nearest Radio Shack dealer is 6 miles away.
Finally. Atari admits that it is having problems with the 520ST's operating system.
TOS (Tramiel Operating System. named after Atari chief Jack Tramiel). which is why
it comes on a separate disk instead of on ROM. Early buyers should therefore expect
to play guinea pig.
I'm not going to worry about the 520ST as serious competition for the CoCo yet.
Tramiel and company must sort out the computer's problems. establish a decent
dealer network. and get some serious software to market. The Color Computer has at
least a five-year head start.-Michael E. Nadeau
DENNIS CHRISTENSEN
Fiim l'rlparatlon Supervisor:
ROBERT M. VILLENEUVE
Typesetting Supervisor:
LINDA P. CANALE
l'rllidenl/CEO
JAMES. S. POVEC
Viet Prelident/Flnance
ROGER MURPHY
Allilllnt Genni Manager
MATISMJTH
Allilllnt to Vlce Pmldent/Flnance
DOMINIQUE SMITH
ExlCUllvt Creative Director
CHRISTINE DESTREMPES
Dirlctor of Circulation
WILLIAM P. HOWARD
am.uon Manager
FRANKS. SMITH
Dilct • Newatand Sales Manager
RAINO WIREIN: 1-800-343-0728
Director of Cl9dlt, Sales, and Collection
WILLIAM M. BOYER
l'olllcler
WAYNE GREEN
Article 1abmluiou from our readers are welcomed and
encouraged. Inquiries should be addressed to: HOT
Submissions Editor.
80 Pine S treet,
CoCo
Peterborough. NH
03458. Include an SASE for a copy of our writer's g uidelines.
Payment for accepted articles Is made at a rate of approxi­
ma ely $50 per printed page: oil rights are purchased. A u·
thO<> of rtViews should contact the HOT CoCo Review Editor.
80 Pine Street. Peterborough. NH 03458.
Prolllems with Sabocriptlcnu: Send a description of the
t
problem and your
c urrent and/or most recent address to:
HOl'OJCo. Subscription Department. P.O. Box 975. Farming·
dale. NY
11737.
Clw!C• of Addreaa: Send old label or copy of old address
and D<W address to: HOT CoCo. P.O. Box 975. Farming dale.
NY 11737. Pleas< give eight weeks advance notice.
Dalen: Contact Ralno Wireln. HOT CoCo. BO Pine Street.
Peterborough. NH 03458. (800)343-0728.
Problems with Adnrtloen: Send a description of the
problem and your current address to: Magazine. Rt. 101 &
Elm Street. Peterborough. NH 03458. AITN: Rita B. Rivard.
Customer Service Manager. If urgent, call I ·800-41
4 -4403.
is a member
ofcomput
the CWer Communi
catioinns/Imorenc. group,
themajworlor dcount
's largest
publ
ismiherl ioofn comput
eread
r-relatone
ed inorformore
mation.of
The
group
publ
i
s
hes
publ
i
c
at
i
o
ns
t
h
an
r
i
e
s.
Ni
n
e
peopl
e
the group's publicationsAustral
each iamont
include: Argentina's
AsiaBr'sazil's
'sna'hs. Members of the group Denmark's
and
and
Chi
and s
(Commodore); Finland's France's
(Apple), (IBM) and
Germany'
and and
Italy's
and
Japan's and
Mexi
co's
The
Net
h
erland's
Norway's
and (Commodore):
Saudj, Arabia's
Spain's
Espana,
Sweden's
and
t
h
e
UK's
and
Venezuela's
the US's
and
HOT CoCo
57
20
Asian Compuferworld;
DataNews
Computerworld
MicroMundo;
Australia,
Compuferworld/Argenfina;
Australian PC
China Compuferworld;
LB Monda lnformatique, Golden
Mikro;
World,
Macworld
OPC
Computerworld Italia
World
PC Magazine:
Computerworld Benelux
RUN
Computer News. PC Business World
Computerworld,
Hot CoCo, inCider.
CompuferSweden, Mikrodaforn
Computerworld Norge, PC
Compuferworld
Svenska PC:
Computer Business Europe;
lnfoworld,
Apple's;
Computerworld/Mexico
PC �d Benelux;
Saudi Compuferworld;
World, Commodore World;
Publications
Computerworld Japan;
RUN
Distributique:
Computerwoche, Microcomputerwelt, PC Welt, SoftwareMarkt, CW Edition/Seminar. Computer Business, RUN
CompuMundo;
The
Directories:
Computerworld/Oanmark, PC World
Microsisfemas/PC
Compufer Managemenf,
Computerworld Venezuela;
MacWorld, Micro Marketworld,
PC World, RUN.
On Communications.
November 1985
73, BO Micro, Focus
HOT Coco
5
Instant CoCo is a cassette tape containing the major programs from this issue of HOT
CoCo. Its purpose is to save you the time and effort of typing' long program listings into
your Color Computer. You simply load the programs from the Instant CoCo tape using
Back Issues
your cassette recorder. The instructions for operating each program are found in the
corresponding HOT CoCo article. Both Basic and Assembly-language programs are
included on the tape.
The Instant CoCo symbol appears in HOT CoCo's table of contents and on the pro­
gram listing for each article with a listing used on the Instant CoCo tape. As an added
extra. each tape also contains a never-before-published Bonus Program, complete with
instructions.
The directory below lists all programs included on this month's Instant CoCo cas­
sette. Shown first are the name of the article with a descriptive blurb and its author,
followed by the page number in this issue where the article appears. Next comes the
file name of the program on cassette. Finally, there is a brief description of the Color
Computer system needed to run the program.
Yes. back issues of
Har CoCo are available for aJ
months. This list shows the features in each issue:
October 1983-Animation techniques: ROM dis
assembly. part I.
November 1983-Nuclear submarine simulation
ROM-pack primer: banner printer.
December 1983-World capitals q uiz program
talking spe,lling tutor: vocabulary-building program.
This month's Instant CoCo cassette is available for just $11.47, including postage
and handling, from Instant CoCo, 80 Pine St., Peterborough, NH 03458. See our
ad on p. 64 for more details.
April 1984-Peripherals buyer's guide:
how le
shop for a disk drive: disk·fix utility: Lisp i n t er
preter.
Instant Coco Directory
November 1985
System
TITLE
16KCB
14
WILDBLUE
16KCB
September 1984-Educational software buyer's
guide: typing-teacher program: the CoCo as a mar·
keting aid.
30
FSDIR
32KDECB
November 1984-Personal money manager pro
Leave the perimeter in just
the right number of moves.
Directory Assistance/Bonnell
July 1984-Do-it-yourself lowercase mod: variable
File Name
Page#
Copyright Statement
Mindbusters/Ramella
June 1984-Horse-racing and stock- m arke t simu·
lators.
cross-referencer; the game. Python.
Side A
Article Name/Author/Description
May 1984-0S-9 review: financial transactiom
tracker; homebrew spelling checker: CoCo Reversi
game.
Put an end to cryptic
August 1984-Basic OS-9 review: database man·
ager program: graphics tutorials: hurricane t racker.
gram: disk-file protection utility.
disk-directory screens.
Mail It with Telewriter-64/German
34
TWSORT
16KDECB
37
HALTHIEF
32KECB
45
MATHHELP
16KECB
48
FIREWOOD
16KECB
Give Telewriter mail-list sorting capabilities.
Halt Thief/Jense
gram.
Listen to the clues to find
the crook before your opponents.
Mathematics Helper/McArthur
December 1984-Disk-drive timer: disk drive
maintenance tips; full-featured te x t -e diti n g pro·
Solve difficult geometric equations.
January 1985-Spreadsheet pro gra m: stock·
charting program: make fancy grap hic s with your
printer.
February 1985-Drawing program: user 's group
list: Space Hawks game.
Finding Firewood Best Buys/Baker
Calculate how to stay warm this
March 1985-Universal screen-dump program:
POKE list: utilities.
winter at the least cost.
April 1985-Telewriter-64 mods: modem compar·
ison: satellite-tracking program.
Side B
Math Invasion/Clift
53
INVASION
16KECB or
32KDECB
You must solve a math problem
!:>efore you can save the world.
Linked Lists/Bauder
63
LINKSORT
16KCB
June 1985-How to install 64K in any CoCo: pie·
chart program: custom fonts for Gemi n i printers.
68
LISTING2
16KECB
RESET(ml
16KCB
ing program: how to connect the CoCo t o a Model
LISTING3
16KECB
Learn another way to sort data.
Tame Your Reset Button/Gault
May 1985-Sound digitization: blackjack program:
disk-based smart terminal programs compared
Reset Basic programs to the point
August 1985-Graphics uWities: auto-line-number·
100.
you. not the CoCo. wants.
Teacher Helpers/Wood
70
Generate true/false tests.
You'll also find in each issue our regular
of useful programs that are yours for the t y p ing in.
***Bonus Program***
Megashield/Washington
MEGASHLD(m) 16KECB
You've got to be quick and a good
shot in this Assembly-language arcade game.
CB= Color Basic. DECB =Disk Extended Color Basic. ECB =Extended Color Basic.
(m}-achine-language program (use CWADMJ
6
HOT CoCo
November 1985
features.
reviews of popular software and hardware. and dozen.1
$3.50 plus $1 shipping and
handling. On orders of 10 or more back issues. there
is a flat $10 shipping and handling fee. Quantities
Each back issue costs
are limited. and we cannot guarantee that all
back ·
issues are available. Send your orders t o HOT CoCo,
Back Issue Orders, 80 Pine St..
NH03458.•
Peterborougl
Introducing
COCO TIME
A monthly magazine on tape and disk
DISK
ANTI-PIRATE
Now every month you can get 8-10
ready-to-run utilities, programming tips
& hints, business applications, home
management, tutorials, and educational
programs. Also a Buy 'N Sell section
and much, much more. NO GAMES,
ONLY REAL STUFF!
(A Breakthrough in Disk Protection)
P rograms written by computer wizards
like Kishore M. Santwani and
Gary T. Jes.
SUBSCRIBERS BENEFITS
•
•
•
•
���:�:�� ���c,:�� ��� ��� ;
HIDE-A-BASIC 1.1
AT LAST! A program that combines
autostart with complete protection of
your valuable Basic programs.
IMPORTANT F EATURES:
•
PREMIERE ISSUE
(October 1985)
•
•
CoCoDiskZap
•
Memory Monitor
•
Educational Hangman
•
Basic P rogram Packer
•
Tape Encryption (Basic)
•
Disk Encryption (Basic)
•
Basic Speedup Tutorial
•
DMP (100/110/120)
•
Autostarts your programs.
A ML program that modifies your program and NOT 1ust
'Stands Aparl ·.
Option to disable Break-key, Clear key & Reset bunon.
Dosables LIST. LLIST. EDIT. DEL TRON. TROFF. CSAVE
(Ml. CLOAD (Ml
Disables POKE. PEEK. EXEC & USA to prevent ·sack·
door entry' to your program
Disables disk functions 10 avoid access thru Disk
System
Creates an 'ONER GOTO' routine to trap errors
Your Basic program 1s loaded as a ML program · with
CLOADM.
Full documentation.
Buy Now & Protect your Profits For 16K ECB Cassette
System.
$24.95
Buy BOTH for ONLY $79.95
Graphics Dump
Tape Only
T he market value of these programs is
OVER $150, DOUBLE the price of our
DISKETTES
Subscription Rates
(USA & Canada)
Tape
1 Year
6 Months
Single
$65
$40
$10
$75
$50
$15
Microcom Software
Subscription Software Dpt.
PO Box 214
Fairport, NY 14450
Phone (716) 223-1477
•
•
•
•
•
•
$18.00
$162.95
10
100
$2.00
$7.00
Shipping
N O SHIPP I N G charges on disks if ordered with any
other software.
CoCoDiskZap program (a $24.95 value) on
additional disk with purchase of 10 or more disks.
.A - Circle Reader Service card #106
FREE!!
{--)
!ll!
- !Pll
L.::_J
.._- MICROCOM SOFTWARE
P.O. Box
214,
14450
716-223-1477
FAIRPORT, N.Y.
To Order: VISA. MC. CHECK. MO. COO ($2.50 extra) Please add
$2.00 shipping and handling (Foreign $500) NYS Residents.
$2.00
please add Sales Tax. • Immediate shipment
phone and get a
•
Order by
• Dealer inquiries inv ited .
refund for your phone call
• Call for discounts on bulk q uant i ties
•
Auto stan your Basic programs
Effectively encrypts your programs
Disables most Color Bas1clECB/D1sk Basic commands
Disable BREAK KEY. CLEAR KEY and RESET BUTION
Generate a Repeat·Key.
Merge two Basic programs.
Transfer Rompaks to tape (for 64K only).
Speed up your programs.
RESET. MOTOR ON/OFF lrom keyboard.
Restan your Basic program thru the RESET BUTION
Produce Key·Cl1cks and Error-Beeps
Recover Basic programs lost by NEW. ?1Q ERRORS and
faulty RESET
Set 23 dollerent GRAPHICISEMIGAAPHIC modes
Set 15 of the most commonly used Baud Rates
Allow you more plays m 23 of your favorite arcade
games
AND MUCH MUCH MORE'
COMMANDS COMPATIBLE
WITH
16K/32K/64K COLOR
BASIC/ECB/DISK BASIC CASSETTE and DISK SYSTEMS and
CoCol and CoColl.
ONLY
--- - -- -
$16.95
.
.. ....��
... , _.._._
I
UTILITY ROUTINES
for the TANDY & TRS-80
COLOR COMPUTER (Vol. 1)
---�
This powerful book for Basic and ML Programmers
includes program explanation. memory requirements.
and an annotated source li sting for the utility routines
given below. These routines if bought individually will
cost you HUNDRE DS OF DOLLARS.
These are 100% Position Independent ML Utilities and
require no ML programming knowledge.
COMMAND KEYS: Access most Basic commands with 2
keystrokes.
CURSOR STYLES: Create OVER 65000 Cursor Siyles
cc
.
FULL LENGTH ERRORS Get full length error messages
KEY CLICKER. Ensure key inpul a uracy
..
PAUSE CONTROL. Put Basic/most ML p1ograms 'on hold
SPOOLER (16K. 32K. 64K): Don·t wait for those printouts.
51/• · · SS/DD Diskettes with tearless sleeves. hub
Disk
•
REPEAT KEY. Repeat ANY key. 5 d1fferen1 key speeds
REVERSE VIDEO (Green and Red) Eliminate eye strain
[2J
rings. write-protect tabs. and Jackets.
Quantity
Price
(Other countries add 25%)
Pay by VISA/MC/Check/MO
ii.JI'
m
W I TH HIDE-A-BASIC 1.1 THERE IS
PRACTICALLY NO WAY A N YONE CAN
'GET INTO' YOUR PROGRAM.
annual subscription.
This 80-page book includes POKES, PEEKS
and EXECS to:
•
(A Breakthrough in Cassette Protection)
EVERY YEAR YOU GET OVER
Ram Disk (30K)
NEVER BEFORE has this information of vital significance to a programmer been so readily available to everyone. This book will help you 'GET
UNDERNEATH THE COVER' of the Color Computer and develop your own HI-QUALITY programs, SO W HY WAIT?
•
$59.95
""" ·�:::..,,,
the TRS-80
COLOR COMPUTEI-i"···-·�
MIN. 16K ECB Disk System.
Only
·�
500 POKES, PEEKS
'N EXECS for
(Works with CoCol and CoColl)
•
•
r
Auto Stans your Basoc/ML programs.
c
l
o
a s
P
L
ESET BUTION.
Modo!oes your code so LIST. LUST. POKE. PEEK. EXEC.
USA. CSAVE (Ml. CLOAD (Ml. EDIT. DEL. TRON.
TROFF. SAVE (M). LOAD (M). MERGE woll ONLY work
with your own PASSWORDS
BACKUP PROTECTION prevents ollegal dosk copying.
Your Basic program loads wtlh LOADM.
Includes a Title Screen Editor to create !Ille screens.
which can be displayed wh11e your program loads.
'ONERR GOTO" feature to irap errors (even for ML
programs).
Can be used to turn on 64K ALL-RAM MOOE in 32K/64K
memory systems.
EASY·TO·USE and FULL DOCUMENTATION.
NO ROYALTIES/AGREEMENTS/CONTRACTS.
$1500 WORTH OF SOFTWARE.
So Act Now!
·:
Here 1s a chance for you to copy-protect your
Basic and ML programs. DISK ANTI-PIRATE
does more than any other program in the market.
Compare the features:
•
Free advice/help on your Basic and
ML programs, wherever possible.
Free Buy 'N Sell ads on computers
and software.
10% off on all Microcom soft­
ware/books.
Subscribers encouraged to submit
programs for inclusion. (contact us).
e
Your Only Weapon Against Software Piracy!
Each issue shipped to you
by first-class mail.
•
-es
THOUSANDS OF PROGRAMMERS USE THESE
UTILITIES DAILY. SHOULDN'T YOU?
32K Spoiling Butter in 64K
SUPER SCROLLER (64K Only). Save and examine everything
c
that scrolls off !he t ext s reen
AND MUCH MUCH MORE 1
Compatible with 16K/32K/64K ECB I Cassette
and Disk Systems and CoCo I and Coco II.
BOOK $19.95
THESE ROUTINES (READY-TO-RUN)
ON CASSETTE/DISK: $24.95
BOTH BOOK & CASSETTE/DISK:
$36.95
Basic Programming Tricks Revealed-$14.95
Color Basic Unravelled-$19.95
Extended Basic Unravelled-$19.95
Disk Basic Unravelled-$19.95
All 3 Unravelled Books-$49.95
FACTS-$14.95
24-HOUR ORDER HOT LINE (7 DAYS A WEEK): (716) 223-1477
Tell them "I saw It in HOT Coco."
November 1985
HOT CoCo
7
How to Use HOT coco ---�----!!!
E
'(
ach month Har CoCo provides a number of program listings for
appears in the magazine. being particularly careful with spaces and
you to type into your Color Computer and use. If you are new to
punctuation. If you do this, the 32-character format will aid in proof­
reading what you have typed by letting you match beginning and
ending characters on corresponding lines. If you have a line that ends
computing. read this page for advice that will help you avoid problems
often encountered when entering programs manually.
on a character other than what appears in the magazine, go back and
Know the Basics
check for a typo. Also, don't mistake certain characters for others that
look similar. such as a zero instead of the letter 0, a comma for a
Before you begin, you should be familiar with the basic operation of
your Color Computer. Read the manual, and make sure you under­
stand how to enter a program line, save a program to cassette or disk,
semicolon, and so on.
and make corrections to a program line. Verify that the program you
want to enter will run on your version of the Color Computer. You
need to know the memory requirements, the type of Basic used (Color,
Micro Color, Extended Color, or Disk Extended Color Basic). what pe­
ripherals might be needed, and in some cases whether a particular .
ROM version is needed.
All this information is provided in the System Requirements box
included with each article that has a program listing. This box gives
the minimum requirements to use the program. If. for instance, the
box reads "16K RAM. Color Basic," the program should also work on
32K or higher, Extended or Disk Extended Color Basic CoCos. Op­
tional equipment is listed as such. Once you've established that the
program will work on your CoCo, read the article thoroughly. Some­
times it will include information vital to typing in the listing.
What You See Is What You Get
We print all Basic program listings 32 characters across-just as
they appear on your video screen. Type in the listing exactly as it
Circle Reader Service card
�
G
�
S ut lR
REET
l 5E , FL 33322
C•EPT H
SCREEtl
L ISTS
KEEPS A FILE
FEED
32f:
CHECK FORMS.
coca
WITH DRl'JE
PRIHTER DPTIDtlAL.
DRC•ER E:AtlK.5 $2't"l5
t;2.aa
PLUS
.6.
s
BUSINESS BANIKBOOIK
ALL OF THE DPTIDtlS
r-\" CHECKS
{f
RAINBOW
�
ORDER
BAHK
SYSTEM
H
DF THE ABOVE
7.1 t; 5Cf.Cf5
t;2.aa s
P LUS
$5 Cf."15
$2.aa
SUPER DISIC UTIUTY
DISPLA'rS DIRECTOR�·
BACl<UP DIRECTOR�·.
WITH TWO
DRC•ER SUPER DIS�:
HOT Coco
COP'('
READ,MODIF'1•
DR DATA.
ALL
111 PAGES.
PROGRl"IMS
s ,!.
H
MAKES
$1"1.!'15
r.:ILL
PROGRAMS
PLUS
t;2.aa
IHCLUDE MAHUALS.
FLA. RES. ADO 5 � TAX
November 1985
-
RUt1S PROGRAMS
r.:E·.·sTRDKES.
BACKUP, AtlD
&. H
DISK DRIVES
PLUS
#12
We try to convert Assembly programs to Basic DATA statements.
With a short Basic routine to execute the DATA statements. you have
a program that you can type in just like a Basic listing, yet operates
much like the one written in Assembly.
off the computer for a few seconds before turning it back on. Of course.
this wipes out your program in memory.
To avoid this. always save what you have typed in before running
it. That way. if you did make a mistake, you can load the programfrom
FOR DtlE C•ISK DRIVE -
ORDER 9Atif'. Cf . 1
8
,!.
·,·au CAtl
TWO - FOR TWO
to someone with a little experience with Assembly programming . It
also requires a short Basic routine that prepares your CoCo for hand­
assembly.
Since DATA statements often consist of numbers only, it is easy to
AtlO DEPOSITS.
SYS.TEM Dt1E -
can execute.
If you do not own an editor/assembler, it is possible to hand-assem­
ble an Assembly listing. but this is a tedious process that is best left
make a mistake typing them in. One wrong number can crash the
program. When this happens. the only way to recover is often to tum
CHARGE UP TD
FOUR ACCOUllTS ·PER TRAt1SACTIDt1 -
PROGRAM PLUS
But you do not need to know how to program in Assembly to use
these programs. You do need, however, something called an editor/
assembler. An editor/assembler allows you to manually enter an As­
sembly listing. and then it "assembles" it into a form that your CoCo
Speaking of DATA Statements
CHECKS IF 'rDU HAI.IE THE PROPER
RECl.UIRES
Har CoCo often publishes programs written in Assembly language
rather than Basic. Assembly programs "talk" to your CoCo on a more
direct level and, therefore, run faster. Unfortunately, it is much more
difficult to learn Assembly-language programming than Basic
programming.
can load and execute them immediately.
{fr-\" OF YOUR REuULFiR PAYMElffS. LISTS
�!��!.�o":' CHECKS OUTSTAHDIHG Atm PRIHTS ·,·ouR
T RACTO R
Assembly-Language Listings
bler, check to see if it appears on our Instant CoCo cassette. All assem­
bly programs on Instant CoCo are in assembled form, meaning you
TRAtlSACTIDtlS
ltlTE R .
DR PR
up arrow in place of all carets in Basic program listings.
If you want one of Har CoCo's Assembly listings. but it hasn't been
COlOR BANIKBOOIK
COLOR COMPUTER
Dtl
The up arrow indicates exponentiation on the Color Computer. Un­
fortunately. our printer prints a caret (.) instead. Be sure to type an
converted to DATA statements and you do not own an editor/assem­
REPLACE '!'DUR CHECK9DOK WIT H '!'OUR
�
Weird Characters
St.H
tape or disk to look for the error, rather than retyping the entire listing.
One last thing about DATA statements: Error messages that occur
due to a mistyped DATA statement line will refer to the corresponding
READ statement line earlier in the program. Yet it is the DATA state­
ment that is incorrect.
If All Else Fails
If you cannot get your typed-in listing to run after checking and
double-checking for typos. you can ask us for help. Send a detailed
description of your problem along with any error messages given.
Ideally we'd like a printout of what you typed. Send a self-addressed,
stamped envelope for the fastest reply. Sorry, but we cannot help you
if you have modified the original program in any way. Write to HOT
Coco, attn. Technical Editor, 80 Pine St., Peterborough, NH
03458 .•
Letters.to the Editor.��
pear on land masses. The modification below
Out of Tune
In your review of CoCo Tuner (HOT CoCo.
August 1985. p. 74) you state that the instru­
ment "emits an audio signal in which A
equals 220Hz-octave 4 on the piano. or the
A above middle C." The frequency for the A
below middle C is 220 Hz: 440 is the fre­
quency for the A above middle C.
Furthermore. the Hale Sight-0-Tuner was
not mentioned as one of the "electronic tun­
ing forks." The product is sold by Tuners
Supply Co.. P.O. Box 950. Somerville. MA
02145.
Of course. it takes more than knowing the
correct frequency in order to finely tune a
piano. The tuner "hears" only the vibrations
produced between bridges. making no allow­
draws the portion of the circle over water in
black and the portion over land in white. Edit
line 30 as shown and add the other four lines.
30
265
270
PMODE4. l:PCLEAR4:PCLS:CLS
FOR TH= 0 TO 6.3 STEP .3
xc = XP + 5•coS(TH):YC
=
5•s1N(TH)
275
yp +
IF PPOINT(XC.YC) = 5 THEN PSET
(XC.YC.0) ELSE PSET(XC.YC.5)
276
NEXT TH
The changes replace the CIRCLE command
by PSETing each pixel around the perimeter
of the circle after determining whether it
should be white or black.
World Map is a great educational program.
R. Spencer Soanes
Brechin. Ontario
ance for equalizing the tension of the strings
across the bearing points or taking the twist out
of the tuning pins after they have been moved.
Bob Buzzell
Newtown. PA
Our apologies for the error and the over­
sight. -eds.
Program for Diabetics
Program Correction
The List ings accompanying David Mere­
dith's article. "All Sorts of Sorts" (HOT CoCo,
July 1985. pp. 46 and 4 7) contained minor er­
rors. Replace the first greater than symbol I>)
in line 220 of Listing 5 with a colon (:). In line
180 of Listing 7. change the beginn ing of the
line to read: IF V= A(l + 1). -eds.
I am interested in developing a program for
educating young diabetics and have heard
that programs of this type are already avail­
Bobby Ballard
Redesign
able. Could anyone provide information on
obtaining such a program for the CoCo? I am
It is impossible to use a slow screen dump
eager to hear from other CoCo users with a
from screen 0 in Oesignmaker (HOT CoCo.
similar interest.
August 1985, p. 26). To accomplish this. edit
Miss Wendy Ross
50 Sandwich Road
Beckenham. Christchurch 2
New Zealand
line 1260:
1260
IF PPOINT(ZX.ZY) = F"4
1320
+
l THEN
should state that it requires 16K RAM.
Thad Starner
I'm looking for an interface (with cable) to
on making the connection and the address of
an interface manufacturer.
Norman A. Bleshman
165 Ames Ave.
Bergenfield. NJ 07621
Hi-Res World Map
Readers who want to use World Map (HOT
CoCo. April 1985, p. 30) in PMODE 4. the
highest resolution mode. are hampered be­
cause the identification circle does not ap-
8 I and CGP-220 printers. I would appreciate
hearing from anyone who can offer advice on
software problems.
First of all. can anyone tell me whether you
can change the rectangular cursor. using one
or more of the ASCII characters in the VDG
instead? Or can you provide assistance with
my robot and speech synthesis projects? I
connect my 32K CoCo to a Brother Compac­
puter compatible. I would appreciate advice
MC-10 User
a few specific programming. hardware. and
There is one small error in the article. The
tronic 60 typewriter that is said to be com­
·
I own an MC-IO with 20K RAM and CCR-
System Requirements for Designmaker
CoCo Connection
not mon itor the carrier-detect line in the au­
toanswer mode unless you run a special line
into the joystick port or use Tandy's Deluxe RS232 Program Pak (catalog no. 26-2226). The
Program Pak. which sells for $59.95, was not
available for the review. It will provide access
to more control lines for maintaining control of
the modem.
Another problem with the Modem II con­
cerns its force DTR (data-terminal ready)
switch. Turn ing this switch on when you are
running a BBS always forces a carrier detect;
consequently you can't determine if a caller
has hung up. Instead. you must rely on a soft­
ware time-out to make the disconnection. If
you add Tandy's RS-232 ROM pack and leave
the force DTR line off. carrier-detect is not
forced and can be mon itored. However. the
force DTR switch is a flaw and a major prob­
lem for BBS owners. For autoanswer. I find
many better moderns on the market.
Use of the Modem II as an autodial modem
is dependent on your software. The review
should have stated more clearly that the au­
todial feature works with some. but not all. ter­
m inal packages. B u t t h e fac t t h a t some
readers have found programs that perform
this function on the Modem II (including Au­
toterm from PXE Computing and Vidtex from
CompuServe) does not mean that the product
will work un iversally. Several packages will
not autodial with the Modem II.
Modem II Revisited
Despite my response to Jason Johnson 's let­
ter published here in July. HOT CoCo has re­
ceived additional mail criticizing the review of
Tandy's Modem II (HOT CoCo. April 1985. p.
24). The review. which was designed to be an
examination of low-cost moderns. included a
cursory inspection of the higher priced Modem
II because many readers might consider the
Tandy product. as well.
Most of the Modem /J's features work fine on
the Color Computer. Howetfer. the device does
not perform autodial operations with all Color
Computer software. In addition. the CoCo can-
am looking for 25 inexpensive stepper mo­
tors and information on interfaces and pro­
gramming for the robot. I would welcome
tips for using Tandy's SP0256A-AL2 speech­
synthesis IC with the MC- IO.
I'd like to obtain a circuit-design program
that prints text and graphics to the screen
and printer and that also allows you to save
and load designs to and from cassette. My
final request is for a music program compa­
rable to Tandy's Audio Spectrum Analyzer
(catalog no. 26-3156).
Arne J. Gregor
1606 Lincoln Court
Reading, PA 19605
November 1 985
HOT Coco
9
DISK
544.95
Also Supports The PBJ 80 Column "Word Pak", Deluxe RS-232 Pak,
Parallel Printer Card and PBJ 2SP Pak
"FEATURES"
No Lost Information When Using Hi-Resolution Display On Line
Freeze Display and Review Information On Line
Full Te1<1 Buffering
Full Disk Support for Disk Version
ASCII Compatible File Format
Terminal Baud Rates
300
lo
Send Files Directly from Buffer
9b00
Disk
1 10-9600
Automatic Word Wrap Eliminales Split Words
Separale Prinler Baud Rates
Full / Half Duplex
Display on Screen or Ourpu1 Con1en1s of Buffer. to Printer
Automatic File Capture
Au1oma1ic Memory Sense
9
Programmable Word Length, Parity and Stop Bits
Save and Load Tex! Buffer and Program Key Buffers tn Tape
or Disk
9
Hi-Resolution Display Formttls,
True Upper / lower Case Display
•
or
Send Control Codes from Keyboard
28
to
255
Programmable Funcli\1n Key Variable Length Macro Bufff'r
Programma�le Prompt Characler or Delay to Send Ne>et Line
Programmable Control Character Trapping
24
x
16-MK
Programmable Open / Close Buffer Characlers
Automatic Key Repeal For Editing
Program and Memory Stalus Displays
Kill Graphics Option for an Exira 6K
Supports Lme Brf'etk
The Source brings the cost of Disassembler and Assembler Source code
generation down to Earth.
Six months ago a terrorist group demanded to be designated the rulers of
Alpha Sigma III, under the threat of world starvation on the planet Earth. The
Now you can Disassemble Color Computer machine language programs and generate
beautiful. Assembler Source Code for a fraction of the cost of other Disassembler/Source
Generator programs.
Federation denied their demands, so they released a biological weapon which
has destroyed all known edible plant species from throughout the known gal­
axy. To date no plant life has been able to survive on Earth. Recently. Federation
undercover agents have reported a story told by a roving space trader, of a
planet with abundant edible plant life. These plants have a reputation of being
able to survive in all climates and in fact, are supposed to grow at an incredible
rate. The Federation is desperate! If Earth's food source is not replaced soon ,
the Federation will have to evacuate all animal and Human life. Your mission
The Source has all the features and functions you are looking for in a Disassembler.
• Automatic label generation.
• Allows specifying FCB. FCC and FDB areas.
• Disasrembles programs directly from Disk.
• Supports multiple origin disk mes.
• Output complete Disasrembled listing with labels to the Printer. Screen or both.
• Generated source files are ln standard ASCa format that can be ediled by most word processors.
• Generates Assembler compatible source files directly tod1sk.
FCC and FDB areas In a program.
• Fast Disasrembly mode for testing & checking FCB, FCC and FDB mapped areas
• Built In Hex/Ascti dumJ>'display to help locate FCB.
• Built In Disk Dire<tory and Kill me commands.
is to go to the planet Zephyr and obtain the seed of these plants and return to
Earth. Several Federation agents have been sent to obtain the seeds and none
'
has returned! Can you get the seed and survive??? GOOD LUCK!
.
• Menu display with single key commands for smooth. Easy. almost foolproof operation.
Screen Enhancement Program Comparison Chart
PROGRAM FEATURES
NEW IMPROVED VERSION
•
VP TO 85 CHARACTERS PER LINE
READABILITY
· ADJUSTABLE A VTOMA TIC KEY REPEA T
•
•
PROPTECT 1 -23 SCREEN LINES
.
H 1 · m 11 ill WL l.Wlil1.
· Ft 11 1 . % I IPPCR/l .OWFR CA'ic CHARACTFH'i
. M I X c l J r ; HAPI llC'i & TLXT OR 'ifPAHATf
u�
F• c
1tmu•1n;rm:m1
1m1nn
A·1 "Jsfat. f • t 1 nE" l en J t t.s f r o"' 28 f·:- 255 ·:h<ir ic f e r !:
2 B
� 2
C h a r a •:
t e r !
( h l r i c l e r :
,, r ti.. ...-t
....�
a r f'
I m•
""" , ,,..
"'
d1
P�' !Hl)
e -t s 1 1 � pro"r a •O'l lb l e l h r l• B A � I (
[fe·;1r canP1Ul8L[
Fur1c l 1 ons
F •J l l Y
r;RAPlllC & TfXT 'if' Hff N'i
I ' ri
l 1 r1 e
( orot r o r Cod"" lle.�t•c•lr ·1 >!> Hv t o .... -ll f • <: �.e� l<' e ,. f' i l
T ,. w l H • '1 Gr ,i,Ph1 t: S 1 r1 PMOll[ "I 1 n <1 M•J
MN'!'.
M 1 w "!' '1
Al l
" "' r
P <!" r
Char a c t er s Per l i ne
12 ( t, l f i c I e r : P e r I 1 fo'!'
'SI ( h,Jr <icl er � ""'' I 1 n<!'
l 6
(1 f.h•l t( l •r s r •r
F•.tl I
· Dl l.1PI .AY FOKMAT"l O F 2H , , , 2r,r, C:l IAKACTFR"-i PFK I .INF
H � i � t1 I
�
r
P r (• l � � t '' f � � = · , u��E}t
!
_ 1�.1�
��r. I 1 r' "' "
F v t I ; e t ·=-' ( t • r s o r (.(•f.t r .:d
.• r, I 1 o:.r, _;;
T r t• e IJ P P e r � L o M e r c a s e •:t1 a r a •: l e r !: e l
CONTROL CODE KEYBOARD
· H l l . l . Y flAW" COMPATIFll.I·
jl o) 1,1 b l
f�
1 nd l•'1 1 n"
us I;
. INDIVll J I J A I . CHAHN"TJ:H 111r;111.1r;HTIN(;
. RcVER'ir f'llAHACTCR 1 1 1 r ; 1 1 1 .1 r ; 1 rr MOl >I"
. WH ITrl·.N IN J·A'iT MAClllNE I ANr;1 1Ar;E
·
A l JTOMATIC H r HJCATI 'i TO TOP OJ
/ h/"l£K
· Al JTOMATIC/\1.1.Y 'it IP/'fl lH'i h� K , , / RAM WIT/ I HI '' T CONTHrn .
· HfVfR'il . 'iC HFfN
· ON 'iCRf'YN I J N / l l H J . I N /
· IJ Ol IFll.F 'ilZF CJIAHACTI H'i
ALL ORDERS SHIPPED FROM STOCK
ADD $2.50 POSTAGE
/'
· EHA'ic H J I. Ni l OJ· I INI
· I.RA 'ii TO f N / l OF -;rH I 1.N
· /lOMf ('I JH'iOR
· Ill. I I. TONI CJ IAHACTl . H
· J l(J�f C l JH'iOH I< I.I .I AH 'iC H l . l . N
· RI ()I JIHI -; O N l . Y £ K 01 HAM
· f'OM l'AT llll I WIT/I Al.I TAP/ I< I Jl'iK W'll M'
Circle Reader Service card
1o
HOT Coco
November 1 985
#335
5566 Ricochet Avenue
Las vegas, Nevada 891 1 0
(702) 452-0632
HI-RES II HI-RES I
NcW
OLD
BRAND X
Yes
Yes
Upper/Lower ca<>l' rh,-uacters Yes
Yes
Yes
Yes
Mixed Text and l,r,,phics
No
Yes
Yes
Separatl' Text & < 1rnphic<;
Yes
Yes
Yes
Print (@ fully 1mpll'men1ed
Yes
.r) I only
Yes
Print @> on all line len gth.,
2H 10 2:,r, (tJ)2H 1n 2'.1'.1 (11) '.> I onlv ( 1 )
Different line l1·ngths
YP<;
Yes
Ye...
Aulnmi'llJC Kt>V RepeM
No
No
Ye�
Ad1us1ahlt> K.,v R{"pei\r.
N<>
No
Yi!"
Auto Repei\I r"'>1-;i'1hk•
Yes
Yei;
Yes
Eraw ro e n d o f l1ne/scrPen
Yes
Yt>s
Yes
Hom" Cursor
Yes
No
Yes
Solid or Rhnk1ng C u r ,or
fluff/Fl!i.ck
Ruff/RiMk Ruff/Rlark
CLS command "U ppnnl'd
X. Y C()()rdinatl' Cu rsor
Nn
Yes
Yes
Pmilinning
No
Y1•<;
Yes
Onuhlv Site ChMMll'T"
lnd1v1dual/Con11nu11u ...
Nn
'i
Y{:'S
Yt>s
No
Y{:'S
yl!..,
o
di!rlining
No
CJ,•M/L k,•ysCleM kev
Clear Key funct1nnal
Yes
Yl.'"
Y(•-;
16 :\2 & 64 K Supported
Grel!n or Bli\rk Ri\rkqrnund
Nn
y""
No
Color
Oual Chi1rnrlo•r <;t>f'> for
Enhi\nced 64 i'lnd K'.1
No
Nn
Charncl('T'> per l11w display y,,.,,
Prntec!erl Screen Lull''>
Nn
No
1 '" 2:\
( rngrnmmilhlt>)
Fu\ Control Codi:' Kl! hoilrd
for Scwl'n control 1rectlv
Nn
Yes
No
from !hi! keyhoMd
Prngrammi\hll' Tilh CtMriKIPr
No
No
y".,
Spacing
No
yl''>
Full Scn_'l'll Rvv 1•r<..t• Function Yl'<;
Sw11rh lo & from ! l w Srf'lndard
I h hv :\2 Srrt•en fnr full
Nn
No
y"...
rompi\1i1h1li1v
Yl'S
No
On F.rror C.010 Function
No
y,..,
y,...
No
F.Kll'ndl'd R,1s1r Required
yl'...
y,....
All Mach1nl' I .ilngu.,�t' ProyrnmY{:''>
RAM Requ1rvd m add1!1on 1 1 1
2K
2K
2K
Screl!n RAM
't21) 'Vi
$24 IJ.r>
'f, J <) ( )'.1
Proqri'lm Pnn• (Tape)
������ U�
]
J;
VISA
1 •1
VISA. MASTERCARD AND C.O.D. ACCEPTED
'�
"
'"
"'
"
''
'"
""
"
'"'
"
r
il
Comp e
e
I
S
C
C
A
B
" Th
Now anyone can create fast efficient Machine Language Programs
Easily and Quickly without having to use an Editor/Assembler
CBASIC 1s a fully 1n1egra1ed. easy lo use BaSIC program Ed11or and Compiler package CBASIC 1s 99% syntax compatible
T H E FINISHED PRODUCT
wirh Disk Extended Color Basic programs. so mos1 BaSIC programs can be loaded and compiled by CBASIC wilh �nle
100"1 pure 6809 Machine Langu;,ge prr..>gTams which are wnnen directly lo disk m a
Smee CBASIC contams s1a1ements to support ALL of the I 0 dev1Ces (Disk Tape Screen & Pnnter). Hi-Res Graph1Cs.
or no rhanges required The compiler 1s an op1om1zmg two-pass m1eger BaSIC compiler that can convert programs v.mnen
m Disk Ex!ended Color Basic mto
LOADM compatible formal
The programs genera1ed by the comp1\er can be run as complete stand ak>ne programs A buih-m tinker/editOf will
automancally select one and only one copy of each subwutme 1ha1 is required from the m1emal run-nme tibrary and msert
them direc!ly m 1he program This ehmmales the 'leed for cumbersome. often was1eful separate "run·llme" packages
Sound. and Enhanced Screen displays. 11 rs weU suited for a wide range of programming applicanons It generates a
complele. Ready to Run machme language program The fm1shed prodoct or program does not have to be interfaced 10
a BaslC program 10 perform some of its funcnons or commands This may seem obv10us lo you. but some of 1he other
Color BaSIC compilers don·! necessanly work this way Some of their compiler commands need a separale BaSIC program
m order for 1hem to work In some cases. require rhat a separate BaslC program be mterfaced lo the compiled program
to perform 1/0 funcrions. like INPUT. PRINT and so on CBASIC doesn'1 do 1h1s ALL of its commands are compiled
CBASIC WAS DESIGNED FOR BOTH
m10 a smgle machine language program 1ha1 does nol require any kind of BasJC program to make 1t work
BEG INNING & ADVANCED USERS
COMPATIBILITY
CBASIC is a Powerful 1001 for the Begmner or Nov1ce programmer as well as the Advanced Basic or Machme Language
programmer The Begmner or Nov1ce programmer can wnte and compile programs w11hou1 having to worry about Stack
You may be wondermg aboul those statements we made earlier concerning 99 % or 99 9% syntax comparibility What
Pomters. DP registers. memory alkx:ation . and so on. because CBASIC will handle ii for you automalleally All 1hey have
does 1ha1 other I % consist of? The b1ggesl part of that I % has to do with stnng anays and vanables CBASIC does nol
.
use a "Sllmg Pool. like Color Basic !t us.es absolu1e memory addresses 10 locale stnng vanables and arrays This is why
10 do 1s wnte their programs usmg the standard Basic stdtements and syntax For the advanced Basic and Machine
CBASIC's strmg processing is so fast. 11 also eliminates 1he time consuming "Garbage Collect1on" problem. When CBASIC
Language programmers. CBASIC will let you lake command and conrrnl every aspect of your program. even generating
allocaies space for stnngs. 11 mus! know how much space lo us.e for each stnng When you Dimension a string variable
machme code directly m a program for specialized routines or funcllons
1n
CBASIC. you must 1ell 11 how much space you want to save for each element To Dimension an array of 40 strings.
CBASIC adds many features not found in Color Basic. like Interrupt. Res.et. and On Error handling II also has advanced
64 characters each. you would DIM OA${40.64) If a stnng is nol dimensioned. CBASIC will aulomatical!y alloca1e 32
programmmg features thal allow machme level conllol of 1he Slack and [)!reel Page reg1slers. variable allocat1on . <'\Ulomatic
bytes for ii JI you wan! a single string 10 have enough room for 200 characters you would DIM AX$(200) For stnng
64K RAM conllol. program ongm and even multiple ongins It can even have machme language code generated wilhin
arrays. you would st1ll access the element you want. the same as Color Basic. to get stnng #30 from 1he anay DA$. you
a program 1ha1 execu1es 1us1 like any other Basic program line
FULL COMMAND SU PPORT & SPEED
CBASIC features well over 1 00 BaSK Commands and Functions 1ha1 fully support Disk. Tape. Pnnter and Screen I/
0 It also supports ALL 1he High and Low Resolunon Graphics. Sound. Play and Stnng OperahOns available in Exlended
would shll use DA$(30). !he only real change 1s 1n the DIM statemenl For undeclared string anays of JO elements or
less. CBASIC Wiii automatically reserve space for 10 (0-9) srnngs of 32 characters In some olher Color Basic compilers.
you have 10 declare EVERY stnng variable used m !he progrm 1n a DIM s1a1emen1 And. lo creale an anay of 40 stnngs
w11h 64 characler'i each. you would have 10 DIM A0$(2560). a11d 1hen to access stnng #30, you woukl have to multiply
'.{()
x
64 and use a special vanable name formal or access 11 one character at a rime Not very compatible or convemem
to use. and d1fficull al best
Color BaSIC, and all w11h 99 9't syntax compa11bi�ty
CBASIC is FAST Not only will CBASIC compiled programs execute 10 to HXXJ times fasier 1han BaSIC. but lhe ime
l
CBASIC REQUIREMENTS
11 takes 10 develop a CBASIC program versus wnnng a machine language program is much. much shorter A machine
language program 1ha1 might rake several months to wnle and debug could be created us1119 CBASIC in a maner of days
or hours. even for a well experienced machine language programmer We had a report from a CBASIC user that cla1med
"a Basic program 1hat used 10 lake 3 hours 10 run. now runs 1n 7 lo R mmutes'" Anolher us.er reported a program 1ha1
CBASJC requires a m1n1mum of :l2K RAM and a1 least one Disk dnve We sllongly recommend 1ha1 you have 64K
CBASIC 1s compatible with all verS1ons of Color & Extended Basic and bo1h Disk BaSIC V J 0 and V I I
Programs
compiled on either syslem w1ll run on sys1ems with different ROMs CBASIC is NOT compatible with JOOS
took I 10 I V1 hours to run m Basic. now runs in 5 lo 6 mmutesm
MORE THAN JUST A COMPILER
CBASIC has 11s own completely mtegrated BaSIC Program Editor The Editor contamed 1n CBASIC is used to Crea1e
and/ru Ed11 programs for 1he compiler It is a full fea1ured ed11or wi1h fur.c11ons designed specifically for wntmg and ed!llng
Ba.sic programs It has bu1h in bkx:k Move and Copy func11ons with automahc program renumbenng Complete. easy lo
use 1nsert1ng. dele1mg. extendmg and overtyp1ng of ex1stmg program Imes It 1s also used for Loadmg. SaVlng. Appending
{merging}. Killing disk files and d1splaymg a Disk Otreclory II also has aulomahc lme number generat1on for use when
crealmg programs Qr msertmg s.equenoal hnes between e>us1mg lines You can set 1he pnnter baud rate and d1rec1 normal
t)r C(Jmp11ed hstmgs It) 1he prmler for hard rnpy The bu1h m editor makes program conect1ons and changes as easy as
"falling ()ff a 1og·· If CBASIC fmds an error when comp1bng. it poinls lo the place m !he program lme where the error
r.iccuned AH y<Ju have 10 do is tell the editor what hne you want 10 s1art editing and when 11 is displayed. move the
cursr>r with !he arrt)w keys tr> the place where 1he error is and correct 11 Jusl like 1ha1. !l's simple
HI-RES & 80 COLUMN DISPLAYS
CRASIC is 1he rmly Colnr Ras1c Compiler that includes ils qwn Hi· Resoluhon S l . 64 or 85 by 24 line display h 1s also
!he only compiler 1ha1 supports both the PBJ "Word Pak" and the Double Density KO column cards All of these display
l()fmats are part <>I 1he standard CBASIC compiler package Nor only can these display formats be used for normal
prti<Jram t>dlltng and compiling, bu! CBASIC will also include them in yr,ur compiled programs' If you wan1 CBASIC to
DOCUMENTATION
The Oocumen1a110n prow:fed with a n y program i s very 1mpor1an1 l o the user This i s especially flue when you talk
about a program as comple1e and complex as CBASJC Even though CBASIC was designed 10 be the most Us.er Fnendly
compiler on the markel. we went 10 great lengths 10 prov.de a manual tha1 1s not only easy 10 use and understand but
comprehensive and complete enough for even 1he most sophishcated us.er The manual included w11h CBASIC conStsts
(Jf approx1ma1ely 120 pages of real mf0fma11on. not hke some manuals 1ha1 pul 1ust one or rwo short paragraphs on a
page If we did 11 1ha1 way. we could have easily created a Three or four hundred page manual The manual mdex breaks
down each section of the manual and gives a ] or 4 word descnphon of each secllon and 11s 11ems along wtth page
numbers The manual has three s.echons. the Editor. Compiler and Appendix Each of 1hese is d1v1ded mto subsecrions.
w1th Sect1Qn and Subsection 111les pnn1ed al 1he lop of each page JI you want 10. you could fmd 1he inlormallon you are
X\'1.
lonkmg for by \imply fhppmg through the pages and scanning the Section hlles on 1he lop ol lhe pages The Manual 1tseff
is an
by 1 1 Spiral Bound book with durable leather textured covers Some of the reports we have had from CBASIC
user\ de<;cnbe rhe manual as bemg the Besl program manual 1hey have ever used
COMPARE THE DIFFERENCE
CBASIC is not 1u'il another Color RasK Compiler h 1s 1he only cnmplcle Ras1c Compiler System for the Color Computer
Comp�tl' CHASIC's featurl''i to what other compilers offer and you'll sel' 1he difference When compi'lring CBASIC 10
mclurle !hi:.' display dr1Vt>r 1n yrJUr program , all you have lei do is us.e a single CBASIC command "HIRES" The run hme
r1ther cnmpiler'i, you migh1 want 10 kl:!ep some of 1hese questions m mmd Does 11 suppor1 1/0 func11ons·� You can't wnte
the H1 Res<1lu11on display package you can mix 1ex1 & graphics. change characters per lme. underhne. character highlighl .
Can you use two characler vanable names for strmg & numenc vanables. like RaslC Does 11 support all 1he Hi-Res graph1Cs
display dnver 1ha1 CBASIC includes m y()ur program is n.,1 1ust a simple display. but a full fealured display package W11h
erase lri end of lml:.' r1r screen. hnme cursor. home & clear screen. prolecl screen Imes. �nd much more All commands
are cr1mpa11ble w11h our HJ RES ll Screen Commander so ynu can easily develop screen layouts usmg HI RES and Color
RaSIC before y<Ju compile your program The same applies lo usmg the 80 column card dnvers Whal other BaslC compiler
offers yrJU 1h1s kmd l'>f flex1b1b1y·J
64K RAM SUPPORT
CBASIC makes lull use of the pr>wer and fle111bihty of 1he 6KX] SAM !Synchronous Address Mul11plexer) m lhe Color
Ctimputer It will fully uhlue !he 96K of addre� space available m the Color Computer (b4K mstalledJ dunng program
Creal1<m. Ed11mg <'Ind Comp1la11on CBASIC has a special command for automatic MK RAM conllol When used m a
pmgram 11 alloW\ lhe user 1r1 use the upper ]2K of RAM space automaheally for vanables or even program storage al
run 11me h will automat1Cally switch the ROMs m and out when needed There are also two olher commands 1ha1 allow
y<Ju l<J cnnrrol 1he upper :i2K of RAM manually. under program conllol No o!her Color Basic compiler directly supports
much of a program without PRINT. INPUT and so on What about complex stnng slatemenls, or stnng stalemenls at alfJ
How �'il" of a pmg"m can you wnlel Can you comi>� a compk• smng hke MID$(RJGKT$(D/\${VAL[IN$1.LEN!LE$)).:l.:l)'
slall:!ments mcludmg PLAY. DRAW. GET and PUT. u51ng the same syn1ax as Basic1 Do you ever have 10 use � separa1e
RasK program·J Can you take cnmpleie Basic programs and compile 1hem w11hou1 extenS1ve changes·) Will they work'J
How do you edit a program when 11 has errors comp1hng·J
PRICE VERSUS PERFORMANCE
Thi! pncl:.' "' CBASIC 15 $ 1 49 ()() It tS 1he most expenS1ve Color BaSIC Compiler on 1he market. and well worth the
mw'itml:!nl We spent over 2 years wn11ng and refming CBASIC. 10 make II the Best. most Compallble Cokx BaSK
compiler available Mos! of our CBASIC users aleady bought one or more of !he olher compilers on the market and
hitvl:.' Since discarded lhem We even ITaded m a few of 1hem lf you wanl a cheap compiler. we'll sell you one of those
traded in. ell a yood pnce Before you buy a compiler. compare the performance of CBASIC againsl any Color BaSK
cnmp1ler Dnllar for Dnllar. CBASIC gives you more lhan any olher Color BaSK compiler available
1he use of 64K RAM hke CBASIC
ORDERING INFORMATION
ALL MACH INE LANGUAGE
CBASIC is completely wnnen m fas! eff1C1en1 Machine Language . nol BasJC. like some other Color Basic compilers
Because of this. CBASIC can ed11 and compile very large programs Even using the H1 Resolullon 5I by 24 hne display,
11 can wnrk w11h about a :i4K program . and the 80 column card verS1ons can handle almost 40K of program Some of
To order CBASJC by mail. send check or money order m lhe amount of $ 1 41J ():) plus $3 00 for shipping and hand�ng
10 the address lo lh"-' address listed below
To mfo by VISA. MASTERCARD o' COD. call us a1 17021 452 · 0b:l2 [Monday 1luu S.1u,day. Ham 10 5pm PSTI
the other Bas1C compilers can only work w11h 16K or aboul 2fX) Imes Even working with large programs. CBASIC
compiles programs with bghtrnng fas! speed II will compile a 24K program lo disk m less than 2 mmutes1 That's w1thou1
a bsring being generated We've heard slones abr>u1 some other compilers 1ha1 take almost 10 minutes 10 compile a simple
2 - :iK pr<igram y,,u might inquire abt1ul this when you look al some of the other compilers available
Tell them "I
saw
It in HOT Coco . "
A
CER-COMP
5566 Ricochet Ave.
Las Vegas, NV 891 1 0
(702) 452-0632
November 1 985
HOT CoCo
11
by Richard E. Esposito
Having technical dij]lculties? Let the Doctor solve them. Due to the vol­
ume of mail Doctor ASCII receives each month. we cannot guarantee that
your letter will be published. Please enclose a stamped. self-addressed
envelope with all letters for a reply. Send your questions to Doctor AS­
CII, clo HOT Coco, 80 Pine St., Peterborough, NH 03458.
Q
I have an older TEAC full-width drive I purchased from Dis­
• played Video with their controller and RS DOS 1 . 1 . I want to
add a Tandy drive 1 to my system . but I received no technical manual
with the unit. Does it have a terminating resistor? Do I need a new
cable? Should I remove the TEAC's terminating-resistor pack?­
Michel Grimard, Sherbrooke, Quebec
A. • 1 does not (Tandy puts a terminating resistor on drive 0-move
Since your TEAC has a terminating resistor and the Tandy drive
Q
In your July 1985 column. you presented a two-column screen
•directory program. I tried without success to send the two-col­
umn directory to my printer. Can you help?-M. Talutto, Floral
Park, NY
A . lines:
Delete lines 1 70-200. 220. 230. and 250. Then add the following
the resistor to the highest-numbered position when you add drives).
use the Tandy as drive 0 and the TEAC as drive 1. Remove teeth 1 2 .
14. and 3 2 from the drive connector closest t o the controller connector
on your cable. The teeth are numbered from bottom to top. with the
open slot facing you. as shown below:
33
31
29
27
25
23
21
19
17
15
13
11
9
7
5
3
1
170 IF N I THEN I I :GOlD 220
1 80 FOR I = I 1D N I STEP 2
1 90 PRINT# - 2.STRING$(10," " ) : I$(1).1$(I + I )
2 1 0 NEXT I
220 IF N = I THEN PRINT# - 2.STRING$(10." "): I$(!)
=
=
-
Q
In your article. "64K Modification Revisited" (Har CoCo. June
• 1 985. p. 40). you mentioned a piggyback upgrade. Tandy is now
selling sets of 200-ns 16K chips for $7.95 and 100-ns chips for $3.95
each. Can I use these?- Richard Davis, Yogkum, TX
A . 48127) selling 150-ns. 4 1 64-type 64K chips for 69 cents each,
With Microtek Inc. (2654 1 Baldwin Road. Dearborn Heights. Ml
why spend more for a 32K upgrade? Also. the piggyback upgrade is
not compatible with software that puts a high-resolution screen above
the 1 6K boundary. It made sense when 64K chips were selling for $50
each. but today I wouldn't do a piggyback upgrade even if I got the
chips for free.
Q
My Radio Shack catalog says that I can have up to four drives
• With my CoCo. Where do you hook them up? Do I need a new
cable. or is the reference to double-sided drives?- Timmy Lindner,
Patterson, CA
A . you need their four-drive cable with its missing teeth. If you go
You need a new cable in any case. If you stick with Tandy drives,
with double-sided drives. you can have a maximum of three using a
non -Tandy cable without missing teeth. Tandy extracts three of the
four teeth that connect to the disk controller's drive-select lines. allow­
ing you to move Tandy drives to d ifferent connectors on the cable and
still have the one closest to the controller as drive 0. Other manufac­
turers use j umpers inside the drives to determine a drive's number.
so you don't have to remove teeth from the cable. Double-sided drives
use the drive 3 select as a side select. making it impossible for Tandy's
cable with its three missing teeth to select both drive and a side.
12
HOT Coco
November 1 985
34
(32)
30
28
26
24
22
20
18
16
(14)
( 1 2)
10
8
6
4
2
- remove
- remove
- remove
You also need to move a jumper inside your TEAC to make it drive I . ·
Q
W h y i s i t re c o m m e n d e d t h a t y o u u s e t h e i n s t r u c t i o n
•A = RND( - TIMER) to seed the CoCo's random-number gener­
ator? I assumed that TIMER would give a different value each time I
ran the program, but typing PRINT( - TIMER) always returns a
zero. Jules LaFrance, Ottawa, Ontario
-
A • if you have Extended Color Basic. Otherwise. the CoCo treats it
TIMER gives the time since you turned on your CoCo. but only
as an ordinary variable. which has a value of zero by default. J ' ll ex­
plain how RND works. since the CoCo's manual does not do a good
job of it:
• If the argument of RND is positive. RND gives you a random integer
between one and that number.
• If the argument of RND is zero. RND gives a random decimal be­
tween zero and .999999999.
• If the argument of RND is negative. the argument is used to reseed
the random-number generator. hence the use of - TIMER.
Q
I want to learn Assembly-language programming. Can you rec­
• Ommend some good books and an inexpensive assembler? How
do you hand-assemble an Assembly-Language program?- Sb awn
Long, Hurdle Mille, NC
A . coco in the March 1 9S4 Har CoCo, p. 3S. The two most popular
I reviewed five Assembly-language programming books for the
assemblers for the CoCo are Tandy's EDTASM + ($39.95 ROM pack.
catalog no. 26-3250: $59.95 disk, catalog no. 26-3254) and The Micro
Works' (P.O. Box 1 1 1 0. Del Mar. CA 92014, 619-942-2400) SDSSOC
($S9.95 ROM pack) or Macro-SOC($99.95 disk). Bill Barden 's TRS-80
Color Computer Assembly-Language Programming (available from
Tandy) supports the former. and Don and Kurt Inman's Assembly­
Language Graphics for the TRS-80 Color Computer (published by Res­
ton) supports the latter. You can order technical information on the
CoCo's MC6S09 microprocessor from Motorola Semiconductors, 3501
Ed Bluestein Blvd . . Austin, TX 7S721. Ask for Advance Information
#ADl-S47. It contains data on the 6S09E's instruction set and other
technical information. I believe it is still free for the asking.
You can use Basic POKE statements or a monitor program such as
the one that appeared in Doctor ASCII. December 1 9S3. p. 1 29, to
hand-assemble machine-language programs. The problem with hand­
assembly is that it is the time-consuming job of translating the op­
codes and data into numerical inputs that you can enter into memory.
Q
A
Where can I get information on the CoCo's new video-display
. generator? - Allen Elmer, Fallbrook, CA
Write Motorola Semiconductors at the above address. Ask for
• advance information on the MC6S47-T 1 .
Q
How can I tell which PC board I have in my old gi:ey CoCo?­
• USN CDR Robert B. Pinell, San Diego, CA
A
After removing the CoCo's cover. with the keyboard facing you,
• look for a serial number below the ROM-pack port. It will end
with either a D. E. NC. or 2S5. If it is one of the first two. that letter is
the board type. If it is one of the latter two, your board is what Coco­
nuts have christened the F board .
Q
I recently purchased a 64K CoCo 2. but I get only 24.S7 l free
• bytes when I turn it on. Do I really need disk drives and OS-9 to
get 64K?- William C. Privett, Roseville, GA
A
Your Coco has 64K of RAM plus 1 6K of ROM for a total of SOK
. o f memory. The Coco can address a maximum of64K at a time.
When you turn on your CoCo. you have 32K of RAM, of which Basic
uses SK (6K for high-resolution screens and 2K for housekeeping).
With Extended Basic. your interpreter is in ROM and is addressed
from locations 3276S to 49 1 5 1 . Adding ROM packs or Disk Basic gives
you up to 32K of ROM. This RAM/ROM mode is called memory map
0. You can access the other 32K of RAM in one of two ways: You could
swap out the ROM for the other 32K of RAM for memory map 1. This
is what OS-9 does. but so do a lot of other software packages such as
Telewriter-64, which comes in a cassette version. Another way is to
have two lower banks of 32K. This is the way print spoolers are usu­
ally implemented on the CoCo. With two lower banks. you get maxi­
mum memory use of your CoCo. Some programs using this method
have 55K buffers.
Q
I want to put machine-language programs into high memory at
. location 44560. In "Printer Answers" (HOT Coco. March 19S5,
p. 24). you said. "Those of you with 64K can enable memory map 1
and offset load into high memory." but you didn't say how.-Albert
M. Huntley, Windsor, VT
A•
You need the program 64K Enable (Har CoCo. June 19S5. p. 45).
Q
The Tandy manuals show how to use the cassette to form files
• for storing data. but they create files that are only 12 lines long.
What do I do if I have more than 12 lines of data. and h0w can I scroll
through it?-M.S. Casey, Sr., Casper, WY
A • Word processor that generates ASCII files. There are many good
You need an editor program . Better than an editor program is a
ones for the CoCo, including Telewriter-64. VIP Writer. and Elite-Word:
Q
I have Tandy's Micropainter ROM pack. On my new CoCo. it
• produces green in color set 3 instead of blue. I finally swapped
display chip AN4S33 l for chip number AN4S324. I now have blue
skies. Dennis Sledge, Ty Ty, GA
A•
Q
-
Thanks. Perhaps this will help someone else.
Can you recommend a book on high-resolution moving anima­
• tion?- WiJJiam L. Warren, FPO, New York, NY
Try Don and Kurt Inman's Assembly-Language Graphics for the
A . TRS-80 Color Computer. published by Reston. You might also be
interested in the series of articles from Har CoCo called "Anatomy of
an Assembly-Language Game" (June through November 19S4). by
Mike Meehan . •
November 1 985
HOT Coco
13
Mmdbusters
�------�
by Richard Ramella
The Wild Blue Yonder
I
f you were handed a sheet of paper con­
taining your name and 999 others. you
would probably be able to spot your own
name so quickly you'd think it happened by
chance. But it doesn 't.
The human brain has the ability to quickly
focus on those things that are most impor­
tant. And your name is one of the most im­
portant things you possess.
In a world of sensory overkill. this brain
capability is especially usefu l . Executives
scan mounds o f memos, almost subcon­
sciously discarding the chaff. Parents sleep
soundly in an apartment next to a noisy in­
terstate route but awaken if their baby whim­
pers in the next room. A loved one's features
can be picked out of a crowd of hundreds a
h u n dred yards d istan t . We tend to skim
newspapers and flip the dials of radios and
TVs. stopping only where our emotions and
intellect direct.
I tested this idea by offenng a child a bowl
filled with a mix of peanuts and light choco­
late candies of about the same size. color. and
shape as the peanuts. As I watched. her eyes
narrowed and flitted over the surface of the
bowl's contents. Then they widened and she
reached out and plucked up the chocolates
without disturbing a single peanut.
We have learned not only to focus but also
to ignore, a two-edged ability that helps us
solve problems. Answers are deJived from
patterns that are part of the puzzle-patterns
that are extracted from chaos.
Up and Away
Before I tell you about this month's puzzle
and contest. it is time to announce the win­
ner of Puzzle Contest 11-Consarnation. The
winner is Rich Harder of Northlake. IL. His
answer stJing. one of several that yield the
highest possible score of 82 points. is:
EEEESSSSSS N NEEEESSEENNWWSS
WWNNEENNWWNNWWEESSSSWWWW.
He will receive a free, one-year subscription
to HOT CoCo. Congratulations. Rich.
The puzzle-busting abilities of Mindbus14
HOT Coco
November 1 985
ters readers are enough to keep a poor puzzle
creator up nights trying to build a better
mousetrap. Some 38 entrants had the cor­
rect answer to Consarnation. But I can guar­
antee that there w o n ' t be so many right
answers to future Mindbusters puzzle con­
tests. And you're nght if you read that as a
challenge.
The Program Listing this month is called
Wild Blue Yonder. It is a Basic listing that will
run on all Color Computers. For the MC- 10.
change the P
1 024 in line 1 20 to read
P
1 6384. The introdu ctory comme n ts
above might help you solve Wild Blue Yon­
der. But if you are not able to solve the puz­
zle. the answer will be pJinted in a future
issue. And for those of you with bright ideas.
good luck trying to solve it with a simple au­
tomatic-play algorithm-theoretically . the
first 10 moves have more than a billion com­
binations.
When you run Wild Blue Yonder. you will
see part of a large oblong group of single-digit
numbers between one and nine on a field of
blue. As the puzzle is first drawn. only the
upper half of the number field is visible. You
move up and down the oblong by tapping the
up- and down-arrow keys. As the puzzle be­
gins. the flashing orange cursor is on a num­
ber 3 at the center of the oblong.
You can move the cursor in any of eight
compass directions by tapping the following
two-character commands: NN for north. SS
for sou t h . E E for west. WW for west . NE
northeast. SE for southeast. NW for north­
west. and SW for southwest. The number on
the space that the cursor is resting deter­
mines how many spaces the cursor will move
in the direction you choose. The first direc­
tion you select in Wild Blue Yonder will al­
ways move the cursor three spaces.
The object of the puzzle is to find your way
yonder-to the blue area of the screen sur­
rounding the oblong. However. don't go too
far. A winning position is any blue space
touching the peJimeter of the oblong field of
numbers. I f you direct the cursor more than
one space outside the oblong. you ' l l have
placed it in limbo. You cannot move from a
=
=
position that is not within the field of num­
bers. and your only recourse is to restart the
puzzle. There is one other important rule:
The line of travel to reach a winning position
cannot fall over any of the blue area.
The program purposely allows the possi­
bility of game-ending Basic error messages.
Keep in mind that the number position to
which you will move the cursor in making a
direction selection must be visible on the
screen. A move that takes the cursor "off the
screen" will produce an FC (illegal-function
call) error.
When you make 6 1 moves without finding
your way out. the program ends with an OS
(out of st!ing) error. This is also purposeful.
for the solution takes fewer than 6 1 moves.
Once you have solved Wild Blue Yonder or
completed an attempt. you can display a list
of the moves you made by typing "PRINT
SC$" and pressing the enter key. One last
note: Be sure to tum up the sound on your
TV or monitor: random tones will sound if
you beat the puzzle. Ladies and gentle­
men . . . fry your brains!
Puzzle Contest VII
This month's puzzle contest involves the
solution to Wild Blue Yonder. When and if
you solve it. type "PRINT SC$" to see the
move string. Using some or all letters in the
stJing. spell the longest English word you
can. The winning move stJing and the word
you form will constitute your entry. The win­
ner will receive a one-year subscription or ex­
tension to HOT CoCo. Next month : Uncle
Arnold's coin gam e . •
Eds. note-To enter Puzzle Contest VII. send
your name. address. move string. and the word
you spelled to Richard Ramella. 1 493 Mt. View
Ave .. Chico. CA 95926. The winner will be the
entrant who offers the correct move string and
the longest English word spelled with its letters.
ln case ofa tie. the winner will be selected at ran­
dom from the tying entrants. Entries must be
postmarked by November 30. 1 985.
Program Listing. Wild Blue Yonder
7"
3 20 A$ ( 1 3 ) = " 2 5 2 2 6 1 2 4 4 6 3 4 1 2 1 2 6 5 1 8
8"
3 3 0 A$ ( 1 4 ) =Bl $ + " 4 3 7 5 1 9 3 4 4 5 2 9 4 1 9 5
7 4 8 " +B 1 $
340 A$ ( 1 5 ) =B l $ + " 4 1 6 7 8 3 4 3 4 1 3 1 2 3 2 3
6 2 4 " +8 1 $
3 5 0 A$ ( 1 6 ) =B l $ + " 7 3 2 6 1 5 3 9 2 3 2 1 5 7 5 8
9 5 4 " + 13 1 $
3 6 0 A$ ( 1 7 ) = B 2 $ + " 1 6 7 3 4 8 1 2 1 2 1 2 2 8 9 4
1 " +82$
3 7 0 A$ ( 18 ) =S2$+ " 2 5 4 7 8 7 5 6 1 3 5 7 8 7 2 9
3 " +B 2 $
380 A$ ( 1 9 ) =B3$+ " 6 5 6 4 6 7 2 5 226 3 4 7 4 "
+B3$
390 A$ ( 20 ) =B4 $ + " 2 3 1 2 3 3 3 2 1 3 2 1 1 " +B
4$
400 A $ ( 2 1 ) =B6 $ + " 7 4 4 5 7 3 4 4 7 " +B 6 $
4 1 0 A$ ( 2 2 ) = B 9 $ + " 3 3 4 " +B 9 $ : A $ ( 2 3 )
= 8 $ : A$ ( 2 4 ) =B $
4 2 0 H = 3 9 8 : Y = B : GOSUB 6 6 0
4 3 0 X $ = I NK E Y $
440 H l = P E EK ( P+ H ) : POKE P+ H , 2 5 5 :
GOSUB 6 7 0 : P O K E P + H , H l : GOSUB 6 7
B
4 5 0 I F P F > 3 4 9 A N D P F < 3 5 7 T H E N PO
KE P + H , 2 5 5 : S O U N D 1 0 0 + R N D ( 5 0 ) , l :
GOTO 4 5 0
4 6 0 I F X$= " " THEN 4 3 0
4 7 0 I F X $ = D $ AND Y > B T H E N Y =Y - 1 :
H=H+32
4 8 0 I F X $ = U $ AND Y < 9 T H E N Y = Y + l :
H=H-32
4 9 0 I F X $ = D $ O R X $ = U $ T H E N GOSUB
660
5 0 0 I F X $ = " N " OR X $ = " S " OR X $ = " W
1 0 0 R E M * W I L D B L U E YON D E R * C O L
O R BAS I C
1 1 0 C L S 3 : P R I NT @ 2 3 2 , " W I L D B L U
E YONDER " ;
1 2 0 C L E A R 8 00 : P = l 0 2 4 : D I M A $ ( 2 4
) , J ( 3 ) : F O R A = l TO 2 1 : B $ = B $ + C H R
$ ( 17 5 )
1 3� I F A = l T H E N B 1 $ = B $
1 4 0 IF A=2 THEN B2$=B$
1 5 0 I F A = 3 T H E N B 3 $ =B $
1 6 0 I F A=4 THEN B4 $=B$
1 70 I F A=5 THEN B 5 $=B$
1 8 0 I F A=6 THEN B 6 $ =B$
1 9 0 I F A=9 T H E N B 9 $ =B $
2 0 0 NEXT : CLS3 : U $ =CHR$ ( 9 4 ) : D$=
CHR$ ( 10 )
2 1 0 A$ ( 0 ) =B$ : A$ ( 1 ) =B$ : A$ ( 2 ) =B9
$ + " 4 7 7 " +B 9 $
2 2 0 A $ ( 3 ) = B 6 $ + " 5 4 4 8 3 3 4 6 3 " +B 6 $
2 3 0 A$ ( 4 ) =B 4 $ + " 1 4 5 1 1 1 4 5 1 7 1 3 5 " +B4
$
2 4 0 A$ ( 0 ) = B $ : A $ ( l ) = B $ : A $ ( 5 ) = B 3
$ + " 4 9 4 9 6 7 5 5 5 8 7 6 6 8 5 " +B 3 $
250 A$ ( 6 ) =B2 $ + " 37 29 8 3 5 6 7 3 9 1 8 7 5 8 5
" +B 2 $
2 6 0 A$ ( 7 ) =B2 $ + " 1 4 7 8 4 2 9 2 7 1 18 2 2 7 6 3
" +82$
270 A$ ( 8 ) =B l $ + " 7 2 1 8 5 5 3 1 1 3 1 3 3 4 2 8 6
1 3 " +8 1 $
2 8 0 A$ ( 9 ) =B l $ + " 4 2 6 7 2 5 2 4 2 2 5 4 3 2 8 1 7
7 3 " +8 1 $
2 9 0 A$ ( 10 ) = B l $+ " 4 1 6 5 1 1 1 9 1 4 3 4 4 3 1 9
8 2 7 " +B l $
300 A $ ( 1 1 ) = " 4 3 5 2 3 2 2 3 2 4 2 5 3 5 1 1 3 5 5 3
7"
3 1 0 A$ ( 1 2 ) = " 2 7 1 5 1 1 3 1 5 3 3 2 4 2 3 7 7 5 42
DDDDD
DDDDD
•••o•
DODOO
DDDDD
PERRll
�[]DITJ[p[]1][][JJ 0 ------- Circle Reader Service card
------....
COMPUTERS
CO MPUTERS
26-31 36 1 6 K Extended Color Computer 2
. .$
26-3 1 27 64K Extended Color Computer 2
26-3 1 29 Disk Drive 0 for Color Compute r .
26-31 30 Disk Drive 1 for Drive 0 . . . . . . . . . . . . . .
26-1 276 D M P- 1 05 80 cps Dot Matrix
Telewriter 64 Tape . . . . . . . . . . . . . . . . . . . . . . . . • .
Telewriter 64 Disk
.................
V I P Writer
. . . . . . . . . . . . . . . . . . . . . • . . . . . . • . .
LIST
PRICE
1 1 9.95
2 1 9.95
349.95
1 99.95
1 99.95
49.95
59.95
69.95
OUR
PRICE
$
1 02.00
1 75.00
290.00
1 69.00
1 69.00
42.00
49.00
59.00
26-1070
25-1 000
25-3000
26-5 1 03
26-5 1 04
26-3860
26-1 208
26-1 209
Model 4 D Desktop 64K . .
. . . .$
Tandy 1 000 1 Dr. 1 28 K . . . . . . . . . . . .
Tandy 1 200 10 Meg H . D . 256 K .
Tandy 2000 2 Dr. 256K
Tandy 2000 1 Dr. 10 Meg H . D . 256K . .
Tandy Portable 200 24K .
CCR 81 Tape Recorder
CCR 82 Tape Recorder
LIST
PRICE
1 1 99.00
999.00
1 999.00
2499.00
3950.00
999.00
59.95
49.95
$
LIST
PRICE
. . . . . . . . . . . .
.$
.
• .
59.95
49.95
1 49.95
$
. . • . . . . • . • . . . . .
.
. . . . . .
.
.
.
.
2 1 .00
OUR
PRICE
49.00
45.00
1 39.00
1 5% 0ff
CALL
1 4.00
Epson LX-80 Printer ( F riction Feed)
Epson LX-80 Tractor Feed . .
O K I DATA 1 82 Printe r . · · · · · · · · · · · ·
STAR SG-10 Printer . . . . . . . . .
C. ITOH 7500 Prowriter Printer .
Bolek Serial to Parallel Interface . .
Comrex 1 2" Green Monitor
. . . . .$
Comrex 1 2" Amber Monitor .
Comrex 1 3" Color Monitor . . .
Amdex 300A Monitor . . . . . . . . . . . . . . . . . . . . . . . .
Tek n i ka RG B/Composite Color Monitor . .
V I D EO Plus Monitor Adaptor .
LIST
PRICE
1 1 9.00
1 29.95
329.95
1 99.95
399.00
$
OUR
PRICE
. . . . .$
LIST
PRICE
299.00
49.95
299.00
299.00
289.00
59.00
· · · · · · · · ·
26-30 1 8 Extended Basic K i t .
26-30 1 7 64K Memory Kit . . . . . . . . . . . . .
26-3008 Joysticks (PAIR) .
26-30 1 2 Deluxe Joystick (EACH) .
26-1 1 78 DCM-3 Direct Connect Modem .
Anchor-Signalman Modem 300/1 200 Baud
95.00
1 1 0 .00
285.00
1 55.00
299.00
32.00
c
OUR
PRICE
$
.$
LIST
PRICE
39.95
69.95
1 9.95
29.95
59.95
399.00
250.00
40.00
245.00
250.00
225.00
49.00
OUR
PRICE
$
a ($10 a{g
on
o tunher
onlormat1on )
Visa ado
aoo 3"it.
N mDer Detore re!urnmg e iv ry sub1eCT
PERRY COMPUTERS • 1 24 SOUTH MAIN STREET • PERRY, Ml
All prices ana o1fers may oe cnangeo or w•tnOrawn w11hout n'l1•ce Aclvemseo prices are cash proces C 0 D a cep1e
•elurned
ill oe sub1ec! 10 1 0'% restockmg tee DeleC!•ve items reQulfe 1e!urn merchaneltse authoriiauon Call tor R M A u
saw
995.00
775.00
1 525.00
1 225.00
1 885.00
725.00
50.00
42.00
ACCESSOR I E S
M O N I TORS
w
OUR
PRICE
PR I NTERS
SOFTWARE
V I P Database . .
. . . . . . . • . .
V I P Terminal Disk . . . . . . . . . . . . .
V I P Integrated L i b rary . . . . . . . . .
R A D I O SHACK Software .
Tom Mix Software . . . . . . . . . . . . .
Com rex SS/DD 1 0 Pack Disks .
# 1 24
CALL (51 7) 625-41 61
CALL TOLL FREE 1 -800-248-3823
COLOR COM PUTE R S
Tell them "I
" O R X $ = " E " THEN C$=C$+X$
5 1 0 P K = VA L ( C H R $ ( H l - 6 4 ) ) : P R I NT @
9 3 , C $ ; : I F L EN ( C $ ) < 2 T H E N 4 3 0
5 2 0 I F C $ < > " NN " A N D C $ < > " S S " AND
C $ < > " WW " AND C $ < > " E E " AND C $ < > "
N W " A N D C $ < > " S E " AND C $ < > " S W " AN
D C$ < > " NE " THEN 6 8 0
5 3 0 I F C $ = " NN " T H E N H = H - ( P K * 3 2 )
5 4 0 I F C $ = " S S " T H EN H=H+ ( PK * 3 2 )
5 5 0 I F C $ = " WW " T H E N H = H - P K
5 6 0 IF C $ = " E E " THEN H=H+PK
570 IF C $ = " N E " THEN H=H+PK- ( PK * 3
2)
5 8 0 I F C $ = " NW " T H E N H = H - P K - ( P K * 3
2)
5 9 0 I F C $ = " SW " T H E N H = H - P K + ( P K * 3
2)
600 I F C $ = " S E " THEN H=H+PK+ ( PK * 3
2)
6 1 0 I F P E E K ( P+ H ) < > 1 7 5 THEN 6 8 0
6 2 0 SC$=SC$ +C$
6 3 0 J ( 0 ) =P E EK ( P + H - 3 2 ) : J ( l ) = PEEK
( P+H+3 2 ) : J ( 2 ) =PEEK ( P+H-l ) : J ( 3 )
= P E E K ( P+ H + l )
6 4 0 P F = B : F O R T = B TO 3 : I F J ( T ) >
1 1 2 AND J ( T ) < l 2 2 THEN J ( T ) =J ( T ) - ·
113
6 5 0 P F = P F + J ( T ) : N E X T : GOSUB 6 8 0 :
GOTO 4 3 0
6 6 0 G=Y : F O R X = 4 T O 4 8 4 STEP 3 2 :
P R I NT @ X , A $ ( G ) ; : G=G + l : N E XT :
RETURN
6 7 0 F O R T = l TO 2 0 : N E X T : R E T U R N
6 8 0 C $ = " " : P R I NT @ 9 3 , B 3 $ ; : GOTO
430
6 9 0 R E M * E N D O F L I ST I NG
it i n HOT coco."
00 cri
e per canon
D l
e
C 0 0 Call t r
1S
C00
IO p1oouct avc11la01h!y
MC
2'. Alt
November 1 985
37.00
59.00
1 6.95
25.00
50.00
275.00
All non-oe!ectove •terns
48872
HOT CoCo
15
N EW
New Low P r i c e '
DISK
DRIVES
40T•s 6 M s
40 or 80 Trac k s
8 9 .95
STA R T I NG AT
$
1 /2 H gh t Teac; Panason ic
TAN DO N
M PI
T E AC
Speed 6 ms tk to t k and up
WITH CASE &
Capaci t y 250 k u n formatted
POWER SUPPLY
Tracks 40
$12995
Warra nty
now 1
YEAR
We carry on l y t he f i nest q u a l i ty d i s k d r i v e s • no second s · no surplus
SATISFACTION GUARANTEED!!
ALL DR IVES
F U L LY T E ST E D & WA R R A NTE E D
Complet� D i s k D r i v e w i t h Power Supply & Case . . . . . . . . H!l� . . . . . . $129 95
.
.
Two D r i ves in Dual Case & Power Supply . . . . . . . . . . . . . . . . . T�� 1=
.
1 /2 ht
double sided double dens ity D i s k D r i v e s
1 /2 ht
double s i ded double density D i sk Drive
,
( Panasa ;
w i t h ps & ca
$44.95
Dual
1 /2
ht p s & case
Color Co mputer Control ler ( J &M )
QRIVE 0 FOR
RADIO
S HACK COLOR
.
..
•
$ 5 4.95
j..2.+9:95
. . . • •
·
� �;
ow to use your new d r ive system on aud io cassette
S i ngle ps & case
.
�ea c: )
�: . • • •�
D u a l ps& case . . .
COMPUTER
POWER SUPPLY and CASE, TWO DRI VE CABLE WITH ALL GOLD CONNECTORS
J & M CONTROLLER, MANUAL and DOCUMENTATION
, . , , . $�49:95° . , . , . .
...+"'� .,,PRIVE 0 FOR RADIO SHACK COLOR COMPUTER
�°""' 0� ""'", PANASONIC 1/2 H E IGHT DOU B L E S I DED DOUBLE D E N SI T Y D R I V E SOOK unformatted
� 0.,_""
• • , , • • • • • • • • , , • •
POWER SUPPLY and CASE, 2 DR I V E CABLE WITH A L L GOLD CONNECTORS
J & M CONTROLLER. MANUAL and DOCUMENTAT ION , . , , • • • • , , • •
,
. ,
TAK E A DD E D SAV I NG S ON TWO DR I V E SYST E M S
ff
�
\\
su�eS ALE I
•
DISKETTES w ith f ree l i brary case . . . . . . . . . . . . . .
U n ad vertised Specia l s . . . . . . . . . . . . . . . . . . . . . . . . . .
. .�.�. ��:".°: '."'.': $ 1 7 95
Drives c leaned, a l igned & tested . . . . . . . . . . .
. . . . . . . . . . . . . . $29.95
m :�l�=d�r�t.:�. :.��O LJ
. . . . . . . . . . . . . . $Ca l l
TECH N I CAL STA F F ON D U TY. PL E A S E C A L L FOR A SS I STANC E .
CALL us TODAY !!
ORDER TO LL F REE
(61 7 ) 234-7047
1 -800 - 635-0300
Linw ood, Massachusetts 01525
(6 1 7) 234-7047
H OU R S MON - S A T 9 - 6 ( EST)
16
Ca l l
$ SALE I.
, , , . , , �7� , . , , , , . , ,
10 0 i s k e t t e s
CALL
$129.95
TANDON, M P ! OR TEAC DR IVE ( S INGLE S I DED 40 TRACKS S PE E D 5 M S T R K TO TRK & UP)
<,..'>-<.
� $111.95
cALL
HOT CoCo
November 1 985
* D EALER I NQ U I R I E S I NVITED.
C TS
(617) 234-7047
We we l come
• V isa / M aster C h a rge
I ....... l ffi]
• Checks ( a l l ow 2 weeks for c l ea r i n g J
• C.O.D.
A d d $ 2 .0 0
Circle Reader Service card
#93
�#
New Hard Drives
QUALITY
VIDEO MONITORS
----------- COMPLETE SYSTEM ----------- J UST PLUG I N ···········
Call For
BE ST PR I C E
$ 79. 95
Starti ng at
MONOCHROME
COLOP. MONITORS
•
, #'
Warranty - One Full Year
�
i
·
·
·
·
.
or r e v e r s e
T YP E
•
Underlining
Backspacing Doublestnke
5, 6, 8 1/2, 1 0, 12 and 17 Polch
w/r e g u l a r
for
opt i o n
o r double
t h e E pson
of
s i zed
p i ct u r e s
s1 99s
Color Computer
300- 1 9,200 BAUD rates
• External to printer - No AC Plugs
Built in modem/ printer switch-no need for
Y-cables or plugging / u nplugging cables
$CALL
, ,
$CAL L
$CALL
1.e t t e r q u a l i t y
COMPLETE SYSTEM
' ��
'-'osc�
��
�
SG - 1 0
TRUE DA TA PR O D UC TS
1 95
& Gem i n i
s t anda r d image s
O n ly:
Programmable L i n e Spacing
SIX (6) MONTH WARRANTY
program
Have t h e
SP-3 INTERFACE for
•
Super Scrip1-Subscnp1
GEMINI 1 0X (9 I nc h Carriage. 1 20cps) F r i c t ion and Tractor
GEMINI 1 5X ( 1 5 I n c h Carriage , "1 2ocps) F ri c t i o n and T r a c t o r
DEL TA 10 ( 1 0 I n c h Carriage. 1 60cps) F r i c t i o n and Tractor
P OW E R
.�••
VIDEO MONITOR INSTE AD OF A TELEVISION!
p r i nte r s e ver ! !
PRINTER CABLES AND
I NT E R F A C E S AVAILABLE
C•ll lo• '"'�"' p ri o;•g
·
•
ENABLES YOUR COCO TO OPERATE WITH A
The b e s t s c r e e n d u m p
PR I NTERS
1 00 - 120 - 1 60 CPS
• Bidirectional Logic Seeking
•
Friction and Tractor
• 9X9 Do Malrix
•
True Oecenders
•
High Res-Bil Image Block Graphocs
•
'
SC R E E N DU M P P ROGR A M
64K U PG RA D ES
!lilc©ll ~
.
V I DEO D R I V E R
5 to 20 Megabyte , ready to run on the TRS
80 Model I / I l l / I V /4P , color compu ter ,
IL
_,-
Linwood StrMt, P.O. Box
Linwood, Massachusetts
546
01525
�
..,,,..
Tell them "I saw it in HOT Coco . "
screen
dump
Nothing more to buy .'
Dealer i nq uiries i nv i ted
CALL US TODAY !!
� � ORDER TO LL F REE
\
now
with
(61 7 ) 2 34-7047
1 -800 -635-0300
November 1 985
HOT Coco
17
The Computer Room
by Scott L. Norman
D
Catchi ng U p with
Appropriate Tech nology
uring the energy crisis o f the 'seven·
ties. we heard a lot about using "appro­
priate technology." which meant that you
should use no more than the m i n i m u m
amount o f sensible technological leverage to
perform a given task. so as to consume the
fewest resources and do the least damage to
the environment.
Perhaps we should extend the same think­
ing into the area of personal software. Have
you ever shown off your CoCo. only to be
asked. "But what do you use it for?" That's
often a tough one to answer. It's easy enough
to computerize a store or office. but much
more difficult to pin down the proper role for
applications software in the home.
Record keeping and fact finding seem like
natural applications: There are always a mil­
lion things to keep track of around the house.
For this. I find smaller. specialized software
packages to be of more use to the less tech­
nically minded members of the household
than are powerfu l . general-pu rpose pro­
grams that require more computing exper­
tise. More important than software that offers
raw computing power are such factors as ac­
ceptance of user input in a variety of formats.
the ability to retrieve information based on
partial or imperfect matches to a request
and extensive error trapping: user friendli­
ness. in other words.
For Ded icated Shoppers Only
If you do much grocery shopping. espe­
cially for a large family. a data-file manager
that keeps track of your grocery coupons
could be a significant aid to your budget.
Kolourdex for Kou pons is a product of the
Kensoft cor.:ipany (2102 50th St . . Kenosha.
WI 53140). The program requires 32K and
comes on tape for $24.95 or disk for $28.95.
(You can also buy a tape-to-disk upgrade for
$7.50.) It can tell you if you have a coupon
for a specific product. list all your coupons
that apply to a particular ty pe of item. and
display all the coupons that expire on or be­
fore a specified date or that are worth more
than a specified amount. The tape version
can keep track of 400 coupons. while the disk
edition can handle 720.
Programs like Kolourdex have a place in
certain homes. and I ' m going to use it to il­
lustrate some good and bad practices found
in home software . This isn't meant to be an
exercise in picking on the product: it's by no
means the worst offender I've ever come
across. Kolourdex does. however. contain
18
HOT Coco
-
----
November 1 985
features that exemplify some of my thoughts
about using the appropriate technology to
computerize everyday activities.
The nonprotected Kolourdex disk contains
three Basic files: KDXKPNSD. the main pro­
gram : KDXKPNDL. which reorganizes data:
and KDXKPININ. which initializes a new file
when you first run the system . The single
data file on a given disk is always assigned
the default name KPNS. This file. and some
necessary indices. are created as you work
with the program.
But why such confusing file names? I pre­
fer something easier to remember. A quick
fix to this problem is to add a couple of one­
line "shells" to your program disk to call the
real program. For example. you might store
the one liner. 10 RUN "KPXKPNSD". under
the name COUPONS/BAS. so that your Ko­
lourdex command line would be the easily
recalled RUN "COUPONS". I use such calling
routines with a lot of my favorite applications
software and fre quently include a POKE
statement in the startup routines to establish
9,600-baud communication with my printer.
as well.
You could simply rename the main pro­
gram and be done with it. but I prefer to use a
separate routine whenever I think portions of
a commercial program might call each other
by their original names. I wouldn't want to
rename the main Kolourdex file and then find
that part of the code contained an explicit ref­
erence to the original name. KDXKPNSD.
Once underway. Kolourdex lets you add
coupons to a file. examine records selected
according to several criteria. and change or
delete records: in other words. it's a well-be­
haved little data manager. A coupon record
consists of just a few items: the description
(the specific name of the product). the cou­
pon value. the expiration date. and the prod­
uct type. The latter is a number from I to 12
and is used for selecting subsets of a data file.
Normally. you use the codes that Kolourdex
assigns: number 1 for baby food. cereal. and
other breakfast foods: 2 for dairy products.
margarine. diet products. and oils: and so on.
You can assign your own meanings to these
codes as long as you use them consistently
within a given file. but I can't find a reason
to make such changes. The originals seem to
cover everything on a typical shopping list.
You enter data for each coupon in response
to video prompts. Kolourdex accepts coupon
value data in several formats. For example. if
you have a 25-cent coupon. you can answer
the amount prompt with $0.25. 0.25. or .25.
That's the way a consumer-oriented program
should behave. On the other hand. coupon
descriptions cannot exceed 1 9 characters.
That's not enough. especially when you in­
clude the manufacturer. which is necessary
information.
If you've got the patience. you could go into
Kolourdex and change the 1 9-character limit
by altering all references to the length of the
description field and the total space set aside
for each record. However. lengthening the in­
dividual records means reducing the capac­
ity of your file.
Kolourdex can deal with multiple identical
entries-a good feature that lets you keep
track of several copies of the same coupon.
However. the program's ability to search for
a particular entry is somewhat limited. Any
target string you enter must match the first
part of the coupon description. If you have an
entry entitled ABC Com Flakes. you'll never
find the coupon listing unless you specify a
string beginning with ABC as your search
target. (Actually, just specifying A is accept­
able. but you'll generate a lot of false "hits.")
This method works fine if you adhere to a
fixed format when you enter your coupon
data. I prefer a more forgiving type of search
for a consumer product-one that reports a hit
whenever the target matched any substring
of the description. For example. at one time I
might be interested in a coupon specifically
for ABC Com Flakes, while at another I might
want a coupon for any old com flakes.
Kolourdex should also include a print rou­
tine. just in case you don ' t have your coupon
files right in front of you as you run the pro­
gram. or so you can pick items of interest as
you type your shopping list. Kolourdex au­
thor Glenn Janes suggests that the Delete
Koupons (sic) routine might be a good place
to insert a couple of PRINT# - 2 statements
to provide printout capability.
Kolourdex is inexpensive and includes
enough file-handling code to form the basis
of a useful piece of home software. It does
need a couple of modifications. though. Let
me know if patches of the sort I've outlined
are of interest to you: perhaps we can return
to the program and do some polishing up. I'd
also like to have your thoughts about the
practicality o f household software. user
friendliness. and related matters . •
Scott Norman is the manager of solid-state
science at GTE Laboratories in Waltham. MA.
Write to him at 8 Doris Road. Framingham.
MA 01701.
Circle Reader Service card
CoCo's Best
&
#506
Fastest Spreadsheet System
ACCLAIMED BY THE EXPERTS
"DYNACALC is my choice for a Coco spreadsheet."
Dan Downard, RAINBOW, September, 1984.
"Eat your heart out, Lotus 1-2-3!"
Scott Norman, HOT Coco, October, 1984.
B u i lt-i n Featu res:
•
51 x 24 Display with Lower Case
•
Auto- Repeat Keyboard D r iver
•
Disk Operati n g System (works j ust l i ke ROM DOS)
•
•
•
•
S u m m ation , M e a n , and Standard Deviation Functions
•
Str i n g locate command to navigate l arge worksheets
•
G raph ics Drivers for all pop ular P r i nters
I
_
.lar1
F u l l G ra p h ics caption i n g and ove rlay faci l ity
Joystick/Mouse D river for C u rsor Movement
•
Works with any ROM versions, even J OOS
•
U p to 256 Col u m n s or 256 Rows
33k Available Worksheet Space
Can use VisiCalc worksheets & trai n i n g m aterials
("'_\Ve_'-/_
•
__
Sort f u l l or partial worksheet by col u m ns or rows
•
•
kl
Log ical F u n ctions with String & N u meric Com parison
Line, Bar, H i/Lo/Close, C i rcle G raphs
•
'"
Fast 1 6- D i g it Arith met i c with Scientific Functions
•
•
!-
,,(I
F�b Mar
_
_
O n -screen H e l p Messages
n OW Wit h
FOR
_
_
_
G RAPH l csl
·
APr ha·1
J1;n .lr.1 l
�1; � �'?,. �c t Ho•.1
•
!1�(
•
CANADA-CON $1 29.95
DATAMAN INTERNATIO NAL
420 FERGU SON AVE . N .
HAM I LTON , ONT. L8L 4Y9
(416) 529-1 319 AUSTRALIA
_ PAR I S RAD I O
...._
1 61 B U N N E RONG RD.
K I NGSFORD 2032 NSW
(61 2) 344-9 1 1 1
_
_
_
sgggs
Two-way com m u n ications with P R O-COLOR - F I L E * En han ced *
•
•
1 _•, -:
Easy com m u n ication with BAS IC/DOS programs
Outp uts to ASC I I Word Processors l i ke Telewriter-64
•
CERTIFICATION
SEAL
Keysaver (TM) repeats l ast com mand x t i mes
•
•
R A I N BOW
S u per-fast Sm art Screen Refresh
N OW
O N LY
64�.��!:,,�;sTEMS
%
COM PUTER SYST E M S C E N T E R
�
NE'i'J
4 2 Fo u r Seaso n s C e n t e r
SS �oof\_!.;_-
� -
C h e s t e r fi el d , M O 630 1 7
# 1 22
USA
(31 4) 576-5020
1 0 to 6 M o n .-Fri .
or yo u r local DY N ACA LC d e a l e r
Price U S$99.95
Outside N o rth America add $1 0 postage
DYNACALC Reg . U. S. Pat. Off .
Lotus and 1;2-3 are trademarks of Lotus Development Corp.
PRO-COLOR- F I LE is a t rad e m ar k of Derr i n g er Sof t w a re
T e l e w r i t e r-64 i s a t radem ark of Cog n i t e c
V i s i Ca l c i s a t ra d e m a r k o f V i s i Co r p .
November 1 985
HOT Coco
19
edited by J. Scot Finnie
Review-Ratings Key
Contents
P51 Mustang
Marooned .
.
Trivia Fever
Spelling
.
.
.
-. . . . 20
Attack
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
�
.
.
.
.
.
.
. . . . . . . . . . . . . . . . . .·
.
.
.
.
.
.
•
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
. �-.
.
.
.
.
.
.
.
.
. ......
Personal Finance
ChesSD . . . . . :
l
6 . . . . . . . . . . . . . . . . . . . . . . . . Unsurpassed
.
.
22
24
; . . . . . . . 24
:
26
.
.
.
27
5. . . . . .
.
. . .
_
. . . . . . . . . . . . . . . . Excellent
4 . . . . . . . . . . . . . . . . . . . . . . . Above Average
3. . . . . . . . .
.
. . . . . . . .
2. . . . . . . . . . . . . . .
-_
.
.
.
. . . . . Acceptable
. . . Needs Improvement
1 . . . . . . . . . . . . . . . . . . . . . . . Unsatisfactory
Ed. note-The overall ratings that appear in
the review-rating graphs are an average of the
ratingsfor all the categories rounded to the near­
est quarter of a rating point.
The P51 : No M i l k Run
by Scott L . Norman
sound
6
5
4
3
2
1
graphics
I
documentation
playability
I
OVERALL RATING 4. 75
Games
P51 Mustang Attack Flight Simulator is mar­
keted by Tom Mix Software. 4285 Bradford
N.E.. Grand Rapids. MI 49506, 61 6-957-0444.
It requires 32K and sells for $29.95 on cassette
and $34.95 on disk. A three-foot cable to con­
nect two Color Computers for dog fighting is
available for $1 0.95.
T
om Mix Software has sent us on peril­
ous high-tech reconnaissance missions
with SR-7 1 and challenged our weekend air­
manship with Worlds of Flight. (See the re­
views in the April and December 1984 issues
of HOT CoCo, pp. 32 and 20, respectively.)
P5 l Mustang Attack offers armchair aces the
chance to recreate a bit of the tough World
War II fighter combat. So slip into your old
leather jacket. strap in. and follow me.
sounds are gone. too. 1 presume that these
simplifications were made in order to speed
up the action. P5 l comes close to giving real­
time response. That's critical to the pro­
gram's major innovation-the ability to link
two CoCo's in mock combat!
Although there is a solo mode in which you
can sharpen your flying and gunnery skills.
the real action begins when you connect two
computers. fire up a copy of P5 l in each. and
do battle. The computers can either be right
next to one another linked with a short null­
modem cable or at opposite ends of the coun­
try connected by modems and telephone
lines. The latter method slows down screen
responses by a factor of two or so and opens
up the possibility of horrendous telephone
bills. but it does work.
The cockpit display consists of the wind­
shield with gunsight and a small but busy
instrument panel containing airspeed indi­
cator. altimeter. various status readouts. and
navigation aids.
P5 l 's action takes place in the skies above
four I O-mile quadrants arranged in a square
grid like this:
1
2
3
4
Its square world wraps around. so if you fly
past the border of one quadrant. you merely
enter the next one along the aircraft's pro­
jected track.
Each quadrant contains a single runway,
P5 l makes use of some of the out-the-win­
and in the war-game mode, you can capture
an enemy airfield by scoring gunnery hits on
its landing beacons. denying use of the run­
dow display techn ology in troduced by
Worlds of Flight. The scenery is much less
detailed. however. All you see through your
P5 l 's windshield are the horizon. a few air­
fields. and enemy aircraft. The engine
way to your opponent.
You can call for a birds-eye view of any
world on radar or switch over to a conven­
tional compass. The radar can even be reset
to eliminate the clutter of old flight tracks.
The Cockpit and Flight Plan
20
HOT Coco
November 1 985
This is handy after combat when you are
trying to get your bearings to return to a
friendly airfield.
Flight Control
As befits software named for the best
fighter-bomber of its time. the simulated P5 l
is a hot aircraft. Fully controlled rolls and in­
side and outside loops are possible. And the
performance figures seem realistic: ·at full
throttle. an inside loop takes about 15 sec­
onds and a 360-degree roll about half that.
The manual contains a concise discussion of
the principles of flight. including those as­
pects that have been simplified for the pur­
pose of this program.
The throttle, landing gear. and flaps are
controlled from the keyboard. while the aile­
rons. elevators, and guns are operated by the
joystick connected to the right joystick port.
(The simulated P5 l does not have a rudder
control .) I recommend. as does the manual,
that you use joysticks with P5 l Mustang At:
tack that provide spring centering and ad­
justable trimmers, such as Tandy's Deluxe
1
Joystick made by Kraft.
A final control feature is the wing leveller,
a kind of fictitious autopilot that keeps the
wings horizontal and the aircraft heading
constant unless you continuously force the
aircraft into a banked turn. The wing leveller
is a boon to the novice. but it slows down the
P5 l 's roll rate and should be switched off for
combat.
The Dog Fight
In the solo practice mode, the CoCo gener­
ates an image of a drone aircraft at which you
can shoot. The drone aiways flies a straight
course, descending continuously from
5 1 ,000 feet down to the ground. That doesn't
make it a sitting duck. First you have to find
it, using your radar and your Mark I eyeballs:
then you have to maneuver your plane into
a good firing position and shoot accurately.
You have 99 shots in each of your two wing
guns. and you can squeeze them off one at a
time or fire continuously.
Although 99 rou n d s per gun is a little
skimpy. the actual firing time available to
you seems realistic. Your fighter's limited
fuel supply is also a factor. If you keep the
throttle wide open. you'll only have enough
fuel for 10 minutes of flight! You can refuel
and rearm by landing at a friendly airfield.
I found P5 l surprisingly easy to land, al­
though m u ltiple bounces (complete with
sound effects) are not uncommon. The rap·
idity with which the screen updates helps the
learning process. However. the landing skills
I acquired in Worlds of Flight might have
something to do with how easy the landing
process seems to me. And landing is by no
means guaranteed. Attempts at high-speed
landings will result in damaged landing gear
or worse.
Players in a two-person game can signal
each other as to the status of the hostilities.
(S;) · po rt ) v. t .
2.
1.
the categories of which are peace. war. talk
(a game-freeze mode). and "turkey." The last
category is equivalent to declaring war. but
it allows you to insult your opponent first!
Once engaged in a dog fight. the displays
of the two computers are updated simulta·
neously. Enemy hits cause bullets holes to
appear on your windshield and control
panel. The manual has a chart that shows
the damage inflicted on your plane based on
the location of bullet holes. These damages.
plus the distance. if any. by which you miss
the runway in landing. govern the time it
takes to repair your aircraft after you land. In
the meantime. your opponent could be
shooting up your runway beacons.
The actual conduct of P5 1 Mustang Attack
warfare is complicated: the details of aircraft
replacement. repair times. and so on are in
the documentation . It is possible to specify
one of three skill levels for each player: the
higher the skill level. the greater the number
of hits is required to inflict each kind of dam·
age to your opponent's plane.
Debriefing
I am enthusiastic about this latest Tom Mix
flight simulation. What would I change if I
could? The altimeter (the two-hand type)
should be modified to include a multiples-of10,000-feet indicator. It is easy to lose track
of your altitude in a dogfight when your sole
concern is concentrating on getting your op­
ponent into the sights. By the time the P5 l 's
altitude-warning horn goes off at 500 feet. it
might be too late to take corrective action.
This is no particular fault of the simulation.
however. A human-factors specialist once
told me that World War II altimeter designs
often invited misinterpretation by pilots dur·
ing stressful moments.
Outside of that. I found only one potential
glitch in the program . As an experiment. I
deliberately took off with the wing flaps low­
ered. By the time I got the flaps cleaned up. I
found that I couldn't retract the landing gear.
Although this is an unlikely situation, it's a
tough way to fight a war.
P5 l Mustang Attack is a fine program and
an outstanding simulation that leaves very
little room for criticism. But I do have one
historical bone to pick: The airplane pictured
in the promotional material for P5 l Mustang
Attack is actually the P40 War Hawk. Sloppy.
guys. very sloppy. •
To bear t h e weigh t o f , especially from u n derneat h ; uphold i n pos i t i o n ; keep from fai l i n g , etc .
To bear or sustain ( weig h t ; etc . )
3 . To keep
from fai l i n g ; s t rengt hen : PBJ, Inc. suppor1s their prod11c1 linl' 11·i1h
1echnical personnel 1ha1 are alwavs 1here 10 help vou. 4 . To serve, t o u p h old or corrobor.at e ( a statemen t , t heory,
et c . ) substan t iate; ver i fy : PBJ. Inc. receil'es 1estin1011ials on a dailv basis 1ha1 supporl !heir prod11c1 line.
p ro\· iclc ( a p cr-,o n . i n , t i 1 u 1 i o n ) 11 i t h m a i n t e na nce; p ro1· i de fo r :
crea1inp. 11e 11· ad1•u11ce1 11en1s in !heir .field.
S r11011_ 1·111:
PBJ, Inc.
5.
To
PBJ. Inc. s11ppor1s 1he CnCo user h r consis1e111h
Circle Reader Service card
#214
. ,, . . , . " ,
A long description i ndeed , yet very applicable t o t he k i n d of sen·ice deli\ ered by P B J , I n c . W hen
the serious CoCo user needs bac k - u p s u pport , t ec h n i cal in formation or assistance, P B J , I n c . is
t h ere ! From t he prod ucts t hey m a n u fact u re t h rough t o t he st rategic soluti ons t hey o ffer.
�hie.
P B J , I nc . has rig h t fu l l v gai ned t he rep u t a t i o n of " t he company w i t h 1he 11 1os1 s1 1ppor1 for t h e
Color Com p u t e r. "
Tell them "I
saw
it I n HOT Coco."
"/nnm ·ari1·e Pruduus j(H rhe CoCo User "
Call fo r information on our Tandy 1000 products . . . .
Call or write today for our FREE catalog . . . .
P.O. Box 8 1 3 • North Bergen, N . J . 07047 • 201 -330-1 898
November 1 985
HOT Coco
21
moves on an electronic map. You can pick up
Marooned
by Richard Ramella
sound
6
5
4
3
2
graphics
I
documentation
playability
I
OVERALL RATING 4.00
Games
Marooned is a graphics-adventure game
marketed by Saguaro Software, PO. Box 1 864.
Telluride, CO 81 435. 303-7284937. It requires
32K, Extended Color Basic, and a disk drive. It
sells for $29.95
I
n every mystery there is a door that must
be opened. no matter the danger.
When the UFO lands in the cornfield. you
articles you find along the way. use them.
and even confront characters within the
story plot. The central problem usually fo­
cuses on a mixed struggle for survival and
escape. And Marooned is no exception.
At the start of the game, after the space
ship takes off. you wander among the rooms
of the alien aircraft. finding and using arti­
cles. It isn't telling too much to reveal that
you will probably succeed in crashing the
ship onto an alien planet-where the game
continues. The landscapes of the planet are
more artful than the sterile rooms of the ship,
but I was confused at times when the same
landscape showed up in several places.
Marooned bows to convention with a sim­
ple lexicon of two-word commands with
which veteran computer-adventure players
will be familiar. The simple construction re­
quires one verb and one object. such as get
gold, drop worm. and examine chair. You can
even ask for hints. although not many help­
ful ones are provided.
As in most computer adventures. it is pos­
sible for your game character to die. But Ma­
rooned offers a game-save feature that allows
won't just wave at it and go to bed. You are
adventurous. so you'll walk up to the strange
craft and step inside. And then it will take off,
of course.
Lucky for you. Marooned is a graphics ad­
venture. For the hardcore adventurer it will
be fairly easy. Beginners with a logical ap­
proach will find it tantalizing and eventually
accessible.
If you have never tried a computer adven­
ture, a brief explanation is in order. Text and
graphics adventures are stories in which you
are the main character. You travel in logical
Drive 1
1 25 95
Marooned's title screen shows the alien space­
craft in flight.
Your Choice
Silver or White
S U P E R DR IVE SALE
you to store as many as nine different game
positions on disk. A player can stop and save
the game at a critical point and go back to it
later. The best way to use the game-save fea­
ture is to chain your game saves. When you
reach a critical point in the game, save it.
Then when you make it past the danger un­
scathed, save the game again to the same file
name. If you don't make it past the next crit­
ical point. you'll be ab.le to start out past the
last one. As you are nearing completion of the
adventure, you1
· 1 find that you have a chain of
game saves charting the most important mo­
ments of the adventure.
Marooned is essentially a Basic listing ov­
erlaid on scenes drawn from binary files.
This makes the game fairly fast. The pro­
gram also features text in the Extended Color
Basic graphics mode. I found a minor bug
while adventuring in a cave location. where
I insisted on going in an illogical direction. It
caused a BS (bad subscript) error and loss of
the game. This single flaw is no reason to rule
out this interesting game, however. Saguaro
Software guarantees the program disk to
load for the original owner for life and offers
to replace the disk if it fails. You can also
make a copy of the disk for safekeeping. The
program's documentation is simple and to
the point. It consists of only two pages. but it
is enough to get you started. You'll take it
from there.
Marooned's theme-wandering aboard a
deserted UFO and being stranded on an alien
planet-is not a strictly new idea to computer
adventure. But if you have never been on an
alien planet, Marooned will be new to you.
The game is both fun and challenging. Its
graphics are good. and its mysteries are not
so overpowering as to verge on boring most
players. I recommend Marooned, especially
to first-time adventurers. •
2 1 9 95
Drive 0
Special prices on new first quality disk drives. They even have GOLD connectors on the back. Some other places charge $279.00
for dr. 1 and $349.00 for dr. O, not us! Drive 1 is for mod I, Second Color Computer drive, or external mod I l l , IV. D rive O is your
first Color Computer d rive and comes complete with controller, cable and manual. Bare d rives for internal mod Ill, IV, only $79.99!
For dbl-sd add $45.00
64K EXT. BASIC COLOR COMPUTER II $1 3895
The Computer Center
901 -761 -4565, 551 2 Poplar, Memphis, TN 381 1 9
Circle Reader Service card
Add $4.90 for shipping & handling-Visa, M/C accepted-Dealer inquiries welcome
22
HOT Coco
November 1 985
#11
lrcle Reader Service card # 1 2 1
I 3 display formats: 5 1 / 64 / 85
col u m ns x 24 l ines
I True lower case characters
I 'User - friendly ful l - screen
editor
I Right
File and I 10 Features:
64K COMPATIBLE
Telewriter-64 runs fu l l y in any Color Computer
- 1 6K , 3 2 K , or 64K, with or w i t hout Extended
Basic, with disk or cassette or both. It
automatically configures itself to take optimum
advantage o f all available memory. That means
that when you upgrade your memory, the
j ustification
Telewriter-64 text buffer grows accord ingly. In
I Easy hy phenation
a 64K cassette based system, for example, you
I Drives any printer
get about 40K o f memory to store text. So you
I Em bedded format and
control codes
• Runs i n 16K, 32K, or 64K
• Menu -driven disk and
cassette I I 0
don 't need disk or FLEX to put all your 64K
to work immediately.
64 COLUMNS (AND 85 ! )
Besides t h e original 5 1 column screen,
Telewriter-64 now gives you 2 additional high­
density displays: 64 x 24 and 85 x 24! ! Both
high density modes provide all the standard
• No h ardware modifications
requi red
single control key command.
)imply stated, Telewriter is t h e most powerful
perfect for showing you the exact layout of
your printed page,
!nthusiastic praise from thousands o f satisfied
:iwners. And rightly so.
time.
all on the screen at one
Compare this with cumbersome
screen display is that you can now set the
;imply inadequate for serious word processing.
screen width to match the width o f your
fhe checkerboard letters and t i n y lines give you
printed page, so that "what you see is what
no feel for how your writing looks or reads.
you get . " This makes exact alignment o f
Telewriter gives the Color Computer a 5 1
columns possible and it m a k e s hyphenation
column b y 24 line screen display with
simple.
looks l i k e a printed page, with a good chunk of
Since short lines are the reason for the large
spaces often found in standard right j ustified
text on screen at one time. In fac t , more on
tex t , and since hyphenation is the most
screen text than you'd get with Apple I I , Atari,
effective way to elimi nate short lines,
T I , Vic or TRS-80 Model I l l .
Telewriter-64 can now promise you some of the
O n top o f that, the sophist icated Telewriter
best looking right justification you can get on
full-screen editor is so simple to use, it makes
writing fun . With single-letter mnemonic
commands, and menu-driven I / 0 and
formatting, Telewriter surpasses all others for
user friendli ness and pure power.
the Color Computer.
FEATURES & SPECIFICATIONS:
Printing and formatting:
Drives any printer
E m bedded control codes give full dynamic access t o
intelligent printer fea ! U res l i k e : underlining,
- Color Compuler News, J a n . 1 982
searc h , fast auto-repeat cursor, fast scrolling, cu"or
u p , down, right, left, begin line, end line, 1op of tex t ,
bottom of text ; page forward, page backward, align
space left, current file name, default drive in effec t ,
set l i n e length on screen.
I nsert or delete text anywhere on the <creen without
changing "modes . " This fast "free-form" editor
provides maximum ease of use. Everything you do
appears i m mediately on t h e screen in front o f you.
Commands require only a single key or a single key
plus C L E A R .
. . . truly a state of the art word processor. .
outstanding in every respect.
- The R A I NBOW , J an. 1 982
PROFESSIONAL
WORD PROCESSING
You can no longer afford to be without the
power and efficiency word processing brings to
everything you write. The TRS-80 Color
Computer is tht> lowest priced micro with the
capability for serious word processing. And
only Telewriter-64 fully unleashes that
capability.
Telewriter-64 costs $49.95 on cassette, $59.95
on dis k , and comes complete with over· 70
pages of well-written documentation. (The step­
by-step tutorial will have your w r i t i ng with
Cognitec
704 N. Nob St.
Del
subscript, superscript , variable font and type size, do1graphics, etc.
But now we've added more power to
Telewriter. Not j ust bells and whistles, but
major features that give you total control over
your w r i t i n g . We call this new supercharged
ver,ion Telewriter -64. For two reasom .
CA 92014
Or check your local software store. I f you have
bottom, and left margins; line leng1h, lines per page,
questions, or would l i k e to order by Visa or
conditional new page, enable/disable j u s t i fication .
(weekdays, 8AM - 4 P M PST ) . Add $2.00 for
Menu-driven control of 1hese parameters, as well a s :
pause a 1 page b o t t o m , page numbering, b a u d r a t e (so
you can run your printer at top speed ) , and Epson
Mastercard, call us at ( 6 1 9 ) 7 5 5 - 1 258
shipping & handling. CA residents add 607o
state tax.
Now available at
l!tadle /haell stores
via express order.
fon t . "Typewriter" feature sends typed lines direc1ly
TELEWRITER-64
Mar,
Dynamic (embedded) format controls for: 1op,
line spacing, new page, change page numbering,
Computer I have seen . .
delete, global search and replace (or delete), wild card
To order, send check o r money order c o :
amount o f memory you have, and Telewriter's
. . . one of the best programs for the Color
Fast, full-,creen editor with
Centronics, NEC, C. ltoh, Smith-Corona,
the size of your text is never l i m ited by the
cost of a disk .
Editing features:
wordwrap, block copy, block move, block delete, line
Telewriter-64 in a matter of minutes . )
Termi net, etc ) .
word processor without the major additional
drives in th e system.
( L P V l l / V l l l , D M P - 1 00 / 200, Epson, Okidata,
Telewriter ' s chain printing feature means that
advanced cassette handler gives you a powerful
space 10 screen or printer, k i l l and rename file,, \et
defa u h drive. Easily cu,tom ized 10 th e n u m ber o f
RIGHT JUSTIFICATION &
HYPHENATION
One outstanding advantage of the full-width
So a Telewriter screen
and/or cassetle. For d i, k : print directory w i 1 h free
time and don't even allow editing.
:haracters by 1 6 l i n e s without lower case i s
lower case characters .
Read i n , 'ave, partial save, and append file\ with di\k
"windows" that show you only fragments at a
fhe standard Color Computer display o f 3 2
true
retry mean' you 1ype a load command only once no
matter where you are i n 1 h e tape.
text, tabs, choice of buff or green background,
Nord processor you can buy for the TRS-80
Computer and TRS-80 magazine, as well as
Ca"eue verify command for 'ure \ave,. Ca"ette auto­
complete error protection , line counter, word counter,
screen . The two high density modes are more
:eceived rave reviews in every ma]or Color
processor.,. Compatible w i 1 h \pelling checker\ ( l i k e
Spell ' n Fix).
switch instantly to any of the 3 formats with a
crowded and less easily readable, but they are
::: o lor Computer. The original Telewriter has
program,, Smart Te rminal file' (for uploading or
downloading), even 1ex1 file' from 01her word
Telewriter editing capabilities, and you can
The 5 I x 24 display is clear and crisp on the
THE ORIG I N A L
ASC I I formal file' -
create and edit BASIC, A"embly, Pa,cal, and C
j::pson driver
t o your prin1er, and Direc1 mode sends con1rol codes
righ1 from the keyboard. Special
simpli fies use wi1h M X -80.
Suppom single and m u h i -line heade" and au1oma1ic
c c n r e r i n g . Print or �ave all or any \ect ion of 1he text
buffer. Chain prin1 any n u m be r of files from ca,,e l l c
or d l' .. k .
Apple
lI
I \ <i i radc:mark 0 1 Appk l orn p u l l' r ,
1 r adcmark o t A t a r i ,
( ur p :
\1 X - 80
I n c : T � '-;-HO
In� ,
Atdr1 1\ a
I \ a t r <t d l' m a r k o l T<tml�
I \ a trademark o t Cp,011 Anu·r11.a.
l n1..
Reviews
Hot for
tally sheet. spin.ner, and bookmarks let you
play without electricity. And yes, both ver­
sions require a sharp memory.
Trivia Fever
Program quality is also excellent. T,pe first
thing you 'II notice is that Trivia Fever doesn't
load like most programs you 're used to be­
by Marl< E. Reynolds
HOT CoCo staff
sound
graphics
6
5
4
3
2
I
documentation
playability
I
OVERALL RATING 4. 75
Games
Trivia Fever is mamifactured by Professional
Software Inc. for Tandy Corp. (catalog no. 263295). 1 400 One Tandy Center. Fort Worth. TX
761 02. The game requires 64K and a disk
drive. It sells for $29.95
W
cause it is written in OS-9 compiled Basic and
requires an OS-9 loading routine. Professional
Software ported the game to the Color Com­
puter under license from Tandy, w h ich
wanted OS-9 included for upward compati­
bility with future versions of the Color
Computer.
If you have Disk Extended Color Basic ver­
sion 1 .0 and don't have OS-9. you must type
in an 1 8 - line program (provided with the
startup guidelines) to create a Trivia Fever
boot disk to load the game. If you have Disk
Extended Color Basic 1 . 1 or later, you simply
type DOS and press the enter key.
Playing instructions are on the disk. After
you read them. you type in the game mas­
ter's (or moderator's) name and the names of
the players or teams. Trivia Fever can be
played by one to eight players. There are
three ways to handicap individual players or
teams, making it possible for players of vary­
ing abilities to compete with each other. Bet­
ter players can select shorter time limits in
hat do tree trunks and fish scales
have in common? Who played the
piano-playing Sam in Casablanca? Where
did Davy Crockett make his last stand?
These are some of the 32.000 questions
that come with Professional Software ' s
Trivia Fever, a n entertaining outlet for any­
one caught up in the wave of trivia gaming
that has swept the country recently.
From the top down. Trivia Fever is a nice
product. Everything about it shows that its
designers paid attention to quality : The
sturdy and attractive box contains the game
disk. startup instructions on heavy paper (in­
cluding troubleshooting tips). a handsome
book of questions and answers. a pad of tally
sheets. a game spinner. and three color­
coded bookmarks.
One of the best aspects of the game is that
you can play it with or without a computer.
To play the computer version. all you need is
the game disk and your CoCo. The book.
' ' Everything about
Trivia Fever
shows that
its designers
paid attention
to quality."
which t o answer questions. choose a higher
level from the three levels of difficulty. and
pick those categories (from the seven the
game offers) that they find more difficult.
Once you have set up Trivia Fever the way
you want it. you remove the disk from your
disk drive. flip it over. and reinsert it to load
the questions. Game instructions and ques­
tions appear on screen in attractive upper-
and lowercase letters. The game master, who
may also be one of the players, controls the
keyboard and answers prompts for informa­
tion . Upon receiving an answer from a
player. the game master presses keys to stop
the clock. display the correct answer, and tell
the computer whether or not the correct an­
swer was given. Play moves along quickly
and smoothly.
The program keeps score. gently chiding
players for wrong answers and rewarding
those who answer correctly with encourag­
ing words. Successful players might also
elicit a few bars of such tunes as 'Tm Look­
ing Over a Four-Leaf Clover," the "William
Tell Overture . " and " Whistle While You
Work."
Error trapping is excellent. Trivia Fever
will only accept keyboard input that reason­
ably answers program prompts. That means
that even younger members of the family can
safely have a turn at being game master.
Trivia Fever is very easy to use and play. The
few paragraphs of documentation that come
with the package are all you need to get
going. And if you exhaust the 32,000-ques­
tion data file, you can order Volume II. an
additional set of questions, from Professional
Software Inc . . Box 5 3 3 . Needh a m . M A
02 1 94. O r phone their toll-free number. 1 800-343-4074. Sports buffs can order Super
Sports. a separate game that offers thou­
sands of sports-related questions in seven
categories.
And don't forget that you can also play
Trivia Fever without a computer. It is one
Coco game that can amuse everyone on long
car trips. Even the person behind the wheel
can play as long as someone else is asking
the questions.
If you enjoy the me ntal exerc i se and
friendly interaction that are a part of trivia
gaming. you'll appreciate Trivia Fever. Even
if you are not much for trivia, you'll have to
admire the high quality of this product's pro­
gramming and packaging. which makes it
compare favorably with many other Color
Computer programs.
So. are you ready to play Trivia Fever? I'm
still trying to remember who played Sam in
Casablanca. •
A Spel l i ng Adventu re
by Richard Ramella
6
5
4
3
2
[
maintains documentation
meets
objective interest ease of use
I
I
-
I
---
-
OVERALL RATING 4. 75
Educational Software
24
HOT Coco
November 1 985
Spelling is a series of 1 6 programs. con­
tained on eight program cassettes. that covers
the rules ofspellingfor grades 4 through 6. The
series is available from Dorsett Educational
Systems, P.O. Box 1 226. Norman. OK 73070.
800-654-3871 . 405-288-2301 in OK. The pack­
age requires 1 6K and sells for $59.95.
B
efore completing my evaluation of this
package. I told my son: 'Td like you to
help me test some educational software
called Spelling."
" N o . thank you ," the 9-year-old replied
evenly. ''I'd planned to go swimming in
volcano."
"Aw. come on!"
"Don't you get it, Dad? No! N-0!"
a
Later, when the boy was tightly bound to
a chair in front of the computer. I loaded
Talkffutor, a monitor program that activates
each of the 1 6 lessons in this eight-tape col­
lection. "Let's try some homonyms" I said as
I slipped in the lesson cassette.
He threw his forearms over his eyes like
Dracula reacting to sunlight and screamed.
"Child abuse! Mom! Help!"
"Glad to see you're getting in the spirit of
things," I told him between gritted teeth.
Particulars
We were already familiar with Dorsett's
style of learning programs. A taped narration
matches the screen text. and there are small,
well-drawn illustrations. As the narrator
noted the similarity and differences between
the words way and weigh, my sullen young
learner began to perk up. " P uns," he said.
"It's talking about puns! " And just like that,
the lesson was a success. Homonyms are the
stuff of word play. This kind of material pre­
sents a lode of pun possibilities. Or is that
load? I had better go back and study.
Spelling varies its requirements of the user.
Sometimes itis lookingforthenumberofa mul­
tiple-choice question. At other times it asks you
to type out a word that is correct for the context.
For example, "Our football players __
more than theirs (way or weigh)." Then, taking
its cue from the letters eigh in weigh, the pro­
gram segues to a question about eight and ate.
We got a l l the way through the Homo­
nyms: A Sounds lesson. My son agreed to try
another tape, but became disinterested when
the narrator strove to breathe life into the
rules that determine the situations in which
the letter I comes before E.
I liked these programs more than did my
son (whom I awoke, untied. and permitted to
depart). But the fact that he was not very
keen on them is indicative of the potential of
this set in a classroom environment: it pre­
sents complete information in an easy-to­
learn-if not captivating-form. When kids
have trouble adding suffixes correctly, for ex­
ample, they can get help from one of two suf­
fix lessons. Moreover, students expect to
work rather than be entertained at school,
where they will adapt quickly to this series.
At home, an educational program must be
more entertaining in order to maintain inter­
est. Chances are, most parents will encoun­
ter the same reaction I did.
This isn't criticism. In fact, I ' ve grown
weary of software that is intriguing at the ex­
pense of educational value. To paraphrase an
adage, you can·t be all things to all students.
Sometimes the best way for a student to
learn is to buckle down and study the hard
IT'S LIKE
:a
�-
,
0
the other . . .
It's
�
� (& ni��.!.����� ,"�'�
call f or
easy . . . won't harm existing data. Try it, you'll
bo gl'd yoo did!
AUlY
H\GH QUll ES
O\SKE
as
hole'.' For
TRS 80
I, I l l , and IV, Osborne,
Tl, Kaypro, IBM and others needing
"index hole'.'
as loW
9 94
*Add $2
($5 foreign) for
postage & handling.
FL residents
add 5% sales tax.
ORDER
TODAY
� EJ
Circle Reader Service card #337
SATISFA CTION GUARANTEED
OR YOUR MONEY BACK!
TOLL FREE 1 -800-642-2536
o�moor �
FL (305)748·3770, 9am·6pm ET
4211 NW 75th Terrace • Dept. 1 5 3 • Lauderhill, FL 3 3 3 1 9
Apostrophes: Homonyms : Contractions:
Homonyms : A Sounds: Homonyms: E
Sounds: Homonyms: I, 0, U Sounds; Hom­
onyms: Consonants; and Spelling Demons.
The last lesson offers mnemonic tricks for re­
membering irregular spellings, such as sec­
retary and calendar.
If you think that these programs will cause
a string of comic-book z·s to rise above your
head, then wake up and think again. Dorsett
has put together an educational package that
presents a well-conceived approach to rid­
ding kids of confusion about spelling rules. It
might even clear up a few things for some
adults,
two. •
t i��oc
0
�
$2495 for tape
':.
·
-
?�i�r
Pl!���
;:ir.
1:nt� :..
-
-
�
S27 95 for disk
SYZYGY (siz-ih-gee)
The Ultimate Graphics Adventure' You
ore trapped aboard the Deathstor
starship and hove hod o near fatal encounter with the Dork lord. Darth
Vader Your strength is all but gone
ond you know that Vader 1s somewhere near Your only hope is to locote the mystenous Glowing Emerald.
hidden deep w1th1n the Deathstor.
guarded by the Dork lord himself.
Syzygy hos over 250 graphic pictures
and 300 locohons with on assortment
of treasures. weapons and hazards
These allow o virtually endless array of
different scenarios and complex s1tuotions de�gned to give the user hour
upon hour of entertainment and adventure Grob your light sober and
may the Force be with you! 32K requ11ed
send check
computer products
the Silent E; The I Before E Rule: Doubling
Consonants. Short Vowels: Doubling Conso·
nants Before Suffixes: Adding Suffixes:
lll Jif1_1
other side. You paid for one side, why not use
N i bble
fer a diversity that helps to make the infor­
mation they present more palatable to
youngsters.
Dorsett offers numerous educational pack­
ages. which cost $59.95 for the 16 half-hour
lessons they each contain. This price is more
than reasonable. The Spelling series com­
prises the f o l l o w ing lessons: P lurals of
Nouns: P lurals of 0 and Y Nouns; Irregular
Plurals: Changing Y to I Suffixes: Dropping
TALKING GAMES
You r 5 114' ' single side disks are usable on the
IT'S FREE!
Notch w i l l open your new disk.
narration, pictures, and user choices. they of­
SPECTRAL ASSOCIATES
FREE DISKETTES
•
way. However, the Spelling lessons are not
all cod-liver oil, either. By combining text.
SPACE TREK
Realistic. hi-res 3-D graphics put you 1n
the captain's seat of the Federation's
most powerful starship. Work your 'way
from sector to sector by fighting the
deadly aliens which ore trying to destray you. A long range scanner. front
view screen. phasers. photon torpedos. mines. shields. star bases and 3-D
asteroids ore only o few of the many
features which make Space Trek the
most realistic space bottle simulotJOn
ever developed Space Trek will talk
when you hove o Tondy Speech/
Sound cort11dge. Colorwore's Real
T olker or Spectrum Projects' Voice Pa
installed Just plug one in before lood1ng the program and fasten your seatbelt for the ultimate in simulotJOns for
the RodJO Shock Color Computer 32K
and )Oysticks requ11ed
CALL 1 -206-58 1 -6938 to place your Visa or MasterCard order today'
SEND your order with check or money order (sorry. no C . O . D . ) to:
b
fi.
SPECTRAL ASSOCIATES
34 1 8 South 90th Street
Tac o m a , Wa s h i ngton 98409
&H
i
:
Al orders shipped in two business days. Allow two weeks for delivery.
.
andl ng
S 1pp1ng
Circle Reader Service card #299
United States add 3%: $2 minimum.
add 1 5%: $5 minimum.
Canada add 6%: $3 minimum.
Foreign
Washington State residents add 7 .8% sales tax
November 1 985
HOT Coco
25
1(
An I ntroduction to
series provides basic information and quizzes
on the subjects of home budgeting, taxes,
loans, investments, and insurance. The pre­
sentation combines text, graphics, and audio
material smoothly, using a mix of questions
in multiple-choice and one-word-response
formats.
Personal Finance covers a wide range of per­
sonal-finance topics. The subjects are pre­
sented at about the high-school level and
could supplement a personal-fmance course.
Lessons on planning a personal budget are fol­
lowed by an elementary discussion of basic
economic theory. One lesson covers income­
tax preparation and planning. Borrowing,
credit, loans, and real-estate mortgages make
up four lessons. Plans for life, property, and
health insurance are each addressed by their
own lessons. The fmal section of the package
contains five lessons on saving money and in­
vestments, including stocks and bonds, secu­
rities trading, and various investment funds.
The lessons are uniformly presented at the
introductory level. You will not get extensive
help for preparing income-tax forms or learn­
ing about the latest investment fads and shel­
ters. However. you will get a comprehensive
review of the fundamentals.
You start a session by loading and execut­
ing a machine-language driver. The program
will not run while there is a ROM pack or disk
controller in the expansion port. Loading and
Personal Fi nance
by Stuart Hawkinson
6
5
4
3
2
J
meets
maintains documentation
objective intr rest ea � e of use
I
N/A
OVERALL RATING 4. 75
Educational Software
Personal Finance is a series of 1 6 educa­
tional programs on eight cassettesfor adults of
all ages. It is available from Dorsett Educa­
tional Systems Inc., P.O. Box 1 226, Norman,
OK 73070. 800-654-3871 , 405-288-2301 in OK.
It requires l 6K and comes on cassette. Per­
sonal Finance sells for $59.90
P
ersonal Finance is an audio home-fi­
nance tutorial that takes advantage of
the Color Computer's capable hardware. The
..;
• · · · · · · · · · · · · · · · · · · • • • • • • · · · ·
. . . . . . . . . . . . . • . . . . . . . . . . . . . . •
· · · • · · · · · · · · · · · · · · · · · · · • • • · • · · · · • • · · · · · · · • • · · · · • · · · · ·
. . . . • . . . • . . • • . • . . . . . . . . . . . . • • . . . . . . . . . . . . . . . . . . . . . . . .
r-1 1_1 L -
•
· · · · · · · · · · · · · · · · · · · • · · · · · · · · · · · · · ·
. . . . • . • • • • • • • . • • • . . . . . . . . • • . • • . • . .
· · · • · · • • · · • · · · · · • · • • · · · · · · · · · · · · • · • · • • • · · · · · · · · · · · · · · · · · · · •
• . . . . . • . . • • • • . • • • • • • • . • . . . • • • • • • • • • • • • • • • • • • • • • . . • . . • • . . . . .
COLOR C H A R A C T ER GEN E R ATOR
R A I N BOW
( ( A ' 1 f 1( • l 1Qp,j
S ( •t
A
NEW
DIMENSION
• Now i n c l u d e s a c h a r a c t er generator and s a m p l e g r a phic space
gamt? a t no e,.; t r a cost .
• F u l l 224 te>:t and g r a phic char a c t e r s . Underline m a ll P"100ES.
IN
COLOR
COMPUTING
E X T E N D E D BASIC and OISK commands.
3t 64t-· compu t e r s .
• M ix u p t o S c h a r 3 c t e r s i t e s m 4 color s a ll o n o n e screen . .A.
1 0 sues
a v a i l a ble
from
ver t ic 11 l mode.
• U s e U P to
4
def1neable
window
8•4
to
s c r eens
42•24
cd
any
or 32�32 in
s i : e . A lso
include£ horizont a lly scrolling C c r awlingJ o n e l i n e screens.
• I n c l u d e s p o s i t i v e & n e g a t i v e screen dumps m 2 sues for R/S,
J2J
P. O .
P.O.
B OX
STAT I ON
& printer simu l t a neous l y .
•A m u s t f o r
a ll c o l o r
compu t e r
own e r s . O n c e
won't wr i t e another progr a m without 1 t .
26
HOT Coco
November 1 985
y o u t r y it y o u
B
-
24 - 9 5
27 . 9 5
-
BOX
7281
PORT HU R ON
M I C H I G A N 4 8 J0 1
U .S.A.
M I N IMU M R EQU I R EMENT
T A PE
D I SK
• S p e c i a l T r a c e Dela y c a n b e used to det•ug progr a ms o n e line a t
• A s p e c i a l p r i n t e r cont r o l c a n output c h a r a c t e r s t o t h e :: c r e e n
( 5 1 9 ) 6 8 1 - 01 3 3
LONDON ONT AR I O
C A NADA N6A 4Wl
Epson & Gemini printers. ( Please spec i f y )
a t ime < even graphics ) .
C ( • T t1 11. • l 1QM
Sf•1
SOFTWARE
Print s ver t ic a l l y .
• A u t o m a t k loader recognizes 1 6.... . 32 ..
R A I N BOW
I N C EN T I V E
• A l l m a chine l a ng u a g e , u s e r t r a ns p a r ent . Suppor t s a l l BASIC,
t ot a l of
startup take less than a minute. Thereafter.
the program controls the cassette player­
loading text and graphics, and feeding the au­
dio to your monitor speaker. The two lessons
on each cassette are on opposite sides. Nor­
mal playing time is 20 to 30 minutes, de­
pending on your responses. The d river
program is virtually "bullet proof" and
needs to be loaded only once for a day's use.
Pressing the break key will get a response to
load a new tape. but .you can also continue
with the current lesson.
The drill questions, of which there are about
20 for each . topic, reinforce the lesson mate­
rial. The narration on the tape is perfectly syn­
chronized to text and graphics, including
frequent "right" and "yes" responses to cor­
rect answers. Like many tutorial programs,
you must answer correctly to proceed. A
wrong answer elicits an error tone and a
screen containing the expected response. The
multiple-choice questions are often easy,
while the one-word-response answers are
sometimes difficult to guess. The program
has no tolerance for misspellings or errors in
capitalization.
The driver program keeps a record of your
right and wrong answers, presenting your
score at the end of each lesson. Students can
try to improve their scores by replaying a les­
son cassette at a later time. This might mo­
tivate younger students, but teens and
US
US
or
or
29 . 9 5
J2 . 95
1 6 K BAS I C
C ON
CON
[Ob�-J
T a p e to 0 1 s k u p g r a d e a v a i l a b le f o r SBUS o r S l OCDM. IJe p a y
pos t a g e w i t h i n US &: C A N A D A o n o r d e r s o v e r -! 2 0 , o t h e r w i :: e
p le a s e a dd � 1 . O t h e r c o u n t r i e s p l e a s e a d d S 2 . C h a r ge o r d e r s
please a d d S l .
Circle Reader Service card #91
adults are not likely to go through the ques­
tions repeatedly.
As topics are presented. graphics illustra­
graphics are good and the lettering is easy to
read, but there is little variation in the colors
used. Most screens are completely green, al­
tions and clever positioning of text keep the
material interesting. The narration is well­
organized and clearly delivered. I did not en­
counter speaking errors or poor usage. The
though there are also a few dark blue ones.
The Personal Finance package is profes­
Checki ng on
ChesSD was created by Software Dynwnics
and is distributed by Computer Systems Dis­
tributors, P.O. Box 9769, Anaheim, CA 92802,
71 4-772-1 390. It requires 64K. Extended Color
Basic, and a disk drive. It sells for $49.95 plus
ChesSD
by Terry Kepner
$2 for shipping.
6
5
4
3
2
I
documentation
playability
sound
I
graphics
sionally produced and worth serious consid­
eration by teachers. Its beginner's level of
I
f you have been waiting for a superior
chess program. wait no longer. ChesSD is
a disk-based program that stores almost
35,000 opening moves.
Starting the program is simple. You just
put the ChesSD disk into drive 0 and press
the Color Computer's reset button. While the
game loads, a procedure that takes about 1 0
seconds, a checksum i s calculated. A check­
sum failure indicates either a worn disk or
N/A
OVERALL RATING 4. 75
Gomes
Circle Reader Service card
presentation precludes the possibility offind­
ing market tips or get-rich-quick schemes;
that is not the aim of the series. Young adults
will gain a good foundation in the basics of
personal-money management through this
series. Its 16 lessons offer a very complete
introduction. •
possibly a drive-alignment problem. In the
first case. just make a new backup of your
.
master disk. (ChesSD is not copy -protected.)
If you have the second problem, adjust your
drive and try again.
Once loaded, ChesSD displays a high-res­
olution image of a chess board with all the
pieces in place. While this isn't the most im­
pressive chess display I've seen. it is more
than adequate for its purpose-clear display
of the individual chess pieces. Below the
chess board is a comment line where the pro­
gram provides messages relating to the state
of the game, such as "thinking . . . ," "book
move," or "Check!"
To the right of the game board is a move
table that indicates several game statistics.
They include the last move made, its se­
quence number in moves since the start of
the game, and the score from the computer's
T h e c o m p l et e d i sass e m b l y
o f t h e Co l o r B as i c R O M s
#222
1'!(f
A Fuir - leatured tho1oughbred analysis desuJned tor the proleSS1onal and
GLD. Thoroughbred "Gold" Edition'"
$159.95
!he serious novice
EGLD. Enhanced "Gold" Edition'"
'Gol1f ·
Ec11t10n �th complete Master
complete
BenOI' "" system lfltegrated onto lhe same
OrSk Irvs power1ul DH>Q1am wig iransler at hOrses and SCOfeS to the bet analysis
with a
··sinoJe lteystrOke
(Master Be11or•• included)
GLTD. Limited "Gold"'"
Enables Protnslonal
$199.95
complete
Handltappers lo assign soec1hc values 10 the racing var·
1ables they·· leel are 1moonant Create l)l'<>gram weight based on a pan1cu1ar
Hacll and hne tune 11 !or muimum win percentage This program is oesigned
fOf
of
ease
use··
The user needs no
programming eiperience.
Senor••) $299.95
The
ONLv·
$149.95
P1cfessiona1 software designed 10 prOVloe a
pace1 races 11'1 North Amenta ana Canada
$199.95
Professor Pix Football'"
games
STATISTICAL ANALYSIS
m
i
protess1ona1 greyhouna analysis available thal evaluates
MHH. Master Harness
Handicapper'"
Complete
complete
on
De eva!ua1ed
wlmtegr 1ed Beuor
wllnlegrated
Data Base
Bettor
aliaNmg
$159.95
L1mf!f(I
·· Desigiated
complete
NBA $99.95
wlcollege
LDT. Lottery Analysis'"
Lot1ery
p.4
48 H R . FREE
S H IPPING
previous
$99.95
$149.95
$129.95
$149.95
011)1)
and
G>ey·
l
$249.95
tlnctuoes oonable comoute1
$649.95
(lncruoes ponab!e computer and program )
program
M·100 Portable (24k) wlchotce ot Trx>rought.ed. G1eyhound or Trcner
BROC H U R E AVAILABLE
a
CALL
208-342-693 9
t-TERMS
--FREE
--.....
SHIPPING
ALL
$79.95 -
w/Lotto jMax 99 01g1t) $99.95
PC-3 Portable Computer (4k) "''" """" '' """'"g""'"'
• COV E R S A L L RO M V E RS fO N S
i s d e f i ned
•
P ROG RA M M I N G T R I C K S E X P LA I N E D
• A L L F C B s , F D B s a n d FCCs d e f i ned
•
F U LLY C O M M E N T E D-- No h o l e s
COLOR BA SI C U N RA V E L L E D
EXTEN D ED BA SI C UN RAVELLED
DISK BASIC U N R AVELLED
$299.95
Sta11shcal comparison program designed lo oetect sublle panerns 1n winning
nouno or ironer''"
State St.
Boise, ID 83702
1 940 W .
Stat1s11cal Se11es
w/oower ratings
numbers and dtgtlS
Prof . Jones
thofough analysis ot all trouer ana
w/Wm·Loss Power Ratings
NBA. BasketbaU '"
All
$199.95
$299.95
;�
L1m11ed Version
EASY TO U N D E RSTA N D
• CO M P L E T E M E M O R Y M A P-- N o m i s s i n g spaces, every t h i n g
/-" �
G D . Gold Dog Analysis'"
vanables
•
�
�.
(con1a1ns lntegra!ed
SOFTWARE Ad<l S6 oo hard
ware 1 S6 00 C O O 1 UPS Blue
��s;d��:s01a,��u;���e�� �/
sonal checks / Cash pnce only
add 20.0 Visa. MC t Pflces suo
1ec1 10 ctiange
SET O F 3 UN RAVELLED BOOKS
SPECIAL
old
NOW
19 . 9 5
1 9.95
1 9.95
49.95
I
$ t 4.95/ea.
. . .
$34.95
A l l of t h e i n n e rmost o p e rat i n g processes are e x p o s e d .
T h i s b o o k i s an i n d i sp e n sabl e t o o l f o r t h e p r o g r a m m e r
see k i n g a f u l l , i n- d e p t h k n o w l e d g e o f Bas i c . T h e Ba sic
U N R A V E L L E D S E R I ES w i l l make i t e a sy for you to w r i t e
yo u r o w n B a s i c c o mma n d s o r mod i f y Ba si c fo r whatever
p u rpose you d e s i re.
S P E C T R A L ASSOC I AT E S
Circle Reader Service card
,. 3 4 1 8 S o u t h 9 0 t h S t re e t
1 - 206-58 1 -6938
#299
Tacoma, WA 98409
S h i p p i n g and H a n d l i n g : U n i t e d S t ates add 3 ° 0 . $2.00 m 1 11 1 m u m . Canada add
6 ° 0 . $3.00 m i n i m u m . Foreign add 1 5 % . $5.00 m i n i m u m . N o. C. 0 . 0 . orders
Washington residents add 7.8% sales tax .
November 1 985
HOT CoCo
27
Reviews
'I
point of view. The latter is based on a point
scheme for pieces ta.ken: pawns equal 1 00,
knights and bishops equal 300, rooks equal
500. queens equal 900, and kings equal
20,000 . A positive score indicates that the
computer is winning: a negative score means
that you are winning. Other statistics on the
move table are an estimate by the program
of how its next move will affect the score. the
The skill option specifies the number of moves
ahead the computer may look when searching
for its next move (to a maximum of seven).
and replay the move. This last inconvenience
will be especially apparent when experiment­
ing with chess problems or exploring different
Choosing tournament sets the program for
timed tournament play. Selecting play in­
structs the computer to trade places with you
and play your color. You use this command to
strategies.
gress. If you must leave an interesting game
before completing it. you are out of luck un­
less you wrote down all moves as you played.
But the largest shortcoming of ChesSD is
that you cannot reverse a move. If. for ex­
ample, you accidentally move into check and
ChesSD takes your king. you cannot back up
WHITE HOUSE
CO MPUT ER
9:00 am-6:00 pm
PR I N T E R PAP E R
STAR M I C R O N I C S
2500 Sheets Lazor
24 95
1 000 Sheets L a z o r
1 4 95
2 4 9 . 00
SG 1 0
. . 2 1 4. 00
M T t 60L
495.00
SG 1 5
379.00
5 0 0 Sheets L a z o r
MT 1 80 L
595.00
SD 1 0
3 4 5 00
M a i l i ng Labels
305 00
MSP 1 5
4 5 0 00
MSP 2 0
4 5 0 00
MSP 2 5
5 7 5. 00
EPSON
450 00
485 00
COLOR PAPER
Powertype
3 0 7 00
ASSORTED PASTELS
1 380 . . . .
1 385
269.00
1 080 Square Dot
2 2 9 00
R X 1 00
369 00
880 Square Dot
t 99 00
479.00
345 00
FX 1 8 5
499.00
L O 1 500 PAR
L O 1 500 S E R
. 979.00
1 03 9 00
84
640 95
1 93
1 9 9 00
Comrex 222 Comm
1 99 00
1 7 9 95
1 82 . . . . . . . . . . . . . . . 2 1 9 . 9 5
1 92 .
209 00
PANASO N I C
1 8 7 00
. . . . 2 3 7 . 00
2 3 5 00
t 09 2
385 0 0
D X 2 0 Da1sywheel
3 1 9.00
1 093
425 00
HS 80 Letteriet
359 00
3151
4 5 5 00
POLICY
TEAC DISK D R I V E
1 4 9 00
96 T P I
F l i p· N · F i l e 1 0
Hayes 3 0 0
1 4 9 95
Flip·N·File 1 5
Hayes 1 2 00
385 95
F l 1 p · N · F i l e 2 5 / L oc k
10 8 5
14 95
OS D D
B O N U S L i f e t i m e Warranty
SS DD
9 50
1 3 50
No deposit on COD orders
APO & FPO add S S 00 pf'1
t i u n d r e d For pr1only mad add $8 00 per hundred PA H'S1drnts .1dd 6°1
<><llf•s l!lx D c f e c t 1 v f' nroducts must havr Prio1 RA r � u m t)f'r Srtionls nr•t 1 5
HOT Coco
MAXELL
Free lrP1gh1 on a l l pr('p;:iid cash
November 1 985
MD 1
1 5 95
MD 2
2 0 95
50
1 2 50
F l 1 p· N · F i l e 5 0 Lock
t 6 50
M O N ITO R S
SAKATA
T EK N I K A
Separate Video
SC 1 00 Color
t 85 95
M J · 2 2 R G B/ Co rn pos 1 te/
Separate Video
39 95
D I S K ETTE S
2 50
F l i p· N · F i l e 50 . . . . . . 1 2 . 5 0
1 9 95
Z E N ITH
ZVM 1 2 2 Amber
82 95
ZVM 1 2 3 Green
7 5 95
ZVM 1 3 1 R G B Color/
S A 1 000 Amber
2 2 9 00
Green 80 C o l
389 0 0
zv�· 1 33 R G B Color/
1 7 9 00
99 95
1 05 9 5
NEC
1 2 05
95 00
1 2 60
1 39 95
1 20 1
1 39 95
AMDEK
300 G
Green 40 C o l
300 A
t t 9 00
t 29 00
Color 300
2 2 9 00
Color 500
339 00
Color 600
399 00
2 5 9 00
Color 700
4 6 9 00
Color 7 1 0
539 00
439 00
310A
1 4 5 00
ZVM 1 30 Color
Green
SG 1 000 Green
269 95
1 69 00
Sol\ware for FD 55V
I N N OVATI V E
CO N C E PTS
Volks 1 2 . . . . . . . . . . . 1 7 9 . 9 5
ZVM 1 3 5 R G B Color
Green 80 C o l
orders over S300 1 n l h e c o r t i n e n t a l U S A
58 95
F D 55F 320K/ H a lf H e i g h t
SS DD
1 090
MODEMS
Vol ksrnod em/Ca lJle
M J · 1 0 C om posi t e/
SKC L 1 fet1me Warranty
1 09 1
D X t o Da1sywheel
23 95
525 9�
2 4 5 00
so 2000
2 3 95
500 Sheets Lazor
. . 349 . 9 5
1 52 5 00
LX 90
42 95
1 00 0 S h e e t s Lazor
DS/DD .
O K I DATA
Ok1rnale 1 0
222 00
Homewriter
2500 Shee t s Lazor
F D 55V 3 2 0 V./ H a l l H e i g h t
LX 80
Comrex 220 Atari
1 000 qly
. . . 305.00
209.00
F X 85
9 95
SD 1 5
R X 80
JX 80
9 95
SR 1 0
LEGE N D
(7 1 7) 322-7700
H O U RS: Mon day- Friday
V I SA and MC
4%
S p i r i t 80
CITIZEN
28
1 -800- 3 5 1 - 344 2
Accepted
PR I N T E R S
MSP 1 0
computer 30 seconds. three minutes. and 30
minutes. respectively. The seventh level is
strictly for chess-by-mail fanatics. It requires
five hours for each computer move. Tourna­
ment play usually takes place at level five.
All in all, ChesSD plays a mean game of
chess-even at the lower levels-because of
its extensive disk-based opening book. If you
make the mistake of accidentally tapping
into a sequence of moves in this book of
plays. the computer's moves come quickly
and are devastating. Although the game is
not rated, it seems to have a playing strength
of about 1 ,500. ChesSD is not a tutorial. It
assumes that you are familiar with the move­
ments of chess pieces and the rules of the
game. If you are more than a chess beginner.
ChesSD will give you a good run for your
money. •
pieces and assign positions to pieces for end­
game or special chess problems.
Although it is a powerful chess program,
ChesSD does have a few problems. There is
no way to obtain a written record of the var­
ious moves played in a game. If you want a
record you must write it down as you play.
You also cannot save a game that is in pro­
There are six commands available to the
ChesSD player. Newgame starts a new game.
M A N N E S E M A N TALLY
for the computer to calculate each move is
fairly short. only about three seconds or less
in the lower levels (one. two, and three).
Moves in levels four, five. and six take the
arrangement. which is preset by manually en­
tering the sequence of moves needed to play to
that position. Although this is a time-consum­
ing process. it is the only way to ensure that the
board setup is correct. The last command is
clearboard. You use it to clear the board of all
tion to queen, rook, bishop. or knight. An un­
usual feature of the game is that it doesn't
examine your king for check moves. If you
accidentally move your king into check,
ChesSD simply takes your king. According
to the manual. this was done to make the
program run faster.
Service card # 1 75
fore moving a piece lets you tailor the game
to your time and ability. The time required
tell the computer to play the white pieces in­
stead of its default setting to black pieces. En­
termoves sets the board to a predetermined
clock times for the two players, and a set of
two numbers for the skill level the computer
is set to play. The first of these is the level
you set as the maximum number of moves it
can "look ahead " : the second is the number
of moves ahead it looked in considering its
current move.
ChesSD is played using standard chess al­
gebraic conventions. The rows are num­
bered from one to eight and the columns are
labeled from A to H. ChesSD supports all the
standard moves in chess. including castling,
en-passant pawn capture, and pawn promo­
P.O. Box 4025 Circle Reader
Williams port, PA 1 7 701
ChesSD's flexibility in letting you select
the number of moves ahead it may look be­
I N T E R FAC E S
SP·3 Serial t o Parall e l .
1 Year Warranty
. 57.95
DIGI S ECTOR.
DS-69
VIDEO
DIGITIZER
FOR THE
coco
G ive you r COCO t h e gift o f sight!
The M icro Works i s h appy to i ntroduce the newest
m e m be r of our D i g i sector™ fam i l y - the DS-69 Video
D i g it izer for you r COCO. It has a l l t h e standard
feat ures of i t s big brothers but comes w i t h a price tag
that's right for you.
• H igh Resolution 256 by 256 spatial resolution.
• Precision 64 level s of g rey scale.
• SPEED!
Y2 second for a full screen of video.
• Compactness Self contained in a p l ug in Rom pack.
• Ease of Use Software on d i sk w i l l get you up and
ru n n i ng fas t !
_ .._
The DS-69 Digisector
opens up a whole new
world for you and your
COCO. Your computer
can be a security system,
take portraits, analyze
signatures, i n s pect
asse m bly work . . .
the DS-69 i s your COCO's
eyes. Use the DS-69 and a TV camera to get fast,
precise conversion of video s i g n a l s i nto d i g ital data.
Powerful C·SEE™ software.
C-See i s a menu-d riven software package i nc l uded
w i t h you r DS-69. It provides h i g h speed 5 level d i g it iz­
i ng to t h e screen, h i g h precision 1 6 level d i g itizing for
s u perb hard copy printout, and s i m pl e software con­
trol of brightness and contrast. Or cal l our d river rou­
t i nes from your own Basic
program for easy 64 level
random access d i g itizing.
Pictures taken by the
DS-69 may be saved on
d i sk by C-See and t hen
ed ited by our optional
M A G I G RAPH package for
enhancements and
spec ial effects.
The DS-69 comes w i t h a one year warranty. C-See
s u p ports both cassette and d isk operation w i t h the
M u lt i-Pak adaptor and req u i res 64 K. Cameras arid
other accessories are avai l able from The M icro
Works. Let your COCO see t he World !
• DS-69 Dig isector
& C-See Software
• M AG I G RAPH G ra p h i c s Package on d i sk
$1 49.95
$ 39.95
Term s : V i sa, M astercard, C heck or C.O.D.
P urveyors of Fine Video Digitizers Since 1977.
Th� O © �
W© � Established
P.O. Box 1 1 1 0
Del M ar, CA 920 1 4
CiJ.cle Reader Service card
Tell them " I
saw
It I n HOT Coco . "
1977
(61 9) 942-2400
# 1 96
November 1 985
HOT Coco
29
UTILITY
by Will iam S . Bon n e l l
System Requirements
32K RAM
O
Disk Extended Color Basic
ne great feature of a disk-operating
system is that it provides you with a
disk's table of contents-the directory. Be­
cause you can see at a glance what a disk
contains. it's easier to keep tabs on your files.
But Disk Extended Color Basic doesn't fully
exploit the directory's potential: you still
have to remember command formats to copy.
kill, rename. or load a file. File Directory lets
you i.nitiate these functions with one key­
stroke. It also sorts files alphabetically ,
dumps the sorted directory to a printer. lists
an ASCII file on the screen. and protects 56
files per disk.
Program Operation
The program reads the directory of a disk
and displays it in screens of 10 files. Statis­
tics are displayed and the files are presented
in alphabetical order by a machine-language
sort. The arrow keys control the cursor. The
left arrow moves you to the previous screen:
the right arrow moves you to the next one.
The down arrow moves the cursor to the next
file: the up arrow moves it to the previous file.
Holding the arrow keys down makes them
autorepeat. The cursor wraps between the
first and last screens and between the first
and last files in each screen. Figure 1 shows
a sample session.
Initiate operating-system commands by
positioning the cursor next to the file and
typing the appropriate letter:
A-Re-sorts the directory. This is especially
useful after you have renamed a file.
B-Reads the directory again. Use this com­
mand after inserting a different disk in the
drive.
C-Copies the file to another disk.
D-Dumps the sorted directory to the printer.
Program Listing. File Directory
H J CLEAR 2n0
20 T $ = " * * * * * * * * * * * * * * * * * * * * * * *
* F U L L S C R E E N D I R ECTORY *
*
*
COPY R I G H T
* B I L L BONN E L L 1 1 /0 8 / 8 4 *
***********************
n
30 C L S : I F P E E K ( & H E 0 2 ) = 1 9 0 T H E N 6
0
40 GOSUB 1 4 7 0 : P R I NT @ 2 6 3 , " D I R E C T I
ONS ( Y / N ) " ;
5 0 A $ = I N K EY $ : I F A $ = " Y " T H E N 1 5 3 0
ELSE I F A $ < > " N " T H E N 50
6 0 C L S : P R I NT @ l 6 4 , T $ : P R I NT "
r e ad i ng d i r e c t o r y "
7 0 P R I NT @ l 6 4 , T $
80 D I M N A $ ( 6 0 )
30
HOT CoCo
November 1 985
Ditectory
Assistance
Load, copy, and rename files from a disk directory.
ff-Displays the help screen.
K-Kills the file. The program first asks for
verification.
L-Lists a file in ASCII format.
P-Protects the disk by copying the file-allo­
cation table and seven sectors of the direc­
tory to granule 68. allowing you to protect 56
files per disk. (The date is stored in the last 8
bytes of granule 68.) This option also restores
information from granule 68 to its proper lo­
cation in track 1 7 . A submenu asks you
whether you wish to protect or restore. Be­
fore restoration. the date of the last protec­
tion is displayed and you must confirm your
desire to continue. If granule 68 contains in­
formation other than a previously saved di­
rectory. the program asks if it should con­
tinue with the protection function.
Q-Quits the program.
R-Renames the file. The program prompts
you for a new name. If you press the enter
key without typing a file name, the program
ignores the rename command.
BANDY
. BAS
CALENDAR . BAS
. BI N
CAL[;EN
CHAN[;AD D . BAS
DSK- >TAP . BAS
EUCHRE2 . BA S
. BAS
F I LES
. BAS
[;REEK
HARD7FA0 . B I N
HARDCOPY . SRC
I
SCREEN
2
1
OF
F I LE 1 OF
18
SPACE LEFT
34 GRANS
( c===m•===••oP t i ons•�z•c�====�• >
A B C D H K L P Q R X ARROWS
Fig. 1. Sample Session
90 '
1 0 0 ' R EA D I NG D I R E CTORY
1 1 0 TRACK = 1 7
1 2 0 F O R S = 3 TO 1 1
1 30 DSKI $ F , 1 7 , S , A $ , B$
1 40 A$=A$+LEFT$ ( B $ , 1 2 7 )
1 5 0 F O R P= 1 TO 2 5 5 S T E P 3 2
1 6 0 N AM E $ = M I D $ ( A $ , P , 8 )
1 7 0 E XT $ = M I D $ ( A $ , P + 8 , 3 )
1 80 I F EXT$ < > "
" TH E N EXT$ = " . " +
E X T $ : N A M E $ =NA M E $ + E X T $
1 9 0 I F L E F T $ ( NAME$ , l ) =C H R $ ( 2 5 5 )
THEN 240
2 0 0 I F L E F T $ ( N AM E $ , l ) = C H R $ ( 0 } T H
EN 220
2 1 0 N A $ ( QQ ) = N A $ : QQ= QQ+ l
2 2 0 NEXTP
2 3 0 NEXTS
2 4 0 G O S U B 1 3 8 0 ' S ORT D I R E CTORY
2 5 0 Q Q = QQ - 1 : G R = F R E E ( 0 ) ' # F I L ES
X-Loads and executes a machine-language
file or loads and runs a Basic file. Exercise
caution with machine-language files. If they
overlay the file-management program, they
might not execute. End Basic programs with
RUN "File Directory", instead of STOP or
END. to return control to the file manager. In
this way, you can create a menu-driven disk.
Program Techniques
It is worthwhile pointing out some of the
techniques I used in File Directory. Line 30
checks to see if the machine-language pro­
gram has already been loaded. Lines 100230 read the disk directory into an array
called NA$( ). Line 280 creates a command
string that is decoded in line 4 10 to branch
control to the appropriate code. This is an
excellent way to create a menu without ex­
cessive use of IF statements.
The FOR. . . NEXT loop in line 390 imple­
ments autorepeat by putting &HFF into the
keyboard rollover table. EXEC 44539 is an
efficient way of halting program execution
until a key is pressed. POKE &HFF40 in line
730 stops the disk drive to allow the user to
exchange disks. Line 980 shows how to run
a program whose name is a variable. Notice
the use of double quotation marks. •
William S. Bonnell is an industrial engineer
who specializes in simulation. Address corre­
spondence to him at 239 Mason Ave .. Roches­
ter. NY 1 4626. Please enclose a stamped. self­
addressed envelope for his reply.
2 6 0 N S = I NT ( QQ/ 1 0 + 1 ) - 1 ' # S C R E E N S
2 7 0 CS=0 ' CURRENT S C R E E N
280 CM$=CHR$ ( 8 ) +CHR$ ( 9 ) +CHR$ ( 10 )
+ C H R $ ( 9 4 ) + " K R C H L A P QX B D " ' C O M M A N D
S T R I NG
2 9 0 L=0 : 0L=0 ' L I N E : OL D L I N E
3 00 A $ = I NKEY$ : C LS : FOR I =C S * l 0+ 0
TO CS* l0+9
3 1 0 P R I NT NA $ ( I )
3 20 NEXT
3 3 0 P R I N T @ 2 0 , " SC R E E N " C S + l " O F " ;
3 4 0 P R I NT @ 5 2 , N S + l ;
3 5 0 P R I NT @ 3 2 0 , " < = = = = = = = = = = = o p t i o
ns============> " ;
3 6 0 P R I NT @ 3 5 2 , " A B C D H K L P Q
R X A R ROWS "
3 7 0 P R I NT @ l 4 8 , " S P A C E L E F T " : P R I NT
@ 1 8 0 , G R " GRANS " ;
3 8 0 POKE & H F F 4 0 , 0
3 9 0 FOR K T = 3 3 8 TO 3 4 5 : P O K E K T , 2 5
5 : N E X T : A $ = I N K EY $ : P R I NT @ L * 3 2 + 1 5 ,
C H R $ ( 1 4 3 ) ; : P R I NT @ L * 3 2 + 1 5 , C H R $ ( 1 2
8 ) ; : P R I NT @ 8 4 , " F I L E " C S * l 0 + L + l " O
F " ; : P R I NT @ l l 6 , QQ+ l ; : I F A $ = " " T H
EN 390
4 00 P R I NT @ L * 3 2 + 1 5 , A $ ;
4 1 0 O N I N S T R ( l , C M $ , A $ ) + 1 GOTO 3 9
0 , 4 30 , 4 40 , 4 70 , 5 20 , 58 0 , 6 50 , 7 30 , 77
0 , 8 40 , 9 4 0 , 1030 , 1 6 20 , 9 70 , 1 6 30 , 1 6 4
0
4 2 0 GOT0 3 9 0
4 3 0 CLS : CS=CS-l : I F CS<0 THEN CS=
N S : GOTO 2 9 0 E L S E GOTO 2 9 0 ' L E F T A
R ROW
4 4 0 CLS : CS=CS+ l : I F C S > N S THEN CS
1 = 0 : GOTO 2 9 0 E L S E G O T O 2 9 0 ' R I G H T
A R ROW
450 I
4 6 0 ' DOWN A R ROW
470 L=L+l
4 8 0 I F L > 9 O R C S * l 0 + L > QQ T H E N L =
0
4 9 0 P R I NT @ O L * 3 2 + 1 5 , C H R $ ( 1 4 3 ) ; : 0 L
= L : GOTO 3 9 0 ' DOWN A R ROW
5 00 I
5 1 0 ' U P A RROW
520 L=L-1
530 IF L<0 THEN L=9
5 40 I F CS * l 0+ L >QQ THEN L=QQ-CS * l
0
5 5 0 P R I NT @ O L * 3 2 + 1 5 , C H R $ ( 1 4 3 ) ; : 0L
= L : GOTO 3 9 0
560 I
5 7 0 ' K I L L A N D R E SO R T
5 8 0 P R I NT @ 4 4 8 , " K I L L " NA $ ( C S * l 0 + L
) " ( Y/ N ) ? " ;
5 9 0 A $ = I NK E Y $
6 0 0 I F A $ = " Y " T H E N K I LL NA$ ( CS * l
0 + L ) : N A $ ( C S * l 0+ L ) = " " : GOTO 2 4 0
6 1 0 I F A $ = " N " T H E N P R I NT @ 4 4 8 , " " :
GOT0 3 9 0
620 I
6 3 0 ' RENAME
6 4 0 GOTO 5 9 0
6 5 0 P R I NT @ 4 4 8 , " " ; : I NP U T " N E W N A M E
OR ENTER " ; A $ : I F A $ = " " THEN 300
660 PS=I NSTR ( A$ , " . " ) : I F PS=0 THE
N P S = I NSTR ( A $ , " / " )
6 7 0 I F PS=0 THEN 6 50
6 8 0 A $ = LE F T $ ( M I D $ ( A $ , l , PS- l ) + "
" , 8 ) + M I D $ ( A$ , P S )
6 9 0 R E N AME N A $ ( C S * l 0 + L ) TO A $ : NA
$ ( C S * l 0+ L ) = A $
7 00 GOTO 3 0 0
7 10 I
7 2 0 ' COPY F I L E
7 3 0 P R I NT @ 4 4 8 , " COPY I NG " ; N A $ ( C S
* 1 0 + L ) ; : COPY N A $ ( C S * l 0+ L ) : C L S : PO
KE & H F F 4 0 , 0 : P R I NT " I N S E R T S O U R C E
D I S K . . . H I T ANY K E Y " : E X E C 4 4 5 3 9 : GO
TO 2 9 0
7 4 0 GOT0 2 9 0
750 I
7 6 0 ' HE L P
770 CLS
7 8 0 P R I NT " A AGA I N
- R E S O R T THE
- R E R EA D THE
D I R E CTORY B B EG I N
D I R E C TORY C COPY
- COPY TO OT
- P R I NT SORT
HER DISK
D DUMP
ED D I R .
H help
- D I S P L A Y TH
I S SCREEN
- D E L E T E F RO
K K I LL
M DISK
L L I ST
- L I S T AN A S
CII FILE"
7 9 0 P R I NT " P P ROTECT- C O P Y D I R / F
- END THE PR
AT TO G R 6 8 Q QUIT
OGRAM
R RENAME - RENAME F I L
- R U N A P ROG
E
X EXEC
RAM
A
A RROW
- P R EV I OU S F
-
-
DISKETTES AND COCO SOFTWARE
TRS-80 + MOD I, 1 1 1, COCO. Tl99 /4a
5.25" DISKS EACH 1 0·PACK $12.50-SSDD/DSDD $20-DSQD
TIMEX 1 000 , OSBORN E , others
GOLD PLUG
-
American-made, guaranteed 1 00% quality, with Tyvek jackets, hub rings, and labels
80
Eliminate disk reboots and data loss due to oxi­
dized contacts at the card edge connectors.
GOLD PLUG 80 solders to the board edge con­
nector. Use your existing cables. (if gold plated)
�o
rJ<Y....�
old Plug-BG
11111 1 11111111111111
$7 .95
INCL
29.95
Can/Mex $4 .
TEXAS 5% TAX
Available at your favorite dealer or order direct from
E.A.P. CO.
P.O. BOX 1 4
VISA
-
KELLER, TEXAS 76248
(8 1 7) 498-4242
Circle Reader Service card #21 6
+ trademark Tandy Corp
SUPER SLEUTH DISASSEMBLERS EACH $99·FLEX $101 -0S/9
OBJECT·ONL Y versions: EACH $50-FLEX,OS/9 ,COCO
interactively generate source on disk with labels, include xref, binary editing
specify 6800, 1 , 2,3,5,8,916502 version or 280/8080,5 version
OS/9 version also processes FLEX format object file under OS/9
COCO DOS available in 6800, 1 , 2,3,5,8,916502 version (not Z80/8080,5) only
CROSS-ASSEMBLERS EACH $50-FLEX,OS/9 ANY 3 $1 00 ALL $200
specify for 1 80x,6502,680 1 , 6804,6805,6809,Z8,Z80,8048,8051 ,8085,68000
true, modular, free·standing cross-assemblers in C, with load/unload utilities
8-bit (not 68000) sources included with all cross-assemblers (for $200)
ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1 , 6809
39. 95
Don't wait any longer
Foreign $ 7 .
EACH $50-FLEX,OS/9
menu-driven with terminal mode, file transfer, MODEM?, XON-XOFF, etc.
f()( COCO and non-COCO; drives internal COCO modem port up to 2400 Baud
specify for 6800/1 , ( 1 4)6805. 6502, 6809 OS/9, Z80 FLEX
$ 1 6. 95
USA shipping $ 1 . 45
OBJ ECT·ONLY versions:
OBJECT-ONLY versions: EACH $50·COCO FLEX,COCO OS/9
Ground tab extensions
Disk Drives (all R . S . )
Gold Disk Cable 2 Drive
CMODEM TELECOMMUNICATIONS PROGRAM $1 00-FLEX,OS/9
DEBUGGING SIMULATORS EACH $75-FLEX $1 00-0S/9
COCO Disk Module (2)
Four Drive Cable
ILE
V A R ROW
- C U R S O R TO
NEXT F I LE
< - A R ROW
- S ELECT PRE
V. SCRE E N "
8 0 0 P R I NT " - > A RROW
- S E L E C T NEX
T SCREEN " ;
8 1 0 P R I NT @ 4 8 0 , " H I T ANY K E Y TO C
ONT I N U E " ; : E X E C 4 4 5 3 9 : GOTO 3 0 0
820 I
8 3 0 ' L I ST AN A S C I I F I L E
8 4 0 CLS
8 5 0 O P E N " I " , l , NA $ ( C S * l 0+ L )
8 6 0 SW= E O F ( l )
8 7 0 I F SW T H E N C L O S E : P R I NT : P R I NT
" H I T E N T E R TO CON T I N U E " : E X EC 4 4 5 3
9 : C L S : GOTO 3 0 0
8 8 0 L I N E I N PUT # l , A $ : P R I NT A $
8 9 0 A $ = I NK E Y $ : I F A $ = " " THEN 8 6 0
9 0 0 I F A $ = " Q " T H E N SW= l : GOT0 8 7 0
9 1 0 E X E C 4 4 5 3 9 : GOTO 8 6 0
920 I
9 3 0 ' R E S O R T D I R E CTORY
9 4 0 GOSUB 1 3 8 0 : GOTO 300
950 I
9 6 0 ' R U N B A S I C OR E X EC M L
9 7 0 P R I NT @ 4 4 8 , " E X E C UT E " NA $ ( C S *
10+L ) ;
9 8 0 I F R I G H T $ ( NA $ ( C S * l 0+ L ) , 3 ) = " B
A S " THEN RUN " " +NA$ ( CS* l 0+ L )
9 9 0 I F R I G H T $ ( NA $ ( C S * l 0+ L ) , 3 ) = " B
I N " T H E N LOADM " " + N A $ ( C S * l 0 + L ) : E X
E C : GOTO 3 0 0
1 0 00 P R I N T " WRONG F I L E T Y P E . . . H I T
A K EY " : E X E C 4 4 5 3 9 : GOTO 3 0 0
1010 I
1 0 2 0 ' G E T OR SAVE D I R E CTORY
1030 CLS
1 0 4 0 P R I NT " p ROT E C T I ON M E N U "
1 0 5 0 P R I NT " l SAVE D I R E CTORY TO
Listing continued
GRAN 6 8 "
MC/VISA
6502 to 6809
$75-FLEX $85·0S/9
6800/1 to 6809 and 6809 to position-independence $50-FLEX $75·0S/9
FULL-SCREEN FLEX TSC XBASIC PROGRAMS with
cursor control
$50 w/source, $25 without
$100 w/source, $50 without
$100 w/source, $50 without
$100 w/source, $50 without
DISPLAY GENERATOR/DOCUMENTOR
MAILING LIST SYSTEM
INVENTORY WITH MAP
TABULA RASA SPREADSHEET
DISK AND XBASIC UTILITY PROGRAM LIBRARY $50-FLEX
edit disk sectors. sort directory, maintain master catalog , do disk sorts, etc.
Computer Systems Consultants, Inc.
1 454 Latta Lane, Conyers, GA 30207
Telephone 404-483-1 7 1 7 or 4570
Circle Reader Service card #223
Most programs in source: give computer, OS, disk size.
Contact us for full catalog, dealer, and services info.
,. 25% off multiple purchases of same program on one order.
VISA and MASTER CARD accepted; US funds only, please.
Add GA sales tax (If In GA) and 5% shipping.
/9 tm Micfoware: COCO Im Tandy.
FLEX tm Technical Systems Consultants: OS
November 1 985
HOT Coco
31
1 ,0 6 ,0 P R I N T " 2 GET D I R E CTORY F ROM
GRAN 6 8
1 ,0 7 ,0 I N PUT " E N T E R l O R 2 " ; A
1 ,0 8 ,0 ON A GOTO 1 1 1 ,0 , 1 2 7 ,0
1 ,0 9 ,0 GOTO 1 ,0 3 ,0
1 1 ,0 ,0 ' S AVE D I R E CTORY T O G R 6 8
1 1 1 ,0 I N P U T " E N T E R DAT E ( M M / D D / Y Y ) "
; DA $
1 1 2 ,0 DS K I $ ,0 , 1 7 , 2 , A $ , B $
1 1 3 ,0 I F M I D $ ( A $ , 6 8 , l ) = C H R $ ( & H C 9 )
T H E N 1 1 6 ,0
1 1 4 ,0 I F M I D $ ( A $ , 6 8 , l ) = C H R $ ( & H F F )
T H E N 1 1 6 ,0
1 1 5 ,0 P R I NT " G R A N 6 8 I N U S E . . . CONT
I N UE ( Y / N ) " : I N P UT Z $ : I F Z $ = " Y " TH
EN 1 1 6 ,0 E L S E 3 ,0 ,0
1 1 6 ,0 M I D $ ( A $ , 6 8 , l ) = C H R $ ( & H C 9 )
1 1 7 ,0 D S K O $ ,0 , 1 7 , 2 , A $ , B $
1 1 8 ,0 D S K O $ ,0 , 3 4 , 1 1 , A $ , B $
1 1 9 ,0 FOR D S = 3 TO 9
1 2 ,0 ,0 D S K I $ ,0 , 1 7 , D S , A $ , B $
1 2 1 ,0 . I F D S = 9 T H EN M I D $ ( B $ , 1 2 ,0 , L E
N ( DA $ ) ) = D A $
1 2 2 ,0 D S K O $ ,0 , 3 4 , D S + 9 , A $ , B $
1 2 3 ,0 N E X T D S
1 2 4 ,0 M I D $ ( B $ , 1 2 ,0 , 8 ) = D A $
1 2 5 ,0 GOT 0 3 ,0 ,0
1 2 6 ,0 ' G E T D I R ECTORY F ROM G R 6 8
1 2 7 ,0 D S K I $ ,0 , 3 4 , 1 8 , A $ , B $
1 2 8 ,0 D A $ = M I D $ ( B $ , 1 2 ,0 , 8 ) .
1 2 9 ,0 P R I NT " DA T E L A S T SAVED WAS
" DA $
1 3 ,0,0 I N PUT " CONT I N U E R E STOR E ( Y/ N )
" ; A $ : I F A $ < > " Y " T H E N 3 ,0 ,0
1 3 1 0 FOR D S = 2 TO 9
1 3 2 ,0 D S K I $ ,0 , 3 4 , D S + 9 , A $ , B $
1 3 3 ,0 D S K O $ ,0 , 1 7 , D S , A $ , B $
1 3 4 ,0 N E XT DS
DAISY
1 3 5 ,0 GOTO 3 ,0 ,0
1 3 6 .0 I
"
1 3 7 ,0 ' M L SORT ROUT I N E ( B I L L B A R D
E N - J UN . 8 2 T R S 8 ,0 M I C ROCOM P U T E R
N EWS P . 1 3 M O D I F I E D B Y M E )
1 3 8 ,0 A = .0 : N N = .0
1 3 9 ,0 D E F U S R,0 = & H ,0 E ,0 2
1 4 .0 .0 N N = V A R P T R ( NA $ ( ,0 ) )
1 4 1 ,0 POK E & H ,0 E ,0 ,0 , I NT ( N N / 2 5 6 )
1 4 2 ,0 P O K E & H ,0 E,0 1 , N N - I NT ( N N/ 2 5 6 ) *
256
1 4 3 ,0 A = U S R S ( ,0 )
1 4 4 ,0 R E T U R N
1 4 5 .0 I
1 4 6 ,0 ' M L SORT LOA D E R
1 4 7 ,0 P R I N T " LOA D I NG MA C H I N E LANGU
AG E S O RT " : FO R A D D R = & H ,0 E ,0 2 TO & H ,0
E 6 8 : R E A D A $ : PO K E A D D R , VA L ( " & H " + A
$ ) : C K = C K +VAL ( " & H " + A $ ) : N E X T
1 4 8 ,0 I F C K < > l ,0 8 0 5 T H E N P R I NT " E R R
O R I N TYP I NG M L S O RT " : STOP
1 4 9 ,0 DATABE , ,0 E , ,0 ,0 , 3 4 , l ,0 , E E , E 4 , A E
, 5 E , 3 ,0 , 1 F , 4 F , 3 4 , 1 2 , A 6 , C 4 , 2 7 , 2 A , A
6 , C 4 , E 6 , 4 5 , A,0 , 4 5 , 2 4 , ,0 2 , E 6 , C 4 , 3 4 ,
,0 1 , A E , 4 2 , l ,0 , A E , 4 7 , 6 D , 4 5 , 2 6 , ,0 4 , 3 2
, 6 1 , 2 ,0 , 2 9 , A 6 , 8 ,0 , A,0 , A,0 , 2 7 , ,0 4 , 3 2 , 6
l , 2 0 , ,0 5 , 5 A , 2 6 , F 3 , 3 5 , ,0 1 , 2 3 , l 8 , A E ,
4 2 , l ,0 , A E , 4 7 , A F , 4 7 , l ,0 , A F , 4 2 , A 6 , C 4
, E 6 , 4 5 , E 7 , C 4 , A 7 , 4 5 , EA , 4 5
1 5 ,0 ,0 DATA E A , E 4 , E 7 , E 4 , 3 3 , 4 5 , A E , 6 1
, 3 ,0 , l F , A F , 6 1 , 2 6 , B ,0 , A 6 , E 4 , 3 2 , 6 3 , 2
6 , Al , 32 , 62 , 39
1 5 1 0 R ET U R N
1 5 2 .0 I
1 5 3 ,0 I
1 5 4 ,0 ' D I R E C T I O N S
1 5 5 ,0 C L S
1 5 6 ,0 P R I N T " T H I S P ROGRAM W I L L P R
E S E NT T H E
CONT E N T S O F YOUR D I S
WHEEL
New Smith Corona L · 1 000
True l e t t e r q u a l i t y p r i n t e r for less t h a n the cost of a n
o ff i c e t y pew r 1 t e r 1 P r i c e d $500 less t ha n o t h e r p o p u l a r
d a i s y wheel p r i n t e r s 1
FREE
K SORTED
I N B L O C K S O F 1 .0 F I L E
S.
YOU
M A Y T Y P E IN COMM A N D S
THE F I L E S U C H A S K I L
N E X T TO
L , COPY
O R R E NA M E .
T H E S E WI
L L ACT ON
T H E ADJACENT F I LE . "
1 5 7 ,0 P R I NT : P R I N T " YOU MAY A L S O T
Y P E I N C E RT A I N
COMMANDS WH I C H
W I LL CHANGE T H E
V I EW .
FOR E X A
AGA I N O R T H E A
MPLE HELP , QUIT
R ROW K E Y S .
HELP
W I L L G I V E YOU
THE S P E C I F I C
A C T I ON S FOR EA
C H K EY . "
1 5 8 ,0 P R I NT : P R I N T " H I T A K E Y TO C O
N T I N UE " ; : EX E C 4 4 5 3 9 : C L S
1 5 9 0 P R I N T " T H E ·P ROG R A M CONT A I N S
A M AC H I N E
LANGUAGE S O R T A N D A U
TO R E P E A T
K E Y FOR C U R S O R AND S
T H E P ROTE
CREEN
MOVEM ENT .
CT F EA T U � E
W I L L STORE A N D R E T R I
EVE T H E
F I L E A L L OC A T I ON T A B L
T R A C K S TO G R A N 6 8 . "
E AND D I R .
1 6 ,0 ,0 P R I NT : P R I N T " B E C A U S E ONLY 1
GRAN ( 6 8 ) I S
U S E D F O R PROTE
C T I ON , T H E
NUMBE R O F F I L E
S I S L I M I T E D TO
LESS THAN 5 6 F
ILE/DISK . "
1 6 1 0 P R I NT : P R I NT " H I T A K E Y TO CO
NT I N U E " ; : E X E C 4 4 5 3 9 : C L S : GOTO 6,0
1 6 2 ,0 C L S : STOP ' QU I T COMMAND
1 6 3 ,0 R U N ' R EAD D I R E CTORY AGA I N
1 6 4 ,0 ' H ARDCOPY
1 6 5 ,0 P R I NT @ 4 1 6 , " E N T E R T I T L E OF
D I R E CT O RY " : I N PUT T I $
1 6 6 ,0 P R I NT # - 2 , T I $
1 6 7 ,0 FOR I = .0 T O QQ : P R I NT # - 2 , N A $ (
I)•
1 6 8 ,0 N E X T
1 6 9 0 PR INT # - 2
END
1 7 ,0 ,0 GOTO 3 ,0 ,0
1 0 DISKETTES
OR
20 C-20 CASS ETTES
A su bscription t o the 'Coco-Cassette' gets you a tape
SALE P R I C E :
or disk full of 1 0 quality programs delivered to you by
$249
first class mail every mont h . The documentation incl uded
will help you run great util ities like 'Word Processor,· and
'Budget Analyzer,' or enjoy great games l i ke ' Frogj ump'
and 'Cate rpillar Cave' FOR AS UTILE AS 46 CENTS
EAC H !
F E AT U R E S :
* Limited offer * Subscribe for a year on cassette
* F r i c t i o n feed
and receive 20 Free C-20 ca ssettes or subscribe for a
* C h a n g e a b le d a i s y wheels
double density d i skettes !
* 1 5 cps
year on disk and receive 1 0 Free 51/4 single sided
1 20 wpm
* P a r a l le l or serial
i nter face
* C om p a t i b le w i t h R I S
Now available o n disk!
Apple
PRICES
etc
Circle Reader Service card #456
S U N LOCK SYSTEMS
2 1 0 Connor Rd.
Mechan icsville, Va. 231 1 1
We accept
MasterCard,
Visa and CODs
1
Single Copies
ADD I T I ONAL P R I N T E R SPEC I AL S
Epson
D k i data
Comre x C R l l
RX80 $229
ML92 $369
Comrex
Mll 92 369
S t a r SG l O
L X BO
249
649
R X l O O 399
ML84
F XBO+ 369
O k i 20 1 4 9
F X 100+499
ML93
J X 80 499
ML 1 82 2 3 9
579
111
$359
C l to h 7 500 $ 2 3 9
599
C l to h F l O
899
239
C l to h 1 5 5 0
449
Star PwrT p . 329
C i to h 8 5 1 0
319
S t r . R ad x l O
519
Sv . Reed 5 5 0 4 4 9
Gemi n i
349
Sv . Reed 5 0 0 3 7 9
359
E p s o n 1 5 00
15x
De l ta 1 0
I n V i r g i n i a c a l l 804-746-1 600
32
HOT CoCo
November 1 985
* 1 6K extended required
.
.
* Some programs require 32K, and or d i s k
* Over 3000 satisfied customers
* Back issues available fro m
July
"82
(over 280 programs to choose from!)
* Also available for Commodore 64.
5500 7000
3000 4000
600
800
Mich Res add 4•.
Overseas ADO $ 1 0 10 subscription
and $ 1 .00 10 srngle rssues
PERSONAL CHECKS WELCOMEI
Circle Reader Service card #236
T & D Subscription Software
899
TO O R D E R CALL TOLL F R E E 800·368·9 1 91
YR ( 1 2 ISSUES)
6 MO (6 ISSUES)
TAPE DISK
�
11\.
"\l!fl .
P.O. BOX 256-C
HOLLAND, Ml 49423
-
(6 1 6) 396-7577
'
VISA
l-
...
.,.
�
�
"""
"
0
.....
�
"'
.....
'
7
""'
�
HOT CoCo and You.
Those with the latest and most thorough in­
formation run their computers with confidence.
Those without it are run ragged with frustra­
tion.
Color Computerists who've gained the upper
hand read BOT CoCo, the monthly magazine
that unlocks the full potential of TRS-80 • and
MC- 1 0 • Color Computers.
BOT CoCo's inside stories can make you and
- - ----- - - ------- ----,
t I want to be part of a
D YES • brilliant team . . .
Send me 1 2 issues of HOT CoCo for the low
price of $24.97 . I'll save 30% off the newsstand price.
·
0 Payment enclosed
Address
City
0 Bill me
-------
______
State___ Zip
_
_
_
Canada & Mexico $27.97, one year only, US funds drawn on
US
. Foreign surface '44 . 97, one year only, US funds
drawn on US bank. Foreign ainnall please Inquire.
Allow 6 to 8 weeks for delivery.
bank
HOT CoCo • PO Box 975
35NB4
Farmingdale , NY 1 1 737
your Color Computer a brilliant team . By sub­
scribing to BOT CoCo for the low one-year price
of $24.97, you'll get information-packed issues
at 30% off the cover price!
• BOT CoCo specializes in presenting time-effi­
cient, money-saving programs for business,
home, and school. Easy to use, and practical!
• Novice and expert users alike will benefit from
BOT CoCo's tips and tutorials. Sharpen your
skill. Watch your CoCo become more versatile!
• Graphics? Discover how easy it is to create
your own!
• Games? BOT CoCo's wide assortment pro­
vides hours of entertainment and challenge for
the entire family.
• Looking to gain an advantage by adding more
hardware or software? Read our reviews first­
decide for yourself what's worth its weight in
gold, and what isn't worth a hill of beans.
Everything on the pages of BOT CoCo can
bring out the best in you and your Color Com­
puter. A wealth of knowledge-for an entire
year-for just $24.971
Order your subscription today by filling in the
coupon, or by calling TOLL FREE 1 -800-2585473. In New Hampshire, call 1 -924-947 1 .
• TRS80and MC- lO ColorComputers are reglsterc6 1nldemarks ofthe Radio
Shack Tandy Division ofTandy Corp.
This program is available on our Instant CoCo
TELEWRITER UTILITY -----�---
See the Instant CoCo ad
by J . D . G erman
Y
ou have just been elected secretary of your local (a) garden club.
(b) Lions Club, (c) soccer league, or (d) all of the above. and you
are looking for a mailing-list program that's easy to use and inexpen­
sive. If you have the Telewriter-64 word-processing program, look no
further-you already have a terrific mailing-list program. Check the
ads to see if you can find one with full-screen editing, a 5 1-column
display, imbedded printer codes, variable line spacing, merging. chain
printing for long lists. plus search and replace features for deleting
names or changing addresses. If you find such mailing-list software,
you can bet it will be expensive. But with careful formatting. you can
type your mailing list with Telewriter-64 and get all these features
without paying a cent.
There is. however, one essential feature that Telewriter-64 lacks. A
mailing list program must be able to sort and rearrange the list. usu­
ally alphabetically by last name or according to zip code. Such sorts
are useful for finding duplicate entries and for postal bulk-rate pre­
sorting. With the ASCH Save/Read-ln program provided with Telewri­
ter and the program described in this article.
you can easily sort your mailing list by name,
zip code, or-with simple program modifica­
tions-by membership number, shoe size, hair
color. or any other item you want to include in
your mailing list.
Typing the Mailing List
The key to using Telewriter for mailing lists
is the format. which. as you can see from the
example in Table l , is simple. As with any
Telewriter-64 text that you don't want right­
and left-justified. you must use a caret semi­
colon (•:) for the beginning and ending lines.
The second line is used for the mailing-list ti­
tle. which must be preceded by a caret T (•T)­
the code for a nonprinting comment. Finally.
after the title line and between each name-and­
address block. you must type a caret N (•N).
This advances the printer to the next mailing
label when the list is printed.
Using this format. a 32K Color Computer
with Telewriter-64 has room for 200 to 300
names per mailing list, depending on the av­
erage length of the names and addresses. A 1 6
or 64 K computer would hold correspondingly
shorter or longer lists. Fortunately. Telewriter64 has provisions for chain printing any num­
ber of ftles. so this maximum is not really re­
stric t i v e . For a list of l .000 n a m e s . for
example. you could quickly presort the names
into those beginning with the letters A-G, H­
M. N-S. and T-Z: type them as four lists: sort
each one: and chain print them.
elsewhere
cassette.
in this
issue.
Teach your old word processor
new tricks.
D
US Posta
Printing the Mailing List
34
HOT Coco
November 1 985
_CoCo_
Mai t wi th
Te ewri ter -64
Domestic Mail
The Telewriter format menu offers several choices that are useful
for printing mailing lists. The most common printing requirement is
to put each name and address on a separate mailing label. For the
standard "Y,6-inch labels ( l -inch spacing from label to label), set the
printer for six lines per inch and the Telewriter-64 format menu to six
lines per page. You will probably also want to set the left margin to
five. With the one-line format-menu choice set at zero, the entire mail­
ing list will be printed at once. For larger or smaller labels. set the lines
per page on the format menu to the appropriate number.
The printing sequence is flexible. If you would like to use sheets
(l:=.:::l)
System Requirements
1 6K RAM
Disk Drive
Disk Extended Color Basic
Telewriter-64
Printer
FOR THE COLOR COMPUTER FROM
Circle Reader Service card 12n
triad pictures corp.
p
containing two or three columns oflabels, use the partial-print feature
to print the first half or third of the list. Then reset the margin, roll the
paper back to the start, and use the partial print for the next portion
of the list. Another variation lets you print names and addresses di·
rectly on envelopes, flyers, or catalogs. In this case. set the lines per
page to 66 and the one-page statement to one. Now each time you roll
in an envelope and press the break key, the printer will print the next
name and address and roll the envelope out into your hand.
wo
98382
D D D D D D D D D D D D D D D D D D D D DD D D DD D D
A 100% JOYSTICK-DRIVEN ILLUSTRATED ADVENTURE!
NO MORE "HUNT-AND-GUESS" ON THE KEYBOARD!
HUNDREDS OF CHALLENGING SITUATIONS!
To sort a Telewriter-64 mailing list, type in and save the TW Sort
program shown in Listing L The program is designed for the list for­
mat given in Table 1 . If your mailing list requires a different format­
an extra address line for a membership or phone number, for in­
stance-refer to the last section for help in modifying the program.
Unfortunately, you cannot use commas or colons in addresses be­
cause they are interpreted as Disk Basic commands.
The procedure for sorting mailing lists is simple. First, type the
mailing list in the proper format using Telewriter-64; then return to
the Telewriter-64 menu and enter Basic by pressing 8. Load the ASCII
Save/Read-In program provided with Telewriter-64. Put a newly for­
matted disk in the drive and save the mailing list as ASCII code. Be
sure to use the file name, SORT ML, when saving the list. Tum off
and restart the computer; then load and run TW Sort. The program
prompts you to press the play button and select the sort method. Go
watch a football game or your favorite video movie. (More on sort times
later.) When the sort is finished, the program offers you the choice of
printing the sorted list for a quick check or saving it to disk. Follow
the prompts to save the sorted list on disk.
Now, reload Telewriter-64 and the ASCII Save/Read-In program as
before. Read in the sorted mailing list, which is now called SOR­
TEDML. Return to Telewriter-64's edit mode and check the list to be
sure it is still properly formatted. Then return to the Telewriter-64
menu and save the sorted list on another disk in the normal (non­
ASCII) Telewriter-64 file format. This will make it easy to load and use
later without the ASCII Save/Read-In program. You can now print
labels, periodically update the list, or r.::=====:::;i
pass it along to the next person that
A,
gets stuck with the secretary's job.
AT Club Mailing List
The highly detailed black & white 1//ustrat1ons put even the best color
adventure graphics to shame . . . the first of a whole new kind of
'pomt-and-kfick ' adventure . . . the wave of the futurell
WAR of the WORLDS Chapter One - The Landing
SPECIAL INTRODUCTORY OFFER -
The Sorting Program
John Doe
1 23 Fourth Street
New York NY 10102
AN
TW Sort is designed so that you
can easily adapt the format to your
needs. Each section of the program
Mary Smith
is labeled to show its function, and
987 Main Street Apt. #4
the structure follows-as much as
Miami FL 35508
possible-a logical order. To see how
AN
you can modify the program; let's
Btll Jones
add a membersh ip-n u m ber line
55 Washington Ave.
above each name.
Dallas TX 75234
First, you must diinension a new
AN
variable, call it MEMNUM$, in line
Pat Hill
1 5. Change the input routine to read
P.O. Box 456
four lines per address block by chang­
Los Angeles CA 98240
ing the 3 in line 1025 to a 4. Next, add
AN
a new membership-number sort rou­
J. C. Nickel
tine after the zip-sort routine. Since
Route # I Box 76
the first line of each list item would
Ojo Caliente NM 87649
contain only the membership num­
A '.
ber, you don't need a subroutine to
separate that number as you do with
Table I . Example of Proper
the last-name and zip sorts. Simply
Format for Original (Un­
write program lines to compare each
sorted) Mailing List
membership number with the oth- !!::====�
It In HOT Coco."
$16.95
SOLD SEPARATELY for $18.95 each:
AN
saw
box 1 299 sequ1m.
WAR0�WORl0DS
Sorting the List
Tell them "I
o
WAR of the WORLDS Chapter Two - The Quest
WAR of the WORLDS Chapter Three - The Lost Hope
SPECIAL PACKAGE PRICE - All 3 Chapters for $39.95
SUPPLIED ON CASSETTE
REQUIRES 64K AND ONE RADIO SHACK-TYPE JOYSTICK
O rd e r f Orm
• • • • • • • • • • • • • • • • • • • • • • • • •
Please send me:
��������- $ ����­
������
0 Bill me
0 Payment enclosed
Add
$ ����-
S3 shipping and handling . . . $3
TOTA L $
name
address
state
city
zip
_
_
_
_
TRIAD PICTU RES
P.O. lox 1 299
Sequim, WA 91312
(206) 613-6459
C A L L OR W R I T E FOR CATA LOG.
..
IN
AUSTRALIA
ORDER TRIAD PICTURES SOflWARE FROM
SOFTWARE SPECTRUM. P 0 BOX 2101
ADELAIDE. SOUTH AUSTRALIA. 5001
(08) 211 8763 OR 51 4868
November 1 98 5
HOT CoCo
35
ers. (Lines 2525-2560 perform this function for the zip codes.) Finally,
write PRINT statements for MEMNUM$(1) in the print-sorted-list and
save-sorted-list routines.
In an effort to keep the program short and simple, I used a rather
primitive sorting technique. As a result, the sorting times get long for
large lists-over two hours for 250 names. But since you don't have
to perform sorts frequently, this shouldn't be a severe shortcoming. If
none of the zip codes you use contains nine digits, delete line 2 1 0 to
speed up the sort.
Two fmal notes o n the TW Sort program. I f you have an early ver-
Program Listing. TW Sort.
1 0 P C L E AR l : C L E A R 1 6 000
15 D I M N A M E $ ( 2 5 0 ) , A D D R $ ( 2 5 0 ) , CS Z
$ ( 2 50 )
2 0 CLS
J 0 GOTO 7 0 U
1 0 0 ' * * * S UB ROUT I N E S * * *
1 1 0 ' * * * LA S T N A M E S EP ARATOR * * *
1 20 Z = L E N ( N $ )
1 3 0 F O R K = l TO Z
1 4 0 L N $ = R I GH T $ ( N $ , K )
1 5 0 I F L E FT $ ( LN $ , l ) = " • T H E N L N $
= R I G H T $ ( LN $ , K - l ) E L S E N E X T K
1 6 0 R ET U R N
1 8 0 ' * * * Z I P S E P A RATOR * * *
2 0 0 Z I P $ = R I G HT $ ( CS Z $ , 5 )
2 1 0 I F L E FT $ ( Z I P $ , l ) = " - " T H E N Z I
P $ = R I G H T $ ( CS Z $ , 1 0 )
2 2 0 I F VA L ( Z I P $ ) = 0 T H EN Z I P $ = " "
2 J 0 R ET U R N
2 50 ' * * * I N K E Y $ * * *
2 6 0 P R I NT @ 4 8 J , " p r e s s a ny k ey t o
co n t i n ue " ;
2 7 0 S O U N D 1 5 0 , 2 : SOUND 5 0 , 2
2 8 0 A $ = I N K EY $
2 9 0 I F A $ = " " TH E N 2 8 0 E L S E R ET U R N
295 I
J00 P R I NT @ 4 8 J , " p r e s s 1 o r 2 t o
c on t i n u e " ;
3 1 0 SOUND 5 0 , 2 : SOUND 1 5 0 , 2
J 2 0 C H $ = I N K E Y $ : C H =V A L ( C H $ )
3 3 0 I F C H = l OR C H = 2 T H EN R ET U RN
ELSE J20
3 4 0 ' * * * EN D O F S U B ROUT I N E S * * *
350 I
1 000 ' * * * M A I L I N G L I ST I N P UT * * *
1 0 1 0 O P E N " I " , t l , " SORT M L "
1 0 1 5 I N?UTt l , CC $ , T I T L E $ , N P $
1 0 1 7 P R I NT " MA I L I NG L I ST T I T L E D "
1 0 1 8 P R I NT R I G H T $ ( T I TL E $ , L E N ( T I T
L E$ ) - 3 )
1 0 1 9 P R I NT " I S NOW B E I NG S O RT E D "
U20 EL=l
1025 FOR RL=l TO J
1 0 3 0 I F E OF ( l ) T H E N C LOS E f l : E L = E
L - l : GOTO 3 5 0 5
1 0 4 0 I N PUT f l , L $ ( R L )
1 0 5 0 I F L E FT $ ( L $ ( R L ) , l ) = • - • T H EN
1 0 2 5 E L S E N E XT R L
1 0 6 0 I F R I G HT $ ( L $ ( 1 ) , l ) = " " T H EN
L $ ( l ) = L E FT $ ( L $ ( 1 ) , L E N ( L $ ( 1 ) ) - l ) :
GOT0 1 0 6 0
1 0 7 0 I F R I G HT $ ( L $ ( 3 ) , l ) = " " T H E N
L $ ( 3 ) = L E FT $ ( L$ ( J ) , L E N ( L $ ( 3 ) ) - l ) :
GOTO U 7 0
1 0 8 0 ON C H GOTO 2 0 1 0 , 2 5 1 0
2 0 0 0 ' * * * LAST N A M E SORT * * *
2 0 1 0 I F E L = l T H EN I = l : GOTO 3 0 5 0
36
HOT CoCo
November 1 985
sion of the CoCo, you might have the ROM (read-0nly memory) version
with the PCLEAR bug in it. If you get only an OK prompt when you
run TW Sort, type RUN again. You can also omit all comment lines to
reduce your typing. The G<rrOs and GOSUBs transfer control to the
·
line following the comment. so the program runs with or without the
comments . •
Address correspondence to
J.D.
German, Creative Technical Consult­
ants, Box 652, Cedar Crest, NM 87008.
2 0 2 0 N $ = L $ ( l ) : GO S U B 1 2 0
2 0 3 0 CN $ = LN $
2040 FOR I=l TO EL-1
2 0 5 0 N $ = N A M E $ ( I ) : GO S U B 1 2 0
2 0 6 0 I F CN $ > = L N $ T H EN N E X T I
E L S E J0n
2 0 7 0 I = E L : GOTO 3 0 5 0
2 5 00 ' * * * Z I P S O RT * * *
2 5 1 � I F E L = l T H E N I = l : GOTO 3 0 5 0
2 5 2 0 C S Z $ = L $ ( 3 ) : GO S U B 2 0 0
2 5 2 5 CZ $ = Z I P$
2 5 3 0 F O R I = l TO E L - 1
2 5 4 0 CS Z $ = CS Z $ ( I ) : GO S U B 2 0 0
2 5 5 0 IF CZ $ >= Z I P $ THEN NEXT I
ELSE 30n
2 5 6 0 I = E L : GOTO 3 0 5 0
2 9 9 0 ' * * * N A M E R EORGAN I Z E R * * *
3000 F O R J = E L T O I + l STEP - 1
3 0 1 0 N A ME $ ( J ) = N A ME $ ( J- l )
3 0 2 0 A D D R $ ( J ) �A D D R $ ( J - l )
3 0 3 0 C S Z $ ( J ) = CS Z $ ( J - l )
3040 NEXT J
3050 NAME$ ( I ) =L $ ( 1 )
3060 ADDR$ ( I ) = L$ ( 2 )
3070 C S Z $ ( I ) =L $ ( 3 )
J 0 9 0 E L = E L+ l
3 l n GOTO U 2 5
3 5 0 0 ' * * * SO R T E D L I ST M E NU * * *
3 5 0 5 CLS
3 5 1 0 P R I NT @ 3 , " s o r t comp l e t e -wh a t
ne x t ? "
3 5 2 0 P R I NT @ 9 6 , " l > P R I NT S O RT E D M
A I L I NG L I ST . "
J 5 J 0 P R I NT @ l 9 2 , " 2 > STORE S O R T E D
M A I L I NG L I ST
ON D I S K I N A S
e r r FORMAT . •
3 5 4 0 G O S U B Jn
3 5 5 0 ON C H GOTO 4 0 1 0 , 5 0 1 0
4 000 ' * * * P R I NT S O RT E D L I ST * * *
4 0 1 0 F O R I = l TO E L
4 0 2 0 P R I NT f - 2 , N A M E $ ( I )
4 0 J 0 P R I NT f - 2 , A D D R $ ( I )
4 0 4 0 P R I NT t - 2 , CS Z $ ( I )
4 0 4 5 P R I NT # - 2
4 0 5 0 N E XT I
4 0 6 0 GOTO 3 50 5
5 000 ' * * * SAVE S O RT E D L I ST * * *
5 0 1 0 CLS
5 0 2 0 P R I NT @ J , • t o s a ve s o r t e d ma i
l i ng l i s t •
5 0 J 0 P R I NT @ 6 4 , " A > I NS ERT D I S K FO
R SAVING NEW
F I LE . "
5 0 5 0 P R I NT @ l 2 8 , " B > P R E S S ANY K E Y
T O START S AVE "
5 0 6 0 P R I NT@ l 9 2 , " C > S O R T E D M A I L I N
G L I ST W I L L B E
S AV E D I N A S C I
I FORMAT A S
F I L E N A M E ' SO
RTEDML ' . "
5 0 7 0 P R I NT @ 2 8 8 , " D > TO E D I T , R E N A
ME OR SAVE I N
TW B I NARY FOR
MAT , I N PUT L I ST
T O T E L EWR I T E R
READ- I N PR
U S I NG A SC I I
OGRAM . "
5080 GOSUB 2 6 0
5 1 00 O P E N • o • , 1 1 , • soRT E DM L "
5 1 U P R I NT t l , C C $
5 1 2 0 P R I NT t l , T I T L E $
5 1 2 5 P R I NT t l , N P $
5 1 J 0 F O R I = l TO E L
5 1 4 0 P R I NT # l , NA M E $ ( I )
5 1 5 0 P R I NT f l , AD D R $ ( I )
5 1 6 0 P R I NT t l , CS Z $ ( I )
5 1 7 0 I F I < E L T H E N P R I NT t l , N P $
5 1 8 0 NEXT I
5 1 9 0 P R I NT t l , C C $
5 2 n CLOS E U
5 2 1 )} C L S
5 2 2 0 P R I NT " SO RT E D M A I L I NG L I ST I
S S AV E D .
P R E S S A N Y K E Y TO R E T U
R N TO T H E
LAST M E N U . "
5 2 J 0 GOSU B 2 6 0 : GOTO J 5 0 5
7 0 0 0 ' * * * I NSTRUCT I ON S * * *
7 0 1 0 P R I NT @ 6 , " tw s o r t i n s t r u c t i
ons•
7 0 2 0 P R I NT @ J 2 , " l > Q S E T E L EW R I T E R
TO CREATE A
MA I L I NG L I ST I
N T H I S F O R M AT : "
7 0 3 0 P R I NT @ l 00 , " - ; "
7 0 4 0 P R I NT@ l J 2 , " -T C L U B M A I L I NG
L I ST "
7 0 4 5 P R I NT @ l 6 4 , " - N "
7 0 5 0 P R I NT @ l 9 6 , " JO H N A . D O E "
7 0 6 0 P R I NT @ 2 2 8 , " 1 2 J F I RS T STR E ET
.
7 0 7 0 P R I NT @ 2 6 0 ,
8 7 908 "
7 0 8 0 P R I NT @ 2 9 2 ,
7 0 9 0 P R I NT @ J 2 4 ,
7 1 0 0 P R I NT @ J 5 6 ,
.
" ALBUQUERQUE ,
" -N "
" JA N E S M I T H "
" 2 4 6 8 M A I N S T R E ET
7 1 1 0 P R I NT @ J 8 8 , " AUROR A ,
.
NM
I L 605 1 6 .
7 1 2 0 P R I NT @ 4 2 9 , • - ; •
7 1 J 0 P R I NT " 2 > A SC I I S AV E L I ST AS
' SORT M L ' "
7 1 4 0 GOSUB 2 6 0
7 1 50 CLS
7 1 6 0 P R I NT @ l 0 , " t o u s e tw s o r t "
7 1 7 0 P R I NT @ 6 4 , " A > I N S E RT ASC I I M
D I S K TO B E S O R
A I L I NG L I ST
T ED . "
7 1 8 0 P R I NT @ l 9 2 , " B > S E L ECT S O R T 0
F O PT I ON 1 OR 2 "
7 2 00 P R I NT @ J 2 4 , " l ) N A M E SORT "
7 2 1 0 P R I NT @ J 5 6 , " 2 ) Z I P SORT "
7 2 2 0 GOSUB J n
7 2 J 0 CLS 0
7 2 4 0 GOTO 1 0 1 0
END
GA ME
This program is available on our Instant CoCo cassette.
by Wade J ense
Listen to the clues to
find the thief before
S
your opponents.
omeone has committed a crime. You
and your opponents are private detec­
tives assigned to track down and arrest a
thief. The detective who makes the arrest re­
ceives a reward. Your challenge-to be the
first detective to accumulate enough reward
money to win.
This thief is computer controlled and com­
pletely invisible. But you can hear him. Each
time the thief makes a move on the board. he
triggers a sound on your CoCo. This remark­
able device fo llows every move the thief
makes on the board so you can hear him in
the very act of committing the crime, cross­
ing a squeaking floor, opening a creaky door.
or escaping on the elevators.
Each sound you hear on your
CoCo provides you with a clue to
the thief's location: with
these. you can track him
down. Use your CoCo to
c a l l t h e c o p s . d i re c t
t h e m to the t h ief, a n d
with a little l u c k , the
cops will arrest
him.
See the Instant CoCo ad elsewhere in this issue.
� Halt Thief!
l
Loading
To load, type in the Listing. Check every
line to be sure it agrees with the Listing.
Count the number of items in each DATA
statement to ensure the correct number for
the required READ loops and DIM statements.
After you run the program and display the
board, make sure the yellow, orange. and
dark blue squares are lined up horizontally.
vertically. and diagonally. If they don't line
up, the program will not run correctly. Check
the main body of DATA statements for errors.
The Board
The board is made of graphic character
blocks POKEd onto the screen with two
blocks making up each square space. The
players' and thief's symbols displayed on the
board cover only half of each space so you
can see the color of the space you are on.
The green spaces represent walls that nei­
ther the player nor the thief can move onto
or cross. The yellow and black spaces are
empty: the players can move onto either of
these areas. but the thief can only move on
the yellow spaces. The orange spaces repre­
sent places where the thief might commit a
crime and are treated as yellow spaces for
movement purposes. The dark blue squares
represent doors through which both the thief
and the player can move. The light blue
areas can cover one or more spaces and rep­
resent items such as checkout counters.
desks. statues. and plants. Neither the thief
nor the players can move onto these areas.
The wh ite spaces represent windows into
which neither the thief nor the player can
move. (See Table 1 . )
I n the top right and the bottom left corners
of the board is the symbol EL, which repre­
sents the two elevators on each level. To use
an elevator. position your character on the E
of EL and press U for up or D for down. The
CoCo reprints the screen to the level above
System Requirements
32K RAM
Extended Color Basic
or below you. Your present level ( 1 -4) is
printed in the bottom left corner of the
screen.
Along the bottom is a line of information.
If a question mark appears, it is your prompt
to press a key. Next. in response to this. a
"NO" or an "OK' appears on the subline. OK
indicates that the CoCo can carry out the
function of that key. The next item to appear
is a two-character symbol representing the
last sound clue given. and finally. the name
of the current player. the amount of money
he has. and the number of moves he has left.
Your Turn
At the beginning of your turn. the CoCo
moves the thief and gives corresponding
sound clues and a random number of moves
from 1 to 1 2 . You use one card per turn by
pressing C. The CoCo clears the screen and
displays your three cards. Press the number
of the card you wish to use. and the CoCo
carries out your wish. If you don't want a
card . press five and the CoCo reprints the
screen. You can use a card later: the CoCo
replaces it with another random card.
Color
Rep.
Orange
Crime
Yellow
Empty
Black
Empty
Dark Blue
Door
Green
Wall
Light Blue
Items
While
Window
EL
Elevator
Thief
N
y
y
N
y
N
N
y
Player
N
y
y
y
y
N
N
y
Table 1. Board Information
When you use a " t ip" card, watch the
screen carefully because the CoCo only dis- g
plays a T (the thief's location) for a few sec- �
ands. After you use a "take another turn" §
card. the Coco gives you more moves and a @
chance to use another card. On your turn you i5'
can use all, part . or none of your moves. �
When you press F to finish. the next player g
starts.
November 1 985
HOT Coco
37
�
•t
Player Movement
Eight different keys let you move your
symbols as follows: N moves north: T. north­
east: E. east: V. southeast: S. south: Z. south­
west: W. west: and Q. northwest. Seven other
keys. including U and D. help you on your
mission. R repeats the last clue. and X alter­
nately prints the thief's and player's level.
(See Tables 2 and 3.)
N
North
T
Northeast
E
v
s
z
w
Q
u
D
East
Southeast
South
Southwest
West
Northwest
Up
Down
Table 2. Player Movements
A
Arrest
R
Repeat Clue
C
Use Card
X
X
Display Thief Level
F
Finished
H
Help Table
Display Player Level
Table 3. Player Functions
If the only item displayed on the subline is
a question mark. press X until the complete
subline is displayed. To make an arrest when
you and the thief are on the same space.
press A. The game uses a series of sound ef­
fects beginning with a siren. If you guess cor­
rectly and are on the same space and level as
the thief. you hear shooting: if the police can
catch the thief. you hear another siren. The
CoCo then congratulates you and starts an­
other thief on a spree of crimes.
If. however. the thief escapes. the CoCo
sounds the getaway and five clues. moving
the thief five times. You must listen carefully
to get all five sound clues. If you mistake the
location of the thief. the CoCo gives a low­
pitched sound and punishes you for a false
Program Listing. Halt Thief
*
HALT T H I E F I I
2 '*
6 C L S : F O R L = 2 9 6 9 6 T0 3 0 2 0 7 : P O K E L , 1 2
8 : N E XT
7 P O K E 6 5 4 7 8 , 0 : P O K E 6 5 4 8 1 , 0 : PO K E 6 5
4 8 2 , 0 : PO K E 6 5 4 8 5 , 0 : PO K E 6 5 4 8 7 , 0 : PO
K E 6 5 4 8 9 , 0 : PO K E 6 5 4 9 0 , 0
8 FOR L = l TO l l 0
9 R E AOST
1 0 POK E ( S T + 2 9 6 9 6 ) , 2 5 5
38
HOT Coco
November 1 985
Difficulty
Level
Number of
Cards
Chances of Thief
Escaping
Maximum
Rolls
Reward
Money to
Win
1
2
3
4
14
12
10
6
20%
25%
33%
50%
12
10
8
6
$800
$700
$600
$500
$2,000
$2.500
$3,000
$3,500
Table 4. Influence of Difficulty Level
arrest by taking away $ 1 00 and all your re­
maining moves.
Thief Movement
The CoCo only moves the thief in three cir­
cumstances: at the beginning of each play­
er's turn and when a player uses a "take
another turn ' " card. when a player uses a
'"take an extra clue'" card. and when the thief
gets away during an arrest. Every time the
thief moves. the CoCo sounds a clue and
prints the symbol on the subline. For every
clue sounded. the thief moves two full spaces
horizontally. vertically. or diagonally.
When the thief escapes an arrest. five clues
sound. so he moves 10 spaces: for every use
of an "ex tra clues" card , he moves two
spaces per clue. When a thief moves. he
never goes directly to his previous space. but
may do so in two moves. The thief moves on
every other space and is never found on a
black space.
Four clues can appear on the subline. The
first clue to appear in the game is CR. mean­
ing the thief has just committed a crime and
is on an orange space. When he has opened
a door. DR appears on the subline and he is
on a dark blue space. If the thief has just
taken two steps across an open floor. SP ap­
pears and he is on a yellow space. You know
that the thief is on one of the two EL spaces
when EL appears on the subline.
When the thief uses an elevator the CoCo
picks a random number to see if he goes up
or down. He will always go from the first to
second level or from the fourth to the third.
The CoCo prints the thief's level and the cur­
rent player's level. As long as the thief's level
differs from the player's. the CoCo reprints
the thief's level before giving the next clue.
1 1 SOUND 5 5 , l : N E X T
1 2 FORR=lT020
1 3 R E A DV , Z
1 4 P OK E ( V+ 2 8 6 7 4 ) , Z
1 5 SO U N D 2 0 0 , 5 : N E X T
1 6 DATA 3 7 , 4 1 , 4 3 , 4 4 , 4 5 , 4 6 , 4 7 , 4 9 , 5
5 , 56 , 57 , 58 , 59 , 2 5 4 , 2 5 3 , 3 1 7 , 3 7 8 , 37
6 , 37 5 , 374 , 37 3 , 3 7 2 , 370; 369 , 368 , 36
7 , 36 6 , 3 6 4 , 3 6 0 , 3 56 , 2 26 , 2 2 7 , 6 9 , 7 3 ,
7 5 , 7 9 , 8 1 , 8 9 , 2 5 2 , 2 51 , 3 16 , 3 1 5 , 34 6 ,
3 40 , 3 3 6 , 3 3 2 , 3 2 8 , 3 2 4 , 29 2 , 260 , 2 28 ,
2 29 , 1 6 5 , 1 3 3 , 10 1 , 10 2 , 1 0 3 , 104 , 10 5 ,
1 0 7 , 1 08 , 1 09 , 1 1 0 , l l l , l l 3
Tracking the Thief
At any given moment. the thief might be
at one of several locations. You must use
your knowledge of where and when a thief
moves. along with his previous location to
determine where he might be.
When tracking the thief. watch every
space that is exactly two spaces away from
the thief's possible location . Remember also
that the clues given during the other players'
turns are just as important as the clue given
during your turn. You can narrow the possi­
bilities down to two or three if you don' t
know the thief's exact location.
Playing the Game
After display i n g t h e help scree ns and
prompting you to choose the level ofdifficulty.
the CoCo asks for the name of each player.
Submit a name containing three to eight char­
.
acters. The program renumbers the names in
a semirandom order. assigns a symbol to each
name. and prints the renumbered names and
the players' symbols for use on the board. The
CoCo randomly assigns each player three
cards and displays them for each player. The
game starts on a randomly chosen floor. Fi·
nally. the CoCo places the thief on a random
crime space. sounds the clue. and turns the
keyboard over to the first player.
To start another game. press the Y key
after a player has won the game or press the
break key and type GOTO 58. For a longer
game. choose a higher difficulty level. •
Address correspondence to Wade Jense. 440
E. 300 N.. Pleasant Grove. UT 84062.
1 7 DATA 1 2 1 , 2 5 0 , 2 8 2 , 3 1 4 , 3 1 1 , 3 1 0 , 3
09 , 308 , 304 , 300, 2 9 9 , 2 9 8 , 2 9 7 , 2 9 6 , 2
30, 1 37 , 1 3 9 , 1 43 , 145 , 1 5 3 , 248 , 247 , 2
7 6 , 27 2 , 26 8 , 264 , 2 32 , 169 , l7 1 , l7 5 , l
7 7 , 1 7 8 , 1 7 9 , 1 80 , 1 8 1 , 1 8 5 , 2 46 , 24 5 , 2
4 4 , 2 4 2 , 2 4 1 , 2 40 , 2 3 9 , 2 3 8 , 2 3 6
1 8 D AT A 1 4 0 3 , 9 , 1 4 0 4 , 9 , 1 4 4 2 , 4 0 , 1 4 4
3 , 3 , 1444 , 4 1 , 1446 , 49 , l 447 , 57 , l448
, 56 , 1449 , 52 , 145 1 , 2 , 1452 , 2 5 , 1454 ,
2 3 , 1 4 5 5 , l , 1 4 5 6 , 4 , 1 4 5 7 , 5 , l 4 5 9 , 10 ,
1460 , 5 , 146 1 , 14 , 1462 , 19 , 1 46 3 , 5
1 9 F O R LV= 3 0 2 0 8 T 0 3 2 2 5 5
20 READ LE
·
2 1 P O K E LV , L E
2 2 NEXT
23 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 ,
128 , 128 , 128 , 128 , 1 28 , 128 , l2 8 , 128 ,
128 , 128 , 128 , 128 , 128 , 128 , ! 28 , l 28 ,
128 , 1 28 , 128 , 1 28 , 1 2 8 , 128 , 1 2 8 , 128 ,
1 28 , 1 28 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 ,
143 , 14 3 , 14 3 , 1 4 3 , 143 , 14 3 , l 4 3 , l 4 3 ,
143 , 14 3 , 143 , !4 3 , 143 , 143 , l 4 3 , l 4 3 ,
143 , 14 3 , 143 , 14 3 , 14 3 , 14 3 , 143
2 4 DATA 1 4 3 , 1 2 8 , 1 2 8 , 2 , 1 4 3 , 1 2 8 , l 2
8 , 128 , 128 , 128 , 128 , 239 , 2 39, 23�, 23
9 , 143 , 14 3 , 36 , 36 , 36 , 36 , 36 , 36 , 36 , 1
4 3 , 14 3 , 143 , 14 3 , 143 , 14 3 , 143 , 14 3 , 1
43 , 128 , 128 , l , 14 3 , 128 , 128 , 159 , 159
, 1 28 , 1 2 8 , 2 3 9 , 2 3 9 , 2 39 , 2 3 9 , l 4 3 , l 4 3
, 36 , 36 , 36 , 36 , 36 , 1 4 3 , 14 3 , 14 3 , 2 3 9 ,
239 , 5 , 12 , 239 , 239 , 14 3 , l43
2 5 DATA 1 2 8 , 1 2 8 , 1 4 , 1 4 3 , 2 3 9 , 2 3 9 , 1 2
8 , 128 , 128 , 1 28 , 2 3 9 , 239 , 2 39 , 239 , 1 4
3 , 14 3 , 143 , 14 3 , 239 , 239 , l43 , 143 , 14
3 , 1 2 8 , 128 , 1 28 , 128 , 1 28 , 1 2 8 , 128 , 1 4
3 , 14 3 , 128 , 128 , 1 1 , 14 3 , 239, 239 , 159
, 159 , 1 28 , 128, 255, 255 , 128, 1 28 , 175
, 17 5 , 1 28 , 1 28 , 2 5 5 , 2 55 , 128 , 1 28 , 159
, 159, 128 , 128 , 255
2 6 DATA 2 5 5 , 1 2 8 , 1 2 8 , 2 0 7 , 2 0 7 , 1 2 8 ,
1 28 , 1 4 3 , 14 3 , 128 , 1 2 8 , 128 , l28 , l 28 ,
1 28 , 143 , 1 4 3 , 1 2 8 , 128 , 14 3 , 1 4 3 , 1 2 8 ,
128 , 1 28 , 1 28 , 128 , 128 , 12 8 , l 28 , l 2 8 ,
128 , 36 , 36 , 36 , 36 , 14 3 , l4 3 , l 2 8 , l 2 8 ,
1 4 3 , 1 4 3 , 128 , 1 2 8 , 159 , 159 , l28 , 1 2 8 ,
143 , 143 , 14 3 , 143, 143 , 14 3 , 143 , 14 3 ,
143,143
2 7 DATA 1 4 3 , 1 4 3 , 1 7 5 , 1 7 5 , 1 4 3 , 1 4 3 ,
143 , 14 3 , 14 3 , 143 , 14 3 , 14 3 , l28 , 128,
1 2 , 14 3 , 1 28 , 128 , 1 28 , 1 28 , l28 , l28 , l
4 3 , 1 4 3 , 1 28 , 1 28 , 14 3 , 14 3 , 2 39 , 2 39 , 2
39, 239 , 239 , 239 , 128 , 128, l28, l28 , l
2 8 , 128 , 1 28 , 128 , 14 3 , 1 4 3 , 1 28 , 1 28 , 2
2 , 14 3 ,�28 , 1 2 8 , 1 59 , 1 59 , l 28 , l 28 , 2 5
5 , 255 , 128 , 128 , 17 5 , 175, l28
2 8 DATA 1 2 8 , 2 5 5 , 2 5 5 , 1 2 8 , 1 2 8 , 1 5 9 ,
1 5 9 , 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , l 2 8 , 2 07 ,
28 7 , 1 2 8 , 1 2 8 , 1 2 , 1 4 3 , 1 2 8 , 1 2 8 , 1 2 8 , l
28 , 128 , 128 , 143 , 14 3 , 128 , l28 , l 43 , l
4 3 , 2 3 9 , 2 39 , 239 , 239 , 239 , 239 , l28 , l
28 , 128 , 128 , 128 , 128 , 1 28 , l28 , l4 3 , l
4 3 , 128 , 128 , 143 , 14 3 , 128 , 128 , 159 , l
5 9 , 1 28 , 1 2 8 , 1 4 3 , 143
2 9 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 ,
143 , 14 3 , 143 , 14 3 , 143 , 14 3 , l4 3 , l4 3 ,
!75 , 17 5 , 143 , 14 3 , 14 3 , 143 , 128 , 128 ,
143 , 143 , 1 2 8 , 128 , 12 8 , 128 , l28 , 128 ,
1 28 , 1 28 , 1 28 , 128 , 1 4 3 , 14 3 , 239 , 2 3 9 ,
239 , 239,239,239 , 14 3 , 143 , l28 , 128 ,
128 , 1 28 , 1 28 , 128 , 14 3 , 14 3 , 128 , 128 ,
4 9 , 1 4 3 , 143 , 1 4 3 , 5 , 12 , l28
3 0 DATA 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 1 7 5 ,
175 , 128 , 128 , 2 55 , 2 55 , 1 28 , l28 , 1 7 5 ,
1 7 5 , 1 2 8 , 12 8 , 1 5 9 , 1 5 9 , 1 28 , l 28 , 207 ,
207 , 1 2 8 , 1 2 8 , 1 43 , 1 4 3 , 1 4 3 , l 4 3 , l 4 3 ,
1 4 3 , 1 28 , 1 2 8 , 1 28� 1 28 , 1 28 , 1 28 , l 4 3 ,
143 , 128 , 1 28 , 128, 1 28 , 128 , 128, 143 ,
1 4 3 , 1 28 , 128 , 128 , 1 28 , 1 28 , l 28 , l4 3 ,
143 , 128 , 128 , 14 3 , 14 3 , 143
3 1 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 ,
14 3 , 14 3 , 1 4 3 , 1 4 3 , 143 , 14 3 , l4 3 , 14 3 ,
143 , 14 3 , 14 3 , 143, 143 , 14 3 , l4 3 , l43,
143 , 14 3 , 143 , 14 3 , 143 , 128, 128
3 2 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 ,
128 , 1 2 8 , 128 , 128 , 1 28 , 1 28 , 1 28 , 1 28 ,
1 28 , 1 28 , 128 , 1 2 8 , 1 28 , 1 28 , l 2 8 , 128 ,
128 , 1 28 , 1 28 , 1 2 8 , 1 2 8 , 1 28 , 1 2 8 , 128 ,
1 28 , 1 28 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 2 07 , 207 ,
143 , 14 3 , 143 , 143 , 143 , 14 3 , l 4 3 , l43,
1 4 3 , 1 4 3 , 207 , 207 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 ,
143 , 143, 1 4 3 , 1 4 3 , 143, 143
3 3 DATA 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 ,
128 , 128 , 1 28 , 12 8 , 128 , 128 , 23 9 , 2 3 9 ,
2 3 9 , 2 3 9 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 1 2 8 , 1 2 8 ,
1 28 , 128 , 14 3 , 1 4 3 , 128 , 1 28 , 14 3 , 14 3 ,
1 4 3 , 143 , 143 , 14 3 , 128 , 128 , l43 , 14 3 ,
128 , 128 , 1 5 9 , 1 5 9 , 128 , 1 28 , 2 5 5 , 2 5 5 ,
128 , 128 , 175 , 1 7 5 , 128 , 128 , 159 , 159 ,
1 2 8 , 1 28 , 1 7 5 , 1 7 5 , 1 28 , 1 28 , 5
3 4 DATA 1 2 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 2 8 , l
28 , l , 1 4 3 , 1 2 8 , 1 2 8 , 1 2 8 , 128 , l 28 , l 2 8
, 1 28 , 1 28 , 1 28 , 1 28 , 14 3 , 143 , 1 28 , 12 8
, 1 28 , 1 28 , 1 2 8 , 1 28 , 1 4 3 , 1 4 3 , 1 2 8 , 120
, 128 , 128 , 23 9 , 239 , 143 , 14 3 , 128, 128
, 1 4 , 143 , 2 39 , 2 3 9 , 159 , l 59 , 1 4 3 , 14 3 ,
143 , 14 3 , 1 4 3 , 143 , 1 4 3 , 14 3 , 14 3 , 14 3 ,
143 , 14 3 , 143, 143 , 14 3 , 143
3 5 DATA 1 2 8 , 1 2 8 , 2 5 5 , 2 5 5 , 1 2 8 , 1 2 8 ,
207 , 207 , 1 2 8 , 1 2 8 , 20 , 1 4 3 , 2 3 9 , 2 3 9 , 1
28 , 1 28 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 1 2 8 , 1 28 , 1
2 8 , 128 , 2 39 , 239 , 2 3 9 , 2 39 , 239 , 2 39 , l
4 3 , 143 , 1 28 , 1 2 8 , 1 28 , 1 28 , l 28 , 1 28 , l
4 3 , 143 , 1 28 , 1 28 , 9 , 1 43 , 1 43 , 14 3 , 175
, 17 5 , 14 3 , 14 3 , 14 3 , 14 3 , l31, 128, 159
, 1 5 9 , 1 28 , 128 , 2 5 5 , 2 55 , 1 2 8 , 128
3 6 DATA 1 7 5 , 1 7 5 , 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 ,
128 , 1 28 , 14 3 , 143 , 128 , 1 28 , 17 , 143 , 1
28 , 1 28 , 1 28 , 128 , 1 28 , 128 , 1 28 , 140, 1
4 3 , 14 3 , 1 3 1 , 1 28 , 1 28 , 1 28 , 1 28 , 128 , 1
28 , 128 , 14 3 , 14 3 , 1 28 , 1 28 , 128 , 128 , 1
2 8 , 1 28 , 14 3 , 14 3 , 1 28 , 1 28 , 2 1 , l4 3 , l2
8 , 128 , 159 , 159 , 128 , 128 , 2 39 , 239 , 1 2
8 , 140, 175 , 17 5 , 1 3 1 , 128
3 7 DATA 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 ,
1 28 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 128 , 207 , 207 ,
1 28 , 1 28 , 5 , 1 4 3 , 128 , 128 , l2 8 , l28 , l 2
8 , 1 28 , 128 , 1 2 8 , 128 , 128 , 1 2 8 , 140 , 14
3 , 1 4 3 , 128 , 1 2 8 , 1 2 8 , 128 , 143 , 14 3 , 12
8 , 1 28 , 128 , 128 , 128 , 1 28 , 14 3 , 1 4 3 , 12
8 , 128 , 19 , 143 , 1 28 , 1 28 , 1 5 9 , 1 59 , 128
, 1 2 8 , 159 , 1 5 9 , 128 , 128 , 1 3 1
3 8 DATA 1 3 1 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 ,
143, 143 , 14 3 , 143, 143 , 17 5 , l 7 5 , l4 3 ,
143 , 14 3 , 143, 128, 128 , 143, 143 , 128,
128 , 1 28 , 1 28 , 1 28 , 128 , 1 28 , 128 , 1 2 8 ,
1 2 8 , 1 4 3 , 14 3 , 2 3 9 , 2 3 9 , 2 3 9 , 2 3 9 , 2 3 9 ,
2 39 , 14 3 , 14 3 , 128 , 128 , 1 2 8 , 128 , 1 2 8 ,
1 28 , 14� , 14 3 , 128 , 128 , 14 3 , l4 3 , l 4 3 ,
143 , 5 , 12 , 128 , 128, 159, 159
3 9 DATA 1 2 8 , 1 2 8 , 1 7 5 , 1 7 5 , 1 2 8 , 1 2 8 ,
255 , 25 5 , 128 , 128 , 1 7 5 , 175 , 1 28 , 1 28 ,
1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 2 07 , 207 , l 2 8 , 1 28 ,
50 , 1 43 , 1 4 3 , 1 4 3 , 14 3 , 1 4 3 , 1 2 8 , 1 2 8 , l
28 , 12 8 , 1 28 , 12 8 , 14 3 , 14 3 , 1 28 , 1 28 , 1
28 , 128 , 1 28 , 128 , 14 3 , 14 3 , 1 28 , 1 28 , l
28 , 128 , 1 28 , 128 , 1 4 3 , 14 3 , l 28 , 1 28 , l
4 3 , 143 , 143 , 143 , 14 3 , 143, 143
4 0 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 ,
143 , 14 3 , 143 , 14 3 , 14 3 , 143 , l43 , 14 3 ,
143 , 14 3 , 14 3 , 143 , 14 3 , 143, 143 , 14 3 ,
143, 128 , 128
4 1 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 ,
128 , 1 28 , 128 , 1 2 8 , 1 28 , 12 8 , 128 , 1 28 ,
120 , 128 , 120 , 12 0 , 120 , 128 , 12 0 , 1 2 0 ,
128 , 128 , 128 , 128 , 1 28 , 1 28 , 1 2 8 , 128 ,
1 28 , 1 2 8 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 ,
1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 ,
1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 ,
143 , 143, 143, 143 , 14 3 , 143
4 2 DATA 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 ,
1 2 8 , 128 , 1 28 , 128 , 1 28 , 1 28 , l28 , 1 28 ,
1 28 , 128 , 1 2 8 , 1 2 8 , 128 , 128 , l28 , 128 ,
1 2 8 , 128 , 1 2 8 , 1 28 , 128 , 128 , 14 3 , 14 3 ,
14 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 10 , 1 4 3 , 1
28 , 1 28 , 159 , 1 5 9 , 128 , 1 28 , 159 , 1 59 , 1
28 , 1 28 , 159 , 1 59 , 128 ,l28 , 1 59 , 159 , l
28 , 1 28 , 1 59 , 1 59 , 1 28 , 1 28 , 5 , 1 2
4 3 DATA1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 5
, 14 3 , 128 , 128 , 128 , 128 , 1 28 , 128 , 128
, 1 28 , 1 28 , 1 2 8 , 128 , 1 28 , 1 2 8 , 1 28 , 128
, 12 8 , 128 , 12 8 , 1 2 8 , 128 , l28 , l2 8 , 128
, 128 , 239 , 239 , 14 3 , 14 3 , 128 , 128 , 2 3 ,
143 , 143,143 , 14 3 , 14 3 , 14 3 , l43, l75 ,
175 , 143 , 143 , 14 3 , 14 3 , 14 3 , 143, 255 ,
255 , 143, 143 , 143 , 143
4 4 DATA 1 2 8 , 1 2 8 , 2 5 5 , 2 5 5 , 1 2 8 , 1 2 8 ,
207 , 2 07 , 1 2 8 , 1 2 8 , 5 , 1 4 3 , 1 2 8 , 1 2 8 , 1 2
8 , 1 28 , 1 2 8 , 1 28 , 1 2 8 , 1 28 , l 2 8 , 128 , 1 4
3 , 14 3 , 2 3 9 , 239 , 128 , 12 8 , 2 39 , 2 3 9 , 1 4
3 , 1 4 3 , 1 2 8 , 1 28 , 1 2 8 , 12 8 , 1 28 , 1 28 , 1 4
3 , 14 3 , 128 , 128 , 49 , 1 4 3 , 128 , 1 2 8 , 159
, 159 , 128 , 128 , 1 59 , 159 , 12 8 , 128 , 143
, 14 3 , 143 , 143 , 17 5 , 175
4 5 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 ,
175 , 175 , 14 3 , 143 , 143 , 143 , 128 , 128,
1 8 , 143 , 1 28 , 128 , 128 , 1 28 , 2 3 9 , 2 39 , 2
27 , 227 , 22 7 , 227, 143, 143 , 239,239 , l
28 , 1 28 , 2 39 , 239 , 1 4 3 , 14 3 , 1 28 , 1 28 , l
2 8 , 1 2 8 , 2 j9 , 2 3 9 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 2
5 , 14 3 , 128 , 128 , 25 5 , 25 5 , 23 9 , 2 3 9 , 2 3
9 , 239 , 239 , 239, 143
4 6 DATA 1 4 3 , 2 3 9 , 2 3 9 , 2 5 5 , 2 5 5 , 2 3 9 ,
239 , 14 3 , 1 4 3 , 128 , 128 , 25 5 , 2 5 5 , 239 ,
2 3 9 , 143 , 14 3 , 1 28 , 1 28 , 14 3 , 14 3 , 128 ,
128 , 12 8 , 1 2 8 , 128 , 1 2 8 , 1 28 , l28 , 128,
128 , 143 , 14 3 , 239 , 239, 128 , l28, 239 ,
2 3 9 , 143 , 14 3 , 128 , 128 , 128 , l 28 , 2 3 9 ,
2 39 , 14 3 , 1 4 3 , 1 28 , 1 28 , 1 43 , 143 , 1 28 ,
128 , 159 , 159 , 128, 128, 159
4 7 DATA 1 5 9 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 ,
143 , 175, 175 , 143 , 1 4 3 , 143 , 143,
143 , 17 5 , 17 5 , 143 , 14 3 , 14 3 , 143 ,
128 , 14 3 , 1 43 , 12 8 , 128 , 128 , 128,
128 , 128 , 1 2 8 , 128 , 1 28 , 239 , 239 ,
239 , 128, 128, 128 , 128 , 143 , 143 ,
128 , 128 , 1 28 , 128 , 1 28 , 143 , l 4 3 ,
128, 143 , 143, 143 , 143 , 5 , 12
4 8 DATA 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 ,
2 55 , 25 5 , 1 2 8 , 128 , 159 , 1 59 , l2 8 ,
143 ,
14 3 ,
128,
128,
239,
1 28 ,
l28,
1 28 ,
128 ,
159 , 1 59 , 1 2 8 , 128 , 159 , 1 5 9 , 1 28 , 128 ,
207 , 2 07 , 1 2 8 , 1 2 8 , 5 1 , 1 4 3 , l 4 3 , l 4 3 , l
4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , l 28 , 1 28 , l
28 , 1 2 8 , 12 8 , 1 2 8 , 1 28 , 1 28 , 1 2 8 , 1 28 , l
4 3 , 14 3 , 128 , 1 28 , 1 2 8 , 1 2 8 , l 28 , 1 28 , l
4 3 , 1 4 3 , 128 , 1 28 , 14 3 , 1 4 3 , l 4 3
4 9 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 ,
143, 143 ; 14 3 , 143 , 143, 143 , 14 3 , 14 3 ,
143 , 143, 143 , 14 3 , 14 3 , 143, 143 ,143,
1 4 3 , 143 , 14 3 , 143 , 14 3 , 128 , 128
5 0 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 ,
128 , 128 , 1 2 8 , 128 , 128 , 12 8 , 1 28 , 1 2 8 ,
12 8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 2 8 , l 2 8 , l28 ,
128 , 1 2 8 , 128 , 1 28 , 1 28 , 12 8 , l28 , 1 2 8 ,
1 2 8 , 1 28 , 1 4 3 , 1 4 3 , 14 3 , 1 4 3 , 20!, 207 ,
1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 ,
1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 2 07 ,
143, 143 , 143, 143, 143 , 143, 143
5 1 DATA 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 1 2 8 ,
128 , 128 , 1 2 8 , 128 , 128 , 14 3 , l4 3 , 128 ,
128 , 128 , 12 8 , 128 , 1 28 , 14 3 , 1 4 3 , 128 ,
128 , 128 , 128, 128 , 128 , 14 3 , 1 4 3 , 143,
143 , 1 43 , 143 , 1 28 , 1 28 , 6 , 143 , 128 , 1 2
8 , 159 , 1 59 , 128 , 1 2 8 , 143 , l4 3 , 1 28 , 1 2
8 , 159 , 1 59 , 128 , 128 , 1 75 , l75 , 128 , 1 2
8 , 159 , 159 , 1 28 , 1 28 , 5 , 12 , 1 43
5 2 DATA1 4 3 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 2 1 , l 4
3 , 128 , 1 28 , 1 28 , 128 , 128 , 1 28 , 14 3 , l
4 3 , 1 28 , 128 , 128 , 128 , 128 , 1 28 , 143 , 1
4 3 , 1 28 , 12 8 , 128 , 128 , 1 28 , 1 28 , 128 , 1
28 , 1 28 , 1 28 , 1 4 3 , 14 3 , 1 2 8 , 1 28 , 1 8 , 14
3 , 128 , 1 28 , 1 59 , 1 5 9 , 1 28 , 1 28 , 17 5 , 17
5 , 128 , 128 , 2 55 , 25 5 , 128 , l28 , 1 28 , 14
0 , 143 , 1 3 1 , 1 59 , 159, 128 , 128
5 3 DAT A 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 2 0 7 , 2 0 7 , l
2 8 , 128 , 19 , 14 3 , 128 , 12 8 , 128 , 12 8 , 1 2
8 , 128 , 14 3 , 1 4 3 , 128 , 1 28 , 128 , 128 , 2 3
9 , 2 3 9 , 239 , 2 3 9 , 143 , 1 4 3 , 1 28 , 128 , 1 2
November 1 985
HOT Coco
39
Y o u c a n Brush, Spray or Fill \\' i l h a m· Col­
This is one of those rare
Band
programs that will captivate
or, Shading o r Pattern. Use Rubber
everyone in your family. . . .
c l e . e l i pse, etc . I to create per iect i l l u st r i d ­
Lines a n d Shapes ! s q u a re . rectangle, c i r­
t i o n s w i t h s peed a n d ease. T h e re ' s a Pen-
N o one can see CoCo Max
cil, an Eraser a n d even a ,elec t i on 0 1
and not want to try it!
Caligraphy Brushes. A n d , a' 1·ou L a n
CoCo 1\ \ax c a n do a lot \\' i l h t e x t .
A l l oi t h e newest spec i a l eifec t s a re
-, e e .
t h e re: Trace Edges, Flip, lni1ert, Brush Mir­
rors, etc. A n d a l l of the 1·er1· latest ' u pe r­
c a pa b i l i t i e > l i ke: Undo, 11 h i L h
a u t o m a 1 i c a l l 1 rel'er'e' \'O u r 111 i , 1 a k e ' . a n d
UNMA TCHED CA PA BIL I TY. . .
Fat Bits \\' h i c h zoo m' 1 ou 11 a1 i n o n am
Because w e took t he maxi m u m approac h :
prec i s i o n .
part 01 \'o u r -, u bjecl t u a l l o11 do1-1or-cl o1
h i g h ly opt i m ized mach i ne c o d e c o m b i n­
ed w i t h h a rdwa re, CoCo ,\ \ax t ru il'
s t a n d s above t h e rest as the u l t i mate
•ew
u n rivaled periorma nce lets 1·ou c r ea t e
( IO .\ l�
S O L• e
than a n y s i m i l a r system - m u c h more
Print D r a f t
Print F inal
c reative tool ior t h e Color Compu t e r . I t \
\\'e are a l l w i t n essi ng an exc i t i n g revo l u ­
t io n i n m i c rocom p u ters: a rad i c a l l y new
k i n d oi computer and soitware t h a t
o p e n s a w h o l e n e w w o r l d oi c reative
power to com p u ter u sers.
w i t h m o r e b r i l l i a nce a n d m o re � peed
ooen
Rt•1Jt·1 r
t h a n you ever i m agi ned po., s i b l e . A n d ,
v o u c a n do i t i n b l ack & w h i te or color.
I t was i nevitable t h a t this exc i t i n g ap­
p roach would be brought to the CoCo.
W i t h t h i s in m i n d , Colorware c hose to
......
...
......
..
.
··. ..
.. ..
••
••
••••
••
..
··..
..
..
....
-·
... ....
go a l l out and m a x i m ize t h i s new con­
cept ior t h e color com puter. That meant
d e s i g n i n g not j u st software b u t h a rdware
too. It meant t ho u s a n d s of hours oi p u re
mach i ne l a n g u age progra m m i n g. R a rely
has t h i s much effort been appl ied to one
prod u c t ior t he Color C o m p u ter.
File
E d i t Goodies F o n t
A
abili t u to c r e a t e
·:.'. m
coco
style
M A H gi U e s
ing in •any styl
..
-···
-·· ......
..
..
..
. .. . ..
..
..
..
..
..
.
..
..
..
..
..
..
..
--
- ·
Style
Plain
" Bo l d
"" n alic
1
Shado•
A l l t h e so p h i s t icated power oi the b i gger
systems i s t here: Icons, Pull-Down Menus,
i u l l Graphic Editing, Font Styles, a n d a l l
k i n d s o f h a n d y tools a n d shortcuts.
THE BIG PICTURE
The large i m age box in the m i d d l e 0 1 t h e
g
(oCo 1\ \ax '>Ueen i s a c t u a l ll' o n i l' a w i n­
dow on an el'en la rge r i ma e . U s e t h e
P o i n t - a n d C l i c k "Ha nel" l o e l lo r l l e ., -,11'
move yo u r w i n dow over a n y porl io � 0 1
t h e l a rger i m age. You h a v e a wo r k i n g
area of up to 3- \ ! t i mes t h e area of t h e
w i ndow i t se l 1 .
FL EXIBL E PRIN TING . . .
CoCo Max g i ves you many way'> t o pri n t .
P l u g yo u r joys t i c k , mouse o r touch pad
F i l l a whole page w i t h you r i m age o r
i nt o CoCo Max's H i-Res I n p u t U n i t . Then
condense two i u l l CoCo sc ree n s t o less
u s e a delightiu l l y s i m ple Point-and-Click
met hod to get a n y of CoCo Max's power­
t u l g ra p h ic tool s. It has t h e m a l l :
than Yi page for a i i n ely detailed copy.
"Du m p" you r CoCo Max screen iull size
or s h r i n k i t to YH page size.
·
FREEDOM TO CREA TE. . .
You may t h e n u se CoCo Max's graphic
Anyone w h o wants to c reate a n yt h i n g a t
o p t i o n irom Colorware i r o m
magic on i t . The DS-69 i s ava i l a b l e a s a n
a l l on t h e i r C o C o sc reen or p r i n t e r w i l l
S149 . 9j
c o m p l ete with its own soitware on d i s k
certa i n l y be v e r y glad t o meet Coco
o r t a pe. U s i n g t h e DS-69 w i t h a d i s k re­
Max. CoCo Max's f r i e n d l y yet
q u i res an RS m u l t i-pak adaptor.
s o p h i st icated graphic and text
c a pa b i l i ties let you a l most i n st a n t l y pro­
d u c e i l l u st ra t i o n s , d i a g r a m s , c h a rt s ,
t i o n by u si ng soitware schemes such as
s l i d i ng w i ndows. A l t h o u g h c l ever, t hese
schemes yield s l u g g i s h a n d awkward
res u lt s . Only CoCo Max does i t the right
way. The CoCo Max H i -Res I n put U n i t
p l u g s i nto you r R O M slot a n d adds a n
e n t i rely new joys t i c k i n p u t to you r com­
puter - a prec i s i o n one with a
49, 1j2
poi n t reso l u t ion to match t h e CoCo
g r a p h s . a n d c o m p u t e r art - ior � e r i o u >
u 1, e o r j u st i o r c reatil'e i u n .
A N A BSOL U TE G UA RA N TEE
CoCo ,\ \ J x i-,
d
h a rcl11 a re -,01t\1 a rl:' '>l''>tem
screen exact l \'.
Plug you r same 1oyst i c k , m o u se or touc h
pad i n to t h i s new i n put a n d vou have a
whole new k i n d oi c o n t ro l . The d i i­
ierence i s remarkable.
t h a t no ,oitwa re-on l 1· sl'stem can
m a t ( h . Get CoCo ,\ \ax a n d 'l:'e \ 'O u r
COCO MAX REQUIREM EN TS
The CoCo Max System i n c l udes t he H i ­
R e s I n pu t U n i t , soitware o n d i s k o r
c a s sette ( p lease speci iy) a n d u s e r m a n u a l .
I t w i l l work o n a n y
64K
Extended or non-
exten ded Color Com p u t e r . You'll need a
Radio Shack or equ iva l e n t joyst i c k .
m o u se or t o u c h pad . D i s k syst e m s re­
q u i re a M u l t i -Slot l n t eriace or y .
Branc h i ng Cable.
CoCo pertorm a ' i t ne1 e r cou l d lw 1ore.
11 1·ou don't ag ree that CoCo .\ \a \ i ' t h e
THE COMPLETE COCO MAX S YSTEM,
u l t i mate crea t i 1·e t o o l tor t he Color C o m ­
w i t h soitware o n DISK .
p u t e r . -, i m p l 1 ret u r n i t 11 i t h i n 20 cla' ' 1or
,1
.
..
.
.
. .
.
. .
$69. 95
ll' i t h soitware on CASSETTE (Ava i l a b l e
1 L1 l l . rnu rteou -, ref u n d 1 ro m Co lo m a r e .
,\ \ar 'BSl .
.
.
.
.
.
. .. .. .. .. ..
.
.
.
. . .
.
. $69.95
THE HA R D WA RE. . .
Y-BRA NCH/NC CA BLE- I i vou have a d i s k
T h i -, i -, t h e ke1· t o CoCo ,\ \ a x \ u n m a t c h ­
svstem b u t do n o t have a M u l t i-Slot l n­
l'cl peno r m a n u :•. D i el 1·o u k no1I' the nor­
mal j01 > t i c k i n p u t b u i l t i n t o the Color
Com p u t e r o n l l' a l l ows access to
x
6.Jl
.J,096 !6.J
poi n t s on t h e CoCo scree n ? Yet, t h e
C o l o r C o m p u t e r's h i g h reso l u t ion sc reen
teriace, use t h i s econ o m i c a l 40- p i n ,
A DIGI TIZER OPTION . . .
\\'e stud ied a l l t h e video d i g i t izers
ava i l a b l e and pic ked t h e best oi them to
l i n k with CoCo Max. The D S-69 i ro m
1\ \ i c ro W o r k s w a s o u r choice. T h i s op­
t i o n a l device lets you c a p t u r e the i m age
irom any vi deo sou rc e (video reco rder,
camera , etc.) on you r Color Computer.
has
49, 1 j2 (2j6
x
1 921
p i x e l s . T h i s means
t hat a joyst i c k , m o u se o r even a t o u c h
pad c a n , a t b e s t , o n l y a c c e s s about one
tenth oi t h e pixels o n t h e CoCo sc ree n .
Most g ra p h i c prog r a m s i g n o re t h i s hard­
ware l i m i t a t i o n oi t h e Color C o m p u ter
m a l e , 2 iemale cable to con nect t h e
1
C o C o 1\\ax H i -Res i n put u n i t a n d you r
d i s k c o n t r o l l e r to yo u r
CoCo
. $2i.95
(Sorry, not compatible with ) DOS)
(coLORWARE
Colorware Inc.
78·03G Jamaica Ave.
Woodha ven, NY 1 1421
(718) 647-2864
VISA
[•B•J
ORDERING INFORMA TION
ADD SJ.00 PER ORDER FOR SHIPPING AND HANDLING.
C.0.D. 'S ADD SJ.00 EXTRA.
a n d give you o n l y low-res control.
SHIPPING AND HANDLING FOR CANADA IS $5.00
Others attempt to overcome t h e l i m i ta-
N. Y. RESIDENTS MUST ADD SALES TAX.
WE ACCEPT VISA, MAHER CARD. M.0.'S, CHECKS.
Hair
Thief (continued)
8 , 1 28 , 128 , 128 , 128 , 128 , 14 3 , 14 3 , 1 2
8 , 12 8 , 1 4 3 , 143 , 14 3 , 1 43 , 17 5 , 1 7 5 , 14
3 , 14 3 , 1 4 3 , 143 , 1 4 3 , 143 , 14 3 , 1 4 3 , 14
3 , 143, 143, 143 , 143, 143
5 4 DATA 1 7 5 , 1 7 5 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , l
2 8 , 128 , 14 3 , 1 4 3 , 128 , 128 , 14 3 , 1 4 3 ,
1 28 , 1 28 , 1 2 8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 28 ,
128 , 128 , 239 , 239 , 239 , 239 , 239 , 239 ,
128 , 128 , 128 , 128 , 239 , 239 , 14 3 , 14 3 ,
1 2 8 , 1 28 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 ,
14 3 , 14 3 , 17 5 , 17 5 , 14 3 , 1 4 3 , 143 , 14 3 ,
128 , 128 , 25 5 , 2 55
5 5 DATA 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 2
5 5 , 2 5 5 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 128 , 1 28 , 1
4 3 , 14 3 , 128 , 128 , 1 2 , 1 43 , 1 28 , 1 28 , 1 2
8 , 1 28 , 2 3 9 , 239 , 143 , 143 , 12 8 , 128 , 1 2
8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 12 8 , 1 2 8 , 1 28 , 1 2
8 , 12 8 , 128 , 128 , 128 , 1 28 , 12 8 , 1 28 , 14
3 , 1 4 3 , 12 8 , 1 2 8 , 2 2 , 1 4 3 , 1 2 8 , 1 28 , 2 5 5
, 2 55 , 239, 239 , 14 3 , 143
5 6 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , l
59 , 1 59 , 1 4 3 , 1 43 , 1 43 , 1 4 3 , 1 2 8 , 1 28 , 1
59 , 1 59 , 1 28 , 128 , 14 3 , 1 43 , 128 , 1 28 , 1
2 , 1 4 3 , 1 28 , 1 28 , 1 28 , 1 2 8 , 128 , 128 , 1 2
8 , 128 , 1 28 , 1 2 8 , 143 , 14 3 , 12 8 , 128 , 1 2
8 , 1 2 8 , 1 2 8 , 12 8 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 1 2
8 , 1 28 , 1 2 8 , 1 2 8 , 1 4 3 1 4 3 1 28 , 1 2 8 , 1 4
!
3 , 14 3 , 143 , 14 3 , 5 , l L , 12�
5 7 DATA 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 1 7 5 , l
7 5 , 1 28 , 1 28 , 1 59 , 1 5 9 , 128 , 1 28 , 17 5 ,
1 7 5 , 1 28 , 1 28 , 1 59 , 1 5 9 , 1 28 , 1 2 8 , 207 ,
207 , 1 2 8 , 1 2 8 , 5 2 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1
4 3 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 28 , 1 28 , 1 43 , 1
4 3 , 128 , 128 , 128 , 128 , 12 8 , 1 28 , 14 3 , 1
4 3 , 1 2 8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 2 8 , 1 4 3 , 1
4 3 , 1 2 8 , 11 8 , 1 4 3 , 1 4 3
5 8 DATA1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , l
43 , 14 3 , 1 43 , 143 , 143 , 14 3 , 1 4 3 , 1 4 3 ,
14 3 , 143 , 14 3 , 14 3 , 143 , 14 3 , 1 4 3 , 14 3 ,
14 3 , 14 3 , 14 3 , 14 3 , 14 3 , 14 3 , 128 , 128
6� ' * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
H A LT T H I E F I I
61 ' *
*
62 ' *
C A S S ET T E V E R S I O N
63 ' *
( C ) 1 9 8 4 BY WADE J E N S E *
64 ' ***************************
6 5 R = R N D ( -T I M E R ) : PO K E 6 5 4 7 0 , 0 : POK
E 6 5 4 8 1 , 0 : PO K E 6 5 4 B 2 , 0
6 6 C L S : PR I NT "
W E L COME TO H A L T
T H I E F I I " : GO S U B 2 8 l : GOS U B 2 7 3
6 7 O I M D E ( 8 ) , DC ( 5 ) , MV $ ( 2 ) , M0 ( 4 )
6 8 FO R L = l T0 5 : R E A D DC ( L ) : N E X T
6 9 F O R L = l T OS : R EADD E ( L ) : N E X T
7 0 C L S : P R I N T @ 2 3 0 , " HOW M A N Y P L A Y E
RS ( 2 - 6 ) " ; : I N P UTP
7 1 I FP>6THEN7 3
7 2 I F P < 2T H E N 7 4 E L S E 7 5
7 3 P R I NT @ 3 2 2 , " T H E R E I S A L I M I T 0
F 6 PLAY E R S " : GOT 0 7 0
7 4 PR I NT e 3 2 2 , " T H I S GAME R EQU I R E S
2 P L A Y E R S " : GOT0 7 0
7 5 D I M N $ ( P ) , S ( P ) , P $ ( P ) , AB ( P )
7 6 D I M MN ( P ) , C X $ ( 1 5 ) , C C $ ( P , 3 ) , N N (
p,8 )
7 7 T F = P + l : D I M Z ( T F ) , MK ( l 0 ) , P0 ( 1 0
)
7 8 D I MXY ( P )
7 9 P O R L = l TOP : C L S
8 0 P R I N T @ 9 6 , " L I M I T O F 3 - 8 C H A R AC
T E R S P E R NA M E "
8 1 P R I NT @ l 6 4 , " NA M E # " ; L ; : I N P U T N $
( L)
8 2 AB=LEN ( N $ ( L ) ) : I FA B > 8 O R AB< 3
THEN8 1
8 3 NEXT
8 4 R A = R N D ( P ) : B = l : WW= l : PT = l 2 8
8 5 F O R L = l TOP : N = B + R A
86 IF N>P THEN N=l+P-B
8 7 N=l +P-B
88 P $ ( N ) =N$ ( B ) : N$ ( B ) = " " : B= B + l
42
HOT Coco
November 1 985
8 9 NEXT
9 .0 C L S : FOR L = l T O P : R EA D D N $ : N $ ( L ) = D
N $ +P$ ( L ) +DN$
9 1 P R I N T @ 3 5 , " i " ; L ; " P LAY E R I S " ; N
$ ( L ) : R EAD S ( L )
9 2 P R I NT @ 4 8 5 , " P R E S S < C > TO CONT .
. ;
9 3 I $ = I NK E Y $ : I P I $ = " C " TH E N 9 4 E L S E 9
3
9 4 N EXT : CLS : P R I NT @ 3 6 , " EACH PLAYE
R B EG I N S W I T H "
9 5 P R I NT @ 7 1 , " $ 3 0 0 A N D 3 C A R D S " : G
OSU B 2 4 7
9 6 POR L = l T0 5 0 0 : N E X T
9 7 C X $ ( l ) = " GO 3 E X T R A S P A C E S " : C X
$ ( 2 ) = " GO 4 E X T R A S P A C E S "
9 8 CX $ ( 3 ) = " 3 EXTRA CLUE S " : CX $ ( 4 )
= " 4 EXTRA CLU ES "
9 9 C X $ ( 5 ) = " GO 5 E X T R A S P A C E S " : C X
$ ( 6 ) = " 5 EXTRA CLU ES "
1 0 0 C X $ ( 7 ) = " CO L L E C T $ 2 00 F ROM B A
N K " : C X $ ( 8 ) = " CO L L E C T $ 1 00 F ROM B A
NK"
1 0 1 C X $ ( 9 ) = " GO 6 E X T R A S P A C E S " : C
X $ ( 1 0 ) = " 6 EXTRA CLU E S "
1 0 2 C X $ ( l l ) = " B UY A T I P - $ 1 00 " : C X $
( 1 2 ) = " B UY A T I P - $ 5 0 "
1 0 3 C X $ ( 1 3 ) = " F R E E T I P " : CX $ ( 1 4 ) = "
T A K E A NOT H E R T U R N "
1 0 4 F O R L L = l TOP : C LS : P R I NT P $ ( L L ) : M
N ( LL ) = 3 00
1 0 5 F OR L = l T0 3 : R P = R N D ( C Z ) : C C $ ( L L ,
L ) =CX$ ( RF )
1 .0 6 P R I N T "
( " L " ) " CX $ ( R P ) : N E X
T : P R I N T @ 4 8 2 , " P R E S S < C > T O CONT . "
.
1 0 7 I S = I N K E Y $ : I P I $ = " C " T H EN 1 0 8 E L S
E l07
1 0 8 N E XT : GOS U B 1 0 9 : GOT01 1 6
1 0 9 R S = R N D ( 4 ) : Z ( T P ) = RS : GO S U B 1 9 3
1 1 0 R G = R N D ( 5 1 1 ) : P Z = RG + ( 2 9 6 9 6 + ( D L
*512 ) )
1 1 1 P A = P E E K ( P Z ) : TT = P Z
1 1 2 IF PA= 2 5 5 THEN TP=PZ E LS E 1 1 0
1 1 3 FORL = l T 0 1 0 : P L A Y " V 3 1 T l 3 5 L 2 0 4 A
BG0 5 G B A " : N E X T : POK E ( 3 0 1 8 3 + ( D L * 5 1 2
) ) , 6 7 : PO K E ( 3 0 1 8 4 + ( D L * 5 1 2 ) ) , 7 6 : C L
= 6 7 : CK = 8 2
1 1 4 FOR L = l TOP : Z ( L ) = R S : X Y ( L ) = ( 2 9 7
6 4 + ( DL * 5 1 2 ) ) : N EXTL
1 1 5 C S = 0 : R ET U R N
1 1 6 GOS U B 2 0 2 : GO S U B 2 .0 6 : GOS U B 1 9 4
1 1 7 I I $ = I N K E Y $ : A =.0 : GO S U B 2 4 4
1 1 8 I F I I $ = " N " TH ENA= l ELSE I F I I $ =
" T " rHENA=2
1 1 9 I F I I $ = " E " TH ENA= 3 E L S E I F I I $ =
" V " TH ENA=4
1 2 0 I F I I $ = " S " TH ENA=5 ELSE I F I I $ =
" Z " T H ENA=6
1 2 1 I F I I $ = " W " TH ENA=7 E L S E I F I I $ =
" Q " TH ENA=8
1 2 2 I F A > 0 T H EN 1 3 2
1 2 3 I F I I $ = " U " TH EN 1 3 8 ELSE I F I I $ =
" A " T H EN 1 4 7
1 2 4 I F I I $ = " D " TH EN 1 3 8 ELSE I F I I $ =
" R " GOSU B 2 2 2
125 I F I I $= " C "THEN 1 6 7 ELSE I F I I $ =
" F " TH EN 1 6 5
1 2 6 I F I I $ = " X " T H E NGOT0 1 2 8 E L S E I F I I
$ = " H " TH EN 2 9 5
1 2 7 GOTO l l 7
1 2 8 GOSU B 1 9 3 : PO K E X Y ( WW ) , PT
1 2 9 T L $ = I N K E Y $ : GOSU B 2 4 4
1 3 0 I F T L $ = " X " T H E NGOS U B 2 8 0 E L S E 1 2 9
: GOT0 1 3 1
1 3 1 GOSUB 1 9 5 : GOSU B 2 0 3 : GOT0 1 1 7
1 3 2 I F MV=0T H E N 2 3 1 E L S E SOUN D 3 1 , 2
1 3 3 P H = X Y ( WW ) + D E ( A ) : I F P H < ( 2 9 6 9 6 +
( D L * 5 1 2 ) ) O R P H > ( 3 0 2 .0 7 + ( D L * 5 1 2 ) )
T H EN 1 3 5
1 3 4 P P = P E E K ( P H ) : FORLC= l T 0 5 : I F P P =
D C ( LC ) T H E N 1 3 6 E L S E N E X T
1 3 5 GOSU B 2 4 5 : GOT0 1 1 7
1 3 6 GOSU B 2 4 6 : MV=MV - l : PO K E XY ( WW ) ,
P T : P T = P P : X Y ( WW ) = P H
1 3 7 GOSU B 2 0 3 : GOT0 1 1 7
1 3 8 I F MV=0T H EN 2 3 1
1 3 9 I F PT=5 THEN 1 4 1
1 4 0 GOSU B 2 4 5 : GOT0 1 1 7
1 4 1 I F I I $ = " U " AN D Z ( WW ) = 4 TH E N 1 4 0
1 4 2 I F I I $ = " D " AN D Z ( WW ) = l T H E N 1 4 0
1 4 3 P O K E X Y ( WW ) , P T
1 4 4 I F I I $ = " U " T H E N Z ( WW ) = Z ( WW ) + l : X
Y ( WW ) = X Y ( WW ) + 5 1 2
1 4 5 I F I I $ = " D " T H E N Z ( WW ) = Z ( WW ) ­
l : X Y ( WW ) = X Y ( WW ) - 5 1 2
1 4 6 GOSU B 2 4 6 : MV=MV - l : GO S U B 1 9 4 : GO
S U B 2 .0 3 : GOTO l l 7
1 4 7 P L A Y " 0 3 L 2 T l .0V 3 1 AB A B A B A B AB A B "
1 4 8 I F X Y ( WW ) = T P OR ( X Y ( WW ) + l ) = T P
T H EN 1 5 1
1 4 9 GOSUB 2 4 5 : M N ( WW ) = M N ( WW ) - 1 0 .0 : M
V=0
1 5 0 P LAY " O l V 3 1 T l C " : GOT0 1 1 7
1 5 1 P O K E X Y ( WW ) , PT : I F Z ( WW ) < > Z ( T F )
T H EN 1 4 9 E L S E F O R L = l T0 3 : P L A Y " 0 2 T 6
L 3 V 3 1GP2GP2GA " : NEXTL
1 5 2 R Q = R N D ( A Z ) : I F R Q= l T H E N 1 6 1
1 5 3 PLAY " 0 2 V 2 5 T 2 AGAGAGAGAG " : PO K E
6 5 4 7 8 , 0 : PO K E 6 5 4 8 1 , 0 : PO K E 6 5 4 8 2 , 0
1 5 4 C L S : P R I N T @ l 3 6 , " CO N G R A T U LAT I O
NS"
1 5 5 P R I NT @ 2 .0 3 , P $ ( WW ) : P R I NT @ 2 9 4 , "
YOU C A U G H T T H E T H I E F "
1 5 6 M N ( WW ) = M N ( WW ) + R Z : I F M N ( WW ) > = M
Z T H EN 1 5 9
1 5 7 FO R L = l T0 6 0 0 : N E XT L : CS = .0
1 5 8 GOSUB 1 0 9 : GOSU B 2 .0 2 : GO S U B 2 .0 6 : G
OTO l l 7
1 5 9 C L S : P R I NT @ l 3 6 , " CO N G R A T U L A T I O
N S " : P R I NT @ 2 0 3 , P $ ( WW )
1 6 0 P R I NT @ 2 9 4 , " YOU WON T H E G A M E "
: I N P U T " ANOT H E R G A M E [ Y / N ] " ; I N $ : I
F I N $ = " Y " TH E N RUN 6 5 - E L S E END
1 6 1 F O R L = l T0 1 0 : P L A Y " V 3 .0 T 4 5 L l G 0 4 A
C EG " : N E X T
1 6 2 GOSU B 1 9 2 : F O R L S = l T0 5 : GO S U B 2 0 6
: NEXT
1 6 3 GOSU B 1 9 4 : GO S U B 2 0 3 : GOT0 1 1 7
1 6 4 GOSU B 2 2 2 : GOT01 1 7
1 6 5 F O R L = ( 3 0 1 8 7 + ( D L * 5 1 2 ) ) T0 ( 3 0 2 .0
3 + ( D L * 5 1 2 ) ) : POK E L , 1 4 3 : N E X T L : CS = .0
: PO K E X Y ( WW ) , PT : WW=WW+ l : I FWW > P T H
E N WW= l
1 6 6 GOSU B 2 0 6 : GO S U B 2 8 .0 : GO S U B 1 9 4 : G
O S UB 2 .0 2 : GOTO l l 7
1 6 7 I F C S = l T H E N 1 3 5 E L S E PO K E 6 5 4 7 8 , .0
: PO K E 6 5 4 8 1 , 0 : PO K E 6 5 4 8 2 , 0
( " L" )
1 6 8 C L S : F O R L = l T0 3 : P R I N T "
" CC $ ( WW , L ) : N E XT L : P O K E X Y ( WW ) , PT
1 6 9 C S = 0 : P R I NT " TO R E T U R N W I T H OUT
U S I NG C A R D < 5 > "
1 7 0 I N P U T " CARD t ( l - 3 ) " ; IY : I F IY < l
O R I Y > 3 T H E N GOSUB 1 9 5 : GO S U B 2 .0 3 : GO
T01 1 7
1 7 1 F O R L Z = l T0 1 4 : I F C C $ ( WW , I Y ) = C X $
( L Z ) T H E N ON LZ GOTO 1 7 7 , 1 7 6 , 1 8 2 ,
1 8 1 , 17 5 , 1 80 , 1 8 4 , 1 8 5 , 17 4 , 1 7 9 , 1 8 6 ,
187 , 188 , 191
1 7 2 N E X T : GOT0 1 7 .0
1 7 3 R F = R N D ( C Z ) : CC $ ( WW , I Y ) = C X $ ( R F
) : GOTO l l 7
1 7 4 E S = 6 : GOT0 1 7 8
1 7 5 E S = 5 : GOTO 1 7 8
1 7 6 E S = 4 : GOT0 1 7 8
177 ES=3
1 7 8 MV= MV+ E S : GO S U B 1 9 5 : GO S U B 2 8 3 : C
S = l : GOT0 1 7 3
1 7 9 E C = 6 : GOT0 1 8 3
1 8 8 E C = 5 : GOT0 1 8 3
1 8 1 E C = 4 : GOT0 1 8 3
1 8 2 EC= 3
1 8 3 G O S U B 1 9 3 : F O R L T = l TO E C : GO S U B 2 8
6 : N E X T : GO S U B 1 9 4 : GO S U B 2 8 3 : C S = l : GO
T0 1 7 3
1 8 4 C S = l : M N ( WW ) = M N ( WW ) + 2 8 8 : GO S U B
1 9 5 : GO S U B 2 0 3 : I F M N ( WW ) > M Z T H E N GO
T01 5 9 ELS E 1 7 3
1 8 5 CS = l : MN ( WW ) = M N ( WW ) + l 0 8 : GO S U B
1 9 5 : GOS U B 2 8 3 : I F MN ( WW ) > M Z T H ENGO
T01 5 9 E L S E 1 7 3
1 8 6 MN ( WW ) = M N ( WW ) - 5 8
1 8 7 MN ( WW ) = MN ( WW ) - 5 0
1 8 8 GOSU B 1 9 3 : PQ = P E E K ( T P )
1 8 9 P O K E T P , 2 8 : F OR Z L= l T 0 4 0 8 : N E X T Z
L : POKETP , PQ
1 9 0 C S = l : GO S U B 1 9 4 : GO S U B 2 8 3 : GOT01
73
1 9 1 G O S U B 1 9 3 : GO S U B 2 8 6 : GO S U B 1 9 4 : G
O S U B 2 8 2 : GOT0 1 7 3
1 9 2 I F Z ( T F ) = DL T H E N RETURN
1 9 3 D L = Z ( T F ) : GOT0 1 9 6
1 9 4 I F Z ( WW ) = D L T H E N R ET U R N
1 9 5 D L = Z ( WW )
196 I
1 9 7 ON DL GOTO 1 9 8 , 1 9 9 , 2 8 8 , 2 8 1
1 9 8 P O K E 6 5 4 7 9 , 8 : PO K E 6 5 4 8 1 , 8 : ?0 K E
6 5 4 8 2 , 8 : PO K E 6 5 4 8 5 , 0 : PO K E 6 5 4 8 7 , 8 :
P O K E 6 5 4 8 9 , 8 : R E T U RN
1 9 9 P O K E 6 5 4 7 8 , 8 : PO K E 6 5 4 8 8 , 8 : P O K E
6 5 4 8 3 , 0 : PO K E 6 5 4 8 5 , 8 : P O K E 6 5 4 8 7 , 8 :
POK E6 5 4 8 9 , 0 : RETURN
2 0 8 P O K E 6 5 4 7 9 , 8 : PO K E 6 5 4 8 8 , 8 : P O K E
6 5 4 8 3 , 0 : PO K E 6 5 4 8 5 , 0 : P OK E 6 5 4 8 7 , 8 :
POKE 6 5 4 8 9 , 8 : RETURN
2 0 1 P O K E 6 5 4 7 8 , 0 : PO K E 6 5 4 8 1 , 8 : PO K E
6 5 4 8 3 , 0 : P O K E 6 5 4 8 5 , 8 : PO K E 6 5 4 8 7 , 8 :
POKE6 5 4 8 9 , 0 : RETURN
2 0 2 MV= R N D ( D Z )
2 0 3 F O R L = ( 3 0 1 8 7 + ( D L * 5 1 2 ) ) T0 ( 3 0 2 8
3 + ( D L * 5 1 2 ) ) : PO K E L , 1 4 3 : N E X T L
2 8 4 GOSU B 2 5 4 : GOSU B 2 6 0 : PO K E ( 3 8 1 9 6
+ ( D L * 5 1 2 ) ) , 1 80 : P O K E ( 3 8 1 8 3 + ( D L * 5 1
2 ) ) , CL : POKE ( 3 0 1 8 4 + ( DL * 5 1 2 ) ) , C K
2 8 5 P T = P E E K ( X Y ( WW ) ) : PO K E X Y ( WW ) , S
( WW ) : R E T U RN
2 0 6 GOSU B 1 9 2 : M K ( l ) =T P - 6 4 : M K ( 2 ) = T
P - 6 8 : M K ( 3 ) =T P + 4
2 8 7 M K ( 4 ) =T P + 6 8 : M K ( 5 ) =T P + 6 4 : M K ( 6
· ) =TP+6 8
2 0 8 M K ( 7 ) = T P - 4 : M K ( 8 ) =T P - 6 8
2 0 9 F O RL = l T0 8
2 1 0 PO ( L ) = P E E K ( M K ( L ) )
2 1 1 I F M K ( L ) = M M T H E N PO ( L ) = l 2 8
2 1 2 NEXT
2 1 3 F O R L = l T08 : X T ( L ) = 8 : N E XT
2 1 4 F O R L L = l T0 3 : F O R L = lT08
2 1 5 I F PO ( L ) = l 2 O R PO ( L ) = 5 T H E N 2
33
2 1 6 I F PO ( L ) = DC ( L L ) T H E N X T ( L ) = l
2 1 7 I F PO ( L ) = S ( WW ) T H E N X T ( L ) = l
2 1 8 NEXT : N EXT
2 1 9 RA=RND ( 8 )
2 2 0 I F X T ( RA ) = l T H E N T P = M K ( RA ) E L S E 2
19
2 2 1 MM=TT : TT=TP
2 2 2 I F PO ( RA ) = 2 5 5 T H E N 2 2 3 E L S E 2 2 4
2 2 3 F O R L = l T 0 5 : P L AY " V 3 1 T l 3 5 L 2 0 4 AB
G 0 5 G BA " : N E X T L : C L = 6 7 : C K = 8 2 : GOT0 2 3
8
2 2 4 I F PO ( RA ) = 1 5 9 T H EN 2 2 5 E L S E 2 2 6
2 2 5 FORL= lT02 : P LAY " T 5 5V 3 1 L 2 0 1 C D E
F G A B0 2 C D E F G A P 1 P 1 P l " : N E X T L : C L = 8 3 :
C K = 8 0 : GOT0 2 3 8
2 2 6 I F PO ( RA ) = 1 7 5 T H E N 2 2 7 E L S E 2 2 8
2 2 7 P L A Y " V 9 " : FO R L = l T02 8 : P LA Y " V + O
1 T l 8 8 L l 0 - " : N E X T L : C L = 6 8 : C K = 8 2 : GOT
0238
2 2 8 I F PO ( RA ) = 50 R PO ( RA ) = l 2 T H EN 2 2 9
E LS E 2 2 2
2 2 9 P � AY " V 2 4 T 2 0 L 2 C D E FG A B " : C L = 6 9 :
CK=76
2 3 0 P O K E ( 3 0 1 8 3 + ( D L * 5 1 2 ) ) , C L : PO K E
( 3 0 1 8 4 + ( D L * 5 1 2 ) ) , CK : RETURN
2 3 1 GOSU B 2 4 5 : F O R L L = l T 0 1 8 : PO K E ( 3 8
2 0 2 + ( D L * 5 1 2 ) ) , 1 1 2 : POK E ( 3 0 2 0 3 + ( D L
* 5 1 2 ) ) , 1 1 2 : F O R L = l T0 1 0
2 3 2 N E XT L : P O K E ( 3 0 2 8 2 + ( D L * 5 1 2 ) ) , 9
6 : PO K E ( 3 0 2 8 3 + ( D L * 5 1 2 ) ) , 9 6 : N E XT L L
: GOT01 1 7
2 3 3 I F MK ( L ) = M M T H E N 2 1 6
2 3 4 M M = T T : TT = T P
2 3 5 R L = R ND ( 3 ) : I F R L = l OR R L = 2 T H E N 2 1
6 ELSETP=MK ( L )
2 3 6 P LAY " V 2 4 T 2 0 L 2 C D E FG A B " : PO K E ( 3
0 1 8 3 + ( D L * 5 1 2 ) ) , 6 9 : PO K E ( 3 0 1 8 4 + ( D L
* 5 1 2 ) ) , 7 6 : C L = 6 9 : C K = 7 6 : PO ( RA ) = 5
2 3 7 I F Z ( T F ) =4THEN2 39 ELSE I F Z ( T F
) = 1THEN 2 4 0
2 3 8 R C = R N D ( 4 ) : I F RC < = 2 T H E N 2 3 9 E L S
E 248
2 3 9 Z ( T F ) = Z ( T F ) - l : TP = T P - 5 1 2 : F O R L
= 1 T09 9 9 : N E X T L : GOSU B 1 9 2 : R E T U R N
2 4 0 Z ( T F ) = Z ( T F ) + l : TP = T P + 5 1 2 : F O R L
= 1 T0 9 9 9 : N E X T L : GOSU B 1 9 2 : R E T U R N
2 4 1 DAT A 2 5 5 , 1 5 9 , 1 7 5 , 1 2 8 , 5
2 4 2 D A TA - 3 2 , - 3 0 , 2 , 3 4 , 3 2 , 3 8 , - 2 , - 3
4
2 4 3 DATA@ , 0 , � , 3 0 , , 3 1 , # , 3 5 , % , 3 7 ,
& , 38
2 4 4 P O K E ( 3 0 1 7 7 + ( D L * 5 1 2 ) ) , 9 6 : PO K E
( 30 1 7 8 + ( D L * 5 1 2 ) ) , 1 2 7 : RETURN
2 4 5 P O K E ( 3 0 1 8 0 + ( D L * 5 1 2 ) ) , 7 8 : PO K E
( 3 0 1 8 l + ( D L * 5 1 2 ) ) , 7 9 : RETURN
2 4 6 POK E ( 3 0 1 8 0 + ( D L * 5 1 2 ) ) , 7 9 : P O K E
( 3 0 1 8 l + ( D L * 5 1 2 ) ) , 7 5 : R E T U RN
2 4 7 FOR L L = l 'rOP
2 4 8 AB ( L L ) = L E N ( P $ ( L L ) )
2 4 9 FOR L = A B ( L L ) TO l S T E P - 1
2 5 0 N M $ = R I GHT$ ( P $ ( LL ) , L )
2 5 1 NN ( L L , L ) =ASC ( NM$ )
2 5 2 N E XT : N E XT
2 5 3 RETURN
2 5 4 NL= 301 9 4
2 5 5 FOR L = l TOAB ( WW )
2 5 6 PO K E ( N L + ( D L * 5 1 2 ) ) , NN ( WW , L )
2 5 7 NL=NL-1
2 5 8 N E XT
2 5 9 RETURN
2 6 0 MV $ = S T R $ ( M V ) : N L = 3 0 2 0 2
261 FOR L=2T01 STEP-1
2 6 2 N M $ = R I G H T $ ( M V$ , L )
2 6 3 MV ( L ) = A S C ( N M $ )
2 6 4 P O K E ( N L + ( D L * 5 1 2 ) ) , ( MV ( L ) + 6 4 )
2 6 5 NL=NL+ l : NEXT
2 6 6 M N $ = S T R $ ( MN ( WW ) ) : N L = 3 0 1 9 7
2 6 7 FOR L = 4 T01 S T E P - 1
2 6 8 NM $ = R I G H T $ ( M N $ , L )
2 6 9 MO ( L ) = A S C ( N M$ )
2 7 8 P O K E ( N L+ ( D L * 5 1 2 ) ) , ( MO ( L ) + 6 4 )
2 7 1 N L = N L + l : N E XT
2 7 2 RETURN
2 7 3 C L S : P R I NT @ 2 2 4 , " 0 I F F A C U LT Y ( 1
- 4 ) l = EASY I 4 = HAR D " ; : I N PUTDA
2 7 4 I F D A > 4 OR D A < l T H E N 2 7 3 E L S
E D B = I NT ( D.l\ )
2 7 5 ON DB GOTO 2 7 6 , 2 7 7 , 2 7 8 , 2 7 9
2 7 6 C Z = l 4 : AZ = 5 : D Z = l 2 : MZ = 2000 : RZ =
8 00 : R E T U R N
2 7 7 C Z = l 2 : A Z = 4 : D Z = 1 0 : M Z = 2 5 00 : R Z =
7 00 : R E T U R N
A
2 7 8 C Z = l 8 : AZ = 3 : D Z = 8 : M Z = 3888 : R Z = 6
88 : R E T U R N
2 7 9 C Z = 6 : A Z = 2 : D Z = 6 : M Z = 3 5 08 : R Z = 5 8
8 : R ET U R N
2 8 8 F O R L = ( 3 0 1 8 7 + ( D L * 5 1 2 ) ) T0 ( 3 0 2 8
3 + ( DL * 5 1 2 ) ) : PO K E L , 1 4 3 : N E X T L : RETU
RN
2 8 1 P R I NT : PR I N T "
--HELP
TABLE-- "
2 8 2 P R I N T " N-NORTH " : P R I NT " T - NORTH
E A ST "
2 8 3 P R I N T " E - E A ST " : P R I NT " V- S OUTH E
AST "
2 8 4 P R I N T " S - SOUTH " : P R I NT " Z - SOUTH
WEST "
2 8 5 P R I N T " W - W E ST " : P R I NT " Q -NORTHW
E ST "
2 8 6 P R I N T " U - U P " : P R I N T " D - DOWN "
2 8 7 P R I NT : P R I NT "
P R E S S ANY KEY
TO CONT I N U E "
2 8 8 I $ = I N K EY $ : I F I $ = " " T H E N 2 8 8
2 8 9 CLS : P R I NT "
- - H E L P TABL
E CONT . - - " : P R I NT
2 9 8 P R I N T " A - A R R E ST " : P R I N T " R - R E P E
AT C L U E "
2 9 1 P R I NT " C - U S E C A R D " : P R I N T " X - D I
S P LAY T H I E F ' S L E V E L "
2 9 2 P R I N T " X - R E T U RN T O Y O U R L E V E L
" : P R I NT " F - F I N I S H T U R N "
2 9 3 P R I N T " H - H E L P T A R L E " : P R I NT : P R
INT"
P R E S S ANY K E Y TO CONT I N U E
2 9 4 I $ = I NKEY$ : I F I $ = " " T H E N 2 9 4 ELSE
RETURN
2 9 5 P O K E X Y ( WW ) , PT : GOS U B 2 8 l : GOSUB
1 9 5 : GOSU B 2 8 3 : GOT0 1 7 3
ENO
ll
for the
TRS·SO
�
color com p u t e r
Color - 80
PageWriter
EASY
TO USE ,
PROCESS I NG ,
TEXT
LOW COST
W I TH BO
W I NDOW •
BASED
FOR
1 6K COLOR
CASSETTE
WORD
COLU....
�
CASSETTE
;
$ 1 8 . 95
BAS I C
ONL Y . .
USER
Color - 80
BASl • CA LC
m i n i spreadsheet
:a:o��;m
NEW
15
WAY FOR
10
USERS TO J O I N
X
CASSETTE
THE
COCO
ROWS/COLUf1NS.
COLOR
$ 1 8 . 95
BAS I C
CHECK/MONEY ORDER
+
{}
" CALC CLUB
{
:::
:::
:-:·
$2.00 SHIPPING
N.Y. RES. ADD SALES TAX
"l•9•�·�"("'!J• soFTWARE
P. O . BOX 326
CAMBRIA HTS.N.Y.114 1 1
Circle Reader Service card #30
November 1 985
HOT Coco
43
Star Gemini SG-10
New model for 1 985
r/. r""7'
SUPER PRO KEYBOARD
The Greatest Hi-Res Graphic Arcade Game Ever Written for Your CoCo
Why pay morel' the best is
only $59.95*.
By Rob Shaw. Author of Tut 's Tomb
�Welcome Shock Trooper Squad Commander!
���,..__,
·
Intelligence has intercepted a coded message
revealing a plan to conquer Earth.
Four of your Shocktroopers must
infiltrate the heavily defended under·
ll.
• -�
ground enemy base and steal all of
•
their secret TRG·5 attack saucer
-'. ,., ·.
sub-assemblies. Return them to our
Q\
·
scientists for analysis. This secret
information is crucial to our defense. '-------'
*Computers produced after approxi­
mately Oct., 1982 require an additional
plug adapter. Please add $3.95.
��----�
.· · . ::;·�
· · ··
:iJ
�(·· ::� �:I
Good Luck'
COCO - UTIL
Also: Presenting the Sixth and Most Challenging of our Adventures
.I\
n
VonTEV
By Bob Withers and Steve ODeo
THE
The Vortex Factor' What is it? What secrets does it
hold? The seeker of treasures through time and space
FACTOR must find out1 From the coliseum of ancient Rome to
.
the futuristic world of tomorrow . . .
·
Great new utility.
JI ll
_,
i'j������
PCX-11
�.
*
We now offer IBM PC-XT
compatible computer
L.:
--_ systems. Don't settle for a
Tandy 1000 or other standard PC until
you check our systems and prices.
Other Exciting Adventures in
Our Popular Series
Starting at $865.
Calixto Island
Shenanigans
Trekboer
Sea Search
Black Sanctum
NEED MORE
MEMORY?
All Games-Cassettes $24.95/ Discs $27.95
32K required
GREAT BARGAINS ON COCO DISC DRIVES!
Single Drive (SSDD) in Dual Cabinet w/Controller .
Additional Drive . . .
. . . . . . . . .
Two Drives (SSDD) in Dual Cabinet w/Controller .
.
Single Drive (DSDD) in Dual Cabinet w/Controller
Additional Drive . . . . . . . . . . . . . . . .
. . . . . .
Two Drives (DSDD) in Dual Cabinet w/Controller . . . •
. . . $299.95
. . . . 89.95
.
.
. • •
.
' .
.
. . . . . . . . 359.95
. . . . • . . . . 129.95
• • • • . . . . . 484.95
•
. . .
384.95
•
ACCOUNTING SYSTEM
Dual Cabinet/Power Supply
. . . . . . . . . . . . . . . . 19.95
Disc Controller (Radio Shack or ) & M) . . . . . . . . .
. . . 139.95
ConnectingC a bl e . . . . . . . . . .
. 24.95
Radio Shack DOS ROM 1.1 or )/DOS w/Manual .
. . . . . 39.95
QUALITY VIDEO MONITORS
SaKata Color
SC-100
CG S Amber Screen
1 2" 20 MHZ monitor
with DELUXE T I LT
SW IVEL BASE.
��
..l�'
e
High Qual ity 1 3" mon itor.
Sharp, bri l liant colors.
�··
��.9�
�
2$119.9
64K Memory
Expansion Kit
UNIVERSAL VIDEO DRIVER
Carefu l l y
engineered to
work with
ALL color
computers &
ALL composite
monitors.
ORDER ENTRY SYSTEM
Enter orders, print shipping
papers and i nvoices.•
EASY FILE DATA MANAGEMENT
PURCHASED WITH A MONITOR $24.95
.J_���������L:::::::
::
::::
::
===
::
===:::�
::
�:;;;�
;;;;:;
=--
�
SHIPPING: All orders under $1W please add $2 regular. SS air. All orders over $100 please add 3'X, regular, 8'X.air. California residents please add 6'Y., sales tax. Orders outside the con1inental
U.S .. check with us for shipping amount: please remit U.S. funds. Software authors-contact us for exciting program marketing details. We accepl MasterCard and VISA. Distributed in
Canada by Kelly Software.
FREE- Send for our free catalog fl ier.
24001 ALICIA PKWY., NO. 207 • MISSION VIEJO, C A 92691
•
(714) 768-1551
ram
is available on our Instant CoCo cassette.
the Instant CoCo ad elsewhere in this issue .
MATHEMATICS
by Wayne McArt h u r
•
j
...
" ,,,,,., -- - - - ....�
Take the confusion out of performing mathematical and geometric computations.
C
alculators are nifty devices that make
mathematical computations easier.
The trouble with calculators, even the ones
with memories, is that it's easy to lose track
of the numbers you 're entering if you have to
go through a series of steps to obtain an an­
swer. That's especially true if you're trying
to remember geometric formulas at the same
time. With Mathematic Helper (see Listing),
your CoCo becomes a calculator that
prompts you for input and stores (for _some
calculations) the result of your last compu­
tation on the screen for easy reference. It
helps you with problem solving when you
need to perform addition, subtraction. mul-
tiplication. division, or square roots; raise
numbers to a certain power; or do figuring
for solid cubes, triangles. circles. cones, cyl­
inders, solid rectangles, pyramids. or prisms.
(Refer to Table 1 for an outline of program
flow.)
Using the Program
In the opening screen, a blinking cursor
System Requirements
1 6K RAM
Extended Color Basic
marks the instructions. The first operation.
addition, is highlighted in the line below, and
another highlighted box at the bottom of the
screen contains the result of the last opera­
tion-zero when you first run the program.
Use the right- and left-arrow keys to move
through the list of operations until the one
you want appears in the top highlighted box;
then press the enter key to bring up the
screen for that operation.
The first five operations are addition. subtraction. multiplication, division, and square
root. The program prompts you to input the
values (only one value is required to compute
a square root) and then displays the answer.
November 1 985
HOT Coco
45
�
�
�
<E
.5'
c::
.g
i
;::
To carry the result of these equations from
one to the other, type Y in response to the
save-result prompt.
The next operation, solid cube, requires
only one entry: the length of one side. The
program computes the cube's cubic contents
and the square surface area. Although you
can carry a result from a single-answer cal­
culation (e.g., multiplication) into the solid­
cube calculation, you cannot carry an an­
swer from it to another problem because the
program gives more than one result. The pro­
gram displays the cubic contents as the an­
swer in the last-result box.
When you select the triangle function, the
program asks whether it is a right triangle­
one that has a 00-degree angle. For right tri­
angles, you must enter at least two more
items of information; for other triangles, you
need at least three pieces of information. Use
the up- and down-arrow keys to select an
item; press the enter key to bring up the input
prompt for your selection. When the program
has sufficient data, it computes the values for
vertical height, square area, base , hypoten­
use, opposite side, and the three angles. Use
the up and down arrows to move through the
list and reveal the computed values.
The power calculation involves three val­
ues: the base (X), power (Y), and result (Z).
When you submit two of the values, the pro­
gram provides a result that you can transfer
to certain other operations. If you supply X
and Y, you must press the enter key to see
the computed value of Z.
For circles, you only need to submit one item
ofinformation: the radius, diameter, circumfer­
ence, or square area. The program calculates
the other values from the one submitted and
also figures the surface and cubic contents for
Program Listing. Mathematic Helper
1 0 D I MA$ ( 1 4 ) : FORA=lT01 4 : READA$ ( A
) : N EXT : B $ = CHR$ ( 1 2 8 ) : A= l
20 P I = 3 . 1 4 1 5 9 2 6 5
3 0 DATAA D D I T I O N , S U BT RACT I ON , M U L T
I P L I CA T I O N , D I V I S I O N , S Q U A R E ROOT ,
SO L I D C U B E
4 0 DATAT R I A NG L E , POWER , C I RC L E S , CO
N E , CY L I N D E R , S O L I D R E CTANG L E , P Y R A
M I D , P R I SM
50 C L S 0 : P R I NT @ 7 , " ma t h e m a t i c " B $ " h
e l pe r " ;
6 0 P R I NT @ 6 5 , " u s e " B $ " a r r ow s " B $ " f o
r " B $ " f u n c t i o n " B $ " c h o i ce " ;
7 0 GOSUB 1 2 3 0
80 PRINT@l06 , " then " B $ " ente r " ; : PR
I N T@ l 2 8 , A$ ( A )
9 0 Z $ = I N K E Y $ : I F Z $ = " " T H E N FO R F = l 3 4
T0 1 3 7 S T E P 3 : P R I NT @ 6 4 , C H R $ ( F ) ; : P LA
Y " P 5 0 " : N E XT : GOT0 9 0
1 0 0 I F Z $ = CHR$ ( 0 8 ) T H ENA=A- 1 E LS E I F
Z $ =CHR$ ( 0 9 ) T H E NA=A+ l
1 1 0 I F A > l 4 T H EN A = l E L S E I F A < l T H E NA =
14
120 I FZ $ =CHR$ ( 1 3 ) THEN1 30ELSEPRIN
T @ l 2 8 , A $ ( A ) : GOT0 9 0
1 3 0 I F A = l GOSU B 2 1 0 : Q = X + Y : P R I NTQ : G
OT02 4 0 E L S E 1 4 0
46
HOT CoCo
November 1 985
"
Line Function
10-40 Reads function titles A$( 1 ) to
A$(14) into memory and as­
670-700 Calculates angles from previ­
ously entered information and
signs value of PI.
50-80 Sets up the menu page.
Function Choices
Addition
Subtraction
Multiplication
Division
Square Root
Cube
Enters X and Y values for
some operations.
240-250 Allows user to save result or
dispense with it.
260-330 Sets up screen for a triangle;
asks if angle C is 00 degrees.
340-300 Allows choice of entering or
00- 120
1 30
140
1 50
160
170
1 80-200
2 10-230
changes them to radians for
other figuring.
7 10-700 Calculations for powers
800-920 Uses input information to
supply you with unknown
values for the circle.
930-900 Computes surface area and
cubic contents.
1000- 1040 Calculates area and cubic
contents of a cylinder.
1050- 1080 Calculations for a solid rec­
tangle
1000- 1 1 50 Calculations for a pyramid
1 160-1 2 10 Calculations for a prism
1220 Pause that allows the user to
look over the results of some .
functions.
1230 Lets you see the last result
from single-answer functions.
reading data about a triangle.
400-550 Calculates values entered for
right triangles.
560-660 Calculates values entered for
triangles that are not right tri­
angles.
1 240 Changes string input ($) to a
numeric expression for some
functions.
Table 1 . Program Flow
a sphere with the given dimensions.
By supplying the base circumference and
slant height of a cone, you can find its lateral
area; with the base and vertical height, you
can find the cubic contents. Entering the
height and circumference of a cylinder gives
you the lateral area and cubic contents; en­
for a pyramid allow you to figure the lateral
area; the perimeter, area of the base, and ver­
tical height give you the cubic contents. You
can compute the lateral area of a prism if you
know the perimeter of the base and the height,
or the cubic contents if you know the area of
the base and the height. •
tering the length, width, and height of a solid
rectangle yields its square area and cubic
contents.
The perimeter of the base and slant height
A ddress correspondence to Wayne Mc­
Arthur, 1 1 05-204 Fairmont Drive, Saskatoon,
Saskatchewan, Canada S7M 4P5.
1 4 0 I F A = 2 G O S U B 2 1 0 : Q = X - Y : P R I NTQ : G
O T0 2 4 _0 E L S E 1 5 ,0
1 5 _0 I F A = 3 G O S U B 2 1 0 : Q= X * Y : P R I NT Q : G
OT02 4 _0 E L S E 1 6 0
1 6 0 I F A = 4 G O S U B 2 1 0 : I F Y = ,0 T H E N 5 _0 E L S
E Q = X / Y : P R I NTQ : GOT02 4 _0 E L S E 1 7 _0
1 7 _0 I F A = 5 T H E N S = l : GO S U B 2 1 .0 : Q = S Q R (
X ) : P R I NTQ : GOT0 2 4 0 E L S E 1 8 _0
1 8 _0 I F A > < 6 T H E N 2 6 0 E L S E S = l : GO S U B 2 1
0
1 9 0 P R I NT @ 2 8 8 , " c u b i c " B $ " c o n t e n t s
" ; : Q= X � 3 : P R I NTQ
200 P R I NT " sq " B $ " s u r face " B $ " a r e a "
( X * X ) * 6 : GO T0 1 2 2 _0
2 1 .0 P R I NT @ 2 2 4 , " e n t e r " : I F X > < 0T H E N
P R I NT " x ? " X : GO T0 2 3 0
2 2 _0 I N P U T " x " ; X $ : X = V A L ( X $ )
2 3 0 I F S = l T H E N S = 0 : P R I NT @ 3 2 ,0 , " = " ;
: R E T U R N E L S E I N P UT " y " ; Y $ : Y =VAL ( Y $
) : P R I NT @ 3 2 0 , " = " ; : R E T U R N
2 4 0 P R I NT @ 3 5 2 , " s a v e " B $ " r e s u l t y ­
n " ; : Z $ = I N K E Y $ : I F Z $ = " Y " THENX=Q E
L S E I F Z $ = " N " TH ENX=0ELS E 2 4 0
2 5 0 GOT0 5 ,0
2 6 0 I F A > 7 T H EN 7 1 0 E L S E Z = 0 : C L S 0 : D = 3
3
2 7 0 F $ ( 0 ) = " v e r t i c a l " + B $ + " he i g h t "
: F $ ( l ) = " s qu a r e " + B $ + " a r ea " : F $ ( 2 ) =
" b a s e " : F $ ( 3 ) = " h ypo t e n u s e " : F $ ( 4 ) =
" o ppo s i t e " : F $ ( 5 ) = " a n g l e " + B $ + " a " :
F $ ( 6 ) = " a n g l e " + B $ + " b " : F $ ( 7 ) = " a ng l
e " +B$+ " c "
2 8 0 P R I NT @ 9 3 , " b " ; : FORQ= l 2 5 T0 3 8 1 S
T E P 3 2 : P R I N T @ Q , " O " ; : N E X T : P R I NT @ 4 1
3 , " c " ; : FORQ= 4 1 2 T 0 4 0 4 S T E P - l : P R I NT
@ Q I . B . ; : N EXT
2 9 0 FORQ= l 2 4 T 0 3 7 3 S T E P 3 l : P R I N T @ Q ,
" H " ; : N E X T : P R I NT @ 4 0 3 , " a " ;
3 ,0 0 P R I N T @ 4 1 8 , " AN G L E c = 9 ,0 D EG R
E E S ? < Y > < N > " ; : P R I NT @ 4 1 8 , S T R I NG $ (
3 0 , B$ ) ; : R $ = I N K E Y $ : I F R $ = " " T H E N 3 0 0
3 1 .0 P R I NT @ 0 , " u s e " B $ " a r r ow s " B $ " t o
" B $ " mov e " B $ " u p " B $ " o r " B $ " dow n " ;
3 2 0 P R I NT @ 4 8 0 , " P R E S S " B $ " e n t e r " B $
" < O R > " B $ " n " B $ " FO R " B $ " N E W " B $ " S E T "
.
3 3 ,0 F O R S = 0T07 : D = D + 3 2 : P R I N T @ D- l , F
$ ( S ) , : N E XT : D= 6 5 : I F R$ = " Y " OR R $ = " N "
T H E N 3 4 0 E L S E D= 3 3 : GOT0 3 0.0
3 4 _0 Z $ = I N K E Y $ : I F Z $ = " " TH E N 3 4 .0 E L S E
PRINT@D-1 , F$ ( Z ) ,
3 5 _0 I F Z $ = C H R $ ( 1 3 ) T H E N P R I NT @ 4 1 6 , F
$ ( Z ) , : I N PUT I N $ : I N = V A L ( I N $ ) : P R I NT
@ 4 1 6 , S T R I NG $ ( 3 2 , B $ ) ; : GO S U B 4 0 0
3 6 _0 I F Z $ = " N " T H E N FO R Z = 0 T 0 7 : A ( Z ) = 0
: N E XT : A = 7 : GOT05,0
3 7 0 I F Z $ =C H R $ ( 9 4 ) A N D Z > = l T H END=D3 2 : Z=Z-l
3 8 0 I F Z $ = C H R $ ( 1 0 ) AN D Z < = 6 TH END=D+
32 : Z=Z+l
3 9 0 P R I N T @ D - l , " > " ; A ( Z ) , : GO T0 3 4 0
4 0 0 A ( Z ) = I N : I F R $ = " Y " TH E NA ( 7 ) = 9 0 E
L S E 5 6 _0
4 1 _0 I F A ( 5 ) > = 9 00 RA ( 6 ) > = 9 0T H E N A ( Z )
=0
4 2 0 I FA ( 0 ) > 0T H ENA ( 4 ) = A ( 0 ) E L S E A ( 0
) =A ( 4 )
4 3 0 I F A ( 2 ) > 0T H EN I F A ( 0 ) = A ( 2 ) T H E N A
( 5 ) =4 5 : A ( 6 ) =45
4 4 0 I F A ( 0 ) > 0A N D A ( 2 ) > 0T H E NA ( l ) = ( A
( 2 ) * A ( 0 ) ) / 2 : A ( 3 ) = S QR ( ( A ( 2 ) * A ( 2 ) )
+ ( A ( 0 ) * A ( 0 ) ) ) : AA = A ( 0 ) / A ( 2 ) : A ( 5 ) =
A TN ( A A ) * 5 7 . 2 9 5 7 7 9 5 1
4 5 0 G O S U B 6 8 0 : I F A ( 0 J > 0 A N DA ( l ) > 0 T H
E N A ( 2 ) = ( 2 * A ( l ) ) /A ( 0 )
4 6 0 I F A ( l ) > 0 A N DA ( 2 ) > 0T H ENA ( 0 ) = ( 2
* A ( l ) ) /A ( 2 )
4 7 0 I F A ( 3 ) > 0A N D A ( 6 ) > 0 T H E NA ( 4 ) = A (
3 ) *COS ( B )
4 8 0 I F A ( 3 ) > 0A N DA ( 5 ) > 0T H E N A ( 4 ) = A (
3 ) *SIN ( A )
4 9 0 I F A ( 0 ) > 0A N D A ( 5 ) > 0 T H E NA ( 3 ) = A (
0 ) /S I N ( A )
5 0 0 I FA ( 2 ) > 0A N DA ( 5 ) > 0 T H E N A ( 3 ) = A (
2 ) / COS ( A )
5 1 0 I F A ( 2 ) > 0 A N D A ( 3 ) > 0T H E N A ( 0 ) = SQ
R ( ( A ( 3 ) *A ( 3 ) ) - ( A ( 2 ) *A ( 2 ) ) )
520
I F A ( 0 ) > 0 A N D A ( 3 ) > 0T H E N A ( 2 ) = SQ
R ( ( A ( 3 ) *A ( 3 ) ) - ( A ( 0 ) *A ( 0 ) ) )
5 3 0 I F A ( 6 ) > 0 A N DA ( 0 ) > 0T H E NA ( 3 ) = A (
0 ) /COS ( B )
5 4 0 I F A ( 5 ) = 4 5 T H EN A ( 0 ) = SQ R ( A ( l ) + A
(1) )
5 5 0 T = T+ l : I FT < 4 T H E NGOT04 2 0 E L S ET=
0 : RETURN
5 6 0 GOS U B 6 7 0
5 7 0 I FA ( 2 ) >0ANDA ( 3 ) >0ANDA ( 5 ) >0TH
E NA ( 4 ) = S Q R ( ( A ( 2 ) * A ( 2 ) + A ( 3 ) * A ( 3 ) )
- 2 * ( A ( 2 ) * A ( 3 ) * COS ( A ) ) )
5 8 0 I F A ( 4 ) > 0 A N DA ( 3 ) > 0A N D A ( 6 ) > 0T H
E NA ( 2 ) = SQ R ( ( A ( 4 ) * A ( 4 ) + A ( 3 ) * A ( 3 ) )
- 2 * ( A ( 4 ) * A ( 3 ) * COS ( B ) ) )
5 9 0 I FA ( 4 ) > 0A N D A ( 2 ) > 0A N D A ( 7 ) > 0T H
E NA ( 3 ) = S Q R ( ( A ( 4 ) * A ( 4 ) + A ( 2 ) * A ( 2 ) )
- 2 * ( A ( 4 ) * A ( 2 ) * COS ( C ) ) )
6 0 0 I F A ( 4 ) > 0A N DA ( 6 ) > 0A N DA ( 5 ) > 0 T H
E N A ( 2 ) = ( A ( 4 ) * S I N ( B ) ) /S I N ( A )
6 1 0 I F A ( 4 ) > 0A N D A ( 7 ) > 0A N D A ( 5 ) > 0T H
E NA ( 3 ) = ( A ( 4 ) * S I N ( C ) ) / S I N ( A )
6 2 0 I F A ( 5 ) > 0A N D A ( 6 ) > 0 A N D A ( 3 ) > 0T H
E NA ( 4 ) = ( A ( 3 ) * S I N ( A ) ) / S I N ( C ) : A ( 2 )
= ( A ( 3 ) * S I N ( B ) ) /S I N ( C )
6 3 0 I F A ( 4 ) > 0A N D A ( 2 ) > 0 A N DA ( 7 ) > 0 T H
E N P = . 5 * ( 1 8 0 -A ( 7 ) ) : P = P / 5 7 . 2 9 5 7 7 9 5
l : P=TAN ( P ) : N= ( ( A ( 4 ) -A ( 2 ) ) / ( A ( 4 ) +
A ( 2 ) ) ) * P : N= A T N ( N ) : P =AT N ( P ) : P = P * 5
7 . 2 9 5 7 7 9 5 l : N=N*57 . 29 5 7 7 9 5 l : A ( 5 ) =
P+N : A ( 6 ) =P-N
. 6 4 0 I F A ( 2 ) > 0A N DA ( 3 ) > 0A N D A ( 4 ) > 0T H
ENAA= ( ( ( A ( 2 ) *A ( 2 ) ) + ( A ( 3 ) *A ( 3 ) ) ) ­
( A ( 4 ) * A ( 4 ) ) ) / ( 2 * ( A ( 2 ) * A ( 3 ) ) ) : SB =
A ( 3 ) * A A : S A = SQ R ( ( A ( 3 ) * A ( 3 ) ) - ( S B * S
B ) ) : A ( 5 ) = S A / S B : A ( 5 ) = ATN ( A ( 5 ) ) * 5 7
. 29577951
6 5 0 I F A ( 2 ) > 0A N D S B > 0A N D S A > 0 A N D A ( 7
) = 0T H E N S B = A ( 2 ) - S B : A ( 7 ) = S A / SB : A ( 7
) = AT N ( A ( 7 ) ) * 5 7 . 2 9 5 7 7 9 5 1
6 6 0 I F A ( 2 ) > 0 A N D S A > 0T H E N A ( 0 ) = S A : A
( l ) = ( A ( 2 ) *A ( 0 ) ) / 2
6 7 0 I F A ( 5 ) > 0 A N DA ( 6 ) > 0T H ENA ( 7 ) = 1 8
0- ( A ( 5 ) +A ( 6 ) )
6 8 0 I F A ( 6 ) > 0 A N DA ( 7 ) > 0 T H E N A ( 5 ) = 1 8
0- ( A ( 6 ) + A ( 7 ) )
6 9 0 I F A ( 5 ) > 0 A N D A ( 7 ) > 0 T H E NA ( 6 ) = 1 8
0- ( A ( 5 ) +A ( 7 ) )
7 00 A =A ( 5 ) / 5 7 . 2 9 5 7 7 9 5 l : B = A ( 6 ) / 5 7
. 2 9 5 7 7 9 5 l : C=A ( 7 ) / 5 7 . 2 9 5 7 7 9 5 l : RET
URN
7 1 0 I F A > 8 T H E N 8 0 0 E LS E C L S 0 : P R I NT @ l
00 , " x = BA S E y = P OW E R z = R E S U LT " ;
7 2 0 P R I NT @ l 6 0 , " i f " B $ " v a l u e " B $ " u n
k n ow n " B $ " p r e s s " B $ " < E NTE R > " B $ B $ ; :
GOSU B 1 2 3 0 : GOSU B 2 1 0 : P R I NT @ 3 2 0 , " z "
; : I N PU T Z $ : Z = VA L ( Z $ )
7 3 0 I F X > 0A N DY > 0 T H EN Z = X � Y : Q= Z : GOT
0790
7 4 0 I F X > 0 A N D Z > 0 T H E N Y = LOG ( Z ) /LOG (
X ) : Q= Y : GOT0 7 9 0
7 5 0 I F Y < l 0T H E N T = l 0 0 0 E L S ET = l 0
7 6 0 P R I NT " P R E S S K E Y W H E N CALCULA
T I ON E N D S ! " ;
7 7 0 Q = X � Y : I FQ < Z T H E N X = X + T E L S E I F
Q > Z THENX=X- ( T ) : T=T* . l
7 8 0 P R I NT @ 2 5 8 , X , : S $ = I N K E Y $ : I F S $ =
" " T H E N 7 7 0 E LS EQ = X
7 9 0 P R I NT @ 2 5 6 , " x " X : P R I NT " y " Y : P R I
N T " z " Z : P R I NT : GOT0 2 4 0
8 0 0 I F A > 9 T H E N 9 3 0 E L S EC L S 0 : P R I NT @ 4
3 , " c i rcles " ;
8 1 0 P R INT@ 9 7 , " pr e s s " B $ " e n t e r " B $ "
i f " B $ " v a l u e " B $ " u n k nown " ;
8 2 0 P R I NT @ l 6 0 I ;
8 3 0 I N P U T " r a d i u s " ; X $ : GO S U B 1 2 4 0 : I
F X > 0T H E N 8 9 0
8 4 0 I N P UT " d i a me t e r " ; Y $ : GO S U B 1 2 4
0
8 5 0 I F Y > 0T H E N X = Y/ 2 : GOT08 9 0
8 6 0 I N P UT " c i r c u m f e r e n c e " ; Z $ : GOSU
8 1 2 40
8 7 0 I F Z > 0T H E N X = Z / ( 2 * P I ) : GOT0 8 9 0
8 8 0 I N P UT " a r e a " ; S A $ : S A=VAL ( S A $ ) :
I F S A > 0T H E N X = S Q R ( SA /P I )
S 9 0 Y = 2 * X : Z = P I * Y : S A= P I * ( X * X )
9 0 0 P R I NT @ l 6 0 , " r a d i u s " X : P R I NT " d i
ame t e r " Y : P R I NT " c i r c u m f e r e n c e " Z : P
R I NT " s q u a r e " B $ " a r e a " SA
9 1 0 P R I NT " s p h e r e " B $ " s u r f a c e " B $ " a
r e a " : P R I NTX * X * ( 4 * P I )
9 2 0 P R I NT " s p h e r e " B $ " c u b i c a l " B $ " c
o n t e n t s " : P R I NTX � 3 * ( ( 4 * P I ) / 3 ) : GOT
01220
9 3 0 I F A > l 0T H E N 1 00 0 E L S E C L S 0
9 4 0 P R I NT @ 4 4 , " c o n e s " ;
9 5 0 P R I NT @ 9 6 , " b a s e " B $ " c i r c u m f e r e
n c e " : I N P UTX $
9 6 0 P R I NT " s l a n t " B $ " h e i g h t " : I N P UT
Y$
9 7 0 P R I NT " v e r t i c a l " B $ " h e i g h t " : I N
P UT Z $ : GO S UB 1 2 4 0
9 8 0 P R I NT " l a t e r a l " B $ " a r e a " ( Y * X ) /
2 : P R I NT
9 9 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " ; :
R A = X / ( 2 * P I ) : AR = P I * ( RA * RA ) : P R I NT (
A R * Z ) / 3 : GOT0 1 2 2 0
1000 I F A > l l T H E N 1 0 50ELS ECLS0 : P R I N
T @ 4 2 , " cy l i nd e r s " ;
1 0 1 0 P R I NT @ l 2 8 , " h e i g h t " ; : I N P U T X $
1 0 2 0 P R I NT : I N P UT " c i r c u m f e r e n c e " ;
Y $ : GO S UB 1 2 4 0
1 0 3 0 P R I NT
. : P R I NT " l a t e r a l " B $ " a r e a
" X*Y
1 0 4 0 P R I NT : P R I NT " c u b i c a l " B $ " c o n t
e n t s " ; : RA = Y / ( 2 * P I ) : A R = P I * ( RA * RA )
: P R I NTAR * X : GOT0 1 2 2 �
1 0 5 0 I FA > l 2THEN1 090ELSECLS0 : P R I N
T@43 , " rectangles " ;
1 0 6 0 P R I NT @ l 2 8 , ; : I N P UT " l e n g t h " ; X
$ : I N P UT " w i d t h " ; Y $ : I N P U T " h e i g h t " ;
Z $ : GO S U B 1 2 4 0
1 0 7 0 P R I NT " s q u a r e " B $ " a r e a " 2 * ( ( X *
Z ) + ( Y*Z ) + ( X *Y ) )
1 0 8 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " X
* Y * Z : GOT0 1 2 2 0
1 0 9 0 I F A > l 3 T H E N 1 1 6 0 E L S E C L S0 : P R I N
T @ 4 4 , " py r a m i d s " ;
1 1 0 0 P R I NT @ l 2 8 , " pe r i me t e r " B $ " o f "
B $ " ba s e " ; : I N PUTX $
1 1 1 0 P R I NT " s l a n t " B $ " h e i g h t " ; : I N P
UTY$
1 1 2 0 P R I NT " a r e a " B $ " o f " B $ " ba s e " ; :
I N P UT Z $ : GOSUB 1 2 4 0
1 1 3 0 P R I NT " v e r t i c a l " B $ " h e i g h t " ; :
I N P UTVH$ : VH = VAL ( V H $ )
1 1 4 0 P R I NT " l a t e r a l " B $ " a r e a " ( X * Y )
/2
1 1 5 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " (
Z * V H ) / 3 : GOT01 2 2 0
1 1 6 0 C L S 0 : P R I N T @ 4 4 , " p r i s ms " ;
1 1 7 0 P R I NT @ l 9 2 , " pe r i me t e r " B $ " o f "
B $ " ba se " ; : I NPUTX$
1 1 8 0 P R I NT" a r ea " B $ " o f " B $ " ba se " ; :
I N P UTY$
1 1 9 0 I N P UT " h e i g h t " ; Z $ : GO S U B 1 2 4 0
1 2 0 0 P R I NT " l a t e r a l " B $ " a r e a " X * Z
1 2 1 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " Y
*Z
1 2 2 0 P R I NT@ 4 1 6 , " p r e s s " B $ " e n t e r " B
$ " t o " B $ " c o n t i n u e " ; : I N PUTX $ : X = V A L
( X $ ) : GOT0 5 0
1 2 3 0 P R I NT@ 4 4 8 , " l a s t " B $ " r e s u l t " B
$ " wa s " ; : P R I NT @ 4 8 0 , Q , : R E T U R N
1 2 4 0 X =VAL ( X $ ) : Y =VAL ( Y $ ) : Z =VAL ( Z
END
$ ) : R ET U R N
Circle Reader Service card # 1 20
PROTECTION FOR HO ME & FAM I LY
now turn your color computer
into an advanced, affordable
H O M E SECUR ITY SYSTE M
with graphic break-in display
s 79so
INCLUDES :
• Easy user installation
SENSORS.
• Sonic-grnphic alert
INTERFACE.
SOFTWARE.
• Available for disk
INSTRUCTIONS
or cassette models
,------
• Expandable for
x-tra sensors, auto
dialer, siren, etc.
• Tells you where
intrusion has occurred
--
- - -
-
-
-
_
1 O ��8f�s�o0
I 0 SEND BROCHURE
I I OWN A:
I D CASSETIE
I n rnsK
J COLOR COMPUTER
1-- N M ------------ --A E
STREET
STATE
I
ZIP
I
CITY
I
DATE
LOREDEC CORP.
S E C U RITY SYSTEMS DIVISION
P. O. BOX 565. EAST LONGMEADOW. MA 0 1 028
November 1 985
HOT Coco
47
This program is available on our Instant CoCo cassette. 17,::=::::=:=:::�
See the Instant CoCo ad elsewhere in this issue.
by Del bert A. Bake r
..
Fi nding Fi rewood + \ ·\t\lit +.
Best - Buys
.&1c' ti\%\· r>·· ��G:t��
· ··· ·
·· ·
·
..
.
Calculate the most economical
way to fill your woodshed.
:�'.\/)/\/}<< /
.. .
..
..-::�:::::::::::::::::::;::;::::
...::'::. \j'f::>:.:.:
</t\
{�\!f�YY?.>
�:;:;::://::::< o
·
V�· .·.- . ;-· ;«
�/j
. _ ,. ·
ne day
In October 1 98 2 , a
friend asked If I'd
like to buy pine firewood at $60 per cord,
cut and delivered. I bought
two c o r d s a n d s p i l t a n d
stacked It. But as I burned it to
keep warm that winter I kept wondering If I had made a good deal.
I reasoned that my CoCo should be able to
do the calculations and store the necessary
data with ease. However, before I could write
equations for the program. I had to decide
what kind of comparison would help me
make a quick decision about which
firewood to purchase. I
wanted to be able to look
through th e classifieds
and compare the woods offered to oak, which was selllng for $70 to $75 (cut and
delivered). and determine
.
.. .
:
;
'
�
�
�
.·.. -�· .
�����
t{�·
��:,i;.
�
�-%_
$:}�-::·\. ���:
-
�:-::�......
:- "•
.
.
�:::-:-:-:·=-�·>.-�: · �: :·. :
���:::�� :::��:' :::��:·, �
. •
•.
����-:�-�f:/�: ?ft\·i-Llti\
��
price of the other ood, then
the other wood would be a good
w
./<\\:\: :-·:\\:\ \\:: :_�: : - · ·�:1E:1f£:: :�
·.·::::::::::::.:·:.:.:.:.: .:: -·
whether they were a good value
In heat content per dollar.
How the Program Works
I wrote an equation that would
make the comparison and return an
answer In cost per cord as lf I had
spent the same amount of money on
oak. For example, If I were offered
wood with half the heat content of oak.
the program would tell me that the
equivalent price for a cord of oak was
twice the price of the wood In ques­
tion. I could then check the newspaper
to find out the prevalllng cost for a
System Requirements
1 6K RAM
Extended Color Basic
·
total heat value per cord of several kinds of
wood and the heat value of several nonwood
:: : :ia��o�sh��:!:roar��:
c
t
duce a program with five options:
l
2
3
4
5
.
Calculation
Available Wood Data
Explanation
Nonwood Conversion
Quit
Option l performs the calculation that al·
lows you to compare the price of a certain
w ood to th e prevailing cost of oak . Option 2
displays the heat content (In millions of
BTUs per cord) of all the types of wood for
which I could find data. You must type In the
name of the wood exactly as It appears In the
DATA statements; otherwise you receive a
message that reads. "l do not have that wood
data." Option 3 explains the meaning of the
calculation In option 1 .
Option 4 displays the nonwood-fuel data
and prompts you to select one of the items.
It then asks you which wood you wish to
compare. The result given ts the amount of
the nonwood source that replaces one cord
of the chosen wood lf both are burned at 100percent efficiency.
Tu make true comparisons. you need the
efficiency ratings of the respective heating
units-e.g .• a wood stove and an oil furnace.
If the stove ls 50-percent efficient and the fur­
nace ls 75-percent efficient. multiply the
wood amount by . 5 and the nonwood
amount by .75 to find out how much heat ls
delivered. Compare the prices to decide
which fuel Is most economical. You could
also use this option to compare operating
costs before installing a heating system.
A word of caution: The program evaluates
natural products that are highly variable In
their properties. Consequently, the calcu­
lated results are approximate. Furthermore,
the program does not take all factors into ac­
count; you must decide what value to attach
to such things as delivery , splitting, and
stacking.
Program Structure
Lines 1 00-620 contain the main program,
COt/lmucd
Page No.
Reader Service No.
107 AArdvark Software . . . . 7 1
3 2 2 A.S.C . . . . . . . . . . . . . . . . 69
138 B-5 Software . . . . . . . . . . . 80
335 Cer-Comp . . . . . . . . . 10. 1 1
405 Challenger Software . . . . 6 1
343 Cinsoft . . . . . . . . . . . . . . . . . 60
75
CoCo Devices . . . . . . . . . . . . 6 5
.
.
.
.
11
. . . . . . .
23
Colorware . . . . . . . . . . . 40. 4 1
The Computer Center . . . 2 2
18
Computer Plus . . . . . . . . . . CIII
506
Computer Systems
223
Center . . . . . . . . .
Computer Systems
121
•
Cognitec
.
.
.
.
.
.
.
.
. . . . . . . 19
D + A Research
.
213
Data-Comp . . .
243
Deft Systems . . .
. . . . . . . . . . 67
. . . . .2
209
Dorsett Educational
•
.
. . . . . . . 59
.
.
Systems . . . . . . . . .
D.P. Johnson .
.
E.A.P. . . . . . . . . . . . . . . . . . . 3 1
1 3 5 E.D.C . . . . . . . . . . . . . . . . 73
494 Electronic Motion Control 58
25
Four Star Software . . . . . 66
309 Group Technology Ltd.
. . . . . . . . . . . . . . . . . . . 71
440
.
.
.
.
.
.
.
. 77
. . . . . .
.
.
.
.
.
.
54
HJL Products . . . . . . . . . . . CIV
HOT CoCo
HOT CoCo Subscriptions . . . 33
Instant Coco . . . . . . . . . 56. 57
Toll Free # . . . . . . .
91
.
Page No.
2 16
.
Consultants . . . . . . . . . . . . . 3 1
225
Reader Service No.
.
.
.
. . . . 52
Incentive Software . . . . . . . . 26
101
15
1 20
24 1
J & M Systems . .
JTJ Enterprises .
Loredec Corp . . . . .
Mark Data . . . . .
305
Mathegraphics Software
1 96
Micro Works . . . . . . . . . . 29, 75
1 06
MICROCOM Software . . . . . . . 7
337
.
.
.
.
.
.
.
.
.
.
.
.
.
. . . .4
. . . 62
. . . . 47
. . . 44
.
. . 59
Nibble Notch Computer
Products . . . . . . .
.
.
. . . . .
.
Page No.
Reader Service No.
320 Parsons Software .
PBJ , lnc . . . . . . . . . .
1 24 Perry Computers . . .
1 5 3 Polygon Computers
2 2 2 Professor Jones . . . .
70
Saguaro Software . . .
214
. . . . . 52
. . . . . .21
. . . . . . 15
. . . . 58
. . . . . . 27
. . . . . . 79
1 1 9 Spectral Associates
. . . . . . . . . . . . . . . .
28
Software Connection
.
1 44 Sugar Software . . . . .
456 Sunlock Systems . . . . .
12
Sunrise Software . . . .
236 T & D Subscription
.
386 TCE Programs . . . . . . .
194 Totbian Software . . .
2 7 7 Triad Pictures . . . . .
93
True Data Products . . .
30
VMC . . . . . . . . . . . . .
30 1 Wasatchware . . . . .
1 7 5 White House Computer
.
.
.
.
.
.
.
.
.
25, 27
. . . . 51
. . . 62
. . . . 32
. . .
8
. . . 32
.
.
.
. CII, 1
. . . 61
. . . 36
.
.
.
.
1 6, 1 7
. . 43
.
. . . 51
. . . 28
. 25
Advertising Offices: (603) 924-7138 or (800) 441 -4403
*This advertiser prefers to be contacted directly. For further information from our advertisers, please use the reader service card.
Piclf of the Month
Coming Next Month
The first question on our Reader Service card adjacent to this page
asks you to pick your favorite article or feature in this issue. Write
the appropriate letter from the list below in the space provided on
the card.
A.
Doctor ASCII. Esposito and Ramhoff. p. 1 2
B.
Mindbus'.ers. Ramella. p . 1 4
C.
The Computer Room. Norman. p . 1 8
· D.
E.
F.
G.
H.
I.
J.
K.
Directory Assistance. Bonnell. p . 30
Mail It with Telewriter-64. German. p. 34
Halt Thief. Jense. p. 37
Mathematics Helper. McArthur. p. 45
Finding Firewood Best Buys. Baker. p. 48
Math Invasion. Clift. p. 53
Parallel Processing with Color Logo. Meredith. p. 55
Linked Lists. Bauder. p. 63
L.
Tame Your Reset Button. Gault. p. 68
M.
Teacher Helpers. Wood. p. 70
N.
6809 On Line. Ballard. p. 72
0.
Assembly 1 0 1 . Perotti and Perotti. p. 74
P.
The Learning Page. Kipperman. p. 76
Q.
Product News. Finnie. p. 78
B
elieve it or not. the Christmas buying season is almost upon
us. Do you know what to get for your CoCo-using friends and
relatives? HOT CoCo's December issue provides the shopping ad­
vice you need. Richard Esposito. author of our popular Doctor
ASCII column. gives you his best bets for Christmas gifts. And our
editors have thought long and hard about what they would like to
see under the tree. Read about their picks next month.
OS-9: That's a word you've seen a lot lately. OS-9 is Tandy's disk
operating system (DOS) of the future for the CoCo. Next month.
OS-9 expert Brian Lantz answers some of the most-often asked
questions about this up-and-coming DOS.
Ever left your Coco or disk drive on all night. or longer. without
realizing it? Mark Haverstock shows you how to install power-in­
dicator LEDs on both these items in December. The same article
tells you how to move the on/off and reset buttons from the rear to
the front of the CoCo.
We have much more for December. So pick up a copy of HOT
toco next month and enjoy! •
November 1 985
HOT CoCo
49
including the menu, subroutine directions,
and the wood data. Lines 630-890 control
option 1 . Line 640 prompts for a wood type:
lines 660-690 search for a data match. If a
match is not found, control passes to lines
9 10-960. The data is restored, the no-match
message is displayed, and the program asks
you if you want to see all the wood types
available. If you elect to see the data, control
passes to the subroutine in option 2. If a
match is found during the search, the pro­
gram jumps to lines 7 10-890, where you in­
put an asking price and confirm it. The
calculation is performed in lines 760-780:
the results are reported by lines 840-870.
Lines 980- 1 130 are the data-display rou­
tine. The program displays the data in
screens of 1 2 lines until it reaches STOP,
0000 . You then return to the main menu.
Lines 1 1 50- 1 420 contain a short explana­
tion of the result of the calculation in option
1 . Delete this section if you wish to conserve
memory.
Lines 1 440- 1 990 control option 4. Lines
1 440- 1 460 set the data pointer. to the first
entry of the non wood data. Line 1 4 70 reads
the nonwood data and stores it in an array.
Lines 1490- 1 590 display the nonwood data,
ask you to enter the wood type that you
want. and check your input. When you con­
firm your selection. control passes to lines
1 600- 1 640. After you submit the wood type.
the wood data is retrieved from the DATA
lines. Line 1 650 makes the comparison cal­
culation and adjusts the result to read in
whole numbers for nonwood materials mea­
sured in tons. Line 1 660 adjusts the calcula­
tion result to two decimal places for nonwood
materials measured in tons. Lines 1 6701 740 display the" results of the calculation.
Lines 1 8 10- 1940 provide a short explana­
tion of option 4. Lines 1 960- 1 990 offer the
option 2 data display if an invalid wood type
is entered in line 1 600.
Program Listing. Firewood
NT
AVA I L A B L E WOOD D A
3 5 0 P R I NT " 2
T A " : P R I NT
3 6 j!' P R I NT " 3
E X P LANAT I ON " : P R I N
T
NON-WOOD CONV E R S I
3 7 j!' P R I NT " 4
O N " : P R I NT
3 8 j!' P R I NT " 5
Q U I T " : P R I NT
3 9 1!' I N PUT " WH I C H DO YOU WAN T " ; Q
4 00 I F Q < l O R Q > 5 GOTO 3 2 0
410 I F Q=5 THEN 460 ELSE 420
4 2 0 O N Q G O S U B 6 3 0 , 9 8 0 , 1 1 5 1!' , 1 4 4
0
4 3 l:J P R I N T " E N T E R < M > FOR T H E M E N
U"
4 4 l:J I N PUT " P R E S S < E N T E R > I F F I N I
SHED " ; Q$
450 I F Q $ = " M " THEN 3 2 0
4 6 1!' P R I N T " GO O D B Y E FOR NOW "
4 7 j!' DATA A P P L E , 2 6 5 0 l:J , B L A C K A S H
, 1 9 l j!' l:J , WH I T E AS H , 2 3 6 l:J0
4 8 0 DATA A S P E N , 1 4 7 00 , BAS SWOO D ,
1 3 5 l:Jl:J , B E E C H , 2 4 000
4 9 0 DATA PAPER B I RC H , 2 0 3 l:J 0 , Y E L
LOW B I R C H , 2 3 6 1:J0 , B OX E L D E R , 1 7 9 0
0
5 0 l:J DATA C E D AR , 1 2 2 0 l:J , C H E R R Y , 2
0 0 0 1:J , COTTONWOO D , 1 3 5 0 0
510 DATA ELM , 1 9 5 00 , F I R , 1 4 300 ,
H A C K B E R RY , 2 0 8 0° 0
5 2 0 DATA H E M L OC K , 1 5 9 00 , H I C K O R Y
2 7 7 00 , H O R N B E AM , 2 7 3 0 0
I
l l l:J
120
1 30
140
1 50
160
170
180
190
2 0 l:J
210
220
s
2 3 1!'
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
R EM
REM
F I REWOOD C O S T P ROG RAM
D . BAKER
1983
T R S - 8 0 COLOR C O M P U T E R
Q , Q $ = U S E R RESPONSES
W $ = I N P U T , WOOD T Y P E
P = I N P U T , WOOD P R I C E
N $ = DA T A , WOOD T Y P E
H = DATA , H E AT VA L U E
X = H EAT V A L U E O F OAK
C = C A L C U L A T E D WOOD COST
E = H EAT IN K I LOWATT HOUR
G = H EAT IN C U B I C F E E T O F
NATURAL G A S
A $ ( L ) = D AT A , NON -WOOD S O
240 REM
URCE
2 50 REM
R ( L ) = D ATA , NON -WOOD S O U R
CE
2 6 1!' R E M
U $ ( L ) = DATA , NON -WOOD S O
URCE
270 REM
V = C A L C U L A T E D NON -WOOD Q
UANT I T Y
2 8 l:J R E M
Y = FOR-NEXT VARIABLE
299 REM
3 j!' l:J P = 0 : H = 0 : C = l:J : E = 0 : G = 0
3 1 0 D I MA $ ( 1 2 ) , R ( l 2 ) , U $ ( 1 2 )
3 2 0 CLS
3 3 0 P R I NT T A B ( l 3 ) " M E N U " : P R I N T
C A L C U L AT I O N " : P R I
3 4 0 P R I NT " l
50
HOT Coco
November 1 985
Modifying the Program
If oak is not a common firewood in your
area, you might want to choose another stan­
dard for comparison. Select a wood that is
widely enough used that the price does not
vary between suppliers.
If. for example. you live in an area where
maple is the standard and you know (or find
out) that it is all from one of the hard species
like sugar maple, list lines 4 70-5 70 to find the
data entry for hard maple. Substitute the ba­
sic heat value for hard maple (24,000) in the
equation. X 25.000. in line 760. Edit line
820. deleting "oak" and replacing it with
"hard maple." The program will then use ma­
ple as the standard for comparison. You might
also want to change the explanatory subrou­
tine (option 3) to reflect your modification.
You can add another kind of wood or non­
wood fuel to option 2. To add a wood source.
you must know the total heat value of a cord
of that wood in thousands of BTUs. (If the
value is given in millions of BTUs. move the
decimal point three places to right: 26.5 mil­
lion BTUs equal 26.500 thousand BTUs.) In­
sert your data pair-wood . BTUs-in the
DATA statements anywhere before the stop.
If you insert it after this marker. your data
will be treated as nonwood data.
The nonwood data is organized in sets of
=
three. The first item is the fuel source. the
second is the heat value in thousands of
BTUs per chosen unit. and the third is the
unit used to figure the total heat value. For
example. kerosene has a total heat value of
1 35.000 BTUs per gallon. so the data for ker­
..
osene would read. " KEROSENE. 1 35.gallon .
You can place nonwood data anywhere be­
tween the stop entry for wood and the stop
entry for nonwood (XXXX , 00,XX). Keep in
mind that placement of the new data deter­
mines where it will be displayed by line
1 5 10. In addition. you have to allow for in­
creases in the number of nonwood sources in
lines 3 10. 1 470. 1 500. and 1 520- 1 550.
As written. the program uses about 6.600
bytes. To run the program In Color Basic.
change the LINE INPUT statement in line 640
to an INPUT statement. Be careful when typing
in the program and answering the prompts-I
have included only minimal error checking. If
you have problems with the program. please
write to m e . enclosing a self-addresse d .
stamped envelope fo r m y reply. •
Barr, E.M . The How-To Book for Woodcutters.
EMBAR Endeavors. Entre Nous Inc .. 1 980.
.
The Family Handyman magazine (ed.). Heat­
ing with Wood. Butterick Pub .. 1978.
Vivian. John. Wood Heat, Rodale Press.
1976.
Table I. Bibliography
Address correspondence to Delbert A. Baker.
4780 Christopher Ave .. Albany. OR 9732 1 .
5 3 0 D A T A H A R D MAP L E , 2 4 0 0 l:J , S O F T
MA P L E , 1 8 7 0 0 , OAK , 2 5 0 0 0
5 4 0 DATA J A C K P I N E , 1 7 1 0 0 , N O RWA
Y PINE,
1 7 1 00 , W H I T E P I N E , 1 4 3 l:J 0
5 5 0 DATA S P R U C E , i 5 9 0 0 , T A M A R A C K
, 2 j!' 8 l:J 0 , A L D E R , 1 5 8 0 0
5 6 j!' D A T A DOUG L A S F I R , 1 7 6 0 l:J , L A R
C H , 2 0 8 l:J 0 , P O N D E RO S A P I N E , 1 8 1 0 0
5 7 0 DATA R E DWOO D , 1 8 3 00 , S T O P , 0
0000
5 8 0 DATA A N T H RAC I T E COA L , 2 3 0 l:J0 ,
TON , H I VOLAT I L E B I T UM I N O U S COA L ,
2 2 000 , TON , L� VO LAT I L E B I T U M I N
O U S COAL , 2 8 6 0 l:J , TON
1
5 9 0 DATA L I G N I T E COA L , 1 3 8 0 0 , T O
N , NO . l F U E L O I L , 1 3 5 , G A L , N0 , 2
F U E L O I L , 1 1 0 , GAL
6 0 0 DATA K E ROS E N E , 1 3 5 , G A L , P R O
P A N E , 9 1 , G A L , N A T U R A L GAS , 1 , C
UBIC FEET
6 1 0 DATA C H A RCOA L , 1 3 , L B , E L E C T
R I C I T Y , 3 . 4 1 3 , KWH , X X X X , 0 0 , X X
6 20 END
630
CLS
6 4 l:J L I N E I N PUT " WH I C H WOOD DO YO
U WANT TO BUY ?
" ; W$
6 5 0 P R I NT
6 6 0 READ N$ , H
6 7 0 I F N $ = " S TOP " T H EN 9 1 0
6 8 0 I F N $ =W $ T H E N 7 0 0
6 9 0 GOTO 6 6 0
9 S S I F L E FT $ ( Q $ , l ) = " Y " T H E N 9 8 S
ELSE RETURN
96S R ETURN
97S R E M
D I S P LAY WOOD D A T A
9 8 S C L S : P R I NT " H E R E I S A L L O F MY
WOOD DATA . "
9 9 S F O R Y = l T0 7 S S : N E X T Y
i n s P R I NT
l S l S C L S : P R I NT " WOOD T Y P E " , " M I L
L I ONS O F BTU "
1 S 2 S P R I NT " - - - - - - - - - - - - - - - - - - - -
7 S S R E ST O R E
7 1 S P R I NT " WHAT I S T H E A S K I NG P R
I CE P E R "
7 2 S I N P U T " CO R D I N WHOLE D O L L A R S
ONLY " ; P
7 3 S P R I NT
7 4 S P R I NT " YOU E N T E R E D $ " P ; : I N PU
T " R I G H T ( Y/ N ) : " ; Q $
7 S S I F L E FT $ ( Q $ , l ) = " N " T H E N 7 1 S
7 6 S C L S : X = 2 S f)fJS
77S C = I NT ( ( P * X ) / H + . S )
7 8 S E = I NT ( H/ 3 . 4 1 3 ) : G = H
7 9 S P R I NT " A CORD O F " ; W$
a s s P R I NT " AT $ " ; P ; " P E R COR D "
B l S P R I NT " WO U L D B E E Q U I VA L ENT T
0 P AY I NG "
8 2 S P R I NT " $ " ; C ; " F O R A CORD O F 0
AK . "
8 3 S P R I NT
8 4 S P R I NT " FO R A CORD OF " ; W $
a s s P R I NT " TOTAL AVA I LA B L E H E AT
P E R CORD " : P R I NT " I S " ; H / l S S S ; " M I
L L I ON B T U "
8 6 S P R I NT " E Q U I VA L E N T K I LOWATT H
O U R S OF
E L ECTR I C I T Y A R E " ; E
8 7 S P R I NT " EQ U I VA L E NT C U B I C F E ET
O F N A T U R A L G A S ARE " ; G
B B S P R I NT : P R I NT
8 9 S R ET U R N
9SS R E M NOT IN DATA
9 l S R E S 'r O R E
9 2 S P R I NT " I DO N O T H AV E T H AT W O
O D D AT A "
9 3 S P R I NT " T RY O N E F ROM MY DATA
D I S PLAY "
9 4 S I N P UT " DO YOU WANT TO S E E I T ?
( Y/N ) " ; Q $
Circle Reader Service card #301
BA S I C
•ASATCHlfARE b e l l e v e e
rlght
raet
to
use a l l
machine
64k o r
language
• l c r o proceeso r .
That
developed.
n. r e
Here
-
Progra111e
or
tor
Fu l l
can
use
large
RAN
ls
u!lere o f
le
uee
programming
•hy
the
BASIC
the
reaeone
all
64k or
or
Point
and
Full
-
BASIC eource
sequen t i a l
-
Mi\ny
and
the
in
full
coinpl l e r ,
that
the
called
•ake
deserve
compu t e r ,
po t e n t i a l
or
the
and have
t h e 6809
M.LB A S I C •as
t h i s complier one
or
t h i s 111a ga z l n e :
RAN
for
variables
a r l t h•e t l c
11ore
and
independant
direct
M.L.
ne" c o111111a nds
expand
program
for
l i ke
with
storage
A. { 20000)
t u n c t lons
e t ru c t u r e d
p r o g r a m development
acce•• d i e k
o u t put
t ho t
e i t he r
and a r r a y s
ei:preaelone
- SUBROUTINE and CALL command!! a l lo•e
-
t he Color Compu t e r
avai lable
t ha t
some o r
nu111 b e [" !l
Floating
C O MP IL ER
t ha t
programs
t h e b e a t b a r lif a l n a i n
-
that
1S3S FOR Y=l TO 12
l S 4 S R EA D N $ , H
l S S S I F N $ = " STOP " T H E N l l SS
1 S 6 S P R I NT N $ , H / 1 SS S
l S 7 S N E XT Y
l S B S I N P UT " P R E S S < E N T E R > TO CON
T I N U E " ; Q$
1 S 9 S GOTO l S l S
l l f)fJ P R I NT
l l l S P R I NT " T HAT I S A L L MY F I R E W
OOD DATA "
l l 2 S R E ST O R E
1 1 3 S RETURN
1 1 4 S R E M E X P LA N A T I O N
l l S S C L S : P R I NT "
T H I S P ROGRAM
WAS W R I TT E N IN
OR EGON W H E R E OAK
IS MOSTLY THE
STANDARD F I R EWOO
D. "
1 1 6 S P R I NT "
SO , T H I S P ROGRAM
COM P A R E S T H E H EAT V A L U E OF THE WO
OD I N Q U E S T - I ON W I T H OAK . " ;
1 1 7 S P R I NT " W H E N A S K E D , E N T E R T
H E K I N D OF WOOD T HAT YOU WANT
T
0 C O M P A R E A N D T H E P R I C E T H AT I S B
E I NG A S K E D F O R IT P E R CORD . "
f i l es
1/0 t o d i s k ,
your
a l lowed
tape
pro1ra1U1in1
o r ae•ory
c-apabi l l t y
Commands S uppo r t ed
1.
2.
3.
..
I/0 -Commands
CLOSE
CLOADN
F I ELD
DSKOS
LSET
OPEN
CSAVEM
F I LES
PR I NT
Program Control Commands
EXEC
END
CALL
IF
GOTO
GOSUB
STOP
RETURN
ON • • GO
Ma t h Funct lone
ASC
ABS
EXP
FIX
LOF
LOC
SIN
SGN
ATN
INSTR
PEEK
SQR
S t r 1 n& Fu net iona
LEFT$
I NKEYS
CHRS
STR�
STR I NG$
5 . G r a p h i c/Sound Commands
COLOR
PCLEAR
RESET
CLS
PCLS
SCREEN
C I RCLE
PLAY
SET
DIR
GET
PUT
DR I V E
I NPUT
RSET
STEP
FOR
ELSE
TllEN
SUBROUT I NE
cos
CVN
1
64K R equ i red
DIN
RESTORE
I BSHFT
SREG
L L I ST
RUN
LREG
SWP
DON ' T HES I TATE •
• •
943-6263
EOF
LOG
T I NER
RND
VAL
M I D$
NKN$
R I GHTS
DRAW
PNODE
SOUND
LINE
PRESET
PA I NT
PSET
NOTOR
TAB
PCOPY
VECTD
POKE
VER I FY
PNODD
VECTI
READ
OLD
PTV
LEN
PPOINT
BUY NLBA S I C TODAY
7350
W asatch W a re Salt
Call ( 80 1 )
Disk - $ 6 9 . 95
Tape - $ 6 9 . 9 5
Both - $74 . 95
NEXT
ERROR
INT
POINT
TAN
6 . O t h e r/Spec i a l Commands
DATA
REN
DST
REAL
OSK ! $
K I LL
Nut ree Drive
Lake C i. t y , Utah
84 1 2 1
I n c l ude $ 4 . 00 S h i nn i n� and Hand l i n�
U t a h r e s i d e n t s add 5 . 7 5 3 t a x
C h e c k or M o n e y Orders On l y ( No C . O . D . )
l l B S P R I NT "
I W I L L T H E N COMPA
R E THE H E AT VALUES A N D R ET U R N MY
A N S W E R AS ACOST FOR A CORD O F 0
AK .
1 1 9 S P R I NT
1 2 f)fJ P R I NT
1 2 1 S I N PUT " P R E S S < E NT E R > TO CON
T I NU E " ; Q
1 2 2 S C L S : P R I NT
1 2 3 S P R I NT " F OR E X A M P L E , I F YOU
E N T E R ' F I R ' AND $ S S P E R COR D , I
W I L L A N S WE R : "
1 2 4 S P R I NT
1 2 S S P R I NT " A CORD OF F I R "
1 2 6 S P R I NT " AT $ S S P E R CORD "
1 2 7 S P R I NT " WO U L D BE E Q U I VA L ENT
TO P A Y I NG "
1 2 8 S P R I NT " $ 8 7 F O R A CORD O F QA
K. •
1 2 9 1J P R I NT
1 3 S S P R I NT " I W I L L A LSO P R I NT T H
E TOTA L H EATVA L U E OF A C O R D OF T
H E WOOD I N "
1 3 1 S P R I NT " Q U E S T I ON I N K I LOWATT
HOURS A N D
IN C U B I C F E ET OF NAT
U R A L G AS . "
1 3 2 S I N PUT " P R E S S < E NT E R > TO CON
TINUE" ; Q
1 3 3 S C L S : P R I NT
1 3 4 S P R I NT " F O R A CORD OF F I R "
1 3 S S P R I NT " TOTAL AVA I L A B L E H EA T
P E R CORD
I S 1 4 . 3 M I L L I ON BTU "
1 3 6 1J P R I NT " E Q U I VA L E N T K I LOWATT H
O U R S OF
E L ECTR I C I TY A R E 4 1 8 9 "
1 3 7 S P R I NT " E Q U I VA L E N T C U B I C F E ET
OF NATURALGAS ARE 1 4 3 SS "
listing continued
LOOK
BEST PRICE
BEST SELECTION
BEST DELIVERY
BEST SERVICE
RADIO SHACK COLOR COMPUTER
AND IBM PC/PCjr.
CALL:
sortwa�re m�
Connec1ion�
4301 N . State Rd. #7
Lauderdale Lakes, FL 3331 9
305-484-7 547
November 1 985
HOT Coco
51
1 3 8 _0 P R I NT
1 3 9 _0 P R I NT " I L EAVE A N Y E F F I C I EN
CY OR E L E C T - R I CA L COST C A L C ULAT I
ONS TO YO U . "
1 4 .0 .0 P R I NT " I R E A L L Y DON ' T H AVE
ROOM FOR A L LOF T H E DATA T H A T WOU
LD R E Q U I R E . "
1 4 1 .0 I N P U T " P R E S S < E N T E R > TO CON
T I NU E " ; Q
1 4 2 .0 R E T U R N
1 4 3 .0 R E M G E N E RA L CONVE RS I ON ROUT
INE
1 4 4 .0 C L S : R E A D N $ , H
1 4 5 .0 I F N $ = " S TOP " T H EN 1 4 7 _0 E L S E
1 4 4 .0
1 4 6 .0 GOTO 1 4 4 _0
1 4 7 .0 F O R Y = l TO l l : R E A D A $ ( Y ) , R (
Y ) , U $ ( Y ) : N EXT Y
1 4 8 .0 R E ST O R E
1 4 9 .0 C L S : P R I NT T AB ( 4 ) " NON -WOOD H
EAT SOURC E S " : P R I NT
1 5 .0.0 FOR Y = l TO 1 1
1 5 1 _0 P R I NT Y ; TA B ( 4 ) A $ ( Y ) : N E X T Y
1 5 2 .0 P R I N T " 1 2 CONVE R S I O N E X P L AN
A'f I O N "
1 5 3 _0 P R I NT : I N PUT " W H I C H O N E ( l - 1 2 )
" ;Q
1 5 4 _0 I F Q= 1 2 T H EN 1 8 1 _0 E L S E 1 5 5 _0
1 5 5 .0 I F Q < l O R Q > l l T H E N 1 4 9 _0 E L
S E 1 5 6 .0
1 5 6 .0 L = Q
1 5 7 .0 CLS : P R I NT " YOU S E L E C T E D : " : P R
I NT A$ ( L )
1 5 8 _0 I N PUT " C O R R E CT ( Y / N ) " ; Q $
1 5 9 _0 I F L E F T $ ( Q $ , l ) = " N " T H E N 1 4 9
.0 E L S E 1 6 _0 _0
1 6 .0 .0 P R I NT : P R I NT " CO M P A R E D TO W H I
C H WOO D " : I N P TW$
1 6 1 .0 R E A D N $ , H
1 6 2 .0 I F N $ = " S TOP " T H E N 1 9 5 .0 E L S E
1 6 3 .0
1 6 3 _0 I F N $ =W$ T H E N 1 6 5 _0 E L S E 1 6 1
.0
1 6 4 .0 GOTO 1 6 1 .0
1 6 5 _0 R E STORE : M = H / R ( L ) : I F U $ ( L ) < >
" TON " T H E N V= I NT ( M + . 5 ) : GOT01 6 7 .0
1 6 6 _0 V= I N T ( l .0 .0 * M ) / l .0 .0
1 6 7 .0 C L S : P R I NT : P R I NT
1 6 8 .0 P R I NT " ON E CORD OF " ; N $
1 6 9 _0 P R I NT " I S E Q U I VA L ENT T O "
1 7 .0 .0 P R I NTV ; U $ ( L ) ; " O F "
1 7 1 _0 P R I NT A $ ( L )
1 7 2 .0 P R I N T " FOR A TOTAL H E AT CONT
ENT O F "
1 7 3 .0 P R I N T H / l .0 .0 .0 ; " M I L L I ON B T U "
1 7 4 _0 P R I NT " AT 1 _0 _0 % E F F I C I ENC Y " : P
R I NT
1 7 5 _0 P R I NT " E N T E R < M > TO R E T U R N T
0 THE MENU"
1 7 6 _0 P R I NT " E N T E R < C > F O R A N E W C
A L C U LAT I ON "
1 7 7 .0 I N P U T Q $
1 7 8 _0 I F Q $ = " M " T H EN 3 2 _0 E L S E 1 7 9
.0
1 7 9 .0 I F Q $ = " C " T H E N 1 4 4 _0 E L S E 1 7
7 .0
1 8 .0.0 R E M G E N E R A L CONV E R S I ON NOTE
s
1 8 1 .0 C L S : P R I N T "
T H I S ROUT I N E
WILL MAKE A
COM P A R I SON O F A C
O R D OF ANY T Y P E O F WOOD I N MY DAT
A TO ANY O F T H ENON -WOOD H E AT SOU
RCES I N MY DAT A "
1 8 2 _0 P R I NT " ! W I L L L I ST A L L O F MY
STOCK & FUND INVESTING
with the
TRS-80* COLOR COMPUTE R
USE FUNDGRAF AND FUNDFILE
MOVING?
SUBSCRIPTION
PROBLEM?
FUNDGRAF is a stock market analysis program that not only graphs and
analyzes funds or stocks, but also makes decisions on when to BUY and SELL.
......
Improve market timing using your COCO.
,._
G R A P H S fund's progress ( u p to 200
weeks). SUPERIMPOSES for comparison:
a line of constant percent growth or a
graph of any other fund (or stock).
CALCULATES over any time span: the
percent price change and the moving
average (any span). INDICATES BUY
and SELL signals. FUNDGRAFrequires
16 K ECB min.
. . . . . . $49.95
16/32 K Tape
1 6132 K..5 in. Disk .
. . . . $69.95
ADD $2 handling on all orders.
...._
., ...,_..
,.. __,,,_....----·
F L S D G R A F - A STOCK
� A R K F. T A S A L Y S l S
PROGRA� F O R 1 6 K E X
T RS ;, o COLOR CO�I P L ' T E R /"
i..-:;a
:; ��;;.;;2��:::;-;]..=l
;
t-
FUNDFILE is a portfolio and account management program for securities.
Manage single or multiple portfolios of stocks, mutual funds, bonds, money
market funds, etc. FUNDFILE allows easy maintenance of all your records for
accurate portfolio evaluation. NEW 32 K VERSION ofFUNDFILE summarizes
all transactions (dividends, interest, purchases and sales) between any two
dates of your choice - weekly, yearly, etc. Categorizes interest and dividends paid
as to tax liability (tax free, etc.) and capital gains as long or short term. Great for
tax reports.
FUNDFILE REQUIRES 16 K ECB min. and 80-COL PRINTER.
5-in. Diskette only for 16 K ECB
..................
5-in. Diskette only for 32 K ECB . . .
..........
.
ADD $2 handling on all orders.
$27.95
$37 .915
NON -WOOD
DATA AND YOU C H O O S E T
H E O N E YOU WANT TO K NOW A B O UT .
1 8 3 .0 P R I N T " T H E N I W I L L A S K W H I C H
WOOD YOU
WANT T O C O M P A R E A N D W
H E N YOU
E N T E R A WOOD F ROM MY
DATA TABLE I W I L L C A L C U LA T E T H E
AMOUNT O F "
1 8 4 .0 P R I N T " T H E NON -WOOD S O U R C E T
HAT I S
E Q U I VA L E N T TO O N E COR
D OF THE
C H O S E N WOOD . "
1 8 5 .0 I N P U T " P R E S S < E NTE R > TO CONT
INUE " ; Q
1 8 6 _0 C L S : P R I N T : P R I NT " FOR E X A M P L E
: " : P R I NT
1 8 7 _0 P R I N T " S AY YOU WANT TO K NOW
HOW M U C H
A N T H R A C I T E COAL YOU C
AN R E P LA C E W I T H A CORD OF OA K . "
1 8 8 .0 P R I N T " YOU S E L E CT A N T H RAC I T E
COAL F ROM T H E L I S T A N D E NT E R Q A
K A F T E R T H E P ROMPT .
I WILL THEN
RETURN : "
1 8 9 .0 P R I N T : P R I NT " O N E CORD O F O A K
I S E Q U I VA L ENT T O "
1 9 .0 .0 P R I N T " l . _0 8 T O N O F ANT H R A C I T
E COA L "
1 9 1 .0 P R I NT : P R I NT " P R E S S A N Y K E Y "
1 9 2 .0 Z $ = I N K E Y $ : I F Z $ = " " T H EN 1 9 2 .0
1 9 3 .0 GOT0 1 4 4 .0
1 9 4 .0 R E T U R N
1 9 5 _0 R E ST O R E
1 9 6 _0 P R I N T " ! DO NOT H AV E T H A T WO
OD DATA "
1 9 7 _0 P R I NT " T RY O N E F ROM MY DATA
D I S P LAY "
1 9 8 .0 I N P UT " DO YOU WANT TO S E E I T
( Y/N ) " ; Q $
1 9 9 _0 I F L E FT $ ( Q $ , l ) = " Y " T H E N 9 8 .0
END
E L S E RETURN
Get help with your subscription by
call ing our new toll free number :
1
·
800 227 5782
·
·
between 9 a . m . and 5 p . m . EST,
Monday-Friday.
If possible, please have your mailing label
in front of you as well as your cancelled
check or credit card statement if you are
having problems with payment .
Write for free brochure for details.
Circle Reader Service card #320
PARSONS SOFTWARE , DEPT. H
1 1 8 WOODSHIRE DRIVE
PARKERSBURG, WV 2 6 1 0 1
52
HOT Coco
November 1 985
If moving, please give both your
old address and new address.
M
ath Invasion is an arcade-style drill­
and-practice program for addition, ,
subtraction.multiplication, and division.
You can tailor the program to meet the
needs of all students-from beginners who
need to practice 2 + 2 to more advanced
students who can cope with 970 + 5. Be­
cause the response time is limited, stu­
dents can't work problems out on paper.
So, Math Invasion gives them a chance to
practice "mental arithmetic," too.
Program Operation
At the opening of the program, the super­
visor must establish game parameters. The
first determines the operations that the
game will test. The menu offers you five
choices: addition, subtraction, multiplica­
tion, division, and continue. When you
press a number from one to four, the cor­
responding mathematic symbol appears
below the menu. You can enter a single
symbol or any combination of symbols.
The more frequently you press a particular
number, the more often that operation will
be tested. Press 5 (continue) when you are
ready to set further parameters.
The program then asks you to Input the
number of problems needed to complete a
game and lets you choose the numeric range
of the question: 1 -9, 1 -99, or 1 -999. The
program randomly generates the problems'
X and Y values so that these values and the
answer fall within the range you have cho­
sen. The game speed you select-fast, mod­
erate, or slow-Influences the time alotted
for a response and thus controls the speed of
the Invader. At the continue/redo prompt.
press C to bring up the next prompt or R to
change the parameters.
Press any key to begin the game. A prob­
lem appears at the top of the screen, and an
lnyader ·descends toward the student's
base at the bottom. (The base is always di­
rectly beneath the Invader; no maneuver­
ing is necessary . ) lf the student types in the
correct answer and presses the enter key,
System Requirements
16K RAM for cassete
t systems
32K RAM f� disk systems
Extended Color Basic or
Disk Extended Color Basic
the base fires, destroying the Invader. If a
wrong answer is given, the alien continues
downward. .
The student .may attempt to answer the
question again. If the problem has not been
solved correctly by the time the Invader
gets to the base, the base explodes and the
computer records the question as an Incor­
rect response.
Students should be encouraged to type
multiple digits slowly and accurately; the\e
is ample time to answer each problem. The
answers to questions are whole numbers,
so students are not required to type frac­
tions or decimals.
When the student has had the opportu­
nity to answer the appropriate number of
questions, the program displays a game­
over message. a final score, and a rating of
the student's performance. The ratings are
designed to encourage students who have
done poorly and reward students who have
done well. •
Address correspondence to Simon Clift,
P.O. Box 787, Kincardine, Ontario, NOO 2GO,
Canada.
November 1 985
HOT Coco
53
Program Listing. Math Invasion
10 I MATH ' VA D E R S
20 1 BY S I MON C L I F T
30 P C L E A R l : C L E A R 4 0 0
4 0 C L S 0 : P R I NT@ 2 2 4 , " * * * * * * * * * * M AT
H ' VA D E RS * * * * * * * * * * "
50 P R I NT @ 2 5 6 , " * * * * * * * * * B Y S I MON
C L I FT * * * * * * * * * " ;
60 POKE6 5 4 9 5 , 0
7 0 P L AY " V 3 1 T 5 L 4 0 2 F B - 0 3 D F L 8 F F L 4 F D
L 8 D D L 4 D L 4 0 2 B -0 3 D0 2 B - L 2 F "
80 C L S l : P R I NT " WO U L D T H E S U P E R V I S
OR P L E A S E
ENTER THE GAME PAR
AMETERS NOW. . . "
90 P R I NT " ! . A D D I T I ON " : P R I NT " 2 . S
U B T R ACT I ON " : P R I NT " 3 . M U L T I P L I CAT
I O N " : P R I NT " 4 . D I V I S I ON " : P R I NT " 5 .
CONT I N U E " : P R I NT " S E L E C T T H E O P E R
A T I ONS I ' L L U S E , T H E M O R E O F T E N
Y O U ENT E R O N E , T H E M O R E O F T E N I ' L L
USE I T . . . "
1 00 OP $ = " "
1 1 0 P R I NT @ 3 5 4 , 0P $ + " ? " + C H R $ ( 8 ) + "
" +C H R$ ( 8 ) + " ? " : X $ = I N K E Y $ : I F X $ = " "
THEN 1 1 0
1 2 0 I F X $ = C H R $ ( 8 ) A N D L E N ( OP $ ) > 0
T H E N O P $ = L E F T $ ( 0P $ , L E N ( OP $ ) - l )
1 3 0 I F X $ = " 1 " T H E N O P $ = 0P $ + " + " E
L S E I F X $ = " 2 " T H E N O P $ = 0P $ + " - " E
L S E I F X $ = " 3 " T H E N O P $ =0P $ + " * " E
L S E I F X $ = " 4 " T H E N OP $ =0P $ + " / " E
LSE I F X $ = " 5 " THEN 1 6 0
1 4 0 GOTO 1 1 0
1 50 I F O P $ = " " THEN 1 1 0
1 6 0 P R I NT @ 4 1 6 , ; : I N P UT " N U M B E R OF
Q U E S T I ON S " ; NQ
170 IF NQ < l T H E N 1 6 0
1 8 0 CLS : P R I NT " E N T E R RANG E O F NU
M B E R S TO B E
U S E D OR P RODUC E D :
1 9 0 P R I NT " ! . l - 9 " : P R I NT " 2 . 1 - 9 9 "
: P R I NT " 3 . l - 9 9 9 " : P R I NT " S E L E CT OP
T I ON : " ;
v
200 X $ = I NK E Y $ : I F X $ = " " T H E N 200
E L S E I F X $ < " 1 " OR X $ > " 3 " T H E N 2 0
0 E L S E P R I N T X $ : FOR I = l T0 5 0 0 : N E X T I
2 1 0 N R = I NT ( 9 . 9 9 * 1 0 � ( VA L ( X $ ) - l ) )
2 2 9 P R I NT : P R I N T " ENT E R G A M E S P E E D
: " : P R I NT " ! . FAS T " : P R I N T " 2 . MO D E R
AT E " : P R I NT " 3 . S LOW " : P R I N T " S E L E C T
. " .
Z 30
X $ = I N K EY $ : I F X $ < " 1 " OR X $ > " 3
" T H E N 2 3 9 E L S E P R I NT X $ : FOR I = l T O
5 9 9 : N EX T I : G S =VAL ( X $ )
2 4 9 P R I NT : P R I N T " DO YOU WI S H TO C
( C/ R
ONT I N U E OR R E D O ?
) "
250 X $ = INKEY$ : I F X $ = " R " THEN 89
ELSE I F X $ < > " C " THEN 259
2 6 9 C L S 0 : F O R I =9T06 : P R I NTST R I NG $ (
6 4 , 1 2 8 + I * l 6 ) ; : NEXTI : BX = 3 2 : SC=9 : G
O S U B 5 8 9 : C N = 9 : P R I NT @ 9 , " P R E S S A N Y
K E Y TO START . . . " ;
2 7 0 I F I N K E Y $ = " " T H EN 2 7 9
2 8 9 P L AY " T 5 L l 5 0 2 C E G C E G ECG " : O $ = M I
D$ ( 0P $ , RN D ( L E N ( OP $ ) ) , 1 )
2 9 9 I F 0 $ = " + " T H E N A N = R N D ( N R ) : A = RN
D ( AN ) : B = A N - A
3 9 0 I F 0 $ = " - " T H E N A = RN D ( N R ) : B = R N D
( A ) : AN = A - B
3 1 9 I F 0 $ = " * " T H E N A = RN D ( I NT ( S QR (
N R ) ) ) : B = R N D ( I NT ( SQ R ( N R ) ) ) : AN = A *
B
3 2 9 I F 0 $ = " / " T H E N A N = R N D ( I NT ( S Q R
( N R ) ) ) : B = R N D ( I NT ( SQ R ( N R ) ) ) : A = A N *
B
3 3 9 P R I NT @ 0 , " S OLV E : " ; A ; 0$ ; B ; " = ?
"
OS-9™ SOFTWARE/HARDWARE
SDISK-Standard disk driver modu le, allows the use o f 40 and 80 t rack double sided
drives with COCO OS·9, plus reads/writes format used by other OS-9 systems. $29.95
SDISK + BOOTFIX-To boot f ro m a DOU B L E sided disk $29.95
PC·XFER- Read/write ss MS-DOS™ diskettes under CoCo OS-9, requ i res SDISK.
$45.00
CCRD 512K Byte RAM DISK CARTRI D G E - Req u i res RS M u l t i pak i n terface; with
software below c reates OS-9 RAM disk device. $298.00
CCRDV-OS-9 Driver software for above. $20.00
Terms: Prepaid Check, MO, VISA/MC; add $1.50 S&H for software, $5.00 for CCRD.
COD actual c harges added. Send SASE for latest catalog.
D.P. Johnson
7655 S.W. Cedarc rest St. Portland, OR 97223
(503) 244-8152
(We prefer your cal l i ng 9-1 1 AM Pac 1 f 1 c Ti me.)
OS-9 is a trademark of Microware and Motorola Inc.
MS·DOS is a trademark of Mic rosoft, Inc.
Tel l them ,
"I
saw
it i n HO T CoCo! "
HO�
Advert isers play a major role in our presentation of
CoCo e�c h month.
Not only have they invested enormous time and effort mto the_ir products.
HOT CoCo making life with your CoCo more
�
but they literally make the magazine possible each mon t h . Without them
t here are no magazines like
HOT CoCo is working for everyone. Tell them .
productive. When you order products from our advertisers. please m n tion
HOT CoCo!
us. It lets them know
it in
54
HOT Coco
..
Thanks.
November 1 985
I saw
3 4 9 A N $ = " " : I Y = 6 : CN = C N + l : G O S U B 6 0
'
3 5 0 FOR I = l TOG S * 3 9 : X $ = I N K E Y $ : I F X
$ = " " THEN 3 6 9 ELSE I F ( X$ > = " 9 " A
ND X $ < = " 9 " ) 0 R X $ = C H R $ ( 1 3 ) OR X $ =
CHR$ ( 8 ) T H E N 4 3 9
369 NEXTI
3 7 9 D = RN D ( 3 ) - 2 : I F B X < 5 T H E N D = l
ELSE IF BX > 2 7 THEN D=-1
3 8 9 GOSU B 5 9 9 : GOSU B 6 1 0° : B X = B X + D : I Y
= IY+2
3 9 9 GOS U B 5 8 0 : GOSU B 6 9 0
499 IF I Y= 3 9 T H E N 4 8 0
4 1 ' SOU N D ! , 1
4 2 9 GOTO 3 5 9
4 3 9 I F X $ > = " 9 " T H EN A N $ = A N $ + X $ : P
R I NT @ 2 3 , A N $ ; : GOTO 3 5 9
449 IF X$=CHR$ ( 1 3 ) THEN IF VAL (
A N $ ) = A N T H E N P R I NT @ l 9 , AN $ ; : P R I NT
@ 2 3 , " R I G H T ! ! ! " ; : GO S U B 5 7 9 : S C = SC+
l : P L AY " L 2 5 5T 2 5 5 0 4 C D E F G A B B AG F E D C "
: GO S U B 6 1 9 : GOT04 7 0° E L S E P R I NT @ 2 3 ,
" WRONG " ; : P LA Y " T 3 L l 0 1 C " : AN $ = " " : P R
I NT @ 2 3 , "
" ; : GOTO 3 5 9
4 5 9 I F X $ =CHR$ ( 8 ) AND LEN ( AN$ ) >0
T H E N AN $ = L E FT $ ( A N $ , L E N ( A N $ ) - l ) :
P R I NT @ 2 3 , A N $ + " "
4 6 9 GOTO 3 5 9
4 7 9 I F CN=NQ T H E N 4 9 9 E L S E 2 8 9
4 8 9 GOSUB 6 2 0 : P R I NT @ l 9 , AN ; " I S R I
G HT " ; : P L A Y " L 4 T 4 0 2 C E - C E - C E - C E - " : F
O R I = l TO 1 99 9 : N E X T I : I F C N < NQ T H E
N 289
4 9 9 P R I NT @ 2 6 8 , " GA M E OVE R " ; : P LAY "
L 2 9 T 5 0 5 B AG F E DC0 4 B A G F E DC 0 3 B AG F E D C
0 2 BAG F E D C0 1 B AG F E 9 C "
5 9 0 C L S : P R I NT " O . K .
YOU SCOR E D " ;
S C ; " R I G HT " : P R I NT " O UT OF " ; NQ ; " . "
: P R I NT " T H A T I S " ; I N T ( l 0 0 * ( SC/NQ ) )
; " P E R C E NT . . . "
5 1 0 I F S C / NQ < . 5 T H E N R $ = " YOU N E E
D T O C H E C K U P O N HOW T O
DO THE
Q U E S T I O N S ; T H E N P RA C T I C E AGA I N . "
5 2 9 I F SC/NQ > = . 5 A N D SC/N Q < . 6 5 T
H E N R $ = " YOU N E E D M O R E P R ACT I C E ,
BUT T H ATWASN ' T TOO B A D . "
5 3 9 I F SC/NQ > = . 6 5 A N D S C / N Q < . 8 5
T H E N R $ = " VE R Y GOOD , BUT YOU S T I L
L COU L D
U S E A B I T MORE P RACT I C E
AT T H I S
LEVEL . "
5 4 9 I F SC/NQ > = . 8 5 T H E N R $ = " E X C E L
L E NT ! ! MOVE U P A LEV E L , YOUK NOW
WHAT YOU A R E DO I N G ! ! "
5 5 9 P R I N TR $ : P R I N T @ 4 4 8 , " P R E S S ' * '
TO R E S ET L E V E L O R ' P ' TO P L A Y A
GAIN . . . " ;
5 6 9 X $ = I NK E Y $ : I F X $ = " " T H E N 5 6 9
ELSE IF X $ = " P " THEN 269 ELSE I F
X $ = " * " THEN RUN ELSE 5 6 9
5 7 9 FO R I = 2 8 T O I Y - 2 S T E P - l : R E S ET
( B X + 3 , I + l ) : S ET ( B X + 3 , I , 9 ) : SOU N D 2 5
5 - I * 8 , l : N E XT : FOR I = l T 0 2 0 : P L A Y " L 2 5
5 T 2 5 5 0 1 C E DG " : S ET ( B X + R N D ( 6 ) , I Y - R N .
D ( 3 ) , R N D ( 8 ) ) : N E X T I : FO R I = l T06 : F OR
J = l T 0 3 : R E S E T ( BX + I , I Y -J ) : N E X TJ , I :
RETURN
5 8 9 FOR I = l T 0 3 : FOR J = l TO ( I + I - l ) : S E
T ( 3 + B X + J - I , 2 8 + I , 5 ) : N E X TJ , I : R E T U R
N
5 9 9 FOR I = l T0 3 : F O RJ = l TO ( I + I - l ) : R E
S ET ( 3 + B X +J - I , 2 8 + I ) : N E XTJ / I : R ET U R
N
6 9 9 F O R I = l T06 : S ET ( B X + I , I Y - I / 2 , 9 )
: S ET ( BX + 6 - I , I Y - I / 2 , 9 ) : N E X T : R E T U R
N
6 1 0 F O R I = 1 T06 : R E S ET ( B X + I , I Y - I / 2 )
: R ESET ( B X + 6 - I , I Y - I/2 ) : N EXT : RETUR
N
6 2 9 FOR I = l T 0 2 9 : S ET ( B X + R N D ( 5 ) , 2 8 +
RN D ( 3 ) , R ND ( 8 ) ) : P LA Y " L 2 5 5 T 2 5 5 0 1 CG
D F " : N E X T I : FOR I = B X TO B X + 5 : F O R J = 2
9 T 0 3 l : R E S ET ( I , J ) : N E X TJ , I : GO S U B 6 1
0 : RETURN
rrt)�����m!!i!lm���-
T UTORIAL ....................
by David M eredith
I
Para e
Processing
with Color Logo
Synchronizing multiple turtles mimics parallel processing.
n
ri
arallel process­
ng is the hot­
test topic i n computerland
these days. With CPUs as
cheap as a dollar or two, it is
feasible to build a computer
with 10 or even 1 ,000 processors
operating in parallel. These paral­
lel computers will vastly increase
the speed of database searches and
vector operations like spreadsheets and
graphics. They may even achieve some of
the goals of artificial intelligence, such as
speech recognition and problem solving.
�
M ultiple-processor computers have al­
ready been built at Cal Tech and Columbia
University, while companies like DEC, IBM,
;;: and Cray Research are known to be working
� ...................................
�
!
,g
g
.a
System Requirements
1 6K RAM
Color Basic
Tandy Color Logo
� ..
1111
==
1111:
==
==
==
==
==
==
==
==
::::1i1C
==
...
on similar technology. Japanese researchers
are basing their Fifth Generation project on
parallel computation. A recent meeting of
university, government, and industrial com­
puter scientists reported, "We are entering a
new era in very high-performance comput­
ing that will be dominated by parallel-archi­
tectured systems." (Comm. A CM, A ugust
1 984, p. 747.)
Parallel processing will first appear on
large, expensive mainframe computers. but
It might .filter down to personal computers
before long. The greatest obstacle confront­
ing parallel processing is designing software
to take advantage of parallel hardware. Effec­
tive parallel algorithms are only now being
developed.
Programming Multiple Turtles
Programming multiple turtles is like orga­
nizing a group of people. Each turtle is as­
signed a job and taught to do it. That is, each
turtle is given a program to follow. You don't
write a single program or a main routine with
subroutines. Instead, you write a separate
program for each turtle, including instruc­
tions for synchronizing with the other tur­
tles. When the overall task is set in motion,
the turtles communicate with each other to
coordinate their processing.
In some parallel programs, the turtles talk
to each other. Listing 1 contains a short ex­
ample of this sort. On the command RACE N,
N turtles race across the screen. More pre-
You and your CoCo can join the parallel­
processing revolution now and experiment
with parallel processing using Tandy's Color
Logo. Logo's multiple turtles can operate si­
multaneously and communicate with each
other like independent CPUs. Who knows­
perhaps a CoCo owner wia invent a new al­
gorithm for the parallel hardware now being
developed.
Tower 1
Tower 2
Tower 3
Fig. 1 . Starting Positionfor the Towers of Hanoi
with Three Rings on the First Tuwer
November 1 985
HOT Coco
55
I O= l 1s t11ere a
quality software
paclfage that
promises to give
me a wide variety
of easy-to-use
Color Computer
programs? And
at a low price?
I A= I Yes. instant coco
Ready-to-run HOT CoCo
programs on cassette!
There's just no question. instant CoCo is a
terrific way to build your Color Computer
software library. Each month, instant CoCo
brings you 8-12 to�notch, original programs
from the latest issue of HOT CoCo
magazine-all on one high-qualrty cassete
t .
Everything from action-packed games to
helpful utilrties. And the cOOJ As little as $8.33
a month when you buy a one year
subscription!
instant CoCo is the ideal companion to
HOT CoCo magazine, because ready-to-run
A free bonus program
in every issue!
But wart, there's more! On every monthly
instant CoCo cassette, you'll get one or more
previously unpublished bonus programs
absolutely FREE These bonus programs
have never appeared in HOT CoCo.
Complete instructions for the bonus programs
are included.
Bonus programs-one more reason why
you should be getting instant CoCo each and
•
every monthl
instant CoCo relieves you of the frustrating,
time-consuming keyboarding and debugging
of the published programs. Our technical
edrtors have done rt all for you. You'll save
hours of time and considerable aggravation!
Just drop the tape into your cassette player,
and get set to enjoy some great software!
-------· .
Supplement your library
with "The Best of '84 "!
Complete w�h documentation
There's even a special collector's rtem
edrtion of instant CoCo. "The Best of '84"29 first-class HOT CoCo programs that come
through 1 984 with flying colors!
Graphics. Utilrties. Games. Plus,
applications for business, home, and school.
"The Best of 84" is the perfect complemert
to your instant CoCo library, and comes
complete wrth an easy-to-use documentation
booklet.
Programs of outstanding variety and top
qualrty. The best programs from an entire
year of HOT CoCo, including:
•
"Stock Transactions Tracker"
•
" Personal Money Manager"
• "Graphics Builder"
Don't miss this one. Order your "Best of
'84" today.
OK! Send me instantcoco!
To order instant Coco and "The Best of '84", just complete the information
on the coupon or attached order card and drop it in the mail. For faster
service, call TOLL FREE 1 -800-258-5473. In NH, dial 1 -924-9471 . VISA,
Mastercard, and American Express welcome.
i----------------------------------------------------------­
Yes!
I want instant Coco to meet my
•
1 1 185
programming needs!
D Please sign me up for a one year subscription for $99.97
($8.33 per issue), beginning with this month 's issue.
issue for $1 1 .47.
D Please send me the
Mol'lh
D Please send me "The Best of 84" for $1 6.47.
D Payment enclosed 0 MC D VISA D AE
Card #
Signature
Name
Address
City
for deive<y.
irdudes postage and handling
ForElgn Air Mail please add an additiOnaJ 45¢ per cassetet . or $25 per subocriplion.
US funds drawn on US banks ONLY.
Please aJlow 4-6 weeks
Price
instant CoCo
80 Pine Street • Peterborough, NH • 03458
·----------------------------------------· ·
Exp. Date
cisely, N - 1 turtles race and one sits up. It
stops for a random length of time; then it
sends a message to stop another turtle and
begins running again.
In other programs, a master turtle controls
subordinate turtles. All communication is
between the master turtle and its subordi­
nates. The main program in this article (List­
ing 2) uses a master turtle and subordinate
turtles to solve the Towers of Hanoi puzzle.
All rings start on tower 1
Move ring 1 to tower 3
Move ring 2 to tower 2
Move ring 1 to tower 2
Move ring 3 to tower 3
Move ring 1 to tower 1
Move ring 2 to tower 3
Move ring 1 to tower 3
The Towers of Hanoi
Table I . How to Move Three Rings from Tower
I to Tower 3
The ancient Towers of Hanoi puzzle con­
sists of three pegs or towers placed upright
and a small set of rings of graded sizes. The
rings are initially placed on tower 1 , with the
largest on the bottom and the smallest on the
top (Fig. 1). The object of the puzzle is to
move the rings to tower 3. You can only move
one ring at a time, and you cannot place a
ring on a smaller ring. When you are done,
the rings should be stacked on tower 3, with
the largest on the bottom and the smallest on
the top.
Table 1 contains a solution to the puzzle for
three rings. You can try this solution yourself.
Draw three circles on a piece of paper; label
them 1, 2, and 3; stack three different coins in
circle 1 . Now follow the instructions in Table
1 to move the coins to circle 3. Can you solve
the puzzle for four coins? How many moves
does it take? How many moves does it take
with four towers instead of three?
Listing 2 contains a Logo solution to the
puzzle using parallel processing. It displays
a moving picture of the puzzle being solved.
Before discussing the details of this pro­
gram, let's look at its underlying algorithm.
Think of Table 2 as the directions for improv­
ing your ability to solve the puzzle. If you
THE TIME MACHINE!
could move three rings from one tower to an­
other, then Table 2 would show you how to
move four rings. First, move the top three
rings from the source tower to the extra
tower (you already know how to move three
rings). Then move the bottom ring from the
source tower to the target tower (that in­
volves moving one ring). Finally, move the
top three rings from the extra tower to the
target tower (you move three rings again).
Table 2 solves the puzzle completely. It
solves the puzzle if there aren't any rings left
(you don't do anything); it also extends the
solution from any level to the next. So, it
solves the puzzle for any number of rings.
The algorithm in Table 2 is called recursive
because it calls itself. Recursion is one of the
tricks of the Logo programmer. You can read
more aboutit in the Color Logo manual. pp. 4352. (See also pp. 28and l 1 6 on local variables.)
Logo Solution
The Logo solution to the Towers of Hanoi
puzzle (Listing 2) uses a master turtle (turtle
0) and subordinate turtles. The subordinate
turtles are tower turtles and ring turtles.
The master turtle is controlled by the pro-
Robotize Your CoCo
No. Qf Drives
Teac Sgl Sided
Teac Dbl Sided
Drlve(s) w/
Cose/Pwr Supply
One
lWo
$ 1 59
$ 1 89
$229
$319
Systems w/
Controller/DOS
One
lWo
$239
$279
$3 1 9
$4 1 9
Drives are pre-tested a n d ready t o p l u g i n
a n d use. Options ava i lable are ADOS i n ROM ,
JFD-CP control ler w/printer port. HDS dual
ROM controller. Horizontal case, etc . Ca l l for
details. Free catalog 200 + Coco items.
Circle Reader Service card #153
POLYGON COMPUTERS
1 3 1 6 Wiishire Blvd., Suite 206
Los Angeles, CA 900 1 7
(21 3) 483-8388
Ca. Res. 6'h% tax
Visit our Retail Store
58
HOT Coco
November 1 985
�
Shipping: $2 Software
Charges: SS Hardware
EMC
YOU COULD
BUILD THIS COCO
POWERED ROBOT!
AND MORE
Stop wasting time on that cassette or si ngle­
drive syste m . You can afford Polygon's disk
systems featuring Teac % height, 40 track
drives that are fast, qu iet, and use less power .
With complete systems you get J&M Systems'
control ler with gold-edge connectors. the
latest circu itry and rel iable design. For 1 00%
compatabil ity, the controller is supplied with
RSDOS assuring easy. trouble-free operation
with a l l commercial software .
with
Send For Free Brochure
Florida Residents Add 5% Tax
$3.00 Shipping & Handling
Our unique expansion hardware enables you to create
a versatile automated control system.
All EMC boards come fully assembled and computer tested.
Model 1 00 Parallel Port (PIA) . . . . . . . . . . . . . . . . . . . . . $39.95
Features: Two 8 Bit Bi-Di rectional Ports, 4 Control Lines,
Sample Software Provided
Model 200 Buss Driver . . . . . . . . . . . . . . . . . . . . . . . . . . $89.95
Features: TTL, Fanout of 1 0, 2 Card Slots and Flexible
Ribbon Buss Provided. Additional Connectors
Available.
Model 400 Mother Board . . . . . . . . . . . . . . . . . . . . . . . . $44.95
Features: 4 Slots, 5 Gold Pin Connectors, PC Board, for all
Non Dedicated Boards.
Model 500 Motor Control AMP . . . . . . . . . . . . . . . . . . . . $29.95
Features: TTL Compatible, LED Direction Indicators, Drives
DC Motors 500 MA Max at 1 2 VDG.
Circle Reader Service card #494
ELECTRONIC MOTION CONTROL
P.O. Box 1 7271
•
ARPT Station
Clearwater, Florida 33520
81 3-896-8295 or 81 3-536-1 694
•
.
To move a stack of N rings from tower A to
tower B
If N > O Then
C=6-A-B
move stack of N - 1 rings from tower
A to tower C
move ring N to tower B
move stack of N - 1 rings from tower
C to tower B
Table 2. Solution to puzzle given as an algo­
rithm for moving a stack of N rings from tower
A to tower B. If N = 0, there are no rings to
move, so nothing happens. If A and B are two
tower numbers, then C = 6 - A - B is the third
tower number.
cedure HANOI and its subprocedures SETUP
and MOVE. SETUP clears the screen and cre­
ates the ring and tower turtles. MOVE. which
is modeled on Table 2, solves the puzzle by
moving the rings. The command SEND :N :B
tells ring turtle N to move to tower B.
Tower turtles are numbered 1 0 1 . 102, and
103 for towers 1 , 2, and 3. Each is controlled
by the procedure, TOWER. Tower turtles al­
ways occupy the lowest unused position on
their tower, although they are not visible on
the screen. When they receive the message.
2, in the mail, they move up one position;
they move down one position when they re­
ceive a 1 . They tell the moving rings where
to land at the end of a move. (You can make
the tower turtles visible by removing the
command HT from TOWER.)
Ring turtles, numbered 1 . . . N, correspond
to the rings on the towers. They look like
rings turned on edge. they sit stacked on the
towers. and on command from the master
turtle, they move to another tower.
Each ring turtle is controlled by the proce­
dure RING. This procedure first places the
ring turtle at its starting position on tower 1 .
Then it waits for a message from the master
turtle. Upon receiving the message T2 from
the master turtle, RING moves the ring to
tower T2 and sends a confirmation message
back to the master turtle.
As each ring moves, it sends a message 1 to
the tower it is leaving and a 2 to the tower for
which it is headed. This causes the tower tur­
tles to correct their positions on their towers
in preparation for receiving the next ring.
The master turtle and its subordinate ring
and tower turtles are alive and operating si­
multaneously.
Two questions remain to be answered.
How can the ring and tower turtles follow
just two procedures, RING and TOWER. and
yet not all do the same thing? How can they
operate simultaneously? An analogy might
help answer the first question. An income­
tax form is a procedure. Everyone fills out the
same tax form according to the same rules.
but because people have different incomes
and deductions, they don't fill it out the same
way.
Similarly. several turtles can follow the
same procedure in different ways. Each tur­
tle has its own shape, its own name (ME), its
own mail, and its own set of variables. For
example, if ring turtles 1 and 2 are on differ­
ent towers, they have different values in their
variables :T 1 . Differences in their data lead
different turtles to follow the same procedure
in different ways.
There is, however, only one CPU in your
CoCo. The Logo interpreter mimics parallel
operation with a time-sharing trick. After an
instruction for one turtle is executed, the in­
terpreter switches to the next turtle. The in­
terpreter cycles through all the turtles and
then begins again with the next instruction
for each one. If you observe the operation of
Listing 1 closely, you can see that two turtles
never move at exactly the same time.
I hope I've interested you in exploring par­
allel processing further. More information can
be found in the Color Logo manual as well as
in texts and articles on parallel processing and
Ada. I've listed three classics and one up-to-
date text in the bibliography (Table 3). Despite
their forbidding titles. they are accessible to
anyone who knows a little Pascal. •
Brinch Hansen, P. . The Architecture of Con­
current Programs, Prentice-Hall. Englewood
Cliffs. NJ, 1977.
Dijkstra, E.W., "Cooperating Sequential Pro­
cesses" in Programming Languages (ed. F.
Genuys) Academic Press, NY. 1968.
Gehani. N., Ada, an Advanced Introduction,
Prentice-Hall. Englewood Cliffs. NJ, 1983.
Hoare. C.A.R., "Communicating Sequential
Processes," COMM. ACM, v.2 1 . no. 8. pp.
666-677. August 1978.
Table 3. Bibliography
David Meredith is a professor of mathemattcs
at San Francisco State University. Address cor­
respondence to him at the Dept. ofMathematics,
1 600 Holloway Ave .. San Francisco, CA 94 1 32.
Circle Reader Service card
Parallel 8 bit input & output
for your CoCo, and Models 1, Ill,
HIGH SCHOOL AND COLLEGE
MATHEMATICS
LEARNING
SOFTWARE
For School and Home
Apply the power of your
Color Computer
to improve student mastery
and understanding of
all high school and college math.
4.
• MODULAR DESIGN FOR ADDITION
OF MULTIPLE PORTS • LATCHED OUTPUT
• STATUS MONITORED BY LEDS
e SWITCH SELECTABLE 1/0 ADDRESS
• SOFTWARE DIAGNOSTICS
l/O PORT Krr INCWDES• . . .
6 • Printed circuit board;
components; Cable
(Plugs To CoCo Adapte� Diagnostic software listing (BASIC);
and Manual. (Requires 5V 100 ma supply)
4.5 •
All
x
Complete
VO
port klt (J107K)
A-0/0.A Interface (J202K)
CoCo Adapter-required for CoCo (J110K)
5
Model
1,11 1,4
Adapter (J11 2K)
Volt Power Supply (D100K)
Complete Enclosure Kit (D100E)
SOFTWARE (APPLICATIONS)
DIGITAL AND MEMORY SCOPE-Converts
the CoCo TV display into an oscilliscope
screen. (S101M)-LISTING
DIGITAL RECORDER and DELAY-Record
and play back.audio signals up to ten seconds.
(S102M)-LISTING
One FREE BUFFER BOARD with every four
110 PORT KITS ordered!
30% ASSEMBLY CHARGE
Circle Reader Service card
send check, money order or C.0.0.
#225
D & A Research
400 Wilson Avenue
Satellite Beach, F 32937
3051777-1 728
#305
$35
$35
$15
$20
$25
$30
$5.
$5.
COORDINATE DEFENSE
(Video Game - Style Drill)
PRE-ALGEBRA LEARNING PACKAGE*
(3 Drill and Practice Programs)
$50
ALGEBRA LEARNING PACKAGE*
(7 Drill and Practice Programs)
TRIG PACKAGE
(2 Program Set)
...................
STATISTICAL ANALYSIS
(All usual data analysis) . . .
$30
PROBABILITY GRAPHICS PACKAGE
$50
(3 HI-RES Simulatfr:ms) . .
4 CALCULUS GRAPHICS PACKAGES
(Each has 6 HI-RES Programs) . . . . . . . . ea. $75
STATISTICS GRAPHICS PACKAGE
(7 HI-RES Programs) . .
$100
BIO-MATHEMATICS
(2 Population Growth Models)
* Available in 16K Standard
Available on Cassette or Disk
MatheGraphics Software
61 Cedar Road, Suite C
East Northport, NY 1 1 73 1
5 16-368-3781
November 1 985
HOT Coco
59
Circle Reader Service card #343
� ClnSOFT
F o r Coco . . .
i n t h e M i d west
N ow i n o u r 4 t h yea r !
New Catalog Now Available
CALL OR WRITE
coco
MeH
Logo is a computer language widely used to introduce children
'(/J.J}
J,Jf'1il
av
{//( ft
� a nd
../-
- ·
Logo. Moreover, Logo is modular and readable. You can develop a
Logo program as a series of procedures and use Jong variable and
procedure names.
The key object in Logo is the turtle. If the metaphor for a Basic
program is a list of instructions for a computer to follow, then a
1Wiiii4W
$
69.95
94.95
�
il.C@tl r.
IL
,
Joyst ick
'r - c -� b l o:i 1 1
--·--·- •
only . . . . . . . .
witn Joystick
o r v - c 11 0 1 e
C O C O M ll H
to programm ing. But Logo is neither simple nor childish. It was
designed to be a complete programming environment with special
graphics features; anything you can do with Basic, you can do w1th
1
y s te m
i n c lude :. . . .
i::-?f D e l u x �
Brief Introduction
to Logo
A
.
v -
FA L L SPECIA L !
Star SG- 1 0 . . . . . . . . . . . . . . . . . . . . .
M e t r i c I n d u stries Model 101 . . . . .
Handsome brown vinyl. . . . . . . . . .
Spare replacement. . . . . . . . . . . . .
Starter p a k o f . . . . . . . . . . . . . . . . . .
. . . . . . . . . PRI NTER
. . . . . . I N TERFACE
. . . . . DUST COVER
. . . . . . . . . . R I B BO N
. . . . . . . . . . . PAPER
31 9
•
Q
�
OM PLETE
SAVE 3 1 .oo
SMA R T MODEMS. . .
H ayes 300
Avatex 1 200
Prometheus 1 200
with options
C o c o cable
74.95
74.95
1 69.00
279.00
369.00
525.00
1 4.95
CHOOSE FROM OU R LAR G E
SEL ECTION OF CO CO PRODUCTS
B5 . . . Colorware . . . Deft . . . Derringer . . . Dynacalc . . . E l i t e . . .
H J L . . . J & M . . . M a rk D a t a . . . Metric I n d u st ries . . .
M i c h t ron . . . M i crocom . . . Tom M i x . . . PBJ . . . PXE .. .
Speech Systems . . . Sugar . . . TCE . . . V I P . . . and more!
Yes! We hB'le CHILD'S PLA YI
Logo procedures can include variables. Variable names are
strings preceded by a colon, like :N. To assign :N the value 3, exe­
cute "MAKE :N 3".
Program control is iven by IF, ELSE. REPEAT, and WHILE
(there are no GOTOs). Each control statement is followed by a block
of instructions to execute; the block is delimited by parentheses.
For example, to move forward eight steps :R times, use REPEAT
:R (FD 8). The instruction block can contain more than one line.
The principle program unit in Logo is not the line but the pro­
cedure. Procedures begin with TO, and invoke each other. The
g
"Authorized Star Micronics Ser'lice Center"
STANDARD MODEMS. . .
Avatex 300 w i t h cab le
Volksmodem with cable
Logo program is a list of instructions for a turtle to follow. A Logo
programmer is always directing a turtle on the screen. The turtle
c a n receive k e y strokes, print mes­
move forward N steps
FD N
sages, a n d draw
tum left N degrees
LT N
pictures with its
tum right N degrees
RT N
pen by moving
hide the turtle
HT
about t h e screen.
show the turtle
ST
The turtle is always
PU
lift the turtle's pen
located on the
PD
lower the turtle's pen
screen headed in a
change the pen's color to N
PC N
specific direction .
SHAPE . . . change the shape of the turtle
Table 4 lists commands that move
Table 4· Logo Commands
the turtle or affect
the pen.
main procedure can be started by invoking its name and any nec­
essary parameters from the keyboard in run mode. For example,
to run the Towers of Hanoi animation in Listing 2 for three rings,
you type HANOI 3 from run mode. HANOI in turn invokes SETUP
and MOVE, and RING invokes F.
Tandy's Color Logo includes a multiple-turtle facility not found
in other Logos. You always start with one turtle-turtle 0. You can
create additional turtles numbered 1 through 254 with the com­
mand, HATCH. Each newly created turtle must be assigned a pro­
gram. The command HATCH 101 TOWER :N creates Turtle 1 0 1 ,
assigns it the program Tower, and passes the parameter :N to
TOWER.
Turtles can exchange messages that are numbers between
32768 and 32767. To send a message m to turtle B, execute
SEND B m. The message m can be a constant or a variable. Notice
that you don't have to specify which turtle is sending the message;
the turtle executing the program in which the command appears
-
is the one sending the message.
Messages are held until called for. To request mail sent by turtle
T. a turtle executes the function MAIL T. The function MAIL 255
returns the oldest message waiting to be delivered to the turtle. •
60
HOT Coco
November 1 985
Program Listing 1 . Race N turtles across
the screen.
RUN A RACE
RACE C REATES N T U RTLES T H AT
RACE ACROSS THE SCREEN. AT ANY
TIME ONE TURTLE ISN'T MOVIN G .
SEND COMMAND FREEZES A RANDOM
TURTLE TO START.
TO RACE :N
CLEAR HT NOWRAP
SX O SY 1 6 SH 90
MAKE :I 1
REPEAT :N
( SY ((YLOC ME) + 1 6)
HATCH :I STOPANDGO :N
MAKE :I :I + 1
)
SEND ((RANDOM :NJ + 1 ) 1
VANISH
END
NER TURTLE SELECTED AT RANDOM.
AND RESUMES RUNNING ITSELF.
TURTLES AND N RING TURTLES MOV­
ING BETWEEN THE TOWERS.
TO STOPANDGO :N
PU PRINT ME FD 8 PD
PC ME - 3 * (ME/3)
WHILE 1
( IF NOT MAlL 255
( FD 5)
ELSE
( LT 90
WHILE RANDOM 6( l
SEND ((RANDOM :N) + 1 ) 1
RT 90
THE ROUTINE IS LIMITED BY MAKEME
TO 6 RINGS
TO DISPLAY ANIMATED SOLUTION TO
TOWERS OF HANOI PUZZLE WITH N
RINGS. INVOKE "HANOI N".
TO SETUP :N :RINGNUM :HEIGHT
CLEAR PU HT
HATCH 1 0 1 TOWER :N
HATCH 102 TOWER :N
HATCH 103 TOWER :N
MAKE :RINGNUM :N
MAKE :HEIGHT 64
REPEAT :N
( HATCH :RINGNUM RING :HEIGHT
MAKE :RINGNUM :RINGNUM - 1
MAKE :HEIGHT :HEIGHT + 8
THE PROGRAM USES THREE TOWER
E D
Program Listing 2. Hanoi displays a solu­
tion to the Towers of Hanoi puzzle with N
rings.
TOWERS OF HANOI
TOTHI AN
TE ACHE R PAK PL US
L i ke Teacher
Pak bu t
CoCo T e s t e m desc r i bed be l ow .
$4 7 . 95
Tota l ly Menu Driven
custom i ze with company i nformation
complete "on screen " i nstructions
COCO
TESTEM
C re a t e
mu l t i p l e
cho i ce ,
short
a ns we r .
comp l et i on ,
t ru e / f a l se .
and
m a t ch i n �
t es t s .
O n t ape but works w i t h
d i sk .
32K Ex t .
BAS I C .
Needs
BO-co l umn p r i n t e r w i t h under l i n e
ab i l i t y ( OMP- 1 1 0 , L P - V I I I , e t c . ) .
$ 1 9 . 95
FORMS
letter
invoice
q u ote
pu rchase order
mail order
confirm order
receipt
COCO
GARDENE R
Super l at i ve g a rden p \ an n i n a a i d
and a a rden i n a dat a sou r c e .
P r i nter
p r e f e r red .
1 6K E x t ended BAS I C .
$ 1 9 . 95
T I ME
MASTER
Ca l endars .
b i or h y t h ms .
day
of
week ,
hum a n
compat i b i l i t y , davs between dates .
P r i n t e r opt i on a l .
1 6K E x t ended BAS I C .
$ 1 9 . 95
T he c l ass i c aame of l l v i n a , grow i n � .
rep rodu c l n � p a t t e rns .
P r inter
opt i on a l .
1 6K
E xt ended
BAS I C
+
ML .
$ 1 9 . 95 .
E n h anced 32K
Coco-L i f e I I vers i on a l so $ 1 9 . 9 5 .
between
checkers and L i f e .
1 6K E x t . BAS I C + ML . $ 1 9 . 95
Circle Reader Service card # 1 94
STORES
comp lete forms
item list
subquotes
letters
footnotes
customer i nfo
SEPARATE CONFIGURE
PROGRAM
for company info
printer options
q u ote & inv. #
w I auto seq uencing
auto date
COCO-L I F E
Tot h i an S o f t w a r e
B o x 663
1 624 8
R l mersbu r a . Pa .
Listing continued
the fastest, most complete
office package vet!
I n c l u des
Al l
p r o g r am s so l d on t ape .
Send check or money
order ( n o cash - P a . res i den t s add 6X ) t o :
)
Farmaker
SOFTWARB
T E ACHE R PAK
F o u r 1 6K E x t . BAS I C p r o i rams .
Do
s t a t i s t i ca l
a rades ( w i t h or w i t h out we l ah t l n a ) .
a na 1 v s l s
of
a r ades ,
a l phabet i ze
n ame
l i st s ,
c r e a t e seat i n a c h a r t s .
On t ape
bu t
works w i t h
d i sk .
BO-co l u mn P r i n t e r h e l p f u l .
$34 . 95
C ross
One o r t w o p \ ave r s .
SETUP ESTABLISHES THREE TOWERS
WITH : N RINGS ON THE FIRST TOWER.
:RINGNUM AND :HEIGHT ARE LOCAL
VARIABLES.
)
END
STOPANDGO DIRECTS RUNNER TUR­
TLES. A TURTLE GOES UNTIL IT RE­
CEIVES MAIL. THEN IT STOPS FOR A
RANDOM LENGTH OF TIME, SENDS A
MESSAGE TO STOP ANOTHER RUN-
PERPE T UL I F E
TO HANOI :N
SETUP :N
MOVESTACK :N 1 3
END
send for m ore information:
..
FIGU RES
qu antity
l i st
net
discount
subtotals
tax
freight, etc.
PRINTS
form feed
letterhead
envelope
m u ltiple copy
em phasized
$49
32k ECB d i sc
Challenger Software
42 4th Street
Pen nsburg, PA 1 8073
Call (21 5) 679-8792 (Eve n i ngs)
Circle Reader Service card #405
November 1 985
HOT Coco
61
,,.
MOVESTACK MOVES A STACK OF M
RINGS FROM TOWER :A TO : B . TO
MOVE RING :M TO TOWER :B, A MES·
SAGE :B IS SENT TO RING TURTLE M
(CONTROLLED BY PROC. RING). AFTER
ISSUING THE ORDER TO MOVE RING
TURTLE M, MOVESTACK WAITS FOR
CONFIRMATION OF COMPLETION OF
MOVE BEFORE CONTINUING. :C IS A
LOCAL VARIABLE.
TO MOVESTACK :M :A :B :C
IF :M = 0 (STOP)
MAKE :C 6 - :A - :B
MOVESTACK (:M - 1 ) :A :C
SEND :M :B
WHILE NOT MAIL :M ( )
MOVESTACK (:M - 1 ) :C :B
END
TOWER CONTROLS TOWER TURTLES
1 0 1 - 1 03 . EACH TOW E R T U R T L E
DRAWS ITS TOWER, AND THEN SITS IN
THE LOWEST UNUSED POSITION . IT
MOVES UP OR DOWN WHEN MAIL SAYS
A RING HAS LEFT OR ARRIVED . :MSG IS
A LOCAL VARIABLE.
)
END
RING CONTROLS RING TURTLES
1 . . . N. H l I S THE INITIAL HEIGHT OF
THE RING TURTLE ON STACK 1 (FROM
SETUP) . H 1 , T l STORE C U R R E N T
H E I G H T AND TOWER N UMBER O F
RING. UPON RECEIVING MESSAGE T2
( FROM MOVESTACK), RING MOVES
RING TURTLE TO TOWER T2 AND RE·
SETS (BY MAIL) THE AFFECTED TOW·
E R S . T l , H 2 , T 2 A R E LOCAL
VARIABLES.
TO RING :H l : T l :H2 :T2
PU HT SH 0
TO TOWER :N :MSG
HT PC 2
-
COCO SOLVER with
PROGRAM GENERATOR
"An advanced programmable calculator."
"Conjures the image of instant programming."
-HOT CoCo Review, May 1985
Generates program automatically from
COCO SOLVER data files.
���
COCO BASE I:
A relational database manager with pro·
grammable language . Creates a database
structure, inputs and edits records and gen·
erates reports.
All programs require 32K Extended BASIC.
COCO SOLVER with
PROGRAM GENERATOR-$49.95
Sweeten Your CoCo
With a Little Sugar
--=
Our popular products for the Coco
include:
•coco Calligrapher - $24.95 T ;
$29.95 D
*OS-9 Call igrapher - $39.95 D
•Rental Property - $34.95 D
•Color Disk Manager - $34.95 D
*Sports Statistics Packages:
Each $29.95 D
F o ot b a l l
B a s k et b a l l
B a s e b a ll
S oc c e r
*TIMS - $24.95 T
* P rereader - $1 9.95 T; $24.95 D
•Galactic Hangman - $1 7.95 T
•Great USA - $1 9.95 T; $24.95 D
Mention Hot Coco in your mail or
phone order and receive a free gift!
Write for our complete catalog of
Sugar Software produ cts and
dcscript ions.
Dealer and author inquiries are
always welcome. Disk software
compatible with Radio Shack
+
$2 S & H, Tape or Disk.
+
$2 S & H, Disk only.
DOS only.
Check or money order accepted.
and handling. Florida residents add
5% sales tax. COO o n l c n.; a1·e wcl -
COCO BASE 1-$49.95
JTJ ENTERPRISES
P.O. Box 1 10841,
Nashville, TN 3721 1
(615) 358-2635 or (615) 331 0364
Circle Reader Service card # 1 5
62
SX 64 • (ME - 100 )
SY 56
SH 90 FD 8 BK 16 FD 8
LT 90 FD (8*(:N + 1 ))
PU
IF ME = 1 0 1 (SY (56 + 8 * (:N + 1 )))
ELSE (SY 64)
WHILE 1
( MAKE :MSG MAIL 255
IF :MSG = 1 (BK 8)
ELSE
( IF :MSG = 2 (FD 8))
H OT Coco
November 1 985
Circle Reader Service card #144
Acid S l . 50 per program for postage
come. CIS orders El\LA I L to 70405.
t ;H4. �o refunds or exchanges.
SUGAR SOFTWARE
1 7 1 0 �ortJ1 50tJ1 :henue
l l ol lvwood, Florida aao2 1
. ( ;�05) 98 1 - 1 24 1
MAKE : T l 1 0 1
SX 64 SY :H l
MAKEME
ST
WHILE 1
( MAKE :T2 MAIL 0
lF :T2 < > 0
( MAKE :T2 100 + :T2
MAKE :H2 YLOC :T2
SEND : T l 1
SEND :T2 2
F ( 1 20 - : H l )
l F :T2 > : T l (SH 90)
ELSE (SH 270)
F (ABS(:T2 - :T l ) * 64)
SH 1 80 F ( 1 20 - :H2)
SH 0
SEND 0 1
MAKE :T l :T2
MAKE :H l :H2
)
END
F MOVES A TURTLE A DISTANCE :D,
STOPPING PERIODICALLY TO SHOW
THE TURTLE. THIS ANIMATES THE
MOVEMENT.
TO F :D
REPEAT :D/8
( FD 8)
END
MAKEME GIVES SHAPE TO RING TUR·
TLE N < = 6.
TO MAKEME
IF ME = 1
( SHAPE RRUBBBDFFFFFFUBBB
STOP)
IF ME = 2
( SHAPE RRUBBBBBBDFFFFFFFFFFF·
FUBBBBBB
STOP)
IF ME = 3
( SHAPE RRUBBBBBBBBBDFFFFFFF·
FFFFFFFFFFFUBBBBBBBBB
IF ME = 4
( SHAPE RR·
UBBBBBBBBBBBBDFFFFFFFFFFFF·
FFFFFFFFFFFFUBBBBBBBBBBBB
STOP)
1F ME = 5
( SHAPE RRUBBBBBBBBBBBBBBBBB·
BDFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFUBBBBBBBBBBBBBBB
STOP)
IF ME = 6
( SHAPE RRUBBBBBBBBBBBBBBBB
BBDFFFFFFFFFFFFFFFFFFFFFFFF·
FFFFFFFFFFFFUBBBBBBBBBBBBB·
BBBBB
STOP)
END
llllttl
vl
: :Zl:?!:::!
:: Tl
h isl
prl
�l
m islal
il�
lll
� onl
l ll
oo r l
lnstM
l
ll
lllolcasse
:: J
LJT"/L/T"Y'C::::::::::--;::::::::::::::::::::::::::::;:!:
l
ralll
t CoC
e . (t;::::J
o
sa
_
See the In tant CoC ad elsewhere in this issue. _ LOCO
by Bruce Bauder
in Basic
Hook up with a more effective method for sorting lists.
I
f you've ever struggled with maintaining a
sorted list in arrays. Linksort is for you.
(See Listing.) It demonstrates the use of
linked lists in Basic and can be used in hobby
and business applications.
What Are Linked Lists?
A linked list is a dynamic data structure
used in languages like Pascal. The size of the
list can increase or decrease as the number
of elements changes. Arrays and other data
structures stored in memory are static-their
dimensions are declared early in the pro·
gram with a DIM statement. When you want
to insert or delete information and yet main­
tain data in alphabetical order, arrays can
cause headaches. If the list is arranged con­
tiguously (organized from top to bottom. as
in Fig. 1 ), insertion or deletion requires shift·
ing part of the array up or down by one place
(Fig. 2). If the array is large, this process can
take time.
In Pascal . linked lists provide a way of
avoiding these problems. Figure 3 will help
you understand the underlying concept. The
NAME$
NAME$
Fig.
1.
Amy
1
Amy
2
Bill
2
Ben
3
Cathy
3
Bill
4
Dave
4
Cathy
5
Gary
5
Dave
6
Jill
6
Gary
7
Ken
7
Jill
8
Mike
8
Ken
9
Pete
9
Mike
10
Sue
10
Pete
II
11
Sue
12
12
List Ordered from Top to Bottom
Fig.
2.
Inserting a New Element into a List
FIRST
�I IJ-1 1+1
Amy
Fig. 3 . Linked Cells
Bill
Cathy
l+-1
Dave
!+ -- ---
variable, FIRST, points to the first cell. The
left portion of each cell contains the name;
the right segment contains the pointer that
links the cell to the next element in the list.
The exact location of each cell within the ar­
ray is of no consequence.
Representing linked lists in arrays is pow­
erful in languages such as Basic, Fortran,
and Cobol. which don't have pointers and dy­
namic storage. Setting up the list is simple.
Linksort uses four arrays: NAME$, which
holds the names in the list; PTR. which pro·
vides the link to the next ceJI in the list;
BALANCE, which holds the customer's bal­
ance; and AVAIL. which is used to delete
names from the list and keep track of the po·
sitions of deleted cells. The number of names
in the list is represented by the variable,
NUMBER.
Figure 4 shows an example of a list contain·
ing 10 names that are linked in alphabetical
order but arranged randomly. This can be
confusing, but if you think in terms of the
links-not the array-the concept should be
easier to grasp. If you trace through the table
you will see that the linking between cells
places the names in alphabetical order.
PTR(O) marks the first name in the list,
NAME$(7)-Amy. in this case. PTR(7) con­
tains 4. which means that the next name is
NAME$(4), Bill. To check the remainder of the
list. proceed in the same manner, looking in
PTR for the subscript of the name in NAME$
and using that subscript to tell you what the
next PTR value is. The zero in PTR(8) signifies
that its corresponding element in NAME$ is
the last name in the list.
System Requirements
1 6K RAM
Color Basic
Printer Optional
November 1 985
HOT Coco
63
NAME$
PTR
0
0
7
Points to "Amy
Cathy
1
5
2
Jill
2
6
8
3
Pete
3
4
Bill
4
5
Dave
5
10
6
Ken
6
9
7
Amy
7
4
8
Sue
8
0
9
Mike
9
3
10
Gary
10
2
11
11
12
12
..
Third name-"Cathy"
Second name-"Bill"
Fig. 4. Linked List
Inserting Information
The real power of linked lists lies in insert­
ing and deleting cells. Figure 5 shows how
the name, Ben, would be inserted into the
list. If you were not using a linked array, Ben
would be placed between Amy and Bill by
shifting Bill and the names that follow down
one cell and inserting Ben in the empty cell
(Fig. 2). With linked lists. you can simply in­
sert additions into the next empty cell and
change the appropriate pointers. To better
understand this process. refer to lines 9001 0 1 0, the Search for Insert routine. and lines
1 020- 1 220. the Insert Customer routine.
The variable TEMP points to the current
name in the list and BACK points to the name
immediately preceding it. Trace through the
NAME$
0
I
Cathy
code with the example for Ben. keeping track
of the values of P. BACK. TEMP. and the pro­
cedure should become clear.
Problems with Deletion
Deleting names isn't quite as easy as in­
serting them: the structure of arrays can
cause problems. After an entry is deleted.
that cell still takes up space in the array. thus
wasting memory. To overcome this difficulty.
Linksort uses the array. AVAIL. and the var­
iable. COUNT. to keep track of the number of
cells available for insertion. A second varia­
ble, DCELL. keeps track of the next available
cell in NAME$ (and its counterpart. PTR).
AVAIL records the locations (subscripts) of
0
7
0
1
5
1
Using Linksort
After displaying preliminary prompts for
cassette. disk drive. and printer. Linksort
brings up a menu with six options:
1 Create File
2 Read File
3 Insert New Name
4 Delete Name
5 Print the List
6 Save and Exit
AVAIL
PTR
NAME$
PTR
deleted cells: as each cell is deleted. its posi­
tion is stored in AVAIL. to be filled when the
next insertion is made.
In Fig. 6, Ben has been deleted from the
list. The name hasn't been removed from the
array. but the pointers are set to move from
Amy to Bill. DCELL contains the subscript of
the next available cell- 1 1 in this case.
To understand deletion. trace the Search
and Delete routine (lines 1 230- 1 380). The
routine reads in the name to be deleted as
DE$ and searches the list from the first ele­
ment to the last. comparing each name to
DE$. If a match is found. the program calls
the Delete Customer routine (lines 1 3901 470). The cell is deleted by changing the
BACK pointer: the position of the deleted cell.
1 1 . is stored in AVAIL and used for the next
insert. If no match is found. an error message
is printed because the name is not in the list.
The Search for Insert and Insert Customer
routines check COUNT before adding a new
name as the last element in the list. If its
value is greater than zero. there are empty
cells within the list. The routine inserts the
new name in the cell to which DCELL points
and changes BACK to point to it. If there are
no available cells within the list. the name is
inserted at the end of the list.
0
0
7
Cathy
I
5
1
6
2
8
2
Jill
2
6
2
Jill
2
3
Pete
3
8
3
Pete
3
4
Bill
4
4
Bill
4
5
Dave
5
10
5
Dave
5
10
5
6
Ken
6
9
6
Ken
6
9
6
Amy
7
4
7
Sue
8
0
8
7
Amy
7
11
BACK 7
8
Sue
8
0
8
3
4
9
Mike
9
3
9
Mike
9
3
9
10
Gary
10
2
10
Gary
10
2
10
11
Ben
11
4
TEMP 1 1
Ben
11
4
11
12
12
Fig. 5 . Inserting a n Element i n a Linked List
64
HOT Coco
November 1 985
12
12
Fig. 6. Deleting an Element from a Linked List
12
11
COUNT
Each menu item corresponds to a subroutine
within the program. I have documented the
start of each block to simplify debugging and
modification. (See Table 1 for a list of pro­
gram variables.) If you need to restructure
the program. you will only need to rearrange
a few lines in the main loop.
Linksort should work in all versions of Ba­
sic. I used it on an rBM PC and it ran fine. The
only limitation on creating additional rec­
ords or increasing the number of customers
is the amount of memory your computer has.
BALANCE holds the balance o f the corre­
spond i n g n a m e in N A M E $ : e . g . . BAL­
ANCE(37) holds the balance for NAME$(37).
You can easily create large records by adding
other parallel arrays. such as ADDRESS and
ACCTNO. and a few lines of code to update
them whenever NAME$ is affected. You can
also add routines to update a customer's bal­
ance, perform transactions. keep track of in­
ventory. maintain a recipe file, and so on.
Experiment with the program: you will learn
more that way and might develop powerful
applications for it.
Linked lists i n Basic are a n efficient way of
creating and sorting lists of any kind. When
you create a new file. you can enter the
NAME$
PTR
BALANCE
AVAIL
DEVICE
HC$
CUS$
AMT
NUMBER
TEMP
DCELL
DE$
BACK
COUNT
M u lti· Tas k i n g
4 C h a n n e l S e r i a l Co m m u n i c a t i o n I nt e rface
Simu ltaneous
Easy to i n st a l l boa rd adds:
•
•
•
•
i n p a c k t o get:
All 9 6 S t a n d a rd ASC I I C h a racters
&
L ow e r Case D i s p l ayed S i m u l t a n e o u s l y
w i t h N O I n verse V i d e o
True Lowe r C ase Descend e rs
B races
&
V e rt i c a l B a r C h a racters
S l as h e d Zero
O S-9 Ope rat i n g System Prog ra m m i n g
•
" C " L a n g u ag e P rog ra m m i n g
•
C o m m u n i c a t i o n s Te r m i n a l M odes
Word Proc e s s i n g
P R I C E.
. . .. . . . . . . $ 38.00
�
{f
r"'\''
. .. .
opera t i o n s u s i n g C O M M - 4 p l u g ­
4 i n d e p e n d e n t R S- 2 3 2 c h a n n e l s
S t a n d a rd D B- 2 5 f e m a l e c o n n ec t ors
•
OS-9 device d r i v e rs on disc
•
I n t e r r u p t d riven for fast response
•
•
E n h a n c e s C oC o screen for:
1/0
•
•
Other F e a t u res
B o a rd i s h a rdware d riven and req u i res N O software
•
•
•
d r ive rs. NO effect o n any m e m o ry.
•
1 0 C L S : PMODE 0 : P C L E A R l : CL E AR 3 0
00
2 0 D I M NAM E $ ( 1 00 ) , P T R ( l 00 ) , B ALAN
C E ( l 0 0 ) , AVA I L ( l 0 0 l
3 0 P R I NT @ l 3 9 , " - L I N K SO R T - " : P R I NT
4 0 P R I NT @ l 7 0 , " A L I N K E D L I S T "
5 0 P R I NT @ l 9 7 , " F I L E MANAG E M E N T P R
OG RAM "
60 P R I N T @ 2 3 3 , " B Y B R U C E BAUD E R "
7 0 P R I N T @ 2 6 6 , " MA R C H 5 , 1 9 8 4 "
8 0 SCREEN 0 , 1
9 0 F O R T = l TO 1 5 00 : N E X T
1 0 0 C L S : I N PUT " TA P E ( T ) OR D I S K ( D
) " ; IO$
1 1 0 I F I O $ = " T " T H E N D EV I C E = - 1 E L
S E I F I 0 $ = " D " T H E N D EV I C E = l E L S E
1 00
1 2 0 I N PUT " O U T P U T L I ST TO P R I N T E
R ( Y /N ) " ; H C $ : I F H C $ < > " Y " A N D H
C$ < > " N " THEN 1 20
CoCo C O M M-4
Coco o r CoCo 2
U pper
Program Listing. Linksort
names in any order because they are alpha­
betized as you enter them. And you needn't
confine the list to names: Linksort will alpha-
FOR
•
Address correspondence to Bruce Bauder,
9 1 0 Meadow Ave .. Tillamook. OR 971 4 1 .
Table 1 . Program Variables
Fu l l
C h a ra cte r Set
•
betize any character. Once you become com­
fortable with the concept and methods used,
I'm sure you'll use them for all of your list­
management programs. •
Array to hold customer names.
Pointer array.
Array to hold customer bal­
ances.
Available (deleted) cell array.
Tape or disk identifier.
Send output to printer.
Input customer name.
Input customer balance.
Number of customers in list.
Link to next name in array
NAME$.
Position in NAME$ of previ­
ously deleted cell.
Input name of customer to de­
lete.
Pointer to name preceding
current name.
Number of available (deleted)
cells.
No software t i m i n g loops
Basic
&
ML d r ivers easy t o c reate
S t a n d a rd Baud rates 1 1 0- 1 9 2 0 0
C o m p l ete d o c u m e n t a t i o n package
U se f o r m u l t i p l e p r i n t e rs, t e r m i n a l s, m o d e m s, etc.,
etc. P l u g d i rect l y into C oC o expa n s i o n pack ( N ote:
req u i res b u f f e red e x p a n s i o n and powe r s u p p ly).
RAIN BOW
CERTIFICATION
SE Al
( +$2.00 s h i ppi ng/h a n d l i n g if c h a rge)
P R I C E ........ . ... . ... $89. 00
( + $3.50 shipping/handling if charge)
T h e s e a n d o t h e r p ro d u cts f ro m C o c o D e v i ces, T H E ' I N ' C R OWD
( I N · n ovat ive prod ucts at I N - ex p e n s i v e p r i c e s) .
Coco D e v i c e s
Box 6 7 7 , S e a b rodk , TX 7 7 586
7 1 3-4 7 4 - 3 2 3 2
Tel l them "I
saw
it in HOT Coco."
Circle Reader Service card #75
November 1 985
•
HOT CoCo
65
..
1 3 0 I F H C $ = " Y " T H E N P R I N T : P R I NT
" M A K E S U R E P R I NT E R I S R E AD Y . " : FO
R Y = 1 TO 1 0 0 0 : N E XT
1 40 I
isi ' * * * * * * * * * * * * * * * * * * * * * * * * * *
160 ' *
MA I N LOOP S T A R T S H E R E *
170 ' * * * * * * * * * * * * * * * * * * * * * * * * * *
1 8 0 CLS 6
1 9 0 P R I NT @ 0 , S T R I NG $ ( 3 2 , " * " ) ;
2 0 0 P R I NT @ l 0 3 , " < E NT E R C HO I C E N U M
BER> " ;
2 1 0 P R I NT @ 1 3 5 , S T R I NG $ ( 2 1 , " * " ) ;
2 2 0 PR INT@ 1 9 9 , " l ) C R EATE F I L E
" ;
2 3 0 P R I NT @ 2 3 1 , " 2 ) R E A D F I L E
'
2 4 0 P R I N T @ 2 6 3 , " 3 ) I N S E RT N E W NAM
E " ;
2 5 0 P R INT@ 2 9 5 , " 4 ) D E L ETE NAME
" ;
2 6 0 P R I N T @ 3 2 7 , " 5 ) P R I NT T H E L I ST
" ;
2 7 0 P R I NT @ 3 5 9 , " 6 ) SAVE AND E X I T
" ;
2 8 0 P R I N T @ 4 8 0 , S T R I NG $ ( 3 1 , " * " ) ;
2 9 0 POKE 1 5 3 5 , 106
300 T $ = I N K E Y $ : I F T $ = " " T H E N 3 00
3 1 0 T=VAL ( T $ )
3 2 0 I F T < l OR T > 6 T H E N 3 0 0
3 3 0 ON T G O S U B 4 2 0 , 5 7 0 , 3 4 0 , 1 2 3 0 ,
1480, 390
3 4 0 I F T = 3 T H E N GOSUB 8 0 0 : GO S U B
I I N S E RT
890
In troducing. . .
3 5 0 I F T = 3 T H E N P R I N T " I N S E R T ANO
T H E R ( Y /N ) " E L S E 3 0 0
3 6 0 U $ = I N K E Y $ : I F U$ = " " T H EN 3 6 0
3 7 0 I F U $ = " Y " T H EN 3 4 0
3 8 0 GOTO 1 8 .0'
' SAVE
3 9 _0 G O S U B 1 7 1 .0' : GOTO 1 8 6 _0
AND E X I T
4 .0 .0 I
4 1 .0' I
4 2� ' * * * * * * * * * * * * * * * * * * * * * * * * * *
*
C R E A T E N EW F I L E
4 30 ' *
440 ' * * * * * * * * * * * * * * * * * * * * * * * * * *
4 5 0 C L S : N U M B E R = .0
460 P R I N T " ENTER NAMES AND BALANC
ES"
4 7 0 P R I N T " TYPE ' X X ' WHEN F I N I S H E
D"
4 8 _0 L I N E I N P U T " NA M E ? " ; C U S $
4 9 _0' I F C U S $ = " X X " T H E N 5 3 _0
5 _0' _0 I N P U T " B ALAN C E " ; A MT
5 1 0 GOS U B 8 9 _0'
' S EARCH AND I N
SERT
' GET NEXT RECO
5 2 .0 GOTO 4 8 _0
RD
5 3 .0 G O S U B 1 7 1 _0'
' S AVE L I S T
5 4 _0' R E T U R N
5 50 I
5 6 .0 I
570 ' * * * * * * * * * * * * * * * * * * * * * * * * * *
*
5 8 _0 ' *
R EAD I N F I L E
590 ' * * * * * * * * * * * * * * * * * * * * * * * * * *
6 .0 .0 C L S : I F D EV I C E = l T H E N 6 5 _0
6 1 _0' P R I NT " R E W I N D T A P E TO S T A R T "
PC NPA L
PE N PAL provides you with a
package that com bi nes the five
most wanted appl ications in one
i n cred i bly easy-to-use i n tegrated
env i ron ment. What wou l d you pay
for a package t hat does it a l l , but
does it easily?
Packages like this cost h u n d reds
more on other machi nes. PENPAL
W rit e f o r free c a t a l o g u e
of o u r o t h e r g reat p r o d u c t s
Circle Reader Service card #25
*
66
*
f��
HOT Coco
*
*
8 3 _0' C L S
8 4 .0 L I N E I N P U T " E N T E R C U STOM E R N
AME : " ; CUS$
8 5 _0' I N P U T " E NT E R C U S T O M E R B A L A N C
E " ; A MT
the in telligen t choice . . .
$69.95 *
(89.95 C O N )
U t �·t>f·rt_ • I I
Lt t t t'"f"l r:-.: [ 1....ti' �.f·•·\.d•X• .. .i I . J �··i I r : .t '
n.:i·l >- 1--d t•1 fio..( �·'"" ��..f h.Jcf-
brings t he power of a PC to y o u r
Coco a t a n u n believable a n d
u n beatable pr i ce' W e g uarantee
i t . . If you are not satisfied, ret urn
it w i t h i n 30 d a ys for a ref u n d .
O r d e r your personal c o p y of
PEN PAL today to fi nal ly realize t he
f u ll potential of you r Color
Computer.
6 2 0 P R I NT " P R E S S P L AY ON R E C O R D E
R"
6 3 _0 P R I NT " P R E S S < E NT E R > W H E N R E
ADY "
6 4 .0 Z $ = I N K E Y $ : I F Z $ = " " T H E N 6 4 _0'
6 5 _0' O P E N " I " , I D E V I C E , " N AM E S "
6 6 0 N U M B E R = l : G = .0
6 7 _0 I F E O F ( D E V I C E ) T H E N 7 5 _0
' RE A D N
6 8 _0' I N P UT # D E V I C E , C U S $
AME
6 9 0 I N P U T # D E V I C E , AMT
' RE A D B
ALANCE
' I N S E RT
7 _0 _0 NAM E $ ( N U M B E R ) = C U S $
NAME
7 1 .0' B A L A N C E ( N U MB E R ) = A M T
' I NS E R T
BALANCE
' S E T PO
7 2 _0' P T R ( G ) = N U M B E R
I NT E R
7 3 0 NUMBE R=NUMB E R + l : G=G+l
7 4 0 GOTO 6 7 .0
7 5 0 CLOSE # DE V I C E
7 6 _0 N U M B E R = N U M B E R - 1
7 7 _0 R E T U R N
7 8 .0 I
7 90 I
800 ' * * * * * * * * * * * * * * * * * * * * * * * * * *
*
8 1 _0' ' *
G E T C U S TOM E R
820 ' **************************
64K A N D AT LEAST
ONE DISK DRIVE R E Q U I R E D
P . O . B O X 730
STREETSV I L L E , O N TAR I O
CANADA L 5 M 2C2
( 4 1 6) 858-STAR
• Twelve
fu nction keys
and a continuously
d i s p l ayed rem i n de r l i n e
make PEN PAL easy to
use. N o c o m p l i cated key
combi nations to remember.
• O n - l i n e help feature for each
module
• H i-Res 51 x 24 screen dis play
• C o m b i nes a 255 x 255
spreadsheet, text p rocessor,
database, presentation q u a l ity
graph creator and fu l l
teleco m m u n i cations i nto O N E
package
• M od u les interface with each
other to form a truly i n teg rated
package, not just separate
programs called from a central
menu like others offer'
• Common formats and c o m m a nds
i n all modu les. T h i s package is
extremely user f r i e n d l y .
Cheque or M o n e y Order
Add $2.50 s h i p p i n g
-
FO U R STAR S O FTWAR E
November 1 985
:IC
Ont. Residents add 7% tax
D I SK SYSTEM
fOR THE CO-CO
2
T H I NL I NE
DOUBLE
SYSTEM
WITH
CAB I NE T ,
B 6 S R E T U RN
B7S I
BBS I
89� ' * * * * * * * * * * * * * * * * * * * * * * * * * *
*
S E A R C H F O R I N S E RT
9SS ' *
9 1� ' * * * * * * * * * * * * * * * * * * * * * * * * * *
9 2 S P=S
' GET L I
93S TEMP=PTR ( P )
NK
9 4 S I F P = S THEN BACK=P
' F I RST
C E L L IN L I S T
9 5 S I F ( C U S $ < NAM E $ ( T E M P ) ) OR (
P T R ( P ) = S l T H E N GOSUB l S l S : R E T U RN
' I F F O U N D T H E N I N S E RT
9 6 S BACK = P T R ( P )
97S P=TEMP
9 B S GOTO 9 3 S
99S I
i ns ·
lSlS ' ** * ** * * * * ** * * * * * * * * * * * * * *
*
1S2S ' *
I N S E RT C U S TO M E R
1S3S ' * * * * * * * * * * * * * * * * * * * * * * * * *
'A
1 S 4 S I F COUNT > S T H E N 1 1 4 S
VA I L A B L E C E L L S
1S5S NUMBER=NUMBER+l
1 S 6 S N A M E $ ( N U M B E R ) = C US $ : B A LANC E (
N U M B E R ) = AMT
' I N S E RT N A M E A N D
BALANCE
1S7S I F PTR ( P ) = S THEN l l l S
'L
A S T E L E M E NT I N L I S T
'P
l S B S PTR ( NUMBER ) = PTR ( P )
O I NT TO N E X T C E L L
'P
1 S 9 S PTR ( P ) =NUMBER
O I NT T O N E W C E L L
1 1 n R ETURN
l l l S PTR ( P ) =NUMBER
' I
N S E R T E N D O F L I ST
1 1 2 S PTR ( NUMBER ) = S
1 1 3 S R ET U R N
1 1 4 S D C E L L = AVA I L ( COUNT )
'G
ET AVA I LA B L E C E L L
' I
1 1 5 S NAM E $ ( DC E L L ) = C U S $
NSERT NAME '
' I
1 1 6 S B A L A N C E ( DC E L L ) = AMT
NSERT BALANCE
' P
1 1 7 S P T R ( DC E L L ) = T E M P
O I NT TO N E X T C E L L
'P
l l B S P T R ( B ACK ) = D C E L L
O I NT TO N E W C E L L
1 1 9 S COUNT=COUNT - 1
1 2 SS R ET U R N
121S I
1 2 2S I
1 2 3i ' * * * * * * * * * * * * * * * * * * * * * * * * *
*
S EA R C H F O R D E L E T E
1 24S ' *
1 2 5� ' * * * * * * * * * * * * * * * * * * * * * * * * *
1 2 6 S CLS
1 2 7 S L I N E I N P U T " NA M E TO D E L E T E ?
" ; DE$
12BS P=S
1 2 9 9 I F N U M B E R < 1 T H EN R E T U R N
1 39S TEMP=PTR ( P }
' G ET L I N K
1 3 1 9 I F P=S THEN BACK=P
1 3 2 9 IF ( PT R ( TEMP ) = S l AND ( NAME$
( T E M P ) < > D E $ ) T H E N P R I NT " S EA R C
H FAI LURE . " D E $ " NOT I N L I S T " : FO
R C T = l TO l S S S : N E X T : R ET U R N
1 3 3 S IF NAM E $ ( T E M P ) = D E $ T H E N GOS
UB 1 3 9 S : RETURN
' D ELETE NAM
E
1 3 4 S B A C K = PT R ( P )
1 3 5S P=TEMP
' S EARCH NEX
1 3 6 S GOTO 1 3 SS
T CELL
1 3 7S I
1 3 BS I
1 3 9S ' * * * * * * * * * * * * * * * * * * * * * * * * *
*
1 4 SS ' *
D E L ET E C U STOM E R
1 4 li ' * * * * * * * * * * * * * * * * * * * * * * * * *
1 4 2 S P T R ( BACK ) = P T R ( T EM P )
' PO I NT A R O U N D C E L L
1 4 3 S I F PTR ( T E M P ) = S T H E N N U M B E R =
' LAST C E L L
NUMB E R - l : RETURN
I N L I ST
1 4 4 S COUNT=COUNT+ l : AVA I L ( COUNT ) =
TEMP
' S T O R E POS I T I O N O F C E L
L
1 4 5 S RETURN
146S I
1 4 7S I
14BS ' ** * * * * * * *****************
*
149S ' *
P R I NT L I ST
1 5 99 ' * * * * * * * * * * * * * * * * * * * * * * * * *
1 5 1 9 C L S : J = 9 : CT =S : TT = 9 : S T = 9
1 5 2 9 I F H C $ = " Y " T H E N P R I NT # - 2 , " N
A M E " , " " , " BALANCE "
1 5 3 S I F H C $ = " Y " T H E N P R I NT # - 2 , C H
R $ ( l l ) ; : P R I NT # - 2 , "
" , "","
" : P R I NT # - 2
1 5 4 S P R I NT " N AM E " , " BA L A N C E " : P R I N
T
1 5 5 9 T E M P = PTR ( J )
1 5 6S I F TEMP=S THEN 1 6 3 S
1 5 7 S ST=BALANCE ( T EMP )
1 5 B S P R I NT NAM E $ ( T E M P ) , " " ; : P R I NT
U S I NG " $ # # # # # . # # " ; B A L A N C E ( T E M P )
1 5 9 S I F H C $ = " Y " T H E N P R I NT # - 2 , N A
M E $ ( T E M P ) , " " , " " ; : P R I NT # - 2 , U S I N G "
$ # # # # # . # # " ; BALANCE ( T EMP )
1 6 99 I F TEMP=S THEN 1 6 59
1 6 1 S CT=CT + l : TT=TT+ST
' P R I NT
1 6 2 S J = T E M P : GOTO 1 5 5 9
NEXT CELL
1 6 3 9 P R I N T : P R I NT " TOTAL CUSTOMER
S : " ; CT : P R I N T " TOT A L B A LANC E : " ; : P R
I N T U S I NG " $ # # # # # # . # # " ; TT
1 6 4 S IF H C $ = " Y " T H EN P R I NT # - 2 : P R
I NT # - 2 , " TOTAL C U S T O M E R S : " ; CT : P R I
NT # - 2 , " TOTAL B A L A N C E : " ; : P R I NT # - 2
, U S I N G " $ # # # # # # . # # " ; TT
1 6 5 S P R I N T : P R I NT " P R E S S ANY K EY
TO CONT I N U E "
1 6 6 S I F H C $ = " Y " T H E N FOR T = l TO
5 : P R I NT # - 2 : N E X T
167S K $ = I NKEY$ : I F K$ = " " THEN 1 6 7
s
1 6 B S R ET U R N
169S I
1 7 9S I
i1 1i ' * * * * * * * * * * * * * * * * * * * * * * * * *
1 7 2S ' *
SAVE L I ST
*
173� ' ** * * * * * * * * * * * * * * * * * * * * * * *
1 7 4 S I F D EV I C E = l T H E N 1 7 B S
1 7 5 S C L S : P R I NT " P R E S S P LAY A N D R
ECO R D "
1 7 6 S P R I NT " H I T ANY K E Y W H E N R E A
DY"
1 7 7 S G $ = I NKEY$ : I F G $ = " " THEN 1 7 7
9
1 7 B 9 J = S : OP E N " O " , # D E V I C E , " NA M E S
"
1 7 9 S T E M P = PT R ( J )
1 B 99 I F TEMP=S THEN 1 B 4 S
l B l S P R I N T # D EVI C E , N A M E $ ( T E M P )
1 B 2 S P R I NT # D EVI C E , B A L A NC E ( T E M P )
1 B 3 S J = T E M P : GOTO 1 7 9 S
1 B 4 S CLOS E # D EV I C E
1 B 5 ,0' R E T U R N
1 B 6 S I N PUT " CON F I RM E X I T ( Y /N ) "
; EX $
1 8 7 S I F E X $ = " Y " T H E � 1 B 8S E L S E I
F EX $ = " N " THEN l B S ELSE 1 8 6S
l B B S END
DOUBLE
S I DE D
D I SK
DR I VE S
DENS I T Y
P O WE R
SUPPL Y ,
D I SK
DR I VE
CABL E ,
J&M
NEW
D I SK
MANUAL ,
C O N T R OL L ER JFD-CP W I T H J-DOS ,
SYS TEMS .
OPERA T I NG
RS-DOS
$469 . 95
D I SK C � T RIJ.. LE RS
W I TH MANUAL
J&M JFD-CP W I T H J-DOS $1 J9 . 9 5
W I T H J-DOS ,
& RS-DOS
$ 1 59 . 95
1.1
RAD I O SHACK
$ 1 Jll . 9 5
D I SK DR I VE CABLES
CABLE F OR ONE DR I VE
$19 .95
CABLE
$24 . 95
FOR
T WO DR I VE S
M I SC
64K UPGRADE W/MOD
I N S T RU C T I ONS C , D , E , r AND CO­
co 2
$J9 . 95
RAD I O SHACK BAS I C 1 . 2
$24 . 9 5
RAD I O SHACK D I SK BAS I C
1.1
$24 . 9 5
D I SK DR I VE CAB I NE T ,
WITH
POWER SUPPL Y F OR A S I NGLE
DR I VE
$49 . 95
D I SK DR I VE CAB I NE T ,
WI T H
2 HALF S I ZE
POWER SUP P L Y F OR
DR I VE
$59 . 9 5
$74 . 95
HJL - 57 K E YBOARDS
VERBA T I M DS , DD BOX OF
D I SKS
10
$ 2 2 . 00
VERBA T I M SS , DD BOX
D I SKS
or 1 0
$ 20 . 00
D I SK P R I CE S I NC L UDE SH I P P I NG
COMPL E T E L I NE O F E P SON
PR I N T E RS AND I N T E R F AC E S CALL
F OR L OW P R I CE .
CoCo
rLE X CPERAT ING SY S T EM
T he OR I G I NAL CoCo F L E X ' r
rLE X-CoCo J r .
I n c l udes
Co l .
$49 . 9 5
the
D i sp l ay ,
o r i g i na l
Mem .
E x a m i ne/Change ,
FLEX
51
n n d D i sk
T r ans fer
F i l e s to CoCo o r CoCo
F i l es
to
Does NOT
FLEX ,
e tc . ,
etc.
i n c l ude t he E d i t o r
o r Assemb l e r '
r LE X- Co Co S r .
Same
as
$ 79 . 9 5
" J r . " e x cept W I T H
the E d i t o r
and Assemb l e r .
F L E X OPERA T I NG S Y S T E M I NC L UDE
OVE R 50 U T I L I T I E S
SH I P P I NG
FORE I GN
VISA.
-
AOO
5?o
USA ,
l O?o
Circle Reader Service card #213
-
DATA-COMP
5900 CASSANDRA SMITH RO .
HIXSON, TN 37343
(6 1 5 ) 842-460 1
r1 rx
is B
l echrl l c u l
f r udeme r k o f
S y � l em Cu1 1 �u l t u1 1 l u
November 1 985
HOT Coco
67
This program is available on our Instant CoCo cassette.
See the Instant CoCo ad elsewhere in this issue.
by Robert Gault
1r
l
Dt
M
�
�
am
�
IC
� I I UI
='-"-"-==
control how your coco
resets Basic programs.
Reset Button
Y
ou have probably heard of machine­
language programs that will disable
the break key. Now you can be the first on
your block to tame your CoCo's reset button.
Listing 1 is a short Assembly program that
redirects the normal restart routines so that
when you press the reset button, the pro­
gram starts at any line number desired. To
achieve a flexible start, the reset sequence
(desclibed on p. 208 of Going Ahead with Ex­
tended Color Basic) is modified.
Here's what the reset button does. First. it
resets most of the CoCo's main circuits to a
clear condition. This means that your CoCo
gets amnesia. Second, it synchronizes the
video chip (VDG) at random to the leading or
trailing edge of the main clock's square
wave. In short. the artifact colors of PMODE4
change. Third, the master chip (6809E) does
an automatic restart (JMP [$FFFEJ). which
for the CoCo means start at $A027 in the
Color Basic ROM. Fourth, either the text
screen appears with "OK" or the copylight
message appears with "OK" .
Program Listing 2 illustrates how you can
make your CoCo restart at any line of your
program automatically on release of the reset
button. Listing 2 restarts at three different
locations depending on when the reset but­
ton is pushed. Note that the first use of the
reset button simulates the start of Radio
Shack's Sands of Egypt, where the· artifact
colors are selected.
Listing 1 works with the Color Basic 1 .0 or
1 . 1 . Extended Color Basic 1 .0. and Disk
Color Basic 1 .0 ROMs. If you have the disk
Basic 1 . 1 ROM. see the comment in line 460
for the necessary changes. If you do not have
Extended Color Basic, the program assumes
that you will not be using PMODE graphics.
You can add a section of code at the indicated
spot to directly set the SAM chip.
To keep the program as short as possible.
undocumented ROM routines are used. I will
desclibe what these routines do and include
below the first few commands in each so you
can find them in your version of ROM if they
have been relocated:
Locations $72- 73 are a warm-start reset vec­
tor CB $AOE8: EXCB $80CO: DCB $COD4
68
•
HOT Coco
November 1 985
OAOE8/ NOP
080CO/ NOP
OCOD4/ NOP
OAOE9/ CLR < 6F
080C l / CLR < 0E3
OCOD5/ BSR OCODD
OAOEB/ JSR > OAD33
080C3/ CLR < 0E4
OCOD7/ JSR > 0D l E5
OAOEE/ ANDCC #OAF
080C5/LDA > OFF03
OCODNJMP > 080CO
The vector at $ 1 83 is called before each key­
board input RTS.
=
$A003 converts the hex line number in regis­
ter D to line location plus one in locations
$47 -48.
OAD03/ LOX < 1 9
OAD05/ LOU . X
OAD07I SEQ OAD 1 2
OAD09/ CMPD 2,X
$95CF executes the SCREEN l .n command
using the last value given. This is part of Ex­
tended Color Basic. You can set $FF22 and
$FFCO-$FFD3 directly.
095CF/ PSHS X,B,A
095D l / LOA < 086
095D3/ ADDA #3
095D5/ LOB # 10
$ADA 7 executes the line at the location in
register X.
OADA7/ STX < 2F
OADA9/ LOA .X +
OADAB/ SEQ OADB4
System Requirements
16K RAM
OADAD/ CMP A #3A
OADAF/ SEQ OADCO
OADB l / JMP > 08277
Listing 1 is position independent so it can
be located anywhere convenient. Note. how­
ever, that the vectors at $72 and $ 183 must
be reset either manually with POKEs or by
reassembling the listing. Further, you must
keep track of the locations of variables
LNNUM and FLAG2 since your Basic pro­
gram must communicate with them.
Listing 2 is shown used with a tape system,
but the machine-language routines can be
LOADMed from disk or POKEd from data.
Line 1 is a subroutine that loads the ma­
c h i n e-language variables L N N U M and
FLAG2. It should be called before a new start
line is required. The Basic valiables LN and
SC are converted into the machine-language
variables LNNUM and FLAG2. Thus. LN
should be made equal to the line to which the
reset button should branch. To obtain a text
screen make SC = 0: to obtain a graphic
screen make SC 1. Listing 2 assumes the
presence of Extended Color Basic. Those of
you with only Color Basic should replace the
graphics commands with something else.
A few precautions are advisable. Do not
point LNNUM into a FOR . . . NEXT loop or
toward a RETURN as Basie's stack has been
reset and an error will result. Do not point
into a graphics routine in progress unless
you are sure of the results. Not only may the
artifact colors change. but other problems
occur as well. As an example. don't try to
rePAINT something already painted the de­
sired color. Be careful of m ixed graphic
modes as they can be canceled.
If the above has not stimulated your imag­
ination, consider that only minor adjust­
m e n t s are n e e d e d fo r t h e fo l l o w i n g
applications: auto-restart o f programs at any
line number: auto-restart after an error: im­
plementation of anti-theft schemes: preven­
tion or loss of the all-RAM (64K) mode. •
=
Color Basic (Without Graphics)
Extended Color Basic
(With Graphics)
Editor/Assembler
Address correspondence to Robert Gault.
832 N. Renaud, Grosse Point Woods. WI 48236.
Program Listing 1 . Reset Button Tamer
0072
0072
7F06
7FOO
7FOO
7F02
7F03
7FO5
7F06
7F07
7FOA
7FOD
7FOF
7Fl2
7F14
7Fl7
00
00
12
EC
BD
25
63
DC
B3
ED
B C F6
AD03
OB
BC F 3
47
OODl
B C E9
7FlA cc
444B
7 F l D 1 0 B 3 cooo
03
7F21 26
7F23 7E
COD4
7 F26 cc
4 5 5B
7F29 1083 BODO
7F2D 26
03
7F2P 7E
B oco
DDlDD
DOllO
00120
00130
00140
00150
00160
D0170
OO!BO
00190
00200
00210
00220
00230
00240
00250
00260
00270
00 2BO
00290
00300
00310
00320
00330
00340
00350
00360
00370
003BO
00 390
00400
00410
00420
00430
00440
00450
00460
00470
004BO
00490
00500
7F32
*TAME YOUR R E S ET BUTTON
* B Y ROBERT GAULT 2 / 2 / B 5
*
7E
ADES
•
*
*CHANGE WARM START VECTOR
ORG $ 7 2
F D B RESET
*START O F N E W ROUT I N E S
* P LACE T O S U I T B U T B E
* S U R E T O C L E A R M . L . SPACE
* I N BAS I C PROGRAM
ORG $ 7 F 0 0
LNNUM
RMB 2 L I N E NUMBER
PLAG2
FCB 0
GRAPHICS
LNLOC
R M B 2 L I N E LOCAL
RESET
FCB 0
FLAG
* N EW WARM START VECTOR
RESET
NOP * M U S T B E H E R E
L D D LNNUM , PC R
JSR $AD03
F I ND
BCS VECTOR
LOC
COM FLAG , P C R
L D D $ 4 7 L N LOC+l
SUBD # 1
STD LNLOC , PC R
F
O
R DISK 1 . 0
*$COD4
* $ B O C O FOR E X . BAS I C 1 . 0
* S A O E B F O R BAS I C l . l
* C H E C K YOUR OWN S Y S T E M
7F35 34
7F37 60
7F3A 27
7F3C 35
01
B C CB
lE
01
7F3E
6F
BC C4
7F4l
7F44
6D
27
B C BE
oc
7 F 4 6 cc
7F49 l0B3
7F4D 26
455B
BODO
03
7 F 4 F BD
95CF
7F52
AE
BC AE
7F55
IC
AF
7F57 7 E
7 F 5A 3 5
VECTOR
Vl
LDD l $ 4 4 4 B
CMPD $ C 0 0 0
B N E Vl
JMP $CDD4
LDD f $ 4 5 5 B
CMPD $ B O D O
B N E V2
J M P SBOCO
Program Listing 2. Sample Basic Program. Note
the LN and SC variables in lines 2, 1 0, and 1 5.
0 C L S : C L E A R 2 0 0 , & H 7 F 0 0 : C LOAD M " R E S
ET " : GOT0 2
1 P OK E & H 7 F 00 , L N/ 2 5 6 : PO K E & H 7 F 0 1 , L
N - 2 5 6 * I NT ( L N / 2 5 6 ) : PO K E & H 7 F 0 2 , S C :
RETURN
2 L N= 4 : S C= l : GO S U B l : C L S : P R I NT " TU R
N O F F T A P E R E CO RD E R " : P R I NT " P U S H
T H E R E S E T B UTTON A T A N Y
T I ME
D U R I NG T H I S P ROGRAM A N D
WATCH
W H AT H A P P E N S . " : P R I NT : P R I NT " H I T
ANY KEY"
3 I F I N K E Y $ = " " TH E N 3
4 P M O D E 4 , l : PC LS l : S C R E E N l , l : P M O D E
3
5 COLOR 2 , l : L I N E ( l 2 0 , 9 0 ) - ( 1 3 0 , 1 0 0
) , P S ET , B F
6 L N = 7 : S C = 0 : GO S U B 1
7 P M O D E 4 , l : C L S 5 : P R I NT @ l 6 8 , " I F R E
D
P U S H r e s e t " ; : P R I NT @ 2 0 0 , " I F B L
UE PUSH ENTER � ;
8 F O RT = l T 0 1 6 0 : N E XT : I F I N K E Y $ = C H R $
( 1 3 ) TH E N 1 0
9 S C R E EN l , l : F O R T = l T0 1 6 0 : N E X T : S C R
E E N0 , 0 : I F I N K E Y $ = C H R $ ( 1 3 ) TH E N 1 0 E L
SEB
1 0 L N = l l : S C = l : GO S U B l
1 1 P M OD E 4 , l : PC L S : S C R E E N 1 , l : P M O D E
3,1
1 2 C I RC L E ( l 2 8 , 9 6 ) , 9 6 , 4 , . 8 : C I RC L E
( 9 0 , 7 0 J , 9 , 4 : C I RC L E ( l 6 6 , 7 0 J , 9 , 4
1 3 P A I NT ( l 2 8 , 9 6 ) , 2 , 4 : PA I NT ( 9 0 , 7 0
) , 4 , 4 : PA I NT ( l 6 6 , 7 0 J , 4 , 4
1 4 C I RC LE ( l 2 8 , 1 1 0 J , 7 0 , 3 , . 4 , . 0 5 , .
4 5 : C I RC L E ( l 2 8 , 1 4 5 ) , 1 0 , 3 , l . 5 , . 9 , .
6 5 : PA I NT ( l 2 8 , 1 4 5 ) , 3 , 3
1 5 P MO D E 4 , l : L N = l 6 : SC = l : GO S U B 1
1 6 I F I NK E Y $ = " " T H EN 1 6
1 7 C L S : P R I NT " P U S H T H E R E S ET B UTT
ON
END
ADA7
Bl
DK
* * C H A N G E T O C O E 7 FOR D I S K
ROM l . l
EX
O!B2
01B2
O!B3
ODOOO
7E
7F35
OOOD
TOTAL ERRORS
DD51D
00520
00530
OD540
00550
D056D
00570
005BO
00590
D0600
00610
OD62D
0063D
00640
006 50
00660
00670
006BO
00690
00700
00710
00720
00730
00740
V2
JMP
SADES
PLAIN
*NEW G E T INPUT VECTOR
PSHS CC
R E S T RT
T S T F L AG , PC R
BEQ EX IT
PULS CC
*CLEAR RESTART CALL
C L R FLAG , PC R
*TEST FOR T E X T OR G R A H P I C
TST F L AG 2 , PCR
B E Q TEXT
*TEST FOR EX . COLOR BAS I C
LDD #$455B
CMPD $ B 0 0 0
B N E TEXT
*PMODE S C R E E N C A L L TO
* E X . COLOR BAS I C l . 0
J S R $ 9 5CP
* LOAD RESTART L I N E IN X
0 0 7 5 D TEXT
L D X LNLOC , P C R
*
00760
00770
0 0 1 B O * I N D I CATE D I RECT
0 0 7 9 0 *COMMAND
OOBOO
ANDCC f $ A F
D O B l O * E X ECUTE L I N E
OOB20
J M P $ADA7
OOB30 EXIT
PULS CC , P C
O O B 4 0 * C H A N G E I N PUT
FROM
O O B 5 0 * K EYBOARD VECTOR
OOB60
ORG $1B2
OOB70
FCB $7E
F O B RESTRT
ODBBO
END
OOB9D
CoCo Software for Visually Impajred
or Physically Handicapped
TALKING SOFTWARE-Requires Radio Shack' s speech
and sound module. Letter by Letter, Word by Word , Word
and Punctuation are three programs which are designed to
aid visually impaired CoCo users. Comes with talking book
instructions and makes all BASIC programs speak.-$90.
More software for the visually impaired!
EARS, enhanced version-$ 1 1 0-normal version-$ 1 00.
TERM TALK enables vision impaired to use CompuServe
and other online services-$60.
PRE-READ, reads Telewriter and Scripsit letters out loud!­
$29.
FOOLS CROSSING, graphics adventure-$34.95 with Talk­
ing Book instructions.
SUPER VOICE SPEECH SYNTHESIZER, sings, talks in
six octaves-$ 79 . 9 5 , $99.95 with Talking Book.
All A . S . C . products have a satisfaction guarantee . We accept
Checks Or money Orders.
Circle Reader Service card #322
A. S . C . Corporation
3529 �nessee
Rd . , Lapeer, Michigan 48446
(313) 664-3722
November 1 985
HOT Coco
69
-
EDUCAnoN .....................................
This program is available on our Instant CoCo cassette.
by James Wood
See the Instant CoCo ad elsewhere in this issue. ==-=-'-=-==
Teacher Helpers
These programs make the computerized classroom
more civilized for students and teachers.
C
lassroom computers can benefit both
students and teachers by improving
the quality of education. Here are three pro­
grams to help teachers use computers more
effectively by individualizing student lessons
and reducing their preparation and correc­
tion workload.
Personalized Programs
If you have several short educational pro­
grams that a student will run in succession,
you can add a personal touch. Incorporate
Listing 1 into the first program the student
will use, placing it at the beginning of that
program. The computer asks for the user's
name and POKEs it into high memory. where
it will be unaffected by other programs that
are loaded from tape or disk. Place Listing 2
at the beginning of subsequent programs.
Before each new program begins. it wel­
comes the student by bringing his name
back from protected storage.
The program is written for a 32K machine
and will run under Color Basic or Extended
Color Basic. To use it with 16K machines,
change all occurrences of 32700 in Listings
1 and 2 to 163 16. If any of the programs you
run contains a machine-language subroutine
that is stored above memory location 32700,
adjust the storage area for the Listings. Line
10 in Listing 1 clears 200 bytes; increase this
value if you need more storage space.
True/False Test Generator
How often have you wanted to create a
true/false test quickly? Have you ever wished
you could scramble the order of the ques­
tions to make cheating more difficult for stu­
dents with roving eyes? If you have a 16K
CoCo with Extended Color Basic and an 80column printer, True/False Generator (List­
ing 3) can help you. Unfortunately, you still
have to come up with the questions.
The program stores your questions in a
bank of DATA lines. The generator types out
as many different arrangements of the test as
you need, prevents the printer from splitting
70
HOT Coco
November 1 985
CHEM I S TRY
I
)
I
l
I
I
I
I
l
I
I
l
l
l
)
l
1 )
TWO
ELEMENTS
WH I CH
IS
COM B I NE
O X I D I ZED
TO
IS
FORM
AL WAYS
A
' 85
COMPOUND.
PLA CED
ON
THE
THE
SYMP-OL
LEFT
IN
FOR
THE
THE
ELEMENl
COMPOUN D ' S
F O RMULA.
2>
3)
SOD I UM ' S
SYMP-OL
O Z ONE
T R I ATOM I C
IS
IS
Na.
OXYGEN.
It )
T H E NONMETALS A R E L O C A T E D O N T H E
ELEME N T S .
5>
T H E R E ARE
6l
7l
Bl
A
T W O O X YGEN
SOLUT I ON
THE
W I TH
A
ATOMS
P H OF
O X I DAT I O N NUMBER
f\ J NE T I C
ENERGY
IS
FOR
3
ENE"RGY
IN
IS
LEFT
P·A S J C .
SULFATE
DUE
S I DE
A H Y D RO X I DE
TO
IS
AN
- ::
OF
THE
PE R I O D ! C
TAr-L.E
OF
THE
ION.
•
OP. J E CT ' S
MOT I ON .
9 l F E R ROUS I S THE I RON I ON W I T H A N O X I DAT I ON NUMBER O F ·• 2 .
1 0 ) THE SYMBOL. F O R GOLD I S G .
Fig . 1 . Student's ChemiStry Test
CHEM I S TRY
IT)
!Tl
!Tl
IF)
<Fl
!Fl
IT )
< T l
I T )
<Fl
1 )
TWO
W H I CH
JS
COMB I NE
O X I D I ZED
TO
IS
FORM
ALWAYS
A
' 85
COMPOUND.
PLACED
ON
THE
THE
SYMBOL
LEFT
IN
FOR
THE
THE
ELEMENT
COMPOUN D ' S
F O RMULA.
2l
3)
4)
SJ
6)
7)
Bl
9)
10
ELEMENTS
SOD I UM ' S
SYMBOL
OZONE
T R I ATOM I C
THE
JS
NONMETALS
IS
ARE
Na.
O X Y GEN .
LOCATED
ON
THE
LEFT
S I DE
OF
THE
PE R I OD I C
TABLE
ELEMENTS.
THERE
A
)
ARE
TW(1 •)XYGEN
SOLU T I ON
THE
W I TH
O X I D A T I ON
A
f\ J N E T I C
ENERGY
IS
FERROUS
JS
I RO N
THE
SYMP-OL
ATOMS
PH OF
NUMBER
THE
FOR
FOR
ENERGY
I ON
GOLD
3
IN
IS
A
DUE"
W I TH
HYDRO X I DE
P·A S J C .
SUL F A T E
IS
·· 2 .
TO
AN
AN
O X I DAT I ON
JS G.
or
THE
I ON .
OP.JE C T ' S
M OT I ON .
NllMP.ER O F
•2.
Fig. 2. Teacher's ChemiStry Test and Answer Key
a word at the end of the line, and even Jets you
print answer keys. You can have the com­
puter print a test using all the questions or
create a test with fewer questions. The pro­
gram shuffles the questions and ensures that
each question appears only once per test.
Modifying the program to suit your grade
level and subject is easy. As you add DATA
lines, increase the value of string space
cleared (200) in line 10. If you do not add
adequate space, an OS error occurs. Set the
variable NN (also in line 10) to equal the num­
ber of test questions plus one. If you have 25
questions, for example, NN should equal 26.
The program installs your questions in the
System Requirements
1 6K
Extended Color Basic
DATA statements numbered from 1 0 1 0 up to
1 0000. The proper format is:
Line Number DATA Question .. Answer
State each question as a sentence and in­
clude a period. Use a comma between the
question and the answer, which will be either
T or F. Be sure that the last DATA line reads:
Line Number DATA END.E
Figures 1 and 2 show printouts of student
and teacher versions of a chemistry test. Can
you imagine making a test that neat with a
typewriter or creating different arrange­
ments of the questions using that dreaded
machine? •
Address correspondence to James Wood at
424 N. MiSsouri, Box 507. A twood. IL 61913.
6B N=N-1
7 S P R I NT : P R I NT " T H E R E A R E " ; N ; " Q U E
ST I ON S . " : P R I N T " HOW MANY A R E TO B
E ON T H E T E ST " : I N P U T NQ : I P NQ > N
T H EN 7 9
B S P R I N T : P R I N T " P R I NT E R S HO U L D B E
CON N E C T E D , " : PR I N T " A N D T U R N E D ON
B E F O R E H I T T I N G " : P R I NT "
( E NTE
R) "
9 9 I NPUT I O
l S S P R I NT # - 2 , S T R I NG $ ( 4 S - L EN ( T $ ) /
2 , 3 2 ) : T$ : PRINT#-2 , " "
1 1 9 F O R A = l TO NQ
1 2 S R = R N D ( N ) : I F JW ( R ) = l T H E N 1 2 S
E L S E JW ( R ) = l
1 3S S ( A ) =R
" ; ST R $ ( A ) ; " ) "
1 4 9 P R I NT # - 2 , " (
: : TL $ = Q $ ( R )
l S S L = L E N ( T L $ ) : I F L < 7 3 T H EN P R I N
T # - 2 , T L $ : GOT01 B S
1 6 9 FOR G = 7 2 T O 3 S S T E P - l : I F M I D
$ ( TL $ , G , l ) = " " T H E N 1 7 9 E L S E NEX
T G
1 7 S P R I N T # - 2 , L E PT $ ( T L $ , G - l ) : TL $ =
R I G H T $ ( T L $ , L - G ) : P R I NT # - 2 , S T R I N G $
( B , 3 2 ) ; : GO TO l S S
lBS NEXT A
1 9 9 FORA= l TO l S : P R I N T # - 2 , " " : N E X T
2 S S P R I NT # - 2 , S T R I NG $ ( 4 S - L E N ( T $ ) /
2 , 3 2 ) ; T $ : P R I NT # - 2 , " "
2 1 S FORA= lTO NQ
2 2 S P R I NT # - 2 , " ( " ; A $ ( S ( A ) ) ; " ) " : S
T R $ ( A ) ; " ) " ; : T L $ =Q $ ( S ( A ) )
2 3S L=LEN ( TL$ ) : I F L < 7 3 THEN P R I N
T # - 2 , T L $ : GOT0 2 6 S
2 4 S F O R G = 7 2 TO 3S STEP- l : I F M I D
Program Listing 1 . Name Program that Re­
sides in High Memory
l S C L E A R 2 S S , 3 2 7 SS
2 S C L S : I N P U T " W H A T I S YOUR N A M E " ;
NA$
3 S L = L E N ( N A $ ) : I F L > 6 7 T H E N P R I NT
" N E E D A S H O R T E R N AM E " : GOT0 2 S
4 S P O K E 3 2 7 9S , L
S S FOR A = l TO L
6S B = A S C ( M I D $ ( NA $ , A , l ) )
7 S POKE A + 3 2 7SS , B : NEXTA
B S R E M A R K P RO G R A M S T A R T S H E R E
Program Listing 2. Welcome-Back Program
lS CLS : L=PEEK ( 3 2 7SS l
29 P R I NT " WE LC O M E B A C K , "
3S F O R A = l TO L
4S N A $ = N A $ + C H R $ ( P E E K ( A + 3 2 7 S S l l : N
E X T A : P R I NT N A $
S S R E M A R K F O L LOW I NG P ROGRAMS S T A
RT H E R E
Program Listing 3. True/False Test Generator
lS C L E A R 2 S S : P C L E A R l : N N = l 3
2 S CLS : P R I N T " TRUE-FALSE TEST GEN
E R A TO R "
3 9 I N P UT " T I T L E " ; T $
4S D I M Q $ ( N N ) , A $ ( N N ) , 5 ( N N ) , JW ( N N
) : N=l
SS READ Q $ ( N ) , A$ ( N )
6 9 I F Q $ ( N ) = " EN D " T H E N 6 B E L S E N
= N + l : GOTO S S
C o n nect y o u r T RS - � C o l o r C o m p u t e r
to t h e O u t s i d e World
0'J U P·JLEASH G\'.�)
Learn t h e s i m p l e t e c h n i q u es f o r p u t t i n g y o u r c o m p u t e r t o
Y O U R C R E AT I V E G £ H I U S
w o r k m o n i t o r i n g a n d c o n t ro l l i n g o u t s i d e d e v i c e s a n d i n s t r u ·
WITH
ments. Construct and use input and output ports, analog·
� ���TI�03
ful 1
Two
What
you
�c:ro 1 l
rotate
,..,
30
1
; � · �vns.
t.. c.
use
degrees.
your
c v l o .-
Whether
doc•d l e ,
Send
II
t
·
d u m p s;
be
can
be
or
and
*'re
No
copied,
in
and
but
B2A,
or
games,
it' s
At
1.. .
a
great
ord@r
this
u·0
make
cart oons
add i t i o n
to:
p r 1 ce 1
- -
OMLV $20.00
.-ny
!
for
on
OS9
TRS-B0
other
wr i t e
Pr i nt s
Palo
Alto,
CA
can' t
bl!at
u s i n g B A S I C l a n g u a g e p ro g ra m s . E x c e l l e n t f o r i n d i v i d u a l o r
c l a s s room i n s t r u c t i o n .
T h e boo k , T R S-80 C o l o r C o m p u t e r I n t e r f a c i n g , W i t h E x p e r i ·
ments,
or
t o o l box.
The
The
the
fu ndamentals
Expansion
Connector
..�..
and
$ 1 4 .95
B re a d b o a r d ,
no.
CC· 1 00.
Experiment
Component
$ 3 4 . 95
Package,
no.
CC· 1 50.
c o n t a i n s a l l o f t h e p a r ts n ee d e d t o d o th e e x p e r i m e n t s i n t h e
b o o k.
$89.95
For a l i m i t e d t i m e o n l y , get a l l three for $ 1 05.00, a 2 5 %
sav i n g . ( O r t a k e 1 5 % o f f o f a n y i n d i v i d u a l i t e m . ) O f f e r e x p i res
November 1 5, 1 986 .
V i rg i n i a re s i d e n t s , a d d 4 % s a l e s t a x .
I n c l u d e $ 2 . 50 f o r s h i p p i n g .
W r i t e f o r o u r n ew f re e c a ta l o g o f books, hardware, a n d
s o f t ware
anywherl! !
,�..\,_f
�
..
"1Lr--G
1-.
explains
on
i n t erfac i n g .
.
e l e c t ro n i c s ,
scientific
software.
a n d p e r s o n a l i m p ro v e m e n t g u i d e s . O r d e r from:
GRAF I X -3
"<r-
f u l ly
a,f1 d re s s , d a t a, a n d c o n t r o l b u s s i g n a l s .
Circle Reader Service card #107
I
2 1 893,
c o n n e c ts d i rec t l y t o th e c o m p u t e r a n d b r i n g s o u t th e n ee d e d
dumps.
J us t
no.
i l l u s t ra t e s t h e m w i t h e x p e r i m e n t s .
educat i o n a l
Sof'"twarl!
60183
Box
you
worksheet s !
d r a w i ng .
posters,
P . O.
94306
�arm
neces!D011 r y .
colors
to-d i g i t a l a n d d i g i ta l - t o-ana l o g c o n v e r t e r s t o c o n t ro l s i g n a l s
between
between
a t' t er
your
or
s i ng l e- k e y
not
and
to
Aardv011 r k
even
l i new;.
f'"our
menu•­
hexadecimal
e.111 sy
&hrunk
to
backward,
graph l c•
more
s t ra i gh t
C•r
screen.
devoted
down,
saved
h e l p f' u l
O k i data
text
space
upside
c u r sor
e )C pand&d
<::•n
no
Screens can be l ef't • l l oc a t e d
you use GRAF I X - 3 t o h e l p you
your
it!
Do
car,
t u r r.
program&.
swcond
01·.,.�
and
get ,
l i s ted
c i r c l e• ,
J o y '!> t i•c ka
CGP- 1 1 5.
sor�ware
be
owro
u s i .-19
P i c t u.-es
you
S t • rn p s
can
bo1<es,
poi ,..o t s
screens
what
d .i rect ion,
They
c:c·1�1n*'.-,()s.
two
is
any
in
Draws
two
graph 1 c: •
&&&
$ ( TL $ , G , l ) = " " T H E N 2 S S E L S E NEX
T G
2 S 9 P R I NT # - 2 , L E FT $ ( T L $ , G - l ) : TL $ =
R I G H T $ ( T L $ , L -G ) : P R I NT # - 2 , S T R I NG$
( B , 3 2 ) ; : GOT02 3 S
2 6 9 NEXTA
279 END
1 9 1 9 DATA T H E S Y M B O L F O R G O L D I S
G. ,F
1 9 2 9 DATA W A T E R H A S T H R E E E � E M E N
T S I N I T S F O R M U LA . , F
1 9 3 9 DATA K I N E T I C E N E RGY I S E N E R
G Y D U E TO A N O B J E C T ' S MOT I ON . , T
1 S 4 S DATA TWO E L E M E NT S COMB I N E T
0 F O R M A COMPOU N D . T H E S Y M B O L FO
R T H E E L E M E NT W H I C H I S OX I D I Z E D
I S ALWAYS P LA C E D ON T H E L E F T I N
T H E COM POUN D ' S F O R MU L A . , T
l S S S DATA T H E O X I DA T I O N N U M B E R F
O R SUL FATE I S - 2 . , T
1 9 6 9 DATA T H E R E A R E TWO O X Y G E N A
T O M S I N A H Y D ROX I D E I ON . , F
1 9 7 9 DATA O Z O N E I S T R I A TOM I C OXY
GEN . , T
l S B S DATA P H P A P E R I S B LU E I N A
BAS I C SOLUT ION . , T
1 9 9 9 DATA A SOLUT I O N W I T H A PH 0
F 3 I S B AS I C . , F
1 1 9 9 DATA F E R ROUS I S T H E I RON I O
N W I T H A N O X I DA T I O N N U M B E R O F + 2
. ,T
1 1 1 9 DATA T H E N O N M E T A L S A R E LOCA
TED ON T H E L E FT S I D E O F T H E P E R I
O D I C TAB L E O F T H E E L E M E N T S . , F
1 1 2 9 D AT A SOD I U M ' S S Y M B O L I S Na .
,T
1 9 999 DATA E N D , E
..
f;:;�
:,
NG
TOG E T H E R
P
*�
J;}rnup 9",, hnofogy,
0 B O X 87
•
.£;�··
C H E C K VIRGINIA 24072
Circle Reader Service card #309
V i sa/ M a s t e r Card acce p t e d . 703-65 1 -3 1 53
T R S -80 is a t rademark of Rad i o S h a c k, a T a n d y Corpo rat i o n .
November 1 985
HOT Coco
71
6809 on Line
by Bobby Ballard
I
n September I presented an overview of
setting up a BBS. discussing time commit­
ment, audience, and services. But there's
more to running a BBS: you m ust think
about necessary hardware and its cost. Start­
ing with the basics. let's look at equipment
you might consider.
Software Influences Hardware
Your choice of software greatly affects the
hardware you need. There are a number of
options. the most inexpensive of which is to
write your own programs. If you have the tal­
ent for writing machine-language. you can
write a driver progr?.m to control the serial
port t h rough mod ifications to Basic and
stand-alone subroutines. Or you can pur­
chase a driver. like Remoterm from Star-Kits
Inc. or 232 RemotePlus from EDC Inc. In ei­
ther case. you will need to write the remain­
ing program or programs in Basic . The
advantage to this approach is obvious: Be­
cause you design the system. your hardware
choices are not restricted.
Purchased software offers different advan­
tages. One commercial package. Colorama.
is thoroughly supported by the manufac­
turer. Ceratec. You get quick and courteous
help if you have problems. Purchased soft­
ware is well worth the price. especially if you
have limited programming time or talent.
However. you still need a working knowledge
of Basic to run a commercial BBS because
you must be able to make program modifi­
cations and system adjustments to set up
your board.
Knowledge of RS-232 protocols is also im­
portant. You need a special cable to accom­
modate the additional RS-232 lines missing
on the CoCo. Colorama uses the standard
1/0. cassette. and joystick ports on the back
of the Coco to deal with 1 . 200-baud detec­
tion. carrier-detect. and smart-modem fea­
t u r e s . A C o C o . d r i v e s . c o n t ro l l e r . a n d
autoanswer modem are t h e basic require­
ments for a Colorama system-you won ' t
need a n RS-232 port o r Multi-Pak Interface.
The system will handle up to three double­
sided drives but can be run on one single­
sided drive. as well.
The middle ground between purchased
and original software is public-domain soft­
ware. The cost is low. but you must be willing
to debug and modify the programs. Even if
you make a donation. you do not get the
same support you receive when you buy a
commercial package.
One such program, COBBS. written by
Richard Duncan. can be downloaded from
CompuServe or another BBS. At present.
COBBS supports up to three single-sided
drives and requires Tandy's Deluxe RS-232
72
HOT Coco
November 1 985
v
-------
BBS Hardware
Program Pak (catalog n o . 26-22 26) . You
must therefore use a Multi-Pak Interface [cat­
alog no. 26-3 1 24) or a Y cable. but your serial
1/0 port is free for a printer or another periph­
eral . In addition. using a fully configured RS232 port gives you greater control over your
modem and its control lines.
Since the Coco lacks a standard RS-232
port. you cannot reliably send data at speeds
above 1 .200 baud using the existing port.
With the advent of 2.400 baud, you might
want to consider adding an RS-232 port. Of
course. this requires that you purchase a
Multi-Pack Interface to simultaneously han­
dle your drive and controller. You might buy
Tandy equipment or purchase a bus-expan­
sion board from PBJ Inc.
A BBS Ties Up Equipment
An early d e c i s i o n you m u s t make is
whether to have an additional phone line in­
stalled. If your board will be on line 24 hours
a day. consider dedicating a separate phone
line for your BBS. BBS numbers get passed
on and often the information regarding hours
of operation is omitted. You might find peo­
ple calling you at all hours. thinking it is a
24-hour-a-day board.
Equally important is balancing your per­
sonal computing and BBS needs. You might
not be able to get by if you have only one
CoCo with a drive controller and two disk
drives. When your BBS is running. your
CoCo will be tied up just as if someone else
were at the keyboard. Setting up a separate
system is expensive. Adding a printer might
prove invaluable in printing membership
lists and tracking caller activity while you
are away from the terminal. but it will in­
crease costs. too.
Then there's OS-9. Perhaps you can use it
to time-share and multitask in order to ac­
commodate your personal and BBS needs.
But while it is possible to run a system on
OS-9. only one person can access the disk
system at a time. OS-9 is still worth consid­
ering. though. because you might be able to
serve two callers at once using a dual RS-232
port from PBJ Inc.
Another important piece o f BBS equip­
ment is a modem. If you don't own an au­
toanswer modem. you will need one for your
BBS. Even if you do. you must choose be­
tween tying it up with the BBS or buying a
second one. O! course. if you telecommuni­
cate only occasionally. you might not need
two modems.
Other Considerations
Storage capacity is the heart of any BBS
and represents the largest overall cost. You
need disk space for all files and storage space
for the disks. Uploading and downloading
also consume space. In fact. most download
and information files are stored in ASC I I .
which uses more space than tokenized Basic.
A program that uses 5 granules in Basic
might use 6-8 granules in ASCII.
Protecting files from spikes and surges
must be figured in total costs. With a BBS it
is best to protect the telephone lines in addi­
tion to the system power lines.
There are many odds and ends that also
add up. Paper and printer ribbons are two of
the little things that you 'II need more of once
your BBS goes on line. It's clear that there
are many factors to consider and many
places to spend money. but you are the con­
trolling factor. What you want from the BBS
and how it is run are up to you . •
Address correspondence to Bobby Ballard,
1 207 Eighth Ave .. 4 R. Brooklyn. NY 1 1 2 1 5.
Yo u can also reach h i m on l i n e t h rough
CompuServe (# 72746.2373 or # 73 1 35.255).
The Source (#BCTl 73). and MCI Mail (# 1 7234 76). Bobby's BBS number is 7 1 8499-1 633.
Manufacturers
CompuServe
P.O. Box 202 1 2
Columbus, O H 43220
800-848-8990
Ceratec Inc.
P.O. Box 663
Elgin, TX 7862 1
5 1 2-285-2620
Richard Duncan
2504 North Gathings Drive
W. Memphis. AR 72301 ·
BBS Number: 501 -735-56 1 4
EDC Inc.
P.O. Box 427 1 8
Los Angeles, CA 90042
2 1 3-254-6809
BBS Number: 2 1 3-258-0640
PBJ Inc.
P.O. Box 8 1 3
North Bergen. N J 07047
20 1 -330- 1 898
Star Kits Inc.
P.O. Box 209
Mt. Kisco, NY 1 0549
9 1 4-24 1 -0287
Tandy
1 400 One Tandy Center
Fort Worth, TX 76 1 02
Readers Forum
•
LOCAL • IN
•
LOS
•
ANGELES
�
Circle Reader Service card
#135
•
•or A l l \·our Projt•el s
Wl' Han• Thl' •'u l l Spt•el rum
Or Sortwa rt• & H a rdwart•
A l wa�· s At Good Priel's :
INKEY$ Improvement
The article, "Those Amazing POKEs"
March 1 985, p . 28) was very in­
(Har CoCo,
teresting, but I needed something more . My
one-liner combines the best qualities of IN­
KEY$ and EXEC44539:
0 X$ = " " : POKE VARPTR(X$) + 2,0:POKE
VARPTR(X$) + 3,&H87
After a program executes this line, X$ will
contain the value of the last key pressed after
any use of INKEY$ or EXEC44539.
Because this line changes the string
pointer for X$ to the last-key-pressed mem­
ory location in the Basic communications
area, you should not use X$ for another value
or you might write over important data. If
you are already using X$ as a variable, sub­
stitute another single-character variable,
making sure that both POKEs use the correct
VARPTRs.
Geoffery H. Frizzell
Edmonton, Alberta
Pseudo PRINT USING
If you 're using a n MC- 1 0 or a CoCo without
Extended Color Basic (or even an Apple II or
Commodore), you can't take advantage of
Basie's PRINT USING statement . This com­
mand Is particularly useful when you are
working with numbers or money amounts
because it lets you round off numbers or dis­
play figures in columns with the decimal
points aligned. For example, the statement,
PRINT USING " # # # # . # # " ; 7634 . 728, will
print the number as 7634 . 73 .
While you can't change your computer's
command vocabulary. you can use my short
utility as a substitute for PRINT USING .
Lines 10-240 and 360 are included for dem­
onstration purposes; they show how the
numbers can be printed . Lines 2 10-350 con­
tain the pseudo PRINT USING subroutine .
Before the main program branches to it, you
need to assign the number of places before
the decimal (NB). the number of places after
the decimal (NA), and the number that you
want converted (N). Upon returning control
to the main program. you must include a line
that prints N$ . The number will be printed
as if you had used PRINT USING.
10 C L S : ' AN N R E E VES
2 0 P R I NT @ 8 , " P ROGRAM TO S I M U L A T E
" : P R I NT " P R I NT US I NG " C H R $ ( 3 4 ) " # #
# # # . U " CHR$ ( 3 4 ) : PRINT"
( I . E . WR
I T E N U MB E RS I N COLUMNS A N D ROUND
E D A S P EC I F I C NUMBER
O F P L AC E S
) .
30 I N P UT " < E NTE R > FOR D E MON ST RAT I
ON " ; A $
40 C L S : P R I N T " T H E N U M B E R S - AS T H
EY O R I G I N A L L Y W E R E
5 0 F O R X = l T O 1 0 : R E A D Y : P R I NT Y :
N E XT X : R E STORE
6 0 I N P UT " < E N T E R > " ; A $
70 I I I I
80 CLS : P R I NT " I N A COLUMN - R O U N D
E D TO N E A R EST I NT E G E R ( CO L U M N WI
DTH 7 )
9 0 P R I NT " L I K E ? R I NT U S I NG " C H R $ ( 3
4 ) " # # # # # # # " CHR$ ( 34 ) " , N "
100 NA = 0 : N B = 7 ' S ET 7 P L A C E S B E FO
RE D EC I MA L , 0 P L A C E S A F T E R D E C I M
AL
1 1 0 F O R X = l TO 1 0 : R E A D Y : N = Y : GOS
U B 2 20
1 2 0 P R I NT N $ : N E XT X : R E STORE
1 3 0 I N P UT " < EN T E R > " ; A $
I I I
140 I
1 5 0 C L S : PR I NT " I N A COLUMN - ROUN
DED TO N E A R E ST CENT ( H U N D R E DT H )
B E FO R E T H E D E C I MAL
--6 PLACES
A F T E R T H E D E C I MAL
, 2 PLACES
160 P R I NT " L I K E P R I NT US I NG " C H R $ (
3 4 ) " # # # # # i . # # " CH R$ ( 3 4 ) " , N
1 7 0 N A = 2 : NB = 6 ' S ET 6 PLAC E S B E FO
RE D E C I MA L , 2 P L A C E S A F T E R D E C I M
AL
1 8 0 FOR X = l T O 1 0 : R E A D Y : N = Y : GOS
U B 2 20
1 9 0 P R I NT N $ : N E XT X
200 END
2 1 0 ' ' ' T H I S S U B ROUT I N E U S E S V A R I
A B L E S N $ , N , NA , N B , NC , N L , NT
2 2 0 I F N > - . 0 1 AND N < . 0 1 THEN N=0
230 IF NA>0 THEN NT=NA+NB + l ELSE
NT=NB
2 4 0 I F N > 9 9 9 9 9 9 9 9 9 OR N < - 9 9 9 9 9 9 9
9 9 T H E N P R I NT " O UT O F RANG E " ; : N $
I
=STR$ ( N ) : RETURN
' J UST I N C A S E
THE NUMB E R I S TOO B I G
2 5 0 N = ( I NT ( l 0 � N A * N + . 5 ) ) / 1 0 � N A
2 6 0 N$ =STR$ ( N )
2 7 0 FOR N L = l TO L E N ( N $ )
2 8 0 I F M I D $ ( N $ , N L , l ) = " . " T H E N GO
TO 3 4 0
2 9 0 N E XT N L
300 I F N A > 0 T H E N N $ = N $ + " . " : F OR NC
=l TO NA : N $ = N $ + C H R $ ( 4 8 ) : N E X T NC
3 1 0 I F L E N ( N $ ) > NT + l T H E N N T = L E N (
N $ ) ' J UST I N C A S E T H E N U M B E R WAS
TOO LONG
3 2 0 FOR NC = l TO NT : N $ = C H R $ ( 3 2 ) + N
$ : N E X T NC
3 3 0 N $ = R I G H T $ ( N $ , NT ) : R E T U R N
3 4 0 I F N A > 0 T H E N F O R N C = l TO NA :
N $ = N $ + C H R $ ( 4 8 ) : N E X T NC
3 5 0 N $ = L E FT $ ( N $ , N L + N A ) : GOT0 3 1 0
3 6 0 DATA 1 2 9 8 . 7 9 9 , 2 3 4 . 3 2 1 8 , 5 4 9 9 9
9 , 3 4 . 2 , 6 54 7 . 4 3 2 1 , 8 . 08 9 3 , 6 54 . 98 7 ,
. 1 7 6 5 , 5 4 . 6 5 4 , 3 4 5 4 2 1� 5 5 3
Anna M. Reeves
Espanola, WA
Hayes 300 Smart Modem -
$175.00
$149.00
$319.95
6809 CPU
$ 17.95
$ 22.95
$ 22.95
Amdek 300 A Monitor
DR 0 & 1 System
Chip
RSDOS 1 . 1 Disk
Extended Basic 1 . 1
Gold Rom "Y" Cable
$ 22.95
We Stock Amdek Amdisks !
@ - 10%
@ - 10%
@ - 10%
@ - 10%
VIP Integrated Library
DynaCalc ! RSDOS)
Data Pack II (The Best Term. J
Business Software
E.D.C. carries the most
complete line of software
and hardware in the market.
Green Muu11tai11 Micru!!
Computerware (All)
Cu•tum Software (Nu
Due.)
Key Cu/or Softu•are (Ke.v 264KJ
Michtron
Tum Mix (All)
Moreton Bay (More)
Prickly Pear (Culorkit!)
Platinum Suftll'are (!)
Soft/au· ( YIP)
Spectral Associate"
Speech Systems (All)
Sugar Soft ware
&
(Super)
CuCoPro {Y2)
Computer Systems Center
Cer-Comp
Metric-
HJL
Interfaces
Eleplta111
1eac
Ha.ve.<
Star
Monit.ur•
Speech
Controllers
Music
ALWAYS MORE AND BETTER
* 232 Re mole P l u s *
824 . 95 + 2 . 50
s "' ff
See
Rainbow review
Sept.ember issue.
COLOR & MICRO COMPUTERS
Software • Hardware • Support
Ed ucational • Small Business • Games
VOICt: (213) 254-6809 10 Ul.-10 P.M.
BBS (213) 258-0640 24 HRS.
300 and 1200 Baud
Extended Hours+Call before coming.
6 1 30 YORK BOULEVARD
POST OFFICE BOX 42718
LOS ANGELES, CA. 90042
November 1 985
HOT Coco
73
Assembly IOI
v
by Victor and James Perotti
--......
�--
The Nondestructive Cu rsor
L
rodes lo more advanced Assembly-language
0007 to ORG $ 1 200. delete line 0008 . and
before you fire up the editor and begin writ­
0009 . Change line 0058 to DONE SWI .
move the START instruct ion down to line
classes. but you should get the logic down
To follow this column. you will need an editor/
assembler. The authors use Micro Work's Ma­
cro-BOC disk assembler. and changes are given
for Radio Shack's EDTASM + . Other assem­
blers will also work. but the programs may re­
q u i re some add i t ional modifica t i o n . The
documentation that comes with your software
should provide the commands you need.
ing code.
The SAVE routine i s new. After X is incre­
The following steps will give you a nondes­
mented. the new address is stored in the cur­
tructive cursor:
sor pointer and is aJso used to save the char­
arrow key or a regular ASCII character?
the program also stores B in the C H A R loca­
• Go lo POLCAT. Is the next key pressed an
acter at X. Although B holds the ASCII value.
• If it is an ASCII character. print it. update
tion in R A M . The program then loops back to
register X. save the character at the new X .
GO to scan the keyboard again. If POLCAT
• If the key pressed is an arrow key. deter­
acter is written to X and the content of C H A R
picks up another ASCII character. the char­
and update the cursor.
i s ignored.
mine where the cursor will go (use the up­
ast month's program. Destructive Cur­
dated a d d ress in X ) : c h e c k to see i f t h e
sor. let you use the arrow keys to move
t h e cursor around t h e screen . w i p i n g out
address i s s t i l l o n t h e screen ( i . e . . greater
cursor locat ion. ActuaJly. the cursor is printed
character at the location to which the cursor
Restoring the Old Character
than $400 and less t ha n $5FF): save the
w hatever letters were printed under the new
is moving: restore the saved character that
on the screen . POLCAT writes a blank [$60) at
was at the cursor ' s original location: and
the cursor address: hence. when the cursor
old X address (before it is altered in the ar­
move the cursor to the new location.
moves again. a blank remains where the cur­
row-key subroutine) to restore the character
• Return to POLCAT.
There are lots of ways to set up a tempo­
sor had been. To manipulate text. you also
need the option of a nondestructive cursor­
that the c ursor displaced. The RSTORE sub­
routine moves the contents of C H A R into A:
rary storage location for characters you want
one that you can move without destroying ex­
If POLCAT's keyboard scan finds that an
arrow key was pressed. it is best to use the
A is t hen stored or printed at X. Note that
isting characters.
to save. Both Macro-SOC and EDTASM +
each of the arrow-key su brou t i nes begins
cannot prevent the computer from writing
ating storage location in RAM: The acronym
RSTO R E . Note also t hat J S R subrouti nes
PO LCAT is used i n a progra m . You don ' t
of bytes of memory to be reserved for this use
have a pseudo-operating instruction for cre­
The cursor is inherently destructive: you
w i t h a JSR ( J u m p t o the S u b ro u t i n e )
is RMB. Reserve Memory Byte. The number
the cursor ($60) at the address in $88 when
must end with an RTS ( Return to Subrou­
t ine). which concludes the subroutine and re­
follows RMB. For example. CHAR RMB I sets
want t o completely abandon POLCAT. but
turns control to the calling routine. Now the
up a I -byte storage location for the character.
X address and CURSOR can be updated to
this. you must restore the character to its
memory location to C H A R .
routine called.
you must also store the address for the char­
sor. displays the longer GO routine. which
But you're not done yet. Before you can
include a branch back to GO. which will print
• Jump to the POLCAT subroutine to <;can
i n t h e new loca tion needs to be stored in
you do want a way to save the character that
The assem bler au tomatically assigns t h e
the cursor would otherwise destroy. To do
T h e Program Listing. Nondestructive Cur­
original position after the cursor moves. so
now has the fol lowing four rou tines:
acter saved.
However. you don't always want to restore
the original character. If POLCAT is called to
CHAR. You can use the arrow keys to run the
• Branch to the subroutines if one of the ar­
check the cursor location to see if X is be-
• Display t he character and update the cursor.
TOP or OFFBOT. the program will place the
key was pressed .
of the old . On the other hand. if you're just
row keys was pressed .
vou'll want the original character restored.
• Save the character at the next position.
tion. the new character should take the place
moving the cursor through a screen address.
hard part about writing more complex pro­
Break the problem down into single parts:
then wri t e rode to perform each part. We'll
leave the lecture on nowcharting and pseudo-
Program Listing. Nondestructive Cursor
• •
0002
74
DEDO
0400
HOT Coco
DEPIN�
CHAR
V T DRAM
SYMBnr.s
RMB l
EOU
$0400
November 1 985
CURSOR
POR
ROM
CALr.s
TO HOJ.O 01.0 CH A RACTER
'J'OP O F SCfH:t-:N A O O R
BYTE
$400 and $5FF. I f the address is OFF- ·
cu rsor at t h e first or last pos i t ion on the
screen . However. as before. you must store
the character occupying that first or last spot
for later use. But that's easy: Use the SAVE
subroutine again. and then BRA GO. •
1 6K
Color Basic
Editor/Assembler
do and how it should accomplish that task.
l
t ween
System Requirements
grams is figuring out what the program must
000
cu rsor off the screen. so the program must
I f you ' re using EDTASM + . change line
The whole thing sounds complicated. The
DESTRUCTIVE
the cursor at the new position. the character
the keyboard . and jump to DONE if the break
write a new character at the cursor's loca­
NON
renect the arrow key that the original sub­
Write to James and Victor Perotti at 1 63-Pine
Grove Heights. Athens. OH 4570 1 .
0003
A!Bl
POLCAT
EQU
0004
A J OA
P R I NT
EQU SA30A
0005
0088
CURSOR E Q U S 0 8 8
SA!Bl
0006
A928
CLS
EQU
0007
A027
BASIC
E Q U SA0 2 7
0008
OEOl
START
NAM
0009
OEO l
BDA928
0010
00 l l
OE04
0E07
8E0400
9F88
SA928
LDX
P R I NT
FROM
ADDR
TO S C R E E N
P O R CURSOR
SUBROUT I N E
ROM
KEYBOARD
CHARACTER
ADDRESS
TO
POR
CLEAR
SCREEN
BAS I C
NONCUR
J S R CJ�S
TOP
GET CHAR
CLEAR
SCREEN
IVTDRAM
S T X CURSOR
P U T C U R S O R AT T O P O F
SCREEN
0012
0013
OE09
OEOC
BOAlBl
8103
0014
OEOE
2764
0015
0016
OElO
OE12
OE14
OE16
OElB
OElA
OElC
OElE
8109
2727
8108
271C
BlOA
272E
8 1 5E
2722
GO
JSR POLCAT
CMPA 1 0 3
C H E C K KEYBOARD
J'. S I T T H E BREAK
BEQ
RETURN TO B A S I C
OONE
0038
KEY?
* * * * * * I S T H E K E Y AN ARROW K E Y ?
0017
0018
0019
0020
0021
0022
CMPA
109
B E Q RIGHT
CMPA 1 0 8
BEQ LEFT
CMPA 1 1 0
B E Q DOWN
CMPA 1 9 4
BEQ UP
R I G H T ARROW?
IS
IT
IS
I T LEFT ARROW?
IS
I T DOWN ARROW?
0023
OE20
OE23
OE25
BOA30A
3001
9F88
E684
0026
OE27
0027
0028
0E29 F70EOO
0 E 2 C 2 0 0B
C H ROUT JSR P R I NT
LEAX l , X
STX CURSOR
* * NOW SAVE C H R
.
SAVE
LOB • x
0E42
OE45
0E48
BOOE2E
308BEO
2008
0 0 4 1 0 E 4 A BOOE2E
0042 0E40 308820
0043 OE50 2000
IN
D I SP C H A R ON SCREEN
INCREMENT CURSOR
NEW LOCATION
GET OLD
CHAR
SAVE OLD CHARACTER
S T B CHAR
BRA GO
GET
ANOTHER
CHARACTER
* * *. * * * ** * * * * • • * *. *. * * *. * * * • • * .
* * SUBROUTINE FOR :
RES TOR I NC OLD CHARACTER
. . . ..
RSTORE
0031
O E 2 E B60EOO
O E 3 1 A784
OE33 39
0032
OE34
BOOE2E
OE37 301F
OE39 2017
LEFT
O E 3 B BOO E 2 E
0E3E 3001
OE40 2010
R I G HT
* * * * * SU B R O U T I N E S
0033
0034
0035
0036
0037
FOR EACH ARROW
J S R RSTORE
LEAX - 1 , X
BRA C H E C K
JSR
Circle Reader Service card #196
MOVE
MOVE OOWN A L I N E
OE52 E684
OE54 F70EOO
O E 5 7 BC0 4 0 0
O E 5A 2 5 0 9
0048
0049
0050
0051
0 E 5C
0E5F
OE61
OE63
0052
0053
0054
OE65 BE0400
OE68 9FBB
0E6A 20BB
OFFTOP LOX
0055
0056
0057
OE6C 8 E 0 5FF
0E6F 9F88
OE71 1 6 FFB3
O F F BOT
CHECK
LOB
OE74
BC05FF
240B
9FBB
20A4
0059
0E77
SCREEN?
R I G HT ONE
SPACE
CLS
GO
7 EA027
•
x
LINE
GET OLD CHARACTER
S T B CHAR
C M P X I V I ORAM
B L O OFFTOP
CHPX I S 5 F F
B H S OFFBOT
S T X CURSOR
SAVE I T FOR NOW
LOWER THAN TOP?
IF O F F TOP
H I G H E R T H A N BOTTOM?
IF O F F BOTTOM
IF ON SCREEN
B R A GO
DONE
PUT CURSOR
1$400
S T X CURSOR
B R A SAVE
AT TOP LEFT CORNER
STORE C H R AT $ 4 0 0
LOX I S 5 F F
S T X CURSOR
LBRA SAVE
P U T CURSOR
AT BOTTOM R I G H T
********
0058
BAS I C
RSTORE
LEAX l , X
B R A CHECK
JSR RSTORE
LEAX 3 2 , X
B R A CHECK
0044
0045
0046
0047
NO ERRORS
P R I NT OLD CHAR
BACKUP CURSOR
S T I LL ON
MOVE U P A
........
GET OLD CHR
D I S P I T AT O L D SPOT
RETURN TO SUBROUT I N E CALL
LOA CHAR
STA • x
RTS
DOWN
J S R RSTORE
LEAX -32 , X
BRA CHECK
CURSOR ON T H E SCREEN
V I ORAM = $ 0 4 0 0 TO $ 0 6 0 0
* * . * * ** ** * * *** * * ** * * * * ** * ** * *
... .. . . . .. . . ....... . ...........
0029
0030
UP
* * * * * . * * ** * * * * * * * * * * * * * * * * . * *
SUBROUTINES TO K E E P
I S I T U P ARROW?
* * * * * M U S T B E REGULAR CHARACTER
* * P R I NT I T , SAVE OLO CHARACTER
0024
0025
0039
0040
STORE
CHR
AT $ 5 F F
BREAK K E Y P R E S S E O
CONCLUDE PROGRAM
RETURN TO BAS I C
JMP BAS I C
E N D START
A L L DONE ,
GOTO B A S I C
FOUND
A027
A92B
OE09
POLC AT Al Bl
OE27
SAVE
V I DRAM 0 4 0 0
CHAR
OEOO
CURSOR 0 0 8 8
LEFT
OE34
OFFBOT O E 6 C
OFFTOP
0E65
P R I NT
START
RIGHT
TOP
RSTORE
UP
OE2E
OE42
A30A
OEOl
CHECK
DONE
OE52
OE74
0E3B
OE04
CHROUT 0 E 2 0
0E4A
DOWN
END
ASSEM BLY 101 STU DENTS
MAKE TH E HONOR ROLL
WITH MAC· R 0-80C
Learning 6809 Assembly Language i s challenging and f u n , but
can be frustrating without expert gu idance and the right tool>.
James and Victor Perotti provide expert guidance.
The Micro Works provides the right tools.
Macro-BOC will help you get the most out of Assembly 1 01 and
your Coco. It consists of a d isk-based screen oriented editor,
macro assembler and debug monitor program-all the essentials
for writing and testing your assembly language programs.
MACROBO-C
EDTASM +
" We will be using Micro Work 's Macro-BOC disk assembler; we
prefer it to all the Color Computer assemblers we have used. "
Hot Coco-May 1985
Assembly 101 : by James and Victor Perotti
The� O@�
W@�
Tell them "I
saw
The Teacher's Pet
it in HOT Coco."
NEW! The powerful Structured Macros package is now included
with Macro-BOC. It allows I F/ELSE, REPEAT/UNTIL, WHILE/
E N DWHILE and other control structures to be used directly in an
assembly language program. A $40.00 value . . . free'
For cassette-based systems. use SDSBOC. It has many of the
features of Macro-BOC but comes in Rompac k . leaving all of your
RAM free for your programs.
MACRO-BOC DISK $99.95
SDSBOC ROMPACK $B9.95
A
P O BOX 1 1 1 0
Del Mar. CA
92014
(619) 942-2400
November 1 985
HOT Coco
75
The Learning Page
by Nancy Kipperman
T
----
"
Coco Simu lations
o prepare for this colum n . I explored
the waters of Odell Lake in Orego n :
traversed t h e woods .of t h e northern United
Competition exists between the compa­
nies: each begins with $5.000 in cash and an
inventory of 100 bicycles. The simulation
States: sold apples. plants. lemonade. and bi­
continues u n t i l one company has earned
gained a new understanding of President An­
dents make decisions each quarter about
cycles: wrestled with the U.S. Congress: and
drew Jackson. All this-and I never left the
computer!
$32.000 in assets or gone ban krupt . Stu­
prod uction level. advertising budge t . and
by random events. such as fire. transporta­
such as the Indian removal from the South or
(grades 2-9) prepared by M i nnesota Educa­
tion a n d prod u c t ion . strikes. wage-price
freezes. and burglary.
poration a n d Co ngress a n d Pre s i d e n t i a l
Decisions of Andrew Jackson (grades 9- 1 2)
from B5 Software (also available through Radio
Shack's Express order Software).
Outdoor Biology
This simulation contains two programs to
These programs require a 32K Color Com­
be used as part of a science c u r r i c u l u m
disk drive. (Congress is also available on cas­
ing conditions for five kinds of fish in a North
puter with Disk Extended Color Basic and a
sette.) You can use each simulation on an in­
dividual basis. with a team of students. or as
a class project.
(grades 2-9) . Odell Lake simulates t h e feed­
Market Place is designed for use within a
up activities.
of a specific kind of fish . The fish meets other
the student's decisions in each situation.
Sell Plants adds the concept of expenses
student sells 1 .000 tomato plants that the
class has grown at a fixed expense of $30.
Opportunities to purchase advertising at 25
cents a sign help the student to increase ex­
posure and sales. Results demonstrate the
relationship between selling price. advertis­
In Conclusion
A l l t h ese si m u lations have value in t h e
time available to you. Simulations such as
mal in the woods and makes survival deci­
competition. There is much to be learned by
animal must eat enough lo maintain its en­
concepts; using simulations will no doubt
but the student assumes the role of an ani­
sions as that animal. In order to survive. the
unpredictable outcomes. Student learns are
and advertising to the selling situation. The
stated.
Odell Woods provides similar experiences.
determine the best price at which to sell ap­
ples. Each time the program is run. a new
ulation. your progress is rated with points
classroom . Where they fit into your curricu­
ergy level and successfully live through a
best price is randomly set.
and historical effects of Jackson's decision
the student gains insight into food-chain rela­
Sell Apples is the simplest simulation. The
student becomes the apple seller and has to
before a decision must be made.
After you make your decision. i t is com­
kinds of fish and plant life in its natural envi­
tionships and ecological systems.
classroom. including preparation and follow­
from others-friends or cabinet m e m bers.
These options can be used more than once
and your effectiveness as Andrew Jackson
do several reproducible student handouts
section of text suggests possible uses in the
overall effect of the problem . or ask advice
In Odell Lake. the student assumes the role
Through experimentation (and often death).
clearly stated for the teacher's benefit. and a
you choose to reflect u pon the past. view the
are explained. Finally. at the end of the sim­
t h a t i n crease in d i ffic u l t y . An e xc e l l e n t
and question sheets. Learning objectives are
newspaper article displayed on the screen to
obtain background information. In addition.
ests. Reproducible materials and course ob­
ronment. The survival of the fish depends on
course manual accompanies thi s software a s
the Eaton Scandal. To achieve this. you read a
pared to Jackson's. Then the final outcome
social-studies curriculum and teaches eco­
nomic concepts. It contains four simulations
decisions he did in each of several situations.
American lake: Odell Woods simulates the
food chain that exists in North America's for­
jectives are included in the package.
Market Place
Also a social-studies simulation. this pro­
gram allows you to become President Andrew
Jackson . Your challenge is to make the same
other company's decisions and, eventually.
tional Computing Consortium for Tandy Cor­
Andrew Jackson
selling price. Outcomes are affected by the
I gained these experiences using simulations
for the CoCo: Market Place and Outdoor Biology
student teams o r pairs would work well with
this program.
lum depends on you and the equipment and
these make it easy to set up a class project or
t h e practical application of knowledge or
add an element of interest and suspense to
maximum of nine random encounters with
the learning process. •
suggested as the best use of this simulation
Nancy Kipperman is HOT CoCo 's Education
Editor and an English teacher at Conant High
School in Jaffrey. NH. Write her c!o HOT CoCo.
80 Pine St.. Peterborough. NH 03458.
because decisions can be d iscussed a n d
agreed upon.
Congress
Congress is a social-studies simulation in
w h i c h you become t h e presi d e n t of t h e
United States. You build your program o f five
bills and then attempt to pass them through
Manufacturers and Products
B5 Software
1024 Bainbridge Place
Columbus. OH 43228
ing. and profit .
Congress within a two-year period. Congress
onade-stand business. The student decides
bers of your chosen party affiliation. All bills
(disk)
must decide where to place your 20 lobbyists
son: $3 1 .95
Sell Lemonade lets t h e student set up a lem­
the quantity of lemonade to be produced. the
price. and the number of advertising signs to
purchase. Random events. such as changes
in weather. street repair. and a parent's deci­
sion to stop providing free sugar. affect sales
and profit .
Sell Bicycles i s the most complicated of t h e
might or might not have a majority of mem­
begin in the House of Representatives: you
to effect the greatest good for your platform.
Flowcharts show the steps of a bill going
through Congress. If the bill passes. you de­
cide whether to veto the bill. sign it into law.
or ignore it and let it become law. The num­
Market Place simulations. Students manage
ber of amendments added to each bill during
are affected by their business decisions.
tion is different each time it is played. Again .
two bicycle companies and learn how sales
76
HOT Coco
November 1 985
passage affects your point score: the simula­
6 14-276-2752
• Congress: $29.95 (cassette) or $3 1 .95
• Presidential Decisions of Andrew Jack­
Minnesota Educational Computing
Consortium
3490 Lexington Avenue North
St. Paul, MN 55 1 1 2
• Market Place: $34.95
• Outdoor Biology: $34.95
'
Product News
by J. Scot Finnie
Polygon ' s Flight Check, D . P. Johnson ' s CCR D , Four
Star's PenPal , OS9 Cal ligrapher, New Mark Data
Games , the Latest from Dorsett, and More .
Information related in the Prod­
uct News section is supplied by
manufacturers. HOT CoCo has
not tested or reviewed the prod­
ucts discussed here and cannot
guarantee manufacturers ' claims.
S
pecialized or vertical appli­
cations are a trend this
month. More and more software
and hardware companies are re­
alizing that computer innova­
tions that perform unusual or
unique business, personal-pro­
ductivity. or job-specific func­
tions can quickly find their niche
in the marketplace. Tailoring
software to the needs of a small
group of people (who will benefit
substantially by an application
designed to meet their needs
only) makes sense because it of­
fers the potential for the program
to be efficient and easy to use.
Such products can also provide
"expert" information or a cus­
tomized work environment to
their audiences.
Specialized or Unusual
Polygon Industries is one of
several companies that offers job­
specific programs. Flight Check
is an airplane-operation program
that computes the best altitude
and power settings for a given
flight. It also computes weight,
balance. and reserve fuel at des­
tination . Barrett Leibe of Polygon
noted that the program was
"field" tested for 1 2 years in his
airplane dealership business.
Flight Check sells for $49. Poly­
gon also offers F & I Master, a
program designed to allow auto­
mobile dealers to work monthly
payment terms on screen and
print out 13 kinds of sales forms.
It lets salesmen quickly discover
78
HOT Coco
the best financing for each cus­
tom er. F & I Master sells for
$2,000 but comes with extensive
on-sight support. including cus­
tomization for each dealer. These
programs require 64K and at
least one disk drive.
ing and reacting to a game on
your TV or monitor. The com­
pany markets the device as an
exercise alternative and has
tested the product for medical
safety. The Sports plugs into one
of the CoCo's joystick ports with­
out modification. It sells for $ 1 50.
new generation of 'expert' pro­
grams." Medic appears to offer
lay medical advice on common
physical ailments-not what you
might term expertise. It requires
16K, Extended Color Basic, and
a disk drive. It sells for $20.
Advances
West Bay Company has re­
leased a new program called
Medic, which it calls "one of the
If you think specialized soft­
ware is the latest rage, you hav­
en't seen some of the unusual
stuff being dreamed up out in
CoCo land. Before Sports. the
only exercises your computer of­
fered were finger calisthenics or
getting up to stretch your legs.
Compu thon could be on the
verge of a new breakthrough in
computer exercise. The Compu­
thon Sports is a giant coil-spring­
loaded joystick with a foot-oper­
ated frre button (see photo). You
stand on it and move its handle­
bar with your body while watch-
D . P. J o h n s o n has a b l o c k
buster of a new -product a n ­
nouncement this month. The
company has released a 5 1 2K
RAM-disk cartridge called CCRD
(for Color Computer RAM disk).
The CCRD plugs into a multiple
ROM-pack interface and runs
with OS-9. (The company also
provides OS-9 drivers for cus­
tomers who do not own OS-9.)
The CCRD cartridge is a half-me­
gabyte RAM disk that can be
used by any program just like a
disk drive. RAM disks can access
software several times faster
than mechanical disk drives be­
cause data is stored in R A M .
RAM disks are especially useful
for speeding up the compiling of
C or Pascal programs. For larger
memory, two CCRDs can be con­
figured in one system to provide
a megabyte of storage. T h e
CCRD requires a multiple ROM­
pack interface and OS-9 or OS-9
drivers you purchase separately
from D.P. Johnson for $20. The
cartridge sells for $298.
Four Star Software, makers of
CoCo Paint and other fine pro­
Sport.sfrom Computhon is a giant
exercise joystick. The game pic­
tured in the background is Skiing
from Tandy Corp.
November 1 985
grams, is being secretive about
its new integrated business pack­
age dubbed PenPal. The product
grew out of an idea for a flexible,
creative database system, which
Product News reported on in
May. PenPal is sure to include a
word processor. spreadsheet,
and database. The company in­
tends to release the new product
before the end of the year. We'll
just have to wait and see .
Soistmann Enterprises can't
resist saying "help has arrived."
The company offers a new DOS
called S.O.S. (for small operating
system). S.O.S. requires a 64K
Color Computer and is designed
for machine-language programs.
It does not support Basic. The
DOS was designed to provide a
larger work space and several im­
provements for program devel­
opers. Its format, backup, and
copy utilities are designed to
work with 35-, 40-. or 80-track
single- or double-sided d i s k
drives. The new DO S offers a long
list of intriguing options and fea­
tures. This might be just what
you are looking for. Contact the
company for more information.
S.0.S. sells for $49.95.
News Bits
PBJ of Word-Pak fame has a
new address and phone number:
P.O. Box 8 1 3 , 5 7 2 5 Kennedy
Blvd .. N. Bergen, NJ 07047. 20 1 -
861-0126. The company is work­
ing on a new version of the OS-9
driver for Word-Pak that will en­
hance the product's use with
other products, such as Com­
puter Systems Center's Dyna·
Cale for OS-9 being marketed by
Tandy. PBJ is also quickly be·
coming the de facto standar\i in
multifunction add-on boards for
t h e Ta n d y 1 000. N e w 1 000
boards in the works from PBJ in·
elude a 2 -megabyte board. a
high-resolution board, and the
"Super Charger," which con·
tains the 80126 chip (the same
one used in the Tandy 2000) .
The Coco Calligrapher from
Sugar Software has been re·
leased in a new version for OS-9
called OS9 Calligrapher. The
program is a special-purpose tex1
processor that reads an input file
containing both text and format
ting directions. Text is output to
a dot-matrix printer or redirected
to a file in one of many available
print styles. OS9 Calligrapher
supports Epson. Gemini. Tandy.
Okidata. Leading Edge Banana.
and C. Itoh Prowriter dot-matrix
printers and their compatibles. It
sells for $39.95 plus $ 1 . 50 for
shipping. Sugar Software headed
south a few months back. They
now have a new phone number to
go along with their new Holly­
wood. FL address: 305-98 1 - 1 24 1 .
Games and Education
Shock Trooper and The Vor­
tex Factor are two new games
from Mark Data Products. Shock
Trooper is an arcade game with a
theme resembling the movie V.
in which scheming reptilian crea­
tures descend to earth and plot to
take over. The Vortex Factor is
the sixth in Mark Data's series of
graphics adventures and is about
time travel. Both programs re­
quire 32K and come on cassette
for $24 . 95 or disk for $27 .95 plus
$2 for shipping.
Dorsett Educational Systems is
working on disk versions of some
of its popular educational series.
Its latest conversion is Disk Al­
gebra. The company is also re­
l e a s i n g t w o n e w series:
Principles o f Electricity and
Lower Math. The latter is de­
signed for kindergarten through
fourth-grade learners. Dorsett's
educational series contain 16 les­
sons. require l 6K. and sell for
Fighter Pi lot
An ori g i n a l arcade game! Wave after wave of
atta c k i ng a i rcraft attempt to shoot you down
as you ma neuver your fighter i nto the wild b l ue
yonder. bla st i ng enemy fig hters. bombers a nd
paratroopers
out
of
the
sky.
Joystick
or
keyboard operation. " Pa u se g a me" feature.
Disk
version
saves
high
32K. 1 00%
scores.
Mac h i ne La nguage.
Tape $24.95
$59.95. •
Disk $29_95
Saguaro
Software!
Factory Closeout!
Amdek Dual 3" Disk Drive
Eagle
</1<.
l l inor lor1aer
iovsl·< � s
Marooned!
-
Lasts'
Includes ? D1sket1es & Coote
Monitors, Etc.
Amdek Color 300
Composite. 300x260 r<es
Amdek Color 500
Composite/ RGB
Video Driver
1239
>/V1Tn
t
.rooh1cs {1ra1.-.,1''1Ll
Alpha -40 +
foirnots
.10 ·
J 'it -y ror1
lrot l.. s
Testmaker
P51
Other Favorites!
3/K
32K
Sailor Mon 6LIK
Trekboer 32K
Mustang
lo Preserve Quond1c
l.'1- l )tsJ. ( int\
chip.
$ 1 .00 Sh ipping!
L IZPAC $101
We' l l Ship Your Order
'1 ' \
$23.75
$23.75
$23.75
$ 1 9.75
$29. 75
$33.75
Special!
Fa mily
For $ 1 .00!
Software Only - Hordwo1e Shipped Al
S2 00 Progrom
( So OO Mo' l
\
Arl(1lvs.s f'isl-' l )111\ $ 1 45.00
Super Screen Machine
l\lk1 S.i LtJ I 1,.lt I 't"�
To Anywhere In The USA
,
J)K
Add $5. DO For Disk
Ll1YJssemblc1
•
$1 9.95
$24.95*
Maycode
0�00
$ 1 9.95
) P., ['151-
$29.95
Works on oil models with plug-in
$25 95
Reverse Video Switch 1 1 1 .95
with monitor purchase -
i
f'l.lc•ft' � .'i.. l 11s�
Worlds of Flight
Cost Outsode USA
$24.95*
Dt>O f'I 1,11-.
Sketchpad
1339
127.95
f "">C'l(>r
t.
Mork Dato • Works on all models
VDG
$29.95
' 1 f · ./
Blackjack Dealer
s����v $ 1 99 s����v
Losts'
f '•5'-
·. �
l\clventurP
$24.95*
f)equ1rcd
A genealogical database
Marntrnns
data on 25� people 1n tu sf 8 ge nera
hons of family tree Prints 3 charts [ osv
to use 1 37K ht
Tape $ 1 5.75
November 1 985
Disk $ 1 8 . 75
HOT Co co
79
Circle Reader Service card #138
The Corner Office
by Jeff DeTray, Publisher
The Piracy Issue
BASK ETBALL
STATISTICS
b y Jeff Stevens
Coaches, let Coco do the paperwork!
Keeps each individual game, plus
league, non-league and all game to­
tals for a maximum of 1 6 players in up
to 29 games. Stats can be kept in as
many as 1 7 different categories assists, steals, field goals, and free
t h row stats ( m a d e - at t e m pted­
percentages), offensive and defen­
sive rebou nds, turnovers, personal
fouls, charg es, playing time, quarters
played an d points. Totals for the op­
position team and for your individual
players are printable. Your season
record and scores-to-date are avail­
able at any time. Basketball Statis­
tics prints a year-end summary of
each individual player on a game-by­
game basis. Team stats for your team
and the opponents' totals for the year
are included. Menu driven - Easy to
run - Excellent for most any basket­
ball team.
Tandy Color Computer
requires Extended Basic.
32K Disk $29.95
-
Tand y Model lll/IV/4P
32K Disk $29.95
*****************************
54 �
<f?
LONG DIVISION
by John Ashurst
"
Provides practice in long division of
whole numbers with tutorial help. A
blinking cursor helps students with the
correct placement of each digit. A
special workspace is provided for mul­
t i p licati o n . Whenever an e r ror is
made, students may ask for assis­
tance. The reason for the error is
given. Students may correct the error
and continue on with the problem.
Long Division is multi-leveled and in­
cludes scoring.
Grades 4-6
$1 9.95 Cassette
$21 .95 Disk
Tandy Color Computer
requires Extended Basic
Also available for Commodore 64
Write for a free brochure
or ask for a dealer demonstration.
B-5 Software Co.
el . . . . .. . . . . . .. . . . .
1 024 Bainbridge Place
Columbus, Oh1o 43228
Phone (61 4) 276-2752
lil:llJCllD
80
HOT Coco
November 1 985
W
hat is software piracy?" That's what an anonymous 9-year--0ld Har CoCo
reader asked me in a recent letter. "Am I doing something that's wrong?
Please write a column about piracy." My correspondent went on to describe how he
copies and swaps programs with friends and with members of his computer club. He
had been reading articles about software piracy in computer magazines. He knew
piracy was considered a bad thing, but he wasn't quite sure what piracy was. Clearly,
it had just occurred to our young friend that his copying and swapping activities might
actually be wrong. He was suffering his first pangs of guilt about an activity which
seemed perfectly okay to him, but which he now learned was illegal.
The letter bothered me. There's something sad about a system that makes 9-year­
olds feel like criminals. And yet, there's no denying that the uncontrolled copying and
swapping of software hurts everyone-manufacturers and users alike. It's an issue
unlike any society has ever faced, because we have never before possessed a technol­
ogy that allows such easy duplication of a valuable information product. If it were as
easy and inexpensive to duplicate a book as it is to duplicate a piece of software, how
many books do you think would be sold? With books, it's far more economical to buy
your own copy.
It's unfair, really. My letter writer wasn't trying to rip off anyone. merely help out
his friends and save himself a few dollars. I wonder, though, why no adult ever ex­
plained to him what program swapping really means. It may not be true in every
market for every computer. but when it comes to the Color Computer, unauthorized
copying really hurts. Even though it may not be as out-of-control as some people think.
the problem is large enough to discourage some software makers from producing new
CoCo products. The end result is fewer programs plus a trend toward copy-protection,
a real pain for users.
' '
EOS Notes
Thanks for your numerous letters about using Tandy's Express Order Software sys­
tem. If there is any consensus to be drawn. it is that EOS is a good idea with great
potential and a few serious bugs.
Most everyone trying the system says that. while it works and the software they've
ordered eventually arrives. they are not sure they'll use the system again. First. too
many Tandy store personnel still don't seem to know or care a great deal about EOS.
But more important is the lack of demonstration copies or even a descriptive catalog
of the programs available. If you're going to order sight unseen anyway. there's slight
advantage in ordering through EOS. The delivery time doesn't time appear to be sig­
nificantly faster than a good mail-order vendor.
Demo copies and a good catalog could make EOS take off like a rocket.
As always. your letters are welcome at:
Jeff DeTray
Haf CoCo
80 Pine St.
Peterborough, NH 03458 •
Circle Reader Service card # 1 8
Color Computer II
Smith Corona L-1 000
$ 259
w/1 6K Basic $ 1 07 .95
w/64K Ext. Basic $ 1 79
Tandy 1 000 $ 7 79
Tandy 1 000 HD $ 1 539
Color Computer Disk Drive
Drive 0 $ 239 Drive 1 $ 1 89
DMP1 05 $ 1 60
BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHAC K COMPUTER PRODUCTS
COMPUTERS
Tandy 1 000 1 Drive 1 28K
Tandy 1 000 HD 1 0 Meg . 256K
Tandy 1 200 HD 1 0 Meg. 256K
Model IVD 64K with Deskmate
PRINTERS
779.00
1 539.00
1 599.00
889.00
1 60 00
Radio Shack DWP-1 05
Radio Shack DMP-1 30
269.00
660.00
Radio Shack DM P-430
359.00
Radio Shack CGP-220
Radio Shack DWP-220 Daisy Wheel469.00
Silver Reed EXP-550 Daisy Wheel 425.00
245.00
Star SG- 1 0
41 0.00
Star SG- 1 5
Panasonic P-1 091
275.00
CITOH Prowriter 8510AP + NLQ
345.00
585 00
Toshiba 1 340
375 00
Okidata 1 92
Epson LX-80
245.00
369.00
Epson FX-185
MODEMS
Radio Shack DCM-3 Modem
Radio Shack DCM-5 Modem
Radio Shack DC Modem 221 2
52.00
99.00
31 5.00
COLOR COMPUTER MISC.
Radio Shack Drive Controller
1 39.00
Extended Basic Rom Kit
39.95
64K Ram Upgrade Kit
39.00
Radio Shack Deluxe Keyboard Kit 24.95
HJL Keyboard Upgrade Kil
79.95
COCO Max Y Cable
27.95
Bolek Serial to Parallel Conv.
69.95
Radio Shack CCR-81 Recorder
52 00
Radio Shack Deluxe Joystick
26.95
Amdek Color 300 Monitor
265.00
Amdek Video 300 Green Monitor 1 39.00
Amdek Video 300 Amber Monitor 1 49.00
Texan Color 220 Monitor
245.00
Tatung DM-1 2VLG Green Monitor 1 39.00
Tatung DM-1 2VLA Amber Mon itor 149.00
Radio Shack VM-2 Green Monitor 1 29.00
Mark Data Universal Video Driver 29.95
COLOR COMPUTER SOFTWARE
Approach Control Simul.
Worlds Of F l ight
Mustang P-51 Flight Simul.
Spectral Typing Tutor
Dungeon Quest
TAPE
29.95
29.95
29.95
19 95
24.95
DISK
34.95
32.95
34.95
22.95
27.95
24.95 27.95
Major lstar
24.95 27.95
Sam Slueth Private Eye
Mark Data Graphic Adven . 24.95 27.95
29.95
Graphicom (disk only)
COCO Max by Colorware 69.95 69.95
(rom) 49.95 49.95
Color ComE
AutoTerm by PXE Computi ng39.95 49.95
39.95 44.95
Key-264K by Key Color
49.95 59.95
TeleWriter 64
89 95
Deft Pascal Workbench
39.95
Deft Extra
59.95
Pro Color File Enhanced 2.0
24.95
Telegraphies by Derringer
69.95 69.95
E l ite Cale
69.95 69.95
El ite Word
El ite F i l e (disk only)
74.50
DynaCalc (disk only)
99.95
1 34 95
Word Pack II by PBJ
VIP Writer (tape & disk)
69.95
1 49.95
VIP Integrated library (disk)
Order any 2 software pi eces l i sted
and take 1 0% oft their l i sted price.
A l l Radio Shack software 1 0% off l ist.
Send for complete list.
CALL TOLL FREE
1 ·800-343·81 24
•
•
•
•
•
L O WES T POSSIBLE PRICES
BEST POSSIBL E WARRANTY
KNO WLEDGEA BLE SA LES S TAFF
TIMEL Y DELIVER Y
SHOPPING CON VENIENCE
II
lm
TRS-80 is a registered trademark of Tandy Corp.
P.O. Box 1 094
480 King Street
Littleton , MA 01460
I N MASSACHUSETTS CALL
us
SINCE 1 97 3
161 7> 486-3 1 9 3
Compa re it with the rest.
T hen , buy the best .
If you've been thinking about
spending good money on a new
keyboard for your Color Computer,
why not get a good keyboard for
you r money?
Designed from scratch, the
HJ L-57 Professional Keyboard
Is built to u n lock ALL the
potential performance of your
Color Computer. N ow, you can
do real word processing and sail
through lengthy l istings ... with
maximum speed; m i n im u m errors.
At $79.95, the HJ L-57 is reason­
ably priced, but you can find
other Coco keyboards for a few
dol lars less. So, before you buy,
we suggest that you compare.
Compare Design.
The ergonom ical ly-superior
H J L-57 has sculptured, low
profile keycaps; and the three­
color layout Is identical to
the ori g i n a l Coco keyboard.
Compare Performance.
Offering more than f u l l-travel,
bou nce-proof keyswitches, the
HJ L-57 has RFl/E M I shield ing that
e l i m i nates i rritating noise on
d isplays; and four u ser-definable
fu nction keys (one latchable),
specially-positioned to avoid
I nadvertent actuation.
Free Function Key Program
You r H J L-57 kit I n c ludes usage
I nstructions and decimal codes
produced by the fu nction keys,
p l u s a free sample program
that defi nes the fu nction
keys as follows: F1 = Screen
d u mp to printer. F2 = Repeat
key (latch ing). F3 = Lower case
u pper case f l i p (if you have
lower case capabi l ity). F4 =
Control key; subtracts 64 from
the ASC I I value of any key
pressed. Runs on d isc or tape;
extended or standard Basic.
Compare Construction.
Compare Installation.
The HJ L-57 has a rig idized
a l u m i n u m baseplate for solid,
no-flex mounting. Switch contacts
are rated for 100 m i l l ion cycles
m i n i m u m , and covered by a spill­
proof membrane.
Carefully engineered for easy
i nstallation, the H J L-57 req u i res
no soldering, d r i l l l n g or g l u ing.
Simply plug It I n and d rop It
right on the ori g i nal CoCo
mounting posts. Kit I n cl udes a
Orderin g I n formati o n: Specify model (O riginal, F·verslon, or CoCo 2). Payment by C.O. D . , check,
MasterCard or Visa . Credit card customers Include complete card number and expiration date. Add
$2.00 for shipping ($3.50 for Canada). New York state residents add 7 % sales tax.
Dealer I n quiries Invited.
Circle Reader Service ca rd #440
new bezel for a totally f i n i s hed
conversion.
Compare Warranties.
The H J L-57 i s built so well, It
carries a f u l l , one-year warranty.
And, It Is sold with an excl u sive
15-day money-back g uarantee.
Compare Value.
You know that a barg a i n is a
bargain only so long as It lasts.
If you shop carefully, we t h i n k
y o u w i l l ag ree ...T h e H J L-57 ls
the last keyboard your Coco w i l l
ever need. A n d that's real value.
Order Today.
O nly $79.95, the H J L-57 l s
available f o r I mmediate shipment
for either the orig inal Color
Computer (sold prior to October,
1 982) or the F-verslon and TDP-100
(Introduced In October, 1 982),
and the new 64K CoCo. Jll ow also
avallable tor Coco 2.
call Tall Free
1 ·800-828-6968
In New Yortc 1 .aoo-462-4891
P R O D U C T S
Div. of Touchstone Technology Inc.
955 Buffalo Road
•
P.O. Box 24954
Rochester, New York 1 4624
Telephone: (7 1 6) 235-8358