DĎb@?```8``|8a`????????8I#qXHHςpHHp!!? | !! '%  K  Ƈ0x?<. A0A1:"PEEDWAY",8,1* 49152 eg DD((DDDD  !! ?aaa```aa`8????????0IIx Xqxx<<<<<<<<<|>><||?PcefRSWX ? ????? qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ???????xxxxxxxχ?  >> ?~ >|x????????" "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?????xxx~ ?IIIIIy$$$??{3?????????8,$$, qIIqQ$$D0$y? !!!ఘ```aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr????>< : 10)"  "%12)"  ":10)"  "U10)"  ":10)"  "10)"  ":10)"  "15)"  ":1)"THERE ARE A LOT OF TRAPS AROUND HERE!!"4)"BUT I  ,0,0,0,500,46,99,32,204,27,148,5002 30,245,0,0,0,0,500,27,148,0,0,0,0,500t 24,146,0,0,0,0,1000,30,245,24,146,18,204,1000,0,0,0,0,0,0,0 TITLE SCREEN53281,0:53280,0""3)" "3)" M O  :Q11,16:Q18,16:T120:T:920I 36,208,0,0,0,0,500,36,208,0,0,0,0,500,30,245,0,0,0,0,500 36,208,0,0,0,0,500,41,83,30,245,24,146,500,36,208,0,0,0,0,500 30,245,24,146,18,104,1000 30,245,0,0,0,0,500,27,148,0,0,0,0,1000,46,99,32,20  JK$:JK$""525 P$:P$""530#P$"Y"545)a!TM1000:MS0:CS0:LP0:V23,0:V29,0:V21,0:100t SET TRAPS "":X122:2)" ":*L((9)10)154X0L:H((5)7):CO((9)5"31)CS:V21,0:1506K41:420:MSMS10:""21)MS:V21,0:150lL024:QL,0::Q24,15:Q5,80:Q6,243:Q3,7T50171:Q4,65:VK,2:Q1,T:DR120:DRVK,1:DR110:DR:T:Q4,64:LP0: GAME OVER50432,0:""W133705`V21,6:L024:QL,0::Q24,143:Q5,16:Q19,16LbQ6,252:Q20,249cT010:2041,193:Q4,21:Q18,17:Q1,68:Q15,42dI0100::2041,192:Q4,20:Q18,16:I0100::TfMSMS10:""21)MS:V21,0:LP0:150rV21,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,0,0,7,255,192,6,255,224,7,254,112i! 7,254,112,7,59,240,7,63,240,7,255,176,7,255,240,5,231,144! 7,231,144,3,253,240,3,255,240,0,0,0,0,0,0,0,0,0 1,248,252,1,255,252,3,255,192,3,255,19247,128,0,99,0,0,30,0,0,55,07s 1,255,0,0,255,28,0,7,144,0,5,156,0,5,132,0,12,132,0,15,196,0,15,196]x 0,25,252,0,59,128,0,0,0,0,0,0,0} 0,0,0,0,0,0,7,248,0,4,8,0,6,8,0,2,0,0,3,0,64,1,0,120,1,240,108 1,248,252,1,255,252,3,255,192,3,255,192,197,76,17,199,120,169,192,141,20,3,169F 198,141,21,3,88,96+K SPRITE DATAsP 0,0,0,0,0,0,0,0,0,0,198,0,1,239,0,1,239,0,0,198,0,0,120,0,0,236,0U 32,255,128,56,255,0,9,224,0,57,160,0,33,160,0,33,48,0,35,240,0Z 35,240,0,63,152,0,1,273,16,208,13,80,197,141,16,208,76,43J# 199,173,16,208,77,80,197,141,16,208,189,0,197,157,0,198,76,97,199,222( 0,198,208,40,254,255,207,208,29,173,80,197,45,16,208,208,12,173,16- 208,13,80,197,141,16,208,76,91,199,173,16,208,77,80,197,141,16SURE DO LOVE THAT CHEESE!!"900*6)" PLEASE WAIT..READING DATA "GX5088051116:A:X,A:qX5043350438:X,0::50432,0:51104X1228812670:A:X,A:  169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0,197,157,0,19U S E I N T H E H O U S E "03)" ":[16)"  ":15)"  "15)"  ": 16)"  ":17)" "16)"  ":16)"  "10)"  "4,27,148,500 30,245,0,0,0,0,500,27,148,0,0,0,0,1000^ 36,208,0,0,0,0,500,36,208,0,0,0,0,500,36,208,0,0,0,0,500 30,245,0,0,0,0,500,36,208,0,0,0,0,500 41,83,30,245,24,146,500,36,208,0,0,0,0,500,30,245,24,146,18,104,1000 27,148,0)>S$(CO)S(H))A$:H MUSIC:X024:QX,0::Q24,15[Q6,240:Q13,240:Q20,240}N1,N2,N3,N4,N5,N6,DR:N10Q1,N1:Q8,N3:Q15,N5:Q,N2:Q7,N4:Q14,N6Q4,17:Q11,17:Q18,17:Z1DR4:Z Q4,16:V21,0:53281,0:53280,0=V23,6:V29,6:V2,80:V3,80:V16,0:V4,255eV5,80:2041,192:2042,196:V21,6""12)"G A M E O V E R"::12)"MOUSE SCORE "MS::12)"CAT SCORE "CS::900:12)"PLAY AGAIN Y OR N" 5:L024:QL,0::Q24,15:Q5,80:Q6,243)tQ3,4ZvT08:2042,195:Q4,65:I20805:Q1,I:}x2042,196:Q4,64:I050::T|CSCS10:""31)CS:V21,0:LP0:150 SCREEN COLLISIONS50432,0W22K40:420:CSCS10:",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,,3,255,192,7,255,192  7,192,224,7,240,124,7,240,60,0,0,0,0,0,0,0,0,0,0^  0,0,0,0,0,0,0,31,224,0,16,32,0,16,96,0,0,64,2,0,192,30,0,128  54,15,128,63,31,128,63,255,128,3,255,192,3,255,192,3,255,192  3,255,224,7,3,224,62,15,224,60,15,224,20,0,0,0,0,0,0,0,0._ 0,0,0,0,0,0,0,0,0,0,198,0,1,239,0,1,239,0,0,198,0,0,120,0,0,236,0wd 32,255,128,224,254,0,129,236,0,225,166,0,33,163,0,33,48,0,35,240,0i 35,240,0,63,224,0,0,112,0,0,0,0,0,0,0,0n 0,0,0,0,0,0,0,0,0,0,99,0,0,247,128,0,2,208'2 189,0,197,157,0,198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0n7 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0,198,208< 9,254,255,207,189,0,197,157,0,198,202,76,233,198,169,255,221,255A 207,240,3,76,43,199,173,80 8# 202,208,247,162,1,169,1,141,80,197,173,80,197,45,0,197,240,3,76m 243,198,232,232,14,80,197,208,238,76,49,234,169,0,29,0,197,208,3,76 97,199,169,128,61,0,197,240,48,254,0,198,208,40,222,255,207,76,144 199,80,197,45,16,208,208,12,1 uulB6PmoVuu]uu]uu ]uuu_R2]u9VZ[\u^uu                            K)|zȄFFz) uKL`|FFȱ|8 ɑ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_ ********************= *MOUSE IN THE HOUSE*[ * BY JC HILTY *y( ********************2V53248:Q54272:CS0:MS0:LP0:TM1000<1200FS$(4),S(6):S$(0)""PX14:S$(X)S$(X1)"": ZX06:S(X),11:V41,6:2040,197:2041,192:2042,196H X5043550438:X,0::50688,6d Y((9)140)80:V1,Y V0,255:V2,58:V3,76:V16,4:V4,46 V5,76:V21,7:50432,6 W1(V30):W2(V31) MAIN LOOP JY(56321)15" JY7/ JG1150437,255:50438,0:50688,4:2042,196:220Z JG1350437,0:50438,1:50688,4:220 JG1450437,0:50438,255:50688,4:220 TMTM1:""6)" ":""5)TM:TM0500 LPLP1:LP50V39,5 LP70 300 W1(V30):W1Y ON THE COMMODORE 64. EXTRA COPIES OF THIS VERSION MAY BE MADEWITHOUT FEE. DOCUMENTATION IS PROVIDED BY THE COMAL HANDBOOK BY LEN LINDSAY, PUBLISHED BY RESTON PUBLISHING:703-437-8900 A MUCH MORE POWERFUL AND EXPANDED 2.00VERSION WITH APP. 30 K B23MK`KL383Ke3K84i1Ke3MMʈ14K3MM3`|eF}i FiF;F|ȱ|ȄF ݽ-KM-ʊMȄK`K"M3F|ȅ|M"M33"M3MKF` ,,,(,)J( JLÂL uLa,, [ u La uLv,,00 u La,,0 u LK,,0 u 0 u F|F00 L La $, ۄLa Lv $ La rLP u`ML!RW)?H#H`La ۄKFz |MFMK uLa,, [La,, La,, L u uLa rLa r uLa  r uLa rLa r uLa LaK(MMK r La r La $ ;     = =   #$  &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`0X52::A$"ߩ"2 d"":53280,0:53281,15b nX5625756294:X,2::X19852022:X,160: x1)" " X122:""1)" "38)" ": ""5)TM;15)"MOUSE "MS;27)"CAT "CS 800% V39,8:V4050435,1:50436,0:50688,2:2041,192:210Y JY1150435,255:50436,0:50688,2:2041,194:210 JY1350435,0:50436,1:50688,2:210 JY1450435,0:50436,255:50688,2:210 JG(56320)15 JG750437,1:50438,0:50688,4:2042,195:2202350 W2(V31):W21400 200J ,R(6(5)1):R302,303,304,305,306,307u -Y((6)140)80:V1,Y:V39,8:LP0: .V0,55: /V0,95: 0V0,135: 1V0,175: 2V0,215: 3V0,255: ] MOUSE COLLISION ^50432,0:^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ǃK8L hLl)͆ ) hlLlJJJJ͆ !)!hlLl) ) hlLl@ ??@@ 00 zj) & &e & & &zj)evj)emuj}jI-vj JfJfJf ؅` +< H 8h+<<<L?j  8ȥ+L-| ]C{544ݭ Э}j  Lj)ЩhЭjЩtjjj`tj5ݭ)Э)ЩЭЍjЩtjj LC > :; ?<= ?>? ?89 0Llh  LC > g}LC ,L-|y) L|y|}LS|8B@CA hh 1L-| BYTES FREE. ݽ 1` 1i 1y)y8|9}jLcC:+;,< M |N +s+t, |M |N +8+s-,t.8-.+s,t +L-| | | | |L-| |+ |, |- |.8/90/:0;'+/ȥ,//q//0,e.,+e-+LfL-|8, ? |+ |, |- |./8|9} B8|:};ˈj ٠ }ʠ }ʠ ׻ 9وψψوψIЈj Ԡ }Ϡ }٠ ׻ʈԈLx6 6L-|L|CCCCCDDDDEEEEGGGGGGGGGGGGGGGGGGNyNNNNNNOOOOOOOOOOOOOOOPPPPPPPPPyPPyPPQPyQQQQQQQQQQQQQyRRyRRRRRRRRRdRSSSSySTyyTTTTJyyyyyyyyyyyTbUjUVVVVVWWX 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/0jj`!) co! ? !؅!  ! Zo}j؅! !` k k`8vjjujjmjmj8zjjyjjmjmj``lj kв!) l) }j*͆ l) `=lLl=lH͆+=,++i+,ݥ>@?ADBECLb$BB ` =B  +7 ,. ,+ h   о  L-| | 0CLvi 4? F? L|! g}Lh o Lh|Iȱ|JI+ J,LgI- ٥J. ˁ)//IJ 0 /)  M' ȭ((/i  )/|e||}  L5g A@ H >h A 96 6H >h XXyXXXYYYZyy[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` @iAi ~d@ȥe@@iAi ~d@ȥe@@ ,@+LW@ 98)+ȱ,)@ +ȱ+,+=+, ɇ@iAi }+, ׻@iAi [YIQ@LfX+/ȱ+0ɇ0q@0/q@/+ȥ0+/@ȥ0@80@/@0 @A+Fȱ+|ȱ+}|z +ȱ+) +@AL-|1 | 98LrFA@ȱ@ȱ@ȱ@A@ 98 ȱ!  L|ȱ  :L-|,y))y |A@8)LW |FF 8eL-| 9A@8@ 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+,+  | 9 d 9L-|7)7)LPLP 9 R~ 9L-| 9 ̼ 9L-| F? !L&IA@ʈ21 <8221e1@ʆA !L&I 9 l~ 9L-| 9 9L-| 09 9 9 } } 9 9 } ̼ 09 } 9L-| 9 9 9L-| 9 k 9L-| 9 e~ 9L-| 9 ~ 9L-|Lyɫȱ8 ȥ! 8 A@A!L| .@L-| 9A@-ȱ@.ȱ@/-@A .@-!L|A Bf0 X̠ ׻ .  6~Ѡ ׻̠ } /~ ̼̠ ׻Ѡ - 6~Ѡ ׻̠ [0.8e-e/* `BLe-e.Ѡ a ?B L-|SB ?LNb 4?+ ?, q?L q?La 4? 4?A@AL-| 4?H >h L-| bL-|0YH >h Lb`,H 8hȩL-| 9 8   ׻Lc /~ ~dȥe 9 /cLRT /cLRT+$ 9 @L-|K B ` 0  8L  8ȥ  =L-|A@ A 9L-| B7) 07)7A@yvGʊIe@@AhhL|` ?L-| 9̠ ׻ @A@i@A  L-| F? @A@ie!@A !L_ + !,q@i@A+, 8 ,+,Lp^ 8 ȥ!  󥐝GLu_L|ɫȱȪަCɮL|ɭei iȱȱȄ 9 @L-|ɮL|ȱȅ+,ie@-Ai.8B-C. L|/A@@ȱ@LC\,w|e||}L-|7)L\7 7L-| 88鏑F|ȱ|L|LXy)FF)yL-| 98@A/0 [ /@0AwL-| F? +!,8-ȱ.8./-0@A+-л,.е+,Х&/ 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@ȑ@ȑ@ȑ@@A 9L| +ȱ,)@ +ȱ+,+LV+ȱ,+ + ~d+ȥe+LV+, ׻A)`,+@ȥ,@AL-| 98@LW 98@ A ׻L-|,A@8e@@ȭ@@iAiF@L|:++i-,i."- 98--i-.LuT)L(U:-;.8-<.=[-)`D)=)88-ȭ-)8-ȭ--/ȱ-00/--i-.LTBC+)5L|)+ȱ+ +, ׻+@,A) @iLPLP 4? L|G)@ 4? GL&I ?L-| B  BL-|A@@ȱ@A@L-|e@@AL-| 9 ~dL|deQ 8ePede HBe& B  B B HBe  `BLS L-| 9 ݽ Buv u HBeP  B Ѡ ׻̠ Ѡ [0Ѡ } ̠ ׻LSe. @ @Le  `BLei0 `B.. . `BL>e .@L-|H >h  F? !L|:L ȱP  L-|DȱSL-| |{H{H` |,+ȱ+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-| +/@/,/@ȥ+@-@.A =L-| 9L-|L-| ?L-| B `L-| F? ! ! !L_,K 0 Fx)H  B `L_o 2m $a  LI`` ̠ LI`:` 1L_ INPUT ERROR ,+,L8]L\y))ywA@ 8@@'A#@ȅ+@,8@@A8@,@A+AL-|y)yLC ?L-|8鰅A@8vGi@AL^@ ?i@ AL|G)@ ?@i@+-A 8- -+  󥐝G@ /+ȥ0+@ 98)ȥ/ȥ02128e/d//ȑ//ee/0ed02102L[@i@AL-| 9aLCF|ȱ|}|wL-| 9aLCLX 9aLCFLXy))yLCwF|ȱ|}|L-| | 98 ||ȱ}wL-|L| AC L|+,+ȥ,+ȥ,+ȩ+I-L-| 9 ~A@ q@+ȱ@i,d+ȥe+AL-| 9 ~A@芑@ʊ q@+ȱ@i,8e+(d+)AL|d+ȥe+()@rȱ@qA BA@Ȋ@@AL-|@-/ȱ@.00&/0 @A`] *q&r e(e)]`L|? `A@vGI@AL|@ ?ȱ@,ȱ@A+ G)@L|+ ,AK KLK K, + 󥐝G `M|}y)y|Iȱ|Jȱ|zȄFwF|FL #.+# .+# A@ȥ-@ȥ.@ȥ/@A` 0- `/ `-. 9A!@ ! +!, ;-= /~ ~. edLnAeeedLnA8edLnA. .a }LgAa } ׻+8@vG@AA@A`  + + ȱ+! +ȥ!++i,i 5+`F|Șe|}ieFȱ|ȄF > `΅υ` c͝`889  `  e8e9` 9 ~dL|e`A@ ȱ@!8@!@A A@@A`L|B` 9@ȱ ȱ1310ȱ1q1!1q1 ! ! 3 йȥ!3а1 ȱ1!1e31e4i` F?A@ (@ 98+ȱ,)@ +ȱ+,+ AL|@+ȱ@,@3ȱ@4ȱ@1ȱ@2A@A8e@@A12L>2e4.1e3-(J 9 09 }af0%LPLP8)J A@A,!+ -. - .! !!! !LO+-,.,LO A@A-. +,L&I8,.0+-/ !/ߥ-.' 1!23413!12|,/. /F/ȥ|/ȥ}/3|4}/i30i442+31%3 98ȱ3Ȋ33i34͠ /ȭ//0/)-/ȭ/ȭ/ȭ/BC/0 @@A|zLC 9 /~ ~dL|eA@ʈ+,+ ʅ ȱ!8! LK1A@ʈ21 <1+@,A 8 ȥ!ȥ ȥ!@A@e!@Ae AC  L|@B 5++,2LLLL.j L|-A@  ! ;LLA@ 4 Έ@ 98ȱ)@ ȱe22 8Șȩȑȥ1ȥ2ȩ i1i2.:6 <e!@e AC  L|@B 5+ 8 ȥ!L-| ,+1,2e++,.+ȱ+d+ L|eeȑ+LWJe8+d+8i0٠+Ȋ++,LI 8 йгȱ + L}J.J-L| 9LG-A@ʄ! ,+Ȇ@A- Q;- F :L-| /~ ~+ LI,+-i+ȱ+1ȱ+2ȱ+/ȱ+0- e/34-,3)ȱ383)3Ȇ()1r2q B2183e3dL|8e3ed30dee2+2deȥ ȑL-| 8 ȱ!)@ ȱ ! ȥ!ȩL-|,, | A9) |)K) 8ȑȑ ȱ!)@ ȱ !  ȥ! eL-|)% 8 L-|1)8LyF)8LE0fyHzH`wL-|}Fe| 9FiFL-|F|ȱ|ȄFL&I |! !i 8}|eFȅ 5+Fe!FA@ȥ!@AL-| | H:  9L-| :L-| | H:ȱ LD | A9) )),L|)@/A0 8ȑ ȱ!)@ 8ȭȥ/ȥ0ȥ1ȥ2ȭȥ3ȥ4ȩ `8@A+ȱ,8,+8-ȱ.8.-`A@ =BL:B@ ?@ A` `A@ L]BA`A@ A`@i@A`A@ F? ڠ!  q?!`+@Vȱ@Uȱ@WPSȱ@ AL|G 󥹍T 9 +` 8`A@ ?@3A L|3 `A@+ȱ@,@ȱ@-./AY B+-# ?+#-/-%+L|.-.-+ ȥ.+1+ ȥ2+͠+/ȱ+00/1/ д20-+ ȥ.+ -+ȥ.+ 3!4 3 4!+e2,e1i/0 5+ 3!47/e!/0e 084!!3 ! //0! !Lg>` + ȥ!348 !L!P !0/0L>P 9a af 9L-| LP 9 09ai 9 09aܥiʢ, @L-| =L-|,LP,LP 4?PKL-| 9 X 9L-| F? !L|@L1QL&I 9  9L-| 9 ~d,L| 8eȩȩL- ٠,d+ȥe+,L-| 9 9L-| 9 09 w~ 9L-| 9 09 ~ 9L-| 9 09 } 9L-| 9 09 ~ ̼ 9L-| 9̠ ׻ 9 9 ̠ nEfoa ~ ̼̠ } 09 } 9L-| 9 09 } 9L-| A+ ,!8 5+8@@AA,e.@+e-@AL-| 9 09 } 9L-|88@@A@ȱ@8@@A@ȱ@L|- P 8ȥȱ3ȌL4M.j L|-8@@A@@ ȱ@!- Ѕȱ3Ȍ п 8 ȥ!31ȥ1ȥ1ȥ1ȑ1ȑ11i12. AL-|3{ LL-| L|8+ +,+ȱ+ȱ+/ȱ+0ȱ+1ȱ+2ȱ+ȱ+3ȱ+43{ L|8r0LLv-L|.j 9L0KA@ʈ! - Q;+@,A A- F :L-|+@,A 9LZK ~ 8dȥe 0LL-Њ.j)8A@1+1/+.L|L-|,+8+@,ALGI. ?12&&2e1e/eȱ/e.> 9L-|2 1*/eȱ/e.ȱ 9L-| 8ȥȩL-|/ ȱ/! i( i)1r2q B12/e11ȱ/y)#L|+ȱ,+- e- i 81 -ȥ/0 8ȭȥ/ȥ00/iȐ芑ȩȥ+ȥ,ȩ L-|8 0.-@+A,.J1- 8++K,G8A+@+,@,++,A'A@A8+vG+, ȱ !  ȥ!ȩ A@ʈ21 </e!@0e A 8B@CA L| 5+ 8 ȥ!L-|, | 9 8ȥL-|L| 8 ȱ!)@ ȱ ! ȥ!ȩL-| | 98) )), |) 8ȑ ) HHHH & & & ЅiO?hhhhhj.Хltj.HMHHHHHl'wɅ kLx.Ɇ jj ɇ jjhhh@HH.HH HlHH.HH Hlhh@H ssesstL+s`0Dsmtm@m!Am C !BL08!!  e+LO,8st@m!Am 8!!  5+@m@AmA>m>?m?0# ʚL/ AT @Ae@@AAC Lz9@B`A8@`8@@A` 8 ׻` 8@A ` 8@A ` 98)V)NI B:8BBCAC  L|@BȑBB6 еuv`8u9vv0u/3)L8!`3)(3)uɜjȱucL8uv3 3uɂɃu r8Ɉ ɇ40LQ7Ɋɋ4"L8p!LQ7}!ueuuvL6/`/`+-,.7e++,,C L8+B-`ɤ= 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ȑ1L3 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 % +8 +Ms`+,F,e++,` }vuu L 1`@+A, o7128/900; L5/: a7I a7J a77)7 a7h- `8i j7 7L5 o7- 7-ȑ-ȑ-L5m( 7-L8-HH ݬ 0C ;y y>@?A k  Щ!ЩԭL/LrxU-.~..Xɠ!Щ ТS 1B< 1詇 1 1 ,6 LC  <mieL,`Q89:;<=R>?@AQBCDE7w ktjjjjjjy`  7 7) Ʃ wL2.L'.j}jtjΝjީjH) O؈/0'12a$ +/0 o/102L+oL+ a +12 `L'' ` !%Ie!e!`e e  ! `8s9tt;2s:,Ms# ȭN&&&''''''''''''''$'((TT8{8SpHxbNG/-!D Q g6J8ۅW2ZP.8{A.b2GGG6 Dx',R](D`&&&&-@EXk 6) 6)6L:6) L)6) 6) 6`! ȱ L;8`8 !L;L| &! 98ȱ)@ ȱ` !  `L|12 )1 983ȱ4)@ 3ȱ343 L|1413Ȅ1ȱ13 ȱ3!3i4i`1L|3ȥC`` A9)IeBBCAC @BLz9 ȥBȥCiȱi`))L|`)8`ة` A9) L|)L|)"ȱ)@ ȱ`8 8,.+7-.7-L8`/-ȥ0-ȥ-`-ȱ-ȱ-e/ȥ/Ȧ/-ȥ0-Ȋ-`-ȱ-ȱ-Ȅ /ȥ0`8+7+,`8&&ee:e;`/u0vu r8``qu` ɬɭɮ`5ɞL8ɝ a7 98,3 54 h7L57)LZ1/e//0L81 7 ,8`4 !3)3)L6/u0vv; u:L83)uɜ ȱulL8uɂɃu r8Ɉɇ 0L6L8Ɋɋ (4 L6p!L6}!0ɠueuuvL- h7L3-L83-- h7- h7 8 ,8L5ɕ  o7 7L5" 7 `8ɖ- h7- h7 ,8L5ɗ `8ɘəL5 o7 7L5ɛ 7 8- h7- h7 ,8L5ɜ a7 98L8ȥ/ȥ0L5ɡ. `8ɢɣ8颅3 o7-ȥ3- 7-L5 8 7 `8i 7L5n' 7-L8- 8 7-L5oA 7 8-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5p G,p4843 7 o73- a7- 7- 98L83iȥ/ȥ0L5} 2L8L%3 2},484 m  }w {Ʃ ,0 7)7O6) 0L/&6)6MNOP LC =B  L/ ? B  A0 v0 9`ֹ0`'х ) ؅!љň 툩 ѭ `)"'х ) ؅!ňѹ툑 ` `JL*`M`L09`*ʆ9`2`ʆ`,,,,,:,;L- kb %  F 2- i+ + +  + ` P 1- h`+"--L L0  L 0 L  +  ,0 ~ )HH`L+,L-L,+ U L=+ܥ,J ,JLw+ʥ,Jп+й,еж,Э+ЧLR.1CYk|1.  L i L L-L  L i  L L 5*   L  L   L~ JJJJ+~ JJJJ+   L , L   L    i  L L  Jii   `   JL* ?>ʈts,+ +u++I+ʆӥэҍ 8(Ӱ+wx+ƥ   9  ,0LERROR  ^ `6)-`H6)$H h `7,8,9,6L Fɀ`6)` Lڭ  `   LuЪ` (.3?Qn,:s{,225+ FL0 ~ )+  +HH` LL*L L;Zds  `{M 8M`8LF8LL3 J  `   L  J` 2L s  q   о 2L  Jii+  ,   , 5)+i+{8&,L, ,+ , `5)L   Jh `G   J LL*   ~ )    ) )ʩ 0+  e+gHH`L'<,L  L ޥL i 0i  L 8cL      5){Le   e L8`s )   ) )2 sL)3 s )   ) )4 sL)5 s )   ) )6 sL)7 s )   ) )8 sL)9 s ) ): sL);L&< s ) )= sL)> s ) )? sL)@ s )   ) )A sL)B s )L)D s )L)F s ) )G sL)H s ) )I )6) moЋ/ )/`    Jߩ,L!6) )l,~3 з3,L! F s  JL' ), sL) ) sL) s )   )   )   ) ) sL) s )   ) ) sL) s ) ) sL) s ) L!VZ[, )  ]  ),L!  L'    )   L) )  )L! )L! k bб #   a L)  L) k  *L#, k a* L*L),3  *  e3 k0u bC  /m@/o/ `/M  L8!a /8  L8!bL'/  5* uL ɀߩLk  ) 5 5JL'i u LZ!ɀ穳,  )L)  /1 )/ 5 5/"kJ J  ) I )  6 6 RL) L! d c dL'  XL) XL!6) V/  cFfB8c1i  0 s- )k )0Mu LptL' 11v ) L0M֥/ /u 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 :  `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 0F0,22,173,,11,86,128,239F002,189,64,3,195,192,2,189F064,2,195,64,3,189,194,2F195,65,3,189,193,2,67,67G005,166,199,10,221,74,21,106?G156,38,182,148,91,87,92,108aG171,182,87,85,202,88,169,170G103,214,106,89,69,214,39, G 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 " PLEASE WAIT WHILE COMAL 0.14 IS LOADED ";. x\ "TUTORIAL: FOUNDATIONS ... WITH COMAL" "DOCUMENTATION: COMAL HANDBOOK "NEWSLETTER: COMAL TODAY " AVAILABLE FROM: " ""; : PENCOLOR YELLOW$ " 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"  "!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"  "   (2063)L/ABSANDATNAUTOBASICCASECHAINCHRCLOSECLOSEDCONCOSDATADEBUGDELDIMDIVDOELIFELSEENDENDCASEENDIFENDPROCENDWHILEENTEREODEOFESCEXECEXPFALSEFORGOTOIFININPUTINTLABELLENLETLISTLOADLOGMODNEWENDFORN //!:=:+:-:;++--&.(),*/^<<=<>=>>=# SYSSETEXECSETMSGRETURNFUNCENDFUNCNULLPASSDELETE SETGRAPHICSETTEXTFRAMEPLOTPENCOLOR BACKGROUNDPLOTTEXTCLEARDEFINEIDENTIFY SPRITECOLOR SPRITEPOS SPRITESIZESPRITECOLLISION DAT  ; % ; ; ;; ;;; ;; ; ; ; ; $$  ;; ; ; Q2Q$CDADCQ                                         255G236,26,105,88,7,255,240,28G007,231,224,11,126,208,21,60G168,46,255,116,95,126,250,95 H129,250,95,189,250,47,255,244(H020,255,40,11,,208,4,255CH032,3,,192,2,230,64,3bH153,192,3,219,192,2,36,64H002,219,64,3,36,192,2, & ) 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  " 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 ";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 `L `Lx xL L 0eL80 Lx)8 L/ 8 #̠  LR 6~ ̠ ׻ x)x`` [ ~de```r`cLiJuiv ,LC L<= ,hL4L OTOFOPENORORD OTHERWISEOUTPUTPRINTPROCREADREFREMRENUMREPEATRESTORERNDRUNSAVESELECTSGNSINSIZESPCSQRSTATUSSTEPSTOPTABTANTHENTIMETOTRAPTRUEUNTILUSINGWHENWHILEWRITEZONEEDITCATAPPENDRANDOMUNITFILEPOKEPEEK ACOLLISION HIDESPRITEKEY SPRITEBACKMOVETODRAWTOGETCOLORFILLFORWARDSETXYLEFT SETHEADINGPRIORITYPENUPPENDOWNBORDERRIGHTBACK SPLITSCREEN SHOWTURTLE TURTLESIZENEXTLINEFEED FULLSCREEN HIDETURTLEHOME;; ; ;  ;;; ;;  ; ; Qa000000H8JKL%\]MND6OPR&79ISVWXY^EZ[CE' )!'$#"*.2,04                                                         ` L L-|COMALERRORSKL K, Lɠ`L KL  0LNKx) ax)xL LLLʩ 0e HH`Lx x`L̠ 6~̠ ׻L80 ̠ }̠ ׻L219H064,3,36,192,2,219,64,H0,252,,1,122,,3,183H0,3,207,,1,254,,H252,,,120,,,120,H0,120,,,120,,,120I0,,120,,,120,64,+I120,32,,120,32,,252,96KI001,255,192,15,,224,31,255lI240,24,3,240,15,255,224,22189,69,214,39, 1.S5,8:S6,255:S4,23:F115:F2F12/Z110:S1,F1:S15,F2:F2F21.01:F1F11.3:Z20S6,15:K21PSS24:P,.::S24,15:S5,8:S6,255:S4,2322F18:F24:Z130:S1,F1:S15,F2:F2F21.01:F1F11:23S6,15:24PSS24:P,.: 0,87,224,,87,243,,91D251,,45,255,,22,255,D011,,,5,191,,2,192D0,1,63,,,213,,D090,,,45,,,42,220E127,,,254,128,,251,64/E0,243,32,,230,208,,253KE168,,235,212,,251,234,jE007,234,,207,234,,223,218E0,255,180,,255,104,, 23,9,13,254B198,30,253,230,63,123,246,127B183,255,191,207,247,223,183,250C159,207,242,159,255,242,151,255!C210,103,255,204,2,,64,231BC003,231,192,7,219,224,7,189dC224,15,219,224,15,231,240,15C255,240,15,255,240,15,255,240 27,11,219,211,21,231,175@046,231,119,89,126,189,113,219@153,96,165,1,113,153,129,107A126,193,102,195,97,37,129,161)A015,,241,15,,241,10,EA081,14,,113,58,,92,220\A0,120,,,132,,1,74wA016,1,2,40,3,135,40,5A134,144,14,205, >0,,,,4,,32,6>0,96,5,60,160,8,255,16>016,255,8,19,255,200,36,255?036,9,255,144,18,255,72,37 ?126,164,42,60,84,36,24,36=?042,60,84,4,90,32,2,126U?064,1,90,128,,36,,m?0,,,56,255,,67,255?192,55,255,224,15,255,240,15  1,1,2,2,3,3,4,5,5,6,6,6,7,7,7,80> 1,1,2,2,3,4,<,<F> 1,1,2,2,3,4,<,<c> 1,1,2,2,3,65,":;",":;"> 1,1,2,2,3,65,":978",":978">0,,,,,,, ,,1,,1,,,1,.;q .,4,1,2,,1,,1,2,1,1,2,1,,4,.;r .,1,,1,,1,1,1,,,,,1,,,. F21241:S1,F2:S15,F:F2,F1,F:S6,15:;4?PSS24:P,.::S24,15g4@S5,96:S6,96:S4,23:S2,85:S1,364AF110::S6,15:4BPSS24:P,.::S24,154CS1 CM(X)XD(CD)CL:MP(X)CEM2561016XPM(X)55296972(X2)ZX.15:BO(X)2X::L$(.)"":L$(1)"":L$(2)"":L$(3)""L$(4)"":L$(5)"":L$(6)"":HC(.)2:HC(1)8:HC(2)10X.239:D:DL(X,.)D:X.8:A$:OA$(X)A$:XX S4,21:F12:Z124:F280:S1,F1:Y15:S15,F2 0F2F21.1:Y:F1F19:Z:S6,15:(0PSS24:P,.::S24,15J0S5,8:S6,255:S4,23:F110u0Z130:F230:S1,F1:Y110:S15,F20F2F21.01::F1F11::S6,15:0 PSS24:P,.: D:".";:X:".";:X.15:1,M(X),CR$,MH(X),CR$-X:".";6.1,CL,CR$,CD,CR$,LF,CR$,L,CR$,U,CR$,DD,CR$,VS,CR$,HX,CR$,WL,CR$D. 1,CC,CR$P. 1:185. "":7);:" FILENAME ";A$:A$(A$,11). F$"LASTDUNGEON":A$""F$A$. 1,8,15: CL127D9:FC15+P6:D.:FC8:CL127D9:FC15 ,XDFC:1(M(X).)249,255',CLM(X)PAM(X)D(4)B,CLM(X)PAM(X)D(2)e,CLM(X)CLM(X)PAM(X)D(1),CLM(X)CLM(X)PAM(X)D(3),A.A255255,DL(A,.)DL(A,1).DL( OU HAVE SURVIVED VAULT ":280:206 *X133:A:680X,A::56334,(56334)254=*1,(1)251:681:1,(1)4:56334,(56334)1L*A:A1p*X.7:D:61440A8X,D::236*(142)(8)(31)(19);*H136:"";::V123:1)""37)""* ;:V33,(CU14)4'280:322:((DL(CL,.)BO(2))CLCL128:315:97:322:T((DL(CL,.)24)24(L384)384DL(CL,2)DL(CL,2)BO(8):LL255((DL(CL,.)24)24CLCL128:312:97:322:(CLWLLALL232(319:322:(B6212(DL 3,.:V32,.:277:""9)"THOU ART SLAIN !!!*&" DO YOU WISH TO ENTER THE VAULT AGAIN?":198,.=&A$:A$""207\&A$"N"648,4:679,.:679j&V21,.:&DD6(L1)VS.:DD1:97:&B.(.)LF100.5324:&V33,5:T1100:: M(A),2#JY(56321):A$:A$(140)259$PL:JYRJAX:XX1(X8)9E$JYUS(LBO(X))PM(U),10:UX:PM(X),7:319R$JYUS$JYFJ(DL(CL,2)BO(X))L(LBO(X)):DL(CL,2)DL(CL,2)BO(X)$JYBJ(LBO(X))L(L(511BO(X))):DL(CL,2)DL( CDCD1:179 "JOYUSU1210,211,4,219,221,226,229,4,4:165'"JOYMU185:322:165:"319:322:165["CDCD((CD5)4)((CD.)4)h"97:165"VSVS1:VSDD6VS.:DDDD((DD6)1):DD6L(L254)"LFLF((LF60).2):(L1).DD6 27:V29,15:V,150:V1,193:V2,151. V3,151:V4,119:V5,109:V6,167:V7,109:V8,164c V9,174:V10,164:V11,133:V12,168:V13,152{ V14,172:V15,160 322:97:ITTI1000 JOY(56321) (1).93S1,(1)72 BDL(CL,1 .15:A:M(X)A:XX3.1:D.7:A$:SB$(X,D)A$:D,XX.8>A((1)9334):DL(A,.).147dDL(A,1)M(X):M(X)A:MH(X)X41:pX915A((1)96142):DL(A,.).150DL(A,1)M(X):M(X)A:MH(X)X41:D52288:X.767:A :S24,150!S5,8:S6,255:S4,23:F111:F2251"Z550:S1,F1:S15,F2:F2F2.97:F1F11::S6,15:R1(PSS24:P,.::S24,15:S5,24:S6,248:S4,331+P17131:S,P:T125135:S1,T:T,P:S4,321,1-PSS24:P,.::S24,15 1,"I0:":1:1,8,2,F$",U,R".X.2:D.255:1,DL(D,X):D,X:X.15 /1,M(X),MH(X)/X6/1,CL,CD,LF,L,U,DD,VS,HX,WL,CCT/1:1,8,15:1,A,B$,C,D:1m/A""8)A;B$;C;D/T15000::/PSS24:P,.::S24,15:S5,8:S6,255/ A,1)DL(M(X),1):DL(M(X),1).:M(X)A,-DDL(CL,1):DD288,288,296,296,301,4,308,305:322:-V21,.:FC.:116:ITTI1000:@-S-" SAVING";v-1,8,15:1,"S0:LASTDUNGEON":1-1,8,2,"LASTDUNGEON,U,W":X.2:D.255:1,DL(D,X)CR$- :H138:"";:+""2)" PREPARE THYSELF,BRAVE WARRIOR..."5+2)" $ V A U L T O F T E R R O R $ "i+4)" A 3-DIMENSIONAL ADVENTURE GAME "+" "2)" PLEASE WAIT.....OPENING DUNGEON!!!"++D.:FC8: (CLD(CD),.)(DL(CLD(CD),.)63):280:322()(DL(CLD(CD),.)BO(5)).T)(DL(CLD(CD),.)BO(5CD))DL(CLD(CD),.)DL(CLD(CD),.)BO(5CD)d)324:322:)"":" THE CROWN OF SARNOTH HAS BEEN RETURNED!")" NOBLE WARRIOR,Y V33,.:X.15&1(M(X).)214,217'CLM(X)MH(X)MH(X)((.)((L2)1)LF5))'MH(X).217['M(X).:DL(CL,1).:V21,(V21)240:277:218m':324:322:'LFLFB4:DL(CL,2)(DL(CL,2)BO(B1)):97:319:'CURUCU:(9);(CU);(8) CL,2)BO(X):U.$LP319:97:186$190%%B6U.:DL(HX,2)DL(HX,2)(L238):LL2732%CU14i%D((1)31):V33,HC(D1):LFLF(B((L4)1))D%T1100::V33,.:LF1205%V32,(LF5)2(LF5LF10)7:324:322:%V3 "V32,(LF5)2(LF5LF10)7"165#198,.4#CU14CU142:(9);(CU);(8);:280:V33,.U#X.8:(LBO(X))PM(X),10#:X.:A(.):A.:(L(BO(U)))PM(U),7#(56321)NJ189#PM(X),1:(LBO(A))PM(A),10:192#P ):B(1)B100.95200 TIIT247:181 !JOYNJ165.!(DL(CLD(CD),.)BO(5CD))172Z!JOYFJDL(CLD(CD),.)CLCLD(CD):180z!(DL(CLD(CD),.)BO(5))174!JOYBJDL(CLD(CD),.)CLCLD(CD):180!JOYRJCDCD1:179!JOYLJ :DX,A::X.63:53055X,.:"":X.8:XR,15:YR,.:PR,.:PLOT-X42);OA$(X)3r" F1/ START NEW GAME F2/ LOAD OLD GAME";:198,.A$:A$(133)A$(137)157A$(137)267DL(CC,1)BO(8)V21,.:V23,1 $ VAULT V2.6 BY C.M. BLAKEMOREH53280,.:53281,.:808,234:123gVLFC:FC149,49,58,60,61m3:FC172,62,67,70,71:FC174,75,76,77:FC178,79,80,81:LPFC:FC182,86,88,90: FC191,93,95,96:# " )1:D(4)16:CS(.)9:CS(1)2:CS(2)6:CS(3)9:CS(4)4@CS(5)14:CS(6)13:CS(7)1:LP.:P.:L1:LF10SP(.).:SP(1)4:SP(2)6:SP(3)7:SP(4)15:SP(5)48:SP(6)64:SP(7)128TGL16:CSM.:CEM192:V53248D$(1)"E":D$(2)"S":D$(3)"W":D$(4)"N" :XVL.1:FCCM(X):DL(FC,1).122;wFCDL(FC,1)1:EL(ELSP(X4)):XLPER(ERSP(X4)){xMBSP(X)1:D1(SB$(X,FC)):MP(MBD),((SB$(X,FC),D,1))yBCSP(X)D,CS(FC):z:V21,EL:V27,ER:{56578,(56578)3:56576,((56576)252) 256102dFCFCFC1:99efELCP(LV):ERCP(RV)2g(DL(EBM,.))105Rh3:FCFC1:1(FC.)99,113wiDL(EL,.)FC4FC135,36,38,40jDL(ER,.)FC4FC142,43,45,47kD15:(DL(EBM,.)BO(D))D9,6,7,8,5l"";::FCFC1:FC "";:X.7Y18)""::<Z"";:X.2:19)""::u["";11)"--------------"\10)"----------------":]"";14)"========":14)"ϣ"^ ";:"K"";14)"Ϸ";:OL"";16)"Ϸ";:vM"";18)"";:N""12)"̯":O""14)"̯":P"";16)"̯":  :"?15)":ϷЭ:":15)":ç:"L@15)":̯:":15)"::"eA15)"::"BX.5:15)"::"::C"";:17)"::::::":17)"::"D17)":í:":17)"::"EX "01"";:X.3:6);92"ϷϷϷϷϷϷϷϷϷ"`36)"̯̯̯̯̯̯̯̯̯"46)"ϷϷϷϷϷϷϷϷϷ"56)"̯̯̯̯̯̯̯̯̯"676)"ϷϷϷϷϷϷϷϷϷ"86)"̯̯̯̯ D);" #$%&'()* + ";D$(CD);" ";8 "L$(DD);:k #"";:X.19:" ";::" ": $"";8)"";:X.8:" ";::"" % &"";13)"";:X.3:"";::"" '("  ˒ ˒ Ԓ..ג ˒ ˒d " ̯ ΥԒǒ Ȓْͥ ̯" " Υ ΥԒΣْͥ ͥ " Υ ̩ߺͥ ͥ " Υ Σͥ ͥ  "6 " ʹ"37)""I " ʹ"37)""w " ͥ " ͥ  " ͥ   " ͥ ͣ NJ255:FJ254:LJ251:RJ247:BJ253:US239:MU237:U.VTL388:DD6:PLOT65520:AR780:XR781:YR782:PR783:S54272:BCV38RU156:CU142:ALL511:HX157:WL17:CC204:CR$(13)CP(X)FCD(CD)(CLD(X)):SW(X)(TGLCSM)TE(X)(TLCEM): |53272,(53272)15:648,192:53272,((53272)240)12+}53270,(53270)247A~(147):234:238DL(255,2),BO(15),SP(7),SB$(3,7),D$(4),L$(6),OA$(8),CS(7),M(15),MH(15)HC(2):X.:D.:FC.:CL17:CD2:VL.:EL.:ER.:VS.D(1)1:D(2)16:D(3 199mDL(CL,2).113nX.8:XR,22:YR,.:PR,.:PLOTCo(DL(CL,2)BO(X))X43);OA$(X)IpRq116rCSMSW(.):53272,((53272)15)CSM:PM(U),7:s:tFCVLVLVL1uD61:MP(1),D:MP(2),D:MP(3),D:MP(5),DvEL.:ER. 14)"ϣ":3_""16)"====":16)"ϲ":i`""17)"====":17)"ϲ":aCEMTE(.):648,CEM:L$(DD);:10bFC4:VLFC:LPFC:LVCD14(CD1):RVCD14(CD4)cEBMCP(.):EBM1EBM Q"";18)"̺":%R"";:14)""25)""WSX.6:14)"ť":14)""25)""oT14)""25)"":U14)"ť":14)""25)"":V"";:X.6W16)"":16)""23)""::X .3:17)"::"::8F"";19)"":X.2:19)""::[G"";19)"":{H"":X.21:""38)"":I"";:62:J"";12)"Ϸ ̯̯̯̯̯"9;:"";:X.4:12);"зззззззз"\;12);"ззззззз"::<"";:X.4:15);""::="";:18)"":>"";15)"::::::::::":15)": ";16)"";)M*"";38)"";:X.19:"";::"":+""30)"Ϸ";:X.8:" ";::"̯,-"";26)"";:X.3:"";::""./"";23)" " Υ ̺ ̺ ͥ N " Υ Σ ͥ | " Υ " Υ "32)"͠ " " ̯ "33)"̯" "") !" ";D$(C Υ 3 " ͥ ϷРΥ b "  Υ " Υ Υ " Ϸ ϣΥ Υ Ϸ " ɒ ɒͥԢْΥɒ ɒ. " hL` 莆)ǩ}  1 81i(Ţ`8ą͹ĐȹH hi) ¢ԩF Đ`ɩɭȽ,(}i: i02`hh@ԍ ԩƢ  - *** THE EDITOR *** BUCK CHILDRESS ***Z *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J49152:L100:C11((19)31)L::B0C:A:A0A255602JB,A:XXA:B:A:AX70 <"ERROR IN DATA LINE: 4,224,1791: 5,208,11,205,190,193,240,52,32,177,193,76,1582q 81,192,166,253,164,203,132,253,192,64,240,36,1976 228,203,208,17,173,139,2,197,251,240,25,133,1816 251,198,252,16,19,169,3,133,252,169,0,162,1624 23,157,0,212,202,16,250,1 ,151,193,224,44,208,12,145,209,200,196,1909Y 213,144,249,240,247,76,151,193,224,4,208,19,1968 196,213,176,165,162,9,202,240,5,200,196,213,1977 144,248,132,211,76,151,193,224,5,208,15,192,1799 0,240,69,162,9,202,240,238,136,240,235,76,1,240,25,14605@76,81,192,136,208,243,76,137,193,224,7,208,1781lJ15,166,214,240,239,160,6,202,240,107,136,208,1933T250,76,137,193,224,33,208,88,166,214,224,24,1837^176,218,232,224,25,176,213,181,217,16,247,142,2067h192,193,181,217,41133,242,160,0,132,211,32,124,232,76,151,193,1686U224,28,240,3,76,81,192,162,24,165,211,201,160740,144,3,56,233,40,168,24,32,240,255,32,1267177,193,132,198,132,207,173,187,193,174,189,193,2148240,3,56,233,128,172,188,193,145,65,76, << CD36-2 >>6" BASIC RECURSION"I S$"TTEESSSTT"aN1 : P(N)1 : 80grPPP(N)Z (S$,P,1)(S$,P1,1) (S$,P,1);d P(S$) NN1: P(N)P1: 80i P(N);nNN1 :  << CD36-3 >>4 COMMODARES PROBLEM #32-1:Y" DILIGENT DECODER"k SOLUTION BY MATT SHAPIRO (ALSO #28-4:ELEGANT ENCODER) W(28): M(X)X29(X29)"WHAT'S YOUR WORD";W$ "ENCODE OR DECp0000pp`0`0 00p0`0`a``00@e@TZUVitWUi@U@UqU֤yiiy֤qU@U@UTTYj@nUWiTgjUiTTTTPPPPvPP PPPPPd@e@TZUVitWUi ) LSТ֬ĭ& čЭčЭčЭčЭčТЌ!Э )L1LG? ! =  ۷oK'Q DQ D 8 î î "L:" FX0:JJ12:LL10:L47140H P"THE DATA IS OK AND LOADED...":j Z"SYS 49152 TO ACTIVATE...": d120,169,22,162,192,141,20,3,142,21,3,169,1164 n15,162,3,141,24,212,134,252,88,96,173,190,1490 x193,174,141,2,142,190,193,224,4,240,669,65,141,4,212,1451F 76,49,234,166,203,228,254,240,247,134,254,224,2309 64,240,241,165,207,141,189,193,164,211,177,209,2201 141,187,193,140,188,193,165,209,133,65,165,210,1989 133,66,169,32,224,47,208,8,145,209,136,16,1393# 251,76847, 197,192,224,3,208,5,160,0,76,182,192,224,1663a 6,208,30,164,213,177,209,201,32,208,19,136,1603 "48,15,177,209,201,32,240,247,201,160,208,5,1743 ,173,189,193,208,238,200,76,182,192,224,1,208,2084620,166,214,160,6,232,224,24,144,5,128,157,194,193,232,224,24,1976Kr144,244,240,242,32,101,233,174,192,193,181,217,2193|41,15,73,128,149,217,172,192,193,200,185,217,17820,41,15,24,125,194,193,153,217,0,232,200,1394224,24,144,238,240,236,165,242,41,15,73,128,1770!c81,1580*192,160,0,132,199,132,212,132,216,96,0,255,1726M255,1,2,3,4,5,6,0,0,0,0,0,27615,73,128,149,217,172,192,193,200,185,217,17820,41,15,24,125,194,193,153,217,0,232,200,1394224,24,144,238,240,236,165,242,41,15,73,128,1770! << CD36-6 >>4 COMMODARES PROBLEM #32-2:T" TEXT SEARCH"f SOLUTION BY} JASON SIMPSON "SEARCH STRING";A$A(A$)1,8,0,"TESTFILE,S,R"( ST 1 : 21,B$<B(B$)F Y1 B P ODE? ";& ( A$: A$"D" A$"E" 40M 2 A$:L(W$):S0: L2 L29 20 < I1 L:W(I)((W$,I,1))64:SSW(I)::W$"": A$"E" 100 FSM(S) PQS(L1):Q(Q) SS29: 80 ZSQ d I1 L:W$W$(M(SW(I))64):: W$: %.(B$,Y,A)A$ B$: YB Z Y' d 40 INFO.TXTSIMPLE TERM.TXTOUSE IN OUSEDIR 1( SIMPLE'TERMDDLOGO%UTUTUMTPmogiogimPUMTUTUTiUWtiVZUTe@@dPPPPP PvPPPPTPTp0000p ó ʲ ý ý PLAYERS (1/2) SELECT A TRACK (1-4) LAPS00ET0:05 PRESS RETURNROAD CONDITION 1=DRY 2=WET 3=ICY TiTjUgiTWUnj@YTTFROM BUFFER *===*2/%:250,.:251,64:252,.:253,28:254,36:0:2816: RESTORE IMAGEN/C0R0:C1R1:C2R2:C3R3/182:I.D:WI,C(I)::184: RESTORE COLOR/0,C01:"";:A$"":/ *===* PRINT MENU SCREEN *===*#0"  INPUT ROUTINE FOR TEXT, LOAD, AND SAVE *===*86&A$:A$"*"A$""A$""A$""A$""A$""A$""294Q6'(X)39"";:294a6(A$(13)y6*A$(20)N$""2946,A$(20)L1(N$):N$(N$,L11):A$;:2946.A$;:N$N$A$:29460 *===52( *===* SAVE *===* (N$"":,0,24,"NAME?":294o(276:N$""52:Ջ(N$)12E$"NAME MUST BE 12 CHARACTERS OR LESS":288:52(8168,C0:8169,C1:8170,C2:8171,C3:(N$)".PIC",B0,P7168 P16192:182:(N$)".COL",B15,P55296 P56395:184:5  "38)" ";L3"       ";3"       ";3" "38)" ": 2"TM.+276:290Q,40:J1278,A#.:"";:X1(8,.):Y1(8,1):X(X1Q)8:Y(Y1U)8:DC,X,Y,N$,TM:206,8,A#S:8,1,(1)161:44:A$""206:52, *===* RAYS *===*,40:J1278,A#.:"";:X(8,.)Q:Y(8,1)U:DC,X2,Y:322:2ř<ƙ=Ǚ>Ќ%Ќ ЩЩ&РęԈx ܩЍЩЩčXЍĩȠ   3; „ي 08 )И йgĝЈ<ЍТ 5K „ 4 „čĹą  9      ";0" LOAD  SAVE  VIEW   "15)"     "15)" ";0"   "23)" "15)" ";1"  * ERROR CORRECTION *===*62DS62184*740:&:276:1,8:DS1E$DS$:288:52: DISK ERROR;76X1.X1.:L78Y1.Y1.:f7:52: GO BACK TO MENU7< *===* LOAD SPRITES AND MACHINE LANGUAGE ROUTINE IF NECESSARY *===*7>(3584).(3600)42( *===* LOAD *===*)N$"":,0,24,"NAME?":294l)276:N$""52:Ջ(N$)12E$"NAME MUST BE 12 CHARACTERS OR LESS":288:52)%:M:182:(N$)".COL",B15,P55296:184)(N$)".PIC",B0,P7168:C0(8168):C1(8169):C2(8170):C3(8171):524,0,24," ":: 39 SPACES24 *===* INITIALIZATION *===*v4318:%:D999:C(D):W55296:3:0,1:0,1:250:OS5:SC.646:C4141,129,108:2,161,108:X171:Y148:C1:Q13:U41:M3:P$"   "16-8,A#S:8,1,(1)161:44:A$""212:52L-40:J128X1(8,.)Q:Y1(8,1)U:DC,X2,Y X12,Y1k-J128322:40:J128212-8,A#S:8,1,(1)161:44:A$""216:52- *===* NEW *===*-,0,24,"ARE YOU SURE? (Y/N)":A$:A$ ĤĝĠL(½)JJJJywąyy0 ĥļĥ9o ) ¼ĹļęԩA 0L) sí) 3âLyO1/Ȱ+yWąy_Ĩ `A Ę` ) 0 ܪ)JJJJ 0) 0 h  "15)"      "15)" ";v1" LARGE SMALL    "15)"      "15)" ";1"  "15)"      "15)" ";/2" 8: ROUTINES HAVE BEEN LOADED8@"ART SPR",B0,P3584:"ML",B0,P2816:G8A *===* DELAY LOOP FOR FIRE BUTTON PRESSES *===*X8BT.150::y6*A$(20)N$""2946,A$(20)L1(N$):N$(N$,L11):A$;:2946.A$;:N$N$A$:29460 *===*15:(("D01A")),(("D01A"))254:1,(1)254:H*1,(1)1:(("D01A")),(("D01A"))1:&:_* *===* LINE *===**40:J1278,A#.:"";:X(8,.)Q:Y(8,1)U:DC,X2,Y:322:192*8,A#S:8,1,(1)161:44:A$""188:520+40:J:PC241:C0.:C11:C22:C36:DCC1:1,8 58,162,141:&:]5PC,C0:,23,15,P$:PC,C1:,27,15,P$:PC,C2:,31,15,P$:PC,C3:,35,15,P$:OC.:5 I.2:"";:,0,24,E$:"";:T.350::276:T.10:::5"M:0,C01:1,.:2,.:8,.:5$ *===*"Y"M,1:0-276:52. *===* SAVE SCREEN TO BUFFER *===*;.%:R0C0:R1C1:R2C2:R3C3|.250,.:251,28:252,.:253,64:254,36:0:2816: SAVE IMAGE.182:I.D:C(I)(WI)::184: SAVE COLOR."";:A$"":. *===* RESTORE SCREEN  :&H ȑ99hi(9iiԅ:)?pčЩĩĩĩĝĤĝĩĽ{ĝ'Ѝ}Ĉ b č8Ģ o  )â ܈Э 槦)) JJyk)  *===*9'40:J1278,A#.:"";:X(8,.)Q:Y(8,1)U:DC,X2,Y:322:160h'8,A#S:8,1,(1)161:44:A$""156:52'40:J1278,A#.:"";:Y1(8,1)U:X1(8,.)Q:DC,X2,Y,X12,Y1:322:156'8,A#S:8,1,(1)161:44:A$""160:RAYS CIRCLE BOX NEW  "15)"      ";y2" "18)"     "18)" ";2 " DRAW LINE FILL TEXT "18)"     "18)" ";3 "1278,A#.:"";:X1(8,.)Q:Y1(8,1)U:DC,X2,Y X12,Y1:322:S.:190_+8,A#S:8,1,(1)161:44:A$""192:52v+ *===* TEXT *===*+N$"":,0,24,"TEXT:":294+276:N$""52+"";:,12,24,"1=RVS 2=NORMAL":TMDC:A$:A$" `3N LOADED@"ART SPR",B0,P3584:"ML",B0,P2816:GA *===* DELAY LOOP FOR FIRE BUTTON PRESSES *===*XBT.150::y*A$(20)N$""294,A$(20)L1(N$):N$(N$,L11):A$;:294.A$;:N$N$A$:2940 *=== 000xx0000``{fcf{fcfcw 000xx0000``{fcf{fcfcw 306:280:52::=: THE ARTIST (V2.0)C :I :e: DENOY DEBOER: 70 B SOUTH MAGNOLIA DR.: SATELLITE BEACH, FL 32937: (305) 7739343::: *===* DRAWING MODE *===*K J(: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 4,C4:C41:4,C4;640:J1278,A#.:"";:62: BUTTON PUSHEDn88,A#S:8,1,(1)161:CS:CS.OSCS:CSOSv:54< *===* CHECK TO SEE WHAT SELECTION THE USER MADE *===*>X1(8,.):Y1(8,1):X(X1Q)8:Y(Y1U)8@Y.Y478 BX16X20224: NEW4"dX.X5X85:Y90:290:P1:32: DRAWX"fX5X10D1.:290:188: LINE"hX10X15290:3,8:322:130: FILL"jX15X20198: TEXT"l *===* DETERMINE THE PALETTE TO BE USED *===*"nX22X27DC0:OC1C0C1:2):XX(J1J5)(J5J9):YY(J3J7)(J8J1J2):J127"";:PP:322}"8,1,(1)161:8,X2Q1,YU:P1DC,X,Y$44:A$""52:32& *===* READ JOYSTICK *===*(J(2):J.S.::SCS:A(J1)45:0* *===* CHECK TO SEE IF US6OC.: CALCULATE COLOR$~ 54($ *===* FILL *===*n$40:J1278,A#.:"";:X(8,.)24:Y(8,1)50:DC,X2,Y:130$8,A#S:8,1,(1)161:44:A$""130:1,8:52$ *===* CIRCLE *===*%40:J1278,A#.:"";:X(8,.)Q:Y(8, 040:52&40:A90A270S.: READ JOYSTICKu&J1278,A#.:"";:X1(8,.):X1CX2Q(8,1)CYUDC,X2,Y,Y2SC,Y2,,,,1:136&J127X2((X1Q)X):DC,X2,Y,X22,Y2,,,,1:136&8,A#S:8,1,(1)161:44:A$""146:52& *===* BOXY7Y1184 DY11Y1592( FY15Y19100; HY20Y23120C J52i L *===* THE VARIOUS OPTIONS *===* NX.X7174: LOAD PX7X14166: SAVE RX14X21290:J.: J127:J(2)::"";:52: VIEW!TX.X62:8,,,,1:Q3::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$NA):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$NA":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$)5ER WANTS TO SAVE OR RESTORE SCREEN FROM BUFFER *===*`,A$:A$"S""";:230: BUFFER SAVE SCREEN.A$"R""";:240: RESTORE SCREEN02 *===* MAIN MENU *===* 40:0,1:OC.:1,1,2,1:2,1,2,1:286:1,C11:2,C21:3,C31:C4.C417 52#pX26X31DC1:OC1C1C1:52?#rX30X35DC2:OC1C2C1:52d#tX34X39DC3:OC1C3C1:52#v *===* DETERMINE COLOR TO BE PUT INTO PALETTE *===*#xOC1:X3X6C2:54: WHITE#zX5X8C1:54: BLACK$|C(X2)1:C154: LARGE BRUSH9!VX6X121:8,,,,0:Q13:54: SMALL BRUSHe!XX12X161,8:54: CROSSHAIR CURSOR!ZX16X202,8:54: SOLID CURSOR!\322:X.X5290:212: RAYS!^X5X12290:136: CIRCLE!`X12X16290:156: BOX "b 1)U:DC,X2,Y:CX(.):CY(1):322:140E%8,A#S:8,1,(1)161:44:A$""136:52m%40:A.A180S.: READ JOYSTICK%J1278,A#.:"";:Y1(8,1)U:Y2(Y1Y):DC,X2,Y1:8,CX2Q,CYU:322:146%8,A#S:8,1,(1)161:44:A$""1 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/fLOADER 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:ADA1 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);: 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,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 154272,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)560220 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|: 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,13516,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,6A l 8HOY! ECEMBER862ABOOT128 UG EPLANKSPEED HE RTIST OOTTHE ARTISTMLART SPRICRO ITYKKPEEDWAY INOTAUR AZE HE DITOR ASIC ECURSIONILIGENT ECODEREXT EARCH-128 EXT EARCOUND OBINKK ENTIPEDE CROLLENTIPEDE ɠLANETARY OONSILE ANIPULATOR AULT F ERRORBISK HECK-PPRITE.ϠAZY OURCE ODEKK EBELS & ORDS* OMAL 64 OOT COMAL 64 0.14COMALERRORSML.SIZZLEHI MENUNAMES.DATKKCOMAL ARTICLE$LOADERINFO.TXTSIMPLE TERM.TXTOUSE IN OUSEDIR 1( SIMPLE'TERMDDLOGO%KKPEEDWAY OOT INOTAUR OOT PRITE. OOTAZY ODE OOT64 UG EPKK, *===* THE ARTIST (V2.0) BOOTER *===*T 0,1:4,1:"ONE MOMENT PLEASE...q"RUN"(34)"THE ARTISTy"(842,13:208,1:46,108:27648,.: SA x?!X`0 L1΅_Å`ƅZƅ[XY L@L_¢0P;4*)  {#LLLLLLLL LL wx L1" L1L(Px@hy` y נ  `z{ s: kƥ` W (`ȥE0 W$% ֍;;ÆBîCÅbc=Í<â8 I ݽwLrƎEíCm?ÍCÐBæ;ÅL)­ə L ¢ L1)é `ié  `>#$""""""" - ------- ----------------- ------------------------  ------------------------ ------------ ------------ ------------ ------------ ------------ -----# --------  -------   -  ------- ------221 21 . -  ------- ------ ,..-  ------- ------ 11232 -  --------------------- 0Ơ h !0@Li$"":53280,0:53281,0:646,1@ 52,128:56,128::1260wD$B$;:D$DD$B$;:D$DD$DD$B$;:D$DD$DD$DD$B$;D$;:50:70(P1,F1:G1,W1:G1,W1W:2P1,F2:G1,W3:G1,W3W:<P1,F3:G1,W1:G1,W1W:F90:JFOJDO70P ZJD)J: AOAW:NAW:6 NAO:IAWM:A(I,O)ONAID :NAO\ A199AAW:NAA: 20:" TOO MANY ARMIES-HIT F7/FB";:40:70 "";:RO18:(D$,R3); CO18:KM(R,C):K3M$(K);:260 KF(KT3,O):CL$(K);FT$;  hC(CW)(C17) r140 |D KO:AA(O,O)M:AA(O,W)O:M(R,C)T3410m JM(R,C)T3:AA(O,O)J:AA(O,W)F(J,W)z AW470 JWA:(A(J,O)M)A(J,O)OW(R,C)460 (RA(J,II))(CA(J,T3))460 A(J,4)OAA(O,O)J:AA(O,W)A(J,W):460620:T9,O:JDO500MAO5703&1210:MSO490B01020:490{:BB$H$" NO TROOPS AVAILABLE-HIT FB/F7";:40:70:490DQAO:UAM:IONFW:F(I,W)QAQAF(I,W):UAIN:UDM:QDO:AW620XIWA:A(I,O)M620bA(I,W)QDUD JONFW:RMF(J,O)O(W).6730.(F(J,II)UA)T3730Y(F(J,T3)UD)T3RF(J,II):CF(J,T3)h:RM750R(19(2)):C(19(W)):(RUA)(CUD)740A(I,4)R:A(I,FI)C:20:MAO:LM(R,C):LT3LW830,890,940 OW(R,C)PPKOW(R,C):PN$(OW(R,C))"'S CASTLE";:950CCL$(PP);" YOUR CASTLE";:390x D$DD$"TROOPS:";MA;" LEVY:"F(LT3,4);:MAOS$;*KO9604950>OW(R,C)M"GRASS";:950HOW(R,C)PPKOW(R,C):PN$(K)"'S TROOPS";:950RCL$(`@L+¢0_{LL1LL" wLm Ʃ1W$%L1xLxLL1L©H#LY#j#!i!L1 i L1 ?âl CÍ=åBÍ<é$%E !"%*$'&)>WHAT'S YOUR LINE#: JUMP BETWEEN LINES (1-255): U @a  !$'*-0369" ͯ ͯ ͯ " H R" CAN YOU SAVE IT?" \* f 290 L ** MOVE RIGHT **8 VXXSP:XMX8MO2:ANAN1:1160b `HBHB(X256):53248,X255:53264,HB jAN(AN1)3:2040,192AN:1200 ~ ** MOVE LEFT ** XXSP:X24X24:MO0:1290 HBHB254(X256):53248,X255:53264,HB AN(AN 0U2040,197:H14:AN0:XMX3212907ZMA0MD04100:1290_d4100:P2P23:H2H2((1)2):1290px ** DUCK **(JY2)0QD82040,201:DK1:SD1:QDQD1:P1P11:1290DK1:2040,198:1290 ** COMPUTER CONTROL **MD0:M223050 ** HIGH PUNCH ** H22290G 2041,212:H22:MA0:MXX32DK12290o 4100:P1P12:H1H1((1)2):2290. ** LOW PUNCH **8 H22290= 2041,213:H24:MA0:MXX32SD12290B AN0DK04100:2290L 4100:P1P13:H1 R((1)6)1:R2250,2410,2410 2040N MXX4R((1)5)1:R2310,2360,2410,2040,2040 R((1)8)1:R2250,2250,2250,2410,2310,2360 2040 ** MAIN LOOP ** Q04 1010 P214010 2010 P114000 MO053264,HB 7000$ 53269,3:53265,(53265)23916:3010T SC3610,3620,3630,3640,3650,3670,3680,3690 53280,6:53281,1:53272,21:53265,27:53269,0 " η з " " " 0:P225:3300BSK2:MS12:P120:P225:33003LSK2:MS12:P120:P230:3300SVSK3:MS8:P120:P220:3300t`SK3:MS12:P120:P225:3300jSK3:MS12:P120:P230:33002040,200:T02000::51002041,216:T02000::SCSC1:3500(56320)16)05010: :870:T0300:((56320)16)05010;:"":T0750::5100\X53280,0:53281,11:53282,15]53265,(53265)64:53272,(53272)14b" &# &''''''";g"''''*'''''''''''''''''''''''''''''''''''''''''''''*'# ";<"''''*''''''''''''''''''''''*# ";n"# ";"# ";"# ";"(T448)4(T4192)643 (T16)64T22T3,T5:::\ 870:56334,(56334)254:1,(1)251 T0511:14336T,(53248T): T07:T2:T307:(35T)814336T3,(53248T28T3) : 1,(1)4:56334,(56334)1 2039,68:5100( 5" WRITTEN BY"P p" DARRYL DION HAWKINS"V zq  ** PLAYER CONTROL ** JY(56320):MO1110,1160 (JY16)01410 15(JY15)1310,1360,,1260,1260,1260,,1250,1250,1250 2040,192:DK0:SD0:11)3:2040,192AN:1200' 15(JY15)1310,13601 1290@ MO1:1110O MO2:1160a H10H1H11k 3030  ** HIGH PUNCH ** H11290 #2040,196:H12:AN0:XMX32MD11290 (4100:P2P22:1290 F ** LOW PUNCH ** PH1129110 MXXMS42250 SK2560,2450,250092041,208:MD0:2290O4 ** MOVE LEFT **x>MXMXMS:MXX8M20:MXMXMS:2290HHBHB2532(MX256):53250,MX255:53264,HBRMA(MA1)3:2041,208MA:2290M21:2110H20H2H21H1((1)3):2290` ** DUCK **+j MD1:2041,214:2290< MXX42480R ((1)3)02410q R((1)2)1:R2310,2360 R((1)7)1:R2250,2250,2410,2310,2360 2040 MXX362540 ((1)6)02410 DK02310 2360DK02040,192 M20MD02041,208! AN0MO00 MA0M20G D0100:::3550Q& 3010e ** DISPLAY ** 53265,(53265)239:2040,192:2041,208 X60:MX280:HB2:H10:H20:QD0 53248,X:53249,160:53250,MX255:53251,160: " ͯ ͯ ͥ ͥ"! T03000::5100U "";SC,(" "(P1),2),,i (" "(P2),2)o SK1:MS8:P120:P225:3300$SK1:MS12:P120:P230:3300.SK1:MS12:P120:P235:33008SK2:MS8:P1254277,0:54278,240:54273,100:54296,15:54276,129&54276,128:,eJY(56320):SC((JY3)3)3((JY1)0)6((JY2)0)ySP8:EN1:3500800:" PRESS FIRE BUTTON"T0200:((56320)16)05010:850:T0300:( '*''''''";%l"''''*'''''''''''''''''''''''*'''''";^q"''''*'''''''''''''''''''''''*''''";v"''''*'''''''''''''''''''''''*'''#";{"''('*'''''''''''''('''''''''*''# ";"''''* '''''''''''''''''''''''''''''''*# "; 4 0,0,0,0,0,0,0,0,0,0,252,0,3,212,0,3g 84,0,3,84,0,0,80,0,6,169,16,22,169,16,22,169 80,5,88,64,3,252,0,2,168,0,10,170,0,10,10,1280 40,2,160,40,0,160,160,2,128,224,2,128,60,3,240,0@  69,16,22,169,16,22,169 80,5,88,64,3,252,0,2,184,0,2,172,0,0,168,0Q 2,234,0,10,138,0,42,2,128,56,2,128,15,3,240,0{ 0,0,0,0,0,0,0,0,0,0,252,0,3,212,0,3 84,0,3,84,0,0,80,0,6,169,16,22,169,16,22,169 80,5,168,64,1,124,0,2,168,0,2,1 3,240,0@! 0,0,0,0,0,0,0,0,0,0,252,0,3,212,0,33P! 84,0,3,84,0,0,80,0,0,148,0,2,149,80,6,169g`! 85,6,168,5,3,252,0,2,168,0,10,170,0,10,10,128p! 42,2,160,40,0,160,168,2,128,224,2,128,60,3,240,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,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,0,0,0,0,0J!" 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0x! " 0,63,0,0,245,0,0,213,0,0,213,0,0,20,0,0!0" 168,10,0,154,42,128,155,170,128,30,162,128,26,131,240,0!@" 0,0,0,0,0,0,0,0TA STATEMENTS ENTER":"""INCLUSIVE DECIMAL":"MEMORY LOCATIONS"::"FROM";A:"TO";C::"BYTES PER LINE";BCC256:251,(C(C))256:252,C2,B:"";BA256:253,(B(B))256:254,B> :((A),2,((A))1Xj"":A13:" "::"";|tA(253)256(254)(2):63750~Q(43):U(44)(Q4256U)13163900Q1(Q256U):U1(Q1256U):QQ1:UU1:63880PQ256U:P,0:P1,0""7"TYPE LIST TO SEEx)Ѕ8 X ƭ Щԩԩ Т@@'ЩЍЍЩ  ' fƢ   @     *Ů$ A N ­?8{ʬ8 Aɺήw謯8 Aɺ8 A$ +ĩ2mm Nĩ# AǮ ̯L©  Aǩ ԩԩԩԩԭ iЭ8 L©Э i#`0` A`ԩ ԩ ԩ! Ԣʎ `nԩ ԍ ԍԩ ԩ `8 8   ͽ"  ͽ   ͽ!  ͽ`%%:Lũ!Щ( sLׅȅ6 H*h H*h H*hi8i L`GAMEOVERQ('i(  @ ԩԭ) 9e&:e'9e&:e'ɺ & 0,0,0,0,0,0,0,0,0,0,252,0,3,212,0,3/P 84,0,3,84,0,0,80,0,6,169,16,22,169,16,22,169a` 80,5,168,64,1,124,0,2,168,0,2,184,0,0,174,0p 0,46,0,0,174,0,3,184,0,0,248,0,0,63,0,0 0,0,0,0,0,0,0,0,0,0,252,0,3,212,0,3 84,0,3,84,0,0,80,0,6,186,0,2,186,0 0,174,0,15,172,0,15,160,0,12,160,0,0,252,0,0=! 0,0,0,0,0,0,0,0,0,0,252,0,3,212,0,3o! 84,1,3,84,21,0,81,84,0,149,64,2,148,0,6,168 ! 0,6,168,0,3,252,0,2,168,0,10,170,0,10,10,1280! 42,2,160,40,0,160,168,2,128,224,2,128,60,,0,0,0,0,0,0,252,0,3,212,0,3,84 ! 0,3,84,0,0,80,0,6,169,16,6,89,16,1,108,64[ ! 3,250,128,2,170,160,2,128,160,234,128,160,250,0,252,0 ! 0,0,0,0,8,0,2,170,0,0,8,0,2,0,0,170 ! 128,0,2,0,32,0,10,168,0,0,32,0,0,0,0,0 ! 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"P" 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,0,0,0,2,234,60c"p" 10,233,95,10,229,87,2,182,23,234,133,0,250,1,80,0"(#105,95,223,233,160,209,229,234"":"TO CONVERT MEMORY TO "d"DA);"DATA ";NI0(2)1cA$((AI))","AI(251)256(252)63780(A$,2,(A$)1);AI(251)256(252)63830I:63830$" ":63870V" ":631(198),13+`"G63850":A631634:A,145::A,13:636,13:198,61a( DATA"T""I))","AI(251)256(252)63780(A$,2,(A$)1);AI(251)256(252)63830I:63830$" ":63870V" ":631(198),13+`"G63850":A631634:A,145::A,13:636,13:198,61a3 . .m .mmLͺ ͻLWC;+' K  Ģ  ©Lp LԢ  888L~8 AɺίL/}8 Aɺ }Ǎ譻}Ǎ8 AɺΩL$ % Aǭͺ ͻLré  Aǭ }Ǎ}Ǎ8 AɺΩL$ % Aǭ Lĩ   8 ȍL)ũ`88%888 A `ԩԩ`Ǎ DžDžΪ"8̭ȱȌ`Ӎō(Э)Щ YX`Ѝ) XL18: !Щ L)м  89Dž:DžLƮȠؙٙڙ`(HH H*h H*h H*h H*h H*h H*h H*h H*heeih(hLh8i؅`wwGpwGpwG0ppw"l ƪ¢ @#>4 COMMODARES PROBLEM #32-2:K TEXT SEARCHd C-128 SOLUTION BYw LOUIS DIX} "ENTER SEARCH SUBSTRING ";S$ #3,"TESTFILE"(3,L$2 (L$,S$) 0 L$< STF  << CD36-9 >>4 COMMODARES PROBLEM #32-3:T" ROUND ROBIN"f SOLUTION BY| FRED RANSOM "NUMBER OF TEAMS";N T$(N) K0 N1("TEAM NUMBER ";K1;: T$(K)2 K 7 (N 1) NN1:T$(N)& (J 1)0 4, T$(K N2), T$(K). K; A$T$(1)M N 3 240] K2 N1o T$(K1)T$(K)w K T$(N1)A$ J 4  T$(N) K0 N1("TEAM NUMBER ";K1;: T$(K)2 K 7 (N 1) NN1:T$(N << CD36-10 >>5 COMMODARES PROBLEM #32-4:[" CENTIPEDE SCROLLER"m SOLUTION BY BARRY KING" HERE IT COMES... A(959),L(10):S1025 R0 24 2: C0 37:A(R38C)SR40C::'  R1 23  << CD36-11 >>: - FILL COLOR RAM WITH CODE FOR_ - LIGHT BLUE. FOR C-64'S WITH} - REVISION 2 ROMS ONLY. - ADD TO CENTIPEDE SCROLLER PRGM DOUGLAS UNDERWOOD 100 : 828d AD828 856: MC: AD,MC::n  << RR36-2 >>B --- PLANETARY MOONS DATABASE ---^ FOR C-128~ RUPERT REPORT #36 N1 24 : SP$SP$" " :  MERCURY,0,VENUS,0,EARTH,1,MARS,2 JUPITER,16,SATURN,17,URANUS,5( NEPTUNE << RR36-1 >>8 "FILE MANIPULATOR"[ --- RELATIVE FILE MODEL ---u FOR C-128 RUPERT REPORT #36 1000SP$" " : K1 6 : SP$SP$SP$ : : 64 SPACES: === FILE DEFINITION ==== 25 BYTES PER RECORD-x: MAX # RECORDS = NR? #1,(F$),L25K#1,NRq: IF LAST RECORD EMPTY, WRITE IT (DS$)50 1,"*END*": -------------------------------: === MAIN LOOP ================= "READ, WRITE, OR  HI  MEN # # # #  SCORE MAZE NO.>  GEMS ::::::::::::::MINOTAUR#::::$MAZE$%::::::::::::::  (D  QUIT (R/W/Q)";U$* ("RWQ",U$) 260,400,2304 200? : f -------------------------------- ==== READ ROUTINE ============== #1,(F$)">READ WHICH RECORD (0=STOP)";N N0  : 200" N1 NNR 270 , 320 : READ & DISPLAY 6 270: @: 'READ & DISPLAY' SUBROUTINEE J#1,NP T1,RD$h ^"FULL RECORD ="RD$v h F1 2 r"FIELD #"F"="(RD$,PT(F),FLD(F)) : : |  ===== WRITE ROUTINE ============  #1,(F$)!">WRITE WHICH REC1)"---"/ < "TO (P)RINTER OR (S)CREEN [S]";FL$M FDEV3 : FL$"P" DEV4Y P 4,DEVi Z J1 N1 d A1 3 : 4 : n4,"ROUND ",J x4,"HOME", "AWAY" 4,"======", "======" K0 (N21) (J 1)1 4, T$(K), T$(KN2ORD(0=STOP)";N! N0  : 2002! N1 NNR 410Q!: READ & DISPLAY ROUTINE[! 320!">WRITE WHICH FIELD (0,1,2)";F! F1 F2 410!"ENTER UP TO"FLD(F)"CHARACTERS!" "; : K1 FLD(F) : "-"; : : "U$"" : 2: C0 37:A(R38C)SR40(37C)::E ( P950 959:A(P)P75: 2W$" CENTIPEDE": N1 10:L(N)(((W$,N,1))64)::"" < P0 949: N1 10: A(PN),L(N)::: 60( SIMPLE'TERMDDLOGO%169,0,133,251,169,219,133,252>x 160,0,136,169,14,145,251,192b 0,208,247,166,252,202,134,252{ 224,215,208,238,96CD36-5CD36-6CD36-7CD36-8,2,PLUTO,12 #1,"PLANETS",L25.< NR1 9:F P$,M$FPWR$SP$VZ(WR$,1)P$gd(WR$,15)M$un#1,NR,1x1,WR$ DS$,WR$CD36-6CD36-7CD36-8 ========,(F$"PLANETS" : FILENAMES2NR60 : 60 RECORDSv<: 2 FIELDS, LENGTHS 14 & 10FFLD(1)14 : FLD(2)10P: POINTERS TO START OF FIELDSZPT(1)1 : PT(2)15d: === INITIALIZE FILE ===========n: #Z"":53280,2:53281,0:646,1-d 280Dn INNER TRACE LOOPXx1,"U1 2 0";T;Sm1, EN,EM$,ET,ES EN0 1960: DISK TRACE ERRORLT%(I)LT%(I)1 OB%(T,S)0 1410: FILE INTERSECTOB%(T,S)I#2,A$,B$ A$""I);29)LD%(I);33);"--";LT%(I): II18: DIRECTORY CONTINUEC: e 730: NEXT DIRECTORY SECTOR{ DIRECTORY CLOSEIMI1 2: 1------------------------------ " CHECKING START LINKS FOR OVERLAP"$18:S11:I1 NEXT DIRECTORY SECTORB: T10 1010: DIRECTORY CLOSE[: 1,"U1 2 0";T1;S1s: 1, EN,EM$,ET,ES: EN0 1980: DISK ERROR: #2,A$,B$ : T2T1:S2S1: T1(A$(0)) : S1(B$(0))*:  0: START LINK CONTINUE START LINK END< OF0 " --START LINKS OK--"_-----------------------------e| " TRACING FILES"  1,8,15 2,8,2,"#"( IM0 1530: TRACE END2 I1 IM<: TTS%(I)F SHP#  CMG CMMI  CMG BOX BELOW CMMo  CMG CMM  SHL -36 CP- SH@ -------------------------------- & " Ϸ 0 " THU$ : GET DATA,"U$U$SP$ : PAD ITN"U$(U$,FLD(F)) : TRUNCATEm": GET THE CURRENT RECORD"WR$RD$ : FROM READ ROUTINE"&WR$WR$SP$ : PAD IT"0(WR$,PT(F))U$ : UPDATE IT":WR$(WR$,24) : T 1450: TRACE LOOP CONTINUE3 B$"" B$(0)G T(A$):S(B$)d 120: INNER TRACE LOOP ******************************* DISK CHECK-UP  DON FULTON *******************************  I,S,T,X,Y,Z " BC,EN,ES . IM0 IM1 1250: START LINK END(8 I2 IM;B: Y1 I1|L: TS%(Y)TS%(I) SS%(Y)SS%(I) 1150: FILE OVERLAPV: `j 1250: START LINK ENDt FILE OVERLAP~: PF%(I)1:PF%(Y)1: OF1: SEX2 255 324: 1,"U1 2 0";T2;S2/>: 1,"B-P 2";XIH: 1, EN,EM$,ET,ESpR: EN0 1980: DISK ERROR\: #2,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$,M$,N$,O$,P$,Q$,R$,S$,T$,U$f: C$"" 980: DIRECTORY CONTINUEp: : SSS%(I)P: LT%(I)0Z: PF$"""d: SF0Dn: 120: INNER TRACE LOOP^x: FILE INTERSECTw: PF%(OB%(T,S))1: PF%(I)1: SF1: SET INTERSECT FLAG: TRACE LOOP CONTINUE: BCBCLT%(I)IS UTILITY DOES NOT WRITE TO DISK.H : " y D " (PROBLEM FILES ARE DISPLAYED) N " IN INVERSE VIDEO) X " ̯ b X1 1000: lB%(T,S);")": TRACE END 2: 13------------------------------9R " PROBLEM FILES--"i" " ", IM0 1710: PROBLEM FILE END6 I1 IM@: PF%(I)0 1690: PROBLEM LOOP CONTINUEJ: PF1,ET,IM,LC,OF,PF,S1,S2,SF,T1,T2U , TS%(144),SS%(144),LD%(144),LT%(144),PF%(144),N$(144)f 6 OB%(35,20) @ 1: 1,8,15: 2: 1 J------------------------------- T (147) ^ h " DISK CHECK-UP r " T OVERLAP FLAG: Y;(18);4)TS%(Y);8)",";B: 9)SS%(Y);13)N$(Y);(146);i: 29)LD%(Y);33);"--";LT%(Y): I;(18);4)TS%(I);8)",";: 9)SS%(I);13)N$(I);(146);: 29)LD%(I);33);"--";LT%(I) 111TS%(I)(D$(0))z: SS%(I)(E$(0))Y: N$(I)F$G$H$I$J$K$L$M$N$O$P$Q$R$S$T$U$s: 1, "B-P 2";X28: #2,V$,W$: LD%(I)(V$(0))256(W$(0)): I;4)TS%(I);8)",";9)SS%(I); : 13)N$(RUNCATE#D#1,N,1 : SET POINTER;#N1,WR$ : WRITE RECORDE#X 410l#: ===============================# DS$,(ER),"LINE "EL# !"ENTER UP TO"FLD(F)"CHARACTERS!" "; : K1 FLD(F) : "-"; : : "U$"" : v-------------------------------8 FIND START OF ACTIVE FILES>n " START LENGTH " "FILE T , S FILE NAME DIR--TRACE" " " 1,8,15 2,8,2,"#"T1 : I;4)TS%(I);8)",";9)SS%(I);?: LT%(I)LD%(I) PF%(I)PF%(I)2: (18);p: 13)N$(I);29)LD%(I);33);"--";LT%(I): PF$"" " (FILE";I;"CONTAINS ";PF$;")":: SF1 " (FILE";I;"INTERSECTS FILE ";O | " CHECKS: 2  " -- START LINKS DIFFERENT8 b  " -- TRACE FILE LEN = DIR FILE LENh   " -- FILES DO NOT OVERLAP   " -- (3) BLOCKS FREE  --------------------------------  SHO -36 CY-  : SET PROBLEM FILE FLAGT: I;*^: PF%(I)1 PF%(I)3 (18);Oh: 4)TS%(I);8)",";9)SS%(I);pr: (18);13)N$(I);(146);|: PF%(I)2 PF%(I)3 (18);: 29)LD%(I);33);"--";LT%(I): PROBLEM LOOP CONTINU -------- DIR BAM BLOCKS FREE  1,8,15& 2,8,2,"#".01,"U1 2 0";18;0C:1, EN,EM$,ET,ESeD EN0 1980: DISK ERRORtN X0 35X: #2,W$,X$,Y$,Z$b: X0 X18 BUBU(W$(0))lv " BLOCKS FREE = ";BU;2 L    128  `  n n n n  m   m  ` JJJ  ȭ ɢFfȍ  )  ) 8  @  9 ȭ eȅȩ`eɅɩ   9 ʭ m  hh`  ة) ݍx-  ȩ`ɩ@   ȩ\ɩ   Щ    \  + H Ih i   i    Lq ȩNɩ@  ȩNɩS !8_ЍЩDD$;:K4IWK:1000::&IWT3:1000::D$DD$DD$DD$;@K7I4K:1000::UI46:1000::(" "(AA(I,O)),FI)AR$((AA(I,W))" ",II,4);170:NAOA(NA,O)PP:A(NA,W)MS:A(NA,II)RS:A(NA,T3)CS:A(NA,4)RD:ARSR SIZE, 0 CANCEL, FB/F7 END";:20:"TROOPS 1-";MA;)`MSO:1200Ej90:(JFO)(JDO)1130QtJFOj~JDWMSMS10:1190JDIIMSMS10:1190JD4MSMSW:1190JD8MSMSWMSMS(MSO):MSMAMSMAD$DD$B$D$DD$" S390:1370!IWNP:PP(I)I::IWNP:JWNPW:(O).51320GQAPP(J):PP(J)PP(JW):PP(JW)QAW(::PP(O)Ww2PPPP(PP(O)):DP(PP)O1350<480FPP(O)PP(O)1:PP(O)NP1330P580:1390Z2730:NPDP(O)O1280d2990: nH$(RSRD)(CSCD)RDRS(RDRS):CDCS(CDCS):1490>(2).5RDRS(RDRS):CDCS:1490WRDRS:CDCS(CDCS)sM(RD,CD)22050:1910A(NA,II)M:M(RS,CS)W1530RRS:CCS:390:MAOKO1530OW(R,C)M:M(R,C)O(D$,RT3)(R :T9,0:20:1890%@QDMA:GA.2.35(W):FF.6:KOIWK:QDQDAA(I,W):RJGD.25.3(2).1(M(R,C)2):UDQD:2110sTQA(QAQDGDFF):QAOQAO^2150:QAO1780hQD(QDQAGA):QDOQDOr2150:QDOFFW:1620|KO1680IWK:A(AA(I,O),O)M::390:1660KAA(O,O):M(R,C)21710&MAOA(K,O)M01720GF(K,O)PP:F(K,W)OpOW(R,C)PP:(D$,RT3)(R$,IICII);M(R,C)WWD$;:1760M(R,C)IICL$(PP)FT$;:1760CL$(PP)AR$;20:PN$(PP);" IS VIE PROBLEM FILE END PF0 " NONE"7 " BLOCK COUNT = ";BC=j " BLOCKS FREE = ";664BC;20)"(TRACE)"y I0 IM: LCLCLD%(I) " BLOCKS FREE = ";664LC;20)"(DIR)"----------------------0)"(BAM)" 2: 1------------------------------. DISK TRACE ERRORl EN66 PF$"ILLEGAL LINK": 1450: TRACE LOOP CONTINUE} DISK ERROR " UNRECOVERABLE DISK ERROR" EN;EM$;ET;ES 2: 1---ieʅʥe˅ˮ 8*ʑ`   . . .   i i@`  !      LHH i  ihh        ЮР`Ѕ@     `HH t/ 'Ѝ6"ɎL# . . .   i i@`  !      LHH i  ihh        ЮР`Ѕ@     `HH t(NA,FI)CD20:"ARMY "NA" OF"MS" SENT";<BB$H$" HIT FB/F7 TO CONTINUE";:30\$20:BB$;:M(RS,CS)II1090.NKAA(O,O):A(NK,W)A(NK,W)MS:A(NK,W)WA(NK,O)M8BNKAA(O,O):F(NK,W)F(NK,W)MS:F(NK,W)OF(NK,W)OLVBB$H$"JS/CENDING"MS;:11301110:MSO"RSR:CSC:SNW:140:20SBB$H$"POSITION X WITH JS/CRSR, THEN F7/FB";g320:JFO1240RDR:CDC:SNO:T9,(T9)W:CCS:RRS:140:2560:2190IONP:DP(I)O:NPW1300 PPW:480:580:1PP);" YOUR TROOPS";:390:D$DD$"IDLE TROOPS:";MA;.\MAOS$;<fKO960Ep950fzOW(R,C)PP"WOODS";:950" YOUR TROOPS, HIDDEN";:390:D$DD$"IDLE TROOPS:";MA;MAOS$;KO960950"ROCKS";D$DD$B$H$" HIT FB/F7 TO SEE ARMIES MARCH";:60:70,xTQWFI:1410::WKWKW:7A0RNS(WA(TI)):NANSBB$H$" MOVING ARMIES...";:NAW(NAA)NAA(NA,O)OA(NA,4)M1960RSA(NA,II):CSA(NA,T3):RDA(NA,4):CDA(NA,FI):PPA(NA,O)$,IICII);BL$;QAA(NA,W):UAQA:DPOW(RD,CD):DPMDPPP1890@RRD:CCD:390:MAOKO1600SM(R,C)21890y20:PN$(PP)" TAKES "PN$(DP)"'S";"D$DD$" WITHOUT A FIGHT!";,SNII:140:BB$H$" HIT FB/F7 TO CONTINUE";:60670:BB$;)O:OW(I,J)M#:"&";::GLW2360$:"ROCKS %";:J6:IO18:(O).223303$ (T3).2M(I,J)IIL$ (W).2M(I,JW)IIl$ J(J.21.9(2)):J4J4{$$ J14J14$. "%";:$8 GLW2400$B :"TREES #";:IW50$L R(19(T3)):C4)RS:A(NA,FI)CS:20:BB$;: !>CTII:SNII:140:PPA(NA,O):DPOW(R,C):53280,IIL!H(D$,RT3)(R$,IICII)CL$(PP)"^";:20u!R" "PN$(PP)" ATTACKS "PN$(DP);:2160!\BB$H$" HIT FB/F7 TO SEE OUTCOME";:30:BB$;:!fP2,F1:G2,W2:G2,W2W!pCT:1800:UDO1880DM(R,C)IIF(AA(O,O),W)MAUD:1880)NA(AA(O,O),W)MAUD=XA(NA,O)M:1960ybA(NA,II)RD:A(NA,T3)CD:RRD:CCD:OW(R,C)A(NA,O):2000lRDA(NA,4)CDA(NA,FI)1960vRRD:CCD:390:M(R,C)II1940AA(O,O)WA(N I))(9F(I,T3))))& :' RI4I4:CJ4J4:ROR18COC182550"' M(R,C)O2550M' K8(IR)(JC):(II)K10M(R,C)W]' :"#";::' O0:W1:II2:M1:IO:JO:RO:CO:QAO:JFO:JDO:KO:KKO:RRO:T131:FI5' T256320:T33:T4 D":14)"LORDS"*Z M$(II)RK$:IO7:BI(I)III::OX30:OY57:28907*d IOII:34808I,I:53287I,6::53285,6:53275,Op*n 53276,O:53277,O:T9,O:53271,O:53280,FI:53281,FI*x IW199:A(I,O)M::AO:D$""* R$" DP(O)NP:BB$;:20:," AOIWA:A(I,O)MSA(I,O)O-, :IONFW:F(I,O)MSF(I,O)O>-6 :RO18:CO18:OW(R,C)MSOW(R,C)Oh-@ ::230:DP(MS)W:DP(O)DP(O)W:2740-J BA40960:SAZX:56334,(56334)254:W,(W)251-T IO1023:IBA,(I (19(W)):M(R,C)O2380$V M(R,C)W:"#";:%` GLT32420:%j KKWFI:I(T312(9)):J(T312(6)):2520:l%t :"CASTLES []";:IONFW:KKO:INPKKIW%~ R(19(O)):C(19(T3)):M(R,C)W2430% F(I,II)R:F(I,T3)C:F(I,K)KK:M(R,C) (CTW)(CT2):53289,CT:GP6(3):"";3"zD$DD$(" "(QA),9)(" "(QD),14);9"C"""x"A$"":"LORDS (1-4)";A$:NP(A$):NPWNP42200"IWNP:"LORD"I"'S NAME";:A$:PN$(I)PN$(I)A$:"A$"":"CASTLES (";T3NA,4)M:1960KAA(O,O):A(K,W)A(K,W)QA:1950"KAA(O,O):F(K,W)F(K,W)QA0A(NA,O)MANANS1430Gy53280,FI:BB$H$" HIT FB/F7 TO CONTINUE";:70T9,O:BB$;:20(D$,RT3)(R$,IICII);M(R,C)WWD$;:2040M(R,C53264:T515:T616:T7255:T8256:T953269:T0653:WK1;( W2129:W121:W317:P154273:F150:F2100:F3150:G154276:G254283|( ZX53248:ZYZX1:O$"":H(K)(KT8):L(K)KT8H(K)(( M(18,18),CL$(4),BI(7),M$(2),A(199,5),F(35,4),OW(18,18),PN$(4":I5427254300:I,0+ S$D$DD$(R$,27)"(FB/F7-SEND)"P+ :54296,143:54287,102:54292,240:54290,17:54285,246k+ 54278,250:54280,50:+ IONFW:F(I,W)F(I,W)F(I,4):+ 20:BB$H$" HIT FB/F7 TO GO ON, CTRSA):-^ W,(W)4:56334,(56334)W-h BA40960:SA:SAO2940.r SABA8SA:ISASA7:J:I,J::2920;.| BA32768:SA:SAO2960g. SABA64SA:ISASA63:J:I,J::2940m. . 56578,(56578)T3:56576,((56576)252)W. 648,132:53272,(IT3:OW(R,C)KK:"[]";:% 230:D$;"OK (Y/N)?";:50& A$:A$"Y"A$"N"2460)& A$"N"2280J& 20:IONFW:F(I,O)O2500& K.091.3(W):F(I,4)W(WK):F(I,W)(T5(W)(II)K):2510& F(I,4)7NP:F(I,W)(20NF15(W)II((9F(I,IP;:"-35)";A$"NF(A$):NFT3NPNF3522204#"LEVELS: 1-NO TERRAIN":" 2-HILLS, SOME TREES"W#" 3-HILLS AND FORESTS"#A$"":"LEVEL (1-3)";A$:GL(A$):GLWGLT32260#2970#"PLACING GRASS &";:IO18:JO18:M(I,J)IICL$(OW(R,C))FT$;:2040 CL$(OW(R,C))AR$; 0 RRS:RDR:CCS:CDC:A(NA,O)O2100P BB$H$"HIT FB/F7 TO GO ON";r RDR:CDC:M(R,C)OSNO:140 20:PN$(A(NA,O));"'S ARMY "NA; *D$DD$" UNABLE TO PROCEED";:40:70:T9,O 4A(NA,CTORIOUS!";:1980:A(NA,W)QA60:1890120:PN$(DP);" REPELLS INVADERS!";:40:1980JUDUDQD:UDO1850^KOUDO1850uIWK:UDO1840AA(I,W)UDA(AA(I,O),W)AA(I,W)UD:UDO:1840&A(AA(I,O),O)M:UDUDAA(I,W)0:390))2 IO4:CL$(I)("",IW,W):PN$(I)CL$(I)::PN$(O)"REBEL"F)< B$" ":DD$"":BB$" "B$)F FT$"[]":AR$"^_":WD$"##":RK$"%%":BL$"&&":H$"":M$(O)BL$:M$(W)WD$)P ""11)"REBELS":14)"ANL TO QUIT";+ 90:(T0)62780+ JFO2750+ BB$;:?, BB$H$" CRSR/JS FOR PLAYER, FB/F7 TO QUIT"D$" -1 FOR NONE, 0 FOR ALL";H, MSMm, D$DD$" "MS" ";:90:JFO2830, JDOMSMSW:MSNP2790, 2800, MSM20:BB$;:, MSO 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.)  (53272)240)8:. 56578,(56578)T3:56576,((56576)252)T3/ 648,4:53272,((53272)240)4:"":e/ 27,,102,102,63,60,60,60,,29,,102,102,252,60,60,60,0,30,240,128,237/ 246,246,109,255,,31,,,182,219,219,182,254,,38,,5,2,80,32,10,4,0