=. = - oe
COMPUTE
AUGUST 1991
/._ POCKET ROCKETS FOR ROAD WARRIORS SUPER BATCH FILES! SUMMER FUN WITH PALMTOP ARCADES -
K. £1.95 ia | 4
93
86°02
I
o_ your choice of these pegutar FOR Se a Eee
Plus shipping and handling, with membership.
Ao t4 ID
Super Solvers
New Math Blaster Plus: M@ Su;
@ Where in the U.: @ Where in Time is a er Solvers = Carmen San Diego?: tm Carmen San Diego?: WH Regular Price: $49.95 a Outnumbered: Regular Price: $49.95 Regular Price: $49.95 gw World's best-selling math ww Regular Price: $49.95 Won Outstanding Software Travel through Time to program has fun Ahighly-recommended 4 Award! Learn hundreds of capture the villain and her “Blasternaut” game. program that develops for Children U.S.A. facts. gang. New Version Now math, problem-solving 3-13+ Available for IBM and Available for IBM and Available for IBM, and other skills. Apple ||, ITEM NUMBER 1 Apple Il, ITEM NUMBER 2 Apple Il version's MBP, Available for IBM and
ITEM NUMBER 3. compatibles only, ITEM NUMBER 4
SOFTWARE SELECTION GUIDE
Key to Colors:
ypiig! Ay
B Ages 3-7 5 Teese | wea = M@ Ages 7-10 Mavis Beacon Teaches Typing: @ The Oregon Trail: The New Print Shop: 1 Mixed-Up Mother Goose: Stepping Stones | & i I Regular Price: $49.95 fm Regular Price: $49.95 f@ Regular Price: $59.95 Regular Price: $39.95 a Regular Prog $49.95 a Ages 10-13+ 1B Best Home Learning Award! Travel with a pioneer family The most popular graphics we Help Mother Goose find the From early reading to addition, Fun typing skills for all across the 19th century software in history. Print your missing pieces to her spelling and vocabulary. ages. wilderness, learning how to own cards, banners and signs. rhymes. Colorful graphics. Available for IBM and survive. Printer required. Available for IBM and Available for IBM = Apple ll, ITEM NUMBER 5 Available for IBM and Available for IBM and Apple ll, ITEM NUMBER 8 (enhanced version) and g Apple Il, ITEM NUMBER 6 Apple Il, ITEM NUMBER 7, Apple ll, ITEM NUMBER 9
Watch your children laugh and learn...with software that’s fun, fun, fun!
You've got the children. You've got the computer. Now you can bring the two Exciting Newsletter...FREE! together and tum leisure time into learning time with software that’s fun! Charter members receive the Learning Adventure Computer Club Parents The Learning Adventure Computer Club takes the work out of software selection Newsletter FREE. Featuring a host of recommended software for children 3-13+! a a=
for you. We review hundreds of computer programs for youngsters — invite Poosrrr rr <= H = 1
children like yours to test them — then select only the ones that combine active fun | Miaill to: Learning Adventure Computer Club
with measurable learning in:
* MATH * SOCIAL SCIENCE AND GEOGRAPHY * SCIENCE * LANGUAGE ARTS AND READING * CRITICAL THINKING SKILLS
925 Oak Street, Scranton, PA 18515 Dept. TARA81
YES! Please send me the program | have indicated below to preview for 15 © days at no risk or obligation. | may return the program after 15 days and
I 1 ! ! 1 1 1 1 --AND MORE IMPORTANT SKILLS! 1 have no further obligation. if am pleased with the program, Il pay for itt the special ! ftware Geared Child’s A ge resi 1 New member price of only $9.95 plus $2.95 shipping and handling, and enrollasanew 4 oa teu eter’ et ch derwestts : ts b 1 member under the terms outlined on this page. As anew member, | needtobuyjust3 1 prog) " ¥ poneckaule Colored Square oy | more selections at regular club prices in the next year and may cancel any time thereafter. | each program: they’re keyed in three age groups. ! ! Blue programs introduce your 3-7 year-olds to the computer with activities that 1 Name. ! arouse their curiosity...capture their imagination...and instill a lifelong love of t Address f learning. Red programs turn the Three R’s into rip-roaring adventures for 7-10 year- | oe = 1 olds with programs developed to supplement their education and turn their MaGity. State Zip 4 weaknesses into strengths. Green programs stretch the minds of 10-13+ year-olds 1 Telephone ( ) 1 with sophisticated software that make academic challenges fun and rewarding! | 1. Pl d it b in iew. (Pl fil'in ! . Please send me item number preview. (Please fill | Operates: 0) Sea srwcerestoret H How the Club tes: a ¢ att 1 identification number of program shown above.) 1 Try your first computer program FREE for 15 days at no risk or obligation. Just 1 Bry cE 1 select the software package of your choice, fill out the coupon and mail it today. Hl 2. AGE of child ‘(check one): Hl We'll send you the program you select. If you are pleased with the program, you'll \ 37 7-10 10-4 3+ : ! pay for it at the Charter Members’ price of just $9.95 plus shipping and handling, a 3. Computer you own and size of disk required (check one): 1 savings of up to $50.00 off the retail price. H IBM/Tandy & Compatibles with 5 1/4" disk drive H Then about every four weeks (13 times a year) you'll receive a new Parents ! IBM/Tandy & Compatibles with 3 Vet disk drive \ Newsletter with details about the next selection for your child. To receive the main | Apple |! Family & Compatibles with 5 4" disk drive H selection, you need do nothing — it will be sent automatically. If you wish to order | 4. Child’ f an alternate selection, or wish no selection at all, simply return the card we provide | ™ id's name, I to tell us your choice. You will always have at least 10 days to decide. ! Child's birthdate: Month Day. Year. i . : $ H Enjoy a 15-Day Free Trial , | 5. Please check below if you have a: I What's more, you will always have 15 days to preview each shipment and return I Printer Modem Color Monitor ! any program you don’t want. Your only commitment is to purchase three H 1 additional selections in the next year at regular club prices. You may cancel your 1 6, Parent's Signature ! membership anytime thereafter. You have absolutely nothing to lose, and a whole ! We reserve the right to request additional information or reject any application or cancel any membership. Limited 4 new world of fun and learning to gain for your children. So don’t wait: return the | tonew membersin the continental USA only excluding AK. Sales tax willbe added in PAand CA. Well sendyou 1 i 1 details of the clubs operation with your enrollment shipment, and you have a 15-day no-obligation privilege to 1 coupon today! {decide i you wish to continue as a member H Circle Reader Service Number 184 LeeLee ee ee ee ee - --4
64/128 VIEW
T OM
NETS EL
f you read this column with any
regularity, you’ll recall that a couple
of months ago I said Gazette would
no longer be available on U.S. newsstands. It would be available in this country by subscription only.
I had visions of seedy characters loitering outside U.S. computer stores. They would approach custom- ers, flash a Canadian COMPUTE, and ask, “Psst! Wanna buy a hot news- stand Gazette?”
Along the Rio Grande, at cross- ings formerly used by people trying to enter the U.S. without benefit of pass- port or visa, customs and immigra- tion officials would encounter furtive figures struggling under heavy loads of plastic-wrapped magazines. Gazette- sniffing dogs would alert their han- dlers, and another illegal shipment of bootlegged COMPUTES would be confiscated at the border.
Even if these unpleasant sights were only figments of my imagina- tion, the letters we received were real. “Have you stopped publishing?” read- ers asked. ““Where’s my Gazette?”
In case you missed my April edi- torial, which explained about Ga- zette’s being pulled from U.S. newsstands, don’t dig through your back issues trying to find it. That's all changed anyway. Gazette is back!
Effective with the July issue, the full Gazette and Amiga sections are scheduled to appear once again in thousands of newsstand copies of COMPUTE. By the time you read this, the change should already be in effect—but not at all locations.
Look for Gazette in COMPUTE on sale at Software Boutiques, Soft- ware Etc., and Babbage’s. These com- puter stores should have the Gazette newsstand editions first. We'll an- nounce additional locations as they become available.
As most 64 and 128 enthusiasts know, they aren’t alone in the world. Millions of 8-bit Commodores are in use from Belgium to Brazil and from Puerto Rico to Pakistan. From the publications and user group newslet- ters we receive from around the
world, we realize that there’s a great deal of 64/128 activity going on that the average user never learns about. There are computer shows in Eng- land, new software releases in Austra- lia, programming techniques devel- oped in Germany, and more.
In our effort to bring you the best from the 8-bit Commodore world, we want to increase our international coverage. What’s happening in your country that might interest 64 owners elsewhere? What’s hot in software?
Each month I'd like to print “Column from Abroad,” featuring the 64/128 activities in different coun- tries. If you’re a writer with your fin- ger on the Commodore pulse in your country, I’d like to hear from you. Perhaps you know ofa writer or col- umnist in your local newspaper or computer magazine who could pre- pare a 1000-word column. If you can recommend someone, have him or her get in touch with me at our Greensboro, North Carolina, office.
This month, we feature a partial listing of Commodore user groups in America. Next month we'll complete the listing and include the names and addresses of overseas groups that have returned our survey. As you'll see, there are quite a few of them.
Programmers from around the globe supply many of the type-in pro- grams we feature in Gazette. In this is- sue, Simulvideo, an outstanding graphics-conversion utility, was sub- mitted by Richard Penn, who lives in Montreal, Quebec.
Gazette Disk subscribers will en- joy Sector Patrol, a fast-paced arcade game that’s this month’s bonus pro- gram. Grant Young is the author and lives in Christchurch, New Zealand..
To give more recognition to all of our programmers, both international and domestic, next month we'll start publishing biographical information about them at the end of each pro- gram’s documentation. So if you sub- mit a program to Gazette, include information about your occupation, hobbies, or any personal information you’d like to share with our readers.
AUG US T
CONTENTS
64/128 View G-1 TOM NETSEL
Gazette is back on selected U.S. newsstands,
News & Notes
EDITORS
A new game from Accolade and more graphics and fonts for GEOS users.
A Guide to Commodore User Groups (Part I) G-6 KANDI SYKES
Addresses and BBS telephone numbers of user groups from Alabama—New Hampshire.
Reviews G-12 REVIEWERS
Mondu’s Fight Palace, Ferrari Formula One, Big Blue Reader,
G-2
and War of the Lance. Feedback G-16 READERS and EDITORS Questions and answers about the 64 and 128. GEOS G-19 STEVE VANDER ARK Machine Language G-20 JIM BUTTERFIELD Beginner BASIC G-21 LARRY COTTON Programmer’s Page G-22 RANDY THOMPSON D’Iversions G-24 FRED D’IGNAZIO TYPE-INPROGRAMS G-25 Crypto-64 G-25 Simulvideo G-26 Riddle G-30 Magic Mouse G-34 T/E 80 G-35 1991 COMPUTE Gt
NEWS & NOTES
|
g 3 w « ° a ° = = ° 0 | ua = ja we NN qd 4)
<2 eS
Tee Off
Play the most infamous courses of the U.S. Open with a new add-on disk from Jack Nicklaus and Accolade (550 South Winchester Boulevard, San Jose, California 95128). Jack Nicklaus Presents the Great Courses of the U.S. Open ($14.95) is the fourth ina series of course disks for use with Nicklaus's Unlimited Golf & Course Design and Greatest 18 Holes of Ma- jor Championship Golf.
The new disk contains three of the most challenging and popular courses to play host to the U.S. Open: Pebble Beach Golf Links, Oakmont Country Club, and Baltusrol Golf Club. These three courses (in California, Pennsylvania, and New Jersey, re- spectively) have been the sites for 11 U.S. Open championships, and Nick- laus has won at least one champion- ship on each of them.
Seek and Destroy
Put on your camouflage fatigues and test your mapping skills with Metal Gear ($14.95), a new release from Ul- tra Software (900 Deerfield Parkway, Buffalo Grove, Illinois 60089), a sub- sidiary of Konami.
Wind through five levels as you search for 20 special weapons and equipment to seek and destroy the title character and end the terror spree of the evil CaTaffy. Discover the weap- ons and equipment in enemy trucks and storehouses, or get them from certain soldiers of fortune.
Your most vital tool is your trans- ceiver, which lets you communicate with Commander South, who is at Fox Hound's headquarters and feeds you crucial information on Metal Gear's lo- cation. The mission ends when you destroy Metal Gear—or he destroys you. It's as simple as that.
From the Grapevine
Need a new SID chip, upgraded ROM for your 1571, or Z80A CPU for your 1287 If you're looking for spare parts, integrated circuits, chips, cables, or other items for your Commodore products—including your Amiga— look for them in the new free catalog from the Grapevine Group (3 Chestnut Street, Suffern, New York 10901; 800- 292-7445).
Grapevine stocks service man- uals, replacement printer heads, pow- er supplies, diagnostic and alignment tools, and tutorials. Its catalog is a great resource for end users and re- pair centers.
If you occasionally like to lean back in your chair with your keyboard in your lap but you hate to hassle with the 64's power cord, disk drive, and monitor cables, there's finally a cure. With a Detached Keyboard ($60, plus $3 ship- ping and handling) from SER (P.O. Box 5382, Racine, Wisconsin 53408- 5382), you're no longer tied to one spot with your 64.
A six-foot cable frees your hands from the desktop, and an ergonomic palm rest saves your hands and wrists from long hours spent at the com- puter. Its single cable also eliminates the current nest of cables by letting you separate the 64 CPU from this ac- cessible keyboard.
Abrams M-1
Abrams M-1, by John Green of Freeport, New York, is this disk’s Picture of the Month.
Each month Gazette Disk features a collection of the best 64/128 artwork submitted by our readers. We pay $50 for each piece of art we accept for “Gazette Gallery” and an extra $50 for the one selected as Picture of the Month. Send original art to Gazette Gallery, COMPUTE Publications, 324 West Wendover Avenue, Suite 200, Greensboro, North Carolina 27408.
G2 COMPUTE
AUGUST
WLC
WE CAN RECONFIGURE ANY OF OUR COMPUTER PACKAGES TO YOUR SPECIFICATIONS. CALL FOR DETAILS!
WE INVITE CORPORATE & EDUCATIONAL CUSTOMERS - DISCOUNTS FOR QUANTITY ORDERS - RUSH, 2ND DAY & NEXT DAY AIR SERVICE AVAILABLE!
GIRJAIN/T]=:
AMIGA
=
ESTABLISHED
1967
MAGNAVOX 13" COLOR : MAGNAVOX 13" COLOR 4 RGB/COMPOSITE MONITOR c Commodore? eer ate $259 Gr eec compet) a 79 ® Compatible) COMMODORE 1541II COMMODORE 1571 NENG DISK DRIVE s] 59 DISK DRIVE CALL Includes: RAPID ACCESS RAPID ACCESS Quantum Link Software FD-148 DISK DRIVE FD-168 DISK DRIVE
1750 Clone RAM Expansion.......... Aprotek 2400 Baud Modem for 64/128. Cartridge Expander for 64/128. Commodore 1700 RAM Expansion. Cardco G-Wiz Interlace.. Gomipocora 60 Mocs Micro C-128 Power Supply. Inkwell Light Pen. Excellerator Plus FSDII Power Supply... ‘$19.95
OTHER ACCESSORIES FOR YOUR COMMODORE COMPUTER AVAILABLE
Super Snapshot 5.0....... Xetec S, Graphix Jr. Interface... Xetec S. Graphix Sr. Interface... Xetec Lt. Kernal 20MB for 64/128...
Xetec Lt. Kernal 40MB for 64/128...
MONOCHROME COMPOSITE MONITORS partons Nhe (RECONDITIONED) Carmen. Time. ;
$9995 SAVE BIG $ SS
WHEN YOU BUY ONE OF OUR ALL IN 0
Pocket Writer. Pocket Writer
Turrican Il... Utima Vi. Word Writer VI.
CITIZEN
= PANASONIC GSX-140...
KXP-1180. KXP-1191. KXP-1123.
* Commodore 64C $195.95 xp-4 424) 95 Color Option Kit... Computer Ronee $279.95 5 ae 1541 | . Commodore 64C | + Commodore 64C sa) i $200.05 COMMODORE $1 39% + Joystick Computer Computer 80 con ae Printer $ 95 * Quantum Link * Commodore 1541 | * Commodore 1541 Software Disk Drive Disk Drive COMMODORE INTERFACE
SANYO PR-3000 $ 4 95 Daisy Wheel Lett RISUCTUAnE +80 Column Printer | *80 Column Printer | SPECIAL 5 FREE GAMES w/PURCHASE “Olaly Pir
PACKAGES INCLUDED: || * 12" Monitor * Color Monitor aes ETSS ia “Q + Quantum Link visa Ko eee + Advanced Tactical Fightor luantum Link intum Lin! Lares “4
+ Infitrator Il + Harner ware Software «Crazy Cars + Tomohawk oot
289 ‘Sug! *449
(Circle Reader Service Number 187,
+] = 3 Ww C4 ° a ° = = 9 a) ze) = ka ud N eh 6
NEWS & NOTES
Great GEOS Graphics
GEOS users now have 16 disks of ready-to-use graphics with the release of Diskart 13, 14, and 15 ($10.50 each) from Those Designers (3330 Lewis Avenue, Signal Hill, California 90807). Diskart 13 contains international symbols, hobbies and pastimes, toys, national flags, and mechanical de- vices. Diskart 14 has commercial and
Unlimited Life
Want to play your favorite game with unlimited lives? Then try Strata Gems ($5 each, plus $3.50 shipping and handling) from Silvasoft (P.O. Box 231, Charlotte, Vermont 05445).
Each disk contains parameters for 50 games, including both new and old ti- tles. These parameters are trainers you add to the game to give yourself unlimit- ed lives or a limitless supply of ammunition or energy. Some games have three or more trainers you can add.
Titles on Strata Gems | include Baal, Castlevania, Frogger, Krazy Kong, Tongue of the Fatman, and many more. On Strata Gems /I, look for Batman, De- mon Stalkers, Rocky Horror, Starfire, Test Drive, and 45 others.
military aircraft, military vehicles, and sports, Look for plants and flowers,
trees and shrubs, furniture silhouettes, and churches on Diskart 15. New at
the Zoo
The Electronic Zoo (3431-A Benson Avenue, Baltimore, Maryland 21227) has announced two new games for the 64: Black Gold ($24.95) and Spher- ical ($24.95).
Join the international power bro- kers in Black Gold and guide your company in a global search for oil. Buy and sell oil fields, build pipelines, study surveys, drill for oil, and sabotage the competition in this multiplayer game.
Move two blocks, point your wand, and add a new wall in Spheri- cal. Back up and create some steps to the next platform before the ball starts rolling. There are more than 200 levels in this arcade-style game.
GEOS Fonts
As an introductory offer for its new 80- page Geo Font Reference Booklet, Parsec (P.O. Box 111, Salem, Massa- chusetts 01970) is bundling its font booklet with 12 double-sided disks filled with more than 550 public do- main GEOS fonts ($24.95 plus $2.90 shipping and handling for the U.S., $7.50 for Canada).
The booklet contains examples of each font. This makes it very easy for GEOS users to identify the fonts they want to use in a document, see how they look, and then locate them on disk. It's a great reference tool.
Intergalactic Warfare
Created by the codesigner of the Archon series, Star Control ($39.95) from Acco- lade (550 South Winchester Avenue, San Jose, California 95128) combines deep strategy with action-arcade tactical combat.
As a veteran commander of an Alliance fleet of battle cruisers, you've been battling the evil Hierarchy for years. Now the aliens are invading interstellar neighbors and enslaving the inhabitants. To save the galaxy from this invading horde, you must construct and deploy your fleet, explore new stars, and build mines, colonies, and fortifications. Target the enemy's home star system, but don't leave yours undefended. Choose from nine scenarios, or build your own in this one- or two-player science-fiction war game. In the one-player game the computer opponent can be assigned one of three levels of skill: standard, good, or awesome. This level will affect the outcome of its tactical and strategic abili- ties. Choose from 14 ships and let the melee begin.
Windfall from Commodore
What happens when a computer manufacturer drops many of its dealers like so many bad apples? Another manufacturer recognizes their worth, picks them up, and helps them to shine.
That's the idea behind Windfall, a new educational marketing program an- nounced by Commodore Business Machines (1200 Wilson Avenue, West Ches- ter, Pennsylvania 19380). It's targeted at Apple educational dealers, ex-Apple educational dealers, and value-added retailers.
Under Commodore's new program, dealers can become authorized as quickly as one week after being interviewed. They then become eligible to buy demonstration equipment at discounted prices, including the new UNIX workstations.
“We now feel that we are able to appeal to a lot of good dealers who have significant experience in educational sales,” said Paul Calkin, director of educa- tion and UNIX marketing at Commodore. ‘This program offers them a way to use their current contacts and expertise in the educational area to generate sig- nificant, profitable revenue with what we feel is the most capable and affordable desktop machine in the world.”
Users of Commodore equipment should also benefit from Windfall and its new prices. ‘‘Commodore's new educational pricing structure makes it easy for educational institutions, teachers, and higher education students to buy at signifi- cant discounts off of the list price,” said Ron Stanczak, Commodore vice presi- dent of sales. “Our new dealer education program has been well thought out, «
and we believe it to be one of the best in the industry.””
G4 COMPUTE
AUGUST
UV Oe
The Lowest Prices in theWorld on Commodore-Ready eb Really!!
Stir”
THE COMPUTER PRINTER SCC THE COMPUTER PRINTER
ONLY $1590” @& $139°° Full color &
Commodore-ready! = 4 y Ready to plug into your NX-1000C Rainbow Commodore and go!
ONLY
Printin full color| Near-letter quality at 36 cps and high- . A speed draft at 144 cps features the new paper parking Printer Accessories NX-1 000c nt front panel controls. Great for 7 Steen ie ee “This is the Commo- Black Ribbon for NX-1000C/NX-1 ook 95 __ This is the Commodoreready version of the NX- dore-ready version—no additional interfaces or cables Rainbow Color Printer 75471 5. 1000, You can just plug it in and start printing—no are required. Sug. Retail Color Ribbon for NX-1000/NX-1000C 5 additional interfaces or cables are required. NX-1000C Rainbow Color Printer, Rainbow Color Printer 75485 $9.95 Sug. Retail Commodore Ready 75783 $249-95- Dust Cover for NX-1000C/NX-1000C NX-1000C Printer 75060 LOWEST PRICE EVER! $159.95 Rainbow Color Printer 77789 $8.95 LOWEST PRICE EVER! $139.95
Don't miss out on the hottest new products and great prices on the most popular hardware and software!! Call Today for your FREE catalogs!
Quality TENEX Power Supplies
From
$3495
Lifetime Warranty!
TENEX MW 701-A. Conservatively rated at 5V and 1,8A this unit for the Cé4 features a double fused system. Its new heat-sink design allows cooler Operating temperatures inside the case. Lifetime warranty. Sug. Retail $49.95 TENEX MW 701-A 84513 $34.95
TENEX MW 705. Perfect for your C-| 28! This is a heavy-duty, switching power supply rated at3 amps at 5VDC. Lifetime warranty. Sug. Retail $69.95 TENEX MW 705 90686 $49.95
IBM Compatibles Commodore
*Shipping, Handling, Insurance TENEX Computer Express eepeah S Serge. P.O. Box 6578 $20.00-539 575 South Bend, IN 46660 Seu Oa? Sue
$75.00-$98 99 7.75 219) 259-7051 — Fi 9) 259-1 5 (219) “AX (219) 259-0300 ests as
We gladly accept mail orders! $150.00-$299.99 9.75 gladly P No Extra Fee For Charges $200.00 & up Boe
ORDER TODAY CALL 1-800-PROMPT-1
COMMODORE 64 and COMMODORE 128 are registered trademarks of Comm: lead-times, product prices and specifications are subject to change without
re
Electronics, Ltd. AMIGA is a registered trademark of Commodore Amiga inc.. NOTE: Due to publishing * APO, FPO, AK, HI, CN, VI, GU, and foreign orders are subject to additional shipping charges. GSN Circle Reader Service Number 170
}
fa = Hee Svan
x? HAY CO,
CaS A GUIDE TO
PART ONE |
EDITED BY KANDI SYKES
UNIPHOTO/PICTOR
G6 COMPUTE ASUNGuUES Ti | h9eOPT
his annual Gazette feature
provides an up-to-date list
of user groups across the
U.S.A., throughout Canada, and around the world. Part | in- cludes states Alabama-New Hampshire. Under each state heading, the groups are listed in order according to ZIP code.
User groups from the re-
maining states, APO sources, and foreign countries will be listed next month.
Birmingham Commodore Club, P.O. Box 59564, Birming- ham, AL 35259
Valley Commodore Users Group (VCUG), P.O. Box 835, De- catur, AL 35602-0835
Scottsboro Commodore Users Group, Rte. 5, Box 255, Scottsboro, AL 35768
Montgomery Area Commodore Komputer Society (MACKS), 606 Larkin Ln., Montgomery, AL 36109
Commodore Mobile Users Group
(CMUG), P.O. Box 9524, Mobile, AL 36691-0524
Anchorage Commodore Users Group (ACUG), Box 104615, Anchorage, AK 99510 (BBS# 907-349-7467)
Commodore/Amiga Users Group, 2597 Boulder Ave., North Pole, AK 99705
Sitka Commodore User’s Group, P.O. Box 2204, Sitka, AK 99835
ARIZONA
COUGAR, P.O. Box 9641, Scotts- dale, AZ 85252-9641
Valley One Twenty Eight (VOTE) User’s Group, P.O. Box 9641, Scottsdale, AZ 85252-9641
Arizona Commodore Users. Group, P.O. Box 27201, Tempe, AZ 85282
Gila Hackers, Rte. 1, Box 34, Globe, AZ 85501
Prescott Area Commodore Club (P.A.C.C.), c/o D. D, Van Kirk, P.O. Box 4019, Pres- cott, AZ 86301
Triple-D 64, P.O. Box 301, Reyno, AR 72462
A: Half/Dos Will Travel, 503 Kaylynn Dr., Walnut Ridge, AR 72476 (BBS# 501-886- 1701)
South Bay Commodore User’s Group, P.O. Box 1176, Re- dondo Beach, CA 90278 (Voice# 213-324-8357)
Commodore Helpers of Long Beach, c/o Tom Hoy, 3736 Myrtle Ave., Long Beach, CA 90807 (Voice# 213-424-0508)
The Software Palace, 8978 Megan Ave., West Hills, CA 91304
Association for Sharing Commo- dore Information (ASCI), 6160 Malvern Ave., Rancho Cucamonga, CA 91701-3736
“C128 West” Commodore 128 User Group, c/o John P. Cal- houn, 17047 Devanah St., Covina, CA 91722 (BBS# 714-598-1755)
California Area Commodore Terminal User Society (C.A.C.T.US.), 1626 N. Wil- son Ave., Upland, CA 91786- 1773
Oceana-64 Commodore User Group, 1004 Plover Way, Oceanside, CA 92057
CRA Commodore Computer Club, General Dynamics Electron- ics Div., P.O. Box 85310, Mail Zone 7234-A, San Die- go, CA 92186-5310
Barstow Commodore Users Group, c/o First Congrega- tional Church of Barstow, 220 N. 2nd St., Barstow, CA 92311
Club-64 (San Bernardino), P.O. Box 514, Patton, CA 92369 (BBS#s 714-881-1215 and 714-862-1744)
Coast Commodore Club (CCC), P.O. Box 1497, Costa Mesa, CA 92628 (BBS# 714-979- 8333)
Commodore Technical User Group (CTUG) of Orange County, P.O. Box 1497, Costa Mesa, CA 92628
Coastline Commodore Club, 20311 Ravenwood Ln,, Hun- tington Beach, CA 92646 (Voice# 714-962-9847)
AUGUST
South Orange Commodore Klub (SOCK), 25401 Champlain Rd., Laguna Hills, CA 92653
Orange County Commodore Club (O.C.C.C.), 1517 W. Carriage Dr., Santa Ana, CA 92704
CIVIC64/128, P.O. Box 2442, Oxnard, CA 93034-2442 (BBS# 805-382-1125)
Commodore Owners of Lake Isabella California (COLIC), P.O. Box 2332, Lake Isabella, CA 93240
A Bakersfield Area Commodore Users Society (ABACUS), P.O. Box 40334, Bakersfield, CA 93384 (BBS# 805-833- 1866 and Voice# 805-832- 7928)
CSUN (Commodore System User Network), c/o 3894 Jupiter Ave., Lompoc, CA 93436- 1904
Central Coast Commodore Users Group, 3643 Lakeview Ct., Santa Maria, CA 93455
Fresno Commodore User Group/ 64UM, P.O. Box 16098, Fres- no, CA 93755 (BBS# 209- 226-5313)
PLUG (Plus/4 Users’ Group), P.O. Box 1001, Monterey, CA 93942 (Voice# 408-883- 0818)
CWest Bay Area Commodore and Amiga Users Group, 1564 Waller #B, San Francisco, CA 94117 (BBS# 415-552-9320)
PETCETERA-On-The-Air, 525 Crestlake Dr., San Francisco, CA 94132
Commodore Connection Users Group, P.O. Box 2851, Anti- och, CA 94509 (BBS# 415- 754-8077)
Diablo Valley Commodore User Group, P.O, Box 27155, Con- cord, CA 94527
Napa Valley Computer Club, P.O. Box 2324, Napa, CA 94558
Commodore Hayward Users Group (CHUG), P.O. Box 2072, San Leandro, CA 94577
Monterey Bay Commodore Users Group, 921 Tower PI., Santa Cruz, CA 95062-4118 (BBS# 408-464-8924)
64/More Commodore User Group, P.O. Box 612794, San Jose, CA 95161-2794
Valley Computer Club, P.O. Box 310, Denair, CA 95316
Om Ola
CAOUMERS UME:
G-7
Commodore Humboldt User Group, P.O. Box 6502, Eureka, CA 95502 Sacramento Commodore Computer Club, P.O. Box 13393, Sacramento, CA 95813-3393 (BBS# 916-446-4094) Hub Area Commodore Club (HACC), Glen Parker, P.O. Box 398, Campton- ville, CA 95922 (BBS# 916-674-1703) The Classic 64 Preservation Society, 660 Walton Dr., Red Bluff, CA 96080
COLORADO
Colorado Commodore Computer Club, 1192S. Nome St., Aurora, CO 80012 (BBS# 303-469-3265)
Front Range Commodore Club, P.O. Box 272, Niwot, CO 80544-0272
Western Slope Commodore Users Group, 3125-B Lakeside Dr., Grand Junction, CO 81506
CONNECTICUT
Hartford County Commodore Users Group, c/o Gary J. Stagliano, 182-J Homestead St., Manchester, CT 06040-3042 (BBS# 203-649-9057 9 p.m.-9 a.m., voice days)
Capital Region Commodore Computer Club (CRCCC), P.O. Box 2372, Ver- non, CT 06066
The New London County Commodore Us- er’s Group (NLCCUG), P.O. Box 697, Groton, CT 06340 (BBS# 203-823- 1750)
First State Commodore Club, P.O. Box 1313, Dover, DE 19903-1313
Lower Delaware Computer Club (L.D.C.C.), P.O. Box 5344, Nassau, DE 19969 (Voice# 302-945-7224)
Welaka Commodore Users Group, P.O. Box 1104, Welaka, FL 32193-1104
Commodore User Group of Pensacola, P.O. Box 36367, Pensacola, FL 32516 (BBS# 904-484-9952)
Commodore Milton User Group (C.M.U.G.), 4356 Old Hickory Ham- mock Rd., Milton, FL 32583
Gainesville Commodore User Group, P.O. Box 14716, Gainesville, FL 32604- 4716
Titusville Commodore Club, 890 Alford St, Titusville, FL 32796 (BBS# 407- 269-2169)
Central Florida Commodore Users’ Club, P.O. Box 547326, Orlando, FL 32854- 7326 (BBS# 407-291-8730)
Fast Software of Costa Rica, Arturo Arana Garcia(1573-21), P.O. Box 025216, Miami, FL 33102-5216
Manasota Commodore Users Group (MSCUG), P.O. Box 698, Oneco, FL 34264-0698 (BBS# 813-748-7513)
Dinosaur 64, c/o Robbin Tate, P.O. Box 9202, Masaryktown, FL 34609
Clearwater Commodore Club, P.O. Box 11211, Clearwater, FL 34616
Gulfcoast 64’s Commodore Users Group, P.O. Box 11180, Clearwater, FL 34616 (BBS# 813-584-6040)
Suncoast Commodore Club, P.O. Box 6628, Ozona, FL 34660-6628
GB COMPUTE
AUGUST
Suncoast Bytes Commodore Computer Club, P.O. Box 721, Elfers, FL 34680
Starcom User’s Group of Martin County, P.O. Box 1446, Port Salerno, FL 34992
Metro Atlanta Commodore Klub (MACK), P.O. Box 813481, Smyrna, GA 30081 (BBS# 404-439-7350)
Commodore User Group of Atlanta, P.O. Box 2031, Tucker, GA 30085-2031
Stone Mountain Users Group (SMUG 64/128), P.O. Box 1762, Lilburn, GA 30226 (BBS# 404-925-8829)
Commodore Format User’s Group, P.O. Box 2196, Atlanta, GA 30301 (BBS# 404-659-2606)
Albany Commodore Amateur Computer- ists Users Group (ACAC), P.O. Box 5461, Albany, GA 31706-5461
Commodore Hawaii Users Group (CHUG), P.O. Box 23260, Honolulu, HI 96823-3260 (BBS# 808-672-6483)
Pocatello Commodore Users Group (PCUG), Rte. 2, Box 48E, Pocatello, ID 83202 (BBS# 208-237-6935)
Banana Belt Commodore Users Group (BBCUG), P.O. Box 1272, Lewiston, ID 83501
PFP 64/Amiga Software Exchange, 860 Sherwood #306, Boise, ID 83706
Treasure Valley/Boise User Group (TV/BUG), P.O. Box 6853, Boise, ID 83707
Diskoveries PD Library Club, P.O. Box 9153, Waukegan, IL 60079
Fox Valley Commodore User Group, P.O. Box 28, N. Aurora, IL 60542
CCR Commodore Club, P.O. Box 10022, Rockford, IL 61131-0024
Knox Commodore Club, P.O. Box 494, Galesburg, IL 61402-0494 (BBS# 309- 344-5042)
Survivors of the Sixty-Four Users Group (SOSUG), P.O. Box 6108, Macomb, IL 61455
Canton Area Commodore Users Group, P.O. Box 61, Canton, IL 61520
Central Illinois Family Assisted Commo- dore Enthusiasts (C.I.F. A.C.E.) #19, 156 Fandel Dr., E. Peoria, IL 61611 (BBS# 309-745-9273)
Champaign-Urbana Commodore User Group (CUCUG), P.O. Box 716, Champaign, IL 61824-0716 (BBS# 217-356-8056)
Meeting 64/128 Users Thru the Mail, Rte.
1, Box 151, St. Joseph, IL 61873
Gateway Computer Club, P.O. Box 1839, Fairview Heights, IL 62208
Western Illinois Programmer’s User Group (WIPUG), Rte. 5, Box 75, Quincy, IL 62301-9314
MUGS, 315 W. Madison, Girard, IL 62640
SPUG Computer Club, P.O. Box 9035, Springfield, IL 62791 (BBS# 217-789- 6644)
1991
INDIANA
Logansport Computer Club, P.O. Box 1161, Logansport, IN 46947
Com-Net, P.O. Box 161, Vevay, IN 47043 (BBS# 708-433-8287)
Richmond Area Computer Users Group (RACUG), P.O. Box 1332, Richmond, IN 47375 (BBS# 317-935-1256)
Commodore Computer Club, 819 Treelane Dr., Newburgh, IN 47630
Fraternal Order of Police Computer Club (FOPCC), 2535 Anthony Dr., Evans- ville, IN 47711-2101 (Voice# 812-473- 4763)
Commodore SIG F.L.A.G., P.O. Box 1022, Crawfordsville, IN 47933
Commodore Users Group Ames Region (COUGAR), P.O. Box 2302, Ames, TA 50010-2302 (BBS# 515-292-6204)
Capitol Complex Commodore Computer Club, P.O. Box 212, Des Moines, IA 50301
Commodore Computer User’s Group of Iowa (CCUGD), P. O. Box 3140, Des Moines, IA 50316-9998
Fort Dodge Commodore Users Group, c/o Patrick King, P.O. Box 479, Manson, TA 50563 (BBS# 515-576-7922)
Plymouth County Commodore User’s Group (PLYCCUG), 508 Ist St. SW, Le Mars, IA 51031
Crawford County Commodore Users Group, 519 N. 19th St., Denison, IA 51442
Commodore Players & Users of Iowa, P.O. Box 493, Essex, IA 51638
Commo-Hawk Commodore Users Group, P.O. Box 2724, Cedar Rapids, IA 52406-2724 (BBS# 319-396-0446)
TCCUG, P.O. Box 8439-0439, Topeka, KS 66608 (BBS# 913-357-0683)
KENTUCKY
Louisville Users of Commodore of Ken- tucky (L.U.C.K.Y.), P.O. Box 19032, Louisville, KY 40219-0032 (BBS# 502-969-9360)
Commodore User’s Club of Jenkins, c/o Jenkins High School, Patricia John- son, Box 552, Jenkins, KY 41537
Bowling Green Commodore Users Group (B.G.C.U.G.), c/o Bill Edwards, Presi- dent, P.O. Box 20214, Bowling Green, KY 42102
Glasgow Commodore Computer Club, P.O. Box 154, Glasgow, KY 42142 (BBS# 502-678-5292)
Commodore Owners of Owensboro, KY (COOKY), 3807 Krystal Ln., Owens- boro, KY 42303 (BBS# 502-684-2068)
Baton Rouge Area Commodore Enthusi- asts (BRACE), P.O. Box 1422, Baton Rouge, LA 70821 (BBS# 504-778- 1556)
ARK-LA-TEX Commodore Computer Club, P.O. Box 6502, Shreveport, LA 71106
PAGE Computer Users Group, P.O. Box 7706, Alexandria, LA 71306-7706
GAZETTE DISK L/BRARY
VALUE-PACKED SOFTWARE AT AFFORDABLE PRICES
All Gazette disks are menu-driven for ease of use—and they feature complete documentation. Just load and you're ready to go!
SpeedScript $11.95 COMPUTE Publications’ most popular program ever, Powerful word processing package includes SpeedScript for the 64, SpeedScript 128, spelling checkers for both 64 and 128 versions, plus an additional dozen support programs, including mail-merge and word-count utilities.
Gazette Index $7.95 Every article and department from Gazette—July 1983 through December 1990 issues—is indexed: features, games, reviews, programming, ‘Bug- Swatter,” “Feedback,” and the other columns. Disk features pull-down menus, help screens, superfast searching/sorting capabilities, and much more.
Best Gazette Games $9.95 Best dozen arcade and strategy games ever published in Gazette all on one disk. All games for Commodore 64, Titles: Crossroads |/; Pandemo- nium, Basketball Sam & Ed, Delta War, Heat Seeker, Omicron, Powerball, Q-Bird, Trap, Arcade Volleyball, Mosaic, Power Poker, and Scorpion II.
Gazette's Power Tools $9.95 Fourteen of the most important utilities for the
64 ever published in Gazette. For serious users, Titles: MetaBASIC, Disk Rapid Transit, Mob Maker, Ultrafont+, Quick!, Disk Editor, Basically Music, PrintScreen, 1526 PrintScreen, Fast Assembler, Smart Disassembler, Comparator, Sprint lH, and Turbo Format.
The GEOS Collection $11.95 Gazette’s best 13 programs for GEOS and GEOS 128 users. Selection includes utilities, applications, and games. Titles: Super Printer Driver, Skeet, File Saver, Help Pad, Word Count, Directory Printer, Quick Clock, SlideShow, File Retriever, Screen Dumper, Font Grabber, GeoPuzzle, and GeoConverter.
128 Classics $11.95 Thirteen of Gazette’s best 128 programs, including utilities, games, and applications. Titles: MetaBASIC 128, RAMDisk 128, 80-Column Disk Sector Editor, MultiSort, Block Out, Miami Ice,
The Animals’ Show, Cribbage, XPressCard, Sound Designer, Video Slide Show, Math Graphics, and 3-D BarGrapher.
}—l—J— Et tT IE Ta bt A AT |
* Residents of North Carolina and New York add appropriate sales tax. Canadian orders. add 7% goods and services tax.
All 6 DISKS FOR ONLY $49.95!
A $13.00 SAVINGS!
Name
Address
City State ZIP
Amount Method of
enclosed §$ payment 1 Check or Money Order
Mail to Gazette Disks (for orders over $20) 324 W. Wendover Ave., Ste. 200 Greensboro, NC 27408 Credit card no. Signature (required) Daytime phone number
Exp. date
i i i i] i] i O VISA or MasterCard : i i i i i i i i
** For delivery outside the U.S. or Canada, add $1 for surface mail or $3 for airmail, Ail orders must be in U.S. funds drawn on a U.S, bank,
i SPECIAL OFFER!
| All prices include shipping & handling.
I speedScript D $11.95 f Gazette Index oO $7.95 I Best Gazette Games O $ 9.95 i Gazette's Power Tools oO $ 9.95 i The GEOS Collection O $11.95 y_ 128 Classics O $11.95 i Special 6-Disk Offer O $49.95 i Subtotal
} Tax*
| Outside U.S. or Canada**
i Total
i
|
L
ee
West Bank Users Group of New Orleans, LA (W.B.U.G.), P.O. Box 740854, New Orleans, LA 70174-0854 (BBS# 504-861-2365, Voice# 504-368-0578)
Commodore Users Group of Coastal Maine, Rte. 2, Box 3254, Bowdoin- ham, ME 04008
Your Users Group (YUG), P.O. Box 1924, N. Windham, ME 04062
Southern Maine Commodore User Group, P.O. Box 416, Scarborough, ME 04074-0416 (BBS# 207-967-3719)
Commodore Users Society of Penobscot (CUSP), c/o 101 Crosby Hall, Univer- sity of Maine at Orono, Orono, ME 04469
MARYLAND
Rockville Commodore Users Group, 505 Marcia Ln., Rockville, MD 20851- 1509
National Institute of Standards and Tech- nology Commodore Users Group, 8 Cross Ridge Ct., Germantown, MD 20874
VIC Appreciators (VICAP), 14901 Donna Dr., Silver Spring, MD 20905-4364
North Baltimore Users Group (NOBUG 64/128), P.O. Box 18835, Baltimore, MD 21206
Annapolis Commodore User’s Group, P.O. Box 3358, Annapolis, MD 21403
MASSACHUSETTS
Pioneer Valley Computer Club, 6 Laurel Ter., Westfield, MA 01085 (BBS# 413- 568-4466)
Commodore User Group of the Berkshires, c/o C. F. Hunt, 38 Walden Ln., Pitts- field, MA 01201
North East Computer U.G., 24 Pineneedle St., Chelmsford, MA 01824 (BBS# 508-250-8098)
Michigan Commodore Users Group, P.O. Box 539, E. Detroit, MI 48021 (BBS#s 313-293-7340 and 313-892-3375)
Washtenaw Commodore Users Group, P.O. Box 2050, Ann Arbor, MI 48106- 2050
Downriver Commodore Group, P.O. Box 1277, Southgate, MI 48195 (BBS# 313-386-1565)
Saginaw Area Commodore User’s Group (S.A.C.U.G.), P.O. Box 2393, Sagi- naw, MI 48605
Midland Computer Club, 4702 Jefferson, Midland, MI 48640 (BBS# 313-631- 3471)
Bay Area Commodore Club, 338 S. Sheri- dan Ct., Bay City, MI 48708
Southwestern Michigan Commodore Users Association, P.O. Box 306, Kalama- zoo, MI 49005 (BBS# 616-342-5802)
Battle Creek Commodore and Amiga V. Enthusiasts (BCCAVE), P.O. Box 2539, Battle Creek, MI 49016-2539
Traverse Area Commodore Club, P.O. Box 1, Rodney, MI 49342
Tri-County Computer Club, 607 E. Dow- land St., Ludington, MI 49431
G10 COMPUTE
AUGUST
Upper Peninsula Commodore Users Group, 20 N. Billings St., Gwinn, MI 49841 (BBS# 313-485-1951)
Minnesota Commodore Users Association, P.O. Box 22638, Robbinsdale, MN 55422 (BBS# 612-425-3813)
Commodore Bemidji User Group, 4740 Sunnyside Rd. SE, Bemidji, MN 56601-8313
Coastline Commodore Computer Club, P.O. Box 114, Biloxi, MS 39533 (BBS# 601-832-2076)
McDonnell Douglas Recreational Com- puter Club, c/o Bruce Darrough, 3748 Cranberry Ct., Florissant, MO 63031- 6625 (BBS# 314-521-8197)
The Commodore Users Group of Saint Louis (C.U.G.S.L.), P.O. Box 28424, Creve Coeur, MO 63146-0984 (BBS# 314-878-8816)
The Southeast Missouri Commodore User Group, P.O. Box 615, Farmington, MO 63640
Heartland Users Group, P.O. Box 281, Cape Girardeau, MO 63702-0281
Commodore North Users Group, SYSOP Charlie Hunsburger, P.O. Box 34534, N. Kansas City, MO 64116 (BBS# 816-454-8806)
Joplin Commodore Computer User Group, 422 S. Florida Ave., Joplin, MO 64801
WORLD-WIDE C=64/128 User Group (WWCUG), P. O. Box 1294, Camden- ton, MO 65020
Columbia Commodore User (CCU), P.O. Box 7633, Columbia, MO 65205 (BBS# 314-449-8095)
MOARK (Missouri/Arkansas) Commo- dore Users Group, HCR 1, Box 85, Lampe, MO 65681
Commodore User Group of Springfield (CUGOS), Box 607, Springfield, MO 65801 (BBS# 417-862-9325)
MONTANA
Miles City 64/128 Users Group, c/o Mi- chael G. Sparling, 700 S. Prairie, Miles City, MT 59301
Pathfinder Commodore User Group, 1817 Briarcliff Rd., Fremont, NE 68025
Greater Omaha Commodore Users Group (GOCUG), P.O. Box 241155, Omaha, NE 68124-1155 (BBS# 402-733-7015)
Mid-Nebraska Users of Computers (MUC), 1920 N. Huston Ave., Grand Island, NE 68803 (BBS# 308-389- 6495)
K.A.C.C.K: Kearney Area Commodore Computer Klub, P.O. Box 1611, Kear- ney, NE 68848-1611
McCook Commodore Users Group, Dave Matthews, 80812 W. Ist, McCook, NE 69001
Platte Valley Computer Users Group (PVCUG), P.O. Box 367, Gering, NE 69341
Ute? a]
NEVADA
Clark County Commodore Computer Club (5 C’s), 8652 Trafalgar Dr., Las Vegas, NV 89117 (BBS# 702-795-4008)
Manchester Commodore Users Group, P.O. Box 1641, Manchester, NH 03105
Commodore Help And Information Net- work (CHAIN Gang), P.O. Box 654, Laconia, NH 03247
Seacoast Commodore Users Group, P.O. Box 511, Durham, NH 03824-0511
If your group does not appear in this list, send your club name, ad- dress, and bulletin board service tele- phone number (if available) to
Commodore 64/128 User Group Update
COMPUTE’s Gazette
324 W. Wendover Ave., Ste. 200
Greensboro, NC 27408
Your group will be listed in a user group update in a future issue.
Note: When writing to a user group for information, please remember to en- close a self-addressed envelope with postage that is appropriate for the country to which you’re writing. COMPUTE Publications does not condone the use of its user group lists by individuals or user groups for the purpose of buying, selling, or trading pirated sofiware. Should we discover any group participating in any such illegal and unethical activity, the club’s listing will be permanently deleted
from our files. a
ENTER NOW! DESIGN-A-ROBOT CONTEST
Invent a new personal robot on pa- per and send your designs, plans, and sketches to ‘'D'Iversions” col- umnist Fred D'Ignazio. Also tell him what robots mean to you. First prize is a large model robot valued at $200, and five runners-up will win smaller robots valued at $30 each.
Send entries to Design-a-Robot Contest, COMPUTE Publications, 324 West Wendover Avenue, Suite 200, Greensboro, North Carolina 27408. Hurry; all entries must be re- ceived by August 30, 1991.
The Gazette 2 pase. SE Manager
(Formerly PowerPak)
Harness the productivity power of your 64 or 128!
Turn your Commodore into
a powerful workhorse, keep track of finances, generate reports in a snap, manage your money in minutes—
all with the new 1991 Gazette Productivity Manager! Look at all your 64/128 Productivity Manager disk contains.
ORDER YOUR 1991 GAZETTE PRODUCTIVITY MANAGER TODAY!
GemCalc 64 & 128—
A complete, powerful, user-
friendly spreadsheet with all the features you'd expect in an expensive commercial package (separate 64 and 128 versions are included).
Most commands can be performed with a single keypress!
Memo Card—Unleashes the power of a full-blown database without the fuss! Nothing’s easier—it’s a truly simple computerized address file. Just type in your data on any one of the index cards. Need to edit? Just use the standard Commodore editing keys. Finished? Just save the data to floppy. What could be easier?
(MasterCard and Visa accepted on orders with subtotal over $20).
DYES! Please send me __ Productivity Manager disk(s)
($14.95 each).
—__—— Subtotal
_____ Sales Tax (Residents of NC and NY please add appro- priate sales tax for your area. Canadian orders, add 7% goods and services tax.)
—— Shipping and Handling ($2.00 U.S. and Canada, $3.00 surface mail, $5.00 airmail per disk.)
—_—_—— Total Enclosed
— Check or Money Order — MasterCard — VISA
Credit Card No.
I I | Financial Planner—Answers all of those questions ! concerning interest, investments, and money manage- ment that financial analysts charge big bucks for! You I can plan for your children’s education and know | exactly how much it will cost and how much you need ! to save every month to reach your goal. Or, decide I whether to buy or lease a new car. Use the compound ! interest and savings function to arrive at accurate ' I I I I I | I I I I | 1
Signature
estimates of how your money will work for you. CRequlred) Compute the answer at the click of a key! aaa aE
Address DON’T MISS OUT ON THIS :| =: Za
Send your order to Gazette 1991 Productivity Manager, 324 W. Wendover Ave., Ste. 200, Greensboro, NC 27408.
POWERFUL WORKHORSE!
a 3 Ps 8 2 = 8 ry - - WW N < GS
MONDU'S FIGHT PALACE
Ithough it’s not a new game to
the software world, Mondu’s
Fight Palace is new for the 64. It
was released originally for IBM and compatible machines as Tongue of the Fatman, and the 64 version looks every bit as good as the original.
This bizarre fighting game takes place in the domain of Mondu the Fat. He watches over combatants in his arena. They must fight to the death, and he delights in the contest. In Mondu’s Fight Palace, you have been thrown into a pit to battle the Fatman’s contenders. There are two ways to escape: defeat all of Mondu’s cronies and the Fatman himself or die. I don’t think it’s hard to choose.
Although fight games are a dime a dozen, Fight Palace goes beyond the norm and breaks the mold. In addi- tion to dazzling your opponents with your acrobatic moves, power-packed punches, and high kicks, you can choose weapons and bet on your fight. These additional options make Mon- du’s Fight Palace more challenging and entertaining. Not only are you playing against a computer-based op- ponent or second player, but you are also playing against the bet you made on yourself,
You start the game with 1000 credits. Use part of this money to buy weapons from Doctor Kadaver’s Weapons Store and part to bet on how long it will take you to finish off the other creature. Only the first oppo- nent is a humanoid. All of the rest are members of intergalactic races, and they each have unusual fighting traits and styles.
To help even the odds, you can buy weapons to use in the arena. You
Dr. Kadaver doesn’t give credit.
Fight Palace is played from a side view and with a number of different backgrounds. Below the main screen are pictures of the opponents, weap- ons boxes, and bars representing suc- cess, life, and attack power. Hitting one of the function keys activates a weapon. All other movements and ac- tions are performed with the joystick.
It takes three or four games to get used to Fight Palace, after which you can actually try to defeat the creatures. After another few games, you should know some of the opponents well enough to beat them in a short amount of time. Before long, you'll be racking up the credits and gearing up to beat the Fatman.
The graphics in Fight Palace are detailed and colorful. Particularly no- ticeable are the strange movements and unique appearances of each of the ten creatures in the game, from Colo- noid and Behemoth to Rubic and Freezer. The different creatures give the game its personality. Sounds are minimal and unnecessary in this game. You won't miss them because you'll be too busy trying to survive. RUSS CECCOLA Pl
Commodore 64 or 128—$29.95
ACTIVISION
3885 Bohannon Dr. Menlo Park, CA 94025 (415) 329-0800
can only buy those that cost less than ee Aeesi0 your current number of credits, and
G12 COMPUTE
AUGUST
REVIEWS
FANTASTIC FIGHTS ¢ REALISTIC RACING PC TRANSLATOR ¢ BALLISTIC BASIC « D
RAGONS AT WAR
magine yourself behind the wheel
ofa Ferrari, cruising down a Grand
Prix racetrack at 175 mph. Elec-
tronic Arts’ Ferrari Formula One is the next best thing to actually driving this powerful machine. It brings all the action and thrill of Grand Prix racing right to your computer. And you don’t have to be an expert race driver to play!
There are two playing options in this game. You can simply drive the Ferrari around the racetrack without worrying about things like schedules or season standings. This option is the easier one to learn, since it requires that you read only a short set of in- structions. As the game starts, there’s a short demo to help you get acquaint- ed quickly with the game. The minute you feel comfortable, just move your joystick, and off you go!
For those of you who want a real challenge, there’s the second option. This is just like real Grand Prix rac- ing. You design, modify, and test your own Ferrari. There are deadlines and schedules,to keep. You tell the pit crew what to do to your Ferrari. Even though there are numerous rules con- cerning designing and setting specifi- cations for your car, don’t worry about accidentally modifying a pa- rameter that would violate Grand Prix racing’s rules. The software won’t let you.
I found the manual to be well written, and the steps are easy to fol-
low for the second play option. If you do select this challenging second op- tion, be prepared to learn the track in limited time. You must also find the best settings for your Ferrari’s peak performance and the best way to con- serve fuel for the actual race.
Like a real Grand Prix season,
1991
Big Blue Reader 128/64 Read & Write IBM PC Disks!
Big Blue Reader 128/64 is a fast, easy-to-use, menu driven program for novice and expert alike. Transfers word processing, text, ASCII, and binary files between Commodore 64/128 and IBM PC compatible 360K 5.25" and 720K 3.5" disks. Includes both C64 & C1 : Requires 1571 or 1581 Disk Drive. Does not work using 1541.
BBR 128 Version 3.1 upgrade, $18+ original BBR disk.
Big Blue Reader 128/64 only $44.95
Bible Search 3.1
The only Bible Study Program with:
1) Entire Old and New Testament on (4) 1541/71 or (2) 1581 disks.
2) An Exhaustive English Concordance on (2) 1541/71 or (1) 1581
disks; includes more than 700,000+ references. 3) Incredible five (5) second look-up time, per/ word, per/disk. 4) Instant, automatic spell checking of more than 12,800 words. 5) Boolean Search operators including AND, OR & NOT logic. 6) Search entire Bible in 5 seconds with 1581 or Hard Drive (v3.5). 7) A Money Back Guarantee! Includes: Easy-to-use, C64 and C128 (40/80 column) programs, printer and disk output, users guide, disk case, and more.
ex Available on (7) 1541/71, or (4) 1581 disks. (Demo disk $5)
KJV $49.95 vxvevrveve NIV $59.95 tx Any questions? Call or write for more information. tx NOW Available! AMIGA Bible Search
Order by check, money order, or COD. US Funds only. tw FREE shipping in North America. No Credit Card orders. Foreign orders add $5 S/H ($12 whole Bible)
SOGWAP Software ® (219)724-3900
115 Bellmont Road; Decatur, Indiana 46733
REVIEWS
[Freeware For Commopore 64/128 al | GAMES, GAMES, GAMES!
71(6102) ADVENTURE ROAD / 1- Contains 4 adventure games: Scary, Africa, Adventure & more,
71 (6123) ADVENTURE ROAD /2- 10 text/graphic adventure games including SLEUTH.
“J(6124) ADVENTURE ROAD /3- 8 text/graphic adventure games including HACKER,
716049) 0-128 GAMES /1- 40 col- -
umn Galacte, Castle and Dansels. | Call or write for FREE catalog of 1,000's of programs for your PC!
80 column Star Trek. (800) 233-24
71 (6054) C-128 GAMES / 2-80 col- Mon - Fri 9am - 5pm PST
umn Norad, Wargames, not Lunar | Land. Print Spock&Kirk.
| 71 (6088) C-64 GAMES ! 1 - Action | games like Robbers, Whirly Bird, Blue Thunder & more.
| 7 (6089) C-64 GAMES / 2- Lotto, Attack Force, Star Trek, Joust, Derby, Defcon & more. | 71 (6097) IN THE MALL / 1 - Contains 14 arcade games, Try your skill on these gems.
71 (6099) IN THE MALL | 2-Contains 14 arcade games. Includes Moondog, Skiing, & more. |
71 (6142) IN THE MALL | 3- 12 more arcade games including BOULDER DASH and KANGA, | (6100) in THE PITS | 1- Contains 7 car games. Includes Dragster, Dodge Cars & more 71 (6101) LADY LUCK | 1- Contains 10 casino games. Roulette, Craps, BJ, Poker & more. | 71 (6202) LADY LUCK | 2- 10 gambling games including ONE ARMED BANDIT, and 21 7] (6203) LADY LUCK '3- 17 gambling games including DODGE CITY POKER and KENO. | 71 (6098) ON THE BOARDS / 1- Contains 11 board games. Includes Yahtzee, Battleship & more | 71 (6119) ON THE BOARDS / 2- 12 board and card games including battleship and chess.
1 (6120) ON THE BOARDS / 3- 17 more board and card games including CRIBBAGE and BINGO. | 71 (6118) PUB/BOARD GAMES - Darts, Bowling, Pool, Checkers, Backgammon, Chess, and more, 71 (6204) THE FINAL FRONTIER / 1 - 10 action filled space games including METEOR SHOWER,
| 7) (6206) THE FINAL FRONTIER /3- 18 action filled space games including CANYON RUNNER 16207) THE FINAL FRONTIER / 4- 18 action filled space games including SPACE DEFENDER, 71 (6104) THE SPORTING LIFE - Contains Golf, Miniature Golf, Baseball 64, Boxing and Trap. =] (6208) THE SPORTING LIFE / 2- 19 games relating to sports including BOWLING and BOXING. (610) VICTORY SOFTWARE 1-The is dso shareware games Veto Sofware,
‘To order, please check the desired disk and include $2.99 for each disk ordered, Include shipping and handling of $4 per order. CA residents add 7% sales tax. | Buy 5 dlaks and get the 6th ‘one free!
|Please send order, payment, name, address and daytime phone # to:
| s We accept Check, MO, | Laradise Sylware
| | | Mastercard & Visa. | | |
Sorry—No COD's. | Hours: Mon-Fri, 9am-Spm PST
7657 Winnetka Ave, Ste 328-C, Winnetka CA 91306
Circle Reader Service Number 129
the program isn’t a single race but a whole series. Each race is at a different track and consists of several practice sessions before the actual race.
The manual helps you design and set all the specifications on your Fer- rari. I found the manual’s panel dia- grams to be extremely helpful in designing and setting the car’s specifi- cations for the big race. Fiorano is the main base for setting up and modify- ing your Ferrari. Here, you set the
BIG BLUE READER
while back, there was a rumor circulating that someone was de- veloping an interface that would allow the 1581 to be used with a PC—a feasible but rather expensive proposition when you consider that most built-in 32-inch drives cost less than half the street price of the 1581. The February 1988 issue of
controls for the race, such as skill level and the race’s length. From this point, you can go to the garage to set major system components, such as the en- gine or suspension, or to the wind tun- nel to adjust the Ferrari’s wings. You can also fine-tune suspension and wing adjustments at the pit.
If you know little about setting up a racing Ferrari, don’t worry. The pro- gram has a character named Mauro to assist you in making these decisions. His suggestions will always appear in the panels. It’s up to you whether to accept his suggestions or to come up with your own ideas after reading the manual’s detailed descriptions on each setting.
After you’ve tested your Ferrari and made all the necessary modifica- tions, it’s time for the big race. With a
push of a joystick, you’re off to your first race! Just use the joystick to steer, accelerate, and brake. The engine’s roar makes you feel as though you’re actually at a Grand Prix, sitting be- hind the wheel of a high-speed racer. Overall, this software program is entertaining and challenging. Even though I have yet to become the series champion, I still have a lot of fun driving in Ferrari Formula One.
CHRIS STAWASZ,
Commodore 64 or 128, joystick—$29.95
Electronic Arts
1820 Gateway Dr. San Mateo, CA 94404 (415) 571-7171
Circle Reader Service Number 311
COMPUTE! featured a BASIC pro- gram that allowed the 1571 disk drive to read and write PC disks. This pro- gram worked well, but it did have some drawbacks. Among its most troubling foibles was the fact that it seemed to choke on large files.
I discovered this last fall as my wife was typing her grandfather’s memoirs on my 64 and I was then typesetting them on my PC. Long chapters caused the program to crash or to become twitchy. Three chapters simply refused to be translated, no matter what I did.
I decided to turn to SOGWAP’s Big Blue Reader to see what it could do. Having spoken to the software’s developer on the phone and knowing he was a capable programmer, it came as no surprise that Big Blue Reader
AUGUST
PY Al COMPUTE G43
solved the whole problem, providing rapid conversion between formats with no apparent problems.
More and more Commodore fans own both PCs and 64s or 128s. Using a program like Big Blue Reader turns this motley collection of operating systems and hardware into an effi- cient productivity machine.
The latest version of Big Blue can operate with the 1581 drive, translat- ing files from 720K 31-inch PC disks to 1581-compatible disks.
All this talk about translating files between formats can lead to some confusion, so let me explain that Big Blue Reader is not an emulator. The ability to convert a file from a PC disk to a Commodore disk doesn’t mean that you’ll be able to run WordPerfect on your Commodore. However, you
REVIEWS
The ability to translate files from one disk format to another is the most important task of this software, but it’s not the only useful feature. It will display the directory of a Commodore or a PC disk, format either type of disk, and display or print files in
ROBERT BIXBY
drive—$44.95
either format. It can convert files be- drive—$29.95 tween Commodore ASCII and the SOGWAP SOFTWARE ASCII that the rest of the world uses. 115 Bellmont Rd. Although Big Blue Reader 128 Decatur, IN 46733 comes with a version for the 64, 128 (219) 724-3900 Circle Reader Service Number 312
users should use the 128 version be- cause it supports CP/M and Commo- dore RAM expansion units and operates with one or two disk drives (one of which must be a 1571 ora 1581). Also, it works in 40- or 80- column mode. In 80-column mode, it operates at the full 2-~MHz clock speed.
REAL FAST G4 BASIC
uses burst mode to enhance the speed of the file-transfer process.
———_H?X\__-
Commodore 128, 1571 or 1581 disk Commodore 64, 1571 or 1581 disk
he 64’s resident BASIC is easy to learn and use, but it has its
G A ZE T T E comwmopore 64/128
can save a WordPerfect file on a PC disk as pure ASCII and transfer it to a Commodore disk for editing or printing with any Commodore word processor of your choice.
Yes, save time and money! Subscribe to the Gazette Disk and get all the exciting, fun-filled Gazette pro- grams for your Commodore 64 or 128—already on disk!
Subscribe today, and month after month you'll get all the latest, most challenging, and fascinating programs published in the corresponding issue of COMPUTE.
New on the Gazette Disk! In addition to the programs that appear in the magazine, you'll also get outstanding bonus programs. These programs, which are often too large to offer as type-ins, are available only on disk—they appear nowhere else.
As another Gazette Disk extra, check out
When Big Blue Reader 128 copies, it loads files into memory and then copies them to the new disk. This feature eliminates all unneces- sary disk swapping. Furthermore, it
drawbacks. BASIC provides the programmer with few tools to de- velop compact, powerful code. In addition, BASIC programs tend to run slowly because they’re in-
“Gazette Gallery,” where each month we present the very best in original 64 and 128 artwork.
So don’t waste another moment. Subscribe to- day to COMPUTE’s Gazette Disk and get 12 issues for only $49.95. You save almost 60% off the single- issue price. Clip or photocopy and mail completed coupon today.
Individual issues of the disk are available for $9.95 (plus $2.00 shipping and handling) by writing to COMPUTE, 324 West Wendover Avenue, Suite 200, Greensboro, North Carolina 27408.
YES! Start my one-year subscription to COMPUTE’s Gazette Disk right away for only $49.95.*
C Payment enclosed (check or money order)
OCharge OMasterCard O Visa
Acct. No. Exp. Date Signature
Name
Address
Ci
Stata] ZIP/ Province Postal Code
Mail to COMPUTE's Gazette Disk, P.O. Box 3250, Harlan, !A 51593-2430 “Residents of NC and NY, please add appropriate sales tax for your area. Canadian
REVIEWS
terpreted. That means before an in- struction can be executed, it must first be figured out by additional low-level software. Compiling a program—con- verting it to machine code for speed— creates an awkward additional step. It means keeping track of at least one additional file and may increase the program size. Writing in machine code combats the sparseness of com- mands and slow runtimes, but it leads to even more difficulties during the debugging and revising processes.
For years attempts have been made to redress BASIC’s speed defi- ciencies. One of the latest is Real Fast 64 BASIC (RFB) from Real R & D. It is interpreted, like the resident BASIC 2.0, but it precompiles GOSUBs and GOTOs for speed. It adds more than 90 new commands, allows labels to take the place of line numbers, pro- vides the user with the option to cre- ate custom commands, doesn’t interfere with BASIC 2.0, and is even compatible with COMPUTE'’s Meta- BASIC enhancement.
RFB includes a powerful syntax for machine language-like control of memory registers and control of bit settings within registers. For brevity, there are single-character commands. Error trapping is available to guard against results that might otherwise crash your program. RFB is also smart enough to be extensible, which means that the programmer can piece together preexisting commands and functions to build new commands.
On the downside, RFB is almost generic in design, with no provision made for 64 graphics (other than sprite commands) or sound. Also, some parts of the documentation make readers stop and review what they've just read. Lack of clarity isn’t a major problem, however, and programming examples do much to make up for any gaps in immediate comprehension.
On balance, I was mightily im- pressed; I recommend Real Fast 64 BASIC as a sophisticated alternative language for serious 64 programmers. BRUCE BOWDEN
WAR OF THE LANGE
SI’s latest addition to the Ad-
vanced Dungeons & Dragons
(AD & D) series is a war game
set in the Dragonlance world. War of the Lance is the perfect combi- nation of an original war game system and a detailed scenario to keep it fun to play and exciting.
The game system has many unique features such as diplomacy, side quests for champions, and magi- cal items such as dragon orbs to aid your armies. The setting and back- ground of the game far outweigh its technical aspects.
War of the Lance is set on the continent of Ansalon in the year 348, and evil dragons have returned. Play- ers control the Whitestone forces, who are the good guys. The computer or another player controls the Highlord armies, which consist mostly of drag- ons and Draconians. The action starts just as the Highlord armies are invad- ing Silvanestri.
Highlord starts with an advan- tage over Whitestone, since it consists of four nations to Whitestone’s two. To make matters worse, Whitestone’s dragons don’t enter the game until it’s more than half over. This makes the game more than a challenge, even for experienced war gamers.
The game’s history goes back to an earlier time, however. It goes back a millennium, when dragons were
out to find these lost artifacts and learn how to use them. If an army can find a dragon orb, for example, it can use it to make dragons retreat from the battlefield.
The appearance of reinforce- ments during certain phases of the game is a feature that adds suspense. Units may be activated at random. For example, the Highlord armies re- ceive more Draconian units at almost every turn. Anytime toward the end of the game, undead infantry and fly- ing cities, called citadels, will appear. On the Whitestone side, good dragons and Solamnic knights are some of the units that might join its forces.
A more direct way of gaining units is through alliances. The White- stones and Highlords have unique methods of diplomacy. The White- stones send diplomats to the countries and use gentle persuasion; the High- lords declare war on a country ifit isn’t an ally. Such a declaration is usually sufficient to make a country join the Highlords.
Movement and combat phases are similar to those of other war games. The side that has the initiative moves all of its troops either by ground, aerial, or naval transport. At- tack orders are given, and the combat begins. When one side’s attacks are finished, the other side starts its turn. There are some interesting twists, though—dwarves are the only soldiers who can go through mountains, and elves fight better in forests.
Not only is War of the Lance a war game, but it’s a role-playing game. It’s also a lot of fun. The extensive background adds spice that’s missing in many games. The graphics are de- cent, and there’s some animation. The instruction book is also very clear and precise. The game is fairly complicat- ed, though, and it can be slow-moving at times. But considering how much fun it is to play, once you've finally mastered War of the Lance, you'll re- alize it was worth the effort.
BROCK FANNING
banished from Ansalon. During that Commodore 64 or 128—$39.95 (Commouare Gi ors1 28 $30.95 time, magical artifacts were created to STRATEGIC SIMULATIONS REALR &D defeat the dragons. After the dragons Distributed by Electronic Arts ia 87:98 St ‘ disappeared, the artifacts were lost 1820 Gateway Dr. Ss and the magical secrets forgotten. OAL Saal Circle Reader Service Number 313 When the game begins, the White- Circle Reader Service Number 314 a stone and Highlord champions are AUGUST 1991 COMPUTE G5
a 3 r4 9° a ° = = 8 Tt - - ua N i co)
peeve OK
OU ESS atl
What's the Score?
I’m trying to write a machine lan- guage game. I have everything worked out except for the score, which could be as high as 900. How do I print this out to the screen? What I’ve done with single characters is to load the ac- cumulator with the ASCII value and JSR to CHROUT. But how do you decode a number that’s stored in low- byte/high-byte format?
DAVID HOLT RICHMOND, VA.
Commodore BASIC has provisions for printing two-byte numbers in ASCII (a major purpose is for line numbers). From 64 machine code, simply store the low byte in the X register and the high byte in the A register (Accumula- tor); then JSR to $BDCD (48589). On the 128, select a bank with BASIC ROM switched in, load the same regis- ters, and JSR to $8E32 (36402). The decimal equivalent will be printed at the cursor. On the 64, to get the ad- dress of the ASCII string without print- ing, start with .X and .A loaded as
above and use this code:
STA $62 ;STORE THE HIGH BYTE
STX $63 ;STORE THE LOW BYTE
LDX #890
SEC
JSR $BC49 ;CONVERT TO A FLOATING-POINT NUMBER IS FAC1
JSR $BDDF ;CONVERT TO AN ASCII STRING
On the 128, with BASIC switched in, use
STA $64 ;STORE THE HIGH BYTE
STX $65 ;STORE THE LOW BYTE
LDX #$90
SEC
JSR $8C75_ ;CONVERTTO A FLOATING-POINT NUMBER IS FACI
JSR $8E44 ;CONVERT TO AN ASCII STRING
In both cases, the low byte of the ad- dress of the ASCII string is returned in
Gi6é COMPUTE
ONS
AUGUST
F ROM Oo UR .A; the high byte, in .Y. At the end of the string is a zero byte.
Which 128?
I’ve been thinking about buying a 128, but I notice that there were two mod-
els produced: the original 128 and the
128-D. What’s the difference between the two?
Also, the sound on my 64 seems to have gone kaput. It was working fine before I moved it to another room. I’ve checked out the wires and the monitor, and everything seems fine. Do you think the sound chips have died?
JOHN J, REIMER WILLIAMS LAKE, BC CANADA
The 128-D differs from the original 128 in that it has an internally mount- ed disk drive. The 128-D also has a separate keyboard at the end ofa very short cable and an upgraded 80-col- umn display chip with more video memory. (It has twice the vertical reso- lution of the standard 128, which is not a big advantage for most users.) Nei- ther of the 128 models is in production, but a few dealers still have 128-Ds in stock. (See recent ads in this maga- zine.) Used and reconditioned ones can be found, but with a built-in 1571 disk drive included, expect to pay more
fora 128-D.
As for your second question, it’s most likely that your SID (Sound In- terface Device) chip has gone to that big socket in the sky. But since it hap- pened during a move, it might have come loose from its socket if the com- puter got bumped. Get a technician to look at it or, if you want to check it yourself, open the case, remove the RF shield, and firmly seat the chip in its socket. It should be the chip marked 6581.
Write It In
It’s hard to find COMPUTE with the Gazette section in it. Since my main interest is the Commodore 128, I am entering a subscription to Gazette. As the order form doesn’t ask me to spec- ify which section I want, I’m going to
1991
Rae ANS DEGREES
write in that I want Gazette. I look forward to getting COMPUTE, as it’s an excellent magazine.
But COMPUTE is more than just a magazine. It’s a large part of any computer user’s support network. As other support for the 64 and 128 wanes, I hope that COMPUTE will continue to be an important part of the Commodore information net- work. Your format is great, and I en- joy learning about other computer systems.
PAUL ARMSTRONG. CITRUS HEIGHTS, CA.
Thanks for the kind words, and we'll do our best to continue supplying read- ers with information about 8-bit Com- modore computers and other systems as well. In case you didn’t know, Ga- zette is now back in COMPUTE on many newsstands. To ensure that you get the Gazette edition that includes the type-in programs when you sub- scribe to COMPUTE, write Gazette across the subscription card.
ROM Upgrades
I've noticed several ads for ROM up- grades for the 1571 and the 128, What do they do? Also, how do I go about submitting programs to your magazine?
GARY R. PAYNTER PUTNAM VALLEY, NY
Just as computer sofiware often con- tains errors, the same holds true for the programs stored in ROM that make a computer or disk drive work. One of the first bugs discovered in the 128 was the infamous Shift Lock Q problem. It printed a lowercase Q whenever the Shift Lock key was depressed. There have been other problems, though less frequently encountered. Apart from the annoyance of a 1571's sputtering for minutes while trying to decide whether a disk is single or double sided, it also inherited the infamous Save-with- Replace bug. Volumes have been writ- ten about how the use of SAVE “@.filename”,8, originally intended Jor replacing files without going through the longer process of scratch-
FEEDBACK
ing first and then saving, will some- times trash programs. (Note: Placing a 0 after the @ sign usually corrects this problem.) ROM upgrades supply fixes to these and other problems. Upgrades usually are for the better, but ofien we discover that upgrades introduce their own problems.
Now to answer your second ques- tion. When submitting a program for publication, save it twice to disk along with two copies of the documentation in either SpeedScript or PET ASCII format. Enclose a printout of the docu- mentation and mail it to Gazette Submissions Reviewer, COMPUTE Publications, 324 West Wendover Ave- nue, Suite 200, Greensboro, North Carolina 27408. We encourage sub- missions of original games, utilities, and productivity programs for the 64 and 128, and we pay competitive rates for those we publish. Ifa pro- gram is too large to offer as a type- in program, we possibly can use it as a Gazette Disk bonus.
COMPUTE’s
Empty Socket
I’ve noticed several ads for ROM up- grades for the 1571 and the 128. I’ve also noticed an empty socket inside my 128, What are these for? I am also interested in EPROM programming. I would appreciate any information you have on these subjects.
GARY R. PAYNTER PUTNAM VALLEY, NY
That spare 28-pin socket which you noticed in the 128 can hold a custom EPROM (Erasable Programmable Read Only Memory) chip pro- grammed with your own sofiware. However, getting at it means voiding your warranty (if still in effect) and un- soldering the metal heat-sink/RFI shield. The socket can hold either a 16K or a 32K chip. If you insert a chip there, it will be recognized by the com- puter and treated like an external car- tridge. Here are a few details.
There are two areas of 128 memo- ry in which cartridges appear. They
are the mid-space ($8000-$BFFF) and the high-space ($C000-$F FFF). So up to 32K of cartridge memory can be switched into 128 memory space simultaneously.
Cartridge memory can be banked in through simple manipulation of the Memory Management Unit. (See your Commodore 128 Programmer’s Ref- erence Guide for details.) You can also program in a power-up autostart sequence.
To check for cartridges when the computer powers up, the system con- ducts a poll of all possible cartridge areas (internal or external, mid-space or high-space). This is done during the system RESET routine using asub- routine called POLL, which is located at $E242-E2BB in the Kernal (version 318020-03). In each of the cartridge areas, POLL checks for a special car- tridge key string that begins seven bytes from the start of the area. For ex- ample, in the mid-space ($8000- $BFFF), POLL will start checking at
SpeedScript Disk
A powerful word processing
package for Commodore 64
and 128 owners
A Great Deal for Commodore
* SpeedScript for the 64
° SpeedScript 128—80-column version
¢ Spelling checkers
* Mail merge
¢ Date-and-time stamp
* 80-column preview for the 64
¢ Turbo save and load
¢ Plus more than a dozen other SpeedScript support utilities all on one disk (includin
full documentation)
: YES! send me
SpeedScript Disk.
copies of COMPUTE'’s
| I've enclosed $11.95 plus $2.00 postage and handling. (Outside U.S. and Canada add $1.00 for surface mail or $3.00 for
airmail.)
: ORDER NOW!
| Name | Address | City
Amount Sales Tax" Total
State
Mail personal check or money order to
Commodore SpeedScript Disk | 324 W. Wendover Ave., Ste. 200 Greensboro, NC 27408
| Residents of North Carolina and New York, add appropriate tax for your area. Canadian orders, add 7'% good and services tax.
Please allow 4-6 weeks for delivery, Program available only on 5%4-inch disks.
a 3 rs a ° = = 8 MJ f= je oy N I 6
FUNctional Weekend
Projects for
C-64 Ultra-Users]
* Automotive Duell/Tach Diagnostics
Pro
* Home Sentry - Residential Security On Disk with Interface Schematics $20.00
Send Check or Money Order to:
CREATIVE SPECIALTIES P. O. Box 7361 Richmond, VA 23221 * Allow 34 Weeks for Delivery -
Circle Reader Service Number 104
FEEDBACK
far exceeds Kit #3 Part #DIA15 C-64
¥ computer. bbister-packed" for government PXs worldwide, this series is now available to you. Total cost 5 per kit Purchasing chips on an individual basis, eee
Kit #4 Part #DIA16 C-64 Kit #5 Part #DIA17 SA /TBTG Control Port
Flashing colors + Game Sound Keyboard
: car problems:
problems lors « Sera Seven preter Contains: IC #PLA/S06114, Diagnos- Cosel 1 #bSc0 IC at OF
Disk with 9 programs, Bog it Bau 8 ay
Problems + Symptoms: Drve runs Motor wont stp + Readers
Containg: IC #6502, 106522, 801229 Fuse, Cp puler, Basic sche-
bepiegesppai re Dig. Test Disk with 9 pri
SO vale fo oh $93.95 'A'$70.10 value for ony $29.95
THE, GRAPEVINE GROUP, INC.
wm Ce
Fax 914-357-6243
‘Chestnut St., Suffern, NY 10901 oes Faas oe S1ko7 Bee
Circle Reader Service Number 128
Heart Attack. Fight it with a Memorial gift to the American
Heart Association.
THE AMERICAN HEART ASSQ@IATION MEMORIAL PRGGRAMe
SF OS axe SIRS
$ @ american Heart Association
This space provided as a public service.
$8007. The cartridge key string on the 128 consists of the letters CBM. (The 64 checks for CBM80.)
In addition, the cartridge key con- tains cold and warm start entry points and a cartridge ID. If the CBM string is found, the POLL routine “logs in” the cartridge by recording its ID byte in a special table. This table is called the Physical Address Table, and it is located at $0AC1-$0AC4.
After storing an ID in the Physical Address Table and before checking the next area, POLL checks to see if the cartridge ID equals $01. Any cartridge with this ID is considered to be an autostart cartridge. If this ID is detect- ed, POLL immediately switches in the cartridge area and jumps to a subrou- tine (JSR) for the cold start entry in the ‘cartridge key.
The cold start entry is an entry point, not a vector. POLL JSRs direct- ly to the cold start entry point, expect- ing to encounter executable machine code there. Normally this will be a jump (JMP) to the actual start of the cartridge code. The warm start entry is supposed to be set up the same way, but it’s never used by the system.
Since POLL does a JSR to an autostart cartridge rather than jump- ing to it, the cartridge has a choice of whether it wants to return to POLL or not. If all the cartridge needs to do at this point is some initialization, it can do so and then return to POLL via an RTS command. If the cartridge wants to take over completely, it can do so by simply never returning to POLL.
The details of EPROM/cartridge use on the 128 are more involved than those for the 64, but they allow for more versatility.
Defunct Fonts
For the past three months I have been trying without success to obtain a copy of Fontmaster for my 128. I have approached U.K. suppliers without success. I have been told it isa U.S. product and used to be advertised reg- ularly in Gazette. Can you help me lo- cate a copy, or has the software been withdrawn?
GEORGE H. WEST STOCKPORT, CHESHIRE ENGLAND
Fontmaster II and Fontmaster 128 were produced by Xetec in Salina, Kansas, but a company spokesperson says the products are no longer avail- able. If you use GEOS and want to cre- ate fonts for your 128, you might try GEOS Font Editor (Comm-Plex Soft- ware, 6782 Junction Road, Pavilion, New York 14525; $21.50). This pro- gram lets you create a new point size of any existing font and places 49 dif- Serent fonts at your fingertips when writing a geoWrite document. Another good font program is Ultrafont+, 1 of 14 utilities on the
Gazette Power Tools disk ($9.95).
ML for Beginners I have recently started programming and have moved from BASIC to ma- chine language. Commodore 64 Pro- grammer’s Reference Guide is the only book I have for ML program- ming. Is there a good book that helps beginners? Could you give me the name of a good assembler? Are there other languages available for the 64? If so, which ones?
Finally, I have noticed a few un- finished programs in Programmer's Guide. On page 111, I cannot find the
= end of the last program on the page. Is there something I’m not doing, or has it been left out?
THOMAS UNDERHILL SELANGOR, MALAYSIA
COMPUTE Books sells several begin- ner machine language books for the 64 and 128. Look for Machine Language for Beginners ($16.95) and The Sec- ond Book of Machine Language ($16.95). Both of these contain listings for machine language assemblers. COMPUTE Books also has valuable tools and references such as Mapping the Commodore 64 ($18.95) by Shel- don Leemon, Mapping the Commo- dore 128 ($19.95) by Ottis R. Cowper, and Machine Language Routines for the Commodore 64/128 ($18.95) by Todd D. Heimarck and Patrick Par- ish. To order, write to COMPUTE Books, c/o CCC, 2500 McClellan Ave- nue, Pennsauken, New Jersey 08109. Please add $2.00 shipping and han- dling charges for U.S. orders, $4.00 for Canadian orders, and $6.00 for all others. Also, watch for special book of- fers in COMPUTE.
All of the major computer lan- guages are available for the 64 and 128. A partial list includes C, Pascal, COBOL, Forth, FORTRAN, Lisp, and Logo. One source of good-quality lan- guages for the 8-bit Commodore line is Abacus Software, P.O. Box 7211, Grand Rapids, Michigan 49510.
The little program at the bottom of page 111 of Commodore 64 Pro- grammer’s Reference Guide redefines the character associated with the letter T, but only after you've moved your character set according to the longer program on the previous page. a
Gis COMPUTE
AUGUST
We Oakpal
€x€c
See
VAN DER A
ommodore owners who use
GEOS have a real advantage
when the name of the game is
graphics. They can call up two star players, geoPaint, one of the bet- ter bitmap manipulation applications, and geoPublish, probably the best of the desktop publishing packages.
There is very little that these two programs can’t accomplish toward turning a document into a winner. From cut and paste to closed splines and scaled fonts, the results can be im- pressive. Documents can even be dumped to a laser printer for results that will score a hit every time.
Of course, every program strikes out once in a while, and the GEOS team has its holes in the lineup as well. The graphics objects created in geoPublish are not actually stored as bitmaps and are essentially unalter- able at the pixel level, a convenience taken for granted in geoPaint. With Paint Pages, you can convert a geo- Publish page into a geoPaint bitmap where pixel editing can be done. But there’s no way to reverse the journey except by creating relatively small photo scraps and importing them one at a time back into geoPublish.
Even with the pagewide screen of geoPaint 128, this process will quickly run out the clock, and you'll still be left with the task of fitting the scraps back together. Sometimes it’s easier just to patch an offending graphic with opaque, borderless white boxes and hope no one will notice.
It would also be nice if there were a way to copy a graphics object from one location to another on the geo- Publish page. If you’ve ever tried to draw three identical curves using the spline tool, you’ll know what I mean. While you can use the group select tool to move even a fairly complicat- ed set of objects, there’s no copy func- tion built in. Your only recourse again is to convert the whole business into geoPaint.
GEOS users have a great second string to call on, though. There are a growing number of talented, imagina- tive programmers ready in the bullpen
to save the game. They’ve written util- ities and desk accessories to fill in the gaps in the Berkeley lineup, programs that all GEOS users should have working for them. Some of these are available on QuantumLink or other BBSs, while one of the best showed up in this column a year and a half ago. The small size of photo scraps is annoying with the limitations of a 40- column screen. Even with GEOS 128’s 80-column version of the photo manager and geoPaint, the scraps are often too small for the job at hand. Terry Van Camp of Strongsville,
WAYS TO WIN THE
Ohio, has created Scrap It, a utility which neatly pinch-hits for the edit function in geoPaint. It lets you clip any size scrap you want from a geo- Paint document. Scrap It displays a preview-style representation of a page from either drive and provides you with a set of brackets to set off any portion of it to be copied.
Need a full-page-wide letterhead for geoWrite but use the 40-column screen? No problem for Scrap It. Want to clip a usable chunk out of the middle of a ComputerEyes bitmap? It may overfill the geoPaint window, but it can’t escape Scrap It!
There is no limit to the size of the scrap you create—the whole page can be grabbed this way. The only applica- tion that will accept a scrap that large, however, is geoPublish. But you can now create a graphics object using all
AUGUST
R K
those great tools in geoPublish, use Paint Pages to convert it to geoPaint, detail and clean up the bitmap, and then use Scrap It to port it back into geoPublish. Scrap It is available from Quantum Link; it’s shareware, so you should send a user fee of $5 to Van Camp if you find his program useful. This utility is well worth that small amount of money.
Copying an object or group of ob- jects in geoPublish is made possible by a clever little desk accessory published in this column last year (January 1990). It’s called Screen Grabber, and with it any part of the screen is avail- able for copying to a photo scrap. While there is only a limited need for bitmaps of sections of the deskTop or the ruler in geoWrite, bitmap copies of graphics objects in geoPublish allow you to import any number of dupli- cates all over the page. A graphics construction you’ve layered together from various tools and fonts might be too complex for the group select func- tion, but Screen Grabber simply copies the resulting hi-res image on your screen and turns the whole thing into a photo scrap that you can move around, scale up or down, or copy at will. Screen Grabber was written by Richard A. Rardin and appeared in the GEOS column in the January 1990 issue of COMPUTE!’s Gazette.
Anyone who plays the graphics game with GEOS needs these two files in the game plan. In my desktop pub- lishing projects, I’ve found them to be invaluable. There are plenty of other great utilities out there, programs which offer the GEOS user new capa- bilities with the system. If you’ve found one that really hits a home run for you, let us know, and we'll pass the word along. In order for a program to be discussed, however, we must have complete information about the au- thor and whether it’s public domain, shareware, or available for sale. Write to me in care of this column.
Steve Vander Ark can also be reached on QuantumLink by sending E-mail to him. His handle is SteveV 14. 5
UE Oo ma COMPUTE G19
a 3 ra ° a Ce) = = 9 3) uw - - i S| | o)
MACHINE LANGUAGE
—
cel}
MS BSUS tate Ror sl
fl have a group of users interested in machine language, I sometimes publicly write a simple program. Beginners might not follow all the details of coding, but they will be pre- sented with a few simple ideas: writ- ing in machine language is a logical process no different from writing in another language, no magic is in- volved, knowledge of hexadecimal numbers and machine language mon- itors is required, and machine lan- guage programs can be dazzling.
If you are on the Commodore 128, use the built-in machine language monitor (MLM). Invoke it by pressing Shift-f8. Most other machines will need to load Supermon+64. Either way, we're invoking a new way of communicating with the computer. Instead of POKE and PEEK, we now can access more efficient commands.
If we were writing in BASIC, a place would be set aside for the pro- gram automatically. But with ML we'll have to choose a spot. This will be a short program, so it will fit al- most anywhere. This time, I’ll pick address 8192 (decimal).
Enter A +8192... but don’t press Return yet. We have said to the computer, “We wish to write (as- semble) an instruction, to be located at decimal address 8192.” The com- puter prefers a different style of number, hexadecimal, but it will ac- cept the decimal value if you prefix it with a plus sign. Continue the line so that itreadsA +8192JSR... without pressing the Return key. We can now explain that JSR is the ab- breviation (or mnemonic) for Jump SubRoutine, an instruction much like BASIC’s GOSUB. It will call a subroutine, which will do some work for you, and then return to allow your program to continue. The sub- routine we want is the one that will read a character from the keyboard. This routine is located at address $FFE4 (hexadecimal). The character will be stored in the processor chip in an area called the A register, or the Accumulator. The dollar sign signi- fies a hexadecimal number.
G20 COMPUTE
AUGUST
ESD)
Complete the line to read A +8192 JSR $FFE4 but don’t press Return yet. Note that we have asked the MLM to generate an instruction to go and fetch a character. Take a good look at this line; when you press Re- turn, it will change dramatically.
AC ID BASIC
Press Return. The line now says A 2000 20 E4 FF JSR $FFE4. That’s more or less what we entered, with some extra material. The decimal ad- dress 8192 has been changed to hexa- decimal 2000, which the computer prefers. The translated instruction has become the three (hex) bytes 20 E4 FF, with the original printed at right.
The computer has calculated where the next instruction should go and has generated the first part of the line: A 2003. We’ve taken a character from the keyboard buffer. What should we do with it? We'll print it several times. We'll also need to count how many times we print the charac- ter. We'll use an area in the chip called the X register to do the counting. Start by setting the X register to zero with LDX (LoaD X): A 2003 LDX #0.
We use the # symbol to indicate that the zero is an actual value rather than an address. Programmers call this immediate mode. We'll print the character in the A register by calling an output subroutine with JSR
$FFD2, and then we’ll count by add- ing one to the X register with INX (INcrement X). In a moment, we'll want to go back and print (and count) again, providing our count (in X) has not yet reached 40.
A 2005 JSR $FFD2 A 2008 INX A 2009 CPX #+40
CPX is the instruction to ComPare X. We want to compare with the value 40, not the contents of address 40, so we use the # symbol again. The +40 means decimal 40; when you press Return, you'll see this converted to hexadecimal 28. By the way, if you’re doing this on an 80-column machine, change the 40 to 80; on the VIC-20, use the value 22.
Since you have compared your count in X with a limit value, you can now say, “If it’s not equal, go back and print again.” That would be the BNE (Branch Not Equal) instruction.
A 200B BNE $2005
Our character has now been printed 40, 80, or 22 times. Let’s go back and do it again unless the charac- ter is an asterisk ($2A, decimal 42). A CMP (CoMPare A) followed by a BNE will do the trick. (Always include a command to end the program).
A 200D CMP #$2A A 200F BNE $2000 A 2011 RTS
Finally, RTS (ReTurn from Sub- routine) signals the end of the pro- gram. If the machine language program was called from BASIC, it will return to BASIC. Press the X key and Return to return to BASIC from the MLM. Now invoke the program with SYS 8192.
As quickly as you can, type a message like NOW IS THE TIME. The message fills the screen at dazzling speed. Conclude by press- ing the asterisk key, and the pro-
gram will return to BASIC. a
Ca}
BEGINNER BASIC
e’re going to do something a little different this month. First I'll present a program; then we'll discuss it. This one quickly solves any right triangle.
To avoid typing errors, use The Automatic Proofreader to enter this program. Remember, the up arrow with the line beneath it indicates you should press the Shift key and the up arrow simultaneously. This prints pi.
AM 10 PRINTCHRS (147) HS 26 POKE5328G,12:POKE53281,1 5:POKE646,1 DJ 30 PRINTTAB(28)"{2 DOWN} {GRN}RIGHT HC 4@ PRINTTAB (28) "TRIANGLE KE 5@ PRINTTAB(28) "SOLVER JR 6@ PRINTTAB (28) "--~----- {6 UP} {WHT} DE 7@ FORT=1T014:PRINTTAB(11)C HR$(17@) :NEXT HP 80 PRINT" {HOME}" CQ 96 FORT=12T025:PRINTTAB(T)C HRS (205) :NEXT GK 100 POKE214,14:PRINT BE 118 FORT=12T025:PRINTTAB (T) CHRS (183) ;:NEXT RE 126 FORT=1T03:READY,X,A$ KG 138 POKE214,¥:PRINT:POKE211 7X: PRINT" {RED}"A$:NEXT FG 140 FORT=1T03:READY,X,A$ ES 15@ POKE214,Y:PRINT:POKE211 ,X:PRINT"{BLU}"AS$:NEXT BE 169 DATA3,13,A,12,13,C,12,2 2,B,7,9,BB,6,21,CC,15,1 7,AA HJ 176 C=96:REM ALWAYS RIGHT A NGLE KD 186 INPUT" {DOWN} {RED} {2 SPACES}ANGLE A";A:IF A>890RA<GTHENRUN RB 199 IFATHENB=18G-C-A:N=N+1: GOTO226 QG 208 INPUT"{2 SPACES}ANGLE B ";B: 1FB>89ORB<OTHENRUN CB 210 IFBTHENA=186-C-B:N=N+1 RQ 220 POKE214,26:PRINT RQ 236 INPUT"{BLU}{2 SPACES}SI DE AA";AA: IFAATHENN=N+1 : IFATHEN300 HM 248 INPUT"{BLU}{2 SPACES}SI DE BB";BB: IFBBTHENN=N+1 : IFATHEN380 HB 25@ IFAATHENIFBBTHEN3@3 MF 268 IFN<1THENRUN PB 276 INPUT"{BLU} {SHIFT-SPACE}SIDE CC";C C: IFCCTHENN=N+1 DG 288 IFCC<BBORCC<AATHENRUN GJ 290 IFN<2THENRUN RH 399 IFAATHENIFBBTHENCC=SOQR (
AA]2+BB]2) :GOTO369
LARRY
GS 319 IPAATHENIFCCTHENBB=SOR ( CCT2-AA]2) :GOTO36G
MB 320 IFBBTHENIFCCTHENAA=SQR ( CCT 2-BB]2) :GOTO360
KX 33@ IFAATHENCC=AA/SIN(A*}/1 8G) :BB=SQR(CCT2-AAT2) :G 070376
AN EASY WAY TO
BOLE RIGHT IANGL
IFBBTHENCC=BB/COS (A*]/1 8G) :AA=SQR (CCT 2-BB]2) :G 070378 IFCCTHENAA=CC*SIN(A*T/1 8G) :BB=SQR(CC[2-AAT2) :G 0T0378
A=ATN (AA/BB) *186/]:B=18 G-C-A
POKE214,17:PRINT
TB=22 N=A:GOSUB476:PRINTTAB (T B)"{RED}ANGLE A ="T N=B:GOSUB476: PRINTTAB (T B)"ANGLE B ="T N=C:GOSUB470:PRINTTAB (T B) "ANGLE C ="T N=AA:GOSUB476: PRINTTAB ( TB)"{BLU}SIDE AA ="T N=BB: GOSUB476: PRINTTAB ( TB)"SIDE BB ="T N=CC:GOSUB476: PRINTTAB ( TB) "SIDE CC ="T
GETAS$: IFAS<>CHRS$ (13) THE N456
RUN
T=INT (N*160+.5) /100:RET URN
346
356
368
376 386 396 466 416 426 436 44G 456
465 476
GQ HR
You don’t have to know a thing about trigonometry to use this pro- gram. Simply enter values at the prompts. Angles must be in degrees. Sides may be in any unit (feet, inches,
AUGUST
Cn OmetoTAZOLIN
millimeters) as long as they are the same units. If you don’t know a value, press Return. The computer will ask for enough information to solve the triangle and then print to the screen all three angles and sides, Press Re- turn to solve another triangle.
Lines 180 and 200 look for legiti- mate angles and line 280 checks to see that side lengths make sense. It doesn’t matter whether side AA or BB is larger, but make sure that CC (the hypotenuse) is the longest side. Be sure you don’t enter letters when the computer is expecting numbers. Ifa value doesn’t make sense or too little information is presented, the program just starts over. An IF-THEN state- ment is used quite a bit to check whether information has actually been entered. For instance, in line 190, IF A THEN .. . simply checks to see whether angle A is anything other than 0. In other words, IF A now has a value, THEN do something.
A counter (N) is used to ensure that enough information has been en- tered to solve the triangle. N is first encountered in line 190, As infor- mation is entered, N is incremented and then checked in line 260 and/or line 290. Two pieces of data must be entered to solve a triangle.
I think you can figure out what most of the other lines do, but there are two functions that we haven’t cov- ered lately: COS (line 340) and ATN (line 360).
COS (cosine) is similar to SIN (sine), except that it works with a tri- angle’s adjacent side and hypotenuse. In line 340, COS calculates side CC when BB and angle A are known.
Think of ATN (arc tangent) as the opposite of TAN (tangent). The tangent of an angle is the angle’s oppo- site side divided by its adjacent side. ATN is used to determine an angle when the opposite and adjacent sides are known. In line 360, ATN is used to calculate angle A when AA and BB are known.
Finally, line 470 is a simple subroutine which rounds numbers to two decimal places. o
TE 99 ml
COMPUTE G21
nN 3 rs ° (=) fe) = = 8 wy - j= a N | 6
PROGRAMMERS PAGE
-—
R AND Y
T HOM P S$
he 64 has not one, not two, not
three, but six different hardware
timers. And thanks to these tim-
ers, graciously provided by the computer’s two Complex Interface Adapter (CIA) chips, the 64 is guaran- teed punctual operation.
Among the most useful of the CIA chip timers is the Time of Day (TOD) clock. Besides keeping an ac- curate account of the time of day, this clock has an alarm function that oper- ates very much like the alarm found in your clock radio. To exploit the TOD clock’s abilities and to demon- strate its ease of use, I created a short alarm clock program to keep the com- puter’s biological peripheral—that’s you!—running on schedule.
As with a normal alarm clock, the following program allows you to set both the TOD clock’s current time and alarm time. After that, the clock tuns in the background while you are free to continue writing programs, playing computer games, or napping in your computer chair waiting for the alarm to go off. When alarm time comes around, the computer halts what it is doing, and the screen’s bor- der appears to come alive. Press the back-arrow key located in the upper left corner of the keyboard to turn the alarm off. The border will stop strob- ing, and the computer will continue where it left off.
When you run the program, it prompts you for the current time and the time you want the alarm to sound. Enter these times in HHMMSS (Hours, Minutes, Seconds) format. For example, if it is 2:35 and 10 sec- onds, enter 023510. After entering each time, the program asks you to press the A key for a.m. or the P key for p.m. Once both times have been entered, you can erase this BASIC program and use the computer for al- most any purpose without disabling the alarm. The alarm is vulnerable to programs that steal the computer’s IRQ vector or use memory in the range 828-889. In effect, such pro- grams will place your alarm clock into permanent “snooze” mode.
G22 COMPUTE
AUGUST
I discovered a couple of bugs in the TOD clock’s alarm function while developing this program. If the cur- rent time is between 12:00 and 1:00 (a.m. or p.m.), you must give the com- puter the incorrect a.m. or p.m. desig- nation when setting an alarm time that is within the same hour. So if it’s 12:05 p.m. and you want the alarm to sound in 25 minutes at 12:30, you must set the alarm for 12:30 a.m. If you don’t, your alarm will be 12 hours off. Also, the a.m. and p.m. setting is completely ignored on alarms that are set for 12:00 exactly. In other words, an alarm set for 12:00 will go off at noon or midnight, whichever is sooner.
TO ALARMING SOFTWARE FOR YOUR 64
Memory locations 56328-56331 ($DC08-$DCOB) are the TOD clock’s registers. These registers store the time in the following format:
Purpose
Tenths of seconds Seconds
Minutes
Hours
Register
56328 ($DC08) 56329 ($DC09) 56330 (SDC0A) 56331 (SDCOB)
The time is kept in binary code decimal (BCD). In BCD, a byte is di- vided into two groups of four bits, known as a nybble. Each nybble repre- sents one decimal digit. For example, at 12:00, the hours register (memory location 56331) contains a binary val- ue of 00010010. Dividing this byte into nybbles, we get 0001 and 0010, representing the decimal digits 1 and 2 for 12. All of the TOD clock regis-
i) Pea |
+
ON
ters work this way. The high bit (the leftmost binary digit) of the hours reg- ister indicates either a.m. or p.m. This bit is equal to 1 if it’s afternoon or 0 if it’s morning.
These registers have a unique latching feature. When you read the hours register with a BASIC PEEK command or a machine language load instruction, all of the registers freeze (hold on to their current value) until you read the tenths-of-seconds regis- ter. This prevents you from receiving an inaccurate reading. For example, if you read the hours register at 11:59 and the time changes to 12:00 just before you read the minutes register, the latching feature prevents you from reading the time as 11:00 instead of 11:59, Although the registers’ values freeze, the CIA chip’s internal TOD clock keeps ticking away. So the mo- ment you read the tenths-of-seconds register, all the registers are updated to reflect the proper time.
By writing to the TOD clock reg- isters, you accomplish one of two tasks—you either set the clock or the alarm time. To specify which time you set, you manipulate the high bit of memory location 56335 ($DCOF). If you set the high bit equal to 1, writ- ing to the clock registers sets the alarm time. To set the time of day, you clear the high bit. Lines 110 and 130 of the program above perform this duty using BASIC’s AND and OR operators.
The subroutine located in lines 180-270 sets both the clock time and alarm time. Lines 190-200 receive and verify your input. Line 210 stores this input into a numeric array of sin- gle digits. Lines 250-260 use this array to poke the time into the TOD regis- ters in BCD format. The AP variable signifies a.m. or p.m.
Once the program sets the TOD clock, line 150 turns on the alarm using the command POKE 56333,4.
TOD clock alarms generate an in- terrupt request, which normally forces the computer to execute the interrupt routine located in ROM at memory location 59953 ($EA31). In order for
PROGRAMMER’S PAGE
the alarm program to know that an in- {SPACE}AND 127:REM GET terrupt occurred, I use a short ma- ABEACe }READY TO SET TIM chine language routine to intercept the KX 126 PRINT" {CLR}ENTER TIME ( normal interrupt routine. This ma- HHMMSS) ":GOSUB 184 chine language routine is stored in the | Mx 136 POKE 56335,PEEK(56335) DATA statements in lines 340-370. { 8 PACE) ORN128 :REM READY » ; , 0 SET TGs the ou On ne nett AC 146 PRINT"{CLR}SET ALARM TI routine to determine why the com- ME (HHMMSS)":GOSUB 180 puter has disturbed its otherwise _ XA 150 POKE 56333,4:REM TURN A peaceful existence. (Interrupts, which LARM ON normally occur at least 60 times asec- | FB 166 SYS SA:PRINT "{CLRJALAR ond, can be caused by several events.) aioe uasEr If the TOD clock alarm is not the MA 18G REM ENTER AND SET TIME cause of the interrupt, then program BC 196 PRINT "{HOME}"TAB (26) ;: control is passed along to the 64’s nor- INPUT TS:IF LEN(T$)<>6 mal interrupt routine. If the TOD per a aes AUEEEY (TS, geo aa és ue omlats Laas GH 260 IF VAL(T$)>129999 OR VA OT’ ler 1s place into a psyc! elic L(MID$(T$,3,2))>59 OR V frenzy until the back-arrow key is AL (RIGHTS (T$,2))>59 THE pressed or the computer’s power is cut N 196 off—a rude but effective technique for | PE 219 BOR TEL SEAS) SvES IH terminating obnoxious computer TRL * qi KB 226 PRINT "AM OR PM (A/P)? behavior. 5 : Adria AG 230 GET KS:IF K ALARM $<>"P" THEN 236 RC 24 PRINT KS$:AP=@:IF KS="P" GM 100 SA=828:GOSUB 289 THEN AP=128 CH 116 POKE 56335,PEEK(56335) | CG 256 POKE 56331, (T(1)*16+T(2
JP GH FQ BF MX XF XM XM
DS
CM
AD
BF
)) OR AP:POKE 56336,T(3 )*16+T (4)
POKE 56329,1T(5)*16+T (6) :POKE 56328,0
RETURN
REM STORE MACHINE LANGU AGE DATA
CK=G@:FOR I=SA TO SA+61: READ D:POKE I,D:CK=CK+D :NEXT
IF CK<>7121 THEN PRINT
{SPACE}"ERROR IN DATA S TATEMENTS": END
HB=INT ((SA+13) /256) :LB= SA+13-HB*256:POKE SA+2, LB:POKE SA+7,HB
RETURN
REM MACHINE LANGUAGE DA TA
DATA 126,169,060,141,02 G,603,169,003,141,021,6 63,088,096
DATA 173,013,220,041,08 4,240,039,141,013,226,1 73,032,268,072,238,0632, 208
DATA 932,159,255,165,19 7,261,057,208,244,104,1 41,032,208,169,006,133, 198
DATA 126,169,049,141,02 G,003,169,234,141,621,6 63,088,076,049,234 o
268 270
286
296
308
316
326
336
346
350
368
376
‘SOFTWARE CLOSEOUTS
For Commodore 64 & 128
‘SSI BARGAINS, Your Choice .
OMNI TIME CAPSULES
‘1st Over Germany, Heroes of the Lance. AVALON-HILL DEALS ..
ACCOLADE LIQUIDATION, Your Cholee .. ‘Ace of Aces, Fight Night, Jet Boys, Dambui Dead, Law of the West, PSI 5 Trading Compa ‘$86 BARGAINS, Your Choice 3. ‘American Civil War Volume 1, 2 or 3, Fire King, Halis of Montezuma, Panzer Battles, MacArthur's War, Rommel Battles for North Africa ACTIVISION BARGAINS, Your Choice .. Christmas Mode! Kit, Crossbow, Ocean Ri
OTHER GREAT DEALS
Now the magazine of the future can be kept for the future. Store your issues of OMNI in a new Custom Bound Library Case made of black simulated leather. It’s built to last, and It will Keep 12 issues In mint condition indefinitely. The spine is embossed with the gold OMNI logo, and in each case there is a gold transfer for recording the date.
Send your check or money order ($8.95 each; 3 for $24.95; 6 for $45.95) postpaid USA orders only. Foreign
Super 64 Cartridge Partner 128, by Timeworks (C/128 only) ..
‘Assembler, by Commodore : Printed Word -or- The Tool, by Valueware Congo Bongo, by Sega (cartridge) = Entertainer -r- Educator, by Valueware ..
Spite & Malice -or- Slinky, by Cosmi -._..
Heswriter 64, by HesWare (cartridge) $5.00 orders add $1.50 additional for Turtle Toytand Jr. -or- Tri-Math, by HesWare S450 each postage and handling per case. Naps Mateo, by Ateoee Pee 8) oe en
LEATHER GODDESSES OF PH x To: OMNI MAGAZINE MINDSHADOW, by Action wow $8.00 i je Tag Team Wrestling, by Datasott .. $9.50 Jesse Jones Industries, 499 E. Erie Ave. Computer Diagnostics by Real Sofware 3450
Phila., PA 19134
CREDIT CARD HOLDERS (orders over $15) CALL TOLL FREE 1-800-972-5858 Or mail your order, clearly showing your account number and signature. Pa. residents add 6% sales fax. SATISFACTION GUARANTEED
Alter Ego, by Activision (specify male -or- female) .. TO ORDER, SEND CHECK OR MONEY ORDER TO:
ay ows 2 open ts catalog FREE.
complete send $2 can o Saree oh above aces The Check Sr an fam nck Rte hee, cal (505) 544-5615.
Circle Reader Service Number 161
World Geography
for Gomrinareton 64 and apple I
Full-color 3-D rotating aabal World Geography is the fun way to learn the world’s countries, flags, capi- tals, populations, languages and cur- rencies in an entertaining 1- or 2-player educational game for the whole family. “The entire presentation is outstanding... This is really an achievement!”
—Commodore Magazine
“An awesome achievement...the execution
is flawless.” —COMPUTE!'s Gazette
C64 only $19.95, Apple II $24.95 postpaid! Also available in Spanish and German
Injured Engine (C64 only) $14.95 An engine diagnostic simulation by IMAGIC Fish-Ed (C64 or Apple II) $17.95
Elementary spelling and number concepts Speller’s Duel (C64 only) $12.95 Spelling program in a game show format
‘800 829-5551.
a 1 Outside US call 408 462-1551
BOBCO Interactive Software
200 7th Ave., Suite 111, Santa Cruz, CA 95062
Circle Reader Service Number 112
5 Q = = 8 Ly I= = i N <q So
DIVERSIONS
FRE OD
D’!IGNAZI1
° —
e are what we dream. Our dreams of “futures past” now seem wholesome and desir- able compared to today’s sometimes cockeyed present.
In the 1950s when I was growing up, kids dreamed about the hot new toys of technology: TV sets, space- ships, monster computers, and tran- sistor radios. We tuned in to family programs every night like “Dennis the Menace,” “Father Knows Best,” “Oz- zie and Harriet,” and “Lassie.” We identified with the kids on the pro- grams—kids like Bud, Frank, Ricky, Dennis, Margaret, Timmy, and Betty. We dreamed ofa fantastic future—a George Jetson future where families would be just like those we saw on our favorite TV programs. Life would be a lot the same—comfortable, loving, funny, and so on. But in the future we'd also have tons of high-tech toys, just like Judy and Elroy Jetson had.
We'd have a robot. We'd have a jet car. We'd have picture phones and cosmic baseball. And we'd never have to do any work because we’d have homework machines, machines to take out the trash, machines to wash the dirty dishes and pick up our bed- rooms. In the future, life would be grand!
Then something sad happened. Somewhere between 1950 and 1990, we kids wandered off the yellow brick road to the Jetson future, and we nev- er found our way back. The TV fam- ilies of the 1950s were replaced by the TV families of the 1990s—‘Ro- sanne,” “Married with Children,” “The Simpsons.” Families fragment- ed into latchkey kids, liberated wom- en, and workaholic dads. In place of Donna Reed, kids came home to re- volving-door parents and Nintendo babysitters.
Welcome to the postmodern world. A world beyond Walt Disney and George Jetson. A world of AIDS, Madonna, MTY, Ninja Turtles, WrestleMania, and Nightmare on Elm Street. In place of Jetson jet cars and robots, the landscape is dotted with cellular phones, Game Boys,
palmcorders, DAT Man, and CDTV. new ovens. We were sure that all that
The Jetsons movie came out re- cently. If you saw the film, didn’t you think it seemed a little odd, a little quaint? That’s because the Jetsons movie is a leftover, warmed-over dream. It’s a vision of a future past. The truth is that somewhere between 1950 and 1990 the real George Jetson walked out on his kids, his dog Astro, his gadgets, his wife Jane—and he never returned.
In the 1950s we pulled up toa Texaco station, and the man who wore the star rushed out with a great big smile and served us and serviced our car. In the 1990s we roll into a
stark gasoline fortress and see hulking vandal-proof pump-it-yourself vend- ing machines. We pay our money toa shadowy presence hidden behind pro- tective layers of bulletproof glass, and we pump our gas through an accor- dion vapor-control hose that looks like an appendage of Robbie the Ro- bot in Forbidden Planet.
In the 1950s kids and their par- ents went ga-ga over the shiny white appliances that poured out of Ameri- ca’s postwar factories and into Ameri- ca’s homes. There were new refrig- erators, new washing machines, and
G24 COMPUTE
AUGUST
I Oar
glowing white enamel was just the tip ofa technological iceberg. Our high- tech home of the future would be clean, sleek, and, and cozy. And above all, American!
Cancel that dream. Technology tomorrow turned out to be tiny black boxes from Japan and Korea. The easy street to the future turned into a shortcut to the salt mines.
In the 1950s we looked forward toa future in which machines did most of the work. We were told to ex- pect more leisure time, shorter work weeks, and a carefree existence. The George Jetson easy street was just around the corner. Technology would save us so much work that we'd have time on our hands.
Now we're in the 1990s, the de- cade of time deprivation. Husbands and wives both work full-time jobs. Life is a rat race. The streets and the skies are gridlocked by too many vehi- cles trying to travel to too many places. Technology has turned from slave to taskmaster. With fax ma- chines, cellular phones, E-Mail, phone mail, overnight delivery services, vid- eo conferencing, and computers, we are never out of touch. We are never offline. We must never stop, slack off, or daydream. We are plugged into a network that never sleeps. We feel un- relenting pressure to work all the time. Our machines quietly goad us to work harder, faster, longer. Puff! Puff! Puff
Our present is not necessarily bet- ter or worse than the old Jetson fu- ture. It’s definitely different.
Editor’s note: Don’t forget to enter Fred D’Ignazio’s Design-a-Robot con- test. See last month’s “D’Iversions” for a complete list of the rules.
All entries must be received by August 31, 1991. The first-place win- ner will receive a model robot valued at $200; five runners-up will each re- ceive a smaller robot valued at $30. Send entries to Design-a-Robot Con- test, COMPUTE Publications, 324 West Wendover Avenue, Suite 200, Greensboro, North Carolina 27408. 8
PROGRAMS
f you enjoy solving cryptogram
puzzles that appear in many news-
papers, you'll find Crypto-64 a very
useful and entertaining program. Amateur code breakers can use it to practice solving letter-substitution ciphers.
Crypto-64 doesn’t actually solve the puzzle for you. Instead, it provides a convenient display of both the origi- nal cryptogram and the resulting de- coded version as you enter various character substitutions.
Getting Started
Crypto-64 is written entirely in BASIC. To help prevent typing errors, use The Automatic Proofreader to type it in; see “Typing Aids” else- where in this section. Be sure to save a copy of the program when you’ve fin- ished typing.
Solving Puzzles
Load and run the program. At the prompt enter a cryptogram in up to four one-line parts. Be sure to press the Return key before moving to a new line. You’ll then be prompted to continue with the next part. It’s neces- sary to limit each part of the crypto- gram to one line in order to provide for proper onscreen presentation. If your cryptogram occupies less than four lines, merely press the Return key to skip the unused part(s).
Your cryptogram will then be dis- played with an asterisk (*) below each letter. You'll be prompted to select CHAR, RESTART, or QUIT by pressing C, R, or Q, respectively. When you decide to substitute a new character for one in the cryptogram, press C, enter the letter you want to change, and press Return. At the next prompt, SUB, enter the letter you wish to try as a substitute. Press Re- turn, and the screen will then redis- play the original cryptogram with the substituted letter printed below the line in the appropriate location.
If you wish to change one of your substituted letters after you see the display, merely reenter the original cryptogram letter at the CHAR
Bi beak | ina P= ona 1 SI “Hoey
prompt and try your new substitution at the SUB prompt. If you enter an as- terisk as the substitute character, you can effectively erase any previous substitution.
If at some point you wish to start again with the same cryptogram, se- lect R (for RESTART) at the prompt. The original cryptogram will be dis- played with no substituted letters. To quit, select Q at the prompt.
Because INPUT statements pro-
CRYPTO-64
CRACK CODES AND SOLVE
CRYPTOGRAMS WITH THE HELP OF THIS SHORT UTILITY FOR
THE 64
hibit entering a comma or a colon, do not use either of these punctuation marks. If they do appear in the origi- nal cryptogram, they should be omit- ted. If you wish, however, you may replace commas and colons with alter- native characters.
Here’s a sample cipher to get you started. After you run the program, enter the four lines of scrambled text.
When you're ready to solve the puz- zle, substitue the letter 7 for the letter Z as shown below. Now try substitut- ing E for T and A for Q.
DQKN IQR Q SOZZST SQDW OZL
Re ek kee K RADpAR kee DE
YSTTET VQL VIOZT QL
RRR KER KERTH He
LFGV
kee
QFR TCTKNVITKT ZIQZ
ake SARK DEED
DQKN VTFZ
wee teRD
ZIT SQDW VOL LXKT ZG UG
[te kee Rae KHER TR te
CRYPTO-64
BE 1 REM COPYRIGHT 1991 - COMP UTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED QM 10 CS=CHR$ (147) :RS=CHR$ (29) :US=CHRS$ (145) :DIML$ (145) PRINTC$:FORQ=32T064:L$(Q ) =CHR$ (Q) :NEXT: L$ (91) =CH R$ (91) :L$(145) =CHR$ (145) INT"CRYPTOGRAM L PRINT: INPUTW$: LW =LEN (WS) : IFLW=OTHENWS=U$ PRINT: PRINT"CRYPTOGRAM L INE 2:":PRINT: INPUTX$:LX =LEN (X$) : IFLX=OTHENX$=U$ PRINT: PRINT"CRYPTOGRAM L INE 3:":PRINT: INPUTYS$:LY =LEN (Y$) : IFLY=@THENYS=U$ PRINT: PRINT"CRYPTOGRAM L INE 4:":PRINT: INPUTZ$:LZ =LEN (Z$) : IFLZ=GTHENZS=U$ PRINTCS$: FORQ=65T09G:LS (Q ) ="*" NEXT: [FWS=USTHEN26 PRINT: PRINT: PRINT: KS=WS: P=LW:GOSUB256 EJ 96 KS$=X$:P=LX:GOSUB250 JA 100 K$=Y$:P=LY:GOSUB256 JC 116 K$=Z$:P=LZ:GOSUB256 HF 126 GOSUB279: 0226 FP 130 PRINT" CHAR "; s INPUTAS: IFAS=""THEN {SPACE} PRINTCS$:GOTO166 PRINT"{2 SPACES}S UB";:INPUT BS:IFBS=""TH ENAS$=""': PRINTCS:GOTO160 N=ASC (AS) :L$(N) =BS PRINTCS$: PRINT: PRINT: PRI NT KS$=WS$: PRINTRS$+K$: P=LW:G OSUB266 K$=X$: PRINTRS+K$: P=LX:G OSUB268 KS$=Y$: PRINTRS+KS: P=LY:G OSUB260 KS$=ZS: PRINTRS+K$: P=LZ:G OSUB266 GOSUB276 IFSS="R"THEN GOSUB286:P RINT: GOTO76 IFSS="Q"THEN GOSUB286:P RINTC$:END GOTO13¢G PRINTRS+K$ PRINTRS; : FORN=1TOP:A=AS C(MIDS$(KS,N,1)) :PRINTL$ (A) ; NEXT: PRINT: PRINT:R ETURN POKE198,0: PRINT: PRINT: P RINT" CHAR,RESTART,QUIT (C/R/Q)";2: INPUT S$:RET URN POKE198,0:PRINT: PRINT" {SPACE}ARE YOU SURE (Y¥/ N)";:INPUT S$ IFSS<>"Y"THENPRINTCS$:GO TO16G RETURN io]
MS 20
BF 30
RA 46
MX 56
AJ 60
FG 76
DK 86
FH 146
BR 150 XxX 160
cp 176 XR 186 Js 196 AA 206
MX 210 JD 226
CB 238 PB 240
FS 250 KH 268
GQ 276
AA 289
AE 290
HJ 366
AUGUST
PAGED] COMPUTE G25
SI 3 rs 8 ° = = 8 WW = _ wu N Sf 6
PROGRAMS
=
or an effective video presentation,
good graphics alone are not
enough. To catch a viewer’s atten-
tion, you must present your im- ages with style—move them on and offa screen with flair and imagination.
Television news is packed with visually exciting wipes, overlays, and fades. Simulvideo brings the power of such video manipulation to the 64.
This utility supports a multitude of smooth and fast graphics effects. Large dual bitmaps can converge from opposite directions, interlace, blend together, and then reverse the effect. Two different bitmaps, such as a logo and a slate, can merge over each other. Bitmaps can be wiped on and off. Once onscreen, they can be made to wave in different ways, and text can be displayed in front of or be- hind them, A backdrop can also fade in and out.
With a new overlay mode, a bit- map is not limited to being over or under different graphics; it can be lay- ered in between. A demonstration and a short supporting utility for convert- ing hi-res graphics to Simulvideo for- mat round out this video package.
Getting Started
Simulvideo consists of three pro- grams. The main program is written entirely in machine language. To enter it, you’ll need to use MLX, our ma- chine language entry program; see “Typing Aids” elsewhere in this sec- tion. When MLX prompts you, re- spond with the values given below.
Starting address: C000 Ending address: CB7F
When you’ve finished typing, be sure to save the program to disk as SIMULVIDEO.OBJ before exiting MLX.
The second program demon- strates Simulvideo effects and is writ- ten in BASIC. Type it in using The Automatic Proofreader; see “Typing Aids” again. When you’ve finished typing, save this program as SIMUL-
RL OBA D
VIDEO.DEMO to the disk with SIMULVIDEO.OBJ. To see some of the effects possible with Simulvideo, load and run the demo program. It automatically calls SIMULVI- DEO.OBJ. After it demonstrates sev- eral effects, press the space bar to see others.
The third program, IMPORT, is a BASIC utility for importing multi- color graphics from paint programs to Simulvideo. Type it in with The Auto- matic Proofreader as well, and save it to the disk with SIMULVIDEO.OBJ and SIMULVIDEO.DEMO,
To use Simulvideo in your own programs, add line 50 of the demo to the beginning of your program.
OIMULVIDED
ADD WIPES, OVERLAYS, FADES,
AND OTHER SPECIAL EFFECTS TO YOUR 64'S GRAPHIC PIRESENTATIONS
Program Commands Simulvideo uses raster interrupts and sprites to simulate two multicolor bit- maps 48 pixels wide and 168 pixels down. These two bitmaps work in tandem with special memory manipu- lation to create the special effects.
Usually such interlacing anima- tion requires extensive memory mov- ing, something the 64 is too slow to do on the fly. However, because the bit- maps are actually sprites—and sprites are directly supported by hardware— the video can be processed quickly and smoothly.
Simulvideo incorporates 17 video commands, many of which have sev- eral options. To access them, use the
G26 COMPUTE
AUGUST
Th Cia
Pee caNGuN:
SYS commands described below. They are available in direct mode or from within a program.
SYS 51071, cl, c2, c3
This command, which must be called before any others, activates Simul- video and selects the three bitmap col- ors (0-15). Be careful not to recall this command once Simulvideo is en- abled, or the computer will crash.
SYS 51589, “filename”, location
This command loads a bitmap from disk into the specified memory loca- tion 0-7 (stored under ROM). A max- imum of eight bitmaps can be stored in memory at any time, but new bit- maps can be loaded to overwrite exist- ing ones as required.
SYS 51388, type, left bitmap, [right bitmap]
This command, which must be called before any of the bitmap manipula- tion commands, selects the bitmap to use. The type parameter is 0 for inter- lace effects or | for solid effects. The bitmap parameter is the location where the bitmap was loaded (0-7). For interlace effects use only one bit- map, such as SYS 51388, 0, 1. For sol- id effects, the left and right bitmap panels can be different, so you must select the graphics for both bitmaps (SYS 51388, 1, 5, 6). The bitmap com- mands below will indicate which type they are and how many bitmaps they need.
SYS 50740, merge type
This performs an interlaced bitmap merge, where the merge type is 0 fora horizontal interlace and 1 for a verti- cal interlace. One bitmap must be specified for this command (SYS 51388, 0, bitmap).
SYS 50746, spread type
This performs an interlaced bitmap spread, where the spread type is 0 for a horizontal interlace and | fora vertical interlace. One bitmap must be specified for this command (SYS 51388, 0, bitmap).
SYS 51569 This simultaneously slides two solid bitmaps together without interlacing them so that the left panel appears on top of the right one. This effect is good for sliding a large logo over a slate or text over a backdrop. Alternately, if the left bitmap has a picture in the up- per half and the right bitmap has a picture in the lower half, this com- mand can make two separate pictures slide onscreen one above the other (similarly, pictures can slide side by side if they are narrow). Two bitmaps must be specified for this command (SYS 51388, 1, left bitmap, right bitmap).
SYS 51579
This command simultaneously slides two solid bitmaps apart without inter- lacing them. Two bitmaps must be specified for this command (SYS 51388, 1, left bitmap, right bitmap).
SYS 51725, direction
This wipes a single bitmap onto the screen. The bitmap can scroll on from the left side (direction 0) or from the right side (direction 1). One bitmap must be specified for this command (SYS 51388, 0, bitmap).
SYS 51750, direction
This wipes a single bitmap off the screen. The bitmap can scroll off to the right (direction 0) or to the left (di- rection 1). One bitmap must be speci- fied for this command (SYS 51388, 0, bitmap).
SYS 50752, size, exit
This creates a wave effect over the bit- map. There are four wave sizes, which range from small to large (0-3). To exit the effect, press the space bar or the fire button on a joystick plugged into port 1. The end parameter selects whether the bitmap will remain on- screen after it is stopped (exit 0) or will spread apart with the last used in- terlace pattern (exit 1). This command will only work following an interlaced bitmap merge (SYS 51071, merge type).
SYS 50916
This toggles the bitmap priority so it appears either in front of or behind text. By default, a bitmap is displayed in front of text whenever Simulvideo is activated.
PROGRAMS
SYS 50930
off. The border and screen must be the same color. This command is in- valuable when setting up new screens. By turning off the video, a new screen can be printed without the user’s see- ing it. When the video is restored, only the completed screen is seen.
SYS 51879
This fades a diagonally lined back- drop into view. For a pleasing effect, the screen and border must both be black.
SYS 52024
This fades out the backdrop. As above, the screen and border must be black.
SYS 50946, cl, c2, c3
This turns on overlay mode and de- termines the three colors to use (0-15). Its basis is the extended back- ground color mode, so graphics must be designed with reversed spaces.
In overlay mode, a shifted space character prints in color 1, a reversed space in color 2, anda reversed shift- ed space in color 3. These characters make up layer 2 graphics.
The @ character is redefined to print solid spaces and can be printed in any of the 16 available colors by in- cluding color codes within a print Statement as usual, such as PRINT“[WHT]@”. This character
er, and the TAB and SPC commands ] This toggles the entire screen on and do not work (use cursor right controls
instead). Also, the screen cannot scroll. Although you can print from anywhere within a program, in direct mode your typing will only be visible in a small strip near the top of the screen.
To design Simulvideo graphics, use a multicolor paint program and draw in three colors in the upper left area of the screen (48 pixels across by 168 pixels down). Save this screen to disk; then load and run the bitmap importer utility and answer the prompts as requested. It will create a separate graphics file on disk which can be loaded with Simulvideo’s graphics load command (SYS 51589, “filename”, loc 0-7) and used in your programs. Note that converted graph- ics will be twice as wide as the original ones,
Although you don’t have to wor- ry about memory locations with Si- mulvideo, programmers should note that all of Bank 1 (16384-32767) is used by the VIC-II chip. The ML rou- tine is stored at locations 49152- 52088, and the bitmaps loaded from disk are stored under Basic and Ker- nal ROM.
By today’s video standards, how you display something is almost as important as what you display. With Simulvideo, this is no longer a problem.
makes up layer | graphics. : SIMULVIDEO.OBJ The bitmap always appears in
front of layer 1 graphics (the extended | C@00:78 A9 7F 8D OD DC AY G1 21 background color mode made up of apa 780 a pe Be 28 op i pe F? reversed spaces). Layer 2 graphics (@ i BS ; : CG18:14 83 A9 CB 8D 15 83 58 C4 characters) are special. Dependingon | cg26:6 a9 31 8D 19 DO A5 G2 BE the bitmap priority, the bitmap can C628:18 69 65 A2 16 9D FF CF Al either appear in front of or behind CO36:CA CA DO F9 AE EA C9 BD FS these characters. To see this in prac | Co4g:42 c@ AE EA C9 BD F3 C9 BE tice, the red flag in the demo is printed | cg4g:ap 18 DG EE EA C9 A5 62 6B with reversed spaces, and the blue flag | cg5g:18 69 15 C9 D3 BG OB BD 7C with @ characters. C@58:12 DG 85 G2 68 AB 68 AA 49 CG60:68 46 A9 3E 8D 12 DG 85 1B CG68:62 A9 GG 8D EA C9 AS FB F3 SYS 50980 C07G:FG EA 4C 31 EA A9 G6 85 45 This turns off overlay mode. CG78:FB A9 58 8D GG DG 8D BB AC CG8G:D6 A9 88 8D G2 DB BD BA 37 SYS 50986 CG88:D6 A9 B8 8D 84 DB 8D GC 57 This command disables Simulvideo. CBB GED O A 2 ES 280 106. DAReD RIE TL : i CG98:D8 AS FF 8D 16 DG 26 71 3B Always use this command to exit.Do | cgag:cB EA BA A9 FF 8D 15 DG EB not use Run/Stop-Restore. CGA8:AD 11 DG 16 FB EE 8G DG CC COBO:EE 62 DO EE G4 DO EE 06 7A Video Considerations eee ee Sees Oe ce raaeace Ie The PRINT command works slight! Sea SH (Bot fe BE O5) BO 1 command works slightly | cgc8:z¢ 76 Dd 68 AD 10 DB 29 E9 differently with Simulvideo. It’s slow- | CODG:F7 8D 16 D@ EG AG DG GB F3 AUGUST 1991 COMPUTE G27
an 3 re fo] Qa ° = = 9 0 qu = = Ly N q 6)
COD8:AD 19 CGEG:EG DG CGE8:FD 8D COFG:AD 16 COF8:AE 68 C16G:19 DO C108:CF DO C110:8D 16 C118:16 DO C126:6F DO C128:8D 16 C13G:FG 68 C138:A8 CO C146:60 85 C148:8D 08 C156:8D BA C158:8D GC C160G:8D GE C168:298 71 C176:15 DO C178:66 DG C186:CE 06 C188:D@ EE C199:68 DB C198:D8 89 C1AG:DG 68 C1A8:106 DG C1B6:D8 69 C1B8:D8 68 C1c6:10 Dd C1C8:68 AD C1D8:D8 EG C1D8:69 46 C1E6:88 AD C1lE8:D9 EG C1F6:69 18 C1F8:C9 58 C266:FD 4C C208:68 Ad C216:10 FB C218:EE 64 C226:D0 EE C228:0E Dd C236:C9 68 C238:62 DO C24G6:CE 68 C248:D@8 CE C256:60 DB C258:DC C9 C26G:FB 60 C268:60 AD C270:A9 66 C278:A9 FF C286:8D 1D C288:D9 26 C296:F1 B7 C298:8A A2 C2AG:FA AQ C2A8:CA CA C2BG:A9 86 C2B8:G1 A2 C2c@:5A Ad C2C8:58 Ad C2D6:A9 37 C2D8:DC A9 C2EG:FE AG C2E8:FD DG C2FG:68 DG C2F8:EC AD C30G:A9 3F C368:68 DD | C318:G6E 8D C318:C9 Ad FS 4E
12 8D Ag 18 1E cg 8D
29 68 DG 29 EG EF AD EG BF AD AD G2 ol AQ AQ AQ Ag AQ EA il G2 EE Da Ee 8D 16 oF 8D 16 o8 Da Dg 16 Dg De 16 08 cl 85 6 EE DG 62 DE G4 CE Dg 50 Dg 66 Dg 15 16 EA B7 26 9D A2 F9 GE Ag 85 85 G1 85 Ag E6 A6 Dg 62 4g De 8D Ag F7
FB AD EG FE FF 8D 16 oF 8D 16 9G CA 85 58 88 B8 E8 Go EA DG DG 68 EE Dg 16 Dg DG 16 Do DO 69 68 DG 89 68 DG A2 Ag FB Dg 66 EE c2 CE DG GA 26 Do BS 88 c9 De De A2 8E De 26 16 ag pc FF 5B 59 Ag FD 26 FE FD cg DD 8D Ag F4 3E cg
G@28 COMPUTE
8D 19 Cy) 8D Da 16 Dg DG 16 DG DG DG FB 8D 8D 8D 8D 8D Ag 16 CE py] GE g8 DG 69 68 De 69 EG 86 AD EG 26 AD AD G2 gl AD EE De gc AD ao CE DG 62 DE Ag EA FA 8D 8D FF 25 26 Dg 9D Ol Ag AQ AQ 26 61 Ag 91 A6 EO FA Ag 88 GE c9 8D Ag
PROGRAMS
19 DG C34G:C9 AD G3 DG 29 1A | C348:8D ED C9 DG 68 8C | C350:A9 G3 8D 10 DG 19 | C358:FG C9 AD @8 AD FC | C360:03 8D F2 DG EG 13 | C368:F8 43 E8 29 DF 79 | C370:FA 43 E8 G8 AD 84 | C378:F8 47 E8 DG EG 28 | C38G:FA 47 EB 29 7F Gl | C388:F8 4B E8 C9 58 9A | C39G:FA 4B E8 FD 4C 84 | C398:F8 4F E8 66 AO OC | C3AG:FA 4F E8 06 DG G9 | C3A8:F8 53 EB 62 DG 98 | C3BG:FA 53 EB G4 DG A6 | C3B8:F8 57 E8 G6 DG B4 | C3CG:FA 57 E8 16 DG GA 5B E8 FF 8D @C 5B E8 FB CE 67 SF E8 G4 DB C4 5F E8 EE OA 61 C8 8c DO AE BE | C3FG:43 C8 8C AD 16 76 | C3F8:47 C8 8C EG CF 15 cB 8c 62 8D 81 c8 8c AD 16 96 cs 8c E@ 6F 2D c8 8c 08 8D AS c8 8c 6F DB 96 c8 8c 8D 10 40 c8 8c 16 D@ DD c8 8c CF DG 1E c8 8c 8D 16 D6 cs 8c 16 DG G2 cs 8c 96 DO BD c8 8c CA DG 99 c8 8c 85 FB 5A ce 26 11 DO GA AS 60 @2 DG 91 AQ GG EE 08 78 28 EC DO EE 56 @@ 85 06 DO BG 66 85 DO CE A3 EC A3 66 DO AB @3 4C CE @6C 73 co A2 C2 AD 76 FD AQ AD G1 A6 8D FC @1 85 AS 26 1B D@ FC FE 91 FD DO F9 AE c8 co 17 D@ 89 E8 E@ 1B D@ 49 EE FB 8E 1C 2B c9 AD DG 26 63 AQ A4 Fl B7 D3 6G AD CA DG Cl FE AD FF CF 45 66 8D 85 FB 58 66 91 33 85 17 FD C8 G8 85 9E FO EE 0G 85 38 CE EE EC A3 FS FB C9 8D GE 34 c9 BD 46 85 2c c9 A2 FD E6 D2 FD A9 FE E@ Cl 8D FC G6 DG E7 26 1B D@ F9 85 91 FD 96 8D 4E c8 co @2 A9 7C E8 EG 8D F3 A6 |C578:C9 EE FB AQ 2E DB | C58@:FB C9 AD F6 C9 9F |C588:B9 AS C4 5E 8D 88 Ag
AUGUST
1m9N9 oT
8D AQ EF 9 co 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E
C9 A9 G3 35 | CSA8:A9 8D EE C9 GC | C5B9:91 AQ G3 8D A6 | C5B8:D6 Fl C9 A9 G2 | C5CH:DB @8 CO 8E 3A | C5C8:EE 43 E8 8E 86 | C5DG:C9 43 E8 8E 99 | C5D8:85 47 £8 8E Al | C5EG:Bl 47 E8 8E BA | C5E8:D@ 4B E8 8E C2 | C5FG:DG 4B E8 8E DB | C5F8:A9 4F E8 8E E3 | C6GG:AG 4F E8 8E FC | C608:E6 53 E8 8E G5 | C619:C9 53 E8 8E 1E | C618:D9d 57 E8 8E 26 | C620:A5 57 E8 8E 3F | C628:FE 5B E8 8E 47 | C63G:EE 5B E8 8E 60 | C638:75 5F E8 8E 68 | C640:A2 SF 8C FC 37 | C648:F1 C8 8C FE @B | C650:FC C8 8C FC 31 | C658:63 C8 8C FE 3D | C660:60 C8 8C FC 64 | C668:AE C8 8C FE 76 | C676:8D C8 8C FC 96 | C678:A9 C8 8C FE A2 | C686:4C C8 8C FC C8 | C688:06 C8 8C FE D4 | C696:Cc2 C8 8C FC FA | C698:C2 C8 8C FE 87 | C6AG:C2 C8 8C FC 2D | C6A8:8D C8 8C FE 39 | C6BG:FO C8 8C FC 5F | C6B8:C3 C8 8C FE 6B | C6C6:32 68 A2 A@ BF | C6C8:8D A2 @8 A® 46 | C6DG:8D A9 67 85 8A | C6D8:8D AQ 6F 85 40 | C6EG:8D @8 AG FF GD | C6E8:FB 67 85 5B 8E | C6FG:D0 77 85 59 B4 | C6F8:F9 B7 E® G8 14 | C766:D8 AQ AG 8D FD | C708:20 08 AI G3 52 | C710:B7 FE AD FB 35 | C718:9D @6 8D FD 2D | C726:8D @@ 91 FD 75 | C728:D0 FD C8 C8 46 | C736:F9 PO EE FB FO | C738:15 CE EE FB 79 | C746:DD FB C9 EE ll | C748:8D C9 B9 98 Dl | C750:A9 C9 A2 6G 7B | C758:6D FD AQ 46 BF | C766:CA 8D FC C9 CB | C768:63 20 1B C6 C5 | C776:8D 91 FD C8 D3 | C778:A9 C8 CO 42 BE | C786:40 E8 EG 64 AS | C788:FF EE FB C9 39 | C796:8D C9 AD FB B8 | C798:A9 A9 CG 8D 5F | C7AG:@2 @@ AO G6 EB | C7A8:69 FE AD FB CE | C7B@:48 @@ 8D FD C6 | C7B8:A5 G6 91 FD GF | C7CG:G1 FD C8 C8 DF | C7C8:D6 F@ EE FB EA | C7D@:93 CE EE FB 13 | C7D8:8D FB C9 EE AA | C7E@:A5 C9 D9 96 AB | C7E8:07 C9 A2 66 19 | C7FG:07 FD AS 4G 89
ut) FD FO CE FB c9 FD FD @2 EE 6G 66 FD 78 E8 FD 6D 68 co 86 B7 ce c2 8D cé6 63 66 AE 8D Ag 4c ag 31 BA 4c Do 08 OA gc GE AD 66 AD 66 Fl 8E FF 11 60 78 8D Ag 14 EG Dc 8D ag 63 FE 8D AQ 27 c8 @3 c2 98 D2 CA 8D FO G4 D3 CA 8A EE
91 c8 EE EE cg DD Ag 29 E6 AS 85 Bl Do De 60 6D FD AA 26 AG 86 ao ) 31 ce c2 8D C6 63 68 AE 58 c2 A2 3F F9 De bo De De 1B AD ll 20 B7 24 77 Dg AD Ag 18 64 63 8D ag 26 83 83 8D 88 AB G3 8D AQ EA 48 8D AS 63 73 CA 8D AS 48 6G
FD c8 FB FB EE 968 68 33 FE FD FD FD 2 EE 8A FC co 66 66 80 FC DG 58 c2 61 Ag 31 co C2 8D Ccé 8D 26 AG cl Ag Ag AQ Ag 60 DG 12 DG Fl 8E De CA 66 12 UI) DG 8D AQ 1A 1B 63 8D Ag 19 62 8D i) 19 c8 68 AS oo DS CA 26 AS 66 D6 EE CA
cs cs cg cg FB B9 85 91 AS co Ag 29 E6 A5 48 cg 85 26 c4 20 20 LB 8D 26 DG 58 c2 62 AQ 31 Ag 53 99 AG AD 58 88 BB E8 AD 49 Da 49 B7 23 i) DG AQ De 8D Ag 88 EA Da 8D Ag 02 47 63 ag 26 9E G3 8D 8D DL CA 8D AD CA D2 CA 8D ao EE
91 cs E8 EE cg 60 FE FD FE Ur) 76 cc FE FD A2 85 FE 66 4c 67 Fl Ag 53 99 15 8D 26 Da 50 c2 15 c2 c2 ce 12 8D 8D 8D 8D 11 FF cg 16 8E Do BE FA 1B cg 15 97 G2 8D AQ 11 Fl @3 8D 58 93 03 8D AQ G3 FE 8D A5 G2 FE Fl 8D AS 08 CA Go
FD co EG FB AD Ag AG E6 co py) 85 Le AS co 46 FD CA c4 3F c3 B7 09 c2 C2 Ag 53 09 U5! 8D 26 8D a9 EG 20 DG Ut) 02 04 06 DG 8D 26 8D 22 26 A2 Ag 8D 26 De 8D Ag 15 81 Da 8D Ag 18 60 26 AQ 18 AE 63 cg FF D3 CA cg AS 05 DS CA EE CA
ce 3c O4 cg FB Cl) Cr) FD 76 E8 FE FD FE oo 18 AS D6 4C cl 26 a4 8D AQ 4c 25 C2 c2 Ag 53 09 63 68 Cr) 67 cg be De DB Da 16 1B DG 1L ba Fl 08 5B 1l Da ag Ct) 31 03 8D AQ 27 A4 63 AQ D2 c7 @3 8D 4c BA co 8D AS cg Dl CA 8D A2 Cr) AD
6c 51 3E DL 51 1B cB 6D 57 GE G3 91 40 62 62 83 7B 1B B2 Al 3A 88 EB CA 7A F2 23 EB 12 AD FC 3E B8 47 60 3F 23 31 3F 3c De AG D4 40 92 4B 33 co Dg 1c 8c 53 59 G2 88 65 41 26 c3 73 29 GA 1c JE 02 7c A3 45 FA 12 85 78 95 A7 DY.
PROGRAMS
A 85 D5 AD 83 CA 85 D6 23 | CA78:E@ G4 DG E3 68 AI 6G A2 E4 $=0:X=X-64 D FE C9 20 CA Fl 68 AA 15 | CA8G:0@ 9D F8 43 9D F8 47 9D CD | pH 266 IFX<63488THEN15O ‘A DG CE AD @4 CA 85 D1 28 |CAgS8:F8 4B 9D F8 4F 9D F8 53 E6 | pH 216 FORT=60160T061439:POKET D G5 CA 85 D2 AD G6 CA A7 |CA9G:9D F8 57 9D F8 5B 9D FB 61 ).tNEXT : 5 D3 AD @7 CA 85 D5 AD 65 | CA98:5F E8 EG G4 DB E3 66 A2 ED | yx 229 FORT=57344T058623: POKET 8 CA 85 D6 68 AB 68 AA FF | CAAG:AG AG CG 26 67 C3 68 AI 7D pe ENEXT 9 GG 28 4C CA Fl AQ 40 22 | CAA8:GG 8D 20 DG 8D 21 DG 28 65 | pp 23g FORT=201*64+3T0201*64+3 C848:8D GA CA A9 43 8D G9 CA 44 | CABG:F2 C6 AQ 1C 8D 5C CB AD 81 4+6QSTEP6:POKET, . : POKET+ C85G:A2 43 A9 GG 85 FD AD GA C2 | CABB:68 8D 96 C8 2G 46 CB AI 96 1, .:POKET+2,.:NEXT C858:CA 85 FE A9 20 AD GG 91 40 | cAcd:20 8D 5C C8 AI AD BD 96 87 | wy o4g sg=1:CcC=G:X=47104+64 FD D@ 62 E6 FE A4 C5 | cac8:C8 AY FE 8D EG 78 AY FD 26 | oy 35g 5=291*64:5=201*64463:N= @9 CA DG EF A4 FD G8 | CADG@:8D El 78 A9 FB 8D E2 78 A3 se GORUBTZG D@ E9 BE GA CA EE 79 | CAD8:A9 F7 8D E3 78 A9 EF 8D 9 | o¢ o¢q xax4128:CC=CCH1 EE 0A CA EE GA CA 31 | CAEG@:E4 78 AJ DF 8D E5 78 AI DB | pe 52g Tecc=2ANDSS=OTHENCC=0:S E8 E8 8E 69 CA EG 7B | CAE8:BF 8D E6 78 A9 7F 8D E7 74 pete cry) C7 A2 1A B5 D8 G9 85 | CAFG:78 A9 GG 85 FD AQ DB 85 53 fis u =O: G 95 DB CA DU F7 A9 93 DC |CAFB:FE AG Od AD OG 91 FD £6 F9 |CR 280 IECCA2ANDSS=1THENCC=0:8 GCA Fl 4c 3C C8 48 AS 2B | CBGG:FD DG G2 EG FE AG FE BG EA | y. 594 Tex c49152THEN250 B C9 3F DG G5 AQ G4 BD E3 |CBGB:DB DG F2 AG FD EG EB DB AG | AC 34g poRp=STOISTEP-1:PRINTTA 8 68 4C 47 FE A9 9E F8 |CB1G:EC 20 F2 C6 A9 BB 2G SC G7 B (10) MIDS (C$,T,1) MS" D 18 @3 A9 C8 8D 19 63 BB |cB18:CB A9 GC 26 SC CB AQ OF F7 (UP}":FORDL=17020:NEXT: A 4c 83 A4 20 Fl B7 E@ A6 | CB20:20 SC CB A9 G1 20 SC CB FF teat 2 My 6 GA 20 £1 C8 AY 66 AF | cB28:A9 G3 26 5C CB AY GE 20 6 5 FE 4C 2C C9 20 El C8 84 |cB30:5C CB A9 66 26 5C CB 68 EB |DS 310 REM SLATE/TEXT DEMO 9 68 85 FE 20 2C C9 20 57 |cB38:A9 GE 26 5C CB AS G3 28 1p | AH 326 S¥S51071,12,11,15 1 A9 76 85 FE 4C 2C B6 |cB40:5C CB A9 @1 26 SC CB A9 F1 | PE 338 SYS5G930:PRINT"{CLR} 9 A9 GG 85 9B 20 Fl B7 13 |cB48:GF 26 5C CB A9 BC 28 SC D1 {BLU}{6 DOWN} {11 RIGHT} 6 D@ @5 AY AG 85 YC CC | CB5G:CB A9-GB 28 5C CB AY BG Gl SIMULVIDEO 6 G1 DO G5 A9 AB 85 BD | CB58:20 5C CB 60 AE 12 DG EG D6 | KC 340 PRINT"{HOME}{14 DOWN} Ic E@ 62 DG G5 AD BG CB |CB6G:FF DO F9 8D 21 DG AG 4B 1D {13 RIGHT}COPYRIGHT 199 5 66 EG G3 DB G5 AI AG | CB68:A2 32 CA DG FD 88 DG FS FG ab 8 9C 60 EG 64 DB G5 BO |CB7G:66 AD 12 DG C9 3C DB F9 CD | DF 350 PRINT"{HOME}{16 DOWN} 9 85 9C 6 EG G5 DG 8C |CB78:60 66 BG BG OG GG GB GB 40 {6 RIGHT}COMPUTE PUBLIC 5 A9 E8 85 9C 60 EG G6 3C ATIONS INTL LTD" : C926:D6 @5 AI FB 85 9C 6G AD AA HQ 366 PRINT" {HOME}{18 DOWN C928:F8 85 9C 68 AI BG 8D 1A BS SIMULVIDEO.DEMO {11 RIGHT}ALL RIGHTS RE C930:D8 A9 35 85 Bl AI BOG 85 C9 SERVED" C938:FD 8D GB CA A6 9C ES E8 9E |GD 10 REM COPYRIGHT 1991 -— COM | 45 37g syss5g93g C940:E8 E8 E8 E8 E8 EB BE OC 42 PUTE PUBLICATIONS INTL L | pp 39g sys51388,0,6:SYS50740,1 C948:CA AG GG Bl 9B 91 FD E6 8A TD - ALL RIGHTS RESERVED 7S¥850752,2,1 C950:9B E6 FD DG 04 E6 9C E6 14 | QM 26 POKES3286,0:POKE53265,11 | py 39g sys51388,0,6:SYS50740,0 C958:FE AS 9B CD OB CA DO EB 36 :PRINT" {CLR} {9 DOWN}":PO + FORDL=1T0100:NEXT C96G:A5 9C CD GC CA DO E4 AQ 75 KE53281,0:FORDL=1T0206:N | sq 4gg sys50746,0:SYS51388,1,6 €968:37 85 G1 A9 Gl 8D 1A DO F6 EXT ,6:SYS51569:SYS51579 €970:60 A2 AG AG CO 20 67 C3 14 | FP 30 POKE53265,27:MS="ONE MOM | py 41g sys51388,0,6:SYS51725,0 ¢978:4C 75 CO A2 AG AG CO 26 FA ENT PLEASE. . ." 7SYS51750,1:S¥S51725,1: C980:67 C3 4C 3F Cl 20 FD AE 6F | EK 40 CS="{BLK}{4}{5}{8>{WHT}" SY¥S50746,0 C988:26 9E AD 26 82 B7 A6 22 ED tFORT=1T05:PRINTTAB(10)M C99G:A4 23 20 BD FF A9 Gl A2 6A ID$(CS$,T,1)MS"{UP}":FORD mm 38 Hee Aaa ee C998:08 AG GG 20 BA FF 26 Fl 62 L=1T020:NEXT:NEXT NT" {CLR}"; :S¥S50746 1 C9AG:B7 8A AB A2 BG BA CO GD 9D | EC 5g POKE47,G:S¥S57812"SIMUL | Go 44g FORDL=1T0100:NEXT:S¥S51 COA83DG G5 AGFABEAC DS) EF CO) 7B VIDEO.OBJ",8,1:SYS62631 879:SYS51388,0,6:SYS507 C9B0:01 D@ @5 AGB AB 4C DS FF C5 | cq 66 FORT=200*64T0201*64+63:R 46,0:SYS50740,0:SYS5074 C9B8:CO G2 DB G5 AG BG 4c DS CD EADX: POKET ,X:NEXT aa al , Cee e ee ee og CAADENGeU dar eel eral BH. 1duSS=02CCeUExao1aae HM 458 FORT=1T02:SYS51725,0:FO : QR 86 S=206*64:E=200%64+63:N=X RDL=1T0106: NEXT: SYS5175 C9DG:4C DS FF CO 65 DG G5 AG 22 *GOSDB720 : : C9D8:E8 4C DS FF CO G6 DG G5 73 |p, og y=x-2949:GOSUB720:N=X-40 Gy SRHORDuS TOL aa ENE AEN C9EG:AG FG 4C D5 FE AG F8 4C AB ea y hee EXT 96:GOSUB720:N=X-14336:GO : C9E8:D5 FF @6 GE 83 G3 G9 G3 81 SUB720 CD 468 SYS51388,0,6:SYS59740,0 C9FO:63 G9 G3 GE 1E 2E 3E 4E FD | 4, 19g y=x+128:cC=CC+l #S¥S56752,0,1 C9F8:5E 6E 7E E4 DF GG GD DG 5F t= ie 3 Bois ine 476 SYS50740,0:SYS50752,1,1 CAGG:5E 16 27 12 FB 42 96 27 4a |OC 110 TECCU2ANDASSOTHENCC=0:S | ow 48g s¥S50740,0:SYS50752,3,1 CAG8:13 63 60 60 F8 20 3F CA 9D OS _« | JK 490 S¥S50740,0:SYS50752,2,1 CA1G:E0 60 DG G9 2G 5B cA 2G E4 | GG 120 IECCH2ANDES=1THENCC=G:5 | kp Sqg S¥S51388,0,3:SYS50740,0 CA18:75 CG 4C 9F CA 20 7D CA BB el SO :SYS50746,0 CA26:26 75 CG 4C 9F CA 2G 3F a7 | PJ 13@ IPX<63488THENGO AM 510 SYS51388,1,5,4:SYS51569 CA28:CA EG 03 DG 69 2G 7D CA F6 | DC 14@ SS=1:CC=G:X-61440+64 :FORDL=17T0 260 :NEXT:SYS5 Ci 4c 9F ca 20 5B.66 |GE 158 Ss 2bigeA geek sco N= Hea 3E Cl 4C 9F CA A2 58 X:GOSUB 526 S¥S51388,1,4,5:SYS51569 Go 9D FF 57 Gn ng bp | EH 166 N=X-2048:GosuB720:n=x-4 | 22 Suse TS 8S rds fro 38 YS 2162 66 8D 9B C4 26 66 41 696 :GOSUB720:N=X-14336: 1879269552004 20 8D 9B C4 20 Fl Bl GOSUB726 JE 530 REM OVERLAY MODE DEMO 60 AO 6 A2 GB 9D B3 | RQ 170 X=X+128:CC=CC+1 EA 540 SYS50946,2,14,1:SY¥S5093 9D FC 47 9D FC 4B BE |HH 180 IFCC=2ANDSS=OTHENCC=0:S G: PRINT" {CLR}"; 4F 9D FC 53 9D FC 3D Saleen EH 559 FORT=1T03: PRINT" FC 5B 9D FC 5F E8 F6 | PJ 198 IFCC=2ANDSS=1THENCC=0:S z
AUGUST
Ty 94901
{17 RIGHT}
COMPUTE
G-29
PROGRAMS
eachers, get out your favorite rid- dle book and use it with this pro- gram to spice up your homework assignments or quizzes. Riddle prints a quiz that reveals the answer to your riddle when students correctly answer the assigned questions. Following your list of questions are two columns of possible answers, with a letter printed in front of each answer. When students cross off the letters corresponding to the correct answers, the remaining letters, reading from left to right and top to bottom, spell out the answer to your riddle.
Typing It In
Riddle is written entirely in BASIC. To avoid typing errors, use The Auto- matic Proofreader to enter the pro-
c K
RIDDLE
TEACHERS CAN SPICE
Hy AM Pee Ts Ola
UP QUIZZES WITH
THIS WORK SHEET
GENERATOR FOR THE 64
this section. When you have finished typing, be sure that you save a copy of the program before you exit the
gram; see “Typing Aids” elsewhere in | Automatic Proofreader. L foe | G30 COMPUTE AvuseG Unsste ho9 9
Ask Me a Riddle
When you run the program, you'll be presented with a menu with the fol- lowing choices.
1 GET FROM DISK
2 CREATE NEW RIDDLE 3 CORRECT
4 SAVE TO DISK
5 PRINT
6 PRINT ANSWERS
7 DISK DIRECTORY
8 CLEAR MEMORY
9 QUIT
Choice 1 enables you to retrieve any work sheet you have previously saved to disk. Just enter the filename and hit Return. If you select this op- tion or any option by mistake, just press the back-arrow key to return to
{9 SHIFT-SPACE}{RVS} HF 760 SYS51388,0,6:SYS56916:S | |MPORT ] {SHIFT-SPACE}{3 SPACES} ¥S50740,0:FORDL=1T0196: { SHIFT-SPACE} {OFF} NEXT:SYS50746,0 BE 1 REM COPYRIGHT 1991 -— COMP {9 SHIFT-SPACE}";:NEXT | FB 716 SYS54916:GOTO330 UTE PUBLICATIONS INTL LTD QG 56G PRINT"{17 RIGHT} {RVS} GM 726 L=E-S:EN=L+N ~ ALL RIGHTS RESERVED {16 SHIFT-SPACE} AJ 730 A$=L/256:A=L-256*A$:B%= | QJ 10 POKE53280,@:POKE53281,0: © {3 SPACES} (EN-A) /256:B=EN-256*B3-— PRINT" {CLR} {WHT} "TAB(7)" AN {10 SHIFT-SPACE}"; A:C%=(E-A) /256:C=E-256* SIMULVIDEO BITMAP GRABBE - GH 57@ FORT=1T03:PRINT" C$-A R{2 DOWN}" oa {17 RIGHT} {RVS} JK 74@ POKE781,A%+1:POKE782,A: | XG 26 DIMSC(11):PRINT"ENTER MU $ {23 SPACES}";:NEXT POKE9G,C: POKE91,C%:POKE LTICOLOR BITMAP": INPUT"F EF 580 PRINT"{17 RIGHT} {RVS} 88 ,B:POKE89,B%:SYS41964 ILENAME";M$:MS=MS+",P,R" Wi {1@ SHIFT-SPACE} KE 758 RETURN SR 36 PRINT" {DOWN}ENTER FILENA « {3 SPACES} FS 760 DATAL76,170,176,149,85, ME TO SAVE SIMULVIDEO":1 ° {10 SHIFT-SPACE}"; 87,149,85 NPUT"GRAPHICS UNDER";C$ a QC 590 FORT=1T03:PRINT" FP 770 DATAB7,154,90,87,154,21 | © 40 PRINT"{2 DOWN}LOADING... [o) {17 RIGHT} {OFF} 8,215,154 " s {9 SHIPT-SPACE}{RVS} KS 780 DATA218,215,154,218,215 | KP 5@ OPEN1,8,1,M$:POKE185,0:P {SHIFT-SPACE}{3 SPACES} 7 154,218,215 OKE780,0:POKE781,6: POKE7 = { SHIFT-SPACE} {OFF} ME 796 DATA154,170,215,154,170 82, 64:SYS65493:CLOSE1 8 (9 SHIFT-SPACE}";:NEXT 215,154,170 BM 66 PRINT" {DOWN}CONVERTING. . SJ 600 PRINT:PRINT: PRINT DE 8069 DATA215,154,176,215,154 + TAKES 2 MIN 26 SEC. PK 610 FORT=1T03:PRINT"{BLU}@@ 7 250,215,154 QB 70 S=24576:M=16384:A=21:B=2 Ww @@@GGGG{7}G{YEL}@@@{7}@ | MB 810 DATA218,215,154,218,215 tF=64:G=24 {BLU} @@@@@@@@@":NEXT ,154,218,215 BJ 620 PRINT"{7}@@@aaeecea JH 820 DATA154,218,215,151,215 | CS 88 ORT=GTO11:SC(T) =2:2 = (YEL} @@@{7}ee(@}aeeeeee 1215,149, 85 a" BJ 836 DATA87,149,85,87,191,25 AQ 96 NEXT: FORY=6T0167:FORX=0T fms FG 630 FORT=1T03: PRINT" {YEL}@@ 5,255,42 O47STEP4 ea@eeeeeeeeeceeeeeaaea”: | XQ 846 DATA17G,176,170,149,85, | *X 160 M8=S+ (INT (¥/A) *B) + (INT ( NEXT 87,154,176 X*C/D/E) *F) + (E* (INT (Y) - W HJ 646 PRINT"{7}@eee@eeeeeR BK 858 DATA87,154,170,215,154, (INT (Y/A)) *A)) +SC (INT (X {YEL}ee@e¢7}e@@e@eeeeee" 176,215,154 *C/D)) HP 650 FORT=1T02:PRINT"{BLU}@@ | FG 860 DATA17G,215,154,255,215 | HJ 116 POKEM%, PEEK (M+ (YANDG) *H N @@eaeeet7}@{YEL}@@ex7+e@ ,154,213,87 + (YANDI) + (C*XANDJ) ) :NEX {BLU} @@@@@@@@e@": NEXT KG 876 DATA154,169,087,154,171 Pe NEXT q SB 666 PRINT" {BLU} @@a@@eeeae{7> 787,154,171 SE 126 PRINT"{2 DOWN}SAVING... @{YEL}@@@¢7}@{BLU}@@e@e@@ | HO 886 DATA87,154,171,87,154,2 ?SYS57812CS,8,1:POKE19 @@@@{HOME}":SYS56930 55,87,154 3,02 POKE194,96 CO) BC 676 SYS51388,0,6 KD 896 DATA213,87,154,170,87,1 | 2© 130 POKE174,6:POKE175,104:s KM 686 SYS56916:SYS51725,0:SYS 54,176,215 ¥S62957 a 50746,0:SYS50916:SYS517 | RX 966 DATA154,176,215,154,176 25,1:SYS50746,0 7215,151,255 FX 696 SYS50916:SYS50740,@0:SyYS | JF 914 DATA215,149,85,87,191,2 1 §0752,2,1 55,255,42
the main menu.
Choice 2 enables you to create a new riddle work sheet. Your first task will be to enter a riddle. The only lim- itation on the question is that it con- tain 254 characters or less.
Next, enter the answer to your riddle in lowercase characters, leaving no spaces betweeen words. The an- swer must contain no more than 254 characters. You may want to keep your answer relatively short, as its length is related to the number of dis- tractor answers you'll have to provide. More about that later.
At this point you may enter any instructions you want printed on the sheet. Again you are restricted to 254 characters.
Now enter the number of ques- tions or problems you want to include and then the questions or problems themselves. Here you are restricted to 70 characters per question. If you are using Riddle as an answer sheet, you can enter page numbers and/or prob- lem numbers at this point. After each question or problem enter the correct answer. As with the questions, you are restricted to 70 characters.
Next, enter one distractor answer for every character in your riddle’s an- swer. Distractors are incorrect an- swers from among which the students must select the correct ones. Think of them as the wrong answers on a mul- tiple choice quiz. Just be sure that none of the distractor answers are the same as any of the correct answers. The computer will check for an exact string match, but it will not catch du- plicate answers like 2.5 and 2.50, 1/2 and 4/8, or alternate spellings of the same word. You are restricted to 70 characters here. This may sound con- fusing, but it will become clear after you prepare your first sheet.
If at any point in this process you want to go back and change some- thing or make corrections, just keep pressing the back arrow until you re- turn to the desired spot. Then reenter the correct information. When fin- ished, keep pressing Return until you get back to where you were. The input routine in this program has been changed to allow you to enter com- mas; however, you can’t insert or type over characters. You can only use the Delete key to erase characters.
Choice 3 enables you to correct any mistakes you discover after you
PROGRAMS
return to the main menu. This option | RIDDLE takes you back through the create- new-riddle sequence, displaying what | BE 1 REM COPYRIGHT 1991 - COMP you have previously entered. Just UTE PUBLICATIONS INTL LTD keep pressing Return until you reach 7 ALL, RIGHTS RESERVED the place where you want to change {SRIDLO! DAMASIO 8 IE. GR A902 (220, C - z 2 (99) ,N(99) ,0(99) ,D$(99), any information. Then keep pressing DS (99) ,Q$ (99) Return until you get back to the main | MM 28 GOSUB 19406:GOSUB2569 rane tae tetesmetne ise coneeee hoice 4 to save CLR}"CHR 73 sl ee le pri: ne enter the TZ 2BG ERINECHRY:(B) : cs 40 GosUB1960 filename. F HB 58 GETPS:IFPS$=""THEN5G@ Choice 5 prints your work sheet. | ag 66 H=VAL(P$):IF H<l OR H>9 It will ask you to press Return when {SPACE}THEN 50 the printer is ready. Then enter the QM 7G ON H GOTO 1426,116,116,1 number of copies you want and press 238 17108, 2166,2170,1546,1 Return again. The printing routineis | 9p gg coro2a not printer specific. It formats the SB 90 GOTO2130 page by assuming 80 characters per JB 108 IF PS$="Y"THEN3G line and 66 lines per page. If you KC 119 SOBUB TS GASREROE "THEN ae 4 IT aa PRINT" {RVS}"RQS"{OFF}" are the same width as normal XH 126 PRINT"ENTER characters. { SHIFT-SPACE} RIDDLE Choice 6 prints a duplicate of the pe }QUESTION": problem sheet, but with the correct COsUB Tee nt es answers on it. In front ofeach correct | SX 138 ee BADE ae eae answer, the program will print the cor- | 93 149 IF PS="<"THEN3G responding question number and a SD 156 IF RQS=""THEN110 letter which is part of the riddle an- EG 166 GOSUB1560:PRINT"CURRENT swer. Distractor answers will have {SHIFT-SPACE} QUESTION": only a letter in front of them. eee {RVS}"ROS"{OFF}": You may want to have the stu- MD 176 IF RAS<>""THENPRINT"CUR dents write the problem number RENT { SHIFT-SPACE } ANSWER before every answer they cross out to ": PRINT" {RVS}"RAS" {OFF} be sure they actually worked the prob- * = lems. Their answers could differ from | 82 188 Tee oe Syne those on this answer sheet if more (SHIFT-SPACE }ANSWER" :GO than one problem had the same cor- SUB165¢ ne a rect answer. PQ 196 IF IPS<>"" AND PS<>"<" Choice 7 is disk directory. It gives fae yen RAS=IP$:LR= § ea) ae TERE Cue GA 260 IF PS="<" THEN 114 : : JB 216 IF RAS="" THEN 169 Choice 8 clears the computer's HR 220 FORI=1TOLR: IFASC (MID$ (R memory. If you create a new riddle AS$,I,1))=32THENPRINT"NO without first clearing the memory of {SHIFT-SPACE}SPACES" the old information, the previous rid- | SP 238 IFASC (MIDS (RA§,I,1))=32 dle will still be there. There are times THENERINE: GOmOTE 2 ; KF 248 A=ASC(MIDS(RAS$,I,1)) you might want to do this. 4 CA 250 IFA>9G OR A<64 THENPRIN Choice 9 lets you quit. Use this T" LOWERCASE option to exit the program. {SHIFT-SPACE } LETTERS You don’t have to remember all {SHIFT-SPACE }ONLY": PRIN the restrictions on entering your data; T:GOTO186 Riddle is a fairly user-friendly pro- OGiy2 ok NEALE eae SE 270 GOSUB1560:IF1$<>""THENP gram, and the computer will inform RINT "CURRENT you if you make a mistake. The one { SHIFT—SPACE} INSTRUCTIO restriction you will have to remember, NS":PRINT"{RVS} "IS" though, is to make sure thatnoneof |. 594 CORE 0, aa PRIND your distractors are equivalent to a {SHIFT-SPACE } INSTRUCTIO right answer. The computer will only NS":GosuBl6é5@. check for identical answers. An identi- | rr 299 IFIPS<>"" AND PS<>"<" 7 cal distractor could slip through. HEN IS=IPS AUGUST 1991 COMPUTE G31
o SS 3 my c ° Qa ° = = 9 a) pa [= fx ul N <q 6
QB
Js
PROGRAMS
300 THEN 166 GG 616 IF LEN(D$(I))>70 THEN P 316 " THEN 276 RINT"NO{SHIFT-SPACE}MOR 326 LR = LEN(RAS) E{SHIFT-SPACE}THAN 330 GOSUB156@:PRINTLR;" DIS TSHIFT-SPACE}76 TRACTORS": PRINT ee { SHIF T-SPACE } CHARACTERS 346 IF N<>O THEN PRINT"CURR ":PRINT:GOTOS ENT{SHIFT-SPACE}NUMBER | PC 620 IF PS="<" THEN I=I-l:IF {SHIFT-SPACE }OF is I>@ THEN GOTO570 {SHIFT-SPACE}PROBLEMS": | BH 630 IFI<=@ THEN I=N:GOTO406 PRINT"{RVS}"N"{OFF}":PR | QQ 640 IF DS$(I)=""THEN576 INT XJ 650 FORJ=1TON:A=VAL(AS(J)): 350 PRINT"ENTER “IFD$(I)=A$(J) THEN670 { SHIFT-SPACE }NUMBER BE 666 NEXTJ:GOTO680 { SHIFT-SPACE } OF CM 676 PRINT"DUPLICATES AN {SHIPT-SPACE}PROBLEMS " {SHIFT-SPACE} ANSWER": PR :GOSUBL650 INT:GOTO590 360 IF IPS<>""ANDPS<>"<"THE | ER 686 I=I+1:IFI<=LEN(RAS) THE NN=VAL (IPS) N 570 370 IF PS="<"THEN 276 HX 698 GOTO36 380 IF N = @ THEN 330 CS 768 GOSUB1586:INPUT"HIT 399 I=1 { SHIFT-SPACE} RETURN 400 GOSUB1566:PRINTN;" QUES { SHIFT-S PACE } WHEN TIONS": PRINT { SHIFT-SPACE} PRINTER 410 TE QS(1)<>""THENPRINT"C {SHIFT-SPACE}IS URRENT{ SHIFT-SPACE} QUES {SHIFT-SPACE} READY"; ZR$ TION"T: PRINT" {RVS}"QS(I | CK 705 IFZRS="<"ORRAS=""THEN3G )"{OFF}":PRINT PE 716 GOSUB 1580 420 PRINT"ENTER JE 720 INPUT"NUMBER {SHIFT=SPACE}QUESTION " { SHIFT-SPACE}OF 7 1:GOSUB1650 {SHIFT-SPACE }COPIES";NS 436 IFIPS<>""ANDPS<>"<"THEN :NC=VAL (NS) :IFNS="" OR QS (I) =IPS {SPACE}NS$="<" THEN 30 440 IF LEN(QS(1))>76 THENPR | RB 738 OPEN1,4,7:FORPG=1TONC INT"NO{SHIFT-SPACE}MORE | PQ 748 FORRS=139T0143:POKERS,A {SHIFT-SPACE}THAN 7 SC (RAS) :NEXTRS:GOSUB139 { SHIF T-SPACE } CHARACTERS 8 " ~~ «| EP 758 X=0:FORI=1TON: IFX<LEN (Q 454 IF LEN(Q$(I))>76 THENPR $ (1) ) THENX=LEN (QS (I) ) INT:GOTO426 RG 760 NEXTI 460 IF PS="<"THEN IF I=1 TH | RC 778 IT=X+9:CN=INT (8G/IT) :QC EN 330 =CN 470 IF PS="<"THEN IF I>1 TH | KJ 780 LQ=0:2S=1:2E=76:LL=LEN ( EN I=I-1:GOT0400 RQ$) : IFZE>=LLTHENZE=LL: 480 IF A$(I)<>""THENPRINT"C GOTO820 URRENT{SHIFT-SPACE}RIGH | XK 790 IFMID$(RQ$,ZE,1)<>" "AN T{SHIET-SPACE } ANSWER™:P DZE<>1THENZE=ZE-1:GOTO7 RINT" {RVS} "AS (I) "{OFF}" 96 499 PRINT:PRINT"ENTER PX 800 PRINT#1,MIDS(RQ$,2S,ZE- { SHIFT-SPACE} RIGHT 2S+1) :ZS=ZE+1:ZE=ZE+76: { SHIFT-SPACE } ANSWER": GO LQ=LQ+1 SUB1659 DJ 805 IFZE>=LLTHENZE=LL:GOTO 500 IFIPS<>""ANDPS<>"<"THEN {SPACE}820 AS (I)=IP$ EM 819 GOTO790 510 IF PS="<" THEN 406 GR 820 N5=12+LQ+LI 526 IF AS(I)=""THEN486 SD 830 PRINT#1,RIGHTS (ROS, LL-Z 536 IF LEN(AS(I))>76 THEN P S+1) :PRINT#1:LQ=LQ+1 RINT: PRINT"NO KC 849 ZS=1:ZE=76:L1=0:LL=LEN ( {SHIFT-SPACE} MORE I$) : IFZE>=LLTHENZE=11:G {SHIFT-SPACE}THAN 78 CH oTossa ARACTERS" EX 850 IFMIDS(I$,2E,1)<>" “AND 54@ IF LEN(A$(I))>70 THEN P ZE<>1THENZE=ZE-1:GOTO85 RINT :GOT0420 8 550 I=I+1:IF I<=N THEN 400 | MJ 860 PRINT#1,MIDS(I$,2S,2ZE-2Z 566 I=1 S+1) :ZS=ZE+1:ZE=ZE+76 570 GOSUB1560:PRINTLEN(RA$) | DH 865 IFZE>=LLTHENZE=LL:LI=LI ;" DISTRACTORS": PRINT +1:GOTO880 580 IFD$(1)<>""THENPRINT"CU | BX 876 GOTO85G RRENT{SHIFT-SPACE}DISTR | AR 880 PRINT#1,RIGHTS(I$,LL-ZS ACTOR"; 1I:PRINT"{RVS} "DS +1) :LI=LI+1 (1) "{OFF}": PRINT CF 896 T=CN:PRINT#1:PRINT#1:FO 590 PRINT"ENTER DISTRACTOR" RI=1TON 7 1:GOSUB1650 PB 900 PRINT#1,STRS(I);". ";Q$ 600 IFIPS<>""ANDPS<>"<"THEN (1) ;SPC (IT-LEN (Q$(I))-L DS (I) =IPS EN(STRS$(I))-2); G32 COMPUTE AUGUST 1991
GF 910 T=T-1:IFT<=GTHENT=CN: PR
GS QE Jc cP RC JD sc KH SK PQ QB GG
fons RJ PK HM BC
KS
HR cq
SE
KH
BS
926 936 946 956 960 976 986 996 1666 16198 1626
10638
1640
1658
1666
1076
10686
1696
1695 1166
1116
1126
1138
1146
1156
1166
1176 1186
1196
1266 1216 1215
1226
INT #1: PRINT#1:N5=N5+2:G 0SUB2136 NEXTI: PRINT#1 FORI=1TON J=INT (1+N*RND(1)) : IFC (J ) =1THEN940 C(J)=1:0 (1) =J:NEXTI:FOR I=1TON:C (I) =@:NEXTI X=6:FORI=1T0N: [FX<LEN (A $ (I) ) THENX=LEN (AS (I) ) NEXTI ND=LEN (RAS) :FORI=1TOND FORI=1TOND: IFX<LEN (D$ (I )) THENX=LEN (D$(I) ) :NEXTI: IT=X+6:CN=INT (8 @/IT) :FORI=1TOND J=INT (1+ND*RND (1) ) : IFC (J) =1THEN1016 DS (I) =d:C (J) =L:NEXTI:F ORI=1TOND:C (I) =G:NEXTI FORI=1TOLEN (RAS) : IFX<L EN (D$ (I) ) THENX=LEN (DS ( I)) :NEXTI IFPAS="A"THENPRINT#1:P RINT#1,RAS:PRINT#1:I=1 :J=1:T=CN IFPAS<>"A"THENPRINT#1: PRINT#1:PRINT#1:I=1:J= 1:T=CN FQ=LEN (RAS) / (N+LEN (RAS )) K=RND (1) IFK>FQ THENM=INT (1+26* RND (1) ) LO=LEN (STR$(O(I)))-3:R O=LO+2:2=0 (I) :Z$=RIGHT $(STR$(Z) ,RO) IFPAS<>"A"THEN1130 IFK>FQ ANDI<=N AND PAS ="A" THENPRINT#1,2$;CH RG (644M) ;"="FAS (2); IFK>FQ ANDI<=N THENPRI NT#1,SPC (IT- (LEN (CHRS ( 64+M) )+3+LEN (AS (0(I))) )-LO); IFK>FQ ANDI<=N AND PAS ="A" THEN GOTO 1150 IFK>FQ ANDI<=N THENPRI NT#1,CHRS (644M) ;" = "7 AS$(O(I)); IFK>FQ ANDI<=N THENPRI NT#1,SPC (IT-(LEN (CHRS ( 64+M) ) +3+LEN (A$ (0(I))) Ye IFK>FQ ANDI<=N THENI=I +1:T=T-1 IFT<=OTHENT=CN: PRINT #1 : PRINT #1:N5=N5+2:GOSUB 2136 IF K>FQ THEN1226 IFJ<=LEN (RAS) THENPRINT #1,MIDS(RA$,J,1);" = " 7DS$(DS(J)); IFJ<=LEN (RA$) THENPRINT #1,SPC(IT-4-LEN (D$ (DS ( J))))F c=G IFJ>LEN (RAS) THEN1L226 J=J+1:T=T-1:1FT<=6 THE NT=CN: PRINT#1:PRINT#1: N5=N5+2:GOSUB9G IFI>N AND J>LEN(RA$)TH EN GOSUB1668
RF
HB XK
JG JG
DH DE
FB
EQ
RC
FQ
FE
FE
AS BQ
RJ GX
AG
gP BS
1236
1246 1256
1266 1276
1286 1296
1366
1316
1326
1338 1346
1356
1366 1376
1386 1396
1406
1416 1426 1436 1446 1456 14698 1476 1486 1496
1586 1519
1520 1536
1546 1556
PROGRAMS
IFI>N AND J>LEN (RAS) TH EN NEXTPG:CLOSE1:GOTO3 6
GOTO1678 GOSUB1580:NS="": INPUT" FILENAME";NS: LENS="<" {SPACE}OR NS="" OR RAS ="" THEN 30 NS=NS+",S,W":OPEN5,8,5 ,NS$:ND=LEN (RAS) OPEN15,8,15:INPUT#15,E 7E$,C,D
IF E<>63 THEN GOTO1316 PRINTES;",OK TO OVERWR ITE (¥/N)";:INPUTYNS IF LEFTS(YNS$,1)<>"¥" T HEN CLOSE5:CLOSE15:GOT 038
CLOSE5: PRINT#15,"S@6:"+ N$:CLOSE15:0PEN5,8,5,N
$
PRINT#5,RQS: PRINT#5,RA $:PRINT#5,N:FORI=1TON: PRINT#5,QS (I) :NEXTI FORI=1TON: PRINT#5,AS (I ) :NEXTI
FORI=1TOND: PRINT#5,DS ( I) :NEXTI: PRINT#5,1I$:PR INTCHR$ (147); N+1:J=LEN (RAS
IFC=4 THENCLOSE1: PRINT CHRS (147) ;:END GOTO1670 PRINT#1,"CROSS OUT THE LETTERS THAT GO WITH {SPACE}THE RIGHT ANSWE RS." PRINT#1,"THE LETTERS L EFT WILL SPELL THE ANS WER TO THE FOLLOWING." PRINT#1:PRINT#1: RETURN GOSUB1580:NS$="": INPUT" EILENAME";N$: IFNS="<"0 RNS=""THEN3G NS="G:"4NS+",S,R":OPEN 5,8,5,NS OPEN15,8,15:INPUT#15,E 7ES,C,D IF E<>62 THEN GOTO147@ PRINTES;",HIT <RETURN> ">: INPUTYNS:CLOSE5:CLO SE15:GOTO36 CLOSE5:CLOSE15:0PEN5,8 15,NS GOSUB2109:RQS=ZZ$:GOSU B2196:RAS=ZZ$:GOSUB219 9:N=VAL (ZZ$) :FORI=1TON GOSUB2149 Q$(I)=ZZ$:NEXTI FORI=1TON: GOSUB2100:A$ (I) =Z2Z$:NEXTI:FORI=1T0 LEN (RAS) : GOSUB210G:D$ ( I)=22$ NEXTI GOSUB2146:I$=ZZ$:CLOSE 5:GOTO3G RUN QQS="ENTER {SHIFT-SPACE } NUMBER { SHIFT-SPACE}OF { SHIFT-SPACE } PROBLEMS" :RETURN
BS
MC FS
1566
1576 1586
15968 1666
1618 1628
1636 1646 1658 1666 1679
1688 1698
1768 1716
1726
1738
1746 1756
1766
1776
1786 1796
1866 1816 1826 1836 1849 1856
1868 1876
188
PRINT" {CLR} {RVS}
{1l SPACES}HIT {SHIET-SPACE}< {SHIFT-SPACE}TO
{ SHIFT-SPACE}GO
{ SHIFT-SPACE } BACK
{3 SPACES} z
{16 SHIFT-SPACE}{OFF}" RETURN
PRINT" {CLR} {RVS}
{19 SPACES}ENTER {SHIFT-SPACE}< {SHIFT-SPACE}TO
{ SHIFT-SPACE}GO
{ SHIFT-SPACE} BACK
{3 SPACES}
{9 SHIFT-SPACE} {OFF}" RETURN NL=12+LQ+L1+2* INT (N/QC )
N2=NL NL=NL+2* (INT ( (LEN (RAS) +N) /CN) )
IFNL>6 3THENNL=NL-63:GO TO0163G
FORI=NLTO66: PRINT#1:NE XTI: RETURN
Ips=""
PRINT"{RVS} {OFF} {LEFT} {LEFT}{RVS} {OFF}{LEFT} {LEFT}"; IFLEN(IP$)>254THEN GOT oO 1798
GETP$: IFPS=""THEN1660 IFASC (P$) =190RASC (PS) = 147THENGOTO1660 IFPS="<"THENRETURN
IF PS="{DOWN}" OR PS=" {UP}" OR PS$="{RIGHT}" {SPACE}OR P$="{LEFT}" {SPACE}THEN 1666 PRINTPS;"{RVS} {OFF} {LEFT} {LEFT}";
IFASC (PS) <>2GANDASC (PS ) <>13GANDASC (P$) <>13TH ENIPS$=IPS$+P$:GOTO166G IFASC (P$)=13THENRETURN IF LEN(IP$)<1 AND (ASC (P$)=2G0RASC (P$)=157)T HENPRINT"{RIGHT}";:GOT 01650
IF LEN(IP$)=1 AND (ASC (P$) =2G0RASC (P$)=157)T HENGOTO1659
IFASC (P$) =2GORASC (PS) = 157THENIPS=LEFTS (IPS$,L EN (IP$)-1) :GOTO1666 GOTO1669
PRINT: PRINT" NO
{ SHIFT-SPACE }MORE
{ SHIFT-SPACE } THAN {SHIFT-SPACE}254 CHARA CTERS":PRINT = GOTO 165¢
GETPS: IFP$<>""THEN1819 GOTO 1666
SYS779
REM PRINT QUESTIONS X=@:FORI=LTON: IFX<LEN ( Q$ (I) ) THENX=LEN (Q$ (I) ) NEXTI
IT=X+9:CN=INT (80/IT) :Q C=CN N5=14+INT (LEN (RQS) /80)
AUGUST
FC
FH
KR
BA
xQ
sc
AG
XG
GP
KE
PC
GA
FR
XH
PA
XE
DF
19895)
1896
1968
1916
1926 1936 1946 1959 1960
1976
1986
1999
26968 2619
2626
2038
2048
2056
2668 2678 2686
2096 2196 2118
2126 2136 2146 2158
2169 2176
+INT (LEN (I$) /80) +2* INT (N/QC) NL=8+INT (LEN (RQS$) /80) + INT (LEN (I$) /8G) +2* INT ( N/QC) PRINT#1:PRINT#1,RQ$:PR INT#1:T=CN: PRINT#1,1$: PRINT#1: PRINT#1:FORI=1 TON
PRINT#1,1;". ";Q$(I);S PC (IT-LEN (Q$ (I) ) -LEN(S TRS (I))-3)7 T=T-L: IPT <=GTHENT=CN: P RINT#1:PRINT#1
NEXTI: PRINT#1: RETURN POKE4G563,128: POKE4056 4,128: POKE53289,6: POKE 53281,6:POKE646,1 FORI=1T015:CLOSEI:NEXT : RETURN
PRINT" {CLR}"TAB(8)" {RVS}{6 SPACES}RIDDLE { SHIF T-SPACE } MENU
{7 SPACES} {OFF}" PRINTTAB (8) XS$TAB (32) X ss PRINTTAB (8) XS$TAB(10)" 1 = GET{SHIFT-SPACE}FR OM{SHIFT-SPACE}DISK"TA B(32)xsS$ . PRINTTAB (8) XSSTAB (1G) " 2 = CREATE {SHIFT-SPACE} NEW {SHIFT-SPACE}RIDDLE"TA B(32)xS$ PRINTTAB (8) XS$TAB (10) " 3 = CORRECT"TAB (32)XS$ PRINTTAB (8) XS$TAB (16) " 4 = SAVE{SHIFT-SPACE}T O{SHIFT-SPACE}DISK"TAB (32) xs$ PRINTTAB (8) XS$TAB (10)" 5 = PRINT"TAB(32)XS$ PRINTTAB (8) XSSTAB(10)" 6 = PRINT{SHIFT-SPACE} ANSWERS "TAB (32) XS$ PRINTTAB (8) XSSTAB(13)" 7 = DISK{SHIFT-SPACE}D IRECTORY "TAB (32) XS$ PRINTTAB (8) XSSTAB (18) " 8 = CLEAR{SHIFT-SPACE} MEMORY "TAB (32) XS$ PRINTTAB (8) XS$TAB(19)" 9 = QUIT"TAB (32) XS$ PRINTTAB (8) XSSTAB (32) X ss
PRINTTAB (8) "{RVS}
{7 SPACES}HIT
{ SHIF T-SPACE }CHOICE {SHIFT-SPACE}
{7 SPACES}{OFF}" RETURN
z2zs="" GET#5,Z$: IFASC (Z$) <>13 THENZZS=Z2Z$+Z$:GOTO211 G
RETURN
IF N5>63 THEN PRINT#1: PRINT#1:PRINT#1
IF N5>63 THEN N5=N5-63 : RETURN
RETURN PAS="A":H=5:GOTO7G
c=1
COMPUTE G33
a 3 WwW 5 Q = = 8 ee ~ = kul N q 6
PROGRAMS
BH 2188 S$=" ":FORBL=@T018:S$= KF 2360 GET#8,B$: IFBS<>""THEN2
SS$+" ":NEXT
SS 2196 OPEN8,8,0,"S"
JP 2266 PRINT"{CLR}";
PH 2216 GET#8,B$:1FB$<>CHR$ (34 ) THEN2216
FM 2220 PRINTSPC(8)"{RVS}";" {GRN}";BS;
FR 2230 GET#8,B$: IFBS<>""THENP RINTBS; :GOTO2230
EJ 2240 PRINT
SG 2256 FOR E=@ TO 19
FR 2260 GET#8,B$,B$:GET#8,HS,L
$
JH 2276 GET#8,BS$:IFBS<>" "THEN 2496
QM 2280 GET#8,B$:IFBS<>CHRS (34 ) THEN 2286
AB 2290 IF C/2=INT(C/2) THEN P RINTTAB(19)" ";
MM 2300 FORXL=1T016:GET#8,BS BM 2319 IFBS="" OR B$=CHR$ (34) THEN BS="_"
PP 2326 PRINT "{WHT}"BS;:NEXT
XP 2330 GET#8,BS
SR 2346 GET#8,BS:IFBS=" "THEN2 346
RG 2356 PRINT",";BS;" "
f you are a GEOS user, how would
you like to replace that program’s
plain pointer with something more
lively? Magic Mouse is an animated replacement. It changes the shape of your pointer from an arrow toa mouse whose tail moves back and forth.
Now, instead of using an arrow to make your selections with GEOS ap- plications, you can make a tail-wagging mouse scurry across the screen. Next to the mouse’s head in the upper left corner of the sprite, you’ll notice a small arrow. This is the pointer’s hot spot. Use this area to select menus and icons.
Getting Started
Magic Mouse is written entirely in BASIC. To help prevent typing errors, use The Automatic Proofreader to type it in; see “Typing Aids” else- where in this section. When you’ve finished typing, be sure to save a copy of the program,
Note: The listing following this article is for GEOS version 2.0; if you are using GEOS version 1.2, enter line 560 as follows.
560 DATA 141, 49, 227, 169, 1, 141, 50, 227
When you are ready to use Magic
360
BK 2378 NEXT:C=C+1
JE 2380 IF C=2 THEN PRINT CHRS (19) +"{DOWN}"; :GOTO225 6
HG 2390 PRINT" {HOME}{23 DOWN}" CHRS$(158)"{6 SPACES} {RVS}SPACE{OFF} = MORE {SHIFT-SPACE}";
RJ 2466 PRINT"{4 SPACES}{RVS}M {OFF} = MENU"; Fy
DP 2410 GETI$: IFJS=""THEN2410
QA 2420 IFIS$<>" “ANDIS<>"M"THE N2410
CF 2438 PRINT" {HOME}{23 DOWN} {37 SPACES}";
QD 2440 IFJS="M"THENCLOSE8:GOT 036
KB 2458 PRINT" {HOME}"+"{DOWN}"
;
IM 2460 IF C/2<>INT (C/2)THENFO RXL=0TO19: PRINTSS$: NEXT >GOTO2486
GH 2470 FORXL=@T019: PRINTTAB (1 9);SS:NEXT
AC 2486 PRINT"{DOWN}"; SS;SS;" {HOME}";"{DOWN}"; :GOTO
2250
BK 2490 XL=ASC (HS$+CHRS$(@)) :XL$ =STRS (XL+256*ASC (XBS+C HR$(@)))
SE 2568 POKE214,23:POKE211,16: PRINT CHR$(145);"{PUR} ";XLS;" BLOCKS FREE ": CLOSE8:XC=1
RA 2516 PRINT "{12 SPACES} {RVS}";CHR$ (158) ; "HIT {SPACE}SPACE BAR";
GK 2526 GETAS: IFAS=""THEN2520
QK 2530 IFAS<>" "THEN2526
SR 2540 PRINTCHRS (5) +CHR$ (147) :GOTO30
DQ 2556 DATA 128,112,207,250,1 95
GS 2560 RESTORE: FORRI=139T0143 : READRN: POKERI, RN: NEXT :POKE649,1:XS$="{RVS} {SPACE} {OFF}"
QR 2570 BSS$="{CLR}{24 DOWN}"
KQ 2586 BL$="{46 SPACES}"
HG 2596 HNS="{RVS}< TO { SHIFT-SPACE}GO { SHIFT-SPACE} BACK {OFF} {HOME}"
MC 2600 RETURN a
=]
CHANGE YOUR 64'S GEOS POINTER TO A FIRIENDLY MOUSE THAT WAGS ITS TAIL
Mouse for the first time, have a blank disk handy. When you run the pro- gram, you will be prompted to insert a blank disk in drive 8. Magic Mouse formats the disk and then writes the header/icon block, application file, and GEOS directory entry to the disk using direct access commands. When the program has finished creating the new pointer, you’re ready to use it. Boot GEOS, open your new Magic Mouse disk, and click on the
mouse icon. The program will load DJ 130 GET ANS$:IF ANS<>" " THE
G34 COMPUTE
AUGUST
Uy uta
and put the interrupt request (irq) routine and data in place and then exit back to the deskTop.
Mouse Mechanics
Magic Mouse runs in the background ofa GEOS application by wedging into the GEOS irq routine. Every time an ir is executed, Magic Mouse adds anumber to a counter. After a certain number is reached, the program re- draws the mouse’s tail in another po- sition, making it appear to move.
If you’ve ever changed the shape of your pointer with GEOS’s prefer- ence manager, you know that GEOS will load the new shape data whenever a disk that contains the preference manager is read. Magic Mouse, how- ever, overrides this new data. The program resides at the bottom of the hardware stack at $0100, and the graphics data resides at $0291.
MAGIC MOUSE
BE 1 REM COPYRIGHT 1991 — COMP UTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED AG 100 PRINT "{CLR}INSERT A BL ANK DISK IN DRIVE 8" SR 116 PRINT "{DOWN}{YEL} (WARN ING! DISK WILL BE FORMA TTED) {7}" FS 124 PRINT:PRINT"PRESS SPACE TO BEGIN"
PROGRAMS
N 136
PRINT: PRINT: PRINT"WORKI NG"; :WOS="*"
OPEN 15,8,15,"N@:MAGIC, 91"
FOR T = 1 TO 177:READ D A:D1$=D1$+CHRS (DA) :NEXT PRINT WOS;
FOR T = 1 TO 32:READ DA :D2$=D2$+CHR$ (DA) :NEXT: PRINT WOS;
FOR T = 1 TO 181:READ D A:D3$=D3$+CHRS (DA) :NEXT PRINT WOS;
OPEN 2,8,2,"#":PRINT WO $F
PRINT#15,"U1l 2 @ 17 6": PRINT#2,D3$: PRINT#15,"U 2 2 @ 17 G":PRINT WOS; PRINT#15,"Ul 2 @ 17 1": PRINT#2,D1$:PRINT#15,"U 2 2 @ 17 1":PRINT WOS; PRINT#15,"Ul 2 6 18 1": PRINT#2,D2$:PRINT#15,"U 2 2 6 18 1":PRINT WOS$; PRINT#15,"B-A @ 17 66" PRINT#15,"B-A @ 17 61" CLOSE2:CLOSE15
PRINT: PRINT: PRINT"DONE! "
BB 149
CE 156
RF 166
MB 176
CA 186
cP 190
BA 260
MG 216
PS 226
230 248 250 260
DQ QB BP SF MJ 276 DATA 6,255,3,21,191,255 7255,255
DATA 128,0,1,128,8,1,12 8,24
DATA 1,128,66,1,128,126 71,128
DATA 66,1,128,126,1,128 7255,1
DATA 129,255,129,131,25 5,193,131,255
FK 286
BF 296 SH 306
PG
319
his program is a combination of
several disk utility routines which
allows easy tracing of files and
editing of disk sectors on both sin- gle- and double-sided Commodore disks. 7/E 80 is for the 128 in 80- column mode with a single 1571 disk drive designated as device 8.
The program consists of a disk sector editor, file tracer, block alloca- tion map display, sequential file lister, routines for freeing and allocating sec- tors in the disk BAM, and a disk di- rectory listing routine.
Typing It In
T/E 80 is written entirely in BASIC but includes machine language sub- routines. To avoid typing errors, use The Automatic Proofreader to enter the program; see “Typing Aids” elsewhere in this section. When you have finished typing, be sure to save a copy of the program to disk before you try to run it.
DA DATA 193,131,255,193,13 1,255,193,129
DATA 255,129,128,255,1, 128,126,1
DATA 128,8,1,128,8,1,12 8,144
DATA 6,0,0 DATA 4,0,4,0,4,77,97,10 3
DATA 105,99,32,77,111,1 17,115,161
DATA 32,118,49,46,48,0, 8,0
DATA 6,77,1G5,168,116,1 11,116,32
DATA 74,111,104,116,115 111,110, 32
DATA 32,32,32,32,0,0,0, g DATA DATA DATA DATA DATA DATA 116,101,100
DATA 32,80,111,105,110, 116,101,114
DATA G,@,255,131,17,0,7 7,97
DATA 163,105,99,32,77,/1 11,117,115
DATA 161,160,160,166,16 6,166,17,1
DATA @,6,91,3,3,10,48,1 DATA G,@,255,32,183,193 13304
DATA G,1,83,0,32,183,19 3,116
AP
1,255,255,255,131,
a uo ~
97,
550 DATA 4,150,2,63,0,120,1 69,8
DATA 141,246,259,169,1, 141,247,256
DATA 88,76,44,194,32,18 3,193,158
DATA 2,193,132,51,6,238 7 82,1
DATA 166,6,173,82,1,261 730,208
DATA 4,162,265,160,2,20 1,42,208
DATA 4,162,209,166,2,20 1,72,208
DATA 4,162,205,160,2,20 1,84,268
DATA 9,162,201,166,2,16 9,0,141
DATA 82,1,192,06,240,21, 134,2
DATA 132,3,166,0,162,0, 177,2
DATA 157,245,132,232,23 2,232,200,192
DATA 4,268,243,198,157, 132,8,192
DATA @,G,128,6,8,0,0,0
DATA @,24,0,0,60,0,0,12 6
DATA @,0,66,0,0,126,6,0
DATA 255,0,1,255,128,3, 255,192
DATA 3,255,192,3,255,19 2,3,255
DATA 192,1,255,128,0,25 5,9,0
DATA 126,6,8,8,144,96,8 8
'
DATA 8,8,16,16,9,6 o
568 576 588 590 608 616 620 630 646 656 668 676
680 696
786 716
720 738 748 758
THIS UTILITY COMBINES A DISK
SECTOR EDITOR, FILE TRACER, SEQUENTIAL LISTER, AND MORE FOR THE 128 IN 80 COLUMN MODE
How to Use the Program
After you load and run 7/E 80, there will be a short pause for setup before
the main menu screen appears. From
=
the menu select any of the following routines by pressing the key that is highlighted in red.
Editor Press E to enter the editor rou- tine. You will be prompted for the track and sector to load. Enter the de- sired numbers in decimal. The pro- gram will load and display the data contents of the entered sector, and the editor menu will appear. Use the cur- sor keys to move through the dis- played data. From the editor menu several choices are available.
N N loads and displays the contents of the next linked sector in the file, shown after /ink at the bottom of the screen display. If there is no link, an error message will be displayed, and you'll be returned to the main menu.
J Jloads and displays the sector de- fined by the value under the editor cursor (track) and the value to the
AUGUST
less st71} COMPUTE G35
a 3 Ps ° a ° = = 9 cs) tal i= = iw N i )
PROGRAMS
right of the cursor (sector). This is use- ful for jumping to the first sector of a file from a directory sector.
L Lclears the editor menu screen and prompts for a track and sector to load. The program then loads and displays the entered sector data and redisplays the editor menu.
Shift + and Shift — These key com- binations load and display the sector one track above or below the currently displayed sector. For example, from track 4, sector 15, SHIFT + will load and display track 5, sector 15; SHIFT — will go to track 3, sector 15.
+ and — These load and display one sector above or below the sector cur- rently displayed. For example, from track 4, sector 15, press + to move to track 4, sector 16; press — to move to track 4, sector 14.
S S stores the currently displayed sec- tor data to a memory buffer.
P P pulls the data stored in the mem- ory buffer and displays it on the screen. The data will not be written to disk until W is selected.
C Callows you to change the value of the data byte under the editor cursor. You will be prompted to enter the de- sired data value. Values should be in decimal form. The new value will not be written to disk until W is selected.
T T allows you to enter text in the sector data display, starting at the lo- cation of the editor cursor. The Re- turn key must be pressed when text entry is complete. The new data will not be written to disk until W is selected.
W W writes the currently displayed data to disk at the current track and sector, indicated at the bottom left of the screen display. W must be selected before any changes made to displayed data will be saved to disk.
Z Z fills the current data display with zero bytes. You will then be asked whether to write the zero data to disk. Y will write the zeros; N will not.
Q Qexits the editor and returns you to the main menu.
———
BAM Map Press B from the main menu to select the BAM display rou- tine. You will be prompted to insert the disk whose BAM you want dis- played and then press Return. The program will then read and display the disk BAM for both single- and double-sided disks. Press the Return key for the main menu.
Tracer. Press T from the main menu to access the tracer routine. You will be prompted to enter the name of the file to be traced, after which the pro- gram traces the entered file through the disk. When the trace is complete, a listing will be displayed on the screen in linked order of all sectors occupied by the file. The load address for pro- gram files and the directory sector containing the selected filename will also be displayed.
If the sector listing is longer than can be displayed on one screen, you will be prompted to press the Return key to continue the listing. When the screen listing is complete, you will be asked whether you want a hardcopy printout of the sector listing.
Sequential File Lister Press S from the main menu to select the sequential file lister routine. You will be prompt- ed to enter the name of the file to list. The program will then list the file to the screen. Press the No Scroll key during the listing to pause. When the listing is complete, press Return to go back to the main menu.
Allocate Sector Press A from the main menu to enter the sector alloca- tion routine. You will be prompted to enter the track and sector numbers of the sector you wish to allocate, at which time the program will allocate the sector in the disk BAM. You will then be asked whether you want to continue. Press Y to return to the allo- cate prompt; N returns you to the main menu.
Free Sector Press F from the main menu for the sector free routine. This routine works in the same manner as the sector allocate routine, freeing sec- tors in the BAM instead of allocating them.
Directory Press D from the main menu to display the directory of the disk currently in the drive. Press No
Scroll to pause the listing if necessary. When the listing is complete, you will be prompted to press the Return key to go back to the main menu.
Quit Press Q from the main menu to clear the screen and exit the program.
T/E 80
BE 1 REM COPYRIGHT 1991 -~ COMP UTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED PK 16 IFPEEK(215)<>128THENPRIN T"{CLR}{3 DOWN}SWITCH MO NITOR TO 8@ COLUMNS-PRES S A KEY":GETKEYAS:GRAPHI cs PRINT" {CLR} {3 DOWN} {5 RIGHT}SETTING UP T/E {SPACE}80 .. ." FAST :COLOR6,1:DCLOSE:GOS UB2720 PRINT" {CLR} {BLU} "SPC (27) "€AFCCCCCCCCCCCCCCCCCCCC cccccc{s}" PRINTSPC (27) "BLA}CCCCCCC ececececceeccCccct{s}B" PRINTSPC (27) "BB {9 SPACES}{6}T/E 86 {9 SPACES} {BLU}BB" PRINTSPC(27)"BB {22 U} B Bt PRINTSPC (27) "BB {7 SPACES}{6}MAIN {2 SPACES}MENU{7 SPACES} {BLU} BB" MP 99 PRINTSPC (27) "B{Z}CCCCCCC eCcccceccecccCcccyxX#B" HC 100 PRINTSPC(21) "{a}ccccc fE}CCCCCCCC{16 SPACES}C CCCCCCCTEFCCCCC{S}" PRINTSPC (21) "BEA}CCCCCC ececececcceccececcecccc CCCCCCC{S}B" FORN=1T07:PRINTSPC(21)" BB"SPC (36) "BB":NEXT PRINTSPC (21) "B{Z}CCCCCC eccceccececcctceccecccc CCCCCcCeXyB" PRINTSPC (21) "{z}Ccccccc ceceecceccececectccccce CCCCcccc{x}" PRINTGBSETS$G2$M2$G3SM3S G4$M4SG5SM5SCHRS (27) "L" GETKEYA$:GOSUB1060 IFAS="D"THENGOSUB2356:G oTo4a IFAS="A"THENAS=ALS:BS=S A$:C$=AG$:D$="B--A";GOTO 2260 IFAS="E"THENAS=SFS$:BS$=F R$:C$=FG$:D$="B--F":GOTO 2260 + IFAS="T"THEN1300 IFAS="E"THEN280 IFAS="S"THEN2130 IFAS="B"THEN2430 IFA$="Q"THENPRINT" {CLR} {CYN}":END GOTO159
GJ 26
JB 38
Ds 40
sc 56
PD 60
XJ 76
KJ 86
cg 110
KF 126
KG 136
GA 146
DX 156
SD 166 SH 176
PR 186
HX 196
FD 206 QE 210 HG 226 PQ 230 GI 246
RD 256 KB 266
G36 COMPUTE
AUGUST
1959: 31
BR RJ
SM
PK
EA
ac
JA
SE
AE
HH
EB
AX
HB
AA
BH
ME
GB
276 289
296
306
319
326
338
348
356
360
378
380
396
406
419 426
430
446 456
460 476 480 499 500 519
526 530 546 550 560
PROGRAMS.
REM EDITOR PRINTGASIES$:SYS49176,G, 6,0 $Y¥S49176,0,16,8:PRINT" {BLU} {A}CCCCCCCCCCCC{E} ceecccecceceeccceccccccc CCCCCCCCCCCCCCCLEFCCCCC ceccccc{s}" FORN=17T020:SYS49176,G, N,8:PRINT"B"SPC (64) "B' NEXT SY¥S49176,0,21,8:PRINT" 4Q}CCCCCCCCCCC{R}CCCCCC eccc¢yR}CCCCCCCCeCCCCCCC CCER}CCCCCCCCCCCERFCCCC Cccccctwy" SYS49176,G,22,8:PRINT"B {2 SPACES} {6}TRK: {BLU} {5 SPACES}B {6}SCT: {BLU} {5 SPACES}B {6}LIN K: T{4 SPACES}S{BLU}
{5 SPACES}B {6}POS: {BLU} {6 SPACES}B {6}VAL :{BLU}{5 SPACES}B" S¥S49176,6,23,8:PRINT" {Z}CCCCCCCCCCCLE}CCCCCC CCCCLE }CCCCCCCCCCCCCCCC CCE} CCCCCCCCCCCTEFCCCC eccecc¢xX}"™
GOSUB166: PRINTGBSETSG4 SEES WINDOW33,11,38,12: INPUT T:WINDOW48,11,53,12:INP urs WINDOWG,6,79,24:1FT=OTH ENGOSUB1G60: PRINTG4SZRS :SLEEP2:GOTO40 GOSUB1160:SYS49176,6, 22 ,17:PRINT"{2 SPACES}":S ¥S49176,0,22,27:PRINT" {3 SPACES}" 8Y¥S49176,0,22,41:PRINT" {3 SPACES}":SYS49176,G, 22,46:PRINT"{3 SPACES}" SYS49176,0,22,58: PRINT" {3 SPACES}":SYS49176,0, 22,69:PRINT"{4 SPACES}" GOSUB2660:SYS49176,0,22 ,16:PRINT" {WHT} "T:SYS49 176,0,22,27:PRINTS PRINT#15,"U1";5;0;T;S:P RINTCHRS (14) CHRS (27) "M" WINDOW9,17,72,20,1:SYS6 710: TN=PEEK (6144) :SN=PE EK (6145) PRINTCHRS (142) ; :WINDOWG 10,79,24: PRINTCHRS (27) " Lb";
GOSUB2676:GOSUB1126 PRINTGBSET$G2$Q2$G3$Q3$ G4$Q48G5SQ5SG6SQ6$G7$Q7 $: IFPTHENP=0:GOTO476 1=6:K=17:5=9:M=6144 SYS49176,8,0,0:GOSUB93G GETKEYAS IFAS="C"THEN8 4G IFAS="T"THEN88G SYS49176,0,K,J3:SYS49155 , PEEK (M+I) ,143 IFAS="{UP}"THEN69G IFAS="{DOWN}"THEN726 IFAS="{ LEFT }"THEN756 IFAS="{ RIGHT} "THEN789 IFAS="Z"THEN97@6
HJ
KA
HP
sD CE
576 586 596
606 610
620 6308 640 656 666
676
686 696 768 710 728 730 746 756 760
776 788 798
860
816 828
836 846 856
866 870 880
896
960 916
920 938
949
955
960 976
IFAS="Q"THEN4G IFAS="L"THEN346 IFAS="J"THENT =PEEK (M+I) :S=PEEK (M+I+1) : GOTO37@ IFAS="W"THEN1G10 IFAS="N"THENT=TN:S=SN:G 0T0368 IFAS="+"THENT=T+1:GOTO3 76 IFA$="-"THENT=T~1:GOTO3 70 IFA$="-"THENS=S-1:GOTO3 76 IFAS="+"THENS=S+1:GOTO3 70 IFAS="P"THENPRINTGBS" {RED} PULLING-{6}": FORN= 6144706399: POKEN, PEEK (N +256) :NEXT:GOSUB1676:GO T0456 IFA$="S"THENPRINTGB$" {RED} STORING-{6}":FORN= 6144706399: POKEN+256, PE EK (N) :NEXT:GOTO45G GOTO486
1=1-64:K=K-1 IFK=1L6THENK=20
GOTO8aG
T=1+64:K=K+1 IFK=21THENK=17
GOTO8GG
I=I-l:J=J-1 IFJ=8THENJ=72:K=K-L:IFK =16THENK=20
GoTO8aG
I=I+]:J=d+1 IFJ=73THENJ=9:K=K+1:IFK =21THENK=17 IFI<OTHENI=1+256 IFI>255THENI=1~-256 $YS49176,0,22,58:PRINT" {3 SPACES}":SYS49176,0, 22,69:PRINT"{4 SPACES}" GOTO478
GOSUB16@: PRINTG4$NV$ WINDOW67,22,72,22: INPUT X: PRINT" {HOME} :"; :WINDO WO,0,79,24
POKE (M+I) ,X:GOSUB936 GOTO926
GOSUB106G: PRINTG4$TX$:D O:GETKEYAS: IFAS=CHRS (13 ) THENEXIT
POKE (M+I) ,ASC(A$) :S¥S49 176,0,K,3:SYS49155, PEEK (M+I) ,143
T=I+]l:JsJ+1: 1EJ=73THENI =9:K=K+1: IFK=21THENK=17 GOSUB93G:LOOP GOSUB112@:P=-1:GOT0450 IF (PEEK (M+I))+128>255TH ENSYS49176,0,K,J:SYS491 55, (PEEK (M+I))-128,143: GOTO95G SYS49176,8,K,J3:SYS49155 , (PEEK (M+I) )+128,143 SY¥S49176,@,22,57:PRINT" {WHT}"I:SYS49176,0,22,6 8:PRINT"{4 SPACES}
{4 LEFT}"PEEK(M+I) RETURN PRINTGB$" {RED} ZEROING— {6}":FORN=6144T06399: PO KEN, @:NEXT
AUGUST
AF
QF
JE
XA
986 WINDOW9,17,72,20,1:PRIN T" {WHT } "CHRS (14) CHRS (27 )"M"; :SYS6690
996 WINDOWG,9,79,24:PRINTCH
R$ (142) CHRS$ (27) "L";
PRINTGB$"{RED} WRITE? {SPACE} {6}":GETKEYAS:1 FAS<>"Y"THEN456 GOSUB166G: PRINTG4$00$G BSCS$:GETKEYA$: IFAS<>C HRS (13) THEN1O1G PRINTGB$"{6}WRITING:"G 4SCMSG3SMT$ PRINTG5$"{6 SPACES}"T" {12 SPACES}"S:GOSUB266 @ SYS6673:PRINT#5,CHRS (P EEK (6144) );:PRINT#15," U2" 53OsTFS GOSUB2670:GOSUB1460:GO T0456 PRINTGLSCM$G2$CMSG3$CM $G4SCMSG5SCMSG6SCM$G7$
CMSGBSCS$: RETURN
SYS49176,0,22,16:PRINT "(WHT }"T
SYS49176,0,22,27:PRINT
Ss
WINDOW9,17,72,20,1:PRI
NTCHRS (14) CHRS$ (27) "M"; SYS6690 WINDOWG,@,79,24:PRINTC HRS (142) CHRS$ (27) "L"; SYS49176,0,0,0:PRINT" {WHT }" SYS49176,0,22,40:PRINT
1666 1619
1626 1636
1446
1656 1666
1676 1986 1696
1186 1116
11208 1130
TN SYS49176,0,22,45:PRINT SN
RETURN
IFT<1THENT=1: RETURN IFT>7G6THENT=79: RETURN IFS<@THENS=G: RETURN IFT<18ANDS>20THENS=26: RETURN IFT>17ANDT<25ANDS>18TH ENS=18:RETURN IFT>24ANDT<31ANDS>17TH ENS=17:RETURN IFT>3GANDT<36ANDS>16TH ENS=16:RETURN IFT>35ANDT<53ANDS>26TH ENS=20:RETURN IFT>52ANDT<6GANDS>18TH ENS=18:RETURN IFT>59ANDT <66ANDS>17TH ENS=17:RETURN IFT>65ANDT<71ANDS>16TH ENS=16:RETURN
1278 RETURN
1286 : 1290 REM TRACER
1308 PRINTGASTLSGBSET$G2SCM $G4SCMSG6SCMSG3SFES WINDOW35,12,54,12,1:1N PUTFS$: IFF$=""THENWINDO WO,8,79,24:GOTO4G DOUNTILLEN (FS) =16:FS=F $+CHRS (168) :LOOP:WINDO WO,0,79,24 PRINTGBSCS$G3$CMSG5$CM $G4$00$:GETKEYAS: IFAS< >CHRS (13) THEN1339 PRINTG4STJ$
1146 1156 1166 1176 1186 1196 1266 1216 1226 1236 1240 1256
1268
1316
1326
1336
1346
) 1
COMPUTE G37
a 3 Wi ec ° (=) Ce) = = 8 in = - uu) N & o
PROGRAMS
KX 1356 X=6767:SD=1:GOSUB266G B{6}SECTOR: {BLU} BB{63B SR 1366 PRINT#15,"U1";5;0;18;S LK: {BLU} B{6}SECTOR: D:GOSUB268G:SYS6656 {BLU}BB{6}BLK: {BLU}B HB 1900 HQ 1370 G$=F$:FORN=@0TO15:AS=LE {6}SECTOR: {BLU}B" EF 1919 FTS$ (G$,1) :POKEX+N,ASC( | XK 1676 PRINTATS"B{6}CCCC{BLU} AS) : GS=RIGHTS (G$,15-N) B£6}CCCCCCC {BLU} BB{6}C :NEXTN Ccc{BLU}B{etccccccc JP 1388 SYS6738:A=PEEK (254) :IF TBLU}BB{6}CCCC{BLU}B KE 1926 ATHEN1406 £6$CCCCCCCTBLU}B" PE 1398 SD=PEEK(6145):GOTO136@ | DE 1686 FORN=1TO13:PRINTATS"B | BA 1936 MC 1400 LT (@) =PEEK(6127+A) :LS( {4 SPACES}B 6) =PEEK (6128+A) :FT=PEE {3 SHIFT-SPACE} K (6126+A) {3 SHIFT-SPACE}BB FK 1416 PRINT#15,"U1";5;G;LT (G {SHIFT-SPACE} MJ 1946 ) ;LS(@) {2 SHIFT-SPACE}B CR 1426 GET#5,A$:GET#5,BS$:LS (1 {4 SPACES} ME 1956 ) =ASC(B$) :LT (1) =ASC(AS (3 SHIFT-SPACE}BB EE 1960 ) :AD=0 {3 SHIFT-SPACE}B BX 1430 IFFT=129THENADS="SEQ": {2 SHIFT-SPACE} GOTO147¢ {2 SPACES} CK 1976 SD 1446 IFFT=133THENADS$="REL": {3 SHIFT-SPACE}B":NEXT GOTO147¢ XE 1690 PRINTATS"{Z}CCCCLE}CCC KE 1458 IFFT=132THENADS="USER" CCCCEXF{Z}PCCCCLEFCCCCC | BR 1980 :GOTO1476 CCEX} {ZFCCCCLEFCCCCCCC DD 1466 GET#5,A$:GET#5,BS:A=AS {x}"