Q Commodore

Transcript

[3Jcornrnodore Q commodore NEW COMMODORE PRODUCTS NEW The Executive Exeeu!iva 64 64 . , . . . . . • . . • . . . . Coli The Call CBM 0128-80 ....... . ......... .. SS 795 795 CBMC128-80 CBM 8X700 8X700. . . • . . • . . • . . . • . . . . • .. CBM 2990 2990 ,.... . Col! Call CBM 1520 Plotter PIOner ................ 169 169 CBM 1520 CBM 1526 Pfinief Pflm8r . . . . . . . • . . • . . • . • 349 349 CBM 1526 SOFTWAR E FOR CBM 64E 64: SOFTWARE BUSINESS BUSINESS WOfd ProcessIng (WordPro 3+) 3 ~ ) • . .. Word Processing SS 69 Oultk Brown Fox Fox . ... ..• . .. 56 Quick 56 WrilE!fS 99 Writers Assistant . . . .. . •• . . . . . . . . . B Series Series Software SOl!wcre •..•..••.. B Spell Master MOSIer. . . . . . . . . . •• . . • . . . . . . CoIC Resun ....••.•..•.•.•.••.•. Calc Result BusJcolc BjsicoicllII •..•..•.•..• , . . • . •• • . Spl'eod Sheet Assistant ............ Spreafl Stieet CKnoMonoger Data Manager .............. 75 75 125 95 95 99 70 M 89 M file File (merge wiTh with WordPro) . . . . • . . Inlo 139 Into Mas!. Mast . . . . . . . . . . . • . . . . . . . • . • 139 64 28 64 Moiling Mailing LisI List .. . ............... 50 The Manager . . . . . . • . • . . . • . . . . • . • Home Accountant (conllnental) (continental) ... , . 75 flnanco Assistant. .. , .• , .. , .. , . • . • 45 Finance Assistant 45 Slock 80 Stock (inves!menr (investment analysis) ... . . • . . Agrlcunurol Mooogemen! COil Agricultural Management . . . • . . • . . . . Call General Ledger, A/R, AIR, A/P, AlP, P/ R. Inv .... . . COli P/R. Call RECREATION Assembler Pockogll Package (cossene (cassette or disk. disk, compiled. compiled, Includes includes editor. editor, 100der. loader. disassembler) . . • . . • . . . . . . . . . . . . 39 Sprlle 30 Sprite Mosler Master (occess). (access) • . . . . . . . . . . . Neutral Zone 35 Zone (o«ess). (access) . . . . . . . • . . • . Space BeN. 19 Belt .. . .. .. . .. . . .. . .. .. .. Pel 30 Pet Emulator . . . . • . . . . . . . . . . . . . • . Coco II (build your own games). 40 games) • . • . Vic Tree (programmers UliliTles) 75 utilities) . . . • . Mlao·Term 39 Micro-Term (save to printer.disk) •.•. Hesmon .. ...................... 35 Synrflesound 45 Synlhesound . • . . • . •• . ••• . • . •• •• . Gortunogs 30 Golhmogs Lair. Lair . .. . .. . .. . . • . .. . . . ROOd ..... ...... 15 Road TOOII........... Toad Commodore Gomes COIl Games . . . . .. . . . . . . . • . Call INTERFACES & ACCESSORIES ACCESSORIES 80 Column Column Expondef Expander . .. .......... $159 S159 VIC 1600 Modem .......... ..•.•. 95 150 VIC 1650 (auto answer, auto dlol)... diol). .. VIC 1525 Graphic Pl'lntel 225 Printer ••.. ..•.•. VIC 1530 OoIosene 65 Dotaselte Recorder ....... VIC 1541 Disk Drive .............. 249 VIC 9rHitch Switch (conned 8 64's or VIes Vies to printer. 149 printer, dd) . .. . .. . . . . . . . . . . • . PET·IEEE 33 PET-IEEE coble cable . . ...... IEEE·IEEE 49 IEEE-IEEE coble (2m). (2m) . . . . . . . . . . . . . Parallel Interface Inter10te (Epson, (Epson. Okidata, Okldoto. Parallel IDS,NEC) IDS, NEC) . ... ........... , .. 70 Guide . . . . . 18 Programmers Reference Guide 18 Verbatim Oiskenes box). . VerDotim Diskettes (10 per box) 26 Has Modem Modem....... 75 Hes 75 149 ADA 1450 ...................... 149 ADA 1800 1800 (new) .•.....•..•....• 129 129 Numeric Keypad Numeric Keypad . . . . . . . . . .. . .. . • . . 65 VIC PRODUCTS & ACCESSORIES RAMMemory Expansion Cartridge COrtridge ... 8K RAM Memory Expansion . ..S$ 40 16K RAM .......... 70 16KRAM 24K RAM ... 105 24KRAM 105 3 Slot 5101 Expander. 27 VIC 3 Expander • . VIC 6 Exponder . . . . . . . 6 Slot 5101 Expandel. 70 COS:sene Cassette Inrer10ce Interface .. 30 Gor1 (64 also) ............. Gor)(64oiso) 30 Omega Race Race . • . . • . . • . . . • . . • . • . . .. 30 30 Omega Alcode Joystick ·• Heavy duly w/ 2 firing Arcade duty w/2 bunons! VIC Of 25 buttons! GfeOllor Great for the VIC or 64 , . ••• 25 Auto Clock...................... 125 AutoClock 125 MONITORS - GREAT MONITORS-GREAT RESOLUTION 164 (64 OR VIC) CBM CBM 1701 1701 Color Monitor . .. ...•... $ S 249 AlllIIek Color Plus . . . . . . . . . • . . . . • . 299 Amdok Ponosonlc TR· 120 (w/speoker) . • . . . 155 Panasonic TR-120 Ponasonlc CT · 160. .. . .. . .. • .. • .. 279 Panasonic CT-160 BMC 95 BMC (green screen) . . . . . . . . . . . . . . TronSlor Transtar 20 (hIgh (hign resolution green phosphor) . . . . . . . . . . . . . . . . 129 Video/Audio Coble 15 Video/Audio Cable .,......... . . • . 15 PRINTERS - LETTER QUALITY CBM 40 cps . ........ • .. •.. $1 450 CBM 6400. 6400, 40cpS S1450 Diablo 949 Dioolo 620, 25 cps. cps . . . . . . • . . . . • . . Tronstor 1395 Transtar 140 {serial) (serial) ............. Transtar 130. 130, 16 cps (aUla (auto locC!. load, Tronstor wp lealuresl) 769 wp features!) . • . . • . . . . . . . . • . . . NEC 3500 Series. Series . . . . . . . . . . . . . . •. 1600 NEC 7700 Series. 2350 Series .. • ... .. .. • .. PRINTERS - DOT "MATRIX MATRIX CBM graphics .•.... $S 545 CBM 8023. 8023, 150 cps/ cps/grophics CBM 4023 Pl'intel. 395 Printer . .. ... . .. . • . . • . Epson FX Prinler, 549 Printer, 160 cps .......... MX-80 FT W w/groftrox Call Epson MX·80 / gfo1llox . , . . • . • . . Colt Epson FX·l00 859 FX-100 •. ,................ OkidOlO Okidata 82A. 82A, 120 cps (seriol (serial and parallel) ..•. , •.••..•. , . . • . • 429 NEC 8023A (palonel) 429 (parallel) . .. . .• . • . . . . . Okidalo 559 Okldota 92 . . • . . . . . . . . . . . . . • . . . . SI! it it has BusinessMan,™ more features, like budgetin g more features, like budgeting reports that you can deand reports de si gn, than th an the others. Ac Acsign, w rite counts Payable? Never write another check. check . Just let the computer, computer. Send us us the the coupon below for for on more information information on more Solu tions' quality Southern Solutions" business software, software, including business head-to-head comparisons comparisons w ith the the others. oth ers. with banks banks •• Accepts Accepts any any cartridge cartridge designed designed for for the the VIC VIC 20'. 20-. VOICE VOICE WORLD WORLD Your Your business business is is worth worth the the difdif ference, mpare our ference. Co Compare our busibusi ness ness software against against theirs. Who's? Anyo ne's! Ours Anyone's! Ours is Memory •• Memory (aster faster than than aa disk. disk. •• Plugs Plugs directly directly into into your your VIC VIC 20 20 SOUTHERN SOUTHERN SOWTIONS SOLUTIONS SOLID SOLID SECURITY selected. selected. Gold- plated connectors.' connectors! •• Gold-plated switch contacts contacts for lor high high reliability. reliability. switch Fused to to proiecl protect your your VIC VIC 20.1* 20.· •• Fused TO TO ORDER: ORDER: Send Send check check or or money money order. order. Add Add 3.00 3.00 shipping and and handling. handling. California California shipping sales tax. lax. COD COD reSidents add add 6% 6% sales residents DEALER INQUIRIES INQUIRIES INVITED INVITED DEALER VIC VIC 20 20 isisaa registered registered trademark Iraclemal1< of 01 Commodore Commodore Business Business Machines, MachitlOs, INC. INC. SOUTII ERN SOLUTIONS SOumONS 01 01 SOUTHERN n P.O. Box llox I'., P.,McKl n n ey, TX 75069 75 0 69 P.O. McKinney, Phone Phone 1·8 00·5 72·" 54 8 1-800-572-1518 Name _ _ _ _ _ __ _ _ __ _ _ _ _ _ _ _ _ __ Name A dd ~.. Address Cll y _ _ _ _ _ _ _ _ __ Cily_ Sia le _ _ _ _ _ Zip 210 _ _ _ __ State _ Plea&e send .end more more Information info nn& lion Please Commodore 64 64 _ _ Commodore 8000 Series Serie. 8000 Bmodel B model VIC 20 20 VIC Oclob" 1983 1983 COMPUTEI'i COMPUTE/ 's Gazelle GoZfJtt, October 121 121 OPENed using INPUT# combination O PENed file by usi ng IN PUT# in combinatio n whatever with a string variable to ""hold" hold" w hatever comes computer from the file (they come back to the compu ter in PR[NT#cd sequentiall the oorder rde r they were PR INT#ed in a sequent-ia file). gett the AAA back: fil e). To ge 201NPUT#l,A$ 20 IN I'UT# 1,AS could A$ to see the data AAA it Then you co uld print AS holds: hold s: PRINT AS 30 PIUNT get the res restt of th the we stored, you To gcl e data wc could: co uld : BS 40 INPUT#1,HS:PIUNT IN I'UT# l , BS: I'IU NT liS 50 IN INPUT#1,CS:PKINT C$ I'UT# l ,CS: I'ItINT CS After you arc are fi finished nished lNPUT#ing INPUT# ing or PRINT# ing from bee n O PENed PRINT#in'g from aa file file which which had had been OPENed as fi file le ##1, -1, you would close it: 60 C CLOSE I.OSE 11 When you've finally CLOSEd the file, YO you Wh en you' ve fina lly C LOSEd th e file, ll are (#1 in these exex urc free to use usc that thnt fifile le number (#1 some other different amples) for so mc ot he r file, with a differe nt name. CLOSE essential, however. you C LOSE is isesse nti nl, howeve r. Without it Y Oll could permanently lose part or a all dam ll ooff a fifile, le, oorr even damfiles age oother th er files. fil es. Don't Don' t leave fil es open after you're yo u' re finished ihem.. fini shed with them INPUT# And PRINT# PRINT# Hints The INPUT# IN PUT# aand nd PRINT# PRI NT# work very similarly to the way INPUT PRINT IN PUT and PRI NT work work from fro m the screen.. The o only catch is tha thatt nly cntch keyboard and nnd to the th e screen PRINT# needss some special PRI NT# need s pecial handling. It's best bes t to give it aa line all all to itself: itself: 20 PRINT#1,AS PRINT # l ,A$ 50 PRINTt! PRINT#1,AS , A$ 60 NEXT II 70 CLOSE 1 Since the re arc mes in thi s file, the there are four na names this loo p co un ts up to fo u r, READing loop counts four, RHADing a n nev\, new A$ from the DATA line each time throug h. Since PRINT# through. PRINT#1I is by ititself self on line 50, it will se nd carriage ret urn s send returns to the ta pe each time it PRJ T#s, separating the tape PRINT#s, names oonn tape wi th delimiters. This way, there with met hing like BILLSAN DY will be no question of so something BILLSANDY being stored. Whe n thi le is later read in to the co mpute r, When thiss fi file into computer, it wou ld be very useful to know when \v hen the eentire ntire would file eends, nd s, how big it is. The re aare re two ways to ddo o There this. You co uld add the word ""END" END" tothe could to the DATA lin e and then change liline ne 30 to reud: line read: FOR [= I=1 1 TO 5. Or, you could put p ut the COllll countt (the number of le) on the tape or disk itself, as records for thi thiss fi file) e. Sec line 25 nbove fo r an exa mple part of the fil file. above for example this. of thi s. read er" program prog ril m which first pu ll s He re's a ""reader" Here's first pulls the count out ooff the file fil e and und th en brings the record then recordss into the computer: 10 OPEN 1,1,0 , "NAMES" : REM (A TAPE FILE) 10 1,1,0,"NAMES"sREM 20 INPUT.l.COUNT:REM INPUTS1,COUNT:REM THIS IS THE FIRST IT EH ON ON THE FILE EM FILE 30 FOR 11 TO TO COUNT 30 1=1 INPUT#L,A? 40 INPUTt! . A$ : REM (TO THE SCREEN) 50 PRINT A$ A5:REH 61!! NEXT I 60 70 CLOSE 11 If you use the "END" " END" technique, the rea d er If reader program would not use line 20 and would add IF AS = ""END" END" THEN GOTO 70. If II you ),ou line: 45 45 IF A$= plan to do significant significant manipulations man ipu latio ns with the file fil e the items into an d uta, you might want to ca data, callll the 30 30 PRINT#1,BS PRI NTNl, BS arra y so that they ca n be worked with easily. array can abou t something somet hing which whi ch might mi ght O ne final fina l note about One The reason own rea son for fo r putting PRINT# PR INT# on o n its ow n line is that this thi s is an easy eusy way to separate se para te items in in no t be be immediately imm ed iately obv io us: if you update aa file, file, not obvious: a a file: fil e : with carriage ca rriage returns. ret urn s. Just Ju st as: as: YO ll cannot canno t put p ut itit back back on o n aa disk d isk using the same same you name . IHere's why: it's it's first first read off off the disk di sk and name. lere's why: 20 PRINT ('RINT AS AS 30 PRINT Pltl NT B$ 5S causes ca uses BS BS to to be on the line line below AS AS on o n the the screen (since (since using using aa new new line li ne forces aa carriage carriage return to take place)-a place) - n separate separate program p rogram line line puts aa car ca rriage Ollt o the the tape or o r disk di!;k and ria ge return ret urn symbol sy mbo l onto keeps the the data d ata from fro m running run ning into in to each each other. o th er. This kind kind of o f "separator" "separntor" symbol sy mbol is called called aa delimiter. Manipulating Files Files Our Our example exa mple program program above, above, which which reads reads data from from magnetic magnetic memory memory into into the computer, computer, does d ocs work, wo rk, but b ut it's it' s cumbersome. cumberso me. Files Files are a rc usually usua lly writ written ten to to or or read read from from within within loops. loops. Here's Here's aa simple simple program to to write write aa file fil e to to tape: tape: 10 10 DATA DATA BILL, BILL , SANDY, SANDY , KATIE, KATIE , LARRY LARRY 20 OPEN OPEN 1,1,1,"NAMES":REM 1,1,1, "NAMES" : REM (A TAPE TA.PE FILE) FILE) 20 25 25 PRINT#1,4 PRINTt! , 4 30 30 FOR FOR 1=1 I-I TO TO 44 40 40 READ READ A? M 122 122 COMPUTE!1! Gazette COMPurEr.Gozelle into memory mem ory because you want want to make make some into changes. Before Befo re you OPEN-PRINT#-CLOSE OPEN- PRI NT#-ClOSE itit changes. back onto o nto the the disk, disk, you YO ll must mu st first first scratch scmtch (remove) (re move) back the original orig inal file (it's (it' s in in the the computer now) now) so you the ca n replace replace itit with the th e updated upda ted one. o ne. For obvious obv ious can reasons, you YO li can't ca n' t have two two files on o n disk dis k with with the the reasons, sam e name. na me. This Th is scratching scratchillg is unnecessary unnecessa ry for (or same tape files, mes, because beca use the the recorder record er will will write over the the tape o ld file (if (if you rewind rewind the the tape). tape). old numerous ways ways to to manipulate manipulate files. files. There are a rc numerous There We've been been dealing dealing with wi th sequential seq uential files, files, the th e most most We've type of of files; fil es; using lIs ing INPUT#, INPUT#. the the straightforward type straightforward most straightforward stra ightforwnrd access access command; command; and de demost limiting with with carriage carriage returns, return s, the the simplest simples l punc p un climiting tu atio n. Your You r manual manual contains co ntain s information information about abou t tuation. more complex, co mpl ex, sophisticated soph istica ted filing filin g techniques, techniques, more includ ing special s pecia l types types of of disk d isk files, files, using using GET#, GET# , including and delimiting d e lim iting with wi th commas or or even even using using semi se mi · and a colons colo ns between bet ween items. ite ms. 0 October OClober 1983 1983 , / "THERE ARE COMMODORE COMMODORE 64:: TWO ABSOLUTELY INDISPENSABLE SOFTWARE TOOLS FOR THE T COMMODORE ." MMODORE 64 64™" "PRQ~LlNE PRO-LINE HAS THEM BOTH" POWER 64 PAL 64 on dltk dl.k add, adrff POWER on disk difl( the the on and MORiE MORE 'OWER POWER 6502 machine code to .... ease )'OUr your used by assembler uled BASIC the professionals professional. ' proarammln. programming ·POWER ....... $99.n POWER 'M.....SW." PAL 64 .... .599.'$ $99" ,."'.bltl . .",.. ~ .......... $~TeOLBOX 64 u POWER ... M and PAl'4 PALM .•..• SI79. SI79.11 MlA.i for 6OJ2l iho (M .l r .... tol .~o ivniibieh '" '1..,.~ mdiidlni t --".,._. """"" ., ■ n U,S. U S __ r~ HHh ordtr Of ~ ., . .. , '",10 fwn« or mijor rr*cO. Change your 54 64 to a p piano. 116 T RAFFIC SICNALS 136 TRAFFIC SIGNALS SI'.95 510.95 Teoeh hlld .safely. afely. Teach you,. your e child lHO 51 •. 95 1240 POCO 524.95 Llk" Like OQ Oerl. B«rt, 596 TELLINC S14.95 TELLING TIME 514.95 HI lock. Hi - rat res Round e clock. I1U S".50 1249 TYPESETTER 549.50 Hir"s priming printing on ISlS. Hi-res o*l 1525. 1276 ELIZA 519.9S 519.95 Hu Has con",.rut'on conversation ,.'th with '1'011. you. 1016 ELECTRONIC CRAOE8001< GRADEBOOK Te.""h"r Teacher specia speciall SlQ.9S SiU.95 574 LOCATION OF COU NTRI(S COUNTRIES Ceography 5511.95 1~ .9S Geography 575 CANCER SIS.95 Kid s and smok ing. smoking. Kids 761 762 ELEMENTARY ELECTRICIT'" ELECTRICITY Sth Sn.9S 5th-- 9lh 9th gr gr.. SJ4.95 I1n TRAVEL ABOUT AMERICA 1364 S"rles program. on Series o off 7 programs G""'9' Ceog. and History $ISO 5150.. TS 515.95 578 SOUNO SOUND EFFEC EFFECTS S15.9S Oemo and prog. aid. Deno 119 139 STRATHCLYOE STRATHCLVDE IlASIC GASIC !l leno, .. -• llest. ... t . $la.9S 12 leuons S34.95 1014 CEOMETRY GEOMETRY SERIES 10 prog •. ", llh hi - res JO progs, with hi-res Disk $l00 5300 T.pe Tsne $'00 5400 Ila liB TEST MAKER SU.9$ S!»-95 Maku ts , Makes muhl mulli - choke choice te. (ests. 1018 LARGE NUMIlER TION NUMBER ADDI ADDITION CrUI Great di,play display $14.95 524.95 1175 VI C · 10 EMULATOR 534 95 1275 VIC-20 EMULATOR 534.95 Run mol mostt VIC. VICs on 64. in. 1146 1JU6 INTERRUPT MUSIC EDITOR hin" rode. 519.9$ Mac Machine code. S29.95 1017 MORTCACE $19.95 MORTGAGE 519.95 Does an t ion •• all I""n loan uicuia calculations. lOIS 1015 ANIMAL - VECETABLE VEGETABLE 6yr. - l0yr. 514 .9 S 6yr.-10yr. 514.95 1185 ESTRO S]Q.95 12B5 MA MAESTRO S34.95 All conceivlb le mu.ic conceivable music and sound fun ctlonl program . functions In in 1 1 program. \l80 WATTS and AMPS 51Q .9S 12SD $14.95 Houlehold Household olee. elec. cako. calcs. 5BO 580 MATCHING SHAPES 1.0. Oullder sn.9S Builder $14.95 6U 644 Typ" Type Tutor sa.95 519.95 645 615 Assembly Language Tutor 51a.95 Sit.95 6" ,.u 51Q. gs 667 Fractional Pa Parts $14.95 901 on. 514 n 902 Estimating Fracti Fractions 514.95 US t h $14.95 695 Tutor M. Mnth 514.95 110 Squar~ ROOI 14.9S B70 Squarn Root T,."lner Trainer 5 $14.95 699 Coun ting SShapes hapes $14.95 Counting 514.95 6g4 y AddlUon £94 Mon" Money Addition Sn.,5 $14.95 589 95 689 Malh Math Dice \Q. 14.9! 618 14.95 676 Speed RNd Read 5 514.95 641 643 Map. Maps Ind and Caplllis Capitals 519.95 645 Spri te Edilor . 95 Sprite Editor 519 515.95 904 M4 Sound Synthesizer Tutor 19.95 19.95 696 Dlagr.mml ng Diagramming S~nt~"cftl 514.95 Sentences 514.95 69U 690 MorelLeu More/Less 514.95 $14.95 618 . 95 668 Baiting Averages 514 $14.95 a02 BO? TicTac Mllh Mnth 516.95 904 811anclng lion. 514 95 Balancing E Cradebook 515.00 664 Gradebook 810 . 00 81D French lt - Q 4 S80 $80.00 811 ish 1611 Span Spanish 1 4 4 sao,oo 580.00 807 En g lis h Inv.ders 95 English Invaders $16 516.95 809 Mun ch" ord 516.95 Munchworcl 812 312 Puss In in 0001 Doot S10.QO $30.00 all S13 Word hctory Factory 520.00 660 Hang - Spell S1 4 . 9S 514.95 90S MS Division Drill 14.95 906 Mulllplic. 514,9~ Multlplic. Drill 514.95 907 Addition Drill 514.95 514.35 90B . 95 90S Subtr'CII"n Subtraction Drill 514 $14.95 910 Simon ... . 14 .95 51mon Sa Says 14.95 9911 \ 1 Adding Fraction. \4.95 Fractions 5 S14.95 991Z \ 2 Pun c tu a tion 5$14.95 \4 .95 Punctuation EDUCATIONAL SerlCi Series on disk Comput" r Sclenc" Computer Science 00 130 pr.) H50 $350 HS Oiology p r ograms 1 5500 Biology PO (70 programs) $500 HS Chemistry (40 programs) pro gr~m .) 5 450 S150 HS sico (60 programs) programs) S475 US Phy Pliysics 5475 HS SAT Orill programsl 599 Drill /60 160 programs] $99 El e m. Social Sludl". pr . ) SllS Eletn. Studies (18 pr.) 5275 Elem. Science Ita progr.m.) SlH (18 programsl $225 Further French III p r .) 595 113 pr.] $95 Furlhe r Splnlsh pr.l SiS Further Spanish III (12 pr.] 595 $la l iUlcl 111 prc>grams) 595 Statistics (12 programs) ORDER IN C BLANK ORDERING To:: Am"ri American Peripherals To can Peripheral' III 122 Oangor Bangor Strut Street Lind"nhur.t. Lindenhurst. NY IIHI 11757 C/lfISlfTk1S Christmas card IIsls lists Investmen! records ipredit card records^ 516 · 126- 5849 516-226-5819 Ship 10 to:: Nlme Name Sireet Street To,.n. P Town, SI.IO. State, ZI ZIP and more i$39.95i Plene te 64K Please send your comple complete G4K Clillog. catalog. ITEM Over 600 program~. GOO programs. PR ICE PRICE OESCRIPTlDN DESCRIPTION hpeclly [specify disk Or or lap") tape] Info-Manager To order or lor our free tree brochure. brochure, call: (415)459-1333 f)L'a1iJf lrlQUII'lCS e lcome Deahn inquiries .... welcome SQFTffiMM -SB" fflfe NY S ta te Retiden .. l.a\ Charge 10 to My my c credit NY State Residents ;.25i ux tax Chor9" r edI t card COD VISA MASTER CARD COO add $1.00 S2.00 foreign orders add 52.00 Account ,■ 57.00 Accoun\ Shlppinq E«p. dU~ dale Shippinq Exp. To ta l Amount Total Signature .... 55 . . . .. . .. . S. 5 5. 5.. S . • I .75. S..1.T5,.. $5 . Commok k GENERAL LEOGER LEDGER • O'sk Disk PA Y ROLL SYSTEM ·• 0,51< PAYROLL Disk PAP E RCLIP 1w P,I • D uk PAPERCLIP |WP| Disk M 'F ILE •• D, uk M'FILE Dial C AR DCO PRINT E R INTE R FA c e CAROCD PRINTER INTERFACE •'Fram Fr gm E N _T ECH So f t w o .... EM-TECH SDltwnro $ 55.95 S55.95 59.95 -'1!:l95 45 35 45.95 4595 35.95 35.9!:l 39.95 29.95 25.95 *3S.95 4995 89.9::; S3.9S 8995 77,95 19.95 19.95 59,95 59.95 67.95 7 7 .95 SB 95 6895 S3.95 9995 9-'195 9*3.95 5095 ENTERTAINMENT • STUDIO 4 [MUSIC 5TUDIQ 6 64 |MUSIC MAKER) • OSk a.ek • B A Bi eS O F THE D IRT .• D 'sk BABIES OF DIRT Disk • GAME D ESIGN E R ·• O ,sk 6;. DESIGNER D.sk S CoSE Cass GRIORUNN E R • Cart. GRIORUNNER Cart TE M PLE OF APSHAI AP S HA I • O,a k TEMPLE Disk UPPER R E ACHE S OF APSHAI AP S H A I • c')' f J< REACHES Dwk CURSE sk CURSE OF OF RA RA •• Q, Disk A NNIHILATOR·• Cass. ANNIHILATOR Cobs. MOTOR MANI A ·• Coss. MANIA Cass. T E L E NGARD .• Cuss, TELENGARD Cos.*. 7f hO hn Ofl<::'B OfficialI F RO GGE R • D Sk & o o ... FROGGER [Ji.lfi C Cqbs. FORT APOCALYPSE APOC A L Y P SE .■ O ,Ok 6;. Dr-.t £J Cass RO B BERS OF TH E LO S T TOMB. ROBBERS THE LOST TOMB • Osk Usk .JUMPMAN sk JUMPMAN •• O Disk SWORD SWORD OF OF FARGOAL FARGOAL •* 0,,,,, Dik 6. s Cass Case. PA KA CUCA •• Dsk PAKACUOA Disk 6;. S Coss.. Cqbs APE CRAZE .• 0sI< tlsk S S Cnss. Cass. PE G ASU S OOYSSE Y • Dsk PEGASUS ODYSSEY Disk S S Cau.c" Cass. S UPERCUD A •• 0.;.: SUPERCUDA DiJ- & £i Co5S. CaS3. COMPE TITION PRO YSTIC K COMPETITION PRO.. .JO JOYSTICK A dd $2 .00 .. hipping Add 35.OO shipping 3-3.35 2.-'f95 27.95 19 95 1995 25,9 5 SS,SS 2535 259 5 1195 11.95 19.95 1995 19.95 "19,95 ilj i' . 1995 1795 Hundrods e avai l ab le ! !! Hundreds mor more ouoilnblc! CALL [B13] 7SB-BBBB OF) MAIL TO: - ■ S35.95 $35.95 27.9S 27.85 S5.95 25.85 2195 21 .95 2595 M.95 14 .95 14 _95 35 1<'1 1635 1695 32.35 22_ 95 16.95 91 S3 Mercedes Ave. • Arlete. CA 91331 SO?TWME SHOW us A BETTER PRICE AND WE'LL BEAT IT! r ./ VICreations VI Creations DAN CARMICHAEL, CARMICHAEL,ASSISTANT ASSISTANT EDITOR EDITOR DAN Keeping Time With The VIC fhe Commodore VIC-20 VIC-20 has aa realtime realtime clock. Fhe month's column, we'll we'll show you how how In this month's In program it to do everything from simply to program telling the time to creating timers for games. The Jiffy Clock The rea ltime clock that is sstandard t.mdn rd with w ith all VlC-20s VIC-20s realtime can be a very useful usefu l tool progr,lIns, tool for games, programs, etc. The clock, dock, which occupies three me mory lo lomemory ca ti ons, is called ca lled a jiffy clock aand nd is loca ted al by tes cations, located at bytes 160 th rough 162. through 162. Be fore we talk furthe r, let's take a look at the Before further, hile it's it' s running. Enter, the n RUN the jiffy clock w while then following short ma chin e language Innguage program ll machine program.. We' We'll usc machine language here so we ca n see the cl ock use can clock running at just about its rea e program p rogra m reall speed. Th The will display the three jiffy clock bytes (162,161 (162, 161,, 160) in the ce nter of your screen. To stop the clock, center press RUN/STOP-RESTORE. 1 FORA_828T0 846zREADBzPOKEA, B: NEXT FORA=828TO846:READB:POKEA,BtNEXT PRINT"(CLR}HiTI?="000000"iPOKE38628,6s 10 PRINT" (CLR) • 1 TI$-"I:"''',,,,,,,'' : POKE38628, 6: POKE38630 ,6: POKE38632,6 POKE38630,6:POKE38632,6 20 SYS828 SYSS28 828 DATA 165,162,141,228,30,165,161,141,2 30,30 838 , 30 , 76 ,60,3,234 838 DATA 165,160,141,232 165,160,141,232,30,76,60,3,234 the the speed is is not not the the same sa me as for for aa standard cluck dock (one (one "click" every every second). The The first first byte byte you you see sec displayed (the (the byte byte moving moving the the fastest) fastest) is byte 162 -- the low-order low*order byte of of the jiffy clock. This Thi s byte by te is is actually actua lly counting from 0 to 255 by ones. ones. It does this docs this in 4.266666 seconds. That That is, itit lakes takes 4.266666 seconds for it to count cou nt 1,2,3,...255, 1,2,3, ... 255, then a back again. back to zero to start (he th e cycle agai n. It It increments, increme nts, or counts, 60 times every second. That's why it's called ca lled a jiffy clock -- aa "jiffy" is 1/60 of a second. operations at The VIC performs perfor ms an number of opcrntions this times thi s speed. For instance, 60 tim es every second it checks the keyboard to see if any keys h,we have been pressed and updates the keyboa keyboard rd buffer bu ffer if neces necessary. cursorr blinking lso takes care of the curso bl ink ing sa ry. It aalso routine. rou tine. simple three-digit The jiffy clock is like a sim ple threc*digit counter. coun ter . Each time byte 162 goes through its cycle and returns to 0, it "clicks" or increments the next byte by te (byte 161) by one. And every time byte 161 runs 0 to 255 cycle, it increment incrementss th the run s through its a e nex nextt byte (160). Telling Time With The VIC Tl (time) fun functions transla The VIC's TIS and TI ctio ns are translations builtt into th the tion s of the jiffy clock. TI$ and TI are buil e both Commo BASIC that is in bot h the VIC-20 aand nd the Comm o64. The Tl$ TI$ function function returns a six*character six-character ddore o re 64. string in the sa same format as a stand standard me format ard clock: What you are seeing displayed is not actually string TheTI function returns hours, minutes, seconds. The the numbers runn ing by in the dock, TI functi on return s running clock, but the value tenths seconds. screen lue in ten ths of seconds. screen POKE values of the numbers. For example, a va the screen POKE val ue of @ isO , the value of A is demonstration n of these two functions, For a demonstratio value @isO, and run (sepa (separately) following short short 1, rately) the two following enter and 1 , etc. programs. When yo you enter demonstration As you ca n see, the clock runs very fast, and prog ram s. When u ente r the first demonstra tion can October 1983 1983 COMPUTEI'.Gonrre COMPUTED Gazette 127 127 October program (TI (TI$), $), enter the current time in the format HHMM SS , where HH HH:::: MM:::: HHMMSS, = hours, MM = minutes, = seconds seconds.. For example, to enter the time and SS ::;:; a.m., enterr "033000". 3:30 a. Ill. , ente The second demonstration nd demonstratio n program emulates Th e seco diss~ a stopwatch. Press Fl to start, F3 to stop and di play play eelapsed la psed titime. me. TI$ Demo TI$Demo 10 PRINT"{CLR}[DOWNjENTER PRINT" {CLR} {DOWN} ENTER CURRENT TIME" :P TIME":P FORMAT:: HHMMSS":INPUTTI$:PRINT HHMMSS":INPUTTI?:PRINT RINT"IN FORMAT "[ 5 DOWN}" "[5 20 PRINT"{8 GHT}" ;TI$"{UP} ":GOT020 PRINT"[8 RI RIGHT)";TI$"fUP)":GOTO20 TIDemo TI Demo 10 PRINT"{CLR}{4 PRINT"[CLR][4 RIGHT) RIGHTjVIC STOPWATCH":PRI 10 VI C STOPWATCH":PRI NT"{ DOWN}PRESS F1 NT"[DOWN)PRESS Fl TO START":PRINT"PRES S 2 DOWN}" S F2 F2 TO TO STOP STOP {12 DOWN)" 20 GETA$: GETAS:IFA$="{Fl}"THENTI$="000000":PRIN 20 IFA$ =" {FI} "THENTI$="""""00" : PRIN T"{2 DOW N}TI ME IN SECONDS -=(DOWN}":GOT IDOWN}" :GOT T"[2 DOWNjTIME 0'. GOT020 040 30 440 0 50 60 713 70 B0 80 913 90 GOTO20 PRINT"{2 " {UP} " PRINT"[2 RIGHT}";TI/60 RIGHT]";Tl/60"[UPi" GETA$!lFA$="{F3j"THEN70 GETA$: IFA$=" IF3} " THEN70 GOTO40 GOT040 PRINT"{6 DOWNjPRES5 DOWN)PRESS A A KEY TO REPEAT" GETA$:IFA$= "" THEN8e GETA?!lFAS=""THEN80 GO'I'010 GOTO10 can see, w when VIC's Tl$ As you G ill sec, hen you use the VI C's T1 $ functions, 1983 COMPUTEIS Gazette Octobar Oc)oborl983 40 40 FORA=0TOQ:GOSUB2:IFA=226ORA=248ORA=270 FORA=0TOO : GOSUB2:IFA= 2260RA= 2480 RA z 270 THENA=A+10 50 POKESC+A,O:POKECO+A,C:NEXT:PRINT"lBLK} POKESC+A,O:POKECO+A,C:NEXT:PRINT"(BLKj 50 {9 {9 DOWN}" DOWN)" SYS7168:PRINTTAB(7)LEFTS(TI$,2);":";MI 60 5YS716B : PRINTTAB(7)LEFT$(TI$ , 2 );":";MI D$(TI$,3,2);":";RIGHT${TI$,2)r"(UP]":G D$(TI$, 3 , 2 );": "; RIGHT$(TI$,2); " (UP}":G QTQ60 OTO60 FORA=7168TO7199:READB:POKEA,B:NEXT 300 FORA=7168T07199 : READB : POKEA , B : NEXT PRINT"£CLR){DOWN] FORMA 305 PRINT "{ CLR)looWN} ENTER TIME IN FORMA T : " : PRINT II {DOWN I3 HHMMSS T:":PRINT"(DOWN HHMMSS"" PRINT"{2 DOWN)} WHERE HH=HQURS HH=HOURS":PRINTT 3310 l1!l PRI NT " {2 DOWN ":P RIN TT AD (7) "MM=MINUTES" : PRINTTAB (7) "SS=SECO AB(7)"MM^MINUTES":PRINTTAB{7)"SS=SECO NOS" NDS" 320 INPUTTI$:RETURN 32 0 INPUTTI$ : RET URN 7168 DATA 160 160,0,174,104,144,173,105,144 716B ,0, 174 , 104,144 , 173. 10 5 ,1 44 7176 71 76 DATA 1157,0,150,157,0,151,169,0 57 . 0 . 150 ,157.0,1 51 , 169 . 0 170,157,249,150,232,224,9,208 77184 1 84 DATA 170,157,249,1513,232,224,9,208 248,200,192,12,208,228,96,234 7192 DATA 248,21313 .1 92 ,12, 2138,228 , 96 , 234 wantt to study line 60 of the You might also wan RIGHT$ program. Using the LEFT$, LEFTS, MID$, and RIGHTS commands manipulate (used com mands to ma nipulate strings (u sed here to separate hours, the separa te the ho urs, minutes, and seconds in th e ry useful programming prog ra mming techjiffy clock) can be a ve very tech nique, aand nd is well worth learning learning.. This dock ld also be turned into clock program cou could iF/THEN. For an alarm clock with one easy I.FrrHEN. instance: TI$ = "XXXXXX" THEN POKE 36878,15: 10 IF TIS POKE 36876,200 "XXXXXX" here represents represe nts the time, in hours, minutes, and seconds, whe'.l when you wish the alarm clock to ring. create Using the jiffy clock to crea te a "countdown games, timer," as is often found in ga mes, is actually the very easy. Because Beca use th e jiffy dclock ock is able to count forward cannot directly oorr run forw ard only, it ca nnot be di rcctly pro proow n. However, Howeve r, yo u ca n pro proggrammed rammed to count ddown. you can gram a countdown timer by subtracting the values stant (a of the dock clock from a con constant {a number value that doesn' doesn'tt change), then using the difference as your counter. example, counte r. For exa mplc, enter this program and RUN.. RUN Program 2: Countdown Timer -- Whole Seconds 11 PRINT"(CLR)[2 PRINT"{CLR}[2 DOWN}" DOWN)" 113 = "00000e":A=30 10 TI$ TI?="000000":A=30 20 PRINT"COUNTDOWN TO 0: "TAB(l 5)A-VAL(TI$ 0:"TAB(15)A-VAL(TI$ );"(LEFT} ),- "(LEFT) {UP}" tUP)" IFA-VAL(TI5)<=0THEN50 30 IFA-VAL(TI$)< s0THEN50 GOTO20 40 GOT020 50 PRINT" [2 DOWN) TIME EXPIRED II I" PRINT"[2 EXPIREDll!" Here we set the jiffy d clock oc k to zero (line 10, TI$::;:; e A (which rep re pTI$= "000000"). Then the variabl variable resents a consta constant value 30) is subtracted fro from nt va lue of 30) m the value of the clock (VAL (TI$». (TI$)). As the dock clock value gets larger, the difference in subtraction causing ffect. You gets smaller, ca using the countdown eeffect. can change the variable A in line 10 to create a timer of any value you wish. Because this timer TI$ va variable uses the TIS riabl e as the subtrahend, it will decrement by a va lu e -of s. value of whole second seconds. If you wish to create a countdown timer that will work with values in fractions of seconds, you ca n use the sa me programming technique with can same the TI functi on. Remember tha p roper function. thatt to get a proper time splay, TI must always be divided by 60 lime di display, (TI (TI / 60). Enter and RUN this program: commodore 64$199 95* COMMOOORE only COMMODORE 64 64only $199.95 5199.95 * onl1541 (me tS-il Disk Oriw Drive II at ani • •itt on» 1525E Print Printer ALL FOR ALL FOR SZ79.95 •* with the pur~hII5e 01 thepurchawof S299.95 S779.85 COMMODOR E 64 on ly COMMODORE 64only •* with thl the p~rth"l purchati ~f '~$995 '~iISi'~'!O~! O~'i!~~"~~~~~~~~~~~~~ oub 154! Disk Drive n ani one 14·· 14" color ntonito, monitor 1101 17D1 Program 3: A LL FOR ALL FOR Co~ntdown Timer -- Fractions Of Seconds Countdown 1 PRINT"{CLR}{ 2 DOWN}" PRINT"(CLR}(2 10 TI TI$="000000"fA=30 1" $-" ""I2I"""":A- 3" 2121 {2 DOWN}" 20 PRINT"COUNTDOWN TO ,,: 0:[2 25 PRINTTAB(5)A-TI ! 61211"{LEFT} "{LEFT} {UP}" PRINTTAB(5)A-Tl/60; 30 IFA-TI IFA-TI/60<=0THEN50 3" /6121K ..... 1.1-.11 b.il,·i. I, ,lt ... Iin, I'll n 1US Si .. WHu 11.I~ Vidio Pitt WK , 321.15 339.95 FREE WITH PURCHASE 01 each ZBO card. 80 column, 40 column or Video Pick 64, you receive the tallowing: Word Master word processor software Mailing Lilt software T»l t c 0 m m j n iiciti,a m 10 ftw a re ,, Dm to tht trimrn-1. .: '-. 1-: ol i pioriutti, floodi -i" tubftct to ^..ii Trl(. 67 34 77 Toll Fitl Phonr Orittri Tollfni IhCAi 'WO 2!i7 711.1 euu ·UI :.'i · ID(~ sCSi 1,., ~I CAl CA: IOO PM MQ. Order II. 1-1 .■!!-.. N o.i j 1, ■ vI J:OO 7:00 AM I. id Ii d :QO OlU'M Mon ·SoI Sal I CA 90011( i-fl . ■ M:-1= ?1E5o 0.ford Art LniAnjtln 90003 Phont [211)7391130 Cjbit rjLVFlAVLSA COMMODORE USERS Join the largest largest,, active Commodore users group. Benefit from from:: — Access to hundreds of public domain programs on tape and disk for your Commodore 64, 64, VIC 20 and PET/CBM. ve monthly club magazine — Informati Informative THE TORPET. Send $1.00 for Program & Inform ation Catalogue. Information (Free with memb ership). membership). Membership Fees for 12 Months Canada U.SA U.S.A. Overseas — — — $20 $20 Can. Can. $20 U.S. U.S. $30 U.S. Toronto Pet Users Group Department "G" 1912A Avenue Road Road,, Suite 1 1 Toronto, Ontario, Canada M5M 4A1 Toronto, * LET US KNOW WHICH MACHINE YOU USE * , - t********************: For Commodore 64 '" FREE :«t ** VIC USERS ** ::« « « « « { * ATTENTION ATTENTION • r;o $ * VIC USERS • { FOR FR FREE WRITE FOR EE CSI, CATALOG OF V VIC CATA LOG OF IC 20 CMB 64 PR PRODUCTS and e MS 6d QQUelS SOFTWARE •• SOFTWARE • t « :* :t PROGRAMMING AIDS AM MING A IDS • PROGR • OPERATIONAL AIDS AIDS SUPPLIES •• SUPPLIES $28.50 :* it (FLA RES RES ADD 5% SALES SALES (FLA AOD 5'\0 JULY ISSUE ONt ONLY!! JUL Y ISSUE r~ « « « summaries, to mailer accounts. Eo separate ontfios rTAX} ....) * Ol~_~"~'~'!!!:E!~10:2J 15 :$ APRil : I1 PRINT PHINT REPORTS MENU 2 INCOME INCOME MENU 13.. OPENSE EXPENSE MENU 41 BALANCE BALANCE CHECKBOOK MENU 5 BUOCET FORECAST MENU BUDGET I/FORECAST II6 AUDIT ACCOUNTS ACCOUNTS MENU 1. 7 AUDIT DUAllS DETAILS MENU 8B END RUN J .- « i « « ■K We also do custom cuslom programming * it .. lor th the VIC. Send Send uS us a a description description :? :* for e VIC. « «* «** .. in casselle cassette torm. form. Our catalog is In For the ihe VIC 20 .. * :£ COMPATIBLE C OMPATIBLE SYSTEMS S YSTEMS INCORPORATED IINCORPORATED P.O. 8m.: Box 2070 ·• Dept. G G P.O. Saratoga, CA 95070 Sarmoga. (4081 255-2024 .« I ~ ASTER MENu l WHAr WHAT a n 00 DO YOU WANT WAM '_ T_ 20™ VIC - 20 TM MEMORY EXPANSION 49 «* « * :* DYTEKK DYTE « * (813) 323-6139 (813)323-6139 :* PO. po. BOll241 , Pinellas Park Fl33565 Bo«241.Pinellas Park FL33565 95 High Quality GOLD Contacts 90 90 Day Warranty Warranty Phone Phone Order Hours: Hours: 10 10 AM AM -- 99 PM MST MST Daily (303) 245-9012 (303) ASSEMBLY TECHNOLOGY TECHNOLOGY ASSEMBLY 2692 Hwy Hwy 50 50 Suite Suite 210 210 2692 Grand Grand Junction, Junction, CO CO 81503 81 503 ColaaQa Rssiaonts odd Sales To- .. * S 35 8.~ "'■Family Family Finances" Program S3595 On 1I~II · qu . ';ly ~ . kel1. hinh-r|ualiry 5 11~ 4"" I"'PI>Y floppy d, riiskeCIa & .... Y·, o . ...nde<. ,.nd tn."",.1. & 50 ~"1 puQQ easyunder&tnnd manual ^* $S 2 9_5 Mail cI ... ck 01 chock or m_y money o,de. order 10: to: «* « * iOit WIi. i 19123 Hamlin Stree t ~ « * 19123 Hamlin Street Suite 4, Dept P6 Reseda . CA 91335 Reseda. ; * TELECOMPUTING POWER VIC·- 20 FOR VIC COMMODORE 64 '■Smart-Term" does more Irian convert "Smar t·Tarm" doas more Illan convort 64 to 10 aa null null terminal, l ermlnal, itII your VIC or 64 givas gives you you features realuros other oIlier programs — — A PET PET to 10 ascii conversion convorslon lest 10SI mode modo A Transmils control characters Transmits all ascii ascII eonuol cllaraClor' — ascii codas codes Receivos 92 ascii Receives — — — Tranamds TransmilS 122 122 ascii eKIf codes Has Has repeat key key feature 1081U'0 Allows you \o 10 enter enlor and save lour perma. Allows perma nent messages nenl mes.sages (up (uP to to 80 80 characters ctlaraCiefS each) each) (or lor one ono key. key, transmission uansmis.sion of 0 1 coda, code, pass pass· word, names. messagos, etc. OIC. word, names, messages, Easy to to read, lead. smootn smooth scrolling characters — Easy Fully menu menu driven driven (or lor reliability reliability and and ease ease — Fully of 01 use use Transmits and receives receives in In separate seperSiO cha Clla· — Transmits raCleI colors colors (selectable) (selectable) racter — Many Many other OIlier features lealuras One o( 01 the tile Beat besl telecommunications leleeommunielliions programs Pfoorams Ona available. "Smart-Term" "Smar1' TOI'ITI " converts eonYtlns your your VIC VIC or Of 64 64 available. inlO aa SMART TERMINAL TERMINAL Requires Requlras minimum minimum 3K 31< into Manual onI only, {qfeditod '0 lo purchase). M.nu.1 y. lclemf!lO(ln Inc Inc 14 .50 14.50 SEND MONEY MONEY ORDERS ORDERS OR CHECKS CHECKS TO: TO; SEND Box 8123-E 6123·E Box Understanding Sound On TheCommodore The Commodore 64 1 Part 1 Gregg Pee le, Programm in g Assistan Peele, Programming Assistantt This seri es will explore the Co mmodore 64's series Commodore e sound features -- the th e best found on versatil versatile any home computer. This month, month , there's a utility program which makes it much easier to design sounds on the 64 and add them to your own programs. programs. The author, an editorial prog programmer for COM PUTEr's Gazette, COMPUTED Gazette, also is IS a raduate student in music. ggraduate In th e premierepremiere issu e of CO MPUTEr's Gazette ("Enthe issue COMPUTEI'b ("En lilivening ven in g Programs With Sound"), II wrote of the mi'lny inating lIuses ses (or many fasc fascinating for sound effects in progrttt> Gazelle Oc!ober October 1983 • ADSR envelope. The SID chip provides pro vid es a means men ns to define the way a sound cha nges through time. changes This change is cont roll ed with iln controlled an ellvelope envelope generator. The attack ecay sections are con t-rolled within attack and d decay controlled one byte by te -- each using four bits (there are eig ht eight s, oorr bits, bits. in each byte). Th e vn lu es binary digit digits, The values termin e th e rate that the volum e within this byte de determine the volume lue for a ttack 0 1' changes through time. A low va value foraltackor deca y in d icates a short duration fo decay indicates forr that particular secti on . A larger va lue increases the duration of a section. value pa rticu lar section particular section.. n ilnd po rtions of the eenn~ The sustai sustain and relense release portions vel ope al so share one byte. by te. Howeve r, sustain velope also I iowever, does not relat e to na time value vil lu e but to a volume relate leve l. The release sect io n, like li ke attil ck and decay. level. section, attack decay, refers to a rate of change, and values for this sec~ sec tion chnn ge th e amou nt ooff time ilallocated llocated for this change the amount change to OCClll'. occur. Admitted ly, aallll of thi under~ Admittedly, thiss is not easy to under sta nd at first. If you type in and run Prog ram I, stand Program 1, yo u' ll see and heill' mated ddemonstration emonslrat-ion of you'll hear an ilni animated the ADSR pe. ADSR envelo envelope. All Together Now Producin g sou nd s with th e SID chip requi res thnt Producing sounds (he requires that certa in registers (memory locatio ns) wi thin the certain locations) within chip contnin lu es whic h represent the contain va values which wave form, volume, and ADS R envelope. Also, waveform, ADSR there must be some provision prov isio n for setting the leng th length of the th e note mman ds in BASIC Me note.. POKE co commands are used to place pla ce va lu es for fo r waveform, waveform , volume, and ADSR values ADSR into their app ropriate places. places. appropriate The length of the so und is de termined by sound determined RINEXT loops as tim ers . Th e using two BASIC FO FOR/NEXT timers. The larger the value va lue for ps, the longer th e leng th lor the loo loops, the length rst ooff the particular portion ooff the sound. The fifirst loop determines th e leng th of time allott ed fo e the length allotted forr th the nd, and the seco nd loop sustain portion portio n of the sou sound, second ddetermines etermi nes the lengt h of time allo lted for the decay length allotted por l'i o n. The wavefo rm by te turns the sou nd on. portion. waveform byte sound When turned orf, begin s th e decay, which end off, it begins the endss th e soun d . One bit of that byte, refe rred to as the the sound. referred p urpose. gate l;it, bit, is reserved for that purpose. Here is the sequence of events: events: first first the values lum e iland lld ADSR eir proper prope l' for vo volume ADSR ilre are put in th their mmand. Next, you lurn places using the POKE co command. turn on the sound by tu rning on the waveform byte by te turning tc bit se his byte will alwa ys with the ga gate sett to '1. 1. (T (This always contai n an odd valu e sin ce th e ga te bit contain value since the gate bit is the lowest by te.) O ur FOR/NEXT bit in the byte.) Our FOR/NHXT loop is now used to provide a deln)" rUll s while the attack, delay, which runs ons execu te . When th is ddecay, ecay, and sustain secti sections execute. this ishes, we \'ve th en rep la ce th e vil lu e th a t wa loop fin finishes, then replace the value that wass in th e wnvc(orm lent va lu e the waveform byte with an equivn equivalent value minu s o ne. This resets th e gnte bit nnd sig nals minus one. the gate and signals the (he releilse section to begi n. The vol um e decrea ses release begin. volume decreases unt-il the so u nd is fin a lly si lent. Anot her FORI until sound finally silent. Another FOR/ tion ad equate NEXT loop allows the release sec section adequate tim e to execute time execute.. An Example Program Does all icated? ail of thi thiss sound hopelessly compl complied ted? To illustTilte the waveforms, wilveforms, pitches, p itches, an d the best illustrate and enve lo pe genera tor, II have included in cluded ila program envelope generator, th .. t <1allows l1ows YOLI ma ni pu late all the parameters that you to manipulate mentioned and actunl1y actually create your own sound routine for liuse se in ot her programs. p rograms. To use ProgTam other Program 2, merely enter the values fo ume, waveform, forr vol volume, A DSR (attack, ddecay, ecay, ssustain, ustain, release), and values va lues ADSR gth of the susta in nnd lcilse. (Refor the len length sustain and re release. (Re member, wit hin the ran ge of va lu es given, the within range values represent' either low volun1Cs lower values represent volumes or shorter lengths leng ths ooff lime .) time for each section section.) PITCH C m k F Fit & GB B em B HIBH BVIE LOH BTTE 33 135 u m 53 51 35 134 42 44 47 58 SAUTTOOTH^M 82 133 1ST B8 56 sa 63 93 tsa 75 1TTBCC BUTE 8-15? 8 I KATE B-15? T UDLUH 1-15? 12 RftTE B-15? 5 VOLUME 1-15? Ifl K 17,33.08 123 ? IT LEM&TH O* .1 SEO)»)? 38 Yo u also must mu st ente lu es to define the You enterr two va values LEHGIH <» .* BEC0»>? 25 ? 33 es can be dderived erived pitch of the tone. These pitch valu values from the table of values displayed on the screen or from the tables in the Comlllodore ProgramCommodore 64 Program PnJ~'"III" (wtii/II II demonstrates rl~'u/UlI;;1 mk~ lire" IIDSR Program ./1 visunlly visually mill and audibly the "ADSR Iller's Reference Referellce Gllide mer's Guide (pages 384-86). n/t1~" I1J1I''' of n sound, sOIl1I1I. . envelope" ofa When you arc are prompted with the word "Again?", press UN" ll arc plea sed with the "N" if yo you are pleased so und that you have produced, produced , or "Y" if you wish wi sh sound e sound. If yo u press "N", to continue altering th the you a su broutine will be created that you ca n add to subroutine can your own programs. program s. You will be prompted for th e starting line number aand nd th e inc remen t th at the the increment that es for the subroutine. you wish to leave between lin lines ITi r COMPUTE!'s COMPUTERS GazeHe Gazette Subscriber Services , J Please help us serve you belter. better. 11If you need 10 lo contact us for any of the reasons listed below, write to us at: COMPUTE!'s COMPUTE !'s Gazette P.O. Box 961 961 Farmingdale, NY11737 NY 11737 or call the Toll Free number listed below. Change of Address. Please allow us 6-8 weeks ta to effect the change; send your current current moiling mailing label along with with your new address. Renewal. Shou ld you wish to renew your Gazette Should subscription before we remind you to, send your curcur rent moiling th payment or chorge mailing label wi with charge number or call the Toll Free number listed below. New Subscription. A A one-year (12-month) (12-month) U.S. subscription to COMPUTErs COMPUTERS Gazette Gazelle is S20 (2 years, S36; 3 years, $54 $54.. For subscription rates outside the U.S., see stoff slaff page). Send us your nome name and address or call the Toll Free number listed below. Delivery Problems. If you receive dupli cate issues duplicate of COMPUTErs COMPUTEI's Gazette, Gazelle, if you experience lote late dede livery, or if you hove have problems with your subscription, pleose call the Toll Free number listed below. please COMPUTE!'s COMPUTERS Gazette , - 800-334-0868 In NC 919-275-9809 -. Prtlsrmlltlllllh's Program 2 mokes ;1 it CI1siu easier 10 lo experiment with SOI/lI(/5 sounds CJ/I on Ille the 64, {mrllds /l ndd your 011111 pnlsrn m:; . 64, and let* yO you mid soumis sounds la to your own programs. Then your finished sou nd routine will appear on sound the sc reen. (Be fore you type "N", make ssure ure you screen. (Before have saved the origi nal program, because becau se it will original sed .) You Yo u may now use thi be era erased.) thiss new sound routin e in any program prog ram oorr save it oonn ddisk isk or tape routine for future use \ use.. One Small Step We have taken only the first step toward underunder standin g the co mplex ities and possibilities of the standing complexities SID chip. The program progra m uses only oone ne of the ComCom ree voices, and we have ye modore 64's th three yett to disdis me advanced ilpplica lions of the cuss so some applications [lie SID chip' chip'ss features. However, we have taken a large step in Oll uncove r the mechanics of sound synourr quest to uncover syn thesi thesiss on the Commodore 64. 64. See prograllllistillgs pnge 154 Sa' program listings all on page 754.. •W Oclober PUrEI', Gozette October 1983 COM COMPUTE/; Cozetla 133 SpeedingUp Speeding Up The VIC Don nt Editor Dan Carmichael, Assista Assistant One animation technique frequently used in BASIC games is to repeatedly PRINT characcharac ters on the screen. This article shows how an easy-ta-use easy-to-use machine language routine can speed up this process, and even make your keyboard respond faster outside of programs. If yo u're writing games or programs program s which use you're the keyboa rd to move objects around the screen, keyboard the lack of speed may be you yourr biggest complaint. Howeve r, if you' re us ing the GET statem ent to However, you're using statement m ove things about, th ere are ways to increase in crease the move there speed grea tl y. Th is is done by manipul ating th greatly. This manipulating thee keyboard "con trol s" w ithin the VIC-20 computer "controls" within itself. Keyboard Controls -- How They Work Firs t, to make ssure ure yo ur VIC is set no rmally for First, your normally tratio n, you might want to turn it off thi thiss demons demonstration, and th en oonn again to cl ear it. then clear bnr, aand nd continue to hold it Press the space bar, down ill keep movin g across the down.. The cursor w will moving screen because becau se the opera/illg rol operating syslclI1 system -- a cont control progra m ins id e the com puter - tells the VIC to program inside computer-tells con tinu e repeMing is process, eve n tho ugh you continue repeating th this even though pace bar bnr oonly nl y once. Now press an y pressed the sspace any alpha betical key, and con tinue to hold it down. alphabetical continue We'll use u se th e A key hhere ere (and from now on) for the case ough you con tinue to ease of reference. Even th though continue ho ld it ddown, ow n , the A w ill no peat ititself. self. This is hold will nott re repeat beca use the only keys tha th e VIC is programmed prog rammed because thatt the to re peal are th e space bar, INSERT/DRLETE, INSERT/DELETE, and repeat the the two curso cursorr control keys keys.. Clear the screen by pressing SI-IIFT-CLRI SHIFT-CLR/ HOM E, and th en enter POKE 650, 128. Memory HOME, then 650,128. th e opera ting system w hi ch keys location 650 tells the operating which to repeat. Normally No rmally it is Sc setI to 0, which allows 134 COMPUTE!'. O~ rClber 1983 COMPUTEIS vClzeffe Gazette Oclobe- on ly the afore men tioned keys to repeal. e only aforementioned repeat. A valu value of 128 allow peat. Now if you allowss all the keys to re repeat. repea t as the space bar did. press the A, it will repeat POK Ed to 128 for now. now . Leave location 650 POKEd Speeding Up The Repeat Press and ho ld the A key a few times, and notice hold that.there that there is a pause o off a fraction of a second before it sstarts tarts to repeat. re pea t. This pause isconrrolled is controlled by memmem oory ry loca tion 652, which is a COli liter. When yo u location counter. you press the A key, this location contains a 15. Then it counts backward, in ssteps teps of ones, until it reaches 0, w hi ch signa ls which signals the computer to begin the re peat repeat process. To sshorten horten the pause, you might think yo u you could simply POKE a number less than 15 into location 652 becau se of th e way the VIC's VI C's 652.. But because the ooperating perating sys tem works ("("sweeping" swee ping" throu g h the system through computer 60 times eve ry second resetting various va riou s every parameters, etc.) etc.),, location 652 will quickly be changed back ba ck to 15. However, you ca n use a pro procan ggram ram that w ill keep this loca tion permanently will location loaded with a 0, thus eliminating the repea repeatt pause. Enter Prog ra m 11 -- a BASIC loader loa der thai ll POKE Program that wi will a sh ort ma chine language program p rogram into the casshort machine cas sette buffer (an area ooff usa ble memo ry). Ve rify it usable memory). Verify ca refully, the n run it by eentering nte ring RUN 59998. Now carefully, then the machine language program is POKEd into memory and ready to run. Enter SYS828 to sstart tart the machine lan guage program. language yo u will notice Now if you press the A key, you tarts re peating immed iately . With location that it sstarts repeating immediately. 652 cons ta ntl y reset to 0, there is no "countd own," constantly to(), "countdown," and thu pagc 155. 155. CD © of a second. But aga in, we Glll again, can load a program to circumvent this problem. Type in Program 2, which is another machine language program. This program modifies both locntions hole locations (651 (651 and 652) and speed speedss up the w whole lly, then repeat process. Verify your typing carefu carefully, e ma chine language enter RUN 59997 to POKE th the machine COMPUTErs Gazette rt th e program into memory. Enter SYSB28 SYS828 to stil start the e letter machine language program. Now press th the Toll Free Subscription Order Line A, and noti ce how much fnsteritrepeats notice faster it repeats.. Compare 800-334-0868 th is to the normal sspeed peed by pressing the RUN/ RUNI this STO P and RESTOR E keys simultaneou sly (to In NC 919-275-9809 STOP RESTORE simultaneously stop the machin e lan gua ge program) prog ram) and th en machine language then p ressing th e A key. key. pressing the Program 2 ca n be added to your yo ur own BASIC can prog rams and will help sspeed peed thin gs up for you programs things you.. However, two things shou ld be noted about should AIR' SHIPPING WITHIN 2 2 DAYS COMSTAR SfAIHthis First, initial th is program. Fi rst, after the ini tial BASIC program prog ra m COM'\TA NO S1.00 FOR CoMPLHE SEND COMPLETE LIST ha e ma chine language program progrnm hass been run, and th the machine COMMODORE has been ssuccessfully uccess full y POKEd into memory, you PHINTEH IBO (80 COLUMNI COLUMN] .................... 225 may delete lines 59997-59999. They aare re not GX 100 PAINTER PRINTER INTERFACE IPARALLELI (PARALLEL] ............ •. .. ... . 59 needed. Second, because the machine language TOIL LABEL [T] (VIC OR 641 B4| ........................ 17 TOTlLABElITIIVIC ru ns in the cassette buffer, you cannot program runs GRIORUNNER GRIDRUNNER ICIIVIC [C] [VIC OR OH 641 64] .': .. .............. .. .... 29 tte recorder whil e the machine lan lanuse the casse cassette while ElEPHANT ELEPHANT DISKS DISKS IBOX [BOX OF 101 10] ...... .. .............. 21 guage program is run ning. Press RUN/STO Prunning. RUN/STOPVIC RABBIT lEA STERN HOUSEIIVIC [EASTERN HOUSE) (VIC OR 641 64] ..... .. ... .. 35 RESTORE to disable the program before using usin g HES HES MOOEM MODEM IWITH [WITH SOFTWAREIIVIC SOFTWARE] |VIC OR 641 64) .......... 69 [C| [VIC OR 641 64] .. ............. 29 HES MON ASSEMBLER ICIIVIC the reco rder. recorder. OUST COVER ..................................... 7 7 Program 3 is optional. It is a program that QUICK BROWN FOX ICIIVIC [C] [VIC OR 641 64) .............. .. .. li4 54 ba ll character uses the GET stiltemcnt statement to move the ball (C HR$ (81» (CHR$ (81)) around the screen. It is written to COM-64 VIC-20 peed-up routinc utilize the machine language sspeed-up routine.. WORoPRo • 10) 69 16K RAM 59 WDRDPR0 3 3-ID] VlDEOPAK I/IOEOPAK 80 180 |B0 COLUMN) COLUMN] 155 CARDBOARD 159 13 SLOT EXP.) J:l CAHDB0AR0I3SL0TEKP.1 33 ur existing BASIC pro proYou can either add it to yo your l·BO Z-SO VtoEOPAK VIHEDPAK [WHII (WITH CPM) CPM] 259 VIDEOPAK 140/80 COLUM 2S9 NSI COLJMNSI 89 gram or build bui ld your own BASIC program around itit. 6502 23 H ESWRITER Ie! 65D2 PROF. PRDF. oEV. DEV SYSTEM tT) (T) HESWBITER jCl 29 * i COMPUTEt's Gazette 800·334·0868 Ne I COMMODORE COM-64 How To Use Program 3 .I , Cmefully Carefully type in Programs 2 and 3. 3. If you wish to save memory by changing the lin e line numbers in o so, but re mcmber to Program 3, 3, you may d do remember cha nge the correspolI(l;IIg change corresponding GOTOs, etc. If you wnnt want to change the characte at moves arou nd the characterr th that around ed by the variable H in line lin e scree n, this is controll screen, controlled 60000 60000.. To run the program, first eenter nter RUN 59997 to POKE the supporting machine language routin e routine into memory, then en te r RUN 60000 to execu te enter execute ROBBERS OF LOST TOMB ID.T] |D.T] LASER STRIKE IT) (Tl ELEMENTARY 64 IBooK) (BOOK) 64 fORTH FORTH IC |C)) JUMP MAN WAH 10.T) |D.n KINOERCoMP KINDERCOMP 101 |D| FORT APOCALYPSE APOCAlYPSE (O.T) (O.T| lORK ZORK II 101 [ill FROGGER (O.lt (D.T| ANNIMLATOR|T| ANNIHILATOR In TEMPLE OF APSHAI APSH Allo.TI |D.T| C C •■ CARTRlOG.E CARTRIDGE VIC-20 21 21 TURTlE TURTLE GRAPHICS IC) |C] 22 VIC FDRTIIICI FORTH |C| 14 CHopumR CHOPUFTER ICI (C) 46 SHAMUS ICI SHAMUS|C| 29 ORPION Ie) SCOflPJON |C| 2fl SC 23 SPIDER CITY ICI |C| 26 SWORD GOAl[T) K ...vii!;d Of in FAR ■■',!:-mm |,| 21■■, 29 KIDS AND TH£ VIC (BOOK) THEVIC(BODK) 26 UIC VIC GRAPHICS IBOOKI 16 18 NEWPORT PAIJSTICK PROSTICK 29 TYPE ATTACK ICI |C| D T· •• 0Sl In., D • DIU DISK T ■ tUsHn CASSETTE ' MOST ITEMS ~ " 29 46 -16 33 J:l 29 29 29 " " 23 17 12 23 29 800-556-8803 ORDERS ONLY: 800·558-8803 or lind »nd Uta chick Of or lI\OI'I,y mnnsy ord,r. ordtr. VISA. MC Idd idd P.O. BOX 1730 GDlETA.CA931)8 1a. Shlpplng-S2 P.O.BOX G0LETA.CA93116 3' 3'/=Shlpplng-K IIIr lor laltwar. loltwire Itlll |call lar lor 18051 964-4660 hlfdwm~ Cllllidd COD Iadd dd S2.5o. 9B4-4G60 hirdwinl. Call! idd fI% S% tn. tai.COD I2.». October 1983 COMPUTE!', 135 Ocloborl983 COMPUTEIS Gazelle 135 NEWS& PRODUCTS Two-Keystroke Commands ma zes fo mazes forr the keys tha thatt will lead him to the Sh ad ow. Shadow. The game, w h ich is available on cartridge which fo ves tforr $39.95, requires an in invest ment of time aand nd practice to K machin e la nDisk SUI'porl Support,, a 1 1K machine lan ter. mas master. guage ex te nsio n tha extension thatt adds 12 HES also is introducing Coco nd s to the VIC-20 or 2, a ga nnew ew comma commands me that teaches the fungame fun Co mmod ore 64, is available from ddamentals Commodore ame ntals ooff computer game l-I H & & H Enterprises. esig n, fo nd 64. ddesign, forr the 16K 16K VIC a and Wi th the program, p rogram , yo u can With you Coco 2, w hich in t-rod uces the which introduces SAVE, SA VE WITH REP LACE, SAVE REPLACE, ser to con t-rol of color, so und , uuser control sound, AD, VERIFY, DELETE, aand nd LO LOAD, weapo ns, aand nd objects, as well as weapons, RENAME dis k files with two disk nd ga me speed, is ava ilscoring aand game avail keystrokes . Other two-keystroke able for $39.95 for th keystrokes. e VIC ver verthe commands allow you to LNIN fo r the Commossion, ion, and $44.95 for Commo ITI ALlZE, FORMAT, FO RMAT, oorr REITIALIZE, RE do re 64 version. dore NAME a ddiskette, ;ske tte, EXECUTE HUlllall engilleered Human Engineered Software an d progra m on the dis k, print and program disk, 71 Park UlIIC Lane ERRO R messages to the screen, Brisbane, ERROR Brisballe, CA 94005 and list the dis k di recto ry w ithdisk directory with out affecting what's w hat's in mem ory . memory. hich is comDisk Support, w which com p atible w ith memory ex pansio n patible wilh expansion ith Single ca rtrid ges, works w cartridges, with single and du al di sk drives. The pro produal disk ggram ra m sells for $14.95 $14.95.. The Magic Of Numbers and ddiagonal iagonal add up to the sam e same um. In worki ng w ith Magic ssum. working with Squa res, the sstudent tud en t ddevelops evelop s Squares, an intui tive un dersta nd in g intuitive understanding ooff averages and arithme tic arithmetic sequences . sequences. prod uced by Arith-Magic, produced Q uality Educational Ed ucation al Designs, Design s, is Quality available on tape and disk for $35. $35. Quality Educational Educatiollal Designs Desiglls P.O. Box 12486 Port/ami, OR O l~ 97212 Portland, (503)287-8137 Home Accounting, Accounting, Auto Maintenance Software So ftsy nc, na company known for fo r Softsync, its Ti mex/Sinclair products, has Timex/Sinclair to the Commod o re 64 into Commodore Aritll-Magic, aann interacti ve ma th jumped in Arith-Magic, interactive math H& H Enterprises &H market. It s fi rst h vo p rodu cts are Its first two products study program tha thatt has been 5056 North 41st 51. St. available fo r the TRS-BO, Persollal AccOlmtal1t and Compllter Personal Accountant Computer for PET, TRS-80, I 53209 Milwaukee, W WI53209 Mechanic. and Apple com p uters, is now computers, ACCOllntall t ooffers ffers Personal Accountant available in a Commod ore 64 Commodore efin ed accounts, in in144 user-d user-defined version. Detective ud ing savings, checkin g, loa n s, cluding checking, loans, The package includes th ree cl three pay ments, credil mortgage payments, credit p rogra ms that h elp s tuden ts programs help students Adventure card s, and budgeting. budge ting . The pro procards, ry in a learn mathematical theo theory des functions for fo r gram also inclu includes ga me-like setting. In Diffy, stugame-like stu ddetailed etailed forecas ting and the forecasting Shamus, wo rk with the differe nces ddents ents work differences Shatnus, a well-received Atari profi t/loss sstate tateprep ara tio n of profit/loss ventu re program fro m betwee n successive pairs ooff num n um- preparation ad adventure from between ilnbl e for $34.95 ments. It is ava re, hhas as been Sy na pse Softwa available z, students lea rn Synapse Software, bers. In Tripu Tripuz, learn on ddisk, isk, oorr $29.95 oonn ta pe . licen sed by Human Eng ineered the identity tape. id entity of three numbers licensed Engineered Compllter Mechan ic records Computer Mechanic Softw are fo C-20. hidden within w ithin a trian gle. And Software forr the VI VIC-20. triangle. service information informatio n for more me, Shamu ba ttles Magic Squares produces nineIn the ga game, Shamuss battles than 20 makes and mod els ooff models hord es of robot henchmen w hi le element squares in w hich the th e hordes while which mobiles . The program p rog ram auto ries of treach erous numbe rs in each row sea rching a se automobiles. searching series treacherous numbers row,, column column., Detective Adventure 136 Gozette CXlober 134 COMPurEr. COMPUTErsGaiette October 1983 C OMPUTEt's COMPUTED FFirst irst B ook O Book Of VIC fV IC Au tho rs: CO Authors: COMPUTE! Magazine MPUTE! Ma gazin e contributors con tributors Price: 12.95 Pri ce: SS12.9 5 On Sale: Now On Sa le: Now vvIntlo dUC!lon Introductfan Rol)Crt lock Rouen Lock Ch apt er On e: Ge ttin g Sta rte d Started. 3 T'lcS rory Oflh (>VI C . -.'TheVIC • M IC/lael S. Tom czyk 11 Com pw cr Gene sls11 Computer Genesis: Michael s. ' From SlickS And Stont.'S To VIC DorO lhy Kunk fll Helle r f DaVid 7hOl"nourg 20 Supcr Calcularor Heller / David . . .. .,. . .. , Jim 24 /fll'ld 1Ig(' Alpl Finally, VIC's turn! lal>C1 .... Fin ally , rtit's ■ ■ Jim Butte I 24 L.Urge Alphabet 'S VIC 'S turn I Dou g Ferguson 26 USIn g AAJOYS U(K 26 Using Joystick Doug Ferguson Use Users of oth other popular personal rs of er pop DaVid MalmDer!! ular per 39 nded InpU sonal ces 39 Exte Extended Inputl DevI DevicesDavid Malmberg com puters hav computers have been enjoying their Pacldle~ And The Keyboclld e been enjoying their 46 Gam Paddles AndlesThe Keyboard .... „ e Padd rn"n I/$.llo CO COMPUTE! Books; COMPUTE'S MPUTE! Bo mon Lede 46 Game Paddles .. ' Mike Mlkp Bas~ &>S5man Salomon Lei rman oks : CO MPUTErs Ch apt er Tw o: Div ers ion Flfs s First Book Ol PET/CBM. Program t Boo Re k Of PET/CBM. ProgramChapter Two: Diversion* i»« r O.wt d M almberg 59 The Joyst rck. ConneCllol1 MctCO~M ;t ( mm eat 67 ZAPII g The ming The PET PET/CBM, and otl1 others. lon An d Ed uca tio n. /CBM. and ers. ZC , Paul l Bup p/Sr ephe nPP Drop 67ZAPK ' 1LD"w*e PaulL Bupj,/Stephen Drop 72 STARFIGHB No Now, there's book devoted w, the re's aa boo k dev oted 72 5TARFIGHT3 DubSnoggrn DUb Scroggin 78 Nph.1bellzer exc exclusively to the the Co Commodore VIClusively to 78 (AlphabetJzer David Miznei DaVI mm odo re VIC d RR, Mizn er · 80 OUIlI The H~'al... ls 20' " Com 20™ Computer: COMPUTEI's First 80apt Count The Hearts ■ Jun Jim Wilc W/llcox puter: CO Ch MPUTErs First ox er Th e •P ChliStopllcr J Flynn Book OfVIC VIC.. r e. rog ram mln g Te h i Boo k Of 89 PRIN Trr1gWlfh Style C "qu es. The edi editors of CO COMPUTE! The 97 T" lll1 VOU! PET To Run VIC Prog tors of MPUTE! rarm Jamps McCallisier Jarn( >~ PP. M 99 USl'l Input cCallIster Ma gaz ine _- [he Magazine the lea leading resource for ding reso urc e (or 103 AmorlilC Lyli-Jordan Lylt' Jord .ln the VIC -20 _- gat VIO20 gathered together the 103 App Amortize hered tog Way Wayne Ko/un m: KO/U 106 ether the Il end 106 Append '''' bes Amlh al besttVIC VIC-20 articles published since Glal -20 arti er cles pub 109 lished since Pllntlng The Screen 109 Printing Trie Screen ' Ko/un Wayne.' KO/u the sum summer of 198 1981 and add added n mer of 113 The ConfUSIng DucIc 1 and ed 113 The Confusing Ouote ..' CD. Une 1 t 5 AHer nal!.' Scre C ens 0 Llne som e new ma some material. The res result is terial. The ult IS US Tlme Alternate ■ Ch,u Charles /{.'s Brannon Bldn non 119 keq)Screens lng mo re tha more than of valu valuable 119 Timekeeping . n 200 pages pages of J'm Jan Butterfleld Butter/reid able 2 Rcnu rnl)(' 1 BASI C lrnes Tht' E.ny Wdy 25 Rermrnbei BASIC Keith info rmation information information thatt goes 125 Lines The Easyw'n ' Kf'r(tl Schletffef _ info Schlcdl~ rmation tha 7 AutO /nali C lIne Nurn goes bel~ Charles Gould \%' "Utomatlc Line Cf'l.)!lC5 H bey ond the instruction H Gou ld beyond 129 I'ulli ng TIN' SquNumbers instrUctiOn manuals. manuals. In cclc On Your VlC .20 In " Z9 Putf/ng Trie Squeeze Jim Wilcox i On Vour \AC-20: ' JUIl W IlCOX the COMPUTE! tradition, the COMPUTE! care Gew tradition, itit is ng The Mos ! Our 0150 00 8yT IS care· Stan ley M Bt'fJr 141 141 21SS.^ An Easy W;ry To Rcloca!c VIC prog~rns edited to fully edited - Stanley M.Berlinn to be be easily easily understood understoOd On Olhe r Com mod ore Com putc and useful for and useful rs Computera for beginners beginners and GrC'g drld Ross She rwoo d and experts experts Greg and Ross Sherwood Ch apt er Fou r : Co lor An d Gra alike. phi alike, cs C F°Ur: Color ^d Graphics. 147 K.1leldo~opeAl1dValiallon~ leidost ope And Variations • COMPUTErs First COMPUTER'S K('mlezh K no~ F"st Book Book Of 148 High Of VIC High Resolution VfC Rr'sOlullQIl Plotting I'I00ung , 148 Kenneth Kuox I',rul F Scha ll is spiral-bound is lie flat, and sp iral- bound to 154 VIC Color Colo r Tips ' 54 VIC TipS . to lie flaL, and Cf'l.)rief. Bran non 157 The WIn doW includes program 157 The Window . Incl udes ready-to-rype Charles Biannon ready- Io-type program ClI,lrJf'S Bran non Cust om Characters Cllaf(l(!eI~ For Charles Brannon FOfThe TileVIC »160 60 Custom VIC " li stingsand listings and articles arll cles such DdV such as ld Malr nt)('r g as "The "The Dciuid ~~apter Fiv e: Ma ps An d s~ecification~ Joystick Connection: Joystick Connec tion: Meteor Me ~eor Maze," Ma ze." 17: ~ow To U}C The bS60 Vide .. STARFI GH Tl·· "Train "STARFIGHT3," o Intel race Chip ··Train Your Your PET PET To • D,l)e GI I1)CII To rO'-N'ilng TlIC VIC Cllrp Dale Gilbert Run V\C . Run VIC Programs," pro grams. " "Renumber Jrrn Bulle r fleld "Renumber ~:: VIC M emo ry _ TI le Unc /klrlt ■"■„■■ J'm Butterfield 186 WC Memory - The Uncarted'dAtM'ntuie Adve ntur e '' DflngT1NYMON1 The TlNY MON l DlIe< !iy Imo Your Adventure." and Jun Bunerdeld and "A VlC· 20 202 Entering Directly Into Youi WC-20 "A Russ ell Kavall, lgh Russell Kavanagh SimpleMonitor Simple Mo nito rFor 211 lade* ForThe IOl re~ TheVIC." 211 VIC." Atonly only SS12.95, At 12:95.less lessthan than most most com put ermanuals, manuals. COMPUTEI's computer COMPUTErsFirst FirstBook BookOf OfVIC VIC am ong the [hebest best resources isISamong own. reso urce saaVIC VICuser usercan can ow n, Available at computer dealers and bookstoreS nat ion wide.To Available computer dealers and bookstores Toorder orderdirectly directlycall In North at callTOLL TOLLFREE Car olina ca ll 919 -275.9809. Or sendnationwide. FREE800-334-0868. 800·334·0868. checkor ormoney moneyorder In North Carolina call 919-275-9809. Or send check to COMPUTE! Books, Box 5406, ord er to COMPUTE! Bo oks.P.O. P.O . Box 5406. Greensboro.NC Greensboro, 27403. NC 27403. Add sz srupp!IICj and tland lrnq OuU iClC theU.S us;idd addSS~5forlorair""mail. mall,S2S2lor1ersurface Ailti $2 shipping and handling. Outside the prepaid. US funds only surl.lCe'mail. mallANAlnirten l orderS p!ep;JICl. U S lundS VlC,20is IS trademarkofofCommodore VIC-20 .i a rrademjpfc Comi'nodOleElectronics Limited Elecuonrcs limited only NEWS&PRODUCTS NEWS te<1 ches the basics ba sics of auto teaches mechani cs and allows you to mechanics reco rd service inform ation on as record information many as 100 h ~ program pro9fam 100 cars. T The is ava il able for $26.95 on disk, or available $21.95 on tape. So ft sync plans to introduce Softsync ga me and utility utility programs for game th e 64 in the the ihc nC<1f near future future.. Softsync, Inc. SoltsYllc, Illc. 14 £ns134 St . 141-:ast34St. New Yo rk, NY 100" /6 Nen< York, 10016 (212)685-2080 Business Utility Package you defend the planet Earth against a group ooff nli ens who who aliens hhurl url heat miss iles at oour ur polar pol ar missiles icc ll fa il , the meltin g ice caps. If YO you fail, melting ood the planet. p la net. The ice caps fl flood ga me is available oonn ddisk isk fo game forr $29.95. Learn Russian Th e com pany's Sea rch The company's Search Seri es consists ooff Word Series Wonl Search, Sport SCflrcll, Sjiort Search, Search, and Arende Arcade Search, A beginning beginnin g Russi .. n course for Russian all o n cassette for S 19. 95. on $19.95. the unexpanded unexpended VIC-20 is avai availlEach ga me puts puts 374 letters game tetters ssian So ftwnre . able from Ru Russian Software. on the screen and g ives gives you ten The $23.95 program provides minutes to find the 20 hidde n hidden the user use r with a Russian Ru ssian scree n screen words. Th ereare tegories There are three ca categories ces the ty p ing font and introdu typing introduces me . for each ga game. begi nne r to the Russian R u ~~ i an alphnbet beginner alphabet '/" & F SO/I war!' COIIIJJI/ny T& Software Company and basic bas ic vocabul ary . vocabulary. Silperhyle Superbyte Su/tw(lre Software 2 Chipley Cliiphy RUII Run 2 Wes /3erlill, 0809·/ Westl Peri in, NJ N108091 (609)3·16-3063 (609)346-3063 Learn Russian RII :;:;illll S(//I MII"e Russian Software Box 36, "1744 Box36, 1744 W. Dt'lI(m Devon Supcrbytc ftware has ga th ered Superbyte So Software gathered severa bu sin ess ap plica ti o ns severall business applications aand nd utility utility programs p rograms togethe togetherr on ddisk isk in a package ca lled the Bllsicalled Busi /less Pack. ness Induded Included in the $100 package arc: nt, a gene ral are: The Accounta Accountant, general e sstatement, tatem e nt , ledge r, incom ledger, income and balance bal ance ssheet; heet; Accounts Receivable/ Paya ble, na jo ufIlnl fo Receivable/Payable, journal forr curre nt and paid accou nts; The current accounts; Editor, a wo rd processor; Spread word Sheet Calc, a spread sheetl sheet/ calculating program; prog ram; Busin ess Business In ve nto ry, an in ventory co nt-rol Inventory, inventory control sys te m; Checkbook Mate, a system; checkbook maintenance maintena nce an d and check-writing program; progr am; The Mailman le. Mailman,, an address fi file. In addition addition,, the package contai ns the fo llowing utilities: utilit ies: a contains following p rofit margin calcu la tor, a busi bu siprofit calculator, nda r and da ta base, ba se, ness cale calendar daia and programs for linear regresregres ssion io n aanalysis, nalys iS, depreCiation, depreciation, and amortization. Bllshwss Pack is avail able Business available for the Co mmodore 64 and 8K Commodore SK VIC-20. 138 1983 138 COMPUTEr. COMPUTED GoZ"/I,, Gazette Octobe, Oclobor1983 ClliCflXtJ, Chicago, IL 60660 Business And Pleasure T& F re ha F Softwa Software hass released a checkbook program for the Co mm odo re 64 aand nd VIC-20, as Commodore we ll as a sspace pa ce ac ti on ga me for fo r well action game the 64 and a series of wo rd search word ga mes for the VIC-20 and 64 games 64.. C/lcckEasc/, CheckEascl, which requires an 8K n be used SK VIC or 64, ca can ts. Checks w ith m ult iple accoun with multiple accounts. can be dele ted oorr the aamounts mounts deleted can be changed changed,, and the program wi ll update all balance fig ures. will figures. Printouts can be made by check number, category, oorr by lax tax dede ductib le items ductible items.. ClieckEasd CheckEasL'! is avnilable available for $24.95 for the VIC-20 ve rsion , version, vers io n, $29.95 for th e 64 tape version, the and $34.95 for the 64 disk ve rsion. version. Anoth er new T & F program Another & F is Space Sell fillel . In the ga me, Sentinel. game, 70902 Rillt:rsi(le Drive 10902 Riverside Norlll IJ-/ollywvod, 1602 North hllyiuvod, CA CA 9· 91602 (213) 501 -5845 (213)501-5845 Auxiliary Keyboard Gosub Int ernationa l has deInternational de uxiliary veloped a 20-key a auxiliary key board for the Co mmod ore 64 keyboard Commodore oorr expanded VIC-20. The system co ns ists of th e keypad and a 330consists the program . byte driver program. The Flexikey System is dede Signed signed to enhance data entry on Co mmodore compute rs. The Commodore computers. system allows the user use r to define key va lu es . Nineteen N inetee n ooff the 20 values. h keys ca n be programmed wit with can lues. The 20th key, up to three va values. witch the PROG key, is used to sswitch among the th ree modes. three In th e firs the firstt two modes, ench each key ca n be ddefined efin ed as an y sing le can any single modore keykey on the Com Commodore key boa rd . In the third m od e, the board. mode, p rog rammed functi on mode, the programmed function ddefinitions efin itio ns ma y be up to three may by tes lo ng . O n initializatio n, bytes long. On initialization, mode oone nc is defi ned to be usefu defined usefull NEWS&PRODUCTS as a calculator; mode 64K ooff RAM organ ized as two modi.1 two is set organized sefu l to sets of blocks 1,2,3, and 5. Proup with definitions u useful Pro machine language programmers. ggrams ra ms ca n be sstored tored and accessed can Keyboard definition ither set, and aallll eig ht banks b k Knl. lent, allov.1 additional 2 "weeki Pric" ~~ty S Mpo UPS hI F*nce* wbjoo<;! subject 10 to <""ngo_ change Shlpmetl' Shipment wbject subject 10 to .".''' availability Ships frt co"ert collect. M orW VIC JO o d ImWTXjnmjT CoTwnycltxu I lodFCmes I hi JINI MICRO· MICRO SYSTEMS, INC. INC.I P.O. Box 274 • • Riverdale, N.Y. NY 10463 PHONE, 12) 796-6200 PHONE: (2 (212) NEWS&PRODUCTS Commodore ggraphics raphi cs aand nd full ddressnble hig h-resolu tion dot i1addressable high-resolution ggraphics. rC'l ph ics. Can/co, IJ/i'. Cardco, Inc. 3/3 313 MIII/H"!':'!!I! Matlicwson I\v[', Ave. Wid,ita, Wichita, KS 672"1·1 67214 (316)267-6525 1316)267-6525 VIC Games aand nd vi tal datn hering; revital data gat gathering; re on laxntion laxation and stress reducti reduction through biofeedback; trance indu ctio n; neural reprogra minduction; reprogramM-R Information Systems has pro pro- ming and s ugges tion; and return suggestion; duced a blackjack game for the to consciousness. VIC-20. MicRo MicRo Blackjack, which The Hypnotist HYJll/o/ ist II w ill sell for fo r will requires at least 3K expa nsion, is expansion, 559.90 biofeed$59.90 and includes a biofeed i1vil ilable on casse tte for 514.95. available cassette $14.95. bilck dev ice which cn n be used back device can M -H IIl[omwtilm I!'III :', Ill c. M-R Information Sy~ Systems, Inc. wi th ot her Psyco rn products. produ cts . with other Psycom r.a. P.O. Box 73 Psycoll1 So[twm'l'/lIlcmnlillllfll Psycotn Software International Will/ill', NJ 07470 Wayne, N] Beat The Dealer ' )696-3296 (201)696-3296 Synapse Softwa re, a producer of (20: Software, gC' l mes for AtC'lri rs, ha games Atari compute computers, hass est<1bli shed the Showc<1sC established Showcase SoftSoft Computer W<1l'C !.! f;J ware lin line forr the VIC-20. Th e initi ill gil !l1eS produced produ ced The initial games Hypnosis arc Astro-Patrol, A~ l ro - P(/lrol, il -up a shoot-em shoot-em-up game; sf/llee2£', humoro us gam e Squeeze, a humorous game set on a fC' lrlll; and salllloll farm; Salmon RIII/. Run. The Hypnotist Commo Tile HYP"ot ist II for the CommoEach gn mc sell for $19.95. game sellss for$19.95. dore 64 has bee n released by lias been tionnl. Psyco m So ftware IntCrtli1 1'sycom Software International. Sy lllil lsC So[lwlI l"!' Synapse Software The program prog mlll contain e containss fiv five 522 52211 C'II/ml Central I\"PI'III/!', Avenue, #200 TVchmO/u/. majo les: introducti on Richmond, CA 9.JSO·/ 94804 majorr modu modules: introduction Computer Hypnosis 2118 Forest FOI'l';;I/.Jlh' hike Drillc Drive CillCillllllli, Cincinnati, ON Of I .J5U-J 45244 VIC's Voice • Speakeasy is nii voice synt hes izer synthesizer designed to allow voice to be added to ndvenl"ure rtridge adventure and ca cartridge g;J lll es on the [t co mes games llie V[C-20. VIC-20. It comes in na cnrtrid ge th at plugs pl ugs into the cartridge that VIC's expan sio n port. expansion Discover With Benji Benji, the ddog og mnd e filmo us in Benji, made famous c hil d r ~ n 's TV ture movies, children's TV adven adventure ha s been incorporated into a has se ries uf ucational computer series of ed educational gn mes by HUlllnll in!.!ered games I luman Eng Engineered So ftwnre. Software. [n 8t'11}i SpaCl' Rescue, Resclle, the In Benji -- Space the dog is sen ion sentt on a rescue miss mission in spncc. ldren playing plnyi ng the space. Chi Children prog ram wil trodu ced to program will[ be in introduced tem while-helping wh il eJlc lpin g the sololr solar sys system Benji comp lete his mi ssion. complete mission. The gn me is aVil ilnb[e for game available th e VIC-20 nn d Co mmod o re 64 the and Commodore 95. Versions fo ther for 544. $44.95. forr o other computers ilre plann ed. are planned. HUII/IIII Human r Eugillt'cf('d Engineered So[lwII/'(' Software 71 PI1/'k /..nile Park Line 8ri~IJ(lIIt', CA 9·1005 Brisbane, 94005 1HO ~o COMPU TE/', Gaietie G"1tH~ Ocrob.r COMPUTE!'! October 1983 BCllji, /llI/vit· sl/If liler gallic Benji, tile the movie star doS, dog, /IIIS lias h'COlllt' become a a cOlllp computer game s/ar. star. r NEWSScPRODUCTS The syn thesizer, produced synthesizer, by Persona l Peripheral Produ cts, Personal Products, ca n be p rogra mmed fro m BAS IC can programmed from BASIC or machine lang uage by POK Elanguage POKEin g to oonly nl y one add ress. Th e ing address. The package incl udes an editor that includes allows th e user to append se rt, the append,, in insert, and delete phonemes pho nemes in strin gs strings to crea tc phrases p h rases and se nte nces. create sentences. The 256 phoneme p ho neme buffer buffe r ca n can n tape or disk. The be stored o on Speakeasy cartr idge, includi ng cartridge, including ll s for $79. the edi tor tape, se editor sells Peripheml Products Personal Peripheral Box 3423 Fox Valley Mall P.O. Box3423 Aurom,IL60505 Aurora, IL 60505 Mapping Memory '20 Mailing Mail ing List allows alal phabetizin g on entry, sor ting phabetizing sorting aand nd searching in all fie ld s, fields, le te rec recprinting labels or comp complete ords: n con tain ords.- Each entry ca can contain name, name, address, and three comcom ment fields. The program, p rogram, wh ich is menu which st 16K exdriven, requi res at leil requires least ex pansion. It is avai lable oonn tape pansion. available lape S25.95, or disk for 527.95. $27.95. for $25.95, Galactic Galactic Software P.O. Box 10516 Sail San Jose, CA 95157 (408)247-4434 Extra VIC Port MFJ proMFJ Electro Enterprises ha hass pro Tlte Maslcr Memory M emory Map, a referThe Master refer eence nce guide to compute computerr memory, ilable in VIC-20 nd Comis ava available VIC-2Q a and Com modore 64 versions from Educa Educational Software. The book includ es sections includes oonn PEEKing and POKEing, pad padddles ies and joysticks, color localoca tion s, si ngle aand nd multiple soun d tions, single sound registers, ggraphics rap hics registers, and sprites. lable The VIC version is avai available n is avai for $9.95; the 64 versio version availlable for 5"14.95. $14.95. E(illc(ltiollal Software, /lle. Educational Inc. 4565 Cherryvale Ave, Aile. Soquel, Sequel, CA 95073 du ced an add-on po rt to nll ow duced port allow th e VIC-20 to use a seco nd joythe second joy stick. The port pori is ava ila ble fo available forr 521.50 cl udes program progra m$21.50 and in includes ming instructions and a sa mple sample two-player ga me. The sam pl e game. sample ga me requires 3K or 8K pangame SK ex expan sion to run run.. Haydell Book Boak COlI/pallY, JIIC. Hayden Company, Inc. 50 Essex St. Si. I~ ochclle Park, NJ RochcUc N} 07662 (201 )843-0550 (201)843-0550 COMPUTE!'s for Commodore COMPUTED Gazette for we/comes CClllellts of new /l ew pro- _, welcomes (/IIIIOI/II announcements ducts for VIC-20 alld and Commodore 64 computers, especially products aimed at lIegillllillS beginning to illterlllcdifl/c intermediate users. users. Please scml press rc/eflscs plwtos well ill send releases alld and photos in adVUI/CC s, Ass;stal1t Mall vance to: 'limy Tony l~oiJert Roberts, Assistant Man aging Editol", COM PUTE!' s Cilzellc aging Editor', COMPUTO's Gazette,, NC 27403 P.O. Box 5406, Greellsboro, Greensboro, JVC 27403.. Nt'W product prod/lct rciCflSt'S frolll New releases are selected from Slll!missiOIl submissionsS for rcasolls reasons of timciil1css, timeliness, aVfl ilnllle space, ami available and SCI/cm/ general illtcrcst interest to ollr our rellders. readers. We regret that wearc we are III11/ble unable to select selcct allllL'"w all new product 5"1,,";55;0115 submissions for pllulicntioll. I~ eaders should shollld be aware publication. Readers Ihat we present here some edited vcrsioll that version material Sllbllliited submitted lJY by vcm/ars vendors Ulld and arc are of lIIaterial IIl1l1hle to vollcII IIccuracy at ttime illle of unable vouch for its accuracy p"bl;catiml. •=NETHENBO""BO+50: PRINT" {HOME} IFNJ>=NETHENBO=BO+50:PRINT"{HOME} pa ge 79, the second random number fortor." On page for (5 [5 RIGHTllB RIGHT)[8 DOWN}{3 DOWN)(3 RIGHT}BONUS RIGHT)BONUS ADVA the fi rst column s hould read: "X = INT mula in mula in the first column should read: "X INT {REO)" ; BO :PRINT"{BLU}" NCE TO TO{RED]";BO;PRINT"[BLUj" lt (RND(1) 100) +100." + "100." In both cases, an equa ls sign (RNDf l)*100) equals 51356 PRINT"{HOME}{3 5056 PRINT" (HOME} £3 OOWN}[8 D0WN}[8 RIGHT)";"WINO RIGHT] ",-"WIND :";SD"TO ";D$:GOSUB5eeee was incorrectly in correctly substituted for the last last' plus plu s sign ";D$:GOSUB50000 51357 FORK=lT01000:NEXT:PRINT"{HOME} 505 7 FORK=1TO1000:NEXT:PRINT"[HOME) in the formula s. formulas. [3 (3 OOWN)[25 DOWN}[25 SPACES)" SPACES]" •• Read e r Kim Pugh uggests a cha nge to imReader I'ugh ssuggests change im 513613 - 11e4To1904STEP40:POKEI,96 : POKEI 5060 FORI FORI=1104TO1904STEP40:POKEI,96:POKEI the Commod ore 64 version of "Snake Esprove Commodore Es +39,96:NEXT cape," published in the July iss ue. To modify the issue. 11311313 / 1e : SC=SC+le:PRINT" 10100 FOR P=l TO VA VA/l0:SC=SC+10:PRINT" (HOME I (BLU) SCORE : {REO} " ; SC : NEXT progra m to work with a joystick plugged p lugged into (HOME][BLU]SCORE:(RED}";SC:NEXT program 12131313 " (HOME) [8 D0WN}[6 OOWN){6 RIGHTjSORRY RIGHTISORRY 12000 PRINT PRINT"(HOME}{8 ne in s tead of the keyboard, Pu gh suggests port o one instead Pugh : BA=BA- 1 NO BONUSI" BONUS1":BA=BA-1 chan ging these lines: changing Bug-Swatter: 51313113 (REO) 50010 PRINT"[HOME}[6 PRINT"(HOME} (6 RIGH'l')14 RIGHTH4 DOWN) DOWN}(RED} 5X{7 SPACES}leX{7 :P SPACES}10X{7 SPACES)2X{BLU}" SPACES]2X{BLU)"jP =1: Z=P = UZ=P 513025 : PRINT 50025 POKEA(P),PEEK(A(P»+128AN0255 POKEA(P),PEEK(A(P)J+128AND255:PRINT 5ee2B HT)"; 50028 PRINT"{HOME){5 PRINT"[HOME}(5 DOWN){9 RIG RIGHT)"; 5131329 " {7 RIGHT) (DOWN) [2 SPACES} ";TA 50029 PRINT PRINT"(7 RIGHT}(DOWN}[2 SPACES]";TA B(le);"{2 LEFTJ " ;TM : IFTM= B(10);"(2 SPACES}!3 SPACES}(3 LEFT]";TM:IFTM= eTHENP=INT (RND(TI)* 3+1) :GOT05elee 0THENP=INT{RND(Tl)*3+l):GOTO50100 5131335 50035 H'FR= IFFR= eTHEN5010e 0THEN50100 5131213 RIGHT}{l3 DOWN} YOU 50120 PRINT"[HOMEJI7 PRINT"lHOME]{7 RIGHT]{13 MUST LAND ON "; A$ ";A$ 61313013 " (HOME) {7 DOWN} (Ie RIGHT)Gl\ME 60000 PRINT PRINT"{HOME){7 DOWN}(10 RIGHTjGAME OVER" : IFSC>HITHENHI=SC OVER":IFSOHITHENHI=SC 613100 POKE53281,l :.-POKE53280,6 POKE5328e ,6{(33 SPACES): 60100 POKE53281.1 SPACES]) PRINT " {CLR} 14 DOWN} {ll SPACES} {BLK} PRINT"{CLR}{4 DOWNltll SPACESHbLK] SKY DIVER" Remem ber to co ns ult la st month's "BugRemember consult last SWCCII seen up, " or is mistyped, your machine could "lock up," ill please in COMPUTE!'s COMPUTERS Gazette for COli/mot/ore, Commodore, please "crash." The keyboard and STOP key may seem send litem P.O. them to to Gazette FCCIIIHlCk, Feedback, P. O. Box 5406, blank . Don't panic pan ic "dead," and the screen may go blank. Grccnsboro, Greensboro, NC 27403. -- no damage is done. To regain control, you have How To Type In How COMPUTERS COMPUTE!'s Gazette Programs Many of of the the programs program s which which are are listed lis ted in in COM COMMany PUTers Gazette Gazelle contain contain special s pecial conlrol co ntrol characters characters PUTE!'* (cursor control. color keys, inve rse video, elc.). (cursor control, color keys, inverse video, etc.). To make it easy to know exactly what to type To make it know exactly to type when entering o ne of these prog rams in to your com entering one these programs into your com pute r, we \ve have have established established the the following fo llow ing listing listing puter, co nventions. conventions. Generally, any any VIC-20 VIC-20 or or Commodore Commodore 64 64 Generally, progrnm listings listings will w ill contain co ntain bracketed bra cke ted words word s program which spell spe ll out any any special s pecia l characters: characters: {DOWN} which would mean mean to to press press the the cursor curso r down d own key. k~y, {5 (S would SPACES ) would would mean mean to press press the the space space bar bar five five SPACHS} times, times. To indicate indica te that aa key key should be be shifted shifled (hold To down the the SHIFT SHiff key key while pressing pressing the the other down be underlined und erlined in our our listings. listings. key), the key key would be key), Pm example, exn mple, S~ would would mean mean to type the th e SS key For while holding the shift key. This would appear appCflr while "henrt" symbol. sy mbol. If If you find on your screen as a "heart" pO an underlined key enclosed in braces (e.g., {10 }), you you should sho uld type the key key as many times times as as N }), indicated (in our example, you wou ld eenter nte r ten len indicated would sh ift ed N's). N's). shifted ~~, If aa key is enclosed in special brackets, ^, you should hold down the Commodore key while pecia l brackets. brackets, (The pressing the key inside the sspecial Com modore key is the key in the lowe Commodore lowerr left corner comer of the keyboard.) Agnin, Again, if the key is preceded by a number, you should press th e key as many limes the times as necessa ry. as necessary. Rarely, yo u' ll see a so litary letter of the alyou'll solitary al rs ca n phabet enclosed in braces. These characte characters can be entered on the Commodo re 64 by by holding down Commodore When When You You Read: Read: (CLEAR) (CLEAR) (HOME [HOME]) [up} lUP) (iDOWK) DOWN) (LEFT) {LEFT} I[RIGHT] RIGHT) Press: EJII G!:Bl G!:Bl mil IiImIJl IiImIJl millimE limE taLK} iBLK) IlIlII D IlIlIIIlI IlIlII D tWHTJ [ WHT) IREol [RED) mil 0 mil 0 !RVS) [RVSj {OPF} (OFFi ,144 .... COMPUTEI',GoztJtfe COMPUTE!'! Gazette October October 1983 19 B3 See: ~ Ii! .. £i] m When You Read: (CYH) ( PUR) (ORN) [BLU) (VELI [I ili • i2i m I!§I g,! g.. is! PI !6i • the the CTRL CfRL key key while while typing typing the the letter letter in in the the braces. braces. For For example, exa mple, {A} { A} would would indicate indicate that that you you should shou ld press press CTRL-A. CfRL-A. You You should sho uld never never have have to to enter enter such s uch aa character chara cter on on the th e VIC-20, VIC-20, but but ifif you you do, do, you you would would have have to to leave leave the the quote quote mode mode (press (p ress RE RE- TURN and cursor cursor back back up up to to the the position position where where TURN and the the control control character characLer should should go), go), press press CTRL-9 CfRL-9 (RVS (RVS ON), ON), the th e letter letter in in braces, braces, and a nd then then CTRL-0 CTRL·O (RVS (RVS OFF). OFF). About About the the quote qllole mode: /l/ode: you you know know that thil t you you can cn n move a round the the screen screen with with the the CRSR move the the cursor cu rsor around keys. keys. Sometimes Someti mes a programmer programmer will will want want to to move move the the cursor cursor under under program program control. con trol. That's That's why why you yo u see see all ail the the {LEFTJ's, {LEFT),s, (HOMEJ's, {HOM E), s, and a nd {BLUJ's {BLU}'s in in our our programs. programs. The The only on ly way the com computer can tell the th e difference between bct.."een direct d irect and and programmed progra mm ed cursor control con tro l is is the the quote quote mode. mod e, Once Once you press press the the quote (the double quote, q uole, SH1FT-2), SHI I::'1'.2), you are in in the quote mode. mod e. If If you type something somet hi ng and then try try to lu change cha nge it by by moving the cursor left, you'll you' ll only o nly get aa bunch of reversereverse· video lines. These are symbols arc (he the sy mbol s for cursor left. The only Th e on ly editing key that isn't programmable is the tht, DEL key; you YOll can still use DEL to back up and editt the line. Once you type anothe anotherr q quote, edi uote, you are oout ut of quote mode, mode. You aalso lso go into qquote uote mode when you 1NIN- nny case, the easiest SerT spaces into a line. In any way to ge gett out of quote mode is to just press RE REyou TURN. TU RN. You'll You' ll then be out ooff quote mode and yo u can cursorr up to the mi mistyped line ca n curso styped lin e and fix it. following when Use the fo ll ow ing table whe n eentering ntering cursor and color control keys: Press: milD mil D mill] cm d mil D Q mill] E3D ClIO ClIO H El ClIO an ClID ClID E3 ClID ... See: •m II m ~ iii II rn C!: II When You Read: When 173 Pi ga! §83 Press: Press; □a ClIO ClII] 3D {F2} IF2) 1*1 m WE no [F3 3 IFJ) r*: m [F4] IF4J WE 00 I[F5J FS) WE m IF6) IF6) WE m EF7) iF7) tm IiFl] n) [Fa} Efs) "" m See:: See □ a •• -•• ill ■ ■ --.1 II! !III I. • The Automatic Automatic The Proofreader Proofreader j :rem rem 244 244 50 50 PRINT" PRINT" IN IN DIRT=DROP DIRT"" DROP DYNAMITE DYNAMITE RETRACTED RETRACTED =NEW :rem ""NEW HAN" MAN " : rem 110 110 60 60 PRINT:PRINT"WATCH PRINT : PRINT"WA1'CH OUT OUT FOR FOR [PURJsHALE, {PUR}SHALE, {3 IN {YEL]EMPTY (3 SPACES]iREDJGAS SPACES}{RED} GAS (BLU3 (BLU}IN {YEL}EMPTY [SPACE 3 SPACES"," [BLUlAND ISPACE}SPACES"," ISLU}AND [REDjDEVILS {RED] DEVILS UEFORETYPING... TYI'ING ..• BEFORE [SPACE]{BLU3IN :rem ISPACE ) {BLU)IN {BLKJOIL" {SLK}OIL" :rem 145 145 70 7 0 PRINT!pRINT"tBLUjPLEASE PRINT:PRINT"{SLU}PLEASE WAIT WAIT FOR"," FOR" " FU FU COMP UTE!',Gazelle C .a~eU e Programs" r rogr.1ms"and ~ nd"A "A Beginner's Bl.'gi nnl'r'sGuide Cu ideTo To COMPUTERS 80 8 0 POKE52,28:POKE56,28:POKE45,248:POKE46, POKE52,28:POKE 56 ,28 :POKE45,248:POKE4 6, see the thearticle article"Automatic " Aulomali( Proofreader." I'roofrl.'adl'r. " Also, see Also, 90 90 FORA=7168T07375:READB:POKEA,B:NEXT FORA=7168T0737 5 : READB:POKEA,B : NEXT Beforetyping Iy pin!;ininprograms, prog ram s.please ple~screfer refertoto"How " 'lo wTo ToType Ty pe Before T yping In In Programs" Prog ram s" that Ih.alappear .. ppearbefore be forethe th eProgram Progr.Jm Listings. Lis tin gs. Typing RTHER RTHER INSTRUCTIONS" INSTRUCTI ONS" 26:CLR 26 : CLR :rem :r~m 57 57 :rem :rem 28 28 :rem : r e m 70 70 100 100 DATA2,138,164,73,74,52,20,8,64,81,37, DATA2,1 3 8,164 , 73 , 74 , 5 2 , 20 , 8,64,81,37, Program 1: 1: Program The Automatic Proofreader For For VIC VIC The Automatic Proofreader 146,82,44,40,16,24,24,36,60,90,102,23 146, 82 ,44,40,1 6 , 24 , 24, 36 ,60,90 ,1 02 ,2 3 1,153 1 , 1 53 :rem :rem 25 25 110 110 DATA20,42,42,20,62,73,20,20,136,34,13 DATA20 ,4 2,42,20 , 62,73,20,20,136 , 34,13 6,34,136,34,136,34,148,22,148,34,136, 6 , 34,136,34,136,34,148 , 22 , 148,34 , 136 , 100 FOR FOR 1=828 1=828 TO TO 932;READ 932:READ A:POKE A:POKE I,A:NEXT I,A:NEXT 100 34,136,34 34,136,34 :rem : rem 209 209 :PRINT"(CLR}{RVSJSYS 828{OFF} 828{OFF} TO TO ACTI ACT! 120 :PRINT"[CLR]{RVS}SYS 120 DATA148,22,148,22,148,34,136,34,148,2 DATA1 4 8,22,148 , 22,14 8 ,34,136 , 34,148,2 VATE.{2 DOWN}" DOWN)" VATE.[2 2,148,22,148,22,148,22,136,62,188,62, 2 , 148,2 2 , 148,22,148 , 22,136 , 62 , 188 , 62, 110 POKE178,165:PRINT"SYS POKE178 , 165 : PRINT"SYS 828EHOME3":END 828{HOME} "lEND 188,62,188,22 :rem 110 188,62,188,22 : rem 197 197 120 DATA169,75,141,36,3,169,3,141 DATA169.75,141 , 36 . 3,169 , 3,141 120 130 130 DATA170,170,170,170,170,170,170,170,1 DATA170 , 170,1 70,170,170,170,170,170 ,1 50,150,150,170,170,170,170,170,150,15 50 , 1 50 , 150 , 170,170,170,170,170 , 150,15 140DATA14,242.133.252,1 34,253,132,254 0,150,150,150 :rem 0,150 , 150,150 : rem 134 134 140 DATA14,242,133,252,134,253,132,254 140 150 DATA8,201,13,240,17,201,32,240 DATA8,201,13,240,17,201,32,240 140 DATA170,170,170,150,150,150,150,150,1 DATAI70,170 ,1 70,150,150 ,1 50 ,1 50,150 , 1 150 50,150,150,150,190,190,190,190,190,19 1 60 DATA5,24,101,255,133,255,165,252 DATA5,24,101,255,133,255,165,252 50, 1 50 ,1 50 ,1 50 ,190,1 90,190 , 190,190,19 160 0,150 :rem 0,150 :rem 77 170 DATA166,253,164,254,40,96,169,13 DATA166,253 ,1 64,254,40,96,169,13 170 150 150 DATA0,0,0,0,0,0,0,0,20,20,20,0,0,0,0, DATA0,0,0 , 0,0,0 , 0 , 0,20,20, 20,0 , 0,0,0, 180 DATA32,210,255,165,214,141,165,3 DATA32 , 210,255,165,214,141,165,3 180 0,20,20,20,20,20,0,0,0,20,20,20,20,20 0 , 20 , 20 , 20 , 20 , 20,0 , 0 , 0 , 20 , 20 , 20 , 20,20 190 DATA206,165,3,169,0,133,216,169 DATA206,165,3,169,0,133,216,169 190 ,20,20,20 :rem ,20 , 20,20 :rem 36 36 200 DATA19,32,210,255,169,18,32,210 DATA19,32 , 210,255,169,18,32 , 210 200 160 160 DATA20,60,60,60,60,60,60,20,0,60,60,6 DATA20,60,60,60,60,60 , 60 , 20 , 0,60,60 , 6 DATA255 , 169,58 , 32,210 , 255,166,255 210 DATA255,169,58,32,210,255,166,255 210 0,60,60,60,0,0,0,0,255,255,0,0,0 0 , 60, 6 0 , 60 , 0,0,0,0 , 25 5 , 255,0,0,0 220 DATA169,0,32,205,221,169,0,133 DATA169,0 , 32 , 205,221,169,0 , 133 :rem :rem 233 230 DATA255,169,32,32,210,255,32,210 DATA255,169,32 , 32,210,255 , 32 , 210 230 170 DATA218 DATA218,118,181,153,110,93,197,65,65, 170 ,11 8 ,1 8 1,153,110,93,197,65,65, DATA255,173,165,3,133,214,76,98,3 240 240 DATA255,173,165,3,133,214,76,98,3 82,150,85,121,181,150,173,2,106,129,2 82,150,85,121 ,1 81,150,173 , 2 ,1 06,129 , 2 0,64,162,129 :rem 137 137 0,64 , 162 , 129 :rem 180 DATA2,169,128,141,19,145,169,0,133,13 Program 2: 18 0 DATA2 , 169,128,141,19,145,169,0,133 ,1 3 6,34,136,34,136,34,136,34 :rem 229 229 6,34,136,34 , 1 36,34,136,34 :rem The The Automatic Automatic Proofreader Proofreader For For The The 64 64 190 FORA=7 FORA=7424TO7640:POKEA,PEEK(25600+A):N 190 424T07640:POKEA,PEEK(25600+A):N EXT 114 100 28 TO : READ A:POKE , A: NEXT EXT ::rem rem 114 100 FOR FOR 1=8 1=828 TO 932 932:READ A:POKE I1,A:NEXT PORA=7464TO7529:READB:POKEA,B:NEXT :PRINT"{CLR}{RVS}SYS 8281oFF} 7464T07529:READB : POKEA , B: NEXT 828(OFF] TO ACTI 200 FORA"' :rem III 111 VATE . {2 DOWN} :rem VATE.[2 DOWN j"" 210 DATA169 DATA169,128,141,19,145,169,0,133,1,13 210 , 128 , 141,19,145,169,0 , 133 ,l,1 3 110 , 165 :PRINT"SYS 828{HOME)" :END 110 POKE178 POKE178,165:PRINT"SYS 828[HOME}":END 3,2,169,127,141,34,145,162,119,236,32 3,2,169,127 , 141,34 ,1 45,162,119,236 , 32 120 7 5,141 , 36,3,169,3,141 120 DATAI69, DATA169.75,141,36,3,169,3,141 242 ,(145 145 ::rem rem 242 130 7,3,169,0,133,255,96,32 130 DATA3 DATA37,3,169,0,133,255,96,32 220 DATA208,4,169,1,133,1,169,255,141,34, 220 DATA208,4,169,1,133,l,169,2 5 5,141,34 , 140 7 ,241,133,252,134,253,132 , 254 140 DATA8 DATA87.241,133,252,134,2 53,132,254 145,162,118,236,17,145,208,4,169,22,1 145,162,118 , 236,17,145,208 , 4,169,22,1 1150 50 DATA8,201,13,240,17 , 20 1 ,32,240 DATA8,201,13,240,17,201,32,240 33,1 =rem 238 33,1 :r em 238 160 , 133,255 , 165 , 252 160 DATA5,24,101,255 DATA5,24,101,255,133,255,165,252 230 DATA162,110,236,17,145 DATA162,110,236,17,145,208,4,169,1,13 , 208,4 , 169,l,13 230 170 DATA166,25 3 ,164,254,40,96,169,13 170 DATA166,253,164,254,40,96,169,13 33,2,162,122,236,17,145,208,4,169,22,1 , 2 , 162 ,1 22 , 236,17 ,14 5 , 208,4 ,1 69,22 ,1 180 , 165 , 214,141 , 165,3 180 DATA32,210,255 DATA32,210,25 5,165,214,141,165,3 rem 124 124 33,2,96 33 ,2, 96 :rem 190 DATA206,165,3,169,0,133 , 216,169 190 DATA206,165,3,169,0,133,216,169 rem 182 182 240 LOAD : rem 240 LOAD 200 200 DATAI9,32,210,255,169,18,32,210 DATA19,32,210,255,169,18,32,210 210 69 , 58 , 3 2,210,255,166,255 210 DATA255,1 DATA255,169,58,32,210,255,166,255 Part II II Program 2: 011 Oil Tycoon Tycoon For For VIC, VIC Pari 220 5 ,189,169,0,133 220 DATA169,0,32,20 DATA169.0,32,205,189,169,0,133 230 , 32 , 32 , 210 , 255 , 32 , 210 230 DATA255,169 DATA255,169,32,32,210,255,32,210 rem 127 REM PROG PROG 22 11 REM : re m 127 240DATA255,173 , 165,3,133,214 , 76 ,98,3 240 DATA255,173,165,3,133,214,76,98,3 PRINT:PRINT" PRESS PRESS STOP STOP ON ON TAPE" TAPE 22 PRINT:PRINT" rem 10e 100 :rem rem 108 108 IFPEEK{37137)<100THEN3 33 IFPEEK(37137)<100THEN3 :rem (21):W=7 POKE36879,30:POKE36878,47;DIMA% 44 POKE36879 ,3 0:POKE36878 , 47:DIMA1(21) :W- 7 768 :rem 235 235 768 :rem Program 1: 011 Oil Tycoon Tycoon For For VIC, VIC, Pari Part II IFZ>B%(T)THENB%(T)=Z :rem 58 58 55 IPZ>B1(T)THEN81(T)-Z :rem POKE36869,240:PRINT"{CLR]ErED] 10 :: rrem em 55 66 POKE36869,240:PRINT"{CLR}{RED} 10 REM REM OIL OIL TYCOON TYCOON {3 SPACES}"T SPACES]"T,"$"Z*100"lBLUj" :rem 81 81 20 " {CLR}":PRINT"{5 SPACES}INSTRUCTI {3 , "$"Z-100"{SLU}" :rem 20 PRINT PRINT"ICLR3"sPRINT"[5 SPACES]INSTRUCTI PRINT:PRINT" LEVEL" LEVEL","HIGH SCORE":rem 83 83 ONS" I PRINT: PRINT " {PUR}JOYSTICK {BLU} : ": 77 PRINT:PRINT" , "HIGH SCORE":rem OSS":PRINT:PRINT"I PUR]JOYSTICK[BLU]:"i FORA=lTO8:PRINTiPRINT"{3 SPACES)"A,"$"S SPACES]"A,"$"B PRINT" " :rem PRINT" RT RT &£■ LT=MOVE LT=MOVE RIG RIG" :rem 138 138 88 FORA=lTOBIPRINTIPRINT"(3 DIFF.LEVEL? 30 PRINT" UPRETRACT PP 1%(A)*100:NEXT:PRINT:PRINT" (A)-leO : NEXT: PRINT : PRINT " DIFF.LEVEL1 30 PRINT" PRINT" DOWN"'DRILL": DOHN=DRILL":PRIHT" UP=RETRACT {SPACE]12345678(GRN]":T=1 :rem 11 11 IPE" :rem {SPACE}12345678{GRN}":T=1 :rem IPE" :rem 80 80 SYS7464:POKE38852+T,6tT=T+PEEK{l)-PEEK( 40 T+PEEK(1) - PEEK( 40 PRINT:PRINT"{PUR}FlREBUTTON{BLU}: PRINT:PRINT"[PUR3fIREBUTTON(BLUJ: wi W/ PP 99 SYS7464:POKE38852+T,6:Ts 2):IFT<10RT>8THENT=l irem 13 13 IPE;":PRINT" PUMP" 2):IFT<10RT>8THENTl :rem IPE;":PRINT" IN IN OIL OIL OR OR SPACESPACE=PUMP" 130 DATA37,3,169,0,133,255,96,32 DATA37,3.1 6 9.e.133,255,96.32 130 Program 2: Program 2: Oil Tycoon Program 1: October1983 1983 COMPUrEl's COMPUTE!',Gaz Gazette 145 (Xtob., ttfftt ' ''5 POKE38852+T,7iL=3:IFT/2=INT(T/2)THENL= 10 POKE3BB52+T,7 : L-3:IFT/2=INT(T/2)THENL2 : rrem em 8 11 S220 : IFT=30RT~40RT>6THENS=30 : rem 210 S=20:IFT=3ORT=4ORT>6THENS=30 12 N:24:IFT>4THENN=25:L~L+l :rem N=24:IFT>4THENN=25:L=L+1 rem 111 IF"PEEK{37137)>100THEN9 rem 165 13 IFPEEK(37137»100THEN9 :rem 14 POKE36B69, 255 : rem 10B 108 POKE36869,255 PRINT"!CLRJ":M=5:Z=0:K=0:GOSUB87 23 PRINT" I CLRJ " : M-5: Z=0 :K- 0 :GOSUBB7 rem 222 ::rem 24 POKEW+X,14:X=10:M=M-1:P=20:Y=L POKEW+X , 14:X -1 01M=M- l:P-20:Y~L:GdSUB82 GOSUB82 :sIFM<0THEN5 IFM<0THEN5 : rem 238 25 GOSUB61:GOT034 ::rem rem 40 GOSUB61:GOTO34 26 A=«R*22)+W+X):C=PEEK(A):P=P-1:GOSUB67 A=((R*22)+W+X):C=PEEK(A):P=P-1 GOSUB67 ::rem rem 122 IFC=NORC=3ORA>8185THENFORA=lTO3sGOSUB9 27 IFC=NORC=30RA>8 185THENFORA=lT03:GOSUB9 99:NEXT:GOTO30 : NEXT:GOT030 :rem 38 28 IFRND(1)< . 06ANDC~14THEN78 :rem IFRND(1)<.06ANDC=14THEN78 : rem 133 29 FORB ~lT03 :POKEA,C+B:G OSUB99 :NEXT:R=R+1 FORB=1TO3:POKEA,C+B:GOSUB99:NEXT:R=R+1 :rem 122 30 SYS7464 : IFPEEK(1)=22ANDP>0THEN26 SYS7464:IFPEEK(1)=22ANDP>0THEN26 :rem 112 31 IFPEEK(2)=22THEN40 :rem 207 32 IFPEEK(3713 7)<100THEN4 6 :rem 213 IFPEEK{37137)<100THEN46 33 GOT030 :rem GOTO30 ;rem 2 34 SYS74641A=PEEK(1):B=PEEK(2):IFA=22THEN SYS7464iA=PEEK(l):B=PEEK(2):IFA=22THEN R=l : GOT026 : rem 112 R»1jOOTO26 35 IF8=22THEN34 : rem ll2 IFB=22THEN34 112 36 IFPEEK(37137)<100THEN24 :rem IFPEEK(37137)00RB>0THENPOKEW+X,14:X=X+A-B:IFX>2 IFA>0ORB>0THENPOKEW+X,14sX=X+A-BsIFX>2 :rem ITHENX=2 1 1THENX=21 rem 173 38 IFX<0THENX=0 : rem 178 39 POKEW+X,2:GOT034 : rem 173 POKEW-t-X,2:GOTO34 40 IFR=lTHEN34 :rem IFR=1THEN34 srem 73 41 R=R1:B=(R*22)+W+X: C= PEEK(B):FORA=lT03 R=R-liB=(R*22)+W+XiC=PEEK(B):FORA=1TO3 :POKEB,CA:GOSU899:NEXT ::rem rem 216 :POKEB,C-A:GOSUB99:NEXT 42 P=P+1 : GOSUe6 7: IFR=l THEN44 ::rem rem 230 P=P+1:GOSUB67:IFR=1THEN44 43 GOT030 ::rem rem 3 GOTO30 44 FORA=W+44T08185 : IFPEEK(A)=9THEN34 FORA=W+44TO8185:IFPEEK(A)=9THEN34 :re m 188 :rem 4455 NEXT:M=M+1:FORC=1TO3:GOSUB82:NEXT:GOSU NEXT:M=M+1:FORC=lT03 : GOSUB82:NEXT : GOSU B87 :GOSUB61 : GOT034 : rem 126 B87:GOSUB61:GOTO34 ;rem 46 J=Z:Q=R-1:FORA=0TO21:A%(A)=0:NEXT:B=(Q J=Z:O=R - 1:FORA~0T021 : A%(A)=0:NEXT:B=(O *22)+W+X:A=P EEK(B) :IFA=7THEN69 *22)+W+X:A=PEEK(B) : IFA=7THEtJ69 :rem : rem 42 =1:POKE36877,252:POKE36878,36:V=W 47 A%(X) A%(X}=1:POKE36877,252:POKE36878,36:V=W +X22:IFA=12THENPOKEB,17:Z=Z+Q : POKEV,0 +X-22:IFA=12THENPOKEB,17:Z=Z+Q:POKEV,0 :rem 11 48 E=0:F= 20:D=1 : G=1:I=1 : GOSUB52 : POKEV ,l:E E=0:F=20:D=1:G=1:I=1:GOSUB52:POKEV,1:E :21 : F=1 : 0= -1: G~D:I=O:GOSUB52 :rem =21:F=1jD=-1:G=D:I=DsGOSUB52 rem 147 49 E=0:F=21:D=1:G: - 22:I=0:GOSUB52:POKEV,0 E=0sF=21sD=l:G=-22:l=0:GOSUB52 POKEV.0 ::IFC=6THEN85 IFC=6THEN85 :rem rem 193 50 IFH=0THENPOKEV ,14:POKE36 877,0:POKE3687 IFH=0THENPOKEV,14:POKE36877,0:POKE3687 8,47:GOSUB82:GOSUB61:GOT030 :rem 237 8,47sGOSUB82:GOSUB61:GOTO30 23 7 :;rem rem 130 51 O=O-1:GOT048 Q=Q-1:GOTO48 52 IFC=6THENRETURN ::rem rem 187 53 H=0 : FORA=ETOFSTEPD : IFA%(A)=0THEN60 H=0:FORA=ETOFSTEPD:IFA%(A)=0THEN60 :rem 45 54 B={O*22)+W+A+G : C=PEEK(B) :rem 234 B={Q*22)+W+A+G;C=PEEK(B) 55 IFC=90RC=12THENPOKEB,C+5 : H=1:Z=Z+(O+(A 55 IFC=9ORC=12THENPOKE8,C+5:H=1:Z=Z+(Q+(A BS(I)-1» : A%(A+I)=1:GOT059 :rem 204 BS(I)-I)):A%(A+I)=1:GOTO59 IFC=140RC=17THENA%(A+I)=1 : H=1:GOT060 56 IFC=14ORC=17THENA%{A+l)=l:H=l:GOTO60 :rem 58 57 IFC=3THENC=6:RETURN : rem 173 :rem 58 A%(A+I)"0:GOT060 :rern A%(A+I)=0jGOTO60 srem 31 59 59 IFRND(1)<.02ANDC<>12THENC=6:RETURN IFRND(1)<.02ANDC<>12THENC=6;RETURN ::rem rem 33 60 NEXT:RETURN :rem 191 61 :rem 61 PRINT"[HOME}"SPC(13)"$"Z*100 PRINT"[HOME}"SPC(13)"$"Z*100 :rem 99 99 62 A=INT(Z/1000):IFA=K+1THENK:K+ 1 :GOSUB82 A=INT(Z/1000):IFA=K+1THENK=K+1:GOSUB82 ::GOSUB82:M=M+1 GOSUB82 : M=M+1 :;rem rem 109 63 IFM<1THENPOKE7680,14:GOT065 ::rem rem 84 IFM<1THENPOKE7680,14:GOTO65 64 FORA-7680T07679+M:POKEA,2:NEXT:POKEA,l FORA=7680TO7679+M:POKEA,2:NEXT tPOKEA,1 4 :rem 88 146 COMPUTE!', O~tob~r 1983 COMPUTE!'s G,>Zt"'~ Gazelle Oclober IFY=0THENPOKE7687,14:G0TO67 65 IFY_0THENPOKE7687,14:GOT067 :rem 107 66 FORA_7687T07686+Y:POKEA, 1 9:NEXT : POKEA , FORA=7687T07686+Y:POKEA,19:NEXT:POKEA, 14 :rem 163 IFP<1THENPOKE7702,14;RETURN 67 IFP4ANDD<>NANDD<>3ANDA<8164THENB=B- 5 74 IFD<>4ANDD<>NANDD<>3ANDA<8164THENB=B-5 :POKEA , C;GOT072 :rem 249 :POKEA,C:GOT072 75 POKE36875,0:GOSUB93:POKEA+30742,15 :rem 145 76 IFC<>14ANDC<>9THENR=R1 :rem IFC<>14ANDC<>9THENR=R-1 srem 85 Y=Y-l:GOSUB65 : GOT030 :rem 182 77 Y=Y-1jGOSUB65:GOTO30 78 FORB=lT02:POKEA,C+B:GOSUB99:NEXT : GOSUB FORB=1TO2:POKEA,C+B:GOSUB99:NEXT:GOSUB 93:B=150 :rem 123 79 R=R-l:POKE3687B , 36 : IFR = MOVE RI Goo ::rem rem 75 G" 120 PRINT" DOWN '" " :PRINT " UP ::: = DRILL DRILL"sPRINT" = RETR ACT PIPE" :rem 128 125 PRINT"{2 DOWN}{2 D0WN]{2 SPACES)WHEN SPACESjvmEN YOU PUSH PUSH THE FIRE BUTTON AND THE :srem rem 111 130 PRINT"PIPE PRINT"PIPE IS IS DOWN DOWN IN IN OIL OIL OR OR IN IN SPACE SPACE 130 3 1 5 GETA$iIFR=lANDA$=" GETA$II FR- 1 ANDA$ - " "THEN375 "THEN3 7 5 315 135 PRINT"PUMP PRINT"PUMP IS IS TRIGGERED.[2 TRIGGERED.{2 SPACES)lF SPACES)IF 135 325 325 . 340 340 A=R*40+W+X:C=PEEK{A):P=P-1:GOSUB675 A-R · 40+W+X : C~PEEK(A):P-P - l : GOSUB675 410 FORA=W+80TO2023:IFPEEK{A)=9THEN290 FORA=W+80T02023 : IFPEEK(A)=9THEN290 THE" THE" :rem 147 147 :rem {SPACE)THE PIPE PIPE IS IS DOWN" DOWN" rem 133 133 {SPACEjTHE :: rem 140 PRINT"IN PRINT " IN DIRT, DIRT, DYNAMITE DYNAMITE IS IS DROPPED. DROPPED . 140 :rem 109 109 :rem 145 PRINT"U PRINT " {2 DOWNjWATCH DOWN l wATCH OUT OUT FOR FOR SHALE SHALE AND AND 145 GAS IN IN EMPTY","SPACES EMPTy" , "SPACES AND AND DEVILS DEVILS IN IN GAS {SPACE l oI L. : r em 116 11 6 {SPACEjOIL. :rem 1 50 PRINT"[2 PRINT "{ 2 DOWNiPLEASE DOWN }PLEASE ECYN}WAIT|73 (CYN }WAITP ~ FF 150 OR FURTHER FURTHER INSTRUCTIONS." I NSTRUCTIONS." :rem 155 1 55 OR :rem 155 POKE52,56:POKE56,56:CLR:AD=14336 POKE52 , 56 : POKE56 , 56:CLR:AD~1 4 336 155 : rem 75 75 :rem 160 160 FORA=ADTOAD+207:READB:POKEA,B:NEXT:PO FORA-ADTOAD+207:READB:POKEA , B:NEXT : PO KE56334 , PEEK(56334)AND2 54 :POKE1,51 KE563 34,PEEK{563 34)AND254:POKE1,51 : rem 69 69 :rem 165 FORA=AD+256T0AD+471:POKEA,PEEK(38912+ FORA-AD+256TOAD+471:POKEA,PEEK(38912 + 165 A) :NEXT : POKEl , 55 : r em 165 165 A):NEXT:POKE1,55 :rem 170 POKE56334,PEEK(56334)OR1 POKE56334,PEEK(56334)ORl :rem 69 69 170 :rem 175 PRINT"(UP}[2 PRINT" ( UP}{2 SPACES}PRESS SPACES }PRESS ANY ANY KEY KEY WHE WHE 175 N READY READY TO TO BEGIN. BEGIN. "" : rem 58 58 N :rem 180 IFPEEK(197)=64ANDPEEK(653)=0ANDPEEK(5 IFPEEK(197)=64ANDPEEK(653)-0ANDPEEK(5 180 6320)-127THENI80 :rem 34 34 6320)=127THEN180 :rem 185 : : rem 216 216 185 :rem 190 :: :rem 212 212 190 :rera 1 95 PRINT"{CLR}":POKE53280,6:POKE54296,15 PRINT" {CLR} " : POKE53280 , 6 : POKE54296, 15 195 : DlMA%(40) : W=1184:JS=56320 :rem 180 :DIMA%(40):W=1184;JS=56320 :rem 200 POKE53282,6;POKE53283,0:POKE53270,24: POKE 53282 , 6:POKE53283,0:POKE53270,24: 200 POKE54291 , 0 : POKE5429 2 ,240 :rem 232 232 POKE54291,0:POKE54292,240 :rem FORI-0T02:POKE54276+I·7,8 : NEXT : POKE5 3 205 FORI=0TO2:POKE54276+I*7,8:NEXT:POKE53 281,3 :rem 247 247 281,3 :rem 210 POKE54284,0:POKE54285,240:POKE54277,0 POKE 54 284,0:POKE54 285 , 240 : POKE54277,0 210 ;POKE54278,240:IFZ>B%(T)THENB%Bi ( T )THENB%(T)=Z : rem 154 154 :rem 21 5 POKE53272,21:PRINT"{CLRltDOWN}[RED}", POKE53272 , 2 1 : PRINT" {CLR} {DOWN} {RED}" , 215 T,"{2 SPACES}$ " MID$( STR$(Z ·100),2) ".0 " .0 T, "{2 SPACES}S"MID?(STR5(Z*100),2) 0{BLU ) " 0(BLU}" :rem 89 220 PRINTTAB(8)"(DOWN} PRINTTAB(8)"{OOWN} LEVEL{6 SPACES}HIG SPACESjHIG H SCOREEDOWNi" SCORE{DOWN}" : rem 251 H :rem 225 FORA=1TO8:PHINT,A,"(2 FORA- I T08:PRINT , A," {2 SPACES}$ "MID$(S SPACESi?"MID$(S TR$ (Bi (A) · 100), 2)" .00" : PRINT : NEXT TR$(B%(A)*100),2)".00":PRINT:NEXT : rem 179 :rem 230 PRINT"[DOWN] PRINT " {DOWN} DIFFICULTY LEVEL? 123456 78 (GRN}":T=1 :rem 78(GRnJ":T=1 :rem 223 223 23 5 POK E56194+T , 0:TI -T :T- T+(PEEK(JS)AND4) 235 POKE56194+T,0:T1=T:T=T+{PEEK{JS)AND4) / 4-(PEEK(JS)AND8) /8 : T-(7ANDT - l ) + 11 I A-(PEEK(JS)AND8)/8:T=(7ANDT-1) :rem 76 240 IFT<>T1THENPOKE56 1 94+T1 , 6 ::rem rem 241 IFT<>T1THENPOKE56194+T1,6 POKE56194+T,1:L=3:IFT/2=INT{T/2)THENL 245 POKE56194 +T , I:L=3 : IFT/2=INT(T/2)THENL irem 59 -2 :rem 250 Ss20:IFT=30RT= 40RT>6THENS-30 ::rera rem 7 S=20:IFT=3ORT=4ORT>6THENS=30 255 N -2 4 : IFT>4THENN~25 : L =L+l :rem 168 N=24;IFT>4THENN=25:L=L+1 260 GETA$:IF(PEEK(56320)AND16) - 16ANDA$<>C GETA$:IF{PEEK(56320)AND16)=16ANDA?<>C HR${l3)THEN235 ::rem rem 124 HR$(13)THEN235 265 POKE53272 , 31 : PRINT" {CLR} " : POKE5 3 280, 9 POKE53272,31:PRINT"(CLR]":POKE53280,9 :POKE53281 , I : M~ 4: Z-0 I K- 0 : GOSUB590 :POKE53281,1:M=4:Z=0:K=0:GOSUB590 ::rem r em 2217 17 270 POKEW+X, 14; X=20:P-2 0: Y- L:R- 1 : GOSU87 05 POKEW+X,14:X=20:P=20:Y=L:R=1:GOSUB705 :GOSU B6 4 5 :POKEI 98,0 :rem :GOSUB645:POKE198,0 :rem 185 275 : ::rem r e m 21 6 216 280 :rem 2212 12 280 : 285 REM MAIN LOOP OF ::rem rem 143 OF PROGRAM 290 AA=PEEK(JS):IF(AAND4)=0ANDR=1THENPOKEW 290 PEEK(JS) : IF(AAND4) - 0ANDR- ITHENPOKEW +X,14:X-X+ (X>0) ::rem r em 192 +X,14:X=X+{X>0) 192 295 =0 ANDR~lTHENPOKEW+X,14 : X=X - ( 295 IF(AAND8) IF(AAND8)=0ANDR=1THENPOKEW+X,14:X=X-( X(39) :srem r e m 58 X<39) 58 300 , 2 :IF (AAND2)-0ANDP>0THEN 34 0 300 POKEW+X POKEW+X,2:IF(AAND2)=0ANDP>0THEN340 ::rem rem 30 30 305 ) =0ANDR> 1 THEN400 :re m 12 9 305 IF(AAND1 IF{AAND1)=0ANDR>1THEN400 :rem 129 310 (AAND16 ) =0THEN4 35 :rem 310 IF IF{AAND16}=0THEN435 :rem 39 39 3 20 GOTO290 GOT0290 320 :rem : r e m 238 238 :rem :rem 105 105 :rem : r em 212 212 :rem 330 : :rem 208 20 8 330 REM DRILLING AND GAS EXPLOSIONS 335 REM DRILLING AND GAS EXPLOSIONS 335 :rem : rem 150 1 50 :rem : r em 60 60 a 30RA>2023THENFORA= I T03:GOSUB IFC=NORC=3ORA>2023THENFORA=1TO3:GOSUB 3 4 5 IFCNORC 345 730:NEXT;GOTO290 :rem 73 0;NEXT:GOT0290 : r em 170 17 0 350 IFRND(1)>.06ORC<>14THENFORB=1TO3:POKE I FRNO(I» . 060RC()1 4 THENFORB=l T03: POKE 350 A,C+B:GOSUB730:NEXT:R=R+1:GOTO290 A, C+B:GOSUB730 : NEXT : R-R+l : GOT0290 :rem : rem 150 1 50 355 FORB=1TO2:POKEA,C+B:GOSUB730:NEXT:GOS FORB- I T02:POKEA,C+B : GOSUB730:NEXT:GOS 355 UB735:B=0 :rem UB735:B-0 :rem 158 158 360 R=R-1:POKE54296,4:IFR<1THENPOKE54296, R-R- l : POKE54296 , 4:IFR1THEN290 P-P+1 : GOSUB67 5 : IFR<)ITHEN290 : rem 190 190 :rem : rem 14 14 NEXT :M=M+l: FORC s I T03:GOSUB705:NEXT:GO 415 NEXT:M=M+1:FORC=1TO3:GOSUB705:NEXT:GO 4 20 420 SUB590:GOSUB645:GOTO290 SUB 590:GOSUB64 5 : GOT0 290 : :rem 124 124 :rem : rem 208 425 42 5 : DYNAMITE, 4430 30 REM DYNAM ITE , 4 35 435 440 440 445 450 455 460 465 470 475 480 485 490 495 495 500 500 505 5510 10 :rem : rem 213 GUSHERS,, DEV DEVILS GUSHERS I LS :rem 22 J=Z:Q=R-1:FORA=0TO21:A%(A)=0:NEXT:B=Q J -Z : Q=R- 1:FORA=0T021 :Ai(A) - 0:NEXT : BaQ * 40+W+X:A^PEEK(B):IFA<> 7 THEN480 ·40+W+X:A=PEEK(B):IFA<)7THEN480 ;rem 117 :rem A=W+X:B=40;IFY<1THEN290 Aa W+X : B=40;IF¥4ANDD<>NANDD<>3ANDA<1984THENB=BIFO<>4ANOD<>NANDO<>3ANDA<1984THENB-B2:POKEA,C:GOTO445 :rem 2:POKEA,C:GOT0445 :re m 96 POKE54276,8:GOSUB735:POKEA+54312,15 POKE54276 , 8 : GOSU9735:POKEA+54312,15 item 244 :rem IFC<)14ANDC<)9THENR=R-l ::rem r e m 135 IFC<>14ANDC<>9THENR=R-1 Y=Y-1:GOSUB665:GOTO290 ¥ - ¥ - 1:GOSUB665: GOT0 290 :irem rem 81 : :rem 218 A%(X)=1;POKE54273,40:POKE54276,129:PO A%(X)= I: POKE5 4 273 , 40 : POKE54276 , 129 I PO KE54296,4:V=W+X-40 KE54296 , 4 : V" W+X- 40 :rem 91 IFA=12THENPOKEB ,17 :Z=Z+Q : POKEV , 0 IFA=12THENPOKEB,17:Z=Z+Q:POKEV,0 :s rem 7 E=0:F=38:D=l!G=ls1=1:GOSUB530:POKEV,1 E=0 : F=38 : D=I:G=I : I=I : GOSUB530;POKEV,1 :E=39 s F=l:D=-l;G=D:I=D:GOSUB530 :E39:F=I:D=-I:G-D : I=D : GOSUB530 ::rem rem 56 E=0:F=39:D=l:G=-40:1=0:GOSUB530:POKEV E0 : Fm39 : 0-1:Gs-40:I=0 : GOSUB 53 0:POKEV ,0:IFC<>6THEN515 :rem 155 155 ,0 : IFC<>6THEN515 :rem Z=J:POKEB,3:POKEB+54272,2:POKEV,14:FO ZJ : POKEB , 3 :POKEB+5427 2 ,2 : POKEV , 14 : FO RA=0TO40:POKE54280,88:POKE54283,17 RA0T040 : POKE54280,88:POKE542 83 . 17 :rem 233 233 :rem POKE53283,14:POKE54296,6:FORB=1TO5:NE POKE53283, 14:POKE54296 , 6 : FORB=IT05:NE 86 XT ::rem rem 86 POKE54296,0:POKE53283,0:FORB=1TO5:NEX POKE54296 , 0 : POKE53283 , 0 : FORB-IT05 : NEX Odobei-1983 Q,tQber 1983 COMPUTEJ'sGatelle M7 147 TB,A:POKE54283,0:S-0:GOT0360 TB,A:POKE54283,0!B=0:GOTO360 :rem 134 515 IFHTHENQ=Ql:GOT0490 :rem 238 IFHTHENQ=Q-1:GOTO490 520 , 14:POKE54276,8:POKE54296,15:POK 520 POKEV POKEV,14:POKE54276,8:POKES4296,15:POK E54283 , 2:GOSUB705 : GOSUB645 : GOT0290 E54283,2:GOSUB705:G0SUB645:GOTO290 ::rem rem 17 525 t :rem 214 3 6THENRETURN 53. :rem 236 530 IFC IFC=6THENRETURN 535 : IFA%(A)m0THEN570 535 H-0:FORA=ETOFSTEPD H=0:FORA=ETOFSTEPD:IFA%(A)=0THEN570 :rem 152 54. :rem 201 540 S=Q*40+W+A+G:C=PEEK(B) B=Q*40+W+A+G:C=PEEK(B) 545 IFC=90RC=12THENPOKEB,C+5:H=1:Z=Z+Q+AB IFC=9ORC=12THENPOKEB,C+5:H=1:Z=Z+Q+AB 9-(I)-I : A%(A+I)=1 : GOT0565 :rem S-(l)-l:A%(A+l)=l:GOTO565 : rem 144 55. 550 IFC=140RC=17THENA%{A+I)=I:H=I:GOT0570 IFC=14ORC=17THENA%(A+I)=1:H=1;GOTO570 : rem 159 :rem 555 IFC=3THENC=6:RETURN : rem 224 :rem 56. :rem 131 560 A%(A+I)=0:GOT0570 A*(A+I)=0;GOTO570 565 IFRND(I) <.02ANDC<)12THENC=6:RETURN IFRND(l)<.02ANDC<>12THENC=6:RETURN :rem B3 83 57. NEXT: RETURN 570 NEXT:RETURN :rem 245 575 : :rem 219 58. : rem 215 580 : :rem 585 REM INITIALIZE THE DISPLAY :rem I111 II ;rem 59. {HOME) {5 DOWN)E82";:FORA=1TO9 DOWNHB~";: FORA=lT09 590 PRINT" PRINT"(HOME){5 9:PRINT"DDDDDDDD"; : NEXT : PRINT"DDDDDDD 9:PRINT"DDDDDDDD";:NEXT:PRINT"DDDDDDD : rem 147 ";; :rem 595 POKE2023,4:POKE56295,15:B=400:C=1264: POKE2023,4 : POKE56295 , 15:B=400:C=1264: FORA=IT02 : FORD=IT040 :rem 82 FORA=1TO2:FORD=1TO40 600 E=INT(RND{0)*B/2)*2+C:IFPEEK(E)=90RPE E=INT(RND(0)*B/2)*2+C:lFPEEK(E)=9ORPE EK(E+l)=9THEN600 :rem 61 EK(E+1)=9THEN600 : NEXT : B=360 : C=1665 : N 60S 605 POKEE,9:POKEE+l,9 POKEE,9:POKEE+1,9:NEXT:B=360:C=1665:N EXT: FORA=lTOS :rem 121 EXT:FORA=1TOS NT(RND(I)*340)*2+1264: C= PEEK(B):IF B=INT(RND{1)*340)*2+1264:C=PEEK(B):IF 610 B=I C=90RC=NTHEN610 :rem 246 C=9ORC=NTHEN610 , N:POKEB+54272,10:NEXT:FORA=0T01 615 POKEB POKEB,H:POKEB+54272,10:NEXT:FORA=0TO1 99:POKE55296+A,0:NEXT:FORA=0T039 99 :POKE55296+A,0:NEXT:FORA=0TO39 :rem 15 : POKE1104+A,20:NEXT 620 POKE55376+A,3 POKE55376+A,3:POKE1104+A,20:NEXT 62. :rem 62 FORA=0T03 : POKE55337+A,2 :NEXT :RETURN 625 FORA=0TO3:POKE55337+A,2:NEXT:RETURN :rem 213 :rem 211 630 : :rem 216 635 ; rem 71 640 REM UPDATE SCREEN INFORMATION ::rem " {HOME} {GRN} "SPC (23) "$ "MID$ (STR$ PRINT"{HOME}[CRN}"SPC(23)"$"MID?(STR$ 645 PRINT (Z*100),2)".00" :rem 167 A~ INT(Z/1000) : IFA =K +ITHENK = K+l:GOSUB7 650 A=INT(Z/1000):IFA=K+1THENK=K+1:GOSUB7 65. 005:GOSUB705:M=M+1 5 :GOSUB705 : M=M+l :rem 4 IFM<1THENPOKE1024,14:POKE5 5296,14:GOT ITHENPOKE 1024 , 14: POKE55296 ,14:GOT 655 IFM< 0665 ::rem rem 184 FORA=1024TO1023+M:POKEA,2:POKEA+54272 , 2 : POKEA+54272 660 FORA=1024TOI023+M:POKEA ,0:NEXT:POKEA,14 : POKEA+54272,0 ,0:NEXT:POKEA,14:POKEA+54272,0 ::rem rem 207 , 0:GOTO IFY=0THENPOKE1031,14:POKE55303,0:GOTO 665 IFY=0THENPOKEI031,14:POKE55303 675 :rem :rera 132 670 FORA=1031TOI030+Y FORA=1031TO1030+Y:POKEA,19:POKEA+5427 : POKEA,19:POKEA+5427 2,0 : NEXT:POKEA,14:POKEA+54272 , 0 2,0:NEXT:POKEA,14:POKEA+54272, :rem 16 IFP3THEN50 :rem 145 -3)";LV:IFLV<1ORLV>3THEN50 60 INPUT"(CLR){3 INPUT"(CLR}J3 DOWN) DOWN} 1 OR 2 PLAYERS";P : rem 175 :rem 70 IFP<>1ANDP<>2THEN60 IFP<>IANDP<>2THEN60 :rem 85 85 70 :rem 80 IFP=2THENINPUT"ED0WN}NAME IFP"2THENINPUT"{DOWN}NAME 1";N1$:INPUT l " ;Nl$ : INPUT 80 "(DOWN]NAME 2";N2$ 2 "; N2$ : rem 75 75 "{DOWNjNAME :rem 99 REM REM CUT CUT EXCESS EXCESS NAME NAME LENGTH LENGTH :rem 239 2 39 89 :rem 400 IFFS<>S?ANDE=1THEN720 IFF$<>S$ANDE"' lTHEN720 400 409 409 REM REM SCORING SCORING 0) 0) (W=-l (W- -1 : rem 204 204 :rem INDICATES INDICATES PLAYER PLAYER TW TW :rem :rem 52 52 410 410 E=0:F$=""!IFW=1THENS1=S1+1:IFHKS1THE E=0 : F$ '"" "" : IFW"'ITHENSl:S1 +1: IFH112THENN2$=LEFT$(N2$,12) 430 PRINT"(HOME)";:IFW=-1THENPRINT" PRINT"{HOME}"; : IFW" -lTHENPRINT" : rem 120 430 :rem {10 DOWN)"; DOWN}"; : rem 86 El0 =rem PRINT"{ CLR}{CYN){RIGHT}{RVS}U-R eE -print"{clr3[cyn}£right}{rvs]***r 440 IFW=1THENPRINT"{4 IFW=lTHENPRINT"{4 DOWN][9 DOWN}{9 RIGHT]{PUR] RIGHT}(PUR} {SPACE)a EE EE p***{2 P--·(2 DOWN) DOWN} :rem 160 160 440 {SPACEJb :rem {RVS}HIGH ="H1:PRINT"[DOWN}£9 :"H1:PRINT {DOWN}{9 RIGHT) RIGHT} (RVSjHIGH PRINT~{RVS}{GRN)RIT SPACE SPACE BAR BAR TO TO BEGI PRINT"tRVS]EGRN]HIT {GRN}SCORE= "Sl :rem 53 53 [GRNJSCOR£="S1 :rem N :rem 160 160 N :rem WAIT197 , 32 : r em 251 25 1 450 450 IFW=-1THENPRINT"(4 IFW" - ITHENPRINT" {4 DOWN){9 DOWN} {9 RIGHT} RIGHT} HAIT197,32 :rem [PUR}(RVS}HIGH PRINT"{2 UP}[22 UP){22 SPACES}";:POKE36879,1 SPACES)"; : POKE36879 , 1 (PUR) {RVS)HIGH ="H2:PRINT"{DOWN) - "H2 : PRINT"{DOWN} PRINT"{2 t9 rem 101 07 : rem 11 (9 RIGHT}{GRN}SCORE="S2 RIGHT) {GRN)SCOREs "S2 :rem 101 07 :rem :rem REM SET UP PLAY FIELD 460 460 FORM=1TO750/LVT2:NEXT FORM- 1T075e1/LVf2:NEXT : r'em 85 :: rem 173 rem 103 PRINT" {BLK}" : FORL=l T07STEP2 : PRINT"F"L 470 PRINT"{BLK]":FORL=1TO7STEP2:PRINT"F"L 470 GOTO210 GOT021e1 :rem 1e13 "{3 DOWN)":NEXT : r em 167 479 479 REM NOTE PLAYING PLAYING SUBROUTINES :rem :rem 53 53 :rem {HOME} (4 {4 DOWNHGRN DOWN} {GRN}" FORL=l T04: 480 POKE38514,1:POKE38515,1 PRINT" (HOME) J " :: FORL=1TO4: POKE38514 , 1 : POKE38515 , 1 : rem 249 249 PRINT"{4 RIGHT}[RVS](2 RIGHT}{RVS}{2 SPACES] SPACES} PRINT"(4 490 POKES,A POKES , A : rem 140 14e1 {3 DOWN]":NEXT DOWN}":NEXT : r em 204 204 500 500 GOSUB780 : rem 180 (3 :rem rem 116 PRINT" {2 UP}E9 Up} {9 RIGHT){BLK}TO RIGHT} {BLK }TO RESTART PRINT"(2 510 POKES,0 :rem 116 510 : rem 198 198 520 :rem 5:POKE38515,5 rem 252 520 POKE38514, POKE38514,5:POKE38515,5 :rem PRINT " {DOWN}{9 RIGHT]PRESS RIGHT}PRESS '*'irem '-': rem 99 5530 : rem 120 120 PRINT"(DOWN}(9 30 RETURN 540 POKE38602, POKE38602 , 1:POKE38603,1 1 : POKE38603 , l : rem 242 REM PRINT NAMES AND POKE PLAYER NUMBE 540 R IF IF TWO PLAYERS : rem 200 550 550 .POKES,B : rem 138 138 R :rem IFP=2THENPRINT"{HOME}{2 DOWN} DOWN) IFP=2THENPRINTm{HOME}{2 560 GOSUB780 : rem 186 {9 RIGHT) {RVS} {CYN} "Nl$:PRINT " £9 RIGHT]{RVS}{CYN)"N1$:PRINT" rem 122 570 POKES,0 :rem POKE38602,5:POKE38603,5 rem 254 580 : (9 DOWN}{9 RIGHT]tRVSj"N2$ RIGHT}{RVS}"N2$ : rem 213 [9 DOWN3E9 :rem rem 126 126 590 RETURN : 590 IFPm2THENPOKE7788,177:POKE8008,178 IFP=2THENPOKE7788,177:POKE8008,178 rem 253 8 690,l:POKE3 8691,l :rem 25 3 600 POKE3 POKE38690,1:POKE38691,1 :rem 236 rem 136 61e1 POKES,C :rem 610 REM LIGHT APPROPRIATE PLAYER NUMBER rem 183 620 COSUB780 :rem GOSUB780 :rern srem 212 rem 119 119 630 POKES , eI :rem POKES,0 IFW~ I T H ENPOKE38728,6:POKE38508 , l IFW=1THENPOKE38728,6:POKE38508,1 POKE38690,5:POKE38691,5 :rem 640 POKE38690 , 5:POKE3869 1, 5 : rem 9 :rem srem 129 rem 123 650 RETURN : IFWc- 1THENPOKE38728 , 1 : POKE38508 , 6 IFW=-1THENPOKE38728,1:POKE38508,6 POKE38778,l:POKE3 8 779 , l ::rem rem 17 ::rem rem 175 660 POKE38778,1:POKE38779,1 rem 143 670 :rem POKES,D REM RANDOM TONE STRING FORMATION rem 189 6680 80 GOSUB 780 :rem 189 GOSUB780 :rem srem 254 rem 125 69e1 POKES,eI :rem 690 POKES,0 R"INT(RND(l)-4)+l :rem 128 R=INT(RND(l)*4)-t-l 778,5:POKE3 8 779 , 5 ::rem rem 20 POKE38778,5:POKE38779,5 S$-S$+STR$(R) :rem 172 700 POKE38 S?=S5+STR$(R) 120 : rem 12e1 s 1T0750 / LVt2:NEXT FORM :rem 82 710 RETURN FORM=1TO750/LVT2:NEXT POKE36874,159:FORM=1TO999:NEXT:POKE36 720 POKE36874 , 159:FORM=lT0999 : NEXT : POKE36 REM VIC PLAYS IT ' S STRING IT'S :rem 221 874,135:FORM=IT01500 : NEXT : POKE36874 , 0 874,135:FORM=1TO1500:NEXT:POKE36874,0 FORL B 2TOLEN(S$)STEP2 :rem 242 FORL=2TOLEN(S?)STEP2 ::rem rem 11 Q=VAL(MID$(S$ , L,I» :rem Q=VAL(MID$(S?,L,1)) :rem 246 730 S1 .. 0:S2 =0:S$ "' .. ":F$ .... :E=eI : REM RESET S1=0:S2=0: ="":F$="":E=0:REM GETZ$:REM CLEARS EXTRANEOUS CHARACTER ::rem rem 155 S ::rem rem 190 740 PRINT" {HOME} .. : : IFW" -l THENPRINT" PRINT"tHOME)";:IFW=-1THENPRINT" ONQGOSUB480,540,600,660 : FORMsIT075/LV ONQGOSUB480,540,600,660:FORM=1TO75/LV {10 DOWN}"; ::rem rem 90 f2 : NEXT ::rem rem 185 T2:NEXT :I RIGHT]{10 SPACES}" SPACES}":! :rem 210 750 PRINT"{6 DOWN}{9 RIGHTJ{lB NEXT FP=2THENW=-W:REM SWITCH PLAYERS FP=2TRENW=-W:REM REM PLAYER ATTEMPTS A :rem 109 A MATCH :rem 183 GETZ$: IFZ$ - " "THEN310 ::rem rem 125 GETZ?:IFZ$=""THEN310 GOTO210 760 GOT0210 :rem 105 IFZ$" {F1} "THENGOSUB4S0 : F$ - F$+STR$(1) IFZ$="(Fl3"THENGOSUB480:F$=F$+STR?(1) BUZZER/TIMING TIMING SUBROUTINES ::rem rem 226 : rem 8 769 BUZZER/ POKE36874,135:FORM=1TO250:NEXT:POKE36 7713 POKE36874 , 135 : FORMm1T0250 : NEXT : POKE36 770 IFZ$ - " ( F3) MTHENGOSUB540: F$- F$+STR$ (2) IFZ$="[F3}"THENGOSUB540:F$=F$+STR$(2) 874,0:RETURN :rem 24 :j rrem em S8 FORM=lTO600/LVT2sNEXT:RETURN 7813 1T060B / LVt2 : NEXT : RETURN ::rem rem 110 780 FORMIFZ$"'''(F5)''THENGOSUB600:F$'""F$+STR$(3) IFZ$="{F5}"THENGOSUB600:F$=FS+STR$(3) : rem S8 IFZ$= " {F7 } "THENGOSUB660: F$=F$+STR$ (4) Program 2: Re·Beep IFZ$="(F7}"THENGOSUB660:F$=F$+STR$(4) Re-Beep For For 64 64 ::rem r em 17 IFZ$ -M - ~ THENRUN ::rem rem 117 100 REM RE-BEEP{2 IFZ$="*"THENRUN RE-BEEP[2 SPACES)64 SPACES}64 ::rem rem 191 REM VIC TONE STRIN 110 S-54272:RmRND( REM PLAYER TONE STRING/ STRING/VIC - RND(0» : FORI-0T04 : READ S-54272sR=RND(-RND(0)):FORI=0TO4:READ G :rem G COMPARISON jrem 121 H(I),L(I):NEXTiS$="" H(I) , L(I):NEXT:S$- "" :rem 89 IFLEN(F$)<>LEN(S$)THEN310 ::rem r em 167 120 FORI IFLEN(F$)<>LEN(S?)THEN310 - 0T021:POKES+I , 0:NEXT ::rem r em 59 FORI=0TO21:POKES+I,0:NEXT IFF$ >S$ANDE-0THENF$-"" : E-1 :PRINT" 1PF$ < <> SSANDE=0THENF?="":E=lt PRINT" 130 POKES+24 POKES+24,15:POKE53280,2:POKE53281,0:W 130 , 15:POKE53280,2 : POKE53281 , 0:W {HOME}{9 DOWN}{ 9 RI GHT ) {YEL} [RVS) TRY DOWN){9 RIGHT}{YEL][RVSjTRY -1: D$-" {HOME1} {25 DOWN}" : rem =1:DS="{HOMEF){25 rem 168 {SPACE )AGAIN" : GOSUB77 0 : GOT02 50: r em 62 1413 [SPACE}AGAIN":GOSUB770:GOTO250:rem 140 PRINT"lcLR)" PRINT"£CLR}" ::rem r em 249 PRINT " {HOME}{9 DOWN}{9 PRINT"{HOME3{9 DOWN){9 RIGHT} RIGHT] 150 FORL=3T07STEP2:POKE646 , L : PRI NTSPC( L-2 FORL=3TO7STEP2:POKE646,LtPRINTSPC{L*2 {9 ::rem rem 30 19 SPACES}" SPACES)" +5)"{4 DOWN}{RVS }1 2 SPACES}REBEEP "":: DOWNj{RVSj(2 SPACES)RE-BEEP REM FAILS SECOND TRY :rem 179 251 NEXT :trem r em 25 1 90 IFLEN(Nl$)>12THENN1$=LEFT$(Nl$,12) IFLEN(Nl$»12THENNl$=LEFT$(N1$,12) 90 100 100 110 110 120 120 130 130 140 140 149 150 150 160 160 1 70 170 180 189 189 190 200 209 209 210 210 220 220 229 230 240 250 259 260 270 280 290 300 309 310 320 330 340 350 360 369 370 380 390 399 M Odoberl983 COMPUTEI'i Gazette Gaictte 1 149 Oc!obe r 1983 COMPUTE!'. ~9 160 FORM=1 FORM=1TO1500:GETA?:IFA?=""THENNEXT 1613 T015e0: GETA$: IFA$- " "THENNEXT :srem rem 62 170 INPUT"{CLR} 1713 {WHT}{3 DOWN} INPUT"[CLR}{WHT}[3 DOWN] PLAY LEVEL ( 1-3)";LV:IFLV<1ORLV>3THEN170 :rem 247 3)";LV : IFLV3THEN1713 :rem 1180 INPUT INPUTH{CLR){3 DOWN} 1 OR OR 2 PLAYERS";P 1813 " {CLR}{3 DOWN) ::IFP<>1ANDP<>2THEN180 IFP<>lANDP<>2THEN1 8e ::rem rem 61 190 IFP-2THENINPUT"{OOWN} IFP=2THENINPUT"[DOWN) NAME 1";N1$:INP 193 UT"[DOWN} 2";N2? UT"{ OOWN} NAME 2";N2$ ::rem rem 125 200 N1$=LEFT$(N1$,12);N2$=LEFT$(N2$,12) 21313 N1$ - LEFT$(N1$,12):N2$=LEFT$(N2$ , 12) 50 :rem 513 210 PRINT" 2113 (CLR) MSPC ( Ie) "{ CYN} {RVS} PRINT"£CLR]"SPC(10)"{CYNJ(RVS] (4 SPACES}R SPACESjR E ** BEE B E E P{2 P[2 SPACES} {4 {2 DOWN DOWN}) 139 (2 ::rem rem 139 220 PRINTSPC(9)M{RVS} printspc(9)"(rvs]{grnJhit space BAR bar T t 2213 (GRN}HIT SPACE oO BEGIN" :;rem rem 51 230 WAIT1 WAIT197,32:POKE198,0 2313 97 ,32 : POKE198 , 0 ::rem rem 99 240 PRINTSPC(9 PRINTSPC(9)"(UP}[22 SPACES}";:POKE532 2413 )"[UP}{22 SPACES}" ; :POKE532 80,3:POKE53281,6 83 , 3:POKE53281,6 ::rem r em 59 250 REM SET UP SCREEN 204 2513 ::rem rem 2134 260 PRINT"£BLK}"sFORL=lTO7STEP2:PRINTSPC( 2613 PRINT" {BLK}": FORL"'l T07STEP2 :PRINTSPC( 15)"F"L"[2 OOWN}" DOWN}":NEXT ;rem 15)"F"L"{2 : NEXT :rem 53 270 PRINT PRINT"{HOME){3 2713 " {HOME)13 DOWN){GRN}":FORL=1TO4: DOWN) IGRN} " : FORL:1T04: PRINTSPC(20) "(RVS}[3 SPACESJU DOWN}" PRINTSPC(23)"{RVS } (3 SPACES){2 209 :sNEXT NEXT ::rem rem 239 280 PR1NTSPC(15) [2 OOWN}(BLK}TO down}(blk)to RESTART restart 2813 PRINTSPC(1 5) "(2 :rem 96 290 PRINTSPCU5) "(DOWN)PRESS ''*' : rem 253 2913 PRINTSPC(15)"[DOWN}PRESS *' :rem 300 REM PRINT NAMES AND POKE PLAYER NUMBE 31313 R IF TWO PLAYERS ::rem rem 185 R IFP=2THENPRINT"(HOME}[2 3113 {HOME} {2 DOWN}(RVS} DOWN J {RVS} 310 IFP-2THENPRINT" [CYN)"SPC(18)N1$:PRINT"[12 DOWN}£rVS} (CYN) "SPC( 18)N1$ :PRINT" {12 DOWN} (RVS ) "SPC(18)N25 :rem "SPC (18) N2 $ : rem 56 IFP=2THENPOKE1120,177sPOKE1640,178 3213 , 178 320 IFP_2THENPOKEl1213,177:POKE164e :rem 208 : r em 2138 333 330 REM LIGHT APPROPRIATE PLAYER NUMBER jrem 207 :rem 2137 5392,6:POKE55912,1 3413 IFW=-ITHENPOKE55392 , 6 : POKE55912 , l 340 IFW=-1THENPOKE5 :rem 172 172 3513 IFW_ITHENPOKE55912,6:POKE55392,l 350 IFW=1THENPOKE55912,6:POKE55392,1 :rem :rem 128 128 3613 REM RANDOM RANOOM TONE STRING FORMATION 360 srem 250 : rem 2513 :rem R- INT(RND(l)*4)+l : r em 133 133 370 37. R=INT(RND(1)*4)+1 srem S$=S$+STR$(R) : r em 177 177 380 38. S$=S$+STR?{R) srem GOSUB76B :rem 185 185 290 393 GGSUB760 :rem PLAYS IT'S STRING : rem 209 2139 400 4 •• REM VIC PLAYS :rem FORL- 2TOLEN(S$)STEP2 : rem 239 410 41. FORL=2TOLEN(S?)STEP2 :rem NT-VAL ( MID$(S$ , L,l» : rem 68 420 42. NT=VAL(MID$(S?,L,1)) FG a 1:GOSUB63e :FORA=lT075/LV t 2 : NEXT 430 43. FG=l:GOSUB630:FORA=lTO75/LVt2:NEXT : rem 158 158 :rem s:rem rem 62 NEXT:POKE198,e 62 440 44. NEXT:POKE198,0 REM PLAYER PLAYER ATTEMPTS ATTEMPTS A A MATCH srem : rem 106 1136 450 45. REM :rem GETZ$: IFZ$-""THEN46e : rem 137 137 460 46. GETZ$:IFZ$=""THEN460 FORI -1 T04:sIFZ?=MID${"EFl)IF3)[F5}t IFZ$=MID$ ( "[ F1 ) (F3) [F5 1 (F7) F7 3 470 47. FORI=1TO4 ",1,1)THENNT=I:1=10 :rem " , I , l)THENNT- I:I-1e :rem 139 139 NEXT:IFI>10THENFGl:GOSUB6 30:F$=F$+ST 480 48. NEXT:IFI>10THENFG=1!GOSUB630:F?=F$+ST BS(NT):GOTO510 :rem R$(NT) : GOT05113 : r em 152 152 srem IFZ$-"*"THENRUN :re m 121 121 490 49. IFZ?="*"THENRUN REM PLAYER PLAYER TONE STRING/VIC STRING/ VI C TONE STRIN STRIN 500 5 •• REM G srera G COMPARISON : r em 108 1138 srem I FLEN(P$)<>LEN(S$)THEN4613 :rem 169 169 510 51. IFLEN(F$)OLEN(S$)THEN460 :: rem IFF$-S$THEN570 rem 15 15 520 52. IFF$-S$THEN570 :rem IFE- lTHEN6ge : rem 168 168 530 53. IFE=1THEN690 IFE_eTHENP$_M"IE_1:GOSUB76e:PRINT 540 54. IFE=0THENF$=""sE=lsGOSUB760:PRINT" [HOME][DOWN}"SPC(15)"[YELlJRVSJTRY AG [HOKE){DOWN)"SPC{ 15)M{YEL}{RVS) TRY AG AIN":GOSUB740 :rem AIH M, GOSUB7 40 : rem 172 172 550 55. PRINT"{HOME}{DOWN}"SPC(15)"[9 SPACES} PRINT" {HOME} {OOWN} "SPC ( 15) " {9 SPACES} ";GOSUB750 s POKE198,0 SGOTO390 s: rem " : GOSUB75e:POKE198 , e:GOT0393 rem 60 613 560 srem 56. REM REM SCORING SCORING :rem 148 148 570 : F$=" + 1 : IPHKS1THE 57. E=0 E",e:F$ - " "":: IFW=1THENS1=S1 IFW- lTHENS1-S1+1:IFH1 "9"ORHF$<"1")THEN22 IF(HF$)"9"ORHF$<"1")THEN22 24 24 HF=INT(2.5f(VAL(HF$)-l)) HF ~I NT(2.St(VAL(HF$)-1» sc",e:GOSUBgee 25 SC=0sGOSUB900 313 GOSUB925:REM GOSUB925:REM **** **** NEW NEW LETTER LETTER 30 32 FORI=0TO3:FORJ=0TO3:C(I,J)=0:NEXTJ:NE FORI s 0T03:FORJ-BT03:C(I,J)=e : NEXTJ : NE 32 XTI:REM *** *** CLEAR CLEAR OLD OLD LETTER XTI:REM L=INT(RNO (1)*26+1):B=32768+L*8:F=e 40 L=INT(RND(1)*26+1):B=32768+L*8:F=0 45 FORI=0TO3 FORI-eT03 48 48 F=ABS(F-1) F=ABS(F-l) 50 513 T=PEEK(B+2*I+1-F) T~PEEK(B+2*I+I -F ) 53 53 FORJ=0TO3 FORJ=3T03 55 55 M=(TANDFNM(J))/(4 Ms (TANDFNM( J»/( 4 TJ)s 1J) : C(I,J)=C(I,J)+IN C(I , J)=C(I , J)+IN T(M*(4TF» T{M*(4TF)) 58 NEXTJ NEXTJ 58 60 60 IFFTHEN48 IFFTHEN48 63 NEXTI 63 NEXTI 70 REM REM **** **** FLASHING FLASHING 70 72 X=INT(RND(l)*101+20) X_ INT(RND(1)*101+2a) 72 15 FORY=1TOX:Z=INT(RND{1J*10) = 7682-HZ:: 74 FORY=lTOX : Z=INT(RND(1)*1e1) ::ZZ ZZ=7682+Z POKEZZ,32!POKEZZ,160:NEXTY POKEZZ,32:POKEZZ,16e1:NEXTY POKE36879,27:SYS828 80 POKE36879 , 27 : SYS828 FORI=0TO3:FORJ=0TO3 82 FORI=elT03:FORJ=0T03 s 7722-J+22*I:Q=S(C(I,J»:POKEP , Q 84 pP=7722-J+22*I:Q=S(C(I,J)):POKEP,Q 86 NEXTJ:NEXTI NEXTJ: NEXTI 90 LF=0:NF=0:FH=0:SH=0:SYS83 LF=0 : NF=0:FH=0 : SH=0:SYS8333:POKE7680,L : POKE7680 , L 98 POKEZZ,32 99 REM *** START ATTACK FORX=1TO18 100 FORX:1T01B GETG$:IFG$=""THENFORY=1TOHF:NEXTY:GO 105 GETG$ : IFG$=" "THENFORY=lTOHF:NEXTY:GO TO190 '1'0190 110 IFLFTHEN140 1H'I 120 IF(ASC(G$) - 64) =LTHENLF=1 : FH=X:GOT014 IF(ASC(G5)-64)=LTHENLF=1:FH=X:GOTO14 130 130 o0 FORY=1TOHF:NEXTY:GOTO190 FORY=lTOHF:NEXTY:GOT0190 140 150 160 170 180 190 IFNFTHEN300 IF{VAL(G$)-1)=ZTHEN180 IF(VAL(G$) - 1)=ZTHEN180 IF(G$="0"ANDZ=9)THEN180 IF(G$="0"ANDZ=9)THEN18e1 FORY=1TOHF;NEXTY:GOTO190 FORY=lTOHF:NEXTY : GOT019e1 200 210 220 221 222 223 230 240 250 260 280 299 300 30e1 NEXTX NF=1:SH=X:GOTO300 NF~ 1 : SH=X:GOT0300 POKE{7682+Z+X*22),8H-LF*128:POKE(384 POKE(7682+Z+X*22),B1+LF*128:POKE(384 02+Z+X*22),0 el2+Z+X*22),0 REM *** LOSE ROUND FORXX=0TO3 FORXX=0T03 PB=(8100+Z+(22*XX)) PB=(810e1+Z+(22·XX» IF(PEEK(PB)<>32)THEN240 IF(PEEK(PB)<)32)THEN240 NEXTXX GOTO 320 IFLFTHEN260 POKE(PB+22),32 POKEPB.32 POKEPB , 32 GOTO30:REH GOT030 : REM *** NEXT LETTER REM **. *** SCORING SC=SC+INT((500-5*FH-2*SH)/SQR(HF)):G SC=SC+INT«500 - 5*FH-2·SH) ! SOR(HF»:G OTO30 OT030 319 REM * •• LOSE ROUTINE *** 320 FORY"' lT0300 : NEXT:PRINT .. {CLR}····**·· FORY=1TO300:NEXT:PRINT"{CLR3 ******** **.*•*.*******(D0WN] SORRY, YOU LOST *·***··*****·*(DOWN} 0TO17:FORY=0TO9:POKE(7 704+Y+X*22),32 0T017 : FORY=0T09:POKE(7704+Y+X*22) ,32 ::NEXTY,X NEXTY , X FORX=7681TO8165STEP22:POKEX,107:POKE 955 FORX=7681T08165STEP22 : POKEX,107 : POKE X+ll,115:POKEX+30720,6;POKEX+307 31,6 X+11,115:POKEX+30720 , 6 : POKEX+30731,6 ::NEXTX NEXTX 960 PRINT"(HOME){14 DOWN]{16 RIGHTjSCORE 96 0 PRINT"{HOME}{14 DOWN}£16 RIGHT}SCO RE PRINT"{HOME]{15 DOWN}(15 DOWN][l5 RIGHTj":SC RIGHT]";SC;; 961 PRINT"{HOME){15 970 RETURN 828K.33 SYS 994 END:REM *** 828&33 FORX=828TO867:READY;POKEX,Y:NEXT 995 FORX=828T0867 : READY:POKEX,Y : NEXT 999 RETURN DATA169,1,76,67,3,169,6,160 1000 DATA169,1 , 76 , 67 , 3,169 , 6 , 160 DATA39,140,77,3,162,0,160,0 1001 DATA39 , 140 , 77 , 3,162,0 , 160 , eI 1002 DATA157 DATA157,39,150,232,224,4,208,248 , 39,150 , 232,224,4,208 , 248 1003 DATA238,77 , 3 , 20e1 , 192,22 , 208 , 248 DATA238,77,3,200,192,22,208,248 DATA172.77,3,192,127,208,229,96 1004 DATA172,77 , 3 , 192,127,208 , 229,96 1200 REM *** INSTRUCTIONS 12e10 PSINT"{CLRHDOWN} §20 +3 (DOWN) A 1210 PR I N'l' '' {CLRl-{OOWN) -E20 +~ { -DOWN} A NDROMEDAN AARDVARKS{2 SPACES}ARE AT TACKING EARTH ." EARTH." PRINT"[DOWN} THEY HAVE 26 KINDS 1220 PRINT"(DOWN} {4 ' RE (4 SPACES)OF SPACES}OF BOMBS AND THEY THEY'RE (2 SPACES}ATTACKING SPACES)ATTACKING 10 CITIES I" 1" {2 1230 PRINT " {DOWN} YOUR ALPHANUMERIC PRINT"{DOWN} {5 SPA.CES J RADAR CAN SAVE EARTH ." SPACES}RADAR EARTH." PRINT"" FIRST: RECOGNIZE{13 SPACES}T SPACESjT 1240 PRINT HE BOM B (AZ)" BOMB (A-Z)" SPACESlTHEN:: SAVE 1250 PRINT"J2 PRINT" {2 SPACES}THEN {18 SPACES}THE SPACES]THE CITY (0-9)" {1B 1260 PRINT " {DOWNJ [RVS}HIT PRINT"{DOWN} [RVSjHIT ANY ANY KEY TO PL AYtOFF}"; AY[OFF}"; GETG5:IFG$=""THEN1270 1270 GETG$ : IFG$= "" THEN1270 1280 RETURN Word Match . BEFORE TYPING... BEFO RE TYPING ... lyping in programs, reft'rr 10 (n " "How Before typing I'rog r~ms, please ple:.se refe How To Type CQ,V Il' UTE!'s G.l7.ellc ,\ Begi nn er's Guide To COMPUTE!'* Gazette Progr.lms·' Programs" and " "A Beginner's Typing that appear the Program Listings. Listings. T yping In In Programs" Progr.lm s" Ih.ll.l p pe~r before bcfo rr.lhe ic Prt)ufrC.l{lcr." Also, see the (he .lrticlc article "Automat "Automatic ProofriMder." If 321 322 323 324 326 328 800 801 805 810 815 820 825 898 899 900 910 920 925 930 940 940 950 PRINT"{2 DOWN} YOUR SCORE :" ;SC SCORE:";SC PRINT"{DOWN] PRINT"{OOWN) AT AT LEVEL "";HF? IHF$ PIUNT " {2 DOWN} PRINT"{2 DOWN} PLAY AGAIN (Y!N)? (Y/N)?"" GETY$:IFY?=""THEN324 GETY$ : IFY$= " "THEN324 IFY$="N"THENPRINT"(CLRj":END IFY$" N" THENPRINT"{CLR}" : END GOTO18 GOT018 DIMS(15):DIMC(3,3) DIMS(15) : DIMC(3 , 3) * HOUSEKEEPING REM •• *** DEFFNM(X)=3*(4tX) DEFFNM(X)=3 * (4 t X) FORX=0TO15:READS(X)iNEXT FORX=0T015 : READS(X):NEXT DATA32,108,123,98,124,225,255,254 DATA32 , 108 , 123 , 98 , 12 4, 225 , 255,254 DATA126,127,97,252,226,251,236, DATA126,127,97 , 252,226 , 251,236 , 160 RETURN END REM .** *** SCREENS PRINT"{CLR}{2 SPACES}·· .. ****** SPACES}********** 13 SPACES SPACES}{HOME}{DOWN}":FORX=1TO110: {3 } (HOME) {DOWN} " : FORX=l T011'0 : PRINT : NEXT PRINT"" " ;j:NEXT PRINT"{HOME}{19 D0WN}(2 SPACES}123 SPACES}12345 PRINT"{HOM E}{19 DOWN}(2 45 SPACES]L " ";HF$;" 67890{5 SPACES}L I HF$;" "; FORX=1TO3:PRINT"[2 {RVS} FORX=lT03:PRINT"{2 SPACES)EoJ SPACES)Ea~{RvsJ [10 SPACES}{OFF)Ew~{3 SPACES}[OFF)§W3t3 SPACES} SPACES] {lei E5 +2";:NEXT +~"I:NEXT PRINT"{HOME] EQ~******** * *Ew~"; print"{home} 1q3**********Ew3"; forx=7696to7806step22:fory=0to5:poke FORX=7696T07806STEP22 : FORY=0T05 : POKE x+y,102:nexty:nextx X+Y, 102:NEXTY : NEXTX forx=7 719to7785step22:fory=0to3:poke FORX-7719T07785sTEP22:FORY=0T03 : POKE X+Y , 160:NEXTY:NEXTX x+y,160:nexty:nextx forx=38400to38531:pokex,6:next:forx= FORX-38400T038531:POKEX,6 : NEXT:FORX ~ Program 1: VIC vie Word word Match Match 1 2 3 REM WORD MATCH PRINT"{CLR}"SPC(247)"{PUR}WORD MATCH PRINT"{CLR}"SPC(247)"(PURlWORD MATCH"" FORP=1TO2E3:NEXT:PRINTSPC{67)"(BLU}TOU FORP =lT02E3 : NEXT : PRINTSPC(67) " {BLU}TOU A KEY KEY..." CH A ... " "" THEN4 4 GETA$:IFA$= GETA$:IFA$=""THEN4 Ie 10 DIMN$(2):PRINT"{BLU}{CLR}NAMES, DIHN$(2):PRINT"{BLU}{CLRjNAMES, PLEAS EI El"" 12 PRINT"{HOME}{15 DOWN}TO PLAY AGAINST PRINT"(HOME}[15 DOWN]TO THE£4 SPACES}COMPUTER SPACESJCOMPUTER,, ENTER ENTER THE(4 ESHIFT-SPACE}'VIC A PLAYER PLAYER." {SHIFTSPACE} 'VIC ' AS A ." 13 PRINT" {HOME } {DOWN} " : FORN=l T02 : PRINT" PRINT"(HOME}{DOWN]":FORN=1TO2:PRINT" (DOWN}PLAYER " N;:INPUTN$(N) : NEXT : PRINT {DOWN]PLAYER"N;:INPUTN$(N):NEXT:PRINT "{CLR}" "(CLR}" 20 S=36876:V=S+2:BK=V+1:POKES,0:POKEV,15 S=36876:V-S+2:BK=V~I:POKES , 0 : POKEV,15 ::POKEBK,156:0=30720 POKEBK , 156:0=30720 DIMW$(12),R%(28),Wl$(6),C%(2),SQS(12) 30 DIMW$(12),R%(2B),W1$(6) , C%(2) , SQ%(12) ,,BK%(2) BK%(2) 32 DATACAR,CA.T,BOY , HAT,HIT , TOP , ATE,EAT , P DATACAR,CAT,BOY,HAT,HIT,TOP,ATE,EAT,P IT,PAT,GOT,HIM,HER,WHY,HOW,TIN,ILL , WH IT,PAT,GOT,HIM,HER,WHY,HOW,TIN,ILL,WH 0O,RUN,YOU , RUN, YOU 33 , BED,INK,AIM,ART,TOT,TIE,END 3 3 DATAACE DATAACE,BED,INK,AIM,ART,TOT,TIE,END Oclobcrl983 COMPUTEIS Gaelic 151 October t983 COM PUTEl's G,ucrrc t51 35 36 36 37 38 39 39 413 40 41 42 42 43 44 45 47 47 50 513 51 51 52 53 54 55 56 60 62 64 64 66 66 FORN=1TO28 FORN""lT02B Z=INT(RND(1)*2B)+1:IFR%(Z)<>0THEN36 Z=INT(RND{1)*28)+1:IFR%(Z)<>0THEN36 R%(Z)=N : NEXT R%(Z)=NjNEXT FORN=lT06:FORQ=lTOR%(N):READW$ : NEXT:W FORN=1TO6:FORQ=1TOR%(N) : READW? .-NEXT: W 1$(N)=W$:RESTORE : NEXT:FORO=lT02B:READ 1${N)=W$:RESTORE;NEXT:FORQ=lTO28:READ W$:NEXT WS!NEXT C%(1)=2 : C%(2)=5 : BK%(1)=172 : BK%(2)=236 C%{1)=2;C%(2)=5:BK%{1)=172:BK%(2)=236 FORN=lT012:R%(N)=e:NEXT F0RN=lTO12:R%(N}=3:NEXT FORN=lT011STEP2 FORN=1TO11STEP2 Z=INT(RND(1)*12) +1:Y= INT(RND(1) * 12)+1 Z=INT(RND(1)*12)+1SY=INT(RND(1)*12)+1 IFR%(Z)<>eORR%(y)<>eORZ=YTHEN42 IFR%(Z)<>0ORR%(Y)<>0ORZ=YTHEN42 R%(Z)=N:R%(Y)=N+1 NEXT FORN=lT01 2 : R%(N)=INT«R%(N) - 11!2) +1 :W PORN=lTO12:R%(N)=INT((R%(N)-l)/2)+l:W $12)-f2GOTO120,124 $="" : GOSUB4f'1e:ON(I>12)+2GOT012e,124 IFAS<"0"ORA$>"9"THEN121 122 IFA$ < "0"ORA$> "9"THEN121 PRINTA?;:AN$=AN$+A$:GOTO121 123 PRINTA$ ;:AN$ =AN$+A$ : GO'f0121 124 ON(R%(I)=0)+2GOT012e,132 ON(R%(I)=0)+2GOTO120,132 125 "{2 DOWN} D$ "(2 125 PRINTD$ PRINTD$"(2 DOWN] "SP$ "SP$D$ " ( 2 DOWN}[BLU} DOWNHbLU} (RVSjBLOCK B?{BLK}{OFF} B?EbLK)[OFF)";: (RVS}BLOCK ";: GETA?:IFA$=CHR5(13)THENJ=VAL(AN$):AN 126 GETA$:IFA$=CHR$(13)THENJ=VAL{AN$):AN $="":GOSUB400:ON{J>12)+2GOTO125,129 $= " " : GOSUB4e0 : ON (J) 12) +2GOT0125 , 129 127 IFA$<" a"ORA$> "9"THEN126 IFA$<"0"ORA$>"9"THEN126 PRINTA$;:AN?=AN$+A$:GOTO126 128 PRINTA$; : AN$ =AN$+A$ : GOT0126 ON(R%{J)=0)+2GOTO125,130 129 ON(R%{J)=3)+2GOT0125,13e 130 IFI=JTHEN125 13£'1 131 PR PRINTD?SP5SP$SP$SP$;:GOTO137 INTD$ SP$SP$SP$SP$;:GOT01 37 FORN=1TO3 132 FORN=l T03 , 6:POKESQ%(I)+N+22, 135 POKESQ%(I)+N+22+D POKESQ%{I)+N+22+O,6:POKESQ%(I)+N+22, ASC(MID$(W$(I),N,1))-64:NEXT ASC{MID$(W$(I),N,1»-64:NEXT ON(NS(X)="VIC")+2GOTO1040,125 136 ON(N${X )::"VI C")+2GOT01e4e, 125 FORN=1TO3 137 FORN=lT03 POKESQ%(J)+N+22+0,6:POKESQ%(J)+N+22, 138 POKESO%{J)+N+22+0 ,6: POKESO%(J) +N+2 2 , AS C( MID$(W$(J),N,1»-64 ASC(MID$(W$(J),N,1))-64 139 NEXT IFR%(I)=R%[J)THEN200 140 IFR%{I)=R%{J)THEN2ea 150 PRINTD$SP?D?TAB{6)"{RED}{RVS)NO PRINTD$SP$D$TAB(6) " (RED) {RVS}NO MATC H-{OFF}" 151 FORN=lT03a:POKEs,24~:POKEs,24e-3*N:N FORN=1TO30:POKES,240:POKES,240-3*N:N EXT:POKES,0 EXT:POKES,e 152 1983 IS! COMPUrEl's COMPUTEIS Gazelle Gazollo Oclabe' Odoborl983 152 FORP=1TO2E3:NEXT:PRINTD$SP$ FORP~IT02E3:NEXT:PRINTD$SP$ 153 I$=STR$(I)!IS=RIGHT$S2THENPRINTD$SP$D$N${1 IFS1>S2THENPRINTD$SPSD5N$(1)" WINS 1 1 I" 1" 398 WINS!! 308 IFS2>SlTHENPRINTD$SP$D$N$(2)" IFS2>S1THENPRINTD5SP$D$N$(2)" WINS11 I" 1 " 3f'19 'S A 309 IFS2=S1THENPRINTD$SP$D$"IT IFS2=S1THENPRINTD$SP?D$"ITIS A TIE!! TIE11 I" 1 " 31121 T02E3 :NEXT: PRINTD$" (DOWN}WANT 310 FORP=l FORP=1TO2E3:NEXT:PRINTD?"(DOWN)WANT ANOTHER?(Y/N)" ANOTHER? (Y ! N)" 311 GETA$: IFA$= "N"THENPRINT" {CLR J {BLU} " : GETA$:IFA?="N"THENPRINT"[CLR][BLU}": POKEBK , 27:ENO POKEBK,27:END 312 IFA$= "Y"THENRUNle IFAS="Y"THENRUN10 GOTO311 314 GOT0311 4f'1e ,249:FORP=lT02C:NEXT:POKES,f'I :RE 400 POKES POKES,249:FORP=1TO20:NEXT:POKES,0:RE TURN 1000 REM VIC PLAYS 1f'1ea 11211215 : 0N(R%(I)=e)+2GOT 1005 I=INT(RND{1)*12)+1 I=INT(RND{1)*12)+1:ON(R%(I)=0)+2GOT 01ef'l5 ,132 01005,132 1040 J=INT(RND(1)*12)+1 J=INT{RND(1)*12)+1:IFJ=ITHEN1040 11214£'1 :I FJa!THEN1e4e 1050 IFR%{J)=eTHEN1C4e IFR%(J)=0THEN1040 1e5f'1 1f'160 1060 PRINTD$SP$O$"VIC PRINTD5SP?D$"VIC PICKS"I"AND"J" {LEFT} ." {LEFT}." 112165 1065 FORP=lT02E3:NEXT:GOT0137 FORP=1TO2E3:NEXT:GOTO137 Program 2: 2:64 word Match Match 64 Word If'le 1 : PRINT " (CLRj" SPC (25121) 100 POKE53281, POKE53281,1:PRINT"{CLR5"SPC(2 50)".. (BLKJJ2 SPACESlWORD [BLK} {2 SPACES} WORD MATCH " 110 FORP=1TO2E3:NEXT:PRINTSPC{90)"{BLU} lIe FORP=l To2E3 : NBXT : PRINTSPC (9a) "( BLU) {2 SPACES }TOUCH A . .. " SPACESjTOUCH A KEY KEY..." 120 GETA$:IFA$=""THEN120 GETA?:IFA$=""THEN120 12f'1 130 DIMN${2):PRINT"(BLU}{CLR}NAMES, DIMN$(2):PRINT"(BLU}[CLR}NAMES, PLBA PLEA 1313 SE1 " SEt 140 PRINT" PRINT"(HOME)[15 DOWNlTO 149 {HOME J (15 DOWN I TO PLAY AGAINST 580 THE COMPUTER COMPUTER," THE ," 580 145 PRINT"ENTER PRINT"ENTSR ' '64' AS PLAYER PLAYER TW TWO" 145 64 ' AS O" 150 PRINT" PRINT"[HOME}[DOWN]":FORN=1TO2jPRINT" 150 ( HOME ) {DOWN} " : FORN=l T02 : PRINT" 590 590 (down}player"n;:inputn$(n):next:prin (OOWN }PLAYER"N; : INPUTN$(N):NEXT : PRIN 600 Tt"{clrJ" " (CLR )" 600 160 0"5 0=54272 610 160 4272 610 620 161 S=54272 S=54272sFORE=STOS+2S:POKEE,0:NEXT 161 : FORE=STOS+28:POKEE,0 : NEXT 620 162 POKE54296, POKE54296, 15 15 ::POKE54277, 66 ::POKE54 162 POKE54277 , 66 POKE54 630 630 278, 210 210 640 640 278, 163 POKE POKE 54276, 54276, 17 17 ;POKE :POKE 54272, 54272, 63 63 163 650 650 660 164 J=20 J=20:FORT=1TO 200:POKE54273,JsJ=RND( 164 : FORT=lTO 200:POKE54273,J:J=RND( 660 0)*150+1:NEXT:POKE542 76,16 0)*150+1 : NEXT : POKE54276 ,1 6 670 165 FORT-IT0200 FORT=1TO200:NEXT 165 :NEXT 670 170 DIMW$(12) DIMWS(12),R%(28),Wl$(6),C%(2),SQ%(12 680 170 ,R\ (28),Wl$(6),C\(2),SQ\(12 6813 6913 ),BK%(2) ),BK%(2) 690 180 DATACAR,CAT,BOY,HAT,HIT,TOP,ATE DATACAR,CAT,BOY,HAT,HIT,TOP,ATE,EAT, 180 , EAT, PIT,PAT,GOT,HIM,HER,WHY,HOW,TIN,ILL, PIT,PAT,GOT,H IM, HER ,WHY,HOW,TIN , ILL , 11313 700 WHO,RUN,YOU 710 WHO,RUN ,YOU 710 72:;' 1913 ,I NK , AIM,ART,TOT,TIE,ENO 190 OATAACE,SED DATAACE,BED,INK,AIM,ART,TOT,TIE,END 720 200 FORN=l FORN=1TO28 2013 T028 Z=INT ( RND {1 )*28)+1:IFR%(Z)<>0THEN210 ) *28 } +1 : IFR% ! Z ) O0THEN210 210 Z=INT(RND(1 730 R%(Z)=N:NEXT 220 R%(Z)-N:NEXT 731 7 31 F0RN=lTO6:FORQ=lT0R%(N):READWS:NEXT: 230 FORN-IT06:FORQ=lTOR%(N) : READW$:NEXT: 732 Wl$(N)=W$:RESTORE:NEXT:FORQ=1TO28:RE Wl$(N) " W$:RESTORE:NEXT:FORQ-1T028:RE ADWS:NEXT ADW$ : NEXT 733 240 C%(1)=2 : C%(2) =5: BK%(1) = 172 : BK%(2)~23 734 C%(1)=2:C%(2)=5:BK%(1)=172:BK%(2)=23 66 250 FORN=lT012:R\(N)=0 FORN=1TO12:R%(N)=0;NEXT 2513 : NEXT 735 260 FORN=1TO11STEP2 2613 FORN= l TO ll STEP 2 7413 740 2713 *1 2)+1 : Y-INT(RND(1)*12)+ 2 70 Z~INT(RND(1) Z=INT(RND(1)*12)+1:Y=INT(RND<1)*12)+ 750 1 280 IFR%(Z)<>0ORR%(Y)<>0ORZ=YTHEN270 2813 IFR%(Z)<>130RR%(Y)<>00RZ=YTHEN270 760 290 R%(Z)=N:R%(Y)=N+1 290 R%(Z)=N : R%(Y)=N+1 300 300 NEXT 770 7 70 FORN=lT012:R%(N)=INT«R%(N)-1)/2)+1: 310 FORN=lT012;R%(N)=INT((R%(N)-l)/2)+l: WS(N)=W15(R%(N)):NEXT W$(N)=Wl$(R%(N» : NEXT 320 320 FORN=1TO4 FORN"'l T04 780 780 330 330 PRINT"(BLK) PRINT"{SLK} {RVSj{31 {RVS}{31 SPACES)" SPACES} " 340 3413 FORZ=1TO3 FORZ-IT03 350 3513 PRINT" PRINT" [RVS] (RVS) {OFF)(9 {OFF}{9 SPACES)[RVS} SPACES}{RVS} 790 790 (OFF)(9 {OFF} {9 SPACES] SPACES} 800 {OFF}{ 9 SPACES]{RVS} SPACES}{ RVS} {OFF}[9 {RVS} lRVS) [OFF}" {OFF}" 810 810 360 360 NEXTZ.N NEXTZ,N 820 820 370 370 PRINT" PRINT" (RVSj[31 {RVS}{31 SPACES}" SPACES}" 380 380 PRINT"{HOME](2 PRINT"{HOME}{2 DOWN}(PUR]" OOWN}{PUR } " 830 830 390 390 FORN=1TO9STEP3 FORN- 1T09STEP3 831 831 400 PRINTTAB(5)NSPC{7)N+lSPC{7)N+2 PRINTTAB(S)NSPC(7)N+lSPC{7)N+2 400 832 832 410 410 PRINT"(2 PRINT"{2 DOWN)":NEXT DOWN} ": NEXT 420 420 PRINT"{6 PRINT"(6 RIGHT}10{8 RIGHT}l0(8 RIGHT]11 RIGHT}ll 833 833 (8 {8 RIGHT]12" RIGHT}12" 430 430 DS="(HOME}[18 D$- " {HOME}{18 DOWN]" DOWN} " 834 S34 440 4413 SP$="[39 SP$-"{39 SPACES] SPACES}"" 835 835 450 450 PRINTD$SP$SP$ PRINTD$SP$SP$ 460 460 FORN=1TO12:READSQ%{N):NEXT FORN-IT012 : READSQ%(N):NEXT 836 836 470 470 DATA DATA 1108, 11138, 1118 1118 ,1128, ,1128, 1268 1268 ,1278, ,1 278 , 11 837 837 2S8 288 ,1428 , 1428 ,1438 ,1438 ,1448, ,1448, 1588 1588 ,1598 ,1598 ,, 1608 1608 838 838 480 480 REM REM GAME GAME 840 840 490 490 X-l X-I 850 850 860 500 500 PRINTD$"[RED)WHICH PRINTD$"{RED}WHICH BLOCKS, BLOCKS, "N$(X)"7" "N$(X) "?" 860 870 510 510 POKEBK,BK%(X) POKEBK , BK%(X) 870 520 520 IFNS(X)="64"THENGOSUB1070 IFN$(X)-"64"THENGOSUB1070 8813 880 5313 PRINTD?"(DOWN]"SPSDS"(DOWN}[PUR} PRINTO$" f DOWN} "SP$O$" {DOWN} {PUR} 890 530 890 (RVSlBLOCK {RVS}SLOCK A?[BLK}{OFF}"r A?{SLK}{OFF}": 540 GETA$:IFAS=CHR?(13}THENI=VAL(AN$);AN GETA$:IFA$-CHR$(13)THENI-VAL(AN$):AN 900 9013 540 $=" " : GOSUS1060:0N(V12)+2GOT0530.570 910 ?="":GOSUB1060:ON(l>12)+2GOTO530,570 910 550 550 IFAS<"0"ORA?>"9"THEN540 IFA$< " 0"ORA$>"9"THEN5413 920 560 560 PRINTA?;:AN$=AN$+A$:GOTO540 PRINTA$; : AN$aAN$+A$:GOT0540 920 930 570 570 ON(R%(I)=0)+2GOTO530,650 ON(R\(I)-0)+2GOT053e , 650 930 PRINTD$"{2 PRINTD$"f2 DOWN}"SP$D$"{2 DOWN]"SP$D$"£ 2 DOWN}{BLU} {RVS}BLOCK : [RVS]BLOCK B?{BLK){OFF}": B?[BLK}[OFF]";: GETA$:IFA$:CHR$(13)THENJ=VAL(AN$) : AN GETA?:IFA$=CHR$(13)THENJ=VAL(AN$):AN $="" : GOSUB1060:0N(J>12)+2GOT05813 , 620 $="":GOSUB1060:ON(J>12}+2GOTO580,620 IFA$<"0"ORA$>"9 " THEN590 IFA?<"0"ORAS>"9"THEN590 PRINTA$::AN$=AN$+A$ : GOT0590 PRINTA?;;AN$=AN?+A$:GOTO590 ON(R\(J)=0)+2GOT0580 , 630 ON{R%(J)=0)+2GOTO580,630 IFI:JTHEN5813 IFI=JTHEN580 PRINTD$SP$SP$SP$SP$::GOT0680 PRINTD$SP$SP$SP?SP$;:GOTO680 FORN'::::lT03 FORN=1TO3 POKESQ\(I)+N+40+0,6:POKESQ%(I)+N+40, POKESQ%{I)+N+40+O,6:POKESQ%(I)+N+40, ASC(MID$(W$(I) , N,l» - 64 : NEXT ASC(MIDS(W$(I),N,1))-64:NEXT ON(N$(X)",, " 64 ")+2GOT010913,580 ON(N$(X)="64"}+2GOTO1090,580 FORN=l T03 FORN=1TO3 POKESQ%(J)+N+413+0,6 : POKESQ%(J)+N+40, POKESQ%(J)+N+40+O,6:POKESQ%(j)+N+40, ASC(MIO$(W$(J) , N, 1»-64 ASC(MID?(W$(J},N,1))-64 NEXT IFR\(I) =R%(J)THEN810 IFR%(l)=R%{J)THENai0 PRINTD$SP$0$TAB(12)"{REO}{RVS}NO PRINTD$SP?D?TAB(12)"tRED}£RVS}NO MAT MAT CH-{OFF} .. CH-[OFF}" REM NO MATCH S=54272:FORE=STOS+28:POKEE , 0 : NEXT S=54272:FORE=STOS+28:POKEE,0:NEXT POKE54296, POKE54277 , 51 :POKE54 P0KE54296, 15 ::POKE54277, 278 278,, 164 POKE54215, POKE54274, 100 POKE54275, 8 ::POKE54274, POKE 54273, 2 :POKE54272 :POKE54272,, 135 :POKE5 :P0KE5 4276, 65 FORT=lTO NEXT:POKE54276 , 64 FORT=1TO 200 ::NEXT:POKE54276, FORP=lT02E3:NEXT:PRINTO$SP$ FORP=1TO2E3:NEXT:PRINTD$SP5 I$=STR$(I):I$ =RIGHT$(I$ ,LEN(I$)-l):J I$=STR${I):I$=RIGHT$(IS,LEN{I$)-1)!J $=STR$(J) : J$=RIGHT$(J$,LEN(J$)-l) 5=STR$(J):J?=RIGHT5(JS,LEN(J$)-1) POKESQi(I)+41,32:POKESQ%(J)+41 , 32:PO POKESQ%(I)+41,32:POKESQ%{J)+41,32;PO KESQ%(I)+43 , 32:POKESQ%(J)+43,32 KESQ%(I)+43,32:POKESQ%(J)+43,32 FORN31TOLEN(I$):POKESQ%(I)+41+N,ASC( FORN=1TOLEN{IS):POKESQ%(I)+41+N,ASC( MID$(I$,N,1» : POKESO%(I)+41+N+O , 4:NE MID$(I$,N,1)):POKESQ%(I)+41+N+O,4:NE XT XT FORN=lTOLEN(J$):POKESQ%(J)+41+N,ASC{ FORN-1TOLEN(J5):POKESQ%(J)+41+N,ASC{ MID$(J$,N,1» : POKESQ%(J)+41+N+O , 4:NE MIDS(J$,N,1)):POKESQ%(J)+41+N+O,4:NE XT XT IFX=lTHENX=2:GOT05130 IFX=1THENX=2:GOTO500 X=l :GOT0500 X=1:GOTO500 REM REM RIGHTANS RIGHTANS PRINTD$SP$SP$D$" {12 SPACESi{BLK) SPACES} I BLK} PRINTD$SP$SP$D?"{12 {PUR}{RVS}MATCHII I I(OFF}" ! {OFF}" [PUR][RVS}MATCH!11 REM MATCH MATCH 1I II REM S=54272:FORE=STOS+28:POKEE,13 : NEXT S=54272:FORE=STOS+28:POKEE,0:NEXT POKE54296, POKE54296, 278 ,1 63 278,163 POKE 54273, 54273 , POKE 54276,17 54276,17 10 :POKE54277, :POKE54277, 10 33 33 :POKE54272, :POKE54272, FORT=lTO 100 100 :NEXT : NEXT FORT=1TO POKE 54273, 54273 , 42 42 :POKE54272, :POKES4272 , POKE (2SPACES}:POKE 54276 ,17 [2 SPACES}:POKE54276,17 35 35 :POKE54 :POKE54 135 135 : POKE :POKE 62 62 FORT=lTO 100 11313 :NEXT : NEXT FORT=1TO POKE 54273,50(2 54273,513{2 SPACES}:POKE54272, SPACES} : POKE54272 . 66 POKE 0{2 SPACES]:POKE54276,17 SPACES} : POKE54276,17 0{2 FORT~lTO 600 6130 :NEXT:POKE54276, : NEXT:POKE54216, 16 16 FORT=1TO IFX=lTHENSl=Sl+1 IFX=1THENS1=S1+1 IFXs2THENS2=S2+1 IFX=2THENS2=S2+1 FORP=lT02E3:NEXT FORP=1TO2E3:NEXT Q=SQ%(I):R=SQ%(J) Q=SQ%{I):R=SQ%(J) FORN"'l T03 FORN=1TO3 FORW=Q-2TOQ+6 :POKEW+O,C\(X) : POKEW,16 FORW=Q-2TOQ+6:POKEW+0,C%(X):POKEW,16 0 : NEXT : Q=Q+40:NEXT 0:NEXT:Q=Q+40:NEXT FORN=l T03 FORN=1TO3 FORW=R- 2TOR+6 : POKEW+O,C%(X) : POKEW,16 FORW=R-2TOR+6:POKEW+O,C%{X):POKEW,16 R-R+40:NEXT 0 : NEXTj:R=R+40:NEXT 0:NEXT PRINTD$SP$ PRINTD$SP$ CR=CR+1 : IFCR=6THEN960 CR=CR+1:IFCR=6THEN960 O ctober 1983 1983 COMPUTEn COMPUfE/'SGolOIIIl 153 October Gazelle 153 940 R%(l)=0:R%(j)=0 R%(I)=0: R%(J)=0 940 95 0 GOTO500 GOT05 00 950 960 FORN=1TO5:FORZ=250TO150STEP-2:POKES, FORN=lT0 5: FORZ= 2 50T01 5 0STEP - 2:POKES , 960 Z : NEXTZ,N : POKES ,00 Z:NEXTZ,N:POKES, 970 PRINTDS"THE PRINTD$ " THE GAME GAME IS IS OVEROVER970 980 FORP=1TO2E3:NEXT FORP= l T02 E3 : NEXT 980 990 IFS1>S2THENPRINTD$SP$D$N$(1)" I FSl>S2THENPRINTD$SP$D$N$( 1)" WINS WINSI1 I I 990 I" !" 100 0 IFS2>S1THENPRINTD$SP?D$N$(2)" IFS2>S l THENPRINTD$SP$D$N$(2)" WINS! WINS I 1000 I" 1I 1" 1010 IFS2=S1THENPRINTD$SPSD$"IT'S IFS2"'SlTHENPRINTD$SP$D$ " IT'S AA TIE1 TIE l 1010 1I I I" " 1020 F0RP=lTO2E3:NEXT:PRINTD$"{DOWN)WANT FORP=l T02E3: NEXT: PRINTD$" (DOWN }WANT 1020 ANOTI:l ER?(Y/N) ANOTHER? {Y/ti)"" 1030 GETA$:IFAS="N"THENPRINT"[CLR){BLUl" GETA$: IFA$= "N " THENPRINT " {CLR I {I3LU} " 1030 : POKEBK,27 : END :POKEBK,27:END 1040 IFA$="Y"THENRUN130 IFA$= " y " THENRUN130 1040 1050 1050 10 60 1060 1061 1061 1 062 1062 1063 1063 1064 1064 1065 1065 1 070 1070 GOT01030 GOTO1030 REM SOUND SOUND FOR FOR BEGINNING BEGINNING REM S=54272:FORESTOS+28:POKEE,0 : NEXT S=5427 2:FORE=STOS+28:POKEE,0:NEXT PQKE54296 , 15 15 :POKE54277, : POKE54277 , 51 51 :POKE5 :POKE5 POKE54296, 4278, 246 246 4278, POKE 54276,17(2 54276 , 17{2 SPACES]:POKE SPACES} : POKE 54273, 54273 , POKE 112 SPACES]1POKE54272, SPACES}:POKE54272 , 135 135 l[2 FORT=IT0200STEP16{2 SPACES]: SPACES} : POKE54 POKE54 FORT=1TO200STEP16[2 273 , T/2 +50:NEXT : POKE5 4 276 , 16:FORT=1 273,T/2+50:NEXT:POKE54276,16:FORT=l TO 500 500 :NEXT : NEXT TO RETURN RETURN REM C-64 C- 64 PLAYS PLAYS REM 1080 I=INT(RND(l)*12)+l:ON{R%(l)=0)+2GOT I~INT(RND(I)*12)+1:0N(R%(I)g0)+2GOT 1080 1090 1090 1100 1100 1 110 1110 1 120 1120 01080,650 01080,650 J=INT(RND(1)*12)+1 : IFJ=ITHEN 1090 J=INT{RND(1)*12)+1:IFJ=ITHEN1090 IFR%(J)=0THEN1090 IFR%(J)=0THEN1090 PRINTD$S P$D$"64 PICKS"I"AND"J" P I CKS " I"AND"J" PRINTD$SPSD$"64 {LEFT ). " (LEFT)." FORP=lT02E3 : NEXT : GOT0680 FORP=1TO2E3:NEXT:GOTO680 Understanding Sound BEFO I(E TYPI NG ... BEFORE TYPING... Ueforl' ing in prog ••u ns, "II'.Is l' refer to ""How !-Iuw To T)'pl' Hefore Iyp typing programs, please Typi" tt e l'rugr.lII1S" ner's G uide Tu COtl.H'UT!.:!'s COMPUTH's GJ~l' Gazelle I'ro^rjms" .!nd and "A "A Uegin Beginner's Guide To Typi ng In "' l.isti " gs. Typing in l'rog.':l1ns" Programs" Ih.ll thai .ll'ped ippeu' before the Ihe I'rog''' l'l-ogi-jin Listings. Also, Au tur1I.llk l'ruufTl'aller." Als», see see the llii! "rlide orlick- .."Automitk I'rnofrirader." Program 1: Demonstration Demonsliation Of Of The The ADSR Envelope Envelope 55 PRINT" {CLR} .. ! POKE53281, 12 : POKE646 , 0 print"[clr]":poke53281,12:poke646,0 10 PRINTTAB(8)CIlR$(18)CHR$(169)CHR$(223)" printtab(8)chr$(18)chr$(169)chr$(223) 10 (OFF) (off) "" 20 PRINTTAB(7)CHR$(IB)CHR$(169)" printtab(7)chr$(18)chr$(169)" 20 (2 spaces)"chrs(223) [[2 SPACES}"CHR$(223) 30 " PRINTTAB(6)CHR$ L8)CHR$(169)" 30 PRINTTAB(6)CHR$(18)CHR$(169) (4 " CHR$(223) {4 SPACES} SPACES]"CHR$ 223) 40 " PRINTTAB(5)CI1R$ 18)CHR?(169)" 40 PRINTTAB(5)CtlR$(18)CHR$(169) (6 223) [6 SPACES}"CHR$(223) SPACES) "CI[RS() 50 50 PRINTTAB(4)CHR$(18)CHR$(169)" PRINTTAB(4)CURS(18)CHR$(169)" (19 CHR$(223) [19 SPACES}" SPACES) "CE1R$(223) 60 60 PRINTTAB(3)CHR$(18)CHR$(169)" PRINTTABf 3}CHR$(18)CHR$(169)" (21 [21 SPACES}"CHR$(223) SPACES}"CHR${223) 70 70 PRINTTAB(2)CHR$(18)CHR$(l69)" PRINTTAB[2)CHR$(18)CHR?(169)" (23 C ~IR$(223) (23 SPACES}" SPACES) "CiIR$(223) 80 80 PRINTTAB(1)CHR$(IB)CHR$(169)" PRINTTAB(1)CHR$(18)CHR$(169)" (25 [25 SPACESI"CHR$(223) SPACESJ"CHR${223) 154 COMPu rEl'sGazcllc COMPUTE'S Garcllc OC 'a\X!,1983 Otlohur 1983 90 90 PRINT PRINT 100 100 PRINT"[4 PRINT " {4 SPACES]A[5 SPACES}A{5 SPACES)D SPACEslo {3 {3 SPACES}SUSTAIS[4 SPACES}SUSTAIN{4 SPACESjR SPACES}R 110 110 PRINT"[4 PRINT"{4 SPACES]T[5 SPACESIT{5 SPACES)E SPACES}E (14 {14 SPACES]E SPACES}E L20 120 PRINT"{4 PRINT"(4 SPACES}T[5 SPACES}T{5 SPACES}C SPACES ) C {14 {14 SPACESjL SPACES}L 130 130 PRINT"£4 PRINT"(4 SPACES}A[5 SPACES}A{5 SPACESjA SPACES}A [14 114 SPACESlE SPACES}E 140 140 PRINT"[4 PRINT"{4 SPACES]C[5 SPACESlc{5 SPACESjY SPACESly [14 £14 SPACESiA SPACES}A 150 150 PRINT"(4 PRINT" {4 SPACES]K[20 SPACES} K {20 SPACESJS SPACES} S 160 160 PRINT"(25 PRINT"{25 SPACESlE SPACES}E 170 17B CL=55296:S=54272:W=S+4:AD=S+5:SR=S+6 CL=55296 : S ~ 54272 : W=S+4 : AD m S+5 : SR ~ S+6 :V=S+24 : V=S+24 175 175 POKEV,15:POKEAD,202:POKESR,58:POKES, POKEV, 15 : POKEAO , 202:PQKESR,58 : POKES , 135jPOKES+1,33:POKEW,33 135:POKES+l,33 : POKEW , 33 180 180 F0RR=CLT0CL+5:FORU=RTOCL+L024STEP40: FORR=CLTOCL+5:FORU=RTOCL+1024STEP40: 185 POKEU,1;NEXT:NEXT POKEU,l ; NEXT : NEXT 185 190 190 FORR=CL+6TOCL+12:FORa=RTOCL+1024STEP FORR=CL+6TOCL+12:FORU=RTOCL+ 1024STEP 4. 40 195 195 POKEU,1:NEXT:NEXT POKEU,l:NEX'r:NEXT 197 197 FORR=CL+13TOCL+23:FORU=RTOCL+1024STE FORRDCL+13TOCL+23 : FORU=RTOCL+1024STE P40 P4. L98 19B 200 20 9 POKEU,1:NEXT:NEXT POKEU , I:NEXT:NEXT POKEW,16:FORR=CL+24TOCL+28:FORU=RTOC POKEW , 16 : FORR=CL+24TOCL+28:FORU=RTOC L+1024STEP40 L+! 024STEP40 290 290 POKEU,L:NEXT:NEXT POKEU,I : NEXT:NEXT 300 309 FORT=STOS+28:POKET,0:NEXT fORT3 STOS+2B:POKET , 0:NEXT Program Program 2: 2: Demonstration Demonstration Of Of Waveforms, Waveforms , Pitches, Pitches, And And The Envelope Generator 55 POKE53281,1:POKE646,0 PQKE53281,l : POKE646,0 10 S=542 72:FORE=STOS-t-28:: POKEE,0:NEXT POKEE, 0:NEXT 10 s=54272:FORE=STOS+28 15 PRINT"[CLR](UP)":GOSUB200 15 PRINT"{CLR) I u p}" : GOSUB200 20 INPUT"ATTACK RATE 0-15";AT:INPUT"DEC; 20 INPUT"AT'rACK RATE 0-15":AT:INPUT " DECI RATE 0-15";DE: 0-15";DE:AD=16*AT+DE:POKE54277 : AD=16 1r AT+DE:POKE54271 yY RATE ,AD .' 25 INPUT"SUSTAIN(SUH'TINPUT"SUSTAIN[SHIFT-SPACE]VOLUME 1-15 SPACE}VOLUME 1-15 25 ";SU:INPUT"RELEASE RATE 0-1S" 0-15";RLtJ=16 ";SU : INPUT"RELEASE RATE ; RL:J=16 *SU+RL 30 POKE5 POKE54278,J:INPUT"OVERALL VOLUME 1 1-15 30 4278,J: INPUT " OVERALL VOLmlE - 15 "";V:POKE54296,V ; V: POKE54296,v 32 INPUT"WAVEI~ORM INPUT"WAVEFORM 17,33 17,33,OR 129 "";W:P0KE5 32 , OR 129 ; W:POKE5 4276,W 4276,w .1 SECOND)";L SECOND) ;L 33 INPUT INPUT"SUSTA1N LENGTH (* .1 33 " SUSTAIN LENGTH E:LE=LE*100 .1 SECOND)";D SECOND)";D 34 INPUT"RELEASE LENGTH (' .1 L:DL=DL*100 L : DL=DL 1r 10f1 35 INPUT"HIGH INPUT"HIGH BYTE BYTE";H:INPUT"LOW BYTE";L: 35 " ;H : INPUT"LOW DYTE " ;L : POKE54273.H :POKE54272,L :POKE54272,L POKE54273,H 40 f FORT=1TOLE:NEXTT 40 O RT ~ lT O LE : NEXTT 42 POKE POKE54276, [W-D 42 5 42 7 6,(I-/-l) 43 FORT=lTODL:NEXT FORT=1TOOL:NEXT 43 50 S354272 S=54272:FORE=STOS+28:POKEE,0:NEXT 50 : FORE=STOS+2B:POKEE , 0 : NEXT 60 PRINT"|HOME)[13 DOWN][RVS)AGAIN?[OFF} 60 PRINT " IHOME}113 DOW N}{RVS}AGAIN?{OFF} OR N" N" yY OR 70 GETA$:lfA$ GETA$:IFA$="Y"THENPRINT"[HOME] 70 = "y"THENPRINT"{HONE} (13 DOWN}{16 DOWN][16 SPACES}":GOT020 SPACES]":GOTO20 {13 75 IFA$<>"N"THEN7B IFA$<>"N"THEN70 75 80 REM REM PRINT PRINT PROG PROGRAM 80 RAM 85 INPUT" INPUT"[CLR}STARTING LINE";SL:INPUT"IN 85 {CLR}STARTING LINE"; SL : INPUT " IN CREMENT";IN CREMENT"; IN 86 PRINT PRINT"[CLR)" 86 " {CLR}" 8S PRINT"13 PRINT"{3 DOWN}NEW{3 DOWN)NEW[3 DOWN}" DOWN]" 88 89 PRINTSL; PRINTSL;"S=54272:FORE=STOS+28:POKEE,0 89 "S=54272: FORE=STOS+28 : POKEE," :NEXT":SL=SL+1N :NEXT":SL=SL+IN 90 PRIN'rSL; PRINTSL;"POKE54296,";V;":POKE542 77,"; 90 "POKE54296 , " ; v j " : POKC;542 77 , "; nO; ";JJ:SL=SL+IN n'; ; " ":POKE54278, : POKE54278, "; : SL=SL+IN 120 PRINTSL;"POKE PRINTSL;"POKE 54276 54276,";W; 54273 120 , " ; W;" ":POKE : POKE 54273 ,";H;":POKE54272," ," ;H ; " : POKE54272, ";;L:SL=SL+IN L : SL=SL+IN 140 PRINTSL; PRINTSL;"FORT=1TO";LE;":NEXT";":POKE 140 "FORT= 1TO" ; LE; " : NEXT"; " : POKE 54276,";(W-l);"(LEFT}:FORT=1TO";DL;" 54276, " ; (1lE 1" ; : FORR.,631 T0644: POKER , 1I 155 3:NEXT 3: NEXT 160 POKEI98,13 POKE198,13 160 165 END 165 END 200 PRINT" PRINT" SAMPLE SAMPLE DATA DATA FOR FOR PITCH PITCH VALUES" VALUES" 200 205 PRINT" PRINT" PITCH PITCH H[GH HIGH BYTE BYTE LOW LOW BYTE BYTE 2.5 [2 SPACES)!RVS}WAVEFORMS SPACES](RVS ]I WAVEFORMS {2 210 PRINT"13 PRINT"{3 SPACES}C{7 SPACES}C[7 SPACES)33 SPACES]33 210 m 17 {6 SPACES}13515 SPACES]135(5 SPACES1TRIANGLE SPACES]TRIANGLE=17 {6 220 PRINT"!3 PRINT"[3 SPACES}C.{6 SPACES}C#{6 SPACES}35 SPACES}35 {6 SPACES}134{5 SPACES}134(5 SPACESlsAWTOOTHa33 SPACES}SAHTOOTH=33 {6 230 PRINT"!3 PRINT"(3 SPACES}D!7 SPACES}D{7 SPACES}37 SPACES}37 230 {6 SPACES}162{5 SPACES}162{5 SPACES)NOISEzI SPACES)NOISE=129 (6 29 240 PRINT"!) PRINT"[3 SPACES}D.{6 SPACES]D#{6 SPACES)39 SPACES]39 240 [6 SPACES}223 SPACES]223 (6 250 PRINT"{) PRINT"{3 SPACES}E{7 SPACES}E(7 SPACES}42 SPACES}42 25. (6 SPACES}62 SPACES}62 {6 260 PRINT"{J PRINT"[3 SPACEslF(7 SPACES)F(7 SPACES)44 SPACES]44 26. [6 SPACES}l93 SPACES]193 {6 270 PRINT PRINT"{3 SPACES}F#{6 SPACES}47 SPACES)47 " {3 SPACES1Fi{6 270 £6 SPACES}un SPACES}107 {6 280 PRINT"O PRINT"(3 SPACF.S}G{7 SPACES)G{7 SPACES}50 SPACES)50 280 [6 SPACES)60 SPACES]60 {6 290 PRINT"[3 SPACES]G#[6 SPAC~:S}53 SPACES)53 PRINT"[3 SPACES}G.!6 290 (6 SPACES}57 SPACES}57 {6 300 SPACES}A[7 SPACES}56 PRINT"O SPACES}A{7 SPACES}56 300 PRINT"[3 {6 SPACES]99 (6 SPACES)99 310 PRINT"!3 SPACES)A#(6 SPACES1A/J!6 SPACES}59 SPACES)59 310 PRINT"(3 (6 SPACES]190 {6SPACES)190 320 SPACES)63 PRINT"!3 SPACESjB(7 SPACES)B(7 SPACES}63 320 PRINT"(3 {6 [6 SPACES}75 SPACES) 7 5 335 335 PRINT PRINT 340 340 RETURN RETURN ". , Speeding Up Up The VIC VIC Program Program Z1:: BASIC BASIC Loader Loade r 59998 59998 FORA=828TO848:READB:POKEA,BsNEXT:E FORA~828T0848:READB:POKEA , B:NEXT:E ND NO 59999 DATA120,169,73,141,20,3,169,3,141, 59999DATA120,169 , 73 , 141 , 20,3 , 169,3 , 141 , 21,3,88,96,169,0,141,140,2,76,191, 21 , 3 , 88,96,169 , 0 , 1 41, 140 , 2 , 76 , 191, 234 234 Program Program 2: 2: Location Locallon Modifier Modifier 59997 FORA=828T0853 : READB:POKEA , B:NEXT : E 59997 FORA=828TO853:READB:POKEA,B:NEXT:E ND , NO 59998 DATA120 , 169,73,141,20,3,169 , 3,141, 59998 DATA120,169,73,141,20,3,169,3,141, 21,3,88,96,169,1,141,139,2,169,0,1 21,3,88 , 96,169,1,141 , 139,2,169,0,1 41,140,2,76 41,14O , 2 , 76 59999 DATAI9 1 , 234 59999 DATA191.234 Program Program 3: 3: Ball BallCharacter CharacterMovement Movement 59997 FORA 3 828T0853:READB:POKEA , B:NEXT : E 59997 FORA=828TO853:READB:POKEA,B:NEXT:E ND NO 59998 DATA120,169 , 73 ,l41,20,3 , 169 , 3,141 , 59998 DATA120,169,73,141,20,3,169,3,141, 21,3,88,96,169,1,141,139,2,169,0,1 21,3 , 88,96,169,1,141 , 139 , 2 , 169,0,1 41,140,2,76 41 , 140 , 2,76 59999 DATA191,234 59999 DATA191.234 D 8185 : E=A : F=38905 : 60000 7680:B=38400:C 60000 A= A=7680:B=38400 :C=8185:E=A:F=38905: G=B : H=8 1: I=32 : POKE650 ,1 28 : SYS828 : P G=B:H=81:I=32: POKE650,128:SYS828:P RINT " {CLRj " : 0=11 RINT"{CLRj":D= 60010 "THENO"'1 : GOT060060 60010 GETAS:IFAS="R GETA$:IFA?="R" THEND=1:GOTO60060 660020 13020 IFAS "' '' W''THEND- -l : GOT06B0 60 IFA$="W"THEND= -1:GOTO60060 6013313 "· "THEND"'22 : GOT060060 60030 IFASIFA$="*"THEND= 22:GOTO60060 601340 -."P "THENO- --22:GOTO60060 22 : GOT06006B 60040 IFA$ IFA$=."P"THEND= 601350 60050 IFD-0THEN60B10 IFD=0THEN60010 60060 60060 POKEA,I:A=A+D:8=B+D:POKEA,H:POKEB, POKEA,I:A=A+D: B=B+D:POKEA,H:POKEB, 6:0=0 6:D=0 600713 : BaF : GOT060060 60070 IFACTHENA=E IPA>CTHEHA=E:B =G:GOTO60060 60090 60090 GOT060010 GOTO60010 Power BASIC Program I: 1: VIC VIC Paddle Paddle Reader Reader 10 : READB:POKEA.B : NEXT 10 FORA=828TOB59 FORA=828TO859:READB:POKEA,B:NEXT 828 , 0 , 170 , 168 , 24, 1 09,8.144 828 DATA DATA 169 169,0,170,168,24,109,8,144 836 . 1 . 200 , 202 , 208,247 , 132 , 25 1 836 DATA DATA 144 144,1,200,202,208,247,132,251 844 . 168 , 24 , 109 , 9,144 . 144 , 1 844 DATA DATA 138 138,168,24,109,9,144,144,1 852 . 202 , 208,247,132 , 252 , 96 , 0 852 DATA DATA 200 200,202,208,247,132,252,96,0 Program 2: 64 64 Paddle Paddle Reader Reader 10 679T0710 : READB : POKEA,B : NEXT 10 FORA= FORA=679TO710:READB:POKEA,B:HEXT 679 , 24,109,25 679 DATA DATA 169,0.170,168 169,0,170,168,24,109,25 686 DATA 212,144 . 1 . 200 . 202 , 208,247 212,144,1,200,202,208,247 693 , 251.138 . 168 , 24,10 9, 26 693 DATA DATA 132 132,251,138,168,24,109,26 700 DATA 212 , 144, 1, 200 , 202,208 , 247 212,144,1,200,202,208,247 707 DATA DATA 132,252,96 . 256 132,252,96,256 The Beginner'S Beginner's Corner Math Competency: Competency: Saving Savi ng Money Money Math 10 REH REM MATH MATH COMPETENCY COMPETENCY 10 : rem r em 102 102 : rem r e m 150 150 313 PRINT"ECLR}(BLUj" PRINT " {CLR}{BLU} " : rem rem 230 2 313 30 40 FOR FOR C=l C-l TO TO 66 :rem 213 40 rem 213 S0 READ READ N5(C) N$(C) :rem 135 50 rem 135 60 NEXT NEXT CC :rem 232 60 rem 232 70 FOR FOR C=l C~1 TO TO 33 :rem 213 70 rein 213 80 READ READ A$(C),B(C),M(C),F(C) AS(C) , B(C) , M(C) , F(C ) :rem 146 80 rem 146 90 NEXT NEXT CC :rem 2 ~S 90 rem 235 100 DATA DATA SALLY,HEIDI,NANCY,BRENT,DAVID,CH SALLY , HEIDI,NANCY , BRENT , DAV I D.CH 100 UCK : rem 57 57 UCK :rem 110 DATA DATA BIKE,80,5,7,STEREO,90,5,14,COMPU BIKE,80 , 5,7 , STEREO.90,5 , 14 , COMPU 110 TER , 100 , 10,10 : rem 22 22 TER,100,10,10 :rem 22 PRINT"{CLRJ{BLU}" : rem 22 120 ;rem "0 PRINT"tCLR]{BLU}" R6"INT(6·RND(0)+1) : rem 182 182 1 30 R6=INT(6*RND(0)+1) 130 :rem PRINT N?(R6);" N$(R6);" WANTS WANTS TO TO BUY BUY A":rem A":rem 77 77 140 PRINT 140 R3=INT(3*RND(0)+l) : rem 178 1 78 150 R3=INT(3*PND(0)+1) 150 :rem PRI NT A$(R3);"." A${R3);"." : rem 12 12 160 PRINT 160 :rem T=B(3)+M{R3)·INT{F{R3)*RND(O)+1) 170 T=B(3)+M{R3)*INT(F(R3)*RND{0)+1) 170 :rem 170 170 :rem GOSUB 480 480 : rem 181 181 180 GOSUB 180 -rem PRINT"IT WILL WILL COST COST ";C$;"." ";C $;" . " :rem :rem 200 200 190 PRINT"1T 190 P$="HE" : rem 20 20 200 p$="HE" 200 .rem IF R6>=4 R6> - 4 THEN THEN 230 2313 : rem 29 29 210 IF 210 :rem P$="SHE" : r e m 105 105 220 :rem "0 P$="SHE" W=10·INT{4·RND(0)+1) :rem 15 15 230 W=10*INT(4*RND(0)+1) 230 :rem PRINT"IF ";PS;" ";P$; " SAVES SAVES FOR" FOR" : rem 141 141 240 PRINT"IF 240 :rem PRINTW~ "WEEKS, " : rem 169 169 245 PRINTW;"WEEKS," 245 :rem PRINT"HOW MUCH MUCH WILL WILL ";N$(R6)" ";N$(R6) " :rem :rem 99 99 250 PRINT"HOW 250 REM SAVING SAVING MONEY MONEY 20 REH 20 Odobe.1983 1983 COMPUWi COMpu TErJGolfm~ ISS October Gazette 155 260 PRINT"NEED PRINT " NEED TO TO SAVE SAVE EACH" EACH" 260 :rem 104 rem 104 rera 217 :rem 217 PRINT" (eLK)" :rem rem 250 250 PRINT"{BLK}" S=(T / W) / le0 :rem 21 21 :rem S=(T/W)/100 INPUT ANS ANS :rem 13 13 :rem INPUT IF ABS(ANS-S)<.01 ABS(ANS-S)< . el THEN THEN 380 380 : rem 64 64 :rem IF PRINT"{RED}TOTAL COST COST ";C? "; C$ :rem 224 rem 224 PRINT"[RED}TOTAL PRINT " DIVIDED BY";W;"WKS BY " ;W; "WKS =" .. " : rem 61 61 :rem PRINT"DIVIDED GOSUB 470 470 :rem 177 rem 177 GOSUB PRINTC$ : rem rem 139 139 PRINTCS PRiNT"{GRN}" : rem rem 135 135 PRINT"iGRNi" INPUT "PRESS "PRESS ";E$ ";E$ :rem 24B rem 248 INPUT GOTO 120 120 :rem 102 rem 102 GOTO PRINT : rem 40 4£1 :rem PRINT PRINT" {RED}CORRECTI " :rem IBB PRINT"(RED}CORRECTI" rem 188 PRINT :rem 33 33 :rem PRINT PRINT"{BLK}ANOTHER PROBLEM?" PROBLEM? " :rem :rem 87 B7 PRINT"[BLK}ANOTHER PRINT"(Y/ N)" :rem 142 rem 142 PRINT"(Y/N)" GET E$ E$ :rem 224 rem 224 GET IF E$="Y" E$-"Y" THEN THEN 120 120 :rem :rem 44 44 IF 265 PRINT"WEEK?" PRINT"WEEK?" 265 270 270 28£1 280 290 290 300 300 31£1 310 320 320 330 330 340 340 350 350 36£1 360 37£1 370 380 380 390 390 4£1£1 400 410 410 420 420 43£1 430 440 440 450 45£1 IF{2 IF(2 SPACESjE$="N" SPACES}E$ "' "N" THEN THEN 520 520 460 46£1 GOTO GOTO 430 430 :rem :rem 38 3B :rem : rem 106 1£16 480 48£1 T=INT(100*T) T"'INT(100*T) :rem : rem .120 12e 470 47£1 T=S+.005 T=s+ . 005 490 490 T$=STR$(T) T$ - STR$(T) (T$,2) (T$.2) BEFORE BEFORE TYPING... TYI' ING ... COMPUTE!'* CO:\U' UT E!'s Gazelle G J zellt' Programs" I' rog rolrns" anil ,lnd "A "A Beginner's lIeg inncr's Guide Guide To To Typing Ty ping In In Programs" I' rog tol ms" that Iholl appeal oIppe ol. before bt' rorc Ilie the Program Progum Listings. Lis tings. Also, hi- article A IMJ, see s ec Itht' .uliclc "Automatic " AulomatiC' Proofreader." I'roofreold er." C-10 Length • C· IOLenglll • Lilar,ma Lite time money back guarantee 1 2~ oach • Storago Storage Bo. Bo» add 13* each S3 00 11111>1>In9 shipping Charge charge -— an any guanlily • $2.oo V quenlllv orders $.4 $4.00 shipping)l (Canadian ordars 00 shipping Residents add 6% salas sales IIiX tai • NJ ROSldoenl' check 01' or rnoneV money ordoe'10 order to • Send chl!dl PARALLEL SYSTEMS Box 772 Blackwood, NJ 08012 609-227-9634 609·227-9634 COMMODORE 64 OWNERS ONLY ·• SHARE·L EARN· ENJOY· SHARE•LEARN•ENJOY■ with any purchase! ~IE~ AUIIKl "":-'''' ~---c''--'­ Authorized Ceo .., Dealer .1Dt ■KM <'DfoIJtUIIS OHNNffi II'It.lIWT.! JWEWJB c.l.1 PRINTERS srX·BO al) .... . . 60 s. S175 STX-80 (Therm (Thermal) 60 cp cps. S175 . .. . .. . 120 cps. 315 Gemini·10x GeminMOx 120 cps. S S315 Gorilla Banana .. .. ....... S215 Gorilla Banana $215 ~ Sun) cntdo chtci 01 0' _ii C»l CHil 0III:I add &10 6"t u. U> 01010 oiMi J>US Dim SII Sit l~h'~1 ish'i>p.iiQ'(i»nii"igi 10 TO COMPtJIHIOUHf! COMPUTER OUtLET ~1!.I. .._Goo~FIIl 5857 M'sson DoiQc fw 5(r;t) 110 S1ND ~'J ME 5TXS0 su ---- s,. Ssn Oo!oo Oitgc CIo 97110 r..GernnilO) ......ax .l.CCtHI Gtrron Gemin IS 15 ZoO ilm't 101 loi deiivs* IIC No COD Z 0D 156 PUTE/'s GOI"II" 1983 156 COM COMPUTE!1* Gatelle OciolMH Ocloborl983 :rem :rem 26 26 :rem : rem 111 III Before Iletart" typing'" 1)' l'in g ill programs, prog rolrn $, please plust" refer rerer t<> to "How " Ilow To To Type Ty pe Sfle I I/Free Labels • 5 Screw Shell/Free ,. trem :rem 118 118 520 529 PRINT"tCLR){BLU}" PRINT" (CLR) (BLU)" 530 530 END END FREE VIC-20 VIC·20 Compatible "World Capitals Game" with each order of C-10's 20 or more C-10's pa "all"llnterlace parallel Interface :rem trem 168 168 510 510 RETURN RETURN COMPUTER CASSETTES 58¢ 58$ FREE :rem Irem 20 20 500 500 C$="S"+LEFTI(T?,LEN(T?)-2)+"."+RIGHT5 C$-"$"+LEFT$ (T$.LEN(T$ ) - 2 )+". "+RIGHT$ FREE FREE OFFER! OFFER! SID says: :rem :rem 109 109 Monlhly Newsletter •- MonlhlvN IIWllallar •• Public Public Domain Domain Sorlwara Software •• Reports icles Reports ol ol Racanl64 Recent 64 Art Articles Local Chapter Chapter Meellng Meetings •• local , •• Se rv ice Advice Service Advice •' Si-Monthly lnlng Bi-Monthly Magazine' Magazine • AdvlceonTnt Advice on Training Send Send Name. Name, address. address, phone 0: phone no. no. and and annual annual dues dues !S25) (S25) 1lo: 'The The Commodore Commodore 64 64 Users Users Group Group P.O. Box Box 572 572 P.O. 37 Glen Glen Ellyn, Ellyn, lIIinois Illinois 601 60137 Or : Or Call Call: (3 12179().4320 ays (31 £]790-4320 (weekd (weekdays am - 5:00 5:00 pm· pm - Cenlral Ceniral Time) Time) 99:00 :00 am· ■'AnindBpintuninot-ior-profiiorgnnlziliorV1 .. An In.,._.,.nl nO!· to<· po Dftt :>.:i7llSys!tm lI'11mt.1. li'flim. f.\¥ mod) OS-JiIIS)\ttm lf mWJ OTTO SYSTEMS orroSYSTE~IS ENGINEERROAD ROAD 88135 135 E~GINEER SAM DIEGO. DIEGO,CA CA92111 92111 SAN (B19) 569·5665 569-5665 (619) ipc SHnJlii -CAto.6(41*1 Postage Paid HOW TO MAKE MONEY (^ SOFTWARE 0. 100% Machine Code Money Back Guarantee with your VIC 20 *v/ COMMODORE 64 o PERSONAL COMPUTER BOMBER RU RUN BOMBER N 'M3«tJ.S. ,3"us [>s(roy Lncrny 1lo~ [law..irftti bOmbt """"" Viurff -, ~. Lg ... an "" rriulles t»ui _"'~ bum III u( _uddde leU jrts ae.. Gear ..w.iiii .,. ...an'1<> ..... bw! ~ ........ I<> enough _terrrttwv to Ion:! IdnrJ ""'ell wdldi OUI out lor for _ those ....... urn1*. Vou've now spend You've made made the the investmentinvestment—now spend just o get Just $4,95 S4.95 more more to to learn learn how how tto get itit al all back-and back—and mo«:, more. New Mew 1983 1983 compendium compendium 01 of practical. practical, prtf't'en proven methods methods for for oper.ttlng operating aa prolitable profitable business business right right in in yow your own own home home has has just just been been publ1shed. published. Indudes Includes latest latest software e software Ostlngs. listings. Sent Sent poslpald postpaid the the sam same day day we we receive receive your your check check for for $4.95, $4.95. "'.-..Il'"""""-- l>loJ.'-ott'b> .... S<.IPAVADERS '*I3"us. 13'" us. SUPAVADERS n,..,. ....... ,.,.. The> re back. But.",. But lhis[ime >ou _ hj^v.jtww.I!ln--...y1<> txqgpi lefntoty to ~b.tCI<. The Banner M achine'" width up up 10 To \", Yk ,,"ch inch •■ MUGs .... 0ai1 vo.rlable sizes of I,."e le nets Itom \f\" loflV*" high -• 80 _ ", .. II"", -" '0 '". hIQ~ spacing ,•Propomcna] Pfopomcr.AllJI&CUIQ defend (Kfftn [screen "" scjqI!m Thrir """" >hipi 0I.If ^Uy hog'\. high, '0U'IItIQ raining <>Y6 5V6 US !;; OS. ORDERS WELeON WELCOME DEALER INQUIRIES WELCOME Order The The BUllI" Banner M.chln Machine" from Order . ... _-549,95 JoIg.t5 too .. Virginia ~IJCt Micro Systems VUVlf',. O Sy ... .... ^^^^ 13616 1 Jell I ..... H,gh i | ... .'.-;.y 13648 ,," D ■ : : Woo (send Cl< THIS Ml JtltN MD1KHM TO WME CHULENGIIIE ell Ml! , . EOMFLEIE nlrtllllllS 1 11$1$1 " ' lI1llell"'IE ClUUlIIII HISilCKS OR WILL lllllUIU "ll THE! 0JSHI1 ' UTII ' roil? " " To: MicroTechniques MicroTechniques To: p,O, Box 192 192 P.O. Chesterfield, MO MO (..1017 63017 Chesterfield, nu a Ullm... 1I 11IUl IlrIllU Ill.n isiou«]isnm IIIIII.. " . ' u! UI. si I, SFE[IFI[US[II{ uttll! (1111111 -.!'.•■ t»:;s :i Hilt tlfOll,"III.IIII" DIDrlllTTE II ilIUm 16k with with 16k on your VIC or 64? Battery Ba ttery Back up Backup AT LAST! A PROVEN CURE FOR THOSE No other 16k 16k expansion expanSion can can make make No other Ihis th iS claim! claim! •• FULL FULL BLOCK BLOCK SWITCHING SWITCHING •• WRITE WRITE PROTECT PROTECT •• RESET RESET SWITCH. SWITCH. AND AND MORE MORE AND THE COMPUTER ITSELF. PICTURE-PERFECT 7321 7321 FOUNTAIN AVE, LOS ANGEES, CA 90046 . Cny. Statn . . Zip. FULL V GUARANTEED GUARANTEED FULLY . I | Chock enclowd THE VIDEO &COMPUTER VIDEOS COMPUTER .................. PLACEINC PLACE INC 11&4 Square.• Medlno. SS4 Nonh North Court Court Square Medina. OH OH 44256 M256 C·64 /VlC·20 - CONSOLE C-64 · /VIC-20 CONSOLE UNIT! UNIT! ComDoro-.o C-04' fI/IC , 1O'ln lO ono 20"lnlo one compeci compact unit The C-M-/WC-2Q' """ !he C-04· fI/IC·X,. con>OIc 0M0Qne0 conw^o uIII! unif IS is deigned 10 _ ~ovt:>ootd , dGC to fiouse iovbcorcl. disc O"YI) d'ivo. ~,. monitoc dOIO~ lt e aolaseite. OnO ana Mt;JcJe IIUIOV '." ',' acryi.c CICJy'< w,11I """'I ovoikJCo 0'00~ In If\ r/ode d o( $turtfy win venti SmoQ Tlnl Ilnl CI.." Smoka Cl»or 562.U Oroo roirnonti Pot.oOe or Unt Ilnl wtion ""'-' oraeI«t lor LEROY 'S CHEATSHEET CHEATSHEET" LEROY'S KEYBOARO OVERLAYS OVERLAYS KEYBOARD [_. _ .. _, J . . . __ _ __-........ -_"'--"--__-, ----__-. ;■ To order, Of del, or or (or for free hee detailed deta,led application appllcahon To htefa tufe.write wflte lo. 10 iFleralure. !i iii- A.""",, ,... ""_ .... _" _ .... _ _ . . __ .'" _"'_ puratti .. . ...... -i row few ~. i, ■' . ............... '■"■"■ PLUS: PLUS. ARE GUARANTEED 10 GREATLY REDUCE OR TOTALLY ELIMINATE ALL RF INTERFERENCE GENERATED FROM BOTH OUTSIDE SOURCES (Cd. (Cd.feMfcntt Addfi1,% Solei Tin) $89 $89 power fails fa ils -- dala data and and programs programs IIII power are relamed retained lor lor up up to to 22 weeks! weeks! are THESE EASYTOINSTALLDEVICES SEND SI 1.95 SENO CHECK CtKK OR OR MONEY MONEYORDER ORDER FOR FOllSl ••' '.i ME ME FOR YOUR YOUR VIC-20" VIC·20·· FOR NO MORE MORE DATA DATA LOSS! LOSS! NO ANNOYING, SWERVING LINES AND WAVERING PATTERNS WHICH SPOIL IHE IV PICTURE WHtLE YOU'RE TRYING TO ENJOr THE WONDERS OF rOUR VIC OR 64. SENe SEND Aao less FOR FOR VIC 20 20 VIC INTERFERENCE PROBLEMS TO GET A PERFECT PICTURE ■ Pr.ctlul PmdlcDl Appllcetlonl Applications 80. Bo> 336 336 Edwaodltlu'g ECwaidsBurg. MI Ml '9112 1911? 569.'~ HAOAR RAOAR SHOWS SHOWS CRAFT CRAn APPROACHING...TRANSI>Otl7 AP!'ROACfflIKl- TRANSlORr ROOM ROOM TOO TOO DAMAGED OA MA GEO TO ro BgAM lEA. UP UP EHERGY..AS ENERG~._I S 1 i | ,,,,.~ ... . __ ' h'''_ irnihuu, go . ~ --... ■'.,-■■■—* -i r.rmnjl MujWihi hi .~...... --- ~.~~ :'.-.-~~ ..... ~-----* '.'nil ..... i-i_ in,, f', .... _ U P'»u v-j* i ~ ... iuuuw,.,.^ i ,i,.y', r.^ "i'm *a D uv.. ...., 0" D I ......■ r.pamir r, ....... O V.v □ V.Clr>-Ti~ 1 CFin-Min raoir !>■„* "' .... ....,"',"' o {.,...... ... ..... □ u.i ... - .. "''''- ' ' N ~ o "'" ~'"n bq':;";~~~. I "l ~ .... " , ~, • o ,or. y. , .... D UMI v.1 ,_ _ • " " '~~"'--' ABAR IS.INC ABAFNS. INC. PO Box Boll 2501 250 1 PO Vancouver, Vancouvef.WA WA 9866B 98668 Add S3 $3 sliinpmg Shippin g A0Q Was~ l~gl"" roaidonlj. , ..I~enl ',aaa .d" 8\ 6'\ salos uln lai I~ . Washington CHEATSHEET PRODUCTS PROOUCTS ' CHEATSHEET 1' 0 Bo* u..,. H28ft IQ'I'I Piltsburutl 1',,,, tJ For Commodore 64 wllh 01 .... Souno ... Of Dltk. Sound Mon/t Monitor or t .V. .t.tOllCflot_ 'T.V. » Touch-Tons " Ptione to Ea •• Opt 1 EH 111 Edit ... , ""d . 1.Colli ....1.. vd, print •r . =. 4!0 .... v"". "'_.1 ..... _ _h'''. _ "'n'O"L .0' u.•T""O(I....... cll_O" .. , 'h RV_V •• _ 0 1 .... Joy.tle >. Un i qj- k«ybo«rd or jbyltLCk. _ 1 1q.q~ • ■? _ Unlqu* I r t i _ .... '""9 tutor te••. to (or 1 ...- .11 ...... . . .... . _ .........*p*illnrj ___ .. t .. Ilatv .. _ .... . ...... rUk* up /our . . . ,,■-■■ fend --** h-n tto .. di«h d ••• '"."9 p la y • .."1\_ .. _ .... ocr .... ' . 0_ t«p*., '01>' or ..,. '_DA'_', InC, .. d od ,n ..... Ircludad In th* AVA ILABLE FADM AVAILABLE FROM DayPram DayProm rc. CO'"'<"'PUt8""' coT'txjte'.. «^c 3-'60 .. tl"'1. 3J6O S. 5 01>: 0ms Hwy 0.)'I0Il, Dayton, 0Il10 Ohio 4$439 45439 IS '3) 2iH555 (513)299-8555 DEAlER DEALER CALLS ItMTEOI INVITED! nfttr .i-iiii-.u pl*y ~oc.oa • • ri-r»-u-- _&.. •0.-', you.■6ii d •• I _ your dvalvr _ _ d_ or ." i" ll|1( dl -o... t .■ _ . ,PAIL*. ..U . . ............ •OUl Id. c- i.ui, '...:1, 'as 28.56 28 .56 19.46 '9.46 49.95 49.95 ■ 35 96 35.96 39.9S 39.'5 - Z8.56 18.56 39.95 39.n 28-56 28.56 89.95 8'.95 h4 S6 64.56 39,»S 39.'5 -• 2M5n 11.56 •· ..... .... 35.96 35.96 28.56 21.56 ,,~ 28.56 = C .. ",punl" 72 13), uio 111 0 Cmpiufrv»7!13S, Deal 20* K..I Srl.ul.rl. N.Y. 11733. learning learning to to use use your your computer? computer? "$ _ ... ...... ,_ _ _ .... o, .•,.,, ""~., _. "'_""r-""_ • . . . . TIC ... """""_,""",1"1'1(;1" , "-- ... _ ... __. _ ..._"""---.... ....... _ ... "'1'\1,_ ............ _ _ _ vc '-~ "'" _"",ou.-, . c.. .... __ c-oo ..- , Uf" ." " "001 OCCOIIOOt< _ . . ... (00' _ _ _ _ .... _ ..... eAl.lIOIWt _ _ ............ ... ~ACCOUN.I ..• ....... _ .... _ _ · _" ~''''' 335 ~ 1'" for far the thE COMMODORE 64 COMMODORE64 Q( 5CR I PIlVIC (A!AII)!; CATAIOfp • 11 SI on ffirst order) ( rt l u" d~d .,., l r H o~d OCTOBER .S.!'.[9..~ j_ QCl(l!IR V,"' B~sr BflSF Qu.II Ijjaliractric L?S.OO/bo« ~'. .... VI , DDIsKi I \ ~' I'R .OO/bo. ELECTfiA Triga Comiand Joysticks 114.95 [Ut I RA Tr ig. COO'1N "~ Jo~s tl tkS S14.95 '1ICTO~f ' tor S15.50 VICTOPV Annlhll AnnthilaWr $15.50" 55VDNEY 10).£f llA lA P1U)DtJC t S hEvoiulton o luU CII \29.9> DATA PRODUCTS ~C([SS t .. 1 ranf 6. 9~ ACCESS !;ru Noutra! lone S2 5!6.95 "MC/KISA C{V !5A ~r nt 1~091 .. 019 1 .d~ Order li Line: UM] 7£) 763-0?91 idd l3'.. nHnrOHflddre^^.orili'r.Cird* & "exn.datc lLeave u v. n_ .• dd~S' . d_r .C ..'oI' & a .dUe It's It"s p.O. . 21 P.O. kB0< !7 r.. ..... t .... : II Gjlvoston,' TI fit! Allow 3 Wcoks Educational Software For The COMMODORE VIC-20 VIC-SO ~ Wide Variety Of Subjects For All Ages Available For FOR FREE FREE BROCHURE WAITE: WRITE: FOR nS~l 77S51 VricDi Subject tn Change October October 1983 1983 2S.S6 28 .56 24.93 2495 - ' " ... X Specify [)(5k Or C055Cttr COMPUTE"sGo~el1e COMPUTE'S Gazette 39.95 - FANTASY COWUTERWARE FANTA SY COUPUTEAW ... AE ;■ . '■ ^end Check or MO • if.00 Stiippinc; 158 158 39-9S 49 95 -. 49.95 39 95-· l'tU 39 95 -. l'tU . . ... , ... c-o . . ....... • 28.56 U .S6 39.9S 39.95 - v, ._"".... . S"u,u Tel' 631 SauiciTCPfia; 24.86 24.86 39.95 39.95 ■ • EX ACTLY EXHCTLV NT UJhht Vdu WA LUrnt WH AT You program or product for the VIC-20 or 64 here and reach hundreds of thousands of readers. 34 9i ■ 34 .95 _ Prle . . . . . _ 1fof ..... cc»»Btt«, . . . .. t. • •*dd ~ .. 92 n ftor .... dhk ■PriCH im d.*k.• _ n I..,. "1"",1"9" ■CTtaCk, RO HO,...... or COO. CULl. Add *3 far shipping. Get G ET Advertise your 34 86 24.116 32.26 32.26 24 86 74.&6 Having Having trouble trouble to ... ~ . "" ' "'' .IIa... . 0'''. vo''''fta H . .e" _ "". iMIVdl, Full color *■ " in' C l ', . . ........ 1' .. 11 col .... oij..... ' ft • •• _ t - .1 - .n y. , . io,-^l' r I. / -'.j.ng«ll with IVtfy flight. l4.n 34.95 . BYTES&PIECES BYTES & PIECES (516)7512535 .,," •..." '0 ""tI""., p.,no ... . *««Yt OURS OUIIS c........... , ..·_ .... . .......... 1•• ~.- . - . , ~ JUICHIAV • c.. ..... U 1 'u-nilDD^lH •... ~. c" ~ ....... , ... .. . ..... .. SEND SENO FOR FOil FREE FREE PRICE PII ICE LIST li ST 'All Djnd, ...... nd, F BPELLAT H Q N aj D 115j W iT 44.95 " .95 ■ 34.91 34 .95 - .l~.q~ SPELLATHON $14.95 !> 1 H.W3 3>/64 coo . ... _ . _ " _to. ..... t ... , Sorted, x Vic VI ~ 20 70 " d . . . • ... ........ . , . .... t ... _ _ "" c " I..,u . , . . ii 1' t .. ... dn ... . 1 II i_" wl ] la l>id> Itu ~ ,, ' I • •;t i _ _ , c l ub 11.' 0 , _\C. Roc_ ... c on nrdi 1 lit*, col 1 vet Inni, club ■te< b. b. X ....X . ....... ... ,: ............. ..... ...... ..... ..Xx Anpl^P.nlt "'" pl. Pult .•.••.•..•..•.••.•.•.Xx Grldi.nm-i G, Id,~ ,,_, ....................Xx I(·I1.,.. Anilci ... n llu •.•.••..•.••.•.••.•Xx K-Fdiy Tmhinin ...X I, •• h".. n .. •.•..•....•..•.•..•.• x f ....... I1 ... ~ ••••.•. . . . •.•.••.••..Xx At Software For for Software ~·:.i~· ..... x O.. ... ............ Wo,d ..... 3."4 . .. . . . . ••.•. . . . ' ) P.O. Bai&25 DAT A F1LE P"L :r Cl HT TElEPHONE DIRECTORY DIRECTORY AND . NO Il IAlER TELEPHONE DIALER .•.• . ..•.•..•..•..Xx .~~ Commodore Commodore 64 ■nd DIAL-FILE ra( ..... ..•.•.•.••.••....•.. .. .Xx .. ...........D0 ...... . ....... D0 Heprnn lI.p' .. " . . . .......... •... •. D0 Rol>b*r. Losl lIo~bo-' . of ..'l .... Tomb T.. mb ...CD C/ O Slircruu D S. . ... 0 Canada ClIMd" LOS l OS UO IJO i\~i { CammodoK C........ odo •• 64 IW ChnpMln Chpllt•• , l.ci-m.krr ~., Jumfnun J~ .." .... " Dlscoum SOFTWARE SOFTWAAE rene ( = Cartridge ~ C : Cn....II" O:DI.k X=C. rtrldg,,: 11.OOcrpilll U .OO< ,.dn I'ii ' ... pili-.ii. ,hoft • hli.Ii .,.d . r....over .....,*'100IOO. · : ./l . IEet:: f,_ . ......... P.O. Bo* Box 1489 1489 P.O. Niagar,,·on·,he·l..llke. On,., Niagara-on'the Lake, Ont., TRANS-TERM Please machine formal PI.,n., specify s p u ,!ymoc" in" and nod/o.m al Grldrunnfr Gl ld l ~nn.. . $9.00 " .00 9.00 9.00 9.00 9.00 9.00 9.00 9.00 9.00 9.00 9.00 9.00 ' .00 9.00 ' .00 9.00 ' .00 9.00 9.00 9.00 ' .00 I VISA ...... SPECIAL! SPECIAL! & : Fan Fon ApniilifH "'"OU 'I'" CAN. CAN. 1i< : SOFTIVARE SOFTWARE ON ON Schoolmaster Programming Company Company Programming P.O. Box Box 194, 194, Pomona, Pomona, CA CA 91769 91769 P.O. ... 3-D 3-D OTHELLO WITH OUR OUR BASIC BASIC COMPILER COMPILER WITH YOU WON'T WON'T BE BE LEFT LEFT YOU WAITING! WAITING! FOR C-Sa FORe-64 ==="0 I. ~/~ ~ ) WAIT! \i': ~11. . /.'.;£.- PlE~SE : 0).- I /../ OJAI OJA1 SOFTWARE SOFTWARE \ -, ' .--,._ -