>£ The Home User's Guide to Commodore Computing

USA- $2.95

\
CANADA $3.50
1 A CWC/I Publication
May 1965

'
j
> ■

-*

//

1
/ -

j J

mmn o a oxers
% 128!
U.i lisuU
fivnlfa tki-GuinD:-!

/ Joua&hoJd Inventory
r-1

>f]opp2f*3 Compunbn

to
a Phorjy Gall AwayJ
-

PUT THAT VIC TO WORK! i ill r TiTt' i \ t" f' i' l i-r-i-i-i
j ''..'IJT..»'-' .'.',-''■''-' -' > I I ' 1 1.1 I 1 i
l i i i .i .i i j i .' i i i i i 1 l I \ \
/ ( '■.' .1 .' .' J JJ riiii |M\\ \

05

74*70 12069
 ATLAST... A TEACHER
WHO IS JUST YOUR TYPE!
Turn your COMMODORE 64 into a personal typing tutor with KEYS TO TYPING software.
Over 30 easy lessons, all based on proven teaching techniques thai typing teachers have been
using for years. Combined with the speed and flexibility of computerized instruction—it's
the fastest and easiest way yet to learn typing.

32 step-by-step lessons
learn at your own pace!
lesson # 1 will explain the
program and show you
how to get on-screen help :
each lesson has three parts:
introduction of new keys,
exercises, and reinforcement
over 400 exercises, all based
on successful typing manuals
get immediate help or return to tht
main menu with a single keystroke
no complex computer comma
its user friendly and menu dri
no knowledge of computers ni
just basic reading skills
select the lesson you want
through a simple menu control
typing game included,
to make learning fun!

The perfect learning program for students of any age. For businesspeople who need typing skills but
are short on time. For people re-entering the workforce who need a fast refresher. Designed by
educators and computer programmers working together, KEYS TO TYPING lets you learn quickly,
easily ami effortlessly. After 32 lessons, you'll be typing at speeds you never thought possible.

BATTERIES ^7 INCLUDED
j 7S75 Sky Park Noah,
30 Mural St.
Suite P, Irvine, California
Richmond Hill, Ontario
L4B1B5 Canada
The Energized Software Company!" USA 92714

1416) S96440S WRITE FOR A FULL COLOH BROCHURE

e 1984 BATTERIES INCLUDED ALL RIGHTS HESERVEO COMMODORE B * REGISTERED TRADE MARK OF COMMODOTE BUSINESS MACHINES. INC.
 S TO LOAD?

HOTf

I
lade Runner
y

BASEBALL GAME

INTRODUCING THE FAST LOAD of your Commodore 64 and goes to work automatically,
loading your disks with ease. And that's only the
CARTRIDGE FROM EPYX. beginning. You can copy a single file, copy the whole
disk, send disk commands, and even list directories
You're tired of waiting forever for your Commodore 64
without erasing programs stored in memory.
programs to load. But it's no use glaring at your disk
And unlike other products, the FAST LOAD
drive. Calling it names won't help, either. It was born
slow — a lumbering hippo. You need the FAST LOAD
CARTRIDGE works with most programs, even copy
protected ones, including the most popular computer
CARTRIDGE from EPYX. FAST LOAD transforms
your Commodore 64 disk drive from a lumbering hippo games.
into a leaping gazelle. With FAST LOAD, programs The FAST LOAD CARTRIDGE from Epyx. Easy
that once took minutes to load are booted up in a matter to insert, easy to use and five times faster. So why
of seconds. waste time waiting for your disks to load?

Epyx
FAST LOAD can load, save and copy your disks five Speed them up with FAST LOAD!
times faster than normal. It plugs into the cartridge port Circle 12 on Reader Service card.
 Introducing the Most Powerful
Business Software Ever!
FOR YOUR TRS-80 • IBM • APPLE • KAYPRO • COMMODORE 64 • M5DOS OR CP/M COMPUTER*

ThcrVERSABusiNESS" Series
Each VERSABUSINESS module can be purchased and used independently,
or can be linked in any combination to form a complete, coordinated business system.

VERSARECEIVABLES'" $99.95 VERSALEDGER IP $149.95

VtHSARtCHVABLEB" ft a cnmpk'If menu driven account* ri^i-ivdblf h invoicing and VersaLedgeR II™ is a complete account ing system thai grows as youi business
mtmltily btiitainCEtt gurwMtirH sy&U'ni. It k*vps (rack of liU informs lion n'Uitt-d To who grows, \te«A[_ED<!ER !l" can be usedasasimplcpetsotialcheckbookregister,
tiwvs you or your company money, ''"d "n pruwid*? automatic hilling for pasi due nc expanded to a small business bookkeeping system or developed into a large
Counts. VERSA RE CE1VAH1.J-.S1* pnrilb kill necessary sMtcmcn!sb invoices, and summary
corporate general ledger system without any .ulJiitniL.il software.
reports and can Ew Jinked with \kKbALn>GfR II* and VERSAInven!Ory'V
• Versa Ledger if* gives you almost unlimited storage capacity
VERSaPaYABLES1* $99-95 (300 to 10,000 entries per month, depending on the system),
Versa Pavables" isdesignpd 1" kewp track o\ current and aged payable*, ketping you • stores all check and general ledger information lorever,
i" Touch with gi] information regarding how much money your company owes, and to • prints tractor-feed checks,
whom. VT-RSaPayablhs" maintains a complete record on each vendor, prints checks,
• handles multiple checkbooks and general ledgers,
check registers, vouchers. ir<mwdion reports, aged payables reports, vendur repotts,
anci cnote. With VER5ApAYABLt5"\ you can even let youi compudrr auTomalicoUy select
• prints 17 customized accounting reports inciting check registers,
which vouchers are 1o be paid- balance sheets, income statements, transaction reports, account
listings, etc.
VERSAPA Y ROLL" $99.95
VtHSAPAYKOU." is a powexfol find Buphisttcai«dh hut easy to u« payt<A\ system thit VersaLedgEH IT" comes with a proiessionally-writ ten 160 page manual de
keeps frack u/j[l aovtrnmonr tifquirnf pjyrotl mformjiTion. Complete employee records signed tor first time users. The VeRSaLedger |[™ manual will help you become
arc nuiniflined. and all rwccswiy payroll calculations aw peTformtd auiomatkcally, with quickly familiar with VersaLedger If", using complete sample data files
tolals disptdyed on screen (or n^cMtur ajjprouiJr A paytoH can be ruri lotaKy, auiomatv supplied on diskette and more than 50 pages of sample printouts.
cally, or Ihe OpcralOI can intervene to prevent a check Irorn being printed, or to aHer
information on Jr. jf desired, totals may be posted to the VTRSALEfJCEn IT" system

VERSaINVENTORV" $99.95 SATISFACTION GUARANTEED!

VekSaInvlnTOHV" is a comrJcte inventory control system thjt givci you instant access Ewry VERSABUSLNl^S"m>duk t* guaranteed ruoulpeiJorrri -,\\ m!«■-, cmwtnive^irriA
lo data on d»y ilem. VlRSAi*JvT-NTORV" keeps Iracl* r>(dll informal ion rclati'd to whal and at a fraction ullheiremi Ifyouarcnni laiistedwilhany VI H^rtlSl MM SS" module, you
lii'm-Lir*1 in flock* '■ui olitock,an backorder, elc, sloies tolcs and pricing diila.aJcrls mayrprumil wifhinJUdflyilorA-ffund ManurJs for any VCRSABLISINE 55" module ™yt*
you when an item falls below a prpftrl ivorder point, and olkiw* you tc> enter ond pnni puichavd lor J2& *«h. crnJirrd Toward a later putchitc oi ihai nwxhilr
invoices directly or (olrnk with Ihr WRSAftCEiVABl.tS^ivstem. VERSAiNVtfJTOHY'prints AH CP'M bavd Ccnnp*ii<Ti mun t* equipped u^th MKrouilr BASIC
LMBASECor BASIC 801
iill m'.'dtd inventory lisiings, reporis of items below reorder poinr. inventory value ie-
ports, period and year lo a.\W- uk.-s rtpocls, price lists, inventory chccklsls. elc- To Order;
Write or call ToLMree (800) 431-2818
(N.Y,S. residents call 914-425-1535)

•CQMFlJTRQNICSi
' add $3 lor shippirkg in UPS s ■ add S5 m CANADA cjr MEXICO
■ sdrf W fur C O D. or nun UPS areas ■ add pTopt'r |X)sia3e ef^ewheit

DEALER INQUIRIES WELCOME

f I ru ch.ingr / Delivrry l
50 N. PASCACK ROAD, SPRING VALLEY, N.Y. 10977 All pfite* and f [

•TheW(MBusmeH5mnt>«vnlabl0|DiTBS.8Q.tBM APPLE KAYPRO C<WMODO«E64 OSBOHNt XEROX TCLEV1DEO . SANTO ZENITH ■ NEC . DEC Tl EPSON MORROW
MICRO DECISION NORmSTAR MSIX»iiiKlCP/M«>n«iuImii**S>dakdn1«IConuiinwMmn»™tr»dtnamKlvnd;oiBsd«naikio

Circle 9 on Reader Service card.

"Now Your Commodore 64
Can Print Like a Pro!"

Grappler C
Printer Interface
The Revolutionary Printer Interface for the Commodore 64 TM
A New Era in A Uniquely Intelligent Interface:
Commodore Printing Power. " Prints Screen Graphics Without Software
Grappler CD offers the first complete answer to • Graphics Screen Dump Routines Include
your printer interfacing requirements, with many Rotated, Inversed, Enhanced and Double Sized
powerful capabilities unique in the Commodore Graphics.
marketplace. Complete signal translation allows • Full Code Translation From Commodore's PET
many popular name brand printers to operate ASCII to Standard ASCII, [he Language of Most
perfectly with the Commodore 64, or to imitate Printers.
Commodore's own printer. Even Commodore's • Complete Emulation of the Commodore 1525
graphic character set can be reproduced on Printer for printing of Commodore's Special
Epson, Okidata, Star, ProWriter and other popular Characters.
printers. • Dip Switch Printer Selection for Epson, Star,
Okidata, ProWriter and other popular printers.
Exclusive Grappler CD features provide a variety
• Conversion Mode for Easy Reading of Special
of graphic screen dumps, text screen dumps and
Commodore Codes.
formatting. No other Commodore interface can
• Text Screen Dump and Formatting Commands
offer this.
• 22 Unique Text and Graphics Commands
If you own a Commodore 64...
If you're serious about quality, trouble free
printing... You need the Grappler CD.
liOfanqefTlkro
IB inc.
Contact your nearest Commodore dealer or call MOO N. LAKEVIEW AVE . ANAHEIM. CA 92807 USA,
Orange Micro for a dealer near you. (714)779-2772 TELEX: 1B3511CSMA

Epson <i,a regisrerwa iPAOemar* of £pmn flrriar-Cni Inc

ClrclH 195 an Reader Service card.

 May 1985 AMAH Vol. 2, No. 5

FEATURES

20 The C-128—A New Era of 62 Snakes

Outwit your three opponents by teaching your
Compatibility snake strategic moves that will help it grow
After visiting Commodore in West Chester,
into victory.
I'A, RUN'* technical manager gives us a first
By Douglas Fish
hand look at the new C-128.
By Guy Wright
66 The Plus/4'S High-
28 Home Inventory Resolution Graphics
It pays to keep an up-to-date tisi of all your The Plus/4 lets you control hires graphics with
valuables and home furnishings; you never easy one-word commands.
know when you might need it. Hy Glenn Van Valkmlmrg
By William W. Brawn

16 VIC Patrol
34 Shopper's Companion Let your VIC-20 control your home or busi
This program provides you with a supermarket ness. It can save you money and make your
checklist and a printout of those items you life easier and safer.
decide you need. By Annette Hirisfiaui
ByJosephJ. Sliaughitessy

84 Con Game
38 Bargain-Hunter's Delight This version of the pea-and-shell con game uses
Here's a program that helps you keep track of nine shells and three peas. It's a challenging
all those reduced-price coupons you've been test of your observation skills.
clipping. By Nick Sullivan
By Robert A. Wallace

88 Your Guide to
44 Energy Watchdog Troubleshooting
Do you know how much your electricity is
Hints on how to prevent or correct errors when
costing you per day? This program monitors
you're typing in programs.
your meter and computes the daily cost.
liy Gary L. EiJBStTom
liy Ann /■'. Sykes

97 Easy Assembly
50 What Makes You Tick? Our tutorial on assembly language program
Psychological software is now available for ming continues with two new features—
C-64 users. Kind out what it's all about. Assembler of the Month and Questions and
liy Christine Adamec Answers.
By William B. Sanders
54 Commodore's Secret Recipe
This program is a key ingredient in helping 100 Datafile Update
you budget your meal expenses.
Improvements to Mike Konshak's popular
By David A. Bier Datafile program, published in RUN's Novem
ber and December 1984 issues.
56 Telecommunications. ..
On Line with CompuServe RUN (ISSN 074MZH5) i< in Indqpauleni |oiinnl ml connecled with ConnnDdon BiolneM
Mai Una, Inc RUN b publlahed nanlhlf by CW CainmmikiiliHBfPeinborough, Inc *» Pine
Introducing a new series on telecommunica .SI., I'rIrrhiiiiniKh.MlimM. U,S. .uUKIipli.iiMjIri (I'J.'JI. "nn"i; I2'J'J7. iwo ynn^ (11^7,

tions. This month, RUN takes an in-depth look three >rj" Cvudi jnd Mnfco tBB7, one yejr. U.S. (bad) dmin on us. bank_ Foreign
tt ycjf, U-S. hjinlidr.ittti (ill if.S. blnL Ki-rrj^n jir nud lulnciipiiuni—plc:i« ini|nirr.
at one of the mosi popular electronic infor in In null ji -'mt iIjii |in»ij^t- rjic* i* pi-jidnig al ?eirrlMiri)UAlL. S'U USISti. and at
I liuilin^ tillitci. (Ljiudijti teiond tljM mrtil rCghtnllDa nujiiber yiiiijj Phone: 603-
mation services available. 9S4-94T1, Cnlirr conunB nmrfjhl IBHSb) CW Cuminuiiicjiions/Pctcrfi'iniugh, lniiNo|
By MargateI Moral ito

4 / RUN MAY 1985

DEPARTMENTS Publisher
Stephen Twoinbly

EDITOR-lN-CH IEF

6 RUNNING Dennis Brisson

M ANAG1 NO F.O1I OH/PRODUCTION
Ruminations Swain Pratt
Managing Euitor/Hihtokiiu.
Shawn I s"l iin:in
Copy Eijjtor

8 Magic Marilyn Annucci

Review Editor
Susan Tan ana
Editorial Assistant
12 Software Harold lijornsen

Gallery Technical Manages

Guy Wright
Plantin1 Pal Technical Emtor
\! ; .;.iu i Mi 'i ..I iT' i
Raid on Bungding Hay
Technical Assis i am i
Spryte Byter Timothy Walsh
Ghostbusters Associate Editors
Pascal-64 Christine Adatnec, Robert Baker,
Louis F. Sander, Jim Strasma
U.S. Constitution Tutor
CLAS Advertising Sales Manager
Srcvc Kobbins
Sales Representative

94 Computer Ken IU ill in in

An Coordinator
Tutor Heailn-r I'aimcllc
I-80O441-«(l3
C-64 spelling programs West Coast Sales
reviewed. Giorgio Salmi, manager
1-115-328-3470
1060 Marsh Road
Menlo Park. CA 94025
112 Hardware
Art Director
Gallery Glenn Suokkn

1541 Flash! Producitom Supervisor

Rosalyn Scrihncr
Learning Express: Production Assistant
How to Operate the Lynne Simonson

Commodore 64 Manufacturino Manager

XL 80 Susan (truss
Graphic Services Supervisor
Mitey Mo
Dawn Matthews
Typesetting Manager
Dennis Christen leu
116 Commodore Film Preparation Manager
Roben M. Villencuve
Clinic Darkroom Manager
Nathaniel Haynes

President
122 New Products Debra Wftlierliee
V u i -1 * h i m dent/Finance
RUNDOWN Ro^t-i Murphy
Assistant General Manackk
Malt Smith

126 Mail RUN

Assistant to VP/Finance
Dominique Smith
ExECimvE Creative Director
Christine Destrempes

127 How to Type Director of Circulation

William I'. Howard

In Listings
Circulation Manager
Frank S. Smith
Direct fc Newsstand Sales Manager
Raino Wirein
B00-S4S-0728
127 RUN Amok Direci'or of Credit Salks r-- Collections
William M. Boyer
Founder
Wayne Green
128 Coming Next
Month
Page lf>
RUN MAY 19S5 / 5
 RUNNING RUMINATIONS

In This Issue...
A lot of hoopla is being made about the as*yetto-be- version of the old pea and shell game ("Con Game").
released Commodore 128. Is ii justified? For an analytical look at a new phenomenon in C-64
Well, tit find out we sent HUi\"s resident skeptic, lech- computing, be sure lo read Christine Adamec's review of
nical manager Guy Wright, to West Chester, PA, to gel a psychological software (p. 50). These commercially avail
first-hand look at Iliis highly United new machine. able programs purport to help you gel in touch with your
The results of his visit form the basis for this month's feelings and help you become a better person.
lead story about the (■■ 128.11 is observations, which begin Another noteworthy article in this month's issue is the
on [>. 20, make for interesting reading, as he takes a hard review of CompuServe (p. 56), written by RUN's technical
look at the answers to such questions as; editor, Margarel Morahiio. This article begins a monthly
—how C-(34-coiiipalible is [t? series that focuses on the electronic services available for
—what existing peripherals and software will work with online users.
the new machine?
Give Us a Call!
—what new peripherals does Commodore have planned
for the C-128? Have you tried the KL'Nning Board yet? RL'\"* new
—what abonl Cl'/M? Mow will il work on the 128? bulletin board is at your disposal 24 hours a day with
—will software be readily available for it? Or will Cl 28 useful computing information, the latest happenings
owners, like the early C-(il owners, have to wait for years around the industry and updates to articles and columns
before a large software base is established? published in RUN.
Initial reaction among our callers so far has been very
Any doubts Guy may have had about Commodore's
favorable. If you call and find our lines are busy, please
new personal computer before the visit were erased after
be patient and try again. If you've logged onto the system
several hours of hands-on experience with the CM 28.
before, please keep in touch. We've added some new
His conclusion? The C-128 is "a perfect clone of the C-t»4
features to this service that you're sure to find useful.
and a very powerful Cl'/M computer." Also, in the C-128
Our number is (iOH-ilLM-7(132.
mode, programmers will find a computer that is as easy,
if not easier, to operate than the C-(i4. Wanted: C-128 Articles
In die coming months, RUN will be beefing up its
One of the fears that I hear many VIC-20 owners fre coverage of the C-128. Hut we need your help.
quently express is thai they are stuck with an obsolete If you're a new C-I2H owner, or have access lo this new
machine. Well, for some applications, the VIC-20 is ideally machine, we invite you lo consider submitting an article.
suited, as Annette Hinshaw reveals in "VIC Patrol," be At the outset, (M28-related articles should be tutorial
ginning on p. 7(i. She'll (ell you how you can put your in nature, that is, introducing users to the C-128, in
VIC lo w:orkas a control system for your home or business structing them how to use the machine, exploring its
to control lights, appliances, thermostats and so on. features and capabilities and informing readers about
This issue also supports the old adage that "Home is the latest C-128 software and hardware developments.
where the C-6'4 is." We present several unique ways you As you become more familiar with the machine and
tan put your C(»4 to use in your home. For example: uncover its undocumented capabilities, articles should
include general hints about using the machine or pro
—to monitor your electrical-energy consumption and
gramming tips that you may have found valuable. Also,
compute the average daily cost
as the C-128 gains in popularity and is being used in
—to maintain an inventory of valuable items in your home
homes, businesses and schools, RUN will be interested in
—to serve as a shopping companion to help you keep
articles about diese applications or other unique uses.
track of die items you should pick up at (he supermarket.
If you have Other article proposals not mentioned
The May issue also features interesting games for the above, feel free to send them in for consideration or
C-o'4—a strategy game ("Snakes") and a computerized contact the editorial offices to discuss them. db
(i / RUN MAY 1985
.. .IN THE HFORMATWN AGE home, get the scores, plan a trip, • FREE subscription to
WITH THE DOW JONES review a movie, choose a stock, Dowline, the magazine of
NEWS/RETRIEVAL MEMBERSHIP KIT. or check world and business Dow Jones News/Retrieval
SAMFU A CONTMUOUS STREAM news. There's a lot more, too. • A special introductory offer!
OF KNOWl£D« AT A PRtQ
All you need to get started is
YOU CAN AFFORD. Get your feet wet in the in
a computer and modem:
formation age with the Dow
Now you and your whole family The Membership Kit is a big
Jones News/Retrieval Member
can experience the information value that entitles you to:
ship Kit. At $29.95, you'll enjoy
age without getting in over your
the dip without getting soaked.
head. • FREE password ($75 value)
Available at your local computer
For just $29.95, the new Dow • Easy, step-by-step User's
retailer, or call Dow Jones at:
Jones News/Retrieval Mem Guide
bership Kit leads you step-by- • FIVE FREE HOURS of un
step into entertaining and in restricted usage to explore 1-8OO-257-5114
formative data bases. Withfive the magic of this compre In New Jersey, Canada,
free hours to sample and ex hensive service Hawaii and Alaska
plore, you can find a fact, shop at 1-609-452-1511

Teas away aiwpreconceptiofi that Orclo 51 on RoaOor Semes card.

Dow Junes News/Retrieval is a stuffy, one
dimensional data bast service designed
only for an elite corps of stock analysts
and Wall Street wuantt, Far from it-
Dow Jones News/Retrieval also provides
entertaining movie reviews, current
weather and sports reports, convenient
electronic shopping and inexpensive DOW JONES
electronic mail.. .Dow Junes News/
Retrieval is informative, entertaining NEWS/RETRlE"SAlf
and well worth the money. "
All Riahia H«nved- Ik™ fu
-Hrud Baldwin, fafoWortd Magazine m ii regi*leTrd trademark of Diiw Juriri and
Company. Inc.
 Complied by LOUIS F. SANDER

LOO POKE 788,174 : POKE 769,167: LIST XXXX-XXXX : POKE

MAGIC is tricks, MAGIC is fun. 768,139 : POKE 769,227
Randy Thompson
MAGIC is doing what cannot be done.
Eugene, OR

$ 1 DD C-16 and Plus/4 organ—Here's a ru

dimentary organ program for the new 3.5 Basic.
Entry month Magic brings you brief and useful computer tricks from around 10 VOLH: A = I'EF.K(]*)8):IFA-C4THEN 10 : ELSE A = A*15 :
the world—tricks to nuike computing easier, mure enjoyable or more txciting, We SOUND 1.A.20 ; SOUND 2A20 : GOTO 10
number our tricks in hex, the counting splem of sorcerers and eompulerists.
Jerry W. Jarvis
Magic solicits your simple hardware idem, short programs, useful programming
Spokane, WA
techniques, liltlehmurn computer farts and rfnflor items of interest. We look fur
new or recycled material thai can be implemented with a minimum of time, effort »J> 1 Ut C-16 tips—The Warm Start command is
or theoretical knowledge and that h tij current value to Ommotbttt contpuleruts SYS :iL»7fiH. This is similar to SVS 64738 on the C-64 and
tl'l\is/-> and C16 miners, too). We tjpkaUj pay $10 for each trick accepleil.
SYS 64802 tin the VIC. When using the Else command,
Ketiily super ones get £2f/—£50. Send your tricks to:
you must precede it with a colon. All in all, the Com
MAGIC modore Ifi is a very nice little machine.
do loail !■'. Sander
Bob Underdown
POHax I01OI1
Fayetteville, AR
Pittsburgh, PA 15237

If you enclose a telf-iuldressed stamped envelope, we'll send yini n Triek Writer's
Quids, International readers may omit the itamp. $ 1 DF Directory printer—This program loads
and prints a disk directory, with no keyboard input
Many have wondered if our box number Is in binary,
from you.
or if our ZIP code is octal or hex. The postmaster, un
100 PRINT " {SHIFT CLRM3 CRSR DNs} LOAD" GHR$(34) "$"
skilled in numerology, insists that they are decimal. But
CHR$(S4) ",M"
we are nut so sure, and we are in a position to know. In
110 PRINT " (4 CRSR DNs} OPEN4,4£MD4dJST"
any event, we savor the ambiguity, and we hope il pleases
120 PRINT "PRINT#4KXOSE4 (HOME}"
you—for Magicians, it's good when things are not quite 130 POKE 1983 : FORJ- 1 TO 5 i POKE B30+J.13 ; NEXT: END
what they seem. Alan Sperling, Esq.
Mount Lebanon, PA
$ 1 Ud Glaring nerdhood—Don't have a glare
screen for your monitor? Just wear polarized sunglasses
whenever you're computing. Your family may think $ 1 EU Automatic appender—Use this pro
you're withdrawing further into the tube, bul you're really gram to append other ones, with no Direct mode Pokes
just saving money. to fool around with.
Mike Rogalski
1 INPin "PROGRAM TO AiTENiriAS : INPUT "DRIVE 8 OR 9";U
Monrovia, CA 2 A"PEEK(M) ! PRINT " (SHUT <;!,R({3 CRSR DNs( LOAD"
CHRSCM) AS CHRS(:f4| CHR|(44) U GHRJ (141);
3 PRINT u {4 CRSR DNs| POKE «,1 : POKE 44, " A " (HOME} "
$ 1 DC Program executable List—This lets 4 POKE 6S2.13 : POKE B3S.I3 : POKE 634.13 : POKE 198,3
you use the List command within a C-64 program, without 5 IF PEEK(45)<2THEN POKE 4:i,E>EEK(45)-2 + Uf.r.: POKE
halting the program's execution. Substitute line numbers 4-t.I'KKKHti) - 1 : END
for the Xs or leave them out entirely. li POKE 43J1EEK(45] - 2 : POKE 44,PEEK(46) : END

8 / RUN MAY 1085 BBBHaMBBBBBB

 MPP1064 MODEM
with VIP™ Terminal By Softlaw Corp.

or Lommoaore &\ computer Auto Answer/Auto Dial

Plugs into user port Free CompuServe' DemoPak
Includes VIP" Smart Terminal 1 Year Warranty

miCROBITS PERIPHERAL PRODUCTSJNC

3615 Pacific Blvd. S.W./Albany, Oregon 97321
Orders only 1-000-624-7532 Customer Service (503) 967-9075

VIP™ Copyright 1984, Softlaw Corporation Commodore 64 is a registered trademark ol Commodore Electronics
Circle 34 an Reader Service card.
 Make sure your disk lias a copy of your main program 100 GOSUB 1000.SUUROUIINE NAME : Rl-sl of line Koes here
and the programs you wish to append. Run this program, It works beeause, when Basic returns from the subroutine,
entering the name of your main program in response lo it looks for the next colon or line number, ignoring the
the first prompt. (The Bret line number in the main subroutine name. It's useful because it lets you put a
program must be higher than (».) Then enter the device remark inside a program line, while eliminating the need
number of the drive your disk is in. for the RKM statement.
To append to cbe main program, run the automatic
Richard Murray
appender again, this time answering the first prompt with
Red Deer, Alberta
the name of the next program to append. Its line numbers
Canada
must all be higher than the last line number in the main
program. You may continue to append as many programs
as you wish, provided their line numbers are all higher $1E5 No-question-mark Input—Here's an

than those in the program currently in memory. easy way to get it:

When you've finished, remove lines 1-fi, then save your 10 POKE 631,154 :1'OKt: lilB.l : 1NI'UT"PROMPT {CTRL 7(";INS
combined programs, The {CTRL 7| changes the print color to dark blue, so
Alan Lei§h the question mark, though printed, is invisible. The two
Address unknown Pokes put a light-blue character into the keyboard buffer,
so your response to the prompt will be visible. If you
«pl tl Debugging tip—Debugging a routine aren't using these screen and print colors, change the
that follows several Input statements can be the ultimate {CTRL 7} and the CHR$(154) to the appropriate values,
in tedium, since you must make all the inputs each time found in your user's manual.
you run the program. Avoid this useless repetition by
Steve Freedkin
temporarily changing the Input statements to Read state
East Lansing, MI
ments, and providing data for them lo read. For example,
instead of
100 INPUT A.ll.C
110 Resi of program S»lE6 For...Next statements—These ini
tialize the loop variable before they compute the loop's
you can temporarily use
end. You can use this to your benefit, especially if you're
100 RKM INPUT A.ll.C
working in Direct mode. Take, for instance, the clearing
102 READ A,U,C : DATA 12.H4.5ti
of C-64 color memory, where it's common to remember
110 Res! of program
the start as 1024 + 54272:
This will quickly get you into the more troublesome parts
FOR I = 1024 + 54272 TO 1021 + 54272 + 1024 ; POKE I,Pfct:K(646)
of your program.
: NEXT
Peter L, Rasco, Jr.
can be shortened to
Address unknown
FOR 1=1024 + 54272 TO 1+ 1024 t HOKK I,11KKK(646) : NEXT

Curtis Sieber
$1 E2 Programming tip—When developing a So me rv me, AL
program, you can save lime by making the last step a List
rather than an End, Then when the program is run, you
can see the results and easily make any needed changes. Program overlays—When the Load
When the program is right, just change List to End, then command is used in Program mode, the loaded program
save it. must be shorter than the one thai loads it. As soon as it
loads, the second program is automatically executed, and
John P. Oprea
any variables set by lite first program retain their values.
Kirkland, WA
For string variables, however, things are not so simple.
Their values will be lost unless ihe first program has
$ 1 CO Simplest trace—Whenever the C-64 ex concatenated them to something. If A$ = "TEXT", just
ecutes a SYS 4H:i78, it prints the word IN and the line use A$ = "TEXT" + "", and the necessary condition will
number in which the command appears. By including have been met
these SYS calls at various points in your program, you Re inhard Ruscher
can find whai has been executed and when. An even Szckesfehervar, Hungary
slicker method is io set T = -IH578, and execute SYST any
lime you wan! to trace.

Dennis J. Spranger
S> 1 CO Decimal flags—Here's an easy way to
put sis flags in one integer variable. It uses die first six
Eland, WI
prime numbers (2, 3, 5, 7, II and 13) as flags for six
conditions. Multiply together the prime numbers corre
$ 1 E4 Named subroutines—They are easy. sponding to each "ON" condition, and put the result in
Just do ibis: an integer variable. For example, if conditions 3, 4 and

KWRUNMAYI9S5 Continued on p. 103.

 Fleet System T.
Word processing that spells V-A-L-U-E

Complete word processing with built-in

70,000 word spell checking-Only $79.95
Up till now, you'd have to spend a mini You can even add over 15.000 "custom" out of the most heavy duty ivping tasks.
mum of about (7010 get :i good word words in the built-in 70,000 word dictio There's Huilt-in 80 Column Display — so
processor for your Commodore 64™. nary. And ai a suggested retail price of what you see is whai you get, Horizontal
And If you added a small, separate spell S7y.95, Fleet System 2 really spells Scrolling During Typing, Easy Correction
checking program, you'd he out well V-A-L- U-E, and 70,000 other words too! and Movement of'lcxt, 1'age Numbering,
over! 100! Fleet System 2 helps people of all ages Centering. Indenting, I leaders and Fool
Now there's Fleet System 2! It's two to learn to spell correctly and write better ers, Math Functions, Search and Replace,
powerful programs in one, and It's per mo. It's the ONLY full featured word Mail Merge, BUILT IN 70,UU0 word
fect for book reports, term papers or full processor that provides you with helpful SPEIl Cl IF.CK1NG and much, much
office use. writing and vocabulary feedback such as: more!
Fleet System 2 combines the EASIEST the total number of words in your docu Askfor Fleet System 3,
and most POWERFUL word processor ment, the numher ot" times each word Exceptionally Easy. Packed
available with a lightning-fast 70,000 appears, and total number of "unique" with Pvuvr. Perfectly
word spelling dictionary — all iii one words, jusi to name a few. Priced.
refreshingly BASY TO USE integrated sys Fleet System 2 has every important fea
tem. Finally, spell checking is now availa ture that will help you make child's play
ble at your fingertips,

APSI Professional Software, Inc., 51 Fremont Street, Necdham, MA 0219-i (617)444-5224 Telex: >J51579
PlectSyttem 21U ll a trBUcnarkofProfcOtoM] Software, Inc. — l!lri-iS)>icm2'"ajMk\lKr)nl jn.l wrlm-n !■> VUkuinuda, Lid. — I umnniJun-di1" In IradcmartofCusnrnodore rii-i-
l[<>nk?> Hi!. —.Soiiu-primers in jy not support kt[ Jin EMecl systi-rn I IiiikiIiiii^ :ind/<]r ri[]iilrc jei inu-rimc. PlMfCChcck wiitn'mf <k'j|(.-r — l>iu!cr :md Dismhnmr inqntriBfttre inviltd.
Circle 93 on Roodftr Sorulce card.
 SOFTWARE GALLERY

Compiled by SUSAN TANONA

type of vegetable you've chosen. data. What if I lost my printout, or I

Plantin' Pal The Tips section of the program of don't even have a printer? (You really
do need a printer to get maximum
fers information on pests and dis
eases, as well as on the ideal climate value from the program.) Or perhaps
Everything You Need to
for a particular vegetable. Plantin' Pal I'd like to modify what I previously
Make this Year's Garden also offers options that dea! with what put into the program without start
A Healthy Success you plan to do with your vegetables— ing over from the beginning.
how many people you want to feed, Plantin1 Pal offers considerable
whether you will serve the vegetables value for the price, and I'd recom
fresh or will can them, and so on. mend it to home gardeners, as well

It's time to plant your vegetable The manual accompanying Plantin' as to local garden clubs. The program
Pal is outstanding. It not only explains is easy to follow and it's tremendous
garden, so get out your equip
the program, but also includes a fun. I'm meticulously following my
ment, beginning with your C-fi4. You
wealth of helpful information—best plan, and expect great results very
can plan your entire vegetable gar
soil types for various plants, the right soon. (Home and Hobby Software, 4936
den by using an exciting and com
pH and so on. Morgan Ave. South, Minneapolis, MN
prehensive new program called
Although I think this program is a 55409. C-64/S29.95 disk.)
Plantin' Pal, which is written and
adapted for garden hobbyists in each remarkable and unique application Christine Adamec
of the SO states. of the C-64,1 have a few suggestions. Palm Bay, FL
Plantin' Pal shows you exactly how First, I wish I could have saved my
to lay out your garden, gives you the
earliest and latest dates that you can
plant each vegetable and much more.
You can also print OUi your garden, Raid on
complete with detailed instructions Report Card
on when to plant each vegetable,
whether to use plants or seeds and
Bungeling Bay
Superb!
how far apart to plant. An exceptional program that
inn shines nil others.
Challenging Action
Plantin' Pal is also designed to in
crease your yield considerably, by us Very Good. That Will Keep You
ing wide rows of 20-mch planting Out of the better programs
available in its category. A wor-
Coming Back for More
spaces chat run the length of your
thy addition to your loftware
garden, from west to east. library.
You begin by typing in the dimen
sions of your garden. With this in
Good.
Lives up li» its billing. No has
If you're bored with computer
formation, the computer rapidly sles, headache) or disappoint games, get ready to break out of
calculates the number of rows avail' ments here. your rut. Raid on Bungcling Bay may
able to you. Mediocre, be the best mixture of strategy and
Nexl, enter the vegetables you There art Bome problems with arcade action yet to surface. If an
would like to plant, and the program this program, There are better arcade game can be judged as a clas
on the market.
will tell you how they should be sic, this one passes the test.
planted, from north to south. Poor. When the game begins, you are
The computer will next display Substandard, with many prob sitting on the deck of an aircraft car
lems. Should l)t decpsixedt
VOW garden, laid out with some rier off-shore from several very hos
clever graphics representing each tile islands. These islands contain six
12/RUN.MAVI9S5
 EXPAND YOUR

H R N

peedy loader
.3 to 5 times'faster)
Terminalprogram
Data base manager
Accesslto thousand
__1_ T_ T T 1

ofprograms written
forAppfe computers

LL FOR ONLY $39.

FSI Software Dealer and distributor Apple is a registered trade Commodore 64 is a regis
PO Bo« 7096. cjuiries rnviled mark of Apple Computer tered trademark of Commo
Minneapolis. MN 55407 Corp dore Business Machines. Inc
Toll free 1 800 328 0145.
In MN (6121971 1505

Clrclo 42 on Reader Sqfvicq card.

13 Software Gallery

That's where SpryieByler comes in:

It lets you quickly and easily design
your sprite, using the left side of your
display for die 24 x 21 grid of asprile
work board, the upper-right corner to
display the sprite (in all four possible
configurations) and the lower-right
comer as an options menu.
When you first enter the program,
the work area is filled with plus signs,
and the cursor is in the upper-left
corner. The sprite work area is con
sidered to be blank, and the plus
signs signify that the individual pix
els of the sprite are off.
You maneuver around the grid us
ing the cursor keys (or a joystick) and
draw by pressing the space bar (or
joystick fire-button). Pressing the
space bar changes the plus symbol
under the cursor to a reverse phis
symbol (dark background). I'ressing
the space bar a second time restores
the plus to its normal off mode.
Each plus symbol that you turn on is
echoed by the corresponding pixel in
each of the sprites in the upper-right
corner of die display. Thus, as you cre
factories thai churn out war materiel on al all times, as il continually up ate your sprite, you can see precisely
and are protected by tanks, anti-air dates the file containing top scores of how it looks and can adjust your cre
craft batteries, radar, bombers, gun the game. This could cause the heat- ation in progress, as you desire.
boats and fighter planes. Also, in a sensitive disk drive to overheat.
This isn't all that you can do, how
hidden harbor, workers are fever Also, there is no Quit option. To
ever, because the sprite menu in the
ishly building a battleship thai is stop playing, you must turn off the
lower-left corner gives you five more
armed with missiles. computer. However, this is only a
capabilities, as well as access to other
Your mission is to stop this war minor drawback.
options menus.
machine from destroying ihe earth. If you like arcade or strategy games,
and your only vehicle is a super-pow you should love this program. It's When your sprite is completed,
ered helicopter. As you lift off the fast, always changing and a constant you can switch to one of the other
challenge. Raid on Bungeling Bay has seven menus (Shift, Rotate, Data, Re
carrier's deck, you are treated to a
bird's-eye view of the planet. As your the qualities of a genuine classic. view, Color, Color submenu 1 and
chopper flies, the detail below is out (Hroderbund Software, 17 Paul Drive, San Color submenu 2).
standing. In any direction that you Rafael, CA 94903. G64/$29.95 disk.) For creating sprites, SpryteByter

move, the ocean and islands below can't be beat. It cuts the time used in
Gary Fields
creating a sprite to almost nothing,
scroll with amazing detail. Asheville, NC
letting you concentrate on the sprite
Raid on BungeHng Hay has no
boundaries. The game spans 100 SpryteByter itself and not the mechanics of mak
ing it.
screens and since the planet is a
sphere, if you fly long and far enough, One problem I've bad with the pro
This Handy Utility gram is that the Disk Option menu
you will return to where you began.
Welcome to the challenge of Raid Puts the Byte doesn't match the one listed in the
on Bungeling Bay. To win, you must On Sprites documentation: The manual states
destroy all six factories, protect your that the menu has a Read Directory
carrier, prevent the battleship from option, whereas the program simply
putting to sea and survive. Beware, prompts for a disk command.
this game may be addictive. The chal Designing sprites for ihe Com The only other complaint I have
lenge remains, game after game. modore 6-4 is a simple concept, is that there isn't a way to save the
There were two dungs I did nol like but implementing the designs is com sprite information to disk as stan
about Raid on Bungeling Bay. The plex and quite tedious. Many times, dard Basic data statements. Instead,
program causes the red read/write what seems like a good design on you must copy the information into
light on the l.r>'il disk drive to remain paper doesn't make it on the screen. your program by hand.
14 /RUN MAY 1985
 Put a ^20,000,000 Thrill in
your Computer!!!
The F-15 STRIKE EAGLE, one of the world's most sophisti plished with the guidance of real fighter pilots, and includes
cated lighters, costs the Air Force more than S20.000,000.00 seven different combat missions, four skill levels, and an
each. Now you loo can strap into your ejection seat and infinite number of exciting scenarios. F-15 will thrill and chal
prove how good yoj really are in exciting modern jet tighter lenge you and give you the chance to prove you have the
combat. Fly combat missions, engage enemy aircraft, and "Right Stuff" of an EAGLE fighter pilot!!
destroy enemy ground targets Irom historic missions over F-15 STRIKE EAGLE is available for Commodore 64. ATARI
Southeast Asia to today's defense of the strategic oil routes (48K), and Apple II (64K) computers. Suggested retail price
through the Straits of Hormuz. is only S34.95. Find STRIKE EAGLE at your local retailer, or
F-15 STRIKE EAGLE (simulator] has all the features that call or write for MC.'VISA, or COD orders. Add S2.50 for
makes the real EAGLE the great fighter aircraft it is — Postage and Handling (Int'l add S4.00USD). MD residents
afterburners, multiple radars, air to air missiles, high add 5% sales tax.
explosive bombs, cannon, drop tanks, Electronic Counter
Measures (ECM) Hares, electronic ground tracking Experience the reality of
maps, Heads Up Display (HUD), outstanding 3-dimen- these other great simulations
sional cockpit visibility, and realistic F-15 maneu from MicroPrasc
verability. Your mission is to take off from your base,
fly to and destroy your primary target through all the
dangers of enemy territory including Surface to Air
Missiles and enemy aircraft. Of course, you have to
get back home again, tool!
F-15 STRIKE EAGLE is a very real simulation, accom-

Ctrcle Gfl on Reader Sarvico card.

MicroProse Software
10BI 6 Beaver Dam Road As closo lo tho Real Heart Pounding Sensational Assault
Thrill of Ry.ng as You Accelerated Reai- Choppor Rescue
Hunt Valley, MD 21030
Can Handla'l! Timd DcfonSQ of Raids lor Dnnng
The Action is Simulated — the Excitement is REAL!! [301] 667-1151 Europe Af] n I nst
Sovlel I rwasio.nl M
PflOtftDI

Commodore 84, ATARI, APPLE, and IUM are registered Trademarks of Commodore Business M.ichiios Inc., ATARI Inc , APPLE Computer Inc, and International Business Machines Inc , rospoclivQly
0 Software Gallery

To offset these complaints, Spryte-

Byter includes a Game-Maker pro
gram that you can integrate Into your
Basic programs. This special pro
gram lets you have 31 different
sprites in memory simultaneously,
with options to review the sprites in
sequence while programming. When
your program is completed, you can
save it, the sprites and ilie Game-
Maker module as one program.
If you like to experiment with
graphics, SpryteByter is an excellent
way tojazz up your programs without
taking a prohibitively long lime to
do it. (Microtechnic Solutions, I'U Box
29-10, New Haven, CT 06515. C-64I
$34.95 disk.)
Terry Kepner
Peterborough, NH

Ghostbusters
Open Your Own
portable laser confinement system Overall, Ghostbusters is an excel
Ghostbusting Business. that will store up to ten slimers at lent game that should keep you busy

Don't Get Slimed! one time in your automobile. for quite some time. It provides a
Graphics in the program are well refreshing change of pace for adults
designed, as they closely resemble who are tired of playing games that
characters from the movie Ghostbust- are designed For youngsters. This is
A division's Ghosthusters is a ers, and provide a graphic freshness a program that will capture the hearts
game that successfully com not commonly found in computer of C'-(5'l game players everywhere. (Ac-
bines the essence of the movie, C.Vm.vI- games. tivisiim. Inc., PO Box 7287, Mountain
busters, with the challenge of monetary The program offers detailed View, CA 94039. C-64/$34.95 disk.)
strategy that you find in games such screens that complicate the game and
John Jermaine
as Monopoly. really challenge you. Each screen Taylorville, IL
The object of Ghosibusters is for displays excellent movement, excep
you to emu as much money as pos tional graphics and a touch of gen
sible [rapping slimers (little green uine imagination.
ghosts that hover above certain build Sound effects in the program come
in various forms. The Ghost busters'
Pascal-64
ings), while stopping roamers (spirits
thai haunt the city streets) from mak theme is authentically done, has mul
An Updated Development
ing their way to the Zuul Building, tiple voices and plays throughout the
or coming together to form the very game. Phrases such as "I've been System for Your
destructive Maishmallow Man. slimed," as well as an eerie, sinister Programming Pleasure
When llie game begins, you receive laugh, contribute greatly to the qual
$1 (),()()() from the bank, as an advance ity of the program.
to set up your ghost-extermination I found Ghostbusters to be a unique
franchise. product. It contains superior graph Pascal-fi4, the newest Pascal re
The first thing you'll need is a ve ics, original sound effects and chal lease from Abacus Software, is a
hicle to transport you around the lenges that I've not found in other definite improvement over its prede
city. You have four models of auto computer games. The very imagina cessor, Zoom Pascal. It provides a full
mobile to choose from, each with tive extra features in the program compiler that supports a complete
its varying prices, advantages and place it a notch above many others. range of standard Pascal features. For
disadvantages. I did discover a few limitations to the price and the ease of use, this com
Next, you must choose equipment the game. The program should have piler is a safe buy for those who want
to help you locate, capture and hold been constructed so that two or more- to learn Pascal and develop programs.
the pesty little spirits of the game. players could compete at one time. Pascal-fi4's full compiler supports
These items range from a 1'K energy Also, the musical score could use such standard Pascal features as
detector, which warns of the pres some variation, as it tends to become If. ..Then. . .Else, Repeat. . .Until,
ence of ghosts in a structure, to a monotonous. While...Do and Goto. Data types
18/RUN MAY 1985
 YOUR COMMODORE 64
CAN NOW USE STANDARD
APPLE II+HARDWARE
AND SOFTWARE

SC MICROPRO S:.

IG; 3TONEV
, , , ■■
E

ORVUS S ji ■ ■ B.p.i
'-■■''

DUTEK ■— VIDE)

XAN , I DAN!

WITH THIS
At Mimic we believe that you and your computer should
dictate the choices of hardware and software you can use.

The Spartan" was developed to allow you to choose the

hardware and software that best suits your needs.

Our goal in designing the SpartanIV was simple.

To take what you already have and give you more.

Mimic Systems is proud to give you the SpartanTV

The Apple™ 11+ emulator for the Commodore 64'"

Spartan™ Suggested Retail Prices:

The Spartan1" (includes BUSS, CPU, and DOS cards) S599.00
FOR INFORMATION WRITE.
BUSS card S299.00
MIMIC SYSTEMS INC.
CPU card (requires BUSS card) SI 99.00 m; FORTS!.. F I . 6 A
1112

DOS card [requires BUSS and CPU card) SI99.00 cv ' Nc

CANADA V8V 4V2
[AM prices in U.S. Funds Freight not Included.)
American Express. Visa ana MasterCard accepted Circle 43 on Reader Service card.

To Order Call:
noao'o Bmsneu Wac^nei inc Apple' h- U a "adcnart of Apple Compufw. fnc
"" u o iradamarfc & Uimtc Syitemi inc. ond Wi no auaaaFion wi!h Convnadoi*
1-800-MODULAR
Vkjvt hcfffiw granted by *TQ Hecitoftic* Inc of Victoria ICConoOa (663-8527)
0 Software Gallery

handled by Pascal-64 include real, in For the price (and Abacus offers After answering a question, you are
teger, Boolean, set, array, packed ar even lower rates for schools), you told immediately whether or not you
ray and sequential or relative files. won't go wrong with Pascal-64. Ii has are correct and why.
Input/output commands Include a strong manual and it is very easy The Test mode, though similar in
Read, Readln, Write, Writeln, Get and to learn to use. (Abacus Software, 1*0 format, more closely simulates the
Close. Box 7211, Grand Rapids, MI -19510. actual testing experience. There are
As for memory availability, the C-64/S39 disk.) no Help screens available, and you
Margaret Murabito don't learn which questions you've
cnmpilei' itself takes up very link1
RUN staff answered correctly until the entire
space. You can compile a single pro
lest has been completed. You may
gram of up to 38K. Additionally,
Pascal-64 can be used with the As- then review the questions you an
semblet7Monitor-(54, also from Aba U.S. swered incorrectly and pinpoint your
cus, which lets you run two programs particular areas of difficulty.
concurrently. Programs created on Constitution The program comes with a weli-
written, 50-page booklet that explains
the Pascal-64 compiler will execute
10 to 20 times faster than their Basic Tutor how the study material is organized
on the disk atid how to gel the most
counterparts because they are com
piled into actual 6502 machine code. from the program. Also included are
Let Your Commodore several study questions with a teach
With Pascal-64, you can use the
Quiz You on the er's guide, a matching test for extra
C-64's Basic editor for program de
Constitution practice and hardcopies of the pro
velopment. All you have to do is be
gram's Help screens. A bibliography
gin typing after powering up, rather
that suggests references for further
than loading in a strange editor with
Study rounds oul the package.
new commands. This is very helpful
to people just learning Pascal.
When the original U.S. Consti While there's no doubt that Myrna
tution was drafted almost 2(11) Helfand, the author behind U.S. Con
All the regular editing keys work stitution Tutor, knows her material,
years ago, it outlined the structure of
as in Basic. Line numbers are used and that proper use of the program
our federal government and briefly
as well, but this does not negate the will help you achieve higher exam
described the powers and rights of
possibility of practicing standard scores, you might want to think care
the slates. Twenty-six amendments
Pascal formatting. You tan make in fully before spending over %'M) for a
and 195 years later, (he Constitution
dentations just as you would in any has grown to include guidelines on program you may only use for one
other Pascal editor. a wide range of legal issues. Because semester.
The Pascal-64 compiler takes your of the length and structure of today's If, on (lie other hand, you would
original program, which is in source Constitution, it is ideally suited to be rather not wade through piles ofhis
code, and translates it into p-code (an studied with the home computer. tory books, you will End U.S. Con
intermediate code between English MicroLab's U.S. Constitution Tu stitution Tutor a useful program that
and pure machine code). A loader tor is a two-sided disk that presents presents old material in a refreshing
program translates the p-code into an material on the Constitution in a log new light. (MicroUib, 2699 Skoki? Val
actual machine language program, ical and straightforward manner. ley Road, Highland Park, II. 60015.
which can then be treated like any Areas of concentration include: [he C-04/S35 disk.)
other Basic program tbat you are used legislative branch and how a bill he- Bob Guerra
to handling with Save, Load and Run. comes a law, the executive branch, Charleslown, MA
Also included on the master disk elections, the judicial branch and
is a linker program thai allows you constitutional principles (including
lo insert external machine language separate sections on constitutional
routines into your Pascal programs. amendments and rights). CLAS
Anyone can run your compiled Pas In addition, you may choose to
cal program on their C-64 without study either one area at a time or a A Program to
the presence oi Pascal-64. cross section of questions from all
Help Plan a
The 75-page Pascal-64 manual is the topics on one side of the disk, at
one of the best you will come across the beginning, intermediate or ad Child's Education
for the C-t}4. Ii clearly explains the vanced level. No matter which option
features of Pascal and how lo imple you select, you may study in either CLAS stands for computerized
ment them in your programs. the Tutorial or Tesi mode. lesson authoring system. At
Another feature that is helpful in In the Tutorial mode, you arc first glance, it is a straightforward
this manual is dial it draws compari given a series of multiple-choice and useful program, with good doc
sons to Basic. A person with a working questions. After each, you have the umentation. Even people with little
knowledge oi Basic will like this, as it option to answer it, skip ahead to the computer experience can he writing
takes much of the mystery out of learn next question or call up a special lessons only minutes aficr reading
ing this new language. Help screen relating lo the question. the manual.

18 / RUN MAY 1983

 However, CI.AS lias serious limi they provide a record of how the stu student lesson disks. Once commit
tations. Its operating conditions are dent is doing. Compared toastandard ted to the student disks, these files
so badly designed ihai 1 cannot rec authoring system such as Pilot, CLAS can be replaced, but not edited.
ommend the program for either is too superficial and inflexible to be a The program does not siore the
school or business use. The program serious educational tool. editable course files on a data disk,
can be effective for home use, where Every procedure in CLAS is a sep nor does it provide a file copier.
parents might wish to develop com arate program, which means a lot of Teachers with the maximum of nine
puter learning materials to enhance loading time. Ii took me more than 250-line files on the program disk
their child's BChoolwork. However, 20 minutes to create, test and prepare musi choose between destroying a
this program should not be used in a seven-line lesson. file that migln have some future use
any situation where file loss could The program uses methods that and not creating any new files.
cause a serious problem. are ineffective teaching tools, espe Even with its limitations, 1 liked
What CI.AS does, it does nicely. A cially for today's video-sophisticated some aspects of the CLAS system,
single file cm be up to U.50 lines, with children. Correct answers flash especially for parents who want to
two courses of ten lessons each, and "Right!" or "Good!" on the screen help children with learning disabili
individual lessons may have up to .'!<) three times, to the tune of a little ties. iSui no teacher can afford com
problems. This formal is long enough fanfare that drove me Crazy. Errors puter lessons that can't be backed up,
for simple concepts and for students produce a polite buzz and the com protected or saved. 1 sympathize with
of up to the junior-high level. puter refuses to continue until the Touch Technologies' desire to pro
Lessons are in text only. They con student types the correct answer. tect against copying, but the result is
tain no graphics and only some The authoring disk is copy pro a system too limited (o be useful to
simple arithmetic. CLAS does nol tected, so you can't make a backup. any school. (Touch 'iechnolugies, 609 S.
provide- for alternate ways to answer a You also cannot run the disk with a Esamdido Blvd., Escmdido, CA 92025.
problem. Lessons don't let students write-protect tab, because all files C-6-f/$S9.95 disk.)
who know one set of materials skip to must he written to the program disk Annette Hinshaw
more challenging problems, nor do before they can be prepared for the Tulsa, OK

Circle 63 on RomjDr Somc<< cnrO.

Version 2.0

EVERYTHING YOU EVER WANTED IN A DISK UTILITY... AND MORE!!

FOR THE COMMODORE 64*
* Fully automatic back-up of almost any protected disk.
* Copy files [PRG, SEQ, RND] with full screen editing.
* Three minute back-up of standard disks [even many protected disks],
* Format a disk in ten seconds. *■ View and alter sector headers.
* Remove errors from any track/sector.
* Edit sectors in HEX, ASCII — even assembler.
* Create errors on any track/sector [20, 21, 22, 23, 27, 29] instantly.
* Drive/64 MON, even lets you write programs inside your 1 541.
* All features are fully documented and easy to use.
* None of our copy routines ever makes the drive head "kick."
Yes, you get all of this on one disk for this low price! 539.95
Continuing Customer Support and Update Policy
AIL orders add $3 00 shlppingtfian-
. . . WRITE OR PHONE . . .
dung. California residents add

ST^RPOINT SOFTWARE
6% salss tax. COD ciders add an
add'! H.QO shipping. Check.
Money Order, VISA, and Master
Cu»nrnrt]ore BumnoKL MarUtwi StarRoutelO Gazelle, CA 96034 (915)435 2371
card accepted.

RUN MAY 1985/ 19

 ■ ■ ■ . .. ■ , ...■,-.' ■■■ ■ ■

"■■a* - —■» ^i«f»w jj— -j-« j^

4 f f f / / i O i f f i
fi *t f ;;J J J J
I 1 J
; / i r i i

20 f RUN MAY 1985

 TheC-128—A New Era
Of Compatibility
f Last year, when users talked, Commodore lis
tened. The C-128 is proof of that. It is C-64- and
CP/M-compatible and features Basic 7.0, 128K
(expandable to 512K), 40- or 80-column displays
;
and lots more, including even a price that's Com

4
modore-compatible.
B) GUY WRIGHT

I'D

t F6 { FB \

RUN MAY 1985/21

 At the Chicago Consumer Elec Simple enough. People were only The familiar 38911 bytes free, Basic
tronics Show (GES) Ui June L984, some asking for a whole new. super com V2 message appears. You now have a
people from Commodore began gath puter, a CP/M computer and a clone Commodore 64 under your fingers.
ering information from C-64 users, of the 64 that would behave exactly Not an almost 64, but a true, 100% C-
dealers and third-party manufactur like the old 64 in every way. All at a 641 Same memory, same Basic, same
ers of hardware and software. Their reasonable price. All in one case. All Kernal, same zero-page, same ad
object was 10 find out whai people in nine months. dresses byte-for-byte, same hardware
wanted in a new computer, what they Did the Commodore team suc configurations pin-for-pin. same
liked and didn't like about the 64 and ceed? Here is the 128. You decide. sprites, same sound, same everything!
what features they wished the 64 pos It is a C-64! So much so that you
On the Outside have to turn off the computer to get
sessed. People had been dying to talk
to Commodore For a long time, and *■ An ivory-colored case with a low, back into the 128 mode, because a
Commodore was finally listening. sports-car-sleek profile. true 64 wouldn't know how to do
Hack in West Chester, PA (Com >■ 14-key numeric keypad. that. (There aren't any Basic 2.0 com
modore's American headquarters), a >■ Four function keys. mands, like GO 128.)
development team was put together, ►■ Four separate cursor keys (as well Neither are there 80 columns—just
the project defined and work begun. as the two cursor keys standard on the standard 40x25 screen display.
Nine months later, the Commodore a C-64 keyboard). No using the numeric keypad, help
128 was unveiled ai the I.as Vegas *■ All escape key, tab key, ALT key, key, ALT key. no-scroll key, and so on,
winter CES show. shift-lock key, help key. line-feed because a true 64 wouldn't know how-
Anyone who has owned a Commo key. no-scroll key, and a 40/80-col- to access extra keys it doesn't have.
dore 04 for any length of time proba umn key. The sprites and sounds are there, but
bly knows what sorts of changes they >■ A reset button on the side. it is back to the Pokes and Peeks.
would have recommended, what to *■ A new. more efficient power Plug in a C2N datassette recorder,
keep and what to add. The problem supply. and it works. Plug in a 1541 disk
for Commodore was how to build a "•■ Audio input and output pins. drive, and it works. Plug ill a 1702
new computer that met all these •- All the same ports and cartridge or 1701 monitor or a regular TV set,
requirements. slots as in a C-64. and they all work. Joysticks, game
What did everyone want? Compat Ip- Economically designed, 92-key paddles, light pens, graphics tablets,
ibility was most important. And not typewriter-style keyboard. music keyboards, robot controllers,
just the same Basic with a whole new modems—anything for a C-64—and
On the Inside they all work!
sel of Peeks and Pokes, memory ad
dresses and hardware requirements. »- 128K RAM (expandable W512K in Turn oil' the computer, and plug
People wanted 100% compatibility. 128K increments). in a C-64 game cartridge, Turn on
Millions of C-64 owners had spent *- 48K ROM plus 16K ROM for the ex the computer, and the 128 turns into
a good deal of money on hardware tended 4.0 disk operating system. a 64, playing the game as usual. It is
and software, and they didn't want p- Upper/lowercase and keyboard a C64, with all its features, frills and
to throw it all away or spend hours graphics character sets. faults, 100% compatible—
trying to convert their favorite pro »► 8502 microprocessor, operating Commodore guar
grams jusi so they could own a new at 1 or 1 MHz (it is 6502/6510 antees it!
machine. compatible). So, the 128
More memory was next on the +■ 6581 sound interface chip. is also a
list—twice as much, or more if pos *■ VIC-II chip (40-column mode). C-64.
sible. An 80-colmnn display would be *• 8503 video chip (80-column mode). There
nice, as would a numeric keypad, bet *■ Z80A (4 MHz) microprocessor (for is
ter Basic and a faster disk drive! CP/M).
A beefedup. more reliable power •> 16 colors.
supply was also wanted. And for die ►■ 8 sprites.
numerous people using their (34s for *■ Basic 7.0.
business purposes. CP/M was a must. *■ Built-in machine language
At the same lime, no one wanted monitor program.
to give up any of the features that *■ 40-co!umn by 25-line
made the 64 such a great machine. (320 x 200 resolution)
Keep the sprites, colors, music and display or 80-column
graphics capabilities, but make them by 25-line (640x200
a bit easier to access (all those I'eeks resolution) display. nothing unusual about
and Pokes were enough to discour *- CP/M version 3.0. Commodore being able to manufac
*■ Composite video, digital ROM or ture a 64 in a differenl case. But the
age more than a few 64 owners). Def
initely keep the SID chip! The music RF output. 128 contains two more machines!

and sounds of the 64 were a treasure What does all that mean? Three
computers in one (live, if you consider CP/M Mode
no one wanted to sacrifice.
And probably the biggest concern 40/80-column modes as separate). Put the CP/M disk in the drive and
was the bottom line—the price! Turn on the 128 and type GO lit. turn on ihe 128. Automatically, the
22/RUN MAV 1983
 m4ssa
" t*
t
^
■fc StMb Aiub ^^—± .■' V_r "^ -*■

■i ^ «...
 of programmable memory, divided
POWEfl
I4OA0 into two (»!K banks, "Ihe first hank
of 64K is usable for programs, and
the second is used for string, variable
and array storage. This means that
large arrays don't steal valuable pro
s : ) gram storage space. (A side note here:
'
6 8 9 Commodore has devised some new
$
4 variable, string and array Storage
techniques that should almost elim
U I O
inate the "garbage collection" prob
Con** Q
lems that can sometimes slow a
program's operation.)
H K
At the time of this writing, it is not
'■'■■'II clear how Commodore is planning
to implement the memory expand
B M ability >}i' the 128 (or when), hut
StvHI
~> I 2K —whether it involves bank
switching, RAM disk or true accessi
bility— is going to provide a lot of
space for all kinds of programs.
In ihe 128 mode, you can now use
all of the !12 keys. A complete 14-key

computer boots up CP/M Plus, Ver up to 4000 cps. Also, in the CP/M numeric keypad makes numeric cal
sion 3.0, and you arc ready to begin mode, you have access lo the full culating, data entry and program
ming a lot easier. Four separate
using the C-128 with all that CP/M 128K of memory, plus disk data stor
cursor/arrow keys simplify word pro
software available. As a bonus, you age of up to 410K (compared to the
still have access to the SID chip for lMl'i 170K). cessing, gaming and editing.
music and sounds and the YIC-II chip So the 128 in CP/M mode features Those familiar with the Plus/4 com
for sprites. You can also use the 8563 a Z80A microprocessor operating at puter will appreciate the help key. If
video chip (using an Assign state 4 MHz, 128K expandable to 512K, a program crashes with an error, just
ment) for 80-column displays. 4(1 X 25 or 80 x 25 display, a total of 16 press ihe help key; the line where the
Wlin is going lo be producing colors, sound, music, sprites. 41 OK error occurred will be displayed, with
CP/M programs in a Commodore disk storage, 3500 cps data-transfer the error flashing in reverse video,
disk format? Commodore, for one. A rate, automatic or manual CP/M Tlie ESC. ALT and no-scroll keys
[lumber of programs will be available booting and the ability to read C-64 will be invaluable programming aids.
by ihe time the 128 goes on sale, CP/M, IBM system 34, Osbome and Combine the ESC key and the normal
including the Perfect series of pro Kaypro disks. All that adds up to a keys, and you have complete line-and
grams from Thorn EMI Computer very powerful, flexible and serious window-editing features like those
Software—Perfect Writer, Perfect CP/M computer! Ionnd on other computers. The shift-
Calc and Perfect Filer. And even So far, the 128 is two remarkable lock and line-feed keys will help word
though ihe 128's CP/M disk format computers in one—a perfect clone processing, and just about every key
is different from the C-64's, the 128 of the C-6-1 and a very powerful is programmable, which means sim
Will still be able to read any C*64 CP/M computer. And we haven't even plified, one-key commands for com
CP/M disks. mentioned the main 128 mode yel! mercial and homemade software.
'Ihe best aspect of the C-128's com The one extra key I haven't men
patibility is that, in CP/M mode, the tioned is the 40/80 display key. Lock ii
128 Mode in ihe 80-column position before turn
C-128 will also read off-the-shelf
CP/M disks for ihe Osbome, Kaypro Let's start with a few extras in the ing on ihe 128. and you have an 80-col
and IBM system 34 computers. Pro 128 mode. Using the 40-column dis umn display.
grams like VisiCalc. WordStar, dBase play, you have access to all the nicer '['here is a price, however. The 80-
[land so on are now usable. A world of qualities of ihe C-64 mode—sprites, column mode produces an RGBI out

business and applications software has sounds, music, 1(5 colors, keyboard put, which means the Commodore
been added lo the thousands of pro graphics, programmable function 1701 or 1702 monitors won't work,
grams already available for the C-64. keys and so on. Basic programmers but any RGB! monitor should.
Tack on a data-transfer rate of 3500 will find it just as easy, if not easier, to in the 80-column mode, the new
characters per second (cps). Com operate in the 128 mode as it was on 8563 video chip takes over. This new
pare that to the usual 1541 speed of the (54. (It's not 100% compatible in chip still has the YIC-II chip's color
about 320 cps, and the advantages the 128 mode, but if you need 100%, and bit-mapped graphics capabilities
are obvious. just enter CO 64.) and, of course, upper- and lowercase
There is even a disk speed "burst" The 128 mode gives you much letters. Ihe new 8563 also doubles
mode that enables data-transfer rates more than the C-64. It provides I28K ilu- screen resolution from 32(1x200
2-1 / RUN MAY Mb
 Circle 221 on Roaaer Servlca card.

PlayNET
announces 19 exciting ways to
bring people together.
Now there's a Home Computer Network WMORE! MORE! MORE!

5-17
GAMES!
that lets you communicate with all kinds GAMES! There's on-line updating of
of people—all over the country! Make new GAMES! your PlayNilT Software as
friends, play exciting games, barter—shop PlayNET lets you games and services are added.
—trade, all from the comfon ofyour home. play exciting games with real people, not You have access to PlayNET's Shopping
The network operates 6PM-7AM every just a computer. All our games have full Center and Information Center, and every
weeknight, and 24 hours on Saturday, Sun color graphics, and they're all interactive] month you'll get our Newsletter.
day and Holidays. All you need to access
• Plus the added feature WYOUR SATISFACTION IS
PlayNET1" is a COMMODORE 64* DISK
of being able to talk with GUARANTEED for 30 days
DRIVE and MODEM.
your opponent while you Cor your full subscription
1TALK. play. Discuss strategy, price will be refunded upon
By typing on-line you can tail: to comment on moves, even receipt of the package).
anyone, or everyone, on the sys try and psych your oppo This is all you pay:
tem. Meet fascinating people and nent out! • S39.95 for the PlayNET Software
make new • New games are added all Package (3 disks and a User Man
friends from the time, and there are ual). Monthly Newsletter, and °-0
coast to coast. tournaments for every MINUTES ON-LINE TIME FREE!
skill level, • $6 monthly service
charge.
CURRENT GAMES INCLUDE: • S2 an hour on
line time (the
■ Backgammon
S2 includes
Boxes
the telecom
Capture

2
ELECTRONIC MAIL. munication
the Flag charges). That's much
You can send private messages to
people on the system, and the Checkers less than a long distance phone call.
message will be waiting when they Chess Heres how you can become a member!
sign on! Chinese Its easy to join, simply call PlayNET on the
Checkers toll-free number, 1-800-PLAYNET, or send
Contract the coupon below and access all your Com
Bridge modore 64 has to offer. The sooner you do,

3
BULLETIN BOARDS.
Four-In- the sooner PlayNET can put the whole
You can post announcements, or
A-Row country at your fingertips!
check the listings of other mem
bers. There are lots of boards for Go
hobbies and spe
cial interests! If
Hangman
Quad 64™
=PlayNET
you don't find Reversi The Network
(he one you're Sea Strike1" that has people talking
looking for— r

or call 1-800-PLAYNET"
create your SEND TO PLAYNET, INC.
P.O. BOX 587
own!
WYNANTSKILL, N.Y. 12198
YES! I WANT PlayNET TO PUT THE WHOLE COUNTRY AT MY FINGERTIPS. !

4
FILE TRANSFER. UNDERSTAND THAT MY SATISFACTION IS GUARANTEED FOR 30 DAYS (or my full
You can even transfer non-com subscription price will be refunded upon return of the package) 1 may cancel my
membership at any lime by writing PlayNET.
mercial programs to oiher mem
Bill me on my charge tard for S3y 15 iPlus sales cut lor New York State residents) No
bers! There is a small extra fee for checks, cash nr money orders attepied Please send me ihe PlayN'ET Software. U«r
this service. Manual, and 90 minuivs o! free on-line time
Please punt
Name .
Add ress
City .Sttle. -Zip.
Phone ( )
Check one: □ MasierCard □ VISA
Gird # -Exp Date.
S ig natu re
L I
* ind ^ei^cnEx ait tr*dtm*r'ki id FL>SET, Inc 'L it j irjdfmjikof LMirnnuJ-irr butinmMifhinr-. |m C WHSPL^NI I In*
 commands for setting up, saving and speed things up a bit. In the 128
loading sprites (Sprite and Sprsave). mode, this drive features a data-trans
The same sort of treatment was fer rate of 1500 cps (which is five
given in the SID chip. Sound and times faster than a !5ll), and, as men
music commands, like Vol, Envelope, tioned earlier, a special Burst mode
Filter, Tempo, Sound and Play, were may bring disk speeds up to 4000
added. characters per second.
Commodore also added some of There is only one remaining ques
the control features of Pascal pro tion: What is the price of this im
gramming language to liasic 7.0: pressive 3-in-1 machine? Around
If. . .Then. . -Else. Do, Loop, While. $250, unless something drastic hap
Until, Exit, Begin and Bend, plus a pens (and for that much power, who
few other goodies like Trap and Re is going to quibble about a S10 or
sume. Print Using and Pudef (print S20 difference?).
using define), Dec and Hi-xS (lor con
vening numbers from one base to Peripherals
another), and Window and Rwindow Before wrapping up this report, let
for (you guessed it) windowing. me mention some of the new periph
To help you write your programs erals that Commodore has planned
using all the new commands, there are for Lhe 128.
others that perform such feats as au The 1571, a new 5 'A -inch disk drive,
tomatic line numbering, line renum will have ihree modes of operation—
bering and deleting ranges of lines. In 64, CP/M and 128. It will transfer data
pixels to 640x200 pixels (imagine
debugging your program once it is fin ai 300 cps in (34 mode, 150U cps in 128
the graphics!).
ished, there is Help, either tin- key or mode. 3500 cps in Cl'/M mode and up
Basic 7.0 the command, to locate- those obvious lo 4000 cps in the Burst mode. It uses
errors, and also Iron and Troff, to double-sided, single-density, 350K for
Now. to some of the Internal differ
help follow the flow of a running pro matted disk storage in the 64 and 128
ences. liasic 7.0 is without question
gram with a trace feature, printing modes, and double-sided, double-den
the most comprehensive, advanced
each line number on the screen as it is sity, 410K formatted disk storage ca
form of (he Basic language Commo
executed. pacity in the CP/M mode, lhe 1571 is
dore has ever produced. With over
For machine language buffs, the also compatible with the 128, C-64,
140 commands, slatemcnls and (unc
built-in monitor offers the Standard Plus/4, LCD, C-16 and VIC-20! There's
tions, programming in Basic will take
set of commands to load, save, dis talk of a new Commodore dual drive
on a whole new meaning,
play the registers, exit to liasic, mem as well.
For those who learned Basic mi the
ory dump, transfer a range, fill a Next are two new monitors to han
C-64 or VIC-20 (Version 2.0). all the
range, compare a range, assemble dle that RGBI output from the 128
commands arc still there. For those
and disassemble. All in all, a nice in 80-column mode: the 1901 mono
who learned liasic on the early VV.'l'l
little monitor program. chrome monitor and the 1902 color
CBM machines (Version 4.0)i all the
Once you have created and de monitor. The 1902 supports both 40-
disk commands are present in Basic
bugged thai masterpiece of program and S0-column RGBI or composite
7.0. For those who learned on the
ming, you may choose from a col input, which means it will work with
Plus/4 or C-16 (Version 3.5 Basic),
lection of commands for getting in the C-64, the VIC-20, the Plus/4, the
you won't miss a thing.
formation to and from the disk drive. C-16 and, of course, the 128. (Are you
Add on the Super Expander com
For example, Directory and Catalog, beginning to see a pattern here?)
mands, those from Simons' Basic and
Bsave and Bload (to utilize both 64K There is also a new modem, the
throw in a handful of new ones, plus
memory banks of the 128), Record 1670, which features 300/1200 baud,
the 14 other commands for the built-
(lor relative file record selection and auto-dial, autoanswer, auto-baud
in machine language monitor pro
pointer positioning) and two new and auto-parity. It works with the
gram, and you end up with Basic 7.0.
disk commands—Dclear (clears all C-64, C-128, Plus/4 and VIC-20.
Thirty-four commands, 35 state
open disk channels) and Bool (au There's also a mouse and thejane
ments and 13 functions above and
tomatically loads and runs a pro 2.0 icon-based, picture-driven series
beyond a C-64!
gram). No more having to enter: of programs and.. .and.. .and...
Graphics commands like Circle,
Final conclusions? I'm going to buy
Box. Paint,Draw,Width. Char, Color,
CLOSE1B a 128 the minute I can lav my hands
Rdot, Rgr, Rclr and Graphic (many
using multiple parameters, making Now that there are all sorts of eas
them serve more than one duty) will ier disk commands to save time, it
open up graphics programming, would be remiss of Commodore to Guy Wright, TechnicalManagei [or RUN,
Commands such as Movespr, Col force people to wait for the drive lo wal invited tn Commodore's headquarters
lision, Bump, Rsprite, Rspos and catch up, as with the 1541. With the to get a first-hand look at the C-128 ami
Rspcolor take the frustration out of C-128, Commodore is also introduc tn s{>euk with top engineers, designers ami
manipulating sprites. There are also ing the 1571 disk drive, which should project managers about this new computer.

26 / RUN mav 19X5

Simulator]!

Put yourself in the pilot's seat of a Piper 181 Cherokee Archer for an awe-inspiring flight over realistic scene
from New York to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic vi
as you practice takeoffs, landings, and aerobatics. Complete documentation will get you airborne quickly
even if you've never flown before. When you think you're ready, you can play the World War I Ace aerial battle
game. Flight Simulator II features Include ■ animated color 3D graphics ■ day, dusk, and night flying mode.
■ over 80 airports In four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery I
areas available « user-variable weather, from clear btue skies to grey cloudy conditions ■ complete (light
instrumentation ■ VOR, ILS, ADF, and DME radio equipped■ navigation facilities and course plotting ■ World ,
War I Ace aerial battle game ■ complete Information manual and flight handbook.

See your dealer.. -

or write or call for more informalion. ForclireclordersendoseS49.95 plus $2.00
lor shipping anO specify UPS or iirst class mail delivery. American Eipress.
Diner's Club. MasterCard, and Visa accepted.
713 Edgebrook Drive
Order Line: 800 / 637-4983 Champaign IL61820
Circle 40 an Reader Service card. (217) 359-8482Telex: 206995
.
 Home Inventory
If you have ever lost some or all of
your household goods due to fire,
flood, theft or other disaster, you
know how important it is to have an
up-to-date inventory of those items,
especially for insurance reasons.
Without a previously prepared in
ventory list, you might lack some of
the information your insurance com
pany needs to process your claim.
The Home Inventory program al
lows you to easily prepare an inven
tory list. The information on your

By WILLIAM W. BMW

RUN It Right
06-1; V1C-20
household items is stored within the gram. By using the "dynamic key the line number; MS is a quote mark;
program as D:it;i statements. You can board" technique to automatically N$, DS, OS and SS are the fields in the
call up the list on your screen or create or delete lines containing the Data statement and correspond to the
produce a printed list. You can then Data statements, the program simu item name, dale of purchase, original
store a copy of the program or the lates the action of a disk file. cost and serial number.
printed list in your safety-deposit box The "dynamic keyboard" tech Each time a new item—and, hence,
or other secure location. nique is a method of placing infor a new line with data—is added, the
Home Inventory is simple to use, mation on the screen and having it variable L is increased by I. 1. is
beginning with a menu that allows executed just as if you had typed it added to 900 to create the value in
you to choose between five options in and pressed the return key. the line number variable LN. This
just by pressing one key-. The options The program itself prints the in ensures that you will not add a line
include: adding an item to the list, formation on the screen and then number thai you have already used.
deleting an item, displaying the list receives a command from the key There is space in the program for
on your screen, producing a printed board buffer to execute one or more thousands of possible line numbers,
list and ending the program. returns. The keyboard buffer is con so you need not worry about running
If you choose to end the program, tained in memory locations 631 to out of them.
you will receive a message on the fi40. Memory location 198 is also im Line 192 prints an updated line 32
screen reminding you to rcsave the portant, as it holds a number equal to the screen, updating the variable
program if you made any additions or to the number of characters the key L. It also prints a direct statement
deletions. This is necessary in order to board buffer will hold. "GOTO 197(home)." There are now
keep your updated list, since it is con You will not have to exit the pro three lines on the screen—the new
tained within the program itself. gram to actually type in or delete the Data statement line, an updated line
lines with data. This method's only 32 and the direct statement to go to
Dynamic Keyboard drawback is that, after you have up line 197. Note that the first part of
When designing this program, it dated your list, you must resave your line 191 cleared the screen and then
was necessary to decide how the data program in order to include the moved the cursor to the fourth
constituting the inventory list would changes in your program. screen row, where the new lines
be stored. I chose to use neither a To see how this technique works, started printing.
disk datafile, as many owners do not look at lines 191-194 of (he program. Now look at line 194. A 3 is Poked
have a disk drive, nor a tape file, since These few lines will put added infor to location 198. meaning there are
that form of storage makes ii very mation into a new line as a Data three characters in the keyboard
cumbersome Hi repeatedly access statement. buffer. Next, three 13s (Returns) are
and update a Tile. Instead, I decided The actual line with the data is Poked to the keyboard buffer, start
to use Data statements within the pro printed to the screen by line 191.1 ,N is ing with location 631. When the End

Listing 1. Home Inventory program for the 064. | HOME INVENTORY

MENU

1 REM *** HOME INVENTORY •*•

2 REM ***{7 SPACEs}BY(7 SPACEs)***
3 REM ***{2 SPACEsJWM. W. BRAUN(2 SPACES}** ADD ITEM TO LIST 1
*
DELETE ITEM 2
32 L= 1
33 ES="ENTRY TOO LONG! " DISPLAY LIST 3
34 F$=" CHARACTER MAXIMUM!"
PRINT LIST 4
35 M$=CHRS< 34)
36 F=1 EXIT THE PROGRAM 5
40 PRINT"(SHFT CLR) {CTRL 9HCTRL 7}{4 SPACE
sJHOME INVENTORY{4 SPACEsltCTRL 0}"SPC(3
5)"(CTRL 3)MENU{CTRL 1)
45 PRINT"{2 CRSR DNs}{10 SPACEs)ADD ITEM TO PRESS KEY TO SELECT
LIST 1"
46 PRINT"(CRSR DN)(10 SPACEsJDELETE ITEM 100 REM •• ADDITION *•
2 105 PRINT"(SHFT CLR}(CRSR DNHCTRL 7}[6 SPA
47 PRINT"{CRSR DN}{10 SPACES)DISPLAY LIST-- CEsHCTRL 9} ADDITION (CRSR DNHCTRL 1)
3" ■ ■

48 PRINT"(CRSR DN}{10 SPACES)PRINT LIST 110 PRINT"(CRSR DNJENTER NAME OF ITEM:"

4"
111 INPUTN$:IFLEN(N$)>35THENPRINT"{CRSR DN)
49 PRINT"I2 CRSR DNs}(10 SPACES)EXIT THE PR
"E$"35"F$:GOTO110
OGRAM 5"
60 PRINT"(5 CRSR DNs}(CTRL 5){10 SPACES)PRE 112 GOSUB710:ONFGOTO170,115
115 PRINT"(CRSR DNJDATE BOUGHT:":INPUTDS:IF
SS KEY TO SELECT
65 GETK$:IFK$=""THEM65 LEN|D$)>9THENPRINT"(CRSR DN)"ES"9"FS:GO
TO115
67 0NVAL(K$)G0TO105,205,405,505,605
68 PRINT"(CRSR DNHCTRL 3} PRESS ONLY{2 SPA 120 PRINT"(CRSR DN}ORIGINAL COST OF ITEM:"
CEs}l-6(SHFT SPACE)!!(CTRL 7)":FORT=0TO2 121 INPUTC$:IFLEN{C$)>9THENPRINT"{CRSR DN)"
000:NEXT:GOTO40 E$"9"F$:GOTO120

•M) t RUN MAY \

statement in line 194 is executed, the Pokes a 1 (for white) into (546 and This should provide you with enough
computer executes the Returns you then, after the addition is finished, a room; if not, you will have to abbre
have placed in the keyboard buffer 6 (for blue) is Poked back into 646. viate some of the information. The
and thus executes the lines that are The same thing happens in the Dele name can be 35 characters long, the
on [he screen. This has the effect of tion routine. date and cost nine characters each,
putting your new daia line into the When working out this program, and the serial number 15 characters.
program,addtngon the updated line I tried several techniques to deter Even with an unexpanded VIC-20,
:(2 and restarting the program at line mine just what line number needed you should be able to store a fairly
H>7. (The program actually was tem to be removed when deleting a par long list of items. If you lind that you
porarily ended in line 194.) ticular item from the list. Looking run out of memory, try any of the
If all of this boggles your mind, rest through a memory map of the VIC- following to increase your storage
assured that it does work, and you 20,1 found that locations 63-64 hold capability.
need not understand it to use the pro the line number of the data currently • Delete REM statements,
gram. If you can grasp how the "dy being read. • Delete lines 505-580 if you don't
namic keyboard" works, ii could come This meant that when 1 found 1 lie plan to make printed lists.
in handy in your own programs. Keep item with the Search routine, loca • Make your added entries as short
it in mind in situations where you tions 63-64 would be holding the as possible.
want to add, delete or update a pro number of the line it was in. I only • If all else fails, invest in a memory-
gram's lines, or where you may want to had to convert the line number from expansion cartridge.
execute a user-entered command low-byte/high-byte form to a single
I hope that you will find Home
from within the program. number, which happens in line 240.
Inventory to be useful and thai you
Note that the Restore statement
Invisible Action have learned some new techniques
occurs after you Peek locations 63 and
that you can apply to your own pro
When using the program and per 64 to find the line number. If this
grams. If you do not wish to type in
forming an addition or deletion, you statement occurred before that, you
the program yourself, you can send
will not see any of the previously would not get the proper line num
me a blank cassette, a self-addressed
described action on the screen. The ber to delete.
stamped mailer and $4, and I will
action occurs very fasc and would When entering data to add an item
send you a verified copy of the
probably look somewhat confusing to the list, you will get some error
program. K
to you, so the program temporarily messages if you try to enter strings
changes the prim color to white that are loo long. 1 had to limit the
(which is also the screen color). length of the item name, date, cost Address all author correspondence to
Location 646 holds the number for and serial number so that the data William W. Braun, 3164 Wellington
the current print color. Line 185 could be contained on a single line. Way, Arnold, MO 63010.

194 POKE198,3:FORX = 0TO2:POKE631 + X , 1 3 :NEXT:E

ND
HOME INVENTORY LIST 197 POKE646,6:PRINT"(SHFT CLR)"SPC(178)"ITE
M ADDED TO LIST"
RUN MAGAZINE
198 FORT=0TO1500:NEXT:POKE198,0:GOTO1
2/2/85
200 REM ** DELETION **
TYPEWRITER TELEVISION SET
205 PRINT"{SHFT CLRHCRSR DNHCTRL 7) (6 SPA
DATE PURCHASED: 2/2/35 DATE PURCHASED: 12/4/B4
CEsHCTRL 9| DELETION (4 CRSR DNs}(CTRL
ORIGINAL COST: $545.00 ORIGINAL COST: $599.99
1)":PRINT"ENTER NAME OF ITEM:":INPUTNS
SERIAL NUMBER: 1234ABCD SERIAL NUMBER: 4321DCBA
215 GOSUB710:ONFGOTO240,235
COMMODORE 64 AM/FM RADIO 235 RESTORE:PRINT"{SHFT CLR){7 CRSR DNs) NA
DATE PURCHASED: 1/3/85 DATE PURCHASED: 11/6/84 ME IS NOT IN LIST!"
ORIGINAL COST; SN/A ORIGINAL COST: S54.95 236 FORT=0TO1500:NEXT:RESTORE:GOTO40
SERIAL NUMBER; 56781234 SERIAL NUMBER: 62134AD 240 LN=PEEK(64)*256+PEEK(63):RESTORE
250 POKE646,!:PRINT"(SHFT CLR}{3 CRSR DNs}"
END OF LIST LN:PRINT"GOTO270"
260 PRINT"!HOME}":POKE198,2:POKE631,53:POKE
632,13:END
125 PRINT"(CRSR DNJSERIAL #( IF NONE —):" 270 POKE646,6:POKE198f0:PRINT"{SHFT CLR}{4
126 INPUTS$:IFLEN(S$)>15THENPRINT"{CRSR DN) CRSR DNs)(4 SPACEs)ITEM DELETED":FORT^0
"E$"15"F$:GOTO125 TO1500:NEXT:GOTO1
130 PRINT"(CRSR DNJIS DATA ON SCREEN OK? (Y 400 REM ** DISPLAY LIST **
/N): 405 PRINT"{SHFT CLR}{CTRL 9}(CTRL 7J{2 SPAC
133 GETK$:IFK$="Y"THEN185 EsJHOME INVENTORY LIST {2 CRSR DHs)(CTR
137 IFK$="N"THEN105 L 1 }
138 GOTO13 3 410 READN$,D$,C$,SS
170 RESTORE:PRINT"(SilFT CLR)(3 CRSR DNs) IT 415 IFF=1ANDN$="END"THENPRINT"{2 CRSR DNs}
EM ALREADY IN LIST!":FORT=0TO3000:NEXT: NOTHING IN LIST YET!":RESTORE:GOTO485
GOTO105 416 F=2
185 RESTORE:LN=900+L:A=L+1:POKE646,1 420 IFN£="END"THEN480
191 PRINT"iSHFT CLR){3 CRSR DNsj"LN"D(SHFT 435 PRINT"(2 SPACEs}"NS
a)"m$n$m$","m$d$ms","m$csm$"rmm$s$ 436 PRINT"(CRSR DN) PURCHASED:"D$
192 PRINT"32L="A:PRINT"GOTO197(HOME} 437 PRINT"(CRSR DN) ORIG. COST: SrtC$

RUN MAY IMS/31

Listing i contlmud
438 PRINT"(CRSR DN) SER. #:"S$ 576 PRINT#4,"(<1 SPACEs) SERIAL NUMBER: "S$C11
450 PRINT"(6 CRSR DNs}{3 SPACEs}PRESS [CTRL R$(13)
9)F7{CTRL 0} FOR NEXT ITEM{CRSR DN)" 580 PRINT#4,CHR$(13)CHR$(14)"END OF LIST"CH
451 PRINT"{2 SPACEs|PRESS{2 SPACEs}{CTRL 9} R$(15):CLOSE4:RESTORE:GOTO1
F1{CTRL 0} FOR MENU{CRSR UP} 600 REM ** END PROGRAM **
460 GETK$ 605 PRINT"iSHFT CLR){CRSR DN){CTRL 1)IF YOU
46 5 IFK$="{FUNCT 1}"THENRESTORE:GOTO1 MADE ADDITIONS OR DELETIONS,"
466 IFK$ = "{FUNCT 7)"THEN405 606 PRINT"{CRSR DN)RE-SAVE THE PROGRAM !{3
470 GOTO460 CRSR DNS)":END
480 PRINT"{SHFT CLR){2 CRSR DNS)(5 SPACES){ 700 REM ** SEARCH ROUTINE *•
CTRL 9(END OF LIST":RESTORE 710 READXJ:IFX$=N$THENF=1:RETURN
485 FORT=0TO2000:NEXT:GOTO1 715 IFX$="END"THENF=2:RETURN
500 REM *» PRINT LIST ** 720 GOTO710
505 PRINT"[SHFT CLR){CRSR DN){CTRL 7}(5 SPA 800 REM ** LIST DATA •*
CEsHCTRL 9) PRINT LIST ": PRINT" {CTRL 1 6000 DATA"END","END","END","END","END","END
)(3 CRSR DNs1 ENTER CURRENT DATE:":INPUT
D$
507 PRINT"ENTER[2 SPACEsJYOUR NAME:":INPUTN
$
510 OPEN4,4:PRINTjH,CHR$(14)TAB(12)"HOM£ IN
Listing 2. J'iome Inventory program modifications for the VIC2I).
VENTORY LIST"CHR$(13)
515 PRINT#4,CHR${13)CHRS(15)N$CHR$(13)D$CHR 32 L=0
$(13) 40 PRINT"(SHFT CLRHCTRL 9} {CTRL 7){4 SPACE
520 READN$,D$,C$,S$,X$,KS,FS,E$ s)HOME INVENTORY{4 SPACEs){CTRL 0)"SPC(3
525 IFN$="END"THEN580 0)"(CTRL 3}MENU(CTRL 1)
530 IFX$="END"THEN570 45 PRINT"{2 CRSR DNs)ADD ITEM TO LIST 1 {C
535 PRINT#4,"(4 SPACEs)"N$TAB{45-LEN(N$))XS RSR DN)(2 SPACEsJDELETE ITEM 2
540 PRINT#4,"{3 SPACEslDATE PURCHASED: "D$T 47 PRINT"{CRSR DNJDISPLAY LIST 3{CRSR
AB(45-LEN|DS)-16)"DATE PURCHASED: "K$ DN){2 SPACEsJPRINT LIST 4 { CRSR
545 PRINT#4,"(3 SPACEs)ORIGINAL COST: $"C$T DN){2 SPACEsJEXIT THE PROGRAM 5
AB{45-LEN(CS)-16)"ORIGINAL COST: S"F$ 60 PRINT"(5 CRSR DNs)""{2 SPACEs)PRESS KEY
550 PRINT#4,"{3 SPACEsJSERIAL NUMBER: "SSTA TO SELECT
b'(45-LEN(SS)-15)"SERIAL NUMBER: "E$CHR$ 450 PRINT"(6 CRSR DNs)PRESS (CTRL 9)F7{CTRL
(13) 0) FOR NEXT ITEMfCRSR DN}"
560 GOTO520 451 PRINT"PRESS{CTRL 9)F1{CTRL 0) FOR MENUt
570 PRINTS, "{4 SPACES)"NS:PRINT#4,"{4 SPAC CRSR UP)
Es)DATE PURCHASED: "D$
575 PRINT#4,"{4 SPACEs}ORIGINAL COST: $"CS
Circle 137 on Reader Service card.

Filr P ml Di

Dreams CAN come true!

U.Jth,
p i *w. t
mmmm
^P
1
I f. luecdm 111,SI
■ 1. hug 31?.48 45.(1
Back in June of 1983, Kelvin Lacy The database is equally impressive. 331.S5' JSi.ai
had a dream. He dreamed of creating Create file layouts by simply painting 1—a
T«
one integrated program that would a picture of the layout on up to 9 ;i;.a; 4j.t»| 64.hi

include a spreadsheet, business screens, showing where a field starts

1
335.1 ^^^^

In
graphics and a database. A program and ends; VIZASTAR does the rest.
with ihe power of Lolus 1-2-3. On the
Imagine the power of a spreadsheet
Commodore 64. People laughed! He
integrated with a database. Now add Actual screen durr.p primed by VIZASTAH
had just finished OmniWriter, to be
graphics — bar, line, and multi-color
marketed by HESWARE. Ignoring the VIZASTAR includes a cartridge, a 1541
pie and 3-D "skyscraper" graphs. You
skeptical, he started on V1ZASTAR. diskette with a backup, reference and
could access a customer's profile in tutorial manuals. VIZASTAR is ONLY
Now, after 15 months, his dream has the database, transfer the data to the 5119.97. We are so positive you will be
come true. VIZASTAR has a full- worksheet, and let it calculate delighted with VIZASTAR that we offer a
featured spreadsheet, as good as discounts, sales tax etc. and then 15day money-back guarantee. Try it risk-
Multiplan. But much faster—faster transfer the updated data back to the free! Compare VIZASTAR wilh any other
than many spreadsheets on the IBM database. Open up a window spreadsheet or database.
PC! It is written 100% in 6502 anywhere and display a graph of your So order today. Call or send a check or
machine language code and is data, instantly. This integration is the Money Order. Calif, residents add 6.5%
ALWAYS in memory. It is menu- key to VIZASTAR's power—the first sales tax. MC/VISA accepted.

driven, using the latest techniques in and only program of this kind on the Add P&H; UPS-$3; COD, Canada-86
user-friendliness. It is compatible with
virtually all printers and word
C-64. All commands can be
automated, so you can "program" \SQUD STRTE SQFTURRE
processors. Up to 9 windows can be your own applications and run them
1125 E. Hillsdale Blvd., Suite 104
open simultaneously, anywhere. with one keystroke.
Foster City, CA 94404-1609
Remarkably, 10K of memory is
Trademarks: Lolut 1-23/LoIus IJev*rlopnw[it. Commodore (415) 341-5606
available for spreadsheet use. M'Co^Tmdiir*- EkclfOflto Lid Multiplan/M>rroxjll.
Dealer Inquiries Welcome

32 / RUN MAV \m
 There's only one newsstand
in the entire world
offering you this selection
of great computer publications.
COMPUTERWORLD its MICRO
MARKETWORI

MACWORLD | iCpCo

That's righi; you can get them all here. >lnd af discounts. D On Communications. Bypass, teleconferencing. CATV:
So browse Whether you're new to computers, an experi each month, explore the major developments shaping our
enced ho me'professional use: or "in the business": order communications world. FREE to qualified applicants
yours, today1
TO ORDER
[J Computerwortd. It you manage in lor mat ion. you can'I Check the publications you want above, then fill in below.
manage without your own subscription. $39 gels you 51 and return this page to:
issues, plus 10 Special Focus publications. Save $5. CW Communicalions/lnc,
□ PC World. The one publicalion that will grow with your Circulation Department
growing PC needs Helps you analyze financial/accounting Box 880
data, manage complex projects, communicate results and Framingham. MA 01701
plan. Now 12 issues lor only $17.97; you save $5.78.
Name .
D InfoWorld. The only way to stay on lop of what's Unfit or lypC ]

happening is by getting Ihe only personal computing Title

newsweekly Authoritative. Objective. Easy to read. §29 58 Company
for 51 issues . . . only 58c an issue.
D inC'tder. The Apple journal. .. and the only magazine Nature ol Business
devoted exclusively to the Apple tamily of computers. Street
$24 97 for 12 monthly issues. Save 30% oil the cover price.
City
□ Macworld. The world's mosl creative computer de
mands a journal that's just as simple, powerful and fun: State Zip.
Macworld. Now 12 issues of this attractive, easy-lo-read
publication can be yours for only $24 (you save S6)
Telephone _L_ _L
□ HOT CoCo. Keep the color in your life all year long with Address shown is: D Home □ Business
HOT CoCo. the magazine specifically created lor the TRS- D Bill me.
80 color computer and MC-iO user. $24.97 for 12 months. □ Payment enclosed (make check payable to
Save 30% off the cover price "CW Communications'lnc.").
□ BOMicro. Don't risk being an uninformed TRS-80 user. □ Send information about foreign rates
Get current, unbiased, system-specific information from the Please allow 6 to-8 weeks for your first issue
largest, most knowledgeable TRS-80 source. $24.97 for 12. Your Money-Back Guarantee
Save 48% off the cover price.
If (or any reason you're ever dissatisfied with your subscrip
P RUN. The informative (and fun) Commodore 64/Vic-20 tion, simply request a refund lor all unmailed issues.
monthly. Comprehensive software'hardware reviews, ac
tion packed games and timely tips to help you get the most
out of your system $19 97 for one year: 43% off Ihe cover
price.
D Micro Marketworld. Selling? Twice a month, get m- ::: cw communications inc.
depth reviews/forecasts to keep ahead of consumer 375 CocbJtoate RoaiBca 8B0
trends''market needs. FREE if you qualify. FMmingham.MAOliJl
I hi 7) 87O-I17(H)
 You'll never forget to buy the
butter when you use this pro
gram, which provides you with
a supermarket checklist and a
printout of those items you de
cide you need.

Shopper's Companion
If you have ever had to make a a coupon or sale reference, you must
By JOSEPH]. SHAUGHNESSY second trip to the supermarket be press those function keys before hil
cause you had forgotten something, ling the return key. Once an item is
you will probably appreciate this pro selected for your list, it appears in
gram. Shopper's Companion jogs reverse video on the screen.
your memory and helps you keep To print out your list, advance fxat
your kitchen well stocked by provid the last shopping list page by press
ing you with a list of items normally ing f7. This will activate the Print
sold in supermarkets. These items routine.
arc stored in Data statements, so you The program also keeps track of
can easily modify or add to them, how many items you have chosen and
(Just make sure your last Data state displays this number in the upper
ment is END.) You then create your right corner of the screen. If you for
printed shopping list by referring to get lo note an item as coupon or sale
this master list. and want to correct it, just reenter
The list is presented in multiple, the item correctly.
sequential screen displays and can be Since you are making the list in
as long as your computer's memory your home, you can always gel up
allows. You can also note, through from your computer and check your
the use of function keys, if you have pantry if you arc in doubt as to
coupons for these items or if they are whether or not you need a particular
on sale. You may also use the func item. You can also arrange your cou
tion keys to advance or hack up a pons and sale notices beside you.
"page" on the master list, cancel an Your final printed list will be nicely
unfinished entry or delete an item printed with a "check off column
from your list. The function-key in fronl of each item you need and
menu is constantly displayed on the a notation behind each coupon and/
screen, along with the latest page or sale item.
from the master list. Listing '2 contains quite a few Rl'.M
To put items from the master list statements, which you VIC-20 owners
RUN It Right onto your printed list, you type in may wish to delete to save memory.
the number that appears in front of Your VIC-20 should have at least 16K
each item and then hit the rc-ltirn expansion to run this program. The
key. If you want lo mark an Item with bare bones of ihis program is aboul

3-1 / RUN MAY 1985

7K without any Data statements. The count. If you multiply this count hy included. This program operates
Data statements require a lot of mem $1.25, you should get an approximate close lo machine language speed (C-
ory to store your list. cost for your shopping list. 64 version only), provides several su
This program should work with If you don't want to type in this perior features, including the ability
any type of printer (will) the proper program or create your own Data to add quantities and personal com
interlace). If you have an RS-232 statements, I wilt provide a copy with ments (such as brand names or spe
printer, however, you must open about 600 data items already typed cial instructions), and it comes with
your printer file before the DIM in. I will provide cither disk or tape an instruction manual. E
statements in ihc program and elim (please specify), the program (please
inate the section on Commodore and specify C-64 or VIC-20), the postage
Don-Commodore printers. and my time for a SIO fee.
The prices of items are deliberately My commercial program, the
left out of this program to avoid hav Shopping Manager System, is also Address all author correspondence to
ing to update the whole data when available for the C-64 and VIC-20 Josebh J. Shaughnessy, Serendipity Soft
prices change. Instead, your final (16K memory expansion required) ware, 8-i3H Lynda Sue Ume W., Jackson
printed 11st will give you an item on disk or tape at $31.45, shipping ville, Fl. 32217.

220 SD$(ZQ-Q.)=RIGHT${SD$(ZQ-Q),ER)
230 FORS=0TOI-1
240 IFZQ=LI(S)THENT=S:S=I-1
250 NEXT
260 FORS=TTOI-1
bread 270 L$(S)=IJ$(S + 1 ):LI(S)=LI(S + 1 )
round steak 280 NEXT:I=I-1:RETURN
dozen eggs
bagels 290 REM DELETE SUBROUTINE
sugar 300 PRINTZ1$;C2$;"{2 CRER UPsHCTRL 9} {SHF
salt
T DJELETE {SHFT W)!IICH {SHFT I)TEM § :{
CTRL 0}{5 SPACEsHCTRL 9)(4 CRSR LFs)";
NMS
310 GETZ$:IFZ$=""THEN310
320 IFZ$=CHRS(13)THEN370:REM CARR. RET.
330 IFZ$ = CHR$I 1 3 3)TltENR=1 :GOSUB-190 : GOSUB720
:RETURN:REM CANCEL
340 IFZ$<"0"ORZ$>"9"THEN300:REM CHECK FOR N
UMERICAL INPUT
350 IFLEN(NM$))2THEN300:REM CHECK FOR MAX.
OF 3 DIDGETS
360 NM$=NM$tZS:GOSUB7S0:GOTO300:REM BUILD T
HE ITEM NO.
370 ZQ=VAL(NM$):GOSUB720
380 IFZQ<Q+1ORZQ>PTHENGOSUB1790:COSUB490:GO
Listing 1. The Stepper's Companion program for the C-64,
TO1620:REM IS IT NOW ON THE SCREEN ?
390 IFLEFTS(SD$(ZQ-Q),1)<>"{CTRL 9)"THENGOT
10 REM C64 SHOPPER'S COMPANION O1620:REM IS IT DELETABLE
20 REM BY J. SHAUGHNESSY - 1985 400 GOSUB210:L$(I)="{COMD +)":LI(I)=0:RETUR
30 REM SET UP CONDITIONS N
-10 PRINTCHR${14) 410 IFQ=0THENRETURN
50 POKE53280,5:POKE53281 ,13:PRINT"{CTRL 1 )" 420 RESTOKE:REM BACK UP SUBROUTINE
:P=0:I=0:Q$=CHR${34) 430 P=0
60 DIMW(2),A(2),S(2),H(2),L(2),LI<99) 440 IFQ=18THEN460
70 DIML$(99),SD${18) 450 FORX=1TOQ-18:READAS;P=P+1 :NEXT
80 V=54296:W(0)=54 276:W[1)=54283:W(2)=54 290 460 Q=Q-18:GOSUB1010
:N1=10:SP$="{10 SPACEs)":PF=4 470 RETURN
90 A(0)=54277:A{1) =54284:A(2)=54291 480 REM INITIALIZE FUNCTION KEY MENU
100 S<0)=54278:S{1 )=54 28 5:S(2)=54 292 490 F1$=" (SHFT C}ANCEL":NM$=""
110 H<0) = 54273 :!!( 1 ) =54280 :H< 2) = 54287 500 F3S=" {SHFT CJOUPON":F3=0
120 L{0)=54272:L{1)=54 27 9:L(2)=54 286 510 F5$=" (SHFT S}ALE":F5=0:GOTO570
130 Z1$="(HOME)[22 CRSR DNs}":Y$ = "{40 SPACE 520 REM FUNCTION KEY SELECTED DISPLAY
S>" 530 IFF3=1THENF3=0:F3$=" (SHFT C}OUPON":GOT
140 C1$="[CTRL 7)":C2$="(CTRL 3}":P8$=CHRS( 0570
14):P9$=CHR$(15) 540 F3=1:F3$="{CTRL 9)"+F3S+"{CTRL 0)":GOTO
150 SDS-(0)="{SHFT CLRHCTRL 9} " + C1 $ + "{1 2 SP 570
ACEs){SHFT S}HOPPER'S (SHFT C}OMPANION{ 550 IFF5=1THENF5=0:F5$=" (SHFT S)ALE":G0T05
2 SPACES)(CTRL 1)" 70
160 V0=15:POKEV,V0:Q=0:ED=0:BK=0:KB=0 560 F5=1:F5$="{CTRL 9)"+F5$+"{CTRL 0)"
170 FORX=0TO99:LS[X)="{COMD +)":NEXT 570 GOSUB960
180 R=1:GOSUB490:R=0:GOTO1150 580 RETURN
190 REM SUBROUTINES 590 REM UPDATE SELECTION AND ITEM COUNT
200 REM REMOVE REVERSE PRINT FROM SCREEN DI 600 PRINTZ1$;"{2 CRSR UPsHCTRL 9} {SHFT S)
SPLAY AND CLOSE GAP IN LIST ELECT {SHFT IJTEM # :{CTRL 0){5 SPACES)
210 ER=LEN(SDS(ZQ-Q))-1 (CTRL 9){4 CRSR LFs)";NM$

Continued on p. 106,
:i(i/RUN MAS I9S5
ii eld 209 on Reader Service card

at TUSSEY COMPUTER PRODUCTS* . .

WE KNOW WHAT YOU WANT!

1) Low Plica*! We iry 10 have ihe lowest prices around. If you do tun] a lower price, 3) Straight talk - We will give you accurale information as lo ouf stocking condition
please give Lisa chance to beat il
2) Fail, dependable service - Our shipping department works hard to get your 4) Personnel who cate - The people at TCP sincerely wan! you lo be happy /.iih
orders out quickly, usually within one business day the way your order is handled. We all know our iobs depend on having a happy

IROERS ONLY PLEASE: 800-468" 9044

Onn ACCl nn/l/l customer
INFORMATION & PA ORDERS: 814-234-2236
PHONE LINES OPEN 10-8 MON-FRI, 10-5 SAT

THE PANASONIC KXP 1091 PRINTER

Near Idler quality .11 the Nick dJ a switch
fr*» 10? I npi jiwifl if UQtpl MlNll Ib ln"ir 11 jIm> DjijII IT*
fl.nl nwrHinl ilu Gnim ID* vd Episi H( 8Q pUil *&C dp"M*n
[ht 1091 DA *n#* WUnquiHi m>IeEi f !■p H*«d 1W15<r j HjCHi1 r^
I? br 13 'Mini nvDl [AiriCFf V I »«T ' "tf ' (*1f nH«lf The 1D4H1

Out price SZ79.0D f ^^

Commodore 64 is $147.00
Panasonic KXP 1090 S199.O0
"Wjtai [lit iiiircJiast ul jny lisk ilnve. iimmlur. or iiiui]eiii

SG 10. Nl il Dot Maim Irom Slai Ca IMI [}pik On™ 1195OB

17U2 Culm Mannar SI%1)[)
Uiihin. Hl.l IGliOMoilioi Ctf
Vp I'i
Plus 4. C IG ulhen Ujll
SX64

PfllMTER INTERFACES
<<i*l Ijri filll'J NEW PRINTER FROM STAR!
IitK SPI/I S9II
AriFL SCI l.Cl'l
Hit STi HI is .<n tj|iyr;nlt: uf Hit ;ru;Mjlai (jrnnni H)X |[ Mini tM I?LJ
I ill l.|in>. b, Fttt I 111]
1,11)1) i"uM ljh. i tan Cf'S. H«ul Ills -ill rlii? prim madu i>l the Ml*. WFmt motif! Ilir, |i'inlPr
it M HI du e^riurin ImlIu^.h^ all cqIumn. f jid MUh ifillrfirii 11 J "cm letter [gujlily iiiihIi' .il GO tJ'S umiiM 4| 1 Mji 11
Hj,.[ ian.,.it - njju
iujCrm' Wilfi rlin iriudir lUv |irmrrr duel dunljle duly *rliiiiinrflnuj .iih-miI
b.piC-J II br fi^nvnn tartd L.iil
lai d letter nu.jiriy jinrnci i- jIm- .m hull'-. ,i buili hi 7k tullir 1 j
\ yiur *jrrj»[^
l Hfii.T Adi id CfM % liPUJ
PLtASt CALL JGK GUH LOW PHICt1
tflMuii Iat h#h * u?a
11.93
U'JS
I.'Mil

BUY A BUNDLE—
^irnih |JP A.i.di--

$AVEA BUNDLE
/»..-r, Ir lirvrn
S*rf* 5L IW Cbtv Uu-V .
flunk* E-ufcx 1 I^Ji
onr o! thett papulai p^Ekigr^ Dl [iigiluciL bj rmmtier lor tupei
! Ml.I

tlgg
I'JCUQF I

WURI) PROCtSSOH 64 dull SPELLPHO 64

WOHD PROCESSORS Piimr MQ»it W ftiiluiPlill 1 J'JUB
Tjiultiui Ij4 BDIB M 64 dud IWpl l,4tdl 1 65 99
.ih yy
WOO L-njd.p A UWklVtBDVBII . 1 1391
Sm>i Dim ... ... i J38S
MOO
[ill 1141 Monwit . I ];iH
II. HH
JIOO MISCEUANEOUS 1S4I EXPRESS Md ih» (AST CABLE
Wh*j» hiifnwnnrf W P Ml 14 111)
II HMII itir:lni<li ...
mliiru Midf Lr K
,. 'in

3999
CONSULTANT >nd PAPEHCLIP W/SPELLPACK
i In.uiLigi, fl.'P A.'H *F IPif |JD|iuldP CHdbast dnd WoiJ PncHIV Irani Fuiifiifi hiludtd
il 1)11 1129 9S
ft 01)
'■
b3 00
Dill) ICM. »» MIRAGE DATABASE/ADVANCED REPORT GENERATOR iixl
11 TJ
MIRAGE PROFESSIONAL WORD PROCESSOR
DISK ORIUES i pOIIBiB MtLigt I*.J1 .nltgiiirl loyrihci
Ull
USD SDI •174 91
MM) Mill Ljh
iiiiim Gf lint Dim . . . . CM PtHiat "10
BI-BD mil PAPERCLIP W/SPELLPACK
. * ...jlcniLl. n-inir order
The 6(1 tfliuiim Ln'U tt<1U me ban; 4 0 tigil! in t"<3 iif P*ntJ<i iVJoclipJH DD1H
Ng*i*!tmoi Officymr.hu tm,

TUSSEY COMPUTER PRODUCTS

T«iBtf DiQffl ^rjoiO UPS urlm nclfO »1
All [iPic^k. p-plt«ir Hit ducounl Add J» lor

Plm« hul* Whm m Ht ffflJ lu Ul 1ur

td originjh pjctj^my PA ittiHm^ tfd 6 ■
btCAd* pnui uit rriutr mm «■ vtiijui
* (formerly Tussey Mountain Software)
FriLH lubiKl 10 tfiJdtai AD will Imjh riflfll Eu tir hiT| *r tm |H |i"Ji'ic Ij-nci

BOX 1006
STATE COLLEGE, PA 16804
"DEALER INQUIRIES INVITED "
Other product lines available! Call for prices.

RUNM.W i'w-,/,17
 Bargain ■ Hunter's Delight
Clipping and saving coupons is only
half the battle of bargain shopping. You must
keep track of your coupons and know how to
quickly access them. This program helps
you do just that.

By ROBERT A. WALLACE

You just ran out of laundry deter When you enter a new coupon, a data
gent. You'll have to go to the store. line is created at the end of the pro
Before you go, though, you rummage gram. When you purge a redeemed VIC-20 C-64

through a drawer stuffed with cou or expired coupon, the data is re

100 100 jump i'■ menu
pons. After 15 minutes of frantic placed by a dummy line, which is 105 I0S no match
shuffling—nothing. You could have ignored during subsequent searches. 11(1-115 110-115 transpose dale
sworn you had a coupon for deter Later entries will fill in die dummy 120 120 search advisory
gent. Didn't you see onejust the other lines with coupon information; if 125-140 125-140 yt-i prompts

day, as you were picking through this 14.5-225 145-225 input 'l.iii- strings
none is found, a new line is created.
230-26(1 230-2R5 main menu
very pile lor an ice-cream coupon? When you complete (he update, you
265 270 quit
From now on, (here will he no sec can save the program, along with the 270-28(1 L'7.rj-2K5 review (lit
ond-guessing. Coupon Organi/er is newly created dies, using option 7. aur.-.i.'io 290-330 main menu
a complete system for recording your
When you save an updated Hie, the 33!>-375 335-375 harclcopy
coupons; U even tells you the value 3HO-44O 380-440 purge expired
entire program, with Data State
of your collection. coupons
ments, is saved. Next time you use
Menu options include: review com 445-495 445-550 finii and display
the program, simply load Listing 1
plete file, search by brand or product, 500-530 555-585 compute value
or Listing 2, according (o your type
compute total value, dump 10 printer, 535-550 590-605 save uptime
of machine. 555-575 610-R35 updau menu
add new coupons, purge redeemed
So clean out that drawer—leave 980 create data line
coupons and locate and purge ex
the paper clips and rubber bands, 585-620 646-660 new coupon
pired coupons. Updated Tiles can be
but throw out the bottle caps and 625-640 685-705 piAi^1 coupon
saved lo tape or disk. 1000- 1 (100- daia tile
The fi4 version displays coupon pencil stubs—and file your coupons

information on a randomly gener (a recipe box works nicely); then en

ated multicolor facsimile coupon, ter (he data in Coupon Organizer. Tabte 1 . Rrmkdou.ii of Coupon
complete with dashed lines. The VIC- If you don't want to type in the Organizer program.
20 program omits [his feature and program, I will send you a copy in
most of I lie prompts. Otherwise, both return for $3, a blank tape or disk
versions provide (he same functions. and a self-addressed stamped enve Address all author correspondence to
To use Coupon Organ i/.er, just fol lope. Please specify which version Robert A. Wallace, 6649 Thunderhead
low the self-explanatory prompts. you want—VIC-20 or C-154. E Lane, Plaeeroille, CA 95667.

RUN tt Right
064; VlC-20 with HK apaum
38/RUN MAY
Printer (optional)
 FILE NUMKi *■■ 1
245 PRINT"{CRSR DN) (CTRL 9)4{CTRL 0){2 SPA
CEsJCOMPUTE TOTAL VALUE":PRINT"fCRSR DN
) (CTRL 9}5{CTRL 0)(2 SPACES(DUMP TO PR
INTER"
250 PRINT"(CRSR DN) (CTRL 9)6{CTRL 0){2 SPA
SAMPLE COUPON CEs}UPDATE COUPON FILE":PRINT"(CRSR DN}
(CTRL 9}7(CTRL 0](2 SPACEsJSAVE UPDATE
EXAMPLE ONLV D FILE"
EXP. DATE: NONE 255 PRINT"(CRSR DN) (CTRL 9)8{CTRL 0){2 SPA
CEs)QUIT":PRINT"(2 CRSR DNs)(4 CRSR RTs
){CTRL 9}SELECT FUNCTION(CTRL 0}"
260 GOSUB135:RESTORE:IFF$<"1"ORF$>"8"THEN26

265 A=VAL(F$):ONAGOTO275,290,295,555,
0,590,270:GOTO265
270 SC= 53281 : POKESC, 6 : POKEBC, 1 4 : PRINT" ( S11FT
CLRHCOMD 7)":CLR:END
275 POKEBC,7:GOSUB54 0:IFA$="END"THEN230
280 PRrNT"(SHFT CLR)":GOSUB445:IFF$="M"THEN
230
Listing 1. Coupon Organizer program forth 064. 285 GOTO275
290 POKEBC,8:INPUT"{SHFT CLR)(CRSR DN}{3 SP
1 BEM 64 VERSION/WALLACE ACEs) ENTER BRAND" ; J$ :GOSUI31 20 : B% = 1 :GOTO
100 PRINT"(SHFT CLR)":GOTO230 300
105 POKE198,0:PRINT"(CRSR UP}{3 CRSR RTs)"; 295 POKEBC,9:INPUT"(SHFT CLR)(CUSR DN)(3 SP
J$;" NOT ON FILE(2 CRSR DNs ) " :GOSU131 30 : ACES)ENTER PRODUCT";J$:GOSUB120:C%=1
RETURN 300 GOSUB540:IFAS-"END"THEN325
110 IFES="NONE"THENRETURN 305 IFB%TIiENIFBS< >J$THEN300
IIS E$=RIGHTS(E$,5)+" "+LEFT${E$,2)+" ":RET 310 IFC%THENIFC$<;J$THEN300
URN 315 GOSUB4 45:GOSUB120:Z=1:IFF$="M"THEN230
120 PRINT"(CRSR DN}{3 CRSR RTs}(CTRL 9)SEAR 320 GOTO300
CHINC(CTRL 0)":RETURN 325 IFZTHEN230
125 PRINT"{CRSR DN){3 CRSR RTsHCTRL 9IPRES 330 GOSUB105:GOTO230
S C TO CONTINUE" 335 POKEBC, 15:PRINT"(SHFT CLR)(CRSR DNH3 C
130 PRINT"{CRSR DN)(3 CRSR RTsHCTRL 9)PRES RSR RTsJPRINTER READY? (Y/N)"
S M FOR MENU" 34 0 GOSUB135:IFF$< >"Y"ANDF$<>"N"THEN340
135 GETF$:IFF$=""THEN135
345 IFF$="N"THEN230
140 RETURN
350 OPEN1,4,1
145 PRINT"{SHFT CLRKCRSR DN) { 3 CRSR RTs}EN
355 READA$:IFAS="END"THENCLOSE1:GOTO230
TER MONTH EXPIRES (2 DIGITS)":FORL=1TO6
360 IFA$="#"THENREADA:GOTO355
:E$(L)="":NEXT 365 READB$,C$,DS,E$:GOSUB110
150 IFZ1=0THENPRINT"(CRSR DN)i3 CRSR RTsJEN
370 PRINT#1,AS" "C$"{4 SPACES }"I5$"( 2 SPACES
TER N IF NO EXPIRATION" ]"D$D1$"{2 SPACES}"E$:IFPTHENCLOSE1:GOT
155 FORL=1TO6 O425
160 GETE$(L):IFE$(L)=""ORE$(L)<"0"ORE$(I,) >" 375 GOTO355
9"ANDE$(L}o"N"TIIEN160 380 Z = 0: RESTORE:Z1=1 :GOSUB145:Z1=0:JS = E$
165 IFZ1=1ANDE$(L)="N"Tt(EN160 385 PRINT"{SHFT CLR}":GOSUB120:D1$=" CENTS
170 IFE$(L)="N"ANDZ1=0THEN205
175 PRINT"(3 CRSR RTs)"E$(L)"{CRSR UP}" 390 GOSUB540:IFA$="END"THEN'130
180 IFL=2THENPRINT"(3 CRSR RTs}"E$(1);E$(2) 39 5 IFVAI.(ES)>VAL(J$)ORVAL(ES) <1TilEN390
:PRINT"(CRSR DN}{3 CRSR RTs)ENTER DAY < 400 P«1 :GOSUB445:GOSUO120:?.= 1 : IfT$ = "M"THEN2
2 DIGITS)
30
185 IFL=4THENPRINT"(3 CRSR RTs}"E$(3);E$(4) 405 IFF$="P"THENR$=A$:PRINT"(CRSR UP)(3 CRS
:PRINT"(CRSR DN}(3 CRSR RTsJENTER YEAR R RTs)HARD COPY? (Y/N)":GOTO415
(2 DIGITS)
410 GOTO390
190 NEXT:PRINT"(3 CRSR RTs)"ES{5);E$I 415 GOSUB135:IFF$="Y"THENOPEN1,4,1:GOTO370
195 E$ = E$(5)+ES(6) + " " E$ ( 1 ) + E$( 2 )+ " -fE$(3 420 IFF$o"N"TfiEN115
)+E${4)
425 GOTOG90
200 E1$=E$(1)+E$[2)+ +E$(3)+E$(4)+" "+E$( 430 IFZTHEN440
5)+E$(6):GOTO210 435 E$=J$:GOSUB115:PRINT"(CRSR UP}(3 SPACES
205 E$="NONE":E1$=E$ 1NONE EXPIRED AS OF ";E$;"fCRSR DN)":GO
210 PRINT"(CRSR DN)(3 CRSR RTs)"E1$:PRINT"{ SUB130
CRSR DN}{3 CRSR RTs}OK (Y/NI" 440 P=0:GOTO230
215 GOSUB135:IFF$="N"THEN145 44 5 FORI,-1TO3:D(L) =INT{ RND( 0 ) *1 4 )+2:NEXT:B=
220 IFF$="Y"THENRETURN
225 GOTO215
450 HS-"{3 SPACEsKCTRL 9} {33 SPACEsHCTIil,
230 BC=53280:SC =53281 :POKEBC,6:POKEEC,1 :B% = 0)":PRINT"{SIIFT CLR)(CRSR DN) { 3 SPACEs)
0:C%=0:D1$=" CENTS " FILE NUMBER:";A$
235 PRINT"(SHFT CLR}(2 CRSR DNs)<4 CRSR RTs 455 POKEE,D(1 ) :PRINT"(HOME) (3 CRSR DNs)";ll$
HCOMD 4HCTRL 9JCOUPON ORGANIZER(CTRL :PRINT;H$:PRINT;H$
0}":1=RINT"{2 CRSR DNsHCRSR RTHCTRL 9) 460 FORL=1TO7:PRINT"(3 SPACEs){CTRL 9}(7 SP
1(CTRL 0}{2 SPACEslREVIEW ENTIRE FILE" ACEs)":POKEE,D(2):PRINT,"(CRSR UP}{CRSR
240 PRINT"(CRSR DN) (CTRL 9)2(CTRL 0}(2 SPA LFKCTRL 9)(22 SPACEs)"
CEslSEARCH BY BRAND NAME":PRINT"{CRSR D 465 POKEE,D(1):PRINT,,,"(CRSR UPJ(CTRL 9](6
N) (CTRL 9)3{CTRL 0)(2 SPACEs)SEARCH BY
SPACEs}" :NEXT: PRINT;!!$:PRINT;H$
PRODUCT"

RUN MAY (985 / lM>

Luting I itmiinunt.
640 POKE198,2:POKE631,13:POKE632,13:END
470 PRINT"{HOMEH3 CRSR DNs)(3 CRSR RTs){CT
645 PRINT"{CRSR DN) {3 CRSR RTsHCTRL 9(STA
RL 9) {COMD P) (COMD P) {COMD P! {COMD
NDBY(CTRL 0)"
PHSHFT SPACE}{COMD P) {COMD P} {COMD P 650 A=VAL(AS)+1:READAS:IFA$="#"THENREADA:GO
} 1COMD P) {COMD PHSHFT SPACE} (COMD P}
TO660
(COMD PHSHFT SPACEHCOMD P) (COMD P){ 655 IFA$o"END"THENREADB$,CS,DS,E$:GOTO650
SHFT SPACEHCOMD P) {COMD P) {COMD P} { 660 PRINT"{SHFT CLR){2 CRSR DNs)(3 CRSR RTs
CTRL 0KCRSR DN)" JITEM : "A"{CRSR DN|":FORI=1TO3:PRINT"{
475 FORL=1T05:PRINT"(3 CRSR RTsHCTRL 9HCO CRSR DNH3 CRSR RTs) "P$ (I) : INPUT" ( 3 CRS
MD N]"SPC(31)"{CTRL 9HCOMD H)":PRINT:N R RTs)"JW$(I)
EXT
665 IFW$(1 )=""THEN610
480 PRINT"{3 CRSR RTs}{CTRL 9} (COMD Y) (CO 670 NEXT:GOSUB145:W5(f!)=STRSlA) :M^A»5 + 1000:
MD Y] {COMD Y) (COMD Y) (COMD Y} (COMD PRINT"(SHFT CLR}{2 CRSR DNs}"
Y) {COMD Y} (COMD Y} {COMD Y) (COMD Y} 675 PRINTM;"DATA"A","W$(1)","WS{2)","W$(3)"
(COMD Y) {COMD YJ (COMD Y} {COMD Y) (CO
,"E$
MD Y} (COMD Y) {CTRL 0}":GOSUB110 680 PRINT"GOTO610iHOME)":GOTO640
485 IFVAL(DS) > 99TIIENB=29 : IFVAH DS ) >999THENB 685 PRINT"(SHFT CLRHCRSR DN){ 3 CRSR RTsJRE
= 28 MOVE FILE NUMBER":INPUT"{3 SPACEs)";R$:
490 IFVAL{D$)>99THEND$="$"tLEFT$(DS,LEN(D$) IFVAL{R$)=0THEN685
-2)+"."+RIGHT$<D$,2) 690 PRINT"(SHFT CLR}{2 CRSR DNs}":M=VAL(RS)
495 IFD$ = "FREE"THENI3=30 *5+1000:PRINTM"DATA"CHR$(34)"#"Ct[R$(34)
500 POKEE,D(3):PRINT"{HOME)(5 CRSR DNs)(CTR ","VALfR$)
L 9}"TAB(5)D$TAB(B)D$:POKEE,D{2):PRINTr 695 IFPTHENP=0:GOTO705
"{CRSR DN)(CTRL 9}"B$ 700 PRINT"J$="CHRS(34)J$C11R$(34)":Z=1:GOTO6
505 PRINT,"(CRSR DNHCTRL 9 ) "CS : PRINT , " (CRS 10(HOME)":GOTO640
R DNHCTRL 9JEXP. DATE: "E$: POKEE, D{ 3 ) : 705 PRINT"J$="CHR$(34)J$CHR$(34)":Z=1:GOTO3
PRINT"{CRSR DN}[CTRL 9)"TAB{5)D$TAB(B)D 85{HOME)":GOTO640
$ 1000 REM FILES
510 PRINT"{CRSR DNHCTRL 0HCOMD 4}":POKE19 1005 DATA 1 rSAMPLE COUPON,EXAMPLE ONLY,NON
8,0 E,NONE
515 IFPTHENPRINT"{CRSR DN){ 3 CRSR RTsHCTRL 50000 DATAEND
91 PRESS P TO PURGE COUPON{CTRL 0)"
520 GOSUB12S:IFFS* >"M"ANDF$< >"C"ANDF$< >"p"T
HENPRINT"{5 CRSR UPs)":GOTO530
Listing 2. Coupon Organizer program for the VIG2Q,
525 RETURN
530 IFPTHENPRINT"(CRSR UP)"
535 GOTO520 1 REM VICOUPON/WALLACE
540 READA$:IFAS="END"THENRETURN 100 SC=36879:PRINT"(SHFT CLR}":GOTO230
545 IFA$="#"THENREADA:GOTO540 105 POKE198,0:PRINT"(CRSR UP}(CRSR RT)";J$;
550 READB$,C$,D$,E$:RETURN " NOT ON FILE{2 CRSR DNs)":GOSUB130:RET
555 D$="":T=0 URN
560 POKEBC,5:GOSUB54 0:IFAS-"END"THEN570 110 IFE$ = "NONE"T11ENRETURN
565 T=T+VAL(D$):PRINT"{SHFT CLR)";T:POKEDC, 115 ES=RIGHT${E$,5)+" "+LEFT$(ES,2)+" ":RET
13:GOTO560 URN
570 T$=STR$<T):ZS=RIGHT$(T$,2):X$=LEFTS(T$, 120 PRINT"(CRSR DNHCRSR RT} {CTRL 91SEARCHI
LEN(T$)-2):T$=X$+"."+Z$ NG(CTRL 0)":RETURN
575 PRINT"{SHFT CLR)(2 CRSR DNs){3 CRSR RTs 125 PRINT"(CRSR DNHCRSR RTHCTRL 9) PRESS C
JTOTAL VALUE: $";T$;"{CRSR DN)" TO CONTINUE"
580 GOSUB130:IFF$o"M"THENPRINT"{3 CRSR UPs 130 PRINT"{CRSR DNHCRSR RTHCTRL 9JPRESS M
)":GOTO580 FOR MENU"
585 GOTO230 135 GETFS:IFFS=""THEN135
590 POKEBC,4:PR1NT"{SHFT CLRHCRSR DN H 3 CR 140 RETURN
SR RTsHCTRL 9)T{CTRL 0)APE OR {CTRL 9) 145 PRINT" {SHFT CLRHCRSR DN)(CRSR RT} MONTH
DtCTRL 0}ISK?(CRSR UP)":GOSUBl35:IFF$<> (2 DIGITS)":FORL=1TO6:E$(L)="":NEXT
"T"ANDF$< >"D"THEN590 150 IFZ1=0THENPRINT"{CRSR DN}(CRSR RTJENTER
595 IFF$="TMTHENSAVE"COUPON ORGANIZER":GOTO N IF NONE"
230 155 FORL=1TO6
600 PRIHT"{CTRL 9)[3 CRSR RTsJSAVING UPDATE 160 GETES(L):IFES(L)=""OR£$(L)<"0"ORES(D >"
{CTRL 0HCTRL 2)":OPEN15,8,1 5:PRINT#15, 9"ANDES(L)<>"N"THEN160
"S0:COUPON ORGANIZER" 165 IFZ1=1ANDE$(L)="N"Ti1EN160
605 CLOSE15:SAVE"COUPON ORGANIZER",8:GOTO23 170 IFE$(L)="N"ANDZ1 = 0TIIEN2(!5
0 175 PRINT"(CRSR RT)"E$(L)"(CRSR UP)"
610 BC=53280:POKEBC,2:PRINT"{SHFT CLR){2 CR 180 IFL=2THENPRINT"(CRSR RT}"E$(1);ES(2): :PR
SR DNs} (CTRL 9)1{CTRL 0)(2 SPACEsJADD INT"{CRSR DNHCRSR RT}DAY (2 DIGITS)
NEW COUPONS" 185 IFL=4THENPRINT"(CRSR RT)"ES(3);ES(4>: :PR
615 PRINT"(CRSR DN) {CTRL 9}2(CTRL 0)(2 SPA INT"{CRSR DNHCRSR RTJYEAR (2 DIGITS)
CES)PURGE REDEEMED COUPONS" 190 NEXT:PRINT"(CRSR RT)"E$(5};E$(6)
620 PRINT"{CRSR DN) (CTRL 9}3{CTRL 0H2 SPA 195 E$=E$(5)-tE${G) + " "+E$(1)+ES{2)+" "+E$(3
CEs)PURGE EXPIRED COUPONS":PRINT"{CRSR )+E$(4)
DN) {CTRL 9}4(CTRL 0)(2 SPACES}RETURN T 200 E1S=E$(1) "+ES(3)+E$(4)*" "+E$(
0 MENU" 5)+ES(6):GOTO210
625 P$(1)="BRAND NAME":P$(2)="PR0DUCT":P$(3 205 E$="NONE":E1$=E$
)="COUPON VALUE (IN CENTS)" 210 PRINT"{CRSR DNHCRSR RT) "El $: PRINT" ( CRS
630 D1$=" CENTS " R DN){CRSR RT)OK (Y/N)"
635 GOSUBl35:A=VAL(F$):ONAGOTO64 5,685,380,2 215 GOSUB135:IFF$="N"THEN145
30.-GOTO610 220 IFF$ = "Y"THENRETURN *"
40 / RUN MAV 1985
1541 FLASH!-
THE CRITICS SPEAKOUT
This advertisement has been written by indepen My children have played some of their favorite
dent reviewers of Commodore computer products. games and used utilities or educational software
We thank them for their frankness and the high marks without any problems whatsoever, using the 1541
awarded to the Skyles Electric Works 1541 FLASH!. FLASH! All in all, this device will save the purchaser
much of the frustration normally experienced, as well
The Reviewers Comment as the time required in normal disk drive-computer
interactions. With the above noted exception, I'm
'Tired of thai slow disk drive? The solution is here, very pleased with its operation, and won't hesitate to
and it costs about $90. Considering wh.it it does, the recommend it to those who would like foster loads
price is a bargain! It speeds up your 1541 diskdrive and saves or wont additional flexibility and power at a
200%—300%. And if you wrile your own software moderate price." RUN_ Ml:y m5
specially for the FLASH!, you can achieve speed
increases of 61)0%!
"I laving used 1541 FLASH! for several days,
The 1S41 FLASH! is the best! It's better than
KWIKLOAD.'1* And better than 154! Express.'" already 1 can't bear to go back to a slow 1541. It's
Does it sound too good to be true? Do you suspect amazing how quickly you can get spoiled by a luxury
there must be some drawback that I haven't men like fhis. More than a few editors here have cast covet
tioned? Well...There is one. You have to open op ous eyes on the upgraded 64/1541. And the price is
your keyboard and 1541 drive and do a little work reasonable for such a dramatic enhancement. After
inside them. You need lo replace a couple of chips reading the installation description above, you can
with new ones provided by the FLASH!. And an extra decide if you're up to opening your equipment, yank
ing out chips, and enjoying a 300% speedup."
cable will run from your keyboard's user port to your
CampuM'B Gazette, /««. 1985
1541 drive. But the installation is explained in
complete detail with pictures. It's a simple operation
that will lake under 30 minutes. And in return you Commercial Details
will have <i disk drive that literally races along!
1541 FLASH! $ 89.95'
The biggest complaint with the Commodore 64 is
1541 FLASH! with Disk Switchboard 99.00"
the slow disk drive. No more! You will never be
1541 FLASH! for Two Drives 139.95*
willing to go back after having used the 1541 FLASH!.
1541 FLASH! for SX-64 99.95'
It really spoils you! It's even faster than a parallel
1541 FLASH! for MSD Drives tba*
drive with an IEEE interface! Don't be afraid of the
■Mail orik-r please .idd 53-SO for shipping .ind handling,
installation. It's really simple. And if you prefer not to
California residents .idd alia lax .is required.
do it yourself, your local user's group probably has
people with the ability to instaUit for you. You'll be Available from your local Commodore
g!ad you did!" ji,e Nortlmvst Users Guide, Jan. 1985 dealer or call 1-800-227-9998

"A tiny wedge is included... you simply SYS65526

to enable It. Those who enjoy using the wedge as part Skyles Electric Works
of their normal computer will like this feature. 231E South Whisman Road
The utilities added by FLASH! include single,
double and simultaneous keystroke implementation
Mountain View, CA 94041
of such niceties as delete line, escape quote, cursor to 1-(415) 965-1735
bottom of screen, 16character lab, and return without 1141 FLASHHtatndcmukDlEfcjrlMEIottrti WOrki
line execution. Cnmminimi'M tafl Tr.i.lrnurk <iK'LHI»n<nl<iri\
Circle 90 on Reader Service card
testing 2 continued,
(CRSR DN|":POKE198,0
225 G0T0215 460 IFPTHENPRINT"{CRSR DN)(CRSR RT}{CTRL 9)
230 SC=36879:POKESC,30:PRINT"{SHFT CLR}{2 C PRESS P TO PURGE {CTRL 0)"
RSR DNs) {CTRL 1}{CTRL 9}COUPON ORGANIZ 465 GOSUB125:IFF$o"M"ANDF$<:>"C"ANDF$<>"P"T
ER{CTRL 0}" HENPRINT"{5 CRSR UPs)":GOTO475
232 PRINT"(CRSR DN} (CTRL 9}1{CTRL 0) REVIE 470 GOSUB120:RETURN
W FlLE":Bfc=0:C%=0 475 IFPTHENPRINT" (CRSR UP}11
235 PRINT"(CRSR DN} (CTRL 9)2[CTRL 0) BRAND 480 GOTO46 5
NAME":PRINT"{CRSR DN} [CTRL 9)3{CTRL 0 485 READA$:IFA$="END"THENRESTORE:RETURN
} PRODUCT" 490 IFA$ = "tf"TIIENREADA:GOTO485
240 PRINT"{CRSR DN} (CTRL 9}4(CTRL 0) TOTAL 495 READB$,C$,D$,E$:RETURN
VALUE":PRINT"(CRSR DN( (CTRL 9}5(CTRL 500 D$="":T=0
0} HARDCOPY":PRINT"{CRSR DN} (CTRL 9)6{ 505 POKESC,29:GOSUB485:IFA$="END"THEN515
CTRL 0) UPDATE FILE" 510 T=T+VAL(D$):PRINT"{SHFT CLR}";T:POKESC,
245 PRINT"(CRSR DN) {CTRL 9)7{CTRL 0) SAVE 30:GOTO505
UPDATE":PRINT"(CRSR DN) {CTRL 9)8{CTRL 515 T$=STR$(T):Z$=RIGHT$(T$,2):X$^LEFT${T$,
0] QUIT" LEN(T$)-2):T$=X$+"."+Z$
250 PRINT"{CRSR DN} {CTRL 9JSELECT FUNCTION 520 PRINT"{SHFT CLR}{2 CRSR DNs](CRSR RTJTO
(CTRL 0]" TAL VALUE: $";T$;"(CRSR DN}"
255 GOSUB13 5:RESTORE:IFF$<"l"ORF$>"8"THEN25 525 GOSUB130:IFF$c>"M"THENPRINT"{3 CRSR UPs
5 )":GOTO525
260 A=VAL(F$):ONAGOTO270,285,290,500,335,55 530 GOTO230
5,535,265:GOTO260 535 POKESC,28:PRINT"(SHFT CLRJfCRSR DN}{CRS
265 PRINT"{SHFT CLR)":END R RTHCTRL 9)T{CTRL 0 JAPE OR {CTRL 9)D{
270 POKESC,31:GOSUB485:IFA$="END"THEN230 CTRL 0)ISK?(CRSR UP}":GOSUB135:IFF$O"T
275 PRINT"{SHFT CLR1":GOSUB445:IFF$="M"TI!EN "ANDF$< >"D"THEN535
230 540 IFF$="T"THENSAVE"COUPON ORGANIZER":GOTO
280 GOTO270 230
285 POKESC, 31 : PRINT" (SHFT CLRKCRSR DN ) ENT 545 PRINT"(CRSR RT)(CTRL 9}SAVING UPDATE(CT
ER BRAND":B%=1:GOTO295 RL 0}{CTRL 2)":OPEN15,8,15:PRINT#15,"S0
290 POKESC,31:PRINT"{SHFT CLR}{CRSR DN) ENT :VICOUPON"
ER PRODUCT":C%=1 550 CLOSE15:SAVE"VICOUPON",8:GOTO230
295 INPUT" ";J$:GOSUB120 555 SC=36879:POKESC,26:PRINT"{SHFT CLR){2 C
300 GOSUB485:IFA$="END"THEN325 RSR DNs} {CTRL 9}1{CTRL 0) ADD COUPONS"
305 IFB%THENIFB$< )J$TliEN300 :PRINT"(CRSR DN) {CTRL 9}2(CTRL 0) REDE
310 IFC%THENIFC$OJ$THEN300 EMED COUPONS"
315 GOSUB445:Z=1:IFF£="M"THEN230 560 PRINT"{CRSR DN) {CTRL 9}3{CTRL 0) EXPIR
320 GOTO300 ED COUPONS":PRINT"(CRSR DN} (CTRL 9)4{C
325 IFZTHEN230 TRL 0) RETURN TO MENU"
330 GOSUB105:GOTO230 565 P$(1)="BRAND NAME":P$(2)="PRODUCT":P$(3
335 POKESC, 27:PRTNT"{SHFT CLRKCRSR DN)(CRS )="VALUE (IN CENTS)"
R RTjPRINTER READY? (Y/N)" 570 D1$=" CENTS "
340 GOSUB135:IFFSo"Y"ANDFS<>"N"TllEN340 57 5 GOSUB135:A=VAL(F$):0NAG0TO585,62 5,380 , 2
345 IFF$ = "N"TH1lN230 30:GOTO555
350 OPEN1,4,1 580 POKE198,2:POKE631,13:POKE632,1 3:END
355 READA$:IFAS="END"THENCLQSE1:GOTO230 585 PRINT"(CRSR DN]{CRSR RT}{CTRL 91STANDBY
360 IFA$ = "#"TliENREADA:GOTO355 (CTRL 0}"
365 READI3$,C$,D$,E$:GOSUB110 590 A=VAL{A$)+1:READAS:IFAS="#"THENREADA:GO
370 PRIN'IVn,A$" "C$"{4 SPACES}"B5"{ 2 SPACES TO600
)"D$D1S"(2 SPACES)"E$:IFPTHENCLOSE1:GOT 595 IFA$< >"END"T!1ENREADB$,C$,D$,E$:GOTO590
0425 600 PRINT"{SHFT CLR){2 CRSR DNsHCRSR RT}IT
375 GOTO355 EM : "A"{CRSR DN}":FORI=1TO3:PRINT"(CRS
380 Z=0 : RESTORE:Z1=1:GOSUB14 5:Z1 =0:J$ = E$ R DN}{CRSR RT}"P${I):INPUT"{CRSR RT}";W
385 PRINT"{SIIFT CLR)":D1$ = " CENTS ":G0SUB12 5(1)
0 605 IFW$(1)=""THEN555
390 GOSUB485:IFA$="END"THEN430 610 NEXT:GOSUB14 5:W$(0)=STR$(A):M=A*5+1000:
39 5 IFVAL(E$) >VAL( J$tORVA[,{E$) <1THEN390 PRINT"(SIIFT CLR}(2 CRSR DNs)"
400 P=1 :GOSU!J44 5:Z = 1 : IFF$ = "M"TIIEN230 615 PRINTM;"DATA"A","W$(1 )","W$(2 ) " , "W$(3 ) "
405 IFF$^"P"THl-;NR$ = A$:PRINT"fCRSR UPKCRSR ,"E$
RTJIiARD COI'Y? ( Y/N ) " : P1M NT" { CRSR RT)(CR 620 PRINT"GOTO555{HOME)":GOTO580
SR DNKCTRL 9JCHECK PRINTER(CTRL 0)":GO 625 PRINT"(SHFT CLRKCRSR DN)(CRSR RT}REMOV
TO415
E FILE NUMBER":INPUT"{3 SPACEs)";R$:IFV
410 GOTO390 AL{R$)=0THEN625
415 GOSUB135:IFF$="Y"THENOPEN1,4,1:GOTO370 630 PRINT"{SHFT CLR){2 CRSR DNs}":M=VAL(R$)
420 IFFS< >"N"THEN415 *5 + 1 000 : PRINTM"DATA"CHR$ ( 34 ) "jj"CHRS ( 34 }
425 GOTO630 ","VAL(R$}:IFPTHEN640
430 IFZTHt;N440 635 PRINT"J$="CHR$(34)J$CHR$(34)":Z=1:GOTO5
435 ES^J$:C;0SUI111 5:PKINT"{CRSR UP) NONE EXP 55{1iOME)":GOTO580
IRED AS OF":PRINT"(CRSR RT)";ES;"(CRSR 640 P-0:PRINT"J$-"CHR$[34)J$CHR$(34)":Z=1:G
DN)":GOSUB130 OTO385(HOME)":GOTO580
440 P^0:GOTO230 1000 REM FILES
445 PRINT"(SfiFT CLR}{2 CRSR DNs) FILE » :";
1005 DATA 1 ,SAMPLE COUPON,EXAMPLE ONLY,NON
AS:PRINT"iCRSR DN) BRAND{2 SPACES]:";B$ E,NONE
450 PRINT"(CRSR DN) PRODUCT:";C$:PRINT"{CRS 50000 DATAEND
R DN) VALUE(2 SPACES}:";D$;D1$
455 GOSUD110:P1UNT"{CRSR DN} EXPIRES:";E$;"
 Circle 82 on RaaOor Ssrvlco card.

Commodore Accessories Super Sale

byCPX

BEST SERVICE • HIGHEST QUALITY • LOWEST PRICES

COLOR MONITOR
• 14" screen Our b*tt buy Tnis is Ihe monitor lhat
• ResoiuiionmeelsoreicceediCormTHXJO'e ComrnodOro should tiave rrmde We ooug^t
1701 1702 Ihte some design moi is used m monitors
• lb\> larger screen Than Ihe Commodore or coslmg hundred! more Meeis or enceeds
CA monitor! Corrimodare snecilicorions Greal for u&e wilh
■ Complain wilh Cat?It1 and insfruciions your VCK loo

Coialog M210 $189.95

AMBER MONITOR
ghosf performance available This is t^e monplo^ lor professional worfc ir you
plan lo uiean 80 column board (leoDefow)
Up to 132 columns x 25 lmc>s ot iT you uw your 64 o loi iav« your «y«t and
Front pane* coniroli use me boil We boughl Iho same des-gn
Amtw screen onyo Ifiot sells lor upio S
Pugged moioi case
Complyly wilh cable ond insrruciions
Coralug -1220 $99.95

DATA 20 XL 80 (80 column board)

• flO column n 2h line deploy tvery Appro or IBM has an flU column s
• Cloor. inarD diiD'ov so con youi 64 Tru^ ama/ing cn'liPdge ■$ Ifw
• Includes Dt'it row product we've seen ir> yuars Simply
WordrrKinoger Wordprocessor plug rim. and waich ineXL flO load and run its
Pi on manager Spreod^ftool easy lo use programs oatomoticafry Tne
Com monogof Communications included piogrom? art? lasl po*rt?rluf and very
Disk cupy LjUllTy ocsy Ihonks lo iho SO column screen A musl
• Auto bool orid oulo storl for wordprocailing '-.■.. i'i ony
• Speeds up trie system up '■• M>% Including monocliroirit» monito' (see abovo)
The dlik iin-i1

• 1 v^of mai'itoctuiOis wonanlv

ColQlOg-1230 $99,95

DATA 20 PARALLEL INTERFACE

• 100T. c om polo Die wiin a I i C o mrn ado \» You wonlod graphics, no hassle, and low
Computers Plus 4.16.Od.VlC?0. SX 100 price DA1A 20 gave il loyou Ifiii new jn
(porlaDlt), and 128 (nevor soJd oefore) uses a cuiTom chip thot
• No pawor lops !o lope. user. |Oysiick pom. so low power. lE geTs on the power it needs
or cany ojis>de source from Itie signals- going to the Punier' Wortis
■ No setup required wilh orry printer or &onmin or your money
• No sdlwore drivers required
■ Greoi groprncs wrlh Prmljhopr Flexidrnw.
etc
$49.95
■ As oa»y lo uie as a caUlu
■ 1 year manuroclvirers*arrarly/

DISKETTES No or>p stflt dis^ottps like we do A super

value wiiti our onclusive free d sk Tiler No mce
• High Quality
scrounging Ihrougri sfacks of loose disks Ouf
• Single sided, double density
hlcrolsodouolos as a easel-type stand lor
• 10 per bo*
easy relerpnce Pratpcl your valuable doio bui
• Includes rugged plastic disk filer, a $1? 95
ai the best pnc«1 No limit.
value F&tE
• Incfudes labol*. sleeves, and write profccl Caioiog -1Z&0 $14.99
IOPS
Need more man 10' Bury in qu:inlily and save
Bo' ol 100 includes laoels. llAflvM. and wrilo
proteci rabj fiiwnoi included

CaioiOQ'1360 $129.95

CALL CPX TO ORDER 24 HOUR ORDER LINE

(714)581-4570

COD
computer
90 DAY WABRAN1Y peripheral
15 DAY FREE TRIAL ■ SATISFACIION OR YOUR MONEY BACK!
NO CHARGE UNIIL WE SHIP YOUR ORDER
exchange
PtIcbj do "of include ihlpolngoicvpllccftlfl KIOBCFdUtftl
Sony no pofionol cMeek5 uccopTud P.O. Box 2576, Laguna Hills. California 92654

RUN MAV19B/43
 Do you know how much your
electricity is costing you per day?
This program monitors your meter
and computes the daily cost.

Energy Watchdog
ByANNF.SYKES

Kilowatt Analyst stores readings screen will clear, and messages in re know thai it has reached the end of
(kilowatt-hours used) from your me verse type will appear at the top of the the information.
ter, calculates the average daily con screen. These messages will it'll you If you choose Appliance Cost from
sumption of kilowatt-hours (kWh) where the program's Data statements the main menu, the screen will clear
and computes the average daily cost begin and what to increment line and a brief set of instructions will
you are incurring. It keeps track of numbers by, and will offer instruc appear at the top of your monitor,
the dates recorded and gives you ihe tions for continuing the program. followed by a prompt to begin (hit
averages lor the test period. Addi After continuing, the program will any key). Just respond to the prompts
tionally, there is a hardcopy option list all Data statements to the screen. that follow lo obtain the tost of
for those with printers. That way, you may determine the next operating individual appliances for
A second section of the program line number to use for your data entry. a month.
analyzes the cost of operating your Next, type RUN 50008. The screen During the run of the program,
appliances for a month and keeps will clear once again, and you'll be you mayswitch between the two main
track of the monthly totals. prompted to enter your starting and menu options except when you are
An added bonus is a routine that ending line numbers. If, for instance, entering data under the Meter Anal
automatically enters your data into you wish lo enter one day's reading, ysis option, in which case you must
the program. This saves you from and your next line number is 875, type RUN to continue.
having to search through the listing you would type in 875.875. You will Be sure to save a copy of the pro
to find the beginning of the Data then be prompted for the line incre gram after entering new data. Also,
statements. ment. Since you are incrementing by 1 have included several sample Data
one, simply type in I. statements, which you should delete
Using the Program before entering your data.
The screen will then clear, and you
After you type in and save Listing should see:
1, run the program. You will see a What's in It?
H7!i DATA
(ille screen, followed by a menu of The program was writlen primar
fering Meter Analysis and Appliance Type the necessary information into ily to give you an idea of how much
Cost. If you choose Meter Analysis, the Data statement, taking care to money you are spending daily on
you will see an options screen asking insert commas between entries. All total electricity and how much you
you whether you want to view data Data statements, except the fust one, can expect lo spend for each appli
or enter data. should contain the date, the meter ance on a monthly basis.
If you choose to view the meter reading and the month, in that order. Lines 10-95 are the main menu of
analysis, the screen will clear, provid The first Data statement contains the program.
ing you with the information. You the cost per kilowatt-hour in your Lines 200-330 contain the Input
have the option of get ting a bardcopy area. You can obtain this from your prompts for the Appliance-Cost sec
if you wish. electric bill. The last Data statement tion of the program.
If you choose to enter data, the contains a Mag lo lei the computer Lines 340-370 compute the cosi of

RUN It Right
44/RUNmavi'W.
 4 A. 4. A 4. <

operating an appliance For a month Lines 5000-5020 make up the sub return. The data is then Poked into
and keep track of the totals. routine to continue the program via the keyboard buffer.
Lines 380-460 make up the screen the Wait statement. Armed with the information that
prim section of the Appliance-Cost Kilowatt Analyst gives you, you can
Lines 6000-6380 constitute the
portion of the program. then make plans to alter your usage.
Lines 500-507 begin the Meter- hardcopy option of the program.
For instance, I was shocked to learn
Analysis portion of the program. This is included separately so you will
that my hot water heater was costing
get the proper lab settings on the
Lines 510-850 read the Data state me $34.75 to operate for one month.
printer.
ments, compute the average daily I have now cut that cost in half by
cost and the average kWh used dur Lines 50000-50021 make up the keeping the heater on for only two
ing a day, and print these results fo section that automatically enters data hours per day. EB
the screen. to Data statements. This is accom
Lines 860-8R8 arc the hardcopy plished by the "dynamic keyboard"
and return-to-main-menu prompts. technique of writing to the screen, Athtress nil autiiar correspondence to
Lines 870-1000 are reserved for having the cursor pass over the mes Aim F. .Vyftcv, 3270 SE 18th Ave., Gaines
data entries. sage and then ending with a carriage ville, PL 32601.

RUN MAV1985/45
 320 INPUTWA
330 INPUT"(CRSR DWJ{CRSR RTJHRS OF OPERATIO
ENTER LAST MONTH'S BILL? 45.00 N/DAY";HR
3-50 CS=(WA*HR)*(30.4/1000*AV)
ENTER TOTAL KILOWATT-HOURS USED? 200 350
360 SU=SUtCS
YOUR COST PER KWH- .23 CS=INT(CS*l00+.5)/l00:SU=INT<SU*100+.5>
370
/I 00
380 PRINT"{SHFT CLR H 4 CRSR DNsHCRSR RT)TH
E COST OF OPERATING YOUR"
ANALYSIS
390 PRINT"{CRSR DNHCRSR RT}"NA$" FOR 1 MON
TH"
400 PRIHT"{CRSR DNHCRSR RT}IS ";"$";CS
410 IFJ>1THEN440
NAME OF APPLIANCE? REFRIGERATOR PRINT"(3 CRSR DNsHCRSR RTJWANT ANOTHER
420
APPLIANCE (Y/N)?
WATTAGE OF REFRIGERATOR? 120
421 GETC$:IFC$=""THEN421
HRS OF OPERATION/DAY? 24 422 IFC$="Y"THEN300
42 3 IFC$<>"N"THEN421
430 PRINT"(CRSR DNHCRSR RTJWANT TO RETURN
TO MAIN MENU (Y/N)?
432 GETC$:IFC$=""THEN432
433
Listing 1. Kilowatt Analfl program for tk 064, Ptus/4 and 016. 434 IFC$<>"N"THEN432
43 5 STOP
440 PRIHT"{CRSR DNHCRSR RTJWANT TO SEE MON
1 REM[5 SPACEsJANN F. SYKES THLY TOTALS (Y/N)?
2 REM{5 SPACES) 3270 SE 1 8TH AVENUE 441 GETC$:IFC$=""THEN441
3 REM{5 SPACESJGAINESVILLE, FL.{2 SPACEs)32 442 IFC$="N"THEN420
601 443 IFC$o"Y"THEN441
4 REM{5 SPACEsH904) 378-4862 450 IF C$="N"THENGOTO420
5 REM 460 PRINT"{3 CRSR DNsHCRSR RT)YOUR TOTALS
6 REM THUS FAR ARE ";SU:GOTO420
10 POKE53280,!:POKE53281 ,1 500 CLR:PRINir"(SIIFT CLR)(2 CRSR DNs)";
15 PRINT"(SHFT CLR) 501 PRINTTAB(5)"DO YOU WANT TO:":PRINT:PRIN
20 FORI=1TO3 T
25 PRINT"{2 CRSR DNs}":NEXT 502 PRINTTAB(10)"(CTRL 9)(COMD 1)V(CTRL 0)1
30 PRINTTAB(13);"KILOWATT ANALYST":FORDE=1T COMD 7) IEW DATA":PRINT
O1500:NEXT 503 PRINTTAB(10)"(CTRL 9)(COMD 1}E(CTRL 0H
40 PRINT"(SHFT CLR)(2 CRSR DNs)"; COMD 7) NTER DATA":PRINT
50 PRINTTAB(15)"{CTRL 9}(CTRL 8)OPTIONS:(CO 504 PRINTTAB(10)"YOUR CHOICE
MD 7)":PRINT:PRINT 505 GETZ$:IFZ$=""THEN505
60 PRINTTABI11 )"{CTRL 9}(COMD 1}M (CTRL 0)( 506 IFZ$="E"THEN50000
COMD 7) ETER ANALYSIS":PRINT 507 IFZ$o"V"THEN505
65 PRINTTAB(11 ) " (CTRL 9HCOMD 1}A (CTRL 0}{ 508 PRINT"(S[IFT CLR)":Q=1000
COMD 7} PPLIANCE COST ANALYSIS":PRINT 509 RESTORE
75 PRINTTAB(11 }"YOUR CHOICE 510 READA
80 GETZS:IFZ$=""THEN80 520 READB,C,D$
85 IFZS="M"THEN500 530 PRINT"FIRST READ ON "D$;B;" WAS ;C
95 IFZ$o"A"THEN8f! 540 PRINT:PRINT"COST PER KWH IS ";A
200 CLH:PRINT"(SHFT CLR)" 550 PRINT:PRINT"DATE READ";TAB(12);"METER";
210 PRINT"THIS SECTION WILL COMPUTE THE COS TAB(19);"KWH USED";TAB(29);"COST/DAY
T OF" 560 PRINT"(9 SHFT Es)";TAB(12};"{5 SHFT Es|
220 PRINT"ELECTRICAL APPLIANCES AROUND YOUR ";TAB(19);"(8 SHFT Es)";TAB(29);"{8 SHF
HOME." T Es}
230 PRINT"YOU'LL NEED YOUR ELECTRIC BILL FR 570 G1=C
OM" 580 B2=B
240 PRINT"LAST MONTH." 600 FORI=1TOQ
250 PRINT"(5 CRSR DNs)"; 610 K=1
252 GOSUB5000 620 READB
260 INPUT"(SHFT CLRHCRSR DNHCRSR RTJENTER 630 IFB=0THEN760
LAST MONTH'S BILL";LA 640 IFB<B2TliEN660
270 INPUT"(CRSR DN)(CRSR RT)ENTER TOTAL KIL 650 K=B-B2
OWATT-HOURS USED";TK 660 B2=B
280 AV=LA/TK:AV=INT(AV*100+.5)/100 670 READF,D$
290 PRINT" (CRSR DNHCRSR RT)YOUR COST PER K 680 H=F-G1
WH-";AV 690 G=H»A
295 PRINT:PRINT:PRINTTAB(16)"(CTRL 9}{CTRL 700 PRINTB;D$;TAB(12);F;TAB(19);H;TAB(29);G
5)ANALYSIS(CTRL 0){COMD 7}":PRINT:PRINT 720 Gl-F
300 INPUT" (CRSR DNHCRSR RT)NAME OF APPLIAN 730 G2=G2+G
CE";NA$ 740 K1=K1+K
310 PRINT"fCRSR DNHCRSR RT}WATTAGE OF "NA$ 750 NEXTI
760 G3=F-C

4fi i RUN MAY I985

 6070 PRINT:PRINT"YOUR COST PER KWH IS ";A
6080 PRINT:PRINT"DATE READ";CHR${16);"20MET
ER";CHR$(16};"40KWH USED";
6090 PRINTC1IR$(16) ;"60COST/DAY
6100 PRINT"{9 SHFT Es}";CHR$(16);"20(5 SHFT
Es!";CHR$(16);"40(8 SHFT Es}";
THE COST OF OPERATING YOUR
6110 PRINTCHRS(16);"60{8 SHFT Es)
6120 G1=C
REFRIGERATOR FOR 1 MONTH
6130 B2=B
IS $20.14 6140 FORI=1TOQ
6150
6160 READB
6170 IFB=0THEN6290
WANT ANOTHER APPLIANCE (Y/N)? 6180 IFB<B2THEN6200
6190 PUB-B2
6200 B2=B
6210 READF,D$
6220 H=F-G1
6230 G=H*A
6240 PRINTB;D$;CHR$(16 ;"20"F;CHR$(16);"40"
H;CHR$(16);"60"G
6250 G1=F
6260 G2=G2+G
6270 K1=K1+K
Listing 1 continued. 6280 NEXTI
6290 G3=F-C
770 PRINTTAB(19);"{5 SHFT Es)";TAB(29);"{5 6300 PRINTCHRS 16);"40{5 SHFT Es)";CHR$(16)
SHFT ES) ;"60(6 SHFT Es)
780 PRINTTAB(5);"TOTALS";TAB(19);G3;TAB{29) 6310 PRINTCHRSH6) ;"05TOTALS";CHR$(16) ;"40"
;G2 G3;CHRS(16);"60"G2
800 PRINT"(34 SHFT Es) 6320 PRINT"{66 SHFT Es)
810 PRINT"TOTAL TEST DAYS:";K1 6330 PRINT"TOTAL TEST DAYS:";K1
820 X-G3/K1:X=INT(X*100+.5)/100 6340 X=G3/K1:X=INT(X+100+.51/100
830 Y=G2/K1:Y=INT(Y*100+.5)/100 6350 Y=G2/K1:Y=1NT(Y*100+.5)/100
840 PRINT"AVG DAILY USE:"X;"KWH 6360 PRINT"AVG DAILY USE:";X;" KWH
850 PRINT"AVG DAILY COST: S"Y 6370 PRINT"AVG DAILY COST: $";Y
860 PRINT:PRINT"DO YOU WANT HARDCOPY (Y/N)? 6380 PRINT#4:C!.OSE4:GOTO 864
861 GETPO$:IFPOS=""THEN861 50000 CLR:PRINT"fSHFT CLR}{2 CRSR DNs)";:PR
862 IFPO$="Y"THEN6000 INTTAB(3)"(CTRL 9){CTRL 5)DATA ENTRIE
863 IFPO$<>"N"THEN861 S BEGIN WITH LINE 870 (CTRL 0HCOMD 7)
864 PRINT:PRINT"WANT TO RETURN TO MAIN MENU 50001 PRINT:PRINTTAB(3)"(CTRL 9)(CTRL 5JTHE
(Y/N)7 Y ARE INCREMENTED BY 1{CTRL 0)(COMD 7
865 GETC$:IFC$=""THEN865
866 IFC$="Y"THEN40 50002 PRINT:PRINTTAB(3)"(CTRL 9){CTRL 5)PI.E
867 IFCS< >"N"THEN865 ASE CHECK FOR LAST ENTRY LINE,(CTRL 0
868 STOP HCOMD 7)
870 DATA .085 50003 PRINT:PRINTTAB(3)"{CTRL 9){CTRL 5}THE
871 DATA 2,1100,FEB N TYPE RUN 50008.(CTRL 0)(COMD 7)
872 DATA 3,1290,FEB 50004 PRINT:PRINT:GOSUB5000
873 DATA 4,1460,FEB 50006 LIST870-1000
874 DATA 5,1720,FEB 50008 PRINT:PRINT:PRINT"{2 CRSR DNs}{2 CRSR
S75 DATA 6,2100,FEB RTs)ENTER STARTING,ENDING LINE NUMBE
876 DATA 8,2470,FEB R:":INPUTT,G
877 DATA 9,2680,FEB 50009 IFT>50000ORG>50000ORG<TTHEN50008
50010 INPUT"INCREMENT LINES BY";FT:Y=T
878 DATA 10,2980,FEE
50011 PRINTCHRS{147)Y;"DATA ";:H$=""
879 DATA 11,3290,FEB
50012 GETA$:IFA$=""THENPRINT"(SHFT Q){CRSR
880 DATA 12,3500,FEB
LF]";:GOTO50012
1000 DATA 0
50013 IFLEN(H$)>65ANDA$<>CHR$(13)ANDA$<>CHR
5000 PRINTTAB(8)"(CTRL 9}{CTRL 8}HIT ANY KE
$(201THEN50012
Y TO CONTINUEfCTRL 0){COMD 7)
50014 IFA$=CHR$(20)ANDLEN(H$)-0THEN50012
5010 WAIT197,64,64:POKE198,0
50015 PRINTAS;:IFAS=CHR$(20)THENH$=LEFT$(H$
5020 RETURN
,LEN(H$)-1):GOTO50012
6000 CLR:PRINT"{SHFT CLR ) {3 CRSR DNsJ";
50016 IFA$=CHR$(13JTHEN50018
6010 PRINTTAB(16)"{CTRL 9}(CTRL 5}PRINTING{
50017 H$=H$+A$:GOTO50012
CTRL 0){COMD 7)
50018 PRINT"Y=";Y;":FT=";FT;":G=";G:PRINT"G
6020 OPEN4,4:CMD4
OTO50020":POKE631,19:POKE632,13
6030 RESTORE
50019 POKE633,13:POKE634,145:1
6035 Q=1000
KE636,!3:POKE198,6:END
6040 READA
50020 Y=Y+FT:IFY>GTHENEND
6050 READS,C,DS
50021 GOTO50011
6060 PRINT"YOUR FIRST READ ON "D$;B;" WAS "

RUNMAVIW.M7
Circle iB9on Reaasr SorvIce card

Slik Load 529.95

Silk Load is a Kartridge for the C-64.
Siik Load is the most reliable, effective and thought out Kartridge of it's kind.
The options include:
• 5 !.,„.,, fntar load • Swtui k.y w.ll B've you inlorinauon on
• Eliminate, drive rntile when arrori devic* number. byt« Irae and ilatui of (he
are encountered. dllv0'
_ . B Cill/ I .Liirl II ;il*f1 lllMV rnmnnti i " LA/lih TnA
• Old and un-new " t"llt L0Ba '■ a"a ™"»
Will restore a basic program 15A1 Super Rom
TmI-1541 periormance lesi
Sync R«O«r-Chec* for Sv«c Diis
n ?0 Jl 22 ?3 27 * 39 W»C* OuT lo 41
Rtpi r a Tr«kReDflir a 1-ack «rin
Formal Smrjn T'iCki checMurTi vrrcri StfliJs COdP untfe'
Ch»nfl« Drl.e Ho.-Chang*!
neaa Dut E"Q>t error; and reiirjres tjh
fiunoer I7-3Q,
H -'.' - fi.t.it . -s wioct -. t F«i Fomui-Fotmii a disk m ju*i 10
Oiik Loggtr-F'ndi tilling track
i Trie f Orm«Tltr-Fo'Fn«i a aim w KCOnOl i*Hn .pnHv''
Man i^o em] aadmui
uic * i T n 111 % *h*re Tnt r#* t p fot«
Oiih Milch Compare my tw
schemei irn coming From
B/TP 'or Qy(t
Dri»* Mon-Du-c Dm ye asismEw
assembler Far1 your 1541
Nt* W«Jg#-£a5'ef (q uM DOS This is the only utility
ID Ch«K*-Check iDi en iny fr
Th* Doc Disk Doctor (hat reaas
Unmrilcft-Re^iorp a ^caichr*d
of its kind. It even has
under fllrQfS
Vnv-.6AM-Viii.al dLSplrivDi thc a 3 min. copy on it.
$19.95 Srnc Uifctr Place a Sync naik on
irac* Out ID 41 A'SO U?Pi3 'Dr pfOfCC uSPQ lectors on a oi

WAR GAMES KARTRIDGE KRACKER

AUTODIALER NOW you can own inis unique ana powerful tool
wnicn will allow you to dump the contents of 8K
1-Aj1o Dtai ami automatically and tSK cartridges onto disk' But what's really
J-Review Numbers will great is that you can also RUN the cartridges pro
3-Save Numb«ri wdl sa grams without plugging in the cartridge' the
■J-Hardcopy ol NumbBrj KRACKER gels YOU INSIDE the cartridge.' Put
S-LOAD Numbcrt -ill all your favontes on disk and ger rid ol the clut
6-Coniinuc Mil piCh up ter This package provides you' ivilri the software
and hardware needed to gel started Program on
$29.95 disk included (Some cartridges require use ot ex
$44.95
ternal RAM not includedI

5DFXUJHRE TOP SECRET STUFF II

All C128 Compatible

3rd Splil Screens (Hornonlallyl

Smooth Scrolling
Protect Scheme For Your Disks
Write Protect DtsK

Edition Save Ram From Under Roms

No Drive Ratlle Or Errors
Unwrile Protect Disk
Mini DOS Wedge

'HflNDBDQH Triple Drive Head Speed Fast Diskmalcher

Autoboot Maker Data Statement Maker
Koala Screen DUmp Unnew
Display GCR 3 Minute Copy
TMIHO EDITION! NOW AVAILABLE!
Fas! Disk Eraser DM S
II you're llrad ol being harassed by protected software and loo many copy
orograms. men this is the nook lor you' This 224 page manual covets iria
If you have 7SS#7, You'll
gambit from leqjhTiws ro proiection methods lo sieo-by-siap back up pro
cedures Now you can learn boih no* to protect and unproiact sofiviara'
The techniques covered include copying cartridges lo lapeordisk. tape pro
Like This One! All on one disk $19 95
tection, and disk protection. Dish protection covers error no 's 20. 21. 22. 23.
27 and 29 plun single tract formatting header modification, header swapp
ing, half track reading and writing, reading and writing modified bit densities. Bulletin Board
Set vpana opaftle your ownorjiwm bOA'G wrTft one
lormatting illegal Iracks'sectors, sync writing and more? The Third edition ex
Ol ImOft'tk ail*9S This 0n9 ntS 911IH9 failures and
plains, tells how to detect and how to write tnem with included software
/ou can cuilomne H 69&ly fOvritil
Eleven use'ui utilities and many protection listings' Our dish analysis programs
I-HUN uecASOFT-BSS B READ SrSO>> MESSAGES
reveal the protection methods used on your originals A dishetie wilti all sort- 2 CREATE MEGA (ILES 9-WRIIE OPENING MESSAGE
ware is availabii to' a minimum entra charge This may not be ihe Only book 3 ADO TO SrSOP S CORNEA 10 BEAD LOG
your should have for the C-Gd. but it is certainly Ihe one book you should 4-NEW SISOP 5 CORN6H 1 1-CYCLE LOG
not be withouil 5 BEAD MESSAGES 1 3 READ 00WNLQAD FILE
6 SCRATCH MESSAGE 1 3 SCRATCH DOWNLOAD FILE
T-CVCLE MESSAGES W ADO 10 OTHER SVSTEMS

S59.95
C64 Book only S19.95 US 15 CREATE OTHEFt SVSTEMS

Book & Disk of all programs

Vic 20 book Carl S Tapes only

S29 95 US
S9 95 US
BBS
Leveled Access Expert Mode
THIS MANUAL DOES NOT CONDONE PIRACY Private Message Base Open Chalk Board lor

■SHIPPING S200 Up to 300 Passwords Highest Level Access

Encios aCaih S'5 Cflfttri

Allow 14 rjrlys to
pnone DiOer;,
DoMbt vis* - WASTER CARD -
Woney Order
delivery 2 ro

C4nada o dins musr n# n US

MegaSoft Limited

P O Box 1080. Battle Ground. Washington 98604

P'W m* lor CM » 00 5 A t Ol Jll y$f\

Phone 1206] 6B75H6 ■ BBS 687-5205 a--- .--. - — ;.-■■ f-i..

ivrirt Submunont Inv

48/RUNmavw,
Circle 189 on Roaoor Somes card

D-Compiler $59.95
The first D-Compiler to give you back your source code
after your program has been compiled with 'Blitz.
l ol Sky Ida Fleclric Works

1541 Super ROM $39.95

• Fast Save Load Verify also Save with Replace is
Improved
• Fast Scratch and Validate
Two times taster, Eight times taster
• 10 Second Format with Verify
when used with Turbo 64 which is included
• Wo more Drive Head rattling
during Format or Error Reading 1541 Super ROM is 100% Compatible * Easily installed in Minutes

COPIES IT ALL

APOLLO Does it All. This program is the latest generation of

copy programs. It will do everything the $39.00 and $49.00 pro
grams will do and more. It Copies ALL drive errors, bad tracks
and sectors, non-standard format, bad syncs, and half tracks.
We feel this is the best program of its kind available...
$29.95
Copy Protected Disk Copy Unprotected Disk
MSD Sure Copy Copy Files
Format a Disk
Scratch a File

At last a complete utility package for the MSD Dual Drive This
is the lirst MSD utility program that does it all. The mam
Change Disk Name
Quit
Rename a File

View Directory
$3995
menu options include'
Sure Copy will put all errors automatically on disk: 20. 27. 22, 23. 27 and 29's.

D-CODER N-CODER
the machine
M9.95 Super Loader
language manipulator...
Translates any machine language program into easy- Super Loader is a Kartridge that plugs into
to-read English descriptions with complete explana your expansion port, that allows the
tions ol each command' The perfect companion computer, on power up start thedisk drive
Mattes complete natal ions ol all important memory program to D-CODER! and load the first preselected program on
kications accessed by the program! (SIO. VIC. MOS. the dish
KERNAL. etc.)
Allows you io easily make changes in ma
Gives you itiree ways ol accessing programs: chine language programs... right on the dish! Change colors
1) Will read and list programs from DISK
2} Will read and list programs from MEMORY! Load wedge
• Rewrite ability allows code to be altered
3) Direct user Input (from magazines, etc.)
and then rewritten directly to the disk! Woiks with more drive
Can be used io locale and eiamme any machine • Features sector-by-sector scrolling
Takes up no memory
language program's pioteciion routines! assembly language display ol machine
Can Be used io easily break apart machine language language programs! Reset swiiqh included
programs lor study and examination! • Notation ol ASCII text equtbalents for easy
Pnnter option for complete hard copy listings! spotting of embedded text strings!

You no longer
• Handy reference display of all assembly
need to be an language commands and their ML
numerical equivelents!
$1995 *29 95
EGGHEAD to
read M«chlne • Byte splitter for easy splitting of decimal Only
Language. addresses into low byte-high byte format!

This Disk has over 100 routines, routines. They can easily be
some of them are routines for incorporated into all of your programs.
protection, smooth scrooling, modem It is also fully documented.
routines, and sound and color
\

RUNM.wiiws/49
 What
Makes
You
Tick?
By CHRISTINE ADAMEC

Psychological soft
video game system to your
ware is now avail TV set. One end of the ca
able for C-64 users. ble plugs into joystick port
1 of your C-64 and theother
This new genre of into your TV. The program
programs helps you is supplied on cither disk
to analyze yourself or cartridge.
Turn on your computer
and your friends, re and you'll get the introduc
duce stress, lose tory message, and you'll

weight—even im then select your category.

The weight-loss program al
prove your sex life. lows you lo choose from
five categories of messages:
"■ Weight Control, Sell-Im
Psychological, self-help age, Deep Relaxation,
or life-enrichment soft Good Health and 1'hvsical
■

ware—whatever you prefer JKxercise. After selecting

to call it, this new genre of the message series you
programs is one of ihe hit- want, simply move the elec
est trends to hit the home tronic interlace device to
compute!" marketplace. "TV," sit back and enjoy
Ranging from behavior modifica to help you lose weight, quit drinking your favorite TV program.
tion to personality analysis, and or smoking, or even improve your If you're wondering exactly what
based upon a variety of techniques sex life! Other available programs in messages are being fed to your sub
and methods, these products let you clude stress control/positive think conscious, just move the interface de
put your computer to use in some ing, athletic confidence, study habits/ vice to "computer," and the message
novel ways. They can't replace your memory power and career/success will then be displayed in huge letters
psychiatrist or counselor, but they motivation. across the screen. If you've chosen
just might give you some useful (and What is a subliminal message? It's the Weight Control option, you'll see
surprising) insights about yourself a word or phrase flashed on the messages such as "I see me thin," or
and others. screen so fast that it's very difficult "I am attractive." The Physical Ex
Here's a look at what's available (or impossible) to consciously read ercise mode includes messages such
for Commodore users. it. But supposedly, if you're relaxed as "Exercise is fun" and "I like my
enough, your subconscious mind can body." Each category has nine mes
see it, and the message makes a last sages, all ending with "I am OK."
Expando Vision ing impression on your mind. Can you notice the messages as
Expando Vision is a unique hard You'll need a VCR or cable tuner you're watching TV? Most of the time
ware/software configuration for both for this system, because you'll have you'll just see a static-like flash, and
the VIC-20 and the C-64. Depending to hook up the hardware to function after you've watched TV for a while,
Upon the accompanying program on channel 3 or 4. you won't even notice it. lint if you're
thai you purchase, it will input sub Setting up the system is relatively really relaxed, you can actually read
liminal messages on your TV screen simple, comparable to hooking up a the message and it can be startling

50 / RUN may \m
and exciting when it happens. but I may have difficulty understand "One should (ins! a physician to treat
Hut does it work—will you actually ing the emotions of others. The pro an illness" and "An honest person
lose weight, quit smoking or improve gram says I value honor the most, can't always be polite." Most ol the
your sex life? I tried the Weight Con and my "vulnerability to criticism" questions are very straightforward.
trol program for two weeks and lost could give me trouble. You must have patience to answer
about two pounds, which 1 don*! think I think the program analyzed me 220 questions, but after it's over, the
is significant The success or failure rather well (although I really could analysis comes up quite rapidly. The
of the program depends largely upon never see myself as a mortician). program not only measures your level
you, your receptiveness to subliminal Personality Analyzer is noi de of correct answers, but also your con
stimuli and your determination to signed 10 replace your psychiatrist, sistency—it asks you the same ques
achieve your goals. It would be diffi but it can provide some very inter tions in several different ways.
cult to determine to what extent your esting insights. Psycom is currently Instead of giving you an age-level
behavioral change (if any) could be working will) a psychology professor score (indicating thai you are emo
attributed to Expando Vision. to add a section on motivation. Psy tionally :>. 2.r> or 90 years old), the pro
My only complaint aboui Expando com President Patrick Williams says gram gives your scores in percentages.
Vision is the price. The hardware, this motivation scale will help you You may be told, for example, that
including the electronic interface de determine if you're a low-achiever, a your maturity level is 9:>%, your con
vice and coaxial cable with antenna Type-A person (workaholic) or some sistency is 70% and your bottom-line
adapter, costs SH9.95, which is rather where in the middle. Updates will be percentage score is 60% (50% is aver
sreep. In addition, each program offered lo program owners for just age and (!()% is in the 70th peicentile).
costs $34.95. So with die S3 The program also high
shipping lee. you're look lights your inconsistencies
ing at a bottom-line cost of and shows stress areas in
$132.90. Bui if you can af your life based upon your
ford it and would like a fas answers.

cinating and unique

application for your com
puter, you might well find
this unusual product highly lie relationship
satisfactory. (Stimutech, disk will analyze
3X50 Research Park Drive,
Am Arbor, MI 48104, Hard you and your
ware, $89.95; software, $34.95
each on C-64 or VIC dish or
favorite person to
cartridge.) determine if you're
| Personality truly soulmates.
Analyzer
If you're curious lo know
what kind of person you
really are, Psycom Software The demo disk sells for
International offers Person only $4.95. Once you've
ality Analyzer for the C-64. identified your stress areas
Personality Analyzer you can buy the maturity
asks you a series of ques profile disk, which will ana
tions about yourself. You can select $12.95. (Psycom Software International, lyze your problem areas and help you
22, 44 or 88 questions to answer. 21 IS Forest Luke Drive, Cincinnati, 0/1 to alleviate them. A dynamics and
Here are a few samples: "Are you 45244, C64/$32.95 disk.) treatmeni disk is available for further
governed more by intuition or ex help. Or, you can get the relationship
perience? Are you reserved rather I Emotional Maturity disk to analyze you and your favorite
than approachable? Which do you The International Self-Help Insti person and determine if you truly
prefer, libraries or lounges?" After tute of Salt Lake City, UT, lias Intro are soulmaics. Ilusiness versions of
answering all the questions, the pro duced a new program which purports these programs are also available
gram takes about a minute to com to measure ami improve emotional (at higher prices), which could the
pute your analysis. maturity. The author, a researcher oretically be used to help screen
The program distinguishes be with a I'h.I), in psychology, tested prospective employees or realign
tween 16 basic personality types. Ac over 550 people, ranging from psy- current jobs so (hat you would have
cording to ihe program, I am a chotics and neurotics to "normal" compatible people working together.
"trustee" type of person, and may be people. Based on their responses, lie (International Self-Help Institute, !'(> Bat
described as steady, loyal, realistic, devised 220 true/false survey ques 520950, Salt lake City, UT 8-1152.
serious, traditional, conservative, tions, which are included on the C-64/demo disk, S4.95; maturity profile
bondable and decisive in practical Emotional Maturity demo disk. disk, $49.95.)
maiters. The program then told me The program tabulates your an
I'd enjoy working as an auditor, of swers and then generates a graph of Mind Prober
ficer, mortician, supervisor or ac where you are emotionally, You're Human Edge Software's Mind
countant. As a mate, I'm "faithful," asked to respond to statements such Prober is the most reasonably priced
RUN MAY 1985/5]
of the programs reviewed here. For "playful." She's not "rigid," bill she's quility, inhabited by gentle people.
Si!9.95, this program will supposedly somewhat "distant." Mind Prober In such a setting, she could feel free-
help you to analyze other people. told me that my friend is "likely to to express herself without fear of crit
"Analyze anyone in your life. Get to be an introvert who tends to judge icism or exploitation."
know their secret likes and dislikes. her accomplishments against harsh As an experiment, 1 decided to cre
Find out hidden truths about people standards." In relationships, she is ate some imaginary people—Susie
you thought you knew," states the "usually cautious and guarded to- Sunshine, a perfect person, and
manual. Pretty strong claims! wards others." Site seeks "an orga Gloomy GuS, a cantankerous man
The program asks you whether the nized, efficient work environment" who lives only for his job. I wanted
person you want to evaluate is male or and "a job without challenges would to see if Mind Piober would come
female, and over or under IX. (If he boring for her." out entirely positive for Susie or en
you're evaluating someone under IH, As for coping with stress, my friend tirely negative for Cius.
you get a reading on how well they do doesn't do very well. "All of life's Mind Piober told me that Susie "is
in school Instead of a sexual analysis.) strains are keenly felt," and "lacking an outgoing person who enjoys the
You're given (>6 traits with which a tough skin or cavalier attitude to excitement of being with a group of
to agree or disagree regarding the protect herself, she takes refuge by companions. She is friendly anil en
person you've selected. You're asked withdrawing from others." gaging and has little trouble telling
whether the person is egotistical, ad Regarding sex, she "moves cau people what's on her mind." How
venturesome, sensitive, meticulous tiously toward a serious commit ever, "she may overwhelm you with
and so on. The program saves the ment...she will spend a great deal attention once you have indicated
analysis, and you can examine it on of time testing her prospective part your interest in her as a friend." Scx>
your screen, print it out or come back ner's willingness and acceptability." ually, "it is very Important to Ms. s.s.
to it later. The filial analysis provided by the that you admire and desire her."
I evaluated a friend who's hard program is what makes your subject As for Gus, Mind Piober reveals
working and rather shy. She was ana "tick." My friend would "secretly like that he is "a cynical loner who seems
lyzed as being "accurate," but not to live in a world of beauty and nan- to love his possessions more than his
family." There is some hope, however.
"Consider Mr. G.G.'s quirks as en
dearing. I Ie plays a cautious game and
often feels uncomfortable aboul ini
Other Self-Help Products for Commodore Users
tialing contact. However, a change of
scene could work wonders in jailing
Relax (Synapse, 5221 Central Ave., Richmond, CA 94804, O64/$99.95.) him out of any unromantk phase."
Relax is a stress-reduction system for the Commodore 64, designed Mind Prober is intriguing and re
to help users minimize job burnout, control nervous habits such as vealing. The well-written manual in
smoking and overeating and possibly live longer, simply by teaching cludes chapters on how we read
them how to relax. The documentation and tutorial were wrilten by others, how to train yourself to read
Dr. Manha Davis, a clinical psychologist and an authority on stress others, how lo read friends and busi
reduction. ness associates and more. (I strongly
Using biosensory technology, the system allows you to monitor stress recommend you read the manual he-
levels by representing muscle tension graphically on your screen. The fore plunging into the program.)
Kelax workbook helps you to understand your reactions to stress and The accuracy of Mind Prober de
also provides suggestions for managing and reversing those reactions. pends largely upon how you perceive
An audio tape guides you into deep relaxation; the system also allows your subject. It's much easier to eval
you to use subliminal messages that will reinforce your relaxation uate a person you already know well
response. than a new acquaintance. How can
The Relax sensor headband has ihree tiny sensors that provide mea you have a good feel for whether or
surements of muscle tension. This biofeedback method, called electro- not a new friend is meticulous or
myograph (EMG), measures electrical activity in the muscles. Muscle charitable!- Also, some people tend
tension is portrayed on your screen, and it can also be printed out. to be overly generous in evaluations,
The Relax hardware/software package includes the program on disk while Others are more negative and
or cassette, sensor headband, control unit, audio tape and workbook. judgmental. Your tendencies to
wards one end of the scale or the
Serf Search {Light 8, 405 Washington St., Suite 179, San Diego, CA 92103. other will influence the analysis.
C-64/S39.95 disk-)
Mind Prober won't give you the
Self Search analyzes your personality based upon your answers to
final word on a person, but if you
89 test questions. The analysis is based upon a psychological theory use it as a guide, it can be helplul
known as the Seven Rays, which asserts that there are seven personality
and very enlightening. (Human Edge
modes, manifested in all people in varying degrees. Software, 2-115 Faber PUice, 1'ulo Alto,
The program gives you an analysis indicating both primary and sec CA 94303. C-6I/S29.95 disk.) H
ondary personality types. A list of your positive and negative traits is
also generated. The analysis can be sent to your screen or printer, and
data can be saved to disk and recalled for furture reference. The package
contains a second disk with programs for evaluating your test data.
Address all autlutr correspondence lo
Christine Adamec, 1921 Ohio St.. N.E.,
Palm Hay, FL 32907.
52 / RUN MAY 1965
 'ie 254 on Roader Service card.

Software Discounters
a Breakthrough in Value!
of America
ULTRABYTE (■ Pailplwril), too!) S.D. ol A

For Orders Only 1-80O-225-763B

DISK DUPLICATORS InquifosandPA 412-361-5291
• F'« Snipping on orrre'B o*r-< 1100 in con I mental USA
Open Saturday

with FREE BACKUP COPIES •No tu'cmigt lor V1SA1MA5TERC4HD

ACCESS Hilchhiker s Guide to

Beach Head|TorD| 121 tile Gala.y(D) - - - $23

ULTRABYTE NOW OFFERS TWO OF THE BEST COPY Beach Hoad II (D) .
Mach5|R)
127
.123
lnlidel(D}
Planetfall.
S27
$23
PROGRAMS ON THE MARKET. AND BOTH COME WITH Raid over Senslalker 123

FREE BACKUP COPIES. Moscow |TorD) . S25 Sorcerer 127

ACTIVISION KOALA
DfCJIM.ilorl(O) . . $21 Muppel Learning

ULTRACOPY II GhosthustflisiDf
SpjieoShultlo(D) .
$23
121
Kcys(D)
Tntilot mPamtor(D)
$19
153
ARTWORX Talilnt miPalnter(R) SB 5

Bridge 4.0|TorD).. 116 Koala Printer (D| . . . 11B

Jim Lagerkvist's sequel to (he original ULTRACOPY 64 Fronch(D| $19 MICROPROSE

owned by thousands ol satisfied customers. Grand Master F-15 Strike

cness(D) $19 Eagle (TorD) 123

Copies protected disks in 8 minutes on a single 1541 SiapShoi Hockey <D) S16 Kennedy Approach <0)$23
Sinn Poker ID) 121 Solo Fligm (TorD). 123

Does not "hammer" the disk drive. Will not affect alignment BRODER8UNO MINDSCAPE
Sank SI Writnr(DI 133 Bank Si Music
Formats, copies and produces errors automatically In one step Castles Dr CrevpID 121 Wriler(Dl $33
KwatthitO) 121 Bank SI Story

Features Normal Scan for reliable copies of most disks Loderunner |D| 121 BooK|D) $27
Mubic Shop |Dj $29 Indian Jones ID) 121

Includes Deep Scan with 38 track and hall track capability Print Shop ID] 129 ORIGIN
Prmt SnoD LJIhmalll S39

Copies 99% of programs on the market Graphics Library $19 PRECISION SOFTWARE
Spelunkor(0). . 121 Superoase61 SJ9

Free backup copy-two disks for the price of one StealinjD) . . $21 SCARBOROUGH
Wliistliir-sBtallMiitDlSil Build A Book ID) $27

Technical support available by telephone CBS Maslorlype (D) $21

An* MftiterfD) 129 NpI Wrjrlh(O) $19
Simple to use. Tone signals disk swaps "■!.■■■ Cull SPINNAKER
Dinosaur Dig ID) .. .127 All Titles . Call
Dr Sijiish(D) $21 SSI

ULTRABYTE DISK NIBBLER

Felony(DI 123 Oallle Normandy (Di 127
MalM Series Call Breakthrough in
Maslering tne SAT (DI M9 Ihe Ardf nnes (D) 139
Murder DyOoz&n(D\ $23 Carrier Force (D) 139
Uses proprietary revision of disk operating system (DOS) to make CONTINENTAL ComouterOBIDl . . 127
a bit by bit copy. This process, called nibbling, copies the format, Book cl Adv Games $16 Fieldol Fire(O) . . 127
Hams Accounlanl (DIM? Gem5tone Warrior rD $23
data and errors, all at the same time. Errors are not recognized HonieCaiilorjpr ([)) 133 Germany 19B5ID) 139
and do not hammer the drive. Built in fast load environment allows CREATIVE Kantplgrupp«{D) $39

copies In 8 minutes with a single 1541 disk drive. BrejkSlr<M)t|D| $17 ProTourGoI'lO) 127
Easy Disk (0) 121 Questron[D( $27

• Easy to use. No separate analysis or error production i am Iht- C611D1

Trolls t.
121 RirtqsidoSoat(D) . . ,
SUBLOGIC
$27

• Choose 35.36,37 or 38 tracks to copy incl. half tracks TriDutationsiDl

DATASOFT
119 Fliijhl Simulator II (D) $35
Night Mission

• Makes up to 5 copies of each original — (UNIQUE FEATURE) Bruce LeelTJD) .

Conan(TIDI
123
$23
PmballlTorDl
TIMEWORKS
. $21

• Backs up 99% of all software Dig Dufl|T/Dl

Losl TomrjiTIDl.
119
$19
Ca«e Word Wizard (Di 123
Dal a Manager 2 (0) 133

• Free backup copy-two disks (or the price of one PK Mnn(T(Dl

Polu Position [TIDI
119 Word Wnler
$19 wiSnmlei ID).. . $33
DAVIOSON TRILLIUM
All 1111(19 Ama/on |D)
FREE BACKUP DISK
Call $23
ELECTPiONIC ARTS Urooonworld 10) . . 123
All Titlas Call FahtHnhOtI4S1 (D) .. $23
EPYX Rl?n[f<?7Y0US
ULTRACOPY II and the NIBBLER are Independent products by different authors. Both Fasl Load(R) . . $25 wIRsmalD) $23
are excellent and either should meet your needs. You may order two disks ol one ImpOSStbiB Mission!DI 123 SHaOoivkeep (D) 123
Monty's Scrabble (D WINDMAM CLASSICS
product lor 139.95 plus S 4.00 shipping and obtain a single disk of the other lor Pil'itopll(D).
127
127 Alice in
S20.00 plus $3.00 shipping. Sorry, free backup must be same as disk purchased. Summer Games (Of. $25 Wondpr(ana ID) $19
SummorGamer.lliD Swiss Family
FISHER PRICE RolnnsonlD) 119

FOR 2 COPIES OF EITHER All Titles

GAMESTAR
Cill Wi7.ird ot O7 (0)
ACCESSORIES
119

ULTRACOPY II OR THE DISK NIBBLER On-CouM Tennis!TorD 1121

OnField
BASFSS.DD
CompuServe Slarter
$11 Si

Foo(BalllTorD) $21 Km5Hrsl 123 2/S39

plus 14.00 shipping and handling. Mastercard. Visa. Check or M.O.. Foreign orders Star League Data Sliaie Prinler

in COD add SZ.00- Calif, add 6 5:- (S2.60) sales tax. Additional backup copies are BaseBan(TorDi (21 Ini AJGraphics. . . UA
HBJ Disk Case |How5 501 $9
S 20.00 plus S 3 00 shipping Computer SAT (0) Disk Drive Cleaner
118 S9

ATTENTION: Owners of ULTRACOPY or the NIBBLER whose names are in our tile HAYDEN Oom Jones Slarler
SarrjonllllO) $33 Kit (5 hrs.| . . . $21
may order a single copy ot either product tor S 20.00 plus S 3.00 shipping. INFOCOM Tula AAIAD Modem Call
EnohmteKni 123 ■■■■' :' 112

Write or Call 24 Hour Order Line P.O. Bo< 278-DBpl. RN Wildwood. PA 15091

ULTRABYTE (818) 796-0576 -0,0.,lB,.n0T.,~,,i, .mi

7,
P.O. Box 789 La Canada, CA 91011
i l^dr.H"n " rj11 {, \t \ 1 '^ 5" ni>lnrj

UWBIfl AK, Ml, rPOAP( -3? \T'™."'"""""-aa"

ln1irn*H&n*1 O'dc PdIIft -NO C mi Caid^ j,11 ll^ oh 15

WK« «» u«" m icn«o it-NO CTEDIISi ntiuM

DEALERS & DISTRIBUTORS WANTED
mm

- t—

RUN MAV 138a / 53

 Commodore's

By DAW A. BIER

This program is a key ingredient in helping

you budget your meal expenses.

One of the major expenses in any 32. With certain ingredients, such as
budget these days is food. This pro potatoes, vegetables and spices, you
gram, Recipe Calculator, helps you may have to estimate the total num
determine the amount of money you ber of servings. With a little practice,
spend on a meal by figuring the total you can become very accurate.
cosl of a recipe's ingredients and cal Next, you will be prompted for the
culating the cost per serving. servings used. If the recipe calls for
Written entirely in Basic for the 3 % cups of milk, enter 3.5. If it calls
VIC-20, the program will also run as for 2 eggs, enter 2.
is on the C-64, PlusM and C-10. The The lasl prompt is for the number
program begins by asking you for the of servings. If you plan to feed a
number of Ingredients that you'll be family of four, you would enter 4.
using in your recipe. (Do not include The total cost of the recipe and the
items that carry no dollar value, such cost per serving will be calculated
as water.) You then will be asked to and listed on the screen. You will
name the ingredients one at a time. then have the option to change the
After you've entered the ingredi number of servings, and the cost per
ents, you will receive three prompts serving will be recalculated.
pertaining lo each of the ingredients The program is very simple and
used in the recipe. First, you'll be easy to follow. It can help the begin
prompted for the purchase price. En ning programmer understand the
ter the amount spent on that partic use of many of the more common
ular item. If you paid SI.10 for a Basic statements, such as Input,
do/en eggs, you would enter 1.10. For...Next and Print, and also the
Next, you will be prompted for the use of arrays. E
lotal servings per container. This can
usually be found on the package or
container. For example, a gallon of
milk contains 16 cups, so you would Address all author correspondence to
enter 16. A pound of butter contains David A. Itirr, 4973 N. Holt, #101,
32 tablespoons, so you would enter Fresno, CA 93105.

RUN It Right

54 I RUN MAY 1985 C-64; VIC-20; PbaN;C-16

 Circle 29 on Reactor Sorvice card.

CALCULATOR
)W TO AVOID
NUMBER OF INGREDIENTS ■COMING A
?4
NAME THE INGREDIENTS
INGREDIENT 1:? MILK
NOSAUR.
if dinosaurs had kept up with their rapidly changing
world, you might have a pet bronto today. (It's
INGREDIENT 2:? EGGS
probably just as well they didn't, since they
INGREDIENT 3:? FLOUR wouldn't fit into a small imported car anyway.)
INGREDIENT 4:? BUTTERI The point is, if you don'! want to get left
behind today, you need a computer with
the latest software and accessories.
No question about it.
Listing 1. Recipe Calculator program for the C6i\'iC-20, The only question is, "where
do I buy it?"
Plus/4 and Old.
Ah! We thought you'd never
ask. Computer Warehouse, of
course. Nice guys, great
1 REM*DAVID A. BIER
prices. Give us a call loday.
2 REM*4973 N, HOLT #101
3 REM+FRESNO, CA. 93705 We'll get your shipment
4 REM out tjronto-
10 PRINT"{SHFT CLRH2 CRSR DNsHCTRL 1}(8 C er, pronto.
RSR RTsKCTRL 9}RECIPE
20 PRINT
30 PRINT"{6 CRSR RTsHCTRL 9)CALCULATOR MONITORS MODEMS
40 PRINT:PRINT Commodore 1702 $209,95 Westridgo Automodem $69.95
50 PRINT"NUMBER OF INGREDIENTS Gorilla (green) $ 79.00 MPP1064 $79.95
Gorilla (amber) $ 89.00 Total Telecommunication $69.95
60 INPUTN
Modem 300 by
70 DIMA$(N) PRINTERS
Commodore S89.95
80 PRINT Commodore 1526/802 $209.00
Commodore 803 S169.00
90 PRINT"NAME THE INGREDIENTS PRINTER INTERFACES
Panasonic 1090 $239.00
100 FORI=1TON Gemini 10X S249.00
Cardco B S39.95
110 PRINT Gemini 15X S349.00 Cardco G+ S69.95
TYMACConneciion S79.95
120 PRINT"INGREDIENT"I;"{CRSR I,F ] : " ; : INPUTA Power Type (Daisy
TURBO GT SS9.95
SiD Wheel) S369.00
AXIOM Interface $79.95
130 NEXTI Radix 10 S499.00
ELITE 5 CO (Daisy Wheel]
140 FORI=1TO500:NEXTI Direct connect for
SOFTWARE
150 FORI=1TON Flight Simulator II S36.95
Commodore S299-00
Super Base 64 $59.95
160 PRINT"{SHFT CLR}(2 CRSR DNs((3 CRSR RTs AXIOM AT 550 S259.00
Paper Clip (w/spell] $79.95
}(CTRL 9)"AS(I) SlarSGIO S269.00
Muliiplan by Microsoft $59.95
170 PRINT Star SD10 S399.00
Word Pro 3 Plus $39.95
SlarSRIO $499.00
180 PRINT"PURCi!ASE PRICE:";: INPUTC Koala Touch Tablet S69.95
Okidata82,83,84,92,93 CALL
190 PRINT Tax Advantage SG9.95
Okimate 10 Color
200 PRIHT"TOTAL SERVINGS:";:INPUTT Wrile Now (Cardco) $39.95
Printer $199.00
Mastertronic Disk Game
210 PRINT Panasonic 1091 $299.00
(C64) S 7.99
220 PRINT"SERVINGS USED:";:INPUTS
DISKDRIVES
230 PRINT Commodore 1541 S199.00 DISKETTES*
240 P=P*C/T*S Rana1000 S199.00 Computer Warehouse
250 FORA=1TO250:NEXTA Indus GT S299.00 ss/dd S14.95
MSD Single Drive S29S.00 Elephant ss/sd S13.95
260 NEXTI
MSD Dual Drive $499,00 Elephanl ss/dd S16.95
270 PRINT Maxell MD 1 S1S.95
280 PRINT"NUMBER OF SERVINGS: ACCESSORIES Maxell MD2D S24.95
290 INPUTN We carry a lull line of covers, SKC ss/sd $13,95
300 PRINT nDbons, storage cases, surge SKC ss/dd S16.95
suppressors and cables. ■Prices per bos of 10
310 FORI=1TO500:NEXTI
We carry a lull line ol Commodore Hardware and Snilware
320 PRINT"{SHFT CLR){2 CRSR DNsJCOST OF REC

COMPUTER
IPE:":PRINT:PRINT" $";INT(P*100+.5)/100
330 PRINT:PRINT
340 PRINT"COST PER SERVING:":PRINT:PRINT" $
";INT(P/N*10( +.5)/100

WAREHOUSE
350 PRINT:PRINT
360 PRINT"CIIANGE SERVINGS (Y/N)
370 PRINT
380 GETA$:IFA$="' THEN380
390 IFA$="Y"THEN280 (in FL)305-274-3680; 1-800-372-0214
400 END 7222 S.W. 117th Avenue, Miami, FL 33183
Add 3"fl 'or shipping and handling charges j$3 minimum I Ad prices roffocl3*[> casfi
discount C'O6'l e.ird ofduis should ,idiJ3°„ Prices ■..:,.■.'!.■■ i'.m.-,- fl \'<, U1 r;. "n r

RUN may i%-> i 55

Telecomm

Telecommunications has been regarded by some as a services more varied and rates a bit less expensive when
futuristic and highly technical concept, conjuring up im you actually go on-line yourself.
ages of nonhuman communication and complicated data In addition, these articles will contain the actual log
retrieval. This misconception is fading today as more on procedure for the services being discussed, and they
computers enter the home and more computer users will highlight setting up and getting on-line using the
enter the realm of on-line communication. various Commodore modems. (See RUN's Special Issue
In 1983, game playing was the predominant home 1985 for an in-depth discussion on using the VIC-Modem
computer activity; in 1984, this was shared with word and Auto-Modem.) You will also be provided with sup
processing as the top home use. Analysts foresee telecom
plemental sources to consult for more detailed infor
mal ion (in telecommunications and other on-line utilities.
munications as the fastest-growing home application in
! 985, and Commodore home computerists won't be left The amount and variety of information accessible in
out ol' this tremendous surge of online activity.
the home today are truly impressive. Traditionally, profes
sionals and business people have had a need for on-line
As a matter of fact, Commodore owners will probably
information to keep abreast of the latest news in their
be the most active home telecommunicators worldwide,
fields and to perform research more efficiently. Today,
since there are almost four million Commodore owners
however, both the kind of user and the data services
out there. Additionally, a Commodore modem with ter
available have grown more varied. The user is now anyone
minal software costs less than $100, thereby making tele
who owns a computer with a modem and who has the
communications well within your reach.
curiosity to peek at the rest of the world. The data being
While doing research for this series, I was astounded provided now goes well beyond topical research into llie
by the great opportunity that Commodore computer own
areas of public service and communications.
ers possess. Whether your Commodore is used most often On-line information utilities, such as CompuServe, the
by the adults in your house or by the younger people,
Dow Jones News/Retrieval, The Source, the Knowledge
you have an extraordinary tool for doing serious research, ln<le\. BUS and Dialog, provide the opportunity Tor de
muttifaceted communication and consumer transactions. tailed research, consumer activity and communication.
The wealth of possibilities that you have at your fingertips Entertainment, one-on-one communication, mail ser
is amazing. Furthermore, you don't have to lay out ex vice, banking, Hollywood gossip, interactive game play
orbitant amounts of money for this privilege. ing, college guidance, travel planning, home shopping,
With all of this in mind, as well as much reader interest group discussions led by professionals and university
displayed over the past few months, RUN has decided to course-work are among the activities and services now pre
publish a series on telecommunications. We won't bog sent and constantly expanding. You will find that telecom
you down with highly technical discussions on telecom municating is very people-oriented and provides you with
munications electronics, such as how a computer manages many avenues for human interaction.
to convert digital Information into analog and so on. In this series, we will only scratch the surface for you,
Rather, we will give you a detailed description of the but, more important, you will be provided with relevant
major on-line services that you can try out if you have a information that you can use immediately for telecom
modem or intend to buy one. municating. You may even be prompted to search deeper
We will also give you practical information about how to find services that will fill your own specific needs.
to subscribe to these services and how much they cost. We start in this issue with a focus on CompuServe, the
You'll be given information that is current at the time of on-line utility most used by RUN's readers, according lo
publication, but you might be pleasantly surprised to find our most recent reader surveys. B
56/RUNUAYI9H5
unications
Introducing a new series on telecommunicating with your Commodore.

On-Line With
CompuServe
By MARGARET MORABITO

w
itli a computer, a mo brief rundown of all of CIS's offer
dem ;ind n terminal ings, consult Table 1. which lists the
program, you can major headings, the areas they cover
contact CompuServe and the topics within those areas.
for just about any Introducing one of the Prom this table (compiled in January
reason. You might want to gel the 11185), you can gel an idea of the
latest information on national sports, most popular electronic diversity that this information system
perform some transactions with your supplies.
bank, do research for a college
information services, Services silt]) as the CB Simulator,
course, browse around in Scars, plan
with nearly 200,000 the Forums/SIGs (special interest
a flight itinerary for a trip or partic groups), the National Bulletin Board
ipate in a continental game of strat subscribers in the U.S. and Kasy Plex (electronic mail) pro
egy. The options arc too numerous vide the opportunity for every CIS sub
to cover in less than a book. and Canada. scriber to chat or write to others in a
CompuServe provides such a va group or individual selling. (You may
riety of databases and opportunities CompuServe has been around have heard of the on-line wedding thai
for consumer activity and commu since 196!) as a reliable supplier of occurred several months ago.)
nication that it is not surprising it is business information and commu This stage for personal interaction
mentioned most often by new tele nications services to large corpora is open on all levels: from sponta
communications participants as tions. The Executive Information neous, non-directed chatting to well-
their first on-line subscription. Services (KIS) is targeted at business planned and moderated group dis
Its subscribers are of all ages, from people and professionals, providing cussions. Recently, 1 participated in
all across the United States and Can sophisticated business communica one of the first on-line national in
ada—wherever there are phone tions, worldwide news, demographic terviews ever held, in which selected
lines. Anyone with just about any in and sales information, Havel assist members of the press were invited
come can share in its offerings. The ance and a wealth of banking and to participate prior to the event.
service is one of the least expensive brokerage services. CompuServe sponsored this activity,
to join and charges minimal rates This side of CompuServe is not ad Transaciional services, such as
(ten cents a minute). vertised nearly as much as the Con electronic shopping and banking,
CompuServe brings all the diver sumer Information Service (CIS), are gradually becoming more ac
sity of its far-flung subscribers into which is open to the general public at cepted, and CIS is providing these lo
an arena for open discussion, private a lower rate. Most home COmputeristS its subscribers. Although computer
communication and directed activ will join the latter rather than the KIS ized banking from the comfort of
ity. This emphasis on human inter because it offers enough business and your own home sounds attractive, it
action and day-to-day services may financial data to satisfy the average is still on trial lor many people. In
be contrary to what you expected person, plus so much more. time, though, you may find it easier
from a computerized information to do your banking by computer.
Services Galore Facilities for accessing infor
service. However, you will discover
that telecommunications provides CIS is arranged into seven major mation represent the largest of
much more than just highly special headings, each containing from one CompuServe's offerings. The Infor
ized research and credit reports. to a dozen subheadings. To see a mation is designed lo meet a wide
RUN MAY KB I 57
range of user requirements. Students
can gci information from Owner's Ac
ademic American Encyclopedia; IRS and Home Services Page HOM-1
Social Security information is avail NtWt/WeatkcrtSporU: The Washington Post; St. Louis Pott-Dispatch; AI* Videotex Wire;
able; business and financial services NOAA Weather Wire; Hollywood Hotline; Sports News and Information; College Press
provide data on investments, eco Services.
nomics, business and law; and ser Rrfnetue Library: Academic American Encyclopedia; U.S. Government Publication*; New
vices for professionals include Tech Times; Human Sexuality; Family Healthcare; Family Matters; The Electronic Gour
reference material on aviation, data met; Wine Guide; Worlii of ArK College Press Service; Naked Eye Astronomy; Olympic
processing, engineering, medicine Scoreboard.
and much more. Communications: Electronic Mail; CB Simulator; National Bulletin Board; User Directory;
Now that you know what Compu CB Society; Love Messages.

Serve can oiler you, let's proceed Into Hume Shopping/Banking Comp-U-Starci Electronic Banking; Athlete's Outfitter; Music
a discussion of him1 to subscribe, how Information Service; Fifth Avenue Shopper, Primetlme Radio Classics; AuioNetJ
AutuRasc; Saving! Scan,
OhaaiUm Fonmu and Crou/n and Clubs: CHers: HamNet: WilSIgi Sports; Cooking; Travel;
Space; Issues; Literary; Educators; Health; Educational Research; Games; Religion; Good
Earth; Work at-Home; Music; Human geniality; Military Veterans Services; Family Mat
ters: Ski Forum; Outdoor Forum; Raiiun Information; Democrat Sift Republican SIC;
Science Fcluration Forum.

Garnet and Enttrlaintnent: Board Games; Parlor Games; Sports Games; Games •>( Chance;
Adventure Games; War Games/Simulations; Span- Games; Educational Games; Fortune
I cDIng Games; Game SIGs and Archive*.
Education: Services for Academics; Services lor Practitioners; Services for Students and
Parents.

Home Manngrmnil: Balance Vour Checkbook; Calculate Net Raise; Calculate Net Worth;
Amortize Loan; Electronic Gourmet,
TtaotU Official Airline Guide: FIKSTWORLD Travel Agency; WWX Holiday Homes-
Yachu-RVfi State Department Advisors: pan Am Travel Guide; TravelVision; TravelFax;
West Coast] Forums; Discover Orlando; TravelShopper.
Entertainment: Hollywood Hotline; Video Information; Sho-Time Movie Catalog; I'riine
time Riiilio Classics; Words of Wit & Wisdom; ShowblzquU: Movie Reviewetles; Caine's
Mystery Magazine; The Whiz Quiz; The National Satirist.

Business and Financial Services Page FIN-1

much it costs, what you will need to gel
Nans/Reports: Business information Wire; Business Wire; News-A-Tron Commodities;
online and how to log on using (he
Slovens Busln Report; Computer Wire; Business &.- Law Review; MMS Financial Analysis.
new Commodore: 1660 Modem/300.
tm-r\lmn\ts if Quotations'. Quotations; Commodities Quotations; Corporate Analysis &
How to Subscribe Financial^; Investment Analysis Tools; Other Investment Services; Documentation &
Surcharge lufoi matinn; Expert User.
You can subscribe to CIS in two
C.ommimiialion.y t'Matl; User Directory.
ways. First, you can get a free member
ship upon buying the VIC-modem, Brokerage and Banking Unified Management Corporation; Ticker-screen; Huntlngton
Auto-Modem or 1660 Modem/SOO National Bank; Shawmui Bank of Boston; United American Bank Memphis.
from Commodore, Packaged with H'/nwf Library: Incorporating Guide; Diamond Service; Internal Revenue Service; Social
these modems is a free CompuServe Securln Administration^
Snapak thai gives you a user identifi Discussion Forums: 'Ask Mr, Fed' Economic Analysis; HiTeih Forum (Columbus, Ohio,
cation number, a secret password— Aiea Chamber of Commerce High-Tech Group).
good for one free how on CIS—and Travel: same as those in Home Service! Travel section.
the opportunity to sign up as a free
Personal Fitmtitr: Internal Revenue Service; Calculating Personal Finances; Social Security
subscriber by logging on to CIS and
Administration; Donoghue Money-Letter; Independent Insurance.
entering personal information on
Ffntmeial Services Docvmentatloa: Access Documentation; Search on Specific Topics via
line. You will need to provide your
Keyword; Update) to MJcroQuoie Manual; Preview o( Executive Service.
name, billing address, phone num
ber and method of billing. Accom
panying the Snapak is a service Table 1. The seven categories of'services offered by CompuServe.
agreement that you fill out and send
to CIS after subscribing.
Second, you can buy a Compu
Serve CIS Starter Kit at a computer
or retail Store, This kit, also including
the Snapak, costs from S20 to $30
and gives you a user's guide ($15
value), a user identification number,
secret password, instructions for sub
scribing and five hours of free on
line time.
Ml RUN MAY late
 Soon after subscribing, you will re
ceive a second password, detailed in
Personal Computing Services Page PCS-1 formation about how to log on and

News: RCA Newsletter; Tandy Newsletter; Commodore Newsletter; The AHertexi Report]
a list of services offered. All new sub
l>i".ii.i! Resear< h, Inc.; OnMoclem \Li!;.i/nu OnLlne TodsiV Magazine; CompUtCI l.an- scribers receive a free one-ye;ir sub
■,;<u^r Magazine; Family t^imjmtinj' Muga/inr; ECCA Directory. scription to OnLine Torltiy, the
Personal Computing Rifmnat Software Reportij Test Editors/Ward Processors; Utilities;
monthly CIS magazine. If you did not
Math and Statistics; Special Features; VlDTKX Information, buy a Starter Kit, you can buy the
CompuServe CIS User's Guide while on
Commumeaihms: E-Mail; ('11 Simulation; National Hulletiu Board; L'scr Directory; Atccss
line. Ii provides you with an overview
(Public File Area).
of CIS and a wall chart displaying all
Shop Al Home: Softex-CompuS^rve's electronic software exchange: Howard Sains Buoks;
Comp-U-Slore; Micro-Shoppe.
the services!
You have three options for billing.
(kimiriuniffitum Forums: for Commodore compute) owners and at luast !W other profes>
You can be billed on your VISA card
lional, personal and home computer users. Also Include! the Writer's Sit;, Wholu Earth
Software and several computer magazine).

Personal File Area: your own personal file management area.

Services for Professionals Page SFP-1

Aviation: ASI Newsletter; NWS Aviation Weather; KM I Flight Planning and Aviation
Weather Briefing; AVSIGh AOE'A Korum; OQIclal Airline Guide; Aircraft Insurance;
PAA Rule Changes/NTSB Qua; VIDTEX Weather Radar Maps; Jet Fuel Hodine.
Cmmunkations/Data Practising: The Direct Connection; 1'R and Marketing Forum; Com'
imuiiL'aiious industry Forum; Information on Demand.

EiigiiweriiigfTerlitiiral: (loinniuniiations Industry Koruni: Environmental Forum; FireNeti

Miner's Underground Forum; News-A-Tron Commodity Quotes; Information Retrieval
Service; NWWA Waterllnc Mining and Energy Services.

Ijgak Legal Forum; Business lntorporaiin|! Guide; Business and Lav.1 Review,

Mtdkak AAMSl Medical Porum; ASCMD Forum: OBGYN Forum; FOI Newsline-FDA
[nformation; AAMSl Coinmunlcatlans Network: HealthNei; Op-Net Kch-uhi; HeallhCom.
jrwflm (The Diamond Sy.ttrm}: System Intro; Diamond Information; Diamond Wholesale
Price Data; Diamond Market News & Reports: Diamond Buy Listings; Diamond Sell
Listings; RDC Message Ctr.

Real Estate: The World-Wide Investment System.

Military Veterans Semites; Introduction; Inrormation 11 ii;lilt^;tits; Features and Hook Re

or Mastercard, or you can have your
views; Ask A Vet; Answers to Vuiii Questions; POW/MIA Information; Milit.uv VeUnns
Fonim; Veterans National Locator; Ageni Orange l.eg.il Action.
local bank billed each month. With ap
proval from CIS, you can also use a
The Electronic Mall Page EM-1 business account for billing.
Introduction; New if Noteworthy; Ordering Instructions; Directory of Merchants: Brtmae ihr Mall; As for rales. CompuServe charges
Tiilk lo the Manager; Enter the Mall. an hourly rate for Standard and Prime
usage. Mosi people will use Standard
User Information Page CIS-4 time (SO an hour or ten cents a min
What's New. ute), which is from fi I'M to 5 am week-
Command Summary and Usage Tips, nigh ts and all day on weekends.
Feedback To ConpuSenx problems; V1DTKN sotlwarc questions; lulling i|ues(ioiis; ihau^c Holidays specified by (US also fall into
address; tequest additional services; general comments and questions. Standard usage. You will be billed in
Order Products, Cuttles. Etc. one-minute increments for (he on-line
Welcome in Default: Terminal Type; Service Actions; Printer Setting; View or Change usage. Prime-time usage is from 8 AM
Terminal Settings; Change Password; !'■; i Information, to (i I'M on Mondays through Fridays

Logon/Logoff Instructions: CompuServe; Tymnet; Telenet! DataPac at $12.50 an hour.

(hil.int TtKbrt. There are certain databases and
services thai have charges in addition
Duciimentntion.
to the regular on-line charges. These
Information Service Index Page IND-1 are called Transaction/Premium pro
Sfarrhfor topic; all indexed O'pitv. index list: explain intlrx.
gram charges and are listed in the
information accompanying your sub
scription. Most of these deal with
stocks, investment support and II-
naneial news.
CompuServe's Customer Service1
can be accessed on-line. Al any
prompt, you can ask for help with a
particular database; or, through CIS
Feedback service, you can ask ques
tions that will be answered through
Easy Plex. Also, you can find answers
RUN MAY IMS/59
to many of your questions within dis the port labeled Line on ihe back of word and pressed the return key, you
cussion forums and theCB Simulator the modem. Then insert one end of will have completed the log-on pro
service on-line. In addition, you can the plug supplied with the modem cedure. A shod greeting will be dis
phone for help direct to CIS's Cus into the port marked Phone on the played, followed by the main menu,
tomer Service Department ;it (800) back of your modem, and the other which holds the seven major head
848-8990, end into your telephone. ings listed in Table I.
Two audio cables are supplied with
What You Need to Go On-Line Now What?
your Modem/1500; they will connect
Commodore home computer own lo either your Commodore monitor Navigating ihrough CompuServe
ers need only buy B modem to gain or a television set to provide sound is quite easy, as long as you know
the ability to telecommunicate with when auto-dialing. Enstnictions for where you wani to go, but CIS is so
CompuServe. The three Commodore these audio connections are tailored enormous that it can be overwhelm
modems provide sufficient choice for to your specific computer and mon ing to a newcomer. The navigational
anyone's needs. The 1600 VIC-Mo- itor and are discussed in detail in the system is a combination of menu se
dem (about S<>0) and the lbT>0 Auto- manual. lections and commands.
Modem (about S100) come with a ter The disk included with your mo If you don't know where you are
minal-emulator program that lets you dem holds an excellent smart ter going, you can follow the path of
communicate will) most information minal program, called IliggyTerm menus that will lead you further and
services and bulletin boards, using (named after the programmer), which further into the inner depths of this
your VIC-20 or Gf>4 computer. This will work on the C-(34 and Plus/1. huge information utility. If vim do
software does not give you the ability After powering U]), load and run the know what database or service you
to send, save or print files of data, but HiggyTerm boot program. A menu want, you can get there fast by typ
it does let you view as much infor showing nine options will be dis ing the appropriate command, usu
mation as you wish. played. Press 9 to enter the auto-dial ally in the form of GO followed by
The new Commodore 1(560 Mo option. Next, press 0 to type in your lo the service's abbreviation. (CO CBM
dem/300 (aboui $100) includes an ex cal access telephone number. Once will take you to the Commodore In
cellent smart terminal program that tlm is entered, you simply press 1) for formation Service.)
lets you capture your data in (he dial, followed by 0. The ModemJSOO Your first free hour will be well
memory buffer fin later printing or will automatically dial the phone num spent browsing through the multi
saving. This new modem will work ber and switch you to Terminal mode. tude of available services. When you
on any VIC-20, G64, SX-64 or Plus/ When you hear a continuous high- finally do subscribe, though, you
4 and is well worth the price. pitched sound from your modem, you should have an itinerary planned be
Once you have a modem, terminal know that you have made connection fore going on-line. This will save you
program, and your user I.D. and pass with the CompuServe access network. money, as you will no! waste lime
word, you need only the phone num Wail for ihe sound lo cm\ arid then wading ihrough menus or pausing fin-
ber of ihe nearest access network. press the return key. There's no cable- decision making. You can have great
You can choose from Telenet, Tym connecting or switch-Hipping, as with fun on-line, but, remember, your min
net. DataPac (for Canadian users) the VIC Modem and Auio-Modem. ute charges add up and your phone
and the CompuServe telephone net You will immediately be prompted bill grows. Use your time wisely.
work. If you have an access number widi "Host Name;" whereupon you Next month, we will give you a
within your local calling district, you should lype CPS or CIS. Then you close look at the Dow Jones News/
will not have to pay any charges be will be asked for your user I.I)., which Retrieval service, which is also of
yond your actual CIS oii-line rates. you type in, followed again by Re fered free with the purchase of a
Setting Up and Logging On turn. Lastly, you will be aski-d for Commodore modem. (b!
To log onio CompuServe, you will your password. When you type it in,
you will not sec it displayed on your
need your user identification num
screen. This is a security measure lo Address all author correspondence to
ber and your password. In RUN'S
help keep others from learning it. Margaret Morabito, do RUN editorial,
Special Issue, the article "It's Only a
Once you have entered your pass 80 Pine St., i'eln borough, Nil 03458.
Modem Away" discusses the setup
and log-on procedures lor the VIC-
Modem and Auto-Modein. For those
Nil nits and Addresses:
of yon who have purchased the 1660
Modem/300, here is a rundown of the CompuServe Information Services
PO Bhx 20212
log-on procedures for that device.
5000 Arlington Centre Blvd.
What follows will especially interest
Columbus. OH 4S220
Ihe new Plus/4 owners, as the 1660
will wink on th.it computer as well.
Selling up the Modem/300 is not CompuServe Customer Service 800-848-8900

difficult, as its user's manual provides CIS Direct Line 614457-8600

CIS Account Enquiries 8OO-84H-81H9
graphic illustrations and instructions
Commodore Customer Assistance 21S-4S6-42OQ
applying to all four Commodore
computers. With power off, insert the Books lo consult:
modem into ihe user port of your The Computer Data and Databaa Source Rixik by M. Leska, Avon Publishers, 1984.
computer. Unplug from your phone C'-(W Trlrrnmnwoikalions liv |. Erlckson, McGraw-Hill I'liMUiicr-i. I!IH").
the con! that connects youi' modular
phone to the wall and plug it into
(ill / RUN WAV 19S5
Presenting the computer Mart, Newsstand, On-line Connection, Per- The Electronic Mall—A Valuable
shopping service that delivers sonal Computer Store, Record Emporium, Addition lo the Vast World of
Specialty Boutique and Travel Agency. CompuServe.
discount prices, name-brand
merchandise, and in-depth CompuServe Information Services
Take the CompuServe Electronic
Mall 15-Minute Comparison Test. bring you information, entertainment,
product information.
Wha\ you can do in IS minutes personal communications and more.
shopping the Electronic Mai! ioay. You can access CompuServe with
To make your computer even more • Access descriptions of the latest in almost any computer and modem,
useful, join CompuServe and shop in computer printers, for instance.
terminal or communicating word
our Electronic Mall. Easy enough for • Pick one and enter the order
processor.
beginners, it's open 24 hours a day, command.
7 days a week. And it offers a wide range • Check complete descriptions of To buy a CompuServe Subscription
of goods and services from nationally places to stay on your nexl vacation. Kit, see your nearest computer dealer.
• Pick several and request travel
known stores and businesses including To receive our informative brochure, or
brochures.
Bloomingdale's, Waldenbooks, American to order direcl, call or write:
• Access a department store catalog
Express and Commodore. and pick out a wine rack, tools,
toys... anything!
CompuServe's Electronic Mall'" lets
you shop at your convenience in all
• Place your order.
What you can do in 15 minutes shop
CompuServe
these departments: ping the old way. fnformaiion iv \: ■ >-. I' o Bo* 20212.
5000 Arlington Conlre Blvd., Columbus, OH 43220
The Auto Shop, Book Bazaar, Finan • Round up the family and get in
tlit* car. 800-848-8199
cial Mart, Leisure Center, Merchandise In Ohio call 614-457-0802

" it a ktvkt d CompuScrw Inc. ami I. M An H S R Slock Company

Circle 64 pn Heartoi Service cam
 1 1 I«I*1 a 1*1 1
' m w w w w if nr »*r t ^t» '

It §0000 0 0000-t mo r
• US 000 0 0 0 8
['II-
XI 1*1 vl «m

Ht+a mo H7
8S r tor !nr

►♦♦♦Sit -_.

1
►++++M I aM|E|: !
■ 1
: Irlirlrl1*! i
|
: - Bk a j HFTTi
•i I ■f
^ li li li D 1 ■ ■■■■:>:
O0«i
r1 ['I'll
tf M M M (pip ip [ I -..nFi'M
1 ♦
IB I L
v XM. »♦♦♦♦
m:...:£.-..'^.-. "«B ■ ♦ ♦♦♦♦»♦
(..■- ** ...Mar *h * J

Snakes
Outwit your three opponents
by teaching your snake strategic moves that
will help it grow into victory.

Bj DOUGLAS FISH

In Snakes, up to four players ac- After all snakes have been assigned If the computer is controlling the
cumulate points by moving their to a player or to the computer, the new snake, it chooses the snake's di
snakes around the screen to occupy screen displays four differently col rections at random, li'yiiu control the
as many spaces as possible. ored and shaped characters, 'these snake, you'll be prompted for a di

At the beginning of (he game, the are the snakes. You move your snake rection every time the snake encoun
screen prompts you to choose one of around the screen one space at a time ters a situation it does not recognize.
four options: by using one of eight keys: Initially, Che snakes don't recog
U—up V—up-left nize any situations; everything is new
1. Player controlled—new
2. Player controlled—old H—led [—up-right to them. As the snakes grow, move
3. Computer controlled—new ]—ri^hi 8—down-left by move, they begin to encounter
4. Computer controlled—old N—down M—down-right familiar situations. As soon as a snake
For the first game, each player As your turn conies up, the com recognizes an old situation, it repeats
puter will prompt you to move your the same moves that it "learned" to
chooses a "new" snake by pressing the
snake in one of the eight directions; perform the first time it was in that
1 key. If you play Snakes with fewer
you cannot, however, move to a place- predicament.
than four players, press the 3 key for
each snake without a player. Your already occupied. For example, if a snake is moving
C-fi4 will determine these snakes' A "new" snake begins the game not to the right side of the screen and
moves as the game progresses, knowing in which direction io move. runs into the edge, it will stop and

62/RUNMAY198B
 Listing 1. Snakes program for the C-6-i.

10 POKE53281 ,0:POKE53280,0:CL(0)-3:CL(1)=13 520 GOTO310

:CL(2)=4:CL(3)=7:CR(1)=81:CR(0)=87 1000 PL(TU)=PL:NEXT
20 DR(0)=40:DR<1)=39:DR(2}=-1:DR(3)=-41:DR( 1010 IFT=4THENGOTO3000
4>=-40:DR(5)=-39:DR(6)=1:DR(7)=41 1020 T=0:GOTO200
30 DIMIN(255,3):C=54272:CR(2>=42:CR(3)=90 2000 REM *********************
35 GOSUB2050 2010 SI=0:FORX=0TO7:I=PEEK(PL+DR(X)):IFI=32
36 REM ***********************
THENNEXT:RETURN
40 PRINT"(SHFT CLRHCTRL 4}{CTRL 9({39 SPAC 2020 SI=SI+2{UP ARROW)X:NEXT:RETURN
Es}" 2030 REM *********************
45 FORX=1TO20 2040 PRINT" {HOME}" :FORX = 1TO21 : PRINT :*JEXT: RE
50 PRINT"(CTRL 91 {CTRL 0J(37 SPACES]{CTRL TURN
9} {CTRL 0}" 2050 REM *•******•***•#+******
60 NEXT 2060 PRINT"{SHFT CLR|";FORX=1TO8:PRINT:NEXT
70 PRINT"{CTRL 4){CTRL 9}{39 SPACES}" 2070 PR1NTSPCI16)"SNAKES"
B0 REM *•******♦**•*•*•**••*** 2080 PRINTSPC(16)"(6 COMD Ts}"
90 FORX=0TO3 2100 PRINT"{HOME)":FORX=1TO15:PRINT:NEXT:PR
100 PL(X)=1024+INT|RND<1}*20)*40+INT(RND(1) INT"1. PLAYER CONTROLLED-NEW"
+ 36) 2110 PRINT"2. PLAYER CONTROLLED-OLD"
110 IFPEEK(PLfX) )<>32TIIEN100 2120 PRINT"3. COMPUTER CONTROLLED-NEW"
120 POKEPL(X),CR(X):POKEPL(X)+C,CL(X) 2130 PRINT"4. COMPUTER CONTROLLED-OLD"
130 NEXT 2140 FORY = 0TO3:PRINT"{HOME}":FORX = 1 TO1 2:PR I
200 REM ********************** NT:NEXT:PRINT"SNAKE"Y+1"TYPE : (CRSR L
210 FORTU=0TO3 F|";
220 CL=CL(TU) :CR=CR(TU) :PL = PI.(TU) :MV=0 2145 POKE 204,0
230 GOSUB2000 21 50 GETA$:IFVAL(A$)=0ORVAHA$) >4THEN2150
24 0 IFSI=25 5THENGOSUB2500::GOTO!000 2160 SN(Y)=VAL(A$):PRINTA$:POKE204,1
250 IFIN(SI,TU)THENPL=PL+IN(SI,TU):POKEPL,C 2165 IFSN(Y)=1ORSN(Y)=3THENGOSUB3070
R(TU}:POKEPL+C,CL:GOTO230 2170 NEXT:RETURN
260 GOSUB2040:PRINT"WHAT DIRECTION, PLAYER" 2500 GOSUB2040:PRINT"{30 SPACES}"
TU*1;:POKE1930,CR:POKE1930+C,CL 2510 GOSUB2040:PRINT"PLAYER"TU+1"IS TRAPPED
265 IFSN(TU)>2THEN500
266 POKE198,0 2520 T=T+1:RETURN
270 GETA$:TFA$ = ""THEN27(J 3000 REM *********************
280 X=(A$="B") + (AS="!l")*2+(AS = "V")*3*( AS 3003 GOSUB2040:PRINT"{30 SPACES)":FORX=0TO4
="U")*4+(AS="I")*5+{AS="J")*6+(AS="M")* :SC(X)=0:NEXT
7 3005 FORX=1024TO1924
285 X=ABS(X) 3010 I=PEEK(X)
290 IFX>0ORA$="N"THEN305 3020 FORY=0TO3:IFI=CR(Y)THENSC(Y)=SC{Y}+1
300 GOTO270 3030 NEXT:NEXT
305 IF(SIAND21UP ARROW) X) = ( 2 [ UP ARROW)X)T)iE 3040 GOSUB2040:FORTU = 0TO3:PRINT"PLR."TU + 1 "-
N270 "SC{TU),:NEXT:POKE198,0
310 IN(SI,TU)=DR(X):PL=PL+DR(X) 3045 PRINT"{HOME}"EPC(7)"(CTRL 9JPRESS ANY
320 POKEPL,CR:POKEPL+C,CL KEY TO CONT."
330 GOTO!000 3050 GETA$:IFAS=""THEN3050
500 X=INT{RND<1)*8) 3060 T=0:GOTO35
510 IF(SIAND2(UP ARROW)X)=(2[UP ARROW)X)THE 3066 REM *********************

N500 3070 FOKX=0TO255:IN(X,Y)=0:NEXT:RETURN

RUN It Right

Commodore 64

wail to be taught where to go when snakes can no longer move to a space. computer's snake, with no memory of
it runs into something on the right. Then the computer will take about a previous games, press the 3 key.
If you move the snake up ;it thai minute to total all of the characters Strategy is important in Snakes. As
point, it will store in its memory this on the screen and give each player a game progresses, you can create for
situation and the move, so the next his score. your snake a series of moves to
time il runs into a wall on the right, hinder an opponent's moves around
it will always move up. Strategy is the Key
the screen.
If your snake can use a previous Press any key to return to the tide Positioning is another strategy you
move or series of moves to advance screen. In this game and games im can use. Your snake is in a good
into a space or spaces, the computer mediately following, you may choose position if it can trap any opponent's
automatical 1) moves your snake for to have the computer save any or all snake within a small area, leaving it
you. Your snake will continue re snakes' moves from previous games. With few spaces to fill. ®
peating this pattern until il readies These are "old" snakes. Press the 2
a place already occupied. and 4 keys to save each snake's moves
You must, however, move your from these games. If you wan I your
snake to a new space if the computer snake to Start the game anew, with no Address all author airri'spoTidriice to
doesn't make a move for you. memory of previous games, press the Doughs Fish, 1106 S. 6th St., Marshall-
The game is over when all four 1 key. To start a game anew for the town, IA 50158.

RUN MAY 1985 / 63

 'My purchase of RUN is a
better investment than my
computer—I get a much
higher return on a much
smaller investment!"—
D. Suggs, Tallahassee, Fla.

Join the thousands of C-64, Plus/4, and VIC-20 users think that yours is the best. I now have a subscription
around the world who enjoy subscribing to RUN every and look forward to every new issue."—Eric D. Stolen,
month. They've found RUN 10 be an unrivaled Com Man is tee, MI

modore resource. And they're right—RUN is "In a remarkably short time, RUN has become the
one of the fastest-growing Commodore best journal for Commodore computer
magazines on earth! users...I appreciate the coverage
The convenience of personal delivery, you devote to reader comments and
plus a savings of 44% off the newsstand questions (Magic, Mail RUN, and
price are yours when you subscribe to Commodore Clinic), as there is
RUN—the year-round Commodore nearly always an interesting hint or
companion. tip in one of these columns!"—J.
You got 12 great issues for just O'Hare, Victoria, B.C. Canada.
$19.97, plus special announce Throughout the year, you'll find:
ments and offers available only to • Exciting tips, Commodore tricks,
RUN subscribers! and programming ideas in RUN's most
Each month, you'll learn the popular column, "Magic".
fun of computing while ex • Challenging, fun, and educational soft
ploring the limitless possibil ware.

ities of your Commodore. • A rundown of the products best suited

Here's what satisfied readers are for die new C16 and Plus/4.
saying: The benefits roll on.. .time-saving pro
"I read many magazines after I bought my 64, but I gramming ideas, no-punches-pulled product
reviews, applications to broaden your com
puting horizon, tutorials and assistance from

YES! I want to make a great investment

reknowned authors in the Commodore field,
and of course, great ideas and tricks that have
Send me 12 Issues of BUN for the low sub-eription price of S19.97. I'D save 44% off
worked for fellow Commodore users.
the newsaand piice.
Act today—and save 44%—joining the
□ Payment enclosed D Bill me thousands of subscribers who've found tfiat
RUN is their best computing companion.
Name .
Just send in the coupon or insert card, or call
TOLL-FREE 1-800-25&-5473. In NH, dial 1-
Address.
924-9471.

City . Slate. .Zip.

Canada A: Mexko 123.97: Foreign Surface $39.97, ] year only, US fund! drawn on VS bank- foreign air
mail \ihJMr ini|Uilcr Pitaie allow 0 I" I* weeki far delivery.

RUN • Box 954 • Farmtngdale, NY 11737 35SBJ

BEFORE LOADING YOUR SOFTWARE
MAKE A BACKUP COPY WITH

THE AUTOMATIC DISK BACKUP

SYSTEM FOR YOUR 64 & 1541 DRIVE!

Uses NEW Vari-sector track scanning process • NO analysis required, just swap disks. ..& NO damaging
Actually copies a FULL disk in only 3 MINUTESI drive knock during errors, format, or copying
Easiest to use —TOTALLY automatic copy utility • Detects 5 DUPLICATES extra sectors, hidden ID'S,
NEW Auto-Sensor detects and copies half-tracks altered headers, frequency & track density
Breaks through LATEST protection schemes • AN copiers AUTOMATICALLY put "errors" on backup
3 copiers in II Includes FAST Copier, VARI-SECTOR ■ UNLOCKS protected disks for backup copying
Copier, and HALF-TRACK Nibbler - FASTEST & most advanced backup copier you can buy
Copies normal & HALF-TRACKS up to track 40 - Writes errors 20, 21, 22, 23, 27, 29 WHILE COPYING!
NEW sync-seeking logic reduces copy time ■ Transforms your 1541 into a SUPER-EAST copy drivel
100% machine code for fast, RELIABLE operation • PRODUCT SUPPORT tel. it, revisions, and upgrades

UP TO 4 TIMES FASTER THAN OTHER COPIERS!

ONLY

$49.95 toodercall805-687-1541 ext. 84

Technical line 805-682-4000 exl, 66
for entire system

i > i'i ." ■ ■''-■■ ■' ■" "mhi A;;.:'.')'/! mofWfj/WCTina tatorainaiW UJ SSJ0W UW*' tki: :<»w/mm Wow wy. mil w.on «t, <».Am. no. Mti wjj. (/■/jfli.jfl.
i 'i ■ :'i'\i a"' ■ ■■ ,: orucn<uW (HUO, Jrtii

DISKMAKER PAYS FOR ITSELF THE FIRST TIME YOU USE ITI

3463 State Strm • Suiie I541S - kinta Barbara

Cuds 301 on Readof Service etia.
 SPOTLIGHT
On fivducthrity

The
High-Resolution Graphics
Bj GLENN Van VALKENBURG

No more Peeks and Pokes to achieve those high-

resolution graphics displays. The Plus/4 lets you control
these graphics with easy one-word commands,
' like DRAW, CIRCLE and BOX.

I love computer graphics! Partly 1) is provided to illustrate one way down-cursor key returns the cursor
because of that, I also love the Com the operations can be used with Basic to view.
modore Plus/4. Graphics arc easy on routines to draw a picture. The High-Resolution modes pro
the Plus/4, and, to me, easy means In the following descriptions, pa vide maximum detail, allowing in
more fun. rameters in angle brackets are re dividual pixel (dot) control of the
The Plus/4 graphics procedures quired, in the range shown, to avoid 820-wide by 200-hlgh screen. This
are similar to those of a Commodore a Syntax error. If one optional lo mode allows only two colors in each
04 with a Super Expander cartridge, cation value is given, either X or Y, of the 1000 (40-wide, 2!>-high) char
but the Plus/4 has the advantages of then both are required. acter positions. Four colors are al
no cartridge to purchase (thus, no Also, all optional parameters pre lowed in each character position in
worry nor nuisance of a cartridge on ceding a desired parameter must be both multicolor modes, but with re
the hack of the computer) and sup represented at least by a comma. duced resolution. Each horizontal
port of abbreviation of graphics key Don't end with a comma, though, or position becomes two-pixels wide, re
words. Another advantage is thai in you'll get a Syntax error. Parameters sulting in a 160-wide by 200-high ma
shifting die Plus/4 to Split-Screen shown in parentheses are nol re trix. Option (.1) clears the screen in
mode, with text lines at the bottom quired, but. if used, must be in the the mode entered.

of the high-resolution screen, graph given range. The brackets and paren If no value is shown, the zero value
ics in die text area arc not lost. With theses are only for clarity in describ is assumed and leaves the screen in
the Super Expander, they are. The ing the operations and arc not used tact. GRAPHIC CLR is used when all
PlusM can move freely between all when working on the computer. graphics work is completed, making
five screen modes without this con available to Basic 10K of RAM. if it
cern, letting VOU easily mix basic mil- was previously set aside for graphics
Preliminary Setup Commands by use of GRAPHIC <I to4>.
lines with Direct mode commands.
This article will discuss and show The "open sesame" to this treasure COLOR <0 to 4, 1 to l(i>, (0 to
each of the operations (commands, is GRAPHIC < 0 to 4 > ,(l) or 1). The re- 7) is used to assign background, fore
statements or functions} related to rhe quired parameter designates the ground, multicolor 1, multicolor 2
Plus/4'a high-resolution graphics, with mode, in the following order: Normal and border colors. These "source"
the parameters allowed or required, Text, High-Resolution, High-Resolu- areas make up the first parameter (0
and will describe their purposes. lionfl'ext Split-Screen, Multicolor and to 4, respectively).

These high-resolution commands are Multicolor/Text Split-Screen. The 10 colors available are printed
part of the enhanced Basic 3.5 and The Split-Screen modes provide a on keys I to 8, with colors 9-Hi on the
should not be confused widi the built- five-line area of normal text at the bottom row. The optional luminance
in low-resolution graph-making pro parameter controls color brightness.
bottom of the screen. In these modes,
gram tiiat is integrated with the PlusM the cursor can go behind and be bid Black (coior number 1) is the only
word processor and spreadsheet den by the drawing area, but the color not affected by luminance, so, in
A demonstration program (Listing theory, there are fifteen colors times

RUN It Right
00 / RUN HAY 1985
Plus/4; 016
 iniiJiMinmifiiiim.fi

eight luminance levels (120), plus which DRAW connects in Sequence. nuns a box clockwise around its cen
black, for 121 colors. One X,Y location without the TO ter, and Paint, if enabled by a value
SCNCLR completely clears the produces a dot. If the pixel cursor is of 1, Fills the box with the source
screen in the current mode and is on the starting point, only the second color. Source is specified first, then
{■i (shift function I). location need be shown (after TO). the coordinates specify diagonally op
The DRAW command is powerful posite corners of the box. BOX can
Three Impressive Commands
and easy to use. To try it out, enter frame your screen much more simply
Only three of the IK high-resolu- the following one-line program: than DRAW. Follow the same proce
lion-related operations directly gen dure, except, for line 10, use:
H) DRAW 1, 0,0 TO 319,0 TO 519.199 TO
erate the picture: DRAW, I1OX and
0,199 TO 0,0 10 BOX 1,0,0,319,199
CIRCLE, All three can specify loca
Now enter CRAPHICL1 in the Di To fill in the box, add ,,l to the end
tion by direct coordinates, relative to
rect mode to gel into High-Resolu of line 10.
(he pixel cursor or by distance and
tion mode, and clear the screen. The most sophisticated of the group
angle. Relative location X and Y vari
ables are preceded by a " + " or " - "
Enter RUN (you won't be aide to see is CIRCLED to :i),X.Y.XR.YR,SA.KA,
the text), and your program will Rot at ion, Increment. The CIRCLE
10 indicate direction. Angle and dis
frame the screen, in a clockwise operation can do most of what
tance use a semicolon separator in
direction. DRAW and BOX can do and more,
stead of a comma.
BOX (0 to 3).X.Y,XI.Y I .{Rotation 0 but there is a price. It has nine pa
Starting simply, DRAW (0 to 3),X,Y
to 360},(Paint 0 or 1) adds a hit ofzest, rameters. You seldom need all pa
TO Xl.YI TO... is used to create or
with two new parameters. Rotation rameters, but even when you do, it's
erase a point, a straight line or mul
tiple straight lines. The first param
eter is color or source. Strictly
speaking, it is source, but since you
determine the color specified for
foreground, background and so on, 1—Color Source (sl-i color] 10—Art ending angle
then source indirectly calls for a 2—Color 11—Rotation
color. Just remember that where ?i—Luminance 12—Increment (included .mule1, ea. side)
source is called for, a number in the 4—CIRCLE color 13—Variable R + A(A(13))- R 1
range 0 to 3 (4 is for border only) B—CIRCLE center (X) 14—FOR R = A(14) Or PAINT Coloi
is required, but any of IB colors can 6-CIKCLF. tenter (Y) 15—TO A(15) PAINT location
7—X radius 18—STEP A(lfi) PAINT Y location
he assigned to that source by the
8—Y radius 17—Subroutine identification
COLOR command.
!!—Arc starling angle
To erase a feature, draw over it,
specifying a source (hat is the same Tabia i. Definitions ojsubscripted mruibks in Listing i.
as the background in that area. X and
Y, XI and Yl are line end points,
RUN may 1985 / 67
Circlfl 179 on Roprtor Snfvlco cfl'

worth it. You can create squares, tri

-T.h'j I St W »T«1:1 angles, boxes, ellipses, polygons with
any number of sides, or things as
VOICE SYNTHESIZER RS232 ADAPTER FOR
simple as lines or points.
FOR APPLE AND COMMODORE VIC-2O AND COMMODORE 64
The polygons are defined with ihe
Increment parameter, which speci
fies how many degrees of arc to cover
interfa,ce
with a Straight line. (For example, 90
The JE232CM allow* crw^r ol ilandajt! i«tiaI HS232
degrees yields a four-sided figure.)
pftnl*-s modems, ate to your VIC-2Q and: C-&4- A 4-po* The general equation is "360/incre-
swrichallow? We n. .-= c- i-r i"^ -... i:roi linn. Compkie
i retaliation and operation insEmcbonB Included.
ment = number of sides." If the in
-Plugs inio User flirt ■ Pravtdes Standard RS232 signal
levels -Uses 6 srgrtals fftansmii. fie«i^. Clear to Sor>a. crement doesn't go evenly into 36(1,
Request Io Send, Data Terminal Ready. Data Sol Headyi

JE232CM S39.9S
one side will be shorter than the rest
PROTECT YOURSELF...
Running quickly through the other
■ Over 25Q word ■,■■■ iNi.i if, ■ rri - - ■ allow U ■■ r.rri Mu ■■ ..' parameters, left to right, we have:
moru than 500 woids ■ BuiH-lft ampJilier, speaker, voiumo DATASH1ELD
conlroF and nudio jnck - Flocmatas □ cloat, natural male
Surge Protector source; the center location; X and V
vo-ce ■ Pliig-ln uw roftUy wi(H dQCumenmiion and .sample
SOnwtl ■'->■■'■ :.i/n r* I . !'. VV . I '■ " Eliminates voltage spities and EUI'RFI radii: starting and ending angles that
noise before it can cam age your equ id-
■ -u . ii'.-, Warning ■ Tetaommunicaliori meniorcauaedatalDss 6-mo warrEinTy specify an arc if desired; and degrees
' Teaching - Handicap ■*■ rl Powei dJ^ipdtion [100 nucfosoconda)1
■ l.v 'i i»i" it i. :■ - Gamn 2.000.000 KBlla of clockwise rotation. The option of
D—cHpMqn Pric* Description FVtce
JE520CM ForComrr.flfl4VlC-?0 $114.95 4 Sochels.
differing X and Y radii offers not
MODEL 75
JE520AP RtrApDloll, llf and/fo £149,95 On/OH Swilch S49.95 only ellipses, but also ati adjustment
6 SockelB. Super RItors,
MODEL B5 in proportion, if desired, Clinics
Game Paddles Ofi/OH Switch SS9.95

MODEL 100
6 Sockols, Super Fillers. drawn with equal X and Y radii prim
JSP Atari Puddles £2.95 Lou Voltage Alarm 589.85
gsp Commodore Poddies, ♦., $4.95 MODEL 110AMS ?^octets. Super Hllers Aulo
almost in correct proportion, but are
Master Switch S99.95
{Atari I'.i.l.iii . modified tor VIC-20 & C-G4} too short or tall on screen, depending
S1D.0D Minimum Order-US Fund! Only
California Rnldwili AOd &/,% Sales Tm
Spec Steels - 3Q« e«h
Send 51.DO Postage for your
on the current graphics mode.
Shirpomg - Add 5^n plui $1.50 Iniurancc CIRCLE has no integral paint com

J
FREE IS85 JAMECO GATALQQ
Q'OI" ElHlTQnitl *O.IO*-C»
Send SASE lor M Prices Subject Io C
mand, but any enclosed figure can
ameco be filled with color by using PAINT
ELECTRONICS
J (0 io S),X,Y,(Mode 0 or 1). First spec
ified is source, where the painting
1355 SHOREWAY ROAD, BELMONT, CA 94002
will statl. then mode. Mode indicates
the specified fill boundary. 0 calling
Circle 96 on Reaoer S«rvic< card.
for tile PAIN'T color and 1 calling
for any ntm-background color.
The demonstration program starts
by drawing a bush, using the CIRCLE
command. It uses an X radius of 40
and a Y radius of 30, and paints with
source 1, which was set at 6 (green),
luminance 7.

And Lots More

SCALE (0 or i) determines the

range ofX and Y screen coordinates.
On Screen Status Display When SCALE is enabled (parameter
Ofemew oC FONTMASTER of 1), the X and Y coordinates extend
LINE '0 CPI Jl«o word processor features: from 0 to 1023 in each of the four
COL JUST B INSIT
1) Powerful block manipulation high-resolution modes, allowing
Commands (Cul, Paste. Move. Overlay).
Cur tor loctllon El User - (riendly effects Include {touts.
movement between the modes with
Scoll Ind'cPTc super/sub scripts, underlining, bold lace, out adjusting dimensions. The nor
PflnT failures currently bfling i etc)
r*H#namo ol toil mal range (parameter 0) differs
Perc onlays nl RAM (memory) i 3) Up to eight different fonts can be userj
Hulsr (also mBSSBiQO 'Inal simultaneously. depending on the screen mode, as
Word wrap/juVlflcaMon Mag 4) Many printing options such as page number previously described. The sample
'Bloch marked' flag ing, titles, word-wrap, right justification, and
Inurt mode fug
more.
program was meant for SCALE 0, but
Cfiarfldera p-sr inch
NurTtbO' of I he cuireni loot 5) Eight disk I/O commands (Save, Load. Verily, will run (sort of) in SCALE 1.
Name oT |h» current Font Erase. Etc.).
The screen coordinates are not
Create Your Own or choose Irom over 15 type styles provided In this limiting, in that coordinates off the
jniqUB program. (For ihoC-W for any Epson CompaliDleorSlarMicronics printers) screen can be called out as location
Including: Bauhous English Shiidai.] Manhattan parameters. It is perfectly feasible to
■ look Italic itop have the computer draw to a point
Bold HaLrpUi QVTE itopbold off screen, and even draw several
Pu«l*w uwopepiBdfi Hues completely off screen. If the
drawing comes back on screen, it will
(913) 827-0685
do so in a manner logically following
Inc. 3010 Arnold Road Sallna, KS 67401
the invisible geometry drawn.

<5H I RUN MAY 19SS

 Remember that if you try to specify variables, sets number of variables,
;t direct coordinate in a negative X starts drawing. If "Q," changes fore
or Y location (by using a minus sign ground color to black: Syntax error
in front of the number), the com returns (exi.
puter will Interpret thai number as Seeing the Plus/4 's Line I—-Sets color variables, then
a request for a location relative to
the pixel cursor.
high-resolution graphics a For. . .Next subroutine containing
a drawing subroutine (line 2).
SSHAPK and GSHAPE are used to in action is much Line 2—Ceneratcs lines based on
store portions of the screen in mem values from Data staiements.
ory, and later recall them. [nSSHAPE more rewarding than
/.ihc J—Switches to line o on 999
S.X.Y.Xl.YI. the first parameter is reading about it... from data or sets color and paints.
the name assigned the saved shape. Lmt /W—Reads data and sets vari
The location parameters define di It offers you a ables, 1( data is negative, drops to
agonally opposite corners of the great opportunity to line '20 to change X and skip over
space to be saved. The data on the unchanged variables.
area saved is held in a suing, wiiich easily incorporate all Line 20—Advances X to skip un-
Basic limits to a maximum <>f 255
kinds ofgraphics needed variables.
characters, so the area that can be Lines 30-80—Start of data. Data for
saved is rather limited. GSHAI'K $, and text displays A$(X). "X" determines variables, as
X, Y. (Mode I) 10 4) recalls the string,
into your programs. shown in fable 1.
with the upper left corner at the spec Lin* I HO—Checksum. To use ibis—
ified coordinates. Kxotic OR, AND after you have typed in the pro
and XOR display modes are avail gram—type LIST-30: (hen use the
able, as well. CUTSOr to scroll (he lis(ing to (he lop
l.OCATF. X,Y allows invisible move of the screen. (Make sure your listing
ment of the pixel cursor and is very 24) where the lext will start. Nexi begins exactly at the lop of the
useful wiib RDOT (2), which returns comes the text to be printed and screen.) Now type over READY with
the color of (he location of the pixel an option for reverse video. This is a RUN 100 and press the return key.
cursor. RDOT, as with the following very handy command, equivalent to Ignore the fust number ( - 1000); the
four functions, requires that the ar PRINT AT (found on some other rest are checksums for each screen
gument be given in parentheses. computers), but doubly handy, as it is line. Note the numbers and then en
RDOT <(() or l)> returns the X usable in the I tigh-Resolulion modes. ter LIST40— and repeal (he above
;md Y coordinates of the pixel cursor. If you wish to gei a belter notion scrolling and checking process.
RCLR <(() to 4)> gives the color of what tan be done with the Plus/ If there are no typing errors, the
assigned to the source whose number 4's high-resolution graphics, type in numbers will be 113, 57, 225, 138,
is used as the argument. Rl.UM <(() Listing I. Seeing ii in action is much 250,317, 164,260, 185,205.494.890.
io 4)> gives the luminance of the more rewarding than reading about 782. 8(58, 7f><), 878, 738, 926, 767. 869,
source. RC.R <(X)> returns the it. The Plus/4 offers you a great op 742, 924, 741, 727,402, 407, 280, 28t>.
Graphic mode. JOY <(] or 2)> re portunity to easily incorporate all The last two numbers are for the
turns a number that reveals the spec kinds of graphics and text displays blank line and (be RUN 100 line. H
ified joystick position. into your programs.
The last command is one that al
lows you to place (ext anywhere on
the screen in any mode. It is CHAR Explanation of Listing 1

<0 io 3.X/V > .(XS). reverse flag (0 or Line 0—Clears screen, prints R/Q> Address all author rarrrspimdetire Io
1). First comes source; then the char (Run/Repeat or Quit). If "R." goes to Glenn Van Valkenburg, I Randolph Si..
acter column (0 to 39) and row (0 to Multicolor mode, clears screen and Plymouth, Nl! 032frt.

Listing 1. Demonstration prommfor PM4 high-resolution graphics.

0 PRINT" tSHFT CLRJR/Q ?' 'GETKEYBS:IFB$= "

R1 'TilENGRAPHIC3,l :CLR:DIMA{ 17 ) :G0T01 0 : EL
SEC0L0R1,1
1 COLORAf1),A(2),A(3):FORR=A<14)TOA(15)STE
PA[16):A(A(13))=R:G0SUB2:NEXT:RETURN
2 CIRCLEA(4),A(5),A(6),A(7),A<8 ,A(9),A(10
) ,A(11 ),A(12):RETURN
3 IFAM6 )=999Ti]EN0:ELSECOI.ORA( 1 ,A(2),A( 3)1 ,1,1,6,1,-16,3,-15,999,3
PAINTA(14),A(15),A(!6):RETURN FORY=0TO14:PRINTZ-1000;'' '' , :Z=O:F
10 FORX=1TO17:B=A(X):READA(X):Z=A(X):IFA(X 0TO39:Z=Z+PEEK(3O72+X+Y*40):NEXTX,¥
)>=0THENNEXT:ONA(17)GOSUB1,2,3:GOTO10
20 A(X)=B:X=-Z:NEXT:DATA),6,7,1,115,172,40

RUN MAY 1885/69

 Circle '5 on Reader Semce card

COMPUTER AND SOFTWARE SUPER AUTO com

COMMODORE 64
SALE DIAL MODEM 64
* with $19.95 Software Purchase (Best communications package in USA)

$1 39°° BEFORE
YOU
CALL PRICES
MAY
BE
oo

• 170K Disk Drive Sl«.0O* • Computer Learning Pad $37.95

ORDER LOWER
• Tractor Friction Printer $169.00 • New Voice Synthesizer S49.00
• 13" Hi-Res Color Monitor 5189.00* • 12" Green or Amber Monitor S79.9S
■ Soe Page 13 • 12" Daisy Wheel Printer S199.00
SPECIAL SOFTWARE COUPON

■ COMMODORE 64 COMPUTER 1139.00 Ivve pack a SPECIAL SOFTWARE DISKCOUNrl SUPER AUTO DIAL MODEM 159.00

You poy only 5139 00 (wilh Ihe Sl°'5 joflwarc

ICOUPON with every COMMODORE '■•!:' Easy lo use. Jus* plug inio your Commodcfc 6^
purchase see below) when you order Ihe powerful
IcOMPLHER, DISK DRIVE. PRINTER. [ompuri?r and yau r** ready to lianviiti and rcteiur?
8JK COMMODORE 64 COMPUTER' LESS ihe value oi
ImONITOR wo tell! Thii couprni allows you lol rvnnsapos tosi*1' lo u^c ihon dmling youi ipl&pKon?

Ihe SPECIAL SOFTWARE DISCOUNT COUPON i~e potk

ISAVE OVER 1500 OFF SALE PRICES!! iun pu^h one key on ^ouc compufef' tncludet

v-iih your ccirlputwr Thai oliows you To SAVE OVER ■■■tluMVL' vobf to uso program lor up and dawn
loaitinq lo prmler and 'ii\k duvrs
5500 ofl soltvjarrj sale pr.tus" Willi only SlflO ol (Example*)
sUvi'iys onplieii your nel coinpulor cost is W.QO! ' till Sl!5 00 SALE S11.00
PROFESSIONAL SOFTWARE
■ 1T0K DISK DRIVE *14*.DO NEW COMPUTER LEARNJNG PAD $37.9S
You pay only SMf.00 |wilh the SI? W soltv-ore COMMODORE 64
Make* other graphics loblei* obiofeic Thi^ nt»w IECH
purchase see belov-J .uhen you order The 170K Disk Name Lilt SKEKH LEARNING PAD allow* you lo draw on your
Jala Coupon
Drive* LE5S Ihe value ol Iho SPECIAL SOFTWARE T.V. or Monitor and (hen you qqi\ pnni whQitfvPi ycur
E.uculi.oWnrd Proceed S^v 00 539 00 539 95
DISCOUNT COUPON we pock with your disk drive that t.ecuti-o Dnin Base draw on the itrecri on yout primers. FANTASTIC ] '
569.00 S!9 00 51' 95
allows yoj 10 SAVE OVER SSOO oH ioltware sale 30 000 Word Dill.onai, iU 95 51 4 95 510 OC Ull S79 95 SALE 137.95
prices" WiTh only S100 ol savings opphed your nei llec"o"i< 5[jrnad sh#et 55* 'S 519 DO 53' 0C
duV druecoit pi S4° 00 Aetcmnimfj Pad- 519 00 539 00 539 00
Pracipfak SSS.flS
NEW VOICE SYNTHESIZER S49.00
53' 95 53''S
' 13" HI-RES COLOR MONITOR 1181.00 PrDljrnnHiurr* Ruluruniu $20 '5 ill 95 SI3 50 For Com 64 or VIC 70 tomputDr\ Ju^i pluy it m ond
Vou poy only SI89.QO (wilh Ihe 519 95 software Cu.du you ton pxagroin words ond MnrtntSl ad|Ui1 wolurnu
purchase iee below) when you ordei this 13 COlOR
Progronnii-rv Helper
I"'1 S39 95 SUM □ nd pilch makfl talking advt»nivir gonn-i sound
[04lk] action gomei ond tustomiied lolkios'1 FOR ONIV
MONITOR wilh sharper arid clearer resolution than HI Column 5<reen jD.iki Si' 15 SI' '5 SUM
ony oiher color monitors wo ho«e tested' LESS value 519 ?b rou con odd TEXT TO SPEECH |u-^r lypc o v-ord
D.ifc liler th, ri.p-N-I.li] S39 95 ill 95 SI3 95
ol Ihe 5PECIAL 5OFTWARE DISCOUNT COUPON we Delme Fape Cossuite 589.00 SJJ 95
ond hear your Eompuier Toll- ADD SOUND TO
534 95
pack with your monitor that allows you to save over Pro la, Si.cfc SP9 « 513 95 $10 00 7ork SCOTT ADAMS AND AAROVARK AOVENtUPE
S500 ofl soltwore sole prices" Wilh only $100 ol LTghi fo; 539 95 414.15 5 9 95 GAWES" {Dhk or tape,)
Dusr Cd^ki 5 S 95 5 t. 95 5 4 00
sewings applied yogr net (olor monitor COST is only
Simon s flov.t 533 95 519 ?5
589 00 [It Colon
Pilslop II Epvic
12" GREEN OR AMBER MONITOR W9.95
539 95 SJ-4 'S 519 95
Super Graphics Eipandur 539 95 533 95
Your choice of t;rnTi or amber \crc«n monlor lop
SO COLUMN 80 CPS SI' 95
Uunc Call 1 S5» 95 539 95 S3J95 quality B0 columns ■ ?4 lines i?asy To ruad orin
TRACTION/FRICTION PRINTER llbf.OO MCWlllUI 559 9S SSI 95 V/i 95 gioru1 PIUS S9 95 lor connucTiriCf cable Cor" ri.l oi
You poy only S16° 00 when you order ihc Comstnr 1 F VIC-JO.
deluxe- line printer ihaT prims El j ■ 1 I full lilt, single I ("See Duer WOcoupon items In our cotalagi
shoef roll or fan fold poper labels eic Impact dot Write or call for 1J" DAISY WHEEL PRINTER sm.00
main* bidirectional. LESS Ihe value at Ihe SPECIAL Somple 5PECIAL SOfTWARE COUPON! "JUKI" 5uperb lelTtr quafiry daisy ^heel prmleF 12
SOFTWARE DISCOUNT COUPON we patk wilh you(
e»'ro large car'.age up 10 12 CPS bi directorial
primer thai oliows you to SAVE OVER S500 off
prinTing drop in cosseTle ribbon Centronics parallel
software sale prices11 With) only S100 of covings
or B523? seriol poll buill in1 (Specify)
applied your nol punier (Oil It only $69 00
Llll SI»f 00 SALE 1114.011
SO COLUMN BOARD $79.00 EXECUTIVE QUALITY
Now you program 00 COtUMNS on The screen at one CARDCOG+ INTERFACE i5«.00
PROFESSIONAL BUSINESS SOFTWARE
tiinfli Converts your Commodore 6d To 80 COLUMNS For Corninadarp 64 ond Vic 20 computers, let^ you use
fhu Cadillac of Builntti* Programs
when you plug in tho BO COLUMN FXPANSION olher printers wifh Centronics interface*. This
for Commodore 64 Compuleri
BOARD11 PIUS J slot expander1 Con use wilh mosT mtorfocp lets ihe prinler act like o Commodore printer
so'Twore Liu ' Sale Coupon including printing the Commodore grophic* IDot
(7? 95 13' 95 531 95 main, withgrophpc copoDility printers)
SO COLUMNS IN COLOR 579.95 lit 95 S34 '5
Accou ti Po,oble LiltSIOTOOSflLEiH.OO
S79 IS ill IS S54 95
EXECUTIVE WORD PROCESSOR S39.00
Po,rc.ll S79 95 S!1. '5 574 95
Thii EXECUTIVE WORD PROCESSOR is Ihe linost C ral In 579 95 S3' 95 S34 95 PROTECTO WARRANTY
available ior Ihe COMMODORE 6J compuler! The
ULTIMATE FOfl PROFESSIONAL Word Processing
All Protetto's producls tairy a minimum 90 day
DISPLAYS JO or SO COLUMNS IN COLOR or block and wanonly. Therefore ii anything fails wilhm 90
while1 Simple to operole powerful lexl editing wilh The S19.95 Software Purchase Optioni clay, from Ihe dale ol purchose. you simply
250 WORU DICTIONARY, complete cursor and LI5I SALI send your producl to m via Unitsd Parcel
insert delele key conirols line and paragraph 24 Procjrum Bonus Pock (tcpoor d.^ S39 95 m.lJ Service prepaid. We will IMMEDIATELV send
insertion automatic delolion centering margin Oil Boirom 5rraregf FLocj'ii Game 4« 95 iH.11
Di^k On.n Clrai^er S?9 95 119-tS
you a replacement oi no charge via Uniied
selTings and oulpul 10 oil printers' Include* 0
HESGomsi (disk) t?9 95 111.91 Parcel Service prepaid. This worranly proves
powerful mail merge Pogo lov ■iudp oi disk)
Dtl S99 00 SALE SJ9.00 Coupon SI9.95
539 95 HI'S once again thai We Lave Our Cusiomert

' LOWEST PRICES • IS DAY FREE TRIAL PHONE ORDERS • % DAY FREE REPLACEMENT WARRANTY
U a.m. - 9 p."ti. Wookclays
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL 9 a.m. - 12 noon oulurelays OVER 500 PROGRAMS * FREE CATALOGS

Add SI0 00 lor shipping, handling and insurance Illinois residents

olease odd 6"= tax Add 520.00 For CANADA. PUERTO RICO. HAWAII.
ALASKA APO FPO orders. Conadion orders must be in U.S dollars
W£ DO (JO1 EXPORT TO OTHER COUNTRIES EXCtCT CANADA We L,ox>e Our Customers
Enclose Cashiers Check Money Order or Personal Check Allow 1J
days lor delivery 1 to 7 days for phone orders I day express moil1 Box 550. Barringtun. Illinois 60010
VI5A MAS TEH CARD - COD. No CO 0. loCanodo. APO FPO
312/382-5244 to order
7D/RUNMWI9SS
Circle 37 on Roodor Service card

NEW 128K —MEGA BYTE DUAL DISK DRIVE-80 COLUMN

COMPUTER SYSTEM SALE!

HOME • BUSINESS • WORD PROCESSING

LOOK AT ALL YOU GET FOR ONLY

$795. LIST PRICE
B128 COMMODORE 1 28K 80 COLUMN COMPUTER S 995.00
4023 - IOOCPS - 80 COLUMN BIDIRECTIONAL PRINTER 499.00
8050 DUAL DISK DRIVE (over 1 million bytes) 1795.00

12" HI RESOLUTION 80 COLUMN MONITOR 249.00

BOX OF 10 LORAN LIFETIME GUARANTEED DISKS 49.95
1 100 SHEETS FANFOLD PAPER 19.95
ALL CABLES NEEDED FOR INTERFACING 102.05

TOTAL LIST PRICE $3717.95

PLUS YOU CAN ORDER THESE BUSINESS PROGRAMS AT SALE PRICES
LIST SALE SYSTEM LIST SALE
Progrommers PRICE' When Bough)
Professional BO Column Payroll SM9.95 S99.00
Reference Word Processor 5149,95 m.oo $49,00 Inventory $149.95 $99.00 with B123
Guide Professional Dolu Base 5149.95 S99.00 S49.00 General Lodger 5119,95 199.00
List S29.95 Computer
Accounts Receivable 5149,95 S99.00 Financial Spread Sheet SM9.95 ■■'><>.no
Sale $24.45 Accounts Payable SU9.95 144.00 Order Enlry $149.95 (99.00
System.

LIST SALE
Olympia Executive Letter Quality Printer
];r PRINTER REPLACEMENT OPTIONS S699.00 S369.00
Com star Hi-Speed 1 60 CPS 15'V Business Printer $779 00 S459.00
{replace the 4023 wilh The following prinlers oi these
Telecommunications Deluxe Modem Packoge SI 99.00 5139.00
sole prices. Interface Included)
IEEE to Cenfronics Parallel Printer Interface 5179.00 SI 39.00

IS DAT FREE TRIAL. We givo you 15 days 1o try out this SUPER SYSTEM PACKAGE !' II it doesn't meet your oxpecloiions. just send it back
to us prepaid and we will refund your purchose price! '
90 DAY IMMEDIATE REPLACEMENT WARRANTY. II any of the SUPER SYSTEM PACKAGE equipment or program* fail due to faulty
workmanship or mate rial we will replace it IMMEDIATELY wilh no service chorge1'

Add iiit.no for shipping and handling!!

WE DO NOT SHIP THIS SYSTEM TO FOREIGN COUNTRIES.
CANADA. PUERTO RICA. ALASKA OR HAWAII.
EncfOM Cashioc* r_hork Money Oder or Personal Check. Allow Id doys 'or ENTERPRIZES —
delivery. 1 lo 7 doy* loi phono ardors 1 day tiprMf mo<l< We occepT Visa
□ iidMoslcrCord WpshipCOD ru tO'LTinprtlol U.S. addresses only. BOX 5S0. BARRINOTON, ILLINOIS 60010
Priori*

RUN WAY 1985/71

 Circle 15 on Header Service card

FANTASTIC PRINTER
$2495 SALE!! $*iil9S
Commodore 64 — VIC 20 — Atari
40 And 80 Column Printers v Up To 100 Characters Per Second : Full Graphics Capability
.,:,- Upper And Lower Case .:. Advanced Thermal Technology For Quiet Operation

3100 Alphacom 42-80 CPS 40 Column Printer

Print out listings with full computer character
sets (interface required, see below). Print in
upper and lower case. Comes with a roll of
paper and all power adapters needed. Perfect
for a spare printer or program lister. List $99.00.
Sale $24.95.

40 Column Extra Paper LIST SALE

3103 25 Meter Rolls Blue S9.95 S3.00
3104 40 Meter Rolls Blue $16.95 S3.95
3105 25 Meter Rolls Black (1 perpkg.) SI2.95 S3.95
3106 25 Meter Rolls Blue (2 perpkg.) $19.95 S5.95
3107 25 Meter Rolls Black (2 perpkg.) $19.95 S5.95

3150 Alphacom 81-100 CPS 80 Column Printer

Now you can have a printer for the cost of a
large box of paper. This printer prints in upper
and lower case with true lower descenders.
Comes with 1 roll of paper and power adapter.
With the intelligent interfaces (sold below) you
con do Ascii graphics as well os Atari or
Commodore graphics. Plus you can do
underlining and expanded modes. Print out
pictures, program listings, word processing
pages, etc. Perfect for the student or
homeowner. List S199.00. Sale 539.95.
80 Column Extra Paper LIST SALE
3153 40 Meier Rolls Blue $14.95 S3.95
315-1 40 Meter Rolls Black 519.95 S4.95
3155 25 Meter Rolls Blue (2 per pkg.) $19.95 S7.95
3156 25 Meter Rolls Black (2 per pkg.) $19.95 S8.95

3101 Intelligent Commodore Interface — Allows you to 3102 Intelligent Atari Interface — Allows you to hook
hook the 40 or 80 column printer to the Commodore 64, do the 40 or 80 column printer to the Atari compuler, do
program listings, allows software screen dumps, etc. program listings, allows software screen dumps, etc.
Includes Commodore graphics and reverse characters. Includes Atari graphics and reverse characters. (Specify 40
(Specify 40 or 80 Column) List S59.95. or 80 Column) List S59.95.
40 Column Sale S9.95. 80 Column Sale S14.9S. 40 Column Sale $9.95. 80 Column Sale $14.95.

Add 510.00 tor shipping, hondling arid insurance, Illinois residents

ploo5eadd6"= lo>. Add S20.00 (or CANADA, PUERTO RICO. HAWAII
ALASKA APO FPO orders Canadian order? rnu5l bo in U.S. dollors.
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA We Love Our Customers
Enclose Coslliurs ChtCk. MCJiliry Order or Penonol Chock Allow Id
day1. Uii delivery. 7 lo 7 dop lor fjlion*> or dun, Idoyoflprassrnaill
Box 550, Borrington, Illinois 60010
VISA MA5TEH CAHD C.O.D. No C.O.D. lo Conoda, APOFPO
312/382-5244 to order
Tl /RUN MAY19S5
Circle 15 oti Reader Servico catd

FANTASTIC COMPUTER PRINTER SALE!!!

COM-STAR T/F
Tractor
Friction
Printer

* *
only
COM-STAR

• Lowest Priced, Best Quality, Tractor-Friction Printers in the U.S.A.

Fast 80-120-160 Characters Per Second • 40,46,66, 80,96,132 Characters Per Line Spacing
• Word Processing ■ Print Labels, Letters, Graphs and Tables • List Your Programs
Print Out Data from Modem Services • '"The Most Important Accessory for Your Computer"
•+DELUXK COMSTAK T/F Premium Quality L2O-140 CPS Superior Quality
80 CPS Printer $169.00 lS^X COM-STAR PLUS + 10" COM-STAB + H.S.
Tliis COMSTAR T/F (Tractor Friction) Business Printer $319.00 HIGHSPEED 160'180'CPS
PRINTER is exceptionally versatile. II Has all the features of the 10" COM-STAR Business Printer $849.00
prints Bit" x ■■" standard size single sheet PLUS+ PRINTER plus 1514" carriage This Super High Speed Com-Star t
stationery or continuous feed computer and more powerful electronics Business Printer has all Ihe features of the
paper. Bi-directional, impact dot matrix, components to handle large ledger 10" COM-STAR + I'RINTER with HIGH
80 CPS. 221 characters. (Centronics business forms! (Better than Epson FX SPEED BUSINESS PRINTING 160-180
Parallel interface). 100). ListS599. Sale s:ilH.III). CPS, 100% duty cycle. 8K Buffer, diverse
character fonts, special symbols and true
Premium Quality IM-14QCPS Superior Quality descenders, vertical and horizontal tabs. A
10X COMSTAR PLUS + I'rinter $1!!!) 16SV COM-STAR PLUS + H.S. BED HOT BUSINESS PRINTER at an
The COM-STAR PLU8+ Rives you all the High Spend 160-180 OPS unbelievable low price (Serial or
features of the COMSTAR T/F PR1NTKK Business I'rinter $449.00 Centronics Parallel Interface), List
plus a 10" carriage, 120-140 CPS, 9 x 9 dot $669.00. Sale $B4B,00,
15V Carriage and more powerful
matrix with double strike capability for 18
electronic components to handle larger
x 18 dot matrix I near letter quality i, high ledger business forms! (Serial Centronics Printer/Typewriter
resolution bit image 1120 x Hi dot matrixi. Combination $249.00
Parallel interface!. Uat S799. Sale»44i>.
underlining, back spacing, true lower
".H'KI" Superb letter quality, daisy wheel
descenders with super & subscripts, prints
13" DAISY WHEEL printer/typewriter combination. Two
standard, italic, block graphics & special
characters. It ^ivus you print quality and
PRINTER $190.00 machines in one -■ Just a flick of thi>
"JUKI" Superb letter quality daisy wheel switch, 12" extra [urge carriage,
features found on printers costing twice as
printer, 12" extra large carriage, up to typewriter keyboard, automatic margin
much!! (Centronics Parallel Interface)
12CPS bi-directional printing, drop-In control anct relocate key drop In cassette
I Better than Epson FX80). RATED
cassette ribbon. (90 day warranty I ribbon! (90 day warranty) Centronics
"BEST BUY" BY CONSUMERS DIGEST
Centronics parallel or RS232 serial port parallel or RK232 serial port built In
BUYERS GUIDE, JANUARY 1985! List
built in! [Specify!. List $299.CK). Sale (Specify I. List S399.1M1. JB4B.00.
S499.00.Sale$19ft.<m.
1199.00.

• 15 Day Free Trial - -1 Year Immediate Replacement Warranty

PARALLEL INTERFACES-
For V1C-20 and COM-64 — S49.00. Commodore B-128 — $139.00. Apple - $79.00. Atari — S79.00.

Add ^ ]~ 50 *or ihippmg hondliflgondiFuv'onct Mlmon 'andean

pi.oiMddS1. io. AddS?90CHo' CANAOA PUERTO KICO HAWAII
ALASKA APO FPO o'd*» Conod.ori erd»'i muii fen in u 1 dollon
WE EX} NOT E1WI TO OTHEft COUNTRIES We, Love Our Customers
Encloi* Cathrcn Ch«k Mon»» Ord«r or P»'ionol Ch«k Allow U Box 550. Borrington, Illinois 60010
Jay! lor dtlimry 1 m ' do/I lor phon* ord*n I doy •«r>rutl mail1
VISA-MASTER CARD-We Ship COD ID U S Adoresses O.« 312/382-5244 to order

COM-STAR PLUS + ABCDEFGHIJKLMNO ORBTUVMXVZ

Print Example: ABCOEF&HIJKLMNOPORSTUVWXYZ 1 2 3A7B9O

RUN MAV1BB/7S
Cucle 172 on Rsador Soince cam

AnENTION COMMODORE 64 OWNERS

DID YOU RUY THE WRONG PRODUCT?

YOUR MISTAKE!
PRINTER INTERFACE BLUES
No graphics, doesn't work with your software. Bad aspect ratios, no
available buffer, well you wouldn't have these problems with the Micro-
World M W-350. We'll give you $59. off the list price of $129. for that
strange intfrfnce that's causing you trouble.

LAST YEARS BACK UP SOFTWARE

Bveiyone hos Back-up software I hat reproduces errors, but will ii hack up non-standard
sectors, reproduce density frequency alterations alter ihe number of sectors, copy single
sync hits, and reformat a single track? Wo don't think bo. Send your antique back and
recieve $26, credit toward the "New iU'viwd Clone Mndiine" at S49.95, We've added mi
MSI) dmil drive Clone Machine alio available for only WJ.!l.ri. lljipiuU' your product* u>
tlie latest state "f the mi today.

Other software praducts available from Micro-w include: Mr. Tester -tic software,
Fantastic Filer diuu base anti report generator. Screen Dumper 64, Foni Factory/Sign
writer for custom type and Jot-A-Word Hu rational software, watch for our $49MIDI
interface lluit will connect vuur t\nnnu>dtiri' Ivl in musical insti'utiK'Uts.

1342B Route 23
CALL-201-838-9027 Butler. N.J. 07405

or write us at distributing, inc

*NOTE M. : V, r. ■■■ .Mi. thought tocancelthisollwi dt dny lime wilhoul notice
Dealer Oist. Inquires
EjBEMLmmJBJaum^^'V^^^ i
Circle 202 on Raador Servlcn Cflrd.

Program Your Own EPROMS

COMAL INFO »■ VIC 20 Pr
If you have COMAL— ► C64 $99.50
we have information.
PLUGS INTO USER PORT
NOTHING ELSE NEEDED,
BOOKS:
COMAL From A To Z, S6.95 EASY TO USE. VERSATILE.
COMAL WorkDook, S6.95
• Road or Program. One byto or
Commodore 64 Graphics with comal, S14.95
32K bytes!
comal Handbook, 518.95
OR Use like a disk drive. LOAD,
Beginning COMAL, S22.95
Structured Programming With COMAL. S26.95 0) SAVE, GET, INPUT, PRINT, CMD.
Foundations with COMAL, S19.95 OPEN, CLOSE—EPROM FILES!
Cartridge Graphics and Sound, S9.95
Captain COMAL Cets Organized, S19.95 (8 Our software lets you use familiar BASIC commands to
craato, modify, scratch files on readily available EPROM
Graphics Primer, $19.95
COMAL 2.0 Packages, S19.95
C chips. Adds a newdimension to your computing capability.
Library of Functions and Procedures, S19.95 0) Works with most ML Monitors too.
• Make Auto-Start Cartridges of your programs.
OTHER:
COMAL TODAY subscription, 6 issues, Sia.95
COMAL 0.14, Cheatsheet Keyboard Overlay, $3.95
E • The promenade" C1 gives you 4 programming voltages.
2 EPROM supply voltages. 3 intelligent programming
comal Starter Kit (3 disks, 1 book), S29.95 0 algorithms, 15 bit chip addressing. 3 LED's and NO
19 Different COMAL Disks only S94.05 switches. Yourcomputer controls everything (rom software!
Deluxe COMAL Cartridge package. $128 95
(includes 2 books, 2 disks, and cartridge)
a Textool socket. Anti-static aluminum housing.
EPROMS. cartridge PC boards, otc. at extra charge,
ORDER NOW:
Call TOLL-FREE 1-8OO-35S-S321 Bxt 1307 VISA or MasterCard Some EPROM types you can use with the promenado"
27S0 253! 462732P 271JB 5153
5 IPBHIA"
ORDERS ONLY Questions and information must call our 3732 25W 6113 52813'
info Line 60e-222-4<i32 All orders preu.nci only—no COD 2716 2JC32 276J 2B1E' J8C161"
27CIB 2732A 27C64
Add S2 per book snipping send a SASE for free info LUOVH!
Package or send cneck or money order In us Dollars to.

COMAL USERS CROUP, U.S.A., LIMITED Call Toll Free: 800-421-7731 or 408-287-0259
5501 Groueland Ten, Madison, wi 53716 In California: 800-421-7748
TRODEMflRKS ccininiotinre 6a of commnao'e Electronics ita. JASON-RANHEIM
Cipt.iin C0MAI or COMAL Users Croup. USA, Ltd
580 Parrott St., San Jose. CA 95112

71 / RUN MAV 1MB

Circle 14 on Readei Soivico csifl

EASTCOAST SOFTWARE
* .- Inflation-fighting prices. CAI « LIST S»LE
2935 Stai Ink fi W 9J 27 60
No bidden charge*? No credit card jee&t 1M1 SuiciobD 39 95 27 65
2316 Sib By Si« (D) 5995 11 50

COMMODORE
309! Sr«ki tear «BC (Dj 29 9i 20 75
MM Stay Bear NjnenlD) 2995 20 75
IIM Sunns Games (D) 39 95 27 70
1188 Suf«W»64 (01 9955 76 90
0759 SufexiDSje w'Urxi^iii ID) . .19 95 3815
CAT If LIST SAL! CAT # LIST SALE 2!50 Su|>ertf.t ProO 99 no 6600
2711 Acil Ply MgnillClitckt D ., 59 35 *1 50 IMS Frooger D 34 95 2415 1952 SuryivorO 3195 2120
IBH AiMCrd Math Ldil{| Ml 14 95 II SO 1260 Fuji SSHOD OiskJ (101 40 00 19 25 1877 SuipenOtil D 499) 34 SO
1350 AdrtnluoConiirn Sol (01 SO00 3585 H11 Glm« Cnmmutae 64 Play .., .,,,1485 1035 0M6 T*C (D) 10W) 27 70
1413 AdvmlinK Wmci |[>| 5000 li 3i 1857 Tailiw (B) 4495 31 10
084? Game ShowlDI 3995 27 65
0770 Aqeni US" IDI »« 23 00 0346 Tax Adunuot D 69 95 4185
0933 Gmo1B»1Arjmo(DI .34 95 25 55
1855 A.r Rsstut Oi»(DI .... 34 95 Z4 !0 2739 Gtnetll LMl|H 0 ..59 95 4150 1259 Tuan 12 in Ainw Ucr.iloi . ... 189 00 138 65
0G64 A .ii A. ii illi J400 1355 0905 GfoootiiiMD 39 95 27 65 1258 liun 12 m Own Monitor . 179 00 13160
0335 MqiiuUuD 34 00 23 55 111' Ovbi BiaIH![DJ 3995 UTS 1528 Juan Colo Mntr WAudio .399 00 305 50
1704 1S*I Al^mBit ProjraiMD! 3995 3! 05 1098 Grw« Bbx gB) 2995 2150 0441 ItWoanl 0 !6 00 1910
Z7t3 AlptutiHZonD 29 9S 20 75 1875 G^Jine. Gqjd>a 19 95 1535 M71 IneCorsulianl (0) 9995 69 20
1389 AnaraMDI 3995 KM 2911 hi-c Mil Vi;< iDi 35 00 MM 1148 III Pond (0) ■ School 55 W 12 30
1712 Anatomy oi 1541 OistOnvt 19 95 15 35 1437 HCM Cleaning Krl 29 95 17 30 0859 Ik Tat 51WK 10) 39 95 27 65
2913 Artfon{D| loot 26 50 2137 Htixat Acs D 29 95 20 75 0766 IioHi In Tht Snow (D) 39 95 27 GS
VM Arfhon II - AWtHDI 10 00 28 SO 0334 HjsnoOem? (DI 11997 9740 t78! loral klooem 119 95 7560
1733 iEsweipi 61 ID) 4995 3910 1916 Hry DiMIe DickBe D ., 29 95 20 70 0507 liarp Santlion CD) 34 95 26 90
1733 JragmbliifMonlor-Sl (D) 39 95 30 75 0696 H'!chli.k[n Guntp in ISaluy . . . . 34 95 S3 65
1702 limafemtlDI 3995 27 65
304? Aslrg-Iirover 14.95 2995 111! Home Accmininni D 74 95 4805 2195 Twlk> Graphics II A 39 95 30(5
1750 B-l NucImi BoiM« C 1600 1110 1085 Home 0r»an<Ch«ktl0«k (0) 29 95 20 70 0679 tyon TmiirfWonJ Inyiiie [) 2191 1730
OIBt tiatk BMK* Attl Syi 19500 1!3 75 loan lion* Crgj.ilMjiI LLti ID) P9 95 20 70 0881 Illl.nuS D 5195 3D 05
1764 Ba™ Sum Writer 0 6995 48 35 30M MomtPrt IDI 49 95 33 75 0541 OlWblVt - 64 (D) ..2705 2150
1737 Baiic-64 3995 30(5 1721 VeriMlini SS(DD Haidpatk 35 00 23 35
2797 Homeward D ... 69 95 44 30
1355 B I SO'iO Cojunn D.s[. by 16995 11505 27B9 Ho* Id Uit DwrmoOorcM 3 95 3 30 (C9) Vwbarni SSIDO Soitcai* 34 00 19 00
0SN Barwi Siudyit' Sit lOl 8995 62 30 tO12 VIP Terminal 0 59 95 1610
2MB M Search. OIJAmuim D 39 95 2765
0262 Beachhead O 3195 2120 2953 InNOaiD) 39 95 26 65 1529 K.lile Comouto-65C3 ID) . ...1000 2565
OX! W'COjiysKli ?995 21 95
OOBI BtycWCasi* WsltollOj 3495 14 20 17(6 Irlotom EamplulOI 795 550
Mil W.to FtBdOs'l Joyslitt J4 95 24 40
2010 Bo* el CtmTOdCt SotlWlt 1995 UK 1119 IrsdtC 64 005 1996 1535
2959 Csora CutynH!*6 10995 83 75 COOJ Wco IW Bos JOyStlk 1995 14 10
0812 K™sa(D| 2995 20 !5
0201 Csrw FdkIDI 59 95 II SO IH) WilnessD 31 9S 23 30
1320 KiKAjidTnfC«n™jOt64 ■ ■ 'S 95 1605
2B35 Casllf Wolrmltn O 2995 20 70 2712 HOiOnKeisD 29 95 JO75 2681 Wuro Allan, (0) 4995 31 H
2889 W..'Bf).i. W.S;. :i 9995 75 00
0527 CDiaak 64 (D| 4? 95 3305 2315 Kdntlltl D 3495 24 »
2701 Class D 6995 18 45 024(1 *,nhtis(D| . 34 95 24 20
22T2 Knmhn 01 TW Duuirl D 39 95 1765
1761 CIHSlitlH (D) 3995 2705 1333 KmIj Graphic T«l(-CMDt4 99 95 6500 2871 Your ConrnodM M 1495 1!50
2223 Comui1lstilpr([)) 19 95 27(5 1B83 Kr»l1Joy5lick - C64IU20 12 95 900 1741 7o* 1 D 39 95 31 !S
0143 Crnniv 61 Uwr (nrylcopodifl ,14 95 10 60 O6J3 K»*laM(0l 1995 1385 1S7S 70* II D 39 OS 27 65
1624 Cormi Pruj HMtitnu fiuidii 19 95 13 85 2972 Labels - 1" WhiliKIOOO) 995 675 I88f left III D 3995 27 65
0416 CompuServe Slarln Kil 3995 243S 0829 L&uning Brflgc Goinn(D| 7995 55 35
2337 Computer Sal D-lfarcoml 7995 G285 ?989 lue Hurmer D 34 95 24 20
2917 Cull Pali (Dj 5000 3565 16)7 LoOf flurmsr-OiampuniholDI .... 3495 23 30
IMO OsSas Hum ID) 3495 25 55 1738 logo(D) 7395 57 65
laflO Deaoiirt D 49 55 3i6O 3038 Lirkys UjjtMai 39 95 26 65
ZTOi DeiDi In The Caret™ D 35 00 21 a 1343 Mail [};ds Moaun (PI 35 00 2195
2716 Mtj DiiWQ H 3995 2765 1886 Matter lygeO 39*5 27SS
0103 D-^l.ton DinwaiO 34 00 23 55 2970 Mlill B&!« 0 49 95 34 60
I!?} Disk Boib[5 Color CoMdl 25CO 1? 50 0OS9 UiitllSSlDD DiUsllO) 38 7U I960
22S1 Doodle 0 ...4995 30 75 1744 Mem CooMmok (0) 3495 2625
1752 Dull Covet - 1511 Di» Dr> 7 99 5 75 0080 Mcmlnquc Biittall 39 95 M?0
1749 Dutl Covei ■ Cc*nmodor« 64 7 99 5 75 1509 MtrWint FLit*m 3 20 2 !0 Key
1759 Din! Cow - 1528 Pimm 7 99 5 75 2601 MHIioruire (D) 49 95 34 60
20!S Oust Cow ■ 1702 Monrl» 1195 10!5
(Hi \)nU Puiqiiim
1383 Mum Pra*! (DI 29 96 !0 7S
0128 Dun Cow 801 frmw 7 99 5 7S 190/ Missing Links {Hvtisl 39 95 30 75 (R) Rum Carltujyi-
J310 Early Cams! CPiiMihi D !995 20 !6 1697 Mirage Dala BitseJFtPT Gen 9995 69 20
K70 Esrli tonra f «.c Ciko 0 ,29 95 !075 0666 Mirage Word Prcc«5» 0 89 95 6370
0516 Flemenlav ConvnocjMJ? 14 95 11 50 0897 Msmv PUys Scutble (D) 3995 29 20
CC92 Elepnanl OiSksSS/DD (10) 37 00 17 65 2916 Mule |O) 4000 28 50
1137 EWPsi: Oi«SS/SD |IOI 3400 1635 J870 MuilcBn D 93 95 63 20
0107 Epson ui-ao Bebon 14 00 6 30 1523 UumtlnmHetfmnliO) .. . . 7995 5815
1535 F-ISSlnkt E««(D| 34 95 2120
Many Mare Titles AvoilahM
0763 MuWi By Ihe D0101 D 34 95 24 M
1287 FJ-BWH511D) 3995 2765 2912 Ml-51 Casfiictiai 5«IID1 . ..4O00 29 50
1118 f u; lam IBI 39 95 2120 2134 HjltiCorananOB 0 34 95 I4»
JOSS ftMSlHtml. ..,.7995 5115 1216 NfC 1!Oi *n&- M™ ,,i,.1 190 00 168 15 n I IH JHUMl .■. Llll
J973 FligM S-njUm 2 D 19 95 3805 0101 NEt l!15t«' Mouloi 399 00 333 35
291! Flip 1 fi» WILott (501 39 95 23 65 1469 MIWDndlOl 7991 S535
1440 Fllp-N Fin [SO DilMI 19 95 11 30 1351 0mnmrrMw;0mn.sp«ll (D> ..69 95 S1 15
Oil! One Un One (D) 40 00 28 50
2841 O.lnrd Pascal (Dl 50 00 11 70
0821 PapH C1» w/Spell Pak ID) 119 95 83 05
JB93 Pa-al Pnn!« E.I Cable 6" 34 95 21 80 VISA'
2B20 PiBtitalcD 55 95 38 05
EASTCOAST SOFTWARE 0576
1627
fasiaW (0)
PF5 Ffc(D|
3995
79 95
3D75
54 05
1121 PFS ReciHHD) 69 95 47 35
49 Denylourai Mall
2831 Pnhall D , 29 95 20 70
Hrrshev, PA 17033 2915 PTOall Commit r Stl(D) 4OO0 2850
0311 ■-■■„.:)■ 34 95 26 90 CHECK ONE: VISA MASTEJHCARD
MAIL YOUR DRDEB OH CALL 21M PilHWR 4000 2770
1975 Pill1«r2IDl 4OCO 2920 Card- E.p
(717) 533-8125 2»1 POnwWD 34 55 23 30
1341 Hjlir^ Dbii^iiwiSh (D) ... .35 00 2)95
800-233-3237 133? Hail on Bmcelirg Bay (D) 2395 !0 75
Trhptum

1297 flsBOvB Woscnw(D) 39 95 2764

1344 Realm 01 Impossibility (0) 35 00 24 95 Nam*
We Ship UPS-Shlpplni] 1% (12.50 min.l 2711 Rhymes £ Bj»fe(OI 29 95 20 75
2993 Sarnon20 1995 1270
CO D. Add An Additional S2.50
02?1 Scoter Simb Prol Slre'6 ..48 35 37 JO
2(37 Solware Athimouin D 59 9i 41 15
Shipping Is »i.5O >4% (U.P.B.] Cily . . _
!95! Solo Flight D 3495 H2Q
Pur Air Mall. Cnnadlan. APO/FPO Oidfrs. I"M 5or Hjwr (B) 4495 31 10
Shipping SJ.50 .4% ..1 I..I..I O:,l," (US i uikIs) Slaie „ Zip .

PA Knlilrnli Add Ci% Tm

I'Umw (KIM* mv mrfpT Idf

800-233-3237
Nil Minimum Oid«
ViM-Miitncaid-C.O.D.-Chfck
In PA 717-533-8125
Prlca Subjen To Change machint .
Sony. No l"orcl«|n Orders Till! *J Cnpinl Fitmirt 1985

RUN MAViys.i/75
The VIC-20 is a good, low-cost way to
use computer control for your home
or business. With some hands-on
If you have a VIC-20 you're not
experience, using (perhaps you've up
switches, and input sen sins ami
switches. I'll discuss each in turn.
Without a dock, the computer
graded to ;i C-64), you migbt
want i" consider using it as a doesn't know when to perform its

you may control system for your home control functions. Commodore coin
puters have an internal clock, bui you
or business.
This article will introduce need software to use it. The Com

find dozens you to some basic concepts in com

puter control systems and point you
modore control packages I know use
soliware clocks thai an- loaded as
to specific Commodore-oriented pan of the control program.

of applica products to get you started. Out put switches are easy 10 control
from the Commodore user port.
They work with receiver modules

tions that
What Can Vou Control? that attach directly to whatever you
A friend who recycled his old PET lire controlling.
usa house controller tells me his kills Probably the most commonly used
argue less when the computer turns receiver modules for die home are

save you off i)il- TV in bedtime.

Computers can monitor anything
the easy-to-use liSK System X-10 mod
ules, which are specialized according
thai can be mined on and off with a to the objects they control. They in

money and switch.

You can control lights, appliances,
clude lamp modules, appliance mod
ules and controls for wall switches,
thermostats, sprinkler systems, receptacles or thermostats. BSReven

make your alarms, radio-control triggers, robots

or a factory assembly line with on/
has a module for programming con
trols over the telephone.
Some modules control single
off switches.

life easier
With the right equipment, your objects, while others can control
computer tan call the fire depart groups. They range in price from
ment and report a fire when the about S'J'j to almost S20II. Combi
smoke alarm goes off or flash all the nations of modules can operate al

and safer. lights off and on if someone breaks

in. The limits of your system are your
most anything in the house, from the
coffee pot to a burglar alarm system.
imagination, your pocketbook and The receiver modules have ad
your self-confidence. dresses by which the computer can
By ANNETTE HINSHAW recognize each module. Thai way. il
can, for example, turn off the KH
Core Concepts lamp at 8 AM and turn on the AO air
Even computer-control system lias conditioning an hour before you get
three core components thai meet in home from work.
the software; a clock, a bank of output The modules are connected Hi

7(3/RUN MAY 1985

 • . » - ■■/■ ■ -
_—,(-(_/ - -

■ ■

RUNMAYKI8.W77
the computer through an interface comes from Genesis Computer Cor unit called Power Port and a Mini'
(which may have its own power cord) poration. Their basic unit is the port, which controls only one relay
plugged into the user port. They may VIControUer, which plugs into the (switch). All of these come with soft
be connected through the house wir user port, of either the VIC or the C(i4. ware for manual and timed control.
ing or a direct wire, depending on It is an elegant little box (compared Savergy also lias some basic parts
the system. Your computer program to our sprawling homemade circuit for building control systems, such as
turns tilings on and off, singly or in cards), with its own power cord. The heavy relays and power transformers.
groups, as the clock dictates. package Includes three programs, each These products handle larger electri
In pin sensors are more compli of which controls receiver modules cal loads than the Genesis products.
cated to use than output modules, from BSR, Levilon or Radio Shack. Remote Measurement Systems has
but they are necessary for really fancy One program lets you set any mod a control unit (ADC-1) that plugs into
home-control applications, ti' you ule manually. The second lets you set standard RS-2:52 potts, it can also
want to turn lights on when the sun up a 24-hour program. The third al plug directly into the Commodore
goes down, or water the lawn when lows a seven-day program and can user port without the RS-'J:12 adapter
soil moisture drops or use any kind run in tile background while you use most KS'2;V2 devices need.
of alarm, you must have input to the computer for other lliings. This The ADC-] does not provide con
which the computer responds. last program, Super Schedule, is also trol software or a clock, so it's not a
On Commodore computers, input available as a separate software pack beginner's package. The company
is read through the control (joystick) age. It requires at least I6K expan provides programming examples
port) which has seven input lines, two sion to run on a VIC. and technical data for interfacing to
of them analog (the- paddle lines). An The program lets you turn up to Commodore computers.
analog line can measure a range of 256 two-character addresses on or Remote Measurement Systems is
daia, such as temperature or humid off. Each address that contains the also a source for a variety of input
ity, while digital lines can only detect same first character can be turned sensors, including wind speed and
on and off. Having only two analog on or off with one command. An electrical consumption.
lines is not as limiting as it may other command sets light-intensity
sound. You can use the output port level in ten increments. The 24-hour Building Your Own
to switch between different sensors. clock software runs up to 80 opera Building your own controllers and
You can also use circuits called an- tions on the unexpanded Vic. All input devices is the cheapest way to
alog-to-digital converters to trigger operations can he set manually or go. You'll also learn a lot more. If
your digital inputs. programmed for specific times. An you can solder and build a simple
Alarm systems and light-controlled operations program can be saved circuit, you have all liie foundation
switches both operate from on/off and loaded from tape or disk. vou need to begin. Persistence is the
switches. A photocell conducts (turns The User's manual for VlCon- key to mastering the basics.
on) when it detects a certain light troller is excellent, one of liie best If you choose to build a control
level. A burglar who opens a window I've seen. It is so easy to follow, even system from scratch, I strongly rec
also opens a switch and triggers the novices will be encouraged. The most ommend you buy Control Your Wold
alarm. A smoke detector dips a complicated technical operation in with ilu- Commodore VIC-20 Computer
switch and sounds off when it detects the VIControUer system is selling re and Easy Interfacing Projectsfor the VIC-
certain substances in the air. All of ceiver module addresses, and even 20. The former consists of a clock'
these are nuts and bolts in a home that is easy. control program on cassette and a
security system. The clock lets you Genesis also makes an input unit, 45-pnge instruction booklet, which
decide exactly when these systems called COMscnse. which I haven't explains the basics of computer con
turn on and off, so you needn't worry seen. I did, however, read its manual, trol in simple terms.
about forgetting. which is well written and thorough. it includes instructions for build
However, you must provide sensors ing an input sensor card and an eight-
So ft ware is the Key and modify the VIConlroller pro switch output board. Step by easy
If you want a custom system, you'll gram to read the information. If step, you build two control boards.
have to do some programming your you're a novice at computer control You also learn how lo interpret the
self or find someone to do it lor you. and programming, I suggest you get input data through the computer
Fortunately, the programming is not help or study basic material in books program and adjust the sensors. This
difficult I think it's easier than file or magazines. package is simple and easy for rela
manipulation or graphics. The pro I haven't seen Genesis'COMclock/AU tive beginners. You won't be a begin
gramming logic is about the same on or tlie following off-the-shelf products. ner when you complete it.
both die VIC and the C-(34, although If any of them interest you, write to the The latter hook is also relatively
they use different memory locations companies for specific information. easy for beginners lo understand, h
to read the control port. COMclock is an external clock with contains instructions for building
It's a liitlc harder to understand calendar and battery backup. For the and programming specific projects,
sufficiently how the sensors work so C-(>4, it also has an aulohoot feature like a Speech synthesizer and a cas
thai you can tell the computer whal thai reloads essential programs if sette interface, ll also explains both
to look for. However, several of the power is interrupted. Some business hardware and software for basic op
products I'll discuss have all the in systems or heavy-duty home systems erations such as analog-to-digital con
formation you need to figure it out. might need this kind of apparatus. version and running mechanical
Savergy, Inc.'s CIM-112 is a high- actuators.
Off-the-Shelf Components power system Tor use with Commo One of its most exciting possibili
The most inexpensive controller dore. It can control high-voltage ties for home control is its set ol
system I've found for Commodore units. They also have a lowvohage instructions on making a ROM car-

7K/RUNMAV1M5
Clrclfl 208 ofk Reader Service card.

"A professional system thats

easy for anyone to use"

By Elliot Schneider & Jack Park

A Complete Low Cost Full Integrated Program Development

System, That You Can Use To Write And Sell Your Own Programs.

Now With Artificial Intelligence Added... Write Intelligent Programs For:

You can endow your computer program with char Robotics Business
acteristics thai ate inherently human -the computer Medical Diagnosis Real Time
which can learn, visualize, reason, solve higher level Education Process Control
cognitive problems that require human-like judgamefit, Intelligent CA1 I'nst Games
Scientific Analysis Graphics
experience, expertise, and reasoning,
Data Acquisition Financial Decisions
Learn How To: Data Analysts Home Applications
• Create intelligent Construct
Programs Rule Bases Extended Math Functions
• Build Export Systems Do Knowledge Fast ML Floating Point & Integer Math
• Write Stand Alone License Engineering Double Precision with Auto. Sii Not.
Free Proyr.inis Use Inference Engines nyek Logx Loge Sin Cos Tan SQR 1 X
Matrix and Multidimensional Uitiice Math
Algebraic Expression Ev.ilualor
Easy Control Of AM I/O...
Easy Control of Graphics & Sound
Complete Utilities Package Easy Programming With English Language Words

SUPERFOHTH 61-AI Great Documentation

• Etisy to Read 350 pg.
Manual with Step by

KAy
Oiler 6.
Step examples
• Source Screens Provided p
• Meets all MVP Forlh-79
Industrial Standards
SF64 ll ;
• Personal User Support
POWflr Of L.inifLj.iq,.^ Cunsln.cts

SuperForth M is more
powerful ihiin most othei A Total
computer languages Pragr;inwiiinij T i ' . Integrated I'iickiige for
Super Forth 6*1 Stives You the Commodore 64 &C-128
Time and Moncv (Disk & Manual]

See Your Local Computer Store

SF64 >96
SPECIAL INTRODUCTORY OFFER or CALL
Al Package >39
Ext Main pkg !39 tor orders outside ol California
All for (800)633-6335
Graphics I/O pkg .. 'g9 sggoo
Package Price only '99''
only
lor additional information
2031'1111 Value
(415) 651-3160
AMERICAN COD.. USA • M5»Overseas) PARSEC RESEARCH
EXPRESS Box I7M Fremont. CA
Dealer Inquiries Inviled

Commocori1 CJ TM aT " ('iUSOL RL'ICIFC

RUN HAY 1985/79

[ridge program. With such a pro
gram, you could devote your VIC to
controlling ilie house without tying Company Addresses
up a monitor and tape or disk drive.
Those of you who arc experienced
in electronics and dream not only of
home control bin also of robots and
beyond may be interested in Nth So
lutions, for the C-(J4. Ii has [wo disks Receiver Modules
that design and analyze circuits.
BSR(X-10 modules)
They are especially useful for fre
Route 303
quency and phase relationships. The Blauvelt, NY 10913
design disk helps you choose com (914) 358-tiMiO
ponents, particularly in niter design.
l.eviton Manufacturing Co. (central control remote switches)
Sources
5925 Little Neck Parkway
Whether you build from scratch or Little Neck, NY 11362
off tlie shelf, you will profit by look (212) 229-4040
ing for sources of help, information
and parts. Radio Shack Stores (Plug n' Power)
There are a loi of non-computer
people who work with control sys
tems, especially En the area of secu Plug-In Systems for Commodore
rity. They can help you with the
Genesis Computer Corporation
peripheral hardware. Ham radio op
Ben Franklin Technical Center
erators and other electronics hob
I.ehigh University
byists may be sources for circuit help.
Bethlehem, PA 18015
Almost any computer dub will have
(215) 861-0850
kids as young as eight or ten who
VIController S69.95 (VIC & C-64)
possess terrifying amounts of knowl
COMsense $09.95 (VIC & C-64)
edge aboul computer programming.
COMclock/AH 509.95 (C-64 only)
They will often help, perhaps just for
Note: VIController comes with software; COMsense manual has pro
pocket money.
gram code; COMclock has ROM program; and Genesis also sells a
Parts can be a real problem if you
separate .software package, Super Schedule Plus, for $19.95
need anything that you can't buy at
Radio Shack. I've included the names Savcrgy, Inc.
and addresses of a few vendors with 1404 Webster Ave.
whom I deal. They aren't necessarily Fort Collins, CO 80524
better or less expensive than others (303) 221-4200
who advertise in the backs of elec CIM-112 $479 (Controls high-voltage circuits with VIC or C-64.)
tronics magazines, but I know they're Power Porl $99.95 (Low-voltage control with VIC or C-64.)
reliable. Send postcards for catalogs Minlport Sl'J-95 (One-relay output.)
and ask around among friends who Note: All come with appropriate software.
have electronics junk boxes.
Old issues of computer magazines Remote Measurement Systems, Inc.
such as Byte, Microcomputing and Com PO Box 15544
puters iif Electronics have articles that Seatde, WA <)8I15
will help you learn more aboul com (206) 525-3369
puter control. Handyman magazines ADC-1 $369
like Popular Mechanics may have ma Sensors & Control Modules at various prices
terial on timer-controlled systems {in Note; The ADC-1 works on standard R.S-2T2 and on the Commodore
security. Take a [rip to the library or user port without interface. Programming examples provided.
borrow a friend's old issues.
With an inexpensive central con-
iroller like the VIC, many exciting
possibilities are technically feasible
and economically within reach. Even
on an elementary level, you can im
prove your life considerably with
computer control. E

Address nil author correspondence to

Annettr Iliiishaw, Best 5X11635, Tulsa,
OK 7-115X.

80 / RUN MAY M3
J Associates, Inc.
PO Box 234 SYMBOL MASTER™
Em Texas, PA 18040 MULTI-PASS SYMBOLIC
(215) 398-0434 DISASSEMBLER
Home Security System $195 FOR THE COMMODORE 64 *
Caretaker System $349 disassembles any 650216510
Note: Includes software and hardware lo add to VIC or C-64 for com machine code program into
plete system. beautiful source
Learn to program like ihc eipcn*'
Homebrew Helps Aifjpr riisMng programs to your ncetfc?
Automatic LABEL generation.
Control Your World with the Commodore VlC-20 Computer Output viurtc umit lil« to <li\\ fully compatible
Win your MAE" PAL." CBM' tV Dmtfop-M1 as
The Continental Press, Inc. sembler, ready forrcrU^tniMy wul editing?
OiH[nnsformiH[cdlisiingi£>'*cieenji"dpJiiHCJ-.
Elizabethtown, I'A 17022 AulimiilLciHy u\t\ NAMLS oE Kcihdl jump r.ible
i-h\lines .inJ aM operating IfUHH ^jtljWc
$19.95 Qvmtta li»t of equaies Inr cxicinal addrc\<*v
tieneraies complde Cm*-* ieferenced^>nihnl table.
RwaiBtm InunraEloiii imidtn under BIT
Easy Interfacing Projects for the VlC-20 instructions.

by Jim Downey, Don Rindsberg & William Isherwood 'Symbol Mister™ is nor copy protected )
ORDKR NOW! Available on di*k only inEroduaoi)
Prentice-Hall Publishers aid USA.

$12.95 'MAE faa fraJmKPJt ofBattm Haoe.

PAL Imtlnuirmorkcfl'm-Line.
Ctmmtithn164 isatratlertutrkwutfltM lx
tnuttmark CfCoHWdfftV,
Past Issues of Byte, Microcomputing, Computers & Electronics, QST and t)r\rlt>p-64 i.i 'i imdcnuirk ttfFrrat ft SOk
73 at your local library

Nth Digit Solutions

3243 Arlington Avenue, No. 195
Riverside, CA 92506
Programs for (he Commodore 64:
Circuit Analysis—$29.95 UNLEASH THE POWER OF
Circuit Design—$19.95 YOUR COMMODORE 64
Places to Gel Parts WITH THE ULTIMATE
Radio Shack stores and other local electronics stores INTERFACE
Conlrul & "^ our home — tftpiiuico. lijihtA
>«uniy ty

Jamcco Electronics ^nllj control jlmtnt m? Jewite

« CuflrtCit H Arul<>5-H>-[)i^i[jK'iinYCrltn
1355 Shoreway Road • Control Rnrnns
• Prr^wni JulonutcdlcMinp
Belmont, CA 94002 ■ Ak.L|iurc J-kE-i f*^r lnh(H-iU>ry A inner inMiu rue million

(415) 592-8097 • Fv^Jiny olKcr uses.

Don't make the mi*takc of buying d luiuicd capability
bilsfacCi InvcMigaic qpt uni%cr<ully applicabJc Dual
Fair Radio Sales Surplus Electronics fi522 Wr^iiile interface Adapter ^VlA] Guard, ^hich
plu j% mu> ihc cnr*airtjan cPBBMtw anJ pnjvidB-
PO Box 1105 T*»u ti-bit fully bidifectiirial I/O pnrc\ ir^hi hand
shake lines ■ Four Ifi-hn [imcr/(c«jntrr\ • Full IRQ
Lima, OH 45802 interrupt cjpabihl) * Kcur ironttmcni 16-pin DTP
■ftiXI inlerTacc connections ■ E;ipinJjbilil} up Eo
(419) 223-2196 fhk S
SOW! Pikc MM. fhhinjtd USA BlO
umenu)ion included f^.ich jildiiiuniit bojid

Quest Electronics
PO Box 4430
Santa Clara, CA 95954 COMMODORE 64™
(408) 988-1640
SOURCE CODE!
1 have dealt with these firms, but dozens of others, probably just "What's Really Inside the
as good, advertise in electronic! and ham radio magazines. Send Commodore 64"
postcards for catalogs. • Mot complete j.iiljlile rcton^lruclcd i^cmtilj lu-
Kuagc ^(lulce emic fin ihc C-MS Ra»ic anJ Kernel
HOMi. all I&K. • Yuu will fully i»idcr\[^nd cjIJj io
undocumcnlcdROM rouiinc%, jmJ be uhIc lo effectively
BfldinntayOirrownpTDpinu, •LisciiLAfir:l,S. Nnm
mere one-Line disassembly. AM hrjndi Euc^rLs and sub-
rifljtinc cnlry points tfrc ibtjwa, • TAHLES arc fully
scuicd out dnil deiived ■ Coiuplcidly tiimmcnicd. nn
fjnj> ^haEsocur You will sec iind undri'liiriJ ihc pur-
pl"t "( everv riiLElinr juJ c^cry line ipf Code' • Com-
plrir Ifadu <>f eijujic^ 10 eternal IbM reference* *
In* Jlujbfc tullycroiv-celcrenccJ »)mrx>| uhlc.
Ciller CM Sourer 129 91 jMMpaid USA

AJl mil: i ^ shipped from stock within 24

hours via UPS- VISA/,V|fls!*rCard wel-
l (H IH < I.

SCHNEDLER SYSTEMS
« II. |.l F -, in i,.,, \ i. "-II.
ll nti'nlTini 237^71)6

RUN.MAVMWj/81
If the space program had
advanced as fast as the
computer industry, this
might be the view from
your office.

And space stations, Martian colonies, and with change like this? That's where we come
interstellar probes might already be common in. We're CW Communications, Inc.—the
place. Does that sound outlandish? Then bear world's largest publisher of computer-
these facts in mind: related newspapers and magazines.

In 1946 ENIAC was the scientific

marvel of the day. This computer
weighed 30 tons, stood two stories high, Every month, over 9,000,000 people
covered 15,000 square feet, and cost read one or more of our publications
$486,840.22 in 1946 dollars. Today a
Nobody reaches more computer-involved
$2,000 kneetop portable can add and
people around the world than we do. And
subtract more than 20 times faster. And,
nobody covers as many markets. In the
by 1990, the average digital watch will
United States we publish three computer/
have as much computing power as ENIAC.
business journals. Micro Marketworld, for
The collective brainpower of the
businesses selling small computers and soft
computers sold in the next two years
ware. On Communications, the monthly
will equal that of all the computers sold
publication covering the evolving communi
from the beginning to now. Four years
cations scene. And Computenvorld, the
from now it will have doubled again.
newsweekly for the computer community, is
It's hard to remember that this is science the largest specialized business publication
fact, not fiction. How do people keep pace of any kind in this country.
 ^I^J^^J

:r*

We also offer seven personal computer lic of China, Saudi Arabia, Southeast Asia,
publications. InfoWorld, the personal com South Africa, Spain, Sweden, United King
puter weekly, is a general interest magazine dom, United States, and West Germany.
for all personal computer users.
The other six are monthly magazines that
concentrate on specific microcomputer sys The sooner we hear from you, the
tems. PC World, the comprehensive guide to sooner you'll hear from our readers
IBM personal computers and compatibles. Simply put, we'll make it easy for you to
inCider, the Apple II journal. Macworld, the reach your target audience—and for mem
Macintosh magazine. 80 Micro, the magazine to reach you. Call today for more informa
forTRS-80 users. HOTCoCo, the magazine tion. You'll find the number below.
for TRS-80 Color Computer and MC-10
users. And RUN, the Commodore 64 &
VIC-20 magazine.
And we have similar publications in every
major computer market in the world. Our
network of more than 55 periodicals serves
25 countries. Argentina. Australia, Brazil.
Canada, Chile, Denmark, Finland. France,
CW COMMUNICATIONS INC.
Greece, India, Italy, Japan, Korea, Mexico,
375 Cochituate Road, Box 880, Framingham, MA 01701
The Netherlands, Norway, People's Repub (617) 879-0700
 Con Game
By NICK SULLIVAN

In this version of the pea-and- course, and the asterisks are the peas. takes less than a minute), which
You are given a few moments lo means that you can build up your
shell con game, you 'II befacing note the positions i>f the peas; then skill in a relatively short time. The
a dealer of unusual dexter they vanish. The computer scrambles short turns also make it ideal for
the shells with a series of deft moves head-to-head competition with a
ity—your computer. Instead of
and, when they are again ai rest, num friend, and since all the input can
the usual three shells, this bers them from I to 9. Type in the be handled by one player, there's
game uses nine, and you'll be three numbers corresponding to the no need for continually changing
shells you think now conceal the places.
lookingfor three peas, notjust
pens. That's all there is to it. The Finally, this is one game that calls
one. Luckily, the dealer doesn 't computer will determine your score for concentration, alertness and quick
cheat. Out of three, and give you a chance ness of eye, but not for speed of re
to play again. sponse, so you don't need the reflexes
This game is very easy 10 play. You The game has several noteworthy of a hockey goalie to win. E
are first asked to choose a speed be features. One is its size—well under
tween 1 (molasses) and 9 (lightning), 2K bytes of memory, even with a spa
Then you arc shown nine white cious listing. This makes it a snap to Address alt author correspondence to
squares with asterisks it) three of type in. Nick Sullivan, 11 Rosegrove Place, Agin-
them. The squares are the shells, of It's also quick to play (each round court, Ontario, Canada MIS 1W5.

RUN It Right

84 / RUN MAY 1985 Cmmodore 64

Circle 171 on Reader Service caiO.

\FAST DELIVERY
Call Us For
Fast Service, Experience!
and Affordable Prices

Software Hardware Printers

SPRING SPECIAL

GEMINI 10X
SUBLOGIC
Flight Simulator
1541 S189
$219
S31.95
Special of the Month
15X. $339
MICROPROSE
Number one selling dot matrix printer, Gemini 10X, prints 120
F-15 EAGLE MSD DISK DRIVE
cps bi-directionally, with logic-seeking printerhead control.
•21.95 SD1 Disk Drives244
There's both friction and tractor paper feed. Prints high
MICROLEAGUE
SD2 Disk Drives444 resolution graphics.
Baseball 29.95
introductory Offer Letter Quality Powertype $325
INDUS GT
DISK DRIVE
NEW SG-10, SG-15, SR-10, SR-15 IN STOCK, CALL FOR PRICES I
S269

WORD PROCESSING
ELEPHANT DISK
S5/5O -IS SO SS/DD "16 50 EPSON RX80
$219
SpecBt ol the Month Special ol the Munfli
FLEET SYSTEM 2 LORAN SS/DD
Gm.lBuv $55
S1 2.95 Bo.of 10
REPEA1 Or A SELLOUT
Paper Clip with Speller
NEW
1660 MODEM
FAST
LX80 $249
s60 S59 Dot matiix printer with nlq mode, prints 100 cps, bi-
PROGRAMMING SERIES
SX-64 Computer '459 directionally. Call for RX-1G0, FX-80 and FX-100 prices.
Simon Basic '27
MPS 802 '214
Borland Pascal ... .. '42
Navsda Fortran '39
1530 DalnsolIB *59
Special otter Okidata 182 ^239
Magic Voice Speech - '49.9b
ACCOUNTING
Home Accountant '44
1011 RS 232 Inierlace *49 MW-350 $69 Okidata 192 Call
~~\ 1702 Monitor
lax Advantage ..„-.,. "45 4K Buffer $29 Okidata 93 $579
General Ledger '35
A/R. A/PF Payroll T35 ZENITH MONITORS Digital Deulces Okidata 84 $619
The Manager '35
U Print Interface ....$59
122 Amber '84
1Z3 Green '84 Okidata Ribbons $3
DATA BASES
Mirage Database Myr ■79
COMPUTER COVERS' 16K Printer Buffer..899 Juki 6100 $389
Super Sain 64 ■54
64K Printer Buffer*169 Silver Reed 400 ...$249
Special ofiito Month Epson 80 Ribbon *5 Silver Reed 500 ...$379
The Consultant
PRINTER INTERFACES SURGE PROTECTORS
59 CMO 64 .
.IIC'P'00'
-S6 99
Micrografi* MW350 '69 I Oullol '14
4 OutlBI '38
Reg. S15" VIC 20 56 33 Tymac Connection '79
SPREAD SHEET □ nk Drue S6 99 Cardco * G Interface 'fi9 6 Outlal -59

$6.99
6 Ouiiin 8,
Multiplan '63 I nicin MK 80 .57.99
Carilco B Interface "39
ElDOn MX SO FTSJ 3H N Fitter aBB
Practical '38 Okiltjlo 92 .... 57 99 Gropptor CO *102

Ordering & Payment Policy

Printer Specials
Prices reflect a cash discount For Visa, and Master PANASONIC
card add 3% Immgo1!ate delivery with cenilied check or wired Doodle S26
funds NJ resident add 6% Puces subject !o change.
1090 s209
Print Shop S29
USA SHIPPING 1091 S269
For shipping and handling add 4% (E4 minimum) Paper 1000 sheels'19.95
1092 sCall
Larger shipments require additional charge C.O.D add '3.50 Paper 2500 sheels'34.95

FOR INFORMATION CALL (609) 596-1944 MON.-FRI.

10-5

Mon.. Thurs.. Fri. 9 8

Tuos.. Wed. & Sal 10-6

P.O. Box 3354

Cherry Hill, NJ. 08034
RUNmavis«WS5
 Listing 1. The Shell Game program.

100 REM YE OLDE SHELL GAME BY SULLIVAN 360 PRINT "?{CRSR LF}(CTRL 0)";
110 DEF FN D(N>=INT(RND{1)*N) 370 GET QS
120 J=RND(-TI): A= 1 5 380 N-VAL(QS): IF N>0 GOTO 410
130 PRINT CHRSI14) 390 NEXT J
140 GOTO 440 400 GOTO 3 30
150 REM PRINT TITLE 410 PRINT "(CRSR LF}" N "(CRSR DN}"
160 PRINT "(SHFT CLR}{2 CRSR DNsHCTRL 9}" 420 RETURN
TAB(A) "(SHFT SHSHFT H}(SHFT E}{2 SHFT 430 REM MAINLINE
Ls} (SHFT GKSIIFT A} {SHFT M)(SHFT E)" 440 C=54272: E=160:: F=170: R=700
US 450 11 = 1484: Z = 21 4: P=8: GOSUB 161
170 A=15: U$="": RETURN 460 GOSUB 190: S=0;; P=21
180 REM GET SKII,I. LEVEL 470 U$=":(2 SPACES}(SHFT L)EVEL"+STR$fD):
LJEVEL"- A
190 POKE Z,V: PRINT = 10
200 PRINT TAB(10)"(SHFT SJKILL (SHFT LJEVEL 480 GOSUB 160: GOSUB 260: POKE C+H,1
(1-9): "f 490 U=FN D(9)
210 GOSUB 330: B=N: K = l 20 + ( ( 9-B HUP ARROW}2 500 V=FN D(9)
)*5 510 IF V=U GOTO 500
220 FOR 1=1 TO R: NEXT: RETURN 520 W=FN D(9)
230 REM DELAY 530 IF W=U OR W=V GOTO 520
240 FOR 1=1 TO K: NEXT: RETURN 540 FOR 1=0 TO 8
250 REM SHELL LAYOUT 550 A(I)=E
260 FOR 1=0 TO 8 560 IF I=U OR I=V OR I=W THEN A(I)=F
270 J=INT(l/3) 570 POKE B(I),A(I)
280 B(I)=1241+80*J+3*(1-J*3) 580 NEXT I
290 POKE B(I)+C,1 590 FOR 1=1 TO H: NEXT
300 NEXT I 600 POKE B(U),E:POKE B(V),E:POKE B(W),E
310 RETURN 610 FOR 1=1 TO R: NEXT
320 REM NUMERAL INPUT 620 M=FN D(2)+8
330 G=l-G 630 FOR J=1 TO H
340 FOR J = 1 TO 20 640 X = FN D(9): POKE B(X),32
350 IF G = 1 THEN PRINT "(CTRL 9}"; 650 T=A(X): POKE H,E: GOSUB 240
660 Y=FN D(9): IF Y = X GOTO 660
670 POKE B(Y),32: A(X)=A(Y)
Circle 18 on Reader Service cafd
680 FOR 1=1 TO 120: NEXT
TYPING TUTOR + WORD INVADERS 690 POKE B(X),E: GOSUB 240
Learn to use your keyboard quickly and 700 POKE H,32: POKE B(Y),li
properly. TYPING TUTOH starts with Ihe 710 A[Yf=T: GOSUB 240
home keys' and automatically evaluates 720 NEXT J
your typing performance, introducing you 730 FOR 1=0 TO 8
to new keys in many gradual steps as your 740 POKE B(I),177+1
skills develop. WORD INVADERS puts real 750 NEXT I
excitement into your touch typing practice
while reinforcing proper typing techniques. 760 POKE Z,11: PRINT
"This is the best typing tutor we have seen yet; **** + " 770 FOR 1=1 TO 3
INFO-64 700 PRINT TAB(18) "(CTRL 9)*{CTRL 0) = ?{CR
"Best typing tutor I've seen — Better than Mastertype" SR DN}"
Microcomputer Courseware Evaluation 790 NEXT I
"WORD INVADERS is fantastic'1 800 POKE 2,11: PRINT
Editors ol Consumer Guide
810 FOR 1=1 TO 3
NEW! Commodore PlusM or 16 TapeS2i.95 Disk S24.95 820 PRINT TABI22);
Commodore 64 Tape $21.95 Disk S24.95
ViC 20 (unexpanded) Tape $21.95
830 GOSUB 330
840 IF A<N-1)>0 GOTO 860
850 PRINT "{2 CRSR UPs)";: GOTO 820
IFR (FLIGHT SIMULATOR)
860 S = S-(A(N-1 )=F): A(N-1)=-A(N-1)
Put yourself in thB pilot's seat! This pro 870 NEXT 1
gram provides a very challenging, realistic
880 FOR 1=0 TO 8
simulation ol flying under Instrument Flight
890 IF ABS(A(I})=F THEN POKE 13 {I ) , F
Rules (IFR) in a single engine light plane.
Realistic instrumentation and aircraft per
900 NEXT I
formance. Plenty of thrills for pilots and 910 PRINT "{CRSR DN}" TAB(14) S "OUT OF 311
non-pilots alike. 2 CRSR DNs}"
"It is tremendous fun." Compute's Gazette 920 PRINT TAB(14) "(CTRL 9){SHFT A)(SHFT G}
"It's a great program, and as a pilot I found it to be very (SHFT AJI.SHFT I) {SHFT N}{2 SHFT SPACES)
realistic. My brother, a current commercial pilot and a ((SHFT Y}/(SHFT N])?";
former Air Force flight instructor with over 3,500 hours in
930 GET Q$: IF Q$="Y" GOTO 460
military and civilian aircraft was also quite impressed."
Private Pilot
940 IF Q$o"N" GOTO 930
950 GOSUB 160: PRINT
NEW! Commodore Plus/4 or 16 Tape or Disk $29.95
Commodore 64 Tape or Disk $29.95
VIC 20 (unexpanded] Cartridge S39.95

ACuDcHl" ^S?" Shipping ar*J flanaling SI .00 pur dWft

SOFTH//4RE ^^™ °")c' CA rHS|tlonlB aOt| &*•"" *••*
P.O. Box 6277 San Rafael, CA 94903 (415) 4B9-085O

8IWRLJN M.WUitt
 UNBELIEVABLE
SOFTWARE
SPECIALS
COMPUTER FisKer Price
CENTERS Learning Soil ware

"'AMERICA

PRICES'. (fSSu)
Alpha Build 12.59
Lojic Levels 1I.9S
Mrwe Creaioi 1J.SS
Sea Spel>er i?.99
Sonomawr !!.M
Up t. tea 'lm 1199

CALL TOLL FREE Wlnilur Cljssiis By Fisher Price

BeKw The Ftool 16M
Saiss Famiiy RoDin^on 16.99

1-800-631-1003 Monitors
Kxt in WDndBrlaM
Treasure Island
RoDm Hooo
1699
1699
16.99
BMC Color .1«9S WnaiB of 0! 1699

Pa, 1300 RGB &

Comp "*
Zenith Green OuKI 19 it
Iran!ylvania 1999
SnOriJ Ot *Ma«l 1999
Xyphus 19 99

Modems Graphics Magician Picture

PainLer ?i 99

Comm 1660 B Spinnaker

Z commodore z commodore *!° ■ Mighty Mo Counting Parace
Eaily Learning frierOs
1699
16.99
Telesomc Mam Busier 1699
1101 LETTER VIC 1541 Hes II
PresiQents Choice 1199
Surn Ducks 1699
QUALITY PRINTER DISC DRIVE Amazon
□ragorhvorld
1999
1999
Cassette Fahrenheit 451
FtenaezvOLiS iM'.n Rjiru
19.99
1999

27495 16995 Recorders Professional Software

Fleet System ?—Ward Processor
with built-in 7Q00O ^ord spell
Comm CN-2 59* check 5995
Third Party 39 CBS Sgftwart
E commodore 128 Df Seuss Fi* up The Vnup
Pu^et 1999
Coming Soon Sesame Street Ltrar-Gi Rouii(1!999
Big nerd's Fun House 1999
Tne Sei Voyager
Weal her tomcrs 12.99
Movie Musical Madness 999
Success wVOecimals
(fldd;Sutil) D-T
Success wyoeomils
(MulWDivj DT 14.99
Success wyFraclions
(Add/Subt) DT U.99
Success wvFraclions
(Mull/Dn) OT "99

COMMODORE 6k" Ouch's Ahoy

Ernie's Winic ShU49
£399

Mastering The SW 104 99

Muider tiy ihe Dozen 23.99

14495
K commodore Peanui Butler Panic
Interfaces Epyi

1702 -asl Load 2199

19.99
Hoi Wheels 1999
MONITOR S. I. Joe 19.99
Breaidance 1999

17495
Baseball 19.99
Z499
PnsloD II 2199
9 Id 5 Typing 2199
Moreu 2199
Touch Tadlfls
^Dala Touch Tablet D 6195

HUP
w i l a •d«ia Touch TaSict-Can
Muppei Learning Keys
6995
Call
JOYSTICKS
THE Diskettes teem
■Jeulrsl Zone-O.'T 2H.55

BOSS Nashua '" geachheid-O/T

?U95

Scolcti Vaslei Comoosei'D

128B !395
Maxell Comm d dole
Memnrex. Progiarn Rci Gu"LW 1995
Assembler D 1795
Easy Finance I. II nr, iv.-D 19.95
fasy Calt D 64 95

Qz commodore Easy Mmi 0

Easy Stnpr D
17.95

Easy SoeII D

NEW PRODUCTS c-uSmS iss»

19 95
Loco-D
The Managef-D 37^95
General Lcdger-D 37.95

nm
OUT mpc
MUb 8D1
802 Prmter
Printer 149's
179"
Atcls (tec-D
*ccls PayO
37.S5
379S
Mac"c Desk'O 52.95
Color Printer 269" 803 Printer 174" Zork I. II or 111 D 2995
19 9i
Starcioss O
TO ORDER: CALL TOLL FREE-WE'RE PROUD OF OUR PRICES-SATISFACTION GUARANTEED e D
2995
2995

IN NEW YORK STATE CALL - ftAA **o^ +** We're Reliable!

TOLL FREE 1-800-221-2760 1 .nf1f1-n!{1 -I III 18 years of service.
OR 516-249-2120 ■ VUU UU I IUI
Check. Money Order. MC or VISA acEepted'Ho additional charge lor MasterCard and Visa/Call lor shipping 'or Write
and handling inlormaiion/NYS residents add applicable sales tax/Prices and availability are subject to Compultl
' Centers ol America
SI Terminal Or.
change without notice/All taciorv tresh merchandise with manufacturer's wartaniy. Dealers Welcome. Call
lor recent price reductions and new rebate Intuimalion. Plus shipping and handling. Plain-view. NY I1B03

RUN MAV 19BS / H7

 Have you ever decided against typing
in a program listing for fear of making er
rors that could leave you tearing your hair
and screaming? Fear no more. This article
provides you with hints on how to prevent
errors and helps you understand and deal
with those errors that do occur.

Your Guide to
Troubleshooting
Bj GARY L ENGSTROM

If you view entering pro before running it. A great

grams as a hobby, rather deal of lime can be lost ii
than a lask. you can gain all you do not faithfully follow
kinds of benefits. As with uios! this rule.
hobbies, it involves some While entering the listing,
learning, the possibility for watch for the following types
working with someone else. of errors.
a feeling of accomplish Double diameters. With some
ment and a useful end keyboards, you may have no
product. ticed that when you press a key,
It can be very discour you get more than one charac
aging, however, if you ter printed on the screen.
spend an hour or so en Called keyboard bounce, this
tering a program and it seems to be more of a problem
fails to work, it issiil! more with people who are not used
frustrating if ii still doesn't to tlie feel of the keyboard.
work alter you've spent sev Double characters are
eral hours trying to fix ii. In often difficult lo spot, es
this article, 1 will describe the pecially when there are no
approach that I use when en spaces between com
tering published program mands and variables.
listings. I hope you'll find Missing characters.
this approach helpful the Sometimes nothing is
next time you sil down to printed on the screen
enter a program. when you press a key.
along one edge. The Again, this happens
Preventing Entry Errors
sticky edge holds the paper flat more frequently io those not used to
It is ten limes more efficient to pre against the listing, and it securely the feel of the keyboard.
vent an error than il is to try to find marks my place without obstructing Missing part of a line. This is espe
il after il has been entered. Take your my work. cially a problem on long lines that
time when entering program listings. • Work with another person. Have Contain several similar commands in
I use the following rules: the second person look over your a row.

• Enter one line at a time and then shoulder. You will be surprised at Skipping ii line. This can be pre
check for errors before entering the how many errors the second pair of vented by carefully marking your po
next line. eyes can spot. sition in the listing.
• Use a guide under the line to he!]) • Double-check all numbers. Num
Finding Errors That Get By
you keep your place. I use a sheet ber errors are the most difficult to
from a Scotch "Posi-it" note pad. find and cause the most problems. When you run programs that have
These sheets have a sticky surface • Always save and verily the program errors, a variety of things can hap-
88 / RUN MAY MS
pen. If the errors are minor, the pro dollar sign ($) and represents a string through the use of Data and Read
gram might actually run. Your only of characters. To assign a value to a statements.

hint thai something is wrong may be string variable, you must have (he A Read statement assigns to vari
(hat things do nol look quite right, or string of characters in quotation ables the values listed in a Data state
thai the graphics do not respond in marks (""). ment, one at a time and in the order
[he way described by the program's Floating-point and integer vari listed. II' there are numerical and
documentation. ables are numeric variables. To as string values in the Data statement,
If tlie errors are a little more seri sign a value to a numeric variable, a mismatch may occur if either the
ous, the computer might recognize the characters must be numerals and Read statement or the Data statement
them and display an error message. must not be in quotation marks. Knter has an error.
The message will tell you die type ui the following lines, and you will get If you get a Type-Mismatch error
error and on what line ii occurs. a Type-Mismatch error message. message, and the line number indi
The worst kind of error will cause cated contains a Read statement, first
[0AJ» 100
your screen to go blank and your verify lhal the Read statement is cor
keyboard in go dead. Nol in worry, Tin's line should read: rect; then examine the Data state
though—you need only press ihe re 10 AS = "LOO" ment that it is reading. Sometimes,
set button, ii' you have one, or turn if there is a lot of data to check, it is
10 WAS = WB
the power switch off, then back on. helpful to have the variable values
Of course, tile program will now be This line should read: printed to the screen as they are
gone from the computer, liul you did 10 WAS = WH3 being read.
save it. didn't you- Illegal-Quantity prior. If you gel an
1(1 WA = "STOP"
All the errors in your listing will Illegal -Quantity error message, list
be one of two types: those that result This line should read: ihe line that is indicated by the mes
in error messages and those your 1(1 WAS = "STOP" sage. If the line has been entered
computer does not recognize as er correctly, (he problem is that one of
A Type-Mismatch error message can
rors. I call the latter hidden errors. the variables has been assigned an
also be an indirect error message,
illegal quantity.
Error Messages which I describe in the next section.
To track down this error, you must
Undejined-Statemnn error. This mes
There are many possible error determine two things: If there is more
sage will refer you to a line with an
messages. They are all listed and ex than one variable, you must deter
If. . .Then, Goto, Gosub or Run line-
plained in the back of your user's mine which is the offending one and
number command. These commands
guide. However, only eight of these what is the offending value. You can
say, "When you are finished with this
messages are likely to occur in the determine both by one procedure.
line, don't go to the next line, but to
types of programs with which you When a program stops running be
the line number indicated." The mes
will be working. Below, 1 have di cause of an error message, the values
vided the eighl error messages into sage is telling you that the indicated
Of the variables are still in memory:
line number does not exist. Check
two groups—direct and indirect er you need only ask for them. In the
the printed lisiing. If you've entered
ror messages—and 1 describe a strat Immediate mode, use a Print state
the correct line number, then check
egy for dealing with each kind. ment to determine the values of each
to see if you've entered its accompa
/. Direr! error messages of the variables in the line indicated
nying program line. If not, enter it.
by the error message. Once you find
The following errors are located Illegal-Quantity error. This means
a value that is too high or too low,
on die line indicated in the error that you have entered a number that
you will have to verify each line lhal
message and can be found and cor is too large or loo small. You will see
assigns a value to lhal variable.
rected by going directly in the line ibis most often in reference to a Poke
Bad-Subscripi error. Subscripts are
Indicated. Statement. Poke statements lake the
used lo identify the elements of an
Syntax error. This message indicales following form: POKK memory ad
array, which is a list or table of vari
a misspelled command word or in dress, quantity. What you are doing
ables. The position of a particular
correct punctuation in a command. is placing a number, or quantity, Into
variable in the list or table is repre
For example, if you spelled I'RINT a memory address. This quantity can
sented by its subscript. The form of
VV,\'Y or didn't put a colon between be any number from 0-255. Any
an array variable is as follows: AJ(2),
commands, you'd get a syntax error. thing smaller than (I (a negative num
S(4), VT(:i,(>), SB(I,J) and so on, where
The best way to correct this is to go ber) or larger than '2~>~> will resuli in
the character string outside the pa
to the line indicated by die message an Illegal-Quantity error. (These mes
rentheses is the variable name, and
and search for the error. sages can also be indirect, as ex
the number inside the parentheses is
Knter and run the following line plained in the next section.)
the subscript. Here are the rules for
in your computer; you will get a Syn
//. Indirect error messages subscripts (they may vary from one
tax error.
form of Basic to another}:
Ui PR]NT*Hr'PRINT"GOODBY" These errors are discovered on the
line indicated in the message. How • A subscript is always good if its
This line should read: value falls within the range 0-10.
ever, die source of the error is some
10 PRINT'HTiPRINT'GOODBY" where else. To find it requires some • A subscript is always bad if its value
Type-Mismatch error. There are three searching on your pan. If you know is less than 0 (a negative number).
types of variables thai can be used in what to look for and have a locating • A subscript is bad if its value is

a program: string, floating-point and strategy, your job will be much easier. greater than 10 and was not defined
integer. Type-Mismatch error. One way lhal by a DIM statement.
A string variable is identified by a values can be assigned to variables is B&d-Subscript error messages will
RUNuayiw-,/89
result under the Following conditions: statement without a perfectly match Next, If.. .Then, Gosub and Goto
ing For statement, you will gel ibis Statements for accuracy before you
• The array variable name or sub
script is incorrect. error message. It will indicate the line End the error,
number containing the Next state Relurn-Withmit-Gosub error. This er
• The DIM statement defining the
ment. This error message can be ror message refers to a Gosub.. .
array is incorrect.
caused by four possible errors: Return statement. These statements
•The subscript Itself is a variable
and is assigned an incorrect value. 1. The variable name following the allow you to branch away from a pro
Nexi statement could be wrong. gram sequence, perform an instruc
The error message will indicate the
2. The variable name following the tion set and then return to the
line containing the array variable
For statement could be wrong. oi iginal program .sequence. The form
name and subscript, so check this line
3. The For statement could be for a Gosub.. .Return statement is
first for entry errors, [f this line is
missing. as follows:
correct, check out the DIM state
ments, which are usually located at ■/. A Goto statement, an If.. .Then 10 GOSUB 100
the beginning ut the program. II ihe statement or a Gosub statement 21) ....
subscript is a variable, ynu will have somewhere in the program erro
to perform a line-by-line search to neously lists a line number within
determine where the variable is given the For. . .Next statement.
11)0 (Subroutine)
its value. In some cases, its value The first step to correct a Next- 110 RETURN
might be determined in several dif Widiout-For error is to check the
ferent places throughout the program. Next statement for the correct vari In this program, the computer will
Nt'xf-Wit/wul-Fur error. This error able. Secondly, look through the come to line 10, ski|) down to line
message refers to a [''or. . . Ne\l State listing for the corresponding For loo, perform ilic instruction, move
ment These statements allow you to state men t and check it for accuracy. to line 1 ](), then return to tlie end of
execute a given instruction several This is generally easy, except thai line 10 and go (in to line 20.
limes. The form for a For. ..Next some software writers do not include If the computer comes across a Re
statement is as follows: the variable name after the Next turn statement with no matching Go
10FOR I = I TO in statement, and some For...Next sub statement, you will get iliis error
20 (litsti ucliun) Statements can be quite complex. If messagej which will indicate the line
30 NEJCI I the situation is extremely complex, number containing the Return state
If the computer comes across a Xexi you may have to check ail the For... ment This message is caused by the
computer enter ing the subroutine
without a Gosub statement or by one
Circle 89 on PeaJer Service card of these conditions:

• The Gosub Statement is erroneously

C-64 Reference Library replaced by a Goto statement

• An It.. .Then or Goto statement
lists a line within the subroutine.
• llie lines above the subroutine al
low sequential entry into it.
A well-written subroutine will be
gin with a KF.M statement. The end
of a subroutine is marked with a Re
turn statement. If the subroutine is
correctly marked, it is much easier
to troubleshoot this error message.
TRICKS & TIPS Treasury ol programming ANATOMY OF C-64 Insider's guide to tbe If the subroutine is not marked,
techniques Advanced graphics, easy inpul, entiancea S4 internals. Giapbics, sound I/O. kernal, more. Com look for a statement that protects the
BASIC/COM, character sets, mere 275 gages 119.95 plete commented ROM listings 300 pages S19.95
subroutine Irom above, such as a Re
PEEKS & POKES Programming Quickies that
GRAPHICS BOOK Basic to advanced, besl turn statement for another subrou
reference available Sprite; animaiion, Hues. Multicolor,
will simply amaze you This guide is packed lull ot techni
ques tor Ihe BASIC programmer ZOO pigtt SI4.95 tine, a Goto statement or an End
iigtilpen, IRQ. 3D graphics 350 pagai SI9.95
ANATOMY OF 1541 DISK DRIVE statement Make sure thai the state
SCIENCE & ENGINEERING Topics
Irom chemistry, physics, biology, math, astronomy, elec
Bestselling handbook an lloppy disk Explains disk tiles ment protecting the top of the sub
with camples and utilities. Includes complete com
tronic; 350 pages 519.95 routine is correctly entered. Once the
mented 1541 ROM listings 320 pages S19.95
MACHINE LANGUAGE Learn 65!D in ADVANCED MACHINE LANGUAGE lop of the subroutine is identified,
structions Listings lor Assembler. Monitor. Simulator Video controller, interrupts, timers, clock. I/O. eitendeO note the range of line numbers in
210 pages 514.95 BASIC ZID pages SH.95
the subroutine. You will then have
Other titles available. Phone for name of nearest dealer Phone: (616) 241-5510 to go through your listing looking
Postage & handling S4.00 (S8.00 foreign). Money order, checks, VISA, MC, AMEX. Michigan for If.. .'['hen statements and Gold
residents (incl 4% sales lax). mm ' ~"~ •"■*■" Statements that contain line numbers
CANADA: Book Center. Montreal (514) 3324154 mH. "I ""' | within this range.
Out-af-Data error. This error mes

Abacus mm Software
P.O. il ir 7711 Grand Rapids, Ml 49510 - !■■!■- 709101 ■ Phone 616/2415510
sage indicates that a Read statement
has run out of data. The first place
to look for the error is in llie Read
statement. Usually, this is part of a
im/RUN MAY19S5
For.. .Next statement, and the data To do this, the programmer uses lems, so you may have to check all
is read into a matrix or Poked into multiple-command lines and elimi Poke statements.
memory. Make sure thai there are no nates all unnecessary spaces. If you '['here are other causes ofOut-of-
extra [oops in this For,. .Next state add in some of these spaces when Memory errors that are beyond ex
ment. Occasionally, within the For... entering the program, you may gel planation. Once, while I was working
Nexi statement there is a conditional an Out-ot-Memory error. So. when with a program, 1 kept getting this
If. ..Goto staici no nt for exiting the entering programs for the unex- error message for no apparent rea
For... Next loop. Tin; most common panded VIC-20, enter them exactly son. The only way I could gel out of
way "i doing this is: as published. it was lo save the program as it was,
100 FOR I = ITOlUURi-:Al)A{l):IFA(I) = - 1 Now, let's take a look at situations turn the computer off and on and
GOTO 111): NEXT I where the computer "'thinks" thai then reload [he program. The pro
[here is not enough memory. Some gram then ran without error.
In this case., the - 1 is a flag for
programs require thai a portion of
getting "ui of the loop, [f the II... Hidden Errors
the Basic memory area be set aside
Coin statement is incorrect, the loop
for the storingofa custom-character After you have eliminated all the
will continue and the Read statement
set or a machine language program. Causes of error messages, your pro
will run out of data. The second place
When this is done, the Basic program gram still may not run. This is be
to look is the Data statements. This
area is redefined by Poking values cause some of your typing mistakes
job Can seem to be overwhelming at
into memory locations 55, 56, :'il and are not interpreted as errors by the
times because of the great number
52. If this is done incorrectly, an Out- computer's operating system. There
of data elements in some programs.
ol-Memoiy error could result. So, fore, execution does noi result in an
However, llicre are Iwo things to
look lor these Poke Statements and error message. I lowever, an error
keep in mind.
make sure that you have entered must exist, because the program is
Firsi, this error message concerns
them correctly, not accomplishing iis goal.
the amount of data, not the accuracy.
When checking these Pokes, also For example, if the programmer
Second, most programmers are quite
make sure thai the Cl.li command intended that a character he Poked
orderly when working with large
follows. The computer may not rec to the screen, he might write the com
numbers Of data elements. They have
ognize the newly-defined Basic mem mand POKE 8000,42. This would
to he. So, the Ins! thing to do is make
ory area if there is noCl.R ( ommand. place an asterisk somewhere on the
sure thai you have entered all of the
Incorrect Pokes to other locations VIC-20 screen. However, if you mis
program lines thai contain Data
can also cause Outof-Meinory prob takenly typed POKE 5000,42, the
statements. Next, notice that there is
usually a pattern to the number of
items in the Data statements. Circle IBS on Reader Service card

For example, the Data statements

Hardworking
for custom characters have groups of
eighi pieces of data. This is because
each custom character is made up of
eight bytes of information. When

Software from Abacus

Poking machine language programs,
there is no inherent pattern, but most
programmers will put the data in
standard group size. MAKE YOUR OWN CHARTS... ORGANIZE YOUR DATA...
CHART PAK-G4 DATAMAT-64 Power
Once you have identified the pat
Produce pro.qualny charts lul, data manna, men I
tern, simply count the number of and graphs instantly in package Free lormscreen
data elements in each statement. chan formats Hardcopy in design Complete table
two sizes la popular dm sporting, sorting, selec
When you find a data statement thai tion More $39.95
matrix printers 539.95
has less data than you think ii should
have, check the accuracy of thai pro DETAIL YOUR DESIGNS... CHART YOUR OWN STOCKS...
CADPAK-04 Superb
TAS-B4 Sophisticated
gram line. Also, if the Read statement tightpen design mol Draw
technical analysis charting
is looking for a flag, like a — I, make LINES, BOXES. CIRCLES.
package 7 moving aver
ELLIPSES, pattern FILLmg:
sure thai the flag exists as the last ages 3 oscillators, trading
iieetiand DRAW. COPY
daia entry. bands, more (84.95
seclmns at screen. ZOOM.
Out-of-Memory error. There are two more Hsrdcopy 149.95 fri nTfll

causes for an Out-of-Memory error.

CREATE SPREADSHEETS & GRAPHS Other titles available. FREE CATALOG and
First, there is not enough memory to POWER PLAN-64 name at nearest dealer, write or call (616)
load or run a program. Second, the Powerful spreads he el with Z41-5510.
computer "thinks" that there isn't builiin graphic; Compre For postage and handling, include S4.00 per
enough memory. hensive handbook, tutorial. order ($8.00 per nem foreign). Money Oder
help, toimat. cell protect. and checks in U.S. dollars only. Mastercard,
When you are entering published much more. 149.95
VISA and American Express accepted.
program listings written for your
Michigan residents include 4% sales tax.
particular computer configuration,
there should be enough memory. - | You Can Cowl On WTWinin] —, m

Abacus iHeJBnil Software

There is, however, one important ex
ception. Often, programs for the
VIC-20 are compressed so as 10 take
P.O. Box 7211 Grand Rapids, Ml 49510 - Telex 709-101 - Phone 616/241-5510
up as little space as possible.

RUN\!A\ IMS/91
computer would execute the com difficult to read error Statements, Uy doing ibis, [he Poke statements
mand without an error message, but The error statements will be dis will be ignored when the program is
no asterisk would appear on the played in the custom characters or run, and the normal character set will
screen. will be completely unreadable. There be used. When you have finished
Usually, errors thai remain hidden are three ways 10 make the error troubleshooting [he program, simply
from Basic are somehow related to statements legible: remove [he REM commands, and ihe
Poke statements. The only way to 1. Use the cursor controls to bring program will run with ihe custom-
find these errors is to carefully check the cursor up to the error statement. character set.
all the Poke statements. This can be Ihen move the cursor along the state
difficult when the memory location ment. As the cursor flashes, it is ac Programming Aids
or the value is in the Form of a vari tually changing the character from Programming aids, such as the Pro
able, a Peek statement or a Data non-reversed to reversed and then grammers' Aid Cartridge for the VIC-
statement Using the following lech' hack again. As a result, you are ac 20 (from Commodore) or llasic Aid
ttiques can be helpful in Finding hid cessing a second character set, which 64 (from Richvale Telecommunica
den errors. you hope will he readable. tions) for the C-64, are very valuable-
Print Statement. If the memory lo 2. A second alternative is to tools for ihe programme]', but are
cation or the value of a Poke state blindly Poke in the instructions nec also very useful for ihe person en
essary to tell the computer to use tering published program listings.
ment is in the form of a variable,
insert Print Statements just before the normal character set. Be very Ihe most useful functions for
careful when using this method, be troubleshooting are ihe Kind, Trace,
the Poke statements, and the value
of the variable will be primed on the cause Poking [o (he wrong place or Step and I lelp commands, explained
screen.
an incorrect value could cause a below. (These are the command
minor setback in your work. For the names used in the Programmers' Aid
f'riiii.. .Slop statement. To use the
Prim...Slop statement, you insert C-64, the correct Pokes are: Cartridge, Other programming aids
will have the same functions, but may-
PRINT "1":STOP, PRINT "2":STOP 53272. (PEEE
have different names and syntax.)
and so on, throughout the program. (33272)AND240)OR4
Find, This is a search-and-print
(If you know whal ihe program For the VIC-20, the correct Pokes are:
function. For example, it you want
should be doing, you can place them POKE S686Q,PEEK(S6869)AND240 to check all of the Poke statements,
in strategic places.) Then run the pro
3. The third and probably best simply enter the command FIND
gram, When the computer reaches
method, if you have a lot of trou POKE. All [he program lines that
the first statement, a 1 will be printed
bleshooting to do. is to disable the contain Poke statements would then
on the screen along with a Break
custom-character function and run be listed on the screen.
message that includes a line number.
the program using the normal char Truce. As ihe program is being ex-
It the program executed correctly,
acter set. This will affect the pro cculcd, the last five line numbers are
ihen type in the CONT command.
gram's graphics, but the program will printed on the upper right-hand cor
The program will then continue until
run correctly in all other respects. ner of the screen. This is especially
the next Print.. .Stopstatement,and
To disable the custom-character helpful when the program has an
so on.
function, find the place in the pro endless loop.
Hun or Goto statement. Use the Run
gram listing where the character-set Step. This is the same as Trace, ex
or Goto Statement to start the pro
pointer is changed. This pointer for cept only one program line is exe
gram at a point other than the be
the C-64 is located at memory loca cuted at a time. You press the return
ginning. To do this, simply type in
tion 53272; for the VIC-20, it is at key to advance to the next line.
RUN and a line number or GOTO
36869. For the C-64, the custom-char llflp. This command is useful
and a line number. You can also in
acter pointer is set by a I'okc com when troubleshooting error mes
sert the Slop statement so that you
mand as follows: sages. When you gel an error mes
are only running small sections nf
sage, simply enter HELP. The
the program. One of the problems POKF. 53272, (PEEK(53S7a)AND!Mn)ORia:
program line being executed at the
in using tins approach is that the FOK£1,PEEK(1)A14D251
lime of the error will be displayed
values of some of the variables will
For the VIC-20, it is: on ihe screen, and a character in the
not be correct, causing the program
POKE 33808,294 program line will be shown in reverse
to exccuie incorrectly.
video.
Gosub, ■ .Endstatements. Run the sub or
Another useful function of a pro
routines independenily from the rest POKE 36859,(PEEK(36S69)AND240) + 14
gramming aid is the ability to scroll
of the program. To do this, usethelm- through a program listing, rather
mediate mode (without line numbers) (The underlined values will change than being limited to one screen sec-
and type; GOSUB{Une number}: from program to program.) lion at a lime.
END. '1'he line number that you ad To disable the custom-character I hope that ihe troubleshooting
dress is the fust line of ibesuhionline function, simply move the Poke stale- suggestions presented here will
[hat you will be running. Again, some ment over four spaces, using the in make your computing a little more
of [he variables in the subroutine ma) sert key. and enter a REM command. enjoyable. S!
noi be correct, causing the subroutine For the C-fi4, enter:
to execute incorrectly. REM POKE r>:li.'7'J,(PEEK(.riTJ7i!iAND24niOK
Address all author correspondents In
12:POK]-:i.l'EEK(1)AN]>L.T>l
Custom Characters (kiry L. Engstrom, ! Data Publications,
For ihe VIC-20, enter; ■1036 Aldrich Ave. So., Minneapolis, MN
Whenever custom characters are
used in a program, it can be very REM i'OKI 96869,254 5 5-109.

92/RUN MAY IMS

 ReRUN
Programs on cassette or
disk that give you more
time to enjoy your
Commodore computer.
AVAILABLE NOW... a second collection of RUN mag You'll save yourself days of typing, build yourself a great
azine's best programs of 1984. ReRUN Volume II! reference library, and best of all—you'll enjoy your com
Great programs for the Commodore 64 or VIC-20, taken puter more. ReRUN is available on disk or cassette.
from the July through December issues. ReRUN Volume II, like its predecessor, promises to be
With ReRUN, you'll get every program running in less in big demand. Orders for Volume I surpassed our expec-
time than it takes to read this ad! No tedious typing! tatioas, so we've gone back to press for more. It's now
available in limited quantities.
The new Volume II features: To order, simply return the coupon, or call TOLL FREE
• Helpful utilities like Datafile 1-800-258-5473. In New Hampshire, dial 1-924-9471.
• Educational programs like Speller Charge it on your Visa, Mastercard, or American Express.
• Exciting games like Mystery of Lane Manor Order both volumes of ReRUN today and save $5 off the
total price!

lirttf M. VIC20 t Ptui/1 jrr rcjimrrcd 1r.1

nf CummriHihrc Ilium™ \Lithin«, Inc.

copies of ReRUN Volume II on disk ul $21.47.

COplBS "f ReRUN Volume II on cassette at $11.47.
copies of ReRUN Volume I on disk ;it $21.47.
copies of ReRUN Volume I on cassette at $11.47.

Enter my order for Volumes I & II

and take $5 off my total order!

Volume I & II
DISKS CASSETTES IOTA I,
PU-av '

CHECK/MO □ MC □ AE D VISA □
NOTKi prim include jiosMtfp and liandlins Fortirai uir nuil. pleaie add 4.r>t
US fundi cm US bank* ONLY, lirav allnv. .1-4 Wnb lor cHJvny,

Exp. Date
Signature
Name
Address _
Citv State Zip -
ReRUN • 80 Fine Streel • Pelerboroii«li. NH 03458
 COMPUTER TUTOR

CHRISTINE ADAMEC

RUN'5 education columnist, search the cave. {Of course, all the You can keep track of your pi ogress
boys want to be Mark, and all the through the cave with the little "map"
Christine Adamec, takes a girls want to be Becky.) You must also shown at the top of your screen. Once
look at what's available for choose which word list to use, from you find all the sparkling crystals,
the easy words in List 1 (air, fat, ice, your next goal is to find your way
C-64 spelling programs.
etc.) to the toughies in list 10 (pho out of the cave to the outside world.
tosynthesis, reservoir, deciduous— Any criticisms? Some moves are
challenging to an adult!). You must tough to make—for example, jump
Whether your children aspire to also select the level of difficulty, from ing over two pits close together right
grow up and become brain surgeons 1 to 4. after you climbed up a ladder. So, this
or carpenters, they'll need to be able Let's say you choose Mark. He must might not be the best game for easily
to communicate clearly. Spelling is search the various levels of the cave frustrated children. Also, your child
one important facet of communica and find the four magic crystals. But will need an attention span of about
tion, so if your children arc learning he'll have to jump over pits, climb 40 minutes, because it lakes at least
the basics now, or if they've passed up ladders, leap over scorpions and that long to get out of the cave. (The
that stage and are still having trouble, generally keep his wits about him. game is suggested for ages 6 to 18.)
one of the following spelling pro (Move Mark and Becky with your joy-
grams may help them along. (All are slick.) Every so often, the wizard
suddenly appears and says, "Spell
Crypto Cube
for the C-64.)
'battle'" or another word from your Crypto Cube, by Design Ware (185
Cave of the Word Wizard list. If you spell it correctly, he says, Berry St., San Francisco, CA 94107;
Cave of the Word Wizard, from "Super!" or some other word of $39.95, disk), is a son of three-di
Timeworks (444 Lake Cook Road, praise. If you spell it incorrectly, he mensional crossword puzzle for kids
Deerfield, IL 80015; $34.95, disk), is may say, "Almost, but not quite" or age 8 and up. The game can be played
a fascinating and unusual spelling "It's getting darker!" alone or with an opponent.
program. My own children (ages 6 This leads you to another feature The program includes 50 different
and 7) were mesmerized by it, as were of the game: the flashlight and Band- word lists, made up of such subjects
the third-graders who helped me re Aids Mark and Becky cany. As you as transportation (containing words
view it. (In fact, a month later, the move through the cave, you use up tike car, truck, bus) and astronomy
schoolchildren eagerly asked me if the power in your flashlight. (You (containing words like pulsar, spec
I'd brought the "wizard game" hack lose if you end up in the dark!) If, trum, etc.). Choose a category and
again.) however, you spell words correctly, ask the computer to create your puz
One feature that makes it so ap you gei more light power. Also, each zle cube; or you can create your own
pealing is the exceptionally clear time you crash into a wall or trip puzzle. (The program takes a very

voice of the wizard. The wizard ap over a rock, you use up one of your long time to load—about eight min
pears periodically and, in a deep five Band-Aids. The game also ends utes until you can actually play.)
voice, orders you to spell a word. when all of these have been used. Your goal is to solve each side of
(The children were very excited when (Again, you can earn extra Band-Aids the cube. Use the arrow keys to move
the computer "talked" to them!) with correct spellings.) around and press the space bar to
Other reasons for this program's suc If you don't know how to spell a register that you've selected a square.
cess are the attractive graphics and word, try anyway, and if you're wrong, Each time you select a square, you'll
the compelling adventure iheme. the computer will display the correct receive either a filled-in blank, a let
To begin, you must first decide spelling. You must then type in the ter clue or a question mark (indicat
whether you want Becky or Mark to word, reinforcing your learning. ing that you have to guess the letter).

94 / RUN MAY I9MS

H Computer Tutor

Your progress of hits and misses is

recorded as you play, and after you
go through a line of boxes, a brightly
colored scenario is displayed.
ccnpanies conpsnys
An option many children will en
joy is the chance to create their own
word lists and then drill themselves.
Magic Spells is for kids of ages 6-
conpaneys 10. It's not quite as complex as the
first two programs described, and it
uses block, rather than hires, graph
ics. However, it's fun in a straight
forward way and is ideally suited for
children in a classroom environment
with limited time available on the
computer.

Spell It!
Spell It!, from Davidson & Associ
ates (OOfiO Groveoak Place #12,
High 2000 Ualue 90 Score 1250
Rancho Palos Verdes, CA 90274;
$49.95, disk), is Dr. Janice Davidson's
latest educational offering. This two-
disk program is for children from
the "novice" level on up to "grand
master" (ages 10 to adults), and each
of the five skill levels includes ten
As you fill up the squares on one- found it to be a very comprehensive word lists.
side of the cube, the words become game and a positive learning expe The program comprises five basic
more obvious. For instance, if you rience for children at home or in parts: See It. Practice It, Unscramble
have C and then an open square and school. It, Spell It, and Study a New List. The
then a T, you can pretty much guess first four exercises reinforce basic
you have "cat" there. Once you've spelling skills—for example, display
filled up one side, order the com ing a word, using it in a sentence, then
puter to "turn" the cube and move Magic Spells telling you to spell it.
to the next side. (The kids loved turn Magic Spells, from the Learning An important facet of the program
ing the cube!) Company (345 Middlcfield Road, is that it uses frequently misspelled
If you're stumped, you can periodi Menlo Park, CA 94025; disk), offers words, like rhythmic or sergeant, so
cally ask for a review of the words on your child two primary options: it's a highly practical program.
your list. (1 guess this is somewhat like Scramble Spells or Flash Spells. Start Most children will appreciate the
looking at the answers at the end of a with the computer's words, cate Spell It option. In this mode, a smil
crossword puzzle book, but 1 rational gories such as colors, animals and so ing green frog waits under several
ized that it reinforced learning.) on. The word will then appear, in words, and your goal is to make him
I thought this game might be a little scrambled form; for example, ur- gobble up the correctly spelled words.
intellectual for my nine-year-old group plep. Type it correctly—"purple"— You earn points for words devoured,
(there's not a loi of Fast action), but and a magic box will open. (This is and it's a lot of fun.
after they figured ii out, the kids your treasure chest filled with gold.) The program manual is well-written
didn't want to quit. Answer incorrectly, and you'll be and includes step-by-step instructions,
My main criticism: The children given a hint; for example, p—pie. A as well as directions on how to add in
and I agreed that the game would be demon will then appear from one of your own words.
a lot easier to play if you. could use the boxes, but don't worry—he looks It's ideally suited for schoolchildren
ajoystick. To move left or up on the more like a jack-in-the-box than a de because it's easy to control the amount
C-64, you have to remember to press mon. (You get an empty box with of time each child spends. Also, the
the shift key. This was annoying, and him.) After all the boxes are filled program uses tried-and-trtie educa
most children are quite adept with up, you're rewarded with a pleasant tional tenets. E
the joystick. song and a colorful scene.
Crypto Cube isn't a game you can Flash Spells is pretty much as it
merely load up and leave, expecting sounds. The word is shown (for ex
yuur child to amuse herself while ample, MONDAY), then disappears, fill author correspondence to
you're gone. Instead, stay with her and you must type it. The same mode Christine Adamec, 1921 Ohio St., Palm
until you feel the basics are clear. I of opened boxes and demons is used. Bay, FL 32907.
RUN MAY I'M / 95
Summertime ReRun
Where The Programming Is Easy
1985 Summer Edition
Summer is hot enough without the added stress that comes from do-it-
yourself programming.

This year, programming can be a breeze! Let the new

ReRUN give you great ready-to-toad programs for
the Commodore 64 and Plus/4*.

You'll get the best and most recent programs

listed in RUN...this summer, and then every
three months. That's right ReRUN's gone quart-
erlyl

Every quality cassette or disk will contain ap

proximately 10 outstanding programs for home,
business, or school. Your sensational summer of pro
gramming begins with a RUN super special—a com
plete terminal program for telecommunications!

For summer fun, you'll learn how to add

"zaps" and "poings" to your programs with
"Sound Effects", while "Biorhythms Chart"
lets you explore the ups and downs of your life.

Plus, you'll benefit from the financial organi

zation assistance offered in "Money Manager"
(runs on C-64, Plus/4, and 16).

Your summer edition comes with a complete

booklet of documentation and loading instructions.
The hard work has already been done. All you do is
load, run, and enjoyl

Order your Summer ReRUN on cassette for just

11.47, " or on disk for just $21.47. Simply return the
coupon or attached order card today, or call TOLL
FREE 1-800-258-5473. In NH, dial 1-924-9471.

It can be the beginning of a summer filled with enjoy

able and relaxing programmingl
PIlttM !■!■■,■■ II I RIP . ■ ■!.' ■ ■! ■ ■ l- DH 1 l.i < " I' I ]<Hulrf,
The II. 1.1 '\ StUnnVT Kdlflun programs avallaldc en i ■ - ' '■ - dUk for theC-61 only.
Available in June
•Coiranudun-W, ]W4. and IS in registered tn&maib iA Commodore Biulnoi Marfuiu. Inc.
' 'Price* kndude pcBiiRt- utd handling.

Summertime ReRUN—Where The Programming Is Easy

Please send me the Summer Edition of ReRUN;

( )Cossette(»li.47) ) Disk ($21.47)

( ) Payment Enclosed )AE (

Card a

Signature .

Name . .

Address.

City State

80 PINESTOEET • WTKHBOROUCH, NH OMSN

 ASSEMBLY LANGUAGE

By WILLIAM B, SANDERS

One of the most useful things I Another way of stating a single

ever did tn help myself learn assem byte is to refer to a single address. If
bly language programming was to an opcode and operand combined
Our tutorial series on assem
write my own assembler. For a be- take two bytes, then they occupy two
ginner in assembly language, such a bly language programming addresses. For example:
claim may seem farfetched. How can continues with two new fea t.DA #10 (mnemonic opco<lc)
you write an assembler when you
tures—Assembler of the Month Kiy 10 (decimal machine code)
don't know how to program in as-
Bembly language? ami Questions and. Answers. Addresses:
Weil, if you understand program 49152 169 Brat byte
ming in Basic, you will soon see how 19153 10 second byte
writing your own assembler will help
Think of the number of bytes (or
you understand assembly language. simply Poke the decimal value for
addresses) an opcode and operand
In last month's column, I noted the machine language command into
will take up as 1, 2 or 3.
that assembly language enables you a given location. For example, POKE
Opcodes thai are all by themselves,
to enter mnemonic code in place of 49152,169 would place the LDA in
with no operand, take up one byte
machine language numeric code. For struction in location 49152.
(Cor example, RTS).
example, you can enter, Now, if you wrote a program in
A second group of opcodes deals
1.DA #10 Basic, how difficult would it be to
with values of 2H:i ($FF) or less. In
have the program accept LDA lo be
instead of this case, two bytes are required, one
an instruction to POKE {address},
SA'.l $0A (hexadecimal) for the opcode and one for the op
169? It would be very simple. Look at
erand. For example. LDA in the Im
or the following Basic program:
mediate mode can only reference
[69 II) (decimal) operands of 255 or less.
in PRINT OHR$(147> : REM CLEAR
When the 6510 microprocessor in SCREEN Finally, three bytes are required
your Commodore interprets a range SO AD = 4915H : REM ADDRESS when opcodes reference operands
of addresses, it "sees" only the values. 30 INPUT "OFCOD£";OC$ from 256 ($100) in 65585 ($FFFF).
It does not see "LDA" any more than 4(1 IEOCS = "LDA" THEN POKE AD.]69 One byte is used lor the opcode and
it sees "GOSUB" in Basic. Further 50 END two for the operand. For example,
more, the values are all interpreted Fundamentally, that's all an assem LDA in the Absolute mode uses three
in binary code. bler does. It gels a mnemonic opcode bytes, since it references a non-zero
However, since what you enter and then stores the corresponding page address.
from Basic can be sent directly to machine opcode (a number) in a For the time being, don't lose sleep
memory in decimal values and auto given address. The simple monitor over what all this means. Basically, I'm
matically converted into binary, you we built last month only accepted trying to show you that assembly lan
need only concern yourself with tile numeric values, but it worked on the guage instructions take up from one to
placement of machine code into con same principle. three addresses. Therefore, depending
secutive addresses in your Commo on the type of instruction you issue, the
dore 64's memory. As you probably How Many Bytes? assembler must know if one, two or
know, to pin a value into memory As you may remember from last three bytes will be used. The nice thing
from Basic, you use the Poke State month, besides having an opcode, about an assembler is that all this stuff
ment (Last month, we Imill a moni assemblers also have operands. Thus, about bytes is handled automatically
tor thai Peeked and Poked values the assembler you write is also going for you.
into memory.) to have to store values for operands. There's a lot more to consider in
Therefore, to send a machine lan Note: all opcodes take one byte; op building an assembler, but since this
guage command to an address, you erands take one or two bytes. column is for beginners, I'll concen-

RUN MAY 1985 / 97

[rate on i\w most fundamental ele- segments so that you can understand ning in line 'III, you read in data thai
iiK-nis and explain the various pans what's happening. has the necessary information for the
of the assembler as you build it For opcodes. This includes the machine
Setup
now, though, remember two critical aide value in decimal, the mnemonic
elements: 10 POKE 53281,1 : POKF M280.1 : PRINT opcode and ilie numbei of bytes.
CHR$(144) All of ibis Information is stored in
• The function of an assembler is
20 GOSUB 4000
merely to place machine language the array in line 100. Finally, you
:«) X = d
opcodes into memory locations. print a heading for the assembler
-10 READ A : IV A = 255 THEN liu
• All opcode/operand combinations fields—address (ADRS), opcode and
fill READ US t READ C : \ = X+ 1 :
operand. Those of you with a VIC-20.
use either 1, 2 or 3 bytes (addresses). GOTO 40
h"0 DIM L)KC';i(X).O]'CODES(X).llV[K%(X) change the Tab values so that every
A Basic Assembler 70 DIM AD(255),SJ(255).C$(255) thing will fil on your screen.
Kti F.R = X - 1
The assembler you will develop here Entering Opcode
•ifJ RESTORE
is essentially the same as the Kid's As
100 FOR K = tl fO X- ] : READ DKC%(K) : Hit)
sembler from my book A.wmhly Uin-
READ OPCODEJ(K) : RKAI> I7() REM SET ADDRESS AND INPU1
gtitigefor Kith:('.nimmxhiiv61. II yon have
BYTE 9b (K) OPCODE
a VIC-20, there are a couple of changes 11(1 NEXT K 180 RLM ****"**"** ***** ******* **♦.****

you can make so that this assembler 120 I'RINI <:HRS()it;);CHRS(147)

190 5A = 0: PRINT'TKKSS <RETURN>
will work on your VIC. The main dif 130 PRINT "ADRS"; TABfl0)rOPCODE"i TO DEFAULT TO Wi?>T
ferences will be in screen formatting, rABB5);"OPERAND" 200 N' = 0
and [he changes should be easy. 140 K<)R X= L TO 40: 1'KIN I CHRSlI I I): : 210 INPUT "STARTING AI)1)R":SA : IK
Since this assembler is lor learning NEXT SA=0THEN 5A-49152
assembly language, the addresses used \W PRINT 22IJ BA = SA

will be lisied in decimal. In thai way, In tiiis fust segment, line 10changes 230 PRINT SA:TAB( HI);
2-iri INPUT <)<;$: IFOC$="Q,"THBy 76(1
you will be able to see the number of the screen colors so those of you us
C=0
bytes used in a program. At the same ing a monitor can clearly see what is
2G0 !FOCJ=OPCODK$(C)THEN
time, you'll have the assembler accept going on. (For the VIC-20, change the
D%=DEC9&(C) !B9&-BYTE%(C) :
either decimal or hexadecimal values two Pokes lo a single POKY. 36879,25 GOTO 1!!IIJ
in the operand field. As the addresses and leave the PRINT CHR$(144) as 1>7(> C = C+ i : IF OER rHEN PRINT
gel larger, you will find ii increasingly it is.)
aim pie lo remember hexadecimal Next, in line 20, you include a lillc : GOTO 230
numbers. I'll break the process into page up in line 4000. Then, begin ■1X0 GOTO 26(1

Circle 60 on Readei Service card

DELUXE RS232
INTERFACE
PRINTMASTER/+G Deluxe Parallel
Printer Interface
With IntelllFeatures
This is uncondi
This is one ol, ll nol THE BEST PARALLEL
tionally the best
PRINTER INTERFACE AVAILABLE lor Ihe Com
RS232 Interface
modore 63 computer. All necessary switcfi selections.
available lor Ihe
Emtilalion. iransparenl. and listing modes. Does a
Commodore 63.
graphics and graphics characters on all popular dot
Satisfaction
malrii printers. Does enhanced graphics characters
guaranteed or
and double density graphics on Epson compatible
your money
printers. Dip switch selection sets single or duulile
buck, a lull nl of
dcnsily graphics. Double densily graphics printouts
RS232 signals (pins 2-8, 12, 20. 22). Four
looh mucli better. Prinl head shuflle minimized, nol like
switch selections allow using any standard
some ratlle Boi inlerlaces (you know who we mean]. Sel lop, bottom, lett. right margins. Rage length.
RS232 printer or modem. Comes complete
Single page (eed. Unil is casselte porl or externally powered. Resel button. IntelllFeatures are
with 311 cable wilh eilrier male or female
fantastic! LOAD'S',4, 1 loads and displays punter interfacestalus on sceen. LOAD"S".4,1 loads and
DB25 conneclor. Very complete document
displays disk directory on screen wilhout destroying BASIC program. Olhcr great features. Diskette
ation, type-in SASIC terminal program, and
programming examples.
supled with hires dump and other programs Optional 16K printer bullei. S 1 1 9 95
Specify Male ("10-11!) or
Don't settle lor second best! Get n Printmaster/G. StO-115 '
Female ( = 10-113> DB25
Optional user installable 16K printer butter mounts inside case, and has an additional ROM
lor more InlclliFealures. Design your own character set LOAD UNNEW \ 4. I. LOAD RENUM". 4. 1.
Much more. Buller takes 16K in 40 seconds. "110-116 S89.95
PRINTMASTER/E
ECONOMY PRINTER INTERFACE PRINTMASTER/S Serial Bus RS232
Printer Interface
This lour foot cable plugs inlo the USER I/O
With IntelliFeotures
port and Ihen connects lo your parallel
Can't mnkeyour Multiplan work with your RS2 32 printer? This P'inler Interface connects lo
printer. The disk supplied with the cable the serial bus, and supoIips lull RS232slanals to run virtually any RS232 prinler as deulceM. Works with
conlains dillerenl machine language wed-,
all software. II has all ol the leatures of Ihe Prinlmnsler/-G (eicopl 16K Duller), bill ll is tor an F1S232
deges. Vou load one in and it changes Ihe printer. Comes with a 3 fool cable. Specify Male | "10-117) or Female (= 10-1181 DB25. Allows lull DTR or
USER I/O poll to be devices'! parallel printer
Xon-Xoll handshaking Trouble free use. Money back guaranlee. $139.95
port. Wedges load several dillerenl places.
Works with all basic programs and most
TO ORDER: CALL 206/236-2983
machine language ones Does graphics or write or see your local dealer. Add S2.25 each lor shipping. 30 day
characters and adds several BASIC money back guarantee II not completely satisfied (less shipping).
commands. Easy to use.
PO BOX 43 DEPT.R5
Works great with ... U.-.ii.-r-. call call call!!
EASYSCRIPT. iilD-lOB J>Jt. MERCER IS. WA 98040 J

I RUN MAY ['.IS:,

290 IK %% ■ 1 THEN POKE SA,D% : 10761 Woodside Aw., Suite E, Santee, 6510 are for all intents and purposes
3A-SA+] CA 92071. [619)-562-3670. $49.95.) identical. The only difference be
30il IV B% = I THEN SS(N) = OC$ : tween the two microprocessors has
AD(N) = SA-1 :N = N + 1 : GOTO 230
This assembler package includes
to do with I/O functions in locations
a line and global editor wirh inser
In the second segment, you set tin- 0 and 1. Both use ihe same machine
tion, replacement, block move and
starling address for storing the object language opcodes.
delete, several pseudo opcodes, ma
code. The default value for the C-64 is
cro capabilities, printer and screen
set to 49152 ($CO00), since that's a Q: What are the assembly language
formatting, 80-column software char
good block of free RAM. On a VIC-20, equivalents of Poke ami Peek?
acter generator, cross referencing,
you would want to set it to 38912, or
co-resident monitor, disassembler
828 if you're not using a cassette tape. A: Storage mnemonics such as
and the Sourceror utility, which gen
In line 240, the mnemonic opcode STA, STX or STY would be the clos
erates pseudo source code from bi
is entered. Line 260 searches through est to Poke since they place values
nary files.
the array to find the decimal machine from registers into addresses. Con
The 112-page instruction manual
opcode and the number of bytes. versely, the Load instructions such as
iiii hides descriptions of Merlin 64's
They are stored in the variables D% LDA, LDX and l.DY would constitute
many functions, technical informa
andB%, respectively. In line 290. the Peek equivalents.
tion, a glossary and an index.
machine opcode (D%) is Poked into
the next available address (SA) if the Q: Where's die best place lo siore
opcode's mode uses only a single Questions and Answers assembled machine code?
byte. Line 300 keeps track of the This section is for questions regard
source code to be saved to disk. ing assembly language programming.
A: On the Commodore 84, the 4K
310 REM ••••••••••••••**
block beginning al $C000 (4!) 152); on
More general questions concerning
330 REM ENTER OI'ERAND
the VIC-20, the 2K block beginning
the Commodore Ii4 and the VIC-20
.130 REM •••••••**••****• at 38912. Code in these areas gen
should be directed to |im Sinisina's
340 PRINT TAB(25); : PRINT CHR$(I45):: erally does not interfere with plug-
Commodore Clinic column.
INPUT OPR$ in ROMs, Basic, screen memory, I/O
3S0 AD(N) = SA:S$(N) = OCS: or other functions. [fi
C$(N) = ()I'R$ :N-N + ] Q: What's the difference between
360 IF l.KK[$(()i'R$.l)< >"$" THEN the microprocessors in the VIC-20
OPER-VAL(OPRJ) and those in the Commodore fi-l? Address all author correspondence to
370 IF LKKTS(OPRS,1> = "$" THF.N GOSUB
William II. Sanders, 89X2 Stim.son Court,
490
A: The VIC's 6502 and the C-64's San Diego, CA 92129.
380 IK OPER >65535 THEN GOSUB 630 :
OPF.R = 0: GOTO 340
S90 tPOCJ">"BNE" OROCJ-°BEQU
THEN GOSUB 700 Circle 177 on Roadrjr Sorvlcacard

400 1POPER>205ANDB16 <3THEN NEW!

GOSUB BBO: Ol'KK = 0 : GOTO 340 Universal Parallel
410 [POPEH > 865 THEN GOSUB 040 Graphics Interface
Once the opcode is entered, and • Built-in serMesi wilhslatus report

single byte opcodes are put inlo • Optional RAM pnnter buffer

memory, the program then jumps to • Provides virtually total emulation of

the operand field and you enter the Commodore printers for compatibility with
popular software
operand in line 340. After updating
• ASCII conversion, lolal lest, Emulalo &
the source code array in line 350, the Iransparent mode

program determines, in lines S60-

Switch selectable Commodore graphics • Fully intelligent interface I rial plugs
370, whether the value entered is dec mode lor Epson, SiarMicromcs. G.ltoh. mlo standard Commodore printer socket
imal or hexadecimal. Line 390 deter Prowiter, Okidata, Seikosna, Banana. BMC,
• Exclusive graphic key-malch function
Panasonic, Mannesman TallGy & others.
mines whether a branch instruction
Micrografii MW-350 S129.00
has been given, and 380 and 400 are MW-302C Printer Intorfoco also available al $79.95

error detectors.
In the next Installment, we'll finish Universal Input/Output
up our Basic assembler. In the mean' Board for VIC-20/64
time, you may want to consider pur 16 channel 8-bit A D converter with 1O0 micro
chasing a commercial assembler. second sampling I me
I O A output.
There arc several good ones available
16 high voltage hign current discrete outputs
for the C-64. To give you an idea of 1 EHOM socket.
what's on the market, our "Assembler Uso multiple boards lor additional cnannols up

of the Month" section, which begins [o G boards

this month, Will describe (not review) ■.■.. .i ■..-, p,<iv.;nv $225.00
CBM-64USSSMW-S11 . 1225.00
the features of various assemblers for
the C-64 and VIC-20.
Dealer Inquiries invited Micro World Electronic, Inc.
Assembler of the Month (303) 987-9532
3333 S. Wadsworlh Blvd.. #C105,
oi 987-2671,
Merlin 64 Lakewood, CO 80227

(Roger Wagner Publishing Company.

RUN MAY 1985 / 99
 Datafile Update
Datafile, published in the November and December 1984 is
sues of RUN, created considerable interest among our read
ers. The three-part database program has been adopted by
manyfor both home and small-business applications. The
three listings originally published are correct, but the au
thor, Mike Konshak, has received hundreds of helpful
modifications to these programs, which we would like to
share with you.—Editors.

The following compilation ofmod The listings include changes to all that you have already typed in from
ifications to (he Datafile programs three programs: DATAFILE, DFRE- the November and December issues;
will make them run even smoother PORT and DFMAIL. Be careful to add then start typing ill the new lines
than originally programmed. Many or modify the lines thai belong 10 listed for that one program. New
error traps have been added, bui their respective programs, as follows: lines will be automatically added and
probably the most important addi replaced simply by typing the new
tion is In DFREPORT, which now lias DATAFILE—Lines 10 to 499 line and pressing the return key.
it feature that lets you calculate the DFREPORT—Lines 500 to 898 When you finish entering these new
sum oi' a column in your printed DFMAIL—Lines 1000 to lines, save the particular program im
report The last column in your re mediately on another disk, before
port can hold numeric data thai will Treat these as three separate pro trying it out Keep your original ver
be totaled at the bottom, if you grams, not as one large program, sion (2.6), just in case youi revision has
choose io do so. Load iii one of the three programs a typographical error in it. ISI

47 PRINT"(5 CRSR DNs)";TAB(6);:INPUTF$(I):I

Listing 1. DATAFILE revision. FF$(I)=""THENF$[I)=">"
48 PBINTTABI6);:INPUTL%(I):IFL%(I)=0THEN68
10 REM DATAFILE 2.9 BV MIKE KONSHAK 49 NEXTI
16 D$=CHR$(0):MR$=D$:DR$=D$:S=0:B1$=D$:PW=0 59 IFA$="A"THENGOSUB26:CK=1
:CW=0:B$=CHR$<32) 60 FORI=lTOF:IFLEN(FS(ItI>S1THENS1=LEN[FS(I
22 EN=0:EM$=D$:ET=0:ES=0:A1$=D$:A2$=DS:A3$= 1)
D$:S1$=D$:FL=0 62 NEXTI:GOTO68
23 MEM=FRE(0t-<FRE(0)<0)*65536-500:RETURN 66 PRINT"{SHFT CLR} (CTRL 9} DATAFILE 2.9

44 PRINT"(11OME}{4 CRSR DNs)(CTRL 9>FIELD §" BY MIKE KONSHAK ":GOTO70

;I:PRINT"{CRSR DN]TITLE ? > { 27 SPACEs}" 78 PRINT"<CRSR DN}(5 SPACEsHCTRL 9)V{CTRL
46 PRINT"LENGTH? 0{27 SPACESHHOME}" 0)IEW FILE ON SCREEN ».

RUN It Right

lOO/RUNMWl'BS Commmlore 64 with 1541 Disk Drive

flffl ASCII or Commodore Printer
 Listing I continutd,

80 PRINT"{CRSR DN){5 SPACES){CTRL 9)S(CTRL 334 PRINT"{SHFT CLR)(2 CRSR DNs) (COMD 3){C
0)ORT RECORDS BY FIELD TRL 9)YOU HAVE NOT SAVED YOUR CHANGES!!
82 PRINT"{CRSR DN}{5 SPACEsHCTRL 9}P(CTRL CTRL 61"
0}RINT RECORDS BY SELECTION 348 PRINT" (COMD 3)NO SUCH RECORD EXISTS{CT
84 PRINT"{CRSR DN}{5 SPACES}{CTRL 9}R{CTRL RL 8)":RETURN
0}EAD OLD FILE FROM DISK" 352 PRINT"{HOME} {COMD 3){CTRL 9}(A SPACEs)
88 PRINT"{CRSR DN]{5 SPACEs)(CTRL 9}?(CTRL NO RECORDS OR FILES IN MEMORY{5 SPACEs}
0} DISK DRIVE COMMANDS {CTRL 8}(CTRL 0} "
96 GOSUB30:IFA$="A"THENGOSUB350:IFFL=0THEN1 35 3 FORI=1TO500:NEXTI:FL=1:RETURN
24 354 IFXJ0THENRETURN
98 IFA$="M"THENGOSUB354:IFFL=0THEN24 4 355 GOSUE352:RETURN
100 IFA$="D"THENGOSUB354:IFFL=0THEN27 2 38 5 REM PRINT"(SHFT CLR)(3 CRSR DNs}{3 SPAC
106 IFA$="P"THENGOSUB354:IFFL=0THEN358 Es}LOADING CALCULATIONS SUBPROGRAM":LOA
108 IFA$="V"THENGOSUB354:IFFL=0THEN192 D"DFCALC",8
110 IFA$="W"THENGOSUB350:IFFL=0THEN144 389 OPEN15,8,15:OPEN5,S,5,"0:"+SB$+",P,R":G
112 IFA$="S"THENGOSUB354:IFFL=0THEN304 OSUB414:IFEN=62THENGOSUB416:GOTO358
116 IFA$="@"THEN462 393 CLOSE5:CLOSE15:LOADSB$,B
118 IFFLo0THENFL = 0:GOTO68 394 PRINT"!SHFT CLR)(CRSR DN) {COMD 3){CTRL
124 FORI=X+1TOR:PRINT"(SHFT CLR} PRESS THE 9)THIS WILL DESTROY THE FILE IN MEMORY
{CTRL 9)RETURN{CTRL 0} KEY AFTER EACH E HCTRL 8)"
NTRY" 402 PRINT"{SHFT CLR)(CRSR DN}(COMD 3} THIS
126 PRINT" PRESS {CTRL 9}RETURN{CTRL 0} WIT WILL ERASE THE DISK!{CTRL 8)"
HOUT ANY ENTRY TO STOP{CRSR DN)" 403 PRINT"(CRSR DN) ARE YOU SURE? (CTRL 9}Y
128 PRINT" (CTRL 9}RECORD NUMBER ";I;"{CRSR {CTRL 0} OR {CTRL 9)N{CTRL 0}
DN}" 410 OPEN15,8,15:PRINT|»15,"NEW0:" + HN$ + "," + ID
144 PRINT"(SHFT CLRJENTER NAME OF CURRENT F $:GOSUB414:IFET=8THEN462
ILE TO BE SAVED" 411 CLOSE15:GOTO462
152 OPEN15,8,15:PRINTS15,"S0:DF] "+LEFT${NF 414 INPUT#15,EN,EM$,ET,ES:IF(EN<20)OR(EN=62
S,8)+"!OLD";GOSUB414:IFET=8THEN68 )THENET^0:RETURN
154 PRINTin5,"R0:DF] "+LEFT$(NF$ ,8) + " !OLD=D 416 PRINT"{CRSR DN) {CTRL 9}1COMD 3)DISK ER
F] "+NF$:GOSUB414:IFET=BTHEN68 ROR{CTRL 0}"EN"ICRSR LF}, "EM$","ET"(CR
156 OPEN5,8,5,"0:DF] "+NF$+",S,W":GOSUB414: SR LF),"ES"{CTRL 8}":ET=8
IFET=8THEN68 418 PRINT"{CRSR DN} PRESS (CTRL 9}ANY KEY(C
158 PRINT05,R;CR$;F;CR$;X:FORN=1TOF:PRINT#5 TRL 0} TO RETURN TO MENU":GOSUB30:CLOSE
,FS(N);CR$;L%(N):NEXTN 5:CLOSE15:RETURN
159 GOSUB414:IFET=BTHEN68 422 OPEN15,8,15:OPEN5,8,0,"$0":PRINT"(SHFT
162 FORN=1TOF:PRINT#5,REC$(K%(I),N}:NEXTN:N CLR)":GOSUB414:IFET=8THEN462
EXTI:PRINT:GOSUB414:IFET=8THEN68 424 GET#5,MS,A2$
164 FORI=1TOX:PRINT"{CRSR DN) SAVING POINTE 426 GET^5,A1$,A2S
RS";I;"{2 CRSR UPs)":PRINTS,K%(I):NEXT 428 GET#5,A1$,A2S
I 436 GET#5,A2$:IFST<>0THEN454
165 PRINT#5,E$:GOSUB414:IFET=8THEN68 44fl GET#5,A2$:IFA2$oCHR$(34)TIIENPRINT"(CTR
166 CLOSE5:CLOSE15:CK=0:GOTO68 L 9)"A2$"(CTRL 0}";:GOTO44 0
172 CLR:GOSUB16:PRINT"{SHFT CLR) ENTER NAME 44 2 GET#5,A2$:IFA2$=CHR$(32)THEN4 42
OF FILE TO BE LOADED(2 CRER DNs)":INPU 446 A3S=A3$+A2$:GET#5,A2S:IFA2$o""THEN446
TNF$ 456 CLOSE5:CLOSE15:PRINTTAB(25)"PRESS (CTRL
173 IFNF$=""THEN68 9JANY KEYfCTRL 0}":GOSUE30:G0TO462
174 OPEN15,8,15:OPEN5,6,5,"0:DF] "+NF$+",S, 460 REM DISK COMMANDS
R" :GOSUB41 4:IFET=8THEN68 462 PRINT"{SHFT CLR} {CTRL 9)(9 SPACEs}DISK
175 IFEN=62THENGOSUB416:GOTO68 COMMANDS MENU(11 SPACES)"
176 INPUT#5,R,F,X:GOSUB414:IFET=BTHEN68 464 PRINT"{2 CRSR DNs) (9 SPACEsHCTRL 9}${C
177 GOSUB24;GOSUB26:FORN=1TOF:INPUT#5,F$(N) TRL 0} DISK DIRECTORY
,L%(N):NEXTN:GOSUB414:IFET=8THEN68 466 PRINT"{CRSR DN}{9 SPACEsHCTRL 9}F(CTRL
180 FORN=1TOF:INPUT#5,REC$(I,N):NEXTN:NEXTI 0}ORMAT A BLANK DISK
:PRINT:GOSUB414:IFET=8THEN68 468 PRINT"(CRSR DN}{9 SPACEsHCTRL 9}S(CTRL
134 S=ST:IFS<>0THEN188 0}CRATCH A SEQ FILE
186 INPUTS5,E$:GOSUB414:IFET=8THEN68 470 PRINT"{CRSR DN}{9 SPACEsHCTRL 9}R(CTRL
188 CLOSE5:CLOSE15:GOTO60 0JENAME A SEQ FILE
*7 198 PRINT"{SHFT CLR1 {CTRL 9JRECORD NUMBER: 472 PRINT"(CRSR DN)(9 SPACEs}{CTRL 9)E{CTRL
"+STR$(I)*"(2 SPACES)FILE:"+NF$+"(CRSR 0}XIT TO MAIN MENU
DN}" 474 PRINT"(CRSR DN) {CTRL 9){6 SPACEs)PRESS
244 PRINT"{SHFT CLR} MODIFY WHICH RECORD? E THE APPROPRIATE KEY{7 SPACEs}"
NTER (CTRL 9)#{CTRL 0) OR (CTRL 9)A(CTR 476 GOSUB30:MR$=D$:DR$=D$:IFA$="$"THEN422
L 0}LL(2 CRSR DNs)":INPUTMR$:IFMR$=D$TH 478 IFA$="F"THEN402
EN68 480 IFA$="S"THENGOSUB498:GOTO488
272 PRINT"{SHFT CLR) DELETE WHICH RECORD? E 482 IFA$="E"THEN68
NTER (CTRL 9)#(CTRL 0} OR (CTRL 9}A{CTR 484 IFAS="R"THENGOSUB498:GOTO493
L 0}LL{2 CRSR DNs}" 486 GOTO4 76
284 PRINT"{SHFT CLR} TO DELETE RECORD NUMBE 488 INPUT"{CRSR DN) (CTRL 9)SCRATCH FILE NA
R";lj", PRESS" ME {CTRL 0}";DR$:IFDR$=D$THEN462
286 PRINT" (CTRL 9)SHIFT{CTRL 0) {CTRL 9}D{ 490 OPEN15,8,15:OPEN5,8,5,"0:"+DR$+",S,R":G
CTRL 0), PRESS (CTRL 9}SPACE BAR{CTRL 0 OSUB414:IFET=8THEN462
) TO ADVANCE{CRSR DN)" 492 CLOSES:PRINT#15,"S0:"+DRS:CLOSE15:GOTO4
304 PRINT"{SHFT CLR} {CTRL 9}{4 SPACEs}SORT 62
RECORDS IN ASCENDING 0RDER(3 SPACEs}{C 493 INPUT"{CRSR DN) (CTRL 9JRENAME OLD FILE
RSR DN)" (CTRL 0}";DR$:IFDR$ = D$THEN462 fc-
RUNMAYIB85/1OI
Listing I ftmtimictl. 788 NEXTN: NEXTI: INPUT//5, Al $ : Z = VAL( Al $ )
494 INPUT"{CRSR DN} (CTRL 9}{4 SPACEsJTO NE 798 PRINT#4,"[ RECORD #"jlj"£3 SPACEs}]";:F
W FILE (CTRL 0 ) " ;MR$ : IFMR$=D$THEN462 ORJ=1TO62;PRINT#4,"-";:NEXTJ:PRINT#4,B1
495 OPEN15,8,15:OPEN5,8,5,"0:"+DRS+",S,R":G S
OSUB414:IFET=8THEN462 806 NEXTN:PRINT#4,B1$:RETURN
496 CLOSE5:PRINT#15, "R0:"+MR$ + ";=" + DR$:OPEN5 820 PRINT#4,LEFT$(S$,B)+TT$(J);B1$:PG=PG+1:
,8,5:GOSUB414:IFET=8THEN462 RETURN

497 CLOSE5:CLOSE15:GOTO462 83 4 NEXTJ:PRINT#4,B1S:GOSUB838:PG=PG+3:RETU

498 PRINT"(SHFT CLR} ENTER FILE NAMES EXACT RN

LY AS SHOWN" 838 FORJ=1TOPW:PRINT#4,"-";:NEXTJ:PRINT#4,B

499 PRINT" ON THE DIRECTORY":RETURN 1$:RETURN
868 NEXTJ:PRINTi¥4,Bl $:PG=PG+1
870 IFPG=60TiiENFORJ^lTO6:PRINT#4,B1$:NEXTJ:
PG=0:GOSUB824
Listing 2. MREI'QRT revision. 876 INPUT#15,EN,EM$,ET,ES:IF(EN<20)OR(EN=62
)THENET=0:RETURN
500 REM-DATAFILE 2.9 SUBPROGRAM DFREPORT BY 884 ET=8:CLOSE5:CLOSE15:RETUKN
MIKE KONSHAK 886 REM ADD LAST COLUMN
504 OPEN4,4:IFPW=0THENPW=80 888 A0 = A0tVAL(REC$(K%|I),VAL(MLS(NC,1 ) ) ) } :R
515 LOAD"DFMAIL",8 ETURN
516 PRINT"{SHFT CLR}(2 CRSR DNs}{2 SPACEsJL 890 IFZ< >1THENPRINT#4,B1$:GOTO538
OADING CALCULATIONS SUBPROGRAM" 892 PRINT#4,LEFT$(S$,PC(NC)-1};
517 LOAD"DFCALC",8 B9 4 FORI=1TOPW-PC(NC)+1:PRINT^4,"-";:NEXTI:
532 CLOSE4:PRINT"(SHFT CLR}{2 CRSR DNS 1SUBP PRINT//4,B1$
ROGRAM TERMINATED" 896 PRINT#4,LEFTS(S$,PC(NC}-9)+"TOTAL= "+ST
560 IFC$="S"THENFL=0:GOTO570
570 INPUT"(SHFT CLR}{CRSR DNjPRINT WHICH RE 898 PRINT#4fB1$:GOTO538
CORD ((CTRL 9)0{CTRL 0} TO EXIT)";I$:I=
VAL(I$):IFI=0THEN890
574 IFK=2ANDFL=0THENGOSUB810:GOSUB824:GOSUB
842:GOSUBB88:FL=1:GOTO570
Listing 3. DFMA1L revision.
57 5 IFK=2ANDFL=1THEN:GOSUB842:GOSUB888:GOTO
570
576 GOSUB798:PRINT#4,131$:GOTO53B 1 REM-DATAFILE 2.9 SUBPROGRAM DFMAIL BY
598 IFT$=LEFT$(REC$(K%(I),SF),LEN(T$)JTHENO MIKE KONSHAK
NKGOSUB798,842:GOSUB888 1008 OPEN4,4:GOSUB1280:GOTO1102
602 GOTO890 1017 LOAD"DFREPORT",8
608 FORI=1TOX:PRINT"{CRSR UP} PRINTING RECO 1018 PRINT"{SHFT CLR)(2 CRSR DNs)(2 SPACES}
RD #",I:ONKGOSUB798f842:GOSUB888:NEXTI LOADING CALCULATIONS SUBPROGRAM"
610 GOTO890 1019 LOAD"DFCALC",8
625 REM PRINT"(CRSR DN)(6 SPACEs}(CTRL 9)C( 1034 CLOSE4 :PRINT" (SIIFT CLR ) ( 2 CRSR DNs]SUB
CTRL 01ALCULATED REPORTS PROGRAM" PROGRAM TERMINATED"
636 IFC$="E"THENCLOSE4:GOT0510 1113 REM PRINT"(CRSR DN} {6 SPACEsHCTRL 9}C
638 IFC$="M"THENCLOSE4:GOTO514 (CTRL 0JALCULATED REPORTS PROGRAM"
639 REM IFC$="C"THENCLOSE4:GOTO516 1124 IFC$="E"THENCLOSE4:GOTO1012
642 IFCS="Q"THEN520 1126 IFC$^"R"THENCLOSE4:GOTO1016
706 PRINTTAB<32);"(CRSR UP}";:INPUTMLS(J,L) 1127 REM IFC$="C"THENCLOSE4:GOTO1018
:NEXTL:NEXTJ 1130 IFC$="Q"THEN1022
708 PRINT"(SHFT CLRJDO YOU WTSH TO SUM THE 1198 OPEN15,8,15:PRINTi¥15,"S0:ML) "+NF$:GOS
DATA IN COLUMN"*STR$(NC}+"?" UB1316:IFET=8THEN1102
709 PRINT"THIS COLUMN MUST ONLY BE FORMATTE 1200 OPEN5,8,5,"0:ML! "+NF$+",S,W":GOSUB131
D WITH" 6:IFET=8THEN1102
710 PRINT"ONLY ONE FIELD. ENTER (CTRL 9)1(C 1206 PRINTC5,ML${I,N):GOSUB1316:IFET=8THEN1
TRL 0) (YES} OR {CTRL 9}0{CTRL 0} (N0)" 102
711 PRINT"?";Z:INPUT"{CRSR UP}";Z 1212 PRINTiV5 , "EOF" :GOSUB1 31 6 : IFET^STHENl 1 02
740 OPEN15,8,15:PRINT#15,"S0:RP] "+NF$:GOSU 1224 OPEN15,8,15:OPEN5,8,5,"0:ML] "+NF$+",S
B87 6:IFET=8THEN614 ,R":GOSUB1316:IFET=8THEN1102
742 OPEN5,8,5,"0:RP] "+NF$t",S,W":GOSUB876: 1225 IFEN=62THENGOSUB1318:GOTO1102
IFET=8THEN614 1230 INPUTtf5,ML${I,N):GOSUB1316:IFET=8THEN1
744 PRINT#5,PW;CR$;NL;CR$;NC:GOSUB876:IFET= 102
8THEN614 1253 PRINT"{CRSR DN)(6 SPACEs}{CTRL 9}E{CTR
748 PRINT#5,TT$(J):GOSUB876:IFET=8THEN614 L 0}XIT TO MENU
754 PRINT#5,PC(I);CR$;HC$(I):GOSUB876:IFET= 1257 IFA$="E"THEN1102
8THEN614 1260 FQRI=1TQRW:FORJ=1TOLW:PRINT#4,RIGHT$(S
758 PRINT05,ML$(I,N):GOSUB876:IFET=8THEN614 TR$(J),1);:NEXTJ:PRINT#4,B1$:NEXTI
760 NEXTN:NEXTI:PRINT#5,STR$(Z};CRS;E$:GOSU 1262 FORI=1TOT%-RW:PRINT#4,B1$:NEXTI
B876:IFET=8THEN614 1274 FORS-1TOT%-RW:PRINTS4,B1$:NEXTS
762 CLOSE5:CLOSE15:GOTO538 1 302IFC$="S"THENT%^6:RW=5:LW=32:RETURN
770 OPEN!5,8,15:OPEN5,8,5,"0:RP] "+NF$+",S, 1304 IFC$^"L"TflENT%=9:RW=8:LW=32:RETURN
R" :GOSUB876:IFET=8THEN614 1310 INPUT"{CRSR DN) ENTER NUMBER OF ROWS O
771 IFEN=62THENGOSDB878:GOTO614 N LABEL",RW:T%=RW+1
772 INPUT#5,PWFNL,NC:GOSUB876:IFET=8THEN614 1316 INPUT#15,EN,EM$,ET,ES:IF{EN<20)OR(EN=6
776 INPUT#5,TTSiJ):GOSUB876:IFET=8THEN614 2)THENET=0:RETURN
782 INPUT#5,PC(I),HC$(I);GOSUB876:IFET=8THE 1324 ET=8:CLOSE5:CLOSE15:RETURN
N614
786 INPUT#5,ML$(I,N):GOSUB876:IFET=8THEN614

102 / RUN MAY M»S

From p. 10.
6 are ON, the number is 5x7 x 13 = 455. Set X% =455, 3> 1 EC Screen layout aids—A 12 inch flexible
and you can use statements like sleel ruler, of the type made by Bates and sold in office
101 IF XW/2 = INT(X%/2) 'MIEN PRINT '■CONDITION 1 IS ON" supply stores, makes a superb screen layout tool. Use the
102 IF X%/3 - rNT(XSB) THEN PRINT "CONDITION 2 IS ON" metric scale to measure CRT distances, and hi-res posi-
103 IF X%/5 = INT(X%<5) THEN PRINT "CONDITION 3 IS ON" tioning will he easier than you've ever imagined.
104 Etc
To simplify the counting of text iines, draw a dot at
to determine which conditions are ON. This works he- the start of every fifth line on your screen, about 1 mm
cause X% is evenly divisible by each of the prime numbers
into the border. I use a Sharpie brand marker for per
thai were multiplied together to get X% in the first place,
manence, and 1 make the dots as tiny as possible, to keep
but is not evenly divisible by any other prime, ['lie tech them from polluting the display.
nique fails if X% =0.
David Hall Louis F. Sander
Saskatoon, Saskatchewan Pittsburgh, PA
Canada
$ 1 ED Vertical tabbing—You can easily have
Binary flags—Often when reading a vertical tab function, similar to Commodore's horizontal
about programming, you see references lo selling or TAB, by using:
clearing a certain bit (turning it on or oil). Doing ibis is Hill DIM VTABJffS) : A$ = "{H()MK}" ; VTABS(O) = A$
not difficult at all, once you know the magic. If the eight 110 FORJ = 1TO25:A$ = A$ + "J(]RSRDN}" :
bits in a byte are numbered from 0 (low-order bit) through \TARSIJ) = AS: NEXT
7 (high-order bit), you can clear :t single bit in memory
Then, if you enter PRINT VTAB$(n), the cursor will move
location X by entering:
to the start of screen line n, in the same way that PRINT
POKE X,PEEK(X) AND (2BB-2I bitnumber) TAB(n) moves it to column n. As usual, the first line and
You can set a bit in location X by entering: column are numbered 0, rather than I.

POKE X,PEEK(X) OR (21 bitnumber) L.F.S.

Robert Rovinsky
Duluth, MN
$1 Magazine Indexes—Some of the most
$ 1 EA Bug busters—The Save- With Replace useful information in the computer field is found in the
back issues of magazines. A wonderful tool for finding it
bug—'does it exist, or doesn't it? Nobody knows for sure,
is the Microcomputer Index (24(>4 El Camino Real, Santa
but we're determined to find out. If you own a disk that's
Clara, CA 950:')I; 408984-1097). It's also available on-line
been slimed by SAVE®, we'd like to run it through out-
through the Dialog information service (800-227-1927).
lab. Send tli*.' sick disk to Magic, with a description of
Many libraries subscribe lo this treasure trove of com-
what seems to be wrong. Tell us which filc(s) got cor
puteriana. and some will search Dialog for you.
rupted, and include a detailed history of the disk. If we
examine enough disks, we're sure lo see a pattern. When
Once you've determined where a piece was published,
ask for it at the library or order the back issue from the
we do, the hug i.s doomed.
publisher. If all else fails, try to get a microfilm, from
Send a label and return postage, and we'll send back
your di.sk when we're done with it. Otherwise, we'll con
which a hard copy can easily be made. University Micro
films (300 N. Zeeb Road, Ann Arbor, MI 48106; 800-521-
sider it your contribution lo science and will dispose of
01)00) provides this type of service.
it in a dignified and caring way.
SAVE® problems only, please—we're not (he Com Frank Biondi
modore Clinic. Pittsburgh, PA
L.F.S.

$ 1 CD Scintillating screenwork— This gives 5p I tl" Computerese—In some computer pub-

an especially interesting pattern on 40-column screens: I ii at ions, the space character is signified by to—a lowercase
b with a slash ihrough it. It's easier to see and count than
10 LILT AS ; PRINT AS"' see text "; : GOTOIO
an empty space, and the b is a mnemonic for blank.
Between the quotes, type the shifted letters DDCCFRF
Rula Lenska
CCDDEE. Notice their nice grouping on the keyboard.
New York, NY
Put your machine in Graphics mode, then run the pro
gram. You can change colors by pressing the Commodore
key wilii one of the number keys. 91 FU Junkyard computing—Every CM car
Other interesting patterns can be made with these contains lengths of plastic wire tubing, split lengthwise
shifted letters, and {COMD V} and {COMD P} can add and used for harnessing cables. This material is excellent
to (he fun. My best results came from strings 13, 14 or for wrapping the many loose wires coming out of your
19 characters long. computer and is readily available in any automobile junk
Eric Haver yard. There are iwo si/.es of tubing in most cars; the larger
Squirrel Hill, PA one is best for most applications, i bought 50 cents worth,
RUNUAYI9MM03
Clrclo ??:. i'ii ii.' i j.' Service card.

LEROY'S CHEATSHEET
KEYBOARD OVERLAYS

and tin.' ;irc;i behind my computer is cleaner and

looking than I tlinuglii it ever would be.
Patrick Kiser
Silver Lake, IN

Power supply repairs—c:cmimodorc

power supplies are subject to self-destruction, because ol
a weakness in the 3052P voltage regulator inside. Not
FOR COMMODORE 64 only is it unreliable, bul the 3052P isn't available in [he
(VIC-20 also anBllnblo) United States, [f your power supply fails, chances are thai
LEROY'S CHEATSHEETS" are plastic laminated keyboard the problem LstheS053F. But you're in luck if your power
overlays designed for use with popular software and supply is of the type that can be opened for servicing1,
hardware for Commodore's VIC-20 & C-64 computers. because there's a widely available replacement regulator,
These cul-it-out yourself overlays are designed to (It over the Philips ECG-7805. (Equivalent to the Radio Shack 276-
the keyboard surrounding the keys with commands and 1770. Ed.]
controls grouped togelher for easy references.
The pin configurations of the two uniu are different,
as Illustrated below. I soldered B heavy wire onto pin ^
LEROY'S CHEATSHEETS™ of the new regulator, then Inserted the assembly into the
. make life easier lor you
8052P socket, sliding the 7H0:"> one hole to the right to
1.M=|.-M-J,I.1H*-VI.1 I ■ ■.-.it--tH^*.i:n.i.i.-i line up the "lit" nnd "gnd" pins with the original wiring.
D Eai, Strip! P Eliiin»i3iJ.i--ri nul ■.*<• Then 1 soldered the 7805'S new wire to the left hole of
O HtSWnlBr D ForineBeyiinDM'Jv
the S052P socket.
D PupoiCllp □ Sprite* Only
Q Uulck Brown Pal G HiyM S<mulfl(orll Marty Irons, K2MI
D Script £1
D SpeetocnpE iCiA/tTTEt
Goshen, NY
D 1541 Di&k
O Woid
C Oinniwriler
LANGUAGES

t UTILITIES
D COMftL
D SIMON'S BASIC
O CilC HfrlUll(
D Bm
n Cllt H«ufl i
G Euy Cilc
D
D Wulrip.an
□
□ PracTiCalcM
D Pilot i

D Inn Carlsullant i D Tr» Srrta'l 6J Iwminal

D Tn* Manager iCuu D VIP Terminal

□ Suf»ri)aM64

Oly.__X $3.95 $.
O Prrnier'C5-j(iyi ursBji.
n Punier,re*, ism upsm
Ehippirig & handing s 1.00
G Printer itcsoiiniM OUT IN GND OUT
Q PnnTer n^r-'.nD*
Q l'riii[B(Okidalo9! 133 6% sales tax S
IF'A rtUMnIB only)

TOTAL S
LI S f UNDS

9 1 rZ Drive not ready—Some disk operations

confuse the 1541 disk drive, resulting in a maddening
Drive Not Ready error. If you're using the wedge, this
can be easily remedied by typing @UJ. l! causes (he drive
to reset itself and is an easy way nut of most 1641 quirks.
John Patrick
Bourbonnais, IL

$ 1 F3 Video audio—Many TVs have an annoy

ing speaker buzz even when the sound is turned to its
lowest setting. If you're using such a TV for a monitor,
just plug a headphone into its headphone jack, and the

104 /RUN MAY

buzz should disappear. Sometimes you can use just a 5> 1 PO Character codes—To get some expe
plug, with nothing connected, and achieve thesameeffect rience with character codes on the C-64, try this recipe

Fred Lacey for Feminist's Delight:

Corvallis, OR 5 POKE 532H1,14:PRINT CHRJ(]<I)CHR$(5)

10 X = X + 1:PR1NT CHR$(18]CHRS((59)CHKS(82]CHRS(t>5)
CHRS(14ti)CHR$(32);:IF X<2<10 GOTO 10

$ 1 F4 Printer cable hang-up—Some sophis 20 GOTO 5!0

ticated programs, especially those Involving the disk drive, Elizabeth Oman
seem to be sensitive to the presence of other peripheral Lindsborg, KS
devices. I found several fast-copy programs that hung up
the computer whenever a printer cable was connected.
Disabling the printer didn't help—I had to physically
$ 1 F9 Answer screen—You can use the fol
lowing line to acknowledge correct responses in educa
remove the printer cable from the serial bus. If you have
tional programs. (To squeeze it into one line, you must
a similar problem, try removing the printer cable first,
abbreviate every Basic keyword.) It flashes the word
then look to the oilier ports for possible remedies: cassette
■RIGHT!" in the center of a blank screen.
port, user port, cartridge skit and. perhaps, even the
joystick ports. 500 PMNT"{SHFT CLR}":KORX = lT()l2:]»R]NTrAB(l7)
"{Ii) CRSR DNsJRIGH'lTVHORY - !TOHO:NEXT-PR1NT
Karl Thurber, W8FX ■■{yMFrCLR)":FORZ= ITOH():NEXT:NEXT
Millbrook, AL
It would be easy to use the line in a subroutine or to
change the word it prints.
$1F5 MPS-801 and labels—I his printer can Marlene Dunn
lake a minimum of 414-inch paper. Before buying labels to Miami, FL
use with it, carefully check their width, since many an- only
-1 V< inches wide and cannoi be used with the MPS-801.
James Llanos
Ketchikan, AK
Circle 182 on Reader Service card.

$ 1 PD Modem intercom—'['his tittle trick has

helped solve many modem problems. If you have two
computers and two modems, you can get them to talk to
each other over two phones on one line in your home.
With both ends of the link in one building, troubleshoot
ing becomes a snap.
Simply pick up the phone and wait for the loud beeping
to stop. It will take a minute or two, but it will eventually i>j*i yp to is' ikii at
-"■ ■ In] VI 'I :Vt UP IS **' - ilf

slop. I'lug thai phone into your modem (or switch from |JjHI i lit i ol LtiTl ■> lit tTflilabk from V 1

T to D if you have a 1650). Then pick up an extension '■■ WTjmI *ut£i .'j null ..»f Kiilriihj,

ana it m |uii4fkiiiDP.
phone and do the same for that. You should now be able
to converse between two computers on a single line!

Mike Mann
New Smyrna Beach, FL

$1 F7 Beware of humidifiers—The new ul

trasonic humidifiers can be hazardous to your computer's
health. Some of the manufacturers are including a small
warning that they may deposit harmful mineral films on
disks and computer equipment Unlike other humidifiers,
which depend on evaporation and leave the minerals
behind in the tank, these new ones physically spray the
water—minerals and all-—into the air. Distilled or spe
cially filtered water is one solution to the problem.
Tom Grayczyk
Chicago, IL

Cardinal SoFtwnrE

RUN MAV1985/105
From p. 36.
610 PRINT"{UOME)";TAB(37t"(CTRL 9}";I 1170 PRINTSP$;" {CTRL 9)(COMD +}{3 SPACEs){
620 RETURN SHFT OOMMODORE 64(4 SPACEsHCOMD +)"
630 FORX=1TO3000:NEXT:REM DELAY LOOP 1180 PRINTSP$;" {CTRL 9)(COMD +){19 SPACES)
640 RETURN {COMD tj"
650 GETA$:IFA$=""THEN650:REM WAIT FOR A KEY 1190 PRINTSPS;" (CTRL 9KCOMD +}{5 SPACEs){
STROKE SHFT S}i)OPPER'S(5 SPACES) (COMD +}"
660 RETURN 1200 PRINTSPS;" (CTRL 9)(COMD +){19 SPACEs)
670 REM UPDATE DISPLAY AFTER SELECTION (COMD +)"
680 PRINT"{HOME)"; 1210 PRINTSPS;" (CTRL 9](C0MD +)(5 SPACEs)(
690 FORX=1TOZQ-Q:PRINT"(CRSR DN)";:NEXT:IFZ SHFT C!OMPANION{5 SPACEsKCOMD +)"
Q>99THENPRINT"fCRSR RT}"; 1220 PRINTSPS;" (CTRL 9){COMD +){19 COMD LB
700 PRINT"(3 CRSR RTs}";SD$(ZQ-Q):RETURN .SHCOMD +J{CTRL 1}(CRSR DN)"
710 REM SOUND SUBROUTINES 1230 PRINTSPS;"{9 SPACEs}(SHFT B}Y(CRSR DN}
720 POKEH(0),130:POKEA(0),9:POKEH(2),30:POK ii

EV,V0 1240 PRINTSPS;"(SHFT J)OSEPH {SHFT J}. (SHF

730 POKEW{0),21 T SJHAUGHNESSY
740 MM=TI 1250 PRINTSP$;"(SHFT S1ERENDIPITY {SHFT S)O
750 IFTKMM+6THBN750 FTWARE
760 POKEW{0},20 1260 PRINTSP$;"8438 {SHFT L)YNDA {SHFT S)UE
770 GOTO880 (SHFT DANE (SHFT W) .
780 POKEV,2*V0/3:FORC=0TO2 1270 PRINTSP$;"{SHFT J}ACKSONVILLE, {SHFT F
790 POKEA(C),9:POKES(C),240:POKEH(C},34:POK )LA. 32217
EL(C),75:POKEW(C),17 1280 PRINTSP$;"PHONE{2 SPACES)904-737-8182
800 NEXT 1290 PRINTSPS;"{CRSR DN}{6 SPACEs)(C) 1985"
810 GOTO880 1300 RESTORE:GOSUB630
820 POKEV,V0:FORC=0TO2:POKEA(C),128:POKES(C 1310 REM SPECIFICS FOR TV AND PRINTER
),0:POKEH|C),34:POKEL(C),75:NEXT 1320 PRINT"(SHFT CLR}";SPS;"{6 CRSR DNs]{2
830 FORLL=1TON1:FORC=0TO2:POKEW(C),129:NEXT SPACES}[SHFT A}RE YOU USING A"
:FORMM=1TO5:NEXT 1330 PRINTSPS;"{CRSR DN}(2 SPACEs}(SHFT T)(
840 FORMM= 0TO2:POKEW{MM) ,12 8:NEXT SHFT V} OR A {SHFT M}ONITOR{2 CRSR DNs
850 MM=TI J"
860 IFTKMM+4THEN860 1340 GOSUB650
870 NEXT 1350 IFA$="T"THENC1$="":C2$="":GOSUB720:GOT
880 FORMM=54272TO54295:POKEMM,0:NEXT:RETURN 01390
890 REM SCREEN DISPLAY 1360 IFA$="M"THENGOSUB720:GOTO13 90
900 PRINTSDS(0) 1370 PRINTSPS;"{2 SPACEslTYPE ";QS;"T";Q$;"
910 FORX=1TO18:IFSD$(X)="(COMD +}"TKENX=18: OR ";Q$;"M";QS;"(CRSR UP)"
GOTO950 1380 FORBB=1TO3:GOSUB720:NEXT:GOTO13 40
920 IFQ+X<10THENPRINT"(CTRL 9 ) " ; Q-t-X ; " ( CTRL ! 3g0PRINTSP$;"{3 CRSR DNs){2 SPACES)[SHFT
0}";SD$(X):GOTO950 A}RE YOU USING A"
930 IFQ + X<100TI!ENPRINT"[CRSR LFHCTRL 9)";0 1400 PRINTSPS;" (SHFT OOMMODORE PRINTER"
+X;"(CTRL 0}{4 CRSR LFsl {3 CRSR RTs}"; 1410 PRINTSP$;"(CRSR DNH3 SPACEs}( (CTRL 9)
SDS(X):GOTO950 Y(CTRL 0)ES OR {CTRL 9)N(CTRL 0)0 ?)(C
940 PRINT"[CRSR LFHCTRL 9) " ; Q+X ; " {CTRL 0)( RSR DN)"
5 CRSR LFs) (4 CRSR RTs)";SDS(X) 1420 GOEUB650
950 NEXT 1430 IFA$="Y"THENCP=7:P1S="(SHFT @)":P2$="
960 IFR=1THENRETURN {3 COMD Ts}":GOTO1440
970 FDS=C1$+"(CTRL 9)F1{CTRL 0)"+F1$+" {CTR 1435 GOTO1460
L 9)F3{CTRL 0)"+F3$+" (CTRL 9)F5{CTRL 0 1440 P3$="(5 COMD @s) ":CPS- (CTRL 9} • CO
}"+F5S+" (CTRL 9)F7(CTRL 0) (SHFT A)DVA UPON ♦ (CTRL 0)"
NCEJ2 SPACEs)[CTRL 9)F2{CTRL 0} (SHFT D 1450 PC=1:GOTO1570
}ELETE" 1460 IFAS="N"THEN:P1S="(SHFT X)":P2$=" "
980 FDS = FD$-t-C2$ + " {CTRL 9) (SHFT FJUNCTION { :P3$="{5 LEFT ARROWS} :CPS-" ** COUPO
SHFT K)EY (SHFT M)ENU(CTRL 0}"+C1$+" {C N ** ":GOTO1490
TRL 9}F8{CTRL 0} {SHFT B)ACK UP {CTRL 1 ^470 PRINTSP$;"{2 SPACEs}TYPE ";Q$;"Y";Q$;"
}{2 CRSR UPs)" OR ";QS;"N";Q$;"fCRSR UP}"
990 GOSUB600:PRINTZ1$;FD$:POKE198,0:RETURN 1433 FQRBB=1TO3:GOSUB720:NEXT:GOTO14 20
1000 REM READ THE NEXT GROUP OF DATA !49(j GOSUB720
1010 GC=FRE(0> 1495 PRINT"(SHFT CLR}(6 CRSR DNs){SHFT T}YP
1020 FORX=1TO18:SD$(X)="{COMD +)":NEXT:X=1 E YOUR PRINTER SECONDARY ADDRESS:{*)":
1030 READAS P8$="":P9$=""
1040 IFLEN(AS)>35THENAS=LEFT$(AS,35) 1500 PRINT"(7 SPACEsKAS IN FORMAT - 0PEN4,
1050 IFAi="END"THENED=1:GOSUB1090:RETURN 4,;-)":INPUT"{2 SPACES)*{3 CRSR LFs}";C
1060 SD$|X}=AS:X = X-f1 :P = P-t-1 P
1 070 IFP = Q+1 8TI1EN:GOSUB1 090: RETURN 1 510 GOSUB720:PRINT"[CRSR DN)(SHFT S)END LI
1080 GOTO1030 NE FEEDS ((CTRL 9}Y{CTRL 0)ES OR {CTRL
1090 IFKB=0THENRETURN 9}N{CTRL 0}O)?(CRSR DN)"
1100 FORX=0TOI 1520 GOSUB650
1110 IFLI(X) (Q+1ORLKX) >PTHEN1130 1530 IFA$="Y"THENPF=PF+128:GOTO1570
1120 SDS(LI(X)-Q)="(CTRL 9)"+SDS(LI(X)-Q} 1540 rFA$="N"THEN1570
1130 NEXT:RETURN 1550 PRINTSPS;"{2 SPACEsJTYPE ";QS;"Y";Q$;"
1140 REM TITLE DISPLAY OR ";Q$;"N";QS;"(CRSR UP}"
1150 PRINT"{SHFT CLR}"SPSC1$"(3 CRSR DNs} ( 1560 FORBB = 1TO3:GOSUB720:NEXT:GOTO1 5 20
COMD I)(19 COMD LB.sKCOMD I}" 1570 SL$=" $$ SALE $$":GOSUB720
1160 PRINTSPS;" (CTRL 9)(COMD +}{19 SPACEs} 1580 REM MAIN PROGRAM LOOP
{COMD +)" 1590 IFBK=1TIIENGOSUB410:BK^0:GOTO162 0

KKWRUNMAVIW,
Listing 1 cuiitinneil.

1600 IFED=1THEN1950 2040 PRINTflPF

1610 GOSUB1010 2050 PRINT#PF,"(2 SPACEs}";P1$
1620 GOSUB900:R=0:GOSUB490 2060 PRINT#PF,P2$
1630 GETZ$:IFZS=""THEN1630 2070 FORPR=0TO99:IFL$(PR)="{COMD +}"THENPS=
1640 IFZ$<CHRS(133)THEN1720 PR:PR=99
16 50 IFZ$=CHRS(133)THENGOSUB490:GOSUB720 RE 2080 NEXTPR
M CANCEL 2090 FORPR=0TOPS-1
1 660 IFZ$=CHR$( 1 3-5 )THENGOSUB530 :GOSUB720 2100 REM CHECK FOR COUPON & SALE FLAGS
M COUPON ITEM 2110 MD=LEN(L$(PR))-1
1670 IFZ$=CHR$(135)THENGOSUB550:GOSUB720 RE 2120 E1$=RIGHT$(L$(PR),1):E2$=MIDS(L$(PR),M
M SALE ITEM D,l}
1680 IFZS=CHR$(136)THENN1=3:GOSUB820:Q=P :G0 2130 IFE2$="{COMD -)"ORE2S="{COMD LB.}"THEN
TO1590:REM ADVANCE L$(PR}=LEFT$(L$(PR),MD-1):GOTO2150
1690 REM DELETE AN ITEM 2140 IFE1$="{COMD -)"ORE1$="(COMD LB.)"THEN
1700 IFZ$=CHR$(137}THENGOSUB490:GOSUB720:D= L$(PR)=LEFT$(L$(PR),MD)
1:NM$="":GOSUB300:D=0:COTO1620 2150 IFE1$="(COMD -}"ORE2$="{COMD -}"THENL$
1710 IFZS=CHR$(140)THENN1=4:GOSUB820:BK=1:K (PR)=L$(PR)+CP$
B=1:NM$="":ED=0:GOTO1590:REM BACK UP 2160 IFE1$="<COMD LB.)"ORE2$="(COMD LB.}"TH
1720 IFZS=CHR$(13)THEN5760:REM CARR. RET. ENLS(PR)=LS(PR)+ELS
1730 IFZ$("0"ORZ$>"9"THEN1630:REM CHECK FOR 2170 PRINTi¥PF,P3$;LS(PR)
NUMERICAL INPUT 2180 NEXT
1740 IFLEN(NM$)>2THEN1630:REM CHECK FOR MAX 2190 PRINT#PF,CR$;CK$
. OF 3 DIDGETS 2200 PRINT#PF,"(SHFT T)OTAL ITEMS SELECTED
17 50 NM$=NM$+Z$:COSUB780:GOSUB600:GOTO16 30: =";I:PRINT#PF:PRINT#PF,CHR$(12)
REM BUILD THE ITEM NO. 2210 IFCP=7ANDPC=1THENFORX^lTO10:PRINT#PF,C
1760 ZQ=VAL(NM$):GOSUB720 R$;CR$;CRS:NEXT
1770 IF2Q<Q+1ORZQ>PTHEN1790:REM IS IT CURRE 2220 CLOSEPF
NTLY ON THE SCREEN 2230 REM PRINTER PROBLEM DEFAULT
1780 GOTO1830 2240 PRINT"{SHFT CLR}(3 CRSR DNsHSHFT W} OU
1790 PRINTZ1$;"(2 CRSR UPs}{CTRL 9}";C2$;"( LD YOU LIKE TO HAVE ANOTHER PRINTOUT?"
6 SPACES)* * NUMBER OUT OF RANGE(2 SPA 2250 PRINTSP$;"(3 SPACEs)TYPE ";Q$;"Y";Q$;"
CES)" '{6 SPACEsHCTRL 1)":NMS="" OR ";Q$;"N";OS;"(CRSR UPJ"
1800 FORBB=1TO5:GOSUB720:NEXT 2260 GOSUB650
1810 PRINTZ1$;"(2 CRSR UPs}";Y$:IFD=1THENRE 2270 IFA$="Y"THENTN=0:GOSUB780:GOTO1960
TURN 2280 IFA$="N"THENEND
1820 1=1-1:GOTO1930 2290 PRINTSP$;"{3 SPACEsJTYPE ";Q$;"Y";Q$;"
1830 IFLEFT5(SD$(ZQ-Q),1)^"{CTRL 9)"THENGOS OR ";Q$;"N";Q$;"{CRSR UP}"
UB210:REM WAS IT SELECTED BEFORE 2300 FORBB=1TO3:GOSUB720:NEXT:GOTO2260
1840 L$(I)-SDS(ZQ-Q):LI(I)=ZO.:REM PUT ITEM 3000 DATACORN,KALE,MILK,CHEESE,BREADFROUND
ON THE LIST STEAK,DOZEN EGGS,BAGELS
1850 REM CHANGE SCREEN DISPLAY OF ITEM TO R 3010 DATASUGAR,SALT,PEPPER,VANILLA,GROUND B
EVERSE EEF,LAMB,HAM,PRK CHOPS,COFFEE
1860 SD${ZQ-Q}="(CTRL 9)"+SD${ZQ-Q} 3020 DATACHICKEN,TOILET PAPER,PAPER TOWELS,
1870 GOSUB680 GRAVY MIX,CREAM CHEESE,ARTICHOKES
1880 IFF3=1THENL$(I)=L$(I)+ '(COMD -}":REM A 3030 DATAVITAMIN PILLS,SODA POP, POTATOE CH
DD COUPON FLAG TO ITEM ON LIST IPS,CHEESE CURLS,PRETZELS,CANDY BARS
1890 IFF5=1THENL$(I)=L$<I)+ '(COMD LB.}":REM 3040 DATAPOTATOES,BEANS,TOMATOES,TURNIPS,PA
ADD SALE FLAG TO ITEM ON LIST RSNIPS,OATMEAL,CREAM OF WHEAT, SPAM
1900 IFI=98THEN1910 3050 DATAMARSHMALLOWS,CHOCOLATE DRINK MIX,C
1905 GOTO1930 OOKING OIL,POPCORN
1910 PRINTZ1$;"{2 CRSR UPsHCTRL 9}";C2$;"{ 3060 DATAZUCCHINI,BRUSSEL SPROUTS,CREAM SAU
4 SPACEsHSHFT T)HAT WAS THE LAST ITEM CE,KETCHUP,MUSTARD, CASH A CHECK
- MAX 99{5 SPACEsHCTRL 1)" 5000 DATAEND
1920 FORBB=1TO5:GOSUB720:NEXT:L$(I+1)="{COM
D +}":FORX=1TO1500:NEXT:N1=10:GOTO1950
1930 1=1+1:GOSUB490:GOTO1630
1940 REM PRINTOUT OF SHOPPING LIST
1950 PRINT"(SHFT CLRHCRSR DN}(4 SPACEsHSH Listing 2. The Shopper's Cmpanitm prapam for Ike VIC-2O.
FT T}HIS COMPLETES THE SHOPPING LIST."
1960 PRINT"(CRSR DN) {SHFT M)AKE SURE THAT
YOUR PRINTER IS ON AND" 10 REM VIC-20 SHOPPER'S COMPANION
1970 PRINT"(8 SPACEslTHE PAPER IS POSITIONE 20 REM BY J. SHAUGHNESSY - 1985
D.":Z=80 30 REM SET UP CONDITIONS
1980 PRINTSP$;"{2 CRSR DNs){SHFT H)IT ANY K 40 PRINTCHR$(14)
EY WHEN YOU" 50 POKE36879,221:PRINT"{CTRL 1}":P=0:I=0:Q$
1990 PRINTSPS;"ARE READY FOR PRINTOUT":GOSU =CHR$(34)
B650 60 DIMLK99)
2000 CLOSEPF:OPENPF,4,CP:CR$=CHR$(10) 70 DIMLSI99),SD$(16)
2010 PRINT#I>F,P8$;"(6 SPACEsHSHFT S ){ SHFT 80 N1=10:PF=4
H)(SI1FT O}(2 SHFT PsHSHFT EHSHFT R)1 90 S1=36 87 4:S2=S1+1:S3=S1+2:V=S1+4
{SHFT SHSHFT SPACE}{SHFT C} {SHFT 0}{S 130 Z1$="(HOME}{19 CRSR DNs}":Y$="(22 SPACE
HFT MHSHFT P}(SHFT A){SHFT NHSHFT I) S)"
{SHFT O}{SHFT N}{4 SPACES}" 140 C1$="{CTRL 7J":C2S="{CTRL 3)":P8$=CHRS(
2020 PRINT#PF,"{11 SPACES)***************** 14):P9S=CHR$(15}
*•«»*»»******** + *******'i-p9j;c8$ 150 SD$(0)=" (SHFT CLRHCTRL 9) "+C1 $ + "SHOPPE
2030 PRINTtfPF R'S COMPANION" n-
RUNMAYimW 107
Listing 2 ami muni.

160 V0=15:POKEV,V0:Q=0:ED=0:BK=0:KB=0 780 POKEV,V0/3:POKES2,220:FORX=1TO50:NEXT:P

170 FORX=0TO99:L$(X}="(COMD +)":NEXT OKEV,0:POKES 2,0:RETURN
180 R=1:GOSUB490:R=0:GOTO1150 820 POKEV,V0:FORLL = 1TON10:POKES 1 ,200:FORX = 1
190 REM SUBROUTINES TO10:NEXT
830 POKES1,0;FORX=1TO65:NEXT:NEXT:POKEV,0:R
200 REM REMOVE REVERSE PRINT FROM SCREEN DI
SPLAY AND CLOSE GAP IN LIST ETURN
210 ER=LEN(SD5(ZQ-Q))-1 890 REM SCREEN DISPLAY
220 SD$(ZQ-Q)=RIGHT$(SD$(ZQ-Q),ER) 900 PRINTSD$(0)
230 FORS=0TOI-1 910 FORX=1TO16:IFSD$(X)="{COMD +)"THENX=16:
240 IFZQ=LI(S)THENT=S:S=I-1 GOTO950
250 NEXT 920 IFQ+X<10THENPRINT"{CTRL 9}";QtX;"{CTRL
260 FORS=TTOI-1 0}";SD$(X):GOTO950
270 L${S)=L$(S + 1 ) :LI(S)=LKS + 1 ) 930 IFQ-fX<100THENPRIHT"{CRSR LFHCTRL 9)";Q
280 NEXT:I=1-1:RETURN +X;"{CTRL 0)(4 CRSR LFs) (3 CRSR RTs}";
290 REM DELETE SUBROUTINE SD$(X):GOTO950
300 PRINTZ1$;C2$;"{2 CRSR UPs){CTRL 9) (SHF 940 PRINT"{CRSR LF]{CTRL 9}";Q*X;"{CTRL 0J{
T DJELETE (SHFT I)TEM H :(CTRL 0)£ 5 SPA 5 CRSR LFs} (4 CRSR RTs)";SD${X)
CEsHCTRL 9}(4 CRSR LFs|";NMS 950 NEXT
310 GETZ$:IFZ5=""THEN310 960 IFR=1THENRETURN
320 IFZ$=CHR$(13)THEN370:REM CARR. RET. 970 FD$ = C1$-t-"{CTRL 9}F1(CTRL 0}"+F1$ + " {CTR
330 IFZ$=CHR$(133)THENR=1:GOSUB490:GOSUB720 L 9}F3(CTRL 0)"+F3S+" (CTRL 9}F5{CTRL 0
:RETURN;REM CANCEL )"+F5S+"(CTRL 9}F7(CTRL 0){SHFT A}DVNC
340 IFZ$<"0"OR2$>"9"THEN300:REM CHECK FOR N {CTRL 9}F2(CTRL 0}{SHFT D}ELET"
UMERICAL INPUT 980 FD$=FD$+" {CTRL 9)F8{CTRL 0)(SHFT B}ACK
350 IFLEN(NM$) >2T!IEN300:REM CHECK FOR MAX. "4-C2$ + "{CTRL 9}{2 SPACEs}(SHFT F}UNCTIO
OF 3 DIDGETS N {SHFT K)EY (SHFT M}ENU(3 SPACEs){CTRL
360 NM$=NM$+Z$iGOSUB780:GOTO300:REM BUILD T 0HCTRL 1 } (4 CRSR UPs}"
HE ITEM NO. 990 GOSUB600:PRINTZ1$;FD$:POKE198,0:RETURN
370 ZQ=VAL{NM$):GOSUB720 1000 REM READ THE NEXT GROUP OF DATA
380 IFZQ<Q+1ORZQ>PTHENGOSUB1790:GOSUB490:GO 1010 GC=FRE(0)
TO1620;REM IS IT NOW ON THE SCREEN ? 1020 FORX=1TO16:SDS{X)="{COMD +}":NEXT:X=1
390 IFLEFT$(SD$(ZQ-Q),1><>"(CTRL 9}"THENGOT 1030 READAS
O1620:REM IS IT DELETADLE 1040 IFLEN(A$)>17THENA$=LEPT$(A$,17)
400 GOSUB210:L$(I)="{COMD +)":LI(I)=0:RETUR 1050 IFA$="END"TUENED=1:GOSUB1090:RETURN
N 1060 SDS(X}=AS:X=X+1:P=P+1
410 IFQ=0THENRETURN 1070 IFP=Q+16THEN:GOSUB1090:RETURN
420 RESTORE:REM BACK UP SUBROUTINE 1080 GOTO1030
430 P=0 1090 IFKB=0THENRETURN
440 IFQ=16THEN460 1100 FORX^0TOI
450 FORX=1TOQ-16:READA$:P=P+1:NEXT 1110 IPLI(X)<Q+1ORLI(X)>PTHEN11 30
460 Q=Q-16:GOSUB1010 1120 SDStLI(X)-Q)="(CTRL 9}"+SD$(LI(X)-Q)
470 RETURN 1130 NEXT:RETURN
480 REM INITIALIZE FUNCTION KEY MENU 1140 REM TITLE DISPLAY
490 F1S="tSHFT CJANCL":NM$="" 1150 PRINT"{SHFT CLR}"C1S"{2 CRSR DNsKCOMD
500 F3$="(SHFT C}OUPN":F3=0 I}{20 COMD LB.s)(COMD I}";
510 F5$="(SHFT S}ALE":F5=0:GOTO570 1160 PRIHT"(CTRL 9}{COMD +}(20 SPACEs){COMD
520 REM FUNCTION KEY SELECTED DISPLAY + }";
530 IFF3=1THENF3=0:F3$="{SHFT CJOUPN":GOTO5 1170 PRINT"{CTRL 9}(COMD +}{6 SPACEsJISHFT
H V}(SHFT I}{SHFT CJ-2018 SPACEslfCOMD t
540 F3=1:F3$="(CTRL 9)"+F3S+"{CTRL 0)":GOTO
570 1180 PRINT"(CTRL 9}(COMD +}{20 SPACEs)(COMD
550 IFF5=1THENF5=0:F5$="{SHFT S}ALE":GOTO57 + }";
0 1190 PRINT"(CTRL 9}(COMD +}{5 SPACEs}(SHFT
560 F5=1:F5$="(CTRL 9}" + F5$t"{CTRL 0)" S}{SHFT HHSHFT O}{2 SHFT Ps}{SHFT E}{
570 GOSUB960 SHFT R)'(SHFT S){6 SPACES}{COMD +}";
580 RETURN 1200 PRINT"(CTRL 9}{COMD +}{20 SPACEsXCOMD
590 REM UPDATE SELECTION AND ITEM COUNT + >")
600 PRINT21$;"(2 CRSR UPsHCTRL 9) {SHFT S} 1210 PRINT"{CTRL 9}(COMD +}{5 SPACEs)(SHFT
ELECT (SHFT I}TEM # :(CTRL 0}{5 SPACES} C}{SHPT 0}{SHFT M}(SHFT P)(SHFT A}(SHF
{CTRL 9}{4 CRSR LFs]";NM$ T N}{SHFT I}{SHFT 0){SHFT N}{5 SHFT SP
610 PRINT"{HOME)";TAB(19)"{CTRL 9}"; I ACEs} {COMD t}";
620 RETURN 1220 PRINT"(CTRL 9){C0MD +}{20 COMD LB.s}{C
630 FORX=1TO5000:NEXT:REM DELAY LOOP OMD +){CTRL 1}"
640 RETURN 1230 PRINT"(9 SPACES}(SHFT B}Y{CRSR DN}"
650 GETA$:IFA$ = ""T11EN650:REM WAIT FOR A KEY 1240 PRINT" {SIIFT J JOSEPH {SHFT J). {SHFT S}
STROKE HAUGHNESSY

660 RETURN 1250 PRINT"{SHFT SJERENDIPITY (SHFT SJOFTWA

670 REM UPDATE DISPLAY AFTER SELECTION RE

680 PRINT"{HOME}"; 1260 PRINT"8438 (SHFT L}YNDA (SHFT S}UE {SH

690 FORX=1TOZQ-Q:PRINT"{CRSR DN}";:NEXT:IFZ FT DANE {SHFT W)
Q>99THENPRINT"(CRSR RT}"; 1270 PRINT" (SIIFT J}ACKSONVILLE , {SHFT F}L.32
700 PRINT"{3 CRSR RTs}";SD$(ZQ-Q):RETURN 217
710 REM SOUND SUBROUTINES 1280 PRINT"PHONE(2 SPACES}904-737-8182
720 POKEV,2*V0/3:FORX=150TO2 40STEP9:POKES3, 1290 PRINT"{CRSR DNH6 SPACEs}(C) 1985"
X:NEXT 1300 RESTORE:GOSUB630
730 POKEV,0:POKES 3,0:FORX=1TO20:NEXT:RETURN 1310 REM SPECIFICS FOR TV AND PRINTER »

10H/RUN MAY 1985

Circle 04 on Header Service card Clrcla 193 on Reader Service card

We'll Have the New Advanced Commodore Products 1st!!

lit 11 HUVV- II1V lli_>> j

NEW LOW PRICES! SJSaSSa

PRODUCTS! XiSSffr.

NEED REPAIRS? Wa aro -m m

( ...|.. K |i i.. I'rnlL'r!"

NKWC-128!!!
Call fur pricing,
ivailabiKty & software.
Use your Commodore 64 to improve your performance at
the track! These fine programs for Thoroughbreds, Harness
Horses and Greyhounds combine the power of your com
puter with the savvy ol a veteran handicapper. Spend a few PRINTERS
minutes entering data, and The Handicapper will rank the Powertypfl Daisywheel is CP3 Epson nx so
horses or flogs in each race. All the information you need is wilh Tymac CowiKlion. . . S299
readily available from the Thoroughbred Racing Form, har Okitlulo 92 ISO CPS DPS 1101 Daisywhtel
with Tyniai' Conncclion .... 42!( Diiecl Conned lo CIA .... Cull
ness or greyhound track program. We even provide a dia
Commodore MPS 802 . Call EtilcniaiiC-t- NEW Call
gram that shows you where to find it!
Okiilata 182 NEW Call MW-350 Interface NEW Call
Horse racing factors include speed, class, past perfor
mance, post position, stretch gain, beaten favorite, pckey or SPECIAL HRINTSHOP '32.00 • SPECIAL
driver's record, weight (for thoroughbreds) and parked-out DISK DRIVES
signs (for trotters). Greyhound factors include speed, past Cull Commodore 1541 .... Cull
performance, class."lavorite box. kennel record, breaking Indus GT Cnll Phtmcmurk Dat&Kttfl *^9
tendencies, beaten favorite. Mpy.\ Fast ! (i.nl S27
Complete instructions and wagering guide included Thor Commodore 1571/72., Cull
oughbred, Harness or Greyhound Handicapper, only
$34 95 each on tape or disk. Any two, just $49.95. All three SG10 PRINTER
only $64 95. Checks, Money Orders or VISA/WC welcomed. 2K Hufler
NIQModc
Federal Hill Software
825 William Street
MONITORS
Baltimore, Md. 21230
lVkiiikiiMJIO SI89 Zenith 7.VM Ci/AroLi . 189/99
Toll Free (Orders Only) 800-245-6228 Commodore 1702 .... Cull L'oinmodarc 1902 .... Call
For Information Call 301-547-1447
DATABASE MANGERS
The Consultant $5!) I'F<i:File S5<)
Super liiisc 64 49 Pl-'S:Repori 49
Circle 350 on Reader Sarvlco carfl The jMuniigL-r 35

WORD PROCESSORS
Paper Cllp/&speller S55/6'J Easy Script $35
Reel Syslem 2 NEW.... Call Basy Spell 17

ACCOUNTING
PeachtreeGUAP/AR S139
Commodore GL/AP/AR/PR/INV bo. 34

FLOPPY COMPUSERVE STARTER

KIT&VIDTBX
„„
B.jhinr oy.y5
-,-

HOUSE MODEMS
Wcstrtdge6«0
Mighty Mo
Coll
Call
16 S Chestnut Street. Box 308. Palmyra. PA 17078 Volksmotieni 12 1200 snJ- Call
VIP Terminal S29
PROGRAM NAME PRICE
Commodore 1660 59
Aavpnuire Cong SpI . S37 95 *** FREE!
Amazon 523 95
BONUS GIFT
DpiichKe.iB II (35.95
CompuServe Sinner Kit $21.95 With any Software ACCESSORIES
Duudte !I8.95 order) — an excollonl
Com Cool Drive Pun S49 Power Piik $27
Evdiyn Wand'p Dynamic
Public Domain version Com Cool Plus vrfsurge fi9 Surga Protector 4-Plsa ... 25
J3S.95
of an a/cade hit game on
Fetirenrie.1451 $33.35
FlpM Syslem (Word its own disk. BLACK NAUGAHYDE COVERS
Processor) .. S56 95 C-64(ir 1541 Drive - - . ca S5 1 702 Monitor $10
Flights™ II... S35 95
Kidmnter ... £1995
MSDDrives 1/2 5/6 1525/MPS801 7
Micro League Gemini 1OX 9 1526'MPS 802 S
Baaetiail . szs 95 ORDERING MOiT OBIltRS SHIPfbl) WITHIN « HOL'FIS' AihtHiMil pi so <rt la bint thKt a moniy ordtl
M/L Statistics Disk VBrVMC onfcn «U U> NOCODORnERS Piruiiulranjinpanjihrrludrlj, ntdt.i'l iljyi All uln
(19SJ) .... 113.95
& TERMS ire rinil - drliant ntrrihiruh* ciEhin[Fil fni umc proOutl irplj- AJil 1% for *hifpm|f \12 W> mm t

Milt AlFify Acn 123.95 1 VISA 4 M C Fltut all hi shipping iin rtLODilon Ohio rrsiJrnu idj 'j 5% uln r» Price! & jvablatililf subjrcl U chtn^
Mirinjp D.tt.i B*14*> net wit u<l wilh no IIDIIH.S: MtIN I'HI IC) AM In IIU'M • BA1 HJ AM In f> I'M ■ SUN N Ill S I'M

800-638-2617
Man J87.8S chatgo In |hn
Mirage Word Pro $58.95 conEinamjii U.S A
Mow Maker 137.95 " I?.50 shipping trwgo on
Niglil Mission Pirlball . 121.95 oidara under ttOOOO INFORMATION £ IN OHIO 2lft/758-001)9
Pro-Tec" Vinyl Covers I5.3S ' Pa Residenis and 6% Sales
Question 127.95 Ta.
flairi Ovpr Mbecowj 127.95 1 Prices subjoci lochangaw/o
Fobols ol Dawn . . 127.95 notice
Supwha&e 6J 15? 95 1 48 hour shipping for * ■- • ■
Viatei .. 111.95 chveh - Mujihv Oidtr - charge
VIPTcrmmel .... 129.95
1301 UOAHDMANPOLANDROAD POLAND, OHIO 445 14

RUNmaviiw;,/ 109
Listing 2 continued, 1495 PRINT"SECONDARY ADDRESS:(*)":P8$="":P9
1320 PRINT"[SHFT CLR}{6 CRSR DNs}{2 SPACES}
(SHFT A}RE YOU USING A" 1500 PRINT"(FORMAT - OPEN4,4,+)":INPUT"{2 S
1330 PRINT"(CRSR DN){2 SPACEs){SHFT T){SHFT PACEs}*<3 CRSR LFS)";CP
V) OR A {SHFT M}QNITOR{2 CRSR DNs}" 1510 GOSUB720:PRINT"(CRSR DN)(SHFT S)END LI
1340 GOSUB650 NE FEEDS"
13 50 IFA$="T"THENC1$="":C2S="":GOSUB720:GOT 1515 PRINT"!(CTRL 9}Y(CTRL 0)ES OR {CTRL 9)
01390 N{CTRL 0)O)?{CRSR DN}"
1360 IFAS = "M"THENGOSUB720:GOTO139(J 1520 GOSUB650
1370 PRINT"{2 SPACEsJTYPE ";Q_$;"t";Q$;" OR 1530 IFA$="Y"THENPF=PF+128:GOTO1570
";QS;"M";QS;"{CRSR UP}" 1540 IFAS="N"THEN1570
1380 FORBB = 1 T03 : GOSU13720.■ NEXT :G0T01 3 40 1550 PRINT"t2 SPACEsJTYPE ";QS;"Y";0$;" OH
1390 PRINT"{3 CRSR DNs){2 SPACEs)(SHFT A)RE ";Q$;"N";Q$;"{CRSR UP)"
YOU USING A" 1560 FORBD=1TO3:GOSUB720:NEXT:GOTO15 20
14 00 PRINT" (SHFT C|OMMODORE PRINTER" 1570 31.$"" $$ SALE $$":GOSUB720
1410 PRINT"{CRSR DN)(3 SPACES]({CTRL 9)Y(CT 1580 REM MAIN PROGRAM LOOP

RL 0}ES OR (CTRL 9JN{CTRL 0}O ?){CRSR 1590 IFBK=1THENGOSUB410:BK=0:GOTO1620

DN}" 1600 IFED=1THEN1950
1420 GOSUB650 1610 GOSUB1010
1430 IFA$< >"Y"THEN14 60 1620 GOSUB900:R=0:GOSUB490
1435 CP=7:P15="{SHFT @}":P2$=" {3 COHD Ts)" 16 30 GETZ$:1FZ$=""THEN16 30
:P3$="{5 COMD 3s) ":CPS=" {CTRL 9) * C 1640 IFZS<CliRS{133)THEN1720
OUPON • {CTRL 0}":GOTO1450 1650 IFZS=CHR${133)THENGOSUB490:GOSUB720:RE
14 40 GOTO!460 M CANCEL
1450 PC=1:GOTO1570 1660 IFZ$=CHR$(134)THENGOSUB530:GOSUB720:RE
1460 IFA$="N"THEN:P1$='MSHFT X)":P2$=" " M COUPON ITEM

:P3$="{5 LEFT ARROWS} ":CP$=" ** COUPO 1670 IFZ$=CHR$(135)THENGOSUB550:GOSUB720:RE

M SALE ITEM
N ** ":GOTO1490
1470 PRINT"(2 SPACEs)TYPE ";QS;"Y";Q$;" OR 1680 IFZ$=CHR$(136)THENN1=3:GOSUB820:Q=P:GO
";Q$;"N";Q$;"{CRSR UP}" TO1590:REM ADVANCE
1460 FORBB=1TO3:GOSUB720:NEXT:GOTO14 20 1690 REM DELETE AN ITEM
1490 GOSUB720:PRINT"{SHFT CLR}(6 CRSR DNs){ 1700 IF?,$ = CHRS( 1 37JTHENGOSUB490 :GOSUB720:D=
SHFT TJYPE YOUR PRINTER'S" 1 :NM$ = "":GOSUB300:D=0:GOTO!620
IFZ$=CHR$(140)THENN1=4:GOSUB820:BK=1:K
B=1:NM$^"":ED=0:GOTO1590:REM BACK UP
Circle 254 on Reader Service card 1720 IFZS=CHR$(13)THEN1760:REM CARR. RET.
1730 IFZ$<"0"ORZ$>"9"THEN1630:REM CHECK FOR

Software Discounters , 1740

NUMERICAL INPUT
IFLEN(NMS)>2THEN1630:REM CHECK FOR MAX
„ \ S.D. of A. >
. OF 3 DIGITS
Ot America <& Peripherals, too!) V '
1750 NM$=NM$+ZS:GOSUB780:GOSUB600:GOTO1630:
For Orders Only 1-800-225-7638* REM BUILD THE ITEM NO.
1760 ZQ=VAL(NMS)IGOSUB720
Inquiries and PA 412-361-5291 Open Saturday 1770 IFZQ<Q+1ORZQ>PTHEN1790:REM IS IT CURRE
* Free shipping on orders over S100 in continental USA NTLY ON THE SCREEN
• No surcharge foi VISA/MASTERCARD 1780 GOTO18 30
1790 PRINTZ1$;"{2 CRSR UPs)(CTRL 9}";C2$;"*
The only telecommunications package NUMBER OUT OF RANGE* [CTRL 1)":NM$=""
you will ever need. FORBB=1TO5:GOSUB720:NEXT
1810 PRINTZ1$;"(2 CRSR UPs)";Y$:IFD=1THENRE
TURN
1820 1=1-1:GOTO1930
1830 IFLEFT$(SD${ZQ-QJ ,1 )="{CTRL 9)"THENGOS
UB210:REM WAS IT SELECTED BEFORE
1840 LSII)=SD$(ZQ-O):LI(I)^ZQ:REM PUT ITEM
ON THE LIST
1850 REM CHANGE SCREEN DISPLAY OF ITEM TO R
EVERSE
1860 SD$(ZQ-Q)="{CTRL 9}"+SD$(ZQ-Q)
Frae Subscription 1870 GOSUD680
ID o.er 60 Popular Dala Bases
1 IFF3=1THENL$(I =L$(I)+"(COMD -}":REM A
• Auto Dial/ DD COUPON FLAG TO ITEM ON LIST
Answer Modem
1890 IFF5=1THENL$(I =L$(I)+"{COMD LB.}":REM

39 95 ADD SALE FLAG TO ITEM ON LIST

1900 IFI=98THENPRINTZ1$;"[2 CRSR UPS)(CTRL
bsi price ovor ForCommodore 64 9)";C2S;"(SHFT Y}OUR LAST ITEM -MAX 99
(CTRL 1J":GOTO1920
'Ordering and Terms: Orders wiln cashier check or money order shipped am-
meOialely Personal/company checks, anon 3 weeks clearance No CO D.'s. 1910 GOTO!930
Shipping Continent*! U.S.A.—Orders under $100 aoa $3. Ires shipping on orders 1920 FORBB=1TO5:GOSUB720:NEXT:L$(I+1)="{COM
□v*r $100. PA residents adu SV. sales ta* AK. HI. FPOAPO—atia 15 on all oroers
Inlamallonal Ord«r Policy—No CrpdW Cards — arid 115 or 15% ol ordnrvihlcnever is
D +)":FORX=1TO1500:NEXT:N1-10:GOTO1950
qroalest. Defective merchiiruli^i? will De replaced wuh same morcharuiirm — HO 1930 1=1+1:GOSUB490:GOTO16 30
CREDITS1 Relurn rnuat tlflve jutliiirl/jitlcn number (412) 361 5291. PrlGnu subject tn 1940 REM PRINTOUT OF SHOPPING LIST
OliVJigB wittiuut notice

110/RUN MAV19K
 lA.\ting 2 continual,

1950 PRINT"{SHFT CLR){CRSR DN){SHFT TJHIS

OMPLETES THE"
1955
1960
PRINT"S!iOPPING LIST."
PRINT"(CRSR
OUR"
DN)(SHFT MjAKE SURE THAT WHATEVER HAPPENED TO
F/VYWRAY
1965 PRINT"PKINTER IS ON AND THE"
1970 PRINT"PAPER IS POSITIONED.":Z=80
1980 PRINT" (2 CRSR DNsHSHFT H}IT ANY KEY W
HEN YOU"
1990 PRINT"ARE READY FOR PRINTOUT":GOSUB650
2000 CLOSEPF:OPENPF,4,CP:CRS=CHR$(10)
2010 PRINT#PF,P8$;"[8 SPACES}{SHFT SHSHFT
H}(SHFT O}{2 SHFT PsKSHFT E}{SHFT R) '
(SHFT SHSHFT SPACE) {SHFT CHSHFT O)(S
HFT MHSHFT PHSHFT AH SHFT NHSHFT I)
(SHFT 0}(SHFT N)"
2020 PRINT#PF,"{16 spaces}***"*************
************♦********";P9$;CR$

2030 PRINTflPF
2043
2050
PRINTtfPF
PRINT#PF,"{2 SPACEs)";P1$
u
2060 PRINT#PF,P2$
2070 FORPR=0TO99:IFL$(PR)="1COMD + } "THENPS =
PR:PR=99
2080 NEXTPR
2090 FORPR=0TOPS-1
2100 REM CHECK FOR COUPON 8 SALE FLAGS
2110 MD=LEN(L$(PR})-1
2120 E1$=RIGHT$(L$(PR),1):E2$=MIDS(L$(PR),M
D,l )
should
2130 IFE2$="(C0MD -)"0RE2S="{COMD LB.}"THEN
L$(PR)=LEFT$(L$(PR),MD-1):GOTO2150
backed ner up
2140 IFE1$ = "(C0MD -} "0RE1 $ = " {COMD LB.)"TIIEN
L$(PR)=LEFT$(L$(PR),MD)
with the NEW
2150 IFE1$="(C0MD -)"0RE2$="fCQMD -}"THENLS Copy Q
( PR )=!.$( PR }+CP$
2160 IFE1$="(C0MD LB.)"0RE2$="{COMD LB.}"TH
ENL$(PR)=L$(PR)+SL$
2170 PRINT//PF,P3$;L$(PR) In the software jungle,
2180 NEXT no copy program for the Commodore 64IM
2190 PRINT#PF,CR$;CR$ works better or copies more at any price!
2200 PRINT#PF,"{SHFT T)OTAL ITEMS SELECTED Copy Q is the fastest, most reliable, and easiest-ro-use.
=";I:PRINT#PF:PRINT#PF,CHR$(12}
And Copy Q even comes with a backup!
2210 IFCP=7ANDPC=1THENFORX=1TO10:PRINTWPF,C
RS;CRS;CRS:NEXT Ttie NEW Copy Q conlams a TRUE INTELLIGENT NIBBLER which copies
2220 CLOSEPF an Ihe inloinidtion on a disk and even Ihe nowesl copy protection including
halllracks track 36 ' .varying data density m isordc rod and extra sectors
2230 REM PRINTER PROBLEM DEFAULT nap ant) sync Iracks and much more
2240 PRINT"{S11FT CLR)(3 CRSR DNsHSHFT W}OU
LD YOU LIKE TO HAVEANOTHER PRINTOUT?"
Copy Q is lully automatic There are no parameters to se: You don't even
ed to swap disks when using two drives
2250 PRINT"{3 SPACEsJTYPE ";Q$;"Y";Q$;" OR
";QS;"N";Q$;"(CRSR UP)" And Copy Q makes the FASTEST backups by ustng intelligent scanning
data compression, and super-fast data com mu meal ion Most disks are
2260 GOSUB650
opieci in just three minutes And many disks that require extensive nibbling
2270 IFAS^"Y"THENTN=0:GOSUB780:GOTO1960 'e copied in less than five minutes
2280 IFA$="N"THENEND
2290 PRINT"{3 SPACEsJTYPE ";Q$;"Y";Q$;" OR CopyQcontamsother features found nowhere else CopyQrevirgmsdisks
rather than erasing ihem Copy Q also contains a ulitily Ihat automatically
";Q$;"N";Q$;"(CRSR UP)" hacks up any (fata disk and removes all data errors in fusl two minutes
2300 FORBB=1TO3:GOSUB720:NEXT:GOTO2260
It's a software protection jungle and your data and program integrity are at
3000 DATACORN,KALE,MILK,CHEESE,BREAD,ROUND
stake So don't monkey around with the others You can climb straight to
STEAK,DOZEN EGGS,BAGELS Ihe top willi the NEW Copy Q by Q-R & D
3010 DATASUGAR,SALT,PEPPER,VANILLA,GROUND B
EEF,LAMB,HAM,PORK CHOPS,COFFEE Now only &
3020 DATACHICKEN,TOILET PAPER,PAPER TOWELS, Seven day money back guaranteed
GRAVY MIX,CREAM CHEESE,ARTICHOKES
niiy Q end OthBf fine Q-K ^ D products dn< ■ivdildble at more than 300 dealers na-
3030 DATAV1TAMIN PILLS,SODA POP, POTATOE CH
unjlfy For tbft name of ths dfldlor nearul you cill
IPS,CHEESE CURLS,PRETZELS,CANDY BARS
30<30 DATAPOTATOES, BEANS, TOMATOES, TURNIPS, PA 612 831-1088
RSNIPS,OATMEAL,CREAM OF WHEAT, SPAM O Order Direct call
3050 DATAMARSHMALLOWS,CHOCOLATE DRINK MIX,C 612 922-0516
OOKING OIL,POPCORN
3060 DATAZUCCHINI,BRUSSEL SPROUTS,CREAM SAU
CEFKETCHUP,MUSTARD, CASH A CHECK
5000 DATAEND ONE WiTST LAKE STREET. MINNEAPOLIS MN 55408 - 612922-7628
Clrclo 188 on Realtor Sorvicncard,

RUN MAY I9SS/ 111

 HARDWARE GALLERY

Compiled by SUSAN TANONA

1541 Flash!
into account the various factory up faster loads and saves and some ad
dates in computers and disk drives. ditional flexibility and power at a
A tiny wedge is included, and if moderate price. (Skyles Electric Works,
Speed Up those Loads you enjoy using the wedge as part of 231-E Smith Whisman Road, Mountain
your computer operations, you will View, CA 94041. C-64/$90.)
And Saves and Get
really appreciate this feature. Inter Dan Linscheid
More from Your C-64 nal operations of the drive are per Sheridan, OR
formed at the normal rate of speed.
In addition W speeding up data trans
Skyles Electric Works' 1541 Flash!
is a hardware enhancement that con
fer, 1541 Plash! simplifies the actual
preliminary operations required to Learning Express:
nects to the C-64 and the 1541 disk locate and begin loading a program.
drive, enabling much faster loads and The utilities added by Flash! in How to Operate
saves of programs and data. clude single, double and simulta
To load a directory using I'l-ll neous keystroke implementation of:
delete line, escape quote, cursor to
The Commodore 64
Flash!, you simply type: LOAD "$.
You then simultaneously press the bottom of screen, 16-character tab
A C-64 Tutorial
run/stop and shift keys, and the first and return wiihout line execution.
program on the disk will load into Also, several items for using your That's Perfect for
the machine in iis original memory printer within Basic programs are The Computer Novice
location. Loads and saves are about included.
three times faster than normal. The manual describes some new
1 54 l Flash! consists of a new kernal machine language abilities that will al
ROM assembly (with a piggyback at low loading and saving ai up to ten FlipTrack Learning System's How
tachment for the original kernal), a times the normal rate of speed. (1 have to Operate the Commodore 64 is an ex
not yet attempted these, as I've been cellent introduction to the 64. It takes
cable that runs between the disk
drive and computer, a device that too busy enjoying the additional speed computer beginners from unpacking
plugs into the computer's user port and added commands to move on.) the computer through basic opera
and a new operating ROM chip for I have run across a few limitations tions and keyboard functions.
the 1541. The user pent is extended with the package, one of which in The course consists of two audio
volves the manual, which seems to tapes, several programs on cassette
out with a CableCard.
have been compiled and printed in a and a reference guide that summa
It should take you no longer than
80 minutes to connect 1541 Flash! to hurry. Also, I've encountered some rizes the main points from the tapes.
your computer system. You simply problems using a word processor The course provides lots of confi
unplug the original kernal and install while my printer and its interface are dence-building, hands-on exercises,

the new items. There is a small switch plugged in and powered up, but it with easy-tounderstand instructions.
on the C'ableGard that allows you to could be that mine is a hardware-spe This tutorial is designed for users
disable Flash! and return to the com cific problem that you may not en who have had no previous experi
counter with your particular system. ence with computers. It uses simple
puter's original operation.
The section of the 52-page manual 1541 Flash! will save you much of words—no jargon without an expla
that covers installation is accom the time required in normal disk nation—and everyday examples.
panied by numerous photos and drive and computer interactions. The flip-track feature lets you

drawings to help you along. The step- Overall. I'm very pleased with its op choose how much you want to learn.
by-step Instructions make this pro eration, and won't hesitate to rec The main course is recorded on the
cess fairly straightforward, taking ommend it to those who would like fust side of the tape and covers es-

11'2/ RUN MAViwr.

0 Hardware Gallery

that is meani to provide hardcopy Manager, which has been revised

notes for the material on the audio since its first release over a year ago.
tapes. As a supplement, it is satisfac This word processor is one of the
tory. However, it is not complete easiest to use and most sophisticated
enough to be useful without the of the many that have been created
lapes. My copy of the reference guide for the C-64. The most impressive
contains material not covered on the feature is the visual clarity of the 80-
lapes, which could confuse a novice. columu display. This outstanding
How to Operate thr Commodore 6-1 is program has true word-wrap and on-
a good investment for someone new screen justification left and right, so
to computers. The tutorial is perfect that what you see on your monitor
lor guiding you through your first is exactly what will be printed out.
steps. You can move at your own pace Another strong feature of ibis
and avoid the confusion that well- word processor is the very flexible
meaning, experienced friends are cut-and-pastc function that allows
likely to cause. you to easily delete, move and insert
I do wish the course went into words, phrases and blocks of text.
more detail on using the disk drive, The Word Manager will work with
and it also could have provided some parallel, serial or RS-232 printers,
general information on using non- and it accommodates printer codes
Commodore printers. However, the lor particular brands.
material thai is included is chosen
The Plan Manager Spreadsheet
and presented well. It is a solid be
has also been revised since its ("list
ginning for a novice computerist.
release. This command-driven pro
sential material. At intervals, the (FlipTrack Learning Systems, 999 Main
gram has extensive on-screen Help
teacher invites you 10 flip the tape St., Suite 200, Glen Bl\n, IL 60137.
menus and eight major functions for
over for additional, but not essential, O6-I/S25.)
working with the (5:1x^54 matrix.
information. Annette Hinshaw
Tape 1 explores the keyboard, With two keystrokes, the Plan Man
Tulsa, OK ager will make an excellent qualify
screen-editing and command opera
tions, such as Load, Run and List. It bar graph for any row or column of
covers changing character color.
playing with keyboard graphics and
XL 80 your spreadsheet. It is quite easy 10
label and print your graph, or to
using cursor control. In addition to print out any section of your entire
operating commands, the teacher
A Low-Cost, spreadsheet.
covers some points on programming, Comprehensive Package Telecommunications has also been
including variables, string handling, addressed in the XI. 80. The interlace
For Serious Applications
random numbers and loops. has a built-in dumb terminal for in
The flip track adds depth to the in stant online communications with
formation on using Print statements, out any disk access. On disk, the new
screen color and music. The course If you run a small business, do se Corn-Manager Terminal package is a
designers apparently expected most rious word processing or have to smart terminal that will let you auto
students to use disk drives, because all keep track of figures and appoint dial, receive data into the buffer,
the information on using the tape ments, the XI. HO is a product that iransmii buffer data and more. It is
drive is on the flip side. you should consider buying for your command driven and has I lelp menus
rape 2 is devoted to using the disk C-64. It is a polished combination of for case of use.
drive and (he 1525 VIC printer. The 80-Cotumn video expansion board The Mail List program that is in
lesson has no general material on with Basic enhancements, word pro cluded on the XL HO menu allows you
using printers. cessor, spreadsheet with graphing to create an address file. The strength
The- material on using the disk option, sman terminal for telecom of this program is that you can later
drive is well done. The teacher guides munications, mailing list, appoint merge these addresses into your own
you through all disk operations. He ment calendar and diskmpy Utility. letters and then prim them out. At the
even covers the seldom-used Copy It makes your C-64 behave and look time ol (his review, this program was
command, All disk operations use like a much higher-priced computer not as professionally developed as the
the DOS wedge. I do wish the course system. other applications, and Data 20 was
addressed the mailer of using the The 80column board connects to working to improve it. However, they
disk drive with the Open commands. the expansion port on your compute] were also considering replacing it
The wedge doesn't work with all pro and is intended for use with a mono with a database program, a potentially
grams, and it doesn't save time if you chrome video monitor. strong alternative.
plan to load just one program. The word processor that comes on The fifth application of the XI, HO
The reference guide is a pamptllel disk with the XI. HO is Data 'JO's Word is its calendar program, which is
RUN MAY \mI II3
0 Hardware Gallery

really a sophisticated daily appoint This package is a sound investment The unit itself is compact and light-
ment book. You can request a par- and a valuable enhance men i Foi youi weight, plugging directly into the
tlculai month, day and year, and the C-64, I recommend ii Foi any O64 user pon. Youi phone line connects
program will pull up the appropriate owner who needs to use professional into one side ot the modem, and your
calendar. quality business application pro phone into the oilier side, using stan
It is difficult to tind fault with the grams on a daily basis. (Data 20 Corp., dard modular jacks.
XL HO. One weakness in the package 23011 Moulton Parkway., SuiteBW, /.«■ The modem's only external mov
thai i reviewed was thai Wind Man guna Hills, CA 92653, C-64f$99 disk.) ing part is a switch that allows you
ager didn't provide for double-spac
Margaret Morubitu to Seleci eithei Data, for when your
ing, a limitation lor chose of us who
RUN Staff compute! is on line or dialing, or
submit papers to editors or instruc
Voice, so that you can inieiiupi rbe
tors. However, Data iid assured me
thai before the release of die XL 80 Mitey Mo clectionic conversation and
some of your own. When you are noi
inpul

this would be ini hided, as well as these

using tlie modem, you can leave it
other enhancements; l)an increase to Do You Want
plugged in without affecting the use
'JU pages per document; ii) block load To Get On-Line? of either youi phone or computer.
and save (in boilci plating; S) multiple-
Mitey Mo to the Rescue! The software included in the pack
formal line capability foi changing age gives you complete control over
margins easily in mid-document With Mitey Mo, along wiih tin- Smart 64
all communication parameters, and
these enhancements, you will have a Terminal software that is included,
lets you select either full or hall" du
superb word processor in llii' Xi,80. is one of the best telecommunica
plexing. (And il you're new io tele
1 he only glaring problem with the tions packages you can buy. Mite)
communications, the documentation
package thai 1 reviewed was die in Mo oilers an impressive array of lea
will ([liu klycleai up any questions you
complete documentation, which lefi lures, including auto-dial, anto-an
might have.) lu addition, the soli
out reference to the as yet undevel swer and auto-redial, plus something
ware's default settings toi these pa
oped communications and calendar virtually uulicaidoi in die ioiIus
rameters allow you to access most on
programs. try—a full three-year warranty.
line services and bulletin boards im
mediately, without changing a thing.

Circle til on Reader With Mitey Mo, you can also

upload and download text and pro
gram files. As information is down
BACKUP PROTECTED SOFTWARE loaded lioin some outside source to
youi (Mil, it can lie stored in the
WITH modem's 2Sk buffer, When the hull

COPY II 64™
er \b lull, you can automatically save
tlie data as a sequential Tile on a
From the team who brought you COPY ll PLUS (Apple), specially-prepared user disk.
You can program function key*
COPY ll PC (IBM) and COPY II MAC (Macintosh) comes a
1-7 with any message (up tu HO char
revolutionary new copy program lor the Commodore 64,
acters long) that you'd like io send
COPY II 64! with a single keysiioke while on-line.
Other featmes include an on
• Copies most protected software — automatically.
screen dock with an audible alarm.
• Copies even protected disks in just 5'A minutes. numerous Help screens, user-select
able screen colors and the ability to
•Maximum of four disk swaps on a single drive.
automatically print the contents of
•Copies half and full tracks. the scieen with a single keysiioke
while on-line.
• Mot copy protected, of course. Although Mitey Mo costs roughly
Available .it youi local dealei ordirec! from us. twice as much as some othei C-64
ONLY
modems, when you considei the unit's
in.iii) excellent features and the un
CENTRAL POINT
Software, Inc.
$39.95 beatable warranty, it is easily the
miisi outstanding value in telecom
munications hardware available to-
9700 5.W. Capitol highway, # 100/Kortland, OK 972 19
dav. (Computer Devices International,
(503)244-5782 3D ZE WELCOME 1345 DoaliitU Drivr, Sun Leandro, CA
(('repayment Required] 94577. C (>■(/$! 19.95.)
Ihti pmiut'l Ik pmiUt-U Idi ton purp Bob Guerra
( ii.,! K ■<■>■.. H MA

U/RUNm.Vi IBS!
 Cuclo2ia[jn Hoader Solicit card
Clrclo 74 on ReaUor Service card.

PROFESSIONAL
BACK ELECTRONIC Master
Handicapper'

ISSUES
w/
c /
Spa/ess
1/
scr

FOR COMMODORE C-64'" EVALUATES FROM RACING FORM!

Practical, Powerful and Friendly Age? Gamier posi (Today
Clui Jo&frf jTAtdyk Pop tlatif
• AC/DC Circuit Node/ CorMifiQii Jocliey (Lasll Speed
Cons.s[ef»cy Lengirt Tramef
Transfer Function Analysis
April 1964—rhewttlclofmiaK Hypimifc Ztul EaimngE Tm-e ol feat Wdcute
ihe r&l. plus link tilltor IpJ |P[i>*r.uii • Negative Active Filters And gives ,. , GRAPHIC HEPHESEWTATKIH nf ■ "

(BP, HP, LP) Design & Analysis

May 1 'JIM prngrann mirwrd • Positive Active Filters PROGRAM
Dragon Qual kUwi K'""1 <»r «'ir VII . MibIi tiita GLD ThoroughbreD "Cold" EOiilon™
|ini|(i jiii. jiu! i IhrliinrE (hi1 KC1C4 1'ntk U
(BP, HP, LP) Design & Analysis
Commudiur • Magnitude and Phase Bode
Plots lor Transfer Functions
June 1984—Tlnjoii orModenu C44ribiuiH ■ Polynomial Roots Extractor
EGLD. Enhanced Gold ' EdihonTW
\i\ program, MjnvtEkV Aniu. and Mum Kin" \linh G--»n Eftl-On ifcirhi cttrn'fTe Matttr BwturTM s
□moltm H*nt Qil» This pcne'i^L pjogra-n a>i U
All 5 programs on one disk.
flit «Ofrt ID in* W4 analysis *ithj a "Singe kp
Supergraphlcs with fast hard copy IHUMr Bmwlv .nciuj
July tS64—SMtb.ilt Si.ni pmgfMm. CamuHtdnii
in llir iLiimluik. Mmf <-"\r J>M>jfr.im .iml I oil in
printouts on most printers. CLTD Limited Gold ™
S|JJ1Cr ipMTlr- PlriUllL; Llll1 [fOUIC* Mill \utir Vl(

August 1984—^inir h. progrurL Bank

$39.95 PROFESSIONAL HANDICAPPING SVSTEMS

diJn Wai and Buried Prcum* pim? ADD (1.95 SHIPPING

CA RESIDENTS ADD 6% TAX
September 19W—}.uHJi:m jauaoicr^c
etliit -il j! ^N^tariM mi."i.] Wli.il In Took Im ill TO ORDER, send check or money order to:
a icrirjliul |n<>FjT.tni
t\\r Mtd hit Comm
BAMTEK . ,
October 1984—Lanpugn l«ue; ttmwl. Ij^k 1541 N. China Lake Blvd. ■
ParaK Pifoi .mi] Fortran SM> Serenade j ^intf nit
Suite #584 ; '
lor, ■■ml I iiiLjnlcr imtirti h-iiih'
Rldgecrest, CA 93555 GD Cold Dog

November 19B4—\ k r vu.-t\ »nri (619) 446-5311 ext. 584 i flog haTjicappc un in* mir-,e[
l|Sp*M 6j Cnfid'tion
C-lfl. Buyei \ Guide la Hardware, prlnin lnterfie«
For Additional Infoimiiion Call Or Write to Above >"> Runnin
ncunlrmJ, DnlaTilc program
HA Ldsl 91 All lie* internal npig^MK)

December 1984—l...... .r.^-. s,m«.,rrUm 10] NEW t:«5 inQ'Calol

Circle 135 on RosOer Service card. I you noi,na Ifaf k y&u can r a'.rQrono" FD usu tfi'S
<-t\ Guide hiiI Plm/ft wanl pracciun
S149.95tmi^m
HI" IfWgrVU UuSf Bwlir'U) S199.95
Special Iwue-i tm vki \u^ mcto Amur*
Limiiod Dog™ S299.95
In Urt 11 hi tl|i fcml I nllLlillvL ^"fl vnill f*nTTiJII:»li"i',

MUM. Mailer Harn

1985—Cr^irVw.rO^nCWicvHj^ Prfi'p^wniji MT^jro uusigna] luproviiie a rnorougn dnaiymol ail
lic Tiyhr printer, V.iliuhlt rii'k ii|»» ("t hr
, t,n - 100 of the Jrnlliir jn<J papi-r r^cps in Norin ArTiQr,ta and Canada Pefl|W«

^* Best Programs in the Class

Dm4r
Pasi Pki(4cji5
Trac* Cononitin?
Time FimsTi
T>me Lasi duarier
the Public Domain Just S50! □ay5 Since LjHi Trampr Track Fiat.ng
February 1885—jw^mu whuh <pw <» b^ Gunder Time V( Ttrnu Allowance

The discs below contain an average S159,95 »fflpj*g */fta&grfll&3 UuMr Beiic'u S199.95

buHr<i «Lti ,i f ".nriiui h1ih r u*i-i> ^loup Mi iJic Grand

of 10 programs each. PPJt. Professor Jones' FnGl&all Predlclor, Prof. Pi*™
Canyon wTUi mmh vk !. CunmlBtu Fuuifoii.i AnHylll WftTl OilJi^Oair.
n I Preschool ij Ovririnys at "OvD^UnrM'" bolt
5j r-Dini S^osdi 5f [)aia Ba^o Sinn
March 19fl6^shnptir3>>*[ih¥oiirow r*v^*i #2 Kindergarten - Second Grade 5) ■5un--'PiAvaL1 Bf Holds "iM"ie,vna
ol iTiilcii -\t\ti iiuuiuiNi |»m>kmhi< MiiiKmiN tprr.nl #3 Grades Three- Six MlQhrHI pnrrjejitago of Hlnntrl 1963 $39.95
■l,r tr ...ratl M.jcii-i, M^njjiri |.ir^^r!imi V/nnlproi cuotj
#4 jr. High 595.95 ^.in Data BaH Mij
reviewed.
#5 Sr, High NBA. Baskolball™
Tn.s daia ba» iiiLJi-idyurj dnaiys prov de me user win 'All"
#6 Family Education tit-innLj MtmUDttB while storing nl jnfonnation rjn Hie disk.
#7 Computer Literacy l79.a&HRA 199 95(^1 leoeVws-on
#6 Educational Gomes LOT. Lotlery Analyal»Ttt
#9 Best Games a I ill iV if il rnmjihingon prog'iim d(Hi(|Hed [0 der«( SUDUo puiluTH

EXK3
m ^innmj lotlory nu'^bun
#10 Personal, im«&LMirnrv S99.95w.tftL0ltQ

[ ] YES! Pled5esend me 10 diskiofthe

best 100 programs m the public domain. BROCHURE AVAILABLE
Enclosed is my check for 550.00 (a; always
Sondcheck / money order/ VISA/ Maslercharge
school purchase orders accepted). (Include expiration daleltD n , .
fioch niondi kl'N alu Ijimik* you i Prof. Jones
name
tcVleWS, nr"j(i.-i"m .nut rLi(i>ri.ih 10 1114 N. 24th St.
dihi enjoyment *mi un? "in oJ pi
address Boise, ID 83702
TELEPHONE
city state rip. (208] 342-6939 VISA
Each back issue cwls S3 50 p<ys Si It" ihippiruj
and handling. Or> orders of lOc rnore Dach issuer, Mail order form to:
TERMS FREE SHIPPING ALL SOFTWARE
lhara is a Hal S7 50 shipping and handling too Qunn>
Binary Library Add 56 00 Hardware I C O.D Ada S6 00 / Add 3
lilies are hmitec and we cannot guarantee thai all
back issues are available Send youi orders la fliVW.
1182-BMarkei Street #602 weeks personal checks / Add 4 5co ID residents /
AOd SeOOaulsirfe USA / Prices sublet id change.
Ann Back Issufl Orders. SO Pine Si, P San Francisco, CA 94102
[ J Please send the full catalogue. IBM, APPLE, TRS-80,
Please nillow 3-^ weeds for delr^ery
C-64 AND OTHERS
RUNMAVi'-s.WIir.
 COMMODORE CLINIC

JIM STRASMA

Commodore Clink is designed to help the Computer Case Company of f\: If your drive wore failing or
you through Iroublei mid quesliont you Columbus, OH. It holds a 64, 1541 constantly going out of alignment
have as you use your Commodore com and power supply in it sturdy wooden due to overheating, a cooling unit
puter. Send questions on a postcard to: case that travels easily. might help. Since your disk is work
Jim Strosma ing properly, just enjoy it. I'd only
Commodore. Clinic recommend a cooling fan oi heat
When will Commodore's new
sink for a properly functioning 1541
1238 Rkhland Ave. Amiga Lorraine computer be on the
Lincoln, IL 62(>5(> if it wore mounted, where air can't
market?
circulate or where temperatures often
and we will answer il\ mimy il\ possible David Atkinson exceed 90 degrees K.
in the Clinic. You may also send Clinic Mo nil ton, AR
questions to 75775,62 on CompuServe.

f\: Commodore hasn't revealed Q I am a VIC owner and waul

that yet, Inn when i( docs.. .you'll to know if the W65SC802 chip men
tioned in the January 1985 Clinic
HARDWARE hear abom ii first in RUN.
will allow the VIC to run IBM or
Apple programs from disk and tape

Q IhaveaC-64, a 1541 diskdrive

Q [: What is meant by "protected
without a large number of program
modifications.
by a dongle"?
and a Gemini 10X printer. 1 use
Kenneth Dewitt
Word Pro 3 Plu.s/64 and an 80-column Philip Ternes
Brooklyn, NY
board with a spreadsheet. 1 am in Bismark, ND
terested in a portable system com
In computer use. a dongle is
M; No. You can't plug anything
patible with my 64. The SX-64 is a
a small circuit required by some com into a VIC to make it a fi!. let alone
possibility if it is compatible with
mercial programs. Before you run
an Apple or HIM. However, die newly
Word Pro 3 disks.
announced Commodore C-128, due
W. Russell Jones the program, you insert it into a port
out as you read this, reportedly can
Juneau, AK of your computer. Companies use
them to allow customers to copy their load standard 80-column CP/M pro
programs and prevent improper use grams from a popular disk format,
1 used an SX-til for two weeks
of tin' copies. The copies arc useless opening up the possibility of sharing
last summer and found it worked well
without the one dongle and only one programs and data among several
with every Commodore 64 product brands of computer.
1 tried on it, including a word pro copy can run at a time. Most dongles
are far more durable than disks, but
cessor compatible with yours, and ilie
Gemini IOX printer. must be protected from theft. SOFTWARE
Though I've not tested the 80-col-
limn card you used on the SX, the
Batteries Included MHO card works Q I have had my 1541 disk drive Q Commodore has the mosl
for approximately one year, having available software of any personal
well with it on an external monitor.
little or no trouble with it, 1 am be computer on the market. Has anyone
Now thai the price of the SX has
ginning to see more and more ad developed an emulator to run Com
dropped markedly, I've bought one,
vertisements for disk drive cooling modore software on an Apple or IBM
and can'I imagine why Commodore
units. Are they really worth buying? PC-compatible computer?
discontinued it.
As for alternatives] the only one 1 Darrell Dopkin Vince Rcndcima

know of is a carrying case offered by York, PA Rutherford, NJ

116/RUN MAY 1985

 Circle 219 dm Read or Semen Circle 23 on Ruader Sorvlca

-TJSSn H'uiiti;,v son

SuppurTing all COMMUDOKt cnn»p<ners
WriMBn by user?, tar uteri
* C.AMtS * UTILITIES * EDUCATIONAL *

Our Latest Releases

IH-v'(1lhUuCj1onil 11D00
Ha w
miirl
. r,J
THE CARTRIDGE BACKUP SYSTEM
Iff 11 ill Am
I 6* HCljn|nWC-6*IJ 11000
new

FOR THE COMMODORE 64' n JO

icJO
BpiiOl Ul Mies
Conien Vitt^
HDC
llOM SltfilfS:fil£l*siI
The SOLUTION To oil or you' cnrliidge problem* l| Thu CorTridg* Ruth-Up Sfi Specily DL$h Or Tape
i
{CBUS) +or ihe Cqinmodore £4 COMal Starter pak
I !"■-. ■.-; ISlOfl
The CARTHIPGl BUCK UP STtTIM ((bU*| coniiHt or iwo hardware Bjlk'lin Board System for c-a< « vie a
j S P T

Cohhodore B4~ I i l|fl" I

1 ClUI-l - Ihir "INANHDOIIR" tFioT lak*i •letlronil pillup*! ol torTn 111 on- Tint/Oi" 110 00 *■ c ti
aollyO'* and Horoi -■., ■ on dill>. u... tlUI '
p»r<nin an van* To do Thii a u'O ma lit ally Vit 10 callecl.Dm ■ 1 lh'u 13

7. CftUS-ll -it a iru* gu HinulaTDi Ihr unique h IKI' -M jpol-n, p>ndmfl)

run all ilandard EO'Tfidgfl taflwO'* ilcr*d ffn dulc by
Ut* o\ CBUS-I or *qu0l v,c JO Oi Commoaor* W — S5 00

A CIVI 1QUBCI DllK U provided. Thfl gnlcini *sr| Iritndly lofrware. Th»
ClUt AUTO1AYM . ■ -i or.,on- lo n u I a mo Tk ol ,> topT Jortf-dfl- icliwar* la SI IU VI rA
5'' -i
dilk and olio updol«1 rhe Dirsfrar*. The tOplfidga to"«or» (on dull) tan b* 10 fT -110 00 15 FT -1
■,. ..-..' I . - 1h* tILS menu wiifltj " ■ *.,!■. ..I or jojltitfc P r Of a m-nJ ng
knOwlfldo* i| NQ1 P*quiP*d however a Kompp»h»f"»lv■ ml ul manual* are
pravidtd for lhai* wh« "0»l lo Vnof how H wuphi
Lilt - ) III. Slaiui l-ifl.c*lor
Aimr-.bld H 120 00
EBUff 41 1h* i'Iv «*at«m which p**niifi the Honnij if' All Harido'd tcrrndg*
.lWmil 115 00 Bo*tn a irttT 17 50
lallrtare dtiigied Is! Ihe Coi*in\o4<i'm H an dith and punning tot'nai* \'on< dilt.
(■Ul do** NOT "crotk thv tollworo frio umquv OUB-II ion .-mulot* all ol lh»
PDI Program Manual S10.00
trandord carlridatfi fhi#i The ioflv<D'e <wni 'nn tome at in rh* original tarlpidge

CBUS S1I995
GS CBUS I CBUS II ^u CBUS SOURCE
t> *Wa* D'tfF'7 AOfl li 00
l CBUS It's are available lor cheC* Monet onoms vi^* md
M*5lEPCiHD l^lpUtf Ho COD 1 o- P 0 1
rH-',. >,^ A FBEf CVi' ■!
R.J. Brachmnn Aisodate*. Inc.
TDBUC IM»1AI.V\ L\C
P.O. Box 1077, Havortown, PA 19083 503b <■ Har>UdlhM> Hd . W Millart OH 4^^S
1000itt -SOOpm 1ST— Man i«pU Ff
ORDERS ONLY 1 800 CBUSC64 1513) G9o'56Je Of (613] 339-1735

TECH INFO (215) A22-5495 J

Circle 335 on Reader Service card
Circle 201 on Reaae? Service card. Circle '-12b 01 Header Service card

TM
AA COMPUTER EXCHANGE
HOT ACCOUNTS "SOUTH'S LARGEST COMMODORE 64 DEALER"
i lie most highly acclaimed OVER 2000 ITEMS IN STOCK
bookkeeping system
REQUEST OUR FULLCATALOG TODAY
tor the Commodore 64"

STOP
ORDER LINE: 1-800-447-0088
SuperD1 INQUIRIES & FL; 904-388-0018
An exceptional program I fiat MAHDWORE '. ACC SIGHTS SOLJND

SOFTWARE
C.G4 Corn pule r Cdll KeyboarrJ S3J
outshines all others C-1SB C.-ill SyfflhMlz*r 34
RUN Magazlna, Nov 1984 1W1 D Sk Drivi Cell PrDCBSMr 2A
1702 Color Monitor Call
PRACTICORP
HOT ACCOUNTS'" toacfiiiS you Uookkooping SFD 1001 1 Meg Dm™ S399

PIRACY us g
MSO Dual Onw>
£20
as ii automatically performs dozens ol tull-seruice f3radiciilc 64 . 3?
accounting lunclions it is a camjilele systoni thai PfaeliW* . 37
1t60 Aulu Morleril 79
PS: Spieadsneer
will instantly organize your records and receipts
Safeguard 64 Disks
Fleer Sysiem 2 65
(1200(300) . 209
ana supply charts, toimal statements, a no budget Tolal Cornrn AuloModfi 1 69 MIRAGE CONCEPTS
ml or (nation Now your records can Be accurate. UPP 10611 a/VIP Term 72 71
• Renders Bit and Nibbler up to date and confidential ■ Tracks charge C 64 Power Supply 1-yr .. 34 W P P;dP Wr^ion 53
Omniirom* Deli™ HS-232 35 WP Personal\rfergit-n 33
Copiers Ineffective cards. checV.books, all transactions ■ Requires Qrapnic Primer Intrrce 30
SKVLES ELECTRIC
no prior knowledge of accounting ■ Home or ACCESS SOFTVWFIE ■■1541 FlJ5h"Oi^kOnve
• Software is Encrypted and Milan business ■ Improves your financial image HMrtth Hood 24 fcjn:&0 Upv^Sv-iftP 75
Protected on Each Disk ■ Cubt ess man 1 liuur wilh a CPA FtaiQ O'.OI Mokow 24 BhrnCornpiior} 75

COMCUSERUE SUB LOGIC

• For Commodore 64 HOT ACCOUNTS'" Bookkeeping Sysiem SU«»rKi1(*H() 23 FPiglii Simulator II 37
on Diskette 28

Why should your valuable data or for RUSH deBvefy, send chook or money KOALA XETEC
Koala Pd3 sa ForitrTiasler WjrOp'DCP^S1 r 29
useful software program become order tor $64.95 to
Ko^'a Printer 17
GRAPHICS
available in the Public Domain? Compute* to Software
PRECISION SOFTWARE Doodlif 28
10U2 Brookes Ave W, Ste 100 SwtrtWSC 47 Irikvrt-ll's Fle*nJrarti 129
San Diego. CA 92103 BATTERIES INC 39
Call or write 73
Prim Shop
CtL'dil tiita orders CM loll-dee
for more 1-BOO-bai 08b2exl 238
TrwConiuHrtril 68 |P¥X
Hunt Pok 34 26
information VISA MASTERCARD
UTIUTIES
15
P.S. Usd HOT ACCOUNTS " lo do your lanet 32
MISC. AuiOLoaO^iflesenCa.'l) . !5
and Ihe pilce is la* deductible!
GLENCO
Smart 64 Term Sup*r Clone 39
Toiaar 6-i Ts<m (Carfi 25 29

ENGINEERING INC. BUNUiOFIlR1 Oilier INM

Z726 PARK ST.. JACKSONVILLE, FL 32205
O'av, « -I catMon en & TO icy o'Oer anU VlSA/MC 5l OPfH
W lunihi»i wuid piutntini
3920 Riage ' Arlington His, IL 60004 "ipnr*r :^iec*5 aiiffv 3 HMtt 'or clea ranee
|*di kjn-'j* thir IKLl piilT r<i\L • No COD* •Fof ViS^U 'ddd i w Sfi'Ptitigcfijrgescxira S3 CO
(312] 392-2*192
. " ssif™*?"""""*™1*
id 5^

RUN HAY 1985/ 1 17

HCommodore Clinic

f\: You have no idea what joy your fore running this program on an Q Why are C-64 programs not
letter gave me. For seven years, I've 8032, load the CBM 4032 program." compatible with the Plus/4?
put up with Apple owners bragging What is this program, and is there a Mike Ross
about good programs 1 couldn't way to make C-64 programs run on Pittsburgh, NY
get on my Commodore. If Com the Plus/4?
modore continues lo outsell other David Okcrberg H: Commodore's view is that the
brands, emulators will eventually ap
Santa Fe, NM Flus/4's new and improved features,
pear. But I've not seen any yet, except Including a new chip design, are so
for a public domain program, PET to different thai incompatibility with
Apple Loader. F\: CBM 4032 is fur SO^ users, the 64 was unavoidable and didn'l
This program allows cassette-based not Plus/-!, h temporarily converts a matter, anyway, since the two ma
Apples to load unprotected Commo Commodore S0-column display to a chines were aimed at different mar
dore programs from cassette, as long 40-column display. Since the Flus/4 kets. To my knowledge, the newly
as they are written entirely in Basic. already has a 40-COlutnn display, you announced C-128 is the firs! model
Unfortunately, it can't convert some don't need CBM KCS^. You may, how they've ever introduced that is fully
Commodore options into equivalent ever, have some trouble convincing compatible with software and hard
Apple commands. This means you'll your program <>f this fact. ware for an earlier model.
have to change some parts yourself As for making C-64 programs work
and can't use it on the best Com on the Plus/4, 01081 Basic-only pro
modore programs; nearly all use ma
chine language and special features
grams that use Peek and Poke state
ments can be changed to use equiv
Q I have recently become inter
ested in machine language. When at
extensively. alent new Plus/4 commands. Those tempting to "fall below" Basic, it has
thai use SYS or USK will probably
Q
become apparent thai my 64 does not
When I try to run C-64 disks need mote extensive changes at the contain the monitor program. Could
on my Plus/4, I get the message "Be machine language level. you offer suggestions as to how I
could either trade in my 64 for one
with a monitor or acquire a monitor
ifde 35 on Reader Service car program on disk?
Aaron Starr
TO NAME JUST A FEW Salem, OR
FROM OUR GiANT SELECT/ON.
ACCESS OHBYTJ Almost any user group can
Scrolls ol ADadon(D) S27 95 On Field lootti.,11 $23,95 Stock AiUli/dlD) 1-17 95
PARKEflJFp.
supply you with a copy of M icromon
ACTIVISION HAYDEN
Mind Shaaow(D) 27.95 Sargon III(D) 39.95 Montezuma's or Supermot) for the 64, on disk at
ARTWORK King Cribbage(D) 9 95 RevenC]e(D} 27 95 little or no cost. Both are excellent
Siap Sfiol(D) 16.95 HES PROFESSIONAL SOFTWARE
Fleet System ll(D)(W,P ) 57 95 learning tools for machine language.
AVALON HILL 0mm Writer/Spellei!
Tournament Goif(D) 23.95 MulHplan(D) 95.95 PROtiRESSIVE PERIPHLHALS If you need a built-in monitor, the
BATTERIES INCLUDED HUMAN EDGE Wi/;)id(U) closest you'll come on the 64 is
Paper Clip w/speii 79.95 Commumealion LTdije(D] 1ii6.0Q SIERRA/ON LINE
BLUE CHIP SOFTWARE I MAGIC Home word Speller (I) I 31.95 Eastern House Software's (Winston-
Tycoon (D) 37.9b Tournament Tennis 19 95 SQFTSVHp Salem, NC) $25 cartridge version of
BLUE_SKY INFOCOM Tno(D) 49 95
M Icromon.
Script/Scratch 64(D) 58.95 Hitcti Hiker's GuidefD) 39.95 SUBLOGIC
BRODERBUND INFODESIGNS Fiigh! SimuUlor ll(O) 37.95
The Print Shop(D) 35.95 General Ledger(D) 39,95
TheSetpont Slar(D) 27.95 KOALA HARDWARE PROGRAMMING
CARDCQ Koala Pimler(Dl 19 95 CAR.DCG
Wrile Now(C) 37.95 MICfiOPROSE Cardiioard 5 Slot 56.95
CBS Air" Rescue I 23.95 MODEMS
Btg Bird's Fun MINDSCAPE Wesl ridge
House(D)
CITY SOFTWARE
33.95 Indiana Jones(D)
MUSE
23 95 Miley Mo
Total
79 95
58 95 Q ! am having trouble making a
Ooodle(D) 29 95 Super Te*l Pro(D) 57 95 Endjs Disc Df 269 (TO program add up numbers the user
COMMODORE DDES1A enters, like this:
Nevada FortranlD] 43.95 Chess 7 0(D) 49 95
CREATIVE Senti for our free catalog totitiyf 10 INPUT AS
I Am Ine64(Vol 1-6)(D) 23.95 Over 1OOO programs in stock. 20 INPUT BS
CSM 10 0HUEN Stint Ctrhliemiwcks nwnajwMii MtutNu' Mllllf 01 VimCimmi
Disk Drive Align men I CAll 1100313(019 ficmm',nl[ New Hiil'psliirt t,ll< 1603) S*?-bl7S Could you please tell me how to
Kit[D| 3D.95 Peisonat at cQnipjii) ^t, ■■, regime ing to tbtee urttk} miii-ji fin unces up suDieci iq
do this?
CYMBAL cfiangt titiniu: no!ice SHIPPING chVrgi S ti S omcis c-icasc lae i'J W iin- I uiu
Efiglisti/Spani5ti(D) 29.95 «s iforCOO iOoSJ 00 C* WAUi AN tl H D€ B S Si 00 AH OIHEH COuNTHlES 15Vml Joe Sadauskas
toul sale An M:in om, All OHOESS OKI H SIMM MUST BE iNSUMU &< ev ft'
DAVIDSON ASSOC S100 CO Cus';fnp- rnur.1 D^> dll 4u'\ mea Chicago, 1L
Speed Reader I![D| 52.75 Houis Munaay mm Ssiurdjv 3 00 m 10 00 Edilon [me
ELECTRONIC ARTS
Ad i/en I me Consl UNIVERSAL SOFTWARE There are at least two ways to
Tht1 Best Sufl /tir
Set|D) 37 95
P O Box 955 Clarsmont, N H 03743 add a column of numbers in Basic.
EPYX
Fast Losd(O) 27 95 Call Now 1-IOO-341-I019 TollFra One isjust like your program, except

118/RUN may m;
thai (he string symbol (S) is left oil the :(ll FOR 1 = I TO 9 gramming practice that will bite you
variable names, making them numeric 40 : GET KS when you least expect. Don't do it!
SO : IF KS = NIKX 40 Instead, set a flag variable to in
10 INPUT A
GO : dicate your wish to change course in
ao input b
70 :•
30 ? A + it the program, exit the subroutine nor
NEXT 1
The other approach keeps your orig mally and branch from that point
90 ? MS
in;)! lines and uses the VAL statement according to the value of the flag
Now, can anyone do ii in fewer lines variable. Here is an example:
io convert the string variables into
with thf [ittle-known Wait sintcmcnt?
numeric values for adding; Hi CJ»"PRED"
20 ? "WHAT'S THE PASSWORD";

Q
10 INPUT AS
:>u cjosub loo
20 INPUT B$ In my program, I repeatedly
40 D? F>0 THEN ?''GUESS!":GOTO 20
30 • VAMAS) + VAI.(BS) use the Cosub statement to access a
50 ■ "WOW. WHAT HINT
subroutine I sometimes don't have
ISO END

Q
to return from. As a result, I quickly
100 F=0
Is there a simple routine ili.ii get an Out of Memory error. I know
DO INPUT AJ
lets you count the keystrokes of the there is a stack somewhere in mem ISO !!■ A$ = "r" THEN K= l:GOTO 190
whole keyboard, display the count of ory that holds the return, and that I 130 D*Af-C$THEN i "CORRECT
each stroke in the corner of the have to pop it to avoid filling the 14(1 IF A$< >C$ THEN ? "SORRY"
screen, and, after a certain number stack. The problem is that I don't ir>0 RETURN
of keystrokes, do something? know the Poke to do this. Can you
Eugene Vitale help me?
South Bend, IN Larry Cohen Q I was experimenting with files

Englishtuwn, NJ on my Datassette, and it gave me a

Here's a simple routine to do File Data error. What is it, and what
this using the Gel statement: Exiting a subroutine in any did I do to cause it?

10 REM GET II CHARACTERS Other way than via a Return State David Rainbolt
20 MS = "" ment at its end is a very bad pro Marshall, Alt

Circle 163 on ' Service card

THE AMAZING VOICE MASTER

©aaia & q
DISK MECHANIC

INVESTIGATE
PROTECTED
OISKS1

PEEK A 5VTE 64 NowwitrTthe DISK MECHANIC is

the must powerful disk editor and memory utility av
ailable for the Commodore 64 and 1S41 disk drive. Three Excilmg Products in One;
• Speech Synth.isii-er — Your Computer can talk to you In
■ Read or write sectors hidden by DOS header errors
your own voice.
» Read or write up to (rack 40 ■ holf tracks too!
■ Word Recognition — Make your computer respond to
• Fast format single or multiple tracks up Io track 40 your spoken commands.
» Over 50 functions - includes all PEEK A BYTE features ■ • Voic* Harp — A totally new musical instrument that you
• Complete manual for beginners and pros play and compose by humming.

1 Disk copy program included at no extra charge! Based upon new technologies invented by COVOX. Per
■ Continuing program update policy. formance is equal to other systems costing thousands of
dollars more. One low price buys the entire system.
PEEK A BYTE ill Tnrfernirk of Omnium
ALL THIS FOR
Sol I win.
To nril-i tend check or money order. US ONLY ONLY $89.95 (iugam*dr*uii)
luntjt Fore^n Idd 34 forsTiippingtnrf rign< Available Irom your dealei or Qy mail When ordering by mail, please
dimg Florida reiiderui add 5K lor 6S) u'n
include ii 00 shipping and fianflling (Si 0.00 lor foreign orders)
U'. COO orderi add 52 pjui polEagr and
!.■■!!■■ PnnnE COD orden call
GO 5) 8iO-fJ!49 U.S. Post Paid Call (503) 342-1271 lor a telephone demonstration and ordering
information. VISA oi MC accepted. FREE biochure available.

QUAimi SOFTWARE COVOX INC. Circle 300 on Reader Service card

I P.O.Box 12716 Dept.6 Lake Park, Florida33403 675-D Conger Street, Eugene, OR 97402
Tele* 706017 |AV ALARM UD)

RUN MAY liWJ / ll»)

HCommodore Clinic

This error is Incorrectly iden you'll see if you attempt to do the the record. How can I emulate the
tified in the VIC and 0-1 program .same- thing in an Input statement U2 command used with random files
mer's reference guides as a Bad One curt- is to use only string vari for this use?
Data error. Whal actually appears on ables when working with files, and John Menke
your screen is the more descriptive use the VAL() statement later to con Mt. Vernon, IL
phrase, File Data error. vert those that niusi be numeric into
However, Commodore's explana proper form.
No need to emulate it—use it
tion of the error is correct. You were if you want. Relative records are
trying to read a non-numertc char
acter Into a numeric (real or integer) Q 1 find I can't write so mi in
stored in physical sectors lhal U2 can
alter, just like any other file. You
variable, It is the file-handling equiv dividual field in a relative record (ex need only trace (In.1 pointers through
alent of Redo From Start, which cept the last field), without botching one more step than with random
files, including the side sectors in
your calculations.
However, the proper way io edil a
NoJxody cofuei ielte/i II relative record is all ai once—inside
the computer, not on disk. Using a
Since November 1984. Mr. Nibble has readily available pnlilii domain util
successfully copied heavily protected ity like String Thing, you can easily

diskettes for grateful C-64 owners! read a record of any size into mem
ory, alter it with Basic's standard
string-handling commands (LeltS.
MidS, RighiS). anil finish by rewrit
ing it with a single l'riril# statement.

While, ottteAA.
TM
Q When we type out something
in upper- and lowercase on the 64's
screen and then want it printed on
paper, it comes out in symbols rather
than words. If you can help us better
understand the use of the B4, my
children and I will be very thankful.
The next generation in archival
Robert Preston
methods is here today! Roseville, Ml
• Wo better disk copier at any price
• Easy-to-use — no complicated r\: You already know thai in or
instructions der to make your screen show uppei ■
• Totally automatic — no knowledge and lowercase, you have lo change
Of DOS required your 64 from Graphics mode to Texi
• You'll LOVE MR NIBBLE" — il not, mode, by simultaneousl) pressing
return within 10 days lor lull refund the Commodore logo key ami the
shift key. What isn't clear to you yet
is that you must also do the same
Own THE FINEST DISK COPIER SYSTEM for thing to your printer, to switch it
The C-64 and 1541 disk drive - Qnd&t todou ! from graphics to text.
Unfortunately, you can't do it by
pressing a key or two. Instead, you'll
have to modify the statement in your
FULL CIRCLE SOFTWARE. INC. program that establishes communi
P.O. Box 1373 cation with the printer. Instead of
Daylon, Otiio 45401
entering
Phone 1513] 223-2102
100 OPEN -i.i

you'll need to enter

Includes shipping & handling
{Ohio residents add 6:; sales tax) 10 day relum privilege
100 OPEN 4.-1.7

The added number (tailed a second

Special MSD Version now available! ary address), is an extra command
Circle 265 on Reader Service card- irom the computer to iliL- printer, to
tell it lo go into Text mode.

I20/RUN MAY 1983

Q I have been trying, unsuc thing wrong with your file-reading "powerful sound capabilities" are
cessfully, (o find a way to turn off program, such as a failure to check what caught my ear. But it sounds
the underline feature of my Gemini the file-status variable ST for the end more like clicks and pops. Is there
15X printer from within a program. of file (ST= 64). any way to improve the output?
It requires CHR$(O), which appears If everything is dead, I'd first try When you connect the audio-out plug
to be lacking on the 64. Is there some to return the drive for a replacement. to a stereo, it just sounds like louder
way to use CHRS(O) within a running In the U.S. at least, you siill have a clicks and pops.
program? month o( warranty leli and can let Timothy Minion
George Jorgensen your dealer take care of it If that is Buffalo, NY
San Diego, CA noi possible, find and try oul another
1541. 11' it works, the trouble is in
You arc correct thai the ob your 1541; if not, the trouble may be /^: Sounds like (here's something
vious method, press the CTRL and in the 64. wrong with your 64. You may have
@ keys at the same time, fails to gen- Next, if you find a cooperative to return it. Most 64s have sound
crate the expected CHRS(O). How 1541 owner, you could try swapping quality rivaling synthesizers that cost
ever, you can generate it another way. the removable chips on the two 1541 a good bit more than the 64. If you
Simply choose another key you don't circuit boards, hoping some swap will hadn't mentioned using your stereo
currently use in your program, such make .1 difference. If one does, you've with the 64, I'd guess that your TV
as &, and add a line to your program found (he bad chip. Also use a volt was simply mistimed; that's the most
to turn ii into CHRS(O). meter to be sure the 1541 has power. common cause of poor sound on a
If not, the 5-volt bridge rectifier may 64 and takes only a quick twist of the
100 C£T AS:IKAS = CHEN 100
110 ffA$-"tf"THEN AJ-CHR|(0) be bad, as mentioned in (he February fine-tuning dial to check. However,
L20 I'RINT*4,A5; 1985 Clinic. if you're getting bad results on a
If swapping the removable chips stereo, too, your SID (Sound Inter
Line 110 does thai in the example
makes no difference, you could try face Device) chip may be sick. Try
above. Since your veal goal is lo gen
swapping the entire circuit board. If hooking up another 64; I think you'll
erate a full command, you can extend
tliis doesn't help either, the trouble notice a difference. SI
this notion. On Epson-compatible
could be in the drive itself. By now,
printers, you turn off underlining by
you'll be ready either to buy and in
sending the printer three characters:
stall the needed part or to defer to Circle 220 on Reader Service can).
CHR$(27) + "-■■ + CHR${0). There
the specialist's skills of your dealer.
fore, let your program do all three Software That Works
at once:
For Generations
Q
100 CRT A$:IK A$ = EHEN 100
110 IFA5 = "&"T1IF.N If the power supply, the 64 or
AS = CHHSC'7) + " - " +CHRS(0) the 1541 overheat, how can you tell? 6 Types of Charts and Sheets
1MU I'RINTiRAS; Indices
Mike Gross
User Fields
Bethlehem, PA
Notes, Footnotes and Sources
REPAIRS No Limits
M: Smoke curling up out of the Adapts to Your Hardware
Q
cooling vents would be a dead give
As a cardiologist, I am asking
Comprehensive
away. (Computer chips run on smoke,
for a heart consultation in your med
Easy to Use
and if the smoke ever gets out, they
ical clinic. The patient is my 1541 won't work anymore.) And Much, Much More
(two months old), which, suddenly, Short of a fire, the clearest sign of
Send loi brochure jnd ujciplr puntuula
during reading a file, kept running a heal problem is a system that works Family KuoUmclutlridrNilft] manujlaml 2 lull dukdto
and turned (he red light on perma well when fust turned on, but fails ol protfTAms lot your Apple II, IBM PC

nently. It now does only thai, until 1 anywhere from a minute to two hours
turn it off with the back switch. It
later. One way to trace the problem
PnceStt^ S-mlac i ion Guaranteed
seems like a cardiac arrest and ven is to COOl the suspected device, with
tricular tachycardia (forgive the anal' a fan or a can of Frost'lest (although
American Enpr«",, Vi*j f! Ma*,irrtarc! Ac

ogy). Can you help? some folks recommend against using buuneu fc
A[i[i)r Computer.
Lelis Borges do Coulo the latter on grounds it may cause a Em . iMcmirmruJ

Rio de Janeiro, Brazil static shock to your chips). II the

cooied device begins working prop
I presume from the analogy erly again, you've found the trouble. Family
that the failure was complete—that
is, nothing loads anymore, neither
Roots
die file you were using nor any other
Q
QUINSEPT, INC.
(lies, programs or directories. If tliis After two years of saving, I P.O. Box 216, Lexinglon, MA 02173
is noi the case, there may be some bought a C-64 last October. The 16TT) 641-2930

RUNMAVIDH.W 121
 NEW PRODUCTS RUNDOWN

* 9.1

74470'"! 2069 Cmpikd b] SUSAN TANONA

MicolMon HomeWrfter 10 Keyboard Crazy

MicoIMoo U a machine-language Epson America, Inc. (2780 Lomita Waveform Corp. (1912 Bonita Way.
moniiu] and user-to-computer inter Blvd., Tonance, CA 90505) has re Berkeley. CA 94704) has released
face thai is designed to he!]) you de leased [he Home Writer 10 dot-ma- Keyboard Crazy, a program (hat in
bug your programs, irix printer. troduces the fundamentals of music
Thr device is compatible with the The HomeWrlter can produce Lo children of ages four and up.
C-64nndri.-tailsfoiS2-l.il5. Mlcoi Sys many of the popular typestyles at 100 Four educational games are in
tems, 100 Graydon Hall Drive Suite cps. Retail price for the printer and cluded in the package. It is available
2301, Don Mills. Ontario, Canada the C-64-compatible cartridge is on disk for die C-64 and retails for
M3A 3A9. about S320. S24.95.
Check Reader Service number 400. Check Reader Service number 404. Check Reader Service number 406.

Simpler Disk Operations

You Can Do Math! Software Intelligence Corp. (PO
Valiant Turtle
You Can Do Math! is a junior-high
Box 1390, Spring Valley. CA 92077)
The Valiani Turtle, a remote-con has released Achiever, a program
level mathematics tutorial that is es
trolled programmable robot, lias been that provides menu-driven com
pecially designed for students who
released by Harvard Associates (260 mands designed to simplify disk
have trouble with the subject.
Beacon Si.', Soraerville, MA 02143). drive operations.
The tutorial is available on disk for
The turtle aims lo make program It is available for the C-64. Retail
the C(i4. Retail price is $49.95. Mi-
ming concepts accessible to children price is $29.95.
crotechnic Solutions, PO Box 2910,
as young as preschool age. Software Check Reader Service number 407.
New Haven, CT 06515.
diat uses the Logo language is in
Check Reader Service number 405.
cluded in the package, which retails
for $399,95,
Check Reader Service number 401. Trolls and Tribulations
Creative Software (960 Ha
The Newsroom Court, Sunnyvale, CA 94089) has re
leased Trolls and Tribulations, a strat
The Newsroom is an educational
egy and action game for the C-64.
program that allows you to create
Learn with Stickybear You must lead your trolls through
and print your own newspaper and
underground caverns to recover cen
Three tides from the Stickybear introduces you to the many aspens
turies-old treasures. Available on disk.
series of educational programs have of the newspaper business.
retail price is $24.95.
been released for the C-64. These are The program is designed for ju
Check Reader Service number409.
Stickybear ABC, Stickybear Numbers nior and senior high-school students,
and Stickybear Basketbounce. but can also be used in the home. It
Available on disk, retail price is is available on disk for the C-04, for
S29.95 each. Xerox Education Pub $49.95, Springboard Software, 7H07
Applesoft Emulator
lications, Lf-lf) Long Hill Road, Mid- Creekridge Circle, Minneapolis, MN
dletown, CT 06457. 55435. FSI Software (PO Box 7096, Min
Check Reader Service number 402. (Iheck Reader Service number <IOH. neapolis, MN 55407) has released
122/RUN UAY1B85
 Circle 235 on Reader Service card

CONVERSE WITH YOUB COMPUTER

Maxell Floppy Disks
This Publication
is available in Microform.
ELIZA-64
Artificial Intelligence Demonstration Program
The Mini-Disks
with maximum quality
BREAK fi him games and technical
University Microfilms programs and AMAZE and INVOLVE
International your family and friends.
Eiija-SJ is a Commodore 64 adaptation ol Hie
lainous Elirt program developed at MIT Eliia
acts as a osyctiolherapist analyzing your mpul
and resounding wilh an appropriate comment
Nime.
□ i question Dealer inquiries
tnviled. CO D's
GREAT FAMILY AND PARTY accepted Call
Streel- ENTERTAINMENT FREE (800) 235-4137.
Ciiy— NOW ONLY $19.95
Ohm Fmdflfllg arjd 51 .'■. bdlEL. [j>
Zip-
Setifl dock at itntnry o'Osr to PACIHC EXCHANGES
100 Fooiliill Blvd.. San Luis
OM EGA-SOFT Cassette San Luis Obispo, CA 93401
P.O. 30X 36B6 InCal cal!(800)!,92-5935Jr
MansfielrJ. Ohio 44907 Language fast (80.SI543-I037

Circle 345 on Header Service card

Circle 243 on Reader Smvice cird

COMMODORE S4
INCREASE DISK
Subscription THE RECIPE BOX
CAPACITY 100%
Now you can easily store and jccnll yaur lavonlo

Problem?
recipes en you: Commodore ccmpulei THE RECIPE Doubles diskettes insterftty.
BOX 15 4i complete menu-dnven Q'$k system inal No*, the back of 5V»" diskettes
comes with these aaaiiionar lea lures1 can be used, even In a single
SEARCH BY INOREDIENT—Only have a pound ol
head disk drive. Double all your
hamOufger in tne Troeze«' Lei THE RECIPE BO^ show
you an \rm lecotrs Eftat you riave on ln-e lna( use narn
present diskettes salely ... with
RUN <kK>mxkeqiaib]cripiian record) on ibc turctfr. 01 any 01 her mgre<T«ni you choose out disturbing Bursting data.
prcmiwT. ihcrtliirc ljIIiii^ icnnh Jelili lime SEARCH BY CATEGORY—Code youi fecues as to • Satlalactlon or Money Bach •
brfl&fcfflgl iunchr dmnerr snacus, elc
and clijesn'l st'Uc [he piulifcni. SEARCH BY CATEQORY/fNOREDtEMT—An/com-
Cination ol ihe accve
AUTOMATIC HEASUREMENT-THE RECIPE BOX
nibble notch!
Cuts square notch tor
Please send a description "I the problem and W"i sulomancally sca=e up or flown Ihe amount of irv
Apple, Franklin, and
giedienis you need occnrd'ng io Fida many suruinrju
youi inosl ii'ii'in uddnsi lobd in. you vim-', Commodore. only
SCREEN OR PRINTED OUTPUT—Havu printed *aatl 12.00 (15.00 lorolflr
EOptfli ifj uh m the kitchen or give la inends for !■!■.: .wj': and n»nd

RUN THE RECIPE DOX Jequires one Disk drive and an Ill.ri.llldi-.W"
optional ib2i tompdllLili? printer
money cmyr ioi J2J 95 lo
Send check or
Toll Free 1-800-642-2536
Silk*. . I pile Ml I ll [11 FL 1-305.748-3770
PO Box 9W Aries Marketing Co. OR SEND CHECH OR
MONET ORDER TO.
Farmingdalc. NV [ 1737 P.O. Box 4196 ■
4200 Shannon Drive
Baltimore, MD 21205
rhankjuiandenjoj \i>m nibscripuon,
MO [WfcMflll add S'/j Sflfo^ ta» 4211 NW 75th TERRACE, • DEPT. 163
DEALER INQUIRES INVITED LAUDERHILL.FL 33319 ■■ Pa m> ttit.x*

CIjcio fl on Header Service card.

VIDEO BASIC 64 — add 50+ graphic and ADA TRAINING COURSE — teaches you
sound commands to you! programs with this super \Ue language of Ihe future. Comprehensive subset of the
development package Vou can distribute Iree RUNTIME language, editor, syntai checker/compiler, assembler,
version without paying royalties' $59.95 disassembler. 120+ page guide S59.96

Abacus ^W BASIC COMPILER-64 — compiles the com-

piete BASIC language into either last 6510 machine
C-LANGUAGE COMPILER— ■ lull C
language compiler Conforms to tne Kernighan fi Ritchie

extends ^ language and/or compact speeDcotte Gel your programs

into high gear and protect them by compiling S39.95
standard, but without bit fields Package includes editor,
compiler and linker April 1985 $79.83

your. /ftm
reachUfil
MASTER-64 — professional development package
lor serious applicants Indexed lile system full screen
other t(t(«« "■"■bio: Write or call:
PHONE: (6161 241 -5510

commands $39.95 For postage and handling include $4.00

\
PASCAL-64 — full Pascal wilh extensions for ^B0° 'o«Jign)per order. Money order and

beyond \V
graphics, sprues, file management, more Compiles to checks in U.S. dollars only, mastercard.
6510 machine code and can link to Assembler/Monitor VISA an^ American Express accepted,
routines S39.95 Michigan residents Mm | j.,,,^ C1IJ !"^BW
the > ■ hl.i.j... i L ,,
Data Oimensicn. Equivalence. External. Implicit, Goto. Else
inrliO* ^l,= cia,
AL«—. __ t"">w& C
m£i"
/*_

BASICS 1 If. Do. Caniinue. Stop, Subroutine. Call. Write. Read For /"VJdCUj Jlllilii!1 jOTlWftrC

h mat. more April 1985 M9.95 p.O. Box 7211 Grand Rapids, Ml 49510

RUN MAY 1(185/

 Products RUNdown

ApSoft-64, which is an Applesoft em Sound Music Software, 3200 South

ulator lhai allows you to run a variety L66th St., Now Berlin, Wl 53151.
of software designed for the Apple Check Reader Service number'I 12.
II family of computers.
The software is an extension lo the
C-64's Basic and adds many Apple
commands to your computer's mem
ory. It is available on disk for $39.95. Panama Joe in Barbados
Check Reader Service numbi'i Nil. Parker Brothers (50 Dunham Road,
Beverly, MA 01915) has released Bar
bados llooly, a game for the C-(i 1 thai
is a sequel to Monte/uma\ Revenge.
Panama Joe returns, this time to
battle the challenges of the sea in his
Hard-Disk System
Search for underwater gems. The
Fiscal Information, Inc. (i'() Box game disk retails lor $20.
10270, Daytona Beach, FL32020) lias Check Reader Service number 4 15.
released a new hard-disk subsystem
and DOS for the C-64.
The system supports storage ca
pacities from Five to 144 megabytes
and Implements all 1541 DOS func Blazing Paddles
tions. The package consists of a car-
Blazing Paddles is a software graph-
iridgc-port interface, disk/controller
its package that you can use with such
subsystem and compatible software.
input devices as touch tablets, giaph-
Retail price is around $1500.
its pads and light pens. It is suitable
Check Reader Service number 403. More Summer Games
for program development and creat
Summer Games 11 offers eight more ing charts, graphs and illustrations.
ways for you to compete in the Ohm- The program is available on disk
pit Games, from Kpyx, Ine. (1043 Kiel lor the C-64. Retail price is |34.95.
Court, Sunnyvale, CA 94089). Baudville, UIOl Medical Paik Drive
Additional events Include cycling, SE, Grand Rapids, Ml 49506.
Plus/4 and C-16
equestrian competition and fencing, Check Reader Service number 4 1(5.
Word Processor
The game is available on disk for the
Commodore Business Machines C-64. Retail price is about $30.
(1200 Wilson Drive, West Chester. PA Check Reader Service number 411.
19380) has released Script/Plus, a word
processor for the Plus/4 and C-16.
Musical Composition
The package's capabilities include
dealing tables, automatic mail merge, The Music Shop is designed lo be
underlining and bold print. Script/ Slap Shot boll) a music composition tool, al
Plus is available on tape, disk or car lowing you to create, edit and store
Axtworx Software Co., Inc. (150
tridge-, for S50. torn posit ions, and a music synthe
North Main St., Fairpon. NY 14450)
sizer thai uses the C-64's musical
Check Reader Service nonibei 118. has released Slap Shot Hockey, a
capabilities.
game lor the C-64.
The program features two-player Retail price for the disk is $44.95.
Broderbund Software, 17 Paul Drive,
breakaway action and a scrolling
San Rafael, CA 94903-2101.
screen, It is available on disk for
SI 9.95.
Check Reader Service number 417.
A Gem of a Challenge
Check Reader Service number413.
Strategic Simulations, Inc. (883
Siierlin Road. Bldg. A-200, Mountain
View, CA 94043-1983) has released
MOD-1 Modem
Gemstone Warrior, a Strategy and ad
venture game for the C-64.
Music Videos Cardeo, Inc. (300 S.Topeka, Wichita,
To succeed in your ultimate goal The Music Video Kit is a two-disk KS 67202) has released the MUD-1
of capturing and returning the gem- program that allows you to combine auto-dial/auto-answer modem.
stone, you will need your greatest synthesized music and animated Included with (he modem is a full-
skills as an adventurer. The game is graphics, treating a music video. function terminal software pai kage
on disk and retails for $114.95. The package is designed for the on disk.
Check Reader Service number414> C-64 and retails lor $49.95. Siglu & Check Reader Service number 423.
124 /RUN may 1985
 • WHWBK

Mega Management The Great Word Chase

Bank Street StoryBook Mega-Base 1 is a database manager 11I.M 'leaching Resources (One
The Bank Sued StoryBook allows that will handle both persona] and DLM Park, Allen, TX 75002) has re
children ages eight and older to cre small-business accounts, and offers leased Boppie's Great Word Chase,
ate their own stories, using animated such Features as deposit and with an arcade-type game that teaches
texi and graphics.The completed drawal listings, accomii Inihuclng word recognition, word creation anil
story can be viewed on the C-64's and scanning for a particular check. spelling.
screen or printed out in book form. The program is available on disk The eight levels of the program
The disk retails for $39.95. Mind- for the C-64. Retail price is $19,95. offer words appropriate for grades
scape, Inc., 11444 Dundee Road, North- Mega-Systems, PO Box 41"). Spring i-8. It is available for the C-64 at
brook, IL <5OO6L\ House, PA 19477. $29.95.
Check Reader Service number 419. Check Reader Service number 422, Check Reader Service number 425.

■mm

PEOPLE SAY THE NICEST THINGS ABOUT

WORDPRO 64 ™
"Well thought out and easy Co use" - W.H , Halifax N.S.
"By far the best..." - R.H.. Dneonta N.Y
'A remarkable product - the most powerful wort) processing program I have ever seen." - J.H.. Nantucket Mass.
"I will not hesitate to give unqualified endorsement." — B W. Gig Harbour Wa.

tmaaahiW I mi- Order w/mmm/mMjj/m//////fMw///MMW/m////ffl//.vMM/m

1-800-387-3208 5s pro line

«■ HHHHHHIi^llllllSQFTWAnE
755 The Queensway East. Unit 8, Mississauga, Ontario. Canada L4Y 4C5 . Phone 416-273-6350

RUN\i\YHis.W 125
 THE MAIL RUN

■.. :-
"LT^"'ni.«a:.

A Real Joy! Rather than type in Mike Kon- l'his/4 has transformed my life from
shak's Datafile program, I purchased an employed executive to master of
Thanks for thu great articles on
a copy from the author. 1 promptly my own fate, creator of my own
joysticks in your February 1985 issue.
received the disk along with a small destiny!
I used what I learned from Mark
form letter informing mi* that the The doomsayers and ne'er-do-wells
Jordan's article ("The Real Story Be
program now included some im (and even Commodore, I'm afraid)
hind Joysticks") io figure oui how to
read my Intellivision joystick, I
provements and apologizing for any have proclaimed the death of the
delay in receipt. "turkey l'lus/4"! It makes me so angry!
couldn't believe how easy it was!
It look only a minimum of refer The l'lus/4 has been compared in
Philip Crabb
ences back to the articles before 1 print to an Edsel automobile. How
Harvey, LA
had the program down pat. I found ever, there was absolutely nothing
ii easy to use and a real bargain (S8 inherently wrong with the Kdsel. In
A Morale Booster including the cost nf the disk and fact, it utilized Lincoln technology
The executive board of the Castle shipping). Datafile is al least as useful ami was actually very much ahead of
Commodores would like to thank you as some commercial file managers its time. The error was in the Ford
for mentioning our user's club in your that cost $20 to $•«). Motor Company's marketing.
magazine, especially the lucky 13th is 1 have been very pleased with the While I admit that Commodore
sue! I have received about 15 phone Eriendlv professionalism Mr. Kon.shak made some mistakes will) the Plus/4,
calls inless than two weeks—a boost to has shown in our dealings. RUN is every one of them can be traced di
the morale of any dub. to be complimented on its choice of rectly to Commodore's lack of sup
I also want Io thank you for being authors, 1 hope to see more of such port for the machine—another
the only one of four magazines to serious and useful programs in your marketing error. The gripes voiced
keep the club Information correci in magazine. by some C-64 users could easily be
the new year. Bruce D. Alt cured via enhancements at a nominal
Dean G. Thomas, Secretary Orlando, FL cost to current registered owners and
Edinburg, PA by building them into future pro
duction. The C-12H is Commodore's
One Man's Cure: The Plus/4 current obsession, and the poor
Outstanding Database
1 enjoyed Margarcl Morahito's ar l'lus/4 is proclaimed to be already a
I have just Finished typing in Mike ticle "The Plus/4'.s Spreadsheet and collectors item.
Konshak's Datftfile, DFMail and Graph-maker" (February 1985) very I know thai, in die future, 1 must
DFReport ("Datafile" and "Datafile much indeed. acquire for my company a second,
II," November and December 1984), I am 36 years old and a profes mine sophisticated system, such as a
and it is with a sincere thrill dial I sional hospital administrator, Over ](i- or 32-bit CPU. which allows mul
write (o say outstanding the years, I have administratively led tiple users. However, if Commo
Mike Konshak is to he highly com dore's deliberate "compucide" of the
the light for computerization of any
mended for his efforts and admired facility that 1 have managed. Plus/I is any indication of their sup
for his talent This program is prob 1 received a PlusM for my birthday port to consumers, you can bet the
ably the best I have found in any in late October 198'!. Through per new system will most assuredly be
magazine and is already at use in my severance and many hours of" study another brand, like IBM or Tandy,
business applications as well as my ing and using die l'lus/4,1 am today and not Commodore!
personal library. the proud founder of HospiServe, Jack D. Rash
David A. Rice my own company. In four short President of HospiServe
Sterling, IL months, a birthday gift called the Arlington, TX
I L>(> / RUN MAY 1985
 RUN AMOR
How to type listings from RUN
hem: There's a potential problem in
die Money Manager program (Man h
i" listings can be diffii uli enough without having io worry about 1985, p. ^<ii- When the program rails
1 graphics characters, charts or tables. That's why we decided u> make Ibr you to enter years and months,
ii easy to enter listings from RUN by translating everything we thou^ln enter the number of years phis the
might Ijl- confusing in any program. number of ;tm additional months,
When you see something between the curly brackets, all you have to do from 0 (if the number of years is
is press the keys indicated. For example: exact) to 11. Some entry for the
{SJEll'T l.[ — means hold down the shift key and press the L key at the months must he made, ot you maj
same time. gel an error.
{COMD J}—means luild down the Commodore key {ii is on the lower left
.side ui the keyboard) and press the J key at the same time. linn: In the Mwciy ot l.ane Manor
{SHIFT CLR}—hold down the shift key and press the CLR/HOME key. (October 1984, p. 7(1), in order lO get
{HOME}—press the CLR/HOME key without shifting. to H on the step generator, you musi
{(!! KL li} —hold down ihe control key and press the (i key. delete line I'liU from the program.
{FUNCT '-'I -function 2 (in this ease, yon hold down the shift key and press Ii is of no use in the program.
the function I key).
Item: Magic trick $172 (January (985)
[CRSR UP}{CRSR DN}{CRSR LF}{CRSR RT}—these are the lour cursor has some serious limitations.The pro
diret lions,
tection method disables the compul
{UP ARROW}—means the arrow kej (the one with the pi sign under it). er's ability to find program lines
{LB.}~the British pound sign i£).
numbered lower than the current
{PI}—the pi sign key {w); (shili and press the up allow key).
line. As a consequence, Goto and Go>
Our translating program does not designate single spates between char sub statements involving lower-num
actcrs. Within quotations, these spaces are often critical to the screen display. bered lines launot be executed. A
lie sine In read the lislin^s closely and include these single spaces as you similar problem exists with Read state
type in youi program. ments. The trick will protect your pro
In some instances, when a large number of characters or spaces are gram, bin only if it does not involve
repeated in a listing, we will represent them this way: {22 spaces} or {17 backward loops and Read statements.
CRSR Li's}.
Circle 198 on Readoi Service caid
Prinl VS Print#
HUN leaders should be aware ol difficulties that may arise when entering
lisiings thai contain the PRINT and PRINT* commands.
*
DUST COVERS
CUSTOM MADE TO FIT
1 )rm- two commands may look very similar, but they are different. If, for * Heavy 32-in. VINYl ANTI-STATIC
example, you use a question mark (?) to abbreviate PRINT in a line such as * EXTENDS EQUIPMENT LIFE
i\- Choice of Colon Lt. Tan or Brown
HI PRIX I #4.AS, then you are signaling to the Commodore computer that
COMPUTERS:
yon are trying to prinl the variable #4. which is not a legal variable name. C-64/VIC20 7.00
The command 1'RINT#l actually means "print to file number 1." You KEYBOARD COVERS FOR ATARI;
APPLE Ik; IBM; KAYPRO; TI9? 8,00
can abbreviate PRINT* by hitting the P key and the shift and R keys at the DATASETTE (OLD) ,. .. S.00
DATASETTE (NEW, C2N) S.00
same time and then entering the file number. Bin <lu not abbreviate I'RIN Vtt DISK DRIVES:
with a question mark. C-1S41 B 00
MSD S/D; APPLE S/O 8.00
If you think ol PRINT as one command and PRINTS asan entirely different MSD D/D; APPLE D/D UNIT ...10.00
command, then you should have no problems. PRINTERS (DOT MATRIX):
C-1525; MPSB01 10 00
C-1S26; BMC BXHO; BMC BXBOF/T U.00
GEMINI 10/lOX; DELTA 10 .... 13.00
GEMINI 15/1SX; DELTA IS .. 16.00
EPSON MXB0; HX80; RXflOF/T 13.00
EPSON FXBO; FXSOF/T 13.00
EPSON MXliO; FX100 IS 00
PANASONIC KX-P1090; CARDCO U.00
Mumttripte CDfUrlbiuloiu Id the Infni ul laamocrfpu *"li dnwfofi and/en phoiofeiapfi\ arc H^bmc jnd will be con&kitd fin MONITORS:
poulbit publiiailon, RUVmumn mi toponslbjlllj lui Ion ui damage id mi) mainfa), I'lcaw endose a Klf-Bddnsjnl, stamped C-1702 COLOR 16.00
envelope nfih each Biibmlulon. I'-ymtui for ihcuy?L>f, n> uiuolMlcd iDitertol will be made upon duxptaiiic. All cODUfbulloos tod BMC COLOR 1600
oJiiuimI cuircipoiiJ;iiL.rllipnJaiiJiJ,iijli It. .;ucEd. plcawl-huulil be duciiol \a HUN fctJimulOffifis. SD Pino Sura. Pcttrboraiifli. SANYO CRT 36 (GREEN) ... 14.00
Ml O.UJS: ickplxnw. W3-924-SI7I. Aditmsine Inquires ^lunld be dirctlcd la Ad>tnjimg Oflkvs. CW COIMlllIlkaflQni/Psto- AMDEK COLOR I 16 00
boiomih, inc.. EIn Surd. PHerbmoaih, HI! ftiiift- Inlnnhnnr fifli T71 T11H Tnii mfprInn pi irfik ■! i.iiImiiiiibiuiJuj. nutwMti ui VIDEO RECORDERS:
j.lilns- CkMtCE ejtl I-»M5«W or miiicIU Rt/iV. SuOun ptmn Diiuruiicm. PO Bi,\ lli4, Ijirminsdilc. NV 11737 I'rnhlrrai FOR MOST RECORDERS 13 00
ni!U nhmiMTO Send ii ittKtlpllau ut Hit prablon mid >imr >.iiiicm ,idi!rt«. lo: Nl/A1, ElmSltmt, I'clcrburaugh. Nil OJ4J8, (CUT-OUT FOR CLOCK)
Rii.i D Kivjird, CUBoran 5crvi« Mutlfir, or all I-B$M4144D3 Order by italinn NAME and MODEL
and COLOR CHOICL TAN or BHOWN En-
cloie check or M.O. 4- 1.50 Ship & Hello.
KUN i> a .nciiibci ul tlit CW Cujiunimicj.iioi.i/liw. puup. ihc *uild\ Ijthiu pqMUa nr CDBipmcnritUd miuinuuun. The California Ha. Include 6.5'% Sales Tan.
[i.mp pub&hei 52 Mmputci puMknkmi in w majoi KBinufct Memlim at flic (foup include: A^tpiiiiu1! QimpttHf
nwtd/Arncntirui, An.i'* Ihe Asian <\impul?<wvr!<l; AlimuIij'i COBtpUMrmrid Au-Mralw. Auslrjlui'i Mti-m ConaKltnmftd SPECIAL COVERS WILL BE MADE TO YOUR
Awlnlkn PC » ««/ umi Dlnaoria; llr.i/il'i itotuNm mi MkmSriado; Chftn'jC**w Compuunttntd; OtatalVt Canputir- DIMENSIONED SKETCH. SEND YOUR RE-
mirM/Danmn* Jiid MtcraVtaitn: Finland's Mikw, I'Utilc's l.e Mondt IttfanwilqiH. Balden (Ap|ilt) and Ol-C [1BM)| OUIREMENIS FOR OUR LOW PRICE QUOTES
Geirruny's Com/xiunKxht. Mtaacompulinw/i, PC i'tii. Stt/nmrt Mutki, CW EdUhn/Stmtrar, Compuwt SnAaBiai Cam-
ranJi,,,- Magaanr, IijJj'i Corapulw.ui-W liaSm, Japan'. Compultr-xiiht hlHm and frai, ComWorid-, Medn'l CompUltr-
■■,m/iI MakOBd CompllMluukr, \clhcrUnJ-i CU1 Hmlux and Mkrultnjo: tior*iy'\ Cumpulen-vrfd Now JnJ .IMfuDulu:
rry CROWN CUSTOM COVERS *▼>
SjuJi Atjiiu', Stnidl CompamvU', Snairi'i CamfiuitrwHd/Espana nid MkroStBtmar, s»cdcn1i ComputerS-rdm 9606 SHELLYFIELD ROAD ^^
MiktoDttotn, MtnMtmdtiortMSmaaPC World; iheUK^Ciim/iitt.-rMaMXMMi.Comin.rerNe.'-i vdCompuHrBuitiiai DOWNEY, CA 90240
Europi; [he Ii s ■ i ompuunnrU, Hut CoCa, biCUir, InfoWeiid, MacWOrld, Mum Markrixu'M, IV World, RUN n (213) 862-B391

RUN MAYIMS/ 127

ReaOei Service
List of Advertisers
Page Reader Service Page Reader Service Page

335 A.A. Computers T17 350 Floppy House Software 109 ReRUN 96
8 Abacus Software 123 265 FullCircleSoftware 120 RUN Subscription 64
89 Abacus Software 90 201 Glenco Engineering Inc 117 University Micro 123
185 Abacus Software 91 9 HSEComputronlcs 2 Schnedler Systems 81
18 Academy Software 86 179 Jameco Electronics 68 90 Skyles Electric Works 41
243 Aries Marketing Co 123 202 Jason-RanheimCo 74 254 Software Discounters
213 BAMTEK 115 189 MegasoftLtd 48,49 of America 53,110
301 Basix Sottworx 65 172 MicroWDI.Inc 74 137 Solid State Software 32
' Batteries Included Cll 177 Micro World Electronix 99 63 StarpointSoftware 19
193 Big Bytes Computer 109 34 Microbits 9 40 Sublogic Corporation 27
135 Binary Library 115 68 MicroproseSoftware 15 209 Tussey Computer Products 37
85 Cardcolnc Clll 43 MlmlcSystems 17 Ultrabytelnc 53
192 Cardinal Software 105 345 Nibble Notch 35 Universal Software 118
81 Central Point Software 114 Computer Products 123 96 Xetec, Inc 68
225 Cheatsheet Products 104 ■ Omega-Soft 123 bin further information frumoui aclieniseis,
' Comal Users Group 74 60 Omnitronix 98 ende the torreponding Reader Service number on
■ Commodore 195 OrangeMicro 3
171 PCGallery 85
the Reader Service ainL
Business Machines CIV
64 CompuServe 61 235 Pacific Exchanges 123 •This advertiser prefers to be
* Computer Centers 208 Parsec Research 25 contacted directly.
of America 87 221 Playnet 25
325 Computer Ed. Software 117 • Pro-Line Software 125
Advertising Sales:
62 Compuiei Peripheral 74 Prof Jones^Frogg House 115
Exchange 43 93 Professional Software 11 (608) 924-7138 or (800) 4114403;
29 Computer Warehouse 55 15 Protecto Sieve Robbing Ken Blakeman.
300 Covox, Inc 119 Enterprizes 70,71,72.73 West Coast Sales office:
198 CiownCustomCovers 127 23 Public Domain, Inc 117
* CWCommunications.Inc 82,33 183 Quantum Software .. .■ 119 (415)328-3470,
* CWCommunications, Inc. 220 Quinseptlnc 121 Georgia Saluti, 1-800-227-8865
Subscriptions 33 219 RJBrachman Associates 117
In Calif.: 1-800-344-4636
51 Dow Jones News Retrieval 7 183 Radix Marketing 111
12 Epyxlnc 1 BUN Magazine This index is provided ;ii an additional
14 Eastcoast Software 75 Back Issues 115
service. I'lie publisher does not assume any
42 FSISoftware 13 RUN Sub Problem 123
84 Federal Hill Software 109 ReRUN 93 liability For errors or omissions.

Coming Attractions
Making Music on the C-64—From keyboards disk? Call ihe doctor— Disk Doctor. This disk inilii\
and MIDI interfaces to synthesizers and music program has the right medicine for just about all
tutorials, the computer music business is boom your disk problems.
ing. We'll lake a look at some of the popular
music software and hardware available foi Com
modore users. Whether you're ;i professional mu Four More Function Keys—With a little pro-
sician in a casual "plunker," there's something grainniinj> magic, you can turn your C-rM's eight
here for you. function keys into 12. This article shows yon how
to got those four extra function keys and how-
The C-I28: How Does It Stack Up?—Com to use them for Basic and machine language
modore has entered the personal computer mar programming.
ket with the C-I28, designed to give users power
and sophistication at an affordable price. Buthow The Bigger the Better—This article gives you
does it stack up against the competition? Is ii diree utilit) programs that let you type -\H colorful
reallv three computers in one? This article lakes letters, numbers and symbols on your screen, four
an in-depth look ai the C-128 and compares ii to limes their normal si/e. Use your C-64 as an
its two prime competitors—the Apple U< and die attention-getting message board.
IBM PCjr.
64 Shuffle—Strategy and well-placed shots are
Disk Doctor—What can you do when you acci the keys to winning this game. For C-64 with
dentally scratch an important program from your joystick.

1*28/RUN MAY 1985

Technical

Breaktht
Number 3*7

Only CARDCO would dare improve on.iis own Micronics, Prawrlter, Smith Corona, C-iTOH,
best seller (the + G has far out-sold any other., Gorilla Banana, and many other dot matrix
printer interface, and has set Ihe industry printers. Now you can perfectly align high
standard by which competitors are judged). resolution graphics characters within text
The G-Wiz is even better — and costs blocks, or in columns.
30°/ii less." Our 27th major innovalion in CARDCO excellence triumphs again! The
Commodore accessories has all the +G's G-Wiz is the "best bang lor the buck" on the
features, and more,.. printer interface market today — and itfe
Built-in Buffer for More Speed backed by CARDCO'S exclusive lifetime
The G-Wiz buffer dumps high-resolution warranty! G-Wiz; another distant target (or the
screens up lo 18 times faster than competitive competition lo shoot at,
interfaces wilhout buffers. No more waiting! A CARDCO,lnc.300S.Topeka/Wichita,KS 67202
complex 50-minute printout now takes just 2.5
minutes with the G-Wiz.
Exclusive! Aspect; Ratio Selection
Only the G-Wiz matches graphics characters to
standard characters on Okidata, Epson. Star
■ Aclual price m.iv vnry According to dealer nnd reflfon

The Wizards . f Dz Have Done It Again!

■
 IT'S NOT HOW MUCH YOU PAY.

IT'S HOW MUCH YOU GET.

The computer at the top keyboard with 66 typewriter- or color monitor, disk drive and
has a 64K memory. type keys. (Not rubber chicklet a modem—all together it just
It has the initials I. B, and keys like the IBM PCjr.) about equals the price of the
M. And you pay for those It has high resolution IBM PCjr all alone. With no
initials. graphics with 320 x 200 pixel peripherals.
The Commodore 64'" has resolution, 16 available colors So you can buy a computer
a 64K memory. and eight 3-dimensional sprites. for a lot of money.
But you don't pay for the It has 9-octave high fidelity Or buy a lot of computer
initials, you just pay (or the sound. for the money.
computer. About one third the The Commodore 64 is
price of the IBM PCjr™
The Commodore 64
capable of running thousands COMMODORE 641
of programs for home and IT'S NOT HOW LITTLE IT COSTS,
also has a typewriter-type office. And if you add a printer IT'S HOW MUCH YOU GET.