Download Hot Coco Vol. 3 No. 6 - November 1985 - TRS
Transcript
TEACH YOUR RESET BUTTON NEW TRICKS A CWC/I PUBLICATION NOVEMBER 1985 USA $2.95 CAN $3.95 THE MAGAZINE FOR TANDY COLOR COMPUTER® USERS. MAIL IT With Telewriter-64 II BURN IT Find Best Buys In Heating Fuels II EXPAND IT Domestic Mail Get More from The DIR Command Postage Qr!;Trtisnz1E" 3 1 1 0 PLUS: In-Depth� Product Reviews, Puzzles, Answers to Technical Questions Educational Level for t h e Radio Shae� Color Computer CHILD WRITER 32/64K disk $54.95 (network version 32/641<) $99.95 CHILD FILER 32/64K disk (network version 32/64K CHILD CALC 32/64K disk (network version 32/641<) Elementary Level Series MEMO WRITER 64K disk (network version 641<) LIST MANAGER 64K disk SIMPLE CALC 64K disk Home Use Level Series $64.95 $129.95 $64.95 $64.95 TBA BUSINESS WRITER 64K disk $99.95 BUSINESS MANAGER 64K disk $99.95 BUSINESS CALC 64K disk Business Level Series $99.95 TBA PROOFREADER (20,000 words) 32/64K MASTER PROOFREADER $34.95 $54.95 (50,000 words) 64K 75 ADDITIONAL EDUCATIONAL SOFrWARE TTTLES AVAILABLE R.S. Cat.# 90-5002 $89.95 A MUST FOR: High Schaal Students The College Entrance Exam1nat1on Board CCEEBJ has chosen Pascal for •ts college advanced placement computer science bench test. DEFT P••c•I Work· provides all �he Pascal program ming tools you need to prepare for this test on your Color Computer "\)"¥.,� "\_)a<&ca\ � \)"l'.�u�n.c� College Students The DEFT Peac•I Workbench gives you the software you need to do your PaScal programming homework at home on your Color Computer. Professionals Most of the programming feat.ures found on the mainframes and mints used 1n business and science are available on the Color Computer with Workbench. DEFT P..c.I RAINBOW MagaziM ·(November 1984) -The DEFT Systems peopk> h.lvt' put together a pack .tge which is .t complete P.tscal .tndlor assembly pro gramming envm>nment thal 1s re.tsonably priced and $39.95 RS#90-5001 Hobbyists works like .i ch.tmp " "DEFT Bench and DEFT P.tscdl f\'m.im an excellent l'Xdmple of whdl c.m bl· dccomplisht.-d m the CoCo world. Tht• l'nl1re p.tck.tge gives you .tll lhl.:' nec�sary tools to learn f'.t�·dl If you alrt•ady know Pascal, then 11 g1ves you .i tot.ti devl'lopment environment No thing 1s missing. thl'rt.' 1s ooth1ng el�· lo buy.-Any collt>gl' .i p pl K.1 nt .ittt'mphng to obtain ddvan ced credit will bt> rt."lum-d lo know l'a!iC.tl in order to Has the extensions necessary to quickly do any Color Computer programmm1ng 1ob without g1v1ng up execution speed. DEFT Peacal Workbench helps get the 1ob done. D1recely access as sembler routines and hard language you complete tht• eum DEFT Bench and DEFT Pascal pro\•1de .tn excellent le.trnmg environment. The enhrt' p.Kk.tge 1s 1mpress1ve It is \'t'f)' wt'll-written and t'\lrt:'mely e.tS)' to use In all the years I have �n looking at softw.tre packages. nevt'f have I seen so ware registers from Pascal. much offert"d for so little.- _ Quantity of Each: DEFT Ema _ _ DEFT Pucal Method of Payment (check one) 0 VISA DEFT Bench _ 3-D Graphics 0 Check Enclo&ed 0 Muter Card DODD DODD Card El<piration Date DD / DD Account Number _ DEFT Pucal Workbench 0 COD DODD State DD Zip DODD DDDDD All orders are 1hipped UPS within 24 hours of receipL Add .C% for •hipping and banc:Uing; Maryland reoidenta add 5% for State Salee Tax: add Sll.00 for COD. Couer graphics by Colburn Blazok Associates. Windham. NH Vol. 3 No. 6 November 1985 ,. 30 34 Directory Assistance, 53 Williams. Bonnell -- disk directory screens. and save the world. Mail It with Telewriter-64, 55 J.D. Gennan Halt Thief, 63 Wade Jense Wayne McArthur 68 Delbert A. Baker 70 Tame Your Reset Button, Robert Gault Teacher Helpers, James w. Wood A CoCo can be the teacher's best friend. is the best buy. Michael E. Nadeau DEPARTMENTS 20 Resisting temptation. 72 8 How to Use HOT Coco 73 9 Letters to the Editor 12 Doctor ASCII, 74 Richard E. Esposito 76 Answers to your questions. 78 Richard Ramella Enter the Wild Blue Yonder. 18 The Computer Room, Reviews, edited by J. Scot Finnie Marooned. Trivia Fever. ChesSD, 6 Instant Coco Directory 14 Mindbusters, Bruce Bauder Control how your Coco resets itself. Calculate which heating fuel 5 Digressions, Linked Lists, David Meredith Try this effective sorting method. Let your CoCo do complex math formulas. Finding Firewood Best Buys, ' Parallel Processing with Color Logo, Simulate sophisticated computer operation. Listen for clues to capture the crook. 45 Mathematics Helper, ---..... Simon Clift Answer the math problems correctly to handle mailing lists. 48 ..... Make better sense out of your Convert this popular word processor 37 Math Invasion, ,.,,,,,, 6809 On Line, Bobby Ballard Setting up your own BBS. Chapter 2. Reader's Forum Assembly 101, James and Victor Perotti Create a nondestructive cursor. The Learning Page, Nancy Kippennan Simulating real life on the CoCo. Product News, J. Scot Finnie D.P. Johnson. Mark Data. Dorsett. Scott L. Nonnan 80 Appropriate technology and the CoCo. HOT CoCo (ISSN 074G-3186) Is publilhld monthly by CW �. 90 Pine SI., Personal Finance. and more. Plltlborough, Four Star Software. P olygon. and more. The Corner Office, Jeff De Tray NH ond -I moiling ofllces. SulJoc<tpllon ..teo In U.S. n $24.97 tor one -· S31 tor two �. ond S53 lor tine �- In Car*8 ond Mexico, $27.97-<>ne ,,_ only, U.S. funcll. Second ct.a pootage .,.id II Pltetbo<ough, NH and - moiling ofllces. Canadian 2nd 0.. moil "'9· #9564. Nllionllly -ed by lntemlllonal Clrcullllon Distributors. Foreign IUIJecl1ptionl (ourllce moll), $44.97-one - only, �..s. tuncll drown on 1 U.S. benlt. Foreign sublcriptlons (llr mllQ, pleae Inquire. In South Africa conllct HOT CoCo, P.O. Box 782815, Sandton, South Alrico 2146. All sul»crlptlon � lhould be - to HOT CoCo, SubscrlptJon OepMfm«lt, P.O. Box 975, l'lmllnfldale, NY 11737. lncludl your tlddrea label with 111y corrnpo1�. P-: Send-.... chonges to HOT CoCo, Sublcrtptlon Semces, P.O. Box 975, flnnlngdole, NY 11737. Send c..llldlan chlnge of - to HOT CoCo, P.O. Bo• 1051, Fort Erle, OnlMlo ea.*8, l2A5N8. Return pootage guaronteed. Entire contenll copyright 1985 by CW Communlclllons/Petefl>orough, .. For questions concerning your subscription Ind to pllct subscription ordels, pleMe call UI toll free II 1-«I0-251-5473 betwHn 8 1.m. Ind 5 p.m. EST Ol write to HOT CoCo, Subscription Deplrtment, P.O. Box 975, Ftirmlngdole, NY 11737. Inc Circle Reader Service card #101 J&M's New JFD--CP Disk Controller Speaks fur Itself! RS OOS plugs right into this 24·pin EPROM socket. (RS OOS not included) My 28-Pin EPROM socket accepts 64K device or NEW 128K JOOS 1.2. This new WDl 773 controller chip has built-in data separator & precompensation circuits. Because they are fully buffered, my 1/0 lines are more dependable. Select ROM Aor ROM B with this external switch-no need to unplug controller! You can use this 8-bit parallel port to support a Centronics compatible parallel printer or a Winchester hard drive. JUMPERS: J1 IN-6ms head step rate; OUT-30 ms head step rate J2 IN-serial printer; OUT-parallel printer Jumper defaults apply only to JOOS. e JFD-CP DISK CONTROLLER $149 Our new JFD-CP has redefined the state-of-the-art for Color Computer users. Gold contacts and fully buffered I/O lines ensure maximum reliability, and the JFD-CP is plug compatible with both the original COCO and the COC0-2. NeW1Dos 1.2 JOOS implements all RS DOS commands, plus many more, including: • auto line numbering • error trapping • baud rate selection • OS/9* boot from floppy or hard drive • Memory Mindert-the most advanced disk drive analysis system on the market (Dysan diagnostic diskette not included) DRIVE 0 SYSTEM $289 Upgrade your Color Computer by adding our new JFD-CP disk controller, supercharged JOOS operating system, and a top quality drive with case and power supply: All for only $289! Comes complete with cable and manual. Drive 0 System with one single side drive .....$289 Drive 0 System with one double side drive .... $3S9 Drive 0,1 System with two single side drives ...$429 Drive 0,1 System with two double side drives ..$499 4 HOT CoCo November 1985 MEMORY MINDERt Memory Minder is a disk drive test program now included in JOOS. Used with a Dysan digital diagnostic disk, Memory Minder allows you to check your drives for speed, alignment, sensitivity, hysteresis, and more! You can actually align the drives while viewing the graphics on the screen. No special equipment needed! DIAGNOSTIC DISKETTES S08·200: Tests single side disk drives ..........$26 S08·400: Tests double side disk drives .........$33 Memory Minder is available on diskette for those who don't own a JFD-CP Controller with JOOS. Includes Dysan diagnostic diskette. Single Side Memory Minder Package ......... $79 Double Side Memory Minder Package ........ $99 *OS/9 is a registered trademark of Microwave, Inc. tMemory Minder is a registered trademark of J&M Systems, Inc. To order, call {SOS) 292-4182. or send payment with order to: cl/A J&M SYSTEMS, LTD. 15 100-A CENTRAL SE ALBUQUERQUE, NEW MEXICO 87123 505/292-4182 We accept MasterCard and Visa Publilher Digressions JEFF DETRAY Edlor.ffl.CNef MICHAEL E . NADEAU llnglng Editor MARKE. REYNOLDS lllvlew/New Products Editor J. SCOT FINNIE Copy Editor MARILYN G. McMASTER Educltlo!! Editor NANCY KIPPERMAN TIChnlcll Edlt011 PETER PAPLASKAS KEITH JOHNSON (INSTANT COCO) GUIER WRIGHT (CONSULTING) Art Director HOWARD HAPP Allocllte Alt Director ANNE FLEMING Random Thoughts I PIOduction Supefvisor UNDADREW n my June 1 984 Digressions. I called upon software authors to develop more serious software for the CoCo. such as a Lotus 1 -2-3-like integrated package and a true relational database manager. It now appears that these two products will soon be available. (See this month's Product News for more information.) The announcement of these products is an encouraging sign. It shows that the better software authors are still developing state-of-the-art programs for the CoCo. The Coco needs products such as these to maintain its user base in the face of new competition (Commodore 1 28 and Amiga. Atari 520ST. and souped-up Apple /Is). As long as there are companies willing to try to squeeze more function from the Color Computer with new products. the CoCo market will remain healthy. Advelllllng Dlnlctor PETER MONTROSS Ad¥lrtlllng Coordllll!Or DEBORAH McNALLY 80 Pinc Street Peterborough. NH 03458 1.ax>-4414403or 1.oo3-9'l+9471 Advelllllng Rep� TAMARA DORIS Speaking of Atari lllnutlcturing Manager: SUSAN GROSS Gnlphic 5elvices Manager: The new Atari 520ST is available now. as many of you are probably aware. It looks like a great deal: $799 for a 5 1 2K computer with monochrome monitor. 3.5-inch disk drive, mouse. and Atari Logo. Can it be too good to be true? Consider this: There is virtually no software base for the new Atari. At the present time. only a software developer would find a serious use for the 520ST. If it breaks. where do you go to get it fixed? I called Atari to find a dealer near me. They didn't have any in my area. but they did give me the phone number of a sales representative in a neighboring state. My nearest Radio Shack dealer is 6 miles away. Finally. Atari admits that it is having problems with the 520ST's operating system. TOS (Tramiel Operating System. named after Atari chief Jack Tramiel). which is why it comes on a separate disk instead of on ROM. Early buyers should therefore expect to play guinea pig. I'm not going to worry about the 520ST as serious competition for the CoCo yet. Tramiel and company must sort out the computer's problems. establish a decent dealer network. and get some serious software to market. The Color Computer has at least a five-year head start.-Michael E. Nadeau DENNIS CHRISTENSEN Fiim l'rlparatlon Supervisor: ROBERT M. VILLENEUVE Typesetting Supervisor: LINDA P. CANALE l'rllidenl/CEO JAMES. S. POVEC Viet Prelident/Flnance ROGER MURPHY Allilllnt Genni Manager MATISMJTH Allilllnt to Vlce Pmldent/Flnance DOMINIQUE SMITH ExlCUllvt Creative Director CHRISTINE DESTREMPES Dirlctor of Circulation WILLIAM P. HOWARD am.uon Manager FRANKS. SMITH Dilct • Newatand Sales Manager RAINO WIREIN: 1-800-343-0728 Director of Cl9dlt, Sales, and Collection WILLIAM M. BOYER l'olllcler WAYNE GREEN Article 1abmluiou from our readers are welcomed and encouraged. Inquiries should be addressed to: HOT Submissions Editor. 80 Pine S treet, CoCo Peterborough. NH 03458. Include an SASE for a copy of our writer's g uidelines. Payment for accepted articles Is made at a rate of approxi ma ely $50 per printed page: oil rights are purchased. A u· thO<> of rtViews should contact the HOT CoCo Review Editor. 80 Pine Street. Peterborough. NH 03458. Prolllems with Sabocriptlcnu: Send a description of the t problem and your c urrent and/or most recent address to: HOl'OJCo. Subscription Department. P.O. Box 975. Farming· dale. NY 11737. Clw!C• of Addreaa: Send old label or copy of old address and D<W address to: HOT CoCo. P.O. Box 975. Farming dale. NY 11737. Pleas< give eight weeks advance notice. Dalen: Contact Ralno Wireln. HOT CoCo. BO Pine Street. Peterborough. NH 03458. (800)343-0728. Problems with Adnrtloen: Send a description of the problem and your current address to: Magazine. Rt. 101 & Elm Street. Peterborough. NH 03458. AITN: Rita B. Rivard. Customer Service Manager. If urgent, call I ·800-41 4 -4403. is a member ofcomput the CWer Communi catioinns/Imorenc. group, themajworlor dcount 's largest publ ismiherl ioofn comput eread r-relatone ed inorformore mation.of The group publ i s hes publ i c at i o ns t h an r i e s. Ni n e peopl e the group's publicationsAustral each iamont include: Argentina's AsiaBr'sazil's 'sna'hs. Members of the group Denmark's and and Chi and s (Commodore); Finland's France's (Apple), (IBM) and Germany' and and Italy's and Japan's and Mexi co's The Net h erland's Norway's and (Commodore): Saudj, Arabia's Spain's Espana, Sweden's and t h e UK's and Venezuela's the US's and HOT CoCo 57 20 Asian Compuferworld; DataNews Computerworld MicroMundo; Australia, Compuferworld/Argenfina; Australian PC China Compuferworld; LB Monda lnformatique, Golden Mikro; World, Macworld OPC Computerworld Italia World PC Magazine: Computerworld Benelux RUN Computer News. PC Business World Computerworld, Hot CoCo, inCider. CompuferSweden, Mikrodaforn Computerworld Norge, PC Compuferworld Svenska PC: Computer Business Europe; lnfoworld, Apple's; Computerworld/Mexico PC �d Benelux; Saudi Compuferworld; World, Commodore World; Publications Computerworld Japan; RUN Distributique: Computerwoche, Microcomputerwelt, PC Welt, SoftwareMarkt, CW Edition/Seminar. Computer Business, RUN CompuMundo; The Directories: Computerworld/Oanmark, PC World Microsisfemas/PC Compufer Managemenf, Computerworld Venezuela; MacWorld, Micro Marketworld, PC World, RUN. On Communications. November 1985 73, BO Micro, Focus HOT Coco 5 Instant CoCo is a cassette tape containing the major programs from this issue of HOT CoCo. Its purpose is to save you the time and effort of typing' long program listings into your Color Computer. You simply load the programs from the Instant CoCo tape using Back Issues your cassette recorder. The instructions for operating each program are found in the corresponding HOT CoCo article. Both Basic and Assembly-language programs are included on the tape. The Instant CoCo symbol appears in HOT CoCo's table of contents and on the pro gram listing for each article with a listing used on the Instant CoCo tape. As an added extra. each tape also contains a never-before-published Bonus Program, complete with instructions. The directory below lists all programs included on this month's Instant CoCo cas sette. Shown first are the name of the article with a descriptive blurb and its author, followed by the page number in this issue where the article appears. Next comes the file name of the program on cassette. Finally, there is a brief description of the Color Computer system needed to run the program. Yes. back issues of Har CoCo are available for aJ months. This list shows the features in each issue: October 1983-Animation techniques: ROM dis assembly. part I. November 1983-Nuclear submarine simulation ROM-pack primer: banner printer. December 1983-World capitals q uiz program talking spe,lling tutor: vocabulary-building program. This month's Instant CoCo cassette is available for just $11.47, including postage and handling, from Instant CoCo, 80 Pine St., Peterborough, NH 03458. See our ad on p. 64 for more details. April 1984-Peripherals buyer's guide: how le shop for a disk drive: disk·fix utility: Lisp i n t er preter. Instant Coco Directory November 1985 System TITLE 16KCB 14 WILDBLUE 16KCB September 1984-Educational software buyer's guide: typing-teacher program: the CoCo as a mar· keting aid. 30 FSDIR 32KDECB November 1984-Personal money manager pro Leave the perimeter in just the right number of moves. Directory Assistance/Bonnell July 1984-Do-it-yourself lowercase mod: variable File Name Page# Copyright Statement Mindbusters/Ramella June 1984-Horse-racing and stock- m arke t simu· lators. cross-referencer; the game. Python. Side A Article Name/Author/Description May 1984-0S-9 review: financial transactiom tracker; homebrew spelling checker: CoCo Reversi game. Put an end to cryptic August 1984-Basic OS-9 review: database man· ager program: graphics tutorials: hurricane t racker. gram: disk-file protection utility. disk-directory screens. Mail It with Telewriter-64/German 34 TWSORT 16KDECB 37 HALTHIEF 32KECB 45 MATHHELP 16KECB 48 FIREWOOD 16KECB Give Telewriter mail-list sorting capabilities. Halt Thief/Jense gram. Listen to the clues to find the crook before your opponents. Mathematics Helper/McArthur December 1984-Disk-drive timer: disk drive maintenance tips; full-featured te x t -e diti n g pro· Solve difficult geometric equations. January 1985-Spreadsheet pro gra m: stock· charting program: make fancy grap hic s with your printer. February 1985-Drawing program: user 's group list: Space Hawks game. Finding Firewood Best Buys/Baker Calculate how to stay warm this March 1985-Universal screen-dump program: POKE list: utilities. winter at the least cost. April 1985-Telewriter-64 mods: modem compar· ison: satellite-tracking program. Side B Math Invasion/Clift 53 INVASION 16KECB or 32KDECB You must solve a math problem !:>efore you can save the world. Linked Lists/Bauder 63 LINKSORT 16KCB June 1985-How to install 64K in any CoCo: pie· chart program: custom fonts for Gemi n i printers. 68 LISTING2 16KECB RESET(ml 16KCB ing program: how to connect the CoCo t o a Model LISTING3 16KECB Learn another way to sort data. Tame Your Reset Button/Gault May 1985-Sound digitization: blackjack program: disk-based smart terminal programs compared Reset Basic programs to the point August 1985-Graphics uWities: auto-line-number· 100. you. not the CoCo. wants. Teacher Helpers/Wood 70 Generate true/false tests. You'll also find in each issue our regular of useful programs that are yours for the t y p ing in. ***Bonus Program*** Megashield/Washington MEGASHLD(m) 16KECB You've got to be quick and a good shot in this Assembly-language arcade game. CB= Color Basic. DECB =Disk Extended Color Basic. ECB =Extended Color Basic. (m}-achine-language program (use CWADMJ 6 HOT CoCo November 1985 features. reviews of popular software and hardware. and dozen.1 $3.50 plus $1 shipping and handling. On orders of 10 or more back issues. there is a flat $10 shipping and handling fee. Quantities Each back issue costs are limited. and we cannot guarantee that all back · issues are available. Send your orders t o HOT CoCo, Back Issue Orders, 80 Pine St.. NH03458.• Peterborougl Introducing COCO TIME A monthly magazine on tape and disk DISK ANTI-PIRATE Now every month you can get 8-10 ready-to-run utilities, programming tips & hints, business applications, home management, tutorials, and educational programs. Also a Buy 'N Sell section and much, much more. NO GAMES, ONLY REAL STUFF! (A Breakthrough in Disk Protection) P rograms written by computer wizards like Kishore M. Santwani and Gary T. Jes. SUBSCRIBERS BENEFITS • • • • ���:�:�� ���c,:�� ��� ��� ; HIDE-A-BASIC 1.1 AT LAST! A program that combines autostart with complete protection of your valuable Basic programs. IMPORTANT F EATURES: • PREMIERE ISSUE (October 1985) • • CoCoDiskZap • Memory Monitor • Educational Hangman • Basic P rogram Packer • Tape Encryption (Basic) • Disk Encryption (Basic) • Basic Speedup Tutorial • DMP (100/110/120) • Autostarts your programs. A ML program that modifies your program and NOT 1ust 'Stands Aparl ·. Option to disable Break-key, Clear key & Reset bunon. Dosables LIST. LLIST. EDIT. DEL TRON. TROFF. CSAVE (Ml. CLOAD (Ml Disables POKE. PEEK. EXEC & USA to prevent ·sack· door entry' to your program Disables disk functions 10 avoid access thru Disk System Creates an 'ONER GOTO' routine to trap errors Your Basic program 1s loaded as a ML program · with CLOADM. Full documentation. Buy Now & Protect your Profits For 16K ECB Cassette System. $24.95 Buy BOTH for ONLY $79.95 Graphics Dump Tape Only T he market value of these programs is OVER $150, DOUBLE the price of our DISKETTES Subscription Rates (USA & Canada) Tape 1 Year 6 Months Single $65 $40 $10 $75 $50 $15 Microcom Software Subscription Software Dpt. PO Box 214 Fairport, NY 14450 Phone (716) 223-1477 • • • • • • $18.00 $162.95 10 100 $2.00 $7.00 Shipping N O SHIPP I N G charges on disks if ordered with any other software. CoCoDiskZap program (a $24.95 value) on additional disk with purchase of 10 or more disks. .A - Circle Reader Service card #106 FREE!! {--) !ll! - !Pll L.::_J .._- MICROCOM SOFTWARE P.O. Box 214, 14450 716-223-1477 FAIRPORT, N.Y. To Order: VISA. MC. CHECK. MO. COO ($2.50 extra) Please add $2.00 shipping and handling (Foreign $500) NYS Residents. $2.00 please add Sales Tax. • Immediate shipment phone and get a • Order by • Dealer inquiries inv ited . refund for your phone call • Call for discounts on bulk q uant i ties • Auto stan your Basic programs Effectively encrypts your programs Disables most Color Bas1clECB/D1sk Basic commands Disable BREAK KEY. CLEAR KEY and RESET BUTION Generate a Repeat·Key. Merge two Basic programs. Transfer Rompaks to tape (for 64K only). Speed up your programs. RESET. MOTOR ON/OFF lrom keyboard. Restan your Basic program thru the RESET BUTION Produce Key·Cl1cks and Error-Beeps Recover Basic programs lost by NEW. ?1Q ERRORS and faulty RESET Set 23 dollerent GRAPHICISEMIGAAPHIC modes Set 15 of the most commonly used Baud Rates Allow you more plays m 23 of your favorite arcade games AND MUCH MUCH MORE' COMMANDS COMPATIBLE WITH 16K/32K/64K COLOR BASIC/ECB/DISK BASIC CASSETTE and DISK SYSTEMS and CoCol and CoColl. ONLY --- - -- - $16.95 . .. ....�� ... , _.._._ I UTILITY ROUTINES for the TANDY & TRS-80 COLOR COMPUTER (Vol. 1) ---� This powerful book for Basic and ML Programmers includes program explanation. memory requirements. and an annotated source li sting for the utility routines given below. These routines if bought individually will cost you HUNDRE DS OF DOLLARS. These are 100% Position Independent ML Utilities and require no ML programming knowledge. COMMAND KEYS: Access most Basic commands with 2 keystrokes. CURSOR STYLES: Create OVER 65000 Cursor Siyles cc . FULL LENGTH ERRORS Get full length error messages KEY CLICKER. Ensure key inpul a uracy .. PAUSE CONTROL. Put Basic/most ML p1ograms 'on hold SPOOLER (16K. 32K. 64K): Don·t wait for those printouts. 51/• · · SS/DD Diskettes with tearless sleeves. hub Disk • REPEAT KEY. Repeat ANY key. 5 d1fferen1 key speeds REVERSE VIDEO (Green and Red) Eliminate eye strain [2J rings. write-protect tabs. and Jackets. Quantity Price (Other countries add 25%) Pay by VISA/MC/Check/MO ii.JI' m W I TH HIDE-A-BASIC 1.1 THERE IS PRACTICALLY NO WAY A N YONE CAN 'GET INTO' YOUR PROGRAM. annual subscription. This 80-page book includes POKES, PEEKS and EXECS to: • (A Breakthrough in Cassette Protection) EVERY YEAR YOU GET OVER Ram Disk (30K) NEVER BEFORE has this information of vital significance to a programmer been so readily available to everyone. This book will help you 'GET UNDERNEATH THE COVER' of the Color Computer and develop your own HI-QUALITY programs, SO W HY WAIT? • $59.95 """ ·�:::..,,, the TRS-80 COLOR COMPUTEI-i"···-·� MIN. 16K ECB Disk System. Only ·� 500 POKES, PEEKS 'N EXECS for (Works with CoCol and CoColl) • • r Auto Stans your Basoc/ML programs. c l o a s P L ESET BUTION. Modo!oes your code so LIST. LUST. POKE. PEEK. EXEC. USA. CSAVE (Ml. CLOAD (Ml. EDIT. DEL. TRON. TROFF. SAVE (M). LOAD (M). MERGE woll ONLY work with your own PASSWORDS BACKUP PROTECTION prevents ollegal dosk copying. Your Basic program loads wtlh LOADM. Includes a Title Screen Editor to create !Ille screens. which can be displayed wh11e your program loads. 'ONERR GOTO" feature to irap errors (even for ML programs). Can be used to turn on 64K ALL-RAM MOOE in 32K/64K memory systems. EASY·TO·USE and FULL DOCUMENTATION. NO ROYALTIES/AGREEMENTS/CONTRACTS. $1500 WORTH OF SOFTWARE. So Act Now! ·: Here 1s a chance for you to copy-protect your Basic and ML programs. DISK ANTI-PIRATE does more than any other program in the market. Compare the features: • Free advice/help on your Basic and ML programs, wherever possible. Free Buy 'N Sell ads on computers and software. 10% off on all Microcom soft ware/books. Subscribers encouraged to submit programs for inclusion. (contact us). e Your Only Weapon Against Software Piracy! Each issue shipped to you by first-class mail. • -es THOUSANDS OF PROGRAMMERS USE THESE UTILITIES DAILY. SHOULDN'T YOU? 32K Spoiling Butter in 64K SUPER SCROLLER (64K Only). Save and examine everything c that scrolls off !he t ext s reen AND MUCH MUCH MORE 1 Compatible with 16K/32K/64K ECB I Cassette and Disk Systems and CoCo I and Coco II. BOOK $19.95 THESE ROUTINES (READY-TO-RUN) ON CASSETTE/DISK: $24.95 BOTH BOOK & CASSETTE/DISK: $36.95 Basic Programming Tricks Revealed-$14.95 Color Basic Unravelled-$19.95 Extended Basic Unravelled-$19.95 Disk Basic Unravelled-$19.95 All 3 Unravelled Books-$49.95 FACTS-$14.95 24-HOUR ORDER HOT LINE (7 DAYS A WEEK): (716) 223-1477 Tell them "I saw It in HOT Coco." November 1985 HOT CoCo 7 How to Use HOT coco ---�----!!! E '( ach month Har CoCo provides a number of program listings for appears in the magazine. being particularly careful with spaces and you to type into your Color Computer and use. If you are new to punctuation. If you do this, the 32-character format will aid in proof reading what you have typed by letting you match beginning and ending characters on corresponding lines. If you have a line that ends computing. read this page for advice that will help you avoid problems often encountered when entering programs manually. on a character other than what appears in the magazine, go back and Know the Basics check for a typo. Also, don't mistake certain characters for others that look similar. such as a zero instead of the letter 0, a comma for a Before you begin, you should be familiar with the basic operation of your Color Computer. Read the manual, and make sure you under stand how to enter a program line, save a program to cassette or disk, semicolon, and so on. and make corrections to a program line. Verify that the program you want to enter will run on your version of the Color Computer. You need to know the memory requirements, the type of Basic used (Color, Micro Color, Extended Color, or Disk Extended Color Basic). what pe ripherals might be needed, and in some cases whether a particular . ROM version is needed. All this information is provided in the System Requirements box included with each article that has a program listing. This box gives the minimum requirements to use the program. If. for instance, the box reads "16K RAM. Color Basic," the program should also work on 32K or higher, Extended or Disk Extended Color Basic CoCos. Op tional equipment is listed as such. Once you've established that the program will work on your CoCo, read the article thoroughly. Some times it will include information vital to typing in the listing. What You See Is What You Get We print all Basic program listings 32 characters across-just as they appear on your video screen. Type in the listing exactly as it Circle Reader Service card � G � S ut lR REET l 5E , FL 33322 C•EPT H SCREEtl L ISTS KEEPS A FILE FEED 32f: CHECK FORMS. coca WITH DRl'JE PRIHTER DPTIDtlAL. DRC•ER E:AtlK.5 $2't"l5 t;2.aa PLUS .6. s BUSINESS BANIKBOOIK ALL OF THE DPTIDtlS r-\" CHECKS {f RAINBOW � ORDER BAHK SYSTEM H DF THE ABOVE 7.1 t; 5Cf.Cf5 t;2.aa s P LUS $5 Cf."15 $2.aa SUPER DISIC UTIUTY DISPLA'rS DIRECTOR�· BACl<UP DIRECTOR�·. WITH TWO DRC•ER SUPER DIS�: HOT Coco COP'(' READ,MODIF'1• DR DATA. ALL 111 PAGES. PROGRl"IMS s ,!. H MAKES $1"1.!'15 r.:ILL PROGRAMS PLUS t;2.aa IHCLUDE MAHUALS. FLA. RES. ADO 5 � TAX November 1985 - RUt1S PROGRAMS r.:E·.·sTRDKES. BACKUP, AtlD &. H DISK DRIVES PLUS #12 We try to convert Assembly programs to Basic DATA statements. With a short Basic routine to execute the DATA statements. you have a program that you can type in just like a Basic listing, yet operates much like the one written in Assembly. off the computer for a few seconds before turning it back on. Of course. this wipes out your program in memory. To avoid this. always save what you have typed in before running it. That way. if you did make a mistake, you can load the programfrom FOR DtlE C•ISK DRIVE - ORDER 9Atif'. Cf . 1 8 ,!. ·,·au CAtl TWO - FOR TWO to someone with a little experience with Assembly programming . It also requires a short Basic routine that prepares your CoCo for hand assembly. Since DATA statements often consist of numbers only, it is easy to AtlO DEPOSITS. SYS.TEM Dt1E - can execute. If you do not own an editor/assembler, it is possible to hand-assem ble an Assembly listing. but this is a tedious process that is best left make a mistake typing them in. One wrong number can crash the program. When this happens. the only way to recover is often to tum CHARGE UP TD FOUR ACCOUllTS ·PER TRAt1SACTIDt1 - PROGRAM PLUS But you do not need to know how to program in Assembly to use these programs. You do need, however, something called an editor/ assembler. An editor/assembler allows you to manually enter an As sembly listing. and then it "assembles" it into a form that your CoCo Speaking of DATA Statements CHECKS IF 'rDU HAI.IE THE PROPER RECl.UIRES Har CoCo often publishes programs written in Assembly language rather than Basic. Assembly programs "talk" to your CoCo on a more direct level and, therefore, run faster. Unfortunately, it is much more difficult to learn Assembly-language programming than Basic programming. can load and execute them immediately. {fr-\" OF YOUR REuULFiR PAYMElffS. LISTS �!��!.�o":' CHECKS OUTSTAHDIHG Atm PRIHTS ·,·ouR T RACTO R Assembly-Language Listings bler, check to see if it appears on our Instant CoCo cassette. All assem bly programs on Instant CoCo are in assembled form, meaning you TRAtlSACTIDtlS ltlTE R . DR PR up arrow in place of all carets in Basic program listings. If you want one of Har CoCo's Assembly listings. but it hasn't been COlOR BANIKBOOIK COLOR COMPUTER Dtl The up arrow indicates exponentiation on the Color Computer. Un fortunately. our printer prints a caret (.) instead. Be sure to type an converted to DATA statements and you do not own an editor/assem REPLACE '!'DUR CHECK9DOK WIT H '!'OUR � Weird Characters St.H tape or disk to look for the error, rather than retyping the entire listing. One last thing about DATA statements: Error messages that occur due to a mistyped DATA statement line will refer to the corresponding READ statement line earlier in the program. Yet it is the DATA state ment that is incorrect. If All Else Fails If you cannot get your typed-in listing to run after checking and double-checking for typos. you can ask us for help. Send a detailed description of your problem along with any error messages given. Ideally we'd like a printout of what you typed. Send a self-addressed, stamped envelope for the fastest reply. Sorry, but we cannot help you if you have modified the original program in any way. Write to HOT Coco, attn. Technical Editor, 80 Pine St., Peterborough, NH 03458 .• Letters.to the Editor.�� pear on land masses. The modification below Out of Tune In your review of CoCo Tuner (HOT CoCo. August 1985. p. 74) you state that the instru ment "emits an audio signal in which A equals 220Hz-octave 4 on the piano. or the A above middle C." The frequency for the A below middle C is 220 Hz: 440 is the fre quency for the A above middle C. Furthermore. the Hale Sight-0-Tuner was not mentioned as one of the "electronic tun ing forks." The product is sold by Tuners Supply Co.. P.O. Box 950. Somerville. MA 02145. Of course. it takes more than knowing the correct frequency in order to finely tune a piano. The tuner "hears" only the vibrations produced between bridges. making no allow draws the portion of the circle over water in black and the portion over land in white. Edit line 30 as shown and add the other four lines. 30 265 270 PMODE4. l:PCLEAR4:PCLS:CLS FOR TH= 0 TO 6.3 STEP .3 xc = XP + 5•coS(TH):YC = 5•s1N(TH) 275 yp + IF PPOINT(XC.YC) = 5 THEN PSET (XC.YC.0) ELSE PSET(XC.YC.5) 276 NEXT TH The changes replace the CIRCLE command by PSETing each pixel around the perimeter of the circle after determining whether it should be white or black. World Map is a great educational program. R. Spencer Soanes Brechin. Ontario ance for equalizing the tension of the strings across the bearing points or taking the twist out of the tuning pins after they have been moved. Bob Buzzell Newtown. PA Our apologies for the error and the over sight. -eds. Program for Diabetics Program Correction The List ings accompanying David Mere dith's article. "All Sorts of Sorts" (HOT CoCo, July 1985. pp. 46 and 4 7) contained minor er rors. Replace the first greater than symbol I>) in line 220 of Listing 5 with a colon (:). In line 180 of Listing 7. change the beginn ing of the line to read: IF V= A(l + 1). -eds. I am interested in developing a program for educating young diabetics and have heard that programs of this type are already avail Bobby Ballard Redesign able. Could anyone provide information on obtaining such a program for the CoCo? I am It is impossible to use a slow screen dump eager to hear from other CoCo users with a from screen 0 in Oesignmaker (HOT CoCo. similar interest. August 1985, p. 26). To accomplish this. edit Miss Wendy Ross 50 Sandwich Road Beckenham. Christchurch 2 New Zealand line 1260: 1260 IF PPOINT(ZX.ZY) = F"4 1320 + l THEN should state that it requires 16K RAM. Thad Starner I'm looking for an interface (with cable) to on making the connection and the address of an interface manufacturer. Norman A. Bleshman 165 Ames Ave. Bergenfield. NJ 07621 Hi-Res World Map Readers who want to use World Map (HOT CoCo. April 1985, p. 30) in PMODE 4. the highest resolution mode. are hampered be cause the identification circle does not ap- 8 I and CGP-220 printers. I would appreciate hearing from anyone who can offer advice on software problems. First of all. can anyone tell me whether you can change the rectangular cursor. using one or more of the ASCII characters in the VDG instead? Or can you provide assistance with my robot and speech synthesis projects? I connect my 32K CoCo to a Brother Compac puter compatible. I would appreciate advice MC-10 User a few specific programming. hardware. and There is one small error in the article. The tronic 60 typewriter that is said to be com · I own an MC-IO with 20K RAM and CCR- System Requirements for Designmaker CoCo Connection not mon itor the carrier-detect line in the au toanswer mode unless you run a special line into the joystick port or use Tandy's Deluxe RS232 Program Pak (catalog no. 26-2226). The Program Pak. which sells for $59.95, was not available for the review. It will provide access to more control lines for maintaining control of the modem. Another problem with the Modem II con cerns its force DTR (data-terminal ready) switch. Turn ing this switch on when you are running a BBS always forces a carrier detect; consequently you can't determine if a caller has hung up. Instead. you must rely on a soft ware time-out to make the disconnection. If you add Tandy's RS-232 ROM pack and leave the force DTR line off. carrier-detect is not forced and can be mon itored. However. the force DTR switch is a flaw and a major prob lem for BBS owners. For autoanswer. I find many better moderns on the market. Use of the Modem II as an autodial modem is dependent on your software. The review should have stated more clearly that the au todial feature works with some. but not all. ter m inal packages. B u t t h e fac t t h a t some readers have found programs that perform this function on the Modem II (including Au toterm from PXE Computing and Vidtex from CompuServe) does not mean that the product will work un iversally. Several packages will not autodial with the Modem II. Modem II Revisited Despite my response to Jason Johnson 's let ter published here in July. HOT CoCo has re ceived additional mail criticizing the review of Tandy's Modem II (HOT CoCo. April 1985. p. 24). The review. which was designed to be an examination of low-cost moderns. included a cursory inspection of the higher priced Modem II because many readers might consider the Tandy product. as well. Most of the Modem /J's features work fine on the Color Computer. Howetfer. the device does not perform autodial operations with all Color Computer software. In addition. the CoCo can- am looking for 25 inexpensive stepper mo tors and information on interfaces and pro gramming for the robot. I would welcome tips for using Tandy's SP0256A-AL2 speech synthesis IC with the MC- IO. I'd like to obtain a circuit-design program that prints text and graphics to the screen and printer and that also allows you to save and load designs to and from cassette. My final request is for a music program compa rable to Tandy's Audio Spectrum Analyzer (catalog no. 26-3156). Arne J. Gregor 1606 Lincoln Court Reading, PA 19605 November 1 985 HOT Coco 9 DISK 544.95 Also Supports The PBJ 80 Column "Word Pak", Deluxe RS-232 Pak, Parallel Printer Card and PBJ 2SP Pak "FEATURES" No Lost Information When Using Hi-Resolution Display On Line Freeze Display and Review Information On Line Full Te1<1 Buffering Full Disk Support for Disk Version ASCII Compatible File Format Terminal Baud Rates 300 lo Send Files Directly from Buffer 9b00 Disk 1 10-9600 Automatic Word Wrap Eliminales Split Words Separale Prinler Baud Rates Full / Half Duplex Display on Screen or Ourpu1 Con1en1s of Buffer. to Printer Automatic File Capture Au1oma1ic Memory Sense 9 Programmable Word Length, Parity and Stop Bits Save and Load Tex! Buffer and Program Key Buffers tn Tape or Disk 9 Hi-Resolution Display Formttls, True Upper / lower Case Display • or Send Control Codes from Keyboard 28 to 255 Programmable Funcli\1n Key Variable Length Macro Bufff'r Programma�le Prompt Characler or Delay to Send Ne>et Line Programmable Control Character Trapping 24 x 16-MK Programmable Open / Close Buffer Characlers Automatic Key Repeal For Editing Program and Memory Stalus Displays Kill Graphics Option for an Exira 6K Supports Lme Brf'etk The Source brings the cost of Disassembler and Assembler Source code generation down to Earth. Six months ago a terrorist group demanded to be designated the rulers of Alpha Sigma III, under the threat of world starvation on the planet Earth. The Now you can Disassemble Color Computer machine language programs and generate beautiful. Assembler Source Code for a fraction of the cost of other Disassembler/Source Generator programs. Federation denied their demands, so they released a biological weapon which has destroyed all known edible plant species from throughout the known gal axy. To date no plant life has been able to survive on Earth. Recently. Federation undercover agents have reported a story told by a roving space trader, of a planet with abundant edible plant life. These plants have a reputation of being able to survive in all climates and in fact, are supposed to grow at an incredible rate. The Federation is desperate! If Earth's food source is not replaced soon , the Federation will have to evacuate all animal and Human life. Your mission The Source has all the features and functions you are looking for in a Disassembler. • Automatic label generation. • Allows specifying FCB. FCC and FDB areas. • Disasrembles programs directly from Disk. • Supports multiple origin disk mes. • Output complete Disasrembled listing with labels to the Printer. Screen or both. • Generated source files are ln standard ASCa format that can be ediled by most word processors. • Generates Assembler compatible source files directly tod1sk. FCC and FDB areas In a program. • Fast Disasrembly mode for testing & checking FCB, FCC and FDB mapped areas • Built In Hex/Ascti dumJ>'display to help locate FCB. • Built In Disk Dire<tory and Kill me commands. is to go to the planet Zephyr and obtain the seed of these plants and return to Earth. Several Federation agents have been sent to obtain the seeds and none ' has returned! Can you get the seed and survive??? GOOD LUCK! . • Menu display with single key commands for smooth. Easy. almost foolproof operation. Screen Enhancement Program Comparison Chart PROGRAM FEATURES NEW IMPROVED VERSION • VP TO 85 CHARACTERS PER LINE READABILITY · ADJUSTABLE A VTOMA TIC KEY REPEA T • • PROPTECT 1 -23 SCREEN LINES . H 1 · m 11 ill WL l.Wlil1. · Ft 11 1 . % I IPPCR/l .OWFR CA'ic CHARACTFH'i . M I X c l J r ; HAPI llC'i & TLXT OR 'ifPAHATf u� F• c 1tmu•1n;rm:m1 1m1nn A·1 "Jsfat. f • t 1 nE" l en J t t.s f r o"' 28 f·:- 255 ·:h<ir ic f e r !: 2 B � 2 C h a r a •: t e r ! ( h l r i c l e r : ,, r ti.. ...-t ....� a r f' I m• """ , ,,.. "' d1 P�' !Hl) e -t s 1 1 � pro"r a •O'l lb l e l h r l• B A � I ( [fe·;1r canP1Ul8L[ Fur1c l 1 ons F •J l l Y r;RAPlllC & TfXT 'if' Hff N'i I ' ri l 1 r1 e ( orot r o r Cod"" lle.�t•c•lr ·1 >!> Hv t o .... -ll f • <: �.e� l<' e ,. f' i l T ,. w l H • '1 Gr ,i,Ph1 t: S 1 r1 PMOll[ "I 1 n <1 M•J MN'!'. M 1 w "!' '1 Al l " "' r P <!" r Char a c t er s Per l i ne 12 ( t, l f i c I e r : P e r I 1 fo'!' 'SI ( h,Jr <icl er � ""'' I 1 n<!' l 6 (1 f.h•l t( l •r s r •r F•.tl I · Dl l.1PI .AY FOKMAT"l O F 2H , , , 2r,r, C:l IAKACTFR"-i PFK I .INF H � i � t1 I � r P r (• l � � t '' f � � = · , u��E}t ! _ 1�.1� ��r. I 1 r' "' " F v t I ; e t ·=-' ( t • r s o r (.(•f.t r .:d .• r, I 1 o:.r, _;; T r t• e IJ P P e r � L o M e r c a s e •:t1 a r a •: l e r !: e l CONTROL CODE KEYBOARD · H l l . l . Y flAW" COMPATIFll.I· jl o) 1,1 b l f� 1 nd l•'1 1 n" us I; . INDIVll J I J A I . CHAHN"TJ:H 111r;111.1r;HTIN(; . RcVER'ir f'llAHACTCR 1 1 1 r ; 1 1 1 .1 r ; 1 rr MOl >I" . WH ITrl·.N IN J·A'iT MAClllNE I ANr;1 1Ar;E · A l JTOMATIC H r HJCATI 'i TO TOP OJ / h/"l£K · Al JTOMATIC/\1.1.Y 'it IP/'fl lH'i h� K , , / RAM WIT/ I HI '' T CONTHrn . · HfVfR'il . 'iC HFfN · ON 'iCRf'YN I J N / l l H J . I N / · IJ Ol IFll.F 'ilZF CJIAHACTI H'i ALL ORDERS SHIPPED FROM STOCK ADD $2.50 POSTAGE /' · EHA'ic H J I. Ni l OJ· I INI · I.RA 'ii TO f N / l OF -;rH I 1.N · /lOMf ('I JH'iOR · Ill. I I. TONI CJ IAHACTl . H · J l(J�f C l JH'iOH I< I.I .I AH 'iC H l . l . N · RI ()I JIHI -; O N l . Y £ K 01 HAM · f'OM l'AT llll I WIT/I Al.I TAP/ I< I Jl'iK W'll M' Circle Reader Service card 1o HOT Coco November 1 985 #335 5566 Ricochet Avenue Las vegas, Nevada 891 1 0 (702) 452-0632 HI-RES II HI-RES I NcW OLD BRAND X Yes Yes Upper/Lower ca<>l' rh,-uacters Yes Yes Yes Yes Mixed Text and l,r,,phics No Yes Yes Separatl' Text & < 1rnphic<; Yes Yes Yes Print (@ fully 1mpll'men1ed Yes .r) I only Yes Print @> on all line len gth., 2H 10 2:,r, (tJ)2H 1n 2'.1'.1 (11) '.> I onlv ( 1 ) Different line l1·ngths YP<; Yes Ye... Aulnmi'llJC Kt>V RepeM No No Ye� Ad1us1ahlt> K.,v R{"pei\r. N<> No Yi!" Auto Repei\I r"'>1-;i'1hk• Yes Yei; Yes Eraw ro e n d o f l1ne/scrPen Yes Yt>s Yes Hom" Cursor Yes No Yes Solid or Rhnk1ng C u r ,or fluff/Fl!i.ck Ruff/RiMk Ruff/Rlark CLS command "U ppnnl'd X. Y C()()rdinatl' Cu rsor Nn Yes Yes Pmilinning No Y1•<; Yes Onuhlv Site ChMMll'T" lnd1v1dual/Con11nu11u ... Nn 'i Y{:'S Yt>s No Y{:'S yl!.., o di!rlining No CJ,•M/L k,•ysCleM kev Clear Key funct1nnal Yes Yl.'" Y(•-; 16 :\2 & 64 K Supported Grel!n or Bli\rk Ri\rkqrnund Nn y"" No Color Oual Chi1rnrlo•r <;t>f'> for Enhi\nced 64 i'lnd K'.1 No Nn Charncl('T'> per l11w display y,,.,, Prntec!erl Screen Lull''> Nn No 1 '" 2:\ ( rngrnmmilhlt>) Fu\ Control Codi:' Kl! hoilrd for Scwl'n control 1rectlv Nn Yes No from !hi! keyhoMd Prngrammi\hll' Tilh CtMriKIPr No No y"., Spacing No yl''> Full Scn_'l'll Rvv 1•r<..t• Function Yl'<; Sw11rh lo & from ! l w Srf'lndard I h hv :\2 Srrt•en fnr full Nn No y"... rompi\1i1h1li1v Yl'S No On F.rror C.010 Function No y,.., y,... No F.Kll'ndl'd R,1s1r Required yl'... y,.... All Mach1nl' I .ilngu.,�t' ProyrnmY{:''> RAM Requ1rvd m add1!1on 1 1 1 2K 2K 2K Screl!n RAM 't21) 'Vi $24 IJ.r> 'f, J <) ( )'.1 Proqri'lm Pnn• (Tape) ������ U� ] J; VISA 1 •1 VISA. MASTERCARD AND C.O.D. ACCEPTED '� " '" "' " '' '" "" " '"' " r il Comp e e I S C C A B " Th Now anyone can create fast efficient Machine Language Programs Easily and Quickly without having to use an Editor/Assembler CBASIC 1s a fully 1n1egra1ed. easy lo use BaSIC program Ed11or and Compiler package CBASIC 1s 99% syntax compatible T H E FINISHED PRODUCT wirh Disk Extended Color Basic programs. so mos1 BaSIC programs can be loaded and compiled by CBASIC wilh �nle 100"1 pure 6809 Machine Langu;,ge prr..>gTams which are wnnen directly lo disk m a Smee CBASIC contams s1a1ements to support ALL of the I 0 dev1Ces (Disk Tape Screen & Pnnter). Hi-Res Graph1Cs. or no rhanges required The compiler 1s an op1om1zmg two-pass m1eger BaSIC compiler that can convert programs v.mnen m Disk Ex!ended Color Basic mto LOADM compatible formal The programs genera1ed by the comp1\er can be run as complete stand ak>ne programs A buih-m tinker/editOf will automancally select one and only one copy of each subwutme 1ha1 is required from the m1emal run-nme tibrary and msert them direc!ly m 1he program This ehmmales the 'leed for cumbersome. often was1eful separate "run·llme" packages Sound. and Enhanced Screen displays. 11 rs weU suited for a wide range of programming applicanons It generates a complele. Ready to Run machme language program The fm1shed prodoct or program does not have to be interfaced 10 a BaslC program 10 perform some of its funcnons or commands This may seem obv10us lo you. but some of 1he other Color BaSIC compilers don·! necessanly work this way Some of their compiler commands need a separale BaSIC program m order for 1hem to work In some cases. require rhat a separate BaslC program be mterfaced lo the compiled program to perform 1/0 funcrions. like INPUT. PRINT and so on CBASIC doesn'1 do 1h1s ALL of its commands are compiled CBASIC WAS DESIGNED FOR BOTH m10 a smgle machine language program 1ha1 does nol require any kind of BasJC program to make 1t work BEG INNING & ADVANCED USERS COMPATIBILITY CBASIC is a Powerful 1001 for the Begmner or Nov1ce programmer as well as the Advanced Basic or Machme Language programmer The Begmner or Nov1ce programmer can wnte and compile programs w11hou1 having to worry about Stack You may be wondermg aboul those statements we made earlier concerning 99 % or 99 9% syntax comparibility What Pomters. DP registers. memory alkx:ation . and so on. because CBASIC will handle ii for you automalleally All 1hey have does 1ha1 other I % consist of? The b1ggesl part of that I % has to do with stnng anays and vanables CBASIC does nol . use a "Sllmg Pool. like Color Basic !t us.es absolu1e memory addresses 10 locale stnng vanables and arrays This is why 10 do 1s wnte their programs usmg the standard Basic stdtements and syntax For the advanced Basic and Machine CBASIC's strmg processing is so fast. 11 also eliminates 1he time consuming "Garbage Collect1on" problem. When CBASIC Language programmers. CBASIC will let you lake command and conrrnl every aspect of your program. even generating allocaies space for stnngs. 11 mus! know how much space lo us.e for each stnng When you Dimension a string variable machme code directly m a program for specialized routines or funcllons 1n CBASIC. you must 1ell 11 how much space you want to save for each element To Dimension an array of 40 strings. CBASIC adds many features not found in Color Basic. like Interrupt. Res.et. and On Error handling II also has advanced 64 characters each. you would DIM OA${40.64) If a stnng is nol dimensioned. CBASIC will aulomatical!y alloca1e 32 programmmg features thal allow machme level conllol of 1he Slack and [)!reel Page reg1slers. variable allocat1on . <'\Ulomatic bytes for ii JI you wan! a single string 10 have enough room for 200 characters you would DIM AX$(200) For stnng 64K RAM conllol. program ongm and even multiple ongins It can even have machme language code generated wilhin arrays. you would st1ll access the element you want. the same as Color Basic. to get stnng #30 from 1he anay DA$. you a program 1ha1 execu1es 1us1 like any other Basic program line FULL COMMAND SU PPORT & SPEED CBASIC features well over 1 00 BaSK Commands and Functions 1ha1 fully support Disk. Tape. Pnnter and Screen I/ 0 It also supports ALL 1he High and Low Resolunon Graphics. Sound. Play and Stnng OperahOns available in Exlended would shll use DA$(30). !he only real change 1s 1n the DIM statemenl For undeclared string anays of JO elements or less. CBASIC Wiii automatically reserve space for 10 (0-9) srnngs of 32 characters In some olher Color Basic compilers. you have 10 declare EVERY stnng variable used m !he progrm 1n a DIM s1a1emen1 And. lo creale an anay of 40 stnngs w11h 64 characler'i each. you would have 10 DIM A0$(2560). a11d 1hen to access stnng #30, you woukl have to multiply '.{() x 64 and use a special vanable name formal or access 11 one character at a rime Not very compatible or convemem to use. and d1fficull al best Color BaSIC, and all w11h 99 9't syntax compa11bi�ty CBASIC is FAST Not only will CBASIC compiled programs execute 10 to HXXJ times fasier 1han BaSIC. but lhe ime l CBASIC REQUIREMENTS 11 takes 10 develop a CBASIC program versus wnnng a machine language program is much. much shorter A machine language program 1ha1 might rake several months to wnle and debug could be created us1119 CBASIC in a maner of days or hours. even for a well experienced machine language programmer We had a report from a CBASIC user that cla1med "a Basic program 1hat used 10 lake 3 hours 10 run. now runs 1n 7 lo R mmutes'" Anolher us.er reported a program 1ha1 CBASJC requires a m1n1mum of :l2K RAM and a1 least one Disk dnve We sllongly recommend 1ha1 you have 64K CBASIC 1s compatible with all verS1ons of Color & Extended Basic and bo1h Disk BaSIC V J 0 and V I I Programs compiled on either syslem w1ll run on sys1ems with different ROMs CBASIC is NOT compatible with JOOS took I 10 I V1 hours to run m Basic. now runs in 5 lo 6 mmutesm MORE THAN JUST A COMPILER CBASIC has 11s own completely mtegrated BaSIC Program Editor The Editor contamed 1n CBASIC is used to Crea1e and/ru Ed11 programs for 1he compiler It is a full fea1ured ed11or wi1h fur.c11ons designed specifically for wntmg and ed!llng Ba.sic programs It has bu1h in bkx:k Move and Copy func11ons with automahc program renumbenng Complete. easy lo use 1nsert1ng. dele1mg. extendmg and overtyp1ng of ex1stmg program Imes It 1s also used for Loadmg. SaVlng. Appending {merging}. Killing disk files and d1splaymg a Disk Otreclory II also has aulomahc lme number generat1on for use when crealmg programs Qr msertmg s.equenoal hnes between e>us1mg lines You can set 1he pnnter baud rate and d1rec1 normal t)r C(Jmp11ed hstmgs It) 1he prmler for hard rnpy The bu1h m editor makes program conect1ons and changes as easy as "falling ()ff a 1og·· If CBASIC fmds an error when comp1bng. it poinls lo the place m !he program lme where the error r.iccuned AH y<Ju have 10 do is tell the editor what hne you want 10 s1art editing and when 11 is displayed. move the cursr>r with !he arrt)w keys tr> the place where 1he error is and correct 11 Jusl like 1ha1. !l's simple HI-RES & 80 COLUMN DISPLAYS CRASIC is 1he rmly Colnr Ras1c Compiler that includes ils qwn Hi· Resoluhon S l . 64 or 85 by 24 line display h 1s also !he only compiler 1ha1 supports both the PBJ "Word Pak" and the Double Density KO column cards All of these display l()fmats are part <>I 1he standard CBASIC compiler package Nor only can these display formats be used for normal prti<Jram t>dlltng and compiling, bu! CBASIC will also include them in yr,ur compiled programs' If you wan1 CBASIC to DOCUMENTATION The Oocumen1a110n prow:fed with a n y program i s very 1mpor1an1 l o the user This i s especially flue when you talk about a program as comple1e and complex as CBASJC Even though CBASIC was designed 10 be the most Us.er Fnendly compiler on the markel. we went 10 great lengths 10 prov.de a manual tha1 1s not only easy 10 use and understand but comprehensive and complete enough for even 1he most sophishcated us.er The manual included w11h CBASIC conStsts (Jf approx1ma1ely 120 pages of real mf0fma11on. not hke some manuals 1ha1 pul 1ust one or rwo short paragraphs on a page If we did 11 1ha1 way. we could have easily created a Three or four hundred page manual The manual mdex breaks down each section of the manual and gives a ] or 4 word descnphon of each secllon and 11s 11ems along wtth page numbers The manual has three s.echons. the Editor. Compiler and Appendix Each of 1hese is d1v1ded mto subsecrions. w1th Sect1Qn and Subsection 111les pnn1ed al 1he lop of each page JI you want 10. you could fmd 1he inlormallon you are X\'1. lonkmg for by \imply fhppmg through the pages and scanning the Section hlles on 1he lop ol lhe pages The Manual 1tseff is an by 1 1 Spiral Bound book with durable leather textured covers Some of the reports we have had from CBASIC user\ de<;cnbe rhe manual as bemg the Besl program manual 1hey have ever used COMPARE THE DIFFERENCE CBASIC is not 1u'il another Color RasK Compiler h 1s 1he only cnmplcle Ras1c Compiler System for the Color Computer Comp�tl' CHASIC's featurl''i to what other compilers offer and you'll sel' 1he difference When compi'lring CBASIC 10 mclurle !hi:.' display dr1Vt>r 1n yrJUr program , all you have lei do is us.e a single CBASIC command "HIRES" The run hme r1ther cnmpiler'i, you migh1 want 10 kl:!ep some of 1hese questions m mmd Does 11 suppor1 1/0 func11ons·� You can't wnte the H1 Res<1lu11on display package you can mix 1ex1 & graphics. change characters per lme. underhne. character highlighl . Can you use two characler vanable names for strmg & numenc vanables. like RaslC Does 11 support all 1he Hi-Res graph1Cs display dnver 1ha1 CBASIC includes m y()ur program is n.,1 1ust a simple display. but a full fealured display package W11h erase lri end of lml:.' r1r screen. hnme cursor. home & clear screen. prolecl screen Imes. �nd much more All commands are cr1mpa11ble w11h our HJ RES ll Screen Commander so ynu can easily develop screen layouts usmg HI RES and Color RaSIC before y<Ju compile your program The same applies lo usmg the 80 column card dnvers Whal other BaslC compiler offers yrJU 1h1s kmd l'>f flex1b1b1y·J 64K RAM SUPPORT CBASIC makes lull use of the pr>wer and fle111bihty of 1he 6KX] SAM !Synchronous Address Mul11plexer) m lhe Color Ctimputer It will fully uhlue !he 96K of addre� space available m the Color Computer (b4K mstalledJ dunng program Creal1<m. Ed11mg <'Ind Comp1la11on CBASIC has a special command for automatic MK RAM conllol When used m a pmgram 11 alloW\ lhe user 1r1 use the upper ]2K of RAM space automaheally for vanables or even program storage al run 11me h will automat1Cally switch the ROMs m and out when needed There are also two olher commands 1ha1 allow y<Ju l<J cnnrrol 1he upper :i2K of RAM manually. under program conllol No o!her Color Basic compiler directly supports much of a program without PRINT. INPUT and so on What about complex stnng slatemenls, or stnng stalemenls at alfJ How �'il" of a pmg"m can you wnlel Can you comi>� a compk• smng hke MID$(RJGKT$(D/\${VAL[IN$1.LEN!LE$)).:l.:l)' slall:!ments mcludmg PLAY. DRAW. GET and PUT. u51ng the same syn1ax as Basic1 Do you ever have 10 use � separa1e RasK program·J Can you take cnmpleie Basic programs and compile 1hem w11hou1 extenS1ve changes·) Will they work'J How do you edit a program when 11 has errors comp1hng·J PRICE VERSUS PERFORMANCE Thi! pncl:.' "' CBASIC 15 $ 1 49 ()() It tS 1he most expenS1ve Color BaSIC Compiler on 1he market. and well worth the mw'itml:!nl We spent over 2 years wn11ng and refming CBASIC. 10 make II the Best. most Compallble Cokx BaSK compiler available Mos! of our CBASIC users aleady bought one or more of !he olher compilers on the market and hitvl:.' Since discarded lhem We even ITaded m a few of 1hem lf you wanl a cheap compiler. we'll sell you one of those traded in. ell a yood pnce Before you buy a compiler. compare the performance of CBASIC againsl any Color BaSK cnmp1ler Dnllar for Dnllar. CBASIC gives you more lhan any olher Color BaSK compiler available 1he use of 64K RAM hke CBASIC ORDERING INFORMATION ALL MACH INE LANGUAGE CBASIC is completely wnnen m fas! eff1C1en1 Machine Language . nol BasJC. like some other Color Basic compilers Because of this. CBASIC can ed11 and compile very large programs Even using the H1 Resolullon 5I by 24 hne display, 11 can wnrk w11h about a :i4K program . and the 80 column card verS1ons can handle almost 40K of program Some of To order CBASJC by mail. send check or money order m lhe amount of $ 1 41J ():) plus $3 00 for shipping and hand�ng 10 the address lo lh"-' address listed below To mfo by VISA. MASTERCARD o' COD. call us a1 17021 452 · 0b:l2 [Monday 1luu S.1u,day. Ham 10 5pm PSTI the other Bas1C compilers can only work w11h 16K or aboul 2fX) Imes Even working with large programs. CBASIC compiles programs with bghtrnng fas! speed II will compile a 24K program lo disk m less than 2 mmutes1 That's w1thou1 a bsring being generated We've heard slones abr>u1 some other compilers 1ha1 take almost 10 minutes 10 compile a simple 2 - :iK pr<igram y,,u might inquire abt1ul this when you look al some of the other compilers available Tell them "I saw It in HOT Coco . " A CER-COMP 5566 Ricochet Ave. Las Vegas, NV 891 1 0 (702) 452-0632 November 1 985 HOT CoCo 11 by Richard E. Esposito Having technical dij]lculties? Let the Doctor solve them. Due to the vol ume of mail Doctor ASCII receives each month. we cannot guarantee that your letter will be published. Please enclose a stamped. self-addressed envelope with all letters for a reply. Send your questions to Doctor AS CII, clo HOT Coco, 80 Pine St., Peterborough, NH 03458. Q I have an older TEAC full-width drive I purchased from Dis • played Video with their controller and RS DOS 1 . 1 . I want to add a Tandy drive 1 to my system . but I received no technical manual with the unit. Does it have a terminating resistor? Do I need a new cable? Should I remove the TEAC's terminating-resistor pack? Michel Grimard, Sherbrooke, Quebec A. • 1 does not (Tandy puts a terminating resistor on drive 0-move Since your TEAC has a terminating resistor and the Tandy drive Q In your July 1985 column. you presented a two-column screen •directory program. I tried without success to send the two-col umn directory to my printer. Can you help?-M. Talutto, Floral Park, NY A . lines: Delete lines 1 70-200. 220. 230. and 250. Then add the following the resistor to the highest-numbered position when you add drives). use the Tandy as drive 0 and the TEAC as drive 1. Remove teeth 1 2 . 14. and 3 2 from the drive connector closest t o the controller connector on your cable. The teeth are numbered from bottom to top. with the open slot facing you. as shown below: 33 31 29 27 25 23 21 19 17 15 13 11 9 7 5 3 1 170 IF N I THEN I I :GOlD 220 1 80 FOR I = I 1D N I STEP 2 1 90 PRINT# - 2.STRING$(10," " ) : I$(1).1$(I + I ) 2 1 0 NEXT I 220 IF N = I THEN PRINT# - 2.STRING$(10." "): I$(!) = = - Q In your article. "64K Modification Revisited" (Har CoCo. June • 1 985. p. 40). you mentioned a piggyback upgrade. Tandy is now selling sets of 200-ns 16K chips for $7.95 and 100-ns chips for $3.95 each. Can I use these?- Richard Davis, Yogkum, TX A . 48127) selling 150-ns. 4 1 64-type 64K chips for 69 cents each, With Microtek Inc. (2654 1 Baldwin Road. Dearborn Heights. Ml why spend more for a 32K upgrade? Also. the piggyback upgrade is not compatible with software that puts a high-resolution screen above the 1 6K boundary. It made sense when 64K chips were selling for $50 each. but today I wouldn't do a piggyback upgrade even if I got the chips for free. Q My Radio Shack catalog says that I can have up to four drives • With my CoCo. Where do you hook them up? Do I need a new cable. or is the reference to double-sided drives?- Timmy Lindner, Patterson, CA A . you need their four-drive cable with its missing teeth. If you go You need a new cable in any case. If you stick with Tandy drives, with double-sided drives. you can have a maximum of three using a non -Tandy cable without missing teeth. Tandy extracts three of the four teeth that connect to the disk controller's drive-select lines. allow ing you to move Tandy drives to d ifferent connectors on the cable and still have the one closest to the controller as drive 0. Other manufac turers use j umpers inside the drives to determine a drive's number. so you don't have to remove teeth from the cable. Double-sided drives use the drive 3 select as a side select. making it impossible for Tandy's cable with its three missing teeth to select both drive and a side. 12 HOT Coco November 1 985 34 (32) 30 28 26 24 22 20 18 16 (14) ( 1 2) 10 8 6 4 2 - remove - remove - remove You also need to move a jumper inside your TEAC to make it drive I . · Q W h y i s i t re c o m m e n d e d t h a t y o u u s e t h e i n s t r u c t i o n •A = RND( - TIMER) to seed the CoCo's random-number gener ator? I assumed that TIMER would give a different value each time I ran the program, but typing PRINT( - TIMER) always returns a zero. Jules LaFrance, Ottawa, Ontario - A • if you have Extended Color Basic. Otherwise. the CoCo treats it TIMER gives the time since you turned on your CoCo. but only as an ordinary variable. which has a value of zero by default. J ' ll ex plain how RND works. since the CoCo's manual does not do a good job of it: • If the argument of RND is positive. RND gives you a random integer between one and that number. • If the argument of RND is zero. RND gives a random decimal be tween zero and .999999999. • If the argument of RND is negative. the argument is used to reseed the random-number generator. hence the use of - TIMER. Q I want to learn Assembly-language programming. Can you rec • Ommend some good books and an inexpensive assembler? How do you hand-assemble an Assembly-Language program?- Sb awn Long, Hurdle Mille, NC A . coco in the March 1 9S4 Har CoCo, p. 3S. The two most popular I reviewed five Assembly-language programming books for the assemblers for the CoCo are Tandy's EDTASM + ($39.95 ROM pack. catalog no. 26-3250: $59.95 disk, catalog no. 26-3254) and The Micro Works' (P.O. Box 1 1 1 0. Del Mar. CA 92014, 619-942-2400) SDSSOC ($S9.95 ROM pack) or Macro-SOC($99.95 disk). Bill Barden 's TRS-80 Color Computer Assembly-Language Programming (available from Tandy) supports the former. and Don and Kurt Inman's Assembly Language Graphics for the TRS-80 Color Computer (published by Res ton) supports the latter. You can order technical information on the CoCo's MC6S09 microprocessor from Motorola Semiconductors, 3501 Ed Bluestein Blvd . . Austin, TX 7S721. Ask for Advance Information #ADl-S47. It contains data on the 6S09E's instruction set and other technical information. I believe it is still free for the asking. You can use Basic POKE statements or a monitor program such as the one that appeared in Doctor ASCII. December 1 9S3. p. 1 29, to hand-assemble machine-language programs. The problem with hand assembly is that it is the time-consuming job of translating the op codes and data into numerical inputs that you can enter into memory. Q A Where can I get information on the CoCo's new video-display . generator? - Allen Elmer, Fallbrook, CA Write Motorola Semiconductors at the above address. Ask for • advance information on the MC6S47-T 1 . Q How can I tell which PC board I have in my old gi:ey CoCo? • USN CDR Robert B. Pinell, San Diego, CA A After removing the CoCo's cover. with the keyboard facing you, • look for a serial number below the ROM-pack port. It will end with either a D. E. NC. or 2S5. If it is one of the first two. that letter is the board type. If it is one of the latter two, your board is what Coco nuts have christened the F board . Q I recently purchased a 64K CoCo 2. but I get only 24.S7 l free • bytes when I turn it on. Do I really need disk drives and OS-9 to get 64K?- William C. Privett, Roseville, GA A Your Coco has 64K of RAM plus 1 6K of ROM for a total of SOK . o f memory. The Coco can address a maximum of64K at a time. When you turn on your CoCo. you have 32K of RAM, of which Basic uses SK (6K for high-resolution screens and 2K for housekeeping). With Extended Basic. your interpreter is in ROM and is addressed from locations 3276S to 49 1 5 1 . Adding ROM packs or Disk Basic gives you up to 32K of ROM. This RAM/ROM mode is called memory map 0. You can access the other 32K of RAM in one of two ways: You could swap out the ROM for the other 32K of RAM for memory map 1. This is what OS-9 does. but so do a lot of other software packages such as Telewriter-64, which comes in a cassette version. Another way is to have two lower banks of 32K. This is the way print spoolers are usu ally implemented on the CoCo. With two lower banks. you get maxi mum memory use of your CoCo. Some programs using this method have 55K buffers. Q I want to put machine-language programs into high memory at . location 44560. In "Printer Answers" (HOT Coco. March 19S5, p. 24). you said. "Those of you with 64K can enable memory map 1 and offset load into high memory." but you didn't say how.-Albert M. Huntley, Windsor, VT A• You need the program 64K Enable (Har CoCo. June 19S5. p. 45). Q The Tandy manuals show how to use the cassette to form files • for storing data. but they create files that are only 12 lines long. What do I do if I have more than 12 lines of data. and h0w can I scroll through it?-M.S. Casey, Sr., Casper, WY A • Word processor that generates ASCII files. There are many good You need an editor program . Better than an editor program is a ones for the CoCo, including Telewriter-64. VIP Writer. and Elite-Word: Q I have Tandy's Micropainter ROM pack. On my new CoCo. it • produces green in color set 3 instead of blue. I finally swapped display chip AN4S33 l for chip number AN4S324. I now have blue skies. Dennis Sledge, Ty Ty, GA A• Q - Thanks. Perhaps this will help someone else. Can you recommend a book on high-resolution moving anima • tion?- WiJJiam L. Warren, FPO, New York, NY Try Don and Kurt Inman's Assembly-Language Graphics for the A . TRS-80 Color Computer. published by Reston. You might also be interested in the series of articles from Har CoCo called "Anatomy of an Assembly-Language Game" (June through November 19S4). by Mike Meehan . • November 1 985 HOT Coco 13 Mmdbusters �------� by Richard Ramella The Wild Blue Yonder I f you were handed a sheet of paper con taining your name and 999 others. you would probably be able to spot your own name so quickly you'd think it happened by chance. But it doesn 't. The human brain has the ability to quickly focus on those things that are most impor tant. And your name is one of the most im portant things you possess. In a world of sensory overkill. this brain capability is especially usefu l . Executives scan mounds o f memos, almost subcon sciously discarding the chaff. Parents sleep soundly in an apartment next to a noisy in terstate route but awaken if their baby whim pers in the next room. A loved one's features can be picked out of a crowd of hundreds a h u n dred yards d istan t . We tend to skim newspapers and flip the dials of radios and TVs. stopping only where our emotions and intellect direct. I tested this idea by offenng a child a bowl filled with a mix of peanuts and light choco late candies of about the same size. color. and shape as the peanuts. As I watched. her eyes narrowed and flitted over the surface of the bowl's contents. Then they widened and she reached out and plucked up the chocolates without disturbing a single peanut. We have learned not only to focus but also to ignore, a two-edged ability that helps us solve problems. Answers are deJived from patterns that are part of the puzzle-patterns that are extracted from chaos. Up and Away Before I tell you about this month's puzzle and contest. it is time to announce the win ner of Puzzle Contest 11-Consarnation. The winner is Rich Harder of Northlake. IL. His answer stJing. one of several that yield the highest possible score of 82 points. is: EEEESSSSSS N NEEEESSEENNWWSS WWNNEENNWWNNWWEESSSSWWWW. He will receive a free, one-year subscription to HOT CoCo. Congratulations. Rich. The puzzle-busting abilities of Mindbus14 HOT Coco November 1 985 ters readers are enough to keep a poor puzzle creator up nights trying to build a better mousetrap. Some 38 entrants had the cor rect answer to Consarnation. But I can guar antee that there w o n ' t be so many right answers to future Mindbusters puzzle con tests. And you're nght if you read that as a challenge. The Program Listing this month is called Wild Blue Yonder. It is a Basic listing that will run on all Color Computers. For the MC- 10. change the P 1 024 in line 1 20 to read P 1 6384. The introdu ctory comme n ts above might help you solve Wild Blue Yon der. But if you are not able to solve the puz zle. the answer will be pJinted in a future issue. And for those of you with bright ideas. good luck trying to solve it with a simple au tomatic-play algorithm-theoretically . the first 10 moves have more than a billion com binations. When you run Wild Blue Yonder. you will see part of a large oblong group of single-digit numbers between one and nine on a field of blue. As the puzzle is first drawn. only the upper half of the number field is visible. You move up and down the oblong by tapping the up- and down-arrow keys. As the puzzle be gins. the flashing orange cursor is on a num ber 3 at the center of the oblong. You can move the cursor in any of eight compass directions by tapping the following two-character commands: NN for north. SS for sou t h . E E for west. WW for west . NE northeast. SE for southeast. NW for north west. and SW for southwest. The number on the space that the cursor is resting deter mines how many spaces the cursor will move in the direction you choose. The first direc tion you select in Wild Blue Yonder will al ways move the cursor three spaces. The object of the puzzle is to find your way yonder-to the blue area of the screen sur rounding the oblong. However. don't go too far. A winning position is any blue space touching the peJimeter of the oblong field of numbers. I f you direct the cursor more than one space outside the oblong. you ' l l have placed it in limbo. You cannot move from a = = position that is not within the field of num bers. and your only recourse is to restart the puzzle. There is one other important rule: The line of travel to reach a winning position cannot fall over any of the blue area. The program purposely allows the possi bility of game-ending Basic error messages. Keep in mind that the number position to which you will move the cursor in making a direction selection must be visible on the screen. A move that takes the cursor "off the screen" will produce an FC (illegal-function call) error. When you make 6 1 moves without finding your way out. the program ends with an OS (out of st!ing) error. This is also purposeful. for the solution takes fewer than 6 1 moves. Once you have solved Wild Blue Yonder or completed an attempt. you can display a list of the moves you made by typing "PRINT SC$" and pressing the enter key. One last note: Be sure to tum up the sound on your TV or monitor: random tones will sound if you beat the puzzle. Ladies and gentle men . . . fry your brains! Puzzle Contest VII This month's puzzle contest involves the solution to Wild Blue Yonder. When and if you solve it. type "PRINT SC$" to see the move string. Using some or all letters in the stJing. spell the longest English word you can. The winning move stJing and the word you form will constitute your entry. The win ner will receive a one-year subscription or ex tension to HOT CoCo. Next month : Uncle Arnold's coin gam e . • Eds. note-To enter Puzzle Contest VII. send your name. address. move string. and the word you spelled to Richard Ramella. 1 493 Mt. View Ave .. Chico. CA 95926. The winner will be the entrant who offers the correct move string and the longest English word spelled with its letters. ln case ofa tie. the winner will be selected at ran dom from the tying entrants. Entries must be postmarked by November 30. 1 985. Program Listing. Wild Blue Yonder 7" 3 20 A$ ( 1 3 ) = " 2 5 2 2 6 1 2 4 4 6 3 4 1 2 1 2 6 5 1 8 8" 3 3 0 A$ ( 1 4 ) =Bl $ + " 4 3 7 5 1 9 3 4 4 5 2 9 4 1 9 5 7 4 8 " +B 1 $ 340 A$ ( 1 5 ) =B l $ + " 4 1 6 7 8 3 4 3 4 1 3 1 2 3 2 3 6 2 4 " +8 1 $ 3 5 0 A$ ( 1 6 ) =B l $ + " 7 3 2 6 1 5 3 9 2 3 2 1 5 7 5 8 9 5 4 " + 13 1 $ 3 6 0 A$ ( 1 7 ) = B 2 $ + " 1 6 7 3 4 8 1 2 1 2 1 2 2 8 9 4 1 " +82$ 3 7 0 A$ ( 18 ) =S2$+ " 2 5 4 7 8 7 5 6 1 3 5 7 8 7 2 9 3 " +B 2 $ 380 A$ ( 1 9 ) =B3$+ " 6 5 6 4 6 7 2 5 226 3 4 7 4 " +B3$ 390 A$ ( 20 ) =B4 $ + " 2 3 1 2 3 3 3 2 1 3 2 1 1 " +B 4$ 400 A $ ( 2 1 ) =B6 $ + " 7 4 4 5 7 3 4 4 7 " +B 6 $ 4 1 0 A$ ( 2 2 ) = B 9 $ + " 3 3 4 " +B 9 $ : A $ ( 2 3 ) = 8 $ : A$ ( 2 4 ) =B $ 4 2 0 H = 3 9 8 : Y = B : GOSUB 6 6 0 4 3 0 X $ = I NK E Y $ 440 H l = P E EK ( P+ H ) : POKE P+ H , 2 5 5 : GOSUB 6 7 0 : P O K E P + H , H l : GOSUB 6 7 B 4 5 0 I F P F > 3 4 9 A N D P F < 3 5 7 T H E N PO KE P + H , 2 5 5 : S O U N D 1 0 0 + R N D ( 5 0 ) , l : GOTO 4 5 0 4 6 0 I F X$= " " THEN 4 3 0 4 7 0 I F X $ = D $ AND Y > B T H E N Y =Y - 1 : H=H+32 4 8 0 I F X $ = U $ AND Y < 9 T H E N Y = Y + l : H=H-32 4 9 0 I F X $ = D $ O R X $ = U $ T H E N GOSUB 660 5 0 0 I F X $ = " N " OR X $ = " S " OR X $ = " W 1 0 0 R E M * W I L D B L U E YON D E R * C O L O R BAS I C 1 1 0 C L S 3 : P R I NT @ 2 3 2 , " W I L D B L U E YONDER " ; 1 2 0 C L E A R 8 00 : P = l 0 2 4 : D I M A $ ( 2 4 ) , J ( 3 ) : F O R A = l TO 2 1 : B $ = B $ + C H R $ ( 17 5 ) 1 3� I F A = l T H E N B 1 $ = B $ 1 4 0 IF A=2 THEN B2$=B$ 1 5 0 I F A = 3 T H E N B 3 $ =B $ 1 6 0 I F A=4 THEN B4 $=B$ 1 70 I F A=5 THEN B 5 $=B$ 1 8 0 I F A=6 THEN B 6 $ =B$ 1 9 0 I F A=9 T H E N B 9 $ =B $ 2 0 0 NEXT : CLS3 : U $ =CHR$ ( 9 4 ) : D$= CHR$ ( 10 ) 2 1 0 A$ ( 0 ) =B$ : A$ ( 1 ) =B$ : A$ ( 2 ) =B9 $ + " 4 7 7 " +B 9 $ 2 2 0 A $ ( 3 ) = B 6 $ + " 5 4 4 8 3 3 4 6 3 " +B 6 $ 2 3 0 A$ ( 4 ) =B 4 $ + " 1 4 5 1 1 1 4 5 1 7 1 3 5 " +B4 $ 2 4 0 A$ ( 0 ) = B $ : A $ ( l ) = B $ : A $ ( 5 ) = B 3 $ + " 4 9 4 9 6 7 5 5 5 8 7 6 6 8 5 " +B 3 $ 250 A$ ( 6 ) =B2 $ + " 37 29 8 3 5 6 7 3 9 1 8 7 5 8 5 " +B 2 $ 2 6 0 A$ ( 7 ) =B2 $ + " 1 4 7 8 4 2 9 2 7 1 18 2 2 7 6 3 " +82$ 270 A$ ( 8 ) =B l $ + " 7 2 1 8 5 5 3 1 1 3 1 3 3 4 2 8 6 1 3 " +8 1 $ 2 8 0 A$ ( 9 ) =B l $ + " 4 2 6 7 2 5 2 4 2 2 5 4 3 2 8 1 7 7 3 " +8 1 $ 2 9 0 A$ ( 10 ) = B l $+ " 4 1 6 5 1 1 1 9 1 4 3 4 4 3 1 9 8 2 7 " +B l $ 300 A $ ( 1 1 ) = " 4 3 5 2 3 2 2 3 2 4 2 5 3 5 1 1 3 5 5 3 7" 3 1 0 A$ ( 1 2 ) = " 2 7 1 5 1 1 3 1 5 3 3 2 4 2 3 7 7 5 42 DDDDD DDDDD •••o• DODOO DDDDD PERRll �[]DITJ[p[]1][][JJ 0 ------- Circle Reader Service card ------.... COMPUTERS CO MPUTERS 26-31 36 1 6 K Extended Color Computer 2 . .$ 26-3 1 27 64K Extended Color Computer 2 26-3 1 29 Disk Drive 0 for Color Compute r . 26-31 30 Disk Drive 1 for Drive 0 . . . . . . . . . . . . . . 26-1 276 D M P- 1 05 80 cps Dot Matrix Telewriter 64 Tape . . . . . . . . . . . . . . . . . . . . . . . . • . Telewriter 64 Disk ................. V I P Writer . . . . . . . . . . . . . . . . . . . . . • . . . . . . • . . LIST PRICE 1 1 9.95 2 1 9.95 349.95 1 99.95 1 99.95 49.95 59.95 69.95 OUR PRICE $ 1 02.00 1 75.00 290.00 1 69.00 1 69.00 42.00 49.00 59.00 26-1070 25-1 000 25-3000 26-5 1 03 26-5 1 04 26-3860 26-1 208 26-1 209 Model 4 D Desktop 64K . . . . . .$ Tandy 1 000 1 Dr. 1 28 K . . . . . . . . . . . . Tandy 1 200 10 Meg H . D . 256 K . Tandy 2000 2 Dr. 256K Tandy 2000 1 Dr. 10 Meg H . D . 256K . . Tandy Portable 200 24K . CCR 81 Tape Recorder CCR 82 Tape Recorder LIST PRICE 1 1 99.00 999.00 1 999.00 2499.00 3950.00 999.00 59.95 49.95 $ LIST PRICE . . . . . . . . . . . . .$ . • . 59.95 49.95 1 49.95 $ . . • . . . . • . • . . . . . . . . . . . . . . . . 2 1 .00 OUR PRICE 49.00 45.00 1 39.00 1 5% 0ff CALL 1 4.00 Epson LX-80 Printer ( F riction Feed) Epson LX-80 Tractor Feed . . O K I DATA 1 82 Printe r . · · · · · · · · · · · · STAR SG-10 Printer . . . . . . . . . C. ITOH 7500 Prowriter Printer . Bolek Serial to Parallel Interface . . Comrex 1 2" Green Monitor . . . . .$ Comrex 1 2" Amber Monitor . Comrex 1 3" Color Monitor . . . Amdex 300A Monitor . . . . . . . . . . . . . . . . . . . . . . . . Tek n i ka RG B/Composite Color Monitor . . V I D EO Plus Monitor Adaptor . LIST PRICE 1 1 9.00 1 29.95 329.95 1 99.95 399.00 $ OUR PRICE . . . . .$ LIST PRICE 299.00 49.95 299.00 299.00 289.00 59.00 · · · · · · · · · 26-30 1 8 Extended Basic K i t . 26-30 1 7 64K Memory Kit . . . . . . . . . . . . . 26-3008 Joysticks (PAIR) . 26-30 1 2 Deluxe Joystick (EACH) . 26-1 1 78 DCM-3 Direct Connect Modem . Anchor-Signalman Modem 300/1 200 Baud 95.00 1 1 0 .00 285.00 1 55.00 299.00 32.00 c OUR PRICE $ .$ LIST PRICE 39.95 69.95 1 9.95 29.95 59.95 399.00 250.00 40.00 245.00 250.00 225.00 49.00 OUR PRICE $ a ($10 a{g on o tunher onlormat1on ) Visa ado aoo 3"it. N mDer Detore re!urnmg e iv ry sub1eCT PERRY COMPUTERS • 1 24 SOUTH MAIN STREET • PERRY, Ml All prices ana o1fers may oe cnangeo or w•tnOrawn w11hout n'l1•ce Aclvemseo prices are cash proces C 0 D a cep1e •elurned ill oe sub1ec! 10 1 0'% restockmg tee DeleC!•ve items reQulfe 1e!urn merchaneltse authoriiauon Call tor R M A u saw 995.00 775.00 1 525.00 1 225.00 1 885.00 725.00 50.00 42.00 ACCESSOR I E S M O N I TORS w OUR PRICE PR I NTERS SOFTWARE V I P Database . . . . . . . . . • . . V I P Terminal Disk . . . . . . . . . . . . . V I P Integrated L i b rary . . . . . . . . . R A D I O SHACK Software . Tom Mix Software . . . . . . . . . . . . . Com rex SS/DD 1 0 Pack Disks . # 1 24 CALL (51 7) 625-41 61 CALL TOLL FREE 1 -800-248-3823 COLOR COM PUTE R S Tell them "I " O R X $ = " E " THEN C$=C$+X$ 5 1 0 P K = VA L ( C H R $ ( H l - 6 4 ) ) : P R I NT @ 9 3 , C $ ; : I F L EN ( C $ ) < 2 T H E N 4 3 0 5 2 0 I F C $ < > " NN " A N D C $ < > " S S " AND C $ < > " WW " AND C $ < > " E E " AND C $ < > " N W " A N D C $ < > " S E " AND C $ < > " S W " AN D C$ < > " NE " THEN 6 8 0 5 3 0 I F C $ = " NN " T H E N H = H - ( P K * 3 2 ) 5 4 0 I F C $ = " S S " T H EN H=H+ ( PK * 3 2 ) 5 5 0 I F C $ = " WW " T H E N H = H - P K 5 6 0 IF C $ = " E E " THEN H=H+PK 570 IF C $ = " N E " THEN H=H+PK- ( PK * 3 2) 5 8 0 I F C $ = " NW " T H E N H = H - P K - ( P K * 3 2) 5 9 0 I F C $ = " SW " T H E N H = H - P K + ( P K * 3 2) 600 I F C $ = " S E " THEN H=H+PK+ ( PK * 3 2) 6 1 0 I F P E E K ( P+ H ) < > 1 7 5 THEN 6 8 0 6 2 0 SC$=SC$ +C$ 6 3 0 J ( 0 ) =P E EK ( P + H - 3 2 ) : J ( l ) = PEEK ( P+H+3 2 ) : J ( 2 ) =PEEK ( P+H-l ) : J ( 3 ) = P E E K ( P+ H + l ) 6 4 0 P F = B : F O R T = B TO 3 : I F J ( T ) > 1 1 2 AND J ( T ) < l 2 2 THEN J ( T ) =J ( T ) - · 113 6 5 0 P F = P F + J ( T ) : N E X T : GOSUB 6 8 0 : GOTO 4 3 0 6 6 0 G=Y : F O R X = 4 T O 4 8 4 STEP 3 2 : P R I NT @ X , A $ ( G ) ; : G=G + l : N E XT : RETURN 6 7 0 F O R T = l TO 2 0 : N E X T : R E T U R N 6 8 0 C $ = " " : P R I NT @ 9 3 , B 3 $ ; : GOTO 430 6 9 0 R E M * E N D O F L I ST I NG it i n HOT coco." 00 cri e per canon D l e C 0 0 Call t r 1S C00 IO p1oouct avc11la01h!y MC 2'. Alt November 1 985 37.00 59.00 1 6.95 25.00 50.00 275.00 All non-oe!ectove •terns 48872 HOT CoCo 15 N EW New Low P r i c e ' DISK DRIVES 40T•s 6 M s 40 or 80 Trac k s 8 9 .95 STA R T I NG AT $ 1 /2 H gh t Teac; Panason ic TAN DO N M PI T E AC Speed 6 ms tk to t k and up WITH CASE & Capaci t y 250 k u n formatted POWER SUPPLY Tracks 40 $12995 Warra nty now 1 YEAR We carry on l y t he f i nest q u a l i ty d i s k d r i v e s • no second s · no surplus SATISFACTION GUARANTEED!! ALL DR IVES F U L LY T E ST E D & WA R R A NTE E D Complet� D i s k D r i v e w i t h Power Supply & Case . . . . . . . . H!l� . . . . . . $129 95 . . Two D r i ves in Dual Case & Power Supply . . . . . . . . . . . . . . . . . T�� 1= . 1 /2 ht double sided double dens ity D i s k D r i v e s 1 /2 ht double s i ded double density D i sk Drive , ( Panasa ; w i t h ps & ca $44.95 Dual 1 /2 ht p s & case Color Co mputer Control ler ( J &M ) QRIVE 0 FOR RADIO S HACK COLOR . .. • $ 5 4.95 j..2.+9:95 . . . • • · � �; ow to use your new d r ive system on aud io cassette S i ngle ps & case . �ea c: ) �: . • • •� D u a l ps& case . . . COMPUTER POWER SUPPLY and CASE, TWO DRI VE CABLE WITH ALL GOLD CONNECTORS J & M CONTROLLER, MANUAL and DOCUMENTATION , . , , . $�49:95° . , . , . . ...+"'� .,,PRIVE 0 FOR RADIO SHACK COLOR COMPUTER �°""' 0� ""'", PANASONIC 1/2 H E IGHT DOU B L E S I DED DOUBLE D E N SI T Y D R I V E SOOK unformatted � 0.,_"" • • , , • • • • • • • • , , • • POWER SUPPLY and CASE, 2 DR I V E CABLE WITH A L L GOLD CONNECTORS J & M CONTROLLER. MANUAL and DOCUMENTAT ION , . , , • • • • , , • • , . , TAK E A DD E D SAV I NG S ON TWO DR I V E SYST E M S ff � \\ su�eS ALE I • DISKETTES w ith f ree l i brary case . . . . . . . . . . . . . . U n ad vertised Specia l s . . . . . . . . . . . . . . . . . . . . . . . . . . . .�.�. ��:".°: '."'.': $ 1 7 95 Drives c leaned, a l igned & tested . . . . . . . . . . . . . . . . . . . . . . . . . $29.95 m :�l�=d�r�t.:�. :.��O LJ . . . . . . . . . . . . . . $Ca l l TECH N I CAL STA F F ON D U TY. PL E A S E C A L L FOR A SS I STANC E . CALL us TODAY !! ORDER TO LL F REE (61 7 ) 234-7047 1 -800 - 635-0300 Linw ood, Massachusetts 01525 (6 1 7) 234-7047 H OU R S MON - S A T 9 - 6 ( EST) 16 Ca l l $ SALE I. , , , . , , �7� , . , , , , . , , 10 0 i s k e t t e s CALL $129.95 TANDON, M P ! OR TEAC DR IVE ( S INGLE S I DED 40 TRACKS S PE E D 5 M S T R K TO TRK & UP) <,..'>-<. � $111.95 cALL HOT CoCo November 1 985 * D EALER I NQ U I R I E S I NVITED. C TS (617) 234-7047 We we l come • V isa / M aster C h a rge I ....... l ffi] • Checks ( a l l ow 2 weeks for c l ea r i n g J • C.O.D. A d d $ 2 .0 0 Circle Reader Service card #93 �# New Hard Drives QUALITY VIDEO MONITORS ----------- COMPLETE SYSTEM ----------- J UST PLUG I N ··········· Call For BE ST PR I C E $ 79. 95 Starti ng at MONOCHROME COLOP. MONITORS • , #' Warranty - One Full Year � i · · · · . or r e v e r s e T YP E • Underlining Backspacing Doublestnke 5, 6, 8 1/2, 1 0, 12 and 17 Polch w/r e g u l a r for opt i o n o r double t h e E pson of s i zed p i ct u r e s s1 99s Color Computer 300- 1 9,200 BAUD rates • External to printer - No AC Plugs Built in modem/ printer switch-no need for Y-cables or plugging / u nplugging cables $CALL , , $CAL L $CALL 1.e t t e r q u a l i t y COMPLETE SYSTEM ' �� '-'osc� �� � SG - 1 0 TRUE DA TA PR O D UC TS 1 95 & Gem i n i s t anda r d image s O n ly: Programmable L i n e Spacing SIX (6) MONTH WARRANTY program Have t h e SP-3 INTERFACE for • Super Scrip1-Subscnp1 GEMINI 1 0X (9 I nc h Carriage. 1 20cps) F r i c t ion and Tractor GEMINI 1 5X ( 1 5 I n c h Carriage , "1 2ocps) F ri c t i o n and T r a c t o r DEL TA 10 ( 1 0 I n c h Carriage. 1 60cps) F r i c t i o n and Tractor P OW E R .�•• VIDEO MONITOR INSTE AD OF A TELEVISION! p r i nte r s e ver ! ! PRINTER CABLES AND I NT E R F A C E S AVAILABLE C•ll lo• '"'�"' p ri o;•g · • ENABLES YOUR COCO TO OPERATE WITH A The b e s t s c r e e n d u m p PR I NTERS 1 00 - 120 - 1 60 CPS • Bidirectional Logic Seeking • Friction and Tractor • 9X9 Do Malrix • True Oecenders • High Res-Bil Image Block Graphocs • ' SC R E E N DU M P P ROGR A M 64K U PG RA D ES !lilc©ll ~ . V I DEO D R I V E R 5 to 20 Megabyte , ready to run on the TRS 80 Model I / I l l / I V /4P , color compu ter , IL _,- Linwood StrMt, P.O. Box Linwood, Massachusetts 546 01525 � ..,,,.. Tell them "I saw it in HOT Coco . " screen dump Nothing more to buy .' Dealer i nq uiries i nv i ted CALL US TODAY !! � � ORDER TO LL F REE \ now with (61 7 ) 2 34-7047 1 -800 -635-0300 November 1 985 HOT Coco 17 The Computer Room by Scott L. Norman D Catchi ng U p with Appropriate Tech nology uring the energy crisis o f the 'seven· ties. we heard a lot about using "appro priate technology." which meant that you should use no more than the m i n i m u m amount o f sensible technological leverage to perform a given task. so as to consume the fewest resources and do the least damage to the environment. Perhaps we should extend the same think ing into the area of personal software. Have you ever shown off your CoCo. only to be asked. "But what do you use it for?" That's often a tough one to answer. It's easy enough to computerize a store or office. but much more difficult to pin down the proper role for applications software in the home. Record keeping and fact finding seem like natural applications: There are always a mil lion things to keep track of around the house. For this. I find smaller. specialized software packages to be of more use to the less tech nically minded members of the household than are powerfu l . general-pu rpose pro grams that require more computing exper tise. More important than software that offers raw computing power are such factors as ac ceptance of user input in a variety of formats. the ability to retrieve information based on partial or imperfect matches to a request and extensive error trapping: user friendli ness. in other words. For Ded icated Shoppers Only If you do much grocery shopping. espe cially for a large family. a data-file manager that keeps track of your grocery coupons could be a significant aid to your budget. Kolourdex for Kou pons is a product of the Kensoft cor.:ipany (2102 50th St . . Kenosha. WI 53140). The program requires 32K and comes on tape for $24.95 or disk for $28.95. (You can also buy a tape-to-disk upgrade for $7.50.) It can tell you if you have a coupon for a specific product. list all your coupons that apply to a particular ty pe of item. and display all the coupons that expire on or be fore a specified date or that are worth more than a specified amount. The tape version can keep track of 400 coupons. while the disk edition can handle 720. Programs like Kolourdex have a place in certain homes. and I ' m going to use it to il lustrate some good and bad practices found in home software . This isn't meant to be an exercise in picking on the product: it's by no means the worst offender I've ever come across. Kolourdex does. however. contain 18 HOT Coco - ---- November 1 985 features that exemplify some of my thoughts about using the appropriate technology to computerize everyday activities. The nonprotected Kolourdex disk contains three Basic files: KDXKPNSD. the main pro gram : KDXKPNDL. which reorganizes data: and KDXKPININ. which initializes a new file when you first run the system . The single data file on a given disk is always assigned the default name KPNS. This file. and some necessary indices. are created as you work with the program. But why such confusing file names? I pre fer something easier to remember. A quick fix to this problem is to add a couple of one line "shells" to your program disk to call the real program. For example. you might store the one liner. 10 RUN "KPXKPNSD". under the name COUPONS/BAS. so that your Ko lourdex command line would be the easily recalled RUN "COUPONS". I use such calling routines with a lot of my favorite applications software and fre quently include a POKE statement in the startup routines to establish 9,600-baud communication with my printer. as well. You could simply rename the main pro gram and be done with it. but I prefer to use a separate routine whenever I think portions of a commercial program might call each other by their original names. I wouldn't want to rename the main Kolourdex file and then find that part of the code contained an explicit ref erence to the original name. KDXKPNSD. Once underway. Kolourdex lets you add coupons to a file. examine records selected according to several criteria. and change or delete records: in other words. it's a well-be haved little data manager. A coupon record consists of just a few items: the description (the specific name of the product). the cou pon value. the expiration date. and the prod uct type. The latter is a number from I to 12 and is used for selecting subsets of a data file. Normally. you use the codes that Kolourdex assigns: number 1 for baby food. cereal. and other breakfast foods: 2 for dairy products. margarine. diet products. and oils: and so on. You can assign your own meanings to these codes as long as you use them consistently within a given file. but I can't find a reason to make such changes. The originals seem to cover everything on a typical shopping list. You enter data for each coupon in response to video prompts. Kolourdex accepts coupon value data in several formats. For example. if you have a 25-cent coupon. you can answer the amount prompt with $0.25. 0.25. or .25. That's the way a consumer-oriented program should behave. On the other hand. coupon descriptions cannot exceed 1 9 characters. That's not enough. especially when you in clude the manufacturer. which is necessary information. If you've got the patience. you could go into Kolourdex and change the 1 9-character limit by altering all references to the length of the description field and the total space set aside for each record. However. lengthening the in dividual records means reducing the capac ity of your file. Kolourdex can deal with multiple identical entries-a good feature that lets you keep track of several copies of the same coupon. However. the program's ability to search for a particular entry is somewhat limited. Any target string you enter must match the first part of the coupon description. If you have an entry entitled ABC Com Flakes. you'll never find the coupon listing unless you specify a string beginning with ABC as your search target. (Actually, just specifying A is accept able. but you'll generate a lot of false "hits.") This method works fine if you adhere to a fixed format when you enter your coupon data. I prefer a more forgiving type of search for a consumer product-one that reports a hit whenever the target matched any substring of the description. For example. at one time I might be interested in a coupon specifically for ABC Com Flakes, while at another I might want a coupon for any old com flakes. Kolourdex should also include a print rou tine. just in case you don ' t have your coupon files right in front of you as you run the pro gram. or so you can pick items of interest as you type your shopping list. Kolourdex au thor Glenn Janes suggests that the Delete Koupons (sic) routine might be a good place to insert a couple of PRINT# - 2 statements to provide printout capability. Kolourdex is inexpensive and includes enough file-handling code to form the basis of a useful piece of home software. It does need a couple of modifications. though. Let me know if patches of the sort I've outlined are of interest to you: perhaps we can return to the program and do some polishing up. I'd also like to have your thoughts about the practicality o f household software. user friendliness. and related matters . • Scott Norman is the manager of solid-state science at GTE Laboratories in Waltham. MA. Write to him at 8 Doris Road. Framingham. MA 01701. Circle Reader Service card CoCo's Best & #506 Fastest Spreadsheet System ACCLAIMED BY THE EXPERTS "DYNACALC is my choice for a Coco spreadsheet." Dan Downard, RAINBOW, September, 1984. "Eat your heart out, Lotus 1-2-3!" Scott Norman, HOT Coco, October, 1984. B u i lt-i n Featu res: • 51 x 24 Display with Lower Case • Auto- Repeat Keyboard D r iver • Disk Operati n g System (works j ust l i ke ROM DOS) • • • • S u m m ation , M e a n , and Standard Deviation Functions • Str i n g locate command to navigate l arge worksheets • G raph ics Drivers for all pop ular P r i nters I _ .lar1 F u l l G ra p h ics caption i n g and ove rlay faci l ity Joystick/Mouse D river for C u rsor Movement • Works with any ROM versions, even J OOS • U p to 256 Col u m n s or 256 Rows 33k Available Worksheet Space Can use VisiCalc worksheets & trai n i n g m aterials ("'_\Ve_'-/_ • __ Sort f u l l or partial worksheet by col u m ns or rows • • kl Log ical F u n ctions with String & N u meric Com parison Line, Bar, H i/Lo/Close, C i rcle G raphs • '" Fast 1 6- D i g it Arith met i c with Scientific Functions • • !- ,,(I F�b Mar _ _ O n -screen H e l p Messages n OW Wit h FOR _ _ _ G RAPH l csl · APr ha·1 J1;n .lr.1 l �1; � �'?,. �c t Ho•.1 • !1�( • CANADA-CON $1 29.95 DATAMAN INTERNATIO NAL 420 FERGU SON AVE . N . HAM I LTON , ONT. L8L 4Y9 (416) 529-1 319 AUSTRALIA _ PAR I S RAD I O ...._ 1 61 B U N N E RONG RD. K I NGSFORD 2032 NSW (61 2) 344-9 1 1 1 _ _ _ sgggs Two-way com m u n ications with P R O-COLOR - F I L E * En han ced * • • 1 _•, -: Easy com m u n ication with BAS IC/DOS programs Outp uts to ASC I I Word Processors l i ke Telewriter-64 • CERTIFICATION SEAL Keysaver (TM) repeats l ast com mand x t i mes • • R A I N BOW S u per-fast Sm art Screen Refresh N OW O N LY 64�.��!:,,�;sTEMS % COM PUTER SYST E M S C E N T E R � NE'i'J 4 2 Fo u r Seaso n s C e n t e r SS �oof\_!.;_- � - C h e s t e r fi el d , M O 630 1 7 # 1 22 USA (31 4) 576-5020 1 0 to 6 M o n .-Fri . or yo u r local DY N ACA LC d e a l e r Price U S$99.95 Outside N o rth America add $1 0 postage DYNACALC Reg . U. S. Pat. Off . Lotus and 1;2-3 are trademarks of Lotus Development Corp. PRO-COLOR- F I LE is a t rad e m ar k of Derr i n g er Sof t w a re T e l e w r i t e r-64 i s a t radem ark of Cog n i t e c V i s i Ca l c i s a t ra d e m a r k o f V i s i Co r p . November 1 985 HOT Coco 19 edited by J. Scot Finnie Review-Ratings Key Contents P51 Mustang Marooned . . Trivia Fever Spelling . . . -. . . . 20 Attack . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . � . . . . . . . . . . . . . . . . . . . . . . . .· . . . . . . • . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . �-. . . . . . . . . . ...... Personal Finance ChesSD . . . . . : l 6 . . . . . . . . . . . . . . . . . . . . . . . . Unsurpassed . . 22 24 ; . . . . . . . 24 : 26 . . . 27 5. . . . . . . . . . _ . . . . . . . . . . . . . . . . Excellent 4 . . . . . . . . . . . . . . . . . . . . . . . Above Average 3. . . . . . . . . . . . . . . . . . 2. . . . . . . . . . . . . . . -_ . . . . . . . . Acceptable . . . Needs Improvement 1 . . . . . . . . . . . . . . . . . . . . . . . Unsatisfactory Ed. note-The overall ratings that appear in the review-rating graphs are an average of the ratingsfor all the categories rounded to the near est quarter of a rating point. The P51 : No M i l k Run by Scott L . Norman sound 6 5 4 3 2 1 graphics I documentation playability I OVERALL RATING 4. 75 Games P51 Mustang Attack Flight Simulator is mar keted by Tom Mix Software. 4285 Bradford N.E.. Grand Rapids. MI 49506, 61 6-957-0444. It requires 32K and sells for $29.95 on cassette and $34.95 on disk. A three-foot cable to con nect two Color Computers for dog fighting is available for $1 0.95. T om Mix Software has sent us on peril ous high-tech reconnaissance missions with SR-7 1 and challenged our weekend air manship with Worlds of Flight. (See the re views in the April and December 1984 issues of HOT CoCo, pp. 32 and 20, respectively.) P5 l Mustang Attack offers armchair aces the chance to recreate a bit of the tough World War II fighter combat. So slip into your old leather jacket. strap in. and follow me. sounds are gone. too. 1 presume that these simplifications were made in order to speed up the action. P5 l comes close to giving real time response. That's critical to the pro gram's major innovation-the ability to link two CoCo's in mock combat! Although there is a solo mode in which you can sharpen your flying and gunnery skills. the real action begins when you connect two computers. fire up a copy of P5 l in each. and do battle. The computers can either be right next to one another linked with a short null modem cable or at opposite ends of the coun try connected by modems and telephone lines. The latter method slows down screen responses by a factor of two or so and opens up the possibility of horrendous telephone bills. but it does work. The cockpit display consists of the wind shield with gunsight and a small but busy instrument panel containing airspeed indi cator. altimeter. various status readouts. and navigation aids. P5 l 's action takes place in the skies above four I O-mile quadrants arranged in a square grid like this: 1 2 3 4 Its square world wraps around. so if you fly past the border of one quadrant. you merely enter the next one along the aircraft's pro jected track. Each quadrant contains a single runway, P5 l makes use of some of the out-the-win and in the war-game mode, you can capture an enemy airfield by scoring gunnery hits on its landing beacons. denying use of the run dow display techn ology in troduced by Worlds of Flight. The scenery is much less detailed. however. All you see through your P5 l 's windshield are the horizon. a few air fields. and enemy aircraft. The engine way to your opponent. You can call for a birds-eye view of any world on radar or switch over to a conven tional compass. The radar can even be reset to eliminate the clutter of old flight tracks. The Cockpit and Flight Plan 20 HOT Coco November 1 985 This is handy after combat when you are trying to get your bearings to return to a friendly airfield. Flight Control As befits software named for the best fighter-bomber of its time. the simulated P5 l is a hot aircraft. Fully controlled rolls and in side and outside loops are possible. And the performance figures seem realistic: ·at full throttle. an inside loop takes about 15 sec onds and a 360-degree roll about half that. The manual contains a concise discussion of the principles of flight. including those as pects that have been simplified for the pur pose of this program. The throttle, landing gear. and flaps are controlled from the keyboard. while the aile rons. elevators, and guns are operated by the joystick connected to the right joystick port. (The simulated P5 l does not have a rudder control .) I recommend. as does the manual, that you use joysticks with P5 l Mustang At: tack that provide spring centering and ad justable trimmers, such as Tandy's Deluxe 1 Joystick made by Kraft. A final control feature is the wing leveller, a kind of fictitious autopilot that keeps the wings horizontal and the aircraft heading constant unless you continuously force the aircraft into a banked turn. The wing leveller is a boon to the novice. but it slows down the P5 l 's roll rate and should be switched off for combat. The Dog Fight In the solo practice mode, the CoCo gener ates an image of a drone aircraft at which you can shoot. The drone aiways flies a straight course, descending continuously from 5 1 ,000 feet down to the ground. That doesn't make it a sitting duck. First you have to find it, using your radar and your Mark I eyeballs: then you have to maneuver your plane into a good firing position and shoot accurately. You have 99 shots in each of your two wing guns. and you can squeeze them off one at a time or fire continuously. Although 99 rou n d s per gun is a little skimpy. the actual firing time available to you seems realistic. Your fighter's limited fuel supply is also a factor. If you keep the throttle wide open. you'll only have enough fuel for 10 minutes of flight! You can refuel and rearm by landing at a friendly airfield. I found P5 l surprisingly easy to land, al though m u ltiple bounces (complete with sound effects) are not uncommon. The rap· idity with which the screen updates helps the learning process. However. the landing skills I acquired in Worlds of Flight might have something to do with how easy the landing process seems to me. And landing is by no means guaranteed. Attempts at high-speed landings will result in damaged landing gear or worse. Players in a two-person game can signal each other as to the status of the hostilities. (S;) · po rt ) v. t . 2. 1. the categories of which are peace. war. talk (a game-freeze mode). and "turkey." The last category is equivalent to declaring war. but it allows you to insult your opponent first! Once engaged in a dog fight. the displays of the two computers are updated simulta· neously. Enemy hits cause bullets holes to appear on your windshield and control panel. The manual has a chart that shows the damage inflicted on your plane based on the location of bullet holes. These damages. plus the distance. if any. by which you miss the runway in landing. govern the time it takes to repair your aircraft after you land. In the meantime. your opponent could be shooting up your runway beacons. The actual conduct of P5 1 Mustang Attack warfare is complicated: the details of aircraft replacement. repair times. and so on are in the documentation . It is possible to specify one of three skill levels for each player: the higher the skill level. the greater the number of hits is required to inflict each kind of dam· age to your opponent's plane. Debriefing I am enthusiastic about this latest Tom Mix flight simulation. What would I change if I could? The altimeter (the two-hand type) should be modified to include a multiples-of10,000-feet indicator. It is easy to lose track of your altitude in a dogfight when your sole concern is concentrating on getting your op ponent into the sights. By the time the P5 l 's altitude-warning horn goes off at 500 feet. it might be too late to take corrective action. This is no particular fault of the simulation. however. A human-factors specialist once told me that World War II altimeter designs often invited misinterpretation by pilots dur· ing stressful moments. Outside of that. I found only one potential glitch in the program . As an experiment. I deliberately took off with the wing flaps low ered. By the time I got the flaps cleaned up. I found that I couldn't retract the landing gear. Although this is an unlikely situation, it's a tough way to fight a war. P5 l Mustang Attack is a fine program and an outstanding simulation that leaves very little room for criticism. But I do have one historical bone to pick: The airplane pictured in the promotional material for P5 l Mustang Attack is actually the P40 War Hawk. Sloppy. guys. very sloppy. • To bear t h e weigh t o f , especially from u n derneat h ; uphold i n pos i t i o n ; keep from fai l i n g , etc . To bear or sustain ( weig h t ; etc . ) 3 . To keep from fai l i n g ; s t rengt hen : PBJ, Inc. suppor1s their prod11c1 linl' 11·i1h 1echnical personnel 1ha1 are alwavs 1here 10 help vou. 4 . To serve, t o u p h old or corrobor.at e ( a statemen t , t heory, et c . ) substan t iate; ver i fy : PBJ. Inc. receil'es 1estin1011ials on a dailv basis 1ha1 supporl !heir prod11c1 line. p ro\· iclc ( a p cr-,o n . i n , t i 1 u 1 i o n ) 11 i t h m a i n t e na nce; p ro1· i de fo r : crea1inp. 11e 11· ad1•u11ce1 11en1s in !heir .field. S r11011_ 1·111: PBJ, Inc. 5. To PBJ. Inc. s11ppor1s 1he CnCo user h r consis1e111h Circle Reader Service card #214 . ,, . . , . " , A long description i ndeed , yet very applicable t o t he k i n d of sen·ice deli\ ered by P B J , I n c . W hen the serious CoCo user needs bac k - u p s u pport , t ec h n i cal in formation or assistance, P B J , I n c . is t h ere ! From t he prod ucts t hey m a n u fact u re t h rough t o t he st rategic soluti ons t hey o ffer. �hie. P B J , I nc . has rig h t fu l l v gai ned t he rep u t a t i o n of " t he company w i t h 1he 11 1os1 s1 1ppor1 for t h e Color Com p u t e r. " Tell them "I saw it I n HOT Coco." "/nnm ·ari1·e Pruduus j(H rhe CoCo User " Call fo r information on our Tandy 1000 products . . . . Call or write today for our FREE catalog . . . . P.O. Box 8 1 3 • North Bergen, N . J . 07047 • 201 -330-1 898 November 1 985 HOT Coco 21 moves on an electronic map. You can pick up Marooned by Richard Ramella sound 6 5 4 3 2 graphics I documentation playability I OVERALL RATING 4.00 Games Marooned is a graphics-adventure game marketed by Saguaro Software, PO. Box 1 864. Telluride, CO 81 435. 303-7284937. It requires 32K, Extended Color Basic, and a disk drive. It sells for $29.95 I n every mystery there is a door that must be opened. no matter the danger. When the UFO lands in the cornfield. you articles you find along the way. use them. and even confront characters within the story plot. The central problem usually fo cuses on a mixed struggle for survival and escape. And Marooned is no exception. At the start of the game, after the space ship takes off. you wander among the rooms of the alien aircraft. finding and using arti cles. It isn't telling too much to reveal that you will probably succeed in crashing the ship onto an alien planet-where the game continues. The landscapes of the planet are more artful than the sterile rooms of the ship, but I was confused at times when the same landscape showed up in several places. Marooned bows to convention with a sim ple lexicon of two-word commands with which veteran computer-adventure players will be familiar. The simple construction re quires one verb and one object. such as get gold, drop worm. and examine chair. You can even ask for hints. although not many help ful ones are provided. As in most computer adventures. it is pos sible for your game character to die. But Ma rooned offers a game-save feature that allows won't just wave at it and go to bed. You are adventurous. so you'll walk up to the strange craft and step inside. And then it will take off, of course. Lucky for you. Marooned is a graphics ad venture. For the hardcore adventurer it will be fairly easy. Beginners with a logical ap proach will find it tantalizing and eventually accessible. If you have never tried a computer adven ture, a brief explanation is in order. Text and graphics adventures are stories in which you are the main character. You travel in logical Drive 1 1 25 95 Marooned's title screen shows the alien space craft in flight. Your Choice Silver or White S U P E R DR IVE SALE you to store as many as nine different game positions on disk. A player can stop and save the game at a critical point and go back to it later. The best way to use the game-save fea ture is to chain your game saves. When you reach a critical point in the game, save it. Then when you make it past the danger un scathed, save the game again to the same file name. If you don't make it past the next crit ical point. you'll be ab.le to start out past the last one. As you are nearing completion of the adventure, you1 · 1 find that you have a chain of game saves charting the most important mo ments of the adventure. Marooned is essentially a Basic listing ov erlaid on scenes drawn from binary files. This makes the game fairly fast. The pro gram also features text in the Extended Color Basic graphics mode. I found a minor bug while adventuring in a cave location. where I insisted on going in an illogical direction. It caused a BS (bad subscript) error and loss of the game. This single flaw is no reason to rule out this interesting game, however. Saguaro Software guarantees the program disk to load for the original owner for life and offers to replace the disk if it fails. You can also make a copy of the disk for safekeeping. The program's documentation is simple and to the point. It consists of only two pages. but it is enough to get you started. You'll take it from there. Marooned's theme-wandering aboard a deserted UFO and being stranded on an alien planet-is not a strictly new idea to computer adventure. But if you have never been on an alien planet, Marooned will be new to you. The game is both fun and challenging. Its graphics are good. and its mysteries are not so overpowering as to verge on boring most players. I recommend Marooned, especially to first-time adventurers. • 2 1 9 95 Drive 0 Special prices on new first quality disk drives. They even have GOLD connectors on the back. Some other places charge $279.00 for dr. 1 and $349.00 for dr. O, not us! Drive 1 is for mod I, Second Color Computer drive, or external mod I l l , IV. D rive O is your first Color Computer d rive and comes complete with controller, cable and manual. Bare d rives for internal mod Ill, IV, only $79.99! For dbl-sd add $45.00 64K EXT. BASIC COLOR COMPUTER II $1 3895 The Computer Center 901 -761 -4565, 551 2 Poplar, Memphis, TN 381 1 9 Circle Reader Service card Add $4.90 for shipping & handling-Visa, M/C accepted-Dealer inquiries welcome 22 HOT Coco November 1 985 #11 lrcle Reader Service card # 1 2 1 I 3 display formats: 5 1 / 64 / 85 col u m ns x 24 l ines I True lower case characters I 'User - friendly ful l - screen editor I Right File and I 10 Features: 64K COMPATIBLE Telewriter-64 runs fu l l y in any Color Computer - 1 6K , 3 2 K , or 64K, with or w i t hout Extended Basic, with disk or cassette or both. It automatically configures itself to take optimum advantage o f all available memory. That means that when you upgrade your memory, the j ustification Telewriter-64 text buffer grows accord ingly. In I Easy hy phenation a 64K cassette based system, for example, you I Drives any printer get about 40K o f memory to store text. So you I Em bedded format and control codes • Runs i n 16K, 32K, or 64K • Menu -driven disk and cassette I I 0 don 't need disk or FLEX to put all your 64K to work immediately. 64 COLUMNS (AND 85 ! ) Besides t h e original 5 1 column screen, Telewriter-64 now gives you 2 additional high density displays: 64 x 24 and 85 x 24! ! Both high density modes provide all the standard • No h ardware modifications requi red single control key command. )imply stated, Telewriter is t h e most powerful perfect for showing you the exact layout of your printed page, !nthusiastic praise from thousands o f satisfied :iwners. And rightly so. time. all on the screen at one Compare this with cumbersome screen display is that you can now set the ;imply inadequate for serious word processing. screen width to match the width o f your fhe checkerboard letters and t i n y lines give you printed page, so that "what you see is what no feel for how your writing looks or reads. you get . " This makes exact alignment o f Telewriter gives the Color Computer a 5 1 columns possible and it m a k e s hyphenation column b y 24 line screen display with simple. looks l i k e a printed page, with a good chunk of Since short lines are the reason for the large spaces often found in standard right j ustified text on screen at one time. In fac t , more on tex t , and since hyphenation is the most screen text than you'd get with Apple I I , Atari, effective way to elimi nate short lines, T I , Vic or TRS-80 Model I l l . Telewriter-64 can now promise you some of the O n top o f that, the sophist icated Telewriter best looking right justification you can get on full-screen editor is so simple to use, it makes writing fun . With single-letter mnemonic commands, and menu-driven I / 0 and formatting, Telewriter surpasses all others for user friendli ness and pure power. the Color Computer. FEATURES & SPECIFICATIONS: Printing and formatting: Drives any printer E m bedded control codes give full dynamic access t o intelligent printer fea ! U res l i k e : underlining, - Color Compuler News, J a n . 1 982 searc h , fast auto-repeat cursor, fast scrolling, cu"or u p , down, right, left, begin line, end line, 1op of tex t , bottom of text ; page forward, page backward, align space left, current file name, default drive in effec t , set l i n e length on screen. I nsert or delete text anywhere on the <creen without changing "modes . " This fast "free-form" editor provides maximum ease of use. Everything you do appears i m mediately on t h e screen in front o f you. Commands require only a single key or a single key plus C L E A R . . . . truly a state of the art word processor. . outstanding in every respect. - The R A I NBOW , J an. 1 982 PROFESSIONAL WORD PROCESSING You can no longer afford to be without the power and efficiency word processing brings to everything you write. The TRS-80 Color Computer is tht> lowest priced micro with the capability for serious word processing. And only Telewriter-64 fully unleashes that capability. Telewriter-64 costs $49.95 on cassette, $59.95 on dis k , and comes complete with over· 70 pages of well-written documentation. (The step by-step tutorial will have your w r i t i ng with Cognitec 704 N. Nob St. Del subscript, superscript , variable font and type size, do1graphics, etc. But now we've added more power to Telewriter. Not j ust bells and whistles, but major features that give you total control over your w r i t i n g . We call this new supercharged ver,ion Telewriter -64. For two reasom . CA 92014 Or check your local software store. I f you have bottom, and left margins; line leng1h, lines per page, questions, or would l i k e to order by Visa or conditional new page, enable/disable j u s t i fication . (weekdays, 8AM - 4 P M PST ) . Add $2.00 for Menu-driven control of 1hese parameters, as well a s : pause a 1 page b o t t o m , page numbering, b a u d r a t e (so you can run your printer at top speed ) , and Epson Mastercard, call us at ( 6 1 9 ) 7 5 5 - 1 258 shipping & handling. CA residents add 607o state tax. Now available at l!tadle /haell stores via express order. fon t . "Typewriter" feature sends typed lines direc1ly TELEWRITER-64 Mar, Dynamic (embedded) format controls for: 1op, line spacing, new page, change page numbering, Computer I have seen . . delete, global search and replace (or delete), wild card To order, send check o r money order c o : amount o f memory you have, and Telewriter's . . . one of the best programs for the Color Fast, full-,creen editor with Centronics, NEC, C. ltoh, Smith-Corona, the size of your text is never l i m ited by the cost of a disk . Editing features: wordwrap, block copy, block move, block delete, line Telewriter-64 in a matter of minutes . ) Termi net, etc ) . word processor without the major additional drives in th e system. ( L P V l l / V l l l , D M P - 1 00 / 200, Epson, Okidata, Telewriter ' s chain printing feature means that advanced cassette handler gives you a powerful space 10 screen or printer, k i l l and rename file,, \et defa u h drive. Easily cu,tom ized 10 th e n u m ber o f RIGHT JUSTIFICATION & HYPHENATION One outstanding advantage of the full-width So a Telewriter screen and/or cassetle. For d i, k : print directory w i 1 h free time and don't even allow editing. :haracters by 1 6 l i n e s without lower case i s lower case characters . Read i n , 'ave, partial save, and append file\ with di\k "windows" that show you only fragments at a fhe standard Color Computer display o f 3 2 true retry mean' you 1ype a load command only once no matter where you are i n 1 h e tape. text, tabs, choice of buff or green background, Nord processor you can buy for the TRS-80 Computer and TRS-80 magazine, as well as Ca"eue verify command for 'ure \ave,. Ca"ette auto complete error protection , line counter, word counter, screen . The two high density modes are more :eceived rave reviews in every ma]or Color processor.,. Compatible w i 1 h \pelling checker\ ( l i k e Spell ' n Fix). switch instantly to any of the 3 formats with a crowded and less easily readable, but they are ::: o lor Computer. The original Telewriter has program,, Smart Te rminal file' (for uploading or downloading), even 1ex1 file' from 01her word Telewriter editing capabilities, and you can The 5 I x 24 display is clear and crisp on the THE ORIG I N A L ASC I I formal file' - create and edit BASIC, A"embly, Pa,cal, and C j::pson driver t o your prin1er, and Direc1 mode sends con1rol codes righ1 from the keyboard. Special simpli fies use wi1h M X -80. Suppom single and m u h i -line heade" and au1oma1ic c c n r e r i n g . Print or �ave all or any \ect ion of 1he text buffer. Chain prin1 any n u m be r of files from ca,,e l l c or d l' .. k . Apple lI I \ <i i radc:mark 0 1 Appk l orn p u l l' r , 1 r adcmark o t A t a r i , ( ur p : \1 X - 80 I n c : T � '-;-HO In� , Atdr1 1\ a I \ a t r <t d l' m a r k o l T<tml� I \ a trademark o t Cp,011 Anu·r11.a. l n1.. Reviews Hot for tally sheet. spin.ner, and bookmarks let you play without electricity. And yes, both ver sions require a sharp memory. Trivia Fever Program quality is also excellent. T,pe first thing you 'II notice is that Trivia Fever doesn't load like most programs you 're used to be by Marl< E. Reynolds HOT CoCo staff sound graphics 6 5 4 3 2 I documentation playability I OVERALL RATING 4. 75 Games Trivia Fever is mamifactured by Professional Software Inc. for Tandy Corp. (catalog no. 263295). 1 400 One Tandy Center. Fort Worth. TX 761 02. The game requires 64K and a disk drive. It sells for $29.95 W cause it is written in OS-9 compiled Basic and requires an OS-9 loading routine. Professional Software ported the game to the Color Com puter under license from Tandy, w h ich wanted OS-9 included for upward compati bility with future versions of the Color Computer. If you have Disk Extended Color Basic ver sion 1 .0 and don't have OS-9. you must type in an 1 8 - line program (provided with the startup guidelines) to create a Trivia Fever boot disk to load the game. If you have Disk Extended Color Basic 1 . 1 or later, you simply type DOS and press the enter key. Playing instructions are on the disk. After you read them. you type in the game mas ter's (or moderator's) name and the names of the players or teams. Trivia Fever can be played by one to eight players. There are three ways to handicap individual players or teams, making it possible for players of vary ing abilities to compete with each other. Bet ter players can select shorter time limits in hat do tree trunks and fish scales have in common? Who played the piano-playing Sam in Casablanca? Where did Davy Crockett make his last stand? These are some of the 32.000 questions that come with Professional Software ' s Trivia Fever, a n entertaining outlet for any one caught up in the wave of trivia gaming that has swept the country recently. From the top down. Trivia Fever is a nice product. Everything about it shows that its designers paid attention to quality : The sturdy and attractive box contains the game disk. startup instructions on heavy paper (in cluding troubleshooting tips). a handsome book of questions and answers. a pad of tally sheets. a game spinner. and three color coded bookmarks. One of the best aspects of the game is that you can play it with or without a computer. To play the computer version. all you need is the game disk and your CoCo. The book. ' ' Everything about Trivia Fever shows that its designers paid attention to quality." which t o answer questions. choose a higher level from the three levels of difficulty. and pick those categories (from the seven the game offers) that they find more difficult. Once you have set up Trivia Fever the way you want it. you remove the disk from your disk drive. flip it over. and reinsert it to load the questions. Game instructions and ques tions appear on screen in attractive upper- and lowercase letters. The game master, who may also be one of the players, controls the keyboard and answers prompts for informa tion . Upon receiving an answer from a player. the game master presses keys to stop the clock. display the correct answer, and tell the computer whether or not the correct an swer was given. Play moves along quickly and smoothly. The program keeps score. gently chiding players for wrong answers and rewarding those who answer correctly with encourag ing words. Successful players might also elicit a few bars of such tunes as 'Tm Look ing Over a Four-Leaf Clover," the "William Tell Overture . " and " Whistle While You Work." Error trapping is excellent. Trivia Fever will only accept keyboard input that reason ably answers program prompts. That means that even younger members of the family can safely have a turn at being game master. Trivia Fever is very easy to use and play. The few paragraphs of documentation that come with the package are all you need to get going. And if you exhaust the 32,000-ques tion data file, you can order Volume II. an additional set of questions, from Professional Software Inc . . Box 5 3 3 . Needh a m . M A 02 1 94. O r phone their toll-free number. 1 800-343-4074. Sports buffs can order Super Sports. a separate game that offers thou sands of sports-related questions in seven categories. And don't forget that you can also play Trivia Fever without a computer. It is one Coco game that can amuse everyone on long car trips. Even the person behind the wheel can play as long as someone else is asking the questions. If you enjoy the me ntal exerc i se and friendly interaction that are a part of trivia gaming. you'll appreciate Trivia Fever. Even if you are not much for trivia, you'll have to admire the high quality of this product's pro gramming and packaging. which makes it compare favorably with many other Color Computer programs. So. are you ready to play Trivia Fever? I'm still trying to remember who played Sam in Casablanca. • A Spel l i ng Adventu re by Richard Ramella 6 5 4 3 2 [ maintains documentation meets objective interest ease of use I I - I --- - OVERALL RATING 4. 75 Educational Software 24 HOT Coco November 1 985 Spelling is a series of 1 6 programs. con tained on eight program cassettes. that covers the rules ofspellingfor grades 4 through 6. The series is available from Dorsett Educational Systems, P.O. Box 1 226. Norman. OK 73070. 800-654-3871 . 405-288-2301 in OK. The pack age requires 1 6K and sells for $59.95. B efore completing my evaluation of this package. I told my son: 'Td like you to help me test some educational software called Spelling." " N o . thank you ," the 9-year-old replied evenly. ''I'd planned to go swimming in volcano." "Aw. come on!" "Don't you get it, Dad? No! N-0!" a Later, when the boy was tightly bound to a chair in front of the computer. I loaded Talkffutor, a monitor program that activates each of the 1 6 lessons in this eight-tape col lection. "Let's try some homonyms" I said as I slipped in the lesson cassette. He threw his forearms over his eyes like Dracula reacting to sunlight and screamed. "Child abuse! Mom! Help!" "Glad to see you're getting in the spirit of things," I told him between gritted teeth. Particulars We were already familiar with Dorsett's style of learning programs. A taped narration matches the screen text. and there are small, well-drawn illustrations. As the narrator noted the similarity and differences between the words way and weigh, my sullen young learner began to perk up. " P uns," he said. "It's talking about puns! " And just like that, the lesson was a success. Homonyms are the stuff of word play. This kind of material pre sents a lode of pun possibilities. Or is that load? I had better go back and study. Spelling varies its requirements of the user. Sometimes itis lookingforthenumberofa mul tiple-choice question. At other times it asks you to type out a word that is correct for the context. For example, "Our football players __ more than theirs (way or weigh)." Then, taking its cue from the letters eigh in weigh, the pro gram segues to a question about eight and ate. We got a l l the way through the Homo nyms: A Sounds lesson. My son agreed to try another tape, but became disinterested when the narrator strove to breathe life into the rules that determine the situations in which the letter I comes before E. I liked these programs more than did my son (whom I awoke, untied. and permitted to depart). But the fact that he was not very keen on them is indicative of the potential of this set in a classroom environment: it pre sents complete information in an easy-to learn-if not captivating-form. When kids have trouble adding suffixes correctly, for ex ample, they can get help from one of two suf fix lessons. Moreover, students expect to work rather than be entertained at school, where they will adapt quickly to this series. At home, an educational program must be more entertaining in order to maintain inter est. Chances are, most parents will encoun ter the same reaction I did. This isn't criticism. In fact, I ' ve grown weary of software that is intriguing at the ex pense of educational value. To paraphrase an adage, you can·t be all things to all students. Sometimes the best way for a student to learn is to buckle down and study the hard IT'S LIKE :a �- , 0 the other . . . It's � � (& ni��.!.����� ,"�'� call f or easy . . . won't harm existing data. Try it, you'll bo gl'd yoo did! AUlY H\GH QUll ES O\SKE as hole'.' For TRS 80 I, I l l , and IV, Osborne, Tl, Kaypro, IBM and others needing "index hole'.' as loW 9 94 *Add $2 ($5 foreign) for postage & handling. FL residents add 5% sales tax. ORDER TODAY � EJ Circle Reader Service card #337 SATISFA CTION GUARANTEED OR YOUR MONEY BACK! TOLL FREE 1 -800-642-2536 o�moor � FL (305)748·3770, 9am·6pm ET 4211 NW 75th Terrace • Dept. 1 5 3 • Lauderhill, FL 3 3 3 1 9 Apostrophes: Homonyms : Contractions: Homonyms : A Sounds: Homonyms: E Sounds: Homonyms: I, 0, U Sounds; Hom onyms: Consonants; and Spelling Demons. The last lesson offers mnemonic tricks for re membering irregular spellings, such as sec retary and calendar. If you think that these programs will cause a string of comic-book z·s to rise above your head, then wake up and think again. Dorsett has put together an educational package that presents a well-conceived approach to rid ding kids of confusion about spelling rules. It might even clear up a few things for some adults, two. • t i��oc 0 � $2495 for tape ':. · - ?�i�r Pl!��� ;:ir. 1:nt� :.. - - � S27 95 for disk SYZYGY (siz-ih-gee) The Ultimate Graphics Adventure' You ore trapped aboard the Deathstor starship and hove hod o near fatal encounter with the Dork lord. Darth Vader Your strength is all but gone ond you know that Vader 1s somewhere near Your only hope is to locote the mystenous Glowing Emerald. hidden deep w1th1n the Deathstor. guarded by the Dork lord himself. Syzygy hos over 250 graphic pictures and 300 locohons with on assortment of treasures. weapons and hazards These allow o virtually endless array of different scenarios and complex s1tuotions de�gned to give the user hour upon hour of entertainment and adventure Grob your light sober and may the Force be with you! 32K requ11ed send check computer products the Silent E; The I Before E Rule: Doubling Consonants. Short Vowels: Doubling Conso· nants Before Suffixes: Adding Suffixes: lll Jif1_1 other side. You paid for one side, why not use N i bble fer a diversity that helps to make the infor mation they present more palatable to youngsters. Dorsett offers numerous educational pack ages. which cost $59.95 for the 16 half-hour lessons they each contain. This price is more than reasonable. The Spelling series com prises the f o l l o w ing lessons: P lurals of Nouns: P lurals of 0 and Y Nouns; Irregular Plurals: Changing Y to I Suffixes: Dropping TALKING GAMES You r 5 114' ' single side disks are usable on the IT'S FREE! Notch w i l l open your new disk. narration, pictures, and user choices. they of SPECTRAL ASSOCIATES FREE DISKETTES • way. However, the Spelling lessons are not all cod-liver oil, either. By combining text. SPACE TREK Realistic. hi-res 3-D graphics put you 1n the captain's seat of the Federation's most powerful starship. Work your 'way from sector to sector by fighting the deadly aliens which ore trying to destray you. A long range scanner. front view screen. phasers. photon torpedos. mines. shields. star bases and 3-D asteroids ore only o few of the many features which make Space Trek the most realistic space bottle simulotJOn ever developed Space Trek will talk when you hove o Tondy Speech/ Sound cort11dge. Colorwore's Real T olker or Spectrum Projects' Voice Pa installed Just plug one in before lood1ng the program and fasten your seatbelt for the ultimate in simulotJOns for the RodJO Shock Color Computer 32K and )Oysticks requ11ed CALL 1 -206-58 1 -6938 to place your Visa or MasterCard order today' SEND your order with check or money order (sorry. no C . O . D . ) to: b fi. SPECTRAL ASSOCIATES 34 1 8 South 90th Street Tac o m a , Wa s h i ngton 98409 &H i : Al orders shipped in two business days. Allow two weeks for delivery. . andl ng S 1pp1ng Circle Reader Service card #299 United States add 3%: $2 minimum. add 1 5%: $5 minimum. Canada add 6%: $3 minimum. Foreign Washington State residents add 7 .8% sales tax November 1 985 HOT Coco 25 1( An I ntroduction to series provides basic information and quizzes on the subjects of home budgeting, taxes, loans, investments, and insurance. The pre sentation combines text, graphics, and audio material smoothly, using a mix of questions in multiple-choice and one-word-response formats. Personal Finance covers a wide range of per sonal-finance topics. The subjects are pre sented at about the high-school level and could supplement a personal-fmance course. Lessons on planning a personal budget are fol lowed by an elementary discussion of basic economic theory. One lesson covers income tax preparation and planning. Borrowing, credit, loans, and real-estate mortgages make up four lessons. Plans for life, property, and health insurance are each addressed by their own lessons. The fmal section of the package contains five lessons on saving money and in vestments, including stocks and bonds, secu rities trading, and various investment funds. The lessons are uniformly presented at the introductory level. You will not get extensive help for preparing income-tax forms or learn ing about the latest investment fads and shel ters. However. you will get a comprehensive review of the fundamentals. You start a session by loading and execut ing a machine-language driver. The program will not run while there is a ROM pack or disk controller in the expansion port. Loading and Personal Fi nance by Stuart Hawkinson 6 5 4 3 2 J meets maintains documentation objective intr rest ea � e of use I N/A OVERALL RATING 4. 75 Educational Software Personal Finance is a series of 1 6 educa tional programs on eight cassettesfor adults of all ages. It is available from Dorsett Educa tional Systems Inc., P.O. Box 1 226, Norman, OK 73070. 800-654-3871 , 405-288-2301 in OK. It requires l 6K and comes on cassette. Per sonal Finance sells for $59.90 P ersonal Finance is an audio home-fi nance tutorial that takes advantage of the Color Computer's capable hardware. The ..; • · · · · · · · · · · · · · · · · · · • • • • • • · · · · . . . . . . . . . . . . . • . . . . . . . . . . . . . . • · · · • · · · · · · · · · · · · · · · · · · · • • • · • · · · · • • · · · · · · · • • · · · · • · · · · · . . . . • . . . • . . • • . • . . . . . . . . . . . . • • . . . . . . . . . . . . . . . . . . . . . . . . r-1 1_1 L - • · · · · · · · · · · · · · · · · · · · • · · · · · · · · · · · · · · . . . . • . • • • • • • • . • • • . . . . . . . . • • . • • . • . . · · · • · · • • · · • · · · · · • · • • · · · · · · · · · · · · • · • · • • • · · · · · · · · · · · · · · · · · · · • • . . . . . • . . • • • • . • • • • • • • . • . . . • • • • • • • • • • • • • • • • • • • • • . . • . . • • . . . . . COLOR C H A R A C T ER GEN E R ATOR R A I N BOW ( ( A ' 1 f 1( • l 1Qp,j S ( •t A NEW DIMENSION • Now i n c l u d e s a c h a r a c t er generator and s a m p l e g r a phic space gamt? a t no e,.; t r a cost . • F u l l 224 te>:t and g r a phic char a c t e r s . Underline m a ll P"100ES. IN COLOR COMPUTING E X T E N D E D BASIC and OISK commands. 3t 64t-· compu t e r s . • M ix u p t o S c h a r 3 c t e r s i t e s m 4 color s a ll o n o n e screen . .A. 1 0 sues a v a i l a ble from ver t ic 11 l mode. • U s e U P to 4 def1neable window 8•4 to s c r eens 42•24 cd any or 32�32 in s i : e . A lso include£ horizont a lly scrolling C c r awlingJ o n e l i n e screens. • I n c l u d e s p o s i t i v e & n e g a t i v e screen dumps m 2 sues for R/S, J2J P. O . P.O. B OX STAT I ON & printer simu l t a neous l y . •A m u s t f o r a ll c o l o r compu t e r own e r s . O n c e won't wr i t e another progr a m without 1 t . 26 HOT Coco November 1 985 y o u t r y it y o u B - 24 - 9 5 27 . 9 5 - BOX 7281 PORT HU R ON M I C H I G A N 4 8 J0 1 U .S.A. M I N IMU M R EQU I R EMENT T A PE D I SK • S p e c i a l T r a c e Dela y c a n b e used to det•ug progr a ms o n e line a t • A s p e c i a l p r i n t e r cont r o l c a n output c h a r a c t e r s t o t h e :: c r e e n ( 5 1 9 ) 6 8 1 - 01 3 3 LONDON ONT AR I O C A NADA N6A 4Wl Epson & Gemini printers. ( Please spec i f y ) a t ime < even graphics ) . C ( • T t1 11. • l 1QM Sf•1 SOFTWARE Print s ver t ic a l l y . • A u t o m a t k loader recognizes 1 6.... . 32 .. R A I N BOW I N C EN T I V E • A l l m a chine l a ng u a g e , u s e r t r a ns p a r ent . Suppor t s a l l BASIC, t ot a l of startup take less than a minute. Thereafter. the program controls the cassette player loading text and graphics, and feeding the au dio to your monitor speaker. The two lessons on each cassette are on opposite sides. Nor mal playing time is 20 to 30 minutes, de pending on your responses. The d river program is virtually "bullet proof" and needs to be loaded only once for a day's use. Pressing the break key will get a response to load a new tape. but .you can also continue with the current lesson. The drill questions, of which there are about 20 for each . topic, reinforce the lesson mate rial. The narration on the tape is perfectly syn chronized to text and graphics, including frequent "right" and "yes" responses to cor rect answers. Like many tutorial programs, you must answer correctly to proceed. A wrong answer elicits an error tone and a screen containing the expected response. The multiple-choice questions are often easy, while the one-word-response answers are sometimes difficult to guess. The program has no tolerance for misspellings or errors in capitalization. The driver program keeps a record of your right and wrong answers, presenting your score at the end of each lesson. Students can try to improve their scores by replaying a les son cassette at a later time. This might mo tivate younger students, but teens and US US or or 29 . 9 5 J2 . 95 1 6 K BAS I C C ON CON [Ob�-J T a p e to 0 1 s k u p g r a d e a v a i l a b le f o r SBUS o r S l OCDM. IJe p a y pos t a g e w i t h i n US &: C A N A D A o n o r d e r s o v e r -! 2 0 , o t h e r w i :: e p le a s e a dd � 1 . O t h e r c o u n t r i e s p l e a s e a d d S 2 . C h a r ge o r d e r s please a d d S l . Circle Reader Service card #91 adults are not likely to go through the ques tions repeatedly. As topics are presented. graphics illustra graphics are good and the lettering is easy to read, but there is little variation in the colors used. Most screens are completely green, al tions and clever positioning of text keep the material interesting. The narration is well organized and clearly delivered. I did not en counter speaking errors or poor usage. The though there are also a few dark blue ones. The Personal Finance package is profes Checki ng on ChesSD was created by Software Dynwnics and is distributed by Computer Systems Dis tributors, P.O. Box 9769, Anaheim, CA 92802, 71 4-772-1 390. It requires 64K. Extended Color Basic, and a disk drive. It sells for $49.95 plus ChesSD by Terry Kepner $2 for shipping. 6 5 4 3 2 I documentation playability sound I graphics sionally produced and worth serious consid eration by teachers. Its beginner's level of I f you have been waiting for a superior chess program. wait no longer. ChesSD is a disk-based program that stores almost 35,000 opening moves. Starting the program is simple. You just put the ChesSD disk into drive 0 and press the Color Computer's reset button. While the game loads, a procedure that takes about 1 0 seconds, a checksum i s calculated. A check sum failure indicates either a worn disk or N/A OVERALL RATING 4. 75 Gomes Circle Reader Service card presentation precludes the possibility offind ing market tips or get-rich-quick schemes; that is not the aim of the series. Young adults will gain a good foundation in the basics of personal-money management through this series. Its 16 lessons offer a very complete introduction. • possibly a drive-alignment problem. In the first case. just make a new backup of your . master disk. (ChesSD is not copy -protected.) If you have the second problem, adjust your drive and try again. Once loaded, ChesSD displays a high-res olution image of a chess board with all the pieces in place. While this isn't the most im pressive chess display I've seen. it is more than adequate for its purpose-clear display of the individual chess pieces. Below the chess board is a comment line where the pro gram provides messages relating to the state of the game, such as "thinking . . . ," "book move," or "Check!" To the right of the game board is a move table that indicates several game statistics. They include the last move made, its se quence number in moves since the start of the game, and the score from the computer's T h e c o m p l et e d i sass e m b l y o f t h e Co l o r B as i c R O M s #222 1'!(f A Fuir - leatured tho1oughbred analysis desuJned tor the proleSS1onal and GLD. Thoroughbred "Gold" Edition'" $159.95 !he serious novice EGLD. Enhanced "Gold" Edition'" 'Gol1f · Ec11t10n �th complete Master complete BenOI' "" system lfltegrated onto lhe same OrSk Irvs power1ul DH>Q1am wig iransler at hOrses and SCOfeS to the bet analysis with a ··sinoJe lteystrOke (Master Be11or•• included) GLTD. Limited "Gold"'" Enables Protnslonal $199.95 complete Handltappers lo assign soec1hc values 10 the racing var· 1ables they·· leel are 1moonant Create l)l'<>gram weight based on a pan1cu1ar Hacll and hne tune 11 !or muimum win percentage This program is oesigned fOf of ease use·· The user needs no programming eiperience. Senor••) $299.95 The ONLv· $149.95 P1cfessiona1 software designed 10 prOVloe a pace1 races 11'1 North Amenta ana Canada $199.95 Professor Pix Football'" games STATISTICAL ANALYSIS m i protess1ona1 greyhouna analysis available thal evaluates MHH. Master Harness Handicapper'" Complete complete on De eva!ua1ed wlmtegr 1ed Beuor wllnlegrated Data Base Bettor aliaNmg $159.95 L1mf!f(I ·· Desigiated complete NBA $99.95 wlcollege LDT. Lottery Analysis'" Lot1ery p.4 48 H R . FREE S H IPPING previous $99.95 $149.95 $129.95 $149.95 011)1) and G>ey· l $249.95 tlnctuoes oonable comoute1 $649.95 (lncruoes ponab!e computer and program ) program M·100 Portable (24k) wlchotce ot Trx>rought.ed. G1eyhound or Trcner BROC H U R E AVAILABLE a CALL 208-342-693 9 t-TERMS --FREE --..... SHIPPING ALL $79.95 - w/Lotto jMax 99 01g1t) $99.95 PC-3 Portable Computer (4k) "''" """" '' """'"g""'"' • COV E R S A L L RO M V E RS fO N S i s d e f i ned • P ROG RA M M I N G T R I C K S E X P LA I N E D • A L L F C B s , F D B s a n d FCCs d e f i ned • F U LLY C O M M E N T E D-- No h o l e s COLOR BA SI C U N RA V E L L E D EXTEN D ED BA SI C UN RAVELLED DISK BASIC U N R AVELLED $299.95 Sta11shcal comparison program designed lo oetect sublle panerns 1n winning nouno or ironer''" State St. Boise, ID 83702 1 940 W . Stat1s11cal Se11es w/oower ratings numbers and dtgtlS Prof . Jones thofough analysis ot all trouer ana w/Wm·Loss Power Ratings NBA. BasketbaU '" All $199.95 $299.95 ;� L1m11ed Version EASY TO U N D E RSTA N D • CO M P L E T E M E M O R Y M A P-- N o m i s s i n g spaces, every t h i n g /-" � G D . Gold Dog Analysis'" vanables • � �. (con1a1ns lntegra!ed SOFTWARE Ad<l S6 oo hard ware 1 S6 00 C O O 1 UPS Blue ��s;d��:s01a,��u;���e�� �/ sonal checks / Cash pnce only add 20.0 Visa. MC t Pflces suo 1ec1 10 ctiange SET O F 3 UN RAVELLED BOOKS SPECIAL old NOW 19 . 9 5 1 9.95 1 9.95 49.95 I $ t 4.95/ea. . . . $34.95 A l l of t h e i n n e rmost o p e rat i n g processes are e x p o s e d . T h i s b o o k i s an i n d i sp e n sabl e t o o l f o r t h e p r o g r a m m e r see k i n g a f u l l , i n- d e p t h k n o w l e d g e o f Bas i c . T h e Ba sic U N R A V E L L E D S E R I ES w i l l make i t e a sy for you to w r i t e yo u r o w n B a s i c c o mma n d s o r mod i f y Ba si c fo r whatever p u rpose you d e s i re. S P E C T R A L ASSOC I AT E S Circle Reader Service card ,. 3 4 1 8 S o u t h 9 0 t h S t re e t 1 - 206-58 1 -6938 #299 Tacoma, WA 98409 S h i p p i n g and H a n d l i n g : U n i t e d S t ates add 3 ° 0 . $2.00 m 1 11 1 m u m . Canada add 6 ° 0 . $3.00 m i n i m u m . Foreign add 1 5 % . $5.00 m i n i m u m . N o. C. 0 . 0 . orders Washington residents add 7.8% sales tax . November 1 985 HOT CoCo 27 Reviews 'I point of view. The latter is based on a point scheme for pieces ta.ken: pawns equal 1 00, knights and bishops equal 300, rooks equal 500. queens equal 900, and kings equal 20,000 . A positive score indicates that the computer is winning: a negative score means that you are winning. Other statistics on the move table are an estimate by the program of how its next move will affect the score. the The skill option specifies the number of moves ahead the computer may look when searching for its next move (to a maximum of seven). and replay the move. This last inconvenience will be especially apparent when experiment ing with chess problems or exploring different Choosing tournament sets the program for timed tournament play. Selecting play in structs the computer to trade places with you and play your color. You use this command to strategies. gress. If you must leave an interesting game before completing it. you are out of luck un less you wrote down all moves as you played. But the largest shortcoming of ChesSD is that you cannot reverse a move. If. for ex ample, you accidentally move into check and ChesSD takes your king. you cannot back up WHITE HOUSE CO MPUT ER 9:00 am-6:00 pm PR I N T E R PAP E R STAR M I C R O N I C S 2500 Sheets Lazor 24 95 1 000 Sheets L a z o r 1 4 95 2 4 9 . 00 SG 1 0 . . 2 1 4. 00 M T t 60L 495.00 SG 1 5 379.00 5 0 0 Sheets L a z o r MT 1 80 L 595.00 SD 1 0 3 4 5 00 M a i l i ng Labels 305 00 MSP 1 5 4 5 0 00 MSP 2 0 4 5 0 00 MSP 2 5 5 7 5. 00 EPSON 450 00 485 00 COLOR PAPER Powertype 3 0 7 00 ASSORTED PASTELS 1 380 . . . . 1 385 269.00 1 080 Square Dot 2 2 9 00 R X 1 00 369 00 880 Square Dot t 99 00 479.00 345 00 FX 1 8 5 499.00 L O 1 500 PAR L O 1 500 S E R . 979.00 1 03 9 00 84 640 95 1 93 1 9 9 00 Comrex 222 Comm 1 99 00 1 7 9 95 1 82 . . . . . . . . . . . . . . . 2 1 9 . 9 5 1 92 . 209 00 PANASO N I C 1 8 7 00 . . . . 2 3 7 . 00 2 3 5 00 t 09 2 385 0 0 D X 2 0 Da1sywheel 3 1 9.00 1 093 425 00 HS 80 Letteriet 359 00 3151 4 5 5 00 POLICY TEAC DISK D R I V E 1 4 9 00 96 T P I F l i p· N · F i l e 1 0 Hayes 3 0 0 1 4 9 95 Flip·N·File 1 5 Hayes 1 2 00 385 95 F l 1 p · N · F i l e 2 5 / L oc k 10 8 5 14 95 OS D D B O N U S L i f e t i m e Warranty SS DD 9 50 1 3 50 No deposit on COD orders APO & FPO add S S 00 pf'1 t i u n d r e d For pr1only mad add $8 00 per hundred PA H'S1drnts .1dd 6°1 <><llf•s l!lx D c f e c t 1 v f' nroducts must havr Prio1 RA r � u m t)f'r Srtionls nr•t 1 5 HOT Coco MAXELL Free lrP1gh1 on a l l pr('p;:iid cash November 1 985 MD 1 1 5 95 MD 2 2 0 95 50 1 2 50 F l 1 p· N · F i l e 5 0 Lock t 6 50 M O N ITO R S SAKATA T EK N I K A Separate Video SC 1 00 Color t 85 95 M J · 2 2 R G B/ Co rn pos 1 te/ Separate Video 39 95 D I S K ETTE S 2 50 F l i p· N · F i l e 50 . . . . . . 1 2 . 5 0 1 9 95 Z E N ITH ZVM 1 2 2 Amber 82 95 ZVM 1 2 3 Green 7 5 95 ZVM 1 3 1 R G B Color/ S A 1 000 Amber 2 2 9 00 Green 80 C o l 389 0 0 zv�· 1 33 R G B Color/ 1 7 9 00 99 95 1 05 9 5 NEC 1 2 05 95 00 1 2 60 1 39 95 1 20 1 1 39 95 AMDEK 300 G Green 40 C o l 300 A t t 9 00 t 29 00 Color 300 2 2 9 00 Color 500 339 00 Color 600 399 00 2 5 9 00 Color 700 4 6 9 00 Color 7 1 0 539 00 439 00 310A 1 4 5 00 ZVM 1 30 Color Green SG 1 000 Green 269 95 1 69 00 Sol\ware for FD 55V I N N OVATI V E CO N C E PTS Volks 1 2 . . . . . . . . . . . 1 7 9 . 9 5 ZVM 1 3 5 R G B Color Green 80 C o l orders over S300 1 n l h e c o r t i n e n t a l U S A 58 95 F D 55F 320K/ H a lf H e i g h t SS DD 1 090 MODEMS Vol ksrnod em/Ca lJle M J · 1 0 C om posi t e/ SKC L 1 fet1me Warranty 1 09 1 D X t o Da1sywheel 23 95 525 9� 2 4 5 00 so 2000 2 3 95 500 Sheets Lazor . . 349 . 9 5 1 52 5 00 LX 90 42 95 1 00 0 S h e e t s Lazor DS/DD . O K I DATA Ok1rnale 1 0 222 00 Homewriter 2500 Shee t s Lazor F D 55V 3 2 0 V./ H a l l H e i g h t LX 80 Comrex 220 Atari 1 000 qly . . . 305.00 209.00 F X 85 9 95 SD 1 5 R X 80 JX 80 9 95 SR 1 0 LEGE N D (7 1 7) 322-7700 H O U RS: Mon day- Friday V I SA and MC 4% S p i r i t 80 CITIZEN 28 1 -800- 3 5 1 - 344 2 Accepted PR I N T E R S MSP 1 0 computer 30 seconds. three minutes. and 30 minutes. respectively. The seventh level is strictly for chess-by-mail fanatics. It requires five hours for each computer move. Tourna ment play usually takes place at level five. All in all, ChesSD plays a mean game of chess-even at the lower levels-because of its extensive disk-based opening book. If you make the mistake of accidentally tapping into a sequence of moves in this book of plays. the computer's moves come quickly and are devastating. Although the game is not rated, it seems to have a playing strength of about 1 ,500. ChesSD is not a tutorial. It assumes that you are familiar with the move ments of chess pieces and the rules of the game. If you are more than a chess beginner. ChesSD will give you a good run for your money. • pieces and assign positions to pieces for end game or special chess problems. Although it is a powerful chess program, ChesSD does have a few problems. There is no way to obtain a written record of the var ious moves played in a game. If you want a record you must write it down as you play. You also cannot save a game that is in pro There are six commands available to the ChesSD player. Newgame starts a new game. M A N N E S E M A N TALLY for the computer to calculate each move is fairly short. only about three seconds or less in the lower levels (one. two, and three). Moves in levels four, five. and six take the arrangement. which is preset by manually en tering the sequence of moves needed to play to that position. Although this is a time-consum ing process. it is the only way to ensure that the board setup is correct. The last command is clearboard. You use it to clear the board of all tion to queen, rook, bishop. or knight. An un usual feature of the game is that it doesn't examine your king for check moves. If you accidentally move your king into check, ChesSD simply takes your king. According to the manual. this was done to make the program run faster. Service card # 1 75 fore moving a piece lets you tailor the game to your time and ability. The time required tell the computer to play the white pieces in stead of its default setting to black pieces. En termoves sets the board to a predetermined clock times for the two players, and a set of two numbers for the skill level the computer is set to play. The first of these is the level you set as the maximum number of moves it can "look ahead " : the second is the number of moves ahead it looked in considering its current move. ChesSD is played using standard chess al gebraic conventions. The rows are num bered from one to eight and the columns are labeled from A to H. ChesSD supports all the standard moves in chess. including castling, en-passant pawn capture, and pawn promo P.O. Box 4025 Circle Reader Williams port, PA 1 7 701 ChesSD's flexibility in letting you select the number of moves ahead it may look be I N T E R FAC E S SP·3 Serial t o Parall e l . 1 Year Warranty . 57.95 DIGI S ECTOR. DS-69 VIDEO DIGITIZER FOR THE coco G ive you r COCO t h e gift o f sight! The M icro Works i s h appy to i ntroduce the newest m e m be r of our D i g i sector™ fam i l y - the DS-69 Video D i g it izer for you r COCO. It has a l l t h e standard feat ures of i t s big brothers but comes w i t h a price tag that's right for you. • H igh Resolution 256 by 256 spatial resolution. • Precision 64 level s of g rey scale. • SPEED! Y2 second for a full screen of video. • Compactness Self contained in a p l ug in Rom pack. • Ease of Use Software on d i sk w i l l get you up and ru n n i ng fas t ! _ .._ The DS-69 Digisector opens up a whole new world for you and your COCO. Your computer can be a security system, take portraits, analyze signatures, i n s pect asse m bly work . . . the DS-69 i s your COCO's eyes. Use the DS-69 and a TV camera to get fast, precise conversion of video s i g n a l s i nto d i g ital data. Powerful C·SEE™ software. C-See i s a menu-d riven software package i nc l uded w i t h you r DS-69. It provides h i g h speed 5 level d i g it iz i ng to t h e screen, h i g h precision 1 6 level d i g itizing for s u perb hard copy printout, and s i m pl e software con trol of brightness and contrast. Or cal l our d river rou t i nes from your own Basic program for easy 64 level random access d i g itizing. Pictures taken by the DS-69 may be saved on d i sk by C-See and t hen ed ited by our optional M A G I G RAPH package for enhancements and spec ial effects. The DS-69 comes w i t h a one year warranty. C-See s u p ports both cassette and d isk operation w i t h the M u lt i-Pak adaptor and req u i res 64 K. Cameras arid other accessories are avai l able from The M icro Works. Let your COCO see t he World ! • DS-69 Dig isector & C-See Software • M AG I G RAPH G ra p h i c s Package on d i sk $1 49.95 $ 39.95 Term s : V i sa, M astercard, C heck or C.O.D. P urveyors of Fine Video Digitizers Since 1977. Th� O © � W© � Established P.O. Box 1 1 1 0 Del M ar, CA 920 1 4 CiJ.cle Reader Service card Tell them " I saw It I n HOT Coco . " 1977 (61 9) 942-2400 # 1 96 November 1 985 HOT Coco 29 UTILITY by Will iam S . Bon n e l l System Requirements 32K RAM O Disk Extended Color Basic ne great feature of a disk-operating system is that it provides you with a disk's table of contents-the directory. Be cause you can see at a glance what a disk contains. it's easier to keep tabs on your files. But Disk Extended Color Basic doesn't fully exploit the directory's potential: you still have to remember command formats to copy. kill, rename. or load a file. File Directory lets you i.nitiate these functions with one key stroke. It also sorts files alphabetically , dumps the sorted directory to a printer. lists an ASCII file on the screen. and protects 56 files per disk. Program Operation The program reads the directory of a disk and displays it in screens of 10 files. Statis tics are displayed and the files are presented in alphabetical order by a machine-language sort. The arrow keys control the cursor. The left arrow moves you to the previous screen: the right arrow moves you to the next one. The down arrow moves the cursor to the next file: the up arrow moves it to the previous file. Holding the arrow keys down makes them autorepeat. The cursor wraps between the first and last screens and between the first and last files in each screen. Figure 1 shows a sample session. Initiate operating-system commands by positioning the cursor next to the file and typing the appropriate letter: A-Re-sorts the directory. This is especially useful after you have renamed a file. B-Reads the directory again. Use this com mand after inserting a different disk in the drive. C-Copies the file to another disk. D-Dumps the sorted directory to the printer. Program Listing. File Directory H J CLEAR 2n0 20 T $ = " * * * * * * * * * * * * * * * * * * * * * * * * F U L L S C R E E N D I R ECTORY * * * COPY R I G H T * B I L L BONN E L L 1 1 /0 8 / 8 4 * *********************** n 30 C L S : I F P E E K ( & H E 0 2 ) = 1 9 0 T H E N 6 0 40 GOSUB 1 4 7 0 : P R I NT @ 2 6 3 , " D I R E C T I ONS ( Y / N ) " ; 5 0 A $ = I N K EY $ : I F A $ = " Y " T H E N 1 5 3 0 ELSE I F A $ < > " N " T H E N 50 6 0 C L S : P R I NT @ l 6 4 , T $ : P R I NT " r e ad i ng d i r e c t o r y " 7 0 P R I NT @ l 6 4 , T $ 80 D I M N A $ ( 6 0 ) 30 HOT CoCo November 1 985 Ditectory Assistance Load, copy, and rename files from a disk directory. ff-Displays the help screen. K-Kills the file. The program first asks for verification. L-Lists a file in ASCII format. P-Protects the disk by copying the file-allo cation table and seven sectors of the direc tory to granule 68. allowing you to protect 56 files per disk. (The date is stored in the last 8 bytes of granule 68.) This option also restores information from granule 68 to its proper lo cation in track 1 7 . A submenu asks you whether you wish to protect or restore. Be fore restoration. the date of the last protec tion is displayed and you must confirm your desire to continue. If granule 68 contains in formation other than a previously saved di rectory. the program asks if it should con tinue with the protection function. Q-Quits the program. R-Renames the file. The program prompts you for a new name. If you press the enter key without typing a file name, the program ignores the rename command. BANDY . BAS CALENDAR . BAS . BI N CAL[;EN CHAN[;AD D . BAS DSK- >TAP . BAS EUCHRE2 . BA S . BAS F I LES . BAS [;REEK HARD7FA0 . B I N HARDCOPY . SRC I SCREEN 2 1 OF F I LE 1 OF 18 SPACE LEFT 34 GRANS ( c===m•===••oP t i ons•�z•c�====�• > A B C D H K L P Q R X ARROWS Fig. 1. Sample Session 90 ' 1 0 0 ' R EA D I NG D I R E CTORY 1 1 0 TRACK = 1 7 1 2 0 F O R S = 3 TO 1 1 1 30 DSKI $ F , 1 7 , S , A $ , B$ 1 40 A$=A$+LEFT$ ( B $ , 1 2 7 ) 1 5 0 F O R P= 1 TO 2 5 5 S T E P 3 2 1 6 0 N AM E $ = M I D $ ( A $ , P , 8 ) 1 7 0 E XT $ = M I D $ ( A $ , P + 8 , 3 ) 1 80 I F EXT$ < > " " TH E N EXT$ = " . " + E X T $ : N A M E $ =NA M E $ + E X T $ 1 9 0 I F L E F T $ ( NAME$ , l ) =C H R $ ( 2 5 5 ) THEN 240 2 0 0 I F L E F T $ ( N AM E $ , l ) = C H R $ ( 0 } T H EN 220 2 1 0 N A $ ( QQ ) = N A $ : QQ= QQ+ l 2 2 0 NEXTP 2 3 0 NEXTS 2 4 0 G O S U B 1 3 8 0 ' S ORT D I R E CTORY 2 5 0 Q Q = QQ - 1 : G R = F R E E ( 0 ) ' # F I L ES X-Loads and executes a machine-language file or loads and runs a Basic file. Exercise caution with machine-language files. If they overlay the file-management program, they might not execute. End Basic programs with RUN "File Directory", instead of STOP or END. to return control to the file manager. In this way, you can create a menu-driven disk. Program Techniques It is worthwhile pointing out some of the techniques I used in File Directory. Line 30 checks to see if the machine-language pro gram has already been loaded. Lines 100230 read the disk directory into an array called NA$( ). Line 280 creates a command string that is decoded in line 4 10 to branch control to the appropriate code. This is an excellent way to create a menu without ex cessive use of IF statements. The FOR. . . NEXT loop in line 390 imple ments autorepeat by putting &HFF into the keyboard rollover table. EXEC 44539 is an efficient way of halting program execution until a key is pressed. POKE &HFF40 in line 730 stops the disk drive to allow the user to exchange disks. Line 980 shows how to run a program whose name is a variable. Notice the use of double quotation marks. • William S. Bonnell is an industrial engineer who specializes in simulation. Address corre spondence to him at 239 Mason Ave .. Roches ter. NY 1 4626. Please enclose a stamped. self addressed envelope for his reply. 2 6 0 N S = I NT ( QQ/ 1 0 + 1 ) - 1 ' # S C R E E N S 2 7 0 CS=0 ' CURRENT S C R E E N 280 CM$=CHR$ ( 8 ) +CHR$ ( 9 ) +CHR$ ( 10 ) + C H R $ ( 9 4 ) + " K R C H L A P QX B D " ' C O M M A N D S T R I NG 2 9 0 L=0 : 0L=0 ' L I N E : OL D L I N E 3 00 A $ = I NKEY$ : C LS : FOR I =C S * l 0+ 0 TO CS* l0+9 3 1 0 P R I NT NA $ ( I ) 3 20 NEXT 3 3 0 P R I N T @ 2 0 , " SC R E E N " C S + l " O F " ; 3 4 0 P R I NT @ 5 2 , N S + l ; 3 5 0 P R I NT @ 3 2 0 , " < = = = = = = = = = = = o p t i o ns============> " ; 3 6 0 P R I NT @ 3 5 2 , " A B C D H K L P Q R X A R ROWS " 3 7 0 P R I NT @ l 4 8 , " S P A C E L E F T " : P R I NT @ 1 8 0 , G R " GRANS " ; 3 8 0 POKE & H F F 4 0 , 0 3 9 0 FOR K T = 3 3 8 TO 3 4 5 : P O K E K T , 2 5 5 : N E X T : A $ = I N K EY $ : P R I NT @ L * 3 2 + 1 5 , C H R $ ( 1 4 3 ) ; : P R I NT @ L * 3 2 + 1 5 , C H R $ ( 1 2 8 ) ; : P R I NT @ 8 4 , " F I L E " C S * l 0 + L + l " O F " ; : P R I NT @ l l 6 , QQ+ l ; : I F A $ = " " T H EN 390 4 00 P R I NT @ L * 3 2 + 1 5 , A $ ; 4 1 0 O N I N S T R ( l , C M $ , A $ ) + 1 GOTO 3 9 0 , 4 30 , 4 40 , 4 70 , 5 20 , 58 0 , 6 50 , 7 30 , 77 0 , 8 40 , 9 4 0 , 1030 , 1 6 20 , 9 70 , 1 6 30 , 1 6 4 0 4 2 0 GOT0 3 9 0 4 3 0 CLS : CS=CS-l : I F CS<0 THEN CS= N S : GOTO 2 9 0 E L S E GOTO 2 9 0 ' L E F T A R ROW 4 4 0 CLS : CS=CS+ l : I F C S > N S THEN CS 1 = 0 : GOTO 2 9 0 E L S E G O T O 2 9 0 ' R I G H T A R ROW 450 I 4 6 0 ' DOWN A R ROW 470 L=L+l 4 8 0 I F L > 9 O R C S * l 0 + L > QQ T H E N L = 0 4 9 0 P R I NT @ O L * 3 2 + 1 5 , C H R $ ( 1 4 3 ) ; : 0 L = L : GOTO 3 9 0 ' DOWN A R ROW 5 00 I 5 1 0 ' U P A RROW 520 L=L-1 530 IF L<0 THEN L=9 5 40 I F CS * l 0+ L >QQ THEN L=QQ-CS * l 0 5 5 0 P R I NT @ O L * 3 2 + 1 5 , C H R $ ( 1 4 3 ) ; : 0L = L : GOTO 3 9 0 560 I 5 7 0 ' K I L L A N D R E SO R T 5 8 0 P R I NT @ 4 4 8 , " K I L L " NA $ ( C S * l 0 + L ) " ( Y/ N ) ? " ; 5 9 0 A $ = I NK E Y $ 6 0 0 I F A $ = " Y " T H E N K I LL NA$ ( CS * l 0 + L ) : N A $ ( C S * l 0+ L ) = " " : GOTO 2 4 0 6 1 0 I F A $ = " N " T H E N P R I NT @ 4 4 8 , " " : GOT0 3 9 0 620 I 6 3 0 ' RENAME 6 4 0 GOTO 5 9 0 6 5 0 P R I NT @ 4 4 8 , " " ; : I NP U T " N E W N A M E OR ENTER " ; A $ : I F A $ = " " THEN 300 660 PS=I NSTR ( A$ , " . " ) : I F PS=0 THE N P S = I NSTR ( A $ , " / " ) 6 7 0 I F PS=0 THEN 6 50 6 8 0 A $ = LE F T $ ( M I D $ ( A $ , l , PS- l ) + " " , 8 ) + M I D $ ( A$ , P S ) 6 9 0 R E N AME N A $ ( C S * l 0 + L ) TO A $ : NA $ ( C S * l 0+ L ) = A $ 7 00 GOTO 3 0 0 7 10 I 7 2 0 ' COPY F I L E 7 3 0 P R I NT @ 4 4 8 , " COPY I NG " ; N A $ ( C S * 1 0 + L ) ; : COPY N A $ ( C S * l 0+ L ) : C L S : PO KE & H F F 4 0 , 0 : P R I NT " I N S E R T S O U R C E D I S K . . . H I T ANY K E Y " : E X E C 4 4 5 3 9 : GO TO 2 9 0 7 4 0 GOT0 2 9 0 750 I 7 6 0 ' HE L P 770 CLS 7 8 0 P R I NT " A AGA I N - R E S O R T THE - R E R EA D THE D I R E CTORY B B EG I N D I R E C TORY C COPY - COPY TO OT - P R I NT SORT HER DISK D DUMP ED D I R . H help - D I S P L A Y TH I S SCREEN - D E L E T E F RO K K I LL M DISK L L I ST - L I S T AN A S CII FILE" 7 9 0 P R I NT " P P ROTECT- C O P Y D I R / F - END THE PR AT TO G R 6 8 Q QUIT OGRAM R RENAME - RENAME F I L - R U N A P ROG E X EXEC RAM A A RROW - P R EV I OU S F - - DISKETTES AND COCO SOFTWARE TRS-80 + MOD I, 1 1 1, COCO. Tl99 /4a 5.25" DISKS EACH 1 0·PACK $12.50-SSDD/DSDD $20-DSQD TIMEX 1 000 , OSBORN E , others GOLD PLUG - American-made, guaranteed 1 00% quality, with Tyvek jackets, hub rings, and labels 80 Eliminate disk reboots and data loss due to oxi dized contacts at the card edge connectors. GOLD PLUG 80 solders to the board edge con nector. Use your existing cables. (if gold plated) �o rJ<Y....� old Plug-BG 11111 1 11111111111111 $7 .95 INCL 29.95 Can/Mex $4 . TEXAS 5% TAX Available at your favorite dealer or order direct from E.A.P. CO. P.O. BOX 1 4 VISA - KELLER, TEXAS 76248 (8 1 7) 498-4242 Circle Reader Service card #21 6 + trademark Tandy Corp SUPER SLEUTH DISASSEMBLERS EACH $99·FLEX $101 -0S/9 OBJECT·ONL Y versions: EACH $50-FLEX,OS/9 ,COCO interactively generate source on disk with labels, include xref, binary editing specify 6800, 1 , 2,3,5,8,916502 version or 280/8080,5 version OS/9 version also processes FLEX format object file under OS/9 COCO DOS available in 6800, 1 , 2,3,5,8,916502 version (not Z80/8080,5) only CROSS-ASSEMBLERS EACH $50-FLEX,OS/9 ANY 3 $1 00 ALL $200 specify for 1 80x,6502,680 1 , 6804,6805,6809,Z8,Z80,8048,8051 ,8085,68000 true, modular, free·standing cross-assemblers in C, with load/unload utilities 8-bit (not 68000) sources included with all cross-assemblers (for $200) ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1 , 6809 39. 95 Don't wait any longer Foreign $ 7 . EACH $50-FLEX,OS/9 menu-driven with terminal mode, file transfer, MODEM?, XON-XOFF, etc. f()( COCO and non-COCO; drives internal COCO modem port up to 2400 Baud specify for 6800/1 , ( 1 4)6805. 6502, 6809 OS/9, Z80 FLEX $ 1 6. 95 USA shipping $ 1 . 45 OBJ ECT·ONLY versions: OBJECT-ONLY versions: EACH $50·COCO FLEX,COCO OS/9 Ground tab extensions Disk Drives (all R . S . ) Gold Disk Cable 2 Drive CMODEM TELECOMMUNICATIONS PROGRAM $1 00-FLEX,OS/9 DEBUGGING SIMULATORS EACH $75-FLEX $1 00-0S/9 COCO Disk Module (2) Four Drive Cable ILE V A R ROW - C U R S O R TO NEXT F I LE < - A R ROW - S ELECT PRE V. SCRE E N " 8 0 0 P R I NT " - > A RROW - S E L E C T NEX T SCREEN " ; 8 1 0 P R I NT @ 4 8 0 , " H I T ANY K E Y TO C ONT I N U E " ; : E X E C 4 4 5 3 9 : GOTO 3 0 0 820 I 8 3 0 ' L I ST AN A S C I I F I L E 8 4 0 CLS 8 5 0 O P E N " I " , l , NA $ ( C S * l 0+ L ) 8 6 0 SW= E O F ( l ) 8 7 0 I F SW T H E N C L O S E : P R I NT : P R I NT " H I T E N T E R TO CON T I N U E " : E X EC 4 4 5 3 9 : C L S : GOTO 3 0 0 8 8 0 L I N E I N PUT # l , A $ : P R I NT A $ 8 9 0 A $ = I NK E Y $ : I F A $ = " " THEN 8 6 0 9 0 0 I F A $ = " Q " T H E N SW= l : GOT0 8 7 0 9 1 0 E X E C 4 4 5 3 9 : GOTO 8 6 0 920 I 9 3 0 ' R E S O R T D I R E CTORY 9 4 0 GOSUB 1 3 8 0 : GOTO 300 950 I 9 6 0 ' R U N B A S I C OR E X EC M L 9 7 0 P R I NT @ 4 4 8 , " E X E C UT E " NA $ ( C S * 10+L ) ; 9 8 0 I F R I G H T $ ( NA $ ( C S * l 0+ L ) , 3 ) = " B A S " THEN RUN " " +NA$ ( CS* l 0+ L ) 9 9 0 I F R I G H T $ ( NA $ ( C S * l 0+ L ) , 3 ) = " B I N " T H E N LOADM " " + N A $ ( C S * l 0 + L ) : E X E C : GOTO 3 0 0 1 0 00 P R I N T " WRONG F I L E T Y P E . . . H I T A K EY " : E X E C 4 4 5 3 9 : GOTO 3 0 0 1010 I 1 0 2 0 ' G E T OR SAVE D I R E CTORY 1030 CLS 1 0 4 0 P R I NT " p ROT E C T I ON M E N U " 1 0 5 0 P R I NT " l SAVE D I R E CTORY TO Listing continued GRAN 6 8 " MC/VISA 6502 to 6809 $75-FLEX $85·0S/9 6800/1 to 6809 and 6809 to position-independence $50-FLEX $75·0S/9 FULL-SCREEN FLEX TSC XBASIC PROGRAMS with cursor control $50 w/source, $25 without $100 w/source, $50 without $100 w/source, $50 without $100 w/source, $50 without DISPLAY GENERATOR/DOCUMENTOR MAILING LIST SYSTEM INVENTORY WITH MAP TABULA RASA SPREADSHEET DISK AND XBASIC UTILITY PROGRAM LIBRARY $50-FLEX edit disk sectors. sort directory, maintain master catalog , do disk sorts, etc. Computer Systems Consultants, Inc. 1 454 Latta Lane, Conyers, GA 30207 Telephone 404-483-1 7 1 7 or 4570 Circle Reader Service card #223 Most programs in source: give computer, OS, disk size. Contact us for full catalog, dealer, and services info. ,. 25% off multiple purchases of same program on one order. VISA and MASTER CARD accepted; US funds only, please. Add GA sales tax (If In GA) and 5% shipping. /9 tm Micfoware: COCO Im Tandy. FLEX tm Technical Systems Consultants: OS November 1 985 HOT Coco 31 1 ,0 6 ,0 P R I N T " 2 GET D I R E CTORY F ROM GRAN 6 8 1 ,0 7 ,0 I N PUT " E N T E R l O R 2 " ; A 1 ,0 8 ,0 ON A GOTO 1 1 1 ,0 , 1 2 7 ,0 1 ,0 9 ,0 GOTO 1 ,0 3 ,0 1 1 ,0 ,0 ' S AVE D I R E CTORY T O G R 6 8 1 1 1 ,0 I N P U T " E N T E R DAT E ( M M / D D / Y Y ) " ; DA $ 1 1 2 ,0 DS K I $ ,0 , 1 7 , 2 , A $ , B $ 1 1 3 ,0 I F M I D $ ( A $ , 6 8 , l ) = C H R $ ( & H C 9 ) T H E N 1 1 6 ,0 1 1 4 ,0 I F M I D $ ( A $ , 6 8 , l ) = C H R $ ( & H F F ) T H E N 1 1 6 ,0 1 1 5 ,0 P R I NT " G R A N 6 8 I N U S E . . . CONT I N UE ( Y / N ) " : I N P UT Z $ : I F Z $ = " Y " TH EN 1 1 6 ,0 E L S E 3 ,0 ,0 1 1 6 ,0 M I D $ ( A $ , 6 8 , l ) = C H R $ ( & H C 9 ) 1 1 7 ,0 D S K O $ ,0 , 1 7 , 2 , A $ , B $ 1 1 8 ,0 D S K O $ ,0 , 3 4 , 1 1 , A $ , B $ 1 1 9 ,0 FOR D S = 3 TO 9 1 2 ,0 ,0 D S K I $ ,0 , 1 7 , D S , A $ , B $ 1 2 1 ,0 . I F D S = 9 T H EN M I D $ ( B $ , 1 2 ,0 , L E N ( DA $ ) ) = D A $ 1 2 2 ,0 D S K O $ ,0 , 3 4 , D S + 9 , A $ , B $ 1 2 3 ,0 N E X T D S 1 2 4 ,0 M I D $ ( B $ , 1 2 ,0 , 8 ) = D A $ 1 2 5 ,0 GOT 0 3 ,0 ,0 1 2 6 ,0 ' G E T D I R ECTORY F ROM G R 6 8 1 2 7 ,0 D S K I $ ,0 , 3 4 , 1 8 , A $ , B $ 1 2 8 ,0 D A $ = M I D $ ( B $ , 1 2 ,0 , 8 ) . 1 2 9 ,0 P R I NT " DA T E L A S T SAVED WAS " DA $ 1 3 ,0,0 I N PUT " CONT I N U E R E STOR E ( Y/ N ) " ; A $ : I F A $ < > " Y " T H E N 3 ,0 ,0 1 3 1 0 FOR D S = 2 TO 9 1 3 2 ,0 D S K I $ ,0 , 3 4 , D S + 9 , A $ , B $ 1 3 3 ,0 D S K O $ ,0 , 1 7 , D S , A $ , B $ 1 3 4 ,0 N E XT DS DAISY 1 3 5 ,0 GOTO 3 ,0 ,0 1 3 6 .0 I " 1 3 7 ,0 ' M L SORT ROUT I N E ( B I L L B A R D E N - J UN . 8 2 T R S 8 ,0 M I C ROCOM P U T E R N EWS P . 1 3 M O D I F I E D B Y M E ) 1 3 8 ,0 A = .0 : N N = .0 1 3 9 ,0 D E F U S R,0 = & H ,0 E ,0 2 1 4 .0 .0 N N = V A R P T R ( NA $ ( ,0 ) ) 1 4 1 ,0 POK E & H ,0 E ,0 ,0 , I NT ( N N / 2 5 6 ) 1 4 2 ,0 P O K E & H ,0 E,0 1 , N N - I NT ( N N/ 2 5 6 ) * 256 1 4 3 ,0 A = U S R S ( ,0 ) 1 4 4 ,0 R E T U R N 1 4 5 .0 I 1 4 6 ,0 ' M L SORT LOA D E R 1 4 7 ,0 P R I N T " LOA D I NG MA C H I N E LANGU AG E S O RT " : FO R A D D R = & H ,0 E ,0 2 TO & H ,0 E 6 8 : R E A D A $ : PO K E A D D R , VA L ( " & H " + A $ ) : C K = C K +VAL ( " & H " + A $ ) : N E X T 1 4 8 ,0 I F C K < > l ,0 8 0 5 T H E N P R I NT " E R R O R I N TYP I NG M L S O RT " : STOP 1 4 9 ,0 DATABE , ,0 E , ,0 ,0 , 3 4 , l ,0 , E E , E 4 , A E , 5 E , 3 ,0 , 1 F , 4 F , 3 4 , 1 2 , A 6 , C 4 , 2 7 , 2 A , A 6 , C 4 , E 6 , 4 5 , A,0 , 4 5 , 2 4 , ,0 2 , E 6 , C 4 , 3 4 , ,0 1 , A E , 4 2 , l ,0 , A E , 4 7 , 6 D , 4 5 , 2 6 , ,0 4 , 3 2 , 6 1 , 2 ,0 , 2 9 , A 6 , 8 ,0 , A,0 , A,0 , 2 7 , ,0 4 , 3 2 , 6 l , 2 0 , ,0 5 , 5 A , 2 6 , F 3 , 3 5 , ,0 1 , 2 3 , l 8 , A E , 4 2 , l ,0 , A E , 4 7 , A F , 4 7 , l ,0 , A F , 4 2 , A 6 , C 4 , E 6 , 4 5 , E 7 , C 4 , A 7 , 4 5 , EA , 4 5 1 5 ,0 ,0 DATA E A , E 4 , E 7 , E 4 , 3 3 , 4 5 , A E , 6 1 , 3 ,0 , l F , A F , 6 1 , 2 6 , B ,0 , A 6 , E 4 , 3 2 , 6 3 , 2 6 , Al , 32 , 62 , 39 1 5 1 0 R ET U R N 1 5 2 .0 I 1 5 3 ,0 I 1 5 4 ,0 ' D I R E C T I O N S 1 5 5 ,0 C L S 1 5 6 ,0 P R I N T " T H I S P ROGRAM W I L L P R E S E NT T H E CONT E N T S O F YOUR D I S WHEEL New Smith Corona L · 1 000 True l e t t e r q u a l i t y p r i n t e r for less t h a n the cost of a n o ff i c e t y pew r 1 t e r 1 P r i c e d $500 less t ha n o t h e r p o p u l a r d a i s y wheel p r i n t e r s 1 FREE K SORTED I N B L O C K S O F 1 .0 F I L E S. YOU M A Y T Y P E IN COMM A N D S THE F I L E S U C H A S K I L N E X T TO L , COPY O R R E NA M E . T H E S E WI L L ACT ON T H E ADJACENT F I LE . " 1 5 7 ,0 P R I NT : P R I N T " YOU MAY A L S O T Y P E I N C E RT A I N COMMANDS WH I C H W I LL CHANGE T H E V I EW . FOR E X A AGA I N O R T H E A MPLE HELP , QUIT R ROW K E Y S . HELP W I L L G I V E YOU THE S P E C I F I C A C T I ON S FOR EA C H K EY . " 1 5 8 ,0 P R I NT : P R I N T " H I T A K E Y TO C O N T I N UE " ; : EX E C 4 4 5 3 9 : C L S 1 5 9 0 P R I N T " T H E ·P ROG R A M CONT A I N S A M AC H I N E LANGUAGE S O R T A N D A U TO R E P E A T K E Y FOR C U R S O R AND S T H E P ROTE CREEN MOVEM ENT . CT F EA T U � E W I L L STORE A N D R E T R I EVE T H E F I L E A L L OC A T I ON T A B L T R A C K S TO G R A N 6 8 . " E AND D I R . 1 6 ,0 ,0 P R I NT : P R I N T " B E C A U S E ONLY 1 GRAN ( 6 8 ) I S U S E D F O R PROTE C T I ON , T H E NUMBE R O F F I L E S I S L I M I T E D TO LESS THAN 5 6 F ILE/DISK . " 1 6 1 0 P R I NT : P R I NT " H I T A K E Y TO CO NT I N U E " ; : E X E C 4 4 5 3 9 : C L S : GOTO 6,0 1 6 2 ,0 C L S : STOP ' QU I T COMMAND 1 6 3 ,0 R U N ' R EAD D I R E CTORY AGA I N 1 6 4 ,0 ' H ARDCOPY 1 6 5 ,0 P R I NT @ 4 1 6 , " E N T E R T I T L E OF D I R E CT O RY " : I N PUT T I $ 1 6 6 ,0 P R I NT # - 2 , T I $ 1 6 7 ,0 FOR I = .0 T O QQ : P R I NT # - 2 , N A $ ( I)• 1 6 8 ,0 N E X T 1 6 9 0 PR INT # - 2 END 1 7 ,0 ,0 GOTO 3 ,0 ,0 1 0 DISKETTES OR 20 C-20 CASS ETTES A su bscription t o the 'Coco-Cassette' gets you a tape SALE P R I C E : or disk full of 1 0 quality programs delivered to you by $249 first class mail every mont h . The documentation incl uded will help you run great util ities like 'Word Processor,· and 'Budget Analyzer,' or enjoy great games l i ke ' Frogj ump' and 'Cate rpillar Cave' FOR AS UTILE AS 46 CENTS EAC H ! F E AT U R E S : * Limited offer * Subscribe for a year on cassette * F r i c t i o n feed and receive 20 Free C-20 ca ssettes or subscribe for a * C h a n g e a b le d a i s y wheels double density d i skettes ! * 1 5 cps year on disk and receive 1 0 Free 51/4 single sided 1 20 wpm * P a r a l le l or serial i nter face * C om p a t i b le w i t h R I S Now available o n disk! Apple PRICES etc Circle Reader Service card #456 S U N LOCK SYSTEMS 2 1 0 Connor Rd. Mechan icsville, Va. 231 1 1 We accept MasterCard, Visa and CODs 1 Single Copies ADD I T I ONAL P R I N T E R SPEC I AL S Epson D k i data Comre x C R l l RX80 $229 ML92 $369 Comrex Mll 92 369 S t a r SG l O L X BO 249 649 R X l O O 399 ML84 F XBO+ 369 O k i 20 1 4 9 F X 100+499 ML93 J X 80 499 ML 1 82 2 3 9 579 111 $359 C l to h 7 500 $ 2 3 9 599 C l to h F l O 899 239 C l to h 1 5 5 0 449 Star PwrT p . 329 C i to h 8 5 1 0 319 S t r . R ad x l O 519 Sv . Reed 5 5 0 4 4 9 Gemi n i 349 Sv . Reed 5 0 0 3 7 9 359 E p s o n 1 5 00 15x De l ta 1 0 I n V i r g i n i a c a l l 804-746-1 600 32 HOT CoCo November 1 985 * 1 6K extended required . . * Some programs require 32K, and or d i s k * Over 3000 satisfied customers * Back issues available fro m July "82 (over 280 programs to choose from!) * Also available for Commodore 64. 5500 7000 3000 4000 600 800 Mich Res add 4•. Overseas ADO $ 1 0 10 subscription and $ 1 .00 10 srngle rssues PERSONAL CHECKS WELCOMEI Circle Reader Service card #236 T & D Subscription Software 899 TO O R D E R CALL TOLL F R E E 800·368·9 1 91 YR ( 1 2 ISSUES) 6 MO (6 ISSUES) TAPE DISK � 11\. "\l!fl . P.O. BOX 256-C HOLLAND, Ml 49423 - (6 1 6) 396-7577 ' VISA l- ... .,. � � """ " 0 ..... � "' ..... ' 7 ""' � HOT CoCo and You. Those with the latest and most thorough in formation run their computers with confidence. Those without it are run ragged with frustra tion. Color Computerists who've gained the upper hand read BOT CoCo, the monthly magazine that unlocks the full potential of TRS-80 • and MC- 1 0 • Color Computers. BOT CoCo's inside stories can make you and - - ----- - - ------- ----, t I want to be part of a D YES • brilliant team . . . Send me 1 2 issues of HOT CoCo for the low price of $24.97 . I'll save 30% off the newsstand price. · 0 Payment enclosed Address City 0 Bill me ------- ______ State___ Zip _ _ _ Canada & Mexico $27.97, one year only, US funds drawn on US . Foreign surface '44 . 97, one year only, US funds drawn on US bank. Foreign ainnall please Inquire. Allow 6 to 8 weeks for delivery. bank HOT CoCo • PO Box 975 35NB4 Farmingdale , NY 1 1 737 your Color Computer a brilliant team . By sub scribing to BOT CoCo for the low one-year price of $24.97, you'll get information-packed issues at 30% off the cover price! • BOT CoCo specializes in presenting time-effi cient, money-saving programs for business, home, and school. Easy to use, and practical! • Novice and expert users alike will benefit from BOT CoCo's tips and tutorials. Sharpen your skill. Watch your CoCo become more versatile! • Graphics? Discover how easy it is to create your own! • Games? BOT CoCo's wide assortment pro vides hours of entertainment and challenge for the entire family. • Looking to gain an advantage by adding more hardware or software? Read our reviews first decide for yourself what's worth its weight in gold, and what isn't worth a hill of beans. Everything on the pages of BOT CoCo can bring out the best in you and your Color Com puter. A wealth of knowledge-for an entire year-for just $24.971 Order your subscription today by filling in the coupon, or by calling TOLL FREE 1 -800-2585473. In New Hampshire, call 1 -924-947 1 . • TRS80and MC- lO ColorComputers are reglsterc6 1nldemarks ofthe Radio Shack Tandy Division ofTandy Corp. This program is available on our Instant CoCo TELEWRITER UTILITY -----�--- See the Instant CoCo ad by J . D . G erman Y ou have just been elected secretary of your local (a) garden club. (b) Lions Club, (c) soccer league, or (d) all of the above. and you are looking for a mailing-list program that's easy to use and inexpen sive. If you have the Telewriter-64 word-processing program, look no further-you already have a terrific mailing-list program. Check the ads to see if you can find one with full-screen editing, a 5 1-column display, imbedded printer codes, variable line spacing, merging. chain printing for long lists. plus search and replace features for deleting names or changing addresses. If you find such mailing-list software, you can bet it will be expensive. But with careful formatting. you can type your mailing list with Telewriter-64 and get all these features without paying a cent. There is. however, one essential feature that Telewriter-64 lacks. A mailing list program must be able to sort and rearrange the list. usu ally alphabetically by last name or according to zip code. Such sorts are useful for finding duplicate entries and for postal bulk-rate pre sorting. With the ASCH Save/Read-ln program provided with Telewri ter and the program described in this article. you can easily sort your mailing list by name, zip code, or-with simple program modifica tions-by membership number, shoe size, hair color. or any other item you want to include in your mailing list. Typing the Mailing List The key to using Telewriter for mailing lists is the format. which. as you can see from the example in Table l , is simple. As with any Telewriter-64 text that you don't want right and left-justified. you must use a caret semi colon (•:) for the beginning and ending lines. The second line is used for the mailing-list ti tle. which must be preceded by a caret T (•T) the code for a nonprinting comment. Finally. after the title line and between each name-and address block. you must type a caret N (•N). This advances the printer to the next mailing label when the list is printed. Using this format. a 32K Color Computer with Telewriter-64 has room for 200 to 300 names per mailing list, depending on the av erage length of the names and addresses. A 1 6 or 64 K computer would hold correspondingly shorter or longer lists. Fortunately. Telewriter64 has provisions for chain printing any num ber of ftles. so this maximum is not really re stric t i v e . For a list of l .000 n a m e s . for example. you could quickly presort the names into those beginning with the letters A-G, H M. N-S. and T-Z: type them as four lists: sort each one: and chain print them. elsewhere cassette. in this issue. Teach your old word processor new tricks. D US Posta Printing the Mailing List 34 HOT Coco November 1 985 _CoCo_ Mai t wi th Te ewri ter -64 Domestic Mail The Telewriter format menu offers several choices that are useful for printing mailing lists. The most common printing requirement is to put each name and address on a separate mailing label. For the standard "Y,6-inch labels ( l -inch spacing from label to label), set the printer for six lines per inch and the Telewriter-64 format menu to six lines per page. You will probably also want to set the left margin to five. With the one-line format-menu choice set at zero, the entire mail ing list will be printed at once. For larger or smaller labels. set the lines per page on the format menu to the appropriate number. The printing sequence is flexible. If you would like to use sheets (l:=.:::l) System Requirements 1 6K RAM Disk Drive Disk Extended Color Basic Telewriter-64 Printer FOR THE COLOR COMPUTER FROM Circle Reader Service card 12n triad pictures corp. p containing two or three columns oflabels, use the partial-print feature to print the first half or third of the list. Then reset the margin, roll the paper back to the start, and use the partial print for the next portion of the list. Another variation lets you print names and addresses di· rectly on envelopes, flyers, or catalogs. In this case. set the lines per page to 66 and the one-page statement to one. Now each time you roll in an envelope and press the break key, the printer will print the next name and address and roll the envelope out into your hand. wo 98382 D D D D D D D D D D D D D D D D D D D D DD D D DD D D A 100% JOYSTICK-DRIVEN ILLUSTRATED ADVENTURE! NO MORE "HUNT-AND-GUESS" ON THE KEYBOARD! HUNDREDS OF CHALLENGING SITUATIONS! To sort a Telewriter-64 mailing list, type in and save the TW Sort program shown in Listing L The program is designed for the list for mat given in Table 1 . If your mailing list requires a different format an extra address line for a membership or phone number, for in stance-refer to the last section for help in modifying the program. Unfortunately, you cannot use commas or colons in addresses be cause they are interpreted as Disk Basic commands. The procedure for sorting mailing lists is simple. First, type the mailing list in the proper format using Telewriter-64; then return to the Telewriter-64 menu and enter Basic by pressing 8. Load the ASCII Save/Read-In program provided with Telewriter-64. Put a newly for matted disk in the drive and save the mailing list as ASCII code. Be sure to use the file name, SORT ML, when saving the list. Tum off and restart the computer; then load and run TW Sort. The program prompts you to press the play button and select the sort method. Go watch a football game or your favorite video movie. (More on sort times later.) When the sort is finished, the program offers you the choice of printing the sorted list for a quick check or saving it to disk. Follow the prompts to save the sorted list on disk. Now, reload Telewriter-64 and the ASCII Save/Read-In program as before. Read in the sorted mailing list, which is now called SOR TEDML. Return to Telewriter-64's edit mode and check the list to be sure it is still properly formatted. Then return to the Telewriter-64 menu and save the sorted list on another disk in the normal (non ASCII) Telewriter-64 file format. This will make it easy to load and use later without the ASCII Save/Read-In program. You can now print labels, periodically update the list, or r.::=====:::;i pass it along to the next person that A, gets stuck with the secretary's job. AT Club Mailing List The highly detailed black & white 1//ustrat1ons put even the best color adventure graphics to shame . . . the first of a whole new kind of 'pomt-and-kfick ' adventure . . . the wave of the futurell WAR of the WORLDS Chapter One - The Landing SPECIAL INTRODUCTORY OFFER - The Sorting Program John Doe 1 23 Fourth Street New York NY 10102 AN TW Sort is designed so that you can easily adapt the format to your needs. Each section of the program Mary Smith is labeled to show its function, and 987 Main Street Apt. #4 the structure follows-as much as Miami FL 35508 possible-a logical order. To see how AN you can modify the program; let's Btll Jones add a membersh ip-n u m ber line 55 Washington Ave. above each name. Dallas TX 75234 First, you must diinension a new AN variable, call it MEMNUM$, in line Pat Hill 1 5. Change the input routine to read P.O. Box 456 four lines per address block by chang Los Angeles CA 98240 ing the 3 in line 1025 to a 4. Next, add AN a new membership-number sort rou J. C. Nickel tine after the zip-sort routine. Since Route # I Box 76 the first line of each list item would Ojo Caliente NM 87649 contain only the membership num A '. ber, you don't need a subroutine to separate that number as you do with Table I . Example of Proper the last-name and zip sorts. Simply Format for Original (Un write program lines to compare each sorted) Mailing List membership number with the oth- !!::====� It In HOT Coco." $16.95 SOLD SEPARATELY for $18.95 each: AN saw box 1 299 sequ1m. WAR0�WORl0DS Sorting the List Tell them "I o WAR of the WORLDS Chapter Two - The Quest WAR of the WORLDS Chapter Three - The Lost Hope SPECIAL PACKAGE PRICE - All 3 Chapters for $39.95 SUPPLIED ON CASSETTE REQUIRES 64K AND ONE RADIO SHACK-TYPE JOYSTICK O rd e r f Orm • • • • • • • • • • • • • • • • • • • • • • • • • Please send me: ��������- $ ���� ������ 0 Bill me 0 Payment enclosed Add $ ����- S3 shipping and handling . . . $3 TOTA L $ name address state city zip _ _ _ _ TRIAD PICTU RES P.O. lox 1 299 Sequim, WA 91312 (206) 613-6459 C A L L OR W R I T E FOR CATA LOG. .. IN AUSTRALIA ORDER TRIAD PICTURES SOflWARE FROM SOFTWARE SPECTRUM. P 0 BOX 2101 ADELAIDE. SOUTH AUSTRALIA. 5001 (08) 211 8763 OR 51 4868 November 1 98 5 HOT CoCo 35 ers. (Lines 2525-2560 perform this function for the zip codes.) Finally, write PRINT statements for MEMNUM$(1) in the print-sorted-list and save-sorted-list routines. In an effort to keep the program short and simple, I used a rather primitive sorting technique. As a result, the sorting times get long for large lists-over two hours for 250 names. But since you don't have to perform sorts frequently, this shouldn't be a severe shortcoming. If none of the zip codes you use contains nine digits, delete line 2 1 0 to speed up the sort. Two fmal notes o n the TW Sort program. I f you have an early ver- Program Listing. TW Sort. 1 0 P C L E AR l : C L E A R 1 6 000 15 D I M N A M E $ ( 2 5 0 ) , A D D R $ ( 2 5 0 ) , CS Z $ ( 2 50 ) 2 0 CLS J 0 GOTO 7 0 U 1 0 0 ' * * * S UB ROUT I N E S * * * 1 1 0 ' * * * LA S T N A M E S EP ARATOR * * * 1 20 Z = L E N ( N $ ) 1 3 0 F O R K = l TO Z 1 4 0 L N $ = R I GH T $ ( N $ , K ) 1 5 0 I F L E FT $ ( LN $ , l ) = " • T H E N L N $ = R I G H T $ ( LN $ , K - l ) E L S E N E X T K 1 6 0 R ET U R N 1 8 0 ' * * * Z I P S E P A RATOR * * * 2 0 0 Z I P $ = R I G HT $ ( CS Z $ , 5 ) 2 1 0 I F L E FT $ ( Z I P $ , l ) = " - " T H E N Z I P $ = R I G H T $ ( CS Z $ , 1 0 ) 2 2 0 I F VA L ( Z I P $ ) = 0 T H EN Z I P $ = " " 2 J 0 R ET U R N 2 50 ' * * * I N K E Y $ * * * 2 6 0 P R I NT @ 4 8 J , " p r e s s a ny k ey t o co n t i n ue " ; 2 7 0 S O U N D 1 5 0 , 2 : SOUND 5 0 , 2 2 8 0 A $ = I N K EY $ 2 9 0 I F A $ = " " TH E N 2 8 0 E L S E R ET U R N 295 I J00 P R I NT @ 4 8 J , " p r e s s 1 o r 2 t o c on t i n u e " ; 3 1 0 SOUND 5 0 , 2 : SOUND 1 5 0 , 2 J 2 0 C H $ = I N K E Y $ : C H =V A L ( C H $ ) 3 3 0 I F C H = l OR C H = 2 T H EN R ET U RN ELSE J20 3 4 0 ' * * * EN D O F S U B ROUT I N E S * * * 350 I 1 000 ' * * * M A I L I N G L I ST I N P UT * * * 1 0 1 0 O P E N " I " , t l , " SORT M L " 1 0 1 5 I N?UTt l , CC $ , T I T L E $ , N P $ 1 0 1 7 P R I NT " MA I L I NG L I ST T I T L E D " 1 0 1 8 P R I NT R I G H T $ ( T I TL E $ , L E N ( T I T L E$ ) - 3 ) 1 0 1 9 P R I NT " I S NOW B E I NG S O RT E D " U20 EL=l 1025 FOR RL=l TO J 1 0 3 0 I F E OF ( l ) T H E N C LOS E f l : E L = E L - l : GOTO 3 5 0 5 1 0 4 0 I N PUT f l , L $ ( R L ) 1 0 5 0 I F L E FT $ ( L $ ( R L ) , l ) = • - • T H EN 1 0 2 5 E L S E N E XT R L 1 0 6 0 I F R I G HT $ ( L $ ( 1 ) , l ) = " " T H EN L $ ( l ) = L E FT $ ( L $ ( 1 ) , L E N ( L $ ( 1 ) ) - l ) : GOT0 1 0 6 0 1 0 7 0 I F R I G HT $ ( L $ ( 3 ) , l ) = " " T H E N L $ ( 3 ) = L E FT $ ( L$ ( J ) , L E N ( L $ ( 3 ) ) - l ) : GOTO U 7 0 1 0 8 0 ON C H GOTO 2 0 1 0 , 2 5 1 0 2 0 0 0 ' * * * LAST N A M E SORT * * * 2 0 1 0 I F E L = l T H EN I = l : GOTO 3 0 5 0 36 HOT CoCo November 1 985 sion of the CoCo, you might have the ROM (read-0nly memory) version with the PCLEAR bug in it. If you get only an OK prompt when you run TW Sort, type RUN again. You can also omit all comment lines to reduce your typing. The G<rrOs and GOSUBs transfer control to the · line following the comment. so the program runs with or without the comments . • Address correspondence to J.D. German, Creative Technical Consult ants, Box 652, Cedar Crest, NM 87008. 2 0 2 0 N $ = L $ ( l ) : GO S U B 1 2 0 2 0 3 0 CN $ = LN $ 2040 FOR I=l TO EL-1 2 0 5 0 N $ = N A M E $ ( I ) : GO S U B 1 2 0 2 0 6 0 I F CN $ > = L N $ T H EN N E X T I E L S E J0n 2 0 7 0 I = E L : GOTO 3 0 5 0 2 5 00 ' * * * Z I P S O RT * * * 2 5 1 � I F E L = l T H E N I = l : GOTO 3 0 5 0 2 5 2 0 C S Z $ = L $ ( 3 ) : GO S U B 2 0 0 2 5 2 5 CZ $ = Z I P$ 2 5 3 0 F O R I = l TO E L - 1 2 5 4 0 CS Z $ = CS Z $ ( I ) : GO S U B 2 0 0 2 5 5 0 IF CZ $ >= Z I P $ THEN NEXT I ELSE 30n 2 5 6 0 I = E L : GOTO 3 0 5 0 2 9 9 0 ' * * * N A M E R EORGAN I Z E R * * * 3000 F O R J = E L T O I + l STEP - 1 3 0 1 0 N A ME $ ( J ) = N A ME $ ( J- l ) 3 0 2 0 A D D R $ ( J ) �A D D R $ ( J - l ) 3 0 3 0 C S Z $ ( J ) = CS Z $ ( J - l ) 3040 NEXT J 3050 NAME$ ( I ) =L $ ( 1 ) 3060 ADDR$ ( I ) = L$ ( 2 ) 3070 C S Z $ ( I ) =L $ ( 3 ) J 0 9 0 E L = E L+ l 3 l n GOTO U 2 5 3 5 0 0 ' * * * SO R T E D L I ST M E NU * * * 3 5 0 5 CLS 3 5 1 0 P R I NT @ 3 , " s o r t comp l e t e -wh a t ne x t ? " 3 5 2 0 P R I NT @ 9 6 , " l > P R I NT S O RT E D M A I L I NG L I ST . " J 5 J 0 P R I NT @ l 9 2 , " 2 > STORE S O R T E D M A I L I NG L I ST ON D I S K I N A S e r r FORMAT . • 3 5 4 0 G O S U B Jn 3 5 5 0 ON C H GOTO 4 0 1 0 , 5 0 1 0 4 000 ' * * * P R I NT S O RT E D L I ST * * * 4 0 1 0 F O R I = l TO E L 4 0 2 0 P R I NT f - 2 , N A M E $ ( I ) 4 0 J 0 P R I NT f - 2 , A D D R $ ( I ) 4 0 4 0 P R I NT t - 2 , CS Z $ ( I ) 4 0 4 5 P R I NT # - 2 4 0 5 0 N E XT I 4 0 6 0 GOTO 3 50 5 5 000 ' * * * SAVE S O RT E D L I ST * * * 5 0 1 0 CLS 5 0 2 0 P R I NT @ J , • t o s a ve s o r t e d ma i l i ng l i s t • 5 0 J 0 P R I NT @ 6 4 , " A > I NS ERT D I S K FO R SAVING NEW F I LE . " 5 0 5 0 P R I NT @ l 2 8 , " B > P R E S S ANY K E Y T O START S AVE " 5 0 6 0 P R I NT@ l 9 2 , " C > S O R T E D M A I L I N G L I ST W I L L B E S AV E D I N A S C I I FORMAT A S F I L E N A M E ' SO RTEDML ' . " 5 0 7 0 P R I NT @ 2 8 8 , " D > TO E D I T , R E N A ME OR SAVE I N TW B I NARY FOR MAT , I N PUT L I ST T O T E L EWR I T E R READ- I N PR U S I NG A SC I I OGRAM . " 5080 GOSUB 2 6 0 5 1 00 O P E N • o • , 1 1 , • soRT E DM L " 5 1 U P R I NT t l , C C $ 5 1 2 0 P R I NT t l , T I T L E $ 5 1 2 5 P R I NT t l , N P $ 5 1 J 0 F O R I = l TO E L 5 1 4 0 P R I NT # l , NA M E $ ( I ) 5 1 5 0 P R I NT f l , AD D R $ ( I ) 5 1 6 0 P R I NT t l , CS Z $ ( I ) 5 1 7 0 I F I < E L T H E N P R I NT t l , N P $ 5 1 8 0 NEXT I 5 1 9 0 P R I NT t l , C C $ 5 2 n CLOS E U 5 2 1 )} C L S 5 2 2 0 P R I NT " SO RT E D M A I L I NG L I ST I S S AV E D . P R E S S A N Y K E Y TO R E T U R N TO T H E LAST M E N U . " 5 2 J 0 GOSU B 2 6 0 : GOTO J 5 0 5 7 0 0 0 ' * * * I NSTRUCT I ON S * * * 7 0 1 0 P R I NT @ 6 , " tw s o r t i n s t r u c t i ons• 7 0 2 0 P R I NT @ J 2 , " l > Q S E T E L EW R I T E R TO CREATE A MA I L I NG L I ST I N T H I S F O R M AT : " 7 0 3 0 P R I NT @ l 00 , " - ; " 7 0 4 0 P R I NT@ l J 2 , " -T C L U B M A I L I NG L I ST " 7 0 4 5 P R I NT @ l 6 4 , " - N " 7 0 5 0 P R I NT @ l 9 6 , " JO H N A . D O E " 7 0 6 0 P R I NT @ 2 2 8 , " 1 2 J F I RS T STR E ET . 7 0 7 0 P R I NT @ 2 6 0 , 8 7 908 " 7 0 8 0 P R I NT @ 2 9 2 , 7 0 9 0 P R I NT @ J 2 4 , 7 1 0 0 P R I NT @ J 5 6 , . " ALBUQUERQUE , " -N " " JA N E S M I T H " " 2 4 6 8 M A I N S T R E ET 7 1 1 0 P R I NT @ J 8 8 , " AUROR A , . NM I L 605 1 6 . 7 1 2 0 P R I NT @ 4 2 9 , • - ; • 7 1 J 0 P R I NT " 2 > A SC I I S AV E L I ST AS ' SORT M L ' " 7 1 4 0 GOSUB 2 6 0 7 1 50 CLS 7 1 6 0 P R I NT @ l 0 , " t o u s e tw s o r t " 7 1 7 0 P R I NT @ 6 4 , " A > I N S E RT ASC I I M D I S K TO B E S O R A I L I NG L I ST T ED . " 7 1 8 0 P R I NT @ l 9 2 , " B > S E L ECT S O R T 0 F O PT I ON 1 OR 2 " 7 2 00 P R I NT @ J 2 4 , " l ) N A M E SORT " 7 2 1 0 P R I NT @ J 5 6 , " 2 ) Z I P SORT " 7 2 2 0 GOSUB J n 7 2 J 0 CLS 0 7 2 4 0 GOTO 1 0 1 0 END GA ME This program is available on our Instant CoCo cassette. by Wade J ense Listen to the clues to find the thief before S your opponents. omeone has committed a crime. You and your opponents are private detec tives assigned to track down and arrest a thief. The detective who makes the arrest re ceives a reward. Your challenge-to be the first detective to accumulate enough reward money to win. This thief is computer controlled and com pletely invisible. But you can hear him. Each time the thief makes a move on the board. he triggers a sound on your CoCo. This remark able device fo llows every move the thief makes on the board so you can hear him in the very act of committing the crime, cross ing a squeaking floor, opening a creaky door. or escaping on the elevators. Each sound you hear on your CoCo provides you with a clue to the thief's location: with these. you can track him down. Use your CoCo to c a l l t h e c o p s . d i re c t t h e m to the t h ief, a n d with a little l u c k , the cops will arrest him. See the Instant CoCo ad elsewhere in this issue. � Halt Thief! l Loading To load, type in the Listing. Check every line to be sure it agrees with the Listing. Count the number of items in each DATA statement to ensure the correct number for the required READ loops and DIM statements. After you run the program and display the board, make sure the yellow, orange. and dark blue squares are lined up horizontally. vertically. and diagonally. If they don't line up, the program will not run correctly. Check the main body of DATA statements for errors. The Board The board is made of graphic character blocks POKEd onto the screen with two blocks making up each square space. The players' and thief's symbols displayed on the board cover only half of each space so you can see the color of the space you are on. The green spaces represent walls that nei ther the player nor the thief can move onto or cross. The yellow and black spaces are empty: the players can move onto either of these areas. but the thief can only move on the yellow spaces. The orange spaces repre sent places where the thief might commit a crime and are treated as yellow spaces for movement purposes. The dark blue squares represent doors through which both the thief and the player can move. The light blue areas can cover one or more spaces and rep resent items such as checkout counters. desks. statues. and plants. Neither the thief nor the players can move onto these areas. The wh ite spaces represent windows into which neither the thief nor the player can move. (See Table 1 . ) I n the top right and the bottom left corners of the board is the symbol EL, which repre sents the two elevators on each level. To use an elevator. position your character on the E of EL and press U for up or D for down. The CoCo reprints the screen to the level above System Requirements 32K RAM Extended Color Basic or below you. Your present level ( 1 -4) is printed in the bottom left corner of the screen. Along the bottom is a line of information. If a question mark appears, it is your prompt to press a key. Next. in response to this. a "NO" or an "OK' appears on the subline. OK indicates that the CoCo can carry out the function of that key. The next item to appear is a two-character symbol representing the last sound clue given. and finally. the name of the current player. the amount of money he has. and the number of moves he has left. Your Turn At the beginning of your turn. the CoCo moves the thief and gives corresponding sound clues and a random number of moves from 1 to 1 2 . You use one card per turn by pressing C. The CoCo clears the screen and displays your three cards. Press the number of the card you wish to use. and the CoCo carries out your wish. If you don't want a card . press five and the CoCo reprints the screen. You can use a card later: the CoCo replaces it with another random card. Color Rep. Orange Crime Yellow Empty Black Empty Dark Blue Door Green Wall Light Blue Items While Window EL Elevator Thief N y y N y N N y Player N y y y y N N y Table 1. Board Information When you use a " t ip" card, watch the screen carefully because the CoCo only dis- g plays a T (the thief's location) for a few sec- � ands. After you use a "take another turn" § card. the Coco gives you more moves and a @ chance to use another card. On your turn you i5' can use all, part . or none of your moves. � When you press F to finish. the next player g starts. November 1 985 HOT Coco 37 � •t Player Movement Eight different keys let you move your symbols as follows: N moves north: T. north east: E. east: V. southeast: S. south: Z. south west: W. west: and Q. northwest. Seven other keys. including U and D. help you on your mission. R repeats the last clue. and X alter nately prints the thief's and player's level. (See Tables 2 and 3.) N North T Northeast E v s z w Q u D East Southeast South Southwest West Northwest Up Down Table 2. Player Movements A Arrest R Repeat Clue C Use Card X X Display Thief Level F Finished H Help Table Display Player Level Table 3. Player Functions If the only item displayed on the subline is a question mark. press X until the complete subline is displayed. To make an arrest when you and the thief are on the same space. press A. The game uses a series of sound ef fects beginning with a siren. If you guess cor rectly and are on the same space and level as the thief. you hear shooting: if the police can catch the thief. you hear another siren. The CoCo then congratulates you and starts an other thief on a spree of crimes. If. however. the thief escapes. the CoCo sounds the getaway and five clues. moving the thief five times. You must listen carefully to get all five sound clues. If you mistake the location of the thief. the CoCo gives a low pitched sound and punishes you for a false Program Listing. Halt Thief * HALT T H I E F I I 2 '* 6 C L S : F O R L = 2 9 6 9 6 T0 3 0 2 0 7 : P O K E L , 1 2 8 : N E XT 7 P O K E 6 5 4 7 8 , 0 : P O K E 6 5 4 8 1 , 0 : PO K E 6 5 4 8 2 , 0 : PO K E 6 5 4 8 5 , 0 : PO K E 6 5 4 8 7 , 0 : PO K E 6 5 4 8 9 , 0 : PO K E 6 5 4 9 0 , 0 8 FOR L = l TO l l 0 9 R E AOST 1 0 POK E ( S T + 2 9 6 9 6 ) , 2 5 5 38 HOT Coco November 1 985 Difficulty Level Number of Cards Chances of Thief Escaping Maximum Rolls Reward Money to Win 1 2 3 4 14 12 10 6 20% 25% 33% 50% 12 10 8 6 $800 $700 $600 $500 $2,000 $2.500 $3,000 $3,500 Table 4. Influence of Difficulty Level arrest by taking away $ 1 00 and all your re maining moves. Thief Movement The CoCo only moves the thief in three cir cumstances: at the beginning of each play er's turn and when a player uses a "take another turn ' " card. when a player uses a '"take an extra clue'" card. and when the thief gets away during an arrest. Every time the thief moves. the CoCo sounds a clue and prints the symbol on the subline. For every clue sounded. the thief moves two full spaces horizontally. vertically. or diagonally. When the thief escapes an arrest. five clues sound. so he moves 10 spaces: for every use of an "ex tra clues" card , he moves two spaces per clue. When a thief moves. he never goes directly to his previous space. but may do so in two moves. The thief moves on every other space and is never found on a black space. Four clues can appear on the subline. The first clue to appear in the game is CR. mean ing the thief has just committed a crime and is on an orange space. When he has opened a door. DR appears on the subline and he is on a dark blue space. If the thief has just taken two steps across an open floor. SP ap pears and he is on a yellow space. You know that the thief is on one of the two EL spaces when EL appears on the subline. When the thief uses an elevator the CoCo picks a random number to see if he goes up or down. He will always go from the first to second level or from the fourth to the third. The CoCo prints the thief's level and the cur rent player's level. As long as the thief's level differs from the player's. the CoCo reprints the thief's level before giving the next clue. 1 1 SOUND 5 5 , l : N E X T 1 2 FORR=lT020 1 3 R E A DV , Z 1 4 P OK E ( V+ 2 8 6 7 4 ) , Z 1 5 SO U N D 2 0 0 , 5 : N E X T 1 6 DATA 3 7 , 4 1 , 4 3 , 4 4 , 4 5 , 4 6 , 4 7 , 4 9 , 5 5 , 56 , 57 , 58 , 59 , 2 5 4 , 2 5 3 , 3 1 7 , 3 7 8 , 37 6 , 37 5 , 374 , 37 3 , 3 7 2 , 370; 369 , 368 , 36 7 , 36 6 , 3 6 4 , 3 6 0 , 3 56 , 2 26 , 2 2 7 , 6 9 , 7 3 , 7 5 , 7 9 , 8 1 , 8 9 , 2 5 2 , 2 51 , 3 16 , 3 1 5 , 34 6 , 3 40 , 3 3 6 , 3 3 2 , 3 2 8 , 3 2 4 , 29 2 , 260 , 2 28 , 2 29 , 1 6 5 , 1 3 3 , 10 1 , 10 2 , 1 0 3 , 104 , 10 5 , 1 0 7 , 1 08 , 1 09 , 1 1 0 , l l l , l l 3 Tracking the Thief At any given moment. the thief might be at one of several locations. You must use your knowledge of where and when a thief moves. along with his previous location to determine where he might be. When tracking the thief. watch every space that is exactly two spaces away from the thief's possible location . Remember also that the clues given during the other players' turns are just as important as the clue given during your turn. You can narrow the possi bilities down to two or three if you don' t know the thief's exact location. Playing the Game After display i n g t h e help scree ns and prompting you to choose the level ofdifficulty. the CoCo asks for the name of each player. Submit a name containing three to eight char . acters. The program renumbers the names in a semirandom order. assigns a symbol to each name. and prints the renumbered names and the players' symbols for use on the board. The CoCo randomly assigns each player three cards and displays them for each player. The game starts on a randomly chosen floor. Fi· nally. the CoCo places the thief on a random crime space. sounds the clue. and turns the keyboard over to the first player. To start another game. press the Y key after a player has won the game or press the break key and type GOTO 58. For a longer game. choose a higher difficulty level. • Address correspondence to Wade Jense. 440 E. 300 N.. Pleasant Grove. UT 84062. 1 7 DATA 1 2 1 , 2 5 0 , 2 8 2 , 3 1 4 , 3 1 1 , 3 1 0 , 3 09 , 308 , 304 , 300, 2 9 9 , 2 9 8 , 2 9 7 , 2 9 6 , 2 30, 1 37 , 1 3 9 , 1 43 , 145 , 1 5 3 , 248 , 247 , 2 7 6 , 27 2 , 26 8 , 264 , 2 32 , 169 , l7 1 , l7 5 , l 7 7 , 1 7 8 , 1 7 9 , 1 80 , 1 8 1 , 1 8 5 , 2 46 , 24 5 , 2 4 4 , 2 4 2 , 2 4 1 , 2 40 , 2 3 9 , 2 3 8 , 2 3 6 1 8 D AT A 1 4 0 3 , 9 , 1 4 0 4 , 9 , 1 4 4 2 , 4 0 , 1 4 4 3 , 3 , 1444 , 4 1 , 1446 , 49 , l 447 , 57 , l448 , 56 , 1449 , 52 , 145 1 , 2 , 1452 , 2 5 , 1454 , 2 3 , 1 4 5 5 , l , 1 4 5 6 , 4 , 1 4 5 7 , 5 , l 4 5 9 , 10 , 1460 , 5 , 146 1 , 14 , 1462 , 19 , 1 46 3 , 5 1 9 F O R LV= 3 0 2 0 8 T 0 3 2 2 5 5 20 READ LE · 2 1 P O K E LV , L E 2 2 NEXT 23 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 128 , 128 , 128 , 128 , 1 28 , 128 , l2 8 , 128 , 128 , 128 , 128 , 128 , 128 , 128 , ! 28 , l 28 , 128 , 1 28 , 128 , 1 28 , 1 2 8 , 128 , 1 2 8 , 128 , 1 28 , 1 28 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 , 143 , 14 3 , 14 3 , 1 4 3 , 143 , 14 3 , l 4 3 , l 4 3 , 143 , 14 3 , 143 , !4 3 , 143 , 143 , l 4 3 , l 4 3 , 143 , 14 3 , 143 , 14 3 , 14 3 , 14 3 , 143 2 4 DATA 1 4 3 , 1 2 8 , 1 2 8 , 2 , 1 4 3 , 1 2 8 , l 2 8 , 128 , 128 , 128 , 128 , 239 , 2 39, 23�, 23 9 , 143 , 14 3 , 36 , 36 , 36 , 36 , 36 , 36 , 36 , 1 4 3 , 14 3 , 143 , 14 3 , 143 , 14 3 , 143 , 14 3 , 1 43 , 128 , 128 , l , 14 3 , 128 , 128 , 159 , 159 , 1 28 , 1 2 8 , 2 3 9 , 2 3 9 , 2 39 , 2 3 9 , l 4 3 , l 4 3 , 36 , 36 , 36 , 36 , 36 , 1 4 3 , 14 3 , 14 3 , 2 3 9 , 239 , 5 , 12 , 239 , 239 , 14 3 , l43 2 5 DATA 1 2 8 , 1 2 8 , 1 4 , 1 4 3 , 2 3 9 , 2 3 9 , 1 2 8 , 128 , 128 , 1 28 , 2 3 9 , 239 , 2 39 , 239 , 1 4 3 , 14 3 , 143 , 14 3 , 239 , 239 , l43 , 143 , 14 3 , 1 2 8 , 128 , 1 28 , 128 , 1 28 , 1 2 8 , 128 , 1 4 3 , 14 3 , 128 , 128 , 1 1 , 14 3 , 239, 239 , 159 , 159 , 1 28 , 128, 255, 255 , 128, 1 28 , 175 , 17 5 , 1 28 , 1 28 , 2 5 5 , 2 55 , 128 , 1 28 , 159 , 159, 128 , 128 , 255 2 6 DATA 2 5 5 , 1 2 8 , 1 2 8 , 2 0 7 , 2 0 7 , 1 2 8 , 1 28 , 1 4 3 , 14 3 , 128 , 1 2 8 , 128 , l28 , l 28 , 1 28 , 143 , 1 4 3 , 1 2 8 , 128 , 14 3 , 1 4 3 , 1 2 8 , 128 , 1 28 , 1 28 , 128 , 128 , 12 8 , l 28 , l 2 8 , 128 , 36 , 36 , 36 , 36 , 14 3 , l4 3 , l 2 8 , l 2 8 , 1 4 3 , 1 4 3 , 128 , 1 2 8 , 159 , 159 , l28 , 1 2 8 , 143 , 143 , 14 3 , 143, 143 , 14 3 , 143 , 14 3 , 143,143 2 7 DATA 1 4 3 , 1 4 3 , 1 7 5 , 1 7 5 , 1 4 3 , 1 4 3 , 143 , 14 3 , 14 3 , 143 , 14 3 , 14 3 , l28 , 128, 1 2 , 14 3 , 1 28 , 128 , 1 28 , 1 28 , l28 , l28 , l 4 3 , 1 4 3 , 1 28 , 1 28 , 14 3 , 14 3 , 2 39 , 2 39 , 2 39, 239 , 239 , 239 , 128 , 128, l28, l28 , l 2 8 , 128 , 1 28 , 128 , 14 3 , 1 4 3 , 1 28 , 1 28 , 2 2 , 14 3 ,�28 , 1 2 8 , 1 59 , 1 59 , l 28 , l 28 , 2 5 5 , 255 , 128 , 128 , 17 5 , 175, l28 2 8 DATA 1 2 8 , 2 5 5 , 2 5 5 , 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , l 2 8 , 2 07 , 28 7 , 1 2 8 , 1 2 8 , 1 2 , 1 4 3 , 1 2 8 , 1 2 8 , 1 2 8 , l 28 , 128 , 128 , 143 , 14 3 , 128 , l28 , l 43 , l 4 3 , 2 3 9 , 2 39 , 239 , 239 , 239 , 239 , l28 , l 28 , 128 , 128 , 128 , 128 , 1 28 , l28 , l4 3 , l 4 3 , 128 , 128 , 143 , 14 3 , 128 , 128 , 159 , l 5 9 , 1 28 , 1 2 8 , 1 4 3 , 143 2 9 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 143 , 14 3 , 143 , 14 3 , 143 , 14 3 , l4 3 , l4 3 , !75 , 17 5 , 143 , 14 3 , 14 3 , 143 , 128 , 128 , 143 , 143 , 1 2 8 , 128 , 12 8 , 128 , l28 , 128 , 1 28 , 1 28 , 1 28 , 128 , 1 4 3 , 14 3 , 239 , 2 3 9 , 239 , 239,239,239 , 14 3 , 143 , l28 , 128 , 128 , 1 28 , 1 28 , 128 , 14 3 , 14 3 , 128 , 128 , 4 9 , 1 4 3 , 143 , 1 4 3 , 5 , 12 , l28 3 0 DATA 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 1 7 5 , 175 , 128 , 128 , 2 55 , 2 55 , 1 28 , l28 , 1 7 5 , 1 7 5 , 1 2 8 , 12 8 , 1 5 9 , 1 5 9 , 1 28 , l 28 , 207 , 207 , 1 2 8 , 1 2 8 , 1 43 , 1 4 3 , 1 4 3 , l 4 3 , l 4 3 , 1 4 3 , 1 28 , 1 2 8 , 1 28� 1 28 , 1 28 , 1 28 , l 4 3 , 143 , 128 , 1 28 , 128, 1 28 , 128 , 128, 143 , 1 4 3 , 1 28 , 128 , 128 , 1 28 , 1 28 , l 28 , l4 3 , 143 , 128 , 128 , 14 3 , 14 3 , 143 3 1 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 14 3 , 14 3 , 1 4 3 , 1 4 3 , 143 , 14 3 , l4 3 , 14 3 , 143 , 14 3 , 14 3 , 143, 143 , 14 3 , l4 3 , l43, 143 , 14 3 , 143 , 14 3 , 143 , 128, 128 3 2 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 128 , 1 2 8 , 128 , 128 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 1 28 , 128 , 1 2 8 , 1 28 , 1 28 , l 2 8 , 128 , 128 , 1 28 , 1 28 , 1 2 8 , 1 2 8 , 1 28 , 1 2 8 , 128 , 1 28 , 1 28 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 2 07 , 207 , 143 , 14 3 , 143 , 143 , 143 , 14 3 , l 4 3 , l43, 1 4 3 , 1 4 3 , 207 , 207 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 143 , 143, 1 4 3 , 1 4 3 , 143, 143 3 3 DATA 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 128 , 128 , 1 28 , 12 8 , 128 , 128 , 23 9 , 2 3 9 , 2 3 9 , 2 3 9 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 1 2 8 , 1 2 8 , 1 28 , 128 , 14 3 , 1 4 3 , 128 , 1 28 , 14 3 , 14 3 , 1 4 3 , 143 , 143 , 14 3 , 128 , 128 , l43 , 14 3 , 128 , 128 , 1 5 9 , 1 5 9 , 128 , 1 28 , 2 5 5 , 2 5 5 , 128 , 128 , 175 , 1 7 5 , 128 , 128 , 159 , 159 , 1 2 8 , 1 28 , 1 7 5 , 1 7 5 , 1 28 , 1 28 , 5 3 4 DATA 1 2 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 2 8 , l 28 , l , 1 4 3 , 1 2 8 , 1 2 8 , 1 2 8 , 128 , l 28 , l 2 8 , 1 28 , 1 28 , 1 28 , 1 28 , 14 3 , 143 , 1 28 , 12 8 , 1 28 , 1 28 , 1 2 8 , 1 28 , 1 4 3 , 1 4 3 , 1 2 8 , 120 , 128 , 128 , 23 9 , 239 , 143 , 14 3 , 128, 128 , 1 4 , 143 , 2 39 , 2 3 9 , 159 , l 59 , 1 4 3 , 14 3 , 143 , 14 3 , 1 4 3 , 143 , 1 4 3 , 14 3 , 14 3 , 14 3 , 143 , 14 3 , 143, 143 , 14 3 , 143 3 5 DATA 1 2 8 , 1 2 8 , 2 5 5 , 2 5 5 , 1 2 8 , 1 2 8 , 207 , 207 , 1 2 8 , 1 2 8 , 20 , 1 4 3 , 2 3 9 , 2 3 9 , 1 28 , 1 28 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 1 2 8 , 1 28 , 1 2 8 , 128 , 2 39 , 239 , 2 3 9 , 2 39 , 239 , 2 39 , l 4 3 , 143 , 1 28 , 1 2 8 , 1 28 , 1 28 , l 28 , 1 28 , l 4 3 , 143 , 1 28 , 1 28 , 9 , 1 43 , 1 43 , 14 3 , 175 , 17 5 , 14 3 , 14 3 , 14 3 , 14 3 , l31, 128, 159 , 1 5 9 , 1 28 , 128 , 2 5 5 , 2 55 , 1 2 8 , 128 3 6 DATA 1 7 5 , 1 7 5 , 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 128 , 1 28 , 14 3 , 143 , 128 , 1 28 , 17 , 143 , 1 28 , 1 28 , 1 28 , 128 , 1 28 , 128 , 1 28 , 140, 1 4 3 , 14 3 , 1 3 1 , 1 28 , 1 28 , 1 28 , 1 28 , 128 , 1 28 , 128 , 14 3 , 14 3 , 1 28 , 1 28 , 128 , 128 , 1 2 8 , 1 28 , 14 3 , 14 3 , 1 28 , 1 28 , 2 1 , l4 3 , l2 8 , 128 , 159 , 159 , 128 , 128 , 2 39 , 239 , 1 2 8 , 140, 175 , 17 5 , 1 3 1 , 128 3 7 DATA 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 1 28 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 128 , 207 , 207 , 1 28 , 1 28 , 5 , 1 4 3 , 128 , 128 , l2 8 , l28 , l 2 8 , 1 28 , 128 , 1 2 8 , 128 , 128 , 1 2 8 , 140 , 14 3 , 1 4 3 , 128 , 1 2 8 , 1 2 8 , 128 , 143 , 14 3 , 12 8 , 1 28 , 128 , 128 , 128 , 1 28 , 14 3 , 1 4 3 , 12 8 , 128 , 19 , 143 , 1 28 , 1 28 , 1 5 9 , 1 59 , 128 , 1 2 8 , 159 , 1 5 9 , 128 , 128 , 1 3 1 3 8 DATA 1 3 1 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 143, 143 , 14 3 , 143, 143 , 17 5 , l 7 5 , l4 3 , 143 , 14 3 , 143, 128, 128 , 143, 143 , 128, 128 , 1 28 , 1 28 , 1 28 , 128 , 1 28 , 128 , 1 2 8 , 1 2 8 , 1 4 3 , 14 3 , 2 3 9 , 2 3 9 , 2 3 9 , 2 3 9 , 2 3 9 , 2 39 , 14 3 , 14 3 , 128 , 128 , 1 2 8 , 128 , 1 2 8 , 1 28 , 14� , 14 3 , 128 , 128 , 14 3 , l4 3 , l 4 3 , 143 , 5 , 12 , 128 , 128, 159, 159 3 9 DATA 1 2 8 , 1 2 8 , 1 7 5 , 1 7 5 , 1 2 8 , 1 2 8 , 255 , 25 5 , 128 , 128 , 1 7 5 , 175 , 1 28 , 1 28 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 2 07 , 207 , l 2 8 , 1 28 , 50 , 1 43 , 1 4 3 , 1 4 3 , 14 3 , 1 4 3 , 1 2 8 , 1 2 8 , l 28 , 12 8 , 1 28 , 12 8 , 14 3 , 14 3 , 1 28 , 1 28 , 1 28 , 128 , 1 28 , 128 , 14 3 , 14 3 , 1 28 , 1 28 , l 28 , 128 , 1 28 , 128 , 1 4 3 , 14 3 , l 28 , 1 28 , l 4 3 , 143 , 143 , 143 , 14 3 , 143, 143 4 0 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 143 , 14 3 , 143 , 14 3 , 14 3 , 143 , l43 , 14 3 , 143 , 14 3 , 14 3 , 143 , 14 3 , 143, 143 , 14 3 , 143, 128 , 128 4 1 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 128 , 1 28 , 128 , 1 2 8 , 1 28 , 12 8 , 128 , 1 28 , 120 , 128 , 120 , 12 0 , 120 , 128 , 12 0 , 1 2 0 , 128 , 128 , 128 , 128 , 1 28 , 1 28 , 1 2 8 , 128 , 1 28 , 1 2 8 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 , 143 , 143, 143, 143 , 14 3 , 143 4 2 DATA 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 1 2 8 , 128 , 1 28 , 128 , 1 28 , 1 28 , l28 , 1 28 , 1 28 , 128 , 1 2 8 , 1 2 8 , 128 , 128 , l28 , 128 , 1 2 8 , 128 , 1 2 8 , 1 28 , 128 , 128 , 14 3 , 14 3 , 14 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 10 , 1 4 3 , 1 28 , 1 28 , 159 , 1 5 9 , 128 , 1 28 , 159 , 1 59 , 1 28 , 1 28 , 159 , 1 59 , 128 ,l28 , 1 59 , 159 , l 28 , 1 28 , 1 59 , 1 59 , 1 28 , 1 28 , 5 , 1 2 4 3 DATA1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 5 , 14 3 , 128 , 128 , 128 , 128 , 1 28 , 128 , 128 , 1 28 , 1 28 , 1 2 8 , 128 , 1 28 , 1 2 8 , 1 28 , 128 , 12 8 , 128 , 12 8 , 1 2 8 , 128 , l28 , l2 8 , 128 , 128 , 239 , 239 , 14 3 , 14 3 , 128 , 128 , 2 3 , 143 , 143,143 , 14 3 , 14 3 , 14 3 , l43, l75 , 175 , 143 , 143 , 14 3 , 14 3 , 14 3 , 143, 255 , 255 , 143, 143 , 143 , 143 4 4 DATA 1 2 8 , 1 2 8 , 2 5 5 , 2 5 5 , 1 2 8 , 1 2 8 , 207 , 2 07 , 1 2 8 , 1 2 8 , 5 , 1 4 3 , 1 2 8 , 1 2 8 , 1 2 8 , 1 28 , 1 2 8 , 1 28 , 1 2 8 , 1 28 , l 2 8 , 128 , 1 4 3 , 14 3 , 2 3 9 , 239 , 128 , 12 8 , 2 39 , 2 3 9 , 1 4 3 , 1 4 3 , 1 2 8 , 1 28 , 1 2 8 , 12 8 , 1 28 , 1 28 , 1 4 3 , 14 3 , 128 , 128 , 49 , 1 4 3 , 128 , 1 2 8 , 159 , 159 , 128 , 128 , 1 59 , 159 , 12 8 , 128 , 143 , 14 3 , 143 , 143 , 17 5 , 175 4 5 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 175 , 175 , 14 3 , 143 , 143 , 143 , 128 , 128, 1 8 , 143 , 1 28 , 128 , 128 , 1 28 , 2 3 9 , 2 39 , 2 27 , 227 , 22 7 , 227, 143, 143 , 239,239 , l 28 , 1 28 , 2 39 , 239 , 1 4 3 , 14 3 , 1 28 , 1 28 , l 2 8 , 1 2 8 , 2 j9 , 2 3 9 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 2 5 , 14 3 , 128 , 128 , 25 5 , 25 5 , 23 9 , 2 3 9 , 2 3 9 , 239 , 239 , 239, 143 4 6 DATA 1 4 3 , 2 3 9 , 2 3 9 , 2 5 5 , 2 5 5 , 2 3 9 , 239 , 14 3 , 1 4 3 , 128 , 128 , 25 5 , 2 5 5 , 239 , 2 3 9 , 143 , 14 3 , 1 28 , 1 28 , 14 3 , 14 3 , 128 , 128 , 12 8 , 1 2 8 , 128 , 1 2 8 , 1 28 , l28 , 128, 128 , 143 , 14 3 , 239 , 239, 128 , l28, 239 , 2 3 9 , 143 , 14 3 , 128 , 128 , 128 , l 28 , 2 3 9 , 2 39 , 14 3 , 1 4 3 , 1 28 , 1 28 , 1 43 , 143 , 1 28 , 128 , 159 , 159 , 128, 128, 159 4 7 DATA 1 5 9 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 143 , 175, 175 , 143 , 1 4 3 , 143 , 143, 143 , 17 5 , 17 5 , 143 , 14 3 , 14 3 , 143 , 128 , 14 3 , 1 43 , 12 8 , 128 , 128 , 128, 128 , 128 , 1 2 8 , 128 , 1 28 , 239 , 239 , 239 , 128, 128, 128 , 128 , 143 , 143 , 128 , 128 , 1 28 , 128 , 1 28 , 143 , l 4 3 , 128, 143 , 143, 143 , 143 , 5 , 12 4 8 DATA 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 2 55 , 25 5 , 1 2 8 , 128 , 159 , 1 59 , l2 8 , 143 , 14 3 , 128, 128, 239, 1 28 , l28, 1 28 , 128 , 159 , 1 59 , 1 2 8 , 128 , 159 , 1 5 9 , 1 28 , 128 , 207 , 2 07 , 1 2 8 , 1 2 8 , 5 1 , 1 4 3 , l 4 3 , l 4 3 , l 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , l 28 , 1 28 , l 28 , 1 2 8 , 12 8 , 1 2 8 , 1 28 , 1 28 , 1 2 8 , 1 28 , l 4 3 , 14 3 , 128 , 1 28 , 1 2 8 , 1 2 8 , l 28 , 1 28 , l 4 3 , 1 4 3 , 128 , 1 28 , 14 3 , 1 4 3 , l 4 3 4 9 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 143, 143 ; 14 3 , 143 , 143, 143 , 14 3 , 14 3 , 143 , 143, 143 , 14 3 , 14 3 , 143, 143 ,143, 1 4 3 , 143 , 14 3 , 143 , 14 3 , 128 , 128 5 0 DATA 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 1 2 8 , 128 , 128 , 1 2 8 , 128 , 128 , 12 8 , 1 28 , 1 2 8 , 12 8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 2 8 , l 2 8 , l28 , 128 , 1 2 8 , 128 , 1 28 , 1 28 , 12 8 , l28 , 1 2 8 , 1 2 8 , 1 28 , 1 4 3 , 1 4 3 , 14 3 , 1 4 3 , 20!, 207 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 207 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 207 , 2 07 , 143, 143 , 143, 143, 143 , 143, 143 5 1 DATA 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 1 2 8 , 128 , 128 , 1 2 8 , 128 , 128 , 14 3 , l4 3 , 128 , 128 , 128 , 12 8 , 128 , 1 28 , 14 3 , 1 4 3 , 128 , 128 , 128 , 128, 128 , 128 , 14 3 , 1 4 3 , 143, 143 , 1 43 , 143 , 1 28 , 1 28 , 6 , 143 , 128 , 1 2 8 , 159 , 1 59 , 128 , 1 2 8 , 143 , l4 3 , 1 28 , 1 2 8 , 159 , 1 59 , 128 , 128 , 1 75 , l75 , 128 , 1 2 8 , 159 , 159 , 1 28 , 1 28 , 5 , 12 , 1 43 5 2 DATA1 4 3 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 2 1 , l 4 3 , 128 , 1 28 , 1 28 , 128 , 128 , 1 28 , 14 3 , l 4 3 , 1 28 , 128 , 128 , 128 , 128 , 1 28 , 143 , 1 4 3 , 1 28 , 12 8 , 128 , 128 , 1 28 , 1 28 , 128 , 1 28 , 1 28 , 1 28 , 1 4 3 , 14 3 , 1 2 8 , 1 28 , 1 8 , 14 3 , 128 , 1 28 , 1 59 , 1 5 9 , 1 28 , 1 28 , 17 5 , 17 5 , 128 , 128 , 2 55 , 25 5 , 128 , l28 , 1 28 , 14 0 , 143 , 1 3 1 , 1 59 , 159, 128 , 128 5 3 DAT A 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 2 0 7 , 2 0 7 , l 2 8 , 128 , 19 , 14 3 , 128 , 12 8 , 128 , 12 8 , 1 2 8 , 128 , 14 3 , 1 4 3 , 128 , 1 28 , 128 , 128 , 2 3 9 , 2 3 9 , 239 , 2 3 9 , 143 , 1 4 3 , 1 28 , 128 , 1 2 November 1 985 HOT Coco 39 Y o u c a n Brush, Spray or Fill \\' i l h a m· Col This is one of those rare Band programs that will captivate or, Shading o r Pattern. Use Rubber everyone in your family. . . . c l e . e l i pse, etc . I to create per iect i l l u st r i d Lines a n d Shapes ! s q u a re . rectangle, c i r t i o n s w i t h s peed a n d ease. T h e re ' s a Pen- N o one can see CoCo Max cil, an Eraser a n d even a ,elec t i on 0 1 and not want to try it! Caligraphy Brushes. A n d , a' 1·ou L a n CoCo 1\ \ax c a n do a lot \\' i l h t e x t . A l l oi t h e newest spec i a l eifec t s a re -, e e . t h e re: Trace Edges, Flip, lni1ert, Brush Mir rors, etc. A n d a l l of the 1·er1· latest ' u pe r c a pa b i l i t i e > l i ke: Undo, 11 h i L h a u t o m a 1 i c a l l 1 rel'er'e' \'O u r 111 i , 1 a k e ' . a n d UNMA TCHED CA PA BIL I TY. . . Fat Bits \\' h i c h zoo m' 1 ou 11 a1 i n o n am Because w e took t he maxi m u m approac h : prec i s i o n . part 01 \'o u r -, u bjecl t u a l l o11 do1-1or-cl o1 h i g h ly opt i m ized mach i ne c o d e c o m b i n ed w i t h h a rdwa re, CoCo ,\ \ax t ru il' s t a n d s above t h e rest as the u l t i mate •ew u n rivaled periorma nce lets 1·ou c r ea t e ( IO .\ l� S O L• e than a n y s i m i l a r system - m u c h more Print D r a f t Print F inal c reative tool ior t h e Color Compu t e r . I t \ \\'e are a l l w i t n essi ng an exc i t i n g revo l u t io n i n m i c rocom p u ters: a rad i c a l l y new k i n d oi computer and soitware t h a t o p e n s a w h o l e n e w w o r l d oi c reative power to com p u ter u sers. w i t h m o r e b r i l l i a nce a n d m o re � peed ooen Rt•1Jt·1 r t h a n you ever i m agi ned po., s i b l e . A n d , v o u c a n do i t i n b l ack & w h i te or color. I t was i nevitable t h a t this exc i t i n g ap p roach would be brought to the CoCo. W i t h t h i s in m i n d , Colorware c hose to ...... ... ...... .. . ··. .. .. .. •• •• •••• •• .. ··.. .. .. .... -· ... .... go a l l out and m a x i m ize t h i s new con cept ior t h e color com puter. That meant d e s i g n i n g not j u st software b u t h a rdware too. It meant t ho u s a n d s of hours oi p u re mach i ne l a n g u age progra m m i n g. R a rely has t h i s much effort been appl ied to one prod u c t ior t he Color C o m p u ter. File E d i t Goodies F o n t A abili t u to c r e a t e ·:.'. m coco style M A H gi U e s ing in •any styl .. -··· -·· ...... .. .. .. . .. . .. .. .. .. .. .. . .. .. .. .. .. .. .. -- - · Style Plain " Bo l d "" n alic 1 Shado• A l l t h e so p h i s t icated power oi the b i gger systems i s t here: Icons, Pull-Down Menus, i u l l Graphic Editing, Font Styles, a n d a l l k i n d s o f h a n d y tools a n d shortcuts. THE BIG PICTURE The large i m age box in the m i d d l e 0 1 t h e g (oCo 1\ \ax '>Ueen i s a c t u a l ll' o n i l' a w i n dow on an el'en la rge r i ma e . U s e t h e P o i n t - a n d C l i c k "Ha nel" l o e l lo r l l e ., -,11' move yo u r w i n dow over a n y porl io � 0 1 t h e l a rger i m age. You h a v e a wo r k i n g area of up to 3- \ ! t i mes t h e area of t h e w i ndow i t se l 1 . FL EXIBL E PRIN TING . . . CoCo Max g i ves you many way'> t o pri n t . P l u g yo u r joys t i c k , mouse o r touch pad F i l l a whole page w i t h you r i m age o r i nt o CoCo Max's H i-Res I n p u t U n i t . Then condense two i u l l CoCo sc ree n s t o less u s e a delightiu l l y s i m ple Point-and-Click met hod to get a n y of CoCo Max's power t u l g ra p h ic tool s. It has t h e m a l l : than Yi page for a i i n ely detailed copy. "Du m p" you r CoCo Max screen iull size or s h r i n k i t to YH page size. · FREEDOM TO CREA TE. . . You may t h e n u se CoCo Max's graphic Anyone w h o wants to c reate a n yt h i n g a t o p t i o n irom Colorware i r o m magic on i t . The DS-69 i s ava i l a b l e a s a n a l l on t h e i r C o C o sc reen or p r i n t e r w i l l S149 . 9j c o m p l ete with its own soitware on d i s k certa i n l y be v e r y glad t o meet Coco o r t a pe. U s i n g t h e DS-69 w i t h a d i s k re Max. CoCo Max's f r i e n d l y yet q u i res an RS m u l t i-pak adaptor. s o p h i st icated graphic and text c a pa b i l i ties let you a l most i n st a n t l y pro d u c e i l l u st ra t i o n s , d i a g r a m s , c h a rt s , t i o n by u si ng soitware schemes such as s l i d i ng w i ndows. A l t h o u g h c l ever, t hese schemes yield s l u g g i s h a n d awkward res u lt s . Only CoCo Max does i t the right way. The CoCo Max H i -Res I n put U n i t p l u g s i nto you r R O M slot a n d adds a n e n t i rely new joys t i c k i n p u t to you r com puter - a prec i s i o n one with a 49, 1j2 poi n t reso l u t ion to match t h e CoCo g r a p h s . a n d c o m p u t e r art - ior � e r i o u > u 1, e o r j u st i o r c reatil'e i u n . A N A BSOL U TE G UA RA N TEE CoCo ,\ \ J x i-, d h a rcl11 a re -,01t\1 a rl:' '>l''>tem screen exact l \'. Plug you r same 1oyst i c k , m o u se or touc h pad i n to t h i s new i n put a n d vou have a whole new k i n d oi c o n t ro l . The d i i ierence i s remarkable. t h a t no ,oitwa re-on l 1· sl'stem can m a t ( h . Get CoCo ,\ \ax a n d 'l:'e \ 'O u r COCO MAX REQUIREM EN TS The CoCo Max System i n c l udes t he H i R e s I n pu t U n i t , soitware o n d i s k o r c a s sette ( p lease speci iy) a n d u s e r m a n u a l . I t w i l l work o n a n y 64K Extended or non- exten ded Color Com p u t e r . You'll need a Radio Shack or equ iva l e n t joyst i c k . m o u se or t o u c h pad . D i s k syst e m s re q u i re a M u l t i -Slot l n t eriace or y . Branc h i ng Cable. CoCo pertorm a ' i t ne1 e r cou l d lw 1ore. 11 1·ou don't ag ree that CoCo .\ \a \ i ' t h e THE COMPLETE COCO MAX S YSTEM, u l t i mate crea t i 1·e t o o l tor t he Color C o m w i t h soitware o n DISK . p u t e r . -, i m p l 1 ret u r n i t 11 i t h i n 20 cla' ' 1or ,1 . .. . . . . . . . $69. 95 ll' i t h soitware on CASSETTE (Ava i l a b l e 1 L1 l l . rnu rteou -, ref u n d 1 ro m Co lo m a r e . ,\ \ar 'BSl . . . . . . . .. .. .. .. .. . . . . . . . . $69.95 THE HA R D WA RE. . . Y-BRA NCH/NC CA BLE- I i vou have a d i s k T h i -, i -, t h e ke1· t o CoCo ,\ \ a x \ u n m a t c h svstem b u t do n o t have a M u l t i-Slot l n l'cl peno r m a n u :•. D i el 1·o u k no1I' the nor mal j01 > t i c k i n p u t b u i l t i n t o the Color Com p u t e r o n l l' a l l ows access to x 6.Jl .J,096 !6.J poi n t s on t h e CoCo scree n ? Yet, t h e C o l o r C o m p u t e r's h i g h reso l u t ion sc reen teriace, use t h i s econ o m i c a l 40- p i n , A DIGI TIZER OPTION . . . \\'e stud ied a l l t h e video d i g i t izers ava i l a b l e and pic ked t h e best oi them to l i n k with CoCo Max. The D S-69 i ro m 1\ \ i c ro W o r k s w a s o u r choice. T h i s op t i o n a l device lets you c a p t u r e the i m age irom any vi deo sou rc e (video reco rder, camera , etc.) on you r Color Computer. has 49, 1 j2 (2j6 x 1 921 p i x e l s . T h i s means t hat a joyst i c k , m o u se o r even a t o u c h pad c a n , a t b e s t , o n l y a c c e s s about one tenth oi t h e pixels o n t h e CoCo sc ree n . Most g ra p h i c prog r a m s i g n o re t h i s hard ware l i m i t a t i o n oi t h e Color C o m p u ter m a l e , 2 iemale cable to con nect t h e 1 C o C o 1\\ax H i -Res i n put u n i t a n d you r d i s k c o n t r o l l e r to yo u r CoCo . $2i.95 (Sorry, not compatible with ) DOS) (coLORWARE Colorware Inc. 78·03G Jamaica Ave. Woodha ven, NY 1 1421 (718) 647-2864 VISA [•B•J ORDERING INFORMA TION ADD SJ.00 PER ORDER FOR SHIPPING AND HANDLING. C.0.D. 'S ADD SJ.00 EXTRA. a n d give you o n l y low-res control. SHIPPING AND HANDLING FOR CANADA IS $5.00 Others attempt to overcome t h e l i m i ta- N. Y. RESIDENTS MUST ADD SALES TAX. WE ACCEPT VISA, MAHER CARD. M.0.'S, CHECKS. Hair Thief (continued) 8 , 1 28 , 128 , 128 , 128 , 128 , 14 3 , 14 3 , 1 2 8 , 12 8 , 1 4 3 , 143 , 14 3 , 1 43 , 17 5 , 1 7 5 , 14 3 , 14 3 , 1 4 3 , 143 , 1 4 3 , 143 , 14 3 , 1 4 3 , 14 3 , 143, 143, 143 , 143, 143 5 4 DATA 1 7 5 , 1 7 5 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , l 2 8 , 128 , 14 3 , 1 4 3 , 128 , 128 , 14 3 , 1 4 3 , 1 28 , 1 28 , 1 2 8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 28 , 128 , 128 , 239 , 239 , 239 , 239 , 239 , 239 , 128 , 128 , 128 , 128 , 239 , 239 , 14 3 , 14 3 , 1 2 8 , 1 28 , 1 4 3 , 1 4 3 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 14 3 , 14 3 , 17 5 , 17 5 , 14 3 , 1 4 3 , 143 , 14 3 , 128 , 128 , 25 5 , 2 55 5 5 DATA 1 2 8 , 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 2 5 5 , 2 5 5 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 128 , 1 28 , 1 4 3 , 14 3 , 128 , 128 , 1 2 , 1 43 , 1 28 , 1 28 , 1 2 8 , 1 28 , 2 3 9 , 239 , 143 , 143 , 12 8 , 128 , 1 2 8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 12 8 , 1 2 8 , 1 28 , 1 2 8 , 12 8 , 128 , 128 , 128 , 1 28 , 12 8 , 1 28 , 14 3 , 1 4 3 , 12 8 , 1 2 8 , 2 2 , 1 4 3 , 1 2 8 , 1 28 , 2 5 5 , 2 55 , 239, 239 , 14 3 , 143 5 6 DATA 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , l 59 , 1 59 , 1 4 3 , 1 43 , 1 43 , 1 4 3 , 1 2 8 , 1 28 , 1 59 , 1 59 , 1 28 , 128 , 14 3 , 1 43 , 128 , 1 28 , 1 2 , 1 4 3 , 1 28 , 1 28 , 1 28 , 1 2 8 , 128 , 128 , 1 2 8 , 128 , 1 28 , 1 2 8 , 143 , 14 3 , 12 8 , 128 , 1 2 8 , 1 2 8 , 1 2 8 , 12 8 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 1 2 8 , 1 28 , 1 2 8 , 1 2 8 , 1 4 3 1 4 3 1 28 , 1 2 8 , 1 4 ! 3 , 14 3 , 143 , 14 3 , 5 , l L , 12� 5 7 DATA 1 2 8 , 1 5 9 , 1 5 9 , 1 2 8 , 1 2 8 , 1 7 5 , l 7 5 , 1 28 , 1 28 , 1 59 , 1 5 9 , 128 , 1 28 , 17 5 , 1 7 5 , 1 28 , 1 28 , 1 59 , 1 5 9 , 1 28 , 1 2 8 , 207 , 207 , 1 2 8 , 1 2 8 , 5 2 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 28 , 1 28 , 1 43 , 1 4 3 , 128 , 128 , 128 , 128 , 12 8 , 1 28 , 14 3 , 1 4 3 , 1 2 8 , 1 28 , 1 28 , 1 28 , 1 2 8 , 1 2 8 , 1 4 3 , 1 4 3 , 1 2 8 , 11 8 , 1 4 3 , 1 4 3 5 8 DATA1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , 1 4 3 , l 43 , 14 3 , 1 43 , 143 , 143 , 14 3 , 1 4 3 , 1 4 3 , 14 3 , 143 , 14 3 , 14 3 , 143 , 14 3 , 1 4 3 , 14 3 , 14 3 , 14 3 , 14 3 , 14 3 , 14 3 , 14 3 , 128 , 128 6� ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * H A LT T H I E F I I 61 ' * * 62 ' * C A S S ET T E V E R S I O N 63 ' * ( C ) 1 9 8 4 BY WADE J E N S E * 64 ' *************************** 6 5 R = R N D ( -T I M E R ) : PO K E 6 5 4 7 0 , 0 : POK E 6 5 4 8 1 , 0 : PO K E 6 5 4 B 2 , 0 6 6 C L S : PR I NT " W E L COME TO H A L T T H I E F I I " : GO S U B 2 8 l : GOS U B 2 7 3 6 7 O I M D E ( 8 ) , DC ( 5 ) , MV $ ( 2 ) , M0 ( 4 ) 6 8 FO R L = l T0 5 : R E A D DC ( L ) : N E X T 6 9 F O R L = l T OS : R EADD E ( L ) : N E X T 7 0 C L S : P R I N T @ 2 3 0 , " HOW M A N Y P L A Y E RS ( 2 - 6 ) " ; : I N P UTP 7 1 I FP>6THEN7 3 7 2 I F P < 2T H E N 7 4 E L S E 7 5 7 3 P R I NT @ 3 2 2 , " T H E R E I S A L I M I T 0 F 6 PLAY E R S " : GOT 0 7 0 7 4 PR I NT e 3 2 2 , " T H I S GAME R EQU I R E S 2 P L A Y E R S " : GOT0 7 0 7 5 D I M N $ ( P ) , S ( P ) , P $ ( P ) , AB ( P ) 7 6 D I M MN ( P ) , C X $ ( 1 5 ) , C C $ ( P , 3 ) , N N ( p,8 ) 7 7 T F = P + l : D I M Z ( T F ) , MK ( l 0 ) , P0 ( 1 0 ) 7 8 D I MXY ( P ) 7 9 P O R L = l TOP : C L S 8 0 P R I N T @ 9 6 , " L I M I T O F 3 - 8 C H A R AC T E R S P E R NA M E " 8 1 P R I NT @ l 6 4 , " NA M E # " ; L ; : I N P U T N $ ( L) 8 2 AB=LEN ( N $ ( L ) ) : I FA B > 8 O R AB< 3 THEN8 1 8 3 NEXT 8 4 R A = R N D ( P ) : B = l : WW= l : PT = l 2 8 8 5 F O R L = l TOP : N = B + R A 86 IF N>P THEN N=l+P-B 8 7 N=l +P-B 88 P $ ( N ) =N$ ( B ) : N$ ( B ) = " " : B= B + l 42 HOT Coco November 1 985 8 9 NEXT 9 .0 C L S : FOR L = l T O P : R EA D D N $ : N $ ( L ) = D N $ +P$ ( L ) +DN$ 9 1 P R I N T @ 3 5 , " i " ; L ; " P LAY E R I S " ; N $ ( L ) : R EAD S ( L ) 9 2 P R I NT @ 4 8 5 , " P R E S S < C > TO CONT . . ; 9 3 I $ = I NK E Y $ : I P I $ = " C " TH E N 9 4 E L S E 9 3 9 4 N EXT : CLS : P R I NT @ 3 6 , " EACH PLAYE R B EG I N S W I T H " 9 5 P R I NT @ 7 1 , " $ 3 0 0 A N D 3 C A R D S " : G OSU B 2 4 7 9 6 POR L = l T0 5 0 0 : N E X T 9 7 C X $ ( l ) = " GO 3 E X T R A S P A C E S " : C X $ ( 2 ) = " GO 4 E X T R A S P A C E S " 9 8 CX $ ( 3 ) = " 3 EXTRA CLUE S " : CX $ ( 4 ) = " 4 EXTRA CLU ES " 9 9 C X $ ( 5 ) = " GO 5 E X T R A S P A C E S " : C X $ ( 6 ) = " 5 EXTRA CLU ES " 1 0 0 C X $ ( 7 ) = " CO L L E C T $ 2 00 F ROM B A N K " : C X $ ( 8 ) = " CO L L E C T $ 1 00 F ROM B A NK" 1 0 1 C X $ ( 9 ) = " GO 6 E X T R A S P A C E S " : C X $ ( 1 0 ) = " 6 EXTRA CLU E S " 1 0 2 C X $ ( l l ) = " B UY A T I P - $ 1 00 " : C X $ ( 1 2 ) = " B UY A T I P - $ 5 0 " 1 0 3 C X $ ( 1 3 ) = " F R E E T I P " : CX $ ( 1 4 ) = " T A K E A NOT H E R T U R N " 1 0 4 F O R L L = l TOP : C LS : P R I NT P $ ( L L ) : M N ( LL ) = 3 00 1 0 5 F OR L = l T0 3 : R P = R N D ( C Z ) : C C $ ( L L , L ) =CX$ ( RF ) 1 .0 6 P R I N T " ( " L " ) " CX $ ( R P ) : N E X T : P R I N T @ 4 8 2 , " P R E S S < C > T O CONT . " . 1 0 7 I S = I N K E Y $ : I P I $ = " C " T H EN 1 0 8 E L S E l07 1 0 8 N E XT : GOS U B 1 0 9 : GOT01 1 6 1 0 9 R S = R N D ( 4 ) : Z ( T P ) = RS : GO S U B 1 9 3 1 1 0 R G = R N D ( 5 1 1 ) : P Z = RG + ( 2 9 6 9 6 + ( D L *512 ) ) 1 1 1 P A = P E E K ( P Z ) : TT = P Z 1 1 2 IF PA= 2 5 5 THEN TP=PZ E LS E 1 1 0 1 1 3 FORL = l T 0 1 0 : P L A Y " V 3 1 T l 3 5 L 2 0 4 A BG0 5 G B A " : N E X T : POK E ( 3 0 1 8 3 + ( D L * 5 1 2 ) ) , 6 7 : PO K E ( 3 0 1 8 4 + ( D L * 5 1 2 ) ) , 7 6 : C L = 6 7 : CK = 8 2 1 1 4 FOR L = l TOP : Z ( L ) = R S : X Y ( L ) = ( 2 9 7 6 4 + ( DL * 5 1 2 ) ) : N EXTL 1 1 5 C S = 0 : R ET U R N 1 1 6 GOS U B 2 0 2 : GO S U B 2 .0 6 : GOS U B 1 9 4 1 1 7 I I $ = I N K E Y $ : A =.0 : GO S U B 2 4 4 1 1 8 I F I I $ = " N " TH ENA= l ELSE I F I I $ = " T " rHENA=2 1 1 9 I F I I $ = " E " TH ENA= 3 E L S E I F I I $ = " V " TH ENA=4 1 2 0 I F I I $ = " S " TH ENA=5 ELSE I F I I $ = " Z " T H ENA=6 1 2 1 I F I I $ = " W " TH ENA=7 E L S E I F I I $ = " Q " TH ENA=8 1 2 2 I F A > 0 T H EN 1 3 2 1 2 3 I F I I $ = " U " TH EN 1 3 8 ELSE I F I I $ = " A " T H EN 1 4 7 1 2 4 I F I I $ = " D " TH EN 1 3 8 ELSE I F I I $ = " R " GOSU B 2 2 2 125 I F I I $= " C "THEN 1 6 7 ELSE I F I I $ = " F " TH EN 1 6 5 1 2 6 I F I I $ = " X " T H E NGOT0 1 2 8 E L S E I F I I $ = " H " TH EN 2 9 5 1 2 7 GOTO l l 7 1 2 8 GOSU B 1 9 3 : PO K E X Y ( WW ) , PT 1 2 9 T L $ = I N K E Y $ : GOSU B 2 4 4 1 3 0 I F T L $ = " X " T H E NGOS U B 2 8 0 E L S E 1 2 9 : GOT0 1 3 1 1 3 1 GOSUB 1 9 5 : GOSU B 2 0 3 : GOT0 1 1 7 1 3 2 I F MV=0T H E N 2 3 1 E L S E SOUN D 3 1 , 2 1 3 3 P H = X Y ( WW ) + D E ( A ) : I F P H < ( 2 9 6 9 6 + ( D L * 5 1 2 ) ) O R P H > ( 3 0 2 .0 7 + ( D L * 5 1 2 ) ) T H EN 1 3 5 1 3 4 P P = P E E K ( P H ) : FORLC= l T 0 5 : I F P P = D C ( LC ) T H E N 1 3 6 E L S E N E X T 1 3 5 GOSU B 2 4 5 : GOT0 1 1 7 1 3 6 GOSU B 2 4 6 : MV=MV - l : PO K E XY ( WW ) , P T : P T = P P : X Y ( WW ) = P H 1 3 7 GOSU B 2 0 3 : GOT0 1 1 7 1 3 8 I F MV=0T H EN 2 3 1 1 3 9 I F PT=5 THEN 1 4 1 1 4 0 GOSU B 2 4 5 : GOT0 1 1 7 1 4 1 I F I I $ = " U " AN D Z ( WW ) = 4 TH E N 1 4 0 1 4 2 I F I I $ = " D " AN D Z ( WW ) = l T H E N 1 4 0 1 4 3 P O K E X Y ( WW ) , P T 1 4 4 I F I I $ = " U " T H E N Z ( WW ) = Z ( WW ) + l : X Y ( WW ) = X Y ( WW ) + 5 1 2 1 4 5 I F I I $ = " D " T H E N Z ( WW ) = Z ( WW ) l : X Y ( WW ) = X Y ( WW ) - 5 1 2 1 4 6 GOSU B 2 4 6 : MV=MV - l : GO S U B 1 9 4 : GO S U B 2 .0 3 : GOTO l l 7 1 4 7 P L A Y " 0 3 L 2 T l .0V 3 1 AB A B A B A B AB A B " 1 4 8 I F X Y ( WW ) = T P OR ( X Y ( WW ) + l ) = T P T H EN 1 5 1 1 4 9 GOSUB 2 4 5 : M N ( WW ) = M N ( WW ) - 1 0 .0 : M V=0 1 5 0 P LAY " O l V 3 1 T l C " : GOT0 1 1 7 1 5 1 P O K E X Y ( WW ) , PT : I F Z ( WW ) < > Z ( T F ) T H EN 1 4 9 E L S E F O R L = l T0 3 : P L A Y " 0 2 T 6 L 3 V 3 1GP2GP2GA " : NEXTL 1 5 2 R Q = R N D ( A Z ) : I F R Q= l T H E N 1 6 1 1 5 3 PLAY " 0 2 V 2 5 T 2 AGAGAGAGAG " : PO K E 6 5 4 7 8 , 0 : PO K E 6 5 4 8 1 , 0 : PO K E 6 5 4 8 2 , 0 1 5 4 C L S : P R I N T @ l 3 6 , " CO N G R A T U LAT I O NS" 1 5 5 P R I NT @ 2 .0 3 , P $ ( WW ) : P R I NT @ 2 9 4 , " YOU C A U G H T T H E T H I E F " 1 5 6 M N ( WW ) = M N ( WW ) + R Z : I F M N ( WW ) > = M Z T H EN 1 5 9 1 5 7 FO R L = l T0 6 0 0 : N E XT L : CS = .0 1 5 8 GOSUB 1 0 9 : GOSU B 2 .0 2 : GO S U B 2 .0 6 : G OTO l l 7 1 5 9 C L S : P R I NT @ l 3 6 , " CO N G R A T U L A T I O N S " : P R I NT @ 2 0 3 , P $ ( WW ) 1 6 0 P R I NT @ 2 9 4 , " YOU WON T H E G A M E " : I N P U T " ANOT H E R G A M E [ Y / N ] " ; I N $ : I F I N $ = " Y " TH E N RUN 6 5 - E L S E END 1 6 1 F O R L = l T0 1 0 : P L A Y " V 3 .0 T 4 5 L l G 0 4 A C EG " : N E X T 1 6 2 GOSU B 1 9 2 : F O R L S = l T0 5 : GO S U B 2 0 6 : NEXT 1 6 3 GOSU B 1 9 4 : GO S U B 2 0 3 : GOT0 1 1 7 1 6 4 GOSU B 2 2 2 : GOT01 1 7 1 6 5 F O R L = ( 3 0 1 8 7 + ( D L * 5 1 2 ) ) T0 ( 3 0 2 .0 3 + ( D L * 5 1 2 ) ) : POK E L , 1 4 3 : N E X T L : CS = .0 : PO K E X Y ( WW ) , PT : WW=WW+ l : I FWW > P T H E N WW= l 1 6 6 GOSU B 2 0 6 : GO S U B 2 8 .0 : GO S U B 1 9 4 : G O S UB 2 .0 2 : GOTO l l 7 1 6 7 I F C S = l T H E N 1 3 5 E L S E PO K E 6 5 4 7 8 , .0 : PO K E 6 5 4 8 1 , 0 : PO K E 6 5 4 8 2 , 0 ( " L" ) 1 6 8 C L S : F O R L = l T0 3 : P R I N T " " CC $ ( WW , L ) : N E XT L : P O K E X Y ( WW ) , PT 1 6 9 C S = 0 : P R I NT " TO R E T U R N W I T H OUT U S I NG C A R D < 5 > " 1 7 0 I N P U T " CARD t ( l - 3 ) " ; IY : I F IY < l O R I Y > 3 T H E N GOSUB 1 9 5 : GO S U B 2 .0 3 : GO T01 1 7 1 7 1 F O R L Z = l T0 1 4 : I F C C $ ( WW , I Y ) = C X $ ( L Z ) T H E N ON LZ GOTO 1 7 7 , 1 7 6 , 1 8 2 , 1 8 1 , 17 5 , 1 80 , 1 8 4 , 1 8 5 , 17 4 , 1 7 9 , 1 8 6 , 187 , 188 , 191 1 7 2 N E X T : GOT0 1 7 .0 1 7 3 R F = R N D ( C Z ) : CC $ ( WW , I Y ) = C X $ ( R F ) : GOTO l l 7 1 7 4 E S = 6 : GOT0 1 7 8 1 7 5 E S = 5 : GOTO 1 7 8 1 7 6 E S = 4 : GOT0 1 7 8 177 ES=3 1 7 8 MV= MV+ E S : GO S U B 1 9 5 : GO S U B 2 8 3 : C S = l : GOT0 1 7 3 1 7 9 E C = 6 : GOT0 1 8 3 1 8 8 E C = 5 : GOT0 1 8 3 1 8 1 E C = 4 : GOT0 1 8 3 1 8 2 EC= 3 1 8 3 G O S U B 1 9 3 : F O R L T = l TO E C : GO S U B 2 8 6 : N E X T : GO S U B 1 9 4 : GO S U B 2 8 3 : C S = l : GO T0 1 7 3 1 8 4 C S = l : M N ( WW ) = M N ( WW ) + 2 8 8 : GO S U B 1 9 5 : GO S U B 2 0 3 : I F M N ( WW ) > M Z T H E N GO T01 5 9 ELS E 1 7 3 1 8 5 CS = l : MN ( WW ) = M N ( WW ) + l 0 8 : GO S U B 1 9 5 : GOS U B 2 8 3 : I F MN ( WW ) > M Z T H ENGO T01 5 9 E L S E 1 7 3 1 8 6 MN ( WW ) = M N ( WW ) - 5 8 1 8 7 MN ( WW ) = MN ( WW ) - 5 0 1 8 8 GOSU B 1 9 3 : PQ = P E E K ( T P ) 1 8 9 P O K E T P , 2 8 : F OR Z L= l T 0 4 0 8 : N E X T Z L : POKETP , PQ 1 9 0 C S = l : GO S U B 1 9 4 : GO S U B 2 8 3 : GOT01 73 1 9 1 G O S U B 1 9 3 : GO S U B 2 8 6 : GO S U B 1 9 4 : G O S U B 2 8 2 : GOT0 1 7 3 1 9 2 I F Z ( T F ) = DL T H E N RETURN 1 9 3 D L = Z ( T F ) : GOT0 1 9 6 1 9 4 I F Z ( WW ) = D L T H E N R ET U R N 1 9 5 D L = Z ( WW ) 196 I 1 9 7 ON DL GOTO 1 9 8 , 1 9 9 , 2 8 8 , 2 8 1 1 9 8 P O K E 6 5 4 7 9 , 8 : PO K E 6 5 4 8 1 , 8 : ?0 K E 6 5 4 8 2 , 8 : PO K E 6 5 4 8 5 , 0 : PO K E 6 5 4 8 7 , 8 : P O K E 6 5 4 8 9 , 8 : R E T U RN 1 9 9 P O K E 6 5 4 7 8 , 8 : PO K E 6 5 4 8 8 , 8 : P O K E 6 5 4 8 3 , 0 : PO K E 6 5 4 8 5 , 8 : P O K E 6 5 4 8 7 , 8 : POK E6 5 4 8 9 , 0 : RETURN 2 0 8 P O K E 6 5 4 7 9 , 8 : PO K E 6 5 4 8 8 , 8 : P O K E 6 5 4 8 3 , 0 : PO K E 6 5 4 8 5 , 0 : P OK E 6 5 4 8 7 , 8 : POKE 6 5 4 8 9 , 8 : RETURN 2 0 1 P O K E 6 5 4 7 8 , 0 : PO K E 6 5 4 8 1 , 8 : PO K E 6 5 4 8 3 , 0 : P O K E 6 5 4 8 5 , 8 : PO K E 6 5 4 8 7 , 8 : POKE6 5 4 8 9 , 0 : RETURN 2 0 2 MV= R N D ( D Z ) 2 0 3 F O R L = ( 3 0 1 8 7 + ( D L * 5 1 2 ) ) T0 ( 3 0 2 8 3 + ( D L * 5 1 2 ) ) : PO K E L , 1 4 3 : N E X T L 2 8 4 GOSU B 2 5 4 : GOSU B 2 6 0 : PO K E ( 3 8 1 9 6 + ( D L * 5 1 2 ) ) , 1 80 : P O K E ( 3 8 1 8 3 + ( D L * 5 1 2 ) ) , CL : POKE ( 3 0 1 8 4 + ( DL * 5 1 2 ) ) , C K 2 8 5 P T = P E E K ( X Y ( WW ) ) : PO K E X Y ( WW ) , S ( WW ) : R E T U RN 2 0 6 GOSU B 1 9 2 : M K ( l ) =T P - 6 4 : M K ( 2 ) = T P - 6 8 : M K ( 3 ) =T P + 4 2 8 7 M K ( 4 ) =T P + 6 8 : M K ( 5 ) =T P + 6 4 : M K ( 6 · ) =TP+6 8 2 0 8 M K ( 7 ) = T P - 4 : M K ( 8 ) =T P - 6 8 2 0 9 F O RL = l T0 8 2 1 0 PO ( L ) = P E E K ( M K ( L ) ) 2 1 1 I F M K ( L ) = M M T H E N PO ( L ) = l 2 8 2 1 2 NEXT 2 1 3 F O R L = l T08 : X T ( L ) = 8 : N E XT 2 1 4 F O R L L = l T0 3 : F O R L = lT08 2 1 5 I F PO ( L ) = l 2 O R PO ( L ) = 5 T H E N 2 33 2 1 6 I F PO ( L ) = DC ( L L ) T H E N X T ( L ) = l 2 1 7 I F PO ( L ) = S ( WW ) T H E N X T ( L ) = l 2 1 8 NEXT : N EXT 2 1 9 RA=RND ( 8 ) 2 2 0 I F X T ( RA ) = l T H E N T P = M K ( RA ) E L S E 2 19 2 2 1 MM=TT : TT=TP 2 2 2 I F PO ( RA ) = 2 5 5 T H E N 2 2 3 E L S E 2 2 4 2 2 3 F O R L = l T 0 5 : P L AY " V 3 1 T l 3 5 L 2 0 4 AB G 0 5 G BA " : N E X T L : C L = 6 7 : C K = 8 2 : GOT0 2 3 8 2 2 4 I F PO ( RA ) = 1 5 9 T H EN 2 2 5 E L S E 2 2 6 2 2 5 FORL= lT02 : P LAY " T 5 5V 3 1 L 2 0 1 C D E F G A B0 2 C D E F G A P 1 P 1 P l " : N E X T L : C L = 8 3 : C K = 8 0 : GOT0 2 3 8 2 2 6 I F PO ( RA ) = 1 7 5 T H E N 2 2 7 E L S E 2 2 8 2 2 7 P L A Y " V 9 " : FO R L = l T02 8 : P LA Y " V + O 1 T l 8 8 L l 0 - " : N E X T L : C L = 6 8 : C K = 8 2 : GOT 0238 2 2 8 I F PO ( RA ) = 50 R PO ( RA ) = l 2 T H EN 2 2 9 E LS E 2 2 2 2 2 9 P � AY " V 2 4 T 2 0 L 2 C D E FG A B " : C L = 6 9 : CK=76 2 3 0 P O K E ( 3 0 1 8 3 + ( D L * 5 1 2 ) ) , C L : PO K E ( 3 0 1 8 4 + ( D L * 5 1 2 ) ) , CK : RETURN 2 3 1 GOSU B 2 4 5 : F O R L L = l T 0 1 8 : PO K E ( 3 8 2 0 2 + ( D L * 5 1 2 ) ) , 1 1 2 : POK E ( 3 0 2 0 3 + ( D L * 5 1 2 ) ) , 1 1 2 : F O R L = l T0 1 0 2 3 2 N E XT L : P O K E ( 3 0 2 8 2 + ( D L * 5 1 2 ) ) , 9 6 : PO K E ( 3 0 2 8 3 + ( D L * 5 1 2 ) ) , 9 6 : N E XT L L : GOT01 1 7 2 3 3 I F MK ( L ) = M M T H E N 2 1 6 2 3 4 M M = T T : TT = T P 2 3 5 R L = R ND ( 3 ) : I F R L = l OR R L = 2 T H E N 2 1 6 ELSETP=MK ( L ) 2 3 6 P LAY " V 2 4 T 2 0 L 2 C D E FG A B " : PO K E ( 3 0 1 8 3 + ( D L * 5 1 2 ) ) , 6 9 : PO K E ( 3 0 1 8 4 + ( D L * 5 1 2 ) ) , 7 6 : C L = 6 9 : C K = 7 6 : PO ( RA ) = 5 2 3 7 I F Z ( T F ) =4THEN2 39 ELSE I F Z ( T F ) = 1THEN 2 4 0 2 3 8 R C = R N D ( 4 ) : I F RC < = 2 T H E N 2 3 9 E L S E 248 2 3 9 Z ( T F ) = Z ( T F ) - l : TP = T P - 5 1 2 : F O R L = 1 T09 9 9 : N E X T L : GOSU B 1 9 2 : R E T U R N 2 4 0 Z ( T F ) = Z ( T F ) + l : TP = T P + 5 1 2 : F O R L = 1 T0 9 9 9 : N E X T L : GOSU B 1 9 2 : R E T U R N 2 4 1 DAT A 2 5 5 , 1 5 9 , 1 7 5 , 1 2 8 , 5 2 4 2 D A TA - 3 2 , - 3 0 , 2 , 3 4 , 3 2 , 3 8 , - 2 , - 3 4 2 4 3 DATA@ , 0 , � , 3 0 , , 3 1 , # , 3 5 , % , 3 7 , & , 38 2 4 4 P O K E ( 3 0 1 7 7 + ( D L * 5 1 2 ) ) , 9 6 : PO K E ( 30 1 7 8 + ( D L * 5 1 2 ) ) , 1 2 7 : RETURN 2 4 5 P O K E ( 3 0 1 8 0 + ( D L * 5 1 2 ) ) , 7 8 : PO K E ( 3 0 1 8 l + ( D L * 5 1 2 ) ) , 7 9 : RETURN 2 4 6 POK E ( 3 0 1 8 0 + ( D L * 5 1 2 ) ) , 7 9 : P O K E ( 3 0 1 8 l + ( D L * 5 1 2 ) ) , 7 5 : R E T U RN 2 4 7 FOR L L = l 'rOP 2 4 8 AB ( L L ) = L E N ( P $ ( L L ) ) 2 4 9 FOR L = A B ( L L ) TO l S T E P - 1 2 5 0 N M $ = R I GHT$ ( P $ ( LL ) , L ) 2 5 1 NN ( L L , L ) =ASC ( NM$ ) 2 5 2 N E XT : N E XT 2 5 3 RETURN 2 5 4 NL= 301 9 4 2 5 5 FOR L = l TOAB ( WW ) 2 5 6 PO K E ( N L + ( D L * 5 1 2 ) ) , NN ( WW , L ) 2 5 7 NL=NL-1 2 5 8 N E XT 2 5 9 RETURN 2 6 0 MV $ = S T R $ ( M V ) : N L = 3 0 2 0 2 261 FOR L=2T01 STEP-1 2 6 2 N M $ = R I G H T $ ( M V$ , L ) 2 6 3 MV ( L ) = A S C ( N M $ ) 2 6 4 P O K E ( N L + ( D L * 5 1 2 ) ) , ( MV ( L ) + 6 4 ) 2 6 5 NL=NL+ l : NEXT 2 6 6 M N $ = S T R $ ( MN ( WW ) ) : N L = 3 0 1 9 7 2 6 7 FOR L = 4 T01 S T E P - 1 2 6 8 NM $ = R I G H T $ ( M N $ , L ) 2 6 9 MO ( L ) = A S C ( N M$ ) 2 7 8 P O K E ( N L+ ( D L * 5 1 2 ) ) , ( MO ( L ) + 6 4 ) 2 7 1 N L = N L + l : N E XT 2 7 2 RETURN 2 7 3 C L S : P R I NT @ 2 2 4 , " 0 I F F A C U LT Y ( 1 - 4 ) l = EASY I 4 = HAR D " ; : I N PUTDA 2 7 4 I F D A > 4 OR D A < l T H E N 2 7 3 E L S E D B = I NT ( D.l\ ) 2 7 5 ON DB GOTO 2 7 6 , 2 7 7 , 2 7 8 , 2 7 9 2 7 6 C Z = l 4 : AZ = 5 : D Z = l 2 : MZ = 2000 : RZ = 8 00 : R E T U R N 2 7 7 C Z = l 2 : A Z = 4 : D Z = 1 0 : M Z = 2 5 00 : R Z = 7 00 : R E T U R N A 2 7 8 C Z = l 8 : AZ = 3 : D Z = 8 : M Z = 3888 : R Z = 6 88 : R E T U R N 2 7 9 C Z = 6 : A Z = 2 : D Z = 6 : M Z = 3 5 08 : R Z = 5 8 8 : R ET U R N 2 8 8 F O R L = ( 3 0 1 8 7 + ( D L * 5 1 2 ) ) T0 ( 3 0 2 8 3 + ( DL * 5 1 2 ) ) : PO K E L , 1 4 3 : N E X T L : RETU RN 2 8 1 P R I NT : PR I N T " --HELP TABLE-- " 2 8 2 P R I N T " N-NORTH " : P R I NT " T - NORTH E A ST " 2 8 3 P R I N T " E - E A ST " : P R I NT " V- S OUTH E AST " 2 8 4 P R I N T " S - SOUTH " : P R I NT " Z - SOUTH WEST " 2 8 5 P R I N T " W - W E ST " : P R I NT " Q -NORTHW E ST " 2 8 6 P R I N T " U - U P " : P R I N T " D - DOWN " 2 8 7 P R I NT : P R I NT " P R E S S ANY KEY TO CONT I N U E " 2 8 8 I $ = I N K EY $ : I F I $ = " " T H E N 2 8 8 2 8 9 CLS : P R I NT " - - H E L P TABL E CONT . - - " : P R I NT 2 9 8 P R I N T " A - A R R E ST " : P R I N T " R - R E P E AT C L U E " 2 9 1 P R I NT " C - U S E C A R D " : P R I N T " X - D I S P LAY T H I E F ' S L E V E L " 2 9 2 P R I N T " X - R E T U RN T O Y O U R L E V E L " : P R I NT " F - F I N I S H T U R N " 2 9 3 P R I N T " H - H E L P T A R L E " : P R I NT : P R INT" P R E S S ANY K E Y TO CONT I N U E 2 9 4 I $ = I NKEY$ : I F I $ = " " T H E N 2 9 4 ELSE RETURN 2 9 5 P O K E X Y ( WW ) , PT : GOS U B 2 8 l : GOSUB 1 9 5 : GOSU B 2 8 3 : GOT0 1 7 3 ENO ll for the TRS·SO � color com p u t e r Color - 80 PageWriter EASY TO USE , PROCESS I NG , TEXT LOW COST W I TH BO W I NDOW • BASED FOR 1 6K COLOR CASSETTE WORD COLU.... � CASSETTE ; $ 1 8 . 95 BAS I C ONL Y . . USER Color - 80 BASl • CA LC m i n i spreadsheet :a:o��;m NEW 15 WAY FOR 10 USERS TO J O I N X CASSETTE THE COCO ROWS/COLUf1NS. COLOR $ 1 8 . 95 BAS I C CHECK/MONEY ORDER + {} " CALC CLUB { ::: ::: :-:· $2.00 SHIPPING N.Y. RES. ADD SALES TAX "l•9•�·�"("'!J• soFTWARE P. O . BOX 326 CAMBRIA HTS.N.Y.114 1 1 Circle Reader Service card #30 November 1 985 HOT Coco 43 Star Gemini SG-10 New model for 1 985 r/. r""7' SUPER PRO KEYBOARD The Greatest Hi-Res Graphic Arcade Game Ever Written for Your CoCo Why pay morel' the best is only $59.95*. By Rob Shaw. Author of Tut 's Tomb �Welcome Shock Trooper Squad Commander! ���,..__, · Intelligence has intercepted a coded message revealing a plan to conquer Earth. Four of your Shocktroopers must infiltrate the heavily defended under· ll. • -� ground enemy base and steal all of • their secret TRG·5 attack saucer -'. ,., ·. sub-assemblies. Return them to our Q\ · scientists for analysis. This secret information is crucial to our defense. '-------' *Computers produced after approxi mately Oct., 1982 require an additional plug adapter. Please add $3.95. ��----� .· · . ::;·� · · ·· :iJ �(·· ::� �:I Good Luck' COCO - UTIL Also: Presenting the Sixth and Most Challenging of our Adventures .I\ n VonTEV By Bob Withers and Steve ODeo THE The Vortex Factor' What is it? What secrets does it hold? The seeker of treasures through time and space FACTOR must find out1 From the coliseum of ancient Rome to . the futuristic world of tomorrow . . . · Great new utility. JI ll _, i'j������ PCX-11 �. * We now offer IBM PC-XT compatible computer L.: --_ systems. Don't settle for a Tandy 1000 or other standard PC until you check our systems and prices. Other Exciting Adventures in Our Popular Series Starting at $865. Calixto Island Shenanigans Trekboer Sea Search Black Sanctum NEED MORE MEMORY? All Games-Cassettes $24.95/ Discs $27.95 32K required GREAT BARGAINS ON COCO DISC DRIVES! Single Drive (SSDD) in Dual Cabinet w/Controller . Additional Drive . . . . . . . . . . . . Two Drives (SSDD) in Dual Cabinet w/Controller . . Single Drive (DSDD) in Dual Cabinet w/Controller Additional Drive . . . . . . . . . . . . . . . . . . . . . . Two Drives (DSDD) in Dual Cabinet w/Controller . . . • . . . $299.95 . . . . 89.95 . . . • • . ' . . . . . . . . . . 359.95 . . . . • . . . . 129.95 • • • • . . . . . 484.95 • . . . 384.95 • ACCOUNTING SYSTEM Dual Cabinet/Power Supply . . . . . . . . . . . . . . . . 19.95 Disc Controller (Radio Shack or ) & M) . . . . . . . . . . . . 139.95 ConnectingC a bl e . . . . . . . . . . . 24.95 Radio Shack DOS ROM 1.1 or )/DOS w/Manual . . . . . . 39.95 QUALITY VIDEO MONITORS SaKata Color SC-100 CG S Amber Screen 1 2" 20 MHZ monitor with DELUXE T I LT SW IVEL BASE. �� ..l�' e High Qual ity 1 3" mon itor. Sharp, bri l liant colors. �·· ��.9� � 2$119.9 64K Memory Expansion Kit UNIVERSAL VIDEO DRIVER Carefu l l y engineered to work with ALL color computers & ALL composite monitors. ORDER ENTRY SYSTEM Enter orders, print shipping papers and i nvoices.• EASY FILE DATA MANAGEMENT PURCHASED WITH A MONITOR $24.95 .J_���������L::::::: :: :::: :: === :: ===:::� :: �:;;;� ;;;;:; =-- � SHIPPING: All orders under $1W please add $2 regular. SS air. All orders over $100 please add 3'X, regular, 8'X.air. California residents please add 6'Y., sales tax. Orders outside the con1inental U.S .. check with us for shipping amount: please remit U.S. funds. Software authors-contact us for exciting program marketing details. We accepl MasterCard and VISA. Distributed in Canada by Kelly Software. FREE- Send for our free catalog fl ier. 24001 ALICIA PKWY., NO. 207 • MISSION VIEJO, C A 92691 • (714) 768-1551 ram is available on our Instant CoCo cassette. the Instant CoCo ad elsewhere in this issue . MATHEMATICS by Wayne McArt h u r • j ... " ,,,,,., -- - - - ....� Take the confusion out of performing mathematical and geometric computations. C alculators are nifty devices that make mathematical computations easier. The trouble with calculators, even the ones with memories, is that it's easy to lose track of the numbers you 're entering if you have to go through a series of steps to obtain an an swer. That's especially true if you're trying to remember geometric formulas at the same time. With Mathematic Helper (see Listing), your CoCo becomes a calculator that prompts you for input and stores (for _some calculations) the result of your last compu tation on the screen for easy reference. It helps you with problem solving when you need to perform addition, subtraction. mul- tiplication. division, or square roots; raise numbers to a certain power; or do figuring for solid cubes, triangles. circles. cones, cyl inders, solid rectangles, pyramids. or prisms. (Refer to Table 1 for an outline of program flow.) Using the Program In the opening screen, a blinking cursor System Requirements 1 6K RAM Extended Color Basic marks the instructions. The first operation. addition, is highlighted in the line below, and another highlighted box at the bottom of the screen contains the result of the last opera tion-zero when you first run the program. Use the right- and left-arrow keys to move through the list of operations until the one you want appears in the top highlighted box; then press the enter key to bring up the screen for that operation. The first five operations are addition. subtraction. multiplication, division, and square root. The program prompts you to input the values (only one value is required to compute a square root) and then displays the answer. November 1 985 HOT Coco 45 � � � <E .5' c:: .g i ;:: To carry the result of these equations from one to the other, type Y in response to the save-result prompt. The next operation, solid cube, requires only one entry: the length of one side. The program computes the cube's cubic contents and the square surface area. Although you can carry a result from a single-answer cal culation (e.g., multiplication) into the solid cube calculation, you cannot carry an an swer from it to another problem because the program gives more than one result. The pro gram displays the cubic contents as the an swer in the last-result box. When you select the triangle function, the program asks whether it is a right triangle one that has a 00-degree angle. For right tri angles, you must enter at least two more items of information; for other triangles, you need at least three pieces of information. Use the up- and down-arrow keys to select an item; press the enter key to bring up the input prompt for your selection. When the program has sufficient data, it computes the values for vertical height, square area, base , hypoten use, opposite side, and the three angles. Use the up and down arrows to move through the list and reveal the computed values. The power calculation involves three val ues: the base (X), power (Y), and result (Z). When you submit two of the values, the pro gram provides a result that you can transfer to certain other operations. If you supply X and Y, you must press the enter key to see the computed value of Z. For circles, you only need to submit one item ofinformation: the radius, diameter, circumfer ence, or square area. The program calculates the other values from the one submitted and also figures the surface and cubic contents for Program Listing. Mathematic Helper 1 0 D I MA$ ( 1 4 ) : FORA=lT01 4 : READA$ ( A ) : N EXT : B $ = CHR$ ( 1 2 8 ) : A= l 20 P I = 3 . 1 4 1 5 9 2 6 5 3 0 DATAA D D I T I O N , S U BT RACT I ON , M U L T I P L I CA T I O N , D I V I S I O N , S Q U A R E ROOT , SO L I D C U B E 4 0 DATAT R I A NG L E , POWER , C I RC L E S , CO N E , CY L I N D E R , S O L I D R E CTANG L E , P Y R A M I D , P R I SM 50 C L S 0 : P R I NT @ 7 , " ma t h e m a t i c " B $ " h e l pe r " ; 6 0 P R I NT @ 6 5 , " u s e " B $ " a r r ow s " B $ " f o r " B $ " f u n c t i o n " B $ " c h o i ce " ; 7 0 GOSUB 1 2 3 0 80 PRINT@l06 , " then " B $ " ente r " ; : PR I N T@ l 2 8 , A$ ( A ) 9 0 Z $ = I N K E Y $ : I F Z $ = " " T H E N FO R F = l 3 4 T0 1 3 7 S T E P 3 : P R I NT @ 6 4 , C H R $ ( F ) ; : P LA Y " P 5 0 " : N E XT : GOT0 9 0 1 0 0 I F Z $ = CHR$ ( 0 8 ) T H ENA=A- 1 E LS E I F Z $ =CHR$ ( 0 9 ) T H E NA=A+ l 1 1 0 I F A > l 4 T H EN A = l E L S E I F A < l T H E NA = 14 120 I FZ $ =CHR$ ( 1 3 ) THEN1 30ELSEPRIN T @ l 2 8 , A $ ( A ) : GOT0 9 0 1 3 0 I F A = l GOSU B 2 1 0 : Q = X + Y : P R I NTQ : G OT02 4 0 E L S E 1 4 0 46 HOT CoCo November 1 985 " Line Function 10-40 Reads function titles A$( 1 ) to A$(14) into memory and as 670-700 Calculates angles from previ ously entered information and signs value of PI. 50-80 Sets up the menu page. Function Choices Addition Subtraction Multiplication Division Square Root Cube Enters X and Y values for some operations. 240-250 Allows user to save result or dispense with it. 260-330 Sets up screen for a triangle; asks if angle C is 00 degrees. 340-300 Allows choice of entering or 00- 120 1 30 140 1 50 160 170 1 80-200 2 10-230 changes them to radians for other figuring. 7 10-700 Calculations for powers 800-920 Uses input information to supply you with unknown values for the circle. 930-900 Computes surface area and cubic contents. 1000- 1040 Calculates area and cubic contents of a cylinder. 1050- 1080 Calculations for a solid rec tangle 1000- 1 1 50 Calculations for a pyramid 1 160-1 2 10 Calculations for a prism 1220 Pause that allows the user to look over the results of some . functions. 1230 Lets you see the last result from single-answer functions. reading data about a triangle. 400-550 Calculates values entered for right triangles. 560-660 Calculates values entered for triangles that are not right tri angles. 1 240 Changes string input ($) to a numeric expression for some functions. Table 1 . Program Flow a sphere with the given dimensions. By supplying the base circumference and slant height of a cone, you can find its lateral area; with the base and vertical height, you can find the cubic contents. Entering the height and circumference of a cylinder gives you the lateral area and cubic contents; en for a pyramid allow you to figure the lateral area; the perimeter, area of the base, and ver tical height give you the cubic contents. You can compute the lateral area of a prism if you know the perimeter of the base and the height, or the cubic contents if you know the area of the base and the height. • tering the length, width, and height of a solid rectangle yields its square area and cubic contents. The perimeter of the base and slant height A ddress correspondence to Wayne Mc Arthur, 1 1 05-204 Fairmont Drive, Saskatoon, Saskatchewan, Canada S7M 4P5. 1 4 0 I F A = 2 G O S U B 2 1 0 : Q = X - Y : P R I NTQ : G O T0 2 4 _0 E L S E 1 5 ,0 1 5 _0 I F A = 3 G O S U B 2 1 0 : Q= X * Y : P R I NT Q : G OT02 4 _0 E L S E 1 6 0 1 6 0 I F A = 4 G O S U B 2 1 0 : I F Y = ,0 T H E N 5 _0 E L S E Q = X / Y : P R I NTQ : GOT02 4 _0 E L S E 1 7 _0 1 7 _0 I F A = 5 T H E N S = l : GO S U B 2 1 .0 : Q = S Q R ( X ) : P R I NTQ : GOT0 2 4 0 E L S E 1 8 _0 1 8 _0 I F A > < 6 T H E N 2 6 0 E L S E S = l : GO S U B 2 1 0 1 9 0 P R I NT @ 2 8 8 , " c u b i c " B $ " c o n t e n t s " ; : Q= X � 3 : P R I NTQ 200 P R I NT " sq " B $ " s u r face " B $ " a r e a " ( X * X ) * 6 : GO T0 1 2 2 _0 2 1 .0 P R I NT @ 2 2 4 , " e n t e r " : I F X > < 0T H E N P R I NT " x ? " X : GO T0 2 3 0 2 2 _0 I N P U T " x " ; X $ : X = V A L ( X $ ) 2 3 0 I F S = l T H E N S = 0 : P R I NT @ 3 2 ,0 , " = " ; : R E T U R N E L S E I N P UT " y " ; Y $ : Y =VAL ( Y $ ) : P R I NT @ 3 2 0 , " = " ; : R E T U R N 2 4 0 P R I NT @ 3 5 2 , " s a v e " B $ " r e s u l t y n " ; : Z $ = I N K E Y $ : I F Z $ = " Y " THENX=Q E L S E I F Z $ = " N " TH ENX=0ELS E 2 4 0 2 5 0 GOT0 5 ,0 2 6 0 I F A > 7 T H EN 7 1 0 E L S E Z = 0 : C L S 0 : D = 3 3 2 7 0 F $ ( 0 ) = " v e r t i c a l " + B $ + " he i g h t " : F $ ( l ) = " s qu a r e " + B $ + " a r ea " : F $ ( 2 ) = " b a s e " : F $ ( 3 ) = " h ypo t e n u s e " : F $ ( 4 ) = " o ppo s i t e " : F $ ( 5 ) = " a n g l e " + B $ + " a " : F $ ( 6 ) = " a n g l e " + B $ + " b " : F $ ( 7 ) = " a ng l e " +B$+ " c " 2 8 0 P R I NT @ 9 3 , " b " ; : FORQ= l 2 5 T0 3 8 1 S T E P 3 2 : P R I N T @ Q , " O " ; : N E X T : P R I NT @ 4 1 3 , " c " ; : FORQ= 4 1 2 T 0 4 0 4 S T E P - l : P R I NT @ Q I . B . ; : N EXT 2 9 0 FORQ= l 2 4 T 0 3 7 3 S T E P 3 l : P R I N T @ Q , " H " ; : N E X T : P R I NT @ 4 0 3 , " a " ; 3 ,0 0 P R I N T @ 4 1 8 , " AN G L E c = 9 ,0 D EG R E E S ? < Y > < N > " ; : P R I NT @ 4 1 8 , S T R I NG $ ( 3 0 , B$ ) ; : R $ = I N K E Y $ : I F R $ = " " T H E N 3 0 0 3 1 .0 P R I NT @ 0 , " u s e " B $ " a r r ow s " B $ " t o " B $ " mov e " B $ " u p " B $ " o r " B $ " dow n " ; 3 2 0 P R I NT @ 4 8 0 , " P R E S S " B $ " e n t e r " B $ " < O R > " B $ " n " B $ " FO R " B $ " N E W " B $ " S E T " . 3 3 ,0 F O R S = 0T07 : D = D + 3 2 : P R I N T @ D- l , F $ ( S ) , : N E XT : D= 6 5 : I F R$ = " Y " OR R $ = " N " T H E N 3 4 0 E L S E D= 3 3 : GOT0 3 0.0 3 4 _0 Z $ = I N K E Y $ : I F Z $ = " " TH E N 3 4 .0 E L S E PRINT@D-1 , F$ ( Z ) , 3 5 _0 I F Z $ = C H R $ ( 1 3 ) T H E N P R I NT @ 4 1 6 , F $ ( Z ) , : I N PUT I N $ : I N = V A L ( I N $ ) : P R I NT @ 4 1 6 , S T R I NG $ ( 3 2 , B $ ) ; : GO S U B 4 0 0 3 6 _0 I F Z $ = " N " T H E N FO R Z = 0 T 0 7 : A ( Z ) = 0 : N E XT : A = 7 : GOT05,0 3 7 0 I F Z $ =C H R $ ( 9 4 ) A N D Z > = l T H END=D3 2 : Z=Z-l 3 8 0 I F Z $ = C H R $ ( 1 0 ) AN D Z < = 6 TH END=D+ 32 : Z=Z+l 3 9 0 P R I N T @ D - l , " > " ; A ( Z ) , : GO T0 3 4 0 4 0 0 A ( Z ) = I N : I F R $ = " Y " TH E NA ( 7 ) = 9 0 E L S E 5 6 _0 4 1 _0 I F A ( 5 ) > = 9 00 RA ( 6 ) > = 9 0T H E N A ( Z ) =0 4 2 0 I FA ( 0 ) > 0T H ENA ( 4 ) = A ( 0 ) E L S E A ( 0 ) =A ( 4 ) 4 3 0 I F A ( 2 ) > 0T H EN I F A ( 0 ) = A ( 2 ) T H E N A ( 5 ) =4 5 : A ( 6 ) =45 4 4 0 I F A ( 0 ) > 0A N D A ( 2 ) > 0T H E NA ( l ) = ( A ( 2 ) * A ( 0 ) ) / 2 : A ( 3 ) = S QR ( ( A ( 2 ) * A ( 2 ) ) + ( A ( 0 ) * A ( 0 ) ) ) : AA = A ( 0 ) / A ( 2 ) : A ( 5 ) = A TN ( A A ) * 5 7 . 2 9 5 7 7 9 5 1 4 5 0 G O S U B 6 8 0 : I F A ( 0 J > 0 A N DA ( l ) > 0 T H E N A ( 2 ) = ( 2 * A ( l ) ) /A ( 0 ) 4 6 0 I F A ( l ) > 0 A N DA ( 2 ) > 0T H ENA ( 0 ) = ( 2 * A ( l ) ) /A ( 2 ) 4 7 0 I F A ( 3 ) > 0A N D A ( 6 ) > 0 T H E NA ( 4 ) = A ( 3 ) *COS ( B ) 4 8 0 I F A ( 3 ) > 0A N DA ( 5 ) > 0T H E N A ( 4 ) = A ( 3 ) *SIN ( A ) 4 9 0 I F A ( 0 ) > 0A N D A ( 5 ) > 0 T H E NA ( 3 ) = A ( 0 ) /S I N ( A ) 5 0 0 I FA ( 2 ) > 0A N DA ( 5 ) > 0 T H E N A ( 3 ) = A ( 2 ) / COS ( A ) 5 1 0 I F A ( 2 ) > 0 A N D A ( 3 ) > 0T H E N A ( 0 ) = SQ R ( ( A ( 3 ) *A ( 3 ) ) - ( A ( 2 ) *A ( 2 ) ) ) 520 I F A ( 0 ) > 0 A N D A ( 3 ) > 0T H E N A ( 2 ) = SQ R ( ( A ( 3 ) *A ( 3 ) ) - ( A ( 0 ) *A ( 0 ) ) ) 5 3 0 I F A ( 6 ) > 0 A N DA ( 0 ) > 0T H E NA ( 3 ) = A ( 0 ) /COS ( B ) 5 4 0 I F A ( 5 ) = 4 5 T H EN A ( 0 ) = SQ R ( A ( l ) + A (1) ) 5 5 0 T = T+ l : I FT < 4 T H E NGOT04 2 0 E L S ET= 0 : RETURN 5 6 0 GOS U B 6 7 0 5 7 0 I FA ( 2 ) >0ANDA ( 3 ) >0ANDA ( 5 ) >0TH E NA ( 4 ) = S Q R ( ( A ( 2 ) * A ( 2 ) + A ( 3 ) * A ( 3 ) ) - 2 * ( A ( 2 ) * A ( 3 ) * COS ( A ) ) ) 5 8 0 I F A ( 4 ) > 0 A N DA ( 3 ) > 0A N D A ( 6 ) > 0T H E NA ( 2 ) = SQ R ( ( A ( 4 ) * A ( 4 ) + A ( 3 ) * A ( 3 ) ) - 2 * ( A ( 4 ) * A ( 3 ) * COS ( B ) ) ) 5 9 0 I FA ( 4 ) > 0A N D A ( 2 ) > 0A N D A ( 7 ) > 0T H E NA ( 3 ) = S Q R ( ( A ( 4 ) * A ( 4 ) + A ( 2 ) * A ( 2 ) ) - 2 * ( A ( 4 ) * A ( 2 ) * COS ( C ) ) ) 6 0 0 I F A ( 4 ) > 0A N DA ( 6 ) > 0A N DA ( 5 ) > 0 T H E N A ( 2 ) = ( A ( 4 ) * S I N ( B ) ) /S I N ( A ) 6 1 0 I F A ( 4 ) > 0A N D A ( 7 ) > 0A N D A ( 5 ) > 0T H E NA ( 3 ) = ( A ( 4 ) * S I N ( C ) ) / S I N ( A ) 6 2 0 I F A ( 5 ) > 0A N D A ( 6 ) > 0 A N D A ( 3 ) > 0T H E NA ( 4 ) = ( A ( 3 ) * S I N ( A ) ) / S I N ( C ) : A ( 2 ) = ( A ( 3 ) * S I N ( B ) ) /S I N ( C ) 6 3 0 I F A ( 4 ) > 0A N D A ( 2 ) > 0 A N DA ( 7 ) > 0 T H E N P = . 5 * ( 1 8 0 -A ( 7 ) ) : P = P / 5 7 . 2 9 5 7 7 9 5 l : P=TAN ( P ) : N= ( ( A ( 4 ) -A ( 2 ) ) / ( A ( 4 ) + A ( 2 ) ) ) * P : N= A T N ( N ) : P =AT N ( P ) : P = P * 5 7 . 2 9 5 7 7 9 5 l : N=N*57 . 29 5 7 7 9 5 l : A ( 5 ) = P+N : A ( 6 ) =P-N . 6 4 0 I F A ( 2 ) > 0A N DA ( 3 ) > 0A N D A ( 4 ) > 0T H ENAA= ( ( ( A ( 2 ) *A ( 2 ) ) + ( A ( 3 ) *A ( 3 ) ) ) ( A ( 4 ) * A ( 4 ) ) ) / ( 2 * ( A ( 2 ) * A ( 3 ) ) ) : SB = A ( 3 ) * A A : S A = SQ R ( ( A ( 3 ) * A ( 3 ) ) - ( S B * S B ) ) : A ( 5 ) = S A / S B : A ( 5 ) = ATN ( A ( 5 ) ) * 5 7 . 29577951 6 5 0 I F A ( 2 ) > 0A N D S B > 0A N D S A > 0 A N D A ( 7 ) = 0T H E N S B = A ( 2 ) - S B : A ( 7 ) = S A / SB : A ( 7 ) = AT N ( A ( 7 ) ) * 5 7 . 2 9 5 7 7 9 5 1 6 6 0 I F A ( 2 ) > 0 A N D S A > 0T H E N A ( 0 ) = S A : A ( l ) = ( A ( 2 ) *A ( 0 ) ) / 2 6 7 0 I F A ( 5 ) > 0 A N DA ( 6 ) > 0T H ENA ( 7 ) = 1 8 0- ( A ( 5 ) +A ( 6 ) ) 6 8 0 I F A ( 6 ) > 0 A N DA ( 7 ) > 0 T H E N A ( 5 ) = 1 8 0- ( A ( 6 ) + A ( 7 ) ) 6 9 0 I F A ( 5 ) > 0 A N D A ( 7 ) > 0 T H E NA ( 6 ) = 1 8 0- ( A ( 5 ) +A ( 7 ) ) 7 00 A =A ( 5 ) / 5 7 . 2 9 5 7 7 9 5 l : B = A ( 6 ) / 5 7 . 2 9 5 7 7 9 5 l : C=A ( 7 ) / 5 7 . 2 9 5 7 7 9 5 l : RET URN 7 1 0 I F A > 8 T H E N 8 0 0 E LS E C L S 0 : P R I NT @ l 00 , " x = BA S E y = P OW E R z = R E S U LT " ; 7 2 0 P R I NT @ l 6 0 , " i f " B $ " v a l u e " B $ " u n k n ow n " B $ " p r e s s " B $ " < E NTE R > " B $ B $ ; : GOSU B 1 2 3 0 : GOSU B 2 1 0 : P R I NT @ 3 2 0 , " z " ; : I N PU T Z $ : Z = VA L ( Z $ ) 7 3 0 I F X > 0A N DY > 0 T H EN Z = X � Y : Q= Z : GOT 0790 7 4 0 I F X > 0 A N D Z > 0 T H E N Y = LOG ( Z ) /LOG ( X ) : Q= Y : GOT0 7 9 0 7 5 0 I F Y < l 0T H E N T = l 0 0 0 E L S ET = l 0 7 6 0 P R I NT " P R E S S K E Y W H E N CALCULA T I ON E N D S ! " ; 7 7 0 Q = X � Y : I FQ < Z T H E N X = X + T E L S E I F Q > Z THENX=X- ( T ) : T=T* . l 7 8 0 P R I NT @ 2 5 8 , X , : S $ = I N K E Y $ : I F S $ = " " T H E N 7 7 0 E LS EQ = X 7 9 0 P R I NT @ 2 5 6 , " x " X : P R I NT " y " Y : P R I N T " z " Z : P R I NT : GOT0 2 4 0 8 0 0 I F A > 9 T H E N 9 3 0 E L S EC L S 0 : P R I NT @ 4 3 , " c i rcles " ; 8 1 0 P R INT@ 9 7 , " pr e s s " B $ " e n t e r " B $ " i f " B $ " v a l u e " B $ " u n k nown " ; 8 2 0 P R I NT @ l 6 0 I ; 8 3 0 I N P U T " r a d i u s " ; X $ : GO S U B 1 2 4 0 : I F X > 0T H E N 8 9 0 8 4 0 I N P UT " d i a me t e r " ; Y $ : GO S U B 1 2 4 0 8 5 0 I F Y > 0T H E N X = Y/ 2 : GOT08 9 0 8 6 0 I N P UT " c i r c u m f e r e n c e " ; Z $ : GOSU 8 1 2 40 8 7 0 I F Z > 0T H E N X = Z / ( 2 * P I ) : GOT0 8 9 0 8 8 0 I N P UT " a r e a " ; S A $ : S A=VAL ( S A $ ) : I F S A > 0T H E N X = S Q R ( SA /P I ) S 9 0 Y = 2 * X : Z = P I * Y : S A= P I * ( X * X ) 9 0 0 P R I NT @ l 6 0 , " r a d i u s " X : P R I NT " d i ame t e r " Y : P R I NT " c i r c u m f e r e n c e " Z : P R I NT " s q u a r e " B $ " a r e a " SA 9 1 0 P R I NT " s p h e r e " B $ " s u r f a c e " B $ " a r e a " : P R I NTX * X * ( 4 * P I ) 9 2 0 P R I NT " s p h e r e " B $ " c u b i c a l " B $ " c o n t e n t s " : P R I NTX � 3 * ( ( 4 * P I ) / 3 ) : GOT 01220 9 3 0 I F A > l 0T H E N 1 00 0 E L S E C L S 0 9 4 0 P R I NT @ 4 4 , " c o n e s " ; 9 5 0 P R I NT @ 9 6 , " b a s e " B $ " c i r c u m f e r e n c e " : I N P UTX $ 9 6 0 P R I NT " s l a n t " B $ " h e i g h t " : I N P UT Y$ 9 7 0 P R I NT " v e r t i c a l " B $ " h e i g h t " : I N P UT Z $ : GO S UB 1 2 4 0 9 8 0 P R I NT " l a t e r a l " B $ " a r e a " ( Y * X ) / 2 : P R I NT 9 9 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " ; : R A = X / ( 2 * P I ) : AR = P I * ( RA * RA ) : P R I NT ( A R * Z ) / 3 : GOT0 1 2 2 0 1000 I F A > l l T H E N 1 0 50ELS ECLS0 : P R I N T @ 4 2 , " cy l i nd e r s " ; 1 0 1 0 P R I NT @ l 2 8 , " h e i g h t " ; : I N P U T X $ 1 0 2 0 P R I NT : I N P UT " c i r c u m f e r e n c e " ; Y $ : GO S UB 1 2 4 0 1 0 3 0 P R I NT . : P R I NT " l a t e r a l " B $ " a r e a " X*Y 1 0 4 0 P R I NT : P R I NT " c u b i c a l " B $ " c o n t e n t s " ; : RA = Y / ( 2 * P I ) : A R = P I * ( RA * RA ) : P R I NTAR * X : GOT0 1 2 2 � 1 0 5 0 I FA > l 2THEN1 090ELSECLS0 : P R I N T@43 , " rectangles " ; 1 0 6 0 P R I NT @ l 2 8 , ; : I N P UT " l e n g t h " ; X $ : I N P UT " w i d t h " ; Y $ : I N P U T " h e i g h t " ; Z $ : GO S U B 1 2 4 0 1 0 7 0 P R I NT " s q u a r e " B $ " a r e a " 2 * ( ( X * Z ) + ( Y*Z ) + ( X *Y ) ) 1 0 8 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " X * Y * Z : GOT0 1 2 2 0 1 0 9 0 I F A > l 3 T H E N 1 1 6 0 E L S E C L S0 : P R I N T @ 4 4 , " py r a m i d s " ; 1 1 0 0 P R I NT @ l 2 8 , " pe r i me t e r " B $ " o f " B $ " ba s e " ; : I N PUTX $ 1 1 1 0 P R I NT " s l a n t " B $ " h e i g h t " ; : I N P UTY$ 1 1 2 0 P R I NT " a r e a " B $ " o f " B $ " ba s e " ; : I N P UT Z $ : GOSUB 1 2 4 0 1 1 3 0 P R I NT " v e r t i c a l " B $ " h e i g h t " ; : I N P UTVH$ : VH = VAL ( V H $ ) 1 1 4 0 P R I NT " l a t e r a l " B $ " a r e a " ( X * Y ) /2 1 1 5 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " ( Z * V H ) / 3 : GOT01 2 2 0 1 1 6 0 C L S 0 : P R I N T @ 4 4 , " p r i s ms " ; 1 1 7 0 P R I NT @ l 9 2 , " pe r i me t e r " B $ " o f " B $ " ba se " ; : I NPUTX$ 1 1 8 0 P R I NT" a r ea " B $ " o f " B $ " ba se " ; : I N P UTY$ 1 1 9 0 I N P UT " h e i g h t " ; Z $ : GO S U B 1 2 4 0 1 2 0 0 P R I NT " l a t e r a l " B $ " a r e a " X * Z 1 2 1 0 P R I NT " c u b i c a l " B $ " c o n t e n t s " Y *Z 1 2 2 0 P R I NT@ 4 1 6 , " p r e s s " B $ " e n t e r " B $ " t o " B $ " c o n t i n u e " ; : I N PUTX $ : X = V A L ( X $ ) : GOT0 5 0 1 2 3 0 P R I NT@ 4 4 8 , " l a s t " B $ " r e s u l t " B $ " wa s " ; : P R I NT @ 4 8 0 , Q , : R E T U R N 1 2 4 0 X =VAL ( X $ ) : Y =VAL ( Y $ ) : Z =VAL ( Z END $ ) : R ET U R N Circle Reader Service card # 1 20 PROTECTION FOR HO ME & FAM I LY now turn your color computer into an advanced, affordable H O M E SECUR ITY SYSTE M with graphic break-in display s 79so INCLUDES : • Easy user installation SENSORS. • Sonic-grnphic alert INTERFACE. SOFTWARE. • Available for disk INSTRUCTIONS or cassette models ,------ • Expandable for x-tra sensors, auto dialer, siren, etc. • Tells you where intrusion has occurred -- - - - - - - _ 1 O ��8f�s�o0 I 0 SEND BROCHURE I I OWN A: I D CASSETIE I n rnsK J COLOR COMPUTER 1-- N M ------------ --A E STREET STATE I ZIP I CITY I DATE LOREDEC CORP. S E C U RITY SYSTEMS DIVISION P. O. BOX 565. EAST LONGMEADOW. MA 0 1 028 November 1 985 HOT Coco 47 This program is available on our Instant CoCo cassette. 17,::=::::=:=:::� See the Instant CoCo ad elsewhere in this issue. by Del bert A. Bake r .. Fi nding Fi rewood + \ ·\t\lit +. Best - Buys .&1c' ti\%\· r>·· ��G:t�� · ··· · ·· · · .. . Calculate the most economical way to fill your woodshed. :�'.\/)/\/}<< / .. . .. ..-::�:::::::::::::::::::;::;:::: ...::'::. \j'f::>:.:.: </t\ {�\!f�YY?.> �:;:;::://::::< o · V�· .·.- . ;-· ;« �/j . _ ,. · ne day In October 1 98 2 , a friend asked If I'd like to buy pine firewood at $60 per cord, cut and delivered. I bought two c o r d s a n d s p i l t a n d stacked It. But as I burned it to keep warm that winter I kept wondering If I had made a good deal. I reasoned that my CoCo should be able to do the calculations and store the necessary data with ease. However, before I could write equations for the program. I had to decide what kind of comparison would help me make a quick decision about which firewood to purchase. I wanted to be able to look through th e classifieds and compare the woods offered to oak, which was selllng for $70 to $75 (cut and delivered). and determine . .. . : ; ' � � � .·.. -�· . ����� t{�· ��:,i;. � �-%_ $:}�-::·\. ���: - �:-::�...... :- "• . . �:::-:-:-:·=-�·>.-�: · �: :·. : ���:::�� :::��:' :::��:·, � . • •. ����-:�-�f:/�: ?ft\·i-Llti\ �� price of the other ood, then the other wood would be a good w ./<\\:\: :-·:\\:\ \\:: :_�: : - · ·�:1E:1f£:: :� ·.·::::::::::::.:·:.:.:.:.: .:: -· whether they were a good value In heat content per dollar. How the Program Works I wrote an equation that would make the comparison and return an answer In cost per cord as lf I had spent the same amount of money on oak. For example, If I were offered wood with half the heat content of oak. the program would tell me that the equivalent price for a cord of oak was twice the price of the wood In ques tion. I could then check the newspaper to find out the prevalllng cost for a System Requirements 1 6K RAM Extended Color Basic · total heat value per cord of several kinds of wood and the heat value of several nonwood :: : :ia��o�sh��:!:roar��: c t duce a program with five options: l 2 3 4 5 . Calculation Available Wood Data Explanation Nonwood Conversion Quit Option l performs the calculation that al· lows you to compare the price of a certain w ood to th e prevailing cost of oak . Option 2 displays the heat content (In millions of BTUs per cord) of all the types of wood for which I could find data. You must type In the name of the wood exactly as It appears In the DATA statements; otherwise you receive a message that reads. "l do not have that wood data." Option 3 explains the meaning of the calculation In option 1 . Option 4 displays the nonwood-fuel data and prompts you to select one of the items. It then asks you which wood you wish to compare. The result given ts the amount of the nonwood source that replaces one cord of the chosen wood lf both are burned at 100percent efficiency. Tu make true comparisons. you need the efficiency ratings of the respective heating units-e.g .• a wood stove and an oil furnace. If the stove ls 50-percent efficient and the fur nace ls 75-percent efficient. multiply the wood amount by . 5 and the nonwood amount by .75 to find out how much heat ls delivered. Compare the prices to decide which fuel Is most economical. You could also use this option to compare operating costs before installing a heating system. A word of caution: The program evaluates natural products that are highly variable In their properties. Consequently, the calcu lated results are approximate. Furthermore, the program does not take all factors into ac count; you must decide what value to attach to such things as delivery , splitting, and stacking. Program Structure Lines 1 00-620 contain the main program, COt/lmucd Page No. Reader Service No. 107 AArdvark Software . . . . 7 1 3 2 2 A.S.C . . . . . . . . . . . . . . . . 69 138 B-5 Software . . . . . . . . . . . 80 335 Cer-Comp . . . . . . . . . 10. 1 1 405 Challenger Software . . . . 6 1 343 Cinsoft . . . . . . . . . . . . . . . . . 60 75 CoCo Devices . . . . . . . . . . . . 6 5 . . . . 11 . . . . . . . 23 Colorware . . . . . . . . . . . 40. 4 1 The Computer Center . . . 2 2 18 Computer Plus . . . . . . . . . . CIII 506 Computer Systems 223 Center . . . . . . . . . Computer Systems 121 • Cognitec . . . . . . . . . . . . . . . 19 D + A Research . 213 Data-Comp . . . 243 Deft Systems . . . . . . . . . . . . . 67 . . . . .2 209 Dorsett Educational • . . . . . . . . 59 . . Systems . . . . . . . . . D.P. Johnson . . E.A.P. . . . . . . . . . . . . . . . . . . 3 1 1 3 5 E.D.C . . . . . . . . . . . . . . . . 73 494 Electronic Motion Control 58 25 Four Star Software . . . . . 66 309 Group Technology Ltd. . . . . . . . . . . . . . . . . . . . 71 440 . . . . . . . . 77 . . . . . . . . . . . . 54 HJL Products . . . . . . . . . . . CIV HOT CoCo HOT CoCo Subscriptions . . . 33 Instant Coco . . . . . . . . . 56. 57 Toll Free # . . . . . . . 91 . Page No. 2 16 . Consultants . . . . . . . . . . . . . 3 1 225 Reader Service No. . . . . . . . 52 Incentive Software . . . . . . . . 26 101 15 1 20 24 1 J & M Systems . . JTJ Enterprises . Loredec Corp . . . . . Mark Data . . . . . 305 Mathegraphics Software 1 96 Micro Works . . . . . . . . . . 29, 75 1 06 MICROCOM Software . . . . . . . 7 337 . . . . . . . . . . . . . . . . .4 . . . 62 . . . . 47 . . . 44 . . . 59 Nibble Notch Computer Products . . . . . . . . . . . . . . . Page No. Reader Service No. 320 Parsons Software . PBJ , lnc . . . . . . . . . . 1 24 Perry Computers . . . 1 5 3 Polygon Computers 2 2 2 Professor Jones . . . . 70 Saguaro Software . . . 214 . . . . . 52 . . . . . .21 . . . . . . 15 . . . . 58 . . . . . . 27 . . . . . . 79 1 1 9 Spectral Associates . . . . . . . . . . . . . . . . 28 Software Connection . 1 44 Sugar Software . . . . . 456 Sunlock Systems . . . . . 12 Sunrise Software . . . . 236 T & D Subscription . 386 TCE Programs . . . . . . . 194 Totbian Software . . . 2 7 7 Triad Pictures . . . . . 93 True Data Products . . . 30 VMC . . . . . . . . . . . . . 30 1 Wasatchware . . . . . 1 7 5 White House Computer . . . . . . . . . 25, 27 . . . . 51 . . . 62 . . . . 32 . . . 8 . . . 32 . . . . CII, 1 . . . 61 . . . 36 . . . . 1 6, 1 7 . . 43 . . . . 51 . . . 28 . 25 Advertising Offices: (603) 924-7138 or (800) 441 -4403 *This advertiser prefers to be contacted directly. For further information from our advertisers, please use the reader service card. Piclf of the Month Coming Next Month The first question on our Reader Service card adjacent to this page asks you to pick your favorite article or feature in this issue. Write the appropriate letter from the list below in the space provided on the card. A. Doctor ASCII. Esposito and Ramhoff. p. 1 2 B. Mindbus'.ers. Ramella. p . 1 4 C. The Computer Room. Norman. p . 1 8 · D. E. F. G. H. I. J. K. Directory Assistance. Bonnell. p . 30 Mail It with Telewriter-64. German. p. 34 Halt Thief. Jense. p. 37 Mathematics Helper. McArthur. p. 45 Finding Firewood Best Buys. Baker. p. 48 Math Invasion. Clift. p. 53 Parallel Processing with Color Logo. Meredith. p. 55 Linked Lists. Bauder. p. 63 L. Tame Your Reset Button. Gault. p. 68 M. Teacher Helpers. Wood. p. 70 N. 6809 On Line. Ballard. p. 72 0. Assembly 1 0 1 . Perotti and Perotti. p. 74 P. The Learning Page. Kipperman. p. 76 Q. Product News. Finnie. p. 78 B elieve it or not. the Christmas buying season is almost upon us. Do you know what to get for your CoCo-using friends and relatives? HOT CoCo's December issue provides the shopping ad vice you need. Richard Esposito. author of our popular Doctor ASCII column. gives you his best bets for Christmas gifts. And our editors have thought long and hard about what they would like to see under the tree. Read about their picks next month. OS-9: That's a word you've seen a lot lately. OS-9 is Tandy's disk operating system (DOS) of the future for the CoCo. Next month. OS-9 expert Brian Lantz answers some of the most-often asked questions about this up-and-coming DOS. Ever left your Coco or disk drive on all night. or longer. without realizing it? Mark Haverstock shows you how to install power-in dicator LEDs on both these items in December. The same article tells you how to move the on/off and reset buttons from the rear to the front of the CoCo. We have much more for December. So pick up a copy of HOT toco next month and enjoy! • November 1 985 HOT CoCo 49 including the menu, subroutine directions, and the wood data. Lines 630-890 control option 1 . Line 640 prompts for a wood type: lines 660-690 search for a data match. If a match is not found, control passes to lines 9 10-960. The data is restored, the no-match message is displayed, and the program asks you if you want to see all the wood types available. If you elect to see the data, control passes to the subroutine in option 2. If a match is found during the search, the pro gram jumps to lines 7 10-890, where you in put an asking price and confirm it. The calculation is performed in lines 760-780: the results are reported by lines 840-870. Lines 980- 1 130 are the data-display rou tine. The program displays the data in screens of 1 2 lines until it reaches STOP, 0000 . You then return to the main menu. Lines 1 1 50- 1 420 contain a short explana tion of the result of the calculation in option 1 . Delete this section if you wish to conserve memory. Lines 1 440- 1 990 control option 4. Lines 1 440- 1 460 set the data pointer. to the first entry of the non wood data. Line 1 4 70 reads the nonwood data and stores it in an array. Lines 1490- 1 590 display the nonwood data, ask you to enter the wood type that you want. and check your input. When you con firm your selection. control passes to lines 1 600- 1 640. After you submit the wood type. the wood data is retrieved from the DATA lines. Line 1 650 makes the comparison cal culation and adjusts the result to read in whole numbers for nonwood materials mea sured in tons. Line 1 660 adjusts the calcula tion result to two decimal places for nonwood materials measured in tons. Lines 1 6701 740 display the" results of the calculation. Lines 1 8 10- 1940 provide a short explana tion of option 4. Lines 1 960- 1 990 offer the option 2 data display if an invalid wood type is entered in line 1 600. Program Listing. Firewood NT AVA I L A B L E WOOD D A 3 5 0 P R I NT " 2 T A " : P R I NT 3 6 j!' P R I NT " 3 E X P LANAT I ON " : P R I N T NON-WOOD CONV E R S I 3 7 j!' P R I NT " 4 O N " : P R I NT 3 8 j!' P R I NT " 5 Q U I T " : P R I NT 3 9 1!' I N PUT " WH I C H DO YOU WAN T " ; Q 4 00 I F Q < l O R Q > 5 GOTO 3 2 0 410 I F Q=5 THEN 460 ELSE 420 4 2 0 O N Q G O S U B 6 3 0 , 9 8 0 , 1 1 5 1!' , 1 4 4 0 4 3 l:J P R I N T " E N T E R < M > FOR T H E M E N U" 4 4 l:J I N PUT " P R E S S < E N T E R > I F F I N I SHED " ; Q$ 450 I F Q $ = " M " THEN 3 2 0 4 6 1!' P R I N T " GO O D B Y E FOR NOW " 4 7 j!' DATA A P P L E , 2 6 5 0 l:J , B L A C K A S H , 1 9 l j!' l:J , WH I T E AS H , 2 3 6 l:J0 4 8 0 DATA A S P E N , 1 4 7 00 , BAS SWOO D , 1 3 5 l:Jl:J , B E E C H , 2 4 000 4 9 0 DATA PAPER B I RC H , 2 0 3 l:J 0 , Y E L LOW B I R C H , 2 3 6 1:J0 , B OX E L D E R , 1 7 9 0 0 5 0 l:J DATA C E D AR , 1 2 2 0 l:J , C H E R R Y , 2 0 0 0 1:J , COTTONWOO D , 1 3 5 0 0 510 DATA ELM , 1 9 5 00 , F I R , 1 4 300 , H A C K B E R RY , 2 0 8 0° 0 5 2 0 DATA H E M L OC K , 1 5 9 00 , H I C K O R Y 2 7 7 00 , H O R N B E AM , 2 7 3 0 0 I l l l:J 120 1 30 140 1 50 160 170 180 190 2 0 l:J 210 220 s 2 3 1!' REM REM REM REM REM REM REM REM REM REM REM R EM REM F I REWOOD C O S T P ROG RAM D . BAKER 1983 T R S - 8 0 COLOR C O M P U T E R Q , Q $ = U S E R RESPONSES W $ = I N P U T , WOOD T Y P E P = I N P U T , WOOD P R I C E N $ = DA T A , WOOD T Y P E H = DATA , H E AT VA L U E X = H EAT V A L U E O F OAK C = C A L C U L A T E D WOOD COST E = H EAT IN K I LOWATT HOUR G = H EAT IN C U B I C F E E T O F NATURAL G A S A $ ( L ) = D AT A , NON -WOOD S O 240 REM URCE 2 50 REM R ( L ) = D ATA , NON -WOOD S O U R CE 2 6 1!' R E M U $ ( L ) = DATA , NON -WOOD S O URCE 270 REM V = C A L C U L A T E D NON -WOOD Q UANT I T Y 2 8 l:J R E M Y = FOR-NEXT VARIABLE 299 REM 3 j!' l:J P = 0 : H = 0 : C = l:J : E = 0 : G = 0 3 1 0 D I MA $ ( 1 2 ) , R ( l 2 ) , U $ ( 1 2 ) 3 2 0 CLS 3 3 0 P R I NT T A B ( l 3 ) " M E N U " : P R I N T C A L C U L AT I O N " : P R I 3 4 0 P R I NT " l 50 HOT Coco November 1 985 Modifying the Program If oak is not a common firewood in your area, you might want to choose another stan dard for comparison. Select a wood that is widely enough used that the price does not vary between suppliers. If. for example. you live in an area where maple is the standard and you know (or find out) that it is all from one of the hard species like sugar maple, list lines 4 70-5 70 to find the data entry for hard maple. Substitute the ba sic heat value for hard maple (24,000) in the equation. X 25.000. in line 760. Edit line 820. deleting "oak" and replacing it with "hard maple." The program will then use ma ple as the standard for comparison. You might also want to change the explanatory subrou tine (option 3) to reflect your modification. You can add another kind of wood or non wood fuel to option 2. To add a wood source. you must know the total heat value of a cord of that wood in thousands of BTUs. (If the value is given in millions of BTUs. move the decimal point three places to right: 26.5 mil lion BTUs equal 26.500 thousand BTUs.) In sert your data pair-wood . BTUs-in the DATA statements anywhere before the stop. If you insert it after this marker. your data will be treated as nonwood data. The nonwood data is organized in sets of = three. The first item is the fuel source. the second is the heat value in thousands of BTUs per chosen unit. and the third is the unit used to figure the total heat value. For example. kerosene has a total heat value of 1 35.000 BTUs per gallon. so the data for ker .. osene would read. " KEROSENE. 1 35.gallon . You can place nonwood data anywhere be tween the stop entry for wood and the stop entry for nonwood (XXXX , 00,XX). Keep in mind that placement of the new data deter mines where it will be displayed by line 1 5 10. In addition. you have to allow for in creases in the number of nonwood sources in lines 3 10. 1 470. 1 500. and 1 520- 1 550. As written. the program uses about 6.600 bytes. To run the program In Color Basic. change the LINE INPUT statement in line 640 to an INPUT statement. Be careful when typing in the program and answering the prompts-I have included only minimal error checking. If you have problems with the program. please write to m e . enclosing a self-addresse d . stamped envelope fo r m y reply. • Barr, E.M . The How-To Book for Woodcutters. EMBAR Endeavors. Entre Nous Inc .. 1 980. . The Family Handyman magazine (ed.). Heat ing with Wood. Butterick Pub .. 1978. Vivian. John. Wood Heat, Rodale Press. 1976. Table I. Bibliography Address correspondence to Delbert A. Baker. 4780 Christopher Ave .. Albany. OR 9732 1 . 5 3 0 D A T A H A R D MAP L E , 2 4 0 0 l:J , S O F T MA P L E , 1 8 7 0 0 , OAK , 2 5 0 0 0 5 4 0 DATA J A C K P I N E , 1 7 1 0 0 , N O RWA Y PINE, 1 7 1 00 , W H I T E P I N E , 1 4 3 l:J 0 5 5 0 DATA S P R U C E , i 5 9 0 0 , T A M A R A C K , 2 j!' 8 l:J 0 , A L D E R , 1 5 8 0 0 5 6 j!' D A T A DOUG L A S F I R , 1 7 6 0 l:J , L A R C H , 2 0 8 l:J 0 , P O N D E RO S A P I N E , 1 8 1 0 0 5 7 0 DATA R E DWOO D , 1 8 3 00 , S T O P , 0 0000 5 8 0 DATA A N T H RAC I T E COA L , 2 3 0 l:J0 , TON , H I VOLAT I L E B I T UM I N O U S COA L , 2 2 000 , TON , L� VO LAT I L E B I T U M I N O U S COAL , 2 8 6 0 l:J , TON 1 5 9 0 DATA L I G N I T E COA L , 1 3 8 0 0 , T O N , NO . l F U E L O I L , 1 3 5 , G A L , N0 , 2 F U E L O I L , 1 1 0 , GAL 6 0 0 DATA K E ROS E N E , 1 3 5 , G A L , P R O P A N E , 9 1 , G A L , N A T U R A L GAS , 1 , C UBIC FEET 6 1 0 DATA C H A RCOA L , 1 3 , L B , E L E C T R I C I T Y , 3 . 4 1 3 , KWH , X X X X , 0 0 , X X 6 20 END 630 CLS 6 4 l:J L I N E I N PUT " WH I C H WOOD DO YO U WANT TO BUY ? " ; W$ 6 5 0 P R I NT 6 6 0 READ N$ , H 6 7 0 I F N $ = " S TOP " T H EN 9 1 0 6 8 0 I F N $ =W $ T H E N 7 0 0 6 9 0 GOTO 6 6 0 9 S S I F L E FT $ ( Q $ , l ) = " Y " T H E N 9 8 S ELSE RETURN 96S R ETURN 97S R E M D I S P LAY WOOD D A T A 9 8 S C L S : P R I NT " H E R E I S A L L O F MY WOOD DATA . " 9 9 S F O R Y = l T0 7 S S : N E X T Y i n s P R I NT l S l S C L S : P R I NT " WOOD T Y P E " , " M I L L I ONS O F BTU " 1 S 2 S P R I NT " - - - - - - - - - - - - - - - - - - - - 7 S S R E ST O R E 7 1 S P R I NT " WHAT I S T H E A S K I NG P R I CE P E R " 7 2 S I N P U T " CO R D I N WHOLE D O L L A R S ONLY " ; P 7 3 S P R I NT 7 4 S P R I NT " YOU E N T E R E D $ " P ; : I N PU T " R I G H T ( Y/ N ) : " ; Q $ 7 S S I F L E FT $ ( Q $ , l ) = " N " T H E N 7 1 S 7 6 S C L S : X = 2 S f)fJS 77S C = I NT ( ( P * X ) / H + . S ) 7 8 S E = I NT ( H/ 3 . 4 1 3 ) : G = H 7 9 S P R I NT " A CORD O F " ; W$ a s s P R I NT " AT $ " ; P ; " P E R COR D " B l S P R I NT " WO U L D B E E Q U I VA L ENT T 0 P AY I NG " 8 2 S P R I NT " $ " ; C ; " F O R A CORD O F 0 AK . " 8 3 S P R I NT 8 4 S P R I NT " FO R A CORD OF " ; W $ a s s P R I NT " TOTAL AVA I LA B L E H E AT P E R CORD " : P R I NT " I S " ; H / l S S S ; " M I L L I ON B T U " 8 6 S P R I NT " E Q U I VA L E N T K I LOWATT H O U R S OF E L ECTR I C I T Y A R E " ; E 8 7 S P R I NT " EQ U I VA L E NT C U B I C F E ET O F N A T U R A L G A S ARE " ; G B B S P R I NT : P R I NT 8 9 S R ET U R N 9SS R E M NOT IN DATA 9 l S R E S 'r O R E 9 2 S P R I NT " I DO N O T H AV E T H AT W O O D D AT A " 9 3 S P R I NT " T RY O N E F ROM MY DATA D I S PLAY " 9 4 S I N P UT " DO YOU WANT TO S E E I T ? ( Y/N ) " ; Q $ Circle Reader Service card #301 BA S I C •ASATCHlfARE b e l l e v e e rlght raet to use a l l machine 64k o r language • l c r o proceeso r . That developed. n. r e Here - Progra111e or tor Fu l l can use large RAN ls u!lere o f le uee programming •hy the BASIC the reaeone all 64k or or Point and Full - BASIC eource sequen t i a l - Mi\ny and the in full coinpl l e r , that the called •ake deserve compu t e r , po t e n t i a l or the and have t h e 6809 M.LB A S I C •as t h i s complier one or t h i s 111a ga z l n e : RAN for variables a r l t h•e t l c 11ore and independant direct M.L. ne" c o111111a nds expand program for l i ke with storage A. { 20000) t u n c t lons e t ru c t u r e d p r o g r a m development acce•• d i e k o u t put t ho t e i t he r and a r r a y s ei:preaelone - SUBROUTINE and CALL command!! a l lo•e - t he Color Compu t e r avai lable t ha t some o r nu111 b e [" !l Floating C O MP IL ER t ha t programs t h e b e a t b a r lif a l n a i n - that 1S3S FOR Y=l TO 12 l S 4 S R EA D N $ , H l S S S I F N $ = " STOP " T H E N l l SS 1 S 6 S P R I NT N $ , H / 1 SS S l S 7 S N E XT Y l S B S I N P UT " P R E S S < E N T E R > TO CON T I N U E " ; Q$ 1 S 9 S GOTO l S l S l l f)fJ P R I NT l l l S P R I NT " T HAT I S A L L MY F I R E W OOD DATA " l l 2 S R E ST O R E 1 1 3 S RETURN 1 1 4 S R E M E X P LA N A T I O N l l S S C L S : P R I NT " T H I S P ROGRAM WAS W R I TT E N IN OR EGON W H E R E OAK IS MOSTLY THE STANDARD F I R EWOO D. " 1 1 6 S P R I NT " SO , T H I S P ROGRAM COM P A R E S T H E H EAT V A L U E OF THE WO OD I N Q U E S T - I ON W I T H OAK . " ; 1 1 7 S P R I NT " W H E N A S K E D , E N T E R T H E K I N D OF WOOD T HAT YOU WANT T 0 C O M P A R E A N D T H E P R I C E T H AT I S B E I NG A S K E D F O R IT P E R CORD . " f i l es 1/0 t o d i s k , your a l lowed tape pro1ra1U1in1 o r ae•ory c-apabi l l t y Commands S uppo r t ed 1. 2. 3. .. I/0 -Commands CLOSE CLOADN F I ELD DSKOS LSET OPEN CSAVEM F I LES PR I NT Program Control Commands EXEC END CALL IF GOTO GOSUB STOP RETURN ON • • GO Ma t h Funct lone ASC ABS EXP FIX LOF LOC SIN SGN ATN INSTR PEEK SQR S t r 1 n& Fu net iona LEFT$ I NKEYS CHRS STR� STR I NG$ 5 . G r a p h i c/Sound Commands COLOR PCLEAR RESET CLS PCLS SCREEN C I RCLE PLAY SET DIR GET PUT DR I V E I NPUT RSET STEP FOR ELSE TllEN SUBROUT I NE cos CVN 1 64K R equ i red DIN RESTORE I BSHFT SREG L L I ST RUN LREG SWP DON ' T HES I TATE • • • 943-6263 EOF LOG T I NER RND VAL M I D$ NKN$ R I GHTS DRAW PNODE SOUND LINE PRESET PA I NT PSET NOTOR TAB PCOPY VECTD POKE VER I FY PNODD VECTI READ OLD PTV LEN PPOINT BUY NLBA S I C TODAY 7350 W asatch W a re Salt Call ( 80 1 ) Disk - $ 6 9 . 95 Tape - $ 6 9 . 9 5 Both - $74 . 95 NEXT ERROR INT POINT TAN 6 . O t h e r/Spec i a l Commands DATA REN DST REAL OSK ! $ K I LL Nut ree Drive Lake C i. t y , Utah 84 1 2 1 I n c l ude $ 4 . 00 S h i nn i n� and Hand l i n� U t a h r e s i d e n t s add 5 . 7 5 3 t a x C h e c k or M o n e y Orders On l y ( No C . O . D . ) l l B S P R I NT " I W I L L T H E N COMPA R E THE H E AT VALUES A N D R ET U R N MY A N S W E R AS ACOST FOR A CORD O F 0 AK . 1 1 9 S P R I NT 1 2 f)fJ P R I NT 1 2 1 S I N PUT " P R E S S < E NT E R > TO CON T I NU E " ; Q 1 2 2 S C L S : P R I NT 1 2 3 S P R I NT " F OR E X A M P L E , I F YOU E N T E R ' F I R ' AND $ S S P E R COR D , I W I L L A N S WE R : " 1 2 4 S P R I NT 1 2 S S P R I NT " A CORD OF F I R " 1 2 6 S P R I NT " AT $ S S P E R CORD " 1 2 7 S P R I NT " WO U L D BE E Q U I VA L ENT TO P A Y I NG " 1 2 8 S P R I NT " $ 8 7 F O R A CORD O F QA K. • 1 2 9 1J P R I NT 1 3 S S P R I NT " I W I L L A LSO P R I NT T H E TOTA L H EATVA L U E OF A C O R D OF T H E WOOD I N " 1 3 1 S P R I NT " Q U E S T I ON I N K I LOWATT HOURS A N D IN C U B I C F E ET OF NAT U R A L G AS . " 1 3 2 S I N PUT " P R E S S < E NT E R > TO CON TINUE" ; Q 1 3 3 S C L S : P R I NT 1 3 4 S P R I NT " F O R A CORD OF F I R " 1 3 S S P R I NT " TOTAL AVA I L A B L E H EA T P E R CORD I S 1 4 . 3 M I L L I ON BTU " 1 3 6 1J P R I NT " E Q U I VA L E N T K I LOWATT H O U R S OF E L ECTR I C I TY A R E 4 1 8 9 " 1 3 7 S P R I NT " E Q U I VA L E N T C U B I C F E ET OF NATURALGAS ARE 1 4 3 SS " listing continued LOOK BEST PRICE BEST SELECTION BEST DELIVERY BEST SERVICE RADIO SHACK COLOR COMPUTER AND IBM PC/PCjr. CALL: sortwa�re m� Connec1ion� 4301 N . State Rd. #7 Lauderdale Lakes, FL 3331 9 305-484-7 547 November 1 985 HOT Coco 51 1 3 8 _0 P R I NT 1 3 9 _0 P R I NT " I L EAVE A N Y E F F I C I EN CY OR E L E C T - R I CA L COST C A L C ULAT I ONS TO YO U . " 1 4 .0 .0 P R I NT " I R E A L L Y DON ' T H AVE ROOM FOR A L LOF T H E DATA T H A T WOU LD R E Q U I R E . " 1 4 1 .0 I N P U T " P R E S S < E N T E R > TO CON T I NU E " ; Q 1 4 2 .0 R E T U R N 1 4 3 .0 R E M G E N E RA L CONVE RS I ON ROUT INE 1 4 4 .0 C L S : R E A D N $ , H 1 4 5 .0 I F N $ = " S TOP " T H EN 1 4 7 _0 E L S E 1 4 4 .0 1 4 6 .0 GOTO 1 4 4 _0 1 4 7 .0 F O R Y = l TO l l : R E A D A $ ( Y ) , R ( Y ) , U $ ( Y ) : N EXT Y 1 4 8 .0 R E ST O R E 1 4 9 .0 C L S : P R I NT T AB ( 4 ) " NON -WOOD H EAT SOURC E S " : P R I NT 1 5 .0.0 FOR Y = l TO 1 1 1 5 1 _0 P R I NT Y ; TA B ( 4 ) A $ ( Y ) : N E X T Y 1 5 2 .0 P R I N T " 1 2 CONVE R S I O N E X P L AN A'f I O N " 1 5 3 _0 P R I NT : I N PUT " W H I C H O N E ( l - 1 2 ) " ;Q 1 5 4 _0 I F Q= 1 2 T H EN 1 8 1 _0 E L S E 1 5 5 _0 1 5 5 .0 I F Q < l O R Q > l l T H E N 1 4 9 _0 E L S E 1 5 6 .0 1 5 6 .0 L = Q 1 5 7 .0 CLS : P R I NT " YOU S E L E C T E D : " : P R I NT A$ ( L ) 1 5 8 _0 I N PUT " C O R R E CT ( Y / N ) " ; Q $ 1 5 9 _0 I F L E F T $ ( Q $ , l ) = " N " T H E N 1 4 9 .0 E L S E 1 6 _0 _0 1 6 .0 .0 P R I NT : P R I NT " CO M P A R E D TO W H I C H WOO D " : I N P TW$ 1 6 1 .0 R E A D N $ , H 1 6 2 .0 I F N $ = " S TOP " T H E N 1 9 5 .0 E L S E 1 6 3 .0 1 6 3 _0 I F N $ =W$ T H E N 1 6 5 _0 E L S E 1 6 1 .0 1 6 4 .0 GOTO 1 6 1 .0 1 6 5 _0 R E STORE : M = H / R ( L ) : I F U $ ( L ) < > " TON " T H E N V= I NT ( M + . 5 ) : GOT01 6 7 .0 1 6 6 _0 V= I N T ( l .0 .0 * M ) / l .0 .0 1 6 7 .0 C L S : P R I NT : P R I NT 1 6 8 .0 P R I NT " ON E CORD OF " ; N $ 1 6 9 _0 P R I NT " I S E Q U I VA L ENT T O " 1 7 .0 .0 P R I NTV ; U $ ( L ) ; " O F " 1 7 1 _0 P R I NT A $ ( L ) 1 7 2 .0 P R I N T " FOR A TOTAL H E AT CONT ENT O F " 1 7 3 .0 P R I N T H / l .0 .0 .0 ; " M I L L I ON B T U " 1 7 4 _0 P R I NT " AT 1 _0 _0 % E F F I C I ENC Y " : P R I NT 1 7 5 _0 P R I NT " E N T E R < M > TO R E T U R N T 0 THE MENU" 1 7 6 _0 P R I NT " E N T E R < C > F O R A N E W C A L C U LAT I ON " 1 7 7 .0 I N P U T Q $ 1 7 8 _0 I F Q $ = " M " T H EN 3 2 _0 E L S E 1 7 9 .0 1 7 9 .0 I F Q $ = " C " T H E N 1 4 4 _0 E L S E 1 7 7 .0 1 8 .0.0 R E M G E N E R A L CONV E R S I ON NOTE s 1 8 1 .0 C L S : P R I N T " T H I S ROUT I N E WILL MAKE A COM P A R I SON O F A C O R D OF ANY T Y P E O F WOOD I N MY DAT A TO ANY O F T H ENON -WOOD H E AT SOU RCES I N MY DAT A " 1 8 2 _0 P R I NT " ! W I L L L I ST A L L O F MY STOCK & FUND INVESTING with the TRS-80* COLOR COMPUTE R USE FUNDGRAF AND FUNDFILE MOVING? SUBSCRIPTION PROBLEM? FUNDGRAF is a stock market analysis program that not only graphs and analyzes funds or stocks, but also makes decisions on when to BUY and SELL. ...... Improve market timing using your COCO. ,._ G R A P H S fund's progress ( u p to 200 weeks). SUPERIMPOSES for comparison: a line of constant percent growth or a graph of any other fund (or stock). CALCULATES over any time span: the percent price change and the moving average (any span). INDICATES BUY and SELL signals. FUNDGRAFrequires 16 K ECB min. . . . . . . $49.95 16/32 K Tape 1 6132 K..5 in. Disk . . . . . $69.95 ADD $2 handling on all orders. ...._ ., ...,_.. ,.. __,,,_....----· F L S D G R A F - A STOCK � A R K F. T A S A L Y S l S PROGRA� F O R 1 6 K E X T RS ;, o COLOR CO�I P L ' T E R /" i..-:;a :; ��;;.;;2��:::;-;]..=l ; t- FUNDFILE is a portfolio and account management program for securities. Manage single or multiple portfolios of stocks, mutual funds, bonds, money market funds, etc. FUNDFILE allows easy maintenance of all your records for accurate portfolio evaluation. NEW 32 K VERSION ofFUNDFILE summarizes all transactions (dividends, interest, purchases and sales) between any two dates of your choice - weekly, yearly, etc. Categorizes interest and dividends paid as to tax liability (tax free, etc.) and capital gains as long or short term. Great for tax reports. FUNDFILE REQUIRES 16 K ECB min. and 80-COL PRINTER. 5-in. Diskette only for 16 K ECB .................. 5-in. Diskette only for 32 K ECB . . . .......... . ADD $2 handling on all orders. $27.95 $37 .915 NON -WOOD DATA AND YOU C H O O S E T H E O N E YOU WANT TO K NOW A B O UT . 1 8 3 .0 P R I N T " T H E N I W I L L A S K W H I C H WOOD YOU WANT T O C O M P A R E A N D W H E N YOU E N T E R A WOOD F ROM MY DATA TABLE I W I L L C A L C U LA T E T H E AMOUNT O F " 1 8 4 .0 P R I N T " T H E NON -WOOD S O U R C E T HAT I S E Q U I VA L E N T TO O N E COR D OF THE C H O S E N WOOD . " 1 8 5 .0 I N P U T " P R E S S < E NTE R > TO CONT INUE " ; Q 1 8 6 _0 C L S : P R I N T : P R I NT " FOR E X A M P L E : " : P R I NT 1 8 7 _0 P R I N T " S AY YOU WANT TO K NOW HOW M U C H A N T H R A C I T E COAL YOU C AN R E P LA C E W I T H A CORD OF OA K . " 1 8 8 .0 P R I N T " YOU S E L E CT A N T H RAC I T E COAL F ROM T H E L I S T A N D E NT E R Q A K A F T E R T H E P ROMPT . I WILL THEN RETURN : " 1 8 9 .0 P R I N T : P R I NT " O N E CORD O F O A K I S E Q U I VA L ENT T O " 1 9 .0 .0 P R I N T " l . _0 8 T O N O F ANT H R A C I T E COA L " 1 9 1 .0 P R I NT : P R I NT " P R E S S A N Y K E Y " 1 9 2 .0 Z $ = I N K E Y $ : I F Z $ = " " T H EN 1 9 2 .0 1 9 3 .0 GOT0 1 4 4 .0 1 9 4 .0 R E T U R N 1 9 5 _0 R E ST O R E 1 9 6 _0 P R I N T " ! DO NOT H AV E T H A T WO OD DATA " 1 9 7 _0 P R I NT " T RY O N E F ROM MY DATA D I S P LAY " 1 9 8 .0 I N P UT " DO YOU WANT TO S E E I T ( Y/N ) " ; Q $ 1 9 9 _0 I F L E FT $ ( Q $ , l ) = " Y " T H E N 9 8 .0 END E L S E RETURN Get help with your subscription by call ing our new toll free number : 1 · 800 227 5782 · · between 9 a . m . and 5 p . m . EST, Monday-Friday. If possible, please have your mailing label in front of you as well as your cancelled check or credit card statement if you are having problems with payment . Write for free brochure for details. Circle Reader Service card #320 PARSONS SOFTWARE , DEPT. H 1 1 8 WOODSHIRE DRIVE PARKERSBURG, WV 2 6 1 0 1 52 HOT Coco November 1 985 If moving, please give both your old address and new address. M ath Invasion is an arcade-style drill and-practice program for addition, , subtraction.multiplication, and division. You can tailor the program to meet the needs of all students-from beginners who need to practice 2 + 2 to more advanced students who can cope with 970 + 5. Be cause the response time is limited, stu dents can't work problems out on paper. So, Math Invasion gives them a chance to practice "mental arithmetic," too. Program Operation At the opening of the program, the super visor must establish game parameters. The first determines the operations that the game will test. The menu offers you five choices: addition, subtraction, multiplica tion, division, and continue. When you press a number from one to four, the cor responding mathematic symbol appears below the menu. You can enter a single symbol or any combination of symbols. The more frequently you press a particular number, the more often that operation will be tested. Press 5 (continue) when you are ready to set further parameters. The program then asks you to Input the number of problems needed to complete a game and lets you choose the numeric range of the question: 1 -9, 1 -99, or 1 -999. The program randomly generates the problems' X and Y values so that these values and the answer fall within the range you have cho sen. The game speed you select-fast, mod erate, or slow-Influences the time alotted for a response and thus controls the speed of the Invader. At the continue/redo prompt. press C to bring up the next prompt or R to change the parameters. Press any key to begin the game. A prob lem appears at the top of the screen, and an lnyader ·descends toward the student's base at the bottom. (The base is always di rectly beneath the Invader; no maneuver ing is necessary . ) lf the student types in the correct answer and presses the enter key, System Requirements 16K RAM for cassete t systems 32K RAM f� disk systems Extended Color Basic or Disk Extended Color Basic the base fires, destroying the Invader. If a wrong answer is given, the alien continues downward. . The student .may attempt to answer the question again. If the problem has not been solved correctly by the time the Invader gets to the base, the base explodes and the computer records the question as an Incor rect response. Students should be encouraged to type multiple digits slowly and accurately; the\e is ample time to answer each problem. The answers to questions are whole numbers, so students are not required to type frac tions or decimals. When the student has had the opportu nity to answer the appropriate number of questions, the program displays a game over message. a final score, and a rating of the student's performance. The ratings are designed to encourage students who have done poorly and reward students who have done well. • Address correspondence to Simon Clift, P.O. Box 787, Kincardine, Ontario, NOO 2GO, Canada. November 1 985 HOT Coco 53 Program Listing. Math Invasion 10 I MATH ' VA D E R S 20 1 BY S I MON C L I F T 30 P C L E A R l : C L E A R 4 0 0 4 0 C L S 0 : P R I NT@ 2 2 4 , " * * * * * * * * * * M AT H ' VA D E RS * * * * * * * * * * " 50 P R I NT @ 2 5 6 , " * * * * * * * * * B Y S I MON C L I FT * * * * * * * * * " ; 60 POKE6 5 4 9 5 , 0 7 0 P L AY " V 3 1 T 5 L 4 0 2 F B - 0 3 D F L 8 F F L 4 F D L 8 D D L 4 D L 4 0 2 B -0 3 D0 2 B - L 2 F " 80 C L S l : P R I NT " WO U L D T H E S U P E R V I S OR P L E A S E ENTER THE GAME PAR AMETERS NOW. . . " 90 P R I NT " ! . A D D I T I ON " : P R I NT " 2 . S U B T R ACT I ON " : P R I NT " 3 . M U L T I P L I CAT I O N " : P R I NT " 4 . D I V I S I ON " : P R I NT " 5 . CONT I N U E " : P R I NT " S E L E C T T H E O P E R A T I ONS I ' L L U S E , T H E M O R E O F T E N Y O U ENT E R O N E , T H E M O R E O F T E N I ' L L USE I T . . . " 1 00 OP $ = " " 1 1 0 P R I NT @ 3 5 4 , 0P $ + " ? " + C H R $ ( 8 ) + " " +C H R$ ( 8 ) + " ? " : X $ = I N K E Y $ : I F X $ = " " THEN 1 1 0 1 2 0 I F X $ = C H R $ ( 8 ) A N D L E N ( OP $ ) > 0 T H E N O P $ = L E F T $ ( 0P $ , L E N ( OP $ ) - l ) 1 3 0 I F X $ = " 1 " T H E N O P $ = 0P $ + " + " E L S E I F X $ = " 2 " T H E N O P $ = 0P $ + " - " E L S E I F X $ = " 3 " T H E N O P $ =0P $ + " * " E L S E I F X $ = " 4 " T H E N OP $ =0P $ + " / " E LSE I F X $ = " 5 " THEN 1 6 0 1 4 0 GOTO 1 1 0 1 50 I F O P $ = " " THEN 1 1 0 1 6 0 P R I NT @ 4 1 6 , ; : I N P UT " N U M B E R OF Q U E S T I ON S " ; NQ 170 IF NQ < l T H E N 1 6 0 1 8 0 CLS : P R I NT " E N T E R RANG E O F NU M B E R S TO B E U S E D OR P RODUC E D : 1 9 0 P R I NT " ! . l - 9 " : P R I NT " 2 . 1 - 9 9 " : P R I NT " 3 . l - 9 9 9 " : P R I NT " S E L E CT OP T I ON : " ; v 200 X $ = I NK E Y $ : I F X $ = " " T H E N 200 E L S E I F X $ < " 1 " OR X $ > " 3 " T H E N 2 0 0 E L S E P R I N T X $ : FOR I = l T0 5 0 0 : N E X T I 2 1 0 N R = I NT ( 9 . 9 9 * 1 0 � ( VA L ( X $ ) - l ) ) 2 2 9 P R I NT : P R I N T " ENT E R G A M E S P E E D : " : P R I NT " ! . FAS T " : P R I N T " 2 . MO D E R AT E " : P R I NT " 3 . S LOW " : P R I N T " S E L E C T . " . Z 30 X $ = I N K EY $ : I F X $ < " 1 " OR X $ > " 3 " T H E N 2 3 9 E L S E P R I NT X $ : FOR I = l T O 5 9 9 : N EX T I : G S =VAL ( X $ ) 2 4 9 P R I NT : P R I N T " DO YOU WI S H TO C ( C/ R ONT I N U E OR R E D O ? ) " 250 X $ = INKEY$ : I F X $ = " R " THEN 89 ELSE I F X $ < > " C " THEN 259 2 6 9 C L S 0 : F O R I =9T06 : P R I NTST R I NG $ ( 6 4 , 1 2 8 + I * l 6 ) ; : NEXTI : BX = 3 2 : SC=9 : G O S U B 5 8 9 : C N = 9 : P R I NT @ 9 , " P R E S S A N Y K E Y TO START . . . " ; 2 7 0 I F I N K E Y $ = " " T H EN 2 7 9 2 8 9 P L AY " T 5 L l 5 0 2 C E G C E G ECG " : O $ = M I D$ ( 0P $ , RN D ( L E N ( OP $ ) ) , 1 ) 2 9 9 I F 0 $ = " + " T H E N A N = R N D ( N R ) : A = RN D ( AN ) : B = A N - A 3 9 0 I F 0 $ = " - " T H E N A = RN D ( N R ) : B = R N D ( A ) : AN = A - B 3 1 9 I F 0 $ = " * " T H E N A = RN D ( I NT ( S QR ( N R ) ) ) : B = R N D ( I NT ( SQ R ( N R ) ) ) : AN = A * B 3 2 9 I F 0 $ = " / " T H E N A N = R N D ( I NT ( S Q R ( N R ) ) ) : B = R N D ( I NT ( SQ R ( N R ) ) ) : A = A N * B 3 3 9 P R I NT @ 0 , " S OLV E : " ; A ; 0$ ; B ; " = ? " OS-9™ SOFTWARE/HARDWARE SDISK-Standard disk driver modu le, allows the use o f 40 and 80 t rack double sided drives with COCO OS·9, plus reads/writes format used by other OS-9 systems. $29.95 SDISK + BOOTFIX-To boot f ro m a DOU B L E sided disk $29.95 PC·XFER- Read/write ss MS-DOS™ diskettes under CoCo OS-9, requ i res SDISK. $45.00 CCRD 512K Byte RAM DISK CARTRI D G E - Req u i res RS M u l t i pak i n terface; with software below c reates OS-9 RAM disk device. $298.00 CCRDV-OS-9 Driver software for above. $20.00 Terms: Prepaid Check, MO, VISA/MC; add $1.50 S&H for software, $5.00 for CCRD. COD actual c harges added. Send SASE for latest catalog. D.P. Johnson 7655 S.W. Cedarc rest St. Portland, OR 97223 (503) 244-8152 (We prefer your cal l i ng 9-1 1 AM Pac 1 f 1 c Ti me.) OS-9 is a trademark of Microware and Motorola Inc. MS·DOS is a trademark of Mic rosoft, Inc. Tel l them , "I saw it i n HO T CoCo! " HO� Advert isers play a major role in our presentation of CoCo e�c h month. Not only have they invested enormous time and effort mto the_ir products. HOT CoCo making life with your CoCo more � but they literally make the magazine possible each mon t h . Without them t here are no magazines like HOT CoCo is working for everyone. Tell them . productive. When you order products from our advertisers. please m n tion HOT CoCo! us. It lets them know it in 54 HOT Coco .. Thanks. November 1 985 I saw 3 4 9 A N $ = " " : I Y = 6 : CN = C N + l : G O S U B 6 0 ' 3 5 0 FOR I = l TOG S * 3 9 : X $ = I N K E Y $ : I F X $ = " " THEN 3 6 9 ELSE I F ( X$ > = " 9 " A ND X $ < = " 9 " ) 0 R X $ = C H R $ ( 1 3 ) OR X $ = CHR$ ( 8 ) T H E N 4 3 9 369 NEXTI 3 7 9 D = RN D ( 3 ) - 2 : I F B X < 5 T H E N D = l ELSE IF BX > 2 7 THEN D=-1 3 8 9 GOSU B 5 9 9 : GOSU B 6 1 0° : B X = B X + D : I Y = IY+2 3 9 9 GOS U B 5 8 0 : GOSU B 6 9 0 499 IF I Y= 3 9 T H E N 4 8 0 4 1 ' SOU N D ! , 1 4 2 9 GOTO 3 5 9 4 3 9 I F X $ > = " 9 " T H EN A N $ = A N $ + X $ : P R I NT @ 2 3 , A N $ ; : GOTO 3 5 9 449 IF X$=CHR$ ( 1 3 ) THEN IF VAL ( A N $ ) = A N T H E N P R I NT @ l 9 , AN $ ; : P R I NT @ 2 3 , " R I G H T ! ! ! " ; : GO S U B 5 7 9 : S C = SC+ l : P L AY " L 2 5 5T 2 5 5 0 4 C D E F G A B B AG F E D C " : GO S U B 6 1 9 : GOT04 7 0° E L S E P R I NT @ 2 3 , " WRONG " ; : P LA Y " T 3 L l 0 1 C " : AN $ = " " : P R I NT @ 2 3 , " " ; : GOTO 3 5 9 4 5 9 I F X $ =CHR$ ( 8 ) AND LEN ( AN$ ) >0 T H E N AN $ = L E FT $ ( A N $ , L E N ( A N $ ) - l ) : P R I NT @ 2 3 , A N $ + " " 4 6 9 GOTO 3 5 9 4 7 9 I F CN=NQ T H E N 4 9 9 E L S E 2 8 9 4 8 9 GOSUB 6 2 0 : P R I NT @ l 9 , AN ; " I S R I G HT " ; : P L A Y " L 4 T 4 0 2 C E - C E - C E - C E - " : F O R I = l TO 1 99 9 : N E X T I : I F C N < NQ T H E N 289 4 9 9 P R I NT @ 2 6 8 , " GA M E OVE R " ; : P LAY " L 2 9 T 5 0 5 B AG F E DC0 4 B A G F E DC 0 3 B AG F E D C 0 2 BAG F E D C0 1 B AG F E 9 C " 5 9 0 C L S : P R I NT " O . K . YOU SCOR E D " ; S C ; " R I G HT " : P R I NT " O UT OF " ; NQ ; " . " : P R I NT " T H A T I S " ; I N T ( l 0 0 * ( SC/NQ ) ) ; " P E R C E NT . . . " 5 1 0 I F S C / NQ < . 5 T H E N R $ = " YOU N E E D T O C H E C K U P O N HOW T O DO THE Q U E S T I O N S ; T H E N P RA C T I C E AGA I N . " 5 2 9 I F SC/NQ > = . 5 A N D SC/N Q < . 6 5 T H E N R $ = " YOU N E E D M O R E P R ACT I C E , BUT T H ATWASN ' T TOO B A D . " 5 3 9 I F SC/NQ > = . 6 5 A N D S C / N Q < . 8 5 T H E N R $ = " VE R Y GOOD , BUT YOU S T I L L COU L D U S E A B I T MORE P RACT I C E AT T H I S LEVEL . " 5 4 9 I F SC/NQ > = . 8 5 T H E N R $ = " E X C E L L E NT ! ! MOVE U P A LEV E L , YOUK NOW WHAT YOU A R E DO I N G ! ! " 5 5 9 P R I N TR $ : P R I N T @ 4 4 8 , " P R E S S ' * ' TO R E S ET L E V E L O R ' P ' TO P L A Y A GAIN . . . " ; 5 6 9 X $ = I NK E Y $ : I F X $ = " " T H E N 5 6 9 ELSE IF X $ = " P " THEN 269 ELSE I F X $ = " * " THEN RUN ELSE 5 6 9 5 7 9 FO R I = 2 8 T O I Y - 2 S T E P - l : R E S ET ( B X + 3 , I + l ) : S ET ( B X + 3 , I , 9 ) : SOU N D 2 5 5 - I * 8 , l : N E XT : FOR I = l T 0 2 0 : P L A Y " L 2 5 5 T 2 5 5 0 1 C E DG " : S ET ( B X + R N D ( 6 ) , I Y - R N . D ( 3 ) , R N D ( 8 ) ) : N E X T I : FO R I = l T06 : F OR J = l T 0 3 : R E S E T ( BX + I , I Y -J ) : N E X TJ , I : RETURN 5 8 9 FOR I = l T 0 3 : FOR J = l TO ( I + I - l ) : S E T ( 3 + B X + J - I , 2 8 + I , 5 ) : N E X TJ , I : R E T U R N 5 9 9 FOR I = l T0 3 : F O RJ = l TO ( I + I - l ) : R E S ET ( 3 + B X +J - I , 2 8 + I ) : N E XTJ / I : R ET U R N 6 9 9 F O R I = l T06 : S ET ( B X + I , I Y - I / 2 , 9 ) : S ET ( BX + 6 - I , I Y - I / 2 , 9 ) : N E X T : R E T U R N 6 1 0 F O R I = 1 T06 : R E S ET ( B X + I , I Y - I / 2 ) : R ESET ( B X + 6 - I , I Y - I/2 ) : N EXT : RETUR N 6 2 9 FOR I = l T 0 2 9 : S ET ( B X + R N D ( 5 ) , 2 8 + RN D ( 3 ) , R ND ( 8 ) ) : P LA Y " L 2 5 5 T 2 5 5 0 1 CG D F " : N E X T I : FOR I = B X TO B X + 5 : F O R J = 2 9 T 0 3 l : R E S ET ( I , J ) : N E X TJ , I : GO S U B 6 1 0 : RETURN rrt)�����m!!i!lm���- T UTORIAL .................... by David M eredith I Para e Processing with Color Logo Synchronizing multiple turtles mimics parallel processing. n ri arallel process ng is the hot test topic i n computerland these days. With CPUs as cheap as a dollar or two, it is feasible to build a computer with 10 or even 1 ,000 processors operating in parallel. These paral lel computers will vastly increase the speed of database searches and vector operations like spreadsheets and graphics. They may even achieve some of the goals of artificial intelligence, such as speech recognition and problem solving. � M ultiple-processor computers have al ready been built at Cal Tech and Columbia University, while companies like DEC, IBM, ;;: and Cray Research are known to be working � ................................... � ! ,g g .a System Requirements 1 6K RAM Color Basic Tandy Color Logo � .. 1111 == 1111: == == == == == == == == ::::1i1C == ... on similar technology. Japanese researchers are basing their Fifth Generation project on parallel computation. A recent meeting of university, government, and industrial com puter scientists reported, "We are entering a new era in very high-performance comput ing that will be dominated by parallel-archi tectured systems." (Comm. A CM, A ugust 1 984, p. 747.) Parallel processing will first appear on large, expensive mainframe computers. but It might .filter down to personal computers before long. The greatest obstacle confront ing parallel processing is designing software to take advantage of parallel hardware. Effec tive parallel algorithms are only now being developed. Programming Multiple Turtles Programming multiple turtles is like orga nizing a group of people. Each turtle is as signed a job and taught to do it. That is, each turtle is given a program to follow. You don't write a single program or a main routine with subroutines. Instead, you write a separate program for each turtle, including instruc tions for synchronizing with the other tur tles. When the overall task is set in motion, the turtles communicate with each other to coordinate their processing. In some parallel programs, the turtles talk to each other. Listing 1 contains a short ex ample of this sort. On the command RACE N, N turtles race across the screen. More pre- You and your CoCo can join the parallel processing revolution now and experiment with parallel processing using Tandy's Color Logo. Logo's multiple turtles can operate si multaneously and communicate with each other like independent CPUs. Who knows perhaps a CoCo owner wia invent a new al gorithm for the parallel hardware now being developed. Tower 1 Tower 2 Tower 3 Fig. 1 . Starting Positionfor the Towers of Hanoi with Three Rings on the First Tuwer November 1 985 HOT Coco 55 I O= l 1s t11ere a quality software paclfage that promises to give me a wide variety of easy-to-use Color Computer programs? And at a low price? I A= I Yes. instant coco Ready-to-run HOT CoCo programs on cassette! There's just no question. instant CoCo is a terrific way to build your Color Computer software library. Each month, instant CoCo brings you 8-12 to�notch, original programs from the latest issue of HOT CoCo magazine-all on one high-qualrty cassete t . Everything from action-packed games to helpful utilrties. And the cOOJ As little as $8.33 a month when you buy a one year subscription! instant CoCo is the ideal companion to HOT CoCo magazine, because ready-to-run A free bonus program in every issue! But wart, there's more! On every monthly instant CoCo cassette, you'll get one or more previously unpublished bonus programs absolutely FREE These bonus programs have never appeared in HOT CoCo. Complete instructions for the bonus programs are included. Bonus programs-one more reason why you should be getting instant CoCo each and • every monthl instant CoCo relieves you of the frustrating, time-consuming keyboarding and debugging of the published programs. Our technical edrtors have done rt all for you. You'll save hours of time and considerable aggravation! Just drop the tape into your cassette player, and get set to enjoy some great software! -------· . Supplement your library with "The Best of '84 "! Complete w�h documentation There's even a special collector's rtem edrtion of instant CoCo. "The Best of '84"29 first-class HOT CoCo programs that come through 1 984 with flying colors! Graphics. Utilrties. Games. Plus, applications for business, home, and school. "The Best of 84" is the perfect complemert to your instant CoCo library, and comes complete wrth an easy-to-use documentation booklet. Programs of outstanding variety and top qualrty. The best programs from an entire year of HOT CoCo, including: • "Stock Transactions Tracker" • " Personal Money Manager" • "Graphics Builder" Don't miss this one. Order your "Best of '84" today. OK! Send me instantcoco! To order instant Coco and "The Best of '84", just complete the information on the coupon or attached order card and drop it in the mail. For faster service, call TOLL FREE 1 -800-258-5473. In NH, dial 1 -924-9471 . VISA, Mastercard, and American Express welcome. i---------------------------------------------------------- Yes! I want instant Coco to meet my • 1 1 185 programming needs! D Please sign me up for a one year subscription for $99.97 ($8.33 per issue), beginning with this month 's issue. issue for $1 1 .47. D Please send me the Mol'lh D Please send me "The Best of 84" for $1 6.47. D Payment enclosed 0 MC D VISA D AE Card # Signature Name Address City for deive<y. irdudes postage and handling ForElgn Air Mail please add an additiOnaJ 45¢ per cassetet . or $25 per subocriplion. US funds drawn on US banks ONLY. Please aJlow 4-6 weeks Price instant CoCo 80 Pine Street • Peterborough, NH • 03458 ·----------------------------------------· · Exp. Date cisely, N - 1 turtles race and one sits up. It stops for a random length of time; then it sends a message to stop another turtle and begins running again. In other programs, a master turtle controls subordinate turtles. All communication is between the master turtle and its subordi nates. The main program in this article (List ing 2) uses a master turtle and subordinate turtles to solve the Towers of Hanoi puzzle. All rings start on tower 1 Move ring 1 to tower 3 Move ring 2 to tower 2 Move ring 1 to tower 2 Move ring 3 to tower 3 Move ring 1 to tower 1 Move ring 2 to tower 3 Move ring 1 to tower 3 The Towers of Hanoi Table I . How to Move Three Rings from Tower I to Tower 3 The ancient Towers of Hanoi puzzle con sists of three pegs or towers placed upright and a small set of rings of graded sizes. The rings are initially placed on tower 1 , with the largest on the bottom and the smallest on the top (Fig. 1). The object of the puzzle is to move the rings to tower 3. You can only move one ring at a time, and you cannot place a ring on a smaller ring. When you are done, the rings should be stacked on tower 3, with the largest on the bottom and the smallest on the top. Table 1 contains a solution to the puzzle for three rings. You can try this solution yourself. Draw three circles on a piece of paper; label them 1, 2, and 3; stack three different coins in circle 1 . Now follow the instructions in Table 1 to move the coins to circle 3. Can you solve the puzzle for four coins? How many moves does it take? How many moves does it take with four towers instead of three? Listing 2 contains a Logo solution to the puzzle using parallel processing. It displays a moving picture of the puzzle being solved. Before discussing the details of this pro gram, let's look at its underlying algorithm. Think of Table 2 as the directions for improv ing your ability to solve the puzzle. If you THE TIME MACHINE! could move three rings from one tower to an other, then Table 2 would show you how to move four rings. First, move the top three rings from the source tower to the extra tower (you already know how to move three rings). Then move the bottom ring from the source tower to the target tower (that in volves moving one ring). Finally, move the top three rings from the extra tower to the target tower (you move three rings again). Table 2 solves the puzzle completely. It solves the puzzle if there aren't any rings left (you don't do anything); it also extends the solution from any level to the next. So, it solves the puzzle for any number of rings. The algorithm in Table 2 is called recursive because it calls itself. Recursion is one of the tricks of the Logo programmer. You can read more aboutit in the Color Logo manual. pp. 4352. (See also pp. 28and l 1 6 on local variables.) Logo Solution The Logo solution to the Towers of Hanoi puzzle (Listing 2) uses a master turtle (turtle 0) and subordinate turtles. The subordinate turtles are tower turtles and ring turtles. The master turtle is controlled by the pro- Robotize Your CoCo No. Qf Drives Teac Sgl Sided Teac Dbl Sided Drlve(s) w/ Cose/Pwr Supply One lWo $ 1 59 $ 1 89 $229 $319 Systems w/ Controller/DOS One lWo $239 $279 $3 1 9 $4 1 9 Drives are pre-tested a n d ready t o p l u g i n a n d use. Options ava i lable are ADOS i n ROM , JFD-CP control ler w/printer port. HDS dual ROM controller. Horizontal case, etc . Ca l l for details. Free catalog 200 + Coco items. Circle Reader Service card #153 POLYGON COMPUTERS 1 3 1 6 Wiishire Blvd., Suite 206 Los Angeles, CA 900 1 7 (21 3) 483-8388 Ca. Res. 6'h% tax Visit our Retail Store 58 HOT Coco November 1 985 � Shipping: $2 Software Charges: SS Hardware EMC YOU COULD BUILD THIS COCO POWERED ROBOT! AND MORE Stop wasting time on that cassette or si ngle drive syste m . You can afford Polygon's disk systems featuring Teac % height, 40 track drives that are fast, qu iet, and use less power . With complete systems you get J&M Systems' control ler with gold-edge connectors. the latest circu itry and rel iable design. For 1 00% compatabil ity, the controller is supplied with RSDOS assuring easy. trouble-free operation with a l l commercial software . with Send For Free Brochure Florida Residents Add 5% Tax $3.00 Shipping & Handling Our unique expansion hardware enables you to create a versatile automated control system. All EMC boards come fully assembled and computer tested. Model 1 00 Parallel Port (PIA) . . . . . . . . . . . . . . . . . . . . . $39.95 Features: Two 8 Bit Bi-Di rectional Ports, 4 Control Lines, Sample Software Provided Model 200 Buss Driver . . . . . . . . . . . . . . . . . . . . . . . . . . $89.95 Features: TTL, Fanout of 1 0, 2 Card Slots and Flexible Ribbon Buss Provided. Additional Connectors Available. Model 400 Mother Board . . . . . . . . . . . . . . . . . . . . . . . . $44.95 Features: 4 Slots, 5 Gold Pin Connectors, PC Board, for all Non Dedicated Boards. Model 500 Motor Control AMP . . . . . . . . . . . . . . . . . . . . $29.95 Features: TTL Compatible, LED Direction Indicators, Drives DC Motors 500 MA Max at 1 2 VDG. Circle Reader Service card #494 ELECTRONIC MOTION CONTROL P.O. Box 1 7271 • ARPT Station Clearwater, Florida 33520 81 3-896-8295 or 81 3-536-1 694 • . To move a stack of N rings from tower A to tower B If N > O Then C=6-A-B move stack of N - 1 rings from tower A to tower C move ring N to tower B move stack of N - 1 rings from tower C to tower B Table 2. Solution to puzzle given as an algo rithm for moving a stack of N rings from tower A to tower B. If N = 0, there are no rings to move, so nothing happens. If A and B are two tower numbers, then C = 6 - A - B is the third tower number. cedure HANOI and its subprocedures SETUP and MOVE. SETUP clears the screen and cre ates the ring and tower turtles. MOVE. which is modeled on Table 2, solves the puzzle by moving the rings. The command SEND :N :B tells ring turtle N to move to tower B. Tower turtles are numbered 1 0 1 . 102, and 103 for towers 1 , 2, and 3. Each is controlled by the procedure, TOWER. Tower turtles al ways occupy the lowest unused position on their tower, although they are not visible on the screen. When they receive the message. 2, in the mail, they move up one position; they move down one position when they re ceive a 1 . They tell the moving rings where to land at the end of a move. (You can make the tower turtles visible by removing the command HT from TOWER.) Ring turtles, numbered 1 . . . N, correspond to the rings on the towers. They look like rings turned on edge. they sit stacked on the towers. and on command from the master turtle, they move to another tower. Each ring turtle is controlled by the proce dure RING. This procedure first places the ring turtle at its starting position on tower 1 . Then it waits for a message from the master turtle. Upon receiving the message T2 from the master turtle, RING moves the ring to tower T2 and sends a confirmation message back to the master turtle. As each ring moves, it sends a message 1 to the tower it is leaving and a 2 to the tower for which it is headed. This causes the tower tur tles to correct their positions on their towers in preparation for receiving the next ring. The master turtle and its subordinate ring and tower turtles are alive and operating si multaneously. Two questions remain to be answered. How can the ring and tower turtles follow just two procedures, RING and TOWER. and yet not all do the same thing? How can they operate simultaneously? An analogy might help answer the first question. An income tax form is a procedure. Everyone fills out the same tax form according to the same rules. but because people have different incomes and deductions, they don't fill it out the same way. Similarly. several turtles can follow the same procedure in different ways. Each tur tle has its own shape, its own name (ME), its own mail, and its own set of variables. For example, if ring turtles 1 and 2 are on differ ent towers, they have different values in their variables :T 1 . Differences in their data lead different turtles to follow the same procedure in different ways. There is, however, only one CPU in your CoCo. The Logo interpreter mimics parallel operation with a time-sharing trick. After an instruction for one turtle is executed, the in terpreter switches to the next turtle. The in terpreter cycles through all the turtles and then begins again with the next instruction for each one. If you observe the operation of Listing 1 closely, you can see that two turtles never move at exactly the same time. I hope I've interested you in exploring par allel processing further. More information can be found in the Color Logo manual as well as in texts and articles on parallel processing and Ada. I've listed three classics and one up-to- date text in the bibliography (Table 3). Despite their forbidding titles. they are accessible to anyone who knows a little Pascal. • Brinch Hansen, P. . The Architecture of Con current Programs, Prentice-Hall. Englewood Cliffs. NJ, 1977. Dijkstra, E.W., "Cooperating Sequential Pro cesses" in Programming Languages (ed. F. Genuys) Academic Press, NY. 1968. Gehani. N., Ada, an Advanced Introduction, Prentice-Hall. Englewood Cliffs. NJ, 1983. Hoare. C.A.R., "Communicating Sequential Processes," COMM. ACM, v.2 1 . no. 8. pp. 666-677. August 1978. Table 3. Bibliography David Meredith is a professor of mathemattcs at San Francisco State University. Address cor respondence to him at the Dept. ofMathematics, 1 600 Holloway Ave .. San Francisco, CA 94 1 32. Circle Reader Service card Parallel 8 bit input & output for your CoCo, and Models 1, Ill, HIGH SCHOOL AND COLLEGE MATHEMATICS LEARNING SOFTWARE For School and Home Apply the power of your Color Computer to improve student mastery and understanding of all high school and college math. 4. • MODULAR DESIGN FOR ADDITION OF MULTIPLE PORTS • LATCHED OUTPUT • STATUS MONITORED BY LEDS e SWITCH SELECTABLE 1/0 ADDRESS • SOFTWARE DIAGNOSTICS l/O PORT Krr INCWDES• . . . 6 • Printed circuit board; components; Cable (Plugs To CoCo Adapte� Diagnostic software listing (BASIC); and Manual. (Requires 5V 100 ma supply) 4.5 • All x Complete VO port klt (J107K) A-0/0.A Interface (J202K) CoCo Adapter-required for CoCo (J110K) 5 Model 1,11 1,4 Adapter (J11 2K) Volt Power Supply (D100K) Complete Enclosure Kit (D100E) SOFTWARE (APPLICATIONS) DIGITAL AND MEMORY SCOPE-Converts the CoCo TV display into an oscilliscope screen. (S101M)-LISTING DIGITAL RECORDER and DELAY-Record and play back.audio signals up to ten seconds. (S102M)-LISTING One FREE BUFFER BOARD with every four 110 PORT KITS ordered! 30% ASSEMBLY CHARGE Circle Reader Service card send check, money order or C.0.0. #225 D & A Research 400 Wilson Avenue Satellite Beach, F 32937 3051777-1 728 #305 $35 $35 $15 $20 $25 $30 $5. $5. COORDINATE DEFENSE (Video Game - Style Drill) PRE-ALGEBRA LEARNING PACKAGE* (3 Drill and Practice Programs) $50 ALGEBRA LEARNING PACKAGE* (7 Drill and Practice Programs) TRIG PACKAGE (2 Program Set) ................... STATISTICAL ANALYSIS (All usual data analysis) . . . $30 PROBABILITY GRAPHICS PACKAGE $50 (3 HI-RES Simulatfr:ms) . . 4 CALCULUS GRAPHICS PACKAGES (Each has 6 HI-RES Programs) . . . . . . . . ea. $75 STATISTICS GRAPHICS PACKAGE (7 HI-RES Programs) . . $100 BIO-MATHEMATICS (2 Population Growth Models) * Available in 16K Standard Available on Cassette or Disk MatheGraphics Software 61 Cedar Road, Suite C East Northport, NY 1 1 73 1 5 16-368-3781 November 1 985 HOT Coco 59 Circle Reader Service card #343 � ClnSOFT F o r Coco . . . i n t h e M i d west N ow i n o u r 4 t h yea r ! New Catalog Now Available CALL OR WRITE coco MeH Logo is a computer language widely used to introduce children '(/J.J} J,Jf'1il av {//( ft � a nd ../- - · Logo. Moreover, Logo is modular and readable. You can develop a Logo program as a series of procedures and use Jong variable and procedure names. The key object in Logo is the turtle. If the metaphor for a Basic program is a list of instructions for a computer to follow, then a 1Wiiii4W $ 69.95 94.95 � il.C@tl r. IL , Joyst ick 'r - c -� b l o:i 1 1 --·--·- • only . . . . . . . . witn Joystick o r v - c 11 0 1 e C O C O M ll H to programm ing. But Logo is neither simple nor childish. It was designed to be a complete programming environment with special graphics features; anything you can do with Basic, you can do w1th 1 y s te m i n c lude :. . . . i::-?f D e l u x � Brief Introduction to Logo A . v - FA L L SPECIA L ! Star SG- 1 0 . . . . . . . . . . . . . . . . . . . . . M e t r i c I n d u stries Model 101 . . . . . Handsome brown vinyl. . . . . . . . . . Spare replacement. . . . . . . . . . . . . Starter p a k o f . . . . . . . . . . . . . . . . . . . . . . . . . . . PRI NTER . . . . . . I N TERFACE . . . . . DUST COVER . . . . . . . . . . R I B BO N . . . . . . . . . . . PAPER 31 9 • Q � OM PLETE SAVE 3 1 .oo SMA R T MODEMS. . . H ayes 300 Avatex 1 200 Prometheus 1 200 with options C o c o cable 74.95 74.95 1 69.00 279.00 369.00 525.00 1 4.95 CHOOSE FROM OU R LAR G E SEL ECTION OF CO CO PRODUCTS B5 . . . Colorware . . . Deft . . . Derringer . . . Dynacalc . . . E l i t e . . . H J L . . . J & M . . . M a rk D a t a . . . Metric I n d u st ries . . . M i c h t ron . . . M i crocom . . . Tom M i x . . . PBJ . . . PXE .. . Speech Systems . . . Sugar . . . TCE . . . V I P . . . and more! Yes! We hB'le CHILD'S PLA YI Logo procedures can include variables. Variable names are strings preceded by a colon, like :N. To assign :N the value 3, exe cute "MAKE :N 3". Program control is iven by IF, ELSE. REPEAT, and WHILE (there are no GOTOs). Each control statement is followed by a block of instructions to execute; the block is delimited by parentheses. For example, to move forward eight steps :R times, use REPEAT :R (FD 8). The instruction block can contain more than one line. The principle program unit in Logo is not the line but the pro cedure. Procedures begin with TO, and invoke each other. The g "Authorized Star Micronics Ser'lice Center" STANDARD MODEMS. . . Avatex 300 w i t h cab le Volksmodem with cable Logo program is a list of instructions for a turtle to follow. A Logo programmer is always directing a turtle on the screen. The turtle c a n receive k e y strokes, print mes move forward N steps FD N sages, a n d draw tum left N degrees LT N pictures with its tum right N degrees RT N pen by moving hide the turtle HT about t h e screen. show the turtle ST The turtle is always PU lift the turtle's pen located on the PD lower the turtle's pen screen headed in a change the pen's color to N PC N specific direction . SHAPE . . . change the shape of the turtle Table 4 lists commands that move Table 4· Logo Commands the turtle or affect the pen. main procedure can be started by invoking its name and any nec essary parameters from the keyboard in run mode. For example, to run the Towers of Hanoi animation in Listing 2 for three rings, you type HANOI 3 from run mode. HANOI in turn invokes SETUP and MOVE, and RING invokes F. Tandy's Color Logo includes a multiple-turtle facility not found in other Logos. You always start with one turtle-turtle 0. You can create additional turtles numbered 1 through 254 with the com mand, HATCH. Each newly created turtle must be assigned a pro gram. The command HATCH 101 TOWER :N creates Turtle 1 0 1 , assigns it the program Tower, and passes the parameter :N to TOWER. Turtles can exchange messages that are numbers between 32768 and 32767. To send a message m to turtle B, execute SEND B m. The message m can be a constant or a variable. Notice that you don't have to specify which turtle is sending the message; the turtle executing the program in which the command appears - is the one sending the message. Messages are held until called for. To request mail sent by turtle T. a turtle executes the function MAIL T. The function MAIL 255 returns the oldest message waiting to be delivered to the turtle. • 60 HOT Coco November 1 985 Program Listing 1 . Race N turtles across the screen. RUN A RACE RACE C REATES N T U RTLES T H AT RACE ACROSS THE SCREEN. AT ANY TIME ONE TURTLE ISN'T MOVIN G . SEND COMMAND FREEZES A RANDOM TURTLE TO START. TO RACE :N CLEAR HT NOWRAP SX O SY 1 6 SH 90 MAKE :I 1 REPEAT :N ( SY ((YLOC ME) + 1 6) HATCH :I STOPANDGO :N MAKE :I :I + 1 ) SEND ((RANDOM :NJ + 1 ) 1 VANISH END NER TURTLE SELECTED AT RANDOM. AND RESUMES RUNNING ITSELF. TURTLES AND N RING TURTLES MOV ING BETWEEN THE TOWERS. TO STOPANDGO :N PU PRINT ME FD 8 PD PC ME - 3 * (ME/3) WHILE 1 ( IF NOT MAlL 255 ( FD 5) ELSE ( LT 90 WHILE RANDOM 6( l SEND ((RANDOM :N) + 1 ) 1 RT 90 THE ROUTINE IS LIMITED BY MAKEME TO 6 RINGS TO DISPLAY ANIMATED SOLUTION TO TOWERS OF HANOI PUZZLE WITH N RINGS. INVOKE "HANOI N". TO SETUP :N :RINGNUM :HEIGHT CLEAR PU HT HATCH 1 0 1 TOWER :N HATCH 102 TOWER :N HATCH 103 TOWER :N MAKE :RINGNUM :N MAKE :HEIGHT 64 REPEAT :N ( HATCH :RINGNUM RING :HEIGHT MAKE :RINGNUM :RINGNUM - 1 MAKE :HEIGHT :HEIGHT + 8 THE PROGRAM USES THREE TOWER E D Program Listing 2. Hanoi displays a solu tion to the Towers of Hanoi puzzle with N rings. TOWERS OF HANOI TOTHI AN TE ACHE R PAK PL US L i ke Teacher Pak bu t CoCo T e s t e m desc r i bed be l ow . $4 7 . 95 Tota l ly Menu Driven custom i ze with company i nformation complete "on screen " i nstructions COCO TESTEM C re a t e mu l t i p l e cho i ce , short a ns we r . comp l et i on , t ru e / f a l se . and m a t ch i n � t es t s . O n t ape but works w i t h d i sk . 32K Ex t . BAS I C . Needs BO-co l umn p r i n t e r w i t h under l i n e ab i l i t y ( OMP- 1 1 0 , L P - V I I I , e t c . ) . $ 1 9 . 95 FORMS letter invoice q u ote pu rchase order mail order confirm order receipt COCO GARDENE R Super l at i ve g a rden p \ an n i n a a i d and a a rden i n a dat a sou r c e . P r i nter p r e f e r red . 1 6K E x t ended BAS I C . $ 1 9 . 95 T I ME MASTER Ca l endars . b i or h y t h ms . day of week , hum a n compat i b i l i t y , davs between dates . P r i n t e r opt i on a l . 1 6K E x t ended BAS I C . $ 1 9 . 95 T he c l ass i c aame of l l v i n a , grow i n � . rep rodu c l n � p a t t e rns . P r inter opt i on a l . 1 6K E xt ended BAS I C + ML . $ 1 9 . 95 . E n h anced 32K Coco-L i f e I I vers i on a l so $ 1 9 . 9 5 . between checkers and L i f e . 1 6K E x t . BAS I C + ML . $ 1 9 . 95 Circle Reader Service card # 1 94 STORES comp lete forms item list subquotes letters footnotes customer i nfo SEPARATE CONFIGURE PROGRAM for company info printer options q u ote & inv. # w I auto seq uencing auto date COCO-L I F E Tot h i an S o f t w a r e B o x 663 1 624 8 R l mersbu r a . Pa . Listing continued the fastest, most complete office package vet! I n c l u des Al l p r o g r am s so l d on t ape . Send check or money order ( n o cash - P a . res i den t s add 6X ) t o : ) Farmaker SOFTWARB T E ACHE R PAK F o u r 1 6K E x t . BAS I C p r o i rams . Do s t a t i s t i ca l a rades ( w i t h or w i t h out we l ah t l n a ) . a na 1 v s l s of a r ades , a l phabet i ze n ame l i st s , c r e a t e seat i n a c h a r t s . On t ape bu t works w i t h d i sk . BO-co l u mn P r i n t e r h e l p f u l . $34 . 95 C ross One o r t w o p \ ave r s . SETUP ESTABLISHES THREE TOWERS WITH : N RINGS ON THE FIRST TOWER. :RINGNUM AND :HEIGHT ARE LOCAL VARIABLES. ) END STOPANDGO DIRECTS RUNNER TUR TLES. A TURTLE GOES UNTIL IT RE CEIVES MAIL. THEN IT STOPS FOR A RANDOM LENGTH OF TIME, SENDS A MESSAGE TO STOP ANOTHER RUN- PERPE T UL I F E TO HANOI :N SETUP :N MOVESTACK :N 1 3 END send for m ore information: .. FIGU RES qu antity l i st net discount subtotals tax freight, etc. PRINTS form feed letterhead envelope m u ltiple copy em phasized $49 32k ECB d i sc Challenger Software 42 4th Street Pen nsburg, PA 1 8073 Call (21 5) 679-8792 (Eve n i ngs) Circle Reader Service card #405 November 1 985 HOT Coco 61 ,,. MOVESTACK MOVES A STACK OF M RINGS FROM TOWER :A TO : B . TO MOVE RING :M TO TOWER :B, A MES· SAGE :B IS SENT TO RING TURTLE M (CONTROLLED BY PROC. RING). AFTER ISSUING THE ORDER TO MOVE RING TURTLE M, MOVESTACK WAITS FOR CONFIRMATION OF COMPLETION OF MOVE BEFORE CONTINUING. :C IS A LOCAL VARIABLE. TO MOVESTACK :M :A :B :C IF :M = 0 (STOP) MAKE :C 6 - :A - :B MOVESTACK (:M - 1 ) :A :C SEND :M :B WHILE NOT MAIL :M ( ) MOVESTACK (:M - 1 ) :C :B END TOWER CONTROLS TOWER TURTLES 1 0 1 - 1 03 . EACH TOW E R T U R T L E DRAWS ITS TOWER, AND THEN SITS IN THE LOWEST UNUSED POSITION . IT MOVES UP OR DOWN WHEN MAIL SAYS A RING HAS LEFT OR ARRIVED . :MSG IS A LOCAL VARIABLE. ) END RING CONTROLS RING TURTLES 1 . . . N. H l I S THE INITIAL HEIGHT OF THE RING TURTLE ON STACK 1 (FROM SETUP) . H 1 , T l STORE C U R R E N T H E I G H T AND TOWER N UMBER O F RING. UPON RECEIVING MESSAGE T2 ( FROM MOVESTACK), RING MOVES RING TURTLE TO TOWER T2 AND RE· SETS (BY MAIL) THE AFFECTED TOW· E R S . T l , H 2 , T 2 A R E LOCAL VARIABLES. TO RING :H l : T l :H2 :T2 PU HT SH 0 TO TOWER :N :MSG HT PC 2 - COCO SOLVER with PROGRAM GENERATOR "An advanced programmable calculator." "Conjures the image of instant programming." -HOT CoCo Review, May 1985 Generates program automatically from COCO SOLVER data files. ��� COCO BASE I: A relational database manager with pro· grammable language . Creates a database structure, inputs and edits records and gen· erates reports. All programs require 32K Extended BASIC. COCO SOLVER with PROGRAM GENERATOR-$49.95 Sweeten Your CoCo With a Little Sugar --= Our popular products for the Coco include: •coco Calligrapher - $24.95 T ; $29.95 D *OS-9 Call igrapher - $39.95 D •Rental Property - $34.95 D •Color Disk Manager - $34.95 D *Sports Statistics Packages: Each $29.95 D F o ot b a l l B a s k et b a l l B a s e b a ll S oc c e r *TIMS - $24.95 T * P rereader - $1 9.95 T; $24.95 D •Galactic Hangman - $1 7.95 T •Great USA - $1 9.95 T; $24.95 D Mention Hot Coco in your mail or phone order and receive a free gift! Write for our complete catalog of Sugar Software produ cts and dcscript ions. Dealer and author inquiries are always welcome. Disk software compatible with Radio Shack + $2 S & H, Tape or Disk. + $2 S & H, Disk only. DOS only. Check or money order accepted. and handling. Florida residents add 5% sales tax. COO o n l c n.; a1·e wcl - COCO BASE 1-$49.95 JTJ ENTERPRISES P.O. Box 1 10841, Nashville, TN 3721 1 (615) 358-2635 or (615) 331 0364 Circle Reader Service card # 1 5 62 SX 64 • (ME - 100 ) SY 56 SH 90 FD 8 BK 16 FD 8 LT 90 FD (8*(:N + 1 )) PU IF ME = 1 0 1 (SY (56 + 8 * (:N + 1 ))) ELSE (SY 64) WHILE 1 ( MAKE :MSG MAIL 255 IF :MSG = 1 (BK 8) ELSE ( IF :MSG = 2 (FD 8)) H OT Coco November 1 985 Circle Reader Service card #144 Acid S l . 50 per program for postage come. CIS orders El\LA I L to 70405. t ;H4. �o refunds or exchanges. SUGAR SOFTWARE 1 7 1 0 �ortJ1 50tJ1 :henue l l ol lvwood, Florida aao2 1 . ( ;�05) 98 1 - 1 24 1 MAKE : T l 1 0 1 SX 64 SY :H l MAKEME ST WHILE 1 ( MAKE :T2 MAIL 0 lF :T2 < > 0 ( MAKE :T2 100 + :T2 MAKE :H2 YLOC :T2 SEND : T l 1 SEND :T2 2 F ( 1 20 - : H l ) l F :T2 > : T l (SH 90) ELSE (SH 270) F (ABS(:T2 - :T l ) * 64) SH 1 80 F ( 1 20 - :H2) SH 0 SEND 0 1 MAKE :T l :T2 MAKE :H l :H2 ) END F MOVES A TURTLE A DISTANCE :D, STOPPING PERIODICALLY TO SHOW THE TURTLE. THIS ANIMATES THE MOVEMENT. TO F :D REPEAT :D/8 ( FD 8) END MAKEME GIVES SHAPE TO RING TUR· TLE N < = 6. TO MAKEME IF ME = 1 ( SHAPE RRUBBBDFFFFFFUBBB STOP) IF ME = 2 ( SHAPE RRUBBBBBBDFFFFFFFFFFF· FUBBBBBB STOP) IF ME = 3 ( SHAPE RRUBBBBBBBBBDFFFFFFF· FFFFFFFFFFFUBBBBBBBBB IF ME = 4 ( SHAPE RR· UBBBBBBBBBBBBDFFFFFFFFFFFF· FFFFFFFFFFFFUBBBBBBBBBBBB STOP) 1F ME = 5 ( SHAPE RRUBBBBBBBBBBBBBBBBB· BDFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFUBBBBBBBBBBBBBBB STOP) IF ME = 6 ( SHAPE RRUBBBBBBBBBBBBBBBB BBDFFFFFFFFFFFFFFFFFFFFFFFF· FFFFFFFFFFFFUBBBBBBBBBBBBB· BBBBB STOP) END llllttl vl : :Zl:?!:::! :: Tl h isl prl �l m islal il� lll � onl l ll oo r l lnstM l ll lllolcasse :: J LJT"/L/T"Y'C::::::::::--;::::::::::::::::::::::::::::;:!: l ralll t CoC e . (t;::::J o sa _ See the In tant CoC ad elsewhere in this issue. _ LOCO by Bruce Bauder in Basic Hook up with a more effective method for sorting lists. I f you've ever struggled with maintaining a sorted list in arrays. Linksort is for you. (See Listing.) It demonstrates the use of linked lists in Basic and can be used in hobby and business applications. What Are Linked Lists? A linked list is a dynamic data structure used in languages like Pascal. The size of the list can increase or decrease as the number of elements changes. Arrays and other data structures stored in memory are static-their dimensions are declared early in the pro· gram with a DIM statement. When you want to insert or delete information and yet main tain data in alphabetical order, arrays can cause headaches. If the list is arranged con tiguously (organized from top to bottom. as in Fig. 1 ), insertion or deletion requires shift· ing part of the array up or down by one place (Fig. 2). If the array is large, this process can take time. In Pascal . linked lists provide a way of avoiding these problems. Figure 3 will help you understand the underlying concept. The NAME$ NAME$ Fig. 1. Amy 1 Amy 2 Bill 2 Ben 3 Cathy 3 Bill 4 Dave 4 Cathy 5 Gary 5 Dave 6 Jill 6 Gary 7 Ken 7 Jill 8 Mike 8 Ken 9 Pete 9 Mike 10 Sue 10 Pete II 11 Sue 12 12 List Ordered from Top to Bottom Fig. 2. Inserting a New Element into a List FIRST �I IJ-1 1+1 Amy Fig. 3 . Linked Cells Bill Cathy l+-1 Dave !+ -- --- variable, FIRST, points to the first cell. The left portion of each cell contains the name; the right segment contains the pointer that links the cell to the next element in the list. The exact location of each cell within the ar ray is of no consequence. Representing linked lists in arrays is pow erful in languages such as Basic, Fortran, and Cobol. which don't have pointers and dy namic storage. Setting up the list is simple. Linksort uses four arrays: NAME$, which holds the names in the list; PTR. which pro· vides the link to the next ceJI in the list; BALANCE, which holds the customer's bal ance; and AVAIL. which is used to delete names from the list and keep track of the po· sitions of deleted cells. The number of names in the list is represented by the variable, NUMBER. Figure 4 shows an example of a list contain· ing 10 names that are linked in alphabetical order but arranged randomly. This can be confusing, but if you think in terms of the links-not the array-the concept should be easier to grasp. If you trace through the table you will see that the linking between cells places the names in alphabetical order. PTR(O) marks the first name in the list, NAME$(7)-Amy. in this case. PTR(7) con tains 4. which means that the next name is NAME$(4), Bill. To check the remainder of the list. proceed in the same manner, looking in PTR for the subscript of the name in NAME$ and using that subscript to tell you what the next PTR value is. The zero in PTR(8) signifies that its corresponding element in NAME$ is the last name in the list. System Requirements 1 6K RAM Color Basic Printer Optional November 1 985 HOT Coco 63 NAME$ PTR 0 0 7 Points to "Amy Cathy 1 5 2 Jill 2 6 8 3 Pete 3 4 Bill 4 5 Dave 5 10 6 Ken 6 9 7 Amy 7 4 8 Sue 8 0 9 Mike 9 3 10 Gary 10 2 11 11 12 12 .. Third name-"Cathy" Second name-"Bill" Fig. 4. Linked List Inserting Information The real power of linked lists lies in insert ing and deleting cells. Figure 5 shows how the name, Ben, would be inserted into the list. If you were not using a linked array, Ben would be placed between Amy and Bill by shifting Bill and the names that follow down one cell and inserting Ben in the empty cell (Fig. 2). With linked lists. you can simply in sert additions into the next empty cell and change the appropriate pointers. To better understand this process. refer to lines 9001 0 1 0, the Search for Insert routine. and lines 1 020- 1 220. the Insert Customer routine. The variable TEMP points to the current name in the list and BACK points to the name immediately preceding it. Trace through the NAME$ 0 I Cathy code with the example for Ben. keeping track of the values of P. BACK. TEMP. and the pro cedure should become clear. Problems with Deletion Deleting names isn't quite as easy as in serting them: the structure of arrays can cause problems. After an entry is deleted. that cell still takes up space in the array. thus wasting memory. To overcome this difficulty. Linksort uses the array. AVAIL. and the var iable. COUNT. to keep track of the number of cells available for insertion. A second varia ble, DCELL. keeps track of the next available cell in NAME$ (and its counterpart. PTR). AVAIL records the locations (subscripts) of 0 7 0 1 5 1 Using Linksort After displaying preliminary prompts for cassette. disk drive. and printer. Linksort brings up a menu with six options: 1 Create File 2 Read File 3 Insert New Name 4 Delete Name 5 Print the List 6 Save and Exit AVAIL PTR NAME$ PTR deleted cells: as each cell is deleted. its posi tion is stored in AVAIL. to be filled when the next insertion is made. In Fig. 6, Ben has been deleted from the list. The name hasn't been removed from the array. but the pointers are set to move from Amy to Bill. DCELL contains the subscript of the next available cell- 1 1 in this case. To understand deletion. trace the Search and Delete routine (lines 1 230- 1 380). The routine reads in the name to be deleted as DE$ and searches the list from the first ele ment to the last. comparing each name to DE$. If a match is found. the program calls the Delete Customer routine (lines 1 3901 470). The cell is deleted by changing the BACK pointer: the position of the deleted cell. 1 1 . is stored in AVAIL and used for the next insert. If no match is found. an error message is printed because the name is not in the list. The Search for Insert and Insert Customer routines check COUNT before adding a new name as the last element in the list. If its value is greater than zero. there are empty cells within the list. The routine inserts the new name in the cell to which DCELL points and changes BACK to point to it. If there are no available cells within the list. the name is inserted at the end of the list. 0 0 7 Cathy I 5 1 6 2 8 2 Jill 2 6 2 Jill 2 3 Pete 3 8 3 Pete 3 4 Bill 4 4 Bill 4 5 Dave 5 10 5 Dave 5 10 5 6 Ken 6 9 6 Ken 6 9 6 Amy 7 4 7 Sue 8 0 8 7 Amy 7 11 BACK 7 8 Sue 8 0 8 3 4 9 Mike 9 3 9 Mike 9 3 9 10 Gary 10 2 10 Gary 10 2 10 11 Ben 11 4 TEMP 1 1 Ben 11 4 11 12 12 Fig. 5 . Inserting a n Element i n a Linked List 64 HOT Coco November 1 985 12 12 Fig. 6. Deleting an Element from a Linked List 12 11 COUNT Each menu item corresponds to a subroutine within the program. I have documented the start of each block to simplify debugging and modification. (See Table 1 for a list of pro gram variables.) If you need to restructure the program. you will only need to rearrange a few lines in the main loop. Linksort should work in all versions of Ba sic. I used it on an rBM PC and it ran fine. The only limitation on creating additional rec ords or increasing the number of customers is the amount of memory your computer has. BALANCE holds the balance o f the corre spond i n g n a m e in N A M E $ : e . g . . BAL ANCE(37) holds the balance for NAME$(37). You can easily create large records by adding other parallel arrays. such as ADDRESS and ACCTNO. and a few lines of code to update them whenever NAME$ is affected. You can also add routines to update a customer's bal ance, perform transactions. keep track of in ventory. maintain a recipe file, and so on. Experiment with the program: you will learn more that way and might develop powerful applications for it. Linked lists i n Basic are a n efficient way of creating and sorting lists of any kind. When you create a new file. you can enter the NAME$ PTR BALANCE AVAIL DEVICE HC$ CUS$ AMT NUMBER TEMP DCELL DE$ BACK COUNT M u lti· Tas k i n g 4 C h a n n e l S e r i a l Co m m u n i c a t i o n I nt e rface Simu ltaneous Easy to i n st a l l boa rd adds: • • • • i n p a c k t o get: All 9 6 S t a n d a rd ASC I I C h a racters & L ow e r Case D i s p l ayed S i m u l t a n e o u s l y w i t h N O I n verse V i d e o True Lowe r C ase Descend e rs B races & V e rt i c a l B a r C h a racters S l as h e d Zero O S-9 Ope rat i n g System Prog ra m m i n g • " C " L a n g u ag e P rog ra m m i n g • C o m m u n i c a t i o n s Te r m i n a l M odes Word Proc e s s i n g P R I C E. . . .. . . . . . . $ 38.00 � {f r"'\'' . .. . opera t i o n s u s i n g C O M M - 4 p l u g 4 i n d e p e n d e n t R S- 2 3 2 c h a n n e l s S t a n d a rd D B- 2 5 f e m a l e c o n n ec t ors • OS-9 device d r i v e rs on disc • I n t e r r u p t d riven for fast response • • E n h a n c e s C oC o screen for: 1/0 • • Other F e a t u res B o a rd i s h a rdware d riven and req u i res N O software • • • d r ive rs. NO effect o n any m e m o ry. • 1 0 C L S : PMODE 0 : P C L E A R l : CL E AR 3 0 00 2 0 D I M NAM E $ ( 1 00 ) , P T R ( l 00 ) , B ALAN C E ( l 0 0 ) , AVA I L ( l 0 0 l 3 0 P R I NT @ l 3 9 , " - L I N K SO R T - " : P R I NT 4 0 P R I NT @ l 7 0 , " A L I N K E D L I S T " 5 0 P R I NT @ l 9 7 , " F I L E MANAG E M E N T P R OG RAM " 60 P R I N T @ 2 3 3 , " B Y B R U C E BAUD E R " 7 0 P R I N T @ 2 6 6 , " MA R C H 5 , 1 9 8 4 " 8 0 SCREEN 0 , 1 9 0 F O R T = l TO 1 5 00 : N E X T 1 0 0 C L S : I N PUT " TA P E ( T ) OR D I S K ( D ) " ; IO$ 1 1 0 I F I O $ = " T " T H E N D EV I C E = - 1 E L S E I F I 0 $ = " D " T H E N D EV I C E = l E L S E 1 00 1 2 0 I N PUT " O U T P U T L I ST TO P R I N T E R ( Y /N ) " ; H C $ : I F H C $ < > " Y " A N D H C$ < > " N " THEN 1 20 CoCo C O M M-4 Coco o r CoCo 2 U pper Program Listing. Linksort names in any order because they are alpha betized as you enter them. And you needn't confine the list to names: Linksort will alpha- FOR • Address correspondence to Bruce Bauder, 9 1 0 Meadow Ave .. Tillamook. OR 971 4 1 . Table 1 . Program Variables Fu l l C h a ra cte r Set • betize any character. Once you become com fortable with the concept and methods used, I'm sure you'll use them for all of your list management programs. • Array to hold customer names. Pointer array. Array to hold customer bal ances. Available (deleted) cell array. Tape or disk identifier. Send output to printer. Input customer name. Input customer balance. Number of customers in list. Link to next name in array NAME$. Position in NAME$ of previ ously deleted cell. Input name of customer to de lete. Pointer to name preceding current name. Number of available (deleted) cells. No software t i m i n g loops Basic & ML d r ivers easy t o c reate S t a n d a rd Baud rates 1 1 0- 1 9 2 0 0 C o m p l ete d o c u m e n t a t i o n package U se f o r m u l t i p l e p r i n t e rs, t e r m i n a l s, m o d e m s, etc., etc. P l u g d i rect l y into C oC o expa n s i o n pack ( N ote: req u i res b u f f e red e x p a n s i o n and powe r s u p p ly). RAIN BOW CERTIFICATION SE Al ( +$2.00 s h i ppi ng/h a n d l i n g if c h a rge) P R I C E ........ . ... . ... $89. 00 ( + $3.50 shipping/handling if charge) T h e s e a n d o t h e r p ro d u cts f ro m C o c o D e v i ces, T H E ' I N ' C R OWD ( I N · n ovat ive prod ucts at I N - ex p e n s i v e p r i c e s) . Coco D e v i c e s Box 6 7 7 , S e a b rodk , TX 7 7 586 7 1 3-4 7 4 - 3 2 3 2 Tel l them "I saw it in HOT Coco." Circle Reader Service card #75 November 1 985 • HOT CoCo 65 .. 1 3 0 I F H C $ = " Y " T H E N P R I N T : P R I NT " M A K E S U R E P R I NT E R I S R E AD Y . " : FO R Y = 1 TO 1 0 0 0 : N E XT 1 40 I isi ' * * * * * * * * * * * * * * * * * * * * * * * * * * 160 ' * MA I N LOOP S T A R T S H E R E * 170 ' * * * * * * * * * * * * * * * * * * * * * * * * * * 1 8 0 CLS 6 1 9 0 P R I NT @ 0 , S T R I NG $ ( 3 2 , " * " ) ; 2 0 0 P R I NT @ l 0 3 , " < E NT E R C HO I C E N U M BER> " ; 2 1 0 P R I NT @ 1 3 5 , S T R I NG $ ( 2 1 , " * " ) ; 2 2 0 PR INT@ 1 9 9 , " l ) C R EATE F I L E " ; 2 3 0 P R I NT @ 2 3 1 , " 2 ) R E A D F I L E ' 2 4 0 P R I N T @ 2 6 3 , " 3 ) I N S E RT N E W NAM E " ; 2 5 0 P R INT@ 2 9 5 , " 4 ) D E L ETE NAME " ; 2 6 0 P R I N T @ 3 2 7 , " 5 ) P R I NT T H E L I ST " ; 2 7 0 P R I NT @ 3 5 9 , " 6 ) SAVE AND E X I T " ; 2 8 0 P R I N T @ 4 8 0 , S T R I NG $ ( 3 1 , " * " ) ; 2 9 0 POKE 1 5 3 5 , 106 300 T $ = I N K E Y $ : I F T $ = " " T H E N 3 00 3 1 0 T=VAL ( T $ ) 3 2 0 I F T < l OR T > 6 T H E N 3 0 0 3 3 0 ON T G O S U B 4 2 0 , 5 7 0 , 3 4 0 , 1 2 3 0 , 1480, 390 3 4 0 I F T = 3 T H E N GOSUB 8 0 0 : GO S U B I I N S E RT 890 In troducing. . . 3 5 0 I F T = 3 T H E N P R I N T " I N S E R T ANO T H E R ( Y /N ) " E L S E 3 0 0 3 6 0 U $ = I N K E Y $ : I F U$ = " " T H EN 3 6 0 3 7 0 I F U $ = " Y " T H EN 3 4 0 3 8 0 GOTO 1 8 .0' ' SAVE 3 9 _0 G O S U B 1 7 1 .0' : GOTO 1 8 6 _0 AND E X I T 4 .0 .0 I 4 1 .0' I 4 2� ' * * * * * * * * * * * * * * * * * * * * * * * * * * * C R E A T E N EW F I L E 4 30 ' * 440 ' * * * * * * * * * * * * * * * * * * * * * * * * * * 4 5 0 C L S : N U M B E R = .0 460 P R I N T " ENTER NAMES AND BALANC ES" 4 7 0 P R I N T " TYPE ' X X ' WHEN F I N I S H E D" 4 8 _0 L I N E I N P U T " NA M E ? " ; C U S $ 4 9 _0' I F C U S $ = " X X " T H E N 5 3 _0 5 _0' _0 I N P U T " B ALAN C E " ; A MT 5 1 0 GOS U B 8 9 _0' ' S EARCH AND I N SERT ' GET NEXT RECO 5 2 .0 GOTO 4 8 _0 RD 5 3 .0 G O S U B 1 7 1 _0' ' S AVE L I S T 5 4 _0' R E T U R N 5 50 I 5 6 .0 I 570 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * 5 8 _0 ' * R EAD I N F I L E 590 ' * * * * * * * * * * * * * * * * * * * * * * * * * * 6 .0 .0 C L S : I F D EV I C E = l T H E N 6 5 _0 6 1 _0' P R I NT " R E W I N D T A P E TO S T A R T " PC NPA L PE N PAL provides you with a package that com bi nes the five most wanted appl ications in one i n cred i bly easy-to-use i n tegrated env i ron ment. What wou l d you pay for a package t hat does it a l l , but does it easily? Packages like this cost h u n d reds more on other machi nes. PENPAL W rit e f o r free c a t a l o g u e of o u r o t h e r g reat p r o d u c t s Circle Reader Service card #25 * 66 * f�� HOT Coco * * 8 3 _0' C L S 8 4 .0 L I N E I N P U T " E N T E R C U STOM E R N AME : " ; CUS$ 8 5 _0' I N P U T " E NT E R C U S T O M E R B A L A N C E " ; A MT the in telligen t choice . . . $69.95 * (89.95 C O N ) U t �·t>f·rt_ • I I Lt t t t'"f"l r:-.: [ 1....ti' �.f·•·\.d•X• .. .i I . J �··i I r : .t ' n.:i·l >- 1--d t•1 fio..( �·'"" ��..f h.Jcf- brings t he power of a PC to y o u r Coco a t a n u n believable a n d u n beatable pr i ce' W e g uarantee i t . . If you are not satisfied, ret urn it w i t h i n 30 d a ys for a ref u n d . O r d e r your personal c o p y of PEN PAL today to fi nal ly realize t he f u ll potential of you r Color Computer. 6 2 0 P R I NT " P R E S S P L AY ON R E C O R D E R" 6 3 _0 P R I NT " P R E S S < E NT E R > W H E N R E ADY " 6 4 .0 Z $ = I N K E Y $ : I F Z $ = " " T H E N 6 4 _0' 6 5 _0' O P E N " I " , I D E V I C E , " N AM E S " 6 6 0 N U M B E R = l : G = .0 6 7 _0 I F E O F ( D E V I C E ) T H E N 7 5 _0 ' RE A D N 6 8 _0' I N P UT # D E V I C E , C U S $ AME 6 9 0 I N P U T # D E V I C E , AMT ' RE A D B ALANCE ' I N S E RT 7 _0 _0 NAM E $ ( N U M B E R ) = C U S $ NAME 7 1 .0' B A L A N C E ( N U MB E R ) = A M T ' I NS E R T BALANCE ' S E T PO 7 2 _0' P T R ( G ) = N U M B E R I NT E R 7 3 0 NUMBE R=NUMB E R + l : G=G+l 7 4 0 GOTO 6 7 .0 7 5 0 CLOSE # DE V I C E 7 6 _0 N U M B E R = N U M B E R - 1 7 7 _0 R E T U R N 7 8 .0 I 7 90 I 800 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * 8 1 _0' ' * G E T C U S TOM E R 820 ' ************************** 64K A N D AT LEAST ONE DISK DRIVE R E Q U I R E D P . O . B O X 730 STREETSV I L L E , O N TAR I O CANADA L 5 M 2C2 ( 4 1 6) 858-STAR • Twelve fu nction keys and a continuously d i s p l ayed rem i n de r l i n e make PEN PAL easy to use. N o c o m p l i cated key combi nations to remember. • O n - l i n e help feature for each module • H i-Res 51 x 24 screen dis play • C o m b i nes a 255 x 255 spreadsheet, text p rocessor, database, presentation q u a l ity graph creator and fu l l teleco m m u n i cations i nto O N E package • M od u les interface with each other to form a truly i n teg rated package, not just separate programs called from a central menu like others offer' • Common formats and c o m m a nds i n all modu les. T h i s package is extremely user f r i e n d l y . Cheque or M o n e y Order Add $2.50 s h i p p i n g - FO U R STAR S O FTWAR E November 1 985 :IC Ont. Residents add 7% tax D I SK SYSTEM fOR THE CO-CO 2 T H I NL I NE DOUBLE SYSTEM WITH CAB I NE T , B 6 S R E T U RN B7S I BBS I 89� ' * * * * * * * * * * * * * * * * * * * * * * * * * * * S E A R C H F O R I N S E RT 9SS ' * 9 1� ' * * * * * * * * * * * * * * * * * * * * * * * * * * 9 2 S P=S ' GET L I 93S TEMP=PTR ( P ) NK 9 4 S I F P = S THEN BACK=P ' F I RST C E L L IN L I S T 9 5 S I F ( C U S $ < NAM E $ ( T E M P ) ) OR ( P T R ( P ) = S l T H E N GOSUB l S l S : R E T U RN ' I F F O U N D T H E N I N S E RT 9 6 S BACK = P T R ( P ) 97S P=TEMP 9 B S GOTO 9 3 S 99S I i ns · lSlS ' ** * ** * * * * ** * * * * * * * * * * * * * * * 1S2S ' * I N S E RT C U S TO M E R 1S3S ' * * * * * * * * * * * * * * * * * * * * * * * * * 'A 1 S 4 S I F COUNT > S T H E N 1 1 4 S VA I L A B L E C E L L S 1S5S NUMBER=NUMBER+l 1 S 6 S N A M E $ ( N U M B E R ) = C US $ : B A LANC E ( N U M B E R ) = AMT ' I N S E RT N A M E A N D BALANCE 1S7S I F PTR ( P ) = S THEN l l l S 'L A S T E L E M E NT I N L I S T 'P l S B S PTR ( NUMBER ) = PTR ( P ) O I NT TO N E X T C E L L 'P 1 S 9 S PTR ( P ) =NUMBER O I NT T O N E W C E L L 1 1 n R ETURN l l l S PTR ( P ) =NUMBER ' I N S E R T E N D O F L I ST 1 1 2 S PTR ( NUMBER ) = S 1 1 3 S R ET U R N 1 1 4 S D C E L L = AVA I L ( COUNT ) 'G ET AVA I LA B L E C E L L ' I 1 1 5 S NAM E $ ( DC E L L ) = C U S $ NSERT NAME ' ' I 1 1 6 S B A L A N C E ( DC E L L ) = AMT NSERT BALANCE ' P 1 1 7 S P T R ( DC E L L ) = T E M P O I NT TO N E X T C E L L 'P l l B S P T R ( B ACK ) = D C E L L O I NT TO N E W C E L L 1 1 9 S COUNT=COUNT - 1 1 2 SS R ET U R N 121S I 1 2 2S I 1 2 3i ' * * * * * * * * * * * * * * * * * * * * * * * * * * S EA R C H F O R D E L E T E 1 24S ' * 1 2 5� ' * * * * * * * * * * * * * * * * * * * * * * * * * 1 2 6 S CLS 1 2 7 S L I N E I N P U T " NA M E TO D E L E T E ? " ; DE$ 12BS P=S 1 2 9 9 I F N U M B E R < 1 T H EN R E T U R N 1 39S TEMP=PTR ( P } ' G ET L I N K 1 3 1 9 I F P=S THEN BACK=P 1 3 2 9 IF ( PT R ( TEMP ) = S l AND ( NAME$ ( T E M P ) < > D E $ ) T H E N P R I NT " S EA R C H FAI LURE . " D E $ " NOT I N L I S T " : FO R C T = l TO l S S S : N E X T : R ET U R N 1 3 3 S IF NAM E $ ( T E M P ) = D E $ T H E N GOS UB 1 3 9 S : RETURN ' D ELETE NAM E 1 3 4 S B A C K = PT R ( P ) 1 3 5S P=TEMP ' S EARCH NEX 1 3 6 S GOTO 1 3 SS T CELL 1 3 7S I 1 3 BS I 1 3 9S ' * * * * * * * * * * * * * * * * * * * * * * * * * * 1 4 SS ' * D E L ET E C U STOM E R 1 4 li ' * * * * * * * * * * * * * * * * * * * * * * * * * 1 4 2 S P T R ( BACK ) = P T R ( T EM P ) ' PO I NT A R O U N D C E L L 1 4 3 S I F PTR ( T E M P ) = S T H E N N U M B E R = ' LAST C E L L NUMB E R - l : RETURN I N L I ST 1 4 4 S COUNT=COUNT+ l : AVA I L ( COUNT ) = TEMP ' S T O R E POS I T I O N O F C E L L 1 4 5 S RETURN 146S I 1 4 7S I 14BS ' ** * * * * * * ***************** * 149S ' * P R I NT L I ST 1 5 99 ' * * * * * * * * * * * * * * * * * * * * * * * * * 1 5 1 9 C L S : J = 9 : CT =S : TT = 9 : S T = 9 1 5 2 9 I F H C $ = " Y " T H E N P R I NT # - 2 , " N A M E " , " " , " BALANCE " 1 5 3 S I F H C $ = " Y " T H E N P R I NT # - 2 , C H R $ ( l l ) ; : P R I NT # - 2 , " " , ""," " : P R I NT # - 2 1 5 4 S P R I NT " N AM E " , " BA L A N C E " : P R I N T 1 5 5 9 T E M P = PTR ( J ) 1 5 6S I F TEMP=S THEN 1 6 3 S 1 5 7 S ST=BALANCE ( T EMP ) 1 5 B S P R I NT NAM E $ ( T E M P ) , " " ; : P R I NT U S I NG " $ # # # # # . # # " ; B A L A N C E ( T E M P ) 1 5 9 S I F H C $ = " Y " T H E N P R I NT # - 2 , N A M E $ ( T E M P ) , " " , " " ; : P R I NT # - 2 , U S I N G " $ # # # # # . # # " ; BALANCE ( T EMP ) 1 6 99 I F TEMP=S THEN 1 6 59 1 6 1 S CT=CT + l : TT=TT+ST ' P R I NT 1 6 2 S J = T E M P : GOTO 1 5 5 9 NEXT CELL 1 6 3 9 P R I N T : P R I NT " TOTAL CUSTOMER S : " ; CT : P R I N T " TOT A L B A LANC E : " ; : P R I N T U S I NG " $ # # # # # # . # # " ; TT 1 6 4 S IF H C $ = " Y " T H EN P R I NT # - 2 : P R I NT # - 2 , " TOTAL C U S T O M E R S : " ; CT : P R I NT # - 2 , " TOTAL B A L A N C E : " ; : P R I NT # - 2 , U S I N G " $ # # # # # # . # # " ; TT 1 6 5 S P R I N T : P R I NT " P R E S S ANY K EY TO CONT I N U E " 1 6 6 S I F H C $ = " Y " T H E N FOR T = l TO 5 : P R I NT # - 2 : N E X T 167S K $ = I NKEY$ : I F K$ = " " THEN 1 6 7 s 1 6 B S R ET U R N 169S I 1 7 9S I i1 1i ' * * * * * * * * * * * * * * * * * * * * * * * * * 1 7 2S ' * SAVE L I ST * 173� ' ** * * * * * * * * * * * * * * * * * * * * * * * 1 7 4 S I F D EV I C E = l T H E N 1 7 B S 1 7 5 S C L S : P R I NT " P R E S S P LAY A N D R ECO R D " 1 7 6 S P R I NT " H I T ANY K E Y W H E N R E A DY" 1 7 7 S G $ = I NKEY$ : I F G $ = " " THEN 1 7 7 9 1 7 B 9 J = S : OP E N " O " , # D E V I C E , " NA M E S " 1 7 9 S T E M P = PT R ( J ) 1 B 99 I F TEMP=S THEN 1 B 4 S l B l S P R I N T # D EVI C E , N A M E $ ( T E M P ) 1 B 2 S P R I NT # D EVI C E , B A L A NC E ( T E M P ) 1 B 3 S J = T E M P : GOTO 1 7 9 S 1 B 4 S CLOS E # D EV I C E 1 B 5 ,0' R E T U R N 1 B 6 S I N PUT " CON F I RM E X I T ( Y /N ) " ; EX $ 1 8 7 S I F E X $ = " Y " T H E � 1 B 8S E L S E I F EX $ = " N " THEN l B S ELSE 1 8 6S l B B S END DOUBLE S I DE D D I SK DR I VE S DENS I T Y P O WE R SUPPL Y , D I SK DR I VE CABL E , J&M NEW D I SK MANUAL , C O N T R OL L ER JFD-CP W I T H J-DOS , SYS TEMS . OPERA T I NG RS-DOS $469 . 95 D I SK C � T RIJ.. LE RS W I TH MANUAL J&M JFD-CP W I T H J-DOS $1 J9 . 9 5 W I T H J-DOS , & RS-DOS $ 1 59 . 95 1.1 RAD I O SHACK $ 1 Jll . 9 5 D I SK DR I VE CABLES CABLE F OR ONE DR I VE $19 .95 CABLE $24 . 95 FOR T WO DR I VE S M I SC 64K UPGRADE W/MOD I N S T RU C T I ONS C , D , E , r AND CO co 2 $J9 . 95 RAD I O SHACK BAS I C 1 . 2 $24 . 9 5 RAD I O SHACK D I SK BAS I C 1.1 $24 . 9 5 D I SK DR I VE CAB I NE T , WITH POWER SUPPL Y F OR A S I NGLE DR I VE $49 . 95 D I SK DR I VE CAB I NE T , WI T H 2 HALF S I ZE POWER SUP P L Y F OR DR I VE $59 . 9 5 $74 . 95 HJL - 57 K E YBOARDS VERBA T I M DS , DD BOX OF D I SKS 10 $ 2 2 . 00 VERBA T I M SS , DD BOX D I SKS or 1 0 $ 20 . 00 D I SK P R I CE S I NC L UDE SH I P P I NG COMPL E T E L I NE O F E P SON PR I N T E RS AND I N T E R F AC E S CALL F OR L OW P R I CE . CoCo rLE X CPERAT ING SY S T EM T he OR I G I NAL CoCo F L E X ' r rLE X-CoCo J r . I n c l udes Co l . $49 . 9 5 the D i sp l ay , o r i g i na l Mem . E x a m i ne/Change , FLEX 51 n n d D i sk T r ans fer F i l e s to CoCo o r CoCo F i l es to Does NOT FLEX , e tc . , etc. i n c l ude t he E d i t o r o r Assemb l e r ' r LE X- Co Co S r . Same as $ 79 . 9 5 " J r . " e x cept W I T H the E d i t o r and Assemb l e r . F L E X OPERA T I NG S Y S T E M I NC L UDE OVE R 50 U T I L I T I E S SH I P P I NG FORE I GN VISA. - AOO 5?o USA , l O?o Circle Reader Service card #213 - DATA-COMP 5900 CASSANDRA SMITH RO . HIXSON, TN 37343 (6 1 5 ) 842-460 1 r1 rx is B l echrl l c u l f r udeme r k o f S y � l em Cu1 1 �u l t u1 1 l u November 1 985 HOT Coco 67 This program is available on our Instant CoCo cassette. See the Instant CoCo ad elsewhere in this issue. by Robert Gault 1r l Dt M � � am � IC � I I UI ='-"-"-== control how your coco resets Basic programs. Reset Button Y ou have probably heard of machine language programs that will disable the break key. Now you can be the first on your block to tame your CoCo's reset button. Listing 1 is a short Assembly program that redirects the normal restart routines so that when you press the reset button, the pro gram starts at any line number desired. To achieve a flexible start, the reset sequence (desclibed on p. 208 of Going Ahead with Ex tended Color Basic) is modified. Here's what the reset button does. First. it resets most of the CoCo's main circuits to a clear condition. This means that your CoCo gets amnesia. Second, it synchronizes the video chip (VDG) at random to the leading or trailing edge of the main clock's square wave. In short. the artifact colors of PMODE4 change. Third, the master chip (6809E) does an automatic restart (JMP [$FFFEJ). which for the CoCo means start at $A027 in the Color Basic ROM. Fourth, either the text screen appears with "OK" or the copylight message appears with "OK" . Program Listing 2 illustrates how you can make your CoCo restart at any line of your program automatically on release of the reset button. Listing 2 restarts at three different locations depending on when the reset but ton is pushed. Note that the first use of the reset button simulates the start of Radio Shack's Sands of Egypt, where the· artifact colors are selected. Listing 1 works with the Color Basic 1 .0 or 1 . 1 . Extended Color Basic 1 .0. and Disk Color Basic 1 .0 ROMs. If you have the disk Basic 1 . 1 ROM. see the comment in line 460 for the necessary changes. If you do not have Extended Color Basic, the program assumes that you will not be using PMODE graphics. You can add a section of code at the indicated spot to directly set the SAM chip. To keep the program as short as possible. undocumented ROM routines are used. I will desclibe what these routines do and include below the first few commands in each so you can find them in your version of ROM if they have been relocated: Locations $72- 73 are a warm-start reset vec tor CB $AOE8: EXCB $80CO: DCB $COD4 68 • HOT Coco November 1 985 OAOE8/ NOP 080CO/ NOP OCOD4/ NOP OAOE9/ CLR < 6F 080C l / CLR < 0E3 OCOD5/ BSR OCODD OAOEB/ JSR > OAD33 080C3/ CLR < 0E4 OCOD7/ JSR > 0D l E5 OAOEE/ ANDCC #OAF 080C5/LDA > OFF03 OCODNJMP > 080CO The vector at $ 1 83 is called before each key board input RTS. = $A003 converts the hex line number in regis ter D to line location plus one in locations $47 -48. OAD03/ LOX < 1 9 OAD05/ LOU . X OAD07I SEQ OAD 1 2 OAD09/ CMPD 2,X $95CF executes the SCREEN l .n command using the last value given. This is part of Ex tended Color Basic. You can set $FF22 and $FFCO-$FFD3 directly. 095CF/ PSHS X,B,A 095D l / LOA < 086 095D3/ ADDA #3 095D5/ LOB # 10 $ADA 7 executes the line at the location in register X. OADA7/ STX < 2F OADA9/ LOA .X + OADAB/ SEQ OADB4 System Requirements 16K RAM OADAD/ CMP A #3A OADAF/ SEQ OADCO OADB l / JMP > 08277 Listing 1 is position independent so it can be located anywhere convenient. Note. how ever, that the vectors at $72 and $ 183 must be reset either manually with POKEs or by reassembling the listing. Further, you must keep track of the locations of variables LNNUM and FLAG2 since your Basic pro gram must communicate with them. Listing 2 is shown used with a tape system, but the machine-language routines can be LOADMed from disk or POKEd from data. Line 1 is a subroutine that loads the ma c h i n e-language variables L N N U M and FLAG2. It should be called before a new start line is required. The Basic valiables LN and SC are converted into the machine-language variables LNNUM and FLAG2. Thus. LN should be made equal to the line to which the reset button should branch. To obtain a text screen make SC = 0: to obtain a graphic screen make SC 1. Listing 2 assumes the presence of Extended Color Basic. Those of you with only Color Basic should replace the graphics commands with something else. A few precautions are advisable. Do not point LNNUM into a FOR . . . NEXT loop or toward a RETURN as Basie's stack has been reset and an error will result. Do not point into a graphics routine in progress unless you are sure of the results. Not only may the artifact colors change. but other problems occur as well. As an example. don't try to rePAINT something already painted the de sired color. Be careful of m ixed graphic modes as they can be canceled. If the above has not stimulated your imag ination, consider that only minor adjust m e n t s are n e e d e d fo r t h e fo l l o w i n g applications: auto-restart o f programs at any line number: auto-restart after an error: im plementation of anti-theft schemes: preven tion or loss of the all-RAM (64K) mode. • = Color Basic (Without Graphics) Extended Color Basic (With Graphics) Editor/Assembler Address correspondence to Robert Gault. 832 N. Renaud, Grosse Point Woods. WI 48236. Program Listing 1 . Reset Button Tamer 0072 0072 7F06 7FOO 7FOO 7F02 7F03 7FO5 7F06 7F07 7FOA 7FOD 7FOF 7Fl2 7F14 7Fl7 00 00 12 EC BD 25 63 DC B3 ED B C F6 AD03 OB BC F 3 47 OODl B C E9 7FlA cc 444B 7 F l D 1 0 B 3 cooo 03 7F21 26 7F23 7E COD4 7 F26 cc 4 5 5B 7F29 1083 BODO 7F2D 26 03 7F2P 7E B oco DDlDD DOllO 00120 00130 00140 00150 00160 D0170 OO!BO 00190 00200 00210 00220 00230 00240 00250 00260 00270 00 2BO 00290 00300 00310 00320 00330 00340 00350 00360 00370 003BO 00 390 00400 00410 00420 00430 00440 00450 00460 00470 004BO 00490 00500 7F32 *TAME YOUR R E S ET BUTTON * B Y ROBERT GAULT 2 / 2 / B 5 * 7E ADES • * *CHANGE WARM START VECTOR ORG $ 7 2 F D B RESET *START O F N E W ROUT I N E S * P LACE T O S U I T B U T B E * S U R E T O C L E A R M . L . SPACE * I N BAS I C PROGRAM ORG $ 7 F 0 0 LNNUM RMB 2 L I N E NUMBER PLAG2 FCB 0 GRAPHICS LNLOC R M B 2 L I N E LOCAL RESET FCB 0 FLAG * N EW WARM START VECTOR RESET NOP * M U S T B E H E R E L D D LNNUM , PC R JSR $AD03 F I ND BCS VECTOR LOC COM FLAG , P C R L D D $ 4 7 L N LOC+l SUBD # 1 STD LNLOC , PC R F O R DISK 1 . 0 *$COD4 * $ B O C O FOR E X . BAS I C 1 . 0 * S A O E B F O R BAS I C l . l * C H E C K YOUR OWN S Y S T E M 7F35 34 7F37 60 7F3A 27 7F3C 35 01 B C CB lE 01 7F3E 6F BC C4 7F4l 7F44 6D 27 B C BE oc 7 F 4 6 cc 7F49 l0B3 7F4D 26 455B BODO 03 7 F 4 F BD 95CF 7F52 AE BC AE 7F55 IC AF 7F57 7 E 7 F 5A 3 5 VECTOR Vl LDD l $ 4 4 4 B CMPD $ C 0 0 0 B N E Vl JMP $CDD4 LDD f $ 4 5 5 B CMPD $ B O D O B N E V2 J M P SBOCO Program Listing 2. Sample Basic Program. Note the LN and SC variables in lines 2, 1 0, and 1 5. 0 C L S : C L E A R 2 0 0 , & H 7 F 0 0 : C LOAD M " R E S ET " : GOT0 2 1 P OK E & H 7 F 00 , L N/ 2 5 6 : PO K E & H 7 F 0 1 , L N - 2 5 6 * I NT ( L N / 2 5 6 ) : PO K E & H 7 F 0 2 , S C : RETURN 2 L N= 4 : S C= l : GO S U B l : C L S : P R I NT " TU R N O F F T A P E R E CO RD E R " : P R I NT " P U S H T H E R E S E T B UTTON A T A N Y T I ME D U R I NG T H I S P ROGRAM A N D WATCH W H AT H A P P E N S . " : P R I NT : P R I NT " H I T ANY KEY" 3 I F I N K E Y $ = " " TH E N 3 4 P M O D E 4 , l : PC LS l : S C R E E N l , l : P M O D E 3 5 COLOR 2 , l : L I N E ( l 2 0 , 9 0 ) - ( 1 3 0 , 1 0 0 ) , P S ET , B F 6 L N = 7 : S C = 0 : GO S U B 1 7 P M O D E 4 , l : C L S 5 : P R I NT @ l 6 8 , " I F R E D P U S H r e s e t " ; : P R I NT @ 2 0 0 , " I F B L UE PUSH ENTER � ; 8 F O RT = l T 0 1 6 0 : N E XT : I F I N K E Y $ = C H R $ ( 1 3 ) TH E N 1 0 9 S C R E EN l , l : F O R T = l T0 1 6 0 : N E X T : S C R E E N0 , 0 : I F I N K E Y $ = C H R $ ( 1 3 ) TH E N 1 0 E L SEB 1 0 L N = l l : S C = l : GO S U B l 1 1 P M OD E 4 , l : PC L S : S C R E E N 1 , l : P M O D E 3,1 1 2 C I RC L E ( l 2 8 , 9 6 ) , 9 6 , 4 , . 8 : C I RC L E ( 9 0 , 7 0 J , 9 , 4 : C I RC L E ( l 6 6 , 7 0 J , 9 , 4 1 3 P A I NT ( l 2 8 , 9 6 ) , 2 , 4 : PA I NT ( 9 0 , 7 0 ) , 4 , 4 : PA I NT ( l 6 6 , 7 0 J , 4 , 4 1 4 C I RC LE ( l 2 8 , 1 1 0 J , 7 0 , 3 , . 4 , . 0 5 , . 4 5 : C I RC L E ( l 2 8 , 1 4 5 ) , 1 0 , 3 , l . 5 , . 9 , . 6 5 : PA I NT ( l 2 8 , 1 4 5 ) , 3 , 3 1 5 P MO D E 4 , l : L N = l 6 : SC = l : GO S U B 1 1 6 I F I NK E Y $ = " " T H EN 1 6 1 7 C L S : P R I NT " P U S H T H E R E S ET B UTT ON END ADA7 Bl DK * * C H A N G E T O C O E 7 FOR D I S K ROM l . l EX O!B2 01B2 O!B3 ODOOO 7E 7F35 OOOD TOTAL ERRORS DD51D 00520 00530 OD540 00550 D056D 00570 005BO 00590 D0600 00610 OD62D 0063D 00640 006 50 00660 00670 006BO 00690 00700 00710 00720 00730 00740 V2 JMP SADES PLAIN *NEW G E T INPUT VECTOR PSHS CC R E S T RT T S T F L AG , PC R BEQ EX IT PULS CC *CLEAR RESTART CALL C L R FLAG , PC R *TEST FOR T E X T OR G R A H P I C TST F L AG 2 , PCR B E Q TEXT *TEST FOR EX . COLOR BAS I C LDD #$455B CMPD $ B 0 0 0 B N E TEXT *PMODE S C R E E N C A L L TO * E X . COLOR BAS I C l . 0 J S R $ 9 5CP * LOAD RESTART L I N E IN X 0 0 7 5 D TEXT L D X LNLOC , P C R * 00760 00770 0 0 1 B O * I N D I CATE D I RECT 0 0 7 9 0 *COMMAND OOBOO ANDCC f $ A F D O B l O * E X ECUTE L I N E OOB20 J M P $ADA7 OOB30 EXIT PULS CC , P C O O B 4 0 * C H A N G E I N PUT FROM O O B 5 0 * K EYBOARD VECTOR OOB60 ORG $1B2 OOB70 FCB $7E F O B RESTRT ODBBO END OOB9D CoCo Software for Visually Impajred or Physically Handicapped TALKING SOFTWARE-Requires Radio Shack' s speech and sound module. Letter by Letter, Word by Word , Word and Punctuation are three programs which are designed to aid visually impaired CoCo users. Comes with talking book instructions and makes all BASIC programs speak.-$90. More software for the visually impaired! EARS, enhanced version-$ 1 1 0-normal version-$ 1 00. TERM TALK enables vision impaired to use CompuServe and other online services-$60. PRE-READ, reads Telewriter and Scripsit letters out loud! $29. FOOLS CROSSING, graphics adventure-$34.95 with Talk ing Book instructions. SUPER VOICE SPEECH SYNTHESIZER, sings, talks in six octaves-$ 79 . 9 5 , $99.95 with Talking Book. All A . S . C . products have a satisfaction guarantee . We accept Checks Or money Orders. Circle Reader Service card #322 A. S . C . Corporation 3529 �nessee Rd . , Lapeer, Michigan 48446 (313) 664-3722 November 1 985 HOT Coco 69 - EDUCAnoN ..................................... This program is available on our Instant CoCo cassette. by James Wood See the Instant CoCo ad elsewhere in this issue. ==-=-'-=-== Teacher Helpers These programs make the computerized classroom more civilized for students and teachers. C lassroom computers can benefit both students and teachers by improving the quality of education. Here are three pro grams to help teachers use computers more effectively by individualizing student lessons and reducing their preparation and correc tion workload. Personalized Programs If you have several short educational pro grams that a student will run in succession, you can add a personal touch. Incorporate Listing 1 into the first program the student will use, placing it at the beginning of that program. The computer asks for the user's name and POKEs it into high memory. where it will be unaffected by other programs that are loaded from tape or disk. Place Listing 2 at the beginning of subsequent programs. Before each new program begins. it wel comes the student by bringing his name back from protected storage. The program is written for a 32K machine and will run under Color Basic or Extended Color Basic. To use it with 16K machines, change all occurrences of 32700 in Listings 1 and 2 to 163 16. If any of the programs you run contains a machine-language subroutine that is stored above memory location 32700, adjust the storage area for the Listings. Line 10 in Listing 1 clears 200 bytes; increase this value if you need more storage space. True/False Test Generator How often have you wanted to create a true/false test quickly? Have you ever wished you could scramble the order of the ques tions to make cheating more difficult for stu dents with roving eyes? If you have a 16K CoCo with Extended Color Basic and an 80column printer, True/False Generator (List ing 3) can help you. Unfortunately, you still have to come up with the questions. The program stores your questions in a bank of DATA lines. The generator types out as many different arrangements of the test as you need, prevents the printer from splitting 70 HOT Coco November 1 985 CHEM I S TRY I ) I l I I I I l I I l l l ) l 1 ) TWO ELEMENTS WH I CH IS COM B I NE O X I D I ZED TO IS FORM AL WAYS A ' 85 COMPOUND. PLA CED ON THE THE SYMP-OL LEFT IN FOR THE THE ELEMENl COMPOUN D ' S F O RMULA. 2> 3) SOD I UM ' S SYMP-OL O Z ONE T R I ATOM I C IS IS Na. OXYGEN. It ) T H E NONMETALS A R E L O C A T E D O N T H E ELEME N T S . 5> T H E R E ARE 6l 7l Bl A T W O O X YGEN SOLUT I ON THE W I TH A ATOMS P H OF O X I DAT I O N NUMBER f\ J NE T I C ENERGY IS FOR 3 ENE"RGY IN IS LEFT P·A S J C . SULFATE DUE S I DE A H Y D RO X I DE TO IS AN - :: OF THE PE R I O D ! C TAr-L.E OF THE ION. • OP. J E CT ' S MOT I ON . 9 l F E R ROUS I S THE I RON I ON W I T H A N O X I DAT I ON NUMBER O F ·• 2 . 1 0 ) THE SYMBOL. F O R GOLD I S G . Fig . 1 . Student's ChemiStry Test CHEM I S TRY IT) !Tl !Tl IF) <Fl !Fl IT ) < T l I T ) <Fl 1 ) TWO W H I CH JS COMB I NE O X I D I ZED TO IS FORM ALWAYS A ' 85 COMPOUND. PLACED ON THE THE SYMBOL LEFT IN FOR THE THE ELEMENT COMPOUN D ' S F O RMULA. 2l 3) 4) SJ 6) 7) Bl 9) 10 ELEMENTS SOD I UM ' S SYMBOL OZONE T R I ATOM I C THE JS NONMETALS IS ARE Na. O X Y GEN . LOCATED ON THE LEFT S I DE OF THE PE R I OD I C TABLE ELEMENTS. THERE A ) ARE TW(1 •)XYGEN SOLU T I ON THE W I TH O X I D A T I ON A f\ J N E T I C ENERGY IS FERROUS JS I RO N THE SYMP-OL ATOMS PH OF NUMBER THE FOR FOR ENERGY I ON GOLD 3 IN IS A DUE" W I TH HYDRO X I DE P·A S J C . SUL F A T E IS ·· 2 . TO AN AN O X I DAT I ON JS G. or THE I ON . OP.JE C T ' S M OT I ON . NllMP.ER O F •2. Fig. 2. Teacher's ChemiStry Test and Answer Key a word at the end of the line, and even Jets you print answer keys. You can have the com puter print a test using all the questions or create a test with fewer questions. The pro gram shuffles the questions and ensures that each question appears only once per test. Modifying the program to suit your grade level and subject is easy. As you add DATA lines, increase the value of string space cleared (200) in line 10. If you do not add adequate space, an OS error occurs. Set the variable NN (also in line 10) to equal the num ber of test questions plus one. If you have 25 questions, for example, NN should equal 26. The program installs your questions in the System Requirements 1 6K Extended Color Basic DATA statements numbered from 1 0 1 0 up to 1 0000. The proper format is: Line Number DATA Question .. Answer State each question as a sentence and in clude a period. Use a comma between the question and the answer, which will be either T or F. Be sure that the last DATA line reads: Line Number DATA END.E Figures 1 and 2 show printouts of student and teacher versions of a chemistry test. Can you imagine making a test that neat with a typewriter or creating different arrange ments of the questions using that dreaded machine? • Address correspondence to James Wood at 424 N. MiSsouri, Box 507. A twood. IL 61913. 6B N=N-1 7 S P R I NT : P R I NT " T H E R E A R E " ; N ; " Q U E ST I ON S . " : P R I N T " HOW MANY A R E TO B E ON T H E T E ST " : I N P U T NQ : I P NQ > N T H EN 7 9 B S P R I N T : P R I N T " P R I NT E R S HO U L D B E CON N E C T E D , " : PR I N T " A N D T U R N E D ON B E F O R E H I T T I N G " : P R I NT " ( E NTE R) " 9 9 I NPUT I O l S S P R I NT # - 2 , S T R I NG $ ( 4 S - L EN ( T $ ) / 2 , 3 2 ) : T$ : PRINT#-2 , " " 1 1 9 F O R A = l TO NQ 1 2 S R = R N D ( N ) : I F JW ( R ) = l T H E N 1 2 S E L S E JW ( R ) = l 1 3S S ( A ) =R " ; ST R $ ( A ) ; " ) " 1 4 9 P R I NT # - 2 , " ( : : TL $ = Q $ ( R ) l S S L = L E N ( T L $ ) : I F L < 7 3 T H EN P R I N T # - 2 , T L $ : GOT01 B S 1 6 9 FOR G = 7 2 T O 3 S S T E P - l : I F M I D $ ( TL $ , G , l ) = " " T H E N 1 7 9 E L S E NEX T G 1 7 S P R I N T # - 2 , L E PT $ ( T L $ , G - l ) : TL $ = R I G H T $ ( T L $ , L - G ) : P R I NT # - 2 , S T R I N G $ ( B , 3 2 ) ; : GO TO l S S lBS NEXT A 1 9 9 FORA= l TO l S : P R I N T # - 2 , " " : N E X T 2 S S P R I NT # - 2 , S T R I NG $ ( 4 S - L E N ( T $ ) / 2 , 3 2 ) ; T $ : P R I NT # - 2 , " " 2 1 S FORA= lTO NQ 2 2 S P R I NT # - 2 , " ( " ; A $ ( S ( A ) ) ; " ) " : S T R $ ( A ) ; " ) " ; : T L $ =Q $ ( S ( A ) ) 2 3S L=LEN ( TL$ ) : I F L < 7 3 THEN P R I N T # - 2 , T L $ : GOT0 2 6 S 2 4 S F O R G = 7 2 TO 3S STEP- l : I F M I D Program Listing 1 . Name Program that Re sides in High Memory l S C L E A R 2 S S , 3 2 7 SS 2 S C L S : I N P U T " W H A T I S YOUR N A M E " ; NA$ 3 S L = L E N ( N A $ ) : I F L > 6 7 T H E N P R I NT " N E E D A S H O R T E R N AM E " : GOT0 2 S 4 S P O K E 3 2 7 9S , L S S FOR A = l TO L 6S B = A S C ( M I D $ ( NA $ , A , l ) ) 7 S POKE A + 3 2 7SS , B : NEXTA B S R E M A R K P RO G R A M S T A R T S H E R E Program Listing 2. Welcome-Back Program lS CLS : L=PEEK ( 3 2 7SS l 29 P R I NT " WE LC O M E B A C K , " 3S F O R A = l TO L 4S N A $ = N A $ + C H R $ ( P E E K ( A + 3 2 7 S S l l : N E X T A : P R I NT N A $ S S R E M A R K F O L LOW I NG P ROGRAMS S T A RT H E R E Program Listing 3. True/False Test Generator lS C L E A R 2 S S : P C L E A R l : N N = l 3 2 S CLS : P R I N T " TRUE-FALSE TEST GEN E R A TO R " 3 9 I N P UT " T I T L E " ; T $ 4S D I M Q $ ( N N ) , A $ ( N N ) , 5 ( N N ) , JW ( N N ) : N=l SS READ Q $ ( N ) , A$ ( N ) 6 9 I F Q $ ( N ) = " EN D " T H E N 6 B E L S E N = N + l : GOTO S S C o n nect y o u r T RS - � C o l o r C o m p u t e r to t h e O u t s i d e World 0'J U P·JLEASH G\'.�) Learn t h e s i m p l e t e c h n i q u es f o r p u t t i n g y o u r c o m p u t e r t o Y O U R C R E AT I V E G £ H I U S w o r k m o n i t o r i n g a n d c o n t ro l l i n g o u t s i d e d e v i c e s a n d i n s t r u · WITH ments. Construct and use input and output ports, analog· � ���TI�03 ful 1 Two What you �c:ro 1 l rotate ,.., 30 1 ; � · �vns. t.. c. use degrees. your c v l o .- Whether doc•d l e , Send II t · d u m p s; be can be or and *'re No copied, in and but B2A, or games, it' s At 1.. . a great ord@r this u·0 make cart oons add i t i o n to: p r 1 ce 1 - - OMLV $20.00 .-ny ! for on OS9 TRS-B0 other wr i t e Pr i nt s Palo Alto, CA can' t bl!at u s i n g B A S I C l a n g u a g e p ro g ra m s . E x c e l l e n t f o r i n d i v i d u a l o r c l a s s room i n s t r u c t i o n . T h e boo k , T R S-80 C o l o r C o m p u t e r I n t e r f a c i n g , W i t h E x p e r i · ments, or t o o l box. The The the fu ndamentals Expansion Connector ..�.. and $ 1 4 .95 B re a d b o a r d , no. CC· 1 00. Experiment Component $ 3 4 . 95 Package, no. CC· 1 50. c o n t a i n s a l l o f t h e p a r ts n ee d e d t o d o th e e x p e r i m e n t s i n t h e b o o k. $89.95 For a l i m i t e d t i m e o n l y , get a l l three for $ 1 05.00, a 2 5 % sav i n g . ( O r t a k e 1 5 % o f f o f a n y i n d i v i d u a l i t e m . ) O f f e r e x p i res November 1 5, 1 986 . V i rg i n i a re s i d e n t s , a d d 4 % s a l e s t a x . I n c l u d e $ 2 . 50 f o r s h i p p i n g . W r i t e f o r o u r n ew f re e c a ta l o g o f books, hardware, a n d s o f t ware anywherl! ! ,�..\,_f � .. "1Lr--G 1-. explains on i n t erfac i n g . . e l e c t ro n i c s , scientific software. a n d p e r s o n a l i m p ro v e m e n t g u i d e s . O r d e r from: GRAF I X -3 "<r- f u l ly a,f1 d re s s , d a t a, a n d c o n t r o l b u s s i g n a l s . Circle Reader Service card #107 I 2 1 893, c o n n e c ts d i rec t l y t o th e c o m p u t e r a n d b r i n g s o u t th e n ee d e d dumps. J us t no. i l l u s t ra t e s t h e m w i t h e x p e r i m e n t s . educat i o n a l Sof'"twarl! 60183 Box you worksheet s ! d r a w i ng . posters, P . O. 94306 �arm neces!D011 r y . colors to-d i g i t a l a n d d i g i ta l - t o-ana l o g c o n v e r t e r s t o c o n t ro l s i g n a l s between between a t' t er your or s i ng l e- k e y not and to Aardv011 r k even l i new;. f'"our menu• hexadecimal e.111 sy &hrunk to backward, graph l c• more s t ra i gh t C•r screen. devoted down, saved h e l p f' u l O k i data text space upside c u r sor e )C pand&d <::•n no Screens can be l ef't • l l oc a t e d you use GRAF I X - 3 t o h e l p you your it! Do car, t u r r. program&. swcond 01·.,.� and get , l i s ted c i r c l e• , J o y '!> t i•c ka CGP- 1 1 5. sor�ware be owro u s i .-19 P i c t u.-es you S t • rn p s can bo1<es, poi ,..o t s screens what d .i rect ion, They c:c·1�1n*'.-,()s. two is any in Draws two graph 1 c: • &&& $ ( TL $ , G , l ) = " " T H E N 2 S S E L S E NEX T G 2 S 9 P R I NT # - 2 , L E FT $ ( T L $ , G - l ) : TL $ = R I G H T $ ( T L $ , L -G ) : P R I NT # - 2 , S T R I NG$ ( B , 3 2 ) ; : GOT02 3 S 2 6 9 NEXTA 279 END 1 9 1 9 DATA T H E S Y M B O L F O R G O L D I S G. ,F 1 9 2 9 DATA W A T E R H A S T H R E E E � E M E N T S I N I T S F O R M U LA . , F 1 9 3 9 DATA K I N E T I C E N E RGY I S E N E R G Y D U E TO A N O B J E C T ' S MOT I ON . , T 1 S 4 S DATA TWO E L E M E NT S COMB I N E T 0 F O R M A COMPOU N D . T H E S Y M B O L FO R T H E E L E M E NT W H I C H I S OX I D I Z E D I S ALWAYS P LA C E D ON T H E L E F T I N T H E COM POUN D ' S F O R MU L A . , T l S S S DATA T H E O X I DA T I O N N U M B E R F O R SUL FATE I S - 2 . , T 1 9 6 9 DATA T H E R E A R E TWO O X Y G E N A T O M S I N A H Y D ROX I D E I ON . , F 1 9 7 9 DATA O Z O N E I S T R I A TOM I C OXY GEN . , T l S B S DATA P H P A P E R I S B LU E I N A BAS I C SOLUT ION . , T 1 9 9 9 DATA A SOLUT I O N W I T H A PH 0 F 3 I S B AS I C . , F 1 1 9 9 DATA F E R ROUS I S T H E I RON I O N W I T H A N O X I DA T I O N N U M B E R O F + 2 . ,T 1 1 1 9 DATA T H E N O N M E T A L S A R E LOCA TED ON T H E L E FT S I D E O F T H E P E R I O D I C TAB L E O F T H E E L E M E N T S . , F 1 1 2 9 D AT A SOD I U M ' S S Y M B O L I S Na . ,T 1 9 999 DATA E N D , E .. f;:;� :, NG TOG E T H E R P *� J;}rnup 9",, hnofogy, 0 B O X 87 • .£;�·· C H E C K VIRGINIA 24072 Circle Reader Service card #309 V i sa/ M a s t e r Card acce p t e d . 703-65 1 -3 1 53 T R S -80 is a t rademark of Rad i o S h a c k, a T a n d y Corpo rat i o n . November 1 985 HOT Coco 71 6809 on Line by Bobby Ballard I n September I presented an overview of setting up a BBS. discussing time commit ment, audience, and services. But there's more to running a BBS: you m ust think about necessary hardware and its cost. Start ing with the basics. let's look at equipment you might consider. Software Influences Hardware Your choice of software greatly affects the hardware you need. There are a number of options. the most inexpensive of which is to write your own programs. If you have the tal ent for writing machine-language. you can write a driver progr?.m to control the serial port t h rough mod ifications to Basic and stand-alone subroutines. Or you can pur chase a driver. like Remoterm from Star-Kits Inc. or 232 RemotePlus from EDC Inc. In ei ther case. you will need to write the remain ing program or programs in Basic . The advantage to this approach is obvious: Be cause you design the system. your hardware choices are not restricted. Purchased software offers different advan tages. One commercial package. Colorama. is thoroughly supported by the manufac turer. Ceratec. You get quick and courteous help if you have problems. Purchased soft ware is well worth the price. especially if you have limited programming time or talent. However. you still need a working knowledge of Basic to run a commercial BBS because you must be able to make program modifi cations and system adjustments to set up your board. Knowledge of RS-232 protocols is also im portant. You need a special cable to accom modate the additional RS-232 lines missing on the CoCo. Colorama uses the standard 1/0. cassette. and joystick ports on the back of the Coco to deal with 1 . 200-baud detec tion. carrier-detect. and smart-modem fea t u r e s . A C o C o . d r i v e s . c o n t ro l l e r . a n d autoanswer modem are t h e basic require ments for a Colorama system-you won ' t need a n RS-232 port o r Multi-Pak Interface. The system will handle up to three double sided drives but can be run on one single sided drive. as well. The middle ground between purchased and original software is public-domain soft ware. The cost is low. but you must be willing to debug and modify the programs. Even if you make a donation. you do not get the same support you receive when you buy a commercial package. One such program, COBBS. written by Richard Duncan. can be downloaded from CompuServe or another BBS. At present. COBBS supports up to three single-sided drives and requires Tandy's Deluxe RS-232 72 HOT Coco November 1 985 v ------- BBS Hardware Program Pak (catalog n o . 26-22 26) . You must therefore use a Multi-Pak Interface [cat alog no. 26-3 1 24) or a Y cable. but your serial 1/0 port is free for a printer or another periph eral . In addition. using a fully configured RS232 port gives you greater control over your modem and its control lines. Since the Coco lacks a standard RS-232 port. you cannot reliably send data at speeds above 1 .200 baud using the existing port. With the advent of 2.400 baud, you might want to consider adding an RS-232 port. Of course. this requires that you purchase a Multi-Pack Interface to simultaneously han dle your drive and controller. You might buy Tandy equipment or purchase a bus-expan sion board from PBJ Inc. A BBS Ties Up Equipment An early d e c i s i o n you m u s t make is whether to have an additional phone line in stalled. If your board will be on line 24 hours a day. consider dedicating a separate phone line for your BBS. BBS numbers get passed on and often the information regarding hours of operation is omitted. You might find peo ple calling you at all hours. thinking it is a 24-hour-a-day board. Equally important is balancing your per sonal computing and BBS needs. You might not be able to get by if you have only one CoCo with a drive controller and two disk drives. When your BBS is running. your CoCo will be tied up just as if someone else were at the keyboard. Setting up a separate system is expensive. Adding a printer might prove invaluable in printing membership lists and tracking caller activity while you are away from the terminal. but it will in crease costs. too. Then there's OS-9. Perhaps you can use it to time-share and multitask in order to ac commodate your personal and BBS needs. But while it is possible to run a system on OS-9. only one person can access the disk system at a time. OS-9 is still worth consid ering. though. because you might be able to serve two callers at once using a dual RS-232 port from PBJ Inc. Another important piece o f BBS equip ment is a modem. If you don't own an au toanswer modem. you will need one for your BBS. Even if you do. you must choose be tween tying it up with the BBS or buying a second one. O! course. if you telecommuni cate only occasionally. you might not need two modems. Other Considerations Storage capacity is the heart of any BBS and represents the largest overall cost. You need disk space for all files and storage space for the disks. Uploading and downloading also consume space. In fact. most download and information files are stored in ASC I I . which uses more space than tokenized Basic. A program that uses 5 granules in Basic might use 6-8 granules in ASCII. Protecting files from spikes and surges must be figured in total costs. With a BBS it is best to protect the telephone lines in addi tion to the system power lines. There are many odds and ends that also add up. Paper and printer ribbons are two of the little things that you 'II need more of once your BBS goes on line. It's clear that there are many factors to consider and many places to spend money. but you are the con trolling factor. What you want from the BBS and how it is run are up to you . • Address correspondence to Bobby Ballard, 1 207 Eighth Ave .. 4 R. Brooklyn. NY 1 1 2 1 5. Yo u can also reach h i m on l i n e t h rough CompuServe (# 72746.2373 or # 73 1 35.255). The Source (#BCTl 73). and MCI Mail (# 1 7234 76). Bobby's BBS number is 7 1 8499-1 633. Manufacturers CompuServe P.O. Box 202 1 2 Columbus, O H 43220 800-848-8990 Ceratec Inc. P.O. Box 663 Elgin, TX 7862 1 5 1 2-285-2620 Richard Duncan 2504 North Gathings Drive W. Memphis. AR 72301 · BBS Number: 501 -735-56 1 4 EDC Inc. P.O. Box 427 1 8 Los Angeles, CA 90042 2 1 3-254-6809 BBS Number: 2 1 3-258-0640 PBJ Inc. P.O. Box 8 1 3 North Bergen. N J 07047 20 1 -330- 1 898 Star Kits Inc. P.O. Box 209 Mt. Kisco, NY 1 0549 9 1 4-24 1 -0287 Tandy 1 400 One Tandy Center Fort Worth, TX 76 1 02 Readers Forum • LOCAL • IN • LOS • ANGELES � Circle Reader Service card #135 • •or A l l \·our Projt•el s Wl' Han• Thl' •'u l l Spt•el rum Or Sortwa rt• & H a rdwart• A l wa�· s At Good Priel's : INKEY$ Improvement The article, "Those Amazing POKEs" March 1 985, p . 28) was very in (Har CoCo, teresting, but I needed something more . My one-liner combines the best qualities of IN KEY$ and EXEC44539: 0 X$ = " " : POKE VARPTR(X$) + 2,0:POKE VARPTR(X$) + 3,&H87 After a program executes this line, X$ will contain the value of the last key pressed after any use of INKEY$ or EXEC44539. Because this line changes the string pointer for X$ to the last-key-pressed mem ory location in the Basic communications area, you should not use X$ for another value or you might write over important data. If you are already using X$ as a variable, sub stitute another single-character variable, making sure that both POKEs use the correct VARPTRs. Geoffery H. Frizzell Edmonton, Alberta Pseudo PRINT USING If you 're using a n MC- 1 0 or a CoCo without Extended Color Basic (or even an Apple II or Commodore), you can't take advantage of Basie's PRINT USING statement . This com mand Is particularly useful when you are working with numbers or money amounts because it lets you round off numbers or dis play figures in columns with the decimal points aligned. For example, the statement, PRINT USING " # # # # . # # " ; 7634 . 728, will print the number as 7634 . 73 . While you can't change your computer's command vocabulary. you can use my short utility as a substitute for PRINT USING . Lines 10-240 and 360 are included for dem onstration purposes; they show how the numbers can be printed . Lines 2 10-350 con tain the pseudo PRINT USING subroutine . Before the main program branches to it, you need to assign the number of places before the decimal (NB). the number of places after the decimal (NA), and the number that you want converted (N). Upon returning control to the main program. you must include a line that prints N$ . The number will be printed as if you had used PRINT USING. 10 C L S : ' AN N R E E VES 2 0 P R I NT @ 8 , " P ROGRAM TO S I M U L A T E " : P R I NT " P R I NT US I NG " C H R $ ( 3 4 ) " # # # # # . U " CHR$ ( 3 4 ) : PRINT" ( I . E . WR I T E N U MB E RS I N COLUMNS A N D ROUND E D A S P EC I F I C NUMBER O F P L AC E S ) . 30 I N P UT " < E NTE R > FOR D E MON ST RAT I ON " ; A $ 40 C L S : P R I N T " T H E N U M B E R S - AS T H EY O R I G I N A L L Y W E R E 5 0 F O R X = l T O 1 0 : R E A D Y : P R I NT Y : N E XT X : R E STORE 6 0 I N P UT " < E N T E R > " ; A $ 70 I I I I 80 CLS : P R I NT " I N A COLUMN - R O U N D E D TO N E A R EST I NT E G E R ( CO L U M N WI DTH 7 ) 9 0 P R I NT " L I K E ? R I NT U S I NG " C H R $ ( 3 4 ) " # # # # # # # " CHR$ ( 34 ) " , N " 100 NA = 0 : N B = 7 ' S ET 7 P L A C E S B E FO RE D EC I MA L , 0 P L A C E S A F T E R D E C I M AL 1 1 0 F O R X = l TO 1 0 : R E A D Y : N = Y : GOS U B 2 20 1 2 0 P R I NT N $ : N E XT X : R E STORE 1 3 0 I N P UT " < EN T E R > " ; A $ I I I 140 I 1 5 0 C L S : PR I NT " I N A COLUMN - ROUN DED TO N E A R E ST CENT ( H U N D R E DT H ) B E FO R E T H E D E C I MAL --6 PLACES A F T E R T H E D E C I MAL , 2 PLACES 160 P R I NT " L I K E P R I NT US I NG " C H R $ ( 3 4 ) " # # # # # i . # # " CH R$ ( 3 4 ) " , N 1 7 0 N A = 2 : NB = 6 ' S ET 6 PLAC E S B E FO RE D E C I MA L , 2 P L A C E S A F T E R D E C I M AL 1 8 0 FOR X = l T O 1 0 : R E A D Y : N = Y : GOS U B 2 20 1 9 0 P R I NT N $ : N E XT X 200 END 2 1 0 ' ' ' T H I S S U B ROUT I N E U S E S V A R I A B L E S N $ , N , NA , N B , NC , N L , NT 2 2 0 I F N > - . 0 1 AND N < . 0 1 THEN N=0 230 IF NA>0 THEN NT=NA+NB + l ELSE NT=NB 2 4 0 I F N > 9 9 9 9 9 9 9 9 9 OR N < - 9 9 9 9 9 9 9 9 9 T H E N P R I NT " O UT O F RANG E " ; : N $ I =STR$ ( N ) : RETURN ' J UST I N C A S E THE NUMB E R I S TOO B I G 2 5 0 N = ( I NT ( l 0 � N A * N + . 5 ) ) / 1 0 � N A 2 6 0 N$ =STR$ ( N ) 2 7 0 FOR N L = l TO L E N ( N $ ) 2 8 0 I F M I D $ ( N $ , N L , l ) = " . " T H E N GO TO 3 4 0 2 9 0 N E XT N L 300 I F N A > 0 T H E N N $ = N $ + " . " : F OR NC =l TO NA : N $ = N $ + C H R $ ( 4 8 ) : N E X T NC 3 1 0 I F L E N ( N $ ) > NT + l T H E N N T = L E N ( N $ ) ' J UST I N C A S E T H E N U M B E R WAS TOO LONG 3 2 0 FOR NC = l TO NT : N $ = C H R $ ( 3 2 ) + N $ : N E X T NC 3 3 0 N $ = R I G H T $ ( N $ , NT ) : R E T U R N 3 4 0 I F N A > 0 T H E N F O R N C = l TO NA : N $ = N $ + C H R $ ( 4 8 ) : N E X T NC 3 5 0 N $ = L E FT $ ( N $ , N L + N A ) : GOT0 3 1 0 3 6 0 DATA 1 2 9 8 . 7 9 9 , 2 3 4 . 3 2 1 8 , 5 4 9 9 9 9 , 3 4 . 2 , 6 54 7 . 4 3 2 1 , 8 . 08 9 3 , 6 54 . 98 7 , . 1 7 6 5 , 5 4 . 6 5 4 , 3 4 5 4 2 1� 5 5 3 Anna M. Reeves Espanola, WA Hayes 300 Smart Modem - $175.00 $149.00 $319.95 6809 CPU $ 17.95 $ 22.95 $ 22.95 Amdek 300 A Monitor DR 0 & 1 System Chip RSDOS 1 . 1 Disk Extended Basic 1 . 1 Gold Rom "Y" Cable $ 22.95 We Stock Amdek Amdisks ! @ - 10% @ - 10% @ - 10% @ - 10% VIP Integrated Library DynaCalc ! RSDOS) Data Pack II (The Best Term. J Business Software E.D.C. carries the most complete line of software and hardware in the market. Green Muu11tai11 Micru!! Computerware (All) Cu•tum Software (Nu Due.) Key Cu/or Softu•are (Ke.v 264KJ Michtron Tum Mix (All) Moreton Bay (More) Prickly Pear (Culorkit!) Platinum Suftll'are (!) Soft/au· ( YIP) Spectral Associate" Speech Systems (All) Sugar Soft ware & (Super) CuCoPro {Y2) Computer Systems Center Cer-Comp Metric- HJL Interfaces Eleplta111 1eac Ha.ve.< Star Monit.ur• Speech Controllers Music ALWAYS MORE AND BETTER * 232 Re mole P l u s * 824 . 95 + 2 . 50 s "' ff See Rainbow review Sept.ember issue. COLOR & MICRO COMPUTERS Software • Hardware • Support Ed ucational • Small Business • Games VOICt: (213) 254-6809 10 Ul.-10 P.M. BBS (213) 258-0640 24 HRS. 300 and 1200 Baud Extended Hours+Call before coming. 6 1 30 YORK BOULEVARD POST OFFICE BOX 42718 LOS ANGELES, CA. 90042 November 1 985 HOT Coco 73 Assembly IOI v by Victor and James Perotti --...... �-- The Nondestructive Cu rsor L rodes lo more advanced Assembly-language 0007 to ORG $ 1 200. delete line 0008 . and before you fire up the editor and begin writ 0009 . Change line 0058 to DONE SWI . move the START instruct ion down to line classes. but you should get the logic down To follow this column. you will need an editor/ assembler. The authors use Micro Work's Ma cro-BOC disk assembler. and changes are given for Radio Shack's EDTASM + . Other assem blers will also work. but the programs may re q u i re some add i t ional modifica t i o n . The documentation that comes with your software should provide the commands you need. ing code. The SAVE routine i s new. After X is incre The following steps will give you a nondes mented. the new address is stored in the cur tructive cursor: sor pointer and is aJso used to save the char arrow key or a regular ASCII character? the program also stores B in the C H A R loca • Go lo POLCAT. Is the next key pressed an acter at X. Although B holds the ASCII value. • If it is an ASCII character. print it. update tion in R A M . The program then loops back to register X. save the character at the new X . GO to scan the keyboard again. If POLCAT • If the key pressed is an arrow key. deter acter is written to X and the content of C H A R picks up another ASCII character. the char and update the cursor. i s ignored. mine where the cursor will go (use the up ast month's program. Destructive Cur dated a d d ress in X ) : c h e c k to see i f t h e sor. let you use the arrow keys to move t h e cursor around t h e screen . w i p i n g out address i s s t i l l o n t h e screen ( i . e . . greater cursor locat ion. ActuaJly. the cursor is printed character at the location to which the cursor Restoring the Old Character than $400 and less t ha n $5FF): save the w hatever letters were printed under the new is moving: restore the saved character that on the screen . POLCAT writes a blank [$60) at was at the cursor ' s original location: and the cursor address: hence. when the cursor old X address (before it is altered in the ar move the cursor to the new location. moves again. a blank remains where the cur row-key subroutine) to restore the character • Return to POLCAT. There are lots of ways to set up a tempo sor had been. To manipulate text. you also need the option of a nondestructive cursor that the c ursor displaced. The RSTORE sub routine moves the contents of C H A R into A: rary storage location for characters you want one that you can move without destroying ex If POLCAT's keyboard scan finds that an arrow key was pressed. it is best to use the A is t hen stored or printed at X. Note that isting characters. to save. Both Macro-SOC and EDTASM + each of the arrow-key su brou t i nes begins cannot prevent the computer from writing ating storage location in RAM: The acronym RSTO R E . Note also t hat J S R subrouti nes PO LCAT is used i n a progra m . You don ' t of bytes of memory to be reserved for this use have a pseudo-operating instruction for cre The cursor is inherently destructive: you w i t h a JSR ( J u m p t o the S u b ro u t i n e ) is RMB. Reserve Memory Byte. The number the cursor ($60) at the address in $88 when must end with an RTS ( Return to Subrou t ine). which concludes the subroutine and re follows RMB. For example. CHAR RMB I sets want t o completely abandon POLCAT. but turns control to the calling routine. Now the up a I -byte storage location for the character. X address and CURSOR can be updated to this. you must restore the character to its memory location to C H A R . routine called. you must also store the address for the char sor. displays the longer GO routine. which But you're not done yet. Before you can include a branch back to GO. which will print • Jump to the POLCAT subroutine to <;can i n t h e new loca tion needs to be stored in you do want a way to save the character that The assem bler au tomatically assigns t h e the cursor would otherwise destroy. To do T h e Program Listing. Nondestructive Cur original position after the cursor moves. so now has the fol lowing four rou tines: acter saved. However. you don't always want to restore the original character. If POLCAT is called to CHAR. You can use the arrow keys to run the • Branch to the subroutines if one of the ar check the cursor location to see if X is be- • Display t he character and update the cursor. TOP or OFFBOT. the program will place the key was pressed . of the old . On the other hand. if you're just row keys was pressed . vou'll want the original character restored. • Save the character at the next position. tion. the new character should take the place moving the cursor through a screen address. hard part about writing more complex pro Break the problem down into single parts: then wri t e rode to perform each part. We'll leave the lecture on nowcharting and pseudo- Program Listing. Nondestructive Cursor • • 0002 74 DEDO 0400 HOT Coco DEPIN� CHAR V T DRAM SYMBnr.s RMB l EOU $0400 November 1 985 CURSOR POR ROM CALr.s TO HOJ.O 01.0 CH A RACTER 'J'OP O F SCfH:t-:N A O O R BYTE $400 and $5FF. I f the address is OFF- · cu rsor at t h e first or last pos i t ion on the screen . However. as before. you must store the character occupying that first or last spot for later use. But that's easy: Use the SAVE subroutine again. and then BRA GO. • 1 6K Color Basic Editor/Assembler do and how it should accomplish that task. l t ween System Requirements grams is figuring out what the program must 000 cu rsor off the screen. so the program must I f you ' re using EDTASM + . change line The whole thing sounds complicated. The DESTRUCTIVE the cursor at the new position. the character the keyboard . and jump to DONE if the break write a new character at the cursor's loca NON renect the arrow key that the original sub Write to James and Victor Perotti at 1 63-Pine Grove Heights. Athens. OH 4570 1 . 0003 A!Bl POLCAT EQU 0004 A J OA P R I NT EQU SA30A 0005 0088 CURSOR E Q U S 0 8 8 SA!Bl 0006 A928 CLS EQU 0007 A027 BASIC E Q U SA0 2 7 0008 OEOl START NAM 0009 OEO l BDA928 0010 00 l l OE04 0E07 8E0400 9F88 SA928 LDX P R I NT FROM ADDR TO S C R E E N P O R CURSOR SUBROUT I N E ROM KEYBOARD CHARACTER ADDRESS TO POR CLEAR SCREEN BAS I C NONCUR J S R CJ�S TOP GET CHAR CLEAR SCREEN IVTDRAM S T X CURSOR P U T C U R S O R AT T O P O F SCREEN 0012 0013 OE09 OEOC BOAlBl 8103 0014 OEOE 2764 0015 0016 OElO OE12 OE14 OE16 OElB OElA OElC OElE 8109 2727 8108 271C BlOA 272E 8 1 5E 2722 GO JSR POLCAT CMPA 1 0 3 C H E C K KEYBOARD J'. S I T T H E BREAK BEQ RETURN TO B A S I C OONE 0038 KEY? * * * * * * I S T H E K E Y AN ARROW K E Y ? 0017 0018 0019 0020 0021 0022 CMPA 109 B E Q RIGHT CMPA 1 0 8 BEQ LEFT CMPA 1 1 0 B E Q DOWN CMPA 1 9 4 BEQ UP R I G H T ARROW? IS IT IS I T LEFT ARROW? IS I T DOWN ARROW? 0023 OE20 OE23 OE25 BOA30A 3001 9F88 E684 0026 OE27 0027 0028 0E29 F70EOO 0 E 2 C 2 0 0B C H ROUT JSR P R I NT LEAX l , X STX CURSOR * * NOW SAVE C H R . SAVE LOB • x 0E42 OE45 0E48 BOOE2E 308BEO 2008 0 0 4 1 0 E 4 A BOOE2E 0042 0E40 308820 0043 OE50 2000 IN D I SP C H A R ON SCREEN INCREMENT CURSOR NEW LOCATION GET OLD CHAR SAVE OLD CHARACTER S T B CHAR BRA GO GET ANOTHER CHARACTER * * *. * * * ** * * * * • • * *. *. * * *. * * * • • * . * * SUBROUTINE FOR : RES TOR I NC OLD CHARACTER . . . .. RSTORE 0031 O E 2 E B60EOO O E 3 1 A784 OE33 39 0032 OE34 BOOE2E OE37 301F OE39 2017 LEFT O E 3 B BOO E 2 E 0E3E 3001 OE40 2010 R I G HT * * * * * SU B R O U T I N E S 0033 0034 0035 0036 0037 FOR EACH ARROW J S R RSTORE LEAX - 1 , X BRA C H E C K JSR Circle Reader Service card #196 MOVE MOVE OOWN A L I N E OE52 E684 OE54 F70EOO O E 5 7 BC0 4 0 0 O E 5A 2 5 0 9 0048 0049 0050 0051 0 E 5C 0E5F OE61 OE63 0052 0053 0054 OE65 BE0400 OE68 9FBB 0E6A 20BB OFFTOP LOX 0055 0056 0057 OE6C 8 E 0 5FF 0E6F 9F88 OE71 1 6 FFB3 O F F BOT CHECK LOB OE74 BC05FF 240B 9FBB 20A4 0059 0E77 SCREEN? R I G HT ONE SPACE CLS GO 7 EA027 • x LINE GET OLD CHARACTER S T B CHAR C M P X I V I ORAM B L O OFFTOP CHPX I S 5 F F B H S OFFBOT S T X CURSOR SAVE I T FOR NOW LOWER THAN TOP? IF O F F TOP H I G H E R T H A N BOTTOM? IF O F F BOTTOM IF ON SCREEN B R A GO DONE PUT CURSOR 1$400 S T X CURSOR B R A SAVE AT TOP LEFT CORNER STORE C H R AT $ 4 0 0 LOX I S 5 F F S T X CURSOR LBRA SAVE P U T CURSOR AT BOTTOM R I G H T ******** 0058 BAS I C RSTORE LEAX l , X B R A CHECK JSR RSTORE LEAX 3 2 , X B R A CHECK 0044 0045 0046 0047 NO ERRORS P R I NT OLD CHAR BACKUP CURSOR S T I LL ON MOVE U P A ........ GET OLD CHR D I S P I T AT O L D SPOT RETURN TO SUBROUT I N E CALL LOA CHAR STA • x RTS DOWN J S R RSTORE LEAX -32 , X BRA CHECK CURSOR ON T H E SCREEN V I ORAM = $ 0 4 0 0 TO $ 0 6 0 0 * * . * * ** ** * * *** * * ** * * * * ** * ** * * ... .. . . . .. . . ....... . ........... 0029 0030 UP * * * * * . * * ** * * * * * * * * * * * * * * * * . * * SUBROUTINES TO K E E P I S I T U P ARROW? * * * * * M U S T B E REGULAR CHARACTER * * P R I NT I T , SAVE OLO CHARACTER 0024 0025 0039 0040 STORE CHR AT $ 5 F F BREAK K E Y P R E S S E O CONCLUDE PROGRAM RETURN TO BAS I C JMP BAS I C E N D START A L L DONE , GOTO B A S I C FOUND A027 A92B OE09 POLC AT Al Bl OE27 SAVE V I DRAM 0 4 0 0 CHAR OEOO CURSOR 0 0 8 8 LEFT OE34 OFFBOT O E 6 C OFFTOP 0E65 P R I NT START RIGHT TOP RSTORE UP OE2E OE42 A30A OEOl CHECK DONE OE52 OE74 0E3B OE04 CHROUT 0 E 2 0 0E4A DOWN END ASSEM BLY 101 STU DENTS MAKE TH E HONOR ROLL WITH MAC· R 0-80C Learning 6809 Assembly Language i s challenging and f u n , but can be frustrating without expert gu idance and the right tool>. James and Victor Perotti provide expert guidance. The Micro Works provides the right tools. Macro-BOC will help you get the most out of Assembly 1 01 and your Coco. It consists of a d isk-based screen oriented editor, macro assembler and debug monitor program-all the essentials for writing and testing your assembly language programs. MACROBO-C EDTASM + " We will be using Micro Work 's Macro-BOC disk assembler; we prefer it to all the Color Computer assemblers we have used. " Hot Coco-May 1985 Assembly 101 : by James and Victor Perotti The� O@� W@� Tell them "I saw The Teacher's Pet it in HOT Coco." NEW! The powerful Structured Macros package is now included with Macro-BOC. It allows I F/ELSE, REPEAT/UNTIL, WHILE/ E N DWHILE and other control structures to be used directly in an assembly language program. A $40.00 value . . . free' For cassette-based systems. use SDSBOC. It has many of the features of Macro-BOC but comes in Rompac k . leaving all of your RAM free for your programs. MACRO-BOC DISK $99.95 SDSBOC ROMPACK $B9.95 A P O BOX 1 1 1 0 Del Mar. CA 92014 (619) 942-2400 November 1 985 HOT Coco 75 The Learning Page by Nancy Kipperman T ---- " Coco Simu lations o prepare for this colum n . I explored the waters of Odell Lake in Orego n : traversed t h e woods .of t h e northern United Competition exists between the compa nies: each begins with $5.000 in cash and an inventory of 100 bicycles. The simulation States: sold apples. plants. lemonade. and bi continues u n t i l one company has earned gained a new understanding of President An dents make decisions each quarter about cycles: wrestled with the U.S. Congress: and drew Jackson. All this-and I never left the computer! $32.000 in assets or gone ban krupt . Stu prod uction level. advertising budge t . and by random events. such as fire. transporta such as the Indian removal from the South or (grades 2-9) prepared by M i nnesota Educa tion a n d prod u c t ion . strikes. wage-price freezes. and burglary. poration a n d Co ngress a n d Pre s i d e n t i a l Decisions of Andrew Jackson (grades 9- 1 2) from B5 Software (also available through Radio Shack's Express order Software). Outdoor Biology This simulation contains two programs to These programs require a 32K Color Com be used as part of a science c u r r i c u l u m disk drive. (Congress is also available on cas ing conditions for five kinds of fish in a North puter with Disk Extended Color Basic and a sette.) You can use each simulation on an in dividual basis. with a team of students. or as a class project. (grades 2-9) . Odell Lake simulates t h e feed Market Place is designed for use within a up activities. of a specific kind of fish . The fish meets other the student's decisions in each situation. Sell Plants adds the concept of expenses student sells 1 .000 tomato plants that the class has grown at a fixed expense of $30. Opportunities to purchase advertising at 25 cents a sign help the student to increase ex posure and sales. Results demonstrate the relationship between selling price. advertis In Conclusion A l l t h ese si m u lations have value in t h e time available to you. Simulations such as mal in the woods and makes survival deci competition. There is much to be learned by animal must eat enough lo maintain its en concepts; using simulations will no doubt but the student assumes the role of an ani sions as that animal. In order to survive. the unpredictable outcomes. Student learns are and advertising to the selling situation. The stated. Odell Woods provides similar experiences. determine the best price at which to sell ap ples. Each time the program is run. a new ulation. your progress is rated with points classroom . Where they fit into your curricu ergy level and successfully live through a best price is randomly set. and historical effects of Jackson's decision the student gains insight into food-chain rela Sell Apples is the simplest simulation. The student becomes the apple seller and has to before a decision must be made. After you make your decision. i t is com kinds of fish and plant life in its natural envi tionships and ecological systems. classroom. including preparation and follow from others-friends or cabinet m e m bers. These options can be used more than once and your effectiveness as Andrew Jackson do several reproducible student handouts section of text suggests possible uses in the overall effect of the problem . or ask advice In Odell Lake. the student assumes the role Through experimentation (and often death). clearly stated for the teacher's benefit. and a you choose to reflect u pon the past. view the are explained. Finally. at the end of the sim t h a t i n crease in d i ffic u l t y . An e xc e l l e n t and question sheets. Learning objectives are newspaper article displayed on the screen to obtain background information. In addition. ests. Reproducible materials and course ob ronment. The survival of the fish depends on course manual accompanies thi s software a s the Eaton Scandal. To achieve this. you read a pared to Jackson's. Then the final outcome social-studies curriculum and teaches eco nomic concepts. It contains four simulations decisions he did in each of several situations. American lake: Odell Woods simulates the food chain that exists in North America's for jectives are included in the package. Market Place Also a social-studies simulation. this pro gram allows you to become President Andrew Jackson . Your challenge is to make the same other company's decisions and, eventually. tional Computing Consortium for Tandy Cor Andrew Jackson selling price. Outcomes are affected by the I gained these experiences using simulations for the CoCo: Market Place and Outdoor Biology student teams o r pairs would work well with this program. lum depends on you and the equipment and these make it easy to set up a class project or t h e practical application of knowledge or add an element of interest and suspense to maximum of nine random encounters with the learning process. • suggested as the best use of this simulation Nancy Kipperman is HOT CoCo 's Education Editor and an English teacher at Conant High School in Jaffrey. NH. Write her c!o HOT CoCo. 80 Pine St.. Peterborough. NH 03458. because decisions can be d iscussed a n d agreed upon. Congress Congress is a social-studies simulation in w h i c h you become t h e presi d e n t of t h e United States. You build your program o f five bills and then attempt to pass them through Manufacturers and Products B5 Software 1024 Bainbridge Place Columbus. OH 43228 ing. and profit . Congress within a two-year period. Congress onade-stand business. The student decides bers of your chosen party affiliation. All bills (disk) must decide where to place your 20 lobbyists son: $3 1 .95 Sell Lemonade lets t h e student set up a lem the quantity of lemonade to be produced. the price. and the number of advertising signs to purchase. Random events. such as changes in weather. street repair. and a parent's deci sion to stop providing free sugar. affect sales and profit . Sell Bicycles i s the most complicated of t h e might or might not have a majority of mem begin in the House of Representatives: you to effect the greatest good for your platform. Flowcharts show the steps of a bill going through Congress. If the bill passes. you de cide whether to veto the bill. sign it into law. or ignore it and let it become law. The num Market Place simulations. Students manage ber of amendments added to each bill during are affected by their business decisions. tion is different each time it is played. Again . two bicycle companies and learn how sales 76 HOT Coco November 1 985 passage affects your point score: the simula 6 14-276-2752 • Congress: $29.95 (cassette) or $3 1 .95 • Presidential Decisions of Andrew Jack Minnesota Educational Computing Consortium 3490 Lexington Avenue North St. Paul, MN 55 1 1 2 • Market Place: $34.95 • Outdoor Biology: $34.95 ' Product News by J. Scot Finnie Polygon ' s Flight Check, D . P. Johnson ' s CCR D , Four Star's PenPal , OS9 Cal ligrapher, New Mark Data Games , the Latest from Dorsett, and More . Information related in the Prod uct News section is supplied by manufacturers. HOT CoCo has not tested or reviewed the prod ucts discussed here and cannot guarantee manufacturers ' claims. S pecialized or vertical appli cations are a trend this month. More and more software and hardware companies are re alizing that computer innova tions that perform unusual or unique business, personal-pro ductivity. or job-specific func tions can quickly find their niche in the marketplace. Tailoring software to the needs of a small group of people (who will benefit substantially by an application designed to meet their needs only) makes sense because it of fers the potential for the program to be efficient and easy to use. Such products can also provide "expert" information or a cus tomized work environment to their audiences. Specialized or Unusual Polygon Industries is one of several companies that offers job specific programs. Flight Check is an airplane-operation program that computes the best altitude and power settings for a given flight. It also computes weight, balance. and reserve fuel at des tination . Barrett Leibe of Polygon noted that the program was "field" tested for 1 2 years in his airplane dealership business. Flight Check sells for $49. Poly gon also offers F & I Master, a program designed to allow auto mobile dealers to work monthly payment terms on screen and print out 13 kinds of sales forms. It lets salesmen quickly discover 78 HOT Coco the best financing for each cus tom er. F & I Master sells for $2,000 but comes with extensive on-sight support. including cus tomization for each dealer. These programs require 64K and at least one disk drive. ing and reacting to a game on your TV or monitor. The com pany markets the device as an exercise alternative and has tested the product for medical safety. The Sports plugs into one of the CoCo's joystick ports with out modification. It sells for $ 1 50. new generation of 'expert' pro grams." Medic appears to offer lay medical advice on common physical ailments-not what you might term expertise. It requires 16K, Extended Color Basic, and a disk drive. It sells for $20. Advances West Bay Company has re leased a new program called Medic, which it calls "one of the If you think specialized soft ware is the latest rage, you hav en't seen some of the unusual stuff being dreamed up out in CoCo land. Before Sports. the only exercises your computer of fered were finger calisthenics or getting up to stretch your legs. Compu thon could be on the verge of a new breakthrough in computer exercise. The Compu thon Sports is a giant coil-spring loaded joystick with a foot-oper ated frre button (see photo). You stand on it and move its handle bar with your body while watch- D . P. J o h n s o n has a b l o c k buster of a new -product a n nouncement this month. The company has released a 5 1 2K RAM-disk cartridge called CCRD (for Color Computer RAM disk). The CCRD plugs into a multiple ROM-pack interface and runs with OS-9. (The company also provides OS-9 drivers for cus tomers who do not own OS-9.) The CCRD cartridge is a half-me gabyte RAM disk that can be used by any program just like a disk drive. RAM disks can access software several times faster than mechanical disk drives be cause data is stored in R A M . RAM disks are especially useful for speeding up the compiling of C or Pascal programs. For larger memory, two CCRDs can be con figured in one system to provide a megabyte of storage. T h e CCRD requires a multiple ROM pack interface and OS-9 or OS-9 drivers you purchase separately from D.P. Johnson for $20. The cartridge sells for $298. Four Star Software, makers of CoCo Paint and other fine pro Sport.sfrom Computhon is a giant exercise joystick. The game pic tured in the background is Skiing from Tandy Corp. November 1 985 grams, is being secretive about its new integrated business pack age dubbed PenPal. The product grew out of an idea for a flexible, creative database system, which Product News reported on in May. PenPal is sure to include a word processor. spreadsheet, and database. The company in tends to release the new product before the end of the year. We'll just have to wait and see . Soistmann Enterprises can't resist saying "help has arrived." The company offers a new DOS called S.O.S. (for small operating system). S.O.S. requires a 64K Color Computer and is designed for machine-language programs. It does not support Basic. The DOS was designed to provide a larger work space and several im provements for program devel opers. Its format, backup, and copy utilities are designed to work with 35-, 40-. or 80-track single- or double-sided d i s k drives. The new DO S offers a long list of intriguing options and fea tures. This might be just what you are looking for. Contact the company for more information. S.0.S. sells for $49.95. News Bits PBJ of Word-Pak fame has a new address and phone number: P.O. Box 8 1 3 , 5 7 2 5 Kennedy Blvd .. N. Bergen, NJ 07047. 20 1 - 861-0126. The company is work ing on a new version of the OS-9 driver for Word-Pak that will en hance the product's use with other products, such as Com puter Systems Center's Dyna· Cale for OS-9 being marketed by Tandy. PBJ is also quickly be· coming the de facto standar\i in multifunction add-on boards for t h e Ta n d y 1 000. N e w 1 000 boards in the works from PBJ in· elude a 2 -megabyte board. a high-resolution board, and the "Super Charger," which con· tains the 80126 chip (the same one used in the Tandy 2000) . The Coco Calligrapher from Sugar Software has been re· leased in a new version for OS-9 called OS9 Calligrapher. The program is a special-purpose tex1 processor that reads an input file containing both text and format ting directions. Text is output to a dot-matrix printer or redirected to a file in one of many available print styles. OS9 Calligrapher supports Epson. Gemini. Tandy. Okidata. Leading Edge Banana. and C. Itoh Prowriter dot-matrix printers and their compatibles. It sells for $39.95 plus $ 1 . 50 for shipping. Sugar Software headed south a few months back. They now have a new phone number to go along with their new Holly wood. FL address: 305-98 1 - 1 24 1 . Games and Education Shock Trooper and The Vor tex Factor are two new games from Mark Data Products. Shock Trooper is an arcade game with a theme resembling the movie V. in which scheming reptilian crea tures descend to earth and plot to take over. The Vortex Factor is the sixth in Mark Data's series of graphics adventures and is about time travel. Both programs re quire 32K and come on cassette for $24 . 95 or disk for $27 .95 plus $2 for shipping. Dorsett Educational Systems is working on disk versions of some of its popular educational series. Its latest conversion is Disk Al gebra. The company is also re l e a s i n g t w o n e w series: Principles o f Electricity and Lower Math. The latter is de signed for kindergarten through fourth-grade learners. Dorsett's educational series contain 16 les sons. require l 6K. and sell for Fighter Pi lot An ori g i n a l arcade game! Wave after wave of atta c k i ng a i rcraft attempt to shoot you down as you ma neuver your fighter i nto the wild b l ue yonder. bla st i ng enemy fig hters. bombers a nd paratroopers out of the sky. Joystick or keyboard operation. " Pa u se g a me" feature. Disk version saves high 32K. 1 00% scores. Mac h i ne La nguage. Tape $24.95 $59.95. • Disk $29_95 Saguaro Software! Factory Closeout! Amdek Dual 3" Disk Drive Eagle </1<. l l inor lor1aer iovsl·< � s Marooned! - Lasts' Includes ? D1sket1es & Coote Monitors, Etc. Amdek Color 300 Composite. 300x260 r<es Amdek Color 500 Composite/ RGB Video Driver 1239 >/V1Tn t .rooh1cs {1ra1.-.,1''1Ll Alpha -40 + foirnots .10 · J 'it -y ror1 lrot l.. s Testmaker P51 Other Favorites! 3/K 32K Sailor Mon 6LIK Trekboer 32K Mustang lo Preserve Quond1c l.'1- l )tsJ. ( int\ chip. $ 1 .00 Sh ipping! L IZPAC $101 We' l l Ship Your Order '1 ' \ $23.75 $23.75 $23.75 $ 1 9.75 $29. 75 $33.75 Special! Fa mily For $ 1 .00! Software Only - Hordwo1e Shipped Al S2 00 Progrom ( So OO Mo' l \ Arl(1lvs.s f'isl-' l )111\ $ 1 45.00 Super Screen Machine l\lk1 S.i LtJ I 1,.lt I 't"� To Anywhere In The USA , J)K Add $5. DO For Disk Ll1YJssemblc1 • $1 9.95 $24.95* Maycode 0�00 $ 1 9.95 ) P., ['151- $29.95 Works on oil models with plug-in $25 95 Reverse Video Switch 1 1 1 .95 with monitor purchase - i f'l.lc•ft' � .'i.. l 11s� Worlds of Flight Cost Outsode USA $24.95* Dt>O f'I 1,11-. Sketchpad 1339 127.95 f "">C'l(>r t. Mork Dato • Works on all models VDG $29.95 ' 1 f · ./ Blackjack Dealer s����v $ 1 99 s����v Losts' f '•5'- ·. � l\clventurP $24.95* f)equ1rcd A genealogical database Marntrnns data on 25� people 1n tu sf 8 ge nera hons of family tree Prints 3 charts [ osv to use 1 37K ht Tape $ 1 5.75 November 1 985 Disk $ 1 8 . 75 HOT Co co 79 Circle Reader Service card #138 The Corner Office by Jeff DeTray, Publisher The Piracy Issue BASK ETBALL STATISTICS b y Jeff Stevens Coaches, let Coco do the paperwork! Keeps each individual game, plus league, non-league and all game to tals for a maximum of 1 6 players in up to 29 games. Stats can be kept in as many as 1 7 different categories assists, steals, field goals, and free t h row stats ( m a d e - at t e m pted percentages), offensive and defen sive rebou nds, turnovers, personal fouls, charg es, playing time, quarters played an d points. Totals for the op position team and for your individual players are printable. Your season record and scores-to-date are avail able at any time. Basketball Statis tics prints a year-end summary of each individual player on a game-by game basis. Team stats for your team and the opponents' totals for the year are included. Menu driven - Easy to run - Excellent for most any basket ball team. Tandy Color Computer requires Extended Basic. 32K Disk $29.95 - Tand y Model lll/IV/4P 32K Disk $29.95 ***************************** 54 � <f? LONG DIVISION by John Ashurst " Provides practice in long division of whole numbers with tutorial help. A blinking cursor helps students with the correct placement of each digit. A special workspace is provided for mul t i p licati o n . Whenever an e r ror is made, students may ask for assis tance. The reason for the error is given. Students may correct the error and continue on with the problem. Long Division is multi-leveled and in cludes scoring. Grades 4-6 $1 9.95 Cassette $21 .95 Disk Tandy Color Computer requires Extended Basic Also available for Commodore 64 Write for a free brochure or ask for a dealer demonstration. B-5 Software Co. el . . . . .. . . . . . .. . . . . 1 024 Bainbridge Place Columbus, Oh1o 43228 Phone (61 4) 276-2752 lil:llJCllD 80 HOT Coco November 1 985 W hat is software piracy?" That's what an anonymous 9-year--0ld Har CoCo reader asked me in a recent letter. "Am I doing something that's wrong? Please write a column about piracy." My correspondent went on to describe how he copies and swaps programs with friends and with members of his computer club. He had been reading articles about software piracy in computer magazines. He knew piracy was considered a bad thing, but he wasn't quite sure what piracy was. Clearly, it had just occurred to our young friend that his copying and swapping activities might actually be wrong. He was suffering his first pangs of guilt about an activity which seemed perfectly okay to him, but which he now learned was illegal. The letter bothered me. There's something sad about a system that makes 9-year olds feel like criminals. And yet, there's no denying that the uncontrolled copying and swapping of software hurts everyone-manufacturers and users alike. It's an issue unlike any society has ever faced, because we have never before possessed a technol ogy that allows such easy duplication of a valuable information product. If it were as easy and inexpensive to duplicate a book as it is to duplicate a piece of software, how many books do you think would be sold? With books, it's far more economical to buy your own copy. It's unfair, really. My letter writer wasn't trying to rip off anyone. merely help out his friends and save himself a few dollars. I wonder, though, why no adult ever ex plained to him what program swapping really means. It may not be true in every market for every computer. but when it comes to the Color Computer, unauthorized copying really hurts. Even though it may not be as out-of-control as some people think. the problem is large enough to discourage some software makers from producing new CoCo products. The end result is fewer programs plus a trend toward copy-protection, a real pain for users. ' ' EOS Notes Thanks for your numerous letters about using Tandy's Express Order Software sys tem. If there is any consensus to be drawn. it is that EOS is a good idea with great potential and a few serious bugs. Most everyone trying the system says that. while it works and the software they've ordered eventually arrives. they are not sure they'll use the system again. First. too many Tandy store personnel still don't seem to know or care a great deal about EOS. But more important is the lack of demonstration copies or even a descriptive catalog of the programs available. If you're going to order sight unseen anyway. there's slight advantage in ordering through EOS. The delivery time doesn't time appear to be sig nificantly faster than a good mail-order vendor. Demo copies and a good catalog could make EOS take off like a rocket. As always. your letters are welcome at: Jeff DeTray Haf CoCo 80 Pine St. Peterborough, NH 03458 • Circle Reader Service card # 1 8 Color Computer II Smith Corona L-1 000 $ 259 w/1 6K Basic $ 1 07 .95 w/64K Ext. Basic $ 1 79 Tandy 1 000 $ 7 79 Tandy 1 000 HD $ 1 539 Color Computer Disk Drive Drive 0 $ 239 Drive 1 $ 1 89 DMP1 05 $ 1 60 BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHAC K COMPUTER PRODUCTS COMPUTERS Tandy 1 000 1 Drive 1 28K Tandy 1 000 HD 1 0 Meg . 256K Tandy 1 200 HD 1 0 Meg. 256K Model IVD 64K with Deskmate PRINTERS 779.00 1 539.00 1 599.00 889.00 1 60 00 Radio Shack DWP-1 05 Radio Shack DMP-1 30 269.00 660.00 Radio Shack DM P-430 359.00 Radio Shack CGP-220 Radio Shack DWP-220 Daisy Wheel469.00 Silver Reed EXP-550 Daisy Wheel 425.00 245.00 Star SG- 1 0 41 0.00 Star SG- 1 5 Panasonic P-1 091 275.00 CITOH Prowriter 8510AP + NLQ 345.00 585 00 Toshiba 1 340 375 00 Okidata 1 92 Epson LX-80 245.00 369.00 Epson FX-185 MODEMS Radio Shack DCM-3 Modem Radio Shack DCM-5 Modem Radio Shack DC Modem 221 2 52.00 99.00 31 5.00 COLOR COMPUTER MISC. Radio Shack Drive Controller 1 39.00 Extended Basic Rom Kit 39.95 64K Ram Upgrade Kit 39.00 Radio Shack Deluxe Keyboard Kit 24.95 HJL Keyboard Upgrade Kil 79.95 COCO Max Y Cable 27.95 Bolek Serial to Parallel Conv. 69.95 Radio Shack CCR-81 Recorder 52 00 Radio Shack Deluxe Joystick 26.95 Amdek Color 300 Monitor 265.00 Amdek Video 300 Green Monitor 1 39.00 Amdek Video 300 Amber Monitor 1 49.00 Texan Color 220 Monitor 245.00 Tatung DM-1 2VLG Green Monitor 1 39.00 Tatung DM-1 2VLA Amber Mon itor 149.00 Radio Shack VM-2 Green Monitor 1 29.00 Mark Data Universal Video Driver 29.95 COLOR COMPUTER SOFTWARE Approach Control Simul. Worlds Of F l ight Mustang P-51 Flight Simul. Spectral Typing Tutor Dungeon Quest TAPE 29.95 29.95 29.95 19 95 24.95 DISK 34.95 32.95 34.95 22.95 27.95 24.95 27.95 Major lstar 24.95 27.95 Sam Slueth Private Eye Mark Data Graphic Adven . 24.95 27.95 29.95 Graphicom (disk only) COCO Max by Colorware 69.95 69.95 (rom) 49.95 49.95 Color ComE AutoTerm by PXE Computi ng39.95 49.95 39.95 44.95 Key-264K by Key Color 49.95 59.95 TeleWriter 64 89 95 Deft Pascal Workbench 39.95 Deft Extra 59.95 Pro Color File Enhanced 2.0 24.95 Telegraphies by Derringer 69.95 69.95 E l ite Cale 69.95 69.95 El ite Word El ite F i l e (disk only) 74.50 DynaCalc (disk only) 99.95 1 34 95 Word Pack II by PBJ VIP Writer (tape & disk) 69.95 1 49.95 VIP Integrated library (disk) Order any 2 software pi eces l i sted and take 1 0% oft their l i sted price. A l l Radio Shack software 1 0% off l ist. Send for complete list. CALL TOLL FREE 1 ·800-343·81 24 • • • • • L O WES T POSSIBLE PRICES BEST POSSIBL E WARRANTY KNO WLEDGEA BLE SA LES S TAFF TIMEL Y DELIVER Y SHOPPING CON VENIENCE II lm TRS-80 is a registered trademark of Tandy Corp. P.O. Box 1 094 480 King Street Littleton , MA 01460 I N MASSACHUSETTS CALL us SINCE 1 97 3 161 7> 486-3 1 9 3 Compa re it with the rest. T hen , buy the best . If you've been thinking about spending good money on a new keyboard for your Color Computer, why not get a good keyboard for you r money? Designed from scratch, the HJ L-57 Professional Keyboard Is built to u n lock ALL the potential performance of your Color Computer. N ow, you can do real word processing and sail through lengthy l istings ... with maximum speed; m i n im u m errors. At $79.95, the HJ L-57 is reason ably priced, but you can find other Coco keyboards for a few dol lars less. So, before you buy, we suggest that you compare. Compare Design. The ergonom ical ly-superior H J L-57 has sculptured, low profile keycaps; and the three color layout Is identical to the ori g i n a l Coco keyboard. Compare Performance. Offering more than f u l l-travel, bou nce-proof keyswitches, the HJ L-57 has RFl/E M I shield ing that e l i m i nates i rritating noise on d isplays; and four u ser-definable fu nction keys (one latchable), specially-positioned to avoid I nadvertent actuation. Free Function Key Program You r H J L-57 kit I n c ludes usage I nstructions and decimal codes produced by the fu nction keys, p l u s a free sample program that defi nes the fu nction keys as follows: F1 = Screen d u mp to printer. F2 = Repeat key (latch ing). F3 = Lower case u pper case f l i p (if you have lower case capabi l ity). F4 = Control key; subtracts 64 from the ASC I I value of any key pressed. Runs on d isc or tape; extended or standard Basic. Compare Construction. Compare Installation. The HJ L-57 has a rig idized a l u m i n u m baseplate for solid, no-flex mounting. Switch contacts are rated for 100 m i l l ion cycles m i n i m u m , and covered by a spill proof membrane. Carefully engineered for easy i nstallation, the H J L-57 req u i res no soldering, d r i l l l n g or g l u ing. Simply plug It I n and d rop It right on the ori g i nal CoCo mounting posts. Kit I n cl udes a Orderin g I n formati o n: Specify model (O riginal, F·verslon, or CoCo 2). Payment by C.O. D . , check, MasterCard or Visa . Credit card customers Include complete card number and expiration date. Add $2.00 for shipping ($3.50 for Canada). New York state residents add 7 % sales tax. Dealer I n quiries Invited. Circle Reader Service ca rd #440 new bezel for a totally f i n i s hed conversion. Compare Warranties. The H J L-57 i s built so well, It carries a f u l l , one-year warranty. And, It Is sold with an excl u sive 15-day money-back g uarantee. Compare Value. You know that a barg a i n is a bargain only so long as It lasts. If you shop carefully, we t h i n k y o u w i l l ag ree ...T h e H J L-57 ls the last keyboard your Coco w i l l ever need. A n d that's real value. Order Today. O nly $79.95, the H J L-57 l s available f o r I mmediate shipment for either the orig inal Color Computer (sold prior to October, 1 982) or the F-verslon and TDP-100 (Introduced In October, 1 982), and the new 64K CoCo. Jll ow also avallable tor Coco 2. call Tall Free 1 ·800-828-6968 In New Yortc 1 .aoo-462-4891 P R O D U C T S Div. of Touchstone Technology Inc. 955 Buffalo Road • P.O. Box 24954 Rochester, New York 1 4624 Telephone: (7 1 6) 235-8358