Compute_Gazette_Issue_12_1984_Jun

Page 1

The Future Of Computer Games: Software That Thinks For Itself

COMPUTED

$2.50 June 1984 Š Issue 12 Vol. 2, No. 6 02220 £1.95 UK $3.25 Canada

For Owners And Users Of Commodore V1C-20 And 64 Personal Computers

The Frantic Fisherman

Battle the darting sharks and stay out of the rain in this lively action game for the VIC and 64.

Therapy What kind of counselor is your computer? "Therapy" might surprise you.

Castle

Jso In This Issue: The Beginner's Corner

Machine Language

For Beginners Home Telecommunications

06

Power

BASIC: One-Touch Keywords Fingertip control of

52 BASIC keywords. 71486 02220

For the VIC and 64.

Dungeon

Defuse the ticking time bombs and avoid the guardian

monsters in this dark dungeon maze. A challenging all-

graphics adventure

game for the VIC

and 64.


-="■■'■ ■■"■'i = "■.''■'■

Commoflore Is a Iraaemam ol

-■--'■■-■-■

Commooore Electronics. Llfl.

Panther Computer Corporation


The Assembler

for the Commodore 64.

Commodore 64 disc retail price: $59.95

Commodore Is a Irademaik ol Commodore Electronics, Lid.

Dealer Inquiries Invited 1-800-222-7105

InCA 1-800-821-7644

Panther Computer Corporation 12021 WHshire Blvd.

Los Angeles, CA 90025


I

Don't Play this Game (Habit Forming)

o

Wff/M/A

U\ ?

Commodore 64 disc retail price: $29.95

Commodore Is a trademark ol Commodore Else Ironies, Ltd.

VIC 20 cassette retail price: $15.95

VIC 20 Is a trademark ol Commodors Electronics. Lid.

Dealer Inquiries Invited 1-800-222-7105 In CA 1-800-821 -7644

Panther Computer Corporation 12021 Wilstiire Blvd., Los Angeles, California 90025


rjf£##.f£f££&


Wl

.

1

H


AAWWIIIIEEE! 1

The legend of Bruce lÂŁe lives on in the imagination and memory of millions of fans throughout the world. And now, through the awesome power of die computer, you too can relive the power of Bruce Lee. Bruce Lee"1 combines state-of-the-art technology with the masterful moves of the martial arts. From devastatingly lethal kicks and staccato thrusts to the unrestrained fury of every reflex, the Bruce Lee game explodes with action. All the force and controlled discipline of Bruce Lee is at your command. You'll see it in his smooth and graceful leaps. You'll feel it in your heart as you prepare to do battle with his ominous adversaries. Take on the Green Yamo and Ninja in hand to hand combat as you fight your way through 20 mysterious oriental settings. Unexpected dangers loom as you make your way past exploding bushes and the fire wizard in your quest for the ultimate treasure. Bruce Lee. It not only lives up to the expectations of the best programmers and players around. It lets you live out the life of a legend. Even in your spare time.

Available now for Atari and Commodore 64 Computers, coming soon for the Apple II series and IBM PC and PC/JR. Contact your local dealer or send check or money order with

$3.00 postage and handling. California residents add 6.5% sales tax to Datasoft. Suggested retail $34.95. jTk j '.'iJ'M u rÂť iJ Lndi \tt

LR All rt*hu ramd. TriSflTiiUona!. Tik

By

Datasofl. Inc. I980H Nordhnlf Plate. Chatsworth. CA 91311


SAVE HEW YQRK

ff was as peaceful a day as New York eve gets, when suddenly the sky went dark and a monstrous droning noise lilled the air. Hordes ol grotesque aliens were swooping down from all sides, biting into the Big Apple as if they hadn't eaten for days. They were laying eggs. too. Horrible slimy things that got down into the subway tunnels and began clawing their way up.

If anyone was going to save the city, it would have to be me I leapt into my rocket and

began blasting away. I /bought I stood a fighting chance, but fuel s running low... another wave of invaders on the horizon... signing olf...

SAVE NEW YORK!" For the Commodore 64.

CREATIVE

SOFTWARE mitmtim \mimm


June 1984

Vol. 2, No. 6

FEATURES The Future Of Computer Gomes: Software Thai Thinks For Itself Selby Bateman Inside View: The Designers Behind M.U.LE. Kathy Yakal

16

28

GAMES 3-D Tic-Tac-Toe Mark Doyle

50 52 56 58

V/64

Arcade-Style Games For The VIC-20: Skramble! And Gridder Harvey B. Herman

62 64

V

Worms? For The 64

66

64

70

V

Castle Dungeon Dave and Cosey Gardner

Revenge Of Cyon Mike Reinman The Frantic Fisherman David Lacey

V/64 V/64 V/64

REVIEWS Easy Scrip!: Word Processor For The 64 Shelby Neeiy Gregg Keizer

IFR (Flight Simulator) For The VIC-20 David Florance

64

EDUCATION/HOME APPLICATIONS Computing For Families: New Standards In Home Learning, Part 2 Fred D'lgnazio Therapy Steven Rubio

74

78 82 84 86

V/64 V/64

88 98 112

V/64

Inside Random Numbers Dan Carmichael

Machine Language For Beginners: Indirect Addressing Richard Mansfield

114

Spelling Critter Bob Nickel Shape Match

Michael Reich

Word Scramble Mike Salman

V/64

V/64

GRAMMING The Beginner's Corner: Planning A Game Program

C. Regena

Power BASIC: One-Touch Keywords Mark Niggemann File Copier Martin Engert

Hints & Tips: Appending Sequential Disk Files John S. Winn Scroll 64 PeterMarcolty Tape Data Files For VIC And 64 Brian Prescot! VIC 5K Emulator Glen Reesor Tape Protection For VIC And 64 Victor Chan All About PRINT For VIC And 64 Julie Harris

V/64 V/64 V/64 V/64

118 120 127 130 133

V/64

64 V/64

V V/64 V/64

138

144

DEPARTMENT Editor's Notes Robert Lock Gazette Feedback Editors & Readers

Simple Answers To Common Questions Tom R. Halfhill

Home Telecommunications Robert Sims Horizons 64 Charles Brannon

6 10

26

38 92

V/64 64

VICreations: Software For The VIC Dan Carmichael

124

V

News And Products

150 154 155 156 157

' ■ ■ V/64 V/64

User Group Update Kathy Yakal

A Beginner's Guide To Typing In Programs

How To Type In COMPUTERS GAZETTE Programs The Automatic Proofreader

Program Listings

Bug^Swaller

Product Mart

188

V/64

189 192

. .

Advertisers Index

135

* = General, V = VIC-20,64 = Commodore 64,

COUPlfTEVs CAZL.TTL is published monthly by COMPUTE! PubUnHen*, Inc.. Posl Office Box 54QS, Greensboro, NC 27403 USA. Phone (919|275-9809. Editorial officrs are located at 324 We^l Wi'ntkwi'r Avenue, Greensboro, NC 27408. Domestic subscriptions; 12 Luues, £20. Send gobscription orders or changeof address

(P.O. Form 3579] Xo Circulation Uepl., COMPUTEJ's CAZETTK, P.O. BtwMl, I'.nrminydale, NY 11737. Second clasi application pending at Greensboro, NC 27403and additional mailing offices, Entire contents copyright Ci WM byCOMPUTC! Publications, Inc. All rights reserved, ISSN 0737-3716.

JSfXKi*

COMPtmi Publicjlinnx, Inc.. One lit Ihe ARC I'uMltlitag Compinln: ARC Puhllihing, Prtildcnt, Robert C. Burton; IJM Avenue of Ihe AmeriCMi New York, Ni'w York 10019


THE EDITOR'S

A Word of Thanks to you readers and authors ... with this issue the GAZETTE is 12 issues old, and

is one of the most phenomenal growth stories in the consumer publications industry. We've achieved a paid circulation in

excess of 300,000, making the

GAZETTE one of the half-dozen

largest magazines in the entire

industry. Our parent publication COMPUTE! was the fastest grow ing computer magazine in the Audit Bureau of Circulation

numbers comparing the six months ending December 1982 with the six months ending De cember 1983. The next closest competitor grew by 106 percent

compared with COMPUTERS 247 + percent. Looks like next year, we'll have two of our own publi cations competing with each other. Now that's a nice problem to have. Our newly launched GAZETTE DISK is doing nicely too,

thanks to you; we appreciate your continued support. You'll notice the disk is still unpro

tected. While we've touched on this issue in recent editorials, this time we're starting your additional feedback. The letter

that follows is representative of

many of the letters we've re

ceived on the topic of protection: Dear Mr. Lock:

I read your April 1984 editorial with great interest. As a retailer in software, I

believe the presence of copy-protected

software directly effects [he saleability

of my slock. Customers tend to shy away from heavily protected software. They Fed (and rightly sol that once they lay their money down, they should be able to make backup copies should disaster strike Ihcir original. (Or more

commonly, make and use backups and keep their original in a sate place.) Vari ous service schemes by software makers 6

COMPUTEI's Caiolla

June 198-1

who have backup-restricted products don'I appease the customers much. If .1 disk crashes, why should they have to wait a few weeks for a new copy to

arrive in the mail? In trying to answer the question ol whether or not to protect, we should first address the question of why people steal software. Here, we begin to deal with motives and human nature. For

the software pirate, the motive is greed.

A low overhead means high profits. For this kind of person, there is no viable software-protect remedy. Mo matter how sophisticated the software-protect

features are, ways can be found to defeat them. Also, development costs of these

features are lacked on to the cost of the

large, people are basically good. Any

businessman has to have this attitude if he is to succeed. In areas of commerce, distrust only slows things up and ends in costing both parlies much in the long

run. The only thing needed is a little caution, not total distrust. In matters concerning professional software pirates, there is legal recourse. Though irritating, 1 think their impact is small. By giving them more motivation (high software costs) to steal, software houses who use copy protection only hurt themselves. 1 also feel that software pirated for reasons ol Iriendship would be less prevalent at lower costs. People would be more likely to expand their libraries with money nut of their own

software, thereby raising customer

pockets. Also, a little public education

prices. The higher the price of software, the mure likely people will find a way to pirate. The disparity between true value

concerning copyright laws would go a

and customer cost gives the pirate room to operate. Carried to the extreme, one

can think thai the development cost of software-protect features exceeds [he

lung way.

In closing, ! feel that you would do better serving the public and yourselves by offering quality products at the lowest possible cost. You've indicated that

cost of the product il's protecting. Would

you're opposed to excessive software cupy protection. The fact that you allow

homeowner's insurance policy if it

a software company thai sells a backup override program (Microware) to adver

you be willing to pay the premium on a exceeded the cost of the house? Another motivation for software piracy, less malign, is software copied and given in the spirit of friendship. A

tise in your magazine seems to support this. If you are soliciting votes, then I vote that you keep your software inex

user group operates to raise the com puter literacy of its members. One of

By the way, keep up your high magazine standards. It must do i/owr

the finer things in life is our ability to

egos good knowing you're doing such a

learn, and learning about.) subject we're interested in satisfies a need. On the other hand, teaching what we know gives us a better feeling about ourselves.

great leaching job.

Successful teachers can tell you firsthand how great the ego feels after a class. When teachers and learners combine as

pensive and backup unlimited.

Sincerely yours, Ron Bosse

Until next issue, enjoy your GAZETTE.

they do in a user group, il's magic.

When the teacher gives something to the learner that doesn't cost anything,

as in copied software, this magic reaches higher plateaus. Sharing can never be overrated when it comes to building friendships. We .ill like extending favors lhat cost us nothing. I lowever, when others

pay the cost, the favor becomes less than altruistic. Here again, wiih the abundant availability of backup protection-override software, high cost software with backup protection is

readily defeated. Nothing is gained by the software seller. 1 feel that hy and

Editor In Chief


rocknlS- You. 3S a merjiber qf Hep Majesty!

"['ha streets of London are threatened v,'llh deadl;

64K UJsl for Commodore 64', : If) Play ing time: 20 la 45 minutes: Inlermedrale complexity level

i.'>. 31.-.U for Atari' Home Compulers, $4Q

■JSK Disk for Apple1 IT. U - S.lic.$<in

Caiselto !«n AUri' [l6K)and Commodore ■ -i-s . - < -

warfare.

uxumino thy enlire baltlefietd in ihid rtialtirtiej^iimt! at

nihiJiiliutl. BeaulifuIK detailed scrolling map IrLk vow

select your terrain end tactics carefully or face ati-

'-:!:■,.;!.■■;! infantry andcavajry, you, as Caesar, must

are on the move. Outnumbered hvo-to-ono by multitudes

the valleys of Gaul; the crack legions of fmpuria I ttumu

Tin- IjiieiI of barbarian war drums echoes through

Intermediate complexity level

Playing: lime: 20roinuleSIO 3hourS:

Disk for {,(iuiiii-kI(ij l- 64j. S25

Ca&strlle for Commodore G4\ $20

quired hi this higiily-af^laijned computer maslorpiecn.

excitement. A combination of logic, sVill and a little Evick is re

(Infusing combinations make for endless nail-btlinjj

limed fuse detonates. A variety of homh& wit!} infinite

Royal Bamb Squad, must disarm Bach one before its

V-I

■•

Baltimore, Maryland 21214

C»nihiwtvr« Buiinms Machines an

Machines.

store near you. Ask For Operator Wl.

These and many other fine Avalon Hill Microcomputer Games are available at leading computer game stores everywhere .. . or call Toll-free: 1 (800) 638-9292 for the name of a

4517 Harford Road

A Division of The AVALON HILL Game Company

microcomputer games

Games

Playing time; 20 minutes to 1 Jiow: Advanced complexity level

64K lllM-PC* or Commodore 64" UisV fur 540

4BK Apple1 or Atari' Disk fW 440

friend ur play solitaire vs. vuur compultir.

British. American or Russian lun.es HK'iinal thai of a

select one o[ Ibosr proviitcd rind pit your German.

machinesof WWII. In UlisrealisliclflctiPal wargame. you choose your force frnm a variety of WWII ora armor and infyntry- Onsisn your uwn 3cenHrib or

a^ain by thft stool mnnslors, the annorad fighting

the wooded plains oCGermany aro furrowed onca

54K DtsV lor Cammadare 64', 530 Flaying lime: i-i hours: Intermediate complexity level

4&K Hi>L for Atari" Home Computer*. 530

Cassette for Atari* .':i.'K i .mil Cnmniodore 64', 525

effects.

requires careful tactical planning nnd, above allr a determination to win, Hi-res graphics and sound

the hordes of Russian, units. Not just tin arcade shool'om up. Panzer-Jsgd

artillery support is also avnilablc tn help you cnmliat

and PkKw Ill's with infantry rtuppnrt. al] maneuver ing over an cver-KhanginB baUJefiek! map. Off-map

in command! Your units induct? jiJiitoorin uf i'smthsrs

endless Russibii sileppu (rumbles aguin with (he ftimhld of invading punaers. and Ihiy liniu you arc


COMPUTE! Publicationsjncffl OÂť W ttw ABC Pubhhlng Compailm

Jules 11. Thompson, Inc.

National and Canadian 5ales Representatives 1290 Howard Avenue, Suite 303

Burlingame, CA 941)10

Address all advertising materials (o: Patti Williams, COMPUTED GAZETTE 324 Wesf Wendover Avc, Suite 200, Greensboro, NC 27408

Sales Offices, The Thompson Company

Publisher iJ.iry R. Ingersoll

E.litor in Chief Robert C. Luck Director of Administration Alice S. Wolfe

Senior Editor Richard Mansfield Managing Editor Kathleen E. Martinek Editor I.ance Hlko Production Director Timv Roberts

Editors

Tom R. Halfhill, PC and PCjr Editor; Stephen Levy, Editor,

COMPUTE! Books Division; Gail Walker, Production Editor; Otlis R.

Cowper, Technical F.dilor; Charles BrflnnDn, Program Editor; Selby Baternan, features Editor

Assistant Editors

New England Mid-Atlantic

Southeast

Midwest Texas

Northwest Northern CA

Southern CA

Nevada, Arizona

Blake Lambert (Publications); Kathy Yakal, Editorial Assistant

(Features), Randall Fosiiit, Assistant Managing Editor (Books)

Editorial Programmers

619-941-2313

New Mexico

213-378-8361 303-595-9299

Colorado

COMPUTEI Publications, Inc., publishes COMPUTE!

Dan Cormichae] (Submissions); Gregg Keizer, Steve Hudson (Books); John Krause, George Miller (Technical); Todd I idmarck, Robert Sims,

617-720-1 BBS 212-772-0933 919-275-9809 312-726-6047 713-731-2605 408-354-5553 415-34S-8222 or 408-354-5553 619-941-2313 or 213-378-8361

COMPUTE' Books

COMPUTE!'! Gazette

Corporate Office:

324 West Wendover Ave., Suite 200, Greensboro, NC 27408

Mailing Address:

Post Office Bos 5-llMi, Greensboro, NC 27403

Patrick Parrish (Supervisor), Gregg Peele (Assistant), Jeff Hamdani, Tim Victor, Kevin Martin, Chris Poer

Telephone: 919-275-981)9

Programming Assistants

Chief Executive Officer Robert C. Lock

Mark fulfil.', David Plorance, Kevin Mykytyn

Office Hours: 8:30 AM to 4:30 PM Monday-Friday President' , i: i R. Ingersoll

Vice President, Finance & Manning PaulJ. Megliola

Copy Editors

Executive Assistant Dcbi Nash

Juanlta Lewis, [nan Rouleau

Assistant Cassandra Robinson

Proofreaders

Becky Mall, Ethel Silver, Dwight Smith

Administrative Staff

Vicki Jennings, Laura MacFadden, Julia Fleming, Susan Young, Susan Booth

Production

Irma Swain, Production Manager; Janice Fary, Art & Design Director, Lee Noel, Assistant Editor, Art & Design; De Potter, Mechanical Art Supervisor; Terry Cash, Debi Thomas, Typesetting; Mindy Kutchei, Promotion Manager

Artists

Leslie Jessup, Cindy Mitchell (Publication?), Debbie Bray (Books);

Harry Blair, Illustrator

Subscription Information COMPUTE!'; Gazette Circulation Dept. P.O. Box 5406, Grconsboro, NC 27403

TOLL FREE Subscription Order Line

800-334-0868 In HC 919-275-9809

COMPUTEi's Gazette

Subscription Rates

(12 Issue Year): US (one year) S20. Canada, Mexico and

Associate Editors

Jim Hutterfield (Toronto), Harvey Herman (Greensboro), Fred D'Igna/io (RoanOke)

Operations/Customer Service

Patty lones, Subscriber Services Supervisor; Assistants: Chris Patty,

Chris Gordon, Sharon Sebastian, Rosemarie Davis; Fran Lyons,

Dealer Sales Supervisor; Assistants: Gall Jones, Sharon Minor, Rhonda Savage

Customer Service Staff

Dorothy Began, Supervisor; |udv Taylor, Lisa Flaharty, Anita Roop,

Debi Goforth, Jenna Nash, Elizabeth While, Svbil Agee; Jim Coward (Warehouse Manager), Larry O'Connor, Dai Sees, Jack McConnell,

Foreign Surface Mail $25. Foreign Air Mail $45. The COMPUTED GAZETTE subscriber list is made available to carefully screened organizations with a product or service which may be of interest to our readers. If you prefer not lo receive such mailings,

please send an exact cony of your subscription label to: compute's GAZE7TB, P.O. Box 961, Kirmmgdale, NYH737. Include a note indi cating your preference to receive only your subscription. Authors of manuscripts warrant that all materials submitted to

COMPUTO1!GAZETTE are original materials with full ownership rights

resident In said authors. By submitting articles to compute's gazette,

Data Processing

authors acknowledge that such materials, upon acceptance for publication, become the exclusive properly of COMPUTE! Publica tions, inc. No portion of this magazine may be reproduced in any form without written permission from the publisher. Entire contents

Accounting

developed and submitted bv authors are explained in our author contract. Unsolicited materials not accepted for publication will be

Eric Staler, Eddie Rice, Sam Parker, David Hensley, John Archibald; Mary Spr.igue, Mail Room Coordinator Leon Stokes, Manager; Joan Compton, Chris Cain, Assistants

Paul J. MeglioTa, VP, Finance & Planning, R. Steven Vetter, Director, Finance & Planning; Assistants: Linda Miller, Doris Hall, Jill Pope;

Staff: Anna Harris, Emilie Covil, Anne Ferguson, Tracey Hutchins; Gregory L. Smith, Purchasing Manager

Advertising Sales

Ken Woodard, Director of Advertising Sales; Patti Williams, Production

copyright <"â– 1984, COMPUTE! Publications, Inc. Rights to programs

returned il author provides a self-addressed, stamped envelope. Where programs are included in an article submission, a tape or disk must accompany the submission. Printed listings are optional, but helpful. Articles should be furnished as typed copy (upper and lowercase, plenso) ivith double spacing. Each article page should

bear the title of the article, date, and name of the author. COMPUTEI Publications, Inc., assumes no liability for errors in articles or adver

Coordinator; Bonnie Valentino, Accounting Coordinator; Joyce Margo,

tisements, Opinions expressed by authors are not necessarily those of COMPUTE! Publications, Inc.

Sales Representatives

PET, CUM, V1C-20, and Commodore 64 are trademarks of Commo dore Business Machines, Inc., and/or Commodore Electronics Limited. Other than as an independent supplier of quality information and services to owners and users of Commodore products, COMPUTE! Publications, Inc., is in no way associated with Commodore Business Machines, Inc., or any of its subsidiaries.

Production Assistant

Jerry Thompson

Phoebe Thompson JoAnn Sullivan EdWinchell Harry Blair 8

COMPUTE!'! Gazette

415-348-8222 408-354-5553 619-941-2313 213-378-8361 919-275-9809

Junel98rt


WordPro 3 Plus/64

The #1 Selling Word Processor for the Commodore 64'

■fa

WordPro 3 Plus'"/64 and SpellRight Plus'" provide a total word processing solution for the Commodore 64"1 which gives you: * Sophisticated Word Processing + Built-in Mail Merging for Form Letters

SpellRight Plus locates and highlights misspelled words and

then allows you to quickly correct the misspellings — improving the quality of your letters and reports.

And, best of all, WordPro and SpellRight's powerful arsenal

* Math Functions for Column Totals

of features can be put to use almost immediately — by even

* A Super Value (two programs) for Only $99.95!

writer, in business, education or a hobbyist, you'll quickly

* Fast and Complete Spell Checking via SpellRight Plus WordPro and SpellRight are both specifically designed for the novice user with no computer or word processing experience whatsoever. And with over 40,000 WordPro versions sold, you can be sure that WordPro is a very sophisticated word

processor loaded with powerful features including: Transfer,

Insert, Delete, and Rearrange Text, Auto Page Numbering, Math Functions, Headers, Footers, Global Search and Replace, the

Ability to Create Multiple Personalized Letters and Documents,

and much more. WordPro can create documents of virtually

any length and will print up to 165 columns wide. You get all of this PLUS fast and complete spell checking using SpellRight Plus!

the novice user. So whether you're a student, professional become a WordPro Pro!

Both WordPro and SpellRight Plus are also available separately

at popular computer outlets nationwide. Invest In the best.. .WordPro Plus. In a class by Itself.

Professional Software Inc. 51 Fremont Street Needham, MA 02194

Dealer and Distributor inquiries are invited.

WordPro 3 Plu3™/64 and SpellRight Plus" are trademarks of Protessional Software Inc. The WordPro Plus Series was designed and written by Steve Punter ot Pro-Micro Software Ltd. SpellRight Plus was designed and written by Dwight Hutf and Joe Spatalora ol SpellMaster Systems, Inc. Some printers may not support certain WordPro 3 Plus (unctions and/or require an interface. Please check with your deafer.

Commodore 64™ Is a trademark ol Commodore Electronics Ltd.

(617) 444-5224 Telex: 951579


GAZETTE FEEDBACK EDITORS AND READERS

Do you have a question or a problem? Have you discovered something that could help other VIC-20 and Commodore 64 users? Do you have a comment about something you've read in

computed gazette? We want to hear from you.

Write to Gazette Feedback, computed gazette,

P.O. Box 5406, Greensboro, NC 27403.

Mysterious Numbers I'm curious about lines like: SYS 12*4096 + 12*256 and BB=PEEK(44) + 27 in your magazine. Why don't you Just write: SYS 52224 or BB = 35? Wouldn't this be quicker than having the com

puter perform the mathematical functions first? Joel A. Biondes

In the first example, you're right. It would have been

easier (and quicker) to simply write SYS 52224. The reason the line was written with the formula was simply programmer preference. He might have been thinking

in terms of blocks (4096) and pages (256) of memory, and this computation method u>as easier for him than

computing the actual SYS address. In hexadecimal the number translates to SCC00.

in the second example, the BB = 35 statement might not work. In this case, memory location 44 indi cates the start of BASIC program memory. But the start of BASIC can be changed by POKEing values into

byte 44. In this case, if the start of BASIC were changed,

56322. Plug a couple of joysticks into ports 1 and 2 and run this short BASIC program. While the program is running, push the joystick and firebuttou and watch

the values in these memory locations change. 10

A=56320jB=56321

20

PEUNTA;PEEK(A),B;PEEK(B)iGOTO20

Each operation performed on the joystick sets a bit (a byte is composed of eight bits) in the memory locations. The normal bit values are one, but when joystick activity is detected, the bit is set to zero. The bits are arranged as folloius: Bits

Operation

3-0 joystick direction 3-2 paddle fire buttons

4

joystick fire button

7-6 read paddles on port 1 or 2

Reading individual bits is done by PEEKing with an AND. To PEEK bit 0, you would AND with I; to check

bit 1, AND with 2; the number usedfor the AND doubles with each succeeding bit, up to a value of 128 for bit 7 Here's another short demo program. Run this program with a joystick plugged into port 2. Run it a few times, changing the value of B to 1,2,4,8, and 16 to see how the individual bits are detected. When you push the joystick, the corresponding bit will change to a zero, ami the zero will be displayed on the screen. 10 A=56320:B=1

20 PRINTPEEK{A)ANDB:GOTO20

the value in BB would nlso change.

As for a program being able to read both joysticks at the

PEEKing Joysticks On The 64

tioo-player games available. Some game programs might use both the joystick ports plus the keyboard. It depends

same time, it's up to the programmer, There are many

I am a VIC-20 owner and am considering switching to the Commodore 64. I went to a store to compare

on the individual application.

the two, and found lh.il the 64 had two joystick control ports. Can two joysticks be plugged in, or

Double-Sided Floppies

just one and a light pen? If two can be plugged in, does a program read both ports or just port 1? If it reads them both, then two players can play at the same time, but how does this work?

Todd Wolfe

Yes, joysticks can be used in both ports. You can check

the joystick positions by PEEKing two memory loca

tions. Each time [/on push the joystick in one direction or press the fire button, various values are placed in

these locations. The values indicate which operation was performed with the joystick, paddles, or light pen.

The location to PEEK for port 2 is 56320, and port 1 is 10

COMPUTERS Gaelic

Juno 1984

1 have a tip for your readers and a question for

you. Some programmers like to cut a new write

notch on their single-sided diskettes so they can use the reverse side. However, there's no need to spend your money on a special tool to cut the notches. As long as you measure accurately, a half-circle cut with an ordinary paper punch will suffice. Now my question: Since I have been using

the backs of my floppy disks for additional storage, 1 have come across a most annoying problem. About ten percent will fail to format correctly,

and will give me the message:


These a flie hanas ofa master typist.

(Jonathan Pandolfi, age 7.)

MasterType^—the best-selling program that turns learning into child's play-

Given the choice of learning a skill or playing a

game, most kids go for the game. So how has MasterType" gotten so many young kids to sit still long enough to learn to type? By being fun. By bringing the fast action of video games to each of MasterType's lesson program segments.

Kids get so caught up in zapping spaceships,

-they-bacdly-realize-they-v&masteredthekeyboard.

Warning: Parents like it, too. And may find

themselves unwittingly becoming expert typists before they know it.

Disks: Apple? Atari? Commodore 64' $39.95 IBM-PC $49.95 Cartridges: Atari? Commodore 64" $39.95 Try the other programs in the Scarborough System—Songwriter^ PictureWriter',' Phi Beta

Filer'," Pattern Maker" and Runfor the Money'." All

Scarborough software utilizes your computer's capabilities to the fullest. And perhaps more importantly, all are easy to use.

Apple, IBM and Atari ate registered trademarks c I Apple Computer. Inc.. Inter national Business Machines Corp. and Atari, Inc. respectively. Commodoro64 is a trademark of Commodore Electronics Limited.

The ScarboroughSystem.

Scarborouah Systems, Systems, IInc., __ © Scarborough

25 N.Broadway rarrytown. New York 10591^^

m


Cleaning Disk Drive Heads

21, READ ERROR, 75, 01

This never happens when formatting the front side of the disk. What is the problem? Philip A. Grimes

Thanks for the tip. However, here's a strong caution which is also an answer to your formatting problem. When most diskettes are first manufactured, they are intended to be double-sided. The magnetic coaling on both sides is subjected to rigorous tests. If both sides pass the certification tests, it is sold as a double-sided diskette. If one side fails, but the other tests OK, it is sold as a single-sided disk. When you use the reverse

side of a single-sided floppy, it may have already been

tested and proven to be faulty-—thus a probable cause of your formatting problem. Another strong point to consider when using the reverse side: dust contamination. Manufacturers put a special lining inside the diskette jackets. The lining acts

like a broom, sweeping the dust off the magnetic surface. Because the diskette always spins in the same direction, the dust has a tendency to be swept into one corner of

the jacket. When you turn the diskette over and use the reverse side, the diskette spins in the opposite direction. This can spin the dust out of the corner, and back onto

the delicate magnetic coating, possibly causing irrepar

able damage. Using commercially available double-sided disks doesn't necessarily solve the problem. Doid'le-sided diskettes are meant to be used on double-sided disk

drives. These drives have two read/write heads, one on the top and one on the bottom. This means that the diskettes don't have to be turned over; they always spin

in just one direction. When you use double-sided floppies in the 1541 and 1540, you still have to reverse the disk ette to reach the second side. So even though the diskette was tested safe on both sides, you still face the dust contamination problem.

I'm an avid reader of your magazine, but your

March issue leaves me puzzled.

In the Feedback column you reiterate advice

to avoid using the SAVE(u(h (SAVE with replace) command with the 1541 disk drives. Yet, you

feature a utility on page 120 which is based on

just that function.

What gives? As they say, it appears that you're talking out of both sides of your mouth.

John Premack

An interesting point. We still maintain that you should

avoid the SA VE with replace command to be on the safe side.

However, in our judgment, the article and program were worth publication on their own merit. The author

chose to inc. this command in his program. It is possible . em

he "(a 0:" (SA VE-with-replace) from the

, but you would have to change the program

jch time.

LOMPUTEfs Gaeiie

Commodore 1541 disk drive. The instructions included with the cleaning kit state that I must insert the cleaning disk into the drive and then

start the drive to engage the head for 30 to 60 sec onds. Does the head engage when you first turn on the drive (the red light turns on for about 5 seconds). How do 1 engage the heads so that the disk drive is properly cleaned? Jerry A. Coy Don't depend on the brief spin when the drive is first turned on to do the cleaning. After inserting the cleaning

diskette, you can make the drive spin any number of different ways.

Try loading the directory (LOAD '-$",8), initial izing the diskette (OPEN 15,8,15,"!"), or using the format command (OPEN 15,8,-I5:PRINT#15,"NO: TEXT,TV-.CLOSE 15). Any command that forces the drive to either read or write can be used when cleaning.

Colliding Sprites I am trying to write a machine language game using sprites and am having trouble with the col lision register (SD01E). I've found out that if I read the registers second time in machine lan

guage, all I get is a zero, not any current collisions as I do when I PEEK the register in BASIC.

It is a great waste of time to return to BASIC just to PEEK the collision register. Certainly there

must be a way to get the computer to reset this

register in machine language. How do I overcome this?

Sean D. Wagle

The problem you describe occurs because a small amount

of time is required for the collision registers to reset

gazette Double-Talk?

â– oj>

I recently purchased a head cleaning kit for my

after they are rend. Any time you read these registers, whether from BASIC or machine language, they are

automatically set to zero aftenvards. Since it ta'kes a

brief moment for these registers to reset themselves, reading them over and over at machine language speeds will produce some zero readings even though collisions are still occuring. The best way to deal with this problem is to add a delay so that the collision registers are read at longer time intervals. Store the results of the read in a separate storage location, then use this storage locution to check far either sprite-to-sprite or sprite-tobackground collisions. The collision registers are two memory locations

$D0lE (decimal 53278) and $D01 F (decimal 53279). The eight sprites (0-7) register collisions by selling the corresponding bits (0-7) in each of these registers. The

first location ($D01 E) signals collisions between sprites by setting to 1 the appropriate bit for each sprite involved in the collision. Since sprite-to-sprite collisions must always involve at least two sprites, two or more bits in

this register turn on for any contact between sprites.


<T,

:

-■■'-'■■-

■ -J-

Whether you're a be ginner or

an

experi

expand the world of

COMMODORE 64™

tional, and investment

the Commodore 64'" for you. COLOR GRAPHICS: A BEGINNER'S GUIDE,

memory locations — places inside the com puter which act in

of creating files. You'l! learn how to manipu late and create your

enced user, Reston can

Commodore 64""s

mystery and misery out

special ways. You'll

own files for home, hobby, business, educa

learn lots of speciol uses, including how to make music or create

purposes.

ADDING POWER TO

special characters for video games.

by Shaffer and Shaffer, explains how the Commodore 64 operates and teaches you how to read, understand and write

YOUR COMMODORE 64™, by Steve

Cates and Vahe Guzelimian, uses a firstof-its-kind utility approach to help you

You can find these guided tours of the

color graphics. Each topic includes a BASIC programs, line-by-line explana tions, and illustrations of what the screen

power of your machine than you ever though possible. You'll get an inside look

Reston at (800) 336-0338.

simple basic programs for generating

or computer store. Or order directly from

at the workings and advanced features,

A Prentice-Hall Compo-v 11480 Sunset Hills Roc

should look like.

all in an easy-to-understand style.

COMMODORE 64" DATA FILES, A BASIC TUTORIAL, by David Miller, is a

MASTER MEMORY MAP:

step-by-step tutorial which takes the

Commodore 64'" at your local bookstore

master more of the advanced computing

COMMO

DORE 64™, by Pavelko and Kelly, is a

clearly written, friendly guide to all the

Reston Computer

Reston, Virginia 22090

COMMODORE 64 is o trademark of Commodore Electronic!


The second location (SDOJF) signals contact be

tween a sprite and a nonzero portion of the background.

diskettes is easy, however, and can be done with one command. Here's the format:

Like the first register, bits are turned on for each sprite

which "touches" a nonzero part of the background. Collisions occur only when solid portions of the

OPEN 15,8,15: PRINT#15,"R0:newn.inie= oldname": CLOSE 15

where RO: means rename, newnamo is the new name

sprite occupy the same spot on the screen as another solid portion of a sprite or background.

you wish to give to the program, and oldname is the

Renaming Disks

enter and RUN this program (for both the VIC and 64).

I have many programs now collected on disk. T

10

current name.

If you wish to rename more than one program,

find that my disk names and numbering system

have become a Mulligan Stew. I would like to retitle and number them in 3 proper and orderly

CLOSE15:OPEN15,8,15

20

PRINT"tCLR)(DOWN)

30

PRINT'ENTER OLD NftME:"IINPUTO?

40

print"enter

50

print#15,"r0!";ns;"=";os

60 print"{down!

manner.

Do you know of a way to retitle and number them so that the contents of the programs are not harmed in any way? James R. Maloney While it is simple to rename a prograt)i on disk, it is

more complicated to rename the actual disk. If done incorrectly, it may ruin the disk directory. If you want to rename a disk, it is best to format a new disk witii the

desired name and ID number, then copy all the programs

from the old disk to the new. Changing the names of the programs on your

LEARN

MACHINE LANGUAGE • Write Fast-action Arcade-style graphics • Fully use the Music synthesiser ■ Completely understand the Computer

a Full set of professional quality development tools.

DEVELOP-64 4.0 IS NOW

name:"iinputn?

press

(rvs)fi|opf} to rep

70

GETA$:IFAS=""THEN70

80

IFA$<>"(F1}"THENEND

90

GOTO20

Useful POKEs Here is a data table showing some useful POKEs.

We use it here at our school, 100 Mile Junior Sec ondary, British Columbia. 1 am sure there are others who could benefit from this compilation. Dave Schneider Fund ion

VK

64

"Cold" Star!

SYS 6JS02

SYS 64738

Uppercase/Graphics

POKE 36869,2-10

POKE 53272,21

Lowercase/Uppercase

POKE 36869,242

POKE 53272,23

Disable STOP

I'OKE 808,127;

POKE 788,52:

POKE 786,111

POKE 808,239

POKE 808,112:

POKE 788,49:

POKE 788,191

POKE808.237

POKE 808,100:

POKE 808,225 or

POKE 802,0:

POKE 808,234

Enable STOP Disable STOP, RESTORE, andLIST

POKE 803,0: POKE 818,165 Friable STOP,

RESTORE, and LIST

POKE 808,112:

I'OKE 808,237

POKE802.243: I'OKE 803,243: I'OKE 818,133

Disable RESTORE

POKE 792,90

POKE 793,203

Disable SAVE

POKE 818,73

POKE 819,245:

Enable SAVE

POKE 818,113

tape or memory • Powerful Co-resident Full-screen editor,

Disable Repeat

POKE 650,0

POKE 650,0

disk or tape or In memory • Built-in disk wedge • Program

Enable Repeat

I'OKE 650,128

POKE 650,128

Disable LIST

POKE 775,200

Enable LIST

I'OKE 775,199

POKE 775,200 POKE 775,167

Clear Keyboard Huff it

POKE 198,0

POKE 198,0

Disable Keyboard Enable Keyboard

POKE 649,0

POKEb49,0

POKE 649,10

POKE 649,10

Restore Keyboard

POKE 650,0

POKE 649,10:

FAST!!!

Assembles 2000 Unas of code in under 15 seconds'

•Superfast • Macros -2600 Lines of code In memory Expandable by disk or tape file • Assemble direct to disk or

debugger end decoder • Decoder disassembles programs on tracB, Single step. Execute • Set 10 breakpoints and/or Gopoints • Full-screen memory display and modify PLUS the Machine Language Programmer's Bible:

"Inside the Commodore 64"

$69

95

Plus 33.00 pnitugn and handling. I Minn reaidflnla add 8% f

P.O. Sox7426 Minneapolis, MN 55407

Call Toll-Free 1-800-328-0145 or in Minnesota call: (612) 871-4505 \i

PROGRAMS"

EAT"

• Develop your skills inventory

Learn with the Tutorial that comes complete with

new

RENAMING

COMPUTE!'! Gatotte

June 1984

POKE 818,32

POKE 818,245: POKE 818,237

I'OKi; 808,237

Thank you. We're sure our readers will find the table helpful. When using the POKEs to disable LIST, note that RUN/STOP-RESTORE will not reset the computer. 0


Handle —A Complete Line ofProducts to Keep Your Commodore 64 Busy -Everyday! ■.

.T I i

,

.

. .

Develop your bridge skills

i

-

..I---

Handle your home

budget, stock portfolio, loans and mortgages

A complete database for the home

with Calc Result

Addresses, telephone numbers, appoint ments, birthdays, or records-whatever you want to remember-put it on DIARY, an

Calc Result Easy is a simple-to-use spread

electronic notebook for home use. DIARY

sheet program lor the Commodore 64. It includes 254 lines x 64 columns, built-in graphics, and flexible printout formats.

comes on a plug-in cartridge. Its easy to use and easy to learn, giving you the flexibility to design a personal calendar

Plug-in cartridge... just plug it in and its

or address book.

Whether you're an experienced bridge player or a beginner, polish your skills or learn the game with BRIDGE 64. Play North-South, then switch to East-West in the same deal, the return to (hat deal again and test your skill with a different strategy.

ready. Perfect for cash flow analysis, perso nal net worth, IRA analysis, travel expenses, credit card expenditures, gas and elec tricity bills, etc.

Bridge $39.95

Handle—for the broadest range of Commodore products As the largest independent developer of Commodore software and accessories, Handic's broad range of business, educa tion and recreation products are designed

Diary $29.95

Turn statistical Calc Result Easy $49.95 Calc Result Advanced gives you 32 pages of interrelated information. The three-dimen sional feature allows you to consolidate calculations in summary formal. Calc Re sult Advanced comes on plug-in cartridge and disk. Disk drive required.

exclusively for the Commodore user who demands quality and reliability.

information into graphic format GRAF 64 converts mathematical functions

into graphical analysis on the Commodore 64. An ideal program for studying math. Define a function, set the limits of an axis, plot a graph and display the extreme points, intersection values, etc.

For more information and a catalogue of our products, see your nearest Commo dore dealer, or call us direct.

.,,

|5 a t if K

ft

TllirtL |

3oS

nil

Handic Software, Inc. Fellowship Business Center 520 Fellowship Road, B 206 Mount Laurel, NJ 08054

Calc Result Advanced $99.95

Graf 64 $29.95

Phone (609)663-0660


■' .. < ''i'•■'■'''i-"^ ' ■ ■

t^&

The Future Of

-omputer Games: • Software That Thinks For Itself ' Selby Bateman, Assistant Editor, Features «

From the Temple of Apshai to Zaxxon and Znr/c, computer ,

games challenge, intrigue, and delight millions of us every day.

(Jut software producers are working feverishly U> make ' tomorrow's games even smarter/faster, and .

• a

more interactive.

,•

.'..


HHR

lodore 64™ . /vners, Relax...

with Mirage Concepts software

software. Before you buy—we help you determine which Mirage Concepts package will meet your need. No guesswork! With your purchase comes a menu-driven program ranked by independent evaluators nationwide as among the finest available. Relax as you learn how to operate your program with clear, concise tutorials written by professional writers... not programmers. For consultation on your special questions, technical support personnel are standing by on a toll-free basis. DATABASE MANAGER, $89.95 For Brochum, Support

a:\tl Information, Call...

• 100% Machine Language • Free Form Design • Sort On Any Field • Calculated Fields • Interfaces to W.P. * Record Si«' " 2,000 Characters

ADVANCED REPORT GENERATOR, $49.95

(800) 641-1441

• Companion to Database • Totals and Subtotals • Field Matching • Expanded Reports

(800)641-1442.

WORD PROCESSOR, Professional Version S89.95

hi California. Call.,.

• Sorting (Up & Down) • Calculated Fields

• 80 Col w/o Addt'l Hdwr ■ 100% Machine Language • Spelling Checker (30.000 Words) • Over 70 Single Keystroke Commands • Printer Command File • Interfaces to Database

WORD PROCESSOR, Personal Version S39.95 • 100% Machine Language • True Wurd Wrap • Printed page/linc/charjctcr counters • Kight Justify. Center • Printer Command File • Interfaces to Database

2519 W. Shaw Ave.. #106 • Fresno, CA 93711

inc.

TM—Commodun1 64 Is a Rtgbrtrtd Tr.vtr MIA "I Commodore fcloctrunics. Lid.


«^m

even Cities of Gold is an attempt

There is a focused attention among computer

game producers today, much like the concen tration that would come with the prospect of being hanged at dawn. Why? Millions of dollars can be Spanish conquistadors what Shogitlt did for sixteenth-century Japan," says David won or lost by software developers and the dealers who sell the software. And all of that potential Grady, publications manager lor Electronic Arts. with the computer medium to do

A

for the sixteenth century and the

The fact that Grady can say that with a straight

face is due in no small sense to his company's

remarkable track record in producing some of the

profit or loss hinges on correctly anticipating what

games the public will want a year or (wo from now. What will the consumer buy tomorrow? "It's

most innovative and well-conceived computer games on the market.

like trying to aim at a moving target," says Ken

And the new game he's referring to, Seven Cities of Gold, is a good example of several trends in game software we'll see in the future—more

of the industry's most successful software man ufacturers. His comment was made during a spe

depth of play, greater background research, sophisticated humor, and increased emphasis on human qualities.

Like James Clavell's book, Shogun, Seven Cities is an attempt to recreate a past world full of rich detail. But in this world, i/ou decide how almost every phase of the plot will be carried out. "It's like writing a historical novel," continues Grady. "And when that is what you set out to do, you've got to make it work like a historical novel.

You've got to immerse yourself in the period, and

neth Williams, president of Sierra On-Line, one

cial seminar on computer games at last February's

Softcon, the international conference and trade fair tor the software industry. Words of warning came from writer and game designer Roe Adams III, another participant in

the seminar: "People are becoming more finicky about software. Game designers will have to bring people into the game. "The software companies that will succeed are the ones which put human values in their software," he added. That prescription will be important for the

think about what you can do with the medium to give people the kinds of emotions that you're

games ot the future, whether they are fast-action,

discovering existed in the period as you do your research." A brief description of ihe game only hints at its depth: As a sixteenth-century Spaniard, you

text adventures.

lead an expedition to discover the new world, first outfitting your ship, gelling the king's

blessing, and then sailing off to—who knows where? There are thousands of miles of ocean in which to get lost and the prospect of a mutinous crew. There are natives who may be hostile,

friendly, or just wary. And there is the entire

arcade-style games or the increasingly popular In B.C. 'S Quest For Tires ($34.95), Sierra On-

Line features Johnny Hart's internationally popu

lar cartoon strip, B.C., to add humor and a human

touch to a colorful, fast-action contest. As software manufacturers reach for a larger audience, they are using familiar names, faces, and situations to help consumers identify with their games. HesWare's Minnesota Fats' Poo! Chal lenge, Broderbund's Choplifter (remember the Iranian rescue mission?), and Datasoft's The Dallas

new world for you to explore, settle, and—as in history—to plunder, Hut beware. The new world holds penalties for too rapacious an altitude. The game, created for Electronic Arts by Ozark Softscape (which also developed M. U. L. E.) is expected to be available for the Commodore 64

ware—more sophisticated use of natural lan guage. Larly adventure games allowed the player

and Atari machines by the time you read this,

only a limited number ol commands—-usually

and lor IBM and Apple computers later this year.

"As you get computers which have more memory available and more speed, programmers are going in take advantage [of these] to do more

richly complex things," says Grady. "And build ing models of things thai work in the world is one ol the neat things you can do with a computer." 18

COMPUTED Gnnrile

June 1984

Quest {J.R. Ewing and the rest of the family) are examples.

The growing popularity of adventure games holds another key to the future of computer soft

two-word orders such as "Gel lantern" or "Kill dragon." The newer games, and those still on the

drawing boards, use far greater vocabularies and more powerful pursers, which are used to interpret your commands. Full sentences can now be inter preted by game software.

Sierra On-Line is a company which pioneered


Start A Tradition With Advanced Ideas Bring the whole family together with

programs that are educational, flexible, extendable and fun. As the years go by you'll be glad you did. Families like yours know programs aren't all the same. And that a computer is only as good as the software that runs on it.

So go ahead Demand programs flexible

enough to fit your children's abilities as

they grow. Insist on features that extend subject matter as far as you want to take it. And be unimpresed if the whole thing

isn't great fun. then watch as your family keeps coming back to Advanced Ideas.

You'll discover that you've really started something.

How to Choose Software for Your Home

"As an educator with over a decade of experience using computers with child

ren, I've found there are key features in

a well-designed learning game. One is extendabffity.

Look for enough variety to hold your

child's attention over time. Some games are appealing in the short run, but are quickly mastered. Supplementary materi als such as disks of added lessons can continue your child's interest and

enjoyment.

The ability to modify a program is another form of extendability. Authoring systems can let you create lessons on your own

topic areas for any age level and allow children to create and save original work, giving a sense of completion and pride vital to learning."

Software of Choice

Advanced Ideas (formerly Computer-

Advanced Ideas) leads the industry with programs designed for extendability through easy-to-use authoring systems and a unique library of LearningWare™ diskettes. Rich game play and sound

educational design have won Advanced ideas programs the approval of the National Education Association. Ask to see a demonstration at your local computer store.

then make

Advanced Ideas a tradition in

your home.

'Advanced Ideas ™ Bringing Ideas Home

2550 Ninth Street

Swte 104

Berkeley. CA 94710

1415)526-9100 Advanced Idnas prog'nms are compatible wilhtnnmosl uuuu-

lar computers Apc!e.' IBM* and Comm«Jore.*

Apprt-isa registered trademark oi Apple Computers. Inc IHMia H rfgf.lmHl trademark oi IBM Corp. Comrnodoroi&a Ir.idc

mork ol Commotlom Bulints) Machines. Inc.


The expedition has lauded on an uncharted island in Electronic

B.C.'s Quest For Tiros by Sierra On-hine features n popular

Arts' Seven Cities of Gold.

cartoon character.

the use of graphics in text adventure games. "We

magic powers to find treasure and solve puzzles.

have to lay out an adventure game like we're doing

ten different games in order to get people to play it over and over again," says Williams. King's Quest (IBM PC, $49.95) a new adventure

game from Sierra On-Line, was almost two years

"Ultimately, the nicest thing would be to talk to your computer and say, 'OK, now I'm going to interrogate this suspect about where he was when

the murder was committed,' something like that," says Marc Blank, a vice president at Infocom and

in the making, he says. Using the keyboard and

one of the guiding lights in the company's success.

an optional joystick, you guide Sir Grahame

"We've always fell that sound and graphics are pretty much irrelevant, and in a way detract

through a series of adventures, using full sen tences. There is more than one ending to the game,

and a player is given points for the cleverness of a particular solution.

But, with Kind's Qitett, colorful three-

dimensional graphics accompany the texi. Char acters are animated to a greater degree than in

attention from other parts of the story. Those

things are really bells and whistles," he says. "We've spent our time working on the plot <\mi

the writing, the puzzles, and the parsing—things lhal are much more relevant."

past adventure games. They run, talk, and swim,

for example. The ultimate goal for the future,

Williams says, is realtime animation. You type in a command for your character to open a door and

walk to another room. The door will then be seen

to open, a creaking sound will be heard, and your character will walk through.

lnfocom. Inc., a software company that is

already something of a legend in its own time, avoids adding graphics to the complex and cap tivating text adventure games it produces. A vari

ety of different games, such as the Zork trilogy, the murder mystery Deadline, and the science

fiction adventure Suspended, has gained lnfocom a

fiercely loyal following. The Zork games sparked a Zork User Group (ZUG) which boasted more than 20,000 members. ZUG has since disbanded, but interest in Zork remains strong.

Text adventure games also allow great leeway in the use ol humor, another part of computer programming that game developers will continue to explore in future games.

Tell Sinus's Blade of Blackpool that you wish to

do harm to an innocent bystander, for instance,

and the game's response is likely to be "My, we're

feeling violent today!" Type in the word "Sneeze" in Infocom's Ptanetfall. "Gesundheit" flashes on

the screen of your computer. Humor and an un

derstanding of human foibles are facets of adven ture games that the best programmers bring to their craft.

"All of us like to laugh a lot," says Electronic Arts' Grady. "We like to play. And humor just

naturally flows from that situation. So we quite naturally found ourselves wanting to publish

A new game, Sorcerer ($49.95), is a sequel to the company's popular Enchanter, and a part of In-

games that would make people laugh."

focom's interactive fiction series in the mystic arts.

giving the player a lot of open-ended possibilities, some of them are just inherently humorous or

Sorcerer can understand a vocabulary of more than 1,000 words, which allows you a much more nat

ural dialogue with your computer. As a neophyte wizard, you depend on spells, potions, and other 20

COMPUtEI's Gazelle

Juno 1984

Infocom's Wank agrees, "Inevitably, if you're

absurd. And we all have the sense of which things we should consider when we're writing the games, and which things we shouldn't bother. I


Ifgetting the whole family together is a real challenge, maybeyou need games that really challenge the whole family Inlrodueinganew generation

of computer games. Family Learning Games from Spinnaker. Ever notice how a little fun with the family can be a little hard to arrange? Well, now there's a solution- Spinnaker's

Family Learning Games. A whole family of great games that make getting the family together seem like child's play. And make "family fun ' really seem like fun again. What's more, they'll even help your kids develop some very important skills.

Wnat makes our Family Learning Games

so special? Well, for one thing they're

designed to challenge and excite everyone

them to play a typical board game).

in the family, from grade schoolers to grownups. Their unique combination of chance and strategy makes them perfect

body together, don't get discouraged - get

for young players, yet challenging enough

on the computer.

But what makes our Family Learning Games even more unique is how they help kids learn - about problem solving, strategizing. spelling, even Greek mythology. That's

CREATOR."

Where do monsters luik? Anij

Design a challenging adventure

words, for cnly (Us clues can

game that eveiyane can piny — or let tlif computer design one for you. It's exciting, creatlue-

for Coleco idam," Commodore 64 " and Atari1 home computers.

UP FOR GRABS.1"

return. Ages a-Adult.

Ages1Z-Adult.

UP

game where everyone has to triinKfast. More words will help you win --but don't get caught witll leftover lettorsi

Ages 8-Adult.

and wjerly addictive!

^0^W

ukff Software Corp. Ail t

Spinnaker games are available for ColecoVision* and

It's a wildly exciting crossword

We make learning fun. 9

You'll find the biggest challenge in family

and again.

AEGEAN VOYAGE."

lead you to rklies and a safe

Spinnaker's Family Learning Games. fun won't be on the refrigerator. It'll be

ADVENTURE

to beliold? Heed the oracle's

So next time you want to get every

that everyone will want to play them again

It's New!

which islands tiawe treasures

quite a bit more than they'd learn from a typical board game (if you could even get

tm

Cartridges for: ColecoVision. Coleco Adam. Atari ™° commodorew.

n.(n(.fBo«tivriyC««oAaimiriOComi»iioie6Jsre!i»mjnu rfCo«o"*!ifiuwiMCommMiMEi«uoiimi.tii rnpmnny »19W.


s

=-:;;.- :':.' iiw \Ur.i tt r«:s i!. iMrt in (fitinj; ii tit nit ;.

<:n S)t«:l(5 nitrejlsf'fa on «r>t of tjs ulls,

Lshj Watt you in Ipltarfd rjpiss '« th* lonj rssuins a! i form tewetuith IWISM u'm tried Iwtinj Ik* wr'wi lens, Ions )jo. d pi ■-:-.; ww ;o m souf MiPitts, scuttliiiij jhtters, cilthin; sk* ;;e u _:. ■ :■.; sjjr fcfid. . -•:

■'. :' y.i'.m

to ;he i«ig dijiti i! ess hwJ is i jtwlsi nnj.

•tjta :':.} ring tnj wir i!

OucM !; mus wu'« jtMai smp fi^str uMlt putting w ;i.; pin

Graphic* and text are combined in Sierra On-Linc's adven ture, King's Quest, for the IBM PC,

A typical screen from the all-text adventure, Infidel, by

think the humor Is very important, [fa a way of

blank-screen delay caused when the laser jumps

making (he machine less visible, by making it a little more human."

from one part of a disk to another).

How revolutionary will the changes be in

future games, as humor and human touches are added to other improvements in programming

and computer capabilities? "My guess is it's going to be more evolutionary, with some reasonably large steps every once in a while. But I don't expect anything revolutionary," says Blank.

"On each game, what we're really working on is to add something new. And then every year or so to come out with something that's different, that puts all that together with other things to create a product that's more than the sum of all these improvements," he adds.

Infocam.

"It still uses one laser, but it's done with a mirror action. The laser is refracted and instan

taneously thrown across the disk. So the only time you will see a tiny search is when you have

failed to make a correct move and you access to a death scene. But if you're playing successfully, you'll see no search time," he says.

Space Ace cost about SI.8 million to develop, says Bluth. And a sequel to Dragon's Lair, called Dragon's Lair II—Time Warp is being created at a cost of about $2.3 million. "The laser disk is a very delicate instrument, and when it's used properly, the game will be exciting to look at and to play," says Bluth. "When

those two elements work in tandem, I believe you The popular success last year of a new video

disk arcade game called Dragon's Lair, leads its creator, Don Bluth, to believe that laser-driven video disks are the wave of the future. And that includes home computers as well, he says. Bluth, a former Walt Disney animator who now heads Don Bluth Animations, is producer and designer of a similar video game, Space Ace, which made its debut earlier this year. Like Dragon's Lair, the new game features

colorful motion-picture style animation, a cast of zany characters, stereophonic sound, and a fast-

paced multiple-decision scenario for the user. Slightly more than 25 minutes of classical animation have been programmed onto the pitted

surface of a video disk, which is about the size of a record album. A laser reads the pits. "Pioneer has come up with a new machine which is a very, very fine player," says Bluth. "It has a random

access which is much faster. It can randomly access

several things consecutively up to about five feet of film, and you will see no search (the half-second 77

COMPUTE!'* Gazelle

Juno 1984

will make obsolete the traditional arcade game because we'll leave the arena of big dots and enter the arena of motion picture entertainment. If Space Ace works very well, then we'll know that Dragon's Lair was not a fluke, and that the laser disk future is very bright."

Coleco has reportedly purchased the rights to both games for possible introduction into the home through its Adam computer system, al though no details about the plans have yet been announced.

"The laser disk industry will start to blos som," says Bluth. "And when that begins to hap pen, the price will come down. Sitting there in everyone's living room, with all the other players that they'll have, will be a laser disk player." A unique enterprise started this spring in

Orange County, California, which—if suc cessful—will bring a television-based games ser vice to the nation. Called The Games Network, this system offers 20 different computer games


yvS&SS

%

m

You bought a computer to cultivate your kids'minds. Make sure it's bearing fruit, not growing vegetables. Introducing a v.hole crop of Learning Ad*cnluicgames Inmi Spinnaker. Wfien it comes to cultivating adventurous

young minds, the computer's potential is

hours of adventure and learning. So the time kids spend with our games will help

them develop valuable skills. Instead ofjust tired thumbs.

But what really makes our Learning

endless.

Adventure games unique-educational value

Unfortunately, the search for software that makes the most of that potential has been endless, too.

aside- is how much fun they are. Which isn't too surprising when you consider you can

do things like bargain with aliens, search a haunted house.or build your own railroad empire.

That is. until Spinnaker created the

Learning Adventure Series. A unique collec

tion of games that reward curiosity with

It's New! TRAINS.'"

p^h

Vbu'rein charge of an old-lime railroad-and whether it turns

into s bonanza or a bust depends on how well you run It. But eiOier way you'll find that working on this railroad is a challenge-and a lot of funlAgeslO-Adult.

_

s5ES CREHUl *..

,

*' *1

■Z

J

^^

jfl™

^d

It's New! ADVENTURE

So. if you're in the market for software that will truly cultivate young minds, pick the Spinnaker Learning Adventure Series.

It's the best way to be sure your search

will be fruitful.

Spinnaker Learning Adventure games are available

for Apple.* Atari." IBM" and Commodore 64" home computers.

H SEARCH Of TW MOSIUUZMG

CREATOR."

Design a challenging adventure

gamelha; you or a (i

In fact our games are so much fun, kids will really enjoy developing some very impor tant skills. Deductive reasoning, note taking. and problem solving, for instance.

:. ■

tackle-or let the computer

design one for you. Its complex. exciting - utterly addictive1 Ages 12-Adult.

SPHMKBR

We make learning fun.

k- *■" rl''&

.

IN SEARCH OF THE MOST

AMAZING THING."" II isn't easy to (ind-even In

your B-liner. But you'11 have help from your Uncle Smoke Bailey as you search the universe to find the Most Amazing Thing. Ages 10-Adult.

Disks for: Apple. Atari, IBM, and Commodore tVI. Cartridges for: Atari and Commoaore 64

(ADVENTURE CREATOR only)

Apple, Atari ana IBM art r^i5t«eoir»«riMrMo( Apple Compuscr. Inc. Ami. Ira and lnternaiionjlBuar»s5Maenii» Corn. Commaiore Wei trademark of Commodore El«tmii.ts IM c I9IH, Spinnaker Software Corp

Alilrud


offerings with software com panies. New software may be previewed on the system, and classic computer games might be given new life when millions of new users see them for the first time, lie notes.

"We feel many millions of people will be exposed to com puters who right now don't

know anything about them. And once they gain some familiarity through the painless procedure of playing games on The Games

Network, they'll get interested in buying hardware and soft

ware," says Wise. "We feel it's going to actually speed up the whole computerization ot America." As the world becomes more

Classic animation produced by a laser disk is a feature of Don Bluth's new Space Ace arcade game.

computerized, it's certain that

games will continue to hold a special fascination for millions

which can he downloaded from your television screen into a specially leased 64K microcomputer

(not a stand-alone) named The Window. The Net work will offer a variety of educational, arcade,

of computer owners. And software manutacturers are making it clear—by their new products and their plans for the future—that they're doing far more than just playing games. <gf

and adventure games. Five new games will be added and five old games dropped each month by The Network.

TELECOMM-SQ

Fora suggested one-time installation fee of S30 and a monthly suggested user fee of $15.95, you can play any of the games night or day, seven

TELECOMM-B4 METAPHASE SOFTWARE haa pioauced an enlremely

days a week at no extra charge. Downloading to personal computers would present the problem

of software piracy, which is not a possibility with The Window, says Randy Wise, director of sub scriber services for The Games Network. "We're a programming service similar to HBO or Showtime, except that we need special hardware to run," he says. "There is no up-front cost to the cable operator. We put in the head-end

hardware, and release the hardware to the cable operator to put into the subscriber's home. All of

the payments for that are based on subscriber fees, so we've made it as easy for the cable operators to get into The Games Network as it is

for subscribers." A test of the system over a year ago in Fullerton, California, resulted in a very good response,

says Wise. "There are some interesting concepts here which no one has had a chance to explore yet.

powerful yet simple 10 use terminal program for trie

Commodore 64T and VIC 20' computers Compare this list ol eatures to those of any other Terminal program: • Compatible wilh all modems which connect to user port.

■ Completely menu driven. • Downloads lent, program, or data files. Saves screens.or saves Transmitted Information conlinuousfy. Stores downloaded (lies on cassette or disk, or dumps to printer • Uploads toil or program files. Roads tiles from casselto or disk. • Connect 11 mo clock." • ASCII or Commodore character coOps."" • Captures ano1 displays high-resolution bit-mapped graphics files." • Full support for auto-dial and aulo-answer modoms."' ■ Color selection menu. Set CiorrJw. screen, and character colors.

• User seleclable communication protocols ■ Baud rate... 50-2400 ■ Word lenglh ... &8 Eits " Stop bits ... 1 or 2 " Duplex,.. full or hall

* Parity... even, oao, none ■ Echo.,. local or remote

• Comprenensive documentation in 3-ring vinyl binder.

AND NOW COMPARE OUR PRICE... ONLY 29.95 (dish or cassette)!!!

FEVEP BLACKJACK (C-6*a only)

eo leam to win at CtSMQ BLACKJACK, or. i\ you simply en|oy ins game, then FEVER BLACKJACK is far you Learn the basic rules

KJACS ur learn sophisticated card counting ledhmquea The mgfwes

color graphic; of FEVtH BLACKJACK wHI make you Ihink you are silling at me lame Play agamsl trie computer as you would a real dealer, vary the number of decks, bat size, c dealing speed, o> learn by watching [he

compute! pPay itself More advanced players may praciice card counting Two different card-counting systems Are presd. or you cm modify ihem y .. " y your own jyatem FEVER BLACKJACK will play y I- '>'.•■:-, ■<• hands according d t your own ay^iem to ttnen dupity p 0 m* WYINJL0S5 ratio* as a (unction Of Inff Clrd ccunl THERE'S NO LON OGER ANY EXCUSE NOT TO WIN AT BLACKJACK •

People can look at a program and get used to it on

SPECIAL INTRODUCTORY PRICE . Si99Sidisk or C

The Games Network. If it's something they like,

VISA Add S2 00 handling per program (CA residents add tax)

then they're more likely to want to go out and

buy it," he says. The Games Network plans to coordinate its 74

COMPUTE!-* Gazelle

June 19B4

Check, money offler. VISA, MASTERCARD acceplefl • ■ ■ ■

Dealer Inquiries Invited "

= ^=

" '

METAPHASE P O

MC

SOFTWARE

Eo. 7263 ya'i Jose. CA 95150


The Commodore Connection More Easy to Read Books and Software

^^^^—^^^^— from S3 dilithium Press —^^^^^^——i^—

MORE THAN 32 BASIC PROGRAMS FOR THE

MORE THAN 32 BASIC PROGRAMS FOR THE

A PET* FOR KIDS

COMMODORE 64"

VIC 20™

(Also fur tilt Commodore 64 and VIC S0>

Tom Kuftfi, Will Fcldman and Western Systems Group

Tom Hugjl. I'lill Keldman

A fresh, fun. and Instructive

and Clarence S. Wilson

approach to teaching kids pro

Sharon Boren

gramming and computer opera

BOOK!

SI 9.95

35* Pages

[SBNB8O5G-112-2

134 IUust rail nilBOOK-SOFTWAHK PACKAGES:

939.95 ISBND-BBOflu-lSO-7 BU'dllfc iasset (c 8.111 BS ISHN Cl-HRO-VS' 183' I fKullwnrr rum <m Co inrnRforG oa computer wttli

WKiiirmnrvwJrf I till

li rffHT or rnwrltf irctrrtlrrl

BOOK;

O-8B0K-O59-2

3S4ju«cs

tion. Illustrations and examples motivate children ages 8 to 13 to higher learning levels.

S19.95

] 14 DUIInlHKH BOOKJSOFTOARE PACKAGE: [SI&N0-KH0W1-IHI-5 cassette

83B.B5

ISeltWUtlWOt on a VIC 20 tvmputrr with twttfri. .\rjff. Omr i'f tt'r pitgrtmi requlrr n :W wpBUSOBl

ISE)NO-BBU50-10C-B

30Opi.|i!~.

(9-BS

140 muttntloni

Art Ivl ty W-th Imnk an il Trarlirr'n Gultlr also available

Here Is a collection ofprograms for your entire family. Both books are chock-full of programs with practical applications, educational uses, games, and graphics too! Type in programs from the books or use ready to run programs provided in the book/software packages.

SEND TO: dMthium Preae

P.O. Boi E

Beaverton, OR 97073

I

fir^M Bend me the lAOklft] I Kiw chHfcrd lun^ i^eiejik] (hdl If [Lm nol r«iDy unshed. I c«n rr[UTn the hoohlB] within 10 4a)-* For ml Alul

1

^rumpt rrfui"! MOM

THAU

32

MOORAIH

COHU0I>0RE ft* COUPU1ER I 1 MOOH

I 1 IIOOKIHKK 1HAN

33

THI

SI0P5

83J US

I 1 HOOK-CASSETTE MORE

TOH

S3!> n5 PROGKAWft

FOR

THE

VIC 10 COUPUTER

[ 1 HOOKS

8IB.BS

I1 nooK-cAsstrrE

A PET FOR KIPS I I I1OOH MXPTRACK I } HOOK

We're

I I (IOOK,T>!SK

BS'JHS KEEPTRACK REPORTER

the#l

I: hook

publisher

KEEPTRACK" REPORTER

of

Now you can quickly and accu

easy-

to-read computer

books

and easy-

to-use

software. a •!* ixtbjvut I" rhnngr

B8 05 B'iBWl

\orm Church and linice Srhiielder

rately custom design and formal

reports and mailing labels from KcepTrack files. For home, business, or education, KEEPTRACK REPORTER enables you to select data based on any category, and easily sort it on multiple categories. BOOK:

I3BN0.BM5G.U2-4

KEEPTRACK":File Manager for Personal

S39-95

lirtcrB »ub/rtt la rhan

Ntirin Church

This book and software package turns your Commodore 64 or VIC 20 computer into a personal filing cabinet! It's designed for

IVbm fh*r^f my VISA n Mml'rC.Ard D

easy access and will "keep track"

of everything from birthdays to tax deductions. BOOK:

IO3|>-Ktr.

S9.95

[SUN 0 MHOVt-12tt-'J

100 pages

89-05 rily. Stale. Zip

nooitBorrwARE packao.es:

BOOK/SOFTWARE PACKAGES! ISnN£>-HHOniH!W-:i 5'Vdial.

839.95

IS31NO-hf*n5ll-]H5 H

SUi'dOll

8IU M S^« (IS

$39.95

cdiurfTlr

l&itowarr— rltlirr <il*k vr

839 B5

I ) BOOK.CASSEJTE

Tavflhif ID flilicrjuim P

Computers

50 lllu>llallaiu

ISBN n-HHn.Sfi-1117-1

~ UOOKULSK

■ ArOamVBdnM computers on onc*Jdc. ami

tasseite — mnrafns pi

( ! Send me your tnt talalDfl BHAJTf POOD

programs fur VIC 20 COOputin on thr nlherl

dlUthium Press books are available

dilithium p.o. fioi k

Department INK

Bmvtrun,

at

your local bookstore or computer store. You can also call us to charge your order on VISA or MC — 800-547-1842 outside of Oregon, or 646-2713 In Oregon.


SIMPLE ANSWERS TO COMMON QUESTIONS TOM R. HALFHILL

FEATURES EDITOR

Each month, computed GAZETTE will tackle some questions commonly asked by new VIC-2QI Commodore 64 users and by people shopping for their first home computer.

Many monitors oven include mini-assemblers.

Machine language programmers are divided

into two camps: those who write their programs with monitors, and those who prefer assemblers, Beginning machine language programmers whose

I've been reading a little about machine

backgrounds are in I3ASIC probably would leei more comfortable starling with an assembler. But monitors are useful too, especially for debugging programs created with assemblers.

language, and I'm confused about the difference between machine language and assembly lan guage, and machine language monitors and as semblers. Can you explain?

If I send a command to the disk drive and there is no disk in the drive, does this cause any damage?

A thorough discussion would require much more space than we have here, but essentially machine language and assembly language are the

Absolutely not. The diskdrive's red LED "busy light" will glow for a few seconds as the drive attempts to access the nonexistent disk, and then it will start blinking. A blinking busy light indicates an error condition. But the drive will not be damaged in any way. The LED will stop blink ing the next time you access the drive, or when you read the error channel (see your user's man

same thing. The terms are used pretty much in

terchangeably these days, although we prefer to say "machine language."

The term assembly language comes from assem bler. You can think of an assembler as a utility—a

tool—for putting together (assembling) a machine language program. You don't need an assembler to write machine language, but it makes the job a kit easier.

The earliest computers could be programmed in machine language only. They lacked enough memory to hold a language such as BASIC (which itself is just a large machine language program).

The first kit-built personal computers didn't even have keyboards. Instead, there were eight toggle switches on a front panel, one for each bit in a byte. To write a program, you had to toggle the switches in hundreds of different patterns. (If you think typing in a BASIC program listing is laborious and error-prone, you ought to try this.) An assembler is a utility program which au tomates this process. You type in a three-letter abbreviation fora command, called a mnemonic or opcode, and the assembler sets the internal

"switches" in the correct pattern for you,

A monitor (not lo be confused with ,1 display

screen) also is a too! to make machine language'

programming easier. A monitor is like a window

into the computer's memory. You can examine

sections of memory, change their contents, move

them around, and search for certain numbers. 76

COMPUTE'S Gazette June-1984

ual).

In fact, there is no way you can physically

damage your computer or any of its peripherals

by entering any kind of command at the keyboard. At worsf, you might issue a series of commands

which could lock your printer into an "endless loop" and cause a paper jam or eventual burnout. But even this is highly unlikely, and would happen

only if you left the printer running unattended fora while.

Occasionally an erroneous series of com

mands will trap the disk drive in an endless loop.

This might occur if you're writing a program which

accesses the disk drive and you forget to provide an escape from the loop. If left alone, the drive might continue spinning indefinitely and eventu

ally overheat. But again,-you'd have to be ignoring the situation for quite some time before this happened.

In any case, no matter how badly you goof

up, you can always completely reset the computer system by turning everything oft fora few seconds

and then back on again. Any program or data stored in the computer's memory will be wiped

out, of course, which is why it's important to save copies on disk or tape. W


All the hits

your computer is missing MOON MTROi

ms.p»c-m*h

jam

toon

JUNGLE HUNT

HS.PHtHlH

UTTUIOM

MOON PMROt

POU POSITION "*"2K!

BATTLKONE

IUHGLI HUNT

MOON PMSOl _SVB] JUHC1E HUMT

.

POLE POSITION il!?SI

GtlAXIAH

STAHGMS

COMMIT KOHO

DONKCT NOHC DIG DUG CEHTIPEDt

■ O1OI ROM: 2014 «"BHI

If you thought you'd never find fun games for

your hardworking home computer, happy days

are here. Because now ATARISOFT" has all the great hits... Pac-ManJ Donkey Kong' by Nintendo; Centipede'," Defender; Joust! Jungle Hunt,1 Moon Patrol; Pole Position: Gala'xianJ Ms. Pac-Manj and Battlezonc'"

■OBOTROHIIOia ■-':

And we've got them for all the hit computers

.. .Apple, IBM, Commodore 64, Vic-20, Colecovisionf and TI99/4A. We've got Pac-Man, Centi pede and Defender for Intdlivision too. So dust off your joystick and ask your dealer for all the ATARISOFT hits. It's the software your hardware's been waiting for.

aimisoft:

All the hits your computer is missing. Ljiacluroa In Alnn Inc toruwwthvarouscomjiutersana1 video game consoliK ATARISOFT ikoJucis are not made, licensed w approved by me nwJaduter(s)ol these nudes -Donkey ko™ and Battle™™ not avaHabio on Cdecovisiori 1 Trademarksol Bally Mrp Co SubicuiisedioATAHI.lnc by Namco-America Inc 2 Trademarks an

JemarksanttO Williams 1980 I9B? manulnclutcfl under license tiom Williams Electrons 4 Trudiimatk and eDlTailo America CwporaMni9B2 5 Engineered and mcoLltJ manufaciurod under license by A1ARI. Inc Ttademaik onO O Namco 19B3 Alan' O A Wjmor Communications Co O I9BJ ATARI, Inc All rights resdvec)


The Designers Behind MULE. Kathy Yakal, Editorial Assistant

Dan Bunten, bead of the design team behind M.U.L.E.

They're all over 30—"old men in the computer field," by their own admission. But they've written a game with enough depth and charm to keep the most discriminating videogame players happy for

hundreds of hours. They're the design team behind M.U.L.E.: Dan Bunten, Bill Bunten, Jim Rushing, and Alan Watson.

28

COMPUTES Gazelle

Junel9B4


ENTER THE ELEPHANT SAFARI EPSTAKES. GRAND PRIZE (1 winner)

■■ if

An exciting two week adventure for two to a wild game preserve in Kenya, Africa. The trip includes airfare, luxurious accommodations, meals, tips, and taxes.

FIRST PRIZE SECOND PRIZE Y} (25 winners) ?2

H T

ABell&Howell

35mm camera. The 35J

(5 winners)

A Deluxe Camping Hack-

age featuring an 8' x 10' Wenzel Cabin Tent, four Wenzel sleeping bags,

plus a Coleman lantern, stove and cooler.

complete with fine Lumina lens completely elim inates complicated focusing.

HOW TO ENTER THIRD PRIZE

(100 winners)

Camouflage

Nylon I Juffle Bag. This handsome bag

is water repellent and double reinforced at all stress points.

And thousands of Elephant Safari camou

flage T-shirtsfeaturing the Elephant logo.

No purchase necessary. Just come into a participating

Elephant Safari Sweepstakes dealership where you'll find free entry blanks and official rules. While you're there, check out our full line of quality Elephant memory disks and accom

panying products. Entries must be received by July 31,1984. Void where prohibited. For the Elephant dealer nearest you, call 1-800-3*13-8413.

In Massachusetts, call

collect 617-769-8150.

ELEPHANT NEVER FORGETS

■f q


HAVE YOU EVER REALLY

A HOME COMPUTER?

m,

I

if

*


WE HAVE. Most people have never really figured out why they bought a home computer. That's because most people

don't go together. So when you use one, you can't use the

or zapping aliens.

The software and booh can be used alone or in combina

have never figured out what their home computer can really do. There's more to it than balancing a checkbook But how do you learn enough about your computer to

figure out what it can really do? You could buy one of the

thousands of computer books on the market. Or you could buy one of the thousands of pieces of educational software. But the problem is that the books and software

other. And you really should have both.

SOFTEXT has the solution. We have a selection of intelli gent, stimulating, integrated, software/book packages.

tion. And each software/book package also includes an easy-to-understand Users Guide. So don't sit around trying to figure out why you bought a home computer. Instead, figure out how you can get your hands on a SOFTEXT package.

ATTHE HEART OF THE MOUNTAIN

Th.s package teaches children and adults to program in BASIC by involving them in a fascinating adventure story, loin

the characters in a journey of discovery as they too learn about computers for the first time.

DISCOVER YOUR VIC-20

Using specific examples, this is an adventure-based1 pack

age that goes beyond the

EASY PROGRAMMING

traditional BASIC

WITH THE TI-99WA

introduction.

Get the most out of your

TI-99J4A Learn efficient professional programming techniques even if youre

a beginner.

AN INTKO1 >UCHON

TO Tilt nlMM()W)RUW

THECOMMODOREM

THE COMMODORE PUZZLE MASTER This package contains fifty brainteasers and

MUSIC MASTER

This is the only true'^ "teaching" package ■■

their p<og rammed

ol its kind. Learn to

solutions. Learn how to design your own

compose and create

music while exploring

puzzles with color,

sophisticated programming skills

sound and graphics.

AN INTRODUCTION TO THE COMMODORE 64

This is a thoughtful, entertaining, self-paced guide to programming. An important investment for any Commodore 64 owner. (Shown with book and tape)

WE'RE THE REASON

YOU BOUGHT A HOME COMPUTER.

SOFTEXT INC., 380 Green Street, RO. Box 2007, Cambridge, MA 02139, (617) 876-2334


The ship has just dropped you off on an unsettled planet, and won't be back for months. You have some money to buy

supplies at the local store. You have the assistance of three companions. And you have a multhinit labor element—a combination robot/

Wheeler Dealer was published by the nowdefunct Speakeasy Software and cost $50, which was an "outrageous price," according to Bunten. "I think it sold 151) copies," he says. Though it may not have had appeal, Bunion's

first program did have something that would

telephone/toaster/radio/best friend, affectionately

later become an important element of M.U.L.E.:

referred to as M.U.L.E.—that tends to run away occasionally and break down eventually.

It had four players. "I had to design my own

He's basically Q good little guy. Maybe a lad klunky and weird-looking, especially as he lopes across the screen before the game begins, but he's got a tough job. Some consider him endearing.

Settling the planet isn't easy. Acid rainstorms may ruin your solar collectors. Insect swarms

hardware device that allowed four different input lines," he says.

Next came Cartels And Cutthroats, another business simulator, and Cyiron Matters, a "nonwar war game," according to Bunlen. Computer

Quarterback, which was converted from a main

frame, was his best seller (6000 copies) before

threaten your crops. A fire in the store could de

M.U.i.E.

vides more crystite—a valuable rock substance—

president of Electronic Arts. "Tripp was a real

space pirates. Whatever you choose to cultivate—

Cartels fan," says Bunten. "Initially, he wanted my brother Bill and me to do another game like that, a business simulator. The problem was that

stroy all the supplies. A random meteorite pro

but obliterates whatever was in its path. If you decide to mine ore, you risk losing everything to

food, energy, crystite, or smithore—can make or

break you, depending on the supply and demand, and on how daring you are during the game's 12 auctions.

And you can't do it alone. You need the help

of your companions. You need nerve. You need your M.U.L.E.

in a residential district in Little Rock,

Arkansas, sits a house, rather homey and comfort able. Across the street is a park and a little lake. This is the home of Management Systems Engineering, otherwise known as Ozark Softscape. Otherwise known as Dan Bunten, Hill Hun-

ten, Jim Rushing, and Alan Watson, the designers

oiM.U.L.E.

Dan, head of the design team, has a back ground in industrial engineering, and has worked

in a number of "traditional" careers, including a stint as an assistant city manager.

He wrote his first microcomputer program in 1979. Named Wheeler Denier, it was a business simulation for the Apple. "It was really very primi tive," says Bunten. "Looking at it now, I say to

myseif, 'Did people really do those kinds of

things?' It contained a lot of real klutzy things

that I wouldn't do anymore." COMPUWs Gazelle

it was a little too cerebral, not as playable as

M.U.L.I-:. It did have the kind of depth that Elec tronic Arts was interested in, though."

About this time, Jim Rushing and Alan Watson got involved. "Alan had been a salesman at a com puter store," says Bunten. "He had written an

arcade game and sold the rights to it. He was look

Millions of miles from that imaginary planet,

32

Cartel* piqued the interest of Tripp Hawkins,

June 1964

ing for some way to be able lo design games fulltime, but didn't think it would be possible for another couple of years. He was glad to jump at it. "Jim Rushing had finished his M.B.A. He

was looking for jobs, but didn't find anything that really interested him. In the meantime, he was learning programming on his own. His cash

flow needs were so reasonable thai we were able to bring him on real quick."

Ozark Softscape also has some part-time help which includes Roy Glover, who wrote the de lightful theme song for M.U.L.E. MU.L.E. was the result of Ozark Softscape's ■ first effort to design a game as a learn,

though Bill and Dan had played and designed games together all their lives. When Dan was 12

and Bill 10, they drew a complete naval war game on their basement floor. "Bill and I did the main design of M.U.L.E.,

though the initial brainstorming process involved


COMPUTE!'s

DISK

coMPUTEl's gazette DISK will premier with the May

" 984 issue of compute I's GAZETTE. When you subscribe to computed gazette disk, each month you will re

ceive a fully tested 5'/4-inch floppy disk which will run on eitheryour Commodore VIC-20 or 64 personal computer. Each issue of computers gazette disk will contain ail of the programs which appear in the corresponding issue of COMPUTED GAZETTE. You'll save hours of typing time and be able to enjoy all of the high quality software found each month in computed gazette.

Here are just a few of the quality programs which will appear in the May 1984 issue: ' Props — a fast-paced, nonviolent game for [he Commo

■ PRINT Sound — a utility for the VIC-20 which translates

dore 61. Animated with machine language, [he game

letters into musical notes. All you supply is a simple PRINT

puts you in control of a pigeon lost in a dangerous sky

statement.

filled with whirling propellers. Your goal is to make it across the sky to find your skittish mate, who moves unpredictably from coop to coop.

>SuperSpnte—an unsteady ffyer depends onyou to guide him down through a series of unfriendly krypranire bar riers. For the Commodore 64, SuperSpnte makes effective

> Sound Story— an exciting demonstration program that illustrates the sound capabilities of the VIC-20. A story with screen text comes to life with the sound o( crickets, lightning and thunder, a UFO in flight, and Morse code. and many more)

use of sprite animation and sound.

rdenng Information To Order: To reserve YOUR copy of the premier issue of the gazette disk and enter your subscription, return the attached post

paid card ot call computes gazeite TOLL FREE 800-3340868 (in North Carolina 919-275-9809). All oiders must be'

prepaid—send check or money order or charge to VISA. MasterCard, or American Express.

Individual Issues: Individual issues of' the gazette disk can be ordered For

S7.95 |in the US and Canada add SI per issue for shipping and handling. Outside the US and Canada add S3 per

issue). Individual issues can be ordered by calling TOLL

Subscription Rates: add S18 shipping and handling outside the US and '/f/ff/ff/fifi

One year (12 mo.) subscription

S69.95

[add $36 shipping and handling outside the US and

Canada]

FREE 800-334-0868 fin North Carolina call 919-275-9809). or by sending your prepaid order to: gazette disk, P.O. Box 5406, Greensboro, NC 27403.


everyone," says Bunten. "Bill doesn't program,

so I translate the ideas into program design. "Alan essentially takes care of the graphics and animation, how things are going to be pre sented. In M.U.L.E., we wanted something that

revolved around an auction, and some kind of pressure to get people to buy and sell to each other. We wanted some kind of creature that was going

to be the mule, and creatures to represent the players. Alan took those ideas and made them into graphics and attractive screen design. "Jim Rushing docs the most serious chunks of programming. He'll take one big piece, like all of

the auction dynamics in M.U.L.E. In his case, it's not so much design that's needed as very involved programming, a lot ot" effort, and flexibility."

Remember the first time you played Monopoly? It didn't take more than a few minutes to read the rules printed on the inside of the cover's box, but you probably had to keep referring to

them in certain situations until you had played the game enough times to remember.

M.U.L.E. presents (he same problem to many people. "It has a difficult learning curve," says

Bunten. "That'sa real dilemma. M.U.L.E. isaimed at a pretty critical audience.

"But we were a little surprised to find out that it's not as small a group as we were afraid it would be. It cuts across all kinds of boundaries

that we wouldn't have expected. One of those

that's quite pleasing is that quite a few women play M.U.L.E. "I don't know why that is. I don't know what

we did. I do know that we didn't include any overt violence, and we didn't make the game cutthroat to the point of hurting each other. There's competition, but it's within a framework of cooperation to ensure success. That's an ap pealing concept.

Appealing as M.U.L.E. maybe, its designers

feel that it could be mure so. They're working on a Gold Edition. "You always wish you had another month to add some more depth to a game," says Bunten. "But it's a problem of diminishing re turns. Each little piece of additional stuff adds a significant amount of time. The publisher has to take it away from you at some point. Electronic Arts calls it creeping elegance." 34

COMPUTE!'; Gazette

June 1984

In M.U.L.E., Ozark Softscape allows you to step forward in time, to aid in the colonization

of a planet. Their new game, Seven Cities Of Gold, takes you back to the sixteenth century, on an

expedition to the New World. "Ah ha!" you might think. "I know where

the incas are. I'll just go down there and take all the gold and head back to Eurupe."

It can't be done. "We want to convey the feeling that the Spaniards must have had, standing on the deck of a ship, not knowing anything about

what was to the west," says Bunten. "Most of us know too much about geography to be able to experience that feeling. So our game is built on the sense of wonder and awe at the size of the world that the conquistadors were discovering." To try to accomplish that ambitious goal, Rushing wrote a random world generator, which took about four months. "We tried to do some of

the more difficult state-of-the-art graphics stuff," says Bunten. "I guess it will be up to the market to decide if we succeeded. "A lot of strategy games are still keyboardoriented. They leave it up to you to create an am bience. I don't think you should expect people to

do that. I really think you must present them with as complete and visually appealing an environ ment as you can."

An important element oiSeven Cities is inter acting with the natives. That's done through a joystick for two reasons, says Bunten. "In the

first place, it's easy to be nonverbal with a joystick. That's the design reason. The other is that the natives and the Spanish didn't share a language and pretty much had to live off what they per

ceived the other to be attempting." Bunten fears that Seven Cities may be offensive to some people's sensitivities. "Many of the

conquistadors treated the natives horribly," he says. "Theirs was an arrogant and prideful approach to a society that had its own history and roots.

"But to be historically accurate required that we had to include violence. 1 don't like the idea

of players hurting other things, but there's no alternative or you're forcing your own moral deci sions on an audience that ought to have the choice themselves.


Prentice-Hall

speaks a language other

publishers have forgotten. English.

PROGRAMMING YOUR COMMODORE 64 IN

GRAPHICS FOR THE COMMODORE fiJ COM-

MUSIC AND SOUND FOR THE COMMODORE 64

inlro ll"ial mclufTes. al eacti level new vocabulary lively sample progfams. and exercises "answers T«j hFtono/aphics 5*2 35

programs unleashes amazing graphics 51295

Ihat maich ihe sounds of various Hand instrument

USIMG THE COMMODORE 64 IN THE HOME by

EASY INTERFACING PROJECTS FOR THE VlC-20

ing, loan paymenls. 'amily nutnlion. oducadon.

wood OOiensof<nler1flCrnrjpro|ecls wriltpnmOASiC and specifically designed ' • maiimi^o tin) VIC-20s powur S12 9S

BASIC &v Mano J

Eisenbacner An easy-lodges!

SPRITE GRAPHICS FOR THE COMMODORE 64

by Sally Greenwood Lftrsen Shows how To produce

high resolution, color, animated graphics Twenty-five read-lo-run sample programs S15 95

PUTER by Je" Knapo This collection ol easyto-master programming techniQues and 8ASIC

Han* LiQ'ach and William BenrenOI Home of me fuluro'Twenlyongmfll prpgrarrtS for cnect book keep gnmos andmuci mo'C Book:ask available S10 95

by Bill L BohrGndt Hew to use (He Commodorfl 64s Sound Interlace Device and how To write programs $14.96

by James Downey Don RirKlsIwra.andW.iiiflm Isher

PRENTICE-HALL/THE LEADER IN COMPUTER PUBLISHING For more information about our computer book and software, write 10 us at (he address beloM Dealer inquiries welcome. Prentice-Hall, General Publishing Division, Enulwood Cliffy, N.J. 07632

■We guaianioe lhai all our guides are easy 10 icad arW simpis id apply without iho a«l ol a 'olorenco library a compuiet saiosocrson. or a niece wno juit u'aOunlinJ Irom M.I T


Still the Best! Rated THE BEST educational program lor the VIC 20TM by Creative Computing magazine.

(-■ T XOM

Commodore 64 version: "This is Ihe best typing tutor we have seen yet; it can gel your children touch typing in short

i-OOO

5Z

order and bring an old hand up to speed. Includes excellent

training modules and an arcade type mode to liven

things up and put some pressure on; ****+" INFO-64 Our customers continue to tell us of their success....

I'.. delighted with my son's progress ... he is the only

one in his second grade class who touch types at the computer." 158 year old man mites)... "great, excellent. To me a source of great learning ... I |ust can't express how much I have enjoyed It!" In dally use by schools across the USA. "Computer aided Instructional its best" Commander magazine

TYPING TUTOR + WORD INVADERS The proven way to learn touch typing.

COMMODORE 64 Tape $21.95

HOMEY

UNI f S.

304

0

^s^^

45 09 2

0

SUV

<A

0

T

KON TftA

o»*

The laws of supply and demand affect whether players buy or sell and at what price.

COMMODORE 64 Disk $24.95 VIC20{unexpanded) Tape$21.95

"Bill and I were real Indian sympathizers

when we were growing up. We always sided with

IFR (FLIGHT SIMULATOR) DISK OR TAPE

FOR THE COMMODORE 64 $29.95

the Indians instead of the cowboys. It just seems like such a neat, romantic culture to us, so in tune with the earth. Then to write a game where at

feast part of the game is wiping out Indians—that's problematic." Bun ten believes that players will face the same moral dilemma that they did designing the game. "The player will know that they have the power to beat these people, so why not?," he says. "Actually, conquest is efficient, inexpensive,

CARTRIDGE

FOR THE VIC 20 $39.95 JOYSTICK REQUIRED

Put yourself in the pilot's seat! A very challenging realistic

simulation of instrument flying in a light plane. TaKe off,

navigateover difficult terrain, and land at one of the 4 airports. Artificial horizon, ILS, and other working instruments on

screen. Full aircraft features. Realistic aircraft performancestalls/spins, etc. Transport yourself to a real-time adventure

in the sky. Flight tested by professional pilots and judged "terrific"! Rated "Excellent" by Midnite Software Gazette.

Shipping and handling S1.00 per 'jj

order. CA

residents add 6% tax. ™

and so tantalizing that it's tough to avoid it. But the optimal solution is to trade with the natives." If M.U.L.E.'s mules and other odd-looking characters are endearing to some, they're gems in the rough to Dan Bunten. "It's a little fatuous to say that we're really hitting home with the things we're trying to deliver," he says. "How much

impact can a klutzy cartoon character have on you?

"We're in such primitive stages of develop ment. We have a message that we may be at tempting to deliver to the audience, but we don't yet have the mechanics of delivering it. We don't know the grammar yet.

SOFTM//4RE

P.O. Box 6277, San Rafael, CA 94903 (415) 499-0850 Programmers: Wrlle Ip our New Program Manager concerning

eny eiceptlonal VIC SOTM or Commodore 84TM gnma or other program you have developed.

"What we're trying to accomplish in any par ticular game is to create such an attractive vision

or fantasy that people just get sucked into it. One of the neatest accomplishments is when people start taking metaphors from your games and ap plying them to situations in their own lives."(gf


&<-I* -

1

A TUTORIAL A Learning Experience on your Commodore 64

V

Uiy.CT 06720 (203)621-9361

CamiHlwi- r. j rvgnteiiil ii.imiu'h


IE TELECOMMUNICATIONS ROBERT SIMS, ASSISTANT EDITOR

Navigating The Networks Of all the information utilities and data bases avail

CompuServe sells Vidtex terminal software tail

able to home computerists, four are best known

ored for the special capabilities of most com

to Commodore computer owners: Dow Jones

puters.

News/Retrieval, Delphi, CompuServe Information

Service, and the Commodore Information Net work (accessed through CompuServe).

Commodore owners are usually introduced

to these companies when they buy a modem and find that the package contains offers of free mem

berships or reduced membership fees for these networks.

With a modem and these bargain member

ships, a user has access to an incredible array of information and services. Also, you only pay for what you get. There are no minimum use require ments, so if you need to be online for only 30 minutes a month, that's all you pay for. (There in

a $3 monthly charge if you choose direct billing instead of using a credit card.)

From Stocks To Poetry Dow Jones is oriented almost exclusively to busi ness and finance. With services such as The Wall Street Journal on-line, and current stock quotes, il

Special Interest Groups CompuServe members can access Commodore's Information Network without extra charge. Oper ated by Commodore Business Machines, Inc., the network contains Special Interest Groups (SIGs) for the VIC-21), 64, PET, and Commodore's busi ness computers. There's also a separate SIG for programmers.

Each SIG comprises a bulletin board, confer ence lines, and several data base access areas in which you can upload and download public do main programs. Commodore operates an on-line Computer Club and user group which is separate

from the other SIG services. There is a $10 mem bership fee, for which you get a newsletter, a quar terly catalog for ordering computer supplies and software at a discount, and a club access area where you can upload and download special club programs.

is the leader in business services.

Accessing The Networks

Delphi offers the fewest services because it's new (about a year old). But its newness has ad

All the networks provide their subscribers with documentation on how to log on (connect to the

vantages. It's not crowded with established ser

network), with a toll-free 800 telephone number

vices, so there are plenty of opportunities for en trepreneurs to enter the home telecommunications

market under its network umbrella. And, since newer services tend to be more experimental and

innovative, the more adventurous computer users are likely to find something of" interest and value

on Delphi. For example, Delphi has a feature called Writer's Corner, where authors can publish their

works and receive royalties when other users read them. Also, Delphi maintains a much more

informal atmosphere, both in its menus and home computing services. CompuServe offers the advantage of size, with the widest available range of business and home services. In addition, it has a whole library of documentation at reasonable prices. And 38

COMPUTEIS Gazelle

Juno 1984

to call if users have problems making the connec tion. Access to Dow Jones and Delphi are provided

through third-party value-added carriers. These

companies maintain phone numbers in most met ropolitan areas. Users call these local numbers

and type in the special code sequence which the carrier uses to connect the caller to the network. Dow Jones is accessed through the carriers

Telenet, Tymnet, or Datapac (for Canadian sub scribers). Delphi uses only Tymnet. To access CompuServe (and the Commodore network), you can use CompuServe's own telephone num bers, as well as Telenet, Tymnet, or Datapac.

Most networks include the carrier costs in their regular charges to users. However, if there is a CompuServe number available and you choose


Home Organizer series -w,, ---»' .

_ ^softwar yoiir Commotion comfortable at home Now your home computer can help you cook, keep your accounts, find an address or keep track of your record and book libraries—with first-class software specially tailored for the home environment. The Home Organizer'" series includes a wide range of separate and individual programs for different activities like stamp collecting, personal banking, or home photo and movie collections. Each one is pre-programmed with a "page" format planned out by experts to make it easy for you to store and retrieve the information you'll want for your special activity. You don't have to program anything yourself. Just load the disk and start feeding in your data.

If you're used to run-of-the-mill home computer software, the speed and simplicity of the Home Organizer™ series will surprise you. Each program is written entirely in "machine language", the most basic computer code. So they search, sort and analyze your data with amazing speed.

The Home Organizer™ is fast enough to sort through your household belongings in

seconds, yet so simple the children can use it to look up a phone number. Choose any or all program modules that fit your needs. They make ideal gifts, too!

.*■*"

■■:■*—

"■'■

Mi.-I.ro*

fBATTERIES ^ INCLUDED "Excellence In Software For ii lull color brochure willc (o:

BatieriesIncluded, 186 Queen Street Wesl, Toronto. Canada M5V1Z1 (416) 596-1405/3303 Harbor Blvd., Costa Mesa. CA. 92626 (714) 979-0920 COMMODORE W IS AHEGISTERED TRADE MARK OF COMMODORE BUSINESS MACHINES


||l I miii.h.h.i .■H.Ni...i.

iuiiii.iii.>i~i-i>»iii u muti l

l!t|>

minimi nittljjnu>! •jj

maiMMIIIIM

jfeter Composer;

offers you ihe Joy

and fulfillment of composing your ounTclasslcal or rock songs, or even imitating your favorite 'Top 40" music. Real "Get-Down-Get-Funky"

voices)

music at the tip of your fingers. With Master Composer™ you'll have full

control of the Commodore 64V sound synthesizer and be able to produce all types of music from simple melodies to Intricate compositions.

CAUTION: Although Master Composer™ from ACCESS may be the easiest way to compose yourself, continued use has proven it's difficult to slay that way!

• Voices are developed In (he "Audition" mode. (Your song plays con tinuously while adjustments are made to the different computer ■ Help Screens • Tuning Function

• Standard Metronome Speed Control • Hard-copy of your song.

• Full library of prese! voices for the most common musical InInstruments.

• Full sung library

• Comprehensive user manual with over 60 pages of Instructions,

Features: • Music files (songs) are easily added to a Basic or Machine Language

examples and information.

program.

SOFTWARE INC. 925 East 900 South SLC, Utah 84105 (801) 532-1134

"Commodore 64" Is a [tademark of Commodore Electronics Ltd.


TheWarGameToEndAllWarGarr.es!

Take command of the hottest new strategic war game ever, BEACH HEAD™ from ACCESS. The batlle acllon Is fliled wilh spectacular 3D realism and sound effects that would even make Hollywood envious! Six separale sequences take you Inro the heart of battle. Meet each one with calculaled skill and wilh a liltle luck, you just mlghl survive long enough (o knock out the enemy fortress. * Nominated (or BEST GRAPHICS AND SOUND award "Billboard Magazine. 1984

Spritem aster Is the fines) utility available (or multicolor sprite animation and game programming. It will have you making full color animated objects In Just minutes. It can also be used as a teaching tool for developing artistry and creativity.

MASTER COMPOSER™ Reai music

NEUTRAL ZONE™ Neutral Zone takes

Commodore 64™

ALPHA IV. a long range early warning station whose mission Is to detect alien intruders from other galaxies.

that you compose. Imitate youi favorite 'Top 40" or compose your own, taking full advantage of the sound synthesizer of (he

you to the outer edges of the galaxy, to

SOFTWARE INC. 925 East 900 Soulh SLC, Utah 84105 (801) 532-1134

■'Commodore 64" is a trademark of Commodore Electronics Ltd.


to use Telenet or Tymnet, you may be assessed a

surcharge for using the alternate carrier. Each of these numbers is a local call, even if you're in California calling a computer complex in Massachusetts. (If you live outside a metro area and must call long distance to a carrier number in a nearby city, you are charged the long-distance rate to call that number.)

Facing The First Menu All four networks are menu-driven and allow the user to choose the service he wants. Delphi, CompuServe, and Commodore also offer the op tion of verbose (complete) or brief menus. You can choose a menu with or without explanation of menu items and commands, or you can simply receive a prompt. Experienced users save lime by switching to the abbreviated menus or prompts.

Dow Jones has a different procedure from

the others in that it doesn't automatically send a menu when you log on. After your password is verified, you are prompted to ENTER QUERY. At this point you can go directly to any service, ask for an introductory menu, or go to the main menu.

A new user would best benefit by typing //INTRO for the introductory menu. A welcome screen appears, then a menu like this: PRESS

FOR

1

Closing Dow Jones Averages retained

2

Weekly economic update revised on Fridays

3

News/Re trieval operating hours expanded

4

Customer Service Information

Delphi's Guided Tour Delphi provides a free manual to each member, and also offers an on-line guided tour to give the subscriber necessary information. Printed docu mentation consists only of general information

and a quick-reference card of network commands. During the guided tour, instructions are given on how to change your password, how to use several control characters to move around Delphi, how to set screen length and width, and how to

choose either the brief or verbose prompts. Then the main menu is presented. Main Menu: liulk'lin Boards Conference

Library

Delphi-Oracle

News

Exit

Online M.irkel-

Financial-Services Games

Profile Scheduler

Mail

Guided Tour Help

Travel Writers-Corner

Infomania

MAIN* Whal do you want to do?

To go to any Delphi service, type the name from the menu. The service you select will then offer other menus from which you choose particular sections of the service.

CompuServe Uses Numbers CompuServe's menu system is more complex, with numbered menu items and system page numbers. After you log on, the main menu

Type 4 to get the basic information needed to use the network, change your password, and perform other recordkeeping chores. When that's com

appears:

pleted, type //MENU to get the main menu:

1 Home Services 2 Business iind Financial

CompuServe

Page CIS-1

CompuServe Information Service

TYPE

FOR

3 Personal Computing

//CQ

Current Quotes

â– 1 Services for Professionals

I/O] NEWS

Doiv|onesNeivs

5 User Information

//HQ

1 lisliiric.il Quotes

6 Index

//UPDATE

Economic Update

Enter your selection number,

//WSJ

Wall Street Journal Highlights on line

or I i for more information.

//DSCLO

Disclosure II

//EARN

Corporate Earnings Estimator

//FTS

FreeTexl 5carchofDowJonesNews FOR MOKE CI1OICES PRESS RETURN, FOR 1IELP,

TYPE DATA IJASE SYMROI. AMD HELP. (EXAMPLE: //CQHF.I.P)

This is only the first page of the main menu; to see the rest, simply press RETURN. To select a data base, type two slashes and (he data base code.

Dow Jones provides a comprehensive manual (without extra charge) which contains all the in

formation and sample menus required to use the network. â– 12

COMPUTEIS Gaielle

June \9BA

!

The exclamation mark at the bottom of the menu is a special prompt, called a command prompt. A

GO command typed at a command prompt sends you directly to any area of the network, bypassing the usual path through several menus.

The Information Menu New users should choose item 5, User Informa tion. This menu appears: CompuServe

Page CIS-4

USER INFORMATION

1 What's New 2 Command Summary & Usage Tips 3 Feedback lo CompuServe


TTieENDo/DINKETYDINK-DINK. .nnouncmg

the first computer music program that actually sounds like music LET'S FACE IT. Up till now, music programs for your home computer

have nil sounded, well, pretty lame.

There were the ones that resembled little electronic music boxes, remem

ber? And then there were those that

sounded like so many burps. Enter Music Construction Set. It's the first music program that really

makes use of the power of that ma chine you've got. If you're a serious

student, this means you'll be able to

work with an intricacy and range of sound quality you've never heard be fore on a computer. And if you know nothing about music, you'll find some thing even more important. Namely,

to the little piano in the lower right

the scissors to cut out whole measures,

whole thing played back.

in somewhere else. Got a printer.'

and listen, because you'll hear the

then use the glue pot to paste them

Move those little scales in the mid dle up and down to vary the music's

Great. Print the score out and show it off to your friends.

speed, sound quality, and volume. Use

But what if you're not up to writing

your own stuff yet? No problem.

There are twelve pieces of musical-

ready in here, from rock 'n roll to

baroque.They re fun to listen to. and even more fun to change. (Apologies

that this thing is simple enough to

to Mozart,)

be a lot of fun. Take a good look at this screen

The point is, the possibilities are endless. But if you're still skeptical, visit your nearest Electronic Arts dealer and d» the one thing guaranteed to send you home with a Music Con

because it, you, and a joystick are the

whole story here. That's you at the right end of the staff of notes — the little hand. Move the joystick, and you move the hand.

struction Set in tow.

Boot one up. Point to the piano.

Use it to carry notes up to the staff.

And listen.

Lay in rests.signatures,clefs, then point

ELECTRONIC ARTS'" MUSIC CONSTRUCTION' SET n raw nvjilabtfotApfto II, II4-, lit. mid Ct>ram(iiliireli4 computers The Apple vcmtin.Mli a Mmliiiwbiianl~r!avs chords of up null noTftp.ith Hi up » threerwlc* path AjTlr lin rctBWtclmdanukrfApple&tnpUM! ConVOotSoni ft' rendered trademark nt G>rnmi*]*jtr Buiuieii Mj^hinei, Inc Fbl mini: HiiortijiiLin CHrpa Dmr.Sm Mitt... CA H*M or «iU HI)) J7I-7171

e Arii. "nip u*ar 2753


4 Order Products, Guides, etc.

5 Change Terminal Settings 6 Change Your Password

7 Billing: Your Charges, Rates Options, Making Changes 8 Logon Instructions & Numbers 9 Electronic Bounce li.ick

Last menu page, Key digit orM for previous menu. i

If you're a new subscriber, you'll go to this menu often to refresh your memory about commands

and prompts, to check on how much money you're spending, and to ask CompuServe questions

about confusing aspects of network services.

Select item 5, Change Terminal Settings, to have CompuServe configure its output for your computer. For example, choose 22, 40, or 80 char

acters per screen line, or have the text displayed in all capitals or in upper- and lowercase.

Changing Your Password Select item f> to change your password. You should

answered on the Bulletin Board. Commodore provides on-line instructions

and a simple line editor for users who want to leave messages.

Control Characters There are several control characters which are helpful for typing in messages and other text. Most are common to all telecommunications; a

few are used differently by different systems. Control characters usually show on the screen as an up-arrow and a character. For example, CTRLV, represented by ! V, is sent by holding down the CTRL key and pressing V. The control charac ters cause the network software to interrupt what it's doing and take some other action. Some of the most frequently used: t A

Tells the host computer to etop transmitting al the end of the current line,

! O Abortswhateverisbeingtransmlttedandjumpstothe next prompt. Used on Delphi, instead of CTRL-P.

do this at least once a week. A password is like a credit card number. If other users find out what it is, they can use your account and you'll get the bill. So never type your password while on-line,

! Q Tells the host computer to resume transmitting,

except when logging on or changing it here.

I R

Displays the line you arc-currently typing (Delphi).

Another important selection on this menu is item 4, used for ordering CompuServe's manuals.

1 S

Tells the liii>i computer to stop transmitting immediately.

I U

Deletes the line you are currently typing.

I V

Displays the current line you're typing (CompuServe).

The Commodore Network After you've finished with these recordkeeping

chores, you may want to visit the Commodore net work. The simplest way to get there is from the

1 P

Aborts whatever is being transmitted andjumps to the next prompt. You can use this lo jump past tlie intro

ductory bulletins on CompuServe.

The Conference Line The Conference service (CO) is very popular, but

it can be confusing until you learn the quirks and

main menu. Lei's suppose you have finished chang ing your password from the User Information menu (Page C1S-4). At the ! prompt, type M to get back to

commands. Although formal conferences are

the main menu (Page CIS-1). When you see the main menu ! prompt, select item 3, Personal Com

lar to a CB radio band.

puting, then press RETURN.

You will receive the Personal Computing SIGs menu (Page PCS-50). At the prompt, type 15, the

selection number for Commodore. You will receive

the Commodore main menu, Page PCS-160. Use this menu to access any of the Commodore SIGs. Another, more direct, route to the Commodore network is to type GO PCS-160 at any ! prompt. This goes directly to the main Commodore menu

from anywhere in CompuServe. To go directly to the 64 SIG, enter GO PCS-156, and for the VIC SIG,

GO PCS-155.

The Bulletin Board The most popular services for beginners on the SIGs are the Bulletin Board and the Conference line. On the Bulletin Board are several hundred messages on a wide variety of subjects. Areas are set aside for general messages, messages from and to software and hardware vendors, and for

Hotline questions to Commodore, which are then

44

COMPUWs Gazette

Junel9B4

held on CO, the name is misleading because most subscribers use CO as a kind of chat service, simi When you select CO, you see a series of short

bulletins on what's happening on CO in the near

future. CO also offers some pointers on frequently

used commands, and outlines the etiquette to be

used on-line. It's good practice to download these

bulletins and command descriptions, and keep them handy while you're on-line. Next month we'll discuss downloading and uploading in detail. For now, let's look at two simple ways to download this information. 11

your terminal software has a feature that dumps

the screen contents to the printer, you can wait until your screen is nearly full, then press CTRL-A. Next, press the proper key to print the screen.

When the transfer is completed, press CTRL-Q to resume transmission, press CTRL-A again when

the screen is nearly full, dump it to the printer, and continue this process until all the information is printed.

The second method is a simple matter of open ing the buffer in your terminal software before accessing the CO. (Consult your terminal software


"The Ilium

"Popular Compuling »»yj

in i<iihi ins

even fag* trail (ac lions fur tax Unit1. And lhat's 3 hlg time-saver

The Home Accountant

does just about everything

because 1 can -r.ni.Ur Information

you'd .iik of a personal

to The Tax Advantage1" program

and easili figure out »hat I owe."

finance package.""

"My company has checking atcounl>,

6 business credit curds and i mone) market You mean you can list

The Home Accountant

istlir#lbesi-stllinn

for business,

home finance package in the world."

toof!"

funds to keep track of.

Tlie Hone Accountant

The Home '. -..

i ii.ini

makes it easy."

Wouldn't *anl1o run mj

. I'm

ulihoui it." "Softalk Magazine sajs It's the most

"II automatically print*

thorough and

my checks. And gl>e«

powerful program ii! i:

them ii >ery

\::±-

professional look/'

"The Home Accountant

Is great far realistic budgeting."

"I'm so glad you bronchi

II home. 1 never Ihouglil ill." in1.Him: ■ i !«n!i'.i I and managing money

could he so easy."

"You can create trend analysis graphs for each hudgel category, so you can make vi-su-iI comparisons of where you stand financially."

"It has up lo 200 budget tt

"And you can do It in

so 1 have all the flexibility I need

full-scale color graphics."

"The Home Ate on nun I will even print a

personal financial state mem and net worth statement. Keeps me right on top of

K. Ndvcmhcr,

nt) finances."

\ Apple Softalk, April, I9U

Everyone's talking about The Home Accountant: is it because it's the #l bestselllns

home finance package in the world? Or

because it's extremely thorough and

powerful and easy to use? Or Because it's great for home and business use? Or because it has up 10 200 budget categories and handles up to 5 checking accounts?

Yes. But there are a loi more reasons why people buy The I liinie Accountant

And why you will, too. Because The Home Accountant can

literally save you hours of time. And

The Home Accountant will even prim nei worth and financial state ments. Not to mention being a lifesaver

at tax time. Especially when you're able tO transfer information onto Continen

Instruments Professional. Zenith 7.-100/110. Compaq and Kayi'ro compu

ters. Actual budget capacities will vary with each computer.

tal's The Tax Advantage'" program and figure out what you owe. Quickly.

For your free 64 page booklet, "Tips For Buying Software," please write

most effective software program there is for managing your money. And man aging it easily. Stop by your Continental Software

213/417-8470.

In short, The Home Accountant is the

Continental Software, Dept. GAZ, 11223 South Hindry Avenue, Los Angeles. CA 90045,

dealer today and pick up The 1 lome

take the headache out of handling your finances, Whether it's selling up a budget,

Accountant. You'll see what everyone's

your checkbooks or handling your

for Apple Il/lle, IBM PC/XT, Atari

Continental

Models Ill/'i, Commodore S4, Texas

a DMiion nfAtrayi, Inc

cataloging your expenses, balancing

credit cards and money market funds,

l-'or personal or business use.

talking about.

The Home Accountant is available

400/800/1200X1., Osbornef TRS-80

Software


documentation for the proper procedure.) Every thing that appears on screen will also be stored in the buffer. When all the information has been transmitted, close Ihe buffer. Depending on the

capability of your software, save the information to disk while on-line or after logging off. Bui before trying either of these methods,

read your terminal software manual carefully, Any good program will include a feature that automat ically sends the control characters, captures in coming data in a buffer, and stores it to disk.

Learning To Talk After receiving this introductory CO information, you will find yourself on Conference Channel 30.

If anyone else is on-line, messages like this will scroll up your screen:

(30,Blackfoot) T see who! you mean. But cm you use

He(30,Blackfoi!l)llo,S.im R.my = >T

â–

ii.iuh.ii me tsyou mean.Clyde

All this gibberish is only on youv screen; other users can't see what you're typing until you hit RETURN.

There is no real remedy for this jumble. The best solution is lo avoid looking at the screen while you're typing. If you get lost and can't remember what you typed last, type CTRL-V to redisplay your line, free of the gibberish. If you get

hopelessly confused, type CTRL-U to erase the incomplete line. When you finish typing your

comment (less than Hi) characters), "press RETURN

and your message will be transmitted to the other users.

It doesn't take long to gel the hang of this unorthodox communication method, and the reward of instant communication with other users

the cassette recorder...

is well worth the initial confusion.

(30,Hl.ickioot) anil the disk drive at the same time? ga (30,SamR.) Yes, no problem, ga

Conference Commands

(30,Blackfoot) Thanks. I'll try it. ga

In this conversation between two users, the

information in parentheses is the conference chan nel number and the user's name. Users have a choice of using (he name listed in their Compu Serve account or of using a handle (pseudonym), as most CB radio operators do. This option is also

useful when two or more people share an account on the network. Each person can use his or her own name while on-line. (To change your handle,

Another tricky area for beginners is the use of commands in the CO section. There are three modes of communication on Commodore's CO.

The default mode is open communication; every one can see everyone else's comments. The second mode is /TALK, for private conversations between two users. The third mode is /SCRamble, in which severa] users can have a private conversation.

To use these commands while in CO, type

type /HAN on a new line. At the prompt, type in

them on a line alone, then press RETURN. If you put any character, even a space, in front of the

your chosen name and hit RETURN.)

slash, it won't work. (It will be sent as a comment

On-Line Etiquette Blackfoot has typed ellipses (three periods) in her first line. This means she has more to say. At the end of her second line, she has typed GA (Co Ahead). These codes are simple but essential

for other users to know whether it's OK to send their comments without interrupting the current "speaker." When several users are on CO, it's common to see several conversations carried on at the same time. When that happens, users tend to start a

remark with the name of the person they're talking to, like this: (30,Blackfoot) Sam R. = > I see what you mean. Bu( can you use a cassette...

Talking Back The most confusing aspect of CO for beginners is in trying to type in their comments while other com

ments are scrolling up the screen. Whatever you type will appear mixed up with the incoming com ments. For example, if you try to type: Hello, my nami? is Clyde

your screen might look like this: 46

COMPUTEfs Gazette

iuncl984

rather than a command.) If you find this con

fusing, just type a CTRL-U before typing the com mand. This will delete anything you may have typed by mistake. Then type the command and RETURN, and you should get the desired result.

Conferencing modes on Delphi are different from CompuServe. The default mode is private. To join a conversation you must /PAGE one of the members of a group and get the group scramble code. Then you must /JOIN the group. There is no open conferencing on Delphi, and the com mands are different, but the results are the same.

A Few Quirks Besides the special conditions on individual ser vices, the networks have a few general quirks which can be confusing if you're not expecting them. The strangest is a tendency for the charac ters on your screen to suddenly stop scrolling for no apparent reason, then start up again. This

happens because thousands of people are using the system at once, and sometimes it gets a second or two behind. This occasionally happens on all the networks, but is most noticeable during peak evening hours on CompuServe. CompuServe has become so popular that it's


SEE THE LIGHT! Quality Software that Outshines the Rest Programs for the Commodore 64

SoftLoc

dMOS"

The Program Security System

Database Management Operating System

The BEST data base management tool for the collection, arrangement and display of alphanumeric data. A unique pattern matching and searching capabilities make dMOS'" the easiest DB system available

Set up program security in minutes. Lock up your personal, financial or business records 3 types of protection:

on the market.

• Re-encodes program.

Features:

• Modifies diskette directory.

• Map search technique to achieve a "logical AND", • • • •

while searching between fields. Display records-found, or NOT found by a search. Rearrange fields. Suppress fields and field titles. Insert short (10 character) text.

• Selectively print records.

• Selectable and reassignable 7 digit access code.

$399S

announcing

Missing Key

Phone Boss

A reset System Restores your BASIC Program.

Personal Phone Directory Program

Designed to store and organize

After programming tor hours you press HUN for a final check of your work -

your personal phone listings.

ie computer locks up. You press RUN, STOP. . . nothing — you press RESTORE. . . nolhing — you look (or the missing key but it isn't there. You

have to turn off your computer and Iosb hours of work!! Now Add the Missing Key"1:

• Press the "Missing Key1"" and the computer

resets itself from any lockup, and your BASIC program is restored.

• Load and run (he program included.

• Takes nothing away from your computer, neither memory nor a plug-in port.

• Attaches to your C64 keyboard or any other convenient location.

• Will not void your CBM warranty.

$2995

The user has complete control of 15 category titles and entries.

Software by SoftPeople m Programs for the Commodore 64 m Connecting People with Great Ideas.

SoftPeople Inc. 2042 Marshall Ave.

St. Paul, MN 55104

(612)644-1551

Dealer Inquiries Invited 1-800-447-3273

Special P.O.P Packages & Prices Available


in a constant race with its users, trying to expand

its capacity to keep up with the growing numbers who log on every evening. When the network falls behind, you may experience a delay in moving from one service to another. Delays of up to five minutes are not

scrolling up the screen, the option is always there to simply disconnect the modem from the phone

line.

If a user disconnects from the network with

out properly logging off (either by mistake or if

the connection is broken by a telephone line mal function), CompuServe's software wili wail for

uncommon.

up to seven minutes, then log the user off. During

No Dead Ends

very busy periods, this may take up to 20 minutes.

Another problem for new users is the sense of wandering in a labyrinth. Many beginners worry

needlessly about get ting lost in the maze of menus, of wondering into a service th.it charges extra for access and running up a huge bill. Or, they worry about what happens if they accidentally hang up without properly logging off. First, it's difficult, if not impossible, to get into an extra-charge area without knowing it. Many of the services require users to sign up sepa

The user is charged for this time. If you have question* or ideas about subjects you'd like to see covered in thin column, write to: Home Tele communications, COMPUTKI's GAZETTE, P.O. Box

5406, Greensboro, NC 27403. Or you can send me electronic mail. My CompuServe ID is 75005,1553. For Delphi, it's BOZART. Dow-joncs News/Retrieval P.O. Box 300

Princeton, Nj 08540

rately from their network membership, and un

Delphi (General Videotex Corp.)

authorized access is not possible. There are ser vices, such as the Academic American Encyclo pedia (AAE), which can be accessed without prior

3 Blacksicme Street

arrangement. However, the AAE menu includes

5000 Arlington Centre Boulevard

a notice that the service involves a $2 per hour

P.O. Box 20212

surcharge.

Columbus, Oil 43220

There are no dead ends on the networks.

Cambridge, MA 02739

CampuSerx'e Information Service

Commodore Computer Club

Even if the network software crashes (a very rare occurrence), or if a user gets nothing but garbage

P.O. Box 69

Wood Dale, 11.60191

®

Commodore® owners: THE FUTURE IS HERE Will your printer interlace pass the Commotions' printer lost? Wo don1! think so!.' Ours will.

The CONNECTION™ is Wuly the ultimate parallel interface lot the VIC20'"/COMMODORE 64TFJ. This fully intelligent interface plugs into the disk (senal) socket |ust like the standard printer ana you can easily assign it any device

number. It will provide virtually TOTAL EMULATION ol Ihe Commodore' printer inducting all standard graph.c characters {normal or inverse), column tabbing, dot labbtng, graphic repea:, dot addressable graphics, cursor

up/down mode, and more, li responds to all ol the standard commands (PHINT ■#. OPEN. CLOSE, etc) to

Dealer And

Distributor inquiries Invited

insure software designed for the Commodore* printer will operate wild the CONNECTION1". Use it in the

TOTAL TEXT MODE, or purchase our Universal' CONNECTION thai works wrth virtually EVERY DAISY WHEEL OH MATRIX PRINTER witn standard Centronics Parallel conliguration To take full advantage ol L your printer's special features, please specify the pnnlor type. Available for STAR MICRONICS, BXBu. EPSON, OKI, NEC, PflOWRITER BANANA, SEIKOSHA. RITEMAN, GEMINI10X and olhars. ONLY II 19.00 Complete. (Additional ROMs are available il you should ever change punters) THE CONNECTION PROVIDES: 1) A 2K Printer buffer. 2) Full LED Status Indicators. 3) Complete Built in sell test. 4) Printer reset switch.

5) Adds Skip over pert, margin set, programmable line length, program list format commands to your printer. 6) No need lor extra cost, special tape loader for graphics. 7) All features easily accessed from software.

8) ASCII conversion, TOTAL TEXT, EMULATE, and TRANSPARENT Modes. ■Note: Only the Universal CONNECTION will not provide 100% Commodore graphics.

micro iimrE .

■**—-■■-??-ii- :. :

."

1342B RT 23

BUTLER, NJ 07405 201-838-9027


Get more out of your Commodore with

COMPUTED For Owners And Users Of Commodore VIC-20 And 64" Personal Computers

More fun

More programs Programs lo help you balance your

checkbook, store your addresses, keep tax records, monage your personal business. You can create your own pro

grams and games, improve your wordprocessing, spreadsheets and data

base management, load and run faster

with 64 Seorcher, VIC/64 Program Lifesaver, Guickfmd, Word Hunt, Disk Menu,

VIC Timepiece, Automatic Proofreader and more.

1

O

II' i

|

r

• I

1

.■

.

It

i -■

■ I I !■ I

.

I. H. ■ I II.-

I

-I I I 1 ■ I- -I

'.'

, .

, J r"

: ■

i

■"'

'h"

> .

ii

■ ""'

-'■

More savings You can save up lo 40% off the news stand price of COMPUTEI's Gazetteby subscribing now. All you do is mail the coupon below or the postpaid card bound into ihis issue. But don'l delay!

Martian Prisoner, The Viper, Skydiver, Snake Escape, Demon Star, Cyclon Zap and Oil Tycoon are just a few ol the ready-lo-run games you'll find exclusive ly in COMPUTEI's Gazelle each month. Just type in the programs and watch

Subscribe now to start receiving every

issue of COMPUTE!* Gazelle.

SAVEV£40%

your screen explode with colorful new computer game excitement.

ON COMPUTE'S Yes! Start my subscription to

COMPUTEI's Gazette at big savings off the newsstand price:

More challenge

D 1 year $20—Save $10

□ 2 years $36—Save $24

Ready lo lackle more advanced projects?

In COMPLTf/sGaze/teyou'll learn How

to Use Tape and Disk Files. How to Pro

4) ^p 4> 4) 4)

gram the Function Keys. Writing Trans

portable Basic. How to Make Custom Graphics Characters. New Ways to Enliven Programs wiih Sound. One Touch Commands for the 64. How lo use

Machine Language. Speeding up the V|C 20—and much more! Children will learn and develop

new skills with Stales & Capitals Tutor, Wordmatch, Munchmath, Wordspell, Connect the Dots, Aardvark Attack and Alfabug. Computing for Kids, a regular monthly feature, will uncover new ways to involve your children in computing.

More buying guidance You'll profit from comprehensive reviews of everything from dota-quality cassette

tapes to software to graphics plotters and modems. Virtually anylhing that's compat

ible with your Commodore is reported on in COMPUTE! s Gazelle. With this kind of expert help, every computer pur chase you make can be the right one!

□ 3 years $54—Save $36 Name

Address. Cily Slate.

.Zip.

D Payment enclosed □ Bill me Charge my D Viso D MasterCard □ Am. Ex. Account No.

COArPUTE's

Exp. Date CALL TOLL FREE B00-334-0868

RO. Box 961, Farmingdale, N.Y. 11737


Mark Doyle This two-player game for the Commodore 64 or VIC-20 with memory expansion (any

amount) makes tic-tac-toe a real challenge. Joysticks are required. Sound, color, and a three-dimensional playing

board add new exdlement to this old familiar game. After the title screen is displayed, both players enter their names and how many games they want to play. A multicolored three-dimensional tic-tac-toe board then appears on the screen. The player with the joystick in port 1 (64 ver sion) goes first. Since the VIC has only one joystick

port, players must take turns with the joystick in the VIC version.

To move the cursor, at the top left corner of the board, push the joystick left or right. When you get to the desired location, push the fire button and your marker will appear under the cursor. If

Anna is about to win this round (64 version).

there is already a marker in the space, a low noise

will be heard and you will have to go elsewhere.

Winning Combinations To win, you must get three of your markers in a straight line before your opponent does. They

can be on one of the boards, or a combination of the three boards going diagonally or up and down. When you get a tic-tac-toe, your three pieces

flash different colors and the winning sound is heard. The board is then cleared, and, if you specified more than one round in the beginning,

you play again. If not, the score is displayed and the game is over.

If you don't want to type this program in, I'll be glad to make a copy (64 version only) for you. Send $3, a blank cassette, and a self-addressed stamped mailer to: Mark Doyle 3755 LemirelMne

Sebaatopol, CA 95472 SO

COMPUTEI's Gazette

Juno 1934

3-D Tic-Tac-Toe challenges you to think in three dimensions (VIC version).

See program listings on page 177.


Software artists? I?,^o^S5RuST?^SmETL BALL PROGRAM that feels like the

How we. got this year's hottest sports game out of ° , •> , j j •

real thing, it helps to start with two guys two rather inexperienced designers. who know what the real thing feels like. Enter Larry Bird andjulius Erving, Bird — the hustler, die strong man,

deadly from outside. Erving—The Doctor, maybe the most explosive player in the history of die game. We talked to them, photographed

them in action, studied their moves and their stats and their styles. Then we set out to create on computer disc an event which may never happen in real

life. We put the two of them together on a dream court of light, for an elec tronic afternoon of onc-on-one. It wasn't easy. When they talked, we listened. When they criticized, we made big changes. When chey gave sug gestions, we took them. And it shows.This

thin),' is absolutely un canny. You actually take on all the skills and characteristics of Bird or The Doctor — their own particular moves, shooting abilities, even strength and speed. You'll meet with fatigue factors, hot and cold streaks, turn

around jump shots, and 360-degree slam dunks. But there's some whimsy in here, too —a funny referee, a shattering backboard, even instant replay.

It's called Julius Erving and Lurry Bird Go One-on-One." You're Bird. Or you're The Doctor. And that's the last deci

sion you'll have plenty of time to make. JulLui Ervinu ind Litty Bird Go Dncon'Onc It imo Computer. TnlinJ lhii mumhouT 1HM jtiJ Aun hnme n^

ELECTRONIC ARTS'"


Bombs with short fuses and blind monsters add urgency and danger to this all-graphics adventure game for the unexpanded VIC and the Commo dore 64. Joystick required.

Dove and Casey Gardner

Your quest is to find three

bombs hidden in the rooms

and corridors of the castle dungeon. They were placed by the evil wizard who is trying to destroy the castle. He also put nine beasts in the rooms to guard the bombs. Luckily for you, the

beasts are blind andwill attack only if you bump into them. If you are carrying the en

chanted sword when you fight the beasts, you can defeat them. You will also need the magic key to open the locked doors.

A Light And Levitation On your search through the dun geon you will be carrying a light

which is only bright enough for you to see the area immediately around you. If you move too fast, you might fall into a bot tomless pit and be lost forever. By standing next to a pit and

pressing the L key, you can in voke a levilation spell which will allow you to cross over the pit without falling in.

The fuses on the bombs will burn foronlv five minutes (three

minutes for the 64 version). If you haven't found all three by that time, they will explode and the castle will be destroyed. Each time you play, the wizard will place the various objects in dif ferent locations.

To save memory, the VIC version of the program is in two parts. The first part {Program 1) displays the title page and in structions and defines the pro

grammable characters used in the second part.


WHY WATCH THE OLYMPICS WHEN YOU CAN BE IN THEM?

ÂŤ(

i

You're an Olympic athlete competing in eight key events at the Summer Games. How well can you score in track, swimming, diving,

shooting, gymnastics and more? So realistic, there's even an opening ceremony and awards presentation after each event.

Unlike other "Olympics-Like" games, Summer Games has incredible

realism, superb state-of-the-art graphics and sound effects (including national anthems from 18 countries], and it is a true act ion-strategy game. In each event you must plan and execute your game strategy in order to maximize your score. It is not just a matter of how fast you can move the joystick.

So change into your running shoes, grab your joystick and GO FOR

Till; GOLD! One or more players; joystick controlled.

StrategyGames/Orthe Action-GamePlayer


A Special Filename Type in Program 1 and SAVE it. If you are using a Datassette change ,8 in line 28 of Program 1 to ,1.) Then type in Program 2 and SAVE it as "D".

Here are outlines of the VIC programs:

Program 1 (VIC Loader) Line(s) 1

Clears She screen and lowers the top of memory

2

11-22

Defines variables for sounds and the screen Display the title page Play a tune Complete the title page Display instructions

23

Randomizes (so each game will start differently)

24-25

Store character in formation in high memory

26-29

30-43

Start LOADing Part two Title page DATA

44-49

Character DATA

3-5

6-7 8-10

The dungeon is dark and you've encountered a monster (VIC version).

Program 2 (Main VIC Line(s) 1-2 3

S8C

Places beasts

10

Places key

11

23

Places sword Places pits Chooses starring point, sets the clock to zero Reads joystick Checks if time is up Set direction If wall in waySword? Beast?

24

Door and no key?

25

Key?

26

35

Levitation spell? Pitand no spell? Pit and spell? Bomb? If not moving jump ahead to Line44 Lightuparea around player If key or sword found—make sound If pfayer fell in pit—jump to ending sequence

36-37

If player levitated over pit—redraw pit

38

45

Cancels Jevilation spell Makes player movement noise Darken area just vacated If third bomb found—jump to ending sequence Do it again

46-47

Successful quest ending

48-55

Unsuccessful quest ending

Walworth, NY 14568

56-62

Maze DATA

63

See program listings on page 157. <BJ

67-69

Door DATA Room flour DATA Subroutine for randomly placing objects

70-72

Sound subroutine for sword and key

73-74

Sound subroutine for locked door

75

Sound subroutine for bomb found

76-77

Sound and ending subroutine for falling in pit Subroutine for fighting beast Sound subroutine for levitation spell

12 13 14

15 1&-20 21 22

27 28

29 30 31-33 34

39 4CM3 44

64-66

78-81 82 54

Initialize variables Fills the screen with black spaces Place the maze Places doors Places room floors Places bombs

COMPUTEIS GoioJ/c

June 1984

if you lose, the maze is revealed (64 version).

We would like to thank Don Brunner and Todd Andrews of Rose City Computer Associates, Newark, New York, for their technical assistance

in preparing this program.

The joystick reading routine is from "The Joystick Connection" by Paul Bupp and Stephen

Drop (COMPUTE! magazine, May 1982).

If you would like to save the trouble of typing in and debugging the programs (VIC version only) send S3, a blank tape, and a stamped, selfaddressed mailer to: Dave Gardner 2342 Barnes Road

COMPUTE!'s Gazette Toll Free Subscription Order Line

800-334-0868 In NC 919-275-9809


KEN USTON THINKS HE CAN DRIVE YOU CRAZY. ■■,-:--■-"-

""

lv

■-

■ -

Wfv^

I

mm .-

■-

.

■'"■-'" So you think there's no puzzle too tough for you and no video game you can't beat. Welcome to

PuzzlePanic—The computer game that's sure to have you

crying "uncle." Designed by Ken Uston,

strategy and challenge. Compared to PuzzlePanic, Rubik's Cube"is child's play. So put on your thinking hat, grab your joystick, get ready for the contest of your life, and let Ken Uston drive you crazy. One player; joystick controlled.

blackjack and arcade game player extra

ordinaire, PuzzlePanic takes you through 49 increasingly difficult screens based on seven different games of action, logic,

Strategy Games for the Action-Game Player


Revenge Of Cyon Mike Reinman

Here comes the new generation of SM's

program series for the 64.

JillADREVA 64

Your personal professional address-file -system. Up 10 620 addiesses per disc In direct access. Including 5 extra lines 'or individual text/recordL TotaHy menus-driven. Powerful editing and back-up facilities.

Save Earth from the invading Cyon ships. Originally written for the VIC-20, we've added

Several hardcopy features.

PLACE YOUR CHECK OH MONEY ORDER NOWI

a version for the 64. A joystick is required.

"Revenge Of Cyon" is an action game for the VIC and 64 in which you try to save Earth from the invading Cyon Empire. Using the joystick, you must intercept the Cyon ships before they reach

the ground. Do this by moving the cross hairs over each ship and pressing the fire button. You are given seven shots at each ship. When a ship is destroyed, the number of shots used and the number of seconds you took to get it will be

displayed. At first, the ships descend one at a time. But after the first six ships, the Cyons gel smarter and

send down two ships at one time. If you clear 11 Here comes the new generation of SM's

program series for the 64.

JJillISM64

This IndGX-sequoniinl file manager gives you a new dimension

SM SOFTWARE INC,

252 BatMehom Pike

Colmor PA 16916

screens, Earth is saved and you win the game. If the ships reach the ground three times, Earth will be destroyed and you will be rated on your performance. Six difficulty levels are available,

ranging from simple to impossible. A point of interest to beginning programmers is that FOR-NEXT loops will execute much faster if you omit the variable in the NEXT command. Sec program listings on page 161. 9

on direct access lilw. Up to 40 keys, various longth lot each record and up to 10 Mas can bft handled at the somo Timo by this sophisticated module. How could your

programs survive without SM'ISM'

PLACE YOUR CHECK Ofi MONEY ORDER NOW!

It took two shots and four seconds for a direct hit in the VIC SM SOFTWARE INC.

262 Bolhlehum Pike

Colmar. PA 18915

version of "Revenge of Cyon."


\A/rri-L NIGHT AA1SS1OIM

You deserve the best. You've earned It. Now reward yourself with a session of Night Mission PINBALL, the most realistic and challenging arcade simulation ever conceived! ■ Stunning graphics and dazzling . sound effects put Night Mission PINBALL in a class by itself. Game features: multiball and multi-player capabilities, ten different professionally designed levetsof play,

f ■

and an editor that lets you create your own custom modes. ■ So take a break with Night Mission PINBALL from SubLOGiC. Winner of Electronic Games magazine's

1983 Arcade Award for Best Computer Audio/Visual Effects.

See your dealer... or write or call for more information. For direct orders please add SI. 50 lor

shipping and specify UPS or first class mail delivery. Illinois residents add 5% sales tax. American Express. Diner's Club, MasterCard, and Visa accepted.

Order Line: 800/637-4983

713 Edgebrook Drive

Champaign IL61820

(217)359-8482Telex:206995


The Frantic Fisherman David Lacey Idly floating in your boat, waiting for the fish to bite, is a fine way to relax. In this game, however, an angler's dream becomes a night mare when sharks get the notion that you're the bait and thunderclouds threaten you with gargantuan raindrops. It's good you remem bered to bring your shark swatter and an um brella. For the VIC and 64.

The fish are biting, and you've managed to catch

a few. Bui suddenly you notice the sky is clouding) over, and to make things worse, ravenous sharks begin to circle your boat. The object of "Frantic Fisherman" is to sur

vive. You score points by clubbing the sharks With your bat and blocking raindrops with your

umbrella. You Ktnrt with three fishermen. Each time a shark or raindrop hits the boat, you lose the boat and one fisherman. However, a new

fisherman is awarded for every 2,000 points.o^Three keys are used to control movement.

move back and forth, use the less than ( < ) aSi3_—

greater than ( > ) keys. The space bar serves two

functions. When sharks approach, it controls the

club. If a raindrop is falling, it controls the unim brella. You can use the shark swatter as many

times as you like. The umbrella, though, can h lifted only three times for each raindrop.

Controlling The Frenzy If you think the game is too fast or slow, you make the fisherman more (or less) frantic.

VIC users can alter the speed by changing the variable DE in line 30 of Program 2. To add more

fishermen, increase the value of GL in line 100. The bulk of the 64 version is written in 58

COMPUTEIS Gazelle

June 1984


V

ngstqy

and voice to your adventure Legendary adventurer, rider of the magic Pcfaasu&kprotector of

the beauliful Andromeda—you are Perseus in ihiyiew Tymac Talkie

computer game Pegasus and the Trials ol Perseus. You.musl penetrale the temples of the fearsome Tiians and deleat them in r^prtal combat. The sage advice of Zeus, spoken in riddle, holds the key Tp yonr survival. But the talons of a screaming harpy may seal your doom. Life harT&s4n«-aihread

in the challenging world of the gods. Pegasus, and all the Tymac Talkies, provide speech without expensive add-on

hardware. Combine that with dazzling graphics, lifelike animation, and 3-D effects—and you have sights and sounds like never before. See and hear all the Tymac Talkies, for

the Commodore 64™ VIC 20™ Atari" Home Computers, IBM PC or PC Jr. at your local computer retailer. Tymac Talkies: the most fun you've ever heard. Type Snyper

First Strike

Flyer Fox

Gandalf the Sorcerer

TYMAC INCORPORATED 129 Main Street, Franklin, NJ 07416 • 201-827-4050

Codename: DEADZONE


The fisherman raises hi* umbrella, but is standing on the wrong side of the boat (64 version).

in the VIC version, a shark is about lo be bopped.

machine language and the speed controls are built-

Special VIC Instructions

in. The four function keys give you four speeds,

from very slow (fl) to frustratingly frantic (f7). The first speed (fl) is rather easy and is recom

mended only as practice. You can also pause the action by pressing the SHIFT/LOCK key. (Pressing

it again restarts the game.) To end the game (64 version only), press the back arrow («—) key.

The VIC version runs on an unexpended VIC, but

requires two programs. The first redefines the character set, the second is the main program.

First enter Program 1. It'you are using a disk drive, add the following lines: 700

PRINT"LOAD"CHRS(34)"FRANTIC2"CHR$(34)

710

POKE198,4:FORT=631T0633:POKET,145:NEX

",8" T:POKE634,13:END

Cassette users should add this line:

STOP PLAYING GAME

700

■ Caicj'are Mas on HORSE RACES with ANY COMPUTE!! using BASIC ■ SCIENTIFICALLY DERIVED SYSTEM really Mriks TV Slation WLKY ol Louisville, Ktnlucky used Itiis system W piecict the Mfls ol the 1980 Kentucky Derby Sec Popular Computing (February, 1981} tor a review ol itiis program. This syslem was wriiten anO used by computer experts ar>d is now being made available to home computer owners Tins rnelliod is based on storing dala Iran a large number ol faces on ahignspced. large scale computer. 23 factors taken Irom [fio "Daily Racing Form" *^re men analysed hy lha computer lo see hmv Ihey inlluencod racs results From lliese 23 lacls. ten rare iDunfl to be the mosi

vital in deletmming winrais NUMERICAL PROBABILITIES ol each ol Ihese 10 (actors tvers

men computed and Ihis forms the basis ol tins flEVOLJTIONARy NEW PROGRAM ■ SIMPLE TO JSE ODlam "Djily Facing Fotm" ihs flay before the laces anct answer the 10 queslions aboul each norse Run me program ano your computer mil tinnl oul ttie

odds lor all Norses m eacti race COMPUTER POWER gives you me advantage1 ■ VOU GE!

1) ftofran on taswrtf or ow. 2) Lamg ol BASIC programs lor use win any eompuiH 3) inamdiois on no* to gM ire reeoee Oiia irom ihe ■OaJy R»ng Fam " 4| Tips on using trw ooos generated cy lie program

S| Samp* (turn lo wnpbly emenr^ data lor each race

POKE198,1:POKE531,131:END

Next, type in Program 2 and SAVE it as

FKANTlC2.'To play the game, LOAD and RUN

Program 1 and it will LOAD and RUN Program 2.

If you don't want to type in the programs, send me $3, a cassette, and a self-addressed stamped mailer, and I will make a copy (VIC ver sion only). David bwey 37081 Street Lincoln, NE 68510

Sec program listings on page 1S2, <B

MAIL COUPON OK CALL TODA1

3G COMPANY, INC. OEPT.GA RT. 3, BOX 28A, GASTON, OH 97119

(503) 357-5607

res, I want to use my computer lor FUN ana PROFIT Please send me "Play Ihe Horses" lor 129.95. Circle Ide casselle you need TfiS'80.

Sinclair linn. 10CO

'IJ'i

PST/CBM

vic-prj, coiw Compom.

Commodon 64 [Disk « casmit)

MOK louic a casMtie)

Enclosed is' D clieck or money order □ MasieiCarfl CD Visa

TBT

FREE OFFER! FREE OFFER! COMPUTER CASSETTES 58C FREE "Giear Inventions Game"Piogram Cassette with eacti order of 20 or mote C-'O's Specily VlC-20. Commodore 64, TI-99/4A, TFIS-80 CoCo or MC-10 • C-l 0 Lenglh/Free Labels • 5 Screw Shell • Storage Bo> add 12t eacn • Lilotime money back guaranlee ■ S2.00 shipping etiargo ■ any quantity (Canadian Orders $G 00 shipping)

• NJ Residents aOO 6% sales tai • Send check or money order to:

START USING YOUR COMPUTER FOR

FUN and PROFIT! 60

COMPUTE!'* Gazelle

June 1984

PARALLEL SYSTEMS Box 772 Dept. V • Blackwood, NJ OBO1 2 SO9-227-9834


THE GAME IORDS OF BRITAIN COMMODORE 64PURPLE TURTLES Authors. Mark & Richard Moore

A fully animated arcade

Same with Loveabla Turtles, uddly Graphics and more

VMEX/SINCLAIR2068" ULTISYNTH Author: Nalln Stiarme

BUGABOO Author: Indescomp

sophistics ted synthesiser,

caves with Bugaboo tho flea

Turn your CBM 64 into a

gamelA game lor me young

a piano, violin, organ, guitar or harpsichord. Woodwind, drums or cymbals and play along with your own or any of the preset rhythms.

tired ol alien bashing.

Also available

Culeness than you'll find in any other Commodore 64

at heart andpeople who have

Bugaboo 'Aquaplane • Ringol Power 'Sting • Oumtic Watnor

Jump your way out ol the

but bawaro of the fearsome Dragon as you jump around the exotic vegetation

Also available

Xadom * Astro Blaster *

Games Designer •

3D Strategy • Ant Attack • The Chess Player •

Smugglers Cove *

Velnors Lair • Trader •

Trail • Time Gate

TJMEX/SINCLAIR WOO A 1500'"

3D BLACK STAR Author M. Svdworth Explosions mushroom

around you and the rear scanner shows following craft,

youlncroase speed and fire at the ducts, dodging trom sid& to side of the narrow corridor.

Also available Damper & Glooper • Croaka Crawla * Pioneer Trait * Munchees

ATARI 400/800"

ULTtSKETCH Author: M. Walker INCREDIBLY VERSATILE CHARACTER GENERATOR

VIC 20"

SKYHAWK Aulhor: Charttc

A quiet European village is

attacked, pilot tho jet tighter Define characters on 8 x B Skyha wk against the grid. Save to tape. Loadlrom attackers tape. Freely merges character sets into existing programs.

Met S Dec O/Ps. Character

manipulation. Mirror, rotate.

Bugaboo

Invert, felt, right, up down. hold. wipe, cancel Redefine whole character set. Also works in colour mode.

Excellent examples supplied.

QUICKSILVAINC426WestNakoma San AnionioTexas78216. (512)3403684.


REVIEWS

Enter CompuServe's

Electronic Mall ™ and shop at your convenience in these exciting departments. The Micro Mart The Department Stores

The Travel Agent The Book Bazaar The Record Emporium The Photo Booth The Software Shop The Financial Market The Magazine Kiosk

Arcade-Style Games For The VIC-20: Skramble! And Gridder Harvey B. Herman, Associate Editor What makes a great computer

complete the mission. You have

game? I suppose it's like invest ing in the stock market. If the brokers had all the answers, they would be millionaires in vesting their own money rather

to earn additional fuel by de

than other people's. And it' game

designers knew .ill the secrets

stroying enemy oil tanks. Points are scored by destroying their rockets and helicopters. You lose if you collide with anything or run out of fuel. Points and remaining fuel are displayed in a

for producing great games, they

panel at the bottom of the

would never make a false step.

screen.

Since no one can know all the secrets, some people consis

tently do better than average in the stock market, and so do some game designers in competition

for our software dollars. 1 don't know what a good average might

be, but in the opinion of my fam

ily, Microdigital is batting .500

There is plenty of variety—

helicopters. With the joystick, you maneuver up and down,

viewing them.

much longer than the average

Skramble! The game begins with instruc tions and a chorus of "Yankee

Doodle." You are in command

game. They keep coming back to it, but still haven't made it to the end. Perhaps therein lies the secret of a successful game. However, 1 would not have

of a moving spaceship. Your

predicted this from my first im

only options are to bomb, shoot,

pressions. Although they may

or maneuver around enemy de fenses. You have a limited amount of fuel, not enough to

feel differently next year, they like it now and are still trying to reach the Homing Slot.

62

COMPUTE!'* Gazelle

June 1984

American Express AST Research Bantam CBS Publishing CDEX Colonial Penn Commodore Computer World

Digital Equipment

dililhium Press

800 Software Heath

Innovative Software Magazine Supply House Manufacturer's Hanover Trust

difficulty keep their interest

games. However, we don't have

American Airlines

reach the Homing Slot. The first screen has varying terrain filled with storage tanks, rockets, and

writing games rather than re

in your evaluations of other

Amdek

Hertz E.F.Hullon

all the answers, or we would be

My youngest son almost

immediately formed strong opin ions on the quality of each game. Perhaps you can use his insight

A sample of the companies participating in CompuServe's Electronic Mall "includes:

the game offers eight different challenges (screens) before you

forward and back; and you bomb and shoot with the fire button. At first it seems easy, but then the rockets are launched and the subsequent screens become much tougher. As far as my kids are con cerned, this game is a real win ner. The variety and level of

on Skramble! and Gridder.

The Gardening Shed The Newsstand

Inmac

McGraw-Hill Metropolitan Life Microsoft Miracle Computing Misco Newsnet Official Airline Guide

Pan American Electronics Peachtree Software Practical Peripherals Program Store Professional Color Labs

RCA Record Clubs Record World

Sears

Select Information Exchange Sim Computer Products Software Advisor

Stark Brothers Supersoft

MaxUle

Vanguard VisiCorp Ziff-Davis Merchants and manufacturers who want to

participate in the Electronic Mali' may contact: Stephen A. Swanson, L.M. Berry & Co..

P.O. Box 6000, Dayton, OH 45401, (513)296-2015.


BrTHSfeAR 2000.THE WORLD May Catch Up With The Way

CompuServes New Electronic Mall Lets You Shop today.

Introducing the first computer shopping service that brings you

convenience, savings and enjoyment Here's your chance to expand the practical uses of yourpersonai computer.

Sign up for CompuServe and shop in our new Electronic Mail. It's easy lo use. !t tetis you more about the products you're buying It lets you order faster. And it's totally unique. CompuServe's new Electronic Mall" offers you all these shopping Innovations. - It's enormous! So it gives you in-depth

information on ihousands of goods and services, and lets you buy even hard-to-find merchandise.- Its unique"Feed back" senice lets you ask the merchants themselves specific questions. - it's incredibly efficient in

ordering the products and services you want The Etoflronlc Moll1"

- Its special discount opportunities make i< economical purchase after purchase. - And its name-brand merchants assure you of

top-quality merchandise

The Electronic Mall, a valuable addition to the vast world of

CompuServe. CompuServe's Consumer Information Service brings you shopping information,

Make the CompuServe Electronic

Mull 1 ."-Minn te Comparison Test. Whatyou can do in 15 minutes shopping

the Electronic Mall way. •Cull up unyour computer screen full descriptions of [he latest in computer

printers, for instance • Pick one and enter the order command.

entertainment, personal communications and more You can access CompuServe with al most any computer and modem, terminal

or communicating word processor. To receive your illustrated guide to CompuServe and learn how to subscribe, call or contact...

• Check compiete descriptions o( places to Stay on your next vacation. • Pick several and request travel brochures.

• Access a department store calaloy and pick oul a wine rack lools, lays... any thing! • Place your order.

Whatyou can do in 15 minutes shopping the old way. • Round up the family and get in the car.

venire between CompuServe fm1 ondL M. R^-rry A Company^

CompuServe Consumer Information Servcc P.O. Bo* M312

5000 Arlington Centre Blvd. Columbus. OH -13220

800-848-8199 In Onto en" 6td-157-nB02

An H 4 R Blpck Comoany


REVIEWS

Gridder

keyboard or joystick play. The

A painter, indicated by a happy

face, is moved around a .square grid. When he boxes a given square, il is painted (indicated by changing color). At the same time, lethal chasers are after the painter. The painter—controlled by your joystick—must paint all the squares on the screen with out getting caught by a chaser. The next grid appears when the previous one is painted; there are 256 different grids (screens) in all. The score, including cur rent high, is shown at the screen bottom. A few complications are offered. You may create holes in the grid which neither the

front of each box has an artist's conception of the game (poetic license as usual), but the back

has a small photograph of the

time, they must challenge even the best players so winning will not be routine. If a game meets the twin requirements of variety and chal

actual screen. I applaud this last

lenge for you, by all means buy

step and wish more software packaging was this honest. The question remains: Why did my children like one program so much and not the other?

it. As always, I recommend that

Skramblet was fun for us and Gridder was not. Your experience may be different. The common thread of good games is true variety and chal lenge. They must hold your in terest by offering sufficiently different situations, At the same

prospective buyers first try games at a local store. Skramble!

Gridder MICRODIC1TAL

Distributed by: Tcchl Software P.O. Box 1110 Webster, NY 14580 1716)872-0647 $14.95 each on cassette

$19,95 each on disk

43

painter nor the chaser can cross.

This stops the chaser for only a short time, however. The chasers

ordinarily cannot sec through obstacles, but at higher screens the obstacles are transparent, which increases the challenge. You get three extra painters

in addition to the unused ones

when a grid is completely painted. Up tt> nine painters are

allowed at one time. My youngest son reacted

negatively to this game. He feels that there is not enough variety

in spite of the 256 grids. In his words, "terminal boredom" set

in long before the game became more difficult at the higher grids. Almost every other game was at least fun at first; not this one, he

claims. Again, I would not have predicted this response from my first impression of the program.

For The Unexpanded

VIC Skramble and Gridder are offered on tape for the unexpanded VIC, and have the option of either 4-1

COMPUTE'1* Gazelle

June 198-1

Easy Script: Word Processor Neeiy For The 64 Easy Script, from Commodore, contains all of the standard word processing features: the ability to relocate or duplicate para graphs, store files on disk or

tape, and move easily around the screen using the cursor con

trol keys. You can also jump to the top or bottom of the screen or your text, to the bottom of the file, to the next or previous word, or to any line, and to the next screen. In addition, you can pan in any direction. Easy Script allows you to

in place of the erased text. Easy Script boasts another useful feature that is found in many, but not all, word proces

sors. With only a few keystrokes, you can search for every occur rence of a word or phrase throughout your document and replace it with a different word or phrase.

It can also search through any linked files on the disk.

Linked files are files with a spe cial marker that tells the com

puter to connect them when you

directly insert text while the rest of your document wraps around

view or print them. Since any

and realigns itself automatically.

number of pages you can hold in one file, you may have to divide your school paper or your yearend report or your first novel into many different files or chap

Likewise, you can delete charac ters, words, lines, and para graphs. You can also erase words, characters, lines, or all of your file. Erase differs from Delete in that it leaves space on the screen

computer's memory limits the

ters. The ability to link those files can be very useful.


Unique Software For The COMMODORE 64 Computer The ULTIMATE Thoroughbred Handicapping System

After you enter seleciea portions of past performance

Special Features The table of contents in the man ual is eight pages. Contained within area very large number

information

from

THE

DAILY

RACING

FORM*.

MICHO'CAPPER does the rest. Dozens of racing factors are evaluated, including class, consistency,

fllnesa. dislence, surface, post pos'tl°n ond running

style. Hundreds oi calculations are condensed into a SINGLE RATING NUMBER (or each horse.

of features. The major ones are: 1. decimal tabs that automatically align your columns of numbers, 2. soft hyphenation which lets the computer decide whether lo hyphenate a word or not,

MICROCAPPER is a commercial quality mpnu-d'iieii software system witn powerful full-screen data eiiry and editing lis error trapping facilities provide friendly and lOolprOOl operation, flvan ' jr I hie novice compute' user The MICRO'CAPPER package consists of nine programs un one diskette, plus .1 user s manual

It is available in two

versions one 'or use wiln the EAST ERN EDITION oi THE DAILY RACING FORM and one 10'

3. margin release which lets you

use witn re

the

WESTERN EDITION

requirements

CQMMOOORE-64 with one disk drive

temporarily override the margin setting,

Check or money order Florida residents add 5%

4. conditional forced page which lets the computer decide if the remaining number of lines is too few to print on the current page,

CopilolCofnp, inc. Microcomputer Software P.O. BOX 290485

5. automatic page numbering,

DAVIE, FLORIDA 33329

6. headings and footings, and

7. tab settings that are easy to set, easy to use, and easy to view; and can also be saved and recalled.

The Commodore 64 is your first "real"

You can also change the

computer. So. it stands to reason that the software you use be real too. And, useful.

color combinations of the screen, text, and border, include com ment lines in your text that will

The INSTA series productivity software is just that — real and useful,

appear on the screen but will not be printed, and easily change uppercase letters to lowercase and vice versa. You can specify the number of blank lines in the text without the space ap pearing on the screen. (This

With our tutorial manuals and HELP

SCREENS we actually teach you what word processing, spreadsheets and graphs are all about. Games are fun....for foolirV INSTA is for real.

saves memory.)

You Get What You See Easy Script offers a conve

nient feature which allows you to see what the printed docu ment will look like. While the program is not KO-column com patible, it lets you scroll horizon

tally up to 240 columns on the

INSTA.

-•'-^::>i.".|

lNSTA-WRITEri

screen. In the special View Mode, what you see is what you

get. If you specify double spac ing, you'll see it, and if you want the right margin justified, you'll COMPUTE)1* Gazette

June 198<i

65


REVIEWS

see that, too, along with centered headings. Many word processors re quire that you purchase a sepa

rate mailing list program if you

wish to send a form letter to

many different people, but Easy Scrip! includes a mail-merge pro gram. You type a list of names

and addresses, create your form letter, and then sit back while

the computer merges the two and prints your letters.

the View Mode only. Unfortu nately, the View Mode does not

Easy Script still rates near the top

allow all the cursor movement and editing commands found in

of the list of word processors for the Commodore 64. It's power

In spite of these weaknesses,

the Edit Mode. Preferably, these

ful, professional, and easy to

two modes should be combined. In the View Mode, you never know where you are, there is no page number indicator or even

use. And the price is reasonable.

line or column indicator, and

Easy Script Commodore Business Macliines, Inc. 1200 Wihon Drive West Chester, PA 1938U

Dink $49.95

you have to learn a different set of cursor movement commands.

<£/

If you have a need for stan

dardized forms, Easy Script can

accommodate that, too. You can save several standard para graphs as separate files and then insert them into your form letters

Worms? For The 64 Gregg Keizer, Assistant Book Editor

or merge them all io create one

Worm training? The idea sounds ridiculous at first. Images of

are up to the usual high stand ards of Electronic Arts. But all

document.

riding and roping worms

this is secondary to the delight

momentarily cross your mind.

you find in just experiencing the

Very Few Weaknesses As with everything else, Ensi/

Scrip! isn't perfect. The manual is only fair. While it explains most features in detail and in cludes exercises and recaps at every step, it is sometimes diffi

cult to understand, even for an experienced user. The only part

of the manual that is really well organized is the Reference Sec

tion. You should read it first. In addition, it is unfortunate

that Easy Scrip! does not include a Quick Reference Card. You can create your own, but many word processing programs sup ply them and they are quite useful. Since Easy Script is not menu-driven (another draw back), there are many commands

to remember. It is also disturbing to see

words at the ends of lines cut in half in the Edit Mode. Most word processors wrap the entire word around to the next line if it will not fit. Easy Scrip! does this in 66

COMPUTE'S Gnrcllc

June 1984

No, Warms? isn't really a

game about training worms, but that's parl of the process. Ele ments of connect-the-dots are

hidden in the game, but Worm*? isn't a children's game, nor an

arcade game that moves at light ning speed. This game is hard to pin down, for it fits in no conve nient category. It's not "just like

PticMtm" or "close to Defender." Worms? is different.

Mathematical Worms David Maynard, game designer and programmer of Warms?,

first came up with the idea after reading a Martin Gardner col umn in Scientific American. The column discussed the patterns of idealized mathematical worms

and it gave Maynard ideas. The result is Worms? A one- to four-player game, Worms? moves slowly at first,

game.

You're On Your Own When you open the game pack age, you see a disk, a four-page instruction booklet, and a warn ing not to read the directions.

That advice is well-taken. After a rather long delay in

waiting for the game to load, the screen shows the playing field, worm selections, and instruc tions on how to change the worm

types. You have four worms and five worm types to choose from.

Press the f5 key to select one of the four worms, the f3 key to change the worm type. The four worms are color-

coded as green, red, blue, and purple. The worm types are:

• NEW. This is the worm type

you'll normally select when you play. It's untrained, and you're the trainer.

worm becomes better trained.

• AUTO. Similar to the NEW worm, this one is trained by the computer to make intelligent

The colors, graphics, and sounds

moves.

picking up momentum as each


NOTHING CAN UPGRADE THE KEYBOARD OF YOUR C-64 LIKE THE MAGNACOMP-64 INTEGRATOR CONSOLE

_

• WILD. Another computertrained worm, it's programmed

randomly before the game be gins. Not as smart as the AUTO worm, it's easier to beat. • SAME. The worm that ployed this color during the last game is used again. It's already trained. • . The worm is dormant and doesn't play. Use this worm

type to play with less than four players when you don't want the computer interfering.

The playing field, before you begin the game, is a screen

ful of dots. Each dot lies in the middle of its own territory, which extends to the six dtfts surrounding it.

Figure 1. Territories

plus S5.00 shipping I

THE C-64 IS LITERALLY TRANSFORMED!!

■ YOU INSERT THE ENTIRE KEVBOARD INTO THE LARGER, MORE SUBSTANTIAL HOUSING, NUMERIC DATA-PAD IS BUILT IN (HARD WIRED, NO SOFTWARE REQUIRED.) ■ A FULLY ENCLOSED COMPARTMENT HIDES WIRES. ROOM IS PROVIDED FOR 80 COLUMN CARDS. EXPANSION, ETC.

' SIX SURGE/SPIKE PROTECTED AND GROUNDED RECEPTACLES ARE INTERNALLY PROVIDED, WITH A HEAVY-DUTY CORD.

- UNIT IS COLOR-MATCHED TO THE NEW MSD HIGH SPEED DISK DRIVE, TO PROVIDE A HANDSOME COMBO.

SEND FOR FREE 6-PAGE CATALOG • COD. Of prepaid, only. • California residents add 6.SW sales lax. P.ease allow 3-5 week lor delivery * to-ttay money Back guarantee.

AVAILABLE FHOM:

OAKWOOD COMPUTER PRODUCTS

3421 Burbank Blvd., Burbank, CA 91505 • (213) 841-0964

o Lookin' Aroun We know. You've been looking everywhere for 64 software, INSTA's interactive line of software is just a phone call away.

The object of the game is to cap ture as many territories as pos

sible by drawing worm trails from dot to dot. You capture a territory and receive one point when you

draw the last trail in the territory. To win, accumulate more points

than anyone else. It sounds ter ribly simple when you first read

Imagine, specially designed software that "talks" to one another. Your home budget created with CALC instantly becomes a GRAPH. And your club membership list with addresses and

monthly dues quickly becomes a form letter, printed over and over again, automatically, for each member. So, no more lookin' around. INSTA is here now!

it, but it's not as easy as it sounds. Your worm may draw five of the six possible lines to a dot, and then another player's worm may come along and claim the terri tory. Or your worm may be lay

ing trails in a perfect pattern, only to rim into another worm.

Worm Trainer As you play, train your worm to

make specific moves in specific situations. It leaves a trail of light behind as it moves, drawing the COMPUTE'S Gotcttc

June i 98-1

67


REVIEWS

lines from dot to dot. If you create .1 pattern that quickly draws

lines and claims territories, you get points fast. If your worm's pattern is inefficient, it doesn't claim territories as quickly, and

the oilier player's worms may capitalize on your work. The space bar lets you

choose the direction your worm moves in. Sometimes the direc tions are restricted because paths have already been filled in by your worm or other worms. When you're satisfied with the new direction, press any key to set the worm in motion and lay its trail. The worm moves automati cally once it recognizes a pattern in your training. It continues to

move until it runs into an un

known situation. The worm then flashes and you are able to give it a new command. This process continues throughout the game. As you give more commands to the worm, you train it. It re members all your previous di rections and moves in that way as long as it recognizes the pat tern. Training is a cumulative process. Eventually, your worm recognizes ever)' situation, and

you don't have to do anything

but watch it move around the screen.

There are dangers to your

worm, however. If two or more worms try to move to the same

dot at the same time, they collide and die. You hear a nasty sound

Patterns And More Patterns Creating a good pattern is one of the keys to the game. You'll find yourself training your worm to

make all kinds of patterns, from girderlike constructions to zig

zags to complex hexagon clus ters. Many times, you'd like to duplicate a pattern you used in ,1

previous game, but you can't

68

COMPUJEVs Gomlle

June 1984

move it southeast and press the

space bar until that direction is indicated. The worm moves to the dot below and to the right. Now it wants another command, for it doesn't recognize the pat tern of a trail leading from the northwest.

Figure 3. Second Move

because another worm is in the

way. Each game is different from the last. You have to adapt to the situation. it can be frustrating, espe cially when other players inter fere with your worm's training,

but that's part of the joy of Worms?. It's not all skill, how ever. Luck plays a part in the game. Imagining what your worm will do is almost impos sible at times. Sometimes the

only thing you can do is train your worm and see how it all

You tell the worm to move northeast. Anytime your worm

sees the pattern of a trail to the southeast, with five directions

open, it will now move Up and It) the right窶馬l! the time.

Figure 4. Third Move

works out. If you're lucky and the other player's worms happen to create patterns that yours can exploit, so much the better. It's difficult to visualize how a worm is trained, and how pal-

terns are created by just reading about it. Seeing is everything here. You're starting to train your worm, and want to create a pat

tern. 1 low do you do it?

Figure 2. First Move

and sec a small flash as your worm expires. Your worm dies

if it cannot move from its present dot as well. This usually happens only near the end of the game when the screen is filled with trails and your worm's trapped.

to choose from. You decide to

Now your worm moves west,

closing in the triangle. You still haven't earned any points, how

ever, since there is no dot with all six trails drawn to it. From now on, when your worm starts

out on a dot which has one trail tn the southwest (created in the second move), it will want to move to the west. Your pattern is just begin

Your worm has six directions

ning. As you continue to train your worm, the pattern will emerge. If you've trained your worm well, it will continue Ihe


â–

-

same pattern, over and over, until it either tills the screen or

cannot move further, in which case it dies. Of course, playing with only one worm on the screen is considerably different

than when there are four com plex patterns developing from four worms.

\

Other Options There are several interesting

i m

options also included in Worms?. You can freeze the game's action

at any time, turn off the grid's dots, flash claimed territories throughout the game, and even save and load previously trained worms. Changing saved worms

is also easy to do. These options

\ \

Educational Software That Works

are useful if you want to analyze a particular worm's pattern to see how to improve it, or to stop

We believe that children have an innate curiosity ... a natural desire to learn, to

in the middle of a game and re sume it later.

Unique And Interesting Worms? is one of the most fas cinating games I've played in a long time. It's so different from anything else that it quickly capti vated me. Womts? tournaments became popular among the staff

Grades 1 through 6

2 disks

$49.95

FANTASTIC!

We know our software WORKS because we developed and tested it in the classroom. Let our software WORK for your children too!

of COMPUTE!. We soon had our

favorite patterns <ind worms, from girders to vast encircling patterns that became apparent only after half the screen was filled. The game is hard to master.

discover, to understand. Our software was designed with this in mind. Even traditionally tedious subjects like math, reading, and vocabulary building are easily mastered. Why? Because our software makes children want to learn. And when they want to learn, the results are

Grades 4 through 12 2 disks S49.95

For Apple, IBM PC, and Commodore 64."

Ask your dealer.

It's easy to play, but seems almost

impossible to play well time after time. There are just too many factors over which you have no control such as the other player's worms and peculiar patterns you may have inadvertently created. You can't really become an expert

davidsoifrlassociates 6069 Groveoak Place #12 Rancho Palos Verdes, CA 90274 MasterCard and Visa cardholders may call collect to order: High School, College, and

Adult

2 disks

Students $69.95

(213) 378-7826 / (213) 378-3995 "Apple, IBM, find Commodore 64 are iradertiarksaf Arjple Compuler. Inc., IntemaHonal

QuahCrBQ MncMnos

roBpoctlvoly.

Corp.,

and Commodore Business Machines,

Inc.


REVIEWS

terns. Sometimes the planning, it doesn't because another player's worm interferes or

screen and experiencing the game. Even when you've played the game for a time, reading the directions doesn't seem to help.

crashes into yours.

There are just too many pos

such as it is, pays off; other times

that come with the game. You

sibilities to explore. But you'll have fun trying.

probably won't understand them

Worms?

Don't read the directions

anyway. It's not a matter of clar Train your worms well and you will capture more territory.

at this game in the same sense as you can with arcade games like PacMan or Robotron, where you practice the same system of move ment and fire over and over. That's not to say this detracts from Wonm?. Instead, I think it's

one of the reasons we play the game so frequently. A novice can play and have an excellent chance

of winning, even with only the briefest explanation o! how the game works. Each game is differ

ent from the last, so even the most experienced players enjoy playing game after game.

Worms? is as much fun to watch as it is to play, and when your worm dies, you may slay in front of the screen just to see how

it al! turns out. At game's end, when the different patterns are revealed, along with the point

2755 Campus Drive

Worms? is almost impossible to imagine without seeing it on the

San Mak-o, CA 94403

You are on the runway ready for takeoff. Throttle full, you begin to accelerate. Airspeed is rising— 20, 30, 45, 53. You pull back on the stick and begin your ascent. You retract your landing gear. Heading 000-north, you are on

your way. Now you are Charles

Neither of these is used in

landing strips.

Academy Software's IFR (Flight Simulator), written by Ron

flight simulators for various in several ways. First, it is written for the VIC-20. (A Commodore 64 ver

instrument panel displays read

ings in digital form. This makes it easier to understand the status of your flight. Third, you can

worm faster, or in better pat-

flights.

COMPUTEfs Gazelle

June 1981

may be wise to set these at zero until you earn your wings. The program contains a use ful editor with which you can set

off, you can press E instead, for the editor. Should you choose this, you can customize the flight conditions of altitude, north and west coordinates, airspeed, throttle, fuel, and heading. Use the map to determine

where you would like to be, and remember to set your airspeed above the stall speed or your flight will be a short one. The

editor is more useful as you learn

sion is also available.) Second, the to control the aircraft.

ing about how to train your 70

prompted for a choice of skill level and air turbulence factor. It

are prompted to press T for take

choose from ten levels of skill and turbulence. This adds to the challenge and enjoyment of test

Worms?. Yet you do fall into the worm's mentality quickly, think

When you begin, you are

your flight conditions. When you

computers. But, it stands apart

games do this with cute charac ters and elaborate animation.

Getting Airborne

You have entered the world of flight—a domain of mountain ranges, high and low altitude forests, canyon passes, and thin

Wanttaja, joins a long list of other

game's world. Some arcade

W

Lindberg or Amelia Earhart.

at the geometric precision or ran dom inefficiencies of each worm. a lot of ways. Even though it consists of lines and dots, you can be easily drawn into the

$40

IFR (Flight Simulator) For The VIC-20 David Florence, Programming Assistant

totals, there will be oohs and ahs

Worms? is a strange game in

Electronic Arts

ity, but one of visualization,

To take your first flight, you

need to increase throttle, (labeled T on the lower left of the screen) to full by pressing the fl key until the indicator is fully lit. When your airspeed reaches

about 50, gently pull back on the joystick to start your climb.


Developing a mind /RTC7 for the Future. SUPER BASIC $39" U,S:

RECREATE

Gives you 3 difioiunl vwrsionBoi Commodore

PROGRAM

Basic PiOflfammy UinQu.tgc Vorii&n -1 PLUS1 - D *.«. 1 File Vj ■" ri n, in f. r- C emmitn □ s Dd'j H -J1C. ■ -.4 C C " n 1,1 r £•,

Grapn.ca Plus Bast CcmcadDle: umin CorrmrroaorD's

B " Genes &

Much Much More1

RECREATE PROGRAM S39" U.S: RTCs Answers Ed Prooriim Hecrerilion ConvtiMa PnnlGc's Filofo SCRIPT 6-1 s Fklea

SUPER COPY $29" U.S: Susef Faa[D'5kCopn!Son;i tfifll Copy Eniire Dish m 7 W.nuttiOf Less

Copy Selected FdPS Comolete Pattern Malchmg

BASIC AID S39"U.S: Color 80 S49»U.S: Produces SO Columns Wilh Colo-1 Noeds No E*tru Hnrdw,rri*

Uso With Terminal PioQnifii:*

You' Aid 10 Writing Pfocjroma Allows Suroiliny Trkrouuh Pron'Ofi1^ Add1: 33 moir ComniLindH lo Ihf Qh£ig LnnQiiags Hii3 Find. Chnnu^. Mr»r<)ii. Move Commands

Conveif Mir-, □m.ir/.ind Di?cijnflfNumDur& and Morr1

Utea No Basic Memory m iftu 64

Develop Vour Own Pro-grams

**** SCRIPT 64 & SCRATCH PAD 64 S105" U.S! Sen pi CA

ii .md EflflWl

HO Columnii

Global Spelling Check Scraicti Pud Sfl

The Daiabase VaJ Uat in One1 Wcrges *iln Scripl 64 Wad Processor PnnE oui Ubcls Envetooes MaJbsli More' SmtaWtt witn UoTh Single and Dual Otsk Driven Fully CG4 link Comiiaiibtc

•SUG3ESTE1D RETAIL PRICE

FOB in U S FUNDS

C64 LINK The Smart 64

Give These Expanded Capabilities to Your 64 and VIC 20 • The abilrtv to irjinslur tittu\ from Qny lypo ol device [Q unothar

I IEEE, Serial far*WJ • BASIC 4r0^hicii allows voulo run more PET BASIC programs and gives you extended dak und I/O cor^mands. • The ability ro hava afveral 64s en imo [ogcihci - sharing cornmonlEE£devic«iuchnsiJi*k5 or ^inters wii S

i

Built-in mocftino I0nyuiiyn moniior.

A buili-in [ermin&l ur rnodcim proflrflm which allowa ihu ay&tum 10 oomniunicnra Ihrouyh 0 rnodrjin lo many bu I lei In bfmrd systems and othei compuisr mninlriimes.

• Cornpalabilitvw[lhCP/M.

Contact your local Commodore dealer or RTC. Payment by VISA, MASTEflCARDor BANK TRANSFER. Moil orders also r>v cflrliliod choquo, etc.

10610 Bayview Avmuo IBa^view Pla^al

Hichmond Hill, Ontariu, Canada L1C 3N8

(4161884^165


REVIEWS

When your altitude is above 80, you can pull up your landing

locaUzer. It shows the position of

gear by pressing G.

of the runway. There are front course and back course local-

the aircraft relative to the center

As the airspeed reaches about 105, pull back on the joy stick a little more to level your speed. Your altitude starts to increase at a faster rate, and your

izers. Fly towards the bar on the

front course and away from the bar on the back course. Below the ILS instrument there are three indicators labeled O, M, and I,

north coordinates are increasing rapidly while your west coordi

nates are relatively stable. Begin a turn to the west, heading 270 (the compass is in the top center of the display), by moving the joystick to the left.

m

Flying through the mountain pass in IFR Flight Simulator.

for outer, middle, and inner markers. They light at miles 3, 2, and 1 from the airports, respec tively. These enable you to make very precise landings.

play panel. Trace up the map's vertical axis until you reach the north value, then trace horizon

Helpful Hints

coordinates reach 75, or you will crash into a mountain cliff (un

less your altitude is above 600

tally until you reach your west

help you make successful flights. When taking off, be sure to keep your airspeed above the stall speed. Stall speed with flaps

Make the turn before your north

feet). When you make your turn,

the artificial horizon (middle center of the display) and your

value. Where the two meet is your location on the map. Each unit on the INS readout is the

There are some things, not im

mediately apparent, that will

equivalent of one-tenth of a

up is about 56 mph. If you hear a tone shortly after takeoff, it

Don't turn too sharply. As your heading reaches 270, level off your turn by easing the joy

mile. There are four airports, only two of which have fuel and re pair. There are different altitudes and terrains, a mountain range

even with the horizon. You have

low passes through the moun

cately balanced so it may not

tains. The aircraft flies at any

function normally if you are

heading between 000 and 359. Compass headings are 000north, 090-east, 180-south, and

rapidly losing airspeed or al titude. Be sure to get the gear up

turn and bank coordinator (mid dle left of the display) reflect your turn to the west.

stick back to the right and getting and forests, as well as high and now made it into the sky with success.

An excellent feature of the program is the sound, the roar of your engine. If you are not yet an ace you hear other sounds like the screeching of a landing

with gear up, and the fearful crash. These sounds do a good job of enhancing the realism of the simulation.

Using The Map Included with the software is a map, which is based on two co ordinates, north and west. Both start at 0 and end at 250. To get your position, check the INS (Inertial Navigation System)

readout at the bottom of the disn

COMPUTEI's Gazelle

June 1984

270-west.

Precision Landings

means that you are going up too

fast for your airspeed, so bring the nose down a bit by pushing forward on the joystick.

Your landing gear is deli

and down while your indicators

are relatively constant. A good time for gear up is just after leav

ing the ground, and a good time

Airports 1 and 2 have installed

for gear down is just after making

the ILS (Instrument Landing

your turn towards the runway. Fly the aircraft so that one

System) for precision landings. As you approach these airports, you see on the ILS instrument (center of display) two bars, one

horizontal and one vertical. The horizontal bar is the glidescope. It shows the vertical position of the aircraft in relation to the run

way. Fly towards the glidescope to make precision landings. The vertical bar is the

of your coordinates is constant.

This is difficult to do. You'll find

that "crabbing," or flying a little to the left or right of your desired heading, helps immeasurably. When flying at high al titudes, be sure to remember that a lot of fuel was burned to get that high. You may make it to the desired altitude, but you


MODORE 64 OWNERS

ATTENT10

WE'LL BA

U UP!

in you'll

Machine." Take control of your 1541 drive.

NEW IMPROVED WITH UNGUARD* Package Includes

could run out of fuel before you are able to get back down. On the other hand, the air

craft needs limited fuel to make a descent, so if you have used a lot getting up, cut back the

1)

Complete and thorough users manual

2}

Copy with one or two drives

3)

Investigate and back-up many "PRO TECTED" disks

4}

Copy all (Me types including relative types

5)

throttle to 0 or "dead stick" for

Edit and view track/block in Hex or ASCII

your descent.

6)

Should you run out of fuel,

iy

Display full contents ol directory and print

remember th.it it is still possible

to land the aircraft. Also, if you are low on fuel, you may find it preferable to make a safe landing somewhere in the fields rather than waste what little fuel you have trying in vain to reach an

7)

Change program names, add, delete

8)

Easy disk initialization

9)

tiles with simple keystrokes

''(■ QonC M*c**'

Supports up to four drives

on your disk making it easy to back-up most protected software.

$4995

more easily made than dead stick landings.

CALL (201) 838-9027

Dealers & Distributors

1342 B Rt. 23

Inquiries Invited

Butler, N.J. 07405

Land from the east and make a swift turn to the south after takeoff at Airport 4. Use the nosewheel steering

CENTURY MICRO PRODUCTS P.O. BOX 2520. MISSION VIEJO. CA 92690

to get back on the runways should you run off. You won't need very much speed to taxi, so

Commodore 64

All Prices up to

40% OFF RETAIL

keep it slow, around 6 or 7 mph. Your brakes work better if your throttle is at 0.

HOME/BUSINESS

IFR (Flight Simulator) has a quality of realism which sets it

Mulligan (D)

Praclicalc (D) Toll Business Mgr

3s.es 69 95

BanK SI Writer (D) VIP Terminal

apart from others of its kind, even those I have tested at a

49 00 39.00

Quick Brown Foi (CT)

29.95

PaperCMp (0) Word Pro/SpellRigrit (D)

flight school. The controls in this

Calcfleiull Advanced (D) Data Manager [D/CASB) Home Accl (Continental) (D) Dalphl'l O>acl« |0) CompuSant Starter KM

program respond very much like

actual aircraft controls. They arc not overly sensitive, but give you what you ask for, even if it

66.50 69 9S 109.95 18 00

19 95 26 95

Dnsignwaro S police pier

37.00 M.95

DciiflnwflfB SpoiraKaram Traina

Jumomon (D/CASSI Boacfi HoarJ (D/CASSI Neulral Zone (D/CASS)

Planrjllall (D) Odoiln Chess 7 0(0)

Ulton'l Prol Blackjack

P.O. Box6277

72 95 27 95

37.00

Lodo Runnflr (D) Enenantvr |D)

Academy Sojtivare

26 95 22 95

Koala Touch Tabfel Masterlypa 1D/CT]

CarOco WrlK-Naw (CT)

Chapltfter (CT)

IFR (Flight Simulator)

AlphHbel Zoo (CT)

Dala Manager II (D)

24 95 28 95

De9^g^wflfe Cfypto CijCo

28 95 26 95 28 95

Typo Aiiack

27 00

Cardprlnt G

71.95

HARDWARE AND ACCESSORIES The Connection Parairel Int.

69 95

Cflrdco 5 Slot Enp (C-64) Data 20 Video Pak SO (C-e<)

55 95 139 00

26 00 26 95

Zeniih 12" Green Monrtor

102.00

Zemin 12" Amtwr M&mior

35 00

aroTho'/Dynan DX-15

125 00

GAMES

some basic flight terminology and theory, and it's tremendous fun.

Snoopor Troops Bl (D>

Kidi on r<#ys (CT)

Ace Is Payablo (D)

28 95 22 50 63 95

Early Gamca (D'CASS) Bacron 5 SAT (D>

Hey Didaie DiddFe (D)

52 00 52 00

19 95 26 95

Type Attack (O)

Stoty Machine (CT)

52 00

22 95

KmOefComp (D/CT) Delta Drawing (CT)

47 00

Gonernl Ledger {D} Accts fleceivable (D)

crSffi H

FacemBker in C:

19.00

CYMBAL

°=Dls!<

EDUCATIONAL

S9.95

FCM (Contlnenlil) (□)

is flying right into a cliff. This program does not serve as a substitute for real training, but it does familiarize you with

27 95 24.95 24 95 35.00 J7.50 47.50

TO ORDER: CALL

©

w ye

'(/t .

' UNGUARD Now allows you to read, write and verily bad sectors and errors

airport. Fueled landings are

San Rafael CA 94303 VlC-20 cartridge $39.95 Commodore 64 tape or disk $29.95

r*t t

(Lollor Quality) C lion Prownlar BS10AP Gemini 10>! Epson Cnrtlpfinl G Numeric Keypad

Call Call Call Call 39 00 29.95

1-714-643-1056

800AM-600PM PST Won -Sat or send clieck or credilcard number signature and e'p ffliton dale Please include phone numD*r Visa'Maslercard add 3% Personal cnechs a ow 2 weeka to c'onr CA residents add sales ta> Shipping & Hi ndling UPS - S3O( . APO. FPO. Canada, US Mail - U00

V

C all lor Price Quotes of Producls Nol Listed hardware O'lra) P icesiubjacE lo change

J


COMPUTING

for families

New Standards In Home Learning Part 2 Fred D'lgnazio, Associate Editor Now that computers are going into the schools in record numbers, we are finally realizing that we have gone about things all wrong. Before computers arrived in the schools, we

should have laid some groundwork. Parents need to be briefed. Teachers need to

be trained. Schools need some way to purchase software, course materials, books, and magazines. Teachers need some guidelines for purchasing

new computers, new software, new computer equipment and materials. Standards and proce dures for product review and evaluation need to

be agreed on. Children need to be consulted.

Parent Training The situation at home is even worse. Computers are popping up by the millions at home. Parents who don't know anything about computers are running out and buying software, materials, and equipment based on dealer recom

mendations, the pictures on the software pack ages, and occasional reviews and recommenda tions they see in magazines and on television.

I think most parents are anxious and bewil

In school, people are finally realizing that teachers need in-service training in order to inte grate computers fully into the schools. And if teachers are getting training, why not parents?

Courses should be set up for parents to attend. The courses should be jointly created by teachers, computer vendors, parents, and children. The courses should concentrate on training parents on how to use computers as home-learning tools. Learning at home should be emphasized. Par ents should not be taught to copy what teachers are doing at school. The situation is different at home. Parents should be given the information

and skills they need to cope with the problems they face at home.

A parent-training curriculum might include the following areas: • Which computers best lend themselves to home learning? • What are the best home-learning programs? • Which new kinds of computer equipment

can help home learning—like touch pads,

dered about computers. But they are also incredi

light pens, speech synthesizers, and key

bly curious about what can be done. "How can my kids use this computer?" they are asking. "How can my kids use this computer to be happy and successful?" "What can my kids learn on this computer?" "How can my kids learn?" "How can this computer help my kids at home?" "How can

board overlays?

it help them in their schoolwork, and prepare

them for growing up?" 74

COMPUT6IS Camlle

JUnol9BJ

• What materials should come with software to help guide parents and to supplement computer learning?

• What are some basic guidelines to help parents evaluate home-learning software and materials?


-^-=

follow our path to the future of home computing. Welcome to the next generation of home computer software and hardware...from Futurehouse. We help you get the most out of your computer. The most personal productivity, the most education, the most entertainment. The most for your money. Follow our path to the future... For your financial future., the Complete Personal Accountant is an award-winning line of money management software. For your creative future...the Edumate Light Pen is a low cost, high performance peripheral which draws, entertains and teaches. It is rated the best in its price range and out performs even the most expensive light pens. For your child's future...Playground Software, our educational series, uses the Edumate Light Pen and S.A.M. (Software Automatic Mouth) to teach and delight your children. The series includes

Alphabet Construction Set, a unique program that teaches children how to draw the letters of the alphabet. For your artistic future...with Peripheral Vision and an Edumate Light Pen you can create sophisticated works of art on your screen. Choose from dozens of advanced graphics routines and then save your artwork to disk or print it on your printer.

Let Futurehouse lead you into the future with quality products for your home computer. Contact your local dealer or order direct

1-800-334-SOFT. Don't wait for the future...it's here.

futurehouse Futurehouse products are available lor Commodore 64'Vic 20r Atari

TRS-flO Colnr. and IBM PC

|r. computers. When ordering please Specify computer, cassette or dish and memory

nai Accouniii!

EUumjro LigM Pan

D ATifl TflSfloColur ini}J0H PC i' flr

ouno BoUttlu And- Ainh.ihpi CmUrueiiori £>! «rt ( iiurr><j (r,i<i#r«;iPksnl Cammurlorr Elct:lranirj» LIB

At

inc

Bo>34fO CnarJci mil

NC

Ccrr


• Which publications, catalogs, etc., bring

the best new equipment, software, and

materials to parents' attention?

• What techniques should parents use to actually shop for and purchase home-learning materials?

• What are the best local stores—in terms

of service, hand holding, training, and dealer support? What are the stores with the nicest, gentlest salespeople—people who like and understand children and who know how to talk in English?

• How can parents set up "user groups" of fellow parents who are interested in teach ing preschoolers, elementary-age children, or secondary-age children, or handicapped or learning-disabled children, or children

who need help in science, social studies,

language arts, math, reading, or writing, or kids who are talented or gifted?

Sharing Your Experiences In upcoming columns I hope to explore some of the new dimensions of computer learning that take us by surprise.

Also, I'd like to hear from you. If you or your children have learned from the computer in some

novel, unexpected way, please share your experi

ence with me. Write: Fred D'lgnazio

2117 Curler Road, SW Rotmoke, VA 24015

To demonstrate that there are new, un

explored dimensions of computer learning, I am gathering stories and experiences for future pub lication in my various columns. I would love to hear from you!

Learning As Entertainment Before you write me, I'd like you to think about something else, too. Then maybe you'll share your thoughts with me. I think that computer learning at home may

Learning By Surprise

soon cease to be called "learning." Instead, we

Thanks to the computer, learning at home will soon be as important as learning at school. But it

entertainment.

can't replace school. Nor should it try.

Computer learning at home should reinforce, complement, and supplement classroom-based education. Parents and teachers should work closely together to make sure that the mix of home and school learning is the most efficient mix pos sible and in the best interest of their children. Coordination is crucial. The debate on home learning using com puters has just begun. Most of the important sub jects haven't even been covered—or discovered. Education at school can receive important, surprising boosts from home computers. For ex ample, let's say a child is having trouble with social studies at school. The child has the aptitude for the subject but is utterly bored by the material. Boredom and lack of interest are reflected in the child's grades and behavior in the classroom. The parents could strap the child to a desk every night and require doing extra lessons and more time studying the boring textbook. Or

they could purchase some of the new "social studies simulations" software. The software might turn the child into a cartographer to map out a newly discovered continent, or a population

planner, or an advisor to President Lincoln during the Civil War. The most important thing the software could

do for the child is bring the subject to life. It could awaken the child's interest and bring an excite ment to the subject which could transform the child's whole attitude and performance in the classroom. 76

COMPUWs Gazelle

June 1934

might end up putting it under the category of

Think about it. The words education and learn ing, for many adults and children, have a negative connotation. For them, the experience of learning is associated with pain, embarrassment, tedium,

and boredom. Computer learning often isn't any different. But it can be. Computer learning can be made so pleasur

able, so joyous, and so rewarding that it may slip unnoticed into the category of "entertainment." It may become a new form of entertainment that feels good to a person at the same time it benefits and changes him or her in a substantial way. If home-learning programs arc designed with

enough imagination, subtlety, and respect for people, they may soon become more popular

than videogames were in their heyday. Families will gather around the computer, like an "elec tronic hearth." Instead of watching TV, they will spend many active, enjoyable hours together every evening learning new things on their computer.

And they won't think of it as work, learning, or education. They will think of it as entertainment.

Learning As Expression In one of my recent columns ("The New King Of The Mountain" in the February GAZETTE) I showed examples of how computers can boost a person's

abilities in art. The person in my article was my four-year-old son Eric, and I wrote about the amaz ing things he was able to do using the KoctlaPainter art program and the KoalaPad touch tablet. Computers can open new doors into areas of


self-expression we never knew existed.

design a working star, or construct an erupting

New programs like Music Construction Set, Micro Illustrator, MusiCalc, Delta Music, Fun Writer, and

volcano? How would you like to create a working model of the human heart? Or construct a gene, a

Word Vision, allow us to express ourselves in colors,

DNA molecule, a bacterium, or a one-celled

shapes, and designs, in words, and in music.

amoeba then bring it to life? The delight and thrill you'd feel wouldn't come just from the intellectual experience of build ing a computer mode! of .1 heart, an amoeba, or a

And we can start creating the moment we sit down at the computer!

Gone are the hours of manual-reading just to learn how to use the computer. Gone are the ad

ditional hours needed to master the technical complexities of drawing, sight-reading musical

scores, composing, or typing on a standard type writer. With the right software, the computer can act as a booster and an amplifier for our skills and can enable us to directly tap our imagination and produce new creations in various media.

Most of us, by the time we become adults, walk around witii a little "editor" inside our heads.

volcano. It would come from creating a beautiful, emotionally satisfying work of art-—like creating a pretty picture or a moving piece of music. The computer's greatest value as a learning tool comes when it mixes process and product, when it blends the technical and scientific with the artistic, and when it frees us of inhibitions and taps our imagination, yet still challenges us to acquire more skill and do better.

Learning by surprise, learning through en

tertainment, and learning by expression are some

Whenever we do anything the editor reminds us that we are either good or bad at that thing. It tells us whether we are knowledgeable or ignor ant, skilled or unskilled. It assesses our past efforts and predicts whether our performance will be graceful or awkward, and whether the results will be elegant or ugly. We pay closeatlention to our editor. Listening

of the ways computers can help people learn. They are ingredients for profound and permanent learning. These ingredients and many more, as yet undiscovered, should be present when we use computers to learn at home. They should be included in new standards for computer-based home learning.

to the editor keeps us from making fools of our

who, through discussions during the recent Con sumer Electronics Show, helped contribute to the

selves in new situations. For example, by the time we arc adults, if we haven't become accomplished musicians, writers, or artists, we shy away from

these areas. We do not casually sit down with guitars, typewriters, or paintbrushes. We know

how bad we'd look, and the kind of trash we'd produce. We know because our editor tells us. But now we have a way of disabling that editor and, simultaneously, of being able to produce

works of art that are beautiful and personally satis fying. We can do all this by using new kinds of computer tools.

Just The Beginning But expressing ourselves is just the beginning. These programs should also act as a stimulus to

get people learning more about the discipline of music, the discipline of art, and the discipline of writing.

New programs should pick up where these programs leave off. They should be more than "builder kits" and "construction sets." They should challenge us to a higher level of achieve ment in each of these disciplines, while rewarding us with beautiful creations along the way. And why do we have to have construction

sets for the arts? Why don't we see mathematics construction sets, physics construction sets, chemistry con

struction sets, and biology construction sets? How would you like to build a budding rose,

My thanks to the many industry watchers

ideas in this article. BS

C" COMMODORE-64 BDFTLURRE-DF-THE-rnQNTH CLUB*-1 (division ot OC S . Inc )

We guarantee you'll never again buy useless software for your personal computer.

•—

CLUB MEMBERSHIP OFFERS BIG SAVINGS ♦ NO OBLIGATIONS *

When you enroll you will

• Keep only the software Ihflt you cnn use. Examine for a full 1D days; II K'b not whal you wanf, return It—wlih no

obligations. • deceive discounts up in 30% on your software choices.

On aliglbla for our Bonus Fofnl Plan— nddlllonnl

rJlacaunis

appllad

tabard

SDCBi;; Du, Intom.llv. monthly neW8. ,„„„

1ul|

0(

he|

M

,.

fDl

,hE

mast from your Commodore-64.

■ Rocolvo notice of Special Sales where you'll save as much at 50% off list.

Because me support what we sell,

our Technical Stall will assist you with any questions you may have. Enroll now and receive absolutely tree Public Oomaln Software.

Please check

D Cassette

D Disk

GREAT IDEA! I can't Inae. Enroll ipb now In the Commodore-£4 Software-aMhe-Mantn Club. I understand there Is no obligation. Enclosed Is my 510 membership lee. Check

I

Money Order

Bank Card

htvriM ddtfross

C/ly.SMlBj'Z/p Whom/-*

Expirevcn claw

Cinnarjiri

Cut out and mall loan/ to

0

SOFTWtng-OF-lHtMOWH CLUB Ohio Computer Sarvlcol. Inc. P.O. Hoj. 128723 Cincinnati, Ohio 1521!

1239SES


Therapy

Steven Rubio It'll never replace Freud, but "Therapy" may

just cure your blues. For the expanded VIC-20 and Commodore 64.

Eliza was a bit stand-offish; and rather dumb, besides. The problem in BASIC is that Eliza tries for too much. Searches of fifty keywords and a hundred responses slow Eliza down; and in its attempt to give meaningful comments to nil the

user's statements, it consumes a lot of time for "Eliza," the computer psychotherapist, is prob

only occasional, if spectacular, success. The off-

ably (he most famous of all programs dealing with

the-wall pronouncements of Eliza often elicit laughter and vexation. This is all right, since Weizenbaum never intended the program to substitute for actual therapy. But when showing off your computer to friends at your next get-together, it might be fun to have a program to demonstrate your machine's "intelligence." Program 1 is Therapy for the 64. Program 2 is the VIC version, which requires memory expan

artificial intelligence. Written in LISP by Joseph Weizenbaum in 1966, Eliza has run on computers

of all sizes and types, including home computers programmed in BASIC, in the ensuing years. There is something fascinating about carrying on a seemingly reasonable conversation with a

machine. I still remember the thrill when 1 first learned my VIC could ask me a question (what is your name?) and remember the answer. This thrill is what prompted me to write "Therapy."

A Smarter Therapist Why another version of Eliza? Mainly because

sion. Any amount of expansion (3K, 8K, etc.) will work.

1 would be glad to hear from any of you re garding this program, or any similar ones you

when written in BASIC, Eliza is extremelv slow,

may have written. I can be reached on Compu

taking as much as ten seconds to respond to your comments. It seemed to me that for a therapist,

Serve, user ID #74105,1477.

78

COMPUTEI's Gazelle

June 1984

Sec program listings on page 163. (Of


Introducing

the first word processor

made especially for the home

The Personal Word Processor TYPING AREA

1. A POWERFUL WORD PROCESSOR * helps you be the best writer you can be * at a fraction of the price of most others

2. EASY TO LEARN * audio cassette guide to the basics * instructions written in plain English 3. EASY TO USE * pictures illustrate your choices

|

" !

Mgjl

I

VISUAL MENU

HomeWord makes writing easy. Changing what you write is even easier. Since Ihc commands are illustrated right on the screen, you don't have to memorize any

ENTIRE PAGE

Features Include add,

move

and

erase

blocks of lext

'

automatic page numbering

"

print

documents

automatic outline indents

unlimited length

complex codes.

underline, boldface, upper

universal

Yel HomeWord's simplicity is deceptive. Although easier to use,

and lower case

replace

reliable

it offers you the power of more

retrieval of all your files

storage

and

search

Yes, HomeWord is the best buy for your money. . .and the best can

buy!

HomeWord

is

available for only $69.95 on the Apple II. II + , He and Commodore 64. Coming soon on the Atari! TM designiMos a iraasmiirk of Ssrrs OrvLmo, Inc. ■

iM3 Sierra On-Una, Inc.

\ Stem On-Line l

and

easy view of movement through your files

expensive word processors!

money

of

! • CutrtgaU, C\ 1MI4 • <H») OSJ-68JB

DISPLAY


COMPUTE! Books MAPPING

COMPUTE!'* Reference

THE

Guide To Commodore 64 Graphics

Commodore

64

A complete tutorial on

Commodore 64 graphics. Noted Commodore author

John Heilborn explains how to program sprites, multicolored screens, ani mation, custom characters, and more. Beginners will

like the step-by-step in structions and clear ex ample programs. Advanced

Mapping The Commodore 64 An invaluable memory map. Complete derails on the functions of pointers, the stack, ROM and Kernal routines, and more BASIC

programmers will find easy-to-understand expla nations of advanced pro gramming techniques. Programmers using ma chine language will find a wealth of useful locations

and ideas for program ming. For intermediate to advanced programmers.

programmers can build up their tool kit with the character editors, sprite editors, screen design program, and orher useful utilities.

288 pages, paperback.

218 pages, paperback.

Spiral bound for easy access to programs.

Spiral bound for easy access to programs.

S12.95

S12.9S

ISBN Q-W186-29-9

COMPUTIls

SECOND BOOK

COM1

COMPUTE.'s Second

,<*0f

—"CCMV5ODORE—

Book of Commodore 64

64

Continues in the tradition of the best-selling First Book o! Commodore 64 in

presenting quality pro

-• i ^ I.* i*i-U-/pur

grams and articles, many revised or never before

COMPUTE'S First Book Of Commodore 64

An excellent resource for users of the 64. with some

thing for everyone: BASIC programming techniques, a memory map, a machine language monitor, and

published. There's some thing for almost any 64 user: arcade and text ad venture games, an impres

information about writing games and using peripher als. Many ready- ro-type-in programs and games.

sive word processor, a

program which adds 41 new BASIC commands, an

electronic spreadsheet, sound and graphics tutorials, and information on saving, copying, and retrieving files.

264 pages, paperback. Spiral bound for easy access to programs.

288 pages, paperback. Spiral bound for easy access to programs.

ISBN 0-W386-20-5

112.95

5BN0-942386-4-! 2

$12.95


Book Of

Creating Arcade Games On The

Commodore 64 Games

Commodore 64

Packed full of games: "Snake Escape," "Oil Ty coon," "Laser Gunner," "ZuiderZee,"and many more. Machine language games requiring fast hands and a good eye, as well as strategy games which will

This book develops

COMPUTE! s First

explains the principles of game design; includes

general programs for using the screen, custom charac ters, animation, sprites, sound and music, and other features of the 64. Aiso includes five games.

exercise your mind. Intro

Just the book for program

ductory chapters and an notated listings provide ideas and techniques for writing games. An excellent introduction for 64 owners who want to begin writing games.

217 pages, paperback. Spiral bound for easy access to programs. 512.95

mers who want to learn

how to wrlie fast, exciting arcade games. 357 pages, paperback. Spiral bound for easy access to programs. SI 2.95

ISBN 0-942386-36-1

IS8N 0-942386-34-5

COMPUTE!'* Third

Commodore 64 Games For Kids

Book Of VIC

A potpourri of games, ap plications, utilities, and programming techniques, some neve: before pub

Dozens of games for kids

of all ages. An instant library of educational software. "Stargazer" displays the constellations of the night

lished. Tricks for saving memory, four games, budget planner, custom

sky. "Movers and Shakers" tests knowledge of histori

characters. PEEK and PRINT for the VIC, Graph Plotter.

cal figures. "Hidden Pic ture" lets children uncover a series ot drawings. Also, games featuring music,

Music Composition, and Automatic Program Ap pending are just a few of the fine programs and

spelling, and world geo graphy Appropriate grade

chapters. Also, appendices

and reference tables. Third Book of VIC is a useful source of ideas for programmers of all levels.

360 pages, paperback. Spiral bound for easy access to programs.

levels are clearly identified. 2b I pages, paperback.

Spiral bound for easy access to programs. 112.95 ISBN0-94238&-37-X

$12.95

ISBN 0-942386-43-4

COMPUTE!' Publicationsjnc One or tr>e /*&C Publishing Companies

Post Office Box 5406, Greensboro, North Carolina 27403


Spelling Critter Bob Nickel

TO

REVIEW THE

UOBD PRESS ?

KEY

HOM DO YOU SPELL THAT HORP '*C

XVLOPHOK

I'M SORRV, THflT IS HR0H6 JOSEPH THE CORRLC1

The "critter" does his thing when the word is spelled correctly

ANSUCR IS:

XYLGPHOKt

In this 64 version, a correct spelling is given.

(VIC version).

This spelling program lets your child choose the words in the quiz, and features an animated

critter which keeps track of right and wrong answers. For the VIC-20 and Commodore 64.

One of the great uses for the home computer is education, and a wide variety of educational pro

grams are available for the VIC-20 and Commo

100

B=INT(RND(1)*N)+1

110

Z=Z+1

470

IFZ^N THEN

480

GOTO100

500

The critter is built in lines 20-32. There are actually three parts to the critter, one tail and two heads. You will not see one of the heads, but it is needed for the chomping effect. This is all done with a programmable character routine, which is

extremely easy on the VIC. The Programmer's Ref

dore 64. The only exception is spelling programs. If you have ever tried to put your kids' spelling list into someone else's program, then you know

erence Guide goes into this in depth (pp. 82-88).

what I mean.

There are two subroutines for the animation. Lines

This is the magic of "Spelling Critter." The program actually asks you what words are to be

7000-7080 move the critter for a correct answer

used. This way the kids will be more likely to use

wrong answer. Lines 100-160 display for one sec ond, which is enough time to read the word, but

it on their own.

There are three main parts to the program. Line 50 sets up an array lo store the words. Lines

5000-5300 input the words with a FOR-NEXT loop. Lines 100-120 gel the words back, one at a time, with another loop.

A Random Quiz If you want the words to come up in a random pattern, the following changes should be made.

All the words may not be displayed, however. 82

COMPUTE!'* Cazalle

Juno 198-1

Animation Subroutines while lines 8000-8080 are the animation for a

not long enough to memorize it.

The rest of the program should be selfexplanatory. The program will accept up to 50

words. Each word can be up to ten letters long without exhausting the memory of the unexpanded VIC. Try the critter on your kids. It fills an impor tant spot in educational programming and can be downright fun. See program listings on page 167. (Qf


BOOKi For The

OMMODORE C-64 VIC-20 ME COMPUTER ■:.■

<T Software D

r

500 descriptii a-—

l^Bfffr■ .. ..'€...

—7 J

\

\

GET/I

FREE! lust Call Us Toil-Free

1-800-348-2778 Or send your name and address to:

7

TENEX, Box 6578, Soulh Bend, f2J9; 277-7726

IN 46660


Shape Match Michael Reich

Do you have a preschooler who demands time on the computer, but can't handle complicated

software? "Shape Match" teaches pattern rec ognition, and it's easy to use. For the 64 and

expanded (8K + ) VIC.

the computer know which one was picked? The solution is an array (lines 60 and 70). The computer checks which box is lit, compares it to the array, and decides if it is the right answer.

Shape Match was written for the Commodore 64, although it will run on a V1C-20 with 8K or

In Shape Match, a child has to match the shape on the screen with one of four other shapes, It's a good idea for an adult to sit with the child while the game is running, to provide suggestions (and

praise when the answer is right). A simple idea can lead to complications,

more of memory expansion. For those who might want to add music or

other features, here is a breakdown of the program: Lines

Determine if the program isK'ingrumina VIC

50-57

nrM, DIMension array CL, select screen & bi irder colors

however.

Initialize array Prints four boxes

A young child is not capable of handling a joystick or moving a cursor around the screen with keyboard controls. And yet there must be a

Print a shape in each box

Use random variable K (from line 310) topicka

way for the child to indicate his or her choice.

shape for the match. Variable KK holds the last K value to prevent consecufive repeats.

The answer is to have the program point to

the different answers. The child presses a key to make a guess. Lines 600-687 move the colored box from answer to answer and periodically go to

the subroutine at 700 to see if a key has been

Move cursor through each box

Chock Un response and evaluate answer 1000-1095 Print board with jump from line 200 Subroutine to locate correct screen location for

1170

all printing

pressed.

2000-2330 Prinl statements for four shapes

Another difficulty is how to figure out whether the child is right or wrong. Of the four possible answers, only one is correct. How does

3000-3200 Instructions

pHl

ip

■•-1 *

I

The program cycles through the patterns igniting for the child's guess (VIC version). 84

COMPUTE!1* Gazelle

See program listing on page 180.

June 1904

+

,

A

A correct answer is given in the 64 version.


Immrom The Creators of HELLCAT ACE!

A real flight simulator allows you the pilot to accomplish Takeoffi Landings, Cross-Country Navigation, and Emergency Procedure pract

under Clear (VFR), Cloudy (IFR), and Cross-Wind conditions. SOL FLIGHT is such an advanced simulation that uses realistic three dimensional terrain graphics, actual configuration instrument panel multiple air navigation maps, and accurate aircraft performance characteristics to provide the challenge, thrill, excitement, and joy flight experience!!! Three-Dimensional Terrain Graphics

ountry

Muifiple Airports

Navigation — Day

and Runways

VFR and IFR

- Emergency

Dual Radio Naviga

Procedures Practice

tion Instruments

- Air Mail Delivery

Game for 1-4 Players

ull Feature, Actual Configuration

mooth Landing &

Instrument Panel

Good Navigation Scoring

Multiple Air

or All Alan and

Commodore 64

Navigation Charts

9

computers, disk or cassette . . . $34.95

Instrument Approaches

MicraProse's two new exciting real time combat simulations Write or call for our Free Catalog. if you cannoi find our games at your local store, you can order by MasterCard or VISA, Money Order,

COD or Check. Add 52.50 lor Postage and Handling. Maryland Residents add 5% Sales Tax.

10616 Beaver Dam Road, Hunt Valley, MD 21030

() 301) 667-1151 151 _

HUM. ,1-t.


RACAED teDa

UO gSetn

Word Scramble Mike Salman

Match wits with an opponent in this game as

At the top of the screen, a display of the

you play against time. For two or more players,

elapsed time appears, followed by the scrambled

VIC and 64 versions are included.

word. Below the scrambled word, a bar appears,

"Ward Scramble" is written for two players, but

you type the wrong letter you hear a buzz. Type the right one and you hoar a beep; the letter then

you can make up teams and enter the names of the team captains as the two players. The com

puter first asks you for the names of the players. It then instructs player one to enter a common word (maximum ten letters).

A Three-Minute Puzzle When the word has been scrambled, player two presses the space bar to sec the scrambled letters.

The player has three minutes to discover the word. U

COMPUm-sGazotlo

Juno 1984

on which you type the first letter of the word. If

appears on the screen.

A Ten-Point Penalty If you find the word within the allotted time and have made no wrong guesses, you are awarded fifty points. For every wrong guess that you make, you lose ten points. A Scoreboard is displayed every second turn so you'll know when both players have played an equal number of rounds.

See program listings on page '170. >!3


Look at these Features

• Fully screen-oriented •

Horizontal and vertical scrolling

• Terminal mode — never seen before on a word processor

• Supports Commodore disk and cassette handling

BLIZTEXT in t»dtmark oi ELC0MP

PUBLISHING, INC.

Imbedded commands

NEW

BLIZTEXT

NEW NEW

WORDPROCESSOR FOR THE COMMODORE 64 Commodore-64

NEW NEW

and

NEW

VIC-20 are trademark! of

NEW

Commodore

Bunne a Machine*.

NEW NEW NEW

(of the Com mo do re-64 - ON SALE N0W1 -

by Franz Ende

Hardware Add-Ons: Parallel printer interface KIT

Ordar^4990 £ 19.95

46 programs for the Commodore 64

Universal Exparimonter Board

Ordsr#4970 S

Introduction to graphics and sound. How to program

Expansion Board, space for four ex

Kro 11 Ing - Upper and lower case

your

perimenter board5(board onlyl

Morn than 70 commands

resolution graphics, programming Tip* and tricks, hints

BLIZTEXT - SUPER WORDPROCESSOR

Fully icr eon-or ion tod, up/down, loft Dnrt right

• Full I/O compatibility wild Commodore neriphemls Upper and lower case

• Works with practically every primer on the market, user definable printer control command!

• INCLUDE command allows handling

largo fill!

on up to 4 diskettes or on cassette.

Build in terminal software for electronic mall and networking. Telecommunication* mode, upload and download, save on disk or cassette. Dynamic formatting, Imbedded com mind i Program comes on disk or cassette

• Double Una spacing, left and right margin {unification, centering, page numbering, and practically everything one expects from a good word processor.

Order #4965

Manual only

AVAILABLE NOW!

(62 pages)

Programs from the book on disk,

Order = 4988

S19.9S

MORE ON THE SIXTYFOUH, by H.-C. Wagner 64,

Very

important subroutines, cricks and

hints

2.)

commands) Very fast assembler with macro capability

How to connect a parallel and serial primer. How to

design your own terminal program for communication and networking. Dig Into 1/0 for cassette and disk.

S9.95 K19.95

BonkNo.184

S 12.95

C64

5UPERMAILING <D) Order No. 4962 £49/

How lo program in 6502 Machina Language on your

C-64

, by S. Roberts (Introductionl

Order.= 184

Super in yen lory ■ 3 ' Cvder-No.4961 S 49,BUSIPACK 1 ID) Order-No. 4963 ESS,-

£12.95

Commodore-64 Tune-up, Vol. I,

3 panel. More than 1,000 lablcs. screen oriented/no line numlian, scrolling, includes disk files. language

programmer noeds everyday I

Manual only

BIO.95

Order#4963

EBS.OO

Order ^f 185

by 5. flobem

SixtyFORTH ID)

S12.95

FlgFORTH for C-64

Small Business Programs (or the Com modern-64

Order-No. 4960 S39,-

by S, Roberts How

To make

money

using your C-64. Mailing

For vour VIC-20 Trlcki for VICt Order-No, 176 E9.9E Unlvsnal Expsrlmen-

list,

invoice writing, inventory, simple word processing grid much more.

Order #185

B 12.95

Dealer and Distributor in a wries are invited. PAYMENT:

Book No.182 E9.95 NEW Producti for the

How to expand and customize your C-64.

3.) Machine Language Monitor Assembly can be started from the editor. Translate! In

HOFi

in

mechino language for your C-C4, How tn modify DOS,

come soon. ON SALE NOWI ■- ORDER TODAY!

(more than 70

machine

S9.95

128 pages

Order#4992 E 29.95

Tricks for VICs, No. 176 89.95 Universal Experimenter board for VIC 89.95

Wetch out for our new books, loftwaro and add-ont to

Fully

serious

G 9.95

Order = 182

NEW PRODUCTS

IJ

the

Come and get it - It's yours lor only

Order #4989

combined into one elficient programi

everything

programmer. This book is a MUST for every C-64 owner.

629,95

One outstanding tool, consisting of 3 powerful elements

Practically

high

and useful subroutines for the beginner and advanced

Programs from the book on djsk

AVAILABLE IMMEDIATELY

Editor

pictures, animation,

Order#183

SALE NOW

screen-oriented

Walking

£89.00

MACFtOFIRE Editor/Assembler for the Commodore 64 ON

own games.

9.95

How to get the most out of your powerful Commodore

• Singi* keystroke (or disk directory and error channel •

THE GREAT BOOK OF GAMES, VOL.1,

ter board Bank No.183 E9.QS

chock, money order, VISA, MASTER

CARD, Eurocheck, ACCESS, Interbank

Prepaid orders add S3-50 for shipping (USA)

£5.00 handling for C.O.D. All orders outside USA: add 15 % shipping, Califor nia residents add 6.5 & sales 111.

Order-No. 4S44S9.95 ELCOMP PUBLISHING, INC

53 Redrock Lane Pomona, CA 91766 Phone: 17141623 8314 Telex: 29 81 91


THE BEGINNER'S CORNER C. REGENA

Planning A Game Program This month, lefs explore a step by step procedure

GET is easier to understand. CET ES gets the key

to write a game. To keep it simple, yet worthwhile,

pressed, and we need to make sure the key is one

we'll create "Tic-Tac-Toe." It's easy to understand, and everyone knows the game, but programming

it involves graphics, logic, and strategy. 1 started out with the graphics. Tic-Tac-Toe is graphically simple, an X marker, an O marker,

and four straight lines. On the Commodore 64, I let the X and O markers each lake up a pattern 5 characters x 5 characters, so the basic game grid needed spaces 7x7. On the VIC, we have larger characters and fewer characters per line, so I chose

X and O markers 4x4, and the grid needed 6x6 spaces.

Creating The Grid The grid lines are made up of solid blocks one char acter wide (the reverse space). You can cither PRINT

the grid or use a series of POKEs to place the colored squares on (he screen. I chose to use the POKE

method. First the screen is cleared and a random color chosen for the grid, in line 790 of the 64 version (line 38 in the VIC version). The random color on

of the numbers from 1 to 9. Ali other keys are ignored.

Plotting The Move VAL converts the string ES to a VALue, the number E. P(E) is the value in that position on the grid—3

for an X, 1 for an O, and 0 if there is no marker in that position. If there is already a marker on the position chosen, the player must choose again. If the square is available, P(E) is set to 3 or 1, S(E) is the coordinate of the position, and the appropriate marker is drawn. This process is in lines 980-1000 (VIC 47-49). Next it's the computer's move. For the beginner

level I just let the computer randomly choose any one of the available spots, lines 930-950 (VIC

44^45).

Since the value of N or X changes between moves and can be either 1 or 3, the relative formula isN = ABS(N-4), line 540 (VIC 27).

the 64 can be one of 14 colors, but not black or white. (You couldn't see a white grid, and 1 didn't like

Is The Game Over?

black.) On the VIC there can be six colors, but not

After each marker is placed, the computer checks

black or white. The grid is drawn in lines 800-870 (3<M0 in the VIC version). In the 64 version, the variable A is previously defined as 160, the screen code for a reverse space, or a solid block of color. To draw on the screen, you need to POKE a screen location

to see if the game is over. First the rows are

checked to see if there are three X's or O's in a row, lines 361M00 (VIC 12-16). Next the columns are checked to see if there are three the same in a column, lines 410-450 (VIC 17-21). Next, diagonal

wins are checked, lines 460-480 (VIC 22-24). If

with 160, then POKE the corresponding color loca

there isn't a win, all spaces are checked. If all

tion with the color. The variable C relates the screen

spaces are filled, it is a tie game. If there are

memory location to the color memory location. Lines 880-H90 (VIC line 41) place numbers in the positions to be chosen as plays are made. The X and O markers are drawn in subroutines

empty spots, (he game continues, lines 490-530

at the beginning of the program, lines 120-280 (VIC

{VIC 25-27). If there is a winner, the program branches to lines 1540-1700 (VIC 89-97), to congratulate the winner and play a tune made up of random notes.

2-7). The nine coordinate positions for the markers

The program then offers the option to try again

to be drawn are READ in as S(l) in lines 590-610

and branches appropriately. Lines 570 and 640

(VIC 2S-29). The graphics are now complete.

(line 3! of the VIC version) set variables for playing

Next I programmed the player moves. The

the music and the prompter beep, and the sub

squares are numbered so the player just presses a

routine in lines 290-330 (VIC 8-9) plays the tone

number from 1 to 9.1 like to avoid INPUT if at all possible. In this case only one key press is necessary, so we can use GET. You could also use PEEK, but

and delays.

88

COMPUTEIS Gazelle

June 1984

The game could be complete now, but it

wouldn't be very challenging because the com-


TIMEWORKS HOME MANAGEMENT SYSTEMS. 4 EASY WAYS TO GET YOURSELF ORGANIZED.

your checkbook

We'll handle your

budget. Your check

book. All your ad

dress lists, recipes, club, client, and

vendor lists And make your life

infinitely easier

There's almost no end to what our in credibly easy-to-use Home Manage ment programs can do to help you get yourself together

TIMEWORKS MONEY MANAGER. Our home and business budget and cash flow systems let you input sixteen budget and actual categories on a monthly basis, for a 12 month period.

Provides full analysis, including budget and actual comparisons, plus detail by individual categories

Bar charts provide a graphic rep resentation of your budget and actual amounts for each period. Because the Money Manager can be interfaced with Timeworks Electronic Checkbook, you can

transfer actual expenditures through your computer to your budget program, loo

TIMEWORKS ELECTRONIC CHECKBOOK. A complete system thai organizes and records your transactions, and computes

balance automatically. It sorts and recalls your

transactions in a number of ways: by date, description, or classification to name

just a few Our exclusive X-SEARCH

feature is a big help at tax time, because it lets you cross search any category easily

TIMEWORKS DATA MANAGER AND DATA MANAGER 2.

Throw away your index cards and cluttered files These menu-driven programs let you store and retrieve a wide variety of important lists, dala, and information X-SEARCH allows cross searching through any category to locate specific groups of items easily. Statis tical analysis is also possible for any statistical data entered into the system. There's more lo every Timeworks Home

Management System lhanyou've ever

seen before Much more (We've only touched on the highlights ) So get yourself

organized Get Timeworks.

FOR COMMODORE 64, IBM PC, PC Jr. AND COMPATIBLE COMPUTERS.

Now at your lavorile dealer For further information,

contact Timeworks. Inc., 405 Lake Cook Road.

Deerlield.IL 60015 312-291-9200

â– '1963 Timeworks. Ire All rights reserved. â– fiogistO'Od trademarks oi

Commodore Computor Systems and International Business Machines

Software With Substance-For Everyone.


A tie game offers another round (VIC version).

Standard character* make a clear display (64 version).

puter's moves are chosen randomly—no strategy

CLR Or Crash

involved. Now we need to add an intermediate

I used the command CLR if the option to play again is chosen. This command clears the memory of all variables and unsatisfied FOR-NEXT loops and GOSUB-RETURNs. Without CLR, after several games I would get an OUT OF MEMORY message,

level of piny and some method of choosing the computer's moves. I'm calling this an intermediate level so you can add your own advanced level and perhaps a more sophisticated way of winning.

The Computer Gets Smarter The computer's intermediate level of play is in

lines 1030-1530 (VIC 51-88). The strategy I used was first to get the center spot if it is available, line 1060 (VIC 52). On later turns, if the computer

has the center spot, it checks for possibly winning by filling the two diagonals. The columns are checked in lines 1130-1200 (VIC 58-63). If an opposing marker is in the col

umn, the column is ignored. If there isn't an op posing marker, there is a check to see if two of the computer's markers are in the column. If so, a marker is placed in the remaining spot to win. The rows are checked similarly in lines 1210-1280 (VIC 64-69). if the computer doesn't spot a winning pos

sibility, it will then check lo prevent title oppo nent's winning. If there are two of the opponent's markers in any column, row, or diagonal, the computer will block the win, lines 12y0-l490 (VIC 70-87).

If the computer does not spot a column, row, or diagonal with two like markers in it, the com puter just chooses a place at random. You can probably follow the logic in the 64 version, but I had to take out the REMarks to save memory in the VIC version. In the IT-THEN state

which can be caused by too many nested FOR-NEXT

loops or too many GOSUBs in effect. Notice that the IF statements transfer control out of FOR-NEXT loops and out of subroutines. The last step of programming was to add the title and instructions at the beginning of the game. I usually PRINT the title and instructions as I am

defining variables for the program. The title and instructions are in lines 560-690 (VIC 28-31). The

options of markers and level of game are in lines 700-780 (VIC 32-37). The program isn't complete until you test it. Game programs usually involve quite a bit of testing. You need to check all types of player input—right choices, wrong choices, other keys. In this particular

game I had to check the player choosing first move

or second move and beginner level or intermediate level (all combinations). I also checked the player winning, the computer winning, and a tie game. The supreme test is to have someone else try the

game for you. If you are typing in the VIC version of this game, be sure to leave out all unnecessary spaces. Notice that the lines are numbered by ones to conserve memory.

If you wish to save typing effort, you may obtain

a copy of Tio-Tac-Toe by sending $3, a blank cassette

or disk, and a stamped, self-addressed mailer to:

ments, P(K) will contain the value of the marker

C.

in a particular position, number K, where Kis

P.O. Box 7502

one of the nine positions. P(K) can be 0 if no marker

is there, or 3 or 1 if a marker is there. After THEN you can set E to the position chosen, then GOTO

a different line. 90

COMPUTED Gazelle

Jure 1934

g

Cedar City, UT 84720

Be sure to specify the title and which computer version you need. See program listings on page 171. W


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

urappicr

Printer Interface

The Revolutionary Printer Interface for the Commodore 64 TM A New Era in

Commodore Printing Power. Grappler CD offers trie first complete answer to your printer interfacing requirements, with many powerful capabilities unique in the Commodore marketplace. Complete signal translation allows many popular name brand printers to operate

perfectly with the Commodore 64, or to imitate Commodore's own printer. Even Commodore's graphic character set can be reproduced on Epson, Okidata, Star, ProWriter and other popular printers.

Exclusive Grappler CD features provide a variety of graphic screen dumps, text screen dumps and formatting. No other Commodore interface can offer this. If you own a Commodore 64..,

If you're serious about quality, trouble free printing... You need the Grappler CD.

A Uniquely Intelligent Interface: • Prints Screen Graphics Without Software • Graphics Screen Dump Routines Include Rotated, Inversed, Enhanced and Double Sized Graphics. • Full Code Translation From Commodore's PET ASCII to Standard ASCII, the Language of Most Printers.

• Complete Emulation of the Commodore 1525 Printer for printing of Commodore's Special Characters.

• Dip Switch Printer Selection for Epson, Star, Okidata, ProWriter and other popular printers. • Conversion Mode for Easy Reading of Special Commodore Codes. • Text Screen Dump and Formatting Commands • 22 Unique Text and Graphics Commands

||OrQnge micro

Contact your nearest Commodore dealer or call Orange Micro for a dealer near you.

1400 N. LAKEVIEW AVE , ANAHEIM. CA 99807 U.S.A. (714)779-2772 TELEX'I83511CSMA

Cot-mot 6* a no CornrnodWB 15K 9't TrdOefnif ■» OF CommodWf EfecKonic* LifflilM

C Oringfl Mcra IV , IMS


CHARLE5BRANN0N PROGRAM EDITOR

HORIZONS: 64

Let's start out this month with a look at a great game: Blue Max.

Maybe you've played Zaxxon, Your ship scrolls through a 3-D playfield as you bomb planes, silos, and enemy aircraft. You can move up or down in space as well. And to help you gauge your perspective, your ship even has a little

shadow. Blue Max has a similar concept, but instead of

a spaceship, you're flying a World War I biplane. As you fly over scrolling enemy territory, you can bomb, strafe, shoot down enemy planes, even

land and take off from a runway. Blue Mnx has far more depth than Zaxxon. It's one of those few

good games that have successfully combined strategy with arcade play.

Takeoff When you start the game, you taxi your plane to the end of the runway. When your speed reaches 100 mph, push up on the joystick to take off. If you haven't gained enough speed, though, your

plane will stall and crash. You can control your plane in two ways. In

one mode, you push up on the stick to go up and pull back to go down. This is opposite of actual airplane joystick controls. (Yes, "joystick" is an aviation term, too.) There is another mode thai

behaves in a standard way—pull back to climb, push forward to descend. You can also choose various skill levels, and whether or not to obey the law of gravity. If you turn on the gravity, your

plane will gradually descend if you let go of the joystick. With no gravity, your plane more or less

hovers as it flies. There's a lot of detail here. The scrolling

playfield is colorful and full of targets like build ings, bridges, cars, boats, tanks, guns, runways,

even the enemy city. To bomb, you pull back on your stick while you press the fire button. To

strafe, you go to a low altitude (the command window turns red) and press fire. 9!

COMPUTEIS Gazette

lure 1984

There are many status indicators to keep an eye on, just as in real flying: speed, fuel, altitude,

and damage. The status window at the bottom of the screen keeps you informed. It normally has a black background color, but will turn red if you

fly low, yellow if you're too low (impending crash) and blue if you're at the same altitude as an enemy plane (ripe for the picking).

Periodically, a big letter P announces that an enemy plane is in the area. You align yourself with it and press fire as you try to hit it with your guns. Be careful not to crash into the plane or the game's over. You only get one "life." W tells you that a strong wind is blowing, and L signals a friendly runway. Smaller letters also light tip to warn you of damage to the guns, bombs, your maneuverability, or the fuel tank. If you have damaged something, it will work intermittently, if at all. The only way to make repairs is to land at

a friendly runway.

When L shows up, begin your approach. Landing is quite difficult—you'll probably crash the first lime you try it. Come in low and try to land at the start of the runway. Your speed will

drop radically, then you will roll to a stop. Fuel tanks are filled and any damage is repaired. You then make another takeoff. Be sure to give yourself plenty of runway, though, or you'll crash into the trees. And if you run out of fuel, you'll have to glide until you crash (most likely) or luck onto a runway. The point of the game, besides the fun of being airborne, is to shoot enough targets so that you can advance to the enemy city. At the city,

you have to bomb a statue. If you can do this, you'll be awarded the Blue Max medal. Otherwise,

you'll have to be satisfied with rankings like "Run way Sweeper, Class One." Blue Max Synapse Software 5221 Central Ave. Richmond, CA 94804 $34.95 disk or tape


If you've been having a hard time teaching your newly-adopted computer there's more to life than fun and games, you're not alone.

Now, you can introduce your Commodore 64'" to the Work Force: affordable, easy-touse software and hardware that will unleash the power you always expected from your Commodore 64 ™, but thought you might never see. is simply the best word processing program of its kind—loaded with advanced features, yet so easy to

is a magic box that lets you transform your humble

home computer into a powerful business machine. It gives you the added power of BASIC 4.0, and lets you add IEEE disk drives, hard disk, virtually any

use even a novice can get professional results. With SpellP.ick , it even cortects your spelling! Once you've tried it, you'll never use a typewriter again.

parallel printer, and other peripherals without extra interfaces. Completely software Invisible.

The Consultant™ (formerly Delphi's Oracle]

Column Adaptor

is like a computerized filing cabinet with a brain. Organize files for recipes, albums, or the membership of your service club. Then search, sort, arrange and analyze your information with speed and flexibility that's simply astounding.

gives you crystal clear 80 column display. Using the highest quality

hardware, we've eliminated the problems

of snow, fuzzlness and Interference. Basic 4.0 commands greatly simplify

disk drive access. Switches easily from

40 to 80 column display.

SpellPack"

teaches your 64 to speli. It checks an entire document in 2 to 4 minutes against a

Discover the true power of your

Commodore 64'". Ask your dealer about the Commodore 64'" Work Force, from Batteries Included—the company that doesn't leave anything out when it comes to making things simple for you.

dictionary of over 20,000 words. And you

can add up to 5.000 of your own specialized terms. Type letter perfect every time!

BATTERIES

INCLUDED

"Excellence in Software" These products h.we been developed specifically for Commodore computers by Batteries Included and are (orally compatible wllh each other. For a lull color brochure write 10;

186 Queen Street West, Toronto, Canada M5V 121 (416) 596-1405 / 3303 Harbor Blvd.. Costa Mesa, CA. 92626 (714) 979-0920 64 AND COMMODORE 61 ARE REGISTERED TRADE MARKS OF COMMODORE BUSINESS MACHINES


Apple Emulator For The 64?

puters. First, let's compare them on equal terms:

We've heard the claims before about a device that lets you run Apple programs on your 64, but it's

Commodore 64 with 64K, 1541 disk drive PCjr Entry Model, 64K, disk drive

always been a pipe dream. Your 64 can easily match any Apple graphics, bul the screen storage,

Commodore 64 system price: about $450 PCjr system price: $1149

ROM routines, graphics calls, beep sound, disk format, and joystick interfaces are totally incom patible. The goal of an Apple emulator is to let

you just insert an Apple disk, turn the power on, and begin to use the software, whether it is a word processor, arcade game, or an accounting package.

The only way this is possible is to actually have an Apple. Sorry. The second best thing is to

plug an Apple Into your 64. That's right. A whole Apple on a single cartridge thai would plug into your 64. You see, that's the only way to get true compatibility. You could make an Atari VCS, or

even an old shoe run Apple programs with enough

hardware. And whether you plug it into your 64

or a pair of penny loafers, it's still an Apple. And it can't be very cheap.

Given that it's theoretically possible, it should be available, right? Well, you can buy an Apple

emulator. It's called the AP Modular Pak, and it's made by a Canadian company called Pioneer Soft

ware. You get an expansion box, with eight Apple expansion slots and four 64 expansion ports. A CPU card plugs into the box. It's the magic one—it makes the Apple software work on the 64. You also need an AP DOS card, which actually converts your 1541 drive into an Apple-compatible one

(quite a feat!) The whole system is S525. If we're able to obtain a review unit, we'll give you the details on how it works, and how well. The price tag is a bit steep—let's face it, if s

three times as much as most of you paid for your 64. But it does let you use your existing equipment

and disk drive as a second computer. Even if you buy the AP Modular Pak, is there really some Apple software you want (o run on your 64? 64 games are far superior to Apple games (sorry, Apple fans—maybe you can plug a 64 Pak into

your computer one day)- There's a great deal of software for the 64 that was engineered especially for your computer. All the major Apple programs

are available in versions for the 64 anyway. But if you want to own both worlds, maybe the Pak's

Other comparisons: Graphics 64:320 x 200 (high resolution), 160 x 200 (medium

resolution). 16 colors simultaneously in text mode. Upper- and lowercase, or a complete graphics character set. Sprites. PCjr: 320 x 200 in as much as 16 colors simultane ously. 640 x 200 high resolution. 40 columns in

text mode with 255 possible character attributes in cluding independent foreground and background

colors. 80-cofumn capability (optional). Some

graphics characters. Beautiful, sharp RGB color capability (but expensive). No sprites. Repeat: no sprites. Sound

64: The one and only SID chip with three voices, 16-bit resolution, waveforms, ring modulation, synchronization, filtering, and more.

PCjr: A TI sound chip, just like the one in the Tl-99/ 4A. IBM calls it a sound synthesizer. Ahem. Three

voices with independent volume control with a 12-bit range. White noise. Keyboard 64: 66 keys, typewriter style. Full travel, full size.

Four function keys with eight states. Soft reset key. Cursor and editing keys. PCjr: 62 keys. Some call them chiclets, but they're

not that bad. The smaller than normal keys have full travel, and can accept overlays that can fully redefine the keyboard, so there's no lettering on

the keycaps. Cursor and editing keys. Cold reset available from the keyboard. IBM calls its keyboard the Freeboard. There's a cordless infrared link between the keyboard and the system unit. No dedicated function keys, but ten keys can act as function keys. Can generate all IBM key codes. Input/Output

64: Proprietary serial bus for disk drive, printers, and other Commodore devices. Expansion port

for you.

with all bus signals (also acts as cartridge slot). Parallel user port with RS-232 capability. Two

PCjr Vs. Commodore 64

digital joystick ports which can also accept a light

Recently, I've been working with IBM's new PCjr, and have had a chance to compare it with other

computers, including the 64. Both of them are home computers. Which is best? I knew you'd like that question. Of course, no one computer is "best," but some are more suitable than others for certain applications. (For games, the 64 wins hands down, though.) I really like both comW

COMPUTE\'s Gazelle

Juno 1984

pen or four paddles. Audio/video port and built-in RF modulator for TV. Cassette port for Commo

dore tape drive. Up to four 1541 diskdrives with 170K storage each, single-sided. CP/M capability.

PCjr: Built in ports provide TV output (modulator extra), color monitor output, RGB output, two 64K cartridge slots, RS-232 serial, light pen, two

analog joystick ports, cassette port for an audio


y

A-PALM \

The fastest and easiest to use

> t

i/*'*M assembler for the Commodore 64. Pal 64 enables the user to perform

assembly language programming using che standard MOS mnemonics.

549.95

64

Is an absolutely In dispensable aid to the programmer using Commodore

64 BASIC. Power 64 turbo-charges

resident BASIC with dozens ol new super

useful commands tike MERGE, UNDO, TEST and DISK as well as all the ofd scandbys such as RENUM arid SEARCH &

REPLACE. Incfudcs MorePower 64. $49.95

A-/TOOL BOX 64

with a standard dictionary expandable

jtOpQ words. SpellPro 64 quickly

^

itself co your personal vocibulary

and business jargon allowing you tc add and

Is the ultimate programmer's utility

and Power 64 BASIC soup-up kit atl

A-WPW

f This brand new offering from the

/^^ originators of the WordPro Series' brings professional wordprecessing to the Commodore 64 for the first time. Two

/cars under deve/opmenEr WP64 feature*

100% proportional printing capability as

documents to correct unrecogniied words

well as 40/80 column display, automatic

and output lists of unrecognized words to printer or screen. SpcllPro £4 was designed

word wrap, two column printing, alternate paging for headers & footers, four way

other word processing programs using the

scrolling, extra text area and a brand new "OOP5" buffer rhat magi tally brings back text deleted in error. AIJ you ever dreamed

co work with the WordPro Series "and WordPro file format.

S49.M

of in a wordprocessor programh WP64 sets a new high standard for the software

NOW SHIPPING!!!

mdmtry to meet.

TOLL FREE ORDER PHONE

jr*1 package, includes Pal 64 Assembler

$49.95

y^-MAILPRO 64

1-800-387*3208

■^

f A new generation of data

^**N

organizer and list manager, MailPro

6A is rhe cnstcr.c of all to learn a^d USPHandles up to 4.000 records on one disk, prints multiple labels across, doe! minor

together in one fully integrated and economical package.

"^

an easy to use spelling checker

delete words to/from the dictionary, edit

.POWER 64

/s*A

A*

KIs

$89.95

text editing ic: setting up invokes. Best of all, MailPro 64 resides entirely wichin

P<ciffitly niirt.-c-!cd ty P ific(i(n;i[ii3rii luh-iuct id

Software lit ■without notice. .

memory so you don't have to constantly juggle d^sks like you must with other daU baje managers for the Commodore 64 S49.9S

PRO-LINE -(416)273-6350 ^(416)

7SS THE OUEEMSWAT EAST. UNIT 8. MlSSfSSAUGA.

CANADA. L4Y 4C5


The RD WRITER is a "back to basics" word processor for the Commodore 64IV. Designed as an educational tool for all ages, the RD WRITER is simple enough to be learned by a child and yet sophisticated enough to handle an adult's word processing needs. FEATURES: • MENU DRIVEN

• WHOLE-SCREEN EDITING

• STATUS LINE

• TEXT INSERTION I DELETION

• FORMATTED PRINTING

• MOVE TEXT BLOCKS

• MARGIN RESET

AUTOMATIC WORDWRAP

• UP TO TWELVE PAGES PER WORKING FILE

TUTORIAL

SYSTEM REQUIREMENTS: • COMMODORE 64 • DISK DRIVE • MONITOR with 80-COLUMN CARD

SYNERGY SOFTWARE, INC. P.O. BOX 131, M.IX BRANCH CAMBRIDGE, MA. 02139 includes manual and money-back guarantee

Commodore 64™ is a trademark of Commodore Electronics Inc.

SYNERGY SOFTWARE, INC.

I P.O. BOX 131, M.J.T. BRANCH I CAMBRIDGE, MA. 02139

I Please send me the RD WRITER. I am enclosing S19.95 plus 1 S2.00 snipping and handling.

|NAME

I ADDRESS I CITY. STATE.

.ZIP.


tape recorder. Optional infernal modem. NoCP/M capability yet. Only one built-in double-sided disk with 360K storage. DOS (required) is $65 extra. The drive is very fast compared with the 1541. You can load 32K in 16 seconds.

SUPER FORTH 64 TOTAL CONTROL OVER YOUR COMMODORE-64"1 USING ONl¥ WORDS

MAKING PROGRAMMING FAST, FUN AND EASY! HOSE THAN JUST AlANGUAGE...

A fontpl*T«. fully-inFigrortd program dtv»lopmtnl Iflltm

Ham* uif, Foil Gam**, Groprncr. Dura A*quTiFiC". Buun*ti Ifaal T.mfl P.fH*u Conlrol, Commur'.colioiil. toborm. SosnTilit, Arfilicial lnt«ll.gflrx«

Software

64: A simple Microsoft BASIC built in. Thousands of public domain programs. Thousands of third-

A Powerful Sup.nti crl MVPFOR1H/KJRTH 79 - E«l. lor Ih. b.Slnr..r of piofiiiional SPBIIt-tOITOR

■ JOid ftOO N frj.inr than Ba*ic ■ 1/4 ■ fhs programming lims

Stttii nil C'64 p grip hi roil including 4040

party programs. A wide range of Commodore

• Eai, full fomrol of all round, hi in. giaphill. color, lpile, plotting Imp & Citff

Single ditk an-a backup uiility O.ik 1 CohFIV boujd P]k intlodgd

software.

• Indutfe* i^tflfofiiie inisrp'e'ei £ (am

JVppC'rt5 QM t_O m "^Cjd &r r 'il(* fypirt Oi^fl

PCjr: A full Microsoft BASIC, with extensions for

• Forth v.rmol namcy

• Full tuiiqi Srietn tdnic

forrh VirfuQl duk A<c«m fo ?DK BAM Lrndcrnsolh ROM

Full dnik mage — 4S0 Sedo-i

• Connolloblt SPUT. SCREEN Dnpla,

file handling, graphics, sound, error trapping,

event trapping, interrupts, and more. Optional

Cartridge BASIC required to run disk drive and access extended graphics modes and the sound

chip. Compatibility with hundreds of IBM PC

programs. "PC-compatible" says a lot to many people. As you can see, the 64 holds its own against

Full Siing hfcndlmy ASCII eric* maiiogei 'Starting Farih"

* -irh iha

JIO*TIMG POl_yT«*TH S fional 1

by i to ON I. O port» r

32r tEEf,

indtidnig mtThC'y A. ;mefijp'

Tutor

ndrwd

C^OTiplfl ufinei

* SOrWflBLE (oJb genp-rutar

0^ hOrdwO'O lirrHfi, 0<a'itl1

• MUSIC EDITOR

» USE ft Support

SUPER FORTH u\

SUPER FORTH o.*

Big Blue's entry home computer. You just can't

compare them price-wise, though. Both initially and in the future, the 64 will save you hundreds of dollars—and you can still do the same things and enjoy some superior features. The 64 will be

around awhile as the Volkswagen of home and personal computers—especially with such de voted and interested users. Q

Call:

A SUPERIOR PSODUCT m nary woyl Al o law

pnfd of anl/

$96

I 1 04-^1 iHk

(415) 651-3160

I'AHSKC RESEARCH □rawor 1774, (fimani, CA 94538

Version 2.0

$39.95

EVERYTHING YOU EVER WANTED IN A DISK UTILITY... AND MORE!! BACKUP YOUR ENTIRE DISK LIBRARY QUICKLY AND EASILY

W

*

Make 3 pass backup of protected software

*

Copy files

*

Direct or allocation backup of

standard format

POWERFUL DISK MANIPULATION SYSTEM GIVES YOU TOTAL CONTROL OF YOUR 1541 *

Edit sectors in HEX, ASCII, or Assembler

*

Force errors to any track andseohor.. instantly

*

Machine language monitor allows examination/modification of both C-64" and disk

drive memory

.'-.*. Display sector header information

* ;Repair damaged diskettes

^'"'I'l^^^^.

Screen Prompts and Thorough Documentation Make This Powerful Utility Simple to Use

. , . WRITE OR PHONE . . .

STV^RPOINT SOFTWARE CGmrnoiJorn Business Machines

Star Route 10

Gazelle, CA 96034

(916) 435-2386

VISA or MASTERCARD add S3 for C.O.D.


Inside Random Numbers Dan Carmichael, Assistant Editor

Are computer-generated random numbers truly random? Yes and no. This inside look at

random numbers explores ways you can deter mine the random quality. A test program is included. For the VIC and 64. Computers, if nothing else, are logical. But in

certain programs, especially games, you'll want your computer to generate a random number. The RND command does this.

How random are those numbers? How can a computer pick a number out of thin air? The VIC and fi4 produce random numbers

by taking a seed number, multiplying it by an other number, adding yet another number, and scrambling the bytes. The result is not a truly ran

dom number, but it suffices for must applications. The seed (and the random number) are stored in floating point format. In Commodore BASIC, five bytes are needed for each floating point number, even if the number is a single digit, like lor 2. The BASIC RND command can generate ran

dom numbers in both the VIC-20 and the 64. In its simplest form the RND command generates a random number between zero and one (not in cluding zero or one). To see how this is done,

Using a positive number as the argument is by far the most common method of generating random numbers because it is the most reliable. When you use RND (I), the computer looks at memory locations 139-143 and uses the values there for the random seed. When it has finished, it puts new values into those slots. Any positive number can be used. The value does not matter, only the fact that the number is positive. A negative argument will give you a pre determined result—-a nunrandom number. To test this, try substituting RND(-1) or RND (-900) in the program above. The same number comes

up every time. Because the results are predictable, negative numbers are used not to generate random

numbers, but to put a certain value into the seed bytes at 139-143. If you use RND (-N) to set up the seed and then use RND(l), the series of num bers will always fall in the same order. This can be useful in debugging a program. RND(O) checks the value in the system time clock and uses it for the seed. There are some

problems with using it regularly, especially on

the 64, but if you use it once at the beginning of a program, it can be a good way to (almost) ran

domly seed the random seed. Another method of randomizing, RND(-TI), is discussed later.

enter the following BASIC program:

By adding a few options to the command, you can produce numbers of almost any size and

10

range. Enter the following BASIC program.

PRINT

RND(l)i

GOTO10

10

Whenever you use RND, you must include a number in parentheses immediately after it. This number is called the argument. The number in the argument determines the seed value which is

In this example we've produced random numbers

scrambled to create the random number. There are three ways of seeding the RND function—

using a positive number, a negative number, or zero. 9«

Junol9B4

PRINT

INT((RND(1)*6)+1

GOTO10

A Choice Of Arguments

between 1 and 6. This might be useful in a program

that simulates the throwing of dice. We've also added something new—the INTeger command. Remove the three letters INT from the above ex ample, and run the program again. As you can see, without the INTeger command you get num

bers with up to nine significant decimal places.


Take Your Commodore's Commands And Put Them Where They Belong. On Your Keyboard.

Now you can save time and avoid frustralion. PC-DocuMate keyboard templates helpyou quickly recall needed commands, options, and formats. What you need is where you want it: at

your fingertips. Each PC-DocuMate template is professionally designed by a software expert

ondisa comprehensive reference aid. Commands are logically and functionally organized to help you get the most from your software, And. each template is fully guaranteed to satisfy or

your money back.

PC-DocuMate keyboard templates are silk-screen printed on durable, non-glare plastic to

exacting specifications for ease of use. Order yours today and join thousands of satisfied users who are saving time and effort. PC-DocuMates now available for:

VIC 20

COMMODORE 64 • Model CM641:

BASIC, music, sprite reference

• Model CM201:

BASIC, music. & more

• Model CM001:

Do-it-Yourself

H your favorite software package is not

(As shown) • Model CR100:

Calc Result

• Model QF100:

Quick Brown Fox

• Model CM001:

Do-it-Yourself

BASIC functions ore

llsied and defined

CONTROl KEYS are documented

shown here, then order our "Do-it-Your-

self" template (which Includes a special pen and eraser) and develop your own custom keyboard template.

BASIC commands ond statements are fully documented

COLOR code reference

Reference data tor MUSIC programming

Screen Ond cdoi MEMORY MAP provided

Commodore color

SPRITE programming

key reference

reference

Prices: ONLY $12.95 each (including shipping) HOW TO ORDER: Please send personal check, money order or MC/VISA credit card information,

Shipping is included, but foreign orders must addS5.00 per unit (except Canada), USfundsonly.

Sorry. NO COD's. NC residents add 4% sales tax. Personal checks must clear our bank before shipment. For more information call 919-787-7703. Dealer inquiries invited. CALL TOLL FREE:

1-800-SM A-RUSH FOR FASTER SERVICE ON CREDIT CARD ORDERS! 1-800-762-7874 or In NC call 919-787-7703 Systems Management Associates 3700 Computer Dr., Dept. T-1

P.O. Box 20025 Raleigh, North Carolina 27619 olCCpi^^

hOamcn c* SMA. Qucfc Bicwhti *o. lia rraOenio* of Quiche*. Inc

OUR GUARANTEE: Use your template for

10 days. II you are not completely satis

fied return it to us (undamaged) fot a full refund. Cole BmuilliatroOofncirtcc* Handle Soffwaro ob. PC


The INTcger command converts decimal

numbers to whole numbers by dropping anything after the decimal point. Type this line and press RETURN: PRINT lNT(l-l)

The result is 1. This is the INTeger value of 1.1. One important fact to note about the INT com

mand is that it does not round off. Type and enter:

much fun in a game based on the luck of the draw. The answer is to randomi/e your program.

This can be done with one BASIC line. If you want

vour computer to produce truly random numbers without repeating patterns each time you play a game, start with a different random seed each time it is run. This is done by initializing the ran dom seed with the use of the system (computer) clock. Turn your computer off and on, and enter the following line:

PRINT INTO.9)

X = RND(-T1I:FORA = 139TO143:PR1NTA;PEEK<A):

NEXT

As you can see, the INT value of 1.9 is also 1, nut 2 as you might expect. Always use INT with RND when you want whole numbers. This will be the case in most ap

The command X = RND(-TI) is the key to

plications. After all, if you were writing a dice

producing a random seed that is varied each time the program is run. In effect, this BASIC statement gets values from the jiffy clock (Tl), and POKEs

game, you wouldn't want to throw a 6.3S340299.

them into the random seed. Because the clock

The RND command is certainly not limited to a range of six numbers as in the above example. As a matter of fact, the range of possibilities is almost limitless. The most common RND formal

changes every sixtieth of a second, the odds

is this:

different seed each time the program is run.

INTIRNDd)*range

where range is bow many numbers you wish to

generate, and base is the lowest number ol that range. For example, if you wanted to generate a range of numbers between 1 and 52 (for use in a card game), the command syntax would look like

this line to the beginning of your BASIC program (before the RND statement is used) will create a

Testing Random Numbers "Random Number Test" checks the RND com mand or the random seed, charts (he results, and supplies a capsule analysis. It will show you what results to expect when using the RND command in a BASIC program or the random seed to gener ate random numbers within a machine language

this:

INT(RND(1)*I1 +10) would generate random numbers between 10 and 21).

Randomizing Random Seeds As mentioned above, the random seed is the origin of numbers produced when the BASIC RND com mand is used with a positive argument. The ran dom numbers you use in your programs are ex

tracted from the five seed byles. A common problem when working with ran

dom numbers is repeating patterns. Turn your computer off and then on, and enter this line: FORA = 139TO143:PRIN TA,PEEK(A):NI:XT

This shows you the contents of the five random seeds. If you continue turning the computer off/on

and entering this line a number of times, you'll notice something interesting. The random seed bytes always contain the same values after power up. As a matter of fact, the values you're probably getting are 128, 79, 199, 82, and 88. The fact that the random seed is always in itialized with the same values creates the possi bility of repeated random number patterns. For example, turning on your computer, loading the same game, and playing it in the same sequence is likely to produce the same results. This isn't 100

against repeating a random seed are great. Adding

COMPUTE!'* Grnette

Junel9B^

program.

For BASIC programmers, the program will test any range of numbers between 0 and 255. And machine language programmers have the option of testing any one of the five random seed bytes.

Carefully enter the Random Number Test program. The DATA statements in lines 885

through 941 are for a machine language program,

so they must he entered accurately. After entering and SAVEing the program to tape or disk, tvpe RUN.

The first prompt asks if you want the seed randomized (seeded with the clock). Press R to

randomize; otherwise, press RF.TURN. The next prompt asks what type of computer you have. If you have a V1C-20, enter V. Press RETURN for the 64.

The third prompt asks you to press either the

fl key to test the random seeds, or the f3 key to test the BASIC RND command. If you choose fl (test the random seeds), the next prompt asks which random seed byte you

wish to test. The five keys (1-5) correspond'to the five random seed bytes (139-143).

If you choose f3 (testing the BASIC RND com

mand), the next prompt requests two numbers

between 0 and 255. This is the range of random


VIC-20/C-64

MODEM MFJ-1Z37

Tiny ZJ/«x2V.x1 In.

300 baud Direct Connect

Originate/Answer • Full Duplex • Carrier detect LED Wu-ii!' lowest cost modem. High performance Texas Instrument single chip modem design.

Works lor both VIC-ZO and Commodore 64. Plugs into user's port. Use with single or multi line phones. Plugs into telephone base. 300 baud. Direct connect. Originate/answer.

Full duplex. Carrierdetect LED. Crystal controlled. Pawored by computer. Aluminum enclosure.

Includes Basic listing of Terminal Program. Terminal Program available on tape, $4.95 and cartridge. $19.95. Specify VIC-20 or C-64.

Save VIC-20

Cartridge Programs on tape MFJ-1256

$QQ9

39

Adapter1 board

lets you save VIC-20 cart ridge programs on cassette tape and run them using 8K RAM board. Provides cartridge backup, eliminates plugging and unplugging cartridges and turning VIC-20 on and off.

Includes adapter board that plugs into expan sion port and software to save and run cartridge programs on cassette tape. Requires BK RAM board (not Included).

RS-232 Interface for

VIC-20/Cr64

Complacency or curiosity? Move your children away from the passive nature of TV and turn them

on to the excitement and fun of in teractive learning with Dow Jones

MFJ-123S

News/Retrieval'?

$OQ95

39!

You probably thought Dow Jones

News/Retrieval only provided busi ness and financial information.

Provides RS-232

Wrong. We've got something of

voltage conversion for VIC-20/C-64 serial port. Use

RS-232 printers, modems, speech synthesizers and other RS-232 peripherals. Switch reverses

transmit/receive lines for DTE or DCE operation. Use as null modem. Standard 25 pin RS-232 con nector. Plugs into user's port. Powered by com puter. 2Wx2W Inches.

VIC-20 Capacitance Meter Measure 100 p! to 100 Mfd. Includes calibration capacitor,

software on tape and hardware Interface.

MFJ

„„

.

* __

_.

Order from MFJ and try It. If net delighted, return within 30 days lor refund (less shipping). Ona year unconditional guarantee. Order yours today. Call toll freo 800-647-1 BOO.

value for the whole family.

With our 20-volume, 30,000 ar ticle Academic American Encyclo pedia, Dow Jones News/Retrieval will pique your children's curiosity about the world and help them de velop new skills. The information they need for school is easy to ac cess, always up-to-date, always

ready. And kids love to use it!

There are timely news reports

from Washington, our nation and the world. You also get current

schedules and rates from the Official Airline Guide™ Comp-U-Store, a convenient shop-at-home service; Cineman Movie Reviews; sports

highlights; weather reports and MCI Mail—the new electronic mail ser

vice that lets you send letters to anyone, anywhere, even if he or she doesn't own a terminal.

Overall, youil find a wide variety

of high-quality data bases accessible quickly and easily with most per

sonal computers.

To get your children involved, excited and turned on to the fun of learning, turn them on to Dow Jones

News/Retrieval.

DQWIQNES

Charge VISA. MC, Or mail check, money order. Add S4.00 each (or shipping and handling.

CALL TOLL FREE ...

800-647-1800

Call 601-323-5869 in MS, outside continental USA.

ENTERPRISES INCORPORATED 921 Louisville Road, Starkvllle, MS 39759

Cop>TTght ■© 1984 Dow J<>iip* Si Company. Inc. AH Highis Revived. Dew -lon« Ne«t/Retrievals is a registered tradi-marli n\ I>i>w Jimes &r Company. Inc

FOR FULL DETAILS, CALL 800 345 8500, EXX5 Alaskn. Hawaii and foreign, call 1-215-789-7008, Ext. 5


numbers you want to test. Enter the two numbers

Although the recap analysis is brief, it is help

separated by a comma, then press RETURN. For

ful in illustrating how well the random function is

example, if you want to test the numbers between 1 and 6, enter 1,6 then press RETURN. The test

behaving.

range must include two or more numbers. Enter ing 1,1 or 123,123 would test only one number and is not a legal entry.

The program generates random numbers in

the range you specify while in BASIC, then branches to the machine language program that does the tallying. Testing the RND command in this way demonstrates the randomness you can expect when you use RND in your BASIC pro grams.

After responding to the last prompt, the pro gram begins running. The first stage of the pro

gram can be ended by pressing the fl key. The program will also end if any one number is gener ated, or occurs more than 65,280 times.

After the first stage of the test program has ended, the analysis phase begins. A chart of num bers between 0 and 255 is displayed. The first

column shows the numbers generated. The sec ond column displays how many times this number occurred or was randomly generated. To continue stepping through the display pages one at a time,

press RETURN.

Finally, you are asked it you wish for an analysis. Press Y fora short recap of the programs run. Press N to end the program with no analysis. Here's a description of the totals displayed

on the analysis page: Total Numbers Hit — how many numbers received at least one hit. For example, this total would be 5

if you were testing the RND command with a range of 1-5, and all 5 numbers were hit. Total Count — the total number of hits, all numbers included. In the above example, if all numbers 1 through 5 were hit 5 times each, this total would be 25. This also reflects the total number of passes the program made.

Average Count — the average hits per number. For example, if we were testing the range of 100-101 and 100 was hit 2 times, and 101 was hit 4, the average would be 3. Use this total to determine the

randomness of the test run. For example, if you

RND And Machine Language Programming What about generating random numbers for machine language applications? Of course, you could always RTS (branch back to BASIC), generate a random number with the RND command, and return to machine language. But this would reduce the speed of the machine language program.

The answer can be found at address $E097 (decimal 57495) in the 64, and SE094 (decimal 57492) in the VIC-20. These addresses are the start of the routine in (he Kernal that places random values

into the random seed bytes. Type and enter this BASIC line to demonstrate how it works: SYSxxxxx:FORA = l39TO143:PRINTA,PEEK(At:NEXT

Replace xxxxx with 57495 for the 64, and 57492 for the VIC. As you can see, each time this BASIC state

ment is run, the values in the random seed change. Using these Kernal routines in your machine

language program is fairly straightforward. When you need a random number, JSR (Jump lo SubRoutine) lo the Kernal routine. You can then re

trieve one or more of the values in the random seed bytes, and away you go. Of course, processing the values is up to you. However, there is one important point to

remember when generating random numbers in machine language. As mentioned earlier, seeding the RND command with a negative, positive, or

zero value will produce different results. When you use the Kernal RND routine, one of the first things it checks for is a negative, positive, or zero value in the Floating Point Accumulator. Make

sure the FPA contains values that will produce the results you desire.

There is another unique way of generating random numbers in machine language, using the I/O block in your computer. The I/O block is an area of memory (starting around 56320 in the 64, and 37000 in the VIC) that is constantly changing,

doing such tilings as updating the screen, and manipulating data direction registers and timers.

tested the whole range of numbers (0-255), and the average count read 10,123, but the number 2

First, find two bytes that have constantly changing values. Load the accumulator with the value in

was hit only 3 times, you'd know of this disparity.

one byte, and either the X or Y register with the other. You can then rotate (ROR or ROI.) the ac cumulator with the X or Y register.

Lowest Count — indicates the lowest number of hits any one number received. In the above ex ample (0-255) the lowest count would be 3 because the number 2 was hit only 3 times.

Highest Count— indicates the highest number of hits received by anyone number. Total Zeroes — indicates how many random num bers received no hits. 102

COMPUTED Gazelle

Juno 1984

Does RND Generate Random Numbers? Our results from Random Number Test are inter

esting. First is the way the random seed bytes behaved.


Software Discounters Wi

America

\

NEW! Universal Input/Output

S.D. of A. )

Board for VIC-20/64

^^

FOR ORDERS ONLY 1-800-225-SOFT P.O. BOX 278-DEPT. CG • WILDWOOD, PA 15091 IN PA.

(412)361-5291

Commodore 64 Software and Peripherals Price Good Through August 31, 1984 ACCESS

.S23 Master Composer (T or D) .S26 .S23 Neutral Zone (T or D) Spritemaster(Tor D) S23 ARTWORX .$16 Bridge 4.0 (T or D| Gwendolyn (Tor D) S18 HoOgepodgelT or D) .... J16 Beach Head (T or D)

HesModem Mulliplan(D) G4 Forth (R) Turtle Graphics II (H) INFOCOM Enchanter (D)

M8 165 S39 S39

Inlidel(D)

S33

PlanettalllD) Sorcerer|D|

133 S33

S33

Monkeymalh (T or D)

118

KOALA

Strip Poker (T or D) BATTERIES INCLUDED PaperclipID) Paperclip w/Spei ling (D) BRODERBUND Bank Si Writer Choplifter(D) Loderunner(D| Mask Of The Sun |D| ,,. Operation Whirlwind |D) Spare Change (D) CBS Big Bird's

S21

Koaia Touch Tablet wJPainler(D)

165

S59

Coloring Series I (D)

S21

S79

Homo Accountant

CREATIVE SOFTWARE Crisis Mountain (H) I Am The C64 (D) Home Inventory (D) DATA SOFT

.$19 $33 .$47 .$23

.$19 .(13

S18

$19 $25 $13 S25 $25

Gateway To Apshai (H| .. JumpmanOrJumpmanJr. S25 Oil Barons (D) $39 Pilstop(R) $25 Summer Games (D) .. $25 Temple 01 Apshai (T or D) $25 Upper Beaches 01 Apshai (Tor D) $13 World's Greatest BaseballGames|O] ... $23 FIRST STAR Astro Chase (TorD) S19

Bristles IT or D].. .. FlipFloefTorDI HES

Coll Defense|D) Factory (D] Grldrunner(R) Hes Mon|R)

Proleclortl(T.orD)

$21

Quasimodo(TorD)

$21

DeathlnCarlbbean(D) . ,.S23

S21

$23

Dragon Riders 01 Pern (D)

Pharoah's Curse (TorD) . .S21

.$25

$23 $35

SandsOl Egypt (D] OESIGNWARE All Tilles(D) EPYX Curse Of Ra (TorD)

$21 $21 $21

Zaxxon(TorD)

DallasOuest(D)

Pooyan(TrD)

$35

Logo Design Master (D), . Paint-A-Rtiyme(D) SpiderEaler(D| MICROLAB

Bruce Lee (T/D) Latter Wizard (D)

$25

.S43 .S2A .S23 .$25

Webster: The Word

F.C.M.(D)

S23

RINGSIDE SEAT(D) SUBLOGIC Flight Simulator II (D) SYNAPSE BlueMai (TorD) Ft. Apocalypse (Tor D| Necromancer (T or Dl

ShamusCaseilfTor D| .. .$21

Ernie's Magic Shapes (D) J23 Math Series (0) Call Micro Speed Reader (D).. .589 Mastering The SAT(D|... .$95 Game|Dl

S25

RDF 1995(0)

Koalagrams Spelling I (D) .$25

Special Delivery (D) . . . $23

CONTINENTAL

Dancing Bear(D)

Eagles (D) $25 Germany 1985 (D) $39 Piolessinnal Tour Golf (D). $25

$19 $19 $23 $23 $19 S25

DlnoEggs(Dl English SAT I (D) Math SAT I (D) PARKER BROS.

S!5 S23 S21

.J23 (19 S19

Frogger(fl]

$33

Popeye(R)

S33

QBeit(R)

$33

PROFESSIONAL SOFTWARE

Word Pro3 + f SpollRight *

SCARBOROUGH

Mastertype(DorR) Eongwriter(D)

SEQA

SIERRA ON LINE

$23

Championship Boxing (D). J19 Home word (0) $43

Wizards Princess(D)

$19 J67 $39 $21

.

Aegean Voyage (R)

$25 S25

AHInTheColorCaves(R] .$25 Alphabet Zoo (R) Bubble Burst (R| Delta Drawing (R) FacemaKer (ft) Fraction Feuer(R)

$21 $25 $25 $25 $21

Grandma's House(0).... (21 Hey DirJdle Diddle (D)

$18

Jukebox (R)

$25

Kidwriler(D)

$21

KidsOnKeys(R)

$21

Kmdercomp(R)

SSI Battle For Normandy (TorD)

16 high voltage'high current discrele out puts.

■ 1 EROM socket. ■ Use multiple boards for additional channels up to 6 boards. VIC-20 a«, MW-311V

S205.00

CBM-64 dim MW-311C

..225.00

MW-302: VIC-20/64 Parallel Printer Interface.

$17

Spellbound (TorD) Starbattle(TorD) WordWriter(D) TRONIX Chatterbee(D)

MotOCross(D) Pokorsam(D)

S.A.M (D)

Slalom (D) Suicide Strike (D) Waterlme(D)

$19 (19

, .(33

(25

(23

(19

. .$39

S23 S23 S23

Works with all Centronics type parallel matrix & letter printers and plotters— Epson. C.ltoh. Okidala. Nee, Gemini \0.

TP-l

Smith

Corona,

and

most

others. Hardware driven: works off Ihe

serial port. Quality construction: Steel DIN connectors & shielded cables. Has

ACCESSORIES

Allen Group Voice Box .. . $09 Alphacom 80 Column Printer

these switch selectable options: Device

^Interlace BASF SS. DO

or 8-bit output: upper 8 lower case or

CarrJco Accessories

(167 box $17

Call

CompuServe Sta'ter Kit. . .S25 Concorde Disk Drive.. . .Call Disk Case (Holds 10) $4 Disk Case (Holds SO) (18 Dust Covers — Any Commodore Cover. . Jfl

Koala Pad

Surge Protector wi 6 outlets WIcoBoss

$25

Wico Bat Handle Wico3-Way Wico Red Ball Wico Trackball

4, 5, 6 or 7; ASCII or PET ASCII: 7-bit upper only.

Recommended by PRO

FESSIONAL SOFTWARE (or WordPro 3 Plus (or the 64, and oy City Software (or PaperClip. MW-302

$119.95

$65 $39 $13

$19 (23 (21 $29

Ordering and Tarms: OrtTers with cashier check or money order shipped Immediately. Personal/company checks, allow 3 weeks clearance NoCODs VISAIMASTERCARD accepted with no additional charge lor orders shipDea lo continental USA Shipping: Continental U.S.A. — OrOe'S under 1100 add J3, liee shipping

nn orOets over 1100 PA residents add 6% sales ta>. AK. HI, FPO-APO — add S5 on all orders INTERNATIONAL — add $10 or 15V, o' order whichever is greatest Deleclivo merchandise wilt oe replaced with same merchandise — NO CREDITS1 Relurn must have authorization number (*12) 361-5291. Prlcn iub)*ct to change without nolle*.

Inventory Management (D) S43

$18

Combat Leader (D) $25 CompulerBaseball(D) ..,(25

■ 1 D.'A output.

S19

.$21

SPINNAKER

AduentureCreator(R)

$17 . .$33

Programming Kit 1,2or3(TorD| (17 Robbers Of The Lost Tomb (TorD) (19

$25 $25

Ulilmatl(D) Ulysses (0)

DataManagerfTorO] Data Manager 2 (Tor D) Dungeon 01 Algebra Dragons (Tor D) Electronic Checkbook

$25 S25 $25

Oil's Well(D) Time Zone (D)

$43

Money Manager (Tor D).. .(17

Buck Rogors(R)

BC Quest For Tires (D)

Management (D)

S85

CongoBongo(R) StarTrek(R|

16 channel B-bit AiD. converter witli 100

microsecond sampling time.

$25

Zepellin (Tor D) $21 TIMEWORKS Accounts Receivable (D]. . $43 Accounts Payable (0) .,,.$43 Cash Flow

(TorD)

Micro World Electronbe, Inc. 3333 S. Wadsworth Blvd. #C105.

Lahewood, CO 80227 (303) 987-9532 or 987-2671


Computer

The most interesting of the five bytes (139143) was 139. After 129,873 passes, the results

Tutor

were very lopsided. Although the whole range of possibilities (0-255) was tested, only 15 numbers received hits, the numbers between 114 and 128. And each number received approximately twice as many hits as the previous number. The number

127 received 32,287 hits and 128 was about double that amount with 65280, This is because of the

VIDEO INSTRUCTION TAPES! STEP BY STEP INSTRUCTIONS PICTURES ARE WORTH THOUSANDS OF WORDS AND SAVE HOURS OF FRUSTRATION USE YOUR VCR SIDE BY SIDE WITH YOUR COM PUTER TO LEARN HOW TO PROGRAM. AND HOW

TO USE PROGRAMS. YOUR VCR ALONG WITH YOUR COMPUTER SERVE AS YOUR PERSONAL

TUTOR, PAUSE YOUR VCR TO LEARN AT YOUR OWN PACE.

REVIEW

AND

way base ten numbers are translated into floating point format. This byte would not be very usable

for generating random numbers because of the poor dispersion pattern.

Also of interest were the test results of random

seed 143. The pattern here, although it did display a few glitches, was usable. The majority of num bers (236) received a relatively random number of hits. A few numbers received zero hits. Finally, the biggest surprise was the testing of the BASIC RND command. The range tested was 1 to 6, and the surprise was the results. The

activity was evenly distributed over the entire range with the number 3 receiving 38,593 hits

TAPES NOW AVAILABLE

(the lowest), and the highest number 4 with 39,418

CH#

TOPIC

«PPRDI RUN TIME

BP-3

HH

H9SS

BP-4

UAHNINGC-64 BASIC ltAHNINGVIC-20 BASIC

Hit

H9JS

1)1(1 1

C0MM0U0HE 64 DISK HO

KR*5 MIN

SI9 9S

UIO-3

VIC 70 DISK I'O

HH 45 MIN

149 95

Ert-9 EW-3

MULTIPIAN C-64

HR 50 MIN

I3S9S

CAlC-KESULT ADVANCED

HH 3U MIN

S3995

EW-1

CALC RESULT EAZ¥

HR 15 MIN

529 95

EW-5

PHACTICALC 0-6*

HR '5 MIN

H995

tW-li

PRACTICALC VIC-2G

HH 15 MIN

H985

WP-5

5CRIFT-64

HtUU MIN

13995

UT-2

IHC LAST ONt

HH 3U MIN

S39 9S

hits. The average was 39,061. These test results

seem to indicate that the BASIC RND command is effectively random. All tests were run after the random seed was initialized with the clock.

Sec program listing on page 174. ©

The Simpler, the Better .

Electronic worksheets' EW-3-6. Detailed stop by step In-

sturction in the use of electronic spread/sheet software Work along and set up a complete eiample worksheet.

Basic programming: BP-3 & 6

1i

——.

Teaches BASIC Language

commands and programming techniques Builds youi know

1

ledge Irom beginning in advanced levels

Data File Programming DIO-i I 2 teaches BASIC Language data file programming using random, sequential, and relative

access data Mies.

'-

'Jt >-■ \

».■;;■ 1 ■»,'/-• ■ -■*

mr

VHSor BETA FORMAT Add $3.00 per order (or shipping and handling. Add 53.00 for C.O.O.

Wlicn it's on, it's on. No software to mess around with. This high quality, low-profile CP Numeric Keypad is the one for your

To Order

Commodore 64 and VIC-20.lt is guaranteed to be 100% com

Phone or Write

patible with all the software you have, now and forever, in any

formal. The Keypad easily connects in parallel with the existing

LYNN

COMPUTER SERVICE

6831 West 157th Street

Tinley Park. Illinois 604 77

(312)429-1915 CALC-RESULT IS B TRADEMARK OF HANDIC SOFTWARE PRACTICALIS A TRADEMARK OF COMPUTES SOFTWARE ASSOCIATES MULTIPLAN IS A TRADEMARK OF MICROSOFT

keyboard connector. Now you tan zip through your numeric work sheei. input your numbers and figures comfonably, quickly, and more easily lhan ever before at only S69.95.

/^Computer Place (213)325,754 =rr

23914 Crenshaw Blvd.

Torrance, CA 90505

Dealer Inquiries welcome

Commodoio 64 iinilVIC-2QaiQ Trademarks of CommodoroHusinG95 Machines.lnc 104

COMPUTEI's Gazelle

Juno 198-1


ermina

For Your C64 Without Any Hardware Change! VIP TERMINAL™

cwiiw.

*j'r* n^it.

>iii WP texir^l is tte cnfa Umifal for th? C 64 wrtii

Tut ftiMJiesoftxar* tfiat c*r «i^nu*j« Itidtti't *rt.

They're right! To star! with the best you've got to have the VIP Terminal! Built-in 40, 64, 60 and 106 columns Word wrap for a formatted display Talk to any computer Use any modem and printer Written in fast machine code 15 entry phone directory

MWiilkj with w n» atrboin. lv S8 CDk.tr dra&j al:n? we well *rth

tte 5*.$ - ntfi less tie 4B, (A ail 1» terser cMyr - tpJ it fosn't

rwd aro hrdwre ttargs, Itaglre lft characters en 25 lire-:. Uric, teru's rtr? tswt on ry SCTWn tfiin if) nj LWfc's ftpl? cr rw dij's 1 B fl - P C! ! jut ajCWul to Hti rtfrt *<u.

I autoiiukd fafuarw, W

coukh't 9?t ttratfi, so I tal WP Tffwral r*M til it go* ttra* - it

chafed fie Mirute straijM! ta» I aAc-kg^d en with ere of iy a proyat«d tays, ooJ dwibsfei swe j*hics saws, aiJ stctk ojiie ftr dad. I

20 programmable keys

FrirtM it =rd sawd it to dw c it c-n* m the screen, mi fhJ nw ! eai

Automatically dial, redial, upload, download and log-on

serd *w W Ftorae aAoKJtiojlk I W uxrs inJ they *rt»3 ri^it off.

Tose kob, - ipj W(m. lit* l« Ftpk Lisi - ;r« a lot of fin. I aim l*e the HKus, fLrction tetfSi ni^h'tiU, rub t*les - jwt ftr a rewcoer

Professional 96 character ASCII display 128 character ASCII keyboard

1J* w. fW Mith tlw wy cp.icre 'ji^* iai'l a owAer I cai't bk to. Itat's rwlfcj nul is M Ml* Ke a tole WP Lifcrary of n*iractiue froj-ac, ircWiro a wd prccesscf. sprwdsreet aradatebsp,

Simultaneous on line printing and

■r* dwu Srt to (all ttrf. L-fl. 6 E: S, *p, itefl ?:« tte alirn. lieV.

Use and save files as big as your disk! E Mail & E-COM Compatible

saving of files to tape and disk

ttocfi will t» cu*. socn. Sis frmu^i» tte rfiole set ftr w birthiay. I =*? by the bjilt-iri ^W clot" m *lu sawn tfet kf«-Jipjfix ra*i<

Get yours NOW! $49.95

Introducing The VIP Library The Library Concept

Icons Make Learning Easy

.

The VIP Terminal is only the first in a

whole series of elegant software for

your Commodore 64 called the VIP Library. This complete collection of easy-to-use, serious, high quality, totally interactive productivity software

includes VIP Writer, VIP Speller, VIP

Calc, VIP Database, VIP Disk-ZAP, VIP Accountant and VIP Tax. All are equal

In quality to much more expensive

software (or the IBM PC, and all are very affordable!

Hi-res technology and sprites allow

VIP Library programs to bring you task Icons, made famous by the Apple Lisa1 and the Xerox Star™. With these

advanced sprite representations of the

task options open to the user, even the total novice can, at a glance, perform every task with ease. Just look at the

icon and press a keyl No programs are

easier or more fun to learn and use!

Total Compatibility All VIP Library programs are

compatible with each other and other

computers for easy file transfer. Each

uses ASCII, the universal language of computer communications so that files

Professional Displays The 40-characters-per-line display of (he Commodore 64 is inadequate foi serious compuiing. An 80-column display is the industry siandanl. VIP

Library programs biing this standard to

youi Commodore 64 with state-of-lho 'art graphics, without need for rosily

hardware modifications. Wilh VIP Library programs you ran ficcly choose

from tour displays: the siandard 40

column display, plus a 64, 80 and even

a 106 column by 25 line display. With

these programs you can have more text on youi screen than on an IBM PC 01 an Apple He with an 80-rolumn boaid'

Welcome !o the professional world!

can Ee sent to and received from other

Who Is Sbftlaw?

Library also gives you the benefit of a consistent icon and command

ware experience in micros. We eurrenily

computers without modification! The

program, the others will come easily.

For Orders ONLY |

5oftlaw Corporation has years of soft offer the full-line VIP Library for other micros in the U.S. and in Europe. Now we are bringing this experience to the Com modore 64 so you get ultra-high quality software at very affordable prices.

— Call Toll Free — Virtual Memory VIP Library programs are not limited

by the size of your computer's memory. All programs use virtual

.

memory techniques to allow creation and use of files larger than your

computer's available work area. You're

1-800-328-2737 Order Status and Software Support call (612) 881-2777

Available at Dealers everywhere. If your Dealer is out of stock ORDER DIRECT! CANADA; $10.00 OVERSEAS. Personal

oi 983 by So Maw Corporal ion

checks allow 3 weeks.

9072 Lyndale Ave.So,,Mpk,MN55420

AUTHOR'S SUBMISSIONS ARE ENCOURAGED.


4 Color

80 COLUMN

Letter Quality

PRINTER/PLOTTER

Super ^^tt^

Special

PRICE

sale

LOWEST PRICE IN U.S.A.

Commodore-64 & VIC-20 •

List your programs • High resolution graphics for bar charts and geometric figures (like

spirograph) • Plugs directly into VIC 20 and Commodore 64 — Interface included • Lowest cost letter quality printer in the country. PROJECTED SALES ■

ACTUAL PRINT SAMPLES

UPPER

CASE

LOWER CASE

-

ABCDEFGhUKLriNOPQRSTUUUXYZ

- abcde f gh i jl< I mnopqrst uwxyz

At last you can list your programs (even control characters} and make beautiful high resolu tion graphics at an affordable price. This 80 column letter quality printer/plotter is great for making complex bar charts for business plus fancy greeting cards and geometric designs.

Great for homework too. Everyone must have a 4 color printer plotter for their VIC-20 or Commodore-64. List $199.00. Sale S99.00. • LOWEST PRICES ■ 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY • BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS AdO slow lor snipping, handling and Insurane*. Illlnola msldsnti Elosso add 8% tu. Add «0.00 (0< CANADA. PUERTO HICO. HAWAII

ordem.WEDONOTEXPORTTOOTHERCOUNTHIES.

Enclose Cashiers Check. Money Oidar or Personal ChscK. Allow H days lor delivery, 2 lo 7 days lor Dhona orders, 1 day eipress malM

Canada orders must be In U.S. dollars. Visa ■ MasterCard

C O.D.

ENTERPRIZES

WE IOVE Oun CUSTOUE RSI

BOX 550, BARRINGTON, ILLINOIS 60010 Phono 312/382.5244 to ordar


80 COLUMN PRINTER SALE—$149.00*

COM-STAR T/F Tractor

Friction Printer

* * COM-STAR

75 Day Free Trial-180 Day Immediate Replacement Warranty • Lowest Priced, Beat 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" •STX-80 COLUMN

and special characters, plus 2K ol user

PRINTER—$149.00 Prints

full

operation,

80 60

graphics and character

columns. CPS,

Super

prints

silent

Hkesolution

block graphics, expanded

sel.

exceptionally

clear

characters, fantastic print quality,

uses

inexpensive thermal paper! Best thermal

print

quality

printers

and

costing

features

twice

as

found

much!!

on

(Cen

tronics Parallel Interlace) (Better than Ep son FX80).

Premium Quality—120 CPS

Interlace).

COMSTAR T/F SUPER-15H"

"DELUXE COMSTAR T/F Tne

COMSTAR

PRINTER

is

prints 8S"

T/F

(Tractor

exceptionally

x

Friction)

IT' standard size

It

single

T/F

SUPER-10X

PRINTER

riage

more

and

components

puter

business forms!

matrix,

80

Bidirectional,

CPS,

224

impact

characters.

dot

(Cen

10X PRINTER gives you all the features Of the COMSTAR VF PRINTER plu3 a 10" carriage, 120 CPS, 9 x 9 dot matrix

with double strike capability lor 18 x 18 resolution matrix), and

image

underlining,

right

decenders

prints

bit

margin with

standard,

quality),

(120 back

x

italic,

dot

spacing,

settings,

super

high

144

and

true

led

lower

subscripts,

block

COMSTAR

T/F

SUPER HIGH SPEED COMSTAR T/F 10"

paper feed!! PRINTER

a

15V

PARALLEL INTERFACES

car

For VIC-20 and COM-64—$49.00

electronics

large

ledger

(Belter than Epson FX

For All Apple Computers—S79.00 NOTE:

Other

printer

interlaces

are

available at computer stores!

Double

COMSTAR T/F 10"

COMSTAR T/F (Tractor Friction) SUPER-

letter

handle

SPEED

SUPER HIGH SPEED—160 CPS

PRINTER—$289.00

(near

to

plus

powerful

HIGH

15ft" PRINTER has all the features of the

Superior Quality

Premium Quality—120 CPS COMSTAR T/F SUPER-10X

matrix

15V

100).

tronics Parallel Interlace).

dot

SUPER

SUPER

has all the features of the COMSTAR T/F

sheet stationary or continuous teed com

paper.

COMSTAR T/F 15V PRINTER-$579.00

PRINTER plus a 15V carnage and more powerful electronics to handle larger ledger business forms! Exclusive bottom

PRINTER—$379.00 COMSTAH

versatile.

SUPER HIGH SPEED-160 CPS

"Popular Science Magazine." It gives you

printer in the U.S.A.! (Centronics Parallel

80 CPS PRINTER—S199.00

Superior Quality

definable characters! The COMSTAR T/F SUPER-10X PRINTER was Rated No 1 by

graphics

Immediate Replacement

PRINTER—$489.00 SUPER

HIGH

(Tractor

Friction)

features

ol

PRINTER

SPEED

the

plus

COMSTAR SUPER

PRINTING-160 CPS, 8K

buffer,

COMSTAR

PRINTER

has

all

T/F the

SUPER-10X

HIGH

SPEED

100% duty cycle,

diverse

character

fonts,

special symbols and true decenders, ver

tical

and

BUSINESS

horizontal

tabs.

PRINTER at

an

RED

HOT

unbelievable

low price!'. (Serial or Centronics Parallel Interface)

Warranty We have doubled the normal 90 day war ranty

to

180

days.

Therelore

printer fails within "180 days"

if

your

from the

date of purchase you simply send your printer to us via United

Parcel Service,

prepaid. We will IMMEDIATELY send you a

replacement

prepaid. proves

This

printer

at

warranty,

ttiat

WE

no

charge,

once

again,

LOVE

OUR

CUSTOMERS'

Add S17.50 lor snipping, handling and insurance. WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. Enclose Cashiers Check, Money Order or Personal Ctieck. Allow 14 days lor delivery, 2 to 7 days for phone oiders, 1 da/ express mail! Canada

orders must be In U.S. dollars. VISA — MASTER CARD ACCEPTED. We ship C.O.D.

SUPEH-10"

ENTERPRIZES

(WE LOVE CHJH CUSTOMERSI

BOX 550, BAARINGTON, ILLINOIS 60010 Phons 312/362 5244 to order

ABCDEFGH I JKUMNOPOR8TU V W X V Z flBCDEFGHIJKLMNQPQRSTUVWXYZ X 234S67B9O


CjJ It'stime for your computer to grow up.

1!

VIC-20 EXPANDER SALE! LIST

SALE

;

• 8K RAM MEMORY EXPANDER

$ 69.95

$39.00

I

j :

(Free $16.95 Game) • 16K RAM MEMORY EXPANDER "CARDCO"

$ 99.00

$49.00

;

$159.00

$59.00

$199.00

$75.00

$ 39.95

$29.00

$ 99.00

$49.00 $59.00 $69.00

\

(Free $29.95 Adventure Game)

[

• 24K RAM MEMORY EXPANDER (Free $29.95 Adventure Game)

|

j

• 3 SLOT "CARDCO" SWITCHABLE EXPANDER BOARD

!

• 6 SLOT"CARDCO" SWITCHABLE"CARDCO"

! i

32K RAM MEMORY EXPANDER

!

:

! !

(Expands to total memory to 57K (57,000 bytes)

RIBBON CABLE EXPANDER BOARD (Lifetime warranty)

• 40-80 COLUMN BOARD

$ 99.00

• "CARDCO"

$ 99.00

PARALLEL PRINTER INTERFACE

VIC-20 WORD PROCESSOR SALE 1. "Write Now" Word Processor Cartridge! (Better than Quick Brown Fox) No disk drive or cassette player needed! Just plug in the "Write Now" cartridge. Easy to use and learn, has ali the

professional features: margin settings, editing word wrap, scrolling, search and replace, center ing, page numbering, user defined characters, ascii code set that allows use of all printer features!! Includes a powerful mailmerge for mailing lists! List $39.95 Sale $34.95. 2. "H.E.S. Writer" Word Processor Cartridge! Full screen editing, scrolling up and down, word wrap, left and right justification, centering, page numbering, screen text preview and more! List $39.95. Sale $24.95.

3. "Total Text" Word Processor creates professional documents! Features include page number

ing, right and left margins, paragraph control, upper/lower case, full screen editing, footnotes,

etc.! {8K Ram required) Tape

List $34.95. Sale $19.95.

4. "Total Labels" Mailing List! Keep and print mailing list labels with ease. Add change and delete labels, alphabetize, option to select any part of list. (8K Ram required) Tape

List

$24.95. Sale $14.95.

AdaWOOtor postage Add S6 00 (or CANADA PUEHTORICO HAWAII orders WE DO NOT EXPORT TO OTHER COUNTRIES Enclose Casriiers Crieck. Money O'Oe' or Personal Chec« AHo* 14 days for delivery. 7 lo 7 days for phone orOe'5 i day e*ores5 mail1

Canaaa orders musi be in U S doiia'S We accepi Visa ano Masle' Ca'd We ship COO

ENTERPRIZES

f lOVt OU«CUSIOME"S

BOX 550, BARRINGTON, ILLINOIS 60010 Phone 312/382-5244 lo order

:


SANYO MONITOR SALE!! 80 Columns x 24 lines Green text display

Easyto read - no eye strain Up front brightness control High resolution graphics Quick start - no preheating Regulated power supply

Attractive metal cabinet

9' Data Monitor

UL and FCC approved

15 Day Free Trial - 90 Day Immediate Replacement Warranty

9" Screen - Green Text Display

*$ 69.00

12" Screen - Green Text Display (anti-reflective screen) 12" Screen-Amber Text Display (anti-reflective screen) 14" Screen-Color Monitor (national brand)

*$ 99.00

*$ 99.00 * $249.00

*PLUS $9.95 for Connecting Cable. Display Monitors From Sanyo With the need for computing power growing every day, Sanyo has

stepped in to meet the demand with a whole new line of low cost, high quality data monitors. Designed for commercial and personal com puter use. All models come with an array of features, including upfront brightness and contrast controls. The capacity 5 x 7 dot characters as the input is 24 lines of characters with up to

5* SANYO Official Video Products

ofthelos Angeies t984 Olympics

80 characters per line.

Equally important, all are built with Sanyo's commitment to technological excellence. In the world of Audio/Video, Sanyo is synonymous with reliability and performance. And Sanyo quality is reflected in our reputation. Unlike some suppliers, Sanyo designs, manufactures and tests virtually all the parts that go into our products, from cameras to stereos. That's an assurance not everybody can give you! • LOWEST PRICES* 15 DAY FREE TRIAL. 90 DAY FREE REPLACEMENT WARRANTY • BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS Add

110.00

for shipping,

handling

.ml

Insurance.

Illlnota reslOenls

please add 8% tan. Add 120.00 lor CANADA, PUERTO HICO. HAWAII orderB. WE DO NOT EXPORT TO OTH ER COUNTRIES. Enclose Casnlers Check. Money O'fler or Personal Check. Allow 14 flays tor delivery. 2 to 7 days lor phone orders. 1 day eipiess malll Canada order:, musi be In U.S dollars. Visa - MasterCard - C.O.D.

ENTERPRIZES

IWE LOVE OUH CUSTOMERS)

BOX 550, 8ARRINGTON, ILLINOIS 60010 Phone 312/382-5244 to order


ONE CALL GETS IT ALL!

TELECOMMUNICATIONS SALE!$49 Make a connection!

for Commodore VIC-20 and 64

7

REACH OUT AND ACCESS SOMEONE

Wander the wires of bulletin board systems gathering information and

making new computer (riends!

DELUXE 40 CHARACTER MODEM SALE $49.00 *«

S99.00)

Saves on-line time; Easier to read! Direct connect, originate/answer, half and full duplex!

Terminal program (tape included) Disk—Add $5.00! One year free access to CompuServe, 2 hours free on-line time! 15 day tree trial — 180 day free replacement warranty! Instruction manual!

80 COLUMN TERMINAL CARTRIDGE SALE $59.00 •

No cassette or disk drive needed!

• VIC-20 40-80 Column •

COM-64 80 Column Board

$59.00 (List $99.00) $99.00 (List $199.00)

Converts your computer screen to 40 or 80 columns! You can add a 40-80 column word processor, mailmerge

and electronic spreadsheet for only $24.95 (tape or disk).

SMART 64 MODEM PROGRAM SALE $26.95 iMs»> One key password automatic entry!

(Disk)

On-line alarm timer! Prints out all information received! Record and send programs on disk! Use with Protecto 40-80 column terminal! - LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY

• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS Add S3 00lof poslage AOU $6 00 lot CANADA PUERTO RICO HAWAII

orders WE DO NOT EXPORT IO OTHER COUNTRIES days lor delivery. 2 lo 1 flays lor phone orders, 1 day express mail1

ENTERPRIZES

Canada orders rnjsi bt! In U S dollars We acce[)l Visa and Master Card We ship CO,D

Phone 312/382-5244 to order

Enclose Cashiers ChecK. Money Oder or Personal Check. Allow 14

ME LOVE OUR CUSTOMERS!

BOX 550, BARR1NGTON, ILLINOIS 60010


Factory Clearance

CREATIVE SOFTWARE

No. 1 Seller In U.S.A. Serpentine

Astroblitz (Like Defen der.) Voted No. 1

Awarding n i n g

Com

puting!

Fan

lay your young while getting

food

to

keep

you

alive.

Fan

tastic copy of an arcade

classic.

tastic strategy game that has

Destroy alien saucers and gun towers while avoiding enemy

become a _,

,

,

Then simply beat them on the head to push it

Apple Panic — The fast

Priced Below Cost

hit

computer

now

comes

game

to

through and destroy the

the

apple.

VIC-20. You must dig traps in the brick floor and wait for the wander ing apples to fall in.

man

has

set

many

tom before Waldo does you in. Fantastic graphics and sound. List $34.95. Sale $9.95. Spills & Fills - - How much is too

much? How much isn't enough? With this original concept educational

game designed for grade schoolers through high school students, you can develop ratio and perspective exciting

and

challenging skill levels, this program presents

new

and

ever-changing

challenges for the inquisitive mind. Sale $9.95.

Trashman (Better than Pacman). Dash for the trash and pick up CASH!!! List $29.95. Sale $9.95.

ENTERPRIZES

(Wf LOVEOuOcuSTDUE"Si

BOX 550, BARRINGTON. ILLINOIS 6O010 Phom 312/382.S244 to Ordtr

right

_.

y!

Last

Sale $7.95.

once. See if you can get to the bot

three

roll

while

(Fast action.) List $34.95.

that let's him jump several floors at

With

will

the

over you and kill you.

traps for you that you must avoid. Plus Waldo has an atomic elevator

skills.

Otherwise

apple's

Rat Hotel — Here you get to play the rat. Running and jumping from floor to floor in Hotel Paridisimo you must eat whatever you find but Waldo the maintenance

classic. List $34.95.

Sale $7.95.

objects that float by. List $34.95. Sale $7.95. 4 . _ . action

hostile

red snakes and

game overall by Creative

game.

Avoid

computer

win-

Terraguard — Your mission is

to

destroy

the

aliens

before

their ship has o chance to land. Move your base along the ground and shoot up at them List S34.95. Sale $9.95.

Video open

Mania

field

— You're

and

strange

in an alien

creatures are roaming all over. If

you stand still too long, they'll collide with you, causing instant annihilation. Your only defense _ is to destroy them by throwing your electronic, football-shaped alien zapper at them. Sale $9.95. Household Finances — This 4 part

program will take care of all your

family's finances. Record, change and delete expense and income items from 16 categories, monthly ond yearly totals are easily graphed and even a budgeting program to

help you clamp down on excessive spending. List $34.95. Sale $9.95. Aao 13 oo ioi postage Aao 16 oo tor Canada Puerto rico hawaii orders WE DO NOT EXPORT TO OTHER COUNTRIES

• |

Enclose Cashiers Check. Money Order or Personal Check Allow 14

|

flays lor deiwery 2 lo 7 days to' onone o'0*is i aay eicess mail1 Canada orders must be in US rjoiiars We accept Visa ano Master

| ;

Card

We shio COD

!


POWER BASK

One-Touch Keywords Mark Niggemann

This powerful programming utility puts 52 of the most common BASIC keywords at your fingertips. For the V1C-20 and Commodore 64. The less time Spent typing, the more time you

have for programming. "One-Touch Keywords"

lets you use any of the letter keys in combination with cither the SI HFT or Commodore key to in stantly print a BASIC keyword on the screen. For example, instead of typing GO5UB, you can hold

machine language from DATA statements into the upper part of free memory. It also protects the machine language from interference by BASIC. To activate the machine language, you must

type SYS followed by the number given as the on/ off address, then press RETURN. The one-touch keywords will remain enabled even after the RESTORE key has been pressed. To disable the keywords, SYS the on/off address again. See program listing on page 175.

down SHIFT and press G, and GOSUH will appear as if you had typed the whole statement. See the table for a list of all the keywords available.

Which Computer? This utility works on both the VIC and 64. It ini tially detects which computer is being used and then modifies itself as necessary. These modifica tions are POKlid right after the relocation adjust ments.

To detect which machine the program is run

ning on, PEEK 65532, a ROM address. If this loca tion contains a value of 34, the program is being run on a VIC. Otherwise, it's on a 64. This is an

easy way to detect which machine you arc working with and can be used in any program designed to work on both the VIC and 64. A final checksum routine (lines 710-750) is included to aid in finding any errors in the machine

language data. After you run the program once, type RUN 70!) c\nd the program will check your typing. Recheck the DATA statements if you get an error message. This final checksum is added insurance to the line-by-line checksum provided

by the "Automatic Proofreader."

Activating The Keywords The program is a liASIC loader which moves the 112

COMPUTEI's Gazelle

Juno 1984

Keywords Key

SHIFT

Commodore

A

PRINT

PRINT*

1) C

AND

OR

CHRS

ASC

D

READ

DATA

E F G

GET

END

TOR

NEXT

GOSUB

RETURN

H

TO

STEP

I

INPUT

INPUT*

J

GOTO

ON

K

DIM

L

RESTORE SAVE

N.

LOAD MIDS INT

C)

OPEN

CLOSE

P

POKE

PEEK

Q

TAB<

R

RIGHTS

SFC< LEFTS

S T U

STRS

VAL

IF

THEN

TAN

SQR

V

VERIFY

CMD

w

DEF

FN

X

LIST

FRE

Y

SIN

COS

Z

RUN

SYS

M

1.EN

RND

m


8K in 30 Seconds

TELSTAR 64

(or your VIC 20 or CBM 64

Sophisticated Terminal Communications Cartridge for the 64. ■PFO/ 10D ODD CP D1 D2 BELL

12:30:00

10:1436

it you own a viC 20oroCBM Wonanove Deflnconceri«J f lntj high- ccst da flitt to store you Drogrorm on youi$fliT>D longs' Nowther&*inel'A|J3M Tne UABBiT <no carriage and aio much mucMower[yice ieaverojjedisk Masc^ea rhisiion&ta^rWB&'T

[TELSTAR's Status Line) Don't settle for less than the best!

ho-RABBiT you con tcad and store on your CBM

• UplrjauVDownload to/from disk or tape. • Automatic File Translation.

aatawtlean SK £*ograni moLr-osf 30 wenndi corrco'ed liUt^VlCSOCBM^lf

• Communicates in Industry Standard ASCII

Tne I?AB9:T 1$ eoty 10 msia'L allow*, one to Append Bas'C Prograiii, works wrfh or witnoul Eipanjion

• • • • • •

taslaMne I5dl diskdrive

Real-Time Clock plus Alarm Clock. Line editing capability allows correcting and reserving long command lines 9 Quick Read functions Menu-driven. Similar to our famous S1CP Terminal package. Woiks with Commodore Modems and supports auto-dialing.

The best feature is the price — only S49.95 (Cartridge and Manual)

Machine Language Monitor Cartridge for the CBM 64

fy. ond oicviOai rwo aila lile modes lw n not only fas' bui reliable

(In* PoDtui lor The VC 22 conia-ns on t

MAE

now

thebest FOR LESSI

S39.95 $59.95

For CBM 64, PET, APPLE, and ATARI

Now, you can have rhe same profemonai.ydesiflneaMocro Ajiemblerid lor osuwd On Space Shuttle projflCri • Designed !o i■np'ove Programmer Productivity

• Similar lynia'and com ma"rO^ - Noised to rol&orn peculiar

More Ihan 20 commands allow you to access the CBM 64's Microprocessors

Registers and Memory Contents. Commands include assemble, disassemble.

^nia'^andcoTirnanaswher you ga from PET ta APPL£ to ATARI

\

registers memory, transfer, compare, plus many moie. Someday every CBM 64 owner will need a monitor such as this.

ul EOitar Macros Cono.xjnol ana I b*y and Aulo - zero coge oad'e^

Cartridge and Manual — S24.95

SUPERTAX

Get Supertax by Rockware Data and get the jump on your 1984 Income Tax Planning

THIRD SUCCESSFUL YEAR! • THOUSANDS ALREADY IN USE! Use SUPERTAX personal income lax programs to calculate your lax liability now and have plenty of

lime to make year-end investment decisions to improve your position. SUPERTAX was specifically created for Commodore 64 users by a practicing CPA with a Master's degree in tax accounting. Highly acclaimed by tax pros, CPA's and tax preparers, SUPERTAX is easy to understand and a pioasure toiwork with.

SUPERTAX is fully sere en-prompted and includes

• SUPERTAX DATA can be stored on a diskette. ■ SUPERTAX updates are available at 50%

SUPERTAX instantly recalculates your entire return

■ SUPERTAX is an essential addition to your personal software library—best of all its tax deductible,

a manual loaded with valuable tax information, instruction and guidance. when you change any item.

SUPERTAX prints directly on IRS forms.

discount to registered SUPERTAX owners.

FOR TAX PLANNING

FOR RETURN PREPARATION

FOR

Using eiltier screen or printer output, SUPER TAX generates clear and concise summaries of

SUPERTAX PRINTS THE INCOME TAX RETURN: This program prims page !. page 2 of the FORM 1040, Schedules A, B, W and G (income averaging) ol the FORM 1040 as well as FORM 3468 (investment tax credill on standard IRS government forms or on blank computer paper for use wilh transparencies.

DEPRECIATION CALCULATION

Page 1 and 2 and Schedule A of FORM 1040 allowing you to see at a glance and to quickly comprehend your tax situation. This program

also prints an OVERALL SUMMARY oi the return showing Adjusted Gross Income.

Itemized Deductions, Taxable Income, Regular

Tai and Payment Due or Refund—all ol which are calculated by the program. SUPERTAX also calculates the moving expense deduction,

Any item of input can be changed in seconds

and the entire return is automalically recalcu lated to instantly lellect tlie change.

and child care credits, medical limitations, and

makes tax planning a breeze.

depreciation program wliich cacutates

and prints your complete depreciation schedule using bolh the old rules and the new ACRS rules. Oulpul from the depreciation program is designed lo serve as a supplomenl to IRS FORM 4562.

investment credit, taxable capital gains, political much more. Input is fast and easy and changes can be made in seconds. This program actually

This program calculates and prints Schedule C of the FORM 1040. Also included is a stand alone

NOTE: Printing on Q^ftinmenl l requires fndkOn toetj punier

TO ORDER Call Toll Free 1-800-527-4171 In Texas Call 214-739-1100 MasterCard, VISA, Money Orders, Bank Checks and COD Orders Accepted (add 3% surcharge for credit card processing) (add $5.00 lor COD) (S3.00 Shipping)

Products snipped FOB Dallas. TX Commodore 64 is a trademark of Commodore Business Machines

For Brochure WRITE Financial Services Marketing Corp. 10525 Barrywood Drive

Dallas, Texas 75230


MACHINE LANGUAGE FOR BEGINNERS RICHARD MANSFIELD, SENIOR EDITOR

Indirect Addressing This month we'll take time out to answer a ques tion which came in the mail:

Q.I i hope you'll go over indirect indexing again. Why is it important? I found it hard to absorb at first.

A: Everyone does. It's one of those things

LDA #65

LDY#0 STA (253>,Y

(253 is a zero page backboard off which

the 65 bounces. Such two-byte, 2ero page locations are called pointers.)

The confusing part is how 253, even enclosed in parentheses, sends that 65 up to 1024. The

parentheses and the ,Y are just symbols that alert

which—once you know how to do it—is easy to use and even obvious. But everyone I've ever

an assembler program to use the Indirect Y ad

known who learned machine language has had to puzzle this one out. It's an addressing mode, a way of sending a byte from one place in the computer

guage what BASIC is to BASIC programs: it inter

to another.

There are various ways to send these bytes, various addressing modes you can choose from. Like BASIC'S POKE 1024,65, machine language (ML) can also send the number 65 to the first RAM memory cell of the screen on a Commodore 64. ML could do it in this fashion: LDA #65 STA 1024

(load th<_- accumulator with 65) (store the accumulator at address 1024)

That's the Absolute addressing mode. It's straightforward. Load it, store it.

Making A Bank Shot Yet there are other ways, other addressing modes, which send a byte from the accumulator to a target

address. What's often called Indirect Indexed addressing (I like to call it Indirect Y) is not as

straightforward as Absolute addressing. You load it, and bounce it off a zero page pointer. This idea does fake a few minutes to learn, but it's a funda

mental and very powerful ML programming tech nique. You should study it, play with it until you

master it. It's like a bank shot in basketball: you make a basket by bouncing the ball off the back board. In other words, it's an indirect shot: 114

COMPUT&'s Gazelle

June1984

dressing mode. An assembler is to machine lan prets and creates a series of instructions that the computer can follow. But why 253? What's special about this zero page address that causes bytes to go to 1024 in stead of 5000 or 8992? The answer is that Indirect Y addressing is a two-step process: First you must put the target address (1024 in our example) into whatever two bytes in zero page that you plan to use as a pointer. In other words, you put the 1024 into addresses 253 and 254 yottnelf before you can STA (253),Y and have bytes bounce up to 1024.

Position Matters So far, so good. But how do you set up an address pointer? The 6502 chip expects all such addresses to be stored into two consecutive bytes and it wants the higher byte in memory of this pair

to hold a number that is to be multiplied by 256. The lower byte in memory will hold any remainder left over after the multiplication. Thus, in our

example above, the number in cell 253 will be the remainder and the number in 254 will be what's

multiplied by 256. The position of the two numbers in the pointer is important. How would you set up a pointer to hold the address 15? It would be: 15 0. Nothing is multiplied by 256. How about storing the number 1024?


UNIQUE HARDWARE

For Your Commodore or Vic Commodore or Vic Color Problems? We Can Solve Them All.

Is Your Commodore Disk Drive Hot and Bothered?

You're not alone. Thousands ol Commodore

64 owners have "fuzzy" color on theli TVs Most have Inlerteience lines crowding oul Ihelr gieal graphics. Many have boughl expen

sive moiulors or new TVs, and ollen even thai hasn't helped. But, most ol us )usl lived with

the problem Now the engineers at Byles & Pieces have lour simple, inexpensive solutions U you have an "old 64" (with the 5 pin Monilor Din Plug), you've probably had color, resolu

tion and inlerlerence problems We can solve them1 Th« lnt*iiii«nc* Stepper...For Vic 20 and Commodore 64 A new kil lhal inslall) in minules wilh two simple solder ■xnr."':

■j

"■

lions Besi Jesuits when combined with 12 3. qi 1 belaw Absolutely slops 9O% ol Ihe RF mlerleience on you: screen ,

Use if

your "old 64" is hooked up lo a momloi A new 2 prong cable, with the Color

(3 prong) gives you a picture you

won't believe. Belter I ha n the cable Commodore built

COA OS

At lent, thn "neaded" iwltch lor ol' modore lefl out something that's really important — a simple resei switch How many limes have you been programming and gotten "hung-up"1 in your sortwate7 The only way lo gel back in conlrol is lo turn oB the computer and lose your pro

Dust pmblami? Wnv.i got Ihe anmei!

**■ There are a lot ot cheap dusl covers on the market, most ol Ihem made

Horn staticlilled plastic Bui ihere are

some ot us who think a lol of our Commodores We want to protect ihem and have them look nice at the same time' Thais why Byles ft Pieces built the best looking dusl covers on Ihe maikel They re hand sewr. Irom lealher-like naugahyde in a blown lealhei^rain pattern They're cusiom built to lit your Commodore 64. and here's Ihe best news ol all You can get matching " covets lot your disk drives and your cassetle unil as well You made a big

gram and everything you had entered so lar Well the engineers al Byles <k Pieces have solved that one too a resei switch Mow installing this does require you lo

open your compuler. make I wo simple

solder connections, and drill a small hole in the case (lo mounl Ihe switch) Obvr ausly, Ihls connection will void your warranty, so don'l proceed until your computer is out ol warranty But the day

investmenl In your Commodore spend

□ tew moie dollars and ptolecl II Irom damaging dusl lor Llle Your satisfaction is guaranteed

lhal happens, install the reset switch It's a lime saver, and It's guaranteed to return

Compuler dust coveis S9.95

control lo you every time 01 course, you're

guaranteed lo be satislled

A steal at

Disk drive dust covers S8.95

S9.95

Why Blank "Cheat" Sheets? Because They're Better Blank

by a loi. Try It. you

won'l be disappointed. (Also hooks your 'Old 64" to Ihe I7O2) <J94 AC

X

Vic-30's and Commodore e4'>. Com-

S18.95

4Tho Monitor "lmpio»«". . .11 you have ■ a Commodore 17OI monilor. Ihls cable

Sharpener buill in All Ihe benellls ol 02. on

your monitor

Use II youi

old 64 is hooked up lo a TV Jusl plug

inlo the monitor plug, and Ihe color and contrast immedialely improve Dramatically Cusp letters Great

graphics

S15.95

The NEW Color Sharpens! CABLE..

Tin. Coloi Sharp* n«i.

Datasel dusl covers S7.95 A lew companies do oMer a solution

a

die cul ' cheat" sheet lhat attaches to your

keyboard with all Ihe commands ol one

program printed on tl. Great idea, unless you need Ihem lor 1O or 2O programs You

could purchase anolhei disk drive lot the

In the world, and lots ol complex soilware lo run on It. One problem. Unless you work

wilh some of these programs everyday or are a compuler genius, who can keep all those commands straight1 "F5" in one program means one thing, and "F5" in another program means somelhlna else

modore makes a great disk drive Only

problems toequenlly And almosi always. 11 means a tup lo the shop lor a head

aiignmeni Maybe you can aHord to have your drive oul ol commission lor a while And to pay to have your drive

lepaired Bui we've been lold lhal most oi these problems occur because Ihe drive has overheated, throwing the

head oul ol align men I because ol parts expansion

The engineers ol Bytes & Pieces

pondered this problem, and came up with a simple solution. An inexpensive

mutlin Ian lhat sits on top oI the disk drive and blows coollna air through it No more hoi and bothered drives No

more heal-caused lead/wnle problems. A simple, inexpensive solution And best

ol ail Ihe Ian will work on other com puter items as welL as long as Ihey have

venl holes m Ihe top Just sei ihe padded tan on lop and your problems with overhealing are over

And we went one step lurther. We built a surge proteclor into a second Ian

same Investmenl. Our solution'' Simple A

model. Most doubleoullel surgepiotec-

pack ol 12 lined cards, die cut to 111 youi

O.K. So now you've gol the besi compute!

Most ol them are, you know Com

trouble is. Ihey sutler Dom read and wnle

keyboard and }usl wailing to be illled with

lors sell lot more than the cosl o! our Ian and suige protectors put together

oiten Simple'' Yes. but eilechve. Now you can have all youi ptogram commands light at youi linger lips on YOUR VERY OWN. custom designed "cheat" sheets Order a couple paclts today1

So order today You won'l be sorry. Satis faction guaranleed or your money back

Ihose problem commands you loiget most

Murtin Ian S54.95

12 lor $15.95

Van wnh

'I

iluili ma the following: Ban

Ainoujxi

Amount

cofooodoj* M Inl»r1«[4nc* Soppmi a S15?

□ ciucrji io mr ^UA o; Han [Card

* Color S[karp*n«t a Slfl «

>

HCW Color SMniriMi Cobt* O&349&

TTia MonLloj laipjo»»r "SI* OS

s

Th* Paul Swiith a SflflS

1

1

S/uppi nrj & Hanflimg

)

SuCTc .01

1

Dun conn

.

200

TOTAL 1

Commodoi* Dun cot*t « Sofli

1

Vic-30 Dkut Covtr e 50 vs

s

imi dui ruin Com 8BJ«

s

DoT(D*t Dujr Co»»l S5755

} _

BgnafuB

Bl

55O N. 68th Stteet, Wauwatosa. WI 53213

> i

Dealer Inqumes Invited

na

&ww£% *\e

suigtr prelector 9 79 > 99

am* to Ham*


Preparing The Pointer To set up any address pointer, you first divide the number by 256 to get the higher byte {usually called

the "most significant byte/' or "MSB"). 1024/256 = 4. So 1024 would be stored: 04. There is no remainder

in this case. That is, address 253 above would con tain a 0 and address 254 would contain a 4. Using

an assembler, you would set up this pointer by: LDA #0

{Load A with the LSB, the least significant byte)

By now, all this bother seems hardly worth it. Why not just LDA 65:STA 1024? If that one load and store is all you're doing, Absolute ad dressing is the easier and faster way. On the other

hand, loops and such greatly benefit from the Indirect Y addressing mode. What if you wanted

to check the first 256 screen RAM culls for the letter A? It would be swift and effective to store 0 and 4 into 253 and 254 and then:

STA 253 LDA #4

On most calculators, you'll need to enter 1027

256 = - 4 = X 256 =.

(the MSB)

STA 254

1000LDY#0 1002 LDA (253),Y

What would a pointer to 1025 look like? 1 4. And 1027 would be 3 4. Such pointers, fortunately,

do not need to be calculated often in a normal ML program. But when you need them, they're quite

useful. The easiest way to figure out how to set up a pointer is to use a calculator. Put in the number, divide by 256, subtract the integer, and multiply by 256. Let's practice it: Enter 1027 and then divide it by 256. You get 4.01171875. The integer, the whole number to the left of the decimal point, the 4, is our MSB. Jot it down. Then subtract it from the answer to leave

the fractional part, .01171875. Now to get the LSB, just multiply this fraction by 256. There's the 3.

1005 CMP #65 11107 BEQ 1020 1009 INY

(is it the letter A?) (if so, go do something In response)

(otherwise, raise Lhe index and look at the

next cell) 1010 BNE 1002

(branch back tn the start of the loop

unless Y resets to 7,ero.) 1013 do something here which shows that no A was

found. 1020 do something here which shows that we did find an A.

Notice the INY. It's the secret of the power of Indirect Y addressing. The value of Y is added to

the pointer. Therefore, you can address any cell within a 256-byte range by just changing the value ofY. 1024 becomes 1025, 1026, 1027...quickly, with each INY. DEY would work in the'opposite direction.

200 LDAs Imagine using Absolute addressing to accom plish this same task: 1000 LDA 1024

1003 CMP #65 1005 BEQ 990 found it, so branch.

1007 LDA 1025 didn't find it, so keep on looking. 1010 CMP #65

1012 BBQ 990 1014 LDA 1026...anci so on, I9S more limes!

One final note: You can't use just any zero page pair of memory cells to store your pointers.

You have to share this first 256 bytes with your 64 or VIC's BASIC and with its operating system.

m&tar64 ——~hy Eastern House

A Communications Cartridge for the Commodore 64. Upload/Download, Status Line, etc. Works with your Commodore 1600 or 1650 Modem. Auto-dialing, etc. when used with the new

CBM 1650 Modem.

Cartridge and Manual - $49.95

They put their pointers into zero page for the same reason that you will. If you don't use a tape drive, locations 165—177

are safe to use. Even if you do use tape, you can store things there if you don't load or store any thing to or from tape while the ML program is running. Most of the ML you'll write won't involve

loading or storing during the execution of a pro gram anyway, so 165-177 are normally available. And addresses 251-254 are always safe.

if you have any questions or topics you'd like to see covered in this column, please write to: Machine

Ijinyuage For Beginners, P.O. Box 5406, Greensboro, NC 27403.


THOUGHTFUL EDUCATIONAL PROGRAMS

'"'

.

C-M VIC 20 ATARI

CREATIVITY SERIES MY BOOK

Ages: 4 and up

Your child makes

his or

her own book!

Using only a joystick, your youngster picks objects

I WENT OUTSIDE WITH MOUPJY. DAD□Y AMD "> BROTHER TO SEE THE TflMN

.

vehicles,

Irom

the

library

(prin

cesses, pirates, houses, etc.). colors them and arranges

people,

them in the picture!

Older youngsters can then type in a story-line or caption, and the page is saved to disk. Page after page can be saved. But the fun isn't over yet! Your child can PRINT the book on almost any printer capable of producing Commodore graphics! The first program in BECi's new Creativity Series. Available soon for the Atari.

C-64 DISK: $34.95

CHILD DEVELOPMENT SERIES "The goal ol Boston Educational Computing is to provide owners o( the most elementary computer systems with educational software lhat can be used easily by those with little knowledge of computing. "In its Child Development Series, BECi (pro nounced Becky) meets this goal.'"

"Computes!'s Gazette, January 84 |j,

■ ALPHA-BECi

Ages: 2 and up

An alphabet program with 26 screens, each featuring a capital and small letter and an ob]ect. For a child, watching the colorful objects appear on

screen is like opening a present."" (ViC-20 only).

••/I NUf'lER'BECl A98S: 2 anct JP ** i Number identification and color and shape

grouping. Five levels and adjustable timing.

+m ~> ADD/SUB Ages: 5 and up ■■...■.■. 4 Addition and subtraction. Up to four digits. Optional objects, carries and borrows, decimal points and hints. Answers entered from right to left, one digit at a time.

Heats off to a machine language teaching system

that works.

Machine language programming Isn't easy, but you don't have to be a genius to learn It. Despite what you may think after getting lost in umpteen "How

to program the 6502" books. Let your Commodore 64 teach It to you. The Visible Computer: 6502 Is an awardwinning blend of text and software that thousands have used to master the elusive skills of machine language. It's an animated simulation of the 6502 micro processor that lets you see with your own eyes how the 6502 works. You'll be using It as a debugging tool for years to tome.

It's a tutorial. The 150 page manual Is more than just Instructions on running the simulalor — it may just be the best book on machine language ever written. It's 30 demonstration programs you'll work

through with the 6502 simulator, from simple regi ster loads to advanced graphics programs.

The Visible Computer: 6502 Send me The Visible Computer: 6502 for Com modore 64 (requires disk drive], I've enclosed S39.95 plus S2.50 postage and handling. I] Check or Money Order □ Visa □ Mastercard

^—|iii MULT-BECi Ages: 7 and up i

wiilw I Multiplication. Up to four digits in multiplier

and multiplicand. Answers entered from right to left, one digit at a time.

City's tate/7.lp

TAPE: S19.95

Credit Cjrd Nu.

DISK: $24.95

Eip.

If ordering directly from BECi, add 5% (or $2.00 mini mum) for shipping.

BOSTON EDUCATIONAL COMPUTING, INC. Dept. G

78 Dartmouth Street Boston, MA02116

(617)536-5116

Dealer Inquiries Invited ■

Charge cards and phone orders accepted.

Software Masters"

3330 Hillcroft, Suite BB Houston, Texas 77057

r '{713) 266-5771


File Copier Martin Engert

"File Copier" is a BASIC utility that lets you

transfer files from one disk to another using a single drive without worrying about starting

addresses or machine language. For the VIC-20 and Commodore 64.

"File Copier" can help those who want to copy sequential or program files from one disk to

another, but have only a single disk drive and no machine language monitor. Since the program is

written in BASIC, it's a bit slow. But one advantage of this program over a machine language monitor when transferring machine language programs is that you don't have to know the initial address or length of the program to be transferred.

File Copier works on both the VIC-20 and Commodore 64. The program first resets the top

of BASIC pointers to reserve IK of memory for itself. The remaining memory is used to store your file temporarily. VIC users should make sure enough memory is available for this purpose before running the program. Any amount of ex pansion memory can be added if necessary. Each

byte of your file is then read from disk using the GET# command and POKEd into free memory. Then you insert the new disk and the program writes these bytes onto it using PRINT#. After the file is copied, the top of BASIC pointers are restored to normal.

110

OPEN15,8,15

120

PRINT"WHAT

:rem 32

130

PRINT"THE

140

T$="P":PRINT"WHAT

150

PRINT"{P

160

PRINT"FILE)"

:rem

177

170

INPUTT?

:rem

160

180

OPEN2,8,2,F$+","+T$+",R"

:rem

128

190

IS

THE

FILE

OR

NAME

:rem

IS

S

FILE FOR"

200

210

POKEM+J,ASC{A?):J=J+1:IFST=0THEN200

220

CLOSE2

230

PRINT"INSERT

240

PRINT"DISK AND PRESS

250

PRINT"TO

260

GETCS:IFC?<>CHR$(13)THEN260

270

PR1NT"PRESS

280

PRINT"WANT

290

PRINTF$

300

INPUT"FILE

310 320

OPEN2,8,2,F$+","+T$+",W" :rem 128 INPUTS 15,E,E$,X,XiIFE<>0THENPRINTE$:C

330

LOSE2:GOTO300 :rem 129 FORK=0TOJ-lsPRINT*2,CHR$(PEEK(M+K));:

:rem

:rem 49 POKE52 , PEEK (44) -t-4: POKE56 , PEEK{ 52):CLR

30

PRINT"(CLR}RUN THIS PROGRAM TO1

40

PRINT"COPY

50

PRINT"SEQUENTIAL

60 70

PRINT"ONE DISK PRINT"DISK) TO

80

PRINT"DESTINATION

90

PRINT"INSERT

A

PROGRAM FILE

FROM"

(THE SOURCE" ANOTHER (THE" DISK)."

SOURCE

M=256*PEEK(52) COMPUTED Gazelle

OR"

June1984

DISK."

irem 89

srem 175 :rem 106 srem

133

irem 30 :rem 73 :rem :rem :rem

253 57 191

66

:rem

DESTINATION"

!rem

COPY."

KEEP

THE

:rem

228

:rem

116

:rem

(RVS)RETURN{OFF} TO

NAME"

IF

6

YOU"

irem 7 :rem 111 :rem

NAME

60

125

{RVS}RETURNm

";F$

146

;rem

77

srem

7

340

CLOSE2sCLOSE15

srem 85

350

POKE52,PEEK(251):POKE56,PEEK(251):CLR 145 W

COMPUTER ROAD ATLAS ROADSEARCH MAP

BEST ROUTE

POKE251,PEEK(52)

83

TYPE" irem 252 :rem 68

INPUT#15,E,E$,X,XsIFE<>0THENPRINTE$:C LOSE2:GOTO120 :rem 134 GET#2,A$:IFA?=""THENA$=CHRS{0):rem 90

TAKE TRIPS WITH COMPUTER

118

THE

FOR PROGRAM,

LISTINGS SHOWING THE

20

203

PROGRAM"iINPUTF?

srem

File Copier

100

:rera

NEXT

Screen instructions are provided within the program for easier use.

10

OF"

Enter the departing city and the destination city

ROADSEARCH comoules trie

shortest route Prints miles, time, lust and more ROADSEAHCH contains a roadmap ol J06 CMii?5/ioad junctions and 70.000 road

miles

ROADSEARCH PLUS (eitra cost) also contains a HOADMAP DEVELOP-

MENT SYSTEM wnich lets you customize your toadmap with up to 50 towns* road junclionsanywheiein North America

EASY TO USE. Back-up- cooies allowon Spcciiy Commo0uie-6J/disk 01 Apple Wile. All ColumbiaSO1IW3I6 carries a 15 OAY MONEYBACK GUARANTEE.

ROADSEAHCH-PLUS is 174 35 and ROADSEARCH is only {34.96. Add SI 50 shipping and handling. MD residents add 5째a state tax Ask your dealer or:

Columbia Software B01 J235C. Columbia. MD 21045 (301) 997-3100


Food for Thought Real computing at appetizing prices.

64 PAhC" A sell-teaching sampler packaged 10 menu-driven programs. Ideal as an introduction tocomputing. Or compute your life expectancy, your mortgage payments, even learn the language ol the deaf, plus a lot more. Only $19.95'. on tape; $24.95". on disk.

Inventory 64.'" An easy-to-use menu-driven program lhai lets you track complete and complex invento ries. Pinpoint locations, vendors.

units of measure, Update prices, re orders, sales, entire stocks. A power ful tool for your home computer at only $29 95*. on disk.

PractiFile!" A fully professional file manager for your Commodore. PractiFile can handle mailing list entries by the thousands. You can

change records, numbers, methods of filing, and a great deal more. Plus. it's easy to use. Only $54,95: on disk

PractiCalc " 64. The most powerful spreadsheet available for a home

computer-al the least cost. Track

investment, inventories, expenses. Project profits. Make charts. Keep mailing lists. Sort alphabetically or

numerically, instantly. An incredible value al S49.95". tape; $54.95: disk.

Total Health;" The fun way to keep lit. Stay on lop of your daily inlake and outgo of calories. Balance your daily diet and graph your progressall lailor-made to your body, past, present, and future. It's like having a

health spa in your home lor only $24.95". on tape; $29.95"on disk.

Now you can do real, honest-lo-goodness computing at computer-game prices. Computer Software Associates brings you hard-working software that makes your work easy. (While it's easy on your budget.) All programs are easy to work with right on the screen, from self-teaching instant software that tracks your

vital statistics to potent programs to track inventories and profits.

rfltth ff\hJTD11TViy

Oi course, if it's games you want, we've got them too. Bui if you're look- ^SSr S^™*"^ ing foi home computer power with real brainpower, look no more. Now ■• SOFTWARE you can play for keeps. ^W ASSOCIATES,INC. Exclusively distributed by Micro Software International, Inc. • The Silk Mill, 44 Oak St.. Newton Upper Falls. MA 02164 - {617} 527-7510 "Prices are suggested retail, actual retail prices may vary. ©1984 Computer Soliware Associates, Inc Commoaorn fM", trademark ol Commodore Business Machines, Inc.


HINTS&TIPS

Appending

Sequential Disk Files John S. Winn

If you've discovered .1 clever, timesaving tech

nique, or a brief but effective programming shortcut, send it to "Hints & Tips," c/o comPUTEi's gazette. If we use it, we'll pay you $35.

Sequential files are lists of things—phone num bers, addresses, names, or other data—kept on a

disk. They arc similar to tape files (which are also sequential) because they keep the information in the same order it is entered. The first item written

into the file will be the first one to come out when

a program reads the file. It's easy to write BASIC programs to construct such lists. But how do you add new information to the end of a sequential file? The 1541 disk drive user's manual suggests

two possible solutions. The first is to read the whole file, add the new data, and write the file out again. The longer the file, the more time it takes, which can be rather annoying. Or, perhaps you could switch to random access files, at a con siderable cost in programming effort.

A simpler method is available, but it's not mentioned in the user's manual, and thus is not

widely known. The operating system on Commo dore's PET and CUM series (with 1JASIC4.0) in cludes an APPEND command. The VIC and 64

versions of BASIC do not recognize this command, but your 1541 disk drive does. And it's simple to use.

Normally, when you want to write a sequen120

COMPUTEI's Gazelle

Jumg 19Bd

tial file, you use OPEN 1,8,8, "filename.S, W" (the S means Sequential and W means Write). To

read the file, replace the W with an R. The method for appending uses a similar form. If you want to add to a file which already exists, just use OPEN 1,8,8, "filename, A" (A for Append).

The following short programs demonstrate this useful command. Pirst we'll write a new file containing the first ten letters of the alphabet. 10

OPENl,8,8,"ALPHABET,S,W"

20

A$="ABCDEFGHIJ"

30

TORJ=1TO10

40 PRINT#1,MID$(A?,J,1)r 50

NEXT

60

CLOSE1

RUN the program. The red light on your drive should blink on, indicating the file is being written.

Then, append to this file the next ten letters of the alphabet, using the A (Append) in the OPEN statement. Change lines 10 and 20: 10

OPEN!,8,8,"ALPHABET,A"

20

AS="KLMNOPQRST"

RUN the program again and the new data

will be added to the file. Now read the file to doublecheck that the technique worked. Type NEW and enter this short program. 10

OPENl,8,8,"ALPHABET,S,R"

20

PORI=1TO20

30

GET#1,A?

40

PHINTAS

50

NEXT

60

CLOSE1


Software that's priced UNDER the competitions' COMMODORE 64

COMMODORE 64 Confd. Just for YOliI

Continental Home Accouniani (D).

$47

Continoniai to* Advantage (D)

$31

Continental fCM First Oass Mail

(19

Crealne I Am Your MI(DJ

$W

Crealne I Am Vour64 II (D) Seortxirough Mastertypo (D)..

.. S19 (29

Scaibcuxrgh SongWhler (D)...

S29

Sconx-roug* toiesrion HoDO (D)

S2v

IimowVs Elecironic Chocitoaol'(DSC)S19 limewcVs Monoy Pytanagor (f)&C)... S19

Tlmewoivs Swlfla* (D)

S3'

Creative Household Finance (D)

$23

Creative Household Fmarx:e (C).. .. $19 HosWaro Finance Manager (□)...

U9

Caraco fa* SurukOl ftogram (D) . .

$33

MosWoro 6S02 F=ro Devel 5yj (D) ,,,, $19 Hesvjore Hesmon M (CI) $26 HosWtoro M Fortri(CI) . HSlWara Graphics Basic (CI)

(39

HesWare HES CAT (D)

$19

HesWare HES FOMT (CT)

S16

HesWnreHESKIl(Ct) .

Bluo »y Scnpi 64 (D)

$49

CorOco Wile New'(D)

$39

Timeworks Word \*trtor (D) on-uns HomeWad (D) Ooolivo Joos vWer (D)

Si? 139 MI

nosWore CmniWit& S Speti (0)... Blue Sky Script M & Seen (D)

. $*9 $49

Wadfto 3 Plus 5peE«Bnl ID)

$69

Multlplcn (0)

$75

llesWaie Omnicaic (0) MSI Prociicaic (DS.C)

$37

Homo Calc (DSC)

(36

Cnratrvo Jock's Caic(D)

MJ

S3S

MSI Programmable Ssreadsheoi (DJ. $SS

HAftOWABE

$45

.

"cess Sontemosler (D&C)

$39

$23

r.rrxjwks ciogramg. mil Ii IIKU&CIm $19

Buo Sky LasiCoe(D)

$79

Bue Sky 80 Column (D)

$29

Bluo Sky Graphic Dobqow (0)

(29

BluO Sky M Stoliitics (O) Bluo Sky Super Bavc (D)

S29 $29

Riuo Sky Ado Cn Basic (D) B!uS Sky Suoer Copy (D)

,. (29 $29

Cymbal General Ledger (0)

US

Cymbal Accounts Rocoi«jole (D) .

US

Cymbal Accounts Povobio ([')) Cymbal inveniory Control (O) . Cymbal invoice Writer (D)

S4S S4S

SOFTWARE

FREE DISKETTE

with eoch purchow o( electronic artiioftwara

COMMODORE VIC 20 !■: Oaotrve Hom^ CIk." I Great™ Homo dtp (D).. Creative Housed:.a F,i»v>.<; .',:/ Creative Household \ mance (C)

$22 Sis (17 513

MSt Practicaie Mus(D),... MSI Ptactttwo hus (!)-..

535

MSI ftacticota lU)

533

Catato Write Now i Fun wim Art (CI)

Cole Result Advanced (D) .. $7S

OeaiivaFreds Filer (D) Timewavs Cola Manage' (D&C) ..

$42 . $19

TlmeworW tola Manager II (DS.C) .

$39

CoaOWtiter Homo Fiiowritor JO)

S5S

Fntech Data Base M (D) MSI FTacliMo (D)

SSS 119

tc,-. !>agcn Ridefs of Pern (DSC)

S35

Eoy> SiiCOn Warrior (CT)

$25

Epyi Rtstcp (CT)

127

Edvx Temple ot Aoshoi (DSC)

S27

£py> Gotevray lo Aoosf>Oi (Cl) Ipyi Upper Beacnei (DSC)

127 116

Lpyt Jumpman Junior (Ct)

$27

Subiogic Rnball (DSC)

»0

HESWAOE SPINNAKEO

HinaerCompiCI) Stoty Ntocnme (CT)

533

loco>A3ker (CI)

S23 523

KiiisOi Hov>(C!) Alphobel Zon (CI) HejWfarB Turtle Goiihi. 1)

533

i.

S26

Croaiivo l'ipos(C)

Slv

Creative Suiiis S Fiiii ;c) Wl/Wivo Turtle frock! (C)....

S19 519 519

HrodorDiind Chopliflsr (CT)

(27

Subroglc F/cghi Smuiolor

$27

CodeWlller ElF Easy Long Fwm(D)., $4S

Soga Congo Bongo (CI) Sega Slar Trek (CT) Sugo Fiick Dcijeis (CI) (V:ess Seach Head (DSC)

$25 $25 $25 $23

Avolon Hill lelenGuard (C)

$15

Epy» fun with Art (CT)

«7

S27

$12

CreaTve Choplitter (CT) EdV* TpmciO Ot Opinor (C) ..

Eov> Fun wim Mjse (CI)

Avaion Hill B-1 Bomber (C)

(19

Sega Slai rrok (Cl)

SSS

5*>inno*o' Delta Drawing (CI)

(14

125 $22

Eeaa Congo Borgo (C

HesWare Riinttxush (CT)

QeotiveOisiL Mounlaui (CI)

S19 S34 S35

Dolio Muse (CT)

(14

Hoswaro Synthosound (D)

119

Soinnokirr Aerobics [D) CcoOW>iror Dialog (D)

$33 $45

SPINNAKER LEARNING FUN

AIT Color Cows (Ct) ages 3-6 Alphabet Zoo (ct) ages 2-8

S26 123

Face Maker (ct) ages 3-8

123

KinderComp (CI) ages 3-8

(19

Kial on Keys (cl) ages 3-'

$2)

BuDtjia Burst (cl) oges 4-8

$14

Grandmas (souse (D)aaes A S

. $23

Slory Moch™ (cl) ooot 5-9

$14

HonchWest let) ooes 5-10

$24

Fraction Fever (cl) oges 7-12 JukoBo. (ct) ages S-oduii Aegoon Voyage 'CT) oges B-oouIr... Up For Grabs (ct) ages Bodult ., .

$23 $24 $26 $26

Aoventure Create (ct) ages 12 8. uu. i26 DESIGNWABE (DISKS) CiyDIO Cubo oges 8 S up Spelllcopler oges 6 & up

(29 $29

Deotr Croat.or oges "1-8

(J9

Math Moje aoas 4-11 SpnllokuZom oges 7-14

(29 (29

SpottaG'apn oges 7-AA

SCHOIASHC WIIWAK (DISKS) Turtle Tracks ages 9&up.

$29

.,,.r. S21

Bonnercoicn ages ? S ud

$27

DoutHo Adventure oges 9 S up

$17

DouOie M/siery oges 9 & up

$17

Secret Filer ages lOSuo Logo Itobol oges 10 8 uo Square ftiirs ages 7-12

$17 117 $17

HoiWaro Turtle Graphics II (ct)

139

Synnpse Ion AcccolyDso (D«C> Synapse Bluo Ma< (E»C) ..

Synapse Zeppelin (D*C)... Synapse Ssntinel (DSC).... Vapso ZAXXON (DSC)... Screenplay Pogo Joe (D&C),,. SaoenHay Asylum (DSC) Screenplay K Uston Fjiackwck (D)

$22 S23 $22 SI8 S19 $23

S57

Qjick Siiuo Ring Power (DSC)....

523

SJjick Silva AquaPlane (D) PorUerQ'BERT(CT) Poraer Pooeyo (CI)

533

Parker Frogger (CT)

$39 $39

PaikorS-aruVars(CI) FOrker JjmesBona 00/(Cl) i Sior Bouiaer Dajft (DSC) F.isl Slor Frip/Ftop (C«C)

539

539

W2WoreSauorePoiriCC] ...

PERIPHERALS CHALKBOARD POWfftPAI) (C6J S Aion) Software Packages

PRINTERS

S37v

SIAQGEMrNI 10S,... -

5387

ALPHA COM 81 ALPHA COM 40 -. . CotjKr vmrfi WpnaCom BMCBI60 3 B2A JB3A

516?

Tionsiar UlSCan

579

FREE

5367 S3S9 5589

.

MODEMS

S33 SI? S19 SI4 S37 5!6 534

HesWare Vic Fourth(C[) .

un Drew a»e

Ancnoi Mor* 7 300 baud Ncvotion j-Cor 300 Mud CamrTiodoro 1600 Tvtodem

ComrooOoui 16S0 Aiito M

$79 547 $129

5119 $58 S155

MONITORS A/tbJo* Color 1

5287

DMC i J

Lomeositu Cof Pun

5339

BMC 1Z

Low r«n Groor.

5B5

BMCl?'LO»RosAmo&j bmc I?" hi net Ameer

$99 $11* 5129

USI 12" Green Hi H. Ites

5129

JS112 Amber hi Hi rVos

US114" Composite Color

$139 5279

Manila: cnblo w/above

$10

BMC 12'HinHiGwon

Concord flirt I

5379

Commodore I-

$249

s.-»d S!<cfc

514 $21

'Jurnwc Xovpcia Cwl . Graphs fTmlor Inferfoce ECOnolTV ftmtor InleitOCO

537 $69

16KBoatd

$53

Casselte Ir^torfaco

539

$39 549

BLANK DISKETTES

tog-c Pviastor Leo's Links

537

$25 12S

Rncai Constnjcisjri Sf1 il'J ■.

A DeaL

M.ULE (D) Worms''(D) Archon (D) Hard Hut Mack(D)

12629 N.Totum Blvd.

Muraer on ihe Zinoeinouf (0) ..

Tf«* Tossornct Srrnfodv (D) ..,, . Woo dyer (D) $35 Tho Cut ft "tisrc VJoni Proceuor (DJ . $50 r>Bug(D) .... $35 A»rs Aaasvn (D)

S15

Muw: Consiructrtxi Set (D) Frames* Coc*boi*(D)... Or J & Larry B-rd One O" Ow ([))

540 $50 540

Suite 136 Phoenix, AZ 85032

CALL TOLL FREE 1-800-431-8697/602-957-36'19

For Customer Service Call: 602-957-3619

it^MS 5*?ix] caw** cru-ck ircrey caer. tieriorvjl/co^to^ Ci^ckj fiiio* 3 *«*& Du^k ciajiiarci- vilVMairorCanl occ*>pifij !

"'"^Nti la<T*oifl tMa U 00 ro< first □■«» n-n;1 j.'L»Gcn oad.rorvsi oitte Mjrti^arooL]c]34c51DOD Y*ithoi*wtf

lPKwinufnbor (coll fO2 0fifl-31J6 tor auth&Juton nu"*t*-i) fljl rorumod rriorC'iano.sasUJIOCtlorOltQCkir^ottfitorxlinul

ffcrrA.rnidilov*aor]or WaayilJom shipp'"a|Jal" F«coi am to cnFi viSAona IvtHlwCarO Mi 31 PncOitjD)DCtloctim>gu iLtjhCt ro cjvailarj'hty rom rTtanLFtacrurrwi aru/o njixjihuri fljioiicosin US t»il(n VWipoy itnixiirvj ori


ATTENTION ALL COMMODORE 64, VIC 20, and PET OWNERS! A complete self-tutoring BASIC programming course is now available. This course starts with turning your

computer

on,

to

programming

just

about

anything you want! This course is currently used in

both High School and Adult Evening

Education

classes and has also formed the basis of teacher literacy programs. Written by a teacher, who after having taught the course several times, has put together one of the

finest programming courses

available today. This complete 13 lesson course of over 220 pages

is

now

available for the COM

MODORE 64, VIC 20, and PET computers and takes you step by step through a discovery approach to programming and you can do it all in your leisure time! The lessons are filled with examples and easy to

understand

explanations

as

well

as

many

programs for you to make up. At the end of each lesson is a test of the information presented. P'urthermore,

ALL answers are supplied to all

the

questions and programs, including the answers to

When you RUN this program you should see all 20 letters on the screen. It works. There are a couple of things you should be

aware of when you use this new command. First, you cannot use the A command to open a file for the first time. The file must already exist—you

have to use OPENl,8,8"fiIename,S,W" before

appending. If you want to, you can create an empty file with a CLOSE 1 immediately after the OPEN statement. You can then use the A com mand within your BASIC program.

Second, if you use a lot of appends, disk space

can be used up more quickly than normal, due to a quirk in the append command. Think about the file created by the two programs above. It is short (containing only 20 characters) and should use only one block on the disk. But if you call up the directory (LOAD"S",8 followed by LIST), you will notice that ALPHABET uses two blocks. This is because the A command puts the new data at the beginning of a brand new block. Even if you append only one item, it will use up a whole block.

If you append often, you may start to lose free disk space. The answer to the second problem is to read

in the whole file, scratch the old sequential file, and write a new one, a process we originally wanted to avoid. But at least you won't have to

do it every time you append. Sfl

the tests. Follow this course step by step, lesson by lesson, and turn yourself into a real programmer! You won't be disappointed! We will send this COMPLETE course to you at once for just $19.95 plus $2.00 for shipping and handling {U.S. residents, ploase pay in U.S. funds). If you do not live in the U.S. or Canada, please add $5.00 for

SOFTWARE More Games, Challenging Problems and Programs Than You Can Shake A Joystick At!

shipping and handling (and pay in U.S. funds). If you are not COMPLETELY satisfied, then simply return the course within 10 days of receipt for a FULL refund.

Fill in the coupon or send a facsimile.

FREE

NAME;

1984

Catalog

ADDRESS;

CITY: PROV./STATE: I'OSTAL/ZIP CODE; CHECK DESIKKl) COURSE;

COMMODORE 64 U

VIC D

PET P

68 Winding Way,

Complete course;

$19.95

Brantford, Ontario,

Postage anil hand:

Canada, N3R 3S3

Total:

Send Cheque or Money Order to: Brantford Educational Services

$2.00 (21.95

••■■■•■•••••••••■•a*

122

COMPUTE'S Gazelle

June 1984

FREE PROGRAMS Write for Details. CompillerMat -P.O.Box 16MG'LakeHavasuCHy.Ari!ona8M0:]


CodePro-64 (c) 1983. SMA

0 — Using Code Pro-64 1 — CBM-64 Keyboard Review BASIC Tutorial

2 ~ Introduction Io BASIC

3 — BASIC Commands 4 — BASIC Statements

5 — BASIC Functions Graphics & Music 6 — Keyboard GRAPHICS 7 — Iniioduclion Io SPRITES S — SPRITE Generator 9 — SPRITE Demonstrator

A — Introduction Io MUSIC B — MUSIC Geneiator C — MUSIC Demonstrator

o il ii; r Options K — Keyword Inquiiy R — Run Sample Programs Select Clioic* « hit f7 lor Default

Now you can learn to code in BASIC and develop advanced programming skills with graphics, sprites and music—visually. You learn by interacting with CodePn>64. a new concept in interactive visual learning.

SEE PROGRAM EXECUTION

Imagine actually seeing BASIC state

ments execute. CodePro-64 guides you through structured examples of BASIC pro

gram segments. You enter the requested data or let CodePro-64 do the typing for you. (It will not let you make a mistake.)

You step through and actually see the execution of sample program statements by simply pressing the space bar. CodePro-64

does the rest. You see statements with cor-

respondingprap/iics and variable value displays.

EXTENSIVE TUTORIAL

CodePro-64's extensive tutorial guides you through each BASIC command, pro gram statement, and function. You get clear explanations. Where appropriate, you invoke BasicVlew to see examples execute and watch their flow charts and variables change.

By seeing graphic displaysof program seg ment execution you learn by visual example.

You team faster andgrasp programming concepts easier wilhCodcPr&FA because

you immediately see the results of your input. You control your learning. You can go

through the tutorial sequentially, or return to the main menu and select different topics, or

A new concept

in interactive visual learning.

CodePro-64 more advanced concepts. You learn about sprite and music programming.

SPRITE GENERATOR & DEMONSTRATOR

CodePrc-64's sprite generator lets you

programming parameters and hear the results. All you do is enter rowsof SID parameters on the screen to create a particu

diskette file for use in your own programs.) You can easily experimentvj'hh different definitions and make changes to imme

playingthe "keyboardorgan"'mrea\timeas

learn how to define sprites and what data values correspond to your sprite definitions. (You can then save your sprite data to a

diately see the effects. We also helpyou learn to program with

sprites by giving you a sprite demonstrators

you can see the effect of changing register values. You can experiment by movingyour

sprite around in ascreen segment, change its color and see the effects of yourchanges. You

learn by visual examples.

MUSIC GENERATOR & DEMONSTRATOR Our Musk Generator and Music Demon-

sfratorwill provide hours of instruction and creative enjoyment. From the beginningof your instruction you can compose simple tones on the screen using the generator. Once you've completeda composition you

can save the tune and its associated SID parameters to a diskette file. Our music sam-

OUR GUARANTEE We guarantee yowsatisfaction. You

must be satisfied with CodePrr>64 for

tion key.

and if for any reason you are not satisfied return it to us (undamaged) for a full refund. No risk.

Once you have practiced and mastered the

BASIC language elements you move on to

Our music demonstrator lets you experi-

men/with various combinations of music

define your own spriteson the screen. You

use keywords to sekcX language elements to study. You can page back and forth between

screens within a topic at the touch of a func

pie program can be used alone or incorpo rated into your own programs to read the saved music file and replay your songs.

theCommodore-64. Try it for 10 days

SYSTEMS

MANAGEMENT ASSOCIATES

lar sound. Then you hear each sound by

you shift from row to row of SI D parameters. By seeingyour input and hearing the result you quickly learn how to create new nvusical sounds and special sound effects. Whether you're a beginning programmer

or an experienced professional, CodePro-64 will help you improve you Commodore 64 programming skills. We're sure because

CodePro-64 was developed by a team of two professionals with over25years of software development experience. CodePro-64 isa professional quality edu cational program for the serious student of personal computing. And it's fully guaran teed. Order yours today.

HOW TO ORDER Order your copy ofCodePn>64 today by mail or phone. Send only $59.95 plus $3.00 shippingand kindling to: SYSTEMS MANAGEMENT ASSOCIATES

3700 Computer Drive, Dept. C-l Raleigh, N.C. 27609

Available on diskette only. MasterCard/VISA accepted. For faster service on credit card orders, call toll free 1-800 SMA-RUSH. (1-800-762-7874}. Ileater inquiries invited Commodore 64 isa trademark of Commodore Business

Machines, Inc.


VICreations Dan Carmichael, Assistant Editor

Software For The VIC In this month's column, we'll look at some new games and educational programs for the VIC-20.

Commercial software for the VIC-20 has decreased as of late. Thai is not to say th.it the popularity of

the VIC has also lessened. Nor does it indicate

that support for the VIC is waning. With the in troduction of the Commodore 64 and other com puters, a greater area is being covered by software companies. However, there are still many good games, educational programs, and applications

being offered for (he VIC. We'll look at a few of the better ones here.

Educational Programs Type Attack, from Sirius Software, is a novel typing tutor program. Usable by all ages, it teaches letter recognition and keyboard familiarity. Because the typing speeds can be set from I to 99 words per

minute, Type Attack can help improve the tech niques of novice and expert typists alike. The program contains three lesson options: Character Attack, Word Attack, and Lesson Maker. Character Attack teaches character recog nition, Word Attack teaches word recognition, and the last option allows you to set up your own lessons. Type Attack offers more than many other typ ing tutors in that it plays like a game. You learn and have fun at the same time. Based on a Space Invaders theme, the letters and words drop from the sky. The player blasts them (and defends the earth) by pressing the appropriate key or keys.

The action can become so fast and furious that even the youngest child's attention can be held. If your software needs include a typing tutor, I strongly recommend this one. Kindcramip, from Human Engineered Soft ware, is a collection of learning games for children ages 3 to 8. Four of the games are Names, Se quence, Letters, Match. Names allows you to type in the child's name,

which is then displayed on the screen a number of different ways. Sequence presents a line of numbers in se134

COMPUTEI's Gaielle

Junnl9B'l

The Match option from Kindercomp.

quential order followed by a question mark. The child is then asked to supply the next number in the sequence. A right answer is rewarded with a

smiling face, and three correct answers in a row produce a colorful screen display with sound.

Letters displays a single letter on the screen, then asks the child to type the same letter on the

keyboard. Right answers are rewarded with colors and sounds. Match familiarizes the child with shapes and patterns. A pattern of three shapes appears in a box. The child is then asked to identify the pattern by matching it with one of three choices. All of the games feature good color and sound to hold the child's attention.

A Full-Featured Word Processor Write Nozv!, from Cardco, is a word processor for the unexpanded VIC. It contains many of the op tions you'd expect to find in word processors de

signed for computers more powerful than the VIC. The program is on cartridge, so there's no handling of fragile diskettes, or lengthy tape cas sette loads. Other advanced features include: • Multiple line headers and footers. • Ability to save text to tape or disk.


Skyblazer offers good graphics and fast action. • Options for sending special printer codes. • The ability to recall frequently used passages and insert them into your text. • Text scrolling up or down.

• Easy insert and delete modes.

• Block commands including copy, move, and delete.

• Global search, which allows you to find and replace any string. • Optional page numbering at the top or bot tom of the page. • Instruction booklet and a 30-minute audio cassette instruction course.

All you need is a disk drive or cassette (if you wish to save the text).

Games There seems to be no shortage of games on the market for the VIC. Some of them bear no men

tion. However, there are many that play well and offer hours of challenging fun. Here are a few of them: Skyblazer is a "defender" type of game. It

offers smooth horizontal scrolling plus good graphics. And there's plenty of action.

The object of the game is to successfully com plete the five missions, or game levels. The first

An arcade classic for the VIC, Donkey Kong.

Donkey Kong, from Atarisoft, is a relatively accurate version of the arcade classic. The object of the game is to guide Mario through the steel girders and rescue his girlfriend from the clutches of a gigantic gorilla. The game offers four different levels of play. While climbing upward, you must avoid the roll ing barrels, firefoxes, mad springs, and cement piles. Grabbing the magic hammer allows you to smash the rolling barrels. The game is challenging, and the colors, sound, and smooth graphic animation make it a

fun game for the VIC. Donkey Kong is available on cartridge and requires a joystick.

Lazer Zone is a fast-paced shool-'em-up game. The object is to fend off the attacking Warfiends of Zzyzax. You're armed with two rapidly firing

cannons. The cannons are located at the bottom and the side of the screen and each moves and fires independently. Maneuver each cannon to shoot and destroy the invading Zzyzaxians. Although the game is simple in theory, it's fun to play. The action is nonstop, and the sound effects arc very good. Lazer Zone is available on cartridge. Capture the Flag, from Sirius Software, is a unique gome in which you maneuver through a maze to capture your opponent's flag. But this is not the usual maze game. Instead of viewing the

level puts you on a bombing run to destroy enemy

field of play from the top, you see it from ground

radar. Once this is destroyed, your next missions

defenses, the final challenge is to destroy the

level. This produces an interesting 3-D effect as you work your way through a maze of walls towering over your head. Game options include a pause control and a

enemy headquarters. And thai is not easy.

feature which allows you to toggle the labyrinth

Skyblazer contains good graphics and sound. Also included are options to pause the game, or adjust the positioning of the screen display. Avail

maps on oroff. You can also choose to play defense

include attacking the enemy lank and ICBM

defenses. After you've destroyed the primary

able on cartridge, all that is needed is your VIC

and a joystick.

(protect) or offense (capture). You may also choose your opponent—-a friend or the computer. Although the 3-D screen display and the game action make this one of the best games I've seen COMPUTEIS Gazolto

Junol98<1

125


on the VIC, it does have one inconvenience. Dreary music plays throughout the game, and the instruction manual offers no way to switch it

off. The music gets monotonous after a while, but you can always turn your volume down. Capture the Flag is on cartridge and requires a joystick. Type Attack and Capture the Flag

Sinus Software 10364 Rockingham Dr. Sacramento, CA 95S27 (916)366-1195 $39.95 each Kindercomp and Lazer Zone

Human Engineered Software 150 North Hill An excellent 3-D effect in Capture The Flag.

Brisbane, CA 94005 (415)468-4111 Kindercomp—S34.95

San Rafael, CA 94901

Lazer Zone—$29.95

(415)479-1170

Write Now!

$34.95

Cardco Incorporated 313 Mathewson Ave.

Donkey Kong Atarisafl

Wichita, KS 67214

1265 Borregas Ave.

(316) 267-6525

P.O. Box 427

$39.95

Sunnyvale, CA 94086 (408)745-2000

Skyblazer

Brixterbumi Software

$44.95

Entertainment Software Division

17 Paul Drive

GET MORE FROM YOUR COMMODORE Whether you swear by the VIC-20® or the Commodore 64, your Commodore computer

can give you even more—regardless of your age or level of programming ability—with Wiley Press paperbacks.

MASTERING THE COMMODORE 64 A.J. Jones & G. Carpenter

Following a descriplion-and-example format, with each BASIC command or concept illustrated by a brief pro

gram, this guide covers PRINT formatting, string handling, machine code programming, and how lo use a machine code monitor, as well as the lighter side of owning a Commodore 64: sound, graphics, and moving graphics capabilities. Book {0 471 80755-9)

approx. 256 pp.

Book with program disk (0 471 80751-6)

$14.95

$39.90

WINNING GAMES FOR THE COMMODORE 64 Terry P. Barrett & Stephen Caliuill

And for gelling down to business with a minimum oj fuss.

Featuring an unusual combinalion of teaching and game playing, this guide gives lips and examples for each of the games presented—including a routine that speeds up the action to higher levels of challenge. Over twenty high-level

Eddie A da mis

arcade-type games are included, with complete analyses of how each works. (0 471 80725-7) approx. 144 pp.

$12.95

BASIC SUBROUTINES FOR COMMODORE COMPUTERS More than 300 BASIC subroutines for the PET®, VlC-20^, or Commodore 64—tested and ready-to-run,

{0 47186541-9)

320 pp.

$12.95

PET® and VIC-20® are registered trademarks of Commodore International.

WINNING GAMES ON THE VIC-20®

WILEY PRESS

Test your reflexes and sharpen your hand/eye skills with

605 Third Avenue, New York, N.Y. 10158

Terry P. Barrett & Antonia J. Jones

a division of John Wiley & Sons, Inc.

the book that lets you test all the color, graphics, and

sound capabilities of your VIC-20. The twenty games in

this book include sixteen arcade-style games, two versions of chess, and Anagram and VICmath for astute problemsolvers. For each game there's a complete program listing plus helpful notes on the special techniques used in writing

lnCarud.i 22 Worcetirr Road, Rl'*<Lik-.OniJTPuM9

Prices subject lo chart** And higher m Canada

4-1814

it—and uj/nning it.

(0 471 80601-3)

wf

approx. 140 pp. $12.95 126

COMPUTE!'! Gaialtg

Juna1984

Unlocking the power of computing


Scroll 64 Peter Marcotty

A window can make a static screen more dy namic. This short machine language routine gives you control over screen scrolling from within BASIC programs.

fuel, velocity, and so on. It would be confusing if your score moved with the asteroids, so the action of the game is put in a window. Your score goes somewhere outside the window.

Business programs can benefit from win

Someone spots a tornado and reports it to the local weather bureau. Your television beeps and a

warning moves across the bottom of the screen. How would you create that effect on your 64? How do you make words scroll sideways?

Scroll Control And Windows When you LIST a program, the screen fills quickly. As new lines appear, the screen scrolls from bot tom to top (everything moves up a notch).

But there maybe times when you want move ment from top to bottom, or right It) left. Or perhaps you want some information to stay in one section of the screen while everything else moves.

You need a screen window. Things in the window move, while everything else stays put.

Some new computers, such as the Apple Macin tosh, have built-in windowing.

"Scroll 64" won't turn your 64 into a Macin tosh, but it can make your screen displays more dynamic.

Asteroid Belts And Invoices There are many ways to creatively use screen windows and scrolling. For example, scrolling is common in certain types of video games. You

drive a car on a road that moves toward you. Or your spaceship at the bottom of the screen has to

shoot at descending asteroids. In addition to the action window, there is usually a section with information about your current score, remaining

dows, as well. You might want a command line in an invoicing program, to remind the user of the various options. The window would cover all of the screen except the last line, which says

"Fl = Help F3 = New F5 = HelpF7 = Continue." Everything scrolls on the screi?n except the line at

the bottom. Another possibility is a product list window in the corner of the screen. When the

user of the invoice program wants to look up a product number, the window opens up and the list scrolls by.

Customizing Your Programs Scroll 64 is a machine language program which goes into memory locations 49152-49528 ($C(H)0-

SC172). It does not use any BASIC RAM. The BASIC loader program reads the DATA state ments and POKHs the numbers into memory.

When the ML program is safe in memory, type NEW to get rid of the loader and clear RAM. To use it, LOAD and RUN Scroll 64, type NEW, and then LOAD your own program. To activate it, simply SYS 49152. It scrolls once and returns to BASIC.

Or, if you prefer, you could build the BASIC loader into your program. Renumber the lines

(starling at 60000, for instance), add a RETURN, and call it with a GOSUBat the beginning of your program.

Scroll 64 moves a certain section of the screen in a certain direction, along with the correspond ing color memory. These memory addresses con tain the pertinent information:

COMPUTEIs CaiBlle

June 1984

137


LOCATION FUNCTION 49522

Direction

49523

Left Boundary

49524 49525

Right Boundary Top Boundary

4952b

Bottom Boundary

49527

Horizontal Wrap

49528

picking up a letter and dropping it down one line.

The 64 can do smoother scrolls, moving char acters a pixel at a time. The key is memory loca tions 53270 (horizontal) and 53265 (vertical). To do smooth scrolls, use these formulas: POKE 53270, <PEr.K(53270)AND248) + X

Vertical Wrap

POKE53265, (rEi:K(53265)AND248) + Y

Direction is the way in which the screen

scrolls. To change it, POKE 49522 with one, two, three, or four (for left, right, up, or down respec

tively). The boundary values define the size of

the window. Left and right boundaries can range from 0 to 39. Top and bottom must be between 0 and 24. When the program is first run, a five by

five window goes in the top left corner.

The wrap values determine what happens to characters when they reach the edge of the win dow. You can make them disappear or wrap

X and Y can be any numbers from 0 to 7. Once you've gone to 7 orO, you'll have to do a regular scroll and reset the smooth scroll to the other limit. Smooth scrolling can make an action game look

more realistic—the characters don't jump around, they slide. A minor annoyance in this method is that while the screen is doing a smooth scroll, you

may see small gaps at the edges. You can get

Number Effect

around this by turning off bit 3 of these two regis ters; in the POKEs above, AND with 240 instead of 248. In effect, you pull the border in a notch, resulting in a 38 column by 24 row display (instead Of40x25).

0 1 2

screen, it is not compatible with Scroll 64 windows. If you combined (he two, you would see smooth

around to the beginning. POKE 49527 and 49528 as follows: Don't wrap around, leave a trail Wrap around Don't wraparound, erase (rail

To activate the scroll window, SYS 49152. You can SYS over and over, changing the direc

tion, boundaries, and wrap values as you wish. Note that when the ML routine is activated, what ever is in the window scrolls, but at all other limes, the screen acts as it normally does.

Because smooth scrolling affects the whole

scrolling inside (he window and jittery, vibrating

characters outside the window. To fix this would require a high-res screen, customized word sprites, or a raster interrupt wedge.

See program liftings on page 176. (g

ULTRA COPY 64

Special Loading Instructions Enter the program and SAVE it before you test anything. To put the ML into memory, type

DISK DUPLICATION SYSTEM

RUN 60

The computer will take a few moments to

FOR COMMODORE 64

complete the POKEs. As added insurance, there is a checksum routine built in. Type RUN and the values in memory are checked. If an error message appears, check the DATA statements. Block 1 includes lines 5010-5050, block 2 includes lines 5060-5100, and soon. If you find a mistake, fix it and type RUN 60 followed by RUN. Remember to

• Analyze disk tracks for data & errors

SAVE the final, debugged version. There is one thing to watch out for. If you decide to use a single line for your window, you can scroll left or right, but don't try to move up or

down. For example, if you set the top boundary to five and the bottom to five, you can scroll line five to the left or to the right. But try to scroll up and the computer crashes. And you cannot escape the crash with RUN/STOI'-KESTORE. You have to turn your computer off and [hen on again (and lose whatever you have in memory).

Smoother Scrolling Regular scrolls move whole characters. It's like 128

COMPUWs Gazette

June 1984

Skip empty tracks to speed copying

• Copy everything incl. DOS flag & false ID • Put errors on copy as required • Fast, reliable copying with 1 or 2 drives

$39.95 plus $3 shipping. 98% OF SOFTWARE CAN

Mastercard and Visa BE ULTRACOPYEQ

C-64 ULTRA RESET SWITCH • Built Into new 6 foot disk drive cable • Nothing to solder - no connections • Eliminate voltage spikes & switch wear

S16.95 plus S3 shipping.

ULTRABYTE

Mastercard and Visa

Call (313) 562-9855

23400 Michigan, Suite 502, Dearborn, Ml 48124 Satisfaction guaranteed. 10 day return privilege DEALER INQUIRES INVITED


Three goodreasonstotry Encore diskettes.

LItsavesyou money.

Encore diskettes meet the same high stan

dards as the more expensive brands. In fact, Encore actually exceeds system requirements. Yet you can buy Encore disks for Va the pricBof the high-priced diskettes, (only

$1.59 for single-sided, single-density 5W' diskettes, whBn you purchase 4 or more boxes, ten diskettes to a box.)

A diskette intended for a wide range of uses. Whether you use a lot of diskettes or only a

lew, you need something more than guar anteed accuracy and reliability. Irbu need economy.

Encore was designed to meei the de mand fora reliable, low-cost diskette. At Encore's low price, it's ideal for memos, rough drafts, spreadsheets, reports, even s cratch pad-typB uses.

Designed for all major personal computers.

Radio1 commodore Encore was specifically designed toprovide

optimum performance and reliability on the lour leading computer systems. Inmacs Quality Assurance Department constantly monitors all

Encore diskettes to ensure they meet or exceed the media specifications tor these systems. Our on-go ing testing program guarantees lhat the Encore diskette you buy tomorrow will be as good as the one you buy today

2.1t's absolutely reliable. Encore is guaranteed lor one full year, or Inmac will replace it, free.

Inmacs Quality Assurance Department requires that Encore meet the media spe cifications for the most popular systems Apple, Commodore, IBM, and Radio Shack - exactly. So you can rely on Encore disk ettes in your system. They won't lose infor mation or causB read/write errors.

45-day money-back trial. We're backing our Encore diskettes with a 45-day money back trial because we're pos

itive you'll be delighted with Encore's quality and performance. And were sure that once you try Encore,

you'll agree that it's the most reliable econ omy floppy available. If you don't agree forany reason, just return the three diskettes for a full refund.

3.Andyoucan getone,free. For a limited time only, we're offering a spe cial trial pack of three 5Vd" Encore diskettes. You pay the regular price for two of the disk ettes, but the third one is free.

We'll send you 3 single-sided, singledensity 5'/4" diskettes for only $5.19.

(Single-sided, double-density for $5.99. Double-sided, double-density for$8.79.) Use all three Encore diskettes for 45 days. Then, if you're not completely satisfied,

return the three diskettes for a full refund.

Here's how it works. Simply mail the attached postage-paid card, or phone our toll-free number,

1-800-538-8157

extension 987. In California, 1-800-6723470, extension 987.

For this special offer, please include payment with your order. You may send a check, money order, or bill it to your Master card or Visa account. Company PO's ac

cepted with verification. Offer is limited to one trial pack per cus tomer. Good only in U.S. Customer must be 18 years or older to order.

Offer expires September 30,1984. Remember to ask for your free Inmac catalog. It contains over 2,500 computer supplies and accessories, many not avail able anywhere except through the Inmac catalog orspecial offers like this one.

hnnnn

2465 Augustine Dr., Santa Clara, CA 95051


Tape Data Files For VIC And 64 Brian Prescott

Storing information on tape files can free up

asks you for the number of items to be in the file,

memory for BASIC. The sample programs presented here show how to set up, write to, and read from tape files.

filename is then requested. It's besl to use a name

Beginning programmers often balk at writing and reading files to the Datassette. But some serious

applications require the use of the .same data in more than one program, or several sets of data with the same program. These situations call tor data files.

Here's a trio of simple programs that create data files, read them back, and display the con tents. Not only will they help you grasp the tech niques, but you can also use them to create files for your programs, or incorporate them into your own programs.

The first two programs create data files. Pro gram 3 reads the files and prints the contents to the screen.

Program 1 prompts you for each item. It then writes the items onto a tape file. This method is convenient, but if an incorrect entry is typed in and stored tin tape, the only way to correct it is to

create a new file, which means entering all the data again.

Program 2 solves this problem, but is perhaps less convenient. To use it, LOAD the program and add DATA statements at lines 540-570. Running the program creates the files.

Creating A File The programs are fairly straightforward, but a few comments are in order. The first program 130

COMPUTE!1; Gazelle

June 1984

then DIMensions a string array to hold them. The that identifies the file. Using + 1 as the filename

ends the program. After the array is filled and the file written to tape, the prngrnm displays the con tents on the screen. You could modify the program to allow display and possible editing before the file is created. The second program does the same job in a slightly different way. The data lines must be

organized properly to avoid problems. The first data item will be read as the filename, so be sure the filename is the first item entered. To signal the end of a file, use -1. This is included at the end of the DATA statements. You can create sev

eral files at one time, aa you can sec from the data included. To signal the end of data, use +1—this stops the program.

To see what's on the files, RUN Program 3. You can ask for any file, but be sure to rewind the tape to some point before the liie you want.

Opening, Filling, And Closing Files A tape file is like a desk drawer. First you open it, put something in or take something out, and then

close it. In the first two programs you will see the statement OPEN 1,1,1, "filename". The three numbers following OPEN serve three different

purposes. First is the file number. You can pick any number from 1 to 127, but 1 is most commonly

used. The second is the device number. Tape


The Professional Systems People And

C

Present Products From

E commodore

And The Software That Makes Them Work! CBM PRODUCTS 8032 Computer

$ 619.00

8050 Disk Drive

979.00

8250 Disk Drive

1279.00

9060 Hard Disk

1979.00

8023 Printer

529.00

6400 Printer

1399.00

C-64 STUFF C-64 Computer

!

I

!

$219.00

1541 Disk Drive

249.00

1702 Monitor

249.00

1526 Printer

339.00

1600 Modem

69.00

MSD Dual Disk Drive

649.00

MSD Single Drive

349.00

PERSYS64 ;

SOFTWARE

1

For the 'checkbook hacker or the double-entry, 'serious-stuff

accounting buff.

Disk:

$79.00

SBSYS 8032, 8096 & B-Series CPU's The Small Business System Available for twin 8250 systems.

GL, AP, AR, 1NV & payroll modules all

P B 0 $ y S (C-64, 4000, 8000 & B-Series)

communicate. Custom installation

The affordable, professional modular

recommended.

accounting system for business.

LegiSys

Clear instructions thai assume no prior knowledge. Computer assigned debits &

8032, 8096 & B-Series CPU's

credits...too many reports to list.

The total legal office information,

Turns CBM's into veritable giants!

accounting and tickler system. Available for 8250 & twin 8250 systems. Custom installation recommended.

PBOSifS General Ledger as low as

$199

AR, AP, INV & Payroll as low as $129ea.

Call Toll-Free by dialing:

Send SI For catalog, refundable on first order.

Outside Texas: 1-800-221-WORX

Prices For cash paid mail order only, subject to Change

Inside Texas: 1-800-692-4265, wail for

VISA &. MasterCard okay.

beep, then dial 008-3378, wait for lone and dial 993, if no answer, dial 806/797-2623.

withoui notice. Credit prices sliylnly higher.

M

1

C

4210 H 50th St.

R 0

w 0

R X

l.ubbock.TX 79413


Tape Files On A Disk Drive?

drives are always device number 1 (usually the

screen is device 3, a printer is device 4, and a disk

Knowing the basics of tape files is helpful if you

drive is device 8). The final number is the secon

decide to buy a disk drive. There are a variety of

dary address. A 1 here means "write to the file." Thus, OPEN 1,1,1 tells the computer to open file

ways to store information on a disk; one of them is very similar to tape files. Sequential disk files store information in the

number 1 on the cassette drive for writing. Once «i file is opened, you can print to it. In

order it is received (tape files are always sequen

the first two programs, you will see l'RINT#l,data.

tial). To transfer information from tape to disk,

PRINT# works like PRINT, except that if you use keyword abbreviations, a question mark (?) won't

simply open the tape file for reading, open a se

work. Use P-shift-R instead, followed by the file

data from tape, print it to the disk, input more,

quential disk file for writing, and then input the

number. And you have to put a comma between

print more, and so on until you reach the end of

the file number and the data you are writing. After

the file.

you finish writing the file, CLOSE it.

Sec program listing on fiage 176. 9

Opening a file for rending is similar, except

C-64 SOFTWARE AT LOW

that the secondary address is zero. After the file is open, you can INPUT* or GCT# from it. You can read and write any type of data—floating point

A utility program trial adds over 40 commanOstc your C-64. Doesn t jscany BASIC memory 100% machine language

numbers, integers, or strings,

FEATURES:

Since the size of a data file can vary, it is ad

visable to indicate how long the file is, or where it

Un-nenv—gel back BASIC programs a her resei

Scfesn Dump—lo printer

• Easy, flbQrevfaled Djsk Commands •

ends. One method is to PRINT# the number of

S100 00 w/p don'i hflvo

FEATURES

* 1Q0** machine code, thp Inaipit w'p • Works with all printers/inieriace* Semi-automatic nyphaiaiion

• ■

Justilication Form letters automatically

Adds BASIC commands

Block

Transfer,

Append, • Auto pago

Change

Renumber • Delete Auto line numbers

Delete.

numbers,

In&url.

hoadora and

l

EncnUenl manual

$19.99 Indicate tape or dish. Send chock or m.o (include $2 00 . i ■ to Educomp

2139 Newcaslle Ave. • Gardilf. CA92007

sample programs, "-]" acts as the marker.

all w/p undor ISO 00 Has Isnlurua oven

Find

the array. Another way to mark the length of a file is to make up an end-of-file marker. In the

A fuH-fcalured word processor at a fraction ol [ha CGSt More powerful Ihjin

Machine Language Monitor with As sem We r/ D psas sem b I er

Transfer, f illr Hunl. file.

records as the first item in the file. This is best when you are setting up arrays. The computer reads the first number in the file, then DIMensions

PRICES

OUICKWRITER

POWER PLUS

Send disk

Excellent mnmjiil

■ PRE-VIEW-seu loll or right aide ol paoo fielore printing • Full-screen editing with rapid scroll • Easily send special prmlorcnmriuinds

(Si9r 942-3B3B SATISFACTION GUARANTEED

HB.se

TOTL SOFTWARE ROLLS OUT ANOTHER WINNER! DataBase Management for the Commodore 64 TOTL.INFOMASTER 3.6—only $50 on disk

Money-Saving Bonus

Paks of 64 Software

totl.texf

totl.speller/totl. label

reg. price $103

INFORMATION AND ORDER COUPON TOTL.TEXT2.0(VIC + 8K) TOTLTEXT2.S<VIC + 16K)

(BP-1)—(disk)

NOW $79

(BP-2)—(disk)

TOTLLABEL 2.1 (VIC + 16K) TOTLTIMEMGR.2.1(VIC + 8K)

HESEARCHASST.2.0(VJC + BK)

TOTLBUS1NESS 3.0 (VIC + 24K) TOTLTEXT2.6(C-64)

totl.business/ totl time manager/

TOTL.SPELLER 3.6 {-C 64) TOTL. LABEL 2.6 (C-64) TOTLTIMEMGR.2.6(C-64| RESEARCH ASST. 2.0 (C-64)

totl.infomaster/totl.text

TOTL. INFOMASTER 3.6 (C-64]

reg.pricBS228NOW$159 (BP-3)—(disk)

totl.infomaster/ totl.text/totl.speller

reg. price $129

NOW $99

(BP-4)—(disk)

research assistant

NOW $89

19.95 □ 23.95 P 39 95 . . 33.95 □ 29.95 D 33.95 .". Z □ Z 19.95 Z 34.95 :.. 7 34.95 Z

D 39.95

Chech. Monay Order oi COD " -nii-ri. ."■ f ;.-i-l! "COD orders 12 DO

nfldiiHjnal tCA residents add B'ftVn sales ia>|

84.95 43.95 34.95 23.95 38.95

38.95

D 49.95 □ 94.95

TOTL BUSINESS 3.6 (C-64) BONUS PAK »

S3.00

Amount Enclosed

Nomn Straat

City.

totl.text/totl. label

NOW $49

Commodore Business Machines inc.

Si a to.

E>p.

Card!

TJTL SOFTWARE, INC.

_ Zip-

_ Dmc

>-

quality you can afford

1555 Third Avenue Walnut Creek, CA 94596 415/943-7877

directly from TOTL Software:

Word Processing (loll.tern)

Spelling Checker (toll.speller) Mailing List & Label (toil.label)

(toil lime manager)

C O D Criarge^SalBS Tax Shipping & Handling

Other VIC 201" and Commodore 64'" software available from your dealer or

Business Accounting {loll.business) Time Management

Total

FOR ORDERING ONLY —CALL OUR TOLLFREE NUMBERS

Phon I

(BP-5)—(tape)

reg. price $60

DISK

"" 28.95 " 38.95

1 SEND MORE INFORMATION(nochaiflororcalalog}

totl.speller/

reg. price $118

TAPE

Z 24.95 ; 34.95

Contmantal U.S. 1-SOO-361-1555. Ca I ilnmia 1-600-351-1551 Hawaii ond Alas kaji 5-943-7877

totl.text/

TM

U VISA

Keyword Cross Reference (research assistant) TOTL Offers You... low prices and high quality • 30 day

money-back guarantee on direct purchases • an interactive family of software ■ product registration • cu'stomer support • free informative newsletter • regular upgrades at reduced cost * availability in many

stores • 800 numbers (or ordering

convenience • prompt shipment o|

direct orders • savings coupons wilh each order • money-saving bonus paks • two years and 45,000 products strong


VIC 5K Emulator Glen Reesor

Some programs written for the unexpanded VIC-20 do not run properly when expansion

memory is installed. Often the only solution is to switch off or unplug the expander. You can save wear and tear on your memory car tridges by using the technique outlined here,

which "emulates" the memory layout of an unexpanded VIC.

make my VIC operate like a 5K VIC. Naturally, I decided on the second alternative.

To make my VIC emulate a 5K VIC, I had to change screen memory, color memory, the start of BASIC, and the end of BASIC. Changing the start of BASIC and the end of BASIC was easy; changing screen memory and color memory was

the hard part. I remembered an article, "Alternate Screens"

(Home and Educational COMPUTING!, Fall 1981), that Have you ever encountered the problem of up

grading your computer system in such a way that most of your programs need to be modified to operate properly? I had such a problem when I bought a 16K expander for my VIC-20.

When the 8K or 16K expander is in place, screen memory moves from 7680-8185 to 4096-

4601, color memory moves from 38400-38905 to 37888-38393, and the start of BASIC moves from 4096 to 4608. Because of these changes, programs written on a 5K VIC that have POKEs to the screen, POKEs to color memory, or high-resolution graphics will not operate properly with an 8K or 16K expander in place. Some programs use the formula S = 4*(PEEK( 36866)AND128) + 64*(PEEK(36869)AND112)to locate screen memory. Color memory can be lo cated with the formula C = 37888 + 4*(PEEK(

36866)AND128). Using these two formulas, some programs written on a 5K VIC will work. How ever, depending on the length of the program,

high-resolution graphics usually will not work.

Simulating An Unexpanded VIC In order to get all of my programs (approximately 70) to operate with a 16K expander in place, I came up with two alternatives—rewrite all of my pro grams, or develop a sequence of commands to

could change screen memory to 7168-7673 and

the color memory to 37888-38393 (for the 5K VIC). The article provided some commands to change the screen memory back to 7680-8185 and the color memory back to 38400-38905. This is exactly where we want the screen and color memory to be.

Now we are ready to change the VIC with an 8K or 16K expander into a 5K VIC. 1. Turn your VIC off and then on. 2. To change screen and color memory, type

the following: POKE36866,150:POKE648,30:FORJ=217TO228:PO KEJ,158:NEXT:FORJ=229TO250:POKEJ,159:NE

XT

After you press RETURN, the screen will become a mess of various characters and colors. If you do not see this, you probably typed Step 2 incorrectly. Co back to Step 1. If you typed the line correctly, screen memory is now from 76808185, and color memory is from 38400-38905 (nor mal for a 5K VIC). 3. Press RUN/STOP and RESTORE simul taneously to clear the screen and get a cursor. 4. Now change the start of BASIC and the end of BASIC by typing the following: P0KE44,16:POKE56,30:POKE4096,0:CLR:NEW

The first POKE changes the start of BASIC to 4096 (16*256). The second POKE changes the end COMPUm-s Gazelle

Juno 1984

133


of BASIC to 7680 (30*256). The third POKE puts a 0 at the start of BASIC. On all Commodore machines, there must be a 0 at the start of BASIC fora program lo run. "CLR:NEW" clears any

P.O. Box 3354 Cherry Hill, N.J. 08034

variables and any garbage that may have been in

Toll FREE (800) 992-3300

the program area.

Your VIC will now operate like a 5K VIC. Almost all programs written for a 5K VIC will

For Information Call (609)596-1944 Call us for reliable service, experience and affordable prices!

now operate properly with an 8K or 16K expander. The only exceptions are those few programs which

FLOPPY DISK

manipulate these pointers themselves, or which otherwise tinker directly with memory layout. Even many machine language programs will work. fgf

'Call

never bsen an oxparience like it. Anywhere.

sailing strategy, weather, navigation and history. The more you know the more (un it is. Every level is a unique experience whether you're'6 or 60. Unforgettable. • Families Pit your imagination against the world as the Pilgrims knew it. Share Ihe exciting journey lo a new life in a new land Risk the danger and learn together how the Mayflower sailed into history on the courage of those tew who dared. All this and a FREE 11 116 Poster lor only $29.

School and dealer inquiries welcomed

1541

Disk Drive $Call 1520 Color Plotter MPS801 Prinler

994-0845 Day or Night. C O.D., checks, money orders add S3 00 shipping. CADMEAN CORP., 309 Koch. Ann Arbor, Ml 4B103

Program Your Own EPROMS

• Read or Program, One byte or 32K bytes!

"64 '87

1110 8K Memory Eip

'40

1111 16KMemoryE*p 1011 RS232

'65

Terminal Interfiles 1211 Super Eipandor

'42 '39

1212 Prog. Aid Caritidgo... '39 1213 Mach. Long. Monitor '39 1311 Joystick

'4.95

1702 Monitor

'CALL

create, modify, scratch files on readily available EPROM chips. Adds a new dimension lo yo jr computing capability. Works with most ML Monitors loo. • Make Auto-Start Cartridges of your programs.

• The promenade" C1 gives you 4 programming voltages. 2 EPROM supply voltages, 3 intelligent programming algorithms, 15 bit chip addressing, 3 LED's and NO switches. Your computer controls everything from software! Textool socket. Anti-static aluminum housing.

• EPROMS, cartridge PC boards, etc. at extra charge. • Some EPROM types you can use with Ihe promenade" H32 }!S2

16?732P 1564

27128 J7256

27C1B

273M

27C6J

GH766

li»7M

^ -CO"*tvara Human Madw*a

*37.95

PRINTERS

Our software lets you use familiar BASIC commands to

5133 SUJ

281S1

28I61

XMISA' S2BI3" 48016P'

'Doncin ewcrcilly pijhjV rtfnt

'19 -BB

NovadoCobol

'49

Home Accountant

'47

Tax Advantage... General Lodger

'46 *35

A/R. A/P. Payioil

'35

DATA BASES Code Writer

'64 '79

DELPHI ORACLE

S89 SPREAD SHEETS Multiplan

'74

Calc Result*

'48

GAMES abort

'36

Popoye

*38

=

Electronic Aris

$ CALL $

ATARISOFT A Centipede

*82.B5

4 Outlet

SAVE, GET INPUT PRINT, CMD. OPEN, CLOSE—EPROM FILES!

Screen Editor CPM2.2

'11.95

6 Outlet

OR Use like a disk drive. LOAD,

2!St

1530 Datasetlo 1650 AutoModam

UL LISTED

NOTHING ELSE NEEDED. EASY TO USE. VERSATILE.

*44

Slivciitl ill tt>t} Month

SURGE PROTECTOR

PLUGS INTO USER PORT.

'45

Simon Bane

1526 PRINTER

1312Paddlas

$99-50

'69

Mirage Oaieboae Mgr

S279

ORDER NOW. FREE shipping for MasterCard and Visa orders. Call (313)

27C32

'165 '219

Special of the Month

DISK ONLY

27IG

*39 ,

Piloi

ACCOUNTING

• Kids Tell your parenla The Itoyage of (/is Mayfloivsr is a terrific learning adven

!7M 2516

'58

.... 'IS

Assemble 64

roaring storms and bring your passengers safely ID Ihe new world. There's

a

*46

II Spell

Logo

ture. Recreate the hazards and drama of the first Pilgrim voyage. Learn about

'US

PROGRAMMING SERIES

C-64

color, sound and excllernenllheylova. Challenga the mighly Atlantic, defy Ms

0

-

E»v Script

• Parents Tell your kids Cadmean's The Voyage ol the Mayflower has ell the

£

"Call

Word Pro 04

A totally new computer experience

c

'17.50

Vorbnlim SS/DD [101

Paper Clw

SAIL TO AMERICA

0

"19.50

Eleptianl SS'SD (101

WORD PROCESSING

CMD 64

NEW

Elephant SS/DD (10)

!?.!>... "35

Defender

'35

Dig Dug

*35

Donkey Kong

*35

Pac Man

'35

Robotfon

!35

INFOCOM Zork I. II, III

'25 ea.

EPSON

SCALL

Suspended

OK1DATA

SCALL

StarcroM

'25

Deadline

'25

STAR Gemini 10X

"268

Gemini 1SX

'368

-.

'25

COMPUTER COVERS

SUBLOGIC Flight Simulator

*39.95

CARDCO Cardco G*

Printer Interlace

"79

Tymac the Connection

'79

6 Slot EipandOT Iniartace... '72 3 Slot Expander Interface... "31

I ML. S4

Reg.

.99

SB 99

VIC 10 ... $6 99 56 99 □ ill Onvt Einon MX B0 .. *7 99

Fipon MX B0 Frt7 99 Okid.llSZ S7 99

Ordering & Payment Policy Prices reflect a cash discount. For COD , Visa, and Master card add 3% I m mediate del i very with certified check or wired funds. N.J. resident add 6%. Prices subject to change.

Call Toll Free: 800-421-7731

In California 800-421-7748

T| JASON-RANHEIM

560 Parrot! St., San Jose, CA 95112

^H"!

Catalog

Shipping For shipping and handling

We sell a large selection of

add

hardware

3%.

Larger

(S3

minimum)

shipments

additional charge.

require

and

software.

Send S1 for catalog, refun dable with order.


User Group Update PET User Group of Gretna, Louisiana, is (504)

Kathy Yakal, Editorial Assistant

455-4619.

The Southeast Metro Commodore User Group

(SEMCUG) of Portland, Oregon, has been

disbanded. New address for the South Orange County User Group is c/o Steve Winier, 3222.1 Alipaz #240,

San Juan Capistrano, CA 92675. The Commodore 64 User Group, Inc., of Glen

Ellyn, Illinois, has been disbanded. (New group has been formed; sec C-64 User Group, Inc.,

Uncolnwood, Illinois, in this listing.) The correct address for the Commodore Pre ference Users Connection (C.I'.U. Connection] is c/o Danni Hudak, P.O. Box 42032, Brook Park, OH 44142.

The Capitol Area Commodore Club can now be reached at P.O. Box 333, Lemoyne, PA 17043. The ViC-20 User Group of Lincolnton, North

The new address for the North Country Com puter Club is c/o Eleanor Cunningham, 1607 Ford

St., Ogdensburg, NY 13669. (315)393-2708. Correspondence for the 64 User Group (for

merly of Midnight Circle in Piano, Texas) should be addressed to P.O. Box 801828, Dallas, TX 75380.

The new address for the Quad Cities Com modore Computer Club is c/o Mike Hoeper, P.O. Box 3994, Davenport, 1A 52808. (319)242-1496. The Central Washington Commodore User

Group can be contacted at P.O. Box 10937, Yakima, WA 98909. When writing to a user group for information, please remember to include a self-addressed, stamped envelope. Send additions, corrections,

and deletions for this list to:

Carolina, has expanded to include coverage of the Commodore 64. The new name is VJC-20/64 User Group. The new phone number for the Commodore

Commodore Club/Soulh

Will:.mi |. Freeman 1641 3rd PI, MW

Birmingham, AL3F2I5

Southern California 64 User Group

Roberl [ohnson

14944 H.1VHII Aw.

Bellflowsr, CA 90706 013)867-4398

Amateurs And Artesian) Computing

Club SSI S37 C7 Castlegar, B.C., Canada VIN 3H7

Gearwater Commodare Club Gory Gould 1532 Lemon St, Clearwater, FL 33516

The London Commodore User

Commodore Connection

Dennis Trankner 28 Barrett Cr. London, Ontario, Canada N6E1T5 (519)681-5059

Craig Mihalkii

(MM) 365-38B9

ClublLCUO

Diamond Si.ito User Group

Cobb Mountain, CA 95426 c/o Alex KR6G

Box 8'J2 Rd 2

5jhI,i k(i-. i Commodore "' User Croup

G.irrv i'lilmor 333 E. Ktihk-s Ave,

Santa Rosa, CA 95407 (7117) 584-7009

Michael Butler

Fellon, DE 19943

(1(12) 2H4-449t

VIC 20 Owners Club

Torn Liimox

17 Greyeioke Dr,

The Exchange

Btlborough, Nottingham, Notlinghamshlre, England Phone: Nottingham J'A'-Bkl

Michael C. Joseph MD

Chips User Croup

P.O. Bo\'>l8'J Long Beach, CA 90H10 (213) 3MS-1771

P.O. Box5406

Greensboro, NC 27403 attn; Commodore User Groups

Castlecar Commotion' Cunipulcr

hill Alexander P.O. BoxhrC

COMPUTE! Publications

Jerrv Klimczak UMR Bi.\ 3063

Avon Park, FL 33825

(813)442.0770

Computer Club

j

i

P.O. Box 6684

!

West Palm Beach, FL33405

\

Lake County Commodore Club

John Zlcglcr

1

Tavares, FL32778

1

P,O. Box326

i

(904)343-4499

j

Commodore User Group

!

{forming)

David t Weathcrly Mill DenfleldCt,

Ulhonio, GA 300S8 Allanl.i Commodore d4 User

GrouD Riin.ilii Usoskl

17C.7Bi!;V,illL'vLn.

Stone Mountain, GA 30083

[404)981-4253

COMPUTE'S Gazette

JunelTO

135


Commodore User Group Gr.int Hervick

310 Emerald Dr. Kellogg, ID 83837

User Group uf Lower Id.iho (U.G.I.. I.) Soan liris.y Rl.-I Ho\(i7 Rupert, ID 8335(1

South field. Ml 48076 (313)354-7224

AmkLinui, Neiv Zealand

(313)353-1130

31044 John f<

N. Aurora, IL60542

Madison Heights, MI4KO71

(313)583-9803 Heartland Area Computer Cooperative

Robert (Sam) Wah

Commodore Club Of Evanston (COMCOE) Jim Salsbury

2108 Sherman Ave.

Rt. 4 Box 204

Little Falls, MN 56345 (612)632-5511 Commudori' Computer Club

Evonaton, IL 60201

Andrew Holder

IVos And Newcomers Into Commodore (P.A.N.I.G) D.ivii! A. Davis

R.R.5 Ui)\243 Danville, IL 61832 (217)443-5573

Southern Station, Bi>v 10076 Hattiesburg, MS 39401

(601)268-7585

Hackers Of Lake St. Loiiia (HLSL) Jim Cieschke

513 Oak Terrace

South Suburban V1C-20 User Club Nick Forte

16409 Emerald Ave.

Harvey, IL60426

Lake St. Louis, MO (.3367 (314)625-4782

BBS (314) 625-4782 Desert Bylt Computer Club Lennv Baldini

(312)331-4851

The C-H User Group Inc. Darrell I lancock David I.irnkin

P.O. t?ox 3757

Tonopah, NV 89049 (702)482-5565

Morris Area Commodore User

(312) 588-0334 (Hancock)

Eiob Searing 51 FemdiifRd.

(312) 583-4629 (Tamkin)

Dekalb County Compulei Ciub Darla McCammon

48%CR.6O

Group

Plymouth (CHIP'S)

2i)l DicksonSt. Plymouth, IN 46563

The Northern New York Commodore 1 lennv User Group (NORNY-CIIUG) Norwood, NY !3(j(iK

Andrew VjnDuyne

(219)936-2423

(315) 353-4591

Co in mu do re Owners Of Lafayette

64 Soulhtowns User Group

(COOL)

Ross [ndcliealo 20 Patrick Ln. W. Lafayette, IN 47906 (317)743-3410 Iowa City Commodore User Group lolni Navitsky

616 Hawkeye Dr.

Iowa Clty.lA 52240 David Schmidt

The New York Cily VIC-20/C-64 User Group (NYCUC)

Joycelyn Woods/Allan I [obbs

43'6 E.'69th St.

(212) 787-2854

3

Zweibrucken Commodore

120 W. 9th St. S.

Newton, [A 50208

Commodore U«l Group Ireland VV. J. Murpliv

3 woodlands Dr.

Computer Club lames K. Sturgeon

Box 1044, ISA-liURCOK, APO, NY 09052

(This group is in Germany)

Stillorgan, Blackrock,

County Dublin, Ireland Kjnd.illMov.n C-M User Group

afeven /iwler

8827SlgrJHRd.

Randalbtown, MD 21133

(301)655-8403

Commodore <i4 User Group Jur^c Muntiilvan

I law Tack House Court Potomac, MD 20854 (301)983-8199

COMPUTE!'s Gaialta

Michael Tubbert 59 Bright St. Cheektowaga, NY I42iifi (716)893-6586

New York, NY KK121

Newlon Commodore User Group

June 1984

775 WolfingerRd. Marion, OH 43302

(614)726-2630

li'ffersim State Computer User Group

2355 Camp Baker Rd. Medford, OR 97501

Klamath Commodore 64 User Group

Mrs. Juanita Eiteneiet

P,O, Box 7654

Kiamath Falls, OR 97602 Commodore User Group of South rittsliurf-h C.nivi's IV Si Computers

2407 Penna Ave.

West Mlfflin, PA 15122

ch< Charles W. Graves III The Charleston Computer

Jack A. i:urr |r.

N. Charleston, SC 29401.

803)747-0310

IMS (803) 747-6981

P.O. !ie\ 495

P.O. Box 226

llun Myers

Bismark, ND58501

Marion Ohio Commodore User Group (MOCUG) Van Munro

Hudson Valley Commodore

Kingston, NY 12401

Computer 1 lubliyists In

[ames Allen 1607 Reno Dr.

ET 64 User Group Wiilt Turner

P.O. Box2190

(219) 432-431)11 (work)

CCND

Morris Plains, \FJ 07950 Club

Selnt Joe, IN 46785 (219) 337-5528 (home)

P.O. Bci\ 5223,

P.O. Bm 5264

P.O. Box46464

Lincolnwood, IL MHvid

User Group

|. R. Walker

Slipped Disk Inc.

toy Valley M User Group l:r.ink Christiansen P.O. Box 2K

New Zealand Commodore

Steve Lepsetz

20050 Winchester

<2I!8)784-H751

136

Commodore 64 User Group (forming)

Head Start Commodore User Club

Knaxville, TN 37901 Corpus Christi Commodores

Bob McKelvy

P.O.Box 6541

Corpus Christi, TX 78411 (512)852-7665

Hunch 'A Dytes

Joey Miller

4916 121st PL NE Marysviile, VVA 98270 Cllensburg Commodore User Group

William C. Smith Department of Anthropology

Centra] Washington University

Ellen»burg, WA98926

(509) 9364489 (work)

(509) 925-2981 (home) C-64 Diversity

|ill li'hnston

1820467th Ave. NE Arlington, WA 98223

(2li(.) 4354580

Spokane Commodore User Group S.A. While

N.4311 Whirehouse Spokane, WA 99205 Kanawha Valley Commodore 64 User Croup

Anne Murphy 5701 Main St.

Jeff McCUnHck I'.O. B(ix")22 Charleslnn.WV 25314

(716)631-0241

Commodore Hobbyists Involved

Williamsville, NY 14221 Staten Island Commodore User Group (StCOM)

Tony Isold:

3770 Richmand Ave.

Staten Island, NY 10312

(212)984-4256

In Personal Systems (CHIPS) Richard M. Kohn 1017 Kilbourn Ave.

West Hend, Wl 531195 (414)338-1609 (days) (414)334-2494


How

lo

GO

do your own

schematics,

tharoy

maintenance,

of

operation,

troubleshooting,

cleaning

GRIDIRON STRATEGY '64

Mints,

conversion from one power source to another and callora-

AND YOU THOUGHT FOOTBALL SEASON WAS OVER

lion.

GRIDIRON STRATEGY '64 and the Commodore 64 now

These

topics

and

many

will make this manual a valued addi

glvo you a year-round seat on the 50-yard line. GRIDIRON

tion toyour reference shelf. Whether

STRATEGY '64 is a highly realistic simulation of football

you

are

an

amateur

electronics

instincts NOT "Joystick Reflexes". Most football games

technician or a seasoned profes

let you control a few players an a scrolling field. NOT

sional, you will be able lo realize the

GRIDIRON. In GRIDIRON, you coach the enlira team and

lull potential of your VIC-1541 by us

the colorful Held and the stadium styled Scoreboard are

ing this

completely visiableat all times. Also, wllh the use of TEAM DATA DISK '84, the teams you control are the actual pro

manual. Slep-by-step In

structions will lead you through the proper methods to get your VIC-1541

teams, based on their performances In the W85 season.

up and going in a hurry. The manual

These disk can be updated even/ year, so you can constant

is 170 pages long, has two foldouls

ly keep up with the rise and fall of each team. Finally, com

and over 100 illustrations, including:

pare these features with any other football game on the

Block Diagrams

market, for any other computer:

Schematics

Real time game and 30-second play clocks?

Waveforms

Colorful Graphics, and Sprite animation?

Isometric (Plctoral) views

Realistic sounds of a packed stadium?

Test point locators

Optional print out copy of plays and statistics?

With all these illustrations and the detailed theory for each

96 possible play combinations, Inflnate results?

circut involved, along with step-by-step procedures to

Ooes not require and charts oi dice for results?

Indivlduaolzed teams, based on actual performances?

follow, the manual is a great time and money saver.

In-depth playbook and strategy sections?

GRIDIRON STRATEGY 64 offers all of these qualities. CONTENTS OF MANUAL Front Matter

ORDER NOW!)! Suggested retail price:

Section 1 Introduction

GRIDIRON STRATEGY 64 â– $27.95

Section 3 Theory of Operation

TEAM DATA DISK '84 â– $14.95

Section 3 Initial Configuration Section 4 Performance Test Section 5 Calibration Section 6 Disassembly/Reassembly

Section 7 Preventive Maintenance Section 8 Troubleshooting Section 9 Schematics and Parts Layout Appendices

Suggested list price: $39.95

THE FLEXIKEY SYSTEM

20 keys, 19 of which may hava 3 seperate definitions! Com HEAT DISSIPATING KIT For VIC-1541 and 1541 Disk Drives

plete documental Ion! Works on the VIC-20 (Expanded) and

C-64 Computers! Compatible with most existing software! Great lor use with business programs and electronic spread sheets! Works with COMPUTES MLX program as

FEATURES:

Reduces internal tempralures to sale operating levels.

an aid to machine language programmers!

Does not promote dust migration

Suggested list price: S69.95

No added noise. Easy lo install.

Increases life expectancy and reliability ol disk drive. Increases operating time of disk drive,

Installs on both VIC-1541 and 1541 Disk Drives. The heat Dissipating Kit cools the Internal components of the Disk Drive by transferring Internal heat to an exter nal heat sink, where the heat is then dlsslpateded Into the surrounding air. Tfie kit will lower operating tempratures

of the IC's by as much as 20 degrees C (36 degrees F|. and thus allow all the IC's to operate within their absolute max imum temprature ratings. Suggested list price: $24.95

ORDER FROM: QOSUB ol Sfidell, Inc. P. O. Box 1781 Slldell, LA 70459

|5O4( 641-8307 MasterCard and VISA

Shipping & Handling $2.00 C. O. D. add $2.00 Dealer and Distributor inquires wslcoma


Tape Protection For VIC And 64 Victor Chan

Here are several tricky techniques that allow you to protect your tape programs from being copied.

LOAD, the screen displays only the first 16 char acters of the filename. Thus, if a user SAVEs a

program according to the name shown on the

screen during a LOAD, the file may not be SAVEd with the same filename as the original one on the

In the VIC and 64, whenever a LOAD from tape

tape, especially if part of the filename is nonprint-

or SAVE to tape is processed, the section of memory known as the tape buffer will be used as

able characters. This property of the load state

follows:

reproduction.

Location

Let's look at three methods of protecting tape

Use

828 (S033C) Typeoftapefile

829 |S033D)Loiv byte of Start address for LOAD/SAVE 830 ($033E) High byte of start address for LOAD/SAVE 831 <$033F> Low byte of end address for LOAD/SAVE

832 (S0340) 1 ligh b'ylc of end address for LOAD/SAVE 833-1019 [S0341-S03FB)

Program name or filename (padded with spaces to

fill the buffer)

When a program is being LOADed or SAVEd, the filename will be stored starting at memory location 833, and the rest of the tape buffer will be filled with spaces. The computer compares the program name with the filename on the tape. A program vb found on tape when all of the characters of the filename in the LOAD statement are matched. Therefore, being able to find a program

does not guarantee that the filename specified in the LOAD statement is the same as that of the filename on the tape. For example, LOAD "VIC" will LOAD a tape file named VIC, or V1C20, or VICTOR, or even

viC("ÂŤ;+=$%@$%. All that matters is that all of the characters specified in the filename in the LOAD statement are matched. When a program is found during a 138

COMPUTE!'* Gazelle

ment can be used to prevent unauthorized tape

Junel984

files.

SAVEing With Hidden

Characters In immediate mode, the VIC can execute a line of up to 88 characters long; the 64 is limited to 80 characters. To SAVE a program with a long

filename, the whole 80 or 88 characters may be used. If a program is SAVEd with a filename that is longer than 16 characters, the characters starring

at the seventeenth position are not displayed. To protect a program, first SAVE the program

with a name longer than 16 characters. Then, somewhere in your program, check for one or

more of the characters beyond the sixteenth posi tion. If a match is not found, do a SYS to some arbitrary position to crash the program. Here is an example. 1. SAVE the program you wish to protect with a character in the seventeenth position of the filename: SAVE"NAME(12

SPACES)A"

2. Include this subroutine in the program


AARDUARK LTD. VIDEO ADVENTURES DUNGEQN5DF

DUNGEONS OF MAGDARR - Serious D of D for up to 8 players.

Features full 3d GRAPHICS!

You get a choice of several characters that grow from

game to game and are Interchangeable with char

acters from our famous Dungeons of Death game. A real dungeon with level after level of monsters to conquer

and treasures to find - all in hi-res 3d graphics.

Available On: TRS3DC. IBM PC. CMD64

BAG-IT-N1AN

TM

The

ultimate

arcade game for TRS80C or MCD64. This one has three screens full of BAGS OF GOLD, CARTS S. ELE VATORS TO RIDE IN. MINE

SHAFTS, and

TWO NASTY

GUARDS. Great sound and color and continuous excitement.

Available On: TRSSOC 32K. CMDW TAPE $19.05

DISK 124.05

DISKS2495

TAPE J1885

QUEST ■ A different kind Graphic Adventure, it

of is

played on a computer generated mape of Alesia. You'll have to build an army and feed them through combat, bargaining, explo ration of ruins and temples, and outright banditry! Takes 2-5 hours to play and Is different each time.

Availabli On TRSBOC1EK. CM064. VIC2013K. MC1Q 1GK, 7199 (EXI. BASIC). IBMPC

TAPE S14.S5

DISK tig.B5

STARFIRE

If

you

STARFIRE

enjoyed

StarRaiders or StarWars. you will love Starfire. It is not a copy, but the best shootem-up. see them in the window space game on the

CMD64

or

TRS80C.

The

fantastic graphics will put you right in the control room as you hyperspace from quadrant to quadrant fighting the aliens and protecting your bases. Available On TftSSOC 1GK. CMDW TAPE :i9 95

DISK

MAHS ■ Your ship crashed on

the Red Plane and you have to get home. You will have to

explore

a

Martian

City,

repair your ship, and deal with possibly hostile aliens to get home again. This is

recommended as a lirst Adventure. It is In no way

PYRAMID ■ ONE OF THE TOUGHEST

ADVENTURES.

Average

time

through the pyramid is 50 -

70 hours. everywhere ingenious

Clues are and some

problems

make

normally runs from 30 to 50

this popular around the world. FULL GRAPHIC ADVENTURE.

Adventuring

Available On: IRSttC 16K. CMD64. MC1D16K. IBMPC

simple

-

playing

time

hours, but it lets you try out

before

you

battle the really tough ones. Full Graphics Adventure.

TAPE $1995

DISK J2I95

Available Or TRS80C CMD 64. IBM PC DISK C495

TAPE 11395

NEW!

GRAPHIC ADVENTURES

AARDVARK offers over 120 original high quality programs. Send one dollar for a current catalog and receive a S 1.00 gift certificate good towards your next purchase.

Authors-AARQVARK

pays

top

dollar

for

high

quality

programs. Send a copy today for a personal review and editorial help.

TO ORDER: Send amount indicated plus S? 00 shipping, per order. Include quantity desired and your preference ol tape or disk.

Be sure to indicate type of system and amount ol memory. When using charge card lo order by mall, be sure id include expiration dale.

1-313-669-3110

CHARGE CARDS WELCOME

AARDVARK

PHONE ORDERS ACCEPTED 8:00 * m. to 8:00 p.m. E.S.T.. MON-FRI

2352 S. COMMERCE* WALLED LAKE. Ml 4B0B8 • 1313] 669-3110

CMD64

/

TRSBOC

/

IBMPC

/

VIC20

/

TI99


and execute it with a GOSUB 60000 early in the program: 60000

A =

PEEK

A"THEN 60010

SYS

(833+16)

:

IF CHR$(A)="

RETURN

833

When the program is LOADed, the filename will

be displayed as NAME, so if someone attempts to make an unauthorized copy, they will probably use NAME alone. Then, when the program goes to the subroutine at line 60000, it will not find the required A in the seventeenth position.

The SYS 833 (any memory address can be

used) will send the computer off to execute a machine language program where no such pro gram exists. This doesn't hurt the computer, but the resulting lockup will probably make it necessary

to turn the computer off and back on.

SAVEing With Hidden Variables The method described above checks the contents of a certain memory location in the tape buffer.

To provide even more protection, the contents of the location may be used to initialize some vari

ables in the protected program. If the user tries to SAVE without the full filename, the program does not initialize properly and will not run.

For example, if the value of the variable Z is

language. It would be a tedious process to calculate the CHR$ equivalent of every byte in the ML routine

and type the corresponding characters as part of the filename. Also, only a portion of the available 171 bytes (locations 849-1019) could be used, since the length of the filename (including the SAVE command and quotes) is limited to 88 characters on the VIC, 80 on the 64.

These limitations can be avoided if the Kernal ROM routines built into the ViC and 64 are used.

The required routines are SETNAM, SETLFS, and SAVE. For information on these routines, see

Chapter 3 of the VIC-20 Programmer's Reference Guide or Chapter 5 of the Commodore 64 Program

mer's Reference Guide.

Using The Registers From BASIC These ROM routines all require that values be placed into the microprocessor's A, X, and Y

registers, which can be done directly only with ML programming. The key to using these rou tines without resorting to ML is knowing that values POKEd to location 780 will be loaded into the A register, location 781 will be loaded into the X register, and location 782 will go into the Y register.

set to 45 in the protected program, include in the SAVE statement the character equivalent of 45 at or after the seventeenth position in the filename.

As an example, the following steps illustrate one way to use the Commodore 64 Kernal routines

To find out the character equivalent of any

with a machine language subroutine as part of

number, simply use the BASIC command CHR$, and include this character between the quotes in your SAVE statement. For example, use

the filename:

SAVE

"NAMEtl2 SPACES)-"

"NAME(12

SPACES}"+CHR$(45)

Instead of having a line with Z = 45in the program, use Z = PEEK(833 + 17). This way the program

can only run properly with the full filename.

Adding Machine Language To The Program Name The final approach is [he most complicated. It requires the use of machine language. You use

part of the filename portion of the tape buffer to hold a machine language subroutine. Again, the

program cannot run properly unless the program is SAVEd with the original name. To use this method, put a SYS somewhere in the protected program which calls the subroutine in (he (ape

buffer. If the subroutine is not there (if the program was not SAVEd with the original filename, in cluding the machine language portion), the pro gram will probably crash when it attempts to ex ecute the contents of the tape buffer as machine 140

1. POKE the character values for the desired program name into locations 49152-49167 ($C00O$C00F). POKE the value for the space character

(32) into any of the 16 locations which are not used.

or simply SAVE

to SAVE a BASIC program from memory to tape

COMPUTEIS Gazette

JjnG 198-1

2. Load the ML routine into memory be ginning at location 49168 (SC010). The routine can be up to 171 bytes long.

3. POKE location 780 with the number of bytes in the ML routine, plus 16 (for the 16 bytes in the name). 4. Use the SETNAM routine to tell the com puter where to find (he filename: POKIt 781,0:POKE 782,192:SYS 65469

The POKE values given are for a filename starting

at location 49152 (256*192 + 0 = 49152). These val ues must be changed if the filename is at some other point in memory.

5. Use the SETLFS routine to specify that a SAVE is to tape: POKE 78l),l:POKE 781,1 :POKE 782,255iSYS 65466

6. Use the SAVE routine to store the BASIC

program on tape. The data in the section of mem ory defined in Step 4 will be copied into the tape buffer and used as the filename:


Let Your CBM-64 "SPEAK SPEAK

COMvoice IS AS EASY AS 1-2-3 1) PLUG COMvoice INTO YOUR CBM-64

t

2) TURN YOUR COMPUTER

SPEAK SPEAK

ON

3) TYPE SPEAK "HELLO, HOW ARE YOU"

AS EASY TO USE AS

i

A PRINT STATEMENT SPECIAL $99.95

W/EXTERNAL SPEAKER S139.95

DEALER INQUIRIES INVITED

ALSO ASK ABOUT OUR

HOME SECURITY AND ENERGY MANAGEMENT PRODUCTS VIController

Wireless remote control system

COMsense

COMclock/AUTOboot

Input device for the VIC-20 and

Clock/calendar cartridge for

for the VIC-20 and CBM-64.

CBM-64. Provides 4 open/close

Use with BSR and Leviton remote

CBM-64 with battery backup

and 2 analog inputs.

and auto-start software in ROM.

receiver modules.

$69.95

S49.95

$69.95

^GEMESBSiV P.O. Box 1143 Bethlehem, PA 18018 (215)861-0850 COMPUTER

CORPORATION

VIC-20 and CMB-G4 are trademarks of Commodore Business Machines Inc.

COMPUTER GRADE • DATA TRAC •

Plain WraP"

BLANK CASSETTES C-06, C-10, C-12, C-20, C-24, C-32 From [he leading tuppher i' Computer

Certified lci(/\ Error-free i 5 YEAR WARRANTY

BUY THE BEST, AT FACTORY-DIRECT PRICES

Cattttttt, DN, longer lenglh C-12 s

BASFS2L9" QDvsa/i$2S?

(B minulBi pvr -.nir. provide ths nitra

* Iflol niT.ir:] far loma i[A program*.

quahmelric

BASF LHO |DPS( world iluidirQ dpi

■„

Primium 5 urt* *rmi with uaatr

TRACTOR FEED

Call: 81B/700-0330

ORDER FORM 1 OQJf "

TE

E.ich cassowo includes 2 IrttHj'jonry Sa.p5 5o

■■i

1

;

''"rd &*■ j wnon

LOU

on Crsdir Csrd Orders

- :f

.

-

.

.A3-

i.

' I"

Card No

i it utuau

- IOyiM -JOB-™

.£.0-

'

IFU

.

S795

'GO. S3195

1%^ Chat-.,vonh. CA

A° D^kaHH MiB Xft spotted. unTCirninatJ In Cwim*nr«l U S jrwj-nflili Dy U P S rr p»rc«r pou ve'vfK. cn«k r*rt Q

Jin

CfiDf k Or U O BnclMflQ [ ]

'MJCC .d

| 1'! [+*■*>

tifi

Sflnfl Quaniity OiKOUnii | )

Chirrs tf> erddil card VISA [ J

use

--G

MASTEPCAUD Tl

.4*1 V

> ■ «po " 1 K5D

Narra

T^^HO

" —i^r—

KlH

iv

lorSW1 Diskettes

-2S,11 S21 95

ORDER NOW... MAIL TO UODIf 1O 95Z 5 Vassal Avc

------------- ORDER FORM

M

C"iKh QfWO BnclMBQ [ J Sond Qunniily Oifcounrs | ; Ourga to credit carQ' VISA \ \ MASTERCARD |J

^

■ -.

;-:"[~I 1>BF:L&

.

U

| ih i1 h 't£ ^ -

I.Itc;»[

O'

FOR IMMEDIATE DELIVERY^

flrcirorpw). clieclin#re |J

1 '6 ','.■

I 1

ft Lib*! CoVUCH

D

ly In Confineniat US snipmanT by U P S If Pa'cel Poil

■.^.

ria

, 1 fi

Call: B18/70D-0330 .(

VORK 1O '''"' Chatsworln. CA 91311

i uean Credit lCard ara Orders Ufoers.

ss

FLIP 'N11 FILE

jC

ORDER NOW

FOR

ITEM

9 DISKETTE LIBELS J

Honey Dick gj

r:

rne»"

3 50

£r^£

r-^-K-l* Milll flnj

1

- Uflll-HMl II

SkU

TUTAl

SignAluro

Phono

|

Ask about our DUPLICATING SERVICE |

..

_

.

Qiy

H ■ ■ ",

".iy.ll l~"«. ', „.,

■ 4XIF4III

p*

IOT*L

Ask aboul our DUPLICATING SERVICE 1


POKE 780,43:POKE 781,PEEK(45):POKE 782,PEEK

LOW COST SOFTWARE

{46):SYS 65496

Press play and record on the Datassette when instructed to do so, and your program will be

Are you tired of paying high prices for your software9 Let John Henry Software save you money!

SAVEd with the ML subroutine included.

We distribute public domain software for your VIC 20"

or Cummoflora 64". We've tested and documented each

Also Good For VIC

program

to

guarantee you hours of fun and useful

learning experiences. We specialize in prompt delivery of your software, even if you order tapes, and we

This same procedure (with the same SYS locations) can be used on the VIC. But you must change the

guarantee our product.

memory locations where the program name and

You'll also receive our free program reference book when you place your order

ML routine are stored. Locations 49152 and up

cannot be used on the VIC. Some other unused

62 Games for Everyone 54 Programming. Demo, Business

Group VE

35 Educational Programs

Group CG Group CP

26 Games for Everyone 30 Programming. Oemo. Business and Home

area of RAM will have to be chosen. Note that the values POKEd to locations 781 and 782 in Step 4 above will have to be modified to reflect the new address of the filename.

If your protected program includes a SYS to the ML in the tape buffer, it will work properly

Group CE

only if the program has been SAVEd in this man

VIC 20

Group VG Group VP

Group CA

ner, so the chances of someone breaking this pro

S7.95

and Home

S7.95

$7.95

COMMODORE 64

S7.95 S7.95

16 Educational Programs

S7.95

5 Adventure Games inisk only)

S7.95

When ordering, specify group and tape or disk. Send check or money order payable to:

tection scheme are very slim.

John Henry Software

Using any one or a combination of the three different levels of difficulty described should re duce unauthorized tape reproduction. (Of

P.O. Box 39021

Cincinnati. Ohio 45239

Don't wail! Order your software today1 Or wrife for your free program reference book. You'll be glad you did! To keep our soliware prices low, cur ad will only -ipptar in (he June. Augusl October and December issues a! "us magazine

Order Line:

1-800-638-2617

Information, Order Inquiry and In Ohio S219

1541 Diik Drive

1530 Dalaselte 1526 Primer 100 cps

S 59 1600 Modem S289 1520 Printer/Plotter COMMODORE 64

1-216-758-0009

1702 Color Monitor S 59 MPSB01 PrintM

S22E

S159

S 89

S219

At irmblir/Monitor

S

15

E«Y6alp!

* 35

HOWE FINANCES

Super E*o*n*'

$

15

e«y Smii

s u

Hone Accountant

LOGO

S 39

PILOT.

S 39

CP/M 2.Z

S 59

Inlro To BASIC

S

1?

VmUs Belli System

S

IB

Ulariin

$

18

finbi'l SpMUCullt

I IB

1.11,111

Tax Advantage

$ 99

Calc flesulT Easy

S E5

MONITORS

Miillipld*

S 75

BMC green icrssn

Omm Calc

£ 39

WuiU P'D 3- with iptllcr

S G9

S l>9

--.-.

49

S 39

CALC RESULT-ADVANCED

S 45

3-D Spreadsheet lor 64 64i254i. 32 pages. 9 language help screens,

$ 79

BMC amber screen.

S B9

SMC csmrjoute cold

WORD PROCESSING

PtDC Clio

-..-.-

Calc Reiult

S 35 S 55

-

FCH

SPREADSHEETS

SuiptnOM. E»y C.lc

$208

1650 Auto Modem

- £219

Cernin, 10X with Garden mitrftce

S319 Gemini 15X

S389

H, Tern in

S299

E«v Fininct l.tl.HI.IV.V

S 17

DATA BASE MANAGERS

Tht Min.Jir.

I 3S

Delphi'! Oiacle

$ 69

Gtnsral Lsdjcr

S 36

Super Bale 64

S 79

Accounu Receivable

S 35

Account! Payable

S 35

PROGRAM GENEHATQRS

Payroll

$ 35

Trip Lnt One

3 72

Irartmorv

s 36

Smart 64 Tj.mlnil

S 30

CiHJOWiwr

S 66

Micro Pik Papir

S

,

CALL

CompuServe Starter KiC

S 21

SPECIALS

Rom only 64x25-5. Color

9

$45.00

VIC SWITCHES..,ConnBciuolo8VIC/64's

lo disk anO/or prmtai Cables nol included

[see belo*|

S1490O

Cables (or above 3 meier-S14.O0. 6 melar* S16.O0.

12

meter-519.95

hav. it. .1 ih< !„.„■,i ptic* (luiiilitF

SENO FOR OUR CATAIOGI MOST OHDERi

SHIPPEI] WITHIN 43 HiJUHSI Alt 111 ml inclullg cull dix.uunt VISA.'MC oi

mij - *di] 3 blv NO CO LJ ORDtflSIFiu quIcMn dclimry ■«""«» □FtJei. Pa'miial ur Curriuany cliackb Utfijv d,aur 21 diyi Alt vulpj jre linal - Lblecthrq

nbrchtiKHu t'-ihjnytd lor urnfl pnuluci only Shipping dill] 3Jw IS? 50 mmimjnifc Call lor shipping un monitort- Olnu cutlomfl a^u 5 5% u)u idx Pntei & availability

iub|ttc

I" change

1301 Boardman-Poland Road, Poland, Ohio

HOURS; Mon.-Fri.

10 a.m. - 10 p.m Saturday

10 a.m. - 5 p.m.

44514

(only

one

ner

computer needed) Calllorpriclno on KANDIC SOFTWARE and for Info on the complete HAND1C lino: 1-

BOO-527-4893 Vi% carry * curn|>t*[« line ol Ouality Cuirirnutfaie idtacad (irudticli irsiiuiTiny [hint [>y Tpn,«workiiL Sp.'intkir, fi>y», Sifira. MtS ind Cdid^o Even il not liilc.l. wj urdldWv

S9E.00

GRAPHICS

PRINTERS

Okidau

GRAPHICS! CALC RESULT-EASY

or

1 -000-442-104B

(In

Tbxbs)

SJB DISTRIBUTORS INC. 3524 Dlvldanfl Drive

Garland. Tanas 75042 Visa/MC add 3%, Continental US orders

only. Return authorization defective products.

np^dod

on


COMPUTER MAIL ORDER commodore

SX-64 PORTABLE

5839

COMMODORE 64.

S199 VIC 20

CALL

M-B01 Oct Msmx/nnHI MC5 BO1 Color Pmar 1520 Cow PrrttrrRotutr 1530 Daaseae

"31S0O '-199 00 "133 00 '6900

1541 Disk Gme

'349 CO

1600 VC Modem

<SS 00

1610 VIC 'em 40 lfibO /luco Modem

,.

■59CO 'B9 00

M5D

1703 CMr Montffl-

VMS 00 •59900

Mi;- IAJCO Sums' '.'■!>■ 1311 Joystick

■J300 '(199

CAHDC0.

1312 Pb**!5

'1199

3 sw VIC E.pnram burton

1110 VICGX

'43 00

6 Sloe Ea&mson trifles

1111 VIC 16K

'G9 00

Cassette Irle-fsce.

10n RS-233 Ir

'43 00

1211 Suds'1 Emi

.'53 00

O

O

■33 CO

PRINTERS

Earn

CALL CALL

Oflou

Sun Gam 101 . DHL. 10

■?gton

■393 CO I

10P

■33 CO ■?9 00 ■39 00

RirEflel Pnnler limWBCB

■3900

Cl!» C rtoh GonHfl BMCBX-HO .

Rrslel Interface

■G9O0

C-61WIC SOCcwr

■37BDO

DUST COVERS

SOFTWARE '1HCO ■65 00

'1900 ErcyMs

■13 00

•33 00 '1900

VC M WS5ETTE5 IAeo- Masc

'3G CO

Crtzioa. ..

'33 00

fmpa

'33CO

■39 00

•IS DO loop ftlH

'53 00 'IS 00

■19 CO

vc so cartr

es a os

'15 00 •1500

Hcmc Imentory

•MOO

■14 00

[ffl

'14 CO

'3J0O

.

'33 03 '3900 '39 CO

'39 00

HES Mm HES WntH-

QUICK BROWN FOX

"63001 '3S 00

Lai

Oaa Base

CB4 CASSETTES

-69 00

.

.

.

Sack Ben

!

Cckr Sam

'20 00 | '16 00 I

iBOi M»er

c sa nis«s

'7900 "7900

•1Q0O

vrioo "69 00

■isoa ■10 00

.....

"34 CO

*2" 00

ROMDX Tyf*

'13900

RAINBOW

A

'3000

VC 20 CASBETTfS

■13 00 ■1900

VICTORY

.1O.6C Coui-n van Bourn I '.I.- i

C-S4MC 30 CASSETTES

■(IB DO

AnB.iasi

•95 00 •9500

Gma IbuUr

□UANTUM 40.-80 QUm WWJ E&M

'20 D3 [

nljM?ntLn? Pak I |3 ftumM] Aii«iti»T l"«k 11 (3 n.™.]

CBI DISKS

*3000 '40 BO

'16CO

"2300

Cokr Skel* Match Maker

'39 03

[30/B4]

VIC 30 CAS5ETTfS

Ami* NWro- flm I.--

.'1600

Men

Kongo Konj

W •9S0O '179 00

|

W900|

.'19 CO 3--D

UMI

■1600 ■1800 ■1(iD0

.

C 63 CiSSUTE

Ft^cue at FhjEl

VIC 30 CASSETTES

VIC ;>0 015X3 General LmJ(jBf

VC ?Q CAESHIE i'.n

lriu Cutup

'aaao Sv-ord cn" Fargoal.

'S 001 'I6C0I |

hlUFEKOP Ract Fj> Oajfi Haca

VK 30 CfiSSf ITES

BRODERBUIUD

'3100

EPVX

ARTuuonx C-SJAflC SO CASSETTES

"BOO I

.

■33 00

■\.

C £4 DISKS

'15 00

B-iOge 4 0

■29 00

'2100

□VNATECH

'1900

Gitilu

■33 00 ■3900

HES Wnuir

Form

'3100

Trmlmnn

3. 3. 4. 5 cr B

Mirth Dr*

VFC SO CftRTIllDGES HES Mai

VIC

"12CO •MOO -21CO

Bet" HW-

'1.100 VI CO

c

■37 99 '37 B9

VIC m CiSSETIBS

VC M WBTHDGES

:

HES

"J'JOO

HnnehOd Frana

"?1CO|

MICROSPEC

■37 99

"HDD

ftsneo

VC 30 CWTHOGES

Eooe- 0t|

■3'99

'1100

'33 00

Cead, CUd

■37 99

V4 DO

Mnusuhold Fiwico C.6a CAFlTRIDGt-B

•19 00

PI

■37 99

CREflTIVE SOFTWARE

.■19 00 Music Mochne

■37 99

Dg EJjg

C-64 CASSETTES

RmtJ Td&J

■19 00

'39 00 'MOO

8IRIUS

ATARISOFT

COMMERCIAL DATA

commodora CBM Ei Ge*ererce Gj*

.

.

'13 00 I

'1600 ! '1100 ■16 00 '1100

PROFESSIONAL SOFTWARE I f*6 Sprf

-B5 00

We carry a selection from the above manufacturer's plus... Synapse, Thorn, InfoCom, Onslow, Practicalc, Spinnaker S Timeuuorks.

east

800-233-8950

, In PA call (717]327-9575,DBpt.40613 Order Status Number: 3S7-957G

Customer Service Number: 327-1450

' 477 E. 3rd St., Williamsport, PA 17701

Canada

Ontario/Quebec

800-268-3974

Othar Prouincas8OO-2BS-4559 In Toronto call (4TB)BZB-0BG6,Dnpt.40B13

Ord«r Status Numbar; 8ZB-0B66 29DS Duni-jin Driva, Unit 3B MrsBiaiauga, OntoriD. Canada L5L1T1

west

800-648-3311

In NV call (702]5BB-5GS4,Dept.d0613 Order Status Number: 58B-S6S4 I P.O. Bui 66 B 3

Stateline. NV 89449

I --

No risk, no depoeit on C.O.D. orders and no waiting period lor certiliad chocks or money orders. Add 3% (minimum '5] shipping snd handling

□n all ordnro. Larger shipments may requirs additional charges. NV and PA resident! add ealas un. All itoms subiect to availability and price change. Call today lor our catalog. CANADIAN ORDERS: All prices are subject to shipping, tax and currancy fluctuations. Call for iimics, pricing in Canada.


All About PRINT For VIC And 64 Julie Harris

The simple PRINT statement becomes a drawing tool in this screen graphics tutorial. The PRINT statement was one of the first BASIC statements you learned when your computer was so new it still gleamed. You may be interested in

more complicated routines now—reading joy sticks, creating your own graphics characters, or writing machine language. But the humble PRINT statement still has something to offer. You can use PRINT in a generalized sub

routine thai draws pictures using the keyboard graphics characters. PRINT ia useful if you want

to manipulate graphics characters as if they were in a variable-length array. However, this won't use the storage space required for arrays. Or, you can PRINT an unending series of pictures, each unique, and never run out of memory, Let's begin with a review of some basic char

acteristics of the PRINT statement.

Commas And Semicolons In PRINT Statements When a PRINT statement ends with a semi colon, the next character printed will appear in

(he next horizontal screen location. For example,

PRINT "THREE": PRINT "DIFFERENT": PRINT "LINES," will print

When you use PRINT by itself, the computer prints and then moves to the beginning of the next line; the result is a printed list of items. Using a semicolon makes the cursor stay where it is, and everything runs together. If you want something in between the two extremes, you can use a comma to separate the variables. This is helpful when you want columns

(rather than just a list). A VIC screen has two columns of eleven characters; a 64 gives you

four columns of ten characters. PRINT "A","BC", "DEF","GHIj","KLMNO","PQRSTUVW" will

show you how the columns look (notice that the left edges are lined up). Using commas to make columns can be useful in a variety of applications. For example, FORX = 56TOfi3: PRINTX,PEEK(X):

NEXT prints a column of memory addresses fol lowed by their contents.

PRINTing Characters With CHR$ The CHRS function can be used in place of any string in the PRINT statement. For instance,

PRINT CHRS(65) has the same effect as PRINT "A". A list of CHRS codes can be found in the appendices of the owner's manual or Programmer's

THREE

Reference Guide for your computer. Some of the CHR$ codes are used for charac

DIFFERENT

ters. Others are used for functions like "clear

LINES,

screen" or "cyan."

but PRINT "ALL ";: PRINT "ON ";: PRINT "ONE." will print

Positioning PRINT PRINT causes the printing to begin in the first

ALL ON ONE.

space of the next available unused line on the

In the example above, each word ends with a

screen. This beginning position can be controlled, however, by using the equivalent of X and Y co ordinates. The Y coordinate specifies the line on which to begin printing, and the X coordinate specifies the space (column) within that line.

space. If you left out the spaces, you would see something like this: ALLONONE. Using a semico

lon after a PRINT tells the cursor to stay put. If you forget to include the spaces, the words run together. The rules are slightly different when you PRINT numbers. Try PRINT1;2;3 and you will find that each number has a space on either side. Whenever you PRINT a number, a trailing space

is automatically added and the space in front is 144

reserved for a minus sign (in case the number is negative. If you enter PRINT-l;-2;-3 you see only one space between the numbers instead of two.

COMPUTES Gaiotte

June 1984

Vertical (Y) positioning can be controlled

using the LEFTS function. LEFT$(XS,I) returns a string containing the leftmost I characters of string X$. In positioning printing, we will define a string L$ = "{HOMIZK21 DOWN} "for the VIC, or LS

= "{HOMF,}{23 DOWN} for the 64. To begin on


HesWare EXPAND THE COMPUTER EXPERIENCE. The Factory The Banner Machine For We Commodore 64 (3 extra forts available). For the VIC-20 with £4K memory [2 extra fonts available). • Use on any Gemini or Epson MX with

Grflftrax. or the FX and Jtx printers. Also Commo dore 15G5E and Banana with The 064, • Menu-

drfyen program operates Pike a word processor. • jns up Io 13" tall by any lenglhr • Mfllies

of widths ud to Wv. ■ 8 sizes of letter*

from W" to8" rugh.

ProporUor.01 spacing, Aufo-

malJC cenlenns. Right and left justifying.

Tape of Disk (Specify computer equipment)

For the Commodore 64;

Spac c Ri Id c r Ana mazrn g arcad e s i m u I a do n, you r mission is to destroy (he enemy ships 519.9S CTBl-64

*2395

$49.95

*4995

$2425

We Have the Software & Prices You Need!

Permits listing of C-64 programs on non-

Commodore

printers. Lists

Micro broker

Exciting,

readable form

control

Tape or disk S24.95

symool* 'i

am-*

realistic and educational

MM

.

En,lnh. ifim.h

iDIM IS

Preschool

Educational

Programi

ABC

Fun

and

1 mur Eqiurto in1 nk.n* .. Mu'dcr r»y 'he Jh.^cil

1B3 Fun have bright color and action. Each £14,95

Formulator

A scientific calculator for repetitive

Combine programs. Renumber

t-jram-iriuiT

tw m |B,T||B.9S

BASIC

Imes, Nole pad, and more. Tape or disk 529.95 Grade Organr«r

Teachers-store

("P Ml l5j\H m Bnr Script

grades for 6

classes, up to 40 students each, 6S0 grades per

Student. Print interrm and final rosters, and more1 Disk 539,95

reports,

(I«26« .(Ujjoyfi

Create a Me of up to 9 basic programs

1 l(

class

it TlS' W lJ_l]|H iJ5

i-j

Virginia Micro Systems 13646 ;eir

_

O RDERS ONLY 11001 T$2- 564 S F 0 R IN FORJJATION (703} 191-S502

I

u

^

WvM'Nimr \ IhMh

"•1 Soiling Software" lor Word Processing per Compute Gazette

iiiJi.'rt iDlSI.US lt»$195

Am*. P*viMf

4 PI5"J ''S

*Ltll. PCfCtVl

March 64, Issue 9

(1)149 W

Nn^dB Cutiul

. i dim os

Zortaoi,, . .ID1W0S

1D|)I.<H

Ucidlmc

iM

[Dj»,n

F C M. HUff-Fliii^gi *

■■

....

Mixindun

NEW1 WORDPRO FOR IBM-PC Word-Plus

PC

w/The

■'BOSS".

On-LJtio

"SPELL-CHECKING a CORRECTION" abd

IDllOW IDII.1.W

.

S»vc Nch* Vurfc

$39.00

.

IDIU.M

• Numorlc Mods (add columns)

word usar-Oerinad io "add to" WordPro 3*

-IP1W95

IDll] M .

S79.00

KlJ'OO

1 rnLpUr Lpf A piFii 1

lOIJ'DO

T>pc Allait Wi| Out

ion) a

CrMalMui

il» J'm

r'h"Vr'""'1"p *''

JU^4 *J

Stibbir Bunl JiLl Boi

pClJ'.'S

irf Apvhji

(DUBJO IDST.M

LIWO«'|>W

ii»m

Kldwittq

IBlH *1

Pan M-kir

'" '^ftlh Iht r'avlniry

.(DJ2C5

I'nn, BlUlh

(Ol'JS

mnkOniphkiii

ICI10M

Mutanl tamcU

iClBMi

Amti jf ihe

ID)!TOO

Ainaiinj(Thii,j[

IC12O.4A

„ i^ w,llc

IIl.CIU.liS

HfyDlJdkDliJil ■ ... . (IMOJO . ,. ic,n>?o m Knidcrcanii? lt»J7 DO Smxipf i1 Trcop* (CJi.ldi Kiiiium FtVBI

ilii!<.;s .

j

iBiJJm IUIIT00

piMakjpt

{DID 55

Alphlt^tTnv. .

ton.n

LMU Drawings

UpfmGrttn Cu^micLilc

Omnl.rlirr

taxi ••:■

DnuJCik

IDIW )-< itnn.M

ArtvfrHI

Miller T.pe

HnWntnM

The P.I

..

,

(CilJ.oi ICJI.l ns

lO.ClU TO iD.Ol) >0

DlTTT/lSrCiLl X

llt.Cll.V1l IOI1-.W

C'ombiilndrF

ISa'js

Prat

HEJOunV ..

run. tumputrr Iliie! ■II. . EajKi

(C1S.4S

Mir.nc.ul. Fill I'm] MI S M.tJini J

IDin DO ID|J*J UU LPtNOO

tniwoo

Suri, A Mil. Ill

IDHI.9S

CoimiHiilnttf M

I&00 Muili-m

Jujallcka

Hmuiivc bA

M Pn.g. Kef. Guidf

1'(] In, ran slut ....

Ifi'll Disk Dri^c

Dlskellei

PoinlniasUT F^ro. IS.S?

CA1LFQS B«d Ball.. .20.75

I0.4S

wini

FlrcOontrol .... Who

■'■as

O«d + G

Cdnmnrnl Ctrl

"■SO

fa%«

Wiin"Hml"

BiucMu

SkUB

(D11I.01'

("himeltL.i

GFihmi Minor Spiln

^r commodi

ISM DaiAseite BASF 51/." S5DU 2 Pik 5.SO MPS80I Primer BASF t'»5n Autmnodein |7|f? CcfafMDflllM SsS BmOOl - - 23.80

ilDSSSS

id nw.M

Fi Apajlnpip

iuin is IOMJ5

He njl Spacr HciCH

..

IjlMfW

io» :s

lCM«.W

Home In-m Ear |

• Easy directory loading!

lp)J. 00 rlllji UU

iir

P.,.,op

I uri Ic Tj* Und I'

WORDPRO 3*/W SPELLRiGHT

SPELLRIQHT(DISK}20.0Oword 11500

"imua

irr

Miler

ibirou

™^"h

...I0IU.U

inisi oo

Eunpcnded

BE A WORDPRO PRO!

(B131JC 1DJ!'.00

.

^oiiK'tm

iBntlS

Inyrninij Mpr il ... . h'tyrnlLL'hrcIv 'rilin| .

11)121.80

SUll B.K

Juir.pmipjr

[CII5 *'

(P)2l.«0 IDHSfO .

LtarnineW.Lrt prr. Sim. SoB-an

lOli1 !.'

OUflm] loApthii

SIdbdh Buk Mtt»n MhUdi

Professional Software Inc.

B.C.OucstfnrT irci. . ...

Ofl'lWel

iui?t.;>

T.ap A AiM

lumpntJlfl

TTic Mjujj^ cr

Lunar Iitpn

IDJWJO

iiiij'.;;

f DtWflfRl

,

SiKcn hdilor

5ti jt" CipinJi

'i dictionary w/Tast Scan" opllon

D«l<inn

/mi' as

ThreslmW*

ID/I Ull Jlj

.

VptUrt Ifcwhei

Oav.s Hwi , wooOOndje. V* SCI91

• i .'.i i

MHiTir

Ill'Iri."

HdfMwDnl

guaaaH

O-Kikj'iMine ...

IDissi

r Slvman U|»

mi.i-4.4?! [D 1)4.9! Ill 114 1!

MilhrniBlit*

!»)■

EUJ LCHHM (JlMJ flttj FlUBRil

Cardinal Software

Mii.K Ihd.r. Tnvi. .

Frunik Fredd* ,,

from keyboard/tape/disk and run each program selectively

iDJM.'Ji tDltt.W

CDS

arithmetic computations. Save formulas. Ideal for chemistry, physics, or engineering students. 539.95 MUPOS

IDWS

ijujJrauL Kuu

!DO).<JJ IPIUW

Hrlka, Ace Mv JfimM

[D|14.9S ID 1)4.4! lDl)4.«

$tOCV market simulation. 534.95 Tape or Disk

1.1.S0

Cjud

i'owerGrip 2O.7S

CardB «S|O

ENFOIUUIION -J.,

1

T?uch Tslilet.(l)|7^.15

W.2S

GRM1NI I'rinm

J7.ttS

Q'SULLIVAN

Interface ,.33.25

Furnilurc

MAX 1MON

profosslonal -WINDOWING- diclionary.MS-

DOS comeolible (Merges wilh

S4 50.00

1-2-3.

dBase II. VISICALC,

To

SUPERCALC. 4 MULTIPLAN)

8OO-527-8698

i"xa98OO-442-8717

SJD DISTRIBUTORS INC.

Tovntrr. cull uill fr?,- or send by milt- *»'c ufiLi'/»r VUo, Muslrr

3524 Dividend Drive

Curd, ^irtfrrrun Expreis <lf Mflfli-.v Oult-ty Prrwnal thinks

Garland. Tanas75O42 1-800-527-4093 (US)

1-800-442-1048 (Ttnatj VISA/MC-sdd 3% Contlnantal US ordan only

allow rwn

tt-Fi-ii Io clear.

Add S2.00 fur ^hippin^

with an

additional St.65 for t'.O.D. order*. Other RWAirnl pttitt intlud.- 10% Hilt a minimum uf 110.00. AUfrtttl MUI^KIIO thBBf. tor .rrum a.lacirlitn*Hl cu« [1H\ 7NS937,

SEND FOR FREE CATALOG

P.O. Box 2511 Longvieor, Tx, 756O6


any line Y, we will use PRINT LEFT$ (L$,Y). Horizontal (X) positioning can be controlled

using the TAB function. PRINT TAB(X) will begin

spaces between words. They add to readability, but use up memory.

Let's draw another picture, this time using a

printing in column X of the designated line. Re

repeated character:

member that the first position on a line is column

10 L$

0, the second is column 1, and so on. Let's combine these two functions and print

a red heart in the fifth column of the tenth line on

=

"{HOMEH21 DOWN}":

30

PRNT

LEFTS(L5,10)

PRINT OR

I

CHR$(156) =

1

TO

3:

TAB(7):

CHRS(18) PRINT

40

20

60

srem

PRINT LEFT${L?,10) 5(115)

TAB(5)

104

CHR${28) CHR 'rem 142

PRINT

CHR$(146)

CHR${169)

50 PRINT TAB(6);

jrem

Vi>i7i?! A purple parallelogram!

20 30 40

PRINT PRINT FOR I

PRINT

"(CLR}" irem

CHR${169)

169

:rem 21L

The Basic Picture Elements print any picture:

• X, Y positioning of first line • PRINTing one character

104

LEFTS(L$,11) TAB{3); j rem 35 CHR$(30) CHR$(18); : rem 155 = 1 TO 7: PRINT CHR$(32)r: NEXT

:rem

CHR$(146}

We now have all the basic elements necessary to

statement:

DOWN)":

166

srem 208

irera 139

Repeating Characters

"{HOMEl(21

F

NEXT

PRINT CHRSU56) CHR$(18) CHR$(169);s F OR I = 1 TO 3i PRINT CHR${32);s NEXT

If a character is to be printed several times, a FOR-NEXT loop is more efficient and takes less

=

CHR$(169);=

CHR${32);:

70 PRINT

memory than repeating the character in the

104

irem 221

srem

10 L$ ■" "{HOMEH21 DOWN}": PRINT "(CLR]"

L$

"{CLR}" irem

20

the screen:

10

PRINT

• PRINTing repeated characters

• X positioning of successive lines

14

This program prints a green bar on the

eleventh line, beginning in the third column, The CHR$ codes used are: 30 = GREEN

18 = REVERSE ON

Instead of using the TAB function to position

all the lines, let's use a string that we'll define as TS = "{DOWN} {21 LEFT}" for the VIC, orT$ = {DOWN} {39 LEFT} for the 64. By using the LEFT$ function with this string, we can position each new line in relationship to the preceding line. Let's look at our sun-drawing routine again and

32 = SPACE

see how we would program it using T$. In this

A Simple Sun

With these four characteristics in mind, let's draw a simple picture using the PRINT statement: a

child's representation of the sun. We need to consider three elements in creat

ing this picture: the individual characters needed, the color desired, and the location of each charac

ter. After consulting our chart of CHRS codes, we

find that the needed values are 109, 98, 110, and

113. As for color, let's be conventional and use CHR$(158)—yellow. Coordinates Y= 10, X = 10

picture, when the first line is finished printing, the cursor will be in the blank space following the / (slash) character. We want to go down one space

and move two spaces to the left to print the second line.

Likewise, after the second line prints, we'll move down one and left two to begin the third line. PRINT LEFTS(T$,3) will give us the correct positioning for both lines.

Writing The Subroutine

should give us a beginning point roughly at the center of the VIC screen. (You'll need to adjust

At last we are ready to formulate our general PRINT subroutine. This subroutine, used with

the TAB values if you want the sun to appear

DATA statements, will print the two pictures we

centered on a 64 screen.)

have already created. By adding additional DATA statements, it can also be used to draw any other _

So our sun-drawing program will read: a

"[HOMEH21

DOWN}":

L$

20 30

:rem 104 PRINT LEFTS(L$,10) TAB(10); :rem 80 PRINT CHR$(158) CHRS(109) CHRS(98) CHR S(110) :rem 115

40

PRINT TAB(ll);

irem

182

140

50 60

PRINT PRINT

:rem ""em

217 183

150 IFQ>191THENPRINTLEFT$(T$,Q/100);:GOTO

70

PRINT CHRS(110)

CHR${113) TAB(10);

CHR$(98)

PRINT

"{CLR]"

picture we might design.

10

CHRS{109) trera

135

In typing this and other programs, eliminate 146

COMPUTED Gaiene

JunO19S4

100 110

REM***GENERAL PRINT SUB READQ:PRINTLEFT$(L$,Q):

130

READQ:IFQ=0THEN170

120

RBADQ:PRINTTAB(Q);

srem 123 :rem

79

IFQ<0THENHQ=ABS(Q)sREADQsF0RI=lTOHQ:P

RINTCHRS(Q);:NEXT:GOTO130

160 170 900

:rem 104 :rem 142

:rem 62

130

srem 162

PRINTCHR$(Q)r:GOTO130 RETURN REM***DATA FOR SUN

:rem 9 :rem 120 :rem 242


KIWISOFT PROGRAMS FORTHEC-64

VtMUS

r lNTRUDER ALARM

for VIC 20tm or Commodare B4tm

iit

'There's /joining Me it!"

This brand new S29.95 arcade/adven ture game lor the CS4 is yours free when you join the 64 CLUB. In fact, this is just one o( the 1st month's programs you receive when you join IheW CLUB. Each month's diskette contains 10 pro

grams in the areas ol business, educa tion, and recreation. Plus you also receive free consulting and software discounts. All this for only S40/year. If you would like further proof ol the quality of our software, send S5 lor a trial month which includes Quest for Power

The 64 CLUB 1260 Oliver Ave.

• Paml it with PAINTPIC"

S3995

• Pfinl it with PfllNTAPIC

$44 95

• Pirate ii wnn PWZLEPJC"

S43 95

16 colois. 160 i 200 scrstn. CAD

Most printers, nock tug. 'Venus" • • Do bath wjlti CAOPIC" Combines Paimpic - pfinrapic

1 2 3. 4

S79 95

i

plus JJ.7S fot oosiage ana Handing Specify Canputir ana Memory

$24 95sa

i i VIC I0TU - Disk

SS9M

• See our COMPUTER ART PfllNTE (3 lor $25) S8.9fcsa 20" i 24" "Room" "Storm' "Holy LanO"

Adortsi

City

.

• DEALER ENQUIRIES WELCOME • Add 52 p & l\ Pay m advancu Dy Chech or m/o or VISA. AM£X CaMornia add 6to $alu3t3-

^

T^ KIWISOFT PROGRAMS, T1 18003-L Skypark South, Irvine CA 927R pll 714 261 5114

U C:—a:'e MTU D Cassette

.

,

_.$ta:s-

Wisne MumMr |

SEND FOR OUR FREE COLOR BROCHUHE

Programs on diskette Irom

Alarm sotiwsre

* Mwe 2c:esscnes available

S?4 9Sea

Easy/MMium/Fiendishly Difficult i • Treasure the best of PAINTPIC ART 5 original :..i ntu ,; by "D JR "on dish

VIOQ Alarm Inlerlacg Four Mignehc S«ilc(ies Piercing 9Sfln SirEn 100 n twisted wire

Total System Only S69.0D

Pic lures, mosaics, males

• Mors pictures with PICTUREDISKS Spa". Cars. Plants, Fanlasy. Animals • More Piuiltpic putties PU2ZLEDISKS

^

San Diego, CA 92109

Intruder Interface includes:

).

MC Or VISA * . Ejdiration Dale

Se.-a deck

U 0 . ViBA/MC lo

VIN Systems (U.S.A.) P.O. Bo. 31 Bonne. Iowa

50036

VIC 20 and Camtnaaatt 64 ire iridimjrki of Cfcrfrirarjara Eliclranlci Lid.

VIC - 20 / COM - 64 HOME / BUSINESS VIC

PHACnCALCPUJS(16K)m PRACT1CALC 64 (T) (di.,k version) TOIL TEXT 2.5 (T) (disk version) CARDCO3SLOT EXPANSION BOARD

16K now

ONLY

M

43.95

26.95

43.95 46.95 29.95 32.50

28.95

MEMORY EXPANSION

Syic

*IO

SPECIAL

SALE PRICE I

* 14 Day Money Back Guarantee * Boosts VIC to 21K RAM * Top Quality, Fully Tested * 90 Day Warranty

far IMMEDIATE SHIPMENT on Credit Card Orders

Call: (303) 245-9012 9 AM - 9 PM MST Every Day

ASSEMBLY TECHNOLOGY , 2692 Hwy 50 Suite 210 Grand Junction, CO 81503 Petsonfl] checks allow 3 week* Shipping & handtrw 12 50

bloKcMdfnKniiS Sales Ta, CUD ...I.I '-.'..i

.-■ySYSTEMSV-.

FOR COMMODORE 64" MusicPlus

$19.86 $19.95

UtilltyPIuH

$15.95

DcluxBanner

S12.95

Mail Lister

S12.95

Comal Proc & Func

$14.95

♦♦PUBLIC DOMAIN GAMES** Copy Of Many

$12.95

TEXAS ADD SALES TAX $1.50 SHIPPING ON ANY ORDER MASTERCARD & VISA WELCOME $1.00 FOR DETAIL OK PROGRAMS

AND LIST OK PRODUCTS Good for credit toward purchase Pritts good until Alii;iikI 31, l!tHJ

PB SYSTEMS Box 790816 Dept CM684 or CG684 Dallas, Texas 75379 (214) 991-0237

VIC-20

Protect your Investment

C-64

■ Superior to cloth or vinyl.

■ No more dirt, ashes, spilled liquid and dropped items crashing onto the keyboard. To orderxheck.money order, MC/Visa. Card No._ Bank

Exp. date Add £3.00 shipping & handling for each cover.

Kansas resiaenis, add 3°/o sales lax.

Diversified Manufacturing

3517 S. Knight/Wichita, KS 67217 (316) 943-5516


910

DATA5,10,158,109,98,110,300,113,300,1 10,98,109,0 :rem 29 FOR

PARALLELOGRAM

:rem

193

20

920

REM***DATA

930

DATA10,10,156,18,169,-3,32,146,169,70

30

0,156,18,169,-3,32,146,169,0

40

!rem 117

PRINT"(CLR}(BLK){2 SPACES}CHOOSE A SHA PE:","{2 DOWN}(PUR) TRIANGLE SQUARE"," (2 DOWN) RECTANGLE" srem 127 PRINT"(2

DOWN)

PARALLELOGRAM"

INPUTAS:RESTORE

50 READBS:IFBS="END"THENPRINT"(2

Lines 110 and 120 determine the screen coor

T

A

VALID

picture since there is no valid CHRS(O). Line 140 handles repeated characters. Our data for a re

DOWN}

25

183

NO

CHOICE":FORI=1TO5000:NEXT:GO

TO20

dinates. Line 130 chocks to see if the picture is complete. We will use 0 to indicate the end of a

:rem

:rem

:rem

107

60 70

IFB$oA?THEN50 t rem 206 PRINT"|CLR}{3 DOWN)"AS:GOSUB100iFORI=l

100

TO4000:NEXT:GOTO20 REM***GENERAL PRINT

SUB

:rem 59 :rem 104

:rem 142 peated character will be the negative of the number 110 READQ:PRINTLEFT$(LS,Q); :rem 123 of characters we want to print (we use the negative 120 READQ:PRINTTAB(Q); :rem 79 130 READQ:IFQ=0THEN170 value to avoid using a valid C'l IKS code), followed 140 IFQ<0THENHQ=ABS{Q)!READQiFORI=1TOHQ:P

by the character to be repeated. Line 150 controls tabulation of new lines. Values desired are multiplied by 100 to take

them beyond the range of valid CHR$ codes when

creating the DATA. Line 160 prints one character.

The whole procedure will continue until all DATA is read and printed and a 0 is encountered. Add the following lines to complete the L$="[HOME){21 {21 LEFT}"

DOWN}":TS="[DOWN} :rem 239

20

PRINT"(CLR}":FORI=1TO2:GOSUB100:NEXT:C :rem

99

Try running the entire program now, and see our two pictures print.

Adjustments For The 64 When this program is RUN on the 64, the shapes will be drawn off center on the screen. If you

find this displeasing, change the definitions for L$ and T$ in line 10 to those mentioned earlier for the 64, then adjust the tabulation values in the DATA statements as appropriate for the 40column screen. What are the advantages of using this generalized subroutine rather than a straight PRINT?

PR1NTPRE(O). You will notice that the memory used is about 422 bytes. Beyond this initial re

quirement, the memory needed by additional DATA Statements will be whatever is required to store the statements themselves. As the number of pictures printed increases, so does the savings in memory.

DATA Used As An Array This subroutine could also use the DATA state

ments as if they were an array. An identifier could begin each set of DATA and could be used in the program to find the desired picture.

RETURN :rem 120 DATATRIANGLE.10,10,18,169,127,400,169

910

DATARECTANGLE.10,10,30,18,-5,32,600,-

,-2,32,127,146,0

:rem

162

:rem

:rem :rem

170

930

DATASQUARE, 10,10,28,18,-3, 32,400,-3,3 2,400,-3,32,400,-3,32,146,0 :rem 162 DATAPARALLELOGRAM,10,10,159,18,169,-3

940

0 DATAEND

,32,146,169,700,18,169,-3,32,146,169,

:rem :rem

159 142

In this example, the DATA is searched and selected as if from an array, but no extra storage space is used. As before, 64 owners may wish to

adjust LS, TS, and the tabulation values to reflect their larger screens. You may also want to make the following change to properly align the menu. 20 PRINT"(CLR}[BLK}(2 SPACES}CHOOSE A SHA PE:"sPRINT"[2 DOWN}[PUR} TRIANGLE":PRI NT"[2 DOWN](RIGHT}SQUARE"

30 PRINT"(2 DOWN){RIGHT)RECTANGLE":PRINT" DOWN}(rIGHT)PARALLELOGRAM"

The third usage we will consider takes a slightly different approach to our subroutine. Instead of storing DATA as statements in the program, we will create a data file. Our subroutine will then

use INPUT# statements instead of READ state

ments to retrieve the data and accomplish the desired printing.

The wonderful thing about this usage is that

the length of the data file is not restricted to the amount of memory in your computer. It can be as large as your tape or disk allows. With this type of processing, you could print picture after picture without ever using any memory beyond the initial amount required to store the program.

Here is an adaptation of our previous example

this use:

program that illustrates the use of a data file as DOWN}":TS="(DOWN) :rem Junu 1901

9

219

An Adaptation For Tape

Here is a very simple program illustrating

COMPUTE!'* Gazelle

170 900

130

Load From Tape Or Disk

memory. After you run Ihis program, enter

148

PRINTCHR$(Q);:GOTO130

(2

The first and most immediate is a savings in

10 L$="EHOME]{21 [21 LEFT}"

62

160

5,32,146,0

10

!rem

IFQ>191THENPRINTLEFTS(T$,Q/100);:GOTO

920

program:

LR:END

RINTCHR$(Q);:NEXTsGOTO130

150

input from tape. Type, SAVE, and RUN the pro 239

grams in the following order:


1. Type in Program 1 {the main program) and SAVE it on tape.

VIC & 64

BE A COPY C.A.D. (CASSETTE AIDED DUPLICATOR) NOW

2. Type in Program 2 (creates the data file)

and RUN it, leaving your tape positioned at

YOU CAN MAKE BACKUP COPIES OF ALL THE COSTLY, NON-SAVEABLE CASSETTE PROGRAMS YOU BOUGHT.

the end ot Program 1. The data file will then

OUR BACKUP V1.0 UTILITY PROGRAM WILL LET YOU

immediately follow the main program and can be used as input. Then SAVE Program 2 on tape after the data file, in case you want to

BACKUP V1.0 WILL WORK WITH A STANDARD 5K

create another data file.

MAKE DUPLICATES THAT RUN.

UNEXPANDED VIC. MEMORY EXPANSION IS REQUIRED TO COPY PROGRAMS LONGER THAN 3K BYTES.

S24.95

3. Rewind tape, LOAD Program 1, and

RUN it.

PLUSS2.00

SOFTWARE PLUS

SHIPPINGS HANDLING

CimUS HEIGHTS. CA 95610

You will notice when you RUN this program

CA RESIDENTS ADD 6<Mi SALES TAX.

REM***INPUT AW

DATA

FROM TAPE

FILE

AND

DR

:rem

176

DOWN}":TS="(DOWN) :rem 240

OPEN1,1,0,"TAPE FILE" :rem 57 INPUT#1,AS:IFAS="END"THENPRINT"{CLR]

{3

DOWN}

THAT'S

ALL 1":CLOSE1:CLR:END :rem

50

PRINT"{CLR}[3

215

DOWN){BLK}"A$

:rem 241

60

GOSUB100

70

PRINTLEFTS(LS,18)"AVA1LABLE

MEMORY:"FR

:rem

E(0) 80 100

110 120 130

140

NEW1 Wortpro 64 toy Praime •"apprtlitJIdl

.

...

lies ware OrnPiu'cirJ) HciMo*rti I (64 or 20)

PS iPir«r

REM***GENERAL

PRINT

SUB

:rem USING

190

TAPE

IN

PUT

rem

INPUT#1,Q:PRINTLEFTS(L5,Q)

:rem

71

:rem

52

INPUT#1,Q:PRINTTAB(Q)

168

INPUT#1,Q:IFQ=0THEN170

:rem 67 IFQ<0THENHQ=ABS(Q):INPUT#1,Q:FORI=lTO HQ:PRINTCHR5(Q);JNEXT:GOTO130 :rem 50 130

:rem

160 PRINTCHRS(Q);:GOTO130

S54

I6J

Bank Slrect Writciim

U!

S39

Piaclicalc64 lay MSIcill

137

S32

Pratlici'c 64 b| MSIIUUI

S35

S72 S42

Caidco Pimlei Inl w Giaphics Caraco Pumer In! a

S67

Caidco Hommc Keypao

SB? (37

534 S5J S55

Cardco Liqfilpcn The Ljii Onehil Delphi; OiaclejO)

with our invoice and original packaging

145

S29 E?9 S69 SIM

PA residenls add 6°o sales tax.

DATAFILE MANAGER

DATABASE MANAGEMENT FOR THE COMM0ODHE-G4 Succaaalully usod In computer classes lo leach trie concoptn o! random flino onfl ISAM lo baolnilnp users... cut sophisticated onough for homo and small

DuBlnesa use Consists o( 5 dish programs and comprehensive looso-laat manuul wlrh alepbyalep Inalructions. Includes bulldfJIe program lor read^io-ueo 1000 record mailing list, zip-code sorted label printing and alpha onDneiist primouts SPECIFICATIONS: Menu drken * 90charac;rer3 ppHiBifl ■ 15 iieids &er record ■ J54 cfiar*ct8i per tbco^ • Ja lo 12M recoras per aiik - ISAM random access lues ■ Son on any Neid ■ \Jiwdeiined alpna and numeric field? ■ Nested sorts • Nested ratals amJ subtotals • Complied '0' speed • U**r-deilned print 1otmai£wiihiop and OoStornheMJars. paon Innorn anfl skip over at'' • Vie* pi pilni aeieded iniprmaiion from yaw Me

SYSTEM flEQUIflEMENT5:C-6aCompeer- 1 O'2 15« DlakflPlyai • TV or rnanl(Cr(col0'i>ra^] • Prop*ri)f iniirfKtd p'inie» (urop-a-n runs *lwi hirnieo ■po'^anona wlmout onnttri

$40 postpaid

K£NN*WflfTER Eairameiy easy lo use menu driven wordproceaso' lhai wo«ka wfth properly interfaced printer Bolfi youngsters and ttduils love ihls one1

162

iFlCVlONS CpiledTorspaM -ViBrOmnpi Prpgrinnijcli< lu'.ihot t,-, ■ I'.tM|.'i ,.■'

isie Jifte-Mocii - SWC* • Seiren aid rapiacfl • Uieraeiintd pnm comje rirtders :<.- z rumMn ■ Usr^e Files • Cirnn ih|«i - ,;,- ■£,.'.■:■ com' p by-slap marual - System leqwiremenis a ntnne

:rem 9

RETURN

Script S4ld] NEW Mjilpro 64 liy Prolinc

70 ORDER: Fo' MaslerCard. Visa. COD crfleis callSt4-Z3M23S. Hours are 10-7 mon-sal 12-5 sun EST For Personal checks, ceriilied checks, money orders write Tussey Mountain Software. Boi 10D6. State College. PA. 16804. MOST OHOEflS SHIPPED in 48 HOUHS! Credit Card rjrrjfjis add S3 00 shipping, COD .nil) S4 50 Outers shipped free Allow 2 weeks lor personal ettpeks lo clear Orders shipped UPS unless specilied otherwise. Manlacluier1; warranty honored

:rem 207

FORI=1TO5000:NEXT:GOTO40

S64 146

119

150 IPQ>191THENPRINTLEFTS(T$,0/100);:GOTO 170

WordPro 3 i (M w S[irtrif)ni(dl

Hfiwjrf Mulltglinld)

SHAPES

20 L$="(HOME){21 {21 LEFT)" 30 40

TUSSEY MOUNTAIN SOFTWARE SAYS: COMPARE OUR PRICES ON C64 SOFTWARE!

Cilc Hwuil Atfv luFidi Calc Htsuit Easy (carl)

PRINT Pictures From Data Files 10

VIC IS A TRADEMARK OF COMMODORE

brico Write Now G4 (cull rlNttfflu lean)

Program 1:

916-726-8793

VISA. MASTERCARD. AND MONEY ORDERS

that the amount of available memory does not appreciably decrease with each new picture. Only four pictures are included in this particular pro gram, but 400 could have been stored in a data file and used as input without requiring any more memory in (he main program.

6201 SUITE C

GREENBACK LANE

:rem

120

S 30 postpaid

ORDER BOTH PflOGfTAHS-JUST £55 poSfMij

JA"E3T0WH SDFTW-V-E 8 Wry Forge - WaJisor Wl 53719 • 60S 771 b%27

Program 2: Data File Creator 10

REM***CREAT£

A TAPE

20 30

OPEN1,1,1,"TAPE R$=CHR${13)

FILE OF

COO'S ikCKTC ■ 2*3r -^ i h

:rem

FILE"

40

READA$:PRINT#1,A$;R$

50

IFA5<>"END"THEN40

60

CLOSE1:END

177

:rem 57 :rem 204 irem

:rem :rem

30

910

DATARECTANGLE,10,10,30,18,-5,32,600,-

920

DATASQUARE,10,10,28,18,-3,32,400,-3,3

:rem

5,32,146,0

srem

2,400,-3,32,400,-3,32,146,0

:rem

219 170 162

DATAPARALLELOGRAM,10,10,159,18,169,-3 ,32,146,169,700,18,169,-3,32,146,169,

940

0

srem

159

DATAEND

:rem

142

SOFTWAREI SHOPPER I

66

DATATRIANGLE,10,10,18,169,127,400,169

,-2,32,127,146,0

ARE YOU PAYING TOO MUCH FOR SOFTWARE?

129

900

930

-, »k

DATA

@J

Tht MvittKly TibloiJ

ForCommoilorir

'*. i .

Each monlhlv llliA Imnqi you huneil reviews & up-[Q-i]jlK news oi tho Ijicil ^nnwjie firailucls

jvjiUh^ lar your Commodore compulpi' Full oi inroimalmn. ncjds. icvic*i Aiitltn Irv Jim lor comouicr o«n?i$ iiiil litir vDU' f1"1 ^Atlwarn bargains From vendors larijc jnil smjir jDin diji thuu^nds ol rgtdcrs Sulncubd 10 SOFTWARE SHOPPER lodl|< You won I be soil)1 A lull (HI |inl SID nil"

SOFTWARE SHOPPER. BOX 309-C. FRASER. Ml 4B02Q USA SUBSCRIPTION

B»IES

Neil

6

nsucs

SB 00

Neil

1!

Hints

S10DO

Cult

youl

Hi mi AODieu .

City

£111'

COMPUTE'.'* Gamtte

June 1984

149


NEWSSc PRODUCTS VIC And 64 Keyboard Overlays Cheatsheet Products has pro duced a series of plastic keyboard overlays for the VIC-20 and Commodore 64 which are quick reference aids for a variety of Commodore and third-party software.

The plastic templates, called Lcroy's Cheatsheets, include pro

Cheatsheet Products' plastic overlay for Easy Script for the 64.

gram starting instructions, marked function keys, and refer ence tables, charts, or drawings. Overlays are available for the following VIC-20 programs:

Programmer's Aid, Vicmon, Super

Expander, VIC Typewriter, aha

VICTerm 1 (all by Commodore), and Quick Brown Fox (Quick

Brown Fox), UMl Wordcraft 20 (United Microware Industries,

Inc.), HES Writer and HES VIC Forth (both by Human En gineered Software), as well as Graphic Printer (Commodore

1515 and 1525) and a genera! BASIC overlay. Overlays for the Commo

dore 64 programs include: Term 64 and Easy Script (both by Com modore), HES Writer and HESmon (both by 1 lunian Engineered

Software), Quick Brown Fox

{Quick Brown Fox), WordPro 3/ Plus (Professional Software), Graphic Printer (Commodore 150

COMPUTED Gazelle

June 1984


the search. A variety of menus

Doodle!'s copy function will duplicate, squeeze, reduce, en large, stretch, rotate, or reposi tion a drawing or part of a drawing on the screen. The save

P.O. BoxS299

are presented to the searchers

feature will store drawings on a

Pittsburgh, PA 15218

from which to choose appropri

disk for later recall or alterations. You may draw and erase with track ball or joystick in nine pen

1515 and 1525), Paper Clip (Bat

teries Included), and BASIC. Each overlay sells for S3.95, plus SI shipping and handling. Cheatsheet Product*

(412)456-7420

Using a system of chal lenges, search periods, solu tions, and an internal timer,

Seek-Bible controls the action of

ate actions or supporting dis plays on the screen or printer.

VIC And 64 Cassette Backup Creative Electronics has pro

duced a cassette backup for the VIC-20 and Commodore 64 which works with any Commo

Seek-Bible sells for $24.95 on tape. Two additional search

tapes, Seek-Bible 2 and Seek-Bible 3 are available on tape for $12.95 each. SEI Enterprises, Inc.

17 SerpiRoad

Highland Mills, NY 10930 (516)757-9783

recorder. Written in machine you to protect your programs on

tape by creating a reserve copy.

The cassette backup is avail able for $14.95. Creative Electronics P.O. Box 4253 Thousand Oaks, CA 91360 (805) 492-1506

Bible Study For Commodore

Graphics

Package For 64 Doodle!, a graphics program for the Commodore 64 designed to

program for two to ten people which allows you to competi

background colors; change any

color; or color over anything on the screen. The suggested price for Doodle! is $39.95. City Software Distributors, Inc. Milwaukee, Wl 53233

(414)291-5125

VIC-20 Interface Board

effectively use its color and high

resolution capabilities, has been introduced by City Software. The program works with either a track ball or joystick, and uses color-coded menus and visual cues as aids. Among its features are a "stamp" option which lets you create up to nine

Seek-Bible is a group participation

program, you can draw in 16 colors; choose drawing, fill, and

735 West Wisconsin Aivnue

dore machine with a data cassette language, the product allows

sizes at nine speeds. With the

repeatable graphic symbols. On screen designs may be printed on

the Commodore 1525 printer and

A parallel interface board has been produced by Showtronics for the VIC-20 computer. The circuit board has two parallel eight-bit ports. One port has buffering and the other can be used for input or output. A

6522 VIA and 2716/32 Eprom are also on the board. Several in cluded routines allow you to use the SYS command for input or

most other popular printers, in

output to 2-20 pin connectors,

tions of the Bible. It is available on tape for the VIC-20, PET, and

cluding C. Itoh 8510 or NEC8023,

The interface may be used for

most Epson or Star/Gemini, and

Commodore 64 machines.

most Okidata printers.

printer control, cordless tele phone input, alarm input-output,

tively search for particular sec

COMPUTEISGazette

Jjmo!98^

151


NEWS&PRODUCTS

and other applications. II]

CH1CHUU

OlfliflNUKr'OK HIUE6

IUI1L

II«E

1 SlJCi

The board sells for $139.00.

!U

liiifti

Showi ranks

HHSllilN

average tf-ceu—s; uph VEHICLE HFB

ZU

6780 Friars Road #105

HPIS

KirHL 'GALLONS— 33 UHL.

ROUTE

I

73

U13HIIID-

NflSHVILLE I

65

•">

(619)692-1212

Computerized

IN

2i !<•

'in

?|JO

!2«J

Zt 10

Road Maps

I434HIIT0-

finny

I

San Diego, CA 92108

SUMMflBY

in

Roadsearch and Roadsearch-Plus

in

have been released by Columbia Software for the Commodore 64.

12511 I Id-

CHICAGO

IL

GOFTWA/ii:

64 Color Graphics

SHft

/I sample screen from Columbia Soft ware's Roadsearch.

These computerized road maps simplify the calculation of driving routes, determining the shortest practical routes between cities in its data base.

Roadsearch contains a data base of 406 cities and road inter sections and about 70,01)0 miles

of interstate and major highways throughout the U.S. and

Canada. Roadsearch-Plus offers these features as well as a road map development system that lets you customize maps. With

Roadsearch-Plus, you can add up to 50 towns and 100 road

Flying Colors, a color graphics package designed for use with a standard joystick, has been re

leased for the Commodore 64 by The Computer Colorworks. With screen windows, you can pick such functions as thick and thin lines, circles and boxes of any size, erasures, and the ability to fill enclosed areas with a number of colors.

Text can be added to the screen, and a grid feature helps you align your pictures. You may save and retrieve the pic

tures that are created. Flying Colors also includes a program

which allows you to produce a slide show with the graphic creations.

Flying Colors is available for

$39.95 on disk. The Com mil ir Colorworks

3030 Bridgeway

Stwsaiito, CA 94965

(415)331-3022

segments anywhere in North America.

Roadsearch is available on disk for $34.95. Roadsearch-Plus sells for S74.95 on disk. Columbia Software

P.O.Box2235C 5461 March Hawk

152

COMPUTEIS Carolle

June 1934

64 BASIC Aid Don's Program House has de veloped a BASIC programming

aid for the Commodore 64 called

Columbia, MD 21045

BASIC-Pius, which uses two-

001)997-3100

touch commands in order to


simplify entry and expand the

$14.95, plus $2 for shipping.

number of BASIC commands.

Applied Si/stems mill Products

Additional commands such as FIND, REP, CRUNCH, UNCRUNCH, DELETE, APPEND, ANALYZE, AUTO, and OLD are included. The two-touch commands (FSET, FL1ST, FSAVE, and FLOAD) allow the

programmer to define and con trol up to 64 functions by touch ing two function keys. Written in machine lan guage, BASIC-Plus is available

on disk for $21.95. Don's Program House 4817 Clipping Couri

Louisville, KY 40222

(502)228-0341

VIC, 64 Modem Adapter The Universal Modem Adapter by Applied Systems and Pro

ducts allows a VIC-20 or a Com

modore 64 to be used with any

game that challenges you to race

Santa Ana, CA 92703

against time as you climb lad

(714)541-0233

Games For The 64 Bytes and Bits has released several new games for the Com modore 64. Dungeons mid Demons is a

fantasy adventure game in which the player attempts to success fully move a character through 12 levels of a dungeon in search of a golden chalke. With a total of 1200 rooms to explore and more than 40 types of monsters to encounter, the player may choose to be a dwarf, warrior, halfling, thief, elf, or wizard. The game sells forS21.95 on disk and features three-dimensional graphics, multi-color sprite graphics, and sound.

Goombahtz is a computer version of a dice game for up lo

The adapter will support modular as well as non-modular phones, including one-piece electronic phones with built-in

six players. The game uses six

three-dimensional dice and flashes more than 100 messages of encouragement, sympathy,

dialing. It does not require any

and rule applications as the game

the modem. Nor do you need additional equipment, such as an RS-232 interface or acoustic coupler.

The modem adapter sells for

Crazy Conveyors is an action

W21-11 West Bishop

type of phone for telecommuni cations through a VIC modem.

modification to your phone or

disk or tape.

progresses. The computer will

play against itself, against another player, or allow you to play the game while making sure all rules are followed. Goaw-

bahtz is available for $16.95 on

ders, slide down fire poles, and cross unpredictable moving con veyors. The player gathers ammo while tending off enemies. A

built-in screen creator allows you to expand the game up to 128 screens. Additional disks may be used for unlimited screens. The game uses custom

characters, multi-color sprites, three-part harmony music, and works by joystick or keyboard.

Crazy Conveyors sells for $29.95 on disk.

Bytes and Bits 524 East Canterbury Lane

Phoenix, AZ 85022 (602)942-1475

COMPUTED gazette welcomes an

nouncements of new products for VIC-20 and Commodore 64 computers,

especially products aimed at beginning to in termedin I e users. Please send pies*

releases and photos well in advance to: Ton}/ Roberts, Assistant Managing

Editor, COMJ'UTE-TsGAZETTE,']'.6.

Box 5406, Greensboro, NC 27403.

New product releases are selected from submissions for reasons of timeliness, available space, ami general interest to our readers. We regret that wears unable

to select all new product submissions for

publication. Renders should be aware thai toe present here some edited version of material submitted In/ vendors and are unable to vouch for its accuracy at

time of publication, <jÂŁ

COMPUTED Gazelle

June 1984

153


A Beginner's Guide To Typing In Programs What Is A Program? A computer cannot perform'any task by itself. Like a ear without gas, a computer has potential,

but without a program, it isn't going anywhere. Most of the programs published in COMPUTGl's

to turn off your computer, then turn it back on. This will erase whatever program was in memory,

so ahmya SAVE a copy of your program before you RUN

it. If your computer crashes, you can LOAD the program and look for your mistake. Sometimes a mistyped DATA statement will

GAZETTE for Commodore are written in a computer language called BASIC. BASIC is easy to [earn and is built into all ViC-20s and Commodore 64s.

cause an error message when the program is RUN. The error message may refer to the program line

BASIC Programs

statements, though.

Each month, COMPUTED gazette for Commodore publishes programs for both the VIC and 64. To

start out, type in only programs written for your machine, e.g., "VIC Version" if you have a VIC-20. Later, when you gain experience with your com

puter's BASIC, you can try typing in and converting certain programs from another computer to yours.

Computers can be picky. Unlike the English language, which is full of ambiguities, BASIC usu ally has only one "right way" of stating something. Every letter, character, or number is significant. A common mistake is substituting a letter such as

O for the numeral 0, a lowercase 1 for the numeral 1, or an uppercase B for the numeral 8. Also, you must enter all punctuation such as colons and commas just as they appear in the magazine.

Spacing can be important. To be safe, type in the listings exact!}/ as they appear.

Braces And Special Characters The exception to this typing rule is when you see the braces, such as "{DOWN}". Anything within a set of braces is a special character or characters

that cannot easily be listed on a printer. When you come across such a special statement, refer to "How To Type In COMPUTEI's GAZETTE

Programs."

Some programs contain a section or sections of DATA statements. These lines provide information needed by the program. Some DATA statements contain actual programs (called machine language); others contain graphics codes. These lines are espe cially sensitive to errors. If a single number in any one DATA statement

is mistyped, your machine could "lock up," or "crash." The keyboard and STOP key may seem "dead," and the screen may go blank. Don't panic

- no damage is done. To regain control, you have COMPUTE!'! Gazette

Get To Know Your Machine You should familiarize yourself with your com puter before attempting to type in a program. Learn the statements you use to store and retrieve

programs from tape or disk. You'll want to save a copy of your program, so that you won't have to type it in every lime you want to use it. Learn to

use your machine's editing functions. How do you change a line if you made a mistake? You can always retype the line, but you at least need to know how to backspace. Do you know how to enter inverse video, lowercase, and control char acters? It's all explained in your computer's manuals.

A Quick Review 1. Type in the program a line at a time, in order. Press RETURN at the end of each line. Use back space or the back arrow to correct mistakes. 2. Check the line you've typed against the line in the magazine. You can check the entire program again if you get an error when you RUN the. program.

3. Make sure you've entered statements in braces as the appropriate control key (see "How To Type COMPUTED GAZETTE Programs" elsewhere in

About DATA Statements

154

that READs the data. The error is still in the DATA

Juno 1984

the magazine). We regret tluit we are not able to respond to individual inquiries about programs, products, or services appear ing in COMFUTEl's CAZE'ITE for Commodore due to increasing publication activity. On those infrequent occasions when a published program contains n typo, the correction will appear in the magazine, usually zvithin eight iveeks. if you have specific questions about items or programs which you've seen in COMPUTEI's

GAZETTE for Commodore, please send them to Gazette Feedback, P.O. Box 5406, Greensboro, NC 27403,


How To Type In COMPUTEVs GAZETTE Programs Many of the programs which are listed in COMPUTEI's GAZETTE contain special control characters

{cursor control, color keys, inverse video, etc.). To make it easy to know exactly what to type when entering one of these programs into your com puter, we have established the following listing conventions.

Generally, any V1C-20 or Commodore 64 program listings will contain words within braces which spell out any special characters: [DOWN] would mean to press the cursor down key. {5

SPACES! would mean to press the space bar five times.

To indicate (hat a key should be shifted (hold

down the SHIFT key while pressing the other key), the key would be underlined in our listings. For example, S would mean to type the S key

while holding the shift key. This would appear on your screen as a "heart" symbol. If you find an underlined key enclosed in braces (e.g., {10 N ]}, you should type the key as many times as

indicated (in our example, you would enter ten shifted N's).

If a key is enclosed in special brackets, f:^, you should hold down the Commodore key while

pressing the key inside the special brackets. (The Commodore key is the key in the lower left corner

of the keyboard.) Again, if the key is preceded by a number, you should press the key as many limes as necessary.

Rarely, you'll see a solitary letter of the al

phabet enclosed in braces. These characters can be entered on the Commodore 64 by holding down

When You Read:

Press:

See:

When You Read:

the CTRL key while typing the letter in the braces. For example, {A} would indicate that you should press CTRL-A. You should never have to enter such a character on the V1C-20, but if you do, you would have to leave the quote mode (press RE TURN and cursor back up to the position where the control character should go), press CTRL-9 (RVS ON), the letter in braces, and then CTRL-0 (RVS OFF).

About the quote mode: You know that you can move the cursor around the screen with the CRSR

keys. Sometimes a programmer will want to move the cursor under program control. That's why you see all the (LEFTJ's, (HOME)'s, and

{BLUJ's in our programs. The only way the com puter can tell the difference between direct and programmed cursor control is the quote mode.

Once you press the quote (the double quote, SHIFT-2), you are in the quote mode. If you type something and then try to change it by moving the cursor left, you'll only get a bunch of reversevideo lines. These are the symbols for cursor left.

The only editing key that isn't programmable is

the DEL key; you can still use DEL to back up and edit the line. Once you type another quote, you are out of quote mode.

You also go into quote mode when you INSerT spaces into a line. In any case, the easiest way to get out of quote mode is to just press RE

TURN. You'll then be out of quote mode and you can cursor up to the mistyped line and fix it.

Use the following table when entering cursor

and color control keys:

Press:

See:

When You Read:

JCLRl

CLRHOME

{CVN}

IHOMEj

CLRHOME

(PUR)

EB3

♦ cRSRf

[grn)

(Fl!

♦ crsrJ_

Eblu)

[F2]

■^CRSP-*

[UP]

SHIFT

[down!

shtft)

[YELl

[P3J

{RIGHTi

Eli

IF4)

iRVS)

123

(F5)

{LEFTj

[OFF)

{red}

See:

{F6]

6[T]

[BLK]

[whtJ

Press:

E51

o [T]

lF7)

E

[F8i

COMPUTE!1* Gazelle

June 1984

155


The Automatic Proofreader "The Automatic 1'roofreader" will help you type in program

listings from COMPUTED Gazette without typing mistakes, It

is a short error-checking program that hides itself in memory. When activated, it lets you know immediately after typing a

line from a program listing it' you have made a mistake.

Please read these instructions carefully before typing any

the Proofreader by pressing RUN/STOP-RESTORE (hold down the RUN/STOP key and sharply hit the RESTORE key). This procedure is not necessary for disk SAVEs, but you must disable the Proofreader this way before a tape SAVE. SAVE to tape erases the Proofreader from memory, so you'll have to LOAD and RUN it again if you want to type

programs in COMFUTEI'b Gazette.

another listing. SAVE to disk does not erase the Proofreader.

Preparing The Proofreader

Replace Original Proofreader

1. Using tin1 listing below, type in the Proofreader. The same program works on both the VIC-20 and Commodore 64. Be very careful when entering the DATA statementsdon't type an 1 instead of a 1, an O instead of a 0, extra commas, etc.

2. SAVE the Proofreader on tape or disk at least twice

If you typed in the original version of the Proofreader (Oc tober 1%3 issue), you should replace it with the improved version below. We added a POKE to the original version to protect it from being erased when you LOAD another pro gram from tape. The POKE does protect the Proofreader, and the Proofreader itself was not affected. However, a

RUN.

quirk in the VIC-20's operating system means that programs typed in with the Proofreader and SAVEd on tape cannot be l.OADed properly later. If you LOAD a program SAVEd

warn you if there's a mistake. Correct any errors and SAVE

work OK, and the quirk was fixed in the Commodore 64).

before running it for litefirst time. This is very important because the Proofreader erases this parl of itself when you first type

3. After the Proofreader is SAVEd, type RUN. It will check itself for typing errors in the DATA statements and

while the Proofreader was in memory, you see ?LOAD

the corrected version. Keep a copy in a safe place — you'll

If you have a program typed in with the original Proof reader and SAVEd on tape, follow this special LOAD

need it again and again, every time you enter a program from COMPUTE!'* Gazelle.

4. When a correct version of the Proofreader is RUN, it activates itself. You are now ready to enter j program listing. If you press RUN/STOP-RESTORE, the Proofreader is dis

ERROR. This applies only to VIC tape SAVEs (disk SAVEs

procedure: 1. Turn the power off, then on.

2. LOAD the program from tape (disregard the ?LOAD ERROR).

3. Enter: POKE 45,PEEK(174):POKE46,PEEK(175):CLR

abled. To reactivate it, just type the command SYS 886 and

4. ReSAVE the program to tape.

press RETURN.

The program will LOAD fine in the future. We strongly

Vising The Proofreader

recommend thai you type in the new version of the Proof

All VIC and (>4 listings in COMPUTE!'* Gazelle now have a

reader and discard the old one.

di(.TAMifJMjiuirIn'j appended to the end ol each line, for example

":rem 123". Don'I cuter this statement when typing in a program. It is just for your information. The rein makes the number harmless if someone does type it in. It will, however, use up

memory if you enter it, and it will confuse the Proofreader,

even if you entered the rest of the line correctly.

When you type in a line from a program listing and

press RETURN, the Proofreader displays a number at the top of your screen, This diecksum number must match the checksum number in the printed listing. If it doesn't, it means you typed the line differently than the way it is listed. Im mediately recheck your typing. Remember, don't type the

rem statement with the checksum number; it is published

only so you can check it against the number which appears on your screen.

The Proofreader ia not picky with spaces. It will not notice exira spaces or missing ones. This is for ytmr conven ience, since spacing is generally not Important, liul occasion

ally proper spacing is important, so be extra careful with spaces, since the Proofreader will catch practically everything else that can go wrong.

There's another thing to watch out for: if you enter the

line by using abbreviations for commands, the checksum

will not match up. But there is a way to make the Proofreader check it. After entering the line. LIST it. This eliminates the abbreviations. Then move the cursor up to the line and press

RETURN. It should now match the checksum. You can check whole groups of lines this way.

Special Tape SAVE Instructions When you're done typing a listing, you must disable the Proofreader before SAVEirtg the program on tape. Disable 154

COMPUTE/1! Gazette

June 1984

Automatic Proofreader For VIC And 64 100 PRINT"[CLRjPLEASE WAIT...":FORI=886TO 110 120

1018:HEADA:CK=CK+A:POKEI,A:NEXT

IF CK<>1?539 THEN PRINT"ÂŁDOWSjYOU MAD

E AN ERROR":PRINT"IN ":END

DATA

STATEMENTS.

SYS8B6:PRINT"(CLR){2 DOWN)PROOFREADER ACTIVATED.":NEW

886

DATA

892 898

DATA 001,096,141,151,003,173 DATA 037,003,141,152,003,169

173,036,003,201,150,208

904

DATA

150,141,036,003,169,003

910

DATA

141,037,003,169,000,133

916 922 928 934

DATA 254,096,032,087,241,133 DATA 251,134,252,132,253,008 DATA 201,013,240,017,201,032 DATA 240,005,024,101,254,133

940

DATA

946

DATA 253,040,096,169,013,032

952

DATA

210,255,165,214,141,251

958

DATA

003,206,251,003,169,000

964

DATA

133,216,169,019,032,210

970

DATA 255,169,018,032,210,255

976

DATA

982

DATA 254,169,000,133,254,172

988

DATA

151,003,192,087,208,006

994

DATA

032,205,189,076,235,003

254,165,251,166,252,164

169,058,032,210,255,166

1000

DATA

032,205,221,169,032,032

1006

DATA

210,255,032,210,255,173

1012

DATA

251,003,133,214,076,173

1018

DATA

003


Castle Dungeon

,75,74,64,75,109,64,73,74,64,75,125,74 ,75

See article on page 52.

Before typing in programs, please refer to "How

34

DATA7814,16,93,32,32,107, 64,115, 74,64, 73,32,93,32,93,32,32,107,64 :rem 80

35 DATA7836,17,74,64,75,75,32,125,85,64,7

"Tne Automatic Proofreader" that appear before the Program Listings.

40

153

SV=36873:Sl=SV+l:S2=SV+2:S3=SV+3:V=SV+5 :SB=SV+6

:rem

3

READL,N:IFN=-1THEN5

i rem 43

4

FORJ=0TON:READS:POKEL+J,S:NEXT:GOTO3

DATA7648,255,2 31,195,129,129,131,199,2

:rem

11

10

FORT=1TO2000:NEXT

11

PRINTCHR?(147):FORT=1TO500:NEXT

12 13

POKESB,59:POKESV-4,242 FORT=1TO500:NEXT

14

PRINTCHR$(144)"{UP}[RIGHTlFIND AND DEF USE

THE"

PRINT:PRINT"

:rem BOMBS

HIDDEN

IN

:rem

16

PRINTiPRINT"

DUNGEON.

DON'T

PRINT.-PRINT"

INTO A

PIT

OR

149

GET" :rem

PRINT"(DOWN)(RIGHT)PRESS THE OR"

"L"

KEY F

:rem

65

20

PRINT"(RIGHT)A LEVITATION SPELL."

21

PRINT:PRINT"{RIGHT}YOU

22

PRINT"{DOWN}(RIGHTlTO COMPLETE YOUR":P RINT"{DOWN} (RIGHT) QUEST. " : rem 167

23

POKE143,VAL(MID$(TI?,5,2))

24

READCL:IFCL=-1THEN26

25 26

FORJ=CLTOCL+7:READCC:POKEJ,CC:NEXT:GOT 024 :rem 139 PRINTiPRINT"(HIT ANY KEY TO BEGIN)"

27

GETA$!lFft$=""THEN27

HAVE

:rem :rem

30

31

155

210

64,255,255,231,0,0,231,255,255,-1

:rem

98

Program 2: Castle Dungeon—VIC Version, Main Program 1

PRINTCHRS{147);CHR$(144):51=36874:S2=S1 +l:S3=Sl+2:S4=Sl+3:V=Sl+4:SB=Slf5:CL=Sl

2

3

C=30720:L=7680:MW=59:FC=0:PC=33:BT=8182 :FV=15:FP=0:CS=0:POKESB,8:R=37154:AF=0: KF=0 :rem 215 POKEV,15:POKECL,255:FORJ=LTOL+505:POKEJ

4

+C,0:POKEJ,32:NEXT READD:TFD=-1THEN6

5 6

POKEL+D,MW:L=L+D:GOTO4 srem 20 L=7680:FORJ=1TO9:READD:POKF;L+D, 34:NEXT

7

FORJ=1TO46:READD:POKEL+D,33:NEXT

8 9

FORJ=lTO3:GOSUB67:POKEB4-L,63:NEXT:rem 4 FORJ=1TO9:GOSUB67:POKEB+L,36:NEXT

:rem

:rem :rem

:rem :rem

:rem

10 11 12

255

236 161

19 172

11

PC=32:GOSUB67:POKEB+L,61 :rem 114 GOSUB67:POKEB+L,35 :rem 5 FORJ=1TO3:GOSUB67:POKEB+L,60:NEXT :rem 44 GOSUB67:M=B+L:TI$="000000" :rem 106

:rem

143

13

245

14 POKER, 127 :JS=(PEEK( 37137 )AtID28)OR( PEEK

HR$(131) :rem 192 FOR I=1TOLEN(SS):POKE630+I,ASC{MID${S$

,1)') :NEXTiP0KE19B, I: END

:rem

srem

: rem 98

DATA7878,20,114,64,73,73,32,110,85,73, 110,85,64,73,112,64,75,85,64,73,85,73, 110 :rem 14

DATA7900,20,93,32,93,93,32,93,93,93,93 ,93,64,73,107,64,32,93,32,93,93,93,93 : rem

32

DATA7456,191,121,112,1,0,135, 55,115, 74

19

:rem 91 :rem

205

49

62

5 MINUTES"

28 PRINT"JCLR}":FORJ=1TO3:POKESV+J,0:NEXT :S$="LO"+CHR$(34)+"D"+CHR$(34)+",S:"+C 29

irem

DATA.255,255, 255, 255, 255, 255, 255, 255,74 48,255,253,251,247,143,207,175,255

233

:rem 78

184

DATA7424,255,255,255,255,255,2 55,255,2 55,7440,25 5,255,255,129,129,255,255,25

-5 56

18 PRINT"(DOWN)(RIGHT)EATEN BY A BEAST." 19

72,255,239,247,231,195,195,231,255

5,7432

FALL" :rem

17

224

THE"

76

DATA7664,191,121,112,1,0,135,55,115,76

48

232

113 248 190

55,7656,255,191,95,64,90,186,255,255

:rem

47

POKES1,A:POKES2,B:POKES3,C:FORJ=15TOEST EP-1:POKEV,J:FORT=1TOD:NEXT:NEXT:NEXT

162

:rem

46

52

:rem 75 :rem 3

13

45

21

jrem

15

;rem

DATA7632,247,22 7,246,193,215,247,235,2 35,7640,255,34,34,34,255,68,68,68 :rem

: rem

:rem :rem :rem

216 102

44

PRINTCHRS(147):POKE52,29:POKE56,29:CLR

:rem

:rem :rem

1,226,100,0

Castle Dungeon—VIC Version, Loader

5 POKESB,110:FORT=1TO500:NEXT 6 FORM=1TO3:READA,B,C,D,E

5,32,75,32,74,64,75,109,64,73 DATA -1,-1

41 DATA0,0,219,36,5,0,236,231,36,5,237,23

Program 1:

7

75

To Type COMPUTED Gazette Programs," "A

Beginner's Guide To Typing In Programs," and

2

34

DATA7792,17,85,64,73,112,64,110,85,64, 75,64,114,64,112,32,32,112,64,75 :rem

BEFORE TYPING...

1

:rem

33

94

DATA7922.20,113,64,75,74,64,115,125,74

{37152)AND128):JS=ABS(JS-100)/4-7:POKE

R.255

rem

129

15 16

IFTIS>"000500"THEN48 IFJS=6THENDR=-22

rem

248

rem

153

17

IFJS=5THENDR=22

rem

108

18

IFJS=3THENDR=-1

rem

101

19

IFJS=11THENDR=1

rem

104

20

IFJS=7THENDR=0

:rem

21 22

P=PEEK(DR+M):IFP=59THENDR=0 rem 106 IFP=35THENCS=1:POKEBT,35:POKEBT+C,5:BT

23

52

=BT+1

jrem

123

IFP=36THEN78

:rem

136

COMPUTE'S Gaiatte

June 1984

157


24

IFP=34ANDKF=0THENGOSUB73

25

IFP=61THENKF=1:POKE8181,61:POKE8181+C,

: rem

5

:rem

3,84,105,106,123,124,125,145,146,147,1

211 240

26

GETL$:IFL$="L"THENLS=1:GOSUB82

:rem

30

27

IFP=60ANDLS<>1THENFP=1

:rem

59

28 29

IFP=60ANDLS=lTHENFP=2:PIT=M+DR:rem 114 IFP=63THENAF=AF+1:POKEBT,63:POKEBT+C, 5 :BT=BT+1:GOSUB75

rem

77

30

IFDR=0ANDFC=1THEN44

rem

86

31

POKEM,32:POKEM+C,7:POKEM+DR+C,7

POKEM+

DR.58

rem 80

POKEM+DR+C-22,7:POKEM+DR+C+22,7

POKEM+

DR+C+1,7 s POKEM+DR+C-1,7

rem

POKEM+DR+C-2 3,7:POKEM+DR+C+23,7

POKEM+

32 33

37

DR+C+21,7:POKEM+DR+C-21,7:FC=1:rem

189

34

IFP=35ORP=61THENGOSUB70

:rem

150

35 36 37

IFFP=lTHENPOKEM+DR,60iGOTO76 IFPS=1THENPOKEPIT,60:PS=0 IFFP=2THENPS=1:FP=0

38

LS=0:IFDR=0THEN44

39

POKES3,240:FORT=1TO2:NEXT:POKES3,0

62,163 65

:rem 154

DATA184,185,195,196,217,218,301,302,32 3,324,338,3 39,360,361,441,442,443,445

:rem

85

66

DATA463,464,465,466,467

:rem

67

B=INT(RND(l)*501)+0

:rem

169

81

68

IFPEEK (B+L)OPCTHEN67

: rem

213

69

RETURN

70

POKES3,185:POKES2,202:POKES1,202:FORJ=

:rem 79

15TO0STEP-.5:POKEV,J:NEXT:POKES3,210

:rem 71

74

POKES1,232:POKES2,232:FORJ=15TO0STEP-.

05:POKEV,JiNEXT

:rem

26

72

FORJ=0TO2:POKES1+J,0:NEXT:POKEV,15:RET

:rem 217 :rem 48 :rem 123

73

URN :rem 126 POKEM,32rPOKEM+DR,37:POKES4,130:FORJ=1

:rem

218

74

95

7 5

:retn 40

IFDR=-22THENPOKEM+C+23,0:POKEM+C+22,0:

41

POKEM+C+21,0:GOTO44 :rem 84 IFDR=lTHENPOKEM+C-23,0:POKKM+C-1,0:POK

5TO0STEP-1:POKEV,J:NEXT:POKES4,0:POKEM

+DR,34

:rem

179

POKEM,58:POKEV,15:DR=0iFORT=lTO500:NEX

TiRETURN

:rem

188

POKES3,220:FORT=1TO50:NEXT:POKES3,0:RE

TURN

:rem

170

76

FORJ=254TO180STEP-.5:POKES2,J:POKES3,J

42

IFDR=-1THENPOKEM+C-21,0:POKEM+C+1,0:PO

77

:POKEV,FV:FV=FV-.1:NEXT:POKES2,0:POKES 3,0 :rem 23 POKECL,240:PRINTCHR$(147):PRINT" YOU F

43

KEM+C+23,0:GOTO44 :rem 242 POKEM+C-23,0:POKEM+C-22,0:POKEM+C-21,0

78

ELL INTO A PIT":GOTO81 :rem 18 FORG=190TO235:POKES4,G:FORT=1TO10:NEXT

44

M=M+DRsFC=l:IFAF=3THEN46

45

GOTOI4

46

POKESB,27:FORT=1TO3000:NEXT:POKECL,240

EM+C+21,0:GOTO44

: rem

198

:rem

: rem

96

trem 7

sPRINTCHR5(147)sPRINT" ASTLE" PLAY

YOU

SAVED THE C :rem 12

47

PRINT:PRINT;PRINT"

AGAIN?":GOTO52

48

POKES4,220:FORJ=15TO0STEP-.5:POKESB, 12

:rem

7:POKEV,JiFORT=lTO10:NEXT 49 50

51

srem

121

232

T=1TO20

:rem

232

FORT=1TO5000:NEXT

:rem

239

POKECL,240:PRINTCHR$(147):PRINT"PLAY

A

:rem 81

52 53

GETA$:IFAS=""THEN52 IFA$="Y"THENRESTORE:GOTO1

:rem 241 :rem 45

54 55

IFA$<>"N"THEN52 END

irem 255 :rem 65

55

DATA0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,3,4,6,8,1,3,4,2,1,1,2,2,1, 1,1,1,2

:rem

250

DATA1,2,1,1,1,2,2,4,2,4,2,1,2,5,2,2,1,

NEXT:NEXT:FORJ=15TO5STEP-.1:POKEV,JiNE XTiPOKES4,0!POKEV,15sIFCS=lTHEN24

80

POKECL,240:PRINTCHR$tl47):PRINT"

:rem

58

:rem

18

j POKES3,N iNEXTJ,I:POKES3,0:RETURN :rem

59

Castle Dungeon—64 Veision 0

GOSUB

60

61

5000:GOSUB1500:GOSUB200:GOSUB1000

:GOSUB1100:GOSUB1300::GOSUB1010:rem

1 5

GOSUB GOSUB

1140 3000:GOSUB 4000:GOSUB

00000"

:rem

NJ2

JOY=-1:RETURN

1,1,1,1,1,1,1,1,4,1,2,1,1,2,1,12,2,3,2

JOY=1;RETURN GOSUB 10

,2,1,1,1

25

GET AS:IFA$="L"

61

18

GOTO11,12,12,13,13,13,13,14:RETURN :rem 250

14 20

:rem

108

:rem 119 1500:TI$="0

7 GOSUB 20:GOTO 7 frem 195 10 JOY=0:JY=PEEK(56320):J2=15-(JYAND15):O

13

DATA2,6,2,2,4,2,1,2,1,2,3,3,4,2,7,1,2,

63

Program 3:

JOY=-40:RETURN JOY=40:RETURN

1,7,3,6,2,3,1,2,1,1,2,1,1,1,1,2,1,1,1, 1,2,3,1 :rem 254

L

:rem 93 FORI=0TO3:FORJ=0TO15:POKEV,J:N=180+I*J

82

11 12

DATA1,1,1,1,1,1,2,3,2,1,1,1,1,2,1,1,1,

131

YOU

OST TO A BEAST H" : rem 124 81 POKESB,27:FORT=1TO3000:NEXT:GOTO51

1,2,1,3,2,1,2,3,2,2,3,4,2,1,2,1,5,2,2, 1,2,4,5

:rem 72

79

POKESB,42:FORT=1TO10:NEXT:NEXT:POKES4,

0

GAIN? Y/N"

57

:NEXT:FORG=235TO220STEP-1:POKES4,G:FOR

138

: rem 60 :rem 16 :rem

THEN

GOSUB

491:LEVITAT

E=-l

DATA2,1,2,2,1,2,2,3,2,2,1,2,2,3,3,2,1,

11

:rem 223 :rem 67 :rem

27

IF

3,1,1,1 :rem 254 DATA1,2,2,1,1,4,1,2,2,9,6,2,1,2,1,1,1,

30

TEMP = PEEK(MAN+JOY)-40:1FTEHP <0THENLEVI TATE=0:GOTO170 :rem 70

40

ON

tSPACE)OUT":GOTO 600

1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,4,2,5,2,

62

8,1,6 :rem 173 DATA3,4,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,-1 :rem 252

63

DATA67,72,102,127,140,240,280,316,419

64

DATA23,24,26,27,28,45,46,48,49,50,82,8

158

COMPUTE'S Gazvnc

:rem Juna 19B4

2 27

TI$>"000300"THEN A$="YOUR

TEMP

GOSUB

150,160:GOTO

TIME

39

1,1,1,1,2,2,1,2,2,1,1,1,3,3,4,2,2,1,4,

RAN

:rem 211

50,60,80,90,110,130,140,

170

:rem

220:JOY=0iRETURN

GOSUB

60

IFNOTLEVITATETHENPOKEMAN,BLANK:GOSUB12

5:A$="YOU

FELL

INTO

A

:rem

166

50

PITM!GOTO105 :rem

44

21


70

K=l:RETURN

: rem

58

80 KEY=-l:POKE1303,43:POKE55575,lsGOSUB 4 01:RETURN

90

GOSUB T

: rem

320:IF NOT

233

SHRD THEN AS="YOU LOS

100

TO A GOSUB

BEAST":GOTO 600 360:RETURN

:rem 40 :rem 196

105

GOSUB 220:FORTD=1TO200:NEXT:GOTO 600 :rem

110

136

BOMB=B0MB-l:POKE 1823+40*BOMB,45:POKE 56095+40*BOMB,1:IF BOMB=0 THEN 500 :rem

212

:rem

115

120

RETURN

12 5

GOSUB260:GOSUB220:FORTD=1TO200:RETURN

130

RETURN

140 150 160

IF

NOT

KEY THEN

GOSUB

116

:rem

116

220:JOY=0:RETUR

N

:rem

RETURN

:rem 118

SWRD=-1:GOSUB

401:POKE

XH=0:POKE

244

1423,49:POKE55

695,1:RETURN 170

:rem

:rem

(SPACE}MAN,FIGURE:IF K=l THEN POKE MA :rem

FX>255THENXH=INT(X/256):X=X-XH*2 56

190

Y=Y*8+32:POKE TE,X:POKE

HXSPRITE,XH:POKE

YSPRITE,Y:BLANK=32

195 196

IFK=1THENK=0:BLANK=42 RETURN

200

FOR

POKEVOLUME,15:POKE

:rem

TREL,140

430 440

REM

460

POKE

470

VOLUME,15 POKE H1,4:POKE LI,48:POKE

230

POKE

H1,15:POKE

240

POKE

VOLUME,15:POKE

STREL,5:POKE FOR REM

270

POKE

FALLING

RTD=1TO500:NEXT:POKE

OLUME

280

FOR

SU

:rem

290

POKE

TO

100

HI,I:POKE

:rem

485

POKEWAVE,SAW-lsFOR TD=1TO500:NEXT:RET

:rem URN

310

RETURN

320

REM

330

POKE

:FOR

LION

VOLUME,15

:rem

5

:rem

103

I

:rem

131

:rem

116

1"

123

520 PRINT"[2 DOWN)(9 RIGHT)YOU SAVED THE

fSPACEJCASTLE"

:rem 156 ;rem

104

BACKGROUND,1:GOSUB

{SPACE}450:FOR TD=1 TO 2000:NEXT

:rem

40

620 PRINT"f3 DOWN}{10 RIGHT}YOU LOST THE

{SPACEJCASTLE1"

:rem 187

720 730

WAVE,NOISE-1

251 76

:rem

54

370

POKE

:rem

DOWNM14 RIGHT]THIS TIME"

102

HI,NO(1,I):POKE H2, :rem

S"

:rem 220

GET ANSStIFANSS=""THEN720 :rem 151 IF ANS$="Y"THEN POKE BACKGROUND,0:GOT

O 5

:rem 75

740 POKE251,0:END :rem 207 1000 FORL=679TO703:READA;POKEL,A:NEXT:POK E806,167:POKE807,2:POKE251,40:RETURN

:rem :rem

1010

5

390 FOR TD=1 TO DUR(1,I):NEXT:POKE WAVE,S AW-1:FOR TD=1 TO DUR(1,I)1NEXT1NEXT 54 116

: rem 237

DOWN)

SUSTREL,100:POKE :rem

106

{6 SPACES 3 HIT Y FOR FURTHER ADVENTURE

52

WAVE,NOISE

{2

710

710 FORTD=1TO500:NEXT:PRINT"{5

SUSTREL,100:POKE

:rem

RETURN

:rem

POKE251,0:FORTD=1TO1500:NEXT:PRINT"

FORTD=1TO100:NEXT:RETURN

WAVE,SAW

RIGHT}CONGRATULATIONS

700

REM

TO 4:P0KE

(7 DOWNHll

WAVE,TRIANGLE-1

360

1

35

GOTO

350

100:POKE

jrem

630

:rem

FORI=

2000:NEXT

189

129

118

H2,10:POKE

VOLUME,15

TO

:rem

:rem

510 PRINT"[CLRj":POKE 251,50:PRINT"(BLK)

WAVE.TRIAN

:rem

ATTDEC,100:POKE

,ltFOR TD=1

200

PRINT"{CLR}{8 DOWN}(BLK)"SPC(((40-{LE N(AS)))/2))AS :rem 41

V

H2,100:POKE

SOUND

112

:rem

52

SUSTREL,10:POKE

:FORTD=1TO1000:NEXT:POKE

VICTORY

:rem

610

irem

:rem 98 :POKE

104

53269,0:POKE

SOUND

HI,2

106

:rem

POKE

VOLUME,15 POKE

:rem

600

STEP-1

ATTDEC,100:POKE

SOUND

WAVE,NOISE-1:F 2

TD=1TO3:NEXT:NEXT

LEVITATE

700

:rem

TD=lTO3:NEXTjPOKE

128

GOTO

:rem

FOR

189

FOR TD=1TO400:NEXTjPOKE HI,2:POKEL1,2 4:POKEWAVE,SAW:FORTD=1TO900:NEXT

530

GLE 300

WAVE,SAW-1

29

,15

1=200

:rem 104 WAVE,SAW:FO

480

235 66

SOUND

ATTDEC,10:POKE

:rem :rem

TD=1TO2:NEXT:RETURN

260

ATTDEC,100:POKE SUSTREL,120:POKE

POKE53269,0jGOSUB 410:POKE BACKGROUND

ATTDEC,20sPOKE

TD=1TO10:NEXT:POKE

78 57

500

105

53

WAVE,NOISE

SOUND

RETURN

:rem LI,10

LOSE

494

119

2,24,100,2,24,100,2,24,100,2,163 SOUND

:rem :rem

450

FOR TD=1 TO2 :NEXT:POKE WAVE,TRIANGLE -liFOR TD=1 TO 1:NEXT:NEXT:NEXT

:rem

BUMP

61

493

120

8,100,7,50,7,50,12,300,14

,100,2,24,100,2,163,100,3,35

:rem

FOR 1= LTO7:POKE H2,NO(2,I):POKE H1,N L{2,I):POKE WAVE ,SAW -rem 6 FOR TD=1TODUR(2,I):NEXT:POKEWAVE,SAW1!FORTD=1TODUR{2,I):NEXT:NEXT:RETURN

FOR A=10TO20:FOR B=20 TO27:POKE H1,A+ BsPOKE LI,40:POKE WAVE,TRIANGLE

DATA

REM

92

SUS

492

:rem 19 :rem 128

210

220

ATTDEC,17:POKE

POKE ATTDEC,100:POKE SUSTREL,250:POKE

:rem

DATA

76

491

241

RETURN

400

420

:rem SOUND

LXSPRI

:rem

205

380

FOR TD=1TO200:NEXT:RETURN REM WIN SOUND AND OPENING

100

REM

FOR I=1TO7:READ N0(2,I),NL(2,I),DUR{2 ,1)jNEXT :rem SB

340

403 410

:rem

490

201

OR

POKE HI,120:POKE WAVE,SAW:FORTD=1TO10 0:NEXT:POKEWAVE,SAW-1 :rem 149

I=1TO4:READ NO(1,I),DUR(1,I):NEXT

211

SUSTREL,201

240

:rem

250

402

62

180 Q=MAN-1024:Y=INT(Q/40):X=(Q-Y*40)*8:I :rem

POKE ATTDEC,14:POKE

123

MAN,BLANK:MAN=MAN+JOY:POKE

H,42:K=1

401

1020

PRINTCHRS(144)"{CLR)[5

40

[2 SPACESJPIND THE BOMBS HIDDEN IN T

HE

DUNGEON."

:rem

66

srem

75

PRINT"(DOWN)(2 RIGHT}DON'T FALL INTO A

1030

:rem

DOWN)[WHT)

PIT

OR

PRINT" [2 KEY

GET

EATEN

BY

RIGHTjA BEAST.

FOR A

"

PRESS THE

"

:rem COMPUttt's Gatetle

Juno 1984

'L 198 159


1040 1050

1060

PRINT"[DOWNH2

SPACESJLEVITATION

SPE

LL.

MINUTES"

205

YOU

HAVE

3

PRINT"{DOWN]{2

SPACES)TO

trem

FULFILL YOU

R QUEST."

srem

104

PRINT:PRINTsPRINT"{9 SPACES}(HIT TON

TO

BEGIN)" THEN

:rem

64 33

GOSUB

1070

DATA72,138,72,152,72,166,251,240,8,1

RETURN

JY<>111

1065:rem

1065

1067

10iIF

BUT

: rem

174

60,255,136,208,253,202 :rem 81 1080 DATA 208,248,104,168,104,170,104,76, 202,241

:rem

53

1100 CM=14336:CS=53248:POKE56334,PEEK(563 34)AND254:POKE1,PEEK(1)AND2 51

:rem 254

1110 1120

1130 1140

FORI=0TO1023:POKECM+I,PEEK(CS+l):NEX

T

E=0:SHRD=0 sKEY=0:BOMB=3:LOIN=44

:rem

1510

42

SAW=33:SUSTREL=54278;H1=54273:H2=542

72sFIGURE=40sBLANK=32

srem 211

1515

HXSPRITE=53264:LXSPRITE=53248:YSPRIT

1517

POKE

1518 1520

POKE

E=53249:P0KE

53271,1:POKE

53277,1 srem

sNEXTsPOKE2040,13 FOR

192

53269,l:FORI=832TO896sPOKEI,255 :^em

53287,1;POKE53275,1 I=SOUND

sPOKE

TO

163

siem 48

SOUND+28:POKEI,0:NEXT

VOLUME,15:RETURN

:rem

243

3000 1=49152:IF PEEK(1+2)=216THENSYS49160 3010

:GOTO 3025 READ A:IF A=256 25

srem 120 THENSYS49160sGOTO 30 :rem 116

srem 91

3020

POKE

FORI=CM+320TOCM+320+95:READA:POKEI,A

302 5

FORI=1024TO1062:POKEI,41:POKEI+960,4 1:NEXT :rem 51 FORI=55 296TO56295:POKEI,0:NEXT:RETUR N srem 147

BS(A-255)jNEXT srem 44 POKEI,PEEK(1)OR4:POKE56334,PEEK(5633 4)ORlsRETURN :rem 206 POKE53 272,(PEEK(5327 2)AND240)OR14 srem 93 :rem

3010

srem

70

3030 3040

DATA

1,0,216,255,255,255,40

:rem

26

DATA

0,169,41,133,251,169,40

:rem

81

3050

DATA

133,253,169,4,133,252,133 :rem

DATA

1150

RETURN

1160

DATA247,227,246,193,215, 247,23 5,23 5,

3060

1170

255,34,34,34,2 55,68,68,68 : rem 7 DATA255,231,195,129,129,131,199,255, 255,191,95,64,90,186,2 55,2 55:rem

163

3070

1180

DATA191,121,112,1,0,135,55,115, 255, 2

3080

254,169,147,32,210,255,162 :rem 239 DATA 0,160,0,169,41 ,145,253 :rem 28 DATA 200,192,39,208,249,24,165

3090

DATA

253,105,40,133,253,144,2

3100

DATA

230,254,232,224,23,208,229

39,247,231,195,195,231,255

1190

167

3027

I,A:I=I+lsGOTO

srem

19

DATA255,255,255,255,255,255,255,255, 255,255,255,129,129,255,255,255

:rem 57

1200

DATA2 55,255,255,255,2 55,2 55, 2 55, 2 55,

:rem :rem

srem

182

194 126

225

255,253,251,247,143,207,17 5,255

3110 DATA 160,0,169,4,145,251,169

:rern 38 DATA191,121,112,1,0,135,55,115,255,2

3120

DATA

1210

3130 3140

DATA

1300

55,231,0,0,231,255,255 :rem 44 PRINT CHRS{147)sPOKE BACKGROUND,0:PO

255,141,15,212,169,128,141 :rem 2.30 18,212,173,27,212,41,3 :rem 24

DATA

133,173,170,10,168,24,185

3150

DATA

0,192,101,251,133,170,185

DATA

:rem 1,192,101,252,133,171,24

174

3160

:rem

122

3170

DATA

185,0,192,101,170,133,253

3180

DATA

185,1,192,101,171,133,254

3190

DATA

160,0,177,253,201,41,208

3200

DATA

18,138,145,253,169,32,145

3 210

DATA

srem 191 170,165,253,133,251,165,254 :rem 28

32 20

DATA

133,252,76,62,192,232,138

3230

DATA

41,3,197,173,208,189,177

3240

DATA

srem 251,170,169,32,145,251,224 :rem

3250 3260 3270

DATA

4,240,26,138,10,168,162

:rem

83

DATA

2,56,165,251,249,0,192

: rem

41

DATA

133,251,165,252,249,1,192

3280

DATA

133,252,202,208,238,76,62

KE

1305

BRDER,0

READ

L,N:IFN=-1THEN

TO2500:NEXT:RETURN

1310

24

GOSUB410:FORTD=1 :rem

srem

197

FORJ=0TON:READS:POKEL+J,S:NEXT:GOTO1 305

1360

:rem

jrem

91

DATA12 34,17,85,64,73,112,64, 110,85,6

:rem

4,75,64,114,64,112,32,32,112,64,75 1370

:rem 160 DATA1274,16,93,32,32,107,64,115,74,6 4,73,32,93,32,93,32,32,107,64 srem

1380

1420

45

irem

1441 1450

:rem

DATA1393,20,114,64,73,73,32, 110, 85, 7

3,110,85,64,73,112,64,75,85,64,73 1421 1430 1440

srem

174

DATA1314,17,74,64,75,75,32,125,85,64 ,75,32,75,32,74,64,75,109,64,73 srem

:rem

119

DATA85,73 : rem 229 DATA 110 :rem 116 DATA1433,20,93,32,93,93,32,93,93,93, 93,93,64,73,107,64,32,93,32,93,93 :rem 142 DATA93.93 :rem 232 DATA1473,20,113,64,75,74,64,115,125,

:rem

74,7.5,74,64,75,109,64,73,74,64,75,12

5

:rem

0

184

178 182 129

189

153 234

190

srem

191

:rem

237

1455

DATA

WAVE=54276:NOISE=129:TRIANGLE=17sVOL

3290

DATA

192,169,1,160,0,153,0

3 300 3310

DATA

216,153,0,217,153,0,218

DATA

153,0,219,200,208,241,96,256

1505

=54296sSOUND=54272:ATTDEC=54277 :rem 175 BACKGROUND = 53281iBRDER=53 280 s LEVITAT

COMPUTEI's Gazette

:rem

83

1500

160

74,75,-1,-1

srem 84

:rem :rem

72 73


4000

REM

4010

T=32:Q=42:FOR

CHARACTER

PLACEMENTS

:rem

1=1

4100 :NE

TO

7:GOSUB

XT

33

:rem

Q=44:FOR

1=1

TO

6:GOSUB

4100:NEXT

4030

Q=45:FOR

1=1

TO

3:GOSUB

4100:NEXT

:rem

1=1

TO

2:GOSUB

14

POKE8094,78:POKE8073,78:POKE8074,77:PO

100

15

8025,87

Q=47:FOR

405 5

GOSUB

19

16 17

4060

IF(PEEK(PLACE-40)<> 32)0R(PEEK{PLACE+ 40)<> 32)THENPOKEPLACE,BLANK:GOTO4055

18

5

:rem

4100

114

:rem

:rem

4070

4080

NEXT Q=49:GOSUB

4090

Q=FIGURE:GOSUB

4095

T=41:Q=32:FORI=1TO50:GOSUB

200

-rem :rem

10 70

4100:MAN=PLACE:rem

84

4100

:RETURN

4100:NEXT :rem

trem

122

POKE8152,32:POKE8055,88:POKE8047,93:PO

KE7782,46:POKE7901,46:POKE7691,46:POKE 98

4050

TO

211

KE807 5,78 s P0KE8112,108:POKE8113,123

4100:NEXT :rem

1=1

:POKE8136,100:POKE8137,78:POKE8115,103 :rem

101

:rem

Q=43:FOR

POKE8133,100:POKE8134,100:POKE8135,100

147

4020

4040

13

231

19

20

!rem

241

POKE38745,4 srein 1 POKE36878,15:FORL=1TO5:FORM=180TO235ST EP2:POKE36876,M:FORN=1TO10:NEXT:rem 37 NEXT:POKE36876,0:FORM=1TO50:NEXT:NEXT: POKE36878.0:PRINT"{HOME}(3 SPACES]" :rem

68

FORN=1TO2:POKE8115-N,46:FORQ=1TO120:NE

XT:POKE8115-N,32:NEXT!LK=0:TI$="000000 :rem

POKEBE+VB,A

81

;rem 72

X=(RND(l)*36+2):Y=INT(RND(l)*20+3):P

21

00

22

P=PEEK(PA):Sl=-((PAND8)=0):S2=((PAND16

23

FR=-((PAND32)=0):X=S2+S3:Y=S0+S1:IFLK> 8164THEN60 jrem 11

24 25

C=C+1:IFFR=1THENTH=TH+1 :rem 84 POKELK+PO+CO,Dl:IFA1<> 43THENPOKELK+PO,

Revenge Of Cyon

26

See article on page 56,

27

Al :rem 206 IFBG>6ANDJ<>1THENPOKELK+PO+30726,D2:IP A2o43THENPOKELK+PO+6,A2 : rem 38

4100

L=Y*40+X+1024 ;IFPEEK( PLACE) OTTHEN41

4110 5000

POKE

:rem 50 PLACE,QtRETURN

PRINT"(CLR}(11 LEASE

5010

DOWN}(14

:rem

241

RIGHT)[RVS}P

WAIT"

RETURN

:rem

123

srem

166

POKEDD,127:S3 = -((PEEK(PB)AND128)=0) : PO KEDD.255

28

:rem

}=0):S0=((PAND4)=0)

:rem 127

IFKolTHENLK = INT(RND(l)*150)+SC!rem 20

POKE8025,81:POKE36878,0:IFFR=1ANDTH<=7 THENGOSUB46

BEFORE TYPING...

72

:rem

217

29

K=1:PO=INT(RND(1)*D)+1:IPTH>7THENPR=0

30

POKE36878,0:VB=VB+JS(X+1,Y+l)+{VB>220)

31

*22-(VB<-264)*22 :rem 112 A=PEEK(BE+VB):POKEBE+VB,43:IFC=2THENLK

32

A1=PEEK(LK+PO):D1=PEEK(LK+PO+CO)

Program 1: vie version

33

IFBG>6ANDJolTI!ENA2 = PEEK(LK+P0+6) : D2=P

1

34

EEK(LK+PO+30726) :rem 194 IFSolTHENPOKELK+PO+CO,7:POKELK+PO,90

35

A$="SHOTS":IFTH=1THENAS="SHOT

Before typing in programs, please refer to "How

:rem

To Type COMPUTET's Gazette Programs," "A

Beginner's Guide To Typing In Programs," and "The Automatic Proofreader^' that appear before the Program Listings.

=LK+22sC=0

:rem

DIMJS[2,2):POKE37139,0:DD=37154:PA=3713 7:PB=37152:V$="

SECONDS"

:rem

180

2 FORI=0TO2:FORJ=0TO2:READJS(J,I):NEXT:NE XT:FORT=0TO10:READB$(T):NEXT

3 4

:rem

6

CO=30720:SC=7680:BG=1:BE=7955 :rem 233 POKE36879,255:PRINT"[CLR){6 DOWN}

5

(1-6) ?"; GETA$:IFAS=""THEN5

irem 163 :rem 141

38

7

PRINT"(CLR)":POKE36879,8!A=32!A1=32!A2=

39

8

FORI=0TO220:POKE38796+I,5:NEXT:POKE3877

40

32

:rem 134 :rem 51

5,2:FORP=1TO20:POKE387 78+P,5:NEXT:POKE3

8767,6

:rem 54

9 PRINT"[HOME}"BG:J=0:K=0:VB=0:POKE7708,4

10

:rem 94

POKE8076,78:POKE8077,99:POKE8078,77:PO KE8101,77:POKE8102,100:POKE8103,78 srem

11

KE8063,78:POKE8064,77:POKE8086,103:POK E8109,77 ;rem 44

12

POKE8U0,79iPOKE8089,79:POKE8068,78:PO KE8069,99:POKE8070,77:POKE8093,80:POKE

8132,77

:rem

2

50

trem

5

R=lTHENPRINTTHrAS:PRINTRIGHT${TI$,2)V$ :GOTO49 :rem 234 IFBG>6ANDJ<>1THENPOKELK+PO+30726,7:POK ELK+PO+6,90 :rem 205 IFBG>6ANDJ<>1ANDXC=LK+PO+6ANDFR=1THENP RINTTH;AS:PRINTRIGHTS(TIS,2)VS:GOSUB41

:rem

210

POKESC+QW,32:QW=INT{RND(l)*176)+44tPOK ESC+QW,46:GOTO20

41

111

POKE8025,87:IFJ=1ANDS=1THENBG=BG+1:GOT 047

:rem

230

POKE36878,15:FORW=1T06:FORY=2 20TO254:P

OKE36876,Y:NEXT:NEXT:POKELK+PO+CO+6,1 :rem

177

:rem

234

42

POKELK+PO+6,43

43

FORZ=22TOLK-SCSTEP22:G=PEEK{LK+PO-Z+6) :Gl=PEEK(LK+P0-Z+C0+6):POKELK+PO-Z+CO+

69

POKE8104,99:POKE8083,78:POKE8084,99:PO

"

:rem

6:POKE7818,46:POKE7738,46:POKE77 27,81:T H=0:S-0

107

36 PRINT"[HOME]";:XC=BE+VB:IfXC=LK+POANDF

37

{OFF}":PRINT"[5 DOWN}(RIGHT]SKILL LEVEL

118

:rem

(3 RIGHT]{RVS)(PUR)REVEHGE OF CYON{BLU]

6 D=VAL(AS):IFD<1ORD>6THEN4

:rem

180

44

45 46

6,7 irem 160 POKELK+PO-Z+6,90:FORH=1TO70:NEXT:POKEL K+PO-Z+CO+6,Gl:POKELK+PO-Z+6,G:NEXT :rem 128 TH=0sJ=l:RETURN :rem 126 POKE36878,15:POKE36876,244:FORFV=1TO70 :NEXT:POKE3687B,0:RETURN COMPUTE!'! Gaicllc

:rem

21

June 1984

161


47

IFBG<=11THEN7

48

GOTO76

49 50 51

:rem

PRINT"(CYN)"BG:TI$="000000"

196

irem

18

IFBG>6ANDJ-:>1THENPOKELK+PO+CO+6,7:POKE

200 210

:rem 193

EO,46:POKEO+CO,1:NEXT

:rem

237

S=1:POKE36878,15:FORL=1TO15:FORM=250TO

220

POKE1154,81:POKE1154+CO,1

:rem

113

240STEP-1:POKE36876,M:NEXT

: rem 147

230 240

PRINT"{13 DOWN}" PRINT"{GRN)(6 DOWN}N^2

FORM=240TO250:POKE36876,M:NEXT:POKE368

H=0

:rem :rem

88

52

POKELK+PO,43

53

FORZ=22TOLK-SCSTEP22:G=PEEK(LK+PO-Z):G :rem 126 PO-Z+CO,G1:POKELK+PO-Z,G:NEXT

250

irem 3 :rem 122

57

IFJ=lANnS=lTHENBG=BG+l:IFBG<12THEN7

248

FORJ=1TO80:NEXTJ,I

124

290

J=0:K=0

300

X=20:Y=12:TH=0fSl=0:A=32jAl=32:A2=32

310

FORW=1TO3:FORI=10TO200STEP10:POKECO+1

61

POKE36876,0:POKE36877,220:FORL=15TO0ST

:rem 83 :rem

POKE36879,ZN:NEXT:NEXT:POKE36877,0:POK

63

E36878,0 :rem 23 PRINT"(CLR}":FORZN=8TO255:POKE36879,ZN

,I:POKECO+4,33 s FORJ=1TO10:NEXTJ,I,W

:rem

64

PRINT"{HOME}{DOWN}{4 SPACES}":rem

138

SURVIV

330

POKECO+4,32

340

S=1524

:rem

243

66

350

POKES,A

:rem

135

PRINT"{2 DOWN}{RVS}{BLU]PLAY AGAIN?(Y,

360

P=PEEK(56320)AND15:Y=Y+((PAND1)=0)-((

DOWKJ13

ED"BG-1:PRINT"(4

RIGHT}iGRNjYOU

RIGHTjATTACK WAVES.":

GOSUB69

:rem

N)[OFF)"

:rem

:rem

GETA$sIFA$=""THEN66

67

IFA$="Y"THENRUN

:rem

251

68

END

:rem 69

95

69 PRINT"{DOWN}(3 RIGHTjYOUR RANK IS:":PR

INT"(DOWN){4 RIGHT]"BS(BG-1)"(GRN3.":R

ETURN

:rem

DATA-23,-22,-21,-1,0,1,21,22,23

209

:rem

127

71

DATA"PRIVATE{BLU}'\"{RED}CORPORAL(BLU)

72

DATA"(PUR)SECOND LIEUTENANT {BLU]"," {BLKjFIRST LIEUTENANT" :rem 184 DATA"{RED}CAPTAIN(BLU}","{BLK}MAJOR

", "{CYN}SERGEANT(BLU}"

:rem 148

(BLU}","{PUR}COLONEL(BLU}"

srem 210

DATA"{PUR)GENERAL(BLU}","(bLK)FIELD MA RSHALL[BLU}" :rem 89 DATA"(RED}MR. PRESIDENT" :rem 97 PRINT"(CLR}(REDJYOU HAVE SAVED EARTH

(2

SPACES}FROM THE ALIEN ATTACK 1(BLU)"

:GOTO65

:rem

73

100

CO=542 72:FORT=COTOCO+24:POKET,0:NEXT

110

POKE53280,0:POKE53281,1:V$="

t rem 0 SECONDS" :rem

44

120 PRINT"[CLR}[7 DOWN]"TAB(12)"(RVS} {RED}REVENGE OF CYONfOFF}" :rem 215 TICK EL

DOWN)"TAB(U)"{BLU}(USE JOYS

#2)"

PRINT"{5

370

RIGHTjWHAT

:rem FR=PEEK(563 20)AND16:IFX<0THENX=39 :ren

108 220

IFY<0THENY=0 IFX>39THENX=0 IFY>24THENY=24

:rem 228 srem 33 :rem 75

420

IFLK>1983THEN610 C=C+lsIFFR=0THENTH=TH+l

:rem srem

430

POKELK+CO+PO,D1:IFA1<>43THENPOKELK+PO

440

IFBG>6ANDJ<>1THENPOKELK+CO+PO+6,D2:IF

450

A2o43THENPOKELK+PO+6,A2 IPS'R=BANDTH<=7THENGOSUB1030

380 390 400

410

,A1

460 470

:rem

148 131 254

: rem 71 srem 191

PO=INT(RND(1)*D)+1:IFTH>7THENPR=1 :rem 241 POKEOS,32:NS=1064+INT(RND(1)«520):POK ENS,46:OS=NS :rem 200

480

S=SC+X+Y*40

490

A=PEEK(S);POKES,43:IFC=2THENLK=LK+40; C=0

:rem ;rem

87 193

A1=PEEK(LK+PO):D1=PEEK(LK+PO+CO) :rem 155 510 IFBG>6ANDJolTHENA2 = PEEK(LK+P0+6) :D2 = PEEK(LK+PO+CO+6) :rem 227 5 20 IFS1<>1THENPOKELK+PO+CO/7:POKELK+PO,9 0 :rem 147 530

A$="SHOTS":IFTH=1THENA$="SHOT

540

PRINT"{HOME){BLU}";:IFS=LK+POANDFR=0T

SKILL

LEV

:rem

242

(1-6)?"

150

GETA$iIFAS<"l"ORAS>"6"THEN150

160

D=VAL(AS):SC=1024

170

:rem

"

jrem

53

HENPRINTTHrAS:PRINTRlGHTS{TIS,2)V$:GO

:rem 119

DOWN}(8

71

500

Program 2:64 version

PRINT"{2

:rem

PAND2J-0):X=X+((PAND4)=0)-((PAND8)=0)

26

66

140

229

320

:rem

PRIHT"12

130

:rem 68

17

:NEXT

75 76

:rem

:rem

2 29

62

74

249

I+CO+l,0:POKEI,124:POKEI+CO,5:rem

JH=JH+1:1FJH<3THEN7

73

:rem

FORI=1890TO1887STEP-1:POKEI+1,32:POKE

280

60

70

4:POKE1887+CO,5

: rem 224 :rem 17

IFJ=1ANDS=1ANDBG=12THEN76 GOTO37

65

:rem 83

POKE1769,87:POKE1769+CO,4:POKE1887,12

270

58 59

64

gT3" irem 43 PRINT"{21 RIGHT}N(UP}^G3[UPJ(LEFT) E@3N^2 THUP} [LEFTj{BLU}-{GRN}

{DOWNjM" " 260

(3|n

120

:rem

EP-1:POKE36878,L:FORZN=1TO50

@1

(33n{upTn(up}n;

(DOWN}ET^ME03(DOWN}(LEFTTiM^

:rem 94

POKE36876.0 IFBG<7THENBG=BG+1:GOTO7

1red]x(grn}(down)|tTm{down}Mg2

Eup)n(up|nm(down}m^2

POKELK+PO-Z,90:FORH=lTO70:NEXTiPOKELK+

55 56

:rem 67 Ti(UP}(LEFT]

tdowmtm{down}m(down}m{down}m|7

138

1=PEEK(LK+PO-Z+CO):POKELK+PO-Z+CO,7

TO910 550

ELK+PO+6,90

61

:rem

193

IFBG>6ANDJolTHENPOKELK + PO+CO+6,7:POK

:ren

2 38

560

IFBG>6ANDJ<>1ANDS=LK+PO+6ANDFR=0THENP

POKECO+24,15:POKECO+5,17:POKECO+6,248

RINTTH;AS:PRINTRIGHTS(TI5,2);:GOSUB86

:POKECO,100

570

0 :rem 80 IFPEEK(1769)=87THENPOKE1769,81:POKE17

:rem

133

:rem 73

180

BG=1

190

POKE53281,1:PRINT"{CLR]":POKE53281, 0:

162

94

LK+PO+6,90

76,0:NEXT:POKE36878,0:POKELK+PO+CO,1:T

54

:rem

LK=INT(RND{1)*150)+SC !rem 137 FORI=1TO10:O=1064+INT(RND(1)*520):POK

COMPUTE!'i Ga/elle

srem Juno 198-1

144

69+CO,4:GOTO590

:rem

92


580 POKE1769,87:POKE1769+CO,4

: rein 155

590 IFJ=1ANDS1=1THENBG=BG+1:GOTO1040

:rem

188

600 POKESC+QW,32:QW=INT(RND{1)*360)+80:PO KESC+QW,46:GOTO350

:rem 73

610 JH=JH+1:IFJH<3THEN190

620

POKECO+1,10:POKECO+4,129

640

E53281,J:NEXTJ,I POKE53280,0:POKES3281,0

: rem 231

POKECO+4,128

680 PRINT"{YEL}{5 DOWN} ( 11 IN

(Y/N)?"

710

IFA$="N"THENEND

GOTO690

740

PRINT"(PL)R] {10

750

760

PRINT"{PUR}{10

POKECO+1,200:POKE CO+4,129:POKECO+4, 128:FORT=lTO100:NEXTsRETURN ;rem 140 IFBG<=11THEN190 :rem 129 GOTO840 ;rem 155

172

:rem 97 :rem 137 :rem 97

.rem

113

PRIVATE." rrem

174

BAD,

COR

jrem 170

RIGHTjNICE GOING,

SERG

:rem

139

SECOND

LIEUTENANT.":RETURN

:rem

LIEUTENANT.":RETURN

:rem 75

1040 1050

:rem

128

RIGHTjYOU ARE NOW A MA

JOR.":RETURN

:rem 23

ONEL.":RETURN

!rem 104

PSINT"(PUR}{9 RIGHTjYOU ARE NOW A GEN ERAL.":RETURN

:rem

91

820 PRINT"(PUR}[6 RIGHTJYOU ARE NOW A FIE

830

PRINT"(PUR){10 RIGHT)HELLO,

DENT.":RETURN

BEFORE TYPING... Before typing in programs, please refer to "How

To Type COMPUTEl's Gazette Programs," "A

Beginner's Cuide To Typing In Programs," and "Tne Automatic Proofreader" that appear before the Program Listings.

Program 1: Therapy—64 Version 100 PRINTCHR$(142)CHRS(8)CHR$(30):POKE532 81,0jPOKE53280,0:GOSUB1230:POKE198,0

105 110

115

:rem

MR.

191

PRESI

:rem 141

EARTH

{7 DOWN}"

850

FROM

GOTO 680

ALIEN

ATTACK 11

-rem 22

rrem

130

1,L:POKECO+4,17:NEXT:NEXT:POKECO+4,16 :rem

185

870 PRINTVS:POKELK+PO+CO+6,1:POKELK+PO+6, 43 :rem 169

880 FORZ=40TOLK-SCSTEP40:G=PEEK(LK+PO-Z+6 ):GL=PE£K(LK+PO-Z+CO+6) tren 7 890 POKELK+PO-Z+CO+6,7:POKELK+PO-Z+6,90:F ORH=lTO70rNEXT:POKELK+PO-Z+CO+6,G1

900

:rem

237

POKELK+PO-Z+6,G:NEXT:TH=0:J=1:RETURN srem

920 930

ELK+PO+6,90 :rem 238 Sl-1 :rem 141 FORT=1TO3:FORTY=100TO150: POKECO + 1,TY: POKECO+4,17:NEXT:NEXT:POKECO+4,16

:rem

237

940 S1=1:POKELK+PO+CO,1:TH=0:POKELK+PO,43 :rem

19

950 FORZ=40TOLK-SCSTEP40:G=PEEK{LK+PO-Z): G1=PEEK{LK+PO-Z+CO)

960

!rem 67

POKELK+PO-Z+CO,7:POKELK+PO-Z,90:FORH=

IS YOUR

ROM.

W

:rem

40

:rem

39

";A?;",":PRINT"WHA

PROBLEM?":GOSUB1160iB$=Pl$ :rem

14

PRINT:PRINTB?;"...?":PRINT:PRINT"CAN

{SPACEjYOU TELL ME MORE?"

PRINT:PRINT"I

UNDERSTAND

FFICULT":PRINT"FOR YOU."

:rem 108 :rem 48

";B5;"

IS

DI

:rem 226

160 GOSUB1160:IFP1S="NO"THENPRINT"MAYBE I 'M NOT QUITE UNDERSTANDING..."

170

PRINT:PRINT"CAN YOU BE MORE HOW IS":PRINTBS;"

A

PROBLEM

:rem

190

200

205

111

SPECIFIC? FOR YOU? :rem

180 GOSUB1160:GOSUB900

:rem

233

52

PRINT:PRINT"HOW DOES THIS MAKE YOU FE EL, ";A$;"?":GOSUB1160:CS=P1$ :rem 73 PRINTCHR$(147)

:rem

PRINT"SO WHAT YOU'RE SAYING,

MAKING

YOU

FEEL

13

";A$;","

:PRINT"IS THAT YOUR PROBLEM WITH

";B$

srem

80

210

PRINT"IS

220

UB1160 -rem 161 PRINT:PRINT"CAN YOU ELABORATE ON YOUR FEELINGS?":GOSUB1160:GOSUB900

76

910 IFBG>6ANDJ<>1THENPOKELK+PO+CO+6,7:POK

188

144

I'M DR.

140 GOSUB1160:GOSUB900 150

:rem

:rem

GOSUBU60:AS=P1$:PRINT

T

116

860 FORF=lTO3:FORL=150TO100STEP-l!POKECO+

Q=0:QD=0 PRINTCHR$(147);"HELLO. HAT'S YOUR NAME?"

120 PRINT"IN ONE WORD,

840 PRINT"{CLR){YEL}(B DOWN}[RIGHT}YOU SA VED THE

NOISE

See article an vase 78.

800 PRINT"[PUR}[9 RIGHTjYOU ARE NOW A COL

MARSHALL.":RETURN

FIRE

Therapy

11

780 PRINT"{PUR}|10 RIGHTjYOU ARE NOW A CA

LD

75

REM

770 PRINT"{PUR]{6 RIGHT]YOU ARE NOW FIRST

810

;rem

1020

PRINT"£PUR}[6 RIGHT}WAY TO GO,

PTAIN.":RETURN

17

1rem 99 ;rem 149

-rem 157

EANT.":RETURN

790 PRINT"{PUR]{11

:rem

1030

RIGHT]PLAY AGA

RIGHT ] HOT TOO

PORAL.":RETURN

163

irein 26 ;rem 239

-rern

730 PRINT"(PUR}[13 RIGHTjSORRY, :RETURN

IFBG<7THENBG=BG+lsGOTO190 :rem 19 IFJ=1ANDS=1THENBG=BG+1:IFBG<12THEN190

jrem 100

tren 130

690 GETA$:IFAS=""THEN690 700 IFA$="Y"THENRUN 720

:rem

980 990

IFJ=1ANDS=1ANDBG=12THEN840 GOTO550

660 PR1NT"{CLR]{7 DOWN}(CYN}(6 RIGHT)YOU [SPACE}SURVIVED"BC-1"ATTACK WAVES. {7 DOWN}" frem 71 670 ONBGGOSUB730,740,750,760,770,780,790, 800,810,820,830

irem 200

POKELK+PO-Z,G:NEXT

1000 1010

630 FORI=0TO15:FORJ=0TO15:POKE53280,I: POK 650

1TO70:NEXT:POKELK+PO-Z+CO,G1 970

";C$r".":GOS

:rem

215

:rem

133

230

PRINT:PRINT"HAS THIS BEEN A PROBLEM F OR YOU BEFORE? (YES OR NO)":GOSUB1160

240 250

IFP1S<>"NO"THEN260 PRINT"I SEE. THEN THIS

:rem 236 NEW SITUATION

{SPACE)MUST BE(2 SPACES}DIFFICULT FOR YOU.":GOTO320

260 PRINT:PRINT"DID YOU ALSO FEEL

(SPACElTHEN?"

-rem 81

";CS;"

.rem 216

270 GOSUB1160:PRINT"TELL ME MORE.":rem 16 280 GOSUB1160:GOSUB900 .rem 53 COMPUTEl's Gaicilc

Jjnel98J

163


gg

uisj:

TXX3N

,,'iNViLHOdWI

0S0T

W33S

3A,,<>gTd3Ii09TTanSOD = .,ON

LZ

0t-6

sze

aivs

mohswos

1

N3HM

sihx

aivs

S3A,,J,Niad

^)^333

■naaM xxaN si

awiJ,

awos

aas

onv

088

i,,XNiad

019

08S

ujsj:

095

TanS

0SS at

uisj:

= S3

If E

bx j

i,,XNiad!j.Niad

aassnasia

moh

3a,3M >!NIH1

029

j,vhx.,i.n

009 06S

§T : ,,WOH,,XNiad :XNiad LZZ

d=S 102

0T6.

noA aas{saDVds

anoA

„-sNoixn

aiaissod

si hi

ONIAOH

aNV..XNiad

098 0S8

OQ,,-'

SlHlIM OQ

09TianSOD

ai3J.,,iNiad

AVS

I10A

ox

0ee

008 T6Z.

08i.

,,"mon

ssv

sawoo

■ aHOM V

„ -J.I

0E8

OJ, ON

shi aia,,iLNiad:iNiad

aw

bll

01s

*¥»Noixvi:>ossv

anoA

,,

3HX

3A,aH,,J.Niad

st}

I,,iNIHd SiLNIHd waa

Sli,,(S3DVdS wvaaa

uisj:

xnoav

s.xainJ.Niyd^iNiad

oa

v

OX

nax

H33S

uisj:

noA

xsy

Nvo,,XNiad swaiaoad

00S

0i.fr

a

nOA,, J.Niad :XNIMd

09t

06t>NaHi,,S3A,,=STdai

uiaj:

09TTanSOO

ao

UISJ!

Z\t\

aas

3HM

uisj:

£8T

;,,aaoM

noij.vido

i,,XNiad:xNiad

aw

,,'siHiHxiH

aa

aaoM

TI,I,,lNmd

ainoM

xnihx

xnoav

uisj:

Z£-[

xvhx AVS

S .

aa

j,HDia

aaoH

nsoo!,,dxi DNIAVH

WOS

IT 9E2

an

N

aNo

anoA

ahj.

0E9

no

saoa,,J.Niad

noA

aaoiiON

uisj:

( LVX )

SON

uisj:

0S6

NHDiaa

j,VHM,,XNiad:.LNiad

026

„<>

S-(

HO

xnoav (saovds moh

-,,;Sa;.1 iad!,,awoH

wvaaa... 096

NMnJ,3a = 09

uisj:

asaHX,,ANiad:J.Niad:T=OS09TianSOD

aav

UDd

0L0T 090T

(

L-{ Sid

*** uiaj:

11333

0£6

PAX3N

UISJ: anoA

av

0E6N3HX,,

uiaj:

uiaj :

006

UISJ

068 QN3

6TT 68T

dn

qos

sa>ivw

aassnosia

im

£81

iNiad!„■NoiiDania aooo(sa3Vds

V NI

0TB iu3J:

savh ££2

3HJ,

:,,t(ON

noA

oa

: „ ■ s wvaaa

gy'„'HDVOaddV,,J.NI v

S3A)MNIHX

flOA

OG

XVHM

,,-sn

SQV3T

QNV,,XNiad! ,,NOIXVIDOSSV

awos

DNIHX3H0S

Aax

s.iaT{saDVds

DNIOO

3.0

ONI>iNIHX

XI ..

Ej' W.I,,XNiad

09i.

S3-,,

HJ,IM,,J,Niad

06E

,,W3iaoa

d

anoA oj,

ni

,,',,-'Sv:,, 0X1

sail, nv

'an

01

sihj,

swaas

xvHi,,j,Niad

j.i,,iLNiad = ,LNia<3

uibj:

£22

sez, qzl

uisj:

,,£Mon

aav

noA

MOH,,xNiad

xsaa

aaoM

btdnis

xvhh

'AVMO,,j.Niad

0ZZ.

0iE

uisj :

go',,

aiVS nOA[S3DVdS

1VHJ. DNIJ-S3aaj.NI

Z)'NO3 aiVS

09E

I N

S , J.I,,ANiad = J,Niad

E]a'iaissod

01L j,sn

oa

eaassaaj.sia

00;.

!,, ■aa3H,,j.Niad

nox

uidj:

invh

n

a«v,,iNiad:j,Niad

v

3>ivw

Tllt\

,,aa

uiaj:

Ifg

Hi 089

SIHJ.

MNIHJ,

id-,,

{1OA

aivs

00

noA

J.VHH,,INIHd

,,'Sa',,

HJ.iM,,j.Niad! ,,waiaoad

SIHX

S300

0i.9

noA

x.Noa

9E2

SIHX

HNIHA

OOA ao

30

Oa,,XNiad S3A,,J,Niad

ose

ZPt 0fE

0EE

,,lti

v

aAvn

noA

t}sinx

haim 1

oa,,j.Niad:xNiad

o>zz

00E

uisj:

,,c.Na

v

HX3W0S

0S9N3H1..S

XNaaanofsaovds

NVid

uiaj:

U--'HO

0S9

006anSO

axxvd

NI,,XNiad •■ J.Niad

AHn,,xNiad=xtaud

09EOJ,OO:,,iin^SSaDDnS,,J.Niad:

NVId

09T"[ansOD= „'ON

uisj:

ox

sawnos

099 90T

ano

HOH,,XNiad!J,NIBd

05ENaHX,,SaA,.<>STdJI

uisjt:

vaa

aivs

N3HH,,lNiad:j,Niad:006anSOD:09TTanSOn

Sa;,.

3J.V13a

1VHM

uisj:

951

oixvnxis

006anSOD=09TTanSOO

!,,iSNV3H I

uisj: OJ.

sbe

26T

saa

„ * ' "WWW

wh,, '■ (if 1} SaHDiNiad :006ansoD = 09Tiansoo iS

3HM

069

0Ti.NaHJ,,,S3A,,<>STd^I

S9 "■"!

82

l]v oa ^TT

9ET <"aj: tlj

uisj:

Z

A

O:09TTanSOD:,,dAVM Z

aasfsaovds

3AVH

2}noA oa

3M HHIHX

*aaan

dni

I,, ( £t>T ) SaHOXNiad

06S


1080

F0RJ=lT0LEH(PlS)-6

1090

:rem 67

IFMID$(P1S,J,6) = " DONT

"THENU20

1100

NEXTJ

:rem 206 :rem 75

1110

RETURN

:rem 163

1120

LL WANT"

1140 PRINT"TO DISCUSS

:rem 176

LATER.

{SPACE}THAT IT"

HE MAY FIND

:rem 112

1150

PRINT"RELATES TO.YOUR PROBLEM WITH

1160

REM

;B$:QD=1:RETURN

***COMMODORE

PUNCTUATION

*

Pl$=""

1180

GETP2?:IFP2$=""THEN1180

1190

1200 1210

IFP2$=CHRS(13)THENRETURN P1S=P1$+P2$

:rem

57

; rem

57

GOTO1180

rem

1230

REM

: rem

1240

PRINTCHR$(147);TAB(15)"THERAPY1 V"

1250

PRINT!PRINT"WOULD YOU UCTION (Y/N)"

1285

APY SESSION. DR. ROM"; PRINT"WILL BE WITH YOU

:rem

1300

PRINT"SUGGESTIONS

GOSUB1160:AS=P1S:PRINT

120

PRINT"IN ONE WORD, ";AS;",":PRINT"WHA T IS YOUR PROBLEM?":GOSUB1160:B$=P1$

130

PRINTsPRINTBS;"-..?":PRINT:PRINT"CAN

140

150

GOSUB1160:GOSUB900 PRINT:PRINT"I UNDERSTAND

160

GOSUB1160:IFP1S="NO"THENPRINT"MAYBE

172

PRINT:PRINT

1310

PRINT"AS

WITH MOST

THINGS

ITH{7 SPACES}THERAPY, PRINT"PUT IN,

109

THE

IN

29

LIFE,

W

THE MORE YOU "

MORE{2

:rem

42

PRINT"

UP THE

GRAMMAR,

DOCTOR:

OR

MAKE FUN OF

INSULT HIM

HI

MERCILESSLY

• "

STILL

FIND

'■;

: rem

PRINT"YOURSELF D

EVEN

PRINT"INSIGHTS.

AH

:rem

51

THIS WILL ONLY HAPPE

";

.rem

172

1370 PRINT"THIS SESSION ASAN ENJOYABLE WA 13B0

Y TO MULL OVER THE" PRINT"PROBLEMS AND PEEVES

: rem 159 OF LIFE." :rem

127

:rem

165

1390 PRINT:PRINT:PRINTCHRS(18)"HIT ANY KE Y TO

1400 1410

CONTINUE"

POKE198,0:WAIT198,1 PRINTCHR$(147):PRINT:PRINT"I DOCTOR

1420

IS

IN

NOW."

PRINT:PRINT:PRINT"TO TALK ,

1430

JUST

TYPE

IN

YOUR"

TO

rem

DIFFICULT

;rem 48 ";BS:PRINT"I

FOR YOU."

:rem

190 200 205

PROBLEM

HOW

IS":PRINTB$r"

A

?"

:rem 5

GOSUB1160:GOSUB900 PRINT:PRINT"HOW DOES

L,

THIS

:rem 52 MAKE YOUFEE

";A$: "?":GOSUBU60:CS=P1$

:rem 73

PRINTCHRS(147) PRINT"SO WHAT

S

THAT

YOU'RE

:rem

YOUR":PRINT"PROBLEM WITH

2 20

PRINT"IS MAKING YOU FEEL ":GOSUB1160 PRINT:PRINT"CAN

YOU

ELABORATE

ON

(2 SPACESjYOUR FEELINGS?":GOSUB1160:G

OSUB900 230

:rem

PRINT:PRINT"HAS THIS PROBLEM FOR YOU GOSUB1160

240

BEEN

BEFORE?

(YES

250

IFPl$o"NO"THEN260 PRINT"I SEE. THEN THIS

260

OR YOU.":GOTO320 PRINT:PRINT"DID YOU ALSO

270

GOSUB1160:PRINT"TELL

ITUATION MUST

S;"

BE{5

A{7

NEW(2

PRINT"FINISHED."[PRINT:PRINT:PRINT"E

215

SPACES) OR NO)": :rem 133

: rem 236 SPACES)S

SPACES)DIFFICULT F :rem 81 FEEL":PRINTC

THEN?"

:rem ME

MORE.":rem

GOSUB1160:GOSUB900 290 PRINTCHR$(147)"I THINK WE 280

HAVE

:rem

100 16

53

{7 SPACES]SOMETHING HERE. DO {4 SPACESjYOU SEE A PATTERN?":rera 236

PRINT:PRINT"DO YOU HAVE A PLAN TO L WITH THIS CURRENTSITUATION?"; :rem

254

80

":PRINTCS;". srem 45

320

PRINT"RESPONSE; AND HIT ";CHR$(18);" RETURN";CHRS(146);" WHEN YOU ARE"

I

";B$

:rem 210

13

SAYING,";A$;",

GOSUB1160:PRINT"THIS

228

111

SPECIFIC?

310

ROM

I

SPACES)

:rem

DR.

99

PRINT:PRINT"CAN YOU BE MORE{7

GOSUB1160:PRINT:PRINT"GO ON..."

:rem

14

trem 108

300

58

40 39

srem 96 SEE THE

:rem

1440

180

N IF YOU{2 SPACESjTRY YOUR BEST TO U TILIZE

SPACES]WHAT'S YOUR NAME?"

:rem

170

230

HAVINGINTERESTING,

IMPORTANT,"

ROM.

'M NOT QUITE{3 SPACES}UNDERSTANDING..

:rem 175

PRINT"{doWNJHOWEVER, EVEN THOUGH THI S IS A PARLOR(3 SPACESjGAME, YOU MAY

144

DR

:rem

S

SPACES)YOU

{SPACE}GET OUT. YOU MAY FIND IT FUN {SPACEjTO TRY AND TRIP"; :rem 228

S

1360

srem

I'M

(SPACE)YOU TELL ME MORE?"

ON HOW TO GET THE

:rem

i

(3

172

WAITING, : rem 104

SESSION."

1305

1350

31

fSPACE]MOST OUT{2 SPACESjOF YOUR THE

RAPY

PRINTCHRS(142)CHR$(a)CHRS(30)rPOKE368 79,8:GOSUB1230:POKE198,0 irem 11

115

72

srem "|

ARE

iee

PRINTCHR$(147);"HELLO.

191

:rem

PRINT"MOMENT. WHILE YOU HERE ARE SOME HELPFUL"

Pr Program 2: Therapy—VIC Version

Q=0:QD=0

1280 PRINTCHR$(147);"WELCOME TO YOUR THER

1290

the Program Listings.

110

108

:rem

A

Before typing in programs, please refer to "How To Type COMPUTED Gazetle Programs," "A Beginner's Guide To Typing In Programs," and "The Automatic Proofreader" that appear before

105

LIKE AN INTROD :rem 101

IN

:rem 87

:rem 128

BEFORE TYPING...

200

:rem

IFQ$="N"THENRETURN

1340

(SPACE)TO BEGIN"

1460 POKE198,0:WAIT198,1:RETURN

28

GETQS:IFQ$<> '^"ANDO? < >"N"THEN1260

1270

238

250

: rem

1220

1260

55 239

rem

***INTRODUCTION***

:rem

INPUT**

rem

PHINTP2$;

"

:rem 223 : rem

1170

1330

YOUR THERAPY SESSION."

PRINTCHR$(147)"WHY DO YOU SUPPOSE TH AT IS?":GOSUB1160:GOSUB900 :rem 27

1130 PRINT"THIS MAY BE SOMETHING THAT WE1

1320

NJOY

1450 PRINTSPC(240);CHR$(18);"HIT ANY KEY

SOUNDS

FOR YOU.":GOSUB1160

3 30

PRINT"

(YES OR

340

IFP1S<>"YES"THEN350

:rem 106 DIFFICULT :rem

41

DEA 215

NO)":GOSUB1160:rem 105

COMPUTE'S Gazelle

:rem

65

Juno 1984

165


211

AVW

3M

-H3XVT

..J.I

J.VHX[33VdS}

SSfiDSId

uiaj:

,3M iS

IVHiL uiaj:

39

AVW

NHHiaa

fXX3N

XNOCJ

,, = {9'r'$Id)SaiR3I 9-(Sld)H31OJ.T=rHOJ I\LX3N

X.NOd

waj:

0frII

IT

SIHX,,XNIHd

0£II

j,v

nOA 00 AHM,,Ut>I)$tiHOXNiad

uiaa:

UI3JJ

uiaj:

OX,,XNiad ..XNVM

DNIHX3H0S

006HnSODJ 09XTHnSOQ: ,,tSI

HJ, aSOdddS E9T

Si,

0ZI1N3H.L.. uia.a:

18

i9

02TINaHJ.,, S9

,, = (Z.'r'STd)$aiW5I £-(STd)N3'IOiLT=rao>£

noAoa 2TI

iasssaaxsia

uiaj:

D:,,dSNVaWSIHX

02 uiajig^.',, 1

uiaj:

Naniay:09Tiansoo

j,, -.LNViLaodwifsaDVds

Ejwaas

U86L aunf

noA

aav,,ANiad :xNiad

HOA

DO

iVHIiuXNiad

noA,,j.Niad:$a:,,

UI3 J : axvaaa

991

0L9

aivs 099

S3 sihx

D:09nanSOD:,,iAyM 2

089

006anSOD= 09ItanSO

MNIHJ,

aivs

N3HM,,.LNiad:XNiad:006anSOD*09TI9nSOD

0STI

anoA oj,(S3DVds

0111

00TT

060T 0801

saoa

z)

Mon,,>LNiadixNiad

X^HM

0S9

NI,,XNiad iXNIHd

UJ3J:

0S9N3HJ,..S ,ON

0Z.0T

ao

S3A,,XNiad

noA

090T

S}MOH3WOS

0S0T

uibj: xvhj,

way

x

awoH

SIHX

I

nshm

aaoixoN

0E9

moh

029

saoa

„ ■,,;S3J,Niad:,,GIVS aivs

flOA

i,,j,Niad

0T9

096 009

son 0S6

06S IUX3N

0S6OiOD:,,iNn^

uiaj:

lLOOOV

089

SONIia

aav

0E6

g- (S id) N3ioxT=rao.i

61

09S

0T6 006

6TT

088

ana

068

waa

0SS

„-uaaH

601

33S-dn

si

swix

anOA

ass

i,,XNiad:j,Niad

„ -SNOixmos

0ES

aiais 098

aassnosia

0S8

0EZ hx

,,flOA

moh

S3XVW

aassnosia

0TS

H3a

02S

OQ,, ■' (Z.f'T)SaHDJ.fliad:XJ,X3N:000SOiI=J.aOJ »»*NOIX¥I3OSSV

SI

3M,aM liNIHX

anj.

028

waa

aia,,j,Niad:j,Niad

-aaoM Od

v avs

Ti,i,,XNiad

S , J,ai,, iNiad :>LHiad

„ -MON

inassnisaDVds

ssv

aaoM

v

nsoo!,,dxi 2EI

WOS

06Z.

>jnihx

xnosv

2)aa

00s 06f-

XH

a^no^^ noixvido

Anivaa

aw

i,,j,Niad:XNiad

qisj.

nox

NVD,,J.Niad

&Lt>

ujaj:

,,-SIHX{S3DVdS

008

B9TT0nS

TT

soNnaaj a

n3X,,XNiad

frJaHOA OX

S3W03 iVHJ,{saDVdS frjaaoM xsau shx av

3A,aM..itaad

i7V»**

uia.ii

oia

I {WID) ,,XNiad sXNIMd **»aNoa

018

S

wvaaa

uisj:

Ejara ni

ainoM HOH,,iNiad:xNiad

aw

3NO

aaOM»*»

„ -aNIH{S3DVdS

atw.,XNiad:Saj,NiadJ,,HJ,in waiaoa

2]noA

„ • XI

{?

i,, *N0ix3aaia aooo v ni(s3dv<is z) DNIAOW

lLJ,X3N:000TOiLT=iaO^:09nansOD

6TT i"3J;

IXNIMd:,,HJ,IM 00 OX ONIHXANV{ SSDVdS tj aAVH g^

oo!,,dwv3aa(S3DVds noA

DNIAVH

33

OX

tlHXIM

W33S

uiaj:

9E2

SW3iaOHd

3

flOA,,XNiad :XNiad

06frN3HX,,S3A,, = SlddI

waj:

09nansoo= „£(on

S3A)tS3DVdS

SjUNIHJ,

nOA

00

,,-sn

A(S3DVciS

E:)33S

&bl

aNV

ao

J,VHM,,iNiad

savai

xi

aa3

NOI>LVIDOSSV,,iNIHd

0Efr

$V! ,. 'HDVOaddV,,XNI v

Aax

siiai,,XNiiid:iNiad

&ll

,,aaoM

awos

□NIHX3WOS

Aai

DNIOG

s,x3T,,o,Niad!„-

JO

DNIMN1HX

H,I,,XNiad 00V

ZL

uia^!

6EI

d

S3',,

i!XIM,,XHiad

uiaj :

anoA

0fri

06C

,,W3iaoa

ox

ni

saii

^^v

sihx

,LVHX,,iRiad

'aw ox

aavnoA

xHDia

^2

,,',,;Sv;,,

moh

,,xNiad

-'..ssaia

j:

swaas

xvhh

isaaaaOM

" WWW

0XX

'AVMO,,iNiad

08E

£SE

WH,, ' So-,, 3HM

ej'Nn.3

aivs

uivs

006UnSOD=09IiansOD

i n

£01

S,XI,,XNIHd:XNiad

XVHi

09IianSOD:,,<.X3N33'i;i

V

UI3J:

sfsaDVds

90E

:000ioxi=J.ao^:..'aaaHHXNiad 0TiN3HX.,SaA,,<>Sldai

ZL 82

v

00i 069

,,'NaHX

9}aaaissod

aavw

noA

TlIMtWld

XNVH

09£

'SNOIXfllO

ao xsnfsasvds

2]

x.soa

SIHJ,

MNIHJ,

nOA

OQ,,iNiad


1150

PRINT'RELATES

TO YOUR

PROBLEM WITH

;B$:QD=1:RETURN

:rem

***COHHODORE

PUNCTUATION

"

223

1160

REM

INPUT**

1170

P1S=""

1180

GETP2S:IFP2$=""THEN11R0

rem

57

1190

PRINTP2$; IFP2$=CHR?(13)THENRETURN

rem

57

rem

1200

rem

rem

1210

P1S=P1$+P2$

1220

GOTO1180

1230

REM

1240

PRINTCHR$(147);TAB(6)"THERAPY

1250

pr.int:print"would

250

rem : rem

***INTRODUCTION***

you

(5 spaces Introduction

like

rem

72

rem

60

an 101

GETQS:IFQS<>"V'ANDQS<>"N"THEN1260

1270

IFQ$="N"THENRETURN

1280

PRINTCHR?{147);"WELCOME TO

:rem

191

:rem

172

YOUR

{7 SPACES}THERAPY SESSION.{6 SPACES)

DR.

ROM";

irera

PRINT"

WILL BE WITH(2

1290

PRINT"MOMENT.

(SPACE)A

SPACES]YOU

";

(SPACE)HERE ARE

31

IN

:rem 172

WHILEYOU

ARE

WAITING,

SOME HELPFUL"

:rem

PRINT"SUGGESTIONS

ON

HOW TO

GET

104

THE

{S!'ACE}MOST OUT OF[3 SPACES}YOUR THE RAPY 1305 1310

1320

1332 1335 1340

jrem MOST

PRINT"PUT IN,{2 SPACESjTHE MORE (2 SPACES)YOU GET OUT.YOU MAY FIND I TRIP

";

:rem

:rem 175 KEY"

ANY

POKE198,0:WAIT198,1

:rem

210

:rem

103

PRINT"{CLR](DOWN}HOWEVER, EVEN THOUG H{2 SPACES}THIS IS A PARLOR f6 SPACESjGAME, YOU MAY STILL

:rem 121

PR1NT"YOURSELF HAVINGf2 ESTING,

AND

EVEN

SPACES)INTER

IMPORTANT,"; :rem

1360

228

PRINT"UP THE(3 SPACESJDOCTOR; MAKE F UN OF(3 SPACES)HIS GRAMMAR, OR INSUL THIM MERCILESSLY." PRINT:PRINTCHR$(18)"HIT

PRINT"

INSIGHTS.{2

110

SPACESjTHIS WILL

(SPACE)ONLY HAPPEN IF YOU{2

SPACESjT

RY YOUR

:rem

BEST TO

UTILIZE

";

172

1370

PRINT"THIS{7 SPACES}SESSION AS AN (9 SPACES}ENJOYABLE WAY TO MULL OVER

1380

PRINT"PROBLEMS

1390

PRINT:PR1NTCHR${18)"HIT ANY KEY"

1400

1420

POKE198,0:WAJT198,1 PRINTCHR$(147):PRINT"I R IS IN NOW." PRINT:PRINT"TO TALK TO

(3 SPACES}JUST TYPE

IN YOUR"

1430

PRINT"RESPONSE;

HIT

THE

";

:rem

AND

PEEVES

OF

:rem

AND

DR.

:rem 29

WHEN YOU AR :rem

138

PRINT"FINISHED.":PRINT:PRINT:PRINT"E NJOY

YOUR THERAPY

SESSION."

PRINT:PRINTCHR$(18);" HIT

:rem

the Program Listings.

Program 1: Spelling Critter—VIC Version 2 PRINT"ECLR}{4 DOWN)[2 RIGHT}SPELLING CR ITTER"

!rem

15 PRINT"fl0 DOWN}(2 ASE"

238

ANY KEY TO

143

RIGHTjONE MOMENT PLE .rem 135

20 POKE36869.255 :rem 105 21 POKE52,28:POKE56,28:CLR irem 20 22 FORI=7168TO7679:POKEI,PEEK(1+25600):NE XT

!rem

10],

j rem

56

:rem

69

25 FORC=7656TO7663:READA:POKEC,A:NEXT

:rem

30

DATA96,128,77,63,31,13,0,0

31

DATA3,52,184,240,240,184,52,3

:rem

72

186

:rem

76

32 DATA0,54,58,242,242,58,54,0

:rem .reln

112

60 PRINT"(CLR}"

:rem

202

50

DIMW$(50)

61

POKE36878,15

70 75

PRINT"HI,WHAT IS YOUR" INPUT"NAME";N$

80

GOSUB5000

90

W=0:R=0:Z=0

100

FORB=1TON

140

FORT=1TO1000:NEXT

120 PRINT"(CLR)(2 DOWN](5 160

2 39

:rem

56

:rem

20

:rem .rem

PRINT"[CLR}":A$=""

165 PRINT"(RED}{RVS}[2

14 173

.rem

39

jrem

25

RIGHT}"W$(B) :rem

184

:rem

27

srem 27

SPACESjTO REVIEW T

HE WORD{2 SPACES)" 166 PRINT"{RVS}{2 SPACES}TYPE

:rem 45 ? AND RETUR

N{3 SPACES}(BLU)" :rem 211 180 PRINT"l3 DOWN}HOW DO YOU SPELL":PRINT :rem

98

190 195 200

INPUT"THAT WORD";A$ :rem 123 IFA?=""ORLEN(A5)=0THEN160 :rem 125 IPAS="THAT WORD"THENGOSUB6000:GOTO160

210

IFAS="?"ORA5="/"THEN120

230

GOSUB8000

240

PRINT"[CLR][5

260

PRINT"THAT

214

";CHR$(18)iP

E"

1450

127

:rem 96 THE DOCTO trem 115 ROM,

SEE

RINT"RETURN";CHR$(146);" 1440

218

LIFE." :rem

1410

To Type COMPUTED Gazette Programs," "A Beginner's Guide To Typing In Programs," and

24 FORC=7664TO7671:READA:POKEC,A:NEXT

";

TOTRY AND

BEFORE TYPING... Before typing in programs, please refer to "How

29 WI 42

FUN

Sec article on page 82.

109

:rem

{3 SPACESJFIND "r

1350

irem INLIFE,

THINGS

Spelling Critter

23 FORC=7168TO7175:READA:POKEC,A:NEXT

TH THERAPY,{3 SPACES)THE MORE YOU

T 1330

SESSION."

PRINT:PRINT PRINT"AS WITH

22 128

"The Automatic Proofreader" that appear before

(y/n)"

1260

1285

:rem :rem

28 200

:rem

1300

55 239

BEGIN"

1460 POKE198,0:WAIT198,1:RETURN

220

:rem

IFA$=WS(B)THENGOSUB7000:GOTO400

:rem

:rem

80

221

DOWNjl'M SORRY,"N$:PRIN

IS WRONG":PRINT

270 POKE36874,223 274 FORT=1TO500:NEXT 275 280

243

:rem 191

POKE36874.0 PRINT"THE CORRECT

WAY

IS:"

COMPUTEIS Gazelle

:rem

16

:rem

138

:rem

151

:rem

247

:rem

53

:rem

37

June !98d

167


300

PRINT"{3

{BLU}"

DOWNj{5

RIGHT){BLK}"W?(B)"

irem 41

7070

POKEL+Q,32

:rem

105

trem

210

7075

Q=Q+1

7080

GOTO7001

8000

Q=0 L=7900tCO=38620

340

GOTO450

400

PRINT"{2

420

PRINT"[RED]EDOWN]VERY GOOD[BLU]

424

RIGHT"

M=220

IFQ=9THENRETURN

220

W=W+1

IS

FORT=1TO50:NEXT

7060

trem

320

DOWNJTHAT

7050

";N$

irem

207

:rem

184

8001 8010

srem

246

:rem :rem

50 86

:rem 14 rem 208 rem 134 :rem

46

POKEL+Q,0:POKECO+Q, 4 POKEL+Q+1,61:POKEL+Q+1,4

rem rem

243 157

FORT=1TO50:NEXT

rem

245

27

8020

8030

8045

rem 230 POKEL+Q+1,62:POKECO+Q+1,4 POKE36877,160:FORT=lTO10:NEXT:rem 47 POKE36877.0 :rem 107

NEXTP

irem 210 trem 85 trem 74 :rem 49 irem 40

8050

FORT=1TO50:NEXT

433

RESTORE

:rem

190

8060

POKEL+Q,32

440

R=R+1

irem

213

8070

IFQ=20THENPOKEL+Q+1,32:RETURN

450

POKE198,0tPRINT"{3

186

S075

irem 137 trem 29

8080

q=q+1 GOTO8001 END

:rem

425

FORP=1TO8

427 429

M=M+3 POKE36876,M

430 431

FORT=1TO25 POKE36876.0

432

GETZ$:IFZ$=""THEN460 NEXTB

500 PRINT"(CLR}YOU HAD{RED}

"R"

T AND{RED] ":PRINT 510 PRINTW" {BLU]WRONG." 550 PRINT"[3 DOWN]WOULD YOU

:rem 200 :rem 152 LIKE TO":PRIN

T

(BLU}RIGH

trem

560 PRINT"TRY AGAIN

(y/n)?"

181

:rem 49

580

GETZ$:IFZ$=""OR(Z$<>"Y"ANDZ$<>"N")THE

590

N580 IFZ$="Y"THENS0

600

:rem 115 trem 28

PRINT"{CLR}IT HAS BEEN VERY NICE"iPRI NTtPRINT"SPELLING WITH YOU"iPRINT PRINTNS"."

650

tPRINT PRINT"TO

640 PRINT"{3

660 PRINT"E2 700

PLAY

REAL

DOWN}{9

SOON."

END

5000

REM

INPUT

:rem irem :rem irem

30

OKE53280,6 :rem 42 S=54272:V=54296:AD=54277:SR=5427F=5 4273:LF=S:SD=54276 :rem 117

40

PORL=STOS+24:POKEL,0:NEXT:POKEAD,14:PO

KESR,204

{SPACE)500:NEXT

32 131 100

IFLEN(W$(X)}=0ORLEN(W$(X))>10THEN515 0

irem

166

50

:rem

217

5220 IFASC(W${X))<65ORASC(WS(X))>90THEN51 5250

NEXTX

5300

RETURN

:rem

168

99

6000

REM WISEGUY

:rem

215

6010

PRINT"{RED}f2 DOWNjVERY Y[BLU3":PRINT

:rem

235

FORT=lTO1000tNEXT

irem

82

6020

FORT=1TO500:NEXT

:rem

34

6030 7000

RETURN

rem

169

Q=0

rem

133

7001

L-7900:CO=38620

t rem

7010

POKEL+Q,0:POKECO+Q,4

rem

242

7020

POKEL+Q+l,61iPOKECO+Q+l, 4

rem

226

7030

FORT=1TO50:NEXT

rem

244

7040

POKEL+Q+1,62:POKECO+Q+1, 4

rem

229

7042 7045

POKE36877,160:FORT=1TO10 :NEXr ?irem rem Juno198<1

45

155

232

FORI=1445TO1451:READL:POKEI,L+l28iGOSU B110:FORJ=lTO70:NEXTJ:POKESD,32iNEXTI :rem

90

232

DATA19,16,5,12,12,9,14,7,3,18,9,20,20, 5,18

srem 120

195

100

POKE1444,160:GOTO

:rem

110

POKEV,15:POKEHF,40:POKELF,50:POKESD,3

3:POKEV,0:RETURN

irem

86

131

120 PRINT"{HOME] {VJHT) [15 D0WN][3 RIGHT}ON E

MOMENT

PLEASE 1 " irem

63

130

PRINTCHR$(142):POKE563 34,PEEK(56334)A

140

ND254 irem 141 POKEI,PEEK(1)AND251:FORI=0TO511:POKEI

150

+12288, PEEKU+53248) sNEXT trem 187 POKEI,PEEK(1)OR4:POKE56334,PEEK(56334 )OR1 :rem 133

160

FORI=1TO3iREADW:FORC=WTOW+7 s READAiPOK

EC,A:NEXTCtNEXTI :rem DATA12288,96,128,77,63,31,13,0,0

58

170

irem

32

180

DATA12784,3,52,184,240,240,184,52,3

190

DATA12776.0,54,58,242,242,58,54,0

FUNNY,WISEGU

6015

POKE36877.0

:rem

:rem

251

trem 2

:rem

135

B110:FORJ=1TO70:NEXTJ:POKESD,32:NEXTI

57

DOWNjWORD #";XjiINPUT"

{LEFT}";W$(X)

trem

22

80

5150 PRINT"{CLR){RED}[RVS](SHIFT-SPACE}CH ECK YOUR SPELLINGII{OFF}fBLU}" trem

;rem

177 110

5100

COMPUTE!'* Gazette

POKE53281,1:PRINT"(CLR}":POKE53281,6!P

FORI=1436TO1443:READL:POKEI,L+l28:GOSU

0ORN=0THEN5050 FORX=1TON

1£3

POKE52,48iPOKE56,48tCLR

20

70

INPUT"HAVE TODAY";Z$tN=VAL(Z$)iIFN>5

5210

10

180 214

5060

5200 PRINT"[3

Spelling Critter—64 Version

:NEXT:FORI=1445TO1451 :rem 216 POKEI,INT(RND(1)*25)+1:NEXT:FORI=1 TO

9

5050 PRINT"(CLR}{DOWN}HOW MANY WORDS DO W E"

:rem 123 :rem 15 :rem 210 :rem 160

Program 2:

RIGHT){REDjBYEl" :rem :rem

86

60

34

BACK AGAIN" irem irem

247

:rem

FORI=1436TO1443:POKEI,INT(RND{1)*25)+l

irem

DOWN)PLEASE COME

9000

:rem

50

irem

620

8042

DOWN}HIT ANY KEY" : rem

460 480

3040

trem

179

irem

200 DIMW5{50)iCL-54272

210 PORJ-1T07:READMS(J)iNEXTJ

87

trem 167

irem 49

220

POKE53272,(PEEK(53272)AND240)OR12

230

POKE53 281,liPRINTn{CLR}MiPOKE53 281,6i

46

240

R=1464:J=liGOSUB450:GOSUB850

106

250

N$=NM$:POKE53272,21

:rem 41

POKE53280,6

'rem 93 irem

144

,rem

0


260 GOSUB710:POKE53281,1jPRINT"(CLR}"iPOK 270 280

E53281,6:POKE53280,6

:rem 178

WG=0:RT=0

:rem

34

KE211,INT((40-LEN(W$(B)))/2)-1:PRIntw 5(B)

-rem 115

FORT=1TO1000:NEXT

:rem

25

310 PRINT"[CLR}[WHT}{5 SPACESjTO REVIEW T HE

WORD

PRESS

?

KEY"

irem

68

320

POKE53272,28:R=1464:J=2:GOSUB450:GOSU

330

B850 AS=NM$

340

IFA$="THAT WORD"THENJ=6:R=1704:GOSUB1

:rem :rem

srem

350

201

IFA$=W$(B)THENGOSUB1020:J=5sM${J)=M${ J)+" "+N$:R=1704:GOSUB450 :rem 195

370

IFJ=5THENRT=RT+1:GOSUB400;GOSUB570:GO

TO560

:rem 171

380 WG=WG+l:GOSUB1020:J=3sM$(J)=MS(J)+" +N$:R=1704:GOSUB450:GOSUB570

J=4:R=1824iM$(J)=MS(J)+"

:rem

395 M$(J)="THE

CORRECT ANSWER ANSWER

SOUND

700

53272,21jEND REM

jrem

INPUT

83

srem

710 POKE53280,3:POKE53281,3

n

:rem 243

720 PRINT"{CLR}(BLU]{12 DOWNjHOW MANY WOR DS 725

$)

DO WE

HAVE TODAY";:INPUTZ?:N=VAL(Z

IFN>50ORN=0THEN720

;rem 104 :rem 66

730 PRINT"ECLR}(BLU}{3 DOWN}(9 SPACES)

(RVS]{SHIFT-SPACE)CHECK YOUR SPELLING .rem 0

740

FORX=1TON

750

POKE214,12:PRINTj POKE211,5:PRINT"ENTE R WORD

#

:rem 57 ";X;:INPUT"{LEFT}";W?(X)

:rem

214

trem

220

760 FORI=1TO17:POKE214,12:PRINT!POKE211,2 765 766

l+IiPRINTCHR$(32)iNEXTI

IFLEN(W$(X))=0ORLEN(W$(X))>10THEN750 :rem

81

IFASC(W$(X))<65ORASC(W$(X))>90THEN750 srem

132

:rem

227 137

800 CH=62fIF(I+l)/2=INT((l+l)/2)THENCH=61

POKEV,15:POKESD,17:FORS=40TO100 :rem

790 FORI=*RTOR+38

POKEHF,INT{RND(l)*100+40):POKELF,S:FO :rem

54

430

NEXT:POKESD,16:RETURN

: rem

131

440

REM

:rem

167

ROUTINE

231

770 NEXTXiRETURN 780 REM ERASE ROUTINE

REM

MESSAGE

1rem

216

410

RD=1TO20:NEXT

PLAY AGAIN."

:rem

400

420

192

IS:"sGOTO59

0 CORRECT

"

186

"+W$(B):GOSU

B450:R=1544:GOSUB790:GOSUB570:rem

TO

11(OFF}(BLU}" 250

360

390

ACK

690 POKE53272,28:R=1704!J=7:GOSUB450:POKE

IFASC(A?)=63ORASC(A$)=47THEN290 :rem

SPACES)WITH :rem 114

680 PRINT"{2 DOWN}{4 SPACES)PLEASE COME B

146 247

020:GOSUB450iR=1544:GOSUB790:GOTO290

;rem 149

EEN VERY NICE SPELLING(10 YOU ";N5;"."

.rem 241

FORB=1TON

290 PRINT"E CLR}(WHT}":POKE214,12s PRINT■PO 300

OTO260

670 PRINT"{CLR}{8 DOWN){3 SPACES)IT HAS B

1rem 79 :rem 25

, rem 234 trem irem

22 77

810

POKEI+CL,liPOKEI+CL+l,l

820

POKEI,0:POKEI+1,CH j FORD=1TO50 sNEXTD 1rem

203

450 C=((R-1024)/40)-l:CN=INT((40-LEN(M$(J ) ))/2)-l :rem 19

830 POKEI,32:GOSUB110:POKESD/32:NEXTIjPOK

460

FORI=1TOLEN(M$(J)):LR=R+CN+I!IFLR>202

EI,32:RETURN

:rem

160

840

REM

:rem

118

3THENLR=2023

srem

235

470

FORK=lTO20:NEXTKsPOKELR+l,32

;rem

248

850

POKE198,0:POKE1561+CL,1:POKE1562+CL,1

480

POKELR,0:POKELR+1,62:POKELR+CL,1:POKE LR+CL+1,1:GOSUB110:POKESD,32

:rem

158

870

FORK=1TO20:NEXTK:POKELR,32

A=ASC(MIDS(M$(J)»I,1)):IFA=32THENPOKE

!rem :rem

123 145

IFASC(Z$)=63ORASC{ZS)=47THENNM$=Z$:RE

TURN

:rem

IFASC{Z$)=32THENA=32:GOTO920

IFA<65ORA>90THENPOKE214,C:PRINT:POKE2

890

IFASC(Z$)=13ANDLEN(NM$)<>0THEN950

900

IFASC(ZS)<65ORASC{Z$)>90THEN860

910 920

A=ASC(Z$}-64 :rem 85 NM$=NMS+Z$:POKE1560+CT,A:POKE1561+CT,

:rem

84

520

CH=A-64:POKELR,CH:POKELR+CL,1

:rem

19

530

NEXTI

:rem

32

540

FORD=LR+lTOR+38i POKED,0 sPOKED+1,62:PO

550

KED+CL,3:POKED+CL+l,3:GOSUB110srem 96 POKESD,32:FORK=lTO10:NEXTK:POKED,32sP OKED+l,32rNEXTD:RETURN

:rem

66

POKE198,0tPRINT"(2 DOWN)(l5 RIGHTjHIT

ANY KEY"sGOTO 580 :rem 110 570 M$(J)=MID$(MS{J),1,LEN(M?(J))-LEN(N$) -1):RETURN :rem 76 580

GETZ$:IFZS=""THEN580

590

NEXTB

600

REM

GAME

:rem :rem

OVER

ROUTINE

jrem

143 31 246

610 POKE53272,21:PRINT"[CLR}{WHT}(3 DOWN} {11 RIGHT)THE GAME IS OVER" :rem 64

620 PRINT"{3 DOWN}(2 ;"WRONG"

630 PRINT"{DOWN![2

RIGHT}RIGHT";TAB(33) :rem :rem

640 PRINT"[8 DOWNl{2 E TO PLAY AGAIN

41

RIGHT}";RT;TAB(33);WG

56

SPACES}WOULD YOU LIK

(Y/N)?"

:rem 63

650

GETZ$:IFZ$=""OR(ZS<>"Y"ANDZ$<>"N")THE

660

N650 srem 111 IFZS="Y"THENFORI=1TON:W${I)="":NEXT:G

:rem

44

880

:rem

ll,CN+IsPRINTCHR$(A):GOTO530

560

GETZ$:IFZ$=""THEN860

136

LR,A:GOTO530

510

:rem

860

500

ROUTINE

:POKEI561,0;POKE1562,62:CT=1:NM$-""

49

490

ANSWER

:rem

151 176

:rem

0:POKE1561+CT+1,62 930

:rem

48

159

POKE1560+CT+CL,1:POKE1561+CT+CL,1:POK E1561+CT+CL+1,1:CT=CT+1

:rem

235

940

GOSUB110:POKESD,32rGOTO860

:rem

81

950

IFJolTHENRETURN

srem

49

960

FORI=1561TO1582:POKEI,32:FORJ=1TOLEN( NM$)

970

:rem

2 50

A=I+J:IFA>1582THENA=1582:POKEA,32:GOT O

990

:rem

193

975

AS=ASC(MID$(NM$,J,1)):IFAS<65ORAS>90T

980

HENPOKEA,32:GOTO990 POKEA+CL,l:POKEA,AS-64

990

NEXTJ:A=I+J+1sIFA>1582THENA=1582:POKE A,32sGOTO

1000

1010

:rem

2

POKEA-1+CL,1:POKEA+CL,1:POKEA-1,0:PO KEA,62

1010

srem 164 :rem 41

:rem

9

FORK=1TO30:NEXTK!GOSUB110:POKESD,32: NEXTI:RETURN

trem

229

1020

FORI=1561+LEN(NM$)TO1581

:rem

137

1030

POKEI+CL,1tPOKEI+l+CL,l:POKEI+2+CL,1 COMPUTE'S Gazette

June 198-J

169


140

GOTO90

srem 238 GOSUB110:POKESD,32 iNEXTI:POKEI,32:PO

200

FORI=1TOLEN(W$)

j rem 55 rem 126

210

A$(I)=MID$(W$,I,1)

rem

107

KEI+1,32:RETURN

220

NEXT

rem

211

i POKEI,32:POKEI+1,0:POKEI+2,62 1040

WHAT

YOUR NAME"

38

:rem

33

1050

DATA"HI,

1060

DATA"HOW DO YOU

SPELL THAT WORD"

1070

DATA"I'M

SORRY,

THAT

1080

DATA"THE

CORRECT

1090

DATA"THAT

1100

DATA"VERY FUNNY,

IS

IS

trem

IS

272

rem 111 IFC?=W$ANDLEN(WS)<>1THENFORI=1TOLEN(W

14

:rem 79 36

BEFORE TYPING...

$):B$(I)=""iNEXTiGOTO230

"The Automatic Proofreader" that appear before the Program Listings.

Program 1: Word Scramble—VIC Version PRINT"{CLR}"iPOKE36879,8:PRINT"{RED) {7 DOWN]{5 RIGHT)WORD SCRAMBLE":POKE36 878,15

:rem 98

GOSUB1000:POKE36879,27iPRINT"{CLR}" :rem

ENTERS

A

80

TAKING":PRINT"T

COMMON"

{RED)WORD HAS(11 {OFF){BLU}"

:rem 114

(MAX.10 LETTERS).";

PRINT"(6

PRINT"[RED)THE COMPUTER WILL THEN";:PR INT"SCRAMBLE

THE

50

FIND

55

EVERY

WRONG

GUESS

50

PRINT"{CLR){5 DOWN){7

RIGHT}"?:rem 90 FORI=lTOLEN(W$)iPRINT' JRED}";B${I) ;:N

EXT

:rem

162

298

RETURN

irem

131

300

X=51sS{C)=50

310

TIS="000000"

:rem

246

320

PRINT:PRINT:PRINT:PRINT r

trem

119

325

SC=7885:CC=38605

330

PORI=1TOLEN(W$)

76

: rem

130

srem

75

335

POKESC,99iPOKECC,2

340

GETC?

355

{OFF}MINUTES{2 SPACES!{RVS]"RIGHTS(TI $,2)" {OFF]SECONDS" irem 95 IFTI$="000300"THENGOSUB500SGOTO390

360 365

IFC$=""THEN340 PRINT"(4 DOWN}"

350

370

: rem

222

:rem

PRINT"{HOME]{RVS]"MID$(TI$,4, 1)"

:rem

228

srem 214 :rem 179

IFC$=A$(I)THENPRINTTAB(X)AS(I);:POKE3 6875,200:FORT=lTO100:NEXTtPOKE36875,0

[GOTO380

:rem

230

:rem 64

390

RETURN

trem

POINTS.":PRINT"

400

IFC<>lTHENC=liRETURN

THAT";

irem

221

BAREOFF}"

10

, 220:FORT=1TO100:NEXT:POKE36877,0:GOT 131 59

irem

124 11

sretn

410 PRINT"{CLR}{5 DOWN){7 RIGHT! f RED] 420

{RVS)SCORES{OFF}{BLU}" PRINT"[7 RIGHT!fc6 T|"

:rem

199

:rem

4

430

PRINT"[DOWN]"PS(0),P$(1}

:rem

144

440

PRINTT(l),T(0)

: rem

252

:rem

450

C=0:RETURN

85

PRINTiPRINT:PRINT"(RED}PLAYER #

ME{BLU)":INPUTP$(1)

irem

:rem 246

PRINT"{CLR}{4 DOWN](GRN)PLAYER # l'S N AME[BLU}"sINPUTP$(0) srem 200

219

2'S NA

irem 132

500

99

: rem

PRINT"JCLR!{4 DOWN}{3

RIGHT] [RVS]

(RED)YOUR TIME IS UP.{OFP}{E

iLU nlJ "

96

irem

510 PRINT"(2

90 PRINT:PRINT"{DOWN!{PUR}"PS(C)",":PRINT

D0WNJE2

RIGHT}WORD WASi"W$".

":S{C)=0

:rem

159 59

"[RVS](RED]ENTER WORD TO BE":PRINT" {RVS}SCRAMBLEDi[OFF}{BLUJ" :rem 216

520

FORT=lTO5000iNEXT:RETURN

550

PRINT"{RVS][RED!{2

GOTO92

560

226 : rem F POINTS.{OFF}{BLU}" PRINT"[2 DOWN}[PUR]WORD WAS: {BLU} " W$"

570

FORT=lTO2000tNEXT

92 W$=""tINPUTW?iIFW$=""THENPRINT"{UP}";t :rera

27

IFLEN(W$)>10THENPRINT"{RVS){GRN}MORE T HAN

10

LETTERS1{OFF)(BLUj{7

0

GOSUB200

110 GOSUB300

170

81

: rem

srem

80

120 130

101

290

380

233

GETASiIFAS=""THEN70:C=0

100

223

srem

THE":PRINT"

:rem

70

95

:rem GETC?:IFC$=""THEN285

O335 X=X+liSC=SC+l:CC=CC+liNEXT

139

60 PRINT"{RED)YOU MAKE WILL COST" :PRINT"Y OU 10 POINTS.(BLU!" irem 114 65 PRINT:PRINT:PRINT:PRINT"{3 RIGHT}[RVSj (PURjPRESS SPACE

SPA

IFC$<>A$(I)THENS(C)=S(C)-10iPOKE36877

t rem

WILL";

PRINT"{RED]BE GIVEN

RIGHT){GRN}PRESS

378

IT."

TIME,YOU

SCRAMBLED irem 255

IFS(C)<10THENGOSUB550tGOTO390

PRINT"(RED}IF FOUND WITHIN ALLOTTED

201

375

WORD AND"

40 PRINT"ErED]PRINT IT." srem 169 45 PRINT"{REDjYOU HAVE THREE MINUTES"r:PR INT"TO

D0WNJE3

RIGHT}BEEN

285

irem 222

35

:rem

CE BAR(9 RIGHTJWHEN READY[BLU}"

295

Beginner's Guide To Typing In Programs," and

NEXT

275 PRINT"{CLR}(5 DOWN}{RVS)[7 RIGHT) 280

Before typing in programs, please refer to "How To Type COMPUTERS Gazette Programs," "A

PRINT"tREDjWORD

216

FORI=1TOLEN(W$):C5=C$+B$(I)

See article on page 86.

URNS

rem

NEXT

Word Scramble

30

221

271

WISEGUY"

PLAYER

178

rem

270

192

j rem

PRINT"lRED}EACH

rem

IS:":rem

VERY GOOD"

1 "

25

163 248

IFB$(R)<>""THEN240 B$(R)=A$(I)

1110 DATA"BYE1[2 SPACES)BYE 1{2 SPACES}BYE

20

rem

250 260

srem

10

rem

irem 144 WRONG":rem 8

ANSWER

RIGHT,

230 C$="":FORI=1TOLEN(W$) 240 R=INT{RND(1)*LEN{W$)+1)

UP}":GOTO9 ;rem

254

:rem

163 178

:rem

184

COMPUTEft Gazelle

June 1984

RAN

OUT

irem : rerr

0

151 35

irem 125 580 RETURN 1000 FORS=250TO235STEP-lsPOKE36874,S:POKE

36878,S-235:FORT=1TO100:NEXTT,S

trem 165

T(C)=T(C)+S(C) trem GOSUB400:FORI=1TO10:8$(I)="":NEXT

DOWN]YOU

: rem

srem 1010

188

POKE36874,0:POK£36878,15:RETURN

irem

126


Program 2:

29G

Word Scramble—64 Version 1

POKE53280,6:POKE53281,1

6

POKESN+24,15iPOKESN+5,17iPOKESN+6,240iP

5

: rem 141

SN-54272

.rem 23

OKESN.100

irem

27

EXT POKE198,0:RETURN

-rem :rem

300 X=95:S{C)=50 310 TI$="000000" 320 PRINTtPRINTsPRINTsPRINT

srem 89 trem 246 trem 119

325 330

irem 5 :rem 130

SC=1399:CC=SC+54272 FORI=1TOLEN(W$)

10 PRINT"ECLR}"iPRINT"fRED}{9 DOWN}

335

POKESC,99:POKECC,2

340

GETCS

20 GOSUB1000sPRlNT"{CLR)"

350

{13 RIGHT}WORD SCRAMBLE"

:rem 131

30 PRINT"WORD

10

247

:rem

103

360

trem

162

";

LETTERS)."

35 PRINT"EDOWN)THE COMPUTER WILL THEN SCR AMBLE

THE

WORD";

40 PRINT"AND

PRINT

IT."

srem

96

45 PRINT"EDOWNjYOU HAVE THREE MINUTES TO

{SPACE}FIND IT." :rem 152 50 PRINT"[DOWN}IF FOUND WITHIN THE ALLOTT ED

55

TIME,

YOU"

.rem

PRINT"WILL BE GIVEN

65

MAKE,

YOUWILL

LOSE

10

80 PRINT"[CLR){4 DOWN]{CRN)PLAYER #

AME{BLU]"iINPUTPS(0)

l'S N

trem 200

TER WORD TO BE SCRAMBLED:£OFF}[BLUJ" irem

GOTO92

95

151

W$=""iINPUTW$:IFW$=""THENPRINT"{UP}";i

410

rem

131

PRINT"{CLR}{5

DOWN}{17

{RVS}SCORESjOFF}[BLU}"

79

irem 59

jrem

124

srem

11

RIGHT}{RED}

:rem 233

420 PRINT"{17 RIGHT}E6 T^"

:rem 38

430 PRINT"{DOWN)[10 RIGHT}"P$(0);TAB(25); 440 450

PSU)

PRINT"[9

srem 139

RIGHT}"T(1);TAB(24);T(0)

:rem

C=0:RETURN

29

trem 99

500 PRINT"{CLR){4 DOWNJE12 RIGHT){RVS) (REDjYOUR TIME IS UP{OFP}[BLU}"

trem

55

srem

59

510 PRINT"{2 DOWN}{10 RIGHTjwORD WAS "W$" .":S(C)=0 irem 77 520

FORT=lTO5000:NEXTsRETURN

560

PRINT"(2

FORT=lTO2000sNEXT :rem 35 RETURN srem 125 POKESN+1,BY:POKESN+4,33:FORQQ=1TOLN:N

550

:rem 27

IFLEN(WS)M0THENPRINT"[RVS] (GRN}NO MOR E THAN 10 LETTERS{OFF}{BLU}":GOTO90

141

irem

IFC<>lTHENC=lsRETURN

85 PRINT"{3 DOWN){PUR}PLAYER # 2'S NAME {BLU}"iINPUTPS(l) trem 169 90 PRINT"{HOME){16 DOWN}{RED]";P$(C);" EN 92

120sGOSUB600:GOTO335 RETURN

srem 239 :rem 131 :rem 153

214

:rem

390

srem 57

228

:rem

IFS{C)<10THENGOSOB550:GOTO390 srem 10 IFC$OA$(I)THENS(C)=S(C)-10:BY=20sLN=

400

PRINT"£3 DOWN}{7 RIGHT){RVS){PUR}PRESS

SPACE BAR WHEN READY{OFF}" 70 IFPEEK(197)<>60THEN70 75 POKE198,0

sLN=50:GOSUB600:GOTO380

375 378

227

POINTS.

:rein

365 PRINT"(4 DOWN}" trem 179 370 IFC$=A$(I)THENPRINTTAB(X)AS{I);:BY=50

380 X=X+ltSC=SC+l:CC=CC+l:NEXT

60 PRINT"[DOWNjFOR EVERY WRONG GUESS THAT YOU

IFC$=""THEN340

183

50 POINTS." :rem

(BLUj"

222

:rem

SPACES}COMMON

(A MAXIMUM OF

:rem 75 :rem

PRINT"{HOME}{RVS)(9 KIGHT}"MID${TIS,4 ,1)" [OFF}MINUTES{2 SACES}{RVS}"RIGH T$(TI$,2)" (OFFjSECONDS" trem 100 35 5 IFTI$="000300"THENGOSUB500:GOTO390

irem 65

25 PRIHT"{REDJ{2 DOWNjEACH PLAYER TAKES A TURN ENTERING A{ 5

162 234

PRINT"{RVS}[RED}{2 DOWN}[9 RIGHT}YOU {SPACE}RAN OUT OF POINTS{OFF){BLU}" DOWN}{PUR}[10

{BLU}"W$"."

:rem

185

RIGHT}WORD WAS

:rem 127

rem

165

120 T(C)=T(C)+S(C) rem 130 GOSUB400:FORI=lTO10tB5{I)="":NEXT

178

570 580 600

:rem

184

1000

FORBY=50TO20STEP-1tLN=20sGOSUB600:NE

1010

XT:FORI=lTO500iNKXT RETURN

100

GOSUB200

110

GOSUB300

rem

163

EXT:POKESN+4,32tRETURN

140 200

GOTO90 FORI=1TOLEN(W$)

srem 55 srem 126

210 220

A$(I)=MID$(WS,I,1) NEXT

:rem 107 trem 211

230

C$="":FORI=1TOLEN(WS)

jrem

240 250

R=INT(RND(1)*LEN{W$)+1) IFB$(R)o""THEN240

:rem 248 . rem 178

260 270 271

B$(R)=A$(I) :rem 221 NEXT trem 216 PORI=1TOLEN(W$)iC$=C$+BS(I):NEXT

272

IFC$=W$ANDLEN(W$)<>1THENFORI=1TOLEN(W

275

PRINT"{CLR3{5 {RED}WORD HAS

280

:rem 111

$)tB${I)="":NEXT:GOTO230

:rem

201

DOWN){8 SPACES}[RVS] BEEN SCRAMBLED.fOFF}

{BLU}"

jrem 35

POKE 198,0:PRINT"{6 DOWN){7 SPACES} [GRN}PRESS SPACE BAR WHEN READYfBLU)"

285

IFPEEK(197)<>60THEN285

290

PRINT"fCLR}f5 DOWN}f15

295

163

srem srem

234 243

RIGHT}"; :rem

66

FORI = 1TOLEN(W5)tPRINT"{RED}" ; B? (I) ; jN

:rem

127

srem 73 srem 162

The Beginner's Corner See article on page 88.

Program 1: Tlc-Tac-Toe (64 Version) 100

REM TIC-TAC-TOE

:rem 111

110

GOTO

560

120 130

REM X POKE M.AtPOKE M+4,AsPOKE

;rem

102

srem M+41,A

207

140

POKE M+43,AsPOKE M4-82 , As POKE M+121,A

trem

17S

150

POKE

:rem

160

170

M+123,AtPOKE

A

:rem

RETURN

REM

170

M+160,A:POKE M+164,

O COMPUTED Gazette

14

srem

119

:rem

203

Juno 1984

171


180

POKE

M,233:POKE

M+4,223sPOKE

M+160,95

:POKE M+164,105 TO

FOR

200 210

POKE POKE

M+I,A:POKE M+I+160,A M+40*I,A!POKE M+40*I+4,A

:rem 72 :rem 2

220

NEXT

I

:rem

230

POKE

M+82,32

240

RETURN

250

FOR

I=H+C

3

POKE

TO

srem

1

190

260

1=1

srem

28

srem M+C+160

I,CC(N)sPOKE

CC(N)sPOKE

14

STEP

40

55

:rem

118

:rem

127

1+1,CC(N):POKE 1+2, 1+4 CC(N)

1+3,CC(N):POKE

rem 270

NEXT

227

:rem

I

33

:rem

159

730

HEN

IF E$="[Fl)"THEN Y=lsZ=3

720

:rem

146

740

POKE

srem

200

750

PRINT

760

PRINT TAB(8)"(BLK}F3{BLU)

198,0

l[BLU)

"[2

DOWNjCHOOSEf2

BEGINNER"

HEN

780

770

IF E$="!F1}"

790

PRINT

800

FOR 1=1

TO

rem

122

810

FOR

rem

181

820

POKE

I,At POKE

300

POKE

64

830

POKE

I+8,AsPOKE

174

840

NEXT

16

850

FOR

118

860

310

POKE

320

FOR

W,17

D=l

rem

TO

60:NEXT

D:POKE

W,0

:rem rem

RETURN

340

X=N:P{E)=X:M=S(E) :ON X GOSUB

130,130,

180

trem

164

870

NEXT

:rem

175

880

FOR

:rem

GOSUB

250

1=1080

E

TO

1960

STEP

TO

I,A.-POKE

1=1

TO

9sPOKE

380

IF P(I)<>P(I+2) THEN 400 :rem ON P{I)+1 GOTO 400,1550,1550,1550

152

920

IF Y=l THEN 970(5

:rem

49

930

REM

:rem

28

940

E=INT(9*RND(0)+1):IF

THEN

SPACES)

420

FOR 1=1 TO 3 IF P(I)»P(I+3)

THEN

450

:rem 9 srem 153

950

GOSUB

430

IF P(I)<>P(I+6)

THEN

450

srem

960

REM

440

ON

450

NEXT

970 980 990

GOSUB 300 GET E$sIF IF E$<"1"

460

P(5)<>X THEN (P(1)=X) AND

490 (P(9)=X)

:rem 157 THEN 1550

1000

E=VAL(E$):IF P(E)<>0

470

IF IF

1010

GOSUB

340

srem

1020

ON

GOTO

480

IF

(P(3)=X)

(P(7)=X)

THEN

AND

:rem

50

srem

33

111

630

160

1090

IF

P(1)=0 AND

P(9)=Z THEN E=

IF

P{1)=Z

AND

P(9)=0 THEN E=9:GOTO 1

P(3)=0

AND

P(7)=Z

THEN

rem 249 E=3:GOTO 1

P{3)=Z

AND

P(7)=0

THEN

E=7sGOTO

53281

640 650

231

rem :rern

680

PRINT

690

OVE." Y=3:Z=1:CH=2

IF

P(K)=X OR P(K+3)=X

EN

1200

IF

P(K)+P(K+3)+P(K+6)<>2*Z

1170 1180

IF IF

:rem 82 P(K)=0 THEN E=KsGOTO 1520:rem 232 P(K+3)=0 THEN E=K+3sGOTO 1520

1190

E=K+6:GOTO

1200

NEXT

117

1210

REM

GETS FIRST M

1220

FOR K=l

1230

IF

P(K)=X OR

IN

99

A

RO

172

COMPUTEIS Gazelle

June 198-1

AND

1160

115

:rem

125

srem

244

srem

E$:IF E$<>"{FlJ"

202

1150

srem srem

{BLU}"

:rem

POSI

167 158

PRINT "{2 DOWN)CHOOSE{2 SPACES)(BLK)F 1[BLU} FOR EI5LK)X{BLUJ" srem 95 710 PRINT TAB(8)"{BLK]F3{BLU} FOR {BLK]O GET

249

K=l

700

720

1

:rem COLUMNS

srem

"[DOWN){BLK}X[BLU)

520

244

FOR

srem 72 TURNS WITH THE

COMPUTER."

:rem

REM

THREE

W+1,128:POKE W+2,16

IF

1140

54296,15sFl=54273:F2=54272:C=F2

POKE

IF

63

:GOTO 1 rem 249

1130

:rem

A=160sCC(l)=6sCC(3)=10 670 PRINT "{DOWN)ALTERNATE

srem

DIAGONALS

73

:rem

660

THEN

1520

520

1120

29

srem srem

NUMBERS."

POKE

1110

84

246

ONE OF THE

"{DOWN)TRY TO GET

520

POSITION

111

1450,1754,1762,1770

PRINT

1100

CENTER

520

srem

W. "

183

rem

rem

TION

186

rem

REM

PRINT

DOWN}CHOOSE

224

rem

1080

560

"(2

234

rem

1140

122

PRINT

200

rem

940,1060

P(5)=X

2 50

620

180

rem

CH

IF

rem

DATA

rem

REM COMPUTER'S MOVE IF Y=l THEN 970

1070

rem

610

8

217

srem 30 rem 133

RETURN

600

srem rem

E=5:GOTO

N=ABS(N-4)

590

970

P(5)=0 THEN

550

W,0

980

THEN

9

179 109 224

IF

540

PRINT TAB(15)"TIC-TAC-TOE" FOR 1 = 1 TO 9 s READ S(I)sNEXT I DATA 1114,1122,1130,1434,1442

ES=""THF,N 980 OR ES>"9" THEN

srem srem srem

1060

GOTO

W=54276sPOKE

srem

67

5 30

570 580

181

MOVE

srem

PRINT

"{CLR)[BLUj":POKE

164

REM

520

1590

:rem srem

340

1050

NEXT

GAME1"

940

23

510

"TIE

160

P(E)<>0 THEN

:rem

500

I

192

srem

112

FOR 1=1 TO 9 IF P(I)=0 THEN

540

85 23

1030 1040

1550 srem

490

222

srem

MOVE

410

I

srem

1040

COMPUTER'S

232

srem srem

NEXT

450,1550,1550,1550

73

1+320,AsPOK

S(l)+82+C,0:NEXT I

400

GOTO

36

srem

39

POKE

P(I)+1

:rem

17

N=l IF CH=2

YOUR

98

s rem 41

S(IJ+82,1+48:rem

900 910

157

226

s rem

j rem

B90

I

rem

srem

128

390

40

I

150

400

159

I+C,CT:POKE

:rem

3

THEN

197

101

I+320+CCT

IF P(I)<>P(I+1)

STEP

rem

rem

1375

FOR

7

169

:rem

I+8+CCT

360

TO

T

rem

I

I+C.CT

370

1=1

113

IF3]"

I

1=1353

POKE

330

350

rem

E$<>

9sP(I)=0sNEXT

RETURN

:rem

AND

THEN CH=1

REM

F2.62

192

"[CLR)":CT=INT(14*RHD{0})+2

290

Fl,42:POKE

srem

INTERMEDIAT

E"

770 GET ESsIF E$o"{Fl

280

TONE

SPACES}{BLK}F

214

E$o"(F3!"

T

TO

3

srem

OR

P{K+6)=X srem

THEN

1200

165

:rem

K

:rem

ROWS

TO

7

STEP

3

P(K+1)=X

OR

EN

1280

IF

P(K)+P(K+1)+P(K+2)O2*Z

1250

IF

P(K}=0

243

:rem

174

1260

IF

P(K+1)=0

THEN

205

1280

srem

THEN

77

:rem

:rem

E=KsGOTO

52

P(K+2)=X TH

1240

THEN

TH 204

srem 1520

60

1520srem

E=K+1:GOTO

83 231

1520 :rem

160


1270

E=K+2:G0T0

1280

NEXT

1520

47

:rem 85

1290

REM

PREVENT

1300

FOR

K=l

1310

IF

P(K)=Z

EN

1360

1320

:rem

K

TO

COLUMN

:rem

3

OR

P(K+3)=Z

162

:rem

58

OR P(K+6)=Z

TH

:rem 215

IF P(K)+P(K+3)+P(K+6)<>2*X THEN

1360

:rem

1340

IF P{K)=0 THEN E=K:GOTO 1520:rem IF P(K+3)=0 THEN E=K+3:GOTO 1520

1350

E=K+6:GOTO

1360

NEXT

1330

K

srem

1370

REM

PREVENT

FOR

K=l

1390

IF P(K)=Z EN

230

:rem 163 :rem 50

1520

1380

1400

85

TO

ROW 7

STEP

OR

3

P{K+1)=Z

84

:rem

203

:rem

181

OR P(K+2)=Z

1440

TH

:rem 216

IF P{K)+P(K+l)+P(K-t-2)<>2«X THEN

1440

:rem

1410

IF P(K)=0 THEN

1420

IF

P(K+1)=0

E=K:GOTO

THEN

1520:rem

E=K+1:GOTO

229

1520 :rem

158

1430

E=K+2:GOTO

1440

NEXT

1450

IF P(5)=Z

THEN

1460

IF P(1)=0 520 IF P{1)=X

AND

P(9)=X THEN

AND

P(9)=0 THEN

E=1:GOTO 1 :rem 248 E=9:GOTO 1 :rem

1

AND

P{7)=X THEN

E=3:GOTO

1

P{7)=0

:rem 252 E=7:GOTO 1

1470

1520

77

:rem 45

K

:rein

1500

:rem

520

1480

IF P(3)=0

1490

520 IF P(3)=X

AND

THEN

520

83

187

:rem

940

GOTO

1510

REM

1520

GOSUB

1530

GOTO

1540

REM

1550 1560

IF

1570

GOTO

1580

PRINT

1590

FOR

1600

POKE

Fl,INT(60*RND(0)+30)

:rem

1610

POKE

F2,INT(200*RND(0}+10)

rem

132

1620

GOSUB

:rem

221

1630

NEXT

1640

PRINT

340

GAME

XOY

PRINT

OVER

THEN

1590

"COMPUTER TO

WINS 1 !"

20

310 I

"{22

156 171

rem

223

rem

162

:rem

1580

"YOU WIN111"

1=1

rem rem

DOWNjTRY AGAIN?

130

rem

235

rem

213

rem

145

rem

114

GET E$:IF E$="N" THEN

1660

IF

E$O"Y"

1670

CLR

1680

GOTO

1690

PRINT

1700

END

THEN

1650

560

"{CLR}"

1690

88

:rem

82

:rem

18 21

FORI=1TO7STEP3

:rem

74

13

IFP{I)<>P(I+1)THEN16

irem 51

14

IFP(I)<>P{I+2)THEN16

:rem

192

16 17

NEXT FORI=1TO3

:rem :rem

166 220

18 19

IFP(I)op(I+3)THEN21 IFP{I)<>P(I+6)THEN21

20 ONP(I)+1GOTO21,89,89,89

:rem 184

21

NEXT

:rem

22

IPP(5)<>X THEN25

24

IF(P(3)=X)AND(P(7)=X)THEN89

23

IF(P(1)=X)AND(P(9)=X)THEN89

:rem 223

25 26

FORI=1TO9:IFP(I)=0THEN27 NEXT:PRINT"TIE GAME!":GOTO92

:rem 153 :rem 173

27

N=A8S(N-4):RETURN

:rem 228

TOE" :FORI=1TO9:READSfI):NEXT

:rem

28 PRINT"[CLR}(BLU}":PRINTTAB(5)"TIC-TAC191

29 DATA7726,7 733,7740,7880,7887,7894, 8034

30

,8041,8048

PRINT"{2

:rem 98

DOWN3CHOOSE ONE OF THE'":PRINT

"POSITION NUMBERS.":PRINT"[DOWN)GET

[SPACE)IN A ROW."

31

3

:rem 102

POKE36878,15:F1=36876:C=30720:CC(1)=6:

CC(3)=2:Y=3:Z=1:H=2

32 PRINT"[DOWN)(BLK}X{BLU) E.":PRINT"(DOWN]CHOOSE

R

:rem 69

GETS FIRST MOV

{BLK}Fl(BLU}

FO

(BLK}X":PRINTTAB(7)"F3{BLU) FOR

{BLK)0(BLU}"

:rem 8

33 GETES:IFES<>"{F1]"ANDE$<>"!F3 3"THEN33 34

:rem

IFE$="{F1}"THENY=1:Z=3

35 PRINT"{2 DOVJNjCHOOSE

(BLK}F1{blu)

NNER":PRINTTAB(7)"{BLK)F3{BLU} DIATK"

57

:rem 95 BEGI

INTERME

:rem 153

36 GETE$:IFE$o"{Fl)"ANDE$o"{F3)"THEN36 :rem

63

37 IFE$="{Fl}"THENH=l :rem 77 38 PRINT"(CLR]":T=INT(6*RND(0))+2:FORI=lT O9:P(I)=0:NEXT

:rem

1B2

39

FORI=7709TO8129STEP2 2:POKEI,160:POKEI+ C,T:POKEI+7,160:POKEI+7+C,T:NEXT

40

FORI = 783 5TO7B54:POKEI,160:POKEI+C, T:PO KEI+154,160:POKEI+154+C,T:NEXT :rem 80

:rem

46

45 46 47 48

GOSUB10 GOSUB8 GETEStIFES=""THEN47 IFE$<"l"0RE$>"9"THEN47

52

159

POKEM,77tPOKEM+3,7B:POKEM+23,77iPOKEM+2

4,78:POKEM+45,78 :rem 158 POKEM+46,77:POKEM+66,78:POKEM+69,77:RET :rem

FORI=1T09:POKES(I)+23,I+48:POKES(l)+23 +C,0:NEXT

:rem

49 E=VAL(E$) :IFP(E)o0THEN46

202

50

GOSUB10:ONH

POKEH,85:POKEM+1,67:POKEM+2,67 sPOKEM+3,

51

IFY=1THEN46

73:POKEM+22,66:POKEM+23,32:POKEM+25,93

52 53

IFP{5)=0THENE=5:GOTO88 IFP(5)=X THEN58

54

IFP(1)=0ANDP(9}=Z

55

IFP(1)=Z

56

IFP(3)=0ANDP(7)=Z

:rem

222

POKEH+44,66:POKEM+47,93:POKEM+66,74:POK EM+6 7,64:POKEM+68,64:POKEH+6 9,75:RETURN :rem

7

:rem 224

N=1:IFH=2THEN51 :rem 55 IFY=1THEN46 :rem 86 E=INT(9*RND(0)+l):IFP{E)O0THEN44

2

FORI=M+C TOM+C+66

162

:rem 49

42 43 44

irem 212

KEI+1,CC(N):POKEI+2,CC(N) POKEI+3,CC(N):NEXT:RETURN

jrem 54 : rem 58

163

s rem

6

srem 53

15 ONP(I)+1GOTO16,B9,89,89

:rem

GOTO28

5

24

12

41

1

4

69

:rem

215 175

rem

URN

:rem

GOSUB6

.■rem :rem

Program 2: Tic-Tac-Toe (VIC Version)

3

160 170

11

(Y/N)"; srem

1650

A

rem

POKEP1.231 jrem FORD=1TO60:NEXT:POKEF1,0:RETURN:rem

10 X=N:P{E}=XjM=S(E)jONX GOSUB2,2,4

1

1500

970

8 9

111

STEP22:POKEI,CC(N);PO :rem irem

181 241

GOTO44,52

250

:rem

58

:rem

74

:rem

34

:rem

1

:rem

116

: rem

126

:rem

153

:rem

85

jrem jrem

2

254

THENE=1:GOTO88 :rem

64

ANDP(9)=0THENE=9:GOTO88 :rem

73

THENE=3:GOTO88 jrem

COMPUTEI's Gazette

JUnol98'1

68 173


57

IFP(3)=Z

ANDF(7)=0THENE=7:GOTO88

58

:rem 73 FORK=lTO3:IF(P{K)=X)+(P{K+3)=X)+(P(K+6

59

)=X)THEN63 IFP(K)+P(K+3)+P(K+6)<>2*Z

:rem 207 THEN63

60 61

IF

P(K)=0THENE=K:GOTO88

:rem 158 : rem 45

IFP(K+3)=0THENE=K+3:GOTO88

;rem 234

62

E=K+6:GOTO88

irem

63 64

NEXT :rem 168 FORK=lTO7STEP3:IF(P{K)=X)+(P{K+l)=X)+(

65

P(K+2)=X)THEN69 IFP(K)+P(K+l)+P(K+2)<>2*Z

66

IFP(K)=0THENE=K:GOTO88

121

:rem 63 THEN69 :rem

155

irem

67

IFP{K+1)=0THENE=K+1:GOTO88

68 69 70

E=K+2:GOTO88 :rem 123 NEXT :rem 174 FORK=1TO3:IF(P(K)=Z)+(P(K+3)=Z +(P(K+6 )=Z)THEN75 rem 210 IFP(K)+P(K+3)+P(K+6)<>2*X THEN75

71

:rem

51 236

:rem 153 :rem 48

72 73

IFP(K)=0THENE=K:GOTO88 IFP(K+3)=0THENE=K+3:GOTO88

:rem

237

74

E=K+6:G0TO88

:rem

124

75 76

NEXT :rem 171 FORK=1TO7STEP3:IF(P{K)=Z)+(P(K+1)=Z)+( P(K+2)=Z)THEN81

77 78 79 80 81 82

:rem

66

IFP(K)+P(K + 1)+P(K4.2) <>2*X THEN81 :rem 150 :rem 54 : rem 239 :rem 117 :rem 168 :rem 4

IFP(K)=0THEN E=K:GOTO88 IFP(K+l)=0TilENE=K+l:GOTO88 E=K+2:GOTO88 NEXT IFP(5)=Z THEN87 )=X

83

THENE=1:GOTO88 rem

84

IFP(1)=X

85

IFP(3}=0ANDP{7)=X

64

ANDP(9)=0TUENE=9:GOTO88

rem 73 THENE=3:GOTO88 rem 68 86

IFP(3)=X ANDP(7)=0THENE=7:GOTO88 :rem

87

GOTO44

88

GOSUB10:GOTO46 THEN91

73

rem

16

srem

46

:rem

196

:rem

102

89

IFXOY

90

PRINT"YOU

91

PRINT"COMPUTER WINS 11"

92

FORI=1TO20:POKEF1,INT(20*RND(0}+200):G

WIN111":GOTO92

:rem

0SUE9:NEXT

:rem

93

PRINT"[20 DOWN}TRY AGAIN?

94

GETE$:IFE$="N"THEN97

95 96 97

IFE$o"Y"THEN94 CLR:GOTO28 PRINT"fCLR]"sEND

45 112

(Y/N)"; :rem :rem

145 S6

srem 25 :rem 45 :rem 229

Inside Random Numbers See article on }>a$c 98. BEFORE TYPING... Before typing in programs, please refer lo "How To Type COMPUTERS Gazette Programs," "A Beginner's Guide To Typing In Programs," and "The Automatic Proofreader" that appear before the Program Listings. 174

COMPUTE!'* Gazette

Juno 19B4

Random Number Test 1

print"(clrI(down)

2

(SPACE)RANDOMIZE." GETA?:IFAS=""THEN2

press

(rvs5r{off] :rem :rem

163 135

3

IFAS="R"THENX=RND(-TI)

:rem

189

5

P0KE56,27:CLR:PRINT"(CLR)fDOWN}

7

B=716B:C=7679:FORA=BTOC:POKEA,0:NEXT

[SPACEjWAIT..."

to

PLEASE

irem

167

:rem 10

XT

20

105

B=8a5:C=947:FORA=BTOC:READD:POKEA,D:NE

irem

PRINT"{CLR}{DOWN}

(RVS}V{OFF}IC

"

25

print"(down}

press

26

PRINT"

30

GETAS:IFAS=""THEN30

215

OR

64?

:rem

167

(rvs)v(off]

for vic :rem

[RVS}RETURN[OFF}

153

FOR 64." :rem :rem

35

IFA5<>"V"THEN50

40

POKE888,39:POKE892,148

50

PRINT"[CLR}{DOWN) O

51

:rem 4 :rem

PRESS

PRINT"

RANDOM

SEEDS."

PRESS

BASIC

[RVS}RNDJOFF)

101

:rem

154

:rem

213

TO TES

COMMAND." :rem

70

GETAS:IFA$=""THEN70

80

IFA?="(F1)"THENGOTO1000

90

:rem

79 241

:rem 139

IFA$="[F3}"THENGOTO2000

:rem

142

100 885

GOTO50 :rem DATA165,197,201,4,240,55,32,151

893

DATA224,165,143,133,2 51,169, 254, 133

901

DATA253,169,27,133,254,160,255,24

909

DATA165,253,105,2,133, 253,165,254

917

DATA105,0,133,254,200,196,2 51,208

925

DATA238,160,0,24,177,253,105,1

933

DATA145,253,200,177,253,105,0,145

941

DATA2 53,201,255,208, 195,96,0,0

:rem

191

:rem :rem :rem :rem

:rem

1010

PRINT"

1020

PRI«T"[2

PRESS

1-5

TO

1030

SEEDS."

DOWN}

EST BYTE:[0FF3"

PRINT"{DOWN)[3

SPACES}1(9

76

57 246

SPACES}T :rem

149

:rem

116

SPACES)139

"

1040

PRINT"{3

SPACES}2{9 SPACES}140"

1050

PRINT"[3

SPACES]3{9 SPACES}141"

1060

PRINT"(3

SPACES}4(9

:rem

93

:rem

96

SPACES}142" :rem

1070 PRINT"[3

75

189

srem

[RVS}PRESS{4

86

TEST"

:rem RANDOM

86

184

:rem

PRINT"[CLR}[DOWN]

47 243

:rem

1000

T

:rem

!RVS}F3(OFF}

T"

61 PRINT"

168

[RVS)Fl[OFF)

TEST"

60 PRINT"[DOWN)

60 233

99

EPACES}5{9 SPACES}143"

1080

GETA$:IFA$=""THEN1080

irem rem

102 181

1090 1100 1110

A=VAL[A$):IFA<1ORA>5THEN1000 rem rem POKE895,138+A PRINT"fCLR}[DOWN] TESTING RANDOM

157 203

D"

1120

1130

PRINT"

BYTE

PRINT"{DOWN}

"rA+138;"[LEFT}.

PRESS

SEE

:rem

56

:rem

86

£RVS}f1(OFF)

TO S

TOP . "

rem

102

1140

SYS885:GOTO3000

rem

160

2000

POKE945,4:POKE946,169:POKE947,2 55:PO


KE948,133:POKE949,176:POKE950,96

2002 2005

irem

FORA=891TO897:POKEA,234:NEXT:rem PRINT"fCLR}(DOWN] TESTING BASIC

(RVS)RND(OFF)"

2010

PRINT"

2020

PRINT"[DOWN)

2030

PRINT"

2035

236

irem 68

COMMAND."

(0 -

PRINT"{DOWN}

254

:rem

193

ENTER NUMBER RANGE:" :rem

255)"

148

:rem 224

ENTER TWO NUMBERS"

:rem

2036

PRINT"

2040

INPUTA,B

64

SEPARATED BY A COMMA.{DOWN}" :rem

189

:rem

5

2050

IFA<0ORA>255THEN2000

:rem 176

2060

IFB<0ORB>255THEN2000

:rem

2070 2080

PRINT"[CLR}{DOWN] TESTING [RVS]RND [OFF} COMMAND." :rem 17 PRINT"[DOWN} RANGE= "rA;"-";B

2090

PRINT"(2

2100

X=251iY=176;Z=25 5:R=(ABS(A-B))+l:POK

2110

EY,0 IFA<BTHENL=A

:rem :rem

54 11

2120

IFB<ATHENL=B

:rem

13

DOWN}

:rem

PRESS

[RVS}Fl{OFF}

STOP."

:rem

179

TOTAL ZEROES:'

SPACES}" ; ZZ

42 30 CLR:PRINT"(DOWN}(RVS}r{0FF' T

ANALYSIS. "

4240 GETAS:IFAS=""THEN4240 4400

IFA$="R"THEN3000

4410

GOTO5000

4500

CT=CT+1:TT=TT+N

45L0 4520

IFN>HITHENHI=N IFN<LOTHENLO=N

4530

RETURN

5000 PRINT"[CLR3

PROGRAM ENDED.1

:rem 94 :rem 198

3000

POKE198,0:GOSUB3500

:rem

3010

B=7168:C=7678:Q=256:L=20:FORA=BTOCST

114

REPEA

rem

178

rem

183

rem

129

rem

199

rem

208

rem

193

rem

212

rem

172

rem

207

Power BASIC See article an page 111.

Beginner's Guide To Typing In Programs," and

"The Automatic Proofreader" that appear before the Program Listings.

Power BASIC: One-Touch Keywords 140 IF PEEK(PEEK(56)*256)<>120THENPOKE56, PEEK(56)-1:CLR

:rem

HI=PEEK{56):BASE=HI*256

158

PRINTCT,PEEK(A)+Q*PEEK(A+1):N=N+1:CT

160

PRINT"ICLR}PATIENCE.. ."

rrem

206

71

170

FOR

:rem

15 3

5

180

POKE

=CT+1:IFN=>LTHENGOSUB3200

:rem

NEXT

3100

PRINT"{2 DOWN}{2 SPACES}(PRESS ANY K

:rem

EY)" 3110 GETAS:IFAS=""THEN3110 3120 GOTO4000 3200 N=0 3210 GETAS:IFAS=""THEN3210

:rem :rem :rem :rem :rem

220

POKE

BASE + 123,111:

41

230

RELOCATION

:rem

POKE

BASE+52,235:

POKE

BASE+92,160

:rem 22

234

POKE

BASE+154,72:

POKE

BASE+157,224

235

POKE

BASE+158,234

179

:rem

201

4008

PRINT"[CLR}[DOWN)

186

250

PRINT"ON/OFF:{3

4010

:rem 58 :rem 210

4020

N=PEEK(A)+G*PEEK(A+1)

:rem

183

260

END

4030

IFN=0THF.NZZ = ZZ + 1:GOTO4040

: rem

124

270

DATA

4035 4040

GOSUB4500 NEXT

:rem 21 :rem 7

280

4100

PRINT"{CLR)(DOWN}

(RVS]RANDOM ANALYS 171

NUMBERS HIT:"

PRINT"[DOWN}

PRINT"{3 SPACES}"rHI

88

111

120,173,143,2,201,32

:rem

127

DATA

208,12,169,220,141,143

:rem

239

290

DATA

2,169,235,141,144,2

300

DATA

88,96,169,32,141,143

:rem

155

310

DATA

2,169,0,141,144,2

:rem

237

320

DATA DATA

88,96,165,212,208,117 173,141,2,201,3,176

:rem 206 :rem 83 :rem

DATA

110,201,0,240,106,169

350

DATA

159,133,245,169,236,133

99

:rem

176

340

:rem

15

*"

:rem

330

HIGHEST COUNT:":rem 127

230

:rem

:rem

103

rrem 79 :rem 116

193

SPACES}SYS{RVS]";BASE

:rem 106 :rem 241

4140 PRINT"{3 SPACES}";TT :rem 125 4150 PRINT"[DOWN} AVERAGE COUNT:":rem 106 4160 PRINT"{3 SPACES}";TT/CT :rem 69

139

:rem

PRINT"[CLR)* ONE-TOUCH KEYWORDS

65535:ZZ=0:G=256 FORA=BTOCSTEPD

51

:rem

240

B=7168:C=7678:D=2:TT=0:CT=0:HI=0:LO=

:rem

:rem 135 :rem

4009

PRINT"(DOWN} LOWEST COUNT:" PRINT"(3 SPACES}";LO

240

BASE+48,194

236

WAIT..."

:rem

POKE

:rem

:rem

:rem

GOTO

:rem 95 :rem 207

233

OR

PEEK{65532)=34

2

BASE+133.HI

5

IFAS<>"Y"THEN5000

PRINT"(3 SPACES}"rCT PRINT"[DOWN} TOTAL COUNT:"

POKE

BASE+9,72:

GETA$:IFA$=""THEN4004

4120 4130

184

POKE

4006

TOTAL

:rem

BASE+81,HI

IF

4004

PRINT"[DOWN}

212

232

{RVS]yJ0FF}

IS:"

88

:rem

231

:rem

4110

ADJUSTMENTS

POKE

47

:rem

190 BASE+26,HI:

REQUEST ANALYSIS?"

PLEASE

BY AD

POKE

:rem 25

(PRESS

READ NEXT

REM

URN

{RVS}N{OFF})"

211:

210

:rem

PRINT"{DOWN}

TO

:rem

BASE+AD,BY:

200

GOSUB3500:RETURN

PRINT"{CLR](DOWN)

AD=0

102 173 195 128 175

3500 PRINT"{CLR]NUMBER","COUNT{DOWN)":RET

4200

TO

150

:rem

3030

4190

63 136

110

EP2

4170 4180

:rem rem

125

2140

4002

PRINT"[3

BEFORE TYPING...

POKEX,INT{(RND(1)«R)+L):SYS885:IFPEE

4000

PRINT"{DOWN]

Before typing in programs, please refer to "How To Type COMPUTERS Gazette Programs," "A

TO

K(Y)=ZTHEN3000 GOTO2130

3220

4220

251

2130

3020

4210

:rem

94

175

:rem 49

360

DATA

246,165,215,201,193,144

370

DATA

95,201,219,176,91,56

:rem

380

DATA

233,193,174,141,2,224

:rem

194

390

DATA

2,208,3,24,105,26

:rem

245

:rem

400

DATA

170,189,159,0,162,0

:rem

410

DATA

134,198,170,160,158,132

rrem

420

DATA

34,160,192,132,35,160 COMPUTEf's Co2«lle

:rem June 1984

40 160

92 40 187 175


DATA

430

0,10,240,16,202,16

:rem

22

:rem

78

440

DATA

12,230,34,208,2,230

450

DATA

35,177,34,16,246,48

460

DATA

470

DATA

:rem

108

241,200,177,34,48,17

rein

147

8,142,211,0,230,198

:rem

91

480

DATA

166,198,157,119,2,174

rem

215

490

DATA

211

0,40,208,234,230

rem

131

500 510 520

DATA

198

DATA

119

166,198,41,127,157 2,230,198,169,20

rem

DATA

141

119,2,76,220,235

530

DATA

76,67,236

:rem

540 REM

550

"TOKENS

FOR

SHIFT

KEY

8

146

rem

139

rem

127

rem

211

rent

202

570

DATA

153,175,199,135,161,129

rem 213 :rem 56

580

DATA

141,164,133,137,134,147

:rem

42

590

202,181,159,151,163,201 196,139,192,149,150,155

:rem

37

600

DATA DATA

:rem

52

610

DATA

191,138

:rem

20

560

620

:

630

REM

640

:

*TOKENS

FOR

COMMODORE

:rem

210

KEY:rem

240

:rem

212

650

item

45

660

DATA

142,169,132,145,140,148

:rem

43

670

DATA

195,187,160,194,166,200

:rem

54

680

DATA

197,167,186,157,165,184

690

DATA

190,158,0

rem

rem

700

rem

710

REM

*CHECKSUM

ROUTINE

rem

720

730

FOR

740

CHKSUM

750

IF

AD=0 -

TO

158

CHKSUM

CHKSUM

<>

20347

READ

BY

BY

NEXT

:

THEN

72

121 11 147

rem

13

rem

25

AD

:rem 166 PRINT "ERRO

Rl"

:rem

143

3,172,116,193,200,136,177,90,72

5120 5130 5140

DATA L04,145,90,204,115,193,208,234, 236,118,193,208,221,238,118,193,232

5160

DATA

5170

,20, 172,115,193,136,200,185,162 DATA 193,145,92,185,122,193,145,90,2 04,116,193,208,240,96,189,89,193

5180

DATA

5190 5200 5210 5220 5230

32,72,112,152,192,4,4,4,4,4,4,4

DATA

5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4

DATA

4,1,1

See article on page 130.

Program 1: Files Written From Keyboard

215

A=C+1:C=A+B:NEXT:END

60

FORI=1TO4:READA:NEXT:READLO,HI:FORI=LO

IN BLOCK

CORRECT"

TOHI:READX:POKEI,X:NEXTiEND 5000

DATA

495 28

5010

DATA 174,114,193,224,3,144,3,76,117, 192,188,114,193,140,121,193,174 DATA 118,193,232,202,32,30,193,172,1 21,193,173,119,193,201,2,208,10 DATA 169,32,72,173,33,208,72,76,50,1 92,177,90,72,177,92,72,204 DATA 116,193,240,20,200,177,90,72,17 7,92,136,145,92,104,145,90,200 DATA 204,116,193,208,238,240,18,136, 177,90,72,177,92,200,145,92,104 DATA 145,90,136,204,115,193,208,238, 173,119,193,201,0,208,5,104,104

DATA 76,111,192,104,145,92,104,145,9 0,236,117,193,208,160,96,172,116

5080

DATA 193,200,189,114,193,170,32,30,1 93,173,120,193,201,2,208,19,136

5090

DATA

5100

53,162,193,204,115,193,208,239,240 DATA 16,136,177,90,153,122,193,177,9

169,32,153,122,193,173,33,208,1

2,153,162,193,204,115,193,208,240

236,117,193,240,37,202,32,30,19 June 1984

DATA

210 REM{11

fSPACEJ#"IiGOTO50

COMPUTEIS Gazelle

120,160,200,240,24,64,104,144,1

Tape Data Files For VIC And 64

50

176

DATA

,0

PRINT"BLOCK

DATA

24,105,40,168,104,96,72,152-56,

,5,5,5,5,5

40

5110

DATA

84,224,8,48,88,128,168,208,248

30

5070

133,91,24,105,212,133,93,189,64

2 33,40,168,104,96,0,40,80

225

5060

32,30,193,173,120,193,201,0,240

,193,133,90,133,92,96,72,152

tFORJ=ATOC:D=D+PEEK(J):NEXT IFDOXTHENPRINTTAB( 19) "ERROR

5050

116,193,200,136,32,48,193,177,9

5150

220

5040

DATA

0,72, 177,92,32,56,193,145,92

DATA11507,12573,12522,11001 A=49152:B=84:C=A+B:FORI=1TO4:D=0:READX

5030

234,236,117,193,208,221,240,46,

202,206,118,193,232,32,30,193, 172

10 20

5020

DATA

SPACES}* FILES WRITTEN

* :rem

Sec article on page 127 for instruct ions on line.

49152,

177,92,32,48,193,145,92,104,145

,90,32,56,193,204,115,193,208

200 REM(11

Scroll 64

#"I"IS

DATA

SPACES}*

106

FROM KEYBOARD * :rem 80 :rem 121

CLR

INPUT"(CLR}f5 DOWNjNO.

OF

ITEMS

LE";N

IN FI

:rem

DIMW$(N+1)

114

:rem

233

230 INPUT"{DOWN}FILENAME"jNAME$:IFNAME$=" ■i-l "THEN

END

: rem 44

240 PRINT"{DOWN}ON THE

PROMPT,":PRINT"TYP

E EACH ITEM,":PRINT"FOLLOWED RETURN(OFF}"

BY {RVS} :rem 67

245

OPEN1,1,1,NAME$

250

FORX=0TON:INPUTW$(X):PRINT#1,W$(X).IF W$(X)o"-l"THEN NEXT :rem 4

260

CLOSE1:FORX=0TON:PRINTW$(X):NEXT

265

PRINT"HIT

270

GETAS:IFA$=""THEN

280

GOTO200

:rem

101

290

END

:rem

114

ANY

:rem

41

:rem 122 :rem 36

KEY" 270

;rem

85

Program 2: Files Written From Data 500 REM{10 SPACES)* FILE WRITTEN *:rem 26 510 REM[10 SPACES}*t2 SPACESjFROM DATA {3 SPACES}* :rem 28 520 540

REM jrern 123 DATAW21,DELIGHT,CHAPTER,FARTHER,BUILT

550

DATABOUGHT,SCARF,FILLED,SAILED,REMAIN

.JOYFUL,STORIES

:rem

11

,CLOAK,PLACED,DRIVING,FEAST,STRONG,-1 :rem

551

150

DATAW22,FLYING,SOMETIMES,HIGHWAY,SNOW ING,CLOSING

:rem

16


560

DATABEDTIME,PUSHED,BRUSHES,DREAMING,B OOKCASE,PULLED

570

580

:rem

DATAAIRPLANE,BUYING,SPENDING,SKATED,D ECEMBER,-1,+1

:rem

221

READNAMES:RS=CHR$(13)

: rem

161

585

IFNAMES="+1"THENGOTO650

:rem

86

590

OPEN1,1,1,NAMES

: rem

44

600 620

READWRD$:PRINT#1,WRDS;R$ IFWRD$<>"-1"THEN600

630

CLOSE1

640

GOTO580

650

CLOSE1:END

srem :rem

64 L12

srem

[3

(2 13

14

350 360

IFNAME?="+1"THEN

370 380

:rem :rem

91 80

OPEN1,1,0,NAME$:N=0:DIMW$(16) INPUT#1,W$(N):N=N+1

:rem :rem

99 52

390

IFW$(N-1}="-1"THEN410

:rem 70

400

GOTO380

410

CLOSElsFORX=0TO(N-l):PRINTW${X):NEXT

420

PRINT"HIT

END

:rem

430 GETA$:IFA$=""THEN430 450 RUN350 460 END

38 29

rrem 81 :rem 38 ;rem 113

SPACES}{OFF

SPACES

15

16

:rem

73

{RVSIIrED}

(3

SPACES)(BLU)(2

(3 [3

SPACES){BLU){2 SPACES}{RED) SPACES)(OFF) (RVS}(3 SPACES){BLU)

PRINTTAB(9)"{2

SPACES)"

:rem 103

SPACES)(RVS)fRED)£

[RVS}{RED}[3 SPACES)

[BLU}{2 SPACES]" :rem 76 PRINTTAB(9)" {RVS}{RED}£(4 SPACES]

(BLU}f2 SPACES](RED)(2 SPACES][OFF]£

17

(SPACE){RVS](3 SPACES){BLU}(2 SPACES} (RED]{4 SPACES){BLU)(2 SPACES}":rem 82 PRINTTAB(9)"[RVS)(RED)£t5 SPACES} {BLU)(2 SPACES){RED} [OFF}£{2 SPACES)

ErVS](3

SPACES)(BLU}{2 SPACES}{RED}

(4 SPACES][BLU}(2

18

SPACES}"

PRINTTAB(9)"[RVS)(2

:rem 83

SPACES}{RED)

{4 SPACES) [BI.Uj [2 SPACES} {RED) EOFF}£ [3 SPACES]E*3IRVS![2 SPACES}(BLU} SPACES)(RED){4

(2 SPACES)" 19

BEFORE TYPING...

(2 SPACES](RED} [RVS} [3 SPACES} [BLII] (RVS](RED}{3 SPACES}

{3 SPACES](blu)(2 SPACES)" :rem 102 PRINTTAB(9}"(3 SPACES}[RVS}{5 SPACES} {RED}(3 SPACES][OFF} [RVS}(3 SPACES]

E2

20

Before typing in programs, please refer to "How To Type COMPUTERS Gazette Programs," "A

72

PRINTTAB(9)"(3 SPACES}{RVS}(5 SPACES) (RED)(3 SPACES}{OFF (RVS}(3 SPACES} {BLU)[2 SPACES}(OFF) (RVS][RED}

(2 SPACES)(OFF]

3-D Tic-Tac-Toe Sec article on page 50.

:rem

SPACES)(RVS)(RED]£

(BLUj{2 SPACES](OFF}

104

:rem :rem

ANY KEY"

SPACES}(OFF

{BLU)(2

83

REM(U SPACES}*{4 SPACESjFILE {4 SPACES}* jrem 2 35 REM{11 SPACES)*(3 SPACES}READER [3 SPACES}* :rem 127 INPUT"[CLR][8 DOWNjWHAT FILE";NAME?

310

PRINTTAB(9)"[3 (2 SPACES}{BLU

:rem 204 :rem 25

Program 3: File Reader 300

{BLU}(2 SPACES)(RED)[3 SPACES)[OFF} (RVS}{3 SPACES}(BLU)[2 SPACES)(OFF} [RVS}{RED}(3 SPACES}[BLU}{2 SPACES)"

196

SPACES){BLU)

:rem 138

PRINTTAB(9)"ERVS}{7 SPACES}[OFF)£ [5 SPACES} {RED)£*:|{RVS} [BLU} [7 SPACF.S}{OFF)£" j rem 80

PRINTTAB(9)"g*3TRVS}(5 SPACES](OFF}£ E7 SPACES}{RED}E*3{RVS](BLU](6 SPACES}

Beginner's Guide To Typing In Programs," and

25

{OFF]£" PRINTTAB{9)"(DOWN}(CYN)T

the Program Listings.

30

PRINTTAB(12)"!4 DOWN]^3^FIREBUTTON TO

Program 1:

35

3-D Tic-Tac-Toe—64 Version

IF (PEEK{ 56321 ) AND16 ) =16AND( PEKK{ 1^63 2(5) AND16)=16THEN35 :rem 172

52

2

DIM!) I(20):FORI=LTO27:READX1:X2=X2+X1:DI

0=1 53 PH=5427 2:CU=32:CC=0:S=5427 2 54 POKES+13,240

5

PRINTTAB(9)"(RED}[3 SPACES}{RVS}£

"The Automatic Proofreader" that appear before

I

:rem 39 c(RED) CC

{CYN}T A C(RED} CC(CYN} T 0 E":rem 107 {SPACEjPLAY"

:rem

6

(i+l)=X2tNEXTI:DI(l)=0

{6 SPACES)[OFF)[2 (6 SPACES)!;*:)"

40

82

55

193

56

:rem

SPACES){RVS}

:rem

PRINTTAB(9)"[2 SPACES)[RVS)£{8 SPACES}

(OFF}

{RVS} (7 SPACES H*3"

{RVS) (8 SPACES H*^ :rem 167 8 PRINTTAB(9)"{BLU}{RVS}£{6 SPACES)[red) 9

10

58

PRINTTAB(9)"{RVS}{8 SPACES}{RED) (3 SPACES){OFF] j RVS}(3 SPACES) [FLU)

60

{6 SPACES)E*3" [7 SPACES}B*3"

PRINTTAB(9)"{RVS}{2

£(2

:rem 2

:rem 59

SPACES}{RED][OFF}

SPACES)[RVS)£{blu][2

SPACES]

(rvs)[3 spaces) {rvs)[red}

{3 SPACES}{BLU}[2 SPACES}" :rem 148 PRINTTAB(9)"[4 SPACES){RVS][RED}£

:rem 124 :rem 176 ;rem 60

P(1)=1119:P{2)=1122:P(3)=1125:P(4)=12R :rem

P{7)=1283

198

;rem 78

P(9)=1289tP(10)=1439:P(ll)=1442:P(12)= 1445:P(13)=1521sP(14)=1524!P{15)=ir>27

59

Tred}[3 spacesHoff} {blu}{2 spaces){off} 11

57

fRVS)[3 SPACES](BLU}

{4 SPACES)(OFF}

PRINT"[CLR}E63";:POKE5 3281,R:DIMP{27):

1:P(5)=1204:P(6)=1207:P(8)=1286

: rem 166

7 PRINTTAB(9)" (RVS}£{9 SPACES}{OFFj

srem 116

:rem

10

=1759:P(20)=1762:P{21)=1765

:rem

10

=1923:P(26)=1926:P(27)=1929

:rem 20

P(16)=1603:P(17)=1606:P(18)=1609:P(19) P(22)=1841;P(23)=1844:P(24)=1847:P(25)

FORD=1TO2:PRINT"PLAYER

D):NEXT:CO(1)=4:CO{2)=5

*";D;:INPUTPL$(

FORV=1TO2:PLS(V)=LEFT${PL$(V)

M(2)=87:M(1)=86:L=1 INPUT"HOV;

MANY

ROUNDS";RD

t!(l)=56321:U(2)=56320

PRINT"fCLR){RED)";:FORV=1TO3 COMPUTB'sGaicllo

:rem

161

9):NEXT :rem

170

:rem

141

:rem

14

:rem

203

:rem

223

:rem

177

Juno 1984

177


110

PRINTTAB{12)"(RVSJ£*3(OFFJ{2

[2 SPACES]M{2 SPACEsjM"

SPACES)M

:rem 216

746

120

rem

164

item

140

M"

747

jrem 175 FORV=iTO12-LEN(PLS(L))-2:PRINT" ";iNE XT

:rem

SC(L)=SC(L)+1

rem

7 50 T=255:POKES+11,17:POKES+24,15

130

fj2 TjjMB2

TjjM"

SPACES]M{2

H=INT(16*RND(1)) POKEP(A)+PH,H POKEP(B)+PH,H

:rem 85 :rem 230 irem 232

112

:rem

163

:rem

144

790

POKEP(C)+PH,H

800

POKES + 8,T:FORD=1TO350 :NEXT:T=T-2f. :NFX

160

(2 SPACES3m{2

:rem

: rerxi

150

T|M"

FORX=1T

010

760 770 780

140

M"

42

161

SPACESjM" :rem

234

T:POKES+11,16:POKES+24,0:GOTO920 :rem

192

920

60

FORO=lTO27:POKEP(O),32tPOKEP(O)+PII,0:

170

PRINTTAB (17)'*E*3f RVS ) {9 SPACES} " :rem

234

175

ONVGOTO176,L77,330

rem

244

923

IFL=1THENL=2:GOTO930

:rem

176

PRINT" (BLII)"; :NEXT PRINT"(YEL)"r:NEXT

:rem 56 rem

925 930

L=l IFA=0THEN350

:rem 90 :rem 160

R=l POKEP(O),160:POKEP{O)+PH,1

:rem 36 rem 242

940

CU=32:CC=0:MX=0:NC=0:O=1

:rem

945

R=R+1:IFR>RDTHEN950

:rem

155

946

GOTO350

:rem

116

950

PRINT"£CLR}f7

955

PRINT"(9

177 330 340 350

194

PRINT"(HOME){YEL}ROUND:g63";R;"[HOME) (6 DOWN) £63" :PRINTPLS(L) ; " ' S TURN"; :rem

351

FORV=1TO12-LEN(PL5(L))-2:PRINT"

52

"; :NE

:rem

XT

34

360

J=15-(PEEK{U{L))AND15)

380

IFJ=8THENPP=1:GOTO410

390 410

IFJ=4THENPP=-1:GOTO420 :rem 89 :rem 111 GOTO459 IFO=27THENO=26 rNX=CU:NC=CC:GOTO43 3

415

NX=PEEK{P(O+1)):NC=PEEK{P(O+1>+PH):GO

400

:rem :rem

:rem TO430

165

rrem

420

IFO=1THENO=2:NX=CU:NC=CC:GOTO433

425

NX=PEEK(P(O-1)):NC=PEEK{P(O-1)+PH)

430

POKEP(O),CU:POKEP(O)+PH,CC

433

O=O+PP

435

CU=NX:CC=NC

440

POKEP(O),160:POKEP(O)+PH, 1

441

POKES+11,17:POKES+8,70 r POKES + 24,15

46

140 214

rrem

rrem 209 :rem 72 ;rem

:rem : rem :rem

442

31

64

165 243 205

FORD=1TO20:NEXT:POKES+24,0:POKES+11,1

6:GOTO460

:rem

67

459

FORD=1TO15:NEXT

460

POKEP(O),CU:POKEP{O)+PH,CC:FORD=1TO45 :NEXT:POKEP(O),160:POKEP(O)+PH,1

:rem

189

:rem

470

J=PEEK{U(L))AND16:IFJ=16THEN360 :rem

67

:rem

52

475

IFCU=32THEN480

476

POKES+ll,17:POKES+8,14:POKES+24,15 :rem

477

481 482

,Y:NEXTI

500

NEXTI

740

IFA=0THEN923

178

rrem

34

I=1TODI(O)+13:READX :rem

155

FORI=DI(0)+1TODI(0+1) :rem 196 READ X,Y:IF(PEEK(P(X))=M(L))AND{PEEK( P(Y))=M(L))THEN B=X:C=Y:A=O :rem 25

510 745

IF{PEEK{U(1))AND16)=16THENIF(PEEK{U(2

1000

))AND16)=16THEN990 POKE198,0:RUN

:rem

1080

DATA

DATA DATA DATA

1115

DATA

1120

DATA

1125

DATA

rrem :rem

PRINT"{H0ME}{7 D0HN}";PL5(L);" COMPUTE'S Gaictte

Jonol984

WINS I "

:rem

112

:rem

2

:rem

55

irem

95

:rem

30

14,16,15,IS,10,11,3,21,10,16,14 :rem

74

4,22,1,25,7,19,10,18,11,17,12,1

6,13,15,2,26

:rem

11

1,27,3,25,4,24,6,22,7,21,8,20,9

,19,12,18

:rem

127

13,14,6,24,3,27,9,21,10,13,18,1

7,12,14,7,25

:rem

18

11,14,16,18,8,26,9,25,7,27,12,1

5,10,14,16,17

srem

74

1155

DATA 9,27,20,21,22,25,23,27,1,10,9,1 4,7,13,3,11 trem 218

1160

DATA

23,26,2,11,8,14,19,21,19,20,27,

24,23,25

:rem

80

1165

DATA

1170

DATA

12,3,9,15,7,14,1,11,19,25,23,24

1175

DATA 6,15,4,14,23,21,26,27,19,22,7,1 6,1,13,9,17 :rem 236

,4,13,6,14

30 165

28

11,12,13,16,14,18,1,19,10,12,14

,17,2,20,3,19,1,21

DATA

:rem

7,9,2,5,17,26,14,20,1,5,3,6,7,8

,18,27,15,21,17,25,14,19

1135

36

3,9,14,22,4,5,1,4,3,5,8,9,16,25

,13,19,17,27,14,21

DATA

:rem

14,24,13,22,1,7,1,9,2,8,3,7,4,6

,14,23,15,24

1130

:rem 185 :rem 29

14,26,2,1,6,9,5,7,12,21,15,27,1

4,25,11,19,5,6 1110

142

2,3,4,7,5,9,10,19,13,25,11,21,1

4,27,1,3,5,8,11,20 1105

:rem

7,4,7,4,5,4,7,4,7,4,5,4,5,12,5,

4,5,4,7,4,7,4,5,4,7,4,7

1100

12

RIGHT) E33FIREDUTTON TO

PLAY AGAIN"

FORD=lTO250:NEXT:POKES+ll,16:POKES+24

RESTORE:READX:FOR

495

990

248

RIGHT) "PL$ ( 2 );":"; SC( 2

)

DATA

A=0 :R=0:C=0

20

PRINT"(DOl/N} [2

1150

490

146

980

POKES+11,17jPOKES+8,200:POKES+24,15

485

:rem

Y^fGRN}"

:rem

DATA

111

121

PRINT"(DOWNH2

1145

:rem

:rem

DOWNjFINAL SCORE"

970

POKEP(O),M(L)rPOKEP(O)+PH,CO(L):CU=M{ L):CC=CO(L) :rem 109

,0

SPACES}"

:rem

DATA

25 2

128

PRINT"[2 RIGHT}"PL$(1);":";SC(1)

1140

rrem

RIGHT}f3

,15 211

D0im){17

38 224

960

125

:rem

rrem

957 PRINT"(9 RIGHT}{YEL}% 11

FORD=1TO500:NEXT:POKES+24,0rPOKES+11, 16:GOTO360

480

56

Next

:rem

174

19,27,20,26,21,25,22,24,5,14,22

,23,21,27

:rem

127


1180 1185

DATA 3,14,20,23,25,27,8,17,2,14,19,2 3,21,24,25,26 :rem 69

290

DATA

300

9,18,3,15,7,17,1,14

:rem

[SrACE}A C[RED]

141

Program 2: 3-D Tic-Tac-Toi

PRINT"{DOWN)[CYN)T I

C

{CYN]T

T

O E":rein 184

AY" 310 POKEDD,255:P=PEEK(P1):IF

trem 64 -((PAND32)=0

PRINTTAB(2)"fDOWNj§33FIREBUTTOH TO PL )<>1

-VIC Version

C{RED}

C[CYN}

THEN

310

:rem 204

Memory expansion (any amount) required.

320

PRINT"{CLR)E63";:POKE36S79,10:0=1

100 PRINT"(CLR]":POKE36879,1S:DIMP(27)

325

H=256*PEEK(648):PH=307 20:IFPEEK(648)= 16THENPH=33792

:rem

154

330

CU=32:CC=0:S=36874:VO=36878

:rem

255

340

POKES+13,240

:rem

106

350

P(1)=31+H:P(2)=34+H:P(3)=37+H:P(4)=77 +H:P(5)=80+H:P{6)=B3+H:P(7)=123+H

:rem 191

360

P(8)=126+HiP(9)=129+H:P(10)=2O7+H

:rem 164

370

:rem 165

380

{3 SPACES](OFF) TRVS](2 SPACES}{BLU) (6 SPACES )l* jj" :rern 0

P(ll)=210+H:P(12)=213+H:P(13)=253+HtP (14)=256+H:P(15)=259+H :rem 11 P116)=299+H:P(17)=302+H:P{18)=305+H:P (19)=383+H:P(20)=386+H!P(21)=389+H

390

P(22)=429 + II:P{23)=432 + H:P(24)=435+H:P (25)=475+II:P(26)=478+H:P(27)=481+H

400

FORD=1TO2:PRINT"PLAYER

41B

FORV=1TO2:PLS(V)=LEFT5(PL?{V),8):NEXT :rem

215

420

M(2)=87:M(1)=86:L=1

rem

186

430

INPUT"HOW

450

PRINT"{CLR) (RED}11; :FORV = 1TO3

:rem

:rem

:rem

31

110 DIMDI{28):FORI=1TO27:READX1:X2=X2+X1: DI(I+1)=X2:NEXTI:DI(1)=0

120

130

:rem

DD=37154:P1=37151:P2=37152

PRINT"(RED)(3 SPACES}(RVS}£ (5 SPACES][OFF][2 SPACES)(RVS}

(5 SPACES)E*3"

140 PRINT"(2 SPACES}(RVS]£[7

[OFF}

150 PRINT"

{RVS}[6 SPACES)?*!"

160 PRINT"(BLU}{RVS]£{6

i*V

SPACES I SPACES}

:rem 57

{2 SPACES}£rVS}£{BLU}£2 SPACESJTRED} {RVS}{2 SPACES}{BLU}

{2 SPACES){OFF}{2 SPACES}£RVS}[RED} {2 SPACES}(BLU){2 SPACES}" :rem 107 190 PRINT"f4 SPACES}{RVS)(RED)£ [BLU} (2 SPACES}[RED}(2 SPACES)(OFF) (RVS)

{2 SPACES](BLU}(2 SPACES}[OFF] (2 SPACES}[RVS)(RED){2 SPACES}(BLU) SPACES}"

-

460 470

(2 SPACES}{BLU}[2 SPACES}{RED} {2 SPACES}{OFF} {RVS}{2 SPACES)[BLU] [2 SPACES}(OFF}{2 SPACES){RVS][RED} {2 SPACES][BLU]{2 SPACES]" :rem 23 210 PRINT"{3 SPACES]{RVS)£5 SPACES){RED]

490

SPACES)(RVS}(RED)£

{2 SPACES][OFF]

{RVS](2 SPACES]{BLU}

{2 SPACES][OFF](2

SPACES)[RVS}{RED)

{2 SPACES][BLU}(2 SPACES)" :rem 52 220 PR1NT"(3 SPACES)fRVS){5 SPACES}(RED) (2 SPACES){OFF} (RVS}[2 SPACES}[BLU} (2 SPACES]{OFF)[2 SPACES}{RVS](RED) (2 SPACES}{BLU}{2 SPACES}" :rem 53 230 PRINT" (2 SPACES] [ RVS } (REI)}£_ {3 SPACES)(BLU){2 SPACES){RED}

(2

SPACES){RED}{2 SPACES}{OFF}

(RVS}

(2 SPACES) {BL(J] [2 SPACES J { RED] (4 SPACES}{BLU]{2 SPACES}" :rem 119

250 PRINT"(RVS](RED]£(5

SPACES}(BLU)

(2 SPACES}{RED] TOFF}£ {RVSJ

(2 SPACES}{BLU}£2 SPACES}(RED} {4 SPACES)(BLU)[2 SPACES}" :rem 33

260 PRINT"{RVSJ{2 SPACES}(RED)£4 SPACES] £BLU}{2 SPACES)(RED){OFF]£{2 SPACES)

(RVS}[2 SPACES}[BLU)£2 SPACES}{RED] 270

(4 SPACES]{BLU)[2 SPACES)"

:rem 121

PRINT"{RVS](7 SPACES]{OFF]£ {3 SPACES}{RED)E*3(RVSl EBLU} (7 SPACES}{OFF}£" :rem 30 280 PRINT"£*3(RVS}(5 SPACES}[OFF}£ [5 SPACES}(RED)i*|(RVS}{BLU}

{6 SPACES][OFF)£"

:rem 254

:rem 207

ROUNDS";RD

PRINT"{7 SPACES}^9

PRINTTAB(6>" [RVSl^' {2 SPACES]M{2 SPACESjM"

(2

58

: rem

15

:rem

47

SPACES )M rrem

H"

180

:rem 128

PRINTTAB(7}"T*HRVSji*3{OFF}i2 T^M :rem

104

:rem

123

500

M"

510

PRINTTAB(9)"I*i[RVS)^«nOFF}E2 T^M 12

T^M£2

T^M"

:rem 99

520

{2 SPACES)M{2 SPACES}m(2 SPACES}M" :rem

186

530

PRINTTAR(ll)"g*^{RVS}{9 SPACES}{OFF)" I

jrem

177

540

ONVGOTO550,560,570

:rem

233

550

[2 SPACES}{OFF} {RVS}[2 SPACES){BLU) {2 SPACES][OFF]£2 SPACES](RVS}{RED} {2 SPACES)[BLU}(2 SPACES)" :rem 26 240 PRINT" (RVS}{RED]£[4 SPACES){BLU}

MANY

190

:rem 191 #";D;:INPUTPLS

(D):NEXT:CO(1)=4:CO(2)=5

480

PRINT"[3

160

:rem

srem 31

200

(2

163

:rem

(RVS}

PRINT"[RVS)[2 SPACES}[RED}(OFF}£

[2 SPACES}£OFF}

:rem

SPACES){RED}

170 PRINT"[RVS)(8 SPACES)(RED) (2 [OFF} {RVS}[2 SPACES) [BLU} [7 180

rrem 80

SPACES)

{RVSUfS SPACES) (OFF}

{7 SPACES H*?"

178

203

PRINT"{BLL1} "? :NEXT

: rem 62

560

PRINT"{GRN]"r:NEXT

570

R=l

580 590

POKEP(O),160:POKEP(O)+PH,2 :rem 249 PRINT"{HOME] {4 DOWN) {yEL} ROUND: g 6 3'" • R

600

PRINT"(HOME}{6 DOWM}";:PORV=1TO11:PRI

NT"

:rem 62 :rem 92

";iNEXTV

:rem

76

:rem

26

605

PRINT"£H0ME}{5 DOWN)":PRINTPL$(L);"'S

610

POKEDD,127:P = PEEK(P2)AND128f.Tl = -{P=0)

620

POKEnD,255:P=PEEK(Pl):J2=-((PAND16)=0

630

IPJ1=1THENPP=1:GOTO660

640

IFJ2=1THENPP=-1:GOTO680

":PRINT"TURN"

:rem 69

:rem

650

)

110

:rem 142 :rem :rem

93 142

660

GOTO760 :rem 113 IFO=27THENO=26:NX=CU:NC=CC:GOTO710

670

NX=PEEK(P(O+1)):NC=PEEK(P(O+1

+PH):G0

TO700

rem

:rem

680

145 217

IFO=1THENO=2:NX=CU:NC=CC:GOTO710 :rem

COMPUTE!'* Gazette

Jjnel984

37

179


690

NX=PEEK(P{O-1)):NC=PEEK(P(O-1)+PH)

700

POKEP(O),CU:POKEP(O)+PH,CC

710 720 730

O=O+PP CU=NX:CC=NC POKEP(O),160:POKEP{O)+PH,1

:rem 62 :rem 162 :rem 245

740

POKEVO,15:POKES,170

:rem

750

FORD=1TO20:NEXT;POKEVO,0:GOTO770

:rem

213

:rem

72

129

:rem

760 7 70

46

FORD=1TO15:NEXT :rem 184 POKEP(O),CU:POKEP{O)+PH,CC:FORD=1TO45 :NEXT:POKEP(O),160:POKEP{O)+PH,1 :rem

780

60

POKEDD,255:P=PEEK(P1):J= -{(PAND32)=0

790 800

):IFJ<>1THEN610 IFCU=32THEN820

:rem 229 :rem 50

POKEVO,15:POKES,160

:rem

125

810

FORD=1TO500:NEXT:POKEVO,0:GOTO610

820

POKEP(O),M(L):POKEP(O)+PH,CO(L):CU=M(

:rem

87

h) :CC=CO(L)

:rem

830 840 850

POKEVO,15:POKES,200 FORD=1TO250:NF.XT:POKEVO,0 A=0:B=0:C=0

:rem 123 : rem 82 :rem 30

107

860

RESTORE:READX:FOR I=1TODI(0}+13:READX

1170

4,25,11,19,5,6 DATA

,14,23,15,24 DATA

3,9,14,22,4,5,1,4,3,5,8,9,16,25

1190

DATA 7,9,2,5,17,26,14,20,1,5,3,6,7,8 ,18,27,15,21,17,25,14,19 :rem 102 DATA 11,12,13,16,14,18,1,19,10,12,14

,13,19,17,27,14,21

1200 1210 1220

DATA 1,27,3,25,4,24,6,22,7,21,8,20,9 ,19,12,18 :rem 127

1240

DATA

1250

7,12,14,7,25 :rem 14 DATA 11,14,16,18,8,26,9,25,7,27,12,1 5,10,14,16,17 :rem 75

1260

DATA

13,14,6,24,3,27,9,21,10,13,18,1

9,27,20,21,22,25,23,27,1,10,9,1

4,7,13,3,11 DATA

23,26,2,11,8,14,19,21,19,20,27,

1280

DATA

1290

DATA

1300

DATA

1310

DATA

1320

3,21,24,25,26 DATA 9,18,3,15,7,17,1,14

24,23,25

:rem 82

12,3,9,15,7,14,1,11,19,25,23,24

,4,13,6,14

FORI=DI(O)+1TODI(O+1)

:rem

193

READ

890

P(Y))=H(L))THEN NEXTI

900

IFA=0TMEN1010

910

PRINT"(HOME)[14

DOWN}(10

920

PRINT"{HOME)[14

DOWN)";PL${L):PRINT"W

INS1";

:rem

173

930

SC(L)=SC(L)+1

:rem

155

940

T=255:POKEVO,15:POKES,133::FORX=1TO10

950

H=INT(16*RN[)( 1) )

960

POKEP(A)+PH,H

;rem

231

See article on page 84,

970 980

POKEP(B)+P1I,H POKEP{C)+PH,H

:rem :rem

233 235

50 REM **{11

990

POKES,T:FORD=1TO350:NEXT:T=T-26:NEXT:

199

SPACES]" :rem

108

:rem

POKES,160:POKEVO,0:GOTO1000

1000

14

:rem 86

:rem

117

F0RO=lTO27:POKEP(O),32:POKEP(O)+PH,0 :NEXT

:rem

76

1010

IFL=1THENL=2:GOTO1030

1020 1030

L=l IFA=0THEN590

:rem :rem

:rem

125 206

1040

CU=32:CC=0:NX=0:NC=0:O=1

:rem

168

:rem

233

1050

R=R+1:IFR>RDTHEN1070

1060

PRINT" [HOME) (14 DO\JN)[ll INT"{5 SPACES}":GOTO590

1070

PRINT"!CLR)[7 DOWN){17

44

SPACES]":PR :rem 181

SPACES]"

:rem

163

1080 1090

PRINT"(3 DOVJN)FINAL SCORE" PRINT"(yelH11 Y^[GRN)"

: rem 179 :rem 52

1100 1110

PRINTPL$(1);":";SC(1) PRINTPLS{2);":";SC(2)

:rem :rem

1120

PRINT"[DOWNjFIREBUTTON TO PLAY [4 SPACES}AGAIN,(E) TO END" :rem 29

1125

POKEDD,255:P=PEEK(P1)

1128

GET

1129

IF

XX$:IF

XXS = "E"

-((PAND32)=0)<>1

THEN

THEN

:rem END

: rem

1130

POKE198,0:RUN

1140

DATA

180

DATA

:rem

6,1,13,9,17

:rem

52 53

June 1984

:rem

227

DIM CL(20,40) :rem 19 PRINT"{CLR}{BLU)":SYS65517:WI=PEEK(781

):IFWI=22THENWI=0:POKE36879,238:SS=2:P H=.5 :rem 163 54 IF WI=0THENAA$="VIC":BBS="VIC":GOTO60 :rem

55

91

POKE5 3280,1:POKE5 3281,15:SS=12:WI=8:PH =1

:rem

5

57 AA$="64{DOWN){22 LEFT)":BB$-"64" :rem

60

IF WI=0

89

THEN CL(4,18)=l:CL(4,31)=2:CL(

10,18)=3:CL(10,31)=4:GOTO80

:rem

108

63

FORA=6TO12STEP6:FORB=17TO33STEP16:S=64

70

6:POKES,SS T=T+1:CL(A,B)=T:NEXTB,A

80

PRINT"(6

S[3

:rem :rem

40 42

DOWN)";:PRINTTAB(WI+5)"{BLK}S

HAPE MATCH" 190 GOSUB3000:REM

**{2

:rem 123 SPACES}INSTRUCTION

SPACES]**

:rem 88

FORT=1TO1000:NEXT

300

REM

302

REM **{8 SPACES}SELECT {6 SPACES]**

305

REM

33

:rem 64 :rem 132

SPACES) INITIALIZER SPACES)*

*

210

33

226

VIC users mu$l have at least SK memory expansion.

195

14,26,2,1,6,9,5,7,12,21,15,27,1

COMPUTE!1!. Gazette

:rem

3,14,20,23,25,27,8,17,2,14,19,2

GOSUB1000:RrM

33

130

Shape Match For VIC And 64

**

PRINT

BOARD

** :rem

2,3,4,7,5,9,10,19,13,25,11,21,1

4,27,1,3,5,8,11,20 1160

:rem

:rem

6,15,4,14,23,21,26,27,19,22,7,1

200

7,4,7,4,5,4,7,4,7,4,5,4,5,12,5,

4,5,4,7,4,7,4,5,4,7,4,7 DATA

6

,23,21,27

233

1125 :rem

1150

157 160

:rem 172

19,27,20,26,21,25,22,24,5,14,22

880

:rem

:rem 215

1270

870

36 41

57

1230

156

:rem :rem

jrem

,17,2,20,3,19,1,21 :rem 24 DATA 14,16,15,18,10,11,3,21,10,16,14 ,15 :rem 73 DATA 4,22,1,25,7,19,10,18,11,17,12,1 6,13,15,2,26 :rem 6

:rem

B=X:C=Y:A=O

:rem 8

1180

,Y:NEXTI

X,Y:IF{PEEK(P(X})=M(L))AND{PEEK(

:rem 113

14,24,13,22,1,7,1,9,2,8,3,7,4,6

142

: rent 25

*******************************

:rem

141

:rem

165

SHAPES

*******************************

:rem

146


306

K=RND(-TI)

310

K=INT(RNI)(0)*4)+lsIFK=KKTHEN310

:rem

32

740 GOTO850: REM (4 SPACES}**

33

800

REM

802

REM **[9 SPACES}CORRECT ANSWER

29

804

REM

SPACES}DELAY srem 27

S10 820

BO$ = "{RVS}{WHTJYES I THAT'S RIGHTI":A= 18:GOSUB1174:PRINT"{HOMEj" :rem 8 BO$="|5^{rvs){BLK} PRESS ANY KEY

825

GETA$sIFA$=""THEN825

B30

FORA=1TO23:BO?="{40

:rem

320

REM

340

FORT=1TO3:GOSU132000:BO$ = SHS(T) :A=4+T:

:rem

:rem

345

GOSUB1180:REM **{6 (6 SPACES}**

34S

IFWI=0THENFORT=lTO3sGOSUB2100:»OS=SH$

349

IFWI=0THENGOSUB1170;NEXTT:GOTO3 5 5

:rem : rem

350

157

T

:rem :rem

32

355

GOSUB1180

231

360

FORT = 1TO3:GOSUI32200:BO? = SHS(T) :A=10+T

:B=18:PRINT"(HOME)":GOSUB1170:NEXT T :rem

:rem

78

365

GOSUB1180

370

FORT=1TO3:GOSUB2300:BO$=SHS(T)sA=10+T :B=28:PRINT"{HOME}":GOSUB1170:NEXT T 81

375

GOSUB1180

380

FORT=1TO3

383

ONKGOSUB2000,2100,2200,2300

385

BOS=SH$(T)sA= 8+T:B=3:PRINT"{HOME)":G OSUB1170sNEXT

T:KK=K

26

152

:rem

;rem

23

500

REM

5 50

REM

END

600

REM

*******************************

85 144

602

REM **{10 SPACES]MOVE CURSOR {6 SPACES}**

604

REM

srem

148

605

PRINT"fHOME}":C=1:FORNT=1TO10:rem

159

610

FORT=lTO15sBO$=CHR$(63):IFT/2=INT(T/2

613

IF

srem 57

*******************************

)THEN

BO$=CHR$(18)+CHRS(63)+CHR$(146) :rem

615

WI=0THEN

ONC

ON

C

GOTO

GOTO670,675,680,685

srem srem

132 185

620 GOSUB1170:PRINT"(HOME}":FORTT=1TO 75: {8 SPACES}NEXTTTsGOTO700 srem 112 625

NEXT

T

irem

48

630

BO$=CHR$(32jsGOSUBl170:PRINT"{HOME}": (8 SPACES}FORTT=1TO 75:NEXTTTsC=C+l :rem

163

:rem

srem

: rem

190

:rem

:rem 230

SPACES}**

**{2

SPACES}RE-PRINT

850

REM

*******************************

852

REM **[11 SPACES)WRONG ANSWER {4 SPACES)** srem

854

REM

855

BO$=CHR$(32):GOSUB1170:PRINT"(HOME)"

860

BO$=" { RVS }&. 53 {BLK} SORRY...TRY AGAIN

865

FORW=LTO1000:NEXT

870

BO$="(22

875

C=C+1:IFO4THENC=1

880

GOTO

999

REM(2

1000 1015

srem

:G0SUB1174.-PRINT" [HOME}" 625

srem

*.§S3":A=3:B=15sGOSUB 1170: PRINT" {HOME ":GOTO1030

1020

srem

*_•_*_*_*_*_*. £S3 (OFF} "sGOSUiJl 170: PRINT" {HO

ME}"

:rem 216

1025

REM

:rem

172

1030

FORT=lTO5sA=3+TsB=15

:rem

206

1035

IP WI=0THENUO$="

{RVS)-(OFF)

(5 SPACES}{RVS)Z{OFF){5 SPACES][RVS] Z{OFF}":GOSUBH70 : PRINT" [ HOME )": GOTO

1045

NEXT

164

1047

IFWI=0THENA=9:B = 15

680

A=6sB=33.-L=3sGOTO620

:rem

114

683 685

A=4:B=31:L=3sGOTO620 A=12:B=33:L=4:GOTO620

srem :rem

113 165

687

A=10:B=31:L=4:GOTO620

:rem

163

700

REM

1045

(OFF}{9 SPACES}{RVS)B(OFF}":GOSUB117 0:PRINT"(HOME}" :rem 206

1050

IF A$="Q"THEN PRINT"(CLR}"SEND

720

IFCL{A,B)=K

93

*_?jtll*_*-*Bw3 [OFF] ":GOSUB1170: PRINT" {il OME}":GOTO1060 srem 21

A=9:B = 15:BO$ = " {RVS} Icpil*********+****

s rem

1060

FORT=1TO5:A=9+T:B=15

1065

TFWI=0THENBOS="

srem

10

215

{RVS)-{OFF)

{5 SPACES} (RVS)-(OF[-'!T5 SPACES) (RVS}

-{OFF}"sGOSUBl170.-PRINT"[HOME3"sGOTO

srem 7

1073

54

:rem

1070

BO$="{RVS}B[OFF}(9

1073

NEXTT

THEN800sREM CORRECT srem

:rem

) "

srem 149 :rem 88

715

T

*J*_*J*Jt^W!l {OFF} "sGOSUB1170: PRINT" {HOME

*******************************

625

:rem 43

1040 BO$=" (RVS)B^(OFF} {9 SPACES} (RVS)B_

****•**********+***********«*•*

GETA?:IFA$=""THEN

76

A=3:B=15:BOS = " f RVS I E A3 ********* jjRj **

:rem

710

123

PRINT"(CLR)(RLU)" :rem 68 IFW1=0THENBO? = " { RVS ] E.A3**_*_** E.R3*_***.

A=12sB=17iL=2sGOTO620

REM

33 118

SPACES}************************

******

675

704

181

:rem

113 161

:rem 217

: rem

: rem

111

SPACES)**

44

SPACES)":A=18s{6 SPACES)B=10

srem

{4

236

...{WHT}{OFF)":{7 SPACES}A=18sB=10sGO SUB1174:PRINT"(HOME}" srem 151

:rem :rem

702 REM **[5 SPACES}CHECK FOR RESPONSE

155

srem

A=6:B=17sL=lsGOTO620 A=10:B=18:L=2:GOTO620

145

136

srem

A=4sB=18sL=liGOTO620

:rem

151

*******************************

670 673

12

BOAR

:rem

660

:rem

21

D{2

IFO4THENC=1

SPACES]**

97

SPACES)":B=0sGOSU

:rem 253

NEXTNT:GOTO600:REM

(2

190

:rem

PRINT"(HOME)":NEXT

640

SPACES}REPEAT

150

{WHT}(OFF}"sA=20:GOSUnl174:PRINT"

650

**f2

srem 8

*******************************

GOTO200:REM

182

660,67 3,683,687

146

840

121

srem :rem

SPACES)**

233

srem

:rem

(4

232

srem :rem

:rem

B1170

835

196

*******************************

(HOME)"

145

FORT=1TO3:GOSUB2100:BO$=SH$(T):A=4+Ts

B=28:PRINT"(HOME}":GOSUB1170:NEXT

SPACES}WRONG :rem

121

B=18s PRINT" {HOME} "sGOSUBl170 sNEXT T

(T):A=4+T:B=32:PRINT"{HOME]"

**{2

47

SPACES}{RVS}B

(OFF}{9 SPACES}{RVS)B{OFF}":GOSUB117 0:PRINT"[HOME)" :rem 209 srem COMPUWsGo7elte

June 1984

94 181


1078

":PRINTTAB(HI)"NEXT TO

A=15:B=15!lFWI=0THENBO$="

THE

SHAPE HE" irem

***gEa***.*.*gXj (OFF }":GOSUB1170: PRINT"

1080

{HOMEl":GOTO1090

: rem 43

PRINTTAB(WI)"OR SHE THINKS IS":PRINT TAB(WI)"CORRECT, THE STUDENT"

3155

PRINTTAB(WI)"SHOULD

3156

PRINTTAB(WI)"THE

3160

TE" :rem 58 PRINTTAB(WI)"THE ANSWER AND LET":PRI NTTAB(WI)"THE STUDENT KNOW HOW"

3165

PRINTTAB{WI)"HE DID.

3190

AM.{DOWN)" PRINTTAB(WI)"PRESS

3195

GETA$:IFA$=""THEN3195

221

3196

PRINT"{CLR){WHT]"CHR${142)

NEXT:PRINTT

3200

RETURN

BOg-"{RVS]jZ|*********gEg*********

gX| {OFF} ":GOSUB1170iPRINT" {'HOME J" ' :rem

BO$=T$ : A=20:13 = 13 :GOSUB1170: PRINT"

1093

(HOME)" PRINTTRB(WI)"(2

1095

:rem

223

1090

UIT.[HOME}"

135

3150

:rem 113

RETURN

105

ANY KEY." :rem

:rem 12 (Q) TO Q

SPACES)TYPE

PRESS

:rem

175

:rem

147

:rem

220

"jBBS;"

WILL

194

EVALUA

:rem

1110 1111

REM REM

**{11

SPACES)PRINT[10

SPACES}**

******************************

:rem

1170

FORI=1TOA:PRINT"(DOWN)";

:rem

1174

FORI=1TOA:PRINT"(DOWN}"; AB(WI)BO$:RETUI1N

1175

REM

1180

FORX=1TO500:NEXT:RETUKN REM

SIf?(l) = " (RED) (RVS]§3 M SH?{2)=" {RVS}{3 SPACES}"

2020

SHS{3)="

125

:rem

178

:rem

2000

2025

:rem

:rem 66

2015

{RVS)(3

:rem

166

224

:rem

153

SPACES}[WHT]":RETUR

N

:rem

190

2100

REM

:rem

167

:rem

115

2120

SH$(2)="{RVS)f 3 SPACES}" :rem 154 SHS(3)="{RVS)| RIGHT) (RIGHT)!WHT}":R

2115

2125

SIi$(l ) = "{PUR} {liVS) {RIGHT)

2 200

REM

2215

SH$(1)="[BLK}i RVS) (3

;rem

249

:rem

158

RIGHTU" :rem

2220 2225 2300

SHS(2)="[RVS)I 2

RIGHT)£

SHS(3)="{RVS}| RIGHT)£{2 (WHT}"sRETURN REM

"

46

:rem 126 :rem

134

:rem

169

2315

SHS(1)="[BLU}{RVS){2

2320

SH$(2)="{RVS)[RIGHT}£{2 SPACES} §* 3" :rem 65 IFWI=8THENSH?(3)="{RVS}£{4 SPACES)

2325

RIGHT}£§*! :rem 157

g*3":RETURN

:rem

2330

SH$(3 ) = "":RETURN

3000

PRINT" {4 DOWN}" ; : PRINTTAI3 (WI ) " {2 SPACES}INSTRUCTIONS (Y/N) ?"

166

GETA$:IFA$=""THEN3020 lFA$ = "N"THt:N3200

:rem : rem

3040

IFA$="Y"THENPRINT"{CLR]":GOTO

1

173 125

3100 :rem

95

3050 3100

GOTO3020 :rem 198 PRINTTAB(WI)"IN SHAPE MATCH,THE "AA$ ;:PRINTTAB(WI)"WILL PRINT A SHAPE ON

3110

PRINTTAB(WI)"THE

"

:rem

NTTAB(WI)"THE

COMPUTEI's Gazette

"The Automatic Proofreader" that appear before the Program Listings.

Program 1:

The Frantic Fisherman—Redefined 1

PRINT"[CLR}{3

2

{2 SPACES}FISHERMAN" PRINT"[4 DOWN} LOADING

DOWN!{2 SPACES}FRANTIC :rem 108 CHARACTERS.." :rem

129

FORT=7168TO7168+62*8-l:RRADA:POKET,A:N EXT

:rem

181

20

DATA14,62,254,62,14,2,6,6

:rem

131

30

DATA14,14,14,22,22,22,54,54

:rem

222

40

DATA118,118,246,2 54,246,2 46,246,246

50

DATA0,0,0,1,1,3,7,7

60

DATA246.246,246,254,246,246,246,246

70

:rem DATA15,31,63,127,25 5,25 5,255,255 :rem

80

DATA0,0,0,0,0,3,7,31

141

:rem

70 147 242

:rem 116

90 DATA246,246,6,254,254,6,6,15 100 DATA255,255,8,255,255,0,0,0 110 DATA127,127,64,255,255,0,0,0

:rem :rem :rem

45 23 70 183

132

140

DATA2 55,255,2 54,.2 54,2 52,248,240,224 :rem

182

26

150

DATA6,12,24,240,192,0,0,0

:rem

165

OF THE SCREEN,":PR WHICH WILL"

160

DATA0,0,0,192,240,24,12,6

:rem

166

170

DATA96,48,24,15,3,0,0,0

:rem 80 :rem

THE

LEFT."

Junel?84

Beginner's Guide To Typing In Programs," and

:rem

3140 PRINTTAB(WI)"WHEN THE 183

To Type COMFUTET's Gazette Programs," "A

DATA170,255,85,0,255,85,0,170:rem

206

219

180

DATA0,0,0,3,15,24,48,96

ON":PRI

190

DATA40,40,170,60,28,252,12,60:rem

200

DATA12,40,40,248,248,40,20,40:rem 113

:rem

PRINTTAB(WI)"MATCH

BEFORE TYPING... Before typing in programs, please refer to "How

130

STUDENT"

PRINTTAB{WI)"WILL FIND 4 DIFFERENT": PRJNTTAB(WI)"SHAPES ON THE RIGHT" PRINTTAB(WI)"SIDE INTTAB(WI)"ONE OF

37 165

DATA255,255,127,127,63,31,15,7

THE

:rem

3130

167

OF THE":P :rem

3120

srem

120

LEFT SIDE

RINTTAB(WI)"SCREEN. 3115

199

:rem

:rem

:rem

3020 3030

216

:rem

See special instruction* in article on page 58.

10

23

:rem

:rem

Characters, VIC Version

SPACES)

(RIGHT)"

KEY

PROGR

:rem 176 TO PLAY";

The Frantic Fisherman

RIGHT)"

ETURN

TO":PRINTTAB(WI)"END THE ANY

212

[RVSjQ

14R

NEXT:PRINTT

AB(B*PH)BOS:RETURN

{OFF)

TYPE

SHAPE

:rem

ERVS)7{OFF]

201

IS

210

DATA40.40,170,60,52,63,48,60

:rem

81 122

73


220 DATA48,40,40,47,47,40,20,40 :rem 22 230 DATA32,48,190,187,252,2 55,190,128 :rem

88

240 DATA4,12,125,221,63,255,125,l:rem 118 250 DATA0,0,0,0,0,0,7,195 :rem 219 260 DATA0,0,0,0,1,13,109,255 :rem 113 270

DATA0,0,0,0,128,224,248,248

GOTO7000

100

DATA199,25 5,2 55,255,255,255,255,255 :rem

320

DATA0,19 2,240,240,224,248,2 52,248

330

DATA255,7,31, 127,3,24,31,31

340

DATA0,0,0,0,0,0,0,0

:rera

120

PRINT"{CLR} (11

130

POKE646,10:PRINT"{4 LEFT}KKK":PRINT"

350 DATA255,255,2 55,255,255,127,2 5 5,255,0 ,0,0,0,0,0,0,0

360

:rem

DATA3,3,193,1,1,1,0,0 DATA0,0,0,0,0,3,12,0 DATA0,0,0,48,192,0,0,0

:rem 224 :rem 152 :rem 11

420 430 440 450

DATA127,127,63,63,31,15,7,3 DATA1,2,4,8,16,32,64,128 DATA0,0,0,0,4,4,8,8 DATA255,127,31,7,0,0,0,4

:rem 30 :rem 133 :rem 126 :rem 124

460

DATA16,16,32,32,0,0,0,0

470

DATA4,4,4,4,4,4,4,0

47 5

DATA25 5,199,189,207,245,143,255,255

480

DATA2S5,129,145,169,169,169,145,2 55

490

DATA2 55,129,145,177,145,145,185, 255

:rem 64 :rem :rem :rem :rem

133 211 210 202

DATA2 55,129,153,165,137,145,189,25 5 :rem

195

DATA2 5 5,129,185,137,153,137,185,25 5 :rem

195

520 DATA255,129,153,169,189,137,137,255 :rem

202

530 DATA25 5,129,189,161,lB5,133,ia5,255 :rem

199

540 DATA255,129,157,161,185,165,153,2 55 :rem

195

5 50 DATA2 55,129,189,13 3,137,145,145,2 55 :rem

196

:rem

192

560 DATA255,129,153,165,153,165,153,255 570 DATA255,129,153,165,157,133,185,255 srem

DATA16,2,32,136,80,42,116,56

BEM LOWER MEMORY 512

BYTES

197

:rem 1 :rem 207 :rem 245 ;rem 78

:rem 253

630 POKE52,PEEK(52)-2:POKE56,PEEK(56)-2 :rem

215

Program 2:

PRINT"fHOME}(6 DOWNH2

181

!rem

158

RIGHT]"CLS"

[7 UP){4 RIGHT}"CLS"[3 DOWN]{3 RIGHT)

"CL?;

:rem

235

PRINT"{YEL}{8 UP}%S,]](4 LEFT} {DOWN} '(

)]{3 LEFT)[DOWN]*+,(2 LEFT}{DOWN}-." :rem

252

L-l!PRINT"S";iNEXT :rem 44 L0=8128:POKELO+CO,10:POKELO,18:POKELO -TT,17iPOKELO-TT+CO,10:POKELO-1,15 :rem

190

:rem 111

30 V=36878:NO=V-1:S=V-2:S2=V-3:S3=V-4:CO= :EG=2000:TT=22:T6=256:Z=32:DE=29 :rem

63

17 5

POKELO-1 + CO, . iCL=LO-1: POKES 132+-CO,L0: POKE8110+CO,10:POKE8133+CO,.

:rem

37

200 TY=FNRN(2)+1:ONTYGOTO210,300 :rem 158 210 X=FNRN(2)+1:ONXGOTO220,230 :rem 248 2 20 BC=8142:F.C=8149:SP=1:DD=21:GOTO240 : rem

230 240

176

BC=8163:EC=8155:SP=-1:DD=22 :rem 214 FORDL=BCTOECSTEPSP:POKEDL,DD:POKEDL+C O,.

:rem

150

2 50 GOSUB1000:POKEDL,Z:NEXT:IFSD< >196THEN 3000 :rem 60 260 300

SD=. .-GOTO200 NU=.:Y=59:C=6:>

: rem

320

rem

110

310 320

B=7776:E=8084:GOTO330 B=7758:E=808R

rem

135

rem

131

330

FORDL=BTOESTEPTT:POKEDL+CO,C:POKEDL,Y

340

POKEDL,2:NEXT:IFSP< >T6THEN3000

350

SP=.iGOTO200

:GOSUB1000

1000

159

2)+l:ONXGOTO310,

:rem

118

rem

183

:rem

171

CK=PEEK(197) :IFCK = r)4THF:NfORR=0TODE:N EXT:RETIJI!N

jrem

IFCK=29ANBLO=8132THEN1500

1020

IFCK=37ANDLO=8128THEN1750

1030

IFCK=ZTHENONTYGOTO2000,3500

:rem

224

1040

RETURN

:rem

165

1500

POKELO,Z:POKELO-TT,Z:POKECL,ZiLO=812 8:CL=LO-1

1510

1520 17 50

:rem

53

1010

245

:rem

:rem

1

215

POKELO,18:POKELO-TT,17:POKECL,15:FOR SD=130TO150STEP2:POKES2,SD:NEXT;POKE S2,. RETURN

:rem :rem

191 168

POKELO,Z:POKELO-TT,Z:POKECL,Z:L0=813 2:CL=LO+1

:rem

215

1760

POKELO,20:POKELO-TT,19:POKECL,13

1770

FORSD=150TO130STEP-2:POKES2,SD:NEXT:

:rem

The Frantic Fisherman—Main Program, VIC Version 10 CLS = " [WHT)WXY(5 LEFT)[DOWN}Z[££]T {5 LEFT! {DOWN}-* US" :rem 213 20 DEF FNRN(X)=INT(RND(1)*X)

150

:rem

180

390 400 410

620

DOWN)":POKEV,15+16*9

162

:rem

610

f CYN}]]]]]]]]]]]]]]]]]]]]]{LEFT}

192

DATA0,0,63,0,0,0,0,0

580 DATA20,58,28,119,8,54,8,54 590 DATA8(8,28,20,58,62,62,28 600 DATA28,62,127,73,8,8,40,16

trem 84

;rem

380

510

D0WN){GRN}!3

{4 LEFT)(DOWN}{RED)JKKKL";

POKE36879.238

160

33 153

170 PRINT"{HOME}{BLK}/"SC;:POKE646,8:PRIN T"{HOME}{DOWN}";[IF GL>1THENFORT=1TOG

370 DATA255,192,240,252,0,0,128,0:rem 122

500

RIGHT}{18

:rem

{LEFT}{DOWN}[WHT)A{2 LEFT}(DOWN)CB {3 LEFT){DOWN}FED(3 LEFT){DOWN}IHG

140

164

DATA255,255,255,255,252,255,255,224

:rem

(INST}](HOME)(3

72 101

207

EG=2000

:rem 22 :rem

100

:rem

POKE36869,255

310 DATA25 5,2 55,2 55,2 55,255,255,255,255 194

:rem

105

200

:rem

GL=3:SC=.

110

:rem 22

280 DATA0,0,0,0,1,15,15,15 :rem 11 290 DATA7, 3,15,63,255,255,255,255:rem 146 300

40

POKES2,.:RETURN

2000

:rem

29 126

POKECL,PEEK(CL)+1:FORSD=2 50TO200STEP -10:POKENO,SD:NEXT:IFPEEK(CL+TT)=DDT HEN2100

:rem

50

2010

POKECL,PEEK(CL)~1:POKENO,.:RETURN

2100

SC=SC+75:PRINT"(HOME){BLK)/"SC:GOSUB

:rem

4000

:rem COMPUTE!'!. Gazette

Juno 1984

138

180 183


2110

POKEDL,58:FORSD=254TO198STEP-2:POKED L+CO,FNRN(8) :POKENO,SD:NEXT

; rein

109

2120

POKENO,.:GOTO2010

3000

GL=GL-1:FORT=130TO254STEP2:POKES,T:P

:rem 33

:rem

170

EXT

^

50

-(9

SPACES}-"

:rem 238

SPACES ]HIGH £CORE:";HS

PRINT

"[SHIFT-SPACE}-[2

IFGL=.THEN7000

3030 3500

POKENO,.:GOTO120 IFNU>2THENRETURN

:rem 72

3510

NU=NU+1:POKELO-44,60:POKELO-44+CO, 4:

:rem 242 :rem 121

FORSD=150TO180STEP10:POKES2,SD:NEXT:

POKES2,.

srem 95

3520

IFPEEK{LO-66)=59THEN3600

3530

POKE(LO-44),ZsRETURN

:rem

:rem

75 100

"{SHIFT-SPACEl^tg SPACES}-" :rem

70

145

PRINT "{SHIFT-SPACE]-[2 SPACES} *«+**** *-ERj*****BRg*****gRg*E "

:rem

80 PRINT

54

"{SHIFT-SPACE}-{2 SPACES)-

{6 SPACES }-{ 5 SPACESTj^{5 SPACEST-

{5 SPACES}- ^(4 SPACES}-" :rem 193 90 PRINT "{SHIFT-SPACE}-[2 SPACES}SPACES}EU3{2 SPACES]^ EA3

166

:rem 27

SC=SC+50:PRINT"{HOME}[BLK}/"SC:GOSUB 4000:POKELO-66,61

: rem

SPACES}

SPACES}YOUR £CORE:";SC:rem

60 PRINT

!rem 29

3020

3610

"

POKELO-TT,218:FORT=15TO0STEP-.2:POKE

S,.:POKENO,160:POKEV,T+FNRN(16)*16:N

3600

PRINT

g

OKENO,T:POKEV,15+FNRN(16)*16:NEXT 3010

30

40 PRINT "{SHIFT-SPACE"M2 SPACES}

:rem

100 PRINT

"[SHIFT-SPACE}Z{2

176

SPACES)~_ z

{4 SPACES}- EA^*gSE ZZZZZZZZ

227

FORSP=200TO2 54STEP2:POKES,SP:NEXT:PO

KES,■

:rem

233

3620

POKELO-66,Z:RETURN

:rem

206

4000

IFSO=EGTHENGL=GL+1 :DE=DE-4 :EG=EG+20

110

PRINT

" ^[2

SPACES )■- ^{4

_______

120 PRINT

_{4

SPACES}- - -

SPACES)--"

irem

86

:rem

73

lll

00:POKE7700+GL,19:POKE7700+CO+GL,8:G

OTO4020

irem

:rem

30

4010

RETURN

165

4020

FORT=130TO230STEP10:FORR=T+10TOTSTEP

-1:POKES,T:NEXTR,T:POKES,.:RETURN

:rem 7000

7010

ENHS=SC

(3 SPACES)gA^ES^":PRIMT"f3

{6

SPACES}

:rem 147

PRINT"[3 **E2

)^3JEE|**£3

{SPACE)—"

:rem

21

Z^

E x 11 z 3TeT*^ eUIxTTz II e1_TeTE 65 E3IX3IZ3BX3"

7070

PRINT "-{9 SPACES)-[9 [SPACElRIGHT"

PRINT

"-{2

231

SPACES]LEFT TO :rem 110

SPACES } EA3*gRg****

SCORE:"HS

:rem

EO3 r{3

SPACES)z";

"-;{2

200

PRINT Esg -

M2 SPACES)^ |0J___|S3 - EAg_ ea3_Ex3- z{2 spaces}z zz zz zzz

210

PTTTNT

_Jz fjA^Ts^-/1 ; —";

"-{2

-

ES^EWE

j__J

SPACES}-

EZ3*

_: _.z " " :rem 140

EQ3**EXE

-

:rem

-

146

-

(SPACE)?Z3_J|.iV/3 -[_" SPAC^S)Z ZZ ZZ ZZ

-

220

SPACES}-

:rem 198

PRINT

—";

PRINT

:rem

20

"gZg**EEg»EE|****EE^*EXg

SPACES)EZI_E2 E_

246

PRINT"[PUR)[DOWN}{2 SPACES]HIT A KEY TO PLAY" :rem 52 PR1NT"(RVS){WHT)[7 SPACES)CONTROLS

_

190

:rem 22

PRINT"£e>OWN} [RED] (2 SPACES}LAST SCOR E:"SC:PRINT"[DOWN][GRN](2 SPACES]HIG

"-{2 spaces}^ -

[space}Ta^__^!w3{4 spaces]zT4 spacesJ_-

11

E^EU SPACES J^D^A^S^-": rem 60 PRINT" —gQg *----* £WT----

H

170

2

" : print"-

7060

:rem

160

180 print

SPACES]-----^ [SHIFT-SPACE}

7030

7050

{6 SPACES}OR FEND OFF SHARK" :rem 66 PRINT "_-(2 SPACESJgZ j******ESg [3 SPACES}USE < AND > TO MOVE FROM"

R3*

:rem

7040

150

:rem 238

POKE36879,8:POKE646,10:PRINT"[CLR} -EA3*|X3"

7020

127

POKE36869,240:PRINTCHRS(8) :IFSOHSTH

**EX3"

130 PRINT "^{9 SPACES3Z USE SPACE TO RAIS E UMBRELLA" " :rem 227 140 PRINT "-{2 SPACESHAg******jXg

;

:rem

230 GETA$:IFAS=""THEN230

235

:rem 77

240

POKE53281,14:POKE53280,6

245

PRINT"(CLR}"CHR5(142)"{BLK)SCORE:

255

250

PRINT"[2

PRINT"[RVS}[BLU}SPACE{OFFJ-CLUB OR U MBRELLA":POKENO,. :rem 120 7100 POKE36878,{FNRN(14)+2)*16:IFPEEK(197

260

PRINT"{12 SPACESlEC^fRVS}[9 SPACES} [OFF)£3 I3|FHS SPACES J^Di{RVS}

270

PRINT"(4 SPACES)ED^{RVS)[4 SPACES} [OFF)EF3[3 SPACES}gC^[RVS){13 SPACES)

7080

{7 SPACES}(OFF)[PUR}[4 SPACES]<-LEFT ":PRINT"{GRN}{4 SPACES}>-RIGHT" :rem

7090

7110

)=64THEN7100

:rem

218

GOTO100

:rem

147

{19

Program 3: POKE56,60:CLR

:rem

5 GOSUB 8000 10

POKE

53280,0:POKE

53281,0

:rem

:rem COMPUTE!'* Gazelle

:rem

77

SPACES}iD3

[RVS5{4 SPACES} {OFFJEF^"

:rem 1154

{2

: rem 13.7

SPACES} {OFF}EF^"

123

June 1984

=rem 158

{OFFjivi"

:rein 178

PRINT"{2 SPACESJEDHRVS} {7 SPACES} {OFF}gFH5 SPACES) EC3[RVS} [8 SPACES} {OFF)EVi(3 SPACES)EC3[RVS}(7 SPACES]

290

PRINT" EC3{RVS}{12 SPACES]{OFF}EV| {4 SPACES}EC3[RVS}[4 SPACES)[OFF}gV3

182

129

{0FF)Ef|"

280

:rem 125

20 PRINT "{CLR)(N}g53{DOWNl EAj********* ES?[3 SPACES}£RESS ANY KEY TO BEGIN" 184

DOWN)[WHT]{13

38

iOFF)Evij{2 SPACES}Ed|[RVS) {7 SPACES)

The Frantic Fisherman- -64 Version 4

SPACESjFISHERMEN:"

:rem


(7 SPACKS}iC3{RVSH3 SPACES ) {OFF ) §V3" :rem

300 PRiNT"[5 SPACESJ8C3!RVS}f7 (OFlOgVi" 310 PRINT"[7 SPACES}gc3(RVS)g3 311

198

SPACES} irem 130 I^{OFF}" :rem

171

312

PRINT"{5 DOWN}{22 SPACES][RVSUfOFF} EW3" irem 187 PRINT"{21 SPACES}(RVS]£ (OFFjgW^"

313

PRINT"i20

SPACES}{RVS}£{2 SPACES}

314

PRINT"{19

SPACES}{RVS}£{3 SPACES}

{OFF]|WJi"

jrem

103

srem 104

1017 DATA000,002,000,000,002,000,000,002 :rem

157

:rera

156

1018 DATA000,000,002,000,000,002,000,000 1019

DATA002,000,000,018,000,000,012,000 srem

167

1020 DATA000,000,000,000,000,000,000,000 1021

:rem 145 DATA000,000,000,000,000,000,000,000 :rem

146

1022 DATA000,000,000,000,000,000,000, 000 1023

srem 147 DATA000,000,000,000,000,000,000,000

1024

DATA016,000,000,056,000,000,124,000

1025

:rem 174 DATA000,2 54,000,000,158,000,000,206

1026

:rem 183 DATA000,000,124,000,000,000,000,000

1027

DATA000,000,000,000,000,000,000,000

1028

:rem 152 DATA000.000,000,000,000,000,000,000

1029

srem 153 DATA000,000,000,000,000,000,000,000

330

"; :rem 244 POKE2023,160:POKE2023+54272,6 :rem 16

340

SYS49152

1030

DATA000,000,000,000,000,000,000,000

1031

DATA000,000,000,000,000,000,000,000

1032

DATA000,000,000,000,000,000,000,000

I033

DATA000,000,000,000,000,000,000, 000

{OFF]gW3"

:rem 105

315 PRINT"{18 SPACES}{RVS}£{4 SPACES) {OFFlEw^" " irem 106 316

PRINT"(17

SPACES}{RVS}ff5

SPACES}

[OFF}Ew3" :rem 107 317 PiUNT"(l6 SPACES}{RVSj£{6 SPACES} {OFF}gw3" jrem 108 318 PRINT"{16 SPACES1EZ3I6 EH"§"srem 243

319 PRINT"{14 SPACES}E2§§*3{RVS} {10 SPACES](OFF}£"

:rem 47

320 PRINT"{RVS}{BLU)T39 SPACES}[OFF}{BLK}

:rem

155

350 PR1NT"{HOME}{BLK}{12 DOWN!{12 RIGHTjP RESS RETURN KEY" 360 GETA?:IFA$<>CHR$(13)THEN360

: rem 138 :rem 4

370 S1=PEEK(829):S2=PEEK(830):S3=PEEK{831

) irem 144 380 SC=INT(S1/16)*10+(S1AND15)+INT(S2/16) *1000+(S2AND15)*100

irem 234

390 SC=SC+INT{S3/16)*100000+(S3AND15)*100 00

:rem

41

GOTO10

:rem

47

400 IF SOHS THEN HS=SC 410

srem 47

1000 DATA192,000,000,224,000,000,112,000 : rem

167

1001 DATA000,056,000,000,028,000,000,014 :rem

170

:retn

166

srem

:rem

:rem :rem

148

158

154 146

:rem 147 srem 148

1034

:rem 149 DATA004,000,000,012,000,000,028,000

103S

DATA000,060,001,007,255,195,014, 127

srem srem

167 207

i£>36 DATA255,031,255,255,127,25 5,2 55,056 :rem

1037

237

DATA127,255,003,255,195,000,000,001 srem

206

srem

154

1002

DATA000,000,007,000,000,003,128,000

1003

DATA001,128,000,000,000,000,000,000

1039

1004

:rem 158 DATA000,000,000,000,000,000,000,000

DATA000,000,000,000,000,000, 000,183 :rem 167

1040

DATA000,000,000,000,000,000,000,000

1005

:rem 147 DATA000,000,000,000,000,000,000,000

1041

DATA000,000,000,000,000,000,000,000

1006

DATA000,000,000,000,000,000,000,000

1042

DATA032,000,000,048,000,000,056,000

1007

DATA000,000,000,000,000,000,000,000

1043

DATA128,060,000,195,25 5, 224,255,254

1008

DATA001,128,000,003,128,000,007,000

1044

DATA112,255,2 55,248,2 5 5,2 55,254,255

1009

DATA000,014,000,000,028,000,000,056

1045

DATA254,028,195,25 5,192,128,000,000

1010

DATA000,000,112,000,000,224,000,000

1046

DATA000,000,000,000,000,000,000,000

1011

DATA192,000,000,000,000,000,000,000

1047

DATA000,000,000,000,000,000,000,183

1012

DATA000,000,000,000,000,000,000,000

1048

DATA000,000,000,000,000,000,000,000

1013

DATA000,000,000,000,000,000,000,000

1049

1014

DATA000,000,000,000,000,000,000,000

1050

DATA00W,000,2 5 5,000,000,25 5,000,003 :rem 183 DATA255,192,000,085,000,000,089,000

1315

:rem 148 DATA000,000,000,000,000,000,000,053

1051

DATA000,08^,064,000,090,000,000,085

1016

DATA007,000,000,063,224,000,2 55,248

1052

DATA000.000,255,000,00J,2 55,192,003

:rem :rem srem srem jrem irem

1038 DATA000,000,000,000,000,000,000,000

:rem

148

:rem 148

149

srem

150

:rem

184

:rem

178

srem

156

srem

irem 157 :rem irem

srem :rem

:rem

146 147

:rem

srem

157 200

147

:rem

CVMPUItl'sGataHe

177 225 240 223 153 166 155

202 194

:rein 192 Jont.-198'l 1B5


105 3

DATA245,080,003,25 5,192,003,255,192 :rem

1054

224

DATA003,255,192,000,000,000,000,000

:rem 105 5

179

DATA000,000,000,000,000,000,000,000 rrem

1056

153

DATA000,000,000,000,000,000,000,000 :rem

154

1057

DATA000.000,2 55,000,000,25 5,000,003

1058

DATA255,192,000,085,300,000,101,000

:rem

15)2

:rem 1059

195

DATA001,085,000,000,165,000,000,085

:rem 1060

196

DATA000,000,255,000,033,255,19 2,005

:rem 1061

193

DATA095,192,003,2 55,192,003,2 5 5,192 :rem

230

1062

DATA003,255,192,000,000,000,000,000

1063

DATA000.000,000,000,000,000,000,000

1064

DATA

:rem

8000

256

178

9100

IF CK<>19128

37,193,206,2,208,173

DATA

2,208,201,255,208,5

:rem

203

49362

DATA

169,0,141,16,208,96

:rem

212

49368 49374

DATA DATA

173,2,208,201,115,144 3,76,37,193,173,69

:rem 46 :rem 178

49380

DATA

3,41,6,201,6,208

49386

DATA

11,169,117,32,31,195

49392

DATA

32,179,194,76,46,193

49398

DATA

238,2,208,96,173.3

:rem

173

49410

DATA

37,193,173,69,3,41

:rem

161

49416

DATA

6,201,6,208,11,169

:rem

153

49422

DATA

80,32,31,195,32,202

:rem

196

49428 49434 49440 49446

DATA DATA DATA DATA

194,76,46,193,173,69 3,41,3,201,3,240 4,238,3,208,96,32 151,194,206,64,3,32

:rem 29 :rem 37 :rem 109 :rem 208

49404

DATA

208,201,227,144,3,76

:rem 47 irem

25

:rem

156,195,162,30,32,106

DATA

195,202,208,250,165,162

87

49464 49470

DATA DATA

201,192,144,38,169,0 141,2,208,169,229,141

BE PA

252

:rem 49 :rem

49476

DATA

3,208,169,253,141,249

49482

DATA

7,169,0,141,40,208

rrem 129 irem 4

49488 49494 49500 49506 49512

7

:rem

DATA

96

1

157

i rem 4 :rem 51 :rem

64

:rem

210

:rem 159 !rem 2 :rem 53 :rem 48

49518 49524

DATA DATA

3,208,169,252,141,249 7,169,0,141,40,208

:rem 60 :rem 153

84

49530

DATA

169,2,141,16,208,169

49536

DATA 0,141,65,3,169,1

161

49542

DATA

141,66,3,169,0,141

D

49548

DATA

27,208,173,30,208,96

:rem

14

49152-50346)":STOP :rem 250

49554

DATA

201,64,144,44,169,139

:rem

60

49560

DATA

141,2,208,169,100,141

:rem

39

:rem

62

THEN

9010

PRINT"£RROR

READ

A:IP A=256

10020

POKE

I,A:I=I+1:CK=CK+A:GOTO

IN

81

DAT

:rem

38

:rem THEN

10100

177

:rem 10010

:rem CK<>139243

THEN

PRINT"£RROR

IN

RETURN

:rem

211

49566

DATA

3,208,169,251,141,249

49152

DATA

169,3,141,64,3,169

:rem

161

49158

DATA

7,141,21,208,169,217

49164

DATA

141,1,208,169,1,141

49170

DATA

28,208,169,10,141,37

49176

DATA

208,169,7,141,38,208

49182

DATA

169,0,141,39,208,32

49188

DATA

60,193,169,25,141,60

49194

DATA

3,169,250,141,250,7

49200

DATA

169,209,141,5,208,169

49206

DATA

2,141,41,208,169,44

49212

DATA

32,238,193,32,156,195

49218

DATA

169,0,141,61,3,141

49224

DATA

62,3,141,63,3,32

:rem

49230

DATA

174,195,32,141,196,169

rem

49236

DATA

32,141,71,3,169,0

rem

49242

DATA

141,72,3,173,60,3

49248

DATA

49254 49260

10200

trem

141,66,3,169,0,141 27,208,173,30,208,96 201,128,144,44,169,80 141,2,208,169,229,141

9100

1000-1064)":STOP

(LINES

DATA

DATA DATA DATA DATA

THEN

10010

IP

49350

49356

DATA 141,16,208,141,65,3

A=256

I=49152rCK=0

ATA

254

156

10000

10100

224

:rem

:rem

I,A:I=I+1:CK=CK+A:GOTO

(LINES

:rem

208,201,225,208,3,76

49458

:rem

A

194,76,46,193,173,2

DATA

49452

:rem

POKE

DATA

130

TIENT..."

9020

49338 49344

152

:rem

1=248*64 READ A:IF

:rem 153 :rem 2

:rem

PRINT"[10 RIGHT}{4 DOWN}PLEASE

9000 9010

DATA 6,201,6,20B,11,169 DATA 117,32,31,195,32,179

:rem

PRINT"(N}(CLR](l2 DOWN}(RIGHT(LOADIN G SPRITES AND MACHINE LANGUAGE17

8010

49326 49332

: rem 4 :rem :rem

49572

DATA

7,169,6,141,40,208

5

49578

DATA

169,0,141,16,208,169

198

53

49584 49590 49596 49602 49608 49614 49620

DATA DATA DATA DATA DATA DATA DATA

1,141,65,3,169,0 141,66,3,169,2,141 27,208,173,30,208,96 169,218,141,2,208,169 100,141,3,208,169,251 141,249,7,169,6,141 40,208,169,0,141,16

:rem 57 :rem 158 :rem 17 :rem 56 :rem 45 :rem 214 :rem 198

202

49626

DATA

208,169,1,141,65,3

trem

160

55

49632

DATA

169,1,141,66,3,169

:rem

164

148

49638

DATA

2,141,27,208,173,30

trem 205

45

49644

DATA

208,90,201,44,208,17

110

49650

DATA

169,132,141,0,208,169

:rem

52

100

49656

DATA

255,141,248,7,32,227

:rem

11

141,67,3,32,4,196

:rem 97 rem 112

DATA

32,238,193,206,67,3

rem

213

49662 49668 49674

DATA DATA DATA

194,32,112,195,96,201 46,208,17,169,212,141 0,208,169,254,141,248

:rem :rem rrem

57 62 61

DATA

208,245,141,4,212,32

rem

244

49680

DATA

7,32,227,194,32,112

49266

DATA

150,192,173,64,3,201

rem

254

49686

DATA

195,96,201,32,208,113

49272

DATA

0,208,226,169,0,133

rem

201

49692

DATA

173,68,3,201,0,208

:rem

49278

DATA

198,169,0,141,21,208

9

49698

DATA

115,173,70,3,201,0

:rem 153

49284 49290 49296 49302

DATA DATA DATA DATA

169,0,141,4,212,169 0,162,0,157,0,208 232,224,17,208,248,96 173,30,208,141,69,3

208

49704

DATA

208,108,173,65,3,201

rrem

253

:rem

148

49308

DATA

173,65,3,201,1,240

49314

DATA 87,173,66,3,201,0

49320

DATA

186

240,46,173,69,3,41

COMI'UTFi's Goicllt-

Jons 1984

:rem :rem

:rem

srem rrem

207

:rem :rem

10 207

:rem :rem

:rem :rem

:rem

rem

0

13

: rem

54 153

162

rrem

14

:rem

:rem

207

rrem

:rem

94

49710

DATA

0,240,38,169,2,141

:rem

66

49716

DATA

41,208,169,209,141,5

:retn

200

49722

DATA

208,169,250,141,250,7

: rem

145

49728

DATA

173,0,208,201,132,208

:rem

103

49734

DATA

8,169,138,141,4,208

:rem

154

49740

DATA

76,132,194,169,218,141:rem

7

60 157

:rem

6

rrem

51

rrem

44

rrem 217 112


49746

DATA

4,208,76,132,194,169

19

50172

DATA

15,24,105,48,32,210

:rem

187

49752

DATA

0,141,41,208,173,0

145

50178

DATA

255,96,32,16,196,72

49758

219

DATA

208,201,132,208,18,169 :rem 109

:rem

50184

DATA

32,71,196,32,125,196

49764

DATA

127,141,4,208,169,230

:rem

55

50190

DATA

104,96,32,228,255,201

49770

DATA

141,5,208,169,249,141

:rem

59

250,7,76,132,194,169

:rem

22

rem

241

49782

DATA

232,141,4,208,169,230

:rem

52

49788

141,5,208,169,248,141

:rem

67

rem

238

DATA

49794

DATA

250,7,32,1,195,169

DATA 0,208,3,76,70,196 DATA 201,133,208,7,169,25 DATA 141,60,3,169,133,201 DATA 134,208,7,169,18,141

108

DATA

50196 50202 50208 50214

rem

49776

:rem

170

rem

250

49800

200,141,68,3,96,201

:rem

198

rem

236

DATA

50220 DATA 60,3,169,134,201,135

49806

198

DATA

95,208,5,169,0,141

rem

:rem

164

49812

DATA

64,3,96,32,141,196

:rem

165

49818

DATA

169,33,141,4,212,162

:rem :rem

49824

DATA

255,142,1,212,142,37

49830

DATA

:rem

97

49836

DATA

208,32,106,195,202,208 244,169,10,141,37,208

:rem

57

50262 DATA 240,3,206,70,3,162

rem

137

49842

DATA

96,32,141,196,169,129

:rem

71

49648

141,4,212,162,255,142

:rem

50

252

1,212,142,40,208,32

149

DATA

DATA 90,202,208,253,169,0 DATA 141,4,212,96,173,4 DATA 208,201,0,240,5,169

rem

49854 49860

50268 50274 50280

rem

DATA

rem

189

50286

DATA

0,141,4,208,32,112

rem

136

50292

DATA

195,169,255,141,70,3

:rem 3 rem 215

:rem

2

251

208,7,169,13,141,60 3,169,135,201,136,208 7,169,9,141,60,3 169,136,96,173,68,3 240,5,206,68,3,240 21,173,70,3,201,0

2 41

50226 50232 50238 50244 50250 50256

:rem

DATA DATA DATA DATA DATA DATA

:rem :rem

DATA

:rem 106,195,202,208,244,96 :rem

196 110

49866

DATA

32,141,196,169,129,141 ;rem

116

49872

DATA

94

DATA

4,212,162,0,142,1 212,142,40,208,32,106

:rem

49878

jrem

48

49884

DATA

195,232,224,50,208,242

rem

108

49890

DATA

96,169,33, 141,4,212

rem

216

49896 49902

DATA

162,15,142,1,212,32 106,195,3 2,106,195,202

rem

203

DATA

49908

DATA

224,5,208,242,169,0

rem

211

49914

DATA

141,4,212,32,106,195

rein

251

50334 DATA 169,16,141,5,212,169 50340 DATA 240,141,6,212,169,100

49920

DATA

96,169,33,141,4,212

rem

210

50346

49926

DATA

162,5,142,1,212,32

rem

14B

49932

DATA

106,195,32,106,195,232 irem

105

49938

DATA

224,20,208,242,169,0

49944

DATA

141,4,212,32,106,195

rem

254

49950

DATA

96,248,24,109,61,3

rem

168

49956

DATA

141,61,3,169,0,109

rem

161

49962

DATA

62,3,141,62,3,169

rem

112

49968

DATA

0,109,63,3,141,63

rem

111

49974

DATA

rem

222

49980

DATA

rem

113

49986

DATA

rem

121

49992

DATA

49998

DATA

50004

DATA

3,216,32,174,195,56 173,62,3,237,71,3 141,69,3,173,63,3 237,72,3,13,69,3 144,25,169,32,248,24 109,71,3,141,71,3

50010

DATA

169,0,109,72,3,141

50016

DATA

72,3,216,238,64,3

50022

DATA

32,156,195,96,160,0

:rem 197

50028

DATA

200,208,253,96,169,0

:rem

250

50034

DATA

141,41,208,173,0,208

:rem

236

50040

DATA

201,132,208,16,169,248

50046

DATA

141,250,7,169,127,141

rrem

50052

DATA

4,208,169,222,141,5

rem

193

50058

DATA

208,96,169,249,141,250

rem

109

50064

DATA

7,169,232,141,4,208

rem

199

50070

DATA

169,222,141,5,208,96

rem

252

50076

DATA

162,0,160,35,24,32

rem

139

50082

DATA

240,255,173,64,3,24

rem

197

50088

DATA

105,48,32,210,255,96

50094

DATA

162,0,160,6,32,240

rem

137

:rem

99

:rem

69

:rem

22

:rem

85 136

:rem

97

:rem

87 41

: rem

DATA DATA DATA DATA DATA DATA

DATA

76,81,196,173,141,2 41,1,201,1,208,6 32,16,196,76,125,196 96,162,0,169,0,157 0,212,232,224,25,208 248,169,15,141,24,212

141,0,212,96,256

37

:rem

55

rem

218

rem

140

:rem

83

:rem

28

irem

0

:rem

154

:rem

231

:rem :rem

45 252

:rem

26

irem

51

3

:rem

:rem

50298 50304 50310 50316 50322 50328

:rem

0

50100

DATA

255,173,63,3,41,240

rem

186

50106

DATA

74,74,74,74,24,105

rem

154

50112

DATA

48,32,210,255,173,63

rem

243

50118

DfiTA

3,41,15,24,105,48

:rem

50124

DATA

32,210,255,173,62,3

rem

188

50130

DATA

41,240,74,74,74,74

rem

150

50136

DATA

24,105,48,32,210,255

rem

241

50142

DATA

173,62,3,41,15,24

:rem

89

50148

DATA

105,48,32,210,255,173

:rem

41

50154

DATA

61,3,41,240,74,74

:rem

50160

DATA

74,74,24,105,4B,32

:rem

149

50166

DATA

210,255,173,61,3,41

:rem

193

91

COMPUTERS Gazette Subscriber Services Please help us serve you better. If you need to contact us for any of Ihe reasons listed below, write to us at: COMPUTERS Gazette P.O. Box 961

Farmingdale, NY11737 or call the Toll Free number listed below.

Change of Address. Please allow us 6-8 weeks to

effect the change; send your curreni mailing label along with your new address.

Renewal. Should you wish to renew your Gazette subscription before we remind you 1o, send your cur rent mailing label with payment or charge number or call the Toll Free number listed below. New Subscription. A one-yeor f 12-month) U.S. subscription to COMPUTE'S Gazelle is $20 (2 years, S36; 3 years, S54. For subscription rates outside Ihe

U.S., see staff page]. Send us your name and address or call the Toll Free number listed below.

Delivery Problems. If you receive duplicate issues of COMPUTEI's Gazette, if you experience late de livery, or if you hove problems with your subscription, please call the Toll Free number listed below.

COMPUTEI's Gazette 800-334-0868 In NC 919-275-9809

96

COMPUTEI's Gazelle

Junel98^

187


following 2200 A.D. Readers who like to plan 200

Bug-Swatter:

Modiiications And Corrections

• Reader Clifford Tener has discovered a minor error in "Poker" (March). The VIC and 64 versions see an ace as a high card, which elimi

nates the possibility of small straights (A-2-3-4-5). To correct this, make the following changes: 2110

YY=0:IFPT(4)-PT(3)=1THKNIFPT(3)-PT(2 )=1THENIFPT(2)-PT(1)=1THENYY=1

2115

IFYY=1THENIF(PT(5)-PT(4)=1 )OR(PT(1)+ PT(5)-15=1)THENSS=1

• Program 4 of "How To Use Arrays" (Feb ruary) contains misplaced characters in 5180 and 5270. In each of these lines, replace the first double quote with a number sign (#): 5180

INPUT#4,HW(N)

5270

PRINT#1,"NAME","SCORE"

• Program 4 of "Making Calendars" (April)

years in advance should make the following change to line 1247: 1247

IF(Y=2200ANDM0>3)OR(Y>2200)THF:NDl=ni -1sIFDl=0THENDl=7

• The Commodore 64 version of "React" (Feb ruary) runs as listed, but does not correctly read the forward diagonals of the joystick. To fix it, change line 640. JS(5) should be -41 and JS(9)

should be -39. Thanks to Paul T. Dawson for dis covering this error.

• Reader Scott Campbell finds it more conve

nient to use the space bar rather than the M key to represent zero in "Numeric Keypad" (April). Pressing M with a thumb is rather awkward. To make the switch, change the 77 in line 520 to 32 (64 version). (Bf

COMPUTE!'s Gazette Toll Free Subscription Order Line

800-334-0868 In NC 919-275-9809

crashes when printing calendars for the years

Are you buying the right program the first time — all the time? Ifyouowna COMM64youcan makethe right decision on software programs the first lime — and every time. You can have Soft-Guide 64 each month. These software reviews can make your

life a whole lot easier and a lot more fun. They allow you to select the right educational or home/business software. No more wondering. No more wrong buys.

Computer

FLIGHT SIMULATOR GAMES

j&

COCKPIT 64

For the Commodore 64

4&Wm 100% Machine Language

"^%*J» Windshield View

*-*^3. 7 Airports

$30.

Runway 64 (Commodore 64)

$25

Runway 20 (V1C-20 Sky Pilot (VIC-90)

$25 $18

ADD $8°° FOR DISK VERSION

'-nr~. BAR GRAPH 64

No more frustrations.

—::::::_: for the commodore 64

Sound good? It's the perfect way to pre-select your software buys. And it's inexpensive. You get

;::iii:;=if€ ■ Full Color Display i-^j-i

afullyear(12 issues) for $19.95. Soft-Guide 64 can save you software dollars.

If paying by check or money order mail to:

Soft-Guide 4974 N. Fresno Street, Suite303 Fresno, CA 93726

{209)432-0633 or circle rosder card lor more Information

18S

FtV

Your

COMPUTE!'s GoioHc

.;:;::::::: •

100% Machine Language

■■■EEi-iiij-E • Saves To Disk

9 JO*

• Supports All Parallel Pnnters

COD ORDER PHONE WE SHIP WITHIN Ab HOURS

(312)394-5165 SUSIE SOFTWARE

709Wilshire Dr. Mt. Prospect, IL 60056


VIC-20 & 64 YOUR VOICE IN YOUR VOICE OUT

LEROY'S CHEATSHEET ".'-■[v

■;.'; -j'.-.i

Digital Recording on

C-64/VIC20

What is a Chealsheel, anyway? LtroyiChfikhHrKcyboa'd overlay* nip durable eta ilic-

coAicdEerriiilaihb When simply laid on yom VtC'70and£4

HtiybotiOi TM(hLBroyiCr*aith«t-^.(jf'cm Fiji Trie key iwifh

i-iwnlial IntOfmiflwV placing yon'moal YJii.rrti?>r_* program ming tool at you' fingertips

Ai Chffuisiitci Products- we lake i"t iirnfr- H> in^rn [ind use c.bct* prog rim* before designing a fcoytjunitr overlay. Not only nm our overlays deapgned using easy to To I low instruc tions flriri fWufltratlM*. but all commundj arc mJflbM and many uUM tn otfrJcfl to make pmgtarnmti^ Ms/ and fun

Up to 6-1 numtmreil words or phrases Then sloro

TAKE YOUR TO THE MOVIES

as a narrate! Mi? on iiisx or taoe Words or phrases oul in any order Irorii your own BASIC program

Nt?«v BASIC Commands addcil The Voice Master Talking games, clocks, calculators, Ilia flora, numerous lo lisl

many of the latest movies on pay TV and lor rent or sale on videocasselles ana video discs. Quickly call up capsule reviews and ratings. Find In formation fast on major stars, directors, Academy Awards, MPAA ratings, box office

play music Many applicalions in education 100 Sol I ware lor word recogniiion soon available

Helps

reni or walch.

inquiries wfllcomt

Wherever you want » talking

compiler uvilh your own natural sounding voice

Display vital information on

you decide before you

Leioy( ChHtlllHhaWUyiD'Ukl lllllHiy for" on

is nol needed far response--only lot recording

Use your 64 as a movie guide.

more.

pnnTtrva comrruindi crtik ro'-m. in,]- flnd many PilusTiarivo e«mJm ttt |fip actual BASrC tumrMuc, m Th* culoul

machine response, advisories —aopl'cai'ons loo

The MOVIES Disc

bestsellers and

Our DA SIC Ltroy-f Chranhtei ■ nnf onty ha* all com mind 5 flrd function*, Bui also has d#rtu numboia. pfogram Jisi

buy.

2-dlsc set lor 'S3 and '82 movies. Only 119.95 postpaid.

Send check or money order to:

and your own custom vocabulary

Even sing and

ONLY J8995

WE CAN DEMONSTRATE OVER THE TELEPHONE!!

COVOX INC.

Vitmon'

UMI Worflcraft 20

Super Eipandor'

HES Vic Forth

Vic Typewriter1 Vlctarm 11

3

Termed1

Q Quick Brown F<j

n

Easy Scrlpi1

Basic

n

Paper Clip

675-D Conger SI. Eugene. OR 97402

Script 6A

CalC

ki

PracfpCjiJc

Tel: (503) 342-1271. Telex 706017

n

Cffic

C3

Easy Ciilc1

Check, money order, or VISA/MC (Add SA 00 Shipping and Handling!

■r monfl, jfrMr [i'ul t\ ItO \t'-'1'*'l- »" 1 'if! lanii .3d 6S ukn r*.

C (I (]

- *rt,i IJ to

CINEMAN SYNDICATE Suite 501, 7 Churluii Court Mlddlfltown, NY 10940

NY flsa -. :■: l: ; ■ l.■■,,■■■ tflies. Canadlin ■■■ ■ oirierforsiancustorTiera, U.S. fundnonly

dWfUMWB <H 111 r*jglsler«l UuJsrrnrV ol Commodcxt EWtlronlci Lid

CHEATSHEET PRODUCTS-

PO Bo. 8299 PiTlsburgh PA 16218

L4ST7

easyBAESIC™ disk For Commodore 64" Users

HOME FINANCE PACKAGE

A Powerful Collection For

The Commodore 64

FEATURES Three Dimensional Graphics

• Budget Planning

Sound & Music Commands Sprite & Game Programming

■ Checkbook Mgml

48 Additional Basic Commands

ONLY$2995

ADD S2.5O SHIPPING S HANDLING UTAH - ADD SALES TAX

|

1 Loan Analysis

' Mortgage Analysis ' IRA Mgml ■ Retirement Planning

■ Investment Planning

Savings Mgml.

ONLY $14.95 Diskette or S13.95 Cassette

CHECK MO. VISA nrMC

Send Check or Money Order To:

CLONE WA RE

SMS

Pleasanl Grove, UT 84062 Dealer \nttuittes welcome

A 6502 Machine Language Assembler for the SERIOUS Users of the VIC-20 and C-64 Professional Features

INCLUDES

• High Speed Operation • Choice ol UO Devices

• Full Listing Control

P.O. Box E

Nampa, Idaho 83653

FR EDITOR

A lull screen,

menu-diiven text editor with: • Scrolling

• Disassembly Utility

(SEND CFIED1T CARD EXP DATE)

P.O. Box 587 C.G,

^B SS3

Mi2MS6-7->20

• Error Messages

• File Chaining

• Q lock Operations

• Produces Industry-

Slandard Object Code

• Sonrch/FloplaCB Fund ions

(Requires BK RAM) Spec 11 y

Dtsk or Cassette

34

95

DOCUMENTATION ONLY ... $10 (Refundable wild order)

(Cat/to'niaResidents —

P.O. BOX 11004

SANTA ROSA. CA 95406 (707) 576-0B0B

COMPUTE'S Gatellu

June 198-1

189


PROFESSIONAL FOOTBALL A Strategy Game For

•PUBLIC DOMAIN"" —

Supporting

SOFTKAKE —

SPECTRUrt

SOriHARE

. ! COMMODORE computers

P.O.

SAN

Written by uu»rs, for users + GAMES * UTILITIES * tOUCATIONAL *

BP!t

11-tTl

rRJMCISCO,

CA

;'.

I

lects its

uiil li

flpiWlS

B4 collection «4 - 64 csllection =S !5+ programs obi collection- Tsoi/Diik- SI0.00

PET* / CBH1

Sflli'LL

1

D151

UTILITIES

:

C64

6 Educational - TqBOs/Disks - SI 0 00 each

4

IELI

!.-•

IS.SB

..If. '

BBS

PROGRAM

BASIC SVSTEM REQUIRES OHLV COWWDORE 64 WITH ONE 1541 DRIUE AND 1658 AUTuHOQEH

All pricai inclutln ihippmn and handling. CHECK. MONEY OHDERS. VISA and MASTERCARD nccapud.

UPT10M5

D13t

For A Free Calolog Write:

ID

USE

jj lUL'j

IIAI'FtL! :'.'

Public Domain, Inc.

FZUEN

OTHER

HITH

OKLV

5025 S Ranaelins Hd • W Milton OH 453B3 i : -

■ .1

[fii iivnni niH

n

Fi.

FOE

I.

ON

OUH

'lnli...

Ltnt

of

and

based

on

time,

score,

surprises! Try io stop the explosive 2 minute offense, or try winning a cliff-

hanger with time running out. Block or be victimized by the aggressive de fense. No two games are ever alike! $16.95 for cassette and play book. $19.95 for disk version. ^m

CMS SOFTWARE

Box 4876

HHD

-jVSICM.

CATALOG

PUB

plays

,,■•■

$49.95

FREE ."[i

i.ii''!F'

EXCELLEHT

Scoreboard

punts, fieldgoals, and force turnovers,

Hi'.u i i nni uiF'l

BULLETIN BOARD PROGRAM

IHXSi:1!'": HeMt Switch

Works on Vic 20 or CnmrnorlDrn G4 - S5 00

(513) 698-5638 or (5131 339-1725

3

i.ai»',/nusIC

5 Utility- TaCBs/Dnkt- 510.00 each 1 I Game - Tepos/Dnkl - J10.00 each

1000 am - 500 pm EST - Men. trim Fn.

FOR C0MM0D0SE SELECTi

feature

dawn & distance, but watch out for

HUSlKFSS/FDUCn l 1011

< ipi.'loim)iti: t; i collodion «1 - 64 ((junction • 2 - 64 collutnon *3

Inil

total statistical summary. Computer Bel*

i . i i i (i!-iiii:i

collacrian #1 - collaman ■2-collocllDn "3 collnclmn #4 - collodion *5 - collodion «6 70+ p'OHrjrris F*]f cullui lion - T\i [jfl/Dia k - S10-00

\- 16K & Commodore 64

Challenge the Commodore to a game of real football! Over 130 play combi nations,

PUBLIC DOttnlH SOFTWARE

vh: ao -

Vie

IOfI

Topeka, KS 66604

__

fflfil

(913)-267-5864 FWRE

sorTkMRE.

Visa. MC include Card # Exp. Diile and Signature

DISK DUPLICATOR

Successful Delivery! Chromazone's New Arrival!

FOR COMMODORE SINGLE DISKDRIVES DISK DUPLICATOR Dtovides you a last aFid easy way to make back-up copies □! your precious, irreplaceable diskettes. Enjoy the convenience ol a dual disk drive without the expense.

Maneuver through the mazes to make a million . . if you dare! Graphics for C-64, disk only, joystick required

Send S29.95 in check or money order to:

DISK DUPLICATOR is 100°o MACHINE LANGUAGE, 100% FAST, and most importantly, 100°b AFFORDABLE' Don't let an accident or mistake

catch you without back-up copies of

all your diskettes ORDER "DISK DU PLICATOR" TODAY at Ihe special in troductory price of only SI 4.9 5 post age paid (check or money order only

Chromazone Software

please).

P.O. Box 7325

J&H COMPUTERS DEPT. 123G

San |ose, CA 951507325

5056 NORTH 41 st STREET MILWAUKEE, WISCONSIN 53209

CA resident? add Si.95 lox

Jjk& crfoLujtirood ^iquazzi

sioooTicTacToeSho Jia Jac Joe mm Lujliti & ioiwd S.A.S.E. for price list Joy of PROGRAMMING

51B0R0

E.STBG., PA 1830.1

Codine in Vic-20 Basic 190

COMPUTE'S Gazelle

June 1984

• UTILITIES

• EDUCATIONAL MUCH MORE

ORDER DEMO DISK FOR 8.95 AND RECEIVE "DISK-LOCATE'' FREE

DISK-LOCATE STORES AND RETRIEVES DIRECTORY INFO FROM OVER 150 DISKS DISCOUNTS ON ALL POPULAR SOFTWARE CATALOG SENT ON REQUEST

D&L COMPUTERS

PHONE(414) 461-9941

7166Gat9shead,CanogapFt.,Ca. 91307

VIC-20

EPROM PROGRAMMER

COMMODORE 64

S1500 QUIZELTOE

COMMODORE-64™ PUBLIC DOMAIN SOFTWARE 28 DISKS TO CHOOSE FROM • GAMES • PERSONAL FINANCE •ART-MUSIC .HOME APPLICATIONS

THE RECIPE BOX

No* you can easily sitre end recall your tavorns rtr-ipsg on your Coirimpijti'ftcornrujlfli THE HECIPE flOX I j o complete menu-drwjn On* i,fflon» mm co™*

(818) 710-9874

FOR

PET1- COMMODORE-84'- VIC-20' DELUXE-INCLUDES: ■mlni-ASSEM.'EOITOR

■vilh irioaa additional taaturei. SEARCH BY INQHEDlENT — Only navn ■ pound qP

■FILE MANAGER

ihon yoir ail iho foc-poa iMii you fmv« nn Ma ihW jio

PROGRAMS OVER 40

r-ijny.y.'fler <n me Presler? Ltf THE RECIPE UO*

ijmou'ger o' Wf oEr^oi iry.r(M: vr] ,cu tnooH SCAR CM Bt CATtGOflY — Co* ytmt iKipoi « to trpi.tiii

St*HCh

Lrvn

O-rnet

vuc-a

ei;

BY CftTtCORT iHGREDIEMr

— Anr

eomOiPianHi at we Faxtva

AUTOWATIC WEASUHtMEHT -

THE

HEClPE

BO" nt fluiorrjiiHiiy ^eaia un en rJown rho amount of

irtflrftiMnt*

you

rwpd

aKOf*ng

lo

now many

wrv ngi you wan!

SCHFFH OH PPINTEO OUTPUT - Havo printed topic j M uio m 'Mo knenpn or flivu m 1'iithIi

TmE RECIPE EJOX rBO,u.fai ono duk m»vo ana wffl run on 0 5K VlC-?0. Com'^o'lo'o 64 Pln«w npneify Sond Chock or mQnfiy order tor 1?1 85 to

Aries Marketing Co. P.O. Box 4196 4200 Shannon Drive

Baltimore, Md. 21205

Md. residents add 5% sales tax

ii

• HMCH.LAHG.MONITOR

$99.50-

for sottwara davalopment &EPR0M coding.

pop ular davlca

tynos including 25xx and 27<k sarlas

up to 32 KBYTES (incl. somi E! lypes). MENU DRIVEN lollwara runs all 3 CPU's

connects lo USER POHT. L.l.F, sockit Incl.

EC0HOMY-27I6-64

nad.pgm,& ver. ONLY

basic programtnar-whan

adiling&lila storaga

.__ _^—

ARENOTnaadfldllF Incl. $59.SO ' I PET. COMMOUDHt «^ J»IC!0 lit Irtdinnbl ol

[2151Z5B6B33

DA^CO

EBM.INC.

(215)2566933

' >: Bo»267 Ladttach.Pa.19*50


VIC 20/COMMODORE 64 CflAZT CONVEYORS i'i fc'ing ation note £»'« w:h rrtiin coo shih^

ONLY THE BRAVEST DARETOENIER!! ARM YOUR CHARACTER WITH WEAPONS AND MAGIC. THEN FIND GOLD AND FIQHT

riAii'iiijjji.^i movi'ic1 cjTT^eyrjrs aT] bonus Denes enletamircq sound n«jh

<#T4-W07 wiili [ulTrwme^ ol 1U trymoCT^. ,JLlOi iwuse s!arr pjy "^l M-wi Dl rtui tfx«.e |cv&lck B lievlxkinl rrutfunc LjnoiMqe Ai^i Sawn

^CftAZYCO^EVOFlKlion kninum1 .rul'miiHiiir rhi' irmi sk-'ilul ndyci

Lbl Pnca S.HH'> ComfrattteWUtekr Ourftce 5^9 !ft UlfNfiLONS und DEMONS ■. 'win VIM twn tMr^ipr^KMl

OGRES AND GAIN NEW

W'lh 1^ l("rt!c, iSiKl fn'OU'l""!^ [fa fl]HlB Wllll rirT^ Of

MAGICAL POWERS

tm ^1<!,ii»;1fr,ii>r'TpJ^ur'.'t'j."i,^iiOii'rii|ip^]|u-3i;|ii.ri|,

.inrty fw uliinvHrj (j^il u U reach Ifv tkvic-,1 aungf^n Km* jnd f«J in? U«tn Crivctf A-, yi:ur cmrxier iifr&r^ 411 ^irrxjtflirifl wiimjn yiutft

j>qYtnntf 6Ctttfrfl!46fjb '■-■-".JX(O COMFU me 64

.

:;- - ;

, rjr uin jnly 11 iciiuin loe

UISK UlllLCTnHV MANAGEfl INVrSTMENT PORIFOLIO MGR HUHGEDHS i.if^niurej HJ[iGEHUNNERi£OdCe>TlX)%ML PAK ALIEN |fraer 1K)*A WL

Our Prifr £169b List

Cf-1(DI VIC-+1(jK t?A E19 9L. VIC + S&K o I) Vlturvp VlCump 1 O|[)J 11995

[)nr F^tt

arfi'iSHJ U rjBrVKiBl corrpu^or Uiari «iC«pE -r> grcjlly strippgfl progra m 30 'asc-n ilinfl

S14J#

SpK* D« a dok VIC i C-54

Phoenix. AZ 8502?

MM » DO Kr pany J hnki;

fTEr your ^OOf pi ELlZA IMay flnfl you"Unever agB'nw^iaer HOW comnuler Ol yUurtCtn KEuAlly/dQl"

ELIIAISAUAlLAflLElNTHEFOLLOWrNGrOflHATS:

Tl ''V-l.-i (EXTENDED BASIC)

[Plnn^n npociiy Di*k or CiMnim) Piciocieo: Version

CASSETTE I19.S5 DISK 121 .SS

i^ Design & Distribution Co.

CONMODO

THE REUNION" JUST RELEASEOI

VIC 20(C64

"THE REUNION" imuiianeogsl» inierfacss youi 'VIC 20 and "C/M (mcludmfl'Oaiaseilo, mooom. >tc ) 10 your Oiak drive and/or primer providing 3 computer

UMON'" onO slate ol the art design permits instant operation ol selected system with modem, expansion. etc

SAVE ana LOAD VIC ana CIB4 programs on samo disk or tapo. Ends switching disk/tape and cables "Simnlrj twu minute installation. Full year warranty.

Model A-lntorlflco! VIC 20/C-ei/disk/prinier Model B-

Please aBd S2 00 lor shipping (Canadian

SJ 00)

Floneta resident 5^ tax send check or money order to1 HyTecn

P O. Bo. 466 Bay Pines. FL 33504

■Reg. TM of Commodore Bus Mach. HyTech

WITH THE

PROTO64

MASTER-DIRECTORY

n.t COMMODORE 64'"

ORGANIZE NOW!

SUPPORT SYSTEM

The only prolotjping board for

'

I'Iiik* iNrt'Ltly into ih*" C3ipJUlllDII port

1

M 4CMlUfiN - 22 jll'C Slllf.1

of your f lies categorized Dy Ousmess. eaucation, recreation or any otner caiegory you choxe Print single or multiDle CODies Of master-

«

AW) Illcll -]■ u in-; pild ;■( 1

dire: tor v listings, ask jacket indexes or individual

disklauels MDSS can locateyoui-"i05t"OrsK files

INTRODUCTORY OFFER

MDSS is fully menu driven ana very user-frienaiy

■i.v-r ....

ODtonal

Seno cneci or moriev exoer for »16 95 to

SUNSHINE SOFTWARE PD B0X8S1 DEARBORN. MICHIGAN 18120 MICHIGAN RESIDENT5 ADD i% SALES TAX

■-

GAME

F"OR

COMMODORE

That's right' I* you'll htlp cdvbp stiiDBing tosts. <IDware will send you * We gamt along with our litMt Drogrim

tirocnirt.

Ttit cai!(tt(-bas»d

jimp, FOUS-IH-A-ROWp lets 2 pl»»«rs comoetr it trying to lirw up *aur pitc*i on i oliying qntf.

!tl fui for the whol* fimily1 stettps tnti Disks)

KlD-oritnttc scrltwirr

for thr Commodore £4. Ue

trf-fer t wide rjnge a< ijn, fOuntionil prognms for- Kids I - 16 years of iqe, with emphasis in the

youngsr years.

Our oricts trt Ihe lowest and

our quality and servict tfit best—you get same day shinning on ill urdtrs1 To receive your game tapp and program [j spnd

Il.EO

(for shipping)

to

k'lDwarp.

U you

only want a brochure, simply write and asH.

Wlltvare

p.o. box 1664 idabofalls, idaho 83401

COMMODORE 64-

DISKMIMIC5"' ca $49.95 • Backs up virtually all existing disks for Com modon) 64". ncludpriQ COPY PROTECTED

versions. ALL AUTOMATICALLY ■ Don't be wiEhoui back-up,

@

$24.95

• Bach-up your Commodore 64- programs wilh SAVE YOUR DRIVE disk formatter.

ORDER NOW :u:ill:ihk- in ihii size*-

ReauirKC-6danO15d0Or1S<»drS*drive Printer

YOUR

D1SKMIMIC™ ] 11 <i>.

tOO!

includes an easy to follow instruction manual

Lfl* AflQDlBi CA 90DJ 6

' Supports ono/lwo 154f* Dnvos.

imastefOGi Mamiamsorteomastef-airectories

wnn MDSSyoucanorgsniievouraisklirKonto

^'NaniujciMA.tnuo Oept G

interlaces VIC 20IC6J and Datasetle

Special ntrodgclory pnea - SM 9S sa (U.S. S)

ATTENTION C-64 DISK USERS

^^_

|QDware loccillizts in

Uv enter mslantiy

•Simply selecl "VIC M" or "C-64" on -THE RE-

Angeles

(CdlifD'nia re5 ijrjnii [jn-.ist aOd 6" ^ sd ea Iax|

ARTIFICIAL INTELLIGENCE RESEARCH GROUP

Cottage Grave, MN 55016

(Brings tns Commodore family together again)

The 300L°re Software. Commodore

Picaso saa S3 00 ih.Dp<ng and handling loan araera

FREE

systems

$45

BqiJi wof^i i] n a i nd uil d d an pJflo uSur manual

Kiv? PO Box 246 Dei"-G*6

MAM 13 00 In CO D.

.

(Source Von inn cun 00 hs^cd itno modniea aa men as run)

, Amarlcan Software

1 (

E^s

Un-prgiecledCoiwno[|flrBG4 BASIC Source We-ilon

INSTRUCTIONS INCLUDED. To order send chsck or money ortfe' plus S1.5O shipplngJhandling to:

^i^

,

'P'tflOCtn3 Wir'iiijn ciHi t>u ruil Elul hi>1 li^lunUr riiDCiliBrtl

DEALER INQUIRIES WELCOME

CTvli. mawy crflfl cr C 0 &

(602) 942-1475

ory pr<C9 rf only J35 Anfl it yiw *an](o '1 n d on hQw WiE ftaes

[ teach lie* [o (Jo mors]««**ill i^luflfl 1 ha CDrr piers SO UPC F

P HO GH AMfe r on? y $20 aflrJiTi fjn V

COMMODORE 64

514 95

BYTES and BITS

524 E. Canterbury Ln.

'i'*^drks J'Q -nfrfn ji m. 1; 111 ij I, i#j;jir^[)MaiQ'

■ SUPEflB CMPHICS • complex b* rn.es

Din Pur it6Ki

LL-Illilh V(C4fl*{T|[l)i

CrefliBflat IW(T in lBflfl ELl^A h»n^ but^rnq (hq world's most cqJ^Brtfodarti1rGiaiiniiriri^iicfld"rr>cfliirjtnoriprr>g'arn ELiZAigar>onn dnecnvflp?yr;hothrjrn]»-irtHi] iirmiy/»MjiicM Bfntornoni us voui>pe -\ m ard lh#n reipciuiwilh hor rwn cornmnnl w QuwaNon- and fw*

■ 3D PERSPECTIVE

C4VES

15Jii^rH-«l on ,1 1 lI Tmsl 01 tefrriViriQ

i]rrM* v%*m!' 1

Li.TH

ATLASTI A FULL IMPLEHFWTATrON oMhij original ELIZA pro

gram is novjflvailablij lo run on your Com mod ore B41

■ LOTS OF M4G/C ' THOUSANDS OF

Conixdvp t-i 1 [>v 1

ADVENTURE ISLAND v.r.1 I'ni'Hi n1 iv''.1"- rt':l

CONVERSE WITH YOUR COMPUTER

S12.95

6.S-.4J- . . . S1S.95 1M U j indnnirii >.r BtaBnola I'd-

Aild 11,00 lblpplP| i'»m- "id ii% u«

Boreas Products | !».(>. Bov l6W>I

Co. Spiinir.. Lo. 80931

(303) 593-1274

Di'iiIvt liKiuIrK^ lnvlivJ

• Hi-soeed. Hi-buller(l90 BlocHs). • E<tenc(3lllB ol 1541" Drive. • Single drive back-ua. " Selects Tracks or backs up entire disk.

FAST • FAST • FAST

SPECIAL PACKAGE □likmlmlc- & Dlikrnliiile 5' t $64.95 A.I.D. Curp

4020 Hempsleod Turnpike Bethpage, New York 11714

[518(731-7100

Diskrnlmlc" & Dlakmirnic E~ Is a Irademerk oi A.I.D. Corporation Commodore BA" & IG^l" ia n trndflmark of Cominodorn EJoctrontca Ltii


ADVERTISERS INDEX

Reader Service Number/Adverifier Page 102Aordvark Action Software

103 Acodemy Software

139

(..., 36

104AcccssSoftwaro Inc

40.JT

105Advancedldeas

19

A.I.D.Corp 106 American Software Design & DislribulionCo

191 191

Aries Marketing Co

190

107 Artificial Intelligence Research Gioup

191 Assembly Technology

147

Alari, inc 108 Avalon Hill Game Company 109 Batteries Included

27 7 39

110 Batleries Included

Big Bytes

142

The Book Company

1 91

Boreas Products

191

Boston Educational Computing, Inc. Brantford Educational Services

117 . . 122

Bylcs and Bits 111 Bytes & Pieces, Inc

191 115

112 Cadmean Corp CapilalComp, inc

134 65

113Cardco,fnc

IBC

Century Micro Products Cheatsheet Products Chromazone Software

73 189 190

Cinemon Syndicate Cloneware

189 189

CMS Software

190

Columbia Software

118

Commodore Computers CompuServe 114 CompuServe

BC 62 63

Computer Mail Order 115CompulerMot

143 122

Computer Place 116 Continental Software

1 04 45

117Covo*lnc Creative Software

189 "1

118 davidson & associates

Datasoft, Inc Dozco

69

2,3 190

Dennison dililhium Press 119 Diversified Manufacturing D& L Computers Dow Jones News/Retrieval

29 25 147 190 1 01

120 Eastern House 121 Eastern House 122Educomp

113 116 132

192

COMPUTED Gazelle

June 1984

Reader Service Number/Advertiser Page

Elcomp Publishing, Inc Electronic Arts Electronic Arts

87 43 51

Epyx Epyx French Silk

53 55 14

123 Futurehouse

- 75

Genesis Computer Corporation .. 141

124GOSUBof Slidelljnc 125 Hondic Software Inc HvTech INMAC

137 15 191 129

Jomeslown Software

149

Jason-Ranheim 126J&HCompulers John Henry Software

134 190 142

John Wiley & Sons, Inc Joy o( Programming

126 190

KIDware

191

Kiwisoft Programs

147

127 Lynn Computer Seivice

104

Melaphase Software

128MFJ Enterprises Incorporated 129 MicroProse Software 130 Micro Sci Corp 131 Micro Micro 132 Micro 133 Micro Micro

24

... 101 85 65

Sci Corp 67 Software International, Inc. . 119 Ware 48 Ware 73 World Electronics, Inc 103

134MicroWorx 135 Mirage Concepts, Inc 136 Oakwood Computer Products Ohio Computer Services, Inc 137 Orange Micro Inc

131 17 .... 67 71 91

138 Orbytrj Software 139Osiris 140 Panther Computer Corporation

Parallel Systems Parsec Research

37 139 . .

IFC

60 97

141 PB Systems

147

142 PC Gallery

134

143 Precision Software, Inc

Prentice-Hall

Professional Software, Inc Pro-Line Software 145 Proteclo Enterprises 146 Proteclo EnlerprizBs 147 Proicclo Enterprises

9 95 106,107 108,109 110,111 190

Quicltsilva Inc

61

149 Richvale Telecommunications

150 Rockwore Data Scarborough Systems, Inc Sierra On-Line, Inc 151 The64Club 152 SJB Distributors Inc

113 I 79 147 142

SJB Distributors Inc SM Software Inc

145 56

SM Software Inc

56

153 Sofiext Inc

30,31

154Sofl-Guide

188

Softlaw Corporation

105

155 SoflPoople Inc

47

156 Software Discounters of America . 103 Software Marketing Service 189

Software Masters

117

SoflworePlus 157 Software Shopper

149 149

159 Spectrum Software Spinnaker

190 21

161 Such A Deal

121

162 Susie Software

188

1 63 Systems Management Associates

. 99

158SoftWareWarehouseOutlet

145

Spinnaker Starpoint Software 160 subLOGIC Corporation

23 97 57

Sunshine Software

191

Synergy Software, Inc

96

164 Systems Management Associolcs . 123 165Tenex Computer Marketing Systems

83

3G Company, Inc

166 Timeworks, Inc 167 Totl Software, Inc

Tussey Mountain Software Tymac Incorporated

60

89 132

149 59

Uttrabyle VIN Systems (U.S.A.)

128 147

York 10

141

Virginia Micro Systems

145

1

35

148 Public Domain, Inc

Reslon Computer Group

Reader Service Number/Advertiser Page

13

.... 71

COMPUTE! Books

80,81

COMPUTED GAZETTE Disk 33 COMPUTED GAZETTE Subscriber Services 187 COMPUTED GAZETTE Subscription , 49


"Commodore-ready",

I

... and ready for you NOW!

"pdrdcoider" DC/1, Data Cassette Recorder/Player Introducing the "CARDCORDER", Model DC/1, the Computer Cassette that is ■ "Commodore-ready," designed for storage and retrieval of computer data efficiently, economically; with consistent performance. Yet, I this fine CARDCO product is priced lower than I any similar product with special quality features.

': Includes standard connector which is ' "Commodore-ready1'; LED "save" indicator light

which confirms data recording on to the tape; handles up to 120 minutes (60 minutes on each ide) of any standard tape including existing >re-recorded commercial as well as personal

the standard cassette functions: record ... play... rewind... fast forward... stop and eject... pause. A solid-state designed product of the finest components with auto-stop.

The "CARDCORDER" DC/1 carries a 90 day warranty to original owners.

All CARDCO products are available at your local dealers.

data tapes intended for use with Commodore Personal Computers; ready to go... just plug it in arid record efficiently.

GARDCO's "CARDCO.RPER" COMPUTER CASSETTE is a quality data cassette recorder/

player in an attractive polystyrene case, with all

cardco. Inc. i

Wichita,Kansas67214

(316)267-6525

world's largest manufacturer or Commodore accessories."

Cotrmottao~ ti o i»g««H»d fcodemartt o< ConvnoOo™ Buiinou Sfltwrn. Inc.


Commodore SoftwareThe Best Game in Town.

.Take on the world, toughen up your trigger finger and fire away. Commodore is the best computer

value in town...at home, at school and at work.., with our exciting, easy to use. inexpensive VIC 20 and C64 computers. Wore last becoming the best game in town when it comes to entertainment

(or the whole family

and at afford

able prices.

THE BEST ARCADE IN TOWN can be in your own home with our exciting, faithful reproductions of the

best of Bally Midway arcade games, Our Kickman.^which just received a coveted "Electronic Games" award for an arcade translation) lets you steer the unicycle lo catch the laflrng objects, as they (all quicker and quicker!! Gorf. Lnz.-innn.nncJ Omega Race give you the best in classic space action against the one-eyed leviathon. the droids or the evEl Empire. In The Wizard of Woryoualtempt

lo defeat the Wizard and the Warriors, fighting your way through to the end. With the new Commodore "MAGIC VOICE".. It talks back lo you too!! You commandeer the fleet at sea with our version at Seawolf, and become the master tactician as you battle "it out'h

wilh enemy fleet.

Clowns and Blueprint round out our arcade entertainment package to keep your fingers nimble and your mind in gear.

jSi commodore

COMPUTERS

First In Quality Software See your local dealer now,.. He's got the best game in town,.. just for you.


Issuu converts static files into: digital portfolios, online yearbooks, online catalogs, digital photo albums and more. Sign up and create your flipbook.