.«Sfi NO. 30 MAY 1985 U.S.A. S3.00 CANADA S3.50 AZI ^ J-SJ __^Mm g ^jjiig # • COMPUTING .ttTrc? 4 i-LEnf. FORflAT. tl^ITE.. d:it I ■^m— TT? n — c-c — V (^ CD CD t:Tt>-_i 9sasi rtssms IN THIS iSSUE: The ANALOG Computing Telecommunications- i System Z-Plotter Loan Shark Basic Burger m^ ^ ,/ *y s V V \ V. :{■ :v N^ ^ ^ V V V J V \ M v^V V V V \ ... > ..^ xJi X- X"^ \ > HL \ iSS^ 385 ^^mm 74470 1 V \ N- \^ V X^ ^ /V /, :x imu 1 rr^w-; i^s¥? '^ WfWWI «l oon^pi^ting olw ori[ illK At ycj)ur fingtertifl)S, you' I firjd: • The best ptjogr^nn^ froa .• Mew programs n^ If k long I St of t • Updates anc • Feedback frol ^^___ • Ihe ilatest *ws on Atari • New! softviigp demos > ITechnical^Kistance Usei^ grc^Rupport ^K ;omputSng m aga zine -^^^ Re w ^^^^^^^^ ^ fljoftware i r^. Think of it. No more I typing; no more wait- I I ing. Twenty-four hours a d^^ the ANALX)G Com- puting Telecommunications System (TCS) provides you with all of the information your Atari i cpmputer will ever need — when you need it. It's the perfect companion to ANALOG ^ Computing magazine. To subscribe on-line using MasterCard or VISA, call: i K , 617-892-144P . .|. .OR main your check to: ANALOG Computing -' RO. Box 23, Worcester, MA 01603. ' .-. ,0R use the handy card you'll find in the back of this issue with the Reader Service and Subscription , cards: i ' I j ^ ^ 1 ;■' ■■■ ! Following processing, you will b^ sent a user card and ID number. The ANALOG Computing TCS requires an Atari computer and modem (disk drive optional). RATES: $25.00 for 20 on-line hours • $2Q00 for current ANALOG Computing i "subscribers "t '" ' ■ I' No extra fee for 1200 baud users. I NO. 30 MAY 1985 THE #1 MAGAZINE FOR ATARI® COMPUTER OWNERS fUMflk^dE COMPUTING FEATURES BASIC AUTORUN.SYS File . . .Chet Walters A short autoboot file using any BASIC program with any filename. Basic Burger David H. Butler A commercial quality game demonstrating player/missile han- dling, combined with an excellent tutorial. Z-Plotter David Bader 11 35 46 56 76 85 54 66 REVIEWS continued Panak StrikesI StfiVfi Panak 69 82 5 6 8 14 19 28 32 34 88 89 Steve reviews Realm of Impossibility (Electronic Arts) , The Scrolls of Abadon and Beach-Head (Access Software), Spy vs Spy (First Star Software), and The Serpent's Star (Broder- bund). Enhancements to BASIC Bob Curtin (First Byte) This program will integrate new features into your existing BASIC, making it far more versatile. COLUMNS Editorial Reader Comment An easy to use program which allows you to make three- dimensional graphs in high resolution mode. Boulder Bombers . . . Mark Price An exciting cooperative/competitive game for one or two players, as you attempt to clear a rock-filled canyon. Loan Shark Marty Schmidt How would you like to calculate loan payments, interest rates and other financial unknowns— easily? Two-Fifty-Six Graham L. Potter Exhibits all of your Atari's 256 colors on the screen simul- taneously. REVIEWS US Doubler Russell Haupert (ICD, Inc.) Allows your 105Q disk drive to enjoy true double density and increases the data transfer rate. Tax Command .... Karl E Wiegers New Products Griffin's Lair Braden E. Griffin, M.D. Ask Mr Forth Donald Forbes On-Line Russ Wetmore The End User Arthur Leyenberger Unicheck Index to Advertisers (Practical Programs, Inc.) An inexpensive tax preparation program primarily designed for Form 1040. Reader Service ANALOG COMPUTING [ISSN U744-'J917) is published monthly for $2B per year by ANALOG 4D0/8D0 Corp., 565 Main SI., Cherry Valley, MA 01611. Second class postage paiil at Worcester, MA and additional mailing ofTices. ANALOG COMPUTING STAFF Editors/Publishers MICHAEL J. DESCHENES LEE H. PAPPAS Managing Editor JON A. BELL Production Editor DIANE L. GAW Contributing Editors DONALD FORBES BRADEN E. GRIFFIN, M.D. STEVE PANAK RUSS WETMORE East Coast Editor ARTHUR LEYENBERGER West Coast Editor JIM DUNION Art Director BOB DESI Contributing Artist LINDA RICE Technical Division CHARLES BACHAND TOM HUDSON TONY MESSINA KYLE PEACOCK Advertising Manager MICHAEL J. DESCHENES Circulation Manager PATRICK J. KELLEY Production/Distribution LORELL PRESS, INC. Contributors DAVID BADER DAVID H. BUTLER BOB CURTIN RUSSELL HAUPERT GRAHAM L. POTTER MARK PRICE MARTY SCHMIDT CHET WALTERS KARL E. WIEGERS U.S. newstand distribution by Eastern News Distributors, Inc., Ill Eighth Ave., New York, NY 10011 ANALOG Computing magazine (ANALOG 400/800 Corp.) is in no way affiliated with Atari. Atari is a trademark of Atari Corp. WHERE TO WRITE All editorial material [programs, articles, letters and press releases) should be sent to: Editor, ANALOG Computing, P.O. Box 23, Worcester, MA 01603. Correspondence regarding subscriptions, including problems and changes of address should be sent to: ANALOG Computing, 100 Pine Street, Holmes, PA 19043, or call 1-800-345-8112 (in Pennsylvania, call 1-800-662-2444). Correspondence concerning a regular column should be sent to our editorial address, with the name of the column included in the address. An incorrectly addressed letter can be delayed as long as two weeks before reaching the proper destination. ADVERTISING SALES ANALOG Computing Home Office Michael DesCheiies National Advertising ([517] 892-9230 Sweeney & Assoc. Bck mi tork. NY 10113 242-3540 Address all advertising materials to: Michael LlcsChenes — Advertising Production ANALOG Computing 505 Main Street. Cherrv Valley. MA 01R11 SUBSCRIPTIONS All subscriptions should be ad- dressed to: ANALOG Computing P.O. Box 615, Holmes, PA 19043 or call our toll-free number: 1-800-345-8112 (in PA 1-800-662-2444) Foreign subscriptions must be made payable in U.S. funds. Subscription prices in the U.S.: $28 for 1 year; $52 for 2 years; $79 for 3 years. Subscription prices in Canada: $36 for 1 year; $62 for 2 years; $89 for 3 years. Foreign subscriptions: $39 for 1 year; $72 for 2 years; $99 for 3 years. Airmail is available for foreign subscriptions at an additional $50 per year. Please allow four to six weeks for delivery of your first issue. PERMISSIONS No portion of this magazine may be reproduced in any form without written permission from the publish- er. Some programs are copy wri ted and are not public domain. Any user groups should contact the publisher if they are planning to place one of these programs on any tjfpe of public- accessed buUetiir board or disks. AUTHORS when submitting articles and pro- grams, program listings should be provided in printed and magnetic form, if possible. Articles should be furnislied as typed or printed copy in upper and lower case with double spacing. If submissions are to be re- turned, please send a self-addressed, stamped envelope. PAGE 2 / MAY 1985 ANALOG COMPUTING BACK ISSUES ISSUE 18 • Crash Dive • File'em • Munch'in Climb'in • H:BUG • Adventure Reviews ISSUE 19 • Battle in the B-Ring • A Look at Modems • Bulletin Board Systems • Siege • Touch- Tone- Dialer ISSUE 20 • Buzz-zap! • Scredit • AlterDOS • Bacterion! • ConTEXT ATARI PRINTER UTILITIES! • 9>*m ft sat riu • if* ruw ISSUE 21 • Selecting your Perfect Printer • Matt* Edit • Graph E's • Spy Plane • Printer Survey the Aburi ISSUE 22 • Typing Evaluator • Math Attack • Micro-Puzzler • Air Attack • Mathman • The Reading Program ISSUE 23 • Fire Bug • Minicomp • Dark Horse • Climber • P/M Creator/Animator BOFFO! Unlchack Popotroni RacG in Space AtarlCon Report Circuit Database Cass9tt9 Compressor ISSUE 24 • Circuit Database • Bopotron! • XL-DOS • Cassette Compressor • Race in Space • Unicheck ^■■■COMPUTiN Ga^^^ ISSUE 25 • Weather Forecaster • Androton • Miner Jack • BASIC Tutorial Part 1 • Adding BASIC Function Keys ISSUE 26 • BASIC Tutorial Part 2 • Robol Raid • Graphics Overlay • Popcorn • Magic Palette • PuLse in Action! ISSUE 27 • English Error Messages in BASIC •Instant Renumber • MicroCheck Part 1 • Adventure at Vandenberg • Screenmaker ISSUE 28 * MicioCheck Pari 2 • TwoGun • Cascade • Monthly Mortgage Calculator • Demon Birds • MicroDOS XL ISSUE 29 • RAMCHECK • Revive Dragonlord • XL Expansion Connector • Cheep Talk All back issues $4.00 each Send check or money order to: ANALOG Connputing Back Issues P.O. Box 615, Holmes, PA 19043 MasterCard and VISA orders call: 1-800-345-8112 in PA. 1-800-662-2444 wmm only«74«^! With its built-in Modemlink communication programs, the Atari 1030 lets you dial up a variety of information sources, including the new ANALOG Computing TCS! The 1030 modem comes complete with built-in software and connects directly to your phone system and Atari computer serial port. The modem runs at 300 baud, originate or answer mode, and allows you to dial directly from the computer keyboard. Used in conjunction with special software, you can send and receive files and programs to your disk drive. Ac- cess a world of on-line information— for only $74.95! ORDER FROM; ANALOG COMPUTING P.O. BOX 23 WORCESTER, MA 01603 Name. Street. City _ state _ Please send me 1030 Atari modem(s) at a cost of $74.95 eactn (plus $2.50 shipping and handling).* Canadian residents, please send U.S. dollars. OR CALL: (Credit card orders) 617-892-3488 Zip Code . THIS OFFER AVAILABLE FOR A LIMITED TIME ONLY. •Massachusetts residents, add 5% sales tax. EDITORIAL Spring is in the air, and with it come changes at ANALOG Computing. The first, and most obvious, is a new format for the magazine. At the top of each article page, you will see a head- ing and an "icon" which tell you what category the article falls under {utilities, home applications, and so forth). The new layout of the magazine is modeled somewhat after the new Atari ST line's graphic operating system, and is de- signed to help new readers (as well as old) to quickly locate the types of arti- cles they're Interested in. We are open to your comments and suggestions about how we can further improve the new format and make AN- ALOG Computing even more useful to you. The second change is less visible but just as important as the format change. It is ANALOG Computing's entry into the telecommunications field. Over the last year or so, we at ANA- LOG Computing have been paying close attention to the area of telecommunica- tions with Atari personal computers. We have made staff members available on the CompuServe Atari Special Interest Group (SIG), in order to answer ques- tions and ask readers what they'd like to see in the magazine. In this year, we've seen the number of user-to-user messages on the SIG grow past the 94,000 mark. This growth rate is constantly increasing, with no end in sight. We've seen the tremendous power and potential of personal telecommunica- tions as authors have submitted their ar- ticles electronically and our program- mers have uploaded programs to the SIG for everyone to use. In September of last year, ANALOG Computing publisher Lee Pappas and I began discussing the possibility of start- ing up a company-sponsored electronic bulletin board system in early 1985. We didn't want an ordinary BBS (i.e., an Atari 800 with an 810 disk drive running public-domain BASIC software). Little did we know what we'd end up with. As it stands now, the ANALOG Com- puting Telecommunications System (or TCS) is based in the programmers' area of the ANALOG Computing editorial offices, with four 48K Atari 400 com- puters, tied together with custom hard- ware, interfaced with an 11-megabyte hard disk system. All the computers are connected to phone lines with Anchor Mark XII 300/1200 baud modems. Four people may use the system si- multaneously, and this number will be expanded to seven in the near future, as demand dictates. The software for the TCS was my de- partment and has been developed over the past six months, to the exclusion of virtually all my other projects (includ- ing HChess, a chess-like game in ma- chine language, which I promise will be in the pages of ANALOG Computing as soon as possible). Developing the TCS software was an education in itself, and I have to give credit to the people at Optimized Sys- tems Software, the creators of MAC/65 and the MAC/65 Toolkit. Their products have been instrumental in the develop- ment of the TCS's software, which is 100% machine language. Machine language was chosen for the TCS in order to get maximum speed, even in 1200 baud. Even with several users hacking away at their keyboards, downloading software and storing mes- sages, the TCS will zip along at fantas- tic speed. Users of terminal programs with XMODEM protocol won't have the transmission timing problems they may have experienced on systems like Com- puServe. The key to the TCS's usefulness is software and user support. We will be doing all we can to provide new pro- grams on a regular basis, and Charles Bachand and I will be on-line daily to answer your questions. If you have origi- nal programs, subroutines, editorials, etc. that other users may be interested in, and you'd like to see them on the TCS, upload them! We will reimburse you in free TCS time if we accept your material. The more programs we have, the better TCS will be. In the center of this issue, you will find a bound-in copy of the ANALOG Computing TCS user's guide. Carefully remove the staples, and you've got your ready-to-use TCS manual. I suggest you read through it before logging onto the TCS, in order to familiarize yourself with the system's operation. I hope you enjoy both the new maga- zine format and the TCS. We've put a lot of effort into both, and will be expand- ing and improving them further in the future — to keep ANALOG Computing the #1 Atari users' magazine and tele- communications system. Our thanks. Finally the staff of ANALOG Comput- ing would like to thank Mr. Edmund Miarecki, who was kind enough to pro- vide us with the Atari 520ST computer pictured on this issue's cover. D Hudson~ Chief of Programming ANALOG Computing ANALOG COMPUTING MAY 1985 /PAGE 5 READER COMMENT Disks to come. I have recently noticed that back is- sues ai-e available in magazine form. Are these same issues available on tape or disk? If so, how much per back issue? Also, how much is the Compendium on disk? Does Solid States work on the 800XL? I typed it in, but there were a lot of string/DIM errors. Jim Kelly Snellville, GA Because of the huge number of letters we receive concerning back issues on disk, we will, in the near future, offer them for sole. As far as the ANALOG Computing Compendium on disk, it is priced at $35.00, which includes only the disks. To receive the Compendium disk set, you must use the order card in the book il- self The price for the Compendium is $14.95 + $2.00 shipping and handling. And, yes. Solid States runs on (he 800XL. It sounds as though you have a bad BASIC. —Ed. Keyboard pals. It is now, al the time of this writing, a miserable October day in tlie north of England. I have recently acquired the most recent issue of ANALOG Comput- ing on these shores, which was a joyous moment, indeed! Let me explain. Here in Britain, we simply do not have magazines that sup- port the Atari (nor any machine) tire way ANALOG Computing does. On top of that, the most recent issue available is the April issue! A sad state of affairs, 1 know, but at least we are getting the magazine — thank goodness. But now, on to my real reason for writ- ing. . .1 am aiming to set up some kind of international "keyboard pal" service. Basically, the object is to "pair" Atari en- thusiasts in (to begin with) America and Britain. If it is at all possible, I would be grate- ful if you could let your readers know this hopeful "service" is aimed primar- ily at them. Anyone from the States who is interested should send full details of themselves, plus how often they would like to "write" — in fact, as many details as they can think of, on disk or cassette (or paper), to me at this address: Paul Critchlow 29 Tudor Road Tranmere Birkenhead IVlerseyside L42 5PH England No charge will be made, but (there's al- ways a but!) two I.R.C.s flnternationaJ Repiy Coupons — available at your post office) will be warmly received and will, no doubt, hasten a reply. Young or old, novice or expert — any- body is welcome. If this service is suc- cessful, I promise to keep ANvVLOG Computing informed as to the progress! Yours in anticipation, Paul Critchlow Planetary Defense with Touch Tablet. For all the readers who purchased the Atari Touch Tablet , instead of the Koala Pad, I thought you'd enjoy this modii'i- cation to an earlier ANALOG Comput- ing game. This BASIC program will install a patch in (the assembled version of) Plan- etary Defense (issue 17), to allow it to work with either the Touch Tablet or a joystick. This modification will only allow fir- ing from the lei't button. If you would rather fire from the right, substitute 125 for 124 in I^ino (JO. This program creates a modified version (PLANETT.EXE) of the original (PLANET.EXE). Best regards, Forrest A. Blood IV Willingboro, NJ 10 GRAPHICS e:DIM 0LD$(15} ,MEHS(15):? "Place disk co ntaininq"':? "PLAHETABY DEF EM5E Object file in":? "Dr ive 1." 15 ? :? "NaHe of old ob iec t file";:IMPUT OLDS:? "KaH e of new object file";:IHP UT NEH5 20 IF OLD$=NEM$ THEN ? "Du Plicate file naMes!":GOTO 15 25 TRftP 55:C30:OPEH ttl.4,0 ,OLO$:OPEN tt2,8,0,NEHS:? : ? "Creating new prograw. , . ":TRftP 50 30 GET ttl,fl:C=C+l 35 IF C=116 THEH FOR 1=1 T 8: GET f}l,A:READ B:PUT tt2 ,B:C=CHH:HEKT I:READ A 40 IF C33052 THEM FOR 1=1 TO 12:GET ttl,A:READ B:PUT tt2,B:C=C+l:MEXT I:READ A 45 PUT tt2.A:G0T0 30 50 ? :IF PEEK(195)=136 THE N ? "Done.": END 52 ? "ERROR in prograM!":E ND 55 ? "ERROR IM FILENAME tSJ ! CUSE 'D: 'J":CL05E «1:CL0 5E tt2:G0T0 15 60 DATA 116,111,117,99,104 , 64 , 116 , 97 , 98 , 73 , 255 ,133,1 45 ,173 ,124 , 2 , 141 , 132 , 2 , 234 ,234,234 Magic Palette graphics. First, I would like to congratulate you on a "first class" magazine. It's really great! Second, I really enjoyed the IVlagic Palette program, but I have made it even belter. Graphics modes 9 and 11 are good, but it you enter or change the program to graphics mode .30 or 31, you only get half a screen, but the pictures are much better. PAGE 6 / MAY 1985 ANALOG COMPUTING If I am correct, graphics modes 14 (full screen) and 15 (full screen) are available only on the new XL computers (600XL must have memory expansion). The following are the changes you'll need: 59 ? "^Enter graphics Mode , please" 55 ? :? "IJ single color (enter 9)" 68 ? :? "2J Mult. color Center IIJ" 65 ? :? "3) Ned. resolutio n Center 38 or 31J" 78 INPUT AZl Change Line 240 to: 248 GRAPHICS AZ1:F0R 1=8 T 38:C0L0R I/2:PL0T I,e:DR AHTO I, 18: NEXT I: COLOR 7:P LOT 8,18:l>RAHT0 79,18 By the way, I use a 400 and an 800XL. Keep up the good work! Jim Kelly Snellville, GA Mating your VCR with an Atari computer. The current popularity of VCRs makes for an interesting equipment marriage with a computer. I use my Atari 800XL with a Quasar (VHS) Video Cassette Recorder You'll need a video monitor cable — which can be obtained from Comstar, 5120 Hol- lister Avenue, Santa Barbara, CA 93105 (805-964-4660); called a Data Spec, it is model CLC-VEC-5, at a cost of $6. There are three connectors on this unit. Plug the 5-pin metal connector in- to the monitor port at the back of your 800XL. Then plug the red-coded lead into your VCR video input on the back of the VCR, and the yellow-coded lead into the audio input (also on the back of the VCR). Turn on your VCR, fire up your computer system, and away we go! Okay, but what can you do with this hookup? I use it in my work at school, to create graphs, pie charts and statisti- cal information at home (with B/Graph) , and then take the video tape to class to demonstrate procedures for my students. It sure beats setting up all the computer components, having to find the correct wires and enough elec- trical outlets, etc. Other uses — you've probably thought of some already. Presentation of your computer artwork in a slide show video format is exciting. For the animation buffs, you're not limited to a few min- utes but can piece together a longer seg- ment, perhaps a full length movie! The Atari's full sound and color come across on the video tapes. If you have more time (and money), you can mix computer material with video camera material, to produce some interesting programs. If you have sound dubbing capability, music and voice can be added to your tapes. Lead-in and end credits are open to your artistic talents. Moving letters, different colors, sizes and designs are all possible. I use the Displaymaker pro- gram for many of these purposes. Drawbacks or limitations — the Atari 400 does not work with the video cas- sette recorder (at least, not easily), nor with a monitor Since I also have two 400s (I'm a member of the $99 club), 400 owners have my sympathy. Conrad Weiler Santa Barbara. CA Send your letters to: Reader Comment P.O. Box 23 Worcester, MA 01603 LEARN TO PROGRAM GRAPHICS. GAMES & SOUND EFFECTS! NOW SOLD DIRECTLY TO YOU AT DISTRIBUTOR PRICES UNITED EDITION BOOK MANUSCRIPTS Due 1o a publisher's change ol plans, we ofler you two books we have wfilten. in iheir manuscript lorm. Each comes to you as a limited, hand numbered edition of over 200 pages, with a comptitt dlik lull ol sottwiri examples, editors, and assembly language tools useable by anyone. They are written using BASIC, but the material is easily translated to other languages. ARCADE STYLE GRAPHICS: Many books leach you how to draw a lew circles or charts. In this book we create a complete, animated piclure. step by step. Starting with basic concepts, such as using keyboard characters lor your graphics, the program adds new Ideas to the screen one al a time, with many examples. The disk in- cluded rias tools & editors (or character sets and drawing back- grounds The only book on graphics you need ever buy $39.95 BASIC GAME DESIGN: A fascinating and complete look at how a designer creates an arcade game, step by slep, IN BASIC You will build your own version of SPACE INVADERS, using the ideas ex- plamed in the first book and adding Animation, Sound Effects, Game Logic, Scoring, and Special Effects. The final game looks and plays just (ike the original in the arcades. The (u(l disk of soft- ware includes all examples and editors typed in for you. $39.95 THE MASTER MEMORY MAP: Over 65,000 copies Ol this fine reference have been sold This book has EVERYTHING you could want lo know about the machine with 50 sample programs you can type in II goes through each memory location, tells you what it does, and wha! you can change lo control the machine yourself, even if you don't program Specify ATARI. C-64, VIC 20, or IBM PC. $15.95. ATARI 40 page reference version costs $6.95. All of Ihe examples already typed in on a disk costs $9.95. TRICKY TUTORIALS (tm) TO HELP YOU PROGRAM Each programin this series comes with a disk (32K) or tape (16K}, and a manual up to 66 pages. They are written in a friendly manner 10 be used by beginners or experts alike Over 50,000 sold with many high rated reviews' ifl DISPLAY LISTS— Learn lo create your own graphics & text, modes $9.95. #2 SCROLLING-Explams how to move the screen you see over maps of graphics or lexl $9,95. If3 PAGE FLIPPING— Change Ihe entire screen instanlly lo another display piclure $9.95. #4 BEGINNING ANIMATION-Learn to create the Illusion ol movemeni using simple shapes $9.95. #5 PLAYER MISSILE GRAPHICS-Creale your own PACMAN type game while learning about Collisions, backgrounds. Players, scoring, and more Our besl seller $14.95. #6 SOUND & MUSlC-Learn a simple way lo write music and sound effects on your computer $14.95. m DISK UTILITIES-Seven disk loots, FORMATER. IN- SPECTOR. AUTORUN SYS MAKER. RPM CHECKER. MENU MAKER DIRECTORY PRINTER & FILES TUTORIAL $14.95. #8 mm tSUEST PTRHHICTS FRon COnPUTERS HRDE SinPLEi CHARACTER GRAPHICS-Change letter shapes into anylhmg you wish Includes an editor ihal makes creating and animating the shapes easy, and a linker ihal actually writes BASIC code A com- plele game is included as an example 514.95. W GTIA GRAPHICS-Use graphics modes 9 lo 1 1 lo create 3-D shaoes place 16 colors on ihe screen at once, and even digilue pictures using ihese new modes induOes a 9 color piclure edilor similar lo the ■ Painter' programs and ■Pads thai others sell $14.95. *10 SOUND EFFECTS-30 simple sound effects like lazers and bombs, an effects editor explanation how to combine sounds and graphics, and 16 bi! sounds (or extended range. $14,95. #11 MEMORY MAP TUTORIAL-Examples how to control Ihe cursor, lexl windows, user keys, )oysticks and paddles, labs, inverse video, upside down lettering, break key protection and 25 more $14,95. #12 THE S.A.M. TUTORIAL-Usmg your joystick, you can learn lo make Software Automaled Mouth sing, change Ihe sound of Ihe voice, add graphics, explore phonemes, and even change inflections $14.95. #13 BASIC TOOLS-lncludes the following tools thai add themselves lo Atari BASIC RENUMBER. DELETE, TRACE. EXPAND takes programs with many statements per line and breaks them up lo make the program easy lo read, OUICKREF lells you the lines & numbers where all ol the variables and constants are used, LISTER prints out your programs, in- cluding all of the special characters Ihal you see on the screen (like hearts and diamonds) $14,95. #14 ADVANCED PROGRAMMING TOOLS-Machine language lools we use lo write our commercial programs useable from BASIC or Assembly Tools lor PLAYER MISSILE MOVEMENT, TIME DELAYS, SOUND EFFECTS PAGE FLIPPING, MEMORY MOVEMENT, SPECIAL CHARACTER FONTS, and save FULL GRAPHICS SCREENS (1/10) m seconds DISK ON- LY $14.95. #15 FANCY FONTS-lnciudes many sample fonts, an edilor, and adds a new set ol sub routines ihat you can call to create great displays Load Ihe (onis you create into your EPSON FX 80 or too computer, print out Ihe fonts on ANY printer as you creale them $14.95. We also otter 4 arcade games, 8 childrens educdiional programs, and 9 others all priced under $15, (or 16K TAPE or 32K DISK! SEND A SELF-ADDRESSED STAMPED ENVELOPE FOR A COM- PLETE ATARI CATALOG Moneyback guarantee if unsatisfied!! ORDER BY CHECK, VISA. M/C. OR C.O.D. «DD S3.00 SHIPPING. «D0 $2.00 lor COD. OR 15% FOREIGN COMPUTERS MADE SIMPLE! 1974 Buck St., Eugene, OR 97405 (503) 344-2767 CIRCLE #101 ON READER SERVICE CARD ANALOG COMPUTING MAY 1985 / PAGE 7 NEW PRODUCTS A ROBOT WORLD THROUGH TELECOMMUNICATIONS Games Computers Play, Inc. is a new tele- communications service designed to make the most of Atari's grapliics capability, in real time. GCP is more like a world mito itself. What you see are buildings, corridors and, most im- portantly, tiny robots. You're here in the guise of one of these little mechanized marvels, as are the other users of GCP. You can interact with them, by using the joystick to walk up to them and start up a con- versation. By "walking" into the Post Office, you can check on "mail" from other users. . . or slop in at the conference room for a private (or crowded) discussion. Multi-player games are available, plus a bulletin board system. Disk software supplied allows the use of Atari direct connect modems, MPP-IOOOC, or a modem connected through an 850. Initial HCLEDME rn cfmES r.oHf incus i>i, .,== iinifviliii sign-up cost is $30.00, which includes software and five hours of connect time ($6.00/hour). Games Computers Play, Inc., 112 East Mar- ket Street, York, PA 17401 — (717) 848-2660. COMPUTER WORKOUT FOR KIDS Haydon Books' latest Atari-oriented release, titled The Computer Workout, is aimed to- wards children 7 or older. Technical terms and computer operations are taught, using word games and "solve it" programs. More than forty different crossword puzzles, word- searches and mix-and-match games are in- cluded in this 62-page book. ■|--JB ■■■■■■" ■ ,_.' ' ■■■■■■■■■ MfoRlColil ^^^m ^^^m «.__ „j. f <• ~i .stta-i ties. FOR «&tr, 7 AMI US>; Written by Jim Keogh and Software Lab East, the price is $2.95 (specify Atari version); Haydon Book Co., 10 MulhoUand Dr., Has- brouck Heights, NJ 07604 — (210) 393-6306. MINDSCAPE ADDS TO SPROUT Two additional software titles have been entered in the Sprout software line by Mind- scape. ,;-i;fi'1:h"»;hri-ji."i;ii.-i;ii""i;fi"-i '■'■"■■■•"'■■•'"I ■i|l<"Ba<<."i'a!>'; Bife m KaitK Boc^ nor Sfe tbw. i Castle Clobber. Aimed at 4- to 8-year-olds, Castle Clobber assists in teaching children logic, concentra- tion, memory and other skills, while putting them in a game-typo scenario. The child must help Tonk rescue toys from the evil Cork in TinkTonkLand. This graph- ics adventure is comprised of five distinct educational games. In Subtraction Fair, a child maneuvers Tink to five different game booths: a Magic Show, Bear IDare, Ring the Bell, Witch's Brew and Dunk Cork. Each of these contests helps to teach basic mathematics, memory and con- centration skills. Both games feature bright graphics, music and animation. Priced at $24.95 each, from Mindscape, BRODERBUND'S PRINT SHOP The Print Shop enables you to design, write and print your own stationary, letter- heads, banners and greeting cards, using easy text-editing features plus left and right justi- fication. Eight type styles are supported in several solid, outline and three-dimensional fonts, along with nine different border de- signs, ten abstract patterns and several doz- en pictures and graphics. The Print Shop also includes a colorful va- riety of pin-feed paper and matching enve- lopes, along with an illustrated manual and reference card. Most printers with graphics ability are supported. Price is $44.95 through Broderbund Soft- ware, 17 Paul Drive, San Rafael, CA 94903 — (415) 479-1170. MHAT IS THE RIGHT ANSWER? ■f%^ PKES'j THr *mH»fR. Subtraction Fair. Inc., 3444 Dundee Road, Northbrook, IL 60062 — (312) 480-7667 PAGE 8 /MAY 1985 ANALOG COMPUTING THE LATEST IN DISK STORAGE The FACPAC disk storage line is avail- able in five different formats: for the 5 'A " disks, there is a 5-, 10- or 50-pack disk holder; for the newer 3Vz" disks, a 10- or 25-pack holder is manufactured. The 10-pack containers feature a pivot- ing lever that opens the case and allows its use as a handy desktop disk holder. The 5 'A " floppy holder that stores five disks is ideal for safely transporting disks. FACPACs retail at: $6.fl5 for the S'A" 10-pack; $19.95 for the SVz" 2,'5-pack; $6.95 for the 5 'A" 5-pack; $6.95 for the 5 'A" 10-pack; and $24.95 for the 5 'A" 50-pack. From Norwesco. Minneapolis, MN 55420. AUNT PRUNELDA'S INHERITANCE This game is designed to teach its players "the cause and effect relationships of current events and prices." The actions of each play- er effect the whole game, as good and bad for- tunes are seen by all. SS HOU-S'ZMG By investing in the stock market, trying your luck in the casino or sabotaging your op- ponents, you try to amass the largest fortune in the game, thus receiving all of Aunt Prunelda's money — and winning the game. A game for one to four players; requires 48K and a disk drive; printer optional. The cost is $27.95, Ivlarket Directions, 20 East Mil- waukee St., P.O. Box 702, Janesville, WI 53547 — (608) 754-7818. BOUNTY BOB STRIKES BACK! The long-awaited sequel to Miner 2049er is now available, and it features Bounty Bob in twenty-five new screens. Slightly improved graphics and new soimd effects also add to this 40K ROM cartridge. New "hardware" is an attraction — things like suction tubes, a grain elevator and a gra- vity lift. Other additions include an extensive option list, which allows you to (semi-)tailor the game to your abilities, and an elaborate Bounty Bob's here. high-score screen. A colorful instruction sheet/poster is also included in the package. Bounty Bob sells for $49.95, from Big Five Software, P.O. Box 9078-185, Van Nuys, CA 91409 — (213) 782-6861. COMPACT COMPUTER DESK The model CT137, an arborwood vinyl finish computer desk by Bush, is out. It features "vertical storage," designed for the computer user whose working area is limited . . .or for those who simply want the most efficient computer center possible. With its dimensions— 52" high, with a width of 49" and a depth of 24" — this attractive desk can easily support a wide variety of your computer equipment, while taking up the minimal amount of space in your home to do so. The large desktop with its tapered front contains a drawer for convenient storage of paper or other supplies. Both the monitor and storage shelves are adjustable, while a very useful, fixed bookshelf can be found on top of the unit. The model 0X137 is available at a cost of $219.95. For more information, you should contact Bush Industries, Inc., Oak Street, Lit- tle Valley, NY 14755 — (800) 228-BUSH (in New York, call 800-248-BUSH). ST NEWS — PROGRAMS FOR GEM Lifetree Software has recently reached an agreement with Digital Research Inc. to develop application programs for Digital's GEM (the operating system in the new STs). Lifetree is known for their bestselling Volkswriter word processor. The first translation in the works is said to be an enhanced version of Volkswriter Deluxe, with the GEM graphics added to increase its ease and power. Digital Research is planning to handle the marketing of any programs thus developed. The CT137 'vertical storage" by Bush. desk ANALOG COMPUTING MAY 1985 / PAGE 9 A A Vastly SUPERIOR to any translation programs available! FOR ATARI 1200XL/600XL/800XL with 64K. ATA [?| " (Please specify computer model number!) ATARI " $69.95 (Rom) TUr $69.95 (Rom) $49.95 (D or C) ' " ^ $49.95 (d or c) XL "FIX"! " The Atari XL series computers represent power, sophistication, and flexibility virtually unrivalled in todays hiome Computer Market, With "approximately" 30-40% of existing software being "incom- patable", a real, and serious problem exists. Because of this we have developed THE XL "FIX"! ADVANTAGES over cheaper "translation products": 1 The XL "FIX"! is capable of fixing more software ... an estimated 30% more software! 2. The XL "FIX"! is available in DISK, CASSEHE, and now ROM! 3. XL "FIX"! versions fix ALL THREE types of software (Disk - Cassette - and Cartridges!) 4. The XL "FIX"! (disk or cossette) adds OVER 4K of usable RAM to your computer (anyone using Data bases or Word processors will really appreciate this feature!) 5. You never hove to hold the OPTION button down on 600XL or 800XL computers! 6. VERY IMPORTANT! You need to load the XL "FIX"! only once ... you can change disks, cassettes, or cartridges without rebooting the XL "FIX"! each time (disk or cassette)! 7. The ROM version is instantaneous upon computer power up, has a high speed cursor, is instantly switchoble to your original operating system, will work with 16K 600XL's, and more! The XL "FiX"! ... another SUPERIOR product! 64K required! DISTRIBUTOR/DEALER inquires weicome Mastercard-Visa-Money Order or Cashier Check. Phone (716) 467-9326 Piease specify computer model number! Send S49.95 ($69.95 for Rom) plus S4 shipping and handling (N.Y.S. residents please add 7%) to: COMPUTER SOFTWARE SERVICES P.O.Box 17660 Rochester, New York 14617 A ATARI ONLY $49.95 PROTECT your DISK programs and files BEFORE lending them out! THE "PROTECTOR''!™ A ATARI ONLY $49.95 includes hardware and software! The "PROTECTOR" produces a true BAD SECTOR GENERATOR which will allow you to create BAD SECTORS wherever you wish (approximately 10 per second!). You'll never have to fool with ridiculous speed adjustment or tape jerking schemes again! Simple do it yourself installation requires 15 to 20 minutesi The DISK software is the most versatile that we've ever seen and it's lightning FAST! Allows you to move and rearrange data anywhere on the disk, scrambles directories making them un- accessible to others, and offers INSTANT mapping of file disks (requires one second for ENTIRE disk!). Simple operation. All these features are done from a 720 sector FULL VIEW map for total operator viewing and simplicity! Multiple drives Digifiol SECTOR indicator Directory scrambler Moves/arranges data Selectable read/write Selectable start/end Hex conversion Disk Duping Disk mapping Instant map Compaction Fast formating Auto-formating Bod sector memory Instant restart Multiple copy function DEAlfR/DISTRIBUTOR INQUIRIES WELCOME! Our other fine products include THE "PIU" and THE "SIUNCER". Send S49.95 plus $4 shipping and handling (N.Y.S. resi- dents add 7% soles tax) to: COMPUTER SOFTWARE SERVICES P.O. Box 17660 Rochester, New York 14621 Phone Order: (716) 467-9326 Mastercard-Visa-Money Orders or Bonk Checks. Atari is a TM of Atari Inc. The "PROTECTOR" is a TM of COMPUTER SOFTWARE SERVICES (division of S.C.S.D., Inc.) 1007o WARRANTY (replacement only ■ no refund policy.) A ATARI ONIY $149.95 For years they said it couldn't be done . (( THE IMPOSSIBLE"! rs> they claimed! A ATARI Backup almost any disk currently available (even heavily protected programs) with an UNMODIFIED disk drive! $149.95 Works with ANY disk drive! PURPOSE: The "IMPOSSIBLE" was developed in response to the estimated half million disk drive users that own a drive other than the Atari 810 (Indus Per- com, Trak, Rana, Astro, etc.) that wish to BACK UP their protected software. Due to a radically new technology developed by Computer Software Ser- vices, modification to your disk drive has been eliminated! The advantages ore obvious! Drive warranties are not vioiated, the chance accidental damage has been eliminated, etc., etc. OPERATION: The "IMPOSSIBLE"! consists of a disk program (unprotected so you can make as many backups as you wish) and o 4K STATIC RAM pack which is inserted intoyour computer (no soldering!)The "IMPOSSIBLE"! will read your program disk and then re-write it In on unprotected format! You may make additional backup copies using a sector copier or even regular DOS! Because your backup copy no longer has BAD SECTORSor EXOTIC FORMATS, the program data can now be manipulated into DOS compatable files (even double density!), transfered to cassette, etc. (with the aid of our Soteiiite programs!) No user programming knowledge required. A few programs require logical thinking, FEATURES: 1. Backup protected disks 5. AFSD-Automatic FUZZY Sector Discrtminator 2. Handles most MULTI-LOAD programs 6. Expands computer memory to 52K usable 3. Makes DOS files (with Satellite option) 7. Simple NO SOLDER installation 4. Up to 90K data input capable 8. Satellite expandable PROJECTED SATELLITES: A "COMPACTOR" program which will convert your program into DOS compatable files (double density compatable!) for the storage of several programs on one disk. A "COLUMN 80" program for Word Proccessing, etc. It allows 80 columns on the screen! The "XL-MATE" will allow programs made with your 400/800 "IMPOSSIBLE"! to now play on your XL Computer! The METAMORPHOSES II program will oilowyou to convert your pro- tected CASSETTES info disk DOS files and vice-verso. All satellite programs must be used with inconjunction with The "IMPOSSIBLE"! REQUIREMENTS; The "IMPOSSIBLE" diskette, the 4K STATIC RAM pock, o 400 or 800 computer (please specify!) with 48K and "B" Rom's, NOTE! The very oid ATARI computers were shipped with "A" Rom's which hod some serious "Bugs". Even if you don't own an "IMPOSSIBLE," you should upgrade to "B" Rom's (simple to install!) We hove them available at a very inexpensive price. CALL US! "XL" version available soon! NOT A PIRATING TOOL: We at C.S.S. did not design The "IMPOSSIBLE"! to put Software Manufactures out-of-business overnight! Nearly oil of our products have been "ripped-off" by industry parasite who have little or no abiiit/ to develop a product of their own so we con sympathize with their dilemma. All C.S.S. products have built-in safe guards which prohibit their use for flagrant pirating. The "IMPOSSIBLE"! is no exception! While The "IMPOSSIBLE"! back- up the most heavily protected programs, it also checks to see that the 4K STATIC RAM pock is installed before allowing the backup copy to execute! EXAMPLES: The "IMPOSSIBLE"! has been tested on 300 of the most pop- ular and hc.'.'iN' protected programs we could find. With nearly 4000 programs for Atari, we DO NOT guarantee that it will backup all pro grams in the past-present-and future! We will supply updates at $6 each (non-profit!) if and when necessary. Programs we hove successfuily backed up include: Blue Max, Visi-cal, Archon, Mule, File Manager 800 +, Syn Cole, Syn File, One on One, 7 Cities of Gold, Super Bunny, Load Runner, Drol, and Gumboil iust to name a few! Mastercard-Visa-Money Orders or Cashier Check, Phone:(716)467-9326 Please specify computer model number! Send $149.95 plus $4 shipping and handling (N.Y.S. residents please add 7°^ COMPUTER SOFTWARE SERVICES P.O. BOX 17660 ROCHESTER, N.Y. 14617 CIRCLE #102 ON READER SERVICE CARD 16K Disk TUTORIAL Q BASIC AUTORUN.SYS File by Chet Walters Yes! Another one. I know you've got BASIC AUTO- RUN.SYS filemakers coming out of your ears. But this one's different! Sure, sure . . . that's what they all say. No, really! Before you string me up, give a listen. This one is very short (100 bytes or so) and it'll autoboot any BASIC program using any filename. But it does more than that. For one thing, it won't leave you looking at any READY prompts or blank screens while the program loads. It prints LOADING then the filename to let you know just what's happening. It'll also accept a filename up to twenty characters long. So, if you type your actual filename and leave a space (or any illegal filename character), you can have it print LOADING SNAKE[?!) or, perhaps. LOADING MENU, PLEASE WAIT. It's a very short program to key in (should only take ten minutes or so), and if you check the trailing REMs, you can see that you have a few alternatives. Designed primarily for DOS 2.0, it works with any DOS that recognizes AUTORUN.SYS files. Just type it in (don't change anything) and follow the directions on the screen when you run it. It cre- ates the AUTORUN.SYS file in about four seconds, then you're ready to go! Try it — you might like it. May all your boots be shining! □ BASIC listing. 5 REH D:RUNAUT0.BA5iC 6 REM by CHET WALTERS tcJ 84 7 REM 10 GRAPHICS ; 5C=PEEK C88} *256*PEEK <83> : DIM AS {213 . B5 C21) -.^ -.-^ "\MSSMI3BESM RUN FILE WILL BE DELETED 13 LLUSE Hi FRAP 68 ! :? "UiBMiaasnBM '■:? :? "ENTER NA T DISKETTE IN DRIOE ME OF FILE TO AUTORUN' flBltnJ"lg|sggl^^"^ =^^'^'^^^*^'^ 30 OPEN ttl,4,0,BS:CL0SE »1:? "B"; .-POKE 85,0:? B$ 35 ? :? :? "CREATING FILE, DON'T INTER RUPT" : OPEN ttl , 8 , , "D : AUTORUN . SV5" 40 FOR 1=0 TO 49:READ A:PUT ttl,A:NEKT 45 FOR I-O TO 20: PUT til, PEEK (SCH^I) :NEX 50 FOR 1=0 TO 42:READ A:PUT tll,A:NEXT I: CLOSE ttl 55 ? "B^AUTORUN FILE FOR":? AS:? "IS N OW":? " TO":? "Rliatf"; :END 60 CLOSE ttl:? CHRSC253 1 ;ERR=PEEK HS5J ; IF ERR=170 THEN ? :? " IJim;[iillj[illi:i>lMI ":GOTO 15 - ... ,„Mut 65 IF ERR=5 THEN ? "MUST BE AT LEAST T HO CHARACTERS": GOTO 15 70 IF ERR0167 THEN ? "8*11333111] ";ERR :GOTO 15 75 POKE 84.3:? "[ISOBDQQBEniiECnEMSIOi BEBdlSBD" : ? :? "PRESS >> return <<thice TO":? "REPLACE EXISTING FILE OR" 80 ? "TYPE DOS TO CHECK MENU":? :? :? "XIO 36 , ttl , , , " ; CHRS C34 J ; "D : AUTORUN . S YS" ; CHRS C34} ; " : G . 30" : POKE 84 , 7 : END 82 DATA 255,255,0,6,101,6,160,158,162, 36,142,197,2,142,23,208,142 ANALOG COMPUTING MAY 1985/ PAGE 11 BASIC AUTORUN.SYS co^ui^med 84 DATA 240, 2, 18?, 28, 6, 145, 88, 136, 202, 16,247,169,13,141,74,3,96 86 DATA 56,29,53,51,50,8,17,22,16,17,9 ,26,50,53,46,2 88 DATA 104,141,240,2,168,170,145,88,2 00 , 192 , 129 , 144 , 4 , 189 90 DATA 94,6,232,192,140,208,241,142,7 4,3,202,142,197,2,96 92 DATA 0,44,47,33,36,41,46,39,226,2,2 27,2,0,6 93 REH 94 REH FOR QUIET LOAD CHANGE-> 240,2 TO 65,0 IM LINE 88 CCURSQR HILL REMAIN INVISIBLE) 95 REH 96 REM TO HAVE NO TEXT APPEAR CHANGE-> 2 TO 6 IN LINE 90 97 REM 98 REH TO MAKE 5Y5TEM RESET CAUSE COLD START CHANGE-> 197 TO 68 IN LINE 90 (THE TEXT HON'T APPEAR HOHEVER) 99 REM PROGRAM LOADED SHOULD ISSUE A GRAPHICS STATEMENT TO RESTORE COLOR & CLEAR THE SCREEN CHECKSUM DATA. [see page 34) 5 DATA 292,43,999,50,143,567,872,756,1 60 , 909 ,126,984,907, 755 , 881 , 8444 70 DATA 457,920,458,702,683,681,289,27 4,63,276,8, 282 , 284 , 288 , 241 , 5906 99 DATA 489,489 Chet Waiters is president o/Non-Stondard Magic' in Girard, Ohio (producers of Picture Plus and List- er Plus] and an assembly technician for General Mo- tors. He's been worJcing with Ataris for nearJy four years and donates liis time to local schooJs (witii Atari systems). He has taught BASIC privately and in the classroom. FOR ATARI *400/800/1200/600XL/800XL' ■31^ M. ^®SS For ATARI 800XL, 600XL with 64k. Replacement operating system to run the vast majority of all ATARI software. No translator or disk to load! Proper RESET operation especially impor- tant for programs like LETTER PERFECT, DATA PERFECT, TEXT WIZARD, etc. One touch access to extra RAM, all RAM. One touch BASIC on. Easy plug in installation. NOW INCLUDES DUAL OPERATING SYSTEM BOARD! * Includes MacroMon XL which is an ex- cellent, unique monitor for beginner and pro alike — written especially for the BOSS. $79.95 for 800XL/600XL with 64K*. All M Hen acroware PRIISTI^IZ An all machine language lexl, graphics, mixed mode dump for EP- SON, GEMINI, NEC, PROWRITER, OKIDATA, M-T SPIRIT, 160L, KXP-1090, DMP-80, ISD 480, SEIKO/AXIOM CP550A. Self booting can be used while pro- gramming or even running other pro- grams. Works with or without BASIC, ED/ASM, PILOT, LOGO. Calendar generator. Horizontal format allows text to be continued in same direction. Change widths, height, center and much more from the keyboard or your program. Special handlers for PAINT, Micro-Illustrator, LOGO, Micro- painter, etc. Includes LISTER program for inverted and special characters plus demos and ideas. $29.95» 16K Disk- All Interfaces. diskwiz-ll Fast and easy to use repair, edit, ex- plore, dup, disk utility package. Single load, single or double density. Special printout capabilities. Repair or change of linked D052 or OSA-F2 files, directories, dup filenames. Fast searches, mapping, file trace. Disassembler, speed check and much more! Low priced, fast, easy, and powerful! $29.95 16K Disk. Send s.a.s.e. lor update into. •TERMS: U.S. funds: check or M.O. add $2.50 shipping/handl- ing add 6% CA - 6.5% LA COUNTY add $3.00 for C.O.D. No charge cards ac- cepted add $2.50 foreign orders normally out within 48 hours. P.O. BOX 2205/REDONDO BEACH, CA 90278 (21.3) 376-4105 * Tr.Klemjrk of Atari, Int. CIRCLE #103 ON READER SERVICE CARD PAGE 12 / MAY 1985 ANALOG COMPUTING SUPERPRINTER PACKAGES Gemini 10X and U-Print A 319.00 Gemini 10X and Apeface XLPS 319.00 Panasonic 1091 and U-Prinl A 364.00 Panasonic 1090 and U-Print A 279.00 Legend 880 and U-Print A 309.00 Prowriter and U-Print A 385.00 No additional ship, charges on printer packages in Cont. USA Bring the trivia craze home with P.Q. The Party Quiz Game for the Atari 800 & 800XL (disk only) 49,95 A ATARI ATARI isatrademark of ATARI, INC. Atari Inc. has cut all hardware and soft- ware prices. Please call for latest prices!! PRINTERS Axiom AT-550... 279.00 Epson Call Prowriter I 309.00 Riteman Call Silver Reed Call Toshiba 1340 Call Toshiba 1351 Call Silver Reed Call Legend 880 239.00 Panosonic 1090 .219.00 Panosonic 1091 .285.00 .IL micro nics-ific TME POWER BEHIND THE PRINTED WORD. Gemini 10X . . 245 Gemini 15X . . 389 Delta 10X. .. .339 Delta 15X... .499 Radix 10X.. .549 Radix 15X.. .629 Powertype . . .329 MOSAIC 48K RAM 99.00 64K RAM/400 . . 149.00 64K RAM/800 -i- Cable Kit #1 . .169.00 64K Expander for 600 XL 99.95 ■A- Call for prices on joysticks, printer cables, blank floppy disks, and other computer ATARI MODEM SPECIAL Hayes 300 & R-Verter 239.00 Hayes 1200 & R-Verter Call No additional shipping for Modem packages in Cont. USA I w DISK DRIVES Indus GT Call Percom Call Astra 2001 Call MODEMS Hayes Amart Modem 300 Call Mark II 79.00 Mark Vll/Auto Ans/ Auto Dial Call MarkXII/1200 Baud. .Call MPP 1000 C Call R-Verter Modem Adaptor 39.95 INTERFACES Aid interfast 1 Call Ape Face XLPS Call R-Verter Modem Adaptor 39.95 MPP 1150 Call U-Print A Call accessories, j^ R E SPINNAKER (contd.) Delta Drawing -Cart 22.95 Pacemal(er-Cart 22.95 Fraction Fever -Cart 22.95 Grandma's House-D 19.95 Kids on Keys-Cart 22.95 Kindercomp-Cart 22.96 Search /Amazing Ttiing-D. 22.95 Snooper '1-D 22.95 Snooper '2-0 22.95 Story Machine-Cart 22.95 Tralns-D 22.95 SSI Corner Force -D 41.95 Combat Leaaer-D/T 27.95 Cosmic Balance 11 -D 27.95 Cosmic Balance - D 27.95 Broodsides-D 27.95 War in Russia-D 55.96 50 Mission Crush-D 27.95 Questron-D 34.95 Ralls West-D 27.96 Bomb Alley-D 41.95 Computer Ambush -D 41.95 Galactic Adventures-D .... 41.95 Computer Baseball -D 27.95 Reforger 88 -D 41.95 Objective Kursk -D 27.96 Breakthrough / Ardennes / D 41.96 Field of Fire-D 27.95 Imperial Galactium-D . , , . 27.95 SYNAPSE Air Support-D/T 23.95 Alley Cat-D/T 16.95 Blue Mox-D/T 23.96 Dimension X-D/T 23.95 Dreibs-D/T 23.95 Electrician -D/T 23.96 Encounter-D/T 16,96 Fort Apocalypse -D/T 23.96 Necromancer-D/T 23.95 New York City-D/T 23,96 Pharoah's Curse-D/T 23,95 Quasimodo-D/T 23,95 Rainbow Wolker-D/T,,,, 23,95 Relax Stress Reduction Sys, . 79,96 Shamus Case li-D/T 23.95 Zepplin-D/T 23.95 Synfile-D 34.95 Syncalc-D 3495 Syntrend-D 3495 Synchron-D 27,96 Syncomm-D 27,95 Synstock-D 27,95 D-Dlsk T-Cassette Catt-Cartrldge ACCESSORIES Ape-Link 29,95 Gemini lOX 8K Upgrade , , . , Call Koala Pad-D 69,95 Koala Pad-Cart 74.95 Humply Dump-D 29,95 Monitors Coll Gompuseree Starter 27.95 Vidtex 29,95 EIS Subscription Kit 64,95 Analog Compendium 9,95 Atari Assembler 14,95 Compute's Machine Lang /Beg 12,95 Inside Atan Dos 19.95 Mapping the Atari 14.95 Compute's lst-3rd Books Atati-EA 12.96 Printer Stand 15.95 Omnimon 82,95 Omniview 80 39,95 Printer Ribbons Call Ramrod XL Coll WICO Joysticks Call MPP 64K Printer Buffer Call U-Print 16, 32, or 64K Buffer, Call TAG ill Joystick 12,95 Startighter Joystick 9,95 Ramrod XL 99,95 Muppet Keys (XL 0nly)-D , 64.96 ACTIVISION Decatholon-Cart 29.95 Beamrider-Gort 29,95 Hero-Cart 29.95 Pitfall ll-Cart 29,95 River Raid-Cart 29.95 Designer Pencil - Cart 29.95 Space Shuttle- 29.95 Lone Ranger-Cart 29.95 Zenji-Cart 29,96 AVALON HILL Coll for items and prices BRODERBUND Bank Street Writer -D 49,95 Loderunner-D 23.96 Mask of the Sun-D 27.95 Operdtion Whirlwind -D . , . 27,95 Speiunker-D 20,95 Steifh-D 20,95 Whistler's Brother 20.95 Print Shop-D 34.95 Serpent's Star-D 27,95 CBS SOFTWARE Coil tor items and prices DATASOFT Bruce Lee-D/T 27.95 Micropainter-D 23,96 LostTomb-D/T 23,95 Letter Wizard + Spell -D. ,54.95 Conan the Barbarlan-D/T. 27.95 Mr. Do-D/T 27.95 Dig Dug-D 20,95 Pole Position -D 20,95 Pacman-D 20,95 DISKETTES Dyson Gall Verbatim For Certron 10 pak Elephant & Maxell Quantity Memorex Pricing. Ultra Magnetics BASF Wabash ELECTRONIC ARTS Archon-D 2995 PinbGll Construction - D . , , , 29.95 M.U.L,E,-D 29,95 Murder/Zinderneuf-D , , . , 29.95 One on One-D 29,95 Archon ll-D 29.95 Financial Cookbook • D , , . . 37,95 Music Construction -D , , , 29,95 Realm/lmpossibility-D , , , 29,95 Hard Hot Mock-D 29,96 EPYX Coll for items and prices INFOCOM Deadllne-D 29,96 Enchonter-D 23,96 Infidel-D 29,95 Planetfoli-D 24.95 Sorcerer-D 29,95 Starcross-D 29,96 Suspended-D 29,95 Witness-D 29,95 Sea Stalker- D 24,95 Cutthroafs-D 24,96 Suspect-D 24,96 Hitchiker-D 24,95 Zork 1-D 24,96 Zork II or lll-D 27,95 MINDSCAPE Coll for items and prices MICROPROSE Chopper Rescue-D/T 23.95 Floyd/Jungle-D/T 23.95 Hellcat Ace -D/T 23.95 Mig Alley Ace -D/T 23.95 NATO Commonder-D/T . , 23.95 Solo Flight-D/T 23.95 Spitfire Ace -D/T 23,95 Wingman-D/T 23.95 Air Rescue 1-D/T 23,95 Challenger-D/T 23,95 F-15 Strike Eogle-D/T ,,., 23,95 MISCELLANEOUS ATARI Diskey-D 3495 Ultra DIsassembler-D 34.95 Godewriter-D 39,95 Stdr League Baseball D/T 23,95 Star Bowl Football - D /T, . .23,95 Master Type-D/Cart 27,96 Flight Simulator ll-D 37,95 S,A,M.-D 41,95 Castle Woltenstein-D 20,96 CompuServe Starter Kit, , , ,27,95 Home Accountant- D 49.95 Megofont ll-D 19,95 Monkey Wrench II -C 37,96 Movie Maker-D 37,96 Ultima lll-D 41,95 Jupiter Mission - D 34,96 Boulder Dash -D/T 20.96 Scraper Coper-Gort 34,95 Miner 2049'er-Cart 34.96 Spy Hunfer-Oort/D 29.95 Topper-Gort/D 29.95 Up 'N Down-Cart/D 29,95 Beach Landing -D 2795 Pic Builder-D 27,95 Astrochase-D 20.95 Fiip-Flop-D/T 20,95 Sorgon ll-D/T 16,95 Odesto Chess -D 49,95 Millionaire-D 27,95 Spy vs, Spy-D 23.95 Adventure Writer-D 27,95 MMG Basic Compiler-D. , ,69.95 Summer Gomes-D 27.95 Pitstop ll-D 27,95 Gateway to Apshai-Gart , . 27,95 Montezuma's Revenge-D, ,27,95 Dragon/Pern -D 27.95 Adventure Master- D 34,96 Get Rich Series -D 34,95 MISC. ATARI (cont'd.) MPP Modern Driver -D 19,95 Microfller-Cart 3495 Microcheck-D 34.95 Mr. Do's Castle-Cart 3495 Frogger ll-Gort 34.95 NetWorth-D 5495 Stickybear-D 27.96 Windham Giossics-D 19.95 Omnitrend Universe-D, , , .69.95 Space Beagle -D 23.95 Adventure WrIter-D 41,95 Beachheod-D 23,95 Letter Perfect/ Spell -D , . . , 74.96 Horcourt/ Bruce S.A.T- . , ,59,95 S.A.G.E. Graphics Edifor-D 39,95 Strip Poker-D 23,95 Millionaire-D 27,96 Scroll of Abodon-D 23,95 Ultima IV-D 41,95 Raid Over Moscow-S 27.95 Micro-League Boseboll-D . 29.95 Paper Cllp-D Coll Home Pak-D 37,95 Ultima li-D 41.95 OPTIMIZED SYSTEMS Action -Cart 69.95 Basic XL-Cart 69,95 MAC/65-Cart 69.95 MAG/66 Tool Kit-D 27,95 Action Tool KIt-D 27,95 DOSXL-D 27.96 Action Aid-D 27,95 C65-D 59,95 Hondy-Wrlfer-D Gall Postol Tool-D 41,95 Print Tool-D 41,95 SCHOLASTIC Gall for Items and prices SCREENPLAY Call for Items dnd prices SEGA Cdll for Items and prices SIERRA ON-LINE Call for items and prices SPINNAKER Adventure Creator- D 22,96 Aerobics-D 27,95 All In the Color Coves-C . . 22.96 Alphabet Zoo-Cart 22,95 To Order Call Toll Free 800-558-0003 For Technical Info, Order Inquiries, or for Wise. Orders - 414-351-2007 .p c % '^. % % J '"^h ^ ORDERING lEJFORMATlON. PIrrise bpecify system i-or fast delivery send casliiLr ( li> lI. iiionry okJ( \ or diu i i bini^ transfers. Personal and company checks allow 2 weeks to clear. Charges for COD are $3,00, School Purchase Orders welcome, in CONTIi^ENTAL USA, include $3.00 shipping per software order. Include 3% shipping on all Hardware orders, minimum $3.00. Mastercard & Visa please include card # and expiration date. Wl residents please add 5% sales tax. HI, AK, PRO, ARC, Canadian orders — add 5% shipping, minimum $5,00. All other foreign orders, please add 15% shipping, minimum $10.00. All goods are new and include factory warranty. Due to our low prices, all sales are final. All defective returns must have a return authorization number. Please call 414-351-2007 to obtain an RA# or your return will NOT be accepted for replacement or repair. Prices and availability are subject to change without notice. COMPUTABILnY P.O, Box 17882 Milwaukee, Wl 53217 ORDER LINES OPEN IVlon-Fri 11 AM - 7 PtVI CST Sat 12 PM - 5 PM GST CIRCLE #104 ON READER SERVICE CARD EDUCATION '«i r GRIFFWS LAIR by Braden E. Griffin, M.D. In ANALOG Computing's issue 24, I reviewed an exceptional educational game from Sprout Software, called Tonk in the I.and of Buddy-Bots. Now, two ad- dilional programs are available in the TinkTonk series of educational software designed for children of ages four to eight years. While maintaining the same high level of quality, these new games have an even greater educational thrust. TINK'S ADVENTURE Sprout Software MINDSCAPE, INC. 3444 Dundee Road Northbrook, IL 60062 (314) 480-7667 48K Disk $24.95 Tink is the trusty leader of the Tink- Tonks and is about to embark on an ad- venture. As Tink ai-rives on foot at Tink- Tonk Lake, he has the choice of continu- ing the adventure by helicopter or boat. Having selected the means of transpor- tation, one is given the chance to play a game or begin the adventure. At various junctiu'es, similar options appeal', providing Uie opportunity to play one of seven games included in the ad- venture. Most of tliese games have educa- tional value, but two of them, l^ilot l3oat and fly Helicopter, are included jusi for f u n . Using the keyboard, one may pilot the boat ai'ound the islands in TinkTonk Lake or fly the chopper through the sky in front and back of islands, clouds and even stars. These activities have no bear- ing on the course of the adventure, but simply provide a pleasant little interlude. The other five games are designed to help children learn ABC order and to familiarize them with the computer key- board. In Get Gas, four consecutive let- ters of the alphabet are displayed with a blank at the begimiing or the end of the sequence, depending on the option one has chosen. The level of difficulty may be selected as hai'd, where ten correct answers are required to fill the helicopter's tank. This task is made easier with a display of the complete alphabet at the bottom of the screen. A harder level requires twenty correct answers witliout the benefit of the PAGE 14/ MAY 1985 alphabet display. There is no time limit. and incorrect answers ai'e ignored and incur no penalty. This game provides an opportiuiity lor the young child to arrive at an answer, whether from the screen display or the time-honored "mental recittition," whik; exploring the keyboard without the pres- sure of time or the fear' of being wrong. The development of speed and accm-acy in the leai-ning process is important, but before this can be achieved, the basic in- formation must be as,similated without stress. hi Go fishing, children get to know the computer keyboard. The keyboai'cl is di- vided into four designated areas: the lop row of numbers, and the left, center and right portions of the remaining keyboard area. After a specific area is chosen, or the entire keyboard, if desired, the size of the fish is selected — from one to five charac- ters long, finally, one of three speeds is chosen, determining how fast the fish will swim. As tlie combinations of characters pass beneath the boat, they are reeled in by reproducing them exactly as shown, be- ANALOG COMPUTING Educational Programs Review LR>c<i fore they disappear from the screen. All the necessai'y levels of progression are provided to establish proficiency on the keyboard. Anyone able to snag all twelve fish of the largest size (five charac- ters) at the fastest speed is a whiz. I can- not come close to doing it. While cruising around the lake, Tink's boat may spring a leak and can be saved only by playing Sinking Boat. Another game emphasizing the key- board, this one requires the player to type in the missing letter or number of a series of characters that are displayed in the same sequence as they appear on the computer keyboard. A trip to Davy Jones's locker can be avoided with five correct answers with- in one of three preselected time limits — fifty-five seconds, thirly-lhree sec- onds or ten seconds. If the boat sinks, all is not lost, since further opportunities to play the game and save the boat are provided. Even to- tal failure does not stop the adventure, but more on that later. Eventually, Tink lands on a large is- land and, while exploring its secrets, suddenly finds himself being harassed by a gorilla who's throwing coconuts from the top of a palm tree. Sounds like time to play Coconut Catch, eh? Three-letter alphabet sequences are displayed on the screen with a blank in the middle. If the correct letter is sup- plied before the coconut hits the ground, it becomes part of a pyramid. R5TU CBErGHIJKLMHOPQRiTliUHXVZ Tink's Adventure. The first level gives one twelve tries to build a pyramid out of ten coconuts. The harder level requires one to build a fifteen-coconut pyramid with eighteen tries, and the hardest level gives twenty- five tries to assemble a pyramid from twenty-one coconuts. The last game is played when Tink's search leads him to Cork's Treasure. Here, one can practice ABC order alone, or ABC order and keyboard sequences mixed together. A five-character sequence displays, with one of the spaces blank. With ten correct answers in a row, Cork disap- pears, and the treasure is won. In the fast level, one has six seconds to enter the correct response. In the faster and fastest levels, this time limit is four seconds and two seconds, respec- tively. The overall design of Tink's Adven- ture is excellent. The adventure theme adds a bit of excitement without the threat of danger. If the helicopter runs out of gas and plunges into the water, or if the boat sinks, Tink, the Indiana Jones of TinkTonk Land, laughs in the face of danger and prevails. There always seems to be a raft or friendly whale around to get Tink to the island and continue the adventure. If one fails to accomplisli a task the first time, additional opportunities are pro- (continued on next page) ANALOG COMPUTING MAY 1985 / PAGE 15 A GRIFFIN'S LAIR continued vided, if desired, or one can simply con- tinue the adventure. Clever graphics and straightforward on-screen instructions complement each other. One of the highlights of this pack- age is the distinctive music which ac- companies Tink on his adventure. From the lively, upbeat melody as the adven- ture begins to the chillingly haunting theme while following Cork's tracks, a mini sound track has been created — the perfect cherry with which to top the dessert. The educational objectives are sound, and the methods used are right on line. TUK GOES TO TOWN Sprout Software MINDSCAPE, INC. 3444 Dundee Road Northbrook, IL 60062 (314) 480-7667 48K Disk $24.95 The basic format in this game is simi- lar to Tink's Adventure. Tuk, the gar- dener in TinkTonk Land, makes a trip to town with plenty of stops along the way. During this excm'sion, any of sev- en games may be played. Tuk can travel to town by motorcycle, train, speedboat, or any one of eight possible modes of transportation. On his way, Tuk can travel through the farm, fair, forest or seashore, each with its own special game. Once in town, visits to the three dif- ferent stores provide additional games to be played. The educational objectives of the games comprising Tuk Goes to Town promote the development of visual discrimination skills, provide practice with spelling and help to build a larger vocabulary. The Farm game requires the player to unscramble the letters of either animal names or farm words. A picture of the animal is displayed above each letter, and a correct response makes the ani- mal jump into the pen. No penalty is as- sessed for incorrect keyboard entries, and an unlimited number of attempts is permitted. The Fair game is described as "Just for fmi," but, in fact, visual discrimina- tion skills will be enhanced, particularly in younger children. The game itself uses a shooting gal- lery, the targets consisting of a row of ducks. A variety of shapes move across the screen just below the ducks. In the center of the screen is a stationary group of three to five shapes, which are to be matched from left to right when their counterpart appears in the target sight immediately imder the duck. The player is provided with a limited number of bullets to shoot down the ducks. 4,tk^^%%4^ii L E fl U E 5 Tuk Goes to Town, ffi The Forest game is tlie most difficult and the most fun of all the games. Differ- ent shapes or letters are hidden in the forest. Numbers from one to nine are used to designate the hiding places. In "hidden shapes," a series of differ- ent shapes is displayed on the screen. A number hi the lower right-hand cor- ner of the screen denotes the number of attempts allowed to match these shapes. A free "peek" is given at the beginning, to see where the shapes are hiding. The shapes are matched from left to right, with each key pressed counting as one attempt. In "hidden letters," the object is to find the letters of a common forest word . Memory and concentration skills are ex- ercised in this game. Arriving at the Seashore, Tuk needs help to win a boat race. The player is presented with either a scrambled word or a word with missing vowels. In either case, with each correct entry, Tuk's boat moves closer to the finish line. Another boat, the competition, moves steadily toward the finish at one of two selected speeds. If all of the necessary letters are entered quickly enough, Tuk will win the race. Increasing the player's vocabulary and providing spelling prac- tice are the goals of this game. Once Tuk gets to town, there ai'e three stores for him to visit. These are games which stress pattern and shape recog- nition. In the Toy Store, a group of eight wrapped packages is displayed, with a letter beneath each one. One of the pack- ages differs from the others, and when the corresponding letter is pressed, it fills one of the blank spaces of the Toy Store word being sought. The packages change after each entry. The Market game consists of two ac- tivities which emphasize the develop- ment of similar skills. In "match the shapes," a series of shapes is displayed on the left side of a balance scale. At the bottom of the screen, several shapes are shown with letters in them. Matching a shape on the scale with the right one from the bottom places the respective letter on the right side of the scale. The scale is balanced when the correct mar- ket word is spelled out. As many tries as needed are permitted. In "find the word," only half the shape to be matched is shown on the scale, making it a little more difficult. The Clothes Store game is another of those just for fun. By selecting one of six styles of hats, pants, shirts and shoes, one can dress Tuk in a variety of fash- ionable togs. As with Tink's Adventure, the design featui-es of this program ai'e superb. With a little more emphasis on spelling and vocabulary, Tuk Goes to Town is as stimulating for older children as it is for younger ones. The TinkTonks are quite capable companions for these adven- tures into education. H Dr. Giiffiu, as Chief of Newborn Medi- cine at a perinatal center, spends most of his time in the newboi'n intensive care wai'd. 0//-hours, he's been using an Atari 800 /or /our years. ANALOG Com- puting magazine is almost entirely sub- sidized by Dr. Griffin's health insurance reimbursement, for providing psj'cho- therapy (hrough writing — to cure his unbelievable attraction to cliches. PAGE 16 / MAY 1985 ANALOG COIVIPUTING COMPUTER PALACE we, know atari! INDUS GT DISORIVE • Free Software • Double Density • 1-Yr. Warranty Our Most Popular Drive! We recommend and sell more o( Ihese drives than any other. It's so quiet tfiat you'll protiably (orget you are using a disk drive. Flip-up dust cover, LED readout, and FREE SOFTWARE (DOS XL, Word processor. Data- base. Spreadsfieet. Programming book by DatamosI ),,.This package is liard to beat! New Low Price $259.95 48K Disk $39.95 Program Covers 4 Disk Sides CALL US AT (503)683-5361 FOR INFORMATION Outsmart Your Friends Outwit The Dragon Join The Quest A nevi concept in computer gaming. Intellectual challenge, strategy and arcade action. Each player assumes the role of a lord with a questing party of three characters. Complete the quest, earn the most gold by answering questions and battling the dragon. Win the favor of the king and thus. Ihe game • Utility Disk: 1000 Additional questions plus create your own... $24.95 GAMES star Raiders Joust Robolron Donkey Kong Dig Dug Defender Ulysses Tennis Jllimall Ultima III Bounty Bob Strip Poker Bndge4 Spy vs Spy Castle WoilensI Poker Sam Bristles Culthroats Enchanter lutL Baseball Chess 7.0 Checkers Pitslopll Computer Ambush Broadsides Kampfgruppe Adventure Writer Ail Baba Return Hercules Savage Island Voodoo Caslle Secret Mission Dimension-X Zombies Bruce Lee Conan Ghost Busters Archon 11 13.95 35.70 35.70 27.90 27.90 17.95 19.95 13.95 52.50 39.95 44.90 31.50 22.50 26.90 26.90 22.50 26.90 31.50 31.50 35.10 59.50 44.90 35.10 52.50 35.10 52.50 26.90 26.90 28.90 17.90 17.90 17.90 31.50 31.50 35.10 35.10 26.90 35.10 EDUCA- TIONAL Hundreds of Titles Please call us (503)683-5361 BOOKS IVlisc: 6502 Programming 18.95 6502 Subroutines Advd Pro Tech At Advent w/Atarl Assem Lan Progr Basic Atari Bas Basic Atari Kids Best Antic w/Dsk Elementary Atari Atari: Assembler Basic Fast & Bel Basic Source Bk For Kids 8-80 Games & Rec Graphics &Arc Playground Roots Sound & Graphics Users Encyloped W/55 Programs Compute: 2nd BKtJach Lan FBO Alan Graph FBO Atari Games FBO Atari Great ADV Games 2nd Bk of Atari 3rd Bk of Alan 17.95 14.50 14.95 15.95 15.95 12.95 24.95 14.95 15.95 19.95 12.95 15.95 14.95 16.95 9.95 14.95 10.95 19.95 14.50 14.95 12.95 12.95 12.95 12.95 12.95 12.95 • Maintain your book library... • Organize your record collection... " Index your reclples... • Categorize your stamp collection... • Unlimited applications! Features: ' LIGHTNWG FAST RETRIEVAL • FAST SORTS ON ANY FIELD • SUPPORTS UP TO 4 DRIVES • SINGLE OR DOUBLE DENSITY • STORE ABOUT 1200 RECORDS PER DISK SIDE IN DOUBLE DENSITY • MUCH IvIOREi Protect Your Equipment DUST COVERS Custom fitted, attractive leather brown color: •ATARI 400, 800, 600/800/1 200XL, New XE&ST. 410, 810, 1050, 1025, 1027, CXB5 • EPSON, GEIyllNI, PROWRITER printers • INDUS, RANA, PERCOM, TRAK disk drives. Additional covers ordered at same time ONLY $8.95 EACH ON LY$7.95 EACH Much More Than A Mailing List! One of the most versatile data-base programs available. Includes: • FAST SEARCH (1 Sec 10 find a name out ol 1000) • SEARCH ON ANY FIELD • STATE CODE ABBREVIATION TABLE built-in • SPECIAL CODE FIELD allows you 10 retneve data Irom up to 12 codes • PRINT LABELS 1, 2, or 3 up • FAST SORT of your records by name in any ol 8 ItelCs (Sort 200 records in less than 40 seconds-lrue 3-D son) AQiy r\- ■ (f *n nc • MERGE files 10 create combinalion files 40l\ UlSK a^y.yO • DELETE DUPLICATES aulomalic or manual n " i- u j w ■ « n • REDEFiNABLE FIELDS Nbw Enhaficed Version 2.0 New! Mail Merge Utility for Atahwriter, Letter Wizard . , . $19.95 Now you can use your Super IVIailer -i- records with Alarwriter and LeUer Wizard. Use names and addresses to create form letters. Input special characters into the word processing programs to tell super mailer + where to put the information. It's as easy as 1...2..,3! NEWl COMPUTER PALACE B.B.S. We are now running a bulletin board syslem as a service to our modem cuslomers You will be able to place an order wiili us by usmg your modem: just follow ihe screen instructions We will be featuring download files such as public domain games, utilities, and program demos We will have a section about the latest Alart products, news, and rumors., and lor Ifiose fruslrated adventurers. Itiere will even be a section of titnts and answers for the whole Atari adventure realm' 1-503-683-7454 (6:0Op.Tn. to8:00a-m. PST) Super-5 CPA80 Printer S279.00 + FBI A "best buy" I Features "square dot" print head with the best print quality for the money. 100CPS, bi-directional, graphics, and EPSON compatible. Plain or Pin-fed paper. Give us a call! '^ Peachtiee Software -^ Now, one of the most popular accounting systems is availale tor Atari. Back to Basics Accounting System is a double entry, accrual accounting system consisting of three interactive packages for the small business: General Ledger, Accounts Receivable and Accounts Payable. A powerful system, it includes automatic posting, system generated mailing labels and password security. For the non-accountant, it comes with one of the most comprehensive manauals we have seen. For the expert, it will finally put your Atari in business. Requires 2 drives. 48K Disk-System Package. ..$195. 00. Each. ..$95, 00 BUSINESS Assm Editoi 31.50 Ivlonkey W'ch 11 29.95 Alariwriler 39.95 LeIIerperlecl 87.90 Spell Wizard 44.90 ABC Compiler 69.95 B/Graph 62.50 PeachlreeG/L 95.00 PeachireeA/P 95.00 PeachlreeA/R 95.00 HomeAcccunlanl 67.50 Synfile 49.95 Syncalc 49.95 Syntrend 49.95 Synslock 35.10 Home-Calc 35.10 I\1ac/65 87.90 Action 87.90 Basic XL 87.90 Wriler'sTool 87.90 Tele-Talk 44.90 Financial Cookbk 44.90 Basic Carlndge 29.90 Graphic s Gener 22.50 tdicrosll Basic 2 55.00 PARTS & MISC Disk Cleaner 13.95 800 Power Supply 24.95 10 Disk Mailers 6.50 10 Generic Disks 13.95 Ten Key Pad 39.95 Touch Tablet 54.95 Compu-Serve 39.95 Indus Dr Slacker 19.95 Oak Monitor Sid 29.95 Prmler Stand 24.95 Disk Bank(50) Disk Bank(35) Regular Joystick Deluxe Joystick Swivel Base Joystick Cord Joystick Handle Joystick Board J slick 12' ExI Surge Protector Printer Inlrface 64K for 600XL Relax Sherlock 15.95 9.95 9.30 19.95 39.95 2.95 1.49 2.49 9.95 39.95 69.95 79.95 99.95 26.90 SPECIALS Rally Speedway Shamus Pacific Csl Hwy Crossfire(T- Dl Match Racer Slime Bandits Jawbreaker Eastern Front Canyon ClmblT- Pool 400 Speedway Blast Repion Wayoul Threshold Slellar Shuttle WizolWor Deluxe Invaders Gorf Miner 2049er Choplitter Lords of Karma 19.95C 9.950 9.950 9.95 9.950 9. 950 9. 950 9.95D 9.95T D) 9.95 14.95C 14.95C 9.950 9.950 9. 950 9.95T 17.95C 17.95C 17.95C 17.95C 19.950 9.950 Disk T Tape C Carlndge New ATARI 130/520ST Computers 128K-$399/512K-$599 The current flagship of the Atari Family has arrived, utilizing the speed of the Motoria 68000 CPU. With 128K or 512K, you will have power at prices you wonT believe. And with a mouse, pull-down menus, windows, icon graphics and cut and paste features that allow you to integrate spreadsheet, text and graphic tiles; creative solutions have never been easier. The quantities are limited, so place your order now to get yours as soon as possible W%w. DISK NOTCHER SPECIAL! Only $9.95 Now use both sides of your diskettes Simply place the disk against the built-in stops and squeeze FREE CATALOG with any order ... or send $1 (refundable with first purchase) You will receive the most comprehensive reference catalog available. Containing hundreds of software and hardware listings with illustrations and descrip- tions, our main catalog will give you the answers you need. Join our mailing list and receive free flyers with updates and special offers. New Price... $29. 95 Cartridge Open up a whole new world of BASIC computing ease. 33 direct mode commands and functions. Also includes a machine language monitor to interact with the 6502. Now Available for the XL! [ COMPUTER RALACE OPEN M-F. 9-6 Sat 10-4 (Pacific Time) 2160 W lltti Avenue Eugene, Oregon 97402 USE YOUR CREDIT CARD & CALL Toll Free 1-800-452-8013 * ORDERS ONLY, PLEASE • There's never a penalty lor using your credil card! For Information, Call (503) 683-5361 SHIPPING INFO: Minimum $2 90 Ground, $4.75 Air Actual Cost depends on weigtit Call (503) 683-5361 tor information WARRANTY INFO: Everyttilng that we sell is warrantied by ttie manutacturer If any item purctiased from us fails to per- form properly wtien you receive it. call us at (503) 683-5361 so ttial we can assist you No returned merctiandise accepted without auttiorization Defective software will be replaced with another copy ol the same program, otherwise, no soft- ware is returnable CIRCLE #105 ON READER SERVICE CARD varied o^t -J, WoU »-"^^e-ve ^'^^ y^ave Kev^ . a.;;;r- -^^^^\ ..ea.V o-^e^^ V;-- " THaoKs- Uotsa BY^es PAGE 18 / MAY 1985 ANALOG COMPUTING ASK MR. FORTH by Donald Forbes If the audiences at your FORTH demos ever won- dered why a digital computer Uke Atari should be supported by a magazine whose unlikely name is embedded with dots, you can explain that it is short for Atari Newsletter And Lots Of Games. Most of the games from the first ten issues have been collected in the ANALOG Compendium, which they can obtain for fifteen pieces of silver (actually $14.95 plus $2.00 postage and handling). For another thirty pieces of silver, they can mail the card enclosed in the Compendium, to get the games on six sides of three disks, and save themselves some typing. The Compendium (an old ten-dollar word from the Latin for "that which is weighed together," now used to refer to a short, complete summary] also includes a dozen short programs in BASIC that show off Atari's graphic capabilities to good advantage. The structure of some of these programs makes it easy to translate them to FORTH and thus show some of the similarities and differences between the two languages. The first and shortest (Compendium, page 114] is a color demo in graphics 8 mode. Here is the BASIC code: R»C€. 5 REH GRAPHICS 8 COLOR DEMO 18 GRAPHICS 8:5ETC0L0R 2, 0, 15 : 5ETC0L0R l,e,0:COLOR 1 26 FOR X-O TO 200 5TEP 2 30 PLOT K,0:DRAHT0 X.IO 40 NEXT H 58 FOR X=l TO 201 5TEP 2 68 PLOT X,2e:DRAHT0 X,30 78 NEXT X 88 FOR X=e TO 280 90 PLOT X,40:DRAi<IT0 X,5e 180 NEXT X This program splits into four logical sections. We can mark these with a red pen and ruler after Lines 10, 40 and 70. Here is the line-for-line equivalent in FORTH: : GRSCOLOR 8 GR. 2 8 15 5ETCDL0R 18 5ETC0L0R 1 COLOR 201 DO 1 8 PLOT I 10 DRAMTO 2 +LOOP 202 1 00 1 20 PLOT I 38 DRAHTO 2 +LOOP 201 DO I 40 PLOT I 50 DRAHTO LOOP ; Note that the limit of the DO. . . LOOP in FORTH is one more than in BASIC, because FORTH quits when it reaches the limit. Furthermore, the colon ANALOG COMPUTING MAY 1985 / PAGE 19 ULTIMATE STORAGE Here's the perfect way to organize your ANALOG Computing library— sturdy, custom-made binders and files in deep blue leatherette with embossed silver lettering. Silver labels are included to index by volume and year One binder or a box-style file is all you'll need to accommodate 12 issues (1 year) of ANALOG Computing— all the games, programs, tutorials and utilities that you want handy. The ANALOG Computing binder opens flat for easy reading and reference. They're economically priced at only $8.50 each— 3 binders for $24.75 or 6 binders for $48.00, postage paid. The ANALOG Computing file is attractive and compact, holding 12 issues for easy access. Files are available for only $6.95 each— 3 files for $20.00 or 6 files for $36.00, postage paid. Foreign orders — add $2.50 each for shipping and handling. Please allow four to five weeks for delivery. Enclosed is my check or money order in the amount of $ . Please send me: ANALOG Computing files ANALOG Computing binders. PLEASE PRINT. Name: Address: City: State: Zip Code: Send your order to JCSSG JOReS IndliStrieS P.O. Box 5120, DEPT. ACOM, Philadelphia, PA 19141 Satisfaction guaranteed or money refunded. CIRCLE #106 ON READER SERVICE CARD ASK MR. FORTH comuiued definition is too long, even though it will work. FORTH is easier to miderstand and debug in small bites. An improvement would be to break the pro- gram into four pieces by line numbers, then combine them into one colon definition this way: : GR8C0L0R LINEie LINE2e LINESO LIHESO ; The second program (Compendium, page 57) is a Graphics 11 GTIA demo. le REM GRAPHICS 11 GTIA DEMO 20 REM 30 GRAPHICS 11 40 CI=l:C=0:SETCOLOR 4,0,2 50 FOR Y=0 TO 191 60 FOR X=0 TO 79 70 C=C*l:IF C=16 THEM C=0 80 COLOR C 90 PLOT H,Y 100 NEKT M 110 LC=LC+l:IF LC=16 THEN Cl: 120 C-C+CI:IF C=16 THEM C=0 130 NEKT Y 140 GOTO 140 -ci:lc=i In this program, there is a logical break after Line 40, and another after Line 130, with a DO. . .LOOP in Lines 60 to 100 embedded in another DO. . . LOOP. Since the inner loop invokes the counter for the outer loop, we will need a definition of/ (a FORTlri-79 word that is not included in fig-FORTH, even though it's found in both Team Atari FORTH and valFORTH). The outer loop index Y in the BASIC program be- comes /, and the inner index X becomes I. Furthermore, the three variables CI, C and LC, which are defined automatically in BASIC, must be defined separately in FORTH. Here again is the line- for-line version: VARIABLE CI VARIABLE C VARIABLE LC : J R> R> R> R Rtt ! >R >R >R Rtt G ; : GRllGTIA ( graphics ll gtia deHO } f ren i IX GR. 1 CT ! C ! 4 191 1 + DO C 79 1 + DO 1 C *• C e 16 = C e COLOR I J PLOT t H = LOOP 1 LC +! LC e 16 CI e MINUS CI CI e c *! c e 16 C ! THEN LOOP BEGIN UNTIL ; This code, too, calls for comments. In the first place, the colon definition is too long and should be broken up. Second, the endless loop 140 GOTO 140 can be handled in other ways. One way is a time- 2 SETCOLOR add 1 to liHitJ IF C ! THEN I, Y - J) = IF ! 1 LC IF • THEN delay loop, or even an embedded loop: : DELAY 3 DO 30000 DO LOOP LOOP or wait for a return key press with: DELAY ." KEY DROP Press return" Third, since we continuously need FORTH- 79 words that are not in fig-FORTH, it makes sense to store them in a handy place. One way is to buy a set of alphabetic index tabs in a stationery store for about $3 and save the words in a loose-leaf binder. Obvi- ous candidates are /, PICK, ROLL, random number generators, and double number extensions [most of which appear in Leo Scanlon's Forth Programming]. The third program is a Moire demo (Compendium, page 122). The BASIC code is: 10 DEG 20 A:=INTtl. 9*160) 30 GRAPHICS 8+16 40 SETCOLOR 2,0,0 50 FOR 1=0 TO 160 STEP 5 60 B=INTCI/2J 70 COLOR 1 80 PLOT 0,B 90 DRAHTO 1,160 100 PLOT A,B 110 DRAHTO A-I,160 120 PLOT e,16e-B 130 DRAHTO 1,0 140 PLOT A,16e-B 150 DRAHTO A-I,0 160 NEKT I 170 IF PEEKC764)<>255 THEN END ISO GOTO 170 This program has a begimiing, a middle (the loop in Lines 50 to 160), and an end. In the FORTH trans- lation, we need variables A and B. The DEG func- tion is not necessary. The INT function isn't needed either, since we can use integer arithmetic. In Line 20, however, we must be careful to multiply 160 by 19 and then divide by 10. VARIABLE A VARIABLE B ; MOIRE t deg) 160 19 10 »/ A ! 8 16 + GR. 2 SETCOLOR 160 1 + DO I 2 / B ! 1 COLOR B G PLOT I 160 DRAHTO A G B G PLOT A G I - 160 DRAHTO 160 B G - PLOT I DRAHTO A G 160 B G - PLOT A G I - DRAHTO 5 +LOOP BEGIN 764 Q 255 = NOT IF ." quit" QUIT THEN UNTIL ; ANALOG COMPUTING MAY 1985 / PAGE 21 The Latest Innovations From CDY At The Lowest Prices Ever! Crisp, perfectly legible 80 columns! OMNIVIEW is a means of achieving professional word processing on your Atari! At one lime you needed an expensive, slot consuming board to achieve 80 columns and it was only available fortheXtX). But now even you 400, 600 XL and 80(1XL owners can enjoy the power and convenience ol' 80 columns at a very modes! price! You see. OMNIVIEW takes advantage of the high resolution graphics mode already built into the ATARI to generate an 80 column screen editor essentially identical to the ATARI screen editor (E; S: ). This means that OMNIVIEW will give you an 8(1 column output in most environments where the 40 column E; would be used {BASIC. MAC hi. modem programs, etc.). In addition. OMNIVIEW will work with the 80 column versions of Letter Perfect and Data Perfect, probably the most popular combination of professional quality word processor and data ba.se for the ATARI. Designed to be legible even on a TV set for casual use. OMNIVIEW's character set looks super on a monochrome monitor or color monitor with separate chrominance and luminance inputs. But there are other features built into OMNIVIEW to make it even more attractive. The 400/8(K) version has built in AXLON Ramdisk handlers lo allow you an ultra fast disk drive with almost any DOS which uses standard SIO calls COS. MYDOS. DOS-XL.etc.) The ftOOXL'SOOXL version (OMNIVIEWXLl has other outstanding features which aloneare worth the price! How many of you XL ownersha\e cursed the translator disk from I he day you bought your computer'.' OMNIVIEWXL has an enhanced operating system which is extremely compatible with the old 400/800 OSl). allowing it to run most of those programs which woukl not ordinarily run on an XL without the translator disk! A new feature of OMNI VIEW is that it will allow you to copy the operating system into RAM. freeing up the4K ol' extra user R.'*iM and allowing even those nasly games w hich look lor ROM intheSCOIXIpageU) run! And you ATR8()00 owners will love the built in so column ATRMON.allowingyou to instantly switch back and forth between the ATARI and C PM environments. Lastly. OMNIVIEWXL includes the famous FASTCHIP lloating point package for significantly increasing Ihe speed of programs like BASIC which use lloating point. With all of these features at such a modest price, don't delay. V ou can start enjoying the wonderful convenience of OMNIVIEW within a couple ofdays ol placing your order! Feature Comparision Chart OMMMOS Piggyhafk Ritnrod OS Board OMMMOS ot kjmioJ «k OMNI »K Hm tk Ml« KimriHJ-XI I'iKKiha.k S(»l\l Kjmrod \l t:nhanced OS » Fasi Cursor Inclufc tASTCHlP KP 80 Columns l:mulalion AXLON Ramdisk Handlers OMNIMON Fealures: A:Alrer Memors' B:Boor (Ram) disk C:CPU Regislers D:Displas Memory E:Single Slep Execrjrron t;Fill Program Buffer G:Binar\ Load Dircclnrs H.Hes Consersjon H:He\ Arirtimelk LInslall Ramdisk Handlers J:Jump Subrouiine IJSR) L:Dfrse Seleelmtr Coniro! M:Mose Block of Memors N:Relosare 6502 Code 0:Operale Irom Program Bulfn P;Prinfer Conrrol R;Read Sei-lorlsl from Disk S Searsh Memors for Scquena" r-Toggle Hes Ctiar Diiplas Mod>; 1 I Si s ( u : Blosks Men W \Sri 1 10 Disk \ Disassemble Memors \ I ine \ssembler / Fsii Monilo: I oskup Resosers Redire.iion ol Primer I () talk 10 Happs Ram Buffer Sfl Cilunin .'\TRMON f How To Order Add $2.00 for shipping ($4.00 for 2 day delivery). We accept money orders, checks (allow 2 weeks lo clear) and credit cards (Visa and MC) We prefer to send to send COD (cash or MO) and will gladly pay the shipping and COD charges. If you have any questions please call us. We would love to talk to you! Incredibly powerful debugging monitor! OMNIMON is a ROM resident extension of the ATARI operating sy.stem which adds a new dimension to your machine! In the hands of a novice programmer it is a wonderful learning tool for discovering the many secrets ofyourATARI. Andthe more you learn, the more OMNIMON has to offer, so that experts find it indispensible for its power and convenience. It installs permanently and gives you complete control overyourcomputer. and even though it is always available (by pressing SELECT and SYSTEM RESET), it takes up no user memory because it resides in the unused 4K block at SCIKX). Use it to interrupt, examine, and manipulate any program in memory whether it be disk, cassette, or cartridge based. It is especially good for program development or customization of existing programs. The llexible disk I/O allows you to write to or read from disk in either single or double density so that you can edit raw sector data or even load a file without DOS. Many debugging tools are at your disposal: Display/Alter memory or (i.'itO registers. Disas,semble memory. Search memory. Hex/Char modes. Single Step execution. JSR or GOTO address. Push/Pull stack. Printer dump. etc. A toggle switch allows you to make OMNIMON invisible to games which might be looking for it. making it compatible with all software. 1! fill of this power weren't enough, certain versions of OMNIMON have even more features! The 8K OMNIMON and OMNIMONXL have Hex C (inversion and Hex Arithmetic. Block Move, a Relocator. and a Line Assembler. A Binary Load command allows you to load any binary load file without DOS and doubles as a disk directory command which prints out Ihe start sector of each file. Lockup recovery allows you to recover from system lockup, meaning that when your computer freezes, you can usually salvage the program or text file in memory by popping into OMNIMON and dumping memory to disk. Advanced users will like the user extendibilily feature which allows them to make use of the interface routines of 8K OMNIMON in their own software. The 8K OMNIMON al.so has resident A.XLON Ramdisk handlers, allowing you to use this powerful device as an ullrif last disk drive with jilmost any DOS which uses standard SIO calls an tl even boot programs like wortl processors, data bases, and games which iiccess Ihetliskii lot. Once you have an OMNIMON in your system, you will wonder how you ever did without it! Pricing 400/800: Piegvbiick Ixfiiril plugs inio exisling OS hoarel. Ificxpensive and easily ilisabli;d. ' OMNIMON pii:j:)hack hoard S6'W5 OMNIMON piggvlKiarel et OMNIVIEW SW.9.S OMNIMON piggyhack hiiaril sis SK OMNIVIEW SIOMS OMNIMON pigg\has.k hiiartl & SK OMNIMON %\W.'i> .^Jd FASTL HIP hoaling poinl lo any otlhe above Sl.s.Hd EAS'IC HIP lloating point package by itself SIM.^ OMNIVIEW lor piggyback or Ramrod OS hoard S2').'J.^ SK OMNIVIEW or XK OMNIMON lor piggyback or Ramrod SAA.^If 8IM):Riinirod OS board replaces exisling OS board and comes with enhanced OS in EPROMs.ll has: sockets lor OMNIMON/OMNIVIFW enhancements which can be selected with a svvitch. Ramrod OS ,1; OMNIVIEW $124.9.^ Ramrod OS & SK OMNIVIEW SI.IM.S Ramrod OS & SK OMNIMON Sl.t'J.'W Ramrod OS & SK OMNIMON H. OMNIVIEW SlMMf Add FASTC HIP lloating point lo any ol'lhe above SI.MKI 6(HIXL:The supplied ROM rephfces exisling OS chip on mother board. OMNIVIEWXL (includes E'ASTCHIP and SIKl compatible OS) S5M5 8(MIXL: Replace exisling OS chip or add Ramrod XL lo select belv^een .1 possible OS's, OMNIVIEW liiiehidcs FASTCHIP and SIXl compatible OS) S59.')S Ramrod XL & OMNIMONXL (includes FASTCHIP and K(K) compatible OS) Ramrod XL & OMNIMONXL & OMNIVIEWXL (i.e.. combination ol all above) Cither fine products: UK Letter Perfect or Date Perfect S69.95 OSS BASIC XL, MAC 6.S or ACTION $69.95 OSS BASIC XL MAC 65 or ACTION tool kit S34.95 Monochrome monitor adaptor for 400 {perfect for OMNIVIEW) S29.95 AXLON Rampower 128 (Ramdisk) S249.95 CDY Consulting 421 Hanbee Richardson, TX 75080 (214) 235-2146 DEALERS INQUIRIES SOLICITED CIRCLE #107 ON READER SERVICE CARD ASK MR. FORTH coiitijiued This program, too, could be improved by breaking it iijto separate colon definitions, and by saving A and B on the stack. In the computer business, how- ever, you learn early to be wary of the optimization trap: first, you make it work; then, if you still have time, you optimize. The fourth program (Compendium, page 157] is called Pretty Demo, and it introduces some new fea- tures: 10 OEG 20 GRAPHICS 24 30 COLOR 1 40 5ETC0L0R 2,0,0 50 FOR 1=1 TO 360 STEP 5 60 X=319*I/360 70 Y=80+80«SIH(I> 80 IF I>270 THEN 180 39 PLOT 0,8 100 ORAHTO }<,Y 110 IF K90 THEN 130 128 DRAHTO 31?, 15? 130 NEXT I 140 IF PEEK f 764) <>255 THEN END 150 GOTO 140 The first thing to notice is that Line 60 calls for us to multiply 319 by I, which eventually becomes 360, giving 114,840 as the product. This total exceeds the limit for signed integers, so we must use */ in- stead of a multiplication followed by a division. Furthermore, in Line 70, we need a SIN function to compute the sine of the loop index — and FORTH does not provide a built-in SIN function. The elegant solution is to develop a formula for a polynomial curve which will approximate the sine curve as closely as we need for our application. The simple way is to incorporate a table of sines in our program, with one entry for each degree from to 90. Such a table appears on page 134 of Leo Scan- Ion's book and has the added advantage that we can compute other trigonometric functions, such as the cosine, by a simple transformation. ITere are the two screens needed to load the sine table: < trig table screen 1) DECIMAL VARIABLE SINE 0175 0349 0523 0698 , 0872 1045 1219 1392 , 1564 1736 1908 2079 , 2250 2419 2588 2756 , 2924 3090 3256 3420 , 3584 3746 3907 4067 , 4226 4384 4540 4695 , 4848 5000 5150 5299 , 5446 5592 5736 5878 , 6818 6157 6293 6428 , 6561 6691 6820 6947 , 7071 7193 7313 7431 , — > 7986 8090 , 8191 8290 8387 8480 , 8572 8660 8746 8829 , 8910 8988 9063 9135 , 9285 9272 9336 9397 , 9455 9511 9563 9613 , 9659 9703 9744 9781 , 9816 9848 9877 9903 , 9926 9945 9962 9976 , 9986 9994 9998 10000 P We need some code to reference the table, as in this screen: C trig table screen Si : LOOKUP SINE SHAP 2 » + G ," OUP 270 > ir.J^S..5'*'*P -LOOKUP MINUS ELSE DUP 180 > IF 180 - LOOKUP MINUS ELSE DUP 90 > IF ISO SNAP - THEK LOOKUP THEN THEN ; : COS DUP 270 > IF 278 - ELSE 90 + THEN SIN ; ;5 (continued on next page) DISK WIZARD n THE MOST COMPLETE UTILITY PACKAGE FOR ATARI* COMPUTERS AT ANY PRICE 100 % MACHINE LANGUAGE • SINGLE LOAD - MENU DRIVEN THIS USER FRIENDLY PACKAGE INCLUDES THE FOLLOWING POWERFUL PROGRAMS FOR THE ATARI' 400/800/XL SERIES COMPUTERS 140K REQUIRED) DISK BACK-UP — SINGLE/DOUBLE DENSITY • SUPPORTS 1 OR 2 DRIVES • ALLOWS BACKUP OF DISKS PROTECTED BY BAD SECTORING • FAST COPY OPTION • SECTOR STATUS SUMMARY • OPTIONAL PRINTOUT OF SECTOR STATUS • DISK MAPPING DISK EDIT — SINGLE/DOUBLE DENSITY • DISPLAY/MODfF Y/PRINT ANY SECTOR • SECTOR DISPLAYED IN HEX ASCII/A TASCM • WORKS WITH ANY FORMAT • SCAN SECTORS FOR A SERIES OF BYTES OR A STRING • DISPLAY/PRINT DIRECTORY • TRACE/REPAIR FILE LINKS • RECOVER AND AUTOMATICALLY VERIFY DELETED FILES • FORMAT DISKS WITH AUTOMATIC LOCK OUT OF BAD SECTORS • DECIMAL/HEX NUMBER CONVERSION DISASSEMBLER — single/double density • disassemble from DISK BY SECTOR NUMBERS • DISASSEMBLE COMPOUND BINARY FILES BY FILE NAME • OUTPUT TO SCREEN OR PRINTER • SELECTABLE MNEMONIC DISASSEMBLY WITH OVER 400 STANDARD ATARI MEMORY LOCATION NAMES DISK SPEED- VERIFIES/ALLOWS ADJUSTMENT OF DISK SPEED • BAD SECTORING (810ONLY) INCLUDES COMPREHENSIVE MANUAL WITH MANY USAGE EXAMPLES ORDERING INFORMATION Fof fast delivery, send certified check Of money order. MASTERCARD & VISA accepted. (N.Y, Residents add 7% sales laxf Phone orders accepted on C.O.D. $29- /^^.^' registered Trademark of Alan, Inc. SOFTWAfte. INC. 100 QUARTZ WAY SYRACUSE, NY <32)9 ORDERS TOLL FREE 1-800-732-0320 Info, and N.Y. Residents 1-315-488-0485 t trig table screen 23 7547 , 7660 , 7771 , 7888 CIRCLE #108 ON READER SERVICE CARD ANALOG COMPUTING MAY 1985 / PAGE 23 ASK MR. FORTH continued What SIN does is to return the sine of any integer- valued angle between degrees and 360 degrees. To use the result, you must divide it by 10,000. As Scan- Ion points out, "the cosine of any given angle is equal to the sine of an angle that is 90 degrees greater." He also notes that "negative angles have the same sines and cosines as their positive counterparts . . . This means you can also use SIN and COS for angles between -1 degrees and -360 degrees, by supply- ing the angle's absolute value on the stack." Here, then, is the FORTH code for the Pretty Demo to match the BASIC line for line (except that we must remember to divide the sine value by 10000). e VARIABLE K VARIABLE Y : PRETTY ( DEG J 24 GR. 1 COLOR 2 SETCOLOR 360 1 + 1 DO I 319 360 «/ K ! I 5IN 80 10000 «/ 80 ^ Y ! I 270 < IF PLOT THEN K e Y e DRAHTD 1 90 > IF 31? 159 DRAHTO THEN 5 +LOOP BEGIN 764 C 255 - NOT IF ." quit" QUIT THEN UNTIL ; Both sine and cosine functions can be combined in this short program from page 23 of the Compen- dium, called Circle Demo. 10 XC=160: YC=80 20 RD=68:INC=10:YS=0.75 30 GRAPHICS 8: COLOR 1 40 G05UB 1000: END 1900 REM 1010 REM CIRCLE DRAHER ROUTINE 1020 REM 1030 REM 1040 REM xc: x-coord. Of center 1050 REM YC: y-coord. Of center 1060 REM RD: Circle radius 1070 REM INC: drawing increnent 1080 REM Y5: y-scaling factor 1090 REM 1100 DEG :PLOT MC,YC+RD»YS 1110 FOR CIRCLErO TO 360 5TEP INC 1120 XCOORD=KC+SINCCIRCLE)»RD 1130 YC00RD=YC+C0SCCIRCLE)»RD»Y5 1140 DRAMTO XCOORD, YCOORD 1150 NEXT CIRCLE: RETURN This program consists of a subroutine which calls a loop, which in turn draws the perimeter of the cir- cle in steps of 10 degrees at a time, using the sine and cosine functions to locate the X and Y coordi- nates each time. Here is the FORTH version: t circle deMO l) 160 VARIABLE XC 80 VARIABLE YC 10 VARIABLE INC 60 VARIABLE RD 75 VARIABLE Y5 C 8.75) VARIABLE XCOORD VARIABLE YCOORD G0SUB1008 XC RD e Y5 G 100 »/ YC + PLOT 360 1 + DO I SIN RD G 10000 */ XC G + XCOORD ! I COS RD G 10000 */ YS G 180 »/ YC G HK YCOORD ! XCOORD G YCOORD G DRAHTO INC G +LOOP ; — > C Circle deNo 2) : CIRCLE-DEMO 8 GR . GOSUBIOOO ; I COLOR Notice that the program contains a scaling factor (0.75) that was set at 75 in the FORTH program and that later must be divided by 100. Furthermore, both the sine and cosine values must first be divided by 10,000. If the output looks more like an egg than a circle, you may want to experiment with the scaling factor. You can write a program to draw circles without using sines and cosines. There is a fiendishly clever program to do just that on page 125 of the Compen- dium, and it takes only twenty-five short lines. This innocent-looking program with the simple title Cir- cle Radius Demo looks easy: 10 XCENTER=310/2:YCENTER=192/2 100 GRAPHICS 8 110 COLOR 1 120 ? "ENTER RADIUS:"; :INPUT RADIUS 130 LET RADIUS=RADIUS+3-l 140 LET X=0 150 LET Y=RADIUS 160 LET DIAMETER=3-2«RADIUS 170 IF X<=Y THEN GOSUB 1000: IF DIAMET ER<0 THEN DIAMETER=DIAHETER+4«X+6:X=X+ l:GOTO 178 180 IF X>Y THEN END 190 DIAMETER::DIAMETER+4«tX-Y>+10 200 Y=Y-1 210 X=X+l:GOTO 170 1000 REM 1010 PLOT XCENTER+X,YCENTER+Y 1020 PLOT XCENTER+V,YCENTER+X 1030 PLOT XCENTER+Y,YCENTER-X 1840 PLOT XCENTER+X,VCENTER-Y 1050 PLOT XCENTER-X,YCENTER-Y 1060 PLOT XCEHTER-Y,YCENTER-X 1070 PLOT XCENTER-Y,YCENTER+X 1888 PLOT XCENTER-X,VCENTER+Y 1090 RETURN The structure of the program appears to be straight- forward. You draw a red line after Line 160 and an- other after Line 210. Lines 10 through 160 are just sequential code, and all that is different is Line 120. It asks for input from the keyboard, which should present no problem in FORTH. The subroutine at the end of the program is also clear-cut. It is only when you begin to translate the five statements in Lines 170 to 210 that you realize you've hit a booby trap. This is what is referred to as "spaghetti code" (IBM's Joan K. Hughes, in her PAGE 24 /MAY 1985 ANALOG COMPUTING ASK MR. FORTH coMnued book PL/1 Structured Programming called it "bowl- of-spaghetti code" or BS code), and the tip-off is right there: two GOTO 170 statements, one imconditional and one nested inside an IF statement. Computer science advanced in the 1970s from a black art to an organized and systematic process, when the mischief of the GOTO statement was final- ly identified. Newer languages, such as PL/1, found substitutes, and Pascal banished it completely. Structured programming at last made it possible to write programs that were free of logical errors and were relatively easy to debug and maintain. Computer scientists demonstrated mathematical- ly that any program could be built from a set of three simple building blocks with a common property: one input and one output. The SEQUENCE block has the trivial structure of one process performed after an- other. The IFTHENELSE block is merely a two-way branch. The third is the DOWHILE block, which tests for a true condition and then repeats an operation, as long as the test remains true (to exit from the block, the operation itself must reset the flag]. There are two additional variations in common use. The IFTHENELSE block can sometimes be replaced by the SELECT block (or CASE statement), which fea- tures a multiple-branch fork to avoid an awkward set of nested IF statements. A payroll program, for in- stance, could test immediately for single, married, widowed, divorced, separated, or never married. The variation on the DOWHILE block is the DO- UNTIL block which places the logical test at the end, instead of the beginning — and thus creates a hidden trap. The loop will always be executed at least once, as you'll discover to your consternation, when your payroll program looks for end-of-file after the first record, but the operator mounts a tape that has only a header label and a trailer label, and no first record! The details are given in Top Down Structured Pro- gramming Techniques by C. McGowan and J. Kelly, Petrochelli/Charter, New York, 1975. If your library doesn't have this, they can borrow it from another library. Anyone in your audience who writes pro- for the ATARI 800 or XL Cut your programming time from hours to seconds, and tiave 33 direct mode commands and functions. Aii at your fingertips and aii made easy by the IvIONKEY WRENCH II. The IvIONKEY WfJENCH II plugs easily into the cartridge slot of your ATARI and works with the ATARI BASIC. Order your MONKEY WRENCH II today and enjoy the conveniences of these 33 features: • Line numbering • Renumbering basic line numbers • Deletion of line numbers ' Variable and current value display • Location of every string occurrence • String exchange • t^ove lines • Copy lines • Up and down scrolling of basic programs • Special line formats and page numbering • Disl< directory display • fvlargins change • Home key functions • Cursor exchange • Uppercase lock • Hex conversion • Decimal conversion • fvlochine language monitor • DOS functions • Function keys The IVIONKEY WRENCH II also contains a machine language monitor with Id commands that can be used to interact with /.nn nc the powerful features of the 6502 microprocessor. 529.95 HaveYouKISSed Your Atari Lately? Introducing "KISS", a new, sinnpler, more powerful Word Formatter/Processor for your Atari 800, 600XL, and 800XL "KISS" comes in a cartridge, and is designed for the occa- sional user, yet simple enougti for beginners and children. It comes with an easy to read manual, that contains example text files. Check out these other "KISS" features: I Input of text is via standard ATARI screen editor - so there is nothing new to learn I Only 13 commands to process text I Text can be sent to screen or printer I Single page or fan-folded paper can be used by printer • Prints English error messages • The "KISS" cartridge does not hove to be installed in order to input text information • Automatic page numbering on output • Text can be justified to both the left and right margins • Can be used for letters, reports, term papers, etc. KISS^ Call us today for your "KISS" Only $19.95 3239 Linda Dr. Winston-Salem, N.C. 27106 (919)748-8446 Send for free catalog! 1 1 MasterCard I CIRCLE #109 ON READER SERVICE CARD ANALOG COMPUTING MAY 1985 / PAGE 25 ASK MR. FORTH co^uinued grams for a living will appreciate the tip. The logical structure of our spaghetti code, as the FORTH translation makes clear, is a pair of nested DOWHILE loops, with this structure in FORTH: BEGIN condition iWILE FORTH mrds REPEAT The first condition tested is whether X is less than or equal to Y; the second is whether DIAMETER is less than 0, or negative. You can ask for a number from the keyboard with the sequence QUERY 7TERMINAL INTERPRET. It will substitute for the INPUT statement in BASIC, and you may want to file it for reference. The FORTH code below also takes some liberties with the BASIC code. The END has been replaced by . "quit" QUIT. By using INITIAL to reset the vari- ables, shifting 8 GR., and then adding RERUN, you can use RADIUS DEMO to draw the first circle, and then RERUN to draw more circles without clearing the screen. GREAT ATARI BOOKS This Month's Special Other Great Books List $21.95 Special $18.95 Sams 496 pages © 1985 Just the two big chapters on graptiics pro- gramming make this a real goldmine for ATARI 400/800, 600 XL, 1200 XL and 800 XL owners and programmers, but there's also coverage of ATARI BASIC nota- tion, rules, and limitations; math opera- tions; I/O; sound; screen display; the memory map: the 6502 instruction set and more. Eight appendices include number base conversions, ATARI BASIC reserved words and tokens, characters and keyboard codes, screen RAI\fl address ranges, error and status codes, and hard- ware details lor the 400 and 800, Advanced Atari Basic $11.95 •Inside DOS $19-95 •Atari Assembler $12,95 Assembly Lang, Atari $15,95 •Mapping Atari $14,95 Third Book (Computer) $12,95 •Game Design (Crawford) $14,95 •Computer Animation $22.95 ZAP; Rise & Fall $14,95 Fire in the Valley $ 9,95 Atari Color Graphics $12,95 •jnforworld's Essential Guide $16.95 Atari Logo Book $12.45 •Atari User's Encyclopedia $19.95 •Your Atari Computer $17.95 Easy Guide 600XL/800XL $ 9.95 *BookAt3riSoftware1985 $19.95 Atari Basic Tutorial $12.95 Excel on 600XL(McGraw) $ 9.95 •Atari Graphtes + Game Design $12.95 Atari Basic Programs in Min, $12,95 Free Software for Atari $ 8,95 Software Author's Guide $19,95 The f^usical Atari $14,95 Basic on Atari for Kids $12,95 •Book of Adventure Games $19.95 •Atari Basic (Wiley) $12.95 •Kids and the Atari $19.95 Bank Street Writer Book $1495 Visicalc Book $14.95 Or Write: Order Today: 1 (BDO) 821-5226 Ext. 500 24 hrs. a day, 7 days a week WITT'S END 42 Morefiouse Rd. Easton.CT 06612 ^^^^v I ^f^ Free and Fast Uf^ shipping. Add $3. lor CO.D, APO's FPO's o.k. Add $5 for foreign shipping. We accept Visa/f^astercard, Personal Checl<. Certified Check or Ivloney Order, "s indkate excellent tx»ks! C radius 1) e VARIABLE XCENTER e VARIABLE YCENTER e VARIABLE KX 8 VARIABLE YY e VARIABLE DIAMETER e VARIABLE RADIUS C < 160 ) : INPUTtt ." radius? " QUERY CR ?TERMINAL CR INTERPRET 5HAP DROP ; : INITIAL INPUTtt RADIUS ! 155 KCENTER ! 96 YCENTER ! XK ! VY I >IAMET ER ! C 8 GR. ) 1 COLOR 2 RADIUS +! XX ! RADIUS e YY 3 RADIUS 8 2 » - DIAMETER ! f ~> c ■ radius 2} GosuBieee XCENTER e XX 8 + YCENTER e YY 8 + PLOT XCENTER e YY 8 + YCENTER e XX e + PLOT XCENTER e YY 8 + YCENTER e XX 8 - PLOT XCENTER e XX 8 + YCENTER e YY 8 - PLOT — > c radius 3) XCENTER 8 XX 8 - YCENTER YY 8 - PLOT XCENTER e YY 8 - YCENTER e XX 8 - PLOT XCENTER 8 YY 8 - YCENTER 8 XX e + PLOT XCENTER e XX 8 - YCENTER 8 YY 8 + PLOT ; ~> c radius 4) ■ a L170 BEGIN XX 8 YY 8 > NOT WHILE GosuBieoe BEGIN DIAMETER 8 8< WHILE XX 8 4 » 6 + DIAMETER + ! 1 XX +! REPEAT XX 8 YY 8 - 4 » 10 + DIAMETER ♦ ! -1 YY *! 1 XX + ! REPEAT .■■ quit ■■ QUIT ; ; RADIUS_DEM0 8 GR INITIAL L17e M : RERUN INITIAL L170 ; ;s CIRCLE #110 Ot^ READER SERVICE CARD The ANALOG Compendium has half a dozen other short, graphic BASIC programs (especially the Tri- angle on page 29] which appear to be likely candi- dates for FORTH translations. Next month you'll have an opportmiity to upgrade the show-and-tell sessions you've conducted to date, and become a full fledged professor — by teaching a FORTH-79 class to begimiers. You will need one copy of the textbook for the class, which you may want to order right away [if you can't borrow a copy). The book costs $16, so be prepared to pass the hat at this session and the next. The text is The Complete Forth by Alan Winfield, Wiley Press, 605 Third Avenue, New York, New York 10158. You may find it at bookstores like Dalton's and PAGE 26 / MAY 1985 ANALOG COMPUTING ASK MR. FORTH ccMnueC Walden Books, or have your bookseller order one for you . Finally, you may charge to a credit card by tele- phoning Mountain View Press [P. O. Box 4656, Moun- tain View, California 94040) at 415-961-4103. If your audience has enjoyed your demos to date, they'll find your next session even more rewarding. D Send your letters to: ASK MR. FORTH ?^] '<5^- P/^ RO. Box 23 ^ Worcester, MA 01603 % WANT TO SUBSCRIBE? It's worth it. CALL TOLL FREE 1-800-345-8112 In Pennsylvania 1-800-662-2444 IT'S HERE! The R-Verter " for PRINTERS See the Model "P" Connect your ATARI™ to fine Serial Printers like: • BROTHERS EP - 22/44 • OLYMPIAECT-1 • SMITH CORONA TP-1 • OTHERS Directly compatible with BASIC, ATARI WRITER, and many other programs. Also included — "File Printer" - prints files directly from disk. Single sheet printing, too! Only $49.95 plus S/H Contact your favorite Dealer today or call ADVANCED INTE 'ERFACE DEVICES \ P.O. Box 2188 Melbourne, FL 32902 (305) 242-2772 C.O.D. -VISA- M.C. -CASH Atari IS a trademark ol Alan. Inc R-VeMer is a Irademark of Advanced Interlace Devices, Inc. CIRCLE #111 ON READER SERVICE CARD ANALOG COMPUTING MAY 1985 / PAGE 27 ON-LINE How the effects of software piracy are made readily apparent . . .to the pirates themselves by Russ Wetmore Please bear with me in this, my first column for ANALOG Computing maga- zine, while I use the time and space for a little soapbox ranting and raving. For those of you who don't know me, I run a software research and development firm called Star Systems Software, Inc. in Orlando, Florida. I wrote a [at one time) best selling game called Preppie! for Adventure International, and a couple other games for Atari computers. Our current slant is towards personal productivity products, such as HomePak, a trademark of Batteries Included, which we recently completed for that company. I've been involved in all facets of the honre computer software industry almost from its very inception, from program- ming to advertising to publishing to. . . you name it; I've done it. Our firm cur- rently makes products for a wide gamut of machines, including those of Apple, Commodore, Tandy and IBM, but the Atari is my first love. A true story. The following might not seem relevant to computer software, but please patron- ize me for a moment while I get around to making my point. One of my favorite things is going to the movies. I decided to take in 2010 the otlier evening, anxious to see the sequel to one of my favorite movies of all time, 2001: A Space Odyssey. The theatre we would be attending had recently been remodeled, and the evening promised to be an enjoyable one. Diana and 1 had just sat down when we were asked (politely) by a young cou- ple with two small children if we could move in from the aisle. Their children could see the movie better there, and would be less likely to fidget. "Fine," I said, and we moved over. The next two hoin's proved to be event- ful ones. One of the little monsters spilled my Coke. The parents were constantly try- ing to explain the story to the monsters, though it was way over tlieir heads (the parents', too) and based on the premises laid down in a movie made many years before they were even born. The parents put their feet all over the backs of the chairs in front of them. Ob- viously imitating their pai-ents, the mon- sters did likewise. I asked the parents if they did that at home, and their (not-so- polite, this time) response was, "Sure, don't you?" All four of them were constantly talk- ing (obviously never having heard of the word whisper) about which monster's turn it was to go to the rest room, and how much better a movie Star Wars had been. Both monsters spilled their pop- corn (buttered] all over the floor of the nicely renovated theatre. To beat the traffic, they left five min- utes before the movie was over If you've seen the movie, you know that the last PAGE 28 / MAY 1985 ANALOG COMPUTING People tend not to have much respect when damaging someone else's property, or otherwise in/ringing on someone else's rights, if the effect of their disrespect is not immediately obvious to them. few minutes is where they explain not only what's happening, but the reason for both 2001 and 2010. What they pos- sibly could have gained from the movie, except for some dazzling special effects ("not nearly as good as Star Wars' were") is beyond me. As I got up to leave, I looked around the theatre. It was a shambles. . .There were footprints all over the chairs. Emp- ty popcorn boxes and soft drink cups (along with their contents, in many cases) were strewn over the floor. Peo- ple all around me had talked incessant- ly throughout the entire movie. My VCR and the local rent-a-movie store are looking more and more invit- ing all the time. Getting down to it. The point of all this? People tend not to have much respect when damaging someone else's property, or otherwise in- fringing on someone else's rights, if the effect of their disrespect is not imrnedi- ately obvious to them. If I were to invite any of my fellow theatre patrons into my home, I'd make sure that they'd go to great lengths to keep their feet off of my furniture and food/beverages in their respective containers. They would not interrupt conversa- tions and would, generally, be as polite as they've been taught to be while some- one's guest. Put those people in a movie theatre, and all manners go to hell in a handbasket. Also, people tend to do as they've seen others do. . ."monkey see, monkey do." If everyone else is having food fights with their popcorn, why shouldn't you? If you want to hold a loud conversation about what Ethel wore to your dinner last night — and want to do it in the mid- dle of an engrossing movie — surely your right to talk outweighs someone else's right to enjoy an artistic experience they've paid $4.50 or so for, right? These are the same people we expect to have respect for the rights of program- mers and their work. If everyone around you is pirating (the last time I'll use that word; it really should be called stealing) software, why shouldn't you? The way that it hurts programmers like myself is not immediately obvious, so there is very little guilt inherent in stealing soft- ware. The arguments for stealing software. "The programmer will never miss the sales from this one program I've stolen. He's rich enough, anyway." I've got news for you . I make enough from programming to make a living at it, but I'm far from rich. I won't lose my mortgage over one stolen program, but surely you're not naive enough to believe that you're the only person in the whole world who thinks the way you do. If I make $2 .00 from the sale of a single pro- gram, and just a thousand people think as you do, then I've lost $2,000. I say "just a thousand" for argument's sake— I'd estimate that, for a best sell- ing program, the number would be more inclined to reach into the tens (or even hundreds) of thousands. If someone stole $20,000 from you, could you in good conscience tell me that you wouldn't care one way or the other? "The program's too expensive. They're trying to rip me off." Maybe. A Porsche 944 is too expen- sive for me, but I'd like to have one. Maybe I should complain to my local Porsche dealer that the price is too high, and rip one off from his lot. "I don't know if the company is going to be around a year from now." Nice try. A couple of years ago (to use the automobile analogy again) there was serious concern as to whether Chrysler was going to be around much longer. So, obviously, the thing to do was to go out and heist a few Dodge trucks, right? "All my /riends do it." Again, nice try. Like being a lemming, huh? San Quentin is just plumb full of criminals and friends of same, who all have similar "hobbies." C'mon, people. Stealing is stealing, and programmers like me aren't the only people you're hurting. I almost left the industry last year because of piracy, and I'm sure I'm not alone. To help combat the problem, we just (continued on next pagej ANALOG COMPUTING MAY 1985 / PAGE 29 ON-LINE continued completed a package called HomePak that is: (1) low in price and (2) not copy- protected. If the program doesn't sell, and if I can attribute those lost sales to theft, then I doubt that I'll do another pro- gram for commercial sale. If you want us to continue writing pro- grams, then you've got to support us by buying the software you want or need, and by not condoning software theft among your friends. One last true story. I frequently stop by local software mer- chants to watch from the sidelines, to see what people are buying and what kind of difficulties they have getting software to run. It helps me to determine what's important to novice users and to put fea- tures users want in my programs. One day, a kid (about 15, I'd guess) si- dled up next to me with a box full of disks. We got to talking about the latest games, and he asked me if I'd seen this "great new game" called Sea Dragon, which he'd just gotten a copy of (and which I'd written). SEE HOW TO USE YOUR ATARI COMPUTER THE EASY WAY. . . ON YOUR VCR Good for use with Atari 400, 800 and XL series. Tape includes: 1. Using a printer, recorder or disk drives. 2. The l<eyboard. 3. BASIC programming. 4. The DOS. 5. And MUCH MORE. WE SHIP WITHIN 24 HOURS. Personal checks must clear. Add $1.50 for shipping. Florida residents, add 5% sales tax. VISA/MasterCard (include number and expiration date of card) RAINBOW STARR PRODUCTS P.O. BOX 162953, MIAMI, FL 33116 (305) 255-7330 Atari is a registered trademark of Atari Corp. DEALER INQUIRIES INVITED. "No," I said enthusiastically, "what does it look like?" He whipped out a disk (not an original, of course) and booted up the program. I watched pas- sively for a few minutes, then reached into my wallet, pulled out $3.00 and put it on the table in front of him. Thinking I wanted to buy a copy from him, he said, "Hey, no problem. Just give me a disk, and I'll copy it for you." "No, I don't want to buy it. You see, I wrote the program. I lost about $3.00 because you stole it. I just wanted to save you the trouble for the next pro- gram of mine you steal, and let you take the $3.00 ahead of time." He laughed for a bit, then realized I was serious. He turned white as a sheet, silently packed up his box of disks and left. I've been told that he refuses to take stolen programs now, but, one way or another, I made an impression on him by graphically showing him the harm he'd done to me. I find it very hard to believe that peo- ple would knowingly hurt me (and my SUFFERING FROM Atari Writer plus Printer Woes? PRINTER FORMATTED DATA DISK • EACH PRINTER DATA DISK WILL GIVE YOU ALL AVAILABLE OPTIONS POSSIBLE WITH YOUR PRINTER & ATARIWRITER, • NOW YOU CAN EASILY. . .UNDERLINE, SUPER/SUBSCRIPT ELONGATE, DOUBLE COL- UMN PRINT CHANGE FONTS, ETC. AVAILJVBLE FOR MATRIX$1 A95 DAISY *^ _-_ DDIKITCD ^W^F PRINTER ■ ^ PRINTER ""^ BMC - C.ITOH - EPSON SILVER REED GEMINI - LEGEND - OKIDATA PANASONIC PANASONIC - ATARI JUKI - DIABLO - OLYMPIA RITEMAN ■ CITIZEN SMITH CORONA PLUS OTHERS PLUS OTHERS SPECIFY PRINTER MAKE & MODEL Send Check or Money Order to: family — I have others to support besides myself] by stealing my programs, if they really knew what they were doing. I hope I've made an impression on at least one of you out there. All I want is to be paid for my efforts. It's a shame that, in an industry as fast-growing and potentially important as home computer software, I have to plead for something which would be considered as a matter course anywhere else. Sigh. A call to arms. Or should I say "a call to letters?" This column doesn't have any preplanned for- mat. It will be part gossip, news, pro- gramming tips (and, as in this issue, soapbox tirades). If there's something particular you'd like, please write to this column c/o ANALOG Computing, P.O. Box 23, Worcester, MA 01603. I'm open to most any subject, from Action! to "how do I get a program pub- lished?" — so fire away. I can't individu- ally answer all letters, but will take the more interesting or representative ones for inclusion here. D CIRCLE #140 ON READER SERVICE CARD Dept. 3, 86 Ridgedale Avenue Cedar Knolls, NJ 07927 (NJ Residents add 6% Sales Tax) Dealer Inquiries Invited CIRCLE #141 ON READER SERVICE CARD ATTENTION ATARI DISK DRIVE OWNERS Back up your valuable software. THE CHIP THE CHIP with Arctiiver/Editor Software for ttie Atari 810 and 1050 disc drives. Includes Disassembler & Sector Editor, Includes Custom Formatter and flap- per. Backs up virtually any disk. $129.95 POST PAID Available soon tor other Atari compatible disc drives. HAPPY 810 ENHANCEMENT Complete witti Warp Speed software package. Plug-in installation — no soldering. Backs up any disc. Regular Price $249.95 LIMITED SPECIAL OFFER $199.95 Soon available lor other disc drives. HAPPY OWNERS Update your enhancement with Happy Version Arch- iver/Editor. Makes Happy drives compatible with the chip. $39.95 POST PAID All software tor the Atari DISCOUNTED 30% or MORE. Discounts on all Atari compatible hardware. Send for free brochure on any of the above of fof details on our software discounts. SOUTHERN SOFTWARE A DIVISION OF SOUTHERN SUPPLY COtHPANY 1879 RUFFNER ROAD BIRMINGHAM, AL 35210 24 HOUR PHONE 205-956-0986 Order belore 11 A.M. lor same day shipping. CIRCLE #142 ON READER SERVICE CARD PAGE 30 /MAY 1985 ANALOG COMPUTING Maniac! Stuntman Fill 'Er Up lt> h m^asmmmi i F3 1 Dino Battle Color Slot Machine CiSes Where can you get all of these programs (and dozens more!) for only $14*95? See page 55 to find out. Triple Threat Dice ■paMfMMaiMMMMMIipiTC 3-D Graphs Sphere Demo SETS PEN SIZE TO LOREE SETS PEN SIZE TO KEDZUH SETS PEN SIZE TO SMOLL SETS PEN TO ERASE MOOE SETS PEN TO VKCH KODE HELP... LISTS THE COMMOHOS STORTING POINT FOR FILL ENDING POINT FOR FILL FILLS THE AREA HITH COLOR CHANGES BACKGROUND COLOR CHANGES BACKGROUND IHTEHSIrV CHANGES PEN BRIGHTNESS R< - CLEARS THE SCREEN -L - LOADS PICTURE FROM TAPE -S - SAVES PICTURE TO TAPE -X - EXITS PROCRAH Leprechaun King Sketch Pad Harvey Wallbanger THE END USER THIS MONTH: Taking perfect pictures of Atari computer graphics by Arthur Leyenberger Arthur Leyenbei^er is a human /actors psychologist Jiving in New Jersey. He does free-lance writing and microcom- puter consulting, and has been an Atari enthusiast for over three years. Welcome back, all of you End Users. One thing that's Lmdoubledly true about this great Atari adventure that we've all embarked on is that, regardless of who we are, we're all End Users. Therefore, we share a common need to learn to gel the most out of our Atari computers. That's why we're here. This month, the column is devoted to discussing how to take pic:tures of your video monitor or television . . . and a very brief mention of a book that you may find interesting reading. The book. Since July of 1984, Jack Tramiel and his three sons have owned Atari — and have held our collective fate in their hands. At the Winter Consumer Elec- tronics Show, an impressive line of new computers was unveiled. Tramiel and sons are betting that these machines will make Atari profitable in 198.5, also making it the number one low-end com- puter maker If Jack Tramiel is able to pull off the big turnaround for Atari, I predict that he will be a candidate for Time maga- zine's Man of the Year Award. We'll have to wait and see what liappens. But. in the meantime, there is a book you ought to be aware of. Described as a "bonevolonl dictator." there is no question that Jack Tramiel is a brilliant, controversial businessman. In order to learn more about the man and the future of Atari, I highly recom- mend that you read Home Computer Wars by Michael Tomczyk. Publislied by COMPUTE! Books (at $15 hardcover, $19 softcover], this accomit of the man who just may be the greatest name in the mi- crocomputer business makes fascinating reading. Screen pictures — getting ready. There's nothing quite like the satisfac- tion of creating your own graphics pro- grams. Seeing the results on the video screen is a pleasure that can only be tru- ly appreciated after spending many long hours writing and debugging the code. But there's one hassle. hi order for you to share your color- ful creations with friends and family, you must boot up your system and have everyone gather around the tube. Others may not be totally impressed with your creation, as they squint to see it on the small screen. And your Atari system isn't that portable. Wliat's the solution? Why, take a pic- ture of the screen. Then, matte finish 3-by-5-incli prints can be mailed like postcards, and slides can be shown onto a projection screen. What a thrill! Here's how you do it. There are a few things you need to take pictures of your television or mon- itor screen: a camera, a tripod and some film. Just about any camera will work, but the best results come from a single- lens reflex (SLRJ type, with a lens be- PAGE 32 / MAY 1985 ANALOG COMPUTING tween 50 and lOOmm. With an SLR, less guesswork is required to obtain excel- lent shots, because what you see is what you get. A tripod provides a steady support for the camera. Normally, most people can- not hand hold a camera when using a shutter speed of ybo second or slower. When photograpliing a screen, I normal- ly use a 1/2 second shutter speed. If you don't have a tripod, an impro- vised camera support like a chair or ta- ble will do fine. To avoid bumping the camera while the shutter is open, it's best to have an inexpensive (about $3) shutter release cable. If your camera has a self-timer, you can use that in place of the cable release. Finally, you'll need some film. For slides, I generally use Kodachrome 64. For prints, I use Kodacolor 100. It doesn't have to be Kodak film, but the ASA film speeds of 64 and 100 are important. Now for the fun part. Getting it on film. Line up your camera so that the back of the camera is parallel with the front of the TV or monitoi-. With a SOituti lens, the camera will probably need to be about two to three feet from the screen. Make sure that the lens is pointed at the center of the screen. With the image that you're going to photograpii on the screen, adjust the TV or monitor controls for the best possible picture. Get the color and tint balanced first, then adjust the brightness, and Fi- nally, use the contrast control for the crispest image you can get. Now, set the camera to an f-stop of 5.6. This will be the aperture setting that you'll always use. Any variation in the exposure will be done by adjusting the shutter speed. Graphs and charts look impressive. Each marking on the shutter speed dial is either one-half or twice the previ- ous marking, so it's easy to use and un- derstand. Initially, set the shutter speed to Va second. Focus the camera lens and adjust the distance from the camera to the screen, so that you can see two inches on all sides of the video screen. This is impor- tant, because, when the pictures are de- veloped, part of the photo around the edges is lost. To take the picture, turn off all the lights in the rooin and press the cable release. If you are using a self-timer, you might want to activate it first, then turn off the room lights until the shot is com- pleted. If this is your first time taking pictures off of your screen, it would be wise to bracket your shots. To bracket your shot, take two additional pictures with every- thing exactly the same except the shut- ter speed. Take one shot at yii second (a little faster] and another shot at Vz sec- ond (a little slower). These two settings will allow the film to receive less light and more light, respectively. If you're using print film, it is imper- ative that you tell whoever is doing the developing that you have CRT shots. If you forget to do this, I can tell you from experience that your prints will come back with washed out, often strange- looking colors. ROU now now now ROW ROW ROW UIJW REiJEXUE 2SSB.8a IGBS.Sa bsas.aa «5aa,aa 2saa.aa i5aB . aa 56as . ea -— _ --JHt CUHSDB SaUe FILE LOftD KILE C-FFIWE FILE 'iPtCIfV FDRH 5MIFT COL UP LM UF ft COL 'iMMcPHFu raus BEKU !:UJI|J!bcniiTii«UE Syntrend from Synapse. (continued on next page) ANALOG COMPUTING MAY 1985 / PAGE 33 THE END USER co^inued The automatic printing machines that film processors use are designed to ad- just the color balance as if you were tak- ing pictures of sunsets and the family dog. This is understandable, since 95 percent of what they process is just this type of snapshot. Slide film is not as critical, but it would not hurt to tell the developer that you have CRT shots. Another decision you have to make is whether to have matte or glossy prints made. If you plan to send them as post- cards or handle them a lot, order matte finish. It's more resistant to fingerprints and will not scratch as easily. On the other hand, if you want the sharpest looking print, or if you're send- ing prints to a magazine for publication, choose glossy finish. Be sure to handle the prints carefully, along the edges if possible. I usually use V2 second shutter speed for slides and ys for prints. But you'll have to experiment with various expo- sures until you find the right speed. Synapse's Quasimodo. A good approach is to shoot a roll of film as a test roll. Use different shutter speeds and be sure to keep a record of each exposure. Then, when your film comes back, pick out the best shot, de- termine what exposure was used, and you'll be all set. You can continue to use these same settings as long as you don't change the contrast and brightness con- trols on your TV or monitor. When to say it in pictures. There are dozens of reasons why you will want to take pictures of your TV or monitor screen. Here are just a few. How about capturing that high game score that you'll want to show friends — or send to a software company for patches or other prizes? Maybe you'd like to take a picture of your special grapfiics creation. Whether from a touch tablet, BASIC program or light pen, sav- ing pictures is fun. Screen shots often look quite nice when enlarged to 5x7 or 8xl0-inch size. Matting and framing these make them into very attractive wall hangings, per- fect for original, creative gift giving. Regardless of what you do with your screen shots, if you follow these simple instructions and experiment a little, I tliink you'll be pleasantly surprised with the results. And so will your friends and family. Happy shooting! Next month ; control a robot with your Atari computer! D WHAT IS CHECKSUM DATA? Most program listings in ANALOG Computing are followed by a table of numbers appearing as DATA statements, called "CHECKSUM DATA." Tfiese numbers are to be used in conjunction with D:CHECK and CrCHECK (which appeared in ANALOG Computing issue 16 and the ANALOG Compendium) or with Unicheck (from issue 24), D:CHECK and C:CHECK (written by Istvan Mohos and Tom Hudson) and Unichecic (by Tom Hudson) are designed to find and correct typing errors when readers are entering programs from the magazine. For those readers who would like copies of these articles, you may send for back issue 16 or 24 ($4.00 each) or the ANALOG Compendium ($14.95 plus $2.00 shipping and han- dling from: I ANALOG Computing P. O. Box 61 5 Holmes, PA 19045 PAGE 34/ MAY 1985 ANALOG COMPUTING 16K Cassette or 48K Disk Joystick GAME ^ A commevcial quality game demonstrating MHD, the ultimate machine language iplayevi missile handler for Atari computers You have opened a new restaurant called Basic Burger. However, jealous competitors have contam- inated your food. Your three chefs must assemble Ba- sic Burgers while avoiding contaminated food. The contaminated food moves faster than your chef, but can be killed by falling burger parts or flying pep- pers (your trigger). Yom- pepper shaker contains only five flying pep- pers. To renew them, you must catch the bouncing pepper shaker which occasionally travels through the maze. Assembling burgers, killing contaminated food and collecting bouncing money earns points. For each 10000 points, you earn a new chef. The contaminated food comes in from the sides. By listening to their entering sound, you can tell which side the food will enter from. At the start of each round, a random maze is gen- erated with up and down ladders. The speed of all players increases from rounds 1 to 7. Pressing START will restart Basic Burgers at level 1. Pressing the SPACE BAR will pause/resume the game. ANALOG COMPUTING MAY 1985 / PAGE 35 ^ Basic Burger continued Typing it in. Listing 1 creates two files which the Basic Burg- er program needs. The first file MHD (motion han- dler) may be used in games of your own design. The second file contains the modified character set, the player control stacks for MHD and the player images. Listing 2 is Basic Burger, a 16K cassette or 24K disk maze game with as many as nine fast-moving objects on the screen at once. Basic Burger. This program illustrates many of the features of MHD (i.e., cyclic action, maze logic with variable homing logic, auto action on collision, auto action on boimdary violation, adjustable player speeds, mis- sile support, joystick and trigger support. Cassette users must add Listing 2C to Listing 2 . When Basic Burger is RUN, cassette users will be asked to moimt the tape created by Listing 1 and press RETURN. After debugging Basic Burger, the program plus the two files it uses may be placed on a single tape by typing GOTO 25000. iVIHD design. This section is for programmers wishing to incor- porate MHD into their own games. Maze games or simple shoot- 'em-up games can be handled. MHD is a IK machine language program that runs concur- rently with Atari BASIC via deferred VBI (vertical blank interrupt). Its features are: (1) The position of player/missiles may be POKEd. (2) The velocity of player/missiles may be POKEd. (3) Player/missiles may be controlled via joy- stick/trigger. (4) User may specify number of bullets. (5) Complete missile logic is supported, or mis- siles may be automatically grouped to form fifth player. (6) Cyclic action is supported when player is in motion. (7) Auto action on specified collisions between player to various playfields, player to specified players, or player to specified missiles. Missile to missile collisions are not supported. Action can be stopped, reset to previous noncollision position or removed. (8) Auto action on boundary violation. Action can be to remove player or limit player to bomi- dary. (9) Maze logic for joystick players and maze players with individual homing intelligence is supported. Legal directions at each grid point are specified by the grid table. Using lUIHD. Users will need familiarity with player/missile graphics (if necessary, see COMPUTEf's First Book of Atari Graphics, Chapter 5). The user needs to specify where MHD, player control stacks, PMBASE and the grid table are to be loaded (see Figure 1). There are a series of OS and MHD POKEs to speci- fy various options (see Tables 1 and 2). Subroutine 20000 sets up all of the above for Basic Burger. The heart of MHD is the player control stacks. Play- er stacks 0-7 control players 0-3 and missiles 0-3. Each stack is 32 bytes long (see Figures 2 and 4) . All stacks are turned on with 1= L/SR(ADR(VEGTOR$j,ONJ and off with I =USR (ADR (VECTORS], OFF). Study Figure 4 carefully to learn how to control your player's position, speed, collision actions, im- ages and boundary action. Individual stacks can be turned off by POKEing X to 0. To remove image from screen, POKE X to 2, a boundary violation. MHD will remove player and turn the stack off. Negative numbers. DX and DY may be negative. To POKE in a nega- tive number, add 256 to it and POKE in the result. For example, -2 becomes 256-2, or 254. IMaze design. The following equation, called the grid equation, states that there are grid points every B steps in the X direction, and every A steps in the Y direction. Displacement = 16 * (Y/A) + (X/B) - C Constant C is used to place the grid's corner at a given location (i.e., C = 16 * (YO/A) - (XO/B) , where (XO, YO) is the upper left-hand corner of the grid. YO/A and XO/B must be integers. PAGE 36 / MAY 1985 ANALOG COMPUTING ^ Basic Burger continued The grid table is a 256-byte table which defines legal directions for the players to move at each grid point. The grid equation yields a displacement from the start of the table. The value at the displacement defines legal directions for the grid point (i.e., l = up, 2 = down, 4 = left, 8 = right] . For example, if down and left are the legal directions, then the value of the grid point is 2 + 4, or 6. MHD code. MHD options are selected by changing MHD directly (see Table 2). Listing 3 gives the source code for MHD, allowing special patches to be added. The source code is for the BASM assembler, a subset of the BASM compiler. MHD and the player control stacks must lie on a page boundary. Table 1. OS POKES FOR PMG Register Description Content 559 Resolution 46=Double, 62=Singlei 623 Priorily (1 P0-P3,PF0-PF3, 2 PO, P1,PF0,PF1,P2,P3, PF2,PF3, 4 PF0-PF3,P0-P3, 8 PF0.PF1.P0, P1,PF2,PF3,P2,P3)+16 if missiles have own color (register 711). 704-707 Player color Hue* 16+ intensity 53256-53259 Player width 0=Normal, 1=Double, 3=0uadrupie 53260 Width of missiles Two bits for each missile specify width 53277 Enable player/missile 3=Enable' 53278 Hit clear clears collision registers 53252-53255 (player to playfields) 53260-53263 (player to player) 53256-53260 (missile to players) 53279 Page of player/ missile area PEEK(106)-8=Double resolution, PEEK(106)-16=Single resolution' 'Most common POKE(s) to Ihis register Table 2. MHD POKES POKE CONTENT DEFAULT VALUE ON-flOII Page address of MHD 100 0N-f2 Page of player control stack 152 ON-fl32 Page of player/missile base 152 ON-flC06 Grid table address (0,6) page 6 0N-^31 MHD exit address, user VBLANK (98,288) XITVBV ON-l-63 0= Rapid fire 203= Life trig between stiots ON-HOO 26=Limit bullets 30=Don't limit bullets ON-H02 Bullet limit 255 ON-h435=4 Enable missiles as 8 and 5th player i.e. ON+951=0 Stack player 4 252 ON-f574 2= Continuous cyclic action 20=Cyclic action when moving. RESULT OF GRID EQUATION POKES POKES POKES TO MAKE A=8 default POKE ON-l-987,10:POKE ON +988,234:POKE ON-f 941,7 A=16 POKE ON+987,234:POKE ON-^988,234:POKE ON-l-941,15 | A=4 POKE ON-f987,10:POKE ON + 988,10:POKE ON-)-941,3 B=16 delaul POKE ON-r99474:POKE ON -f 934,15 B=8 POKE ON-f994234:POKE ON+934,7 | C POKE ON+1003,C Presents: The World's Greatest Printer Utility! MegaFont ][ + The Complete Program Lister and Graphics Dumper by Richard Rognlie and Randy Dellinger dandiest program lister . . ." Creative Computing MORE FONTS — FASTER DUMP — FONT UPLOADER* Allows NEC, Prowriter, Epson (w/Graftrax, RX-80, FX-80), Riteman, Gemini, Mannes- mann Tally, Panasonic & other compatible dot matrix printers to dump Graphics 7+ and 8 screens in 3 sizes (4 on Epson) and print all control and inverse characters in fonts provided or use your own. New Features: Adjustable margins, FAST LISTER, Font uploader*, adjustable line spacing. Font Splicer (combine 2 fonts together). •Prowriter 8510AP w/chip, Epson FX-80 & Panasonic KX-P1092 48K disk please specify printer Only $24.95 Chip for Prowriter $15.00 'S'lte The Ultimate Atari Database XLENT MegaFiler by Jerry Kwit (Mode Mixer 2) "I don't believe you can get better value for your money . . ." ACE Newsletter "Its claim to fame is the large amounts of records it can handle." ANALOG XLENT MegaFiler is a very powerful and easy to use database system that can handle over 1 500 records. Allows you to define a formula, modify database records, add or delete fields and modify field lengths. Features Report and Label generation. New Features: Sort on multiple fields, create report subfile. 48K disk Only $29.95 Our First Adventure Into Games Dungeons, Dragons, & Other Perils by James Hurd The most accurate D&D adventure for your Atari. Multiple levels with many rooms. Vampires, ghouls and monsters await you. Features Dragon's Handbook by Jennifer Brabson 48Kdisk Only $19.95 *ih~ Out Of The Ordinary Hypnosis witli Drainwave Synciironization by Gene Levine A powerful modern addition to the traditional hypnotic aids — from bright shiny objects and spinning disk, to photic stimulators. Seven screens to aid you. 48K disk Only $29.95 Add $2.00 for shipping and handling. C.O.D, orders, $1.65 fee is added. Virginia residents: Add 4% sales lax. Send check or money order to: XLENT Software P.O. Box 5228 Dept. B Springfield, Virginia 22150 24 Hour Order Phone (703) 644-8881 CIRCLE #112 ON READER SERVICE CARD > ANALOG COMPUTING MAY 1985 / PAGE 37 W}. You have already made your first mistake ! You thought that cassette recorder would handle your storage needs. WRONG! — Don't make another one ! You think you need a disk drive to solve your storage problems. WRONG! You need 2 disk drives ! Any serious application practically demands at least Z drives. Word Froce55\ng Spreadsheet Data Base Management Mailing List Software All of these are made more powerful and, at the same time, easier to use If you have two disis drives. 5o now it will cost twice as much, right? WRONG! You need an Astra single or double density dual disk drive. Two drives in one low-priced unit. Astra Systems now has two new models for your ATARI: ASTRA 2001 Single or Double Density ^isk Drive ■ Advanced Circuitry ■ Rotary Doors ■ Direct Drive Motors . 360 Kbytes I Reliable, Quiet Operation ■ rast Read/Write . Easy Data Read ASTRA ''BIG D" ■ Double 5lded Drives ■ Single or Double Density ~ Direct Drive Motors - 720 Kbytes ALL DRIVE5 FURMISMED WITH 5MARTD05 0RMYD05* •DOUBLE 5IDEDDRIV/E5 Eur nearest dealer or distributor call (714) 549-2141 ^^FISTRFI SVST6MS, INC. 2500 5outh Eairview, Unit L 5anta Ana, California 92704 CIRCLE #113 ON READER SERVICE CARD ^ Basic Burger cominued Figure 1. MEMORY LAYOUT FOR BASIC BURGER Displacement from PMBASE PGS CONTENT -512 -2 Modified cfiaracter set Player control stack 256 1 Player images 768 3 Missiles 1024 4 Player Chef 1280 5 Player 1 Hot Dog 1536 6 Player 2 Pickle 1792 7 Player 3 Chicken 2048 8 MHD 1012 Bytes; Screen memory 960 bytes 4096 16 Top of memory Programmers should keep this article to incor- porate MHD into their own games. D Player stack 1 2 3 4 5 6 7 Figure 2. INDIVIDUAL PLAYER CONTROL STACKS Displacement from start Controls Player Cfief 32 Player 1 Hot Dog 64 Player 2 Pickle 96 Player 3 Cfiicken 128 Missile Left Pepper 160 Missile 1 Rigfit Pepper 192 Missile 2 Bouncing Pepper 224 Missile 3 Bouncing Money Figure 3. IMAGE LOCATIONS Displacement from start Images Two hot dog images 32 Two pickle images 64 Two chicken images 96 Six chef images 192 Flying peppers 200 Four bouncing pepper images 232 Four bouncing bill images David H. ButJer is a CEO of the Hendry Corpora- tion, which determines — without going into the market — what would happen if marketing strategies were changed on new or mature products. He has twenty years of computer experience. Listing 1. 5 REH PROGRAH CREATES THO FILES FOR BA SIC BURGER le REH LOAD HHD IN MEMORY 28 PGT0P=PEEKC106} : PG=PGT0P-8 : LIMEzlOO ee:GOSUB 1080 30 REM LOAD PLAYER STACKS IN MEMORY 48 ? CHR5C253J :PG=PGT0P-ll:LINE=1878«: GDSUB 1800 58 REM LOAD PLAYER IMAGES IN MEMORY 68 ? CHRSC253J :PG=PGT0P-10:LINE=11008: GOSUB 1800 78 REM MODIFY CHARACTER SET IN MEMORY 88 ? CHRSC253J :PG=PGT0P-13:LINE=11388: GOSUB 1800:? CHR|(2533 90 B=PG»256:A=PEEKC756)»256:F0R 1=128 TO 511: POKE B+I,PEEKfA+I} :NEKT I: FOR I =256 TO 263: POKE B+I, 255: NEXT 1 96 A=B*512: RESTORE 97: FOR 1=0 TO 7:REA D B:POKE A-272+I,B:P0KE A-257-I,B :HEXT 97 DATA 255,231,195,129,231,231,231,25 99 DIM F1SC20},F2SC203:F1S="C:":F2S=F1 S:SP=128 108 ? "MAKE CASETTE COJ , OR DISKCIJ";: INPUT CD: IF CD THEN F1$="D:MHD.ML":F2S ="D : BURGER . BIN" : SP=8 185 IF CD=8 THEN ? "INSERT CASSETTE, P USH PLAY AND":? "RECORD AND PRESS RETU RN" 118 10=2 :PG=PGT0P-8: OPEN ltI0,8, SP,F1$ : NUM=iei2 120 GOSUB 20118 Figure 4. fcontinued on next page] Displacement from start Content X Horizontal position 1 Y Vertical position 2 DX Change in X per change 3 DY Change in Y per change 4 IJIFFIES Jiffies per image change 5 XJIFFIES Jiffies per X change 6 YJIFFIES Jiffies per Y change 7 PPFC Player to playfields collision command 8 PPC Player to players collision command 9 PMC Player to missiles collision command 10 #IMAGES Number of images to cycle 11 IMSZ Image size 12 IMPTR Image pointer used by MHD 13 LSBIM Image address, least significant byte 14 MSBIM Image address, most significant byte 15 HI + BFLG Homing intelligence + boundary flag Collision command (0 = Stop, 64 = Reset, 128 = Remove on collision) + WITH (bits 0-3) HI (2,4,6 . .254) Random to hound dog. BFLG (0 = Remove on violation, 1 =Stop on boundary) 1 Jiffy = Veo of a second PLAYER CONTROL STACK Displacement from start Content 16 XMIN Lower horizontal limit 17 XMAX Upper horizontal limit 18 YMIN Lower vertical limit 19 YMAX Upper vertical limit 20 ICNT MHD counter used with IJIFFIES 21 XCNT MHD counter used with XJIFFIES 22 YCNT MHD counter used with YJIFFIES 23 PX Prior X without collision 24 PY Prior Y used to reset on collision 25 LY Last Y used to remove old image 26 CONTROL 26-31 control special functions 27 Dx Defines DX.DY for stick or maze players 28 Dy For trigger add to CPLR's X,Y to form missile's X,Y. 29 CPLR Player to home in on (CONTROL 16) 30 HX or BULLET COUNT 31 HY or Last trigger position CONTROL (255 = None, - 3 = Trigger, 4 - 7 = 4-way stick, 8-11= 8-way stick, 1 6 = Maze player with homing logic, 20 - 23 = Maze stick) Maze player has intelligence HI and homes in on CPLR. II CPLR = 255, then maze player homes in on HX.HY. Note: If player stack is not used, set X = and CONTROL = 255. ANALOG COMPUTING MAY 1985/ PAGE 39 ^^ Basic Burger continued 13fl HEM WRITE CHSET STACK AND IMAGES 140 PG=PGT0P-13:MUM=1023:P0KE 764,12:0 PEH «I0,8,SP,F2S 150 GOSUB 20110: POKE fPGT0P-8)»256, : E ND 1000 REM SUBR LOAD DATA IN MEMORY 1810 RESTORE LINE :B=PG«256:SUM=0 : TRAP 1030 1020 FOR J=0 TO 15: READ A: POKE B,A:SUM =SUM+A:B=B+l:NEKT J 1030 IF LINE<>PEEKtl83)+256»PEEKC184J THEN ? LINE;" MISSING": END 1040 READ A:IF SUMOABSCA) THEM ? "CHE CKSUM ERROR LINE "; LINE: END 1050 ? LINE:LINE=LINE+10:IF A>0 THEN 1 020 1060 TRAP 40000: RETURN 99S9 REM MHD.ML 10000 DATA 216,163,152,133,204,169,255 ,133,0,133,209,230,0,165,0,201,2369 10010 DATA 8,208,14,165,209,208,3,141, 30,208,160,8,162,0,76,98,4067 10020 DATA 228,10,10,10,10,10,133,203, 160,0,177,203,208,85,160,26,5700 10030 DATA 177,203,201,4,176,213,170,1 60,31,189,132,2,209,203,240,203,8213 10040 DATA 145,203,168,208,198,165,204 ,133,206,160,29,177,203,10,10,10,10442 10050 DATA 10,10,133,205,160,0,177,205 ,240,177,160,30,177,203,24,105,12458 10060 DATA 1,145,203,160,30,201,255,20 8,4, 169 , 255 , 145 , 203 ,160,27,177, 14801 10070 DATA 203,160,0,24,113,205,145,20 3,160,28,177,203,160,1,24,113,16720 10080 DATA 205,145,203,169,152,133,208 ,165,0,201,4, 144 , 2 , 169 , 255 , 24 , 18899 10890 DATA 105,4,74,170,169,0,106,133, 207,138,101,208,133,208,165,0,20820 10100 DATA 73,4,170,160,7,177,203,61,0 ,208,208,56,200,177,203,61,22788 10110 DATA 8,208,208,48,169,1,133,205, 165,0,201,4,176,81,170,200,24765 10120 DATA 177,203,240,75,133,206,202, 48,4,6,205,144,249,160,0,70,26887 10130 DATA 206,144,7,185,8,208,37,205, 208,8,200,192,4,208,240,24,28971 10140 DATA 144,45,160,9,177,203,10,144 ,14,169,0,133,209,160,0,145,30693 10150 DATA 203,32,187,103,76,11,100,10 ,144,18,160,23,177,203,160,0,32300 10160 DATA 132,209,145,203,160,24,177, 203 , 160,1 , 145 , 203 , 76 , 174 , 101 , 160 , 34573 10170 DATA 21,177,203,24,105,1,145,203 ,160,5,209,203,144,43,160,21,36397 10180 DATA 169,0,145,203,168,177,203,1 60,23,145,203,24,160,2,113,203,38495 10190 DATA 160,16,209,203,176,10,160,1 5,177,203,41,1,240,171,208,9,40494 10200 DATA 200,209,203,176,241,160,0,1 45,203,160,22,177,203,24,105,1,42723 10210 DATA 145,203,160,6,209,203,144,4 4,160,22,169,0,145,203,160,1,44697 10220 DATA 177,203,160,24,145,203,24,1 60,3,113,203,160,18,209,203,176,46878 10230 DATA 10,168,15,177,203,41,1,208, 11 , 240 , 193 , 200 , 209 , 203 , 176 , 241 , 49166 10240 DATA 160,1,145,203,160,20,177,20 3,24,105,1,145,203,160,4,209,51086 10250 DATA 203,144,27,160,20,169,0,145 ,203,160,12,177,203,24,105,1,52839 10260 DATA 145,203,160,10,209,203,144, 6 , 160 , 12 , 169 ,0 , 145 ,203 , 166 , O, 54774 10270 DATA 160,0,224,8,208,17,202,138, 73,3,10,234,234,113,203,157,56758 18288 DATA 4,208,202,16,242,48,5,177,2 03,157,0,208,160,12,177,203,58780 10290 DATA 170,136,169,0,24,202,48,4,1 13,203,208,249,160,13,24,113,60616 10300 DATA 203,133,205,200,169,0,113,2 03,133,206,160,1,177,203,72,160,62954 10310 DATA 25,209,203,240,3,32,187,103 ,104,160,25,145,203,24,101,207,64925 10320 DATA 133,207,160,11,177,203,168, 136,166,0,189,179,103,170,138,49,67114 10330 DATA 207,17,205,145,207,136,16,2 46,160,26,177,203,48,108,201,4,69220 10340 DATA 144,104,201,12,176,103,133, 205,41,3,170,169,0,160,2,145,70988 10350 DATA 203,200,145,203,189,120,2,7 3,15,133,206,208,8,160,20,169,73042 10360 DATA 0,145,203,240,69,70,206,144 ,10,160,28,169,0,241,203,160,75090 10370 DATA 3,145,203,70,206,144,8,168, 28,177,203,160,3,145,203,70,77018 10380 DATA 206,144,10,160,27,169,0,241 ,203,160,2,145,203,70,206,144,79108 10390 DATA 8,160,27,177,203,160,2,145, 203,165,205,201,8,176,11,160,81119 10400 DATA 2,177,203,240,5,200,169,0,1 45,203,76,11,100,201,16,240,83107 10410 DATA 112,41,3,170,32,161,103,240 ,13,169,12,192,0,240,2,169,84766 10420 DATA 3,133,206,24,144,50,32,215, 103,160,2,177,203,48,10,165,86441 10430 DATA 206,41,8,208,12,145,203,240 ,8,165,206,41,4,208,2,145,88283 10440 DATA 203,200,177,203,48,10,165,2 06,41,2,208,12,145,203,240,8,90354 10450 DATA 165,206,41,1,208,2,145,203, 189 , 120 , 2 , 73 , 15 , 37 , 206 , 133 , 92100 10460 DATA 206,208,12,160,2,177,203,20 0,17,203,208,12,76,61,102,169,94116 10470 DATA 0,160,2,145,203,200,145,203 ,169,4,133,205,76,69,102,208,96140 10480 DATA 137,160,21,177,203,288,246, 32,161,103,208,243,32,215,103,240,9863 1 10490 DATA 222,160,2,177,203,240,14,48 ,6,165,206,41,11,208,25,165,100524 10500 DATA 206,41,7,208,19,200,177,203 ,48.8,240,14,165,206,41.14,102321 10510 DATA 208,6,165,206,41,13,240,183 ,133,206,160,15,173,10,210,209,104499 10520 DATA 203,144,17,173,10,210,41,3, 170,189,175,103,37,206,240,243,106663 10530 DATA 133,206,208,155,160,29,177, 203,48,27,10,10,10,10,10,133,108192 10540 DATA 207,165,204,133,208,160,0,1 77,207,160,30,145,203,160,1,177,110529 10550 DATA 207,160,31,145,203,160,30,1 77,203,160,0,209,203,240,12,48,112717 10560 DATA 4,169,8,208,2,169,4,37,206, 208 , 197 , 160 , 31 , 177 , 203 , 160 , 114660 10578 DATA 1,289,203,48,4,169,2,208,2, 169,1,37,206,208,177,240,116544 10580 DATA 162,160,0,177,203,41,15,208 ,5,200,177,203,41,7,96,1,118240 10590 DATA 2,4,8,0,0,0,0,252,243,207,6 3,166,0,189,179,103,119656 10600 DATA 133,1,160,11,177,203,170,16 0,25,177,203,168,177,207,37,1,121666 10610 DATA 145,207,200,202,288,246,96, 160,1,177,203,10,234,133,206,136,12423 10620 DATA 177,203,74,74,74,74,24,101, 206,56,233,0,168,185,0,6,125885 10630 DATA 133,206,96,100,0,0,0,0,0,0, 0,0,0,0,0,0,-126420 10690 REM PLAYER CONTROL STACKS *** 10695 REM CHEF 10700 DATA 0,0,0,0,10,4,5,0,143,0,2,16 ,0,160,145,1,486 10710 DATA 60,196,40,137,0,0,0,0,0,0,2 0,1,1,0,0,0,941 10715 REM HOT DOG PAGE 40 / MAY 1985 ANALOG COMPUTING ^^ Basic Burger continued L972B DATA 8,0,0,8,18,3,4,133,0,131,2, 16,0,8,145,158,1541 18738 DATA 18,250,16,258,8,8,0,8,8,8,1 6,1,1,8,8,8,2885 18735 REM PICKEL 10748 DATA 8,8,8,8,18,3,4,139,8,131,2, 16,8,32,145,158,2717 18758 DATA 18,258,16,258,8,8,0,8,8,8,1 6,1,1,0,0,0,3261 10755 REM CHICKEN 10768 DATA 8,0,0,0,20,3,4,135,0,131,2, 16,0,64,145,158,3335 18778 DATA 18,250,16,250,0,0,0,8,0,0,1 6,1,1,0,0,0,4479 18775 REM RIGHT FLVIMG PEPPER 18788 DATA 8,8,1,1,0,1,1,139,142,8,1,5 ,8,192,145,8,5187 10790 DATA 32,216,16,200,8,8,0,8,0,0,0 ,4,255,0,0,0,5830 18795 REM LEFT FLYIMG PEPPER 18800 DATA 8,8,255,1,8,1,1,139,142,8,1 ,5,0,192,145,8,6712 18818 DATA 32,216,16,200,8,8,8,0,0,0,0 ,2,255,0,0,0,7433 10815 REM BOUNCING P 10820 DATA 0,0,0,0,4,5,6,0,1,0,4,8,0,2 00,145,1,7807 10830 DATA 32,240,40,137,0,0,0,0,8,8,1 6,1,1,1,0,0,8275 10835 REM BOUNCING MONEY 10840 DATA 0,0,0,0,4,5,6,0,129,0,4,8,0 ,232,145,0,8808 10850 DATA 32,240,40,137,0,0,0,0,0,0,1 6,1,1,1,0,0,-9276 10990 REM IMAGES FOR PLAVER5 **** 10995 REM THO HOT DOG IMAGES 11008 DATA 48,120,180,252,252,126,126, 62,62,126,126,252,252,252,120,48,2404 11010 DATA 12,30,45,62,62,126,126,252, 252,126,126,62,62,62,30,12,3851 11015 REM TMO PICKEL IMAGES 11020 DATA 0,24,0,126,0,90,0,255,0,231 ,0,98,8,126,0,24,4817 11038 DATA 0,0,0,0,0,0,126,255,126,0,8 ,8,0,0,0,0,5324 11035 REM THO CHICKEN IMAGES 11040 DATA 0,0,24,60,60,126,126,126,12 6,60,60,60,24,24,24,60,6284 11050 DATA 0,0,68,24,24,24,60,60,60,12 6,126, 126 , 126 , 60 , 60 , 24 , 7244 11055 REM 2 MV LEFT, 2 MV HT,2 CLIMBING CHEF IMAGES 11068 DATA 8,8,8,8,62,127,62,28,28,12, 63 , 127 , 92 , 28 , 54 , 54 , 7981 11878 DATA 8,8,0,0,62,127,62,28,28,12, 127,127,29,28,54,99,8764 11080 DATA 0,0,0,0,62,127,62,28,28,24, 63,127,92,28,54,54,9513 11090 DATA 0,0,0,0,62,127,62,28,28,24, 127,127,29,28,54,99,10308 11100 DATA 0,0,0,0,0,124,254,124,56,56 ,126,254,254,252,108,12,11928 11110 DATA 0,0,0,0,0,124,254,124,56,56 , 252 , 254 , 254 , 126 , 108 , 96 , 13632 11115 REM FLYING PEPPER, 4 BOUNCING P 11120 DATA 15,0,15,0,15,0,0,0,48,48,48 ,32,32,32,0,0,13917 11138 DATA 8,48,48,48,32,32,32,8,8,8,4 8,48,48,32,32,32,14397 11135 REM , 4 MONEY IMAGES 11148 DATA 8,48,48,48,32,32,32,0,0,0,0 ,8,192,192,192,192,15405 11150 DATA 0,0,0,192,192,192,192,0,0,0 ,192,192,192,192,0,0,16941 11160 DATA 0,0,0,192,192,192,192,0,0,0 ,0,0,0,0,0,0,-17709 11290 REM 16 REDEFINED CHARACTERS *** 11300 DATA 0,0,0,0,0,0,0,0,255,255,0,2 55,0,255,0,255,1275 11310 DATA 3,7,15,31,63,127,255,255,25 5,255,191,255,255,255,223,255,3975 11320 DATA 192,240,248,252,254,255,191 ,255,0,255,0,255,0,255,8,255,6882 11330 DATA 19,63,127,255,255,127,63,6, 96,252,254,255,255,254,252,200,9615 11340 DATA 255,191,255,127,63,31,15,3, 255 , 191 , 255 , 254 , 252 , 248, 240 , 192, 12442 11350 DATA 0,0,0,0,0,0,8,255,31,63,127 ,191,255,127,63,31,13585 11360 DATA 248,252,254,255,191,254,252 ,248,28,191,255,255,255,255,253,56,170 87 11370 DATA 0,8,8,0,0,0,24,60,24,24,60, 36,36,44,110, 126 , -17631 20110 REM I0=tl=READ,2=MRITEJ 20120 REM PG^PAGE , NUM =tt OF BYTES 20138 I0CB=832+I0*16:P0KE IOCB+2, 3*4*1 0:POKE I0CB+4,0:P0KE I0CB+5,PG 28148 I=INT(NUM/256) :PDKE I0CB*8,NUM-I *256;P0KE IOCB+9,1 28158 I=USR CADR fhhhSLUB") , I0»16) : CL05 E ttIO: RETURN CHECKSUM DATA. (see page 34] 5 DATA 771,738,722,884,34,857,16,424,3 49,88,667,293,346,991,751,7931 110 DATA 123,4,909,25,65,590,547,424,9 24,502,1,910,182,723,185,6114 10828 DATA 412,553,26,538,574,696,887, 738 , 415 , 486 , 389 , 582 , 327 , 485 , 15 , 6787 10170 DATA 491,587,509,525,462,777,568 , 446 , 453 , 457 , 387 , 348 , 464 , 752 , 538 , 7668 10320 DATA 65,626,500,716,498,266,707, 484,242,414,286,236,464,460,722,6686 10470 DATA 454,887,514,289,804.762,747 ,44,783,276,236,178,849,599,821,8243 10628 DATA 274,852,632,889,617,375,251 ,892,579,468,175,578,328,199,598,7699 18775 DATA 11,875,874,214,981,853,757, 385 , 579 , 438 , 431 , 836 , 363 , 78 , 733 , 8248 11818 DATA 86,771,4,369,26,699,712,583 ,578,397,576,571,138,132,222,5776 11128 DATA 987,284,318,368,844,897,922 ,886,567,339,818,885,368,194,414,9067 20110 DATA 736,579,477,205,172,2169 Listing 2. t REM ** BASIC BURGER «« 2 REM BY DAVID H. BUTLER 4 K1=1:K2=2:K3=3:K4=4:K5=5:K6=6 5 DIM UP$(K1) ,UECT0R$(ll},F00D5fl6) ,B$ C12> :LIFE=K3:BPNT=1OO00:BS=" " : LEUEL=:PEEK f 1750) 10 RESTORE 1600: FOR I=K1 TO 11: READ A: VECTOR$(I)=CHR$CA} :NEKT I:FOR I=K1 TO 18: READ A:F00D5fI)=CHR$(A) :NEXT I 98 GRAPHICS 17: POKE 77,K0:G0SUB 28888: POKE 756,PGCHSET:PFLG=K0:G0SUB 78eO:BF LG=PFLG:SOUND K1,20,12,S :POKE 764,255 163 IF PEEKC53279)=K6 OR NOT STRIGCKO ) THEN GOSUB 550: RUN ANALOG COMPUTING MAY 1985/ PAGE 41 ^ Basic Burger continued 164 IF LIFE=Ke THEN I=U5RCADRfUECT0R$) ,0FF):60SUB 15e0:P0SITI0N K6,Ke:? ttK6; "0"; :GOTO 163 165 G05UB 558 :8LUE=17e:X0LI>=128: POKE A *K1 , 40 : POKE A , XOLIX : I=U5R CADR CVECTOR$} , ON) 169 REM START OF MAIN LOOP 170 X=PEEK CA) : K13INT tX/32+0 , 5>»32 : IF NOT M THEN G05UB 9108: GOTO 163 175 Z=PEEKCA«K2)<>Ke:IF Z THEN SOUND K 8,258,K2,Z«K4 188 IF X-X0LD>24 THEN Xe=XOLD:XOLD=:Xl: X1=X1-8:G0SUB 1008 181 IF X0LD-X>24 THEN X8=X1 :X1=X0LD:X0 LD=X8:G0SUB 1000 183 VOID- PEEK CA<^K1> ; POSI TION Ke,Ke:? tt K6;"Q091g "aiFE;" JSAMi ".PHT; :IF PEE K(53279]=K6 THEN LIFE^KOiGOTO 164 184 IF PNT>=BPNT THEN GOSUB 9410 186 I=PEEKtPEPPER)»K2+Kl:P0SITI0N Kl,2 2'.1 ttK6;B$CKl,I); : POSITION Kl,23:? ttK6 ;bSck1,I); 187 IF NOT BFLG THEN IF PEEKt20)>6e T HEN POSITION 14,23:? ttK6;" "} 190 POKE 53761, KO:REM QUICK SO. 0,8, 0,0 191 IF NOT PFLG THEN IF PEEKC53778XK 4 THEN PFLG=Kl:B=A«K6«32: GOSUB 1120 192 IF PFLG=:K1 THEN B=PEEKC53258)/K2:I F BOINTCB) THEN GOSUB 827e:P0KE A+192 ,K2:PFLG=Ke:G0SUB 9380:P0KE 53278, KO 193 IF NOT BFLG THEN IF PEEK C53770J <7 THEN BFLG=K1:B=A+224:G0SUB 1120 194 IF BFLG AND NOT PEEKCA^224) THEN POSITION 14,23:? tlK6;"B=";B0NUS; :BFL6= KO:PNT=PNT+BONUS:POKE 20, KO: GOSUB 9380 195 IF PEEKC764}=33 THEN GOSUB 9000 280 GOSUB liee;GOSUB 998:G0T0 178 540 REM REMOVE ALL PLAYERS, SET DX AND DY TO ZERO ON ALL BUT PEPPERS 550 FOR I=Ke TO 7 : B=A+I«32 :POKE B,K2:P OKE 532481^1, KO: IF I<>K4 AND I<>K5 THEN POKE B+K2,Ke:P0KE B+K3,K0 560 NEXT I:POKE A+21,K0:P0KE 53278, K8: BFLG=Ke:PFLG=Ke:D=K8: RETURN 980 REM CHOOSE CHEF IMAGE 990 DX=PEEK(A+K2) :POKE A+13,96«CDX=255 ) +128K CDX=K1) Hhl6e« tDX=KO) 993 REM FLYING PEPPER SOUND 995 P=PEEKCA+128) :IF NOT P THEN P=PEE KCA+ieO) 996 DX=ABSCP-PEEKCA))/10: SOUND K1,K5,K 4, t8-DX)«CDX<8)«(P<>K0) :RETURN 999 REM FALLING BURGER ROUTINE 1800 Y=INT C (YOLD-40 J /24+0 . 5)«24+40 : PY= Y/8-K2 : PX=X8/8-K5 : LOCATE PX , PY , OUT : IN= 32 1818 IF IN=OUT THEN RETURN 1825 REM REMOVE FOOD ON TOP BURGER PAR T 1830 FOR 1=32 TO 96 STEP 32 :B-PEEK tl+A ) :IF PEEKtA+I+Kl)=Y THEN IF B>X8 AND B <X1 THEN POKE I+A,K2 1840 NEXT I 1845 PNT=PNT+iee:POSITION PX.PY:? ttK6; II II m 1050 FD=K6»C0UT=34J+9«C0UT=K6J+12»t0UT =1391 HI15«C0UT=40)+Kl: SOUND K0,255-PY»1 0,ie,K4 1851 POKE 53763, KOZIF PEEKCA«128) THEN SOUND K1,K5,K4,K4 1855 F00D=K3«tlN=178)+K6»CIN=34J+9»CIN =K6J +12«IIN=139) ♦15«tIH=40J +K1 : IF PEEK C764)=33 THEN GOSUB 9888 1868 IF PY>16 THEN LOCATE PX,PY-»K1 ,IN : IF IN032 THEN PNT=PNT*408»CPY=17) :POK E 53761, K8: GOTO 1895 1878 IF IN=32 OR IN=BLUE THEN POSITION PX,PY:? ttK6;F00D$fF00D,F00D+K2); :IF C IN=:BLUE) AND PEEKCA+K3) THEN GOSUB 990 1875 PY=PY+Kl: LOCATE PX,PY, IN :POSITION PX,PV:? ttK6;F0OD$CFD,FD+K2); :IF IH<>3 2 AND INOBLUE THEN OUT=IN:GOTO 1858 1898 GOTO 1855 1891 REM TEST FOR END OF ROUND 1895 FOR I=K4 TO 16 STEP K4:L0CATE 1,1 7,B:IF B=32 THEN POP : RETURN 1096 NEXT I: POP :PNT=PNT«888:F0R I=K1 TO K3:PNT=PNT+ie8«C NOT PEEKfA4l«32)) : NEXT I: GOSUB 550: GOSUB 9200: GOTO 18 1899 REM BRING FOOD TO LIFE 1100 IF RNDCK8X8.75 THEN RETURN 1185 B=A+32+32«INT(K3«RNDfK8)):IF PEEK CB) THEN RETURN 1118 D=D+Kl:PNT=PNT+(D>K3)«100 1120 Y=40HKINTCRNDCK0)«K5)«24:X1=32«192 «INTCRNDCK8}«K2):PQKE B+K1,Y:P0KE B+K2 ,K0:P0KE B+K3,K8:P0KE B, XI: RETURN 1500 REM PUT DEAD CHEF ON SCREEN 1518 I=PEEK CA+25) +A+ie24 : B=PEEK tA+13J ♦ 256»PEEKCA+14):F0R J=K4 TO 15:P0KE I+J , PEEK CB+ J) : NEXT J : RETURN 1600 DATA 104,184,178,184,168,169,7,32 ,92,228,96 1618 DATA 32,32,32,178,170,170,34,35,3 6,6,13,7,139,131,140,40,35,41 7888 REM SET SPEEDS 7818 LEVEL=LEVEL*CLEVEL<7J: RESTORE 788 8:P0SITI8N 14,22:? ttK6 ;••[£"; LEVEL; 7815 FOR I=K1 TO LEVEL:READ B,C, BONUS: NEXT I 7820 POSITION K2,K2:? ttK6;"GET READY T PLAY"; 7838 POSITION K2,21:? ttKe; "BASIC BURGE nil ■ 7848 POKE A4K5,BHhKl:P0KE A+K6, C4K1 :POK E A+197,B+K2:P0KE A+198,C*K2 7858 FOR I=:K1 TO K3:P0KE A+I»32+K5,B:P OKE A+I«32+K6,C:NEXT I:PEPPER=A+128+38 :IF NOT PNT THEN POKE PEPPER, KO 7888 DATA 4,3,508,3,4,758,3,3,1888,3,2 ,1588,2,3,2000,2,2,3888,2,1 ,5888 7898 POSITION K2,22:? ttK6;"iailGgl&B";K 5~PEEK CPEPPER) " 7980 POSITION K2,23:? ttK6;"(I£ISB";LIF E'" H^B""PNT' 7985 IF PHT>BPNT THEN GOSUB 9400 8088 REM DRAM RANDOM MAZE 8818 FOR I=KO TO 192 STEP 16: RESTORE 8 050:C=C NOT I}+K2»CI=192} 8828 FOR J=K1 TO 16: READ B 8838 POKE 1536+I+J,B-C«CB=K3) 8840 NEXT J: IF PEEK C53279J=K5 THEN LEV EL=LEUEL»CLEVEL<>7J :POKE 1758, LEVEL :P0 P :GOTe 7888 8845 NEXT I 8858 DATA 8,8,8,3,12,3,12,3,12,3,12,3, 8855 REM ADD BASIC MAZE 8868 FOR I=K2 TO 11 STEP K3:P0SITI0N K X+HBf-ZtHW^V;***-/.***-/ ':GOTO 8090 8888 ? ttKe;"B 8898 ? ttK6;" 8188 ? ltK6;" _____ ^^OHEIO^OSITION K2,14:? tlK6;"BG33 8128 REM ADD FOOD MODIFY MAZE 8130 FOR I=K3 TO 15 STEP K4:FD=7 8140 B=K3+K3«INTCRNDCK8)»K5) 8158 FOR J=K3 TO 15 STEP K3 8168 IF J=B THEN POSITION I,J-K1:? ttK6 ;" "; :GOTO 8198 PAGE 42 / MAY 1985 ANALOG COMPUTING ^^ Basic Burger continued 8170 POSITION I, J:? ttK6;F00D$fFD,FD+K2 ) J :FD=FD*K3 8180 GRID=1536+16»CJ-K3J + CI+K5J /K2 : POK E GRID, PEEK CGRIDJ +8: POKE GRID+K2,PEEK ( GRID+K2]«K4 8190 NEXT J: NEXT I 8200 REH ADD ONE MAY LADDERS 8210 FOR I=K3 TO 19 STEP K4 8220 UP= NOT UP:UPS="H":IF UP THEN UPS ="a" 8230 J=K4+K3«INT(RNDCK0)«K4} :GRI0=1536 +16«JJ-K4)+CI+K5)/K2 8240 B=GRID+48«C NOT UP):IF PEEKCBl-UP =K1 THEN 8230 8250 POKE B,PEEKCB}-UP-UP-C NOT UP) 8260 POSITION I-K1,J:? ttK6;UP$; : NEXT 1 8270 POSITION K2,21:F0R I=:K1 TO 17:? tt K6;CHR$C96};:NEXT IrPOSITION K2,22:F0R I=K1 TO K5:? t»K6;" ";CHRSC14); :NEXT I 8280 POSITION K0,23:? »K6;" / / / / / 8285 IF PNT AND NOT PFLG THEN RETURN 8290 B=A+128:P0KE PEPPER, KO : POKE B«2e, K8:P0KE PEPPER+32,K0:P0KE B+32+26,Ke:R ETURN 9000 POKE 764, 255 :I=USRCADRf VECTORS), FF) :GOSUB 9220 9810 IF PEEKC764)<>33 THEN 9010 9020 POKE 764, 255 :I=USRCADRf VECTORS), N) : RETURN 9100 REM KILL CHEF SOUND 9110 LIFE=LIFE-Kl:FOH D=15 TO KO STEP -K1:S0UND K0,2S5«RNDCK0),ie,D:NEXT D:P FLF=D : BFLG=D : RETURN 9200 REM END ROUND SOUND 9210 FOR 1=160 TO 80 STEP -K1:S0UND KO ,I,10,Ke:NEXT I:50UND Kl,e0,14,K6:S0UN D K2,96,14,Ke 9220 POKE 53761, K8:F0R I=K1 TO lSe:NEX T I:SOUND Kl,KO,Ke,KO:SOUND K2,K0,K0,K i RETURN 9300 FOR I=K1 TO 10: SOUND K0,20«RNDfK0 ),18,8:NEXT I:POKE 53761, KO: RETURN 9390 DATA 38,32,26,20,32,26 9400 REM BONUS CHEF 9410 LIFE=LIFE+Kl:BPNT=BPNT4^18ee8:REST ORE 9390: FOR I=K1 TO K6:READ B: SOUND K 0,B,ie,K6:F0R B=Ke TO 18:NEXT B:NEXT I 9420 POKE 53761, KO: RETURN 28000 REM ONE TIME SET UP 20015 REM ASSIGN COLORS TO PLAYERS 20020 POKE 704,14:P0KE 705,70:P0KE 706 , PEEK C709) : POKE 707,24:P0KE 711,22 20025 REM LOAD IN MHD IF NOT LOADED 28038 PGT0P=PEEKC106J :PGCHSET=PGT0P-18 : PG=PGT0P-8 : LET DN=PG»256 : NUM=:iei2 20035 IF PEEK(0N)=216 THEN 20090 28046 I0=K1:0PEN ttI0,K4,K0,"D:MHD .ML": GOSUB 20110 :GOSUB 20168 20045 REM IttID RET . =DEFERRED VBLANK 20050 POKE ON+31, PEEK C548) : POKE ON+32, PEEK (549) :LEVEL=KO:POKE 1750, LEVEL 20055 POKE 0N+108,26:P0KE 0N+ie2,K5:RE M LIMIT PEPPERS TO 5. 20060 POKE 0N+146,24:REM SINGLE RESOLU TION. 20065 POKE ON+951, 240: POKE 0N+952,24e: REM CHANGE MISSILE KEEP MASK. 20070 POKE 0N+1003,80:REM GRID EQUATIO N=2Y+X/16-80 . 28075 REM LOAD IN CHSET+STACKS+IMAGES 20080 OPEN niO,K4,Ke,"D:BURGER.BIN":NU M-1032 : PG=PGCHSET : GOSUB 20110 : POSITION K2,10:? ttK6; "CLEARING PM AREA"; 20085 B=tPGT0P-16)»256:F0R 1=768 TO 20 47:P0KE B+I,KO:NEXT I:REM CLEAR PM ARE A 28098 A=PGTOP-ie:POKE 54279,A:P0KE 0N+ 132,A:P0KE 559,62:P0KE 5327^, K3 :POKE NHHK2,A:P0KE 623,17:P0KE 53260,208 28095 A=A«256:F0R I=KO TO 7: POKE A*I»3 2+14,PGT0P-15:NEXT I:REM P6 ADDRESS OF IMAGES 28108 OFF=PEEK (0NHH31} +PEEK C0N+32)»256 : RETURN 20118 REM ID=:(1=READ,2=MRITE) 20128 REM PG=PAGE , NUM =tt OF BYTES 28138 I0CB=832+I0»16:P0KE I0CB+K2,K3+K 4«I0:P0KE I0CB+K4,Ke:P0KE I0CB+K5,PG 28148 I=INT(NUM/256) :P0KE I0CB+8,NUM-I «256:P0KE IOCB+9,1 20158 I=USR (ADR ("hhli[a.VS") , I0«16) : CLOS E ttIO: RETURN 20155 REM MAKE MHD RELOCATABLE 20168 RESTORE 20170: FOR I=K1 TO 14:REA D A: POKE ON+A, PEEK (0N4A) -PEEK (ON+1011) +PG:NEXT I: POKE 0N+1011,PG: RETURN 28178 DATA 243,246,278,583,524,652,662 ,680,758,766,777,782,843,959 CHECKSUM DATA. (see page 34} 1 DATA 158,445,59,972,42,311,590,285,4 99,481,318,484,332,324,920,6212 184 DATA 222,626,598,651,481,10,899,58 2,323,354,344,511,660,642,508,7251 993 DATA 998,967,775,317,837,739,469,8 81,488,398,677,954,898,833,788,18923 1875 DATA 176,738,186,496,55,681,224,7 IIjPZiJ^I' 227, 184, 281, 119, 895, 6851 7818 DATA 722,778,104,143,5,491,313,25 ,989,142,673,586,173,352,619,6115 8845 DATA 512,769,77,233,45,369,765,79 5,262,939,914,724,391,777,367,7939 i^2L**2IS ZS^' 51*' ^S^' 397- 53, 96, 496, 29 8,959,919,538,949,605,842,882,9328 9*28 6aTA 347, 339^428,' 462; ?§7^4l7ll8, 6 6,915,464,343,511,44,592,686,6246 28838 DATA 798,896,751,843,894,481,889 , 814 , 665, 486 , 834 , 714 , 396 , 496 , 954 , 10831 20110 DATA 736,579,445,205,172,246,683 ,42,3108 Listing 2C. 20036 REM ADD TO BASIC BURGER FOR CASS ETTE SYSTEMS 20037 POSITION 2,10:? tt6; "MOUNT TAPE H IT KEY" " 20040 10=1: OPEN mo. 4, 128. "C": GOSUB 20 110: GOSUB 20160 20088 POKE 764,12:0PEN ttIO , 4 , 128 ,"C" :N UM=1032:PG=PGCHSET: GOSUB 2811O-.P0SITI0 N 2,10:? tl6;"CLEARING PM AREA "; 25008 REM MAKE TAPE BACKUP 25018 IF PEEK(0H)<>216 THEN ? "RUN BAS IC BURGER BEFORE SAVEING":END 25020 TRAP 25030 :LPRINT : REM LPRINT BE FORE SAVE 25030 TRAP 40000:? "MOUNT TAPE. HIT RE TURN" 25040 CSAVE : 10=2 :NUM=iei2 : POKE 764.12 :OPEN ttI0,8,128,"C":PG=PGT0P-8:G0SUB 2 0110 ANALOG COMPUTING MAY 1985 / PAGE 43 ^^ Basic Burger continued 25850 MUM=1032:PG=PGCH5ET5POKE 764,12: OPEH ttI0,8,128,"C":G05UB 20110 Assembly listing. REM HHD MOTION HANDLER BASM ASH »=S63F0 CLD ADR=203 CMASIf=205 AIHAGE=205 AFPL-205 APM=207 HPL=207 CFLG=203 INDEX=e STICK0=632 TRIGe=644 GRIDTB=1S36 CPLF=53248 CPL=53256 RANI>0M=5377d HITCLR=53278 KITUBU=58466 «=S64O0 ENTER CLD : LET ADH+1 = 152 LET 255 -> INDEX -> CFLG REM TEST FOR END LI INC INDEX IF INDEX <> 8 GOTO LO LDA CFLG : BNE EXIT STA HITCLR EXIT LDY tt8 : LDX ttO GOTO XITUBV REM ADR=32«INDEX LO A5L A : ASL A : A5L A : A5L A ASL A : STA ADR REM IS STACK ON ? LDY nQ : LDA tADR),Y : BNE ON LDY 1126 ! REM TEST FOR TRIG IF (ADR),Y >= 4 GOTO LI REM TRIG HANDLER LATCH LOGIC TAX : LDY tt31 IF TRIGO,X = CADR),Y GOTO LI STA fADR),Y : TAY : BNE LI THD LET AFPL+1 = ADR+1 LDY tt25 : LDA CADRl.Y : ASL A REM AFPL =32» CADR),Y ASL A : ASL A : ASL A : ASL A STA AFPL : REN IS AFPL ON LDY no : LDA tAFPLJ.Y : BEQ LI LDY tt3e : REM BULLET LIMIT LET CADR},Y - fADR),Y + 1 LDY tt30 : REM FOR LIMIT LDY tt26 IF = 255 THEN LET CADR},Y = 255 REM X=DELTA X + XF LDY tt27 : LDA CADRl.Y : LDY ttO LET (ADR),Y = + CAFPD.Y REM V=DELTA Y + YF LDY n28 : LDA fADR),Y : LDY ttl LET fADR),Y = + CAFPL},Y REM COMPUTE PM AREA ADRRESS APM ON LET APM+1 = 152 : LDA INDEX IF < 4 GOTO LIA : LDA tt255 LIA LET * 4 : LSR A : TAX REM SINGLE RES POKE LSR TO CLH LDA ttO : ROR A : STA APM : TXA ADC APM41 : STA APM+1 REM TEST FOR COLLISIONS TCOL LET INDEX XOR 4 : TAX LDY tt7 : LET tADR),Y AND CPLF.X BNE COL : INY LET CADRl.Y AND CPL.X : BNE COL LET CMASK = 1 IF INDEX >= 4 GOTO NCOL : TAX REM TEST FOR PLAYER TO MISSILES INY : LDA (ADR},Y : BEO NCOL STA CMASK+1 L2 DEX : BMI L3 : ASL CMASK BCC L2 L3 LDY tte L4 LSR CMASK+1 : BCC L5 LET CPL,Y AND CMASK BNE COL-2 L5 INY : CPY tt4 : BNE L4 CLC : BCC NCOL : LDY ttS REM UHAT ACTION ON COLLISION? COL LDA fADR),Y : ASL A : BCC COLl REM TURN STACK OFF OFF LET CFLG - LDY ttO : STA (ADR),Y GOSUB CLRY : GOTO LI COLl ASL A : BCC C0L2 REM RESET POSITION LDY tt23 : LDA CADRJ.Y : LDY ttO STY CFLG : STA CADR},Y LDY tt24 : LDA CADR},Y : LDY ttl STA fADR),Y C0L2 GOTO P9 : REM SKIP UPDATE NCOL : REM UPDATE X LDY tt21 LET (ADR),Y = fADR),Y + 1 LDY tt5 : IF < fADR),Y GOTO UPY REM CLEAR XCNT LET PX=X LDY tt21 ! LET CADR),Y = TAY : LDA fADR),Y LDY 1123 : STA (ADR),Y : CLC REM X=X+DX LDY tt2 : ADC CADR},Y LDY ttl6 : REM IS X IN BOUNDS ? IF >= fADR},Y GOTO UPXl OUTX LDY ttl5 : LET tADR),Y AND 1 TOFF BEQ OFF : BNE UPY UPXl INY IF >= CADR),Y GOTO OUTX REM STORE X LDY ttO : STA (ADR),Y UPY LDY tt22 : REM UPDATE Y LET fADR),Y - fADR),Y + 1 LDY tt6 : IF < fADRI.Y GOTO UPI REM CLEAR YCNT LET PY=Y LDY tt22 : LET CADR),Y = LDY ttl : LDACADR),Y LDY tt24 : STA fADR),Y : CLC REM Y=Y+DY LDY tt3 : ADC (ADR},Y LDY ttl8 : REM IS Y IN BOUNDS IF >= CADR),Y GOTO UPYl OUTY LDY ttl5 : LET CADR],Y AND 1 BNE UPI : BEQ TOFF UPYl INY IF >= (ADR],Y GOTO OUTY REM STORE Y LDY ttl : STA fADR),Y UPI LDY tt2e LET CADR),Y = CADR) , Y + 1 LDY tt4 : IF < fADR},Y GOTO P9 LDY tt2e : REM IMAGE CHANGE LET fADR),Y = : LDY ttl2 LET fADR),Y = CADR),Y + 1 LDY ttlO : IF < (ADR),V GOTO P9 LDY ttl2 : LET fADRJ.Y = P9 LDX INDEX : REM POKE X LDY ttO : CPX tt8 : BNE PX DEX : REM 5TH PLYR CPX tt8 TO tt4 PZ TXA : EOR tt3 : ASL A : NOP NOP : ADC fADR),Y STA CPLF+4,X DEX : BPL PZ : BMI PXl PX LET CPLF.X = CADR),V PAGE 44/ MAY 1985 ANALOG COMPUTING ^^ Basic Burger continued REM COHPUTE IIMGE LOAD AREA REM AREA=IM ADR + XM tt « IN 5Z PXl LDY ttl2 : LDA (ADR)^Y TAX : DEY : LDA ttO : CLC INI DEK : BNI IH2 : ADC CADRl.Y BNE IMl IM2 LDY ttl3 LET AIMAGE = * CADR),Y : INY LDA no : ADC CADR),Y 5TA AIHAGE41 : LDY ttl REM CLEAR Y IF YOLY LDA CADR],Y : PHA : LDY tt25 CMP tADR),Y : BEQ 13 : JSR CLRY REM LY=Y 13 PLA : LDY tt25 : STA CADR),Y LET APM = + APM LDY ttll : LDA CADR),Y : TAY DEY : REM LOAD IMAGE LDX INDEX : LDA KEEP,X : TAX LOAD TXA : AND fAPM},Y LET fAPM),Y = OR CAIMAGE),Y DEY : BPL LOAD REM TEST FOR STICK LDY tt2e : LDA tADR},Y : BMI TLl IF < 4 GOTO TLl IF >= 12 GOTO GSTK REM STICK HANDLER STA CMA5K : AND tt3 : TAX LDA tte : LDY »2 : STA CADR),Y INY : STA CADR},Y LET CMASK+1 = STICKO^X XOR 15 BNE STO : REM STOP CYCLICACTION STOP LDY «20 LET CADRJ.Y = : BEQ TLl STO LSR CMASK+1 : BCC STl LDY tt28 : LDA ttO : SBC (ADR),Y LDY tt3 : STA CADR),Y STl LSR CMASK+1 : BCC ST2 LDY tt28 : LDA fADR),Y LDY ns : STA CADR),Y ST2 LSR CMASK+1 : BCC ST3 LDY tt27 : LDA ttO : SBC CADR},V LDY tt2 : STA CADR},Y ST3 LSR CMASK+1 : BCC ST4 LDY tl27 : LDA fADR),Y LDY tt2 : STA CADRI,Y ST4 IF CMASK >= 8 GOTO TLl LDY t}2 : LDA fADR),Y : BEO TLl INY : LET CADR1,Y = TLl GOTO LI GSTK IF = 16 GOTO GRID REM 4 HAY GRID STICK AND tt3 : TAX GOSUB TGRID : BEO GSl LDA ttl2 : CPY tte : BEQ TG5 LDA tt3 TG5 STA CMASK+1 : CLC : BCC GS5 GSl GOSUB GPNT : REM REMOVE ILL LDY tt2 : LDA fADR),Y : BMI GS2 LET CMASK+1 AND 8 : BNE GS3 STA (ADR) ,V : BEQ GS3 GS2 LET CMASK+1 AND 4 : BNE GS3 STA CADR),Y GS3 INY : LDA (ADR),Y : BMI GS4 LET CMASK+1 AND 2 : BNE GS5 STA (ADR).Y : BEQ GS5 GS4 LET CMASK+1 AND 1 : BNE GS5 STA CADR),Y GS5 LET STICKO,X XOR 15 AND CMASK+1 STA CMASK+1 : BHE GS7 REM STOP CYCLIC ACTION ? LDY tt2 : LDA CADR),Y INY : ORA (ADR},Y : BNE GS6 GOTO STOP GS7 LDA ttO : LDY tt2 STA (ADR),Y : IMY : STA (ADR) , Y GS6 LET CMASK = 4 : JMP STO GS8 BNE TLl REM SELECT GRID DIRECTION REM FOR GRID PLAYER GRID LDY tt21 : LDA (ADR),Y : BNE GS8 GOSUB TGRID : BNE GS8 GOSUB GPNT : BEQ GS7 REM REMOVE DIRECTION FROM LDY tt2 : LDA (ADR).Y : BEQ GR2 BMI GRl : LET CMASK+1 AND 11 BNE GR4 GRl LET CMASK+1 AND 7 BNE GR4 GR2 INY : LDA (ADR) , Y : BMI GR3 BEQ GR4+2 LET CMASK+1 AND 14 : BNE GR4 GR3 LET CMASK+1 AND 13 BEQ GS7 GR4 STA CMASK+1 : LDY ttlS REM HOME IN ON TARGET OR RANDOM IF RANDOM < (ADR),Y GOTO HOME REM CHOOSE RANDOM DIRECTION GRS LET RANDOM AND 3 : TAX LET TBL,X AND CMASK+1 BEQ GRS GR6 STA CMASK+1 : BNE 6S7 HOME REM HOME IN ON TARGET LDY U23 : LDA (ADR),Y BMI XY : REM TARGET IS PLfkVER? REM YES STORE PLAYERS X,Y REM HPL = 32«PLAYER ASL A : ASL A : ASL A : ASL A ASL A : STA HPL LET HPL+1 = ADR+1 : LDY ttO LDA (HPL},Y : LDY tt30 STA (ADR),Y : LDY ttl LDA (HPL),Y : LDY tt31 STA (ADR),Y REM HOME IN ON HX,HY XY LDY tt30 : LDA (ADR),Y LDY ttO : CMP (ADR),Y : BEQ HY BMI XYO : LDA tt8 : BNE XYl XYO LDA tt4 XYl AND CMASK+1 : BNE GR6 HY LDY It31 : LDA (ADR),Y LDY ttl : CMP (ADR),Y : BMI HYO LDA tt2 : BNE HYl HYO LDA ttl HYl AND CMASK+1 : BNE GRO BEQ GRS TGRID REM TEST FOR GRID POINT LDY ttO : LET (ADR),Y AND 15 BNE NOTGR : INY LET (ADR),Y AND 7 NOTGR RETURN REM TBL DIRECTIONS TBL DATA 1,2,4,8 REM KEEP MASKS PLAYER/MISSILES KEEP DATA 0,8,0,0 DATA 252 , 243 , 207 , 63 REM CLEAR KEEP APPROPIATE BITS CLRY LDX INDEX LET INDEX+1 = KEEP,X LDY ttll : LDA (ADR),Y : TAX LDY tt25 : LDA (ADR)^ : TAY CLRl LET (APM},Y AND INDEX+1 STA (APM),Y : INY : DEX BNE CLRl : RETURN GPNT REM LOAD LEGAL DIRECTIONS LDY ttl : LDA (ADR},Y : ASL A NOP : REM 2»Y+X/16-8 GRID EQU. STA CMASK+1 : DEY : LDA (ADR),Y LSR A : LSR A : LSR A : LSR A LET + CMASK+1 - : TAY LET CMASK+1 = GRIDTB,Y RETURN DATA >ENTER ANALOG COMPUTING MAY 1985 / PAGE 45 24K Cassette or 32K Disk GRAPHICS * Z-Plotter by David Bader I have always been fascinated by a computer's abil- ity to take a flat grid and literally bend and distort it. I've seen various pictures produced by the Atari — hats and spirals made simply by a formula. How?ever, altering these programs for personal use and experi- mentation is both difficult and time consuming. After studying calculus and graphics in my first semester of college, I resolved to make a program to allow anyone to produce quick, fascinating pictures on Atari's superior high-resolution mode (graphics 24]. With Z-Plotter, all you have to do (besides typing in the program] is enter a formula in terms of the X and Y during the run. Atari's forced read mode (uti- lized with location 842] will install the formula in all the appropriate line numbers. There are no loops, IF/THENs, or special circum- stances to enter for each formula. This program sim- ply won't graph out of specified domains, which pre- vents errors. If you wish, Z-Plotter will scale the Z-axis, so that the function won't even extend beyond the bounds. How to run Z-Plotter. Once you've saved your copy to disk, simply type RUN, and the program will prepai'e itself, filling two machine language routines (49 Second Screen Dump and a text superimposing routine]. Next, it will inquire for a function. A short set of directions is also displayed, to guide you. Simply type the Z = f miction in terms of X and/or Y. Several sample formulas are given at the end of this article. Z-Plotter will then resume control and ask you for the following inputs. You are asked to choose between automatic scal- ing and manual scaling of the Z-axis. Automatic scal- ing will determine the maximum and minimum Z values for the function in the intervals specified. Al- though it's very tempting to be lazy and just select the autoscaling feature, you will find that many func- tions are far more stimulating and exciting when they are graphed in part. The autoscale will force a function to be squeezed into the isometric box drawn on the screen. If you PAGE 46 / MAY 1985 ANALOG COMPUTING ^ ••» «• _• • » I » -V • • * — I t select manual scaling, you'll be asked to enter the lowest and highest points on the Z-axis to be displayed. The graph will not be plotted outside of the Z-axis range. Note: when manual scaling, the lim- its must be set so that the point Z= is either on or between the upper and lower bounds. Ex- "•^^ amples of acceptable hmits: Z lower = - 2 , Z up- per = 2 or Z lower = 0, Z upper = 3. X/Y lower limit: this will be the leftmost point on the X-axis, and the number also serves as the lowest point for the Y-axis. X/Y upper limit: opposite of above. Note: just as with the Z-axis, Y=0 and X = must be within or on the box. Picture a perfect square; the Y-axis will have the same length as the X-axis has width. Desired resolution (l = high, 10 = low]: I use 4 for most graphs. It's a good balance between BASIC'S speed and performance resolution. Note: odd num- 9 * r.i I • bers may cause problems if your formula is undefined somewhere in the box. The next input can be surpassed by just pressing RETURN. Here, you're asked for the eight-character name that can be used if you wish to save to disk (in Magniprint format] the screen, once it has been displayed. That's all! Z-Plotter can let almost anyone dream up equations to dazzle the computer screen. When it's finished, it will sound off, telling you that you can now render the following options! (1] OPTION — adds borders (the isometric box] and labels superimposed over the graphics screen for an impressive technical display. (2] SELECT — saves the picture as a data file that can be redisplayed with the program Mag- niprint by Alpha Systems. The lines used to per- form this duty are provided by Magniprint for use in all BASIC programs. By the way, Magni- ANALOG COMPUTING MAY 1985 /PAGE 47 ■ft Z-Plotter continued Z = 3IH CHJ +C05(YJ HIGH Z:rl. 98773 LOW Z=-i.9924 ;J6 -</S::-v:;'VU V-AKIS • H-ftKI5 Z = 5IN (K)*COS tY5 HIGH Z=6. 99242 LOW Z3-0.9916 Y-AKIS .- K-AHIS print can then print out these pictures — in sever- al sizes and in varied formats. (3] START— 49 Second Screen Dump! This will print the screen out right then and there for the Epson MX-80 printer with Graphtrax 80 (works perfectly with my Gemini lOX] . This rou- tine was provided by COMPUTEf's Second Book of Atari. (4] ESC — will erase the screen and rerun the program without going through initialization again. What's an isometric projection? Imagine a sheet of square graph paper lying per- fectly flat on a table top. One side, say the depth, is the X-axis. The height is the Y-axis, but we'll call it the width, instead. If we raised a line perpendicular to each corner of our graph paper to a certain height, called Z, and joined the top of the lines to each other, we would create a box. If Z=Y=X, then we have a cube, with our graph paper as the bottom. Let's look at this box from the top. You see the grid and recognize the pattern as a typical coordinate plane (X,Y). If we look at the box perpendicular to the X-axis, we see X, the depth, and Z, the height. The Y-axis is just a point at the left lower corner. Looking perpendicular to the Y-axis, the X-axis would look like a point in the lower right corner. If X=Y, and you look at this corner so that both the X- and Y-axes appear to be the same length, you would see a 90 degree corner facing away from you. Now, raise your eye straight up above the table. Our graph paper looks more like a diamond shape than a square. In fact, an isometric box has all three pri- mary axes (X, Y, Z) foreshortened equally. This makes it a good medium to project a three-dimensional plane in, because it does not distort like common oblique projections. AN I50METRIC BOH HIGH Z=l LOW Z=-l HEIGHT 'Z' WIDTH y-hkj:5 -. , ^ DEPTH <-<^y^>^y^ 30° Isometric projection. If we put a transpai-ent plane perpendicular to yom- line of sight and etched the borders of the box on it PAGE 48 / MAY 1985 ANALOG COMPUTING # Z-Plotter c ontinued Z= CY-i)KtH + 2)*tH*H ... HIGH Z=4 ...LOW Z--4 ...-■-■-■;;il_-=:;^;:00^^ Y-AHIS Z=CY 1J»(H + ?1«H»H ^: HIGH Z=80.9533 LOW Z = -l'57,04 '4-^S.'> -L ^ "■"'-t -^ ■>^-: V-flHIS -3 ■ ... K-flKI5 the way they appear to you, that plane would show a three-dimensional box. An isometric projection shows the X- and Y-axes to be raised 30 degrees above the lowest point. How do you plot the height (Z) of any point on the grid at any place, given its X and Y coordinates? Just use a formula such as: Z = SIN(X)+ COS(Y). Program breakdown. Lines 10-34 — Main loop to draw lines paral- lel to the X-axis isometrically on the screen. Lines 36-60 — Main loop to draw lines paral- lel to the Y-axis isometrically on the screen. Lines 100-110 — Autoscale featm-e. These lines will determine the Z maximum and minimum values for the entered function before graphing. Line 200 — This sound indicates that the pro- gram has finished drawing the display and is ready to perform any of the console key com- mands. Lines 202-210 — This loop reads the console keys. Note: because all these console key options do not erase the screen, you can perform all of them in any order from a single run! Lines 300-306 — 49 Second Screen Dump. Lines 400-432 — Magniprint saving routine supplied verbatim by Magniprint on disk. Lines 600-900 — Routine to draw isometric box over projection and label the axes. Lines 1000-1004 — Initialize and load machine language routines. One is POKEd into page 6, and the other is stored by a string. Lines 1008-1012 — These lines provide in run entry of your formula. The actual function is en- tered as an input statement. The program will then create Lines 14, 40 and 104 using the forced read mode. Lines 1013-1040 — Prompts for boundai'ies and screen saving name. Note: if no name is entered for screen saving, it will accept the default name, SCREEN. MR Line 1042 — Sets up primary variables and scaling values used in the main routines for con- verting a set of (X, Y, Z) points to the 320 by 192 screen display used in graphics 24. Line 1044 — Sets up display screen. Lines 1100-1110 — Data for 49 Second Screen Dump. Lines 1120-1180 — Data for the routine to su- perimpose text over the graphics 24 screen. Dave Bader is a first-year, dean's list student in Mechanical Engineering. For close to two years now, he has been enthusiastically hacking his way through BASIC, to create both adventure games and prograjns for mathematics [the original inspiration for Z- Plotter]. He's a firm believer in the Atari — as the best home computer on the market. (Listing starts on next page) ANALOG COMPUTING MAY 1985 / PAGE 49 ■ft Z-Plotter continued Zrl+H*H-Y*Y Y-ftKI5 Z = LOG fftB5CH)) +LOG fV) } HIGH Z=6 ;t;;j:X?7*;rv; ■ ' ' K-flHI5 HIGH Z=i. 38629 ..LOH Z = -5.4377 ■il K-AKI5 Here are some samples. Hint: rather than using powers such as XA3, BASIC will perform the con- figuration X*X*X much faster. AUTO- Z Z X/Y X/Y FORMULA or SCALE? LOWER UPPER LOWER UPPER Z=1+X*X-Y*Y NO 6 -3 3 Z=SIN(X) YES (-1) 0) 6 Z=SIN(X)+COS(Y) YES (-2) (2) 6 Z=SIN(X)*COS(Y) YES (-1) (1) 6 Z=ABS(X)-ABS{Y) YES — — -3 3 Z= -ABS(X)-ABS(Y) NO -3 -3 3 Z=(Y-1)*(X+2)*X*X NO -4 4 -3 3 Z=C0S(X)*X*(Y-1) NO -3 -4 4 Z=X«X/1 + X*X+Y*Y/1*Y*Y YES — — -4 4 Z=INT(X)+INT(Y) YES (0) (6) ag Z=X*X+Y*Y YES (2) (0) -1 1 Z=LOG(ABS(X)) YES — — -2 2 + LOG{ABS(Y)) Listing 1. e GOTO leoe 18 FOR V=YU TO YL STEP -RES»CYU-VL) :B= KO 12 FOR X=KL TO XR STEP RE5*CHR-HLJ 14 REN ■^■lr»!HWjfcia:na;H>MHil;»i:if:ltnWii 16 IF Z>H OR Z<HL THEN B=KO:GDTO 34 18 XX=K«XINC 20 YY=XX»ISO 22 XX=XX-Y*YIMC 24 YY=VY+Y»YIHC»ISO 26 YV=VY*Z«ZIHC 28 YY=191-YY-DB6 30 XX=XX+159:IF B THEN DRAHTO XX,YY:60 TO 34 32 PLOT XX,YY:B=K1 34 NEXT X:NEXT Y 36 FOR X=KL TO XR STEP RES»tXR-XL3 :B=K STEP -RES«CYU-YL> FORMULA (ENTERED DURING RUN) 38 FOR Y=VU TO Yt 40 REM 42 IF Z>H OR Z<HL THEN B=KO:GOTO 60 44 XX=X«XINC 46 YV=XX»ISO 48 XX=XX-Y«YINC 58 YV=YY+Y«YINC«ISO 52 YY=YY*Z»Z1NC 54 YY=191-YY-DBG 56 XX=XXH(159:IF B THEN DRAHTO XX,YY:GO TO 68 58 PLOT XX,YY:B=K1 60 NEXT Y:NEXT XiGOTO 208 188 H=K8:HL=K8:F0R Y=YU TO YL STEP -RE S»CYU-YLJ 182 FOR X-XL TO XR STEP RES*tXR-XL> 184 REH ■Jii;iiiiiy-ihia?Ma;ia>aaiiilii:itii!nniM 185 IF Z>H THEN H=Z 106 IF Z<HL THEN HL=Z 187 NEXT X:NEXT Y 188 IF HL>K8 THEN HL=K8 189 IF H<KO THEN H=Ke 118 RETURN 288 SOUND K8, 188, 10, 14 -.FOR T=K8 TO 100 :NEXT T:SOUND K8,Ke,Ke,Ke:P0KE 764,255 202 S=PEEK (53279) : IF S=6 THEN 60SUB 30 0:GOTO 202 284 IF S=5 THEN GOSUB 408:6010 202 206 IF S=3 THEN GOSUB 600: GOTO 282 288 IF PEEK (764) =28 THEN ? "H'MGOTO 10 08 210 GOTO 282 299 REM K"49 SECOND SCREEN DUMP" 388 CLOSE Its: OPEN tt5,8,Ke."P:" 382 ? tt5;CHRS(27l;"A";CHRS(8):F0R H=DM TO DM+39 ^ ^ * * , 304 A5=CHR$ (K8) : A$ (192) =A$ : AS (2) =AS 386 H=USR (1536, X, ADR (A$) ) :LPRINT CHR$( 27) ; "K" ; chrS (192) ; chrS (KO) ; A$ : next X : R ETURN 488 REM *488- 432 IS 'AS IS' SUBROUTINE SUPPLIED BY i;f.W;ti:l;»;i< TO SAVE A GR.2 4SCREEN 482 RH=8:I0=Kl: CLOSE ttIO:OPEN ttIO,RH,K 8,F$ PAGE 50 / MAY 1985 ANALOG COMPUTING ■ft Z -Plotter continued Z=flB5fH}-AB5CYJ Z=:V»Y + K»K HIGH Z=2.94 LOW Z=-2.94 Y-AKI5 -3 - HIGH 2=2 LOW Z=0 -3 Y-flKI5 H-AXIS 404 PUT ttI0,24:F0R L-7B4 VQ ?12:PUT ttl 0,PEEKCI} :NEKT I 406 RAMT0P=PEEKC106J»256 408 DLIST=PEEK (5601 +256»PEEK C561 J 410 rtDDRE5S=DLI5T 412 IIUMBER=RAMT0P-DLI5T+K1 414 I0=16«I0 416 I0CB=832+I0:P0KE I0CB+2,RW+3 418 ADRHI=IHTCADDRE55/256) 420 ADRL0=ADDRE5S-ADRHI»256 422 POKE I0CB+4,ADRL0:POKE I0CB+5,ADRH I 424 NUMHI=INTCNUMBER/256) 426 NUML0=NUNBER-256«NUMHI 428 POKE I0CB+8,NUML0:P0KE IDCB+9,NUHH I 430 I = U5R(ADRC"hhhwLV(!]"},I0) 432 CLOSE ttIO/16: RETURN 600 D=KO:F=KO:OS=FCS:GOSUB 500 601 PLOT 159,191:l>RAMT0 20, 117 :DRAHT0 159,44:DRAHT0 306,117 :DRANTO 15?,191:D RAWTO 159,147 602 PLOT 2e,117:DRAMT0 20,73:PL0T 153, 44:DRAMT0 159, Kl: PLOT 300 , 117 : DRAHTO 3 00,73 604 DRAHTO 159, 147 : DRAHTO 20, 73: DRAHTO 159, Kl: DRAHTO 30 0.73 606 D=KliF=2:Q5="|±IISI":G05UB 9 00 ;F= 3 : 0S="||3aEiaQil" : GOSUB 900 : F=4 : (tS='1S^^ ZI":GOSUB 900 608 D=K0:F=14:«S=5TRS(YUJ :G05UB 900:0$ = STRS f XRJ : D=39-LEII CQ5J : F = 14 : GOSUB 906 610 D=16:F=23:05=STRS(YLJ :GOSUB 900 : D= 23:0S=STRSfXL) :G0SUB 900 : D=26 : F=K1 : QS= "HIGH Z=": GOSUB 900 611 D=33:05=STRS(H> :IF LEH(QSJ>7 THEH QS=aSCKl,7J 612 GOSUB 900:D=26:F=2:QS="L0H Z=":GO SUB 900:D=33:QS=STR5(HL) :IF LENCQ5J>7 THEM Q5=0SfKl,7J 614 GOSUB 900:D = 3:F=:19:0S = "Y-AXIS":G0S UB 980:D=30:QS="K-AKIS":G0SUB 900:HETU RN 960 0=USRCAOR(ZS} , D, F, ADR C0$} , LEN (0$)) :RETURH :REM «SUB.T0 ADD TEXT TO GR.24 1000 Kl=l:GRAPHICS 24:REST0RE lOOOzFOR T=K1 TO 61:READ Q:POKE 1535+T,Q 1001 NEXT T:DM=PEEKC88>+PEEKC89J*256:D M=DM+40*191 1602 T=KO:DIM ZS (169J , QS t40J , A$ (193J ,F $(20) ,FC$C40) :1S0=0. 523598775 1004 RESTORE 1120:F0R T=K1 TO 168:READ : ZS CLEH (ZSJ +K1) =CHRS (OJ : HEKT T 1008 P OKE 82. K6: GRAPHICS KO:PO KE 71 2,1 48:? " ■i'T;VJ^ ;f!iaa;aiw'4aBimia;MM" ; ^ "kS DAUE BADER'5 ZPLOTTER! ISOMETRIC PLOTTER PROGRAM ™ 1009 ? "IN PUT F ORMU LA AS... Z=(IN TERM S OF XSY) GEES Hn-T3 THAT SYNTAX IS COR RECT.":? "(eg: PAIRS OF PARENTHESIS)" 1010 INPUT FCS:? "H":POKE 559,K0:P0SIT ION K0,7:? "14 ";FCS:POSITION KO.ll:? "40 ";FCS 1011 POSITION K0,15:? "104 ";FCS:POSIT ION K0,21:? "CONT": POSITION KO,KO:POKE 842, 13: STOP 1612 POKE 559,34:P0KE 842.12:' "• OTTER! PARAMETERS ENTRY SCREEN 1613 ? "NO TE; ALL THREE PRIMARY AXIS ( X,Y,Z) GinaD BE IN SPECIFIED DOMAINS i014 ? :? FC$:? :? "AUTOMATIC BOUNDS S ELECTION ENSURES FULL PLOTTING BUT TAK ES MORE TIME. . .":T=K6 1615 ? :? "PLEASE CHOOSE |13 AUTOMATIC SCALING Z-AXIS BOUNDS |21 MANUAL SETTINGS. ":INPUT T : IF T:;K1 THEN 1020 1016 ? :? "INPUT LOHER S LIMIT"; :INPUT HL:? "INPUT UPPER H LIMIT"; :INPUT H 1018 IF HL>H OR HL>KO OR H<KO THEN ? " HOOPS!":GOTO 1616 :? "CBH LOHER LIMIT"; : INPUT XL: 1020 ? YL = XL 1022 ? XR 1024 IF XL>XR OR XL>KO OR XR<KO THEN ? "HOOPS !":GOTO 1020 ■eSH UPPER LIMIT"; : INPUT XR : YU= ANALOG COMPUTING MAY 1985 / PAGE 51 ■ft Z-Plotter continued Z = C05 (H3 tC05 tYJ HIGH Z = .l. 99605 LOW 2=1.9999 Z=:(ie5 CCOS CHI + COS CYJ.-Jt 3 . 14>, V-ftHI5 K-flHIS HIGH Z=2 LOW Z=0 -3.14 -3.14 ¥-flHI5 \l#i|iKj^Av---'"' K - fl H 1 5 1926 ? :? "DE5IRED RESOLUTION C1=HIGH; 1G=L0H)"; :INPUT RES:RE5=RE5+3:RES=RE5» 5.GE-03 1928 FS="D:":? :? "INPUT TITLE OF SftVE D SCREEN (IF SAUED) IN l!Mrt:MJ;H;W FOR MAT C8 CHARACTERS MAX)" 1030 INPUT OS: IF «$=■■" THEN FS="D:SCRE EH. MP" 1032 FS(LENCFS)+K1)=«5 1035 ? :? "■il-Jfc*|ii:B ADD LABELS « BORDE RS":? "ElliaVSAUE IN MAGNIPRINT FOR MAT!" 1036 ? "UBEEMM 49 SECOND SCREEN DUMP i038 ? :? "PRESS ANY KEY TO BEGIN...": POKE 764,255 1040 IF PEEK (764) =255 THEN 1040 1041 IF T=K1 THEN ? :? " AUTO SCALIN G SEQUENCE IN ACTION !": GOSUB 100 1042 KIHC=140/tXR-HLJ : YINC=140/ (YU-YL) : ZINC=43/ (H-HL) : DBG=ABS (HL«ZINC) +ABS (K L*XINC»ISO) +ABS (VL«YIHC»IS0J 1044 GRAPHICS 24:P0KE 710,156:P0KE 709 ,K0: COLOR Kl:GOTO 10 1100 DATA 104,104,141,21,6,104,141,20, 6,104,141,27,6,104,141,26,6,160,193,17 5,255,255,136,240,35,141,255,255,238 1110 DATA 26,6,240,21,173,20,6.56,233, 40,141,20,6,144,4,24,76,19,6,206,21,6, 76,19,6,238,27,6,76,33,6,96 1120 DATA 104,201,4,240,9,170,240,5,10 4,104,202,208,251,96,104,133,215,104,1 33,214,104,104,168,104,133 1130 DATA 217,104,133,216,104,104,240, 236,133,212,24,165,214,101,88,133,214, 165 , 89 , 101 , 215 , 133 , 215 ,152 ,240 , 15 1140 DATA 165,214,105,64,133,214,165,2 15,105,1,133,215,136,208,241,132,221,1 60,0,132,220,177,216,160,0,170 1150 DATA 16,1,136,132,213,138,41,96,2 08,4,169,64,16,14,201,32,208,4,169,0,1 6,6,201,64,208,2 1160 DATA 169,32,133,218,138,41,31,5,2 18,133,218,169,0,162,3,6,218,42,202,20 8,250,109,244,2,133,219 1170 DATA 164,221,177,218,69,213,164,2 20,145,214,200,132,220,196,212,208,182 ,24,165,214,105,40,133,214,144,2 1180 DATA 230,215,230,221,169,8,197,22 1,208,159,96,207,96 CHECKSUM DATA. (see page 34) DATA 406,678,112,865,723,946,48,418, 131,441,537,255,624,615,600,7407 38 DATA 852,859,711,940,70,440,125,435 , 531 , 272 , 646 , 700 , 318 , 630 , 774 , 8303 105 DATA 783,959,524,78,800,584,562,21 7, 506, 510, 263, 61/2, 164, 702, 650, 7994 304 DATA 801,518,565,687,912,176,213,5 63 , 772 , 680 , 159 , 434 , 840 , 363 , 675 , 8358 426 DATA 679,469,621,293,833,939,67,31 3,747,393,748,947,93,108,673,7923 1000 DATA 41,185,534,222,99,788,260,96 5,349,943,12,930,164,979,778,7249 1022 DATA 537,928,941,166,248,771,187, 35 , 997 , 841 , 910 , 266 , 426 , 553 , 639 , 8445 1120 DATA 342,204,918,307,85,956,100,2 912 PAGE 52 / MAY 1985 ANALOG COMPUTING ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■I ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■I I I IB ir " i »- J "I «' i ' ir i II iMBMi Jb.rfft-k-^ft^^k^^fl^.4LJ.JbJBBBBBI IBBBBBBBBBBBaBBaBBBBHBaBBBBBBaBBBBBBBI laflaaaa' _f' if i i r r w w . i jbi laaaaai. "^t a i "ii m ' ir a w ' j ~~ibi iBBaaaaBBBr' a ^ aBr ii j 9 m i k i ~ib /ISBV'S CARRIES A FULL SELECTION OF SOFTWARE FOR YOUR ATARI. CALL FOR CURRENT PRICES. Abby's Best Sellers Atariwriter $35 Microsoft Basic II $45 Syncalc $45 Syntrend $45 Synfile + $45 Atari Logo $65 Assembler-Editor $25 Hitchhiker's Guide $29 F-15 Strike Eagle $27 Zork I, II, III $29 Bank Street Music Writer $45 Ultima II $39 Ultima III $42 Computer SAT (Harcourt) $60 Flight Simulator II $39 Summer Games $29 Spy Hunter $35 Bruce Lee $25 Cutthroats $35 Enchanter $35 Sorcerer $35 War in Russia $54 Broadsides $28 One On One $29 Seven Cities $29 Movie Maker $37 DISK SPECIALS Elephant SSDD (box of 10) $13.50 Elephant DSDD (box of 10) $18.00 Wabash SSDD (box of 1 0) $1 3.00 Maxell MD2 (box of 10) $24.00 - AHMOUNCIHG - the new Atari product lines from Abby's ATARI XE FAMILY OF PERSONAL COMPUTERS 65 XE Personal Computer $99 65 XEM Personal Computer $129 „~Z : .; (Includes eight '7 , voice synthesizer) 130 XE Personal Computer $199 (Includes twice the RAM as the 65XE) XE SERIES PERIPHERALS XTM 201 Printer $99 (Non-Impact Dot Matrix; 20 CPS) XDM 121 Printer $300 (Daisy Wheel Letter Quality; 12 CPS) XC 141 Monitor $150 (14" Composite Color) XM 148 Monitor $80 (12" Monochrome, 80 column, low resolution) XM 301 Modem $49 (300 faud, direct connect) ATARI ST FAMILY OF PERSONAL COMPUTERS 130 ST Personal Computer $399 256 ST Personal Computer $499 p 520 ST Personal Computer $599 '"' ST 504 Printer $150 (Color Dot Matrix, Non- Impact, 50 CPS) SF 324 Disk Drive $99 iS'A" Floppy Disk; 250K) .$400 ST SERIES PERIPHERALS SH 317 Disk Drive, (3'/2" Hard Disk; 10 MB) SM 124 Monitor $125 (12" Monochrome, high resolution) SF 354 Disk Drive $1 50 SC 1 224 Monitor $200 (Sy?" Floppy Disk; 500K) (12" RGB color) HARDWARE *Atari 1 050 Disk Drive $1 65 *Atari 1 025 Printer $1 85 *Atari 1 027 Printer $259 * Atari 1010 Program Recorder . . . : $ 45 ("Can be used with new XE Series) Atari 1 020 Printer/Plotter $ 50 SOFTWARE New Titles For 800XL and 65XE series Millipede $20 Moon Patrol $20 Atari Lab $55 Light Module $39 CALL TOLL FREE Order Line 1-800-282-0333 M-F 10 a.m.-7 p.m.; Sat. 10-3 EST Customer Service 1-513-879-9699 37 South Broad Street, Fairborn, OH. 45324 Prepaid orders over $50 receive free shipping, UPS, continental US. No waiting period when paid by credit card, cer- tified check or money order. Add $2 shipping and handling on orders under $50. Add $5 for COD orders. Hardware requires additional freight charges. Ohio residents add 5.5% sales tax. ALL PRODUCTS SUBJECT TO AVAILABILITY. ALL PRICES SUBJECT TO CHANGE. PLEASE CITE AD NUMBER WHEN ORDERING. AD #AL-55 ! CIRCLE #114 ON READER SERVICE CARD I AD ML-55 REVIEW us DOUBLER (CD, INC. 828 Green Meadow Avenue Rockford, IL 61107 $69.95 by Russell Haupert When I purchased a disk drive for my computer system, there were several im- portant considerations — price, features and reliability. Though several alterna- tives to the Atari 1050 disk drive were in existence, the final factor in my deci- sion was reliabihty. It was a trade-off, but I'd heard too many tales of trouble with the other drives. I've aWays had Atari equipment, and I've never had a single repair call. Safe in the knowledge that, if some- thing did go wrong, I could bring it right down the block for service, I plunked down the cash and carried it away. This was my second drive; the joy of freedom from disk swaps overshadowed all else. But, after a time, the joy of it all be- gan to fade, and jealousy crept into my heart. You see, there are several friends who threw caution to the wind and got one of those other drives. You know, the double density ones. Oh, I hid my jeal- ousy, but I had thoughts of selling that 1050 and picking up a real drive. As fate would have it, another road opened up. While looking through an is- sue of ANALOG Computing, I saw an ad for the US Doubler. It promised the ability to write in any format — single, one-and-a-half, or true double density ... for about $69. I grabbed the phone and ordered one on the spot. A few days later, I received a package. The promise of greater storage in my hand, I set to work. Opening the package reveals two re- placement ICs, two manuals and a disk. Though I didn't know it when I ordered the Doubler, it comes with a free copy of SpartaDOS, which — among other things — allows the 1050 to read and write three times faster (when using a drive enhanced with US Doubler). The DOS is very rich in features and great pleasure to use. In fact, a separate review would be necessary to cover it in the depth it deserves. The manuals are very clear, giving step-by-step direc- tions for the entire installation. At each point, the manual tells you what you should see — and exactly what to do. I have a bit of experience with kit as- sembly, which may have helped. But, if you give yourself a large work space and keep track of all your parts, there will be no problem. If the idea of taking a screwdriver to your drive makes you weak in the knees, ICD will install the chips for only $15.00, including UPS ground shipping one way. I usually glance at the manual and tear right into such a project, but that technique has, more than once, caused me heartache. I needed someone to keep me following the directions. For this rea- son, I enlisted the aid of my brother (a man with years of experience in telling me what to do). With his help, the in- stallation took only thirty-five minutes, from removal of the first screw to power- ing up for the test. In tests, the UltraSpeed I/O worked as stated, with the increase in speed quite noticeable. Load and save times of a 100-sector file were cut to nearly a third of the unmodified drive. The old bleep-bleep-bleep of POKEY is replaced by a staccato rush that sounds more like machine gun fire. Far from annoying, this sound brought a smile to my face, as well as to the faces of my friends. I've tested the US Doubler in all three formats and am happy to report that it performs as promised. Single density and Atari double density work as they did before. Most importantly, using the true double density afforded by this en- hancement, I've attained compatibility with my friends' disks, as well as reduc- ing my disk count by half. With the new low prices of the Atari 1050, and the addition of this product, an Atari owner can now enjoy true dou- The old hleep- hleep-hleep of POKEY is replaced by a staccato rush that sounds more like machine gun fire. ble density operation at a price lower than the double density drives now on the market. For those of you who've al- ready bought a 1050, this new ICD en- hancement will upgrade your drive to match the current crop of liigh tech, high storage drives. D PAGE 54 / MAY 1985 ANALOG COMPUTING From the editors of A.N.A.L.O.G. Computing FI^FILDG COMPENDIUM The best ATARI® Home Computer Programs from the first ten issues of A.N.A.L.O.G. Computing Magazine. S^P p//M////////l(llilllllltlllil\U^^^^ H fsimm^ m^^^ ^^^^V ^Ay ^::^^^^^ ,-,. ,^i m .0,, .»«„ .It,, ..*,, i*^, iii#w, n*^ fii*^ fin^ n . >K. <, .0,. ,,r^, ^^^ ^^^^ ^ ^^ ,jj^^ ».,. .**„ .0., .V,, .^^j y^,, ^,^ ^», ^ The ANALOG Compendium is available at selected book and computer stores, or you can order it direct. Send a check or money order for $14.95 + $2 shipping and handling to: ANALOG Compendium, P. O. Box 615, Holmes, PA 19043 Or you can order by phone with MasterCard or VISA. Call toll free 1-800-345-8112 (in PA, call 1-800-662-2444). For orders outside the U.S., add an additional $5 air mail, $2 surface. 16K Cassette or 24K Disk GAME ^^ by Mark Price Unnaturally heavy rainfall has caused a landslide in the area of Boulder, Colorado. The debris has cre- ated an effective earth dam, which is keeping the water from the storm from flowing away. . .thereby threatening to flood the town. Boulder has hired your demolition company to clear away the rubble. Because of the unsure footing on the pile, it has been decided to clear away the rocks with bombs dropped from aircraft flying above. Typing it in. Before typing anything, look at the listings accom- panying this article. Listing 1 is the BASIC data and data checking routine. This listing is used to create both cas- sette and disk versions of Boulder Bombers. The data statements are listed in hexadecimal (base 16) , so that the program will fit in 16K cassette systems. Listing 2 is die assembly language source code for the game of Boulder Bombers, created w^ith the OSS MAC/65 assembler. You don't have to type this listing to play the game! It is included for readers interested in assembly language. PAGE 56 / MAY 1985 ANALOG COMPUTING Boulder Bombers Follow the instructions below to make either a cas- sette or disk version of Boulder Bombers. Cassette instructions. 1. Type Listing 1 into your computer using the BASIC cartridge and verify your typing with Unicheck (see page 34). 2. Type RUN and press RETURN. The pro- gram will begin and ask: MAKE CASSETTE €8} OR DISK CIJ? Type and press RETURN. The program will begin checking the DATA statements, printing the line number of each as it goes. It will alert you if it finds any problems. Fix any incorrect lines and re-RUN the program, if necessary, until all errors are eliminated. 3. When all of your DATA lines are correct, the computer will beep twice and prompt you to READY CASSETTE AND PRESS RETURN. Now, insert a blank cassette in your recorder, press the RECORD and PLAY buttons simultane- ously and hit RETURN. The message WRITING FILE will appear, and the program will create a machine language boot tape version of Boul- der Bombers, printing each DATA line number as it goes. When the READY prompt appears, the game is recorded and ready to play. CSAVE the BASIC program onto a separate tape before con- tinuing. 4. To play, rewind the tape created by the BA- SIC program to the beginning. Turn your com- puter OFF and remove all cartridges. Press the PLAY button on your recorder and turn ON youi- computer while holding down the START key. If you have a 600 or 800XL computer, you must hold the START and OPTION keys when you turn on the power. The computer will "beep" once. Hit the RETURN key, and Boulder Bom- bers will load and run automatically. Disk instructions. 1. Type Listing 1 into your computer, using the BASIC cartridge and verify your typing with Unicheck (see page 34). 2. Type RUN and press RETURN. The pro- gram will ask: HAKE CASSETTE CO) OR DISK CI}? Type 1 and press RETURN. The program will begin checking the DATA lines, printing the line (continued on page 59) ANALOG COMPUTING MAY 1985 /PAGE 57 Since issue 1, ANALOG Computing's cassette and disk subscriptions have eliminated the :need for you to spend' hours typing in; programs from- the magasne. All of the progranis ih thil magazine are and idisk versions. on the " 1 -year (12 issued) oil cassette. $90.b0, disk, $130.00 :V2 year (6 issues) cassette, $48.00, disk, $72.00^ b subscribe onjcasfeette or disk, send your|Check or mone^ order to: i | f" i t" ] ] 'j I ~ "' CASSEJTT^ SUBSCRIPTlbN or bisk SUBSCI^IPtlON- ! I RO. BOX 615, HOLMES, m 19043. I For faster service, dall i^ur jtoll ^800-345-8112 (in Pennsylvania reel U.S. order linq: Tcall 800-662-2444)- THE #1 MAGAZINE FOR ATARI" COMPUTER OWNERS C^EMC^k.DC3 [COMPUTING] BQX 615, HOLMES, P^NNSYIAAnU 19043 800-345^ (IN PENNSYLVANIA, 800-662-2444) 30> :8112 ^ Boulder Bombers cojTtinued number of each statement as it goes. It will alert you if it finds any problems. Fix incorrect lines and re-RUN the program, if necessary, until all errors are eliminated. 3. When all the DATA lines are correct, you will be prompted to INSERT DISK WITH DOS, PRESS RETL7RN. Put a disk containing DOS 2. OS into drive #1 and press RETURN. The mes- sage WRITING FILE will appear, and the pro- gram will create an AUTORUN.SYS file on the disk, displaying each DATA line number as it goes. When the READY prompt appears, the game is ready to play. Be sure the BASIC pro- gram is SAVEd before continuing. 4. To play the game, insert the disk contain- ing the AUTORUN.SYS file into drive #1. Turn your computer OFF, remove all cartridges and turn the computer back ON. Boulder Bombers will load and run automatically. Playing Boulder Bombers. Boulder Bombers is a cooperative/competitive game for one or two players. The number of players is chosen using the SELECT key. Boulder Bombers. You start the game in a hot air balloon, flying high above the rock-filled canyon. Bombs are dropped by pressing the joystick trigger buttons. When half of the rocks are gone, you will automatically switch to quicker planes. When the entire canyon is cleared of rocks, you advance to the next level, where every- thing goes faster. At the start of Boulder Bombers, you are allotted three bombs, shown next to your score at the bot- tom of the screen. You are penalized bombs when- ever you make a miss or fail to attempt a drop on a pass over the canyon. Extra bombs are awarded at 1000, 3000, 5000, 7000 and, finally, at 9000 points. Up to three bombs will be shown on the screen at a time, but extras earned will be kept in reserve. When you miss with your last bomb, the game ends. The worth of rocks cleared varies, depending upon their original depth: red-2, yellow-4, blue-6. Boulder Bombers may be paused by hitting the space bar. Play is resumed by moving either joystick. Commence earth-moving operations! D At twenty-one, Mark Price has been working with computers for five years. He currently attends college in Southern California, where he is working on a de- gree in computer science. A member o/S.B.A.C.E. , his interests include programming, speech synthesis and graphics development. Listing 1. BASIC listine. 10 REM *** BOULDER BOMBERS *** 29 TRAP 20;? "HAKE CASSETTE tOJ , OR DI SK (1>";:IHPUT D5K:IF DSK>1 THEN 20 30 TRAP 4080e:DATA 0,1,2,3,4,5,6,7,8,9 ,0,0,0,0,0,0,0,18,11,12,13,14,15 40 DIM DATSC91) ,HEK(22) :FOR H=8 TO 22: READ N:HEK{X)=H:MEKT K : LIME=998 iRESTOR E 10e8:TRAP 128:? "CHECKIM6 DATA" 50 LIHE=LINE+10:? "LIHE :";LIHE :READ DA T$:IF LEHtDAT5)<>90 THEN 220 60 DATLIN=PEEK(183J+PEEK<184)«256:IF D ATLINOLINE then ? "LINE ";LINE;" MISS ING!":END 70 FOR K=l TO 89 STEP 2 :D1=ASC (DATS fX, XJ ) -48 : D2=ASC CDATS iH*l , X+1) } -48 : BYTE=H EX(Dl}«16+HEXtD2> 80 IF PASS=2 THEN PUT ttl, BYTE : NEXT X:R EAD CHKSUM:GOTO 50 90 TOTAL=TOTAL+BVTE:IF T0TAL>999 THEN T0TAL=T0TAL-1000 180 NEXT X:READ CHKSUM:IF TOTAL=CHKSUM THEN 50 110 GOTO 220 120 IF PEEK 1195} <>6 THEN 220 130 IF PASS=8 THEN 170 140 IF NOT DSK THEN 168 158 PUT ttl, 224: PUT ttl, 2: PUT ttl, 225: PUT ttl, 2: PUT ttl, 0: PUT ttl, 32: CLOSE ttl: END 160 FOR X=l TO 184:PUT ttl,0:NEXT X:CLO SE ttl: END 170 IF NOT DSK THEN 200 188 ? "INSERT DISK WITH DOS, PRESS RET URN";:D1M IN$tl}:INPUT IN$:OPEN ttl,8,Q ,"D! AUTORUN.SYS" 190 PUT ttl,255:PUT ttl,255:PUT ttl,0:PUT ttl, 32: PUT ttl, 111: PUT ttl, 48: GOTO 210 200 ? "READY CASSETTE AND PRESS RETURN ";:OPEN ttl,8,128,"C:":REST0RE 23e:F0R X=l TO 48: READ N:PUT ttl, N: NEXT X 210 ? :? "NRITING FILE":PASS=2:LINE=99 e:RESTORE ieOO:TRAP 12e:G0T0 58 228 ? "BAD DATA: LINE ";LINE:END (Listing continued on next page] ANALOG COMPUTING MAY 1985 / PAGE 59 ^^ Boulder Bombers continued 230 OATA 0,18,216,31,255,31,163,0,141, 47,2,165,60,141,2,211,169,0,141,231,2, 133 , 14 , 169 , 56 , 141 , 232 , 2 240 DATA 133,15,163,0,133,10,169,32,13 3,11,24,36 1000 DATA A26FBDFC273Dee2CCAieF7A3008D eED4A3348D16D0A32S8Dl?D0A3848D18D0A3C4 8D19D0A30e8DlAD0A2033DeS,415 1010 DATA D0CA10FAA3288D12D0A3848D13De A9C88D14D0A3C88D15D0A3308D07D4A33E8D00 D4A9e38DlDD0A070B300E093, 358 1020 DATA ee2CC8D0F7B30eE133002DC8D0F7 A32C8De3D4A900A0223312008810FAA02733FC 298810FA204B25A3008D08D2 , 550 1030 DATA A3038D0FD2A338852DA348852EA3 2C852BA3CC852CA3008DOOD48D05D285158D07 022e7925A9AE8D02D4A3258D,475 1040 DATA 03D4A3FF8513A30185148513A300 8518A33E8De0D4A3038512ADlFD02303C301D0 15ADlFDe23e2F0F3A51A4301 , 76 1058 DATA 851A1863118D2326D0e4C3e2F015 A518D0eBADeAD22301AABDAC258517201D244C CD2eADlFDe29eiFeF3A9e385 , 502 1060 DATA 13A90085138D00D4A2023D53263D 6326CA10F7A9108D5C268D6e26A202A9CD9D5E 269D6826CA10F7A9e3852985,215 1070 DATA 2AA91185278528A51A0AeA0AA2e7 A8B99A259D4F26C8CA10F6A9D18D02D4A9258D e3D4A93E8D00D4204B25A903 , 855 1080 DATA 8517S512A90185148532A92A8531 2e7925A90085188D06D2A92C852BA9CC852C8D lE0eA908851BA513C9AFF0e5,394 1090 DATA 38E9048513A201B51FD0e34C3423 BD06DOD0034CE7222907D0034CBD22A9e08534 B51F38E96729F885330633e6,595 1100 DATA 3326341S653385339002E634B52B 38E92F4A4A18653385339002E6341869FC8533 A53469298534A000B133F004 , 765 1110 DATA C9049e22C8B133F004C9e49019A0 28B133F004C9049e0FC8B133D0034CE722C9Q4 9e034CE7220A8516A9009133,433 1120 DATA A53138E9018531B002C632A9FE85 15BCAA25A51618795926995926A9038516B959 26F023C91A901A38E90A9959, 108 1130 DATA 2e88C6ie3014B95926D002A91018 6901995926D0DDC8E616D0D8A9598533A92685 348AF00BA9eA186533853390, 898 1140 DATA 02E634A000B133D93A2eF004B009 9011C8C004D0F0F00AA003B133993A268810F8 BCAA25B95626D527D014F629, 78 use DATA B529C904B00A187DAA25A8A9CD99 5A26F627F62FB52FC51BD02A8A18e9368534B5 1F8533A005A90031338810FB , 985 1160 DATA 8AeAA8A9009900D29901D2951FB5 2FD04D2e62254C2E238A1869368534B51F8533 A900Ae0591338810FBF625B5, 513 1170 DATA 254A4A4A4AS51618751FC9C4B0C5 951FS533A005B9602C91338810F88A0AA8A516 WHITE HOUSE COMPUTER We carry a full line for the Atari, Apple & C-64. VISA & MC Accepted 4% P.O. Box 4025, Wllliamsport, PA 17701 - (71 7) 322-7700 HOURS: Monday - Friday 9 am - 6:00 pm / Saturday - 9:00 am - 3:00 pm ^^^^^^ i DISK DRIVES gj Atari || Indus GT 259.00 M 1050 169.95 g Commodore p Indus GT 255.00 1; 1541 235.00 il MSD Drives 11 Single MSD 1 309.00 1:; Dual MSD 2 485.00 II Blue Chip Hi: 100% Compatible 11 C-64 Disk Drive W. Double Density 225.00 i DISKETTES i SKC ilSS/SD 11.95 iisS/DD 14.95 ;;|dS/DD 16.95 II Maxell iJMD-l 18.95 ;^MD-2 23.95 ^Elephant i|SS/SD 14.95 ■^SS/DD 16.95 ||dS/DD 21.95 si^nnovative II Concepts pFlip-N-File (10) 3.95 :^FIip-N-File (15) 8.95 H Flip-N-File (25) 1 8.95 i^lH w/lock ^Flip-N-File .. ^Flip-N-File .. 11 w/lock JgFlip-N-File 17.95 !•■ ROM Holder Ask About Phone Rebates! .(50) 17.95 .(50) 23.95 Koala Atari S C-64 Koala Pads 49.95 WICO Bat Handler Joy stick. .. . 1 6.95 3-Way Deluxe 21.95 Boss 13.95 SOFTWARE 1010 Recorders 45.00 Atari Key Pads 29.00 Atari Writer 39.95 Batteries Included Paper Clip w/Spell PK . . . 69.96 Paperclip 59.00 Home Pack 32.95 Bus Card 137.95 Bl 80 Board 137.95 Broderbund Atari Print Stiop 31.95 Bank Street Writer 39.95 Spelunker 21.95 Stealtti 21.95 Loderunner 22.95 C-64 Print Shop 31.95 Bank Street Writer 37.95 Spelunker 21.75 Steallti 21.75 Loderunner 22.95 INTERFACES MPP 1150 64.95 Uprint N Port 59.00 Apple Dumpling GX.... 65.00 MPP 1152 Buffer Kit 19.95 Atari 850 115.95 Cardco B 35.95 Cardco G 59.95 Micro Stutter 64K Printer Buffer 105.00 PRINTERS Star Micronics 10X 225.00 15X 340.00 Delta 10X 335.00 Delta 15 445.00 Radix 10 495.00 Radix 15 585.00 Powertype 309. (X) Legend 880 220.00 1080 240.00 1200 250.00 Atari 1020 59.(X) 1025 189.00 1027 239.00 Commodore 1526 259.00 Juki 61 OO 379.00 Blue Chip P«12010C-64 259.00 Epson Printer RX 80 219.00 RX 80FT 259.00 RX 100 369. (X) FX 80 385.00 FX 100 555.00 JX 80 529.00 LQ 1500 P 1089.00 LO 1500S 1149.00 Cardco Printer LQ-1 ■ 379.00 LQ-3 289.00 (with Atari/Commodore Interface) DUST COVERS PRINTER RIBBONS PRINTING PAPER C. Itoh Printers 8510 A 285.00 8510 BC2 389.00 8510 BP1 339.00 8510 SP 389.00 8510 SR 429.00 8510 SCP 459.00 8510SCR 489.00 1550 BCD 529.00 1550 P 485.00 A10-20P 465.00 F10-40 P/S 875.00 F10-55 P/S 1059.00 FIOTractor 169.00 Flo Sheet Feeder ....349.00 Okidata Printer 1-82 229.00 83 545.00 84 645.00 92 349.00 93 565.00 Image Writer 425.00 Oklmate 10 179.00 Mannseman Tally Spirit 80 249.00 MT 160L 495.00 Mt 180L 595.00 Panasonic 1090 199.00 1091 265.00 1092 399.00 1093 599.00 3151 475.(50 MODEMS MPP1000C 99.74 Mighty Mo w/Software 79.95 Telecommunications ... 69.95 Weslrldge 79.95 Hayes 300 199 00 Hayes 1200 469.00 Apple Cat II 265.00 CompuServe 24.95 MONITORS Zenith 122 85.95 123 75.95 NEC 1201 Green 139.95 1205 Amber 139.95 1260 Green 97.00 Amdek 300 Green 135.00 300 Amber 145.00 Color 300 250.00 Teknika MJ-10 Composit 4 Separate Video 235.00 MJ-22 RGG Composite « Separate Video 289.00 Dealers Inquiries Invited POLICY: Nodeposil on COD orders. FREE freight on all pre- paid cash orders over $300 in the continental USA. APO & FPO add $5 per hundred. For priority mail add $8 per hundred. PA residents add 6% sales tax. Defective products must have Prior RA number. Schools net 15. CIRCLE #115 ON READER SERVICE CARD PAGE 60 / MAY 1985 ANALOG COMPUTING ^ Boulder Bombers continued 1875239523390002ftSft838E5 , 241 1180 DATA ie9981D2CA30424C9C21B52?FeF6 8A18E51ADeiBA5143e08B52BC9449eE6B886B5 2BC9B8BeDEAD0AD2298FFe87, 561 1198 DATA D8D5BD18DeD8D8B52D18e988951F A9e09525952FF621A9329523D8BB8DlED82eiD 24A515Fei2C615C61549F08D,794 1280 DATA 84D24A4A4A4A498F8D85D2AD1FD8 C987F8834C9428A531De87A532D8e34C6321AD FC82C921DeiAA9808D81D28D , 615 1210 DATA 83D28D85D2AD88D3C9FFFeF9A9FF 8DFCe28DF282A51229eFF0e34C9A21A927851D A988851EA96418651D8533A9, 948 1220 DATA 2B69ee8534A00eB133F81EAAAe28 B133D0178A9133A880989133A53338E9288533 Bee2Ce34C61E38eFA53338E9,5e3 1230 DATA 288533Be02C634C61E10CDC61D10 B84C9A21A518De35A517C9e3F08CA99e8D06D2 A9248D87D2D023A9008D86D2 , 456 1248 DATA A9028D07D2A201B52D85338A1869 348534A08FB9502C91338818F8CA10E9E612A5 122517D061A52B186514852B, 918 1250 DATA 8D00D88De2D0A51449FE18652C85 2C8DeiD08De3DeAS17C981D83FA5122902Fe39 A514851CA2eiB52D85338A18, 443 1260 DATA 69348534A51229848A8516A51C29 iei8651686ieAAA008BD302C9133E8C8C088D0 F5A51C49FE851CA616CA10CD,915 1270 DATA A2eFA41388D0FDCAD0F8A9018518 A52BC92CF0e4C9CCD055A9e08De5D28D87D285 158518A2eiB51FFe07B52FDe, 504 1280 DATA 03206225B521D00320e225CAieEB 207925A61AA5291875296519F025A51449FE85 14Ae2DA42E862E842DA98385,640 1290 DATA 12A532De0EA531C995B008A98185 17A904851Be06868A9088516A2FFA0FFADlFD0 C907D08A88DOF6CflDOFlC616 , 269 1300 DATA 10EB4C9420A000B96C2699242AC8 D0F7A091B96B2799232B88D0F760B529F012D6 29B529C903B00A187DAA25A8,578 1310 DATA A900995B2ee0A900A89900349900 3599e03699003788D0F1851F8528852185228D 81D28D83D260B2A5B4B5B0AD,39e 1320 DATA AFA3928eB2A5B9AlACB003eD0103 707070462F2670707070707070787044242A04 04e4e404e404040447F32586 , 97 1330 DATA 0641AE2570787070707070707070 70707044242A04040404040404e404462F2670 06e641D1258080E2EFF5ECE4,37 1340 DATA E5F28O8OE2EFEDE2E5F2F38O80OO 80806279000060617268007072696365000000 00e0000e00302C2139253233,159 1350 DATA iAooiioeoooooeoeoeoooooe8e28 292728iAeoeooeeoioeoeeoeoeoooo302C2i39 253200110000000000000000,690 1360 DATA oooooeoeoooooooooooooooeeoeo ooooeeeooooooooeoooooieioieioioioioiei eieioioioioioioioioieioi , 711 1370 DATA 0101010101010101010101010101 81810101018581010101810101010101010101 010181818101010101010101,888 1380 DATA 8181818181010101010101010185 84858181010101010101010101010101010101 018101010101010101010101 , 328 1390 DATA 0101010101010184858485820202 02820202020202020202020202020202020202 020202020202020202020202 , 933 1400 DATA 0202848584848582020202020202 02020202020202020202020202020202020202 020202020202020284848584,196 1410 DATA 8485020202020202020202020202 02828202020202020202020202020202020202 020202848485848484850303 , 461 1420 DATA 0303030303038583838383030303 03830303030303850303030303030303848484 858484848503030303030303 , 890 1430 DATA 8484858385030303030303030385 03848485030303030303038484848584848484 850303030303848484848484,998 1440 DATA 8503030303030384848484848485 03030303038484848485848484848485030303 848484848484848485030303 , 750 1450 DATA 0384848484848484848583030384 84848484850000000000000000545454545454 54e0A8ASA8A8A8A8A800FCFC,12 1460 DATA FCFCFCFCFCOOFFFFFFFFFFFFFFFF FCFCFCFCFCFCFCFC000001033FD3FE80000001 83BFD37E00000080CeFCCB7F , 550 1470 DATA 010e0088ClFDCB7E003C7EFF00FF FF7E3ClS24241818000000Ae40E0E0E0400000 6C7C387C7C7C38100000e000,427 CHECKSUM DATA. (see page 34] 10 DATA 883,351,496,811,423,729,200,60 ?i§^Si5I3 , 694 , 613 , 29 , 205 , 214 , 7379 160 DATA 139,198,962,684,491,30,155,11 ?AiS^A52£*'+^22, 931, 966, 720, 6412 1060 DATA 930, 958, 707,642,514,568, 751, 664 , 875 , 889 , 595 , 735 , 987, 895 , 757 , 11507 1210 DATA 972,571,686,533,643,718,955, 594 , 963 , 842 , 528 , 467 , 416, 252 , 546 , 9678 1360 DATA 345,458,484,572,680,693,794, 42,94,468,801,605,6036 RENT Jf^ BUY ATARI' IBM Hint Book Apple - C-64 o---— -.- 75 Adventures Software $19.95 PUBLIC DOMAIN ADVENTURES No. 1 - 25 Games Mission Asteroid No. 2-25 Utilities Wizard and the Princess No. 3 — 25 Music System Ulysses and the Golden Fleece No. 4 — 14 Games Adventure on a Boat No, 5 — 25 Educational Probe I No. 6 — 25 Music Program The Black Forest No. 7 — 14 More Games Warlocks Revenge No. 8-17 More Utilities Dark Crystal No. 9 — Lotsa Games Dunzhin No. — Utility Assortment Kaiv Ziggurat Birth of the Phoenix Rent any 2 for S7.00 Adventure in Time After Pearl Rent all 10 for $30.00 Around the World Call toll-free outside Texas: 1-800-433-2938 - Inside Texas call: 817-292-7396 ^^^ -^ WEDGWOOD RENTAL r^ QB 5316 Woodway Drive \jM yb Fort Worth, Texas 76133 ^ CIRCLE #116 ON READER SERVICE CARD ANALOG COMPUTING MAY 1985 /PAGE 61 ^ Boulder Bombers coTitinued Assembly listing. i» » !• -BOULDER BOMBERS' » l» bv » l» Mark f'rlca * l» »••»« I ZERD-PflBE VftRIflBLES 1 »■ *12 CLOCK .OS OELYVAL .D3 DIR .DS EXPLODE .D8 HOLD IT .DS nnsK .Da ONSCR .03 PLAY .DS PLAYERS .DS RKILL .D3 TDIR .DS XCOUNT .DS YCQUNT .DS BMBDRP .DB 2 BRUN .08 2 DRPFREQ .DS 2 DRPRftTE . DS 2 FREHEN .03 2 BOMBS .DS 2 PLYRX .DS 2 PLYRY .03 2 RCKHIT .08 2 ROCKS .03 2 SCRPTR .03 2 t KEYBOARD VARIABLES 1 CH »«2FC CHt »a2F2 PMAREA • 3000 PL» PMAREA+1B24 PLl PL0+236 PL2 PLl+23i PL.3 PL2+236 ROMCH • E000 I ROM CHR BET CHARS *2C00 I MY CHR SET 1 SYSTEM EQUATES AUDCTL »D20a AUDCl *D201 AUDC2 *D203 AUDC3 • D203 AUDC4 »D207 AUDFl *D200 AUDF3 *O204 AUDFl »D2B6 CHBASE »O409 COLBAK • O01A CQLPFB *D016 COLPFl *O017 COLPFZ *D018 C0LPF3 »D019 COLPMB »D012 COLPMl • 0013 COLPMZ • 0014 COLPMS • 0013 CDNSDL • O01F DLIST • 0402 DMACTL • 0400 SDMCTL • 022F BRACTL • 0010 HITCLR • D01E HPOSP0 • D000 HPOBPl • 0001 HP03P2 • DB0Z HPDSP3 • 0003 NMIEN • D40E PL2PF • 000^1 PMBASE • 0407 PORTA • D300 RANDOM • D20n alZEP0 • D008 SKCTL • D20F iRiae • 0010 1 »a • 2000 INIT LDX »111 ICOPY MY CHA MYCHRS LDA MYCHAR3 X STfl CHARS, X D6X BPL MYCHRS LDA »0 (DISABLE VBI ETA NMIEN LDA • •34 I3ET COLORS ETA COLPF0 LDA • •28 3TA COLPFl LDA • •84 STA C0LPF2 LDA • *C4 STA C0LPF3 LDA • STA COLBAK LDX • 3 ) INIT PLAYER STUIDTH STA 8IZEP«,X DEX BPL STWIDTH LDA • •28 STA COLPM0 LDA «»B4 3TA COLPMl LDA »«C8 STA C0LPM2 LDA • •C8 STA C0LPM3 LDA • >PMAREA STA PMBASE LDA • •3E STA DMACTL LDA • 3 STA BRACTL LOY • 112 1 INIT CHR SET SETCHl LDA ROMCH, Y STA CHARS, Y INY BNE SETCHl SETCH2 LDA R0MCH+Z3t, Y STA CHAR3+236.Y INY BNE SETCH2 LDA tt >CHAR3 STA CHBASE LDA • 1 INIT VARB LOY •SCRPTR+1-CLOCK ZEROVAR STA OEY CLOCK, Y BPL ZEROVAR LOY • •27 ISET SCREEN DISP CLRTOP STA OEY CANYON, Y BPL CLRTOP J3R 3ET3CRN LDA • 1 INIT SOUND STA AUDCTL LDA • 3 STA SKCTL LDA • 36 ISET PLAYER STA PLYRY I LANES LDA • 72 STA PLYRY+1 RESTART LDA #44 ISET PLAYER STA PLYRX 1 START LDA • 204 1 POSITIONS STA PLYRX+1 LDA • tTURN OFF SCREEN BTA OMACTL STA AUDC3 1 EXPLOSIONS, STA EXPLODE STA AUDC4 1 AND BK8 SOUND JSR PMCLR (CLEAR PLAYERS LOA » <OLIBT 1 ISET TITLE STA OLIST 1 SCREEN LDA • >OLIBT 1 BTA OLIST+1 LDA »»FF ISET SAME SPEED STA OELYVAL 1 FOR TITLES LOA • 1 S3ET START OIR STA OIR STA PLAY ISET PLAY FALSE LDA • 1 PLAYERS NOT BTA ONSCR 1 ON SCREEN LDA »*3E ITURN SCREEN STA DMACTL 1 BACK ON LDA • 3 1 INIT CLOCK STA CLOCK BTCNBL LDA OQNSOL 1 CHECK CONSOL AND •3 1 8WITCHE3 CMP • 1 [SELECT PRESSED? BNE CHKSTRT I NO, TRY START SELECT LDA CONSOL 1 YES, WAIT FOR AND • 2 1 KEY RELEASE BEQ SELECT LDA PLAYERS ICHANBE • OF EOR • 1 1 PLAYERS STA PLAYERS CLC ADC • »11 1 & SET ON SCREE STA SCNOPLR BNE MOVET 1 (MOVE PLAYERS) CHKSTRT CMP • 2 IIF START THEN BEQ START I START BAME MOVET LDA ONSCR 1 IF ON SCREEN, BNE MOVIT 1 THEN MOVE LDA RANDOM lELSE, PICK OUT AND • 1 1 NEW SHIP TYPE TAX LDA MASKS, X STA MASK » & SET IT MOVIT JSR MDVEPLR IMDVE PLAYERS .IMP QTCNSL IDO CHECK AQAIN START LDA CONSOL IMAIT FOR KEY AND • 1 1 RELEASE BEQ START LDA • 3 ISET BAME SPEED STA OELYVAL 1 TO •FF+»04 LOA »0 ISET PLAY TRUE STA PLAY STA DMACTL ITURN OFF SCREEN LDX • 2 ISET SCORES TO ZEROSCR STA SCOREl.X t ZERO STA 8C0RE2!x DEX BPL ZEROSCR LDA • •10 STA SCOREl+3 STA SC0RE2+3 LDX •2 ISET BOMBS LEFT LDA • •CD 1 TO THREE STBMBC STA B0MB1,X STA BOMBZ, X DEX BPL STBMBC LDA • 3 BTA BOMBS STA BOMBS+l LDA • *11 ISET NEXT FREE STA FREMEN 1 BOMB AT 1000 STA FREMEN+1 LDA PLAYERS ISET SECOND ASL A 1 PLAYER MESSAGE ASL A 1 TO -PLAYER 2- ASL A » OR -COMPUTER' LDX • 7 TAY 8TP2MS LDA P2C0MPT, Y STA P2MaB,X INY DEX BPL STP2MS LDA » <DLI8TZ ISET OLIST BTA DLIST I TO SAME LDA • >DLISTZ I SCREEN STA DLI3T+1 LDA ••3E ITURN ON SCREEN STA OMACTL I NEUSCRN JSR SETSCRN I SET CANYON LDA »Z STA MASK STA CLOCK LDA •! STA DIR STA ROCKS-H LDA ^42 STA ROCKS J3R PMCLR LDA »0 STA ONSCR BTA AUDF4 LDA ^44 STA PLYRX LOA ^204 STA PLYRX+1 STA HITCLR LOA »B STA RKILL ISET TYPE TO I BALLOON I AND BE8IN CLOCK lOIR - RIBHT I ROCKS IN I CANY0N-29e ■CLEAR PLAYERS ISET PLAYERS ON I SCREEN-FALSE tSET START I POSITIONS I OF PLAYERS ICLEAR HITS I CROCKS PER BOMB <MAX) "S LDA DELYVAL I SPEED UP THE CMP ••AF BEQ BMBLOOP SEC SBC ^4 3TA DELYVAL BAME JUST A BIT (UNLESS ALREADY AT MAX SPEED) I BOMB MOVEMONT, HIT CHECKS, I 3CQRE AND HIBHSCORE SET I BMBLOOP LDX •I | BET PLAYER INDEX BMBNLOP LOA BMBDRP, X IIF BOMB NOT BNE CHKHIT8 I DROPPED JMP CHKDRP I CHECK TRIB CHKHITS LOA PL2PF, X I BOMB HIT BNE CKHROK I ANYTHINB? JMP LWRBMB I NO, MOVE BOMB CKHROK AND •7 I IF HIT ONLY BNE BHITRK I COLOR 3, IT JMP KILLBMB I 8ETS ERAsED BHITRK LDA »0 ISET POINTER STA 3CRPTR-H I INTO SCREEN LDA BMBDRP, X I RAM WHERE THE SEC I ROCK HIT IS, SBC ^103 I 1ST, SET BOMB'S AND •»FB I Y-P08 TRANS- 3TA SCRPTR | LATED INTO ASL SCRPTR I ROW NUMBER A8L SCRPTR |AND MULTIPLY IT ROL SCRPTR+1 I BY 40 CLC ADC SCRPTR STA SCRPTR BCC BTP0 INC aCRPTR+1 nTPa LDA PLYRX, X I THEN, CHANGE "^" I X-POS INTO THE I COLUMN NUMBER I AND ADD IT ON ADD SCREEN 3EC SBC •47 LSR A LSR A CLC ADC BCRPTR STA SCRPTR BCC BTPA INC SCRPTR+1 CLC I ADC » <CANYON I START STA SCRPTR I ADDRESS LDA SCRPTR+1 ADC tt >CANYON STA SCRPTR+1 LOY •0 ICLEAR INDEX LOA (SCRPTR), Y I i. SET CHAR BED QTPl (if IT'S BLANK CMP ^4 I OR ABOVE 4 BCC GOTCHR I THIS ISN'T IT. INY I TRY ABAIN.ONE LDA (SCRPTR), Y I RIBHT BEQ BTP2 CMP »* BCC BOTCHR LOY ••28 I IF HE BTILL LDA (SCRPTR), Y I DON'T BET IT BEQ 8TP3 I TRY 1 DOWN CMP ^4 BCC BOTCHR INY I THEN, BOTH AT LDA (SCRPTR), Y ( ONCE BNE BCKRCK IIF BY THIS I TIME, WE DONT I HAVE IT, THEN I BIVE UP IHOLO SCORE- I CHAR » 2 I ERASE ROCK ON I SCREEN JMP LWRBHB CMP »4 BCC BOTCHR JMP LWRBMB ASL A STA HOLDIT LDA •» STA (SCRPTR) , LDA ROCKS 8EC SBC »l STA ROCKS BCa GOTl DEC ROCKS+1 LOA ••FE BTA EXPLODE I LOWER • OF I ROCKS LEFT ISTART EXPLOSION I SOUND I ADD ON TO SCORE I LOY SCRNDX,X ISET BASE INDEX LDA HOLDIT I TO SCORES, AND CLC I ADD TO SCORE ADC SCORE 1,Y BTA SCOREllY LDA #3 ISET DIBIT • FOR PAGE 62 / MAY 1985 ANALOG COMPUTING ^^ Boulder Bombers continued STA UOA BEQ CMP BCC SEC SBC STA DEY DEC BMI LDA BNE LDA CLC ADC STA BNE INY INC BNE HQLDIT BCOREl, CHKHI 8CUN0X #10 aCOREl HOLDIT CHKHI SCORE 1 SCBRK «*10 II BCOREl ADD3CR HOLDIT ADDSCR I ROLLOVER PROT. Y ID0NE7 I YES. CHECK HISH IDIBIT >1B7 I NO, BO RISHT I SUB 10 PROM I THIS DIQIT , Y IPOINT TO NEXT (ROLLOVER! LEAVE ,Y tSET DIBIT I IP BLANK, SET I TO ZERO I ADD 1 ,Y I AND SAVE IT ICHECK THIS DIQIT ISO RIGHT ONE I DIBIT CHECK POR HIBH SCORE CHKSCR CHECKSC LDA STA LDA STA TXA BEQ LDA CLC ADC STA BCC INC LDY LDA Clip BEQ BCS BCC INY CPY BNE BEQ • <aCORE 8CRPTR » >aCQRE SCRPTR+1 CHKSCR #10 SCRPTR SCRPTR CHKSCR BCRPTR+l #0 (SCRPTR* HISCOR.Y CKNXDQ 3THI8C CHKFRn #4 CHECKSC CHKFRM I SET POINTER 1 I TO SCORE FOR I PLAYER 1 I IF IT ISN'T I PLAYER 1. THEN I ADD TO BET ! POINTER FOR I PLAYER 2 I BEQ IN AT HI END , Y I COMPARE "EM I IF SAME, DO NEXT I IF PLAYER > SET I IF HIOH > SKIP IDD NEXT DIQIT I IF ALL DONE, I THEN IT'S THE I SAME, SKIP SET HIQH SCORE STHlaC LDY #3 1 COPY THE SETDIQT LDA (SCRPTR), Y I NEW HIQH STA HISCOR,Y ) SCORE INTO DEY I HtSCOR BPL SETDIST CHECK FOR BETTtNB EXTRA BOMBS UPDTFM I STRKHT ERABOMB KILBDMB LDY LDA CMP BNE INC LDA CMP BCS CLC ADC TAY LDA STA INC INC LDA CMP BNE TXA CLC ADC STA LDA STA LDY LDA STA DEY BPL TXA A8L TAY LDA STA STA STA LDA BNE J3R JMP aCRNDX,X 3C0RE1-3, FREMEN, X 3TRKHT I BOMBS, X I BOMBS, X I »* I UPDTFM I I aCRNDX,X • «CD I BOMBl-4, Y FREMEN, X lOET SCORE Y I IN THOUSANDB IIP NOT FREE BOMB YET, SKIP. ELSE, UP 60MBS BY I IF B0MBa>-4, KEEP IN RESERVE IF BOMBS LESS I THAN 4, THEN SET EXTRA ON SCREEN I3ET FOR NEXT I AND ERABE IT RCKHIT.X I IF NEW • OF RCKHIT,X I ROCKS HIT - RKILL I MAX, KILL BOMB LWRBMB I ELSE, LOWER IT I BET POINTER I TO BOMB » >PL2 SCRPTR+1 BMBDRP,X SCRPTR *S #0 (SCRPTR) , Y ERABOMB I TURN OFF SOUND A ( FOR THIS BOMB #0 AUDFl, Y AUDCl.Y BMBDRP,X 13ET FLAQ OFF RCKHITIX I IF IT DIDN'T DONXBMB I HIT ANYTHINB, LMRMISS I LOWER * BOMBS DONXBMB I <i DO NEXT ! LOWER I LWRBMB THE BOMBS TXA CLC ADC STA LDA STA LDA LDY STA DEY BPL INC LDA LSR LSR LSR LSR STA CLC ADC CMP Bca STA # >PL2 ISET POINTER TO SCRPTR+l I BOMB BMBDRP, X aCRPTR •0 (ERASE THE BOMB #3 (SCRPTR) , Y ERBMB DRPRATE.X (UP DROP SPEED DRPRATE. X (UPDATE POSITION A A A A HOLDIT BMBDRP, X #194 (OUT OF RANGE? KILBOMB I YES. KILL IT BMBDRP. X (ELSE, BET I CHECK ( CHKDRP aOINQR TRYDRP CHKTRS DROPIT DRPRDCK DSTYCNT STA LDY LDA STA DEY BPL TXA ASL TAY LDA CLC ADC STA STA LDA SEC SBC STA DEX BMI JMP SCRPTR ( THE BOMB •S CHARa+96,Y (SCRPTR) ;y SETBOnB (SET Y TO INDEX A ( THE SOUND RESS HOLDIT (UPDATE SOUND ( OF DROPPINB DRPFREa,X ( BOMB DRPFRE(3, X AUDFl , Y #*AB HOLDIT AUDCl , Y (RESET INDEX DOPLMV ( IF BOTH NOT BMBNLOP ( DONE, DO NEXT >. DROP BOMBS LDA BEQ TXA CLC SBC BNE LDA BMI LDA CMP BCC BCS LDA CMP BCS LDA AND BEQ BNE LDA BNE LDA CLC ADC STA LDA STA STA INC LDA STA BNE STA JSR LDA BEQ DEC DEC EOR STA LSR LSR LSR LSR EOR STA LDA CMP BEQ JMP LDA BNE LDA BNE JMP LDA CMP BNE LDA BTA STA STA LDA CMP BEQ LDA STA STA LDA AND BEQ JMP LDA STA LDA STA LDA CLC ADC STA LDA ADC STA LDY LDA BEQ TAX LDY LDA BNE TXA STA LDY TYA STA LDA SEC SBC STA BOMBS, X DONXBMB PLAYERS CHKTRS DIR BOINGR PLYRX,X «»44 DONXBMB TRYDRP PLYRX,X »»BB DONXBMB RANDOM «ts DROPIT DONXBMB TRIBB.X DONXBMB PLYRY,X •a BMBDRP, X •a DRPRATE, RCKHIT, X BRUN. X #30 DRPFREQ DONXBMB ( IF NO BOMBS LEFT ( THEN DO NEXT (IF NOT THE ( COMPUTER, CHECK ( TRIQQER [IT'S PLAYER! tBOINQ LEFT? I NO! I BET COMPUTER X (TOO FAR LEFT? (YES! (NO. TRY DROP! (QET COMP. X (TOO FAR RISHT? (YES! (COMPUTER DROPS ( A BOMB IP ( RANDOM SAYS TO (ELSE DO NEXT (TRia PUSHED? ( NO, DO NEXT [DROP: SET [ BOMB Y TO ( PLAYER Y+a (CLEAR DROP RATE ( AND ROCKS HIT (UP BOMBS DROPPED [SET THE SOUND X I FLAQ (AND DO NEXT HtTCLR [CLEAR HITS MOVEPLR (MOVE PLAYERS EXPLODE (EXPLOSION BOINQ? CKR3TRT ( NO, SKIP EXPLODE (UPDATE EXPLOSION EXPLODE ( SOUND #«F0 AUDF3 A A A A #»8F AUDC3 CONSOL (ANY CONSOLE #7 ( BUTTONS PUSHED? CKNSCR [IF YEB, THEN RESTART [ RE-START ROCKS |# OF ROCKS LEFT CHKPAU3 ( - ZERO? RQCKS+I (IF YES, THEN CHKPAUS ( SET UP A NEW8CRN ( NEW SCREEN (SPACEBAR PRESSED? BCS NOVER DEC SCRPTR+I NOVER DEC YCOUNT (LAST ROW DONE? BMI DONXCOL ( YES, DO NEXT COL DONXRCK LDA SCRPTR (SO U^ ONE SEC [ ROW SBC #*2S STA SCRPTR BCS N0VER2 DEC SCRPTR+1 N0VER2 DEC YCOUNT (LAST ROW DONE? .,^.,»„„, 2^'- RKZDRP [ YES, DO NEXT COL DONXCOL DEC XCOUNT (LAST COL DONE? BPL DSTYCNT ( NO, DO NEXT JMP BMBLOOP (DO fiOMBS AGAIN I ( MOVE PLAYER, CHECK FOR LEAVING ( SCREEN, END BAME CHECK, SWITCH I SHIP TYPES ( NQVEPLR LDA 0N3CR I IF NOT ON BNE ADDCLOK ( SCREEN, SET BOUND LDA MASK ( AND PLAYERS CMP #3 [BALLOON? BEQ STBL8ND I YES, DO THAT LDA #»96 (SET PLANE SOUND STA AUDF4 LDA *»24 STA AUDC4 BNE ADDCLOK STBLSND LDA #0 8TA AUDF4 LDA »Z STA AUDC4 LDX #1 8TBLN8 LDA PLYRY,^X STA SCRPTR TXA ADC » >PL0 STA SCRPTR+1 LDY #13 SETBALN LDA CHARS+80,Y STA (3CRPTR).Y DEY BPL SETBALN DEX BPL 8TBLNS ADDCLOK INC CLOCK LDA CLOCK AND MASK BNE DODELAY LDA PLYRX ADC DIR STA PLYRX 8TA HPOSPa STA HP0SP2 LDA DIR EOR »»FE ADC PLYRX+1 STA PLYRX+1 STA HP03P1 STA HPDaP3 LDA MASK CMP #1 I & BOTO CLOCK ADD (SET WIND SOUND ISET BALLOON (ADD TO CLOCK I IF CLOCK AND ( MASKOa THEN ( DON'T MOVE (MOVE THE PLAYERS (FIRST PLAYER 1 (THEN PLAYER 2 CH #33 CKDRRCK [NO #0 I IF ON PLANES ( THEN CHECK IF BNE DODELAY ( TIME TO ANIMATE LDA CLOCK ( PROPS AND #2 BEQ DODELAY (NO. LDA DIR STA TDIR LDX »l LDA PLYRY.X STA SCRPTR TXA ADC • >PL0 STA 3CRPTR+1 LDA CLOCK (GET IMA8E INDEX [ FROM CLOCK ,,.^. SKIP THIS (3ET TEMP DIR ( (WILL BE KILLED) (SET POINTER I TO PLAYER ..„, CONTINUE ,YES, PAUSE BAME (TURN OFF MAIN ( SOUNDS (WAIT FOR STICK ( MOVEMENT (RESET CH FOR [ ANOTHER PAUSE (TIME TO DROP i SUSPENDED ROCKS? AUDCl AUDC2 AUDC3 PORTA #»FF HLDPTRN #»FF CH CHI CLOCK #13 DRPRQCK BMBLOOP (NO, DO BOMBS #39 — -- XCOUNT #S YCOUNT (SET COLUMN TO 39 (ROW TO 8 (AND SET POINTER # <tCANYDN+3&0] ( TO XCOUNT I PLUS CANYON XCOUNT I START SCRPTR * >CCANYON+360: #0 SCRPTR+1 #0 (ROCK FALL LOOP: (SCRPTR), Y (NQTHINQ THERE DONXRCK i THEN TRY NEXT UP (ELSE HOLD IT »»ZS ( & LOOK UNDERNEATH (SCRPTR) , Y DONXRCK (NOT BLANK-DO NEXT (BLANK, MOVE ROCK (SCRPTR), Y ( ABOVE DOWN #0 (SCRPTR) , Y SCRPTR i & GO UP ONE ( SO WHOLE COLUMN »»ZS ( WON'T FALL AT SCRPTR I ONCE DODELAY DELAYl DELAYZ AND #4 ASL A STA HOLDIT LDA TDIR AND »»10 ADC HOLDIT 8TX HOLDIT TAX LDY #0 LDA CHARS+4S,X 3TA (3CRPTR) ,Y INX INY CPY #3 BNE ANISET LDA TDIR EOR #«FE STA TDIR LDX HOLDIT DEX BPL ANILODP LDX #13 LDY DELYVAL DEY BNE DELAY2 DEX BNE DELAY! LDA #1 STA ONSCR LDA PLYRX CMP #44 BEQ 0FF3CR CMP #204 BNE MPQDBAK (IF ON LDA #0 STA AUDC3 STA AUDC4 STA EXPLODE STA ONSCR LDX #1 LDA BMBDRP, X (IF A BOMB IS BED CKBRN ( IN THE AIR. AND ) AND HOLD IT (GET DIRECTION I INDEX FROM I DIR IV ADD -EM TO GET I INDEX. I SAVE PLAYER » ISET PLAYER (REVERSE TDIR (GET PLAYER » I «( ANIMATE NEXT (WAIT FOR A i WHILE TO MAKE 1 GAME PLAYABLE I PLAYERS ARE NOW I ON SCREEN (BUT CHECK TO I SEE IF THEY I AREN'T RETURN (ELSE, TURN OFF I EXPLOSIONS AND I BKG BOUND (SET ONSCR FALSE ANALOG COMPUTING MAY 1985 / PAGE 63 ^^ Boulder Bombers coiuinued CKBRN CKNBR nPGOBAK I ENDBAne wAiTa MAITl WA1T2 LDA 8NE JSR LDA BNE .J8R DEX BPU JSR LDX LDA CLC ADC ADC BED LDA EOR STA LDX LDY 3TX STY LDA STA LDA BNE LDA CMP Bca LDA STA LDA 9TA RTS PLA PLA LDA STA LDX LDY LDA CMP BNE DEY BNE DEX BNE DEC BPL JMP RCKHIT, ) CKBRN LWRHISS BRUN, X CKNBR LWRMiaa CHKBR PMCLR PLAYERS BQMB3 BOnBB.X PLAY ENDSAME DIR • •FE DIR PLYRY PLYRY+l PLYRY-H PLYRY «3 CLOCK ROCKS+1 MPBOBAK ROCKS • 149 MPQOBAK • 1 MASK *4 RKILL 1)8 HOLDIT • •FF »»FF C0N30L • 7 ENDBOBK WAIT2 WAITl HOLDIT WAITZ RESTART I IT HASN'T HIT I ANYTHINO YET, I IT'S A MISS I IF NO BOMBS I DROPPED THIS ) PASS, IT'S A MISS I CLEAR OUT PLAYERS I IF THE ACTUAL ( PLAYERS HAVE I NO MORE BOMBS, I AND WE'RE ON A I SAME, END IT I REVERSE DIRECTION ■CHANGE PLAYER f LANES I RESET CLOCK I IF HALF OF THE > ROCKS ARE aONE I THEN SWITCH I TO PLANES lELSE RETURN SSET MOVE RATE I MASK (PLANE BOMBS SET I MAX OF 4 ROCKS I RETURN JBET RID OF ) RETURN ADDRESS I DO DELAY BO ( THE PLAYERS I CAN SEE THE I FINAL SCORE I (END DELAY I EARLY WITH I CDNSOL KEY) !S0 TITLE SCREEN SET CANYON SCREEN IMAQE » I SETSCRN 8ETSC1 Need somelhing interesting lo do with that left over tiatnburger! How about a dessert lor someone on a diet? Tlie recipe you need is only seconds away with: THE COMPUTER GOURMET The Computer Gourmet is your complete kitchen helper. TweWe servings too many! A qmi keystroke and your serving si2e is adjusted to the number you need. Want a shopping list ol ingredients? No problem! The Computer Gourmet even comes with its own complete set of recipes! (And its very easy to add your own.) Automate your kitchen v<itfi The Computer Gourmet Available on disk for Atari- computers (requires 48K), Send S29.95 plus J2.00 for postage to: NEW HORIZONS SOFTWARE P.O. Box 180253 Austin, Texas 78718 Or, lor more information, call (512) 445-1767. New Horizons Expanding Your Life Cofltact us tor Infornulion on all our pfoducU lor Atari Computers. Deal«r inqum invited. Atari is a trademark o! Atari, Inc. LDY (te (COPY ROCKS ti LDA RQCKIMB.Y I CANYON TO STA CANYDN+4B,Y ( SCREEN INY BNE SETSCl LDY «t43 LDA ROCKIMStzaS. Y STA CANY0N-t-2V3,Y DEY BNE SETaC2 RTS I RETURN LOWER NUMBER OF BOMBS LEFT IRMISS LDA BOMBS. X I IF ALREADY BED LWMBOBK I ZERO, EXIT DEC BOMBS, X I LOWER BOMBS LDA BOMBB.X I IF AT LEAST LEFT, RETURN CMP »3 BCB LWMBOBK CLC lOET INDEX FOR ADC SCRNDX.X I SCREEN TO TAY 1 ERASE BOMB LDA »e STA B0MB1-3,Y LWMSOBK RTS 1 RETURN I CLEAR PLAYERS, BOMB Y POSITIONS, BOMBS DROPPED THIS PASS, AND TURN OFF BOMB SOUNDS I I I I PMCLR LDA »t TAY STA PLB.Y STA PLl , Y STA PL2 Y STA PL3,Y DEY BNE PMCLOOP STA 8MBDRP STA BMBDRP+l STA BRUN STA BRUN+1 STA AUDCl STA AUDC2 RTS I CLEAR ALL I PLAYERS 1 CLEAR BOMB Y I POSITION I >< BOMBS DROP I THIS PASS I TURN OFF BOMB I FALL SOUNDS PLAYER 2/COMPUTER MESSABEB CIRCLE #117 ON READER SERVICE CARD J SouroeVievv Software International is proud to present 4 Atari Winners! BULLETIN BOARD CONSTRUCTION SET — A fully configurable & custom- izablf remote lelecommunications system, XMODEM upload/download & other proto- cols, board & menu editors, thousands of passwords. We guarantee this board to bo the most powerful, versatile and fastest board for the Atari u.ser or your money back! $39.9.5 MOTHER'S HELPER - a neat utility pro- gram with database to keep track of kids and their parents, spreadsheet accounting with popular templates for most home chores, and personal secretary for letter- writing, memo's with jumbo lettering and labelmaker which lists all diskprograms in tiny letters. $39.95 MATH TREE - Now you can kill two birds with one banana. By answering math problems of variable difficulty, your child becomes familiar with the computer key- board while watching the monkey climb the tree. $19.9.') SOURCEVIEW Journal - All SourceView software is reviewed & rated by our sub- scribers in the SourceView Journal of Soft- ware Evaluations, Reviews & Ratings. Sub- scribe for $36.00 per year. Send your checks with $2.00 postage and handling to; Post Office Box 390, Martinez, CA 94553 P2C0MPT .SBYTE +»8e, "RETUPM0C2 REYALP" ! ) Miac DATA ? 3CRNDX .BYTE 3, 13 MASKS .BYTE 1,3 I ) TITLE SCREEN DISPLAY LIST ! DLISTl .BYTE »70, «7«l, »7a, »46 .WORD QAME .BYTE ♦70,»7B,»7B,»7B,«70 .BYTE »7ei,»7e,«70, »70,»'t4 .WORD CANYON+40 .BYTE 4, 4, 4, 4, 4, 4, 4, 4, 4, »47 .WORD TITLE .BYTE 6.ft,»41 .WORD DLISTl I ! GAME DISPLAY LIST I DLI8T2 .BYTE »7e, «70 , »7», »70 .BYTE »7a, »7B, •70,«7»,»70 .BYTE «70,»70,»70,»70, »44 .WORD CANYaN'r40 .BYTE 4,4, 4, 4,4,4,4,4,4, »44 . WORD SAME .BYTE »70,4,i,»41 .WORD DLISTi .SBYTE +»a0," boulder " .SBYTE ■^»80, " bomber* .SBYTE " by mjirk prlca .SBYTE " PLAYERS! " .BYTE (l 1 ,0,0,0,0,0 I BOTTOM OF SAME SCREEN .SBYTE . SBYTE .BYTE .BYTE .BYTE .BYTE .BYTE e'e HIGH: " a PLAYER 1 ,0,e,0,0,0,»,a,0 ,0 0,0 OAME HISCOR P2M8a SCOREl BDMBl aCDRE2 B0M82 ? ! DATA FOR CANYON ( RQCKIMG .BYTE 1,1,1,1,1,1,1,1,1,1 .BYTE 1,1,1,1,1,1,1,1,1,1 .BYTE 1,1,1,1,1,1,1,1,1,1 .BYTE 1,1,1,1,1,1,1,1,1,1 . BYTE •85, 1,1,1,1,1,1,1,1,1 .BYTE 1,1,1,1,1,1,1,1,1,1 .BYTE 1,1,1,1,1,1,1,1,1,1 .BYTE 1,1,1,1,1,11,1,1, »83 .BYTE »84,»83, 1, 1, 1, 1 , 1 , 1 , 1 , 1 .BYTE 1,1,1,1,1,1,1,1,1,1 .BYTE 1,1,1,1,1,1,1,1,1,1 .BYTE 1, 1, 1 1, 1, 1, 1 l,»a4,»83 .BYTE »84,»83,2, 2,2,2, 2, 2,2,2 .BYTE 2,2,2,2,2,2,2,2 2,2 .BYTE 2,2,2,2,2,2,2,2,2,2 -BYTE 2,2,2,2,2,2,2,2,»a4,»83 .BYTE •B4,»84,»83,2, 2,2, 2,2,2, 2 .BYTE 2,2,2,2,2,2,2,2,2,2 .BYTE 2,2,2,2,2,2,2,2,2,2 .BYTE 2,2,2,2,2,2,2, ♦84, »84, ♦as .BYTE •84, ♦84, ♦83, 2, 2,2,2,2,2,2 .BYTE 2,2,2,2,2,2,2,2,2,2 .BYTE 2,2,2,2,2,2,2,2.2,2 .BYTE 2,2,2,2,2,2,2, ♦84, ♦84,^83 .BYTE ♦84, ♦84, ♦84, ♦83, 3 .BYTE 3,3,3,3 3,3,3 .BYTE ♦83,3,3,3,3,3,3,3,3,3,3,3 .BYTE 3, 3, 3, ♦83, 3, 3, 3, 3, 3,3,3,3 .BYTE ♦84, ♦84, ♦84, ♦83, ♦84, ♦SA .BYTE ♦84,^83,3, 3,3,3 .BYTE 3,3,3, ♦84, ♦84, ♦83 .BYTE 3, ♦63, 3, 3, 3, 3 .BYTE 3, 3, 3, 3, ♦83, 3 .BYTE ♦84, ♦BA, ♦as, 3, 3, 3 .BYTE 3, 3, 3, 3,^84, ♦84 .BYTE ♦84,^83,^84,^84,^a4,^a4 .BYTE ♦83,3,3,3.3,3 .BYTE ♦a4,^84,^84,^a4,^84,^84 .BYTE ♦83,3,3,3,3,3 .BYTE 3,^84,^a4, ♦84,^a4, ^84 .BYTE ♦84^»83,3,3,3,3 .BYTE 3, ♦84, •84, ♦a*, ^84, ♦as .BYTE ♦84, ♦84, ♦84, ♦84, ♦84, ♦as .BYTE 3, 3, 3, ♦84, ♦84, ♦84 .BYTE ♦a4,^a4,«84,^a4,^a4,^8S .BYTE 3, 3, 3, 3, ♦84,^84 .BYTE ♦84,^84,^a4,^84,^a4,^84 .BYTE ♦as, 3, 3, 3, ♦84, ♦84 .BYTE ♦a4,^84,^a4,^S3 I I CHARACTER SET DATA MYCHARS .BYTE • ,9. »,»,«,», 0, B .BYTE B*.64,B4,84,Bt.84,B4,« .BYTE 168, 16Q, \bQ, 168, l&O, l6B, 16S. .BYTE 232, 232, 23 2, 232, 232, 232, 232, » .BYTE 233, 233, 233, 233, 233, 233, 233, 233 .BYTE 232, 232, 232, 232, 232, 232, 232, 232 .BYTE »,», 1 ,3.63,211,231, 12B .BYTE », e, 1 , 131, 171,211 , 126, B .BYTE »,B, 128, 192,232,203, 127, 1 .BYTE B, B, 12B, 173,233,283, 126, B .BYTE 6B, 126, 233, 8,233, 233, 126, 6B .BYTE 24,36,36,24,24,B,»,B .BYTE 16B,64,224,224,224,64,B.B .BYTE IBB, 124,36, 124, 124, 12*, 36, 16 I I ON-SCREEN CftNYDN I CANYON - •♦•B17B I •- «B2EB .WORD INIT (RUN ADDREBB CIRCLE #118 ON READER SERVICE CARD PAGE 64 / MAY 1985 ANALOG COMPUTING LOTSABYTES CONTINUES THE WAR ! WAR on high prices < Were going to put an end to the software price ripoff And YOU can help ' Just keep those orders coming while you continue to enjoy the quality, quantity, selection and low prices that you deserve. Our National Public Domain Copy Service will save you time, tedious work, and money. And our exclusive distribution of stiarply discounted commercial programs will bring you some of the finest programs for the lowest possible price, usually 50% and more off retaiH You continue to get FREE BONUSES with each purchase of three or more disks PUBLIC DOMAIN SOFTWARE #1 GAMES Two full disk sides packed with over 25 games including some Arcade quality. $7.95 #2 UTILITIES 25 powerful programs to help you get the most out of your Atari computer. S7.95 #3 AMS MUSIC 25 Advanced Musicsystem files including a new Player program. 2 sides $7.95 #4 GAMES All different > 14 more better games on 2 disk sides. Some Arcade types. $7.95 #5 EDUCATION Loaded with 28 programs on 2 disk sides Fun learning for the whole family. $7.95 #6 AMS MUSIC 25 all-time favorites with a Player program. Two sides. S7.95 #7 GAMES Two disk sides packed with 14 more great games. Some Arcade types. $7.95 #8 UTILITIES 17 more power-packed utilities to help unleash full potential of your Atari. $7.95 #9 GAMES Two full sides filled with 17 of the best and most recent. Some Arcade $7.95 #10 UTILITIES A new assortment of 17 great and powerful programs Don't miss it < $7.95 #11 GAMES NEW! Our newest. 2 sides filled with great games. $7.95 #12 ADVENTURES NEW 2 full disk sides filled with text adventures. S7.95 #13 EDUCATION NEW 2 disk sides filled with something for everyone. $7.95 #14 AMS MUSIC NEW^ 2 sides filled with great music and a player program. $7.95 #15 UTILITIES NEW. Another assortment of fine programs. Not to be missed. $7.95 LoisaBytes EXCLUSIVES ADVANCED MUSICSYSTEM II by LEE ACTOR Allows you to create music v/ith your Atari computer' All new machine code " Control over pitch duration, envelope dynamic level, meter, tempo and key. * 4 independent voices * 5\ octaves per voice * Save up to 8200 notes * Custom DOS * FULL instructions * 24K disk Originally S29.95 Only $14.95 ORIGINAL ADVENTURE by Bob Howell For all Atari computers. The Original Colossal Cave Adventure faithfully reproduced from the 'main-frames' This IS the one that launched the whole Adventure craze of today * Two mazes * 130 rooms * Deadly Dragons ■ Nasty Dwarves ' Tenacious Troll ■ The Pirate & More! ■ 86 coded hints ■SAVE'RESUME * 40K disk or 32K tape Originally S24.95 Only $14.95 QUALITY WORD PROCESSING ESI WRITER! At last a brand-new Word Processor that has more features and is easier to use than anything else available for the Atari. Easy for the beginner to use, it asks questions and remembers the answers. ESI WRITER is so sophisticated that it has many more features we don't even have room to mention ! Works with ANY Atari * Reads any text file * Built in Help screen ' Very fast I * Works with ANY printer * Instant top, bottom or text location without scrolling! * Every printer feature * DISK ONLY (Any Atari) * Search and replace * Block move text "Page eject/start ' Set margins/lines etc. ■Full justification * Print headers etc. * Block delete etc. * Change video color * Over 50 pages of docs and tutorials TRUST US ON THIS ONE' YOU WILL LOVE IT! Originally S49.95 LotsaBytes price $19.95 * * FREE BONUSES * * Now for each 3 disks ordered you may choose any 1 of ttie following disks FREE!! ... buy 3 - get 1, buy 6 - get 2, buy 9 get 3 ... a. The Atari XL TRANSLATOR DISK that enables XL owners to use most 400/800 software. FREE I ! — or — b. An all different AMS MUSIC disk with Player. FREE! ! —or - c. Your choice of one of the P.D. disks -- ffl, b2. #3, #4, #5. #6, #7, #8, #9, or #10 (specify one) FREE!! MUSIC MAJOR! Learn the basics of music with this light- hearted but very thorough approach. Covering such topics as note recognition, key signatures, note counting, and much more, it is designed for use by both the individual student and music class. This program includes a thoroughly illustrated manual and offers a QUIZ MASTER utility that allows the teacher or the self-taught student to create their own A-B-C-D type tests, with a sample quiz included. Originally S39.95 Only S 14.95 GREAT GAMES! SPACE GAMES; Three games for one low price'. In Aliens you can't get them all and the pace keeps getting faster When you do gel rid of most of them, you are left in a space quadrant peppered with mines. Will you Survive'' II you do, you must penetrate the alien's spaceship, survive a Robot Attack, and get back your stolen cloaking' device' Interested? S24.95 hsl LotsaBytes price: $9.95 THE BEAN MACHINE by Steve Robinson IS an Award Winning Arcade game that will drive you crazy balancing a series of beams while trying to get all the beans to roll down, without touching, all the while avoiding 'strange creatures' who drop in to steal the beans. It's addicting! 524,95 list LotsaBytes price: $9.95 DIGGERBONK, another Award Winning game by Steve Robinson, challenges you to find your way through a continuously scrolling maze while avoiding some really strange creatures. Along the way you will need to Bonk some of them, but watch out for the bombs. S24.95 list LotsaBytes price: S9.95 GUESS WHAT'S COMING TO DINNER lets you try to manuever a snake through 7 levels if you can keep it from starving or being electrocuted. Lots of surprises! One or two players. S24.95 list LotsaBytes price: S9.95 CREATIVE LEARNING ADVENTURES Ages 4 to 10 — Disl< only 1. Hours of educational fun playing 3 exciting creative adventures with a friendly alien learning about our planet Earth Hand/eye co-ordination, drawing, and music skills are emphasized. S24.95 list LotsaBytes price: $12.95 2. Four challenging learning games that are the favorites of our friendly alien. Helps your child to develop logical reasoning ability. 524.94 list LotsaBytes price: S12.95 3. These 3 Fun-Day learning games will help with intellectual development, hand/eye co-ordination, logic, spatial, and analytical abilities. 524.95 list LotsaBytes price: $12.95 LotsaBytes Full lOO"., Replacement guarantee, Any disk found to be detective will be replaced tree and we will also refund your return postage. All orders shipped by Frrst Class U.S. Mail. Add SI .95 s flipping and liandlJng for 1 to 5 disks. Add S2,95 for 6 to 12 disks. California residents add 6" . sales tax. Outside of U.S.A. and Canada add IS'i., U.S. Funds only. We accept checks or Money Orders. Sorry, no COD or Charge Cards. Allow three weeks tor personal checks lo clear. 15445 Ventura Blvd., Suite 10H, Sherman Oaks, CA 91413 Ar.iii i> III.. i.n]isl.-M.il It.lflrltl.ltk ut Al,)ti Corp CIRCLE #122 ON READER SERVICE CARD REVIEW TAX COMMAND PRACTICAL PROGRAMS, INC. 625 N. Milwaukee St., Suite 210 P.O. Box 93104 Milwaukee, Wl 53203 16K Cassette or Disk $24.95 by Karl E. Wiegers Preparing tax retm-ns isn't most peo- ple's idea of a great hobby. The good news is that there are several tax prepa- ration programs for the Atari on the mar- ket. The bad news is that you get what you pay for, and sometimes you'll wish you had paid a little more. Tax Com- mand is one of the less expensive tax programs available, and while it does ac- celerate the completion of your Federal tax return, it has some limitations. My individual income tax return is fairly involved, with itemized deduc- tions and dividend income, some capi- tal gains and the continual hope of a tax break, thanks to income averaging. I got Tax Command hoping it would speed up the lengthy computations involved with income averaging, making it easy to add new deductions if I discovered them after the initial pass through the program. These expectations were only partially realized. Tax Command for the Atari comes in two different versions. The older version is obtainable on cassette or disk and is designed for 16K computers. I regard this program as a barely adequate tax preparation tool. It lacks the ability to store data on the tape or disk for addi- tional future processing, and it cannot provide any printouts of your results. Essentially, all this version does is arithmetic. The new program requires at least 40K of RAM and is considerably more useful. Program files for both ver- sions are present on the single cassette or disk you get when you purchase Tax Command. Both are written in Atari BASIC. Tax Command cornes with a 16-page, typeset user's guide, with a table of con- tents and index. The program is availa- ble for seven models of home computer besides the Atari, and the user's manu- al comes in the "one size fits all" cate- gory. Little information in it pertains specifically to the Atari version. How- ever, the general procedures described for entering data and performing calcu- lations are useful. A sample set of mythical financial in- formation is supplied with instructions, to use for practice before you tackle your own return. Instructions for the more sophisticated, long version of Tax Com- mand do not appear in the user's guide. The input prompts in the program itself are very cryptic, so it will help to keep your tax forms in front of you. Data is entered through a series of me- nus pertaining to different sections of Form 1040 and other schedules. The lines in each menu are labeled with the line number to which they correspond on Form 1040. One character per line is highlighted in inverse video. To select a menu op- tion, simply press the key correspond- ing to the highlighted letter You can then enter numeric information such as salaries, medical deductions, and so on. The main menu lets you move to sub- menus for making different kinds of en- tries, so changes are readily made if you uncover a new deduction or get a late W-2 statement. Movement among menus is very easy and rapid. Some options, such as "other income" or "tax payments," involve lists of items. Numbers must be entered for all items in a list, even if the entry is zero, as al- ready shown on the screen. Changing an entry here involves retyping all items in the list. If you just press RETURN at unchanged items to try to save time, you'll see a reminder to enter only nu- meric values. To my irritation, this mes- sage remained on the screen for nearly ten seconds. As you make entries in the various displays, the dollar (and cents) values ai-e The Jines in each menu are labeled with the line number to which they correspond on Form 1040. shown on the the menu lines. Changes are immediately reflected in new total amounts. You can calculate your tax due at any time with a couple of keystrokes. The main menu in the long version al- lows you to save youi' data on disk or re- trieve a stored file for additional pro- cessing. Only one data file can be stored on each disk, so tell all your friends to bring their own data disks. Users of the short form are out of luck: no storage of intermediate results is pos- sible. This is a major limitation in the short version of Tax Command. Something odd happens if an error occurs during the data save step. A dis- play asking if the drive is on and the data disk is in appears, erases and re- appears no less than forty times! Twice would have been sufficient. Other than this, error trapping in Tax Command is quite good. There is no apparent way to exit from the program short of pressing the BREAK key Another main menu option allows you to print your results. This produces a very simple one-page printout show- ing Form 1040 line numbers, short line descriptions and the numeric values to be filled in on your Form 1040. Due to a small bug in the program, the line which should show your refund due PAGE 66 / MAY 1985 ANALOG COMPUTING °4 Review continued doesn't appear on the printout. As with all inexpensive tax return programs, these numbers must be entered manu- ally onto your own tax forms. No itemizations are provided for any other schedules, another limitation of Tax Command. Individual subtotals for Schedule A (itemized deductions), such as medical, taxes, interest, etc., are dis- played on the computer screen but not on the printed report. Income averaging is a nice way to try to reduce the amount of Federal tax you owe. At least, it's usually worth check- ing to see if it makes a difference. Tax Command lets you enter the income from your four base years [again, the prompts are so abbreviated that you really have to know what you're doing) and, in just a few seconds, calculates your averageable income and the tax due using income averaging. Still, no intermediate calculations, which must be entered on Schedule G to satisfy the IRS, are shown. Therefore, if you do income average, you must per- form the computations by hand to get these necessary intermediate results. This practically negates the benefit of having the computer carry out tlie math, except to see if income averaging will reduce your tax liability. As with virtually all tax preparation programs for home computers, Tax Com- mand does not supply tax advice or in- formation about tax laws. On the plus side, the purchase price is tax deduc- tible. In suiumary, Tax Command's long form is a useful aid for the preparation of your Federal income tax return if you have a disk drive and at least 40K or RAM in your Atari. The 16K version is too limited to be of much use, unless yoLU- tax return is so simple that it's eas- ily done by hand anyway. The program is easy to use, although the user's manual provides little assis- tance. Data entry is rapid, and the tax calculations take only a few seconds. ,.;^JiS&SSS«S»- K; YOU CANT TELL A DISK DRIVE BY ITS COVER!! The result for my 1983 tax due came out $2 off the result 1 got using another, more expensive tax program, but I'm not sure which is in error. With a little more attention to detail and utility, this could be a fine tax pre- jDaration program. However, I don't re- commend Tax Command for anyone who uses income averaging or wants a printed itemization of data for schedules besides the basic Form 1040. In those cases, a program like the Tax Advantage from Continental is a better choice, although close to three times the list price of Tax Command. Remember, you get what you pay for. D With his B.S., M.S. and Ph.D. degrees in chemistry, KarJ E. Wiegers is a Sen- ior Research Chemist at Eastman Kodak Company. He has worked with main- frame and microcomputers for fourteen years and has written for several com- puter magazines, with a number of ap- plications programs pubh'shed. WITH A HAPPY ENHANCEMENT INSTALLED THESE ARE THE MOST POWERFUL DISK DRIVES FOR YOUR ATARI COMPUTER WARP SPEED SOFTWARE DISK READING AND WRITING 500% FASTER HAPPY BACKUP — Easy to use backup of even the most heavily proiected disks HAPPY COMPACTOR - Combines 8 disks into 1 disk with a menu WARP SPEED DOS - Improved Atari DOS 2. OS with WARP SPEED reading & writing SECTOR COPIER — Whole disk read, write and verify in 105 seconds 1050 ENHANCEMENT — Supports single, 1050 double, and true double density 810 ENHANCEMENT - Supports single density SPECIAL SUGGESTED RETAIL PRICE: Get the HAPPY ENHANCEMENT 810 or 1050 version witii the HAPPY BACKUP PROGRAM plus the multi drive HAPPY BACKUP PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS plus the HAPPY SECTOR COPY, all with WARP DRIVE SPEED, including our diagnostic, a $350.00 value for only $249.95. for a limited time only! Price includes shipping by air mail to U.S.A. and Canada, Foreign orders add $10.00 and send an international money order payable through 'a U.S.A. bank. California orders add $15.25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 2-3 weeks to clear. Cash COD available by phone order and charges will be added. No credit card orders accepted. ENHANCEMENTS for other ATARI compatible drives coming soon, call for information. Specify 1050 or 810 ENHANCEMENT, all 1050s use the same ENHANCEMENT, Please specify -H model for all 810 disk drives purchased new after February 1982, call for help in 810 ENHANCEMENT model selection. Dealers now throughout the world, call for the number of the dealer closest to you. ATARI is a registered nadcmarli of Aiari Compuicr inc. HAPPY COMPUTERS, INC. p. O. Box 1268 Morgan Hill, California 95037 (408) 779-3830 CIRCLE #120 ON READER SERVICE CARD ANALOG COMPUTING MAY 1985 / PAGE 67 New LOW Price - complete! INDUS GT $249.95 OKIMATE 10 $149.95 MPP MICROPRINT $49.95 MPPUSO $58.95 MPP 1000E MODEM $118.95 VCLKSMODEM 12 $229.95 KOALA PAD $59.95 BASIC XL $59.95 THE WRITER'S TOOL $79.95 SYNFILE or SYNCALC $39.95 HOMEPAK $34.95 MINER 2049ER $9.95 BOUNTY BOB STRIKES BACK .... $29.95 BANK STREET MUSICWRITER . . . $59.95 CRUSADE IN EUROPE $29.95 DECISION IN THE DESERT $29.95 F-15 STRIKE EAGLE $22.95 AIR RESCUE I $22.95 ULTIMA III $37.95 RETURN OF HERACLES $24.95 UNIVERSE $69.95 WOMBATS I (parody adventure) . $22.95 BOOK OF ADVENTURE GAMES. $17.95 INFOCOM HINT BOOKS $6.95 Please add S2.50 shipping (S4.50 outside USA) California residents add 6%. COMPUTER GAMES + Box 6144 ORANGE CA 92667 (714) 639-8189. i CIRCLE #121 ON READER SERVICE CARD BREAKS? Fast, Reliable Repair for Atari 810 & 1050 Disk Drives ■ 3 Day Turnaround ■ 90 Day Warranty ■ $85 Flat Rate with Repairable Exchange ■ Spare Parts Available Dealers — Special Rates Available Ask about Express Expedite Add $10 shipping & handling. Check, MO, Visa, MC MPS The Disk Drive Specialists (916) 786-6550 Call 8:00-5:00 Pacific Time CIRCLE #124 ON READER SERVICE CARD LEISUREWftRE™ The new fttari-onlu Magazine on disk. (fitK multi-person reviews, exciting colunns on Action'^" Basic and flssewfaly. Tips for experts or beginner. Why buy old public doMain software, when you can get a disk with new and original software each and every wonth. Each great issue comes on a two-sided disk filled with sone of the best software around an* it cost just SB per issue. Try one issue, you will love it! ROM the Canadian Atari Magazine is only S2 MM residents please add tax plus Si for shipping. Out of state add S2 . Send a SASE or call our BBS for information Lvailable only frow ACTIVE COHPOTER EttTERPRlSES (5051 S24-1390 PO Box 412 Las Cruces HM 88004 CIRCLE #122 ON READER SERVICE CARD ATARI HARDWARE / SOFTWARE 810 Disk Drives $265 (7) 810 Disk Drive Kits $240 (7) 810 Happy Enhancement $185 (4) 1050 Happy Enhancement $185 (4) 810 Analog Upgrade Kit $ 37 (3) 850 Interface Module $125 (7) Atari 800 Computer Kits 48K Electronics $100 (7) Atari 400 Computer Kit $ 47 (5) 800 OS lOK ROM 'B' Board $ 17 (2) CPU 'GTIA- Board $ 18 (2) 16K Memory Board $ 19 (2) 400/800/810/850 Power Adapter $ 15 (3) I/O Data Cable, 6' $ 12 (2) 13 pin I/O Plug Kit (cable end) $ 3 (1) 13 pin 1/0 Jack (Port) $ 3 (1) Atari Joystick (standard) $ 5 (2) Atari Paddles (set) $ 8 (2) All types of other boards and parts are available! Atari Microsoft Basic II Cartridge w/manual $ 27 (3) Atari Pilot, Cart, w/manual $ 22 (3) Atari Basic Cartridge Kit $ 15 (3) Atari Assembler/Editor Cart. Kit $ 15 (3) Ordering Information; All boards listed are complete with all parts and are fully guaranteed. UPS shipping charges are shown in brackets next to the price. Ship- ping charges must be included with all orders. Orders may be placed by phone using your VISA or Master- Card, or you may mail your orcier in with a check or money order. Hurry, some supplies are limited. CALL OR WRITE FOR FREE CATALOG!!! CENTURIAN ENTERPRISES (805) 544-6616 Post Office Box 3233 San Luis Obispo, CA 93403-3233 Sales Office: 890 Monterey Street Suite B, SLO, CA 93401 LOW COST HOME SOFTWARE GIVE YOUR COMPUTER SOMETHING TO THINK ABOUT ! HOME OFFICE Word Processor Data Base/ Mail List RECREATION Orbiting Body Color War Connectr many others SING-A-LONG Enter & Play Music Display Lyrics & Graphics UTILITIES Online Terminal Sector Copier DOS with BASIC many more Diskettes for ATARI 400,800,XL,XE Includes instructions & documentation. $ 8.95 Each 1st Class All 4 for 29.95 U.S. Delivery Please add 1 .75 for postage & handling MISTY MOUNTAIN SOFTWARE P.O.BOX 523 LITTLETON , CO 80162 CIRCLE #123 ON READER SERVICE CARD NEED HELP? Use Handicards! Quick Reference Instructions for Atari Programs CIRCLE #125 ON READER SERVICE CARD • Organized commands • Easy to read • Durable plastic (11" x 4 1/4") • Use on or off computer Now available for: ATARIWRITER- Beginning BASIC (with Error Codes) Only $8.95 ea. postpaid (NY residents add sales tax) 'Trademark of Alan Corp. Handi Publishing Inc. P.O. Box 453 Ardsley, NY 10502 CIRCLE #126 ON READER SERVICE CARD PANAK STRIKES! Reviews of the latest softivare by Steve Panak I just finished my latest battery of games. As so often before, they were slid under the giant wooden door, alongside some lukewarm water and black, moldy bread. It's very cold here. . .dark and damp. But at least now I get some light, even if only from the cathode ray tube implanted in the dank dungeon wall. Sometimes I think I see things in the pitch black emptiness of my cell. The tube is so much less terrifying. REALM OF IMPOSSIBILITY by Mike Edwards ELECTRONIC ARTS 2755 Campus Drive San Mateo, CA 94403 48K Disk $35.00 Did you ever have a nightmare where you were running from a terror so blood- curdling that your frenzied mind would not allow it around that last corner? Well, I have, when I'm lucky. The Realm of Impossibility is a return to those hap- pier times, but it is merciless, allowing your antagonist — much to your horror — around that last bend. The evil cleric Wistrik has stolen the seven crowns of the Middle Kingdom, hiding them in his vast network of dun- geons. As you may now have surmised, you must set foot in the caves, face the peril, find the crowns, and flee with your Ufe (and don't forget the crowns). At the start of a romrd, you enter any of 13 dungeons. Sortie ai'e locked and cannot be entered without the key secreted in another While 129 rooms may sound im- pressive, the dmigeons them- selves are similar, and after the first couple, there are few sur prises. It's just in and (if you can survive) out. Also disappointin was the predictability. The dimgeons did not form a maze, having only one obvious way in and out. I could never get lost, one of my favorite nightmares. Indeed, the action is fast and furious, and you're never able to stop and catch your breath. Just run, run, run; drop- ping crosses to repel the evil creatures chasing you. Like vampires, they ai'e un- able to pass over the crosses; but, alas, the crosses evaporate in only four sec- onds, so hurry. You also have, from infrequent time to time, one of three spells to thwart your antagonists. CONFUSE won't help you much, but PROTECT and FREEZE are mighty effective. That's if you can successfully cast the spell. Your problem is that you must be per- fectly immobile to cast your spell, and in this game you can't afford to stand still loo often, or for very long. If you don't believe me, just ask the spider who is stomping on your still and lifeless body. However, this wasn't my only difficulty with Realm. I wanted to zap those zombies and slaughter those spiders. Lay- ing down crosses and rumiing was just too good for them. I wanted a weap- on. A rapid fire laser cannon. Anything. Probably the similarity to Bezerk got to me. The spells were impotent. I was never able to destroy my adversaries — my best hope was a temporary escape from their relentless attacks. The one-player game is standard fare, but the two-player mode has a few sur- prises. You and your partner must co- operate, rather than oppose each other To make it more entertaining, only to- gether can you leave the dungeon, and trying to leave your former friend be- hind will only strand you at an invisible barrier, where you'll quickly be sur- rounded by spiders. ANALOG COMPUTING MAY 1985 / PAGE 69 53 PANAK STRIKES! co,rtmued These spiders have only one thing on their minds. . .and it's not your heaUh. When this happens, wait for your com- panion — or dash back and revive him, if dead — then, perhaps, you can both escape, but I doubt it. Four levels of dif- ficulty keep the challenge fresh. Realm of Impossibility. There is no manual; instead, a pre- game option displays the instructions on the screen. Using the space bar, you page through them at your leisure. This will work nicely, but I still missed the superb instruction manual I'm used to from Electronic Arts. Just another dis- appointment in the Realm. So, while the Realm of Impossibility fails on many levels, it is still not bad enough to make me lose faith in Elec- tronic Arts. But I cannot recormnend it sight unseen, like so many of their oth- er offerings. The Realm is a fair game from a fine company. THE SCROLLS OF ABADON by Frank Cohen ACCESS SOFTWARE, INC. 925 East 900 South Salt Lake City, UT 84105 48K Disk $34.95 The Scrolls of Abadon contain spells, but you'll need more than magic to suc- cessfully master this new machine lan- guage mediocrity. Not that Abadon is the worst game that I've ever seen. It's just tliat it re- trashes some familiar themes which I hoped I'd seen the last of. Abadon's creator, Frank Cohen, is not completely unknown to me. He authored a game (Cohen's Towers) imder the Data- most label, which, unfortunately, fell into my hands a few months back. Not even intense psychotherapy could return me to normalcy after that one. And, al- though Abadon has not cured him of lack of originality, it does at least prove him capable of producing a visually in- teresting product. In the world of Abadon, the Wizard transports you onto the game grid and curses you with the task of collecting the four pieces of his magic amulet. The game is basically a variation on the Pac- Man theme, which I never did find very appetizing. The twist is that gathering up a gem leaves an arrow in its place, an arrow that, later, cannot be passed over in the wrong direction. This is re- ferred to as the "Rule of the Arrows" and makes it child's play to trap yourself in a corner with a hideous creature. When this happens, there is only one hope: a spell. Scattered throughout the grids you'll find scrolls containing spells to change some condition of the game, giving you an advantage. For example, the WALK spell allows you to cross over the arrows in the wrong direction, while the ICE spell freezes your foes in their tracks. 1 Mora nmuiciti The Scrolls of Abadon. However, spell is limited in duration or number of uses. Casting the spells is difficult; you must abandon the joystick and type the name from the keyboard, a clumsy task. I could rarely get the spells off i'ast enough to survive. Although the outer packaging states "Full instruction manual included," the manual itself is little more than a slip of paper. But the pamphlet does let you quickly start playing the game, and that is the important factor. The backgroimd story is best ignored. Visually, the game is interesting and reminiscent of Zaxxon. The field is con- stantly scrolling, displaying only a por- tion of the current grid at any one time. A peculiar sound accompanies the ar- rival of one of your enemies, and if you don't pay attention, one of them is like- ly to drop in right on top of you. You are trapped on the game grid until you've collected all the gems, whereupon a power disk will appear to carry you on to the next screen. Once you've obtained the four amulets, you may move on to the next level. Tapping the space bar shows an overhead view of the grids completed, allowing you to plan future strategy. Overall, the Scrolls of Abadon is an interesting game which you can play for a fair amount of time before mastering, the main problem being that there is lit- tle motivation to do so. BEACH-HEAD by Bruce Carver ACCESS SOFTWARE, INC. 925 East 900 South Salt Lake City, UT 94105 48K Disk $34.95 Beach-Head is billed as the ultimate war game, and is also self-proclaimed as destined to be a video game classic. Although this boast goes unfulfilled, Beach-Head is a bit more original than Abadon — a good starting point for any game. Unfortunately, Beach-Head goes little further and falls fai' short of the fin- ish line. The war is comprised of a number of battles utilizing air, sea and land forces. You pass through multiple screens on your way to the final conflict. In the Aerial Recomiaisance phase, you are shown an overhead map of the enemy territory. At this point, you de- cide upon either a sneak attack or a full frontal assault. Beach-Head. While the sneak attack catches the en- emy by surprise, you must navigate a heavily- mined, narrow chamiel to circle the enemy, and this strategy usually costs you a few ships. However, chanc- ing the channel will lessen the number of enemy crafts you must battle in the following phase. In the second stage, you battle enemy fighter squadrons, while moving back PAGE 70 /MAY 1985 ANALOG COMPUTING Ei PANAK STRIKES! comu^ed and forth and controlling range of fire with the joystick. The problem here is getting used to three-dimensional bat- tle. Once you do get used to it, you will advance to the next stage. Enemy battleships and cruisers are now attacking, and control is similar to the last stage, except that you lob your bombs at the enemy, mortar style. A readout shows you how far you over- or undershot your enemy, the trick being to home in — in time. Succeed and you will be ready to land. Land your tanks on the beach and fight your way through the island de- fenses to the fortress of Kuhn-Lin. The road is lined with mines, bunkers, and enemy tanks, so only a few of your tanks will reach their final destination. Kuhn-Lin. The fortress must be hit by ten shells, in the right order, before it will fall. Here, you'll need all your boot camp training to survive. Once the huge defense cannon gets you in its sights, it's curtains — it never misses. The more tanks you get through, the better your chances are. But, although the format seems great, the complexity seems to breed some rather unpleasant side effects. The joy- stick is sluggish, and not only because I use the old Atari CX80. No, sometimes, particularly on the second stage, it con- trols like a BASIC game — slow and frus- trating. Graphics are also far below average, wasting the power of your Atari. The in- struction pamphlet does describe the game adequately, but is as exciting as a mess hall meat loaf recipe. Much time is spent waiting for the disk to load new information into the memory, and some of these loads were so slow I thought the program had crashed. In fact, the entire game is lacking in overall quality, to such an extent that its originality cannot compensate. Beach- Head would be best suited to burial at SPY VS SPY by Mike Riedel FIRST STAR SOFTWARE 18 East 41st Street New York, NY 10017 48K Disk $29.95 This game is the official video version of MAD magazine's "Spy vs Spy" fea- ture. Thus, to understand Spy vs Spy, you have to miderstand MAD magazine, which is quite a task in and of itself. While I'm not sure whether I should admit that, on occasion, I have not only understood but also enjoyed MAD, I am sure that those -won don't understand MAD are much more likely to enjoy this game — because, as we all have learned by now, few artistic achievements sur- vive the translation to another medium. The video version places the distinc- tive black and white spys onto your dis- play, utilizing a process called Simul- vision. Using a split screen, the two spies Simulplay at the same time, white on top, black on bottom. Your mission is to escape the embassy with the top secret briefcase. Spy vs Spy. As each spy moves through the build- ing independently, each display shows a three-dimensional view of each spy's current room. Moving with the joystick, you search the room for needed items. Using the Trapulator, you can set and defuse traps, as well as generally keep track of your progress. The Trapulator is simply a visual icon menu located to the right of each spy's room display. Us- ing an arrow controlled by the joystick, you make selections of traps, remedies, or a map of the complex. The fun begins when both spies oc- cupy the same room. Both spies appear on one display and battle with clubs (or run, depending on your courage). Before you begin play, you choose a difficulty level, which sets both the number of rooms in the embassy and a time limit. The embassy varies from six to seventy-two rooms, sometimes on multilevels. You can also choose wheth- er to have the exit door hidden until the end, or marked throughout play. However, your most important choice is whom you choose as your opponent. If you choose the computer as your ad- versary, while you can set its IQ from imbecile to genius, the resulting play is the usual video fare — basically a hunt and hide-and-seek game with little ex- citement. This game cannot be recom- mended. But, when two play, the program be- comes more enjoyable. It's a MADcap mission, with the other spy taking on the personality of your soon-to-be-ex- friend. It becomes a fight between two old enemies, both aware of the other's strengths and weaknesses. Will he fight or run? Where would he be most likely to hide that bomb? The tension is oft- times MADdening. However, there are drawbacks. Due to the fact that the potential display size is halved, thanks to Simulvision, resolu- tion is below average, and some smaller objects are tough to distinguish. The rules of play are complex, and time must be invested to learn them. Also, while control is good in hand-to- hand combat, it takes a long time to learn to efficiently set traps and defuse them . . .often, the game simply becomes one of "chase and fight," rather than one of stealth, cunning and trickery — the true essence of Spy vs Spy. The manual fully and completely des- cribes game play, but, while trying to duplicate the spirit of the magazine, it fails to achieve the requisite level of iVIADness. So, as a one-player game, Spy vs Spy cannot be recommended, but, when two play, it becomes a game combining both fast reflexes and a little insight and strat- egy, rising from a poor game to a fair one. THE SERPENT'S STAR by Jeff Johanningman BRODERBUND 17 Paul Drive San Rafael, CA 94903 48K Disk $39.95 The Serpent's Star returned me to the world of graphic adventure, a genre that combines puzzle solving with colorful, high-resolution graphics, whisking the player away to strange new worlds. Almost two years ago I tackled my last graphic adventure, S.A.G.A.'s Ad- venture, and since then I have chosen Infocom exclusively for my adventures. Happily, during my abstinence, they've begun to rectify some of the problems inherent in games of this type — some, but not all. You, as Mac Steele, Archeologist and Finder of Lost Treasures, have discov- ered that, after months of searching, the sacred scrolls were to be in your hands for only a night before being stolen again ANALOG COMPUTING MAY 1985 / PAGE 71 53 2 PANAK STRIKES! continued . . . But not before a partial translation revealed to you the existence of the Ser- pent's Star, a miraculous gem which be- stows upon its owner immortality, as well as great monetary potential. So you set out, again, in search of the scrolls, which rumor places in a glass case in a sacred monastery. After find- ing the scrolls, completing the transla- tion will lead you to your final goal, the Serpent's Star — but only after solving riddles and avoiding a premature termi- nation of the game, and your life. When graphics are used to enhance an adventure, a number of distinctive problems arise. Plot and character de- velopment are subordinated to colorful images; long disk loads slow play; the simplicity of the game (usually only a search for items, rather than an inte- grated story with places to go, people to meet and worlds to conquer) makes for boring play. Fortunately, Star has remedied some of these deficiencies. First, while the lengthy disk loads are necessary, usually many images are loaded at once, lessen- ing the total loads and allowing rapid successions of images to flash on the screen. Vau ara »« xna iim-n caram i ri>a roan Is ■Hi'tii aiicBpt for an aid Man and ■ fallaii Haitarncp. atK>- Serpent's Star. Star has also improved its program to allow use of more complete sentences than simple subject/verb commands. It accepts subject/verb/object commands, as well as strings of commands. Still, while this is certainly an improvement The PROBURNER a Professional Quality EPROM/EEPROM Programmer in a Cartridge What you don't get is a jumble of switches, cables, adapters, power supplies, PC boards, and disks of software. What you do get is a user friendly, super compact unit with internal software that provides clear menu type instructions. Functions: copy, erase check, verify, For the ATARI 400/800 and XL/XE series burn-in, store/load to disi</cassette, PROBURNER $149 monitor (memory display/change, blocl^ ATARI 800 products: move, printer dump etc.), and run-from- OS Board - replaces operating system socket mode. with a 2764. $21 EPROM types: 2716, 2732, 2732A, 2764, C Board - adds 4K (2732) to ttie 27128, 2532; EEPROiVI types: 281 6A, CGGO-CFFF space. $26 52B13, 52B23, 52B33; ROMS: 2K to 8K types- Add $2.50 for shipping. Send check or money order to: THOMPSON £LECTRONlCS 1074 Kensington Ave., Suite 188, Buffalo, NY 14215 Canada: 7 Jackes Ave., Suite 502, Toronto, Ontario, M4T 1E3 (416)960-1089 Atari is a trademark of Atari, Inc. PROBUHNEFl USERS MANUAL. THOMPSON ELECTRONICS over Adventure, the program structure comes nowhere near the complexity of an Infocom adventure. Also, some com- mands which should work, according to the manual, simply don't. Finally, although the game does have a plot, it isn't much more than the usu- al search plot. It's true that there are rid- dles to solve and people to meet, but the riddles aren't very challenging, and the people are less than two dimensional. The manual explains all versions of the game for the various systems (Apple, Atauri, and so forth). While allowing you to start play, and answering some of the basic questions, it lacks depth and sup- plies little background story or helpful hints. Call the exterminator! The program is full of bugs, probably due to inadequate testing. There isn't room to mention all the bugs I found, but they are both an- noying and deadly. Some commands cause objects in your possession to be dropped, and of- ten you cannot exit a certain position — the program tells you that it doesn't even recognize RESTART GAME, a very im- portant express command. When this happens, you must reboot the game and start anew. So, while Serpent's Star shows great improvement in the graphic adventure, it is still not enough to win me back from Infocom. However, if colorful im- ages are more important to you than strong plot and characters, then the Ser- pent's Star is for you. Well, that just about rounds it up for this time, but before I power down, I'd like to thank Perfect Computers of Niles, Ohio for their assistance in the creation of this article. D Steve Panak is a banking computer operator and free-lance writer Jiving in northeastern Ohio. He holds a B. S. in B.A. and currently attends Jaiv school, where he develops sojXvjQTe to teach complex lege) concepts. In his spare time, he enjoys computer games. CIRCLE #127 ON READER SERVICE CARD PAGE 72 / MAY 1985 ANALOG COMPUTING iOIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ IIIIIIJIIIIIII 1 ATARI POWER WITHOUT THE PRICE AT. . .COMPUTER CREATIONS ATARI HARDWARE '■ COMPUTERS ■Atari 800 XL CALL : Atari 65 XE FOR NEW : Atari 1 30 XE PRICES COMPUTERS Atari 130 ST Atari 520 ST : Atari 1050 I Indus GT (Free Software) ] Astra 2001 : Happy Enhancement for Atari : 810 and 1050 Drives DISK DRIVES CALL Atari SF 324 (3V: FOR Atari SF 364 (3V; NEW Atari SH 317 O'i PRICES ■ floppy disl< 250K1 ' floppy disl< 500K) liarddisk 10 IvIB) = PRINTERS = Atari XTM 201 (Non-impact - Dot lulatrix 20 OPS) ^ Atari XTC 201 (Color, non- - impact Dot fvlatrix E 20CPS) = Atari XDM 121 (Daisy Wtieel E Letter Quality 12 CPS) CALL Z Atari Xlvllvl 801 (Dot (vlalrix, ^ impact 80 CPS) FOR Z Atari 1 025 (Dot fvlatrix, Impact - CPS) NEW ^ Atari 1027 (Letter Quality) ... : Atari ST 504 (Color Dot Matrix, PRICES Z non-Impact 50 CPS) ; Atari 5 DM 1 24 (Daisy Wheel : Letter Quality, 1 2 CPS) .. . = Atari SMM 804 (Dot Matrix, 2 ImpactSOCPS) E STAR MICRONICS PRINTERS : SG-IO (80 column) ; SG-15 (136 column) CALL : SD-10 (80 column) FOR - SD-15(136 column) PRICES ; SR-10 (80 column) : SR-15(136 column) - Powertype Daisywtieel : EPSON PRINTERS : Epson RX-80-1- (80 column 249.00 ; Epson RX-80-f FT (80 column) ... 31 9.00 : Epson FX-80-1- (80 column) 429.00 : Epson Rx 100-1- (135 column) ... 419.00 : PRINTER INTERFACE CABLES I fvlPP-Microprint 47 ;MPP-1 150 Parallel Printer Z Interface 57 1 fvlicrobits fvlicrostufter 1 07 : PRINTER RIBBONS 2 Gemini Printers (Biacl^Biue/ : Red/Purpie) 3 - Epson Printers 7 : OTHER HARDWARE I Atari 1010 Program Recorder 44 ; Atari 0X77 Touch Tablet CALL : Atari Light Pen CALL : Microbits64K(600XL) ; Expansion 59 : Ram Rod XL w/ Omnimon I for 800 XL 99.00 ; Omniview for 800 XL 49 : B.I. 80 Column Display Adaptor .... CALL MONITORS (Free cable Included) Atari XC 141 (14" Composite Color) Atari Xfyl 148(12" CALL Monochrome, 80 column, FOR low resolution) PRICES Atari SM 124(12" Monochrome, 80 column, high resolution) Atari SC 1 224 (1 2" RGB Color) Sanyo 12" Green Screen 79 Sanyo 1 2" Amber Screen 79 Sanyo Color Screen, 13" 209 Sanyo 9" Green Screen 69 Monitor Cable 9 Teknika 13" Color 209 MODEMS Atari 1030 Direct 300 Band Connect CALL Atari XM 301 Direct FOR Connect 300 Band PRICES MPP-IOOOE Modem 114 Signalman Mark XII Modem with R-Verter 299 Mark X with R-Verter 1 69 CompuServe Starter Kit 24 DISKETTE/CARTRIDGE/ CASSETTE FILES Flip'l^' File 10 4 Flip'N' File 15 7 SOFTWARE ATARI Logo(R) 62 Prog. 1, 2 or3(C| 18 Assembler Editor (R) 27 Macroassembler (D) 19 Microsoft Basic II (R) 45 Basic Cart. (R) 5 AlariWriter(R) 31 Family Finances (D) 18 Home Filing Mgr. (D) 21 Teielink I (R) 21 Visicalc(D) 39 Juggles House (C/D) 16 Mickey in Great Outdoors (D) 21 Skywriter (R) 16 Atari Music i or II 18 Speed Reading 27 Conv. Languages (ea.) 21 GENERIC DISKS AT FANTASTIC PRICES! GENERIC DISKS AS LOW AS 94<tes. Generic 100% Defect-Free/Guaranteed. Includes sleeves, labels, write protect tabs, reinforced hub rings, lifetime warranty. (2 boxes minimum) SS/SD DISKETTES 2 boxes 11.99 (2 bx. minimum) 3-9 boxes 10.50 10 per box 10-fboxes 9.40 • • DEALER INQUIRIES INVITED • * SS/DD DS/DD 13.99 15.99 12.50 14.50 11.49 13.99 Video Easel 18 Type Attack 16 Asteroids 10 States & Capitals 3 Ms. Pac-Man 29 Joust 29 Dig Dug 29 JungieHunt 14 Donkey Kong 29 Eastern Front 10 Robotron 29 EPYX Dragonriders of Pern (D) 25 Summer Games 25 Pitstop II (D) 25 Ballblazer(D) 25 Rescue on Fractaius (D) 25 Temple of Apshai (D) 23 ACCESS Beach Head(D) 23 Beach Head II (D) 23 Raid Over Moscow (D) 26 ACTIVISION Decathalon (R) 19 Pitfall ll(R) 19 Space Shuttle (R) 19 Ghost Busters (D) 21 AMERICAN EDUCATIONAL Spelling Grades 2 thru 8 (D) 15 Reading Comprehension (D) ... . 19 BATTERIES INCLUDED Paperclip (D) 59 BRODERBUNO Home Pak Printship (D) 29 Spelunker (D) 19 Stealth (D) 19 Whistler's Brother (D) 19 CBS Call for items and prices CONTINENTAL Home Accountant (D) 44 DATASOFT Bruce Lee 23 Dallas Quest 19 Conan 25 Letter Wizard w/spelier 47 ELECTRONIC ARTS Archon (D) 29 Pinbail Construction (D) 29 M.U.L.E.(D) 29 Murder/Zinderneuf (D) 29 One on One (D) 29 Archon ii (D) 29 Music Construction (D) 29; Realm/impossibility (D) 29 ; Hard Hat Mack 25 : AXIS Assasin 25 ' INFOCOM Cut Throats (D) 23 ^ Deadline (D) 29 ■ Enchanter (D) 23 1 Hitchhiker's Guide to - the Galaxy (D) 23 " infidel (D) 26 : Pianellaii(D) 23 ^ Sea Stalker (D) 23 ; Sorcerer (D) 26 I Starcross(D) 29- Suspect (D) 29 ; Suspended (D) 29: Witness (D) 23 - Zork 1(D) 23 ; Zork 11 or III (D) 26 : Invisiclues Hint Books 7 ' MICROPROSE : F-1 5 Strike Eagle (D) 21 : Mig Alley Ace (D) 21 ^ Solo Flight (D) 21 : OSS ; Action (R) 57 ; Action Tool Kit (D) 251 Basic XL (R) 57 I DOS XL (D) 25; MAC/65 (R) 59 1 MAC/65 Tool Kit (D) 25 I ORIGIN : Ultima III (D) 39: SCARBOROUGH : Masterfype 25 z Net Worth 49 Z SIERRA ON LINE = Ultima I 23 z Ultima 11 39 Z SPINNAKER : Call for items and prices z SYNAPSE Z Quasimodo 15- AlleyCat 15 Z Syn-File + 35 Z Syn-Calc 35 E Syn-Trend 35 Z Syn-Comm 25 — Syn-Stock 25 E TRONIX E S.A.M 39 Z Chatterbee 25 - To order caU TOLL FREE 1-800-824-7506 ORDER LINE ONLY COMPUTER CREATIONS, Inc. P.O. Bo 292467 - Dayton, Ohio 45429 For information call: (513) 294-2002 (Or to order in Ohio) Order Lmes Open 8:30 a.m. to8:00 p.m. Mon.-Fri.; 1 a.m. to4:00 p.m. Sat. (Eastern Standard Time). Minimum $10 per order. Orders under $1 00 add $3.00. C.O.D. (add $3.00). Call loll free number to verify prices and availability of product. Actual freight will be charged on ail hardware. Software and accessories add $3.00 shipping and handling in Continental United States. Actual freight will be charged outside U.S. to include Canada, Alaska, Hawaii, Puerto Rico. Ohio residents add 6% sales tax. Free shipping on prepaid cashorderswithintheContinentalU.S. For immediatedelivery send cashier's check, money order or direct bank transfers. Personal and company checks allow 3 weekstoclear. School purchase orders welcome. Due to our low prices, ail sales are final. NO CREDITS. All defective returns must have a return authorization number. Please call (51 3) 294- _200_2_top_btairi_an_RA# or your return will not be accepted for replacement or repair. CIRCLE #128 ON READER SERVICE CARD IT? Ml Lowest Price In The USA ! atI^i Computer System Sale • Students • Word Processing • Home • Business $449 LOOK AT ALL YOU GET FOR ONLY *r ^^ ^ SYSTEM PRICE ©Atari 800XL 64K Computer (D Atari 1050 127K Disk Drive ©Atari 1027 Letter Quality 20 CPS Printer Atari Writer Word Processer Atari BASIC Tutorial Manual LIST PRICE $299.00 399.00 399.00 79.95 16.95 INDIVIDUAL SALE PRICE $109°° 189°° 199°° 39" 12" SAVE $100 All 5 ONLY $4/1900 SYSTEM SALE PRICE All conneding cables S T.V. interface included. '; Monitors sold separetly. TOTALS $1193.90 $549.90 IVIONITOR OPTIONS: 12" Hi Resolution Green or Amber Screen 13" Hi Resolution Color List $199.00 $399.00 Sale 99.00 195.00 Add S9.95 for Connection Cables and SlOfor UPS 15 DAY FREE TRIAL. We give you 15 days to try out this ATARI COMPUTER SYSTEM! ! If it doesn't meet your expectations, just send it back to us prepaid and we will refund your purctiase price! ! 90 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of tfie ATARI COMPUTER SYSTEM equipment or programs fail due to faulty workmansfiip or material within 90 days of purchase we will replace it IMMEDIATELY with no service charge ! ! Best Prices • Over 1000 Programs and 500 Accessories Available * Best Service • One Day Express Mail * Programming Knowledge * Technical Support Add $25.00 for shipping and handling!! Enclose Cashiers Check, Money Order or Personal Check. Allow 14 days for delivery. 2 to 7 days for phone orders. 1 day express mail! We accept Visa and MasterCard. We ship C.O.D. to continental U.S. addresses only. COMPUTER DIRECT We Love Our Customers Box 1001, Barrington, III. 60010 312/382-5050 to order CIRCLE #129 ON READER SERVICE CARD FANTASTIC PRINTER ^24'' SALE!! ^24'' Cammadare 64 — VIC 20 — A tart -^ 40 And 80 Column Printers 1^ Up To 100 Characters Per Second i^ Full Graphics Capability ^ Upper And Lower Case i^ Advanced Thermal Technology For Quiet Operation 3150 Alphacom 81-100 CPS 80 Column Printer Now you can hove a printer for the cost of a large box of paper. This printer prints in upper and lower case with true lower descenders. Comes with 1 roll of paper and power adapter. With the intelligent interfaces (sold below) you can do Ascii graphics as well as Atari or Commodore graphics. Plus you can do underlining and expanded modes. Print out pictures, program listings, word processing pages, etc. Perfect for the student or homeowner. List $199.00. Sale $39.95. 80 Column Extra Paper LIST SALE 3153 40 Meter Rolls Blue S14.95 $3.95 3154 40 Meter Rolls Black $19.95 $4.95 3155 25 Meter Rolls Blue (2 per pkg.) $19.95 $7.95 3156 25 Meter Rolls Black (2 per pkg.) $19.95 $8.95 3100 Alphacom 42-80 CPS 40 Column Printer Print out listings with full computer character sets (interface required, see below). Print in upper and lower case. Comes with a roll of paper and all power adapters needed. Perfect for a spare printer or program lister. List $99.00. Sale $24.95. 40 Column Extra Paper LIST SALE 3103 25Meter Rolls Blue $9.95 $3.00 3104 40 Meter Rolls Blue $16.95 $3.95 3105 25Meter Rolls Black (1 per pkg.) $12.95 $3.95 3106 25 Meter Rolls Blue (2 per pkg.) $19.95 $5.95 3107 25 Meter Rolls Black (2 per pkg.) $19.95 $5.95 3101 Intelligent Commodore Interface — Allows you to hook the 40 or 80 column printer to the Commodore 64, do program listings, allows software screen dumps, etc. Includes Commodore graphics and reverse characters. (Specify 40 or 80 Column) List $59.95. 40 Column Sale $9.95. 80 Column Sale $14.95. 3102 Intelligent Atari Interface — Allows you to hook the 40 or 80 column printer to the Atari computer, do program listings, allows software screen dumps, etc. Includes Atari graphics and reverse characters. (Specify 40 or 80 Column) List $59.95. 40 Column Sale $9.95. 80 Column Sale $14.95. Add SIO.OO for shipping, handling and insurance. Illinois residents please add 6% tax. Add S20.00 (or CANADA, PUERTO RICO, HAWAII, ALASKA. APO-FPO orders. Canadian orders nnust be in U.S. dollars. WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. Enclose Cashiers Check, Money Order or Personal Check. Allow 14 days for delivery. 2 to 7 days for phone orders. 1 day express moil I VISA — MASTER CARD — C.O.D. No C.O.D. to Canada. APO-FPO We Love Our Customers Box 550, Barrington, Illinois 60010 312/382-5244 to order CIRCLE #129 ON READER SERVICE CARD 16K Cassette or 24K Disk HOME USE IlilBI Loan Shark A payment calculator for home use by Marty Schmidt Almost everyone has. at one time or another, borrowed money. Loan Shark will enable you to calculate what the payments would be. "Big deal," you say, "Those programs are a dime a dozen." Maybe so. Loan Shark, however, does more. A loan has four variables. They are: principal, interest rate, number of payments and payment amount. This pro- gram will compute any of them for you if you enter the other three. Also, if you enter all four items, the remaining bal- ance (or balloon payment) will be displayed. Each time you enter a set of data, all four items and the total interest paid will be displayed on the same line under their respective column headings. You can try many different combinations and compare results, since all data will remain on the screen. Using Loan Shiarlt. To use the program, simply enter the values as they are requested at the bottom of the screen. Press RE- TURN without an entry to skip the unknown item. When entering the principal and number of payments data, you can enter two values separated by a plus, minus, multiplication or division sign. This can save time, as you can enter the numbe]- of years times twelve for the number of payments. without having to figure it out in advance. It's very handy when using data with a long re- payment schedule [a home loan). You can enter the original amount minus the down payment when you are prompted for the principal, another time- saver. In the unlikely event that you should fill the screen and then enter more data, you will receive a prompt to turn your printer on, if you have one — or else copy the numbers you want to save. When you proceed, the screen will clear. If you do have a printer, the column headings and all data will be printed. The data can be printed at any time by en- tering P when prompted for the principal or num- ber of payments. The program. The colors for the display were generated using PAGE 76/ MAY 1985 ANALOG COMPUTING Richard Kalagher's Multiple Screen Generator (in ANALOG Com- puting's issue 12). Loan Shark uses graph- ics with a text win- dow. To employ this technique, first open a chaimel to write to the screen (OPEN #6,8,0,"S:"J, then you can POKE 703,4. When you print to the upper twenty hues, use a PRINT #6 com- mand. The top hnes will not scroll with the bottom four lines, but will remain on the screen. The text window can then be used for input prompts and other instructions, and cleared with a simple clear screen command. Following are three subroutines from this program which can, with minor changes, be incorporated into your programs. 1. (Lines 90-210) Format output, similar to a PRINT USING command in some BASICS. Before the subroutine is called, set PIC$ equal to the format you want. Put the deci- mal point where you wish and include a dollar sign and/or trailing zeros, if desired. Set NU equal to the number you want formatted. Call the subroutine and PRINT FRMS (Lines 870-960). Your number will be rounded to the number of places to the right of the decimal in PIC$ and trailing zeros will be added if you included them in PIC$. Using this subroutine, you can right justify, add trailing zeros, round off and include any special characters, all in one step. This is the most versatile formatting routine I have seen for the Atari. 2. (Lines 230-340) Two number input. The BASIC on my pocket computer enables me to enter a series of numbers separated by arithmetic operators, all in one step. For instance, you can en- ter 247-119, and the value 128 will be entered. Atari BASIC does not allow this, so I wrote a simple subroutine enabling entry of a sign ( + , - , *, /) be- tween two numbers. You input to Q$, call the subrou- tine, and the variable X contains the result. This subroutine, as used here, also checks for the ANALOG COMPUTING MAY 1985/ PAGE 77 ililii Loan Shark continued print (P] and quit (Q) commands. Since it's used only when entering the principal and number of payments, the print and quit commands will only be recognized when entering these values. 3. (Lines 1040-1140) Graphics screen dump. This subroutine creates TEXT$ from a screen line, character by character. The outer FOR-NEXT loop contains the rows to be read, and the inner loop reads the columns. The column and row values can be changed so only part of the screen is sent to the printer. The inverse control T char- acters in Line 1100 are to underline the headings using a C.Itoh Prowriter. If you have a different printer, this character may have to be changed accordingly. Here's a brief outline of the Loan Shark program. Lines 90-210 — Right justify output and add trailing zeros. Lines 230-340 — Allow two-number input, separated by +, -, *, or /. Line 360 — Compute payment. DRAPER PASCAL For the Atari 400/800 or XL series computers • Many features from botfi UCSD and ISO standard Pascals plus many extensions such as sound and graptiics, to make use of tfie versatile Atari fiardware. • Character, String, Integer, Real, Boolean, and File data types supported. • Single dimension arrays for all data types other than File. • Only one disk drive (and 48K RAM) are required. Multiple, and double density disk drives are supported. • Includes Editor program (Pascal source included) to create, modify, and print Pascal source files, or other text type files. • Includes Main Menu program (Pascal source Included) for easy selection of Compiler, Editor, or utility functions, such as directory or file listing. Main Menu program may be replaced with a user written program to create a turnkey operation. • Easy to use. No linking required. Compile and execute im- mediately. • Comprehensive user manual included. Complete examples and BASIC equivalents given for each reserved word. • Machine language subroutines may be loaded and called. • No limit on source program size. "Include" files supported. • Execution debugging features include Instruction trace and stack display. • One pass compiler generates pcode directly. • Program chaining is supported. • Royalty free license included. • Bugs fixed free, if encountered. • Backup diskette now included. • Includes sample programs. • Satisfaction guaranteed. Return within 30 days if not satisfied. • Price: $64.95 (NEW LOW PRICE) To Order: Visa/Mastercard, check, money order, and COD accepted It charge, please include expiration date ol card. Add $2.IX lor shipping and handling. Add $1.65 lor COD orders. Mail and phone orders accepted. Phone answered 24 hours Monday through Saturday Same or next business day shipping on most orders. Immediate shipping on check orders. No wait lor check clearance required. Dealer Inquiries Invited DRAPER SOFTWARE 307 Forest Grove Richardson. Texas 75080 (214)699-9743 Atari is a trademark of Atari. Inc CIRCLE #130 ON READER SERVICE CARD Lines 370-400 — Print heading and instruc- tion lines. Line 410 — Start of main program. Lines 440-590 — Input data. Line 610 — Compute principal. Lines 650-730 — Compute interest rate using trial and error method. Line 750 — Compute number of payments. Line 810 — Compute balloon payment. Line 830 — Compute total interest. Lines 860-1020 — Print data to the screen. Lines 1040-1140 — Print screen to printer. Lines 1150-1220 — Prompts to turn printer on or copy data to avoid loss. Lines 1230-1260 — Clear screen of data. Lines 1280-1520 — Screen color generator. There you are. I hope Loan Shark helps you stay out of the hands of the Big Boys. D Marty Schmidt has been a pattern maker by trade, for twenty-one years. He's had an Atari 800 for the past two and oiie-haJf years and has been using it for family /inanciaJ and record-keeping purposes, word processing and — let's not forget — entertain- ment. Listing 1. BASIC listing. 50 REM KMMMKMKKMMlCmClCKllKmCMMMKK 51 REH * L0AN5HARK * 52 REM » BY » 53 REM « MARTY 5CHM1DT » 54 REM KMMmcmCltKMMMKldCKKKMMKWKM 80 OPEN tt6,8,K0,"5:":0PEH 1*2, 4 , K0,"5 :" 90 A=34:P0KE 559,K0:G05UB 30000: POKE 7 12, 186: POKE 559, A: GOTO 1000 95 REH FORMAT NUMBERS 100 FD=K0:FRMS=PICS 110 FOR J=l TO LENfFRM$3 120 IF FRMlfJ,J}="." THEN FD=LEHCFRMSJ -J:G0T0 140 130 NEKT J 140 IF FD=KO THEM NUttS=5TR5 tINT f NU+0 .5 )] :G0T0 180 150 H=IHTC10AFD+0.5) 160 NU=INTCNU«H+0.5}/H 170 NUM:S=5TR$(NU} 180 FOR K=:l TO LEN(N1JM$} 190 IF II1JMS(K,K>="." THEN 210 280 NEKT K 210 FRM5 C J-K+l , J-K+LEN CNUM$) ) =NUM:$ 220 RETURN 300 REM INPUT ROUTINE 310 FOR L=l TO LEN(Q$) :M=ASCCQ$(L,L)] 320 IF M=46 THEN 350 330 IF H=81 THEN POP : GRAPHICS Ke:POKE 82 2 : NEH 335 'if M=80 THEN TRAP 5300:G05UB 5010: POP :G0T0 1840 340 IF M<48 OR H>57 THEN 370 350 NEKT L 360 X=UAL(Q:S) : RETURN 370 Y=VALtQSJ :Z=UAL C0$ (L+1 , LEN CQ$}} } 380 IF H=43 THEN K=Y+Z: RETURN PAGE 78 /MAY 1985 ANALOG COMPUTING aaa, llili Loan Shark continued 390 IF W=45 THEN X=Y-Z: RETURN 400 IF W=42 THEN X=V»Z: RETURN 410 IF U=47 THEN X=Y/Z: RETURN 490 REM FIGURE PAYMENT 580 TE5T= {P-B*C1+I) ^-N) / C CI- Cl+IJ a-M) / 1} : RETURN 600 POSITION KO,Ke:? «6;" PRINCIPAL APR tt PAYMENT TOTAL INT" ;: RETURN 790 POSITION K0,19:? ttO; "RETURN TO SKI P : P TO PRINT : TO QUIT"; : RETURN 1000 POKE 82, KO: POKE 703, 4: POKE 755, KO :GOSUB 600:G0SUB 700 1010 DIM PIC5C15J ,FRM$C15),NUM$C15},Q$ C30),TEXT$C1000) 1030 REM INPUT DATA 1040 P=KO:0=Ke:N=KO:H=:Ke:TRAP 1300 :GOS UB 700: POSITION K0,20:? "H PRINCI PAL "; 1845 POKE 85, 20: INPUT Q$:IF OS-"" THEN X=KO:GOTO 1060 1050 GOSUB 300 1060 P=X:B=KO 1070 TRAP 1080:? " ANNUAL X ";:P OKE 85, 20: INPUT 0:1=0/1200 1080 TRAP 1300:? "NO. OF PAYMENTS ";:P OKE 85, 20: INPUT Q$:IF 0$="" THEN X=KO: GOTO 1180 1090 GOSUB 300 1108 n=x:trap 1208:? " payment ";:poke 85, 20: input M 1200 trap 1300:? "h":color 32:pl0t ko , 19:draht0 39, 19: if p=ko then 1400 1218 if q=ko then 1500 1220 if n=ko then 1600 1230 if n=ko then 1700 1240 GOTO 1800 1300 ? "«► IMPROPER VALUE !":FOR 1=1 TO 400: NEXT I 1310 ? :? "► PLEASE TRY AGAIN. ":F0R I =1 TO 400: NEXT I 1320 GOTO 1040 1390 REM FIGURE PRINCIPAL 1400 P=M» I (1- Cl+IJ '^-NJ /IJ + CB» Cl+IJ A-iij 1410 GOTO 1900 1490 REM FIGURE INTEREST RATE 1500 POKE 559,K0:Q=Q+l:I=Q/1200:G0SUB 500:IF TEST=M THEN POKE 559,A:G0T0 190 1510 IF TEST>M THEN 0=Q-1:G0T0 1530 1520 GOTO 1500 1530 Q=0+0.1:I=0/1200:G0SUB 500:IF TES T=M THEN POKE 559, A: GOTO 1900 1540 IF TEST>M THEN 0=Q-0.1:G0T0 1560 1550 GOTO 1530 1560 0=0+0.01 :I=Q/1200:G0SUB 500:IF TE ST>=M THEN POKE 559,A:G0T0 1900 1570 GOTO 1560 1590 REM FIGURE NUMBER OF PAYMENTS 1600 N=LOG C CM-I»BJ / CM-I*P J J /LOG Cl+IJ 1610 GOTO 1908 1700 GOSUB 500:M=TEST 1710 GOTO 1900 1800 B=CP-MKC1- Cl+IJ A-HJ/IJ/C Cl+IJ >^-NJ 1810 FLAG=1 1900 INT=M»N-CP-BJ 1990 REM PRINT DATA TO SCREEN 2808 LINE=LIHE+1:IF LINE> CIS- CFLAG=1J J THEN GOSUB 5000 :LINE=KO : GOSUB 6080: GO TO 2000 2805 POSITION KO ,LINE : PICS="S .0 0":NU=P:GOSUB 100 2010 ? tt6;FRH$; 2020 PICS = "| . 00" :NU=Q: GOSUB 100 2030 ? lt6;FRMS; 2040 PICS="( ":NU=N:G0SUB 100 2050 ? tte;FRM$; 2060 PIC5="|$ .00":NU=M:GOSUB 100 2070 ? tt6;FRM5; 2880 PICS="|S . 80" :NU=INT: GOSUB 10 2898 ? tt6;FRM$; 2100 IF FLAG=1 THEN 3088 2178 GOSUB 788: GOTO 1040 3008 FLAG=K8 3818 PICS="S . 88" :NU=B: GOSUB 188 3020 LINE=LINE+l:POSITION KO,LINE:? tt6 ;"PAYOFF AMOUNT FOR ABOVE IS ";FRMS; 3848 GOTO 2178 4998 REM PRINT DATA TO PRINTER 5008 TRAP 5280 5818 POKE 54286, 64: FOR R0H=K8 TO 18:P0 SITION PEEKC82J,R0H 5020 FOR C0L=1 TO 40:GET tt2 , CHAR: TEXTS CCOL , COL J =CHR$ CCHARJ 5030 NEXT COL:GET tt2,C0L 5035 IF TEXTS CI, 2J=" " THEN 5100 5040 LPRINT TEXTS 5845 IF R0H=K8 THEN LPRINT "tmillMtl tT!lfllllT!llffHlllT!Ilf!!T fTT " : Vo l» s 858 5846 LPRINT 5858 NEXT ROH 5188 POKE 54286, 192: RETURN 5288 POSITION K0,19:? ItOj" PRESS ANY KEY TO CONTINUE. "; 5205 POKE 54286,192:? "IS THERE IS N PRINTER ON LINE!!":? " IF YOU PROCE ED HITHOUT A PRINTER THE" 5218 ? " DATA NOH ON THE SCREEN HILL BE LOST." 5220 OPEN «3,4,K0,"K:":GET tt3,KEY:CL0S E tt3 5230 TRAP 5188: GOTO 5018 5388 POSITION K8,19:? tt6;" PRESS ANY KEY TO CONTINUE. 5310 ? "H* TURN YOUR PRINTER ON ":? " IF YOU HANT THE ABOVE DATA PRI NTED! !" 5328 POKE 54286, 192: GOTO 5220 6888 FOR R0H=1 TO 18 6010 COLOR 32:PL0T K8,ROM:DRAHT0 39, RO 6828 NEXT ROM 6030 RETURN 30008 REM INITIALIZE SCREEN 38005 RESTORE 30170: FOR N=Ke TO 99:REA D X:POKE 1664+N,X:NEXT N 38018 C0LTAB=1712 : LUHTAB=C0LTAB+24 38814 X=USRC1693J 38830 P8KE 512,128 38848 POKE 513,6 38868 DSTART=PEEK C568J +256*PEEK C561 J 38870 FOR N=DSTART+6 TO DSTART+28 38888 POKE N,13e 38098 NEXT N 38188 POKE DSTART+3,194 38128 POKE 54286,192 38125 PRINT CHRSC125J 38148 POKE 718, PEEK CCOLTABJ 38158 POKE 709, PEEK CLUMTABJ 38168 RETURN 38178 DATA 72,138,72,174,156,6,189,176 ,6,141 38188 DATA 18,212,141,24,288,189,288,6 ,141,23 38198 DATA 208,238,156,6,184,178,184,6 4,14,104 38288 DATA 169,7,168,168,162,6,32,92,2 28,96 38218 DATA 169,1,141,156,6,76,98,228,1 62,178 30228 DATA 156,170,156,170,156,178,156 ,170,156,178 38230 DATA 156,178,156,178,156,178,156 ,162,284,284 38240 DATA 204,204,14,0,0,8,0,8,8,8 ANALOG COMPUTING MAY 1985 / PAGE 79 DOES YOUR COMPUTER THNK FASTR THN IT CN PRNT? Most computers do. That's why they're computers and not printers. That's also why you need the PRINTER BUFFER from Digital Devices. The PRINTER BUFFER accepts information at your computer's high speed, stores it (up to 32 pages at a time), then re-transmits at the slower speed required by your printer. So you and your computer can go on doing what you do best — thinking and working. Instead of waiting. The PRINTER BUFFER works with any standard "Centronics" parallel computer or printer, including Digital Devices' U-PRINT printer interfaces for Apple, Atari, and Com- modore computers. Available in 16K, 32K or 64K models. The PRINTER BUFFER is user-expandable in 16K increments. Perhaps best of all, the PRINTER BUFFER comes complete with all necessary cables, power supply, a comprehen- sive user's manual, a one-year limited warranty — and a price tag starting at $119.95. Call our Toll Free number, (800) 554-4898, for the dealer nearest you. PRINTER IMUai] from DIGITAL DEVICES §> Corporation 430 Tenth Street, Suite N205 Atlanta, Georgia 30318 In Georgia, (404) 872-4430 ■ 198^ by Digilal Devices Corporation. Apple, Atari, and Commodore are registered trademar!<s of Apple Computers, Inc.; Atari, Inc.; and Commodore Electronics Ltd. respectively. lUl Loan Shark continued 30258 DATA 0,0,0,6,0,0,0,0,0,0 30260 DATA 0,14,0,0,0,0,0,0,0,0 CHECKSUM DATA. (see page 34] 50 DATA 275,615,999,968,287,293,752,15 2,741,140,177,739,486,511,5,7140 170 DATA 235,189,389,734,411,589,79,77 0,498,391,776,749,753,56,550,7169 380 DATA 222,233,196,219,385,964,575,5 47,405,235,892,444,582,724,963,7586 1070 DATA 581,693,728,938,565,932,933, 936,714,393,513,715,799,212,718,10370 1490 DATA 95,523,442,718,544,948,727,5 80,735,924,328,724,847,727,278,9140 1810 DATA 419,338,958,247,676,812,97,8 14 , 957 , 816 , 289 , 818 , 653 , 820 , 939 , 9653 2170 DATA 14,679,113,79,722,213,681,43 8,525,241,714,383,200,811,87,5900 5100 DATA 485,966,555,836,66,963,969,9 93,428,645,327,86,792,878,847,9836 30010 DATA 738,173,237,201,593,575,213 ,687,991,348,788,544,595,57,670,7410 30188 DATA 830,76,821,689,247,241,637, 233,497,4271 PARTS/SERVICE FOR ATARI* COMPUTERS FLAT SERVICE RATES BELOW INCLUDE PARTS AND LABOR, 60-DAY WARRANTY 800 Compuler Repair , S65.00 810 Disk Drive Repair 379.50 . $6750 600XL Compuler Repair . . S6500 850 Interlace Repair S60.00 1200XL Compuler Repair S65.00 410 Data Recorder Repair S42.50 INTEGRATED CIRCUITS REPLACEMENT/ GTIA Chip C014805 upgrade with instritclions S11.50 BACKUP lOK Rev. B OS Upgrade lor 400/800 BOARD SETS. 3-Chip ROM set with instructions S1250 Pokey Chip C012294 5850 800 OK Antic Chip C012296 S10.50 800 48K SI 22.50 PIA Chip C014795 SHOO SI 5.00 S12 50 400 OK S52.50 Basic ROM sel 810 Board Sel S1 10.00 All Boards complete with ICs. etc MODULES/CIRCUIT Keyboards not included BOARDS. ..complete with IC's MISC. 16K RAW Memory IVlodule CX853 $24.50 810 Rear Board/Analog Board Upgrade 800 10K Rev. B OS Module $18,50 with 10-pin jumper 800MOO CPU Board wiltl GTIA $24,50 and mslructions S39.50 800 Mam Board S2850 Editor Assembler $25-00 400 Main Board $26,50 BASIC Carlridge 400 Main Board w/o ICs $8,50 wM Case. Manual S23.50 800 Power Supply Board $10,50 Cartridge Circuit Boards S3.50 810 Data Separator Board Non-Atari" Cartridge Boards SI. 50 upgrade wilti instructions $25,00 Replacement 810 Drive Mech S85.00 810 Side Board w/o Sep & 1771 $43,50 Replacemenl Power Transformer SI 6.50 810 Rear Power Board $25,00 SAMS Service Manual 810 Analog Board -316,00 for 800 or 4O0 S17,50 ea AMERICAN TV 415-352-3787 Mail Order and Repair 15338 Inverness St., San Leandro, CA 94579 Retail Store 1988 Washington Avenue, San Leandro, CA 94577 Terms; We accopl money orders, personal checks or C D.s VISA, MasterCard okay on orders over S25.00. No personal checks on C.O.D, Shipping. S4 00 shipping and handling on orders under 5150.00. Add S2 00 tor C.O.D, orders Cali- fornia residents include 6V2% sales lax Overseas shipping extra Prices subject to change without notice. We reserve the right to limit quantities. Sales limited to stock on hand. Above units repaired or exchanged with rebuildabfe exchange. Include S7.00 return shipping and insurance. Foreign shipping extra. Much more! Send SASE for free price list. Repair/upgrade services available. Call. 'Atari is a registered trademark of Atari Corp. CIRCLE it^32 ON READER SERVICE CARD CIRCLE #131 ON READER SERVICE CARD PAGE 80 /MAY 1985 ANALOG COMPUTING Li;co Computer Marketing & Consultants '■PEOPLE WHO KNOW WHAT THEY WANT AND KNOW HOW TO USE IT RECEIVE THE LOWEST PRICES AT LYCO" ^^ I SAVE " PRINTERS I ^^ AXION GP 550 AT (Atari) 249 GP 550 CD C-64) 249 GP 550 PC (IBM) 239 GP 550 AP (Apple) 279 GP 700 AT (Afari) 459 GP 700 AP Apple) 459 Elite 5CD (C-64) 329 BLUE CHIPS M12010 $275 M120)0 C-64 $276 C. ITOH Prowriter 8510 AP 279 8510 BC2 389 8510 BP1 319 8510 SP 379 8510 SR 429 8510 SCP 459 8510 SCR 479 7500 AP 205 7500 AP 245 1550 P 449 1550 BCD 489 A-10-20-P ....459 F 10 40 PU or RDU 888 F10 SSPU or RDU 1069 CARDCO LQ1 369 LQ3 279 CITIZEN MSP-10 329 MSP-15 499 MSP-20 479 MSP-25 649 COMREX CR-II-EC Comriter HE Parallel 359 CR-II-ES Comriter II E Parallel 379 CR-IV-C Comriter IV Parallel 689 CR-IV-S Comriter IV Serial 689 Corona LP300 Laser Prmler 2699 200361 Toner Cartridge.. . 89 DIGITAL DEVICES 16K orinler buffer 99 75 32K printer buffer 119 75 64 K printer buffer 169 95 EPSON RX-80 225 RX-80 FT- 279 FX100' 579 JX 80 529 LO 1500 P 1089 LQ 1500 S 1149 HI-80 Color Plotter 399 JUKI Juki 6100 379 RS 232 Serial Board 55 Tractor 119 Sheet Feeder 209 Juki 6300 769 LEGEND 1080. 1200. .219 .239 .249 iC PRINTER ^ INTERFACING Available MANNESMANN TALLY Spirit 80 255 IVfTL-ieOL 549 MTL-180L 739 NEC NEC 8025 $699 NEC 8027 $359 OKIDATA Okimate 10 179 82A 295 84 645 92 349 93 565 92lmagewriter 425 92 IBM Version 349 OLIVETTI DY 250 Parallel 739 DY 250 Serial 729 DY 450 Parallel 1099 DY 450 Serial 1079 PANASONIC 1090 189 1091 259 1092 395 1093 589 3151 459 Smith Corona f^aslexf 80 189 00 D100 ... 21900 D200 399 00 D300 519 00 LI 000 339 00 STARMICRONICS SG-10 219 SG-15 379 SD-10 339 SD-15 445 SR-10 489 SR-15 585 Powertype 309 Gemini 10X CALL Gemini 15X CALL SB-10 CALL MONITORS MODEMS DISK DRIVES ' AMDEK 300 Green 125 300 Amber 139 310 Amber IBM 155 Color 300 Audio 245 Color 500 Composite 369 Color 600 429 Color 700 495 Color 710 569 GORILLA 12" Green 78 2" Amber 84 NEC JB-1260 Green 95 JB-1201 Green 135 JC 1215 Color 235 JC 1216 RGB 375 JC1460 Color 265 JB-1205 Amber 139 PANASONIC DT 1300 RG1 composite 329 PRINCETON GRAPHICS MAX-12 Amber 189 HX-12 RGB 475 SR-12 RGB 599 ATARI 800 XL Computer CALL 1050 Drive 169 1010 Recorder 44 1020 55 1025 185 1027 239 850 109 SYNAPSE (ATARI) Synfile 34.95 Syncalc 34.95 Syncomm 27.95 Syntrend 27.95 Synchron 27.95 Synstock 27.95 SAKATA SC-100 Color 219 STS1 Stand 29 SG 1000 Green 99 SA 1000 Amber 109 TAXAN 210 Color RBG 249 115 Green 119 116 Amber 125 400 Color RGB 275 410 Color RGB 339 420 Color IBM 429 121 Green IBM 139 122 Amber IBM 145 X-TRON Comcolor 1 Composite Green. 199 ZENITH ZVM 122A Amber 84 ZVM 123G Green 75 ZVM 124 Amber IBM 129 ZVM 131 Color 275 ZVM 133 RGB 389 ZVM 135 Composite 449 ZVM 136 Hi Res Color 589 INNOVATIVE CONCEPTS Flip-n-File 10 3.50 Flip-n-File 15 8.25 Flip-n-File 25 Lock 17.95 Flip-n-File 50 17.25 Flip-n-File 50 Lock 22.95 Flip-n-File Rom 17.25 IVIiCROPOSE Solo Flight 22.75 NATO 22.75 Spitfire Ace 19.95 F-15 Strike Eagle 22.75 GRAPHIC TABLET Super Sketch 32.95 Koala Pad 59.95 MICROBITS MPP 1000 E (Atari) 99.00 HAYES Smartmodem 300 ..189 Smartmoden 1200 ..459 Smartmoden 1200B .389 Micromodem HE .249 Micromodem 100 ..289 Chronograph Smart Com II .179 ...75 INDUS Atari $219.00 m i l i ll rW l ll i y i H i l i HU i I i t i l i l li t l t n j iuMttMtttttMt^ttMMMMtMM DISKETTES CONTINENTAL Home Accountant 44.75 1985 Book ol Alatri Software... 16.95 SUBLOGIC Flight Simulator II 32.75 Night Mission Pinball 18.75 SCARBOROUGH Net Worth 49.95 Mastertype 24.75 Improved Mastertype 24.75 Mastertype's Filer 24.75 SSI Baseball 22.75 Question 26.75 50 Mission Crush 22.75 Broadsides 22.75 Computer Ambush 34.75 SPINNAKER Delta Drawing Room 19.95 Cosmic Life Fioom 19.95 Up for Grabs Room 19.95 ADVENTURE Dishey 29.95 Ultra Disassembler 29.95 BRODERBUND Bank St. Writer 42.75 The Print Shop 29.95 Serpent's Star 24.75 Spelunker 19.95 Stealth 19.95 BUSINESS VISICALC .. : . $159 75 LETTER PERFECT R 59 00 DATA PERFECT $89.75 FILE MANAGER $69 75 HOME FILE MGR $69.75 : .'■' ^Xv* MAXELL 5%" MD-1 16 99 - - - -"^ 5V4" MD-2 23.75 SKC (Box 10) 51/4" SKC-SSSD 51/4" SKC-SSDD '^°^"' ELEPHANT ^B^^V (Box 10) .10.99 ^^^ 5V4" SSSD 13.99 51/4" SKC-DSDD .. ^^M^/K' 1 TOLL FREE 1-800-233-8760 TO ORDER CALL TOLL FREE 800-233-8760 Of send order to Lyco Computer P O Bo« 5088 Customer Service 1-717-327-1825 Jersey Shore PA l 7740 CIRCLE #133 ON READER SERVICE CARD RISK FREE POLICY In-slock Item shipped withm 24 hours of order No deposit on CO D orders Free shipping on prepaid cash orders within the Continental U.S. PA residents add sales tax APO. FPO and International orders add S5 00 plus 3% for priority mail scr^/ice Advertised prices show 4% discount for cash, add 4% for Master Card or Visa Personal checks require 4 weeks clearance before shipoing All items suhiect to change without notice For your protection, we check for stolen credit cards. ENHANCEMENTS TO BASIC FIRST BYTE P.O. Box 32 Rices Landing, PA 15357 Disk $14.95 by Bob Curtin I have friends who own (dare I say it?] that other computer. They poke fun at Atari BASIC with its lack of string ar- rays and its snail-like math package. "Why don't you get yourself a rea] computer?" they scoff. "Your mama," I retort. My quick wit is legend in these parts. Those of us who've been with Atari BASIC for any length of time know pret- ty much how to work around these limi- tations. Besides, with its error checking, graphics and sound commands, plus its easy interface with assembly language subroutines, its benefits far outweigh its detriments. Still, there are times when I've looked wistfully at some of the neat commands and functions available in CP/M's M- BASIC and in versions of BASIC for the Atari other than Atari BASIC. When you need such things as re- numbering, block delete, trace, renam- ing variables, accessing DOS functions, and so on, the lack of these fosters a study in frustration. True, there are ex- ternal programs which will accomplish these things, but it involves saving the program you're working on, loading up the utility, reloading your program and then doing it to it. Not exactly the epit- ome of efficiency. In fact, it's a royal pain. A company called First Byte now pro- duces Enhancements to BASIC: A Better BASIC for Your Atari. It is just that. A better BASIC. It's a program which cre- ates a boot disk with all of the above (and more) integrated into Atai'i BASIC, so that the additionsil functions are avail- able on command — without changing disks or loading programs. To use it, simply boot it up without the BASIC cartridge or by holding down OPTION on the XLs. ETB takes the place of the BASIC cartridge or the built-in BASIC in the XL machines. ETB supports forty new commands, only two of which are program mode coinmands. The other thirty-eight are immediate mode commands, which are used for help in programming. Some perform functions available elsewhere, but which require external programs to implement. A number of the commands support- ed ai-e: NUM-automatic line numbering; REN-renumber program lines; DEL-is to delete a block of program lines; LVAR- list the variables in a BASIC program; SVAR-search for lines containing a spe- cific variable; CVAR-change a variable name; DUMP-send anything which goes to the screen editor to the printer in- stead; and SCREEN-cancels the DUMP command. In addition to the above, there are commands which allow you to access DOS functions directly through BASIC, instead of having to load in the DUP.SYS as you would normally. All of the DOS functions are available except the dupli- cating, binary functions, writing DOS files and, of course, run cartridge. (How many times have you wanted to check out the disk directory on a disk during a heavy programming session?] This alone is worth the price of ETB, but there's a lot inore. What makes this such a great little program is that it's both upward and downward compatible. Since the new commands, witli the exception of TRON (trace on) and TROFF (trace off) are im- mediate mode, tliere's no trouble at all with using ETB with old or new pro- grams, and then running them either with ETB or Atari BASIC. One of the nifty features available to CP/M and M-DOS users is the ability to program individual keys to perform cer- tain functions. ETB sort of provides the same feature. I say "sort of" because, in essence, It's a program that creates a boot disk (with enhancements] buiJt into Atari BASIC, so that additional functions are available on command. you can assign strings to some of the number keys (4 through 0]. There are default values assigned to these keys to start with, but they can be redefined to any string up to thirty characters long. (The key can be defined as a string of up to sixty-two characters). For instance, CTRL-4's default value is LOAD "D:", and the default value for SHIFT CTRL-7 is POSITION. Simply pressing the appropriate key(s) will print the command to the screen at the cur- sor position. I always hated typing a lot of PRNT #6 or OPEN #1,4,0,"WITCHES.DAT", so I just assigned them to keys. When I need either one, I press the appropriate key and presto.' Believe me, the saving in keystrokes in a coding session is enor- mous. Another great feature is the TRON command. Again, this is one of the two program mode commands, TROFF be- PAGE 82 / MAY 1985 ANALOG COMPUTING Ki t4 Review continued ing the other. TRON, when implement- ed, will trace through the program line by line, and you can choose from a va- riety of displays, as well as dumping the trace to a printer. This last option is invaluable if you've got a particularly knotty bug in a pro- gram and need a hard copy of the pro- gram flow. Multiple nested loops with outside subroutines — or, for that matter, any convoluted algorithm — benefit a great deal from this feature. ETB is not perfect. There are a num- ber of commands which take up valuable memory space and are of rather limited value. For instance, ETB provides you with the ability to adjust the keystroke and repeat timing. Also, for those of you with XLs, you can shut off the keyclick. There's more, but I'm sure you get the idea. ETB does provide you with the op- tion to use differing levels of the com- mands available, thereby freeing mem- ory if you need it. This is definitely a smart feature. ETB comes with a program disk and documentation which, though complete, reminds me of the old APX documenta- tion. Let's just say it's without frills. The reason for this is probably the same reason that ETB impressed me so much. You get this professional-level program and the no-frills documenta- tion for a measly $14.95, including ship- ping and handling! I don't care who you are; that's a deal in anyone's book. If you want to make your life easier, save yourself countless hours of pro- gramming time, and can part with the price of a bottle of Scotch, Enhance- ments to BASIC is for you. D Bob Curtin is a machinist who got into computing in 1982, when he bought an Atari 800. He uses his computer for writ- ing, programming, teJecommunications, and the more cerebral games. His am- bition is to write the definitive computer baseball game. JLS LANGUAGE SYSTEMS JLS BASIC Compiler for Sophisticated Programers that have a 64K ATARI Home Computer and Disk Drive The DOS/CP (Control Program): -replaces the DUP of ATARI DOS, using all 62K RAfvl of XL and XEs, -relocates programs as they are LOADed in and maintains a directory of programs so more than one may be LOADed in RAfvl at any one time, -lets programs be KILLed from RAM, -links programs so that one program can provide subroutines to several other programs that are also LOADed in an provides several powerful subroutines itself for other programs to use, -has several flexible built-in commands and a batch mode, -supports ATARI 850 RS-232 interface module and has a useful terminal program with upload/download capability. The BASIC compiler: -has four variable types: BYTE, BINARY, FLOAT, and STRING, each of which can have up to three dimensions, -provides the power to DEFine function and procedure subroutines that permit parameter passing and even recursion! -is fast! does the screen fill benchmark in only 279 jiffies, -is not compatible with ATARI BASIC because of its added power. When PASCAL is released (by fourth quarter 1985), BASIC programs can be linked to PASCAL so your PASCAL programs can use subroutines already written and compiled in BASIC and vice versa. $65.00 (check or money order) no shipping charge in USA JLS Software 4424 Auburn Road Huntington, WV 25704 (Atari is Tlvl of ATARI, Inc.) (Dealer inquiries invited) CIRCLE #134 ON READER SERVICE CARD introduces DR. P.D. QUICK, D.D. Dr. Quick Explains Buying On Margin, And Discloses THE HIDDEN HEALTH BENEFITS Of Using PDQ Disl<ettes Q. Doctor Quick, your PDQ Disks are doublfrdensity. Will they work in my single-density disk drive? A. Ja. Oti, ja, they work so good, I am telling you, yes! They work like a chum. Q. Aren't your PDQ Disks better than I really need? A. I should hop so! We make sure it is better, not just this much, but this much, and then some. Double density, ja, and 48 tracks per inch, certified. And people is using them right now at 96 TPI, is that better yet? You betcha my life! Q. So why should I pay for quality I don't need? A. I can't believe what my ears are telling me! You don't know of the buying on margin? You got always to buy on margin. Everything! Q. Buy on margin? A. I am drawing you a hyperethical case. You are going to put a steering column in your car, okay? For ten dollars you can get one that will last you two, mayt)e three years. Then one day it turns to peanut butter while you're driving, and blooey! For twelve bucks, let's say it, you can buy a steering column to last five years. For thir- teen fifty you could get one to last 24 zillion years, give or take a zillion. Which one do you go for? Q. You're talking atxxjt a margin of safety, tlien. A. You got it. A margin. You like to live dangerous, maybe? Go for the oheapie, save a buck or two. You got better smarts than that? You buy on margin when you get a steering column. Or a disk. Q. I see your point. A. No, that is before the point. Now I tell you the point. You ready? You buy on margin and get tietter than you need; you smile more, right? Fewer wrinkles in the forehead. Your food goes down nicer. All those tension backaches, they go away. Your doctor looks you over and says, "It's a miracle! 1 can't t>elieve such perfection in a human person!" So, you going to chisel? Or do you show is nicht so empty up here, and buy on margin? PDO — Premium Disk Quality — Diskettes are Double-Sided (yes, they'll work in your 810 Drive) as well as Double-Density, and carry a 21-year replacement warranty — and even a 30-day money- back guarantee. AND AN EXTRA VALUE! To introduce our new line of "NameBrand" disks, we'll even inscribe your name in bright golden letters on each disk at no cost! PREIVIIUM QUALITY AT A REASONABLE PRICE. NameBrand Disks are $39.90 a box (10 disks). For 5 boxes or more: $34.90/box. PLUS AN INTRODUCTORY OFFER. For orders mailed before May 31, 1985, deduct $10.00 per box. We're Ihal sure you'U reorder NameBrand PDQ's once you've seen them and tried them! AND AN OPPORTUNITY. WiUi each order is in- cluded a free Opportunity Dislc. Boot its program into a ASK or 64K Atari, and give some thought to a business of your own. Please add $2.(XI to your order for postage & handl- ing (USA and Canada; others add $4.00). NYS residents add 7% sales tax. Rush your order to: 13 White St, Dept. 28 Seneca Falls, NY 13148 Alarf^ is a registered trademark of Atari Corporation Senecom^ is a registered trademark of Seneca Computer Company, Inc. ANALOG COMPUTING MAY 1985 / PAGE 83 WE'LL MCIEASE YQII SIBRACE TRIPLE SPEED! But Don't Take Our Word for It . . . Ask Analog Computing Look elsewhere in this issue for the review; Analog Computing agrees. Our hardware/software combina- tion will make your Atari really perform! US Doubler increases your storage to 180K, and is totally compatible with other double-density disks, all DOS for Atari, and all Atari 1050 disk drives. And with our SpartaDOS, US Doubler will triple speed! That's a winning combination! Best of all, we'll supply the new SpartaDOS 2 absolutely free when you buy US Doubler. A hardware/software combination, installation required, complete instructions provided. Available through Dealers or Direct $69.95 Plus $4 Shipping and Handling ICD, Inc. 1220 Rock Street, Suite 310 Rockford, IL 61101-1437 (815)229-2999 Be the TRAIN Play this fast-paced computer video game that's so true-to-life that a major railroad indi- cated they use it in dispatcher training. TRAIN DISPATCHERS 24 displays help you make crucial decisions, RAPIDLY. You're under pressure, but in control — throwing switches, clearing and cancelling signals, constantly ma- neuvering both east and westbound trains. Keep the tracks clear ahead of all your trains and watch your score go up! Action packed, yet non-violent, TRAIN DIS- PATCHER'S 5 levels of play challenge players from age 8 to 80. Work your way up from "Cub Dispatcher" to Chief Dispatcher" or even "Train- master. " Created by designers of computerized traffic control systems for operating railroads, TRAIN DISPATCHER will increase your appreciation for actual railroad operations. TRAIN DISPATCHER comes complete with Instruction Manual and keyboard template. Color TV Recommended 29 CHECK ONE; Vic 20'" Tape D or Disk D (Requires 16 K Memory Expander) . . . ($24.95) Atari* 800 Tape D or Disk D (Requires Basic) ($24.95) Atari" 400 Tape D (Requires Basic) ($24.95) Commodore'" 64 Tape D or Disl( D , . . ($24,96) Appla ir, 11+ and lie Disk D ($29.95) Manual Only D ($4.00 if purchased separately) Name . City. State . .Zip. USA & CANADA add $2,60 postage & handiing ($4.00 foreign) for eacfi game ordered. All payments must be in USA funds, all foreign payments must be against USA banks. PA residents add 6% state sales tax. Or charge to: D Master Card Card No n VISA Exp, Date. Signature . CIRCLE #135 ON READER SERVICE CARD SEND TO: SIGNAL COMPUTER CONSULTANTS, LTD, P,0, Box 18222 • Pittsburgh. PA 15236 (412) 655-7727 CIRCLE #136 ON READER SERVICE CARD ASTRA 1620 LIMITED QUANTITIES $349.00 PLUS $10.00 SHIPPING INCLUDED ... SMARTDOS ASTRA 2001 ASTRA BIG D 549.00 $645.00 (INCLUDES SMART DOS AND MY DOS) DESK SET $39.00 COMPLETE DESK PACKAGE CALENDAR CALENDAR is a perpetual calendar, an appointmeni calendar and also a card file. Tfie perpetual calendar is a calendar of every month, past, present or future. The appointment calendar allows up to 15 entries to be made each day. CARD FILE The card file is a mail list program which holds up lo 200 addresses. The printing format of card file in- cludes continuous lists, labels or envelopes. Files can be printed; all the files from one file number to another; by zip code; by state or by selected files. LEHER WRITER LETTER WRITER is a preformatted letter writing pro- gram. LETTER WRITER can be used for any number of applications involving entering, editing and printing text. LETTER WRITER is designed to be easy to use and does not require extensive training. While LET- TER WRITER is not a full word processing system, it performs 90% ol the functions used by harder to use and more expensive word processors. DESK SET also contains a program thai allows you to combine Card File and Letter Writer for interaction. FINANCIAL CALCULATOR FINANCIAL CALCULATOR answers virtually any questions concerning the cost of money, loans, and interest earned on savings, loans and investments. Plus, this program will give a complete interest earned table and amortization table. This program is a must for anyone serious about money. FORECASTER Forecast future events based on past information. Forecast profits, costs, sales trends, prices test scores, virtually anything. Edit, save on disk and test various elements lo determine the outcome. FORECASTER is a powerful "what if" program - a must for business. Two drive - double density - 48K required. MasterCard/VISA The Programmers Workshop 24686 Redlands Blvd. San Bernandino, CA 92408 PHONE (714) 796-6821 CIRCLE #137 ON READER SERVICE CARD 1 6K Cassette or 24K Disk GRAPHICS •ft if *'''i|!l!| "'^ •"mimm"' pr by Graham L. Potter Ever since the first model 400 rolled off the assem- bly line, salespeople have touted Atari computers as colorful machines. Fascinating graphics demonstra- tions display brilliant rainbows, and even word pro- cessors include the variety and friendliness of multi- colored screens. With a simple BASIC command, any user can change the hue and luminance of his screen to any of 128 available combinations. The more knowledgeable users are aware that cer- tain GTIA graphics modes support twice as many different shades, for a total of 256. With such a selec- tion, how is a programmer to know what color he wants to use? No doubt, many have experienced the lengthy process of trying one color value after an- other, until the proper display is reached. Two-Fifty-Six comes to the rescue. It will exhibit all of Atari's 256 colors on the screen simultaneous- ly. Cast aside the myth that only 5 colors are allowed at one time! A beautiful display is achieved by the demonstration of more color than most computer users can imagine. At the end of the rainbow. . . When Two-Fifty-Six is RUN, it will display a sim- ple title screen while it sets up the color chart. After a wait of about twenty seconds, the view will switch to a dazzling grid pattern of all 256 colors in the Atari spectrum. The chart is arranged in sixteen rows of sixteen columns, with one color across each row and one luminance down each column. The hexadecimal numbers at the sides, top and bottom tell the inter- nal values corresponding to each color. Select colors for use in a program, or merely ad- mire the power that your computer is demonstrating! ANALOG COMPUTING MAY 1985 / PAGE 85 4t Two-Fifty-Six continued When you're satisfied, press START, SELECT or OP- TION to exit Two-Fifty-Six. . . . Lies a pot of treasure. For programmers, Two-Fifty-Six will reveal the POKE and SETCOLOR values that correspond to each hue and luminance. The hexadecimal values appear- ing at the sides, top and bottom of the chart give the necessary values, depending on the method to be used. For use in SETCOLOR commands, take a num- ber from the left or right side and convert it to decimal (A = 10, B = ll, C = 12, D = 13, E = 14, F = 15) for the color, and use one from the top or bot- tom for luminance. For use in POKE commands to color registers [for player/missile graphics, perhaps), convert the color value to decimal, multiply it by 16 and add the luminance value. For machine language programming, the hex- adecimal values themselves can be used, with the color value as the first digit and the lumi- nance value as the second. Remember that the odd numbered luminances will look no different from the even ones, except in GTIA modes. How it works. Two-Fifty-Six uses screen flipping, a technique seen frequently on other computers but rarely em- ployed on the Atari. The title screen is displayed on a text screen that the user watches while the com- puter sets up the color chart on a graphics screen in memory. After setting up the title screen in Lines 620-710, RAMTOP (location 106) is changed to "protect" that display while the grid is being set up on a graphics 9 screen. Lines 160-290 plot the numbers and arrange the display list interrupts that allow the extra colors. Special codes for the character graphics are stored in Lines 300-610. Finally, Line 230 will "flip" the dis- play to the newly formed graphics screen. National 1-800-328-1226 Ask for computer sales (orders only) SPECIALS Pac Man, Star Raiders & pr. Atari Joysticl<s 30.00 Pac Man or Star Raiders 10.00 1050 Disk Drive 160.00 1030 Modem 79.95 Sparta Dos 35.00 Atariwriter 40.00 BMC BM12EUY 12" High Res Amber 70.00 5 1/4" SS/DD Disk W/Sleevs (25 Pack) 29.95 Kraft Single Button Joystick 8.95 Kraft Switch Hitter Joystick 9.95 MPP 1000C Modem 119.95 US Doubler from ICD 60.00 ORDER TOLL FREE Hrs. M-F 10:00-5:30 (CST) MISCELLANEOUS ORDERING INFORMATION... To order, call toll free or send by mail. For fastest ser- vice use your Visa or Master Card (include card ft and exp. date), or send a money order or cashier's check. Allow 2 weeks for personal checks to clear. Add 3% (minimum 3.50) for shipping. f\/linnesota residents add 6% sales tax. We also ship COD. Return Policy: Call Customer Service # For RA #. Credit or defective ex- change only. Customer Service 61 2-784-681 6 )m^ Minnesota 1 ■800-626-2345 Ask for computer sales (orders only) PRINTERS BMC BX80 (80cps, Friction or Tractor Feed, Epson Compatible) 209.95 Epson RX80 239.95 Epson RX80FT 279.95 Epson RX100 429.95 Epson FX80 399.95 Epson FX100 849.95 Epson MX/RX/FX80 Ribbons 5.95 BMC 8X80 Ribbon 7.95 MPP 1150 Interface 69.00 Cardco AT Printer Interface 59.95 Atari 850 Interface 139.95 UPrint Printer Interface 69.00 BMC 91 91 U -I- 13" Color 229.95 BMC JJ1202G 12" Green 99.95 BMC Monitor Stand 24.95 Interex Monitor Cable (5 pin din to 4 RCA) 6.95 MONITORS LOOK! All software for your Atari is available at 25% off suggested retail prices. GTA^^SALES ffie^SsW Minneapolis, MN 55432 CIRCLE #138 ON READER SERVICE CARD PAGE 86 / MAY 1985 ANALOG COMPUTING dt Two-Fifty-Six continued The final word. Even for non-programmers, Two-Fifty-Six is a mag- nificent demonstration of the graphics capabiUties of the Atari computers. It also serves as an invalu- able utility for all Atari users. Unfortunately, it will not operate on Atari 400s and 800s that contain no GTIA chip. D Graham L. Potter of began programming in the fourth grade and now operates a private business, Cyberphenia Internationa], designing software to suit his clients' needs. A senior in high school and mem- ber of the Greater Richmond Atari Support Program, he enjoys writing, math and poetry. Listing 1. BASIC listing. lee REM MKMKWKlCKlOCMMMMlCKMKmClC 110 REM * ATARI COLOR CHART * 128 REM » by GrahaH Potter » 130 REM KKKKKKMICItKMKltKKMMKmClC 140 REM 150 GOSUB 620 160 FOR fl=0 TO 15: COLOR 15:K=A»4+8: V=5 :GOSUB 250 :Y=176: GOSUB 250 5 Y=A»10+15 :X =4:GD5UB 250 :X=73:G0SUB 250 170 COLOR A: FOR I=A«4*8 TO A»4+11:PL0T I,16:DRAUT0 I, 175: NEXT I: NEXT A 180 DATA 216,72,173,19,6,24,105,16,141 ,19,6,141,10,212,141,26,208,104,64,0 190 RESTORE 180:F0R 1=1536 TO 1555:REA D A SPOKE I, A: NEXT I: POKE 512,0: POKE 51 3,6 200 DL=Z3+Z4»256:l>=DL+3 210 FOR 1=0 TO 175:IF CI-5J/10=INT f (I- Sl/lO) AND I>20 THEN POKE D+I,PEEKfD+I )+128 220 IF PEEKCD+I>=79 OR PEEK tD+IJ=207 T HEN D=D+2 230 NEXT I:POKE 54286, 192 :P0KE 559, 0:P OKE 56e,Z3:P0KE 561,Z4:P0KE 623,64:SET COLOR 4,0,0:P0KE 559,34:P0KE 53279,8 241 IF PEEKC53279}=7 THEN POKE 77,0:G0 TO 241 242 POKE 106, PEEK (106) +16: GRAPHICS 0:E ND 250 RESTORE 310+AW2e:F0R 1=0 TO 2 260 READ J: PLOT X+I, Y+INT CABSCJ)) :IF J <e THEN 280 270 READ J:DRAMTO X+I,Y+INT(J} 280 IF J=INTCJ} THEN 260 290 NEXT I: RETURN 300 REM MM 310 DATA 2,8.5,-1,-9.5,2,8.5 320 REM Wm 330 DATA -2,-9.5,1,9.5,-9.5 340 REM B 350 DATA -2,7,9.5,-1,5,6,-9.5,2,4,-9.5 360 REM tBM 370 DATA -1,-5,-9.5,-1,4,5,-9.5,1,3,6, 8.5 380 REM 390 DATA 400 REM I 410 DATA 1,5,-9.5,-1,-5,-9.5,-1,6,8.5, 8 420 REM MM 430 DATA 2,8.5,-1,-5,-9.5,-2,6,8.5 440 REM Wm 1,5.5,-5.5,2.9.5 112 S2I''^-S'"^'5'9-5,1.5.5 460 REM Wm 470 DATA 2,4,6,8.5,-1,-5,-9.5,2,4,6,8. 480 REM MM 490 DATA 2.4,-8.5,-1,-5,-9.5,2,8.5 580 REM WM CIO) 510 DATA 3.9.5,1,3,-7.5,3,9.5 520 REM wm €11) 5?S RSI*-A4^-5'~^'"5.-9.5,2,4,6,8.5 540 REM Mm C12) 550 DATA 2.8.5,-1,-9,5,-2,-8.5 560 REM tEM C13) 570 DATA 1.9.5,-1,-9.5,2,8.5 580 REM Wm €14) 590 DATA 1,9.5,-1,-5,-9,5,-1,-9.5 eeo REM WBM €i5) 610 DATA 1,9.5,-1,-5.5,-1.5 620 GRAPHICS 17:SETC0L0R e,0,0:SETC0L0 R 1,0,O:SETCOLOR 2, 0, :SETCOLOR 3,0,0: Z1=PEEK €560) : Z2=PEI&K €561) 630 POSITION 1,1:? tte;'<anaiog coHPuti ng":POSITlON 6,3:? tt6;"proudIy":P0SITI ON 4 f 5 640 ? tt6 ; "presents" ;CHR$ €14) ;CHR$ €14); CHRS €14) 650 DL=Z1+Z2«256:P0KE DL+14,7:P0KE DL* 17, 2: POKE DL*24,2 660 POSITION 2,9:? tt6;"HaJl SBBH ";CHR S€141);" SS3":P0SITI0N 9,12:? tt6;"By GrahaH L. Potter" 670 POSITION 4,16:? lt6;"PLEA5E MAIT":P OSITION 0,20:? tt6;"Press START, SELECT , or OPTION to Exit" 680 POKE 106,PEEK€106)-16:GRAPHICS 9:Z 3=PEEK€560) : Z4=PEEK €561) :POKE 623,0 690 I=PEEK€16):IF I>127 THEN 1=1-128 :P OKE ie,I:POKE 53774,1 700 POKE 56e,Zl:P0KE 561, Z2 :SETCOLOR 8 ,7,4:SETC0L0R 1, 1,6:SETC0L0R 2,0,0!SET color 3,4,3:setc0l0r 4,0,0 710 ret6rA CHECKSUM DATA. fsee page 34] 100 DATA 838,713,456,847,86,985,57,217 ,591,45,920,509,660,147,368,7439 242 DATA 50,201,424,224,235,763,70,357 ,78,112,86,33,94,361,102,3190 390 DATA 86,82,231,90,939,98,344,106,2 40,114,951,807,166,816,776,5846 540 DATA 825,385,834,378,843,689,824,7 1 , 728 , 398 , 363 ,39,53, 662 , 205 , 7297 690 DATA 292,128,596,1016 256! ANALOG COMPUTING MAY 1985 / PAGE 87 READER SERVICE # A DVERTISER PAGE # 114 Abby's Discount Software 53 122 Active Software 68 111 Advanced Interface Devices 27 103 Allen Macroware 12 132 American TV 80 — ANALOG Publishing IFC, 3, 4, 31, 58 113 Astra Systems 38 141 At-At Glance 30 — Batteries Included OBC 108 C.A.R Software 23 107 C.D.Y. Consulting 22 125 Centurian Enterprises 68 104 Gomputability 13 128 Computer Creations 73 121 Computer Games Plus 68 105 Computer Palace/Royal Software 17 101 Computers Made Simple 7 102 Computer Software Services 10 131 Digital Devices 80 130 Draper Software 78 109 Eastern House 25 138 GTA, Inc 86 126 Handi Pubiisfiing 68 This index is an additional service. Wliile every effort is made to provide a complele READER SERVICE # ADVERTISER PAGE » 120 Happy Computers 67 135 ICD, Inc 84 106 Jesse Jones 20 134 JLS Software 83 119 Lotsa Bytes 18, 65 133 Lyco Computers 81 123 Misty Mountain Software 68 124 MPS 68 117 New Horizons Software 64 137 Programmers Workshop 84 129 Protecto 74, 75 140 Rainbow Starr 30 — Senecom 83 136 Signal Computer Consultants, Ltd 84 118 Source View Press 64 142 Southern Software 30 139 Suncom 88 127 Thompson Electronics 72 116 Wedgwood Rentals 61 115 Whitehouse Computers 60 110 Witt's End 26 112 Xlent Software 37 and accurate listing, the publisher cannot be responsible /or inadvertent errors. nB Le/Btration ContinuBs. At a new, tow price. We're celebrating PQ's 4 star ratings and you're invited to stiare t/ie excitement. Info World Magazine said of Party Quiz: "Perhaps the most elegant product comes from Suncom. " Match wits with friends (up to 7 of them}, or play alone with the first truly sqpial truly invoking computer entertainment system. *^ Each package includes 4 controllers and 2500 questions, expandable to over _ i 18,000 with the optional Question ' 'I Library. 'r^v>* ' Call today (toll-free; J- I ■800-323-834 1 to find \ <;. - PQ near you. i\' / * * * i San Francisco Chronicle * * * * Family Computing Magazine he Party Quiz Garn^: Hardware & Software Entertainment System forfipple ' II serm, Commodore 64 <S Atari Computers CIRCLE #139 ON READER SERVICE CARD PAGE 88 / MAY 1985 ANALOG COMPUTING Unlock your Atari THE COMPLETE POCKET PROGRAMMING AID I i I I I ! 1 I I i I I ONLY $7.95 ea. THE #1 MAGAZINE FOR ATARI" COMPUTER OWNERS P.O. BOX 23, WORCESTER, MA 01603 ERROR CODES INTERNAL CODES LOCATIONS MACHINE LANGUAGE AIDS GRAPHIC MODE SPECIFICATIONS BASIC COMMANDS WITH ABBREVIATIONS ANALOG COMPUTING RO. BOX 23, WORCESTER, MA 01603 I (617)892-3488 • (617)892-9230 4 I YES! ANALOG Name Address' City State Zip Please send me Computing Pocket Reference Cards I am enclosing $7.95 per copy. D CASH D CHECK D CHARGE Card # _ Exp. date Signature WHEN BATTERIES INCL UDED SET OUT TO DESIGN THE VERY BEST WORD PROCESSOR FOR AmRfCOMPUTERS. . . THEY FOUND THEY ALREADY HAD II .^ot^l; >r ore* V5> >v«^**^'; „vAe"" is"" nbW xrA^^ ^vltJ^Jfp<B^lS Kicsr^ATsV^^ woi<rcoi>^;^wt B-t^J^oTf^^ APA* >>«« 60^ •,400 %00' ,0^^' Mill- A T A R r Few word processors have allowed Atari users to tap the full resources of their computer until Atari Paper Clip. . . Atari Paper Clip is an extremely powerful, fully featured word processor that will allow your Atari to operate to the limits of its potential, with an ease of operation and speed you 've never thought possible. PAPER CLIP FOR ATARI®AND COMMODORE^OWNERS WHO WANT THE VERY BEST IN WORD PROCESSING. 30 Mural St. Richmond Hill, Ontario Canada L4B IBS [41B] 881 -9941 c INCLUDED ) 17875 Sky Park North, Suite P, Irvine, California USA 92714 "The Energized Software Company!' FOR A FULL COLOR BROCHURE SEND A STAMPED SELF-ADDRESSED #10 ENVELOPE TO BATTERIES INCLUDED. ®© 1384 Batteries Included. All rights reserved. Atari end Commodore ere registered trademarks respectively of Atari, Inc. and Commodore Business Machines, Inc.