Skip to main content

Full text of "The Rainbow Magazine (Radio Shack Color Computer) (August 1983)"

See other formats


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 

°