*7 PROGRAM #21*8"RIM IS A -64 TILITY THAT WILL"+9"ELIMINATE ALL REMS AND SPACES IN"A+:"YOUR BASIC PROGRAM FOR FASTER"e+;"OPERATION. "+<" "+A PROGRAM #22+B" HIS PROGRAM LOAAVE"#"VERY SLOWLY. UN THIS PROGRAM THEN"$"RUN AKEWAVE2 AND COMPARE SPEEDS."1$ PROGRAM #13W$"AKEWAVE2IS FROM ARK NDREWS"$"COLUMN. HIS IS WRITTEN IN BASIC"$"WITH THE HELP OF MACHINE LANGUAGE"$"SUBROUTINE. OTICE THE  " THE OMAL OPERATING "+D" SYSTEM SO YOU CAN ",E" LOAD AND ENJOY THE "C,F" COMAL PROGRAMS. "U,K PROGRAM #23y,L" ",M" ",N" HERE ARE NO PRO OU MUST MOVE YOUR"'"BOOT IN ANY DIAGONAL DIRECTION AND""("STEP ON THE SQUARES BEFORE THE"L("COMPUTER OPERATED MONSTER GETS YOU"^( PROGRAM #18("ETEOR UN IS A FAST PACED ARCADE"("TYPE GAME. LY YOUR SHIP THROUGH"("THE OUTE "EVERSI IS A COMPUTER VERSION OF"&"THELLO. LACE YOUR COLOR CHIPS AT";&"BOTH ENDS OF ANY LINE TO MAKE ALL"d&"THE CHIPS THE SAME COLOR. HE ONE"&"WITH THE MOST COLORS WINS."& PROGRAM #16&"LAP! IS AN ARCADE GAME SIMALAR TO" DS "+C" THE OMAL OPERATING ",D" SYSTEM SO YOU CAN "+,E" LOAD AND ENJOY THE "O,F" COMAL PROGRAMS. "a,K PROGRAM #23,L" ",M" ",N" HER SPEED "$"DIFFERENCE FROM AKEWAVE"$ PROGRAM #14%%"ABELS IS FROM THE HOY! ADET"J%"OLUMN BY HERYL ETERSON. T"u%"DEMONSTRATES HOW TO WRITE A PROGRAM"%"THAT STORES NAMES AND ADDRESSES"%"AND PRINTS OUT LABELS."% PRO""CHARACTERS. T MUST BE LOADED FROM"#"THE COMAL ENVIROMENT ONLY. "<#" "N# PROGRAM #12s#"AKEWAVE IS FROM ARK NDREWS"#"COLUMN. HIS PROGRAM IS WRITTEN"#"IN BASIC AND DRAWS A SINE WAVE"#"VR REACHES OF SPACE BUT"("AVOID THOSE METEORS. OU CAN ALSO"!)"SHOOT THEM WITH YOUR LASER."3)# PROGRAM #19\)$"IGHLIGHT IS A -64 TILITY WHICH")%"WHEN ACTIVATED WILL HIGHLIGHT ALL")&"PROGRAM LINES IN A BASIC PROGRAM")'"WHEN LIS&"OUST. APIDLY PRESS THE FIRE "'"BUTTON TO KEEP YOUR BIRD IN FLIGHT":' "AND LAND ON THE LINES THAT LIGHT"d' "UP WHILE AVOIDING THE OTHER BIRDS."v' PROGRAM #17'"TEP ON IT IS A FAST ACTION GAME"'"FOR THE -64. OU MUST MOVEGRAMS HERE",O" " -P" "-U PROGRAM #24?-V" "c-W" "-X" HERE ARE NO PROGRAMS HERE"-Y" "-Z" E ARE NO PROGRAMS HERE",O" "-P" "'-U PROGRAM #24K-V" "o-W" "-X" HERE ARE NO PROGRAMS HERE"-Y" GRAM #15%"EVERSI IS A COMPUTER VERSION OF"&"THELLO. LACE YOUR COLOR CHIPS AT"G&"BOTH ENDS OF ANY LINE TO MAKE ALL"p&"THE CHIPS THE SAME COLOR. HE ONE"&"WITH THE MOST COLORS WINS."& PROGRAM #16&"LAP! IS AN ARCADE GAMEERY SLOWLY. UN THIS PROGRAM THEN"$"RUN AKEWAVE2 AND COMPARE SPEEDS."%$ PROGRAM #13K$"AKEWAVE2IS FROM ARK NDREWS"s$"COLUMN. HIS IS WRITTEN IN BASIC"$"WITH THE HELP OF MACHINE LANGUAGE"$"SUBROUTINE. OTICE THE SPEED "$TED TO THE SCREEN. ")("T MAKES FOR EASIER READING."*- PROGRAM #20-*."ISK ATALOGER IS AN UTILITY"X*/"THAT WILL CATALOG ALL YOUR PROGRAMS"~*0"SO YOU'LL BE ABLE TO FIND THEM"*1"A LITTLE EASIER."*2" " YOUR"'"BOOT IN ANY DIAGONAL DIRECTION AND"("STEP ON THE SQUARES BEFORE THE"@("COMPUTER OPERATED MONSTER GETS YOU"R( PROGRAM #18{("ETEOR UN IS A FAST PACED ARCADE"("TYPE GAME. LY YOUR SHIP THROUGH"("THE OUTER REACHES OFܩ;0ȍ1ЊX`8tWfq Qʢ> `M-WM-EM-R Q` o `hhhhL q` o ` q H h`',JJJJ8&)*ݽ*JJ)*ݭ')*JJ)*ݥ* ` @`0Pp, "-Z" ",D" SYSTEM SO YOU CAN "+,E" LOAD AND ENJOY THE "O,F" COMAL PROGRAMS. "a,K PROGRAM #23,L" ",M" ",N" HER SIMALAR TO"&"OUST. APIDLY PRESS THE FIRE "'"BUTTON TO KEEP YOUR BIRD IN FLIGHT"F' "AND LAND ON THE LINES THAT LIGHT"p' "UP WHILE AVOIDING THE OTHER BIRDS."' PROGRAM #17'"TEP ON IT IS A FAST ACTION GAME"'"FOR THE -64. "DIFFERENCE FROM AKEWAVE"$ PROGRAM #14%"ABELS IS FROM THE HOY! ADET">%"OLUMN BY HERYL ETERSON. T"i%"DEMONSTRATES HOW TO WRITE A PROGRAM"%"THAT STORES NAMES AND ADDRESSES"%"AND PRINTS OUT LABELS."% PROGRAM #15%------------------ ** MAX OF 33 CHRS IN LENGTH **5 ---------------------------X I124:X15:IN$(I,X):::io PROGRAM #1p "HIS IS HOY!'S MACHINE LANGUAGE "q "ENTRY PROGRAM FOR OUR ADVENTUROUS"r "READERS WHO LIKE TO TE NTEGRATOR IS FROM UPERT'S" "EPORT. N THE 64 MODE, IT WILL"F "CALCULATE A SINE WAVE. N THE 128"o "MODE, IT DRAWS THE SINE WAVE AND" "CALCULATES THE ANSWER." PROGRAM #5 "RINT ORMATTER IS FROM ALE" "UPERT'S+ A0A1:"FLAP!",8,1' 49152WO PASSED EARLY"0" "IN THE GAME SHOULD DO THE JOB, WHILE"E0, "INTRODUCING AN ELEMENT OF VARIETY FOR"b06 "EXPERTS AT THE GAME."0J "PRESS < RETURN > TO START."0T A$0^ 9700(#IFT P >".3$ A0A1:"DISK CATALOGER",8,1/491520  A0A1:"METEOR RUN",8,1, 49152UNT OF CODE."  " "  PROGRAM #88  "NOTHER OF ALE'S COMMODARES."_  "HIS PROGRAM GENERATES 7 DIGIT"  "NUMBERS THAT ARE DIVISABLE BY 11"  "CONTAIN NO ZEROS AND HAVE NO TWO"  "NUMBERS ALIKE.  YPE IN THE" s "PROGRAMS FROM OUR MAGAZINE."t " "$y PROGRAM #2Nz "HIS IS HOY!'S CHECKSUM PROGRAM."v{ "SE IT FOR MISTAKE PROOF TYPING"| "OF HOY! MAGAZINE BASIC PROGRAMS."} " "~ "  OMMODARES. T SHOWS HOW" "TO PRINT DOLLARS AND CENTS FROM": "ANY INTEGER. "^ " "o PROGRAM #6 "RINT ORMATTER2 IS ALSO FROM" "ALE UPERT'S OMMODARES. T IS" "ANOTHER VERSI Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING 276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) |  28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,,71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,0,0 185,0,192,153,0,4,185,240% 195,153,0,216,185,250,192,153I 250,4,185,234,196,153,250,216m 185,244,193,153,244,5,185,228 197,153,244,217,185,238,194,153  238,6,185,222,198,153,238,218 200,208,205,96 --------- " PROGRAM #3" "HIS IS HOY!'S CHECKSUM PROGRAM"J "FOR THE C-128 COMPUTER. SE IT "s "FOR MISTAKE-PROOF MAGAZINE BASIC" "PROGRAM ENTRY. " " " PROGRAM #4 "HON OF PRINTING " "DOLLARS AND CENTS. "* " "; PROGRAM #7b "IMPLE CROLLER IS ANOTHER OF " "ALE'S COMMODARES. T SHOWS HOW" "TO SCROLL TEXT ACROSS THE SCREEN" "WITH THE SHORTEST AMO "  PROGRAM #9 ! "NOTHER OF ALE'S COMMODARES."3! "HIS PROGRAM GENERATES 7 DIGIT"\! "NUMBERS THAT ARE DIVISABLE BY 11"! "CONTAIN NO ZEROS AND HAVE NO TWO"! "NUMBERS ALIKE. "! PROGRAM #10!"LEGANT NCODER IS ANOTHER UPERT" ""COMMODARE. T CHANGES TEXT INTO"0""COMMODORE UPPER CASE GRAPHICS"T""CHARACTER CODES. "x"" "" PROGRAM #11""NCODER OMAL CHANGES TEXT INTO"""COMMODORE UPPER CASE GRAPHICS"#"CHARACTERS. T MUST BE LOADED FROM"$#"THE COMAL ENVIROMENT ONLY. "H#" "Z# PROGRAM #12#"AKEWAVE IS FROM ARK NDREWS"#"COLUMN. HIS PROGRAM IS WRITTEN"#"IN BASIC AND DRAWS A SINE W AIN ENU...."< "LOAD";(34);"DIR 1";(34);",8,1"T "RUN":""q 631,13:632,13:198,2: HI(25),LO(25),DU(25),H3(64),L3(64)  54291,134: 54277,136:54284,136  54292,136: 54278,134:54285,134  54290,17: 54 54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135 16,195,8,97,16,1952 X 8,97,16,195,8,97,16,195,8,97,16,195\ b 8,97,16,195,8,97,16,195,8,97,16,195 l 8,97,16,195,8,97,16,195,8,97,16,195 v 8,97,16,195  5,152,11,48,5,152,11,48,5,152,11,48  5,152,11,48  6,71,12,143,6,71,12,143,6  Щ! > ^ɠ@ R$PSHUL]SSD[F]QݩL e ɠ ­  2L! 6Ƣ - < L! )L! =L! L! mL! 4L! L! 3Ƣm - 6Ƣ - 9Ƣ - <ƢР - ?Ƣ - BƢ - EƢ3 - HƢTL-ɬ  AMEND PROGRAM NAME [F5] PROGRAM NAME DISK NAME ID PROGRAM NAME DISK NAME ID ========= DISK CATALOGER PAGE # PLEASE MAKE SURE PRINTER IS ONHARDCOPY OF FILESAVING FILELOADING FILEREAD DIRECTORY ..............[R]LOAD FILE ...................[L]SAVE FILE ...................[S]PRINT TO SCREEN .. ԩԩKԩ?Ԣ`Ԣ2``` `ƅ`ƅ``` Ϧ ` φ φ` I L L L$0FILE@0:FILE,S,W DISK CATALOGER 1NOT FOUNDINSERT SAVE/LOAD FILE DISK PAGE # PLEASE MAKE SURE PRINTER IS ONHARDCOPY OF FILESAVING FILELOADING FILEREAD DIRECTORY ..............[R]LOAD FILE ...................[L]SAVE FILE ...................[S]PRINT TO SCREEN .. N OϠP`Ϥ "  \ +L ǩL Ģɠ -ɠό Ǡ? <Ƣ֠ -Ϯϭ ͽ ǭ Ǣ Ǡ`Ѱ``&ϱϑ`i'i`i'i`Ƅ` <ƩjL  A:I,A:: 160,0,185,0,4,153,0,192, 185,0,216,153,240,195,185,250P 4,153,250,192,185,250,216,153t 234,196,185,244,5,153,244,193 185,244,217,153,228,197,185,238 6,153,238,194,185,238,218,153 222,198,200,208,205,96,16 &Ġ # E -Ġ# &L BƢӠ - HL >ɠ? ɠ Ϡ ɬ ψ ŠL2 ` 6Ƣ - H > i t zƭ<0L T $ɠ " L© +  z ƭ<0 YNhh L!L L BƢ'L- >  #B",)G$^K#Lt,:Vo`oj.tq~ y{&'$'C,yGتӪBǗa5SΪɪ h K3i8D:$hA / Z/8  -9i REPLACE  ,, <,=Bh,(0j,(: n_*  4[K~ DELETE> h,0izH h,,iFR  ( (<\nmf!  ,) ,(( (<poz ,@o[K INSER ITE POINTER; NEG=NONE_Ke`aLOWER CASE! NDEX NAMES FOR OBJECT'TABLE" : 0=NO, 1=WRAP, 2=REFLECT a:&!:":B0#: EGATIVE MEANS NONE:D! NDEX NAMES FOR SPRITE'TABLEN$:%:BX!&: 0=STOP, 1=SLOW, <) % **F !:PoZnědhZAP -in:D:x7ooo h:j8C:n8C:oo8 ,, K-9 h8i ,,X): hX0iZ  X(< Q'(  (<o"t)G$ #"  %0 h0i h)0i &') LOSE UP TABLE 4ߙ ) 4 4:4$o.o8!: O CURRENT SPRITEB"): 1 LESS ACTIVE SPRITELoV}7`j p-{t )) K<~ **}W  p—{ :(:B  @*  h(*i (: =B &n 0 :=B :o D 56 Nb X} b l p\{ v !  S   h    g P   O 8   B ;(6  D  / P   Z A < d Aq Q< nF x 0:BEACHVERBS.DAT 0 1 2 3 R01'2'3': 6R OR LR    6 <  6q Q}Y p.~{ZZ'G^&:\\'G`&: h\,ih!2i]]'G&: h],i֓) % *n ) % ** o o $o . J: 8hZ,jJ: B h2iz L4s) Vh 4&J4io `jh +, +,9i~ F*:n F:o&+E ' (F',0n.: hV*iDh O*i,Nh  $ ,iX ) O:bolj  O$)G$:v 4:FC:Binh O,i ( ( PHICGETS READ'SPRITESIOBJ'NUMMOBSYSPOS OBJECT'NAMES VERB'NAMESCW OBJECT'TABLE SPRITE'TABLE READ'WORDSREAD'OBJECT'TABLESNCSCLEAR'INPUT'STRINGMOVES LOWER'LIMIT UPPER'LIMITOBJECT'PRIORITY OBJECT'NO SPRITE'NOSPEEDX'COORDY'COORD S'DIRECTIONSۘĪCa^0+&!ݪO[Qլ=8rG`LP:T h,,i  ((<nܠ!  ,) ( ,((<o[K CURSOR RIGHTh,(*j,=[K9 CURSOR LEFTh,0j,@[ KU RETURN-[o$ h8D,i."t)G$ #8" 2=FASTb':(:Bl): 0=LEFT, 1=RIGHTv *:++: 0=NOMINAL, 1=TALL, 2=WIDE, 3=BIG1 2  Z:\:B]:B^:` :Bt:B"^K# MAIN PROGRAM LOOPCʡ I.E., DO FOREVER <," ,#6  @",$ ,'(#J ,:T",)G$^K#^t,:hnr|o}- AIN PROGRAM SEGMENTW#: UMBER OF ACTIVE SPRITES,!: URRENT SPR K<8D:,:B ,, -,=X,: ,=! ,, - ,, K-9h X, K K(3ih,X).iכ  < ,X) X,)<:C:9 h:jY h:ițhFREE -i(:D:2 h4i 7d8 }  p Ҙr rr | B   * ; 6 4D > 5@ 6 HB R ;6 \D f 5@6 p7d'8 z}  pF{  <,:B INPUT CHAR POS (  (< }  p7:{ h4i6 /<    S0':  TS1': " VT2': ,} 6 @ p{ J0:OBJECTTABLE.DAT Tޖ/ ^4ז h 4 r4 |  }  pW>{ 0:VERBTABLE.DAT 2R  O    4)$): jFD: ti ~o 4' o }.  pߔ{ 0:BEACHSPRITES.DAT ӔQ   %&   }  pz{ 0:BEACHNAMES.DAT  / (/ 2A/ < Q F':E  $":h (E0i (E:on ( ( ):E  $!:h (E*i (E:o oH o*n*4h  $ 2i&> & O:HoRo\ofopozo =:D,R09'COLORS'SIZECPEVALUATE UPDATE'BEACH NO'OF'OBJECTS NO'OF'COLORS NO'OF'SIZENO'OF'DIRECTION NO'OF'MOTIONJNO'OF'DIRECRION VERB'NAMEZAP'CURRENT'SPRITEERROROBJECTS NOT'FOUNDCOLORSSET'SIZE DIRECTIONMOTIONIFCSCOLOR OBJECT'NAMEVERB'NAMEMESTMP9T Vu~ytojl|3eWAVESXYY1X1WENDIFENDBEACHOBANDY0C SETGR πϙÙǘÙϟÙÙϟÙᙀÙÙÙÙϟ 3f3f333333̙3f̙3flxp` 0ffffffff>`<|bf 0fFf<00`0~~p  p":828>(L$,8)1)""I914:(L$,I)1)" ""(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",(L$,16)1)"2^  DELETE "0:KELLYS BEACH" BY ED BOLTON SAVE "0:KELLYS BEACH"( @2<F hyiP_KefKe`aZ%_NHANCED IS IN EFFECT!e`ad+_"HIS PROGRAM CAN ONLY BE WITHe`an0_'NORAML  +0F.}G", pHc{6I:):BJ!:B@v)J  $#:T %:^ h4iBhh,jJ:r h2i|h4j/0 %:oGhI,jI=h,j@nr h4in ,o}H pd{KD:4:B4).KD,8h 4$,jKC: 4=  hKC,iԌ 4):*n4J:> h,iH :R7\of=):Bp $J:z %!: &: ' !,UT:onkdoo}9 pil{ 4' 4'j': hj*i6h 4' !*i2h  4$ ,i 4):FC: oh  4$ ,i 4',:(n.2 4' !:<oFoPnȏZh 4',0iďdh  4$ÙÙÙÙÙÙÙϟ????ÙÙÙÙÙÙÙÙϟ????ÙßÙÙÙρσϝÁ X2X0HAN$(13)2140%R20809\X0882:4100GaX22160jbH3 H12 H13 882:1550}oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP" P$(3)"128 UG EP" ((@(* *`@ * * (@(`( IN THE LIST OF OBJECTS OR ACTION WORDS, ALL WORDS UP TO THAT WORD ARE ACTED ON, THEN THE REMAINDER OF THE LINE IS DISPLAYED AGAIN WITH THE OFFENDING WORD IN RED. ITHOUT HAVING THE CURRENT OBJECT CHANGING COLOR. HE ACTION WORD DOES THAT. F ONLY AIS PROVIDED. AP WILL REMOVE THE CURRENT OBJECT; MAKING ROOM FOR SOME OTHER OBJECT. OMETIMES A PLAYER WILL WANT TO JUST WATCH THE BEACH SCENE HE/SHE HAS CREATED WITHOUT HAVING THE CURRENT OBJECT CHANGING COLOR. HE ACTION WORD DOES THAT. F ONLY ALINE IS MORE THAN 40 CHARACTERS LONG SO IT COULD NOT BE ALL ENTERED AT THE SAME TIME. HE POINT HERE IS THAT MANY WORDS CAN BE ENTERED ON THE SAME LINE - UP TO 40 CHARACTERS. NLY EIGHT OBJECTS (SPRITES) ARE ALLOWED IN THE BEACH SCENE A ONE TIME. N THIN THE SKY MOVING RAPIDLY LEFT. HEN THE SUN AND THE CLOUD REACH THE LEFT OF THE DISPLAY THEY WILL GO AROUND THE MICROWORLD AND REAPPEAR AT THE RIGHT EDGE OF THE DISPLAY. VERYTHING ELSE THAT CAN 'GO' FAST OR SLOW WILL TURN AND GO BACK THE OTHER WAY WHEN  <"""$8  """"<  ""< x$$$$$p@HPHDBA>IIIII8$$$$$"AA"<$DD>0<$$$$$""IIIII>"""""<< < >!~HII)BIIIIIII8$$$$$$$$$$$$$$AA""IIIIIII?"""""""< f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<fkc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<00000< 0|0b< <<~0CTION WORDS ARE ENTERED WITHOUT NAMING AN OBJECT (OR FOLLOWING FREE), THEY ARE SIMPLY IGNORED. F THE ACTION WORDS GO, SLOW, FAST OR STOP ARE APPLIED TO TREE, BUSH OR HOUSE, THEY TOO ARE SIMPLY IGNORED. N THE OTHER HAND, IF A WORD IS ENTERED WITH IS NOTS CASE THE LAWS OF THE 64 RATHER THAN THE LAWS OF PHYSICS APPLY. F A NINTH OBJECT IS NAMED, THE OLDEST (FIRST NAMED) OBJECT IS REMOVED BEFORE THE NEW ONE IS PLACED IN THE SCENE. HIS CHOICE WON'T ALWAYS BE TO THE PLAYERS LIKING. O THE ACTION WORD IT REACHES THE EDGE OF THE DISPLAY. HE TREE, BUSH AND HOUSE CANNOT 'GO'; THEY CANNOT BE SET IN MOTION. OME OF THE LAWS OF PHYSICS APPLY EVEN IN A MICROWORLD. INALLY A LARGE BLUE BOAT WILL APPEAR IN THE WATER MOVING RAPIDLY TO THE LEFT. CTUALLY, THIS $$$$$$$$~|D D8D((EC= $~$>0~ @&$,4$d(0 |><$$D~< 884BBB<|$$ HE BOY WAD ADDRESS WILL BE A MULTIPLE OF 8*256: FOR EXAMPLE, 8*256, 16*256, 32*256 AND SO ON. F THE LOAD ADDRESS IS DIVISIBLE BY 16*256, THE FONT IS BEING USED AS AN ALPHAFONT; OTHERWISE, IT IS BEING USED AS A BETAFONT. HERE IS MORE ABOUT CUSTOM FONTS I (WITH CUSTOM LOAD ADDRESS) OU ONLY NEED A CUSTOM LOAD ADDRESS IF YOU ARE PLANNING TO USE THE FONT WITH A PROGRAM. RESS TO FIND OUT THE LOAD ADDRESS OF ANY -FILE. (HIS CAN BE FUN.) HE LOAD ADDRESS WILL BE GIVEN AS A MULTIPLE OF 256; FOREE BUSH CLOUD SUN BIRD PLANE DOG BOY GIRL PONY CAR TRUCK BOAT FISH AVING NAMED THE OBJECT, THE OBJECT MAY BE MANIPULATED BY NAMING ONE OR MORE ACTION WORDS. HERE ARE CURRENTLY 21 ACTION WORDS: RED YELLOW ORANGE GRE BEACH FOLLOWED BY A STRIP OF GRASS, FOLLOWED BY A ROAD, ANOTHER STRIP OF GRASS AND THE SKY. OME OBJECTS ARE ONLY ALLOWED IN CERTAIN PARTS OF THE SCENE; I.E. THE BOAT AND THE FISH CAN ONLY BE IN THE WATER; AND THE CAR AND TRUCK CAN ONLY BE ON THE ROAD. . HE ONLY EDIT KEYS ALLOWED ARE CURSOR LEFT AND RIGHT, INSERT AND DELETE. RESS THE KEY TO PASS THAT LINE OF TEXT TO THE PROGRAM FOR EVALUATION AND ACTION. XAMPLE INPUT: BOY PICTURE OF A BOY WILL APPEAR IN THE SCENE. IS COLOR WILL ILL TURN RED AND MOVE UP A LITTLE (UNLESS MOVING UP WOULD PUT HIM INTO THE SKY - LITTLE BOYS CAN'T FLY). SUN YELLOW GO CLOUD PURPLE GO FAST BOAT BIG LEFT FAST YELLOW SUN WILL APPEAR IN THE SKY MOVING SLOWLY LEFT. PURPLE CLOUD WILL APPEAR I , , AND OVER 30 DIFFERENT CUSTOM FONTS. - EVERY TWO MONTHS WE PUT OUT A DISK FULL OF NEW AND INTERESTING PROGRAMS. OU CAN GET THESE DISKS ONE AT A TIME,OOK DESIGNED FOR USE IN A UPPER ELEMENTARY SCHOOL CLASSROOM. E ALSO HAVE OVER 50 DIFFERENT DISKS OF PROGRAMS. OME FAVORITES ARE: - AN INTERACTIVE BOOK ON DISK THAT EXPLAINS SOME  GS READY TO TYPE IN. E HAVE OVER A DOZEN DIFFERENT BOOKS WRITTEN TO HELP YOU USE . HESE INCLUDE: - OUR BEST SELLING MINI REFERENCE BOOK. - THE IN DEPTH REFERENCE BOOK (OVER 450 PAGES). - R IF IT GOES OFF THE BOTTOM EDGE IT APPEARS IN THE TOP ROW, AND SO ON. HEN A PIXEL IS CHANGED, IT WILL BE CHANGED IN THE DESIGN FRAME, IN MEMORY, AND IN EVERY COPY OF THE CHARACTER ON THE SCREEN (YOU INSTANTLY SEE THE EFFECT OF EACH CHANGE). O SHIFT  LETE LIST). DISPLAY OF ALL 256 CHARACTERS IS IN THE CURSOR SELECT FRAME IN THE LOWER HALF OF THE SCREEN. HEN YOU BEGIN, THE CURSOR WILL BE IN THE UPPER LEFT HAND CORNER OF THE DESIGN FRAME. O CHANGE A PIXEL, MOVE THE CURSOR TO T T IS A BETAFONT. FTER THE FONT IS LOADED, THE COMPUTER WILL CHANGE FROM A SCREEN WITH THE BUILT-IN FONT TO A NEW SCREEN WITH THE LOADED FONT. HE NEW SCREEN WILL HAVE A LARGE REPRESENTATION OF THE LETTER IN THE UPPER LEFT HAND CORNER IN TH N, IT ASKS IF YOU WANT TO EDIT A "FONT." OR A "SET." TYPE FONT. ACH "FONT." FILE INCLUDES BOTH FONT SETS, REFERRED TO AS ALPHAFONT AND BETAFONT. SUALLY THE ALPHAFONT IS AN UPPERCASE FONT OR A CUSTOM FONT, AND THE BETAFONT IS UPPER/ LOWERCASE. F YOU PEN THE CUSTOM FONT AND THE NON-EXISTENT SECOND CUSTOM FONT. (USUAL LOAD ADDRESS) O SAVE A FONT WITH THE USUAL LOAD ADDRESS, PRESS . OU WILL BE ASKED THE NAME ("SET." WILL HAVE BEEN TYPED IN FOR YOU - DO NOT TYPE THE "SET."). HEN ASKEDOU WANT THE ALPHAFONT OR THE BETAFONT PORTION. EFORE THE FONT IS LOADED, THE NEW FONT NAME WILL BE DISPLAYED. F YOU PRESS THE OMMODORE KEY AND THE SHIFT KEY AT THE SAME TIME WHILE WORKING ON A FONT, YOU WILL GET GARBAGEU CAN EXIT THE PROGRAM AT ANY TIME BY PRESSING OR THE -KEY. YPE , SCRATCH OR RENAME ANY FILE, READ ANY DISK DIRECTORY AND SO ON, AND THEN RETURN TO THE PROGRAM BY TYPING (OR , IF YOU USED THE -KEY). TOPPING THE PROGRAM THIS WAY DOESREVERSE PERIOD IS USED IN THE CHARACTER DESIGN FRAME, IF THERE ARE NO REVERSE CHARACTERS IN A FONT, PRESS F4 TO MAKE THE CHARACTER DESIGN SUDDENLY APPEAR IN THE DESIGN FRAME. O EXIT , PRESS (WHICH ENDS THE PROGRAM AND  REVERSE CHARACTERS OF 0-127. OR EXAMPLE, REVERSE- (129) HAS A PIXEL OFF WHEREVER (1) HAS A PIXEL ON, AND VICE-VERSA. HE REVERSE CHARACTERS ARE USED IN THE BLINKING CURSOR. O MAKE A REVERSE OF A NEWLY DESIGNED CHARACTER, PRESS . HIS COPIES THE R DISPLAY). OVE THE CURSOR TO THE DESIRED CHARACTER AND PRESS RETURN. (HE CURSOR SELECT FRAME HAS WRAP.) O SELECT A CHARACTER BY SCREEN CODE, FIRST PRESS F2. O COPY A CHARACTER, PRESS (FOR COPY). OU WILL BE ASKED TO MOVE THE CA CHARACTER UPWARD USE +, TO SHIFT IT DOWN USE -, TO SHIFT IT LEFT USE *, TO SHIFT IT RIGHT USE /. HESE SHIFTS (ROLLS) ARE NONDESTRUCTIVE: WHAT GOES OVER THE TOP EDGE, APPEARS ON THE BOTTOM ROW, AND SO ON. O MOVE TO THE FOLLOWINGHE PIXEL AND PRESS 3 TO TURN THE PIXEL ON, OR 4 TO TURN THE PIXEL OFF. SE TO DELETE THE ROW THE CURSOR IS ON, OR TO ERASE THE COLUMN THE CURSOR IS ON. HE DESIGN FRAME HAS WRAP: IF THE CURSOR GOES OFF THE RIGHT EDGE, IT APPEARS IN THE LEFT COLUMN, OE DESIGN FRAME (A SMALL LETTER APPEARS TO THE LEFT OF THE DESIGN FRAME, AND THE SCREEN CODE OF THE LETTER APPEARS TO THE RIGHT OF THE DESIGN FRAME). PARTIAL LIST OF THE FONT EDITOR COMMANDS IS IN THE UPPER RIGHT HAND CORNER (PRESS TO SEE THE COMPICK "FONT.", YOU WILL BE ASKED IF YOU WANT TO EDIT THE ALPHAFONT OR THE BETAFONT. O CHANGE TO ANOTHER FONT, SEE BELOW. ACH "SET." FILE INCLUDES ONLY ONE FONT. F THE FILE NAME ENDS WITH ".A" IT IS THE ALPHAFONT. F IT ENDS WITH A ".B" I ABOUT THE LOAD ADDRESS, PRESS OR CARRIAGE RETURN. HE FONT WILL BE SAVED AS A 9 BLOCK -FILE. F A FILE WITH THAT NAME ALREADY EXISTS, THE PROGRAM WILL END. (HIS DOESN'T HARM THE FONT.) HEN, IF DESIRED, YOU CAN THEN TYPE , SCRATCH THE EXISTING ON THE SCREEN. HIS IS BECAUSE THE COMPUTER IS USING THE NON-EXISTENT SECOND CUSTOM FONT FOR ITS CHARACTER DESIGNS. O RETURN TO THE READABLE CUSTOM FONT, PRESS THE OMMODORE KEY AND THE SHIFT KEY AT THE SAME TIME. HESE KEYS TOGGLE BACK AND FORTH BETWE NOT HARM THE FONT. O LOAD A "SET." FONT PRESS . O LOAD A "FONT." FONT, PRESS . OU WILL BE ASKED FOR THE NAME (THE "SET." OR "FONT." WILL HAVE BEEN ALREADY TYPED IN FOR YOU). F YOU ARE LOADING A "FONT." FONT, YOU WILL BE ASKED IF YRETURNS YOU TO THE USUAL BUILT-IN FONT), OR THE -KEY (WHICH LEAVES YOU IN THE CUSTOM FONT). O RETURN TO BOTH THE PROGRAM AND FONT, AFTER ANY EXIT OR ERROR MESSAGE, TYPE OR, IF YOU USED THE -KEY, ENTER THE COMMAND. OEVERSE OF THE CURRENT CHARACTER N ONTO N+128 (ONTO N-128 IF N>=128), AND MOVES THE CURSOR TO THE NEW REVERSE CHARACTER. O SAVE TIME, YOU CAN CHANGE ANY OF THE CHARACTERS 0-127, AND THEN MAKE REVERSE COPIES OF ALL OF THEM AT ONCE BY PRESSING F4. INCE URSOR TO THE CHARACTER TO BE COPIED, AND TO PRESS RETURN, AND THEN TO MOVE THE CURSOR TO THE CHARACTER TO BE COPIED TO, AND TO PRESS RETURN. HE NEW COPY WILL THEN APPEAR IN THE DESIGN FRAME. N MOST FONTS, CHARACTERS 128-255 ARE THE CHARACTER, PRESS F5. O MOVE TO THE PRECEDING CHARACTER, PRESS F7. O SELECT A (NONREVERSE) CHARACTER BY PRESSING ITS KEY, FIRST PRESS F1. O USE THE CURSOR TO SELECT A CHARACTER, FIRST PRESS F3. HE CURSOR WILL MOVE TO THE CURSOR SELECT FRAME (THE FONT  <:4000*P P$(25),IN$(25,5):5000Sd53280,2:53281,0:(14):2500:5900\x800yH1:G0:L8:LC55590:P8I819:GG1:(L$,I)14)""P$(G):F(P$(H)):I0F:LCI,7::1000(L$,P)10)PT$AN$:AN$""206 AN$( 13)4)""R"(L$,14)4)" HIS IS A 128 ROGRAM.T MAY ",(L$,15)4)" NOT BE LOADED IN THE 64 MODE."6(L$,16)4)" OU MUST SWITCH TO THE 128 "@(L$,17)4)" MODE IN ORDER TO LOAD THIS ""J "1|(L$,23)3)" ":1000GAN$:AN$""1670U882:225v ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)""  BY HYRNE ACON "FONT" IS A DEFINITION OF HOW EACH CHARACTER IS DISPLAYED ON YOUR SCREEN. HE FONT EDITOR ALLOWS YOU ALTER THE WAY CHARACTERS ARE DISPLAYED ON YOUR SCREEN. OU CAN CHANGE JUST ONE CHARACTER (FOR INSTANCE, REMOVE THE LINE TH4SK DRIVE MANUAL FOR MORE INFORMATION IF NECESSARY. N YOUR CHOICE TO HAVE ERROR MESSAGES IN MEMORY OR NOT). F YOU GET AN ERROR, WILL PUT THE CURSOR ON THE PART OF THE LINE IT IS HAVING TROUBLE WITH SO ' . UST MAKE THE CORRECTION AND PRESS MIGHT JUST PRINT THE MESSAGE ITSELF (THAT DEPENDS ON YOUR CHOICE TO HAVE ERROR MESSAGES IN MEMORY OR NOT). F YOU GET AN ERROR, WILL PUT THE CURSOR ON THE PART OF THE LINE IT IS HAVING TROUBLE WITH SO ' . UST MAKE THE CORRECTION AND PRESS TS EXECUTING WITH THE FIRST LINE OF THE PROGRAM. F AN ERROR OCCURS WHILE THE PROGRAM IS RUNNING, THE PROGRAM WILL STOP EXECUTING. WILL PRINT WHAT THE PROBLEM IS AND THE LINE NUMBER IT OCCURED ON. HERE IS A VERY GOOD CHANCE THAT YO M LOW (1) TO HIGH (9999). OU CAN USE ANY LINE NUMBER BETWEEN. HE COMMAND CAN ALSO BE USED TO SHOW JUST PART OF A PROGRAM. HE FOLLOWING ARE SOME EXAMPLES TO DO JUST THAT: LIST (ALL LINES) LIST 100-500 (FROM LINE 100 TO 500) LIST 100-  IT. HE COMMAND WILL DO JUST THAT, IT WILL LIST THE PROGRAM TO THE SCREEN. HE FIRST THING YOU WILL NOTICE IS YOU WILL WANT TO SLOW OR STOP THE LISTING (SO YOU CAN STUDY IT). UST AS WITH THE CATALOG COMMAND, YOU CAN USE THE KEY TO SLOW THE LI 17)1250 AN$(145)1300/ AN$(13)2000O AN$(32)G223000:140{ AN$(32)3000:H13:LC55590:P8:150 204 "";:53280,0:53281,6 "OADING...";(34);P$(H)(34);"" "LOAD";(34);P$(H);(34);",8,1"  "X C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)" " ":I0F:LCI,14:$ HH1:HGHH128 PP1:P19P8X LCLC40:LC56030LC55590a 204 (L$,P)10)" ":I0F:LCI,14: HH1:HG11HH12 PP1:P8P19 #LCLC40:LC55590LC56030 (204 828(L$, (L$,18)4)" PROGRAM SUCCESSFULLY. SE THE"VT(L$,19)4)" PRESCRIBED METHOD WHICH IS..."^(L$,20)4)" OAD ''ROGNAME'' "h(L$,21)4)" [RESS ANY EY] "r(L$,22)4)"(L$,6)11)"EE NSTRUCTIONS"4(L$,7)11)"UN ROGRAM "Z(L$,8)11)"ANCEL INDOW " (L$,9)11)""PO55507:X0 I116:POI,1::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:POAT SLASHES A ZERO) OR CHANGE AS MANY CHARACTERS AS YOU WANT - EVEN ALL OF THEM. OU CHOOSE THE CHARACTER TO EDIT BY KEY, CURSOR, OR SCREEN CODE. HE FONT EDITOR DISPLAYS ALL 256 CHARACTERS OF THE FONT. HEN THE IS RU  THE KEY AGAIN. F THE RED LIGHT ON THE DISK DRIVE STARTS BLINKING ON AND OFF WHILE JUST SITS THERE WAITING FOR YOU TO TYPE SOMETHING, TRY TYPING IN THE COMMAND. HIS WILL PRINT DISK ERROR MESSAGE TO THE SCREEN. HECK YOUR DI U WILL MAKE TYPING ERRORS WHILE TRYING THESE COMMANDS. CHECKS EACH LINE YOU TYPE FOR ERRORS, AND IF IT CANNOT UNDERSTAND WHAT YOU TYPED, IT WILL STOP AND GIVE YOU AN ERROR MESSAGE. T MIGHT GO OUT TO THE DISK DRIVE AND GET THE ERROR MESSAGE, OR IT  (FROM LINE 100 TO END) LIST -500 (FROM BEGINNING TO 500) HEN THE PROGRAM YOU WANT HAS BEEN LOADED INTO MEMORY, YOU START THE PROGRAM WITH THE COMMAND . HE COMPUTER DOES A QUICK SCAN OF THE PROGRAM TO MAKE SURE IT SEEMS CORRECT, AND STAR STING, OR THE / KEY TO STOP THE LISTING. HEN ING A , THE SPACE BAR WILL PAUSE THE LISTING. OU WILL NOTICE THAT EACH LINE HAS A NUMBER IN FRONT OF IT. USES THEM TO KEEP TRACK OF THE ORDER OF THE PROGRAM LINES. HE ORDER GOES FRO "RUN": ""2  631,13: 632,13: 198,2:o "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ": >(L$,20)2)" "6 f(L$,4)10)""W p10)" "x z10)""~  S54272:S23,0:S24,15 S6,0:S5,12:S1,70:S3,40 S4,0:S4,65:D1100::S4,0: (L$,P)10) G LINES BY HOLDING DOWN THE KEY ON THE UPPER LEFT HAND SIDE OF THE KEYBOARD, OR STOP IT BY PRESSING THE / KEY (RIGHT BELOW THE KEY). F YOU HAPPEN TO HAVE A DUAL DRIVE (A TWO DRIVE UNIT) YOU CAN ADD A '0' OR A '1' AFTER THE COMMAND: C TO THE COMPUTER, AND PRINTS IT ON THE SCREEN. HE ACTUAL LISTING SHOWS MORE THAN JUST FILE NAMES. T SHOWS HOW BIG THEY ARE, THEIR NAMES, AND THE FILE TYPE. ACH ENTRY IN THE DIRECTORY IS CALLED A FILE, AND THERE ARE FOUR TYPES OF FILES - TO GIVE COPIES AWAY. HIS PERMISSION DOES NOT APPLY TO THE PROGRAMS FROM HOY. ? INCE IS ON THIS HOY DISK, YOU CAN LEARN TO WRITE READABLE PROGRAMS. NE WAY TO LEARN IS TO FIRST LOOK AT OTHER PEOPLES' WORK. WILL ALLOW YOU TO RUN THE PROGRAMS ON THIS DISK, OR TO READ ARTICLES SUCH AS THE ONE YOU ARE READING NOW. F YOU WANT TO ENTER THE EDITOR TO WRITE YOUR OWN PROGRAMS, SIMPLY ENTER THE " " OPTION. 4. F YOU ARE ALREAD ? ONGRATULATIONS, IS INCLUDED ON THIS HOY DISK. O USE , FOLLOW THESE STEPS: 1. YPE ":*",8 YPE HIS PUTS YOU IN HOY'S MAIN MENU. 2. HOOSE THE " 64 " OPTION. HIS WILL GIVE YOU 'S INTRODUCTORY SCREEN. , MULTI-LINE -- STATEMENTS, A STATEMENT (SIMILIAR TO A MULTIPLE CHOICE QUESTION), AND NAMED EDURES AND TIONS COMPLETE WITH PARAMETERS. HESE STRUCTURES ARE SIMILIAR THOSE IN "PROFESSIONAL" LANGUAGES LIKE ASCAL. ALSO HAS THE ANOTHER COMPUTER. DOES, HOWEVER, HAVE ONE GOOD FEATURE; IT WILL LET YOU TYPE IN A SHORT PROGRAM AND SEE IT EXECUTE AS SOON AS YOU TYPE THE WORD . EXT EDITORS OR ELABORATE COMPILER COMMANDS ARE NOT NECESSARY (OST OTHER HIGH LEVEL LANGUAGES LIKE ANS YOU DON'T HAVE TO LEARN MACHINE CODE - YOU ONLY HAVE TO MAKE SURE THAT IS IN THE MACHINE BEFORE YOU CAN RUN YOUR PROGRAMS. ? INCE COMES WITH MOST PERSONAL COMPUTERS TODAY, MANY PEOPLE THINK THAT IT IS THE BEST COMP ING',13,0 <...> ; REST OF PROGRAM CODE ----- "HIS IS A STRING" S YOU CAN SEE, THE STATEMENT WRITTEN IN IS SHORTER AND MUCH MORE READABLE. LTHOUGH THE COMPUTER WILL SEEM TO UNDERSTAND STATEMENTS AND PROGRAMS, THE COMP  LOAD ANY TYPE FILE YOU ASK IT TO. F YOU ARE NOT SURE WHETHER OR NOT A PROGRAM WAS WRITTEN IN 0.14, LOAD THE PROGRAM AND IT. NLY 0.14 PROGRAMS CAN BE LISTED, ANY OTHER TYPE OF PROGRAM (, 2.0, ETC) WILL NOT LIST. AT 0 (HIS IS FOR DRIVE 0) CAT 1 (HIS IS FOR DRIVE 1) NCE YOU KNOW WHAT IS ON A DISK, YOU CAN LOAD PROGRAMS INTO MEMORY WITH THIS COMMAND. T IS SIMILAR TO THE COMMAND, EXCEPT YOU NO LONGER NEED TO TYPE THE COMMA 8. HE (PROGRAM), (SEQUENTIAL - DATA FILES), (RANDOM - ALSO DATA FILES), AND (SPECIAL FILES). NLIKE THE COMMANDS: "$",8 WILL NOT ERASE THE PROGRAM IN MEMORY WHILE SHOWING A DIRECTORY OF A DISK. OU CAN SLOW THE SCROLLIN DETAIL CERTAIN COMMANDS NOW SO THAT YOU CAN DO JUST THAT. HE COMMANDS WILL BE LISTED IN , BUT TYPE THEM IN WITH UNSHIFTED LETTERS. HIS COMMAND WILL SHOW YOU WHAT FILES ARE ON THE DISK IN THE DISK DRIVE. HE DISK DRIVE SENDS THE DISK Y IN , BUT WANT TO RE-ENTER THE MENU FROM STEP 3, ALL YOU NEED TO DO IS TYPE IN: "HI" ASSUMING THE HOY DISK IS IN THE DISK DRIVE. : AND THE PROGRAMS ON THIS DISK ARE COPYRIGHTED, BUT WE GIVE YOU PERMISSION OU WILL BE GIVEN SOME INFORMATION AND THEN ASKED IF YOU WANT ERROR MESSAGES IN MEMORY. IT THE RETURN KEY FOR THE DEFAULT ANSWER OF YES. 3. FTER A SHORT WAIT, YOU WILL BE PUT IN A PROGRAM DISPLAYING ANOTHER MENU. HIS WILL TURTLE GRAPHICS MADE FAMOUS BY OGO. IS NOW THE LANGUAGE TAUGHT IN THE SCHOOLS OF 5 UROPEAN COUNTRIES. IS EASIER TO LEARN THAN , AND TEACHES THE IDEA OF STRUCTURED PROGRAMING NECESSARY WITH MODERN COMPUTER LANGUAGES.  ASCAL, AND REQUIRE THEM). HIS MAKES SEEM LIKE A EASY-TO-LEARN LANGUAGE FOR EVERYONE. STARTED WITH THIS IDEA OF INTERACTIVE WORK WITH THE PROGRAMMER, THEN ADDED TO IT. HAS STRUCTURES SUCH AS , , AND LOOPS UTER LANGUAGE TO LEARN. OT SO. IS IMPLEMENTED ON SO MANY COMPUTERS BECAUSE IT IS THE EASIEST LANGUAGE TO WRITE. T HAS THE FEWEST COMMANDS, AND DEFINITE STANDARD TO FOLLOW. HIS MEANS THAT A PROGRAM WRITTEN ON ONE COMPUTER MAY RUN ON UTER ITSELF ONLY UNDERSTANDS MACHINE CODE. , THE LANGUAGE, IS A MACHINE CODE PROGRAM. T MUST BE LOADED INTO YOUR COMPUTER BEFORE YOU CAN WRITE, EDIT, OR RUN PROGRAMS. HINK OF THE LANGUAGE AS A TRANSLATER BETWEEN YOU AND THE COMPUTER. HIS ME  ' . F YOU DO, WILL BECOME CONFUSED AND STOP FUNCTIONING. HE ONLY THING TO DO AFTER THIS HAS HAPPENED IS TO TURN THE COMPUTER OFF AND RELOAD . NCE A PROGRAM IS IN MEMORY, YOU WILL WANT TO BE ABLE TO SEE FOLLOWING IS AN EXAMPLE OF LOADING A PROGRAM CALLED "FILENAME" FROM THE DISK DRIVE: LOAD "FILENAME" NLY TYPE FILES CAN BE LOADED. E CAREFUL, BECAUSE OTHER LANGUAGES, LIKE , ALSO STORE THEIR PROGRAMS AS FILES. 0.14 WILL ATTEMPT TO ?fz:ٔHxRsݖܞҝ}n MjNc:\NРf hNc*igp 6:  --DATA FILES--< >-DO NOT LOAD--<DIR'EDITOR.MEM  - OR EGINNERS NLY BY AVID TIDOLPH ? HE MANY COMMERCIAL COMPUTER PROGRAMS AVAILABLE TODAY ARE MORE THAN SUFFICIENT FOR MOST PEOPLE'S NEEDS. F WORD PROCESSORS, SPREAD SHEETS, AND DATA BASE MANAGERS ARE ALL YOUR CO  YOU TYPE IN YOUR FIRST WORKING PROGRAM. LSO, FAMILIARITY WITH COMPUTERS AND PROGRAMMING HELPS EASE THE SENSE OF HELPLESSNESS MOST PEOPLE GET WHEN DEALING WITH COMPUTERS. (OW DID YOU FEEL THE FIRST TIME YOU GOT A COMPUTERIZED BILL?) HIS ARTICLE IS FORR'EOF LINE'COUNT PAGE'HEADER PRINT'LINE PAGE'FOOTERFILE'TO'SCREEN LINE'UP'PAPER MAX'FILESXZEXITSTRINGCHARNUMT CLOSE'FILESLIST3333V PRINT'ALLSTOPPEDI2 NUM'ARITCLESTESTLIT INFO'TEXTCOLOR OPEN'FILEBACK'BOR' EXTRACOLOR NUM'PROGRAMS NUM'ARTI  DIM'VARIABLESINITIALIZE'SYSTEMMENUMOVE'BARMENSELECTEDEXECUTE'OPTIONROWMAX DISK'NAMEMONTHNAMEARTICLESPROGRAMS PRINT'OR'VIEWTEXT MAX'LINES LEFT'COLUMNOPTIONSHEADER PROMPTCOLOR MENUCOLOR OPEN'FILEBACK'BOR' EXTRACOLOR NUM'PROGRAMS NUM'ARTI ]7= R _Re`a ;=$.o8>B DS:LI0~Vo`oj}LbsG:0զxhPI¶zNϬʬŬ e`a_ef'cfe`a0_'e`a _e`a }/ pLo{ @ 6: 5 COMAL ARTICLE* hM7ik4N)>@N'6'H5 N.TXT(R h  TOP OF FORM.e`a" & ,)_ RESS ANY KEY TO BEGIN PRINTING.e`a61"B& B@ J*_!RESS THE ^ KEY TO STOP PRINTING.e`aT0_'(RINTING STOPS AT THE END OF THE PAGE)e`a^}@hr p?t {|  h i} _ `2_) READ AND PRESS THE KEY efajot~  ' N hCi  )<n  ).TXT(<oBܜ QK BBI:hK0j BBK)K<Bh) *i2 h i" hCi n )"  _7 ?   _Y @6:B *5  4_ > HM R \}, f pp- z'rA{ z"  &  BĚA _cf 'Be`a B :  #$A)G#%'  }-  p.6z  PROGRAMMERS NOW WORK DIRECTLY IN MACHINE CODE. HEY CHOOSE INSTEAD TO USE COMPUTER "LANGUAGES". HESE RANGE FROM LOW LEVEL LANGUAGES LIKE ASSEMBLY CODE, WHERE THE WORDS MERELY REPRESENT INDIVIDUAL MACHINE CODE INSTRUCTIONS, TO HIGH LEVEL LANGUAGES WHICH MPUTER IS USED FOR, LEARNING TO PROGRAM WOULD BE A WASTE OF TIME. OR SOME, HOWEVER, A GOAL IS BEING ABLE TO LEARN SOMETHING NEW... SOMETHING THAT CAN CONTROL THAT MYSTERIOUS BOX CALLED A COMPUTER. HERE'S NOTHING LIKE THE FEELING OF ACCOMPLISHMENT WHEN  PEOPLE WHO HAVE MADE THE DECISION TO NOT ONLY LEARN ABOUT COMPUTERS, BUT TO LEARN PROGRAMMING AS WELL. ? OMPUTERS WORK WITH A LANGUAGE OF ZEROS AND ONES CALLED MACHINE CODE. HIS IS AS DIFFICULT TO USE AS IT SOUNDS, AND FEW  LOOK MORE LIKE NGLISH. OMPARE THE FOLLOWING TWO PROGRAMS: ------------- * = #$00 , . 'HIS IS A STR CLESNEW'ROWFILENAME FILE'EXISTSERRORPAGETITLEI SEPARATORCURSORARRAYMAX'ROWMOVE'IT DIRECTION EXIT'TO'COMAL READ'A'FILE DISPLAY'FILES SELECT'FILEBOXPROGWAITCOL SHIFT'WAITEOF' FILE'TO'PRINTPAGE'NUMFULLREAD'LEFT'COLUMN PRINT'A'PAGE CHECK'FO * BY C THOMPSON(2< 'F uPZDkdn p{x :#ARTICLES        & RP 2:%  "$],_cf $e`a6$=@#$)G#%'J :T. ^hr}| t0{ N0 <N 00-  p!{ "/B_ : efe`a &  TO READ OR ^ TO QUITe`a*_! e`ahM^-9j4C: }3 p5t {Bޓ Qh BK1iړ B BI)K<o B  h i* 4> LP:  `4C: jo t 479 ~}8  p9I{ < h4iy $;_ $e`a n? =:  h]7i ==   hK =6iՕ _ =ef+cfe`a n _ =ef)cfe`a o (: 2n, <4C: F$%=' P _ $e`a RE INFORMATION PLEASE CONTACT efa "$_=efa , _ Ke`a 6,_ SERS ROUP, IMITEDef)cfa @_HOY!e`a J_6041 ONONA RIVEef)cfa T"_45 . 34TH T., UITE 407e`a ^_ADISON, 53716ef)cfa h_EW ORK, 10001e`a r    &-_$R, YOU MAY ENTER LIKE THIS:e`a 0  :_BASICe`a D  N X}+ b l p"{ v_KefKefa }"  p,qt { "  &  $_cf $e`a :       N THISe`a|-_$PROGRAM AGAIN TO RESTORE THEM. O DOe`a,_#THIS, ISSUE THE COMMAND: CHAIN "HI"e`a}ՍcREPLYERROR INTRO'SCREENFREQPULSEATTACKDECAYSUSTAINRELEASEWAVE LE HAVEe`a0_'WRITTEN MACHINE CODE ROUTINES TO EXPANDe`a/_&THE LANGUAGE AND OVERCOME MINOR FLAWS.e`a_`a/_&NE FLAW IS THAT KEEPS ITS ERRORe`a"*_!MESSAGES ON DISK IN A FILE CALLEDe`a,._%"COMALERRORS". HIS SAVES MEMORY, BUTe`a6#_MA E Ae`a/_&SUBMENU. HEN PRESS RETURN TO EXECUTE.e`a}pz'r({ D:)D:B *!h0j):)C:B  h(*i':)C:Bn$:)C:B.o8 BC:LV`j h)it & N =XN b-l =v  UIT ENU< =  < DS: EAD ON THE CREEN< RINT ON THE RINTER< ETURN TO THE ENU< <::BD:B} pYt{ h iA   ( EAD RTICLES< UN ROGRAMS<" EARN BOUT <, RINT RTICLES<6 UIT HIS ENU<@}JT p{^  ROPER ISK<h :r :| Z*dn pr{x )R i+ |L , COMAL ARTICLE  - #EATURE RTICLES .   "/B0_'  ROGRAMS ON THIS ISK e`a &  _UTeg eg IN THE DRIVEe`a & &_AND PRESS ANY KEY TO CONTINUEe`a1}!&0 p&rr2|:2)D)G($'G&N)G($'G%X)b}&lv p3{ 7478*_!RESS HR$( $<\4D:7D:BMD:Bf 89Bp 4(z DS:I0~n!o}5 p:Д{ hMj4C:h^-j4C:h;,j7C:M4:}:   p8?{ 6=;:B $ . h]7i" 8 ;= B ; L: Vn/  Z$ do n=,49 xo > }9  p<Ԗ{ %-O _efGcfeg6d`a 9_:eg eg1986ef,cfRTICLE ILENAME:eg e`a %-O _`a _`a }<  p>1{ $4;)_`a $_=efa 0_' OR MO $_`a |}>  p1]{ K3 K- }1  p+{{ "/B 0_' ELCOME TO DISK LOADED 0.14 !!e`a 1_(OU MAY LOAD THESE 0.14 PROGRAMS:e`a _`a  $) _CHAIN "ef $ef"e`a $+READ'ERRORSPOSITIONAI EXPAND'RAMADDRLT INTO THIS PROGRAM IS A ROUTINE TOe`aT._%BRING THE ERROR MESSAGES INTO MEMORY,e`a^,_#WHERE SPRITES 16 AND UP ARE STORED,e`ah1_(BUT CERTAIN PROGRAMS MAY OVERWRITE THEM.e`ar+_"F THIS HAPPENS, YOU MUST RU KES SHOWING ERRORS SLOW.e`a@_`aJ0_'UILT INTO THIS PROGRAM IS A ROUTINE TOe`aT._%BRING THE ERROR MESSAGES INTO MEMORY,e`a^,_#WHERE SPRITES 16 AND UP ARE STORED,e`ah1_(BUT CERTAIN PROGRAMS MAY OVERWRITE THEM.e`ar+_"F THIS HAPPENS, YOU MUST RU ~_ eg ')efcfa &_ eg ')efcfa:n &_ eg ')efc`ao} *1{ < ԏ -   - !(- K 'K2<-FP  N nU!  *o4}>H pj{R"\ #  f$_cf $e`ap z$%' &  7_. EWSLETTER ON ISK e`a/_&SE THE CURSOR UP/DOWN KEY TO CHOOS NAMES.DATNNNNNN N N  ! FG ::BN h *END*3i =&  <0o: *END*-D N]7S FORMAT ERROR SYNTAX ERROR TYPE CONFLICTFUNCTION ARGUMENT ERROR%STATEMENT TOO LONG OR TOO COMPLICATED SYSTEM ERROR NAME TOO LONG BRACKET ERROROVERFLOW ERROR IN STRUCTURED STATEMENT ERROR IN GOTO STATEMENT STACK OVERFLOW UNKNOW 01) `B01 SIZZLE OFF SIZZLE ON $ķ LM-W … o nok  iii i д o U C )i.) B x <`;;ɂ*0?;!حǩ :XLE¢bB";;ȱ;  -:`JJJJ,, )) )й`   ( I  DELETE "0:HI" BY DAVID STIDOLPH SAVE "0:HI"(2 <F P 0Z 1d n x_`a K33(O YOU WANT ERROR MESSAGES IN MEMORY? ٝ hY--9i _Kefa ";2  " BACKUP THIS DISK BEFORE YOU USE IT ";8 > \  CHAIN"HI + h  198,9y  631,("C")  632,("H")  633,("A")  634,("I")  635,("N")  636,34  637,("H")  638,("I")  6 6o@ !J FGT ^_*****************e`ah_*** ***e`ar_*****************e`a|_`a/_&ITH THE RROR ESSAGES IN YOUR EMORYe`a_`a*_!YOU MAY USE SPRITES 0-14 !!!e`a_`a*_!(IE, DON'T USE SPRITES 15 AN &vT%K$'T$ ' '   SETMSG+n͍ SETMSG-o p ǎ| READ'ERRORS BY PHYRNE BACON ܅     ƭ ϭ ʭЭW.Эԭԭ kí ɭ)ŭ-܏ i+ ƭ+Э 0+ ~ w  x  _Kefa pw{hI(2is33'{  ; D2 I( UI _  `( h2 p'< p7F uP INPUT FILE'DEVICE NOT PRESENT(NOT OUTPUT FILE)STRING NOT DIMENSIONED*LOCAL VARIABLE ERROR4TOO MANY NAMES5FUNCTION VALUE NOT RETURNED6NOT A STATEMENT7!NOT A COMMAND OR SIMPLE STATEMENT8 ',' EXPECTED9NUMBER OUT OF RANGE:EXPRESSION EXPEC N VARIABLE PROCEDURE PARAM ERRORINDEX/PARAM ERRORSUBSTRING ERROR-COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERROR INDEX ERRORILLEGAL NO. OF INDICESSTRING ASSIGNMENT ERRORFUNCTION ARGUMENT ERRORNOT IMPLEMENTEDZONE VALUE INCORRECT E***x ,0NæĥĮĄ l 0- jđĐđ wHhX`,8đei`,p8)M**M**M**M***л`X$0xN 2301 oPP 8G" :# `iD :DL uLEEEE 4Z P$` ЪЍ!,,0` C: HIGH C (C6)::B:B: :B  : COMALERRORS <h003iH"_ILE "COMALERRORS" IS NOTe`a#_ON THE DISK. LEASE INSERTe`a _DISK WITH THIS FILE ANDe`a"_ THE PROGRAM AGAIN.e`a,!39,13 "COMAL 64 0.14",8ECUTED"M " AFTER THE LANGUAGE HAS BEEN LOADED."j ""; : PENCOLOR CYAN "COMAL PROGRAMS ON THIS DISK ARE LOADED:"  " LOAD "(34)"NAME"(34)  " RUN"  " D UP)e`a_`a_`a._%OW READING ERROR MESSAGES FROM DISK.e`a_`a_ LEASE WAIT ...e`a_`a  _HANGING ERROR ROUTINE.e`a  >: \7& 0   :  =DNXT&bT%lT F í _*)@Э ɭЫ~4ʭЭ`Ў>H 0:COMALERRORSR\f} pz-ح$ԭ Jԭ"ԭ;  O ҭƭ+kЭ`íЭ$`.8B_KefaCLEAR SCREENL_OING TO MAIN MENU...e`aVP!&`_NEWe`aj_ CHAIN "MENU"e`at  Zd BOOT CALLEDn x o} p{ ! FG _KefKe`a(_ ELCOME TO 0.14e`a_`a0_'INCE THE RELEASE OF VERSION 0.14e`a-_$(OVEMBER 1983), SEVERAL PEOPTED;NOT IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATES OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT STEP = 0ARRAY REDEFINEDDIMENSION ERROR CASE ERROR END OF DATAFILE ALREADY OPENFILE INPUT ERROR END-OF-FILE FILE NOT OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT  5240 M M 78  M 0 54003! CPOM,P1: CPOM1,P1: CPOM40,P1: CPOM41,P1>! 5300O! LOOK RIGHT`! ----------i!M 2!"CS (C PO M) 15!, CS P1 5600!6 CS 13 5600!@M M 2!JCS (C PO M) EM TO YOURS."+ "THE METHOD FOR THIS IS THUS:", "BRACKET THE OPPOSING PLAYER'S"6, "PIECE OR PIECES WITH ONE NEW"X, "AND AT LEAST ONE EXISTING"s, "PIECE OF YOUR OWN.", "AT THE END OF THE GAME, THE", "PLAYER WITH THE GREATESOM41,P1$* 5900$\ LOOK DOWN & LEFT%f ----------------%pM 78,%zCS (C PO M) 15@% CS P1 6200T% CS 13 6200a%M M 78{%CS (C PO M) 15% CS P1 6100% CS 13 6200% 6040%M M 78% M -Z"PRESS < _ > FOR DOWN"-d"PRESS < CTRL > FOR LEFT".n"PRESS < 2 > FOR RIGHT, AND"1.x"PRESS < SPACE > FOR SELECT"`. "WHITE CURSOR MOVEMENT IS ACCOMPLISHED". "BY A JOYSTICK IN CONTROL PORT #2.". "IN ADDITION, PRESSING < SHIFT  S TURN( -------------------(CP CP( 1900)D BOARD FULL, DECIDE WINNER5)N -------------------------@)X 2060T)b PW PG 7070h)l PW PG 7050)v 12);"GREEN PLAYER WINS!") 7200) 12);"WHITE PLAYER WINS!") 72S CORNER ADVANTAGES."/ "HOWEVER, A TURN OR TWO PASSED EARLY"0" "IN THE GAME SHOULD DO THE JOB, WHILE"M0, "INTRODUCING AN ELEMENT OF VARIETY FOR"j06 "EXPERTS AT THE GAME."0J "PRESS < RETURN > TO START."0T A$0^ 9700(#IFT  15!T CS P1 5500!^ CS 13 5600"h 5440"|M M 2"" M 0 5600a" CPOM,P1: CPOM1,P1: CPOM40,P1: CPOM41,P1l" 5500" LOOK RIGHT & DOWN" -----------------"M 82"CS (C PO M) 15" CSG OPEN15,8,15,"S0:COMAL 64 BOOT":CLOSE15:SAVE "0:COMAL 64 BOOT",8c ""; : CLEAR SCREEN 53281,0: BACKGROUND BLACK 53280,0: BORDER BLACK ""; : PENCOLOR GREEN A1 90# 15,8,15,"U;"(15,D1,A$,D2,D3 0 6200 & CPOM,P1: CPOM1,P1: CPOM40,P1: CPOM41,P1& 6100'&$ LOOK LEFT7&. ---------@&8M 2Z&BCS (C PO M) 15n&L CS P1 6400&V CS 13 6400&`M M 2&jCS (C PO M) 15&t CS P1 6300&~" PLEASE WAIT WHILE COMAL 0.14 IS LOADED ";. x\ "TUTORIAL: FOUNDATIONS ... WITH COMAL" "DOCUMENTATION: COMAL HANDBOOK "NEWSLETTER: COMAL TODAY " AVAILABLE FROM: " ""; : PENCOLOR YELLOW$ 00) 17);"TIE GAME") 7200) 17);"SHUT-OUT" * I 1 500: * 7000(*  I 1 500: 3** 2060U*4:: "ANOTHER GAME (Y OR N)"^*> K$r*H K$ "Y" 970*R K$ "N" 9000*\ 7210*8 COMMENTS AND INSTRUCTIONS*B -T NUMBER", "OF PIECES ON THE BOARD WINS."-  "TO CONTINUE, PLEASE PRESS < RETURN >"- A$K- "GREEN CURSOR MOVEMENT IS ACCOMPLISHED"u-2 "BY A JOYSTICK IN CONTROL PORT #1,"-<"OR BY THE FOLLOWING KEYS:"-P "PRESS < 1 > FOR UP" P1 5800" CS 13 5800"M M 82#CS (C PO M) 15## CS P1 57007#& CS 13 5800B#0 5640O#DM M 82a#N M 0 5800#X CPOM,P1: CPOM1,P1: CPOM40,P1: CPOM41,P1#b 5700# LOOK DOWN# ------P >". "ALLOWS A PLAYER PASS.". "CURSOR COLOR INDICATES"/"WHICH PLAYER'S TURN IT IS."=/ "PRESS < RETURN > TO CONTINUE."F/ A$p/ "THIS IS STRICTLY A TWO- PLAYER"/ "GAME, WITH NO PROVISION FOR GIVING"/ "WEAKER PLAYER CS 13 6400& 6240&M M 2& M 0 64008' CPOM,P1: CPOM1,P1: CPOM40,P1: CPOM41,P1C' 6300X' LOOK LEFT & UPm' --------------w'M 82' CS (C PO M) 15' CS P1 6600' CS 13 6600'(M " COMAL PROGRAMS CAN ONLY BE EXECUTED"M " AFTER THE LANGUAGE HAS BEEN LOADED."j ""; : PENCOLOR CYAN "COMAL PROGRAMS ON THIS DISK ARE LOADED:"  " LOAD "(34)"NAME"(34)  " RUN"  "------------------------*L "THIS IS A REVERSI GAME......."+j "THE GAME BOARD IS THE"9+t "STANDARD 8 BY 8 GRID."_+ "THE OBJECT OF THE GAME IS TO"+ "REVERSE THE COLOR OF YOUR"+ "OPPONENT'S PIECES, AND SO"+ "CONVERTING TH & ) A$"OK" 15,"U:":15,D1,A$,D2,D3R + "1571"(A$,14,4)15,"U0>M0":15:70Z 215y < "1541"(A$,14,4) 100 F"LOADING ML.SIZZLE P A0 A1:"ML.SIZZLE",8,1 Z 49152: d "";( n ---#M 80#CS (C PO M) 15$ CS P1 6000$ CS 13 6000$$M M 80>$CS (C PO M) 15R$ CS P1 5900f$ CS 13 6000q$ 5840~$ M M 80$ M 0 6000$  CPOM,P1: CPOM1,P1: CPOM40,P1: CP " COMAL USERS GROUP, U.S.A., LIMITED "T " 6041 MONONA DRIVE "w " MADISON, WI 53716 "SEND SELF ADDRESSED STAMPED ENVELOPE" "OR CALL 608-222-4432 FOR MORE INFO." "" : PENCOLOR WHITE  M 82'2CS (C PO M) 15'< CS P1 6500(F CS 13 6600(P 6440 (dM M 822(n M 0 6600q(x CPOM,P1: CPOM1,P1: CPOM40,P1: CPOM41,P1|( 6500( ALL CHANGES DONE( ----------------( OTHER PLAYER' CURSOR POSITION DISPLAY, -----------------------CCO (C PO) 15W CO 13 2280jRC 13: 2310} CP 0 2300RC 5: 2310RC 1 C PO, RC: C PO 1, RC: C PO 40, RC: C PO 41, RC I 1 500: 3990 LOOK DOWN & RIGHT -----------------M 824CS (C PO M) 15H CS P1 4150\ CS 13 4150iM M 82CS (C PO M) 15 CS P1 5000 CS P2 4090" LOOK DOWN, ---------6M 80@ PO PO 82: MOVE LEFT/UP$ (B PO) 207 2250@ (B PO) 213 2250W PO PO 82: 2250x PO PO 78: MOVE LEFT/DOWN (B PO) 207 2250 (B PO) 213 2250 PO PO 78: 2250 PO PO 78: MOVE RIGHT/UP E" I 1 500:  2060# (153);13);" ";(158). 2250Jt LEGIT POSITION CHOICEf~ --------------------- BPO,213: BPO1,201: BPO40,202: BPO41,203 CPO,P1: CPO1,P1: CPO40,P1: CPO  h B459, 202: C459, 12 r B460, 203: C460, 1O | B461, 202: C461, 5l  B462, 203: C462, 5  B499, 213: C499, 5  B500, 201: C500, 5  B501, 213: C501, 1  B502, 201: C502, 1  B539, 202: C 1000: 8 2060)B (153);12);" ";(158)4L 2250OV CHECK FOR LEGIT MOVEj` --------------------}j CP 0 3710tP1 1: P2 5: 3740~P1 5: P2 1 LOOK UP -------M 80CS (C PO  1 C PO, CO: C PO 1, CO: C PO 40, CO: C PO 41, CON$ CHECK IF PLAYER PASSESk. ----------------------t8 K$B K$ "" 2390L 2500V 2060` 14);"PLAYER PASSES"j I 1 2000: t 2060~ (153);14); CS (C PO M) 15J CS P1 4250T CS 13 4250$^M M 80>hCS (C PO M) 15Rr CS P1 5000f| CS P2 4190} LOOK DOWN & LEFT ----------------M 78CS (C PO M) 15 CS P1 4350 CS 1 (B PO) 207 2250 (B PO) 213 22506 PO PO 78: 2250X PO PO 82: MOVE RIGHT/DOWNt (B PO) 207 2250* (B PO) 213 22504 PO PO 82: 2250H PO PO 2: MOVE LEFTR (B PO) 207 2250\ 41,P1 LOOK UP -------M 80CS (C PO M) 15, CS P1 5200@ CS 13 5200MM M 80gCS (C PO M) 15{ CS P1 5130 CS 13 5200 5080 M M 80 M 0 5200 CPOM,P1: CP539, 5  B540, 203: C540, 57  B541, 202: C541, 1T  B542, 203: C542, 1j X PLAYERS' SCORES b --------------- lPG0: PW0  S 173 764 2  (BS) 213 1990 PS (CS) 15  PS 1 1980 PGPGM) 15 CS P1 3840 CS 13 3840M M 806CS (C PO M) 15J CS P1 5000^ CS P2 3780t LOOK UP & RIGHT ---------------M 78 CS (C PO M) 15 CS P1 3950( CS 13 39502M " ";(158) CP CP% CP0 2540> JO (56321): 2570O JO (56320)o INPUT FROM JOYSTICK PORTS ------------------------- JO 250 JO 122 3200 JO 249 JO 121 3250 JO 246 JO 118 33003 4350M M 78CS (C PO M) 15 CS P1 5000/ CS P2 4290? LOOK LEFTO ---------XM 2rCS (C PO M) 15 CS P1 4450 CS 13 4450&M M 20CS (C PO M) 15: CS P1 5000 (B PO) 213 2250f PO PO 2: 2250*z PO PO 80: MOVE UPF (B PO) 207 2250b (B PO) 213 2250y PO PO 80: 2250 PO PO 80: MOVE DOWN (B PO) 207 2250 (B PO) 213 2250 PO PO80: 2250OM1,P1: CPOM40,P1: CPOM41,P1 ( 5130 < LOOK UP & RIGHT/ F ---------------9 PM 78S ZCS (C PO M) 15g d CS P1 5400{ n CS 13 5400 xM M 78 CS (C PO M) 15  CS P1 5300  CS 13 5400 1: 1990 PWPW1 S 2100: ""@L4 "":y> 7);"GREEN HAS ";23);"WHITE HAS "H"":f 7);"GREEN HAS";PG;23);"WHITE HAS";PWp PG PW 64 7000z PG 0 7090 PW 0 7090M 78<CS (C PO M) 15F CS P1 5000%P CS P2 38906Z LOOK RIGHTGd ----------PnM 2jxCS (C PO M) 15~ CS P1 4050 CS 13 4050M M 2CS (C PO M) 15 CS P1 5000 CS P2  ( JO 245 JO 117 3350*2 JO 251 JO 123 3400I< JO 254 JO 126 3450hF JO 253 JO 125 3500P JO 247 JO 119 3550Z JO 239 JO 111 3600 I 1 500:  2250l MOVE CURSORv -----------D CS P2 4390N LOOK LEFT & UPX --------------bM 826lCS (C PO M) 15Jv CS P1 4530^ CS 13 4530kM M 82CS (C PO M) 15 CS P1 5000 CS P2 4490 2060 13);"SORRY, BAD MOV PO PO 2: MOVE RIGHT (B PO) 207 22507 (B PO) 213 2250M PO PO 2: 2250n PIECE PLAYED THIS POSITION  -------------------------- (B PO) 207 3690 2060$ 12); "POSITION OCCUPIED". I 1 *** MAKEWAVE.BAS ***2 0,1: 4,1: 1,1w 0: 2604,120: 15: PUT BIT MAP AT $2000, COLOR MAP AT $1C00( 216,32: SET BIT-MAP FLAG2 53265,(53265)32: ENABLE BIT-MAP MODE<BASE8192: START BIT MAP AT $2000 F *** DRAW BA@@ *** MAKEWAVE2.BAS ***3@ 0,1: 4,1: 1,1U@HPSN("0B02"):VPSN("0B04")u@( A0 A1: "PLOTWAVE.O"@2HI(4864256):LO4864HI256: ADDRESS OF 'PLOT' ROUTINE@< 4633,LO: 4634,HI: SET USR(X) POINTERS@F *** DRAW BASE LINE ***L3  n n n n  m   m  ` JJJ   Ff  )  ) 8  @   e e    m iee 8*` 70,13,32,210,255,76,180,13,32,170,13,32,228,255,76,180,13,32g^ 170,13,32,186,255,76,180,13,32,170,13,32,189,255h 76,180,13,32,170,13,32,192,255,76,180,13,32,170,13r 32,201,255,76,180,13,32,170,13,32,204,255,76,180,13,32,170 | 13,32,195, $Z"":53280,4:53281,1:646,11Ad"SELF ADDRESSED LABELS"[n"BY CHERYL PETERSON"ux"FOR AHOY! MAGAZINE" INITIALIZE VARIABLES STRING VARIABLES NOT INITIATEDLINES0:PASSES0 300 400 500 4,4,0: 4 ,76,73,13,96,32,98,13,165,211X  234,41,1,208,249,96,32,89,13,169,13,32,98,13,32,152,13,169,4  76,161,13,147,83,67,82,69,69,78,32,79,82,32,80,82,73,78,84,69 " 82,32,63,32,0,76,44,13,234,177,251,201,32,240,6,138,113,251,69% , 254,170,138,76 SE LINE ***/ PY100: PLACE Y AXIS AT MIDSCREENM Z X0 319: DRAW X AXIS[ d 170: Xx n *** DRAW SINE WAVE *** x X0 319 .5 Y(10080(X10)) 170: X 150 X0 319: DRAW X AXIS COL(X8) ROW(Y8) 4,165,253,160,0,76,13P 13,133,253,177,251,208,237,165,253,41,240,74,74,74,74,24 105,65,32,98,13,165,253,41,15,24,105,65,32,98,13,169,13,32 220,12,230,65,208,2,230,66,230,251,208,2,230,252,76,11,12 169,153,160,12,32,80,13,166,65,165 APY100:HI(Y256):LOYHI256:AZ VPSN,LO: VPSN1,HIbAd X0 319:HI(X256):LOXHI256|An HPSN,LO: HPSN1,HIAxB(C): XA *** DRAW SINE WAVE ***A X0 319 .5AHI(X256):LOXHI256A HPSN,LO: HPSN1,HI BY(ˋ (ST$)2 5701 N"ENTER POSTAL OR ZIP CODE";ZIP$I X (ZIP$)9 590O bc  PRINT ROUTINEq : NAME$  ADDRESS$  CITY$;" ";ST$;" ";ZIP$  X1 LINES   SSES   READDATA "ENTER FULL NAME--20  Y 1 PASSES  700 ' "4:4- '? , LABELFORMATe 6"HOW MANY LINES PER LABEL";LINES{ @ LINES4 310 JLINESLINES4 ^  PRINTNUMBER "HOW MANY LABELS TO PRINT";PASSES   READDATA "ENTER FULL NAME--20 %d ****************************In * *mx * REVERSI * * * * FOR C-64 * * * * *i LINEY 7* BYTEBASEROW3208COLLINE= BITT7(X 7)[ BYTE,(BYTE) (2BITT)a OR MAP AT $1C00( 216,32: SET BIT-MAP FLAG2 53265,(53265)32: ENABLE BIT-MAP MODE<BASE8192: START BIT MAP AT $2000 F *** DRAW BA_255,76,180,13,133,67,169,0,141,0,255,165,67,96M 133,67,169,0,141,1,255,165,67,96,0,0,0165,250,208,218,177 @ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32 J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320T 1b10080(X10))'BHI(Y256):LOYHI256AB VPSN,LO: VPSN1,HIPBB(C): XZB 210 A1: "PLOTWAVE.O"@2HI(4864256):LO4864HI256: ADDRESS OF 'PLOT' ROUTINE@< 4633,LO: 4634,HI: SET USR(X) POINTERS@F *** DRAW BASE LINE ***,88,12,0,0,0,0,230,251,208,2,230,252,96,170,177g 6 251,201,34,208,6,165,250,73,255,133,250,165,250,208,218,177 @ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32 J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320T 1 CHARACTERS OR LESS";NAME$-  (NAME$)20 510b "ENTER ADDRESS--40 CHARACTERS OR LESS";ADDRESS$  (ADDRESS$) 40 530 &"ENTER CITY NAME--20 CHARACTERS OR LESS";CITY$ 0 (CITY$)20 550 :"ENTER TWO CHARACTER STATE CODE";ST$ D,66,76,231,12,96,76,73,78T 69,83,58,32,0,169,247,160,12,32,80,13,169,3,133,254,32,107 13,201,83,240,6,201,80,208,245,230,254,32,98,13,169,4,166 254,160,255,32,116,13,169,0,133,65,133,66,133,250,32,125,13  32,134,13,166,254,32,143,13! * BY: ROD CARTY *E * *i * * ****************************  "":(142)  "": "INSTRUCTIONS? (Y OR N)  K$  K$ "Y" 7500  K$ "N" 930 CP 1: PO 173  BACKGROUND-  ----------C C 55296: B 1024M  ""j  53280, 13: 53281, 13s "" $ J 0 1000 . C J, 13 8 B J, 224 B J L 53281, 0 ` BOARD j ----- t "" ~:: (153)  J1  8  13);"В"<  13);"̺̺̺̺̺̺̺̺"D  JN  ""i , SET UP CENTER PIECES 6 -------------------- @ B419, 213: C419, 1 J B420, 201: C420, 1 T B421, 213: C421, 5 ^ B422, 201: C422, 5 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/fLOADERd53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1984, ION INTERNATIONAL INC. "}A5427254296:A,0:/  A":54276,17:54276,16:015,8,15:15,A,A$:15:A$:I GET FOUR DIGIT HEXX:B$;:T$p(T$)4380:430A14:A$(T$,A,1):450:T(A)16380:430:B(T(1)4096)(T(2)256)(T(3)16)T(4):A$"@"A$"G"T(A)(A$)5 "d X 49152 49488:Y:SSY:n Y0 Y255 130Kx X,Y::140"**ERROR**":"PLEASE CHECK LINE"(64)256(63): S44677 "**ERROR**":"PLEASE CHECK DATA LINES 170-500":"":53280,0:53281,6:646,1 " C-6  A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:,230,251,208,2,2308 252,177,251,32,205,189,169,58,32,210a 255,169,0,133,253,230,254,32,37,193 234,165,253,160,0,76,13,193,133,253 177,251,208,237,165,253,41,240,74,74 74,74,24,105,65,32,210,255,165,253  41,15,24,105,65,32,210,:A$"":"FILENAME";A$SA$""590+X:"TAPE OR DISK?":Q]B$:T1:B$"D"T8:A$"@0:"A$:bbB$"T"605hglB$"CONTINUE FROM ADDRESS":430:ADBq475:B0620v:195{B$"BEGIN SCAN AT ADDRESS":430:ADB475:B063580,208,245,230,254,32,210,255,169,4E h166,254,160,255,32,186,255,169,0,133l r63,133,64,133,2,32,189,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,54272,4:54273,48:54277,0:54278,249:54296,15H A680699:B:A,B:s 169,251,166,253,164,254,32,216,255,96 169,0,166,251,164,252,32,213,255,96 B$"STARTING ADDRESS IN HEX":430:ADB:SRB 480:B0150 251,T(4)T(3)16:252,T(h255,133,2,165,2,208,218,177,251,201?32,208,212,198,254,76,29,193,0,169X13,76,210,255,0,0,089,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,220 O LAST LINE' T" ":TAD((AD256)256)M YB0A1:TTA%(B):T255TT255S ^k cA%(A)T375:195 hB0A1:ADB,A%(B): m:"YOU ARE FINISHED!":535 r BELL AND ERROR MESSAGES w:"LINE ENTERED INCORRECTLY"::415|:4d%: X 3072 3520: Y: X,Y:SSY:110::&}n&: S49057 "**ERROR**":"PLEASE CHECK DATA LINES 140-390":x" C-128 BUG REPELLENT INSTALLED"" TYPE SYS 3072 TO ACTIVATE" 32,161,12,165,45,133,251,165,46,133,252,160,5:A$"/"A$":"T(A)(A$)48:$T(A)16:7 ADRESS CHECKFADEN385YBSRBEN390B256(B40960B49152)B53247395 ADDRESS TO HEXACAD:A4096:520A256:520A16:520A1:520T(AC4 BUG REPELLENT INSTALLED "H 32,161,192,165,43,133,251,165,44,133q 252,160,0,132,254,32,37,193,234,177 251,208,3,76,138,192,230,251,208,2 230,252,76,43,192,76,73,78,69,32 35,32,0,169,35,160,192,32,30,171 160,0,177,251,1702)T(1)16/ B$"ENDING ADDRESS IN HEX":430:ENBA 470:B0150h 254,T(2)T(1)16:BT(4)1T(3)16 B255BB255:254,(254)1 253,B: GET HEX LINE 495:": ";:A08 B01:250 B A%(A)T(1)T(0)16:ADA1255,169,13, "32,220,192,230,63,208,2,230,64,230U ,251,208,2,230,252,76,11,192,169,153} 6160,192,32,30,171,166,63,165,64,76 @231,192,96,76,73,78,69,83,58,32 J0,169,247,160,192,32,30,171,169,3 T133,254,32,228,255,201,83,240,6,201 ^"INPUT A 4 DIGIT HEX VALUE!":415F:"ENDING IS LESS THAN STARTING!":B0:415|:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415:"NOT ZERO PAGE OR ROM!":B0:415"?ERROR IN SAVE":415"?ERROR IN LOAD":415::"END OF ML ARE 4,76,195,255,147,83,67/ 82,69,69,78,32,79,82,32,80,82R  73,78,84,69,82,32,63,32,0,76{ 44,193,234,177,251,201,32,240,6,138 113,251,69,254,170,138,76,88,192,0 0,0,0,230,251,208,2,230,252,96 170,177,251,201,34,208,6,165,2,73A):T9A$(T55):530 A$(T48)*A$;:ACACAT:AA$"**SAVE**":585W1,T,1,A$:680:1c!ST0v&400:T8420+5350A$"**LOAD**":58551,T,0,A$:690:1:ST64195?405:T8420D560I" ":14)A$N0,132,254,32,37N 13,234,177,251,208,3,76,138,12,230,251,208,2,230,252,76,43 12,76,73,78,69,32,35,32,0,169,35,160,12,32,80,13,160,0,177 251,170,230,251,208,2,230,252,177,251,32,89,13,169,58,32,98 13,169,0,133,253,230,254,32,37,13,23EN340 " ";- A:TAD((AD256)256):" "Q A07:TTA%(A):T255TT255W o A%(8)T375:195 A07:ADA,A%(A)::ADAD8:195 GET HEX INPUT A$:A$""250 A$(20)305 A$(133)535 A$(134)560A 4M HAHOY! AUGUST862ABOOTSG64 UG EPSG 128 UG EPSGHE NTEGRATORSGRINT ORMATTERSGRINT ORMATTER2SGIMPLE CROLLERSGATH YSTERYFREE'FORM'DBSGKELLYS'BEACH SG----------------LANKSPEED DI-64! DDLOGO%FASTBOOT V2LAP OOTATH YSTERY2SG LEGANT NCODERSGNCODER OMALSGAKEWAVE.128SGAKEWAVE2.128SGPLOTWAVE.OSGABELSSG EVERSI)ISK AT. OOTETEOR UN OOT LOADER DIR 1#BOOT2 FLAP! SGTEP N TSGMETEOR RUNSGIGHLIGHTSGDISK CATALOGERSGRIM SGOMAL 64 OOTSGCOMAL 64 0.14 COMALERRORSSG ML.SIZZLESG HISG MENUSG NAMES.DATSG >---ARTICLES---<SG COMAL ARTICLE$SG DIR 1' FONT EDITOR.TXTSGINFO.TXTSGKELLYS BEACH.TXTSG>--DATA FILES--<SG>-DO NOT LOAD--<SGBEACHNAMES.DATSG BEACHSPRITES.DATSGBEACHVERBS.DATLOADERSGOBJECTTABLE.DATSGSET.ART DECO.B SG SET.STANDARD.B SGVERBTABLE.DATSG>-----COMAL----<SG>---PROGRAMS---<SGFONT'EDITOR,# "":53280,6:53281,1:646,0> THE INTEGRATOR[ RUPERT REPORT #32a(|2FALSE0 : TRUE FALSE<C128FALSE : DS$"" C128TRUEFN5 : INITIAL NUMBER OF INTERVALSP 190 : DEFINE FUNCTION AND SPECIFY LIMITS"#"":53280,6:53281,1:646,0N5)"COMMODARES.....PRINT FORMATTER"` SOLUTION BYv JAMES KILLMAN| V : V0 G$((V)):X(G$)F$(V.005): (F$,X3)( 10SCROLLER,MATH MYSTERY,MATH MYSTERY25  ELEG20ROW  LNE7 0 1#$A$A$((MLNE))5. LNE : ROWP8222,E$"K"(N1)(N2)A$bBA$"" : COLuL222 : 222 :Y INTERVALS (0 TO STOP)";N 0 N1 FINITRUE : 580 :DX(X1X0)N D N =+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=#"":53280,6:53281,1:646,0P5)"COMMODARES....PRINT FORMATTER 2"b SOLUTION BYw JIM SPEERS} "VALUE, NUMBER OF DECIMAL PLACES";V,LV$((V10L.5)) 32(V$)L) (V$,(V$)L) "." (V$,L)10 ELEG S0SUM : SUM0 r KK.5 N% |XX0DXKK1 YA(X)? AREAYDXP SUMSUMAREAc  C128 460 XU12XDX2 : YU170Y XL10XDX2 : YL170  1,XU,YU,XL,YL,0,1    = SHOW RESULTS =  N00 C128 510 #"":53280,6:53281,1:646,0L6)"COMMODARES...SIMPLE SCROLLER"^ SOLUTION BYq A.J.REIDw W40 : N1 W2 :S$S$" .": M$ : M$S$M$S$ N1 (M$)W: (145)(M$,N,W); J1 50::: 205  ELEG Z = = = = = MAIN LOOP = = = = =X d C128 260 : PLOT FUNCTION - (C128 ONLY)x n 350 : INTEGRATE FUNCTION x 480 : SHOW RESULTS 530 : GET # OF INTERVALS FINI 100 - CHANGE NEXT LINE FOR DESIRED DEFAUL#"":53280,6:53281,1:646,0G6)"COMMODARES...MATH MYSTERY"Y SOLUTION BYr SCOTT SPROUSEx X1234567 9999999: TTX11: TT(TT) 75: X$(X): I3 8#: (X$,I,1)"0" 75(: I  #"":53280,6:53281,1:646,0H6)"COMMADARES...MATH MYSTERY2"Z SOLUTION BYq RON JORDANw A1 : N7 : C(N1) JA 8:P$((A),2)((J1),2) K19:R$((K),1): R$(P$,1) R$(P$,1) 50(S$S$R$ 2 K7 <IN1 : V(S$): V11(V11) S$,:CTCT1\ FS$(S$,I1)(S$,NI)(S$,I,1)} PC(I)C(I)1: C(I)NI 60 ZC(I)0: I1 II1: 70 d "COUNT =" CT:S$"" n J:AA1: A9 20SG REVERSI)"INTERVALS :" N0 " AREA :" S08 "INTERVALS :" N " AREA :" SUM> e  = UPDATE NUMBER OF INTERVALS =n N0N &"HOW MANY INTERVALS (0 TO STOP)";N 0 N1 FINITRUE : 580 :DX(X1X0)N D N =+=+=+=+=+=+=+=+=+=+=+=+=+=+=+= #"":53280,6:53281,1:646,0J5)"COMMODARES...ELEGANT ENCODER"\ SOLUTION BYu FRANK T. SMITH{ M(25)"INPUT WORD TO BE ENCODED" I$: I$"" 30( I$(13) 702 I$"@" I$"\" 30 < I$; : NN1T GRAPHICS MODE - C128 5$ J = = = = = = = = = = = = = = = =o = DEFINE FUNCTION & LIMITS = A(X) (RRXX) R150 : CIRCLE OF RADIUS 150 X00 : X1R : INTEGRATION LIMITS SS1 : GRAPH STEP SIZE : M(N)(I$)64 : 30> F A1 N: B1 N: AB TTM(B)F P Bn ZC$C$(T(T29)2964) : T0 : A d:"CODED WORD IS ";C$:::N0:C$"": 20PLOTWAVE.OSGLABELSSG REVERSI)# COMMODARES PROBLEM #284:? ELEGANT ENCODERR SOLUTI BYl PAUL CLAESSEN COMAL SOLUTI  A$V:0 I:1 (A$) ( V:V(D(A$(I:I))64)2 I< I:1 (A$)  F TV:V(D(A$(6)"      ((0)16):!X139:A(X)::890:X1228812350:E:X,E:W890:X1235212414:E:X,E::890:X1241612478E:X,E::890:56334,(56334)254:1,(1)251Q12:Q22:980:Q15:Q25:980:Q19:Q29:980:Q115:Q215980:Q119:Q220:980:X8888887:E:14336X,E::2040,192:V39,7@V40,15:V28,2:V37,9:V38,7:71018,209,14,24,15,210,18,209,14,24,15,210,16,195,12,143,10,143,12,143,1148,10,143,10,143,9,104,10,143,12,143,14,24,11,48,9,104,7,233,9,104,89720,24,30,121,153,158,60,153,60,94,60L.122,103,126,230,99,255,198,111,0,246,111,60,246,97,153,134,177,231,1418104,255,22,176,126,13,104,0,22,176,0,13,104,0,22,0,0,0,0,0,0,192,0,0B192,0,0,213,80,0,213,96,0,21,80,0,21,96,0,21,80,0,21,96,0,21,8CS1:CS2CS00 <53272,((53272)240)B(CS):^ F50:JS((56320)15):JS62041,193:120w PJS52041,193:140 ZJS92041,194:160 dJS102041,194:180 n250 x(B2117)32250 B2B2117:T3T324:T4T424:200 (B2123:230:SCSC25:240< S1,HI:S,LO:S4,W:DE1DU::S4,W1:n D$(0)5)SC:B2,96:B2C,0:G2G21:G2G1430 50:DE1100::DI((0)4)1:DI260,280,300,320 (B1117)3270 B1B1117:T1T124:T2T224:340 (B1123)3270 "C,7:70B K1:W33:DU400:HI3:LO35:230:HI5:LO71:230:HI4:LO48:230z DE11000::LILI1:D$(0)37)LI:V21,0:LI0630 B1A1:B2A2:T1S1:T2S2:T3S3:T4S4:V,T1:V1,T2:V2,T3 V3,T4:2041,193:V21,3:70 DE11500::V21,0:1000:PPPP1:PP4PP1$PP510,530,550^N11:N218:A11773:A21275:S1248:S2184:S3104:S488T9:P121:P223:P335:P423:P521:P637:570N119:N231:A11770:A21278:S1224:S2184:S3128:S488T12:P115:P217:P325:P417:P51(C$,5,P6):7bA(N1),96:XN11 N2:A(X),88:A(X)C,7::G1N2N1:G20al""D$(0)"TEBOS"SC;32)"BOOTS"LI:410qvDE1500:"":53281,5:CS0:60:D$(9)15)"GAME OVER"12)"FINAL SCORE:"SC:SCHSHSSC13)"HIGH SCORE:"HSD$()6)"";:X129:" ";::)6)" ";:X127:" ";::" "\6)"      "6)"       "6)"      " 6)"         "5H6)"        "jR6)"       "\6)" ";:X127:" ";::" "f6)"";:X129:" ";:pW17:DU200:X122:HI,LO:230::900z53280,Q132:Q232:980:Q148:Q257:980A980:Q177:Q278:980:Q196:Q296:980:Q1106:Q2106:980Q1111:Q2111:980:Q1116:Q2116:980:Q1119:Q2119:980:Q1160Q2160:980:1,(1)4:56334,(56334)1:990XQ18Q287:14336X,(53248X):: ,1275,1281,1287,1293,1398,1404,1410,1515,1521,1527,1533,1638,1644j1650,1755,1761,1767,1773,1278,1284,1290,1401,1407,1518,1524,1530,16411647,1758,1764,1770,1281,1287,1404,1521,1527,1644,1761,1767,48,255,12$61,255,188,15,255,240,30,60,120,1 0,0,21,L96,0,21,80,0,21,88,0,21,85,0,21,85,85,21,85,85,21,125,85,63,255,255,63xV195,255,63,192,0,0,0,0,0,0,0,0,0,3,0,0,3,0,5,87,0,9,87,0,5,84,0,9,84,0`5,84,0,9,84,0,5,84,0,9,84,0,5,84,0,37,84,0,85,84,85,85,84,85,85,84,85j125,84,255,255, ƙ>Ґ>?Ǚ@?Ǚ?Ǚ?* ?!Щ Щ &Щ%Щ  S '   ۩۩ۈřԈȌЩЩ'Щ-x ܩЍЩЩčX é3ũ(И ŝЈ팓Ȍń Ԣ QÊŘH h٭Р)) JňڭJ<Э)AL…)@$J<<i ũ $ĥ)X@Ԣ QÎŎ· :à) 9ōЈ)>ۭ) ULL L+8Ũ `xِ LLĠx0x)<ũŠ )<<`Ά) ԢB Ԣ  E  Qå@Т LЩ0_S8Ū)Ŋ0<GNLĭ O' ީ `3 3QB * SCORE 000000 SHIPS 3 HIGH 000000 POWERPRESS ANY KEY       &Uy@ h)8+U#;(). Ҡ6 *** HIGHLIGHT *** BUCK CHILDRESS * 5/14/86 ***d *** P.O. BOX 13575, SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J53000:L110:C11((19)31)L:2B0C:A:A0A25580<JB,A:XXA:B:CHECKSUM FXCHECK141,33,208,169,62,162,207,160,1,1524Y 132,252,140,244,207,136,140,245,207,120,141,20,1984 3,142,21,3,88,96,165,209,133,253,165,210,1488 24,105,212,133,254,165,251,166,203,134,251,224,2122 3,144,55,224,7,176,51,197,251,240,44,165,1557/,15324 2,208,236,165,209,197,252,240,22,133,252,173,2089f 245,207,162,0,157,0,216,157,0,217,157,0,1518 218,157,0,219,232,208,241,174,245,207,160,255,2316 200,192,40,176,19,177,209,16,3,56,233,128,1449 201,32,240,240,201,48,144,7,20 :G(147)"LOADING AND CHECKING DATA LINE:":J50000:L80:C11Y(19)31)L:z(B0C:A:JB,A:XXA:B:A2XA"ERROR IN DATA LINE:"L:<X0:JJ12:LL10:L58030F"DATA OK AND LOADED..."::"SYS 50000 TO ACTIVATE...":3 40,196,1888= 174,177,197,208,57,162,71,32,252,196,32,228,1786s 255,240,251,76,80,195,32,210,255,201,78,208,2081 8,169,79,32,210,255,76,188,195,162,24,32,1430 252,196,173,176,197,24,109,177,197,141,177,197,2016 162,27,173,176,197,20G252,255,195,252,0,3,252,0,0,0,0,0,0,60,24,102,102,24,60t66,10211,0,246,111,60,246,97,153,134,177,231,1418104,255,22,176,126,13,104,0,22,176,0,13,104,0,22,0,0,0,0,0,0,192,0,0B192,0,0,213,80,0,213,96,0,21,80,0,21,96,0,21,80,0,21,96,0,21,8Щ+Щ Щ à(Т QÈЭЭL+ܪ))m4°ЬŊ) I JJ}ōŘ} Ũmɗ ɰЍТť,+.Щ L  [ :âЭ)>. @5IJ8Ŋ!ŢНŐ ` hhL¬ŮŽQ`Ţ`8-H)JhJJJi(8(JJJie8$ōťiԅBԎ `zH8xi:0xhz :ŎЍLŭ}ɺ 8ŝL)ŝݢ}ŝŽ}ŝŬ8ŝŽŝŊ řнřЭ=Ũ)Ũ )L1L2Wecr߿ @[`jx .*  b0@# ! I 6߀ wpUx*WàX ?HTU-@ P ը %T߿ @SUM90" P"ERROR IN DATA LINE:"L:B ZX0:JJ12:LL10:L30040 d"DATA OK AND LOADED..."::"SYS 53000 TO ACTIVATE...": n173,20,3,174,21,3,224,207,240,43,141,240,1489 x207,142,241,207,169,14,141,243,207,141,246,207,2165 141,32,208, 199,208,40,165,212,208,36,165,216,208,32,189,1878c 240,207,168,200,173,141,2,201,1,208,2,136,1679 136,152,157,240,207,160,0,224,3,240,5,200,1724 224,6,208,31,153,32,208,108,240,207,173,0,1590 2,240,7,165,204,208,244,141,0,2,173,146w1,58,176,3,1551: 174,244,207,138,141,134,2,164,213,48,5,145,1615i "253,136,16,251,108,240,207,0,0,0,0,0,1211,157,240,207,160,0,224,3,240,5,200,1724 224,6,208,31,153,32,208,108,240,207,173,0,1590 2,240,7,165,204,208,244,141,0,2,173,146 P32,220,196,141,176,197,141,177,197,162,10,238,1887g Z176,197,32,252,196,224,48,176,5,162,61,32,1561 d252,196,32,225,255,208,3,76,220,196,32,228,1923 n255,201,20,240,215,201,78,240,4,201,89,208,1952 x233,174,176,197,224,3,144,22,201,78,2 1,1,240,150,162,44,76,1609I 91,195,169,1,162,8,133,251,133,253,134,252,1782 134,254,32,220,196,160,178,153,0,197,200,208,1932 250,165,253,166,254,133,251,134,252,32,213,196,2299 177,251,208,3,76,220,196,32,213,196,177,251,2000% 170 ,1754/ 8,141,178,197,169,58,76,83,196,224,58,208,1596d 12,174,180,197,240,7,169,20,32,210,255,169,1665 "143,141,178,197,76,142,196,141,179,197,201,58,1849 ,240,3,141,180,197,201,128,144,39,166,212,208,1859 635,56,233,127,170,160,255,2 ,165,251,166,252,133,253,134,254,2202Mr76,214,195,173,182,197,240,5,162,137,76,252,1909|196,162,0,32,252,196,169,19,141,119,2,169,145713,141,120,2,141,121,2,141,122,2,169,4,978133,198,76,49,168,230,251,208,2,230,252,96,189332,6 4,69,32,32,83,80,65,67,69,83,0,13,677@13,68,69,76,69,84,69,32,82,69,77,65,773l82,75,83,0,13,13,18,32,32,65,82,69,56432,89,79,85,32,83,85,82,69,63,32,40,77189,47,78,41,32,32,0,13,13,89,79,85,59832,77,85,83,84,32,65,78,83,87,69,0,0,0,0,0,0,3495,67,69,83,0,13,677@13,68,69,76,69,84,69,32,82,69,77,65,773l82,75,83,0,13,13,18,32,32,65,82,69,56432,89,79,85,32,83,85,82,69,63,32,40,77189,47,78,41,32,32,0,13,13,89,79,85,59832,77,85,83,84,32,65,78,83,87,69,  (2063)L/ABSANDATNAUTOBASICCASECHAINCHRCLOSECLOSEDCONCOSDATADEBUGDELDIMDIVDOELIFELSEENDENDCASEENDIFENDPROCENDWHILEENTEREODEOFESCEXECEXPFALSEFORGOTOIFININPUTINTLABELLENLETLISTLOADLOGMODNEWENDFORN//!:=:+:-:;++--&.(),*/^<<=<>=>>=# SYSSETEXECSETMSGRETURNFUNCENDFUNCNULLPASSDELETE SETGRAPHICSETTEXTFRAMEPLOTPENCOLOR BACKGROUNDPLOTTEXTCLEARDEFINEIDENTIFY SPRITECOLOR SPRITEPOS SPRITESIZESPRITECOLLISION DAT ; % ; ; ;; ;;; ;; ; ; ; ; $$  ;; ; ; Q2Q$CDADCQ                                      ,32,213,196,177,251,32,205,189,169,32,32,1698Y 210,255,32,213,196,162,0,161,251,208,3,76,1767 148,196,174,178,197,224,143,240,55,166,212,208,2141 54,174,177,197,224,2,240,4,201,32,240,37,1582 224,2,144,39,201,143,208,35,174,179,197,20802,240,8,200,185,1871>@158,160,16,250,48,245,200,185,158,160,48,9,1637tJ32,234,196,32,210,255,76,118,196,56,233,128,1766T32,234,196,32,210,255,32,213,196,76,9,196,1681^32,225,255,240,67,32,223,196,32,213,196,173,1884h178,197,208,118,229,169,0,133,198,133,199,133,212,133,1639S216,96,174,181,197,240,3,142,182,197,166,211,2005224,79,144,3,142,181,197,96,189,8,197,240,1700250,32,210,255,232,76,252,196,13,83,89,83,177153,48,49,51,52,0,13,13,68,69,76,69,561882,85732,89,69,83,32,84,79,32,65,84,32,76,757L69,65,83,84,13,79,78,69,32,80,82,79,813y77,80,84,46,46,46,46,46,32,40,80,82,705&69,83,83,32,65,78,89,32,75,69,89,41,80500,13,13,18,76,73,78,69,32,84,79,79,614:32,76,79,78,71,13,  ` L L-|COMALERRORSKL K, Lɠ`L KL  0LNKx) ax)xL LLLʩ 0e HH`Lx x`L̠ 6~̠ ׻L80 ̠ }̠ ׻LOTOFOPENORORD OTHERWISEOUTPUTPRINTPROCREADREFREMRENUMREPEATRESTORERNDRUNSAVESELECTSGNSINSIZESPCSQRSTATUSSTEPSTOPTABTANTHENTIMETOTRAPTRUEUNTILUSINGWHENWHILEWRITEZONEEDITCATAPPENDRANDOMUNITFILEPOKEPEEKACOLLISION HIDESPRITEKEY SPRITEBACKMOVETODRAWTOGETCOLORFILLFORWARDSETXYLEFT SETHEADINGPRIORITYPENUPPENDOWNBORDERRIGHTBACK SPLITSCREEN SHOWTURTLE TURTLESIZENEXTLINEFEED FULLSCREEN HIDETURTLEHOME;; ; ;  ;;; ;;  ; ; Qa000000H8JKL%\]MND6OPR&79ISVWXY^EZ[CE' )!'$#"*.2,04                                                       `LK  5 6x)x 0x x x)xa +  L: X6 6#(H(H` 13 3 ccfL'52 5308h0 d3֥ХʩPL)7и3JЭ2M ixM LitM  L*c /L Jid /uf / LlgɀЩ/` a L)h )M j 6)!6 "6L) dLim X d )M L'i XL)n XL~o  d )L)p,1 d c 1pd8ce1  X/ sLJr :  ) I )  6 6 RL) L! d c dL'  XL) XL!6) V/  cFfB8c1i  0 s- )k )0Mu LptL' 11v ) L0M֥/ /u /m@/o/ `/M  L8!a /8  L8!bL'/  5* uL ɀߩLk  ) 5 5JL'i u LZ!ɀ穳,  )L)  /1 )/ 5 5/"kJ JL!VZ[, )  ]  ),L!  L'    )   L) )  )L! )L! k bб #   a L)  L) k  *L#, k a* L*L),3  *  e3 k0u bC `L `Lx xL L 0eL80 Lx)8 L/ 8 #̠  LR 6~ ̠ ׻ x)x`` [ ~de```r`cLiJuiv ,LC L<= ,hL4L  ) )ʩ 0+  e+gHH`L'<,L  L ޥL i 0i  L 8cL      5){Le   e L8`  L  J` 2L s  q   о 2L  Jii+  ,   , 5)+i+{8&,L, ,+ , `5)L   Jh `G   J LL*   ~ ) (.3?Qn,:s{,225+ FL0 ~ )+  +HH` LL*L L;Zds  `{M 8M`8LF8LL3 J  ` - L  A0 Q0+ >I+ʆӥэҍ 8(Ӱ+wx+ƥ   9  ,0LERROR  ^ `6)-`H6)$H h `7,8,9,6L Fɀ`6)` Lڭ  `   LuЪ`LLg/J0/ JE0)L*/ e/e0i: 31B 1l LN )L) )FL!/_  ) bS\ L*kL'b     L!l g  )L&  ˩ f L&uLlɀK' sL' tL' cfL'8ce0 s,ui 0  t  L* 0 /MuLt/M ɀ L' |{L! d} c,L! d 8ci  ޥ6),) c dL'  X h|L' )OLHɀоL!L{ d ) ЧLk d )  6 6L)ɀة d )Ω cL{  cв  L! L! d   X1 L)L' d X0 0/L*/ 0uɀéLkLsL{ d  Н /L! JCi /u L!l1,L! 6   L! L'  moL!  )L'  Ji uL! ]  )   Ʃ   \. )  %    )    9 u5 a. ) k #  L*L)  :*, S `L' b    a k 5* L) b    aй թ , ,, kL)6)L'  kL)a k)ڊL!_  e ` aL! $L) $L) $L?>ʈts,+ +u++ s ) )? sL)@ s )   ) )A sL)B s )L)D s )L)F s ) )G sL)H s ) )I &&&''''''''''''''$'((TT8{8SpHxbNG/-!D Q g6J8ۅW2ZP.8{A.b2GGG6 Dx',R](D`&&&&-@EXk 6) 6)6L:6) L)6) 6) 6/0'12a$ +/0 o/102L+oL+ a +12 `L'' ` !%Ie!e!`e e  ! `8s9tt;2s:,Ms# ȭNieL,`Q89:;<=R>?@AQBCDE7w ktjjjjjjy`  7 7) Ʃ wL2.L'.j}jtjΝjީjH) O؈HH ݬ 0C ;y y>@?A k  Щ!ЩԭL/LrxU-.~..Xɠ!Щ ТS 1B< 1詇 1 1 ,6 LC  <m % +8 +Ms`+,F,e++,` }vuu L 1`@+A, o7128/900; L5/: a7I a7J a77)7 a7h- `8i j7 7L5 o7- 7-ȑ-ȑ-L5m( 7-L8-3 7 a7-e4 h7- h7L2-L83- 8 ,8L5H 7-h`+-,..--87-.L3L8-` 2i h7L5 2L8ɂɃ/8邅3 o73- a7- 7 `8ɈɇL5 ,8L5ɊɋU8銅3 7 a7-i h7ɤ= 7-L8 8 7 `8ɧ8饠- 7 h7 h7L5ɨ( 7-L8- 8 7-L5ɩ? 7-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5ɪK/0/02 /1ȥ01 `8ɫ02/e121ȑ1L6 еuv`8u9vv0u/3)L8!`3)(3)uɜjȱucL8uv3 3uɂɃu r8Ɉ ɇ40LQ7Ɋɋ4"L8p!LQ7}!ueuuvL6/`/`+-,.7e++,,C L8+B-` )! sL)" s )   )   L* )# sL)$ s )L)% s )    )& sL)' s )   ) )( sL)) s )   ) )* sL)+ s )   )   ) ), sL)- s )   )   ) ). sL)/ s ) )0 sL)1 sL)J s ) )K sL)L s )L)N s )L)P s ) )Q sL)R s )L)S s )L)T s )L)L)#% ""$ #  # ! #$$" !#!$$"$$ " "#$#(#$$$%%%%%%%%%%%&&&&&&) ^L  0L)`  .`   `L*]< ) k'uL' ) ku ) kݩ `  ň  `/ 0 1 2 `/1 02 Du"aL' +/0 "u a +12 ` ssesstL+s`0Dsmtm@m!Am C !BL08!!  e+LO,8st@m!Am 8!!  5+@m@AmA>m>?m?0#2e4.1e3- ȥ ȑL-| 8 ȱ!)@ ȱ ! ȥ!ȩL-|,, | A9) |)K) 8ȑȑ ȱ!)@ ȱ !  ȥ! eL-|)% 8 L-|1)8LyF)8LE+ + ȱ+! +ȥ!++i,i 5+`F|Șe|}ieFȱ|ȄF > `΅υ` c͝`889  `  e8e9` 9 ~dL|e`A@ ȱ@!8@!@A A@@A`L|B` 9@ȱ + L}J.J-L| 9LG-A@ʄ! ,+Ȇ@A- Q;- F :L-| /~ ~+ LI,+-i+ȱ+1ȱ+2ȱ+/ȱ+0- e/34-,3)ȱ383)3Ȇ()1r2q B2183e3dL|8e3ed30dee2+2de 8,.+7-.7-L8`/-ȥ0-ȥ-`-ȱ-ȱ-e/ȥ/Ȧ/-ȥ0-Ȋ-`-ȱ-ȱ-Ȅ /ȥ0`8+7+,`8&&ee:e;`/u0vu r8``qu` ɬɭɮ`#.+# .+# A@ȥ-@ȥ.@ȥ/@A` 0- `/ `-. 9A!@ ! +!, ;-= /~ ~. edLnAeeedLnA8edLnA. .a }LgAa } ׻+8@vG@AA@A` ȥC`` A9)IeBBCAC @BLz9 ȥBȥCiȱi`))L|`)8`ة` A9) L|)L|)"ȱ)@ ȱ`8@A`] *q&r e(e)]`L|? `A@vGI@AL|@ ?ȱ@,ȱ@A+ G)@L|+ ,AK KLK K, + 󥐝G `M|}y)y|Iȱ|Jȱ|zȄFwF|FL`! ȱ L;8`8 !L;L| &! 98ȱ)@ ȱ` !  `L|12 )1 983ȱ4)@ 3ȱ343 L|1413Ȅ1ȱ13 ȱ3!3i4i`1L|3ȱ !  ȥ!ȩ A@ʈ21 </e!@0e A 8B@CA L| 5+ 8 ȥ!L-|, | 9 8ȥL-|L| 8 ȱ!)@ ȱ ! ȥ!ȩL-| | 98) )), |) 8ȑL|.-.-+ ȥ.+1+ ȥ2+͠+/ȱ+00/1/ д20-+ ȥ.+ -+ȥ.+ 3!4 3 4!+e2,e1i/0 5+ 3!47/e!/0e 084!!3 ! //0! !Lg>` + ȥ!y)#L|+ȱ,+- e- i 81 -ȥ/0 8ȭȥ/ȥ00/iȐ芑ȩȥ+ȥ,ȩ L-|8 0.-@+A,.J1- 8++K,G8A+@+,@,++,A'A@A8+vG+,@ F? ڠ!  q?!`+@Vȱ@Uȱ@WPSȱ@ AL|G 󥹍T 9 +` 8`A@ ?@3A L|3 `A@+ȱ@,@ȱ@-./AY B+-# ?+#-/-%+1+1/+.L|L-|,+8+@,ALGI. ?12&&2e1e/eȱ/e.> 9L-|2 1*/eȱ/e.ȱ 9L-| 8ȥȩL-|/ ȱ/! i( i)1r2q B12/e11ȱ/ , +ʩ8 1IJ 0: + > ʚL/ AT @Ae@@AAC Lz9@B`A8@`8@@A` 8 ׻` 8@A ` 8@A ` 98)V)NI B:8BBCAC  L|@BȑBB 8ȭȥ/ȥ0ȥ1ȥ2ȭȥ3ȥ4ȩ `8@A+ȱ,8,+8-ȱ.8.-`A@ =BL:B@ ?@ A` `A@ L]BA`A@ A`@i@A`A 1 L-| F? B ! `B! !LvS L-| B HBmQ  BLS  `B80 HBmQ  B L-| B  `BL-| 9aLCLX 9aL-|y) )yFFL-| yLSy)yL-|y y |LS,y))yLC+,+  8@@A@ȱ@8@@A@ȱ@L|- P 8ȥȱ3ȌL4M.j L|-8@@A@@ ȱ@!- Ѕȱ3Ȍ п 8 ȥ!31ȥ1ȥ1ȥ1ȑ1ȑ11i12. AL-|3{ L @A+Fȱ+|ȱ+}|z +ȱ+) +@AL-|1 | 98LrFA@ȱ@ȱ@ȱ@A@ 98 ȱ!  L|ȱ  :L-|,y))y |A@8)LW |FF 8eL-| 9A@8