YSTICK MOVES // !///////////////////////////// pruu|  h,iؕ  \: (m,i 2 \: <n F Po Z &G%G): d&G)* n @ x : V : l :   ':':Bh0j:h@0j@: e ':h@0j@: ':):B h*j: h@0j@:  Ԕ $ ): .h*j: 8  B):):B Lh*j l ؒv ' ( )*+P<,-CC.  ' ( )*+P<,-CC. f '( ) *+P<,-CC.  '( ) *   28@ UT:J UT:TUT:^UT:h}r|"//////////////////////////////" PLOTT //" PLOTS SPRITES //" DEFINES FIFTH SPRITE //"////////////////////////////// p{//////// p{ FG !  S 3PQ4(5P623Q4<56F3Q4P56Z34d5?6n3Q4x5?Q6}"//////////////////////////////" cVEANSWERCHECKPLOTEXTRUMNMGAMESCOUNTWAITRUMCORRECTCORRECTPERCENTR INSTRUCTIONSSCOREŝԏ|wr^íE<Ueuŝԏ|wr^I~Yiy(DɛDٛ( ) 9P >` Hp R \ f p SQUARE// z ̙ ܙ     , <  VERY GOOD!#  $$': &n! 04"#SORRY, THAT IS NOT A CORRECT MATCH!# :o Do N} X b"////////////////////////////// l" DATA // v" GIVES DATA FOR SPRITES // "////////////////////////////// TRIANGLE// :  :  :  Ė :  ږ  :   : " ,} 6 @"////////////////////////////// J" CHECK // T" CHECKS TO SEE IF CORRECT // ^" MATCH HAS BEEN MADE : Vh*j: ` C j ): th*j: ~  ):':B h*j: h0j:    +, }  !///////////////////////////// ! JOYSTICK // ! COMMANDS JO+P<,*-CC.4>}HR"//////////////////////////////\" MOVE //f" MOVES THE FIFTH SPRITE //p"//////////////////////////////z p{ ̓  ':h0j: ; ' (+, )*-CC. ' (+_, )*-CC. '(+, ) *&-CC.0 '(:+,D ) *N-CC.XUT:b  SHAPES //" RANDOMS SHAPES AND COLORS //"////////////////////////////// p{UT: 2UT:228ǐ UT: 2 28 28", UT:6 2 28 28# BY ARRY INCKLES HE FOLLOWING PROGRAMS ARE THE BEST OF THE WORK FROM MY 11TH GRADE CLASS. OST OF THE PROGRAMS ARE SELF EXPLANATORY, BUT WOULD LIKE TO COMMENT ON A FEW OF THEM. S A CULMINATION OF OUR STUDY OF GRAPHICSmhc^SPRITEXDFORXSCREENCOLORCOLOR1COLOR2COLOR3COLOR4SHAPE1USHAPE2SHAPE3SHAPE4SHAPESPLOTTSETSETUPSETUPEMATCHYJOYSTICKFPMMOIY(i2< CIRCLE//FPZdŜn՜x<í%5L \ l | $̚.ܚ8BL V)` DIAMOND//j9tP ` p      И  ( D   0 *@ 4 // h"////////////////////////////// r p){ |h,Q08i% hD*i; +, : m*ie +_, : m*i +, : n +, : o  h,i "K K u  BILL HOWARD! TOLEDO CHRISTIAN HIGH SCHOOL TOLEDO, OHIO( CARTESIAN COORDINATE SYSTEM2 DELETE "0:LINEAR GRAPH-BH"< 10-30-85F SAVE "0:LINEAR GRAPH-BH"P ORIGIN IS 40,40Z% PURPOSE IS TO PLOT A LINE OF ANYd# INPUTTED SLOPE  _1! #///////////////////////////////# STACY SOMINSKI //(# TOLEDO CHRISTIAN HIGH SCHOOL//2# TOLEDO, OHIO //<# COMPLETED MARCH 17,1986 //F#///////////////////////////////P# DELETE "0:MATCHING-SS" / 2~ :":?"K. #?". #" P:, <:6!c@*JT#///////////////////////////////^# INSTRUCTI CT THAT HAS THE SAME COLOR e`a/_& AND SHAPE IN THE BOX DIRECTLY UNDERe`a$_ THE CORRESPONDING SHAPE.e`a/_& PRESS THE FIRE BUTTON WHEN YOU HAVEe`a$_ REACHED THE CORRECT BOX.e`a_`a&_ HOW MANY GAMES OF MATCHINGe`a#_ WOULDOU HAVE MADE ef$df OUT OF ef d`a"_ CORRECT MATCH(ES)!!e`a'$ #d$:#_ YOU RECEIVED A ###%b'`a h'd,i_ PERFECT!e`amQ'Z0iÍ+_" YOU HAVE DONE A VERY GOOD JOB!e`amQ'P0i_ NOT A BAD //////R pˏ{\ $:f :p P:z <: @? K(< K(< %& <? K(< K(< %& <U?$. K(<G%x F} pwu| _Kefa]] ]}SETUPDRAWAXESGETI($'( $'6BL V"0#`5"0  ---FINISHED---( (#j t   ~  $"x Y = (* X + ((#} CONVERTER pwu|E:F (4"P10#>"x20#H"30#R}\//////////////////////f GETINPUT PROCEDURE //p//////////////////////z p{" INPUT THE SLOPE AND INTERCEPT 2"0!INPUT SLOPE (DECIMAL) THEN RETURN#  IZONTAL HATCHMARKS3((4  (: 8h &,i3  $',45  $'$6n&3  $'*405  $'&6:oD N VERTICAL HATCHMARKSXb  (:l (vh &,i3,AND Y-INTERCEPTnx MAIN PROGRAM$"`DRAW ANOTHER? (Y/N)#  hY-j$ Y3 END OF MAIN PROGRAM/////////////////// SETUP PROCEDURE ///////////////////// p{"/Z#///////////////////////////////d# SAVE "0:MATCHING-SS" //n#///////////////////////////////x# MAIN PROGRAM //#///////////////////////////////)!U  ONS //h# GIVES PLAYER DIRECTIONS //r# ASKS NUMBER OF GAMES TO PLAY//|#/////////////////////////////// p){ _e`a-_$ HELLO!! ARE YOU READY FOR A GAME?e`a_`a/_& THE OBJECT OF THE GAME IS TO PLACE e`a/_& THE OBJE YOU LIKE TO PLAY?e`a  })&#///////////////////////////////0# SCORE //:# CALCULATES NUMBER CORRECT //D# GIVES USERS PERCENT //N#///////////////////////////////X p*U{b _e`alv_`a._ YGAMEe`amQ'F0i"_ BETTER LUCK NEXT TIMEe`anQ-_$ I THINK YOU HAD BETTER TRY AGAINe`a o}* *#///////////////////////////////4# SETUP //># DEFINES FOUR SPRITES //H#/////////////////////////81B K(<L %&V <`?jt K(<~~ K(< %& <}"//////////////////////////////" SCREEN //" SETS UP GRAPHIC SCREEN //"//////////////////////NPUT PLOTGRAPHCONTINUEMICEPTSPX HORIZONTALYVERTICALSLOPE INTERCEPTLOOPCONVERTALPHNUMBZOLDROWCOLPCBC PULL'SCREENALPHANUMBERefKefa2 _dfa<  F P_Kefe`aZ d($'G&n($'::B:CURRENT PENCOLORP!): (n%H _efa$ HIS PROCEDURE CONVERTS THE RAW# DATA FROM THE PADDLE PROCEDURE! INTO ROW AND COLUMN DATA, AS AS RETURNING THE CHARACTER" ASSOCIATED WITH THE KEY WHICH WAS DEPRESSED." HE RESISTANCES OF THE UPPET$ EARNING EYSS EMO:e`a_`a(_ RY PRESSING KEYS ON THE PAD.e`a_`a_ RESS <> TO QUIT.e`a_`a_`a]  \h  * *8j_efa  ,,8$ HIS PROCEDURE SETS UP THE TEXT"" STRINGS WHICH 000COUNTEDIT8000 CORRECTYTEDIT500EDIT1500EDIT1650FINALEDIT2190DEITSTATISDEL420 SETUP'PAD FLASH'CURSOR READ'MUPPETLITREFPAGEASTEFLASHRURN LISTCKGROUNDMENURUHNSSYNTAXERRORDEKCHOICEALPHABETNUMBERSCOLORS PLOTTEXT5GETKEYLIST227L^YTES OF WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ COPYRIGHT 1983 COMAL USERS GROUP (USA) WRITTEN BY UNICOMAL APS DENMARK PERMISSION GRANTED TO USE THIS VERSION UNCHANGED, ONLKLiMLK`K MMKLrK8LKHKhK` $$$ COMMODORE 64 COMAL-80 REV. 00.14 $$$ COPYRIGHT 1983 COMAL USERS GROUP (USA) WRITTEN BY UNICOMAL APS DENMARK PERMISSION GRANTED TO USE THIS VERSION UNCHANGED, ONLy,/Y\_gjmux{#*4:Qcilu&),:@CFX[^nqtCΥ)JJJJJJeFFL KKM8}LMLL`KKL`34 څ`1FF|<3=4 څ1 $,# `223q3343432Kȱ3M r La La     $La r u: La r uLa uL $ uLa  ۄLa  ۄ La,0  0 u La,0  0 uLa0 L $ La,0LǃK8LuulB6PmoVuu]uu]uu ]uuu_R2]u9VZ[\u^uu                            K)|zȄFFz) uKL`|FFȱ|8Ro\}\fpz" HE UPPET EYS ARE READ AS A# PADDLE, MAKING USE ONLY OF THE X AND Y VALUES.plruuuu| \: T: '  ':'@$':':B'  SEEM TO VARY FROM# PAD TO PAD, SO SOME ADJUSTMENT OF THE FORMULAS FOR ROW AND& COLUMN CONVERSIONS MAY BE0 NECESSARY.:DNp]uu w{X b hF*il  'G %:vm-Z*i 'G %:n-  'G DETERMINES WHAT,$ WILL BE DISPLAYED WHEN A KEY IS6 PRESSED.@JT p[{^ h <r |  <(<}[E<0123456789    :1 !?,. +-/=  9 9Lu****** `,jL-|,j  w x.L-|)L-| 9f0j [ j ׻ xL-|Lp 3m @p x wL-| x w.Э)Э)Э) co Zo `j)8xj vjwjuj8|jzj{jyj s`j vj n kL-|}jI-vjvj1 lo1LMuLuLu 7 7)L|1H) ܅+݅,ޅ-߅.h o uj+vj,Lu/0 oЬ k/ o/ loLu/ o/0 o0 loLu0 o0}jie,,+Lu11LMuL-| 3mwjujxjvj{jyj|jzjj    co?+ ZoL-| 3m 4?H Im coh +w?H Zoh l =lЭlЍjL-| =mH Imh'L-| 9 ~dyjezj 9 ~dujevj Im sL-| 8zjzjyjzjzjvjivjujiuj ujvjvjЭuj lLt=l` \mH \mH Imh  jij8jjjjjj 9 ~dujevj kfL|vjijujij 9 ~dujevj kխuj~jvjj8jjjj~jjL-| 3m n kL-| =mj.L-| =m!L-| F?+, -!. nvj)vjzj)zj-.L-| kY l!) co ) 0+0JJJJL$o=l Zo!)`ݼlݴl Zo)`) `) `1H) ujܭvjݭyjޭzjh1`Lz9}jIe,vj+uj-yj.zj oM!)`+uj,vjLo.izj-iyj+uj,vjLo8.zj-yjLoj } pj } p0`af`wjxj j tjdL| 4?eL| 4?L`~HIih` 9a`8zjzjyjyj`8,vj,+uj+8.zj.-yj-/012+,+I+,Ii,+/000-.-I-.Ii.-1202+-/,.%+,-+.,-.12L3n/0;     = =   #$  &fsssuuuuuuttttttttttttknpxwv-mmoyy||zz}}{{~~$03hhhiiijjlQ WWs4 &((,??uCDFGLNH7SKul#MM8:::::: H!!hOI//ssskut1u=Uk"J11Tuu5 uuu9uuu>%ua"L|88P0L|aLL} io wa`03ȩM~ [LL|f0Lqaf0LLR~iaf`N ׻n ̼N [ XL~ H l~N } R~hJ `̠ ׻ kѠ ׻̠ dѠ ~`aɐfb LL|f0 a HS|EPw Fz LzCLr|6)q|e||} 7 7)2}; |: LcC| END AT STOP AT k| 1IJ 0|}y `ʩ8 1|Ȫ| 0:  >  y y 1ihh L/F|F`0XXyXXXYYYZyy[y[[[\C\b\\y\\\\\]]]Cyyyy]]]]_______```yeyy\\``yaaaaay_yyybbyiyydycyyyyaaaabbbyycydTTyTTybbybcyyyrrtu5P A\kkkkkk - 5Akw&2>JVYo).o &/a;G)HȆ zjujyjnjxj?L x y y y Xx卯jkj` co? +wL Zo`8zj evjJJJevj)LlL`j j }Š ׻ d⩠j }Ԡ ׻ 9Š k⩠j }٠ ׻ /~ ~ei .di- 9 /~ ~ei ,di+ xm`ԈʈʈԈʈIj }̠ ׻ d 8 }j }j ׻ /~ ~e,xjd+wj̠ k 09 } j }j ׻ /~ ~e.|jd-{jj xm wL-| 9j } oj ׻ xL-| 9 j } oj ׻ xL-| \mH Imh =lLvlL-|jL-|jL-| =m L-| 9 9LvlL3t=lh lLHt=lL-| Im=lЍjL-| =m& =m%L-| 8 L-| 3m nujwjvjxjyj{jzj|j p wL-| 3m nuj+vj,yj-zj.wjujxjvj{jyj|jzj+wj,xj-{j.|j pj xm wL-| 3m n oʊ 9L-| 3m `)L>r  L>r)? &0 &0 &0/0 Ѕ0/ Zovjivjujiuj+,.-.-.LqL-| 3m ?k x wL-|~jjjjjjjj@jjȍjj` \mЍj Imj=lLPLP \mЍj Imj=l F?+, Lp!@ 4? & & & & & &׻{j|j j ׻`jmjxjjm~jwjNwjnxjjmj|jjmj{jN{jn|j pj j ׻` 4?H)L|h}j rtj ?k @p jjjjj卯jkjj j ׻ wL-| 3m jL-| kL-| r 9 ~dyjezj fm k]yjjzjj 9 ~dyjezj fm k9zjijy+I8j,Iji k,4+3484330ue.e-06vje0vjuje/ujzje2zjyje1yj8,+Lnvjmvjujmujzjmzjyjmyj kLWn` 9 /~ ~dyjezj fm 9 /~ ~dujevj` k` l co}j=l)H) h`hLl)͆ ) hlLlJJJJ͆ !)!hlLl) ) hlLl@ ??@@ 00 zj) & &e & & &zj)evj)emuj}jI-vj JfJfJf ؅`ɑLL| o ķ `S`aȘ0m`     <01234567899#%&  HIJ ):j ,-. 8O}N}0ڭ`d ̠ ׻ ̠L[ ?:; ?<= ?>@?A89 )0L} ,  L, a]iYaLj aKiGaLS a8逍i 8mP0&aL+ i8逍ↆɆ&[lo\_z^Ɇ.s{j//;>lj$nfffgcyhyhyhhhhyiiycgypppypyqyqyqyqryrysysysytytytytytyuyuyyvyvyvvywyywywywwywyywwww< Z@s{چ†˅@M_ ˈj ٠ }ʠ }ʠ ׻ 9وψψوψIЈj Ԡ }Ϡ }٠ ׻ʈԈLx6 6L-|L|CCCCCDDDDEEEEGGGGGGGGGGGGGGGGGGNyNNNNNNOOOOOOOOOOOOOOOPPPPPPPPPyPPyPPQPyQQQQQQQQQQQQQyRRyRRRRRRRRRdRSSSSySTyyTTTTJyyyyyyyyyyyTbUjUVVVVVWWXNTERS AND THE MONITOR WITH THE")"-128. ") PROGRAM #18B)"ARIABLE OG. OMMODARE. HE "k)"SOLUTION TO EPTEMBER'S CHALLENGE")"TO GENERATE A CHECKLIST OF ALL ")"UNIQUE FLOATING-POINT VARIABLE RFORM DISASSEMBLIES AND HEX"" "DUMPS. "!" PROGRAM #10I" "ERMA-INE: A -64 UTILITY USED"p" "TO PROTECT PROGRAM LINES FROM """NORMAL DELETION, AS WELL AS """RENDERING PROGRAMS RUN-PROOF IF"""DESIRED."-128 SOLUTION TO THE EPTEMBER "-D"CHALLENGE. "'-E" "K-F" "]-K PROGRAM #23-L"OUNTING OMBINATIONS. OMMODARE."-M" SOLUTION TO EPTEMBER'S DARE TO"- %"YOU TO RETRIEVE A HIJACKED CARGO "&"ROCKET FROM ITS HEAVILY FORTIFIED"@&"HIDING PLACE. OYSTICK IN ORT 2 "`&"REQUIRED. "r& PROGRAM #15&"TARFIGHTER: A SIMPLE BUT "&"ENTERTAINING -64 GAME UTILIZING&/ L|0e../e--8B.BC-CAAC@BA@+ȱ@,CBi+/ȅ0+.-.//0.-0.LZ@i@AL-| 9 ~dL|eeiedA@+ȱ@,@r1ȱ@q2d)e( B.-8B.B/C-C0B@CA/0,Q@0ALC |FAL-|@ȱ@@i@AFLX@i@ALCFy y 7 7)L|L-|y))yLCFȱ|Ȫ|}|wy yL-|,, | A9)L|  8ȥȩȩ |T i-8B-B+CC,@B ")"NAMES. ")# PROGRAM #19*$"ENTENCE ISASSEMBLER. OMMODARE."I*%"OLUTION TO EPTEMBER'S DARE TO "s*&"DISPLAY EACH WORD IN A SENTENCE "*'"ALONG WITH A TOTAL COUNT OF ITS "*("LETTERS.  "" PROGRAM #11#"ADET'S OS 1.2: A MODIFIED VERSION"G#"OF THE ADET'S -128 PROGRAM"q#"PUBLISHED IN ULY HOY!, FEATURING"#"SEVERAL SIGNIFICANT IMPROVEMENTS."#" "N"CALCULATE THE NUMBER OF"-O"COMBINATIONS OF THINGS TAKEN ".P"AT A TIME. "..U PROGRAM #24X.V"UGOUT: A FAST PACED, ARCADE STYLE".W"GAME IN WHICH YOU GUIDE OUR HERO,".X"MILIN' TAN THE EXTERMINATOR, ".Y"A "&"HI-RES GRAPHICS AND MULTICOLOR "'"SPRITES. OYSTICK IN ORT 2 "A'"REQUIRED. "S' PROGRAM #16~'"ARK ORTRESS: A DOUBLE SCREEN TEXT"'"ADVENTURE FOR THE -128, REQUIRING"'"BOTH 80 AND 40 CO,+ȱ+L/c` > ?A@ȑ@ALg > G ?A@ȑ@A B  v06)O 0 G)@֩ 96 6Lh 4?+ 9 d.e-+-L-| 9 d.e--L&I 9 d!e L@HAH F?hAh@ 8 ! ! !LNa L-| 9L-| 4?A@@AL-| 9 ~Ad@ȥe@@AL-| 4?A@AL-| aL-| 8ȩ`R,W,A+ ? , q?+ q? DLb+W, 4? L|B > GL-|  "*- PROGRAM #20*."ENTENCE ISASSEMBLER 2. "#+/"OMMODARE -128. NOTHER SOLUTION"M+0"TO EPTEMBER'S CHALLENGE, THIS ONE"u+1"USING THE DYNAMIC KEYBOARD "+2"TECHNIQUE. "+7 PROGRAM #21+8"OUN# PROGRAM #12$"ORTEX: A MACHINE LANGUAGE GAME FOR".$"THE -64, REMINISCENT OF THE ARCADE"Y$"FAVORITE YRUSS. OYSTICK IN ORT 2"$"REQUIRED. "$" "$ PROGRAM #13$"ALGAINST AN ENDLESS SWARM OF GIANT ".Z"INSECTS. " "'-E" "K-F" "]-K PROGRAM #23-L"OUNTING OMBINATIONS. OMMODARE."-M" SOLUTION TO EPTEMBER'S DARE TO"-LUMN MONITORS AND"' "TWO JOYSTICKS. "#( " "5( PROGRAM #17_("OINTER RINTER: A DEMO PROGRAM "("PROVIDED IN CONNECTION WITH THIS "("MONTH'S UPERT EPORT ON THE USE OF"("POI@iAi ~d@ȥe@@iAi ~d@ȥe@@ ,@+LW@ 98)+ȱ,)@ +ȱ+,+=+, ɇ@iAi }+, ׻@iAi [YIQ@LfX+/ȱ+0ɇ0q@0/q@/+ȥ0+/@ȥ0@80@/@0+< H 8h+<<<L?j  8ȥ+L-| ]C{544ݭ Э}j  Lj)ЩhЭjЩtjjj`tj5ݭ)Э)ЩЭЍjЩtjjCING ALLS. OMMODARE. "+9"OLUTION TO EPTEMBER'S CHALLENGE "',:"TO BOUNCE A BALL OFF THE SCREEN "Q,;"EDGES AND OFF GRAPHICS CHARACTERS."u,<" ",A PROGRAM #22,B"OUNCING ALLS. OMMODARE. ",CTACOMBS: A -64 GAME THAT PLUNGES"%"THE USER INTO A MULTILEVEL NETWORK"<%"OF DARK UNDERGROUND PASSAGEWAYS IN"f%"SEARCH OF GOLD. OYSTICK IN ORT 1"%"REQUIRED. "% PROGRAM #14%"ANGER 14: A -64 GAME REQUIRING" 8 ȥ! 8 A@A!L| .@L-| 9A@-ȱ@.ȱ@/-@A .@-!L|A Bf0 X̠ ׻ .  6~Ѡ ׻̠ } /~ ̼̠ ׻Ѡ - 6~Ѡ ׻̠ [0.8e-e/* `BLe-e.Ѡ  ":I0F:LCI,14:" HH1:HGHH126 PP1:P19P8V LCLC40:LC56030LC55590_ 204 (L$,P)10)" ":I0F:LCI,14: HH1:HG11HH12 PP1:P8P19 #LCLC40:LC55590LC56030 (204 828(L$,13)882:230h4160I828935:A:I,A::. 160,0,185,0,4,153,0,192R 185,0,216,153,240,195,185,250v 4,153,250,192,185,250,216,153 234,196,185,244,5,153,244,193 185,244,217,153,228,197,185,238 6,153,238,194,185,238,2L$,6)11)"EE NSTRUCTIONS"2(L$,7)11)"UN ROGRAM "X(L$,8)11)"ANCEL INDOW "~ (L$,9)11)""PO55507:X0 I116:POI,1::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55 "~ " " PROGRAM #3H "HIS IS HOY!'S CHECKSUM PROGRAM"p "FOR THE -128 COMPUTER. SE IT " "FOR MISTAKE-PROOF MAGAZINE ASIC" "PROGRAM ENTRY. " "   P$(23)"OUNTING OMBO" P$(24)"UGOUT OOT"  Q CL819:(L$,CL)14)" ":j (L$,P)10)" ":657,128: DISABLE SHIFT/COM KEY POKE775,200:REM DISABLE LISTING POKE808,234:REM DISABLE STOP/RESTORE THREE" "PART 64 UTILITY USED TO MAKE HELP", "SCREENS OF PROGRAM INSTRUCTIONS "U "AND OTHER INFORMATION. SED WITH"y "CREENS AND . " PROGRAM #7 "CREENS : SEE CREENS " "  )4)""P"(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 18,153 222,198,200,208,205,96,160,0' 185,0,192,153,0,4,185,240K 195,153,0,216,185,250,192,153o 250,4,185,234,196,153,250,216 185,244,193,153,244,5,185,228 197,153,244,217,185,238,194,153  238,6,185,222,198,153,238,21587PO55507>X2X0HAN$(13)2140#R20807\X0882:4100EaX22160rbH3H11H16H17H20H22882:1550oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP" P$(3)"128  " PROGRAM #4 " HOY!: A POWERFUL UTILITY "F "WHICH ADDS 31 NEW COMMANDS TO -64"o ". SING IT, YOU CAN CREATE " "GRAPHICS WITH MUCH GREATER EASE. " " " PROGRAM #5L$"":PT$"=>":828U(L$,8)1)""I914:(L$,I)1)" ""(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",(L$ "  " "-  " "T  " "e  PROGRAM #8  "CREENS : SEE CREENS "  " "  " (L$,18)4)" PROGRAM SUCCESSFULLY. SE THE"TT(L$,19)4)" PRESCRIBED METHOD WHICH IS..."^(L$,20)4)" OAD ''ROGNAME'' "h(L$,21)4)" [RESS ANY EY] "r(L$,22)4)"8 200,208,205,96 ---------------------------9 ** MAX OF 33 CHRS IN LENGTH **[ ---------------------------~ I124:X15:IN$(I,X):::o PROGRAM #1p "HIS IS HOY!'S ACHINE ANGUAGE "q "ENTRY PROGRAM FOR OUR ADVUG EP." P$(4)" HOY! OOT", P$(5)" HOY! EMO"G P$(6)"CREENS ATA "b P$(7)"CREENS ATA "} P$(8)"CREENS ATA " P$(9)"IXTER" P$(10)"ERMA INE"( P$(11)"CADET'S DOS"2 P$(12)"ORTEX OOT"7 P$(13)" "àHOY! EMO: A DEMONSTRATION"& "PROGRAM OF HOY!'S POWER, "P "AVAILABLE ONLY HERE ON THE HOY! "y "DISK. " " " PROGRAM #6 "CREENS : FIRST PART OF A ,16)1)""O1(L$,23)3)" ":1000v6I15:(L$,8I)3)""IN$(H,I):@AN$:AN$""4160JAN$(13)882:204TH3H11H16H17H20H22882:1550^AN$(32 " ! " "0! " "A! PROGRAM #9j! "IXTER: A -64 UTILITY THAT WILL"! "DISPLAY ANY PROGRAM YOU CAN ACCESS"! "IN ANY FORMAT YOU DESIRE, AS WELL"! "AS PE"/|(L$,23)3)" ":1000EAN$:AN$""1670S882:225t ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)"" (ENTUROUS" r "READERS WHO LIKE TO TYPE IN THE"/s "PROGRAMS FROM OUR MAGAZINE."9t " "Jy PROGRAM #2tz "HIS IS HOY!'S CHECKSUM PROGRAM."{ "SE IT FOR MISTAKE-PROOF TYPING"| "OF HOY! MAGAZINE ASIC PROGRAMS."} " ATACOMBS"< P$(14)"ANGER 14"!F P$(15)"TARFIGHTER"<P P$(16)"DARK FORTRESS"YZ P$(17)"POINTER PRINTER"sd P$(18)"ARIABLE OG"n P$(19)"ENTENCE ISAS." P$(20)"SENTENCE DISAS." P$(21)"OUNCING ALLS" P$(22)"BOUNCING BALLS"!! ?aaa```aa`8????????0IIx Xqx>~ 8!!C? <@@@@,$LD|cL@0! A0A1:" HOY!",8,1,36864 lAHOY! JANUARY872A ?  <: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$( H PHE8@8??HI  ~~33 ``  Ƈ0 "V C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)"17)1250 AN$(145)1300/ AN$(13)2000O AN$(32)G243000:140{ AN$(32)3000:H13:LC55590:P8:150 204 "";:53280,0:53281,6 "OADING...";(34);P$(H)(34);"" "LOAD";(34);P$(H);(34);",8" 00!!$$bbHHO <FEDpp C!!!ఘ333? ``DĎb@?"4 f(L$,4)10)""U p10)" "v z10)""|  S54272:S23,0:S24,15 S6,0:S5,12:S1,70:S3,40 S4,0:S4,65:D1100::S4,0: (L$,P)10)"? "RUN": ""0  631,13: 632,13: 198,2:m "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ": >(L$,20)2)" | !! '%  K  Ƈ0eg DD((DDDD NcefRSWX?????? " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ???????xxxxxxxχ?   >> ?~ > |x????????????????8,$$, qIIqQ$$D0$y? !!!ఘ```aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?????xxx~ ?IIIIIy$$$??{3?```8``|8a`????????8I#qXHHςpHHp!!aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr????><qa'$$$'  ? ``??????8xx"6*"""HIHHH1""@|>|>><||? @@ << CD37-3 >>4@ COMMODARES PROBLEM #33-2:R@ SENTENCE DISASSEMBLERd@ SOLUTION BYw@ JIM SPEERS@ --- C-128 ---@ 842,34: 208,1:"SENTENCE";S$ : W$"" : B1AX(S$," ",B): X0 (S$,B,99)18);(S$)B1:TT(S$) @@ << CD37-6 >>4@ COMMODARES PROBLEM #33-3:M@ BOUNCING BALLS_@ SOLUTION BYu@ DAVID SHOBE{@@d"":X(1TI)@n 53280,7: 53281,2:""@x C55296 56295: C,0:@ L1 25@ 1024((1)1000),102@A24 DYDYB 190%B --- SOUND ---CB L54272 54296: L,0:RB 54296,15aB 54277,64}B 54273,17 : 54272,37B 54276,17 : T1 200:B 54276,16 : T1 50:B:@ L1 25@ 1024((1)1000),102@A @@ << CD37-7 >>4@ COMMODARES PROBLEM #33-3:M@ BOUNCING BALLS_@ SOLUTION BYt@ JIM SPEERSz@@ "SPEED (0=FAST TO 9=SLOW)";SP : SPSP50 : X(TI)@ 0,1: 4,3: 1,11: 1,1: 1,11,12,10,8: 1,11,11A A$,0,0,23,20: 1 :XX((1)120)60 : X360 XX360:Bd X0 XX360ZBn I8 2 1:A(I)A(I1):Bx (1,1)222 (X90X270) X(3602X)2:X0XX360B (1,1)50 (X90 X270) X(3602X)2:X0XX360B (1,0)21 X180 X360::0,1:"SCORE:";SC: X360 XX360:Bd X0 XX360ZBn I8 2 1:A(I)A(I1):Bx (1,1)222 (X90X270) X(3602X)2:X0XX360B (1,1)50 (X90 X270) X(3602X)2:X0XX360B (1,0)21 X180 X36  << CD37-8 >>4 COMMODARES PROBLEM #33-4:V" COUNTING COMBINATIONS"h SOLUTION BY| JIM SPEERS "ENTER N,R";N,R: NR 10N$(N) : R$(R) N0 ( NR R0 T1 : 702 (NR)R RNR# <  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 IL JI : IL <B F (H$)0 H$;25)(H$) : LELE (H$)b PS$(S$,LJ) : LJ0 20 Z 25);"" : COMMODORE-T dLE$(LE) : L2(LE$) n (34)"TOTAL CHARACTERS"(34)" =" ;27L2);LE"MOVING'HI 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) |WB1:19)"":"TOTAL"18);T:QA (S$,B,XB)18);XB : TTXB : BX1 : 20CD37-3 A0:Q100AX1:Y1"ADX1:DY17A 1024X40Y,81HA T1 10:]A 1024X40Y,32hAXXDXA (1024X40Y)102 DXDX: 400: 220A X0 X39 DXDXAYYDYA (1024X40Y)102 DYDY: 400: 250B Y0 Y   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,  A$,1: I2 8: 1,I:: 1,1KA( I1 8: I,1,I1,1: I,8521I,140:A2 I1 12:R((1)25):C((1)40): 1,C,R,"X":A<X((1)360): I2 8:A(I) 270::A(1)X:TMTI7200AF I1 8: I,21;A(I):AP ((2)1)1 110&BZSCSC 0X"C (1,0)318 X180 X360X4C TITM 220LC Z$: Z$"Q" 220yC (Z$)47 (Z$)58 SP50((Z$)48)C Z$"/" XX15: X360 XX360C Z$"Z" XX15: X0 XX360C I1 SP::A(1)X: 70D I1 8: I, 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: 54T1 : I1 R : TTNI : NN1 : I F"THERE ARE";T;"COMBINATIONS OF"t P N$;" THINGS TAKEN ";R$;" AT A TIME." Z"" : 10 ALINEAR'GRAPH MATCHING"MOVING'HI 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,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,\''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ,208,192,60,208,2388173,21,208,41,253,141,21,208,76,222,192AB*******************************tL169,128,141,11,212,169,129,141,11,212,162,151V160,4,134,253,132,254,160,5,177,253`170,232,224,58,208,19,162,48,138,145,253,192,4,208,7,23 0,4,189,250,64,157,250,4>189,244,65,157,244,5,189,238,66,157,238,6,232,224,250,208,227,96c*******************************173,139,5,201,47,208,1,96,32,133,193,162,0,189,5,208,201,30,17618,169,128,109,18,208,42,42,201,25,144,7,201,230 5,208,232,232,224,12,208<247,136,208,206,165,251,208,9,165,162,41,1,208,3,76,49,234]162,0,173,0,208,201,230,17646,189,4,208,201,25,144,33,189,4,208,201,230,176,26,189,4,208,105,20205,0,208,176,3,254,4,208,189,4,208,233,20,205,0,208, 6)250K096040JK,I:II1:I256I250%K,JLI1250:16384((1)1000),32:IRw*******************************A:A255IA:5010A1I,A:II1:5010******************************* 49152,162,1 2:2023,160%2""31)" SCORE "71)"0000000"Q<""31)" SHIPS "71)" 2 "Wd{ " S T A R" " î" " òî î " " " 0,0,0,1280,32,0,0,0,0,2,2,0+0,32,0,0,0,0,0,0,0,0G0,128,0,0,0,128,0,32,0`8,0,8,0,0,0,0,128,2~130,0,0,0,160,32,0,136,032,136,2,2,138,0,128,8,13632,128,2,0,32,0,32,32,32 0,0,32,8,0,0,0,2,0 0,128,0,0,0,32,0,8,0 00,32,0,0,32,0,0,32,0)0,32,0,0,32,0,0,32,0B0,32,0,0,32,0,0,0,0Y0,0,0,0,0,0,0,0,0p0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,08,0,128,10,154,128,2,154,00,152,0,0,152,0,2,170,01,169,0,9,169,1  30 56334,0:1,51& OF5324812288A I122881228825081P I,(IOF)W Ij &1,55:56334,1 0I1228825081228825681:I,0:I :122882538,8 D53272,29 N I25164 A:A15000 I,A:II1:910 ***  << CD37-1 >>4 COMMODARES PROBLEM #33-1:M" VARIABLE LOG"_ SOLUTION BYs JOE WRIGHTy === 1ST SOLUTION === A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789" : X1 26 : Y1 37  (A$,X,1);(A$,Y,1);" "; 201,255,208,9,141,0,208206,0,208,206,139,5Q162,0,160,251,189,248,7,201,255,208,4,152,157,248,7,160,253,232,224,1240,251,224,8,208,234,160,16,162,0,202,208,253,136,208,248160,60,140,3,208,173,30,208,96,-149,224,8,208,234,160,32,1 8,139,5j165,1,133,251,136,208,229,138,145,253,964t*******************************c~173,30,208,133,2,201,0,208,1,96,32,82,193169,253,141,21,208,162,0,165,2,41,1,240,5,169,254,157,248,7,102,2232,224,1,240,249,224,8,208,234,160,32,1 ,176,3,157,4,208,232:232,224,12,208,225,173,0,208,201,240,176,62,173,0,220,41,16,208,55{174,0,208,142,2,208,160,210,140,3,208,173,21,208,9,2,141,21$208,169,128,141,4,212,169,129,141,4,212,162,224,206,3,208.32,133,193,202,208,253,172,3 144,3,222,4,208 232,232,224,12,208,210O234,234,234,162,0,254,5,208,232,232,224,12,208,247,76,49,234t*******************************169,1,162,0,157,0,216,157,250,216,157,244,217,157,238,218232,224,250,208,239,162,0,189,0,64,157, 3,160,192,120,142,20,3,140,21,3,88,96,160,255,185,0,55,153kp1,55,136,192,207,208,245,173,0,56,141,208,55,160,2,173,0,220,41,4,208z11,174,0,208,202,224,25,144,3,142,0,208,173,0,220,41,8,208,11,174,0208,232,224,254,176,3,142,0,208,162,0,254,  " ò ó "@ " "m " " " ý " I1638417383:I,32:I500J16385164232I((1) ,-1""(142)(8):30006""13)"BY MICHAEL J. CARSTON"Z""18)"ONE MOMENT PLEASE..."e900:"";:I020:28)" ";:I32)" ";I2223:33)" ";:I32)" ";(56295, 28,41,169,160%169,169,168,160,168,40,128,152,8D128,152,8,0,152,0,0,152,0^0,48,0,0,48,0,0,48,0z0,48,0,0,48,0,0,48,0,00,0,0,0,0,0,0,32,00,8,0,0,0,0,0,2,00,128,0,8,0,0,0,8,02,32,128,0,8,0,0,32,320,130,0,8,0, *****************************- 0,32,0,0,32,0,0,32,0I 0,32,0,0,152,0,0,152,0f 0,152,0,0,152,0,0,168,0 2,170,0,130,170,8,138,170,136 41,169,160,166,170,104,154,170,152 160,168,40,0,168,0,0,168,0 2,170,0,10,170,128,10,34,128,: :  === 2ND SOLUTION ===N ( X65 90 : Y48 90 : Y58 Y65d 2 (X);(Y);" ";~ < : (X);" "; : ENTANCE ISAS. ENTANCE ISAS.2 OUNCING ALLS BOUNCING BALLS  << CD37-2 >>4 COMMODARES PROBLEM #33-2:U" SENTENCE DISASSEMBLER"g SOLUTION BYz J.V. HENRY "A PHRASE OR SENTENCE";S$L(S$) : H$"" I1 L : H1$(S$,I,1)( H1$" " H$H$H1$ 2 H1$" " 62,0,202,208,253,136)208,248,162,0,189,248,7,201,254,208,5,169,255,157,248,7k232,224,1,240,251,224,8,208,235,160,16,162,0,202,208,253,136208,248,162,0,160,0,189,250,7,201,255,208,5,169,0,153,4,208,200200,232,224,6,208,237,173,248,7, 152,152,190,217,024,060,036,195,035,126,153,153,153,126,066,090,126U036,024,126,024,126,153,060,126,126~037,000,036,126,219,129,066,000,000038,031,021,021,014,028,156,248,112039,060,066,002,028,032,024,004,008040,000,000,  REDEFINED CHARACTERS-HX133:A:680X,A::56334,(56334)254^R1,(1)251:681:1,(1)4:56334,(56334)1o\A:A1890fX.7:D:14336A8X,D::860p ML SCROLL ROUTINEzX(10),Y(10),CX(2),CY(2),M(9),L(9):A.10:X(A),Y(A): +++";):::648,4:53283,L2:ABBR:A,42643:[AERE1:A,42643::ABER:A,42643:nB3R3,4764A(1)608:Q(1)405:(BAQR)M700BQRA,EXD1L2A(1)705:Q(1)405:(BQRA)M730 FOR THE NEXT LEVEL !! "?0""4)" DESCENDING DOWN TO LEVEL";L1;" "v:SO4,17:D100.1::X.50::SO1,D::SO1,27DSO4,.:GG25:14)" GOLD = ";G;N640:MX.:MY.:X10:Y5:D.:V,X(.):V1,Y(.)XV16,E(.):V21,1:28 D1(D2)3;M(.),M:TXCX(D):TYCY(D):CX(D)CX(.):W(.)CX(D)TX\CY(D)CY(.):W(.)CY(D)TYlM(.),M(L)u280610:"CHOMP";:620V21,.:V33,.""13)" GOLD = ";G:" ANOTHER GAME ?[Y OR N]"198, 15:V21,1:V34,1:V36,11D DSOSO24:D,.::SO,255:SO1,27:S05,64\ SO6,128:SO24,10i D.:280 JOYSTICK ROUTINE TXMXX(J):TYMYY(J):TX0TX41TY0TY25280 SO4,33:MXTX:MYTY 828,MX,MY:A(.),. "SO4,.:J 54272: A(B)YSRXS: B(B)(TYSRTXS)l x X(B)(X3)828((X31)255):E(B)(X31)1:Y(X)Y835 J(X)15((JY)15): C(X)BMXTX((MYTY)R) CX(B)CX(D)(CX(D)MXX)1(CX(D)MXX)1 CY(B)CY(D)(CY(D)MYY)1(C % 53280,00:53281,00:1200:4000=I05:HI$(I)"":IUX254:Y222:V53248(2040,251:2041,252:I20422047:I,253:I2V,X:V16,0:V1,255<V28,255:V27,0:V23,0:V29,0:V40,1:V38,14 FV39,12:V37,0:V21,253:IV41V 49374:65418 I015:VI,0:I) SC$""L I11761182:SC$SC$((I)):p 53269,0:""(142)(8):3000 SR(SC$):BN(SR10):GTSRBN ""15)"SCORE "GT ""15)"BONUS="BN I04 SC$HI$(I)300 J5I11 HI 05,40,133,2,165,3,105,0,133,3,165,4,24,105,80,1337` 4,165,5,105,0,133,5,202,16,218,96ej 201,223,178,245,251,199,143,124,211,255t 35,36,37,38,39,35,36,37,38,39~ 169,0,133,251,169,192,133,252,162,20,160,0,169,32,145,251,200 192,201, 255,129,255,153,129,255"041,062,034,062,008,008,056,008,056K042,255,129,189,165,165,189,129,255t043,249,249,000,159,159,000,249,249045,000,000,000,000,016,000,000,000$047,129,066,036,024,024,036,066,129,-1.0,0,0,-1,0,1,0,0, A828914:B:A,B::A.63:1564A,255:LA.9:L(A)::A.9:M(A)::X916951:A:X,AT: 169,,133,251,133,253,169,208,133,252,169,56,133,254,162,8 160,,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96000, BQRA,M8: D1L28A(1)705:Q(1)405:(BQRA)M760LBQRA,M13:{ A(1)705:Q(1)405:(BQRA)M780BQRA,M9 D.2*A(1)705:Q(1)405:(BQRA)M8104CX(D)(A):CY(D)(Q)::> 0$bC(.),M:V21,.:781,Y:782,X1:783,.:65520:NlSO4,17:Q.500::V21,1:SO4,.:ev DUNJON GENERATOR916:V33,(L5)15:Q1922044:648,Q:"":D13X.7:(2XL(L))"+++++++++++ ";40);" +++ .A$:A$""480A$"N"679,.:679?V24,21:V17,(V17)191:_610:"G 50":GG50:620:610:" KEY ":K1:GG100:620:610:V33,2:620:V33,.:GG(G49)50:V21,.:LL1:L10450&K.:""4)" PREPARE J(.):TXXX(J):TYYY(J):K(.)440* ,B(.)M340B 6CH(.)510,520,530V @B(.)EXK540_ J390o TET(.)260 ^SO4,129:XTXYTYA(.),M hXTX:YTY:A(.),.:V16,E(.):V,X(.):V1,Y(.) rSO4,. | MONSTER MOVEMENT D Y(D)MYY)1 K(Q)(C(.))M(L)Z CH(B)(B(.)M8)1(B(.)M9)2(B(.)M13)3| ET(B)TX1TX38TY2TY23 M(X)(BCX(D)(CY(D)R)): W(X)(M(.))M:640 V27,1:V39,7:V23,1:V29,1:V,X(.):V1,Y(.) 2040, 46:I,02:I$ PIV4V142:I,0:II ZIV5V152:I,(IV5)19.9:I d54280,8:54279,0:54282,0:54281,0:54284,25:54285,0 "";:49321:1300:V1,Y 54296,15:54277,9:54278,0 54273,16:54272,0 49152:I(53278):251,0 $(J)HI$(J1) J! "HI$(I)SC$:I4( ,ID 6""15)"HIGH SCORES"O @I04c EKK(HI$(I))BNy G KKBNBN0:KK0 J14)I1KK TI ^"" ""10)"[PRESS FIRE TO PLAY]" CC5595155959:CC,02:CC ((56320)16)0470I208,247,24,169,200,101,251,133,251,144,2,230,252,202! 208,231,96,192,105,0,133,5,32,155,183,224B 0,240,16,165,4,24,105,80,133,4,165,5,105,0,133,5,202,208,240L 169,0,133,2,169,4,133,3,162,24,160,39,177,4,145,2,136,16,249V 165,2,24,1 -1,0,-1,-1,-1,1,0,0,1,0,1,-1,1,1G8 32,155,183,138,24,105,0,133,4,169,192,105,0,133,5,32,155,183,224B 0,240,16,165,4,24,105,80,133,4,165,5,105,0,133,5,202,208,240L 169,0,133,2,169,4,133,3,162,24,160,39,177,4,145,2,136,16,249V 165,2,24,1  àƙ<Ǚ=ș>řԈ???)??H??h?Щ Щ%Щ &Р'hؙڈ  @ōЍЍЍx ܩЍЩЩ!čX0 Gâ  I©~Щnũmō?ōЩBŢ 'ЎЊ)JJJ iŢ @qǠ@+0 <UL \;L;L \UL5C \;L;L \5C PT33T PPp3 L âԩQ YLVŭ B$2Zb:@ )Px >> UORTEX <<  F1 = NOVICE F3 = EXPERT SCORE: 0000000 LEVEL: 01             ȭ A@@&@!0 )0)  †80 Ši ¦Љ@ АץХ`P0}  `8  `)ǝIXJ0ȝP`ԝ i  A9 )ȭ)ʎܘ)  ­8@Ѕ`@:@U 0 য) -BJA8)i'м`A 8JJJ؅i(毈JJ@*$A र%  7Ő# {CЭCL Lп *   ɶL#Х8ԅ )L1Lԩԩ ॎ()Х АХЩi)I ` Ў!Ўʎ ( ********************************O * CATACOMBS V1.0 *v * BY CLEVE BLAKEMORE *( ********************************253281,.:53280,.:""14)(8)(142)" CATACOMBS " <6)" PLEASE WAIT...LOADIECIMAL,!N HEXADECIMAL, AND INEO MSB LSB FORM IN DECIMAL.lP :- - - - - - - - - - - - - - - -|ZPTRPTR(M)dF$"M = #### [M] = #### = $#### = ### ###"n F$;M,PTR,(PTR),HI(PTR),LO(PTR)xFNLO)  PTR(M) KEY SCORE 000000 MISSED 0 HIGH 000000 @߿vbXlDVhzASewGYk} .>T:Z<<<<<<<<  )ŝ(Э)ŝ_`8xi:0x8m(nnŌm`xِ LiLiàx0x`@?ixŢЅ  iŢ ޢ L)ܥ)Ѕ:8<9;9;:<  ܭ) BЭ?@ B) i@ť)JJJ @ )Q t nŠL8+H) `AhJJJi(iiԅ`fJQfLC½Q;8J<18 CŰ&iCŐȝfLC­B 'ЩxBť) >6>?PPT5????03 *0m0?m0*0 << *0m0?m0*0 03< +<@qǠ@+< 0303 +033pP03 *0m0?m0*0 << *0m0?m0*0 03< +<@qǠ@+< 0303 +0  06e)  we) wоi@ ЪiИ`e 8DžƯ00e 8DžƮ%HH e)JJJe2hhД`ɸ ` !Щ Т:;eP@PܩQ>؍Щ ܩƍ]ЭABԩԩ ԩQ ԍԭA ԩ'Щ(Щ A0  i0)*`ܬ)>A6A  tA0@$  7Ő uA@`i i`` o oni0!QЍЩQv {ƩЍЭA mssAA@)@ L)H#E٢ܩ<< H @ˢ I" ĭ)Ib)ĩܩ3Йљ ҙ ә7ܢϝ * Т@@A@ LǝǝǝȽǝǝǝȩ ȝ(ȝ8ȝ@`1aԴa1 NG DATA! ":840. F53272,30:53265,(53265)64d P""15)"SKULL #":15)"WIZARD $" Z15)"BAT %":15)"SPIRIT &":15)"SNAKE '" dB49152:E53151:V53248:S1024:X10:Y5:MX.:MY.:R80:SR40:M32) nL.:EX239:JY56321:SO <<<<<<<<<<<<<<<<?3T++*>ڼ:>PPPPPT++*>ڼ:>PT5????T++*>6>?PPPPPPT++*  Щ?;;i @Wř@;`РLĭ?L  f)LcĘ)I֭@.A8)@Ţ  @ŭ@)1ԩ@ŭB B 'Э)y<ɴТРЌ!Х) Э )L1LPRESS ANY C}_݋ŐݒŐ LCť=X'8JQ 3 hhLtÝQŘJ0L CřнJřЭ=vŨQ)oŨ`9:9&:?9?T Ȍ Ԇ???>> Ԉ 8nŪ æŝCŽ}ŝJũQũfŭ)ŝXŹŝ - *** PERMA-LINE *** BUCK CHILDRESS ***Z *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J52000:L110:C11((19)31)L::B0C:A:A0A255602JB,A:XXA:B:A:AX70 <"ERROR IN DATA LINE: ,124,204,76,89,166,169,1494F 0,141,124,204,165,95,233,1,76,201,168,32,1440 107,169,165,122,166,123,141,121,204,142,122,204,1786 169,255,162,1,133,122,134,123,202,134,251,160,1846 6,32,115,0,176,20,201,48,144,16,166,251,1175 208,6, 5)@116,164,162,54,44,162,55,120,134,1,162,47,1221VJ134,0,88,96,17,84,72,69,32,77,65,88,822T73,77,85,77,32,76,73,78,69,32,78,85,835^77,66,69,82,32,73,83,32,54,53,53,51,725h53,46,13,0,17,80,69,82,77,65,45,76,623r73,78,69,32,73,8  1,0,39,16:G"*************************************"t"* *""* CADET'S DOS 1.2 *""* *""* MODIFIED BY ROBERT WEMPE *"* IVE FILE A NEW NAME""P 1,16,39,18>Z"ENTER YOUR CHOICE";X$tdX(X$):XX64: X 200,300,400,500,1000,700,800~ 600 2 ACCESS DIRECTORY 0,0,39,24: 5,3,39,24:"HIT A KEY TO RETURN TO MENU" Q$ ASE FILE  1,20,39,24:5  "WHAT FILES TO DELETE";FI$W "DO YOU WISH TO CONTINUE";X$h  X$"Y" t &""FI$z 0 X DISPLAY DISK ERROR STATUS b 1,20,39,24: l DS0 DS$::  FORMAT DISK  1,20,39,24: ! "I ""SF$""""NF$"":" RETURN TO BASIC-":""Z" "TO ERASE WEDGE FROM MEMORY TYPE NEW."" "TO RETURN TO PROGRAM TYPE RUN""K" INPUT ROUTINE" 1,20,39,24:""WHAT SOURCE FILE";SF$": "WHAT IS NEW FILE NAME";NF$"  << RR37-1 >>7 -- POINTER PRINTER --S DEMO FOR THE C-128n RUPERT REPORT #37t FUNCTIONS FIND DECIMAL VALUES OF POINTER AT ADDRESS M (FNPTR) AND ITS MSB (FNHI) & LSB (FNLO)  PTR(M)A,A$,B,C 15:825,227235[ 238,37861,37862,141,37869,37870,141,38076,38077,228135 142,38082,38083,143,38086,38091,222,40826,40827,234502 N: S *** SAVE ML *** X"SAVING SCREENS C" ]780,8:781,8:782,255:65466 bN$"0:SCRE 7783,37784,238,37824,37825,227235[ 238,37861,37862,141,37869,37870,141,38076,38077,228135 142,38082,38083,143,38086,38091,222,40826,40827,234502 N: S *** SAVE ML *** X"SAVING SCREENS C" ]780,8:781,8:782,255:65466 bN$"0:SCRE "L:" FX0:JJ12:LL10:L390406 PL390C12:40\ Z"THE DATA IS OK AND LOADED...":~ d"SYS 52000 TO ACTIVATE...": n32,33,204,169,0,162,160,133,251,134,252,170,1700 x161,251,129,251,230,251,208,248,230,252,165,252,2628" 201,192, ,140,124,1851A 168,162,175,160,203,141,197,168,142,198,168,140,2022v 199,168,169,147,162,36,160,203,141,2,3,140,1530 3,3,104,104,76,15,204,32,30,204,142,124,1041 204,76,131,164,173,124,204,208,3,76,113,164,1640 76,116,164,169,0,141 201,48,240,239,133,251,136,240,32,76,1810S 213,203,192,2,176,12,165,251,201,54,144,6,1619 "165,21,201,234,144,13,173,121,204,174,122,204,1776 ,133,122,134,123,76,159,164,104,104,162,0,189,1470 644,204,240,7,32,210,255,232,76,15,204,76,159v3,32,79,78,46,13,0,6565|17,80,69,82,77,65,45,76,73,78,69,32,763d73,83,32,79,70,70,46,13,0,66,85,67,75,759,13,173,121,204,174,122,204,1776 ,133,122,134,123,76,159,164,104,104,162,0,189,1470 644,204,240,7,32,210,255,232,76,15,204,76,159  "*************************************":M 3);"A",4)"ACCESS DIRECTORY"l3);"B",4)"BACKUP FILES"3);"C",4)"COLLECT FILES"(3);"D",4)"DELETE FILES"23);"E",4)"EXIT TO BASIC"<3);"F",4)"FORMAT DISK"F3);"G",4)"G "":, BACKUP FILE6 20009@""SF$""""NF$"":W VALIDATE (COLLECT) DISKk 1,20,39,24:"WARNING:OPEN FILES WILL BE DELETED." "HIT Y TO VALIDATE - ANY OTHER KEY TO RETURN" Q$ Q$"Y" ::: :  ER NSERT DISK TO FORMAT"+! "ENTER DISK NAME": DISK$O!: "ENTER EXTENDER NAME": ID$!"PUT DISK TO BE ERASED IN DRIVE.":"PRESS Y TO CONTINUE. ";!"CONTINUE";Q$: Q$"Y" !""DISK$","ID$:!  GIVE FILE NEW NAME!* 2000 "4 "TO FORMAT"+! "ENTER DISK NAME": DISK$O!: "ENTER EXTENDER NAME": ID$!"PUT DISK TO BE ERASED IN DRIVE.":"PRESS Y TO CONTINUE. ";!"CONTINUE";Q$: Q$"Y" !""DISK$","ID$:!  GIVE FILE NEW NAME!* 2000 "4 (M)256(M1)( HI(D)(((D),2))B LO(D)(((D),2))_(M45 : 80 : TXTTAB~2M4624 : 80 : TEXT-TOPF : K [M] IS THE VALUE OF THE POINTERL AT ADDRESS M.M IT IS SHOWN IN D ENS C,P,W"/ gL(N$):J1L:849J,((N$,J,1)):P l780,L:781,82:782,3:65469e {251,59:252,147 780,251:781,124:782,159:65496 ST700 "SCREENS C SAVED": :  *** READ ERROR CHANNEL *** 15,8,15 15,A,A$,B,C 144,240,173,3,3,201,203,208,9,169,1746Z 131,162,56,160,164,76,136,203,142,126,169,169,1694 76,162,156,160,203,141,108,164,142,109,164,140,1725 110,164,162,187,160,203,141,156,164,142,157,164,1910 140,158,164,162,167,160,203,142,123,16816,243,169,216,133,88,169,3,133,93,160,0,32,207,255,133,2050+292,32,207,255,133,91,32,207,255,133,90,145,87,136,208,6,2109l2230,88,198,93,48,23,198,91,208,241,165,92,208,9,32,183,21072255,41,64,240,215,208,6,165,90,198,92,16,218,162,15,32,20,160,160,160,160,160,160,160,198,183,189,197,210,193,211,197,2858<+160,205,197,206,213,0,169,0,133,4,32,73,153,169,15,32,1761+195,255,32,231,255,165,5,240,11,165,197,201,5,240,235,201,2633+6,208,246,96,165,92,208,36,32,234,148,24,160,10,168,255,200,196,183,144,245,32,174,255,24686476,231,255,211,212,193,210,212,13,160,160,198,177,189,205,193,2895_66203,197,175,211,193,214,197,160,211,195,210,197,197,206,160,160,308668160,198,179,189,214,177,197,215,160,211,195,210,197,197,206,1 208,4,230,89,208,4,201,1,208,169,1913/169,48,141,233,7,169,58,141,234,7,160,3,162,2,177,87,1798U/41,127,201,64,176,8,201,32,176,19,9,64,208,15,201,96,1638/176,4,9,128,208,7,201,160,176,3,24,105,64,201,34,240,1740/7,157,233,7,200,232,20 ,46,133,1,177,89,145,87,177,93,145,91,136,208,19749J245,230,88,230,90,230,92,230,94,202,208,234,169,47,133,1,2523V9L88,96,32,242,157,177,87,145,89,177,91,145,93,136,208,245,22089N230,88,230,90,230,92,230,94,202,208,234,162,25,181,217,157,2670 ,11,169,147,32,210,255,32,167,2571;`151,76,193,158,201,134,208,19,169,15,141,34,208,169,0,133,2009@211,195,210,197,197,206,0,173,136,2,133,88,160,0,132,87,21277@132,89,132,91,132,93,169,1768,214,169,44,157,233,7,169,83,232,23520157,233,7,232,134,95,32,139,154,165,89,240,24,32,100,157,1990\032,234,148,24,160,13,162,9,32,240,255,169,221,160,152,32,20430 30,171,76,53,155,169,0,133,38,32,111,151,169,8,32,195,15230 255,32,248,19P177,145,202,16,248,162,125,181,0,157,0,145,202,16,248,173,2197%:R17,208,141,250,147,173,136,2,141,249,147,173,24,208,141,248,2405j:T147,173,134,2,141,247,147,162,4,189,32,208,157,251,147,202,2343:V16,247,56,32,240,255,140,246,147,142,245,19,0,133,39,32,236,156,165,39,208,3,76,193,158,1810 =h162,4,189,251,147,157,32,208,202,16,247,173,250,147,141,17,2343P=j208,162,125,189,0,145,149,0,202,16,248,32,45,158,173,249,2101=l147,141,136,2,162,25,189,177,145,149,217,202,16,248,24,172,21586,150,230,21543$4,169,0,133,2,32,106,148,76,167,151,201,134,208,13,169,171394&15,141,34,208,169,21,141,24,208,76,1,155,201,137,208,3,1742z4(230,39,96,201,135,208,1,96,201,138,208,6,165,3,240,187,21544*208,159,201,136,208,181,173,17,208,41,7,141,35,208,169,1767 -14,197,92,176,2,133,92,198,92,169,0,133,94,133,89,169,1783L-209,133,87,169,4,133,88,160,20,177,87,9,128,145,87,136,1772-208,247,169,10,133,90,32,236,152,165,197,201,7,208,24,165,2244-94,201,0,240,244,198,94,32,139,133,90,169,216,133,92,169,180,21968B133,94,162,4,96,169,145,133,88,169,160,133,90,169,148,133,2026I8D92,169,176,133,94,160,0,132,87,132,89,132,91,132,93,162,18748F15,96,173,248,147,141,24,208,173,247,147,141,134,2,32,242,21708H157,120,16950,165,5,240,3,76,20,155,169,147,32,210,255,2162!132,111,151,162,8,32,198,255,32,207,255,141,33,208,32,207,2064e1255,141,32,208,32,207,255,141,24,208,169,0,133,87,168,169,222914,133,88,162,3,32,207,255,145,87,136,208,248,230,88,202,2228147,169,4,141,136,2363:X2,169,27,141,17,208,32,129,255,169,21,141,24,208,169,1,17130;Z141,32,208,169,7,141,33,208,169,3,32,236,148,24,162,9,1722t;\160,17,32,240,255,169,158,160,157,32,30,171,169,0,133,198,2081;^32,228,255,240,251,201,133,208S2=n246,147,174,245,147,32,240,255,32,196,148,32,16,158,76,141,2285=p3,34,208,169,0,133,2009@171,240,149,162,0,189,104,149,153,233,7,200,230,95,232,224,2538{@4,208,242,96,165,92,32,210,255,165,91,32,210,255,165,90,2312B32,210,255,96,198,177,189,211,195,210,197,197,206,160,195,207,2935 D204,207,210,160,160,160,1 32,210,255,136,208,1883(!248,230,88,202,16,243,169,216,133,88,177,87,41,15,133,90,2176g!162,3,132,91,132,92,177,87,41,15,197,90,240,13,72,32,1576!255,149,104,133,90,169,0,133,91,133,92,230,91,208,2,230,2110!92,136,208,226,230,88,202,16, 72,73,76,73,84,69,32,68,79,1128(87,78,32,32,32,32,67,82,83,82,94,61,72,73,76,73,1056S(84,69,32,85,80,13,32,32,82,69,84,85,82,78,61,76,1044(79,65,68,32,83,67,82,69,69,78,32,32,32,68,61,68,985(69,76,69,84,69,32,70,73,76,69,0,78,79,32,72, 160,15,32,186,255,169,0,32,189,1819F\255,32,192,255,162,15,96,198,179,189,210,197,208,197,193,212,2790^160,160,160,198,181,189,211,212,193,210,212,0,0,32,206,150,2474`32,198,255,160,0,132,5,169,126,133,78,169,145,133,79,32,1846b207,255 2145 %30,171,32,111,151,169,8,32,195,255,32,248,150,169,15,32,1800P%195,255,32,231,255,165,5,240,11,165,197,201,5,240,208,201,2606%6,208,246,96,32,111,151,162,8,32,198,255,162,5,160,11,1843%32,240,255,160,0,132,91,132,92,32,207,255,201,33,208,76,174,151,201,134,208,14,238,32,208,173,32,208,41,2131U|15,141,32,208,76,174,151,201,136,144,27,208,31,165,3,208,1920~194,169,0,133,198,133,2,173,17,208,41,191,141,17,208,32,1857106,148,230,3,208,173,32,149,150,76,174,151,201,138,198,178,189,211,193,214,197,13,29,29,2552SF29,198,179,189,194,207,210,196,197,210,160,195,207,204,207,210,2992H160,160,160,198,180,189,212,200,201,211,160,205,197,206,213,13,2865J29,29,29,198,181,189,208,210,201,206,212,160,195,207,204,207,2221,32,255,149,162,15,32,251,2315,"150,165,5,240,3,76,79,152,133,4,169,15,32,195,255,76,1749v"231,255,211,195,210,197,197,206,160,196,197,204,197,212,197,196,3261"0,24,165,162,101,90,133,90,165,90,197,162,208,250,96,165,2098"92,201,15,132,980(83,67,82,69,69,78,83,32,79,78,32,68,73,83,75,0,1051B)160,22,177,87,41,127,145,87,136,208,247,96,198,177,189,193,2290)205,197,206,196,160,211,195,210,197,197,206,160,160,160,160,198,3018)178,189,197,216,201,212,160,208,210,207,19,145,78,200,32,183,255,41,64,240,243,160,0,177,78,2358Qd201,48,208,1,96,201,54,208,20,200,177,78,201,51,208,13,1965f165,6,208,9,32,100,157,32,206,150,76,111,151,230,5,32,1670h234,148,24,162,9,160,3,32,240,255,160,0,177,78,201,13,1896j20,240,14,2083&201,32,144,245,201,128,176,241,153,126,145,200,208,235,165,91,2691]&201,2,144,60,162,19,189,126,145,201,83,208,51,173,127,145,2036&201,72,208,44,173,128,145,201,32,208,37,162,0,189,126,145,2071&32,210,255,232,224,18,208,244,8,2091208,10,165,3,240,166,208,148,230,6,208,6,201,140,144,71,2154]208,145,165,3,133,2,32,106,148,165,6,208,13,165,4,240,17439,162,2,164,95,32,240,149,240,3,32,123,149,169,0,133,17022,32,106,148,169,2,133,38,32,206,150,32,111,15665*L210,160,160,160,160,198,182,189,211,212,193,210,212,13,29,29,2528sN29,198,183,189,197,210,193,211,197,160,205,197,206,213,160,160,2908P160,160,160,198,184,189,211,193,214,197,175,210,197,208,204,193,3053R195,197,19,0,0,15,111,8,23276,16,169,13,32,210,255,160,11,169,32,32,210,1793?#255,136,208,250,96,169,208,133,87,169,4,133,88,133,90,169,2328#248,133,89,162,15,160,25,177,89,145,87,136,208,249,24,169,2116#40,101,87,133,87,144,3,230,88,24,169,40,101,89,133,89,1558$9,210,193,205,13,160,2958*160,160,198,179,189,193,206,207,212,200,197,210,160,211,195,210,3087i*197,197,206,160,160,198,180,189,212,200,201,211,160,205,197,206,3079*213,13,160,160,160,198,181,189,212,207,160,211,212,193,210,212,2891*1640,8,9,128,32,210,255,200,208,242,32,210,255,24,162,11,2226Wl160,10,32,240,255,160,150,169,226,32,30,171,169,15,32,195,2046n255,76,231,255,165,95,162,233,160,7,32,189,255,169,8,162,2454p8,164,38,32,186,255,32,192,255,96,0,70,53,32,84,79,15745,230,92,32,250,152,165,197,201,2743$'6,208,9,169,40,133,90,32,236,152,240,4,201,3,240,9,1772d'230,91,32,183,255,41,64,240,8,169,8,32,195,255,76,248,2127'150,32,207,255,201,34,208,234,160,0,76,187,153,0,13,32,1942'32,67,82,83,82,95,61,1,162,15,1489 32,251,150,165,5,240,17,165,197,201,5,208,6,32,186,150,2010` 76,170,151,201,6,208,240,96,162,8,32,201,255,173,33,208,2220 32,210,255,173,32,208,32,210,255,173,24,208,32,210,255,160,2469 0,132,87,169,4,133,88,162,3,177,87,:670(B07:AC(ADB):505:ADBENADSR:410:1955" ";:BC:ADAD8ZB$:B$(136)195o495:": ";:650+5350A$"**LOAD**":58551,T,0,A$:690:1:ST64195?405:T8420D560I" ":14)A$N A):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$N 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 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|:  *** SCREENS ***= PERMANENT ML BEGINS AT 828` "ENTERING MACHINE LANGUAGE"~52,147:56,147::B37691K.195J.15:A:BJ,A:XXA::AXA"ERROR IN DATA LINE"(64)256(63):#X.:BB16::40827,3 (",0,0,0,169,13,133,87,790S 169,8,133,88,160,71,132,89,160,0,169,147,133,90,162,13,1724 177,87,145,89,136,208,249,230,88,230,90,202,48,2,208,240,2429 76,110,147,162,111,189,144,147,157,62,3,202,16,247,169,147,2089 32,210,255,24,162,9,160,208,242,96,169,128,141,138,2,169,0,133,89,165,209,2181q133,87,24,165,210,105,212,133,88,164,211,177,209,72,170,177,233787,133,91,173,134,2,145,87,24,177,209,105,128,145,209,230,207989,24,165,162,105,20,133,90,32,228,255,208,21,165,90,19,169,5,133,88,169,1688K147,133,90,169,217,133,92,169,146,133,94,160,240,165,2,240,233012,177,87,145,89,177,91,145,93,136,208,245,96,177,89,145,211287,177,93,145,91,136,208,245,96,80,82,69,83,83,32,95,180232,70,79,82,32,83,67,82,69,,9,64,141,17,1448? 208,169,11,141,134,2,169,63,133,87,169,5,133,88,160,240,1912"169,96,145,87,136,208,251,162,40,169,109,157,63,5,157,7,1961$6,169,0,157,63,217,157,7,218,202,208,237,162,24,181,217,2225&9,128,149,217,202,208,247,169,39,60,157,162,3,189,107,149,32,210,255,202,208,247,96,2421a0169,11,141,36,208,32,234,148,24,162,10,160,2,32,240,255,18642169,56,160,149,32,30,171,160,0,185,100,149,153,233,7,200,19544192,4,208,245,132,95,32,0,148,164,95,138,201,13,240,38,1945MACHINE LANGUAGE ENTERED" -:7 d *** SAVE ML ***O i"SAVING SCREENS A"q n780,8:781,8:782,255:65466 sN$"0:SCREENS A,P,W" xL(N$):J1L:849J,((N$,J,1)): }780,L:781,82:782,3:65469 251,59:252,147 780,251:781,: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:B06355:A$"/"A$":"T(A)(A$)48:$T(A)16:7 ADRESS CHECKFADEN385YBSRBEN390B256(B40960B49152)B53247395 ADDRESS TO HEXACAD:A4096:520A256:520A16:520A1:520T(AC"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,10,32,240,255,169,164,160,148,32,2062` 30,171,76,184,148,165,197,201,57,240,3,108,60,3,120,169,1932 49,141,20,3,169,234,141,21,3,88,169,160,133,88,169,145,1733 133,90,169,176,133,92,169,148,133,94,160,0,132,87,132,89,1937$ 132,91,132,97,1984>162,208,245,165,89,240,220,138,145,209,165,91,145,87,198,89,2596 240,223,170,104,164,211,145,209,165,91,145,87,96,32,0,148,2230 138,201,133,144,5,201,141,176,1,96,32,210,255,208,238,169,234863,133,87,133,91,169,0,133,89,133,93124:782,159:65496 ST200F "SCREENS A SAVED. SYS37742 TO STARTt "INTERRUPT OR LOAD AND RUN SCREENS A.":z : *** READ ERROR CHANNEL *** 15,8,15 15,A,A$,B,C A,A$,B,C 15: : 11,8,10,0,158,50,48,54,4969,78,83,0,173,20,3,1022C141,60,3,173,21,3,141,61,3,120,169,62,141,20,3,169,12903,141,21,3,88,32,16,158,162,12,177,91,145,93,136,208,1486249,230,92,230,94,202,208,242,96,0,0,0,0,0,0,169,181215,141,34,208,133,2,32,106,148,173,17,208 133,213,96,0,198,201,204,2413Q(197,206,193,205,197,160,168,177,173,177,180,160,195,200,193,210,2991*211,169,186,160,0,206,193,205,197,160,212,207,207,160,204,207,2884,206,199,186,160,210,197,196,207,0,48,58,72,32,44,83,44,1942.87,157,1)6201,20,208,12,192,4,240,238,136,198,95,32,111,149,208,230,2274k841,127,201,32,144,224,138,153,233,7,200,230,95,9,128,32,1994:210,255,208,210,240,208,192,19,144,25,32,111,149,136,208,250,2597<32,111,149,162,12,160,9,32,240,255,160,149,13,32,157,3,120,169,46,133,1,162,12,177,91,1551h 145,93,136,208,249,230,92,230,94,202,208,242,169,47,133,1,2479 88,76,93,158,120,169,46,133,1,32,157,3,169,47,133,1,1426 88,108,60,3,162,15,177,89,145,87,136,208,249,230,88,230,2075+90,202 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/fLOADER "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 ,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, 80,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,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,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,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,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,7670,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,255"h 76,180,13,32,170,13,32,192,255,76,180,13,32,170,13"r 32,201,255,76,180,13,32,170,13,32,204,255,76,180,13,32,170 #| 13,32,195,d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1984, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)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:ADA14 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,170255,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 ^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,73 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);:0,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,23,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,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,320"T 1_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,320"T 1 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(EN340 " ";- 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)560A0  lAHOY! JANUARY872ABOOT64 UG EP128 BUG REP LANKSPEED  HOY! HOY! EMO%CREENS ATA 7CREENS ATA  KKCREENS ATA àIXTER+ ERMA INE CADET'S DOS POINTER PRINTER UGOUT ORTEX ATACOMBSKK ANGER 14 TARFIGHTERDARK FORTRESS= ARIABLE OG ENTENCE ISAS. SENTENCE DISAS. OUNCING ALLS BOUNCING BALLSKK OUNTING OMBO LOADER DDLOGO%DIR 1( HOY! OOTUGOUT OOTORTEX OOT"MOVING'HIKK"PATTERNSSTUDENT WORK.TXT #>COMAL PROGRAMS<KKKKK  ݭ)ݩЩ,8 Ѝ!ЩL BASIC AHOY! 31741 BYTES FREE. BY CARLOS DE LA GUARDIA G LǑ` |"O$p&A"[qL z8ϑɀ0 qș RTCLHOMFILFCOSCROLQUICSEFLICHAOFPLACSPRITBCOMODRASTEDOWNLWIPPLOREPEAJOBUMBI͒Z얬-UחILk +Jlݟ~ś  ǒ` ŢL` ` ) )! )  -Qf>Q{Z#8}S 0GGwpGa h 0  N1`8c?K!%*>,2<;?K#'*>/k59p~CKET}Ydyw|~G OT}^js..~ -ZsPAUSCOLOUCURSPLAENVELOPTEMPVOWINDOP` (   `LH _44 4LA A  A A ! !LH5  ⊬46Ȅ  ⤰6Ȅ  ⤰6Ȅ  ⤰6Ȅ  ⤰6Ȅ  6ȥ6`W "#;ޔLL RLOL| VL@TLeL;L`ȱ t 4LY80 `ȱ t e e 5LYԔ6LY m5L46 $6e$Hh6 $6e$H(7& -( (#' )'&)(`'LH ~) A(`' $~ш&` ) i(`' $&`  L L 1! Y&֗(ח`  L L(ח&֗L L` $HH ѭ!Б $э~hhѭ~HHڭhh` $hh`L  _L`LH) _`  _) _ЩiL` & & &…ee…LH­)Jĩ iLЙh` ⊨L8ÍЩ8Åí%ÍL8ÍЩ8Åí%ÍL8ÍЭÍ é8Åí%Í`íÍ  )%  )&`HH LHLH)IcbL)Icbhh8 I`HH LH0LH Щ"` L".01Lmcb8 I`@ x ܩЩЩЩ1ꍣfX`Ѝ)+!ннннЊhhh@L11q[ ⎥ ⎤ ⎩ ⎨ ⎧ ⎬ ⎫*&…å…ĥ*&*&eÅåeąĭ)eÅåiĭ)eÅíeąĭeÅíeąĭ)88*  )‘å `)E‘å `8…¥)%‘å `    z Xl 0LH Lݟ8%` ILITIES."0B "31 NEW COMMANDS WILL HELP YOU TO"[L "EASILY CREATE AND ANIMATE SPRITES,"V "COMPOSE MUSIC, CREATE HIGH RESOLUTION"` "GRAPHICS, CUSTOM CHARACTER SETS,"j "AND MAKE USE OF SUCH ADVANCED FEATURES"t "AS WINDOWING, PAGE  ,10,39,20: 0,0,14! I1 20: LN$0 0,20,LN$? 4,0: 30N 0,20," "_ 4,0: 30:g 0 :8,4,"SPRITES WITH BASIC AHOY!"0,6,"THERE ARE SOME USEFUL SPRITE COMMANDS"0,8,"INCLUDED IN BASIC AHOY!, ALSO, THE"!(0,10, 11110000 x 00000111,11011001,11110000@  00000011,11100111,11100000a  00000011,11111111,11100000  00000011,11111111,11100000  00000010,11111111,10100000  00000001,01111111,01000000  00000001,00111110,01000000  00000000 ::S409602 I020:A$,B$,C$:(I10)10" DATA "A$","B$","C$l "A(A$):B(B$):C(C$):S,A:S1,B:S2,C:SS3::0 ,::"YOU MAY READ THE SPRITE WITH THE" 6"FOLLOWING LINE:": @"FORI=40960TO41022:READB$:B=BIN(B$):POKEI,B:NEXT" J HE SPRITE ON THE SCREEN, USE") "THE PLACE COMMAND:":B "PLACE 0,160,100"r :"THIS WILL PLACE SPRITE NUMBER 0 ON THE" "SCREEN:":0:0,128,3,0,0 :0,160,100:"YOU CAN MOVE THE SPRITE WITH A LINE LIKE""THE FOLLOWING:"::"FORETECT COLLISIONS, AND THE PRTY "<"COMMAND ASSIGNS PRIORITY TO THE SPRITES."E0:Y&16,2,"MUSIC!"00,4,"THE VOL COMMAND SETS THE MASTER VOLUME":0,5,"TO ANY NUMBER FROM 0 TO 15:"D0,7,"VOL 15"N0,9,"THIS SETS THE VOLUME"0,18,"ATTACK TO 0, DECAY TO 5, SUSTAIN TO 7,"I0,19,"RELEASE TO 2, PULSE WAVEFORM AND A"j0,20,"PULSE WIDTH OF 1024."s0:0,2,"THE PLAY COMMAND MAKES MUSIC FUN TO USE:"0,4,"PLAY "(34)"V1 T1 O4 QRCDEFGAB O5 C"(34)3O4T1SRIEO5EDECEO4BO5EO4AO5EO4GO5EO4FO5EO4EO5EO4DO5DCDO4BO5DO4AO5D"p  "O4GO5DO4FO5DO4EO5DO4DO5DO4CO5CO4BO5CO4AO5CO4GO5CO4FO5CO4EO5CO4DO5C" "O4CO5CCO4BO5CDEDCO4BAGGABAGFAO5CFEDCDEDEAGFEDCO4BABO5CO4BAB" 0:I13:A$(I):0,12I3,I10"PLAY"UTS YOU IN HIGH-RES"f0,9,"MODE."2p0,11,"TO RETURN TO NORMAL TEXT MODE JUST"az0,12,"ENTER MODE 0. THE MODE COMMAND"0,13,"CAN ALSO BE USED TO SET MULTICOLOR TEXT"0,14,"MODE (MODE 1),EXTENDED COLOR MODE"0,15,"(MODE 2), MAKES IT POSSIBLE TO"#0,3,"PLOT A POINT AT ANY SCREEN COORDINATES:"V0,5,"PLOT 160,100,1 - PLOTS A POINT IN THE"w0,6,"MIDDLE OF THE SCREEN."0,8,"AND PLOT 160,100,0 - ERASES THAT POINT." 0:3:1:160,100,1:0:160,100,0:0:0FLIPPING AND RASTER"$~ "INTERRUPTS."O "THIS PROGRAM IS A DEMONSTRATION OF"} "ALL THIS COMMANDS, AND AN EXPLANATION" "OF HOW TO USE THEM IN YOUR PROGRAMS." " "," "," "," " " " " PRESS ANY KEY TO BEGIN."  0"BIN FUNCTION MAY BE USED TO CREATE A "820,12,"SPRITE:":0Y< 00000000,01111111,00000000zF 00000001,11111111,11000000P 00000011,11111111,11100000Z 00000011,11100111,11100000d 00000111,11011001,11110000n 00000111,11011111,,10011100,10000000'  00000000,10011100,10000000H  00000000,01001001,00000000i  00000000,01001001,00000000  00000000,00111110,00000000  00000000,00111110,00000000  00000000,00111110,00000000  00000000,00011100,00000000 :"THEN USE THE SPRITE COMMAND TO SET"8 T"THE SPRITE'S PARAMETERS:"V ^:"SPRITE 0,128,3,0,0" h:"THIS WILL CREATE A CYAN SPRITE WITH NO" r"EXPANSION, AND PICTURE DATA WILL BE" |"STORED AT 32768+(128*64), OR 40960." :"TO SHOW TI=0TO319:PLACE0,I,I/319*199:NEXT/0:I0319:0,I,I319199:_:"TO TURN OFF THE SPRITE, SIMPLY USE THE""OFF COMMAND:"::"OFF 0":"THIS WILL TURN SPRITE 0 OFF."0:0:"ALSO, THE BUMP FUNCTION IS USEFUL TO" "D TO THE FULL."(X0,11,"YOU CAN USE THE ENVELOPE COMMAND TO"Ub0,12,"SELECT ONE OF THE TEN PREDEFINED"l0,13,"INSTRUMENTS, OR TO CREATE YOUR OWN:"v0,15,"ENVELOPE 1 - SELECTS INSTRUMENT 1"0,17,"ENVELOPE 0,5,7,2,65,1024 - SETS THE0,6,"THIS WILL PLAY A C SCALE USING VOICE 1,"D0,7,"INSTRUMENT 1 AND OCTAVE 4 (REMEMBER TO"f0,8,"SET THE VOLUME FIRST!)"0:15:"V1 T1 O4 QRCDEFGAB O5 C"0,10,"THIS METHOD CAN BE USED TO PLAY LARGER"0,11,"COMPOSITIONS:"% "V(34)A$(I)(34)*:I13:A$(I)::0/4:7,2,"HIGH RESOLUTION GRAPHICS"`>0,4,"TO USE HIGH RESOLUTION GRAPHICS WITH"H0,5,"BASIC AHOY!, YOU FIRST NEED TO ENTER"R0,6,"GRAPHICS MODE WITH THE MODE COMMAND:"\0,8,"MODE 3 - THIS P AND MULTICOLOR BITMAP MODE"0,16,"(MODE 4)."C0,18,"ONCE IN GRAPHICS MODE, YOU MAY WANT TO"t0,19,"CLEAR THE SCREEN. THE WIPE COMMAND"0,20,"DOES THIS VERY QUICKLY:"0,0,39,24:0:3:1:0::0:0:0,2,"THE PLOT COMMAND :  0,2,"YOU CAN USE FOR-NEXT LOOPS TO DRAW SOME". 0,3,"INTERESTING PATTERNS:"s$ 0,5,"FORX=0TO319STEP.5:Y=INT(90+80*SIN(X/10)):PLOTX,Y,1:NEXT". 0:3:1:X0319.5:Y(9080(X10)):X,Y,1:8 0:0:B 14,2,"JOYSTICKS!"L 0,4, =1THENY=Y-1:REM UP"  0,11,"40 IFJ=2THENY=Y+1:REM DOWN3 0,12,"50 IFJ=4THENX=X-1:REM LEFTb 0,13,"60 IFJ=5THENX=X-1:Y=Y-1:REM UP/LEFT 0,14,"70 IFJ=6THENX=X-1:Y=Y+1:REM DOWN/LEFT 0,15,"80 IFJ=8THENX=X+1:REM RIGHT 0,16,"90 IFJ=9THEN  0,24,"FINISHED PRESS THE JOYSTICK BUTTON." 0 3:1::X160:Y1000 X,Y,1:J(2)P YY((J1)1):YY((J2)2)p( XX((J4)4):XX((J8)8)2 J16:0::2640< XX(X0):YY(Y0):XX(X319):YY(Y199)F 2580P 10,2,"C D4" 0,12,"THEN YOU MAY USE THE CHAR COMMAND TO"1 0,13,"CREATE THE NEW CHARACTER PATTERN:"@ 00011000O 00111100^ 01100110m 01111110| 01100110 01100110 01100110 00000000 I07:B$ 0,15I,(I10 HE FILL COMMAND:"@ 0,12,"FILL5":0:5' J 0,14,"OR YOU CAN FILL IT WITH A COLOR USING"G T 0,15,"THE FCOL COMMAND:"a ^ 0,17,"FCOL7":0:7j h 0: r 0,2,"THE SCROLL COMMAND CAN BE USED TO" | 0,3,"SCROLL A WINDOW IN ANY DIRECTION:"! 0,6,"BE CAREFUL WITH COLOR MEMORY, HOWEVER,"$" 0,7,"SINCE IT ALLWAYS RESIDES IN THE SAME"6" 0,8,"PLACE."R" 0,10,"NOW YOU SEE IT!"t" 0,12,"FLIP1":0:0,0,39,24" 1:32:12,12,"NOW YOU DONT!":0:0" 0:" 10,2,"RASTER INTERRUPTACK"#N 0,11,"WITH NORMAL TEXT AND CAPITAL LETTERS.")$X 0,12,"THE MIDDLE OF THE SCREEN IS BLUE, WITH"X$b 0,13,"EXTENDED COLOR TEXT AND LOWER CASE"$l 0,14,"LETTERS. AND THE BOTTOM OF THE SCREEN"$v 0,15,"IS GRAY, WITH MULTICOLOR TEXT AND AGAIN"TER113,177,49,0,0,0,59,59,27,8,8,8,24,24,4"& 0:113,177,49,0,0,0,59,59,27,8,8,8,24,24,4)& :1::1:0[& 0,21,"NOW THE TOP OF THE SCREEN IS HIGH-RES"& 0,22,"AND THE BOTTOM OF THE SCREEN IS NORMAL"& 0,23,"TEXT!"& I0319:I,100,1:w"HIT RUN/STOP-RESTORE."'> 0:(H 0,2,"THIS IS THE END OF THE DEMONSTRATION"(R 0,3,"PROGRAM."+(\ 0:2,0:21,"NOW THE TOP OF THE SCREEN IS HIGH-RES"& 0,22,"AND THE BOTTOM OF THE SCREEN IS NORMAL"& 0,23,"TEXT!"& I0319:I,100,1:" *** SCREENS DATA B ***i LOAD AND RUN SCREENS DATA A FIRST. PERMANENT ML BEGINS AT 40845~dA159:K13:X.iJ13:B:C:D:XXBCD:C,B:D,A:nE:XE"ERROR IN DATA LINE"(64)256(63)sX.: 143,37748,37749,141,"THE JOY FUNCTION RETURNS THE VALUE"+V 0,5,"OF THE JOYSTICK DIRECTION. YOU CAN"[` 0,6,"EASILY CREATE A DOODLE PAD USING IT:"j 0,8,"10 X=160:Y=100:MODE3:FILL1:WIPE"t 0,9,"20 PLOTX,Y,1:J=JOY(2):REM READ PORT #2"~ 0,10,"30 IFJX=X+1:Y=Y-1:REM UP/RIGHT 0,17,"100 IFJ=10THENX=X+1:Y=Y+1:REM DOWN/RIGHT"K 0,18,"110 IFJ=16THEN:MODE0:CLS:END 0,19,"120 X=X-(X<0):Y=Y-(Y<0):X=X+(X>319):Y=Y+(Y>199)" 0,21,"130 GOTO20" 0,23,"PRESS ANY KEY TO START DRAWING, WHEN"USTOM CHARACTERS!"Z 0,4,"TO CREATE CUSTOM CHARCTERS YOU MUST"Cd 0,5,"FIRST MOVE THE CHARACTER SET TO ANOTHER"vn 0,6,"2K BANK, THEN COPY THE CHARACTER ROM TO"x 0,7,"RAM. THE FOLLOWING LINE ACOMPLISHES" 0,8,"THIS:":0,10,"CSET4:DOWNL)10" CHAR0,"I",BIN("(34)B$(34)")":  0::20,20,39,24! 15,2,"WINDOWS!"U 0,4,"THE WINDOW COMMAND IS USED TO DEFINE A"" 0,5,"WINDOW:":0,7,"WINDOW20,20,39,24", 0,9,"YOU CAN FILL A WINDOW WITH A CHARACTER"6 0,10,"USING T! 0,5,"FORI=1TO4:FORJ=1TO10:SCROLLI,1:PAUSE25:NEXT:NEXT"! 0,2,39,6:05! I14:J110:I,1:25::>! 0:[! 12,2,"PAGE FLIPPING!"! 0,4,"YOU CAN EASILY FLIP BETWEEN FOUR SCREENS"! 0,5,"IF YOU USE THE FLIP COMMAND. YOU MUST"S!"" 0,4,"FINALLY, THE RASTER COMMAND SETS UP"*#& 0,5,"A ROUTINE TO DIVIDE THE SCREEN IN THREE"S#0 0,6,"DIFFERENT MODES. FOR EXAMPLE:"#: 0,8,"RASTER113,177,49,0,6,15,27,91,27,8,8,24,4,6,4":0#D 0,10,"THIS MAKES THE TOP OF THE SCREEN BL$ 0,16,"CAPITAL LETTERS.":0,18,"ISN'T IT GREAT?" % 113,177,49,0,6,15,27,91,27,8,8,24,4,6,4N% 0:113,177,49,0,0,0,27,27,27,8,8,8,4,4,4% 0,20,"OR HOW WOULD YOU LIKE TO MIX TEXT AND"% 0,21,"HIGH-RES GRAPHICS? IT'S SIMPLE:"% 0,23,"RAS& 0:113,177,49,0,0,0,27,27,27,8,8,8,4,4,4& ' 0,2,"YOU CAN COMBINE THE POSSIBLE PARAMETERS"I' 0,3,"TO GET SOME FANTASTIC RESULTS."z' 0,5,"THE ONLY WAY TO GET OUT OF A RASTER"'* 0,6,"IS TO USE ANOTHER RASTER COMMAND OR TO"'4 0,7,"0:SCREENS B,P,W"7 gL(N$):J1L:849J,((N$,J,1)):X l780,L:781,82:782,3:65469m {251,59:252,147 780,251:781,124:782,159:65496 ST700 "SCREENS B SAVED": :  *** READ ERROR CHANNEL *** 15,8,15 15,A,A$37783,37784,238,37824,37825,227235\ 238,37861,37862,141,37869,37870,141,38076,38077,228135 142,38082,38083,143,38086,38091,222,40826,40827,234502 : S *** SAVE SCREENS B *** X"SAVING SCREENS B" ]780,8:781,8:782,255:65466 bN$3d KW$(255),HX$(255),CD$(255),OP$(255),AR(255)XnBL8:BK0:53281,BK:53280,(BK)x" LEASE WAIT ONE MOMENT..."X0255:HX$(X),OP$(X),AR(X):X128202:KW$(X):X0160:CD$(X):: 4420 X3295:KW$(X)CD$(XB1(A$(0)):ST04450`AR(VL)2 1150?j#8,A$:B1(A$(0)):ST04450dt#8,A$:B2(A$(0)):ST04450~1,HX$(VL);" ";:AR(VL)01," ";AR(VL)11,HX$(B1);" ";AR(VL)21,HX$(B1);" ";HX$(B2);" "; 56H)11," NDING ADDRESS = #"SAPC" =$"HX$(H)HX$(L): 4450J #8,A$:VL(A$(0))ZST04450r>1,CD$(VL);:PCPC1HK$:K$" " 870RK$:K$(13)K$"+"K$"Q" 850\K$"Q" 4450]K$"+"7000f 780p::"O YOU  (13)&Z1,(13)"NDING DDRESS =#"PCSA" =$"HX$((SAPC)256);Td1,HX$((SAPC)256(((SAPC)256)))(13)_n 4450mCD$(0)""u:#8,P1$,P2$,L1$,L2$:ST04450LI256((L2$(0)))(L1$(0)):QM01,((LI),2,((LI))1)" ";  1,:1,"ILENAME:=>";F$:1,K 1," TARTING DDRESS= #"SA" =$"HX$(HI)HX$(LO)U :: "ELECT UMP TYPE":"1> EX UMP":"2> UMP":"3> ISASSEMBLY" "4> ASIC " A$:(A$)4(A$)1 450 PC0 "" A$"2" 780??",0"0"," $21",2"0"," $21",2#"0","???",08"10"," $0",1Q&"11"," ($1),",1c0"12","???",0u:"13","???",0D"14","???",0N"15"," $1,",1X"16"," $1,",1b"17","???",0l"18","",0v )::KW$(255)""; OF$F$:" IXTER":::V "NTER ILENAME--";F$y F$""F$"."".. EADY.": F$"$"300 OF$F$ 240 "HAT IS ITS FILETYPE (/)"; T$:T$""T$""T$"S"T$"P" 230 T$""T O$OP$(VL):(O$,1,1)""(O$,1,3)"" 1250*X1(O$)[(O$,X,1)"1"(O$,X,1)"2"1,(O$,X,1);z(O$,X,1)"1"1,HX$(B1);(O$,X,1)"2"1,HX$(B2); 1310B1127B1(256B1)X1(O$)(O$,X,1)"0" ,B,C A,A$,B,C 15:235\ 238,37861,37862,141,37869,37870,141,38076,38077,228135 142,38082,38083,143,38086,38091,222,40826,40827,234502 : S *** SAVE SCREENS B *** X"SAVING SCREENS B" ]780,8:781,8:782,255:65466 bN$WISH TO CHANGE TARTING":"ADDRESS (/)?"HzA$:A$""A$"Y"A$""A$"N" 890`A$"N"A$""1000:::"NTER THE STARTING ADDRESS IN""DECIMAL.""#=";S$S$""1000SA(S$)*************************** A$"3" 880 A$"4" 1441A :TMBL(((SAPC)BL)):TMSAPC 610j D1,(13);:H((TM)256):LTM(256H) N1,HX$(H)HX$(L)"->"; XNM1(SAPC)TM:1,"-- ";: b#8,A$:VL(A$(0)) lST04450 v(SAPC)BL((SAPC)BL) 690#8,A$:ST04450)VL(A$(0)):VL01,(13);:QM0: 1490?VL34QM(QM0)g,1,CD$(VL(QM1));KW$(VL(QM0));~6G$:G$" " 1630@G$:G$(13)G$"Q" 1600JG$"Q" 1630T 4450^ 1520h 4450r 4490:1:$""T$((T$)128)M " OW OPENING FILE->";(34);F$;",";T$;(34);""V BL8~ "S THIS ALL CORRECT? (/)"; A$:A$""A$"Y"A$""A$"N" 280 "A$""A$"N"F$"": 180 ," END OUTPUT TO THE ӒCREEN OR ВRINT1,(O$,X,1);: 1300 PPPCSAB12< 1,HX$((PP256));HX$(PP((PP256)256));B_PCPCAR(VL)1:B10:B20v(K$:K$" " 13502K$:K$(13)K$"+"K$"Q" 1330<K$"Q" 4450=K$"+"7000F 1050P: PCPC1:1,"19"," $21,",2"1","???",0"1","???",0'"1","???",0?"1"," $21,",2W"1"," $21,",2i"1","???",0"20"," $21",2"21"," ($1,)",1"22","???",0"23","???",0"24"," $1",1"25",1,(13);(13);"TARTING DDRESS =#";K1,SA;" = $"HX$((SA256));HX$(SA((SA256)256))X1,(13)aPC0l#8,A$|$ST0445081,(13);:H((SAPC)256):LSAPC(256H)B1,HX$(H)HX$(L)"- ";LVL(A$(0))VAR(VL)1#8,A$:K$:K$" " 670/K$:K$(13)K$"+"K$"Q" 650AK$"Q" 4450SK$"+"70001,(13);:H((SAPC)256):LSAPC(256H)1,HX$(H)HX$(L)"->";1,HX$(VL)" ";:PCPC1 610PCPC1:1,(13);:H((SAPC)256):LSAPC(28:15:|"00","",0"01"," ($1,)",1'"02","???",09"03","???",0K"04","???",0`"05"," $1",1u"06"," $1",1"07","???",0"08","",0"09"," #$1",1"0","",0"0","???",0"0","?ER"+ 6A$:A$""A$"S"A$""A$"P" 310O @A$"S"A$""DV3:WD40: 340^ JDV4:BL16k T15,8,15 UF$"$"8,8,0,"$0":360 ^8,8,8,F$","T$",R" h1,DV,7 r#8,LO$,HI$:HI(HI$(0)):LO(LO$(0)) |SALO256HI  4490" $1",1"26"," $1",1 "27","???",0 "28","",05"29"," #$1",1G "2","",0Y*"2","???",0o4"2"," $21",2>"2"," $21",2H"2"," $21",2R"2","???",0\"30"," $0",1f"31"," ($1),","3","???",0# "4"," $1",1# "5"," $1",1$ "6"," $1",1&$ "7","???",08$ "8","",0N$ "9"," #$1",1`$ "","",0r$* "","???",0$4 ""," $21",2$> ""," $21",2$H ""," $21",2$R "","???",0,",2 h "7"," $21,",2 r "7","???",0!| "80","???",0(! "81"," ($1,)",1:! "82","???",0L! "83","???",0a! "84"," $1",1v! "85"," $1",1! "86"," $1",1! "87","???",0! "88","",0! "89","???",0! "8", 8","",0&V"9"," #$1",1&`"","",0'j"","???",0't""," $21",23'~""," $21",2I'""," $21",2['"","???",0p'"0"," $0",1'"1"," ($1),",1'"2","???",0'"3","???",0'"4","???",0  "58","",0 "59"," $21,",2 "5","???",0" "5","???",04 "5","???",0L "5"," $21,",2d( "5"," $21,",2v2 "5","???",0< "60","",0F "61"," ($1,)",1P "62"," $1",1Z "63","???",0d "64" 2)""," $21",2)"","???",0)"0"," $0",1*"1"," ($1),",1%*"2","???",07*"3","???",0I*"4","???",0`*"5"," $1,",1w*"6"," $1,",1*""7","???",0*,"8","",0*6"9"," $21,",2*@" 1p"32","???",0z"33","???",0"34","???",0("35"," $1,",1?"36"," $1,",1Q"37","???",0c"38","",0{"39"," $21,",2"3","???",0"3","???",0"3","???",0"3"," $21,",2"3"," $\ "0"," $0",1$f "1"," ($1),",1%p "2","???",0%z "3","???",0/% "4"," $1,",1F% "5"," $1,",1]% "6"," $1,",1o% "7","???",0% "8","",0% "9"," $21,",2% "","",0% "","???",0% """,0! "8","???",0! "8"," $21",2" "8"," $21",2'" "8"," $21",29" "8","???",0N" "90"," $0",1g"& "91"," ($1),",1y"0 "92","???",0": "93","???",0"D "94"," $1,",1"N "95"," $1,",1"X "96"," $'"5"," $1,",1'"6"," $1,",1'"7","???",0("8","",0)("9"," $21,",2;("","???",0M( "","???",0_("","???",0w(""," $21,",2((""," $21,",2(2"","???",0(<"0"," #$1",1(F","???",0n "65"," $1",1x "66"," $1",1 "67","???",0( "68","",0> "69"," #$1",1P "6","",0b "6","???",0y "6"," (21)",2 "6"," $21",2 "6"," $21",2 "6","???",0 "70"," $0",1","???",0*J"","???",0*T"","???",0+^""," $21,",2+h""," $21,",2++r"","???",0u+|"","","","","#","","","","",""+"","","","","","","",""," $21,",2"3","???",0"40","",0 "41"," ($1,)",10 "42","???",0B "43","???",0T$ "44","???",0i. "45"," $1",1~8 "46"," $1",1B "47","???",0L "48","",0V "49"," #$1",1` "4","",0j "4",""," $21,",2% ""," $21,",2& ""," $21,",2& "","???",0-& "0"," #$1",1F&"1"," ($1,)",1X&"2","???",0j&"3","???",0&$"4"," $1",1&."5"," $1",1&8"6"," $1",1&B"7","???",0&L"1,",1"b "97","???",0"l "98","",0 #v "99"," $21,",2# "9","",00# "9","???",0B# "9","???",0Z# "9"," $21,",2l# "9","???",0~# "9","???",0# "0"," #$1",1# "1"," ($1,)",1# "2"," #$1",1# 1"," ($1,)",1(P"2","???",0(Z"3","???",0 )d"4"," $1",1)n"5"," $1",13)x"6"," $1",1E)"7","???",0W)"8","",0m)"9"," #$1",1)"","",0)"","???",0)""," $21",2)""," $21", "71"," ($1),",1 "72","???",0 "73","???",0  "74","???",02  "75"," $1,",1I  "76"," $1,",1[ " "77","???",0m , "78","",0 6 "79"," $21,",2 @ "7","???",0 J "7","???",0 T "7","???",0 ^ "7"," $21","","","","","","#","","","",""R,"","","","","","","(","","","(","","","","+","-","*","/","^","","",">","=","<","","","","","","???",0t "4"," $21",2~ "4"," $21",2 "4"," $21",20 "4","???",0E "50"," $0",1^ "51"," ($1),",1p "52","???",0 "53","???",0 "54","???",0 "55"," $1,",1 "56","Ҡ$1,",1 "57","???",0  " 53282,15:53283,1I""(8):53280,0:53281,0:53269,0s"HANGER 14" ONE MOMENT LOADING DATA...":121CD1:HI00009791 104:TI$"000000 X0:V,X:Y123:V1,Y:V21,SP:X<>",.00,,,"<>","<>",,,,C0:,,,,,,," "}0DX161191:CD$(X)"."::X192223:CD$(X)CD$(X96):0NX224254:CD$(X)CD$(X64)::CD$(255)" 2040,254:22% A1A2:2040,255:227 2040,254:A1S L25,26,27,28,29,30,31] H64e 12o 32:y 40: 37: 43:32: 32:37: 37:43: 46:32:37: B34 !B1:C255:V2,C:V3,122:75:V21,SP2! " ","","","","","",""-"","","","","$","","","$","$"1-"$","$"{-".",".",".",".",".","",".",".","","","."-.,.,"",,.,.,,,,"170X196)H1 - .J+ /(X87X106)H11 0G 1YYU:Y111UUb 2Y123Y123:J0:U3:~ 3X15(K4)0XX2.5: 4(K8)0XX2.5 5 6PO(1000(TI2)):L788 7V21,SP 8I14:2040,254:J1231131:2040,255:V,2@SO155:V21,SP:2040,255+AV1,Y:YY3:Y25568eBS4,32:S5,10:S6,1:S4,129:SOSO2:S1,SO:S,SOmC65DLILI1:LI0V21,12:70EH0:J0:86:10FG$"REVO EMAG":I110GJ1(24I):""J)" "(G$,I,1);::H"   ":D$(3)"  =eD$(4)" ":D$(5)"ifH$" H A N G E R 1 4 gS54272:ISS23:I,0::S24,15:hW$"iW1$" ":CD$(126)""0XCD$(13)(13):CD$(34)(34):1b:" ND OF ILE, PRESS ANY KEY":1:8:15!1cCD$(0)"."01l198,0:A$L1vA$:A$""A$"" 4470V1 180k115,ER,ER$,TR,SC1ER0"ISK RROR":ER"--"ER$" AT "TR","SC:1:8:15:SC$SC$A$:7);SC$!P"";TQA$((LE),2,((LE))):LE$("000",4((LE)))mRLE$LE$A$:22);LE$S"";TA$((HI),2,((HI))):HI$("000000",7((HI)))UHI$HI$A$:34);HI$:VLI$" (<>".".",".",".",".",".",".",".","","","",""E." ","!","'","#","$","%","&","'","(",")","*","+",",","-",".","/"z.0,1,2,3,4,5,6,7,8,9,":",";","<","=",">","?","@"."A","B","C","D","E","F","G","H","I","J","K","L","M115:2040,254:V,X6 2040,255::Z(V30):Z(V31)@ J16_ X15((56320)4)0XX4y ((56320)8)0XX4 ((56320)16)0K(56320):J1:2040,255:49 X25054 V,X:V1,Y J49:22 P(56320):J0(P4)4(P8)8" PRESS FIRE BUTTON TO BEGIN B_((56320)16)0V21,0:"":I1500::J`95aV53248:X0:Y123:V,X:V1,Y:L1:LE1:SC0:LI2:A1:DO1:J0:U3bB0:H0:C255:SP13cP$"   dD$(1)"    ":D$(2)CC7:C0V21,SP:B0:C255:V2,C:J #V2,C:(V30)3H1:C255:V21,SPP $ %""18)D$(D):DDDO:D6D0DODO &(V31)1H1 ' (J )(X87X106)(X144X161)(X196X219)H1 * +J ,(X97X124)(XW11ST64ST0 445011X1:DV4DV3:1,DV,1:1YDV4:1,DV,1:,,,,,,," "}0DX161191:CD$(X)"."::X192223:CD$(X)CD$(X96):0NX224254:CD$(X)CD$(X64)::CD$(255)"55. 9V1,J::76:J113123:V,255:V1,J:::XX255f :V16,5:I175:V,I:V1,123:2040,255:2040,254:z ;V21,0:V16,4 <"":LELE1:LL1:L7L1 =J0:PO0PO0 >SCSC100PO:SC1000((SC1000))LILI1:86 ?I1500::9","N","O","P"/"Q","R","S","T","U","V","W","X","Y","Z","[","\","]","^","_","-"I/"","","","","","","","","","","","","","","",""v/"","","","","","","","","",""/&.,.,.,.,.,.,,.,.,.,.,.,.,.,.,.,.,.,"<>","I12000::V21,0:"":I1500:'ISCHIHISC.J7aKS4,128:S5,12:S6,10:S4,33:S1,2:S,2:LS4,16:S5,12:S6,10:S4,33:S1,05:S,200:M"";NA$((SC),2,((SC))):SC$("000000",7((SC)))O .j""W$;W1$;W$"";W$;W1$;W$;W1$;W$;W1$;W$;W1$kk"   l"SCORE: LEVEL: HSC:mTS1TS0:n""9)" H A N G E R 1 4oCDCD1:53282,CD pL W""(LI$,LI2)" ":ZXV21,SP:V1,123:I15:X2030.5:V8,X:Y76:X3020.5:V8,X::76::SCSC2000ZV21,0:60[TS1:104:V21,12:""9)" H A N G E R 1 4\77]XL11000:^ @ 0,1:4,1:XO1:(27)(88)(147)(142)(11):5,15:1,0,5i4)" î4)" D A R K F O R T R E S S (4)" BY CLEVE BLAKEMORE 24)" <4)" (C)1986 C. )254:1,(1)251"zI0511:12288I,(I53248)::1,(1)48{56334,(56334)1`|53272,((53272)240)12:53270,216}I047:Q:VUVUQ:12808I,Q::VU3518156~Q0:I2552501:J062:Q:I64J,Q:FVFVQ::FV17595157 BY .... ":= A$(69),L$(29),O(29),D(29,6),BO(15),M(29),W(18)B1:N18:TS1:L(1).:L(2)L(1):H(1)10:H(2)H(1):S(1)128:S(2)S(1):T(1).:T(2)T(1):G(1)200:G(2)G(1):P.:P(1)1:P(2)2:C(1)21:C(2)C(1):B(1).:B(2).CD$(17):CU$(145):HI$" ,0,0,0,0,0,0,0 16,56,16,120,88,72,120,48*66,66,66,66,66,66,66,66H66,66,66,66,66,66,66,1260,20,0,0,30,0,0,56,0,0,56,0,0,30,0,0,12,0,0,30,0,0,55,0,0,119,0,0,1150,0,62,0,0,4,0,0,10,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 MAINLOOP Z12A ""(7):1,6,24:" LEASE WAIT LAYER #";3Z; (27)(88)(14)(11);:1,6,24:" OUR URN LAYER #";Z; CLC(Z):LL(Z):SS(Z):GG(Z):HH(Z):PP(Z):TT(Z):THT(Z):HH.2 660 B1:N18:TS1:480 I7640:0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0K0,0,0,0,20,0,0,8,0,0,8,0,0,8,0,0,8,0,0,8,0,0,20,0,0,340,7,255,224,15,255,240,15,0,240,14,0,112,14,0,112,14,0,112,14,0112,7,0,224,3,129,192,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,00:HHY: 6:670>"@I((1)(Y50)):GGI:"OU FOUND";I:"OLD PIECES!""JY7O(CL)O(CL)B(3P):LLB(Z):780:"HE BAGWOMAN DROPPED ALL HER CONTRABAND.": 5"TY0"^#hYY8(1).2Y10((LBO(1)).1)780:"!!TRUCK BY ";A$(42Y,3,231,192-3,255,192,3,255,192,3,36,192,3,36,192,3,32,192,3,32,192,3,60,192,3,60e192,3,255,192,3,255,192,0,60,0,1,255,128,7,255,224"ERROR IN DATA STATEMENTS 132-137":"ERROR IN DATA STATEMENTS 138-"0,0,0,0,0,0,0,0,0,0,0,00:210$ ** MENU SUBROUTINE **6$ RETURNS VALUE CHOSEN IN "I"R$ FIRE BUTTON TO CHOOSEd$0,5,16,23,1p$(19);$IBN:TS);OF$;A$(I):$(19);:IB$TS);HI$;A$(I)$A$""$J(P): JOYSTICK PORT$&J128$0J5A113,114,115,116,117,118,119:77:86:qSP13:=r""10)P$3)P$3)P$:Csdt""12)P$5)P$:juv""12)P$5)P$:w""10)P$:V16,20:SP29:CD2:xy52,48:56,48::56334,(56334M.BLAKEMORE 8F4)" aP4)" DOUBLE SCREEN GAME FOR Z4)" C128 REQUIRES 40 & 80 COL d4)" MONITORS AND TWO JOYSTICKS n4)" ýx""10)" PLEASE STANDV53248:V4,25:V5,97:V16,20:V40,5:V41,15JV42,2:V43,7:V6,36:V7,172:V8,20:V9,117V23,0:V29,9:2040,255:2041,253:2042,252:2043,2512044,250:6170,149,149,149,149,149,149,128170,84,84,84,84,84,84,00":OF$""rX151:A$(X)::X022:L$(X)::A$:X2329:L$(X)A$::X029:J16:D(X,J):J,X:X014:BO(X)2X:X029:O(X)::X022:M(X):TRBO(0)BO(1)BO(6)BO(8)BO(13):PSBO(8)1(147)(14)(27)(88)(147)(14)(11) 0,0.0,10,0,0,30,0,0,56,0,0,56,0,0,30,0,0,12,0,0,30,0,0,55,0,0,111,0,0,119w0,0,62,0,0,8,0,0,20,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,17,16,42,170170,4,68,0,0,290:!I6810,840,890,960,1080,1150,1280,1390,1520,1670,1730,1860Y!"(M(CL)(BO(9)1)):380!,Y0:X08:M(CL)BO(X)YX1::Ղ"6IM(CL)BO(9)1:Y(THI(THT(3P)ICL(3P))):M(CL)M(CL)(BO(12)BO(13)BO(14)):A$(42Y);" KILLED!":TH,0,0,0,0,0,0,0,0,0,0,0,0,28,166,1924127,255,254,255,255,255,146,73,37,255,255,255,255Y255,255,192,127,255,213,127,255215,127,255,209,124,33,192,124,33,255,252,169,255,252,330,24,0,0,60,0,0,126,0,0,255,0,1,231,128,3,195,192,3,195,192);"!":HHY:Y7LB(Z).B(Z)B(Z)L:L0"#rw#|H0CL:"OU HAVE ...":(M(CL)(BO(7)1))" BY THE ";A$(42Y);"!"#CL0:Y0: 7:670:#C(Z)CLTH0#C(Z)CL:L(Z)L:S(Z)S:G(Z)G:H(Z)H:T(Z)T:T(Z)TH#Y0##TH $CD$%:J1A$CU$%DA$CD$A$CU$5304%NCU$;TS);OF$;A$(I)O%XA$CD$II1:IN510s%bA$CU$CU$CU$;:II1:IB510|%l520%v MOVE%D(CL,I)CLD(CL,I):670:TH0:%780:"OU CAN'T GO THAT WAY!":% LOCATIONU&(LBO(7 11)):M(CL)(M(CL),BO(14)):"LICK....";A$(30): 3F7(M(CL)BO(14))"ROPHY CASE CLOSED...": "ROPHY CASE OPEN..."L7S77CL9CL18CL2CL3CL20CL21"OU DON'T HAVE THE RIGHT KEY.";(13);"EEP OOKING!":: "NLOCK WHAT?!?": :'X08:(M(CL)BO(X))"*** HERE IS A *** ";(13);HI$;A$(43X);" HERE!"l':CLC(3P):HI$;A$(40(3P));" IS HERE! "'O(CL).(M(CL)(BO(9)1))0"OTHING....":: ' WINDOW ONE'0,0,39,4,1:' WINDOW ONE W/O CLEAR (  I52)SSBO(W(I52)1):W(I52)1200,1210,1220,1230,1240,1250,1260,1270&00M(CL)(1).9M(CL)(M(CL)(BO(9)1)):"EAR PELL CAST...!!!"::ՙ"PELL FIZZLED....":0"EALING SPELL CAST...":HH10:0THTH100:"!!AGIC IS