August 1983
$2.95 U.K. £2.25
r HE COLOR
JmiQi
0001'
More Than Two Dozen Product Reviews
W* cross ^Xxes\ a* 1
27.95 Tape
30.95 Disk
TOM MIX SOFTWARE
3424 College N.E.
1 Grand Rapids, Ml 49505
(616) 364-4791 or 24 HR. BBS (616) 364-621
***** r1\0*»*\ c
- roW eC
Arcade Action Gam
• Add $1.00 postage & handling
Michigan Residents add 4% sales tax
ooking for new software
7.95 Tape
30.95 Disk
16K Machine Lanqur"
From Computer Plus to YOU . . .
PLUS *» PLUS «. PLUS
nr
Ul
LBBfcili
ModeM2
1 Drive $269$
2 Drive $3375
^^^^ ......
â–
? fiWSS^^ffr i
Color Computer 16K $175
W/16K Ext. Basics 255
W/32K Ext. Basic $345
Model IV 16K S849
Model IV 64K
2 Disk &RS232 C$1699
Okidata 80 $320
Okidata 82A $399
Okidata 92 $610
BUY DIRECT
Smith Corona TPl
Daisy Wheel $495
Here are just a few of our fine offers
call TOLL FREE tor full information.
COMPUTERS
DMP-100
315
SOFTWARE
Model IV 16K
849
DMP-120
410
(Tape Version}
Model IV 64K
DMP-200
599
Zoxxon
39.95
2 Disk St RS232 c
1699
Okidota B2A
399
The King
26,95
Color Computer 16K
175
Okidata 92
510
Colorpede
29.95
Color Computer 16K
Okidata 83A
655
Trapfall
27.95
wfextended basic
255
Okidata 93
859
Pac Attack
24.95
tColor Computer 32K-64K
Gemini 10
319
Ghost Gobbler
19.95
w/extended basic
345
Prowrlter
375
Planet Invasion
21.95
Pocket Computer 2
165
DISK DRIVES
Color Zap
9.95
Model 100 0K
679
Tandon40Traok
289
Rallrunner
21.95
Model 1 00 24K.
635
Color DRO
470
Space Shuttle
26.95
Model 12 1 Drive
2699
Color DR1
299
Typing Tutor
19.95
Model 161 Drive
4199
ETC.
Color Come
49.95
MODEMS
CCR-81
52
Telewriter 64
49.95
Hayes Smart Modem II
235
C.C Joysticks (pair]
22
PHL Flex (Disk)
69.95
R.S.AC-3
129
16K RAM Chips
25
Order any two above, take 10%
R.S. Modem 1
129
64K RAM Chips
75
of) list.
R.S. Modem II
199
32K Mlcrobutter Inline
229
R.S. Software 10% off list.
R.S DC-1200
565
Video Plus
24.95
PRINTERS
Kraft Joystick [each]
49.95
Send for complete list.
Smith Corona TPl
495
Disk Controller
199
iColor Computer 641
Disk and D.o.s.
! requir
Silver Reed EXP 550 D.W.
710
Serial to Parallel Conv.
69
Epson
Call
Superpro Keyboard
69.95
TOLL FREE
CGP-115
199
1-800-343-8124
we nave the lowest possible
Fully Warranieed Prices AND
a full complement of Radio Shack
Software.
Prices subject to change without notice.
Not responsible for typographical errors.
TRS-80 Is a registered trademark of Tandy Corp.
com
P.O. Box 926
480 King Street
Littleton, MA 01460
617-486-3193
plus
I Writ* lor your
free catalog
Under the Rainbow
28
122
Feature Articles
Sheer Luck, Sherlock?/ Robert De!bourgo , 20
Game A very versatile Mastermind
Color, Color Everywhere/ Wes Fauske 28
Graphics It looks like stained glass!
Last Person Alive?/ Mike Hall .35
Game Can you escape the desolated Earth?
Move Over Lee lacocca/Joe/ Robbins ....... SO
Game Design your own automobile
RAINBUG IV/ Dan Downard 58
Utility Our monitor goes I/O, even for non-extended
CoCos
Two For The 10/ Thomas Szlucha 67
Game/Education Two programs for the new MC-IO
CoCo Lines/ Walter Seay , 80
Graphics Delineate your CoCo's screen
Solve Sticky Recorder Relays 81
Hardware A hardware fix for non-standard tape
recorders
Keep Your Home On Schedule/ A. B. Trevor , 83
Utility The conclusion of our CoCo/ Plug 'N 1 Power Con-
trol Series
Testing, Testing/ Mike Dubuc 100
Utility Detailed test patterns for your TV or monitor
Finding Enrakian Treasure/ Ken Ostrer 122
Game Adventure for treasure — but beware the vulture!
Strummin' On The Old CoCo/ Dr. Charles H. Samee 130
Music Now, use chords as well as tunes
Ring It Up/ Dennis H. Weide 138
Business A cash register and sales recorder
MC-10 — A Hefty New Addition/ Dan Downard .174
Technical Review CoCo's little brother will be a tough
competitor
This One's First/ Colin J. Siearman 196
Utility Conclusion of our ML sorting utility
Four, Three, Two, One, Launch!/ Dan Drouillard 218
Game Attack with your missiles
What It Is Is Football/ Dr. Bob Tyson 235
Simulation A football strategy program
Rainbow Memory Map — 11/ Bob Russell 254
Special CoCo's Most Complete Memory Map
Enhance Your Screen Displays/ Ray Gauvreau 282
Utility Reverse video, control printing speed and protect
pan of your screen from scrolling
Left Three, Right Two. , ./ Ted Hasensiaub 290
Game Can you crack CoCo's Safe?
COVER art • by Fred Crawford
Due to family illness, Dennis Lewandowski's Assembly
Corner column does not appear again this month. It will return
in September.
A FIRST LOOK AT THE NEW MULTI-PACK INTERFACE
IS ON PAGE 13
Departments
Letters To Rainbow/ Our Readers 6
PRINT #-!,/ Lawrence C. Folk 14
Editor's Notes
Building August's Rainbow/ Jim Reed 16
A many-hued preview to this month's issue.
Bits And Bytes Of Bask/ Richard While 30
Stalking the mysterious IF
GamcMastcr's Apprentice/ Bob Albrecht 74
Icosahedrori, anyone?
Rainbow Scoreboard 98
Using Graphics/ Don Inman â– . ; 106
GETting it together
Basic Training/ Jo seph Kolar 116
Good visual test presentation
Education Notes/Steve Blyn 152
Computer Concept Development
The Pipeline/ Staff 164
The Dragon's Byte/ Bill Nolan 170
Programming the combat system
About Your Subscription • 188
Greetings From Uncle Bert/ Dale Peterson 189
LOGO — And a turtle under the porch
Turn Of The Screw/ Tony DiStefano 192
A parallel printer interface
Education Overview/ Dr. Michael Plog 194
A new column on educational issues and computers
CoCo Counsel/ Tom Nelson 226
Computer contract basics
Back Issue Information 264
Corrections * < 280
Submitting Material To Rainbow 295
Received And Certified 300
CoCo Clubs 302
A roundup of clubs
Advertiser Index 306
Product Reviews
8-Ball 294
Blackjack Royale . .268
Bloc Head .120
Bumble Games 232
Bumble Plot .........232
Coco Board II 169
Color-80 166
Desert Golf 186
Direct File Transfer 276
Disk Money Minder 274
Dynacalc . 158
El Cheapo A/D Converter 96
Elite*Calc 262
Electronic Calligrapher 270
Firecopter 272
Klendathu 295
Kodomo-No-Go .94
Madness and the Minotaur 184
Mathwar 24
MC-10 Microcomputer 174
Nef ble Force 265
Space Shuttle 278
Tic-Tac-Toe 94
Time & Money 136
TNT-ALYZ 296
Trapfall 188
Upload 266
NEXT MONTH: September means back to school (already?) and that means the Rainbow will have a
special emphasis on education. Plus, Steve Blyn's Education Notes, Dr. Michael Plog's Education
Overview and Dale Peterson's Greetings From Uncle Bert, our own LOGO column.
Our memory map will feature disk BASIC, we'll offer a Superpatch for EDTASM, an appointment
book and a new video worksheet.
Plus . . . more games, more utilities and just more of everything — programs, reviews, and information
on CoCo than you can possibly find anywhere else. Don't miss the September Rainbow]
The Rainbow
Lawrence C. Falk
James E. Reed
Managing Editor
Courtney Noe
Senior Editor
Dan Downard
Technical Fditnr
Susan Remini
Copy Editor
Jutta Kapfhammer
Submissions Editor
Sally Nichols
Art Director
Jerry McKiernan
Assistant Art Director
Peyyy Henry
Designer
Valarie Edwards
Suzanne Kurowsky
Noreen Morrison
Editorial Assistants
Boh Albrecht
Steve Blyn
Tony DiStefano
Don Inman
Joseph Kolar
Dennis Lewandowski
Bill Nolan
Dale Peterson
Michael Plog, Ph.D.
Charles Roslund
Dick White
Contributing Editors
Charlotte Ford
Advertising Manager
Patricia H. Hlrsch
General Manager
Donna Shuck
Assistant General Manayei
tor Finance
Ivanka Klfiier
Customer Service Manager
Joan L. Edmondson
Deidra Henry
Tanya Holder
Monica Wheat
Research Assistants
Wendy Falk
Transportation
The Heitibow is published every month ol the year by
FALSOFT, INC . 9629 U S Highway 42. P O. Box 209,
Prospect. Kl. 400S9. Phone i'502i 228-4492. The RAIN-
BOW and the Rainbow logotypes are :-: Trademarks of
FA. SOf-'T Inr
Sftmnrl class postage penning at Louisville, KY.
POSTMASTER. Send address changes to flamocm.'
P.O Box 209. Prospect. KY 400S9 Fowardmg Pottage
Guaranteed'
Entue contents ? by FALSOFT, In.. . 1983. Trie RAIN-
BOW is intended tor the- pnvatc use and pleasure ot its
subscribers and purchasers and reproduction by any
means is prohibited Use of infuiniauun herein is for the:
Isingle end use of purchasers and any other use is
evprassly prohibited. All programs herein are distrib-
uted in an "as is" basis, without warranty of any kind
whatsoever. â– â– â–
TRS-80. Color Basic. Extended Color Basic. Scnps.it
and program PaK are" uadoniaiksot tne Tandy Corp
CompuServe is a " Trademark of CompuServe Inc
Subscriptions to the RAINBOW are $22 per yeai in the:
ljnitedSt?tes Canadian anrlMpxiran rntusarpl I S $?9
Surface mail to othei countries is U.S. $57, air mail U.S.
$86. All subscriptions begin with ncM available issuo
Limited back issues are available Please see notice;
for issues which are in print arid costs Payment
accepted by VISA. MasterCard, American Express.;
Cash, Check or Money Order in U S currency only
the RAINBOW is represented in the eastern United
Stales by John A. Garland and Associates, P.O. Box 314.
Duxbury, MA 02332, (617) 934-6464. Advertisers east of
the Mississippi may contact them lor further
information
letters to.
RAINBOW
RAINBOW ON 'RECORD?
Editor:
It is a splendid effort, the 2nd Anniversary
issue, and the tipped-in record a brilliant
thought. My boys would not object to a rise
in the subscription rate, equivalent to a
monthly Rainbow on Tape, if that helps to
guide your decision — so long as the Sound-
sheet could be made to contain an equivalent
amount.
As for the CGP-1 1 5 and Katakana, 1 have
never touched Switch Four at all, but I have
found that that syllabary can be entered
directly from basic, with PRINT#-2,
CHR$(X) where X is above 128. 1 am not
going to stop everything now to refresh my
memory of the exact numbers. Why, by the
way, do you suppose the Japanese never
include the Hiragana on these chips? There's
a set of characters which could be put to
some real use in the world. There was room
enough on the CGP-1 15 for all the variant
forms, 1 think.
R. W. Odlin
Sedro-Woollev, WA
TRY THE TRS TRIPTIK
Editor:
I find from various articles and adver-
tisements that Rainbow has a wealth of
information on different aspects of pro-
gramming. For instance, 1 gather from the
article Write an ML Program to Handle
basic Chores that you have the information
on addresses of various ML routines. 1 also
find that you have complete information on
POKEs and PEEKs that we seldom find in
one place.
One of the problems I have not been able
to get a solution to, except to go in for some
kind of toolkit is to protect my BASIC pro-
grams from being listed after initial loading
from the tape or after BREAK'mg. Maybe
this piece of information was published in
one of the earlier issues of Rainbow but I am
so far in the dark.
Monohar Santwani
Fairport, NY
Editor's Note: See Bob Russell's
Memory Map in this and other issues.
INFORMATION PLEASE
Editor:
I am a stamp collector and I'm looking for
a program that will work on the CoCo. Can
someone help? I know that there is one
available for the Sinclair, but, I haven't
heard of any others. Please send a reply to:
C-M Enterprises, P.O. Box 187, 61071.
Connie
Rock Falls, IL
Editor:
I have had an adventure game called
Pirates Ahoy by Spectral Associates for
some time now and I am approaching the
brink of insanity!
Can anyone give some hints to a poor,
frustrated, adventure novice that can't get
out of the first five rooms?
If anyone can give me some clues (or even
the solution) to this tough adventure, please
send them to: Matt McMann, 22550 Dickin-
son Rd., 48164. Your help will be greatly
appreciated.
Matt McMann
New Boston, MI
Editor:
Is there any way that human-like figures
can be drawn using the CoCo's graphic rou-
tines? Everytime I try to do it they end up
looking like stick figures. I would like to
have them look more like people.
I have two books on Color Computer
Graphics but lam having a hard time under-
standing how the graphics are supposed to
work.
Bob Chase
Concord, NH
Editor:
I wonder if any of your readers could help
me out. I am a graduate student at Penn
State University and am in need of any pro-
grams for the CoCo that could help me with
statistical anlalysis. For example, anything
for determining confidence intervals, stand-
ard errors, slope formula, correlation coefi-
cent, z score or anything else that might be
useful. I will appreciate any help anyone
might offer. My address is: 268 Toftress
Ave., Apt. 321, 16801.
James E. Pendorf
State College, PA
Editor's Note: You might find inter-
esting reading in "A 'Nova' For
CoCo, "an article and program on the
statistical analysis of variance by Sam
Sherrill. It was published in the
March 1983 issue of the Rainbow.
You'll And it on page 94.
SHED SOME LIGHT?
Editor:
Your April issue contained an excellent
article by William C. Clements, Jr., on the
addition of a "Power On" light to the CoCo.
1 was wondering whether any of you elec-
tronic experts have a suggestion on how to
add a power on light to Radio Shack's disk
drive. The present light only comes on when
the disk is in actual operation and I find
myself forgetting to turn it off more often
than CoCo itself.
Chris l„ Shelby
Lebanon, IN
Editor:
In your June 1983 edition of Rainbow,
Letters to the Editor section, there was a
letter asking for any information concerning
an adapter to convert from TRS-80 to Atari.
I am very interested in any response you
receive concerning this letter. Where I work
we have two large TRS-80C and Atari
groups and are trying to communicate be-
tween both systems.
James Downey
Framingham, MA
WHEN THE CHIPS ARE UP
Editor:
I have recently read in the March issue of
Rainbow Pipeline that there is a VDG chip
being developed that could enable the CoCo
to have a numerous 4,000 colors, 700 x 500
pixel high-res graphics screen, and a 64
character screen display on the horizon. I
want to know if this is true and where this
chip will be sold?
I 'm very happy with my CoCo, but when I
found out how many colors the Atari 400
and 800 computers had, I found my CoCo
was missing something!
I feel this VDG chip (if there is one) will
help out the CoCo and its owners a great
deal.
Also, I enjoy your magazine a lot and look
forward to it each month, so please keep up
the good work.
Dan Dipierro
Jamesburg, NJ
Editor's Note: We hear rumors to that
effect and will report our findings as
soon as something is finalized.
Editor:
As the addresses of the ROM subroutines
of the Tandy CoCo and the Dragon 32
differ, I would ask if it is possible to publish a
list of the addresses of the ROM subroutines
of the Tandy CoCo versus the appropriate
addresses of the Dragon 32.
T. Arnold Bik
Uilenstede 12 Netherlands
Editor's Note: Though we dont have
such a list at this time, CompuSense of
England has a new utility which
should interest you. Look in this
month's Pipeline column.
GROWING PAINS
Editor:
I have owned my CoCo since it was a 4K
machine. I have watched it slowly evolve
into its present 32K with disk configuration
over the last two years.
the RAINBOW
August 1983
I have reached the point where what was
once a minor inconvenience is now an
impediment to its future growth. I refer to
the garbage collection habit with which my
machine is afflicted.
I read the Rainbow very nearly from cover
to cover and 1 have, to my bewilderment, not
seen my particular problem addressed.
The specifics of my case: a) I have Radio
Shack's line filter and only Radio Shack's
computer center has ever worked on any
computer upgrading and b) I have estab-
lished through two years of use that 1 get
trash in the machine during power drops,
but not power spikes (ie, memory is altered
when the electric furnace comes on, but not
when it shuts off, etc.).
Where have 1 gone wrong? Why is my
CoCo growing up with no more ambition
than to be a garbage collector?
Charles F. Kerner
Kernersville, NC
Editor's Note: Any electronic device is
susceptible to voltage fluctuations at
the input, whether spikes (overvolt-
age) or dropouts (undervoltage). The
line filter you mentioned will elimi-
nate spikes but there is no economical
way to eliminate dropouts. We may
suggest a circuit directly connected to
your electrical service panel, via a cir-
cuit breaker of course, as a pseudo
solution. This circuit would not have
the voltage drop present on a normal
residential circuit.
I AM THE SYSOP
Editor:
I am the Sysop of the BULLET-80 system
located in Rochester, NY. I have recently
expanded my download section greatly and
I was wondering if I could ask you a few
questions.
First of all, for my new download section,
1 would like to have your magazine's pro-
grams in it!
Second, since 1 do not have a Color Com-
puter to load the tapes in with, would there
be a "middle-man" who has a Color Compu-
ter and could load these in and later upload
them to me?
Harold Land
Rochester, NY
Editor's Note: Sorry, these programs
are copyrighted and available onRain-
bow on Tape.
KUDOS
Editor:
1 am a relatively new subscriber to your
magazine. In the past four months you con-
tinue to amaze me with the quality of your
magazine. 1 find the hardware tips and
hardware reviews of particular interest. The
large number of advertisers is a definite asset
to your magazine.
I am a high school science teacher and
have access to several different computer
systems and many periodicals. Your maga-
zine is the best there is on the CoCo, which
says your product is the best of all the micro-
computer journals.
If you change any part of the magazine it
should be to add more on the hardware, but
the present mix is quite good. I have found
your reviews to be excellent and Use them as
a guideline in my software purchases.
Thanks again for an excellent magazine.
David Loveless
Trenton, NJ
Editor:
Congratulations on your recent upgrade
of the cover design. Each issue seems to be
an improvement over the last. Keep up the
good work.
Charlene Merrill
Ft. Lauderdale, FL
WANTS SOME POINTERS
Editor:
I have had my CoCo a year since April
and have enjoyed it greatly. Since I got my
computer I have spent very little time with
my amateur hobby, but do enjoy the articles
for the amateur hobbyist and have copied
them.
I would like to get into machine language
and was wondering if it would be possible to
run articles that tell a person what they need
or how to get into machine language? Would
it also be possible to make this article start
out simply, if possible?
I do enjoy the Rainbow and Was glad that
I found your magazine, although it makes a
wife a widow when it shows up in the mail.
Keep up the good work and 1 like to sec
those Canadian articles in there.
W.S. Goheen
Timmins, Ontario
Editor's Note: For a start, read Dan
Downard's and Dennis Lewandow-
ski's columns in Rainbow.
PEN PAL FOR A WRITER
Editor:
1 am interested in pen pals. I own a TRS
80 CoCo and a TRS-80 Model II Compu-
ter/Word Processor.
I'm a bored to tears freelance writer. Can
any pen pals out there tell me how to make
money at home with my computers? Over
40, M.A. in creative writing and seeking new
career in computers. I've authored 29 books.
My address is: P.O. Box 4333, 92104.
Anne Jorgensen
San Diego, CA
OLD TV CALLED A HAZARD
Editor:
In your April issue, reader Charlie Muncy
inquired about harmful radiation for old
TVs. There is indeed such a hazard, and I
refer you to a letter to the editor in the Sep-
tember 1982 issue of The New England
Journal of Medicine.
It has been found that pre-1970 TVs can
cause X-ray exposure higher than the rec-
ommended maximum dose. The recom-
mended dose limit is 500 millirem per year
for organs especially sensitive to radiation,
such as the thyroid . Old TVs used two hours
per day at short distances, as with a micro-
computer, could result in exposure as high
as 890 millirem per year to the eyes and 779
to the thyroid. See also the February 1983
issue of FDA Consumer.
Since 1970, the FDA's performance stand-
ards for TV receivers have been in effect, so
emissions have been sharply reduced by
manufacturers so as to be in compliance.
Richard Riffer
Berkley, CA
Editor:
This is in regard to the letter from Charlie
Muncy concerning radiation from older
color TVs. I heard the same thing reported
on the TV news. I believe it was from a
government agency, maybe the Surgeon
General's Office. The report stated that
older TV sets give out more radiation than
the newer sets. The problem with video
games and home computers is that the user is
usually sitting close to the TV and so expos-
ing himself to possible higher than recom-
mended levels of radiation. It would be bet-
ter for all who own older TVs to sit at least
eight feet from the set.
Joseph S. Paravati
Yorktown Heights, NY
CALL ANYTIME
Editor:
Please announce that the Sangarnet Bul-
letin Board is now on-line 24 hours a day, 7
days a week. Sangarnet is a free bulletin
board which features uploading, download-
ing, electronic mail, bulletins, and much
This 300 Baud Bulletin Board also features
System Chess, a new concept in electronic
computer bulletin boards. Sangarnet can be
accessed at (919) 758-5261.
Gary L. David
Greenville, NC
WHICH WAY TO 64K?
Editor:
1 own a Color Computer, 32K Extended
Color BASIC with 64K RAM chips; it has an
"E" board. My question is how can I make
my machine into a 64K system, or is it
already? Would it require further hardware
modifications or only software to access the
full 64K of memory?
I have read most of this issue's (April
1983) articles and ads. I found one article of
particular interest to me, which prompted
me to write this letter. The article is about a
program called The 64 K Screen Expander, a
software review by Dan Downard, on page
100. My main concern is, if I bought this
program, could it run on my CoCo in its
present state, or would the CoCo need some
modifications?
I would highly appreciate any help I can
get on this matter.
Gennaro D'Ambrosio
Revere, MA
Editor's Note: Gennaro, read on.
Editor:
1 have had my CoCo for about a year after
purchasing it second-hand from a friend. I
August 1983 the RAINBOW
am not sure of its age but it is a 1 .0 version
and has a D board. I am considering a do-it-
yourself upgrade and would like to know if
my board can be upgraded to 64K or am I
stuck with 32K? Also, the POKE 65495,0
plays havoc with any SOUND statements
which are included in some games. I under-
stand this is common with some older
CoCos, but I was wondering if there is any
kind of fix.
John E. Duling
Las Cruces, NM
Editor's Note: Your board can be
upgraded but you must have the 1.1
ROM to use 64K. See March Rain-
bow, page 100, "D-Board 64K
Upgrade"by B. H. Alsop. The proces-
sor clock runs at twice its normal
speed with the POKE you mentioned.
Sound is a function of the clock speed
as is the cassette and disk I/O.
LOOK FOR THE SEAL
Editor:
I have a TRS-80 Color Computer 16K
BASIC (26-3004A) and wish to upgrade to
32K Extended BASIC. The cost of doing
this in the U.K. is prohibitive, and in reading
your Rainbow magazine I have seen various
adverts for upgrade lists. These include
Selected Software, Spectral Associates,
Computerware, .larb, Inc. Since they all
vary and 1 have no knowledge of any of these
companies 1 would be most grateful if you
could recommend a reputable and reliable
system. I would like a kit that is obviously
simple to install and one that gives continu-
ously reliable results.
D.A. Berle
London, England
Editor's Note: All of the companies
you mentioned, plus several others,
offer memory upgrade kits.
Look for theRainbow Seal of Appro-
val to verify that these products in-
deed exist.
MORE THORNS, LESS ROSES
Editor:
I have become weary of most of the
reviews in your magazine because, generally,
they seem to paint too rosy a picture of the
program under review. If the programs
available now were available a year and a
half ago, then I would agree with the reviews.
But CoCo owners have become accustomed
to a variety of good, enjoyable programs and
expect quality. There are few exceptional
programs.
Please try to impress upon all of your
reviewers the need for an honest evalua-
tion-good, so-so, and poor points — that is
separate from an expression of enthusiasm
or rejection (1 know that can be difficult, and
1 know it is easy to criticize, and I know
opinions vary). A review is for the benefit of
the buying public, not the manufacturers; a
review is ail assessment, not an advertise-
ment.
John Plaxton
Medley, Alberta, Canada
PATCHING PROBLEMS
Editor:
1 agree with Mr. Kennedy's letter on Tel-
ewriter (it's great!), but the problem is I can't
use it. I have a Silent-700 printer and can't
patch my .CoCo to print with it while using
Telewriter. I have the original version of
Telewriter, and can patch my CoCo to print
while in BASIC, but not while in any machine
language programs. I also have a problem
with the spacing, upper- and bottom-mar-
gins (I can't get them to work with a Okidata
Microline 82A). Can someone please help
me?
I have seen samples from the new Okidata
Microline 92, and it seems absolutely
fabulous!
Mitch Cohen
Framingham, MA
Editor's Note: A letter to Cognitec
would probably bring results. If you
have a monitor with a "find" com-
mand search for all locations contain-
ing SA2BF in Telewriter and change
this address to the location of your
printer driver.
A DIFFERENT OPINION
Editor:
Your review of our program Graphics
Program Generator II in the June issue gives
heavy-handed criticism to our documenta-
tion, "... I wish 1 could say something good
about the documentation. . ."
While we appreciate the praise the re-
viewer gives a number of features of the
program itself, we believe a software pro-
duct without adequate documentation is
half a product! We flatly disagree with the
reviewer's comments. The manual to GPG-
Ilis indexed, clearly written, logically organ-
ized, contains listing examples and is nicely
printed.
I have enclosed a copy of the manual in
question and ask that one of your staff
members offer your readers a second
opinion.
Tom Mardis
Principal, CoCoDATA Enterprises
Orlando, EL
Editor's Note: In this case, our opin-
ion does seem to differ with the re-
viewer. We judge the manual to GPG-
II to be quite adequate and, in fact,
much better than average documen-
tation.
hints tn' Tips
Editor:
Maybe this will help Chris Woods to solve
a problem with his 64K upgrade. Connect
Pin 12 of U4 to Pin 16 of U8; this is what 1
did to get my 64K operating. The article uses
the old and incorrect method of jumping Pin
12 of U4 to Pin 17 of U8 — this has been
reported to give just 4K. Otherwise, the
procedure does work.
Also, I have come up with a disk conver-
sion for "NO ESC APE" July 1982 Rainbow:
Change line 26 to read DATA 142,14,63,
166,128,167,136,191,140,37,236,45,246,
57,36
8
the RAINBOW August 1983
and change line 28 to read
NEXT:LINE(0,I91)-(255,178),PRESET,
BF:PLAY"V26L26T9":DRAW"BM50,
191C4S4":RS-'BY JIM EBBERT":
GOSUB20:FORDU = lTO999:NEXT:
PCLS:PCLS
These two changes should make a disk
executable copy of the program. Thanks to
Jim for writing in P.l.C. In addition, I have
found that adding 2084 (decimal) to most
well-written programs like Jim's will convert
them over to disk. If any readers out there
don't want to wait for my conversion of
Rainbow Roach they could use this idea.
Jim O'Connor
Cambridge, MA
Editor:
1 have just received my first issue of the
Rainbow and I think it's a great magazine. I
learned a lot from it and thought that your
readers might appreciate this bit of informa-
tion: If you have a Radio Shack ROM pak
and you want the game to move faster, this is
all you have to do:
1 . Turn computer on
2. POKE 653 15,54
3. Insert cartridge
4. POKE 65495,0
5. EXEC 49\52
Ruben Lipszye
Sarnia, Ontario, Canada
Editor:
To get more men on PitFall, type:
POKE&H2CBC,( 1-255), after loading.
John Brissie
Greenville, SC
Editor:
I was very interested in the Text Editor
Progrm "Mr. Ed" from the July issue. 1
found that the change command "C" was
somewhat slow. I have rewritten the change
logic to run faster. To add my changes,
delete lines 880- 1 030 arid insert the following
four lines:
870 A=INSTR(X$,"/");IF A=0 THEN
RETURN
880 B = INSIR(TX$(CL),LEFT$(X$,
A-1)):IF B= THEN RETURN
890 TX$(CL)=LEFT$(TX$(CL),B-1)+
MIDS(X$,A+1)+MID$(TX$(CL) B+
A-l)
900 RETURN
I hope you will have more articles on text
processing in the future.
Kevin Davidson
Easley, SC
Editor:
1 was pleased to read Judd C. Posner's fine
article on the Spectaculator ROM Pack. I
would like to pass along a few other tricks
that I have found work well and help when
preparing reports and printouts.
1. When it is desirable to repeat a column,
multiplying by one will transfer it to the new
column.
2. If a group of work sheets is necessary
for a report, the sheets can be spread in steps
over the available cells. As an example, the
first work area could occupy columns 1 to 8
and rows 1 to 8 then the next area could be
from columns 9-20 and rows 9 to 25 and so
on. This allows for specific formulas for each
area and can be saved to tape at one time. On
(continued on page 13)
(Including 2 DIs*
COLOR AMDISK-III
COMPATIBLE.
The AMDISK-III micro-floppy disk system is an engi
neering breakthrough in disk size, storage capacity,
media protection and uset convenience. It's fully com-
patible with your Radio Shack* 'â– Color Computer, En-
joy a full 624 KBytct (formatted) storage capability
and the extra convenience of the new 3" hard plastic
encased diskettes. They fit into a shirt pocket and are
easy to mail, too.
The AMDISK-III drive system ts ruggedly constructed
for years of trouble-free operation, and is backed with
our 90 day warranty on parts and labor
Just circle the reader service number to receive com-
plete specifications
* Radio Shack is a registered trademark of Tandy Corporation
f Requires recording on both sides.
2201 Lively Blvd. â– Elk Grove Village, IL 60007
(312)364-1180 TLX: 25-4786
COFIR
HLGIONAL OFFICES: Calif. (714) 662-3949 • Texas (61 7) 498-2334
your guide to innovative computing!
THE TOP-RATED COCO WORD PROCESSOR:
Colorware researched the word
processors available lor the Color
Computer We came to the very
same conclusion that so many re-
view articles nave! Telewriter -64
is, by far. the superior word pro-
cessor for the Color Computer.
Why is Telewriter so much bet-
ter than the others? For one thing,
it has overcome the 32x1 6 charac-
ter display limitation of the Color
Computer. No small feat. Telewri-
ter accomplishes this by generat-
ing its own set of characters in
software. You select 51 x24, 64x24
or 85x24 character displays by
merely issuing a format command.
If you have ever used a word pro-
cessing system, you know how im-
portant it is to be able to see a good
portion of you r text on the screen .
Telewriter-64 also generates
true lower case Characters. This :s
much preferable to the reverse
characters that merely "represent"
lower case letters in other co-co
word processors,
Telewriter-64 is feature packed-
Besides the standard features
EXTENSION CABLE FOR
YOUR MODEM/PRINTER
$19.95
Place your modem or primer wnereyou
want 15 ft. cable with tour-pin male
and four-pin female DIN connectors
COCO ROM/PROJECT/PRODUCT CASE
QUANTITY
2-4{2min.)
5-9
10-99
1 00 & up
PRICE EACH
$5.50
3.50
2.75
CALL
Give a Professional look to your project or product
• Designed especially for the Color Computer ROM slot.
• High quality 3 piece injection molded black plastic with
spring-loaded door.
• Same size and specifications as Radio Shack ROMpak
SUPER-PRO KEYBOARD
REPLACEMENT PROFESSIONAL
KEYBOARD KIT...ONLY $69.95
• Contour molded, full travel keys for fast smooth typing.
• Custom madetofit precisely. Has same key layout.
• Complete, easy instructions for any CoCo or TDP-1 00.
• Ideal for word processing and other serious CoCo use.
Note: For computers manufactured after Oct. 1982, add $4.95
UPGRADE IN JUST MINUTES!
COLORWARE
COLORWARE INC
78-03F Jamaica Ave.
Woodhaven NY 11421
(212)647-2864
TELEWRITER-64
found in any word processor, Tele-
writer also includes: user-friendly
full-Screen editing, rapid cursor
and scrolling control, page jump,
right justification, menu-driven
disk or cassette access, compara-
bility with spelling checkers {such
as Spell- and- Fix), and a clever
double check that asks the user
"Are you sure?" before executing
any operation that would kill any
sizeable amount of your text
Telewriter 64 runs on any 16K,
32K, or 64K system (extended
Basic not required) and works with
any printer, It has all of the control
codes necessary to take full ad-
vantage of all of the features in any
prininr There is even a typewri-
ter" mode which sends typed lines
directly to your printer,
With advanced word processing
software such as this, your color
computer becomes a truly power-
ful word processing system, with a
price that makes sense for the per-
sonal user.
Beyond impressive capability,
Telewriter-64 simply makes any
kind of writing a pleasure. It is a
truly sophisticated system that is
marvelously easy to learn and en-
joyable to use.
Disk . . .
Cassette
S59.95
J49.95
QUALITY DISK DRIVE CABLES
High quality cable and high force, gold plated contacts
ensure the utmost in connection reliability for your CoCo
or TDP-1 00.
© Disk pack extender, 3 ft. , . $29.95
Allows you to move your disk drive
interface back and out of the way.
© One Drive Disk cable $19.95
® Two Drive Disk cable $29.95
COLORWARE LIGHT PEN
ONLY $19.95
FREEPROGRAM
CASSETTE
INCLUDED
• Plugs directly into your joystick port.
• Comes with six fun & useful programs on tape.
• Easy instructions show how to use it with Basic.
• Comptible with light pen software such as Computer
Islands "Fun-pak."
TOLL FREE ORDERING
800-221-0916
Orders only. NY& Info call {212) 647-2864
WE PAY
shipping on any order that includes at least one game
Use our convenient toll free 800 line.
GHOST GOBBLER
From Spectral Associates, this
"Pac" theme game is the best of it's
type. Brilliant color, action and
sound, just like an arcade gobble
your way lo glory, but watch for
those ghosts' Got in on the wild fun
of this game craze now. Tape:
$2 1.95. Disk: $25 95
DONKEYKING
GHOSTGOBBLER
DONKEYKING
You simply can not buy a more impres-
sive game for your color computer than
this new wonder trom Tom Mix. The
graphics, sound, and animation are all
just astomsningi There are tour different
graphic screens and each is endless
fun, Requires 32K. Tape: $24.95, Disk:
$27.05
PROTECTORS
There are several good ver
eions of the "Defender" theme
available for the COCO None,
however, rival this one from
Tom Mix, No other game
matches the detailed graphics
and sheer excitement ot this top
seller Requires 32K Tape:
S24.95. Disk: $27,95
CREA TURE FEA WRE
From Cotor Software, comes a
lightening swift shoot & dodge
the enemy game It's clever
cross between "Ruuutrun" arid
"Beserk" themes, with bullets
flying, everywhere Solid, shoot-
em-up-fun, Requires 1GK.
Tape: Si 7 95 Disk: $1 9.95
ANDROID ATTACK
Spectral Associates' very well
done "Berserk" type game with
some interesting added fea-
tures Each cassette contains
both ihe 16K and 32K version
The 32K version has voice Out-
put! Plenty oi action Tape 1
$21 .95
FROGGER
Just released by me Cornsott
Group, this is the officially
licensed version from Sega, the
arcade manufacturer. It has it
all! 4 lane super highway,
snakes, turtles, logs, alligators,
etc Lots of action and laughs!
Requires 16K. Tape: $19,95
INTERGALACT1C FORCE
Your space fighter roars into the
Death Corridor. Lock -on and
blast the enemy fighter from the
Sky, Now try dropping one into
Death Star's narrow exhaust
vent it takes skin and guts,
Good luck) With Star Wars"
theme song. From Anteco.
Tape: $24.96
THECOLORCADE..
SUPER JOYSTICK MODULE
ONLY
$19.95
ir It's a Joystick Interface.
Now you can connect any Atari compatible joystick to your CoCo,
These sticks are extremely rugged & provide very fast response
and real arcade type action. They will improve the play of almost
any game. The difference will amaze you!
* It's a Rapid Fire Module!
Press the fire button on your joystick and get a great burst of fire
instead of just a single shot! Adds tremendously to the many
shooting type games that do not have repeat fire. With variable
burst speed.
* It's a 6 ft. Extender Cord.
THE ATARI
ONLY
$8.50
A well proven |Oystick, the Atari is
known for being rugged and reliable. It
gives good response ana is the stan-
dard among home video players. Now
at a great price! Use with module above
ZIRCON VIDEO
COMMAND
ONLY
$14.95
A GREAT
BUY!
This one has received outstanding re-
views. Its unique design tits the hand
beautifully and it has the truly fast and
positive response needed tor high
speed play. Actually out-performs some
joysticks fhat cost $snor mnre
WICO FAMOUS
"RED BALL'
THE BEST
YOU CAN BUY
$34.95
The high performance joystick from the
people who make them tor the arcade
machines. Built to take the abuse of
even the most enthusiastic player. This
is the best' Wico #15-9730 use with
module above.
ORDERING
INFORMATION
ADD $2,00 PER ORDER
FOR SHIPPING.
WE ACCEPT VISA, MASTERCARD,
CHECKS, MO.
C.O-D. ADD $3.00 EXTRA.
NY RESIDENTS ADD SALES TAX.
OVERSEAS, FPO, APO. ADD 10%
DEALER DISCOUNTS AVAILABLE
IF ONE OR MORE GAMES
ARE INCLUDED,
SHIPPING IS FREE.
COLORWARE
COLORWARE INC.
78-03F Jamaica Ave,
Woodhaven, NY 11421
(212)647-2864
VISA
TOLL FREE ORDERING
Ordsrsanty
only NY& info call (212)&i7-28B4
Ubindin$?
*^3i Of Course! ^
Aiid Educational Too!
"Hello, I'm Merlappleâ„¢ the Wizard.
My friends and I from Follett
Library Book Company are helping
grade school children all over the
United States build logic, math and
language skills through six unique
programs designed for the Radio
Shack TRS-80 color Computer,
These widely-acclaimed, award win-
ning games from The Learning
Company capture the fancy and
test the reasoning processes
of boys and girts ages preschool
through thirteen. Using both
high and low resolution graphics,
the games range from easy to
"mind-boggling", each offering
a distinct challenge to its
players. "How-to-play" enact-
lQf^« ments contribute to program
understanding while both
graphic and musical feed-
beck enhance learning.
The six outstanding programs
offered include Juggles Rain-
bowâ„¢, Bumble Plotâ„¢, Bum-
ble Game?â„¢, Magic SpellsTM,
Moptown Ho aiâ„¢, and Mop
town ParadeTM.
To order any or all of the above
programs, please return the order
form below.
fit ICES SUBJECT TO CHANGE
SOFTWARE ORDER FORM
1
RADIO SHACK COLOR COMPUTER (IMC EXTENDED BASIC)
CASSETTES
DISKETTES
PROGRAM
TITLE
nRDFR
NUMBER
PRICE
QUANTITY
ORDER
NUMBER
PRICE
QUANTITY
Juggles flamlmâ„¢
Bumble Games
M1ZD2C
137
902020
JSD
90Z0OC
145
MHHW
m
Bum tan Plgi
30201 C
S4S
Boato
m
Magic Ssillc
MZD3C
MO
MZS3D
Ki
MoDlown Howl
[J urograms)
SIM.C
(30
907040
13E
MoptOWD Ptradn
(a programs)
9D2G5C
W
9D20SD
145
total
TOTAL
Dale.
Name
School/ Library.
Address
City
.Dist.#.
State
Zip
Phone No. of Person Originating Order .
Your FLB Acct, ft.
.P.O.*.
I
CHECK ENCLOSED â–¡
n
â–¡ axe, date .
CHARGE CARD #
R8-83
FOLLETT LIBRARY BOOK CO.
4506 Northwest Highway. Crystal Lake, IL 60014
TOLL-FREE 800-435-6170
in Illinois. Hawaii, Alaska call mlfect- 815-455-1100
a printout each area can be listed in a desired
order to make a meaningful report.
3. When you do not want a calculated cell
to print, by entering a text period (.) or dash
(-), numbers will not be printed, This
happens sometimes when the sum of a
column or row is not a meaningful figure.
4. To consecutively number the rows in a
column, you can generate a column of ones
in the way Judd Posner suggested for zeros,
then in the next column enter an integer
SMT column formula.
I'm sure there are many more ways that
this powerful program can be used. 1 for one
would sure like to hear about them. The
Rainbow is great.
G'. Donald Jenkins
Camp Hill, PA
Editor:
A fast way to find all the unlisted lines —
let the computer do it. Use RENUM.
Gerald Garhart
Sharon, PA
RANDOM?
Editor:
I have a 16K. ECB CoCo and am writing
regarding random number generation. First,
turn on your CoCo and run this short
program:
10 FOR X=l TO 10
20 PRINT RND(IO)
30 NEXT X
After you run this program, record all ten
numbers. Then, turn off the CoCo and turn
it on again, and run the same program. All
the numbers are the same as the first time! (1
got 50, 32, 14, 66, 45, 34, 56, 30, 1 1, 83.) My
friend pointed this, out to me and got the
same numbers as I did. (He has 32K ECB.)
This means that CoCo can't pick truly
random numbers.
Kenny Miller
Yardley, PA
Editor's Note: Right, that is why they
are called pseudo random numbers.
But, through a process which has been
explained on these pages before, you
randomly select the pseudo random
number with which you start— thus
getting true random numbers anyway.
See the letter below.
NOW HERE'S RANDOM
Editor:
Here are a couple of programming hints
for those without Extended Basic. The
RND(N) function is not random. The
solution is easy with Extended Basic. Start
each program with:
10 X^RND(-TIMER)
Note that it must be "-TIMER." Without
Extended Basic, you can start with the
following routine:
10 PRINT "TYPE X"
20 IF INKEYS () "X" THEN CT=CT +
EGOTO 20
30 X= RND(--CT)
This can be disguised in your program in
many ways. If there is a simpler way, 1 would
appreciate knowing about it.
Another major lack in Standard Basic is
the SQR(N) function. There is, however, a
simple algorithm which will accomplish the
same result.
10 ANSWER=NUMBER/ 10
20 ERRQR=(NUMBER, ANSWER +
ANSWER)*. 5
30 ANSWER=ANSWER + ERROR
40 IF ABS(ERROR) NUMBER*.001
THEN 20
What falls out for ANSWER after 4 to 8
iterations is a very close approximation to
the SQR(NUMBER). Try these, you'll like
them.
David W. Cochran
Norristown, PA
I would very much like to hear form other
amateur radio ops with an eye to
establishing some kind of net, perhaps on 75
meters. I also have info on how to go about
using CoCo on RTTY, slow scan, and CW. I
have appreciated the articles on amateur
radio; but I would like to see more.
Randall Brink
Everett, WA
BREAK, BREAK, BREAK
Editor:
Thank you for an excellent magazine! I
am a paraplegic, an electronics tehnician
and an amatuer radio operator. My amateur
call is WDOHNF. I hear quite a bit of talk
about CoCo on the ham bands. There is even
supposed to be a net on 20 meters devoted to
it, but I haven't been able to check in because
the net is mostly an east coast function.
LONG LIVE THE KING
Editor:
This is to let readers know I have found a
way to save high scores on Donkey King.
To accomplish this feat you need to load
Donkey King, then POKE 12850,127,
POKE 12851,0, POKE 12852,114. Then
resave the game. To do this, type 'SA VEM
"Donkeyl",12803,&H7FOO, 12803' ENTER
key for disk users. For tape users put a 'C'in
front of SA VEM (CSAVEM). The rest is the
same.
Now, when you get a high score in the high
score table and you're through playing, hit
'reset' and you will be back in BASIC
command mode.
Now for disk type 'SAVEM
"score",31670, 31790, 12803' enter, for
cassette put a 'c' in front of SA VEM.
When you play again and want your high
score back, first load Donkey King, then
load score and EXEC. Your scores will now
be reset. You must do this every time you
want to save a high score.
Chris Latham
Grants Pass. OR
Radio Shack's New Multi-Pak Interface
Here is a first look at the new Multi-Pak Interface just announced for the
Color Computer. It allows four Program Paks to be on line at a single time,
including the disk drive controller and theX-Pad. The left-hand side of the
Interface has an extension which plugs into CoCo's expansion slot. Any
one of the four Program Pak slots can be selected by either hardware or
software. Cost of the unit is $179.95.
An in-depth review of the Multi-Pak Interface will appear in next
month's Rainbow.
August 1983 the RAINBOW 13
PRINT #-2,
W!
r e're moving into the Rainbow's third year with this
issue and, first of all, I really do want to thank all of
you who were so kind to call and write us with good
words about our second anniversary issue. The mailman was
overburdened for a number of days with the letters and cards,
and I certainly thank all of you for letting us know what you
thought about the issue.
The jury is still out on the record. All of you, without
exception, said that you liked it, but the feeling was mixed as to
whether you would like to have a record every month or, at
least, several times a year. We'll let you know what's happening
as soon as we can decide.
While we were nursing the Rainbow into its third year, we
were giving birth as well. The first issue of our new magazine
for the TRS-80 Portable Computer —known now as PCM
— The Portable Computing Magazine — went to the printer's
â„¢ and, by the time you see this, should be in the middle of its first
month of life. I do hope you will check it out, because, more and more, I see the Portable Computer as
a very excellent machine that has a great deal of potential.
Doing the first issue of PCM was an interesting and fun experience. One of the most interesting was
the use of color in the magazine. Since issue Number One was only 32 pages, we were able to have color
available on every single page. And, while the use of color for editorial purposes was so much less than
is available in the Rainbow each month, the size of PCM makes it look simply loaded with color
We actually have more pages of color available in the Rainbow each month than any other CoCo
magazine has total pages! But, then, with more than 300 pages, it gets a bit spread out. In the Rainbow
we try to space the color so that it gets used where it will look the nicest. Sometimes it isn't easy and it
really is upsetting, sometimes, to have to go with black and white artwork on a really interesting
program. We run so much color that it seems we could do almost anything we want, but we can't We
do hope, though, that you find the Rainbow to be an attractive publication, as well as an interesting
and informative one.
It now appears that we will be sponsoring three — and possibly four — RAIN BOWJ est shows in the
next year. One of them is set for the east coast — in the New York/ Philadelphia/ Boston general area
A second will probably be in Southern California, most likely somewhere in the San Diego/ Los
Angeles area, although we are not counting San Jose out. The other "probably for sure" site is Chicago
again. It was so successful this year, we do want to go back.
As to general times, it looks like September/ October for the cast coast, January/ February for the
west coast (that's why Southern California is high on the list) and very late spring for Chicago
The possible fourth site? We'll just have to wait and see how negotiations go. But, plan to attend at
least one of the RAINBOWfests next year. You'll be glad you did!.
You have not seen much mention of the Rainbow Seal of Certification lately, but we are pleased
with the program and, judging from the mail we receive, you are, too.
We began the program after hearing "horror" stories associated with several other computer
markets about people who advertised products which never saw the light of day— and which quietly
died only after some people ended up with a lot of other people's money. We devised the Sea/program
simply because we believed such a repetition would harm the CoCo market, and we didn't want that to
happen. Remember, though, the Seal is not a guarantee of satisfaction, it is merely a certification that
a product does, in fact, exist.
Because the Seal was a Rainbow certification, we never asked anyone else to use it or accept it Still
I am very pleased at the spirit of cooperation which has been a part of the CoCo market so far as the
Sea/has been concerned. To my knowledge, only one publication in the Color Computer field has refused to use
(continued on page 296)
' Unlock
the full
potential of
your color computer
It's easy with the right keys.
The HJL-57 professional keyboard instantly upgrades your
TRS-80* Color Computer to a dependable, high-performance
machine with all the capabilities of systems costing
hundreds more.
If you've ever tried to enter a major block of data or do
word processing, you know that the keyboard is the major
limitation of the color computer.
Designed from scratch
To provide a total solution to the problem, the HJL-57 was
designed from the ground up, specifically for the Color
Computer (not an adaptation of a stock keyboard). The result
is a dependable, high-throughput keyboard that makes Input
less tedious, less time-consuming, and less distracting.
State-of-the-art, full-travel technology
A real keyboard with all the feel
and response to make you more
confident and reduce input
errors. Sculptured, low-profile
keycaps are ergonomically
designed to cut fatigue and
improve typing speed.
Compatible with all TRS-80* Color Computers
Including the F-version and TDP-100.* Layout is identical to
original CoCo keyboard PLUSfoursoftware-definable
function keys (one latchable), specially positioned to avoid
inadvertent actuation.
Built for heavy use
Manufactured under contract by a leading U.S. OEM, with
•Trademarks of Tandy Corporation
Compare before you buy
The HJL-57 was designed with your needs in mind. Why settle for lest?
Brand X
Brand Y
Switch technology
Function keys
Low-profile,
sculptured keycaps
Spill-proof contacts
RFVEMI shielding
Contact rating
Money-back guarantee
Full-travel
membrane
Four
(one latching)
100 million
cycles min.
No No |
No Ho
No No
Not i Not
specified | specified
—- â–
1
No 1 No
contacts rated for 100 million cycles minimum, rigidized
aluminum baseplate, and spill-proof construction, the HJL-57
comes with a full 1 -year warranty.
Quick and easy installation
Anyone can remove the old keyboard and easily install the
HJL-57 in just a few minutes, and the kit includes a new
bezel for a totally finished conversion.
RFI/EMI shielded
Meets FCC Article 15 requirements which become effective on
October 1, 1983.
15-day money-back guarantee
If you are not completely satisfied, just re-pack it (in
original condition, of course) and return it to us within
15days fora full refund.
CoCo owners go professional today
The keys to peak performance are yours for only $79.95.0rder
now to release the hidden potential and full value of
your color computer.
PRODUCTS INC.
955 Buffalo Road • P.O. Box 24954
Rochester, New York 14624
To: HJL Products Inc. ib
U Yes. I'm ready to go pro. Ship one HJL 57 keyboard
to my address below $79.95
Specify which model color computer you have:
PI Original (Sold prior to October, 1 982)
FT F-version (after October, 1 982) or TDP-1 00
U Shipping and handling 2 -°0
U New York residents add 7% sales tax
Total 5
Payment by:
C c.O.D. IJ Check or money order enclosed
□ Visa n MasterCard— Interbank No
Card No.__ Expires
Signature .
Name
.Dale
Street Address.
City
. State .
Zip-
Compiled from manufaclurets' published date available at press time.
To order by phone, call (716) 235-8358
Dealer inquiries invited.
%"
ETTER
OFTWARE COMPANY
P.O. Box 16842 - Sta. B
Greenville, South Carolina 29606
(803) 233 2700
PRESENTS
COLOR-STICK
The ORIGINAL interface for
rheTRS-80*
Color CompurerfQ let
you use the famous:
ATARI* JOYSTICK'
Just plug your Atari or Atari like
joystick (the Color-Stick enables the
use of most joysticks made for Ihe
Atari) into the Color-Stick interface
and then plug the Color-Stick into an
emply joystick port.
The Color-Stick can improve
scores 50% and more while making
some games more exciting and fun to
play.
Don't settle for cheap imitations.
Only the ORIGINAL Color-Stick's
small inline design allows you to just
piug your joystick into it and forget iL.
The Color-Stick becomes a part of
your joystick so it does not interfere
with your game playing. In addition
Color-Stick returns a full value of '63'
for the right and down directions,
even when using two joysticks and
even in the diagonal directions, the
others don't.
NOW Color-Stick has a
new low price
Color-Stick interface $12.95 each
two for $22.95 (less joysticks)
Atari joysticks $9.95 each
Det
ETTER
OFTWARE COMPANY
P.O. Box 16842 -- Sta. B
Greenville, South Carolina 29606
(803) 233-2700
Don't miss out order the
ORIGINAL. Send your check o'r
money order or better yet call
today and order your Color-Stick.
^
Add $2.00 per order shipping and handling. Bank cards
welcomed (please include expiration dale) Orders paid
by i ashiers check, money orders, bank cards and
COD. are shipped within 48 hour;. Peisuna] checks
please aliouj 1 ?, reeks. C.O.D. orders add $1:50 extra.
S.C residents add 4'\> sales lax * IKS 80 ts a registered
trademark of Tandy Corp, Atari is a registered
trademark ot Atari, Inc.
Building Augusts Rainbow
Beginning our third year . . .
The fun and games issue . . .
I have just noticed that there are three TV sets on in my house. And, since there Ye
only the two of us, this bears investigation. It turns out that my wife is in the hack
room watching Outland while, in the living room, two of our dogs are watching
something called Black Sunday. In the "computer room," formerly the den, my
word processing screen is watching me. Mostly, anyway.
Occasionally, 1 hit CLE A R "A" to clean up the copy and a CLE A R down-arrow
to recenter the last line. Somehow, this sets me to thinking that we are not in so
unique a situation, How many other families in America, and beyond, are gathered
around the household TV sets and computer monitors?
Every month, more than 100 computers are used to produce the Rainbow.
Really. Only a dozen of these are in the editorial offices here at Prospect; the rest are
in homes scattered across the U.S., Canada and Australia. Think about it. The
articles, programs— even letters to the editor— are generated on, and "written up"
on, computers. Perhaps 95 percent of submissions arriving at the Rainbow are in
machine-readable, magnetic media form.
What all this means is that the day of the electronic word has arrived at the
Rainbow. While we haven't yet devised a way to hook electrodes to Don Inman's
brain and patch a circuit directly to you, we can connect his innermost computer
sanctum to our typesetting machine.
Tor the first time last month, this column you are now reading appeared in its
final typeset, magazine format before ever touching paper! We hope that this will
mean less slips "twixt the cup and the lip." Toward that end, we are asking regular
contributors (and prospective ones) to submit not only their programs, but their
articles as well, in ASCII format to be compatible with our typesetting system.
While we still need a "hard copy" (as in double-spaced, typewritten, on paper),
we Ye trading our green visors and blue pencils for green-screen CoCos and push-
button editing.
Our focus this month is on games, and do we have a bagful— everything from
brainbusting toughies to borderline mindless! We'll leave it to you to categorize
them, but their style ranges from CoCo traditional (the Enrak Adventure) to
MC-10 mod (Tom Szlucha's mini-duet written especially for the Micro CoCo). A
personal favorite is Auto Designer by Joel Robbins.
As always, we have a full mix of CoCo offerings and a summertime special is
Dennis Wcide's Cash Register program, which he has tried and proven at many arts
and crafts fairs. Also in this August edition, electrical engineer Dan Downard takes
a look inside the new MC-10 Micro Color Computer. And cathode-ray tube test
engineer Mike Dubuc wins this month's Roy G. Biv Award for his Test Patterns.
While September is our education issue, Dr. Michael Plog joins us this month as
an education editor. His credentials are excellent. He is a program evaluator for the
Illinois State Board of Education, tn addition to reviewing interactive instructional
use of the Color Computer, he intends to set up a system to evaluate software and to
discuss development of materials, management of instruction, data exchange and
administrative management of information.
Our CoCo Clubs section is new this month. While it may not be an every month
feature, this section will be updated frequently— probably quarterly. If your club
isn't on our master list or your club information needs updating, write.
Installments of several series continue in this issue, including our gSO/tTsorting
utility and Bob Russell's CoCo memory map. And, if you haven't discovered our
Rainbow installment plan, here's a money-saving idea: subscribe now to the
Rainbow for just $22, and you'll receive 12 monthly installments of the CoCo's
most versatile peripheral.
— Jim Reed
16
the RAINBOW August J983
The Official
2» ^
> v
^ \&
fEUj
The game that puts space games in
perspective. Zaxxon'", one of the most
popular arcade games of 1982, is now avail-
able for use with your home computer
system.
Zaxxon'" technology and creativity present
a 3-dimensional-like playfield which sets
Zaxxon '" apart from other computer games,
Zaxxon'" looks and sounds like aircraft
flight, and players can soar to new levels of
home computer entertainment. From the
daring attack: on the enemy's floating for-
tress and the blazing battle against the en-
emy's fighter fleet to the final showdown with
the deadly armored robot, Zaxxon'" chal-
lenges the skill and imagination of every
player at every level nf skill.
Imagine yourself the pilot, attacking the
enemy fortress-climbing, diving, strafing to
score points and extra fuel. The enemy
fights back with a barrage of missiles and
gunfire. Then you face a fleet of enemy fight-
ers in a gripping dogfight of altitude strategy
and flying skill, Survive this battle and the
enemy's fortress, defended with laser bar-
riers, then you've earned the ultimate chal-
lenge; a blazing confrontation with the pow-
erful robot, armed with a lethal homing
missile.
Zaxxon " is the one game that you must see
to believe. You have to play it to feel its im-
pact. If you're ready to face the challenge,
check with your local software dealer or
send check or money order with £2,00 post-
age/handling. California residents add
6Vb% sales tax. Available on cassette or
diskette. Suggested retail price $39.95.
Available in January on Atari", February on
Apple' and Radio Shack" Color, and April
on Tl 99/4A" and NEC 6000".
Datas
COMPLJTFR SOFTWARE
9421 Winnetka Avenue
Chatsworth, CA 91311
(213)701-5161
c1982Datasoft* inc.
Dataaott ' is a res istered trademark of Daiasofi Inc. '
and zaxxon"' are registered trademarks ol Sega Enmronses Inc
r<CotorQuesf
TM
GAMES
For The TRS-80 Color
and TDP System 100
Fast Machine Code • Hi-res Color Graphics • Exciting Arcade Action and Sound
Fpmflftta' _ n BEVUND THE CIMEEDN MO0N T
Revenge
3-D GRAPHIC ADVENTURE
Make love not war? Not with these sultry FEMBOTS! What a
tale you'll tell IFyou live to tell it! Cold steel neverfeltsoHOT!
The color and excitement of ARCADE ACTION combined
with the sophistication, intellectual chaileriyeand skill ot an
ADVENTURE GAME doesn't fully describe this cosmic
shoot'em up.
16K Tape $29.95 32K Disk $34.95
â– UIBBLER"
by Tom Czarnenki
The ONLY Ms. game around. A
must for your PAC-like game
collection.
16K Tape $19.95
16K Disk $24 95
TflS-80 is a trademark of Tanfly Corp
by Kevin Herrboldt & Tim Nelson
3-D GRAPHIC ADVENTURE
A dead star ... A derlict vessel ... or is it"? Trapped
within you must venture the corridors; defend yourself
against the merciless gauntlet of agentsof the machine
mind. A r&il-time, high-res. 3-U science fiction
adventure game of mind-blowing magnitude
16K Tape $24.95 32K Disk $29.95
Adventure
trilogyâ„¢.
by Kevin Herrboldt & Tim Nelsnn
3-D GRAPHIC ADVENTURE
Clash steel with thy foe in the arena of gore. Proved
worthy, go in quest of the elusive Eye of Dazmor. If ye
findest the orb, hast ye the might to ward off skem and
the fortitude to restore the Eye? The ultimate high-res,
3-D quest for even the most experienced adventurer!
16K Tape $24.95 32K Disk $29.95
For Orders
ONLY Call
Toll Free
1-800-328-2737
Fast Machine Code • Hi-res Color Graphics • Exciting Arcade Action and Sound
JNTERCEPTQR
by Scott Snyder
Goes beyond "DEFENDER"
and "STARGATE" to otter the
must realistic ARCADE
simulation possible. Warp
speed action, multi-colored
terrain and long-range viewer
make this game tops.
16K Tape $19.95
32K Disk $24.95
<oaiwi£WMr
by Dan Nelsun
Why fly to VEGAS when you can have a
casino at home! The VEGAS GAMEPAK is
five action packed games with great
graphics & sound. SLOT MACHINE -
BLACKJACK- UP AND DOWN THE RIVER
- CRAPS & KENO.
16K Tape $19.95 16K Disk $24.95
kS°
O
by Tom Czarnecki
Fast paced maze chase game will 16K Tape $19.95
entertain the entire family. 16K Disk $24.95
EolorQuesf
A Division of SoftlawCorp. 612/881-2777
9072 Lyndale Ave. So., Minneapolis, MN 55420
AUTHORS SUBMISSIONS ARE ENCOURAGED
Available at Dealers everywhere.
It you Dealer is out of stock ORDER DIRECT!
itwer-Mze
by Tom Czarnecki
Shades of smartbombs and hurtling comets' Defending
your planet from invasion was never so challenging.
Disruptor fire is your main defense against the fierce alien
attacks.
16K Tape 519.95 32K Disk $24.95
ORDERING —
Customer service and product support call (612) 881-2777
Make checks or money orders payable to Nelson
Software Systems. Personal checks allow 3 weeks.
MAIL ORDERS: $2.00 U.S. Shipping ($4.00 CANADA
$10 OVERSEAS) Add $2.00 for C.O.D.
ORDERS SHIPPED SAME DAY!
RAINBOW
A Challenge For Psychic
And Sleuths
By Bob Dcll)(>uri>'o
crsiuiis of the Mastermind game
abound. This one, I think, is
dificrcnt, more versatile and
-hallt-nging It can be played with
number characters or with Iri-
ol times in the hidden combination (as
clear] j happens in some words). Any
inimher of persons can play. You can
play solo in Numhermiml, but Letter-
mincl requires ;ii least two players, be-
cause only true words a re concealed and
program. Scoring is 10 points for every
character correctly found and positi-
oned; 2 points for every character cor-
rectly found but not correctly positi-
oned, and -I point for every guess after
the first. Dp to 15 guesses are permitted.
()1 course, scores are updated aftereach
round,
I have restricted the number of hid-
den characters (N) to a maximum of
eight, as there is simply no room on
your video screen to display any more
than M x 15 guesses, although in princi-
ple t he anab sis ( lines 14 to 40. and K4 to
90) extends to any number of charac-
ters. Scoring is such that novices to the
game can, without grave penally, start
with a small number ol hidden charac-
ters, (two or three lor example) and
build up to larger values as they develop
their mental reflexes. Expert players are
invited to risk more by attempting large r
values (six or more), iven they will find
oighi hidden characters hard lo crack in
L * â–
â– j. *
i
>
1
i i
â–
1^-—
AH set? Thinking caps o
20 lh* RAINBOW August 13B3
f 1 ..
..0176
T ' 16...
. 04BD
30...
. 06F1
43...
. 08A3
58...
. 0AA6
70...
. 0DE9
91...
. 10E2
END.
. 12FB
The listing:
1 CLS0 I P0KE359 ,13: SCREEN0 , 1 : FOR I
« 1 024TO 1 534STEP2 : R=RND < 26 > : S=RND
(8) : POKEI , R: POKEI+1 , 127+16*S: NEX
TI
2 PR I NT@235 , " MASTERM I ND " ; : PR I NT@
427, "r.delbourgo";:PRINT@456, "15
, willowdene av."; :PRINT@4S1, "hob
art, tasmania, austral ia7005" ; : PL
AY " L30V30C 1 C02C03CP4C05C04CD3C02
CO 1 CO2C03C04C05C04C03C02C0 1 CP 1 "
3 CLS0 : PR I NT@ 1 69 , " LETTERM I ND ( L)
"5 :PRINT@238, "OR"; :PRINT©297, "NU
MBERMIND (N) '< ;
4 I*=INKEY*: lFl*=""THEN4
5 IFI*="N'*THEN8
6 IFI*="L"THEN59
7 SQT04
S CLSIPRINT" --NUMBERMIND INSTR
UCTIONS — ": PRINT
9 PR I NT "THIS COMPUTER VERSION OF
THE POPULAR GAME USES THE TR
S-80C GRAPHIC CHARACTERS."
10 PR I NT "THERE ARE 8 DIFFERENT H
IDDEN COLOURS AND YOU CAN CHO
OSE YOUR LEVEL OF DIFFICULTY BY
HAVING UPTO 8 HIDDEN CHARACTERS.
11 PR I NT "YOUR GUESSES ARE ENTERE
D AS COLUMNS. AFTER TYPING I
N NUMBERSACCORDING TO A COLOUR C
ODE, THE COMPUTER ASSESSES YOUR
GUESS: f
12 PRINT"R=# CHARACTERS RIGHTLY
PLACED": PR I NT "W=# CHARACTERS WRO
NGLY PLACED" : PR INT" T=# GUESSES
II m
13 FORX = 1TO5000.-NEXTX
14 PRINT" ANY NUMBER CAN PLAY AN
D EACH PLAYER HAS UP TO 15 GU
ESSES. ": PR I NT" SCORING IS 10*R+2*
W-T+l":PRINT"NOTE THAT CHARACTER
S MAY WELL BEREPEATED! ": PR I NT: PR
I NT "GOOD LUCK AND GOOD THINKING!
" : PRINT: FORX=1TO5000: NEXTX
15 CLS0: INPUT "ENTER NUMBER OF PL
AYERS" ; P: DIMS (P) : DIMN (P) : DIMP* (P
> :dima$<p> :dima(8,P) :dimb(8,p> :d
IMC<S,P>
16 FORJ=lTOP:PRINT"PLAYER #"J'\
YOUR NAME"; : INPUTP*<J> :NEXTJ
17 forj=itop:fori=itos:a(I,j>=0:
B ( I , J ) -0: C ( I , J ) =0: NEXTI , J
18 F0RJ=1TDP
19 CLS0:PRINTP*(J)5", HOW MANY C
HARACTERS? (MAXIMUM OF 8
> "; :inputn(J) :n<J)=int<N(J>) :if
N<J> >80RN(JX1THEN19
20 T=0:R=0:W=0
21 f0ri = 1t0n(j):r=rnd(8) :bu,j> =
r:c(I, j)=r:nexti
22 cls0 : pr i nt@0 , " t " i : pr i nts32* < n
<J>+1> , "R"5 :PRINT@32*<N(J)+2), "W
";:PRINT@416, "COLOUR CODE IS:";:
F0RI = 1T08: PRINT@443+8*I , "« M | J ; : N
EXTI23 F0RI=1T08:PRINT@442+8*I,C
HR* < 127+16*1 ) S : NEXTI
24 T=T+ 1 : I FT > 1 5THEN47
25 F0RI=1376T01439: POKEI , 128; NEX
TI;PRINT@352,P*(J) ; ", YOUR GUESS
"; : INPUTA*(J) : IF LEN(A*(J) )<>N(J
> THEN25
26 PRINT@384, "IS THAT CORRECT <Y
/N>?";
27 I *= I NKEY* : I F I *= " " THEN27
28 IFI*="N"THEN25
29 IFI*= H Y"THEN31
30 G0T026
31 FORI=1408TO1439: POKEI , 128: NEX
TI:FORI=1TON<J) :A(I, J)=VALCMID*(
A*(J) , I, 1) ):nexti
32 PRiNTS2*T s HEX*(T) ; :FQRI=1T0N<
J ) : POKE 1 024+T*2+32* I , 1 27+ 1 6*A ( I ,
J):NEXTI
33 R=0:W=0:FORI=1TON(J) :C<I,J)=B
(I, J) :nexti
34 FQRI=1T0N<J> : IFA(I, J)=C(I, J>T
henr=r+i : A ( I , J) =0: c < I , J > =0
35 NEXTI
36 FORI=lTON(J> : IFA < I , J ) =0THEN40
37 FORK=I+lTOI+N(J)~l:L*K-N(J)*I
NT( <K-1)/N(J) )
38 IFA(I, J)=C(L, J) THEN W=W+l:A<
I , J') -0: C (L, J ) =0: GOTO40
39 NEXTK
40 NEXTI
41 PRINT@32*(N(J)+1)-1+2*T,R; : PR
INT032* (N < J) +2) -1+2*T, W;
42 IFR=N(J) THEN 44
43 GOT024
44 FORH= 1 T06 : PLAY " O4L255T255V30A
BCDGEEADFCBFGEAD " : NEXTH
45 CL50:PRINT"WELL DONE!"
46 G0T049
47 FOR I=1376T0 1439: POKEI, 128: NEX
TI : PR I NTS352, "YOU'VE BLOWN IT, "
i P* ( J ) : PLAY "01 T255L255V30GFEDCGF
EDCGFEDCGFEDCDDDDDD" : PRINTH384, "
HIDDEN SET IS " ; : F0RI=1T0N ( J) : PO
KE1421 + I, 127+16*Bd, J> :NEXTI
48 FORX=1TO5000:NEXTX:CLS0: PRINT
August 1983
the RAINBOW
21
"TRY HARDER! "
49 S(J)=S<J)+10*R+2*W-T+1
50 PRINT:PRINTP*(J) i ", YOUR SCOR
E IS"S(J):FORX=1TO2000:NEXTX
51 NEXTJ
52 cls0:print@0, "
scores": pr i nt
53 forj=itop:printp*<j> ,S(j>:nex
TJ
54 PR I NTS4B6, "ANOTHER ROUND? (Y/N
)";
55 I *= I NKEY* : I F I *= " " THEN55
56 IFI*="Y"THENG0T017
57 I F I *= " N " THENCLS0 : END
58 G0T055
59 CLS:PRINT" — LETTERMIND INS
TRUCTIONS — " : PRINT
60 PR I NT "THIS GAME REQUIRES TWO
PLAYERS AT LEAST. EACH PLAYER H
AS UP TO 15 GUESSES TO FIND A HI
DDEN REALWORD (UP TO 8 LETTERS;
PLEASE NO PLURALS) ENTERED SEC
RETLY BY ANOTHER PLAYER. "
61 PR I NT "GUESSES WILL BE ENTERED
AS COLUMNS AND THE COMPUTE
R WILL ASSESS EACH GUESS AS FO
LLOWS: "
62 PRINT"R=# LETTERS RIGHTLY PL A
ced":print"w=# letters wrongly p
GET THE MOST FUN
AND WORK FROM
YOUR COCO
GOLF-" PLAY 18 HOLES AT
ANYTIME 1 TO 4 PLAYERS
GRAPHICS AND SOUND
S19.95 CASSETTE
$24. 95 — DISK
LOANMYNDER :
FIGURE LOAN VARIABLES
PRINT AMORT I Z ATION
$1 9.95 CASSE TTE
S 24.95 m^m D I SK
EXTENDED BASIC REQUIRED
SEND FOR COMPLETE
PROGR AM LIST
ACCESS PROGRAM MARKETING, LTD .
PO BOX 23275
CHARLOTT E, NC 28212
LACED":PRINT"T=# GUESSES"
63 PRINT"SCORING IS 10*R+2*W-T+1
": PR I NT "GOOD LUCK AND GOOD THINK
IN6E"S '
64 FQRX-1TO5000.-NEXTX
65 CLS0: INPUT "ENTER # OF PLAYERS
<>1)"5P1:DIMQ(P1):DIMMCP1):DIMP
1*<P1)
66 FORJ=lTOFl;PRINT"PLAYER #"J",
YOUR NAME"; :INPUTP1*( J) : NEXTJ: D
imbi*(8,pi):dimai*(8,pd:dimci*(
8,pi):dime*<pd:dimd*(pi)
67 FQRJ=1T0P1 : F0RI = 1T0S: Al* < I , J >
="":bi$(i,j)="":ci*(I,J)="":next
I, J
68 FORJ-1TOP1:CLS0:PRINT"ENTER t
HE HIDDEN WORD (3 TO 8 LETTERS
LONG) FOR ";P1*(J> ; : INPUTD*(J) :
M(J>=LEN(D*<J))
69 IFM(J)>8 OR M(JX3THEN68
70 NEXTJ
71 FORJ=lTOPl
72 T=0:R«0:W=0
73 CLS0 : PR I NT@0 , " T " ; : PR I NTG32* < M
(J)+l> , "R" j:PRINT@32*CM(J)+2) , "W
"; :PRINT@416, "HIDDEN WORD IS"M(J
) "LETTERS LONG"
74 F0RI=1376T01439:P0KEI,128:NEX
TI:PRINT@352,P1*<J>", YOUR GUESS
" ; : inpute* ( J> : iflen ce* ( J) ) <>m ( J)
THEN74
75 PRINT@384,"IS THAT CORRECT (Y
/N)?";
76 I*=INKEY*: IFI*=""THEN76
77 IFI*="N"THEN74
78 IFI*="Y"THEN80
79 G0T076
80 FORI=lTOM<J):Al*(I,J)=MID*<E*
<J), I, 1>:B1*(I,J>=MID*(D*(J),I,1
>:Cl*(I,J)=Bi*<I,j) : NEXTI
81 IFT>15THEN98
82 PRINT@2*T+2 s HEX*<T+l>5:FORI=l
TOM ( J ) : PRINT@T*2+2+32*I , Al* ( I , J )
5 :NEXTI
83 R=0:W=0:FORI=1TOM(J):C1*(I,J)
=bi*<i, j> :nexti
84 fori=ltom<j): ifa1*ci, j>=c1*(i
, j)thenr=r+1:a1*<i,j)="":c1*(i s j
85 NEXTI
86 FORI-ITOM(J) : IFA1* ( I , J) =" "THE
N90
87 FORK=I + iTOI+M<J>-~l:L=K-M<J)*I
NT((K-1)/M<J>)
88 IFA1*(I,J>=C1*(L, J)THENW=W+l:
AI* < I , J> =" " : CI* (L, J) =" " : GOTO90
89 NEXTK
90 NEXTI
91 PRINT@32*(M(J)+1)+1+2*T,R; : PR
INT@32* (M ( J) +2) +1+2*T, W!
22
the RAINBOW August 1983
PETROCCI FREELANCE ASSOCIATES
PROGRAM DEVELOPMENT: Computer Software
Documentation / Graphics / Consultation
^ All programs now on DISK ^
Inspector CLUEseau
Sherlock Holmes/Agatha Christie fans-lt'sfinally here— A murder
mystery game for the 80-C! Mr. Goodbody has been killed in his
mansion and you must solve the mystery. WHO committed the
murder, WHERE did it occur and HOW was it done! Question
suspects, find the secret passage, and break the code to get clues.
Hi-Res graphics enhances this excellent game The computer
records the clues you obtain on a clue inventory screen and also
provides suspect descriptions at the touch of a finger. A fast, fun
game that will sharpen your deductive skills. Every game is
different!
32K Extended $19.95
Stress Evaluator
Assess your present level of stress and how it affects your
potential for illness. Evaluate the amount of life change you can
effectively handle in the future. The Stress Evaluator is a valuable
tool for recognizing, measuring and managing stress. The
program also provides a Coping Ability Test which shows your
ability to handle stress in general. Provides goal setting exercises
and meditation graphic screens to help achieve stress-alleviating
goals. All results output to printer.
16K Extended $2495
Weather Watch
If you really care about the weather, this program is for you. Three
programs provide you with National Weather Service approved
statistics in a monthly report format. Input of daily high and low
temp, and rainfall outputs a report of monthly average temps, and
range, high and low averages; high and low temp, for month; total
rainfall; days rain > .1 in.; heating and cooling degree days; days
high > 90; days low < 32; days low temp, < 32 and > 0; days low <
0; day of highest range. Also retrieves a single day from data file
for review. All data outputs to printer. Well documented.
16K Extended $24-95
Forecaster & Weather Watch (Disk)
Forecast general weather conditions with 80% accuracy with this
fun, simple to use program. Although not meant to replace
National Weather Service forecasts, this program is informative
and enjoyable to use. You can even create your own weather by
setting the variables!! Provides general forecast including pre-
cipitation probabilities. Includes Weather Watch program also all
on one easy to use disk,
32K Extended Disk $49.95
Include $1.50 for handling for each program.
Az. Residents add 6% Sales Tax.
Quantity Discounts to Dealers.
CIS subscribers contact through EMAIL 70435,754
Stagecoach
R0CCI FREELANCE ASSOCIATES
Enter the Wild West Days as you try to carry gold across the
desert in a stagecoach. Hot in pursuit are the James Gang and of
course, Indians!! To make matters worse you are responsible for
the safe journey of Annabelle, the judge's daughter. Hi-Res
graphic screen plots your progress. Lots of fun surprises await
you in this game -shootouts, kidnappings and more. Don't miss
the fun!
16 K Extended $19.95
2§v 651 N - Houghton Rd.
Tucson, AZ. 85748
602-296-1041
Heart-Lung-Circulatory Systems
Hi-Res Graphic Education
A difficult subject becomes fun and easy to learn. Programmed
learning approach divides subject content into concise frames
of information. Hi-res graphic display with labelled anatomical
structures follows text frames for added clarity. Visually high-
lights keywords and concepts. Self test questions follow each
section. Provides immediate feedback to user response and
displays correct answers before moving to new subject matter.
Excellent for school or home use.
32KEXT Cassette $34.95
32KEXT Disk , • • • • $39.95
Bowling Secretary
^V^Tucs
Save hours of tedious work with this efficient program. Calcu
lates individual player average, high game and total pins, as
well as team games won/lost, high series, and cumulative total
team pins. Also calculates team standings for each week in
order from 1st to last! All data stores to tape and outputs to
printer to provide professional, easy to read copy. After initial
input of league and player names all you have to do is input
each week's scores - the computer does the rest!!
16KEXT Cassette . $24.95
32KEXT Disk $ 2995
Astrology Chart Print
A Must for the Serious Astrologer
Bothered by not having a professional easy to read hard copy
of your chan? Want tu see comparison charts around the Natal
Chart? Look no more! Input of planetary positions and house
cusps outputs a 6"x5" graphic printout of chart and will also
plot a comparison chart (transit, progressed or compatibility)
around perimeter of the natal chart. NOT A SCREEN DUMP
ROUTINE. The program uses dot addressable graphics to
draw chart with accurate planetary positioning. Top of form
lists Name, Birthdatc, Birthtime, Birthplace from user input
Accomodates Placidean, Equal House or Modified Equal
House. AVAILABLE NOW FOR EPSON
MX80 with Graftrax
32KEXT Cassette $21. 95
Medical Terminology
If you've ever wondered what your doctor was talking about,
this program can help! Includes most common terminology as
well as abbreviations used in hospital charting. Menu Driven
-allows choice of study, definition readout or self test. Study
suffix, prefix or abbreviation in alphabetical groups. Input
prefix, suffix or abbreviation and computer reads out definition
(not meant to be an all inclusive dictionary). Provides multiple
choice self tests with immediate reinforcement and correct
answer displayed. Suffix/Prefix on one program. Abbreviations
on 2nd Program. Both included.
32KEXT Cassette $19.95
92 IFR=M(J)THEN 95
93 T=T+i: IFTM4THEN98
94 G0T074
95 FORH= 1 T06 .* PLAY " O4L255T255V30A
BCDEEADEFCBGEAD" : NEXTH
96 CLS0:PRINT"WELL DONE!"
97 B0T099
98 F0RI=1376T01439:P0KEI, 128: NEX
TI : PR I MT@352, "YOU'VE BLOWN IT, "
5 P 1 * < J > .- PLAY " 1 T255L255V30GFEDCG
FEDCGFEDCGFEDCDDDDDD" : PRINT@384,
"THE HIDDEN WORD WAS "5D*(J);:FO
RX=1TO3000: NEXTX: CLS0: PRINT"TRY
HARDER ! "
99 Q<J>=Q(J)+10*R+2*W-T+1
i00 print:printpi*<j) ; ", your sc
ORE IS"Q ( J) : FORX=1TO2000: NEXTX
101 NEXTJ
102 CLS0:PRINT@0, "
SCORES": PRINT
103 FORJ=lTOPl:PRINTPl$(J> ,Q(J> ;
NEXTJ
104 PR I NT@486, "ANOTHER ROUND? (Y/
N>";
105 I*=INKEY*: IFI*=""THEN105
106 IFI*«"Y"THENG0T067
107 IFI*="N"THEN CLS0: END
109 GOTO 105
Software Review
To Everyone: We Carry
Prickly - Pear Software
Ngw This Month
Adventure In
Wonderland
Retail Tape 24.95
Disc 29.95
Our Price 20.00
Disc 25.00
Buy Bpth-Tape 37.50 Disc 45.00
Disk Zapper
Retail 34.95
Oar Price 26.00
Flight
Monsters & Magic
* Viking
* Gangbusters
Jungle
Eight-Bit Bartender
Household Helper
Topsy Tyrvy
Football
The Fantasy Master's Sec.
* Fantasy Gamer's Package
Tarot
** I Ching
** Numerology
Retail Tape 19.95 Disc 24.95 I
Our Price 14.75 Disc 18.75 |
** All 3 tapes 39.95 Disc 44.95
* Available for Model 100
Amdek Disc available add 2.50 per program. Includes $1 per
item shipping max. $4.00. AZ residence add 7% tax.
7331 E. Beverly Drive
Tucson, RZ 85710
(602)885-6508
Mathwar Offers
Skill Drill Plus Game
No one is talking to mc at home. My children think I'm
cruel and selfish. I spend hours at my CoCo playing an
elementary arithmetic tutor. Sounds crazy, huh? It all
started when I received Mathwar by Harmonycs to review.
After reading the very brief documentation, which ade-
quately explains how the program is used, I CLOADedit. I
had to choose the skill I wanted to work on; addition or
subtraction and then a skill level. When the gameboard
appeared, I couldn't believe my eyes! On the screen was one
of my favorite games. Sometimes I find it on restaurant
tables in the form of a triangle. The object is to eliminate
pegs by jumping over them until only one is left on the
board. There are many names for this type of game, but I
know it as Hi-Q. In order to play Mathwar, you have to
choose a move by selecting a fighter and the space for it to
jump to and then correctly answer arithmetic questions that
are given at a predetermined level of difficulty: There are
four choices here. In levels one and three, the numbers being
added or subtracted are not higher than 19. Levels two and
four have numbers that go up to 99. Also, levels one and two
require no borrowing or exchanging, whereas levels three
and four do. Incorrect answers are key beeped, but no other
negative feedback is given. When only one fighter is left or
no more legal moves are possible, the screen clears and a
"YOU WONTmessage appears. A new screen then gives the
percentage of correct answers to the math questions.
The publisher recommends, and I agree, that an older
child or adult assist the younger child the first few times he
plays. The game portion could be a little complicated at first.
The program is written so that unnecessary keystrokes and
difficult input methods are eliminated and the child will
have no difficulty in handling it himself in a short time. The
author purposely does not make any recommendations as to
age or grade level because each child's individual abilities
should always be kept in mind. I observed children aged
eight to 12 playing and their reactions were very positive. I
believe the math skill level is most appropriate for eight to 10
year olds. Interest is maintained because both the math
questions and gameboard are different each time. As
expected, the children definitely enjoyed the challenge of the
game more than the math problems.
In my estimation, Mathwar is a terrific program for kids
of all ages.
(Harinonycs, P.O. Box 1573, Salt Lake City, Utah, $11.95
tape)
—Stephanie Snyder
Formerly distributed only by ZETA"''
SOFTWARE, we have the original FOOTBALL
FORECASTER 1 with 1983 data base.
Available for 16K ZX-81T/S 1000 or 16K TRS-80
Color Computer. Specify NFL or College, Only
S19.95 each or 529,95 for both. Add $1.00
P&H, Ark, residents add 4% Tax. '
HAWG WILD SOFTWARE â„¢
P.O. Box 7668
Little Rock, Arkansas 72217
24
the RAINBOW
August 1983
& £
Elite Sofatu/ate
ft ir
Fly your spaceship
through enemy
starbases. Can you
reach ZAKSUND?
â– 3D color graphics
â– Fast pace
â– Exciting action
â– Synthesizer sound
â– 2 playing levels
â– Machine language
32K
$24.95 Tape
$27.95 Disc
COLOR COMPUTER WORKSHEET
ELITE-CALC is a powerful, full featured worksheet
calculator for your Color Computer. The all machine
language program will help you answer "what if"
questions, prepare reports, maintain records and
perform other tasks. Has all the features you want.
Individual cell formulas • Copy blocks of cells • Full
cell-edit capability • Sorts • Graphs • Easy to use •
Works with all printers •
THE BEST FOR ONLY
DISC $M M95
Elite-Calc
or TAPE
*44 9
UTILITIES
DISK MANAGER-Copy any program (or file) to
another disk with only two key strokes Kill disk pro-
grams with the same ease. All menu driven. A must
for disk users. 16K $22.95 Disk only.
TAPE DUB — Make personal copies of Basic and
Machine Language tapes with ease. Completely au-
tomatic, menu driven. All machine language. 16K
$19.95 Tape, or $22.95 Disk.
REPEAT KEY— Have your keyboard automatically
repeat the key that was held down. It's great when
you're typing programs! Position independent code.
Machine language. Both 16K and 32K versions for
$14.95 Tape, or $17.95 Disk.
LLISTER— Would you like to have program listings
that "page break". How about program listings with
nice margins? Works with any printer. Machine
language. 16K $14.95 Tape, or $17.95 Disk.
SHRINK— Eliminate all unnecessary spaces from
any Basic program. Get more program into your
memory. Machine language. 16K $14.95 Tape, or
$17.95 Disk.
• Shipping from stock NOW
• Dealer inquiries invited •
ARTIFICIAL
INTELLIGENCE
^ue<M the cMnimed
A
GUESS THE ANIMAL-A machine language,
artificial intelligence program for the Color Com-
puter. You must play it to believe it. Think of an
animal, and this software will try to guess it using
your clues. Watch this program learn, and use your
clues. See it respond with questions. The longer you
play, the smarter this program becomes. 16K
$17.95 Tape, or $20.95 Disk. (Both Animals and
Body Parts $24.95 Tape, or $27.95 Disk.)
{Bawdy Parts)
Have fun with artificial intelligence. This take-off on
Animals is a riot. See if this program can guess the
body-part you have in mind. The program learns,
and responds with questions. If you give it x-rated
clues, it turns into Bawdy Parts. 16K $17.95 Tape,
or $20.95 Disk. (Body Parts and Animals $24.95
Tape, or $27.95 Disk.)
» * *
COLOR TUTOR-An exceptional program for
Language, History, Math and Vocabulary drills. You
enter questions and answers. Program randomizes,
presents questions, keeps lesson score. Store
lessons for future use. Excellent for you or your chil-
dren. 16K Ext. Basic $19.95 Tape, or $22.95 Disk.
LOAN PAYMENT CALCULATOR-A fast and easy
way to calculate what a monthly loan payment will
be. Amount of loan, interest rate and length of loan
are displayed; along with your calculated monthly
payment. You change any item, and your new
monthly payment is displayed. Output to a printer if
desired. If you are going to buy a new car, stereo, or
house . . . this program was written for you. 16K Ext.
Basic $1 7.95 Tape, or $20.95 Disk.
lliBinr in
^^^n
• Add $1 Postage and Handling •
• PA residents add 6% sales tax •
COMPUTERWARE ®
BIO DETECTOR
TM
Learn about yourself & others using to
day's technology & yourCoCo! Finger
sensors lead to the Bio Detector that
plugs into a joystick slot. Just load the
program & wrap the finger-grips on the
subject. Results will be graphic!
The Bio Feedback Program graphs
galvanic skin response on the screen,
Watch yourself key-up & relax! The
Anxiety Attack Game is fun for all
ages. You can't lie to Bio Detector!
(Based on current lie detector
techniques)
Bio Detector includes all hardware, soft-
ware & instructions. Silver contacts give
greater contact. Adjustable grips fit
anyone. Be the first on your block to
"hook up"!
FDisciainisr: This Js a toy. fte&uJts n*?l admissible In court.)
Video Plus
connects the Color Computer to a composite video monitor
(color or monochrome) with NO SOLDERING!
s 24
95
II 'If f<
Comrex Green Screen $ 99 96
Taxan Amber Screen s 154 95
Amdek Color I s 349 96
we c a
JOYSTICK — just like in
the arcade
s 2 7
95
REDBALL — easy grasp, top button
5 32 s
■ADAPTOR — for Color Computer &.
WICO (or any Atari compatible joystick)
M8 9S
PUTERWARE ®
Computerware is a trademark of Computerware.
for all your
DISK
DMVCS
Our disk systems use top-quality drives plus
cables, controller, Radio Shack DOS & manual.
New half-size drives available for only "30 extra
per drive.
Single drive, single sided
Single drive, double sided
Dual drives, single sided
Dual drives, double aided
$44900
s 549 00
572500
S895 00
Amdisk - NEW 3Va " dual drives *665 00
SIGNALMAN MODEM I
Special model forthe Color Computer includes all cables
plus free subscription to the Source.
SQQ00
(reg '120) 27*7
loan-
JOYSTICK
>49
95
(reg W)
high performance with linear pots & switch
selection between self-centering or free-floating modes
SUPER-PRO KEYBOARD
>69
95
a real professional keyboard
that's easy to install, looks & works great!
We carry C, Itoh (NEC) & Epson printers
with complete interface & cables for the Color Computer.
Call for today's low prices!!
P.O. Box 66S • Encirvitas, CA 92024 • (619) 436-3512
color computer wank and needs!
TIME PATROL DOODLE BUG HYPER ZONE
Travel thru a time
warp, meeting
unique foes &
friends,
32K Cass S 24 9S
32K Disk s 29"
EL DIABLERO
Lost In the desert
you challenge the
evil sorcerer,
l6KCass s 19 M
32K Disk $ 24* 6
No. 1 Best Seller has
great graphics,
sound, & play,
16K Cass s 26» s
16KDi3k S 29 9S
GRAN PRIX
Dynamic racing
action with graphics
& sound.
32KCass s 21 B=
32K Disk s 26 as
THESOURCERER
Produces symbolic annrne r:ode
that can be assembled. Disas-
sembles to disk, tape, printer,
or screen. Position independent
code, User defined symbol/label
buffer area 4 formats: hex
dump, ASCII dump, full listing
& symbolic mode. And more!! A
programmer's dream! FAST!
16K Cassette
16K Disk
s 34 «
S3995
Way out 3D graphics
from the cockpit of
your spaceship!
32K Cass s 26 es
32K Disk s 29" s
MOON HOPPER
Traverse terrain, hills
& craters while
shooting off
enemies.
32K Cass s 24 95
32K Disk s 29 as
NERBLE FORCE
Defend your planet below &
save the humanoid from at-
tack with only ONE joystick.
16K Cass S 24 9S
1BKDisk s 29 BS
iczifre
IVi
MACROASSEMBLER
Complete word processor that's
simple to learn A use. (Incl, left &
right justification, centering,
pagination, headings, footings, &
more). Pius a great program editor
for BASIC, PASCAL, "C? &
assembly language. Edit files
larger than memory!
(Req. 32K Disk) s ^g fls
Tops in the reviews! Complete macro conditional assembler (2 pass) with library
files, repeat sequences, cross reference and FIND programs. Uses standard ASCII
source files of any size.
32K D:sk w/'RSDOS. . .MS 85 64K Disk w/FLEX, .'SO 01
BLOC HEAD
Hop atop pyramids
of cubes, dodging
the evils.
16KCass s 26 BS
16KDisk s 29 9S
PAC ATTACK II
Top version of the
classic — astound-
ingly real!
16KCass s 24* 5
16K Disk s 29 95
BEYOND THE JOYSTICK
Semi-Draw:
Use your joystick or key-
board to draw color pic-
lures on the screen [or
dump on C. Itoh or NEC
8510. LPVII, or LPVIII
printer). (Req. Ext. Basic)
32K Cass 5 21«
32 K Disk s 26"
3-D Drawing Board:
Draw 3-D objects on the
screen, then rotate or
cnange elevation, size or
distance, Save your work
to tape or disk. Fun for art
inclined! (Req. Ext. Basic)
16K Cass s Z4 8i
32K Disk ! 29 si
Foxy Grafâ„¢:
Complete hi-res graphics
development package
with extensive documen-
tat ion for asocmcly
language programmers.
Comprehensive tutorial &
AL programming tool.
16K Cass^S* 5
32K Disk 5 34 t5
PASCAL:
A nice compact version
for learning structured
programming, Call or
write for complete
brochure. (Includes
program editor)
32K Cass ! 49"
32K Disk s 79"
Home Money
Manager:
Organize your income &
expenses. Record each
transaction by account
code. Not only balance
your checkbook print
summaries that tell you in
a nutshell how much you
spent on what & where
your income came trom!
(Req. Ext. Basic & printer
for reporis)
32K Cass 5 T9"
32K Disk =29"
This ain't all! See our prior ads then cat) or write for a complete catalogue of books, hardware, software, etc.!
Flexi-Filer
A comprehensive & flexible data base system.
Collect; up to 35 elements per
record, up to 240 characters per
record, Unlimited file size, 5 data
types.
Organize: you choose how data is
stored & displayed,
Select: a subset using <. >, =,
and, or with 36 different criteria-
Sort: all or any subset ascending
or descending by any field.
Report: custom design reports &
labels incl. page numbers, titles &
column headers. Numeric fields can
be automatically totaled.
Manual: extensive & easy to use
32K Disk w'RSDOS
! 64
95
OMPUTEFWARE !
K
Mail to: COMPUTERWARE"
P.O. Box 66S • Dept. A 2
Enclnitas, CA 92024 • (6191416-3512
1
DESCRIPTION
OUANT.
PRICE
TOTAL :
â– SHIP. 5 TAX
TOTAL
mastehcah::
card
NAME
ADDRFSK
CITY _
„ RTATC _ IIP
SIGNATURE
■Snipping; Under Si 00 — add S2 surface, M atriCanadi
Over$i0D — add 2% surlace, 5*A pirJCenada
Calif, residents add 6Va sales tax
I have been a contented owner of a TRS-80 Color
Computer since June of 1981. Previously I owned a
TRS-80 Model I and then an Apple II. In the Color
Computer, 1 found the versatility 1 have been looking for.
This program was written to demonstrate some of the
untapped potential of the CoCo. The program uses the
SG24 graphics mode which has a resolution of 64 x 192 in
eight colors. This mode is supposed to use 6K of RAM, but
Stained Glass uses only 3K of video RAM, Some of you
might want to try to figure out why. The program creates
continuously changing symmetrical patterns,
Type this program very carefully, being sure to save it to
tape or disk before you attempt to run it. The slightest error
could make you have to turn off the computer to regain
control. Once safely saved type RUN and then EXEC 1 301 5.
Press any key to begin. Hit any key except BREAK to pause
the display, and any key to continue. Press BREAK to
return to BASIC. Now sit back and see why they call it a
Color Computer.
Stained Glass can be saved as machine code by typing
SCAVEM"STNDGLAS", 12993, 133 11,1301 5. To load and
use the program in this form, type CLOADM and then
EXEC 13015. It's compatible with all versions of BASIC and
16Kor32K.
The listing:
1 ' STAINED GLASS
2 * BY
3 * WES FAU3KE
10 CLEAR200, 12992
15 F0RM-12993T013311
20 READD:POKEh,D:NEXTM
25 DATA80, 82, 69, 83, 83, 32, 65, 78, 8
9,32,75,69,89, 128, 140,64,0,38,24
9, 142, 50, 142, 142, 52, 0, 134, 128
30 DATA 167, 128,140,64,0,38,249,1
28 the RAINBOW August 1983
42,50, 193, 198, 13, 166, 128, 173, 159
, 160, 2, 90, 3B, 247, 141 , 67, 39, 252
35 DATA134, 1,198,3,142,255,192,1
41,30,134,26,198,7,141,24,134,3,
1B3,50,214, 182, 1,22, 141,29, 129,0
40 DATA39,45, 134,128, 183,50,206,
183, 50, 207, 32, 59, 70, 36, 6, 48, 1 , 16
7,128,32,2,167,129,90,38,242,57
45 DATA177, 50, 214, 37, 5, 176,50,21
4, 32, 246, 57, 173, 159, 170, 49, 173, 1
59, 160, 0, 57, 134, B, 1B3, 50, 214, 182
50 DATA1,23, 141,226,76, 198, 16,61
,203, 122,247,50,206, 192,5,247,50
, 207, 134, 16, 183, 50, 214, 1B2, 1 , 24
55 DATA141,202, 129, 1,35,8,183,50
, 214, 182, 1 , 24, 141 , 190, 183, 50, 208
, 134, 15, 176,50,208, 183,50,209
60 DATA 134, 48, 183, 50, 214, 182, 1 , 2
5,141,169,129,1,35,8,183,50,214,
182, 1 , 25, 141 , 157, 72, 183, 50, 210
65 DATA134,94, 176,50,210, 198, 16,
61,253,50,212, 182,50,210, 198, 16,
61,253,50,210,141,142,39,8,129,3
70 DATA39,B1, 141, 134,39,252, 190,
50, 210,48, 137, 52, 0, 246, 50, 208, 18
2, 50, 206, 167, 133, 246, 50, 209, 182
75 DATA50,207, 167, 133, 190,50,212
,48, 137,52,0, 167, 133,246,50,208,
182,50,206,167,133,190,50,210,48
80 DATA 137, 58,0, 167, 133,246,50,2
09, 182,50,207, 167, 133, 190,50,212
,48, 137, 58, 0, 167, 133, 246, 50, 208,
182,50,206,167,133,126,51,4,57
FINALLY!
A REAL SPREAD-SHEET PROGRAM FOR THE COLOR COMPUTER
TM
DYNACALC
Business people use spread-sheets to organize columns and rows of figures.
DYNACALC simulates the operation of a spread-sheet without the mess of paper and
pencil. Of course, corrections and changes are a snap. Changing any entered
value causes the whole spread-sheet to be recalculated based on the new
constants. This means that you can play, 'what if?' to your heart's content.
But DYNACALC isn't just for accountants. DYNACALC can be used for just
about any type of job. Not only numbers, but alphanumeric messages can be
handled. Engineers and other technical users will love DYNACALC's sixteen-d ig i t
math and built-in scientific functions. There's even a built-in sort command,
so you can use DYNACALC to manage smal I data bases - up to 256 records.
DYNACALC will let your computer do just about anything you can imagine.
Ask your friends who have VisiCalc, or a similar program, just, how useful an
electronic spread-sheet program can be for all types of household, business,
engineering, and scientific applications.
DYNACALC is designed to be used by non-programmers, but even a Ph.D. in
Computer Science can understand it. Built-in HELP messages are provided for
quick reference to operating instructions. .
DYNACALC has a beautifully simple method of reading and writing FLEX data
files, so you can communicate both ways with other programs on your system, such
as the Text Editor, Text Processor, Sort/Merge, RMS data base system, or other
programs written in BASIC, C, PASCAL, FORTRAN, ahd so on.
Except for a few seldom-used commands, DYNACALC is memory-resident, so
there is little disk I/O to Slow things down. The whole data array (worksheet)
is in memory, so access to any point is instantaneous. DYNACALC is 100$ 6809
machine code for blistering speed.
Color Computer DYNACALC works with the FLEX operating system from Frank
Hogg Laboratory (64k required). If you aren't already using this powerful
operating system, we have a special deal for you: order DYNACALC (regularly
$200)- and FHL Color FLEX (regularly $99) together for only $250.
To order, see your local DYNACALC dealer, or order directly from CSC at the
address below. We accept telephone orders from 10 am to 6 pm, Monday through
Friday. Call us at 314-576-5020. Your VISA Or MasterCard is welcome. Be sure
to specify that you want the Color Computer version.
ORDER YOUR DYNACALC TODAY!
Computer Systems Center
13461 Olive Blvd.
Chesterfield, MO 6301 7
(314) 576-5020
%
RAINBOW
CERTIFICATION
SEAL
BITS flrt/7 BUTES OF BRSIC
A Mixed
Bag
Of BASIC
By Richard A. White
Rainbow Contributing Editor
Magazine deadlines being what they are, I am
writing this well before the July issue goes into the
mail. So, 1 have no idea what bugs will be found in
COMMWP or what fixes and improvements you intrepid
programmers will make. Yes, there are bugs. That was Ver-
sion 1 , not Version 3 or 4. And I am curious to see if you find
the same bugs 1 have found. No, I did not put them there to
mess you up and make you think. I left them there for that
reason. Bugs come too easily for anyone to try to write them.
Anyway, as you develop new pieces of code to fix or improve
COMMWP, send a copy to my attention care of the Rain-
bow. On down the road I will pull together the better offer-
ings into an article or two.
Another Bug in basic And Insanity Avoided
The staff at the Rainbow will be glad to know that we have
saved them another drain on their taxes, specifically housing
one Ian Budd in a Kentucky mental institution. Ian had the
unfortunate experience of uncovering an erratic bug in the
floating point decimal routine in CoCo. The following short
program demonstrates the Budd Syndrome.
10 Y = 75.96 : X *= 72 I 3.96 : PRINT X, Y
20 IF X = Y THEN PRINT "GOOD" ELSE PRINT "BAD"
Obviously, since 72 + 3.96 — 75.96 and the computer
prints that result to the screen for X, it will also find X = Y
and print GOOD. Wrong. The computer finds that X <> Y
and prints BAD. But, change X and Y to Y = 75.75 : X = 72 +
3.95 and the program works properly.
Certain other combinations also return the wrong answer
and Ian could find no pattern. He was trying to write a
double entry bookkeeping program and erratic behavior
like this was totally intolerable. He tried converting the
numbers to integer values before making the comparison,
but that did not Work either. However, in CoCo BASIC there
is no true 2-byte integer. Numbers are all stored in 5-byte
format and a misplaced bit anywhere in that array will cause
a faulty comparison even though the numbers printed on the
screen look equal and integer. And there is a clue to the fix:
(Richard White has a long background with micro-
computers and specializes in BASIC programming.
With Don Dollberg, he is the author of the TIMS data
base management program.)
To display a number on the screen, the computer must
convert it to character format. If we do this for X and Y and
then make the comparison, the problem goes away. Try the
program below and see for yourself.
10 Y = 75.96 : X - 72 + 3.96 : X$ = STR$(X)
: Y$ = SRT$(Y) : PRINT X$, Y$
20 IF XS = YS THEN PRINT "GOOD" ELSE PRINT
"BAD"
". . . weird things can happen if the
test code after IF is faulty
and . . . a wrong result can be
obtained without producing an
error message. "
Each string consists of a leading space (CHR$(32)) and
the ASCII values for each character in the number. There
can be no effects from rounding or whatever was causing the
error when comparing certain numeric variables.
Of course many of you are crying WHY?? Now that I have
a fix, 1 have not gone looking for why, but you sure can. I
would suggest writing a program including the above code
to set values into X and Y. Then use VA RPTR to report the
locations of X and Y in the variable table. Remember to
define any variables used in your VARPTR code or any
variables that may follow it at the start of the program so the
variables are not moved in the table. A simple R=0 puts R
into the table and it will not cause trouble later. Now, if you
have a resident monitor like in Toolkit, you can break the
program and look at the five bytes stored for X and for Y.
Perhaps as easy is to write a basic line to PEEK those
locations and print the results to the screen. Put it in as a
high line number using variables that have been defined or
used in the program. RUN your program, BREAK it, and
type GOTO (line number) to check the bytes in X and Y. If
there is a difference, we will at least know the IF routine in
BASIC is doing its job. That would leave the floating point
routine at fault and decoding that is a job for a real expert.
iF's True-False Test
I noted last month that weird things can happen if the test
code after an IF is faulty and that a wrong result can be
30
the RAINBOW
August 1983
obtained without producing an error message. Basically the
computer performs whatever is called for after the IF and
looks for a result that tells it what to do next. If it gets a "0" it
reads the test as false and does not do the code following the
THEN. If an ELSE is present it goes to the code following it.
If it gets any number back, it interprets the test to be true and
goes to the code following the THEN. You can test this out
using the following short program.
10INPUT"DEMO="; DEMO: IF DEMO THEN PRINT
"TRUE": GOTO 10
ELSE PRINT "FALSE" : GOTO10
Here is a typical keyboard session.
DEMO =?
FALSE
DEMO =? 1
TRUE
DEMO =? 2
TRUE
DEMO=?-l
TRUE
DEMO =? A
? REDO That is because INPUTis looking for numbers
only.
Note that the variable DEMO alone was used after IF. IF
is looking for a number and a variable is as good a place as
any to get anumber. Just pressing the ENTER key without
entering anything puts a into the variable so that works.
The following does not work and produces a syntax error.
10 INPUT "DEMO$ ="; DEMO$ : IF DEMOS THEN
PRINT "TRUE" : GOTO 10
ELSE PRINT "FALSE": GOTO10
The IF routine in BASIC cannot convert a string variable
to a number so it quits. The following makes a test that
prints FALSE if DEMOS is nothing.
10 INPUT "DEMOS ="; DEMOS : IF DEMOSO""
THEN PRINT "TRUE" : GOTO 10
ELSE PRINT "FALSE" : GOTO10
Get That Arrow Again
Jerel Williams of Cincinnati brought my attention to
something I had partly understood and forgotten. His son
Bryce wrote a simple maze game for his younger sister.
Really an excellent effort for an 1 1 year old. However, an
arrow key had to be hit each time to move through the maze.
An auto repeat, so one could hold down a key and continue
moving, was called for. How could this be done from BASIC?
It turns out there is a "keyboard rollover table" in memory
locations 338 to 345 (hex 152-159). As long as there are no
keys pressed, each location holds a 255. When a key is
pressed, the value in the location assigned to that key is
reduced by a specified amount. For example, the up arrow
puts a 247 in 341. Even better, down arrow puts a 247 in 342,
left puts 247 in 343 and right puts 247 in 344. From here it
was simple to PEEK these locations in order, check each
value returned and go off to the appropriate routine to move
when a 247 is seen.
I could present Jerel's table of values. Rather I will present
the following short program to allow you to investigate
these locations on your own.
5 CLS : PRINT @64, "" ;
10 FOR X-^338 TO 345 :PR1NT X" "PEEK(X) : NEXT
:PRINT@64, "";
: GOTO 10
The C olor Computer
Word Processor!
MASTER WRITER (we changed our name from WORDMASTER) is a profes-
sional quality full screen oriented word processor for your color computer. Take a
look at what you get.
MASTER WRITER'S FULL SCREEN-ORIENTED EDITOR allows you to move
the cursor anywhere in your text using the up. down, right and left arrows. Do this
one character at a time or by line or page. Insert, delete or replace text at the cursor
watching your changes as you make them. Delete or move blocks of text from one
place to another. Merge in text from other files.
AUTOMATIC CARRIAGE RETURN after last complete word on each line; with
this and AUTOMATIC PAGE FEED you don't have to worry about where a line or
page ends — just type!
MASTER WRITER runs on a 1 6K, 32K, or 64Kcolor computer, taking advantage
of all available memory. Use it with DlSK OR CASSETTE based systems. EX-
TENDED BASIC IS NOT REQUIRED for cassette version
EASY TO UNDERSTAND MANUAL has you comfortably using MASTER WRI-
TER in minutes. It is a USER-FRIENDLY MENU-DRIVEN SYSTEM with single
letter commands. Check any command without having to refer to the manual with
the HELP SCREEN.
10 PROGRAMMABLE FUNCITON KEYS allow easy insertion of frequently
used words Or phrases.
MASTER WRITER
WORKS WITH ANY PRINTER. Take full advantage of your printer's special
functions such as variable character size and emphasized characters with EASY
EMBEDDING OF PRINTER CONTROL CODES.
GLOBAL SEARCH function lets you quickly locate specific strings for replace-
ment or deletion.
Customize form letters or standard text with the EMBEDDED PAUSE feature.
Just "fill in the blanks" when your printer pauses for a personalized appearance.
LIMITED MULTI-TASKING feature lets you print one file while editing ano-
ther.
In addition to regular text you can use MASTER WRITER to CREATE BASIC
PROGRAMS with the convenience of full-screen editing. It can also be used to
make and edit simple MAILING LISTS.
OTHER FEATURES include easy setting of left, right, top and bottom margin,
printer line width, and lines per page. Also repeat keys, auto line centering, auto
page numbering and choice of display color formats.
TO ORDER send $29.95 for cassette version or $34.95 for disk version plus
$2.50 shipping (Calif, residents add sales tax) to: PYRAMID DISTRIB UTORS, 527
HILL ST., SANTA MONICA, CA 90405 (213) 399-2222.
$29.95 Cassette
$34.95 Disk
August 1983 the RAINBOW 31
When you run this, you get a listing of the memory
location numbers followed by the value in that location.
Press individual keys and see the numbers change on the
screen. When two or more keys are pressed at the same time,
either values in two or more locations change or if two keys
are reported by one memory location, that location is
reduced more than that caused by either key singly. Press a
"9" and note that 223 appears in 339. This is 255 minus 32.
CLEAR key subtracts 64 from 255 and puts 191 into 339. If
CLEAR and 9 are pressed at the same time, 64 and 32 are
subtracted from 255 and the result in 339 is 159. Thus it is
possible to determine which keys are pressed at any time.
You can use this from BASIC to get responses requiring
two keys to be pressed at the same time. The advantage is
elimination of accidental responses in a program. Escape
sequences are a natural where a two-key entry assures that is
what the user wants and not a random call by five-year-old
hands roaming the keyboard. Suppose you did choose
CIFAR-9 as your escape. The following line would do the
job:
155 P = PEEK(339) : IF P = 159 THEN 1000
Location 339 holds 1 59 as long as the CLEAR and 9 keys
are pressed so all the user needs do is hold those keys down
and wait for the program to execute line 155.
Merging BASIC Programs
There are a number of reasons for wanting to nierge BASIC
programs or perhaps parts of BASIC programs. John Rcid of
Woodside, New York^ Wrote that he wanted to merge a
number of short programs into one large program and select
the smaller programs from a menu. Another reason might
be so that a routine used in one program could be reused
with perhap* modest modification in another. Those with
R.S. disk drives have the Disk BASIC MERGE command.
This command runs a basic program saved in ASCII in
from the disk through Basic's tokenizing routine much as if
the stream of characters were coming from the keyboard.
basic tokenized the lines and inserts them into the program.
Where there are existing lines in the program with the same
numbers as those in the disk program, the lines from the disk
are substituted. Otherwise the new lines from disk are
inserted in the program in their correct numerical order.
Those not yet blessed or cursed with a disk drive have a
number of other options. Both EDTASM+ from Radio
Shack and Toolkit from Azirin permit loading two files and
merging them as one program. Other programming utilities
may provide similar abilities. I have used on}y those men-
tioned. With EDTASM+, the programs must be saved as
ASCII files. They are then loaded into the editor in
sequence. All the line numbers of the second program must
be higher than those in the first program. While you can
RAINBOW
WEST BAY
ROUTE 1 BOX 666
WHITE STONE VIRGINIA 52^78
INVENTORY ONE: 40 RECORDSMtt 150=32K. PRINT
STATUS i REORDER REPORTS. BUSINESS. $20.00
KWIK-GRAF: PRINTS EPSON I 0KIDATA PHQTQREADY
BAR8RAPHS. SCREENPRINT NOT REfiUIRED.tl2.50
SPANISH ONE: CONVERSATION STYLE DRILL. I 8.00
GRAPH ONE: HAKE SCREEN BAR6RAPHS FAST.tl2.S0
(PRE-SCH00L) "LETTERS", "NUMBERS" EACH ti.00
ALL 16-32K EXT TAPE. FOR LISTIN6 SEND SASE
32
the RAINBOW August 1933
renumber lines with EDTASM+, line numbers following
THEN, GOTO, and GOSUB commands are not corrected
as they are when BASIC RENUM is used. You would need to
figure these out and change lines by hand which on any
program of more than 10 lines would be a horror. Use
Basic's RENUM command, CSA VE the program and then
CLOAD it back in as the send program during the merge
operation. The combined file could then be saved and
loaded into the computer as one program.
In Toolkit, there is a .PRO 1 command that sets the Start
Of BASIC pointers (memory locations 25 and 26) to the end Of
the existing program. A new program can then be loaded.
Again, line numbers of the second program need to be all
higher than those of the protected program^ In this case, the
second program can be renumbered with Extended Basic's
RENUM after it is loaded. The merge is achieved by sending
Toolkit a .REST command.
"Escape sequences are a natural
where a two-key entry assures that
is what the user wants and not a
random call by five-year-old
hands roaming the keyboard. "
If you have Extended basic but none of the utilities
mentioned, you can slick the following two lines of code in
the first program loaded.
50 cls :ph=peek(27) :pl=peek(28) :print @96,
"Load recorder with program to be
merged and press any key" :forx-fjto0
:X=(INkEY$="") :NEXT
:PRINT@96,"ENTER FILE NAME OF PROGRAM
TO RFMFRGED":LINEINPLITNA$
51 PRINT'TO MERGE PROGRAMS AFTER
"NA$" IS LOADED, POKE25,30
AND POKE26,T :POKE25,PH :POKE26,PL-2
:CLOADNAS:END
This fragment expects you to be in default PCLEAR 4.
The End of BASIC address is obtained from memory loca-
tions 27 and 28. Once the tape with the second program is in
the recorder and its name entered, the end of the first pro-
gram is made the Start of BASIC for the new program by
POKEing PH into 25 and PL-2 into 26. Then the second
program is loaded. You restore the first program and effect
the merge by POKEing the original Start of BASIC pointers,
30 and 1 back into 25 and 26. Note that PL-2 was set rather
than PL in the start addressed for the second program.
BASIC puts three null (0) bytes at the end of a' program and
one null at the end of each line. The End of BASIC address in
28 is one byte after the third null byte. Since we are going to
merge the programs we want only one null after the last line
of the first program. By subtracting two from PL, we load
the first two bytes of the second program over the last two
nulls at the end of the first.
In some instances, you will want to PC LEA R less than
four graphics pages to get more program and Variable
memory. This changes the value in 25 by 6 for each page of
graphics given up. In fact, you can do a PCEARO by typing
POKE25,6:NEW before loading a program. You may wish
to change the fragment above to PEEK Start of basic
before changing it and print these values on the screen for
your reference later.
BECOME AN INTREPID SPACE ADVENTURER
by William Muk
CoCo version by Roger Schrag
Atari version by John Anderson
Far beyond the known galaxies, you
venture deep into the vast reaches of outer
space. But you are not alone! In a flash,
without so much as a how-do-ya-do, they're
in hot pursuit and you're left to do before
you're done unto. Can you elude your
pursuers? Will you elude your pursuers? And
who are these guys anyway? Find the
answers to these and other compelling
questions in AREX. See your dealer today!
AREX . . . Coin-op arcade realism at home
for 1 to 2 players.
AREX
CoCo 16K TAPE
I Hi^BU Model 1 A 3 16K TAPE
TR&fiO MfWlsl 1 X 3 3?K RISK .
06MM72 $34.95
01 MM 72 $34.95
012-0172 $34.95
E-
DRLD OF
I
by George Schwenk
TRS-80 version by Dave Simmons
CoCo version by Roger Schrag
"Yas, after purchasing diamond mines in
South Africa, oil wells in Saudi, and rare beer
cans in Walla Walla, Washington, I had begun
to wonder what other trendy commodities
remained to be added to my swelling
portfolio. Then a snip of a ticket girl dared to
tell me (ME, Hartley J. Wormsf lather III!) that
my flight was overbooked. To avoid future
misunderstandings, I bought the airline."
"I think I'm on to something profitable
here." Hartley J. Wormsflather
AIRLINE . . . A no-holds-barred strategy game
for 7 to 4 players.
AIRLINE
ATARI 400 & 800 / CgCo / Model 1 & 3 16K TAPE
1400169
dventut6
INTERNATIONAL
***\\
5 0S3S \m I2afi
HARDWARE & SUPPLIES
MONITORS
JARB^l
SOFTWARE
HARDWARE
BMC GREEN SCREEN II"
89.95
COMREX CR S600
H! RES MONITORS
12" Green Phosphor 179,95
12" Yellow Phosphor 189.95
1 2" Amber Phosphor 199.95
COMREX CR MOO
GREEN SCREEN
1 2" Phosphor Monitor 129.95
VIDEO PLUS
(From Computerware)
This unit is so good, we have stopped pro-
ducing our popular video interface kit so
that we can supply our customers with the
best unit available, Requires no suldering
or hole cutting For installation. Will work
on ANY composite monitor, color or
monochrome.
Only S24.y5
BMC BM AU919IU
(13" Color Monitor)
High resolution display monitor produces
an incredibly sharp image. Includes built-
in speaker with audio circuit. Compatible
with virtually any microcomputer.
,...$344.95
DUAL JOYSTICK UNIT
(D.JO
Single unit assembly enhances playabiliiy
of mulli-joystick/player games; conve-
nient press-to-Hre buttons
Add 14.00 shipping $.15.95
SPLC-1
Lower Case Board
(By Saturn Software)
Plug in board gives true lower case letters
with descenders instead of inverted letters
on your video display. Installation of an
optional switch (not provided) allows in-
verse or standard video with the flip of a
switch, Fits all "E" and later "D" boards,
SM.95
LCINT
Lower case interpreter program allows in-
put of lower case command words to be
accepted, Also allows for One key pause
features and .smglc step through listings,
with instructions and cassette, disk com-
patible 110.95
U.S FUNDS ONLY
C.O-D. ORDERS ACCEPTED
Sorry, no C.O.D, art printers and
monitors.
NO CKEUli CARD ORDERS
+
+
+
1636 D Avenue, Suite C
National City, CA 92050
(619)474-6213
MEMORY
UPGRADE KITS
ifeK RAM CHIPS
, 1.50ea.
'16K/32K
MEMORY UPGRADE KIT
Eight 200 NS 4llfi Factory Prime Chips
with Piggy Backed Sockets, Sam Socket,
Bus Wire, and 32K Ram Sticker. Com-
prehensive instructions. Recommended
for IL D" or earlier, but may be used on
"E". Only 9 simple solder connections to
kit. None to computer.
125,95
**4K RAM CHIPS
Eight 200 NS factory Prime 64K RAM
Chips. Allows you to upgrade "F" board
easily, No soldering needed.
$69.95
NOTE: 64K upgrade will NOT provide
64K of user Ram. but allows later revision
hoards (E, ET) to run cooler and more ef-
ficiently,
'Installation nf these Hems will void the
Radio Shack warranty. Radio Shack is a
trademark of the Tandy Corp.
NANOS COLOR BASIC
AND EXTENDED
SYSTEM REFERENCE
CARD
"The New Industry Standard"
£4.95
(We puy pttstage on this one)
All types of Nanus cards available
JARB?I
SOFTWARE
I HARDWARE
COMPUTER PRODUCTS
1636 D Avenue* Suite C
National City, CA 92050
(619)474-6213
*
PRINTERS
EPSON PRINTERS
FX-8Q + ...$575.00
RX-80 , $449.00
Serial Interface w/4K Buffer
Ideal for 80C use $109.95
80CTO Epson Cable $19.95
See shipping Info
PRINTER ACCESSORIES
Roll Paper Holder (Epson) 30.00
Adjustable Tractor for FX-80 19.95
Also Tractor Fed Mail Labels and
Cassette Labels, Ribbons, etc.
COCO PRINTER PACKAGE
Epson FX-80 and Serial Interface with 4K
Buffer, Cable. 674.90
COMREX CHI
Compact desk-tnp daisy wheel
printer, especially designed for word
processing. Assures high reliability,
and produces quiet, high quality
priming, Complete with RS-232 in-
terface.
S810.00
JARB DISK DOUBLER
Why spend twice as much as you
need to for double sided diskettes?
With our doubler, you 'can make
your own and pay for it with the first
box you double, A must for disk
drive users.
5W" size only 12.95
BASF DATA CASSETTES
C-0§ CIO
i-io .60 ea. .65 ea.
11-20 .55 ea, .60 ea.
Soft Poly Cases , . Ea. $.20
Hard Shelled Cases Ea, $.22
Cassette Labels 1 12) Sh. 136
Cassette Labels Tractor (1000) $30.00
Call or write for quantity prices on ail
cassette products. Special lengths avail-
able, eg.. L-02. etc.
We carry products
from many manufacturers.
If you don't see it, ask.
SHIPPING AND HANDLING; Printers
and monitors add 3%. Unless otherwise
specified, all other orders $2.00 per order.
California Residents add 6^o sales tax.
^^^â– ^^^^H
Racing The Clock
With
32K â–
ECB
' lite
RAINBOW
TRAILIN TAIL
By Mike Hall
It is the year 2013. The earth
has just been devastated by
war. You are the last remain-
ing human, and your only chance
of survival is to leave the earth as
soon as possible. Fortunately,
you have found a spaceship that
was left over from the war. Un-
fortunately, it doesn't have
enough energy left to fly!
Your mission: Roam the earth
in your nuclear powered land
cruiser and gather yellow and
blue power chips for the space-
ship in as little time as possible.
But watch out! If you cruise out
of the safe zone or run into the
nuclear waste that is left behind
by your land cruiser, you will
immediately perish!
Does the above scenario sound
exciting? Well, then, you're in
luck, because it's the scenario for
the game below called Trailin'
Tail. It is a progressively faster
and harder, race-against-the-
clock, arcade style game. Trailin '
Tail requires 32K Extended
BASIC and one joystick.
After CLOADing and RUN-
ning the program, you will be
presented with the title page and asked
whether to play with the key-
board controls or with the joy-
stick. (If you have disk, this is the
(Mike Hail is a high school junior in
Hartland, Wisconsin, He is a self-taught
programmer who actively participates
in the Milwaukee Area Color Computer
Users' Group, the CoCo-MUGS.)
■;•,.• !'!■RAINBOW
point at which the scores will be read in. See the disk user's
note below.) The keyboard controls are just the four arrow
keys. If you choose the joystick option, use the right one.
You will note, once you have played both ways, that Trailin '
Tail is really two games in one. The keyboard game only
allows for movement in four directions, whereas the joystick
game allows for movement in eight directions. After choos-
ing your controls, you will be asked which wave to start on.
The higher the wave, the faster (and more difficult) it is.
Once the wave is chosen, you will be presented with the
starting game board. The red border denotes the "safe
zone," so don't run into the walls! Your status is designated
above the border. At the far left, in blue, is the score. In the
middle , in yellow, is the wave number . To the right of that, in
blue, is the number of land cruisers remaining. And at the far
right, in red, is the number of power chips you have to collect
before advancing to the next wave.
To start the game, just follow the directions on the lower
right of the screen. If you are using the joystick, it must be
pointing in some direction at all times, othewise you will
crash into yourself. Once started, the object of the game is to
hit the yellow and blue squares and avoid anything that is
red. It sounds simple enough, but once you get going you
will find that more and more red appears. You should also
discover how the name Trailin' Tail came about. Beware of
the part of the tail that doesn't erase itself! If you do crash
into any red object, you will lose a land cruiser and five
seconds of time. The game ends when all of your land
cruisers are gone.
Scoring for Trailin' Tail is pretty complex. The yellow
power chips are worth from 20 to 200 points in multiples of
20. The blue power chips are worth from 50 to 500 points in
multiples of 50. When you finish a wave, your time will be
compared to the predetermined average time for that wave.
If you beat it, two things happen. First, you are given a
bonus of five times the wave number, times the number of
seconds you beat the average by. Then you are given a
special bonus, which counts the same amount of points as
the last power chip. Therefore, it is best to finish a wave with
a blue power chip rather than a yellow one, since blue ones
are worth more. Also, if you started on a wave other than
wave one, you will be given a super bonus of 1500 times the
number of the wave you started on, minus one. The super
bonus is only given after the first completed wave.
An extra land cruiser is awarded at 10,000 points, and
then at every 5,000 points after that. But, you can only earn
an extra land cruiser by hitting a power chip. So, for exam-
ple, if you score 1 2,000 bonus points on one wave, you won't
get your extra land cruiser until you hit a power chip on the
next wave.
Wave nine is the fastest wave you will encounter. Trailin '
7ai7 still gets more difficult on waves 10 and up, but instead
of getting faster, obstacles start appearing and more power
chips must be gathered in order to advance to the next wave.
Obstacles appear in the form of large, red circles. They show
up after you press the joystick button or an arrow key. Then,
a slight delay occurs, allowing you to change your initial
direction by pressing a different arrow key or by moving the
joystick lever, and the game continues as usual.
One of Trailin' Tail's best features is its top 10 score
routine. If you have scored high enough to make the top 10,
Trailin ' Tail will notify you with an alarm (otherwise it will
just start displaying the top 10 scores). Three large boxes will
appear on the screen with a flashing letter in the left one. Just
move the joystick lever up or down until you find the
appropriate number or letter. Then, push the joystick but-
ton, and that initial will be entered. Repeat this process with
the other two boxes. When all three initials have been
entered, Trailin ' Tail will remember those initials (and your
score), and display them on the top 10 screen. While on the
top 10 screen, you have two options: either you can push the
joystick button and start a new game, or you can push the E
key and end the program. {If you have disk, the top 10 scores
will be saved before the program ends. See the note below.)
Note for disk users: Trailin' Tail checks to see if you have
disk. If you do, it will automatically keep a disk file of the
top 10 high scores. But you must create this file prior to the
very first time you run the program. To do so, just ENTER
the following statement while in the OK mode: OPEN
"O",#l,"TTSCORES/T10":CLOSE.
For those of you who like to modify programs, the
remarks below have been left in, and a list of the main
variables follows. (There are no references to the remark
lines, so they can be deleted if you like.)
SC score
W wave
N number of land cruisers remaining
T timer
A average time
E points needed for next land cruiser
F number of power chips remaining
S skill level
Although it is made for 32K, I believe Trailin' Tail will fit
in 16K if the following lines are changed to read as follows:
PCLEAR2:'16K VERSION
PMODE2, 1 :PCLS:FORQW=lTO20:PRINTSTRING$
(32,"!");:NEXTQW:SCREEN0,1
DRAW"BM34,20;S8;Cr:M$"CONGRATULATIONS":
GOSUB1000
DRAW'BM 12,60": M$="TEN OF TRAILIN TAIL"
:GOSUB1000
PMODE2,1:DRAW"BM4,40":M$="YOU HAVE
MADE THE TOP":GOSUB1000:SCREEN1,1:
DRAWS4"
PMODE2,l:PCLS:SCREENl,l
1050
1060
1070
1080
1350
^
60...
180..
310..
520..
600..
770..
900..
..0378 1060.
. 060C 1160.
. 08D3 1360.
. 0B19 1530.
.00 A3 1800.
. 102A END.
. 126F
. 150A
. 17B7
. 1A03
. 1C16
. 1E5E
. .2023
The listing:
PCLEAR4:'32K VERSION
1 ' ************************
2 ****** TRAILIN TAIL *****
3 >***** by MIKE HALL *****
4 ***3019 SYLVESTER DRIVE**
5 ' ***HARTLAND, WI 53029***
6 * ************************
7 'COMPLETED MARCH 3, 1983*
8 * *****************###****
9 'set screen and variables
36
the RAINBOW August 1983
PUT MORE FUN IN
VOUR COLOR COMPUTER
New! MICRO Series designed
to run on all color computers,
including the new MC-10 .
Fast action, full-color graphics and sound!
Just $14.95 each or 3 for $34.95.
BRICKOUT - Destroy layers of colored bricks with skillful paddle
movement - includes autopilot mode!
B-17 BOMBER - Flying over enemy territory, you drop low for your
bomb run, but watch out for enemy flak - realistic trajectories.
BLACKJACK - 1 to 3 players versus computer - betting, shuffling,
full deck, graphics!
COMPUMIND - Guess the secret number from clues provided -
ratings, logic, skill levels - highly addictive.
JACKPOT - Pull the lever and watch the wheels turn to produce a
jackpot.
STARFIGHTER-4 - Zero in on enemy fighters before firing ybur
phasers - difficulty increases as you enter warp drive.
TIC-TAC-TOE - Beat the computer playing this age-old favorite -
or lose to a calculating opponent.
BIORHYTHM - Display graphs of your physical, emotional and
intellectual cycles - determine good, bad, critical days (printer
optional).
MINEFIELD - Cross the minefield aided by your mine detector -
trace steps and hidden mines.
COMPUTRATION - Match the words behind the numbered
squares to complete the puzzle - win the game!
CHUCK-A-LUCK - Watch the computer roll 3 graphic dice across
the screen - hit your number and you win.
LUNAR LANDER - Pilot your craft to a safe landing on the moon's
rocky surface - watch your gauges or you'll crash.
PIGSKIN
PREDICTIONS
3.0
icinb
LAIril
RAINBOW-WRITER
SCREEN ENHANCER
Introducing the ultimate in hi-res graphics text display. Allows your
color computer to write text on any graphics screen in Rainbow
colors. 16K Extended Basic required. $29.95 Cass - $32.95 Disk.
12 sizes to 64 x 24. See accompanying ad for details.
Discover the Rainbow
Available in August
This NFL Handicapper survived the strike!
Enhanced version of last year's best seller featuring. . .
-Simple menu-driven selection of schedules, ratings, division rac-
es, predictions or results by team or week. 7 different types of
reports to screen or printer (optional) available each week.
-Easy one-a-week entry of scores - no complex stats.
-Predicts all games for remainder of season each week.
-Calculates projected won/loss records for all weeks.
-Maintains home field advantage rating as well as power rating for
each team for accurate predictions.
-Allows user schedule entry. 1983 schedule and ratings info
included free — ready to run.
-Tracks computer's accuracy by team and week.
32K enhanced version features dazzling Rainbow-Writer screen
displays. 16K abridged version included free. 16/32K Extended
Basic required. 2 tape cassette $29.95; 16/32 Disk $32.95. Pre-
vious owners call for upgrade plus data tape.
CONQUEST OF
,\j KZIRGLA &
SCEPTER OF
KZIRGLA
Dungeons, wizards, treasure chests, hidden trap doors and more.
If you enjoy challenge and complexity, these adventure games are
for you. Featuring real-time graphics with arcade sound for your
color computer. "Scepter" requires 16K Extended Basic. $16.95
Cass - $1 9.95 Disk. Hi-res sequel "Conquest" 1 6K Extended Basic
Cass $21 .95; 32K Disk $24.95. > « v
in your Color Computer! RANB0W
SB RAINBOW
HI CONNECTION
^S SOFTWARE
ITEM
CASSETTE/DISK
PRICE NAME
RAINBOW CONNECTION
SOFTWARE
3514 6th Place NW, Suite D
Rochester, MN 55901
507-288-4424
Sub Total
Shipping
Minnesota residents add 6% Sales Tax
ADDRESS
CITY
$2.00
Exp .
Visa& M. C. add 3%
TOTAL
STATE
Personal checks welcome â–
Dealer inquiries invited.
Send SASE for catalog.
Not affiliated with
THE RAINBOW
ZIP
no delay.
Y x ^
VISA'
4),B(4),E(10),S(11),S*(11),G(50)
: F0RZ-1T043: READCH* < Z ) : PLAY H L255
; ABA" : NEXT: FORZ*1TO10: S (Z ) =0: S* <
Z) = NEXT
20 PM0DE1 , 1 : PCLS: SCREEN1 ,0: DRAW"
BM30, 24 J C3; SB" : M*«"TRAILIN TAIL"
: GOSUB 1000
30 DRAW "BM 100, 180IC4":M*»"BY":8O
SUB 1000: GET ( 100, 164) - ( 125, 190) , B
f B : FOR Y* 1 64TO30STEP-4 : PLAY " 03CB "
: PUT ( 100, Y> - ( 125, Y+20) , B, PSET: NE
XT
40 DRAW ,, BM60,70;C3":M*»"MIKE HAL
L" : 6OSUB1000: DRAWBM62, 72; C2" : 80
SUB 1000
45 GOSUB2000
50 DRAW " BM 1 , 1 00 ; C2 " : M*» " CHOOSE
1 OR 2":GOSUB1000:DRAW"BM10, 1201
C3":M*="1 IS KEYBOARD" : GOSUB 1000
:DRAW"BM10, 140":M*«"2 IS JOYSTIC
K":6OSUB1000
60 V=RND ( 191 ) : ORND (4) : DRAW"C"+S
TR* (C> : LINE ( 180, V) - (255, 191-V) , P
SET : A*= I NKEY* ! I FA*- " " THEN60ELSE I
FA*- " 1 " THENK Y- 1 ELSE I FA*- " 2 " THENK
Y-0ELSE60
70 PCLS:DRAW"BM10, 140JC4":H*-"WH
XCH WAVE WOULD YOU" : GOSUB 1000: DR
AW"BM10,160":M*="LIKE TO START O
COMPUT€ft
BUSINCSS FORMS
Continuous Forms, labels, popcr, checks,
invoices, statements— all with your
imprint. Continuous letterhead with a
perf so fine that you need a magnifying
glass to tell it's a fan fold sheet.
Matching envelopes.
Regular letterhead, business forms and
cards also.
Send sample for quote. Send $3.00
(refundable on first order) for our
catalog.
Catalog also includes computer
furniture.
D€S€RT PR€SS, INC.
P.O. Box 151 28
Las Vegas, Nevada 891 1 4
N" : GOSUB 1000: DRAWBM70, 1801 C3" : M
**"1 TO 9":BOSUB1000
80 H«RND ( 255 ) : V-RND ( 1 20 ) : C-RND ( 4
) : DRAW"C"+STR* <C> : LINE (H, V) - (255
-H , V ) , PSET : A*» I NKE Y* : I FA*- " "THEN
80
90 W-VAL < A*) : IFW< 1ORW>9THEN70
1 00 PMODE1 , 1 : PCLS : SCREEN1 , 0: SB- <
W-1)*1500:SC=0
110 E=10000:f«15:T-0:N-4:m*-str*
(so :draw"bm0, 12; c3s8": gosub 1000
120 m*-str*(n+1):draw h bm170,12jc
3" : gosub 1000: m***str* (f) : draw"bm2
10,12;C4 h :gosubi000
149 'start of wave
1 50 M*- " WAVE " : DRAW " BM90 ,12$ C2S8 "
: GOSUB 1000: M*«STR* (W-l ) : DRAWBM1
32, 12; ci " : gosub l 000 : m*=str* (W) : D
RAW"BM132, 12; C2": GOSUB 1000
160 DRAW"Cl M :LINE(10,24>-(245, 18
1 ) , PSET, BF: DRAW"C2"
1 70 GOSUB650! Z- 1 : GOSUB690 : G0SUB6
60: Z»2: GOSUB690: GOSUB670: Z=3: 80S
UB690: PSET ( 128, 96, 4)
180 A(4>=0:X=l28:Y=96:c=0:S=W+l:
IFS>10THENS=10
190 DRAWC4" : FORZ-0TO9: LINE (Z, Z+
14)-(255-Z, 191-Z) ,PSET,B:NEXT
200 IFKY-1THENM*»"PRESS AN": DRAW
" BM 1 40 , 1 30 J C2S8 " : GOSUB 1 000 : M*= " A
RROW " : DRAW " BM 1 56 , 1 50 " : GOSUB 1 000 :
M*= " KE Y " : DRAW » BM 1 66 , 1 70 " : GOSUB 1
00 : A*« I NKE Y* : GOTO220
210 M*="PRESS THE ": DRAW "BM 134, 13
05 C2S8" : GOSUB1000: M*=" JOYSTICK" :
DRAW " BM 1 36 , 1 50 " : GOSUB 1 000 : M*= " BU
TTON" : DRAWBM146, 170" : GOSUB 1000:
GOTO230
220 GOSUB270 : A*= I NKE Y* : I FA*» " " TH
EN220ELSE240
230 GOSUB270: PP-PEEK (65280) : IFPP
«2540RPP= I 26THEN240ELSE230
240 DRAW " BM 1 70 , 1 2 ; C 1 " : M*=STR* ( N+
1 > : GOSUB1000: DRAWBM170, 12; C3" : M
*=STR* (N) : GOSUB1000! DRAW'Cl " : LIN
E ( 134, 1 18) - (245, 181 ) , PSET, BF
250 IFW>9THENF0RQQ«5T0W/2: H=RND (
90) +75: V=RND (90) +50: CIRCLE (H, V) ,
13,4:PAINT(H,V),4,4:NEXT:F0RQQ«1
T0999: NEXT: OD*=A*: A*=INKEY*: I FA*
=""THENA*=OD*
260 TIMER=T:IFKY=1THEN440ELSE300
270 CC«CC+ 1 ! I FCC >99THENCC= 1 : GOTO
290
280 RETURN
290 SCREEN1 , 1 : F0RZ=1T09: NEXT: SCR
EEN 1,0: RETURN
299 'main program
300 J*JOYSTK(0):K=JOYSTK(1)
310 PLAY"L255;01;A"
38
the RAINBOW August 1983
DO YOU HAVE A BASIC OR ASSEMBLY PROGRAM TO SELL?
. . . avoid unreliable cassette tapes and recorders
and EPROM your program!
With EPACK, BASIC and assembly routines for color computer can be read from cassette tape and stored onto 2516, 2716 (single supply), 2732, 2532, 2564
and 2764 styled EPROM (21 and 25 volt) These EPROM are then inserted into MMB, a game packlike cartridge that automatically executes yuur program
when it's inserted into the color computer . . . just like the game packs.
EPACK is an excellent alternative to cassettes for programs you want to sell and for personal programs you would like to execute quickly and conveniently
from a more reliable medium
NOTE: 2732, 2764 and 21 volt capability are available optionally and are not included in the standard EPACK
EPACK consists of EPG, BROM and MMB for
The units in EPACK are sold individually as follows:
Utility fits any memory size color computer. Its function is to process
BASIC source files into a format that can be written out to EPROM by Con-
trol Craft Inc.'s EPROM programmer (EPG) ... and still be executed by the
BASIC interpreter - but from EPROM, not RAM!
BROM $25.00
$150.00
EPROM PROGRAMMER [EPG]
• Zero insertion force socket
• Personality plugs configure programmer to accept 271 6 (5 volt supply),
2532 and 2564 style EPROM.
• Programmer's software is included on the programmer board as firmware.
• Program sources:
* read cassette tape files into memory and then write file to EPROM
(files are in Radio Shack format)
* write color computer RAM to EPROM
* read EPROM inserted in programmer into RAM
* Write color computer ROM to EPROM
• Functions:
* test EPROM to see if it's unprogrammed
* read an EPROM into color computer RAM
* write RAM buffer out to EPROM
* redefine the location of the RAM buffer
* verify the programming of an EPROM
* compare the contents of RAM buffer against an EPROM
* edit the RAM buffer
1. Examine/change memory locations
2. Examine/change start buffer address
3. Fill RAM buffer with TF hex
* read blocks from a cassette file into RAM
• Menu driven operation allows easy use
• Plastic case enclosed circuitry
• Gold plated edge connectors
• Self-contained unit no external power supplies are used
• Unit operates on any memory sized TRS-80 color computer
EPG $105.00
• Jumpers configure the memory type used on the board. Provisions for
inserting DIP switches in place of the jumpers
• Gold plated edge connector
• Each IC or IC socket has decoupling cap installed
• Plastic case is available extra, at $7.50 (pricing is subject to change
without notice) (case included in EPACK)
• RAM may not work with series E or later color computers.
MMB
$30.00
MULTI MEMORY BOARD (MMB)
1 Complete with support IC, sockets and decoupling capacitors
• Accepts 2516, 2716, 2532, 2732, 2564 EPROM (included in EPACK)
• Accepts 2016, 4016, 6116 static RAM*
• Max capacity of 6 memory chips
• Runs on any size TRS-80 color computer
• Board is jumper addressable to either SC000 or $8000
• Provisions for write protect switch , or can jumper the board to write
protect RAM
** UPGRADE (optional for EPACK or EPG)
2732-25 volt $1 5.00 2732-21 volt $1 5.00
2764-25 volt $15.00 2764-21 volt $15.00
SDUMP
OKIDATA owners know that in order to print graphics they lose their
serial interface . . .
NOT ANY MORE!
Now you can print Hi-res Pmode 4 graphics images, full size and detail,
on your OKIDATA, EPSON and other printers, without dot addressable
capacity.
Features: .,
• Callable from BASIC routine
• Runs stand alone with a menu
• Relocatable
• Automatically finds the start
of graphics pages
• Configurable for several printers £??£
• Fast
• Useable on 16 or 32 or 64 K
machines with or without
Extended BASIC
• Documented
(OKIDATA, EPSON and RS are trademarks) ^Sl.-. _- o^JP
Actual graphics printed on an OKIDA TA printer (shown reduced)
SDUMP $20.00
All prices subject to change without notice.
*
LONTROL LRAFT INC.
19270 North Hills Drive • Brookfield, Wl 53005 • (414) 784-9027
Name
Order Form: EPACK
BROM
Company
Address _
EPG
MMB
SDUMP
UPGRADE NO..
City /State.
Shipping address (if different from above)
-Zip
$105.00 =
$ 30.00 =
$ 25.0Q =
$ 15.00 =
Wis. residents add 5% sales tax
Shipping & Handling: # of items x $2.00/item â–
TOTAL ORDER: %
.<§> $150.00 =
. @ $ 25.00 =
@
.@
@
.@
TO ORDER BY MAIL: SEND MONEY ORDER, CERTIFIED CHECK. CASHIERS
CHECK MASTERCARD/VISA (include card number, inter-bank number,
expiration date and signature).
DEALER INQUIRIES WANTED (minimum dealer order is 10 units)
320 IFKY=1THEN430
330 IFJ=0THENX=X-S
340 IFJ=63THENX=X+S
350 IFK=0THENY=Y-S
360 IFK=63THENY=Y+S
370 IFPPOINT<X,Y>O1THEN700
380 C*=C+1: IFO99THEN900
390 X(C)=X:Y<C)=Y
400 IFO197THENC=100
410 PSET<X,Y,4>
420 GOTO300
430 A*= I NKEY* : I F A*= " " THEN4S0
440 I FA*= " A " THEN YA=-S : X A=0
450 I F A*=CHR* (10) THENY A=S : X A=0
460 I FA*=CHR* ( 8 > THENX A=-S : Y A=0
470 ifa*=chr*<9>thenxa=5:ya=0
480 x=x+xa:y=y+ya
490 GOTO370
499 'end of wave
500 T=TIMER: F0RZ=1T05: PLAY"L640"
+STR* < Z ) +" ; l ; 2; 3; 3; 4; 5; 6; 6; 7; 8; 9
;9;l0;ll;i2;l2":NEXT
510 F=15:T=INT(T/60> IDRAWCI'^LI
NE<10,24)-<245, 181 > , PSET, BF: IFW>
9THENF=W-9+F
520 M*="TIME TO COMPLETE" : DRAW" B
M20 , 40 ; C2 " : GOSUB 1 000 : M*= " WAVE " +
STR* < W ) : DRAW " BM30 , 60 " : GOSUB 1 000 :
M*=STR* <T> : DRAW "BM 180, 60" : GOSUB 1
Transforms plain paper into
an invoice (and overdue)
order (purchase, mail)
quote (list, net, sub)
payment record
and stores ad the information for easy retrieval later.
Figure list, net, discount, subtotals, freight, tax, etc.
Extremely user friendly.
1 BK Extended
$29.00
(freight included)
disc or tape
Best of all, we'll load it with your name, address,
CC #, tax # and more to customize this package to
your needs - FREE!
Challenger Software
1729 Albemarle Rd.
Clearwater, FL 33542
or call (813) 531-7654
Open 9 9
We 'II mail you samples, more information,
and a customizing sheet.
000
530 AA=(15-W>*10:IFAA<100THENAA=
100
540 M*=" AVERAGE TIME" : DRAW" BM20,
80; C4" : GOSUB 1 000 : M*=STR* ( AA> : DRA
W " BM 1 80 , 80 " : GOSUB 1 000
550 T=AA-T: IFT<1THEN5S0
560 M*=" BONUS X"+STR* <W*5> : DRAW"
BM20 , 1 1 ; C3 " : GOSUB 1 000 : FORD= 1 TOT
: DRAW"BM180 S1 1 10; C3" : M*=STR* (D* (W
*5>>:GOSUB1000:DRAW"BM180,110;C1
" : play"l200o1 ; aba" : gosub 1000: nex
t: drawbm1s0, 1 10; c3" : gosub1000
570 m*=" special bonus" : draw" bm20
, 150;c2":gosuB1000:draw"BM21, 149
" : gosub 1000: m*=5tr* <p> : draw "bm 18
, 1 50 " : gosub 1 000 : p=t* < 5*w ) +p : for
d=1to1999:next:gosub1020:goto590
580 m*= " no bonus " : draw " bm20 ,110;
C3":gosubi000:forz=ito999:next:g
OSUB1020
590 I FSB > 1 THENDRAW " BM20 , 1 80 ; C4 " :
M*= " SUPER BONUS " : GOSUB 1 000 : P=SB :
SB=0 : M*=STR* ( P ) : DRAW " BM 1 70 , 1 80 " :
GOSUB1000:GOSUB1020:FORZZ=1TO4:D
RAW " BM20 , 1 80 ; C " +STR* ( Z Z ) : M*= " SUP
ER BONUS" : GOSUB1000: NEXTZZ : FORZ=
1T0999:NEXTZ
600 W=W+l:T=0: GOTO 150
649 'pick coordinates o-f boxes
650 A<1)=RND(105)+130:B(1)=RND(6
0) +24: RETURN
660 A(2)=RND(105)+10:B(2)=RND<60
) +24: RETURN
670 A<3)=RND(105>+10:B(3)=RND(72
) +98: RETURN
680 A<4)=RND<105)+130:B<4)=RND(7
2> +98: RETURN
690 LINE(AtZ) ,B(Z) ) - ( A (Z> +10, B (Z
) +10) , PSET, BF: RETURN
699 'score or crash
700 IFPPOINT<X,Y)=4THEN850
710 IFPPOINT<X,Y)=3THEN730
720 P=RND < 1 ) *20 : GOTO740
730 P=RND(10)*50
740 PLAY " L255 ; V3 1 ; 03 ; ADEBCDGGFF A
acdfbedebcd; vis; bcggdfegdfacabac
dbdge; V6? abbcdacfdegdffebgga; V15
II
750 F=F-1 : GOSUB 1020: I fsc=>e then
E=E+5000 : PLAY " T7L402 ; l ; 03 ; 3 ; 7 ; L
2; 10; L4; 7; L2. ; 10; T2" : DRAW"BM170,
12; ci " : m*=str* (N) : gosub 1000: draw
"BM170,12;C3":n=n+i:m*=str*<n):g
OSUB1000
760 IFF=0THEN500
770 IFX>128ANDY<=96THENQ=1ELSEIF
X > 1 28AND Y >96THENQ=4ELSE I F X < = 1 28 A
NDY< =96THENQ=2ELSE I FX< = 1 28ANDY >9
6THENQ=3
40
the RAINBOW
August 1983
COLOR COMPUTER I FLEX* I OS-9f USERS
DO YOU WANT faster
running programs (over
100 times faster than
BASIC)? A high level
language that is also a low
level language? A compiler
that runs in less than
32K? Assembly language
output? Position
independent code?
Extensive library
functions in source
assembly code? Periodic
newsletters with new
library functions? An aid
in learning assembly
language? Liberal version
updates?
C is the language of the
eighties; accepted by IBM
and Bell Labs for system
development: a compact,
highly versatile, easy to
use language, excellent
to use to build games,
applications, utilities,
operating systems, etc.
DUGGER'S GROWING
SYSTEMS with over 21
years of experience in
computing was first on the
market with a 6809 C
compiler. The compiler has
been extensively tested,
revised, and proven.
DUGGER'S GROWING
SYSTEMS C is a growing
subset of the standard C.
Version 1 contains all the
necessary C commands
(while, if, if else, int, char,
etc.). Version 2 contains
additional features (float,
long, for, goto, etc.).
AN EXTENSIVE
LIBRARY in assembly
language source is
provided (char, I/O,
formatted print,
filehandling, string
manipulating, etc.) Color
Computer version also has
additional functions which
use the BASIC ROM
functions (els, polcat,
floating point, etc.).
ORDER NOW
(new low prices)
Color Computer C Compiler
Version 1.2 (disk version) . . $49.95
Flex C Compiler
Version 2.3 120.00
OS-9 C Compiler
Version 1.2 95.00
C Programming Language
by Kernighan & Ritchie
(a must) 19.95
Computerware
disk assembler 49.95
Computerware Scribe
(Disk editor-text formatter) . 49.95
Shipping add $3.00
C.O.D. and Foreign handling
add 15%
MasterCard and Visa accepted.
duggcr's GRowinGSiswrcm*
Post Office Box 305 • Solana Beach
California 92075 • (619) 755-4373
DEALER INQUIRIES INVITED
Move up to Vy
language compil
*OS-9 is a trademark of Microware. Inc.
iFLEX is a trademark ot Technical Systems Consultants, Inc.
• Professional low profile, finished appearance.
• U.S. made — high quality, quad gold contacts
• Smooth "Touch Typist" feel — no sagging.
• Original key layout.
• No soldering — fast, simple installation,
• No special software required.
• Individually boxed with full instructions.
• Only $69.95.
AT YOUR FAVORITE DEALER OR DIRECT FROIV
* Computers produced after approximately October 1982 require an additional
keyboard plug adapter. Please add S+.9S.
ALL ORDERS: Please add $2,00 shipping and handling in the Continental U.S. All others add air shipping and 53.00 handling. California
residents add 6% sales tax. Foreign orders please remit U.S. funds. \)f e accept VISA and MasterCard
NEW ARCADE GAMES
GLAXXONS / EL BANDITO / COSMIC CLONES / BUMPERS
OTHER GREAT ARCADE GAMES
HAYWIRE / ASTRO BLAST / CAVE HUNTER / SPACE RAIDERS
Arcade Games, Cassettes 24.95— Require 16K / Discs 29.9b— Require 32K
ADVENTURE GAMES
CALIXTO ISLAND / THE BLACK SANCTUM
Adventure Game Cassettes 19.95— Require 16K
Mark Data Products
4001 ALICIA PKWY., WO. 207, MISSION VIEJO, CA 92691 (7T4) 768-1551
Software Authors — Contact us for exdting program marketing detafls.
780 DRAW"C1":LINE(A(Q),B(Q) )-(A<
Q)+10,B(Q)+10) ,PSET»BF
790 GET(A(Q) , B (Q) ) - (A (Q) +35, B (Q)
+ 16) , E, G: DRAW"BM"+STR* ( A (Q) -B) +"
, "+STR* (B (Q) +12) +"S8C3" : M*=STR* <
P) : GOSUB1000: F0RZ=1T0199: NEXT: PU
T(A(Q),B(Q))-(A(Q)+35,B(Q)+16),E
,PSET
800 f0rz=1t04: ifa (z) =0thenonz go
sub650, 660, 670, 680elsenext
810 a (q) =0: d=rnd (2) +1 : draw"c"+st
r*(D):line(A(Z),b(Z))-<a<z)+10,b
(Z)+10),PSET,BF
820 GOTO380
849 'crash
850 FORZ=1TO50: SCREEN1 , 1 : SCREEN 1
, 0: NEXT: F0RZ=1T015STEP3: CIRCLE <X
, Y) , Z , 4: NEXT: N=N-1 : PLAY"L9902; V5
; FFGEEFDD ; V20 ; ECCDBBCAAB ; 1 V3 1 ; G
GFEEDFFECCDBBCDDCBAADGABBA; V6; AA
CBCDGEFAACBC; VI 5" : F0RCL=3T01STEP
-1 : F0RZ=1T015STEP3: CIRCLE (X , Y) , Z
,cl:nextz,cl
860 IFN=-1THEN950
870 T=TIMER
880 T=T+500: GOTO 150
899 'erasing the trail
900 CC=C-99
910 IFPPOINT(X(CC),Y(CC) )=4THEN9
30
920 Z=PFOINT(X(CC),Y(CC)):PSET(X
<CC) , Y(CC) ,Z) :GOTO940
930 Z=RND(50) : IFZ>45THEN940ELSEP
SET(X(CC),Y(CC),1)
940 X(co=x:y(CC)=y:goto400
949 'end o-f game
950 PLAY " L255 " : F0R0=3T0 1 STEP- 1 : C
=RND ( 3 > + 1 : M*= " GAME OVER " : DRAW " BM
20, 100;S16;C"+STR*(C) :GOSUB1000:
F0RZ=12T01STEP-1 : F0RD=1T03: PLAY"
0"+STR* (O) +" ; "+STR* ( Z > : NEXTD, Z , O
960 F0RZ=1T0999:NEXT
970 I FSC >S ( 1 ) THEN 1 050ELSE 1 350
999 "drawing routine
1000 L=LEN(M*) :F0RZ-1T0L:M=ASC(M
I D* ( M* , Z , I ) > -47 : I FM=- 1 5THENDRAW "
BR4 " ELSEDRAWCH* ( M )
1010 DRAW " BR2 " : NE X T : RETURN
1020 M*=STR* (SO : DRAWBM0, 12; CIS
s " : gosub 1 000 : sc=sc+p : m*=strs < sc >
: DRAW " BM0 ,12," C3S8 " : GOSUB 1 000 : DRA
W"Ci " : LINE (208, 0) - (255, 12) , PSET,
BF: DRAWBM210, 12; C4" : M*=STR* (F) :
GOSUB 1000: RETURN
1049 'get score
1 050 PM0DE3 , 1 : PCLS : FORQW= 1 TO20 : P
RINTSTRING*(32, " ! " ) ; : NEXTQW: SCRE
EN0, 1
1060 DRAWBM14, 20; S10; C2" : M*="CO
44
the RAINBOW August 1983
NGRATULAT I ONS " : GOSUB 1 000
1 070 DRAW " BM32 , 60 J C3 " : M*= " TRA I L I
N TAIL" : GOSUB 1 000
1 080 PM0DE4 , 1 : DRAW " BM36 , 35 ; C 1 ; S4
":M*="YOU HAVE MADE THE TOP TEN
OF" : GOSUB 1000: SCREEN 1 , 1
1090 PLAY"T128LlO4;i2;ll;i0;9!8;
7!6!5|4;3;23l;O2|12|ll;i0|9|B|7j
6;5;4;3;2;l;oi;l2;llsi0;9!i8;7;6;
5;4;3;2;l;Tl68;04;i2j8;4;i2;8;4;
i2;8;4;l2;s;4;i2;Bj4;i2;8;4;l2;8
;4;i2;8j4;i2!Sj4,-l2;8j4;i2;8i4;i
2;8?4;i2;8;45i2;8;4;T2"
1 1 00 SCREEN 1,0: DRAW " BM2 , 80 "
1110 M*="ENTER YOUR INITIALS BY
MOVING THE JOYSTICK" : GOSUB 1000
1120 DRAW"BM2,90":M*="UP AND DOW
N TO CHANGE THE LETTERS" : GOSUB 10
00
1130 DRAW"BM2,176":M*="PUSH THE
JOYSTICK BUTTON WHEN YOU HAVE TH
E": GOSUB 1000
1140 DRAWBM2, 1 86 ":M*=" CORRECT I
nitial":gosubi000
1150 LINE (30, 100) -(80, 160), PSET,
B: LINE (90, 100) -(140, 160) , PSET, B:
LINE ( 150, 100) - (200, 160) , PSET, B
1 160 DRAW"S24" : D=65: X=40: A*=" " - Y
= 1
1170 FORQQ= 1 T09 : NEXT: DRAW "BM"+ST
R* ( X ) + " , 1 50 " : I FD< 48THEND=90
1180 IFD>90THEND=48
1190 M*=CHR* ( D ) : DRAW "CI": GOSUB 1
00
1200 J=joystk(0):j=joystk(D:ifj
=0or j=63thendraw " bm " +str* ( x ) + " , 1
505 C0" : M*=CHR* (D) : GOSUB 1000: GOTO
1230
1210 DRAW"BM"+STR*(X)+'\150;C0":
M*=CHR* ( D ) : GOSUB 1 000
1 220 PP=PEEK ( 65280 ) : I FPP= 1 260RPP
=254THEN 1 250ELSE 1 1 70
1 230 I F J=0THEND=D+ 1 : GOTO 1 1 70
1240 IFJ=63THEND=D-l: GOTO 1170
1250 DRAW"BM"+STR*(X)+",150;C1":
M*=CHR* (D) : GOSUB 1000: A*=A*+M*: Y=
Y+l: IFY=4THEN1280
1260 X=X+60
1270 GOTO 1170
1280 FORD=1TO10:IFSC>S(D)THEN129
0ELSENEXT
1290 FORC»10TODSTEP-l:S(C+i)=S(C
) : s* (C+i ) =s* (o : next
1300 S(D)=SC:S*(D)=A*
1349 'display high scores
1 350 PMODE4 , 1 : PCLS : SCREEN 1 , 1
1360 LINE(0,0)-(255,20),PSET,BF:
DRAWBM12, 16; C0; 58" : M*="TRAILIN
TAIL TOP 10": GOSUB 1000
BaWl
1 ^V â–²
Vil |
THE
JUST GOT BETTER
FHL FLEX ONLY*69 95
FHL CC-FLEX has become the standard FLEX for the CoCo. Nowyou can buy CC-FLEX for only
$69.95 for a savings of $30. CC-FLEX includes more extras, more utilities, and more functions than
any other.
INCLUDES:
* BEST PRICE IN THE WORLD!
At $69.93, CC-FLEX, with all these features, is the best price anywhere'
* OFFICIALLY LICENSED TO FHL FROM TSC
CC-FLEX is an official licensed FLEX from TSC. Be wary of unlicensed implementations
* NEW SMOOTH SCROLLING
New with version 5 0:4 is SMOOTH scrolling. This is a feature not found on any
other FLEX,
* NEW VARIABLE RATE SCROLLING
Variable rate scrolling lets you control the speed that the screen scrolls, from smooth to
vary fast scroll. Also this version of CC-FLEX is 50% faster in scrolling than
previous versions.
* NEW 'TED' TINY EDITOR
Included with CC-FLEX at $69.95 is 'TED', which stands for Tiny Editor. TED is fine for
small editing jobs and is the easiest editor to use of any available. You can learn how to
use it in less than five minutes!
* NEW 'ISM' INTERACTIVE ASSEMBLER
ISM is the program for those interested in assembly language but not convinced that they
need to buy one. ISM is the perfect teaching tool to use to learn assembly language
programming. You will need to use it in conjunction with a book on the subject (not
provided). However, ISM includes a complete manual on its operation
* NEW EXTERNAL TERMINAL PROGRAM
If you want to run CC-FLEX connected to a terminal so that you can get the benefit of a
real keyhnarri and full 24 x 80 display, then EXT will do it for you. EXT allows a standard
terminal and printer to be connected to the CoCo. 'NEW EXT now supports real
hardware handshaking.
* EASY START UP
Just type RUN'TLEX" or DOS if you have 1.1 Disk ROM. Quote from the June 1983 issue
Hot CoCo. Re: FLEX by David Waslar, pg. 143, "It is the easiest to use. After you receive it,
just put it in your drive and type RUN'TLEX" "
* ONLINE "HELP" CAPABILITY
Just like the big mainframes, CC-FLEX has a help function. Just type 'HEI P' and
CC-FLEX will answer your questions and help you run FLEX without having to keep
paging through the manual.
* RECONFIGURABLE TO YOUR NEEDS
CC— FLEX'S powerful SETUP facility lets you change CC-FLEX to suit your needs and
hardware. CC-FLEX is the only FLEX that gives you such complete control
* SUPPORTS ALL DRIVE TYPES AND SIZES, EVEN 3"
CC-FLEX supports every type of drive currently available for the CoCo. These include 35,
40 and B0 track single and double sided. Even the new 3 inch from AMDEX. We supply
support software on the 3 inch drive
* SIX DIFFERENT HI-RES SCREENS
51 x 24 and 16 x 32 with true lower case, 64 x 24 and 64 x 32 all upper case. You can switch
between these screens at will. The different scroll types are available for each
screen type.
* SUPPORTED BY THE LARGEST 6800 SOFTWARE FIRM IN THE WORLD!
FHL is the largest software house in the wnrlrt for 6809 based computers! We have over
100 software packages for FLEX and OS-9, We support CC-FLEX like no other.
OPTIONS AVAILABLE AT EXTRA COST:
* DBASIC - Radio Shack Disk Basic adapted to work with FLEX.
This is standard RS Disk Basic working with FLEX. This only works with FHL FLEX at this
time. DBASIC has everything that RS Disk Basic has except for Direct access files and
those functions that go with Direct access files.
* ED/ASM - Full feature Editor and Assembler
SPECIAL now only $69.95! ED/ASM is the best Editor and assembler for the Color
Computer. The editor is hnth screen and line oriented while the assembler is a full
conditional macro assembler.
REVIEWS:
Quote from the June I983 Issue of HOT COCO. Re: FLEX by David Wasler, pg. 143.
"Frank Hogg Color FLEX has been on the market the longest and has the most software
support. It is also the easiest to use. After you receive it, just put it in your drive and
type RUN'TLEX"."
Quote from the March 1983 80 MICRO review by Scott Norman, pg. 101.
"I think CC-FLEX offers the most painless way of trying one's hand at an advanced
operating system tor the Color Computer. It offers quite a few "big machine" features, and
opens the door for a lot of applications software."
Frank Hogg Lab brought FLEX tn the CoCo over a year and a half ago. It has gone thru 5
updates since its original release in February 1982! FHL not only has FLEX, we support our
TLCX with more software than anyone else in the world! We have over 100 software
packages compatible with FHL CC-FLEX to fulfill all your needs. These range from
languages, utilities and software development tools to data base management, word
processing and business applications. We guarantee these programs will work with our
FHL CC-FLEX and probably with any licensed version of FLEX!
And. there is no better way to purchase FLEX for less!!
So, order FHL CC-FLEX today and take advantage of our SUMMER SPECIAL Of
$09.95 to bring out the true power of your O0C0!!
We will accept Prepaid, COD, VISA, M/C and Diners. Please include $3.50 for shipping
and handling.
FRANK
HOGG
j^â„¢ |^^ I LABORATORY
THE REGENCY TOWER. 770 JAMES ST. -SYRACUSE, NY 13203. TELEX 646740.(315) 474-7856
THE
JUST GOT BETTER
ED /ASM *69 95
LOOK AT THESE FEATURES
ED
ED is both line and screen oriented This means that you can edit by line number or bv
using screen type editing where you move the cursor to where you wish to edit and then
make your changes. The line editing rnude is very handy for programming as most
assemblers and compilers refer to line numbers when an error occurs, thus making it easy
to correct if the editor like ED can go to a line number to edit. Once there, ED can switch to
screen editing to make the corrections.
ED also has cut and paste type of editing, where you can split a line and move the other
half. You can also delete and rename tiles on disk from ED, edit more than one file without
leaving ED, and many more. Here is a list of features:
Menu will list the command set for ED
Set allows changing editor characters
Cursor allows changing cursor control strings
X sends out a user defined string
Status list flags and other internal editor settings
Head allows setting and listing of headers and tabs
Tab allows setting tab stops
Width set screen width
Number toggle number flag
Renumber renumbers the lines
Verify toggle the verify flag
Zone set or reset the zone tlag for string searches
Top go to the top of the text ( also works)
Bottom go to the bottom of the text (! also works)
Next target line becomes the current line
Find finds target string
Append appends a string to the current line
Change changes this to that in the text
CChange like above but asks you first
Copy copy a block a text
Cut cut the current line at a specified column
Delete a line or block of lines
Expand tabs in the text
Insert insert after the current line
Move move a block of text
Overlay the line
Print a line or block of lines
Replace a line or lines
Splice a line to the current line
Stop save the lext to disk and edit
Abort exit the editor without changing anything
New allows working with files larger than available memory
Edit restart the editor with a new file
Dir list the directory of the disk
Read insert a file from disk into the file in memory
Write write a block of lines to a file on disk
Save save the file to disk
List list a line or group of lines
FEDL deletes a file on disk
FREN renames a tile on disk
CMACRO create a macro
LMACRO list one or all macros
DMACRO delete a macro
MACRO execute a macro
CALCULATE performs math functions with results In binary, decimal, and hex
EXEC exec a text file as a set of commands for the editor
Bell rings the terminal bell (useful in macros)
REM used to document macros.
As you can see, ED is a very versatile and powerful editor for all your editing needs. It
is particularly useful for the programmer that needs a flexible editor!!
THE BEST JUST COT BETTER
** SUMMER SPECIAL**
ED/ASM ONLY $69.95
FHL ED/ASM has been recognized as the most versatile package in its price range for
FLEX. Now the best is less. Save $30 by buying ED/ASM during our summer special!!
LOOK AT THESE FEATURES
ASM
ASM is a fast and versatile (8 bit) macro assembler. It has the necessary elements to
support structured constructs like WHILE and FOR etc. These are the ability to define
macros with substitutable parameters, conditional assembly directives, and the ability to
change the value of a label or symbol. In addition, source code may be assembled in
modular form. That is as a series of LIBrary files. A short file containing a list of file
specifications in standard assembler source format may call as many library files as
desired. Symbols default to a maximum length of 6, but may be redefined to a maximum
length of 3 to 30 characters.
ASM supports auto fielding and automatic label generation. Labels may be automatically
generated and accessed within expressions.
This function has great power when used within macros. An example is the BASIC
statement PRINT "HI". A macro would be created as:
An example would be:
PRINT MACRO
would
expand into:
BRA :1
LDX #:1
PRINT "HI"
FCC "HI", 4
JSR PSTRNG
LDX L0001
: EQU *
BRA 2
JSR PSTRNG
becomes:
BRA L0001
: FCC "&V',4
. EQU *
ENDM
L0001
L0002
BRA L0002
FCC "Hl",4
EQU -
FCC "Hl",4
L0001 EQU *
ASM supports the following directives or pseudo operators.
FCC
FCS
FCB
FOB
SPC
LEN
OPT
PAO
ORG
RAM
EQU, SET
END, MON
NAM, TTL
STTL
RMB
ERR
RPT
form constant
character(s)
form constant string
form constant byte
form double byte
insert spaces in the
output listing
set up length of output
line for printing
switch assembler
options
skip to next page
define a new origin (*)
define a new storage
counter origin (.)
(re-) assign a value to
a symbol
signal end of source
code
specify a name or title
specify a subtitle
reserve memory bytes
print error message
repeat following line
n times
MACRO
define a macro
ENDM
end a macro definition
EXITM
exit macro being called
DUP
duplicate lines n times
up to 'ENDD'
ENDD
end duplication bracket
IF
conditonal assembly
control
ELSE
complement true-false
flag
ENDIF
end conditional
assembly clause
ENDC
end conditional
assembly clause
WHILE
incremental conditional
assembly control
WELSE
complement sense of
WHILE test
ENDW
end WHILE clauses
LIB
open a library source
code file
SYM
define length of
significant characters
for symbols
So, order FHL ED/ ASM today and take advantage of our SUMMER SPECIAL to bring out
the true power of your CoCo.
We will accept Prepaid, COD, VISA, M/C and Diners. Please include $3.50 for shipping
and handling.
FRANK
HOGG
LABORATORY
THE REGENCY TOWER'7 70 JAMES ST. "SYRACUSE, NY 13203-TELEX 646740»(315) 474-7856
1370 LINE<0,0)-<255,21>,PSET,B:D
RAW "CI"
1 380 FORD- 1 TO 1 : Y-D* 1 6+20 : DRAW " B
M91 , "+STR* (Y) : M*=STR* (D) : GOSUB10
00
1 390 DRAW " BM 1 30 , " +STR* ( Y > : M*=S* (
D) :GOSUB1000
1 400 DRAW " BM 1 7 1 , " +STR* ( Y ) : M*=STR
* (S (D> ) : GOSUB1000
1410 NEXTD
1420 FORX=0TQ90STEP2:LINE(X,22>-
(Xj, 191) ,PSET:NEXT:GOSUB14S0
1430 FORX=0TO90STEP2:LINE(X,22>-
<X, 191) , PRESET: NEXT: GOSUB14S0
1440 F0RX=1T089STEP2:LINE(X,22>-
<X,191),PSET:NEXT:GOSUB1480
1450 F0RX=1TQ89STEP2:LINE(X,22>-
< X , 191 ) , PRESET: NEXT: GOSUB14B0
1460 IFG«1THENG=0ELSEG=1
1470 SCREEN 1,G: GOTO 1420
1480 PLAY"L3201C02C03C04C05C"
1490 PP=PEEK (65280) : IFPP=1260RPP
=254THENPM0DE1 , 1 : PCLS: SCREEN 1 , 0:
GOTO50
1 495 A*= I NKE Y* : I FA$= " E " THEN3000
1500 RETURN
1510 'data for characters
1520 DATABRHU4ERFD4GNLBR2
1530 DATAR2U6NGD6R2
FLY the F HI
instrument
Flight
Simulator
Exciting simulation of jet flight
Navigate a new course each flight or
do aerobatics. Instrument takeoff s
and landings. Variable control
sensitivity for beginner or expert.
Fully instrumented including "Heads Up"
display. Specify 16K or 32k ex. basic.
Tape $19.95 Direct save to DISK
LPVN/DMP100 Descenders
abcdef ghi Jk 1 r»mopc|r£tuvwxyz
User transparent machine language.
Includes CHROUT; a program to modify
ml software, such as Telewriter- 64 T "
by Cognitec, to use the DESCENDERS program
16K/32K TAPE $15.95 Direct save to DISK
Add $1.00 for shipping to all orders.
KRT Software 81 3- 321-2840
P O Box 41395
St Petersburg, Ft 33743
1540 DATABU5ER2FD6L2GD2R4
1550 DATABU5ER2FDGNLFDGL2NHBR3
1560 DATABR3U6G3R4BD3
1570 DATABUFR2EU2HL3U2R4BD6
1580 DATABU3R3FDGL2HU4ER2BD6BR
1590 DATABU6R4DG3D2BR3
1600 DATABRHUER2EUHL2GDFR2FDGNL2
BR
1610 DATABRR2EU4HL2GDFR3BD3
1 620 DAT ABR4 , BR4 , BR4 , BR4 , BR4 , BR4
, BR4
1630 DATAU5ER2FD2NL4D3
1640 DATARU6NLR2FD6NL2FDGNL3BR
1650 DATABR4BU5HL2GD4FR2EBD
1660 DATARU6NLR2FD4GNL2BR
1670 DATAU6NR4D3NR3D3R4
1680 DATAU3NR3U3R4BD6
1690 DATABUU4ER3BD4NLD2L3NHR3
1700 DATAU3NU3R4NU3D3
1710 DATAR2U6NL2NR2D6R2
1720 DATABUNUFR2ENU5BD
1730 DATAU3NU3RNE3F3
1740 DATANU6R4
1750 DATAU6F2DUE2D6
1760 DATAU6F4NU4D2
1770 DATABRHU4ER2FD4GNL2BR
1780 DATAU6R3FDGL3D3BR4
1790 DATABRHU4ER2FD4GNL2BUHF2
1800 DATAU6R3FDGL3RF3
1810 DATABUFR2EUHL2HUER2FBD5
1820 DATABU6R4L2D6BR2
1830 DATABUNU5FR2ENU5BD
1840 DATABU6D4F2E2U4BD6
1850 DATANU6E2UDF2NU6
1860 DATAUE4NUG2H2NUF4D
1870 DATABU6DF2E2NUG2D3BR2
1880 DATABU6R4DG4DR4
1999 'read scores -from disk
2000 I FPEEK ( 1 88 > -6THENRETURN
2010 OPEN" I " , #1 , "TTSCORES/T10"
2015 IF E0F(1>=-1 THEN2050
2020 FORZGN1TO10
2030 INPUT#1 S S<ZQ>
2035 INPUT#1,S*<ZQ>
2040 NEXTZQ
2050 CLOSE* 1
2060 RETURN
2999 'write scores to disk
3000 I FPEEK ( 1 88 ) =6THENEND
3010 OPEN"0",#l, "TTSCORES/T10"
3020 FORZQ=1TO10
3030 WRITE#1,S<ZQ)
3035 WRITE#1,S*(ZQ)
3040 NEXTZQ
3050 CLOSE#l
3060 END
48
the RAINBOW August 1983
TDP SYSTEM 100* / QUALITY DISCOUNT PRODUCTS / COLOR COMPUTER*
DISCOUNT PRICES / COMPARE / WE'RE FAST / ORDERS SHIPPED WITHIN 24 HR.
Software Specials 20% OFF
PRICKLY-PEAR SOFTWARE
Astrology
Fantasy Games (32K)
PETROCCI FREELANCE
Inspector CLUEseau
Stress
Weather Watch
TOM MIX SOFTWARE
Space Shuttle (32K)
Trap Full
SOFT SECTOR MARKETING
Color Caterpiller
Master Control II
B-5 SOFTWARE
Clock
Money
Math Fact
ABC's
34.95 27.95
24.95 19.95
17.95 14.35
17.95 14.35
17.95 14.35
28.95 23.95
27.95 22.95
This MonJ'f
Special].
64KBAWS7-
$49.95
19.95
19.95
15.95
15.95
24.95 19.95
19.95 15.95
16.95 13.95
9.95 7.95
PRICKLY-PEAR SOFTWARE 15% OFF ALL LIST
19.95
Viking" 19.95 16.95
Gangbuster 19.95 16.95
Football 19.95 16.95
1 Ching 19.95 16.95
Numerology 19.95 16.95
Tarot 19.95 16.95
Trilogy (1 Ching,
Numerology, Tarot) 39.95 33.95
Phonics! 24.95 21.95
Great Word Game* 19.95 16.95
Household Helper 19.95 16.95
Math Pack 1 19.95 16.95
Pre-Read 24.95 21.95*
Song Book (w/tapes) 29.95 25.95
Fantasy Games Pk 19.95 16.95
Las Vegas Weekend 24.95 21.95
Phonics II 24.95 21.95
8-Bit Bartender 19.95 16.95
RADIO SHACK
64K Ext. Mod.
16KExt.
Drive O
9V2" Tractor (3000 sh)
9V2" Tractor (500 sh)
Computer Cassettes
Assorted ROM pkg.
MD Keyboard
King
Katerpiller
Protector
Astro Blast
Space Rider
TOM MIX
(3?K)?4,95
(32 K) 24.95
(32 K) 24.95
MARK DATA
24.95
24.95
375.00
279.00
449.00
24.95
5.95
.99
1 0% Otf
59.95
22.95
22.95
22.95
22.95
22.95
Aardvark Products
Haunted House 9.95
Killer Bot 13.95
Labyrinth 14.95
Starship Here. 14.95
Time Trek 14.95
Escape from Mars 1 4.95
Pyramid 14.95
Quest 14.95
Trek Adventure 14.95
Circle World 14.95
Nuclear Sub 14.95
Venture 19.95
Tiny Compiler 24.95
Tube Frenzy 19.95
Derelict 14.95
Caterpillar 19.95
Space Battler 12.95
Golf 9.95
Catchem 1 9,95
Spectrul Associates
Cosmic Invaders
Meteorites
Space Wars
Ghost Gobbler
Robot Attack
Galax Attack
21.95
21.95
21.95
21.95
21.95
21.95
19.75
19.75
19.75
19.75
19.75
19.75
Computer Island
Circus 10.00
School Maze 10.00
Name That Song ea. 1 0.00
(I, II, III)
Silly Sentences 6.00
Silly Stories 6.00
Poetry 6.00
Wizard 6.00
Apartment House 6.00
Mystery
Sugar Software
Silly Syntax 19.95
Additional S.S. Tapes 9.95
Fairy Tales
Sing Along
X-Rated
Current Events
Adventure
Potpourri
Auto Run 14.95
TIMS (32K) 24.95
Eigen Systems
Basic Aid (cart.) 34.95
Stripper 7.95
Ccead 6.95
Cognitec
Telewriter 64
59.95 54.95
Terms: Cash, money order, your personal checks welcome.
No waiting to clear on software items. Shipping and C.O.D.
please add $2.50, hardware add 5% extra for packing. All pro-
grams are 16K except where noted. We're open for phone
orders from 12:00 noon until 9:00 p.m., 7 days a week. Send
for our free catalog listings. We accept all foreign orders in
U.S. funds only.
Warranty: All hardware products are warranted for a period of
1 80 days from date of purchase. We shall not be liable for loss
or damage, alleged or caused indirectly to hardware or soft-
ware including interruption of service, business loss, loss of
expected profits or any damage resulting from use of hard-
ware or software. 'Trademark of Tandy Corp.
Desert Software, p.o. box 502, cortaro, az 85230
Call (602) 744-1252 for immediate C.O.D.
GAME
16K
ECB
â– â– â–
raIpIbow
I
-'./«■-.\_
^
Talk About Your
Chopped Don/n Ford!
Bk Joel Robbins
so
One thing I keep forgetting and relearning on CoCo is
almost nothing is impossible. Although 1 had writ-
ten many programs and done "the impossible" many
times, when my son asked me to create a car designing
program, 1 told him it would be too hard and complicated. I
just thought that all of the dimensions, angles, circles and
Interconnected lines would make it a real headache.
Two months passed before 1 ran out of other program-
ming piujecls. Frustrated at not having a program to work
on, I finally and half-heartedly sat down to begin writing
Autodesigner. To my amazement it was basically done in
two evenings.
The real guts of the program arc from lines 78 to 94. Line
79 draws the bottoms of the cars, which are always the same
length. To make the cars look shorter, the vertical dimen-
sions are lengthened. After line 85 all of the LINE com-
mands contain only the second coordinate, which makes
this section look so uncomplicated.
The one complicated part was thinking only in variables
(EE, GR, etc.) and making sure that the new input was
added to or subtracted from the correct previous input
before the dimensions were set to the graphics generating
routine. Labeling lines 85 through 91 with REM (') state-
ments helped me keep things straight,
The inputting of dimensions, and the feature which allows
the user to change one dimension without changing the
others, turned out to occupy the largest amount of space
(lines 18 to 73 and 96 to 102).
1 added the sample design option last. The dimensions for
it are located in line 108. The section makes it much easier to
become acquainted with the workings of Autodesigner and
gives the program an early graphics display.
A few standard menus and directions were the finishing
touches. I knew my boy would like the program, but my
friends who have seen it even like it more. It's that frustrated
car designer in all of us. I used to want to be an architect, too.
In fact, my wife thought that I should write a program that
would design houses. Is she kidding? All of those dimen-
sions, rectangles and interconnected lines would make it a
headache to program.
the RAINBOW August 1983
y
"V
(Joel Robbins has been enjoying
the color computer for about a
year and a half, and has published
a number of his programs. He has
a wife and two children and
teaches high school literature.)
CGP-115 Color
Graphics Printer
Was S249.95 in
Cat. RSC-9
I ^J^J 26-1192
â– i
.T± m L m L m i
Color Disk Drive =0
Cut 3 1990s
Was S599.00 In
Cat RSC-9
QQQ95
WW^F 29-3022
Only S2B Per Monlh
On CidLine Credit
\
\
>.
New Low Prices!
TRS-80 Color Computer Accessories
A Smart Investment. If you think yourTRS-80 Extended
BASIC Color Computer is a great little system, just watt
until you add disk drives and our Color Graphics Printer!
Increased Storage Capacity. Your first disk drive gives
you quick and easy access to 1 56,672 characters of user
storage. Best of all, with a Color Disk System, you can
use our powerful disk software for word processing, fore-
casting and planning, filing and more. Once you have
your first disk drive, you can also add up to three more
drives (26-3023) for only $279,95 each, That's also a new
low price, and $119.05 less than what's listed in Cat.
RSC-9! (Just $26 per month on CiliLine credit.) With four
drives, your total disk capacity is over 626,500
characters.
Printed Reports and Graphic Output. With the
CGP-115, you can create beautiful color graphics rang-
ing from pie charts to computer-generated "doodles". A
text mode lets you print 40 or 80 characters per line at 12
characters per second— great for program listings. Uses
easily replaceable ink cartridges and standard 4 1 /s?"-
wirie roll paper.
Visit Us Today. See the complete TRS-80 Color
Computer line at your nearby Radio Shack Computer
Center, store or participating dealer. Ask about upgrading
your Standard Color Computer to use disk drives with our
Extended BASIC ROM Kit (26-3018). Was $99 in Cat.
RSC-9, now just $79.95, plus installation charge.
The biggest name in little computers®
A DIVISION OF TANDY CORPORATION
Sand me a free TRS-80 Computer Catalog today!
Mail To: Radio Shack, Dept, 34-A-E5
300 One Tandy Center, Fort Worth. Texas 76102
MAMF.
ADDRESS _
CITY
. STATE .
.?IP.
TELEPHONE .
Prices apply at participating Radio SriacK stores and dealers.
v/
17...
. 020A
42...
. 04E2
72....
. .0701
95....
. 08F6
END..
. 0B7F
The listing:
1 ' JOEL ROBBINS
2 » RRtt 5, BOX 450
3 ' SYRACUSE, IN 46567
4 PMODE 3,1
5 CLS
6 PR I NT@4 1 , " AUTQDES I GNER "
7 PRINTS96," INPUT DIMENSIONS A
ND DESIGN YOUR OWN CARS. THE
NUMBERS IN () ARE SUGGESTED LI
MITS. ALL OF THE DIMENSIONS A
RE INNER- RELATED SO PLAN ACC
ORDINGLY. "
8 PRINTe28S," YOU CAN CHANGE TH
E DESIGN AT ANY TIME BY TOUCH I
NG < ENTER >.
9 PRINTQ416," TOUCH <S> FOR SAMP
LE DESIGN OR <N> FOR NEW DES
IGN. "
10 SA*=INKEY*
11 IFSA*="S"THEN10S
VS* r r ADVANCED MATH PROGRAMS
? AK^ for
ENGINEERS • PHYSICISTS • STUDENTS
FUNCTION GRAPHING MODULE 16K EXT-$19.95
A HIGH RESOLUTION GRAPHS
* GRAPH ANY FUNCTION — 4 AT ONCE
* PARAMETERS EASY TO CHANGE
* AUTO-SCALING OPTIMIZES GRAPH SIZE
A FIND AND COMPUTE FUNCTION VALUES &
ZEROS
* INTERSECTION OF FUNCTIONS
* COMPLETE MANUAL — PROGRAM ON TAPE
CALCULUS MATH MODULE 32K EXT-$34.95
* STARTS WITH THE GRAPHING MODULE
* LOAD UP 9 FUNCTIONS AT ONCE
* FIND AND COMPUTF MAXIMA & MINIMA
* NUMERIC INTEGRATION & DIFFERENTIATION
* COMPOSITE AREAS
* HANDLES PIECEWISE CONTINUOUS FUNCTIONS
* HARD COPIES OF DATA AND/OR GRAPH
* COMPLETE MANUAL — PROGRAM ON TAPE
/ CALCSOFT
,< / P.O. BOX 401
VST. ANN, MO 63074
CHECK OR MONEY ORDER — $1.00 for
shipping
12 IFSA*="N"THEN14
13 GOTO 10
14 CLEAR
15 IU-1
16 CLS
17 GOTO 23
18 PRINT: CLS: PRINT" CHAN
GES"
19 PRINT "FRONT WH = 1 REAR
WH - 2 BTWN WHEELS =3 GRILL
E HI - 4 HOOD LENGTH - 5 HOOD S
LOPE * 6 WNDSHLD HI â– 7 WNDSH
LD SL - 8 ROOF LENGTH - 9 BCK W
ND HI * 10BCK WND SL - 11 TRUNK
LEN * 12 TRUNK SLOPE - 13 PAINT
â– 14
20 INPUT IN
21 IFINM4THEN20
22 ON IN GOTO 23,25,29,33,37,41,
45, 49, 53, 57, 61 , 65, 69, 73
23 INPUT "SIZE OF FRONT WHEEL < 10
-40>"5FW
24 WF=FW
25 INPUT "REAR WHEEL ( 10-40) "f RW
26 WR=RW
27 IFIU=1THEN29
28 GOSUB 104
29 INPUT "DISTANCE BETWEEN WHEEL
S(50-1G0)";A
30 AB-A:A=A/2:A»120-A:B=A+AB
31 IFIU=1THEN33
32 GOSUB 104
33 INPUT "HEIGHT OF GRILLE (0-70)
"5GR
34 GR=*170-GR
35 IFIU=1THEN37
36 GOSUB 104
37 INPUT "LENGTH OF HOOD<0-120>"
SEE
3G EE=EE+5
39 IFIU-1THEN41
40 GOSUB 104
41 INPUT "SLOPE OF HOOD (0-50) "JF
F
42 FF=GR-FF
43 IFIU=1THEN45
44 GOSUB 104
45 INPUT "HEIGHT OF WINDSHIELD <0
-40)"JHH
46 HH=FF-HH
47 IFIU=1THEN49
48 GOSUB 104
49 INPUT "SLOPE OF WINDSHIELD ( 0-
50)";GG
50 GG=EE+GG
51 IFIU-1THEN53
52 GOSUB 104
53 INPUT "LENGTH OF ROOF (0-90)";
II
54 II=GG+II
52
the RAINBOW August 1983
ffinlnr Utrro Journal
TM
COLOR MICRO JOURNAL â„¢ Is A Monthly
Tabloid Publication for Color Computer USERS!
••
COLOR MICRO JOURNALâ„¢ is a Magazine FOR
Color Computer Users BY Color Computer Users. Col-
umns on various compatible Operating Systems, Lan-
guages, Uses (Bulletin Boards, Clubs, using the RS
BASIC, and so on), etc.
•••
Programs - Games - Reviews - Education - Hardware -
Software - New Product Announcements - Books
••••
Get the MOST from your COLOR COMPUTER
without being an Engineer.
DON'T MISS A SINGLE ISSUE
Subscription Rate of only $16.50 a Year!!!
•••••
COLOR MICRO JOURNALâ„¢ published by the
ONLY pure 68xx, INTERNATIONAL Computer Maga-
zine. '68 Micro Journal has provided coverage for over
FIVE Years. We KNOW the Color Computer, the Soft-
ware (both FUN and WORK) that IS and CAN BE run on
it. We KNOW the products that ARE, CAN BE, or
WILL BE used on the Color Computer.
(Unlar Mxtro 3lnurnal
Limited Time Charter Rates
USA - $16.50 per year. Canada & Mexico - $23.00 per year
Surface Foreign - $28.00 per year. Airmail Foreign - $52.00 per year
l
"Color Micro Journal is a trademark of Computer Publishing Inc.
Yes! Start my copy of Color Micro Journal coming as soon as
possible!
Name_
Address.
City
-State-
Zip
â–¡ Visa â–¡ Master Card â–¡ Check or Money Order Enclosed
Card # ^-
Exp/Date
55 IFIU=1THEN57
56 GOSUB 104
57 INPUT "HEIGHT OF BACK WINDOW(
0-50) ";ll
58 LL=HH+LL
59 IFIU=1THEN61
60 QOSUB 104
61 INPUT "SLOPE OF BACK WINDOW (-
30 TO +30)"?KK
62 KK-II+KK
63 IFIU-1THEN65
64 GOSUB 104
65 INPUT "LENGTH OF TRUNK (0-50)"
I MM
66 MM=KK+MM
67 IFIU»1THEN69
68 GOSUB 104
69 INPUT "SLOPE IF TRUNK < -10 TO
30) " ; MN
70 MN=LL+MN
71 IFIU=1THEN73
72 GOSUB 104
73 INPUT"PAINT < 1-4) " ; ZP: IFZP>4TH
EN73
74 IFIU=1THEN 76
75 GOSUB 104
OELRICH PUBLICATIONS
BRINGS YOU
GREAT SOFTWARE VALUES
1.) ZAXXON (by Datasoft) The official version from
SEGA. Great graphics and sound! Maneuver
your way through enemy planes and anti-air-
craft fire to meet your date with the deadly robot
ZAXXON! 32K cassette $35.95
2.) MOONSHUTTLE (by Datasoft) Watch your
screen explode with life threatening man-o-
wars, meteors, bomb launchers and more! The
Prince of Darkness is the enemy, so this one will
take your best effort. 16K cassette $31.00
3.) 3-D Tic-TacToe (by J. Makcwski) It's human vs.
computer in this all machine language version
of a classic. Great graphics and a very strong
playing program make this a bargain.
16K cassette $16.95
4.) FROQ TREK (by R. Oelrich) Use the keyboard ar-
rows to guide your frog through rush hour traffic
and across the river. All machine language code
for fast play. 16K cassette $14.95
All prices include shipping so you save!
TO ORDER SEND CHECK OR M/O TO:
OELRICH PUBLICATIONS
4040 NASHVILLE
CHICAGO IL 60634
OR CALL TOLL FREE: 800-6210105
(in Illinois call 312-545-9286)
VISA AND MASTERCARD ACCEPTED
76 PCLS
77 SCREEN 1,0
78 LINE (0, 180) - (255, 180) , PSET
79 LINE(0, 170) -(255, 170), PSET
80 PAINT (10, 181), 3, 4
81 CIRCLE (A, 1B0-WF),FW,0* FRONT W
HEEL
82 CIRCLE (A, 180-WF), 3,0
S3 CIRCLE (B,180-RW),WR,0' REAR WH
EEL
84 CIRCLE (B,180-RW), 3,0
85 LINE (0, 170)- (5, GR), PSET' BRILL
86 LINE- (EE,FF), PSET 'HOOD
87 LINE- (86, HH), PSET 'WINDSHIELD
88 LINE- (I I, HH), PSET' ROOF
89 LINE- (KK,LL), PSET' BACK WINDOW
90 LINE-(MM,MN),PSET'TRUNK
91 LINE- (255, 170), PSET' BACK BUMP
ER
92 PAINT (120, 169), ZP,
93 PAINT (10, 169), ZP,0
94 PAINT (240, 169), ZP,0
95 GOSUB110
96 BS*=INKEY*
97 IF BS*=""THEN96ELSE9B
98 CLS:PRINT®32, "TOUCH <C> TO CH
ANGE DESIGN TOUCH <N> FOR N
EW START"
99 PU* - INKEY*
100 IU=0
101 IF PU*- ,, C"THEN1S
102 IFPU*="N M THEN5EL5E99
103 END
104 INPUT "TOUCH <D> FOR DESIGN O
R < ENTER > TO MAKE OTHER CHANGES"
i IP*
105 IF IP* ="D"THEN76ELSERETURN
106 PRINTS32, "ADD DESIGN FEATURE
S IN LINE 2000"
107 PAINT(110,160),0,0
108 ZP=3: WR=22: RW=22: FW=20: WF=20
: A= 1 80 : AB=A : A=A/ 2 : A= 1 20-A : B= A+AB
: GR=140: EE=100: FF=120: HH=90: GG=1
20: 1 1=170: LL=120: KK=190: mm=240: m
N=140
109 GOTO 76
110 WH*WR:HW=FW
111 IF WR<6THENRETURN
112 IFFW<6THENRETURN
113 F0RTI=1T06
114 HW=HW-1
115 CIRCLE (A, 1B0-WF),HW,0
116 NEXTTI
117 F0RTI=1T06
118 WH=WH-1
119 CIRCLE (B, 1S0-RW) ,WH,0
120 NEXT TI
121 IFTI*=0THENTI = 1ELSETI=0
122 IFTI=0THENRETURN
123 GOTO 76
54
the RAINBOW August 1983
J*iL SKYLINE
Your largest single source of programs and products for the COLOR COMPUTER / TDP 100
THE GEMINI-10
AN ASTRONOMICAL ARRAY
OF FEATURES
FOR A DOWN-TO-EARTH PRICE
SAVE $80.00!!!
Our incredible Gemini-10 package - a
PRINTING SYSTEM ready to plug in to
your Color Computer. NOTHING MORE
TO BUY. Includes serial to parallel
converter, graphic screen print software,
deluxe user manual, and 5 minute setup
instructions! A $479.00 value. Complete
package ONLY $399*.
Parallel printer only, $319.* Order yours
today!
MORE QUALITY: 100cps • thruputtimeof 48 Ipm • high resolution
(120x144) bit image & block (6x6) graphics • extra fast forms feed
MORE FLEXIBILITY: super/subscript • underlining • backspacing
• double strike mode • emphasized print mode • 2.3K buffer
• compatible with most software supporting leading printers • 10"
carriage • 15" carriage Gemini-15 available
MORE RELIABILITY: 180 day warranty (90 days for head & ribbon)
• mtbf rate of more than 5 million lines • print head life of more
than 100 million characters
THE POWER BEHIND THE PRINTED WORD.
micronics'inc
SAVE $130.00!!!
The perfect business
printer at the perfect
price!
Wide 15" carriage
handles any accounting
report or spreadsheet
assignment. Same great
features as Gemini-10.
Complete package as
described above. A
$729.00 value for
ONLY $599.*
Printer only, $519.*
SKYLINE 64K Memory Upgrade Kits
8 guaranteed 200 n.s. 64K memory chips, solderless installation instructions,
Skyline's 64K BOOT and PAGER progams (a $19.95 value). All for the super
low price of $59.00! Order yours today!
ORDERING
INFORMATION
ALL ITEMS SHIPPED
FROM STOCK
Phone orders
may be placed at:
(312) 260-0929
(Our voice line),
or with your
computer at:
(312) 588-7917
(Our MODEM line)
C.O.D. orders gladly accepted,
$2.00 additional.
Mail orders should be sent to:
SKYLINE
MARKETING
442 Sunnyside
Wheaton, IL
60187
*$10 shipping & handling lee on
all printers.
VISA
Super "Color" Library 7
For the TRS-80 Color and TDP System 100 Personal Computers
No matter what kind of problem you are trying to solve with the
Color Computer, there is a program in the ever-expanding
integrated, Super "Color" Library that will give you the solution; '
Faster, Better, Smarter!
Every Library program features MEMORY-SENSE to
determine your computer's memory, from 16 to 64K, and adjusts
automatically to maximize work space. All programs, except the
Super "Color" Speller and Super "Color" Disk-ZAP, feature a true
lowercase display with below linedescenders. Each program has
been written specifically for ths Color Computer in fast machine
code to be totally compatible for optimum performance —
Something a motley assortment of programs from diverse
sources or a passel of overpriced, wallet-FLEXing software from
a bygone era simply can not achieve.
The Super "Color" Library has all the power, speed,
library a volume at a time or put the full power of the complete
library of problem solvers to work right away.
— NEW! —
Super "Color" Writer II
VERSION 3.0 By Tim Nelson
THE INTELLIGENT WORD PROCESSOR
The Super "Color" Writer II is for those who desire the best. It is
the most powerful, fastest, most dependable and versatile word
processor available for the Color Computer, from 16 to G4K. The
Super "Color" Writer II has features for the most demanding
professional, yet it is easy enough for newcomers to master.
Of course the Super "Color" Writer II has all the features you
would expect from the hSjhest quality word processor, such as a
clear, crisp and readable professional display with your choice of
display colors, 9 display formats; standard 32x16 &51-64-85x21
&24 with real lowercase descenders; full 4-way cursor control,
lit commands, the ability to edit any BASIC
program or ASCII textfile. seven delete functions, locate and
change, wild card locate, a real block move & copy, word wrap-
around, programmable tabs, display memory used and left, non-
breakable space, multiple headers and footers, dynamic text
formatting, comprehensive format parameters, use with ANY
printer at any baud rate from 1 10 to 9600 baud, automatic justifi-
cation, automatic pagination, automatic centering, automatic
flush right, underlining, superscripts, subscripts, pause print,
single-sheet pause, optionally print comments, append text files!
available in a ROMPAK cartridge for maximum work space, but
that's only half of the story. No other program can even begin to
compare in features with the Super "Color" Writer II.
Check These Exclusive Features
MEMORY-SENSE adjusts to computer's memory (16-64K) for
maximum work space; TYPE-AHEAD, TYPAMATIC KEY
REPEAT and KEY BEEP for the pros; 3 PROGRAMMABLE
FUNCTIONS; AUTO PHRASE INSERT; COLUMN CREATION
TEXT FILE LINKING; HELP MENU; A TRUE EDITING WINDOW
IN ALL 9 DISPLAY MODES; TRUE FORMAT WINDOW to
display line lengths up to 255 characters, with horizontal and
vertical scrolling to replicate the printed page including centered
lines, headers, footers, page breaks, page numbers, margins,
giving a perfect printed document every time. Also makes
hyphenation a snap; TRUE AUTOMATIC JUSTIFICATION for
neat, even left and right hand margins; Ability to use
CHARACTER CODES for printing special characters available
with your printer; freedom to embed as many PRINTER
CONTROL CODES as desired anywhere in the text EVEN
WITHIN JUSTIFIED TEXT; 90-plus page tutorial manual.
ADDITIONAL DISK FEATURES: Read a directory, Display free
granules, Save with Automatic Verification, Load and Append
ASCII files, and BASIC programs, Kill files, and Link files from
disk for continuous printing. 54K bytes of workspace available
with a 64 K system. Only the best offers all of these features.
TAPE $69.95 ROMPAK $89.95 DISK $99.95
Tutorial only $15.00 (Refunriahle with purchase)
Tape & Disk require 32K for lowercase display
Previous Super "Color" Writer II owners call lyi upgrade policy.
Super "Color" Mailer" (tf$) Super "Color" Speller
By Tim Nelson V* ^^ R p
By Tim Nelson
The Super "Color" Mailer is a powerful multi-purpose mailing
list merging arid sorting program including lowercase display
that uses files created by the Super "Color" Writer II. Combine
files, sort and print mailing lists, print "Boilerplate" documents,
automatically insert text in standardized forms, address
envelopes, the list is endless.
TAPE $39.95 DISK $59.95
Operators Manual only $10.00 (Refundable with purchase)
â– -^ By Peter A. Stark
The Super "Color" Speller is a fast machine-code proofreading
program to correct Super "Color" Writer files. Automatically
proofreads your documents against a 20,000 word stock
dictionary, plus your own customized dictionary and corrects
typos or marks them for special attention.
AVAILABLE ON DISK ONLY $69.95
Operators Manual only $10.00 (Refundable with purchase)
NELSON SOFTWARE SYSTEMS 9072 Lyndale Avenue So., Minneapolis, Minnesota 55420 612/881-2777
32x1 6 & 51 -64-85x21 &24 Display *| /% r*Ji yr
With Lowercase Descenders And I O Thru Ot" l\ Too!
^\M)Super "Color" Calc â„¢ Super "Color" Terminalâ„¢
- ELECTRONIC SPREADSHEET By Kevin Herrboldt
Now you can answer those "What if?" financial piojecliun,
forecasting, budgeting, engineering and calculating questions
with precision, speed and power using the Super "Color" Calc,
truly the finest electronic worksheet and financial modeling
program available for the Color Computer, from 16 to 64K. Now
every Color Computer owner has access , to a calculating and
planning tool rivaling VisiCalc'," containing all its features and
commands and then some. You need only change one variable
and you instantly see how that change affects your assumptions.
You can even use VisiCalc templates freely with Super "Color"
Calc! Combine spread sheet tables with Super "Color" Writer II
documents to create ledgers, projections, statistical and
financial reports and budgets.
Features include: 9 display formats; standard 32x16 & 51-64-
85x21 &24 with real lowercase descenders * MEMORY-SENSE to
adjust to computer's memory (16-64K) for maximum workspace;
Full-size 63x256 worksheet " Easy to use " HELP Menus to make
learning faster * Machine code speed and high precision * Total
flexibility in calculating * Up to FOUR VIDEO DISPLAY
WINDOWS to compare and contrast results of changes * Sine
and Cosine functions, Averaging, Exponents, Algebraic
functions, and base 10 or 16 entry " Multi-layered Column and
Row Ascending and Descending sorts " Locate formulas or titles
in fields * Fasy entry, replication and block moving of frames '
Global or Local column width control up to 81 characters each *
Create titles of up to 255 characters * Typamatic Key Repeat *
Key beep * Type-ahead * Print up to 132 column worksheet "
Prints at any baud rate from 1 10 to 9600 * Print formats savable
along with worksheet " Enter control codes for customized
printing.
DISK FEATURES: Read a directory; Display free granules; Kill
files, Save with Automatic Verification; Load files; Append disk
files tor complete worksheet printing. 54K bytes of worksheet
space available with a 64K system.
Tutorial and sample templates are supplied with the program.
ROMPAK $89.95 DISK $99.95
Tutorial only $15.00 (Refundable with purchase)
Disk requires 32K for lowercase display. /
Super "Color" Disk-ZAP â„¢ {
By Tim Nelson
Now the dreamed-of repair of I/O errors is a reality. The Super
"Color" Disk-ZAP r " is the ultimate repair utility tor simple and
quick repair of all repaiiable disk errors. Designed with the non-
programmer in mind, the Super "Color" Disk-ZAP*" will let you
retrieve all types of bashed files, including BASIC and Machine
Code programs.
This high-speed machine code disk utility has a special dual
cursor screen display to show HEXIDECIMAL and ASCII
displays simultaneously. You are able to: Verify or modify disk
sectors at will " Type right onto the disk tn change unwanted
program names or prompts " Send sector contents to the printer
or any other RS-232 device * Search the entire disk for any
grouping of characters * Copy sectors * Backup tracks or entire
disks * Repaii directory tracks and smashed disks * Full
prompting to help you every step of the way * 50-plus page
Operators Manual which helps you simply and quickly fix the vast
majority of disk errors, and teaches the rudiments of disk
structure and repair.
AVAILABLE ON DISK ONLY $49.95
Operators Manual only $10.00 (Refundable with purchase)
NELSON
SOFTWARE
SYSTEMS
/ri i«M»iW ih->
9072 Lyndale Avenue So. 612/881-2777
TRS-80 is a trademark of Tandy Corp
Division otSoftlaw Corporation Minneapolis, Minnesota 55420 U S A.
TRS-80 is a trademark of Tandy Corp Visicalc is a trademark of VisiCorp.
WE TAKE THE COLOR COMPUTER SERIOUSLY.
AUTHORS' SUBMISSIONS ARE ENCOURAGED.
THE FINEST TERMINAL PROGRAM ANYWHERE!
Version 3.0 By Dan Nelson
The best has become even better, with many new features
including 9 display formats; 32x16 & 51-64-85x21 &24 with real
lowercase descenders, plus compatibility with the 64K Color
Computer. This user-friendly program makes communicating
with ANY computer a breeze even for a newcomer. Communicate
using your modem with all the popular information services such
as Dnw Jones, CompuServe, The Source, and local BBSs, clubs,
friends, or the main-frame at work. You can also communicate
directly with other microcomputers, such as the TRS-80 l/lll, II,
other Color Computers, Apples, IBM PCs, etc., via RS-232
without using a modem. Save the information or PRINT IT!
FEATURES: MEMORY-SENSE to ad)ust to computer's memory
(16-64K) for maximum work space; Selectively print data at baua
rates from 1 10 to 9600 * 54 K of datastorage with 64 K disk system.
128 character ASCII keyboard * Automatic graphics mode "
Word mode (word wrap) for unbroken words ' Send & receive
Super "Color" Writer II, Database & Calc tiles, ASCII files,
Machine I anguage & BASIC programs ' Set communications
baud rate from 110 to 9600, Duplex: Half/Full/Echo, Word length:
5 6 7 or 8, Parity: Odd/Even or None, Stop Bits: 1-9 ' Local
via RS-232
Lower case masking
to perform repetitiv
messages * Prograrr
Selectable characte
lique CLONE feal
* 10 Keystroke M
: pre-entry log-c
ure for copying any tape '
iltiplier (MACRO) buffers
ipt or delay for se
• Files compatib
Library programs,
ADDITIONAL DISK FEATURES: W
Drives; Call a direc
Automatic Vencati
Save and Load KSI
TAPE $49.95
Operators ManuE
directory, Print free space, Kill disk file
r ication and Load textfiles or BASIC
i KSM'S to the disk.
ROMPAK $59.95 I
anual only $10. 00 (Refundable with t
DISK $69.95
Dus Super"Color" Terminal owners call for upgrade polic
)Super "Color" Database
By Dan Ne
This high speed machine language program including true
lowercase displays fills all your information management needs,
be they foryour business or home. Inventory, accounts, mailing,
lists, family histories, you name it, the Super "Color" Database
will keep track of all your data.
The Super "Color" Database features MEMORY-SENS!
adjust to computer's memory (16-64K) for maximum workspace.
It is structured in a simple and easy to understand menu system
with tull prompting tor easy operation. Your data is stored in
records of your own design, each divided into as many fields as
you need. All files are fully indexed for speed and efficiency Full
sort of records is provided for easy listing of names, figures,
addresses, etc., in ascending or descending order The math
package performs arithmetic operations and updates other fields
which is especially useful when used as an order entry and
invoicing system. You can create reports, or lists for mailings, or
whatever. Create files compatible with the Super"Color" Writer II
and Terminal. Up to five different print formats are available, and
control codes may be imbedded for customized printing.
AVAILABLE ON DISK ONLY $79.95
Operators Manual only $10.00 (Refundable with purchase)
For Orders ONLY Call Toll Free
MS 1-800-328-2737
Customer service and product support call (612) 881-2777.
MAIL ORDERS: $3 U.S. Shipping ($4CANADA, $10OVERSEAS)
Personal checks allow 3 weeks. ORDERS SHIPPED SAME DAY!
Available at Dealers everywhere.
If your Dealer is out of stock ORDER DIRECT!
UTILITY
16K
RAINBUG
Part four of a series on our
new machine language
monitor being developed
by the author, Rainbow
Technical Editor,
Dan Downard
To a machine language programmer the most no-
ticablc omission in Non-Extended HASIC is a utility
lor saving binary programs on the cassette recorder.
I his month, we are going to add all of the tape commands.
Punch, Load and Verify along with a disk "zapper" for the
floppy crowd. At the same lime, we will finish our review of
the 6809 microprocessor commands by discussing interrupts
and the condition code register (CC).
Before we start I would like to mention a bug in
EDTASM+. For some unknown reason, the assembler
translates the LDA ,X instruction improperly when convert-
ing it to machine code, Always use the form LDA 0,X when
assembling this instruction, it will save you a lot of debug-
ging. If you have been following this series, you probably
have noticed that I use EDTASM+ for assembling Rainbug.
For the beginner, I would recommend purchasing the ROM
Pack as an excellent method of getting your feet wet. It lacks
some of the features found in disk-based assemblers, hut is
easy to operate and comes with excellent instructions. There
have been several rumors of a Radio Shack disk-based
Editor-Assembler for the CoCo, but 1 guess we will have to
wait for the "super" CoCo to get one. For those of you with a
disk and EDTASM+, I would recommend Roger Schrag's
"Patching EDTASM+ to Run on Disk" in the December
1982 Rainbow. It works fine.
What do you need to get started in machine language
programming? With the EDTASM+ ROM Pack, SDS80C,
or for that matter, any of the editor-assembler tapes adver-
tized, all you need is a 4K Non-Extended basic CoCo. If
58
(Dan Downard is an electrical engineer and has been
involved in electronics/or 24 years through ham radio
(K4KWT). His interest in computers began about five
years ago and he has built several 68 XX systems.)
th» RAINBOW August 19B3
you just want to enter a ML program into memory nut of a
magazine article all you need is a monitor such as Rainbug.
Machine language will run on any 6809 computer with
minor modifications. For small programs, usually the only
changes necessary are to the routines, or addresses, that
input from the keyboard and output to the screen.
Condition Codes
The Condition Code Register (CC) is an internal 8-bit
register within the 6809 processor used to indicate the result
of instructions or operations. Each bit has a separate func-
tion and five of these bits are set/ reset depending on the
previous data instruction. They are the half carry ( H ), nega-
tive (N), zcro(Z). overflow ( V) and carry (Q bits. Two of the
bits are related to interrupts: the fast interrupt request mask
(F) and the interrupt request mask (I). The entire flag (F)
reflects the status of the stack pointer.
Flag
C
Bit#
Description
A carry or borrow was generated by the pre-
vious operation.
A signed arithmetic overflow was caused by
the last operation.
The result of previous operation was zero.
Contains the value of bit 7 from the previous
operation.
A carry was generated by bit 3.
Used to mask the FIRQ line.
Used to disable any IRQ input
Indicates how many registers were saved by
the last interrupt.
Condition codes are generally used to control the flow of
the program. They are the elementary form of the IF. . .
THEN statement. Most of the time they are combined with a
branch statement to form what is called a conditional
Z
N
H
F
I
I
2
3
5
6
4
7
Info: 1313)873-8700
1
i
rfi
•
,â– !
FURY
|SJ( )MINA1| lj 1 ' >\< Bl ST ( .AMI I'lM '.
- FANTASTIC GRAPHICS-
SUPER SPEED -
An |»|. ii »>:,. 1 IrlH.nptnt:,. Mol Air Balloon! ,
P ir.n.liiilt". ind M:u|iM'li' Mine's Ulilkotl
tun lo pi; ly ov t :intl (>v<m .u |. mi
FIRST TALKING GAME FOR THE COCO
Tape S27.95 - Disc $29. 9b
ER SHACK ^ IL
lit ran inn frff iaooi 39?-888i V^SraS^'
branch. For example, the nmemonic BEQ stands for branch
if equal. If the processor encounters this instruction it will
examine the zero (Z) bit in the CC register and the program
will branch to a new location if it is set.
Interrupts
The 6809 has six vectored interrupts, three hardware and
three software. What's an interrupt? What's a vector? Some-
times during a normal program we wish external inputs to
halt program execution and perform another task. An
example would be an action game. While the processor is
busy updating graphics on the screen how does it know that
the fire button has been pressed?
A hardware interrupt is a ded icated input into the proces-
sor that stops program execution, performs another task,
and then restores the program counter to its previous value.
A software interrupt does the same thing when certain
instruction codes are encountered.
"Vectored "means that, when the processor recognizes an
interrupt, the program counter is pointed to a certain
address for farther action. The reset button on the rear of
your computer is actually a vectored interrupt. When you
depress the reset, the processor jumps to the address stored
at location SFFFE. Examining assress SFFFE will give you
the start of BASIC, or SA027.
Another interrupt that is used in the CoCo is the FIRQ.
Pin 8 of the cartridge connector is indirectly connected to
the FIRQ line of the 6809 to indicate the presence of a ROM
Pack. When a FIRQ interrupt is recognized program execu-
tion is transferred to SC000 or the address of the ROM
Pack.
Following are the 6809 interrupts:
PAY WHAT YOU WAKT
for home ond business software
P5CoCoondTDP-100
16/32K Disk or Cassette
Extended Color Basic Required
BUDGET RECORD
Income 6 outlay by 99 categories. Great for taxes. 32k
MAILING LIST
Makes labels, printouts and alphabetized lists. M/L sort.
APPOINTMENT BOOK
Print a calendar with any number of memos/day. (32k. Requires
printer with compressed churuuers)
GRADE BOOK
Moke rolls & grade sheets, complete with stats and totals.
ALSO AVAILABLE
Phone (took. Sales Record, Car Repairs. Diet Delight, Grocery List.
The Fine Print:
Order two programs maximum. Send shipping/hondling in advance
(1— £4.00; 2— $6.00), After using the program, pay only what the program
is worth to you. Lets try applying right livelihood to the software industry!
Specify 16/02K and type of printer.
Druck Associates
6609 Westmoreland Ave.
Takoma Park, MD 20912
(001)270-5822
Interrupt
Nmemonic
Vector
Reset
RESET
SFFFE
Non-maskable
NMI
SFFFC
Software
SWI
SFFFA
Interrupt Request
IRQ
SFFF8
Fast Int. Request
FIRQ
SFFF6
Software 2
SW12
SFFF4
Software 3
SW13
$FFF2
Rainbug
This month we are going to add several new commands to
Rainbug. They consist of tape loading, saving and verifica-
tion, disk examination and printer control. The new com-
mands can be used as follows:
@— Toggle printer on or off. This command must be
entered following a prompt.
P— xxxx yyyy zzzz filename-Save a mahine language
binarry format file. xxxx=starting address, yyyy—
ending address, zzzz=execute address. Filename
must meet BASIC specifications.
L— Same as BASIC CLOADM command.
V— Same as basic SKIPF command.
D(X)— Read/ write to disk. X=R for read. X= W for write.
All of the commands are self-explanatory with the excep-
tion of the D(X) command. After a DR command, you are
prompted for the drive, track and sector which must be
entered in HEX. The data in this sector of the disk will be
transferred to a buffer located at $2000-$20FF where it may
be examined or changed using the M command. After the
data is changed it can be written back to any sector using the
DW command. Be careful!
Summary
Next month, we will wrap up Rainbug with the program
execution and breakpoint commands. I will try to show you
how to use some of the routines already in the BASIC ROMS
for your own ML programs. Also, some tips on modifying
existing programs will be discussed. If you have any ques-
tions or suggestions of future topics that need discussion,
please write in care of the magazine.
Free catalogue on request
00100 tRAINBUfl
00110 *DAN DOHNARD
REV 3
00111 *LINES 100-2550 AND LINES
00112 *2885-3990 APPEARED IN PARTS
00113 <
(1,2 AND 3 OF THIS SERIES
3000
00120
0R6
$3000
02555 »TA8LE OF COMMANDS
3205
02560 CHDTEL EQU
*
3205
42
02570
FCC
III
3206
0201
02580
FDB
BKPT-*
3208
43
02590
FCC
/C/
3209
01 FF
02600
FDB
CALL-i
320B
44
02610
FCC
/D/
320C
01 7C
02620
FDB
DISK-*
320E
45
02630
FCC
III
320F
0054
02640
FDB
ENCDE-*
3211
47
02650
FCC
IBI
3212
01F7
02660
FDB
60-»
3214
4C
02670
FCC
III
3215
72E9
02680
FDB
LOAD-*
3217
4D
02690
FCC
/«/
60
the RAINBOW
August 1983
UODH 10 M BASF-DPS
â– ^#imH l^# WORLD STANDARD
TAPE
IPATATRAC/C-OS, C-10, C-20J
CASSETTE STORAGE CADDY
^ ORGANIZE
YOUR TAPES!
$2 95 EACH
COMPUTER GRADE BLANK CASSETTES
PREMIUM 5-SCREW SHELL WITH LEADER FITS ALL STANDARD RECORDERS
PREFERRED BY SOFTWARE PRODUCERS, SCHOOLS AND BUSINESSES NATIONWIDE
"^EIsTIbOUT YORK 10 CASSETTES:
USERS SAY « D flivonlOO^o'
„... s nice „, have «^,$ ^-AndtW?*
Sr ^re^i-s-,oH
tm the computer witf> a
FINEST QUALITY
PHILIPS (NORELCO)
TYPE HARD BOXES
TRACTOR FEED
DIE-CUT BLANK
CASSETTE LABELS
£^
ORDER NOW
Mail To ...
OF«H
fXWHESAIA.ua' I. '*"
Call: 213/710-1430
FOR IMMEDIATE SHIPMENT
on Credit Card Orders.
VORK 10 "Computer ware
24573 Kittridge St., #R Canoga Park, CA 91307
ITEM 1 DOZEN 2 DOZEN
TOTAL
C-05 D 7.50 â–¡ 13.50
C-10 Q 800 â–¡ 14.40
C-20 D 1000 â–¡ 18.00
Hard Box â–¡ 2.50 D 4.00
Storage Caddy @ $2.95 ea.: Quantity:
FREE: Quantity:
Blank labels â–¡ 4.00/100 â–¡30.00/1000
SUB TOTAL
Calif, residents add 6% sales tax
Shipping/handling 1 doz. $2; 2 doz. $3.50;
3 doz. $4.50; each additional doz. $.50.
For Parcel Post instead of UPS $1 additional
Outside Continental USA, $2 additional
TOTAL
Each cassette includes two YORK 10 labels only. Boxes are sold separately.
Shipments are by U.P.S. unless Parcel Post requested. Boxes, caddies, and
blank labels are free of shipping charges when ordered with cassettes. When
ordered without cassettes, shipping charges: Boxes — $1,00/doz., Caddies
$1.00 each. MINIMUM SHIPPING/HANDLING ON ANY ORDER— $2.00.
Check or M.O. Charge to
enclosed â–¡ Credit Card: â–¡ VISA â–¡ MASTERCARD
Card No.
Exp.
Name
Address
City
State/Zip
Signature
Computer make & mo del Disk?(v/n)
â–¡ CHECK HERE FOR QUANTITY DISCOUNTS PRICE LIST
3218
FDE8
02700
FDB
MEN-*
321A
M
02711
FCC
/ft/
321B
ME5
02720
FDB
PRINTS
321D
4F
02730
FCC
/O/
321E
0017
02740
FDB
OFFS-t
3221
SI
027S0
FCC
l?l
3221
MED
02760
FDB
PUNCH-*
3223
52
02770
FCC
/R/
3224
01E6
02780
FDB
REB-*
3226
S3
02790
FCC
/8/
3227
01E4
02800
FDB
STLEV-*
3229
54
02810
FCC
m
322A
01E2
02820
FDB
TRACE-*
322C
54
02830
FCC
/V/
322D
73BF
02840
FDB
VER-*
322F
57
028S0
FCC
/N/
3230
FE5C
02860
FDB
CNINDO-*
3232
58
02870
FCC
III
3233
002A
02880
FDB
EXIT-*
03995 'CONSTANTS AND RON CALLS
32F8
0102
04000 8E6A
FDB
2
32FA
0002
04010 ENDA
FDB
2
2000
04020 DBUF
EQU
$2000
32FC
04021 RH
RNB
1
32FD
04022 DR
RNB
1
32FE
04023 TR
RNB
1
32FF
04024 SE
RNB
1
A390
04025 MAKE
EQU
IA390
01D2
04026 NAN
EQU
»01D2
A46C
04027 COUT
EQU
IA46C
04028 (VERIFY (SANE A3 SKIPF)
A5EC
04030 VER
EQU
tASEC
04035 ftLOAD (SANE AS CLOAD)
A4FE
04040 LOAD
EQU
IA4FE
04045 *TURN PRINTER OFF/ON
3300 96
6F
04050 PRINT
LDA
I6F
3302 81
FE
04061
CHPA
MFE
3304 26
03
04071
BNE
CHA
3306 0F
6F
04080
CLR
»6F
3308 39
04090
RTS
3309 86
FE
04100 CHA
LDA
MFE
330B 97
6F
04110
STA
I6F
330D 3?
04120
RTS
04125 *CSAVE« ROUTINE
04126 *8ET START, END V EXEC
330E 17
FE2E
04130 PUNCH
LBSR
CDNUN
3311 FD
32F8
04140
STD
BE6A
3314 17
FE28
04150
LBSR
CDNUN
3317 FD
32FA
04160
STD
ENDA
331A 17
FE22
04170
LBSR
CDNUN
331D FD
01E5
04180
STD
•flES
3321 BD
A390
04190
JSR
NANE
3323 C6
08
04200
LDB
•8
3325 10BE 01D2
04210
LDY
NAN
3329 30
01
04220
LEAK
1,1
332B A6
80
04230 PU1
LDA
,Xt
332D 81
30
04240
CHPA
•$30
332F 24
04
04250
BHS
PU2
PAL CREATIONS
SPECIALIZING IN 32K ECB TEXT AQVENTURES AND SIMULATIONS ON CASSETTE.
STALAG ISLE OF FORTUNE * SAC
You are a prisoner of war, trapped in an abandoned You are a fisherrtian in a waterfront bar. The old salt For those against nuclear disarmament- pilot a B52
German Stalag. Can you escape before the bombs just told you a tale of treasure on an island, before the to any one of 36 Soviet cities, destroy it with a nuclear
come poison dart struck...Sail your ship to dangerous bomb, and make it back to the base. 9 difficulty levels
SI 4.95 adventure awaiting you on the Isle of Fortune. You can use keyboard or joystick or both. This simula-
-*- EVASION $19.95 tion takes a lot of pre-planning and fast thinking.
* WITCHES' KNIGHT $1 9 95
Sequel to 'STALAG'. Now that you escaped the Gcr- Back to the days of old where knights were bold and MANSION OF DOOM
man prison camp- how will you get out of Germany? magic ruled the land. Many enchanted surprises The mansion of the mysterious Count Von Steinoff
b difficulty levels. * 1( ,„. await you on your quest to free Sir Noble from the awaits you with unspeakable horrors Defeat the
$19.95 witches evil spell. Vampire or die trying.
SCAVENGE HUNT $14 ' 95 $ 1 4 ^5
Everbeehonascavengehunt?You'veneverbeenon * BOMB SCARE BEACON
one like this before. 8 bombs inacity. Your mission: locateanddisarm all 8 You are a lighthouse keeper. A storm iscoming and a
$15.95 before time runs out. 1 is The Big One. ship is off the coast. Turn on the beacon before the
$14.95 ship runs aground.
$14.95
Buy any 1 of the programs above and get any 1 of the bonus programs below FREE.
* SKI LODGE
BETTER
Times are tough, weather is bad. Manage a Vermont A better betting game for 1 -4 players. You choose the
ski lodge successfully to win this 1-4 player simu- winning criteria.
lation.
ENO
MATCH-IT v . , .. _,
You inherited a million dollars. Just one catch - first
A challenging word game in which you identify you have to find it!
your opponent's 5-letter word using deduction 1-4
players MOTHER LODE
You just inherited your great-grandfather's goldmine.
• Different Every Time Did he die enniless,
Send check or money order to:
PAL
CREATIONS
1 0456 Amantha Ave.,
San Diego, CA92126
Calif, residents add 6% sales tax
62
the RAINBOW August 1983
3331 31
IF
#426f
LEAH
-1,1
3360
04
04416
FCB
$04
3333 86
21
1427*
LDA
1*20
3361
54
04420 DHS62
FCC
/TRACK! (HED/
3335 A7
M
14281 PU2
STA
,*♦
52
3337 5A
#4291
DECB
41
3338 26
Fl
M3M
BNE
Pill
43
04305 *8AVE TO CASSETTE
4B
333A AE
8CBB
84319
LOX
BEBA.PCR
23
333D 9F
19
14328
STX
«19
28
333F BF
0IE7
14330
STX
$01E7
48
3342 AE
8CB5
04340
LDK
ENDA.PCR
45
3345 31
11
04350
LEAX
1,1
58
3347 9F
IB
04360
STX
I1B
29
3349 86
n
04370
LDA
12
336C
04
04421
FCB
$04
334B 8E
MM
04380
LDX
•0
336D
53
04430 DHS63
FCC
/SECTOR! (HEX)/
334E 8D
A46E
04390
JSR
COUT
45
3351 17
FE2F
04400
LBSR
PCRLF
43
3354 39
04410
RTS
54
04412 «DISK PROMPTS
4F
3355
44
52
49
56
45
23
28
04415 DHSB1
FCC
/DRIVE! (NED/
52
23
28
48
45
58
29
48
3379
04
04431
FCB
S04
45
337A
41
04449 DHS64
FCC
/ARE YOU SURE?/
58
52
29
X "1
~ ' Jariif
45
Announcing Saguaro Software
Get To Know US
Offer
Amdek-III is new to Co-Co and
we are new to you. Thru August
31 y°u can get Amdek-III for
only $47500 (Retail $599.00)
including cable & 2 disketts.
3" Diskette S6.00 Each
Boy 12+1 for $72.00 (1 Free)
'TRS-80 Disk Controller
$135 with Arndek-III
$165 Alone
all prices plus shipping
TRS-80 Trademark Tandy Corporation
Amdek-III is compatible with
Model I, III, IV, Co-Co, IBM P.C.
and most 34 pin external drive
computers.
Petrocci Freelance Associates
Ret»U Our Price
Inspector Queseau 19.95 17.7S
Stress 19.95 17.75
Weather Watch 24.95 20.00
Forecaster & Weather 49.9G 35.00
Watch (Disk)
Heart-Lung-CircuIatorY 34.95 27.00
Systems
Medical Terminology 19.95 17.95
Bowling Sec. 24.95 20.00
Petrocci On Amdek add $3.00
Sugar Software
Galactic Hangman
Auto Run
Tims Mail
Tims
Prereader
Stagraph
Tim Bibliograph
Silly Syntax (Tape)
Silly Syntax (Disc)
14.95
14.95
1995
2495
19.95
24.95
9.95
19.95
24.9S
Our Aflidefc
Price Diu
11.95
11.95
15.95 23 95
19.95 27.95
15.95 23.95
19.95 27.95
7.95 15.95
15.95
19.95
Kangaroo Single-5ided Double Density Disk $25/box
Nano System Card $4.50 Laminated $7.75
9'/z Inch Paper
plus shipping
Prickly Pear
Prickly Pear Mail
Music Box
Astrology
Song Book
Cass.
24.95
34.95
29.95
Disk
49.95
29.95
39.95
34.95
(More P.P.. see our other ad) (We carry all P.P. software, call for prices)
P.P. on Amdek Disk please add $2.50
Software Producers. We will produce yours on Amdek as
we do for Petrocci Freelance Associate and Sugar Software.
Add $1.00 Per Program For Shipping $5.00 Max.
Some Quantities Limited
7331 E. Beverly - Tucson, AZ 85710 - (602) 885-6508
Tom Mix
The Frog
Trapfall
Grabber
Space Shuttle
(Cass, only)
August 1983 the RAINBOW 63
20
5?
4F
S3
21
53
55
52
TM
GOLDLABEL
BLANK CASSETTES
• PREMIUM 5 SCREW SHELL
• COMPUTER DATA QUALITY *L0W NOISE
• MADE IN USA •GUARANTEED
1 DOZEN C-10 LENGTH SB. 50 + $2.50 shpg.
2 DOZEN C-10 LENGTH $16.00 + S3. 50 shpg.
1 DOZEN C-30 LENGTH $12.50
2 DOZEN C-30 LENGTH $23.50
+ $2.50 shpg.
+ $3.50 Shpg.
Individual storage boxes (sold only with cassettes) $2.40 per dozen
CASSETTE CADDY: $3.95 + S2.00 shpg.
2 for $7.00 + $3.00 shpg.
Free shipping on one caddy with each dozen cassettes.
Foreign orders include shipping at 16 oz. per dozen tapes/9 oz. per
caddy/13 oz. per dozen boxes. Shipped in U.S. by UPS.
CASSETTE CADDY
TIRED OF MISPLACED TAPES AND A CLUTTERED WORK AREA? TRY
OUR HINGED TOP SMOKED PLASTIC CADDY THAT HOLDS 12 TAPES IN
ONE HANDY LOCATION. EDGE LABELS INCLUDED TO IDENTIFY TAPES.
RAINBOW
Visa and Mastercard accepted (Include expiration date) Orders paid by
cashier's check, money order or bankcard are shipped within 48 hours.
Personal check takes 1-Z wks. No COD. Some foreign sales are restricted.
Texas residents add 5% tax.
COLOR SOFTWARE SERVICES
P.O. BOX 1708, DEPT. R
GREENVILLE, TEXAS 75401
Telephone Orders: (214) 454-3674 9-4 Monday-Saturday
• DEALER INQUIRIES INVITED
• QUANTITY DISCOUNTS AVAILABLE
64
the RAINBOW August 1983
43
3F
3387
04
04441
FCB
$04
04445 'DISK READ OR MITE?
33BS 17
FDE3
04450 DISK
LBSR
INCH
338B 81
52
04460
CHPA
1*32
33BD 26
07
04470
BNE
WRITE
338F 86
02
04480
LDA
12
3391 B7
32FC
04490
STA
RN
3394 20
1A
04500
BRA
DIO
3396 81
57
04510 NRITE
CHPA
•*57
3398 1026 FEW
04520
LBNE
ERROR
339C 86
03
04530
LDA
•3
339E B7
32FC
04540
STA
RN
33A1 8E
337A
04550
LDX
0DHS64
33A4 17
FDDF
04560
LBSR
PDATA
33A7 17
FDC4
04570
LBSR
INCH
33AA 81
59
04580
CHPA
1*59
33AC 1026 FDF8
04590
LBNE
ERROR
33B0 8E
3355
04600 DIO
LOX
IDNS61
33B3 17
FDD0
04610
LBSR
PDATA
33B6 17
FCDA
04620
LBSR
BLDNNB
33B9 B6
319A
04625
LDA
NUHBER+1
33BC B7
32FD
04630
STA
DR
33BF BE
3361
04640
LDX
IDHS82
33C2 17
FDC1
04650
LBSR
PDATA
33C5 17
FCC8
04660
LBSR
BLDNNB
33C8 B6
319A
04665
LDA
NUHBER+1
33CB B7
32FE
04670
STA
TR
33CE BE
3360
04680
LDX
IDHS83
33D1 17
FDB2
04690
LBSR
PDATA
33D4 17
FCBC
04700
LBSR
BLDNNB
3307 B6
319A
04705
LDA
MUHBER+1
33DA B7
32FF
04710
STA
SE
04715 (USE DSKCON FDR I/O
33DD BE
C006
04720
LDX
*C006
33E0 B6
32FC
04730
LDA
RN
33E3 A7
00
04740
STA
M
33E5 B6
32FD
04750
LDA
DR
33E8 A7
01
04760
STA
I,X
33EA B6
32FE
04770
LDA
TR
33ED A7
02
04780
STA
2,1
33EF B6
32FF
04790
LDA
SE
33F2 A7
03
04800
STA
3,1.
33F4 CE
2000
04810
LDU
•DBUF
33F7 EF
04
04820
STU
4,X
33F9 AD
9F C004
04830
JSR
C*C004]
33FD 7F
FF40
04840
CLR
♦FF40
3400 60
06
04850
TST
M
3402 1026 FDA2
04860
LBNE
ERROR
3406 39
04870
RTS
04875 *RTS FDR FUTURE COMMANDS
3407 39
04880 BKPT
RTS
3408 39
04890 CALL
RTS
3409 39
04900 60
RTS
340A 39
04910 RES
RTS
340B 39
04920 STLEV
RTS
340C 39
04930 TRACE
RTS
3000
04940
END
CHEK
00000 TOTAL ERRORS
/m
ft ware
/cznzn\
AUTO CUM
C7 ^7 ,0<?C? ^
Auto Run is a utility program for the TRS-80*
Extended Basic Color Computer. It is used to add
convenience and professionalism to your software.
Auto Run will help you create your title screen
with the graphics editor. The graphics editor allows
you to choose a background color and border style.
Using the arrow keys and several other commands
you can draw pictures, block letters and also include
text.
Auto Run will generate a machine language load-
er program to preceed your program on the tape.
Then, to start up your program, simply type
CLOADM to load in the Auto Run loader program,
which will then automatically start itself up, display
your title screen, load your program and then RUN
or EXEC it.
Also you may record a vocal or musical introduc-
tion preceding your program. The Auto Run loader
will control the audio on/off.
Basic programs can be set to load anywhere in
memory above $600 (the PCLEAR page).
Software authors: The Auto Run prefix may be
appended to your software products.
Auto Run is $19.95 and includes complete docu-
mentation and an assembly source listing.
Requires 16K Extended Basic.
Galactic Hangman
A great new twist to the popular, educational word
guessing game for the Color Computer. Large (700
words) and sophisticated vocabulary. Or enter your
own words, your child's spelling list, foreign
language vocabulary, etc.
Outstanding high resolution graphics, animation
and sound effects.
For $17.95 you get both the 16K and 32K versions
of Galactic Hangman.
Tape Information
Management System
A user-oriented, easy to use personal database
management system for the TRS-80* Color Com-
puter with these outstanding features:
'keeps files of programs, names, addresses, birth-
days, recipes, class or club rosters, anything
* variable record and field lengths
* phrase substitution editor
* up to 8 user-definable fields
* ML sort (up to 3 fields), search and delete functions
*2 search modes — range and item
* user-definable printer format, for any printer
*up to 230 characters per record
For $24.95 you get the database management
system, our full documentation which includes a
reference guide and a programmer's guide, and our
1981 Bibliography of articles relating to the Color
Computer. Requires 16K Extended Basic. 32K
recommended.
1982 TIMS Bibliography — $9.95
s&
c^ntax
A sensational and educational version of a popular
party game for the TRS-80* Color Computer . . .
For 1 to 10 players. Load a story into the com-
puter. The players are asked to supply a noun, verb,
part of body, celebrity, etc. which the program uses
to complete the story. The story, which is displayed
when all words are entered, will be hilarious. Silly
Syntax requires 16K Extended Basic (32K for disk
version). For $19.95, you get a user guide and a
tape containing the Silly Syntax game and 2 stories.
You can create your own stories or order story tapes
from the selection below.
Silly Syntax stories — Ten stories per tape.
SS-001 - Fairy Tales SS-004 - Current Events
SS-002 - Sing Along SS-006 - Adventure/Sci-Fi
SS-003 - X-Rated SS-007 - Potpourri
Each story tape is $9.95. 10% off for 3 or more story
tapes. Disk is $24.95 for Silly Syntax and 2 stories or
$49.95 for Silly Syntax and all 62 stories.
RAINBOW
CtftTIFICATiOM
IU1
®
war
'TRS-80 is a trademark of Tandy Corp.
SUGAR SOFTWARE
2153 Leah Lane
Reynoldsburg, Ohio 43068
(614)861-0565
CIS orders EMAIL to 70405, 1374
Add $1 .00 per tape or disk for
postage and handling. Ohio-
ans add 5.5% sales tax. COD
orders are welcome. Dealer
inquiries invited.
vv:
UN-BELIEVABLE
But true! There ;s a disk
drive in your Color Compu-
ter „ , . and it is faster and
more efficient than any
"hardware" drive you can
buy, for any price. This new
"disk drive" is called VDOS—
for Virtual Disk Operating
System— and it will absolutely
revolutionize the way you
operate your CoCo,
VDOS lets you use the
"extra" memory inside your
CoCo as a virtual disk, with
programs {any programs}
stored out of the way. You
can "save" and "load" pro-
grams from your in-memory
disk into working memory,
and then run them. When
you're done, you can simply
access your in-memory disk
again . and save or load
another, and another.
And VDOS is fast,
Because you are using
memory rather than a
mechanical device (like a
disk drive or cassette
player), programs load
instantly. Yes, VDOS is fas-
ter than a disk!
VDOS works with all
Color Computers— from
16K non-extended to 64K
extended. Obviously, the
more memory you have, the
greater number (and
length) of programs you
can store. For a 64K sys-
tem, VDOS also uses the
"unused" part of memory,
providing up to 50,000
bytes of storage! Now,
that's some disk!
We call it VDOS because
in the future there will be
utilities for your VDOS
UNDISK that will give even
greater capabilities— such
as a full one-pass memory
dump to cassette. Other
utilities are planned, too.
We believe VDOS is the
greatest advancement for
CoCo since the introduc-
tion of the disk drive Itself.
And, at less than $100, it is
so inexpensive you can't
afford to be without it. If
you have the "cassette
blues," VDOS is the answer!
Finally, VDOS is simple to
operate. It is entirely self-
prompting and comes with
a complete manual. But you
almost don't even need the
instructions — it requires
absolutely no technical
expertise.
VDOS. The answer to
your prayers.
0LE2&X
Cassette: $97.50. Add $1.50 shipping
and handling; Canadians add $5 for
shipping, Foreign points add $9.
VISA and Master Card accepted.
All Kentucky residents add 5% sales
tax. Payments accepted in United
States currency only.
Dr. Preble's Programs
6540 Outer Loop
Louisville, KY 40228
(502) 241-6474
Dealer Inquiries Invited
i-mB
GAME/EDUCATION
4K
mrjin
I IL iu
TWO FOR
1 THE l\
10
A Pair of programs for the new
MC-10 demonstrate some useful
techniques.
By Thomas Szlucha
Move over VIC, shove down ZX-8 1 , here comes the
MC-10, Micro Color Computer by Radio Shack.
It is about time Tandy paid serious attention to
the SI 00 computer market. The original CoCo is a bit over-
priced for this important "learners" category. The addition
of the Micro Color with its salient features should serve well
in rounding out Tandy's fleet. One of the two features that I
believe set this micro apart from its main competitors is the
built in RS-232 communication port for modem or printer
hook-up. The other is a decent version of Color BASIC (by
Microsoft). This version has some math function enhance-
ments over the original Color BASIC and should serve well as
an introductory language. There are some commands miss-
ing as well as some hidden commands which will be de-
scribed in a future article.
This article is not meant to be a review of the Micro CoCo,
but a presentation of some programs designed to help
owners, who arc likely new to computing, put this excellent
machine to work.
The first program, shown in Listing 1, is called MCmaze.
It is a game that demonstrates techniques which can be
useful in building basic games. The first technique that
should be mentioned as you study the listing is the use of
multiple statement lines, a technique only vaguely menti-
oned in the MIC (a new nickname?) instruction manual.
Multiple statement lines are useful in conserving memory
space, saving a line number each time one is used. To separ-
ate functions, the colon (:) is used. Lines 70 and 80 of the
maze program are good places to use (:), the SfTstatements
separately would have taken up seven lines. Care should be
used in applying this technique on lines with logical IF
statements because program flow will continue to the end of
the line only when the logic statement is satisfied. Also, do
not make the lines too long, Micro Color BASIC only allows
1 28 bytes (characters) per line. If you are converting a pro-
gram that you would like to compress, use care that you do
not eliminate a needed GOTO line number by using multiple
statements.
Back to MCmaze. Up through line 250, the instructions
are presented and the maze is drawn. The car movement,
(Mr. Szlucha, a technical specialist in Product Devel-
opment at Xerox Corporation, holds several patents
relating to xerography. Microcomputing is a hobby
enjoyed by his whole family.)
lines 270-410, is the heart of this program. Lacking joystick
controls on MIC, control of the car steering is provided by
using the IN KEYS command to sense pressing of certain
keys on the keyboard. In the normal course of this program,
looping is taking place constantly from lines 270-410. The
keyboard is being sensed several times a second at line 280.
The value of the key pressed is assigned to the variable IK$.
(Note, the variable has a $ after it because this is a string
variable, i.e., not treated as a normal number by MIC).
In the next line, there is a test to see if there was a key
pressed. If so, the new value is passed to variable K$, if not
then K$ keeps its old value. This is an important trick to
keep the car moving between keyboard presses. Lines 300-
330 check to see which direction and calculate a new posi-
tion (X 1 , Y 1 ) for the car each time through the loop. In line
340, the old position (X, Y) is turned off with the RESET
command, otherwise you would draw a line on the screen
corresponding to where the car has gone. This would be
great for some programs, Color Etch-a-Sketch for instance,
but not desired here. Lines 350 and 360 sense whether the car
has reached the finish or crashed by looking at the color
POINT of the new location the car is about to move to. If
things are O.K., the new car position is SET 1 (line 370) and
the variables keeping track of the previous position of the
car arc updated in line 380. Before going around again, at
line 400, a delay is added which is dependent on the level of
difficulty requested. The program just sits there and counts
to "D"allowing the game to be made easier for slow fingers.
The rest of the program consists of the various subrou-
tines taking care of the crash count and finishing displays.
Overall, even with all the REM statements used, this game
takes less then one-half the memory available in MIC.
The second program, called MCspell (Listing 2), has a
more serious purpose. This program is designed to help a
child learn spelling by selecting the misspelled word out of a
group of words. To maintain attention and concentration,
the program has a game aspect in that the misspelled word is
not simple picked out, but "shot down" with a "ray gun."
In designing this program, considerable use was made of
data arrays. The focus of the program description will be
explaining and handling arrays with the MC-10.
An array is a special type of variable that can have many
different values and is used when you would like to treat it
the same way (mathematically or logically) each time you
use it in a program. The lists of words used in this spelling
August 1983 the rainbow 67
program are excellent examples of the uses of arrays. The
list of correct words keyed or read into this program are
assigned to an array variable W$(n). Specifying the value of
n, from 1 to 30 in this case will return a different word from
the spelling list. For example:
W$(l) = "tree"
W$(2) = "grow"
W$(3) = "try"
to
W$(30) = "kite"
In this program, to keep the lists separate, two arrays are
used W$(n) to store the "correct" words and MSS(n) to store
the misspelled words. The value associated with each ele-
ment of the array is entered one of two ways in this program.
If the "key-in word list option" is chosen (line 400), then
INPUT statements arc used to enter the words from the
keyboard. There is also an option to use "built-in" words.
These words are read into the array using the READ com-
mand (lines 210 and 240). The words reside in DATA state-
ments at the end of the program and can be changed if
desired from BASIC.
When using an array, you must define for the computer
the maximum size that is intended for the array. This is done
with a dimension statement that is placed in the program
prior to the use of the array variable. The computer sets
aside the memory associated with the anticipated aray size.
If you exceed the DIM or forget it, you will generate an
error. There is one exception to this; arrays of 10 and less do
not have to be dimensioned, space is made available for
them automatically.
This program, as it currently exists, handles a total of 45
?h
CASSETTE CONTROLLER
' Allows you to hear your cassettes without
unplugging cables. Switch knob between
AUTO and MANUAL positions s 25°°
SERIAL SWITCHER
Switch your serial port between two or three
peripherals ?-Port s 25°° 3 -Port.
^
53000
TOTALLY SOLDERLESS KITS
4K â– 16K s 20 ao
16K â– 32K s 35 00
4K ■32K s 50°°
All memory upgrades come complete with 16K or 32K button,
easy-to-follow instructions, and 90-day unconditional warranty.
PILOT LIGHT — Includes 5 different colored lenses, and
simple instructions. Mounts in 5 minutes to top cover of your
computer. With Lifetime Wurrunly, only e 7 00
I.C.S CABLES
6809E CPU s 25°°
6883 SAM s 25 00
6847 VDG s 20°°
6821 PIA s 8°°
Full Set s 65°°
• FREE •
CATALOGUE
Direct Coax to TV-3', 6', 9'. 12'. . 5 10°°
' Serial M to M s 7°°
Serial M to M, coiled - 5' s 7°°
* Serial Ext. M to F s 7 00
•Cass. Ext. M to F s 7 00
Cass. Ext., coiled - 5' s 7 00
* Joystick Ext. M to F s 7°°
'Prices shown are tor 6 teet.
Extra length, add 50 c per ft.
Terms: Cashiers checks and money orders for immediate
delivery • Personal checks allow 2 weeks • Orders under $25
add $2 shipping • C.O.D. add $2 • California residents add 6%
4418 E. Chapman, Suite 284
Orange, CA. 92669
VIDTRON
words. By changing the dimensions of the arrays and the
various counting variables you could increase the list of
words considerably.
These programs will increase the library of the new MC-
10 owners and hopefully spark ideas for new programs.
Welcome to a new computer and to the many friends that it
will bring to a fascinating hobby.
Mole: there are ver\ leu differences in dialed between'
Color basic iiiul Micro Color BASK.. These programs
should work on a 4K. CoCo. bul the following changes
should be made lo work correctly with the arrow ke\v
M (J maze Line SOU change "S" to CH KS(09 1
line 310 change "VV to CHIWM)
Lino 320 change "A" to CHRS(OS)
Line 330 change ' Z"io CHRWIO)
XfCs/n-U— Line I 140 change "S" u> CHMffW)
Line 1 150 change "A" to C IIRSfOM
Listing 1:
nc-i>
u-
1 REM MAZE RACE
2 REM SUBMITTED BY
3 REM THOMAS SZLUCHA
4 REM FAIRPORT NY. 14450
5 REM
10 CLS0
20 GOSUB1010
30 INPUT "LEVEL OF DIFFICULTY
3)";d:d=(3-D)*20-h
35 TI=0:C=0
40 CLS0
50 REM SET-UP MAZE AND BARRIERS
60 FOR 1=0 TO 63
70 SET (1,0,4): SET (1,1,4): SET < 1 , 2
8,4) :SET< 1,29,4)
80 SET (0, INT ( I /2), 4) : SET (1, INT (I
/2) , 4) : SET (62, INT < 1/2) , 4) : SET (63
,INT<I/2) ,4)
90 NEXT I
100 FOR J=4T024 STEP4
110 RD=4+RND ( 24 ) : RR=38+RND ( 22 )
120 SET(RD,J-l,4):SET(RD+4+RND(3
0),J-2,4>
130 IFINT((J/4)/2)=(J/4)/2THEN14
135 GOTO 170
140 FOR I=1T057
150 SET(I,J,4):SET(I,J+1,4)
160 NEXT I: GOTO 200
170 FOR I=6T062
180 SET(I,J,4):SET(I,J+1,4>
190 NEXT I
200 NEXT J
210 SET(0,27,2)
220 REM INITIAL LOCATION OF CAR
230 X=60:Y=3
250 SET(X,Y,1)
260 REM MAIN LOOP WHICH MOVES CA
R (TO LINE 410)
270 xi=x:yi=y
280 IK*=INKEY*
68
the RAINBOW August 1983
PRETTY PRINTER
This M/L utility program will allow you to write your
code in as compact a form as you wish, but list it to
the screen or printer in an easy to read 'PRETTY
PRINT format. Turn this: -
10PRINT"EXAMPLE": FORX=ATO M:FORY=STO
P:Z=X + Y:PRINTZ:NEXTY:NEXTX
Into this: - 10 PRINT "EXAMPLE":
FOR X = A TO M:
FOR Y = S TO P:
Z = X + Y:
PRINT Z:
NEXT Y:
NEXTX
With one simple command.
CAT. NO. DM001 1BK Ext $12.95
P.U.F.F.
Say the magic word and P.U.F.F. your print formatting
problems dissappear. The Printer Utility File Format-
ter turns any word Processor (that produces ASCII
text files] into a super printerformatter. Embedded
codes will perform the following functions: -
* Send control codes to your printer.
* Set left and right margins at any time.
* Set headers and footers.
* Left, Right and Fill Justify.
* Centre the next 'n' lines.
* Temporary indent [neg or pos].
Plus many other features.
CAT. NO. DM002 16K Ext $24-95
KEYBOARD OVERLAYS
Many programs are supplied with keyboard overlays
to help you keep track of the various commands
used by the program. Now you can add overlays to
your own programs or to commercial programs
that did not come with this feature. Die cut to fit the
standard Color Computer keyboard. Dealer inquir-
ies for blank or custom printed overlays are invited.
CAT. NO. HW002 99c each
DATAMAIL
The ultimate cassette based mailing list program
for home or business use. Fully customized data
collection screen allows you to set your own field
lengths and field titles. Fast machine language sort
by any column in any field. Save all or any block of
files for latter reading by DATAMAIL or your own
letter program. Merge two or more lists, search by
record number or key word in any column. One key
commands for Input, Kill, Change. Print single
records or any block of files, 1, 2, 3 or 4 across. 32 K
holds about 300 files.
CAT. NO. DM003 1BK Ext $14.95
FIRST SAMPLER
Six programs for the price of one. All have been
published in popular computer magazines and are
now available on one tape at this special price.
* MATH Improve your mental math skills
* WORD Make words from the supplied letters in
this game for the whole family.
* CONVOY Can you sink the computers convoy
before it sinks yours?
* BAGIT Train your memory to remember the
things you put in the bag.
* VECTORS Row your boat across the river with-
out going over the falls.
* AHHA Find the treasure chest in Another
Haunted House adventure. Don't get caught by
the Old Miser's ghost.
CAT. NO. DM005 16K Ext $9.95
COCOCOPY
This all M/L Program will copy BASIC or M/L
programs including most Auto Start Programs. It
will supply the beginning, ending and offset addresses
and allow you to change the load address for M/L
programs. I/O errors are ignored so that bad tapes
can be corrected. Programs can be renamed and
the motor/audio functions are controlled from the
keyboard.
CAT. NO. DM004 1 6K Ext $1 2.95
SEND $2.00 FOR OUR 25 PAGE CATALOGUE
Refunded with first order
We are dealers for the following fine companies: -
• ARK ROYAL GAMES
•COMPUTER ISLAND
• DSL COMPUTER
PRODUCTS
• DYNAMIC ELECTRONICS
• FRANK HOGG
LABORATORIES
•HOMEBASE COMPUTER
SYSTEMS
•HOME RUN COMPUTER
PRODUCTS
•LITTLE BITS COMPUTING
SERVICES
BOOKS from
SYBEX * BYTE * OSBORNE * RESTON
• MARK DATA PRODUCTS
•NELSON SOFTWARE
SYSTEMS
• RAINBOW CONNECTION
SOFTWARE
•SPEECH SYSTEMS
•SUGAR SOFTWARE
•THE PROGRAMMERS
GUILD
•TOM MIX SOFTWARE
•WEST BAY COMPANY
Box 431, Sta. B
Hamilton, Ontario
Canada L8L 7W2
1-416-529-1319
ALL PRICES
IIM CANADIAN
DOLLARS
ADD 3% SHIPPING — MINIMUM 2 E
290 IF IK*<>"" THEN K*=IK*
300 IF K*="S" THEN X1=X+1
310 IF K*="W" THEN Yl=Y-.5
320 IF K*="A" THEN X1=X-1
330 IF K*="Z" THEN Yl=Y+.5
340 RESET <X,Y>
350 IF POINT < XI, YD =4 THEN GOTO
500
360 IF POINT (XI, YD =2 THEN SOTO
600
365 SOUND 10,1
370 SET<X1,Y1,5)
380 X=X1:Y=Y1
390 TI=TH"1:PRINT@480, "TIME";TI5
400 F0RT=1TQD*2:NEXT
410 OOTO270
500 C=C+l:PRINT@493,"CAR #"iCi"C
RASHED";
510 FOR T=l TO 1000: NEXT T: PRINT
©480, "
â– â– â–
»
520 K*=""
530 IFC=3THENGOTO620
540 GOTO 230
600 PR INTS480, "FINISHED COURSE!
time=";ti;
610 GOTO630
620 PRINT6480, "TIME =";TI"TO WRE
*
GRAND SLAM BRIDGE
SHARPEN UP YOUR BRIDGE GAME. COM-
PUTER BIDS YOUR PARTNER'S HAND AND
PLAYS THE OPPONENT'S HANDS. RAN-
DOM HANDS DEALT EACH TIME. CARDS,
TRICKS, BIDS, AND CONTRACT SHOWN
ON SCREEN. /— N
32K CASSETTE $19.95 f/T^
8
STOCK OPTION STRATEGIES
s
DEVISE YOUR OWN STOCK OPTION STRAT-
EGIES. COVERED OPTIONS, STRADDLES,
CALLS, AND PUTS. % GAINS AND LOSSES
VS. FUTURE STOCK PRICES GRAPHED IN
COLOR. EASY TO USE, NO DATA BASE RE-
QUIRED, JUST ENTER FROM KEYBOARD.
MENU DRIVEN. -_
16K CASSETTE $14.95 ///^
SEND CHECK OR MONEY ORDER TO:
GREENTREE SOFTWARE
P.O. BOX 97
**â– GREENWOOD, IN 46142
CK THREE CARS";
630 FOR T=l TO 1000; NEXT T: PRINT
@4B0, "PLAY AGAIN <Y>/<N>
"s: INPUT R*
640 I FR*= " Y " THENCLS0 : GOTO30
650 END
1000 REM INSTRUCTIONS
1010 PR I NT "AVOID WALLS AND BARRI
ERS. IF YOUCRASH YOU START AT TH
E BEGINNINGAGAIN " S
1020 PRINT"- YOU HAVE THREE CARS
AND WILL BE TIMED, NOTE: THE LEV
EL OF DIFFICULTY = SPEED"
1030 PRINT
1040 RETURN
Listing 2:
rc-is
10 REM MICSPELL
20 REM WRITTEN BY
30 REM THOMAS SZLUCHA
40 REM FAIRPORT NY. 14450
50 REM 5/29/83
90 DIM W* (30), MS* (15)
100 CLS
105 PRINT@73,"MICR0-SPELLER"
110 PR I NTS 138," SELECT I ONS "
130 PRINT@192, ,, <1> READ BUILT-IN
WORD LIST"
140 PRINT"<2> KEY-IN WORD LIST
150 PRINT" "
160 INPUT R
170 IF R<1 OR R>2 THEN 160
180 ON R GOTO 200,400
200 FOR 1=1 TO 30
210 READ W*(I)
220 NEXT I
230 FOR 1=1 TO 15
240 READ MS* (I)
250 NEXT I
260 GOTO 1000
400 CLS:PRINT@68, "CREATE SPELL IN
6 LIST"
410 PRINT" DATA ARRAYS CONSIST O
F : 30 - CORRECTLY SPELLE
DD WORDS 15 - MISSPELLED WORDS
II
430 N*=" CORRECT"
440 FOR 1=1 TO 30
450 GOSUB 600
460 NEXT I
470 N*=" INCORRECT"
475 T=l
480 FOR 1=1 TO 15
490 GOSUB 600
500 NEXT I
510 PRINT"FINISHED"
520 PR I NT "PRESS ANY KEY TO PLAY"
70
the RAINBOW August 1983
+ COLOR COMPUTER WORKSHEET *
A^l ID
A/OIV . . . The worksheet calculator program you've
been waiting for is waiting to work for you.
ELITE'CALC" is a powerful, full featured worksheet
calculator designed especially for the Color Com-
puter. Answer "what if" questions, prepare reports,
maintain records and perform other tasks that, until
now, required sophisticated business computers.
ELITE* CALC" is a serious tool for those who want to
do more than play games with their Color Computer.
Features include:
â– Single character commands
â– Help Displays
â– Enter text or formulas to 255
characters long
â– Repeat text entries
â– 255 maximum rows
â– 255 maximum columns
â– Available memory always displayed
â– Rapid Entry modes for text and
data
â– Selectable Automatic Cursor
movement
â– Insert, Delete, Move entire rows or
columns
â– Replicate one cell to fill a row or
column with selectable formula
adjustment
â– All machine language for speed
â– Extended BASIC required for ROM
routine calls
â– Automatic memory size detection
for 16K, 32K or 64K
â– > 20K bytes, storage available in
32K systems
â– BASIC style formulas
• Math Operators: +,-,X,/,l,(,),=
â– Relation Operators:
T ' < 1 '
â– Logic Operations: AND, OR, NOT
â– Conditional Formula: IF . . .
THEN ... ELSE
â– Trig Functions: SIN, COS, TAN
ATN
* Easy to use
* Individual cell formulas
* Copy blocks of cells
* Full cell-edit capability
* Compatible with all printers
* Graph format for bar charts
* Sort in ascending or descending
order
* Comprehensive manual included
THE BEST FOR ONLY
Disk or Tape
— Shipping from stock NOW
— Dealer Inquiries Invited.
Add $2 Postage & Handling
PA residents add 6% sales tax
£LLlte Sly^tu/ate
â– H|
Log Functions: LOG, EXP, SQR.
Misc. Functions: INT, FX, ABS,
SGN.
Range Functions: SUM, AVERAGE,
COUNT, MIN, MAX, LOOKUP
Nine digit precision
Definable constant table
User definable printer set-up
commands
Individual column width settings
Adjustable row height to insert
blank lines without wasting
memory
Hide colmns or rows
Alternate print font selectable on
cell by cell basis
Display/Print formats set by cell,
row, or column
Dollar format, comma grouping;
prefix or postfix sign
Scientific notation, fixed point and
integer formats
Left and Right cell contents
justification
Full page formatting
All formats stored with worksheet
on disk(tape)
Save & Load Disk(tape) files in
compact memory form
Scan disk directories
Output ASCII file for word
processor input compatibility
Memory resident code ... no
repeated disk calls
Sample worksheets included
Box 11 224 • Pittsburgh, PA 15238 • (412)795-8492
From the creators of: zaksund • color textset i • color textset ii
GALACTIC FORCE • TEXT EDITOR • PARTY PAK • COLOR MONITOR • TREK 16 - WARKINGS
DISKS, TAPE COPY • ANIMALS • BODY PARTS • TAPECOPY and man)/ other tine programs
: input r*:boto 1000
600 PRINTS384, "ENTER ";N*5" WORD
#"|I
605 IF T=l THEN INPUT M5*(I):G0T
O 615
610 INPUT W*(I)
615 PRINTS416,"
620 RETURN
999 REM MAIN PROGRAM
1000 CLS0
1010 N=N+1
1015 R1=RND(15>
1020 R2=RND<15)+15
1025 R3=RND<15)
1040 P=RND<3)
1 050 A*=W* < R 1 ) : B*=W* ( R2 )
1060 C*=MSS(R3)
1070 IF P=l THEN PRINT@226,C*:PR
I NT6236 , B* : PR I NTG246 , A*
1080 IF P=2 THEN PRINT@226,B«:PR
I NT@236 , C* : PR I NT@246 , A*
1090 IF P=3 THEN PRINTS226, A*: PR
I NTS236 , B* : PR I NT8246 , C*
1100 PRINTS36, "SHOOT THE MISSPEL
LED WORD"
1110 PRINT© 100, "MOVE GUN WITH AR
ROW KEYS SHOOT BY PRESS IN
8 SPACE BAR"
1115 Xl=24
NEW FOR THE COLOR COMPUTER
GRAFPLOT
HIGH RESOLUTION DATA GRAPHING
GRAFPLOT turns your COLOR COMPUTER into a sophisticated
data plotter, producing professional quality graphs of any type
of X-Y data. GRAFPLOT is perfect for personal, business, statis-
tistical, scientific and engineering applications. Includes features
not found in any other COLOR COMPUTER graphing system:
â– 222x174 pixel on-screen data plotting area.
â– Complete on-screen labeling for two Y-axes w/200 data
points per axis leven more points by chaining data filesl.
" 9 graphing options: 3 symbols w/2 line types or points only.
â– Full function data editing: add, change, delete and sort.
â– Hardcopy w/standard screenprint programs [not Suppliedl-
includes interface for Tandy 5CRPRT w/instructions for
interfacing other printers and screenprint programs.
â– Unlimited overlays -plot 9 or more data sets per graph.
â– Graphs output to screen, printer, tape or disk.
â– Plots any user-defined function, edit 4 program lines.
â– Built-in data smoothing Imoving binomial average!.
â– Built-in integration -calculate areas or evaluate integrals of
user-defined functions.
â– Lists data and integrals to screen or printer.
â– Saves completed graphs for instant reloading.
â– Menu-driven w/auto-prompt option for fast throughput.
" Complete error trapping-GRAFPLOT wont let you make a
mistake, practically impossible lo crash.
â– Comprehensive manual w/tutorials and sample data.
GRAFPLOT is available for 16K E.C.B. on cassette l$35l and 32K-
1disk l$45l. Easy upgrade to disk for difference in price Idisk
version reads and writes tape data filesl. Send check or money
order to: HAWKES RESEARCH SERVICES, 1442 Sixth St.,
Berkeley, CA, 94710. Include $3 S/H on all orders. Manual
available separately for $10 + S/H, refundable with purchase
of GRAFPLOT. CA residents add state sales tax.
Dealer inquiries welcome. Quantity discounts available
1120 SET<2+X1,31,4):SET<4+X1,31,
4) : SET <6+Xl , 31,4): SET <4+Xl , 30, 4)
: SET <4+X 1,29,4)
1125 X«X1
1130 K*=INKEY*:IF K*="" THEN 113
1140 IF K*="S" THEN X1=X+20:IF X
1>44 THEN XI =44
1150 IF K*="A" THEN X1=X-20:IF X
1<0 THEN Xl=4
1155 IF K*~" " THEN 1300
1160 RESET (2+X, 31): RESET <4+X, 31)
: RESET (6+X , 31 ) : RESET <4+X, 30) : RES
ET(4+X,29)
1250 SOTO 1120
1300 FOR Y=29 TO 16 STEP-1
1310 SET(X+4,Y,5)
1320 NEXT Y
1330 H=H+1
1360 IF INT<X/20)+l =P THEN 1400
1 370 SOUND50, 4 : SOUND20 , 6
13S0 CLS0: PR I NT® 132, "that word i
s indestruc table"
1385 FOR T= 1 TO 1000: NEXT T
1390 BOTO 1070
1 400 CLS2 : SOUND 1 00 , 2 : CLS4 : S0UND2
00, 3: CLS6: S0UND255, 3: CLS0
1410 PRINTS128, "TERRIFIC ! ! RID
THE 8ALAXY OF MORE MISSPELLED
WORDS"
1420 FOR T=l TO 1000: NEXT T
1440 IF N=10 THEN 1500
1450 BOTO 1000
1499 REM END ROUTINE
1 500 CLS0 : SOUND50 , 4 : SOUND50 , 6 : SO
UND155,6:CLS4
1510 PRINT@128,H;"SH0TS TO KILL
10 ALIENS ! ! ! ! "
1520 PRINT8320, "PLAY ABA IN <Y>/<
N>";
1530 INPUT R*: IF R*="Y" THEN N=*
0:H-0:6OTO 1000
1540 END
2000 REM 30 WORDS SPELLED O.K.
2010 DATA ONCE, THREE, TEST, NICE, 8
RAY, HAPPY, CITIES, CUTE, HEAVY, EIBH
T
2020 DATA MACHINE, THEIR, AWAKE, R I
D6E, FRIEND, DANCIN6, COMINS, CHAIR,
KEEP, DOZEN
2030 DATA MAS I C, MOVIES .FRIENDLY,
PERCH , HAYLOFT , BU I LD I NBS , FORESTS ,
BABBL I N6 , BANANA , READS
2040 REM 15 MISSPELLED WORDS
2050 DATA DISE,THIER,MASHINE,FRE
IND, JUDJE, DOSEN, FONE, KUTE, KEAP, C
ITYS
2060 DATA READES,WINDOES,LAFFINB
,DANSIN6,HIDD
72
the RAINBOW Auguat 1983
Skyline Software
PUBLISHERS OF QUALITY MICROCOMPUTER SOFTWARE
PAGE PLUS — Attention BASIC programmers! Here is the software you've been waiting for! Up to 56 K available
from your BASIC programs This utility, written by Chris Hawks, does the memory management necessary to utilize
the two 32K banks of memory. Easy enough for any 'intermediate' level BASIC programmer to use. Includes
documentation and demo programs to show you how to use PAGE PLUS to get the most out of your computer.
Works with 64K tape or disk systems.
Cassette $27.95 Disk $29.95
MDISK Hal Snyder's latest breakthrough for the 64K Color Computer! MDISK lets you use the upper 32K of
memory for rapid storage and retrieval of programs and data. Whether you own an actual disk drive or not, MDISK
puts the 'hidden' 32K to work for you as a 'virtual disk,' with capability to save and load up to 15 programs, view a
directory of files stored in 'page V, kill unwanted page 1 files, execute BASIC or machine language directly from
MDISK, chain to a BASIC program while preserving data already created, and more. These functions are available
not only under manual keyboard control, but from programs in progress as well, permitting high-speed swapping of
programs or data. Unlike many 64K utilities, MDISK doesn't copy BASIC to RAM. This greatly increases the amount
of workspace available to you (by 22K in a disk system). MDISK is written in position independent code, and will
work on disk or tape based 64K systems. Full documentation included.
Cassette $27.95 Disk $29.95
ROMBACK — Why pay more? The easiest to use ROM-pak dumping utility available! At the best price, too! Comes
with full documentation, including detailed patching instructions to allow several popular 'problem' cartridges to run
from tape or disk. Stop plugging and unplugging your disk controller! Don't blow any more SAM chips or 6809Es!
Use ROMBACK, and run those programs from tape or disk instead. Works with any 64K Extended BASIC tape or
disk system.
Cassette $16.95
QUICKSORT — A machine language sort routine specifically designed to be used by BASIC programmers This
utility will speed up those programs where a BASIC sort is just too slow. Great for mailing lists and databases. Can
be incorporated into many existing programs as well. Written in position independent code, works on tape or disk
systems. 16K required.
Cassette $12.95
64K BOOT/PAGER — Two 'must have' utilities for the 64K Color Computer owner. The 64K Boot allows you to
modify BASIC by moving it from ROM to RAM. The PAGER is a menu-
driven utility allowing you to manually page between the 32K banks of
memory, copying BASIC or data from one page to the other. The
complete assembler source code for both programs is included, so you
can see how it's done! Both programs arc written in position independent
code and run on 64K tape or disk systems.
Cassette $19.95
STRUCTURED MACROS — An- assembly language programming tool for
users of the Macro-80C assembler, by the Micro Works. Structured
macros come close to transforming your assembler into a high-level
language. Your programs become more understandable and debugging is
simplified. Commands include IF, ELS, ENDIF, IFTST, IFCC, WHILE,
ENDWH, REPEAT, and UNTIL.
Disk $19.95
WIZARD'S TOMB — A text and graphic adventure that the whole family
can play! Like no other that you've played before. Up to four players
can be involved in the attempt to enter the Wizard's Tomb 1fiK and
Extended BASIC required.
Cassette $12.95
WIZARD'S TOMB, PART II — Takes up where Wizard's Tomb left off.
Now that you've found the treasure in the Wizard's Tomb, try to find your
way through the ten levels of the catacombs! Good luck -you'll need it!
32K and Extended BASIC required.
Cassette $15.95
WIZARD 64 — If you've got 64K, then this one's for you! Uses both 32K
pages of memory for graphics and action — combines the features of
Wizard's Tomb and Wizard's Tomb Part II into one great game.
Challenging enough for adults, yet entertaining for younger players too.
64K Extended BASIC required.
Cassette $21 .95 Disk $23.95
/ordering
information
ALL ITEMS SHIPPED
FROM STOCK
Phone orders
may be placed at:
(312) 260-0929
(Our voice line),
or with your
computer at:
(312) 588-7917
(Our MODEM line)
Mail orders should be sent to:
SKYLINE
MARKETING
442 Sunnyside
Wheaton, IL
60187
All Software Available on 3" AMDISK Cartridges — $4 additional
Dealer Inquiries Invited.
VISA
GameMaster's Apprentice
From Tetra- To Icosahedron,
Let The Good Times Roll!
By Bob Albrecht and
George Firedrake
FANTASY ROLE PL A YIN Ci GAMES
Millions of young people, and rnanv run-so-voung,
an' film mv/'aniasi rule pla\ ing game. I role playing
game is (i game in which one or more players create
and control charai tcr\ (adventurcrsj who live their
imaginary lives in a specially made game world. The
game world is created, managed, and operated hv u
Game Master tiiMi, aho called a rcleree, adventure
master, or dungeon master ( n.\f).
\rfn\i people who play role playing games use a
formal ride system. Sonic of the best known are. shown
below.
Dungeons & Dragons flMDl. Fm/n TSR Hob-
bies, P.O. Box 756, Lake Geneva, Wl 53,147.,
RuneQueM (RQ). From Chtiosinm. P.O. Box
6302. Ml Him. CA Wm.
Tunnels A. Trolls (T&T). Fn,m Blade. Ren I4(u.
Scottxdale, AZ 85252. : : : ; : ; : : ;
Worlds of Wonder (WOW), from Clhiosium.
P:0. Box 6302, Albany. CA 94706
BEGIN SIRS BEWARE! The rule hooks are very
tliffK nil to widei stand. II i on arm beginner, first trv
H orlds of Wonder or Tunnels & 7 rolls. Programs in
"GameMaster's Apprentice" are based on the game
system used in Worlds of Wonder and RuneQuest.
For general information about fantasy role playing
games, try the following book, excellent for beginners.
Through Dungeons l)eeph\ Rnlu-rt I'himondon.
, From Rest on Publishing Company, 1 1400 Sunset
Hills Road, Reston, VA 22090.
Copyright (C) 1983 by DragonQuest, P.O. Box 310,
Menlo Park, CA 94025. Portions of "GameMaster's
; Apprentice "are from abook-in-progress (ailed Adven-
turer's Handbook: A Beginner's Guide to Role Play-
ing Games.
(Bob Albrecht and George Firedrake are two of the
most prolific authors in the microcomputer world
today. Specialists in writing for beginners, they are
authors of numerous books, including TRS-80 Color
Basic.)
GameMaster's Dice
GameMaster's Dice come in many shapes, from tetrahed-
rons (four sides) to icosahedrons (20 sides). We assume you
are already acquainted with ordinary six-sided dice. We use
the abbreviation D6 to mean one six-sided die.
D6 is one six-sided die
1D6 is one six-sided die
2D6 are two six-sided dice
3Dfi are three six-sided dice
and so on.
We also use less familiar dice, such as:
-y\
D4 is a tetrahedron, with sides num-
bered 1 to 4. The number rolled is the
one that is right side up after you throw
the die.
D8 is an octahedron,
numbered 1 to 8.
with eight sides
D12 is a dodecahedron, with
numbered 1 to 12.
12 sides
D20
D20 is an icosahedron,
numbered 1 to 20.
with 20 sides
DIGIT DICE
A digit die (DD) can be a 10-sided die,
with sides numbered to 9, or an ico-
sahedron with 20 sides numbered to 9
(each number appears twice).
We use digit die (DD) to roll a decimal digit, to 9.
However, sometimes we want to roll D10, a number from 1
to 10. Easy — roll a DD and use to mean 10.
REMEMBER: A digit die (DD) is a 10 or 20-sided die
whose faces are numbered to 9.
D 1 00 is a percentage roll, also called a percentile roll, with
numbers from 00 to 99. To make a percentage roll, use a DD
(digit die), roll it twice. The first roll is the 10's digit; the
second roll is the one's digit. If you roll a 3 the first time and a
7 the second time, the number is 37.
Or use two digit dice of different colors. One color (silver?
gold? yellow?) is the 10's digit and the other (white? copper?)
is the one's digit.
74
Iho RAINBOW August 1983
LUNAR-ROVER PATROL - Guide your Lunar Rover along the moon's surface following every bump and
crevice as a barage of obstacles hinder your movement. No MOON-PATROL type features left out of this
game.
WHIRLYBIRD RUN - Your mission is to reach and destroy the enemy base hidden deep within the Tunnel
of Doom encountering missiles, saucers, and deadly gas clouds along the way. If you like SCRAMBLE, you
will love WHIRLYBIRD RUN.
For Orders Only
1-800-426-1830
except WA, AK, Hi
Call or write for a complete catalog
Business Office and Information Call:
(206) 581-6938
Office open 8:30-4:30 P.S.T.
We dttept VISA, MASTERCARD, AMERICAN EXPRESS.
Add 3% for shipping. NO COD.
All prices U.S. FUNDS.
WA residents add 7.8% sales tax.
SPECTRAL
ASSOCIATES
3416 South 90th Street
Tacoma. WA 98409
DEALER INQUIRIES INVITED
We have written a general purpose subroutine to roll n
dice, each with s sides.
nDs
D<10>-1: RETURN
/ A
Number
of Sides
Number
of sides
You can also make a digit die (DD) roll or a percentile (P)
roll. Our dice subroutine appears in the following program
in lines 13000 through 13260. However, you may change the
line numbers, since no line numbers appear in the statements
in the subroutine.
100 REM**GAMEMASTER*S DICE
110 CLS
120 INPUT "DICE" J DICE*
130 GOSUB 13010
140 PRINT DICE
150 PRINT
160 SOTO 120
13000 REM**DICE SUBROUTINE GMT 1
13010 IF DICE*="" THEN DICE-0: R
ETURN
13020 REM**PERCENTILE OR DIGIT?
13030 IF DICE*="P" THEN DICE=RND
<100)-l: RETURN
13040 IF DICE*-"DD" THEN DICE-RN
SF > SOFTWARI
^
FOUR NEU PROGRAMS FOR YOUR COLOR COMPUTER
SPDUMP A screen duap routine of 360 bytes of fasti
relocatable »achine language code. All PMODES, color
PMODES in 4 B&W shades, twice size option in PMODES 3
or 4, position duap on paper, inverse image option, do
â– ore than 1 screen as for MPP graphics. Works on
DMP2BB LPVH etc. Cones with BASIC instructions. Needs
BASIC1.1 or an 8bit printer fix. On tape. $16
C0NCP0LY Use this nenu driven prograa to design and
draw a fantastic variety of intricate and colorful
patterns, suitable for duap to a printer, includes
exaaples and instructions. Works in a 16K coaputer,
EXT. or DISK BASIC. Cones on tape. $8
SIXFOURK Use your 64K conputer from BASIC. This
prograa allows you to inspect RAM, nove ROM to RAM and
run it there, disable DISK or EXT. BASIC, and sake
setups with graphics, program, strings, and USR in
upper or lower RAH to get the best use of RAM. The
program does the setups and includes tutorials and
instructions to let you sake setups. On tape. $28
R0TW0RLD This showy program for the 64K computer will
display a rotating color globe of the earth. You get
28 frames of a PM0DE1 globe which is loaded into 61*'
of RAM by a driver prograa plus an instruction prograa
all on disk to show off your 64K color computer. $25
Free little graphics prograa with order or request for
our catalog. For fast service send check or MO to:
SP SOFTWARE, 1182 BILTMORE, LYNCHBURG VA 24502
13050
13060
13070
13080
13090
ICE*)
13100
REM##FIND »D» IN DICE*
FOR KK-1 TO LEN<DICE*>
: PD - KK
: XX* - MID* (DICE*, PD, 1)
; IF XX*="D" THEN KK»LEN(D
NEXT KK
13110 REM**NN IS NUMBER OF DICE
13120 IF PD=1 THEN NN«1
13130 IF PD>1 THEN NN«VAL<DICE*>
13140 REM**SS IS NUMBER OF SIDES
13150 LD - LEN(DICE*>
13160 SS* - RIGHT* <DICE«, LD-PD)
13170 SS - VAL<SS*>
131 80 REM**ROLL THE DICE
13190 DICE -
13200 IF NN-0 THEN RETURN
13210 IF SS=0 THEN RETURN
13220 FOR KK=1 TO NN
13230 : DD = RND<SS>
13240 S DICE = DICE + DD
13250 NEXT KK
13260 RETURN
The subroutine is similar to our GumeMaster's Dice pro-
gram in the June issue of the Rainbow, Look in that issue fur
a detailed description of how the program works. Think of
the subroutine as a procedure that converts the string
DICES to the number DICE.
DICE
DICES H^
DICE
SUBROUTINE
Here is a test run of the subroutine.
DICE? 3D6
13
DICE? 0D6 Zero dice
DICE? 3D0 2
'ero sides
DICE? DD Digit Die
4
DICE? P Percentile roll
67
DICE? D
DICE? 1D3
2
DICE? D5 £
iamc as 1D5
3
DICE? and so on. It seems to work.
If you want to use "D" instead of "DD" to mean "Digit
Die," change line 13040.
76
theRAINDOW August 1983
The Character File
We challenge you to rewrite our latest CHARACTER
tlLE program (July, 1983) so the records are first read into
arrays of subscripted variables, as follows:
1st record:
NAYM$(1),
STR(l),
POW(l),
CON(I),
DEX(l),
SIZ(l),
CHA(l)
2nd record:
NAYMS(2), STR(2),
POW(2)
INQ(l),
INQ(2),
CON(2), SIZ(2),
DEX(2), CHA(2)
and so on.
Our program begins by reserving memory space for string
and numeric arrays, then uses a subroutine to read the
information into the arays.
100 REM**CHARACTER FILE PR08RAM
110 CLEAR 1000
120 DIM NAYM*(50> P STR<50),CON(50
>,SIZ(50>,INQ<50>,POU(50>,DEX<50
) ,CHA<50>
130 BOSUB 13010: 'LOAD ARRAYS
We reserved space for up to 50 records, including END-
FILE. Here is our subroutine to read the records into the
arrays. The information is in DATA statements.
13000 REM**LOAD ARRAYS SUBR
13010 RR -
13020 RR m RR + 1
13030 READ NAYM*(RR),STR<RR),CON
(RR) ,SIZ <RR> , INQ<RR) ,POW<RR) ,DEX
(RR),CHA<RR)
13040 IF NAYM*<RR)= ,, ENDFILE" THE
N RETURN ELSE 13020
30000 REM**CHARACTER RECORDS
30010 DATA ALOYSIOUS, 10, 11, 10
, 12, 10, 12, 9
30020 DATA BAROSTAN, 17, 17, 13,
S, 7, 15, 6
30030 DATA BRIDLA, 11, 12, 10, 1
5, 6, 11, 16
30040 DATA DERNFARA, 13, 13, 8,
13, 4, 17, 6
30050 DATA JOLEEN, 13, 11, 7, 13
, 8, 17, 13
30060 DATA ROKANA, 9, 9, 9, 17,
18, 9, 10
30070 DATA ENDFILE, 0, 0, 0, 0,
0, 0,
The menu segment (blocks 200 and 400) is the same as last
time. For your convenience, here it is again.
200 REM*»TELL HOW TO USE
210 CLS
220 PRINT "YOU CAN FIND A CHARAC
TER RECORD"
230 PRINT "BY NAME OF CHARACTER
OR YOU CAN"
240 PRINT "SCAN THE ENTIRE CHARA
CTER FILE."
250 PRINT S128,
260 PRINT S194,
D, PRESS * 1'
270 PRINT 6226,
FILE, PRESS '2 r
280 PRINT 6258,
NU, PRESS *0'
299 :
400
410
420
430
440
450
"MENU: "
"TO FIND
A RECOR
"TO SCAN ENTIRE
"TO RETURN TO ME
REM**WAIT FOR KEY
KEY* = INKEY*
IF KEY*="" THEN 410
KEY*="1" THEN 1010
KEY*- "2" THEN 2010
KEY*="0" THEN 210 ELSE 41
IF
IF
IF
You rewrite the CHARACTER FINDER module begin-
ning at line 1000 and the SCAN CHARACTER FINDER
module beginning at line 2000. Remember, the information
is now stored in arrays. You may find the READ RECORD
SUBROUTINE beginning in line 1 1000 is no longer neces-
sary. Of course, you must rewrite to PRINT RECORD
SUBROUTINE beginning at line 12000 so the information
is obtained from the arrays.
Think of other ways to put the character records into the
arrays. For example:
• Enter records from the keyboard.
• Load the information from a cassette file.
• Load the information from a disk file.
You can do any of the above by rewriting the LOAD
ARRAYS SUBROUTINE.
ORIGINAL!
CHALLENGING!
Avoid enemy patrols while getting fuel for your escape from the
catacombs! Then dodge or blast space mines and enemy ships as you
travel the hyperspace corridor seeking the safety of your mothership
waiting at the stargate!
TAPE $19 95
16K STANDARD-JOYSTICK DISC $23^95
PEEK COPY
THE COPIER WITH A DIFFERENCE
â– Copies tape based software (even most autostarts)
• Displays memory in HEX and ASCII
• Allows insertion or change of machine code
• Displays start, end, and execute addresses of ML programs
• Is written in relocatable machine language code
16K STANDARD TAPE $11. 95
Please add $2.00 each order, postage/handling
OREGON COLOR COMPUTERS
P.O. Box 11468, EUGENE, OR 97440
August 1983 the RAINBOW 77
The Carefully Contrived Character
Instead of asking you to use dice to roll up a character, a
GameMaster might give you a certain number of points to
"spend" on the seven characteristics.
You may assign 3 to 18 points for any one characteristic,
but the total must add up to the number given you by the
GM.
We have written a primitive worksheet program to help
you do this. When you run it, first you see this:
1 STRO
2 CONO
3 S1Z0
4 INTO
5 POW
6 DEXO
7 CHA
TOTAL POINTS:
CHANGE (1 to 7)?
You may now select which characteristic to change by
pressing a number key from 1 to 7. CoCo then asks:
NEW VALUE?
Type the new value and press ENTER, The new value
appears on screen along with a new TOTAL POINTS. You
can select a characteristic and enter a new value as many
times as you want until you get just the character you want,
with exactly the number of TOTAL POINTS the GM said
you could have.
Here is our first worksheet program. Spectaculator it is
not; primitive it is! Perhaps you can improve on it.
MORETON BAY SOFTWARE
For TRS 80 Color Computer & TDP 1 00
PROGRAMERS TOOLKIT
6 USEFUL TOOLS FOR THE SERIOUS COMPUTER USER
CHAINRUN - Add a single line to a Basic program and
subsequent Basic programs load and run auto-
matically. Allows program chaining.
HEXEDIT - ML program which gives full screen edit
capability in Hexadecimal or ASCII for any RAM
address in memory. Can be used to patch ML routines
in memory.
DUMP- Displaysthe memory contents of ML programs.
CMERGE â– ML subroutine which saves the trouble
of retyping long subroutines. Merge different Basic
programs into one large program.
CROSS REFERENCE - ML program which prints line
location of all variables and sorted cross reference
list for the source and destination for every GOSUB
and GOTO statement in a Basic program.
BASIC FULL SCREEN EDIT - ML program which will
give full screen edit capability for any Basic program.
Edit programs with cursor control.
16K $28.95 postage paid
includes 10 pages of Documentation.
MORETON BAY SOFTWARE
A DIVISION OF MORETON BAY LABORATORY
316 Castillo Street
Santa Barbara, CA 93101
(805)962-3127
California residents add 6% sales tax.
TRS 80 • Tandy Corp.
100 REM**CONTRIVE A CHARACTER
200 REM**SET UP ARRAYS
210 FOR KK=1 TO 7
220 : READ CH»(KK)
230 : CV(KK) -
240 NEXT KK
250 TTL -
260 DATA STR,CON,SIZ,INT
270 DATA POW,DEX, CHA
300 REM**PUT WORKSHEET ON SCREEN
310 CLS
320 FOR KK»1 TO 7
330 : PRINT KK,CH*<KK>SCV(KK)
340 NEXT KK
350 PRINT
360 PRINT "TOTAL POINTS:" TTL
400 REM**CHANGE WHICH ONE?
410 PRINT
420 PRINT "CHANGE (1 TO 7)?" J
430 KEY* * INKEYS
440 IF KEY*="" THEN 430
450 IF KEY*<"1" THEN 430
460 IF KEY*>"7" THEN 430
470 NC * VAL<KEY*>
500 REM**GET NEW VALUE
510 PRINT: PRINT
520 INPUT "NEW VALUE"; NV
530 CV(NC) - NV
600 REM**COMPUTE NEW TOTAL
610 TTL =
620 FOR KK=1 TO 7
630 : TTL - TTL + CV(KK)
640 NEXT KK
700 REM**GO AROUND AGAIN
710 GOTO 310
Use the program to contrive a 74 point character; an 80
point character; a 90 point character. For each number of
total points, contrive several characters, each different from
the others.
Coming Attractions
Surely, but slowly, we will explore the following things:
The elusive RND
Game Master's Dice
Looking up stuff in files. First, files of information in
statements and arrays. Next, cassette files. Eventually,
disk files.
Whatever else comes to mind or is suggested by you.
What do you want? If it fits' into the general idea of
"GameMaster's Apprentice," we might do it. Send your
suggestions, complaints, kudos, requests, whatever ... to
George & Bob, P.O. 310, Menlo Park, CA 94025.
^
78
the RAINBOW Auyusl 1983
READ THE FINE PRINT.
It's worth your time. This is good stuff,
SYSTEMS SOFTWARE
MACRO-80C
This is a disk-based editor, macro assembler and
monitor, written for Color Computer by Andy Phelps.
THIS IS IT — The ultimate programming tool!
The powerful 2-pass macro assembler features condi-
tional assembly, local labels, include files and cross
referenced symbol tables. MACRO-80C supports the
complete Motorola 6809 instruction set in standard
source format. There are no changes, constraints or
shortcuts in the source language definition. Incor-
porating all of the features of our Rompack-based
assembler (SDS80C), MACRO-80C contains many
more useful instructions and pseudo-ops which aid
the programmer and add power and flexibility.
The screen-oriented text editor is designed for
efficient and easy editing of assembly language pro-
grams. The "Help Key" feature makes it simple and
fun to learn to use the editor. As the editor requires no
line numbers, you can use the arrow keys to position
the cursor anywhere in the file. MACRO-80C allows
global changes and moving/copying blocks of text.
You can edit lines of assembly source which are
longer than 32 characters.
DCBUG is a machine language monitor which allows
examining and altering of memory, setting break
points, etc.
The editor, assembler and monitor — as well as
sample programs — come on one Radio Shack com-
patible disk. Extensive documentation included.
MACRO-80C Price: $99.95
SOFTWARE DEVELOPMENT SYSTEM
The Micro Works Software Development System
(SDS80C) is a complete 6809 editor, assembler and
monitor package contained in one Color Computer
program pack! Vastly superior to RAM-based
assemblers/editors, the SDS80C is non-volatile,
meaning that if your application program bombs, it
can't destroy your editor/assembler. Plus it leaves
almost all of 16K or 32K RAM free for your program.
Since all three programs, editor, assembler and
monitor are co-resident, we eliminate tedious
program loading when going back and forth from edit-
ing to assembly and debugging!
The powerful screen-oriented Editor features finds,
changes, moves, copys and much more. All keys have
convenient auto repeat (typamatic), and since no line
numbers are required, the full width of the screen
may be used to generate well commented code.
The Assembler features all of the following: complete
6809 instruction set; conditional assembly; local
labels; assembly to cassette tape or to memory;
listing to screen or printer, and mnemonic error codes
instead of numbers.
The versatile monitor is tailored for debugging pro-
grams generated by the Assembler and Editor. It
features examine/change of memory or registers, cas-
sette load and save, breakpoints and more. SDS80C
Price: $89.95
MICRO WORKS COLOR FORTH
• Forth is faster to program in than Basic
• Forth is easier to learn than Assembly Language
• Forth executes in less time than Basic
Forth is a highly interactive language like Basic, with
structure like Pascal and execution speed close to
that of Assembly Language. The Micro Works Color
Forth is a Rompack containing everything you need
to run Forth on your Color Computer.
Color Forth consists of the standard FORTH interest
^Group (FIG) implementation of the language plus
most of FORTH-79. It has a super screen editor with
split screen display. Mass storage is on cassette.
Color Forth also contains a decompi ler and other aids
for learning the inner workings of this fascinating
language. It will run on 4K, 16K, and 32K computers.
Color Forth contains 10K of ROM, leaving your RAM
for your programs! There are simple words to effec-
tively use the Hi-Res Color Computer graphics, joy-
sticks, and sound. The 112-page manual includes a
glossary of the system-specific words, a full standard
FIG glossary and complete source listing. COLOR
FORTH . . . THE BEST! From the leader in Forth,
Talbot Microsystems. Price: $109.95
MICROTEXT: COMMUNICATIONS
VIA YOUR MODEM!
Make your Color Computer an Intelligent printing
terminal with off-line storage! The Microtext module
is just what you'll need for
— Talking to a timeshare system or information
service
— Printing out what is received as it is received
— Saving received text to cassette tape
— Re-displaying the received text even while
on-line
— Communications with other computers
— Using your computer as a general-purpose
300-baud terminal
— Downloading programs from other computers
The Microtext module is a program pack containing
not only firmware but a second serial port so that
both your printer and modem can be connected at the
same time. Microtext can be configured for any serial
printer that will work with the Color Computer, even if
it requires line feeds! But even if you don't have a
printer, you can keep a permanent copy of your data
by storing to cassette tape. Also, any Radio Shack/
Centronics-compatible parallel printer may be used
by adding the Micro Works' PI80C parallel interface.
For those of you with special terminal applications,
Microtext has selectable parity; it sends odd, even,
mark or space. With mark parity (which is default) you
can send to computers requiring either seven or eight
bits. All 128 ASCII codes can be sent. Exchange pro-
grams with other Color Computer users! Basic pro-
grams may be downloaded from other computers or
timesharing systems.
You'll find many uses for this versatile module!
Available in ROMPACK, ready-to-use, for $59.95.
MACHINE LANGUAGE
MONITOR TAPE: A cassette tape which allows you to
directly access memory, I/O and registers with a
formatted hex display. Great for machine language
programming, debugging and learning. It can also
send/receive RS232 at up to 9600 baud, including
host system download/upload. 19 commands in all.
Relocatable and reentrant. CBUG Tape Price: $29.95
MONITOR ROM: The same program as above,
supplied in 2716 EPROM. This allows you to use the
entire RAM space. And you don't need to re-load the
monitor each time you use it. The EPROM plugs into
the Extended Basic ROM Socket or the Romless Pak
I. CBUG ROM Price: $39.95
SOURCE GENERATOR: This package is a disas-
sembler which runs on the color computer and gener-
ates your own source listing of the BASIC interpreter
ROM. Also included is a documentation package
which gives useful ROM entry points, complete
memory map, I/O hardware details and more. A 16K
system is required for the use of this cassette. 80C
Disassembler Price: $49.95
BOOKS
6809 Assembly Language Programming, by Lance
Leventhal, $16.95
TRS-80 Color Computer Graphics, by Don Inman,
$14.95
Assembly Language Graphics for the TRS-80 Color
Computer, by Don Inman, $14.95
^Starting Forth, by L. Brodie, $19.95
GAMES
Star Blaster — Blast your way through an asteroid
field in this action-packed Hi-Res graphics game.
Available in ROMPACK; requires 16K. Price: $39.95
Pac Attack — Try your hand at this challenging game
by Computerware, with fantastic graphics, sound and
action! Cassette requires 16K. Price: $24.95
Haywire — Have fun zapping robots with this Hi-Res
game by Mark Data Products. Cassette requires 16K.
$24.95
Dunkey Munkey — Arcade excitement awaits those
who dare to conquer the Munkey! Joystick and 32K
required, by Intellectronics. Cassette: $24.95
Colorpede — Great graphics, two-player option, and
pause control in this exciting game by Intracolor
Communication. Cassette requires 16K: $29.95
Adventure — Black Sanctum and Calixto Island by
Mark Data Products. Each cassette requires 16K:
$19.95 each.
Cave Hunter — Experience vivid colors, bizarre
sounds and eerie creatures In hot pursuit as you wind
your way through a cave maze in search of gold
treasures. This exciting Hl-Res game by Mark Data
Products requires 16K for cassette version. $24.95
Starfire — Fly around the planet defending Earthlings
from being snatched up by aliens in this challenging
game from Intellectronics. Cassette requires 16K:
$21.95
Doodle Bug — Joystick-controlled Doodle Bugs must
move quickly through mazes while being chased by
enemy bugs in Hi-Res game by Computerware.
Cassette requires 16K: $24.95
Astro Blast — You'll need to act fast as you protect
Earth from wave after wave of alien invaders in this
.Hi-Res game by Mark Data. Cassette requires 16K:.
$24.95
HARDWARE
PARALLEL PRINTER INTERFACE — Serial to parallel
converter allows use of all standard parallel printers.
PI80C plugs into the serial output port, leaving your
Rompack slot free. You supply the printer cable. PI80C
Price: $69.95
MEMORY UPGRADE KITS: Consisting of 4116200ns.,
integrated circuits, with instructions for installation.
4K-16K Kit Price: $39.95. 16K-32K Kit (requires
soldering experience) Price: $39.95. For Rev. level E,
ET, NC and TDP-100s, we carry 64K chips; upgrading is
easy! Eight prime 64K chips and instructions: $64.95
7&D©I3©
Romless Packs for your custom EPROMs
write for information.
MasterCharge/Visa Accepted
California residents add 6% tax.
call or
P.O. BOX 1.1 10, DEL MAR, CA 92014 [61 9] 942-2400
GRAPHICS
16K
ECB
By Walter Seay
The following graphics program, Lines, generates a series
of lines that form new designs with each new screen.
Simply CLOAD and RUN the program. The listing is
short, so beginners will enjoy giving this program a try. And,
by changing the values in lines 20-50 you can give each
screen a new look.
The listing:
' #*#*###*#■■**-*******■**♦*-#**
1 ' â– **
##
2 'â– **
LINES #*
3 '**
MARCH 31, 1983 *-*
4 * **
*•*
5 '#*
WALTER SEAY #*
6 '#*
*#
7 ' ******#*■*■****-##**■***#♦-*#*-
10 PCLEAR8
20 PM0DE4, 1 : SCREEN 1 , 1 : PCLS
30 A=40:B=0
40 LINE(A, 10)-(B, 188>.PSET
50 A=A+B:B=B*2
60 IF A>200 THEN 90
70 GOTO 40
30 REM
90 pm0de4,5:pcls
100 forp=ito4:pcopy p to p+4:nex
TP: SCREEN 1,1
11.0 R=RND(7)
120 F0RI=1T0R:X(I)=RND<255) : YCI)
=RND<I88>:NEXTI
130 X=RND(25S) :Y=RND(188>
140 PSET(X,Y,C)
150 FORJ=1TO30:FORI=1TQR
160 LINE-(X(I),Y(I) ),PSET
170 X(I)=(X<I>-X)*.9+X
180 Y(I)=(Y<I>-Y)*.9+Y
190 nexti:nextj
200 FORW=1TO480:NEXTW
210 GOTO100
rfj%
Maintains:
2
8 Generations
255 Ancestors
jlnw:
Pedigree Chart
Family Groups
iRef. Index
Requires :
32K - ECB
^
80 the RAINBOW August 1983
HARDWARE
Have you ever loaded a program from cassette and
Found the tape recorder still running after it should
have stopped? Or worse, have you ever been using a
program that stored files to tape, and found that the tape ran
right to the end while you were thinking about something
else? Under such a circumstance, 1 once invented three new
curse words never hefore heard by man or woman.
The problem is caused by a sticking recorder relay in the
Color Computer, and it is apparently not an unusual
problem.
A technical type person at a local Radio Shack Computer
Center suggested that the current flowing through the con-
tacts creates enough of a magnetic field to hold the reed relay
closed, even when the relay coil current is interrupted. The
higher the current, the greater the chance of a problem.
The problem can be solved by reducing the current in the
contacts. 1 have a Panasonic recorder, not a CTR-80, but 1
suspect the electrical polarities are the same, since the circuit
shown here worked with three different brands of recorders
(including my son's "portable" lift-it-if-you-can blaster
box).
The circuit requires only a few dollars worth of parts, and
can be stuffed into a small plastic pill bottle. The circuit is
shown in Figure I. The transistor, type 2N2222 or equiva-
lent acts as a switch and passes the motor current, instead of
the relay passing it. The relay contacts now pass only the
transistor base current, about 100 times less than the motor
current. The resistor prevents any small leakage current
from turning on the transistor, and the diode clips any
voltage spikes that might appear when the motor current is
interrupted.
End Those
Sticky Relay Blues
By Barry E. Becker
rilTo Rrtuttti)
r-\AA-
Jl ilr.im (ihlrl
1
Hi
"u
(ft i
All of the parts may be purchased at Radio Shack as
follows;
Symbol Radio Shack P/N Description
Qi
Dl
Rl
PI
J]
276-2009
271-1122
271-1339
274-289
274-292
Transistor, 2N2222
equivalent
Diode. IN914
Resistor, 22K ohms
Sub-mini phone plug
Sub-mini phone jack
16K EXT. COLOR BASIC Si
PRINTER REQUIRED
WORD SEARCH PUZZLE MAKER
STANDARD
DEFINITIONS
WIDE
BIG LETTERS
SbaiiTock
Doftware sequence drill
4382 NORTON ROAD
IRSDNOR QUID 43046 OHIO RES. ADD 5. 57. SALES TAX
614-494-2277
ANT 3 10% OFF Wf 5 IK OFF
*6.9S
♦&.9S
•6.93
♦6.93
*6.95
MATH WORKSHEET-QUIZ MAKER
WHOLE NUMBERS 46.93
FRACTIONS
ANY 8 m OFF
DECIMALS
PERCENTS
LENGTH
AREA
VOLUME
CAPACITY
WEIGHT
TIME
SPEED
ANY 10 2SX OFF
•6.93
•6.93
96.93
•6.93
*6.93
*6.93
♦6.93
*6.95
*6.95
*6.93
August 1983
the RAINBOW
81
WHAFS HOT THIS SUMMER?
TAKE A LOOK ! ! !
SOFTWARE
The Official
ZAXXON
by SEGA
(from Datasoft)
Probably the most incredible arcade
game ever is now available for the Color
Computer. NOTE: this is the official ZAX-
XON, not an imitation!
32K Tape or Disc 53*95.
Now Only $29.95
THE KING
by Tom Mix Software
Four full graphic screens. Exciting sound
and realistic graphics. Never before has
the color computer seen a game like this,
Tape $26.95
Disc $29.95
SKY-DEFENSE
Can you survive the first wave of attack?
Or the next? Or the next? Only your joy-
stick will ever know! Features horizontal
flight in highres graphics, and fast-paced
action. Machine language; joystick re-
quired, 16K $12.95
BIGNUM
If you dislike seeing numbers like 1 .23045 E
23, and wish you could have all the ac-
curate digits instead, then BIGNUM is for
you. Add. subtract, multiply, divide and
raise BIG numbers to BIG powers and get
totally accurate results, Even if you are
satisfied with an approximation, without
this program the Color Computer would
return an "OV ERROR" with this problem:
34+45. BIGNUM returns the entire 68 digit
result! Accurate to 1,024 digits in 16K &
about 3,068 digits with 32 RAM.
16K $9.95
HARDWARE
16K-32K UPGRADE KIT
Kit includes 8 200 ns #411 6 Factory Prime
Chips, piggybacked sockets, SAM socket,
and "32K" button to replace the 16K on
your computer's case. Easy to remove,
Instructions included $25.95
64K UPGRADE KIT
200 ns #4164 chip set will upgrade your
"E" board easily. Factory Prime Chips.
Instructions included $49.95
Nanos Reference Cards
Color Computer & TDP-1 00
Color BASIC & EXTENDED 4.95
DATA CASSETTES
C05 C10
$ ,65 Qty. 1-10 $ 70
$ .60 Qty, 11-20 S .65
Soft Poly Cases Ea, $ .20
WABASH DISKETTES
Box of 10 $25.00
JOYSTICK INTERFACE
Use ATARI or WICO Joysticks with your
COCO! (Can interface 2 joysticks) .... $19,95
WICO COMMAND CONTROL
JOYSTICK
The best joystick available for COCO , , ,
$29.95
Add $1 .50 per software order and $2.00 per hardware order for postage and handling.
California residents add 6% Sales Tax.
QUASAR ANIMATIONS
1520 Pacific Beach Drive, San Diego, California 92109
(619)274-2202
UTILITY
16K
ECB
f the '
RAINBOW
/.. -.\
m
Part IV
Keep Your Home On Schedule
By A. B. Trevor
Your lights, appliances, water sprinkler valves — in
fact, anything electrically activated — can be con-
trolled by your Color Computer, a Plug 'n Power
Controller, and the HO M RUN program (Listing 1). This
program lets you schedule a week at a time when electrical
switches are to be turned on, off, dimmed or brightened.
You can save these schedules on disk for future use or
modify them with the built in editor. Each day's events are
displayed by a color bar graph, along with the current day
and time.
The previous articles in the Home Control series pre-
sented the Plug 'n Power hardware, a simple control pro-
gram, a real time clock, and a description of the BSR X10
signaling protocol. This last article in the series utilizes all
these concepts in the HO M RUN program.
ML Overlay
Although HOMRUN is written primarily in BASIC, it
requires machine language routines for the real time clock
and BSR pulse generation. These routines must be in a disk
file named X10CLK.BIN, which is generated by
X10CLK. BA S (Listing 2). Note that the data statements in
XIOCLK contain the same machine language as appeared in
the first two articles. Lines 200-490 in Listing 2 (the clock
routines) correspond to lines 270-710 on page 22 of the
Rainbow, April, 1983, while lines 500-570 (X10 routine)
incorporate lines 390-500 on page 163 of the February, 1983
issue. If you don't have access to CompuServe or Rainbow
on Tape and have already typed in the earlier programs, you
can save some time by renumbering and merging the data
statements from these earlier programs. (One fix is required:
the 39 in line 340 of PNPCLK should be changed to 43.)
Alter loading XIOCLK, place a diskette containing
HOMRUN. BAS in drive and run X10CLK.BAS once,
this will write X10CLK.BIN on the disk with HOMRUN.
Once this has been done, you can delete C10CLK.BAS.
Before attempting to load or run HOMRUN, 16K users
must type P CLEAR 1.
(Alexander Trevor is Executive Vice President of
computer resources at CompuServe.)
HOMRUN Commands
Your Plug 'n Power controller must be connected to the
cassette port and switched to "CTRL" before running
HOMRUN. If it is not, the warning "BSR is OFF" will
appear on the screen until the condition is remedied.
Initially, HOMRUN will display the help page, which lists
the single letter commands. These may be typed whenever
the "COMMAND:" prompt appears on the screen:
I
D
L
S
H
C
V
@
Insert an event. You must supply the day, time, device
and unit codes (e.g., G3), and action. Action codes are:
ON, OFF, CLR, ALL, DIMn and BRn.
Detail event editor. Lists events 12 at a time. You can
delete an event (D), cause it to be the next one to be
executed (E), or just move on to the next event
(ENTER). The next scheduled event is marked ">" in
column 1.
Loads a schedule file from disk.
Saves the current schedule to a disk file.
Types the Help text.
Set the Clock.
View the schedule for the next day in sequence.
Send a device command immediately.
When a day is requested, at least two letters of the day of
the week must be given (e.g., SU, MO, FR). You may also
reply "ALT .," in which case an event will be generated at the
same time every day. Even if you wish an event to occur only
four or five days a week, it is quicker to insert the event for
"ALL" days, then delete the unwanted days with the
"Detail" command. Time must always be entered military
fashion (e.g., 23:00) since HOMRUN does not use a.m. and
p.m.
To reduce the number of events (there is space for only 60
as configured here) consider using the A LL and CLR com-
mands. Both act on all devices on the given house code; a
unit code must be supplied but is ignored in this case. Since
the HOMRUN program controls all 16 house codes at once,
you may be able to use this feature to your advantage.
When you enter several events as you create your elec-
tronic home schedule, it is not obvious which event is the one
August 1983 the RAINBOW
83
that should be executed next. HOMRUN assumes that the
first chronological event (first event after 00:00 Sunday) is
the next event for keyboard entered schedules, but this may
not be what you want. For example, on Monday you may
enter a schedule that includes an event on Sunday and one
on Wednesday. HOMRUN will wait for the Sunday event,
because from its point of view, that is the earliest event. For
this reason, you should always review a schedule with the
"DETAIL" command to set the desired next event. In the
case of schedules loaded from disk, the scheduler is left OFF
until you specify the next event.
Schedule Screen
Upon completion of any command, a screen of a day's
events will be drawn. This screen is intended to give a rough
idea of the state of up to 12 different devices during a day.
(You can control more devices, but only the first 12 will be
displayed on the screen.) Initially the current day will be
displayed, but you can display future days in sequence one at
a time with the "View" command. Since the events of one
day may affect the next day (e.g., a light turned on yesterday
remains on until it is turned off), it is not possible to skip
days in the display cycle.
The event screen displays the actual day and time in the
upper right corner. The day being displayed is indicated in
the center of the first line, as "SCHEDULE FOR *MON*."
The second line reveals the next event to be executed by
event number. You will have to review the list of events with
the "Detail" command to determine the particulars on this
event. Time of day, starting at M (midnight) and extending
through N (noon) to the next midnight, labels the horizontal
axis in two hour increments on lines 2 and 3. Devices (con-
sisting of a single letter house code and one or two digit
device code) label the vertical axis.
Horizontal bars are drawn to indicate the hours that a
device is to be activated. The bars are white if the device was
last turned ON, blue if it was DIMmed, and orange if it was
BRightened. Black indicates the device is off. Resolution is
one-half hour.
The bottom line will contain the prompt "COMMAND:"
when HOMRUN is ready to accept another command.
Typing before this prompt appears will be ignored. Finally,
if you load or save a disk schedule, the name of the schedule
will be shown in the lower right corner.
One warning: although the event screens are nice to look
at, HOMRUN will work just fine with your TV off—and
your screen won't get engraved with an image of your
schedule.
Modifications
As supplied, HOMRUN is limited to 60 events. This may
be expanded by changing the value of NE in line 120, but any
significant change will require 32K. To create a 32K version,
the ML routines must be relocated. This can be done by
changing &H3D00 to &H7DQ0 in line 20 of X10CLK.BAS
and line 2915 of HOMRUN. X10CLK.BAS must be rerun
to write the 32K version of XJ0CLK. BIN.
Although it is not nearly as convenient as the disk version,
HOMRUN may be converted to cassette by changing the
value of DV in line 110 to -1. The main problem cassette
users will have is remembering to switch the controller from
"CTRL" to "CASS" at the appropriate times.
Both programs are again available on CompuServe's
ACCESS data base, and may be downloaded with V1DTEX
or other terminal software to your machine. They are stored
as X/t»CLA'.CC[70000,I30] and HOMRUN [70000, 130]. I
may be contacted via EMAIL at 70000, 1 30, or on the Color
SIG.
Listing 1:
* 220...
..0275
560...
. 050E
910...
..0836
1200..
. 0B6B
1480..
. 0E38
1840..
. 11DF
2190..
. 150F
2580..
. 181A
END..
. 1B93
10
20
30
40
50
HOMRUN
7 7 DAY SCHEDULING PROGRAM FOR
' PLUG'N POWER CONTROLLER
* <C> A. B. Trevor, Apr 1983
70
80 GOTO 2915
100 'USER SETTABLE PARAMETERS
110 DV=1:" -1 FOR CASSETTE
120 NE=60: ' MAX NUMBER EVENTS
130 DT=12:> DEVICE TBL SIZE
1 40 ML=PEEK ( 39 > *256+PEEK < 40 ) + 1
150 ' **END OF PARAMETERS**
160 DIM EVNT(6,NE) :' EVENT ARRA
170 dim btabu6)
180 Dim ad*<dt)
190 dim adn<dt)
200 dim lst(dt)
210 DIM HUE (6)
220 DATA 6,E,2,A, I ,9, 5,D, 7,F, 3,6
,0»S,4,C
230 DATA 0,5,5,0,3,8
240 '
250 CLS 1
: 'BSR DIGITS
:'DEV NAMES
: * DEV#
:'LAST STATE
: * CMD COLORS
84
the RAINBOW August 1983
PRINTERS AND
DISK DRIVE SALE!
Prowriter. . .The best printer on the market for under $500.00.
Built so well it is guaranteed for one full year!! Prints at 120
CPS, Porportional spacing, Tractor and friction feed. And, best
of ail the print looks absolutely super!
List price is $795.95 we are selling them for $429.95 but if you
send us a certified check you can have the printer for only
$399.95. This is a parrell printer and you must use a Botek
Converter for an additional $65.95. (Regular printer cables are
$35.95). So for only $64.95 you can be up and running.
For those who want a less expensive printer we have the Baby
Prowriter the Banana Printer. This printer sells for only $249.95.
Complete with the Botek Converter it is only $299.95.
Special Disk Drive Offer- Disk Drive controllerand aTEAC40
track disk drive for only $377.95. With a two drive cable only
$387.95
COLOR OUTHOUSE
At the last minute we signed a contract to bring you what has
been the wildest, funniest, all out originalist games ever
published for the TRS-80 Color Computer. Color Outhouse, in
this fun filled arcade game you must guard your outhouse
against a band of notorious toilet paper thieves. And if that isn't
enough, we've got some of the craziest vandals you've ever
seen. Bright colorful graphics, wonderful sound (very dis-
criptive),and most of all, a lot of fast andfuriousfun.This'll most
definitly be one to show your friends!!! Tape $26.95 - Disc $28.95
COMPUTER SHACK'S
BOOK STORE
ASSEMBLY LANGUAGE GRAPHICS FOR THE TRS-
80 COLOR COMPUTER
By Don Inman $14.95
Written speciticallytorthe TRS-80 ColorComputer, this book uses
sound and graphics to show how 6809 assembly language can be
used to perform tasks that would be difficult or impossible with
BASIC. All of the explanations are hands-on, so that the manual can
serve as a tutorial.
PROGRAMMING THE 6809
By Rodney Zaks & William Labiak $14.95
This book explains how to program the 6809 in assembly language,
covering all aspects progressively and systematically. Beginning with
the basics of programming, Programming the 6809 goes on to
explain registers and buses, subroutines, the 6809 instruction set,
addressing modes. I/O techniques and devices, and finally, data
structures.
TRS-80 COLOR PROGRAMS
by Tom Rugg and Phil Feldman $19.95
Here are 37 fully documented programs ready to type into your color
computer. These proyianis promise to be educational, practical, and
in almost all cases, fun. 332 pages.
TRS-80 COLOR COMPUTER GRAPHICS
by Don Inman $14.95
Explore the creative and imaginative blending of computers and color
using Color Computer Graphics. This book will enable you to explore
all the graphics capabilities of Extended Basic. The book also provides
application programs and useful subroutines. 303 pages
COLOR COMPUTER S0NGB00K
by Ron Clark $7,95
40 of the world's best known songs, scored for easy playing on the
TRS-80 Color Computer, including many favorite popular, classical,
folk and seasonal musical selections. Some of which include Dixie,
Minuet, Greensleeves. Jingle Bells.
TRS-80 EXTENDED BASIC
by Richard Haskell $12.95
Here is a book that explains how beginners, students and experts can
all make the most of the COCO. A comprehensive introduction to
BASIC programming.
TRS-80 COLOR BASIC
by Bob Albrecht $9.95
This book leads novices step by step into good programming practices.
It explores all the COCO's capabilities. The ideal introductory bookfor
kids, parents and teachers.
THE FACTS
by Spectral Associates $14.95
The facts is a compendium of data designed to explain in detail the
internal workings of the color computer. A must for any machine
language or basic programmer.
THE 6809 PRIMER ASSEMBLY LANGUAGE
SUBROUTINES
by Kenneth Skier $11.95
It provides commonly used assembly language subroutines that are
effective building blocks for virtually any applications.
COLOR COMPUTER TECH MANUAL $7.95
Pontiac. Michigan 48054 '
Info (313) 673-8700 • Orders: CALL TOLL FREE (800) 392-8881
Master Charge and VISA OK. Pie;
Proper postage outside -of US
Dealers: We are distributors foi
;eadd S3. 00 tor shipping in the U.S./
Canada - Mexico
ill items in (his ad. Write tor our c;
S5 OOforCanads
260 'LOAD BSR TABLE AND COLORS
270 FOR 1=1 TO 16: READ A*: BTAB
<I>=VAL<"&H"+A*) : NEXT I
300 FOR 1=0 TO 5: READ HUE ( I ) :
NEXT I
350 'LOAD BSR ROUTINES
360 DEFUSR0=ML : DEFUSRl=ML+3
370 DEFUSR2=ML+6: DEFUSR3=ML+9
400 IF PEEK<ML+12>=&H4F AND PEEK
(ML+13)=&H6A THEN DAY=USR0 (-1 ) +1
: X=USR1 (-1 > : GOTO 480
410 PRINT"L0ADIN6 M/L"
420 IF DV=-1 THEN CLOADM " X 1 0CLK "
ELSE LOADM"X10CLK"
430 '
440 'SET THE CLOCK
450 GOSUB 2580
460 X=USR0<DAY-1>
470 X=USR1 <HR*256+MIN>
480 EC=0: ' INITIALLY NO EVENTS
490 GOTO 2300
500 *
510 'MAIN CONTROL LOOP
520 ' DISPLAY ONE DAY'S SCHEDULE
530 CLS
540 DW*=MID* < "sunmontuewedthuf ri
sat",DAY*3-2,3)
550 PR I NT@0, "schedule for*";DW*»
"*";
560 PRINTH32, " AM
1 1112 2";
570 PRINTS64, "DEVICE m 2 4 6 8
0N46802 "?
580 IF NX=0 THEN PRINTS32, " >OFF<
"; ELSE PRINTS32, n NEXT=";NX5
590 IF FLNM*<>"" THEN PRINTS497,
FLNM*>" loaded";
600 * DISPLAY DEVICE CODE
610 FOR DI=1 TO DN
620 IF ADN(DI)=0 THEN 670
630 PRINTSD 1*32+66, AD* <DI>;
640 SET(15,DI*2+4, 1>
650 SET(i5,DI*2+5, 1)
660 NEXT DI
670 'DISPLAY PREV DAY'S STATE
680 IF NOT NDQ THEN 760
690 TH=0: TM=0: NDQ=0
700 FOR DI=1 TO DN
710 IF ADN<DI)=0 THEN 760
720 LC=LST(DI)
730 IF LC>0 AND LCO30 THEN GOSU
B 2710
740 NEXT DI
750 ' SCAN EVERY EVENT
760 FOR 1=1 TO EC
770 IF EVNTC0, I ) ODAY THEN 900
780 * LOOK FOR THIS DEVICE
790 TA=EVNT<2, I > *16+EVNT <3, I)-l
800 LET DI=1
810 IF ADN(DI)=TA THEN 840
820 DI=DI + l: IF DK=DN THEN 810
830 GOTO 900: ' WHEN DISPLAY FULL
840 LC=EVNT<4, I)
850 'DISPLAY DEVICE STATE
860 IF LC<20 THEN FOR DI=1 TO DN
870 GOSUB 2690
880 LST<DI)=LC
890 IF LC<20 THEN NEXT DI
900 NEXT I : ' END OF EVENT GRAPH
910 '
920 PR I NTS480 , " COMMAND : " 5
930 IF EC=0 THEN HR=25: GOTO 980
940 'GET TIME TO NEXT EVENT**
950 HR=FIX<EVNT(1,NX)/100)
960 MIN=EVNT<1,NX)-HR*100
970 'WAIT FOR EVENT OR KEY
980 A=USR2<HR*256+MIN>
990 IF A=-l THEN PRINTS480, "BSR
OFF!";: SOUND 1,20: GOTO 920
1000 IF A>0 THEN 1190
1010 IF EVNT(0,NX)OUSR0(-1>+1 T
HEN 920
1020 IF NX=0 THEN 940
1030 'SEND EVENT TO CONTROLLER
1040 HC=BTAB<EVNT(2,NX) >*16
1050 A=768+HC+BTAB(EVNT(3,NX>)
1060 X=USR3(A>: CD=EVNT(4,NX>
1080 IF CD>30 THEN RP=2* (CD-FIX <
CD/10)*10)+1 ELSE RP=3
1090 A=RP*256+HC+FIX<CD/10>+&H40
00
1100 X=USR3(A)
1110 SOUND 150, 3: SOUND 100,3
1120 IF NX<EC THEN NX=NX+1 ELSE
NX=1
1125 PRINT@37,NX;
1130 'WAIT TILL NEXT MINUTE
1140 MIN=MIN+l: IF MIN>59 THEN M
IN=0: HR=HR+1
1150 IF HR<24 THEN GOSUB 1180: I
F A>0 THEN 1190 ELSE 940
1160 HR=0: DAY=DAY+l: IF DAY>7 T
HEN DAY=1
1170 GOSUB 1180: IF A>0 THEN 119
ELSE 520
1 1 80 A=USR2 ( HR*256+M IN): RETURN
1190 'PROCESS KEYBOARD COMMANDS
1200 IF A=3 THEN END
1210 CD= I NSTR ( 1 , " I DLSHSC V " , CHR$ <
A) )
1220 IF CD=0 THEN PRINTS4B8, "?" ?
: SOUND 1,2:GOTO940
1230 CD=CD-1
1240 ' INSERT DEL LOAD
SAVE HELP IMMD CLCK VIEW
1250 ON CD+1 GOTO 1270,1680,2010
,2150, 2290, 2430, 2530, 1640
1260 '
1270 'INSERT COMMAND
1280 IF EC-NE THEN PRINTO490, "FU
86
the RAINBOW August 1983
Mail Order . . .Computer Shack has been in the mail Order computer products business for 3 years.
We try very hard to please everyone. In the past year we have shipped out over 90% of our orders within
24 hours. The 1 0% we didn't fill was because other manufacturers were not as prompt at filling ordersas
we were and we ran out of a product.
If you order 2 or more programs you can deduct 1 0% from you total software purchase. Order 3 and take
1 5% off and if you order 4 or more you can take 20% off the entire SOFTWARE order.
If you have tried mail order and were dismayed to find that even companies that guaranteed delivery
within 24 hours took weeks and weeks to deliver a product don't dismay try us. We want to be your
supplier.
We even have a toll free order Sine answered by one of our staff. Most of our staff have their own color
computers so they can better help you in your selections.
COLOR COMPUTER PRICES
QUEST - Aardvark 1 4.95/1 6.95
GOLF - Aardvark 1 6K Extended 9.95
DUNGEONS OF DEATH - Aardvark 1 4.95/1 6.95
VENTURER - Aardvark 1 4.95/1 6.95
WIZARDS TOWER - Aardvark 1 4.95/1 6.95
SEA DRAGON - Adv. Intntl 34.95
PINBALL â– Anteco 24.95
INTERGALACTIC â– Anteco 24.95/32.95
8 BALL â– Anteco 29.95 RPAC
SPEAK UP - Classical 29.95
TELEWRITER - 64 - Cognitec 49.95/59.95
COLOR DFT-TAPE - Computer Shack 25.95
BALLOON ATTACK - Computer Shack 21 .95.23.95
64K UPGRADE - Computer Shack 69.95
CMI - Computer Shack 31 .95/35.95
BALLOON ATTACK COMMENTED - Computer Shack 31.95/35.95
COLOR DFT DISK - Computer Shack 25.95
FURY 32K - Computer Shack 27.95/29.95
NERBLEFORCE - Computerware 24.95/29.95
MOON HOPPER 32 K- Computerware 24.95/29.95
SYNTHER-7 - Computerware 21 .95/26.95
PAC ATTACK - Computerware 24.95/29.95
SHARK TREASURE - Computerware 21 .95/25.95
BLOC HEAD - Computerware 26.95/29.95
GRAN PRIX 32K - Computerware 21 .95/26.95
SCREEN EXPANDER 64K - Computerware 24.95/29.95
DOODLE BUG - Computerware 26.95/29.95
FROGGER - Cornsoft 1 9.95
ZAXXON 32K - Datasoft 39.95/39.95
MOON SHUTTLE 32K - Datasoft 29.95
RAM SLAM 4K-1 6K - DSL 25.00
RAM SLAM 1 6K-32K - DSL 49.95
ZAKSUND - Elite Software 24.95/27.95
MADAM ROSA'S - Gamester 1 5.00
WET T-SHIRT CONTEST - Gamester 1 5.00
STARFIRE - Intelletronics 21 .95/25.95
ROBOTTACK - Intracolor 24.95/27.95
COLORPEDE - Intracolor 29.95/34.95
CALIXTO ISLAND â– Mark Data 1 9.95
SPACE RAIDERS - Mark Data 24.95/29.95
GLAXXONS - Mark Data 24.95/29.95
HAYWIRE - Mark Data 24.95/29.95
ASTRO BLAST - Mark Data 24.95/29.95
BLACK SANCTUM - Mark Data 1 9.95
MARK DATA KEYBOARD - Mark Data 69.95
CAVE HUNTER - Mark Data 24.95/29.95
PHANTOM SLAYER - Med Systems 1 9.95
INVADERS REVENGE - Med Systems 1 9.95
MONKEY KONG- Med Systems 24.95
EDITOR ASSEMBLER - Micro Works 89.95/99.95
PHONICS II â– Prickly Pear 24.95
SHAFT - Prickly Pear 24.95/29.95
DISK MANAGER - Prickly Pear 29.95
FLIGHT 32K - Prickly Pear 1 9.95/24.95
MONSTERS & MAGIC - Prickly Pear 1 9 .95/24 .95
PHONICS I - Prickly Pear 24.95
DISK MASTER - Prickly Pear 24.95
NINJA WARRIOR - Programmers Guild 24.95
PACDROIDS - Programmers Guild 1 5.95
BONANZA - Soft Sector 39.95
TAPE DIRECTORY - Soft Sector 1 4.95
MASTER CONTROL II - Soft Sector 1 9.95
ELECTRONIC TYPING TUTOR - Soft Sector 1 9.95
COLOR CATERPILLAR - Soft Sector 1 9.95
COLOR GRAPH ICS EDITOR - Soft Sector 1 9.95
WHIRLYBIRD RUN - Spectral 21 .95/25.95
GHOST GOBBLER - Spectral 21 .95/25.95
GALAX ATTACK - Spectal 21 .95/25.95
SPACE INVADERS - Spectal 21.95
KEYS OF THE WIZARD • Spectral 21 .95/25.95
MS GOBBLER 32K - Spectral 21 .95/25.95
DISASSEMBLER - Spectral 14.95
SOUND SOURCE - Spectral 24.95
DEFENSE 1 6/32K â– Spectral 21 .95/25.95
PLANET INVASION • Spectral 21 .95/25.95
SPACE RACE - Spectral 2 1 .95/25.95
BUGOUT - Spectral 1 9.95
LANCER - Spectral 21 .95/25.95
MAGIC BOX - Spectral 24.95
COLORCOM/E • Spectrum 49.95
THE COMPOSER - Speech Systems 29.95
KATFRPII I AR -Tom Mix 21.95/24.95
COLORMON - Tom Mix 24.95
THE TROG - Tom Mix 27.95/30.95
GRABBER - Tom Mix 27.95/30.95
DISK TO TAPE - Tom Mix 1 7.95
TIXER - Tom Mix 1 8.95
WORD DRILL 1 6K EXT. - Tom Mix 1 9.95
TEACHERS DATABASE 32K - Tom Mix 39.95/42.95
SPACE SHUTTLE 32K - Tom Mix 28.95
MATH DRILL 16K EXT -Tom Mix 19.95
SPELL TEST 16K EXT. -Tom Mix 19.95
THE KING 32K - Tom Mix 26.95/29.95
TAPE TO DISK - Tom Mix 1 7.95
TRAPFALL - Tom Mix 27.95/30.95
C.C. WRITER - Trans Tec 29.95
C.C. FILE - Trans Tec 1 2.95
C.C. CALC - Trans Tec 34.95
C.C. MAILER - Trans Tec 29.95
ELITE CALC â– Elite 44.95
1691 Eason • Pontiac. Michigan 48054
Info: (313) 673-8700 • Orders: CALL TOLL FREE (800) 392-8881
Master r, ha me and VISA OK Please add S3.00 for shipping in the U.S.A.- S5.00 for Canada i
e Outside of US - Canada - Mexico
Dealers: We are distributors for all items in this ad. Write for our catalog and puce list
LL"5: GOTO 600
1290 CLS 1 : PR I NT" < INSERT EVENT >"
1300 GOSUB 2580:* GET TIME
1320 GOSUB 2780: * GET COMMAND
1330 IF DAY=S THEN ALS=-1 ELSE A
LS=0
1340 IF ALS THEN FOR DAY=1 TO 7
1350 EC=EC+1
1360 ' LOOK FOR TIME LATER THAN
REQUEST
1370 FOR I»l TO EC-1
1380 IF(EVNT(0, I) >DAY) OR ( (EVNT
<0,I>=DAY) AND (EVNT<1,I>XHR*10
0+MIN))) THEN 1410
1390 NEXT I
1400 I=EC: GOTO 1460
1410 ' MAKE HOLE FOR EVENT
1420 FOR J=EC-1 TO I STEP -1
1430 FOR K=0 TO 5
1440 EVNT<K, J+1)=EVNT<K, J)
1450 NEXT K,J
1460 EVNT<0,I>=DAY
1470 EVNTU, I)=HR*100+MIN
1480 EVNT (2, I>=HC
1490 EVNT (3, I)=UN
1500 EVNT (4, I)=CX*10+CB
1520 'ADD TO DEVICE TABLE IF NEW
1530 FOR 1=1 TO DN
mmmmm
msNMaaaMmm
*••
AUTO-DIALER
BY SOUNDWORKS
Gf AUTOMATIC PHONE DIALER
gf ULTRA HIGH SPEED DIALING AND
REDIALING
&l STORE OVER 50 NUMBERS
Sf NO MODEM REQUIRED
tf NO TONE SERVICE NEEDED
g( SIMPLE HOOK-UP /*TAY\
Sf ADAPTASLE TO ANY PHONE
fil 16K EXTENDED REQUIRED
CAS5ETTE$2495 DISK*3495
m
RAINBOW
Soundworks Productions
26 EAST 7th STREET
PATCHOGUE,NEW YORK 11772
kwwWMN
N.«.>.||||MNt| ADD 7 IS* TAX
MMMMMMMMHUMUM*
mmHWMMAMMMMWt
88 the RAINBOW August 1983
1540 IF ADN(I>=HC*16+UN-1 THEN 1
610
1550 NEXT I
1560 IF DN=DT THEN PR I NT "DISPLAY
FULL": SOUND 20 1,30: GOTO 1610
1570 DN=DN+1
1 580 ADN ( DN ) =HC* 1 6+UN- 1
1590 AD*(DN>=B*
1600 IF NX=0 THEN NX=1
1610 IF ALS THEN NEXT DAY
1620 IF DAY>7THEN DAYMJSR0 (-1 ) +1
1630 SOTO 520
1640 'NEXT DAY'S GRAPH
1650 IF DAY>=7 THEN DAY=1 ELSE D
AY=DAY+1
1660 NDQ=-1
1670 GOTO520
1680 'DETAIL EVENT LISTER/EDITOR
1690 IF EC=0 THEN PRINT8490, "?EM
PTY " 5 : SOUND 1,2: GOTO 940
1695 FOR L=l TO EC STEP 12
1700 CLS l:PRINT"<DETAIL EVENTS >
â– i
1710 PRINT"dELETE, eXEC NEXT, OR
< ENTER >"
1720 PRINT" day time device cod
e"
1730 K=0
1740 FOR J=l TO 2
1750 PRINTS94, " "
1755 IF L+11>EC THEN LM=EC ELSE
LM=L+11
1760 FOR I=L TO LM
1770 IF EVNT(0,I)=0 THEN 1910
1 780 DW*=M I D* < " SUNMONTUEWEDTHUFR
ISAT",EVNT(0, I>*3-2,3)
1790 DC*=CHR*<EVNT(2, I)+64>+RIGH
T* <STR* (EVNT (3, I ) ) , 2)
1800 CX=FIX(EVNT(4, D/10)
1810 CC*=MID*("CLRALLON OFFDIMBR
%CX*3+1,3>
1B20 CB=EVNT<4, I)-CX*10
1830 IF NX=I THEN A*=">" ELSE A*
= II II
1840 PRINT A*;DW*J" " 5 EVNT ( 1 , I > ;
" ";dc*?" ";cc*;
1850 IF CX>3 THEN PRINT CB; " " ;
ELSE PRINT" "5
1860 IF J=l THEN PRINT: GOTO1910
1870 INPUT A*
1880 A*=LEFT*(A*, 1)
1885 IF A*<>"E" THEN 1910
1890 IF A*="D" THEN EVNT(0,I>=0
1900 IF NX>=L AND NX<L+12 THEN P
RINT@32*(NX-L+3> , " ";
1905 NX=l: PRINT@32*(I-L+3> ,">"?
: PR I NT@32* ( I -L+4 ) , " " ;
1910 NEXT I,J,L
1920 FOR 1=1 TO EC:' COMPRESS
1930 IF I=NX THEN NX=I-K
- COMPUTER SHACK-
BALLOON
ATTACK
by Tim Purves
"\-r\ // \^W]i Computer Shack's first color
1 ' ^" * * J M% game is something totally dif-
* ferent from the normal. It is not
__£^v (fl only a great game with plenty of
■— ^^ ■r action and adventure, but within
y^/^^V tne Balloon package, we are
r? s pr. ^ ~v offering you an exceptional
learning tool. The game comes
with a complete commented
printout of the entire source
code. In fact if you buy the disk
version you could load the source
code into the M icro Works Assembler and reassemble portions of
it yourself.
The game is written in the Hi Res P mode 3, contains routines
showing sound, hi res graphics, excellent color, Joy stick
commands, interrupt handling and much more.
Available either on Disk or Tape fortheTRS-80 ColorComputer.
With the commented, machine language, source code you will
have a chance to see, step by step, exactly how the game was
written and executed. Take advantage of this new concept to
improve your prog ramming skills. Forthose just learning machine
language, or even experts who are looking for new and helpful
tips.
The game is about a mad bomber flying in his red balloon,
dropping bombs on unweary pedestrians. You can run and
dodge the bombs, but to no avail he'll eventually get you, its just a
matter of time!!
The game is available from you favorite dealer or directly from
COMPUTER SHACK, 1691 Eason, Pontiac, Michigan 48054,
(313)673-2224.
GAME CASSETTE ONLY $21.95
GAME DISK ONLY $23.95
GAME CASSETTE WITH COMMENTED CODE $31.95
DISK with GAME, SOURCE CODE
& COMMENTED CODE $35.95
DFTII
Now the second version of DFT. New, improved, still the only
terminal program for the color computer that can transfer
machine language programs without any conversion routines.
DFT was made to transfer files between Modei l/lll's Converted
to the color computer, it is the best modem program available for
transfering files. You can transfer a basic Model III program to
the color computer and run it. All tokens are automatically
converted.
new ASCI I transmit and receive mode. Now you can transfer files
and talk to people who don't have DFT.
cm
by Tim Purves
You can finally use your Radio Shack Color Computer disk's in a
Model I, Model III, or even a Model IV system. From Computer
Shack, the development of a fantastic new software break
through has been brought about. CM I (pronounced c3), a simple
software package that makes Color Computer disks compatible
with other TRS-80's. Now you can copy programs and data files
from machine to machine with no messy conversions or trouble-
some retyping.
Much like a VFU utility, simple insert your Color Disk in any 2
drive model I, III, or IV system and select the files you wish to
transfer. It's that easy! And think of the uses. Word Processor
files, Basic programs, Machine language, and much more can be
copied from a Model l/lll disk to or from your Color Computer
disk in a matter of seconds. Ol II, from now on life is gonna be a lot
easier!!! Compatible with most Model l/lll operating systems.
Clll is available now from your favorite dealer or directly from
Computer Shack, 1691 Eason, Pontiac, Ml 48054 (313)673-
8700.
Price is $24.95 for the Model l/lll or 4 disk.
The greatest value in Terminal Programs.
Disk or Tape version.
Now only $25.95
COMPUTER SHACK'S
TOP FIFTEEN
1.FURY
. . . Computer Shack
2. THE KING
Torn Mix
3. COLORPEDE
IntraColor
4. ROBOTTACK
IntraColor
5. ZAXXON
Datasoft
6. DOODLE BDG
Computerware
7. ZAKSUND
Elite Software
8. BLOC HEAD
Computerware
9. TRAPFALL
Tom Mix
10. ASTROBLAST
Mark Data
11. GRAND PRIX
. . . . . Computerware
12. MOON HOPPER. ...
Computerware
13. FROGGER
— Cornsoft Group
14. MS GOBBLER
Spectral
15. BALLOON ATTACK .
. .. Computer Shack
NOTE: Due to the fact we can not obtain tape versions of Zaxxon some of
the members of the panel have not seen it. Lancer and Whirly Bird Run
likewise have not been evaluated by the panel. Even though these products
had been advertised for two for three months they were not available.
COMPUTER SHACK
1691 Eason • Pontiac. Michigan 48054
Info (313) 673-8700 • Orders CALL TOLL FREE (800) 392-8881
;harqeandVISAOK Please adcfS3.00for shipping in the U SA SO OOforCanada cr
7W TOM MIX SOFTWARE
FOR THE COLOR COMPUTER & TOP 100 • 3424 College N.E., Grand Rapids, Ml 49505 <616) 364-4791*
"THE FROG"
(C> 1963
"'ARCADE ACTION"*
This one will give you
Hours of exciting play. . .
Cross the busy highway
to the safety of I he me-
dian and rest awhile
before you set out across
thes swollen river team-
ing with hidden hazards.
Outstanding sound and
graphics.
16K MACHINE LANGUAGE
$27.95 TAPE
$30.95 DISK
THE
KING
1982
32K Machine Language
$26.95 tape
$29.95 disk
ARCADE ACTION - How high can you climb? Four full graphic
screens. Exciting Sound - Realistic graphics. Never before has
the color computer seen a game like this. Early reviews say:
Just like the arcade - Simply outstanding!
"YAAZEE"
(CJ 1983
$19.95
16K MACHINE LANGUAGE
EXT. BASIC
Yaazee is a 2 player game using five dice to get the
best poker hand. After game is ioaded flashing
digit below player number determines which
player rolls dice at the start of the game.
PROTECTORS
? ' \*
SPACE
SHUTTLE
1983
32K Ext. Basic
$26.95
TAPE
ONLY
This program gives you the real
feeling of flight. Full instrumenta-
tion complete to the max. Actual
simulation of space flight. 32K
Ext. Basic
i
0"
"TRAPFALL"
By KEN KALISH
(C) 1983
•"ARCADE ACTION*"
The "Pitfalls" in (his
game are many. Hidden
treasures, jump over the
pits, swing on the vine,
watch out tor alligators,
beware of the scorpion.
Another game for the
Color Computer with the
same high resolution
graphics as "The King."
16K MACHINE LANGUAGE
TAPE $27.95
DISK $30.95
KATERPILLAR
will
So
Exciting fast paced arcade
game that looks and plays like
the popular arcade game
"DEFENDER",
Wave after wave of enemy
fighters drop bombs on your
city. Destroy them before they
destroy your city. Soon the
mother amps appear firing laser blasts at you. Watch for the
heat seeking mines.
$24.95 TAPE $27.95 DISK 32K MACHINE CODE
COLOR GOLF
Now sit at your computer and play
nine or eighteen holes. Outstanding
graphics in the fairway or on the
ireen. Helps your game.
2K EXTENDED BASIC $1 7.95
ADD $1.00 POSTAGE & HANDLING
MICHIGAN RESIDENTS ADO 4% SALES TAX
ATTACK
Outstanding graphics and sound
end all of those trips to the arcade,
much like the arcade you have to see it
to believe it. Requires Ext. Basic.
16K MACHINE LANGUAGE $21.95
DISK $24.95
OTHER GREAT GAMES
ALL PROGRAMS REQUIRE 16K
BIRD ATTACK-A fast paced machine language arcade game.
Shoot the birdmen before they descend upon you. Watch out
for their bombs ! 16K Machine Language $21 .95
MAZE RACE- Maze race is a one or two player game. Play either
against the built in timer or against your favorite opponent. 16K
Machine Code $17.95
SOLO POOL-Now play pool with your color computer. Two
players. Plays like machine language. Super color. High resolu-
tion graphics. 16K Ext. Basic $17.95
ADVENTURES
TREK-16-Travel thru space with Spock and Capt, Kirk. Adven-
ture. Tough! Ext. Basic. $17.95
SHIPWHECK-Escape from a desert isle If you can Great
Adventure! Ext. Basic. $14 95
ESCAPE FROM SPECTRE (Graphic AdventureJ-You are" a
secret agent for British Intelligence sent on a mission to obtain
the secret nerve gas formula being developed by S P E C T R E
to destroy the world. 1fiK Ext. Basic $17.95
Call our BBS Number 616*3644217 24 Hours a Day
TOP ROYALTIES PAID
LOOKING FOR NEW SOFTWARE
TOM MIX SOFTWARE
•FOR THE COLOR COMPUTER & TDP 100 • 3424 College N.E., Grand Rapids, Ml 49505 (616) 364-4781*
UTILITIES
COLOR MONITOR-Written in position independent code. (May
be located In any free memory). Very compact. Only occupies
1174 bytes of memory. Full Featured. Includes Break-Pointing
of machine language programs, register display and modify,
memory display and modify, and block memory move com-
mands. Displays memory in hex and ascii format on One line 8
bytes long. MACHINE LANGUAGE $24.95
ROM-This program Is a utility that will move "most" 8K Rom-
Packs to disk and allow you to run them from disk. Easy to use.
Requires 64K. $17.95
SCREEN PRINT ROUTINE-Using your Epson or Mlcroline
Printer. Print the screen contents on a full size SV2 x 11 sheet.
16K Ext. Basic 517.95
TAPE DUPE Now — an all new Tape Backup Program. Even
copies those hard to copy Auto-Execute Programs. Protect
your software by making a backup copy. Probably the finest
tape copier program ever. 16K Manning Language- TAPE $21 .95
DISK $25.95
DISK TO TAPE-, Dump the contents of most disk, to tape
automatically. Machine Language. $17.96
TAPE TO DISK - Load the contents of most tapes to disk
automatically. Machine Language. $17.95
MAIL LIST-Maintain a complete mailing
numbers etc. Ext. Basic. DISK BASED
list
with phone
$17.95
THE FIXER-Having trouble moving those 600 Hex progams to
disk? The fixer will help. Completely automatic. $17.95
TAPE CAT-AII new machine language program lists contents of
tapes to printer. Make a catalog of your tapes. $17.95
PROGRAM PRINTER UTILITY -This program will list basic pro-
grams to your printer in two column format. Saves paper and
makes your listing look professional. Disk based. $17.95
EDUCATIONAL SOFTWARE For The Color Computer and TDP 100
STORY PROBLEMS Is a program that is designed to give practice in
solving STORY PROBLEMS (sometimes called STATEMENT, THOUGHT
or WORD PROBLEMS} on the COLOR COMPUTER. It Is suitable for use
In either a home or school environment, It Is also a tool that will allow
you to create new story problems to suit your children's needs and abili-
ty levels. It has many features that make It particularly attractive: Story
problems Involving addition, subtraction, multiplication, division or a
combination of the four are presented to the student by slowly scrolling
each letter of each problem onto the screen. Up to S students may use
the program at the same time. There are 4. user modlf 1 ahaie. skill levels.
16K Ext. Basic TAPE $19,9$
CLOCK-Wlth the ever increasing use of digital clocks more and more
young people are unpr act iced in the use of the "ANALOG" clocks. You
remember those, the ones with the hands. This program will attempt to
teach the relationship between the two types 01 clocks.
REQUIRES 18K EXT. BASIC $14,96
SPELLING TEST is designed to give a standard oral spelling test using
the audio track of the computer's tape recorder to dictate test words and
sample sentences. Student responses are typed on the Keyboard and
checked by the computer, Results are displayed on the screen and (if
connected) on a printer. REQUIRES 1SK EXT. BASIC 110,95
MATH DRILL is a program designed to help children to practice addi-
tion, subtraction, multiplication, and division skills on the COLOR COM-
putfr It has several features that make Its use particularly attractive.
• Up to 6 students may use the program at the same time.
•Answers for addition, subtraction and multiplication ere entered
from right to left, just as they are written ort paper.
•Commas may be included in the answers.
•Partial products for the multiplication problems may be com-
puted on the screen.
•Division answers that have a remainder are entered as e whole
number followed by the letter "R" and the remainder.
•There am ten, user modifiable, skill levels.
•A "SMILEY FACE" is used for motivation anrt reward. Its size in-
creases relative to the skill level.
•Skin levels automatically adjust to the student's ability.
â– A timer measures the time used to answer each problem and the
total time used lor a series of problems,
•After a problem has been answered incorrectly the correct answer
appears under (above in division) the incorrect answer.
REQUIRES 1SK EXT BASIC 919.95
WORD DRILL is designed to give a multiple choice vocabulary quiz.
Words and definitions are entered into the program from the keyboard or
Irom a tape file, The computer displays a randomly chosen definition
and eight word choices. The student must enter his response before a
built in timer reaches zero.
REQUIRES 16K EXT. BASIC S19.95
SEARCH -A- WORD This Program generates a word search puzzle to your
specifications. You specify the size of the puzzle and (he number ol
words that il is to hide within the puzzle. 16K or 32K Ext. Basic.
TAPE (17.95 FLEX VERSION $27.95
EDUCAflC-NAL PACkAQE - SPELLING TEST -
WORD DRILL - MATH DRILL - ESTIMATE -
ALL FOR - W9.95
ESTIMATE is a program designed to help children to practice estimating
the answers to addition, subtraction, multiplication and division
problems on the COLOR COMPUTER. It haB many features that make Its
use particularly attractive:
•Up to 5 students may use the program at the same time.
•There are S, user modifiable, skill levels.
• The acceptable percent error may be changed as a student's skill
Improves.
•A timer measures the number of seconds used to answer each
problem and the total time used for a series of problems.
•If a problem has been answered incorrectly, the student is told the
fiercent error and asked to try again.
F a problem is answered incorrectly a second time, the student is
told the correct answer and the range of acceptable answers is
displayed.
•A report is given at the end of each set of problems that includes the
number of problems done, the number of problems answered cor-
rectly ort the first try and the average percent error.
•The (BREAK) key has been disabled so that a child will not in-
advertently stop the program Irom running.
16K EXT. BASIC $19.95
TEACHERS' DATABASE is a program designed to allow a teacher to
keep a computerized file ol information about his/her students. There
are many features that make this program particularly attractive
• Information on as many as 100 students {or more) may be in the
computer at one time.
• Each student may have as many as 20 (or more) individual
items of data in his/her record.
• The program will run from cassette or disk.
• Cassette and disk files are completely compatable.
• The program is menu driven,
• Records may be easily changed, deleted, combined or
added.
• Information about students may be numerical or text.
• Records may be quickly alphabetized.
• Records may be sorted by various criteria.
• Records may be reordered (ranked) based on test scores or
other data.
• Data displayed during a sort may be printed on a printer or
saved on disk or cassette as a new file.
• A full statistical analysis 01 data may be done and sent to the
printer.
• Student test scores may be weighted. 32K EXT BASIC TAPE $39.95
VISA
imm \mtt*a)
DISC $42 93
Call out BBS Number 616-364-8217 24 Hours a Day
• ADO $1.00 POSTAGE & HANDLING • TOP ROYALTIES PAID •
MICHIGAN RESIDENTS ADD 4% SALES TAX • LOOKING FOR NEW SOFTWARE
FOR J=0 TO 5
EVNT < J , I-K) =EVNT < J, I )
NEXT J
IF EVNT<0, I>=0 THEN K=K+1
NEXT I
EC=EC-K
BOTO 520
'LOAD FROM DEVICE
CLS 1 : PR I NT " < LOAD SCHEDULE > "
INPUT "FILE NAME"?FLNM*
IF FLNM*= "" THEN 530 ELSE
OPEN"I" s DV,FLNM*
input#dv,ec,dn:' read hdr
FOR 1=1 TO DN
INPUT#DV, ADN < I ) , AD* ( I >
NEXT I
FOR 1=1 TO EC
FOR J=0 TO 5
I NPUT#DV , EVNT < J , I )
NEXT J, I
CLOSE DV: PRINT FLNM*S
LOA
FOR I=1TO300:NEXTI:GOTO 520
* SAVE SCHEDULE TO DV
CLS 1 : PR I NT "< SAVE SCHEDULE >"
INPUT "FILE NAME"JFLNM*
IF FLNM*="" THEN 530 ELSE O
PEN"0",DV,FLNM*
2190 PRINT#DV,EC,DN:' SAVE HDR
2200 FOR 1=1 TO DN
2210 PRINT#DV, ADN<I),AD*(I>
2220 NEXT I
2230 FOR 1=1 TO EC
2240 FOR J=0 TO 5
2250 PR I NT#D V , EVNT ( J , I >
2260 NEXT J, I
CLOSE DV: PRINT FLNM*J " SAV
GOTO 2140
'HELP
CLS 1
PR I NT "< COMMAND LIST>"
2270
ED"
2280
2290
2300
2310
2320 PRINT" I
and"
2330 PR I NT "D
2340 PR I NT "L
from disk"
2350 PR I NT "S
disk"
PRINT"H
PRINT"C
PRINT"V
PRINT"®
insert event comm
detail events"
load new schedule
save schedule to
help"
clock; set time"
view next day"
do a direct comma
PRINT"BRK exit to BASIC"
SOUND 240,2:GOTO920
CLS i:end
*e direct command
CLS 1
PR I NT "< DIRECT COMMAND >"
92
the RAINBOW August 1983
2460 GOSUB 2780
2470 HC=BTAB(HC>*16
2480 X=USR3 (768-HHC+BTAB <UN> )
2490 IF CB=0 THEN RP=3 ELSE RP=2
•JfrCB-f* i
2500 FOR 1=1 TO 100: NEXT I
2510 X=USR3(&H4000+RP*256+HC+CX>
2520 SOTO 520
2530 CLS l: PR I NT "< SET CLOCK >"
2540 GOSUB 2580
2550 X=USR0<DAY-1>
2560 X=USR1 <HR*256+MIN>
2570 GOTO 920
2580 'GET DAY AND TIME
2590 INPUT "DAY OF THE WEEK"; A*
2600 IF LEN(A*><2 THEN 2620
26 1 DAY- ( I NSTR U , " SUMOTUWETHFRS
AAL" , LEFT* ( A*, 2> ) +1 ) /2
2620 IF DAY<1 THEN PR I NT "ENTER S
UN, MON. . . OR ' ALL' " : GOTO 2590
2630 INPUT"24 HR TIME (HH:MM>";H
R,MIN
2640 IF HR>23 OR MIN>59 THEN2630
2650 RETURN
2660 'DRAW LINE TO RIGHT MARGIN
2690 TH=FIX(EVNT(1,I)/100>
2700 IF<EVNT<1, I>-TH*100> >30 THE
N TM=1 ELSE TM=0
2710 TA=HUE(FIX(LC/10))
2720 Y=DI*2+5
2730 IF TA=0 THEN 2760
2740 FOR X=TH*2+16+TM TO 63: SET (
x,y,ta):next x
2750 RETURN
2760 FOR X=TH*2+16+TM TO 63:RESE
T(X,Y):NEXT X
2770 RETURN
2780 'GET DATA FOR A BSR COMMAND
2790 INPUT"HOUSE & UNIT" 5 B*
2800 IF B*="" THEN 2790
2810 HC=ASC(B*>-64
2820 UN=VAL(MID*(B*,2> >
2830 IF HC>0 AND HC<17 AND UN>0
AND UN<17 THEN 2850
2840 PR I NT "ENTER AS: C12 (HOUSE
C, UNIT 12>": GOTO 2790
2850 INPUT "ACT I ON "j A*
2860 IF A*="" THEN RETURN
2870 C X = I NSTR < 1 , " CLALONOFD I BR " , L
EFT* (A*, 2) )
2880 IF CX=0 THEN PRINT"CLR, ALL,
ON, OFF, DIM. BR?": GOTO 2850
2890 CX=(CX-l>/2
2900 CB=0: IF CX>3 THEN CB=VAL(R
IGHT*<A*,1> )
2910 RETURN
2915 PCLEAR l: CLEAR 200,&H3D00
2920 IF PEEK(&HC000><>68 THEN 11
ELSE FILES 1 : GOTO 100
Listing 2:
10 'BSR M/L BUILDER
20 CLEAR 100,8eH3D00:* FOR 16K
30 ML=PEEK ( 39 ) *256+PEEK < 40 > + 1
40 FOR I=ML TO ML+564
50 READ A: POKE I, A: NEXT I
60 SAVEM "XI 0CLK " , ML , ML+564 , &HA02
7
70 END
200 DATA 22,0,145,22,0,159,22,1,
9,22, 1, 178,79, 106, 141
210 DATA 0,32,46,100,48,141,0,26
, 134, 120, 167, 132, 166, 130,45
220 DATA 88,139,1,25,167,132,161
, 6, 45, 28, 1 1 1 , 132, 32, 239, 255
230 DATA 255,255,255,255,0,0,7,3
6, 96, 96, 0, 255, 0, 255,
240 DATA 106,140,242,141,203,110
, 156,243,230,140,230,88,88,48,14
1
250 DATA 0,43,58,198,4,206,4,20,
189, 165, 154,48, 140,213, 141
260 DATA 10,134,58,167,192,141,4
, 134,58, 167, 192, 166, 132,68,68
270 DATA 68,68,138,48,167,192,16
6, 128, 132, 15, 138, 48, 167, 192,57
280 DATA 19,21,14,32,13,15,14,32
,20,21,5,32,23,5,4
290 DATA 32,20,8,18,32,6,18,9,32
,19,1,20,32,189,179
300 DATA 237,77,45,3,231,140,144
,79,230, 140, 140, 189, 180,244,57
310 DATA 140,32,55,190,255,248,2
38, 1 , 239, 140, 135, 51 , 140, 137, 239
320 DATA 1,52,2,182,255,3,138,1,
183, 255, 3, 206, 1 , 106, 166
330 DATA 196,174,65,167,141,255,
111, 175,141,255,108,134,126,48,1
41
340 DATA 0,148,167,196,175,65,13
4, 18, 167, 140,200,53,2, 189, 179
350 DATA 237,77,45,22,52,4,141,2
6,231, 141,255,65,53,2, 141
360 DATA 18,231,141,255,58,111,1
41 , 255, 55, 28, 239, 236, 141 , 255, 47
370 DATA 1B9, 180,244,57,95, 140,2
03, 16, 128, 10,44,250, 139, 10,52
380 DATA 2,234,224,57,189,179,23
7,52,4,141,234,231, 141,0,60
390 DATA 53,2,141,226,231,141,0,
53, 26, 16, 182, 255, 32, 133, 1
400 DATA 38,249,142,7,208,48,31,
August 1963 the RAINBOW 93
39, 44, 182, 255, 32, 133, i , 39
410 DATA 245,23,254,205,236,141,
254, 235, 16, 163, 141,0,17, 39, 17
420 DATA 173,159,160,0,39,215,31
,137,79,189,180,244,28,239,57
430 DATA 0,255,79,95,189,180,244
, 57, 204, 255, 255, 189, 180, 244, 57
440 DATA 50,98,23,254,204,15,112
,13,111,16, 38, 0, 70, 52, 20
450 DATA 174,141,254,188,191,1,1
3, 134, 239, 167, 159,0, 136, 182, 255
460 DATA 32,133,1,38,249,142,7,2
08, 49, 31 , 39, 31 , 182, 255, 32
470 DATA 133,1,39,245,23,254,112
, 173, 159, 160,0,39,226, 198,96
480 DATA 231,159,0,136,48,141,25
4,144,191,1,13,53,148,48,141
490 DATA 254,135,191,1,13,126,16
1,179,126,161,127
500 DATA 189,179,237,237,141,0,1
13, 132,63, 167, 141,0, 106, 141,57
510 DATA 141,55,141,53,141,46,16
6,141,0,96,142,0,8,141,19
520 DATA 166,141,0,86,73,142,0,1
,141,9,106,141,0,75,38
530 DATA 223,57,0,252,73,37,6,14
1,13,141,16,32,4,141,12
540 DATA 141,5,48,31,38,239,57,4
9, 140, 233, 32, 3, 49, 140, 229
550 DATA 52,18,182,255,32,133,1,
39, 249, 134, 52, 74, 38, 253, 198
560 DATA 3,166,164,183,255,32,13
4, 178, 74, 38, 253, 127, 255, 32, 28
570 DATA 0,90,39,8,134,248,18,74
, 38, 252, 32, 230, 53, 146
Software Review
Kodomo-No-Go And Tic-Tac-Toe
Two Fun Programs In A Row
Hello all you Tic-Tac-Toe fans out there. If you love
Tic-Tac-Toe, here's the ultimate program for you. Its name
is Kodomo- No-Go, a Japanese version with a 19 x 19 grid.
The object is to put five of your markers in a row vertically,
horizontally or diagonally. The grid is selected by lettered
rows and columns. There are two different ways to play—
with a friend or against the computer. When you play with a
friend, the only thing the computer does is check the moves
to make sure they are on the board. Playing against the
computer, you'll find there are six different skill levels. It
takes the computer about one minute to make its decision
where to move. So don't get restless if you have to wait a
while. The instructions tell you to POKE65495 1 to speed up
the game. It was still slow even on Level I .
If you don't want to get too complicated with Kodomo-
No-Go, there's still good old 77c- Tac- Toe. You get the usual
3x3 playing grid and two skill levels. This program also uses
letters to show the location of the move. It doesn't take as
long to move in 77c- Tac- Toe. You can't beat the computer in
the expert level. There is also a two player version where the
computer just checks moves.
The only thing I can say is have fun and don 't get discour-
aged. The one problem I had with the game is the length of
time it took the computer to move. The graphics use only
three colors. I would recommend these games to anyone
who enjoys playing Tic-Tac-Toe.
(Intercept Enterprises, P.O. Box 4016, Cherry Hill, NJ
08034, 16K tape, $14.95, 32K tape, $19.95)
—Pat Downard
/S^
AC I UAL REPRODUCTION
OF CHART
IBM 33 .TT5
10-^15 10/29
LS FREQ COrOP-g.03 11 DAY
11/12
BETTER THAN HIGHER COST
PACKAGES RUNNING ON
"BIGGER" MACHINES
• Stocks, Options and Commodities
• Dow Jones and CompuServe input
• Optional unattended run mode
GAIN AN UNFAIR ADVANTAGE!
WITH INVESTOGRAPH
ON YOUR TRS-80 COLOR COMPUTER
TRS-80* Tandy Corp.
Requires 32 K, Ext. Basic,
IN DEPTH, TIMELY INVESTMENT
ANALYSIS WITH LESS WORK
Gain the advantage of using the power of the
Color Computer to make more money in
the market. The easy-to-use, menu driven
INVESTOGRAPH software package provides:
$ Automatic data entry by the highly rated
COLORCOM/E.
$ Screen and hard copy graphs with prices,
volumes, moving averages, cycle compo-
nents, momentum, OBV, security compari-
sons, channels, and several other exclu-
sive oscillators.
$ Complete data maintenance utilities.
$ Optional unattended run mode - have dinner
while COCO works for you!
1 or 2 disks, Printer
YES! I want an UNFAIR ADVANTAGE.
Send INVESTOGRAPH rush at the INTRODUC-
TORY PRICE of U.S. $245.00 (plus 5% in
Texas). Includes full set of data and program
diskettes with complete, easy-to-use
documentation, 1 year warranty.
Name
Address
C i ty State /Zip
U Check U Money Order DVisa â–¡ Mastercard
Card No. Expires
Signature ___
Order by phone, call (512)778-5260
Dealer Inquiries Welcome
â– liberty Hill Joftuiorc
■P.O. Box 306 • Liberty Hill, Texas 78642 -
94
the RAINBOW
August 1983
^X^ DSL COMPUTER PRODUCTS
J^^] P.O.BOX 1113 • DEARBORN, Ml 48121 • (313)582-8930
Michigan Residents Add 4% Sales Tax to Order
Please include $ I OO for S & H
VISA & MASTERCARDS ACCEPTED
Electronic Calligrapher - The Hit of Rainbowfest.
Old English or Chancery Cursive
type font. Works with LP VIII or EQUIV.
^v|J Version for Gemini 10 or 15
Y*W» Version for Epson w/Graftrax
BOTH TYPE FONTS $18.95 DISK ONLY!
THE GENERAL
THE General Ledger program for the color computer.
32K required. 100 accounts, over 500 transactions.
Tape Based $39.95
— ARCADE FUN —
Packmaze ML 16K $16.95
Bug Chase Ext 32K $15.55
One or two player or robot bug against turtle.
Donkey King 32K $24.95
Moon Lander 16K $15.95
Dancin' Devil 16K $14.95
War Kings 16K $19.95
Spider 16K $19.95
Cave Hunter 16K $24.95
Haywire 16K $24.95
Astro Blast 16K $24.95
Colorpede 16K ML T.
Rotoattack 16K ML T.
— EDUCATIONAL —
Speller 16K
Geo-Studies 1 6K
USA, Canada, Europe, Aust.
Word Drill 16K
Math Drill 1 6K
— ADVENTURES —
Calixto Island 16K ML
Black Sanctum 16K ML
— HARDWARE —
Grand Slam Solderless Kit $75.00
For E or F Board and 1 . 1 ROM
Please include $1 0.00 REFUNDABLE
tool deposit with order
For All Boards
RAM Slam Solderless Kit
16-32K $49.95
1 5-minute installation
ONE YEAR WARRANTY
— UTILITIES —
Copy Cat 16K ML
Color DFT 16K ML T.
$29.95 d.
$24.95
— LITERATURE —
Assembly Language Graphics $14.95
TRS-80 Color Computer Graphics $1 4.95
$16.95
$ 9.95
$19.95
$19.95
$19.95
$19.95
$19.95
$19.95
$29.95
RS 232 SWITCHER
Stop Straining Those Connectors.
Stop Listening to the Modem.
Stop Trying to Log on the Printer.
Fast, Fast, Relief the RS 232 Switcher.
2 way $29.95 3 way $39.95
FOR THE
COLOR COMPUTER AND TDP SYSTEM lOO
Software Review
Programs Speak For Themselves
With El Cheapo A/D Converter
No, I'm not kidding. El Cheapo A/ D Converter really is
the name of the software. Most of you know what "El
Cheapo" means. "El Cheapo" is pseudo Spanish for "inex-
pensive." My wife says that she understands pseudo Spanish
just fine but that "A/D Converter" is Greek to her.
Translation: A/D Converter is short for Analog to Dig-
ital Converter. An Analog to Digital converter is something
that takes continuously variable signals and converts the
signals into a stream of binary numbers. Ouch! 1 just got
"elbowed" in the side. She says that my "translation" has not
lifted any lingual barriers. Okay. Put simply, an A/D con-
verter gives your computer a set of ears so that it can listen to
the real world outside. An A/D converter can take your
voice th rough a microphone and deliver it to your computer
in a form that the computer will accept. An A/ D converter
can also be used to sense the position of a joystick and
translate that sense of position into the numerical terms that
your computer requires. It is for this purpose that the Color
Computer has an A/D converter built in.
El Cheapo is a machine language program which allows
the CoCo's built in A/D converters to run at high speed.
High speed is necessary to record fast moving wave forms
like your voice. Instructions are given on modifying one of
your joysticks to accept voice input from your tape recorder.
Once the computer has received the voice (digitized the
voice), it is possible for you to rearrange or alter the pat-
terns. You can save the patterns as complete words or cut
them up into individual phonemes. The computer could
then reconnect the saved words or phonemes to produce
artificial speech.
The instructions for El Cheapo arc complete; however, I
recommend that you have some experience with soldering
before you attempt to modify your joystick. If everything is
done right, the performance of your joystick will not be
adversely affected.
It's available for 16 or 32K.
(Zeta Software, P.O. Box 3522, Greenville. SC 29608-3522,
$14.95)
—Dr. Laurence D. Preble
Hint .
Slow Scrolling
Through Orange
Here's a powerful little POKE that will slow your scrol-
ling by creating a horizontal LIST. Type POKE 359,60 and
you'll see what we mean. Add a colon (:) and SCREEN A
and you'll be slow-scrolling across an orange screen. To
return to the green screen at full tilt, just type POKE
359,126.
TRS-80* COLOR COMPUTER*
-16K Extended Basic, Menu-Driven, Well-Documented, Easily-Modified
-For either cassette or diskette systems (Be sure to specify).
-Place an order of at least $40 and get one extra of your choice free.
-Orders shipped on cassette - Add $5 for shipment on diskette.
-FURST- «*!™?"
Data Element Dictionary driven File Update and
Retrieval SysTem. Create and maintain files according
to your specifications. Ideas for applications in-
cluded $25
/^
RAINBOW
-MAILING LABELS-
Generate and maintain mailing label records. Selective-
ly print desired quantities. Can keep several label files if
desired. Designed for Printer VII, easily modified. $20
/0^
-REPORT WRITER- =
Used in conjunction with FURST to selectively format
reports on your printer. Includes headings and total
capabilities $-15
/5^
RAINBOW
-EXERCISE PLANNER-
Build and maintain complete exercise schedule for
regular and/or weight programs. Display guides you
through daily-calculated routines Print complete
schedule if desired $15
-DISK DIRECTORY PRINT- ™2°*
For diskette users only. Get hard copy of disk directories on your printer for easy use and reference. Only $5
Send check or money order to:
LAND SYSTEMS
P.O. Box 232
Bellbrook, Ohio 45305
•TRS-80 and COLOR COMPUTER
are Trademarks of Tandy Corp.
96
the RAINBOW August 1983
CoCo
3/vaXthouse.
NOW THE BEST IS
EVEN BETTER!
MASTER CONTROL II
from Soft Sector Marketing
The best doesn't always cost more and
MASTER CONTROL is a good example. What
would you be willing to pay for a program that
would cut your typing time by more than 50%
and eliminate hours of debugging because
you misspelled a command word? For exam pie
the command STRINGS (requires nine strokes,
with MASTER CONTROL II you only require
two strokes. Just hit the down arrow key twice
and it's done, and no mistakes. That is just one
of the 50 pre-programmed commands avail-
able to you. If that isn't enough you also have
the ability tocustomize your own key toenter a
statement or command, correctly, automatically
every time. But thats not all, how about auto-
matic line numbering. Just enter the starting
number and the increment you want and
MASTER CONTROL II will do it for you. You
also have direct control ot MOTOR, AUDIO
and TRACE plus a direct RUN key. Sounds
great? Well thousand of color computer owners
have been enjoying these features for years.
But now the new MASTER CONTROL II also
has the following features:
* New plastic overlay that can be removed
when you are not using MASTER
CONTROL II.
* New documentation, to help you get the
most from the program.
* New repeating keyboard.
* New-now loads to disk with appropriate
disk commands.
List price $19.95
Introductory price
%A -1 88
Plus $2.50 Shipping & Handling
SAVE A BUCK...Order the NANQS Color
Basic and Extend pocket card with your
MAS TER CONTROL II and you get this $4.95
value for only $3.95 extra. (NANOS pocket
card not sold separately.)
166
RAGES
only
$14.95
plus S2.50
shipping
FOR THE
COLOR
COMPUTER.
A MUST BOOK
for the
Colpr
computer
owner!
*
Schematics
*
Spec
Sheets
ORDER YOUR COPY TODAY!
The first document to provide information that will
allow the user to take advantage of all the features of
the Color Computer. Aimed at the machine language
user.
The FACTS attempts to explain, and describes in
detail, hovy the user can make use of the computers
internal features. Divided into two sections: Hardware
and software; the primary emphasis is on hardware
capabilities and circuits. Provides detailed explan-
ations of all the Internal large scale integrated
circuits.
SPECIALS
DONKEY KING
by Tom Mix Software
Exciting sound-Realistic graphics. Never
before have you seen a game like this for your
CoCo. Four graphic screens just like the
actual arcade games.
Requires 32K TAPE...S19.95
IF YOU DON'T HAVE 32KORDERTHE RAM
SLAM. THIS SIMPLE KIT TO UPGRADE
YOURCOCQ TAKES LESSTHAN 30 MINUTES
TO INSTALL. NO SOLDERING REQUIRED...
only $49.95
KEYS of the
WIZARD
By Spectral Associates
Keys of the Wizard is a fast-
action, Machine language ad-
venture game filled with tricks,
traps, treasures and creatures
all of which are randomized at
the beginning of each adven-
ture so that no adventure will
ever be exactly the same. Three
different skill levels to choose
from. Cassette only.
Reg. $19.95 $16.95
MAGIC BOX
By Spectral Associates
Magic Box is a special pur-
pose utility designed to load
TRS-80 Model 1 and III 50
Baud Basic programs into the
Color Computer. Makes avail-
able a wide selection of soft-
ware. Magic Box DOES NOT
convert Machine language pro-
grams. Requires 16K Extended
BASIC.
Reg. $24.95 $21.95
DOODLE DUG
by Computerware
You must hustle your lady bug through an
intricate maze of barriers and turnstiles, while
trying to earn poi nts by eating all the dots, letters
and hearts. Enemy bugs buzz after you and
you must avoid the skulls! Exquisite sound
adds to the excitement. A must game for any-
one who enjoys fun and a challenge.
Coss»tt«...$21.21
AffiSADD]
WRITE FOR OUR CATALOG
SEND ORDERS TO
500 N. Obbson • Westiand. Ml 48185
Phone (313) 722-7957
KATERPILLAR ATTACK by Tom Mix Soft
ware. Katerpillar is a fast- paced arcade game.
Machine language. Requires joysticks.
Cassette only .". $24.95
GHOST GOBBLER by Spectral Associates
This is an excellent version of the popular
arcade game of PAC-MAN. You control
maze with the right joystick Requires Ex-
tended BASIC.
Cassette only $21.95
WAR KINGS by Tom Mix Software
Shield your castle from cannonball attacks
and deflect them towards your opponent's
castle. Machine language, Ext BASIC. Re-
quires joysticks.
Cassette only $19.95
HAYWIRE by Mark Data
Have fun zapping robots with fast paced
action combined with dynamite sound effects
and super Hi- Res graphics. For one or two
players.
Cassette only $24.95
GALAX ATTAX by Spectral Associates
Under a constant barrage of enemy fire you
protect your ground base by shooting alien
fighters. Use the right joystick to control the
motion of your ship and right fire button to
fire.
Cassette only $21.95
BATTLEFLEET by Spectral Associates
This grown-up version of Battleship is the
toughest thinking game available. There is
no luck involved as you seek out the com-
puters hidden fleet
Cassette only $14.95
CAVE HUNTER by Mark Data Products
Fast- paced action for the Color Computer.
Super Hi- Res graphics, dynamite sound ef-
fects. This game will astonish you with its
detail and quality.
Cassette only $24.95
SPACE TRADERS by Spectral Associates
Space Traders is a fast moving galactic trading
game for the Color Computer. Requires Ext,
BASIC.
Cassette only $14.95
TYPING TUTOR
This personal typing teacher allows you to
learn at your own pace whether a beginner or
just a little rusty. 16K
Cassette...J19.95
HOW TO ORDER BY MAIL: For prompt and courteous shipment, SEND MONEY ORDER, CERTIFIED CHECK,
CASHIERS CHECK, MASTERCARD/VISA (include card number, inter-bank No, expiration date and signature)
PERSONAL AND BUSINESS CHECKS MUST CLEAR OUR BANK BEFORE PROCESSING. Shipping and packaging
charge of $2.50 minimum must be added to all orders in continental U.S. (Canadian order $5,0Q minimum) Michigan
residents include 4% sales tan 10% deposit required on COD. orders.
1
Give us your best: Join the rank3 of these courageous CoCoists in showing the Color Computer world
your high score at your favorite micro-diversion. We want to put your best effort on record in the Rainbow's
Scoreboard column. All entries must be received by the first of the month to be eligible for the following
month s Scoreboard.
* New Number One fa Last Month . s Numbw 0ne
SCORE PLAYER
ALCATRAZ II
8,710 it Kami Dinda, Kingston. Ontario
ASTRO BLAST
158,000 fa I srry Pla<ton. Medley, Alberta
98,000 Tim Warr, Ballingham, WA
92,000 Horry Sawyer. Walthung, NJ
92.000 Roland Hendel. Missiaaaug&. Ontario
82,925 Greg Lesher, North Chili, NY
61.050 John Osborne, Kincardine, Ontario
48,550 Jimmy McDonald, Summerville. SC
ASTEROID
2,322 it Mall McMann, New Boston, Ml
AVENGER
19.220 it Vince Lok, Mississauga, Ontario
14,075 fa Stephen Lai. Palatine. IL
11,560 Peter Nlessen, Carlisle, MA
8,305 Jimmy McDonald, Summerville, SC
5,345 Craig Schubert. Newfoundland NJ
BLEEP
ins it Melt McMann, New Boston Ml
BLOC HEAD
40.250 it Ed Botlini, St. Louis, MO
19.300 ji m Ganninger, Das Peres. MO
17,400 Brad llowit. Orlando, l-L
BUSTOUT
42.100 W Derrick Kardoa, Colonia. NJ
34.700 fa Sara Hennessey, Rnlden Valley, MN
28.720 Perry Denton. New Baden, IL
25,510 Andy Klingler. San Diego. CA
17.170 Neil Berk man, Da Witt. NY
9,010 Tim W«pr, Bellingham. WA
6,560 Rich VanManen, Grand Rapids Ml
CANTON CLIMBER
95,600 it Kvle Keller. Overland Park, KS
84,500 JO MacDonald, Chariottetown, P.E.I..
Canada
69.900 Todd Byington. N Salt Lake, UT
50,800 Merc Hassle r
40,500 Danny. R. Woodfln, Wllliamstown, WV
CATCH 'EM
237.000 * Craio Edelheit, W. Bloomtield, Ml
91.000 fa Dean Bouchard, Kingston. Nova
Scotia
55,766 Laura Sandman. Louisville. KY
CATERPILLAR
63.100 it Todd Byington. N. Sail Lake, UT
30,029 fa Run Rhead. Willowdaie. Ontario
CAVE HUNTER
42.6UU ir Gary Ritchie. Bellevue, Alberta
25.300 Mika Hughey. Kino George, va
31,160 Jim Baker, Florissant, MO
71,050 Brian Wallinsford, Fall River. MA
CLOWNS & BALLOONS
65,050 fa Brian Gould, Basking Ridge, NJ
64.130 Doug Schofield, Plain Field, IL
82. I00 Greg Lasher. North Chili, NY
61.700 Dan Dowling, San Bruno. CA
46,930 Stephen Sriolts, Blacksburg, VA
42.0BO Kyln Keller. Overland Park, KS
28, 200 Neil Berkman, OeWitt. NY
COLOR HAYWI RE
22.050 ^ Jim Baker. Florissant, MO
17.850 Brian Wallinglord. Fall River, MA
14.650 fa Todd C. Hausehiidt, Red Wing, MN
54,350 Mike Hughey. King George, VA
12,600 Tim Warr. Bellingham. WA
11,050 Roland Hendel, Mississauga, Ontario
8.410 Justin Marcus
8.100 Mail Berkman, DeWitl. NY
7.650 Scott Snyder, Allenlown, PA
7,000 Ron Rhead, Willowdaie, Ontario
6. SCO Jason Margolis, Flushlnq NY
COLOR INVADERS
240,700 it Roland Mendel, Mississauga. Ontario
22?,OSn John Osborne, Kincardine. Ontario
'66.425 15- Jim Baker, Florissant. MO
126,360 Perry Denton, New Baden, IL
101,240 Larry Plaxlon, Medley, Alberta
SCORE PLAYER
COLOR METER0IOS
1,496,000 it Craig Edelheil. W. Bloomtield. Ml
1,253,200 JeFF White, Prairie du Chien. Wl
292,000 Roland Hendel, Mi&&i83&uga, Ontario
292.000 VinCe Lok, Mississauga, Ontario
£52,050 T^r Larry Planlon, Medlsy. Ontaiiu
68,600 Kyle Keller, Overland Park. KS
COLOHPEDE
2.745,982 it Roland Hendel. Mississauga. Ontario
2.139.248 fa uike Hal1 . Hartland, Wl
?.n05.227 Jennifer Maxey, Kalamazoo, Ml
1.723,937 Roger Lamo, St Petersburg. FL
1,424,653 John Oa borne. Kincardine, Ontario
1.056.581 Keith Seifried, Greenville, OH
1,027, 190 Robert Demon, New Baden, il
434,201 Pat Petkash. Warren, Ml
114.959 Ron Rhead, Willowdaie, Ontario
COLOR SCARFM AN
970,520 -ft Bruce Thornhill. Barrhead, Alberta
772,000 Keith Seifried, Greenville. OH
600,410 Roland Hendel, Mississauga, Ontario
539,100 Lany Plaitoti. Medley. Aiberta
523,340 Fred K, Herrman. Flemington, NJ
COLOR ZAP
227.330 "W Hon Rhead. Willowdaie. Ontario
50.800 Scott Sehlhorst, Columbia, SC
COLOUR PAC ATTACK
472,465 fa Jim Baker, Florissant. MO
211,000 Roland Hendel, Mississauga, Ontario
193,000 Cameron Amick, Reisterstown, MD
154,600 Greg Lesrw, North Chili, ny
88,450 Matthew Brenengen. Lake Elmo, MN
67,890 Neil Berkman, DsWitt. NY
67.435 Brian Wallingfnrd. Fall River MA
59,000 Ed Bottini. St. Louis. MO
4B.50S Tim Worr, Bellingham, WA
46.890 Judy Boyer, Plymouth. IN
38.420 Jim Ganninger, Des Peres, MO
29,820 Elena Berkman, DeWitt NY
2B.B95 Richard Vehlow. Bayside, NY
9.250 Linda Berkman, New York. NY
CONQUEST Of KZIRGLA
50,199 -ft Bruce Uher, Coshocton. OH
10,399 fa Soon Sehlhorst, Columbia, SC
COSMIC CLONES
30,700 ^ John Osborne, Kincardine, Ontario
CROSSWORDS
322 it Bob Strong, Chicago, IL
DEATH TRAP
75,431 if .ififf Willed, Chireno. TX
41,272 Perry Willard, Chireno. TX
33,777 Dawayne McKinney. Chireno, TX
30,119 Trey Lowery, Chireno, TX
DEFENSE
58,000 if Gran Scott. Orlando, FL
DEMON ASSAULT
49.000 â– * Steve MOonay, W Hlonmfifilrl Ml
DOODLE BUS
1.152.360 it Marc Haeelur
825.000 fa John Cole, King Cily, Ontario
491,380 James Slewan, Delhi, NY
466.000 Peter Sttimpl, MoHsnry, IL
3bi.44U Betle Mumti, Bellerose, NY
340,740 Bill Tyler, St. Paul, MN
200,120 Roland Hendel, Mississauga, Ontario
154.650 Theodore Mayor, Easl Graenbueh, NY
105,260 Scott Snyder. Allentown. PA
77,310 Sandy NiOrile, Clio, Ml
DOUBLE BACK
435.570 it Pnllllppft MOrSan, St. Jerome, Quebec
429.000 Steve Damm, Phoenii, AZ
195,640 Terry Steen, San Bernardino, CA
191.830 Chris Kulawy. SI. .lohnsuille, NY
127,460 Kyle Keller, Overland Park, KS
126,310 W Craig M. Arnold, Dalles, TX
110,970 Nancy Magee. Collins, MS
108,410 Bill Tyler. St. Paul, MN
81,090 Mary M.V. Wahl, Minneapolis, MN
76,590 John Wahl, Minneapolis, MN
66.250 J.C. MacDonald Charlottetown, P F I.
Canada
57.B0C Justin Pacta. Berkeley, CA
SCORE PLAYER
OUNKEY MUNKEY
1,6ia,B00 ^r Bryan Bloodworth, Federal Way. WA
1.099,400 Andrew Herron. High Pnint. NC.
1.000.800 Wendy Johnson, San Jose. CA
1,000.001 Grant Gillott, Calgary, Alberta
626.400 Peter Niessen, Carlisle, MA
444,300 Roland Hendel. Mississauga. Ontario
320,200 Vince Lok. Mississauga, Ontario
THE FROG
30,500 * Frank Botlim, St, Louis, MO
15,400 & Debbie Purdy. Dearborn, Ml
9.460 Mnm Hastier
FROGGER
6,600 ♦ Tim Worr, Bellingham. WA
FROG-MAN
3,735 & Aaron T. Clncotta. Peru, IN
FROG TREK
12.250 # Alan Weiss, Summit, NJ
10,370 fa Jim Baker, Florissant. MO
6,550 Tom Eberhardt. Fairview Park OH
7,160 Mike Anheluk, Fall Creek. Oft
GALACTIC ATTACK
50.000 it Terry Slesn, Sari Bernadlno, CA
54,200 fa Mike Hughey. King George, VA
54.00U (Jraig Edelheit. W. Bloomlield. Ml
46.320 John Cole, King City. Ontario
45.900 Rick Williams, Kokomo. IN
41,390 Sieve Johnson, Santa Ana, CA
40,970 Rich VanManen. Grand Rapids Ml
26,070 Jell Willard. Chireno, TX
23,860 Derek Foabury. Caledonia, Ontario
19,760 Linda Herhers, Placenha, CA
GALAX ATTAX
46.450 fa Robert Rahmes. Silver Spring, MD
33.350 Aarnn Cunrlltf. Liuermore. KY
33.000 Todd Zuehl. Livermora, KY
30,350 Mark Raphael. Englishtown, NJ
27.500 Miles C Langmacher, Minco, OK
GHOST GOBBLER
825,250 fa Randy Gerber, Wilmette, IL
2bb,000 John Osborne, Kincardine, Ontario
142,070 Chris Kulawy. St. JOhnsvilln. NY
110.190 Jeff Morris, Seattle, WA
1113,590 Harry Sawyer. Watchung, NJ
59.830 Ruben Lipszyc, Sarnia, Ontario
56,200 Jim Ganningei, Des Peres. MO
55,390 Ron Rhead, Willowdaie. Ontario
35,340 Phillippe Morsan, St Jerome, Quebec
53.250 Terry Steen, San Bernardino, CA
INVADERS REVENGE
451. 06Q it .Inhn Osborne, Kincardine, Ontario
32,600 fa Harry Sawyer, Watcfiung NJ
KATERPILLAR ATTACK
14,375 fa Norberl Serenyl, Jvforthvale, NJ
14,211 Roland Hendel. Mississauga, Ontario
12,703 Warren Schuben, Newfound I and, NJ
12,544 Todd C. Hausehiidt. Red Wing, MN
12,100 Petef Siumpf. MnKnnry, II
9,164 John Osborne, Kincardine, Ontario
8.415 Scott Snyder, Allontown, PA
6.010 Jimmy McDonald, Summerville SC
KEYS OF THE WIZARD
640 fa Stevo Skrzynlan;, Tacoma, WA
THE KING
1.858,000 fa Mike Muohev, King George, VA
1.670,200 Joel Doucet, Yarmoulh, Nova Scotia
1.549.21111 Frank Bottini, Si. Louis, MO
1.000,000 Debbie Purdy. Dearborn, Ml
060.600 Tim Warr. Odlingham. WA
B42.900 Roland Hendel, Mississauga, Ontario
305,700 Dave Mereer, Marissa, IL
592,400 Hwan Joo, Weston, Ontario
577.000 Mike Rausch, Denver. CO
494,900 Perry Dentnn. New Baden, IL
469.600 Kyle Keller, Overland Park. KS
332,100 Candy Harden, Birmingham, AL
312.000 Matt McMann, New Boston, Mt
252.000 Tydd Byington, N, Sail Lake Ul
226,300 Roger Buzard. Lima, OH
1BB.U00 p e ter Stumpf, McHenry. IL
160,000 Scolt Wedlake, Hudson. Fi
the RAINBOW
Aupust 1983
•••^^••••••••••••••••••••••••••••••-
SCORE PLAYER
KOSM1C KAMIKAZE
49.900 if Mark Raphael, Englishtown, NJ
MEGA-BUG
60.000 it Robin Worthem, Milwaukee, Wl
16.598 John Tiffany, Washington. D.C,
15.999 Ed Mitchell. Ragged Mountain. Co
13,850 Jim Martin, Uniontown, OH
13.703 it Oeneld Habben, Morrison. IL
13,481 Rich VanManen, Grand Rapids. Ml
13,388 Dixie Mitchell, Ragged Mountain. CO
9,550 Derek Fosbury, Caledonia, Ontario
9.065 Al Byinglon, N. Salt Lake City, UT
9.049 Stien Louis, Streatcr, IL
6.766 Robert L Bull. Trenton, Onlario
3,461 Valerie Haggler
B.333 Debra Burnett. Morgan City. LA
6,237 Kyi* Keller, Overland Perk, KS
7,966 Jim Brinkman, Plymouth, IN
7, see Judy Boyer, Plymouth. IN
4,437 Marcus Muller, Farmington, ME
MEGAPEDE
67 fins if Frt Bottini. St. Louis, MO
53 019 Jim Ganninger, D*S Peres. MO
METEORS ,
17,610 Tf Lenny Munitz, Bellerosft. NY
MICROBES
318,830 ir Hwan Joo. Weston, Ontario
316,200 Sieve Mayer 6 Keith Seilned, Green-
villa. OH
259.700 "W Sheila Coleman. Griffin, GA
89,1S0 Kevin Little. So mors 1A
80,400 Ken Miller. Yardley. PA
30,070 Gob llosken, Mentor. OH
16.690 Richard Vehlow. Bayside, NY
14.250 Steven H. Ng, Scarborough, Ontario
MOON HOPPER
609,750 it Ed Botlini. St. Louis. MO
142.BOO Rnn HhRari wiiioweale. Ontario
MORROCO GRAN PRIX
4,153 if Frank Botltni, St. Louis. MO
MB. MUNCH,
3S.7B0 * Jeff Morrjs. SeetUe, WA
24 680 if Alan Mak, Penrt Van. NY
MONKEY KONG
1.182 if Rich VanManen, Grand Rapids, Ml
1,072 Justin Marcus
1,052 Ryan VanManen, Grand Rapids, Ml
1.Q28 if Larry Plaxton. Medley, Alberta
963 Mark Dawlino. San Bruno. GA
MONSTER MAZE
520,470 it Hoberl L. Bull, Trenton. Ontario
323.490 Philip Morrissey, Gilboa, NY
62,400 Ruben Lspszyc, Sarnia, Ontario
60,000 TT, Rrian Austin. Rotterdam, NY
56.030 Keilh Seifried. Greenville. OH
5.090 Steven H, Ng, Scarborough, Ontario
NERBLE FORCE
315.150 + Frank Bottini, 31. Louis. MO
49,200 Jim Ganninger, Des Peres, MO
NIBBLER
14.91D if Chrlstal Giovinsky. SLaten Island, NY
OFFENDER
965,400 W Jim Baker, Florissant, MO
113,200 Justin Marcus
76,350 Johnna Miller. Plymouth, MN
PACDROIDS
577,140 ■£■Richard Cochrane, Wayne, NJ
151.590 Anmla Powell. Huber Heights. OH
140,300 John Yapp, Park forest, IL
$4,140 Lee Powell. Huher Hpinhls. OH
49,180 Jimmy McDonald, Summerville. SC
42,000 Justin Marcus
40,960 Stephen Shotts, Blacksburg. VA
27,2301 Jerry Hoogwerff Kroon, Ruiantmm,
Holland
PACET-MAN
?fiH(lo if Vinee lok. Mississauga, Ontario
5,000 if Cameron Amick. Reisterstown. MD
3,392 Norbert Berenyi, Northval*, NJ
PAHACHUTE JUMP
411,000 John Osborne, Kincardine.Ontario
PHANTOM SLAYER
1,306 if Marc Hassler
406 Imrr- Kertesz, Chandler, AZ
197 Mark Heiiler, Ridgefield. CT
190 if Mike Hall, Hartland. Wl
PINBALL
4,000,000 if Keith Seilrled, Greenville, OH
66,650 •& Ken Miller, Yardley. PA
SCORE PLAYER
PLANET INVASION
286.075 iz Larry Plaxton. Medley, Alberta
257,900 Hon Rnead. Wlllowdale, Ontario
221,350 John Cole. King City. Ontario
207,150 Mike Hughey, King George. VA
84.300 Matt McMann. New Boston. Ml
82,000 Harry Sawyer, Watchung, NJ
79,650 Justin Marcus
POLARIS
258.Q1B if Michael Popovich, Sr . Nashua, NH
212,746 Hwan Joo. Weston, Ontario
170.100 Steve Johnson. Sama Ana, CA
151.154 TT Brian Austin, Rolterdam. NY
120.824 Rich VanManen, Grand Rapids, Ml
113,773 Linda Herbers, Plnnpnlis. CA
101,000 Michael Popovich, Nashua. NH
POLTERGEIST
4,978 it Tim Warr, Bellinghsm. WA
4.956 ir MarK Dowllng. San Bruno, CA
4,630 Scott Butler, Springfield, IL
4.745 Sette Munitz, Bellerose, NY
4,630 Jim Ganningar, Des Peres, MO
4,455 Ken Miller. Yardley, PA
4,366 Scott Snyder, Ailontown, PA
POPCORN
560,900 "A" ViiiLe Lok. Mississauga, Ontario
16B.6B0 Steve Johnson, San I a Ana, CA
110,570 H Cameron Amick, Reisterstown, MD
77.970 Raymond G- Myers, Bloomington, IL
56,000 James Quadarella. Brooklyn, NY
3A.5Q0 Terry Steen, San Rernadino. CA
PROTECTORS
534.610 + Floland Hendel, Mississauga, Ontario
356,514' W Csmeron Amick, Reisterstown, MO
272.000 Douglas Hug, Rosevllle, CA
154,967 Frankie Jimenez. Mess, AZ
64.000 Gerry Schechter, Yankers, NY
RAIL RUNNER
53,400 + Ed Bottini, St Louis, MO
38,360 Jim Baker, Florissant, MO
13,195 Lenny Munitz. Bellerose. NY
ROBOTTACK
1,197,600 T> Brian Austin, Rotterdam, NY
1,146,750 Justin Marcus
939.300 Robert Kiser, Muntlqello, MS
773,250 Matt Brenengen. Lake Elmo, MN
706,650 Tony Cappellini Si Randy ClammAry.
Lemoore, CA
G75.C0Q Tony Cappellini, Lemoore, CA
§49.500 Joseph Prisco. Oswego, NY
euu.fuo Bill Tyler. St. Paul, MN
574,000 Ron fthead, Wlllowdale, Ontario
645,650 Jay Stewart, Delhi, NY
sn7.rmn Craig Edelheii. W Bloomfleld. Ml
492.650 Alan Burkett. Seneca. SC
408.660 David Lack. Glendale, CA
SEA DRAGON
36.540 it Sieve Schweitzer, Seweil, NJ
14,970 Ron Rhead, Wlllowdale. Ontario
SHAFT
18,150 * Loren Seng. Tuscon. AZ
SHARK TREASURE
72,000 * Marc Hassle r
48,000 Ed Bottini, St. Louis. MO
SHOOTING GALLERY
37.200 * Chris Kulawy, Si. Johnsvllle. NY
2B.6UH -ft Kenneth Panrldge, WarKwortn. On-
tario
26.000 J.C.MacOonald.Chartottetown. P.E.I. ,
Cnnnda
23,490 David Lender, Brooklyn, NY
16,370 Saul Munitz, Ballorose, NY
16,310 Ron Rhepd, Wlllowdale. Onlario
SKIING ^
40,10 w Fred K, Herrmann. Flemington, NJ
49,43 John Scanlan, Prairie Village. K5
52,22 Peter Johnson, Chi no, CA
53,57 Jay Stewart, Delhi, NY
57.07 John Osborne, Kincardine. Onlario
SKY DEFENSE
9.700 + Vines Lok. Miisissauga, Ontario
6.700 -ir Mike Anheluk, Fall Creek, OR
6.12D Steve Skrzymarz, Tacoma, WA
5,200 Cameron Amick, Reisterstown, MD
SOLO POKER
640 ir M?ry J Herring, Rlonmington, IL
SOLO POOL
103 W John W. f raysse. Dahlgren, VA
SPACE ACE
983 A - Matt McMann, New Boston. Ml
SPACE AMBUSH
124,460 ic John Osborne, Kincardine. Onlario
SCORE PLAYER
SPACE ASSAULT
238,580 is John Cole, King City, Ontario
221,130 Sieve Johnson, Santa Ana, CA
216,680 Chris Kulawy. St. Johnsville, NY
160,692 Rich VanManen, Grand Rapids, Ml
157,140 David Milbrath. Ann Arbor, Ml
112,250 Tim Warr, Belllngham, WA
102.650 Ruben Lipszyc. Sarnia. Ontario
102,410 Keith Siefried, Greenville, OH
97,300 Terry Steen. San Bernardino, CA
55.000 Fred Soyer, Plymouth, IN
41,060 Kami Dinda, Kingston, Ontario
38,120 Debra Burkelt, Morgan City, LA
SPACE INVADERS
62,300 ij Peter Niessen, Carlisle. MA
10,570 Neil Serkman. DeWitt, NY
SPACE RACE
77,075 lit John Osborne, Kincardine, Ontario
50.826 ij- Jim Baker, Florisoanl. MO
58.100 John Cole. King City, Ontario
31,525 Gn*MU Scoll, Orlsndo, FL
4,000 Danielle Gardner, Louisville, KY
SPACE SENTRY
41.129 it Steve Skravhiara. Tacoma, WA
SPACE SHUTTLE
595 it Steve Schweitzer. 5eweH. NJ
575 Fred Weissman. Brookline. MA
571 Ted McDonald, Summerville, SC
565 John W. Frays**, Dahlgren. VA
bii Larry Reitz. Toledo, OH
SPACE WAR
400,190 if Mark Felps, Bedford, TX
nfi.nnn Peter Niessen, Carlisle, MA
52.360 Jim Baker, Florissant, MO
STARBASE ATTACK
21.626 "fc" Mark Raphael, Englishtown, NJ
STARBLASTCR
408,245 if Mark Dowling, San Bruno. CA
325.790 Mike Anheluk. Fail Creek, or
126,136 Mike Hall. Hartland, Wl
80.001 Alan Lewis, Ridgefield, CT
53,050 Grej Lesher, North Chili. NY
STARFIRE
3,444,500 + John DeMuth, Trairie du Chlen, Wl
2,102,450 it Dean Bouchard, Kingston, Nova Sco-
tia
1,320,150 Joy Bailey, Lexington. NC
1.120.000 Emil Hayek. Stale College, PA
666,400 Rnlanri Hendnl, Mi3nis£auga. Ontario
100,000 Tim Warr, Bellingharn. WA
STArtSHir- CHAMELEON
861.200 if Greg Lesher, North Chili. NY
79,250 Vlnce Lok, Mississauga, Ontario
72,600 t^t Jim Baker, Florissant, MO
68,500 Cameron Amick, Reisterstown, MD
64.BOO David Rosicky. Pittsburgh. PA
62,100 John Osborne, Kincardine, Ontario
STORM
B4O.01O + Roland Hendel. Mississauga. Ontario
723.335 it Chris Sweet, Harvard, MA
472,320 John Jaworsk, Nashua, NY
360,000 Cameron Amick. Reisterstown. MD
240,745 Todd C Hauschlldt, Red Wing, MN
207,640 Greg Lesher. North Chili, NY
65.275 John Oshnrnfl, Kinr.ardinn, Ontario
STORM ARROWS
94,000 ir Steven Ohsie, Houston. TX
TftAPFALL
84.542 * Keith Seifried, Greenville. OH
77,490 Peter Slump!, McHenry, IL
59,163 Frank B-ollim. St. Louis, MO
VENTURER
2,152,150 ^jt Greg Scott. Orlando, FL
1,769,400 Todd C, Heuschlldt, Red Wing, MN
1,536,200 Peter Niessen, Carlisle, MA
1,120,950 Hwa» Joo, Weston, Ontario
919,650 Richard Vehlow, Sayside, nv
WILDCATTING
23.571 ■■• Jenny Pelkash. Warren, Ml
ZAKSUNO
950,500 + Michael Rothman, Solon. OH
617.500 Ed Sottini. St. Louis. MO
119.CS0 Jeff riahrr. West Oranch, Ml
74,550 Derrick Kardos, Colonia, NJ
r'u.3'JU Steve Schweitzer, sewen. NJ
62,500 Derrick Kardos, Colonia, NJ
2,600 Robert Frowenfeld, Louisville. KY
ZAXXQN
2,000,000 * Roland Hendel. Mississauga, Ontario
401,000 ',""? Mike Hughey, King Gcorgo, VA
154,000 Ron Rhead, Willowdale, Ontario
128.000 Fred Weissman, Brookline, MA
103.800 Alan Lewis. Ridgefield, CT
92,700 Randall E. Walker, Ounbar, WV
89.700 Scon Butler. Springfield. IL
69,200 Richard lack, Glendale, CA
72,200 Hreg Lasher, North Chili. NY
53,000 Marc Hasslef
August 1363 I he RAINBOW
(pS«SpKfe&
ROY
a
BIV
AWARD
WINNER
TRY THESE
TEST PATTERNS
ON YOUR
COLOR
MONITOR
By Mike Dubuc
Color televisions are comprised of a complexity of compli-
cated systems and circuits which have to work in harmony to
produce an intelligible image. Of all the systems that exist
within the television, the one that is most susceptible to change
as well as being the most neglected is the cathode ray tube
(picture tube) and beam scanning system.
Simply put, this system is trying to aim and land three
separate electron beams simultaneously in a precise location on
the center of the CRT while being pulled around the entire face
of the CRT by a magnetic force created by the "deflection yoke"
(the large coil of wire that encircles the neck of the picture tube).
These beams have to maintain the same shape and precision
everywhere they land even though the front surface of the CRT
changes shape, from being nearly flat in the center to being
significantly curved at the edges.
What does all this mean? Well, the concept that I am trying to
convey is that to successfully reproduce an image on the CRT,
those electron beams must be corrected to overcome and with-
stand contortion by magnetic fields, errors of physical misloca-
tion and registration, and mechanical shift, as well as compo-
nent aging and other considerations. Through all this, we
expect the beams to stay nearly perfect as they land at the
various locations on the phosphor screen, the result being a
properly focused picture that is aligned and conforms to the
shape of the facepanel of our picture tube.
Physical adjustments and circuitry exist on color televisions
that compensate for these imperfections; however, in order to
take advantage of these built-in correction features it requires
the generation of particular stationary test patterns riot nor-
mally available to the television viewer. It occurred to me that
the CoCo would make a perfect test pattern generator as its
graphic and resolution capabilities are somewhat better than
those most color televisions can handle.
Drawing on my past 10 years' experience as a cathode ray
tube test engineer, I have put together a selection of test pat-
terns in a program called Congen. This program, when run
properly, allows the user to make all the adjustments necessary
to properly align, converge and set up the CRT and beam
scanning system on a color television.
The program is a menu driven, self prompting collection of
nine modules which are totally user friendly. Some of the
patterns may seem to be redundant functions, but 1 have found
mo re often than not that the alignments are somewhat easier to
(Mike Dubuc is a Quality Assurance Test Engineer
with the Display Devices group of the Raytheon ICO
Operation, He is involved in state-of-the-art cathode
ray tube displays for high performance airborn appli-
cations.)
achieve using a combination of all the available patterns. All
the geometric patterns have been corrected for the standard 4 x
3 aspect ratio.
There are nine basic functions, and the following list will
explain some of the details.
1) DOTS Used for dynamic convergence (edge). Lower numbers give
most usable patterns.
2) CROSSHATCH Also used for dynamic convergence.
3) COLOR BAR Used for checking hue— TINT control should be
adjustable to obtain noted colors.
4) GRAY SCALE Sets up pscudo levels from black to white. Although
not a true gray scale, this function should be adequate in showing a
television's ability to display seven distinct steps between black and white
by varying CONTRAST and BRIGHTNESS.
5) CORNER MARKS Allows an evaluation of focus.
6)CENTER PATTERN Usedforadjustingstaticconvergcnce(center)
and centering the display.
7)HORZ/VERTBARS
ing, adjusting linearity, etc.
8) PURITY/GUN C/O
General function useful in aligning, converg-
The purity function is used for selecting a
particular color screen for adjusting the PURITY MAGNET for best field
color saturation, while the GUN C/O provides a stable horizontal line for
setting gun cutoff levels on those televisions without set up switches.
9) PICTURE SYMMETRY This function sets up patterns for adjust-
ing vertical and horizontal, linearity, height and width (HEIGHT/
WIDTH, RS-170 option). It also provides a rectangle for pincushion and
barrel distortion and adjustment (to eliminate sides that tend to bow in or
out).
Although the intended use of this program assumes that the
user is somewhat versed in television alignment and repair, I
believe that it is so self explanatory and easy enough to use that
anyone could check the performance of their television.
Editor's Note:
A llhough Congen is one of the programs in this issue available on Rainbow On Tape, vou ma v
order il directly from the author by sending n selj-nddressed, stamped envelope and $5 to:
Mike Dubuc
4 Fieldstone Lane
Attlcboro, MA 02703
The listing:
10 PCLS: CLEAR: CLS(4>
20 PRINT@132,"
TELEVISION
100
the RAINBOW
August 1983
Nanos Systems Corp.
REFERENCE CARDS
For Models I, II, III, Color, Pocket
and Apple II & II Plus
1W Vi
,&3
\M1
1 . » * ■* % * * , * «
* TRS-80 is a Registered Trademark ol Tandy Corp.
Gomputer picture reprinted permission Tandy Corp.
ssMsi
RAINBOW
APPLE is a registered trademark of Apple Computing, int.
Each card is a complete summary of the reference manuals and the microcomputer. Cards are two or more colors, printed on 80 pound Beckett Antique cover stock or a comparable stock, stretch-
wrapped in plastic for shipping. They are accordion-fotdup cards, in the same style as the traditional IBM reference cards used on the major computers for years. Fold-up size is eight and one-half
by three and three-quarter inches, so they will fit easily into the shirt pocket. These cards provide a complete summary of trie-manuals plus many extras at your fingertips.
MODEL I
BASIC: Buff & Blue
5 Panels, 10 Pages
(For the Classroom)
Memory Map.
Easy Graphics.
Basic Stalemenls.
Basic Functions
Basic Facts.
Sppnial nharanters.
Basic Commands.
Edit Subcommands.
PRINT USING Examples.
Message & Codes.
Reserved Words.
Special Keys.
Ascii Character Chart,
with Space Compression Codes,
Control Codes.
Basic Internal Codes.
Hex/Dec Conversion Chart.
Screen Line Layout.
BAStC & ASSEMBLER: Buff
8 Panels, 16 Pages
(For the Pro)
Complete Z80 Instructions.
Assembler Instructions,
Commands, Operators.
Editor/Assembler Commands,
and Edit Subcommands.
Flags, Conditions, & Chart.
Internal Routines.
Assembler Error Msgs.
Plus Most Items in the Basic Card
POCKET
BASIC: Purple
5 Panels, 10 Pages
Operating Charaule[islic5
Memory Types and Limitations
Mudes of Operation.
PRO Mode.
RUN Mode.
RFSERVE Mode
DLT Mode.
f-ixed Variable Facts and
References,
System Function Keys.
Math and Logic Function Keys.
Normal Character Keys.
Special Characters and
Function Keys.
Basic Commands.
Cassette Interface Commands.
Reserved Words.
Math and Numeric Functions.
Opriupd Functions
Basic Statements.
Errnr Messages and Codes.
USING Statement Examples
and more. . . . !
A pocket card for your
pocket computer.
MODEL II
BASIC & ASSEMBLER' Green
10 Panels, 20 Pages
(For the Business)
Small Memory Map.
Screen I aynut
Easy Graphics.
Complete Z80 Instructions.
Series-1 Assembler Instr.
Commands. Operators, and Edit
Subcommands.
Assembler Error Msgs.
Power-up Error Msgs.
Flags, Conditions, & Chart.
Wild Cards, DOS Messages.
SVC Procedure Panel.
Host Logon Pane!.
Version 2.0 Lib Command Formats
and System Utility Formats.
Basic Functions & Statements.
DOS File Naming Convention.
Basic Commands & Edit
Subcommands.
Special Keys-
Basic Internal Codes and
Reserved Words.
Basic Msgs. & Codes.
PRINT USING Examples.
Special Characters,
"DO" Utilities & BASIC Command.
Ascii Character Chart with SVC
Names and Numbers.
Cunhol Codes.
MODEL
^
BASIC' Blue & Buff
6 Panels, 12 Pages
(For the Classroom)
Special Characters.
Kana Characters.
Euro-Characters.
Memory Map.
Special Keyboard Functions.
Ascii Char. Chart w/Space
Compression Codes.
Control Codes.
Cassette Loading Err Msgs.
Basic Commands, Edit
Subcommands, Special Chars.,
Basic Statements, Facts,
Functions, Derived f-unctions,
Special Operations (POKEs),
PHINI USING txamples.
Basic Msgs. & Codes.
Basic Internal Codes.
Reserved Words.
Screen Line Layout.
BASIC & ASSEMBLER: Blue
10 Panels, 20 Pages
(For the Pro)
Complete Z80 Instructions.
Assembler Instructions, Commands,
Operators.
Series I Editor/Assembler
Commands & Edit Subcommands.
Flags, Conditions, & Chart.
Hex/Dec Conversion Chart.
Assembler Error Msgs.
Internal CALL Routines.
Break Processing Procedure.
Plu3 all items in the Basic card.
COLOR
BASIC & EXTENDED:
Grey + 9 Colors.
6 Panels 16 pages
(For the Artist)
All Color Graphics.
System Commands.
PRINT USING Examples.
Special Characters.
Special Keys.
Cassette Loading Err Msgs.
Basic Functions & Statements.
Playing Music, Making a Circle,
and Drawing Panels.
Derived Functions.
Messages & Codes.
Musical Notes, Dy octave, in
Color, Including Rests and Time
Memory Map.
Reserved Words.
Internal Codes.
A Page of Tips.
Ascii Char. Codes Chart.
Including Inverse Graphics
and Color Graphics.
Control Codes.
Color Group Chart.
Pmode Information Summary.
Screen Line Layout.
Extended Graphics Pmode
Illustrations.
APPLE II & II PLUS
BASIC: Red & Pink
7 Panels, 14 Pages
(For the Classroom)
48K Memory Map
APPLESOFT and INTEGER BASIC.
Basic Statements.
Basic Functions.
Derived Functions.
Special Characters & Operators.
System & Utility Commands
Pokes, Peeks, Calls,
Monitor Commands.
Key & Control Functions.
APPLESOFT Internal Codes.
APPLESOFT Reserved Words.
Integer Basic Addressing.
DOS 3.3 Command Summary.
color Selection Chart.
Error Msgs. & Handling.
Reading Machine Language.
Hex/Dec Conversion Chart
ASCII, Print, Video, 6502, Integer
and APPLESOFT Code Reference
Chart, 0-255.
Basic & 6602: fled
8 Panels, 16 Pages
(For the Pro)
All features of the Dasic Card, Plus:
6502 Timing.
6502 Language Simplified.
Flags & Conditions with Reference
Chart.
Piease send me:
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Copies
Card Price
of MODEL I BASIC & ASSEMBLER $4.95
of MODEL I BASSC-ONLY 2.95
of MODEL II BASICS ASSEMBLER 5.95
of MODEL II SVC 2,95
of MODEL II COMMANDS & UTILITIES 3.95
Of MODEL III BASICS ASSEMBLER 5.95
of MODEL III BASIC-ONLY 3.95
of COLOR BASIC AND EXTENDED 4.95
of POCKET BASIC 2.95
of APPLE IIS II PLUS BASIC 3.95
of APPLE IIS II PLUS BASICS 6502 4.95
of Z80 4.95
ofZXQO, 81.&TIMEXSINCLAIR-1000 5.95
of HEATH/ZENITH HDOS for H8/H89/Z89/Z90 5.95
Ask for them at your store or
bookstore or order from us.
Wholesale prices available
in quantities over 24
Sena GhecK or Money Order to:
NANOS SYSTEMS CORP.
P.O. BOX 24344
SPFFDWAY, IN 46224
(317) 244-4070
NAME:
ADDRESS
CITY
STATE .
ZIP.
Indiana Residents Add 5 Percent for Indiana Gales Tax
"! .-PRINT© 164, "TEST PATTERN
\ CONVERGENCE"; : PR I NTS I 96, "
GENERATOR " ; : PR I NTS335 p "
MIKE DUBUC "; : PRINTS367, "4 F
I ELDSTONE LN " ; : PR I NTS399 , " ATTLEB
ORO , M A " ; : PR I NT@43 1 , " " 02703
â– â– a
30 FOR DL=1TO2000:NEXT:CLS<3):GO
SUB2060
40 LN=0 : PCLS : CLS ( 3 ) : PR I NT@74 , " SE
LECT MODE";
50 PRINT@134, ,, ***(1>D0TS***"; : PR
I NTS 166, "***< 2) CROSSHATCH***"; :P
R I NTS 198, "*** (3) COLOR*BAR***" ; : P
RINTS230, "***(4)GREY*SCALE***",' :
PRINTS262, "*** (5) CORNER*MARKS***
" j : PR I NT@294 , " *** ( 6 ) CENTER*PATTE
RN***"; :PRINT@326, "*** (7> HORZWE
RT*BARS***";
53 PR I NT@358 , " *** ( 8 ) PUR I T Y*GUN C
/O***"; :PRINT@390, "*** (9) PICTURE
♦SYMMETRY***"; :PRINT@450, "*PRESS
CM 3 FOR MENU AND ANY" ; : PRINT04S
2, "KEY TO RESTART CURRENT MODE*"
m
9
55 A*= I NKE Y* : I F A*= " " THENG0T055EL
SEIFA*="1"THENN=1ELSE IF A*="2"
THEN N=2 ELSE IF A*="3" THEN N=3
SPIKE-SPIKER® ...THE SOLUTION!
Protects, organizes, controls computers & sensitive, high tech electronic
equipmeril. Helps prevent software "glitches", unexplained memory loss,
and equipment damnge. Absorbs damaging voltage spikes & surges, re-
duce costly equipment downtime. Filter models attenuate conducted
RF interference. 1 20V, 1 5 Amps. Other models available. Ask for free
literature for detailed specs. Coll your order in today!
DELUXE POWER CONSOLE
$79.95
Transient absorber, dual 5-stage filter. 8 individually
switched sockets, fused, main switch, and lite.
QUAD- II $59.95
Transient absorber. Dual 3-stage filter. 4 sockets, lite.
QUAD-I $49.95
Transient absorber, 4 sockets, lite.
MINIM $44.95
Transient absorber, 3 stage filter, 2 sockets, lite.
MINI I $34.95
Transient absorber, 2 sockets, lite.
6584RuchRd.,Dept.R8
Bethlehem, PA 18017
Use your credit card or send check 8, we pay (he shipping
215-837-0700
Out of state, order toll free
800-523-9685 • TWX 510-651-2101
102
PA Res, add 6% sales Inn • tor COD add S3 00 + shipping • dealers invited
the RAINBOW August 1983
ELSE IF A*="4" THEN N=4 ELSE IF
AS="5" THEN N=5 ELSE IF A*="6"
THEN N=6 ELSE IF A*="7" THEN N=7
ELSE IF A*="8" THEN N=8 ELSE IF
A*="9" THEN N=9 ELSE GOT
60 ON N GOSUB 70,160,280,599,690
,800,900, 1080, 1200
70 GOSUB 2060: CLS: PR I NTS 1 63, "SEL
ECT SPACES BETWEEN DOTS" ;: PRINTS
294, "ENTER A NUMBER" ; : PRINT@326,
"BETWEEN 3 AND 100";
80 INPUT Z
85 PR I NT@355 , " COARSE ( 1 ) OR F I NE (
2 ) DOTS " ; : GOSUB2050
86 A*=INKEY*:IF A*="" THEN86ELSE
IFA*="M" THEN 40 ELSEIFA*=" 1 "TH
EN500ELSE I F A*= " 2 " THEN90ELSE85
90 PRINT@384, "INVERSE(l) OR REGU
LAR VIDEO (2>";
9 1 A*= I NKE Y* : I FA*= " " THEN9 1 ELSE I
FA*="M" THEN 40 ELSEIFA*=" 1 "THEN
R=4ELSE I FA*= " 2 " THENR=3ELSE9 1
100 CLS:PMODE R, 1
110 SCREEN 1,1: PCLS
120 FOR Y=4T0184STEP Z
130 F0RX=4T0256STEPZ
140 PSET(X,Y):PSET(X+1,Y>:PSET(X
+i,y+d :pseT(x, v+i)
150 NEXTX:NEXTY
155 LN=1:GQTQ2000
160 PCLS : CLS :GOSUB2060: PRINT© 162
, "SELECT INTERSECTION INTERVAL";
:PRINT@294, "ENTER A NUMBER"; :PRI
NTG326, "BETWEEN 3 AND 255";
170 INPUT Z
1 80 PR I NT@3S4 , " REGULAR ( 1 > OR I NV
ERSE VIDEO <2>";
1 8 1 A*= I NKE Y* : I FA*= " " THEN 1 8 1 ELSE
IF A*="M" THEN 40ELSEIFA*=" 1 "TH
enr=3else i fa*= " 2 " thenr=4else 1 8 1
190 cls:pmode r, i
200 SCREEN 1,1
210 FORY=4T0184STEPZ
220 LINE <0,Y>- (255, Y),PSET
230 NEXTY
240 F0RX=4T0256STEPZ
250 LINE(X,0)~(X,191>,PSET
260 NEXTX
270 LN=2:G0T0 2000
280 GOSUB2060 : L=0 : CLS ( ) : PR I NT@9
8, "THE PROPER COLOR BAR PATTERN"
?
290 PR I NT® 130, "FROM LEFT TO RIGH
T IS: ";
300 FOR W=143 TO 255 STEP 16
310 PRINT@199-H_,CHR*<W>;:L=L+i:P
RINT@199+L, CHR$ <W) ; : L=L+1 : NEXT W
315 PRINT@324, "PRESS ANY KEY TO
CONTINUE";
320 A*=INKEY*:IF A*="" THEN GOTO
320ELSE IF A*="M"THEN 40 ELSE G
OTO330
330 CLS (0) : PRINT@0, "6RN\YEL\BLUE
\RED\BUF\CYAN\MAG\OR" j
340 FORX=0 TO 63
350 F0RY=3T031
360 C=INT<X/8+l>
370 SET(X,Y,C)
380 NEXTY
390 NEXTX
400 A=B+2:B=B+9:IF C=8 THEN GOTO
420 ELSE GOTO340
420 LN=3IGOTO2000
500 SCREEN 0,l:CLS(0)
510 Z=INT(Z/3):IF Z<3 THEN Z*=2:C
=2
520 FOR X=0TO63 STEPZ
530 FOR Y=0 TO 31 STEPZ
540 SET (X,Y,C>
550 NEXT Y:NEXT X
560 GOTO 155
599 CLS ( 2 ) : GOSUB2050 : PR I NT@ 165,"
TURN DOWN COLOR CONTROL" 5 : PRINT®
197," FOR GREY SCALE TRACKING" ;: F
OR DL=1TO4000:NEXT
600 CLS(0) :DATA5,2,8,7 S 6, 1,3,4
601 S=0:D=INT(63/8)
602 F0RA=1T08
603 READ A*:C=VAL<A*)
608 FOR X=S TO D
610 FORY=0 TO 31
630 SET(X,Y,C>
640 NEXT Y
642 NEXT X:S=D:D=D+8
644 NEXT A
645 RESTORE
650 LN=4:G0T0 2000
690 CLS ( 4 ) : GOSUB2060 : PR I NT@ 173,"
SELECT " 5 : PR I NTS202 , " < 1 ) CROSS MA
RKS " ; : PR I NTS234 , " C 2 ) DOTS
â– i â–
69 1 A*= I NKEY* : I FA*= " " THEN69 1 ELSE
IF A*="M" THEN 40 ELSEIFA*=" 1 "T
HEN700ELSE I F A*= " 2 " THEN780ELSE69 1
700 DATA0,4,8,4,4,0,4, 8
701 DATA246,4,254,4,250,0,250,8
702 DATA246, 186,254, 186,250, 182,
250, 190
703 DATA0, 186,8,186,4, 182,4, 190
704 DATA115,91, 131,91, 123,83, 123
,99
705 PMODE 3, l: SCREEN 1, 1 : PCLS
710 FOR X=1T08:READ A*: NEXT X
720 FOR A=1TO10
730 READ X1,Y1,X2,Y2
740 LINE(X1,Y1)-(X2,Y2> , PSET
750 NEXTA
760 RESTORE
770 LN=5:G0T0 2000
780 CLS(0>
785 SCREEN 9 1
790 SET (1,1,5): SET (62, 1,5): SET (6
2,30,5) : SET (1,30, 5): SET (31, 15,5)
795 GOTO 770
800 CLS ( 8 ) : GOSUB2060 : PR I NTH 173,"
SELECT " ; : PR I NT@202 , " < 1 ) CENTER C
ROSS"? :PRINT@234, " (2) CENTER DOT
11 â–
805 A*=INKEY*: IF A*="" THEN 805
ELSE IFA*="M" THEN 40 ELSE IF A
*="1" THEN 810 ELSE IFA*="2" THE
N 830 ELSE 805
810 PM0DE3,l:SCREENl, 1ZPCLS
815 X 1 = 0" X2 == 255H X == lx.8I Y == 91 Z Yl =r 0«
Y2=192
816 LINE(X1,Y)-(X2,Y> ,PSET:LINE(
X,Y1)-(X,Y2) ,PSET
825 LN=6:G0T0 2000
830 CLS(0) :X=3l: Y=15
835 SET(X,Y,5) : G0T0825
900 CLS ( 5 ) : GOSUB2060 : PR I NT@ 1 66 , "
(1) HORIZONTAL BARS" ; : PRINT@198,
" (2) VERTICAL BARS";
910 A*=INKEY*:IF A*=""THEN 910EL
SE IF A*="M" THEN 40 ELSE IF A$
="1" THEN 980 ELSE IFA*="2" THEN
-NEW!
FROM THE PROGRAMMER'S GUILD
— DEAMON'S DEFIANCE
Fresh from the fertile imagination of BASIC Graphics Master — Fred
Scerbo; DEAMON'S DEFIANCE is a riot of color and action. Trapped
by the Deamon's Energy Shield, the rebels tried desperately to blast
their way to freedom but the Winged Horror hovers overhead and
reigns down destruction.
Who will emerge victorious?
For 16K CoCo or 4K MC10 . . . cassette $14.95
TRI-PLANETARY HANGMANOIDS
HANGMAN as you've never seen it. Spellthe word correctly before the
Hangmanoids' KILLER SHIP can be assembled. If not, the earth lies
doomed. Graphics, sound, top fun the way you like it.
Foi 16K CoCo or 4K MC10 . . . cassette, $14.95
SPECIAL INTRODUCTORY PRICE
BOTH GAMES $25
Specify computer
Send check, MO or VISA, MC # to:
THE PROGRAMMER'S GUILD
P.O. BOX 66
PETERBOROUGH, NH 03458
(606) 924-6065
(COD add $3.00)
August 1983 the RAINBOW 103
920 ELSE 910
920 CLS<5) :PRINT@164, "COARSE (1)
OR FINE<2) BARS"!
930 A*=INKEY*: IF A«="" THEN 930
ELSE IFA*="1" THEN 940 ELSE I FA
*«»2" THEN 975 ELSE 930
940 CLS(0>:FOR X=0TO63STEP8:FOR
Y=1T031
950 SET(X,Y,7)
960 NEXT Y:NEXT X
970 LN=10:GOTO 2000
975 PM0DE3, 1 : SCREEN 1 , 1 : PCLS
976 FOR X=0TO255STEP32
977 LINE(X,0)-(X,l9i),P5ET
978 NEXTX
979 LN=ll:GOTO 2000
980 CLS ( 5 ) : GOSUB2050 : PR I NTS 1 64 , "
COARSE(l) OR FINE (2) BARS";
990 A*=INKEY*:IF A*="" THEN 990
ELSE IF A*="l" THEN 1000 ELSE IF
A*=»2" THEN 1040 ELSE 990
1000 CLS (0) IFOR Y=1T031STEP4:F0R
X=0TO63
1010 SET(X,Y,7>
1020 NEXT XINEXT Y
1030 LN=12:G0T0 2000
1040 PMODE 3, l: SCREEN 1, l: PCLS
1050 FOR Y=0TO192STEP16
1060 LINE <0,Y>- (255, Y) , PSET
1070 NEXT Y:LN=7!BOTO2000
1 080 CLS ( 6 > : GOSUB2060 : PR I NT<§ 1 66 ,
"(1) GUN CUTOFF AD J" ;: PRINT© 198,
" (2) PURITY ADJ";
1 085 A*= I NKE Y* : I FA*= " " THEN 1 085EL
SEIFA*="M"THEN40ELSEIFA*=" 1 "THEN
1 1 60ELSE I FA*= " 2 " THEN 1 1 00
1100 CL5(0) :GOSUB2050: PRINT® 162,
"CHOOSE DESIRED SCREEN COLOR"; :P
RINTS234, " ( 1 ) RED" ; : PRINT@266, " (
2 ) BLUE " ; : PR I NTS29S , " ( 3 ) GREEN " ;
1110 A*=INKEY*: IF A*="" THEN GO
TO1110ELSE IFA*«"M"THEN 40 ELSE
IFA*-"1" THEN 1120 ELSE IFA*="2"
THEN 1130 ELSE IF A*="3" THEN 1
140
1120 CLS (4): GOTO 1150
1130 CLS(3) :GOTO1150
1140 CLS(l) :GOTO1150
1150 LN=8:GOTO 2000
1160 CLS0: PR I NT@ 166, "ADJUST SCRE
EN CONTROLS"; :PRINT@198, "UNTIL A
WH I TE L I NE APPEARS " ; : FORT= 1 TO20
00: NEXT: PM0DE2, 1 : SCREEN 1 , 1 : PCLS (
0)
1165 LINE (4, 96) -(252, 96) , PSET
1167 LN=15:GOTO2000
1200 CLS(7):GOSUB2060:PRINT@170,
"SELECT " ; : PR I NTS230 , " ( 1 ) PI NCHUS
ION"; :PRINT@262, " <2> HEIGHTNWIDT
H";:PRINT@294, " (3) RS-170 TEST P
ATTERN"!
1201 A*=INKEY*:IFA*="" THEN 1201
ELSE IF A*="M" THEN 40 ELSE IF
A*="1"THEN 1209 ELSE IF A*="2" T
HEN 1300 ELSE IFA*="3" THEN 1400
ELSE 1201
1 209 CLS ( 5 > : GOSUB2050 : PR I NT@ 1 62 ,
"ADJUST PINCUSHION FOR BEST";:PR
I NT@ 1 98 , " LOOK I NG RECTANGLE " ;
1210 FOR DL=1 TO2000:NEXT
1 220 PMODE3 , 1 : SCREEN 1,1: PCLS
1230 LINE (0,0) -(255, 191), PSET, B
1240 LN=9:GOTO2000
1 300 CLS ( 6 ) : GOSUB2050 : PR I NT@ 162,
"ADJUST HORZ AND VERT HEIGHT"; :P
RINT@194, "WIDTH AND LINEARITY CO
NTROLS " ; : PR I NT@226 , " TO ACH I EVE T
HE BEST CIRCLE";
1310 FORDL=l TO 1500: NEXT
1320 PCLS: C=RND (4) : PMODE C,1:SCR
EEN1,1
1330 FORX=5TO105 STEPS: CIRCLE ( 12
8,96),X, , .88:NEXT X
1340 LN=13:GOTO2000
1 400 GOSUB2050 : PM0DE4 , 1 : SCREEN 1 ,
l:PCLS
1410 LINE(18,4)-(238, 188) , PSET, B
:LINE(18,4)~(238, 188) ,PSET:LINE(
238, 4) -(18, 188), PSET
1420 CIRCLE (128, 96), 98, , .88: CIRC
LE(128,96) ,20, ,. 88: CIRCLE ( 128, 96
) ,16, , .88: CIRCLE (128, 96) , 10, , . 88
: CIRCLE ( 128, 96) , 6, , . 88
1430 D=0:B=0:FORT=1TO5:LINE(18,8
4+B)-(110,94+D),PSET:LINE(238,84
+B) - ( 148, 94+D) , PSET: D=D+1 : B=B+6:
NEXT
1440 D=0:B=0:FORT~1TO5: LINE (112+
B,4)-(126+D,80),PSET:LINE(112+B,
188) - ( 126+D, 114), PSET: D=D+1 : B=B+
8: NEXT
1450 LN=14:GOTO2000
2000 A*=INKEY*: IF A*="" THEN GOT
2000 ELSE IF A*="M" THEN 40 EL
SE GOTO 2010
20 1 I FLN= 1 THEN70ELSE I FLN=2THEN 1
60ELSE I FLN=3THEN280ELSE I FLN=4THE
N599ELSE I FLN=5THEN690ELSE I FLN=6
THEN 800 ELSE IF LN=7 THEN 900 E
LSE IF LN=8 THEN 1100 ELSE IF LN
=9 THEN 1200 ELSE IFLN=10THEN900
ELSE I FLN= 1 1 THEN900ELSE I FLN= 1 2THE
N900
2020 IF LN=13 THEN GOTO 1200 ELS
E IF LN=14 THEN GOTO 1200ELSEIFL
N=I5THEN1080
2050 L=RND ( 100) : SOUND L,l: RETURN
2060 L=RND < 1 00 ) : SOUND L , 3 : RETURN
rfRi*
104
the RAINBOW August -T983
EXPAND YOUR COLOR COMPUTER
USER 80C
User Selectable Expansion Requirements
•Activate your disk controller, ROM CARTRIDGES, EPROM board, or any device
that normally operates in the expansion slot.
•Protects computer from electrical damage caused by experimental boards or by
plugging/unplugging ROM CARTRIDGES and controllers with the power on.
•Gold inlay connector contacts for more reliable operation.
Menu-driven software (included). Allows user to operate multiple slots at the same
time, (e.g., transfer data from one slot to any other slot).
•Select any of 6 slots with push-button keys or programming.
•Attach additional USER 80C's for more expansion slots.
•Utilizes its own reset button, eliminating the need to continually press the reset
behind the computer.
•Operates with a 9V battery eliminator (included). Power supply is independent of
computer.
•Has its own on/off switch with LED indicator.
•More to come: analog digital converter, parallel ports for printers and joysticks,
four-channel scope.
•Production of experimental boards upon request. (Based on your schematics).
"Designed with the User in Mind" $249.95
TERMS: Send certified check or money order for $249.95, plus shipping, handling and applicable sales
tax. (Personal checks take three weeks to process.) For shipping and handling include $5.00 U.S., $8.00
Canadian/Mexican, $15 Overseas. Illinois residents include 5% Sales Tax. Prompt shipment .
Dealer/Club inquiries invited.
J-NOR INDUSTRIES, INC.
6272 W. North Avenue
Chicago, IL 60639
Phones (312) 745-7541
(312) 622-4555
Guaranteed for one
full year (parts and labor)
USING GRAPHICS
SHii
'^M$!mw$t4
WHAT YOU GET
IS
WHAT YOU PUT
By Don Inman
Rainbow Contributing Editor
SfBPlflBS!
This month's article will focus on the use of some of the
material of past Rainbow articles in order to produce
moving geometric shapes. I will also use some of the
techniques discussed in the book TRS-80® Color Computer
Graphics (Reston Publishing Company, Inc.).
Rotating A Rectangle
The rotation of rectangles has been discussed in past
Rainbow articles. Let's begin this month by drawing a
rectangle in four different positions. Then we can progress
by stages through several different methods that will
produce the effect of a single rotating rectangle.
Our first program will be a simplified version of the
Rotating Rectangle program that appeared in the March
1983 issue of the Rainbow, Each of the four rectangles will
have its origin at the point 1 30,90. The angle of rotation will
be 30 degrees or approximately 0.5236 radians. The rec-
tangles will be drawn in the following positions.
As you run the program, notice that even though the
rectangles arc drawn quickly, ynu can see the individual
lines being drawn. The program demonstrates some of the
problems that must be overcome to produce the appearance
of smooth motion.
Variables used in the program:
X0,Y0
H
W
A
XI, Yl
X2,Y2
point of origin for the rectangles
height of the rectangles
width of the rectangles
angle of rotation in radians
starting point of the sides
ending point of the sides
Subroutines 1000 and 2000 will be used in program versions
that follow. You may want to save the program for
alteration.
/ ^^ / \ 2
(Don Inman is the acknowledged master of
microcomputer graphics and the author of a
large number of books, including TRS-80 Color
Computer Graphics and Assembly Language
Graphics for the TRS-80 Color Computer with
Kurt Inman.)
106
the RAINBOW August 1983
Rotating Rectangles — Version 1
99 REM SET SCREEN
100 PMODE 4,l:PCLS 1
COLOR 0,i: SCREEN
to erase. It can be done by adding these lines.
210 DIM B(20)
323 FOR W = 1 TO 100: NEXT W
326 GET(0,0)-(32,20),B ^
â– some blank area
!
110
120
199
200
210
299
300
310
320
330
340
399
400
410
420
430
999
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1999
2000
2010
2020
1.0
REM ASSIGN VARIABLES
X0=130: Y0=90: H=10: W=20
REM ASSIGN ROTATION ANGLE
FOR A=0 TO 1 . 5709 STEP . 5236
X1=X0:Y1=Y0
GOSUB 1000
NEXT A
I
328 PUT(118,70)-(150,90),B,PSET
The dimension statement for GET/ PUT can be calcu-
lated by the formula:
SIZE - (LENGTH * WIDTH) / N
where N = 40 for PMODES 3 and 4
N = 80 for PMODES 1 and 2
N - 160 for PMODE
Even though the rectangles are only 20 by 10, they move
over a larger area. Therefore, we must consider the complete
area of movement.
REM LOOP
GOTO 400
* END OF
TO VIEW
MAIN PROGRAM
REM SET UP END POINTS
X2=X1+W*C0S(A>
Y2=Y1-.8»W*SIN(A>
GOSUB 2000
X2=X1-H*SIN(A)
Y2«Yl~.e*H*C0S<A>
GOSUB 2000
X2=X1-W*C0S(A>
Y2=Y1+.B*W*SIN<A>
GOSUB 2000
X2=X0:Y2=Y0
GOSUB 2000
RETURN
REM DRAW LINE
LlNE(Xl ? Yl)-(X2,Y2) , PSET
X1=X2:Y1=Y2
RETURN
W^tMM^B^SMMzi
Erase After Drawing
The next step would be the erasure of the previous
rectangle as each new one is drawn. A time delay may also be
necessary to keep each rectangle on the screen for a brief
period before erasure. Since we have nothing on the screen
except the rectangles, the simplest way to erase the rec-
tangles is by clearing the screen. These changes could be
accomplished by adding the following lines.
323 FOR W = 1 TO 100: NEXT W
326 PCLS 1
You fnay often have other objects on the screen that you
do not want erased. Erasures of small areas can be achieved
by using GET and PLTstatements. You could GET a. small
area of blank screen and PUT'\\ over the area that you wish
(118,65)
4
/ N. ^
^^
^< / \ 2
(120,90)
(130,90)
(150,90)
We will use a length calculated from X= 1 1 8 to X=l 50, or 32
units. The width is from Y~65 to Y~90, or 25 units. Plugging
these numbers into the formula, we get:
SIZE = (150-1 18)*(90-65)/ 40
= 32 * 25 / 40
=20
Therefore, we can use a single dimension: DIM B(20). The
values used in the GET and PUT arrays for Y is 70 rather
than 65. This is possible because we arc scaling Y values by
0.8 to take care of the screen distortion. This is consistent
with earlier graphic articles that I have written in this series.
The Y difference (90-65 = 25) will now be:
0.8 * 25 = 20
This value is then used in the GET and PUT statements as:
GET(0,0)-(32,20),B and
PUT (1 18,70)-(150,90),B,PSET
August 1983 the RAINBOW 107
C-* ii — t ii~"* if™"t te> ur« r""»
COCOSLOTS
"as well done computerized one-arsed bandit as I can
imagine" JAN 1983 RAINBOW REVIEH......
ONLY - M2.00
RE VERS I
OTHELLO "this is a very good show Iron
CQCQFRO" DEC 1982 RAINBOW REVIEW
CHEAP — $12.00
FULL SCREEN EDITOR
Use arros-keys control for editing of basic programs,
Much such acre.
BARGAIN $i5,0g
COLOR DIRECTORY
This is the DIR coninand that you wish you had.
Sorted DIR list with selection. Optional display to
printer.
A MUST - - - $12.00
EXPANDED DIRECTORY
Save up to 12$ files on one diskette.
GOOD BUY $12. m
CASSETTE DIRECTORY
List prograi name, length, start, end and transfer
address. Free with all orders if requested or send
$2.5i for program on cassette.
Above prograniE written in machine language for 16k.
COCOSLOTS, REVERSI, CASSETTE DIRECTORY and FULL SCREEN
EDITOR do not require EXTENDED BASIC!!' But are
compatible with EXTENDED or DISK BASIC.
MASTER DIRECTORY
i Haster listing by diskette number with description.
t Master listing of all your programs in either
diskette er program sequence.
t Basic for easy costosmng: fast inach lang sort
I Requires 32k with printer
BEST SELLER — - m.M
*** FREE CATALOG ***
Send self addressed stafBpeti envelope.
Send check or money-order to:
COCQPRO
P.O. 3GX 37022
ST LQOIS, HO 63341
RAINBOW
CERTIFICATION
- Postage paid on pre-paid orders in continental U.S.
HO residents add 5.625"/! sales tas.
Rotating Rectangles — Version 2
99 REM SET SCREEN
100 PMODE 4,1:PCLS 1
110 COLOR 0,1: SCREEN 1,0
120 '
199 REM ASSIGN VARIABLES
200 X 0= 1 30 : Y0=90 : H= 1 : W=20
210 DIM B(20)
220 '
299 REM ASSI6N ROTATION ANGLE
300 FOR A=0 TO 1 . 5709 STEP . 5236
310 X1=X0:Y1=Y0
320 GOSUB 1000 <* go draw
323 FOR Z=l TO 100: NEXT Z
326 GET (0,0) -(32,20), B \
328 PUT ( 1 IS, 70) - (150, 90) , B, PSET J /
330 NEXT A
340 '
399 REM LOOP TO VIEW
400 GOTO 400
410 * END OF MAIN PROGRAM
420 '
430 '
999 REM SET UP END POINTS
1000 X2«X1+W*C0S(A)
1010 Y2=Y1-.8*W*SIN(A)
1020 GOSUB 2000
1030 X2=X1-H*SIN(A)
1040 Y2=Y1-.B*H*C0S(A)
1050 GOSUB 2000
1060 X2=X1-W*C0S(A)
1070 Y2=Y1+.S*W*SIN(A)
1080 GOSUB 2000
1090 X2=X0SY2-Y0
1100 GOSUB 2000
1110 RETURN
1120 '
1999 REM DRAW LINE
2000 LINE (X 1, Yl )- (X2, Y2) , PSET
2010 X1=X2:Y1=Y2
2020 RETURN
Four Rectangles To Make One
Although the rectangles rotated in the previous programs,
the time needed to draw the rectangles destroyed the effect
that we were trying to create. It was obvious that the
rectangles were being drawn, erased, and redrawn in a new
position. Let's now investigate another use of GET and
PUT. Each rectangle will be drawn along the right side of the
screen. Then we'll use GET and PUT to "pick off" the
rectangles and move them to the center of the screen one at a
time.
This version of the program will be faster because the
drawings are made first. The erasure has been eliminated
since each PUT overlays the previous rectangle. The only
108 the RAINBOW August 1983
r --
^
n
position 1
O
position 2
position 3
i
i
D
position 4
k
a
'
animation here
time lost in the rotation at the center of the screen will be in
the execution of the G£Tand PUT statements. The motion
of the rectangle rotation will be much smoother.
Rotating Rectangles — Version 3
99 REM SET SCREEN
100 PMODE 4, l:PCLS 1
1 10 COLOR 0,1: SCREEN
120
199
200
210
220
299
300
310
320
330
1.0
REM ASSIGN VARIABLES
X0=220 : Y0=30 : H= 1 : W=20
DIM B(20>
REM FOUR POSITIONS
FOR A=0 TO 1.5709 STEP
X1=X0:Y1=Y0
GOSUB 1000
Y0 =r Y0+30 < Each rectangle moved down 30 units.
,5236
340
350
399
400
410
420
430
440
450
460
470
999
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1999
NEXT A
REM ROTATE RECTANGLE
x=20B:y= 10: gosub 3000
Y=40: GOSUB 3000
Y=70! GOSUB 3000
Y= 100: GOSUB 3000
GOTO 400
' END OF MAIN PROGRAM
REM SET UP END POINTS
X2=Xl+W*COS(A)
Y2=Y1-.B*W*SIN<A>
GOSUB 2000
X2=X1-H*SIN(A>
Y2= Y 1 ~ . 8*H*C0S < A >
GOSUB 2000
X2=X1-W*CQS<A>
Y2=Y1+. 8*W*SIN (A)
GOSUB 2000
X2=X0:Y2=Y0
GOSUB 2000
RETURN
REM DRAW LINE
Genesis Software
presents
Color Computer Programs
* Secret Of The Crypt **
The BIG adventure continues. The sequel
to the popular "Enchanted Forest" is here!
You'll move in more than 50 hi-res, 3-D
graphic scenes searching lor clues in an
attempt to enter the crypt. But beware, the
trail to the crypt is beset with puzzlements.
In fact, the crypt's secret will remain a
mystery to all but the most adventuresome.
Requires 32K extended basic.
Tape cassel te (postage paid) $21 . 95
+ Bigfoot
Hunt Bigfoot in a hidden maze of caverns
and twisting tunnels that are displayed in
hi-res graphics as you move. Seek out the
lair of Bigfoot while avoiding perils along
the way. Features multiple levels and many
options of play. Each hunt takes place in a
new, randomly generated maze. Challeng-
ing and fun. Requires 32K extended basic.
Tape cassette (postage paid) $21 . 95
* The Enchanted Forest
The BIG adventure in hi-res graphics.
Move through more than 50 scenes on a
quest to rescue the captive princess. Deci-
sions are made according to visual clues,
not text. There are many inhabitants in the
Enchanted Forest — some are friendly,
some are not. This is a sophisticated com-
puter adventure — a real challenge. A
must for your adventure library. Requires
32K extended basic.
Tape cassette (postage paid) $21 . 95
(The Enchanted Forest was reviewed in the Dec. 1982
issue of Rainbow) ,
it The Game Show
Now a lively party game where two teams
compete against the clock to name several
items in a category. Includes 60 rounds
with color graphics and sound. Machine
language routine for fast response. Re-
quires 16K extended basic and joysticks.
Tape cassette (postage paid) $19.95
(The Game Show was reviewed in die Jan. 1983 issue
of Rainbow).
Genesis Software
P.O. Box 936, Manchester, Mo. 63011
Personal checks welcome - no delay. <5^i\
Missouri residents add 5.625 percent sales tax. rainsâ„¢,
August 1983 the RAINBOW 109
CI
a
o
m
o
in
in
a>
u
o
i
s
o
a.
c
o
o
n
o
V)
IA
a>
u
o
g
â– c
4)
IA
c
d)
o>
"2
2000
LINE(X1,
YD-
-(X2,
Y2),
PSET
2010
X1=X2:Y1
=Y2
2020
RETURN
2030
r
2999
REM GET
AND
PUT
3000
GET(X,Y)
-<X+32,Y+20>
,B,
G
3010
PUT < 118,
70)-
-(150
,90)
j Bj
PSET
3020
RETURN
would know about the rectangles on the unseen screen.
What you GET is what you PUT
Now that you see how GET and PUT statements work,
you can eliminate the four rectangles on the right side of the
screen and place them on pages of memory that will not be
shown. Since we are working in PMODE4, four pages of
memory are used to fill up the d isplay screen. Eight pages of
memory are needed for two screens.
r
1
page 1
page 2
page 3
L_
-i
page 4
Turn on these Pages
for Rotating
r
pages
f
page 6
â–¡
page 7
k.
J
page 8
Use these Pages to
Store Four Rectangles
You can change two lines and add one line to draw the
four rectangles on the unseen pages. Lines 100 and 1 10 are
changed and line 120 is added.
100 PCLEAR 8 -+- we need all 8 pages
110 PMODE 4,5: PCLS 1 *- d«.r pDgBS 5 -s
1 20 COEOR 0, 1 -*- (DO NOT turn on screen here)
Line 350 is added to clear the first four pages of memory.
350 PM6DE4 7 1: PCLS 1
To GET rectangles from pages 5-8 and PUT them on
pages 1-4, the G.ET and PUT subroutine is changed to:
2999 REM GET AND PUT
3000 PMODE 4,5 -&CET from page, 5-8
3010 GET(X,Y)-(X+32,Y+20),B,G^«otkeCi Sa ddedto get detail
3020 PMODE 4,1: SCREEN 1,0 *-tmnon w «i-(
3030 PUT(1 18,70)-(!50,90),B,PSET *-put p ^^
3050 RETURN
The complete fourth version using the above changes
follows. The rotation now takes place smoothly, and no one
Rotating Rectanges — Version 4
99 REM SET SCREEN
100 PCLEAR 8
PMODE 4,5: PCLS
COLOR 0,1
110
120
130
199
200
210
220
299
300
310
320
330
340
350
360
399
400
410
420
430
440
450
460
470
999
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1999
2000
2010
2020
2030
2999
3000
3010
3020
3030
3040
REM ASSIGN VARIABLES
X0=220: Y0=30: H=10: W=20
DIM B(20)
r
REM FOUR POSITIONS
FOR A=0 TO 1.5709 STEP
X1=X0:Y1=Y0
GOSUB 1000
Y0=Y0+30
NEXT A
PMODE 4,1: PCLS 1
REM ROTATE RECTANGLE
X=20S:Y=10: GOSUB 3000
Y=40! GOSUB 3000
Y=70: GOSUB 3000
Y= 100: GOSUB 3000
GOTO 400
' END OF PROGRAM
REM SET UP END POINTS
X2=X1+W*C05(A>
Y2=Y1-.8*W*SIN(A)
GOSUB 2000
X2=X1~H*SIN(A)
Y2= Y 1 - . 8*H*C0S < A )
GOSUB 2000
X2=X1-W*C0S(A)
Y2=Y1+.8*W*SIN(A)
GOSUB 2000
X2=X0:Y2=Y0
GOSUB 2000
RETURN
REM DRAW LINE
LINE (X1,Y1>-(X2,Y2), PSET
X1=X2:Y1=Y2
RETURN
5236
GET irom pages 5-8
REM GET AND PUT
PMODE 4,5 -*-~-~" V
GET(X,Y)-(X+32,Y+20),B,G
PMODE 4,1: SCREEN 1 , -
PUT ( 1 18, 70) - ( 150, 90) , B, PSET
RETURN /Won pases 1-4-
August 1903 the RAINBOW 111
An Application
The final step in any educational experience is the
application of what you have learned to some practical
objective. Suppose you needed to display a clock in order to
time some event. The rectangle could be narrowed to
dimensions of 2 by 20. You could then rotate the rectangle to
simulate the movement of a time clock.
In the previous programs we have rotated through 90
degrees with four different rectangle positions. This must be
extended to 360 degrees of rotation for the clock simulation.
We will handle the rotation as before except that we need a
clockwise rotation and 12 different positions. We also need a
circle to represent the face of the clock.
Version 4 of Rotating Rectangles will serve as the basis for
the clock program with these changes and additions.
XO, YO and H changed
200 X 0=20 : Y0=30 : H»2 : W=20
210 DIM B( 40 ) â– +- dimension extended
FOUR
A=6. 2832
299 REM
300 FOR
-.5236
310 X1=X0:Y1=Y0
320 GOSUB 1000
325 X0=X0+40
330 NEXT A
335 X0=20:Y0=80
340 FOR A=3. 1416
this section changed
POS I T I ONS — ta dra » 12 p<»"i™»
TO 3.6651 STEP
6 positions — top row
TO .5235 STEP -
.5236
345 X1=X0:Y1=Y0
BOSUB 1000
X0=X0+40
NEXT A
PMODE 4,1:PCLS
350
355
360
370
380
390
399
400
410
420
430
440
450
460
470
480
490
500
510
6 positions — bottom row
CIRCLE < 125, 90) , 30, 0, . 8^
add clock face
REM ROTATE RECTANGLE —
X=0: Y=16
FOR N=l TO 6
GOSUB 3000
X=X+40
NEXT N
X=0: Y=64
FOR N=l TO 6
GOSUB 3000
X=X+40
NEXT N
GOTO 400
' END OF MAIN PROGRAM
this section
changed for 360
degree rotation
area enlarged
3010 GET<X,Y)-(X+40,Y+32),8,G
1
3030 PUT (106, 74) -(146, 106) ,B,PSE
T
Pages 5-8 of graphic memory will hold these 1 2 positions.
r
1
â–¡
c^
^
D
o
â–¡
O
^
D
o
k.
..J
The FOR-NEXT\oop beginning at line 410 will pick off
the top row of rectangles, one at a time, and display them
near the center of the screen. The FOR-NEXT loop
beginning at line 460 will do the same thing for the second
row of rectangles.
The clock could be moved to any part of the screen by
simply changing the PUT statement at line 3030. If you
move it, be sure to keep the Pt/rdimensions the same size as
the GET dimensions. Also, move the circle in line 380.
Example: 3030 PUT(206,16)-(246,48),B,PSET
380 CIRCLE(225,32),30,0,.8
The clock will now appear in the upper right corner of the
screen.
If you wish to slow the rate of rotation, put a time delay in
the G£Tand PLTsubroutine following the Pf/rstatement.
Clock
99 REM SET SCREEN
100 PCLEAR 8
110 PMODE 4,5: PCLS 1
120 COLOR 0, 1
130 '
199 REM ASSIGN VARIABLES
200 X0=20 : Y0=30 : H=2 : W=20
210 DIM B(40)
220 *
299 REM FOUR POSITIONS
300 FOR A=6.2832 TO 3.6651 STEP
-.5236
310 X1=X0:Y1=Y0
112
the RAINBOW August 1983
YOUR COLOR COMPUTER JUST GOT WHEELS!
REVOLUTION!
You accelerate hard down a long straightaway,
braking heavily at the end for a hard corner.
You slice smoothly through the esses, and then
boldly keep the power on for a fast sweeper.
The Ferrari drifts dangerously near the edge,
but you make a tiny correction in the steering,
and you are through.
The finish line flashes by, and suddenly you
are in the pits. The car falls silent. You see your
lap times being held up. Your final lap was a
new lap record! At last, you permit yourself
a small smile.
You have mastered this powerful car on a
difficult track, driving with the assurance and
precision that comes only from long hours of
practice.
You are driving an authentic race car. You are
playing Revolution!
FANTASTIC ACTION
Revolution uses high resolution, machine language graphics
for action that is smooth and fast. The emphasis is on
authenticity in the control and motion of your car. As in
driving a real race car, accuracy and precision in your driving
are what counts. Frills and non-essentials have been left out.
PURE COMPETITION
Like a real race driver in practice and qualifying sessions, you
compete against the clock and against the existing lap record
for that track. Revolution records the lap records and the
name of the person who set the record, so you always know
who reigns supreme on your favorite track!
DESIGNED WITH YOU IN MIND
Revolution is menu-driven, and self explanatory. Informa-
tion screens tell you what you need to know. When you're
ready to play, a menu of the names of all your tracks is
displayed, along with the lap record for each track and the
name of the person who set that lap record . You select a track
with a single keystroke, and Revolution takes you there.
A NEW CONCEPT
Revolution is a unique game, because it allows you to create
the most important part of any race game: the track itself.
The first time you run Revolution, you will be able to choose
from several tracks and cars which are included with the
game.
But, with Revolution, this is only the beginning! You can
create as many tracks as you like. You can make each new
track as difficult or as easy as you wish. You can make easy
Ones to begin with, and tougher ones as you become more
skilled. You may find creating tracks to be almost as much
fun as driving on them!
You can save your favorite tracks to run on again whenever
you wish. Revolution will automatically add these new tracks
to the menu. And you can exchange your favorite tracks with
other Revolution owners.
Be careful, though, about letting your friends play this game.
They may not want to let you have your computer back!
THE EARLY REVOLUTION
A prototype version of Revolution was published in the
September, 1982 issue of Rainbow magazine, under the
name The Track. The response to The Track has been terrific.
Revolution has all the features that have made The Track a
favorite, and Revolution' 's fast, high-resolution machine
language graphics are dramatically improved over the
prototype's.
REVOLUTION NOW!
The original Revolution for the TRS-80â„¢ Color Computer
requires 32K and one disk drive. A new cassette version has
action just like the disk version, and similar track-saving
features excluding a menu of available tracks. The cassette
version will run on a32KColor Computer or TDP-100. You
can upgrade to the disk version later, too, for a nominal fee.
REVOLUTION
For 32K Disk $24.95
For 32K Cassette... $21.95
Requires Joysticks
& Extended BASIC
Connecticut residents add TViVn sales tax.
TRS-80 is a trademark of Tandy Corporation.
VISA'
Inter <^f> (^Action
113 Ward Street • Dept. R • New Haven, CT 06519 • (203)562-5748
RAINBOW
CERTIFICATION
SEAL
320 GOSUB 1000
325 X0=X0+40
330 NEXT A
335 X0=20:Y0=S0
340 FOR A«3.1416 TO .5235 STEP -
.5236
345 X1=X0:Y1=Y0
350 GOSUB 1000
355 X0=X0+40
360 NEXT A
370 PMODE 4, l:PCLS 1
380 CIRCLE (125, 90) ,30, 0,-8
390 '
399 REM ROTATE RECTANGLE
400 X=0: Y=16
410 FOR N=l TO 6
420 GOSUB 3000
430 X=X+40
440 NEXT N
450 X=0: Y=64
460 FOR N=l TO 6
470 GOSUB 3000
480 X=X+40
490 NEXT N
500 GOTO 400
510 » END OF MAIN PROGRAM
520 *
530 *
999 REM SET UP END POINTS
1000 X2=X1+W*C0S(A>
Y2=Y1-. S*W*SIN (A)
GOSUB 2000
X2=X1-H*SIN(A)
Y2=Y1-.S*H*C0S<A)
GOSUB 2000
X2=X1-W*C0S<A)
Y2=Y1+.8#W*5IN(A>
GOSUB 2000
X2=X0:Y2=Y0
GOSUB 2000
RETURN
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1999
2000
2010
2020
2030
2999
3000
3010
3020
3030
T
3040
REM DRAW LINE
LINE<X1,Y1>-<X2,Y2),PSET
X1=X2:Y1=Y2
RETURN
REM GET AND PUT
PMODE 4,5
GET ( X , Y) - ( X+40, Y+32) , B, G
PMODE 4,1: SCREEN 1,0
PUT(106,74)-<146,106),B,PSE
RETURN
f^s
114
for 13" TV
MONITOR (TV)
STANDS
for printers
$19.95 PS-1 1SWx11Dx4H
$22.50 PS-2 same as above with
slot for bottom feed
printers
$25.50 TS-1 1 5W x 1 1 D x 4H $35.50 TS-4 24W X 1 1 D x 4H
• ventilator holes
• slot for ROM pack
Colors available: ivory, smoked gray
deduct $1.00/stand for clear
1 Year guarantee on plastic and workmanship.
Stand may be returned within 30 days for, refund if not satisfied.
Howard Medical Company
Box 2 Chicago, Illinois 60690
(312)944-2444
Please send me the following stands:
Cat# Quan. Color Price
Shipping
IL Residents Add 6%
Total
Name.
Address
City/State
Zip_
We pay shipping on pre-paid orders
the RAINBOW August 1983
Fly your spaceship through
enemy Starbases. Avoid
guided missiles, lasers, and
firing turrets! Can you reach
their leader . . . ZAKSUND?
*
COLOR GRAPHICS
. . the creators of
— Intergalactic Force 1
— War Kings 2
-Party Pak 1
-Trek-16 2
— many other fine programs!
UHKW
£Llte -Saturate
Box 1 1 224
Pittsburgh, PA 15238
(412) 795-8492
ujgy
$24.95 Cassette
$27.95 Disk
Add $1 Postage and Handling
HA residents add 6% sales tax
MACHINE
LANGUAGE
BASIC TRAINING
Tidying Up Your Text
By Joseph Kolar
Rainbow Contributing Editor
This article is addressed to the newcomer to computing,
but anyone may benefit.
Being the nature of the beast, the color computer is a
visual delight. However, too often an otherwise well
designed program suffers from lackluster presentation of
text. This, and the next article, will help you create neat, well
centered text.
"The object . . . is to introduce a
few ideas to assist the newcomer to
computing to create neater, well
planned and centered text that will
be visually attractive. "
Lots of good programs lose a lot of their impact due to
sloppy and thoughtless presentation of text. How often have
you seen a few lines of instructions or input requests jammed
up into the upper left-hand corner of the display screen,
which give a poor visual presentation and defy the laws nf
centering?
The object, therefore, is to introduce a few ideas to assist
the newcomer to computing to create neater, well planned
and centered text that will be visually attractive.
First, let us create a simple title page. We want the text on
the page to be centered horizontally as well as vertically.
Key in line:
100 GOTO 100
(Joseph Kulur is a free-lance writer and programmer
dedicated to proselytizing for computers in general,
and the Co Co specifically.)
This continuous loop will keep the display on the screen
so you can RUN youx program as often as you like to check
your progress. It is good policy to keep a "hold display'Tine
just before the balance of your program, because titles are
generally written after a program is completed.
Key in:
10 FOR 1= 1 TO 3:PRINT:NEXT 'THIS LINE WILL
GIVE YOU 3 BLANK ROWS ON TOP OF
SCREEN.
20 PRINT TAB (9)"RAINBOW IDEAS" 'THIS WILL
CENTER THE TITLE. RUN IT.
30 PRINT TAB (10)"YOUR NAME" ' THIS WILL
CENTER YOUR NAME. RUN IT.
You will notice that it isn't properly centered. It should be
more to the left. Change the "8" to a number you think it
should be. RUN it. Keep running and changing the number
until you are satisfied with the centering.
40 PRINT TAB(8)"YOUR TOWN AND STATE-
ADJUST IT BY CHANGING THE NUMBER,
IF NECESSARY. WHEN YOU HAVE THE 3
LINES NEATLY CENTERED, YOU WILLNO-
TICE THAT THE TITLE IS TOO HIGH ON
THE SCREEN. CHANGE THE 3 TO A 5 IN
LINE 10. THIS WILL ADD TO MORE PRINTS
TO LINE 10.
Look at your handiwork. If you just want a three line title,
BREAK, LIST. List the routine in your notebook or on a
sheet of paper.
10 FOR 1= 1 TO 5:PRINT:NEXT
20 PRINT TAB ( )" "
30 PRINT TAB(1 l)"YOUR NAME"
40 PRINT TAB(6)"YOUR TOWN AND STATE"
100 GOTO 100 TEMPORARY LINE UNTIL TITLE
IS FINALIZED.
1 his format will always be the same. Substitute your
name and address in lines 30 and 40 and put in the appro-
priate numbers. Line 20, the title, will always be different so
the position is unknown.
116
the RAINBOW
August 1983
Federal Hill Software
FINE PRODUCTS FOR THE COLOR COMPUTER AND TDP-100
The Handicapper
Use the power of you Color Computer to improve your
performance at the track! The Handicapper istwo sepa-
rate programs for thoroughbred and harness horses
that apply sound handicapping techniques to produce
rankings for the horses in each race. Factors include
speedy distance, track condition, post position, past
performance, jockey or driver's record and other attri-
butes. With a little practice, you can handicap an entire
race in a few minutes and a whole card in less than an
hour! Easy enough for the beginner, sophisticated
enough for the veteran horseplayer. Cassette comes
with both Extended and Standard Basic versions (the
only difference is in the graphics). Includes complete
documentation and betting guide. Thoughred or Har-
ness Handicapper, $24.95 each on tape. $29.95 disk.
Both programs only $39.95 tape or disk.
Coco- Accou ntant
Were your taxes a mess this year? Let Coco-
Accountant keep track of your finances and make those
deductions a breeze! Using data from canceled checks,
Coco-Accountant lists and totals expenses by month,
account or payee. It provides a year-to-date summary
by account, sorts checks by date, lists to screen or
printer and saves data on tape or disk. In addition, 32K
version flags tax deductible checks and checks subject
to sales tax. It even computes the sales tax you paid,
afeature that can pay for the program when deduction
time rolls around. Disk version has even more features.
There's nothing like this anywhere at the price! 16K
handles 200 entries, 32K Up to 450. RequiresExt. Bas.
Oniy $15.95 on tape, $21.95 on disk.
Printer Artist
This unique printer utility introduces the Color Com-
puter to the little known but delightful craft called
"Artyping." This is the art of creating pictures using
typewritten characters, and Printer Artist puts it at your
fingertips. It includes two programs with 12 ready-to-
run drawings of of ships, birds and animals, holiday
and patriotic themes, famous Americans and more. In
addition, there are two utility programs and in-
structions for 40 additional drawings. Create your own
file of printer art and save it to tape or disk. Complete
documentation. Fun for home or classroom. Only
$19.95 on tape, $24.95 on disk. Requires Ext. Bas.
Play Blackjaq
This is as close as you can come to the real thing
without using your shirt. A full casino simulation, with
up to 5 players and 9 decks. The computer plays vacant
hands by card counting rules, keeps track of every-
body's winnings and losings, displays two card-
counting algorithms and even prints out the results of
every hand if a printer is on line! Joystick option fortwo
players. Great for the beginner or experienced player.
Use it at home for fun or brush up on your technique
before hitting Atlantic City or Las Vegas. Requires 16K ,
Ext. Bas. Only $19.95 on tape, $24.95 on disk.
64K Breakthrough!
Did you feel gypped when you found out your "64K"
computer still had the same old 32K in Basic? We sure
did. So we've developed HID 'N RAM, a program that
will access that "hidden" 32K from basic and use it for
data storage. Imagine writing a 28K data handling pro-
gram with every bell and whistle you can think up and
still having 32K left for the names, numbers ahd ad-
dresses you're crunching! This isn't one of those
arcane 64K "DOS" programs that machine language
lovers love to brag about. It's a brief ML driver em-
bedded in a Basic demonstration program that shows
you how to store your data in the "other" 32K and
access it using regular Basic commands. When you see
how it works, you can delete our program and write
your own. The ML driver stays with the program! Use it
from tape or disk. So what's the catch? There's only
one. Your data must be in strings of equal length —
which the program takes care of— and that length must
be a power of 2 (such as 4, 8, 16, 32 or 64 bytes). And, of
course, you must have a 64K computer. That's it. Com-
es with complete documentation. HID 'N RAM is only
$19.95 on tape, $24.95 on disk.
"I Can Talk!
)5
Now two exciting programs can makeyourColorCom-
puter talk using digitally recordedhuman voice. No ex-
pensive hardware necessary! Hearing is believing!
TALK PROCESSOR:Quick and easy to use! No pro-
gramming required. Just type in two-letter commands
to produce hundreds Of statements in three different
voices. 26-word vocabulary. Great fun for kids! Re-
quires 16K Ext. Basic. Only$19.95.
ADD-A-VOICE: This 4K machine language utility
adds a hew dimension to your game and quiz pro-
grams. Generate digitized human speech with just a
few simple Basic commands. 25 words in all, easy to
use. Specify 16K or 32K. Does not require Ext. Bas. Just
$19.95.
SPECIAL!— Order TALK PROCESSOR and ADD-A-
VOICE for only $29.95.
Kokomath!
Teachers and parents: Are your kids bored by dull
educational programs? Let KOKO the. Math Clown
make arithmetic a joy. KOKO gives your youngsters 10
math problems. If they get them all right, they give
KOKO a bath! He keeps track of their score. Add, sub-
tract, multipiy an divide at three levels of difficulty.
Colorful graphics and music make this a kid-tested
winner! Includes both Extended and Standard Basic
Versions. Only $8.95
To order programs, send check or money order to
FEDERAL HILL SOFTWARE, 825 William St., Balti-
more, MD 21230. Your personal check is welcome — no
delays. Add $1 .50 per order for postage and handling.
To make a new title page, just copy the lines. Guesstimate
the tab number and key in your title name. Keep all the lines!
Then CLEAR, RUN, and if it is off center, move it by
changing the number until you are pleased with the result.
Before long, as you keep using this technique, you will
commit to memory the routine and the tab numbers for your
name and address. There is nothing to prevent you from
adding more lines lo the title. Make sure you center it
horizontally and then vertically.
You may center by the guesstimate system or do it the
exact way, as follows:
1 ) Count the letters in your title. If you get an odd number
for the total, add 1 to the result.
2) Divide the result by 2.
3) Subtract the result from 16 to get the tab number.
After making a few title pages, use the system yon prefer
and you will create attractive title pages.
We have to get rid of line 100 and replace it with some-
thing else or the program will never be seen.
One way would be to have a time delay to allow adequate
time to read and absorb the contents of the title before
continuing. Delete line 100 and key in:
50 FOR Z= 1 TO 1000:NEXT 'ROUGHLY EACH IS
EQUIVALENT TO 2 SECONDS. RUN IT.
You will get an "OK" when the time ( 1 000) is up. Was that
enough time? Change the 1000 to 2000 and RUN it. If you
would like more time, change it to a higher number until you
are satisfied that it is just right to read and absorb the
message of the title. Never make it overly long because the
reader will become impatient.
Write line 50 in your notebook and refer to it until you
memorize it and its significance. Note that it isn't necessary
SUMMER SALE
©m-fTrVaaiaa
$16.95
^CRYSTAL REVENGE!
A very highly rated high res space
war game with A touch of humor. The
only program to use fully controlled
false color in PMODE4 See review in
Apr i 1 Ra 1 nbow .
4star f- ire WAS $21.95 NOW $18.95
Great machine language version of
DEFENDERS. Highly rated and fast
action! By Intel lee tronics
•-» dunkey munkeyWAS $24.95 NOW $15.95
Nice KONG type game by Intellec-
tronics Great for children and
adults. For 32K only
*)ADVENTURE TRILOGY WAS $24.95
THIS MONTH ONLY $22.95
A three part 3-D graphic adventure.
Great graphics and fast machine
language action Will you survive?
A ColorQuest game
WAS $16.95
NOW $14.95
A maze graphic adventure Uses low
res graphics, but lots of action Bv
Rainbow Connection Software.
16K EXTENDED BASIC CASSETTES
•4-SCEPTER OF KZIRGI.A
$1.25 Per Order
Postage &
Handling
Alt Orders Receive
10% Voucher Ori Order
OWL-WARE
P.O. Box 116
Mertztown, PA.
19539
PA. Res. lnclude6%Tax
to add "Z" after next, since the computer understands that
the next refers to the time waster "Z."
Another way to move on is as follows:
Delete line 50 and key in
50 PRINT:PRINT
60 PRINT:INPUT"TO CON I IN UE, PRESS
ENTER'\0V
We skipped three lines below your title via PRINT and
added line 60 to exit the page. RUN it. Notice how it looks a
little odd butted up to the left margin? Correct this defect by
inserting two "spaces" after the first quotation mark.
That's better! In fact, make it an operating procedure to
always start With two spaces when you input. If you think
the input statement would look better if it were lower, add a
": PRINT' to line 50. If you like that better, leave it. If you
liked it the other way, lop off the last "PRINT" from line 50.
Now copy lines 50 and 60 in your notebook for reference.
You will use it exactly as it is listed many, many times.
You may want to use the short form. If so, change line 60
to read:
60 PRINT:INPUT" PRESS ENTER"fil
RUN it. Did you leave two spaces after the first quotation
mark? If you would rather have it more to the right, just
change the number of spaces to seven or eight instead of two.
Either way, it looks good. Note the PRINT in line 60. It
always looks better if you skip a row between previous lines
and the INPUT statement.
Where do we go when you press ENTER! To the next
page! If you do not have a new page key in:
70 CLS:PRINT:PRINT ' THIS CLEARS AWAY
THE TITLE PAGE AND SKIPS 2 LINES.
If you are printing text, you would skip one line, and after
the second PRINT, add a quotation mark and two spaces.
Back to the title page! CLEAR, RUN. Suppose you want
to write a short statement under your title? LIST, ENTER.
Change line 50. Instead of skipping two rows, we will skip
one line and use the second PRINT to begin our new
paragraph.
50 PRINT:PRINT" THE RAINBOW MAGAZINE
IS THE"
52 PRINT"BEST MAGAZINE FOR NEWCOMERS
TO"
54 PRINT'THE WORLD OF COLOR COMPUT-
ING."
RUN it.
It looks neat and centered horizontally but it looks a bit
off in the vertical direction. LIST-50. First, knock off a few
of the blank rows from the top of the screen by changing the
5 to a 3 in line 10. RUN it and see what you have. That looks
good! Maybe, we ought to move that "press enter'Tine down
one row so it doesn't look like part of the paragraph. LIST
and ENTER.
We can do one of three things:
1) Add":PRINT"toline56
2) Insert line 58:
58 PRINT
3) Insert "PRINT:" before or after "PRINT" in line 60.
Take your choice! Notice that line 52 has two spaces to
start a sentence, but that lines 54 and 56 butt right up to the
left margin because they are a continuation of a sentence.
RUN your program one more time! Isn't that pretty
good?
In the next article we will show you a better way to write
lines 50 through 54.
I hope you had fun and learned a lot!
118
the RAINBOW August 1983
CoCo ALBUM
InTTateirt T*t b« HMIHM vita btvi tor rht Itiio Shadt Calm- C«Mtn
The hoard ft*nif« !
Ssftwi profrs^mitt liM lwifrhs
UPPER C6S »4 lflww cut chvKTtr set
?Tff|r8M**l* CttTSSr fflfMt
E*si instillmeri-pluss into Bfflt part
OnfcHrtf B3R einssion for tutwt wr< processor
(3
WORD-PAK
DISPLAY
©
ob
C-C BUS INSTALLED
WORD-PAK
WORD-PAK
80 column video board for the Radio Shack Color Com-
puter. No longer do you have to sacrifice valuable memory
and strained eyesight to expand the video display of your
computer. The board features:
• Full ASCII character set (also supports
custom character sets for user specific ap-
plications)
• Programmable line lengths and cursor formats
• On-hoard ROM expansion for future word pro-
cessor
• 5(¥60Hz operation
• Easy installation-plugs into ROM port
• Available for cassette or disk based systems
(disk systems require the use of a 'Y' connec-
tor or expansion bus)
• Contains it's own video RAM-requires no
system RAM
Trie WORD-PAK produces a composite video signal and
requires the use of a monitor capable of displaying 80 col-
umns of text.
Think of the applications!!
Price: $169,95
MEM-PAK
16K RAM/ROM expansion board. Expand RAM (for un-
modified Rev. E and older computers) or put your pro-
grams/utilities in ROM for instant loading. Utilizes 24 pin,
compatible RAM/ROM/EPROM memory devices.
Pries: $114.00 (with 16K RAM)
P-C PAK
Parallel printer port and real time clock. Free up your serial
port by adding this Centronics compatible parallel port to
your computer. The board also features a real-time clock
with battery back-up capability (optional).
Pric«: $122.95
C-C BUS
A fully buffered, six slot expansion bus for your CoCo.
Each slot is software selectable, allowing up to six car-
tridges/accessory boards to be installed simultaneously
with no contention problems. The bus also supports
boards designed to use the high memory (HFF60-FFBF)
area as I/O. Simply connect the C-C BUS to the ROM
port** and you can expand memory (up to 128K for Rev E
and older computers that can 'write' to the ROM port), add
a parallel port, FPROM programmer, voice synthesi7er.--
you name it, and software select the one you want to use
without having to turn the computer off to change car-
tridges.
Think uf the potential!!
Price: $128.00
Option 1. Power supply $24.95
The C-C BUS can use either the computers
power supply (this will limit the number of
devices you can install on the bus) or an on-
board power supply.
Option 2. Molded plastic cover $Call
** Requires S-cable (below)
PROTOCoCo
Prototyping board with all the features.
• 20 sq, inches of prototyping area
• All signals identifyed on board
• Designed to fit inside a disk controller case. Gives
your finished prototype a professional look.
• allows either point-to-point wiring or wire-wrap.
Price: $14.95
SPECIAL:
BMC Model 12A Monitor
ONLY $89.00 with purchase
of a Word-Pak.
MAIL ORDERS:
Send check, money order, MASTERCARD/VISA (include
card number, interbank number, expiration date and
signature) for total purchase price, plus $2.50 for shipping
and handling (Canadian orders please add $S.U0). New
Jersey residents add applicable sales tax.
V
inc.
P.O. BOX 813
N. Bergen, N.J. 07047
(201)330-1898
ACCESSORIES
Y-cable
S-cable
$29.95
$19.95
Color Computer is a Trademark of Radio Shack
a Division of Tandy Corp.
Software Review
Bloc Head Requires
Skill, Concentration
After pumping more quarters than I care to mention into
the arcade game, Q-Bert, I came across a Color Computer
version called Bloc Head. After CLOADMing the game into
my computer, I realized that it was very similar to the
popular game that I had been enjoying for the past couple of
months, spending lots of time and money on in the local
arcade. Perhaps I was the "Bloc Head" for not discovering
the home version sooner, but, at any rate, the game is
addictive.
Bloc Head is a little, black, egg-shaped character with
extended arms and legs. He sort of looks like Humpty
Dumpty with bright green eyes and a glowing smile. The
objective for this cute little creature is to change the color of
the 27 cubes to the color indicated in the upper right corner
of the screen. This is done simply by jumping from cube to
cube* without going off the edge, in order to score as many
points as possible. Each cube the Bloc Head successfully
jumps on scores 25 points. Sounds easy, right? — Wrong!
Aside from the problem of getting accustomed to the
direction of the joystick, there are also a number of strange
monsters destined to destroy you as you are jumping on the
cubes. Skill and concentration are required in order to
achieve the objective.
The monsters of the game can either be rewarding or
dangerous. The "Blue Egg" or the "Oops" monsters can be
destroyed by jumping on them for 100 points. The addi-
tional colored monsters are deadly and should be avoided
SOME OF THE PROGRAMS THAT MADE Mr. H'S THE SOFTWARE
LEADER FOR THE IM-l/lM-2 ARE NOW AVAILABLE FOR THE
COLOR COMPUTER, 16k, EXT BASIC. PROGRAMS LIKE
MURDER
ENTER THE MANSION AND FIND OUT WHO KILLED
MRS MCDERMITT. CATCH THE CAT & SLAY THE KILLER, YOU
SEE THEY ALL MOVE IN THIS CLUK TYPE THRILLER. IT'S
A CHALLENGING, REALISTIC WHO DONE IT ??? 1^-95
FOR EDUCATION TRY
JAIL
AN EXCELLENT TOOL TO ENHANCE SPELLING ABILITY, FOR
ALL AGES. NOT A 'HANGMAN' TYPE PROGRAM, BUT A USEK
CONTROLLED, 2 PROGRAM TAPE.
1. CREATE YOUR OWN WORD LIST (YOU CONTROL THE
DEGREE OF DIFICULTY AND AGE LEVEL).
2. JAIL - YOUR LIST IS READ INTO THE PROGRAM &
THE FUN/LEARNING BEGINS. ONE OR TWO PLAYERS
COMPETE IN A SPELLING OR PHRASE CONTEST AND
THE LOSER GOES TO JAIL. 16.95
(CREATE TAPES OF VARYING DIFICULTY FOR EACH GRADE)
2FER
1. GONDOLA - PILOT YOUR BALLOON OVER THE MOUNTAIN
& LAND SAFELY AMONGST THE TREES. WIND, GRAVITY
& MOTHER NATURE ARE FACTORS TO CONSIDER. THIS
ONE LOOKS EASY, TRY IT ?
2 . COPY CAT - MATCH, THE COMPUTER IN THIS SIMON
TYPE GAME, IF YOU CAN. 2FER 9.95
ALL PROGRAMS ON CASSETT / WE PAY THE POSTAGE
COD (ADD $2) Mr. R's
68 KELLY ROAD
COD or MONEY ORDER
FOR 24- HOUR SERVICE
TEL 203-6/44-181?
SO WINDSOR CT
060?4
whenever possible. When the black monster reaches the
bottom of the screen, he changes into "the Spring" which is
the deadliest monster of all. You must then try to persuade
him to chase you towards the "blinking bus stops," which
are located at the bottom of the screen. If "Spring" is follow-
ing close enough behind you, as you jump oh the bus stop, he
will try to follow you, but will instead fall to his death, as the
bus stop transports you back to the top of the screen. If this
is done successfully, it is worth 500 points. Although I killed
"Spring, " at the same time, another monster was coming out
of the top of the cubes, setting out to destroy me all over
again. When all the cubes are changed, the award is 2500
bonus points and a new wave begins.
I found that it is a good idea to get familiar with the
playing screen during the first two screens because the third
screen is invisible at the beginning. The 27 blocks are Unseen,
and, when you jump on them the color and the block appear.
A box in the upper right corner tells you how many blocks
you have changed — if you have time to notice. This Was the
toughest and most challenging level of the game. I have Only
been able to play the invisible screen twice, because my skills
did not allow me to go further than the first two screens.
Bloc Head has two skill levels, either EASY or TUFF.
The only difference I found is that the TUFF level has extra
monsters chasing you. You start the game with four Bloc
Heads and an extra one is provided for every 10,000 points
you accumulate. The game is over when you lose your last
Bloc Head.
The instruction sheet is very informative and easy to
Understand. Bloc Head features good quality graphics and
sound effects. The visual effects are great, too. I really felt as
if the monsters were chasing me, so I became determined to
"trick them off the edge. "It takes a lot of practice for one to
get used to the joystick. I "committed suicide ""a number of
times by making just one wrong move and falling off the
edge, but after playing several times, I finally got the
maneuvering of the joystick down pat.
Bloc Head requires 16K and one joystick, although you
may need two just in case the first one wears out. 1 highly
recommend this game for both children and adults who
want to put their skills to a test. Personally, there is no other
computer game I have become more addicted to. Bloc Head
is a very enjoyable game — and best of all — you don't need
quarters!
(Computer ware, Box 668, Encinitas, CA 92024, tape $26.95,
disk $29.95 + $2 S&H)
— Jutta Kapfhammer
S©C VOICE SYNTHESIS
BUILD Y 0US OWN VOTRAX SC-«l SPEECH MODULE THAT PLUGS INTO
THE SERIAL POET. ENJOY THE FUN THAT COMES WITH BEING ABLE
TO PROGRAM YOUR SYSTEM TO SAY ANY TCXT YOU WISH. USE IT TO
ENHANCE GAMES, AS A TEACHING AID, OR TO HELP A DISABLED
FRIEND. NO SPECIAL TOOLS REQUIRED. SIMPLE STEP BY STEP
IHssXHUCTIflNS USING EASY TO OBTAIN RADIO SHACK STOCK PARTS
(Except the VOTRAX chip, tar which I provide a supplier's list).
COMPLETE INSTRUCTIONS) INCLUDING SAMPLE PROGRAMS. »5.*«
* OR »
CUSTOM MADE PRINTED CIRCUIT SEND CHEQUE OR MONEY
BOARD. REDUCES HIRING TO A ORDER TO: B.T.PEARCE
MINIMUM. INCLUDING SAMPLE 763 MULVEY AVE.
PROGRAMS AND INSTRUCTIONS. WINNIPEG MANITOBA
»15.»e PLUS *U* POSTAGE CANADA R3M 1G4
Manitoba residents include 5S sales tax
120
the RAINBOW August 1983
ELIMINATE
THE CLUTTER
I tm* 'â–
:;.*»»»''; : H
^^^^^^w
1 *"*
1 •■■•
• w«
1 •"•
1 *"'
THE ORGANIZER
ALBUMS TO HOLD YOUR CASSETTES
Store and organize your cassette library. The Organizer is
constructed of black vinyl with rigid molded plastic frame to
prevent crushing. Label holder welded on the spine for quick
identification of contents. Order albums filled with BASF-
DPS, C-IO tapes and get an even better deal!
Item Price
Organizer- 1 2 with Tapes
Organizer- 1 2 without Tapes
Organizer-6 with Tapes
Organizer-6 without Tapes
$12.95
$6.95
$8.95
$4.95
Shipping: $2.00 for first item + $.50 for each additional item.
THE COCO-SWITCHER
A QUALITY PIECE OF HARDWARE
The CoCo Switcher allows you to hook up three peripherials
to your RS-232 jack. Connect your modem, printer and any
other RS-232 compatible peripherial to the CoCo Switcher.
Select among these peripherials at the flick of a switch on the
front, of the CoCo Switcher or turn them all off. No more
scrambling around behind your computer. No more risk of
harming your computer's RS-232 port. An LED on the CoCo
Switcher shows if your computer is on or off at a glance.
The CoCo Switcher is contained in a sturdy black anodized
steel box which sits firmly on rubber feet.
Dimensions: IVi' (64mm) x 4" (102mm) x5 7 /8" (150mm)
$39.95 plus $2.00 shipping and. handling
MORETON BAY SOFTWARE
A Division of Moreton Bay Laboratory
316 CASTILLO STREET
SANTA BARBARA
CALIFORNIA 93101
(805) 962-3127
California Residents, Add 6% Sales Tax to Orders
THE COCO-WRITER
MORETON BAY SOFTWARE'S NEW
WORD PROCESSING SYSTEM
(For the TRS-80 and TDP-100 Color Computers)
EDITING FEATURES
Pleasant green, white and black display. Full screen editing
with cursor control. All keys repeat automatically. Tne word
wrap-around eliminates split words on the screen. Edit any
ASCII file, including Basic programs. Use the calculator
functions of your computer without losing your document in
memory.
Insert, delete or type over characters.
Insert, split, delete or copy lines.
Insert, copy, move or delete blocks of text.
All insert, delete, move and copy commands are completed
virtually instantaneously. Instantaneous response to keyboard
input. Even the fastest typist is not likely to out pace the CoCo-
Writer. Find any word or character string in the document.
Memory count and status indicators show on the edit screen.
All 128 ASCII characters can be entered from the keyboard.
PRINTING FEATURES
Justify text at right or left margin. Justify text at both margins
simultaneously for a professional looking document (such as
this text) . Automatically centertext for titles and letter heads.
Automatically number pages beginning at any number-
between and 255. Print part or all of a document. Repeat
printing of all or any portion of a document up to a 100 times.
Select single sheet or continuous form printing. Embedded
printer controls. Change justification, print font, and line
spacing with commands in the text which do not print in the
document. Print in upper/lower case or all capital letters.
TAPE FEATURES
Document memory space with I6K: 7424 characters.
Memory space with 32K: 23,808 characters. The CoCo-
Writer has the same features on either a I6K or 32K system
and automatically adjusts to memory upgrade. Load and save
files in ASCII or binary format. Load and edit the ASCII files
produced by other word processors. Save part or all of a
document or tape. Merge tape file into existing document in
memory.
ADDITIONAL FEATURES OF DISK VERSION
Spool printing feature allows simultaneous editing and
printing. Menu selections simply and quickly controlled with
cursor. Control I to 4 disk drives. Load and save files on disks in
any one of these drives. Split screen disk directory for all disk
input and output menus. Improved directory scrolling. File
names do not disappear off the top of the screen. Error
trapping for all disk file names. If you enter an invalid
command, the command will be terminated and the system
will report the type of error.
CoCo-Wnter comes with excellent documentation. The
clearly written manual includes a table of contents and an
index. A separate, sturdy, laminated card contains a summary
of all commands for quick reference.
CASSETTE VERSION I6K OR 32K EXTENDED BASIC
$34.95
DISK VERSION ON CASSETTE I6K OR 32K
EXTENDED BASIC
$44.95
(Protect your investment! Quick and automatic cassette load
onto disk providing a dependable disk backup.)
By Ken (hirer
I am among those who feel Adventures are the most entertaining and
challenging games for microcomputers. They require skill, luck, common
sense, curiosity and just about everything else. My friend Mike and I have
played everything from Zork to Adventurelund, 1 seem to be attracted to
Adventures and 1 hope the attraction never wears off.
During the summer of 1982, wc decided to write Enrak. It was quite a
challenge for us but we have finally finished writing the game, It took nine
months to program the game. In my opinion, it is the best program we have
written for the Color Computer. Many hours of frustration were put into
Enrak, but we think it has finally paid off.
As in most Adventures, there is an objective to achieve. This Adventure is
no different. In Enrak your objective is to find the 10 treasures of the
Enrakian Empire. This may seem like an easy task but it is not as easy as you
think. A vulture and a gunfighter are only some of the obstacles that must be
overcome. The game consists of 50 locations. Also, there are approximately
80 words that this Adventure understands. In some games of this type, the
verbs are listed for the player's convenience, 1 am not going to do this because
they can be found by looking at the listing of the program. If it's necessary to
look at the list to help you find treasures or overcome obstacles, it's really not
worth the trouble to continue playing the game. The reasons for Adventures
are to challenge your skills and intelligence. If you have problems finding
something, just use your common sense, skill, curiosity and experience, This
particular Adventure is semi -difficult. It was made for the junior adventurer.
On the other hand, it really is enjoyable and challenging for all ages!
Enrak accepts such commands as GET, DROP or N for north. In some
places there are short pauses, but the pauses do not slow the game down very
much. The game also consists of a saving feature. All you have to do is type
SA VE&tid it will ask you for a filename. After entering the filename, press
play and record on your tape recorder and then press ENTER. The saving
feature is very useful in Adventure games. Some Adventures which 1 have
purchased are rather expensive and do not have a save feature incorporated
into the game. I find it necessary when playing long and complicated
Adventures to use the saving feature many times.
J° >
M>$&mj
122
IheftAINBOW
August 1933
mmmmtm
This game takes nearly all of my 16K. Adjusting or separating
linrs will hring nothing hut trouhle for you. This program has
been debugged and played many times. The chance of an error
arising in it is very slim, Mike and I wanted to add more rooms,
tricks and traps but memory limitations would not permit us to
do these things. Anyone who has 32K out there is extremely
lucky!
If you would like the words to appear on the screen slower
/ , (?A. : £'359,60, and to escape this mode POKE 359.0. This seems
to add a nice touch to the program. If a friend happens to come
over and wants to play this Adventure, it would be nice to stop
him or her from looking at the listing of the program. If you
would like the program to stop listing POKE 383, 15K. Some
numbers may appear on the screen when you type LIST, but
this is no problem. To escape this mode POKE 383,0,
We hope this program is as enjoyable for you to play as it was
for ns to program. If you would like help with this game, please
write: Ken Ostrer, P.O. Box 61542, Vancouver, Wash., 98666. 1
would be happy to assist you in any way possible. Mike and 1
(Ken Ostrer, a senior and honor student at Vancouver,
Washington 's, Hudson Bay high School, enjoys com-
puters, rock music, and science fiction. He hopes to
someday enter the field of computer science.)
have decided to give you a little hint before you begin the
journey: "The key to success is a wide open experience." Good
luck and happy Adventuring!
V
1100. .
1C37
70 ... .
..0426
1260..
2000
140...
. 076F
1360..
.2260
290.,.
, 0A3E
1510..
24E2
390 . . .
. 0EE5
1610..
.2760
580...
,1293
1720..
.2949
680...
, 16B3
1830..
2C87
870 .. .
. 18F4
END .
2EC9
1 CLEAR 120! CLS : L T= 50 £ : D I M A* ( 50 )
,RM(50,4> ,IT*(35) , ITC35) , JT*(35)
:PRINT@230, "ENRAK":PRINT@262,"BY
KEN OSTRER": PR I NT0294, "MIKE SMI
TH" :PRINT@326, " (C> MARCH 1983" IP
RINT: DATANORTH, SOUTH, EAST, WEST
August 1983
the RAINBOW 123
20 RT*(3)«"THE DUKE OF 'BONE*
BORN 786 - DIED 835":
RT*<4)="IQVQ QRGP EQHHKP CPF UOG
NN VJG TQUG":RT* (5) -"SILENCE IS
NICE. . "
30 DATA "NORTH OF A FOREST, THERE
IS A CAVE TO THE EAST"
40 DATAIN A CAVE, ON A WINDING MO
UNTAIN PASS, ON A FOREST TRAIL, AT
A THREE-WAY INTERSECTION OF PA
SS AGES, AT A TURN IN THE PASSAGE,
IN A LARGE CAVERN, IN A SMALL CAV
ERN,AT A BLOCKED PASSAGE, AT THE
BRINK OF A DEEP PIT, ON A FOREST
TRAIL
50 DATAIN A SMALL CLEARING, IN TH
E HEART OF A DARK FOREST, AT A RI
VER'S ESTUARY, IN A FOREST, ON A F
OREST PATH, ON A FOREST PATH, ON A
JAGGED ROAD, ON A DARK ROAD,NORT
H OF A MINING TOWN, IN A MINING T
OWN
60 DAT A AT A TOWN MARKETPLACE, IN
A PUB, AT A VERY QUIET GRAVEYARD,
AT AN ENTRANCE WAY
70 DATAIN A VERY LONG CORRIDOR, I
N THE MAIN LIBRARY, IN A VERY LON
G CORRIDOR, IN A GIANT LABORATORY
,IN A TORTURE ROOM, IN A TIME ROO
M.,IN A DINING ROOM, IN A SOUND P
DISK ZIPPER
COLOR DISK UTILLITY PACKAGE
A MENU DRIVEN SYSTEM DISK CONTAINING:
ERROR CRASHIESS BACKUP DUAL AND SINGLE DRIVE
WRITE OR READ ANY SECTOR :CHECK DISK FOR ERRORS
PAGE DISK THROUGH ANY PMODE WINDOW IN COLOR
DUMP DISK IN HEX OR ASCII PRINTER SUPORTED
LOAD ML TAPE TO DISK RELOCATES UNLOADABLES
WITH COMPLETE MANUAL â– REQS3EK RS DISK
ONLY B4.B5
ARCADE - CONTROLS/ .
WICO MADE JOYSTICK INTERFACE: TWIN STICKS^^ '
ALLOWS ANY TWO JOYSTICKS TO WORK ON THE
COLOR COMPUTER: ONLY1S.S5
* CC "^r! RE PADDELS ' ATARI-TYPE GAME PADDELS PLUG INTO COLOR
oZ Tms™" ,MPR0VING SC0RES! W0R * S ° N ™" .*V E ° R T C GAMES
HARDWARE!
ROMPACK EXTENDER : PUT YOUR DISKPACK
WHERE YOU WANT IT: 3 FEET LONG
QUALITY CABLE ONLY E7.QO
GREEN -PHOSPHER ADAPTER/ NOW PRINT GREEN ON BLACK SCRffn,
ALL HARDWARE, NO SOFTWARE/ NO SGLDERWG* A^t^$" 95'
WORKS ON ANY TV: SMALL BOARD GOES ON THE
RF SHIELD: ONLY THREE WIRE CLIPS
EPROM PPOGPAMINQ: BK4K BK BYTES
^Vis £2.9 < j. ram rou * eprom FOR so a
SENO US ONE OF YOUR GAMEPACKS AND WE WILL PUT YOUR
PROGRAM IN IT FOR ONLY SO. OO
E£. L . L OB WR 'TE FOR DETAILS
YOU CAN PRINT VIOTEX FROM ROMPACK
WICO COMMAND CONTROL STICK BBOO OUR SOFTWARE ALLOWS YOU TO
WICO RED8ALL 5TICK 3400 PRINT OFF LINE FROM VIDTEX
WICO TRACKBALL 6800 WITH SERIAL Y CABLE : 20.05
ATARI" JOYSTICKS $6.95/ WITHOUT CABLE : » 95
WE CARRY TOM-MIX 4 MARK-DATA.
D oN^ N A G A . s . 0fT s^5 85 MICRO - DIV. ------
PROTECTORS 24.95 450 W. LAS KEY *' a *'" °* 02
ASTRO - BLAST 24 .95 I ASK FOR Mirnn mul
SPACE RAIDERS 24.95 | ASK FOR MICRO- DIV.|
MOON-LANDER E.B. 19.95 C.O.D. Credit Card
HAYWIRE 24.95 orders accepted /add $2.00 shipping
ROOF ROOM, IN THE DUNGEON, IN AN A
NIMAL CAGE.
80 DATAIN A BEDROOM, IN THE MAIN
KITCHEN, IN A CIRCULAR ROOM, IN A
STOREROOM, IN A ROOM THAT RESEMBL
ES A MORTUARY, AT A VERY LON
G AND NARROW FOYER, C
90 DATAOUTSIDE OF A STOREROOM, IN
A TRIANGULAR-SHAPED ROOM. ,B, AT
A LEDGE. THE MOON IS FULL TON
IGHT,AT A VAMPIRE BAT CLUB HOUSE
,IN FRONT OF A GLOWING FIREPLACE
100 DATA" IN A MUSTY, DARK ROOM."
,IN LUTARN'S DEN. HINT+ LUTARN
EXISTS IN A GASEOUS FORM.
110 DATA0, 4, 2, 3, 0,5, 0,1, 1,1 1,15,
0,1,13,0,0,2,10,6,0,0,7,0,5,6,9,
8,0,0,9,0,7,8,0,0,7,5,0,0,0,3,19
120 DATA0, 14,0,11,4,14,0,0, 13,0,
16, 12,0,0,0,3,0, 17,0, 14, 16,0,0, 1
8,0,0,17,20,11,20,0,0,19,21,18,0
,20,23,22,0,0,24,0,21
130 DATA21 , 0, 24, 0, 22, 0, 0, 23, 26,
,0,24,0,25,27,29,0,0,0,28,0,30,2
6,25,0,0,26,0,28,0,31,40,39,32,3
3,30,31,0,0,0,38,34,35,31
140 DATA33, 0,0, 0,37, 36, 0,33, 35,0
,0,0,0,35,0,0,0,33,0,0,0,31,0,0,
0, 41 , 30, 42, 40, 46, 48, 0, 0, 43, 40, 0,
42, 45, 0, 44, 0, 47, 43,
150 DATA43,0,46,0,41,0,0,45,44,5
0,0,0,0,49,0,41,48,0,0,0,47,0,0,
160 D*="NSEW" : R=l : F0RX=1T04: READ
d*<x>:nextx:forx-ito50;read a*<
X > : NEXTX : FORX«1TO50: F0RY«1T04: re
AD RM ( X , Y) : NEXTY, X : F0RX=1T035: RE
AD IT*<X),JT*(X),IT<X):NEXTX:PRI
NT "DO YOU WANT TO LOAD AN OLD GA
ME FROM TAPE?"
170 A*=INKEY*:IFA*="Y" THEN 1800
ELSE IFA*<>"N H THEN 170
180 A* (45)= "NEAR A CLOSED COFFIN
II
190 A*<42)="IN FRONT OF A LOCKED
DOOR. "
200 IFR>«26 AND AA=0 THEN CLSRND
(8): PR I NT "A COLORFUL DARK MIST C
OVERS THE ROOM..":GOTO340
210 IFFG=-1 THEN IT*<29)="AN EMP
TY BEAKER"
220 cls:print"you are: " .-print a* <
R)
230 PRINT: PRINT"OBVIOUS DIRECTIO
NS ARE! "
240 FORY=1TO4:IFRM<R,Y)<>0 THEN
PRINTD*(Y);"-> ";:NEXTY ELSE NEX
TY
250 PRINT: 1=0: PRINT: PRINT" YOU SE
124
the RAINBOW August 1983
e: "IIFR=2 THEN PRINT "OLD hermit
":i=i
260 ifr=21 and zzo-1 then print
"gunfighter with the magic glove
":l=l
270 F0RX=1T035
280 IFIT(X)=R THEN PRINTIT*(X) : I
= 1
290 NEXT
300 IF 1=0 THEN PR I NT "NOTHING"
310 IFYD=-1 THEN PRINT: PRINT"THE
POISON OF LUTARN WAS FATAL.": GO
TO 1730
320 IFZZO-1 AND R=21 THEN GOSUB
1860
330 X=RND(35):IFRND(40)=1 AND IT
(X)=-l AND X019 THEN PLAY"T3402
CCCDDDEEEFFF " : PR I NT : PR I NT " A G I AN
T VULTURE HAS CARRIED OFF YOUR..
??": IT<X)=RND(24) : J=J-1
340 PRINT: LINEINPUT">"; I*: IFAA«-
1 THEN LTNLT-l: IFLT=0 THEN PRINT
"YOUR LIGHT HAS RAN OUT. .": GOTO 1
730
350 IFLEFT* U*, 5 >=" MOVE " THEN 1
340 ELSEIFLEFT«<I*,4>="HELP" THE
N 1G80 ELSE IFLEFT* ( I*, 4>="QUIT"
THEN END ELSE IFLEFT* < I*, 4) «"SI
NG" THEN 1920 ELSE IFLEFT* < I*, 6)
=" SHOOT " THEN 1820 ELSE IFLEFT*
(I* S 6)="CRACK " THEN 1750 ELSE I
FLEFT*<I*,5>="WEAR " THEN 1620
360 IFLEFT* ( I*, 6>=" TOUCH " THEN
1650 ELSE IFLEFT* < I*, 4>="DIP " T
HEN 1480 ELSE IFLEFT* ( I*, 4> ="ASK
" THEN 1230 ELSE IFLEFT* < I*, 4>=
"SAVE" THEN 1780 ELSE IFLEFT* (I*
,5)="CALL " THEN 1690 ELSE IFLEF
T*<I*,5>="GIVE " THEN 1310 ELSE
I FLEFT* ( I * , 5 > = " LOAD " THEN 1 940
370 IFLEFT* < I*, 5>=" SHOW " THEN 1
080 ELSE IFLEFT*<I*,5)="P0UR " T
HEN 1580 ELSE I FLEFT* ( I*, 7)="UNL
OCK " THEN 1370 ELSE IFLEFT** I*,
5)="0PEN " THEN 1180 ELSE IFLEFT
* CI*, 6)= "THROW " THEN 1270 ELSE
IFLEFT*(I*,3)="DIG" THEN 1110
380 IFLEFT* < I*, 5> -"FEED " THEN 1
520 ELSE IFLEFT* ( I*, 5>=" SCORE" T
HEN 1060 ELSE IFLEFT* ( I*, 7) =" INS
ERT " THEN 1550 ELSE IFLEFT* < I*,
6)= "SMELL " THEN 1150 ELSE IFLEF
T*(I*,6)="LIGHT " THEN 950
390 IFLEFT* < If, 5)= "DROP " THEN 7
50 ELSE IFLEFT* ( I*, 1>="L" THEN 2
00 ELSE IFLEFT*(I*,1>="I" THEN 6
50 ELSE IFLEFT* < I*, 4)=" GET " THE
N 480 ELSE IFLEFT* ( I*, 4>="SAY "
THEN 1020 ELSE IFLEFT* ( I*, 4)="BU
Y " THEN 910 ELSE IFLEFT* ( I*, 5)=
"READ " THEN 860
400 IFRM<25,3)=0 AND I*="N" AND
R=25 THEN PR I NT "THE COUNT IS IN
YOUR WAY. , " : GOTO340
410 F0RX=1T04
420 IFMID*(D*,X,1)=I* THEN 450
430 NEXTX
440 PRINT"W-H-A-T ? ? ?":GOTO340
450 IFRM<R,X)=0 THEN PRINT" YOU C
AN'T GO THAT WAY " : GOTO340
460 R=RM<R, X)
470 GOTO200
480 G*=RIGHT*<I*,LEN(I*)-4):G*=L
EFT*<G*,3>
490 IFR=49 AND G*=LEFT* < JT* (25) ,
3) OR R=49 AND G*=LEFT* < JT* (26) ,
3) THEN PRINT" IT CANNOT BE TAKEN
OFF OF THE WALL. . " : GOTO340
500 I FG*=LEFT* ( J T* ( 1 9 ) , 3 ) AND R=
22 AND BUOl THEN PR I NT "THE LANT
ERN COSTS MONEY.. ":GOTO340
510 IFG*=LEFT*(JT*(31) ,3) AND R=
50 AND IT (31) =50 OR G*=LEFT*(JT*
(22), 3) AND R=20 THEN PR I NT "THAT
IS NOT WITHIN YOUR POWER. .":GOT
0340
520 IFUPO-1 AND G*=LEFT* ( JT* (8)
,3) AND R=10 THEN PRINT"A SEMI-F
ORCE FIELD IS GUARDING THE ROSE.
w w wwwv
KALEIDOSCOPIC CREATIONS
PRESENTS
scRAWBrr
AN AMAZING NEW WORD GAME
FOR 2 TO 4 PLAYERS THAT
CHALLENGES THE INTELLECT.
WILL YOU HAVE THE "SMARTS"
TO UNSCRAMBLE THE MESS?
FOUR DIFFICULTY LEVELS,
FUN FOR ALL AGES.
GREAT AT PARTIES.
16K NON-EXT. TAPE
SEND $15.95 (DELIVERY INCL.) TO
KALEIDOSCOPIC CREATIONS
P.O. BOX 1284 /^
MELROSE PARK, IL 60160 ""=
FOR THE TRS 80 COLOR COMPUTER
wwww ww
August 1983
the RAINBOW
125
. "GPTO340
530 IFNFO-1 AND G*=LEFT* (JT* C6>
,3) AND R=4S THEN PRINT" IT'S TOO
HOT..":GOTO340
540 IFG*=LEFT*(JT*<34>,3> AND R=
35 AND AGO-1 THEN PR I NT "THE GOR
ILLA WON'T LET YOU TAKE IT. .":G
OTO340
550 F0RX=3T034
560 IFX>8 AND X<19 AND IT(X)=33
AND R=33 AND G*=LEFT* < JT* (X> , 3>
THEN MS=MS-10
570 IFJ=6 THEN 850 ELSE IFLEFT*(
JT*(X),3>-G* AND IT(X)=R THEN J =
j+i: it<X)=-i:print ,, ok ,, :play ,, T805
CFE":GOTO340
580 NEXT
590 PRINT"I DON'T FEEL LIKE IT..
" : GOTO340
/.«« DATACOUNT DRACULA, DRACULA, 25
E TOWN DRUNK, DRUNK, 23, BROKEN
BSTONE, TOMBSTONE, 24, A FADED S
SIGN, 8, STONE TABl " ™'™ — - -
NORTH WEST DATA
15% to 20% OFF
Donkey King
Colorpede
Astro Blast
Doodle Bug
Space Race
Planet Invasion
Pacdroids
Starfire
Haywire
TM
Int
MD
CW
Sp
Sp
PG
Int
MD
PRINTERS
GEMINI 10
Serial Card for GEMINI
NOW JUST:
$21.20
$25.45
$19.96
$19.96
$18.65
$18.65
$15.96
$18.65
$19.96
$339.95
$74.95
Special prices in our news letter
that only our customers
will know about!!
Write or call for catalog.
NORTH WEST DATA
P. O. Box 7175 Spokane, Wa. 99207-0175
(509)489-5133
Add 5% for postage and handling
Add $3.00 for C.O.D. orders
No C.O.D. on PRINTERS
UE CLOCK**, CLOCK, 0,**SOME GLOW IN
G RUBIES**, RUBIES, 0, **PERUV I AN E
MERALDS**, EMERALDS, 0, **SPARKLING
PEARL**, PEARL,
620 DATA**CROWN JEWELS OF BAVARI
A** , JEWELS , , **S I LVER BRACELET**
, BRACELET,
630 DATALANTERN AND OIL, LANTERN,
22 , GOLD NUGGETS , NUGGETS , , D I AMON
D KEY, KEY, 0, STRANGE LOOKING BOX,
BOX , 20 , HOLLOW ST I CK , ST I CK, 24 , WH I
SKE Y BOTTLE , BOTTLE , , E I NSTE I N ' S
PORTR A I T , PORTR A I T , 49 , NEWTON ' S P I
CTURE , P I CTURE , 49 , METAL STR A I NER ,
STRAINER, 17
640 DATASOME ALGAE, ALGAE, 14, BEAK
ER OF WATER, BEAKER, 29, MAGIC GLOV
E, GLOVE, 0, THE HIDEOUS LUTARN,LUT
ARN,0, LARGE EGG, EGG, 0, REVOLVER, R
EVOLVER , , A BULLET , BULLET , 35 , WAL
L SAFE, SAFE,
650 PR I NT "YOU ARE CARRYING:"
660 IFAA=-1 THEN LA*="LIT " ELSE
LA*=" UNLIT "
670 IFIT(19)=-1 THEN PRINTLA*? IT
*(19):l=l
680 I=0:FORX=3TO34
IFIT<19>— 1 THEN 1=1
IFX=19 THEN X=20
IFIT(X>=-1 THEN FRINTIT*(X>:
690
700
710
1 = 1
720
730
740
750
NEXT
IF 1=0 THEN PR I NT "NOTHING"
GOTO340
G*=RIGHT* ( I*. LEN < I*> -5) : G*=L
EFT*<G*,3>
760 IFG*=LEFT*<JT*(i9>,3> AND IT
<18)=-i THEN AA=0
770 IFG*=LEFT*(JT*<30>,3> AND IT
(30) =-1 THEN PRINT" IT IS A PART
OF YOU NOW..":GOTO340
780 F0RX=3TO34
790 IFX>8 AND X<19 AND IT(X)=-1
AND R=33 AND G*=LEFT* ( JT* (X> , 3)
THEN MS=MS+10
800 IFIT(X)=-1 AND LEFT*(JT*(X>,
3)=G* THEN 830
810 NEXT
820 GOTO590
830 J«J-l:PRINT"OK":IT(X)=R
840 IFMS=100 THEN PRINT"YQU SOLV
ED THE ADVENTURE. ..": PLAY" ABCDEF
G04T5GFEDCBA": GOTO 1780 ELSE 340
850 PR I NT" YOU CAN'T CARRY ANYTHI
NG ELSE. . ":6OTO340
860 G$=RIGHT* ( I*, LEN ( I*> -5> : 6*=L
EFT*<G*,3)
870 F0RX=3T05
880 IFIT(X)=-1 AND G*=LEFT* ( JT* (
X),3> THEN PRINTCHR*(34)?RT*(X);
126
the RAINBOW
August 1983
CHR*<34) IGOTO340
890 NEXTX
900 BOTO590
910 G*=RIGHT*(I*,LEN(I*)-4):B*=L
EFT*(G*,3)
920 IFR=22 AND BU=*1 THEN PR I NT "W
E'RE ALL OUT BUDDY. .": GOTO340
930 IFG*=LEFT*(JT*(19>,3) AND R=
22 AND IT(20)=-1 AND J<>6 THEN B
U=l:GOTO550
940 GOTO590
950 G*-RIGHT*<I*,LEN(I*)-6):G*=L
EFT*(G*,3)
960 IFIT(19)--1 AND G*="ON" THEN
980 ELSE IFIT(19)=-1 AND G*«"QF
F" THEN 1000
970 GDTO590
980 IFAA»-1 THEN PRINT" IT'S ALRE
ADY ON. .":GOTO340
990 AA=-1ZGOTO200
1000 IFAA=0 THEN PRINT" IT'S ALRE
ADY OFF. . " : GOTO340
1010 AA»0:GOTO200
1020 G*=RIGHT*(I*,LEN(I*>-4>
1030 IFRM(24,4>=0 THEN 1050
1040 IFR=24 AND G*="BONE" THEN R
M (24, 4) =0: RM (24, 3) =25: GOTO220
1050 PRINT"OK" : PRINTCHR* (34> 5 G*;
CHR* ( 34 ) : GOTO340
1060 PR I NT "OUT OF 100 POINTS YOU
HAVE SCORED " ; MS ; " PO I NTS . "
1070 PRINT "LIGHT LEFT= " ; LT : G0T03
40
1080 G*=RIGHT*<I*,LEN(I*)-5>:G*-
LEFT*(G*,3)
1090 IFRM(25,3)=0 AND G*=LEFT*(J
T*(12>,3) AND IT(12>=~1 AND R=25
THEN PR I NT "THE COUNT FLIES AWAY
IN PAIN.. ": IT(1)=0:RM(25,3)=28:
GOTO340
1100 GOTO590
1110 IFIT(7)<>-1 THEN PRINT"NO S
HOVEL ":GOTO340
1120 IFR=10 AND IT(31>— 2 AND IT
(32) =0 THEN IT(32)=10:GOTO220
1130 IFR=12 AND IT(21)=0 THEN IT
(21)=12:GOTO220
1140 PR I NT "NOTHING HERE FRIEND..
" : GOTO340
1150 G*=RIGHT*(I*,LEN(I*)~6) :G*=
LEFT* (G*, 3)
1160 IF IT (5) -0 AND G*=LEFT* (JT* (
8), 3) AND R=45 AND OP=-l AND IT(
8)=-l THEN IT(5>=45: IT(10)=16:GO
TO200
1170 IFG*=LEFT*(JT*(8),3) AND IT
(B>=-1 THEN PRINT"AHHH! ! WHAT BE
AUTY.. ":GOTO340 ELSE PR I NT "MY NO
SE IS STUFFED UP. . " : GOTO340
1180 G*=RIGHT*(I*,LEN(I*)~5):G*=
LEFT* (G*, 3)
1190 IFIT(13>=0 AND G*=LEFT* ( JT*
(22), 3) AND IT(23)=0 AND R=20 TH
EN IT(24)=20:IT(13)=3l:lT(33)=20
: GOTO200
1200 IFIT(23)<>0 AND G*=LEFT*<JT
*(22),3) AND R=20 THEN PRINT"AN
ANGRY DOG IS GUARDING THE STR
ANGE BOX . . " : GOTO340
1210 IFOPO-1 AND G*=LEFT*("COFF
IN", 3) AND R=45 AND IT(21)=-1 TH
EN 0P=-l:A*(45)="NEAR AN OPEN CO
FFIN":GOTO200
1220 GOTO590
1230 G*=RIGHT*(I*,LEN(I*)-4>:G*=
LEFT*(G*,3)
1240 IFDS=-1 AND G*=LEFT* ( JT* (2)
,3) AND R=23 THEN PRINTCHR* (34) J
"ADD ONE LETTER TO EACH LETTER
IN THE PHRASE. . " ; CHR* (34) : G0T03
40
1250 IFG*=LEFT*(JT*(2),3) AND R=
23 THEN PRINTCHR*(34)i"F0R A BOT
TLE OF WHISKEY I COULD BECOME VE
RY TALK AT I VE . . " 5 CHR* ( 34 ) ; GOTO340
1260 GOTO590
1270 G*=RIGHT*(I*,LEN(I*)~6):G*=
LEFT* (G*, 3)
1280 IFIT(31)=50 AND R=50 AND IT
FRUSTRATED
WITH FOLD-OUTS?
MADDENED BY
MANUALS?
DON'T CURSE
YOUR CURSOR!
SEND FOR
THE VERY BEST COLOR COMPUTER REFERENCE SYSTEM
HELP! provides the BEGINNING
PROGRAMMER with every basic command for
the COLOR COMPUTER.
Each command is indexed by what it does as
well as what it is called. Every major command
is shown with its formula, oxamples of how it it
used, a full set of notes, common pitfalls, and
references to the instruction manual.
HELP! provides the more ADVANCED
PROGRAMMER with the perfect reference
system for checking less familiar commands. It
can also serve as a translation of Basic into
Color Basic
232 pages, ring-bound, lies flat on computer.
P.O. BOX 486 NORTHBORO, MA 01532
PHONE' (617) 393-6281
REAL SOFTWARE
Please send HELP! Enclosed find $9.95 plus $1 shipping.
NAME
ADDRESS
CITY
STATE-
^IP_
MASTER CARD OR VISA
CARD #
EXP. DATE-
SIGNATURE.
Massachusetts residents add 5% sales tax
R 1
August 1983
the RAINBOW
127
(6)=-l AND G*=LEFT*(JT*(6),3) AN
D IT (31) =50 THEN PRINT: PRINT"LUT
ARN BURNS FIERCELY. A VOICE SAY
S";CHR*(34)?"GID TA TIP" J CHR* (34
>:FORI=1TO1500:NEXTI:IT(6)=50:IT
(31 ) =-2: J=J-1 : GOTO220
1290 IF IT (23) =-1 AND G*=LEFT*(JT
*(23),3) AND R-20 THEN PR I NT "THE
DOG RUNS FOOLISHLY AFTER THE
STICK. .": IT (23) =0: J=J-1 : BOTO300
1300 GOTO760
1310 G*=RI6HT* (I*, LEN ( I*) -5) : G*=
LEFT* (G*, 3)
1320 IFDSO-1 AND R=23 AND G*=LE
FT*(JT*(24),3) AND IT(24)=-1 THE
N PR I NT "THE DRUNK TAKES THE BOTT
LE IMMEDIATELY-- ":DS=-l: IT (
24) =0: it* <2>= "the happy town dru
nk":j=j-i:goto340
1330 GOTO760
1340 G*=RIGHT*(I*,LEN(I*)-5):G*=
LEFT* (G*, 3)
1350 IFIT(35)=0 AND G*=LEFT*(JT*
<25),3) AND R=49 THEN IT(35)=49:
GOTO200
1360 GOTO590
1370 G*=RIGHT*(I*,LEN(I*>-7) :G*=
LEFT* (G*, 3)
1380 IFIT(15)=0 AND G*=LEFT*(JT*
GRAPHIC MATH
ADVENTURE $21.95
Challenging Adventure! Fully player selec-
table up to 300 -room." Search lor treasure
on land, on river, and in the labryinth of
caves Your search is blocked by many
obslacles which can be overcome by correctly answering malh prob-
l^ms Anyone oral|lour(unciion S ( + .,....,„ nbcs H fclcd(oaddv ; ric .
« *MI levels make the game chaNrrwinj! for all aitc*
J2K EXT BASIC Required
BACKUP MASTER/
GRAPHIC MONITOR $25.95
SUPER powerful IFTIUTY al lows backups to be **Ce of any procr*-
alsk, twen ROM based:.'
â– Over rides e_M_ software autostart mechanisms
• Fully relocatable - wilt not interier with any program
• Capable o-f reading many tapes which basic can't
oflK USERS have extra power
• Modify basic to suit your needs
• Save copies of Basic, Ext Basic, Disk FUslc, e+c.
• Run address dependent ROMS from RAM
- cassette.
SPELLING MASTER 514.95
Conquer spelling. Learn the words you
have trouble with. Usrr input unlimited
number of words. Good tor weekly
spelling lists. SAMPLE list provided.
16K EXT BASIC cassette
CONCENTRATION j s . >5
15% OFF ALL
*k ample |
Andrtxd Aiisck
CO»mK Invaded
Choi i Gbtib'ai
50»C« Wat
DallU fla.t
*wy* t>> Wni.'id
> labyHnin
*0 dot It hid* 30 paM-m Pil tool mtmeir
t(t».iOi I w U pimytn, Non-CXI OASIC C*i«..ll.
Se.c
Lolliai
*k«H„ -.
Ce*>nt(, Sup*r 6e*i
typing "tyUH
'!•■ffiui Dot
Miloi/»»*mbt«i
Kp*«k*IA».etl|»l SBftWIH
as
1Mb
15 31
16 «
1S6S
iat.1
w HI
1770
10 u
l?70
16 OS
4S4*
WS4"
SOFTWARE FACTORY
Dealer 4 Author inquiries invited
1333Morgan Road,
Bremerton, WA 88312
(206) 377-UM
^^^^
WRITE FOR FREE CATALOG
Add 3% tor shipping — No COD
(35), 3) AND IT(35)«49 AND R=49 T
HEN 1400
1390 GOTO390
1400 PRINTCHR*(34); "REFER TO SIR
TH DIGITS"5CHR*(34);â– ' SAYS AN EC
hoing voice. , "
1410 fori=itoi000:nexti:cls:forx
= 1T03
1420 B* ( 1 > = "LEFT" : B* (2) ="RIGHT" :
B*(3)="LEFT"
1430 PRINT@70,B*(X)J " VALUE": INP
UTC(X)
1440 IFC(X)<=0 THEN 1430
1450 NEXTX
1460 IFCU)=7 AND C(2)=8 AND C<3
)=6 THEN PR I NT "THE SAFE CREAKS O
PEN. . " : FORH=1TO750: NEXT: IT < 14) =4
9:IT<15)=49:GOTO200
1470 PR I NT "THE SAFE DIDN'T OPEN.
. " : FORH=1TO750: NEXTH: GOTO200
1480 G*=RIGHT* .( I*, LEN < I*) -4) : G*=
LEFT*(G*,3)
1490 IFIT(20)<>0 AND R=14 AND G*
=LEFT*(JT*<27),3) AND IT(27)=-1
THEN GOTO 1140
1500 IFG*=LEFT*(JT*(27),3) AND R
=14 AND IT(27)=-1 THEN IT(20)*=14
â– .GOTO200
1510 GOTO590
1520 G*=RIGHT*(I*,LEN(I*)-5):G*=
LEFT*(G* S 3)
1530 IFIT(16)=0 AND G*=LEFT*(JT*
(9), 3) AND IT(9)=-1 AND IT(2B)=-
1 THEN PR I NT "THE OYSTER EATS THE
ALGAE . " : PR I NT " AND SOMETH I NG IN
IT DISAPPEARS" :FORI=1TO750: NEXT I
: IT ( 16) =2: it (28) =0: j=j-i : GOTO200
1540 GOTO590
1550 G*=RIGHT*(I*,LEN(I*)-7):G*=
LEFT* (G*, 3)
1560 IFIT(17)=0 AND G*=LEFT*(JT*
(16), 3) AND R=42 AND IT(16)=-1 T
HEN A* (42)=" IN FRONT OF AN UNLOC
KED DOOR. ";IT(17)=42:GOTO200
1570 GOTO590
1580 G*=RIGHT*<I*,LEN(I*)-5):G*=
LEFT* (6*, 3)
1590 IFFGO-1 AND RO10 AND G*=L
EFT* ("WATER", 3) AND IT (29)^-1 TH
EN PR I NT "YOU 'RE ARE IN TROUBLE N
OW. . " : FORI=1TO500: NEXTI : FG=-1 : GO
TO200
1600 IFFGO-1 AND UPO-1 AND IT(
29)=-l AND G*=LEFT*("WATER»,3) A
ND R=10 THEN UP=-1 : FG=-1 : PRINT"T
HE FORCE FIELD IS DESTROYED" .FOR
I=1TO500: NEXTI : GOTO200
1610 GOTO590
1620 G*=RIGHT*(I*,LEN(I*)-5):G*=
LEFT* (6*, 3)
128 the RAINBOW August 1963
1630 IFNFO-1 AND G*=LEFT* ( JT* (3
0>,3) AND IT(30)=-1 THEN PRINT"N
ICE FIT.. ":NF=-l:GOTO340
1640 SOTO590
1650 G*=RIGHT*(I*,LEN(I*)-6):G*=
LEFT* (G*, 3)
1660 IFG*=LEFT*("HERMIT",3) AND
R=2 AND NF=-1 THEN PR I NT "YOU FEE
L DIZZY FDR A MOMENT" : PH=-1 : GOTO
340
1670 IFG*=LEFT*("HERMIT",3) AND
R=2 AND NFO-1 THEN PR I NT "YOU HA
VE JUST DIED. . ":GOTO1730
1680 GOTO590
1690 G*=RIGHT*(I*,LEN(I*)~5) :G*=
LEFT*(G*,3>
1700 IFITC3DO-2 AND G*=LEFT*(J
T*(31),3) AND R=50 AND PH=-1 THE
N IT(31)=50:GOTO220
1710 IFG*=LEFT*(JT*(31),3) AND R
=50 AND PHO-1 THEN YD=-1:IT(31)
=50:GOTO220
1720 GOTO590
1730 CLEAR: PR I NT "DO YOU WANT TO
PLAY AGAIN?"
1740 A*=INKEY*: IFA*="Y" THEN GOT
010 ELSE IFA*="N" THEN END ELSE
1740
1750 G*=RIGHT* ( I*, LEN < I*) -6) : G*=
LEFT* (G*, 3)
1760 IFIT(18)=0 AND G*=LEFT*(JT*
(32), 3) AND IT(32)=-1 THEN IT (18
) =5: PR I NT "SOMETHING FALLS OUT.."
: PR I NT " THEN D I S APPEARS " : FOR I = 1 TO
500: NEXT I : GOTO220
1770 GOTO590
1780 INPUT "FILENAME" jFI*: IFFI*="
" THEN 1780
1790 OPEN"0" , -1 , FI»: F0RX=1T035: P
RINT#-1, IT(X) :nextx:print#-i, IT*
(2> , J,R,MS,DS,0P,RM(24,3) ,RM(24,
4) ,RM(25,3) ,A*(45) , A* (42) , LT, AA,
FG,UP,NF,BU,PH,ZZ,AG,LO, IT*(33) :
CLOSE : PR I NT " OK " : I FMS= 1 00 THEN 1 7
30 ELSE 340
1800 INPUT"FILENAME";FI*: IFFI*="
" THEN 1800
1810 OPEN" I " , -1 , FI*: F0RX=1T035: I
nput#-i, it(x>:nextx: input#-i, it*
(2) , j,r,ms,ds,0p,rm(24,3) ,rm(24,
4) , rm (25, 3) , a* (45) , a* (42) , lt, aa,
FG,UP,NF,BU S PH,ZZ,AG, LO, IT*(33) :
CLOSE: GOTO200
1820 G*=RIGHT*(I*,LEN(I*)-6):G*=
LEFT* (G*, 3)
1830 IFIT(33)=-1 AND L0=-1 AND Z
ZO-1 AND G*=LEFT*("GUNFIGHTER",
3) AND R=21 THEN PR I NT "YOU KILLE
D THE GUNFIGHTER..":IT(30)=21:FO
ri=itoi000:nexti:zz=-i:it*(33)="
EMPTY REVOLVER " : GOTO200
1840 GOTO590
1850 END
1860 IFRND(10)=1 THEN PRINT: PRIN
T"THE GUNFIGHTER FILLED YOU FULL
OF LEAD . . " : GOTO 1 730
1870 GOTO340
1880 IFR=50 THEN PR I NT "WITHOUT T
HE TOUCH, THE SIGHT OF LUTARN WI
LL KILL YOU..":GOTO340
1890 IFR=2 THEN PR I NT "TOUCH THE
HERMIT ONLY WHILE THE GLOVE IS
N. .":GOTO340
1900 IFR=20 THEN PR I NT "LUTARN LO
VES TO HEAR HIS NAME. . " : GOTO340
1910 PR I NT " NOT NOW . . " : GOTO340
1920 IFAGO-1 AND R=35 THEN PRIN
T"THE GORILLA FALLS ASLEEP..": AG
=-l:GOTO340
1930 PRINT" YOU* RE A LITTLE OFF T
UNE.. ":GOTO340
1940 G*=RIGHT*(I*,LEN(I*)-5>:G*=
LEFT* (G*, 3)
1950 IFLOO-1 AND G*=LEFT* ( JT* (3
3), 3) AND IT(33)=-1 AND IT (34)=-
1 THEN PRINT"OK":LO«-l: IT* (33)="
LOADED REVOLVER" : IT (34) =0: J-J-l :
GOTO340
1960 GOTO590 _
LINE PRINTERS
» 11 4 D.'- 5
CENTRONICS 588 (used) serial 600
Baud, 88 CPS with A pin DIN plug
All prices F.O.B. Henderson, Tx.
Terms: Cash, check or COD
Tx. residents add 4% sales tax
LEADER SALES CORPORATION
P.O. Box 1220, Henderson, Tx. 75652
214/657-7800 after 6:00 P.M.
Discounts available to CC clubs
and volume buyers .
August 1983 the RAINBOW 129
16K
iCB
I
I tie
•IH*
RAINBOW
1L
Strummin'On The
Ol' CoCo
Oldie B'Goldies
Dr. Charles H. Sitntee
J
This program merges chords and tunes (or
melody and harmony) to give a unique
musical effect for BASIC programs.
Lines 400 through 470 are the "chords." Each
chord is the last three notes of a guitar chord
(get any beginning book of guitar music). Lines
500 through 590 are the "tunes." (Recognizable
tunes selected from a beginning book of guitar
music.) The tunes are identical to any string
used with the PLAY statement with two
exceptions. The letter "K" is used to indicate a
change in the chord used in the tune. The
number following the "K" indicates which of
the eight chords is to be used. The letter "L" has
a nearly identical effect as the usual command
in the PLA Y statement. However, the effect is
achieved by repeating short bursts of a note and
a chord until the length fur the note desired. If
you divide 24 by the value which follows "L"
you get the number of repetitions. For example
"L2" (a half note) would indicate 24/2 or 12
repetitions of the "note chord" combination.
When repeated fast enough this sounds
somewhat like a half-note with an
accompanying chord. The value of 24 was
derived by experimentation.
The program first reads the eight chords.
Then each "song" or "tune" is read. The
components of the song are picked using the
_*T
1 A.
130 the RAINBOW August 1983
GIVE YOUR CHILD
AN UNFAIR
ADVANTAGE
IN MATH
Help your child gain an advan-
tage by using one of our
classroom-tested programs in
number concepts, addition ,
subtraction, multiplication,
division, fractions, decimals &
percent, pre-algebra, or one of
the 15 math games that teach.
For students in grades K through 9, on tape or disk. For
TDP and TRS-80 32K Color Computers with extended
basic. These professional-quality programs use high res
olution graphics with text and sound. They have
been written by experienced teachers, tested and re-
vised to provide high-quality and highly motivating
instruction. And while you are asking, ask to see
our reading and language programs as well.
ASK FOR MICRO SCHOOL
PROGRAMS BY NAME at your
local computer store.
BERTAMAX INC.
Max Jerman. Ph.D..
President
BERTAMAX INC.
PERSONALIZED INSTRUCTION ON PERSONAL COMPUTERS
© 1982 Bertamax. Inc. • 101 Nickerson St., #202 • Seattle, WA SS109 • (206)282-6249
MID$ function. Each segment is checked to see if it is a "O,"
or Octave Marker (line 190), "K," or Chord Market (line
210), "L," or Length Marker (line 230), or if the note is flat
"-" or sharp "+" (line 150. If the string hegins with a letter
between "A" and "G," it is assumed to be a note, and the
previously defined elements are combined with the number
of repetitions defined by 24/ (value after the L). This
note/chord combination is played for immediate
verification. The created string is added to a string array that
will compose the final musical product (PP$(Z)=P$). If the
length of the element of the array exceeded 250 characters,
the next element of the array is selected (Z=Z+1). Lines'
300-360 plays the created song (chords and notes) at three
different Tempos. The Tempos selected were found by
experimentation to represent the range of effects possible.
Line 250 was added to create a visual effect while the tunes
were being played. Any reference to PP$ (in lines 250, 270,
and 340) may be deleted without affecting the musical
content. In fact, you will find that the tune will play
somewhat more smoothly without printing graphics.
Because notes and chords are repeated frequently,
creating all the strings needed for a given tune is quite
memory consuming. An alternative is to simply generate
and play the repetitions required for each note. However,
unless you use machine language, the generation of chord
notes may create too great a pause between notes for the
desired effect.
There are some limitations you must follow in creating a
turn. They include:
1) The value following L must equal 24 or less.
2) The tune cannot use dotted notes.
3) Letters other than A through G, L, K, and O are not
recognized.
YOUR SEARCH IS OVER
The Software Connection of
Ft. Lauderdale is your one stop
source for your Color Computer
Software and Peripherals.
^
?,
WE FEATURE A COMPLETE SELECTION
OF SOFTWARE FROM MOST SUPPLIERS
AT DISCOUNTED PRICES!
TDP (Tandy)
COLOR COMPUTER
16K Regular Basic
'195
TDP (Tandy)
COLOR COMPUTER
16K Extended Basic
'295
64K UPGRADES (E/F boards) $85 • (D boards w/1.1 rom)$95
— SECS BOX (Serial Electronic Communication Switch) — |
Switch from printer to modem or other device without
removing jacks from your computer
With three outlets and pilot light to $QO QC
confirm transmission. 0«7i«/w
Repairs done on all color computers at reasonable prices
When in Ft. Lauderdale be sure to visit our retail store.
THE SOFTWARE
ramELTirjN, ml
5460 No. State Rd. 7, Suite 108
Fort Lauderdale, (under the Loft Restaurant)
(305) 484-7547
The strings generated by the program (P$(Z)) can be
saved and used in other programs.
132
(Dr. Santee has published poetry and curriculum as
well as statistical and educational software (including
CCM#3 for JARB Software). He is a recipient of
several grants and awards for educational
technology.) ^^.
The listing:
10 CLS
20 CLEAR 7000: DIM P*(40> ,K*<8> ,P
P*<40>
30 PLAY M T250 M
40 'read chords
30 FOR K-l TO 8
60 READ K*(K)
70 NEXT K
80 FOR 8-1 TO 3
90 'read song
100 READ 9*
110 'pick out length/chords/octa
ves/notes
120 FOR A-l TO LEN(SS)
130 MS«MIDS(S*,A, 1)
140 'check -for sharps and -flats
130 IF MID* (8*, A+1,1 )-••+" OR MID
*<S*, A+1,1 >«»-•' THEN MS-MID* (8*.
A,2):A-A+1
160 'if MS- a nots thsn combins
octivss/notss/and chords -for L r
epititions
170 IF LEFT*(M*, 1)->"A" AND LEFT
*(Hl f l)-<"a M THEN P*-"":FOR B-l
to l:p*-p*+o*+n*+k*:next b: print
ppscplay p*:p*-p*+ m p8":if len(p
*>+LEN(P*<Z>>>250 THEN Z-Z+l:P«<
Z>-P*(Z>+P* ELSE P*(Z>-P*<Z)+P*
180 'check for octave marker "O"
190 IF MS— O" THEN 0*-MID*<S*,A,
2>:A»A+1
200 'check for chord mar key "K"
210 IF M*-"K" THEN A-A+1:K*-K*<V
AL(MID*(8*,A V 1)>)
220 'check for length marker »L"
230 IF M*«"L H THEN IF VAL<MID*<8
*,A+l f 2))>9 THEN L-INT<24/VAL<MI
D*(S* P A+l,2))):A-A+2 ELSE L-INT<
24/VAL<MID*<8*, A+l, 1> > > !A-A+1
240 'creat something to Match on
screen while music is playing
230 PPS-CHR* ( ASC < M* ) +90+RND ( 5 > * 1
6) +PP*: PP* ( Z ) -PP*
260 NEXT A
270 PP*-'«"
280 IF RIGHT* <S*,1>«"»" THEN 100
290 'play tune with 3 different
tempos
300 FOR T-l TO 3
the RAINBOW August 1983
One Stop Shopping For The Color Computer,
itâ„¢, ami
COMPUTERS & ELECTRONICS
iic rftn it i » i he
THE POWER BEHIND THE PRINTED WORD.
MODEL MC-10
COLOR COMPUTER
FROM $369
MORE QUALITY: 100 cps • thruput time of 48 Ipm • resolution
(120x144) bit image & block (6x6) graphics • extra fast forms feed
MORE FLEXIBILITY:
• strike mode • 4k butter option • compatible with most software
supporting leading printers • 10" carriage* 15" carriage Gemini-1 5
available
MORE RELIABILITY: 180 day warranty (90 days for head &
ribbon) • mtbf rate of more than 5 million lines • print head life of
more than 100 million characters
Botek Serial To Parallel Interface $69.95
Mark Data Keyboards $69.95
^iiCRO COLOR COMPUTER
UDDUUUDHHHHH
GnEQHGDiDKDElOQQEira
QI^IDGIBIDDDDD ESS
a ED ED GO CD ID O H H H Efl
Eight Vivid Colors â– Sound Effects
Compact and Attractive Case
Ideal for Both Beginners and Hobbyists
Attaches Easily to Any TV
only $115.95
We are a stocking dealer for most manufacturers of software
From Eighty Computer Services
COCO MAIL
• Up to 200 names per disk
• Each file contains: Name, Address, City, State, Zip, Phone,
Code, and Notes.
+ Prints 2 across or single labels
• Files can be moved from one disk to another
• User modifiable basic programs
• Min. Sys; 16K and 1 Disk $59.95
F-Counts
by
Don Bibeau
• Over 500 Foods
• Data on Calories, Proteins, Carbohydrates,
and Fats
• Multiple portion reports
• Min sys: 32K Cass $29.95
Disk $34.95
- DEALER INQUIRIES INVITED -
Please include phone number with all orders. Also add $5.00 S/H for all printer and computer orders
$2.00 for all software orders. Ohio residents please add 6% state sales tax.
1-800-242-COCO
(OUTSIDE OHIO)
DISCOVER THE WORLD OF COMPUTING WITH
REITl
COMPUTERS & ELECTRONICS
3170 W. Central Avenue
Westgate Meadows Shopping Center
Toledo, OH 43606
PHONE (419) 537-1432 (In Ohio)
Cleveland Area call (216) 273-4600
11 a^m. to 9 p.m. EST
. •..
iBB
134
UTILITIES AND GAMES
FOR THE
COLOR COMPUTER
BACKUP $9.95
Speed up disk backups, helps to recover
crashed disks. Bypass I/O errors and fix
many disk problems.
CATALOG ...-.' $9.95
An automatic disk file cataloging system.
File the directories of your disks.
COPYTAPE $9.95
Copy, merge, and backup your tape based
software. Works even with most popular
pre-loader tapes.
CZAP $9.95
A disk inspect and modify routine. Learn
how disks work, fix problems on your
disks.
CCRPM $12.95
A disk drive speed checking routine.
Displays on your screen the current,
average, high, and low speeds of your
drive. Complete with instructions for
correcting the speed of your disk drive.
NEATDIR $6.95
Places the file names of your disk
directory into alphabetical order. Makes
finding programs on your disks easy.
Keeps your disks in order.
OFFLOAD $9.95
Create tape backups of your disks. A disk
to tape, tape to disk backup system.
QNERR $12.95
An error handler for BASIC programs.
Allows your program to receive control
whenever any error occurs. Take control
and fix your problems,
TAPEDIR $9.95
Create a directory of your tapes. Lists
program name, length of program, start,
end, and transfer addresses for all
frograms on your tapes.
APELIB $12.95
A BASIC tape subroutine append routine
and a starter library of 5 subroutines.
Create your own subroutine library on
tape to append to your programs.
TAPEXFER $9.95
Load your tape programs to disk auto-
matically. Great for Chromassette sub-
scribers, automatically loads an entire
issue to disk.
TREK80C $14.95
The classic Star Trek computer game. A
real time game with moving Klingons and
action graphics.
Please add $1.00 shipping and handling
on all orders. Pa. residents add 6% sales
tax. Canada orders must be paid in
American funds. No COD or charge cards,
send check or money order only to:
A.M. HEARN SOFTWARE
602 S. 48th Street
Philadelphia, Pa. 19143
Write for a free catalog of these and other
products.
Dealer inquiries invited.
the RAINBOW August 1983
310 PLAY"T4L4P1"
320 IF T-l THEN TS-"T25 M ELSE IF
T-2 THEN T*-"T50" ELSE T*-"T200
ii
330 PLAY T*
340 FOR A-0 TO Z:PRINTPP«<A> |:PL
AY P*<A>5IF T«3 THEN PXA)-""
350 NEXT A
360 NEXT T
370 Z-0
380 NEXT S
390 ' chords
400 DATA ,, 03604CE"
410 DATA"03GB04f3"
420 DATA"030B04F"
430 DATA"03A04CF+ M
440 DATA"03AQ4CF n
450 DATA"03A04CE"
460 DATA"03A04DF"
470 DATA"03G+B04E"
480 ' *»###*#songm*#****#»
490 'Shortnin
500 DATA H 05L8K1GEK2L4DK1L8GEK2L4
DK 1 L8GEK2DE04BK4AK2BG05K 1 GEK2D04
BK 1 05SEK2L4DK 1 L8GEK2DE04BK4AK2L4
G04L8G04EDE04G05EDE04K260SEDE04B
K4AK2L46L8G05EDE048O5EDE04GO5EDE
B05DK2L46"
510 'W* Thrss Kings
520 DATA M 05K6L4AEL3AL8B05C04B05C
Q4AQ5L3ELBCL4DEK7L8FEDC04L4BK805
L4EK6L8DC04L8B05C04L4AEL3AL8B05C
04B05C04A05L3EL8CL4DEK7L8FEDCK6L
4C04K8BK6L3AK8L8BL4BB05K6C04L8BA
L4BK6CK2L3DL8CL4DK8EK604AL8B05CK
7DC04BAK6AG+EBL4BB05CK804L8BAL4B
K605CK2L3DLBCL4DK6EK7L8FEDC*"
530 DATA"KBL4C04BK6A04L3A H
540 'Bicycle Built for Two
550 DATA"05L3K18EC048L8AB05C04L4
A05C04K 1 L36605D8K 1 EK6CK404LBABO5
CL4DL8EK2L3D04L4D05L8EK3FEDL4GL8
EK 1 DL4CCK2L8DK 1 L4EL8C04K5L4AO5L8
CK 1 04AL4GK305F04L8GK 1 05L4CL8EK3D
L4GK 1 CL8EK3DEFK 1 GECK3L4D05L8804K
1L3C05C-
560 'Camp town
570 DATA N 05K2L8DD04B05DED04L4BK4
L8BL3AL8BL3AK205L8DD04B05DK2ED04
L4BK4L4AL8BAK2L3BLBGB05DL4G04eK 1
05L4EL86EK2L4D04B05LaDDO4B05DEDa
4L4BK4AL8BAK2L4B05G "
580 'America
590 DATA"K103L4CK6CK7DK2L302BO3K
1 L8CK2L4DK 1 EEK3FK 1 L3EK8L8DK6L4CK
7DK 1 C02K3B03K 1 L 1 CL4886L38K3L3FK 1
L4EK3FFFL3FK 1 L8EK2L4DK 1 EL8K5FK 1 E
K3DK 1 CL3EL8K3FK 1 L46K5L8AFK 1 L4EK3
DK1L3C04C05C"
NEW
for your
COLOR
COMPUTER
Switchable Expansion Is Here
CoCo HAS A COMPANION!!
GOOD NEWS Switch over co more versatility with the new
BT-2O0O COMPANION. Save CoCo's connector with the best
COMPANION it will ever have.
• Load S cartridges into the COMPANION and avoid the hassles
while enjoying the benefits of push-button selection.
• Push a Button or select from your keyboard to turn on one of your
5 selections Handy indicator lights let you knuw at a glance which
Cartridge is connected.
• No More Turn-Offi. Just switch to the next cartridge in your
COMPANION, Push a button to Restart without turning off the
power.
• Plug-in. Fill one to five slots for flexible programming, game
playing or both. Choose ROM Packs, serial ports, parallel ports, or
disk drives. Then do what you like to do best The most powerful
and cost effective expansion you will find for just $249-95.
FOR THE ADVANCED USER OR
EXPERIMENTER
• The utmost in expansion power and versatility is the BT-1000
Expansion Interface Unit. $270,00
• Large Built-in power supply /^^m
to power your peripherals raimbow
and experimenter circuits.
• Space for your ML utilities with optional 8K of RAM. S300.00
kdStC ^P 1 Q PO Box 511 OrtOiwUtej Ml 48462
Technology
1313)627-6146
ALSO NEW FROM BASIC TECHNOLOGY!!
• BT-1010 PPI Parallel Printer Interface. Free-up CoCo's serial
port. Run your pri nter ar top speed. Five foot cable with Centronics
compatible connector and machine language printer driver are
included $79.95.
• BT-1020 Real Time Clock/Calendar, Let CoCo keep the time and
date for your programs and files. Day-light savings time and leap
year keep you on time. Save data or program memory even when
power is off with 50 bytes of battery backed memory. Alarm
capability to turn on the coffee pot. All foe only $109.00. m£&
• BT-1030 VIP Versatile Interface Port. Connect CoCo to the
outside world with two 8-bit parallel ports, two 16-bit
rimer/counters and a seiial shift register. All user programmable.
$69.95.
• WRITE FOR FREE BROCHURE.
For years of trouble-freeenjoyment all Basic Technology products use
top quality components and are backed by a full 180 day parts and
labor warranty. We service what we sell!!!
Add $5 shipping St, handling for BT-1000, 52.50 for BT-1020.
Michigan residents add A% sales tax. Shipping & handling for
residents of Canada, Hawaii, Alaska is $10, Overseas orders add 11>%.
Check, money order, VISA, MC (give account no., expiration dare,
phone no.). Personal checks allow 2-3 weeks to clear, COD charge $2
(requires certified check or money order).
"Watch for mure peripherals from
Basic Technology. "
Software Review
Time & Money: A Useful
Financial Planning Tool
Planning your finances can be a very perplexing task.
Things like an Individual Retirement Account, a mortgage,
a certificate of deposit, and others, all have various different
factors that must be taken into consideration. Sure, you
could whip out your calculator and punch in the numbers,
but why bother? CoCo can take on these problems with ease.
Time & Money is a program that will help you to evaluate
the time value of your money. It will aid you in planning
investments, loans, savings plans, and the like that involve
compound interest. It is written in Extended BASIC, has
machine language assists and requires 16K of memory.
When the program is run, you are presented with a choice
of fourtypes of calculations thatcan be performed, or a brief
review of the operating instructions. The types of calcula-
tions that can be performed are as follows: compound inter-
est, which involves a single deposit in an interest bearing
account; sinking fund, which involves regular deposits into a
savings plan; loans, which involves installment payments;
and finally, a lease (or annunity), which involves payments
(or withdrawals) until a specified ending balance is reached.
Each calculation selected, in turn, presents a "worksheet"
screen, which allows for the entry of the appropriate figures.
After you enter all of the "known" figures, the program will
then calculate the "unknown" figure for you. Maybe I
should explain this a little further. Let's say that you were to
Th. Micro Catalog
DISCOUNT HARDWARE 4 SOFTWARE
"TAKE ADVANTAGE OF VOLUME BUYING"
Some software houses offer up
tp 50% off for volume buying.
We are dealers for over one
hundred different software
houses.
We market over one thousand
different programs.
- CONFIDENTIAL price list.
- NEWSLETTER
- SPECIAL BUYS <tftff^
- 150 Page CATALOG
- Authors we pay 50%
<»* — *— — *. — ■<
iiwtwvora
VISA
Please send $9.95 for CATALOG
and CONFIDENTIAL PRICE LIST
P.O. Box 3703 Peoria, 11.61614
deposit $1,000 in a savings account that pays eight percent
interest, compounded quarterly, and you want to leave the
money in for 10 years. You would enter all of these "known"
figures, and the program would then calculate the amount of
money (the "unknown" figure) that would be in the account
after the 10 years. Suppose now, that you wanted to have
more money in the account, after the 10 years, than what
was calculated. You could enter this amount, and make the
interest rate or the initial deposit the "unknown" figure, and
have the program calculate the interest rate or initial deposit
required to achieve your goal.
Time & Money has several additional features that make
using it very easy. Data can be entered as a simple mathe-
matical expression. For example, the number of payments
on a 25-year mortgage, can be entered as 12*25, instead of
300. In addition to calculating the "unknown" figures, it
provides other information such as total payments, interest
Time & Money is an excellent financial planning tool.
Since the program is in BASIC, I expected it to get bogged
down at times, but it is remarkably swift. The documenta-
tion simply explains how to use the program, and includes
several well thought out examples for you to follow. This
made it very easy to get the most out of Time & Money,
without having to spend a great deal of time studying the
instructions. If you have ever spent hours slaving over a hot
calculator, this program is for you. If it only had a print
feature!
(The Computer House, Box 1051, DuBois, PA 15801,
$19.95 tape, $24.95 disk)
— Gerry Schechter
MYSTERIOUS
ISLE
GREAT NEW TEXT ADVENTURE GAME!
You vaguely remember being put in the
lifeboat as the ship was sinking. Now you
awaken on the beach of MYSTERIOUS
ISLE . . . alone in the small battered boat.
Can you find the pirate's fabulous treasure
and escape with it and your life!!
TRS-80 Color Computer*
Requires 16K Extended Basic
CASSETTE $21.95
including postage
Send check or money order to:
Computer Dynamics
3640 Summitridge Lane
Orange, California 92667
*TM Tandy Corp.
136 the RAINBOW August 1983
WORKSAVER RECEIVES
RAVE REVIEWS
FROM COLOR COMPUTER NEWS AND RAINBOW
• Fast Entry of
Basic Programs
• Over 100 user
definable keys
• Enhances all Coco's
from 16K Non Extended
Basic to Extended, 64K,
Disk
• Available on Disk or
cassette
• Built in cassette merge
• User's Support Service
"There are a number of
products on the Coco
market...the WORKSAVER
ranks up there with the
best of them"
— Rainbow Dec. '82|
undoubtedly the best
program I have ever
bought for my color
computer"
—Color Computer News
Jan. '83
"the main function of the
program seems to be mak-
ing things easier and more\
functional for the user. It
succeeds extremely well"
—Color Computer Newsl
Jan. '83l
THE WORKSAVER WILL SAVE YOU HOURS OF WORK...WRITING AND DEBUGGING YOUR PROGRAMS"
— Rainbow Dec. '82
FULL SCREEN EDITOR
â– 'WANT TO CHANGE the line a
couple lines up? Simple. Use the
arrow keys to the appropriate
place and make the change. This is
not only a lot easier, but it i$ vastly
faster, too ..changing line
numbeis, joining lines together,
breaking them apart, duplicating
them elsewhere — heady stuff — is
very easy to do with the
Worksaver" (Rainbow)
DYNAMIC EDITING
This is one of our users' favorite
features: When the computer halts
due to an error, or you want to
make an improvement while run
nmg, you can make changes
without losing data: "This is a ma-
a lot of time in data loads. ..(and)
the generation of data through in-
puts." Rainbow Dec. '82
"The things that this program
add to the color computer...
INCREASE ITS
CAPABILITIES MANIFOLD
...it should have been incor-
porated Into the original
MICROSOFT programming (or)
given out with every color com-
puter."
—Color Computer News Jan '83
THE PLATINUM WORKSAVER
INCLUDES:
Enhancement program, including a
sample array editor on a high-quality
Agfa cassette.
Fully labeled acetate keyboard over-
lay, not a cheap stick on.
Complete instructions
Loads in seconds, takes 2.2 K
WORKSAVER A1-A3 OWNERS:
Contact us regarding return policy for
our New A-4 version.
The PLATINUM WORKSAVER costs
$35.00 plus $3.00 S&H (NY residents
add appropriate tax). To order write:
-. PLATINUM SOFTWARE
Q P.O. Box 833
SSST Plattsburgh, N.Y. 12901
Phone orders: (518) 643-2650 9-5 EST
VISA, MASTERCARD ACCEPTED. PERSONAL CHECKS
TAKE 2-3 WEEKS TO PROCESS.
DYNAMIC INPUT
Perform numeric calculations,
and check the contents of ar-
rays and variables, WITHOUT in-
terrupting the running of BASIC
programs: "An EXTREMELY
valuable feature that I use ALL
the time."
— Color Computer News Jan. '83
NUMERIC KEYPAD
CONVERSION
"I he keys JKLUIOP are defined
as the numbers 1-7, respective-
ly. ..this mode is a Godsend for
long data statements."
—Color Computer News Jan. '83
FULL FEATURED
4 COLOR
KEYBOARD OVERLAY
"TRUTH: The WORKSAVER
overlay is the best we have
seen for this type of program "
—The Rainbow Dec. 82
"A well designed keyboard
overlay (NOT a sticker..."
â– Color Computer News Jan.
'83
UTILITY
By Dennis H. Weide
(Dennis Weide is employed with
A T& Tand works in the 4 ESS (#4
Electronic Switching System). He
is an amateur computerist and
teaches basic programming in the
evenings to promote his hobby.)
One of my hubbies is making toys.
Several years ago, my wife and 1
turned this hobby into a profita-
ble part time business. When 1 bought
my Color Computer, 1 decided to write
some simple programs to help manage
the business. Sales Register is a pro-
gram that runs on a 1 6K. Color Compu-
ter with Extended Color rasic.
Whether you sell toys, cosmetics, house-
hold products or some special service,
you can modify this program to fit your
needs.
What Does It Do?
Sates Register acts as an onsight cash
register and sales recorder. It also does
some minor inventory control.
When we sell our products at crafts
fairs, we use the program as a cash regis-
ter. It produces a customer sales receipt
on the printer and a business record on
the cassette. At the end of the day, 1
rewind the cassette and go home. Once
home, 1 load and run the program and
select the retrieve function. While 1 cat
my dinner, the computer is compiling
all the data for me and listing the totals.
I then enter them in my ledger and save
the cassette in a safe place.
During the Christmas season, we
receive a lot of telephone orders. 1 usu-
ally keep the program loaded and run-
ning during the day while I am at work.
When a customer calls and places an
order, my wife enters it in the computer.
When it comes time to make the toys,
we run an inventory sales list. One look
at the list tells us how many of each toy
we must make. When delivery date rolls
138
the RAINBOW
August 1983
16K
ECB
I
the
!â– }
RAINBOW
' '- •*
TURN YOUR
COMPUTER
INTO A
around, I can either use the customers
copy or retrieve another copy to have a
record of the customer's name, address
and order.
How The Program Works
A short explanation of the program
will help you to understand it. Before
you CLOAD the program, enter this
statement first to clear all graphics
memory: POKE 25,6:NEW.
When you run the program, a menu
appears. You have three choices:
1 ) Compile sales data
2) Retrieve sales data
3) Read inventory data
Compile Sales Data
To compile sales data, enter a "I"
when the menu appears. Each time you
enter the compile mode, you will be
asked to enter the date. You will also be
asked if you want a printer copy or a
magnetic tape copy. The printer copy
can be used as a customer receipt or for
your own records. The magnetic tape
copy is a permanent record for you that
can be used to analyze the data, If you
choose a printer copy, be sure to turn
the printer on. If you select a magnetic
tape copy, be sure to load a blank
cassette into your recorder and set it to
record.
After you have answered these
prompts, a sales form will appear on the
screen. The cursor will be located next
to "SOLD TO." Type the customer's
name and ENTER. Then type the cus-
tomer's address and ENTER. The cur-
sor will move under the "ITEM" col-
umn. Type the name of the item sold as
it is listed in the inventory data (we will
see how to enter inventory data later)
and ENTER. The cursor then moves
under the "QUAN" column. Type the
quantity of this item that the customer is
purchasing and ENTER. The cursor
will move to the "PRICE EA." Type in
the price of one item. When you press
ENTER the program will multiply the
price of one item by the quantity pur-
chased and print the total under the
"PRICE EA." column. Press ENTER
one more time. The cursor will disap-
pear. If your entries are incorrect, press
E. This will erase the last line entered
and set the program up for another
entry. If you should discover that you
have made an error after you have
pressed ENTER, keep pressing ENTER
until the cursor disappears. Then press
E to erase the entire line from the pro-
gram. If your entry is correct, and you
wish to make another, press ENTER.
The cursor will move down one line and
wait for the next entry. Press CLEAR if
you are finished When CLEAR is
pressed, the program will compute and
display the subtotal, sales tax and the
total. Also, if you have chosen a mag-
netic tape copy or a printer copy, the
program will generate those for you (see
Figure 1 for a customer receipt sample).
Figure
1
Sample
Figure 1
of Customer H
eceipt
C'&cM WOOD PRODUCTS
PH 505+293-
5228
RO
95£9 U-
'-r â– G _ B I V
S- HIGHWAY 42
â– =* -_â–
IJHE 1 983
SEDAN 1930
FORD VAN
LRG HELICOPTER
< 2 )
< i >
< i 5
* 32.09
$ 7. m
* 12,59
SUBTOTAL
'SALES TAX
4
* 51.50
t 2.06
TOTAL
* 53.56
WE
GURRRNTEE
YOUR
SRT I SFRCT I ON
August 1933 the- rainbow 139
After all this is finished, a prompt will
tell you to press ENTER to continue.
When you do, the screen will clear and a
new sales form will appear with the cur-
sor positioned next to "SOLD TO."
You are now ready to make another
sale.
Some Handy Options
If you type "MENU" next to "SOLD
TO," the program will return to the
main menu and allow you to pick
another program function. If you type
"TOTAL" next to "SOLD TO," the
program will display the total amount
of sales and taxes lor this run of the
program. In addition, if you have retriev-
ed any data from cassette before the
run, the totals for that data will be
added to the current total.
For the first entry of the day, enter
"START" next to "SOLD TO." For the
last entry of the day, enter "END" next
to "SOLD TO." These two keywords
are used by the program to locate the
start and end of the daily sales. They are
also good points of reference when you
retrieve the data for analysis.
The program will accept returns and
refunds. Just enter "RETURN" or "RE-
FUND" (for your own information)
next to "SOLD TO"and enter the quan-
tity as a negative number. The program
will compute everything for you.
Retrieving Data
To retrieve data, rewind the cassette
and press "PLAY. " Then type "2" when
the menu appears. The program will ask
if you want a printer copy or an inven-
tory list . The printer copy (see Figure 2)
shows the date, customer's name and
address, and the items sold. It also
shows the total of that sale as well as the
daily total up to and including that sale.
This is done in case of multilated data
on the cassette. If one sales record is
lost, the total will still be displayed on
the next good record.
A Crosshatch (#) printed next to the
item sold indicates that this item did not
match anything in the inventory.
The inventory list (see Figure 3) will
print each item of the inventory, the
price of that item, the quantity sold and
the total earned from each item. At the
end, it will total all the sales for both the
matched and mismatched data. You
will have to adjust the inventory manu-
ally for the mismatched data. This is
done for all entries between "START"
and "END." Analyzing this data can
show which items are the profit makers.
Reading Inventory Data
To read inventory data, enter "3"
when the menu is displayed. Again, you
Figure 2
Sample of Retrieved Data
1 MARCH 1983
STHR1 OF" DflTfi
1 P1RRCH 1983
SOLD TO
ADDRESS
JOHN DOE
1560 E. RNYPLRCE ST.
ITEM SOLD
SEDAN 193?
FORD VAN
LRC HELICOPTER *»
DAILY SUBTOTAL
DRILY TAX
DAILY TOTAL
QUANTITY PRICE EA. TO
2 * s.eo
1 f 7.661
1 * i£.se
'TfiL PRICE
16.00
12.56
35. 56
1.42
t 36. 3Z
SUBTOTAL
TAX
TOTAL
* 35. 50
* 1.42
1 MARCH 1983
SOLD TO MARY SMITH
ADDRESS est.11 N.SOMEPLRCE AVE.
— I----!--- QUANTITY PRICE Efi. TOTAL PRICE
T-2B PLAME i \ g"^ ". "~-
f£j L ? SLBTOTAL t «3. SO SUBTOTAL V'T.ll
DAILf TAa f_ i.,4 Tfl v; t e32
DAILY TOTAL * "^24 TC , Tf|L V'l'Ji
1 MARCH 19S3
EMD OF DATA
have the option of a printer copy. This
copy (Figure 4) simply shows you the
entire inventory list for reference and
editing. It can also be used as a price list.
The program will read all data state-
ments and list a line number, the item
and its price. This is useful for adding or
deleting items in the inventory data
statements. After all inventory items
have been read, the program returns to
the main menu.
Entering Your Own Inventory
Entering your own inventory is sim-
ple. Use data statements to list the item
and price. In my program listing, the
first data statement is at line 24400. The
first item is a toy Cessna 172 airplane
which sells for $ 1 8.50. The second item
is a toy Stearman airplane which sells
for $22.50. As you can see, the inventory
is entered as ITEM,PRICE EACH,
ITEM,PRICE EACH,etc. The data state-
ments can be up to 255 characters per
statement but I find it easier to keep
them relatively short. You can add as
large an inventory as memory will per-
mit. This program listing runs in 16K
with a little room left over.
The last line of the program should be
24800 DATA END,0. Line 3800 reads
this line to determine when it reaches
the end of the inventory. When you use
this program, delete lines 24400 through
24700 and add your own inventory at
this point. You can increment your line
numbers as you wish (i.e., 24400, 2440 1 ,
etc.)
I have limited all item names to 15
characters in length so that they can be
displayed easily on the screen. You can
use longer names if you do not care
about the screen display but it will
require more memory. Also, the pro-
gram matches the item you type in to the
inventory list so keeping it short makes
the job easier all the way around.
Control Codes
This program was written for a Line
Printer Vll. However, I have used con-
trol codes for the printer functions so
that if you have a different printer, you
can change the codes and the program
will run on your printer. Here are the
codes:
Pl$ prints 32 "#" on the screen
140
the RAINBOW August 1983
P2$ prints 32 blank spaces on the
screen
P3$ sends a line feed to the printer
P4$ sets LINE PRINTER VII to
large font
P5$ sets LPVII to small font (normal)
P6S prints 80 dashes across paper
P7$ prints 40 cross hatches across
paper (large font)
Changing Variables
Line 2400 sets the name of your busi-
ness. Replace the letters inside the quo-
tation marks with the name of your
business.
Line 2800 sets the state gross receipts
tax (sales tax). If your state sales tax is
4.5 percent then line 2800 should look
like this: 2800 TX=. 045
Line 3200 sets the business telephone
number and line 3300 sets the final mes-
sage that you want printed on the cus-
tomer's receipt. Again, just change the
letters inside the quotes to indicate your
business phone number or any message
you might wish to appear on your sales
receipt.
Some Final Notes
When compiling sales data, the pro-
gram allows ten line entries per custo-
mer. If you want to increase the number
of line entries, you must dimension IS$,
Figure 3
Sample of Inventory List
INVENTOR?
ITEM
INVENTORY
PRICE
EH.
SOLES LIST
QUANTITY
SOLD
TOTAL
PRICE
CESSNA 172
* 18.58
*
e.00
STEflRMRN
* 22.5B
e t
e.ee
F-8f SA6RE
* s.ee
*
0.09
C-130 HERCULES
» H.ee
e *
0.00
T-28 PLRHE
* 8.00
1 *
e.00
BIPLANE W'PROP
t u.ee
«
0.00
bc-s JET
$ 14. ee
*
e.ee
LRGE BIPLRNE
* 30.ee
e <
0.00
LRCE C-130 .
* 25.ee
e *
e.ee
SE5A BIPLRNE
* ie.ee
i
9.00
LRGE HELICOPTER
t i2.se
1
0.0A
SM HELICOPTER
* ie.ee
e i
e.ee
FORD VRM
* 7.0©
i i
7.00
TRUCK STKBP
# ie.ee
A t
e.ee
SPCAR MGfl
* g.ee
i
e.ee
SEDAN 1936
* BiBCi
2 1
is.ee
COUPE 13^n
* e.ee
e f
e.ee
SEDAN 1948
* e.ee
0;00
BLAZER
$ 7.B0
J
e.ee
JEEP
* 7.©e
i
0.00
TR-7 CAR
* 7.00
i
i 0.00
BLAZER U-BOAT
* 14.ee
e t
i e.ee
JEEP W/CHMPER
* 14.00
i
r e.ee
SCHnnLBi is
* r.ee
e i
( e.en
TRUCK DMP
* i4.ee
i
* 0.99
TRUCK SEMI
* 14.00
r 0.90
TRUCK TNKER
* 14.ee
e
r e.ee
TRUCK LOC LRGE
* 22.50
a
t 0.00
LRGE DOLL
* 15.ee
â–º e.eo
SMALL DOLL W>NC
* 14.99
9
r e.ee
D0LLBED (J/BLK
* 13.50
t e.ee
DOLL CRADLE
* 3e.ee
e
» e.ee
LRGE CANNON
* 4.00
* e.ee
SM CANNON
* 2.30
e
* e.ee
DEC PILLOW
* 4.B0
e
> e.ee
CAT STFD
* 3.00
* 0.00
PLftGUC'CHR
» 4.60
e
* e.ee
Animal cts
* 1.25
e
* e.ee
PLflQUE'GUM
* 2?. 00
t e.ee
MISMATCHED SALES
INVENTORY SALES
TOTAL SALES
i2.se
31.00
FILMASTR
A powerful DATA MANAGEMENT SYSTEM for the
COLOR COMPUTER. If you have been wanting a really
good data manager at a reasonable price, THIS IS IT!
FILMASTR combines the best features of the big
systems to provide a combination of speed, power, and
simplicity that can't be beat.
CUSTOM SCREENS - Design input screens with up to
2D fields. Inverse labels for contrast.
FORM FILL ENTRY - Non-destructive blinking cursor,
full screen editing, no garbage collections, copy fields
from previous record. Keeps up with the fastest
typist.
FAST SORT & SEARCH - Machine language sorts the
entire file in seconds. Sort on any field or fields. Use a
variety of relational search techniques to select any
record or group of records that you can define.
EDIT FILES - Change or delete any record easily. Create
and save sub-files or append files.
PRINT FORMAT - Print any field in any order on any line.
Insert characters or phrases.
MENU DRIVEN - No special commands to be learned.
All functions are menu selected and aided by on
screen instructions.
CAPACITY - Up to 255 characters per record, 24000
characters per file. (9000 with 1 GK)
DOCUMENTATION - A thorough manual with
examples and explanation of every command.
1SKor32K TAPE $29.95
EXT BASIC DISC 34.95
TIME & MONEY
A "WHAT IF?" financial planning tool. T & M is used to
evaluate the time value of money as an aid in planning
investments, savings plans, retirement plans, leases,
loans, mortgages or any other situations that involve
compound interest.
The program is menu driven with simple on-screen
instructions. It uses a unique form fill-in for data entry
with easy editing. It even accepts simple math expres-
sions as input.
Calculated results are automatically entered as data and
can be used for further "WHAT IF?" calculation. All
factors are always on screen, making it easy to
understand the relationship between TIME & MONEY.
TIME & MONEY
16Kor32K
EXT BASIC
TAPE $19.95
' DISC 24.95
THE
COMPUTER (814] 371-4658
HOUSE
Box 1051, DUBOIS, PA 15801
FILMASTR
Add $2.00 Postage & Handling
PA Residents Add B°/o Tax
C.O.a £2.00 Additional
August 1983
the RAINBOW
141
IPS and IQ$ to the maximum number
of line entries you want. Also, delete
lines 7800 and 8500 and replace the
PRINT@ statements with PRINTTAB
statements.
You can delete REM statements if
you wish to save more memory. If your
prices are printed with a percent sign
(%) in front of them, it means that the
PRINTUSING statements are too
small. Add a Crosshatch (#) to the
statements as needed.
In line 1500, the first POKE is used to
set the printer comma width. The second
POKE is used with the SCREEN com-
mand to change the color of the screen if
you use a black and white TV.
Once you get the program working
properly, you can delete the REMarks
and all spaces from the program to
increase the amount of free memory.
1 have included a Table Of Variables
(Table 1) to assist you in modifying the
program for your needs. Although the
program is slow (because of the LP VII
and cassette), I find that the amount of
time saved in figuring my orders and
profits as well as having a permanent
record makes this program useful.
INVENTORY ITEM
Figure 4
Sample of Inventory Data
INVENTORY DRTR
PRICE Efl.
1 CESSNA 172
2 STEHRriRN
3 F-86 SRBRE
4 C-130 HERLULES
5 T-28 PLANE
*18.50
*22.50
* 5.00
*14.03
* 8.00
6 BIPLRNE U^PROP
7 DC-S JET
8 LRGE BIPLflHE
9 LRGE C-130
10 SESfi BIPLANE
»H.oo
tu.ee
*3B.00
t25.ee
tie.ee
11 LRGE HELICOPTER
12 SM HELICOPTER
13 FORD VAN
14 TRUCK STKBD
15 SPCAR MGA
•12.30
tie. ee
* 7.00
♦ie.ee
* 8.00
16 SEDAN 1930
17 COUPE 1930
18 SEDRH 1940
19 6LRZER
20 JEEP
* 8.00
* 8.00
* 8.00
* 7.06
* 7.66
21 TR-7 CAR
22 BLRZER U/BDAT
23 JEEP W^CRMPER
24 SCHOOLBUS
25 TRUCK DMP
* ?.ee
*i4.ee
*14.00
* 7.00
(14.00
26 TRUCK SEMI
27 TRUCK TNKER
28 TRUCK LOG LRGE
29 LRGE DULL
30 SMALL DOLL W--NG
ti4.ee
•14.00
•22. 50
•15.00
•14.00
31 DOLLBED IVBLK
32 DOLL CRHDLE
33 LRGE CANNON
34 SM CANNON
35 DEC PILLOW
•13.50
•30.00
* 4.00
* 2.58
* 4.00
The Original FLEX "for Color Computers
* Upgrade to 64K
' RS to FLEX, FLEX to RS file transfer ability
* Create your own character set
* Automatic recognition of single or double density and single or
doubled sided
" All features available for either single or multiple drive systems
* Settable Disk Drive Seek Rates
* Faster High Resolution Video Display with 5 different formats
* Save RS Basic from RAM to Disk
* Move RS Basic to RAM
* Load and save function on FLEX disk
" 24 Support Commands 1 2 with Source Text
* External Terminal Program
Languages Available
Pascal. Fortran, RS Basic, RS Assembler, TSC Basic, TSC Assemb-
ler, Relocating Assembler, Macro Assembler, Mumps
If you are fired ol playing games on your TRS-80C Color Computer, or find thai you are
handicapped by the limitations of the RS BASIC in trying tu wule a Program that will allow you to
actually USE the Color Computet as a COMPUTER. YOU ARE READY TO MOVE UP TO THE
FLEX9 " Operating System. II you want to Have REAL PROGRAMMING POWER, using an
Extremely Powerful Business BASIC. PASCALS. C Compilers, a lull blown Macro Assembler
wrili a Library capability so you are not continuously reinventing the Wheel YOU ARE HEAUY
TO MOVE UP TO THE FLEX9 Operating System. If you would like to see if YOU REALLY
COULD USE A COMPUTER IN YOUR fciUSINtSS. or begin to make your Computer start
PAYING IT'S OWN WAY by doing some Computer Work for the millions ol small businesses
around you. such as Wordprocessing Payroll Accounting Inventory etc then YOU ARE
READYTO MOVE UP TO THE FLEX9 Operating System How" DATA-COMP Has the way'
DATA-COMP has everything you need to make your TRS-80C Color Computer WORK
for YOU; from Parts and Pieces to Full, Ready To Use SYSTEMS. DATA-COMP designs
sells, services, and SUPPORTS Computer SYSTEMS; not just Software. CALL DATA-
COMP TODAY to make your Computer WORK FOR YOU'
System Reguirements
FLEX9 Special General Version x Editor S Assembler (which normally sell for SSO Of)
ea.) $150 00
F-MATE(RS) FLEX9 Conversion Rout tor the RS Disk Controller
when purchased with Special General FLEX9 Sys. $49 gs
when purchased without the General R FXS Sys $58 95
Set of Eight 64K RAM Chips w Mod Instructions $59 95
Color Computer with 64K RAM and EXT BASIC
SPECIAL SYSTEM PACKAGES
$399 95
64K Radio Shack COLOR COMPUTER. Radio Shack COLOR DISK CONTROLLER, a Disk
Drive System. Special General Version of FLEX9 , F-MATE(RS) " and a Box of 10
Double Density Diskettes: a COMPLETE, ready »n run SYSTEM on your Color TV Set.
$1079.95
DISK DRIVE PACKAGES, etc.
These Packages include the Radio Shack Disk Controller. Disk Drives with Power Supply and
Cabinet, and Disk Drive Cable:
DATA-COMP s FLEX9 Conversion lor the TRS-BUC Color Computer was designed lor the
SERIOUS COMPUTER USER; with features like greatly increased Display Screens WITH
Lower Case Letters, so you can put a FULL Menu on ONE Screen or see SEVERAL Para-
graphs at the same time: with features line providing a FULL Keyboard so you have FULL
Control ot your Computer AND it s Programs NATU RALLY, without needing a chart lo see what
Key Combination will give you what lunction with USER ORIENTED functions to make using
the Operating System natural, like having the Computer AUTOMATICALLY determine what
type of Disk is being used in what tyne ol Disk Drive and working accordingly, rather that you
have to specify each and every thing lor it. or like having the Computer work with the Printer you
have been using all along without you having lo leil the new Operating System what is there etc
â„¢FLEX is a trademark of Technical Systems Consultants
_. .' . _ _ . M _ P.O. Box 794 HIXSON, TN 37343
DATA-COMP 1-615-842-4601
PAK #1-1 Single Sided. Double Density Sys
PAK #2 2 Single Sided. Double Density Sys
PAK #3 1 Double Sided. Double Density Sys
PAK *4 - 2 Double Sided. Double Density Sys
PAK rf5 — 2 Qume Thmlme Double Sided Double Density Sys
PARTS AND PIECES
Radio Shack Disk Controller
1 Single Sided. Double Density Disk Drive Tandon
1 Douhle Sided Dniihle Density Disk Drive Qume
1 Qume Thmlme Double Sided. Double Density
Screen Clean — Ciears Up Video Distortion On Your Color Computer
Single Drive Cabinet with Power Supply
Double Drive Cabinet with Power Supply
Single Drive Disk Cable tor HS Controller
Double Drive Disk Cable lor RS Controller
Micro I ech Prods . Inc LOWER CASE ROM Adapter
Radio Shack BASIC Version 1.1 ROM
Radio Shack Extended Basic ROM
$48995
$749.95
$56995
$919.95
$749.95
$179.95
$249.95
$349.95
$279.95
$39.95
S89 95
S109.95
S24 95
S34 95
S74 95
S34 9S
$89 95
142
the RAINBOW
August 1983
Table of Variables
(Numeric Variables)
B
reads numeric data statements
CT
daily total charges without tax
E1-E2
FOR-NEXT loop or error subroutine
F1-F2
program flags
I
used for any insignificant prompt inputs
IQ
quantity of item sold for customer receipts
IS(X)
quantity of item sold for inventory sales list
IT
total sales for inventory sales list
L
determines length of string variables
LP
loop values for reading data statements
MO
total amount of sales compiled in retrieve mode
MM
total mismatched sales for inventory sales list
TC
total charge per sale without tax
TQ
total quantity sold
TT
total sales tax per day
TX
state sales tax
T1-T9
screen tab settings
X,Y,Z
used in FOR-NEXT loops
Table of Variables
(String Variables)
AS
used to read string data
ADS
customer address
BN$
your business name
CCS
input for cassette copy prompt
DAS
date entered in compile mode or read in retrieve
mode
1$
input for insignificant prompts
ILS
input for inventory list prompt
1P$(X)
price of item sold
IQ$(X)
quantity of item sold
IS$(X)
name of item sold
PCS
input for printer copy prompt
Pl$-P7$ screen and printer codes
NO$
message for bottom of customer receipt
SP$
customer name
TN$
your business phone number
\*
The listing:
' 4600 . .
. . 030A
6800 . .
. . 055B
8400 . .
. . 07 A0
11000.
. . 0AB6
13300.
. . 0D85
16800 .
.. 11AB
20000 .
...1527
22500 .
...1817
END..
. . 1CF9
SALES REGISTER
BY DENNIS H. WEIDE
COPYRIGHT 1983
1000 *
1100 '
1200 *
1300 '
1400 CLS: CLEAR 1000
1500 POKE 153, 23: POKE 359, 13: SCR
EEN 0,1
1600 '
1700 » CONTROL CODES
1800 *
1 900 P 1 *=STR I NG* ( 32 , " * " ) : P2*=STR
ING* <32, 32) : P3*=CHR* ( 10) : P4*=CHR
BY DENNIS H. WEIDE
COPYRIGHT 1983
*<31)
2000 P5*=CHR* < 30 ) : P6*«STR I NG* ( 80
, ■■-» ) : P7*=STRING* (40, "#" )
2100 *
2200 ' BUSINESS NAME
2300 *
2400 BN*="D&M WOOD PRODUCTS"
2500 *
2600 • STATE GROSS RECEIPTS T
AX
2700 '
ISTER
1100 *
1200 *
1300 *
1400 CLS: CLEAR 1000
1500 POKE 153, 23: POKE 359, 13: SCR
EEN 0, 1
1600 *
1700 ' CONTROL CODES
1800 '
1 900 P 1 *»5TR I NG* ( 32 , " * " ) : P2*=STR
ING* (32, 32) : P3**=CHR* ( 10) : P4*=CHR
*(31)
2000 P5*=CHR* ( 30 ) : P6*=STR I NG* ( 80
, "-" ) : P7*=STRING* (40, "#" )
2100 '
2200 * BUSINESS NAME
2300 *
2400 BN*="D&M WOOD PRODUCTS"
DEALERS PLEASE WRITE FOR' DISCOUNTS
THE COLOR COMPUTER PIN
ONLY $5.95 Ppd-
Send check or money order to.
* BEAUTIFUL DETAIL
* INDIVIDUALLY BOXED
* CAST IN SOLID PEWTER
* CLUTCH BACK
* IfMEDIATE DELIVERY
* EXCELLENT 6IFT FOR
MEN AND WOKEN
GEM £MOUNZ
MANUFACTURING CO
{206)365-0359
P. O. BOX 30
Mountlake, Terrace, WA 98043
IN tANAM SEND »4.93 TO W CANADIAN DISTRIBUTOR
t* KELLY SOFTWARE DISTRIBUTORS LTD,
P.O.BOI lira EDffllNTON, ALBERTA T5J 3L1
August 1983
the RAINBOW
143
2500 *
2600 ' STATE GROSS RECEIPTS T
AX
2700 *
2800 TX=.04
2900 *
3000 ' BUSINESS PHONE NUMBER
3100 *
3200 TN**"PH 505+293-5228"
3300 NO*="WE GUARANTEE YOUR SAT I
SFACTION"
3400 '
3500 ' DETERMINE INVENTORY LI
ST LENGTH
3600 '
3700 READ A*,8:X=X+i
3800 IF A*="END" THEN LP=X-1 ELS
E 3700
3900 DIM IS (LP)
4000 '
4100 * DISPLAY MENU
4200 *
4300 CLS: PRINT PI*; : PRINTTAB <9> "
SALES RECORD "
4400 PRINTTAB (7> "BY DENNIS H. WE
IDE"
4500 PRINTTAB(9)"C0PYRISHT 1983"
4600 PRINT PI*
4700 PR I NT : PR I NTTAB (10)" PROGRAM
MENU"
RAINBOWfest Seminar
Talks Available On Tape
Copies of all seminars given at RAINBOWfest are now
available on audio tape.
In addition, a tape is available of the keynote breakfast
speech given by Don Inman. Seminars were given by
Fred Scerbo of 1MB on educational software; E.R.
Bailey of Micrologic un faster Bask; [)r. Hal Snyder ui
the Northern Illinois Color Computer Club on assembly
language techniques; Tom Nelson of Nelson Software on
legal aspects of software marketing; Sieve Bjork of
Datasoft on assembly language graphics; Charles
Roslund of Elite Software on machine language utilities
and a cooperative session for CoCo clubs with Lonnie
Falk of the Rainbow. Fach session lasted over an hour.
Tapes arc $5 each, or all eight for $35. There is a $1 .50
shipping and handling charge, whether you buy one or all
ofihem.
Orders should be sent to Seminar Tapes, Pi ickly-Peai
Software, 9234 E. 30th Street, Tucson. AZ857I0. Donot
send orders directly to the Rainbow, it will just delay your
order.
4800 PRINT: PRINTTAB (5) "1. COMPIL
E SALES DATA"
4900 PR I NTT AB ( 5 ) " 2 . RETR 1 EVE SAL
ES DATA"
5000 PRINTTAB (5) "3. READ INVENTO
RY DATA"
5100 print:printtab<9> ,,h ;: input"
WHICH ONE"; I
5200 CLS
5300 ON I GOTO 5900,12900,21100
5400 CLS:GOSUB 18500: GOTO 4300
5500 PRINT IS*(Y),IP*(Y),IQ*(Y)
5600 '
5700 * COMPILE SALES DATA
5800 '
5900 INPUT "ENTER TODAY'S DATE";
DA*
6000 PRINT: INPUT "PR INTER COPY (Y
/N)"5PC*
6100 PRINT: INPUT "MAG TAPE COPY (
Y/N)" 5 CC*
6200 CLS: IF PC*="Y" THEN 6300 EL
SE 6400
6300 PR I NT : PR I NTTAB (1) "TURN PR I
NTER ON AND SET PAPER": PRINT
6400 IF CC*="Y" THEN 6500 ELSE 6
700
6500 PRINTTAB (10) "LOAD CASSETTE"
6600 PRINT:PRINTTAB<4)"PRESS <PL
AY> & < RECORD >"
6700 GOSUB 19900
6800 , cls: x=l : TQ=0: tc=0: priNTTAB (
l)"SOLD TO"
6900 PR I NTTAB < 1 > " ADDRESS " : PR I NT
PI *"
7000 PRINTTAB < 1 ) " ITEM" ; TAB ( 15) "Q
UAN"5TAB<23>"PRICE EA": PRINT PI*
7100 PRINT@10,""?:LINE INPUT SP*
7200 IF SP*=" START" AND PC*="Y"
THEN 7300 ELSE 7400
7300 PRINT#-2 § P4*jP7*j"START OF
DATA" SP5*: GOTO 9600
7400 IF SP*="END" AND PC*="Y" TH
EN 7500 ELSE 7600
7500 FRINT#-2,P4*;P7*?"END OF DA
ta";P5*:goto 9600
7600 IF SP*=" TOTAL" THEN 19100 E
LSE IF SP*-"MENU" THEN 4300
7700 PRINT@42,""s:LINE INPUT AD*
7800 T1=161:T2=1B4:T3=177
7900 PRINT@T1,"";:LINE INPUT IS*
(X):PRINT@T3, , " , j
8000 LINE INPUT IQ*(X):PRINT<rr2,
,M, ?:LINE INPUT IP*(X)
8 1 00 PR I NT@T2-2 , US I NG " *#### . #* " ;
VAL(IP*<X>)*VAL(IQ*(X)>
8200 I*=INKEY*:IF 1*="" THEN 820
8300 IF I*="E" THEN PRINT@T1,P2*
144
the RAINBOW August 1983
The Standards
WHAT THEY ARE SAYING ABOUT COLORPEDE
iack the Rainbow, Dec 8:
jreat 1 Dayton. OH the b
N. Vernon. IN
McKeesport. PA
risre. t?s Jt* MO O to i
„* # #
COLORP£D£ flDBOTTflCK
I his truly outstanding engineer designed, 100°
machine language game with multi-colored hig
resolution characters and fast action will chc
lenge the most avid arcade butt. Can be playe
by 1 or 2 players controlled with joy sticks or ke
board. Joy stick control is fast, smooth and a(
curate. As COLORPEDE slithers through thetoa
stools, you attempt to destroy the COLORPLDt
iss;
nate toad stools while accumulating higher ar
scores. Pause feature
andTDP-100.
Cassette- $29. 95
>K Oolor Uo
Disk-$34.95
ast arcade action with colorful high resolu
aphics You are the super human who mus
ft the attacking robots and save the remain
jmans from destruction You have suoe
100% mac
Cassette-$24.95
Disk-S27.95
TO ORDER:
^^^ VISA, MASTERCARD, Money Order
/5-^N Please allow 2 weeks for checks. Adf
RAINBOW
iu $1.50 for shinnina, $3.00 outsii
I
P.O. Box 1035, East Lansing, Ml 48823
(517)351-8537
COMMUNICATIONS
DEALER INQUIRIES INVITED
QUALITY PROGRAMS SOLICITED
:GOTO 7900
8400 TC=TC+(VAL(IP*(X) )*VAL(IQ*(
X ) ) ) : TGMTQ+VAL ( I Q* ( X > )
8500 T 1 =T 1 +32 : T2=T2+32 : T3=T3+32
8600 IF ASC(I*)=12- THEN 8700 ELS
E X=X+l:GOTO 7900
8700 PRINTTAB(22) " ":PRI
NTTAB < 1 2 ) " SUBTOTAL " ; TAB ( 22 ) "" ;
8800 PR I NTUS I NG " *#### . ## " ; TC
8900 PR I NTTAB ( 1 2 )" TAX " 5 TAB ( 22 > " "
I : PR I NTUS I NG "*####. ##" ; TX*TC
9000 PR I NTTAB ( 22 ) " " : PR I
NTTAB (12)" TOTAL " ; TAB ( 22 ) " " ;
9100 PR I NTUS I NG "*####. ##" ; TC+ (TX
*TC): PRINT: PRINT
TT=TT+ ( TC*TX ) : CT=CT+TC
CASSETTE COPY OF DATA
IF CC*»"Y"THEN 9700 ELSE 10
OPEN"0",#-l,"DATA"
PRINT#-l,X,SP*,AD*:FORY«l T
9200
9300
9400
9500
9600
300
9700
9800
X:PRINT#-1,IS*(Y) S IP*(Y),IQ*(Y
>:next
9900 PR I NT#- 1 , DA* , TC , TT , CT : CLOSE
-1
10000 '
10100 " PRINTER COPY OF SALES
10200 '
10300 IF PC*="Y" THEN 10400 ELSE
12400
^COLONIAL TRILOGY*
THREE INCREDIBLE NEW GAMES
FOR THE COLOR COMPUTER
HI-RES — 32K — EXT BASIC
COLONIAL WARS: two player game on a galactic scale
WITH HYCOMP'S UNIQUE SPLIT SCREEN CONCEPT-IT'S ALMOST
LIKE HAVING A SEPARATE MONITOR FOR EACH PLAYERI COLONIZE
AND BATTLE FOR CONTROL OF AN 11 STAR SYSTEM WHILE
COMMANDING MASSIVE BATTLECARRIERS,FIGHTER SQUADRONS,
FREIGHTERS.AND PLANETARY DEFENSE. WITH GAME SAVE(3-8hrs)
ZYRON:TWO PLAYERS BATTLE WITHIN AN ASTEROID FIELD WITH
SHIPS BUILT TO THEIR OWN SPECIFICATIONS. TWO SCENARIOS
INCLUDED-ONE PLAYER TRIES TO SLIP FREIGHTERS PAST THE
OTHER'S DEFENSES OR AN ALL OUT BATTLE.(2-4hrs)
QUESTAR: EXPLORE OVER 30 PLANETS AND ENCOUNTER
UNKNOWN CIVILIZATIONS.DESERTED CITIES.AND BUSY STARPORTS
WHILE SEARCHING FOR HIDDEN ZYRON BASES. AN EXCELLENT
ONE PLAYER GRAPHICS ADVENTURE GAME.(60-90min)
ONLY $19.95 EACH OR ALL THREE FOR $49.95! ^^^
PLUS $1.50 FOR SHIPPING w"w
— -^— ^— ^— — RAINBOW
CHECK OR MONEY
ORDER ONLY.
8END SASE FOR
MORE INFORMATION.
AVAILABLE ONLY FROM
'HYCOMP*
P.O. BOX 15331
TULSA. OK 74158
(918)266-6452
10400 IF SP*=" START"
" THEN 12400
10500 PRINT#-2,P4*:L=
)>/2
10600 PRINT#-2,TAB(L)
*
1 0700 L= ( 40-LEN ( TN* ) )
, TAB <L> ; TN*; P3*; P3*
10800 L= (40-LEN (SP*))
,TAB(L);SP*
1 0900 L= ( 40-LEN ( AD* > >
,TAB(L)JAD*;P3*SP3*
1 1 000 L» ( 40-LEN ( DA* > )
,TAB(L);DA*;P3*;P5*
11100 FOR Y=l TO X
11200 PRINT#-2,TAB(20
(40);"(";VAL(IQ*(Y));
OR SP*="END
=( 40-LEN (BN*
;bn*;P3*;P3
/2:PRINT#-2
/2:PRINT#-2
/2:PRINT#-2
/2:PRINT#-2
)IS*(Y);TAB
") ";tab(50)
V
11300 PRINT#-2, USING "*####.##
AL(IP*(Y))*VAL(IQ*(Y)):NEXT Y
1 1400 PRINT#-2, TAB (41 ) " " ; TAB (
50) " "
1 1 500 PR I NT#-2 , TAB ( 20 ) " SUBTOTAL "
S TAB (41 ) 5 TQS TAB (50) " " ;
1 1 600 PR I NT#-2 , US I NG " *#### . ## " i T
C
11700 PRINT#-2,TAB(20)"SALES TAX
" ; TAB (50) " " ; : PRINT#-2, USING"*###
#.##";tc*tx
1 1800 PRINT#-2, TAB (50) " "
1 1 900 PR I NT#-2 , TAB ( 20 ) " TOTAL " ; TA
B(50)"";
1 2000 PR I NT#-2 , US I NG " *#### . ## " ; T
C+(TC*TX)
1 2 1 00 PR I NT#-2 , P3* ! P3* ; P4*
12200 L=(40-LEN(NO*))/2:PRINT#-2
,TAB(L)!N0*;P5*
12300 PRINT#-2, STRING* (5, 10)
12400 FOR Y=l TO X: IP* (Y) =" " : IS*
(Y)» IQ*(Y)=""
12500 NEXT Y:X=0:GOSUB 19900: GOT
6800
12600 *
12700 * RETRIEVE DATA
12800 *
12900 CLS: PR I NT: INPUT "PR INTER CO
PY (Y/N)";PC*
13000 PRINT: INPUT "INVENTORY LIST
(Y/N)";IL*
13100 CLS: IF PC*="Y" THEN 13200
ELSE 13300
13200 PRINT#-2,P3*;P3*;P4*:PRINT
#-2, TAB ( 15) ; "SALES DATA" ; P3*; P3*
;P5*
0PEN"I",#-1, "DATA"
INPUT#-1,X,SP*,AD*
iq=0:for y=i to x
13300
13400
13500
13600
INPUT#-1, IS*(Y) , IP*(Y) , IQ*
(Y) : IQ=IQ+VAL(IQ*(Y) >
146
the RAINBOW August 1983
r
PRICKLY-PEAR SOFTWARE
QUALITY PROGRAMS FOR YOUR COCO & TDP-100
PROGRAMS REQUIRE 16K EXTENDED BASIC FOR TAPE, AND 32 K DISK UNLESS OTHERWISE NOTED.
GOLF
100% MACHINE LANGUAGE
You thought we didn't listen!! We have
had more requests for a REALLY good
high-resolution 100% machine language
GOLF game than almost anything else,
and it's finally ready.
This game will impress anyone!!! Multi-
color highest resolution golf course in-
cludes sand traps, water hazards, and
even sahuaro cactus to get in the way of
unwary players. As you move your joy-
stick, the highly detailed golfer on the
screen walks around the course. You must
move him until his club is properly ad-
dressing the ball. You then press the fire
button and watch him start his backstroke.
You hold down the button until you judge
hisciubto be far enough back and then re-
lease it The golferwill then swing the club
and the ball will sail down the fairway. The
length of the backstroke and the choice of
the club determine the distance. Then
walk down the course and line up your
next shot. When you get on the green, the
action will expand so the green fills the
screen, and then you putt.
The graphics in this game are absolutely
breathtaking. The animation is fantastically smooth and very fast — the play is challenging and tons
of fun. This game is as good or better than anything you have seen on even a dedicated arcade
machine. Everything— the title screen, the graphics, the sound, and the play are state-of-the-art or
better! If you think we're proud of this game, you're absolutely right!! Don't miss it!
TEEEQFFF is for 1 to 4 players. The par and hole numbers are displayed on the screen along with
the current total score for all players. Every hole is different — some easier and some really tough
to make par. Requires a joystick 16K Tape — $24.95; 32K Disk — $29.95
Programs are available on AMDEK
cartridges - add $5.00 to the dish
price.
2IECHER
\.
Your Persona! check is welcome - no delay. Include
$1.50 shipping for each program ordered (Shipping free
on $50.00 or larger orders). AZ residents add 7% sales
tax. Orders shipped within two days.
Stocked by Quality Dealers, or
Send Order To PRICKLY-PEAR SOFTWARE
9234 E. 30th Street
Tucson, Arizona 85710
(602) 886-1505
13700 NEXT Y: INPUT#-1,DA*,TC,TT,
CT: CLOSE- 1
13800 MO=0: PR I NT: PR I NT "SOLD TO "
SP*: PRINT: FOR X=l TO Y-l
13900 PRINTTAB(2) ;VAL(IQ*(X> >;TA
B(5>; IS*(X) ;TAB(24>;
1 4000 PR I NTUS I NG " *### . #tt " ; VAL ( I P
*(X>)*VAL(IQ*(X>>
14100 MO=MO+(VAL(IP*(X> >*VAL(IQ*
<X>> ):NEXT X
1 4200 PR I NTT AB ( 24 > " " : PR I N
TT AB < 1 5 > " SUBTOTAL " ; TAB ( 24 ) " " j
14300 PR I NTUS I NG" *###.## "5 MO
14400 PRINTTAB < 15) "TAX " J TAB (24) "
ii â–
>
14500 PR I NTUS I NG "*###. ##" ; MO*TX
1 4600 PR I NTTAB < 24 > " "
1 4700 PR I NTTAB < 1 5 > " TOTAL " ; TAB < 24
) " " ;
1 4800 PR I NTUS I NG " *### . ## " ; MO+ ( MO
*TX): PRINT
14900 IF IL*="Y" THEN GOSUB 2030
15000 IF PC*="Y" THEN 15400 ELSE
17800
15100 '
15200 ' PRINTER COPY OF DATA
15300 '
1 5400 PR I NT#-2 , P4* ; P7* ; P3* : PR I NT
PRO-COLOR-FILE
if you're through playing games and are ready to
get serious about software, then PRO-COLOR-
FlLE is for you. Turn your TRS-80 32K Color
Computer Disk system into a powerful data base
manager.
We're serious about PRO-COLOR-FILE. It's the only
program of its kind that gives so much flexibility and
power to your color disk at a price that will fit your
budget. In fact, it could be the least expensive software
you'll ever buy.
PRO-COLOR-FILE is not just one program. It gives you
the ability to create any application that requires infor-
mation to be stored, searched, updated, sorted and
reported. You can custom design your own mailing list,
inventory, stock investment records, time manager,
expense records, income records .... anything.
The best part about PRO-COLOR-FILE is that you don't
have to be a programmer of even know a lot about disk
input/output to use it. You design your application
programs in a way that is easy for you to understand and
use. In fact, the more you use PRO-COLOR-FILE the
more you learn about data base development.
Only $79.95 + $2.00 Shipping and Handling.
We accept VISA, MASTERCHARGE, Checks or Money Orders.
No C.Q.D.'s please.
Call or writt for more drt ails:
DERRINGER SOFTWARE. Post Office Box 5300. Florence. S.C.
29502. Phone: (803) 665-5676 after 6:00 p.m (EDT).
PRO-COLOR-FILE ©1983 Dennis Derringer.
"TRS-80 is a trademark of the Tandy Corp.
#-2,DA*;P3*
15500 IF SP*="START" THEN PRINT*
-2, "START OF DATA": GOTO 17700
15600 IF SP*="END" THEN PRINT#-2
, "END OF DATA":60T0 17700
15700 PRINT#-2, "SOLD TO " 5 SP*
1 5800 PR I NT#-2 , " ADDRESS " ; AD*
15900 PRINT#-2,P5*;P3*
16000 IF LEFT^SP^S^'START" OR
LEFT* (SP*, 3>=" END" THEN 16100 E
LSE 16200
16100 PRINT#-2,SP*:G0T0 17800
16200 PRINT#-2," ITEM SOLD'V'QU
ANTITY", "PRICE EA.", "TOTAL PRICE
â– 1
16300 PRINT#-2,P6*
16400 FOR Y=l TO X-l
16500 PRINT#-2,IS*(Y),:PRINT#-2,
USING"####" ; VAL < IQ* < Y> ) , : PRINT*-
o M ii
16600 PRINT#-2, USING"*####. ##" 5 V
AL(IP*(Y>>,
1 6700 PR I NT#-2 , " " , : PR I NT#-2 , US I N
8"*####. ##" ; VAL < IP* ( Y> > *VAL < IQ* (
Y> >
16800 NEXT Y
16900 PRINT#-2, , , , " "
17000 PRINT#-2,"DAILY SUBTOTAL",
: PR I NT#-2 , US I NG " *#### . ## " 5 CT ,
1 7 1 00 PR I NT#-2 , , " SUBTOTAL " , : PR I N
T#-2 , US I NG " *#### . ## " 5 TC
17200 PRINTtt-2, "DAILY TAX".,:PRIN
T#-2, USING"*tt###. ##" ; TT,
1 7300 PR I NT#-2 , , " T AX " , : PR I NT#-2 ,
US I NG "*####. ##" 5 TX*TC
ii ii n__
'i>! ft
- " : PR I NT#~2 , " DA I LY TOTAL " ,
1 7500 PR I NT#-2 , US I NG " *#### . ## " 5 T
T+CT, : PRINT#-2, , "TOTAL" ,
1 7600 PR I N T*-2 , US I NG " *#### . ## " j T
C+(TC*TX>
17700 PRINT#-2,P3*;P3*;P3*;P3*
17800 IF LEFT* (SP*, 3)= "END" THEN
PRINT: GOTO 18000
17900 GOTO 13300
18000 IF IL*="Y" THEN GOSUB 2240
18100 GOSUB 19900: CLS: GOTO 4300
18200 '
18300 * ERROR SUBROUTINE
18400 7
18500 FOR El=l TO 5
18600 CLS: PRINTS233, "ILLEGAL ENT
RY"
18700 SOUND 100, 5: CLS: FOR E2=l T
50: NEXT E2, El: CLS: RETURN
18800 '
18900 ' DISPLAY TOTALS
19000 *
19100 CLS: PRINT: PRINTTAB (5) "TOTA
148
the RAINBOW
August 1983
CoCo HEADQUARTERS
Looking to unlock the capacity of your Color Computer?
Search no more.... —
TOLL FREE
1-800-251-5008
Extended Basic S 89.00
32/64k Upgrade $ 69.00
16k Upgrade S 25.00
R/S Disk Controller S 189.00
1 . 1 Basic ROM S 27.00
Amdek Disk Drives 5 Call!
Hayes SM1200 Modern $ 599
USR AL212 (V00/1200) $ 495
Hayes SM 300 Modem $ 239
R/S D.C. Modem 2 $ 215
USRAL3O0 $199
R/E D.C. Modem 1 $ 129
Hayes/USR Cable S 19
26-3020 Cable 5 5
SPECIALS
Super Pro Keyboard Kit
26-3004 Color Computer 16k
26-UUU2 Extended 16k CoCo
26-3003 32k Extended CoCo
26-3003(d) 32/64k Ext. CoCo
26-1192 CGP-115 Printer
ACCESSORIES
00 26-1208 CCR-81
â– 00 26-3008 Joysticks
-00 Kraft Joystick
-00 Wico Track flail
00 Wico Joystick
.00 Wico Adapter
â– 00 Ver bat i m Disks
â– 25 Elephant Disks
$
$
s
$
$
s
6 9.95
17 9.00
269.00
379.00
349.00
179.00
52
22
49
59
29
19
27,
25,
00
00
95
95
00
95
95
00
SOFTWARE
Telewriter 64 $ 59.95(Disk) Space Shuttle $28.95 (Cass)
Telewriter 64 $49.95(Cass) Colorpedp $29.95 (Cass)
Zaxxon by Sega S34.95(C or D) Mark Data Ad vent ore b $ 24 . 9 5 (Cass)
The King by Tom Mi x $ 2 6 . 9 5 ( Cas a ) Ghost Gobbler $19.95 (Cass)
The Frog by Tom Mix $ 27.95(r.ass) MSI DATABASE $39.95 (Disk)
Trapfall by Tom Mix $ 27.95(Cass) MSI Color Finance $59.95 (Disk)
The Bar Zappcr $ 15.95(Cass) The Graph Zappet $ 1 !> . 9 5 (Cass)
**** All TRS-80 Software 1 3 7. off list *****
Others include - Spectral Associates, Anteco, Prickly Pear,
Mark Data, Tom Mix
TOLL FREE
TENNESSEE
1-800-545-2502
Botek Instruments, Intracolor Communications.
Sugar Software, Cugnitec,
and many mor e !
TOLL FREE
1-800-251-5008
All of the above units covered by our 120
day tarry in warranty, (d) denote? "Deiker"
(200ns) mpmnry guaranteed fnr 1 year
TRS-80 Trademark Tandy Corporation.
Prices subject to change without notice.
Write for our FREE newsletter!
(DEALER INQUIRIES WELCOME)
DELKER ELECTRONICS, INC.
P,0, BOX 897
DEPTD
SMYRNA, TN 37167
800-251-5008
615-459-2636 (TENNESSEE)
L SALES FOR TODAY" : PRINT: PRINT
19200 PRINTTAB(5> "TOTAL SALES "
; : PR I NTUS I N6 " *#### . ## " j CT
19300 PRINT:PRINTTAB<5>"T0TAL TA
x ";:printusing"*####.##";tt
19400 PRINT:PRINTTAB<5) "BRAND TO
TAL " J : PR I NTUS I NG " *#### . ## " 5 CT+
TT
19500 BOSUB 19900:BOTO 6800
19600 *
19700 * SUBROUTINES
19800 '
19900 PRINTS450, "PRESS < ENTER > T
O CONTINUE*' ; : INPUT I*: RETURN
20000 '
20100 ' INVENTORY COUNT
20200 *
20300 FOR Y=l TO X-l : RESTORE: F2=
0:FOR Z=l TO LP: READ A*,B
20400 IF A*=IS*(Y> THEN IS(Z)=IS
<Z)+VAL<IQ*(Y> >:F2=1
20500 NEXT Z
20600 IF F2=0 THEN IS* <Y>=I5* <Y>
+P4*+ " # " +P5* : MM=MM+VAL ( I P* < Y > > *
VAL<IQ*<Y> )
20700 NEXT Y: RETURN
20800 *
20900 ' DATA STATEMENT PR INTO
UT
21000 '
21100 CLS:F1=0: PRINT: INPUT"PRINT
ER COPY < Y /N ) " 5 PC* : CLS
21200 IF PC*="Y" THEN 21300 ELSE
21500
2 1 300 PR I NT#-2 , P4* ; P3* ; P3* : PR I NT
#-2 , TAB ( 1 3 ) " I NVENTORY DATA " ; P3* ;
P5*
21400 PRINT#-2,P3*;P3*:PRINT#~2,
" I NVENTORY I TEM " , , " PR I CE E A . " : PR
INT#-2,P6*
21500 RESTORE: FOR X=l TO LP! READ
A*,B
21600 PRINTA*,:PRINTUSING"
*##.##" ;B
21700 IF PC*="Y" THEN 21800 ELSE
22000
21800 print#-2,x;a*,, ""; :print#-
2,using"*##.##";b
21900 Fl=Fl+l:IF Fl=5 THEN PRINT
#-2,P6*:Fl=0
22000 NEXT: RESTORE: PRINT: PRINT: B
OSUB 19900: CLS: 60T0 4300
22100 *
22200 * INVENTORY PRINTOUT
22300 *
22400 RESTORE:IT=0:PRINT#~2,P3*5
P3*;P4*
DATABASE / MAILER- 'CC-DBM'
LETTER WRITER - 'CC - L W
$49.95
....... $39 95
introductory offer -
Database/Mailer "CC - DBM"
16Kor 32K
• Simple to use even for the novice
• Active Main Menu guides user to valid operations.
• 32K disk (or tape) approx. 59, (61) to 338, (351 ) records.
• 16K disk (or tape) approx. 1 2. (1 5) to 72, (86) records.
• 4 to 10 fields, 5 to 27 widths, 20 to 270 char/record.
• All user definable with default values for ease of use.
• Automatic memory sense adjusts to the size of your system.
• Fast Basic sort by any field with "Percent Sorted" display.
• Automatically adjusts for empty address lines no gaps.
• Print up to 9 line labels on envelopes or mailing labels.
• Optional special printer codes for customized labels.
• Master printout with 2 column format including field name.
• Automatically prints header with date, paging and filename.
• Works with any printer, use friction or tractor feed.
• Selective printing by any field or field range.
• Optional multiple copies of mailing labels.
• Single screen 10 record display by user defined field.
• Single key entry provides hard copy of screen data.
• Comprehensive 25 page users manual with flow diagrams.
• Includes detailed instructions for user modification.
• Compatible with CC-LW for mail-merge, form letters, etc.
! CC-L W puThas^of CC-DBM
Letter Writer "CC - LW "
16Kor32K
• Much easier to use than a word processor.'
• Allows fast single page letter writing.
• Embedded commands for centering, multiple line skip,
tabbing and wordwrap
• 1 6K or 32K tape or disk.
• Edit mode allows you to delete or insert text.
•k Uses CC-DBM data files for form letter capability.
• Works with any printer and standard paper.
• Excellent users manual.
m\
CC - DBM 16K, 32K. disk or tape $49.95
CC-LW 1 6K, 32K disk or tape $39.95
PLEASE SPECIFY TAPE OR DISK -
To order, send check or money order to:
EVS Engineering
9528 Suite 35, Miramar Road T^<T^*
San Diego, CA 92126 U.S. Dollars only
Or check your local software dealer. For questions, credit card
orders, call (619) 566-6013 or (619) 695-1385 on weekdays
8 A.M. to 4 P.M. PST. We will be glad to help.
Dealer inquiries invited.
California residents please add sales tax - 6%.
Allow 2 weeks for personal checks. No Cash, NoC.O.D. s
150
the RAINBOW August 19R3
EA
22500 PR I NT#-2 , TAB < 8 ) " I NVENTOR Y
SALES LIST";P5*;P3*;P5*
22600 PRINT#-2, " INVENTORY","
PR I CE " , " QUANT I T Y " , " TOTAL "
22700 PRINT#-2, " ITEM","
. "," SOLD"," PRICE"
22800 PRINT#-2,P6*
22900 F1=0:FOR X=l TO LP: READ A*
,B
23000 PR I NTtt-2 , A* , : PR I NT#-2 , US I N
6"*###. ##" ,â– B, : PRINT#-2, " " ,
23100 PR I NTtt-2, US I NB "#####"; IS(X
>,:PRINT#-2, "",
23200 PRINTtt-2, USING"*#tt##. tttt" 5 B
*IS<X)
23300 Fl=FH-i:lF Fl=5 THEN PRINT
#-2,P6*:Fl=0
23400 IT=IT+(B*IS(X) >:IS=IS+IS(X
>
23500 NEXT X:PRINT#-2,P6*
23600 PRINT#-2, 5 , "MISMATCHED SAL
ES " , : PR I NTtt-2 , US I NB " *tttttttt . tttt " ; MM
23700 PRINTtt-2, ,, "INVENTORY SALE
S" , : PRINTtt-2, US I NB "*####. ##" ; IT
23800 PRINTtt-2, ,,, " "
23900 PRINTtt-2, , , "TOTAL SALES",:
PRINTtt-2, USING"*tttttttt. tttt" ; MM+IT
24000 RETURN
24100 '
DATA STATEMENTS
24200 *
24300 '
24400 DATA CESSNA 172, IS. 50, STEA
RMAN , 22 . 50 , F-86 SABRE , 5 . 00 , C- 1 30
HERCULES , 1 4 . 00 , T-28 PLANE , 8 . 00 ,
BIPLANE W/PROP,14.00,DC-8 JET, 14
.00,LRGE BIPLANE, 30. 00, LRGE C-13
0,25.00,SE5A BIPLANE, 16.00
24500 DATA LRGE HELICOPTER, 12. 50
,SM HELICOPTER, 10. 00, FORD VAN, 7.
00, TRUCK STKBD, 10.00, SPCAR MBA, 8
.00, SEDAN 1930, 8. 00, COUPE 1930,8
.00, SEDAN 1940, 8. 00, BLAZER, 7. 00,
JEEP,7.00,TR-7 CAR, 7. 00
24600 DATA BLAZER W/BOAT, 14. 00, J
EEP W/ CAMPER, 14. 00, SCHOOLBUS, 7.
0, TRUCK DMP, 14. 00, TRUCK SEMI, 14.
00, TRUCK TNKER, 14. 00, TRUCK LOG L
RGE , 22 . 50 , LRGE DOLL , 1 5 . 00 , SMALL
DOLL W/NG, 14.00, DOLLBED W/BLK, 13
.50
24700 DATA DOLL CRADLE, 30. 00, LRG
E CANNON, 4. 00, SM CANNON, 2. 50, DEC
PILLOW, 4. 00, CAT STFD,3.00,PLAQU
E/CAR,4.00,ANIMAL CTS, 1 . 25, PLAQU
E/GUN,25.00
24800 DATA END,0
HR\
COLOR COMPUTER and. TDP-lOO OWNERS ! ! !
DO YOU WAVE A 32K SYSTEM WITH 64K MEMORY CHIPS?? ARE YOU STILL BEING TOLD YOU CAN ONLY USE 32K FROM BASIC??
DON'T BELIEVE IT! - KEY COLOR SOFTWARE brin<
STANDARD 32K COLOR COMPUTER TO ACCESS 64K W
Is you the KEY-264K. An exciting NEW SOFTWARE utility that allows any
* FROM BASIC, and with NO HARDWARE MODIFICATIONS REQUIRED! ! !
simple keystrokes, even while the programs are running!! Or run them both at the same time in t
F0RE6R0UWBACKGR0UND MULT I -TASKING mode. Don't buy that printer buffer yet! With the KEY-264K
The KEY-264K divides the 64K ram memory into two 32K banks or sides, each of which can be utilized independently
by the BASIC interpreter, with the ability to switch instantly from one side to the other. IT'S LIKE HAVING TWO
COMPUTERS IN ONE!! Have your BASIC program on one side and keep your variables on the other side, or have your
main program on one side and your subroutines on the other side, or have your program on one side and use the
other side for 4 additional Hl-RES pages, or any combination you like. The possibilities are endless because the
KEY-264K allows full communication between sides plus the ability to switch back and forth at will, all from
within BASIC. You could also have different programs in each side and switch back and forth between them using
• . ... .... . ,. _ ...... 'the
you can be printing
in the background side while utilizing your computer normally in the foreground side AT THE SAME TIME!!! Debugging
a pTogram? Use eitheT a BASIC command or simple keystrokes to instantly duplicate your program, in it's present
status, onto the opposite side. Switch to the opposite side later and pick up exactly where you were before!
For DISK users, the KEY-264K allows you to alternate between DISK and EXTENDED BASIC on the same side with simple
keystrokes. No need to pull your disk controller or power down. You can be in EXTENDED BASIC on one side and in
DISK BASIC on the other side and still switch back and forth and have full communications between the two sides.
The KEY-264K does all this and MORE thru extensions to the BASIC interpreter, No need to learn a new language!!!
In total the KEY-264K adds 15 NEW COMMANDS and 1 function to BASIC, including powerful new BLOCK MEMORY ROVE
GRAPHICS VIEWING commands.
NOTHING ELSE LIKE IT - YOU HAVE TO SEE IT TO BELIEVE IT !!!!!!
and
The KEY-264K works on 32K systems with "E", "F", or even modified "D" boards and requires EXTENDED or DISK BASIC
with GOOD 64K MEMORY CHIPS! Systems with piggy-back 32K or half-good 64K memory chips WILL NOT WORK!!!
ORDER YOUR KEY-264K CASSETTE TODAY by sending check or money order for $39.95 plus $2.1
(Mass. residents add 5K sales tax) tos
KEY COLOR SOFTWARE
P.O. BOX 360
HARVARD MA. 01451
shipping and handling
August 1903 the RAINBOW 151
EDUCATION NOTES
16K
ECB
I
me
HAINBQW
J- -s
Let Your Computer Assist In
Concept
(Sieve Blyn teaches both exceptional and gifted child-
ren, holds two master's degrees and has won awards
for the design of programs to aid the handicapped. He
and his wife, Cheryl, own Computer Island.)
Development
By Steve Blyn
Young children are often confused by
the concepts of up-down, near-far,
over-under, and the like. It brings
to mind an incident ] experienced with one
of my children. He came to me (age two),
arms raised, and said, "Pick me down." I
laughed, lifted him, and said, "You mean,
'pick me up," " Then, as now, he was a kid
with a mind of his own. He gave me a dirty
look, pointed to the floor, and said, "Put
me up!" Needless to say. he has since mas-
tered the concepts of up and down. Per-
haps if we had the Color Computer back in
the early 70s the two of us could have had
some fun viewing this concept graphically
displayed on the screen.
The learning of concepts in children has
always fascinated me. Because I am both a
parent and a teacher, 1 am always anxious
to use the computer to help children devel-
op childrens' reasoning abilities.
The thinking process has been described
as ranging from concrete to abstract. This
means that thinking begins as ideas per-
taining to highly specific, tangible events,
and moves toward ultimate thought on
abstract properties of classes of events and
experiences.
Becoming aware of the relationships of
objects in the world around him is a slow
task for a child. Let's consider the concept
of "right and left." This apparently simple
concept lor adults really passes through
three distinct and rather lengthy stages in
each child's life.
152
Ihe RAINBOW Auyus,! 1933
ETOICOf T SOFT WASE
TAPE CAROUSEL
JOYSTICKS
DEALER & CLUB INQUIRIES INVITED
S1 5.00 EACH ^"^f^^Pi
V
TWO OR MORE
$13.50 EACH
Mi*
ONLY
$19.95
TWO FOR
$37.95
Organizes your cassettes. Reduces the clutter of your work area.
Holds up to 25 cassettes in individual compartments. Units are
stackable and revolve for easy access. Clear plastic sliding covers
keep tapes dust-free (tapes not included). Great for your stereo
tapes too!
"In use, we found the ENDICOTT
JOYSTICK to be smooth and respon-
sive. ...built to last, the Endicotl
model is a solid buy".
- the RAINBOW, October 1982
6 Month Warranty. No adaptor â– plugs right in
"...provided the best feel of all the
joysticks tested. ...(a) rugged unit at
an affordable price."
SOmicro, March 1983
Best available! Smooth professional touch.
Identical keyboard layout eliminates relearning
key locations. Simple installation! No soldering
or wiring. Professional appearing installation.
MARK DATA PRODUCTS
SUPER - PRO
REPLACEMENT
KEYBOARD KIT
Computers made after or about Oct. 1982 require
adapter.
KEYBOARD: $69.95
ADAPTER: $4.95
C
EXCELLENT PROGRAMS FROM LEADING SOFTWARE HOUSES
)
1CO/ riCC LIST PRICE
IO /O \Ji~ OF TWO OR THREE
ono/ ncc list price
a£U /O \J I I OF FOUR OR MORE
NEW DISCOUNTS H ftO/ f\ C C LIST PRICE
ON SOFTWARE! I U /O \J~ ~ OF ONE
We will not be undersold!
Send us any current ad showing a lower price than ours on anything we carry and we will honor it (mail order only) Don't forget, WE PAY SHIPPING!
We now carry disk versions. (Requires 32K unless otherwise noted)
ELITE SOFTWARE
*ZAKSUND Fantastic!
ELITE-CALC (16, 32, 64K) Spreadsheet
T
$24.95
$44.95
SPECTRAL ASSOCIATES
T
* LANCER A Jousting good time. $21.95
* MS. GOBBLER Gobbler's female counterpart. $21.95
WHIRLYBIRD RUN Great flying action. $21.95
GALAX ATTAX Excellent Galaxiart $21.95
SPACE RACE Excellent Omega Race $21.95
PLANET INVASION Quick action Defender $21.95
•SPACE TRADERS Buy stock in universe $14.95
companies to become the richest. Like Acquire.
'COMPUVOICE A phoneme speech generation $34.95
program.
MARK DATA PRODUCTS
COSMIC CLONES Challenging!
EL BANDITO Get the food and run
GLAXXONS Excellent adaptation.
SPACE RAIDERS Not just another Invaders game.
CAVE HUNTER Grab the treasure aiid outrun the
crsstuf'SS
haywire win drive you berzerki
T
$24.95
$24.95
$24.95
$24.95
$24.95
$24.95
COMPUTERWARE
* GRAN PRIX Test your driving skill.
* MOON HOPPER Get to moon-base alive
BLOC HEAD Tricky action.
NERBLE FORCE Excellent Defender clone.
MEGAPEDE Most challenging version.
SHARK TREASURE Don't qet eaten!
SPACE AMBUSH Action like Galaxian.
DOODLE BUG Like Ladybug
RAIL RUNNER Dodge trains and handcars
PAC ATTACK II Great gohhier New graphics
STORM A real Tempest!
COLOR INVADERS Like the original.
SYNTHER â– 7 Music synthesizer
TOM MIX
THE FROG
« GRABBER
* SPACE SHUTTLE Control the Space Shuttle
* DONKEY KING 4 Screens - Full action!
* COLOR GOLF Challenging! Uses full set of
CIUDS.
TRAP FALL Many "Pitfalis" here!
"ESCAPE FROM S.P.E.C1T.R.E. Graphic Spy Adv.
CATERPILLAR ATTACK Look out for spiders!
'MOON LANDER 2 games in 1
THE FIXER Loads 600 hex programs to disk
DISK TO TAPE Dump most disks to tape
TAPE TO DISK Load most tapes to disk
"SPELLING TEST Provides a standard oral quiz.
ARIZIN
COLORKIT Full of powerful software development
tools, A fantastic utility!
T
$21.95
$24.95
$26.95
$24.94
$21.95
$21.95
$21.95
$24.95
$21.95
$24.95
$24.95
$19.95
$21.95
T
$27.95
$27,95
$28.95
$26.95
$17.95
$27.95
$17.95
$21.95
$17.95
$17.95
$17.95
$17.95
$19.95
T
$29.95
D
$27.95
$44.95
D
$25.95
$25.95
$25.95
$25.95
$25.95
$25.95
$19.95
$39.95
D
29.95
$29.95
$29.95
$29.95
$29.95
$29.95
D
$26.85
$29.95
$29.95 (16K)
$29.95 "
$26.95 "
$26.95 "
$26.95 "
$29.95 "
$26.95 "
$26.95 "
$29.95 "
$24.95 "
$26.95 "
D
$30.95
$30.95
$29.95
$30.95
$24.95
D
$34.95
ANTECO SOFTWARE
KATERPILLAR ATTACK
8-BALL (POOL) All balls shown. Full Cue control.
INTERGALACTIC FORCE Experience trench
warfare in your X-Wing fighter.
•HOUSEHOLD EXPENSE MANAGER Menu-driven
with 30 household categories. Screen or printer
output.
•STOCK ANALYZER AND TREND Track your
stocks. Disk compatible. Optional printer
output.
COGNITEC
TELEWRITER 64 (For 16, 32, or 64K)
THE word processor for the CoCo!
PRICKLY-PEAR SOFTWARE takeib°,
SHAFT New arcade game
"JUNGLE Adventure!
THE DISK MANAGER A must!
THE DISK MASTER Excellent!
* FLIGHT Realistic fliqht simulator
♦ 8-BIT BARTENDER Party fun 100 + recipes.
'VIKJNG Go from peasant to King!
•GANGBUSTERS Lead a life of crime and win!
PANDORA'S GAME BOX Includes: "pan" game.
"defender-type" game, Divebomb, Blockade,
slot machine, and Squares (tike cube).
'PREREAD I, II & III (Three tapes!
Prepare your preschooler to learn to read
24.95
$19.95
$21.95
ROM PK
$26.95
$29.95
$29.95
T
$49.95
D
$59.95
V, OFF THE LIST PRICE
T
$24.95
$19.95
$19.95
$19.95
$19.95
$19.95
$2495
$24.95
D
$29.95
$24.95
$29.95
$24.95
$24.95
$24.95
$24.95
$24.95
$29.95
T D
$19.95
$19.95
$24.95
- call or write
PETROCCi FREELANCE ASSOCIATES
a INSPECTOR CLUESEAU Find the murderer in
this excellent graphic adaptation of Clue
•STAGECOACH Graphic Adventure
'STRESS EVALUATOR Measure and manage
yuur stress
Additional listings in our free catalog
•Requires 16K Ext. Basic Minimum. * Requires 32K Ext. Basic Minimum.
Others 16K Std. Basic Minimum.
WE PAY SHIPPING!
Other companies ask you to ADD $1, $2. $3, or more tor shipping
WE NEVER do to U.S.A., Canada, Mexico.
Add $2.00 for C.O.D. (U.S.A. Only). Allow 2 weeks tor checks to clear.
SHIPPING-ALL OTHER COUNTRIES: Add $2.00 tor each software item. Add
$3.00 for each Joystick, $10.00 for each carousel and $10.00 for each keyboard.
Items will be shipped air mail.
ALL PAYMENTS MUST BE IN U.S. FUNDS.
ENDICOTT SOFTWARE
P. O. Box 12543, HuntsviMe, AL 35802
(205)881-0506
PHONE OPEN 7 DAYS A WEEK!
During the first stage (ages five — eight), directions are
considered only from the child's own point of view. Right
and left can only be considered as right and left of himself.
This is called ego-centricity. In the second stage, (ages
eight — 11), left and right are also considered and under-
stood in relation to another person or object. In the final
stage (ages 11 — 12), right and left are also considered from
the viewpoint of things themselves.
The above general description is applicable to the growth
of many concepts in children. The Color Computer can
especially be an aid to children in concept formation. The
graphics, colors and sounds can help them to visualize many
concepts with unique presentations.
The program that follows gives the young child practice in
developing the concepts of near-far, over-under, and in-out.
The child playing this game decides whether the topics are
merely examples of what can be done. You may decide to
only use one concept at a time. Many other concepts can be
worked on with other pictures and words. Left-right, north-
south, big-bigger-biggest and small-smaller-smallest are
other possibilities. Shapes can also be taught in a similar
manner.
Lines 60-1 10 choose a random position for the bird to
appear each time. Lines 130 to 450 draw the pictures and
words. Lines 460-490 wait for the child's response. Lines
500-560 draw the response number the child pressed on the
keyboard.
Lines 570-640 check the response. A correct response gets
a happy sound and the next example begins. Incorrect
responses get another turn at the same question. The child
can keep guessing until he is correct. The fact that he can
keep guessing repeatedly and there is no time limit or score
Color Computer Enhancements from Micro Technical Products
*LCA-47— Lower Case Adapter
Smar! improvement!
CompatiDle witti ALL Color Computer
Software
Bright characters on a dark background.
Lower Case with true descenders
Comprehensive User 3 Manual
Fasy ^-min installation
no colling, no soldering
Ugcs M0 Gyntcm memory
1 year warranty 1
Assembled & Tested $75.00
*PP-16— EPR0M Programmer
- 5voltEPROMs: 2510. 2710 & 2758.
- Read. Program Verity data. Verity erased
â– Auto verify after programming
• Software available for: 0502, 6800.
6809. 8080. 8085. & Z80 (speedy oral
Note: User must provide interface to computer
Bare PC Board &
Documentation $25.00
Complete Kit $45.00
"Nelson's
"COLOR"
Super "Color
ROM PAK .
Super "Color
Tape
Super "Color
Super "Color
ROM PAK. .
Super Color
ROM PAK. .
Super "Color'
SUPER
LIBRARY
Writer
$89.95
Mailer
$39.95
Speller
Calc
$89.95
Terminal
$59.95
Disk-ZAP
Super Color" Database
Disk.
Disk.
Disk Only
Disk
Tape
Disk
Disk Only.
Disk Only
$99.95
$59.95
..$69.95
$99.95
$49.95
$69.95
•ROML-ROM PAK Loader Program
- Innovative'
- Save your ROM PAKS on disk and run
WITHOUT removing disk controller (requires
64k RAM)
- Load and run ANY machine Iduyuaye
program
- mtfc program included to copy machine
language programs from tape to disk
Tape. .. $25.00 Disk. .. $29.00
•ROMKIL-BASIC ROM Disabler
- Disables Disk BASIC POM or Extended
BASIC ROM
â– Fiees up exlra RAM
- System stays in selected level of BASIC
even if Keset .
- Cycling power restores all ROMs
Tape.. . $15.00 Disk. .. $19.00
*PLUS32-64k RAM Enabler
Runs BASIC from RAM where you can
modify it.
• win not crash system if upper 32k ram
is defective or net available.
- Requires good fi4k RAM system
Tape... $15.00 Disk... $19,00
•BANNER— Moving Marquee
Program
- Display any message in GIANT
m_o__v n .j_n_g letters.
- You choose colors & speed.
Tape. . . $19.00 Disk. . . $23.00
..$49.95
..$79.95
ORDER NOW —
"SPECIAL SAVINGS— S25 do on
when you purchase Super 'Color' Writer II and
an LCA-47 together 1
inc.
Micro Technical Products, Inc.
123 N. Sirrine, Suite 106-A
Mesa, AZ 85201 (602)834-0283
Add 5% for shipping, minimum $2.00.
Overstias 10%, ruin. $4.00. Arizona, add
5% tax Visa & MasterCard welcome.
are purposeful. I see no reason to impose any limits or
constraints on a preschool child in this type of situation. The
idea is to get the concepts across to him. We can make him a
better game player some other time.
Lines 650-940 create strings to draw the letters and
numbers needed in this program.
I can't overemphasize the importance of the teaching of
such seemingly easy concepts as in and out. It is imperative
that children be properly motivated if they are to retain the
knowledge of these concepts. The Color Computer is cer-
tainly a means to achieving this end. Your children will
grasp and maintain these concepts, and perhaps more
importantly, they will have great fun in doing it. Can you
imagine— learning and having fun at the same time!
^
The listing:
280.... 02E0
500 0586
680 07F1
END.. OADD
10 REM"BIRD"
20 REM <C> STEVE BLYN, COMPUTER
ISLAND, N.Y. 1983
30 CLEAR 1000
40 TM=RND( -TIMER): REM "THIS BETS
A TRUE RANDOM FOR THE COCO"
50 A=RND(5)
60 REM "RANDOMLY CHOOSE THE BIRD'
S POSITION EACH TIME AND LOCATE
THE COORDINATES"
70 IF A=2 THEN X=-8:Y=135
80 IF A=l THEN X=302Y=100
90 IF A=3 THEN X=X+15: Y=Y-10
100 IF A=4 THEN X=X+60: Y=Y+30
110 IF A=5 THEN X=X+205: Y=Y+1 15
120 GOTO 660: REM "READ THE NUMBER
S AND LETTERS"
130 PMODE 3,l:PCLS5:SCREENl,l
C0L0R2
CIRCLE<55,60> ,45,2, .6
CIRCLE(55,60),46,2,.6
CIRCLE (55, 60) , 47, 2, . 6
PAINT (60, 60) ,2,2
140
150
160
170
180
190
200
9
210
220
230
240
250
260
270
CIRCLE(7,120),40,2,2, .93,-10
CIRCLE (99, 120) , 40, 2, 2, . 41 , . 5
LINE (36, 163) -(68, 163),PSET
PAINT (55, 160) ,2,2
REM "DRAWING THE EIRD"
C0L0R3: CIRCLE ( 10+ X, 160-Y) ,5
CIRCLE <1S+X, 165-Y) ,8
PAINT (18+X, 165-Y) ,3,3
LINE(24+X, 160-Y) - (36+X, 157-Y
) , PSET
280 LINE- (20+X, 169-Y) , PSET
290 LINE- (20+X, 176-Y) , PSET
300 CIRCLE (20+X, 176-Y) ,2
310 FORT=l TO5:PLAY"O5L200BCB5L2
50?G-;L100;C":NEXTT
320 LINE (5, 1) -(250, 20) , PSET, BF
154
the RAINBOW August 1983
The PROFESSIONAL Keyboard
A direct plug-in
replacement for your
Color Computer.
• Simple Installation
(No glueing or cutting)
*Redefinable keys
*Free Software - See page
80 of June 1983 RAINBOW
"No Extra Charge for TDP/F
Model
$69.95
"A Model 1 keyboard
in a Color Computer case.
This product is a real gem."
Rainbow Review, March 1983
*AII TDP/F orders please specify
"The Spectrum Switcher
is a fantastic device"
RAINBOW review, April,
1983, Page 207
SPECTRUM SWITCHER
$99.95
RAINBOW
CERTIFICATION
SEAL
Have your Disk and Cartridge too!
Transforms a Color Computer into a dual slot
system. Comes with extender cable.
New! Recover your Basic programs — $10 Tape
(Works great with X-PAD and Disk Drive)
SPECTRUM PROJECTS
9315 86th DRIVE WOODHAVEN, NY 11421
212-441-2807
all orders plus $3 S/H, NX residents add sales tax
330 DRAW "ClA0S4BM20,i6"+W*+H*+E
*+R*+ES
340 DRAW SP*+I*+S*
350 DRAW SP*+T*+H*+E*
360 DRAW SP*+B*+I*+R*+D*+SP*+QQ*
370 REM "PR I NT THE WORDS** IN, OVER
.UNDER, NEAR, FAR FROM THE TREE"
380 DRAW " C4BM 1 30 , 40 •• +A 1 *+SP*+ 1 *+
N$
390 DRAW " BM 1 30 , 60 " +A2*+SP*+0*+ V*
+E*+R*
400 DRAW "BM 130, 80"+A3*+SP*+U*+N*
+D*+E*+R*
410 DRAW "BM 130, 100"+A4*+SP*+N*+E
*+A*+R*
420 DRAW "BM 120, 120"+A5*+SP*+F*+A
*+R*+SP*+F*+R*+0*+M*
430 LINE (135, 130) -(240, 130), PSET
440 COLOR 3: LINE (106, 163) -(125,1
47), PSET, BF
450 DRAW "BM 145, 140"+T*+H*+E*+SP*
+T*+R*+E*+E*
460 JJ*=INKEY*
470 FOR T= 1 TO 200: NEXT T
4S0 COLOR2:LINE(106,163)-(125,!4
7),PSET,BF
490 IF jj*="" THEN 460
500 IF JJ*="1» THEN KK*=A1*
510 IF JJ*="2" THEN KK*=A2*
See" Music!!
•The KALEIDOPHONE allows your Color Computer to "listen to"
your hi-fi and display what it "hears" on your TVI
•Dedicated hardware lets the computer devote full-time
to creating the displays, so breath-taking, animated pic-
tores in full color are easy to program.
•Just plug the KALEIDOPHONE into hi-fi and joystick inputs.
•Do not confuse with imitations — the KALEIDOPHONE
continuously delivers actual volume signals (64 levels in
stereo). Works on any CoCo (16* recommended).
KALEIDOPHONIC5, our users' newsletter (FREE with purchase)
contains dozens of new display ideas in each issue — a literally
infinite variety of patterns is possible!
•The KALEIDOPHONE is something really new. Great for
parties! Educational tool Order Now I
•Only s 49.95 fully assembled including detailed instructions.
BONUS: free issue of KALEIDOPHONICS on cassette!
NEW SALEM RESEARCH
West Main Street
New Salem, Mass. 01355
Write for tree
sample program!
KmeidJphJne
520 IF JJ*=»3" THEN KK$=A3*
530 IF JJ*=»4" THEN KK*=A4*
540 IF JJ*="5" THEN KK*=A5*
550 REM "DRAW CHILD'S RESPONSE #"
560 DRAW "C0BM112, 159"+KK*
570 JJ-VAL(JJt)
580 IF JJ<1 OR JJ>5 THEN 460
590 IF JJ*="1" AND A=l THEN 600
ELSE IF JJ*="2" AND A=2 THEN 600
ELSE IF JJ*="3" AND A=3 THEN 60
ELSE IF JJ*="4" AND A=4 THEN 6
00 ELSE IF JJ*="5" AND A=5 THEN
600 ELSE 620
600 FOR T=l TO 5: PLAY "04; L250; GE
FBAG":NEXTT
610 RUN
620 REM" WRONG RESPONSE ROUTINE"
630 FOR T=1TO3:SOUND10,4:NEXTT
640 DRAW " C3A0S4BM 1 40 , 1 70 " +L*+0*+
0*+K*+SP* : DRAW A*+G*+A*+ I *-HM* : GO
TO460
650 REM "THE DIRECTIONS TO DRAW L
ETTERS AND NUMBERS NEEDED"
660 A*="U8RSD4L8BR8D4BR4"
670 B*= " U8R6F2D2L8BR8D2G2L6BR 12"
680 D*="USR6F2D4e2L6BR12"
690 E*="U8R8BD4L8BD4R8BR4"
700 F*="U8RSBD4L8BD4BR12"
710 G*="U8R8BD4L4BR4D4L8BR12"
720 H*="U8BR8D8BU4L8BD4BR12"
730 I*="BUSR8BL4D8BL4R8BR4"
740 K*="U8BR8G4L4BR4F4BR4"
750 L*="U8BD8R8BR4"
760 M*="U8F4E4DSBR4"
770 N*="U8F8U8BD8BR4"
780 0*="USR8D8L8BR12"
790 P*="U8R8D4L8BD4BR12"
800 R*="U8R8D4L8BR4F4BR4"
810 S*= " BU4U4R8BD4L8BR8D4L8BR 12"
820 T*="BU8R8BL4D8BR8"
830 U*="U8BR8D8L8BR12"
840 V*= " BU8D4F4E4U4BD8BR4 "
850 W*="U8BR8D8H4G4BR12"
860 E0*=EO4
870 QQS="BRlHiUl£lR3E2UlH2L5
880 A1*= ,, BR2R4L2U8G2BD6BR10 ,,
890 A2*= " BR 1 H 1 U 1 E 1 R5E2U 1 H2L4G2BD
6BR1R7BR4"
900 A3*= " BR 1 HBU6E 1 R6F 1 D2G 1 L4R4F 1
D2G1L6BR11"
9 1 A4*= " BU4U48R4BD 1 D3R4L8R4D4BR
8"
920 A5*= " BR 1 H 1 BU2U4E 1 R6F 1 BD2BL 1 L
6G 1 BD4BR 1 R6E 1 U3H 1 BD5BR5 "
930 SP*="BR12":REM "SPACER"
940 AG*="BENR3HER2U2":REM .'">"
950 GOTO 130
156
the RAINBOW
August 1983
-k-k-k-k-k-k-k^k-k^k-k-k*k-k-kk:
SPECTRUM SPECIALS
-k-k-kiz-k-k-k-k-k-k-kiz-k-k-kk:
Rompak w/Blank PC Board $9.95
The Disk Doubler Kit $12.95
The Colorcade w/Rapid Fire ...$19.95
Video Plus - Superb Video Interface$24.95
16/32K Upgrade Kit - Lowest price..$25.95
Wico Red Ball Joystick .$34.95
The Spectrum Joystick .$39.95
Wico Analog Joystick $49.95
Mark Data Keyboard - $58.00
Botek Printer Interface .. $69.95
64K TDP100 — (Limited Supply) $299
Amdek Twin 3" Drive System $499
-kiz-kiz-kiz-k-k-k-k-k-kft-k-kk'
CALL 212-441-2807 SPECTRUM PROJECTS
ALL ORDERS PLUS $3.00 S/H 93=15 86th DRIVE
N.Y. RESIDENTS ADD SALES TAX WOODHAVEN, N.Y. 11421
i*-k-kiZ-kHz-kiziz-kiZ-k-k-kk:k:
Software Review
Dynacalc Is Highly
Sophisticated Spreadsheet
Radio Shack has some tough competition in the elec-
tronic spreadsheet market. Dynacalc, by Computer Systems
Center, is a second generation Visicalc program available
for the CoCo. First of all, let me say that there is no way you
can give a program of this caliber the credit due in a review. I
would classify Dynacalc as sophisticated business software.
Don't let that scare you. I guess the proper perspective is the
reality that software formerly available only on minis and
business systems is hitting the hobby market. Personally, I
am glad to see it. I can visualize someone using a CoCo for a
small business, but I can also see the need for this type of
program in the home.
Dynacalc is designed to operate under the Flex disk oper-
ating system, therefore, it requires 64K and at least one disk
drive. Two drives are recommended, but as the manual
states, if you are used to operating with one drive you will
have no more difficulty than usual. A 5 1 x 24 screen is used
for all output, therefore, you must have a late version of
Flex. Use of a printer is optional, but any printer that will
RAINBOW POSTER
NOW AVAILABLE
Yes, it's here! A beautiful full-color pos-
ter of the cover of our January issue!
This big (31x23) poster is printed on heavy
poster paper and varnished to make it really
shine. It is the perfect addition to your
computer room and is available for only $5.
There's even a small Rainbow logo in one
corner.
Send for yours today! There is only a limited
supply, and when we run out, there won't be
any more.
Each poster is $5, plus $1.50 handling charge per order
to same address in U.S. and Canada. Other points add $3.
U.S. Currency only. VISA, MasterCard and American
Express accepted. Mail to: Rainbow Poster, P.O. Box 209
Prospect, KY 40059 or call (502) 228-4492.
work with Flex will also work with this program. The pro-
gram is supplied on a nonprotected disk and it is recom-
mended that the master only be used to make working
copies. An updated version is available from CSC if you
return the diskette within 90 days with proof of purchase.
The documentation is excellent and well structured for the
beginning user. Several example programs are included for
familiarization. Three utility programs are also included for
customizing printer/ tcxtfile parameters as well as disabling
the HELP messages. The HELP messages are necessary for
beginners but consume memory for advanced users.
Dynacalc simulates a 256 row by 256 column accounting
type worksheet. Stop. How can a 64K computer hold a 256 x
256 worksheet? It can't. Under normal operation the pro-
gram has approximately 30K of workspace, or close to 3000
cells. A memory indicator is on line 2 of the screen. A cursor
indicates which cell (row, column) is in use. The cursor can
be moved by the arrow keys or a GOTO command for
longer moves. The cursor address always appears in the top
left hand corner of the worksheet. Three types of data can be
stored in any cell, values (numeric constants), expressions
(mathematical operations) or labels (messages). You can
edit the value of a cell at any time. In addition to data, there
is a command structure of single letter entries that can be
accessed by a /X entry while in the ready mode. These
commands are called "Attributes." Rather than explain
each command, a list of Functions and Commands is
included for familiarization. A few of the more powerful
commands will be highlighted.
@INDHX and ©LOOKUP— Compare a supplied
value with a value in the table. ©INDEX looks for an
exact match. ©LOOKUP checks for a "greater than"
condition. These functions allow sorting and are fast.
An example program is provided to illustrate their
operation.
@STDDEV — Calculates the standard deviation.
©NPV— Net present value.
©AVERAGE— Average or arithmetic mean.
©CHOOSE— Select a value from a list of two or
more values.
©ROUND— Reduce the precision of values.
/F$— Represent values in dollars and cents.
/FP — Plot horizontal graphs on your worksheet.
/? — Help command.
Well, we could go through the whole list but that's what
the 46 page instruction manualis for. One interesting com-
mand allows Flex to be accessed while still using Dynacalc
for commands such as PROT, CAT, NEWDISK, etc., as
long as the command does not use low memory.
For those of you with Visicalc experience, a command
cross reference table is included in the manual. Also several
reference books are recommended with comments on spe-
cific strong points.
As 1 mentioned earlier a complete description of all of the
features is impractical in a review. I am impressed with the
operation and excellent instructions of this package. No
bugs were encountered in the program. Several examples
were called and executed. They were very helpful and well
structured for the beginning user My own budget program
was executed with ease after the initiation. The cost of this
program is a little above normal for home use but as they
say, "You get what you pay for."
(Computer Systems Center, 13461 OlweBlvd., Chesterfield.
MO 63017, S200)
—Dan Downard
158
the RAINBOW August 1983
BASIC AID
AT LAST! Help for the BASIC programmer. BASIC AID is an indespensable addition to the Color
Computer. It will save you valuable time and effort. If you write or modify BASIC programs,
you need BASIC AID.
You get 43 Common BASIC commands available as single Control Key inputs. Greatly
speeds up program entry.
A powerful feature is the ability to redefine any or all of the keys to your own specifications
PLUS you get invaluable features such as a MERGE command, Move Line command and
Automatic Line Numbering.
MERGE— Insert programs stored on
. cassette into your Basic program.
You can even assign new line
numbers to the program you read
in, Great for creating your own
tape library.
25k MOVE— Lets you move and renumber any
part of your Basic program. GOTOs
and GOSUBs are automatically
changed.
\l \
\
Redefine any or all keys! Put in your most
frequently used commands. Then save
them to tape for use another time.
"An excellent program
and fine utility." —
— RAINBOW review,
August, 1982, Page 27
MERGE WOVE OH/OrF
CHRS
r
i l
BLANK
SUPP
SET
USER
-AUTONUU
on/oef set
unni
TRACE EXEC
LEU LEf 1
HlaHT THEM O03U0 IMKtr INPUT
STRING HEAP
I I
â–¡ DDE
DATA FOR OOTO
OATA FOR
1 j I i i
...IVt ClOAO
I I
I I
I I
I l
POKE
AUDIO CSAVt CLOAO STEP RETURN NEXT MOTOR OIM
BASIC AID
iODI
HPOT OPEN
I I I 1
X SOUND U%\
innna
MM MOTOR
CLEAR TC4-EAR COHT
OPEN PEEK CIRCtF DRAW PAINT
I I
I I
SCREEN
in
i p»... .
in
LINE
â– n
j i j
i *
PRINT MEM
All of this in a convenient ROM cartridge which is available instantly on power-up. And, it
uses almost none of your valuable memory Comes with a convenient, easy to remove,
plastic keyboard overlay. _ _..
BASIC AID CARTRIDGE $34.95
W&nJ
Disk Basic Aid $49.95
*Fu 1 1 Screen Editing
'Cross Reference
"Automatic Line Numbering
"Automatic Key Repeat
*2 Key Entry of Basic Keywords
"User Definable Keys
"Label Support-
Add $3 Shipping and Handling
SPECTRUM PROJECTS
93 15 86th DRIVE
WOODHAVEN, N.Y. 1 1421
(212) 441-2807 (VOICE)
(212) 441-3755 (DATA)
RAINBOW
CERTIFICATION
SEAL
CHECK OUT OUR COLOR BBS' AT (21 2) 441-3755 & 441-3766
Functions
ABS(x)
ACOS(x)
ASINfX)
ATAN(x)
AVFRAHF(x . . . y)
CHOOSE(n.x . . . y)
COS(x}
COUNT(x . . . y)
ERROR
EXP(x)
INDEX(n,x . . y.z)
INT(x>
LHix.)
t.O(1(x)
LOOK UP( rut . . .y, Z )
MAX(x . . , y)
MIN(x - - y)
NA
NPVfr.x . . ,yj
PI
KOUNO(d,x)
51N(x)
SQRT(x)
STDDEVfm.x . . .y)
5UM(x . . ,y)
TAN(x)
Attributes
(B)ell
<D>eg.
(G)raph
(H)elp
(L)abcl
(M)od.
(O)rder
(P)rint
(B)ordcrs
(Dines/page
( Pagination
(S)p»cing
(W)idlh
(?)
( R )er? If
(S)i/e
IT type
(W)idih
(C)olumn
(W)indow
(?)
absolute value
arccosine
arcsine
arctangent
average value
value of the nth cell
cosine
number of ceils
>ER< error message
e to the x pnwer
value next to match
smallest integer
natural logarithm
common logarithm
value next to mate
greatest value
smallest value
not available
present valtif-
J.I4I . . .
x rounded to nearest d ( IOe-9 < d < !0e9)
sine
square root
standard deviation
sum of cells
tangent
Commands
(BjlankCell
(C)lear worksheet
(HJelete
(D)elete
(C)olumn
(R)ow
(?)
(E)dil Cell
(F)ormalCt!l
(C)ontin
(D)efault
(C)eneral
(l)meger
( Deft justify
( Pilot
(R)ight justify
(S)dollar
(?)
(I)nserl
(C)olumn
(R)ow
(?)
( M)ove column or row
(A)seending
(Descending
(M)anual
(Output to ttxtfile
(P)rint on system printer
(Q)ttit
(F)lcx
(S)leep
(?)
(R)cplicate
(S)ystcm
(L)oad
(Slave
(X)ecuie
(#)data
(L)oad
(Sjave
(?)
(?)
(Tittles
(B)cith
(H)oriz.
(N)one
(V)en
(?)
( W)indowK
I D)i*play
(F)ormai
(H)on^.
(N)nne
(S)ync.
(U)nsync,
(V)crt'.
(?)
(?> help
160
the RAINBOW
August 1983
tt %fe O* ^ ^ ^0 «]» *fc *fe ^ «!»*!» «1» «d» «1* «i» «1» *1* «atf \tg «1» ife «1* ^fe ^! ^ ^ *t» %Ie %Itf %fc %fe %l» ^fe^fe «fe •!• «t« «!■•!• •!• .M.
*
"BREAKING ALL
SALES RECORDS"
Bob Rosen
*
*
"Recommend to
anyone who enjoys
games on his CoCo-"
RAINBOWReview,
March 1983
STICK INTERFACE
*
*
*
*
*
*
*
*
*
*
*
*
*
#
*
#
#
*
m& +fo ^t^ a^» m&0 %t> «£* %9* +&M ^# *£p *it* *£• "A" *Ap *t> *1> +J0 *&* *£• *^> %£* WW
#^ *^ rj» «^ r^ #J» #y» #p» *J* «f* #y% «f* #J« #j» #f« #|* #|* #J» r|% #|l 5J* #f* ~mr
Now you can
hookup two Atarrtype
joysticks to your Color Computer
or TDP System-lOOfor only $19.95
$39.95 -The Interface with two Atari* joysticks
^ Interface made by WICO. Atari is
a registered trademark of Atari, Inc.
*
*
*
*
*
*
YES!
PLEASE SEND:
( ) INTERFACES... $19.95
( ) STICK/INTERFACE SETs... $39.95
all orders plus $3 shipping
NAME
ADDRESS
CITY,STATE,ZIP.
N.Y residents add sales tax
SPECTRUM PROJECTS
93-15 86th DRIVE
WOODHAVEN, NY 11421
212-441-2807
*!• «!• «!• *1* *1» «1* «1« %1* *1* «i# %t# *I* *!• &* ^# *te *1» *!• ■!* "fc ^1* *j» ■&» ^1* +1* *1# *,!* •!* *t* *1# ^U *t# ^# ^U •!* %I* «£• «S« *1# *t« •!• *1«
#1* «|s #|* #ft #^ 9n *n #|^ *l* #|* *|» ^» *T» *^ ^* ^p +r *^ ^* ^* ^* ^* ^^ *T* ^F *T* *^ ^» ^» *l» ^F ^^ ^ ^» ^p ?|» *|* *f* #l* *l» *!• *!•
*
*
*
*
(sasims +
from SPECTRUM PROJECTS
e
I he must CoCo book
for 1983. Contains a
myriad of peeks and
pokes, ROM and RAM
upgrades, machine
language backups,
printer potpnuri and
more! Make your
computer do things it
never did before.
S14.95
COCO COOLER— Internal cooling
system, Prevent heat buildup
inside your Color Computer.
"CoCo Cooler keeps things
cool."— Rainbow Review, Dec,
1982, Page 39 $49 95
V /
T
\ J
THE SPECTRUM PADDLE-
Enjoy quicker response and
higher game scores. Great
for games with side-to-side
action like Astro Blast, Space
Invaders. Shooting Gallery
and Clowns and Balloons.
Includes "softtouch" fire
button. "You have better
control of the right to left
movement than with any
joystick we have seen so
far"— Rainbow Review, Jan.,
1983, Page 134 S19.95
DISK INTERFACE/ROM PACK
EXTENDER - 3 FEET. Move your disks
and ROM packs where you want
them. Gold plated contacts
eliminate corrosion S29.95 $1995
[hidden basicToI
LIGHT PEN-Pfugs right in to
your joystick port and reads
the colors off your screen,
includes four demo pro-
grams and is completely
compatible with Computer
Island's Fun-Pak software.
FOUR-PIN MALE TO FOUR PIN
FEMALE- 15 FEET. Move your
printer or modem to another
location— easier use... $14. 95
Add $3 for Shipping
and Handling
Firvolly! A program written to protect
your BASIC programs. HIDDEN BASIC 1.0
will modify your BASIC programs so
these commands will not tunc I ion:
CLOAD or CLOADM
CSAVE or CSAVEM
DEL or EDIT
LIST or LUST
The protected copy is not a BASIC pro-
gram anymore. It is a special machine
language program referenced by the
BASIC interpreter. Once protected by
HIDDEN BASIC there's r to wuy to undo It!
Tape $19.95
Call the Rainbow Connection At (212) 441-3755 & (212) 441-3766 for Rainbow Programs ft Reviews
SPECTRUM PROJECTS
COLOR COMPOTES EDIFOD
ASSEMBLE* AND DEBUGGER
CCEAO is o nigh quality program and
excellent i/oluft CCEAD is a tool that no
assembly language programmer can afford
to be without" — BAIN BOW Review, February
1983* S6Q5
THE STOPPER
DeieT&s REMarks. packs lines and rerrtoves
blank 5.
"How much Memarycan you save? About
K% average."- RAINBOW Review, February.
1983" S7 9S
33-16 sh in BfirvT
WOOOHAVEN, NT 11 41 1
[212> 44 1.2M7 (VOICE)
1212(441-3756 (DATA)
'Order both and save a buck*
DEALER/CLUB INQUIRIES WELCOME
New .York State Retldentt add appropriate taxes
Tired of plugging and unplugging
devices from the RS232 port of your Color
Computer? Make your life easier. Buy our
RS232 expansion cable and connect two
devices at the same time. Just right for
printers, modems, etc. Anything that plugs
Into the Color Computer will plug Into this
high quality cable.
RS232 Cable $20.00
RS232 Switcher $29.95*
'3 Position
COLORCOM/E BONUS! Order
COLORCOM/E and get the RS232 cable
for only $15.00, Save $5.00
32K RAM Button .
; 64K RAM' Button-
New
_32.99
SPECTRUM PUTS THE SLAM ON RAM
16K Chips .
64K Chips
Nanos System Reference Card_
CoCo Memory Map
6683 (SAM) Chip with heat sink
6809E-CPU Chip
Basic ROM 1.1
CoCo First Aid Kit (Be Proparcd)
(?Afi?1's,6809E&6883)
EPROM Programmer (2716, 2732, 2764
and 68764)
_ 59.95/set
S49.9b/set
$3.99
$9 00
$29.95
S29.95
$36.00
__ $69.95
$99.95
F^S232
XPP.NS IOI
C*»l
Color Computer Tech Manual
S7.9S
Bio Detector— New! Explore the world of Bio Feed-
back with your CoCo $34.95
Epson Printer Interface $49.95
Lowercase Board _^ $59.96
Hardware Voice Synthesizer w/VOTPAX Chip —
Unlimited vocabularyl (Colorware) Only $69.95
Extended Basic ROM - — $&4.00
CoCo Coo Coo (24 Hour Clock)
Color-eO BBS Software
$11500
$139.95
Disk Interface (Spectrum Special)
"THE ANSWER"— Allows you to switch between Rom-
pak and Disk. Contains a smart terminal program
that allows you to print online with a 51 x 24 format
Also contains 2 parallel ports, monitor program,
nuto-start defeat switch and
power-on indicator $179.95
<*#
'â–
SMART TERMINAL PACKAGE
WE DIDN'T WAIT for the competition to catch up with usl WeVe added even MORE
features to COLORCOM/E, our superb Smart Terminal program tor the Color
Computer. Compare before you buy. NOBODY offers you morel
Automatic Capture of Files
Complete Upload nnd Download Support
Online Cassette/Disk Reads and Writes
1 10. 300. 600. or 1200 Baud
Full or Half Duplex
Preenter Data Before Calling (Saves $$'s)
Offline and Online Scrolling
Send All 127 ASCII Characters From Keyboard
Word Mode Eliminates split Words
7 or 8 Data Bits (Including Graphics Support)
Efficient Data Storage S-t-r-e-t-c-h-e-s Memory
ROM Pack or Disk
COLORCOM/E $49.95
AND, our efficient storage and easy editing of received data __
makes printing to your printer offline a snap. Select any portion of fiF^\
the received data for printing. No need to print everything. rainbow
Add $3 for Shipping and Handling
wv
64K DISK UTILITY PACKAGE
1. dUK — rtred of seeing 228237
2. IJOMCRACK - Now place your ROMPAC
Software or Disk I
3. Software Piinl Spooler — Tired ot waiting
for your printer'? Output data to o RAM
buffer and go back to programming ! Now
works with LPV1I1 (4O0 Baud or better)
Price— S21.95 40K on Tope-69.95
TAPE UTILITY by Thomas Olk^NEWjJ?
A powerful prog ram that permits the user to easily maintain,
Backup, and catalog both tape and disk programs.
SPECTRUM PROJECTS
»3-te«eihORrvE
Â¥#OOOHAVEK, H V 11421
(il2|44l-2»OT(VO+CE)
«l2)441-3rM<DATA)
Call the Rainbow Connection At (212) 441-3755 & (212) 441-3766 for
TDP— Tape directory
2. COP— Tape to tape copy
3. HIU— List tape directory to printer
A. DIR— Directory of disk
5, PDR— Print disk directory
6 DTT— Copy file from disk to tape
7, TTD Copy file from tape to disk
8. BAC— "Auto disk to tape backup* " I
Cassette or Disk - $24.95
Rainbow Programs & Reviews!
DEALER/CLUB INQUIRIES WELCOME
New York Stat* Resident* add approprlats tax«
THE DRAGON CALLS Great Bri-
tain to mind first, but the truth of the
matter is that our CoCo is gaining a lot
of friends throughout the world. As that
happens, of course, sales of Tandy's
most popular computer continue to
climb and, interestingly enough, so do
sales of the Rainbow. Nowhere is this
more evident than in England, which is
blessed not only with the Color Compu-
ter, but with the Dragon-32 as well.
With the exception of Australia, CoCo
sales — based on Rainbow sales — were
better in the British Isles than anywhere
else. Now, of course, with Dragon, Eng-
land is far and away the number one
non-North American market for the
Rainbow and, we suspect, the Color
Computer, too.
That isn't to say that there isn't a good
market elsewhere. No, we are not privy
to Tandy's sales figures, but we can
guess. And, we see some real strides in a
number of places outside the United
States. Canada, of course, is number
one. One of the main advantages there is
that the electricity is the same — which
means there are no "special" needs that
require different manufacturing for CoCo.
Australia seems to be the "second"
market with a number of other places
—such as Mexico and Israel — close
behind. Yet, we ship the Rainbow to
some 40-odd countries each month. So,
if you happen to be going abroad, check
in at a Radio Shack (there are lots of
them all across the world) and see if you
can't find a fellow CoCo user. When
you do, let us know. We'd like to share
your impressions with others.
******
COMPUSENSE OF ENGLAND has
come up with a new utility called
DECODE which allows BASIC pro-
grams to be cross-loaded between a
CoCo and a Dragon-32. The machine
language program is contained in a
ROM Pack that will convert any pro-
gram of 16K or smaller, so long as they
do not use POKE or keyboard PEEK
commands, It also does not work with
disk. Information on this program can
be obtained by writing to 1 1 Bury New
Road, Prestwich, Manchester, England,
M25 8JZ.
******
According to reports we've been hear-
ing, the CoCo market keeps getting
stronger, but there is a shakeout ahead
in the personal computer field. Fear
not, there will be a Color Computer for
quite a while yet but don't bet on
some of the other computers you may
see being sold in chain stores and
through discount houses. The reason
seems to be a fight centering on price
— and not everyone will be able to keep
that going. With some of the marginal
products now on the market (or ready
to come to market) price was just about
their only attraction. We do hope it
won't end up being a cut-throat situa-
tion like that which existed in the digital
watch field several years ago. No one
came off as the winner in that one and
very few will come off as winners in a
personal computer price war, either.
As always, one of the big questions
will be in the area of support. Tandy
seems to recognize that one company
alone cannot properly support any com-
puter system. That just isn't so for many
of the others and, while a point-of-sale
display may look nice in a K-Mart for a
computer like the VIC-20, the fact is
that what you see is just about all there
is available for that particular compu-
ter. Tandy has done some excellent
marketing work on programs and other
things for CoCo, but look where the
market would be if that was all there
was. We're sure that is why Tandy has
established a support program for its
computers. It is a wise move.
And, finally, suppose you do buy a
Timex computer at a K-Mart or Wal-
green's. Is the salesman in "House-
wares" going to be able to explain a
FORI NEXT loop?
Even if you never plan to program,
some of the ready-to-run programs do
need to be explained. Because Radio
Shack is able to get those explanations
for you (at least when it is their own
software), you can bet Radio Shack will
be a force in computers for a long time
to come.
******
CHROMASETTE, THE FOLKS who
came up with the first tape magazine for
the CoCo, now will be doing it with
disks, too. Disks go for $95 a year which
appears to be just enough to cover the
cost of the medium itself. Let's hand it
to Dave Lagerquist, intrepid editor,
too, for that little dash of humor that's
always present in a Chromasette pro-
duct. How do you get the menu? Just
type in RUN "A WA Y" ! Orders can be
sent to P.O. Box 1087, Santa Barbara,
CA 93 102 or phoned to (805) 963-1066.
******
THE FOLKS AT ELITE Software
have really been turning the old crank.
For all practical purposes, Elite was
contracted to write software for another
firm until a couple of months ago. Then,
on their own, they came out with ZA CK-
SUND, followed with ELITE*CALC
and now, we hear, they have some 20
more programs that will be ready for
sale by summer.
******
WE THINK IT IS a breakthrough, of
sorts, A new program available from
Computer Shack now allows you to
transfer Model I, III and IV programs
and data files to a CoCo disk. And, the
reverse is true: You can transfer from
CoCo to the Models I, III and IV. The
program is called CI 1 1 and can be
ordered for $24.95 from Computer Shack,
1691 Eason, Pontiac, MI 48054.
******
AND SPEAKING OF breakthroughs,
a cooperative effort between the Rain-
bow and AM Varityper Inc. now makes
it possible to typeset ASCII files directly
from a CoCo (or a Model 100 Portable
Computer) to a Comp/Edit 5900 type-
setting machine. "Normal" software is
used on both ends of the connection,
which uses a simple intelligent terminal
program on CoCo and a telecommuni-
cations option available from AM .
******
A GOOF on our part last month-
left out the information that Linda
Nielson, author of the probability
program in July's issue, is vice president
of Moreton Bay Laboratory. Sorry,
Linda.
******
BY THE TIME YOU read this, we
hear, a new wonder from Radio Shack
will be appearing on the scene. Our
understanding is that it will be a hard-
ware device that allows several ROM
Paks to be connected to CoCo at the
same time and easily switched in and
out. According to our sources, one of
the primary reasons for developing this
"expansion" device was to be able to use
disk drives and the X-Pad at the same
time. Price: We hear in the $170 range.
164
the RAINBOW
August 1983
HOW... RESET THE
BACK FROM THE FRONT.
•••-■-■•••■•■•• •' : iY • - •- '
Vffff/f-'fifSf.-fff?,
%~&f'ff- ! ?0'//,'l
': ! -/0'/A'/0f0:
y/:)//: ; ;. : /:/i//. ! :'/J
wi n *^&*m*r*?^^?
OK
SPECTRUM
... mw?
The Spectrum Projects' SRR
provides easy access to your
system reset and eliminates the
need of reaching around cables
and components or moving the
computer.
Installation of this sturdy device
is simple, quick, requires no
tools and voids no warranties.
Put control back where it
belongs, at your fingertips for
only $12.95 plus $2.00 S/H.
YES
NAME_„
ADDRESS _
PLEASE SEND
( ) REMOTE RESETS... $12.95
CITY, STATE, ZIP
ADD $2.00 S/H & SALES TAX
SPECTRUM PROJECTS
93-1 & 86th DR. WOODHAVEN, NY 1 1421
212 • 441 • 2807
Software Review
Only The SYSOP
Can Kill Messages
One of these days I would like to sec a psychological study
of the effects of computer bulletin boards on modern
society. Why would someone sit for several hours in front of
a computer talking to another computer? Maybe it's the fact
that you are controlling your own little empire on the screen.
I'll have to admit there is a certain satisfaction in "download-
ing" a picture of Charlie Brown. Or, how about that new
basic patch on CompuServe?
In reality, I think electronic mail is fast becoming a
necessity— not only due to the fact that you can leave a
message for anyone at anytime, but most of the time their
telephone is busy since they're talking to a Bulletin Board,
too. I predict that within 10 years there will be a computer in
every household with a modem connected to some kind of
time-sharing device. Pay your bills, order your groceries,
plan your vacation, buy a new computer, whatever you
desire.
Two Bulletin Board System programs (BBS's) recently
were assigned to me by the Rainbow for review. Both
require a 64K CoCo with two drives and an auto-answer
modem. Both are initialized for use with a Hayes Smartmo-
dem. Our tests were conducted with both Hayes and Bell
Jkukoka
49 BROOKLAND AVE.
AURORA, ONTARIO
CANADA L4G 2H6
FAMILY GAMES
FOR 16K AND 32K COLOR COMPUTER
STOCKBROKER — Up to 6 players can play the stock
market. For 16K or 32K ECB. The 32K is in High-Res
Graphics.
CRIBBAGE — For 2 or 4 players. In High-Res
Graphics! (for 32K).
BATTLE — Will you get bombed before you can find
all the ships? An extremely entertaining game for the
family.
COLORMIND — Up to 4 players challenge for hidden-
colors.
REMREM^ Challenge your friends. Who can remem-
ber the longest color sequence?
CONCEN — Challenge the computer or a friend to a
good ol' game of concentration.
ALL GAMES only $20.00 or ANY TWO for $35.00
also FROMcAu/to/tafio^ane:
MR. COPY A quality copier written in M.L that will
make backup tape copies. MR. COPY is capable of
making up to 99 copies in one loading! $25.00
ROMDISK — If you have a modified 3?K C.C. machine
ROMDISK will allow you to load your R.S. Rom Packs
from a disk! $20.00
modems and both worked. There were differences between
the two systems, but several similarities. Both are initialized
for 300 Baud operation and use machine language drivers
for real time I/O. Several utilities are included in the pack-
ages for such necessities as making bulletins deleting mes-
sages, editing graphics and maintaining a log of users. Elec-
tronic mail is the main common feature of both Bulletin
Boards. Either can send pictures to the user and have a
database of programs for downloading. Both offer help
commands for new users and a chat mode for talking to the
"SYSOP" (SYStem OPerator) if he or she is available.
Color-80
First let's look at the Color-80 BBS by Silicon Rainbow
Products, which I would classify as the bells and whistles
model. In addition to the standard features, you can choose
from editorials, nonsense, rumors, merchandise or even the
time and temperature. The menu follows:
<A>pplication
<Oonfigure
<E>-mail
<H>elp
<M>erchandise
<0>pinions
<R>umors
<T>ime & temp
<V>iew system
<?>-help
<B>oard Numbers
<D>ownload
<G>oodbye
<L>ogs (users)
<N>onsense
<P>ictures
<S>ysop page
<H>pload
You can pause or stop any operation by hitting any key
repeatedly.
Color-80 has several unique features, the most notable
being error trapping. A machine language routine keeps the
system from crashing due to improper responses, etc. —very
nice! A software clock displays the time continuously on the
host computer. It must be calibrated depending on usage of
disks and the like.
The user does not have to have a CoCo to access this
board, as custom terminal modes are available. An "upload"
section is included using Colurcom £XON/XOFF format,
that is, the BBS sends a character to both open and close the
remote buffer. The remote terminal must acknowledge the
">" prompt after every line before transmitting another.
Color-80 is a "private" bulletin board. Each user must
"logon" and make application for use of the BBS. The
SYSOP then must initialize the user on the system by assign-
ing him a user number by means of a private message. I
could not find any reference to the total number of users
permitted on the system.
A total of up to 60 messages occupy a semi-circular file
and can be killed by the user/ originator or the SYSOP. A
special menu is available for the SYSOP for remote control
of the system.
The source code for machine language is available for an
extra charge.
There were some small corrections necessary in the soft-
ware as this apparently was an early release, but nothing
major that would impair operation.
The documentation makes the assumption that every-
thing is going to work fine. It gives a step-by-step method of
initialization of the BBS, but lacks a lot when it comes to
customization or "what to do if." Customization is very
tedious for a new SYSOP. In some cases, the program has to
be rewritten to change files such as in downloading. I ihink
166
the RAINBOW
August 1983
AARDVARK L.T.D.
TRS-80 COLOR COMMODORE 64 VIC-20 SINCLASR/TIMEX TS99/4A
QUEST - A NEW IDEA IN ADVENTURE
GAMES! Different from all the others.
Quest is played on a computer generated
map of Alesia. Your job is to gather men
and supplies by combat, bargaining, explor-
ation of ruins and temples and outright
banditry. When your force is strong enough,
you attack the Citadel of Moorlock in a
life or death battle to the finish. Playable
in 2 to 5 hours, this one is different every
time. TRS-80 Color, and Sinclair, 13K VIC-
20. Extended BASIC required for TRS-80
Color and TI99/A. $14.95 each.
32K TRS 80 COLOR Version $24.95.
Adds a second level with dungeons and
more Questing.
Wizards)
Touted
WIZARDS TOWER - This is very similar to
Quest (see above). We added wizards, magic,
dragons, and dungeons to come up with a
Quest with a D&D flavor. It requires 16k
extended color BASIC. 13k VIC, Commo-
dore 64, TRS-80 16k Extended BASIC,
TI99/A extended BASIC. $14.95 Tape,
$19.95 Disk.
Authors — Aardvark pays the highest com-
missions in the industry and gives programs
the widest possible advertising coverage.
Send a Self Addressed Stamped Envelope
for our Authors Information Package.
^m
r
ZEUS — It's fast and furious as you become
the WIZARD fighting off the Thurderbolts
of an angry ZEUS. Your Cone of Cold will
destroy a thunderbolt and your shield will
protect you — for a while. This is the best
and highest speed arcade action we have
ever done. Difficulty increases in wave after
wave, providing hours of challenging fun
and a game that you may never completely
master. Commodore 64, Vic20 (16k ex-
pander), and 16k TRS-80 Color Computer.
(ALL MACHINE CODE!)
$19.95 tape $24.95 disk. (Tape will not
transfer to disk.
SEAWOLFE - ALL MACHINE CODE In
this high speed arcade game, you lay out
patterns of torpedoes ahead of the attacking
PT boats. Requires Joysticks, at least 13k
RAM, and fast reflexes. Lots of Color and
Sound. A fun game. Tape or Disk for Vic20,
Commodore 64, and TRS-80 Color. NOTE:
tape will not transfer to disk!
$19.95 Tape -$24.95 Disk.
ADVENTURES!!!
The Adventures below are written in BASIC,
are full featured, fast action, full plotted ad-
ventures that take 30-50 hours to play. (Ad-
ventures are interactive fantasies. It's like
reading a book except that you are the main
character as you give the computer, com-
mands like "Look in the Coffin" and "Light
the torch.")
Adventuring requires 16k on Sinclair,
and TRS-80 Color. They require 8k on OSI
and 13k on VIC-20. Now available for TI99.
Any Commodore 64,
$14.95 Tape - $19.95 Disk.
ESCAPE FROM MARS
(by Rodger Olsen)
This ADVENTURE takes place on the RED
PLANET. You'll have to explore a Martian
city and deal with possibly hostile aliens to
survive this one. A good first adventure.
PYRAMID (by Rodger Olsen)
This is our most challenging ADVENTURE.
It is a treasure hunt in a pyramid full of
problems. Exciting and tough !
B
wiqeortf
Dungeons of Death — This is the first D&D
type game good enough to qualify at Aard-
vark. This is serious D&D that allows 1 to 6
players to go on a Dragon Hunting, Monster
Killing, Dungeon Exploring Quest. Played
on an on-screen map, you get a choice of
race and character (Human, Dwarf, Soldier,
Wizard, etc.), a chance to grow from game
to game, and a 15 page manual. 16k Ex-
tended TRS-80 Color, 13k VIC, Commo-
dore 64. At the normal price for an Adven-
ture (14.95 lape, $19.95 disk), this is a give-
away.
Dealers — We have a line of about 100 origi-
nal programs for the machines listed here.
We have High speed Arcades, Quality Ad-
ventures, Word processors and Business
Software for Small machines. Better yet,
we have excellent Dealer support. Phone for
information.
Send $1.00 for Complete Catalogue - Please specify system on all orders - $2.00 Shipping Charge on each order
AARDVARK LT.D.
2352 S. Commerce, Walled Lake, Ml 48088 / (313) 669-3110
Phone Orders Accepted 8:00 a.m. to 4:00 p.m. EST. Mon.-Fri.
NEW for the Color Computer TR5-80
COCOCASSETTE SUBSCRIPTION SOFTWARE
mS-60 IS A TRADEMARK OF TANDY COMPANY
RAINBOW
CERTIFICATION
SEAL
ENJOY A MONTHLY COLLECTION OF 8-10 PROGRAMS!
Including gomes, education, home finance and more;
on cassette for as low as S5.00 a month! Add some ac-
tion and imagination to your Color Computer. . . Best of
all, we do the work!
LOOK AT SOME OF THE LETTERS WE RECEIVED FROM OUR SUBSCRIBERS.
"I just thought I'd let you know that your cassettes arrive in good order, load just fine, and I really enjoy your programs!"
.,. MARION. OHIO
I was extremely impressed by the first tape I received from you. The added extras are just super."
„_ ., WILLOW GROVE. PENNSYLVANIA
ieldom do I ever write o fan letter. Usually if something fs good, nothing is ever sold. I just renew the subscription or buy
the product instead. T&D Is an exception. I subscribe to several
cassette computer magazines. Yours is certainly the most creative. i â– PRICES
The covers are original and clever, The material covered is
excellent!" pine bluff, Arkansas . 1 YR (1 2 ISSUES) . . $55.00
I only entered a six-month trial but am already willing to extend my , ls>>/, IP *, ir . PS P „ -, — _
subscription!' OOLTEVAH. TENNK5EE O MO (6 ISSU E5) . . POO.OO
SINGLE COPIES. . $ 6.00
-MICHIGAN RESIDFNTS ADD d% TO ORDER
-OVER5EA5 ADD S10 00 TO SUBSCRIPTION AND M 00 TO o1 6 OVO-7^77
SINGLE COPIES 4 w ^
PROGRAMS ARE FOR
EXTENDED BASIC
MODEL ONLY. I55UES
ARE SENT FIRST CLASS
SUBSCRIPTION SOFTWARE
IMMEDIATE SHIPMENT!
PERSONAL CHECKS WELCOMED!
SEND CHECK OR MONEY ORDER TO.
VISA
T&D SOFTWARE P.O. BOX 256-C • HOLLAND, MICH 49423
improvements could be made in the documentation and the
file structure.
CoCo Board II
Lee F. Blitch has refined an earlier program and is now
marketing Co Co Board II. I would classify this version as
the "color" BBS because not only can you download gra-
phics, but several graphic prompts are used during normal
operation. Receiving color graphics requires Colorcom/ E,
Videotex or an 8-bit receive routine. Super "Color" Termi-
nal seems to work fine. Upon entering the BBS, you are
given a choice of which terminal software you are using. If
you are not using an 8-bit routine, none of the graphics are
transmitted.
CoCo Board is a "public" bulletin board in that once you
sign on and determine your own five letter password your
name is entered into the user log. Up to 1Q2 users are stored
in the users log, with the newest user overwriting the oldest if
necessary. The first two entries are protected for the
SYSOP.
The main menu follows:
<B>ulletin
<D>atabase
<G>oodbye
<N>ulls
<R>etrieve messages
<U>sers log
<Ohat
<E>nter message
<l>nfo
<Q>uick summary
<S>ummary
<?>-help
Messages are organized in a first-in/ first-out structure
with a maximum of 100. Message format can be private or
public. After each <G> command, you are asked if you
wish to leave a private message for the SYSOP. This mes-
sage is recorded on a cassette for retrieval using a supplied
utility. Only the SYSOP can kill messages.
A very nice utility is provided for editing graphics. This
program is user friendly and provides the SYSOP with a
method of customizing prompts, etc., with a combination of
graphics and alphanumerics.
Very few problems were encountered using this BBS. The
less frills, the less chances of something going wrong. Why
didn't Murphy say that?
Again, the documentation needs some work. For a pro-
gram of this complexity, four pages just isn't enough. At the
same time, due to the structure of the programs, additions to
the database seem to be easy to implement. An uploading
command would be nice.
Summary
Both BBS's are very fun to play with and should fill a void
that exists in communication among CoCo users. 1 would
suggest that if you are planning a project for your users'
group this would be a fine way to spread the word. It doesn't
take long for word of mouth to travel about the new BBS.
The BBS's reviewed provided a dilemma as to which one
to use. Each has its strong points. Cohr-80 has many more
features, but lacks the simplicity of operation of CoCo
Board II. Maybe someone will combine the two into Color
CoCo Board 82 for the perfect BBS.
(Color-80, Silicon Rainbow Products, 663 S. Bernardo
Avenue, Suite 225, Sunnyvale, CA 94087, $115. CoCo
Board II, Lee Blitch, 507 Emory Circle N.E., Atlanta, GA
30307,5110)
—Dan Downard
COLOR COMPUTER SOFTWARE
• UNIVERSAL PROGRAM 1(UP-1) *
Known as the Program Stacker, UP-1 allows several
programs to be loaded until the memory is filled. Quickly
jurnp from one program to another or compose new
programs while retaining the old ones. Programs are
included for patching damaged programs. Allows data or
machine language programs to be stored and retrieved
from a cassette. Programs are included for writing values
or characters to memory, and displaying memory con-
tents. Blocks of memory can be relocated. UP-1 can be
used as a Word Processor by allowing text to be stored in
memory and printed on the screen or an external printer.
UP-1 Cassette $14.95.
• DISASSEMBLER-ASSEMBLER (PISASM) •
Using English mnemonics and Decimal Locations,
PISASM is an easy way to learn to assemble machine
Language Programs or Subroutines. Subroutines can be
used with Basic Programs and called by either USR or
EXEC commands. For CC compatibility, all locations are
given in Decimal Values eliminating the confusion asso-
ciated with using HEX. All commands are Menue
oriented and the user provides the particulars for the
commands without having to remember command for-
mats. The Disassembler can be used to Analyze Machine
Language Programs as well as the Basic and Extended
CC ROMS. Example programs are included- Cassette
$19.95.
• TERMINAL PROGRAM (DYTERM) • new
DYTERM is designed to convert a Color Computer into
a terminal. Use it to send and receive information from
another computer, another terminal, or use it to provide
the software needed for sending and receiving informa-
tion over telephone lines with a MODEM. DYTERM is a
BASIC program with Machine Languate Subroutines.
Cassette $14.95.
EXTENDED BASIC is not REQUIRED. All programs
require a 16K Computer and are DISC compatible.
HARDWARE ITEMS
Increase your computer's memory with the following
Memory Expansion Kits. Soldering is not required but
your waranty will be voided by removing the cover. The
kits carry a one year warranty.
ME-1 upgrades 4K to 16K $19.95
ME-2 upgrades 4K to 32K $59.95
ME-3 upgrades 1 6K to 32K $39.95
ME-4 upgrades all CC to 64K $99.95
Note: A 1.1 ROM is required for ME-4
6809E Microprocessor Chip $19.95
6821 Peripheral Interface Adapter $6.95
EXTENDED BASIC ROM $85.00
WE REPAIR COMPUTERS
• PUTYOUR PROGRAMS INA PROM PACK •
We will put your Machjne Language and/or BASIC
Programs in a Cartridge. Send us your program on a
Cassette and we will return a Cartridge with your pro-
gram in it. The cost is $19.95 for up to 4K and $29.95 for
up to 8K. Add $2 for shipping.
ATTENTION SOFTWARE PROGRAMMERS: We are
looking for good original programs and are willing to pay
high ROYALTIES for them. Write or call for details.
DEALERS INQUIRIES INVITED
Checks, VISA & MC Cards Add $1 shipping
DYNAMIC ELECTRONICS INC.
P.O. Box 896
Hartselle, AL 3564Q
(205) 773-2758
August 1983
the RAINBOW
169
Let's Digitize The DATA
For Duelling With Dastards
Dragon';
V6vt<
By Bill Nolan
Rainbow Contributing Editor
Last month, for those of you who missed my column
(heaven forbid!), I talked about some problems with
the RND function not being reliably random until
you fix it up a bit. We also began to lay the groundwork for a
computerized combat system to use with fantasy games. If
you have not seen the July column you may want to look it
over, because we will be continuing on from that point this
month.
If you aren't familiar with fantasy games, I want lo point
out that we aren't talking about computer games. We aie
talking about the many role playing games available in any
toy or game store {Dungeons and Dragons, Runequest,
Tunnels and Trolls, etc.) These are very complex games,
with the rules taking up as much as five books, What we talk
about in this column arc ways tn use the computer to simpli-
fy the play of these games as much as possihle. The programs
presented here are not games themselves, but rather aids tn
the play of the fantasy games.
It may interest some of you to know that an estimated five
million Americans play these games regularly, and a survey
done by a large fantasy gaming magazine indicated that
enjoyment of computers and fantasy games go hand in
hand. Over 90 percent of the fantasy gamers surveyed had a
persona! computer!
As we indicated in last month's column, the combat sys-
tems in these games are an attempt to simulate, by rolling
dice, the outcome of a battle between various creatures and
humans. To be realistic, a combat system must consider as
many of the strengths and weaknesses of the combatants as
possible. Because of this, more and moie factors are consi-
dered. I have seen a battle that would have taken five min-
utes of actual time require 45 minutes to work through, and
that is definitely a job for our friend the computer.
What we are not going to do here is write a program to put
an existing combat system on the computer. To start with,
the various combat systems are copyrighted by the game
(Bill Nolan is a principal in Prickly- Pear Software and
teaches "Programming in BASIC "at Pima College in
Tucson, Arizona.)
Programming The
Combat System
publishers, and in addition to that. I think we can do better
by designing a system that takes full advantage of the strong
points of the computer. So, if you should notice that the
combat system isn't the same one you are used to using, give
it a chance, anyway. You may well like it better. After all, we
can keep track of lots more things on a computer.
First things first. Before we can begin we will need to
make a list of things that can affect a combat situation.
1) Weapons— these can be swords, axes, teeth, claws,
spears, daggers, etc., and we must consider that some do
more damage than others, and some are faster than others to
use.
2) Armor here we must consider both artificial armor
such as plate mail and natural armor like dragon scales.
Either one makes a telling blow harder to land. In addition
to making it harder to land a blow, the armor will also
reduce the damage suffered, but almost no existing combat
systems take this into account.
3) Strength — this not only will affect damage done, but
also will have to be considered with regard to effectiveness of
armor.
4) Speed— as any boxer will attest, this can be all im-
portant!
5) Multiple attacks— some people fight with a weapon in
each hand, and a dragon can bite you, claw you twice and
beat you with its wings all at the same time.
6) Skill level this may be the most important item nf all
Some people are expert swordsmen, and then there's me.
7) Initiative— Who has the advantage? Who gets off the
first blow? This may be related to speed and surprise.
8) Constitution— How tough are these people or critters,
and how much damage does it take to snuff them?
u ) Magic spells— these can make weapons and armor work
better, or make them work worse, or myriad other effects.
10) Type of person a magician or thief won't be as good
with weapons as a fighter of the same level.
In any combat system, the number one thing to determine
is who swings first, so we will have to roll that right away.
170
the RAINBOW August 1983
REALISTIC ACTION FEATURING--- Bank Shots, Combinations, Engish on
the Cue Ball.can be played by 1 or 2 players. Ask your friend to chalk up,
the action is fast. Now at your Software Dealer, if not have them call
ANTECO 4220 Clay Ave.
Fort Worth, Texas 76117
1-800-433-7631
ANTECO
division of
Antenna Electronics Co.
The next thing is to find out whether the blow landed or the
arrow found its mark. This is the real heart of any combat
system, and before any of the above listed special conditions
can be applied, we must have a starting point to work from.
This starting point is usually the number that a beginning
fighter(just out of basic training?) would have to roll to land
a blow.
In our new system we will assume that our neophyte
warrior is using a die with 30 sides, and that he (or she) has a
50 percent chance of striking a normal unarmored oppo-
nent. In this case then, our sword wielder must roll a 16 or
larger to be successful. This is generally called the "base
chance," and is changed to reflect the influence of the var-
ious factors above. In many systems, damage is calculated
by a separate roll of dice, but we are going to base it upon a
combination of weapon type and the difference between the
roll needed to hit and the actual roll. In fact, we are going to
use the same roll to see whose blow struck first.
In order for the computer to be able to take the many
modifiers into account, we will have to input the fighting
characteristics of the various participants. This can be done
before the game even starts, and since there may be a lot of
characters and monsters to be considered, we will want to
have some way to save a game in progress.
I prefer to write a program in several sections called
modules, and then GOTO the desired module from a menu
of choices. In this program we will need the following
modules:
1) INPUT section where we enter the data about the
combatants.
2) SA KEscction where we can save our entered data to tape
or disk.
3) LOAD section to retrieve previously saved data.
4) £X>,/Tsection where we can examine and change our data
as desired.
5) COMBAT section where the actual results of combat are
Calculated and data updated as necessary.
Those five will be the main portions of the program, and the
combat portion will be the longest by far.
By the way, I intend to incorporate full fumble and critical
hit tables into the program. If these terms are new to you, a
"fumble" happens when a player rolls a 1 . This is taken as an
indication that something worse than a simple miss has
Occurred; The warrior may have dropped his weapon,
slipped and fallen, broken his weapon or actually hit himself
with his own weapon. (Try swinging a mace as hard as you
can, and see what happens when you miss completely.)
"Critical hits" happen on a roll of 30 in my system and
indicate that the blow has been exceptionally effective in
some way. It may have done extra damage, severed an
extremity or killed the opponent outright. (These games can
be bloody at times.)
The basic way the system will work will be like this: Let>
suppose I am fighting some evil Knight. I need a base 16 to
hit him, but I'm second level, so I need only a 15. Also, I'm
exceptionally strong (really?), so I get a bonus of 2 for that.
Now I need 13. In addition, my magical sword is +2 to hit
and I was recently blessed by a devout cleric (+1 to hit) so I
really need only a 10. Unfortunately, my opponent is wear-
ing plate mail, which is 7 armor classes better than no armor
at all, so I 'm back up to a 1 7 needed to hit him. He's a better
fighter than I am (not hard), and with all adjustments taken
into consideration he needs only a 12 to hit me.
When combat starts, I roll a 26 and he rolls a 19. It
appears that both blows landed, but in what order? That
could be important, because if my blow landed first and
killed him, his blow Would never land at all. Well, my 26 is 9
higher than I needed to hit him, while his 18 is only 7 higher
than he needed to hit me, so my blow landed first. The
damage done will be based upon the same thing — the differ-
ence between the number needed to hit and the actual roll.
Damage will also have to be effected by the weapon used,
and each weapon will have a multiplier (usually a number
smaller than 1). The difference will be multiplied by the
weapon multiplier to determine the damage done.
Since the factors of strength, speed, level, armor of oppo-
nent, etc., were used to calculate the chance to hit, they will
all play an automatic part in damage calculation. For
instance, if my sword were not magical then my number
needed to hit would have been two higher and the difference
would have been two smaller, thus effecting both the dam-
age done and the determination of whose blow landed first.
To make this system work, we will have to give the com-
puter the following information about each participant in
the meelee:
•Name
• Class (fighter, thief, magician, etc.)
•Level
• Weapon(s) used (including magical adjustments)
• Armor type (including magical adjustments)
• Strength adjustments
•Speed adjustments
• Number of attacks
•Hit points (a measure of damage absorbing ability)
• Magic spells currently having an effect
We may well think of other things, but for now let's see a
nice method for rolling the dice on the screen. Remember,
we want a roll of from I to 30.
10 CLS:X=RND(- 1 IMER):P$="T255L25505AB"
20 PRINT @ 166,"DICE ROLL = "
30 X=RND(30): PRINT @ 1 78,US1NG "##";X:PLAY P$
40 IF INKEY$=""THEN GOTO 30
50 PRINT @ 356,"GO AGAIN? (Y/N)":K$=INKEY$
60 K$=INKEY$:IF K$0"Y" AND K$<>"N" THEN
60
70 IF K$-"Y"THEN 10 ELSE END
This little program will give you a rolling number right on
the screen, and if you don't want a number from 1 to 30 just
change the RND(30) in line 30 to RND(some other
number). Or better yet, add this line.
15 PRINT @ 66,"ENTER HIGHEST NUMBER"; :
INPUT Z
Now make the RND(30) in line 30 into KND{Z). You now
have a little program that will simulate the roll of a single die
having any number of sides you want it to have!
That's about it for this month. Next month we will have
the entire program in the column, along with a section by
section commentary and full instructions for use. I hope a
lot of you are changing these programs to suit your own
needs. With this one, I will try to show you where to change
any parameter of the program you find hard to live with. As
most of you fantasy gamers already know, these games are
very flexible, and almost no two groups play by exactly the
same rules. In fact, I know some groups with a notable
disregard for any rules at all, but they still enjoy the game.
Remember, if you have suggestions or comments, write to
me or call me at Prickly-Pear Software. I can't put what you
want into my column unless 1 hear from you. ^
172
the RAINBOW August 1983
Having trouble getting a copy $f Color Computer News/at your newsstand
For 52,95 a
uf Col or ,C •■i
Computer
you will t
inform alio
e latest copy
xami»e Color
on f&rni and
â– ^f'jfcBi
SAMPLE COUPON
„ Ed
»fta T&J.3LJ
JVarkable Software* tnt " KVHy 'S'ft^w^rfc DUt,
P.O. Box lj»«i
Deri 1 102
Muskegon, M I 49443
»■/*^5>
"^b !■■r*ih>»<a>i- • ^ ^"^li^nM**" "J"
Technical Review MC-10
Kid CoCo
Is No Lightweight
Little Brother to the Color Computer is not only a tough competitor, but has the ability to grow.
By Dan Downard
Rainbow Technical Editor
Q
uestion: What's 8>/£ x 7 x 2 inches, weighs 29 '/ 2 ozs.
and has Microcolor basic for $1 19.95?
Answer: The MC-10 PoCo CoCo, Radio Shack Cat.
No. 26-301 1. As you probably noticed in last month's
issue of Rainbow, Radio Shack has gone after the Sinclair / -
Commodore beginners group with its new venture into the
Color Computer family. The new unit has color graphics,
sound, RS-232, a cassette port, BASIC and 4K of RAM, with
provisions to add an additional 16K. No joystick ports are
included.
The screen format is the familiar 32x16 inch produced by
the Motorola 6847 VDG. The most radical departure is in
the use of a Motorola 6803 as the MC-10's central processor.
Other than the 6803 and memory map, which has radically
changed, the MC-10 is essentially a smaller version of the
popular CoCo. For those of you who are having trouble
finding information on the 6803, try the 6801. The 6803 is
actually a 6801 processor running in Mode 2. More on that
later.
The MC-10 is one step ahead of the competition in that it
has a real keyboard, something that the people at Radio
Shack are very proud of, and rightfully so. The keyboard
has the same type of keys as the CoCo, although considera-
bly smaller. Keys have dual functions with the use of a
"control" key that allows the use of "keywords" or in CoCo
terminology, built-in "Master Control."
What about Microcolor BASIC? Immediately after turn-
ing on the MC-10 you notice the Microsoft/Tandy logo
informing you of the new operating system. Micro-Color
BASIC 1 .0 is an 8K ROM interpreter that, in a nutshell, is the
same as color basic with several welcomed additions, such
as math functions and a new basic command for saving
arrays.
Packaging
The shipping package for the MC-10 contains the follow-
ing:
•The MC-10
•Antenna switch
•Cable from MC-10 to TV set
' »Wall plug with in-line power supply
^Operation and Language Reference Manual
©Quick Reference Card
The 133-page reference manual is clear and concise,
somewhat in the fashion of all Radio Shack manuals, and
the 8 1 / 2 x 6 inch size is very convenient for bookshelf storage.
The Quick Reference Card lives up to its name by providing
a summary of all operations and commands.
The MC-10 has a built-in RF modulator and is compati-
ble with any bw/ color TV operating on channels 3 or 4.
Channels are switch selectable on the bottom of the case.
The TV screen was clean and RF free as the modulator has
been completely redesigned for this model.
Cassette and Serial I/O connectors are the same as those
used for the CoCo for compatibility with existing Radio
Shack peripheral devices.
A 34-pin expansion port is centered on the rear of the
cabinet for future RAM expansion. Preliminary informa-
tion indicates a 16K RAM module will be available within
90 days for around $50, upgrading the total user memory to
"For those of you interested in
energy conservation, the computer
draws 16 watts at 120 volts. At
today's cost of electricity this-
means that it costs approximately
one-tenth of a cent per hour to
operate. Not Bad!"
20K. No ROMpacks are planned at present. Several cassette
programs are in the works. Hopefully, one of the first will be
a Videotex program for modem communications.
The power supply is in-line with the AC cord and delivers
8.0 VAC at 1.5 Amps. An On/ Off switch on the right hand
side of the case actually switches the low voltage AC within
the computer. For those of you interested in energy conser-
vation, the computerdraws 16 watts at 120 volts. At today's
cost of electricity this means that it costs approximately
one-tenth of a cent per hour to operate. Not bad!
Microcolor BASIC 1.0
fable 1 contains a complete list of commands available in
the BASIC ROM. As you can sec it is an impressive list
considering the size of the ROM . In addition to the standard
174
the RAINBOW August 1983
in
?>
K
CO
to
JUST GOOD SOFTWARE
N
CO
o
o
CM
a
D
DISK DOUBLE ENTRY - If you have spent hours
trying to balance your Debits and Credits, this program is
for you! Designed for smail business, club, and personal
use. Enter transactions in a journal type format. Program
will maintain current account balances, produce Trial Bal-
ance, Income, and Balance Sheet reports and complete
Account Ledgers. Will handle up to300 accounts including
report headings and totals. Up to 1 400 average transactions
on a diskette. Summary reports and four levels of subtotals
available. REQUIRES 32K and a user understanding of
standard double entry accounting concepts- - $44 95 in
BASIC with Machine Language subroutines.
DISK DATA HANDLER - 64K - Designed to use
the full 64KRAM, but may also be configured for 32K. Uses
standard ROM's - No special operating system required!
Allows you to design disk data files for your specific needs.
You define a basic record of up to 14 fields and 246
characters. Provides fast selection and sorting based on
any field or combination of fields in this record. Powerful on
screen input and update User defined output of reports to
screen, printer, or disk files which may be read by your
BASIC programs for any computational or special format-
ting requirements. Printer reports allow headings, page
breaks, and page numbering, and let you pass control
codes to drive your printer's special features. Maximum
number of records you may work with at one time will
depend on RAM configuration and record size - 64K (32K)
1 850 (500) - 21 char records, 1 79 (49) - 246 char records.
An optional Extended record linked to the basic record may
also be defined. The size of this Extended record is not a
factor in determining maximum number of records. Will
provide the growth capability needed for your increasingly
sophisticated applications. $54.95 in BASIC with Machine
Language subroutines.
DATE-O-BASE CALENDAR - Puts you in charge
of your schedule! Graphically displays any monthly calendar
between 1700 and 2099. You put in up to twelve 28
character memos per day - calendar shows where the
memos are -call up of day shows details. Use for appoint-
ments and a log of past activity. Study the chronology of the
American Revolution or note the day your mortgage will be
paid off. Search capability allows you to list or print all
memos between two specified dates or only ones meeting
key word criteria. Date computation shows elapsed time
between two dates in days, weeks, months, and years.
REQUIRES 32K in BASIC.
TAPE DATE-O-BASE CALENDAR - $1 6.95 - (max. 400
memos/tape file).
DISK DATE-O-BASE CALENDAR - $ 1 9.95 - (over 4,000
memos/disk - max. 300 memos/month).
That's INTEREST-ing - Time to let yourcomputer
do some real computation! This program will help you solve
problems dealing with time, money, and INTEREST. Calcu-
lates present value, future value, and capital recovery for
any combination of payments you specify. Rate of Return
computation to predict how hard your money will be working.
Special section to compute bond yields (current and to
redemption). Amortization schedules about any way you
want them - even allows you to change terms in mid
schedule! All answers available on screen or printer. $29.95
in BASIC
MATH TUTOR â– Five programs that go from math fact
(+, — , X, /) drill to full addition, subtraction, multiplication,
and division at four levels of difficulty. Provides a step by
step approach with error correction and rewards for good
performance. - $1 3.95 in BASIC.
SPELLING TEACHER- Up to 200 of their spelling
words stored on tape or disk are presented in four lively
study modes including a scrambled word game. -$12.95 in
BASIC.
ALPHA-DRAW - A subroutine designed to let you
easily add characters to your graphic displays. You define X
and Y coordinates and a string variable of one or more
characters and Alpha-Draw will do the rest. Includes all
keyboard characters. Comes with instructions for a true
line numbered merge of tape files. Works great with the
Screen Print program! - $8.95 in BASIC.
GRAPHIC SCREEN PRINT PROGRAM -
Works in ALL PMODES and lets you shift screen image
anywhere on the printed page. Relocatable code lets you
use all of your 1 6K or 32 K machine. Available for both Color
Basic 1.0 and 1.1. Use EXEC 41 175 to see which you have
and SPECIFY with order. In Machine Language.
SPECIFY PRINTER TYPE
$7.95 - For TRS-80 S LP-VII/VIII & DMP 100/200/400.
$9.95 - For Epson GRAFTRAX 9 , PROWRITER®, NEC® PC
8023A-C, Microline 18 82A/83A(with OKIGRAPFT I), Microline
84, IDS-440/445, Paper Tiger® 460/560, Micro Prism® 480,
Prism® 80/132 (with dot plotting), Micro Peripherals, Inc.
88G/99G, Centronics 739, Star Micronics, Inc. GEMINI-
10/15.
(Trademarks of Tandy Corp., Epson America, Inc., C-ltoh,
NEC America, Okidata Corp., Integral Data Systems, Inc.)
ALL PROGRAMS require Extended Color Basic and are
delivered on cassette. All, except Tape Date-O-Base Calen-
dar, are DISK System compatible.
3
m>
°s
(A
V)
m
»
m
TJ
n
10
>
C
a
co
M
I
>
<
CO
M
We want your
SUGGESTIONS!
Custom Software Engineering, Inc.
807 Minutemen Causeway (D-2), Cocoa Beach, Florida 32931
(305) 783-1083
For VISA and Master Card orders:
Include type, account number, expiration
date, signature and phone number.
Sorryi No COD'S
U.S. and CANADA add $1.00 per order for shipping.
Overseas $2.50 per order. All prices in U.S. dollars.
Florida residents add 5% sales tax. Return within two
weeks if not completely satisfied.
RAINBOW
CCTTmCATION
SEAL
Al I I ISTFD
PROGRAMS
COLORSOFTâ„¢ BUSINESS SOFTWARE
AT LAST! BUSINESS SOFTWARE DESIGNED FOR THE COLOR COMPUTER
* MAKE YOUR COLOR COMPUTER A WORKING BUSINESS PARTNER *
* ALL PROGRAMS ARE MENU DRIVEN AND USER FRIENDLY *
* PROFESSIONALLY WRITTEN AND FULLY TESTED #
* AFTER-THE-SALE SUPPORT *
COLOR SOFT ,m GENERAL LEDGER
COLORSOFT I™ General Ledger >• Ideal lor the small business men who
wartls to lake advantage or the lime saving benefits ol computerized account-
ing procedures. This package Jt designed lor the businessman who la
knowledgsble ol accounting principles and who wants a computerized
accounting system with greater user control, Thetealures and vpllun* of inis
package compare lavorably to higher priced software.
FEATURES
"" USFR FRIENDLY AND FULLY MENU DRIVEN *"
â– " UP TO 96 USER DEFINABLE RECORD CATEGORIES â– "
'•' USER FLEXIBILITY IN ACCOUNT DESIGN AND ENTRIES "'
— DETAILED JSER'S MANUAL WITH SAMPLE TRANSACTIONS "'
*" APPROXIMATELY 9S0 ACCOUNTS RECEIVABLE/PAYABLE FILES "
â– "STYLED FOR THE ACCOUNTANT/BOOKKEEPING ORIENTED USER" -
â– " MENU PROMPTS MAKE ENTRIES EASY, FAST. AND EFFICIENT "'
COLORSOFT ,m General Ledger Is an Integrated, iournal-iype double entry
accounting package lor i small business that Includes General Ledger,
Accounts Payable, and Accounts Receivable program*, Outputs fifths system
include an Income statement, balance sheet, accounts payable and receivable
status list;, accounts payable and receivable aging reports, journal reports,
account listing and a closing summary. During each user established accounl-
(no period (monthly, quarterly, annually, etc ), It will handle accounta ol up to
St, 000, 000,00 for approilmately B00 accounts payable/receivable. Accounts
are automatically numbs red and each transaction Is carried separately so that
an account number will correspond lo a specllic purchase rather than, a
specific vendor.'cuslomer.
Requires 16K and a Single Disk Drive.
PRICE: Sl/g.35
COLORSOFT"" SMALL BUSINESS ACCOUNTING
The COLORSOFT tm Small Business Accounting package la Ideal lor the
small businessman who wants to take advantage of the time saving benefl tact
compulerliHU' accounting procedures. This package Is designed with thl-a
person In mind and as such, entenslve computer or accounting eiperlence It
nui required. Tn* feature and option t ol this package are comparable to much
higher priced software,
FEATURES
*" USER FRIENDLY AND FULLY MENU DRtYfcN —
"• USER DOES NOT NEED TO BE AN ACCOUNTANT "'
"' UP TO 32 USER DEFINABLE RECUHU CATEGORIES '"
"■DETAILED USERS MANUAL WITH SAMPLE TRANSACTIONS —
'" USER IS PROMPTED FOH COMPANION ENTRIES AS REQUIRED "'
■" APPROXIMATELY flOO ACCOUNTS RECEIY ABLE/PAYABLE FILES •"
"' MENU PHOMPIS MAKE ENTRIES EASY, FAST, AND EFFICIENT "â–
COLORSOFT ,m Small A,, vines! Accounting la an integrated, ledgerlets
accounting package for a small business that Includes Accounts Payable
Accounts Receivable, Sales, and Purchase Order .programs, Outputs of Ihe
system Include an Income statement, balance sheet, cheek register, accounts
payable and receivable status Hals, and accounta payable and receivable
aging reports, During each user established accounting period [monthly,
quarterly, annually, etc.), it will handle sales ul up |« J 1,4)00,000 00 and
approximately auo accounts payable/receivable. Accounts are automatically
numbered and each transaction Is carried separately auch that an account
number will correspond to a specHIc purchase rather than a specific
, vendor/cuslomer.
Requires 1GK and a Single Disk Drive
PRICE: $1*9.95
COLORSOFT 1 " 1 MANAGEMENT SKILLS
SERIES I: BEING BOSS
FJEINR B055" Is * collection ol six programs and la the llrst in an ongoing
series ol computer assisted management development tools. Those who can
benefit Include corporate executives, managers, heads ol teams, group leaders,
supervisors, fore mans teachers, and parents. In fact, anyone who must take a
leadership role can benefit from these programs.
A REFLECTIONS - a self evaluation guide
B. ASSERTIVENESS - taking control as a leader
C- MANAGEMENT STYLES - hc-w lo approach the leadership role
D, DECISION MAKING how to handle decision making
E, COUNSELING â– helping others solve parson*! problems
F, STRESS CONTROL - taking care ol yourself
Each program Is In a multiple cnoice questionnaire lormal where the user Is
quarried as to a response to a specified management situation. Tutorials help the
user learn new management skills and Insights The programs Include voice
annotation trom the author, Mr, Terry Barker. 'BEING BOSS' ll baaed In carton
his forthcoming management books "BOSS TALK" and "THEORY C."
The series, "BEING BOSS ".otters to Ih* user the latest In management skin
development Concepts and should prove to be an Invaluable TOOL lor anyone
who wishes to reach their lull potential as 41 leader. The author has condensed
week long intensive workshop material into this outstanding package. The
accompanying user's manual is very well written and IS easily understood by
anyone
Requires 16K and cassette,
PRICE $89.95
COLORSOFT"" ACCOUNTS RECEIVABLE
COLORSOFT ,m Account* Receivable Is a full stand-alone accounts receivn^
ble system. It li also suited for integration Into the COLORSOFT lm Small
Business Accounting package. Accounts Receivable does not require tha user
to be an accountant; In fact, this is a highly user friendly system designed tor
dally use by the small businessman. The features and options of this system
compare favorably with much higher priced software.
FEATURES
•" PROVIDES ACCOUNT AUDIT TRAM *"
'" ACCOUNTS ARE CARRIED BY CUSTOMER »â–
*" USER miCMDLY AND FULLY MENU DRIVEN *»*
*** PREPARES INVOICES AND MAILING LABELS "'
"â– USER DOES NOT NEED TO BE AN ACCOUNTANT â– "
*" DETAILED USER'S MANUAL WITH SAMPLE TRANSACTIONS "*
™* MENU PROMPTS MAKE ENTRIES EASY, FAST. AND EFFICIENT "•
COLORSOFT ,m Accounts Receivable provides the user wllh detailed audit
trails and history tiles on all trananctinns by a customer. It also prepares
Invoices, mailing labels, aging lists, customer history reports, and an alphabet-
iced*cu*tomer listing. The user can J* line discount/net lerms tor commercial
accounts and finance charge and minimum payments for revolving accounts.
Requires 16K and a Single Oiak Drive.
PRICE. JS9.9S
USER'S MANUALS WITHOUT PROGRAM $20.00 EACH (Refunded on Purchase)
INCLUDE: $2.25 Handling Per Order WRITE FOR FREE CATALOG
BRANTEX, INC.
COLOR SOFTWARE SERVICES DIV,
BUSINESS SOFTWARE GROUP
P.O. BOX 1708, DEFT. R
GREENVILLE. TEXAS 75401
TELEPHONE ORDERS
(214) 454-3674
COD/VISA/MASTERCARD
ATTENTION DEALERS: WE OFFER THE BEST DEALER PLANS AVAILABLE
Table 1
BASIC COMMANDS
basic Statements:
CLEARn — Reserves n bytes of string storage space
(0-3142).
CLOAD - Loads a basic program file from cassette. Only
the first 8 characters of the file name are used.
CLOAD* — Loads numeric data into an array from
cassette file which has been created using CSA VE*.
Array name must be specified.
CLS(c) — Clears the display to the color (c) specified. If c is
omitted, green is used.
CONT — Continues execution of program after BREAK or
STOP.
CSA VE — Stores resident program on cassette tpe. Only
the first 8 characters of the file name arc used.
CSA VE* Saves the contents of a numeric aray on cassette
tape for later use by CLOAD*. Array name must be
specified.
DATA — Stores data to be accessed by a READ statement.
DIM — Dimensions one or more arrays.
END — Ends program execution.
EOR . . . TO. . . STEP I NEXT— Opens program loop.
GOSUB â– - Transfers program control to the specified
subroutine.
GOTO — Transfers program control to the specified line.
IF . . . THEN — Tests conditional expression.
INPUT — Inputs data from the keyboard.
LIST — Lists program lines to the video display.
LUST— Lists program lines to the line printer.
LPRIN I Prints an item or list of items on the printer.
NEW — Erases program from memory; initializes all
variables.
ON . . . GOSUB — Multi-way branch to specified subrou-
tines.
PRINT— Prints an item or list of items on the display at
current cursor position.
PRINT@n â– â– - Prints beginning at n,n = 0-511.
PRINT TAB Moves the cursor to specified column
position.
READ — Reads value(s) from a DATA statement.
REM — Remark; instructs computer to ignore rest of line.
RESET(x.y) — Turns off graphics block at specified
location.
RESTORE — Resets data pointer to first item in the first
data line.
RETURN — Returns from subroutine to next statement
after GOSUB.
RUN — Executes resident program or portion of it.
SET(x,y,c) — Turns on graphics cell to specified color (c) at
specified locations x(horizontal) - 0-63; ^vertical) =
0-31. See CLS for colors. If c = cell is unchanged or set
green (if in character mode.)
SKIPF — Positions cassette tape at end of next file.
SOUND(f.d) — Sounds the frequency (/ = 1-255) and
duration (d~ 1-255) specified.
STOP — Stops execution of a program.
Functions:
ABS(x) — Computes absolute value.
ASC(str) — Returns ASCII code of first character of string.
CHR$(c) — Returns character for ASCII, control, or gra-
phics code.
COS(numeric) Returns cosine of an angle given in
radians.
EXP(numeric) — Returns natural exponential of number
/Cnumbcr\
IN KEYS — Gets keyboard character if available.
INT(x) — Returns largest whole number not greater than x.
LEFT$(str,c) — Returns left portion of string.
LEN(str) — Returns the number of characters in a string.
LOG(numeric) — Returns natural logarithm.
MEM — Finds amount of free memory.
MID$(string,pos,len) — Returns a substring of another
string. If length option is omitted, the entire string right
of pos is returned.
PEEK(n) — Gets value in location n(n = to end of
memory).
POINT(x,y) — Tests whether specified graphics cell is on or
off, x (horizontal) = 0-63; y (vertical) - - 31. The
value returned is- 1 if the cell is in the character mode,
if it is off, oi the color code if it is on. See CLS for color
codes.
RlGHT$(str,c) — Returns right portion of string.
RND(n) Generates a "random" number between 1 and n
if n > 1 , or between and I if n = 0.
SGN(x) — Returns sign component: - 1 ,0, 1 , if x is negative,
zero, positive.
SIN(x) — Computes sine; angle must be in radians.
STR$(x) — Converts a numeric expression to a string.
SQR(numeric) -— Returns the square root of a number.
TAN(numehc) - Returns tangent of angle given in radians.
VAL(str) — Evaluates a string as a number.
BASIC commands of Color BASIC we are treated to the math
functions of COS, TAN, EXP and LOG I think these are
valuable additions, especially for educational use. Two new
commands are implemented:
CLOAD* Loads numeric data into an arrary from a
cassette file which has been created using a
CSA VE* statement.
Example: CLOAD* A,D AT AFILE
CSA VE* Saves contents of a numeric array on cassette
for later use by CLOAD*.
Example: CSA VE*A,DA TA FILE
Since all cassette file information is handled through the
above commands, gone are the tedious OPEN, CLOSEand
FOF commands encountered by every beginning program-
mer. I wish we could add these commands to Extended
Color basic.
There are no commands for executing machine language
programs such as EXEC or USR Machine language pro-
grams arc apparently not supported in Microcolor basic
1 .0, The 6803 command set is a subset of the 6809 instruc-
tions; therefore, machine language programs should not be
entirely compatible anyway, but the 6803 is upward compat-
ible with the 6800 and I'm sure a method will be devised for
ML program execution.
Pressing the Control key along with another key enables
designated keywords, or BASIC commands, to be input with
only two keystrokes. Graphics characters can be generated
by a combination of the Shift and certain alphanumeric
keys. The keyboard has a few editing commands built in
such as full cursor control and line delete. Figure 1 shows a
August 1983
the RAINBOW
177
PRICKLY-PEAR SOFTWARE
QUALITY PROGRAMS FOR YOUR COCO & TDP-100
PROGRAMS REQUIRE 1 6K EXTENDED BASIC FOR TAPE, AND 32K DESK UNLESS OTHERWISE NOTED.
"\
GREAT NEW ADVENTURE
ADVENTURE IN WONDERLAND
100% MACHINE LANGUAGE
We are going to go out on a limb here. We believe
very strongly that this is the BEST adventure
game ever written for the color computer. Thafs
right, we said the BEST — no exceptions!!
Adventure in Wonderland is 100% machine lan-
guage, and completely fills a 32K machine. The
program has a vocabulary of literally HUNDREDS
of words, and uses a full "ELIZA" type of intelli-
gence simulator. That means you can give com-
mands and conduct conversations in WHOLE
SENTENCES if you like!! Try that with any other
adventure!
This is a fantasy world peopled with the creatures of Lewis Carroll's
"Alice's Adventures in Wonderland", "Through the Looking Glass", an
ing of the Snark" have been blended into a delightful
landscape. You will play the role of Alice as you wander
through the garden of live flowers, the treacherous
Tulgey Wood, (he chessbuard landscape, the
wabe, and all the other familiar Wonderland
scenes. You will meet, and talk with, the
beamish Tweedle Dee and Tweedle Dum,
the mirmsy Mock Turtle, the uffish Duchess,
the immortal Humpty Dumpty, and
a dozen other Wonderland charac-
ters. And, of course, you will chit-chat
with the Cheshire Cat!!
As we said, you have a vocabulary of
HUNDREDS of words — not the usual
stingy 30 or 40. The program's response
to these words will vary depending
on the situation, where you are, who you
are talking with, what you have said in the past, and the way in
which the words are combined. Your task is to become Queen,
save Wonderland from the Snark, and manage to return home.
You may feel completely trapped in certain places In Wonderland,
but there is always a way out ... in fact, there are always <at least) three
exits from each trap. An open mind, a pure heart, and a touch of Wonderland
madness will keep you from despair!!
This is not an easy adventure, and will provide ample challenge for
the most experienced adult players, but you will have so
much fun conversing with the denisons of Wonderland
that you may not want to leave anyway. We want to repeat
what we said above, because we really mean it. WE
BELIEVE THIS TO BE THE VERY BEST ADVENTURE r. &V
EVER WRITTEN FOR THE COLOR COMPUTER, After vftG
you have tried it, you'll think so too! 100% machine
language — Fully 32K long, Tape ■$24.95; Disk - $29.95
imagination,
d "The Hunt-
Pmgrams are available on AMDEK cartridges
to the disk price.
add $5.00
Your personal check is welcome - no delay. Include
$1.50 shipping for each program ordered. (Shipping free
on $50,00 or larger orders). AZ residents add 7% sales
tax. Orders shipped within two days.
Stocked by Quality Dealers, or
Send Order To: PRICKLY-PEAR SOFTWARE
9234 E. 30th Street
Tucson, Arizona 857 1
(602)886-1505
picture of the keyboard. The only inconvenience was the
location of the Control key. I hit it several times mistaking it
for the Shift key. After a little use this does not seem to be a
major problem.
Microcolor BASIC 1.0 supports two modes of operation, a
green background 32 x 16 inch alphanumeric display mode,
and a 64 x 32 inch resolution 8-color graphics mode (Semi-
graphics 4). Other modes are programmable by POKE
statements but are limited to SE Tf R ES ET commands for
pixel control, A POINT command is available to examine
the state of a particular graphic element.
Figure 1
KEYBOARD PHOTO
Cassette Interface
A 1 500 Baud cassette interface with a standard 5-pin DIN
plug is on the left rear of the case. Cassette format is similar
to the CoCo with one notahle exception. BASIC tokens are
different in Microcolor BASIC. This means that tape pro-
grams from a CoCo will load but will not execute. This is not
as serious as it sounds. First, most BASIC programs written
for the CoCo will execute on the PoCo (MC-IO). You will
initially have to type them in manually. At the same time, we
will leave it to our readers to come up with a scheme of
converting BASIC tokens to a PoCo format After conver-
sion 1 would see no reason why tapes for the PoCo could not
be generated by a CoCo.
No cassette relay is included in the interface. Starting and
stopping of the recorder must be done manually,
RS-232 Interface
Also, on the left rear of the case is a 4-pin DIN plug for
connection of an RS-232 serial printer or modem. The for-
mat is fixed at 600 Baud, 7 bit, no parity and, as in other
Radio Shack devices, assumes that the printer generates a
line feed after carriage return. Software reverts to the Model
1 format by the use of LPRINTfor all output to this port. No
mention is made of how to input data from this port in the
documentation. At the same time, those readers familiar
with the 6803 will remember that the processor has built-in
serial I/O and this data can be examined using one of the
external registers. More on that in a minute,
Futernal Cartridge Port
A 34-pin PC hoard connector is available on the rear of
the case for future expansion. At present the nnly expansion
in the works is a I6K RAMcatridge. For those readers with
different ideas the pinouts of this connector arc given in
Table 2. As you can see, all of the necessary bus information
is present for most peripheral interfaces and memory expan-
sion. As wc mentioned earlier, it seems that Radio Shack has
opted to go with a casscttc-bascd system leaving the ROM
option for the CoCo user.
|—
Table 2
Expansion Connector
Pin
Pin
Pin
Pin
Pin
Pin
Pin
Pin
Pin
Pin
Pin 21
Pin 23
Pin 25
Pin 27
Pin 29
Pin 31
Pin 33
I-
3-
5-
7-
9-
II-
13
15
17-
19
-Ground
DO
D2
-D4
-D6
-Read/ Write
Al
-A3
-A5
-A7
A9
-All
-A 13
AI5
Cart Select
NMI
-Ground
Pin
Pin
Pin
Pin
Pin
Pin 1*2
Pin 14
Pin 16
Pin 18
Pin 20
Pin 22
Pin 24
Pin 26
Pin 28
Pin 30
Pin 32
Pin 34
-Ground
Dl
-D3
-D5
â– D7
-A0
-A2
-A4
A6
A8
-A10
-A12
-A14
E/ Clock
Reset
+5V
Ground
"AN ABSOLUTE JEWEL", "THE PERFECT DBH"
'I USE C.C. WRITER FOR MY CORRESPONDENCE"
"IMPRESSIVE" , "JUST R16HT", "PROFESSIONAL"
Trans Tek Software
has earned these words of praise fro» re-
views in The RainbcH, 60 Micro, Creative
Computing and other publications. Like
our tustoiers, you'll see Hhy when you buy:
C.C.Cak The Electronic Spreadsheet 134-95
CC.File The Micro Data Base Hanaggr $12.95
C.C. Writer Versatile Word Processing 129.95
C.C. Mailer Mailing List/Letter Merge *29.95
froi
Trans Tek
194 Lockttood
Bloomingdale, IL 60108
or
your Favorite Dealer
August 1933 the RAINBOW 179
Figure 2
CIRCUIT BOARD
1. Microprocessor
2. Video
Display
Generator (VDG)
3. Read
Only
Memory (ROM)
A. Random
Access
Memory (RAM)
5. R.F. Section
6. Power
Supply
7. Keyboard Plugs
8. RS-232 and Cassette
9. Cassette Plug
10. Seriall/OPlug
11. Reset Button
12. Expansion Connector
13. T.V. Connector
14. On/ Off Switch
Hardware
Figure 2 shows the inside top view of the circuit board
with the keyboard and RF shield removed. As you can see,
the unit is very compact and of a no frills variety when it
comes to design. The main components are identified in the
photo and can be subdivided as follows: Microprocessor,
ROM, RAM, VDG, RF Modulator, Serial and Cassette
I/O and Address Select hardware.
Microprocessor
A 6803 microprocessor is the heart of the MC-IO. The
6803 is a 6801 without internal ROM running in Mode 2.
Mode 2 is the Motorola terminology for the configuration
of memory and ports. The 6803 contains 1 28 bytes of on-
chip RAM, a built-in serial I/O and programmable timer.
The processor has 2 1 internal control registers, of which
four are not used and four are unavailable for use. Two of
the internal registers are used to make a 16-bit counter/ ti-
mer that is incremented during each clock cycle. The clock is
derived from a 3.57 MHz color burst crystal that is part oi
the VDG/ RF circuit. The actual clock speed of the proces-
sor is 3.57/4 or .895 MHz.
Port 1 (pins 13-20) becomes the column strobe for the
keyboaid. Port 4 (pins 22-29) becomes the upper eight bits
of the address (A8-AI5). Port 3 (pins 30-39) in combination
with a 74LS373 Latch provides the lower address and data
lines along with the read/ write signal.
Port 2 (pins 8-12) is multifunctional. Bit I is the RS-
232/ Cassette output signal. Bit 2 is another column strobe
for the keyboard dedicated to the Shift/ Break/ Control
keys. Bit 3 is the RS-232 input signal. Bit 4 is the Carrier
Detect (CD) input from the "RS-232 port. Bit 5 is the cassette
input.
Without going into great detail on each of the 6803 regis-
ters we might mention a few that will be of great interest to
the hobbyist. The Rate and Mode Control Register is
180 the RAINBOW AuguS' 19B3
located at $10, the Serial Rx Data Register is located at $12
and the Serial Tx Data Register is located at $13. For the
6803 these registers are memory mapped and can be exam-
ined by the user. Bits and 1 of the RMCR control the baud
rate of the serial I/O. By reading and writing to the Serial
RxTx Registers we can input and output data to the RS-232
port. In all, these registers occupy locations S00-S15 of the
memory map.
ROM and RAM
M icrocolor BASIC 1 .0 is provided by means of an 8K x 8
ROM. The identification on ours was 8364. Two D40I6D
RAM chips provide 4K on-board user memory that has to
be shared with the display and basic housekeeping,
Ceramic memory chips were used throughout. All memory
chips and the microprocessor are shielded by means of a
metal cover that is soldered to the main circuit board.
VDC/RF Modulator
As in the CoCo the screen output is determined by a 6847
Video Display Generator (VDG) chip driving a 1372 RF
Modulator. No SAM chip is included for memory manage-
ment. Memory contention hetween the VDG and CPU is
handled by a clock synchronization circuit along with some
discrete chips. Two74LS367 and a74LS245 1C provide bus
isolation for writing to the video display. Although used as a
video mixer in the CoCo, the 1372 also contains a complete
video RF modulator section which is used in the MC-10. A
varactor-tuned FM oscillator produces a sound carrier.
As previously mentioned, only the Alphanumeric Inter-
nal and Semigraphics4 Modes are supported by Microcolor
basic 1. For those of you who care to experiment with
different graphic resolution modes I able 3 contains the
connections of the control pins on the 6847 VDG along with
the sound output bit located at 32768 on the memory map. A
POKE32768,XX will bring interesting results.
/%E DO BASIC BETTER!
Experience High Resolution Graphics
and Speed Unsurpassed in Color
Computer Extended Basic Software
GALLOPING
GAMBLERS
Those who have tried it agree that qallqpinq
GAMBLERS is so addictive, so exciting, that you and
your whole family will sit cheering for your horse to
win.
No joysticks are required tor this 4 player game. Place
your bets on the variable odds and then wait for the
sound of poet time.. .and. ..they're off.
Game Includes color graphics with score and birds-
eye view of the race track. Can you last all twelve
races?
We dare you to try.
$18.95
GATOR ZONE-
Is the first video computer game that takes a "byte"
out ot the Preppy craze! You can finally get even with
those peaty Ivy League snobs by blasting away at a
host of Preppy Gators on their home planet of "Prep-
tune". You have to be quick, or the gators will gob-
ble up your shirts! This Is comic arcade fun at Its best.
Includes high-resolution graphics, on-screen scoring,
joystick action, and three levels of play.
An 1MB original!
$18.95
STAR SIEGE PLUS-
Discusted with Space Battle games In which your
space craft looks like an asterisk?
STAR SIEQE lets you and your friend (or enemy) pilot
two high resolution space ships while trading laser
blasts. The first to take ten hits loses, but watch out
for that pesty alien saucerl He wants to see to it that
you hoth get vaporized.
Also includes two player TANK TOUCHER game.
SELECT-A-GAME-
combines 3 of IMB's finest bonus games in one sim-
ple load! You can switch back and forth from "ALPINE
ALIENS", "OH, GOBI", and "ZELDA'S BAT BOTTLE".
All contain stunning color graphics and high speed
action. Even If you already own one or more of these
games, you will want this fine package.
$18.95
MICRO-MATH
SKILLS QUIZ-
is a fine math drill for students at or below the 3rd
grade math level. Includes automatic grade tally, and
fNKEY entry with large print, high-resolution graphics.
This is a must for educators!
$12.95
CREATAVADER-
Now you can design your own "Invader-style" game
for your Color Computer, Includes all the routines
needed for customizing the creatures you hate the
most. Full Instructions Included. Create your own
targets or select from a menu of seven predesigned
four color targets.
ADVANCED
STAR*TRENCH
WARFARE-
This High Resolution Color Game has the meet
elaborate graphics of any Color Computer Game
created to date. You'll be amazed by the remarkable
speed and flicker-free animation found In this graphic
space challenge. Program Includes a moving trench,
cockpit perspective, on-screen rapid scoring, energy
and ship gauges, automatic high score tally, joystick
control, and a recharge and crash sequence you'll
have to see to believe. Use your own 3-D glasses and
add an amazing sense of depth to this classic game.
Truly a must for every Color Computer.
$18.95
$18.95
METEOR STORM-
If you are bored with space obstacle games that place
you as a distant observer from a point far off In space,
then METEOR STORM Is for you. En|oy the thrill of
blasting the approaching meteors from the cockpit
of your own spacecraft. Watch the meteors grow In
size until. . . I
16K Color Extended Required. Includes sound
enhanced laser blasts, multl game scoring, and three
levels of play.
$18.95
COLOR
WORDCLONE-
Turn your Color Computer Into a supertype writer,
Screen displays 50 characters by 23 lines In real up-
per and lowercase. User modifiable. Remove our
character generator and use it In your own basic pro-
gram. This Is an easy to use word processor. The
character generator alone Is worth the price of the
tape. Works with tape or disk.
$18.95
KOSMIC KAMIKAZE-
Our best selling high-resolution, deep space arcade
game which the RAINBOW called "...the best
spaceship graphics we have seen In a non-machine
language program." Battle high speed alien saucers,
decoy ships, bonus killer crafts and speeding comets.
$18.95
STARBASE ATTACK-
Why be a loser? Here's an arcade game you can play
to win. In other space city defense games you play
until you lose. STARBASE ATTACK I* totally different.
Your mission Is to clear a path for the escape vehicles
which will carry your people to safety. Not only that,
but you must also maneuver your own escape before
alien warheads or a wave of killer asteroids level your
dome-covered cities. You control high energy laser
blasts and expansion shields, but watch outl You
might end up the one who doesn't escape.
$12.95
$12.95
SUPER DISC WITH ALL 11 PROGRAMS
A VALUE OF $171.50 JUST $59.95 POST. PAID.
LLUSTRATED MEMORY BANKS
(A DIVISION OF THE PROGRAMMER'S GUILD, INC.
P.O. BOX 74
WEST PETERBOROUGH, NH 03458 — .
•VISA AND MASTERCARD ACCEPTED* #^
CALL (603) 924-6065 3-7 P.M. EST
MENTION THE RAINBOW AND SELECT ONE FREE PROGRAM FOR
EVERY TWO $18.95 PROGRAMS YOU ORDER.
RAINBOW
UTILITIES+ FOR
EXTENDED BASIC
#UK2 COLOR KRUNCHER — $12.95
—Reduces Memory Requirements of Any Ext. BASIC
Program— Speeds Program Execution Time
—Type In A Program From A Magazine, As Is, Debug It,
Then Let KRUNCHER Make It Shorter
—Includes LN.XREFand REM.REMV (#UR2)
—Includes "EXTENDED BASIC FASTER" (#F1)
#F1 "EXTENDED BASIC FASTER" — $3.95
—The First Published Proven List of Methods YOU Can
Can Incorporate Into All Your Own Ext. BASIC
Programs For Maximum Speed Efficiency
—For Novice or Experienced Programmer
—For Graphics or Non-Graphics Programs
#UV4 VARIABLE CROSS REFERENCE — $6.95
—Locates All Variables And "Where Used" Line #'s In
Your Ext. BASIC Program
—Optional Variable Only List (No Line #'s)
—Automatic Sort— Optional Printer Output
#UF2 LLIST FORMATTER — $9.95
—User-selectable Margins, Page Lengths, Top-of-
Form, Font Size, Line Length And More
— Title And Date Your Important Listings
—Start And Stop Listings At Any Line #
Optional Space Between Lines— Hi lights Line
Numbers— Opt. Single-Sheet Pause— For Most
Recent Printers (can be user modified)
#UR2 LINE CROSS REFERENCE — $7.95
—Provides A Sorted Listing Of All Referenced Line
Numbers— Optional Printer Output
— Includes Optional REM.REMV— Removes All
Unreferenced REM's And Comments And Line#'s
—Removes Comments From Referenced REM's
—Includes Optional Line Protect Feature
#UD2 DISK DIRECTORY WITH BYTES — $7.95
—Gives Same Info As DIR, PLUS Individual File Bytes,
PLUS Free And Used Total Files, Grans, And Bytes,
PLUS Opt. Disk Name, PLUS To Screen Or Printer
—One Screen At A Time (No More Frantic SFT/@)
—Includes Separate DISK NAME Program
#US3 COPY/SEARCH/REPLACE/DELETE —
$7.95
—Same As Disk COPY, But To and-From Disk OR Tape
—For ASCII Textfiles Or Programs Or Datafiles
—For ASCII Textfiles Or Programs
—Search OR Search & Replace (optional) OR Search &
Delete (optional)
—Excellent For Changing Long Variable Names
—Great For Changing Spelling Or Capitalization
#H1 VIDEO*CLEAR — $14.95
—Computer Associates' VIDEO INTERFERENCE
REJECTION CABLE— Reduces Or Eliminates Pic-
ture Interference Caused By Serial Or Disk Cables-
External TV Cable Replacement— No Soldering— 2
Min. Installation— For 75 Or 300 Ohm TVs Or Moni-
tors—Nothing Extra To Buy— Price Includes Ship-
ping— Qty. Disc. Avail.
ALLPGMS (EXCEPT #UD2) FOR EXT. BASICTAPE/DISK
BUY 3 OR MORE ON THE SAME ORDER & TAKE 10% OFF
(Posr Paid in U.S. & Canada) (PA Residents Add 6%)
Send Check Or Money Order To:
MICROLOGIC
Box 193, First Avenue
East Brady, PA 16028
(412)526-5781
Table 3
VDG PORT
Address: $8000
Bit 2-
-VDG EXT and GM2
Bit 3-
-VDGGM1
Bit4-
-BDG GM0
Bit 5
-VDGA/G
Bit 6-
-VDG INV
Bit 7-
-Sound
Memory Map
Figure 3 shows a coarse memory map of the PoCo. Only a
few comments are necessary. The screen display memory
begins at $4000(16384) and continues to $4 IFF. All 6803
vectors occupy the addresses from $4200 to $4212 and con-
tain RTI instructions. BASIC program space immediately
follows. The BASIC restart vector points to $F72E so if you
want to try a disassembly, this would be a good place to
start.
Figure 3
MEMORY MAP
MC-10 USAGE
6803 USAGE
i IMKKKll'l VtXIUKS
! [ $ KKF0 1
BASIC
ROM
S80U0 !
KBD/YDG
I/O
SYSTEM/USER
RAM
$4000 j_
UNUSED
S00EF !
INTERNA!. RAM
INTERNAL RAM j
$0080 j_
UNUSED
EXTERNAL RAM j
$001 r I
...
INTERNAL REGISTERS
INTERNAL REGISTERS j
$0000 L.
j
65535
65520
57343
00255
00128
00031
Summary
Radio Shack has obviously put their resources to the task
to compete in the low priced market and, as far as we can see,
they have risen to the challenge. Hopefully, by a favorable
initiation into the world of microprocessors for a reasonable
price, Tandy will introduce the user to its fine line of
advanced products and peripherals. I would recommend
this model to any beginning user for one reason. I predict
that software will he abundant due to the similarity and
family ties to the Color Computer. Where else can you buy a
computer with a real keyboard, cassette and RS-232 ports
and color graphics for $1 19.95?
182
the RAINBOW August 1983
STAR-KIBBITS
I'd like to thank all of you who stopped by our booth at the
Color Computer show in Chicago in April. I certainly
enjoyed meeting so many old friends and new customers,
and had a delightful time. We even managed to liven up the
last day of the show by raffling away a TV set and holding a
Dutch auction. Sure hope there's another show soon!
If you have a disk system, I'd like to urge you to use the
verify option. Before saving to the disk, type VERIFY ON
(or include it in a program). After the disk system writes to
the disk it reads the data back to make sure it was written
properly. While this really slows everything down, it's a
worthwhile precaution to help guard against loss of
programs or data. (Quite common in other systems, too.)
Several customers have asked about our update policy.
It's fairly simple: within 90 days of purchase, an update is
free — just return the original disk or cassette. After90days
an update costs $10 (to make things interesting, we will also
accept one pre- 1965 silver dollar.)
We also have a liberal policy on software upgrades. If you
now own HUMBUG or STAR-DOS, we will give you full
credit toward the 64K versions. That means that 64K
HUMBUG will cost you just $20 more, while 64K STAR -
DOS will cost you just $25 more.
What, you say, is so special about the 64K versions?
Quite a bit. STAR-DOS 64, for example, provides upper and
lower case display with 40, 51, or 64 characters per line; it
can be used with 35-, 40- or 80-track drives, single-or double
density, single- or double-sided. But, aside from the fact that
it provides a simple, straightforward interface to the disk, a
very interesting aspect is its compatibility with other 6809
operating systems. For example, many programs written
for FLEX T " (a trademark of Technical Systems Consultants
Inc.) will also work with STAR-DOS 64. We are using TSC's
text editor and macro assember with STAR-DOS right now.
They work just fine, but the big difference is that their disk
format is compatible with other software for the Radio
Shack disk system.
As to 64K HUMBUG, that's an intersting story too. This
HUMBUG runs as a utility under either STAR-DOS 64 or
Flex (that's right, the same HUMBUG runs with either — it
even runs on bigger systems using Flex.) That makes
HUMBUG unique — it is the only monitor that runs under
Color Computer Flex. HUMBUG provides all the facilities
that are needed for machine and assembly language
programming and debugging in a 64K environment. You
can start and stop programs, insert breakpoints, even
single-step through programs. There is just no other way to
do these things in a 64K Color Computer!
One of the problems with a monthly column is keeping up
with publishing deadlines. As you probably noticed last
month, I have already fallen, behind. But at least there is one
consolation — the sooner you fall behind, the more time you
have to catch up. See you next month.
SPELL 'N FIX
Regardless of whose text processor you use, let SPELL 'N FIX (ind
and fix your spelling and typing mistakes. It reads text faster than
you can, and spots and corrects errors even experienced
proofreaders miss. It is compatible with till Color Computer text
processors. $69.29 in the Radio Shack disk or cassette versions;
$89.29 in the Flex version. (20,000 word dictionary is standard;
optional 75,000 word Super Dictionary costs $50 additional.)
HUMBUG — THE SUPER MONITOR
A complete monitor and debugging system which lets you input
programs and data into memory, list memory contents, insert
multiple breakpoints, single step, test, checksum, and compare
memory contents, find data in memory, start and stop programs,
upload and download, save to tape, connect the Color Computer to
a terminal, printer, or remote computer, and more. HUMBUG on
disk or cassette costs just $39.95, special 64K version for FLEX or
STAR-DOS 64 costs $59.95
STAR— DOS
A Disk Operating System specially designed for the Color
Computer, S TAR-DOS is fully compatible with your present Color
Computer disk format — it reads disks written by Extended Disk
Basic and vice versa. STAR-DOS (or 16K or 32K systems costs
$49.90; STAR-DOS 64 for 64K systems costs $74.90.
STAR FLEX
The best implementation of FLEX for the Color Computer.
Complete with all utilities, text editor, macro assembler, and
1 1UMBUG debug monitor, $250.00.
ALL IN ONE - Editor Etc.
Three programs in one — a full function Editor, a Text Processor
and a Mailing List/Label program. All this for just $50. Requires
STAR DOS and 32K, or STAR DOS 64, or FLEX, specify which.
DBLS for Data Bases
DBLS stands for Data Base Lookup System. A super-fast system
for searching for a selected record in a sequential disk file. Supplied
with SPELL 'N FIX's 20,000 word dictionary as a sample data file —
lets you look up the spelling of any word in under FOUR seconds.
Priced at $29.95. Requires STAR-DOS.
CHECK 'N TAX
Home accounting package combines checkbook maintenance and
income tax data collection. Written in Basic for either RS Disk or
Flex, $50.
REMOTERM
KEMOTLRM — makes your CoCo intoa host computer, operated
from a remote terminal. $19.95.
NEWTALK
NEWTALK a memory examine utility for machine language
programmers which reads out memory contents through the TV
set speaker. $20.
SHRINK
SHRINK — our version of Eliza, in machine language and
extremely fast. $15.
EDUCATIONAL SOFTWARE
Introduction to Numerical Methods — college level course on
computer math, $75.00.
We accept cash, check, COD, Visa, or Master Card. NY Stale
residents please add appropriate sales tax.
Star-Kits
* * *
** ^a L veH H UMBUG for
WG n MC 10 M.cro Color
the ^ too" More MC-10
Computer too.
software coming-
P.O. BOX 209 R
MT. KISCO, N.Y. 10549
(914) 241-0287
Software Review
This ML Adventure
Can CSA VE Your Life
I've been wandering these passages for hours now. There
are three exits here: North, South and West. Northward,
then! Hurrah, here is the Oracle that was foretold. O great
Oracle what may you tell me of this accursed labyrinth? The
old one calls out, "The secret to the Light ring is the Power
ring, Crom and the Tailsman!,"and with a flash of light he is
gone. So, the pendant is one of the Keys, but what is Crom
and where is the Power ring? The walls are shaking! What
trick of the dark lords is this! Zeus' beard! It's a cave-in. My
last thoughts are regret and pain as a great block of granite
crashes down.
A horrible death, but don't worry, in Radio Shack's
adventure Madness and the Minotaur your alter ego is easily
reincarnated, if 'you have saved the data for this particular
set-up that is. If not, you can always start a completely fresh
game.
This is a machine language adventure that is different
every time it is started from scratch. Solving most adven-
tures requires several attempts before completion and this
one is no different. So, what do you do when every game is
different? Just use the game save feature included at the
beginning (just in case you meet a quick death) and, then
later, if you are still alive and doing pretty good, make
another save from that point. Saves take very little tape
space and don't take much time. Starting again is simply a
QUASAR
ANIMATIONS
regrets any inconvenience we
may have caused WILLIAMS
ELECTRONICS for improper
use of their name in last month's
ad.
matter of loading in the program and then the data and
you're right where you left off.
Another nice feature of this game is the QU IE I command
which allows you to pause a game in progress and come back
later as long as your CoCo is on (excellent for "pit stops,"
snack breaks or when the wife threatens to beat you severely
if you don't give her some attention). This feature is also
good for another important aspect of the game, even though
I don't think the programmer(s) intended it, and that is map
making. In this game, if you sit still for very long at all, the
walls start shaking, followed very shortly by a cave-in. So to
facilitate mapping, I type QUIET as soon as I enter a new
room and note any features of interest and exit directions.
This is especially important when starting a fresh game
because, even though there is a core of rooms that don't
change, there are portions that are randomized along with
the other variables. QU IE I is also the mode from which the
saves and loads are done.
Motion commands are single letter (U, D, N, S, etc.) and
other commands are generally two-word in the familiar
verb/ noun format. One exception to this is the BACK
command which is used if you enter a room with exits that
are already blocked . . . ;/you are quick! Another appre-
ciated feature is the SCORE command (also done automati-
cally on death or completion) which lets you know how well
you are doing as you go along. It can also help you deter-
mine if the objects you find are really treasures or not. By the
way, I tried using AD-DICT (Rainbow, February, 1983) on
this game and only got a little help since quite a bit of info
seems to be in non-ASCII format, possibly due to the "ran-
domness." But, there are a few tidbits of interest.
The documentation is the familiar Radio Shack booklet,
eight pages in length, three of which have to do with actual
game playing (scoring, spells, a FEW hints, etc.). The rest of
the booklet more than adequately describes the features I
have mentioned and a few more. If the name of this program
sounds familiar, a look at the copyright page will show you
that this is the same game from Spectral Associates, only
now it's under license to Tandy Corporation.
The "random" feature has its pluses and minuses. The
number of things randomized can lead to some games that
are almost unbeatable and some that are relatively easy
(darn few!). But, it keeps this from being a "solve-it-and-put-
it-away" type adventure if you don't mind the data saves.
All in all, I give it a hearty recommendation, especially for
the price.
(Radio Shack, nationwide, Cat. No. 26-3313, S14.95 on
tape)
—Bruce E. Sterling
FILEQUEST* Data base for small inventories, mailing labels, etc. $15
CALENDAR Disk RS only. One year at a time, up to 100 entries per day.
Printer output. $10
STOCKQUEST Trend Analysis. Buy and sell signals, $10
STOCKQUEST PLUS* 32K only. Same as above plus printer output.
Capital gain/loss comparisons, forecasting and more. $15
MUTUAL FUNDS Invest the no-load way. Save money. Shows how to
start, get prospectus and more info on the funds. $4
DATA MANIA, INC.
Software Dept.
Add $1.50 p/h 51625 Chestnut Road
Granger, IN 46530
'Specify RS Disk or Tape
Write for software list/includes Model l/lll
184
the RAINBOW August 1983
Introducing . . .
New! From the Programmer's Guild
The Ultimate Arcade Challenge!
New from Arcade Master Charles Forsythe!
The most original game ever produced!
16 levels of breath taking action!
Up to 6 players in competition!
Keyboard or joystick control.
Runs on any 16K TRS-80 color or TDP 100.
Guide your Ninja through boulders, fire, pitfalls, flaming
meteors, and Ninja masters to attain the ultimate /f^^\
achievement in — NINJA GRANDMASTER! rainbow
CERTIFICATION
SEAL
TM is the single most difficult arcade
game ever written!
Exciting— Frustrating— Difficult— Impossible — your skill will tell the tale.
MUA v#tfWK
— for those who would face
TM
the ultimate arcade challenge-
TO WIN OR DIE! $2995cassette
Free Shipping
VISA MASTERCARD
THE PROGRAMMER'S GUILD
P.O. BOX 66
PETERBOROUGH, NH 03458
—or Call (603) 924-6065 for COD—
x^ ^ mm wmm ^ 1 ^ — ^^
AND GET "FREE" SHIPPING ANYWHERE ON THE
PLANET EARTH OR HER COLONIES
HARMQIMYCS
P O. BOX 1573
SALT LAKE CITY, UTAH 84110
RAINBOW
CERTIFICATION
PREMIUM SOFTWARE
DISK MONEY MINDER is a family budget tool. It allows you to set up a
family budget wilh as many as 56 user definable categories You may print
out balances, change category names, search a year (or a month or whatever)
of records (for tax purpose$ for example) DISK MONEY MINDER allows
24 sets of entries and 56 user definable categories al one time. You may
break checks and deposits into any number of categories DISK MONEY
MINDER is menu driven and easy to use. Excellent manual with plenty of
examples-
Requires 32K plus DISK S19 95
MONEY MINDER II is the cassette version of DISK MONEY MINDER. Reviewed
in April 1982 Rainbow and improved since then 1
Requires 1 6K but does NOT require Extended Basic $14.95
PIE-CHART is a unique graphing program II allows you to enter data such
as monthly bills yearly expenditures, etc. This data may be entered as per-
centages or in its "raw state. Data entered raw will be converted to percent-
ages by the program The resulting PIE-CHART can be saved tg laps or
the data itself can be saved to tape for later use By using a screen print
program (not supplied) you can make printouts of the pie-charts One unique
feature of the program allows you to save a large number of pie-chart- or
other hi-resolution screens to tape and reload and display them one at a
time by flipping through them quickly much as you might ao with a Slide
show presentation This feature would be great for a sales presentation
club meeting ur retail display Other features-automatic screen writing i e'
designahons-up to 20 entries possible per pie-chart-keyboard toqqle of
raw vs percentage data entry
PIE-CHART needs 16K and Extended Basic S10 9b
AMORT asks you to input the amount of a loan, the term of the loan and its
interest rate The program will print to screen and or to your printer and will
give you: 1 -a running total of principal still to be paid 2-The amount of the
monthly payment applied to principal. 3-The amount of the monthly payment
applied lo interest 4-The total monthly payment 5-Thetotal amount paid into
principal to date. 6— The total amount paid into interest to date. 7-The total
amount payed out to date.
Requires 16K and Extended Basic $11.95
COLORHYTHM is a biorhythm program for your Color Computer It plots in
High-Resolution graphics (PMODtS) and color a 15 day biorhythm chart
displaying your Intellectual, Emotional & Physical biorhythms Reviewed in
August 1982 Rainbow.
Requires 16K & Extended Basic $9.95
* * * EDUCATIONAL * * *,
MATCH & SPELL combines a gome similar to the familiar TV game of CON-
CENTRATION and a spelling drill to provide a truely unique and fun program
You may load a spelling list (up to 32 words of up to 11 letters each) from
tape or keyboard The program then allows you to study the list for as long
as you like After that the game begins. One of your words is presented
to you either correctly or misspelled with a common spelling error. You are
asked if it is spelled right. Then the correctly spelled wordis displayed for
a brief time and you are then asked to spell the word The CONCENTRATION
type game is played by one or two players during the spelling drill.
A lot of fun for 16K and Extended Basic $11.95
PRESCHOOL PAK consists ot two programs for preschooler learning fun
ALPHABET drills the child in alphabet recognition and rewards a correct
answer. COUNTER drill the child in counting to 10. Both use Hi-Resolution
graphics and sound. Reviewed in September 1982 Rainbow $8.95
MATHWAR is an educational game In the game the player must jump one
space-fighter over another checkers style, until only one fighter remains
Each time a move is selected the program will not complete the move until
a math problem is answered correctly The player selects addition or subno-
tion and one ot four difficulty levels Level 1 is problems with numbers up to
19 but no carrying or borrowing is required Level 2 is the same as Level 1
but numbers up to 99 are allowed Level 3 uses numbers up to 19 but allows
carrying and borrowing problems. Level 4 is the same as Level 3 with numbers
up to 99 No negative responses to wrong answers and the math score is
displayed at the end of the game.
Requires ib'K and Extended Basic $11.95
We pay postage on all orders.
Software Review
Desert Golf: Good Graphics
But Still A Bogey
When I received this game in the mail I quickly opened it,
eagerly anticipating a fun game of computer golf. I have seen
some of Spectral's other game such as Ghost Gobbler and
Planet Invasion and was quite impressed by their quality.
Besides, it was a cold day and I would much rather spend it
inside than on the links.
The documentation is brief but adequate. The premises of
the game is that it is the final round of a major golf tourna-
ment and you are among the leaders with nine holes left to
play. Text screen displays are used to show available clubs,
standings (leader board), and review of scores (your score-
card). A text screen is also used to display your current
status including length of hole, distance to green, distance of
shot, and a menu to get you to the above mentioned screens
and two graphic views of the hole. All the text screens are
nicely formatted and include some color graphic block
borders. The two graphic screens are done in PMODE 3 to
make use of four colors. One shows an Overhead view of the
hold and the other shows a view from the tee and even
includes the mountains in the background. These graphics
are extremely well done.
At this point I was ready to play the game and it was here
that a severe case of disappointment set in. The graphics are
not used for the play of the game. It is a text type game that
could be played all the way through without ever looking at
those beautiful graphics! To play, you select a club and
enter. You can then sit and watch the distance from hole
counter run down while the length of shot counter runs up.
A request to display the overhead view of the hole shows the
same screen we saw at the start. Ball position is not shown.
Club selection is also a disappointment — you get three
woods, the 3, 5, 7, and 9 irons, and SW They are not good
for the same distances a standard club would be. 1 learned
this when I selected a seven iron for a 130 yard shot. A
message displayed "solid hit" and the distance counter
ticked off 45 yards— certainly not a "solid hit" for someone
in a major tournament. When I finally made it to the green,
putting was as unexciting as the rest of the play. You are
shown the distance from the cup in text and asked to pick a
putting strength of 1-15. 1 quickly learned that a strength of
from one-half to one-third of the distance to the hole usually
resulted in sinking the putt.
Another disadvantage of this game is that it always plays
the same nine holes. I'm sure the reason for this is the
excellent graphics; it would be almost impossible to ran-
domize the holes and still maintain the same quality within
32K. Finally, this is a one-player game. You can't invite the
boys over on a snowy evening to enjoy a round of indoor
gold.
I alsn have the Tom Mix game which docs use the gra-
phics to show the play of the game and, although the Spec-
tral game has superior graphics, the Tom Mix game is
definitely more fun to play.
Desert Golf requires 32K and Extended BASIC.
(Spectral Associates, 141 Harvard Avenue, Tacoma, WA
98466, $8.95)
—James G. Kriz
186
the RAINBOW August 1983
DOLLARS & SENSE 16K Ext. $11.95
Learn to make purchases. Graphic displays of items
kids love. Player buys using dollars and coins to prac-
tice using money correctly. Solutions given.
McCOCO'S MENU 1GK Ext. $11.95
America's favorite pastime - going out to eat! Learn
to buy and add up your purchases from a typical fast
food restaurant menu. Gain skill in using money. Dif-
ferent prices each time.
MONEY-PAK 32K Ext. $22.95
This is a menu-driven merged version of the above 2
programs. Also includes play money for extra rein-
forcement.
ADDITION AND SUBTRACTION 16K $11.95
Menu driven, 2 level program provides practice in
adding or subtracting 2 digit numbers. Vertical format
for proper entry of digits in the answers. Report card
scoring.
LONG DIVISION TUTOR by Ed Guy
16K Exl. Basic $14.95
A tutorial that takes the child through all steps of the
example. Includes HELP tables, cursor aids, and
graphic aids. Input your own numbers, or let the com-
puter choose the example. Three levels of difficulty.
Great leaching program!
MULTIPLICATION TUTOR by Ed Guy
16K Ext. Basic $14.95
Similar type tutorial to the above. All carries indicated.
Teaches examples from one to three place multipliers.
FACTORS TUTOR by Ed Guy
16K Ext. $19.95
A program to help teach the skill of factoring. 4 levels.
Learn about factors, prime numbers and G.C.F. Help
command available at each step. Makes factoring fun
to learn.
FRACTIONS TUTOR by Ed Guy
16K Ext. $19.95
Step by step instruction in addition of fractions. 4
levels of difficulty. If you need help, use "Help" com-
mands throughout each step of the example. Great for
learning, practicing and reinforcing this skill.
Computer Island Presents
THE BEST IN
SOFTWARE FOR KIDS!
BEYOND WORDS 32K ECB $19.95 Each
These Language Arts programs cover common mis-
spellings, and synonyms/antonyms on each level. Addi-
tionally, Level 1 teste contractions and abbreviations,
Level 2 tests homonyms, and Level 3 tests analogies.
Each program has 3 parts and contains over 400 ques-
tions and uses over 800 words. All tests are grade ap-
propriate. User modifiable (directions included). Printer
option.
Level 1 Grades 3-5
Level 2 Grades 6-8
Level 3 Grades 9-12
VOCABULARY BUILDERS 32K ECB $19.95 Each
200 Vocabulary questions on appropriate grade levels
in a 4 part multiple choice format. 1000 words used.
Extensive research has provided challenging words on
all levels. When mastered, the words may be changed
by the user (full directions included). Printer option.
Level 1 Grades 3-5
Level 2 Grades 6-8
Level 3 Grades 9-12
On Disk
Beyond Words I and Vocab. Builder I $38.95
Beyond Words II and Vocab. Builder II $38.95
Beyond Words III and Vocab. Builder III $38.95
CONTEXT CLUES 16K Ext. $17.95 Each
Each reading program contains 50 situational para-
graphs with one key word missing. Child uses context
clues to find correct answer in multiple choice format.
Random selection of readings each round. Available
for 4th, 5th, 6th, or 7th grade. Please specify.
READING AIDS 4.Pak 16K Ext. $19.95
A 4 part menu driven program for the Elementary
school child to create his own original reading
material. Includes the 4 popular programs — POETRY,
SILLY STORIES, SILLY SENTENCES and WIZARD, now
expanded to 16K Extended Basic.
A BYTE OF COLOR BASIC $4.95
A work-text manual that will help the programming
newcomer begin to write his own programs. Practice
exercises and answer key.
TRS-80 COLOR COMPUTER
FUN AND GAMES $11.95 Each
CIRCUS - 16K A kid's graphic adventure. Ages 5-10.
SCHOOLMAZE - 16K - Kid's adventure. Draw pictures,
play basketball in school setting. Ages 5-10.
COCOJOT - 16K - Color Computer lotto game. Family
fun. Ages 8-adult.
GHOST - 16K ECB by S. Rosen - The famous word
game. Ages 8 adult.
NAME THAT SONG - 16K ECB
Version 1 • 72 Kid's songs to guess.
Version 2 - 72 Popular tunes
Version 3 - 60 Show tunes
SOFTWARE FOR SPECTRUM'S LIGHT PEN
KID'S FUH-PAK: This 3 program game set will enter-
tain you with a great new dimension fqr your com-
puter. Tutorial included with documentation.
Kid's Fun-Pak Tape 16K Ext. $14.95
Light Pen and Tape $34.95
COMPUTER ISLAND
DEPT. R
227 Hampton Green
Staten Island, N.Y. 10312
(212) 948-2748
Please add $1.00 per order for postage
N.Y. Residents, please add proper tax
FREE set of BINARY DICE, including full directions,
with orders of 2 or more items.
DEALERS INQUIRIES INVITED
Authors: We are seeking quality children's software for
leisure or learning. Write for details. Top royalties.
TOP SYSTEM 100
FOREIGN LANGUAGE BASEBALL
16K ECB- 200 words-$11.95 Each
Score base hits or home runs for correct answers.
You're out if wrong. User modifiable. A fun way to
learn and practice vocabulary. Specify FRENCH,
SPANISH or ITALIAN.
MUSIC DRILL by David Steele
16K ECB $19.95
Learn to identify the notes of the scales of most
popular major and minor keys. Drill on sharps and
flats, hear the notes of the scale and work against the
timer. A must for all music students.
KNOW YOUR STATES by James Keeling
32K ECB $19.95
High-res graphics portray each state for you to identify.
If you can't, try the "help" command where you can
see the state's position within the entire United
States. Choose the number of states you want to try
and see your score at the end.
©
Preschool Series 16K ECB by Joseph Kolar
$11.95 Ea. on Cassette $15.95 Ea on Disk
All 3 on disk - $38.95
Pre. §\ Clowns and Fishnum. 2 programs to reinforce
counting and number recognition.
Pre. #1 Countkid and Addpenny. 2 programs to help
with counting and beginning addition. More advanced
than Pre. #1.
Pre. #3 Alpha-Byte. 3 programs each covering a part of
the alphabet for letter recognition.
16K Eit.
$15.95
HEBREW BULLETIN BOARD
by Joseph Kolar
A utility that will enable YOU to create Hebrew or
Hebrew/English words, flash cards, sentences,
greeting urds, etc. in Ht-rtv Easy to lorn-full
documentation For hard copy, int your printer end
any screen print program.
THE WIZARD NOW SPEAKS
THE TALKING WIZARD 16k Ext. $13.95
A talking version of our popular WIZARD game. This is
a child sin (Eliza-Freud) type game. Input any ques-
tion and the WIZARD writes and now SPEAKS (through
the T.V. speaker) an amusing answer. Great for reading
practice or just plain tun.
voice by-Classical Coroutine Ire,
SPECIAL - CLOSEOUT of Creative Computing's never
released software for the CoCo. 2 Hi-Res machine
language, joystick controlled arcade style games.
PICNIC (escape spider, capture food), TRICKASHAY
(tank duel in a tricky maze). 1 or ? players, multi-level.
16K Ext. Both for an incredible $1 1 95
Software Review
Refreshing Trapfall Requires
Quick Thinking, Luck
Mention the words jungle survival to any soldier and his
face will usually register a considerable amount of distaste.
But now, thanks to Tom Mix Software and Ken Kalish, you
can feverishly work your way through a tough jungle survi-
val course without ever leaving the comfort of your compu-
ter room.
This program is similar in name and appearance to a
popular arcade game. You must maneuver your man over
the course running from screen to screen and avoiding
obstacles and dangers. The right joystick controls direction
and pressing the fire button makes your man jump. The
obstacles include pits into which you can fall, rolling logs,
ponds full of alligators, quicksand pits which appear and
disappear, snakes and, just to keep things nice and creepy,
scorpions in the underground caverns.
There's even the odd native campfire, its flames still flick-
ering. (Wonder what they've been cooking?!) Some of the
screens require you to jump to catch a swinging vine in order
to cross a hazard and, believe me, jumping at just the right
time is no small feat. It's particularly interesting when you
hit a stretch of three or so of these screens in a row. If you
time it just right, you get the feeling of swinging from vine to
vine.
The action is fast and furious and there is little time to stop
and catch your breath. Thankfully, our little "Indiana
Jones" never seems to get tired. He continues to run fast and
jump high no matter how breathless the player gets.
^S^^POOR MAN'S
FLOPPY
HIGH SPEED CASSETTE SYSTEM
Now for the TRS-80 Color Computer
The JPC PRODUCTS High Speed Cassette System, in operation
for over 4 years, is now available for all versions of the Radio
Shackâ„¢ Color Computer.
* TC-8C — Plugs directly into the expansion port of your
TRS-80 Color Computer. It is fully compatible with all
versions of the Color Computer from the standard 4K to
the Extended 32K.
• FAST — Twice the speed of the Color Computer System.
• RELIABLE — Less than one error in a million bits.
• SUPPORTS TWO DRIVES — Software selectable.
» ALL FILE TYPES — BASIC, machine language, data.
• MOTOR CONTROL — Two on-board relays.
• EPROM OPERATING SYSTEM
• SPARE EPROM SOCKET — 27 1 6 or 2732 compatible.
• OPTIONAL JBUG MONITOR — EPROM or Cassette
• 6809 Assembler • Memory modify and list
• 6809 Dis-assembler • Break point traps
• ASSEMBLED and TESTED
TC-8C SI 29 95 JBUG (EPROM) .... S34.95
JBUG (Cassette,
TERMS:
Cash. Master Card or Viw
Shipping & Handling S3 50|US)
S5.50 (Canada) SI 5.00
|Foreign| Technical
Inquiries: Phone
5:00 6:00 PM MST
529.95
Colors and animation are very good and control is
responsive. Scoring in Trapfall is a little different; you begin
the game with 2,000 points and a time allotment of 20
minutes to find as many treasures as you can. Being hit by
any of the rolling logs or falling into any of the pits costs you
points only. Sinking into quicksand, being eaten by alliga-
tors, being bitten by a snake or being stung by a scorpion
costs you a man, of which you have three. The only way to
score points is to find the treasures. My high score to date is
27,300 points in a game in which I found five or six treasures.
On screen scoring, display of the highest score in the
current session and number of men remaining are provided,
as well as a digital clock which counts down your time
remaining. I haven't as yet survived long enough to run out
of time, but I imagine things could get a little crazy if you
were trying to find one last treasure before time runs out
The sound effects are good and do not slow down play at all.
Documentation is only enough to get you started; it's up
to you to enter the jungle and discover its secrets on your
own — which, after all, is the way it should be.
One other thing about this program I like is that it is
entirely controllable with the joystick. After your last man
has sunk out of sight in a mire of quicksand, all you have to
do is press the fire button and you are at the title screen;
press it again and you arc off on a new game. This lets you sit
back in your favorite armchair and play game after game
without ever having to lean forward to press any keys after
each game. (Okay, so I'm a little lazy.)
Trapfall requires 1 6K and is written in machine language.
On a 16K machine you must do a CLEAR 8 in command
mode before loading the program, but this isn't necessary
with 32K.
I enjoy this game; it demands quick thinking and fast
reaction time. A little luck comes in handy also. The graph-
ics are very good and Trapfall is a refreshing change from
space ga mes. 1 think it would be a great addition to any game
library. This one is a must.
(Tom Mix Software, 3424 College N.E., Grand Rapids, MI
49505, $27.95 tape and $30.95 disk)
—David Johnson
About Your Subscription
Your copy of the RAINBOW is sent third class mail and,
for subscribers in the United States, the date of mailing is
printed on the label. If you do not receive your copy by the
25th of any month, send us a card and we will mail another
immediately via first class mail.
You must notify us of a new address when you move.
Notification should reach us no later than the 15th of the
month prior to the month in which you change your address.
Sorry, we cannot be responsible for sending another copy
when you fail to notify us.
Your mailing label also shows an "account number" and
the subscription expiration date. Please indicate this
account number when renewing or corresponding with us. It
will help us help you better and faster.
For Canadian and other non-U. S. subscribers, there may
be a mailing address shown that is different from our editor-
ial office address. Do not send any correspondence to that
mailing address. Send it to our editorial offices at P.O. Box
209, Prospect, KY 40059. This applies to everyone except
those whose subscriptions are through our distributor in
Australia.
188
the RAINBOW
August 1983
Dear Kids,
Last Thursday morning, I heard a terrific commotion
underneath the front porch — a howling and snorting and
scruffling around like you couldn't imagine. I crawled under
there, and lit a match. What do you think I saw? Dust every
which way, and dirt flying around. Ben's two hind legs
flapping backwards and his tail whipping back and forth
like crazy. I grabbed one of his legs and pulled backwards
until we both fell back into a bunch of legs and ears.
Clamped at the end of Ben's nose was a turtle. 1 pried the
turtle loose, Ben ran into the woods, and I took the poor
creature inside the house.
I had been thinking about turtle graphics, so I thought I'd
try it out for real. I spread a big sheet of paper on the floor,
tied a pen to the turtle, and let him loose. He struggled along
for a while in a straight line, and drew a straight line behind
him. Then I changed his direction, and he drew another
straight line. I changed his direction again, and he drew a
third straight line. 1 was hoping for a triangle, but got
something else. I put a new sheet of paper down, tried again,
but still no triangle. I put down a third sheet of paper, and
tried again with a little better luck. Well, that was entertain-
ing, but I realized why some of these people have been
putting turtles onto computers: a turtle without numbers
won't get you very far. Also, real turtles really are slow.
I went down to my Color Computer in the den, and
thought I would try triangles on that. I got the thing going,
pressed "R " which put me into the turtle's "run" room. Next,
I tried to reproduce what I had done with the turtle. First I
ran this (pressing ENTER after every line):
FD40
RT90
FD40
RT90
FD40
Next 1 ran this (having CLEAR'd the screen):
FD40
RT80
FD40
RT 190
FD40
NEW KODOMO-NO-GO
Get 5 in a row before your opponent. 19x19 playing
matrix. This isthefavorite relaxation gamefor JapaneseGo
players. Two-player version and 4 computer skill levels for
one player: also Tic-Tac-Toe on the same tape.
$19.95 32K Ext. Basic cassette only.
$14.95 16K Ext. Basic. Three skill levels plus Tic-Tac-Toe.
$ 8.95 16K Ext. Rasic Tic-Tac-Toe only.
ALSO CO-EXISTENCE
Successfully develop your country in a resource-limited
world. Form a world government, sign treaties, go to war:
anything goes. This is a two - to six - player game which
combines computer and board play (board and pieces
provided).
$24.95 16K Ext. Basic cassette only.
AND 5 EXCITING GAMES
Be a Cosmic Trash Collector, fight a mighty space battle, or
surround your opponent in Trap'em — all this and more on
one tape. The RAINBOW says, "Great fare for the family
with young children."
$15.95 16K Ext. Basic cassette.
P. 0. Box </OI6
Clierry Hill, XJ 08CW
August 1983
the RAINBOW
189
*** HfiPPY ANNIVERSARY ***
What!!! A â– with late, you say. Yk, I rtalize that
Rainbow's annivei-sary Mas last ionth, but this earth we're
celebrating POEAR W'S first anniversary. You see, it
Mas in the August 19fl£ Rainbow that tie placed our first
ad. find thanks to responses fron aany of youi we're still
hanging in there.
Therefore, until Sept. 7, just eention this ad or PCLEAR
8Ts anniversary and you' 11 receive a 10* discount on your
order and a coupon good toward your next order.
That's one snail way Me can say thank you for your
patronage.
»iniminn i niiim i iniiiiniminnnnniiimiimiin
-K--K--M- NEW *
minium iii i imH
•JULAJUULK JUUUUL Jt
111 ITVRI II R BUY
RAINBOW- WRITER *16K E.B.* (Rbow Conn.)
Outstanding new Screen Fonatter/Character
Benerator with eany features not found
anywhere else. $29.95 TAPE
FROGGER (Cornsoft) $19.95 TAPE
The official version—and a good one!
MS- GOBBLER (Spectral) $21.95 TAPE
(NQTE-WE'LL HAVE LANCER AND OTHER SPECTRAL
GAMES AS THEY BECOME AVAILABLE)
DEATH TRAP (Soft Sector Hkt.) $19.95 TAPE
This is a nice one! A refreshing change
fro* the arcade clones, Death Trap offers
a challenging fomat at an attractive price.
DEATH STAR (By Shell) $19.95 TAPE
"Recowended adventure... '-Rainbow Ragazine
[■HI WM M-MM »MWW If «H>» VMVWM »V ■■«
OLD FAVORITES
ItmimilHHHH II I IIIHIi mHIUHU HHHHH
ZAXXON #32K# (Data Soft) $39.95 TP OR DSK
ROBOTTACK (Intracolor) $24.95 TAPE
TRAP FALL (Toe Nix Software) $27.95 TAPE
THE FROG <To« Nix) $27.95 TAPE
THE KING *32K* (Toi Nix) $26.95 TAPE
COLORPEDE (Intracolor) $29.95 TAPE
KEYS OF WIZARD (Spectral) $19.95 TAPE
" " iiiiiiiin iu imiiiiiiiiiiiiH i m m HimiinnHH
BUSINESS UTILITIES
'ii'iiim iiiiiiHHit imiii i
CASS
DISK
CASS
CASS
TELEWRITER-64 (Cognitec)
T. I. M. S- f£.B.* (Sugar Software)
WORKS AVER (Platim* Software)
TAPE TO DISK (Toe Nix)
TAPE DUPE <To« Nix)
FIXER (Toe Nix-Disk E.B.)
CCEAD/STRIPPER <Eigen-E.B.) $13.95
i iiiiiiinumnni i n H um t iminiiimiiimimniMinii
$49.95
$59.95
$24.95
$35.M
$17.95
$21.95
$17.95
ALL PROGRAMS 16K NON-EXT. UNLESS NOTED
HE ALSO CARRY THE COLOR COMPUTER NABAZINE ($2.95 EA. )
CALL ABOUT 64K UPGRADES AND OTHER HARDWARE NODS.
SEND $.5« IN STAMPS OR COIN FOR YOUR CflTAlDS TODAY.
(REFUNDABLE WITH ORDER).
S PCUAft to fOffWAtf •
494 Cline Avenue
Mansfield, OH 44907
(419) 756-4873
Note: We also carry the RAINBOW
AddS2thippinooriord«nNjstman$SO Ptedtoadd
$2 for COO. Ohio ntsidvnti odd 5% statv soNn tax
Finally, I ran this:
FD40
RT 130
FD40
RT130
FD40
That last one was a triangle of sorts, although those extra
legs sticking out bothered me a little. I smoked my pipe and
thought that things might be easier to figure if I just tried
very carefully to make the simplest possible triangle: a trian-
gle with three equal sides and three equal angles.
Next, I thought this: "I've only been giving instructions
for two of the three angles, because the third is automatically
formed. But if I'm trying to draw a triangle of three equal
sides and three equal angles, I ought to define that third
angle — and then check out my guess by having the turtle
draw out an extra line from the third angle."
I tried the following:
FD60
RT110
FD60
RT110
FD60
It wasn't a triangle. "What do I learn from adding one
more angle and an extra, double-checking side?" I asked
myself.
RT 110
FD60
That fourth side that I just added should really be tracing
over the first side— if I had really drawn the triangle prop-
erly. Now it comes to me! Eureka! I know already that a
complete turn of the turtle is a 360-place, or position or
degree, turn. If that fourth side is supposed to be tracing the
firs I side, that means that by the time we get to that fourth
side, the turtle should have already gone in a 360 degree
turn. That means that, if the turtle is going to be making a
total of three turns (in a three-angled, or three-turned fig-
ure), the three turns should add up to 360— otherwise that
extra checking-up line won't overlap the first side. Let me try
using three turns worth 120 each and see what happens:
FD60
RT 120
FD60
RT 120
FD60
RT 120
That looks pretty good. Add the overlapping side just to
check (add another FD 60), and presto! It works. A quick
examination shows that this works no matter what the size
of the sides arc — so long as I keep them equal in length.
Well, that all makes sense. I already know that in order for
the turtle to spin around once and return to its original
position I have to tell it to spin 360 units of spin (or degrees),
that is, to "RT 360" or "LT 360." Maybe any closed figure of
any number of angles and sides would have to give me a total
of 360 degrees of turn. (Note: My spies tell me that this will
only be true of closed convex geometric figures— in other
words, as long as every time the turtle turns to make an
angle, it turns in the same direction, instead of meandering
this way and that all over the place.) That makes sense, too.
190
the RAINBOW August 1903
To test out my idea, I try a four-sided (equal-angled, equal-
sided) figure. First, to find the degrees of turn, I divide 360
by 4. That gives me 90. Then I choose sides of equal length.
FD50
LT90
FD50
LT90
FD50
LT90
FD50
1 add an extra "LT 90" and "FD 60"just to check everything,
and indeed it does work out. Next, I take the same principle,
and move onto more challenging territory. I try a ten-
angled, ten-sided figure — and start by figuring maybe the
degrees of turn should each be 360/10, or 36 each. Yes
indeed, it works (and works easily, if the sides are of equal
length).
I'm sure this all is old hat to most, maybe all of you—
especially you, Tad and Andrew! — but you have to re-
member that when I was in school it was a long time ago, and
I slept a lot. Anyhow, 1 was so proud of myself for figuring
these things out, I made the mistake of showing Bertha.
She's been speaking to me lately. "That's nice, but what are
your angles?" she asked. "Angles?" I asked back. "The inside
angles of your figures," she said. Having crushed my self-
confidence, she waddled away.
Back to the drawing board. I couldn't stretch my turtle
thinking any further right then, so 1 took out a pencil and
paper, and drew a equal-sided, equal-angled triangle. Next,
I thought about how my turtle was moving and what my
instructions for turning really meant. I came up with the
following:
RT120
RT120
RT120
Now, if 1 added together one inside angle with an angle of
"turtle turn," it came out to a total angle that was really like a
straight line.
&>
RT120
I seemed to have a vague memory somewhere near the back
of my head that an angle opening into a straight line was
represented by 180 degrees. I tried it out with the turtle, and
sure enough, 1 80 degrees made a straight line. That meant, it
seemed to me, that each of my inside angles on this triangle
would be 180 minus 120, or 60 degrees. Adding all three
inside angles together gave me a total of 180 degrees.
1 tried the same with a square. I figured out the inside
angles for a square and found them to be 90 degrees each, for
a total of 360. I tried the inside angles for a pentagon, and
found them to be 108 each, for a total of 540. 1 tried the
inside angles for the "ten-agon," found them to be 144 each,
for a total of 1440. To be truthful, that was about as interest-
ing as a dandelion to me. I couldn't really figure out any
particular meaning or pattern to that. I thought it was neat
that, whenever I wanted to draw a closed geometrical figure,
all I had to do was make sure the total turtle turns added up
to 360. But I didn't see that adding up the inside angles told
me much of anything. (Note: My spies tell me that Mr. Rick
Billstein has a nice article in the November 1982 issue of The
Computing Teacher on how the turtle can be used to do such
things, and also to prove a special formula for figuring out
sums of inside angles.)
Well, at that point, I quit and went back upstairs. I must
have been down in the den for about an hour, and 1 had
forgotten all about my poor little turtle in the living room.
When 1 got back upstairs, he had disappeared and left only a
trail (from the pen I had tied to him) that led into the kitchen
and behind the fridge. From there the trail disappeared.
With certainty, this is a mere coincidence — but two days
later I discovered that there were significant supplies missing
from the fridge. I've more to say, but it'll have to be next
time, I remain,
Uncle Bert
P.S. You can send your cards and letters to me in care of my
good friend Dale Peterson. Just address them like this:
Uncle Bert Peterson
the Rainbow
9529 U.S. Highway 42
P.O. Box 209
Prospect, KY 40059
Brings operating
temperature
to ambient,
regardless
of
accessory
load
• Reduces temperature
of ENTIRE computer . . .
not just the SAM chip
• Easy 1-minute installation
$39.95
Companion Keyboard Cover $7.95
Co Co Software
• Send For Free Catalog • For Fastest Service
Send Money Order Or Certified Check • Add
$2,00 Shipping Charge Per Order • Calif.
Residents Add 6 X A% Sales Tax • All Merchandise
Shipped From Stock •
L
REM Industries, Inc.
9420 "B"Lurline Ave., Chatsworth, CA 91311
(213)341-3719
August 1983 the RAINBOW
191
TURN OF THE SCREW
Build This
Parallel Printer Interface
By Tony DiStefano
Rainbow Contributing Editor
The Parallel Printer Interface is the first project that
will adapt to my Y-ER expansion card. After you
build this circuit, you will be able to use any parallel
printer that is Centronics compatible. This circuit uses one
MC682 1 PI A. The other two chips used are for decoding the
address bus to memory map the PIA from $FF70 to $FF73.
The PIA has two functions: 1) to check if the printer is busy
and 2) to transfer data to the printer. Bit of port A is used
to monitor if the printer is busy. All 8 bits of port Bare used
to transfer the data to the printer. The Control line CB2 is
used to strobe the data into the printer. The PIA is initialized
in such a way that CA2 auto strobes when a write to port B is
done. Refer to the Motorola MC6821 PIA data sheet for
more details on how a PIA works.
To put the circuit together is not too hard, but, like all
electronic projects, care should be taken in the process. The
circuit is shown in Figure 1. It consists of only three chips.
The shopping list below includes everything you need to
build the project. The first thing you must do is trim one side
of one of the connectors of the project board. I'll explain
why later. Look at Figure 2 to get the location of where to
cut the board. You have to remove three pads. Well, it is
actually six pads because there are three pads on each side.
Use a hacksaw to cut the board. Be careful not to cut or
scratch any of the other pads. Next, position Ihe IC sockets
as shown in Figure 2. Note the position of pin one on each
socket. They all go on the bottom and to the left. Position
them the same way. Solder all the pins on all of the sockets.
The next thing to do is to get the B-Plus and the B Minus
buses in. Turn the card upside down and locate the bus that
is parallel to position 5 written on the sides. That will be the
ground bus. I traced all the legs of the ground bus with a
black grease pencil. This makes finding a ground point
easier. The other bus, at location 33 on the sides, will be the
B-plus line. That's the 5-volt line. Use a red grease pencil to
mark it.
The rest of the soldering on this card will be made follow-
ing the schematic. Solder the wires one by one, and after
each connection is done, mark it on the schematic. This
(Tony DiStefano is well known as an early specialist in
Color Computer hardware projects. He is one of the
acknowledged experts on the "insides" of CoCo.)
Shopping List For The Parallel Printer Port
Quantity
Description
RS#(ifany)
1
PROJECT BOARD
276-163
1
40 pin IC socket
276-1996
2
16 pin IC socket
276-1998
1
74LS133
N/A
1
74LS138
N/A
1
MC6821
N/A
2
.01 uf CAP
272-1265
prevents you from trying to connect a wire twice or forget-
ting others. The small pads that point to the left on the
schematic mean that it goes to a pin on the Color Computer
cartridge side. The small pads that point to the right mean
that it goes on the printer connector side. Refer to Figure 2
to get the proper location of the pinout for both the compu-
ter side and the printer side. Note that pin 1 for the computer
side is the top of the upper pad and that pin 1 for the printer
side is the bottom lower pad. I did it that way because the
192
the RAINBOW August 1983
Figure 2
PRINTER SIDE
T
. - 1
1 ""
133
. ""
I ^ rin i* 3» (ui
COMPUTER SIDE
ribbon cable will sil properly in the connector. It will drop
downwards. After all the wiring is done, clean the board of
the flux residue. This can be done with flux remover, or
anything else that will remove the flux. Check your work
carefully and make sure there are no shorts or cold solder
joints. It would be wise to check the wiring once again.
Put the board aside for now, it's time to concentrate on
the printer ribbon cable. You have two choices: 1) buy one
from Radio Shack, or 2) make one yourself. The first choice
is simple; go to your nearest Radio Shack store and buy
printer cable #26-1401 . That is a 34-pin edge card to 36-pin
plug. It's for a Model 1/ III to standard parallel printer cable.
It will work perfectly. The second choice is a bit more work
but will cost you much less. You will need three parts.
1) 34-pin edge card to ribbon connector, RS # 276-1564.
2) 36-pin Centronics type connector, RS # N/ A.
3) 6 feet of 34-conductor ribbon wire, RS # N/ A.
Take one end of the ribbon wire and connect it to the
34-pin edge card connector. Procedures on how to connect a
ribbon wire to a connector are explained in last month's
issue in my Y'ER article. Now, the other end is a bit tricky.
There are 36 pins and only 34 wires. The last two arc not
used. When you put the ribbon and the connector together,
make sure that the first wire (pin 1 on the edge .card connec-
tor) meets with pin 1 on the Centronics connector. The last
two pins will be left empty. On the connector the empty pin
numbers are ft 36 and # 18. Then, press the connector in the
usual manner. This will give you a printer cable for about
half the price of one you would buy.
Okay, now you have the board and the connector. After
you are sure that both are constructed right, it's time to plug
it in. Now, the computer gives you the familiar logo, but
what do you do with it? It doesn't work, does it? You are
missing some software to hook it into basic. The machine
language program listed below will re-route the PRINT #-2
command to the parallel port. All you have to do to hook it
in is EXEC. When you type EXEC again, it will unhook
itself and PRINT #-2 will again go to the RS-232 port. Be
careful that you give it an ORG in the right place, and make
sure that you reserve enough memory, so you don't crash the
program. That's all there is to it!
The listing:
PAROL L Fl PRINTER ROUTINE
BY TONY DISTEFANO
0001
0E00
NAM
PPRINT
0002
0E00
[1RG
S7F00
00153
006K
FRNO
EQU
*6F
0004
00 9C
CRHOOfc
EQU
*9C
0005
0168
PRHODK
EQU
4168
0006
FF70
PI A
EQU
*FF70
0007
7F00
HFFF70
INIT
LDX
#PIA
PIA LOCATION
0008
7F03
4F
CLRA
000?
7F04
A701
STA
1 , X
DDR ACCESS A
0010
7F06
A703
STA
3, X
DDR ACCESS B
0011
7F08
A784
STA
0.X
ALL INPUT A
0012
7F0A
4C
INC A
0013
7F0B
979C
STA
CRHOOK
BASIC I DEO
0014
7F0D
86FF
LDA
tSFF
0f 15
7F0F
A702
STA
2, X
ALL OUTPUTS B
0016
7F11
A701
STA
1, X
CONTROL ACCESS
0017
7F13
S62C
LDA
#*2C
B+STROBE
00 IB
7F15
A 703
STA
3, X
CONTROL ACCESS
0019
7F17
BE0168
LDX
PRHQOK
0020
7F1A
10BE7F4&
1 DY
RETURN+1
0021
7F1E
BF7F40
STX
RETURN* 1
0022
7F21
10BF0168
STY .
PRHOOK
0023
7F25
39
RTS
0024
7F26
3102
PRINT
PSHB
A
PRINT DEVICE *
0025
7F2B
966F
LDA
PRND
0026
7F2A
Blf-t
CMFA
#*FE
TO PRINTER?
0027
7F2C
260F
BNE
NOGO
NOT PRINTER
0028
7F2E
B6FF70
PI
LDA
PIA
0029
7F31
B401
ANDA
#1
IS PRINTER
0030
7F33
26F9
BNE
PI
READY?
0031
7F35
3502
PULS
A
TO PRINTER
0032
7F37
B7FF72
STA
PIA+2
!< STROBE
0033
7F3A
3262
LEAS
2, S
60 BACK TO
0034
7F3C
39
RTG
CALLER
0035
7F3D
3502
NOGO
PULS
A
NOT FOR PRINTER
0036
7F3F
7E7F26
RETURN
J MP
PRINT
ADDRESS
0037
7F42
END
NO ERRORS
FOUND
CRHOOK 009C 0013
INIT
7F00
NOBO
7F
3D 0027
PI
7F
2E 0030
PIA
FF70 0007
01320 0032
PRHOQK 0168 0019
0022
PRINT 7F
26 0036
PRIMO
006F 0025
RETURN 7F
3F 0020
0021
/)R\
August 1983
the RAINBOW 193
EDUCATION OVERVIEW
Examining Some Educational
Uses Of The Color Computer
By Michael Plog, Ph.D.
When most people talk about educational uses of a
computer, two topics are mentioned more than
any other — interactive instructional use and teach-
ing basic. These are very important uses of microcomputers
in schools. Indeed, the basic language of the Color Compu-
ter is one of the most advanced I have seen. It is far superior
to the MBasic used in most minis, and anyone who has
programmed an Apple is relieved to get back to Extended
Color basic. For interactive instruction, the Color Compu-
ter is a powerful tool for classroom use. Students can have
lessons using color and graphics, as well as enough power
and speed for almost any type of application.
There are other uses of computers in education, however.
In our haste to have students get "hands on" experience with
machines, we should not ignore these other uses. It is my
contention that some of these other uses may prove more
worthwhile to students, teachers and administrators than
either interactive instruction or teaching about computers.
First, consider the development of materials for students.
The microcomputer is an ideal way to prepare materials
uniquely suited for individual students. Spelling words, for
example, can be used in work search puzzles or word sera m-
bles for elementary children. A more sophisticated use of the
Color Computer for materials development is to prepare
individual tests for students, including items missed on past
quizzes.
(Michael Flog received his Ph.D. degree from the
University of Illinois, the M.S. from Memphis State
University, and the B.S. from the University of Ten-
nessee. For his foreign I research language option
required for the doctorate, he naturally selected com-
puter language. Michael currently works for the Illi-
nois State Board of Education as a research and eva-
luation specialist.)
Another important use of a microcomputer, gainingpop-
ularity more in recent months, is management of instruc-
tion. For example, in a high school literature class, a micro-
computer is an ideal way of keeping track of books read by
students, and their scores on exams on each book. Teachers
can easily determine what gaps are present for each student,
"For interactive instruction, the
Color Computer is a powerful tool
for classroom use. Students can
have lessons using color and gra-
phics, as well as enough power and
speed for almost any type of appli-
cation. "
and design educational experiences to complete the course
of study. Management nf instruction also involves keeping
track of test scores and "modules" completed by students.
The major thing to remember is that computer assisted
instruction (CAI) is not the same as computer managed
instruction (CM I). When teachers use computer managed
instruction, students may never come near a machine.
Another possible use of microcomputers in schools is for
administrative management of information. The Color
Computer is not widely used in this field (to the best of my
knowledge), but certainly should be. The printing of class
194
the RAINBOW August 1983
lists, recording daily attendance, preparation of mailing lists
to parents, keeping financial records, information about
substitute teachers, arc all examples of ways administrators
can use microcomputers. The list of uses here is only limited
by the imagination and time available to administrators. I
even know of some schools that prepare their schedules
(what students will be enrolled in which classes) on a micro-
computer. The program has to run overnight, but that time
is a vast savings compared with older, manual ways of
preparing a schedule, or buying time on a mainframe.
One use of microcomputers, data exchange, appears to be
a high interest topic currently. Some schools have a bulletin
board service run out of the computer laboratory — designed
and operated by students. On a different level (of more
immediate importance to school districts, although not stu-
dents) electronic mail can be a valuable aid to school people.
When a student transfers from one school to another, for
example, complete records can be only a telephone call
away. The use of electronic mail has other possibilities for
educators. When a piece of legislation is being discussed i n a
state (or even federal) congress, educators can learn of the
debates, contact their elected officials, and lobby for their
interest. All this can be done in a matter of hours, using
electronic mail. In an effort to save time and money, the
state of New Jersey is currently testing a system whereby
school districts report to the state office via telephone and
modem. This example of data exchange may well prove the
most financially beneficial use of microcomputers in
schools.
There are other uses of microcomputers in education; I
have not attempted to exhaust the possibilities, just to class-
ify some major topics. Uses of hardware, for example, could
be very important for students with physical disabilities. The
day is not too distant when blind students will be able to read
teacher developed materials on a brailled computer output.
(There are experiments in the field today, but they are still
expensive and rare.) With a speech synthesizers, mute child-
ren can use their own microcomputers to actually talk with
their peers.
Instead of going on about possible uses, let us stop for a
moment and regroup. Future articles will present more
detailed examples of each of the uses noted briefly above.
Right now, however, let me pose a question to you: What is
the greatest problem of microcomputer use in education?
No, it is not availability of hardware. The price of the
Color Computer is continuing to drop, especially with local
Radio Shack monthly sales and educational discounts.
Schools can find the money for the purchase of a few
machines. The greatest problem is knowledge about quality
software available for schools. Now note — I said knowledge
about quality software, not the existence of quality soft-
ware. 1 will bet dollars to doughnuts that every reader has
purchased a program and felt they were the victim of fraud.
Likewise, every reader has purchased a program and been
willing to pay twice the price because of the value received.
The problem is knowing the difference before purchasing.
Well, 1 am going to suggest a potential solution to this
problem next month. Please tune in and read the article,
because I will need your help. By the way, next month's issue
of the Rainbow is devoted to education and the Color
Computer! Should be interesting.
As a final shot, if you have an experience or thought to
share about microcomputers in education (especially, but
not limited to, the Color Computer), please write me. I
would very much like to know your views and ideas. My
address is 829 Evergreen, Chatham, Illinois 62629.
Find The
COLOR COMPUTER INFORMATION
YOU NEED
COLOR COMPUTER INDEX O
COLOR COMPUTER CATALOG ©
American Library and Information Services
Dept. R. 3705 Mary Ellen NE, Albuquerque, NM 87111
Gentlemen:
D Yes! Send me COLOR COMPUTER INDEX 1980-1981 at $5 (Canada and Mexico $6)
â–¡ Yes! Sign me up for COLOR COMPUTER INDEX 1982 (4 issues) for $16 (Canada and Mexico S20)
â–¡ Yes! Sign me up for COLOR COMPUTER CATALOG 1982 (two issues) for S20 (Canada and Mexico $24)
D YES! Sign me up for Color Computer Index 1983 (Six issues for $24— Canada & Mexico $30)
□ YES! Sign me up for Color Computer Index 1983 (Two issues for $20— Canada & Mexico $24)
Single Issues:
Color Computer Index $6 U.S. (Except 1980-1981)
Color Computer Catalog $12 U.S.
Name _
Address .
City _
State
Zip
August 1983 the RAINBOW 195
The Powerful QSort Routine
Comes To The Color Computer
Part Two
By Colin J. Stearman
This two part article brings to the Color Computer a fast and versatile number and
string sorting routine. In addition, we will explore the way numbers and strings are
represented by Microsoft BASIC.
Colin Stearman's Quicksort program for the Color Compu-
ter should not be confused with a similar program of the
same name available commercially through Skyline Market-
ing. Their ad appears in this issue of the Rainbow.
In the last issue we looked at Quicksort implemented in
BASIC. Now we will look at a machine code version
which offers significant speed and flexibility while
occupying around 1 .5K of memory space. The program is
written in Position Independent Code or PIC for short. 1 his
means it will work correctly no matter where it is loaded in
memory. Although this adds somewhatto its overall length,
it provides the ability to append it to a BASIC program using
one of the many previously described techniques. The
assembly was performed at address E00 (hexadecimal) as
this is the normal starting address of graphic screen 1 when
running Disk Extended Color BASIC.
Design Considerations
As I mentioned in the previous installment, the Quicksort
implementation by Don Brumm for the TRS-80 Model I
was my model for the Color Computer version. However, it
used a technique which had some problems when transfered
to the Color Computer. Instead of actually sorting the array
in question, Don chose to sort an index array of integers.
Then this array could be used to access the "sorted" array.
By this technique the subscript of the 10th element in the
"sorted" array is the value of the 10th clement in the integer
array. By using the one level indirection, it was not necessary
tn actually rearrange the original array.
The problem with this approach is that the Color Compu-
ter docs not have integer arrays. All number arrays are
floating point, and as I described ea rlier, each number takes
up five bytes of memory. So if we wished to sort an array of
4096 elements, the index array would also have to contain
40 96 elements. This alone would take up 4096 x 5 bytes, plus
(Mr. Stearman is Field Engineering Manager for Bos-
ton Digital Corp., a manufacturer of precision,
computer-controlled milling machines. He was born
and educated in England and has lived in the US A
since 1970.)
seven more for the array header. This is 20487 bytes! Hardly
a practical proposition in a 32K system. If integer arrays had
been possible, the index array would only occupy 8192
bytes. So the first design decision was obvious. We would
have to sort the array itself.
At the outset, we set some goals which the sort must
achieve. To refresh your memory they were:
•Sort string or number arrays
•Sort in ascending or descending order
•Sort a part of an array only
• Have good call error checking
•Sort 1 or 2 dimensioned arrays
•Include or exclude 2nd dimension in sort
•Sort cither 1st or 2nd dimension
This flexibility calls for a method of communication be-
tween BASIC program using the routine, and the routine
itself. Don Brumm used the index array for this, so we might
as well use a similar system. Because we will not be using the
array as an index array, however, let's call it a parameter
array. This array will contain data on how to conduct the
sort. This information will tell the routine which subscript to
start the sort at; which one to end on; the order; the array to
sort; and, if a string sort, which elements of each string to use
for comparison purposes. The first element of the parameter
array is then pointed to by the VARPTR function in the call
routine.
Call Error Checking
This only leaves the call error checking. The BASIC line
which calls the routine is in the form "X=USR(n)." The
variable "X" can be given a value by the machine code
routine. This variable is used to return a value which des-
cribes the success or failure of the call, and the nature of the
problem, if any. If the variable has the value zero, the sort
was successful. Any other value indicates a problem. The
codes and their meanings are:
SORTED WITHOUT ERROR
196
the RAINBOW August 1983
PfiOGRAm/T0ft€
Summer CoCo Satisfaction
PftOGftAm/TOM
SPACE
SHUnLE
from Tom M/>
Take the astronauts seat and get the real feeling of space
tllgtlt! Full instrumentation with radar, altimeter, air opeed,
horizon, fuel gauge and more on the control panel. Actual
simulation from blast off to landing. Requires extended ba-
25322 32K Tape $2*95 $24.61
SALE 15% OFF TIL AUG 31 ^
*|0
WICO COMMAND
CONTROL JOYSTICK
The ulimate in one-hand control. The bat handle grip fits
comfortably in your hand and offers smooth, quick
8-position movement Two fire buttons, one on the handle,
the other on the base, make this a most versatile unit. And
the rugged, compact base gives you a feeling of total con-
trol, while the 4 rubber grip pads make it ideal for table-top.
Yet it's lightweight enough for hours of comfortable hand-
hold action. Most important, there's WICO's 6-leaf switch
assembly — the key to a new dimension of arcade re-
sponse and control.
With appropriate WICO
adaptor will interface with
Radio Shack TRS80
Color Computer.
38483 $29.95
WICO COMMAND
CONTROL ADAPTORS
One adaptor connects two
joysticks.
Radio Shack TRSSO
Color Computer
Adaptor
34243
$17.95 each
WICO COMMAND
CONTROL JOYSTICK
EXTENSION CORDS
For use with all Command Control joysticks and adaptors
allow you to move freely about as you play your favorite
games.
36223 Six Foot Length, $4.95
41296 Twelve Foot Length $7.95
THE KING
from Tom Mix
How high can you climb? Use the practice game to test
your skills. Become an expert at this arcade-style game
filled with exciting sound and realistic action. For 1 or 2
players. There are 4 screens: barrels, pins, jacks and con-
veyors Reach the hammer if you're fast and strong.
43029 32K Tape $2fe9S $22.91
Sale 15% Off
til Aug. 31
S*A* V
ZAXXON
from DaloSoft
The official Zaxxon now for home use, combines 3 dimen-
sional effects, unique color graphics and realistic sound
effects. Arcade action while you maneuver your ship
through a battlefield of enemy missiles, tanks and planes
to meet your match in the deadly Zaxxon Robot armed with
a lethal homing device.
35963 32K Tape or
Disk $39.95
h
MAZE ESCAPE
by David Rgge
from Spectral Associates
Amazing new graphic adventure. Prepaie to fire upon the
randomly appearing ghost as you work your way through
levels of mazes. You'll be challenged by a new game every
time you play! Requires extended basic.
29191 32K
Tape $12.95
CUBIX
from Spectral Associates
New full featured arcade quality game that has multiple
mazes. Bounce your man through tho cube maze avoiding
the snake and tumbling balls. Joystick is required for this
fast-action HI-RES game with super sound.
Tape$l7r95$15.26
Disk$2*9T$18.66
Sale 15% Off til Aug. 31
EARLY
GAMES
by John Paulson from Early Gomes Co.
Nine, colorful, non-aggressive, interactive games develop
basic skills and creativity as they entertain young children
2Vi to 6 years old. Includes numbers, letters, shapes, and
names plus a drawing option. No adult assistance needed!
34300 16K Tape/Disk $29.95
ARMADILLO BUG
MACHINE LANGUAGE
MONITOR
from Armadillo International Software
Enter machine language programs without alot of time
consuming "pokes." Excellent system for beginners to
learn to write and debug programs. Includes memory ex-
amine and change, move, punch, load, fill commands and
ntoie!
37303 16K Tape $14.95
SUPER "COLOR"
DATABASE
by Dan Nelson
from Nelson Software Systems
Use this multipurpose information management program
for inventory, accounts, investments, mailing lists,
budgets, tax records, family histories and more! Features
memory-sense for16-G4K, You can sort, search, compute,
save records and print. Perfect to keep track of all your
data!
Disk $79.95
ASSEMBLY
LANGUAGE
GRAPHICS
by Don Inmnn and Kurtlnman
from Reston Books
Improve your skills! Create graphical data displays after
reading these revealing applications using sound and
graphics to show you what can be done with an assembler.
A complete guidebook to assembly language programm-
ing on the Color Computer.
42556 $14.95
The Program Store
NOW OPEN IN
Greensburg, PA
Business
District
Sheraton
Route 30
Westmoreland
Mall*
Rte. 30 East Greensburg, PA 1 5601
(412)838-1604
J
Over 2500 Programs for TRS-80,
Visit our other stores:
829 Bethel Rd., Columbus, OH
Seven Corners Center, Fall Church, VA
W. Bell Plaza, 6600 Security Blvd., Baltimore, MD
White Flint Mall, Rockville Pike, Rockville, MD
Harvard Square, 13 Dunster St., Cambridge, MA
Westmoreland Mall, Rte. 30 East, Greensburg, PA
Coming soon to Philadelphia
T.M.
PftOGRRfll STORE
Franchise openings available in selected cities
For Information Call
202-363-9797
ATARI 400/800, APPLE, IBM & VIC 20
To Order Call Toil-Free
800-424-2738
MAIL ORDERS: Send check or MO. for total pur-
chase price, plus $2 00 postage & handling. VA.: add sales |
tax. Charge cards; Include all embossed information.
© 1983 The Program Store, Inc.
r
THE PROGRAM STORE
Item Tape/Disk/Book
Dept.
24-08-3
• Box 9582 • 4200 Wisconsin Avenue,
N.W.-
Washii
igt
on, D.C.
Price
Postage $2.00
Tntal
â–¡ CHECK â–¡ VISA
D MASTERCARD
Computer—..
Arlrlrpqs
]
City
r a rrl#
.State
-Zip
_Exp
PARAMETER ARRAY NAME ERROR. This
array must be called "I" or "I*", where"* "can be any
letter.
PARAMETER ARRAY DIM ERROR. Parameter
array must be unidimensional.
PARAMETER ARRAY NOT NUMERIC. Par-
ameter array cannot be a string array.
PASSED NO. OF ELEMENTS>4096 OR 0. You
can sort an array longer than 4096 elements, but you
can only sort 4096 elements of it at a time.
INSUFFICIENT DATA IN PARAMETER
ARRAY. You must define elements 1 and 2 as a
minimum.
ERROR IN 1(3) VALUE (0 THROUGH 3 ONLY).
This selects the dimensions in two dimension array
sorts, and has only these four legal values.
SORT ARRAY NAME ERROR. The sort array
must be named "A" or "A*" for numeric, or "A$" or
"A*$" for strings. "*" is any letter.
SORT ARRAY DIM ERROR. Sort array must be
uniriimensioned, or two dimensioned, with the sec-
ond dimension a 1 .
INCONSISTENT SORT ARRAY SIZE. Sort array
dimension is not consistent with values given param-
eter array, elements and 1.
I (3) VALUE INCONSISTENT WITH NO. OF
SORT ARRAY DIMENSIONS. You cannot use
one through three if the sort array is unidimensional.
By inspecting the returned value it should be possible to
debug most of the difficulties calling the routine.
10
The Assembly Language Version
I do not propose to "walk" you through the program
shown in I listing 3 . It would consume far too much space on
these pages, and I suspect also consume far too much of your
patience! I have tried to comment the assembly listing so
that those curious amongst you ca n see how it was done. The
program itself breaks down into various sections. First data
space is reserved and a particularly useful macro is defined.
Following this is the mainline of the program. Notice it is
not very long and represents the whole program. Mostly it
consists of calls to other subroutines. Closer inspection will
reveal the general flow of the program.
The subroutines which follow perform these general
functions:
GETNUM — uses a subroutine in basic to convert a
floating point number to a 16 bit integer.
INTRL — the reverse of GETNUM.
IN1T — does all the initialization and call error checking.
ARKCHK — is used by INIT to check an array's header.
GETPTR — returns the address of an element in an array,
given its subscript.
UNSTCK — gets the partition data from the stack to sort
next.
LSCAN and RSCAN — scan the current partition from
left and right respectively, for matches to the com-
parand.
SWAP — exchanges elements found by LSCAN and
RSCAN.
RGTSTK and LFTSTK — stack the right and left parti-
tion data respectively, for later sorting.
I
EPROM BURNER/ROM EMULATOR
FOR YOUR COLOR COMPUTER
The ProtoEPROM-CC from Prototech,
Inc. will program and run 2716, 2732,
and 2732 A EPRQMs. With the built-in
4K of RAM you can create and debug
your own program pack software, then
copy it into EPROM. Plug the disk (or
program pack) into the expansion port
of the ProtoEPROM-CC to save or load
EPROM images on disk. Both RAM and
EPROM are programmable directly from
BASIC or from assembly language. The
ProtoEPROM-CC plugs in to your Color
Computer ROM slot and is completely
powered by the Color Computer.
$149.95
BBBBBBnBHilEi^^^^
— • - .
PROTOTECH, INC.
P. O. Box 12104
Boulder, CO 80303
(303M47-9883
ProtoEPROM-CC
198
the RAINBOW August 1983
Sale — Sale — Sale
FOR~SMhLl children
OR I lie* V i -^UHwL l
IMPAIRED
1 23456789© 1 £34567896 1 â–
ABCDEFGH IFKLMMCPQRSTU
VWHYZabcdefghijklMnop
■;,-.=,-». .'■."■' ■■■■':'Zl
v,r r -„ , -..
^'s&
Si
#«i#^.
%fei?S
#^* ; p>. â–
â– dtn
imnmm:^ - : ---00':ii^-- fit "M
'- "J"
^^'^"^^^i^MMi^^
».«— T *
: !Ss : SS"iiP»^^
.
. "* 5*. M
£>
-- ^/^ ,
i ». •„ -i a
SOLUTION ON CARTRIDGE
The cartridge version of THE SOLUTION has all of the
features of the tape version and more. It works with all
of the graphic modes (including 4 colors). It includes a
51 characters per line feature and the ability to define a
text window on the screen. All of this and much more
at the low price of — $34.95
ROM-PAKS $9A5 $ 7.50
This is an empty Rom-Pak with a PC board. It will hold
either a 2716, 2732 or a 2764. The case looks very simi-
lar to Radio Shack's Rom-Pak. Comes complete with
instructions.
CUSTOM PROGRAMING
We will put your program in a Rom-Pak for you for a
very reasonable fee. The program can be either Basic
or machine language. Prices start at $19.95 for pro-
grams up to 4K in length. $29.95 for programs up to 8K.
Volume discounts are available. Send for a free sub-
mittal form.
v t ' P _ 1 - 4
r an tariff
•
t
j
SCRIPTFX $&95 $ 4.95
Are you tired of the upper case display of Color Scrip-
sit? Well then SCRIPTFX is for you. This is a program
which converts the display of Color Scripsit over to a
real display of upper and lower case letters with des-
cenders. The program allows all of the features of
Scripsit to function and comes with a money back
guarantee if It does not work. Please specify machine
type when ordering. Extended Basic is not required.
SUPER PILOT $&& $ 7.95
An enhanced version of Pilot for use with Extended Basic.
Includes features for math, graphics, and sound. Has a
feature that makes it easy to create flash card type drill
programs. Programs are pseudo compiled for faster
execution. Comes with as 24 page tutorial manual and demo
programs. Sample program included on tape to get you
started.
All programs for 16K, 32K Extended Basic machines unless
otherwise noted. All programs on cassette. Add $4.00 per
order for disk.
DISCOUNT — order 10 or more programs {you may mix
types) and you will receive a 30% discount on the order.
Dealer discounts are also available.
SNAKE MOUNTAIN SOFTWARE
P.O. BOX 5722
RALEIGH, NC 27650
919-828-6669
24 hour phone COD ordering service.
you made the right choice when you purchased a
Color Computer. It is a very powerful machine.
However the standard display format does not do the
machine justice. The machine is capable of much more than
16 lines of 32 all capital characters. Now you can give your
Color Computer the display it deserves. THE SOLUTION
gives the Color Computer a much better display than it nor-
mally has, and really makes the machine shine. Its features
include:
• provides a screen of 42 characters by 21 lines displayed
• linked directly to basic — program is transparent to the
user
• prints all 96 ASCII characters, lowercase characters
have descenders, has a slashed zero to avoid
confusion when programing
• prints characters on any two-color graphic screen
• graphics and text may be intermixed on the same screen
• special mode with 4 lines of text at the bottom of the
screen (just like some other famous color machines) —
great for working with graphics
• large character mode for small children or the visually
impaired
• character set may be reversed
• written in machine language, program is relocatable
• fast — prints at over 600 characters per second
• works with both cassette and disk
• includes a 20 page manual with demo programs (a lunar
lander program is included)
SOLUTION >»*35 $14.95
EXTENDER $ X95 $ 4.95
Still want more than 42 characters per line from your
computer. Then the EXTENDER is for you. This program
when used with THE SOLUTION will give a display of 51
characters per line by 21 lines displayed. Please include your
program serial number when ordering.
GRAPH LABEL $&$S $ 5.95
Have you ever wanted to place characters on a graphic
screen but couldn't find an easy way to do it. Well then
GRAPH LABEL is for you. This program will enable you to
place characters anywhere on a graphic screen. It will place
any of 96 ASCI I characters on the screen or you may create
your own characters. It features a cursor that may be moved
anywhere around the screen with out rubbing out what it
goes over. Superscripts and subscripts may be used since
the cursor may be moved vertically and horizontally in steps
as small as one pixel. Lowercase characters have descend-
ers. GRAPH LABEL is written in Basic and is therefore easy
to modify. It may be used by itself or as a subroutine.
SCREEN PRINT PACKAGE $&SS $ 5.95
A package of 2 programs for use with the LPVII, LPVIII,
DMP100, DMP200. DMP400, DMP500. The programs will
print an image of what is on a graphic screen to the printer.
Both programs work with all the standard PMODEs, The
programs^ are written in machine language and may be
moved anywhere in memory. The two programs are:
1) SCREEN PRINT — will produce a regular size print. The
image may be located anywhere on a page.
2) DOUBLE SIZE SCREEN PRINT — this program will
produce a full size imago that will fill up a sheet of paper. The
finished product is 8 by 6.5 inches in size. Your computer
graphics look really good when they are printed out with this
program.
SHIPPING — add $2.00 for orders less than $20.00. Shipping
is free on orders of more than $20.00.
Canadians — please send money orders only.
All orders shipped within 5 working days.
PARTSZ — checks the two resulting partition sizes for
relative size, to decide which to stack.
RNDCMP extracts a random element from the cur-
rent partition to become the comparand.
RANDOM — - is used by RNDCMP to get a random
number. It uses Basic's random number generator
routine.
COMPAR — performs the actual comparison between
the selected element and the comparand.
CMPNUM - is used by COMPAR to compare numeric
array elements.
CMPSTR — is used by COMPAR to compare string
array elements.
EZSORT — is a complete implementation of the simple
sorting procedure.
With this information you should be able to understand the
detailed operation of the program.
Using QSORT
listing 1 shows the test routine I used to check QSORT
for "bugs." It is designed for Color Computers with 32K,
Extended BASIC and a disk. If you do not have disks, line 20
can be changed to CLO ADM to get the QSORTrout'me off
a cassette. It assumes that QSOR Tis located at the assembly
"Quicksort . . . offers significant speed
and flexibility while occupying around
J.5K of memory space. "
address of E00 (HEX). The actual starting address of the
routine is 4E (HEX) beyond the load point. When loaded at
E00 the starting address would be F4E.
It is designed to sort a random array of numbers, but can
be simply modified to demonstrate string sorting. The key
lines are as follows:
50 DIM A(999),I(2),B(3)
A is the numeric array being sorted. I is the parameter
array. B holds the timer values.
140I(0)=0:I(1)=K9:I(2)=VARPTR(A(0))
1(0) defines the lowest subscript to start the sort on,
1(1) the highest. 1(2) uses VARPTR to point to the
address of the zeroth element of the sorted array.
170 X = USR(VARPTR(I(0)))
calls QSOR ^jumping to the address defined in line 40.
The argument uses VARPTR to point to the zeroth
element of the parameter array. The variable X will
contain the call status value and is checked on the
following line. Note thai X was predefined on line 90.
If it was being defined for the first time on line 170 the
value returned by VARPTR to 1(2) on line 140 would
no longer be correct.
Listing 2 shows a more complex call to QSORT. It is
designed to provide an alphabetic directory of the selected
disk drive floppy. After extracting the file names from the
directory track it sorts them first by file type, then by name.
The important lines to note are:
20 DIM AX$(63),I(7)
AX$ is the string array to be sorted. Allowing a second
letter for the string array name permits a program to
sort several arrays. I is the parameter array.
35 RC=0
preassigns the calling variable.
190I(0)=0
begins the sort with element zero.
195 I(1)=R-1
determines the last element to sort. This ensures
higher, but blank, elements stay where they are.
200 1(2) = VARPTR(AX$(0))
points to the array to be sorted.
205 1(4)= 1 0: 1(5)= 1 2: 1(6)= 1 : 1(7)=8
says first sort by elements 10 through 12, then by
elements 1 through 8. This gets the result in file type
order first, then by file name. 1(3) is undefined and
hence zero.
220 RC=USR(VARPTR(I(0)))
calls the QSORT routine and points to the parameter
array.
Exact Calling Requirements
Now we've looked at a couple of calling examples, let's
define the exact requirements in general terms.
First the sorting array must be a one or two letter named
string or number array with the first letter an "A." It must be
unidimensional, or two dimensional with the second dimen-
sion set to one. It can be over 4096 elements on size, but only
4096 elements can be sorted at one time.
The parameter array must be numeric and have at least
three elements. It must have a name of one or two letters,
starting with an "I." It must have enough elements to handle
all the desired data to be given to the QSORT routine.
Now let's look at the parameter array itself. Elements zero
and one describe the subscript range on which to sort. If the
zeroth element is lower than the first, the sort is ascending.
Otherwise it will be descending.
Element two points to the zeroth element of the sorted
array using the function VARPTR. If it is a two dimensional
array, it must point to the (0,0) element. For example
I(2)=VARPTR(AZ(0,0)).
The third element is always zero for unidimensional sort
arrays. If the sort array is two dimensional, this element
determines which elements in the array are sorted and
moved. The effect of variable 1(3) is as follows:
I(3)=0 Sort (n,0), Leave (n,l)
I(3)=l Sort (n,0), Move (n,l)
I(3)=2 Sort (n,l), Leave (n,0)
I(3)=3 Sort (n,l), Move (n,0)
The virtue of making 1(3) equal to 1 and 3 is that a group
of data from a larger group can be sorted along with a
pointer to the rest of the data. For example, the sorted array
could contain names, with the second dimension pointing to
the record number of the associated addresses.
The remaining subscripts of the parameter array deter-
mine string element order for sorting purposes. They should
be considered in pairs, as defining the character range and
priority when sorting string arrays. With numeric arrays
200
the RAINBOW August 198a
^pfipl
!■'■■■•■■•£ fJHs&'Fl"^ | Ji-*|-S -*t|-»l *
y^rrgj^l^jl^
Buy a Disk Drive for your COCO
that's better and saves you money /
CasO Mp^P pillfmr Supply $54.$$ *' * « - ;. *j : , r
Owa/ C#&* m& Power Supply $$4.95 h
â– J^y::V^^y.:^Q^]^fi^-KSi^iy^:.v.. •■: â– . ^' : '• ■• ?I::v . . . :â– ' : : • ;:.;..' i.t :: .V-" : ': : ' ' : .. v..; ..'â– '"• r' ' .: -'â– ''â– 'â– 'â– .'•'" •'. : -. ; ....' : : . : : - : â– â– â– 'â– â– 'â– â– â– y •:.. ; : : '•'■•'â–
liiiii^li^62iiil
Printers- Modems- Monitors- and More
liM tsitr u/Affc Una te%r nr//*A niirxti
COMPUKIT
16206D Hickory Knoll Houston, Texas 77059
P.O.Box 306 Kemah, Texas 77565
1-800-231-6671
1-713-480-6000
they have no significance. If undefined, the comparison of
strings will be made across the whole string starting at the
leftmost character. Undefined means that the "I" array is
dimensioned so that the subscript in question is outside the
array bounds. This is not the same as defining it as zero.
However, by defining the values, the comparison order
can be changed. For example, if element seven is set to 3 and
the remainder undefined, comparison will start at character
3 of the string and continue to the end. Characters 1 and 2
will not be considered. If element eight is defined as 10, only
characters 3 through 10 will be considered in the compari-
son, with all others ignored. If element nine is defined as 20
"It is slightly slower than Don
Brumm's Model I version, sorting
1000 strings in 16 seconds (but) . . . a
few seconds is well worth trading in for
the increased power the various sort-
ing modes offer. "
and |0 as 30, then after considering characters 3 through 10,
characters 1 through 20 will be further considered when the
comparison is made. Using this technique, the order of
character comparison can be controlled. If the second ele-
ment of a definition pair is undefined, then the end of the
string is assumed.
The minimum acceptable call to QSORT is when the
parameter array is dimensioned 1(2) and when 1(1) is set to
the number of the last element to sort, and 1(2) is set to point
to the array to sort. This assumes that 1(0) is left at its
initialized value of zero.
QSORT Performance
Running the program in listing 1 will give an indication of
the kind of performance you can expect from QSORT. By
all accounts it is fast. The time from one run to the next
varies slightly. This is due to the random selection of the compar-
and.
Sometimes it more often hits a near median value, and the
sizes of the resulting sub-partitions are more nearly equal.
However, it rarely varies that much, indicating the validity
of a random comparand selection.
It is slightly slower than Don Brumm's model 1 version,
sorting 1000 strings in 16 seconds. Sorting 3000 strings will
take about 45 seconds. When numeric arrays are sorted,
1000 numbers take about 8 seconds and 3000 numbers about
23 seconds. The decreased performance for string sorts is the
price paid for a significant increase in the flexibility of the
routine. A few seconds is well worth trading in for the
increased power the various sorting modes offer.
In Summary
Besides providing you with a useful, fast and versatile
sorting routine, this article should have provided you with
an insight into how to go about writing routines in assembly
language. Initial implementation in BASIC ensures that the
concept is fully understood, before digging into the machine
code. Also it should give you a feel for the power of the
MC6809 microprocessor at the heart of the Color Compu-
ter. This powerful 8 bit computer has many 16 bit instruc-
tions, many of which have been used in this routine.
If you want this utility in your collection but are daunted
by the typing, or lack of an assembler, I would be happy to
provide a copy to you. Just send a check or money order for
$6, plus a blank cassette or floppy disk (5.25 inch) to Colin J.
Stearman, 143 Ash Street, Hopkinton, MA01748. 1 will put
on it a copy of the source listing along with a binary file of
QSORT.
Listing 1:
10 GOTO3S0
20 LOADM" QSORT"
30 CLS: CLEAR 2000
40 DEFU5R=&HE4E
50 DIM A<999),M2>,B(3>
60 TIMER=0
70 FOR K9=199 TO 999 STEP 200
80 PRINTS448, "BUILDING ARRAY"
90 X-0:B<0)=TIMER
100 FOR J=K9-199 TO K9
110 A(J)=RND<5000)-2500
120 PR I NTS64, "ELEMENT #"S J;
130 NEXT J
140 I(0)=0:l<l>=K9:K2)-VARPTR(A
(0))
150 PR I NTS448, "SORTING ARRAY"
160 B<1)=TIMER
170 X=USR<VARPTR<I<0))>
180 IF X>0 THEN PR I NT "ERROR CODE
=";X:STOP
190 PR I NT@448, "VERIFYING ARRAY"
200 B(2)=TIMER
210 FOR J=0 TO K9-1
220 IF A(J)>A(J+1) THENPRINTJ;A(
J);a(J+d:stop
230 NEXT J
240 B(3>=TIMER
250 PR I NTS 132, "SORT OF "5K9+1;"
ELEMENTS"
260 PRINTUSING"ARRAY BUILD START
MAS ###.##" ;B(0)/60
270 PRINTUSING" END
MAS ###.##"$B(l>/60
280 PRINTUSING "SORT ENDED AT
###.##" 5 B<2)/60
290 PRINTUSING "VERIFY ENDED AT -
###.##" ;B<3)/60
300 PRINTUSING "SORTING TIME WAS
###.##" J (B(2)-B(l))/60
310 print:print
320 TTL=TTL+<(B(2)-B(l))/60)
330 NEXT K9
340 PRINTUSING "TOTAL SORT TIME -
###.##" ;TTL
350 PRINT@448, "TEST COMPLETE."
360 INPUT"AGAIN <Y/N>"sR*
370 IF R*="Y"THEN RUN 30 ELSE E
ND
380 PCLEAR2:GOTO20
202
the RAINBOW August 1983
the Color Computer Word Processor
3 display formats: 51/64/85
columns x 24 lines
True lower case characters
User-friendly full-screen
editor
Right justification
Easy hyphenation
Drives any printer
Embedded format and
control codes
Runs in 16K, 32K, or 64K
Menu-driven disk and
cassette I/O
No hardware modifications
required
THE ORIGINAL
Simply stated, Telewriter is the most powerful
word processor you can buy for the TRS-80
Color Computer. The original Telewriter has
received rave reviews in every major Color
Computer and TRS-80 magazine, as well as
enthusiastic praise from thousands of satisfied
owners. And rightly so.
The standard Color Computer display of 32
characters by 16 lines without lower case is
simply inadequate for serious word processing.
The checkerboard letters and tiny lines give you
no feci for how your writihg looks or reads.
Telewriter gives the Color Computer a 51
column by 24 line screen display with true
lower case characters. So a Telewriter screen
looks like a printed page, with a good chunk of
text on screen at one time. In fact, more on
screen text than you'd get with Apple II, Atari,
Tl, Vic or TRS-80 Model III.
On top of that, the sophisticated Telewriter
full-screen editor is so simple to use, it makes
writing fun. With single-letter mnemonic
commands, and menu-driven I/O and
formatting, Telewriter surpasses all others for
user friendliness and pure power.
Telewriter's chain printing feature means that
the size of your text is never limited by the
amount of memory you have* and Telewriter's
advanced cassette handler gives you a powerful
word processor without the major additional
cost of a disk.
...one of the best programs for the Color
Computer I have seen...
— Color Computer News, Jan. 1982
TELEWRITER-64
But now we've added more power to
Telewriter. Not just bells and whistles, but
major features that give you total control over
your writing. We call this new supercharged
version Telewriter-64. For two reasons.
64K COMPATIBLE
Telewriter-64 runs fully in any Color Computer
— 16K, 32K, or 64K, with or without Extended
Basic, with disk or cassette or both. It
automatically configures itself to take optimum
advantage of all available memory. That means
that when you upgrade your memory, the
Telewriter-64 text buffer grows accordingly. In
a 64K cassette based system, for example, you
get about 40K of memory to store text. So you
don't need disk or FLEX to put all your 64K
to work immediately.
64 COLUMNS (AND 85!)
Besides the original 51 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
Telewriter editing capabilities, and you can
switch instantly to any of the 3 formats with a
single control key command.
The 51 x 24 display is clear and crisp on the
screen. The two high density modes are more
crowded and less easily readable, but they are
perfect for showing you the exact layout of
your printed page, all on the screen at one
time. Compare this with cumbersome
"windows" that show you only fragments at a
time and don't even allow editing.
RIGHT JUSTIFICATION &
HYPHENATION
One outstanding advantage of the full-width
screen display is that you can now set the
screen width to match the width of your
printed page, so that "what you see is what
you get." This makes exact alignment of
columns possible and it makes hyphenation
simple.
Since short lines are the reason for the large
spaces often found in standard right justified
text, and since hyphenation is the most
effective way to eliminate short lines,
Telewriter-64 can now promise you some of the
best looking right justification you can get on
the Color Computer.
FEATURES & SPECIFICATIONS:
Printing and formatting: Drives any printer
(LPVII/VIII, DMP-100/200, Epson, Okidata,
Centronics, NEC, C. Itoh, Smith Corona,
Terminet, etc).
Embedded control codes give full dynamic access to
intelligent printer features like: underlining,
subscript, superscript, variable font and type size, dot-
graphics, etc.
Dynamic (embedded) format controls for: top,
bottom, and left margins; line length, lines per page,
line spacing, new page, change page numbering,
conditional new page, enable/disable justification.
Menu driven control of these parameters, as well as:
pause at page bottom, page numbering, baud rate (so
you can run your printer at top speed), and Epson
font, "Typewriter" feature sends typed lines directly
to your printer, and Direct mode sends control codes
right from the keyboard. Special Epson driver
simplifies use with MX-80.
Supports single and multi-line headers and automatic
centering. Print or save all or any section of the text
buffer. Chain print any number of files from cassette
or disk.
File and I/O Features: ASCII format files —
create and edit BASIC, Assembly, Pascal, and C
programs, Smart Terminal files (for uploading or
downloading), even text files from other word
processors. Compatible with spelling checkers (like
Spell 'n Fix).
Cassette verify command for sure saves. Cassette auto-
retry means you type a load command Only once no
matter where you are ii) the tape,
Read in, save, partial save, and append files with disk
and/or cassette. For disk: print directory with free
space to screen or printer, kill and rename files, set
default drive, Easily customized to the number of
drives in the system.
Editing features: Fast, full-screen editor with
wordwrap, block copy, block move, block delete, line
delete, global search and replace (or delete), wild card
search, fast auto-repeat cursor, fast scrolling, cursor
up, down, right, left, begin line, end line, top of text,
bottom of text; page forward, page backward, align
text, tabs, choice of buff or greeri background,
complete error protection, line counter, word counter,
space left, current file name, default drive in effect,
set line length on screen.
Insert or delete text anywhere on the screen without
changing "modes." This fast "free-form" editor
provides maximum ease of use. Everything you do
appears immediately on, the screen in front of you.
Commands require only a single key or a single key
plus CLEAR.
. . . truly a state of the art word processor. .
outstanding in every respect.
— The RAINBOW, Jan. 1982
RAINBOW
PROFESSIONAL
WORD PROCESSING
You can no longer afford lo be without the
power and efficiency word processing brings to
everything you write. The TRS-80 Color
Computer is the lowest priced micro with the
capability for serious word processing. And
only Telewriter-64 fully unleashes that
capability.
Ielewriter'64 costs $49. y5 on cassette, $59.95
on disk, and comes complete with over 70
pages of well-written documentation. (The step-
by-step tutorial will have your writing with
Telewriter-64 in a matter of minutes.)
To order, send check or money order to:
Cognitec
704 Nob Street
Del Mar, CA 92014
Or check your local software store. If you have
questions, or would like to order by Visa or
Mastercard, call us at (619) 755-1258
(weekdays, 8AM-4PM PST). Dealer inquiries
invited.
(Add %2 for shipping Califofnians add 6% state tax. Allow 2
weeks for personal checks. Send self -addressed stamped
envelope for Telewriter reviews from CCN, RAINDOW,
80-Micro, 80-U.S. Telewriter owners: send SASE or call for
information on upgrading to Telewriter-64. lelewnter-
compatible spelling checker (Spell 'n Fix) and Smart Terminal
program (Coiorcom/E) also available. Call or write for more
information)
Apple 11 is a trademark of Apple Computer, Inc.; Atari is a
trademark of Alati, Inc.; TRS-80 is a fiadeinaik uf Tandy
Corp; MX-80 is a trademark of Epson America, Inc.
Listing 2:
10 CLEAR 3000
20 DIM AX*<63),I<7)
30 DEF USR=8tHE4E
35 RC=0
40 CLS
60 INPUT'DRIVE #"JDR
65 INPUT "LI STING TO PRINTER"; A*
66 IFA*="Y H THEN DV=-2 ELSE DV»0
70 IF DR<0 OR DR>1 THEN 40
80 FOR X= 3 TO 11
90 DSKI* DR,17,X,A*,B*
1 00 A*-A*+LEFT« ( B* , 1 27 )
110 FOR N=0 TO 7
120 FILE«=*IID*<A*,N*32+1,8)
130 EXT*=MID*(A*,N*32+9,3)
140 IF ASC(FILE*)=0 THEN 180
130 IF FILE*=STRINB*<8,2S5) THEN
180
160 AX* (R) =FILE*+" . "+EXT*
170 R=R+1
180 NEXT N,X
190
195
200
205
8
210
220
230
240
241
I<0)=0
IU)=R-i
I (2) =VARPTR (AX* (0) )
I (4>=10: I <5)*12: I (6)=l:
I<7) =
PR I NT "CALLING SORT"
RC=USR (VARPTR < I (0) ) )
IF RCO0 THEN PRINTRC:STOP
FOR X=1T0R
IF INT(X/16)=X/16 AND DV-0
THEN A*=INKEY*:IF A*«= ,M, THEN 241
251 PRINT#DV,USING"## — 7.
7.";X,AX*(X-1)
260 NEXT
Listing 3:
0001 i«m»ttt*»<t»tt«»*tt»tt«»*t«
0002 » QUICKSORT *
0003 i t
0004 « FDR THE TRS-80 COLOR t
0005 * COMPUTER ♦
0006 t t
0007 » (0 1983 COLIN J STEARHAN *
0E00
0809
0010
0811
8012
mi
0014
mmmtmmmtmttttit
ORG tm
i
ttmtttttm»»tmtt»t»*itit
♦hEMORY ALLOCATIONS
tmttttttmttmmmttttt
COMPUKIDS MAGAZINE
The Computer Magazine for Beginners
Educational articles that are easy to understand
Game programs
Computer book reviews
Program problems
CompuKids Club
1 year magazine subscription
Contests with GREAT prizes
Free computer advice
Program exchange
Educational programs
—. ... and lots more . . .
L-l One year subscription plus one year membership in CompuKids Club — $24 00
(Canada -$31 .00)
d One year subscription only -$1 6.00 (Canada -$20.00)
U Six month trial subscription — $9.00 (Canada -$1 1 .00)
LJ Payment enclosed (check or money order)
n Please bill me later (a $1 .00 billing fee will be added)
(Special School and Group Rates Available)
Name.
.Age
Address.
. Signature if billing
City
State
Zip Code.
Phone
Mail Check or Money Order to:
CompuKids Magazine rb
P.O. Box 874
Sedalia, MO 65301
Or Phone TOLL FREE:
1-800-822-KIDS
204
the RAINBOW August 1983
mt
0E02
tm
tm
tin
tw
mi
0E3F
0E41
tm
0E44
0E44
0E47
8E48
0E4?
0E4A
0E4C
0E4D
B4F4
83ED
BF1F
004F
0E4E
»E4E 3448
tat mm
0E53 51
0E54 2706
0E54 4F
0E5? 3540
0E59 7EB4F4
0E5C 17024F
0E5F 50
0E60 27F4
0E42 EC8C9D
0E65 A38C98
0E68 10830009
0£6C 2331
0E6E 178399
IE71 17B23A
(£74 170260
8E77 EC8C8C
0E7A 10A3BC84
8015 BEGIN RMB
2
0016 EMDINS RUB
2
0017 LI RHS
2
0018 RI RfIB
2
0019 CMPADD RMS
5
CURRENT PARTITION START
CURRENT PARTITION END
LEFT SCANNING INDEX
RIGHT SCANNING INDEX
COMPARAND STORABE
0020 *«ILL BE NUMBER OR POINTER TD STRING
1021 STACK RHB 2*12*2
0022 NTPTR RMB 2
0023 * MHEN STACK IS ENPTY
0024 VPTRI RUB
0025 IFLAB RUB
0026 VPTRA RMB
0027 ASLAVE RUB
0028 DIHEN RHB
0029 SORTYP RHB
0030 CflEQ RttB
PARTITION STACK SPACE
RETAINS VALUE OF U MHEN AT STACK TOP
ADDRESS OF 1(0)
IF REGULAR SORT, 1 IF SPECIAL SORT
ADDRESS OF AI0) OR At 10)
SLAVE DIMENSION ADDRESS
0,1,2 DIMENSION TO SORT IN BIDIH ARRAY
TYPE OF SORT
IF STRINGS ARE
0031 *BOTH EQUAL TO COMPARAND, NOT ELSE
1
0032 SORDER RMB
8033 I COUNT RMB 2
0034 (ELEMENTS USED FROM I
0035 SCSTRT RMB 1
0036 SCEND RMB 1
0037 m»«niHin«m»n»t»
0038 * EQUATES
0039 BASIC EBU IB4F4
0040 INTCNV ECU 1B3ED
0041 RND EQU tBriF
0042 FAC EBU 04F
0043 PARTTN REG X,Y
0044 (f*ti»*t**H***ti**f ********
0045 * MACRO M0VE5
j)04& ttt It »itl»(tt»*t»«**«t ******
8047 *♦* MACRO DEFINITION
0048 * MOVES 5 BYTES FROM ADDRESS IN
0049 *T0 ADDRESS IN SECOND
0050 *
«=ASCENDING, ^DESCENDING
VARIABLE TO COUNT
SCAN START FOR STRING COMPARE
SCAN END FOR STRING COMPARE
RETURN TO BASIC WITH VALUE IN D
BASICS FPi-INT ROUTINE
BASICS RANDOM ROUTINE
ADDRESS OF FLOATING POINT ACC.
PARTITION POINTERS X IS LEFT, Y RIGHT
1ST REGISTER
8051 M0VE5
0052
0053 \.0
0854
0055
0056
0057
MACR
LDB
LDA
STA
DECB
BPL
ENDM
14
B,\0
B,\l
\.0
COUNTER
GET BYTE
HOVE IT
LOOP UNTIL B NEG
PRESERVE BASICS REGISTERS
CHECKS FOR ERRORS IN CALL
B IS ZERO IF ALL GK
8058 ft**************************
0059 i
0060 ""MAINLINE PROGRAM*"*"**
0061 Hm*»Htmtmtttt»t"H*
0062 *
0063 BSORT PSHS Y.U
0064 LBSR 1NIT
0045 TSTB
0066 BEQ CflLLOK
0847 *B HAS ERROR CODE IF NOT OK
0868 EXIT CLRA
0069 PULS U,Y RESTORE BASICS REGISTERS
0070 Mt BASIC RETURN VALUE
0071 »»*""»"»* "«»*t»«*t**m»
0072 CALLOK LBSR JNSTCK UNSTACK NEXT SET OF POINTERS
0073 tIF B IS ZERO NO MORE TO UNSTACK SO EXIT
0074 TSTB
0075 BEQ EXIT
8876 **"*»«"""*«*"*"*""
0077 » TEST BEGIN I ENDING FOR SIZE OF PARTITION
8078 CKSIZE LDD ENDING, PCR
0079 SUBD BEGIN, PCR
0080 CMPD 19
0081 UF 10 OR LESS ELEMENTS SORT BY EASISORT,
0082 *ELSE DO BY QUICKSORT
0083 BLS EZSRT
0084 mttHft"*tt"ttmtttttH
0085 "START OF BSORT CALLS"
0086 LBSR RNDCMP GET RANDOM COMPARAND
0087 SCAN LBSR LSCAN SCAN FROM LEFT
008B LBSR RSCAN SCAN FROM RIGHT
0089 »TEST FOR CROSSED OR CONCURRENT INDICES
0090 LDD R1,PCR GET RIGHT INDEX
0091 CMPD LI, PCR SUBTRACT LEFT INDEX
0092 *IF RESULT IS 2ER0 OR NEGATIVE THEY HAVE CROSSED
0E7E 2F85
0E30 170295
0E83 20EC
0E85 17036A
0E88 2505
0E8A 170339
0E8D 2003
0E8F 170309
0E92 EC8DFF4C
8E96 10A38DFF65
0E9B 2FBF
0E9D 20C3
0E9F 1704E0
0EA2 20B8
0EA4 10BE004F
0093 BLE CROSS
0094 *NOT CROSSED TO SNAP
0095 LBSR SKAP
0096 BRA SCAN CONTINUE SCANNING
0097 """"""""""""MM
0098 CROSS LBSR PARTS2 C0MPARE5 RIGHT ( LEFT PARTITIONS
0099 »AND SETS C FLAG IF RIGHTM.EFT
0100 BCS RIGHT
0101 LBSR LFTSTK STACK LEFT AS EBUAL OR LARGER
0102 BRA NXTPRT PREPARE OTHER PARTITION
0103 »«**""*"**"""*""""
0104 RI6HT LBSR RGTSTK STACK RI6HT PARTITION
0105 *COMPARE SIZE OF REMAINING PARTITION FOR 1 OR LESS ELEMENTS
0106 NXTPRT LDD ENDING.PCR
0107 CNPD BEGIN, PCR
0108 BLE CALLOK
0109 BRA CKSIZE CONTINUE S0RTIN6
01 10 *t""tttf "tt"«t"t"*t»f
811! »USE E2S0RT ON 10 OR LESS
0112 EZSRT LBSR EZSORT
0113 BRA CALLOK UNSTACK NEXT PARTITION
0114 *""***""#»"""*""»"
0115 *END OF MAINLINE
0116 ttmmttmtmtttttttttti
0117 *
01 IB *SETNUM RETURNS A VALUE INTO D
0119 tHHICH IS THE 16 BIT INTEGER OF
0120 ♦ A FLOATING POINT NUMBER POINTED
0121 *T0 BY THE ADDRESS IN X
0122 tSTORED IN MEMORY TYPE FORMAT
0123 *THIS KILL LOAD FAC NITH NUMBER
0124 * CONVERTED TO APPROPRIATE FORMAT
0125 »THEN INTCNV IS USED TO RETURN VALUE
0126 *
0127 SETNUM LDY »FAC POINT Y TO FAC
0128 tMOVE 5 BYTES FROM MEMORY TO FAC
0129 M0VE5 X,Y
AUTOTERM
TURNS YOUH COLOR COMPUTER INTO THE
WORLDS
SMARTEST TERMINAL!
YOU'LL ALSO USE AUTOTERM FOR SIMPLE
WORD PROCESSING & RECORD KEEPING.
EASY TO USE
ON-THE-SCREEN EDITING via cursor. Full prompting.
Scrolling. Key Beep & Error Beebop.
PLEASANTLY POWERFUL
Total communications ability at 110 to 1200 baud.
Transmit text, graphics, BASIC and Machine Language.
Save & Load cassette/disk files while on line. Scan/Edit
current data while receiving more data. Use any modem.
Fully supports D. C. Hayes & others. Use any printer,
page size, margins, line spacing. Override narrow text
width of received data. Imbed printer controls.
TRULY AUTOMATIC
Automate almost any communications activity. Dial via
modem, sign-on, interract, sign-off. Perform an entire
session. Act as a message taker. Keystroke Multipliers
may include parameter changes, editing, time delays,
execution of other multipliers, looping, waiting for
partially specified responses, and branching based
upon alternative responses. Self-test mode. /^\
32K MEMORY RECOMMENDED R â„¢
CASSETTE $39.95 DISKETTE (coming soon) $49.95
Add $3 Shipping 6V Handling
MC/VISA/COD
PXE Computing
11 Vicksburg Lane
Richardson, TX 75080
Eves. & Weekends: 214/699-7273
Weekdays: MICRO CONCEPTS
214/458-0330
August 1983
the RAINBOW
205
0EAB C604
f LDB t4
COUNTER
0EAA A685
.00000 LDA B,X
GET BYTE
0EAC A7A5
â–º STA B,V
HOVE IT
0EAE 5A
DECB
0EAF 2AF9
BPL . 00000
LOOP UNTIL B NEG
0130 »NON FIX FDR FAC FORMAT
0E61 A62!
0131
LDA i,y
SET SECOND BYTE
0EB3 A725
8132
STA 5,Y
STORE IN SIXTH BYTE
0EB5 8A80
9133
DRA H 10000000
SET BIT 7 TO 1
0EB7 0721
8134
STA 1 , y
PUT IN BYTE 2
0135
t« FAC IS ALL SET SO CALL INTCNV
0EB9 1F21
0136
TFR y,«
POINT X AT FAC fOR INTCNV
0EBB BD83ED
8137
M INTCNV
0138 tNUHBER IS NOW IN D
0EBE 39
1139
RTS
0140
ttttitttitt*tt»»tt»t*tii»tt
0141
*
0142
tmttmm«timttii»mt*
0143
t RELOCATABLE CONVERTER FROM
0144
t POSITIVE INTE6ER TO A REAL
0145
• NUMBER. NUMBER IS IN D AS
0146
* A POSITIVE NUMBER IN THE
8147
» RANSE - 7FFF. X POINTS
0148
♦ TO BASE ADDRESS OF RECEIVING
0149
t VARIABLE, y IS USED
0150
* INTERNALLY.
0151
*«««« > »«»**»* tttttmtittti
0152
* FIRST TEST FOR IN D
0EBF 5D
0153
INTRL TSTB
DO LOWER HALF
0EC0 2606
0154
BNE NTZERO
0EC2 4D
0155
TSTA
CHK UPPER HALF
0EC3 2E03
0156
BfiT NTZEftO
0157 ♦NUNSER IS ZERO OR NEGATIVE SO CLEAR EXPONENT
0158
♦AND RETURN AS ZERO
0EC5 6F84
0159
CLR ,X
EXPONENT
0EC7 39
0160
RTS
0161
♦NUMBER 15 NOT ZERO
0EC8 108E0018
0162
NTZERO LDY 114
BASE POWER COUNT
0163
♦SHIFT LEFT ONE PlACE
BY DOING i THEN A
0ECC 58
0ECD 49
0ECE 313F
0ED0 2AFA
0ED2 847F
0ED4 ED01
0ED6 1F20
0ED9 CA80
0EDA E784
0EDC 6F03
0EDE 6F04
0EE0 39
PEACOCK ENTERPRISES
WE'RE PROCID
CMAILIST IS A GREAT ADVENTURE -
BUT NOT AN ADVENTURE GAME!
An Address Book, Phone Book, Mail Label Generator
and a whole lol mure.
CMAILIST is a powerful and professional MINI-DATA-BASE
for home or office use. CREATE, ADD, DELETE, CHANGE,
INSPECT, SEARCH, SORT, MAILING LABELS, TICKER FILE,
and INVOICE all so easily, you'll wonder why you waited so long!
Op to 500 RECORDS containing 10 FIELDS can be stored per file
(memory and system dependent).
CMAILIST is available in the following versions:
4.0 Cassette Systems (specify 16K or 32K) $19.95
5.0 Disk Systems $24.95
5.1 2 Drive Disk Systems with INVOICing $29.95
CMAILIST includes an easy to follow Comprehensive Manual
& 1 year warranty.
SO JOIN THE GREATEST ADVENTURE OF ALL-YOCJ WILL BE A
WINNER!
C.ITOH ProWriters $«£ Parallel $565 serial
SF.ND FOR FREE CATALOG!
Prices Include Shipping! COD Accepted on Software only!
Send check or money orders to:
PEACOCK ENT.
194 CANNONGATF III ROAD
NASHUA, NH 03063
603-880-8169 Mon-Sat 10-10
0164 AGAIN LSLB TOP BIT INTO CARRY
*"5 ROLA CARRY INTO BOTTOM
•'W LEAY -1,Y decrease COUNT
0167 »HAS NUHBER GONE NEGATIVE'
0168 BPL A6AIN NO SO SHIFT AGAIN
0169 »STRIP TOP BIT AND MOVE D INTO ARRAY
0170 ANDA 0M111UU
0171 STD 1,1
0172 »FIX V FOR EXPONENT, ADD 128 TO IT AND
0173 rSTDRE IN FIRST BYTE OF VARIABLE
0174 TFR Y.D MOVE INTO D
0175 orb nmmii set i:b bit
0176 STB ,1 STORE EXPONENT
0177 ♦NOW CLEAR REMAINING BYTES
0178 CLR 3,X
0179 CLR 4,X
01B0 «ALL DONE SO RETURN
0181 RTS
0182 >
9193 ltHHItlHIHIH«..HH..
0184 ♦THIS INITIALIZES EVERYTHING
0185 *AND CHECKS VALIDITY OF CALL
0186 ♦
0187 ♦ORDER OF CHECKING AND RETURNED VALUE TO BASIC IS;
0188 *
0189 t i = SORTED WITHOUT ERROR
0190 ♦ 1 = PARAMETER ARRAY NAME ERROR
0191 t 2 = PARAMETER ARRAY DIM ERROR
0192 ♦ 3 = PARAMETER ARRAY NOT NUMERIC
0193 » 4 ' PASSED NO. OF ELEHENTSM096 OR ZERO
0194 ♦ 5 = INSUFFICIENT DATA IN PASSING ARRAY
0195 » 6 = ERROR IN 1(3) VALUE (0,1,2 ONLY)
0196 * 7 â– SORT ARRAY NAME ERROR
0197 t 8 = SORT ARRAY DIM ERROR
0198 ♦ 9 = INCONSISTENT SORT ARRAY SIZE
0199 » 10 » 1(3) VALUE INCONSISTENT WITH i OF A DIMENSIONS
0200 t
0201 »REGISTER B IS USED TO RETURN THE CODE TO THE MAIN PROGRAM
0202 mmtttmmmtttmt
0203 ♦THIS ALSO SETS UP THE FOLLOWING:
0204 » U REGISTER TO LAST PUSHED PARTITION VALUE
0205 ♦ORDER OF STACKING IS LEFT THEN RI3HT,
0206 tORDER OF UNSTACKINB IS RIGHT THEN LEFT
0207 ♦
0208 »THE FIRST PARTITION VALUES ARE PUT CNTC THE STACK.
0209 *1F THERE IS ONLY ONE ELEMENT IN ARRAY THEN
0210 ♦NOTHING IS STACKED
0211 »
0212 ♦THE NUMBER OF ELEMENTS IS PUT INTO COUNT
0213 ♦THE ADDRESS OF 1 10) IN vARPTI
0214 ♦THE ADDRESS DF A(0) OR Atlg) IN VARPTA
0215 »THE SORT TYPE IS PUT IN SQRTYP
0216 * = STRING SORT
0217 ♦ 1 = NUMERIC SORT
0213 i THE SORT ORDER IS IN SORDER:
0219 • 0-ASCENDING
0220 « 1=DESCENDINB
0221 ♦
0222 ♦♦♦
0223 ♦THE SORTED VARIABLE MUST BE CALLED "A*" OR 'AM" AND THE
0224 ♦PARAMETER ARRAY
0225 ♦ MUST BE CALLED "I*". WHERE ♦ IS ANY LEGAL CHARACTER
0226 ♦ "A' ARRAY CAN BE EITHER SINGLE
0227 ♦DIMENSIONED, OR 2 DIMENSIONED.
0228 HF 2, THEN SECOND DIMENSION MUST BE 1.
0229 tFQR EXAMPLE: At (300,1)
0230 UN THIS EXAMPLE EITHER THE A»(0,0) THRU A»(308,8I SECTION
0231 ♦OR A»I0,1> THRU A«i300,l) SECTION
0232 »CAN BE SORTED. IN ADDITION,
0233 »THE OTHER SECTION CAN BE MOVES KITH THE SORTED
0234 »ONE OR NOT, AS DESIRED.
0235 iMINIMUM CALL FROM BASIC IS:
0236 ♦
0237 ♦ DIN 112),A«(N1 IDR A(NI)
0238 ♦ I(0)=FIRST SUBSCRIPTS TO SORT
0239 ♦ IF ASCENDING, LAST IF DESCENDING
0240 ♦ I (!)=LAST SUBSCRIPT TO SOR
0241 ♦FIRST IF DESCENDING
0242 ♦ II2)=VARPTRIA$(0>> OR VARPTR(A(0))
IF ASCENDING,
206
the RAINBOW August 1983
»243 * ROUSMIVARPTRIIIIH
0281 »***
8282 «CHECK FOR TYPE OF ARRAY
0244 PREDEFINE RC BEFORE USIN6 IN ABOVE LINE
9245 «
8F04 8181
0283 CHKTYP CHPA
11
SHOULD BE 1 FOR NUMBER ARRAY
8F86 2783
0284
BED
IISNUM
*246 »STRINS ARRAYS CAN BE SORTED IN OTHER THAN LEFT-RIGHT
8F88 C683
8285
LDB
13
ERROR CODE
(247 ♦CHARACTER ORDER,
8F8A 39
0286
RTS
AND RETURN
0248 iTO SPECIFY, USE FURTHER ELEMENTS IN I ARRAY
0287 ttti
8249 «TO DEFINE CHARACTERS TD SORT THROUGH.
8288 >SET VALUE IN 1(8)
»25« »E6. TO SORT THE 9TH THRU 12TH, THEN 1ST THRU BTH
8F8B 3438
0289 I1SNUH PSHS
»,«
PRESERVE ARRAY SIZE AND X POINTER
8251 «USE:
8F8D 17FF94
8290
LBSR
GETNUM
D MILL FIRST PARAMETER
8252 t I(3)=?:lM)=12:H5)=i:I(6)=B
8F18 AEE4
0291
LDX
,8
RECOVER X POINTER LEAVE ON STACK
8253 ♦ IF THE 2ND OF A PAIR IS NISSING
8FI2 3486
0292
PSHS
D
SAVE ON STACK
8254 »255 IS ASSUMED.
8F14 3885
0293
LEAK
5,»
POINT TO HI)
8255 ♦
8F16 17FF3B
0294
LBSR
6ETNUM
D HAS SECOND PARAMETER
8256 <IF SORT ARRAY IS DIMENSIONED IN,1) THEN:
8F19 4F8DFF2C
8295
CLR
SORDER.PCR
8257 » I C3)-fl THEN SORT (8,1)-(N,1)
0F1D 18A3E4
0296
CHPD
.5
COMPARE 2ND W/ 1ST
8250 t AND LEAVE (8,f)-(N,8) AS IS
8F28 248A
0297
BHS
ASCND
ASCENDING ORDER
8259 * I t3)=l SORT (8,1)-IN,1) AND HOVE OTHER SECTION TOO
8F22 6C8DFF23
0298
INC
SORDER.PCR
DESCENDING
8268 « J (31=2 THEN AS 1(8) BUT MOVE OTHER SECTION TOO
8F26 3518
0299
PULS
X
GET 1ST PARAMETER IN X
8261 mmttt*mttt»»ttmtttt
8F28 IE 18
0300
EXS
X,D
SNAP VALUES
8262 »GET POINTER TO 148)
8F2A 2882
0381
BRA
CALCRG
CALCULATE RANGE
8EEI BD83ED
8263 INIT JSR INTCNV
8F2C 3518
0302 ASCND
PULS
X
SET 1ST PARAMETER
0EE4 ED8DFF57
82i4 STD VPTRI,PCR
8F2E AF8DFECE
0383 CALCRG STX
BEGIN, PCR
SET BES1N OF RANGE
BEES 1FII
8265 TFR D,X SO J POINTS TO 1(8)
0F32 EDBDFECC
0304
STD
ENDING, PCR
SET END OF RANGE
9EEA 341)
8266 PSHS X PRESERVE POINTER
0305 »D HAS HIGHER PARAMETER
BEEC 3MA
8267 LEAK 18, J MOVE X TO 1(2)
0386 * IS K
'8?
0EEE 17FFB3
8268 L8SR 5ETNUN 6ET POINTER TO A(8> OR AMU)
0F36 10830008
0387
CHPD
40
0EF1 ED8DFF4D
8269 STD VPTRA,PCR
0F3A 2786
0308
BEO
SIZBAD
(278 HitmttttmtmMH*
8309 US IT >4895'
8271 ♦ NOW CHECK I ARRAY VALIDITY
8F3C 18838FFF
8318
CHPD
44095
0EF5 3511
8272 PULS X POINT AT 1(8)
8F48 2385
8311
DLS
NISOK
8EF7 864?
8273 LDA I'l ARRAY FIRST LETTER
0F42 3262
8312 SIZBAD LEAS
2,S
CLEAN Y OFF STACK
8EF9 17)163
8274 LBSR ARYCHK RETURNS 8,1, OR 2 IN B
8F44 C684
8313
LDB
84
GET ERROR CODE
8275 *S IS ZERO IF NAME OK
0F46 39
0314
RTS
0EFC 5D
8276 TSTB
8315 m
8EFD 27U5
8277 BEC CHKTYP
8F47 3518
0316 NISOK
PULS
I
BET VPTRI IN X
8EFF 2A02
8278 BPL GOTERR -1 IS BAD TOO
BF49 10AEE4
0317
LDY
,S
BET ARRAY ELEMENT COUNT
mi C682
8279 LDB 12
8F4C 108C0803
8318
CHPY
13
«FB3 3?
8288 GOTERR RTS AND RETURN
0F50 252E
8319
BLO
CALERR
MUST BE >=3
•
•
•
•
•
•
:
Send for Your
FREE CATALOG
TOP QUALITY CoCo SOFTWARE
We Sell The Best Products
from
* SPECTRAL ASSOCIATES
*MARK DATA PRODUCTS
*MED SYSTEMS SOFTWARE
*INTRACOLOR
•COMPUTER WARE INC.
*TOM MIX SOFTWARE
'PROGRAMMER'S GUILD
*PRICKLEY PEAR INC.
'SUGAR SOFTWARE
'BUMBLEBEE SOFTWARE
and Our Own Quality Software
BONUS:
If you order $30 or more
from PRISM bef °re
AUGUST 31st
you get a FREE
pair of C-10 Cassettes!
Authors:
WE PAY
TOP ROYALTIES
ON BOTH M.L.
AND BASIC GAMES.
IF YOU HAVE A
GOOD PROGRAM,
SEND IT IN AND
WE'LL TAKE A
LOOK AT IT. . .
"Dealer inquiries
welcome
"All software on tape
"Add b% tor shipping
"No COD. please
"Ontario residents
please add 7% sales
"Allow 2-3 weeks for
delivery
We Accept ^^H cards
Prism
Software
Box II82,
Kincardine, Ont.
Canada
NOG 2G0
Tel:(5l9)396-8224
Watch for Coming
Ads with Great
TELL US WHERE YOU SAW THIS AD AND GET 5% OFF! Specials!
=0
August 1983 the RAINBOW 207
0F52 2206
0320
BH1
SETOIN
THERE IS 1(3) VALUE
0F54 6F8DFEEE
0321
CLR
DIHEN.PCR
SET FLAS
0F5B 2814
0322
0323
tt
BRA
IVALS
0F5A 3MF
0324 6ETDIM LEAK
15, J
POINT TD 1(3) VALUE
0F5C 17FF45
0325
LBSR
6ETNUM
SET IT IK
«F5F imtm
0324
CMPD
13
8F63 23M
0327
BLS
STRVAL
MU5T BE TO 3
0F45 3242
0328
LEAS
2,8
CLEAN STACK
0F67 C406
0329
LDB
16
0F69 39
0338
0331
it
RT5
0F6A E78DFED8
0332
STRVAL STB
DIrtEN,PCR
0F6E 3520
0333
IVALS
PULS
Y
RESTORE I ELEMENT COUNT
0F70 6F8DFECD
0334
CLR
IFLAG,PCR
PRESET REGULAR SORT FLAS
SF74 108C0004
0335
chpv
14
TEST 1 DIMENSION
0F78 2709
0336
SEfl
ISIZQK
0F7A 6C8DFEC3
0337
INC
IFLAS,PCR
SET TO SPECIAL SORT
IF7E 2(03
0338
BRA
IS1Z0K
0339 »HUST
BE AT LEAST 3 ELEflENTS
tm C605
0340 CALERR
LDB
15
SET UP RETURN CODE
0FB2 39
0341
RTS
AND RETURN
0342
ttmtttmmtmmmmt
0343
*CHEC*
"A" ARRAY VALIDITY
0F83 AE8DFEBB
0344
ISI20K LDX
VPTRA, PCR
POINT TO A ARRAY
0F87 8641
0345
LDA
t'A
SET FIRST LETTER OF NAME
0F89 1700D3
0346
LBSR
ARYCHK
0F8C 5D
0347
TSTB
OK IF ZERO
0F3O 2F03
0348
BLE
AOK
8F8F Cm
0349
ADDB
»4
ERROR CODE 7/B
tm 39
0350
RTS
RETURN ERROR CODE
0351
t RETURNED BY ARYCHK
0352
*STDRf
ARRAY TYPE FROM (
0F92 A78DFEBI
0353
ftOK
STA
SORTYP.PCR
0354 tTEST ARRAY SHE AGAINST N
0333
• IN LAST DIMENSION
0F96 10AC8DFE67 0354
CNPY
ENDING, PCR
■g^s <S3S .:g*£Si sms ■mi@ <s^® ^i@ .^gi gggs
â– :SSS
â– â– siss
Now a /LOGO for the
COJLO/3 CGMf=>U T£ JR
TIMY "TURTLE
TINY TURTLE is an affordable,
fully compatible LOBO language
with high resoultion turtle
graphics, music, -fast pro-
cessor operation, and re-
trieval of user procedures.
TINY TURTLE comes complete
with so-f t copy reference user
manual .
â– â– *E.3
<£3§©
32K/EXTD BASIC
CASSETTE or DISK
HARD-COPY MANUAL
ALSO
GAS MILEAGE MONITOR
DISK
*39.95
44. 95
*9.95
SDS COMPUTERS BOGOTA, N J
PQB 450 07603
NJ ADD 57. TAX
-Sit!]?
■■&%$ <m® fl'iss <m@ <m% .s-isit .^iSrijj <.m® ■&&&
0F9B 2203
0F9D C609
0F9F 39
0FA0 50
0FA1 273B
0FA3 AE8DFE9B
0FA7 AE1C
0FA9 8C0002
0FAC 24EF
0FAE 1F21
0FB0 1700E3
0FB3 AFBDFEBD
0FJ7 E6BDFE8B
0FBB C102
0FBD 2525
0FBF AE8DFE7F
0FC3 10AE8DFE7C
0FC8 AF8DFE7B
0FCC 10AF8DFE71
0FD1 C102
0FD3 240F
0FD5 6FSDFE6D
0FD9 2009
0FDB 6D8DFE67
0FDF 2703
0FE1 C60A
0FE3 39
0357 BHI BUM
0358 NINERR LD8 19
0359 RTS
0360 ititmmmmH
0361 BIOIH TST8
0362
0363
0344
0365
0366
0367 mt
0368
0369
BEfl
LDX
LDX
CNPY
BNE
CKDIHN
VPTRA.PCR
-4,1
12
NINERR
ARRAY IS SAttE OR LARGER
SET RETURN CODE
RETURN
IF UNIDIH.-l OF BID1M
SET 2ND DIN SUE
MUST BE TWO
TFR Y,J
LBSR SETPTR TO A(0,1)
0370 t 1 NAD ELEHENT COUNT IN FIRST DIN
0371 *X NOW HAS ITS ADDRESS
SET SLAVE POINTER
MUST HE SNAP VPTRA i ASLAVE
NOT IF IT'S LESS THAN 2
IF I (3) =2 DON'T 50RT SLAVE ELEMENT
RESET SO APPEARS 1 DINENSIONAL
0FE4 338DFE55
0FE8 EF8DFE51
0FEC EC8DFE12
0FF0 10A3BDFE0B
0FF5 270B
0FF7 AE8DFE05
0FFB 10AE8DFE02
1000 3630
0372 STX ASLAVE, PCR
0373 LDB DIMEN,PCR
0374 CNPB 12
0375 BLO SIZOK
0376 LDX VPTRA, PCR
0377 LDY ASLAVE, PCR
0378 STX ASLAVE, PCR
0379 STY VPTRA, PCR
0380 CNPB #2
0381 BNE SIZOK
0382 CLR DINENjPCR
0383 BRA SIZOK
0384 *»*»
0385 tCHECK DIHEN IS ZERO IF UNIDIHENSIONAL
0386 CKDIfIN TST D1NEN,PCR
0387 BE3 SIZOK
0388 LDB 410
0389 RTS
0390 tttmmt
0391 » BOTH ARRAYS CHECK QUI
0392 mttmmmmmmti
0393 »3ET UP STACK POINTER
0394 »12 DEEP, 2 BYTES, LEFT I RISHT POINTER
0395 SI20K LEAU STflCKt (2*12*2) , PCfi
MTPTR,PCR TO DETECT WHEN STACK IS EMPTY
ENDING, PCR GET ITEM COUNT
BE61N.PCR
THEN NOTHING TO STACK
0396 STU
0397^ LDD
0398 CMPD
0399 t IF EQUAL
0400 tONLY 1 ELEMEMT IN ARRAY
0401 EEQ NOSTAK
0402 *MORE THAN 1
0403 LDX
0404 LDY
0405 PSHU
0406 m»»mmm«mmm»*
0407 UNITIALIZINS COMPLETE
ELEMENT SO PUSH LEFT THEN RIGHT
BEBIN.PCR LEFT POINTER
ENDING, PCR GET RISHT END
IPARTTN AND STORE
1002 5F
1003 39
GOOD RETURN CODE
0408 NOSTAK CLRB
0409 RTS
0410 mmtmmmtttmmt
0411 »
0412 mm* DATAGT mm
0413 *THIS SETS 2 VALUES FROM I ARRAY IF
0414 *THEY EXIST, OTHERWISE SETS SCAN START TO 0,
0415 tVALUES ARE REDUCED TO A ZERO BASE
0416 *B=0 IF IT GOT AT LEAST ONE VALUE FROM ARRAY
0417 »B=1 IF NONE FROM ARRAY
041B DATAGT PSHS X,Y
0419 BSR NXTVAl
0420 BED VALUE!
0421 CLR SCSTR-
0422 CLR SCEND,
0423 BRA RETRN
0424 iHmiHfiiitHiii
0425 VALUES STA SCSTR'
0426 BSR NXTVAL
0427 BED G0TVA1
0428 LDA 1255
0429 CLRB
0430 GOTVAL STA SCEND,
0431 RETRN PULS X,Y
0432 RTS
0433 *mtttHm*mt*i
0434 tOETS NEXT TWO VALL
0435 tIF NO MORE THEN £ IS RETURNED 1, ZERO ELSE
SCEND TO
1004 3430
041B DATAGT PSHS
X,Y
PRESERVE POINTERS
1006 8D1E
0419
BSR
NXTVAL
1008 270A
0420
BED
VALUES
B=0 SO MORE VALUES IN I
100A 6F8DFE3E
0421
CLR
SCSTRT,PCR
SCAN SRART=0
100E 6F8DFE3B
0422
CLR
SCEND, PCR
SCAN END =0
1012 200F
0423
BRA
RETRN
WITH 8=1
0424
mmmimmmmmm
1014 A7BDFE34
0425 VALUES STA
SCSTRT.PCR
SET SCAN START
1018 8D0C
0426
BSR
NXTVAL '
GET NEXT
101A 2703
0427
BED
GOTVAL
MORE VALUE5
101C 36FF
0428
LDA
1255
SET TO MAX
10IE 5F
0429
CLRB
DATA FLAS SET TO FOR RETURN
lfllF A78DFE2A
0430 GOTVAL STA
SCEND, PCR
1023 3530
0431
RETRN PULS
1,1
il^kSt
1025 39
0432
RTS
NITH B
0433
itmttHttttmmm
0434 tOETS NEXT TWO VALUES FROM I ARRAY
208
the RAINBOW August 1983
1024 1BAE8DFE14 mi MXTVftL LDY
VPTRI,PCR
POINT I TO 1(0)
1MB AE8DFE1B
0437
LDX
ICOUNT,PCR
SET CURENT SUBSCRIPT OF I
1061 3019
0476
LEAK
-7,1
POINT TO NAHE IF UNIDIM
102F AC3E
0438
cupi
-hi
ELEMENT COUNT IN HEADER
1863 10AE05
0477
LDY
5,1
SET FIRST DIM ELEMENT COUNT IN Y
1031 2429
0439
BHS
NODATA
NO MORE DATA
1066 A1B4
047B
C/1PA
.»
TEST NAME
1033 3001
0440
LEAK
1,1
INCREMENT I COUNT
1068 2711
0479
BED
NAMEOK
1035 AFB0FE11
0441
STK
ICQUMT.PCR
FOR NE1T TIME
106A 301E
0480
LEAK
-2.1
NAHE IF 2 DIMENSIONS
1039 301F
0442
LEAK
-1|X
RETURN i TO DRIBINAL VALUE
106C A1S4
0481
CHPA
,»
103B 170061
0443
LBSR
HULT5
CALCULATE OFFSET
106E 270B
0482
m
NAMEOK
1ME E38UF0FD
0444
ADDS
VPTR1.PCR
AND ACTUAL ADDRESS
1070 301E
0493
LEAX
-2,1
NAHE If 3 DIMENSIONS
1042 1FI1
0445
TFR
M
1072 A184
0484
CMPA
,»
1044 17FE5D
0446
LBSR
GETNUM
SET VALUE IN D
1074 2705
0485
BEQ
NAMEOK
1047 10830000
0447
CHPD
i0
IF ZERO LEAVE AS IS
1076 3262
0486
LEAS
2,8
CLEAN STACK
104B 270F
0448
BEQ
NODATA
107B C601
0487
LDB
01
SET ERROR CODE
104D 830001
0449
SUB1
il
REDUCE TO ZERO BASE
107A 39
0488
RTS
AND RETURN
1050 10S300FF
0450
CHPD
1255
TOO HIGH'
0489
IfffHHtimiWIH
1054 2302
0451
BLS
NTHIGH
NO IN RANBE
107B 4F
0490 NAMEOK CLRA
SET TO STRING TYPE
1054 C4FF
0452
LDB
1255
SET LO LIMIT
107C E601
0491
LDB
1,1
BET NEXT LETTER
1058 1E8?
0453 NTH1SH EIE
A,B
107E 2B01
0492
BHI
STRING
IT IS A STRINS ARRAY
105A 5F
0454
CLRB
SET TO INDICATE MORE DATA
1880 4C
0493
INCA
SET FLAB TO 1 FOR NUMBER ARRAY
105B 39
0455
RTS
0494
"CHECK DIMENSION
0456
!»♦♦♦
10S1 E604
0495 STRING LDB
4,1
DIMENSION LOCATION
105C C601
0457 NODATA LDB
»1
SET FLAG
1083 C102
0496
CMPB
12
IS IT BIDIMENSIONAL?
103E 39
0458
RTS
1085 2305
0497
BLS
DIHOK
NOT 3 QR MORE
0459
*
1087 3262
0498
LEAS
2.S
CLEAN STACK
0460
»mMttt*H#*tnmmm*«
1089 C602
0499
LDB
02
RETURN 2 IF SIZE IS KRONB
0461
♦SUBROUTINE TO CHECK ARRAY NftrtE
108B 39
0500
RTS
0462 *FIRST LETTER OF ARRAY
IS PASSED IN A REBISTER
0501
mftttmtitttttmt
0463
»X CONTAINS POINTER TO ZERO ELEMENT
108C 2703
0502 DIttDK BED
TKODIM
ITS BIDIMENSIONED
0464 tA IS RETURNED:
108E 5F
0503
CLRB
SET FLAG
0465
* 1 OF A NUMBER ARRAY
108F 2002
0504
BRA
BONOUT
ALL DONE SO EXIT
0466
* IF A STRIN6
1091 C6FF
0505 TNODIN LDB
1-1
SET B1D1M FLAG
0467
>B IS RETURNED:
0506
it»
0468
t -1 OF OK AND BIDMEN5I0NAL
1093 3510
0507
GONQUT PULS
11
RECOVER POINTER
0469
• IF ALL OK
1095 39
0508
RTS
0470
i 1 IF BAD NAHE
0509 t»ntm*»»»»*«mm
0471
♦ 2 IF BAD DIMENSION
0510
»»tmtSETPTRt*tftm
0472
»Y CONTAINS ARRAY ELEMENT COUNT
0511 'THIS RETURNS A POINTER
T2 A STRING DESCRIPTOR
0473
mttmifttttiittmtfitti
0512
UN At* OR THE NUMBER IN A*
0474
tSEE IF SORT ARRAY IS NAMED OK
0513 tBIVEN THE SUBSCRIPT
105F 3410
0475 ARYCHK PSHS
X
SAVE PTR TO At(0)
0514
tX CONTAINS SUBSCRIPT COMING IN
0515
•AND POINTER TO 5 BYTE 6ROUP IN At
6809
RECORD MANAGEMENT SYSTEM
RMS
DATABASE MANAGEMENT
RUNS ON THE COLOR WITH FRANK HOGG FLEX
•USER DEFINED RECORD FORMAT VIA DATA DICTIONARY
• SCREEN ORIENTED, FORM FILL OUT TYPE OF ACCESS
•OPTIONAL TWO LEVEL RECORD HIERARCHY
*ALL FILES IN ASCII TEXT FORMAT, BASIC COMPATIBLE
•DIRECT ACCESS BY KEY FIELD, MULTIPLE INDEX FILES
• EXTENSIVE DOCUMENTATION, SAMPLE APPLICATION
•VERSATILE, PROFESSIONAL QUALITY REPORT WRITER
•BUILT IN SORT/MERGE
• EASY TO USE
RMS is a complete DATABASE MANAGEMENT package
for the 6809 computer. It is made up of five machine
language programs that make up the most powerful
business programming tool available for the 6809. It can be
used by the relative novice, to implement an incredible
variety of information storage and retrieval applications,
without any programming. However, the programmer can
use RMS as part of the solution to a larger problem, saving
many hours of unnecessary program development time.
RMS can be used to handle data input, editing, validation,
on-line retrieval, sorting and printed reports. Custom data
manipulation can be filled in by the user's BASIC programs.
SINGLE CPU LICENSE
FLEX* $200
OS-9+ $250
UNIFLEX* $300
TERMS: VISA /MC/ PREPAID
WASHINGTON
COMPUTER SERVICES
3028 SILVERN LANE
BELLINGHAM, WA 98225
1 (206) 734-8248
' FLEX and UNlfLEX are trademarks of Technical System ConiuHanti Inc. ; * OS-9 '» a trademark gl Microware
August 1963 the RAINBOW 209
0514 »0R A ON EXIT.
8517 *PROCEDURE: MULT5 MULTIPLIES X BY 5 ADDS VPTRA TO
6518 tRETUfiN DESCRIPTOR ADDRESS
8519 h»
1096 8D«7 0520 GETPTR BSR MULT5 BET DATA ADDRESS IN X
(521 *
1098 E3BDFDA6 8522 ADDD VPTRA, PCR AM ADDRESS OF A* (4)
IMC 1F01 0523 TFR D,X PUT INTO X FOR RETURN
109E 39 0524 RTS
0525 *H<«Ht(lHHItH(HH
0526 * THIS MULTIPLIES A POINTER IN X BY 5
0527 RETURN RESULT IN D
109F 3410
0528 MULT5 PSHS
X
10A1 1F10
0529 TFR
X,D
0004
0530 RPT
4
0531 ADDD
>s
X UN STACK
0532 ENDR
10A3 E3E4
* ADDD
i3
X ON STACK
10A5 E3E4
+ ADDD
,3
X ON STACK
10A7 E3E4
♦ ADDD
,s
X ON STACK
10A9 E3E4
+ ADDD
,5
X ON STACK
10AB 3262
0533 LEAS
2,S
CLEAN STACK
10AD 39
0534 RTS
0535 *
(336 iHiHimiitfiimmnini
10AE 1IA38DFD8A 0537 UNSTCK CHPU
MTPTR,PCR
ANYTHING TO UNSTACK'
10B3 2602
0538 BNE
POPSTK
YES SO SET POINTERS
10B5 5F
0539 CLRB
FLAB FOR STACK EMPTY
10B4 39
0540 RTS
0541 *tt
10B7 3730
0542 POPSTK PULU
IPARTTN
X HAS LEFT, Y RIGHT
10B9 AF8DFD43
0543 STX
BESIN.PCR
SET SCAN BEGINNING
10BD AF8DFD43
0544 STX
LI.PCR
SET LEFT INDEX
10C1 10AF8DFD3C 8545 STY
ENDING, PCR
SET SCAN END
10C4 10AF8DFD3B 0546 STY
RI.PCR
SET RIGHT INDEX
10CB 0601
0547 LDB
t:
SET FLAG TO SHOW POP
10CD 39
0548 RTS
0549 IHHHmiHHHItHHIHIl
0550 t SCANS FROM "LI" LOOKING FOR ITEM =) THEN COMPARAND
COLOR — FORTH
Including SEHIGRAPHIC-8 EDITOR
+ UTILITIES
"Disk and Tape utilities
HBoot -from disk or tape
-Graphics and Sound commands
-Printer commands
-Auto-repeat and Control keys
-Fast task multiplexing
-Unique TRACE function in kernal
-Clean INTERRUPT handling
in HIGH-LEVEL FORTH
-CPU CARRY FLAG accessible
-Game of LIFE demo
-ULTRA FAST: written in assembler
-Directions included for
installing optional ROM in
disk controller or cartridge
-Free Basic game "RATttAZE K
FORTH
HoytS"
OYT OTEARNS ELECTRONICS
4131 E. CANNON DR. PHOENIX, ARIZONA 85028
602-996-1717
10CE AE3DF032
10D2 3I80FD32
1016 3410
10D9 17FFBB
10DB 17016F
10DE 3510
10EI 6F8DFD64
10E4 5D
10£5 2705
10E7 6C8DFD5D
10EB 5D
10EC 2C04
10EE 3001
10F0 20E4
10F2 AF8DFD0E
10F6 39
0551 t'LI" IS LEFT POINTING TO «> ITEM
0552 LSCAN LDX LI, PCR PUT i.1 INTO X FOR SETPTft
0553 LEAY CHPADD,PCR GET COMPARAND ADDRESS
0554 * THIS HILL REMAIN GOOD FOR RSCAN
0555 CQNSCN PSHS X PRESERVE POINTER
0556 LBSR GETPTR RETURNS X POINTING TO 5 BYTE
0557 * DESCRIPTOR OF STRING OR NUHBER
8556 MOM DO A COilPARE
0559 LBSR COMPAR RETURNS B=0 IF EQUAL,
0560 * 1 IF ITEM > CQHP
0561 *1F B IS -1 THEN ITEM IS (COMP
0562 iREVERSED IF ORDER IS DESCENDING
0563
0564
0565
0566
0567
0568
PULS
CLR
TSTB
BEfl
INC
TSTB
X
CMEB.PCR
ISSAME
CMEQ,PCR
0569 ISSAME BGE
RECOVER POINTER
CLEAR EQUALITY FLAG
INSPECT RETURNED VALUE
AS COMPARAND
SET FLAS TO NOT ZERO
RETEST B
GOT ONE «> THAN
GOTGE
0570 iCOMP, (OR *< FOR DESCENDING)
0571 *AS COMPARAND MAS CHDOSEN FROM THIS PARTITION
0572 »A MATCH IS INEVITABLE
0573 ♦***
MDVE LI ONE RIGHT
LEAX
BRA
0574
0575
0576
0577 m
0578 Q0T6E STX
0579 RTS
1,X
CONSCN
LI.PCR
INCREMENT POINTER
CONTINUE SCANNING
SAVE NEM LI VALUE
WITH LI POINTING TO
> ITEM
0580 **#mm»»tmt»tHmm»«
0581 * SCANS FROM "RP LOOKING FOR ITEM =< THEN COMPARAND
0582 *"RI* 10 RIGHT POINTING TO *< ITEM
10F7 AE8DFD0B
0583 RSCAN LDX RI,PCR
PUT RI INTO X FOR GETPTR
10FB 3410
0584 DOSCAN PSHS X
PRESERVE RI POINTER
10FD 17FF96
0585 LBSR GETPTR
RETURNS X POINTING TO 5 BYTE
0586 * DESCRIPTOR OF STRING OR NUMBER
0587 iNOtl DO A COMPARE
1100 17014A
0588 L8SR COMPAR
RETURNS B=0 IF EQUAL,
0589 * 1 IF
ITEM > COMP
0590 tIF 8 IS -1 THEN ITEM IS (COMP
0591 • (REVERSED IF DESCENDING ORDER)
1103 3510
0592 PULS X
RECOVER RI POINTER IN X
1105 5D
0593 TSTB
INSPECT RETURNED VALUE
1104 2705
0594 8EQ ISSAM
AS COMPARAND
1108 6CBDFD3C
0595 INC CMEQ.PCR
SET TO NOT ZERO
110C 5D
0596 TSTB
RETEST VALUE IN B
U0D 2F04
0597 ISSAM BLE GOTLE
GOT ONE =( THAN COMP,
0598 tAS CONPARAND MAS CHOOSEN FROM THIS PARTITION,
0599 »A NATCH IS INEVITABLE
0600 mi
0401 t MOVE RI ONE LEFT
110F 301F
0402 LEAX -1,1
REDUCE TI POINTER
1111 20E8
0603 BRA DOSCAN
0404 ft
CONTINUE SCANNING
1113 AF8DFCEF
0405 GOTLE STX RI , PCR
SAVE NEK R! VALUE
1117 39
0406 RTS
MITH RI POINTING TO =( ITEM
0407 timtmttmtmtitttmtt
0408 i SNAP MILL EXCHANGE VALUES DESCRIPTORS
0609 »P0INTED TO BY RI AND LI
0610 tTHEN INCREASE LI AND DECREASE RI TO MOVE
0611 *PAST SMAPPED ITEMS
0412 f
1118 327B
0613 5MAP LEAS -5,5
IEMP STORAGE SPACE
IliA 6D8DFD2A
0414 TST CMEQ.PCR
CHK FOR EQUALITY TO COMPARAND
HIE 2764
0615 BEfl NOSMAP
EQUAL SO DONT SMAP
1120 AE8DFCE0
0616 LDX LI.PCR
1124 17FF4F
0617 LBSR GETPTR
GET ADDRESS OF DESCRIPTOR
1127 1F12
041B TFR X,Y
LI DESCRIPTOR ADDRESS
1129 AE8DFCD9
0619 LDX R],PCR
GET OTHER POINTER
11 2D 17FF64
0420 LBSR GETPTR
GER ADDRESS
0621 H NOM HAS ADDRESS OF RI
DESCRIPTOR
0622 MOVES X,S
SMAP THE 2 STRING DESC1PT0RS
1130 0604
t LDB #4
COUNTER
1132 A685
t. 00001 LDA B,I
GET BYTE
1134 A7E5
♦ STA B,S
MOVE IT
1134 5A
* DECB
1137 2AF9
t BPL .00001
LOOP UNTIL B NEG
0623 M0VE5 V, X
OR Fp VALUES
1139 C604
+ LDB 14
COUNTER
1I3B A6A5
+.00002 LDA B,Y
SET BYTE
210 the RAINBOW August 1983
D A
E R
What's blue and red. about an inch tall, able to leap
across a Color Computer video display in a single bound,
and destined to put Inky, Winky and Stinky out to
pasture?
Danger Ranger, the newest character from
Screenplay. That's who.
Danger Ranger isn't a clone of some moldy arcade
game. It Isn't like any video game you've ever seen. It's
faster. More challenging. More fun.
Your joystick controls Danger Ranger on his mission
to make the universe safe for Mom, Brotherhood and
The American Way. First, our hero finds himself in the
surrealistic 'Chamber of Pasha.' which consists of five
consecutive platforms. Danger Ranger has to blast his
way through radioactive bats and roving eyes to pick up
the ten keys that may spell the difference betwen survival
and death for the human race!
If Danger Ranger can muster enough skill and courage
to survive those challenges, he'll enter the 'Acid Cham-
ber. ' Here, not only do demons guard the treasure boxes
he wants to collect, but fatal drops of acid fall from the
Ceiling and rise from the floor. Not a nice way to make a
living - but it makes one heck of a video game.
Danger Ranger, from Screen Play-
Poor Winky Lucky you.
l6KTope 124.95
No Extended Basic Required
Screen Playâ„¢
1-800-334-5470
P.O. Box 3558 Chapel Hill. NC 27514
' flrvfjn ^brtf i ntfi Cnkv fnriipMM IW f rtrwiFrtJrtrfcs fif fehflrfw Carp £
CoCoDATA Enterprises
1316 Quail Avenue • McAllen, Texas 78501
Coktt Computet 16K
EXTEH0E0 BASIC
(—i—i—t—i—(—tsist^i^isisisi^i^i^!—i—i^i^i—i^r^i
"Low Cost, High Quality Software"
Color Computer Weekly, March 11, 1983
"Satisfaction guaranteed or your money back!"
• • • • • The Product Line • • • • *
GRAPHICS PROGRAM jj§^
GENERATOR I $11.95 "tst
Let your CoCo write "Syntax perfect" graphics programs for you!
Boxes, circles, arcs, ellipses, paint, and lines can all be created
while viewing the graphics screen using the arrow keys and a
tew one-key commands. Use either of four color sets in PMODE3.
Extra features like "erase", "check remaining strings space" and
optional grid marker pixels. When your graphics are complete,
GPG I will write a unique program to tape to duplicate the picture
you've created. This generated program can be edited, added to,
or merged like any other! Manual details operation.
GRAPHICS PROGRAM fO)
GENERATOR II $16.95 -eâ„¢
All the features of GPG I plus characters with a self loading
machine language module! Includes a binary screen save feature
to reproduce your graphics with text in a later program. Manual
includes Assembly Language source listing.
ELECTRICITY CONSUMPTION S>
MONITOR $10.95 -sâ„¢-
Utilize your CoCo to reduce your electric bill! Both text and
graphic presentations are used to show consumption in either
dollars or KWH. Extra features include bill projection anytime
during month and 20 day trend analysis. If you can't measure it,
you can't manage it! Sixteen page manual includes listing and
forms to record data. Printer is NOT required.
HOUSEHOLD BUDGET %S
WORKSHEET $ 6.95 -te~
Produces an up-dated monthly financial worksheet without files,
yet contractual loans are automatically up-dated with new
balances and months remaining. Budget categories and variable
expenses user defined. Includes provisions for variable income
like commissions, one time expenses and/or income. Excellent
manual includes listing, examples, form to list data. Works with
any printer. yff^v
LLIST-RITE $5.95 =
Complex, non-commented programs are much easier to follow
after using this listing utility! Multiple statements and IF. . .
THEN. . .ELSE statements are logically separated, line numbers
are set apart from text, page boundriee are observed. Works
with any printer; complete, easy to understand instruction sheet
included.
MATCH 2! $7.95
Our version of concentration. Play against the computer at
different skill levels or select two player option. Some unexpect-
ed surprises add more fun, should sharpen memory skills.
• ••••••••••••••••••
Each program ordered must include 75$ for Shipping and
Handling.
113D «7»
*
STA 1,1
MOVE IT
L13F M
t
DECS
I Ml 2Af9
t
m. .00002
LOOP UNTIL B NE6
0624
M0VE5 S, V
US1N6 STACK FOR TEMP STORASE
1142 C404
♦
LDB 14
COUNTER
1144 A4ES
t.
00003 LDA B,S
BET BYTE
1146 A7A5
♦
STA >,1
HOVE IT
1148 SA
t
DECB
114V 2AF9
t
BPL .00003
LOOP UNTIL B NES
114B 408DFCF7 0425 TST DINEN.PCR IF ZERO LEAVE SLAVE DIM
114F 2733 0424 BEQ NOSNAP
1151 1F1I 0427 TFR X,0 POINT X TO OTHER ARRAY ELEMENT
1153 A38DFCEB 0629 SUBD VPTRA.PCR
1137 E3BDFCE9 0429 ADDD ASLAVE,PCR
U5B 1F0I 0430 TFR D,I
113D 1F20 1431 TFR Y,D DO SAME FOR Y
115F A38DFCDF 1632 SUBD VPTRA.PCR
1163 E38DFCDD 0633 ADDD ASLAVE.PCR
1167 1F02 (434 TFR D,Y
8635 *N0H SWAP S BYTES
0436 MOVES X,S
1169 C604 t LDB 14
U6B A685 ♦. 00004 LDA B,I
USD A7T5 + STA B~,5
I16F 3A + DECB
1171 2AF9 ♦ BPL .00004
1637 H0VE5 r,»
1172 C6I4 t LDB 44
1174 A6A5 +.00005 LDA B,Y
1174 A78S ♦ STA B, X
1178 5A t DECB
1179 2AF9 ♦ BPL .00005
8638 MOVES S,Y
I17J C604 + LDB 44
117D A6E5 ♦.00006 LDA B,S
117F A7A5 + STA B,Y
1181 SA * DECB
1182 2AF9 + BPL .08006
1184 AE8DFC7C 8439 NOSHAP LDX L1,PCR
1188 3081 0640 LEAK 1,1
USA AF8DFC74 0641 STX LI.PCR
USE AE8DFC74 0642 LDX RI.PCR
1192 301F 8443 LEAX -1,X
1194 AF8DFC4E 0644 SIX R1,PCR
1198 324S 0445 LEAS S,S
119A 39 0644 RTS
0647 #Mf«m»H#tm*Mtt#MHi
0448 • THIS STACKS THE RIGHT PORTION QF THE PARTITION
0449 lAND PREPARES OTHER FOR SORTING
1450 •
119B AE8DFC47 04S1 RSTSTK LDX RI.PCR
119F 3001 0452 LEAX 1,1 LEFT END OF STACK PARTITION
11A1 AC8DFC50 04S3 CHPX ENDING, PCR
I1A5 2407 0654 BUS DNTSTK
I1A7 10AE8DFC54 0455 LDY ENDING.PCR SET RI8HT END
MAC 3430 0656 PSHU 4PARTTN SAVE RIGHT PARTITION
0457 ISET UP BE8IN, END1N8,LI AND Rl
I1AE EC8DFC52 0658 DNTSTK LDD LI, PCR GET LEFT POINTER
UB2 830001 06S9 SUBD 01 DECREASE BY ONE
UBS ED8DFC49 0660 STD ENDING.PCR
11B9 ED8DFC49 0661 STD RI.PCR
UBD ECSDFC3F 0662 LDD BEGIN,PCR
11C1 ED8DFC3F 0663 STD LI, PCR
11C5 39 0464 RTS
0665 tmmttmmmtmmttt
0466 t THIS STACKS THE LEFT PORTION QF THE PARTITION
0647 *AND PREPARES OTHER FOR SORTING
0468 »
11C6 10AE8DFC39 0669 LFTSTK LDY LI, PCR
11CB 313F 0670 LEAY -1,Y RIGHT END OF STACK PARTITION
11CS 10ACBDFC2E 0471 CMPY BEGIN.PCR
UD2 2306 0672 BLS NOTSTK
UD4 AE8DFC28 0673 LDX BE61N,PCR GET LEFT END
11D8 3430 0674 PSHU IPARTTN SAVE RIGHT PARTITION
0675 »SET UP BEGIN, ENDING, LI AND RI
UDA EC8DFC28 0676 NOTSTK LDD RI.PCR BET RI8HT POINTER
UDE C30001 0677 ADDD 41 INCREASE BY ONE
11E1 ED8DFC1B 0678 STD BESIN.PCR
UE5 ED8DFC1B 0679 STD LI, PCR
COUNTER
SET BYTE
MOVE IT
LOOP UNTIL' B NEG
COUNTER
6ET BYTE
MOVE IT
LOOP UNTIL B NES
COUNTER
BET BYTE
MOVE IT
LOOP UNTIL B NEG
GET LI POINTER
AND ADD ONE
AND SAVE IT
GET RI POINTER
REDUCE RI
AND SAVE IT
CLEAN STACK
212
the RAINBOW August 1983
11 £9 ECBDFC15
11ED ED8DFC15
11F1 39
11F2 EC8DFC0C
I1F6 A38DFC0C
UFA 3406
11FC EC8DFC04
1200 A38DFBFC
1204 10A3E4
12(7 3242
1219 39
120A 8D13
I20C 1F0.1
120E 17FE85
1211 31BDFBF3
1215 C604
1217 A685
1219 A7A5
1218 5A
121C 2AF9
121E 39
8681 LDD ENDING, PCR
0681 STD RI,PCR
8482 RTS
8683 ttHHttmttttmHMmtH
8684 (PARTS2 COMPARES LEFT AND RISHT PARTITIONS
1685 »LEFT PARTITION IS FROM BE6IN TO LI
8686 tRIBHT PARTITION IS FROM RI TO ENDINS
8687 PARTSZ LID ENDINS, PCR
8688 SUBD RI,PCR
8689 t D NOW HAS RIBHT PARTITION SIZE
0698 PSHS D SAVE IT
8691 LDD LI, PCR
0692 SUBD BE6IN.PCR
0693 tD NOM HAS LEFT PARTITION SIZE
0694 CHPD ,S TEHP ON STACK CARRV KILL BE SET IF LEFT>»RI6HT
0695 LEAS 2,S CLEAN STACK
8696 RTS
0697 mm RNDCNP t#*mtt
8698 tPUTS INTO CHPADD A 5 BIT DESCRIPTOR
0699 «QF A RANDOM ELEMENT IN THE RANGE BEGIN-ENDING.
0700 SUBSCRIPT IS SELECTED BY RND
0701 »THEN 6ETPTR SETS POINTER TO ITEM IN Ad).
0702 *THIS VALUE IS THEN MOVED TO CNPADD
0703 mimttiutmmtmmitt
0704 RNDCNP BSR RANDOM
0705 ID CONTAINS IN RANEE BEG IN-ENDING
0704 TFR D,X FOR SETPTR
8707 LBSR SETPTR
0708 IX NOM POINTS TO ELEMENT IN ARRAY
0789 U CONTAINS THE ADDRESS OF THE 5 BYTE DESCRIPTER
8710 *POINT Y TO CNPADD
0711 LEAY CNPADD, PCR
0712 tNON MOVE 5 BYTES
0713 H0VE5 X,Y
â–º LDB 04 COUNTER
t, 00007 LDA B,X GET BYTE
*â– STA B,Y NOVE IT
♦ DECB
t BPL .00807 LOOP UNTIL B NEE
8714 *♦ ALL DONE SO RETURN
8715 RTS
0716 mtttt*tmmt*t»m*t*t*
0717 «» THIS RETURNS A RANDOM NUMBER BETWEEN BEGIN
0718 »** AND ENDING INCLUSIVE.
8719 t»» VALUE IS RETURNED IN RES D.
0720 H» BASICS RANDOM ROUTINE IS USED BY LOADING THE
0721 ttt RANGE IN THE fAC AND EXTRACTING
0722 «t THE VALUE WITH INTCNV
0723 i*mtttt»»mittmm*tti
0724 CALCULATE RANGE
121F EC8DF8DF
8725 RANDOM LDD ENDINS, PCR
1223 A3BDFBD9
8726
SUBD BEGIN,PCR
1227 C38081
8727
ADDD 01
MAKE ACTUAL COUNT
0728
fPQINT I AT FAC
122A 8E004F
0729
LDX »FAC
122D 17FC8F
0730
LBSR INTRL
HAKE IT REAL AS IN MEMORY
0731
* FIX FOR FAC FORMAT
1230 A601
0732
LDA 1,X
GET 2ND BYTE
1232 A705
0733
STA 5,1
STORE IN 6TH
1234 8A80
0734
ORA Ml 0000000
SET BIT 7 TO 1
1236 A701
0735
STA 1,X
PUT IT BACK
0736
t NOW CALL RANDOM ROUTINE
1238 3440
8737
PSHS il
PRESERVE PARTS POINTER
123A BD8F1F
8738
JSR RND
0739
* SET VALUE IN D WITH INTCNV
123D 8E004F
0740
LDX IFAC
ENSURE X POINTING AT FAC
1240 BDB3E1
0741
JSR INTCNV
1243 3348
0742
PULS U
RECOVER POINTER
0743 'RANDOM NUMBER IN RANGE
IS NOW IN D
1245 830001
8744
SUBD 11
REDUCE TO ZERO BASE
1248 E3BDFBB4
0745
ADDD BEG1N.PCR
ADD OFFSET
0746
* RESULT IS IN D
1Z4C 39
0747
RTS
0748
l
0749
tm*»imtf»mm*»»}*mc
0750
t
0751
tttfi COMPARE ttttttttt
0752 »ENTRY1 X POINTS TO 5 BYTE STRING
0753 »DESCR!PTQR OF ITEM
0754 * Y TO 5 BYTE DESCRIPTOR OF COMPARAND
0755 » SORTYP IS 8 FOR STRING COMPARE 1 FOR NUMBER
0756 *
0757 tEXIT!
0758 » SORDER=B SORDER=l
0759 * B = -1 IF ITEM < COMP. / ITEM> CQMP.
0760 i B * IF ITEM = COMP, / ITEM * COMP.
0761 t B* 1 IF ITEM > COMP./ ITEM < COMP.
0762 immmm»m»»»*m
0763 » SEE IF STRING OR NUMBER COMPARE
0764 »BY CHECKING SORTYP
124D 6DBDFBF6
0765 COMPAR TST
SORTYP,PCR
1251 2704
0766
BES
STRG
0767
UTS A NUMBER COMPARE
1253 BD39
0768
BSR
CMPNUM
1255 202F
8769
BRA
QRDCHK
CHECK ORDER OF SORT
0770
>«*t»»m
1257 6D8DFBE6
0771 STR6
TST
I FLAG, PCR
SPECIAL OR REGULAR SORT
125B 270D
0772
BES
REGLR
REGULAR
12SD CC0004
8773
LDD
14
PRESET I COUNT TO
1260 ED8DFBE6
0774
STD
ICOUNT.PCR
SKIP FIRST 2 ELEMENTS
1244 17FD9D
0775
LBSR
DATAGT
GET FIRST VALUES FROM ARRAY
1267 5D
0776
TSTB
1268 270A
0777
BEQ
STRCMP
126A 6F8DFBDE
126E 86FF
1270 A78DFBD9
1274 1700A1
1277 260D
1279 E6BDFBC4
127D 2707
127F 17FD82
0778 *60T HERE BECAUSE B-l AS NO DATA IN ARRAY
0779 •SCSTRT t SCEND ARE BOTH SO SET
0780 tSCEND TO 255
0781 REGLR CLR SCSTRT, PCR
0782 LDA 0255
07B3 STA SCEND, PCR
0784 STRCMP LBSR CMPSTR
0785 BNE QRDCHK BOB SO STRIN6S NOT EQUAL
0786 iTHEREFORE CHECK NO FURTHER
07B7 *IF REGULAR SORT WE'RE DONE
0788 LDB IFLAG,PCR
0789 BEO ORDCHK
0790 LBSR DATAGT GET NEXT VALUES
0791 *FOR STRING COMPARE RANGE
Spectral Associates
Ghost Gobbler
Planet Invasion
j\_ Spate Rate
'& GallaxAttax
$19.95 ea.
Tom Mix Software
'Donkey King (32K)
$24.95
Space Shuttle (32K)
$28.95
Anteco Software Soft Sector Marketing
Intergalactic Force $24.95 Color Caterpillar,
Pinball $24.95 ^gti\ Death Trap
(Available in Rom Pac) >«.■■■— ^,..,...,i
$29.95 ea.
(Available in Rom Pac Only)
8 Ball $29.95
Whirly Bird Run $29.95
Ghost Gobbler $27.95
jjpNXTrap Fall. Frog
$27.95
Datasoft, Inc.
Zaxxon (32 K) J3S^S' $35.95
Moon Shuttle .$3*95" $31.45
Mark Data Products
Super Pro Keyboard
$69.95
"Astro Blast, Cave Hunter
and Haywire
$24.95 ea.
Computerware
Doodle Bug
$24.95
Rail Runner
$21.95
Prickley-Pear Software
tlCN 1 Shaft J$3*»5 $21.20
•Vikings, "Flight (32K), Jungle
jSJftSS $16,95 ea.
"Also available on disk (32K) at extra charge â– â– !
All programs 16K on cassette unless otherwise stated ^^fjSA
Send forfree complete catalog and descriptions! ! ^^^^^
WE pay postage.YOU save money! (in the U.S. and Canada)
TN residents add 6.25% sales tax, C.O.D orders add$ 1 .00
(615) 875-8656 • P.O. Box15892 • Chattanooga. Tn 374 15
TOtHti
August 1983 the RAINBOW 213
1282 5D
1283 27EF
128S SF
1284 atwmr
128A 2711
128C 50
128D 39
1792 iB COMES SACK"* IF DATA AVAILABLE
1793 TSTB
StRCMP
128E 3271
COMPARE NEXT RANGE
AS STRINGS ARE EQUAL
REVERSE POLARITY
0794 BED
1795 CLRB
1796 mttmittt
0797 ORDCHK TST SBRDER.PCR
1798 BEB CONEXT
0799 NEGB
0900 COMEXT RTS
0801 intittittimimtiimti
M02 •••♦• CHPNUH mm*
1803 it COMPARES 2 FLOATING POINT NUMBERS
0804 ii "A" POINTED TO BY X
0805 i» "B 1 POINTED TO BY Y
IBB6 iREG B RETURNED AS FQLL0NS:
1887 t A=B RES B =0
0808 i A>B RES B =1
0809 i A<B RES B -1
1810 ttHtmittttmittitmmtt
JSI1 « FIRST SEE IF BOTH ARE ZERO
«8i2 CHPNUH LEAS -3,S MAKE ROOM FOR
0813 IS1SN FLAG AND TEMP STORAGE
1291 4FE4
0B14
CLR
,s
CLEAR SIGN FLAG
0915 tON THE STACK
1292 4084
0816
TST
,1
EXPONENT
1294 2608
0817
BNE
ANOT0
1296 6DA4
0818
TST
.r
1298 2614
0819
BNE
6NOT0
129A 5F
0820
CLRB
BOTH 2ER0
129B 3263
0821 LEAVE
LEAS
3,5
REMOVE SIGN FLAB i TEMP STORE
129D 39
0822
RTS
IB23 ♦♦mil
0824 >A IS NOT ZERO
129E 60A4
0825 ANOT0
TST
,T
EXPONENT B
12A0 2412
0B26
BNE
ABNOT0
NEITHER ARE ZERO
I2A2 6D01
0827
TST
Ii*
LOOK AT SIGN OF A
12A4 2A04
0828
BPL
BPOSTV
12A6 C6FF
0829 BHINUS LDB
1-1
12A8 20FI
0830
BRA
LEAVE
WLS NEST
SOFTWARE
' WE GIVE A HOOT '
16K EXTENDED BASIC UNLESS NOTED.
LABEL 111 — develop and maintain a mailing list. — ^
Print lists or labels in your choice of 1, 2, or 3 wide. W^>!\
RAINBOW
Supports 3 or 4 line addresses phone optional, ~"T£—
$19.95
PROGRAM FILE — organize your cassette files.
Create and maintain a four field file. Search, sort,
modify, delete, and display on screen or printer.
$1495
DISASSEMBLER - ASSEMBLER (by Dynamic
F.lerrronirs} Designed for the beginner u/ho wants to
learn to write machine language programs.
(EXTENDED BASIC NOT REQUIRED)
$19.95
CASSETTE TAPES C-05
$7.50 - Dozen $9 .50 - DOZEN WITH BOXES
PLEASE ADD $1.50 PER DOZEN
SHIPPING HANDLING
VISA*
OWLS NEST SOFTWARE
P O BOX 579
OOLTEWAH. TN 37363
LOCK AT SISN OF 3
1831 Hint
12AA C601 0832 BPOSTV LOB #1
12AC 2IED 0633 BRA LEAVE
0834 iiiiii
0835 < A IS ZERO B IS NOT
12AE 6D21 0836 BNOT0 TST 1,Y
1280 2AF4 0837 BPL BHINUS
I2B2 20F6 0838 BRA BPOSTV
0839 miitmimmmmitmi
0840 INEITHER A NOR B ARE ZERO
12B4 6D01 0841 ABNOT0 TSf 1,1 IS A NEB?
12B6 2A08 0842 BPL APOS
8843 lA IS NEGATIVE IS B?
12B8 6D21 0844 TST 1,Y
12BA 2AEA 0845 BPL BHINUS
0844 IB IS NE6ATIVE SO BOTH ARE
128C 43E4 0847 COM ,S SISN FLAG SET
12BE 2004 0848 BRA EXPCHK NOW CHECK EXPONENTS
0S49 mnmmmmitmm
0850 lA IS POSITIVE
12C0 4D21 0851 APOS TST i,Y IS B NEG?
12C2 2BE6 0852 BMI BPOSTV
0853 iBOTH POSITIVE SO LEAVE SFALG CLEAR
0B54 limtimmiimnmii
0855 »NOH CHECK EXPONENTS.
0856 * BONT FORGET SISN IS REVERSED
12C4 4D84
0857 EXPCHK TST , X
A EXPONENT NEG
12C4 2A16
0858 BPL AEXPNG
0839 tA EXPONENT IS POSITIVE
BRANCHES IF NEG
12C8 6DA4
0860 TST ,Â¥
B EXPONENT NEG
12CA 2A3C
0861 BPL BPOSCK
BRANCH OF NEGATIVE
0862 iA AND B EXP ARE POSITIVE
0863 iLOAD AND COMPARE
12CC E6A4
0864 LDB ,Y
SET B IN ACC
12CE C47F
0845 flNDB 0101111111
REMOVE SIGN BIT
12D0 E761
0866 STB 1,S
ON STACK
12D2 E684
0867 LDB ,X
GET A IN ACC
121)4 C47F
0868 ANDB 1101111111
12D4 E161
0849 EXPCHP CMPB 1,S
ON STACK
12D8 2E2E
0870 BST BPOSCK
A)B
12DA 2D30
0871 BLT BNEBCK
0872 lEXPQNENTS ARE THE SAME
A<B
12DC 200C
0873 BRA EXPEQL
0874 imimmmmmmmm
0875 iA EXPONENT IS NEGATIVE
12DE 6DA4
0874 AEXPN6 TST ,Y
TEST B EXPONENT
12E0 2B2A
0877 BMI BNEGCK
BRANCH IF POSITIVE
12E2 £684
0878 LDB , X
BET A EXPONENT
12E4 E761
0979 STB 1,S
TEMP VALUE ON STACK
12E4 E6A4
0880 LDB ,Y
SET B EXPONENT
12E8 20EC
0881 BRA EXPCMP
0882 lEXPQNENTS ARE REVERSED IN A AND B SO SAME CHECK
0883 iCAN BE DONE
9884 iiiti(i»(i»tiiniii»H
0885 lEXPQNENTS ARE EQUAL SO COMPARE MANTISSA
0884 iRENEMBER MS BYTE HAS A SIGN BIT
12EA EC21
0887 EXPEQL LDD l.Y
MSB OF B AS 16 BITS
12EC 947F
088B ANDA #101111 111
REMOVE SIGN BIT
12EE ED61
0889 STD 1,5
SAVE ON STACK
I2F0 EC01
0890 LOS 1, X
GET MSB OF A AS 16 BITS
12F2 847F
0891 ANDA 1101111111
REMOVE SIGN
12F4 10A361
0892 CMPD 1,S
VALUE ON STACK
12F7 2E0F
0893 BGT BPOSCK
A>B
12F9 2D1I
0894 BLT BNEGCK
0895 iTHESE ARE EQUAL DO NEX1
A<B
12FB EC03
0894 LDD 3,1
GET LAST 2 BYTES OF B
12F1 10A323
0897 CMPD 3,Y
COMPARE WITH THAT OF B
1300 2E06
0898 BGT BPOSCK
A>B
1302 2D08
0899 BLT BNEGCK
0900 IBOTH NUMBERS ARE SANE
A<B
1304 5F
0901 CLRB
1305 16FF93
0902 LBRA LEAVE
0903 XHHHWIIHHHHtHW
1309 C601
0904 BPOSCK LDB tl
130A 2002
0905 BRA SGNCHK
130C C6FF
0904 BNEBCK LDB 0-1
130E 6DE4
0907 SGNCHK TST ,S
SIGN FLAG
1310 1027FF87
0908 LBEQ LEAVE
1314 50
0909 NEGB
214
the RAINBOW August 1983
1315 16FF83 0911 LBRA LEAVE
(911 Mtlttttt»ltt«*t»»ttit<»»t
(912 iHitt CHPSTR Hum
(913 * COMPARES 2 STRINGS At AND Bt
(914 » RE6I5TER B RETURN RESULT AS FOLLOWS:
(915 t
(916 » At>Bt REE B'l
(917 I At<Bi B»-l
(918 t AMBt B*0
(919 mtmmmmmnt»«t*»»tt
(92( * RES II POINTS TO DECRIPTOR OF At
(921 * RE6 Y TO THAT OF It
(922 »*M»m**»mt*mmm«»»
131B 343» (923 CHPSTR PSHS l,Y PRESERVE POINTERS
(924 tREVISE STRING LENGTH BASED ON
(925 tSCSTRT AND SCENT)
131 A A6SDFB2F
(926
LDA
SGEND,PCR
131E A18DFB2A
(927
EHPA
SCSTRT,PCR
ARE POINTERS CROSSED?
1322 255B
0928
BLO
B2ER0
NO STRING IF SO
1324 1F89
(929
TFR
A,B
SET UP B FOR LATER
1321 A184
(930
CMPA
i«
SCEND KITH STRING LENGTH
1328 24(4
(931
BHS
CUT
STRING SHORTER THAN SELECTED RANGE
132A 8801
0932
ADDA
11
ADJUST TO 1 BASE
132C 2002
0933
BRA
RN6ADJ
FIX START POINT
132E A6B4
(934 CUT
LDA
,x
GET STR LNSTH FROM HEADER
1330 A08DFB1B
(935 RN6ADJ SUBA
SCSTRT.PCfi
REMOVE START POINTER
1334 2401
(936
BHS
8TZER0
RANGE > 2ERO
1336 4F
0937
CLRA
SET RAN6E TO ZERO
1337 E1A4
0938 6TZER0 CBPB
.»
SCEND WITH LENGTH OF B
1339 24(4
(939
BHS
READJ
TOO LONG
133B CB01
(940
ADDB
#1
SET TO 1 BASE
133D 2002
(941
BRA
ADJRNG
REMOVE START POINTER
133F E6A4
0942 READJ
LDB
iV
GET B COUNT FROM HEADER
1341 E0BDFB07
(943 ADJRN6 SUBB
SCSTRT.PCR
BEHOVE START POINTER
134S 24(1
(944
BHS
SETADD
RANGE >*t
1347 5F
0945
CLRB
SET RANGE TO 2ER0
1348 34(6
0946 SETADD PSHS
A,B
ONTO STACK
0947 * B IS AT 1,S , A IS AT (,S
(948 ♦ NQM GET ADDRESS OF EACH STRING
0949 (UNTO X AND V
134A 4F
(950
CLRA
134B E68DFAFD
0951
LDB
SCSTRT,PCR
LOAD START OFFSET
134F E302
0952
ADDD
2,1
1351 1F01
8953
TFR
D,l
1353 4F
0954
CLRA
1354 E68DFAF4
0955
LDB
SCSTRT.PCR
1358 E322
(956
ABDD
2,Y
135A 1F02
0957
0958
TFR
t
D,Y
0959
•START COMPARISON LOOP
135C ADE4
0960 CONLOP TST
,s
ANY HORE CHARACTERS IN A?
135E 271B
0961
BEQ
AEHPTY
NO SO BRANCH
0962 IHORE LEFT IN At
"360 6D61
0963
TST
1,3
ANY LEFT IN Bt?
1362 2713
0964
BEG
Bl
NO SO A«>Bt
(965 IHORE IN Bl TOO 50 COMPARE NEXT CHARACTER
1364 6AE4
0966
DEC
.«
DECREASE COUNT OF At
1366 6A61
0967
DEC
liS
DECREASE COUNT OF Bt
1368 A&80
(968
(969
LDA
• INCREMENT 11
,»♦
GET NEXT CHARACTER AND
136A A1A(
0970
CHPA
,1*
COHPARE WITH NEXT IN Bt
136C 27EE
0971
BED
CONLOP
SANE
136E 2207
(972
BHI
Bl
1370 C6FF
(973 BNIN1 LDB
1-1
1372 3262
(974 FINSH LEAS
2,5
CLEAN UP STACK
1374 3530
(975
PULS
V
RECOVER POINTERS
1376 39
(976
RTS
1377 C601
0977 Bl LOB
11
1379 20F7
0978
0979
BRA
tm»
FINSH
137B 6D61
(980
AEMPTY TST
1,5
IS B EMPTY
137D 26F1
0981
BNE
BHIN1
NO SO At<Bf
0982
*YES SO A*=Bt
137F 5F
0983
B2ERO CLRB
1380 20F0
0984
BRA
FINSH
(985 mmHtmttt«tt»t»tt*tm
(986
Mm EASISORT ihiiihh
(987
* SORTS ITEMS BETWEEN BEGIN V ENDING
0988
♦INCLUSIVE USING A FASTER ROUTINE FOR
1382 3440
1384 327B
1386 1F43
1388 AE8DFA74
138C 3410
138E AEE4
1390 3001
1392 AFE4
1394 AC8DFA6A
1398 2305
139A 3267
139C 3540
139E 39
139F 17FCF4
13A2 1F12
13A4 313B
13A6 3410
13A8 17FEA2
13AB 3510
13AD 511
13AE 2ADE
1380 318DFA54
13B4 C604
13B6 A685
13B8 A7A5
13BA 5A
13BB 2AF9
13BD 6D8DFA85
13C1 2719
13C3 3410
13C5 1FK
13C7 A38DFA77
13CB E38DFA75
13CF 1F01
0989 (SHALL GROUPS
(990 t#»*tmn
0991 E2SORT PSHS
(992 LEAS
0993 TFR
(994 LDJ
(995 PSHS
(996 UPSCAN LDX
0997 LEAK
0998 ST!
(999 CMPX
1(00 BLS
1(01 LEAS
1002 PULS
1(03 RTS
1((4 ttfmmttmttmt
1005 NOTEND L8SR 8ETPTR
U
-5,S
S,U
BEGIN, PCR
X
,S
1,1
,S
ENDING.PCS
NOTEND
7,8
1006
1007
10(8
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
TFR
LEAY
PSHS
LBSR
PULS
TSTB
BPL
LEAY
MOVE5 X,Y
LDB 14
00008 LDA B,X
STA B,Y
DECS
BPL
TST
BEfi
PSHS
TFR
SUBD
ADDD
TFR
1,1
-S|Y
X
COHPAR
X
UPSCAN
CNPADD,PCR
DIHEN.PCR
SHFT
X
i.i)
VPTRA.PCR
ASLAVE.PCR
0.1
PRESERVE STACK PTR
TEMP STORAGE
POINT U TO IT
LEFT SUBSCRIPT
ONTO STACK
6ET VARIABLE 'V
INCREMENT K
AND SAVE IT
ARE HE AT END?
CLEAN STACK
RECOVER STACK POINTER
AND RETURN
ADDRESS OF AtlKl IN X
HOVE TO Y
POINT Y AT At(K-l)
PRESERVE At(K) ADDRESS
DO A COMPARE
RECOVER AtfKl ADDRESS
LOOK COHPARE RESULT
At(m*At(K-l)
POINT Y AT COMADD
PUT AttK) IN TEMP
COUNTER
BET BYTE
MOVE IT
LOOP UNTIL B NEG
DONT SNAP SLAVE
SAVE At(K) PTR
POINT TO
SALVE ELEMENT
STATES **EXPANDED**
** STATISTICAL ANALYSIS PROGRAM, THHT CALCULPTES^nEAN, "UARANCE,
AND STANDARD DEVIATION FOR BOTH SADPLES OR POPULATION
PERPUTATWN AND COnBINATIONS.F »nd T TEST.QJRUE FITTING,
i-INEAft,E;xp. ,i-OG. ,POUER EAST nDDIFlCATIDN OF STORED DATA,
TOfipinE TUO FILES, ETC. USER FRIENPLrj CASSETTE $24 95
COLOR GRBPIC PRINTER UTILITES
UriLITES FDR RADIO -SHACKS CGP-1 13, COLOR GRAPIC PRINTER/PLOTTER
WORD FROCESSOR--SUPFDRTS EnSEDPEP CONTROLS FOR PRINT SUE OR COLDS
RIGHT JUSTIFICATION. DESIGNED JUST FOR THE CQP-115
SCREEf PRINT PROORAP TRUE FOUR LULDR PRINT OUT. UORKS IN PflDDE 3
OR t TDU UDfl'T BEtEUE TME DETAILS
DRAWING SDARD ETCH-A-.5KETCH FOR THE PRINTER. ANT COLOR, EAST
ccwectidps rBSSErTE $24.95
REO.E><T. BASIC
Tfl
RELOCATE
KELOCflTE HAKES AUTOPATie TAPE COPIES OF ANT COLOR COPPUTER
CARTRIPOE. ALLCUS CHANGES TO BE PP43E TD TME PROGRAM SUCH AS
rPRJNT-OUT *UIDEDTE?<, CHANGE BAUD RATE IN *SCRIPSIT, ECT. J
REQUIRES EITHER p. 64K nop. Of! A 1BK OR LARGER COPPUTER KITH A
CARTRIDGE PEPPRT EXPANSION DF 1K OR LARGER. UERT EAST TD USES
3NCE FPPILIAR UUH THE PRDGRAP, COPIES CAN BE HADE IN LESS THEN
FDURmWT " CASSETTE $24.95
C0fiPTERI2ED PLflRn STSTEHS
..et CuCo watch tqur pause umile tdu are aupt. less than tuentt
DOLLARS CF RADIO SHACK COJIPONENTS. PLANS AND SOFTWARE.
"1RITE FOR DETAILS
r -T HI_S A D TTFESET UITH THE CDLD^ GRAPIC PRINTER]
^~ *' " " *~ " "" ' â– . -r -. ..... [ j . , | lill IHI I â– !â– !â– â– â– | â–
Tr^nstion Technology
1458 Ul. BIRCHUOOD F)UE.
CHICAGO IL 60626
*1.SB SNIPING AND HPNDLIN8 C.O.D. EXTRA
PLEASE SPECIFT
STESTEn
lBK-niN
*TANDT Corp
August 1983 the RAINBOW 215
1022
J10VE5 X,U
SAVE TEMPORARILY
13D1 C404
+
LIB
14
COUNTER
13D3 A6B5
♦
00009 LDA
B,X
GET BYTE
13D5 A7C5
+
STA
B,U
MOVE IT
13D7 5A
t
DECB
13D8 2AF9
t
BPL
.00009
LOOP UNTIL B NEC
13DA 3510
1023
PULS
X
RECOVER PTR
1024 i
J HAS ADDRESS OF AKJ)
13DC 1F12
1025
>HFT TFR
X,Y
POINT Y 8 AKJ)
13DE 301B
1026
LEAK
-5, J
POINT X £ At(J-l)
1027
^AND REDUCE FOB NEXT PASS
1028
H0VE5
X,Y
A»tJ)=Af (J-l)
I3E0 C604
♦
LDB
*4
COUNTER
13E2 A685
t
00010 LDA
B,»
GET BYTE
13E4 A7A5
t
STA
B,V
WOVE IT
13E4 5A
+
DECS
13E7 2AF9
+
BPL
.00010
LOOP UNTIL B NEG
13E9 3410
1029
PSHS
X
SAVE ASM) ADDRESS
13EB 6D8DFA57
1030
TST
DIHEN.PCR
IF ZERO DQNT DO
13EF 2721
1031
BEQ
NXSNFT
SLAVE SWAP
13F1 iFll
1032
TFR
M.
13F3 A38DFA4B
1033
SUBD
VPTRA,PCR
13F7 E3BDFA49
1034
ADDD
ASLAVE.PCR
13FB 1F01
1035
TFR
D,»
13FD 1F20
1036
TFR
Y,D
13FF A3SDFA3F
1037
SUBD
VPTRA,PCR
1403 E38DFA3D
1038
ADDS
ASLAVE.PCR
1407 1F02
1039
TFR
B.y
1040
NQVE5 X, Y
1409 C604
+
LDB
#4
COUNTER
I40B A685
t
00011 LDA
B,X
GET BYTE
1481) A7A5
f
STA
B,Y
MOVE IT
140F 5A
t
DECB
1410 2AF9
+
BPL
.00011
LOOP UNTIL B NEE
1412 AE8DF9EA
1041 !
USHFT LDX
BEGIN, PER
set begin subscript
1416 17FC7B
1042
LBSR
GETPTR
SET ITS ADDRESS
1419 ACE4
1043
CHPX
,s
COMPARE KITH AKJ) ADDRESS
141B 2712
1044
BED
SLOT IN
AT START OF PARTITION
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
BATTLE of IITTTIBIBI
B Strategy Same
for mature Players
^•'''•'^oooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
STOP REBEL INVADERS
OR DIE!
SoooooeoooooooooooooooooooooooooooooooooOooooooooooooooo<x>ooooo j
x ^
CD 1-
co
CD o
\ /
s* /to
/•••■•, ,fB|— T5„
X
<&â–
/ "... ^XV-^L-'
o
to N>
to p
(0 CD
CD
.0*0000000000000o00O00O0000000000000000000O0O000000O0000000O0C3O \
;©PTWRl©i
P.O. Box 3504
Austin, Texas: 78764
(512)-444-6135
216 the RAINBOW August 1983
141D AEE4
1045 LDX
iS
RECOVER AKJ) BUT LEAVE ON STACK
141F 301B
1046 LEAK
-5, X
HOVE TO A»(J-il
1421 3180F9E3
1047 LEA
CHPADDpPCR
POINT Y t CflHADD
1425 17FE25
1048 lBSS
COMPAR
COMPARE AKJ-1) MITH TEliP
142B SB
1049 TSTi
LOOK AT RESULT
1429 2B04
1050 Bill
SLOTIN
FOUND RIGHT SLOT
142B 3510
1051 PULE
X
RECOVER AKJ) ADDRESS
142D 20AD
1052 BRA
1053 *******
SHFT
CONTINUE SHIFTING UP
142F 3510
1054 5L0TIN PULS
X
RECOVER AKJ) ADDRESS
1431 31B0F9D3
1055 LEAY
CHPADD.PCR
POINT y 6 COHADD
1856 MOVES Y,X
MU)=TEItP
1435 C604
* LDB
14
COUNTER
1437 A6A5
K00012 LDA
B,Y
GET BYTE
1439 A7B5
* STA
B,I
HOVE IT
143B 5A
*â– DECB
143C 2AF9
* BPL
.00012
LOOP UNTIL B NEG
143E 6D8DFA04
1057 TST
DIMEN.PCR
DQNT DO IT OF ITS
1442 1027FF4B
105S LBEQ
UPSCAN
1446 1F10
1059 TFR
I,D
1448 A38DF9F4
1040 SJBD
VPTRA,PCR
144C E38DF9F4
1061 ADOD
ASLAVE.PCR
1450 1F01
1062 TFR
D,l
1063 N0VE5 U,X
SET TEMP INTO ARRAY
1452 C604
f LDB
44
COUNTER
1454 A6C5
♦.01013 LDA
8,0
GET BYTE
1456 A785
t STA
i.I
MOVE IT
1458 5A
t DECE
1459 2AF9
♦ BPL
.00013
LOOP UNTIL B NEG
145B 16FF30
1064 LBRA
UPSCAN
1065 ttmmmitmmmtm
1066 NAM
QSORT
1067 TTL
QUICKSORT BY COLIN J. STEARHAN
0E4E
106S END
SSQRT
NO ERROR IS) DETECTED
SYMBOL TABLE
.00000 0EAA
.00001 1132
.00002 113B
.00001 1144
.00004 116B
.00005 1174
.00006 117D
.00007 1217
.00008 13B6
.00009 13D3
.00010 13E2
.00011 140B
.00012 1437
.00013 1454
ABNOT0 12B4
ADJRMG 1341
AEMPTY 137B
AEXPN6 12DE
AGAIN 0ECC
ANOT0 129E
AOK 0F92
APOS 12C0
ARYCHK 105F
ASCND 0F2C
ASLAVE 0E44
Bl 1377
BASIC B4F4
BEGIN 0E00
B1DIH 0FA0
BfllNl 1370
BNINUS 12A6
BNESCK 131C
BNOT0 12AE
BPOSCK 1308
BPOSTV 12AA
B2ER0 137F
CALCRG 0F2E
CALERR 0FB0
CALLOK 0E5C
CHKTYP 0F04
CKDIMN 0FDB
CKSIZE 0E62
CNEQ 0E4B
CilPADD 0E09
CHPNUM 128E
CNPSTR 131B
COMEXT 128D
CDMLDP 135C
COMPAR 124D
CONSCN 10D6
CROSS BESS
CUT 132E
0ATA6T 1004
DIMEN 0E46
DINOK 10BC
DNTSTK HUE
DOSCAN 10FB
ENDING 0E02
EXIT 0E56
EXPCHK 12C4
EXPCNP 12D6
EXPEBL 12EA
EZSORT 1JB2
EZSRT 0E9F
FflC 004F
FINSH 1372
QETDIfl 0F5A
6ETNUM 0EA4
BETPTR 1094
SDNOUT 1093
GOTERR 0F03
GOTGE 10F2
SOTLE 1113
60TVAL 101F
BTZERO 1337
ICOUNT 0E4A
IFLAG 0E41
IISNUH 0F0B
1NIT 0EE1
INTCNV B3ED
INTRL 0EBF
ISI20K 0F83
ISSAH 110D
ISSAME 10EC
IVALS 0F6E
LEAVE 129B
LFTSTK UC6
LI 0E04
LSCAN 10CE
MDVE5 1ACR0
NTPTR 0E3D
MULT5 109F
NAHEQK 107B
NINERR 0F9O
N1S0K 0F47
NODATA 105C
NOSTAK 1002
NOSWAP 1184
NOTENL 139F
NGTSTK 11 DA
NTHIBH 1058
NTZERQ BECB
NXSHFT 1412
NXTPRT 0E92
NXTVAL 1026
DRDCHK 1286
PARTSZ 11F2
PARTTN 0030
POPSTK 10B7
BSORT 0E4E
RANDOM 121F
READJ 133F
REGLR 126A
RETRN 1023
RGTSTK 119B
RI 0E06
RIGHT 0EBF
RND BFlF
RNDCKP 120A
RNGADJ 1330
RSCAN 10F7
SCAN 0E71
3CENJ 0E4D
3C3TRT 0E4C
SETADD 1348
SGNCHK 130E
SHFl 13DC
S1ZBAD 0F42
SIZOK 0FE4
SLOTIN M2F
SORDER 0E49
SORTYP 0E47
STACK 0E0D
STRCMP 1274
STRG 1257
STRING 1081
STRVAL 0F6A
SNAP 1118
TWODIH 1091
UNSTCK 10AE
UPSCflN 13SE
VALUES 1014
VPTRA 0E42
VPTRI 0E3F
KARG 0002
C«D=BSORT.DAT/P
^
DO YOU HAVE CO|\|TroL ?
THEN TAKE COMMAND WITH WICO!
w
r i
,<3*
COMMAND
CONTROL
ADAPTOR
Use one or two
joysticks. WICO
Adaptor need for all
Joysticks
♦17.95
WICO
FAMOUS
RED BALL
Instant-action dual
fire buttons.
Pinpoint accuracy.
♦34.95
WICO
JOYSTICK
15-9714
Unmatched accuracy,
sensitivity and
durability.
♦.29.95
WICO
TRACK
BALL
360° movement, the
ultimate in Arcade
Play.
"65.95
FROM "SHELL"
DEATH STAR
Use the force and
save the princess
(Review in April's Rainbow)
32K/EXT *19.95
SONAR SEARCH
16K/EXT
Using sonar and depth
charges find and destroy
enemy ships.
♦18.95
r^> BATTLE STATIONS
- r 16K/EXT
A two computer strategy
game. Two players trade shots
from computer to computer.
Also single player mode.
No hardware modifications.
♦21.95
TWIXT 16K/EXT
5uild a fence between your
boarders while blocking
your opponents attempts
to do the same.
♦18.95
FERERATION BOOT
CAMP 16K/EXT
You've been drafted for
16 wks. Four games in one
can you hack it?
♦18.95
EXTERMINATOR
16K/EXT
With your can of "RAID"
you fight back the
insect attack.
♦18.95
FROM ADVENTURE yjU
INTERNATIONAL "^tSf
FIRE COPTER ^^
It's your job to stop the arsonist
and put out the fires before the
city burns down. 3-dimentional
16K/ML *24.95
Â¥
SEA DRAGON
32K/ML *34.95
Pilot your submarine
against all sorts of dangers
and destroy the reactor in
the underwater cave.
FROM
TOM
MIX
THE KING
32K/ML
4 full screens.
Just like arcade
•24.95
TRAP FALL
16K/ML
The "pit falls" in this game
are many. Hidden Treasures
great graphics
♦27.95
QUICK SHOT
Deluxe Joystick
Controller.
Rubber Suction Cup
Footing.
♦19.95 ea./
♦34.95 pr.
w
GRAB N CHASE
16K/EXT
An armored car has lost
its cargo. Who will find it
first? The cops or Robbers?
'18.95
$ $ NOW ON SALE $ $
Pro/Writer Printer-8510 A
LIST SALE
Primer '4SS.0C <439 95
Package
tnteifoce C9.00 6G 95 '489 95
VISA/MC add 3% Snip/ handling & insurance add $10 00
SUPER
JOYSTICK
Controller Retractable
Cable. Two FIRE
Buttons.
♦19.95 ea./
♦34.95 pr.
STAR RAID
16K/EXT
Dock with your base
station to fuel up and
fight the attacking aliens.
•18.95
POINT
MASTER
Fast and Rugged
for those who
Game Seriously.
♦17.95 ea./
♦32.95 pr.
FROM DATA SOFT
ZAXXON
32K/ML
The official arcade
version.
•39.95
COMMODORE
»14.95Each
2/'24.95
MOON SHUTTLE
16K/ML
A super high action
arcade game.
A MUST.
•32.95
SPACE SHUTTLE
32K/EXT
Full instrumentation!
Actual simulation of
space flight.
•28.95
yjW GRABBER
"V»j^- 32K/ML
^\^ Your job is to grab the 8
treasures and store them in the
center boxes. Outstanding
sound. Super high res graphics
♦27.95
TTT
TRIGA
COMMAND
Adult Size Joystick
with Real Conquering
Power.
♦19.95 ea./
♦34.95 pr.
SNOOPY & THE
RED BARRON
16K/EXT *18.95
A hi-res graphic "Dog"
fight. Recommended for
kids.
New from WICO
THE BOSS!
Newly Engineered
Custom Grip
Awesome
Performance
♦24.95
FROG
16K/ML
A realistic rendition of
the arcade classic!
Lots of action.
•27.95
10% DISCOUNT
Mention this ad
And Order By Check Or M/O
***IF IT'S NOT GOOD, WE DON'T SELL IT***
DEALER INQUIRIES WELCOME
S & S ARCADE SUPPLIES
8301 Sarnow Dr./Orlando, FL 32807
9 to 5 EST (305) 894-1887 - Evenings (305) 275-8490
USA Orders under $50 - Add $2.50
OTHER Orders Add $5.00 ship/hnd
Fla. Residents add 5% sales tax.
Visa/MC Add 3%
NO C.O.D. ORDERS
GAME
16K
ECB
Missile Barrage
Wei), there I was, nervous before I even began. 1
anxiously pressed CLOAD and ENTER and
there before my eyes was a mountainous war field
with my opponent shielded in the mountain range. I entered
my coordinates — "Meet your destiny, moose breath!"
If you'd like to set your sites on an exciting game of skill
and combat, then head for the hills, put on your battle
helmets and get ready for Missile Barrage. This is a deliber-
ate game of strategy in which you and five friends can
declare war on each other. Missile Barrage, requiring I6K.
with Extended BASIC, piovides a combat arena of 60
assorted mountain ranges with color and sound.
Each soldier's site is embedded in the mountain range. By
entering the coordinates for angle and velocity, you guide
your missile to wipe out your opponent(s). Sound easy?
Well, Missile Barrage requires concentration and time for
you to acquire a keen sense of strategy. For instance, if you
set the coordinates, for an opponent and miss, your enemy
may figure out your erroneous calculations and return the
fire with corrected coordinates . . . right on your head!
You can set the launch angle of your missile anywhere
between 5° and 1 75° and the velocity up to 1500, Velocities
above 500 will carry the missile off the top of your screen for
a short time, but the missile will return unless its trajectory
carries it past the right or left screen border. If you shoot
clear off the border, it will be the next combatant's turn. In
case of an incorrect entry, simply depress M and reselect.
If your site is on the left side of the screen and you want to
destroy your opponent's to your right, set the coordinates
between 0° and 90°. However, if you are on the right side of
the screen and want to launch your missile to the left side,
aim your missiles between. 90° and 180°.
Watch out foi the blinking A (the malfunction aleil) on
the top left of the screen and listen for its beeping sound. A
missile launch malfunction could happen anytime and de-
stroy you. To avoid the malfunction, immediately depress
the space bar to stop the launch or you'll lose your turn. If
youYe too slow, your own missile site will be destroyed.
Destroying an opponent's site is worth 25,000 points.
However, for each missile fired, you are fined 5,000 points.
The maximum score is 100,000, The site and site player
number will disappear as they are destroyed. The object of
the game is to be the sole survivor of this missile barrage.
Each new run of the game brings a new terrain and new
missile sites.
Lm —Susan Remini
y/ 170...
01 A0
460 ... .
049F
670 ... .
Q6C9
930....
0944
1270 ..
OC78
1470 ..
0F1C
1750 ..
119A
2060 ..
14C2
2360 . .
17E7
2510 ..
1A34
2730 ..
1CA6
2870 ..
1EB1
END ..
2110
The listing:
1 GOTO 8000
10 PM0DE1,1
20 PCLS
30 DIML*<15)
40 DIMW0*C13>
50 E=0
60 TRN*0:TRT=0:SCR=0:HIT=0:HT=0:
TT=0
70 MM=RNDC6>
80 GQSUB1910
90 GOSUB2190
100 CLS
110 IF PLY*! THEN PLY-0:BOTD 310
120 FORX=1TQ6:NAM<X>=0:NEXTX
130 PR I NT@ 1 38 , " COPYR I 8HTED "
135 PRINTe206, M BY"
140 PRINTS265, "DAN DROUILLARD"
150 PRINTe333,"1982":F0R X=1TD40
0:nextx
218
the RAINBOW August 1933
KEYBOARDS
by Macrotron
The Premium Keyboard
All the features of our popular
Professional Keyboard:
* No gluing, soldering, or cutting — plugs right in
* Four function keys complete the matrix
* High quality construction assures years of
trouble-free operation
* Complete documentation included
PLUS these exciting new features:
* Attractive low profile
* Extended Radio Shack layout
* Silk-smooth feel —
uses ALPS keyswitches
Our Versakey software enhances
the keyboard's utility
* Auto-repeat, n-kcy rollover and
type-ahead
* Fl becomes DEFINE,
F4 becomes CTRL
* May define up to 128 keys (including
their SHIFT, CTRL, and SHIFT-CTRL
combinations) as strings of up to 80
characters each.
* Supplied on cassette, may be copied to disk
"Have Josie skip yours today!
The Premium Keyboard • ■■■• $89.95
The Professional Keyboard, - £69.95
Versakey software $9.95
Both keyboards carry a 90-day limited warranty.
Please specify your computer's PC board type if known. Otherwise, specify the complete catalog number
and serial number.
Micronix Systems Corporation
# 7 Gibraltar Square
St. Charles, MO 63301
(314)441-1694
Terms: Prepaid check or money order, Mastercard or Visa.
Shipping Charges: U.S. $2.00, Canada $5.00, COD $3.50 (No COD's to Canada).
160 CLS: PR I NTS 135, "HOW MANY PLAY
ERS ?":PRINT©231,"UP TO SIX CAN
PLAY"
161 NP*-*INKEY*
162 IF NP*= ,,M THEN GOTO 161
163 NP=VAL(NP«)
170 IF NP>6 THEN CLS: GOTO 160
190 cls : pr i nts 1 36, "wh ats your na
me":gosub 2640: forx=ito np:prin
t8195+spc, "player n0. " x;: input
nam* ( x > : spc=spc+32: nextx
200 IF NP=1THEN NS=6:GOTO2400
210 IF NP=0 THEN NP»l:GOTO200
220 IF NP=2THEN NS«6:GOTO2340
230 IF NP=*3THEN NS=6 : GOTO2300
240 IF NP-4THEN NS-4 : GOTO2370
250 IF NP-5 THEN NS-5 :GOTO 2370
260 IF NP=6THEN NS«6 : BOTO2370
270 ZP*=INKEY*
280 IF ZP*»CHR*(13)THENGOTO310
290 XM-RNDU3)
300 GOTO270
310 GOSUB 1 280 : GOSUB 1 530
320 DRAW" BM 156, 192" : DRAW" C8R6U5L
6U5R8C5R4C8D 1 0R2C5R6C8U 1 0L4R 1 0C5
R4C8R6L6D5R4L4D5R8C5R8C8U 1 0D2FBD
2U 1 0R2C5R4C8R6D 1 0L6U 1 0R6D 1 0R2C5R
4C8R2"
330 FORX=1TO6:LF(X)»0:WN(X)=0:MZ
G
all
Systems
©1981
1210 E. Colonial Drive • Orlando, Florida 32803
JFD-COCO DISC SYSTEM-$439.
DISK DRIVES $250
with
POWER SUPPLY & CASE
64KRAM $49. 95
One Drive Disk cable $19.95
Two Drive Disk cable $29.95
Voice: 305-894-1887 B
Data: 305-894-1886
No C.O.D.'s Please
Cashiers Check or M.O.
(X)=0: NEXTX :ML=0
340 DRAW "BM8, 192": GOSUB 1760
345 J=RND(10)
350 D=0: AN-0: AN* < l ) »» » : D* ( l > -» •■:
E-0
360 TRN=TRN+1
370 FOR X=l T06: MZ<X)=0: NEXTX ! ML
=0
380 F0RX=1T05
390 DRAW "C8"
400 DRAWWO*<X)
410 DRAW "C5"
420 DRAW "R4"
430 NEXT X
440 FORX=0TO12: LINE (236, 192-X)-(
252, 192-X) , PRESET: NEXTX
450 IF NP=1THEN GOTO470
460 GOTO490
470 IF MZ(MM>=1THEN GOTO2910
480 IF NP=1 THEN 8OTO500
490 MM=MM+l:lF MM>NS THEN MM«1
500 PP*0
510 GOTO2690
520 DRAW"BM240, 192" : DRAWN* (MM) : S
OUND220, 1
530 AN*»INKEY*
540 XM=RND(13)
550 IF AN*=""THEN GOTO530
555 SOUND230,1
560 IF AN*="M" THEN DR=0:FORX=0T
012: LINE (68, 192-X) -(136, 192-X ),P
RESET: NEXTX : GOTO530
570 IF AN*=CHR*(13> THEN DR«0:FO
RX=0TO12: LINE (68, 192-X) - ( 136, 192
-X ) , PRESET : NEXTX : GOTO 630
580 IF DR>2 THEN DR=0:FORX=0TO12
:LINE(68,192-X>-(136, 192-X), PRES
ET: NEXTX :GOTO530
590 AN ( 2) =VAL (AN* ) : GOSUB 2020
600 AN* ( 1 ) =AN* ( 1 > +AN*
610 AN=VAL(AN*(1>)
620 GOTO530
630 IF AN > 180 OR AN<1 THEN AN*-"
":AN*(l)="":GOTO 530
640 DRAW " BM8 , 1 92 " : DRAW " C5 "
650 FOR X=l TO 5
660 DRAWWO* ( X ) : DRAW " R4 "
670 NEXTX
680 DRAW "BM4, 192"
690 DRAW"C8" : DRAWWO* (6) : DRAWCS"
:DRAW"R8"
700 F0RX=7T013
710 DRAWCS"
720 DRAWWO* (X)
730 DRAW"C5"
740 DRAW"R4"
750 NEXTX
760 D*«INKEY*
770 IF D*=""THENGOTO760
772 SOUND250, 1
220
the RAINBOW August 1983
775 IF D*-"M"THENDR^0:FORX=0TO12
: LINE (92, 192-X) - ( 140, 192-X ) , PRES
ET:NEXTX:GOTO760
780 IF D*=CHR*<13>THEN DR=0:FOR
X=0TO12:LINE<92, 192-X > -(140, 192-
X ) , PRESET : NEXT X : GOTO850
790 IF DR>3THEN DR=0:FOR X=0TO12
:LINE(92,192-X)-(140, 192-X), PRES
ET:NEXTX:GOTQ760
800 AN ( 2 ) -VAL < D* ) : GOSUB2020
810 D*(1)=D*(1>+D*
820 D=VAL(D*(l))/3
830 GOTO760
840 6=1
850 IF D>500 OR D<1 THEN D*="":D
*(1)= GOTO 760
860 AN«AN/57. 29577951
870 H(1)=C0S(AN)*D:H(2)=C0S(AN>*
3
880
3
890
900
910
920
930
940
V ( 1 ) =SIN ( AN) *D! V (2) =SIN (AN) *
V(l)=192-V(l)
V ( 1 ) =V ( 1 ) - ( 192-VS (MM) )
V(2)-V(2)~G
H=MS ( MM > : V- VS ( MM ) -8
R=0
IF V<5 THEN GOTO 960
950 LINE (H,V)-(H,V-2), PRESET
960 IF V<V(1) THEN R=l
970 IF R=0 THEN V=V-V(2)
980 IF R»l THEN V=V+V(2)
990 H=H+H(2)
1010 SE-SE+1
1020 IF H>>250 THEN GOSUB1130:GO
TO1110
1030 IF H<5 THEN GOSUB 1130: GOTO
1110
1040 IF V>156 THEN GOSUB 1130: GO
TO1110
1050 IF V<1 THEN GOTO 940
1060 SCREEN 1,1
1080 IF V<5 THEN GOTO 1100
1085 IF J=3THENF0RX»lTO4:DRAW ,, C8
5 BM32, 44? E16F16L32" : SOUND150, 5: J
*-INKEY*:IF J*=" " THEN DRAWC5;
BM32 , 44 5 E 1 6F 1 6L32 " : GOTO 1 1 1 0ELSE
: : DRAWC55 BM32, 445 E16F16L32" : NE
XTX:V=V+9:F0RI=lT04lHw(MS(MM)-2)
+1 : GOSUB1 130: NEXTI :GOT01 1 10
1090 LINE(H,V)-(H,V-2),PSET
1100 IF PP0INT(H,V+2)=6 OR PPOIN
T(H,V+2>=8 OR PP0INT(H,V+1)=8 OR
PP0INT(H,V)=8 OR PPOINT(H,V-l)»
8 THEN GOSUB 1130 ELSE GOTO 940
1110 DRAWBM4, 192" : DRAWCS" : DRAW
WO* (6) : DRAW"R8" : FORX=7T013: DRAW
WO* (X): DRAW "R4":NEXTX
1120 GOTO340
P. O. Box 14806
Jacksonville, FL 32238
904 777-1543
Prices on All games
include shipping. Florida
Resident add 5% tax.
All Programs require Color
ComPuterâ„¢ (Tandy Corp) or
TDP System 100 ComPuterâ„¢
(RCA)
•NEW* BOMBER COMMAND 16K The air war over Germany,
1941-45. $19.95
ACROSS THE RUBICON 16K EXT or NON EXT — The popular
WVyil wargame. Break thru the Huertgen Forrest using infantry,
heavy and light tanks, air & artillery strikes, Paratroops. Graphics,
terrain modifiers, unit designators and 5 minute conversion instruc-
tions for 16K NON EXT. State system when ordering.
These games do not require EXTENDED BASIC $15.95
RUBICON II 32K EXT Everything ATR has and more! Mortar units,
Patrols, German Artillery, Platoon movement, realistic supply and in-
telligence, spotting rounds, unit merge, GAME SAVE $24.95
MISSION EMPIRE! A strategic wargame/strategy game. Starting
with one planet, incomplete intelligence and limited resources, you
must conquer the rest of your galaxy. Play takes 2-5 hours and is
DIFFERENT EVERY TIME! All versions offer GAME SAVE option.
Specify 32K disc or 16K-The 32K versions require Extended Basic,
the 16K does not. $15.95
GALACTIC TAIPAN 32K EXT — The merchant's of space, battle
storms, pirates and high taxes in their search for trade and profit.
These games do not require EXTENDED BASIC.
ROMPAC BACKUP — Can't run your ROMPACS with your disk in or
just want backup? This program makes it easy. Requires 64K.
Shipped on tape.
Cassette $19.95
All games available on Disk Add $3.00
August 1983
the RAINBOW 221
1130 GOTO 1140
1140 IF V<5 THEN GOSUB6000: GOTO
1270
1150 TA-1
1 1 60 PLAY " T2L70O 1 V30 " : PLAY " E- "
1170 F0RX*1TQ2
1180 CIRCLE(H,V),4,8
1190 PLAY"G"
1200 PAINT(H s V+2),8,8
1210 CIRCLE(H,V),4,5
1220 PLAY STR*(X>
1230 CIRCLE(H,V),2,5
1240 PLAY "F-"
1250 NEXTX
1260 PLAY'^-"
1270 RETURN
1 280 L* ( 1 ) » " R6D8L254U8R8 "
1 290 L* ( 2 ) = " E20R4E 1 2R8F8R4F24 â– : *
L*=MOUNTAINS
1300 L*(3)="R16E4R12E4R36F8"
1310 LS ( 4 ) = " E 1 6R20E 1 2R 1 2F8D4F8D4
F4"
1320 L* (5) ="E8U12E4R8E4U28R4E4R8
F4D20F4D 1 6R8E8R4F404F4D8F4 "
1 330 L* ( 6 ) - " E4R 1 6E8U8E4R8F804R4F
4R8F4R8F4"
1340 L*(7>="R8E8R12E8R12F12R16F4
â– i
1 350 L* ( 8 ) = " E8U4E 1 2R44F4D4R4F4D4
CO
CO SERVICE
from
Creative Electronics
Co,
64K Upgrades *80.00 Installed
32k Upgrades *30.00 Installed
Extended Basic W/Manual (Write)
Operating Light *10.00 Installed
Video Inter-f ace $20.00 Installed
Clock Boards $80.00 Installed
Keyboards *80.00 Installed
Roms Burned & Installed in
custom Rom Paks <Write)
We recommend C ITOH PRQWRITER
printer and Panasonic monitor.
C ITOH Printer *425. 00+Shipping
Panasonic CT-1112 Color Mon.*360+
shipping.
Fast turn around on all items.
Above prices apply to operating
D,E,F Boards 8c TDP Computers.
INCLUDE *5.00 FOR RETURN SHIPPING
SEND S.A.S.E. FOR DETAILS AND FOR
FURTHER OFFERINGS.
CREATIVE ELECTRONICS
4211 -7th Ave.
Rock Island, II.
61201
Co.
222 the RAINBOW August 1983
F4D4"
1360 L* <9> ="R28E4R8E4U8E4R20F4D8
F8"
1370 L* < 10) ="E16U4E4R4F4D8F8R16E
4R4E4R8D4F8"
1 380 L* ( 1 1 ) = " U4E8R4E4U8E4U4E4U4E
4U4E4R36F4D20F8D20 "
1 390 L* ( 1 2 ) = " R8U8E 1 2U8R4E4U8R8D2
4R 1 2E4U4R8D20R4E4U4R4F4D4F4 "
1 400 L* ( 1 3 ) = " U4E4U8E4U8E4UE4R4F4
D8F4D8F4R 1 2E4U8E4U4E4R4F4D8F4DF8
D4F4"
1410 PCLS
1420 DRAWBM248, 152"
1430 DRAW"C6"
1440 DRAWL*(1)
1450 MT-0
1 460 XM-RND < 1 3 > : MT=MT+1
1470 IF XM«0 OR XM =1 THEN XM=RN
D<13):GOTO1470
1480 DRAW L«(XM>
1490 IF MT=>3 GOTO 1500 ELSE GOT
1460
1500 PAINT (20, 154), 6, 6
1510 SCREEN1,1
1520 RETURN
1530 F0RX-1TQNS
1540 MS(X)=RND<244)
1550 MS(X)=MS(X)/2
1560 MS(X)=INT(MS(X))
1570 MS(X>=MS(X)*2
1580 MS(X>=MS(X)/2:MS(X)*FIX(MS<
X)):MS(X)=MS(X)*2
1590 IF MS (XX 10 THEN GOTO 1540
1600 F0RYY-1T0NS
1610 IF YY=X THEN GOTO 1650
1620 IF MS(X)=>MS(YY) THEN MX=tlS
(X)-MS(YY)
1630 IF MS(XXMStYY) THEN MX=MS(
YY)-MS(X)
1640 IF MX<20 THEN GOTO 1540:* SI
TE SPACING
1650 NEXTYY
1660 NEXTX
1670 F0RY=1T0NS
1680 VS=70
1690 VS=VS+1
1700 IF PP0INT(MS(Y),VS>=6 THEN
VS=VS-2:VS(Y)=VS: GOTO 1710 ELSE
GOTO 1690
1710 FOR X=l TO 8 :PSET(MS(Y)-4+
X,VS,8):NEXTX
1720 FOR X=l TO 4:PSET(MS(Y>,VS-
4+X,S):NEXTX
1730 LINE (0,176)- (MS (Y) , 176), PRE
SET: DRAW"C5" : DRAWU2" : DRAW"C8" : D
RAW N*(Y)
1735 S0UND245,1
1740 NEXTY
1750 RETURN
1 760 WD* ( 1 ) - " U 1 0R6D5L6R6D5R2 "
1770 WD* (2) =«"U10D2F6D2U10D10R2 M
1 780 WO* ( 3 ) » " U 1 0R6L6D 1 0R6U5L2R2D
5R2"
1 790 WO* ( 4 ) - " U 1 0D 1 0R6R2 "
1 800 WO* ( 5 ) - " U 1 0R6L6D5R4L4D5R8"
1810 WO* < 6 ) = " H4U&D6F4R2E4U6D664 "
1 820 WO* < 7 ) - " U 1 0R6L6D5R4L4D5R8 "
1830 WO*(8)="U10P10R8"
1 840 WO* < 9 ) - " U 1 0R6D 1 0L6R8 "
1850 WO*U0>="Ui0R6L6D10R8 M
1860 WO*(11)*"U10D10R2C5R4"
1 870 WO* < 1 2 ) = " U 1 0L4R8L4D 1 0R2CSR8
ii
1 880 WO* (13)=" U5L4U5D5R8U5R2 "
1890 RETURN
1900 SOSUB1 910
1910 N*(1)»"C5R6C7U10D10"
1 920 N* < 2 > - " C5C7U2E6U2L6R6D286D2
R6"
1 930 N* ( 3 ) = " C5C7R6U5L2R2U5L6R6D 1
0"
1 940 N* ( 4 > - " C5R6C7U 1 0D5L6U5 "
1 950 N* < 5 > - " C5C7R6U5L6U5R6 "
1 960 N* ( 6 ) = " C5C7U 1 0D 1 0R6U5L6 "
1970 N*(7)=' , C5R6C7U10L6 M
1 980 N* ( 8 ) = " C5C7R6U5L6R6U5L6D 10"
1 990 N* < 9 ) = " C5R6C7U 1 0L6D5R6 "
2000 N* < 1 > - " C5C7U 1 0R6D 1 0L6 "
2010 RETURN
2020 DR-DR+i
2030 IF DR»1 THEN DRAW "BM 100, 192
■•
2040 IF DR=2 THEN DRAW "BM 110, 192
2050
2 »i
2060
ii
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
IF DR=3 THEN DRAW "BM120, 19
IF DR=4 THEN DRAW "BM 130, 192
DRAWN* < 10)
DRAWN* ( 1 )
DRAWN* (2)
DRAWN* (3)
DRAWN* (4 >
DRAWN* (6)
DRAWN* < 5)
DRAWN* (7)
DRAWN* (8)
DRAWN* (9)
IF AN<2)=0 THEN
IF AN(2>=1 THEN
IF AN (2) =2 THEN
IF AN (2) =3 THEN
IF AN (2) =4 THEN
IF AN(2)*6 THEN
IF AN<2)=5 THEN
IF AN<2)»7 THEN
IF AN (2) =8 THEN
IF AN (2) =9 THEN
IF DR~5 THEN DR=0
RETURN
NE*(1>-"R6U10D10"
NE* ( 2 ) = " U2E6U2L6R6D2G6D2R6 "
NE* ( 3 ) - " R6U5L2R2U5L6R6D 10"
NE* <4> ="R6U10D5L6U5"
NE* ( 5 ) â– " R6U5L6U5R6 "
NE* < 6 ) â– " U 1 0D 1 0R6U5L6 "
NE*(7)="R6U10L6"
NE* ( 8 ) - " R6U5L6R6U5L6D 10"
NE* < 9 ) = " R6U 1 06D5R6 "
compu«sette
TAPES & DISKS
100% ERROR-FREE
FULLY GUARANTEED
SNmr< v \i"u
â– â– â– ffiTOj
mSmmSim
The Micro-Tracâ„¢ Generation
Used by Software Firms & Computer Hobbyists
Choice of School Districts Nationwide
MINI STANDARD
CASSETTES
12-PAK
24-PAK
C-05
...$ .79
$ .59
C-10
...$ 89
$ .69
C-20
..$ .99
$ .89
C-30
...$1.29
$1.09
Custom Cases. . .
. . . S .26
£ .21
Cases recommended to protect sensitive cassettes.
.BV*" DISKETTES
Soft Sector
Single Sided
S/D Density
MINI STANDARD
5-PAK 10-PAK*
$14.95 $26.95
• 10 PAK w/custom library case, add $3.00
— UPS SHIPPING -
(No. P.O. Boxes please)
$3.00 per pack
— Canadian shipping multiply by 2 —
No. 1 Magnetic Media in the USA!
— Write for volume prices —
TOLL-FREE
(orders only)
^ 1-800-528-6050
i ext. 3005
In Arizona State
1-800-352-0458
ext. 3005
MICRO-80tm|NC
E. 2665 Busby Road
Oak Harbor, WA 98277
1 (206)675-6143
August 1983
the RAINBOW 223
2280 NE*(10)="U10R6D10L6"
2290 RETURN
2300 CLS:PRINT@131,NAM*(1);:PRIN
T®136,"-Y0U HAVE SITES* 1,4"
2310 PRINT@195,NAM*<2)|:PRINT820
0,"-YOU HAVE SITES* 2,5"
2320 PRINTS259, NAM* (3> ; : PRINT826
4, "-YOU HAVE SITES# 3,6
2330 GOSUB 2640: GOTO 270
2340 CLS:PRINT@163,NAM*(1);:PRIN
TS 168, "-YOU HAVE SITES# 1,3,5"
2350 PR I NTQ259 , NAM* < 2 ) ; : PR I NTS26
4, "-YOU HAVE SITES* 2,4,6"
2360 GOSUB 2640: GOTO 270
2370 SPO0
2380 CLS:FOR X»l TO NP
2390 PRINTS131+SPC, NAM* (X) : PRINT
S131+SPC+5, "-YOU HAVE SITE NO.-"
X : SPOSPC+32: NEXTX : GOSUB2640: LIN
E INPUT CON*: GOTO 310
2400 CLS:PRINTei03,"THE COMPUTER
WILL" :PRINT@167, "SELECT A SITE
F0R":PRINT@231,"Y0U TO FIRE FROM
,, :PRINT@295,"G0 FOR HIGH SCORE!!
" : GOSUB2640: INPUTCON
2410 CLS:PRINT@37,"EACH MISSLE L
AUNCHED SPRINTS 101," COST YOU 500
POINTS" :PRINTei66, "EACH SITE D
ESTROYED " : PR I NTS228 , " G I VES YOU 2
COLOR
COMPUTER
•Members enjoy a 30 - 40% savings on software!
• More being added monthly!
• Hardware & accessories at substantial savings!
• Monthly specials and reviews!
• Special orders service for members!
• No service charge for VISA or MC!
• Your savings can far exceed your dues!
Join Today And Start Saving!
m Dues are $22.50 - We accept
VISA'
Personal Checks, M.O. or Charge It! [
NAME
ADDRESS
CITY
â–¡ VISA â–¡ MC Exp. Date
Mai! to:
STATE
ZIP
.#
Color Computer Buyers Club
P.O. Box 241
Eaton Rapids, Ml 48827
5, 000 POINTS" : PRINTS292, "PERFECT
SCORE IS 100,000 ":PRINTe36i, "0
OOD LUCK ! ! " : GOSUB2640: INPUTX : GOT
0310
2420 IF NP=3THENGOTO2520
2430 IF NP*=2THENGOTO2610
2440 FORTX=lTONS
2450 ML=ML+MZ(TX)
2460 IF NP=1 THENGOTO2480
2470 IF ML-NS-1THEN GOTO2650
24B0 IF ML=NS-1THEN GOTO2920
2490 NEXTTX
2500 ML=0
2510 RETURN
2520 IF MZU)+MZ<4)=2 THEN LF<1)
2530 IF MZ(2)+MZ<5)*2 THEN LF<2)
= 1
2540 IF MZ(3>+MZ<6)=2 THEN LF<3)
-1
2550 F0RX=1T03
2560 IF LF(1>+LF<2)-2THEN WN-3IG
OTO2770
2570 IF LF(1)+LF(3)-2THEN WN-2:G
OTO2770
2580 IF LF(2)+LF(3)=2THEN WN>1:G
OTO2770
2590 NEXTX
2600 GOTO 2510
2610 IF MZC1)+MZ<3)+MZ(5)^3THEN
WN=2:GOTO2770
2620 IF MZ(2)+MZ(4)+MZ(6)=3THEN
WN=l:GOTO2770
2630 GOTO2510
2640 PRINTS452, "PRESS ENTER TO C
ONT I NUE": RETURN
2650 FORX=lTONS
2660 IF MZ(X)=0THEN WN*X
2670 NEXTX
2680 SOTO 2770
2690 FORY=lTONS
2700 PP=0
2710 FDRX-1T08:IF PP0INT<MS<Y)-4
+X,VS<Y))=8 THEN PP=PP+1;NEXTX
2720 F0RX=1T08:IF PPOINT(MS(Y) , V
S<Y)-4+X)=8 THEN PP=PP+l: NEXTX
2730 IF PP<2 THEN MZ <Y)=l:G0SUB2
420: LINE (0, 176) - <MS ( Y) , 176) , PRES
ET : DRAW " C5 " : DRAW " U2 " : DRAW NE* < Y )
: GOSUB 3030
2740 NEXTY
2750 GOSUB2420
2760 IF MZ(MM)*1 THEN GOTO 450 E
LSE GOTO 520
2770 CLS: PRINTS195, NAM* (WN) ; : PRI
NTS200 , " -YOU WON ! ! " : NAM < WN ) =NAM (
WN ) + 1 : GOSUB2640 : I NPUTX
2780 WN=0
2790 CLS:PRINTe256,"D0 YOU WANT
TO SEE TOTAL SCORE
224
the RAINBOW August 1983
Y/N"
2791 X*«INKEY*
2792 IF X*« ,,n THEN BOTO 2791
2793 IF X*-"Y H THEN GOTO2800 ELS
E GOTO 2830
2800 SPX-0:CLS
2810 F0RX=»lT0NP:PRINTei31+SPX s NA
M* ( X > ; : PR I NTfi 1 30+SPX +6 , " -YOU WON
"NAM ( X ) " BANES" : SPX=SPX+32
2820 NEXTX:GOSUB2640:INPUTX
2830 CLS:PRINT@353, "DO YOU WISH
TO PLAY AGAIN Y/N"
2840 ED*=INKEY*
2841 IF ED*»"" THEN GOTO 2840
2850 IF ED*= M N" THEN GOTO 2900
2860 CLS:PRINT@192,"D0 YOU WANT
TO CHANGE THE NAMES OR NUMBER
OF PLAYERS Y/N"
2870 ED*=INKEY*
2871 IF ED*= H " THEN GOTO 2870
2880 IF ED*»"N" THEN PLY=l:BOTO
50
2890 GOTO50
2900 CLS: PRINT "BYE": END
2910 PRINT F0RX«1T08: SOUND 100
,2:CLSX:PRINTei95, "YOU JUST DEST
ROYED YOURSELF" 5 : NEXTX : F0RX=1T05
00: NEXTX : GOTO2920
2920 TRN-TRN-l:IF TRN=<0THEN TRN
=0
2930 TT=TRN*5000
2940 IFMZ<MM>-1THEN MZ(MM)-0
2950 F0RX-1T06
2960 IF hZ(X)=l THEN HIT-HIT+1
2970 NEXTX
2980 IF HIT<0THENHIT«0
2990 HT«HIT*25000
3000 SCR-HT-TT
3010 CLS:PRINTei63,NAM*(l>|:PRIN
TS 168, "-YOUR SCORE IS "j:PRINTSC
R
3020 GOSUB2640Z INPUTX : GOTO2830
3030 F0RX=lT08:PSET(MS(Y)-4+X,VS
<Y),5>:nextx
3040 f0rx=1t04: pset (ms (y) , vs (y) -
4+X,5>: NEXTX
3050 RETURN
6000 PLAY ,, T2L170O1V30":PLAY ,, E-"
6010 FOR X«l TO 3
6015 FORV»1TO30!NEXTV
6020 PLAY"B"
6030 PLAY STR*(X)
6035 FORV=1TO30:NEXTV
6040 PLAY-F-"
6050 NEXTX
6060 PLAY"E- M
6070 RETURN
8000 PCLEAR2:GOTO10 _
YOUR COLOR COMPUTER JUST EARNED A MATH DEGREE!
FEATURING:
• 3D SURFACE PLOTTING — Plots a user defined equation on an
X,Y,Z coordinate system in the High-Res graphics mode. Planes,
surfaces of revolution, statistical surfaces, etc. can be easily plotted.
Surfaces may be saved to disk or tape. We believe this is the only program
of its kind commercially available for the Color Computer.
MATHMENU
Developed by an engineer, Mathmenu is a
powerful menu-driven system to turn your
Color Computer into an intelligent, flexible
tool for mathematics and engineering.
Mathmenu takes the tedium out of math,
leaving your full brain power to attack the
"meat" of your problems. By rapidly mani-
pulating matrices and vectors, performing
integration and differentiation, solving
quadratic equations, plotting user defined
functions and much more, Mathmenu can
help simplify the most complex problems.
Whether you are a student or a professional,
if you use math, you need Mathmenu.
PLUS:
• Complete MATRIX Operations
(up to 8 x 8)
• Complete VECTOR Operations
• Numerical Differentiation
• Numerical Integration
• Least Squares Curve Fitting
• Binomial Expansion
• Prime Number Verificatior
• 2D Function Plotting
• Rectangular to Polar Conversions
• Base Conversions
• Large Number Addition and
Multiplication
• Reverse Polish Logic Calculator
with Hexadecimal
Quadratic Equation Roots
• Main Menu with Single-key Selection and Return (Disk Only)
Complete documentation of all functions is included.
l° T «5 ? Sk » JS'oe Plotting Requires Extended BASIC
For 16K Cassette $44.95
Documentation only $5.00 (refundable with purchase)
Or write for free brochure.
X>
â– â– Hi ^Kj
VISA' ^B ^B
Inter <U> (^Action
113 Ward SJreet • Dept. R • New Haven, CT 06519 • (203) 562-5748
August 1983
the RAINBOW
225
CoCo COUNSEL
CONTRACT
BASICS
FOR THE
COMPUTER USER
BY TOM NELSON
RAINBOW CONTRIBUTING EDITOR
How many things can you think of to argue about
with a friend on the qualities of various computers
or programs? Come on now. be honest. Hundreds,
right? Sometimes it is a wonder that you can even agree that
the computer has the name on its cover.
Well, that's just arguing mostly for fun. It can get heated,
but it doesn't really mean much in the end. Anyway, you
can't conti ol the inards of the computer, so what the heck?
Contracts, like programs, are something we can create
and control. As with programs, the bettei we cuntrol the
contract, the less possibility there is that the contract will
"bomb. "The more that is at stake, the more the chance that
failure to control the contract can lead to personal business
failure.
Contracts a re everyday parts of life. In fact, we each make
one or more oral contracts every day. L i'll wash that car if
you dig the garden;""if you give me a copy of your finished
program, I'll help you with your bug,"and so on. These are
just simple contracts; oral contracts at that (yes. ma, oral
contracts are perfectly legal, with certain exceptions).
Of course, there are just simple contracts with very few
terms. There's an exchange of goods and/ or services within
a certain time frame. Even in these simple contracts, how-
ever, much is left unsaid. It may be assumed that work on the
program will be done at your house, or the program will be
given on disk, or maybe the author will supply the disk for
the program.
As contracts cover more significant transactions, the ele-
ments to be considered increase. Still, if all the elements are
carefully considered, you still eari totally control the con-
tract. Yet, much like a complicated program, not all contin-
gencies can always be successfully covered in a contract.
There may be some element that was totally neglected, or
left to the business "operating system."
Contract law is made of rules to interpret contracts. The
rules have two functions. First, trained persons can build
contracts around known rules which will control significant
parts of the contract without the need to write long contracts
covering every possible situation. The Uniform Commercial
Code, a voluminous law covering merchants adopted by
most states, was designed specifically for this purpose. The
second function of contract rules is to interpret contracts
which have gone awry, or were poorly drafted. Courts will
look at the contract and apply uniform principles to attempt
to salvage the contract or to help an injured party. The most
important thing to remember about all this is that if you
don't cover a term in youragreement and that term becomes
the center of controversy, general contract rules will define
the term for you, whether or not you approve,
These rules are not written in stone. If you wish, you may
contract these rules away, provided the purpose is not crim-
( Tom Nelson is a Special Assist-
ant Attorney Genera! for the
State of Minnesuta representing
various state agencies, and a con-
sultant to Nelson Software
Systems. He has written almost
ail the manuals for the programs
in the Super "Color" Library.)
226
the RAINBOW August 1963
If you like color . . . you're going
to love HOT GoCo magazine.
The exciting new monthly devoted exclusively to the
TRS-80 Color Computer.* It's from the publisher of 80
Micro,
Let HOT CoCo color your system with:
•Feature articles on color graphic techniques
•Computer art
•Games
•Specific color applications in home, education,
business and hnhhie.s
PLUS
•Ideas on patching, aiding and trouble shooting
•Buyer's guides
•Product and book reviews
•Hardware interfacing and enhancing
•Programming techniques and tutorials
Best of all, HOT CoCo is written by users just like you.
The material is always up-to-date and useful. Hardware,
software, books ... what's new... what's best. . .what
works. And you get one year for only $24.97, A 13th issue is
yours FREE with pre-payment (check or credit card) . Use
the attached order form, die coupon, or call toll free
1-800-258-5473. Subscribe Today]
[YES!
VCoCa
please sign me up for one year of HOT CoCo at
$24.97." I understand that with payment enclosed oi
credit card older I will reLrive a fiee issue mating a total of 13 issues for
$24.97.
DMC DV1SA DAE DCHECK/MO â–¡ BILL ME
Card*
Signature.
Name _
Exp. Date
_ Interbank #_
Address
City
State.
_Zip_
73BFRB
Canada 6 Mexico *27.97// yr . only, US Fundi
Fur(-f|;ii surfmv tM.STtl gr. only, US Fundi drawn on US bank.
Please allow 6-8 weeks fat delivery.
HOT CoCo'PO Box 975«Farmingdale NY 11737
*TRS-SO Cofe* Computet If a irtifirmnrk n$ Fttidin Shack, a division Of Tandy Corp,
| " "This price voids all previous offers. ^^^^^^^^^^^^^^^^^^^^^^^^^^
inally illegal or otherwise improper. You are the master of
your contract. The more you understand it, the more you are
in control. What you want to do is cover every essential
term, make a total agreement between the parties spelling
out how you want things done so that you can avoid later
misunderstandings and avoid surprises should the contract
rules be applied.
This brings me to a little anecdote. People say that lawyers
and long contracts "queer"deals. Lawyers come in and write
up long contracts covering everything down to the size of the
pencil eraser to be used for cleaning disk pack plugs. It's
actually true that legal gobblcdygook can be pretty intimi-
dating. Of course, those with power are aware of this, so they
make sure all contracts, no matter the size, are fashioned to
fit on one page. Thus what could take 10 or so pages in
normal type sizes is squished and crammed into one page,
the "fine print" of which we are all so fond. The consumer
feels that whatever is on that one page cannot be so bad or
harmful since it is only one page. But let the contract flow
onto two pages and people balk at signing it. Suddenly it
becomes a looming legal document, with overtones of attor-
neys, etc.
When I was buying a house, I naively wrote up a purchase
agreement of six or so pages in the normal print size. It
amounted to no more text than the standard, single-sheet,
fine-print, realtor-supplied purchase agreement. Yet, when I
presented it to several home sellers, 1 and it were rejected as
being suspicious. Why couldn't I use those nice single-sheet
forms? After several such experiences, and several houses
later, I finally did just that, changing the terms on the single
sheet that I couldn't stomach, and the deal was closed.
This "single-sheet" mentality is not limited to home or car
purchases. The same psychology applies to any industry. I
have seen several computer software license agreements
which fit nicely onto one page, but they sure can say a
lot— or leave a lot unsaid. And lo and behold, that one page
becomes four to five pages if printed in a normal print font.
Since you want to control your contract, you have to avoid
the temptation to rely on the "single-sheet" mentality. Sure,
if the terms seem fair or adequate, you should consider
signing the single-sheet contract; but if its terms seem lop-
sided or it doesn't contain the terms you want, that one page
has got to become more. Don't let that pretty form turn your
head.
Now that you are past the fear of putting your head to
work to control your contract, let's get to know some more
about contracts. First, a little more on the "whats" of a
contract. A contract is an agreement between two or more
persons to exchange something of value. A contract can be
oral or in writing, with some exceptions. For example, no
agreement with a merchant to purchase something worth
over $500 is valid unless in writing, and no contract for the
performance of services which cannot be performed within
one year is valid unless in writing.
As you can see, many things can be covered by an oral
contract. And oral contracts are fully binding and enforce-
able. Still, oral contracts have problems which make them
unattractive. One problem is that of proof. Problems of
proof arise not only from "little white lies," but also from
ambiguity of terms, and actual misunderstandings. Another
in
MARKET CHARTER
LOG
DATA NETWORK
PROFESSIONAL LEVEL INVESTMENT TOOLS NOW AVAILABLE FOR THE
COLOR COMPUTER. POWERFUL TECHNICAL ANALYSIS FUNCTIONS
INCLUDING MULTIPLE VARIABLE MOVING AVERAGES, RATE OF CHANGE
OSCILLATORS, ETC. PLUS AUTOMATIC DAILY UPDATING OF PRICE AND
VOLUME FILES VIA MODEM UTILIZING LOCAL AREA PHONE NUMBERS.
SYSTEM COLOR COMPUTER 32K*
REQUIREMENTS: 1 DISK DRIVE
PRINTER (Optional)
HAYES SMARTMODEM
(Required For Auto Price Updating)
PRICE: MTS MARKET CHARTER— $95.00
MTS LOG & DATA NETWORK— $25.00 Per Month
PRODUCT MANUAL— $25.00 If Purchased Separately
Send Order Or Inquiry To:
â–º
MTS
Market Timing Software, Inc.
6912 N. Sheridan Rd.
Chicago, IL 60626
'ALSO AVAILABLE FOR TRS 80 MOD III, II, 12 AND 16; IBM-PC, APPLE II PLUS, ETC.
228
the RAINBOW August 1983
equally important problem is that oral agreements generally
cannot be of any great complexity. It's hard to successfully
specify limitations to a worldwide license over the phone
and have both parties remember whether or not Outer Sla-
bovia was included.
It is obviously wise to put all significant agreements into
writing. Thus, I want to devote the remainder of this column
to introducing you to the formal characteristics of contracts
so that you can more easily find your way through them.
All contracts have several sections in one shape or
another. Contracts covering the same general subject matter
"You are the master of your contract . . .
(so) you want to... cover every essential
term, make a total agreement between
the parties spelling out how you want
things done so that you can avoid later
misunderstandings and avoid surprises
should the contract rules be applied. "
also tend to look very similar. The first section of the con-
tract sets out the parties to the agreement. The second part
sets out the purposes of the contract. In old fashioned con-
tracts these were the "Whereas" clauses. A third section
usually is devoted to definitions of important terms. Next
comes the body of the contract containing the essential
terms. The body of the contract can contain many sections,
each devoted to a particular significant area of concern.
After the body comes what I call the boiler plate. The boiler
plate clauses cover many important standard elements of
contract law. Finally comes the signature block. Many
agreements also have attachments of one sort or another,
often called exhibits. Very simple contracts lack almost all
of these items. All that is needed is a general statement of the
nature of the agreement and the signatures of the parties.
The rest of the parts are added as the agreement becomes
more important.
Of course, the names and addresses of the parties should
be clearly stated at the beginning of the agreement. Next, the
purposes of the agreement. It is always helpful to state the
purposes of the agreement. This section is often used to set
the tone for the rest of the agreement, and to show the intent
of the parties. This latter use is often helpful when structur-
ing the agreement to make it fit within some particular legal
niche. For example, to create a valid work-for-hire agree-
ment, the contract should recite certain basic elements. Sim-
ilarly, to create an independent contractor relationship, as
opposed to an employment relationship, thereby avoiding
certain tax and insurance liabilities, the agreement should
recite the requisite independent contractor elements.
The definition section gives a convenient place to make
sure that any important terms be clearly understood by the
parties. Definitions perform two functions. First, defini-
tions are used to alloys one term, such as ''Program," to be
used throughout theagreement to include the source and
object code for a program with a specific title. Definitions
are also important to establish the meanings of key terms
JFD - COCO DISC SYSTEM $449
/ / / i â– i ' â– â–
J & M Systems, Ltd. is a leader in the Model III
marketplace with our JFD-III Disc Controller. With
thousands in operation, we have set new standards
in controller performance and reliability. We bring
these same high standards to the COCO, resulting
in the highest quality disc controller system on the
market. Compare these functions before you buy:
/ / ' r : " ~ "~~"
• Price. 5449 includes controller, first drive, disc J
basic in ROM, and manuals. Just plug it in. fi
• Never needs adjusting. Our exclusive Digital (
, Phase Lock Loop Data Separator and Digital Pre- j
/ comp Circuit eliminates the 3 adjustments found
on other controllers. /
• High quality standard production disc drives. Foi 'TH|j| j IJSMJ IJ
- improved service and reliability. Tandon & Teac
drives provide twice the read sensitivity that the
drives found in other disc systems do, and hold
their alignment far longer. /
• Gold-plated card edge connectors throughout.
• Software compatible with Radio Shack Disc
Basic, Flex, and OS/9. /
J & M Systems, Ltd., 137 Utah NE, Albuquerque, N.M. 87108
(505) 265-1501 / I
"'â–¼nimmMififf l Y'
J&M SYSTEMS, LTD.
August 1983 the RAINBOW 229
*****♦*♦##»♦*»**»***<«-»#«»*«♦*♦*♦#♦
*
*
*
*
#
*
LETTER
SETTER
TYPESET
THZS AD
*
*
*
*
*
*
*
* With LETTER-SETTER'S big bold *
* headlines and your own unique *
* text, you can print a message *
* that no one will ignore! *
#
#
*
*
*
*
#-
*
*
*
*
*
*
*
#
#
#
#
#
*
*
UAL
SZZE
Qual i ties:
- LARGE, CLEAR LETTERS
- EASY TO USE
- THREE PRINT SIZES
Requirements:
- 16K EXTENDED COLOR BASIC
- DOT ADDRESSABLE PRINTER
- YOUR IMAGINATION
Uses:
*
*
*
*
*
*
*
*
*
*
*
*
*
*
#
*
*
- REPORT HEADINGS
- FLYERS
- CHURCH BULLETINS
* PLEASE SEND ME LETTER-SETTER! *
* *
* Name: #
* Address:
» City. State:
*
_*
*
*
* PRINTER TYPE:
#
*
*
*
* @ *39.95/ea ROM PACK *
*
* @ *24.95/ea on TAPE *
*
BERNIE LITTON #
P.O. BOX TWO *
* CHICAGO, ILLINOIS 60690 *
# (312) 944-2444 #
*
*
and concepts such as "Improvements" or "Royalties."
Often, poor definitions cause great trouble in agreements.
Care in thinking out the ramifications of the agreement will
lead to comprehensive definitions to clearly guide the par-
ties. What needs defining will differ with every contract, so
you will have to be in good control of your agreement. '
The body of the contract contains the significant terms,
such as who gives what to whom at what time and under
what conditions. These clauses cover the price and quantity
terms specific to this particular agreement, and is generally
the section most subject to negotiations. Many contracts
contain standard definition and boiler plate sections, and
leave the middle open for inclusion of the vital terms.
The boiler plate contains several items, all of which are
important. These items are often non-negotiable. One party
will set out the basic boiler plate under which it will proceed,
and since this party usually has the better bargaining posi-
tion, the terms will be accepted. The boiler plate includes
"Definitions are . . . important to
establish the meanings of key
terms and concepts such as "Im-
provements" or "Royalties. "Often,
poor definitions cause great trou-
ble in agreements. "
such things as which state's laws will be applied to the
agreement, what assignment rights exist, and other clauses
to avoid waiver of rights and voiding of the whole contract
by a court if just one part is bad.
As for signatures, each party must sign the agreement, but
witnesses are not required, nor need the document be notar-
ized. One interesting note is that anything intended by a
party as a signature works as a signature, including an "X, " a
thumbprint or initials.
To the agreement may also be added some exhibits or
schedules. These can have many purposes. Some attorneys
write skeleton agreements, referring always to this or that
exhibit for the specific details. Other attorneys like to write a
totally integrated agreement with no exhibits. Some write a
totally integrated form contract and use a "schedule" to
customize the standard agreement to the particular party
and product covered by the specific agreement.
It should have become clear by now that contracts can be
different and complex. You should, however, be able to find
your way through most contracts and understand the rea-
sons for the various parts. If you locate some contracts of the
type you wish to create, you will soon learn of the concerns
common to the particular industry involved. With some
reflection and knowledge you should be able to spot what is
not being said as well as what is. With that you can begin to
think of alterations and additions to give you full control of
your agreement.
With this background we are ready next time to look at
the concerns common to the software industry in the acqui-
sition and marketing of software. Until then, get the oral out
of your contracts.
230
the RAINBOW August 1983
Quality Software Is The
Number One Priority At
K&KCOMPUTORS
LASER TANK - Pit yourself in a game of strategy and
excitement against the computer. You must defend your
flag from attacking tanks and destroy them before they
destroy your flag or you!!! Only $1 5 96 .
GAZON - The deadly Gazonians are trying to steal your /S5\
supplies and you must stop them at all costs. Similar to the C^CaSJ
popular "RIPOFF" Arcade Game, this game has color and am**.â„¢*
is faster. Machine language. Only $1 995, "*â–
MUTATRON - As the last person alive, you must protect
yourself from sadistic robots bent on killing you. Another
popular Arcade Game, "ROBOTRON", brought to you by
K & K . Machine language. Only $1 9 9 s.
SHOOT TO SPELL AND FLASH MATH - An educational
package that helps kids learn to spell and educate them
on elementary math. An absolute must for adults with
school aged children. Only $1 5 95 .
SPACE HARVEST â– Pilot your spacecraft above the
Planetoid Voltar stealing spacefruit and trying to avoid
alien guards. Machine language Only $1 990.
SERIAL TO PARELLEL CONVERTER - Have a printer
with a parellel port? Tired of waiting for a line list? With this
little hardware device you can make your color computer
run at any baud rate between 300 and 9600. Let K & K help
your printer to go much faster!!! Only $67 95 .
W
^
LAu&Jiit»K
BLACKJACK - A casino game that puts two players
against the beady eyed dealer of the house, This dealer
deals the cards as good or even better than Intellivision. If
you have any gambling blood at all this game is a must!
Same rules as any Las Vegas casino. Only $1 5 9b .
TAPE INDEX • Trouble keeping track of what programs
are on your tape? Now it's possible to place a directory on
your cassette. Only $1 595
POLp^-
POLARIS - You are under the ocean in a submarine,
attacking planes and enemy destroyers dropping depth
charges attempting to destroy your sub. Can you destroy
them before they destroy you? This is a fast action
machine language program. Only $1 995.
SUPER ZAP - Enemy spaceships are attacking from all
sides and your mission to defend your starbase from the
deadly Armada of Pyruss. This will be a dangerous mission
since the Pyruss Armada has never been defeated by any
humanoid. Only $15 95 .
SKY DESTROY - Planes and helicopters are coming from
all directions, they must be stopped! This game is similar to
Atari's and now available to color computer users.
Machine language. Only $19 96 .
BOWLING SCORED FOR DOLLARS - Do your leagues
bowling averages. This program will keep individual
scores, team totals, individual averages, team standings,
and print all this information to your line printer. On
cassette and disk, specify on order. Only $1 9 96 .
INVENTORY CONTROL - This program contains all the
necessary features required for all types of inventories:
sort inventory by stock number, list stock number,
description, amount in stock, cost, wholesale, profits. Only
$49Wb.
CHECK LEDGER â– This bookkeeping system allows the
user to have current information on your expenses by any
category you wish. Year end tax statements made easy.
Disk required. Only $4995.
ACCOUNTS PAYABLE -Small businessmen, control your
business growth by keeping track of all your cash liabilities
and payment history. Only $49 95 .
ACCOUNTS RECEIVABLE - This system keeps track on
the status of all customer accounts, all payment histories
included. Only $4995.
WE'VE CHANGED OUR NAME: FORMERLY K & K COMPUTORWARE, NOW K & K COMPUTORS.
ALL GAME PROGRAMS â– require 1 6K extendedfprices are set for cassette, add $4 00 for disk, except business.)
PROGRAMMERSII1 â– K & K pays the highest royalities for your programs. If your program is good, send it to K & K
TRS-80 COLOR COMPUTER USERS-New programs are added each week. SEND $1°° FOR OUR COMPLETE CATALOG
K&KCOMPUTORS
P.O. BOX 833 • STERLING HEIGHTS, MICHIGAN ! *■■»
48077 »■"
Telephone: (31 31 264-7345
Software Review
Two 'Bumbles 9
Make Learning Enjoyable
The Follett Library Book Company has developed,
through The Learning Company, two programs for teach-
ing children how to locate positions on arrays and grids.
According to the introduction, students ". . . will need this
skill to find streets on maps, to build charts and graphs and
to design computer graphics." This reviewer would add
latitude and longitude.
I was immediately impressed with the packaging of the
programs. One of the problems with educational materials is
durability. The Follett Company has each diskette enclosed
in a self-sealing vinyl case and the multi-colored instruction
booklet in a transparent sleeve on the cover.
The two programs, Bumble Games (for ages four to 10)
and Bumble Plot (for ages eight to 13), come on either
cassette or disk. Both programs are designed to teach X,Y
coordinates beginning with horizontal lines and then verti-
cal lines, increasing with difficulty according to mastery
levels.
wild party
A naughty, sexy computer game
for 2 to 6 couples.
Game varies
every time you play.
Your parties will be
the hit of your neighborhood.
All prompts from TV screen,
no need to read
complicated instructions.
On cassette tape.
For 16K Color Computer.
Extended BASIC not required.
$35.00 incl postage.
(PA resid add $2.10)
Send check to P.O. Box 210,
Jenkintown, PA 1 9046
b&>b software
Bumble Games has six programs, including Find Your
Number, Find The Bumble, Butterfly Hunt, Visit From
Space, Tic Tac Toe and Bumble Dots. Bumble Plot has five
games: Trap And Guess, Bumblebug, Hidden Treasure,
Bumble Art and Roadblock.
The "Bumble" is a colorful cartoon bug that leads you
through the precise instruction booklet that not only
explains how to use a cassette or disk but includes photo-
graphs of the Color Computer keyboard with necessary
program keys highlighted, plus actual color photographs of
each program screen. The directions actually give hints on
how to win the games.
Teachers and students will enjoy the author's ability to
make learning enjoyable through excellent program de-
signs, graphic numbers and letters, sounds and music (I
enjoyed the Westminster Chimes and "bell" to count the
proper number guess in one program).
Each series is set up to first teach horizontal coordinates.
Bumble Games starts with "Find Your Number" from zero
to five, while Bumble Plot begins with "Trap And Guess"
that goes from negative three to positive three. The second
phase, when the child comprehends horizontal coordinates,
is both horizontal and vertical (X,Y) locations. The younger
children's version uses graphic letters for the horizontal line
and graphic numbers for the vertical. The older student's
version uses numbers from negative two to positive two for
both axes. The games require the students to find, hunt,
outwit, play against another student, and generally have
fun, but always developing and using the horizontal and
vertical locations on the grids. As the student advances, the
grids and arrays become more complex, but each program
continues giving sentence clues (in graphic letters) or arrows
for proper direction on the grid.
Almost as a bonus, each series includes an art program
that allows the student to either plot his own drawing or
have the program, using a cursor, tell him where to list the
X,Y coordinates. In either case, when the picture is com-
pleted, the grid is automatically erased and painted by the
computer.
My children Jennifer (first grade), David (fourth grade)
and Michael (sixth grade) thoroughly enjoyed the pro-
grams.
While my children were able to do the programs and
figure out the X,Y coordinates, it should be noted that the
purpose of Bumble Games and Bumble Phi is to aid the
teacher in teaching place location on maps, grids and arrays.
The programs, while they can stand alone, are the first
programs being marketed by the Follett Company with the
idea of computer aided instruction (C.A.I.). The teacher is
still required to teach the basics and then use the computer
to back up and expand upon the classroom instruction. The
Follett Library Book Company is to be commended for
developing programs for the TRS-80 Color Computer and
showing how students and educators can benefit from class-
room computers.
Each program has a 90-day warranty from defects, and
back-up copies can be obtained from the company with a
"certificate" and proper payment for the disk.
(Follett Library Book Company, 4506 Northwest Highway,
Crystal Lake, IL 60014, 16K ECB, cassettes $45 for either
program, diskettes $65)
—Michael F. Garozzo
232
the RAINBOW
August 1983
THE GREATEST
SOFTWARE DEAL
ON EARTH
1
«e*
Tame your computer without breaking your wallet's spirit! Quality
programs on tape for the price of peanuts!
A subscription to Chromasette Magazine consists of 6 to 8
ready-to-load useful, practical, and fun programs delivered by First Class
Mail every month. Programs like Curve Fit, Diggem, Graph Text, List Mod,
Robot Run, House Adventure, and Keep Text.
Treat yourself to a great show — get a subscription to Chromasette
Magazine. Or catch a single act and try a back issue. You'll be delighted
by the tricks your computer will do!
The Bottom Line:
I year (12 issues) $50.00
6 months
(6 issues) S30.00
Single Copies S 6.00
Caiif. residents add 6% to single copies.
North America — First Class postage
included.
Overseas — add S10 to subscriptions and
SI to single copies. Sent AO rate.
The Fine Print:
All issues from July 1981 available — ask for list. Programs are for the
Extended BASIC model and occasionally for disks.
"Ghlcomabetbe.
MAGAZINE
P.O. Box 1087 Santa Barbara, CA 93 J 02 (805)963-1066 MasterCard/ Visa
SIMULATION
32K
ECB
the
nAINBOW
/m m m m\
Ever since my first football simulation game on an
IBM 360/35 way back in 1967, I have been
fascinated with a computer's ability to simulate
real events and make realistic playing Held decisions. I
produced versions of this game on a Tektronix 4051
microcomputer and a PDP-I I mini in the last 10 years.
With the purchase of my Color Computer ! had a new
challenge: make it easy enough for anyone to play and
make it challenging enough for a real football buff. I
think I've succeeded.
This is a game that makes you the coach; or, if youVe
the athletic type, the quarterback and the defensive signal
caller. Strategy Football is not a graphics game, so it
doesn't maiter if you have joysticks or good hand-eye
coordination. Strategy Football is a "thinking person's"
football. You are guided through the game with a d isplay
ofthe scoreboard (including the time remaining), and the
play situation. You'll sec the outcome of each playjusi as
Howard Cosell or Keith Jackson might tell you.
You have the choice of team names. You can tailor the
team rushing, passing, defense, and kicking games to
your favorite teams (or rivals). As a play caller you have
nine offensive plays to choose from and five defenses.
You can onside kick when necessary or call a timeout to
stop the clock. The play outcomes are dependent upon
your play selection, the opponent's play selection, a his-
tory of play outcomes from actual NFL records, and. of
course, some random occurrences. Big breaks happen
now and then. The game clock tells you how much time
you have left but each team can call three timeouts per
half. When a team scores, the band plays and the crowd
(Dr. Tyson holds a Ph.D. in physics. He is a Senior
Systems Engineer working on high energy laser beam
control system development and computer simula-
tion, lie and his family live in Jupiter, Florida.)
cheers. The referee's whistle blows every play dead. But
watch nut for the penalties that the referees call; they can
stop a drive just when you need it.
There's a halftime show to keep you entertained.
Sorry, no Dallas Cowboy cheerleaders. The game takes
over 30 minutes to play even if you call the quick plays
and don't stop the clock with sideline passes. There is a
provision to save your game onto tape or disk and come
back to it later. You can play NFL or NCAA rules; your
Color Computer read the rulebook and knows the differ-
ences. You can have a one player game and play against
the computer (it wins now and then) or you can have a
two player game and turn your friends into nervous
wrecks. Or, if you're a football fan who prefers to just
watch the game, you can play the zero player game with
the computer playing its alter ego (Sam?), Be ready for
the next football strike.
Load the tape or disk version. Type RUN. The Stra-
tegy Football logo will appear and ask if you want to play
a saved game. If you have one saved, simply type Y and
the game will start where you left off. If you type N the
game will begin with prompts for information.
First type the two team names (no more than twelve
characters). Type the city or school rather than the nick-
name. This helps the grammar sound correct when you
get the play situation. For instance, type "Dallas" rather
than "Cowboys," or "Penn State" rather than "I ions."
Next, choose NFL (pro) rulessr NCAA (college) rules. If
you want to play high school rules, choose NCAA. Next,
choose the mode. Zero is the computer versus itself. Fun
to watch, but not much of a challenge. The others are
self-explanatory.
Next, choose the team strengths. You have five catego-
ries for each team. Strength can range from to 10 on
each category. The limit is that the total must equal 10.
Therefore, for a perfectly balanced team, type 2 for all
[he HAINBOW
iTRITEif
FOOTBAL
By Dr. Bob Tyson
categories. For a team with a good running game but no
passinggame, type4:0:2:2:2. These can have a great effect
on play outcomes; be realistic— Ear] Campbell, Dan
Fouts, and Jack Ham don't play on the same team!
The game will begin with the coin toss. From this point
on the computer will prompt either team for a response.
If the response would come from the computer playing,
then it'll happen before you know it.
When you get to a scrimmage play choice (that is,
choosing an offensive or defensive play), you can con-
tinue with the game, call a timeout for this play, or save
the game at this point. If you call a timeuuL, ytiu will be
told how many you have left, if any, and the time for the
next play will be very short. If you want to save the game
type a lower case(s). Do this by typing (shift) 0, und then
"S, "(shift) to exit the mode. The computer will prompt
you for a save to tape or disk. CAUTION: Ifyoudonot
have disk BASIC, do not choose the disk SA VE mode.
The computer will give youa'.'SN FRROR and execution
will stop.
For those interested in tailoring the game to their
specific interests, a few notes are in order. If the words
whiz by too fast, just change the delay in lines 126, 127,
and 128. Double the limit in the / r O J /?; J V£ J V7'loop. Lines
1-83 are the initialization lines. A master loop begins at
line 87 where all things are decided, like the play situation
(is it a scrimmage play, a kickoff, or an extra point try'?).
I his is reminiscent of my FORTRAN Namclist upbring-
ing. The variable "L" is the mode. From line 106 the
branch is to 134 for a kickoff, line 213 for a scrimmage
play, and line 357 for an extra point try. Other major
variables are MD(0, I, or 2 players); YL(yardline-70 to
+70); PO (the offensive play); PD (the defensive play);
and BT(the team with the ball). Line 178 is an example of
the ball changing hands. DATA lines 545-549 contain the
basic results without team strengths factored in or ran-
domness, If the game of football does not interest you,
but you've read this far, consider the challenge of finding
just how the play outcomes are really determined. It is not
straightforward. For the music buffs, identify the pep
songs played tin oughout the game and you desei ve to be
spotted seven points in your next game.
When you play Strategy Football, don't try to "out-
think" the game or "beat" the game by looking at the
DA TA statements and trying to figure out what to
choose. Just play the game like football. Think football.
When it's necessary to onside kick, do it. Remember, the
hull wnn'l travel very far . . . hnt there is a gnnd chance nf
a fumble. Also, when going for a field goal, realize that a
kick inside the 20 yard line is almost a sure thing. Almost!
A kick from outside the 40 yard line is tough, but
possible.
Your offensive plays all have things going for them:
1) The dive play is good for short yardage situations.
It's good for I or 2 yards almost always.
2) The trap play is the basic running play to the inside.
It's hard to stop for a few yards unless the defense is
keyed on the runner.
August 1063
3) The sweep is the basic outside running play. It can be
stopped with a keying defense or the blitz. It can also
break it big!
4) The reverse is a "gadget" play. This will either go long
or lose yardage.
5) The slant pass is a pass play to the tight end over the
middle. A zone defense can beat it, but it can go for
big yardage.
6) The sideline curl pass is a good medium yardage
pass. It's good to stop the clock and hard to intercept.
But when it is intercepted, watch out! The defense
has nothing but daylight to score.
7) The fly pass is "the bomb." The split end streaks
down the sideline and catches it for a big gainer.
Beware of a blitz. This pass takes a long time to
throw and a blitzing defense can sack the quarter-
back.
The defensive plays also have special uses:
1) A 5-3 man-to-man is the basic defense. You key on
the runner and guard the receivers man-to-man. This
is better against the run.
2) A 4-4 zone is the basic anti-pass defense. The backs
cover a zone rather than a man. A sweep can beat this
defense.
3) A 5-3 zone strong side is good at rushing the passer
(five man) and it can usually stop the most common
strong side passes. Watch out. The weak side is
vulnerable and you might get burned.
4) A 4-4 blitz looks like the 4-4 zone except the safety
and one linebacker rush the passer. This defense can
H
L\/peRoN
/ I pre;
3N_xF
WRQ
presents
TKEKBEST
The BEST • Trek ' game ever 1 1 1
INTRUDER ALERT!
Can YOU outsmart the Robots???
Both games with multiple levels, and
Realtime, Fast Action lowres graphics I
Each for only $16.95
-- The BEST in Adventures --
** THE NECROLOGUE TRILOGY **
A Three program Adventure ! 1 1
All Three 16k programs
for only $17.9!?
THE QUEST FOR THE STAFF OF LLORIMR
*** Book I Parts 1&2 ***
Both parts (2 l6k programs) for 13.95
(Parts 3&4 coming soonl)
All prices include P. & H„ NY State
residents please add app. sales tax.
HYPERION SOFTWARE
P.O. Box 196
Lagrangeville, NY 125^0
be devastating to a pass play and can usually stop a
short yardage running play. Be careful here. The blitz
leaves the receivers open usually just enough.
5) The prevent defense (pronounced PRE-vent) will
stop virtually all long gainers when the offense has
"pulled out all the stops." A few long gainers can
happen; that's the game of football. Oh yes, the
prevent practically gives away the 10 to 20 yard play,
so use it sparingly.
Well, that's Football Strategy. Put on your helmet and
go to it. A few bumps and bruises and you'll be an expert.
The listing:
v«
. , 02E3
. . 058C
296..
..2355
50...
325..
. 26D5
76...
. . 07FA
344..
. 291D
87...
. . 0A16
371..
. 2C43
106..
..0C2A
388..
. 2E5F
136..
162..
186..
219..
. . OFBD
. . 11FA
. . 145C
. . 17EF
419..
. .3213
440..
..3498
469..
..3779
488..
. 3A5B
236..
. . 1A90
510..
3CD0
256..
..1DBE
534..
. 3F3A
280..
. . .2107
END.
. .4281
5 CLEAR500:GOTO550
6 PR I NT6449 , " " : G*« I NKEY*
7 DIMS<2) P SR<2,5>,N*(2>,L*<12),Q
(2)
8 I=RND (TIMER)
9 G0T0489
10 CLS:PRINT«70,"CHOOSE TEAM NAM
ES"
11 PRINT: PRINT: PRINT
12 F0RI=1T02
13 PRINT"TEAM #"; I: INPUTN*(I>
14 IFLEN(N*<I))>12THEN15ELSE16
15 PR I NT "ONLY 12 CHARACTERS. . .TR
Y AGAIN" :B0T013
16 NEXTI
17 F0RI=1T02:L*C1>="
IS IFLEN(N*(I>)=12THEN20
19 N*<I)»N*<I)+RIGHT*<L*<1),12-L
EN(N*<I>>)
20 NEXTI
21 CLS
22 CLS:PRINT@70, "CHOOSE LEAGUE R
ULES":PRINTei60, "1=NFL OR 2-NCAA
â– â–
23 INPUTRU: IFRU=10RRU»2THEN24ELS
E21
24 I FRU=2THENPLAY " T403L3C02L8B03
L4DCP8L3FL8EL4GFP8AP 1 6 AP 1 &AP 1 6AP
16L2AP2L4GFGA-AL3B-L4FGAB-04CD03
L3AL8GL2F"
25 CLS:PRINTa70, "CHOOSE NUMBER O
F PLAYERS " : PR I NT : PR I NT " 0=COMPUTE
R VS. COMPUTER": PRINT" l=YOU VS.
COMPUTER " : PR I NT " 2-TWO PLAYERS "
236 the RAINBOW August 1983
INTERNATIONAL SOFTWARE INC.
(604) 474 2271
771 HOCKLEY AVE., V I CTOR I A â– B â– C , V9B 2V5
TOP STIX, IS A JOYSTICK INTERFACE FOR THE COLOR COMPUTER, IT WILL ALLOW YOU TO
USE THE FAMOUS ATARI JOYSTICK AND EVEN DATASOFT'S LESTICK, THE TOP STIX WORKS
ON MOST PROGRAMS BUT NOT ALL, GET THE FEEL OF ARCADE FUN ORDER YOURS NOW
$29.95
TO ORDER SEND CHEQUE OR MONEY
ORDER, VISA NO#,AND EXP DATE
TO ADDRESS ABOVE, PLEASE ALLOW
2 TO 3 WEEKS FOR DELIVERY,
CATALOGUE WITH EVERY ORDER
GHOST GOBBLER
$27.95
DEFENSE
$27.95
ROBOT BATTLE
$27.95
Please allow 2-3
weeks for delivery
NO C.O.D. ORDERS
PLANET INVASION
$27.95
CCTHELLO
$22.95
SPACE RACE
$27.95
PIRATES AHOY
$11.95
ESCAPE FROM PRISON CITY
$10.95
_ _ — — — mCOUPON — — — -
MAIL ORDER ONLY PLEASE
20% OFF
any order over $30.00
| Include this coupon with your order
to get this special offer.
GALAX ATTAX
$27.95
— — — - COUPON
CANADIANS ORDER IN CANADA AND SAVE. NAIL ORDER OR VISIT THE DEALER NEAREST YOU, ALL PRICES IN CANADIAN FUNDS
DEALERS ON VANCOUVER ISLAND:,
IN SIDNEY: SIDNEY RADIO SHACK LTD. IN VICTORIA: EXCALIBUR SYSTEMS LTD. IN SOME: SOOKE RADIO SHACK LTD.
IN LADYSNITH: LADYSBITH RADIO SHACK LTD. IN PARKSVILLE: PARKSVILLE RADIO SHACK LTD. IN COURTENAY: COURTEHAY RADIO SHACK.
IN CAMPBELL RIVER: CAHP8ELL RIVER RADIO SHACK LTD. IN PORT HARDY: PORT HARDY RADIO SHACK LTD.
26 I NPUTMD : MD= I NT ( MD > : I FMD< 0ORMD
>2THEN25
27 CLS:PRINT@70,"CHOOSE TEAM STR
ENGTHS":PRINT:PRINT"TOTAL MUST A
DD TO 10":GOSUB126
28 L*(1)="RUSHINB OFFENSE" :L* (2)
* " PASS I NG OFFENSE " Z L* ( 3 ) - " RUSH I N
G DEFENSE" :L*<4)="PASSING DEFENS
E":L*(5> ""KICKING GAME
29 F0RI=1T02
30 FORK=1TOS:SR<I,K)*0:NEXTK
31 F0RK*1T05
32 CLS:F0RJ=1TQ5:PRINT@14+(J+1>*
32, L* < J) S SR < I , J) : NEXTJ
33 PR I NTS224 , N* ( I ) : G0SUB3S : PR I NT
6258, L* (K) : INPUTSR ( I , K) : G0SUB35:
IFSR < I , K) <0ORSR ( I , K) >10THEN48
34 GOT037
35 t=0:forj=itos:t=t+sr(I,J):nex
TJ
36
37
38
39
40
"»T: RETURN
PRINT@500, "TOTAL
IFT=10THEN40
IFT>10THEN49
NEXTK
I FTO 1 0THEN49ELSECLS : PR I NT " VE
RIFY SELECTtONS":PRINT:PRINTN*(I
): PRINT: F0RK=1T05: PRINTL* <K) % SR <
I,K>
41 NEXTK
42 PR I NT "PRESS < ENTER > TO CONTIN
UE, <N> TO REDO"
43 G*= I NKE Y* : I FG*= " " THEN43
44 IFG*="N"THEN31
45 IFG»="Y"THEN46
46 NEXT I
47 GOTO50
48 PR I NT "VALUE TOO HIGH" :G0SUB12
7SG0T032
49 PR I NT "TOTAL MUST EQUAL TEN":G
OSUB127:GOTO30
50 CLS: PRINT" COIN TOSS"
51 0NMD+1G0T069,52,72
52 G0SUB54
53 G0T058
54 PRINTN*(1>
55 PR I NT "CHOOSE <H>EADS OR <T>AI
LS"
56 G** I NKEY* : I FG*« " " THEN56
57 I FG*= " H " ORG*= " T " THENRETURNELS
E56
58 IFRND(2)=»1THEN59ELSE61
59 PRINT" HEADS IT IS !!":GOSUBl
26
60 IFG*="H"THEN65ELSE63
61 PRINT" TAILS IT IS !!":GOSUBl
26
62 IFG*="T"THEN65ELSE63
63 PRINT" YOU LOSE, ":PRINTN*(2
— Mutyam industries, inc.'
1-713-392-0747 Kat Y (Houston), Texas 77450
To Order
1-800-231-3680
800-231-3681
SAVE BIG DOLLARS ON ALL TRS-80& HARDWARE & SOFTWARE
TRS-80® by Radio Shack. Brand new in cartons delivered. Save state sales tax. Texas residents,
add only 5% sales tax. Open Mem. - Fri., 9 - 6, Sat., 9 - 1. We pay freight and insurance. Come by
and see us. Cal1 uS for a reference in or near your city. Ref: Farmers State Bank, Brookshire,
Texas.
WE OFFER ON
REQUEST
Federal Express (overnight delivery)
Houston Intercontinental Airport
Delivery, Same Day Service
U.P.S. BLUE-Every Day
References from people who have
bought computers from us probably
In your city. We have thousands
of satisfied customers. WE WILL
NOT BE UNDERSOLD!
ED McMANUS
B
No Tax oh Out of Texas Shipments!
Save
10% 15%
OR MORE
WE ALWAYS
OFFER
We accept MasterCard, Visa and
American Express cards
We use Direct Freight lines. No long waits
We always pay the freight and insurance
Toll free order number
Our capability to go to the giant TRS40®
Computer warehouse 5 hours away, in
Ft Worth, Texas, to keep you in stock.
" TRS40 a > Rtgbttna' Tndmartt of Tmly Cotp.
TELEX: 77-4132 (FLEXS HOU)
JOE McMANUS
r
238
the RAINBOW
August I983
)5" WILL RECEIVE":G0SUB127
64 BL=l:GOTDB4
65 PRINT" YOU WIN THE TOSS...WIL
L YOU <K>ICK OR <R>ECEIVE?"
66 G*= I NKEY* : I FG*= " " THEN66
67 I FG*= " K " THENBL* 1 ELSE I FG*= " R " T
HENBL=2
68 60T084
69 I FRND ( 2 > - 1 THENBL= 1 ELSE8L=2
70 PRINTN*<BL>5" WINS THE TOSS":
PR I NT "AND WILL RECEIVE":G0SUB127
: IFBL=1THENBL=2ELSEBL-1
71 B0T084
72 Q0SUB54
73 I FRND ( 2 ) - 1 THEN74ELSE77
74 PRINT" HEADS IT IS !!":BOSUBl
26
75 IFG*="H"THENBL-lELSEBL-2
76 B0T079
77 PRINT" TAILS IT IS !!":GOSUBl
26
78 IFG*="T"THENBL*1ELSEBL=2
79 PRINTN*(BL)S" WINS THE TOSS":
PRINT"WILL YOU <K>ICK OR <R>ECEI
VE ?"
80 G*= I NKEY* : I FG*= " " THEN80
81 IFG*="K"THEN84
82 IFG*O"R"THEN80
S3 IFBL=1THENBL=2ELSEBL=1
84 S(i)»0:S(2)=0:TQ=l:TM«15:TS*0
: YF=10: YT=0: L=l : DN=l : FLAG-BL: Q ( 1
)=3:Q(2)*3
85 L* < 1 > -"DI VE" : L* <2> ="TRAP" : L* (
3) -"SWEEP" : L* (4> ="REVERSE" : L* (5>
="TIGHT END SLANT" : L* <6)="SIDELI
NE CURL" : L* (7) ="FLY" : L* <8) ="5-3
MAN-TO-MAN"
86 L*(9)«"4-4 ZONE":L*(10)*"5-3
ZONE STRONG SIDE" :L*<li >="4-4 BL
L<12)="PREVENT"
I
87 CLS: PRINT@33, N* ( 1 ) J : PRINTS47,
S < 1 ) ; : PR I NTS53 , " QUARTER " ; TQ J
88 I FTS >9THENM*=STR* < TS ) ELSEM»= "
0"+STR*(TS>
89 M*=STR* ( TM ) + " : " +M*
90 PRINTa65,N»(2);:PRlNT@79,S(2)
5:PRINT@85,M*
91 PRINTai30,DN;" DOWN "5
92 IFYFO-1THENPRINT@140,YF? "YAR
DS TO GO"ELSEPRINT@140, "GOAL TO
GO"
93 PRINTSTRING*(32, "-">
94 IFL=1THENPRINTN*(BL)+" KICKIN
G OFF"
95 IFL=3THENPRINTN*<BL>+" EXTRA
POINT TRY"
96 IFL=2THEN99 , . «
97 G0SUB129 [/Y\<X I Kj _
H
M&S SOFTWARE SAVES YOU MONEY!
ORDER NOW AND SAVE 10* ON
OR DER THREE PROGRAMS AND
THE DOT PRINTER
IS an easy way to Hi ah
Resolution. Draw dot-by-do
lines by holding down two
Kers (Eras* the same way)
on tape or disk for $19.95 ! /*$
#> V
same easy price
NEH - Dan Hickle'i OOWMNTEft
ON ORDER
SAVE 15*
OF TWO PROGRAMS
OFF THE TOTAL
Ust your Users or Space Torpedoes
to destroy the fCRZQlD enetiy, but
don't forset to set your shields or
repair dasase. Lose computer control
and drift into a Black-Hole or Star
Life SupportiHarp Driver Other Options
Best TREK Prosra* # Oct. 82 RAINBOW
QTAR 16or32K
O I MM, ONLY
PILOT *19.95
TAFS-MSK
M&S PAYS SHIPPING
ViSit The DUNGEON MAZE.
Save The PRINCESS. Can
You Escape ft I ive? Only
By Us ins Certain Mas i c
tenis Found In The Maze!
See Revim In Nov.82 RAINBOU
NEW MAZE f
•quires 32K EX TENDED* ^2 -O- *
95
WATCH FDR OUR SOON-TO-BE- RELEASED
PLL-DISK HI-GRAPHIC 5PY-ODVENTURE
EDITOR, 22 FUNCTION TEXT-PROCESSO* SI 4.93
Mould you like us to sell VTJUR Pfosran? we Mill-
do i t on a royalty or consiswent bas is
LOOKING for a ctrtait ty*e pros ras? Lai Us Kbom.
ORDER NOW !
Personaiiied Checks Accepted With NO Maitins Period
BSc
nfttuara
No.1 Sunset Drive Lodi, OH 44254
August 1983
the RAINBOW
239
L. lAV\,vu^ (Jo^^p
9G IFFLAG— 1THEN101ELSE106
99 GOSUB107:PRINTjJ*<BL>+" BALL".:
PRINTY* . „„ , " " " „
100 BQTOg JgL-JUj^^^^^-^
101 PRINTQ354, " THE GAME IS OVER"
</"#
102 IFS(1>>S<2)THENPRINT@420,N*<
1)+" IS THE WINNER"
103 IFS <2) >S ( 1 ) THENPRINTS420, N* <
2)+" IS THE WINNER"
104 IFS<2)=S(l>THENPRINTa420," T
HE GAME ENDS IN A TIE ' '"
105 END
igA nNipmrnxii,?!:*,**-
YL=INT(YL>
I F YL< —60THEN 117
IFYL<-50THEN118
IFYL=-50THEN119
IFYL<0THEN120
IFYL=0THEN121
IFYLO0THEN122
IFYL-50THEN123
IFYL<60THEN124
I FYL > «60THEN125
Uoof
Y*="OUT OF THE "+N*<1>+"
END ZONE": RETURN
IIS Y*=STR*(ABS(YL)-50)+ u YARDS
DEEP IN THE
" +N* ( 1 ) +" END ZONE " : RETURN
119 Y*="ON THE "+N*<1>+"
GOAL LINE": RETURN
120 Y*="ON THE "+N*<1>+"
"+STR»(50+YL>+" YARD L
INE": RETURN
121 Y*«"ON THE 50- YARD LINE": RET
URN
122 Y*-"ON THE "+N*<2>+"
"+STR*<50-YL>+" YARD
LINE": RETURN
123 Y*="ON THE "+N*(2)+"
GOAL LINE": RETURN
124 Y*=STR*<ABS(YL>-50)+" YARDS
DEEP IN THE
+N*<2>+" END ZONE": RETURN
V
V
f ffh*4&jt^k ^h-^
125 Y*="OUT
OF THE "+N»(2)+"
END ZONE": RETURN
.r~T25~FBR5E?I TO500 : NE XT : RETURN
127 FORDL*1TO1500: NEXT: RETURN
1Z B_ FORDL=lTO20 00jNEXT jjjETURN
29" I FMD=0THENGOTO127â„¢" "~
1 30 I FMD< >0THENPR I NT6449 , " PRESS
ANY KEY" .^_
131 PRINT@449,"":G*=INKEY* l
t_132 IFG»="_ t ^QjEJNJL30EJ^SJEB£J-UBN------
n^S~^&f~im0=KQ f 2000=SCR, 3000«XP
134 YL=10: IFRU»1THENYL*15
135 IFK=99THENYL=30
136 K=0
137 IFBL-ITHENYL— 1*YL
138 IFMD=0THEN142
139 IFMD-2THEN143
140 IFBL=1THENG0SUB157ELSEG0SUB1
61
141 G0T0144
142 G0SUB161: GOTO 144
143 G0SUB157
144 CLS
145 GOSUB107
146 PR I NT "THE BALL IS "+Y*
147 PRINTN*(BL)+" KICKING OFF"
1 48 PL A Y - V3 1 T202L 1 0CEGO3CP 1 0O2L2
0GO3L2C" : G0SUB127
149 IFBL-1THENBT=2ELSEBT*1
150 0NZN+1G0T0151,154
1 5 1 KL=30+RND ( SR < BL , 5 > *20 ) +RND < 1
0):KL-INT(KL)
152 IFKL>70THENKL»70
153 GOTO 164
154 KL=15:KL=KL+RND(SR(BL,5)*10>
+RND (5) : KL*INT (KL)
155 IFKL>70THENKL«70
156 GOTO 164
157 G0SUB126:CLS:PRINTN*<BL):PRI
NT M CHOOSE ONSIDES KICK?<Y/N) " :PR
INT: PRINT
1 58 G*= I NKEY* : I FG*= " " THEN 1 58
159 IFG«="Y"THENZN=1ELSEZN=0
160 RETURN
Datacomp Computer Systems, 35 Farmstead Road, Short Hills, NJ 07078 (201) 376-6093
Call or write to order. Phones are answered 24 Hrs./day, 7 days/week.
TDP-100, 16 Kfrom $269
1 00% TRS-80 Color Computer
compatible. Comes with a pair
of Joysticks and a rompack.
TRS-80 Color Computer
(TDP) Disk Drives
Drive $415
Drive 1 $245
C. ITOH Prowriter8510
parallel printer, i 20 CPS
3K buffer, hi-res graphics
1 year warranty $395
Color Computer parallel
printer interface $69
Wabash Diskettes. 1 year
warranty. Certified 100%
error free, w/hub rings.
SS/SD $17.50/box of 10
SS/DD $19.95/boxof 10
NEW! PLANET FURY
by DCS Software. 32K ext. basic
req'd. Just like Gravitar in the
arcade. Hi-res graphics, 6 colors,
sound. Only $1 9.95 cassette.
We carry ALL Color Computer
software including Tom Mix, Spectral,
Med Systems, Computer Ware, Datasoft
Intracolor, and more. Up to 25%
discount. Call for more info!
All equipment carries manufacturers
warranty. Prices do not include shipping.
240
the RAINBOW August 1983
Complete Personal Accountant:
we've made the best
much more friendly.
If you have any doubts that we offer the best and
most complete personal financial package available,
look over the features listed below. Now we have
the only package with full screen editing for Atari
400/800* TRS-80 COLOR, Commodore 64* and
VIC-20; the ability to move the cursor in any direc-
tion makes our accountant-designed package ,•*
even more friendly than before. No one else ill*.
offers all of these:
1. CHECKBOOK MAINTENANCE- .
automatically balances your checkbook A
with each entry; manages checks,
charges, deposits, and interest quick- j
ly and accurately. *
2. CHART OF ACCOUNTS-
maximum of user flexibilty with
up to 99 accounts plus 9 sub-
categories may be defined.
3. CHECK SEARCH-mul-
ti-reference; tracks items
on every field including
tax deductibles.
4. NET WORTH/
INCOME/EXPENSE
STATEMENT-
know-exactly-
where-you-stand
program generates
statements with the
touch of a key.
5. DETAILS SUMMARY
BUDGET ANALYSIS-an
absolute necessity in financial
planning.
6. CHECK WRITER-prints
personalized checks**
•Random Access available for disk. **32K only.
7. PAYMENTS/APPOINTMENTS CALENDAR-
monthly displays of up to 250 bills and 200
appointments.
8. COLOR GRAPH DESIGN PACKAGE -graphs
all monthly files.
9. MAILING LIST— maintains all records, sorts by
name or zip, allows add/change/delete.
10. FRIENDLY USER MANUAL-complete
with indexing, flow charts and diagrams; the
t most thorough documentation on the
»■market.
This all adds up to the finest personal
financial system available— compre-
hensive enough for a small business
k Less than one hour of data input
■*• per month will allow this menu-
driven package to help you
^ handle your finances with a
lot more fun than drudgery.
Plus, ours is the only
^ expandable system; pur
chase the package in
sections and add on
k as your financial
needs grow. Fea-
tures 1,2, 3 and 6:
$39.95 diskette,
$36.95 cassette; Fea-
tures 4 and 5: $29.95
diskette, $26.95 cassette;
Features 7, 8 and 9: $29.95
diskette, $26.95 cassette; or
save $19.90 or $15.90
respectively by '
entire system for
kette, $74.95
^.j£,,li
IB
TOSflRnnliwnSsHiMM WRhout notice. See your local dealer or order direct. New catalog available.
Add S3 00 for postage and handling Credit card orders call toll tree
1-800-334-SQFT
progranmierto
p.o. box 3470, dept. R, chapel hill, north Carolina 27514, 919-967-0861
1 6 1 ZN=0 : I FTQ=4ANDBL= 1 ANDS ( 2 ) -S (
1) >7THENZN=1
1 62 I FTQ=4ANDBL=2AND5 ( 1 > -S ( 2 > >7T
HENZN=1
163 RETURN
G0SUB127
IFABS(YL) >=&0THEN17B
IFABS < YLX60ANDABS (YD >49THE
â– i THENBL-2ELSEBL= 1
F0RI=1T015:RL=RL+RND(43
164 CLS: PR I NT "BALL TRAVELS ";KL;
" YARDS": IFBL=1THENYL=YL+KLELSEY
L=YL-KL
165 QOSUB107:PRINT"KICK TAKEN "+
Y*
166
167
168
N1S2
169 IFBL-
170 RL=0:
>:NEXTI
171 RL=INT(RL/16)+(SR(BL,5)-SR(B
T,5>)*RND(B>
172 RL=INT(RL>
173 I=RND(10+SR(BL,5)>
174 IFI=1ANDZN=0THENRL=-1
175 IFK4ANDZN=1THENRL=-1
176 CLS
177 GGTQ1B9
178 IFBL=1THENBL=2ELSEBL=1
179 YL=-30: IFBL=2THENYL=30
180 PRINT"TDUCHBACK . . BALL GOES
TO 20":GOSUB127:TP=0:GOSUB422
181 DN*l:L=2:YF*l0:YT»80:TP*7:GO
SLiB422:GQTOS7
182 IFMD=0THEN17B
183 IFBL=1THENBL=2ELSEBL=1
tfON 1 -
For Your TRS-80 Color Computer
128 Full-time Audio Talk/Tutor Programs!
You naif be Mile to
reduce your taxes by
- incone
Interne
spl I 11 111'}
tan shelter
One £4 1 1 iftle adjaet tuaa thai
We're Your Educational
Software Source
LANGUAGE ARTS
Spelling
Level 3-4
(words in context with
definitions and synonyms)
Phonics
English as a
Second Language
MATHEMATICS
Levels 1-6 Numbers
Basic Algebra
SCIENCE & TECHNOLOGY
Physics (16 programs)
(16 programs)
(16 programs)
(16 programs)
(32 programs)
(16 programs)
(16 programs)
U "sud 111 juat add | H
'.'huh Uiis, oiic lyllabls?
O icy
in Color, with Pictures and Text!
All of our TRS-80 Color programs have easy to understand profes-
sional announcer narration, not synthesized, robotic voices. All text
is displayed in easy to read upper- and lower-case characters. Video
clearly illustrates key concepls in each frame of the program.
Only $4.40 per program, ($8.80 for 2, one on each side of a half-hour
cassette). $59.00 tor 16 programs (8 cassettes) in an album, Send for a
catalog of over 1000 programs for Atari, TRS-80, Apple, etc
For more information, or to order call:
TOLL FREE 1-800-654-3871
DORSETT
Educational Systems, Inc.
Box 1226, Norman, OK 73070
242
the RAINBOW
August 1983
1S4 IFMD=1ANDBL=1THEN186
185 IFMD=1ANDBL=2THEN179
186 PRINTN*(BL>:PRINT" CHOOSE TO
RUN THE BALL OUT? (Y/N) "
1 87 G*= I NKEY* : I FG*= " " THEN 1 87
I FG*= " Y " THEN 1 70ELSE 1 7?
IFRL=-1THEN203
I FBL= 1 THENYL=YL+RLELSEYL=YL-
188
189
190
RL
191
192
193
194
195
1 FBL= 1 ANDYL >=50THEN200
I FBL=2ANDYL< =-50THEN200
I FBL= 1 ANDYL< -50THEN 1 79
I FBL=2 AND YL >50THEN 1 79
DN= 1 : L=2 : YF= 1 : I FBL= 1 THENYT«=
50-YLELSEYT=50+YL
196 IFYT<11THENYF=-1
197 PRINT: PRINT: PRINTN*<BL)+" RE
TURNS IT ":PRINTRLi" YARDS AND I
S DOWN"
1 98 GOSUB 1 07 : PR I NT Y* ! GOSUB 1 28
1 99 TP=24 : G0SUB422 : G0T087
200 PRINTN*<BL)+" BREAKS A TACKL
E GOES ALL THE WA
Y": GOSUB 126
201 G0SUB462
202 S<BL)=S(BL)+6:YF=*10:DN=1:L=3
:TP=27:G0T087
203 FOR I = 1 T08 : CLS ( I > : SOUNDRND ( 25
5) , l:NEXTI: CLS: PRINT: PRINT"FUMBL
E. ..":G0SUB127
204 IFYL>49ANDBL=2THEN212
205 IFBL=1THENPRINTN*(2)+" RECOV
ERS ! " ELSEPR I NTN* < 1 ) + " RECOVERS ! "
206 SOUND250, 13: GOSUB 127
207 TP=20 : G0SUB422 : DN= 1 : L=2 : YF= 1
208
209
YL
210
211
212
I FBL= 1 THENBL=2ELSEBL= 1
I FBL= 1 THENYT=50-YLELSEYT=50+
IFYT<11THENYF=-1
G0T087
PRINT" IN THE END ZONE..T0UC
HBACK": GOTO 179
213 IFBL=1THENYT=50-YLELSEYT=50+
YL
214 IFBL=1THENBT=2ELSEBT=1
215 I FBL= 1 ANDMD< >0THEN226
216 IFBL«2ANDMD=2THEN226
217 ONDNGOTO218,220,222,224
218 I FTQ=4ANDT< 30ANDYT< 40ANDS < BT
) -S < BL X 3THENP0=9ELSEP0=RND ( 7 )
219 G0T0234
220 I FTQ=4ANDT< 30AND YT< 40ANDS ( BT
) -S < BL X 3THENP0=9ELSE I F YF > 1 0THEN
PO=RND < 3 > +4ELSEP0»RND ( 7 >
221 G0T0234
222 IF(TQ=4ORTQ=2)ANDT<30ANDYT<4
0THENPO=9ELSE I F YF >6THENP0=RND < 3 )
CIRCLE CITY
SOFTWARE
P.O. Box 30166
Indianapolis, Indiana 46220
Credit Card Customers
include number and expiration date.
SEA TRADER
A new game in which you play an 18th cen
tury sea captain plying the trade routes.
The you start start out on a shoestring
and try to become a billionaire. Hazzard
include pirates, storms, bad markets,
and bad debts. People have become
so fascinated with this game that
they actually cheat to keep from
winning. 16K color basic, tape or dis
$19.95.
COLOR STAR PILOT
Take a trek through space to defeat the
alien enemy in this superior version of
a classic space game! Reviewed in Rain
bow. Requires extended basic. Comes
with 32K 3-level game or 16K novice
version. Tape or disk $1 9.95.
NEW MASTER DISK $29.95
A touch of a button allows you to keep tabs
on your disk library. Creates directory files
directly from 100 of your source disks on one
Master Disk. Search by file name, file type,
disk name, free space, or individual directory.
All output can be sent to line printer. Menu
driven and very user friendly! This is an im-
proved version of the program reviewed inThe
Rainbow. Optional accessory package adds
even more features. 16K or 32K disk required.
ACCESSORY PACKAGE $20.00
A second disk for improved versions of the or-
iginal single-disk accessory programs. Includes
notebook for storage of disks and paperwork.
*SORT*
New Sort program is faster and more efficient
than original version. Runs in 16 or 32K to
produce an alphabetic listing of all file types
you specify.
"RECOVER*
New Recover program not only rewrites direc-
tories from master files but can rebuild an en-
tire disk to eliminate "10" errors.
*ZAP*
New addition. User friendly directory Zapper
to manually correct directory data when all
else fails. Menu-driven with help files for
novices.
August 1983 the RAINBOW 243
+4ELSEP0«RND<4)
223 G0T0234
224 K=S ( BT ) -S ( BL) : I F ( TGN4ANDK >3A
N0YT< 40 ) OR < TQ=4ANDK >3ANDYT< 90AND
TM< 2AND YT >40 > OR < YF< 3 ANDYT< 20ANDK
>3 > THENPO= 1 +RND ( 6 ) ELSE I F ( TGM4 AND
K<4ANDK>0ANDYT<40> OR (TQ=2ANDK<8A
NDK>0ANDYT<40) OR < YT<37) THENP0=9E
LSEPO=B
225 60T0234
226 CLS
227 PRINT
228 PRINTN*(BL):PRINT"SELECT OFF
ENSIVE PLAY": PRINT: PRINT" 1-DIVE
s=SA VE " : PR I NT " 2=TRAP
T=TIMEOUT"
229 PR I NT " 3«SWEEP " : PR I NT " 4=RE VER
SE " : PR I NT " 5=SLANT PASS " : PR I NT " h-
CURL PASS " : PR I NT " 7=FL Y " : PR I NT " 8=
PUNT " : PR I NT " 9=F I ELD GOAL "
230 G*= I NKEY* : I FG*= » " THEN230
231 PRINTQ416, "*"
232 I FG*= " s " THEN525ELSE I FG*- " T " T
HEN406ELSE I FVAL < G* )< 1 ORV AL < G* ) >9
THEN230ELSEPO=VAL (G*)
233 GOT0234
234 IFBL=2ANDMDO0THEN237
235 IFBL=1ANDMD=2THEN237
236 G0T0244
«
<£o from
CoCoHuf
THE ULTIMATE STRATEGY GAME
1 or 2
players
Cassette $19.95 Disk $24.95
Send check or money order to:
COCOHUT
P. O. Box 24451
Houston, TX 77015
RAINBOW
CERTIFICATION
237 CLS: PRINT: PRINTN* <BT) : PRINT:
PRINT
238 PR I NT "SELECT DEFENSIVE PLAY"
: PR I NT : PR I NT "1 = 5-3 MAN-TO-MAN
":PRINT"2 - 4-4 ZONE"
239 PR I NT "3 = 5-3 ZONE STRONG SI
DE":PRINT"4 « 4-4 BLITZ
s^SAVE'^PRINT 1 ^ - PREVENT
T=TIMEOUT"
240 G*= I NKEY* : I FG*« " " THEN240
24 1 I FG*« " s " THEN525ELSE I FG*= " T " T
HEN407ELSEIFVAL <G*>< 10RVAL (G*) >5
THEN240ELSEPD=VAL (G*>
242 PRINT@416, "*"
243 G0T0246
244 IFTQ=4ANDS<BT)-S(BLX6ANDT<1
30ANDYT< 50THENPD=5ELSE I FDN=3AND Y
F >5THENPD=RND ( 3 > + 1 ELSEPD=RND ( 4 )
245 G0T0246
246 IFP0=8THEN247ELSEIFP0=9THEN2
75ELSE290
247 CLS: PRINTN* <BL>+" IN DEEP PU
NT FORMATION" : GOS
UB127: I=RND(10> : IFI=7THEN248ELSE
259
248 IFBL=1THENYL=*YL-15ELSEYL=YL+
15
249 IFBL=1THENBL=2ELSEBL=1
250 I FABS ( YL ) >=50THEN255
25 1 DN= 1 : L=2 : TP= 1 0+RND ( 20 ) : GOSUB
422
252 PR I NT "THE KICK IS BLOCKED ! !
" : PR I NTN* < BL ) + " RECOVERS " : S0UND2
50,13:GOSUB127
253 YF= 1 : I F ( BL= 1 ANDYL >40 ) OR ( BL=
2ANDYL< -40 ) THENYF=- 1
254 G0T087
255 PR I NT "THE KICK IS BLOCKED !"
: PRINTN* <BL>+" RECOVERS IN THE E
ND ZONE": PR I NT" IT'S A TOUCHDOW
N! !"
256 G0SUB462
257 S<BL)=S<BL)+6:DN=l:L=3:TP=10
+RND(15>:G0SUB422
258 G0TOS7
259 KL=RND(8)+7:KL=INT<KL*5>
260 PR I NT "THE KICK IS AWAY":GOSU
B127
261 IFBL=1THENYL=YL+KLELSEYL=YL-
KL
262 IFBL»1THENBL=2ELSEBL=1
263 IFABS<YL)>«50THEN179
264 I -RND ( 5 ) : I F I -3THEN265ELSE268
265 PR I NT "FAIR CATCH CALLED": GOS
UB 126: PRINTN* <BL>+" TAKES OVER":
60SUB126
266 DN=l:L=2:TP=10+RND< 20): GOSUB
422
267 G0T0253
268 GOSUB 107: PRINTN* (BL)+" FIELD
244
the RAINBOW August 1983
THE ALTERNATIVE
COLOR COMPUTER
DISK SYSTEMS
4499S
40 TRACK
DRIVE
80 TRACK
DRIVE
ROM SOFTWARE
200 K BYTES
USER STORAGE
400 K BYTES
USER STORAGE
Uh I WHKb INCLUDES: TC-99 Disk Controller W/CCMD 9 DOS
p t ri ROM • 40 Or 80 Track Disk Drive • Power Supply •
â„¢Srific Case * 2 Drive Cable * 9 Dlsk utilit V Programs
TipdiiDie L»Ub . CCEDT9 Disk Text Editor • Disk Text Processor 1
Manufactured under License From Tall Crass Technologies
A Full Featured
Basic compatible DOS
Editor /Assembler CO-RES9
CO-RES9 is a Co-resident Editor/Assembler that
will allow you to create, edit and assemble
machine language programs for the color com-
puter, it will quickly and efficiently convert;
assembly language programs into machine code
files, ft wilt output machine object code to either
cassette tape in a CLOADM' compatible format or
directly to memory for direct execution; IfQVt
CO-RES9 editor /assemDier tape Owl*
wVmanuai $39.95. $29.95
RSCMSIC EDITOR & ASSEMBLER Disk
w/manual r$?9^S^ $49.95
LexL Pro 31
"The Professional's
TEXT PROCESSOR FEATURES
• Character Fid
• Programmable Footer
• Right Justify Line
• Multiple Footnotes
• Three indent Modes j
• Three Programmable Headers !
• Tell programmable Tab Stops
• Margin Justification
Left & Rignt
• Decimal Align, center, Left &
Right Justify on Tab Column ,
• Display & Input from Keyboard
• Change Formatting During
Processing
Word Processor"
TEXT EDITOR FEATURES
• Single Keystroke Ed»t
command
• Append Fifes from Tape or Disk
• Fully integrated Disk Fife
Handler
■« edit or Process Files Larger
Than Memory
• (No Conversion Required) Fully
ASC II Compatible
• fuii Featured Line oriented
Screpn Fditor
• Search and Replace Any
Character Pattern
• Copy, Move or Delete Lines
or Blocks of Text
• Edit Basic, Text or Assembler
Files
text pro ll Features Over 70 commands in All. Disk ... $79.95
Full Text Buffering
Terminal Baud Rates 300 to 9600 Baud
Automatic word Wrap Eliminates Split Words
Full/Half Duplex
Automatic File Capture
Programmable Word Length, Parity & stop Bits
Automatic Buffer Size At Memory Limit
Save & Load Text Buffer to Tape or Disk
Send Files Directly From Buffer Or Disk
Full Disk Support For Disk Version
printer Baud Rates 110-4800 y^^v
Send Control Codes From Keyboard ffr\ft
ASCII Compatible File Format rainbow
5566 Ricochet Avenue
Las Vegas, Nevada 89110
• Display On Screen or output contents Of Buffer
To Printer
We also have a disk version available called m diskpack."
it includes all the commands mentioned plus com-
mands for disk control. They include: Disk Load, Disk
Save, Directory, Send Disk File and Kill Disk File. As usual
all files are Basic compatible ASCII formatted files
which are also compatible with our Text Editor and
Word Processor programs.
Datapack on tape w/manual $24.95
Diskpack for R.s. disk w/manual $49.95
v Diskpack for CCMD 9 w/manual $39.95
(702) 452-0632
All Orders Shipped
From Stock
Add $2.50
Postage
S THE BALL ": PR I NTY*: PR I NT "AND RU
NS LEFT"
269 I =RND ( 8 ) : I F I =8THENRL=55ELSE I
F I =7THENRL=80ELSERL=RND < 20 )
270 IFBL=1THENYL=YL+RLELSEYL=YL-
RL
2711 FABS ( YL > >-50THEN274
272 DN= 1 : L=2 : TP= 1 5+RND ( 20 ) : GDSUB
422:BOSUB107
273 PR I NT "HE RETURNS IT TO": PR IN
TY* : BOSUB I 27 : G0T0253
274 PR I NT "HE'S SOT BLOCKERS ": 60S
UB126:PRINT"HE'S SOINB ALL THE W
AY ! ! " : GOSUB 1 26 : GOTO20 1
275 IFBL=lTHENRL=17+50-YLELSERL=
17+50+YL
276 CLS:PRINT"A "JRU" YARD FIEL
D BOAL TRY ,, :I=RNDC1U:IFI=7THEN2
48ELSE277
277 KL«SR(BL,5>+20+RND(10):KL=IN
T<KL)
278 I =ABS ( YL ) +KL : I F I >=50THEN279E
LSE285
279 PRINT"THE KICK IS UP. . . " : SOS
UB127:PRINT"AND IT'S BOOD !!!"
280 CLS5:S0SUB463
281 YF=10:S(BL)=S<BL)+3:DN=l:L=l
: BOSUB 126
282 IFRU=1THENYL=15ELSEYL=10
283 IFBL=1THENYL=INT(-1*YL)
284 G0T087
285 PRINT"THE KICK IS UP...": BOS
UB126:PRINT"AND IT'S WIDE ... NO
GOOD . " : SOUND250 ,13: GOSUB 1 27
286 IF(BL«1ANDYL>30)OR<BL=2ANDYL
< -30) THEN 178
287 IFRU=1THEN178ELSE288
288 DN=i:TP=18:GOSUB422:YF«10:L=
2: IFBL=1THENBL=2ELSEBL=1
289 G0T087
290 YL=YL
291 IFBL=1THENBT=2ELSEBT*1
292 CLS : I FPD< >4THENPR I NTN* ( BT ) + "
LINES UP IN A "+L*(PD+7>
ELSEPRINTN»<BT)+" LINES UP IN A
4-4 MAN-TO-MAN"
293 GOSUB 1 26 : I FPO< 5THENPR I NTN* < B
L>+" RUNS A "+L*(PO>ELSEPRINTN*(
BL>+" DROPS BACK TO PASS"
294 GOSUB 126: IFP0<5THEN295ELSEPR
INT" IT'S A "+L*(PO>
295 GOSUB 126: I FPO >4 ANDPD=4THENPR
INT"THEY'RE COMING WITH A BLITZ!
ii
296 GOSUB440
297 IFK=200THEN301
298 IFK=100THEN315
299 J=RND(50) : IFABS <YLX45AND C J =
Talk is Cheap!
You want your color computer to talk,
but how much will it cost?
$50 . . . $100 . . . $200 . . . NO!
HOW ABOUT $29"?
SPEAK UP!â„¢ is a machine language
Voice Synthesizer program for your
TRS-80 Color Computer/ It is
100% software. Nothing else to buy.
Best of all, YOU can make
basic programs talk!
16K and 32K versions on one cassette.
Has text to speech capability.
*T.M. Tandy Corp.
16k minimum
It's easy to use, and will say
virtually anything!
Talk really is cheap!
Reviewed in the April issue of Rainbow.
COD orders, checks accepted - NO DELAY
WE PAY POSTAGE
1-800-334-0854, ext. 890
Except North Carolina
VISA
P.O. Box 3318
Chapel Hill, NC 27515
246
the RAINBOW August 1983
37ORJ=3S)THEN409
300 IFKX0THEN344ELSE324
30 1 I FP0=7THENKL=RND < S > * 1 0ELSEKL
=RND(3)*10
302 KL=INT<KL> : PR I NT "HE DELIVERS
":G0SUB126: PRINT" IT'S GOING AT L
EAST "; 10*INT(KL/10>; " YARDS"
303 PR I NT " I T * S I NTERCEPTED ! ! " : G
0SUB127
304 IFBL=1THENYL=YL+KLELSEYL-YL-
KL
305 IFBL«1THENBL=2ELSEBL=1
306 I F ABS ( YL > >=50THEN 1 79
307 RL=RND<2)*10+RND(10>:IFRL=15
THENRL=65
308 IFBL=1THENYL=YL+RLELSEYL=YL-
RL
309 I FABS ( YL ) >=50THEN200
310 DN=l:L=2:TP=20+RND(20> :YF=10
311 I FBL= 1 AND YL >40THENYF=- 1
312 IFBL=2ANDYL<-40THENYF=-1
313 PRINT: PRINTN*(BL>: PRINT" RET
URNS IT "SRL;" YARDS "
314 SOUND250 ,13: GOSUB 1 27 : G0SUB42
2:G0T087
315 F0RI=1T08:CLS(I):S0UNDRND(25
5) , l:NEXTI:CLS: PRINT" F U M B L
E !": GOSUB 127
316 I FPO< =4THENKL=RND (10) ELSEKL=
RND(25)
317 IFBL=1THENYL=YL+KLELSEYL=YL-
KL
318 1 FABS < YL ) >=50THEN322
319 IFBL=1THENBL=2ELSEBL=1
320 L=2:DN=l:PRINTN*(BL>+" GETS
THE BALL ! " : TP-10+RND <5) : YF-10: G
0SUB127
321 G0T087
322 PR I NT "THE BALL WAS PAST THE
PLANE OF THE GOAL LINE":GOS
UB127
323 GOTO201
324 IFK=0ANDPO>4THENPRINT" THE P
ASS IS INCOMPLETE"
325 GOSUB 127
326 IFBL=1THENYL=YL+KELSEYL=YL-K
327 I FABS ( YL > >=50THEN34 1
328 SOUND250 ,13:1 FK< >0THENPR I NT "
IT'S A GAIN 0F"5KJ" YARDS"ELSEP
RINT" NO GAIN ON THE PLAY"
329 GOSUB 127
330 I F YF< >- 1 ANDK >= YFTHEN335
331 I F YF< >- 1 THEN YF= YF-KELSE YF=- 1
332 DN=DN+l:IFDN>4THEN338
333 L=2 : TP=RND ( 20 ) + 1 : G0SUB422
334 G0T087
335 DN= 1 : YF= 1 : I F < BL= 1 ANDYL >=40 )
OR <BL=2ANDYL<=-40> THENYF=-1
336 TP= 1 2+RND < 20 ) : B0SUB422 : GOSUB
470
337 L=2:G0T087
338 PR I NT "BALL GOES OVER ON DOWN
S": GOSUB 127
339 IFBL=1THENBL-2ELSEBL=1
340 G0T0335
341 I FYF< >- 1 THEN342ELSE343
342 PRINTN*(BL)+" BREAKS INTO TH
E SECONDARY": GOSUB 126: PR IN
T"HE'S GOING TO GO ALL THE WAY!"
: GOSUB 1 26 I GOTO20 1
343 PRINTN*(BL)+" IS IN THERE!":
GOSUB 1 26 :GOTO201
344 IFBL=1THENYL=YL+KELSEYL=YL-K
345 I FABS ( YL ) >49THEN352ELSE346
346 IFDN=4THEN338
347 I F YF< >- 1 THENYF= YF-KELSE YF=- 1
348 DN=DN+ 1 : L=2 : TP= 1 0+RND ( 20 ) : GO
SUB422
349 IFP0>4THENPRINT"THE QUARTERB
ACK IS IN TROUBLE"
350 GOSUB 126: IFP0>4THENPRINT"HE ,
S SACKED !"
351 SOUND250, 13: PRINT" IT'S A LOS
S OF "SABS(K);" YARDS": GOSUB 127:
G0T087
352 IFP0>4THENPRINT"THE QUARTERB
ACK IS DROPPING BACK INTO THE END
ZONE HE'S HIT AND SACKED
FOR A SAFETY "ELSEPR I NT "HE'S HIT
COMPUTERS UNLIMITED
(803) 877-0269
DATASOFT Tape Disk
Moon Shuttle (16K) $27.95 $27.95
TOM MIX
Donkey King (32K) $19.95 $24.95
Space Shuttle (32K) $24 95
Trap Fall (16K) $24.95 $26.95
INTRAC0L0R COMMUNICATIONS
Colorpede (16K) $26.95 $29.95
Robottack (16K) $19.95 $24.95
S«6e«^ ZAXX0N ( 3ZK ]-S Z9 -9 5
^^ I AMDISK III - $499.95
PRINTERS '
Okidata 82A $389.95
We also handle all other Okidata products!
C.ITOH Prowriter (Parallel) $385.95
ACCESSORIES
Super-Pro Keyboard Kit $62.95
We also carry TRS-80 Color Computers.
This is just a partial list — call or write tor catalog!!
TERMS: Money order and your personal checks welcome.
Shipping - $2 00 for software, 2% for hardware.
C.O.D. please add $2.00 — S.C. residents add 4% sales tax.
COMPUTERS UNLIMITED *RT. 7 JOHNSON ROAD
GREER. S.C. 29651 • (803) 877-0269 9 a.m. to 9 p.m. EST.
August 1983 the RAINBOW 247
HARD AND DRIVEN BACK FOR A SAF
ETY ! f "
353 G0SUB127
354 I FBL* 1 THENS < 2 ) «S ( 2 ) +2ELSES ( 1
> »S ( 1 > +2
355 DN=l:YF=10:L=l:TF=10+RND<5>:
G0SUB422
356 K~99:G0T0S7
357 yl=yl:rem EXTRA POINT
358 IFBL=1ANDMD«1THEN376
359 IFMD=0THEN380
360 IFBL=2ANDMD=1THEN380
361 IFP0=3THEN369
362 IFBL=2ANDMD=1THEN384
363 IFMD=0THEN389
364 IFBL=1ANDMD=1THEN389
365 IFP0=3THEN369
366 IFPO=1THEN390
367 IFP0=2THEN394
368 G0T0358
369 CLS:PRINT"THE KICK FOR THE E
XTRA POINT" :SOSUB126:PRINT"THE K
ICK IS UP. . .":I=RND(10):IFI=5THE
N373ELSE370
370 G0SUB127:PRINT" AND IT'S GOO
D ! ! "
371 G0SUB126
372 S(BL)=S<BL)fl:YF*10:YT=0:L=l
:DN=l:G0T0S7
Introducing • MORE Quality Software by MSI.
Featuring * COLOR FINANCE for the Color
Computer - 32k Ext. Disk req'd. $59.95
Features include.
No programming knowledge
User Friendly
required
Fully documented/Easy to use
Maintain up to 21 Asset, 21 Liability,
and 54 Expense Accounts
Print Options (Account Statements, Budgets,
Trial Balance, & MORE!}
Backup/Restore To Cassette Tape
Large 42 x 32 screen display
Sample Session Included for Fast and Easy
Instruction.
ONLY $59.95
exclusively from
Delker Electronics, Inc.
(Dealer Inquiries welcome)
Delker Electronics, Inc.
P.O. Box 897
Dept D
Smyrna, TN 37167
800-251-5008
615-459-2636 (Tennessee)
TN 800-545-2502
373 G0SUB127:PRINT" AND IT'S WID
EM NO GOOD. "
374 G0SUB126
375 YF-i0:YT-0:L-l:DN-i:BOTO87
376 CLS:PRINTN*(BL)+" CHOOSE OFF
ENSIVE PLAY" : PRINT: PRINT: PRINT"K
=K I CK " : PR I NT " R=RUN " : PR I NT " P=P ASS
•I
377 G*= I NKE Y* : I FG*= " " THEN377
378 1 FG*= " R " THENPO= 1 ELSE I FG*= " K "
THENP0=3ELSE I FG*= " P " THENP0=2ELSE
G0T0377
379 G0T0361
380 IFBL=1THENBT=2ELSEBT=1
38 1 I FRU= 1 THEN382ELSE I FTQ=4AND ( S
<BT> -S (BL) =10RS (BT> -S (BL) =2> THEN
383
382 PO=3:G0T0361
383 PO=RND ( 2 > : G0T036 1
384 CLS: IFBL=1THENBT=2ELSEBT=1
385 PRINTN*(BT>+" CHOOSE DEFENSI
VE PLAY ": PR I NT : PR I NT : PR I NT " R=RUN
":PRINT"P=PASS"
386 G*= I NKE Y* : I FG*= " " THEN386
387 I FG*= " R " THENPD= 1 ELSE I FG*= " P "
THENPD=2ELSEG0T0386
388 G0T0365
389 PD=RND < 2 ) : G0T0365
390 CLS: PR I NT "THE BALL IS SNAPPE
D": PR I NT "SWEEP AROUND LEFT END":
G0SUB126
391 IFPD=1THENI=RND(10>
392 IFPD=2THENI=RND(5>
393 I F I >4THEN402ELSE398
394 CLS: PR I NT "THE BALL IS SNAPPE
D": PR I NT "QUARTERBACK ROLLS RIGHT
":G0SUB126: PRINT" AND FIRES A
PASS" :GOSUB 126
395 I FPD=2THEN I =RND (10)
396 IFPD=1THENI=RND<5>
397 I F I >4THEN402ELSE398
398 IFP0=1THENPRINT" HE'S IN THE
END ZONE IT'S GOOD !!"
399 IFP0=2THENPRINT" COMPLETE ! !
IT'S GOOD"
400 G0SUB127
401 S(BL)=S(BL)+RU:YF»10:YT=0:L=
l:DN=l:G0T087
402 IFP0=1THENPRINT"HE'S HIT AND
IS SHORT!"
403 IFP0=2THENPRINT"IT'S DEFLECT
ED . . NO GOOD"
404 G0SUB127
405 YF=10:YT=0:L=i:DN=l:GOTO87
406 FT=BL:G0T0226
407 IFBL=1THENFT=2ELSEFT=1
408 G0T0237
409 SOUND250 , 1 3 : J =RND ( 2 )
410 CLS:PRINT@132, "A FLAG IS DRO
PPED": PRINT: PRINT: G0SUB126: PRINT
248
the RAINBOW
August 1983
COLOR TERM + PLUS +.
Now even more +PLUS+ features than before!!!
PLUS a $ 1 . 00 discount! *
(*4f
Others claim they "didn't wait for the competition to catch up ..." but we're so far ahead we didn't even know there was competition! We
have alimys had a buffer editor, complete up and down load support, on-line cassette reads and writes, off-line and on-line scrolling, pre-
entry of data before calling, word-wrap, the ability to transmit, receive, save, and load machine code, BASIC programs, and ASCII files, buf-
fer printing, to select all parameters in order to communicate with any other computer, to change the BAUD rate, parity, duplex, word
length, stop bits, and turn off lower case letters (no more blotchy screen).
This means that you can communicate with the local BBS's, CompuServe, The Source, Dow Jones, The main frame at work or school,
other Color Computers, Apples, IBM PCs, TRS-80 1/ II/III/12/16 or any other computer via RS-232.
And now, because we have listened to your suggestions, we have added even more +PLUS+ features. The following list summarizes
everything our COLOR TERM +PLUS+ version 2.2 (tape) and 3.2 (disk) can do for you, and without taking up large amounts of your
precious buffer or wiping out your pocket book!
V
New and
Improved!
+ Communications BAUD rate: 110-19200
New! + Change printer BAUD rate: 600-9600
New! + Select printer line feeds if needed
+ Select Half or Full Duplex
+ Select Odd, Even, or No Parity
+ Select 7 or 8 Bit Words
+ Select 1 or 2 Stop Bits
+ Send Control Characters
+ Separate Keys for Escape & Delete (Rubout)
+ Turn off those UGLY Lower-case letters
(no more blotchy screen!)
Word Wrap — eliminate all split words
Selectable Reverse or Normal Video (no more tired eyes — black on green or green on black)
Scroll protect up to nine lines (save important lines for reference)
Automatic capture of incoming files
Send one line at a time from your buffer (makes sending messages or files to main frames or BBS's even easier than
before)
i f your i n
Improved!!
New!
New!
New!
Improved!!
-'£S3r
>*.
Dealer inquiries
invited.
ven
Improved!! + Has programmable prompt for "send next line"
New! + Disk version extras; List Directory, Granules
New! + Buffer Size Indicator
+ Complete up and down load support
Improved!! + Improved buffer editor in both versions
^m^^_ + On/Off Line Cassette/Disk Reads & Writes
/{J^Sa + Save & Load Machine Code, BASIC Programs or Files
RAINBOW + 0n/0ff Line Scrolling of Buffer
cwrine«Ti«i + Pre-enter Data before going on line
*■"■+ Easy to read manual is included with each program — you'll be communicating in minutes!
*We are so sure we have the finest terminal package you can buy, we will give you a $10.00 credit toward either the tape or disk version
when you send in a tape, disk, or ROM pack from ANY of our competitors. The original program & documentation must be sent in order to get
credit toward COLOR TERM +PLUS+. Note: All present owners of COLOR TERM +PLUS+ versions 1.0, 2.0, 2.1, 3.0, & 3.1 may up grade to
either version 2.2 (tape) or 3.2 (disk) for $12.54.** Just send your original tape or disk to us, we will ship your new program immediately!
This offer expires August 31, 1983. THE PRICE IS STILL $29.95 (tape) $39.95 (Disk) An offer you can't refuse!
**Note: If you now own a tape version send $17.54 for disk version. 16k or 32k required.
COLOR KEY COMMAND
Looking for a powerful programmer's aid, but you don't have
a fortune to spend? This program is for you! Look at these
features: two keystroke entry of more than 80 Basic, Extend-
ed Basic, and Disk Basic commands. Select the color of your
cursor. Select the prompt you want — no more "OK" when a
program bombs! Automatic line numbering — you select the
start line and increment! 4 custom programmable keys for a
total of 64 characters each — enter whole lines with two key
presses! Copy any line with the copy command. Merge tape
programs together automatically. Redefine any or all keys
with a short basic program we supply. How can you get all
this and more for so little? Because you make the keyboard
overlay! We give you a template with all commands printed
on it — you cut it out and use it. That is all there is to it! Note:
Not all features are available on every machine; some require
Extended or Disk Basic to work properly.
16K or 32K Req. PRICE S 18.95 (tape)* D
$2.00 shipping and handling on all orders. No pxtra charge on
COD Orders, Mastercard and VISA accepted. Texas residents
add 5% sales tax. Allow two weeks for personal checks.
Send 20 cent stamp for free catalog.
COLOR COMPUTER/TDP-100 Q
SUPER-PRO a
REPLACEMENT KEYBOARD KIT $ 64.95
COLOR DISK SAVER
Saves a disk to tape. Reloads disk from saved tape. Also
has tape verify command! 32k Ext. BASIC Req.
PRICE $12.95 (tape)** D
COLOR BIORHYTHM Are you up or down today,
tomorrow, or years from now? Find out with COLOR
BIORHYTHM. Uses high res graphics. Send the chart to
printer. 16k or 32k Ext. BASIC Req.
PRICE $14.95 (tapc)D
AUTO LOAD Auto Load will put any program or file
from tape to disk! All machine language programs that
load below the top of your disk system are modified so
that they will operate properly with a disk system!
16k or 32k Ext, BASIC Req
PRICE $12.95 (tape)*
* * BASIC with machine code subroutines
m «r -^
[MasterCard]
JL ^ A
920 Baldwin Street
Denton, Texas 76201
Phone 817/566-2004.
All machine code
D Disk Compatible
" A PENALTY AGAINST "+N*(J)
411 G0SUB127:K=5+RND<2>*5: PRINT
412 IFK=5THENPRINT"ILLEGAL PROCE
DURE " ELSE I FK= 1 0THENPR I NT " HOLD I NG
" ELSE I FK= 1 5THENPR I NT " UNSPORTSMAN
LIKE CONDUCT"
413 PRINT" IS THE CALL
":G0SUB127
414 IFJ=1THENI=50+YLELSEI=50-YL
415 IFK>INT(I/2)THENK=INT(I/2)
416 IFBL=JTHENYF=YF+KELSEYF=YF-K
417 IFYF<=0THEN420
418 IFJ=1THENYL=YL-KELSEYL=YL+K
419 G0T0S7
420 IFJ=1THENYL=YL-KEL5EYL=YL+K
421 G0T0335
422 IFFT*=1ORFT=2THENTP=10
423 IFFTO0ANDQ(FT>=0THEN431
424 I FFT< >0THENQ < FT ) =Q ( FT > - 1
425 IFFTO0THENPRINTN*(FT)+" HAS
"JQ<FTM" TIMEO
UT(S) LEFT"
426 G0SUB126
427 T= I NT < 60*TM+TS ) -TP-RND ( 1 6 ) : F
T=0
428 IFT<=0THEN432
429 TM= I NT < T/ 60 ) : TS= I NT < T~TM*60 )
430 RETURN
431 TP=20+RND ( 1 5 ) : PR I NTN* < FT ) + "
fymaatiM
TRS-80 COLOR BASIC
by BOB ALBRECHT
This entertaining self-instructional book is packed with
games, experiments, scores of intriguing challenges, and
activities related to fantasy role-playing games. The
ideal introductory aid for kids, parents and teachers
using the Color Computer.
John Wiley & Sons
605 Third Ave., New York, NY 10158
$9.95
TRS-80 COLOR COMPUTER GRAPHICS
by DON INMAN lul£ffl0W&
Explore the creative and imaginative blending of computers
and color. This exciting book will enable you to explore
all the graphics capabilities of Extended Color BASIC.
Reston Publishing Company
1 1480 Sunset Hills Rd., Reston, VA 22090
$14.95
fyjjjitfCfd
ASSEMBLY LANGUAGE GRAPHICS
FOR THE TRS-80 COLOR COMPUTER
by DON INMAN and KURT INMAN
This book is specific to the TRS-80 Color Computer with
applications using sound and graphics to illustrate how an
assembler can be used to perform feats that would be quite
difficult, if not impossible in the BASIC language.
Reston Publishing Company $14.95
DYMAX, P.O. 310, MENLO PARK.CA 94025
Dymax orders must be prepaid via check, money order. Visa
or Mastercard. Sorry, no Purchase Orders or COD orders.
Please add $2.00 shipping and handling. California residents ^~
add 6% sales tax. W^\
HAS NO TIMEOUTS LEFT":
GOSUB 1 27 : G0T0427
432 SOUND 10,10: 0NTQG0T0434 , 435 , 4
38,439
433 TQ=4:FLAG=~l:G0T0432
434 CLS:PRINT@64 5 "END OF FIRST Q
UARTER " : GOSUB 1 27 : TQ=2 : TM= 1 5 : TS=0
: RETURN
435 G0SUB479 : TQ=3 : TM= 1 5 : TS=0 : YF=
10: YT=0: L=l : DN=l : Q ( l > =3: Q <2> =3
436 IFFLAG«1THENBL«2ELSEBL=1
437 RETURN
438 CLS:PRINT@161,"END OF THIRD
QUARTER " : GOSUB 1 27 : TQ-4 : TM* 1 5 : TS=
0: RETURN
439 TQ=4 : TM=0 : TS*=0 : SOUND 1 , 1 2 : FL
AG=-l:G0T087
440 RESTORE
441 IFBL=1THENBT=2ELSEBT=1
442 K=RND<20)
443 1=0
444 0NKG0T0445 , 446 , 446 , 447 , 447 , 4
48, 448, 448, 448, 449, 449, 449, 449, 4
49, 450* 450, 450, 450, 450, 450
445 1=1+1
446 1=1+1
447 1=1+1
448 1=1+1
449 1*1+1
450 1=1+1
451 N=INT(<PD-1)*42+(P0-1)*6+I)
452 F0RI=1T0N:READK:NEXTI
453 IFP0<=4THEN458
454 IFK=0ORK=100ORK*=200THENRETUR
N
455 I=SR(BL,2)-SR(BT,4)
456 K=INT(K+10*I*(RND<2)/2>>
457 RETURN
458 IFK=100ORK=200THENRETURN
459 I=SR<BL, 1)-SR<BT,3>: IFK0THE
NI=I/2
460 K=INT(K+4»I*(RND<2>/2)>
461 RETURN
462 CLS5:PRINT@69,STRING*<21," "
>;:PRINT@101," TOUCHDOWN
« ";: PRINTS133, STRING* (21, " ">?
463 PR I NT@269 , CHR* ( 202 ) ; CHR* < 206
) ; CHR* (205) ; CHR* < 197) ;
464 PR I NTQ30 1 , CHR* ( 203 ) ; CHR* ( 1 92
) \ CHR* ( 192) 5 CHR* < 199) J
465 PR I NTS334 , CHR* U 92 ) ? CHR* ( 1 92
);
466 PR I NT@366 , CHR* < 1 97 ) ; CHR* ( 202
);
467 PRINT@398,CHR*(197)5CHR*<202
)S
468 PLAY " T403L4 AP 1 6L2AL4GFL4CL3C
L4DFB-AP4FG04L4DC03AB-AAGL3B-LSA
L2F"
469 GOSUB 127: RETURN
250
the RAINBOW August 1983
470 CLS5:PRINT@68,STRING*(23," "
);:print@100, " ";N*(BL); M
,, !:PRINT@132," FIRST D
OWN! ";:PRINT@164,STRIN6*(23,
" ");
471 PRINT@270,CHR*(196);CHR*(205
);
472 PR I NTS238 , CHR* < 205 ) ;
473 PRINT@302,CHR*(192);CHR*(192
) 5 CHR* ( 195) ; CHR* ( 199) ;
474 PRINT@334,CHR*(192);CHR*(192
>?
475 PR I NTS366 , CHR* ( 1 97 > ; CHR* < 202
>;
476 PR I NTS39B , CHR* < 1 97 ) ; CHR* < 202
>»
477 BOSUB 127
478 RETURN
479 CLS(7):PRINTe70," H A L F T
I ME ■•;
480 FOR I =256T0479 : PR I NT© I , CHR* < 1
43);: NEXT
481 PRINT@299,CHR*(129);CHR*(131
>; CHR* (131); CHR* (143); CHR* (129);
CHR* (131); CHR* (130);
482 PRINT@331,CHR*(133);CHR*(142
); CHR* (140) ; CHR* (143); CHR* (133);
CHR* (143); CHR* (138);
483 PRINT@363,CHR*(132)jCHR*(140
) ; CHR* < 136) ; CHR* ( 143) ; CHR* ( 132) ;
CHR* ( 140) ; CHR* ( 136) ;
484 PRINT@417,N*(1); " ";S(1)
485 PRINT@449,N*(2);" ";S(2);
486 PLAY " T402L4 AP 1 6 A-AB-L3B-L4AL
2B-P4L4B-B-P 1 6B-AB-03CL3CL402BL2
03CP403L4DFEDC02AFGA03L3C02L8B-L
4AGL2F"
487 BOSUB 1 27 : BOSUB 1 27 : GOSUB 1 27
488 RETURN
489 CLS(8>
490 PRINTS38, "STRATEGY"
;:PRINTS106," FOOTBALL ";
491 PRINTQ168," BY R.K. TYSON "
H
»
492 PR I NTS230 , CHR* ( 254 ) ; STR I NB* (
18, CHR* (252)) ;
493 F0RI=262T0359STEP32
494 PR I NT© I , CHR* ( 250 ) ; CHR* ( 239 ) »
495 F0RK=1T05
496 J=I+2+(K-l>*3
497 PRINT@J,CHR*(133);CHR*(138);
CHR* (143) ;
498 NEXTK
499 PRINT@I+17,CHR*(181) ; CHR* (18
6);
500
501
NEXTI
PR I NT@390 , CHR* ( 25 1 ) ; STR I NG* (
18, CHR* (243) );
SHUGART or TEAC
1 YEAR WARRANTY
^^^^^^^s
^&^^
s§l?^i
mSm
4^%$%%%$%
40 TRK SS/DD
w/ R5 DISK CONTROLLER
DOS MANUAL Included!
* RADIO SHACK/ TANDY * EPSON * OKIDATA *
* TRANSTAR * MANNESMAN-TALLY * STARK1TS *
* TOM MIX * MARK DATA * BMC * AMDEK * NEC *
* BOTEK * MSI * SHROUT SW * NELSON SW *
* M0RET0N BAY * DERRINGER SW * DATASOFT *
* CUSTOM SW ENGRG * SOUTHERN SW SYSTEMS*
* TAXAN * PRICKLY PEAR * SPECTRAL * ANTECO
* COMPUTERWARE * EIGEN SYSTEMS * C0L0RS0FT
* BERTAMAX * COGNITEC * DRESSELHAUS *
EMERALD COMPUTER SERVICES
4401 219th SW
MOUNTLAKE TERRACE, WASH. 98043
206-778-9826
* RADIO SHACK COLOR COMPUTERS *
16K COLOR BASIC $ 179
16K EXTENDED COLOR BASIC $269
32/64K EXTENDED COLOR BASIC $369
MASTERCARD/VISA WELCOME
FOREIGN ORDERS WELCOME!
NEW 5 DAY SHIPPING
SCHEDULES (IF STOCKED)
** FACTORY AUTHORIZED PRINTER
REPAIR- EPSON .OKIDATA, TRANSTAR
*** TEAC Thinline 40 TRK DRIVES
*** TANDON DS/DD 40 TRK DRIVES
***C0MP0SITE VIDEO CIRCUIT
***MEM0RY UPGRADES D-E-F BOARDS
ALSO PRESENTING:
MORROW DESIGNS ^
MICRO DECISION
August 1983 the RAINBOW 251
502 PRINTS449, "DO YOU WANT A SAV
ED GAMECY/N)?";
503 G*= I NKEY* : I FG*= " " THEN503ELSE
I FG*« " Y " THEN504ELSE I FG*= " N " THEN 1
0ELSE503
504 CLS : PR I NT864 , " ENTER " I PR I NT " 1
- DISK":PRINT"2 - TAPE"
505 INPUTK
506 IFK=1ORK=2THEN508ELSE507
507 PRINT" INVALID ENTRY ..TRY A
GAIN": GOSUB 1 27 : GOTO504
50G IFK=1THENK=1ELSEK=-1
509 IFK=-1THENPRINT"INSERT TAPE;
PRESS <PLAY>5 PRESS < ENTER
> WHEN READY"
510 IFK=-1THENG0SUB524
511 CLS: IFK=1THENPRINT"ENTER FIL
ENAME/E XT : DR I VE " ELSEPR I NT " ENTER
FILENAME"
512 INPUTG*
513 ifk=1then!0n
514 open"i m ,#k,g*
515 input#k»s<1> ,s<2)
516 f0ri=1t02:f0rj=1t05:input#k,
sr<i, j>:nextj,i
517 INPUT#K,N*U>,N*<2>
518 F0RI=1T012:INPUT#K,L*(I>:NEX
TI
519 INPUT#K,BL,RU,MD,YL,TQ,TM,TS
****************-)(-**-X--)<-*-)(--)t-X--X-)t*-)f--X--K»--X-****##*
DRAW-IT
* *
£ Requires 1 6K -Ext .BASIC , cassette. *
* Draw and erase lines, circles, *
*
*
*
*
K
*
*
*
*
*
boxes, and vectors.
Alphabetically coded keyboard
control, with sound cues.
Hi-Resolution, 256x192.
0n-3creen cursor, with variable
jump rate.
Paint function, can be used to
produce negative graphics.
Tape storage of graphics screen,
change taped graphics.
$15.oo
J P S
11^62 Columbus Ave.,W.
Fostoria, OH, W330
pTP
520 INPUT#K,YF,YT,FT,L,ZN,DN,BT,
FL,Q(1> ,Q<2>
521 IFK=1THEN!0FF
522 CLOSE#K
523 G0T0S7
524 G*= I NKEY* : I FG*« " " THEN524ELSE
RETURN
525 CLS : PR I NTS64 , " ENTER " : PR I NT " 1
- DISK":PRINT"2 - TAPE"
526 INPUTK
527 IFK=10RK=2THEN529ELSE52B
528 PRINT" INVALID ENTRY .. TRY A
GA I N " : GOSUB 1 27 : G0T0525
529 IFK-1THENK-1ELSEK—1
530 IFK=-1THENPRINT"INSERT TAPE;
PRESS < RECORD >; PRESS < ENTER
> WHEN READY"
531 IFK=-1THENG0SUB524
532 CLS: IFK=1THENPRINT"ENTER FIL
ENAME /E X T : DR I VE " ELSEPR I NT " ENTER
FILENAME"
533 INPUTG*
534 IFK=1THEN!0N
535 OPEN"0",#K,G*
536 PRINT#K,S<1),S<2>
537 F0RI=1T02:F0RJ=1T05:PRINT#K,
SRC I, J) :NEXTJ, I
538 PRINT#K,N*(1>
539 PRINT#K,N*C2>:F0RI=1T012:PRI
NT#K,L*(I):NEXTI
540 PRINT#K,BL,RU,MD,YL,TQ,TM,TS
,TP
541 PRINT#K,YF,YT,FT,L,ZN,DN,BT,
FL,Q<1>,Q<2>
542 CLOSE#K
543 IFK=1THEN!0FF
544 G0T087
545 DATA 1,2,3,-2,16,100,1,7,5,-
2, 15, 100,-4,6,8, 12, 100,30, 15,2,-
5,45, 100,-13,0,15,7,0,25,200,4,0
, 6, -6, 200, 12, 34, 0, 0, 200, -9, 200
546 DATA 0,3,1,2,-3,100,8,5,3,-2
, 100,27,8,6, 17,-3,56, 100,0,2,-6,
18, 100,-20, 17,-6,200,0,0,28,7,0,
-5,4,0, 200, -7,0, 200, 0, 49, -7
547 DATA 0,1,2,3,-3,100,-2,4,5,-
4,100,19,5,-1,0,2,14,100,7,34,1,
-9, 100,-22,6, 17,0,31,200,57,5,8,
0,3,-12,200, 10,0,48,32,-15,200
548 DATA 1,-2,7,1,4,100,-2,3,5,-
3,5,100,5,-5,2,40,-17,100,2,1,-1
5,4,100,16,25,0,-9,37,8,200,20,5
, 0, 200, 46, -6, 53, 0, -1 1 , 200, -8, 35
549 DATA 2,3,5,-1,8,100,5,7,12,1
,26,100,12,7,2,6,100,23,5,6,1,2,
100,34,18,0,15,200,47,0,5,0,7,20
0,0,16,0,0,68,200,2,7
550 PCLEARl:GOT07
252 the RAINBOW August 1983
1).
2).
3).
4).
8).
9).
INTERNATIONAL
COLOR COMPUTER CLUB, INC.
RAINBOW
i (u:it.(.ft;i[r.
A Non-Profit Educational Corporation
Main Office
2101 E. Main St., Henderson, Texas 75652
Canadian Branch
P.O. Box 7498, Saskatoon, SK S7K-4L4
WORLD'S LARGEST COLOR COMPUTER CLUB /
HERE ARE SOME GOOD REASONS TO JOIN OUR CLUB
CLUB LIBRARY.
5). DISCOUNTS.
FREE PROGRAMS.' Good programs written by our members are contained in our library,
in the newsletter, and on the new member tape.
NEWSLETTER. A "magazine" sized newsletter (last issue was 80 pages), with programs,
tips, data, reviews, articles and much more.
NEWSLETTER Tape. A tape of all the programs appearing in the newsletter is available from
the library for $2.00 (to members) or $4.50 (to non-members).
The club maintains a library of programs, books, and Radio Shack ROM-
packs. The programs are member written and come six program to a tape
or disk. They are yours to keep; however, there is a small fee to cover the
postage and tape (or disk) of $2.00 ($4.50 for disk). The books and ROM-
packs may be checked out for 3 weeks at a time (extensions possible).
You can get large discounts on many software and hardware items for the
Color Computer from some of the MAJOR companies. Also discounts on
subscriptions to the RAINBOW, Color Computer News, Color Computer
Magazine, Chromasette Magazine, and CoCocassette Magazine(up to 25%).
6). ADVERTISE FREE. Members may place ads up to % page (classified type) per issue during their
entire membership in the newsletter FREE. Display ads at 25% off. These
ads must be computer related; however.
Don't wait weeks for the parts to come in from Radio Shack! Just check
them out from the Club's Parts library and return them when yours arrive.
You receive a "New Member" package containing many useful items.
This is the world's largest Color Computer Club. With members in almost
every field of expertise. So if you have a problem with the Color Computer,
we can almost always get you the answer. Put your problem on the Club's
Bulletin Board, write, or call.Telephone No. (214) 657-7834.
As a new member, you will receive a list of the members in your area on a
quarterly basis whom you may contact for CoCo talk.
7). BORROW PARTS.
SURPRISE.
GET HELP.
10). FIND FRIENDS.
HOW TO BECOME A MEMBER::::
Write to the club for an application, there are no conditions for membership other than agreeing
to obey the rules and by-laws, being interested and paying the dues. The membership dues are $30.00
($50.00 outside the U.S.( In Canada it is in Canadian funds) in U.S. funds)per year and we believe you
get more than your moneys worth. You can save more than the memberhip dues in discounts the club
offers to you. Example : Subscription to the RAINBOW, 25% off of the regular subscription rates.
Some members have told me that the new member tape alone is worth the membership dues. It contains
10 very good programs. Some of the programs contained in the library are Accounts Receivable, General
Ledger, Inventory, Sales File and ticket program with automatic Inventory update (for 32K with 2disk ).
There is over 72 programs in the library to choose from ranging from 4K to 64K w/disk.
MasterCard
SPECIAL
Color
Computer
Memory
Map
By BOB RUSSELL
This is the second installment in a comprehensive series
of references on the Color Computer memory, and
covers BASIC and Extended basic ROM.
This memory map has been created after many hours of
research, investigation and experimentation. I probably
have over 650 hours already invested in this project and 1
know I am not finished. I fully intend to offer periodic
updates to this document. My wish is that this will become a
living, growing document that you will also contribute to. I
hope you will bring any errors to my attention a nd also share
any unmapped discoveries you may have made.
Among those publications offering the most accurate and
reliable memory information are Radio Shack's Service
Manual, Color Computer News and the Rainbow. II you
refer to these resources you will often find detailed informa-
tion (sometimes even a commented listing that can be
matched to a disassembled listing to really describe what is
going on!). Throughout the Map. I will refer to some of
these resources.
An *S* indicates a ROM or RAM based routine that you
could potentially call from your own assembly language
program. $nnn is a notation for hexadecimal values.
Sources referred to in this map:
1) Getting Started With Color BASIC
Copyright 1981 Tandy Corp.
Fort Worth, TX 76102
2) Going Ahead With Extended BASIC
Copyright 1981 Tandy Corp.
Forth Worth, TX 76102
3) Service Manual. TRS-80 Color Computer
Catalog Number 26-3001/3002
4) TRS-80 Microcomputer News
(for TRS-80 users)
P.O. Rox 2910
Forth Worth, TX 761 13-2910
5) Color Computer News
RtMarkable Software
P.O. Box 1192
Muskegan, MI 49443
6) the Rainbow
9529 U.S. Highway 42
P.O. Box 209
Prospect, KY 40059
7) 80 Micro
80 Pine Street
Peterborough, NH 03458
If you don't want to cut up your Rainbow Maga/inc you may purchase copies of the Memory Map in its entirely, enclosed in an
attractive cover, for S9 (Wisconsin residents should add five percent for sales tax.). I invite dealer and computer club volume purchases
at discounted prices.
For making inquiries or placing orders, write. Bob Russell, N5474 Stillwater Court, Fredonia, Wl 53021.
Reproduction or translation of any portion of this work without permission from R. R. Enterprises is prohibited. While reasonable
time and effort has been taken in preparation of this Memory Map to assure its accuracy. R. R. Enterprises assumes no liability
resulting from any errors or omissions in this manual, or from the use of the information obtained herein.
Color Computer Memory Map: © 1983 R. R. Enterprises: All Rights Reserved
254
the RAINBOW August 1983
V, T. — O C :
C> \- T3 O
; a) c â– o 'O
11 "i O *D
v,o. « — > O
£ c c c: in u in o>
I C ■■■■■-■3 (U ■— ' . O
o> is. . u j-i m
'<-■^ c - ■•' oc * ^
U O i- t m — ' **-• ■■*-»
O C ...-,-. CN « 0» .
> i.. 'j* or, < u CC CD
>,,— " " " n < </> U 4J r-H
■t ,-. o on: ac iJ -u x»
;_^ £. . . ...i_. c . ffliu.r m
_n t: 4-- c ra * c
; C ■• ■C = C O W- £ O
: — o;
I C *J
:.j^ r n fl! ^: fi *•* *> -^
^ K ^ ^ >: U Ul Z «r m *r r^ cr. 'T* < fit..- C. l£ b. r: * U xj cr* c V> J£ X *J
i £-- .< C O -I* 2 12 * 0' 2KU6--^ X.UruU^Cu^^^j-U ^ L.; 1* U- ['CCK2 O-U O
^nCiUr-J-J^ d, u; j CCU.tLi.U,U-U. U.U-fciuiX'JHtt.tK v- ^D (/, a, E- CO i-« >-< h 4) U O
a. q ex, a a. a cc u „, m j- <a o </■v> o o o> </> o> i/> c-.- './> w c> c i u id *- ^ ;/; ^ a x o ^ cr: x oc in z C ex: "wh i-» :
: <-
i *f t .c w <tjt i-xir^^: ^uc 10 t u * •-^ ^ ■t w u & q ui k cc w w +> a> .c
lfn cr^ ^ h m co ji o; r i i- f- >-• c > a »- -id >— >- o fi ^ w ccfir-ccfc(N-<g*<oo-Qa3r-yrr-»'«r d g *j
I in m in r\ (m m s ^ ^ ? fr i- r, z l x n ;o ?. x E oi r O Di •-« o *v m r> m ■Tin^rvc'^rcrivcr--ai( n nr- 00-*
iq r- c; r- us < o < c ,- > o e- e- c < X -« o o o l.- <■?: rz "-■a. e- o o cj > r. nommocffimnomco-oooocno^oo c£ m S
1 rj <T> rr\ m m fft CO X . m k , ., n *^ < u [ • :i) £1. - fl. (,", — > n c- 2, - v " ,-t r> — i --* o </> *- f > '-^ 'A <.■"> <A <a <a *n* </v </v * n ti\ <a
[ £j <A </> <A <j> -t» tA <A Z.(^c ^--^ WL „ .. „ _ .X
i u â– â– -w < <
o
fi! rv
4-'
XJ C"
.
Ul
u:
5>
v_
^
n
C
JL U
a)
4-J
â– P
tf)
r
■« t:
i— i
.pH
^ ?,»
o
c
>
CL
t> â– -.
i^i
(U ^
<T)
li-
4-» C
L'J
o
CT1
H
.H
U
o
() CJ
>
r-t
o — «
— •
n
W JD
C
c ;
U) TC
c
e
(0 E-
c.
^ ^. v, A- Lm A y U.' IL A U- ul i O U,
CHU<X^OOUM < Z i- DU t-
: i- < 'J f- JJ tt- J fi- ?T, I > »-* E-* O. U^ â–
V -i *n >£ o> r_> 0. r\i .n avt», .«? o tt. «^
dj tMrvjrv:rxr\jrv]ror^'-^r--t»**T'c , Lri
r; M (N (N fl N CM M (\ <\ M (N M (N
X Q | <N ;-j ;." a) -h ^r > c* n [^ n uj ri j\ \P fN
: [J Q I &« ' 0C -» ^ ^ (N (N t\" rn f^» ^i ^ kt LT) Ul VC cc
tj> ti, up i^rir". ..-•inmn^^MMnci^ c
TjuQICJi fi x r< s- r- < C - "^ v; < c ^ «.' <s ^ f-^oiCLw-— i ^ un r o\£flD t,.-
CUQIiD StfN^ ,, -DO0<CJ n-i - ;n i\i k :m in fi fi ri ii ^ \- w in ^n Lninj-iinmvDiX'vr'^^MJ'^^Or-
WQrt*i^ ^i —< — « ~h —i —i ~h rs;cNi*s;o4rvjrMr\i(NtN;rs)r>jrNjrvifN rNrgtNCMfNtMrMrNtNfMCMivuNfM
ca cn im <N tvi in in <n w ao x 03 en en on x oo cd m ro ot oo oO r- x co X co CO CO CO co co co oo co oo co
Qjj^.COCOCOCOOOCDCO^, lD
n% x Q | -«n a "^ ir ■? (M .i ?; j « ?) i? ^ <t c . ^. r^<^— ii-oinr»(Tt-^i^iAr^.rrv^-tr^
cuq I is r n <■in oo s M ^ .).,., , in n h m r*i ^ *j >t in io go <£fvcr*-r-r-r-r^aox-cocDao£j>a\.
C O . i - 1 • i r i . i . ) . 4 s -• i f-w] "i c : "i •• i ;*»:—.-(•■;■•» --i :-} (-: r - s •"■< i rn rn fi i"0 rn m d ro r". co -^t i*^i i
d I oo n n w m n rt ."^ ^ r ^ :r „„ r0 ^ rr ,^ ir0rnr v^ rni ^, r ^ f „ ^ nn'irion^nnT^r'irnn
CPU Q I CO ro " ri
«blQ I i£ fO ^
aa O < t t~-
XI
tn i- o
(10 0)
tu 3 a
rt3 < T3 tb
: rg (C >— â–
<D ON «
j^ ,_, i.. *C it •
AJ u c see
to a» o :
G tab*
x, a! co r.i
U O "~" ^ ^
> o p^ â–
T fl)
CC03E E-ZCtUJ
odJ^rt e t*- w u < c;--j c • â–
^ 2 *->+j<»i7J0H2Ct- u (fi E- w [<: t: O t; z
> r.i in in ^ m <T. rf en rj Q w. Ct. cs r-. (N rn v iiT ^r r> co (r <" cc c ; Q . X v> w CJ J m O O Eu H 3 ^J tJ u ex J J c£ ^ E-; ;
7.^U!mi3i(C(Ccci2icD£fluuououOvOO'joc-'j w " , . ^ Q a £ cj w w y tn a u y o ^- < tu.
O O -v> *>*-■v> <j> <^> v> v> </•> -j> <s> <a v> tc- <a oo- <a <o o </> v> <a o 0-, <n </> u -i-t >i u o U2 f- h Q J uj a Q. a co. a, c^ d cu t?
U) u
'•« S 4
i m iq t-t 13 tt- uj cj < a: -J h >t±JO!£^(.^ ou-i-^c
!m qju e-'-'-Jt-'Oocx-ir-i'. -uawa:-iua:^HE-<co<oz - oro-oc 4-»p-rn<<r^a3(0^. l rirr^<»-«T(^jj.n
t *o zEuOota:iiiUHUUiQ!OUOH<aDa:uEJJi«i2 , .'i -^ < co^mvr^cou.ro.nrof'ivo^incjcor-
iq cufljOHCWs-HDJi-JaiCLCuw^ o u li u a. 2 i a, a a i (l ;j aioa; o»coco»co<^^^7' cn.c cp> ct. ^ c^
i d w u in ' ' -° ^! -° 2S
i- z ■x tn w ^i2^°^
t cij cj <: i— i H<ot-*^H
i tw
X m en Q cnj ii> cc (j cj "5* c, cv u^ lu ^ u^ ^ a» u ci in t~ a: ••-■ucj < i
CjJ COCO00O>^Cn^<<:<llffi£U!J UUtlDClOMilUW
Ci, xoncommcncoconiQucocoK oscomcncoajajoccocncoo) Q
cc i w rj
U Q l fa co in^Oi£c^r-r-coxx^CiO--'--«ojfsjrj(-orO'^r-sTnininii> oo
â– ^ <Z \ U, HHH-(HHHp-tM^cNOJrN(\ojrvifNCNrsfN(Nf\cNMrNj
fji [^ co en fn n fo m (*i m n m m n n n n n n "i n n n n r> n nvui ^
c i(-j^ vc rnnr,rnrnnn>rn'nrnrnrnrnrnrnrnfnnfnrnr!rnmm^ si
.J rv | ro ^
tjuO I » n rokT<cj^^crAQ-'^co^r--orv)t^<a-iv£^xti J ^r^rn ro sw-«j'>i)CO<uwscNfl'jpco ; cuw
-a r » cocnajxicooocoaDcoaiaico(X)cooo«x>cocnoococococoooa: S coooxcococococOcocococoCOCOoocO;
a; i ^r X ^
ecjQiQ x ininuD^r^r--r^xxxcr>sio^H-H<NcNCNroro^r-i^u-)inji ao xcr>cr»cno>c^sis><si«iS3-i-H-H'-H<-<
-•ffirflSJ ^^^^^^^^^^^rj^r^rsirorNjrsjfN(sjfAir\:tN)fSJf\J iSiSQSg® ** ~± -h »-4 --J -H -i p-j -H <--i
c Q u^ fnnmrn«i^^fnmmfnnmmMmnnmm'nmnfnn x nmnnnnnnnnnnnnnn
c |oo in m (nnmnfn^Mnm -inn mrnrnnfninn^n'nfnfn x rvimmr*>nf«imrnmnrnn'»inmm
— a t -* 2?
tTU D I X ro J3J
« w Q .1 \0 m m
aQ G < t r*
August 1983 the RAINBOW 255
a:
L.
^
T,
c
x;
4J
C.
n
r 5
IS
— â–
«:
,
1 6
j.
C -U
1 c
c
e o
Lj
1 o
c
o c
c
1 u
u
c
u
1
u.
jj yi
14
1 <-
o o »
01
1 1-
o
- z o
1 *â–
>-<
« -c
0j
1 <
LT
< .
i a
<
l£ r-i 4
•rH
I
X
„ a
E
i r
t: « «•
u
i i
t;
6. c
0.'
1 T
01
T — J
i-1
1 c
*n
c .n C
<u
, 01
c
a, -_
1 4J
41
4J ^
I
X
*J
x n-i a- o
r
i
X
Ll 0J 4J U
r>
i —
u:
rr (r
; . â–
=
5 u >.
_
£
£
Q ¥ -.1 V.
a
n
l/>
< C -,; +j
•
X
C < (J
u
4J
aj
_l O — • .-m
o
c
a.
~
O -J -.
m
o
s
=
= Q tn .-.
a;
c>
—
<c >
f >
uj t_i
m, ._r
O
. — .
O cr.
c — .
c£
Ct,
< Q w
cc
i;
C b,
c u O (D
C
v>
O V>
o 'j> c n
u
â– **
•.H
— ' 4) TT<
L!
i-» r
4-1 C — <
1'
T <U
3 c w- Q
<r
u
^
U .*
D ^ <li <
aj
U
<L> O
O CL O
X
H
X r-
X H X J
a
'-'
CJ —
d- 1 — QJ a
fii
C3
*
•«
L'l
'J)
t.T
u;
*
*
H
X
UJ
<!â–
Art
-c
?<
a
c
UJ
o
Lb
CO
X
<f
Eh
rr
u.
r>j
c
a\
CO
.-J
nr
r\)
-o o
n
<T>
'-C
C CJ
Q
in
.-o
M Q
<r
CTi
CT>
UJ
.r. i
*T
C:
a
--»
m v
n
<
a
')
cua i
a
X
CO c
— X
< '
Q
sz
--iT
c
i
00
â– "1
-^
^ c
•«H
ir i
ro
00
X c
tPUQl
OD
ji
Ul
LTl ^j
CI Ci3
O 1
m
m r
cO Q < |
r*-
rg
m
^ a;
(.."> a:
C OQ
c m
C CO
^4
*J
a
o<n
o o>
o v>
w
kj
o
•rt
•~l
O
0J
0J c
aj r
4J C
X
5»
m
3 41
"! 0)
flj
o i:
O J^
O J<
3
3
»
a> o
41 o
«
flj
«3
<o
X E-
X E-
X l-
^4
U
*-<
u«-
U —
u —
Q
u
u
c
c
c
o
o
o
1
â– 4->
u
u
1
o
o
t
c
r.
r
1
3
3
3
1
m
>u
in
1
o
U
o
1
i-t
••d
1
tn
C/l
Ul
1
<:
<
«J
1
m
m
10
1
r}
•c
X)
1
V
aj
0J
1
T5
T3
T5
1
c
c
c
1
o
0)
11
C 1
i-»
-u
XJ
O 1 -
X
X
X
•^ 1 W Cl)
[J
u
■*-» 1 -
a. i
s
t
c
1 JJ
o
«r
^
n
O
X
t-H
1 c
u
f^
<
J
OT
u
144
1
«
K
s
s
£
«
B
1 <J
1
im in
W-l IC
i*-t ^j«
w-i d
•4-4 fll
u-i r-
«4-l go
1 £
O tn
(T.
o a*
O W
O ON
o ai
O cr>
1 o
u.
Ci,
Cb
b.
&â–
m
&4
i a.
C Ct,
c H.
C li.
c &,
C [>,
C li.
C tl4
i
O </>
O </>
O *rt
O v>
O v>
n 4w
O <A
1 u
—4
â– ^
■•-t
—4
i i-H
«J c
â– u C
4-1 C
•J c
4-1 £
4J c
4J C
1 CO
3 <U
3 <!>
3 HI
3 41
3 HI
3 0,
3 at
< <
U J£
O Ji
O ^
O Ji
U JX
O Ji
{j Ji
1 IS
ai o
OJ o
HI o
0) n
D n
m o
1
X f-
x e«
X E-
x 6-
XE-
X E-c
X F-
i a
II) w
(O *-•
CJ"
w ^
CJ —
U ^-
c
c
o
•<-4
• »-4
â– u
•D
4-1
•c
o
C
o
c
c
(0
c
(C
3
E
3
e
>M
£
UJ
E
O
c
CJ
t-l
o
(.1
o
tf>
o
Ul
t_>
<
1-4
•<
»-â–
m
m
OD
tr
«t
<
T5
tn
X5
cc
01
OJ
TJ
*D
x:
c
a
c
OJ
If
x>
a;
T?
c
4-1
L-
X
11
X
OJ
u
4J
u
4J
X
X
*
a:
to
cc
U4
t-
«
u
s
^)
b.
E
J
<:
U
1-4
w
M
a
£-
D
K
â–
-
=
>" lu «J< UQ «J-I 1MB »4
"" o~ o<r. o«y> o< o-n o —
^^_ a0 fc *• ^ fc tn
cca ceo cui ecu cu. cii, cm
°Â