50 4,153,250,192,185,250,216,153  234,196,185,244,5,153,244,193@  185,244,217,153,228,197,185,238d  6,153,238,194,185,238,218,153  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185,250,192,153 "IPPLES":IN$(2,9)"IPPLES IN", P$(2,10)" ":IN$(2,10)" "Y P$(2,11)" ":IN$(2,11)" " P$(2,12)" ":IN$(2,12)" " P$(3,1)" ":IN$(3,1)" " P$(3,2)" ":IN$(3,2)" "ZZ$",S,R" XX15 2,TX$(XX) :2>AT,7,1:""}I813:AT,I,1:" ""AT,14,1:" [/=ANCEL * PC=UN ROGRAM] ",AT,15,1:"  250,4,185,234,196,153,250,216! 185,244,193,153,244,5,185,2289! 197,153,244,217,185,238,194,153]!  238,6,185,222,198,153,238,218r! 200,208,205,96!FI9601022:N:I,N::!P 0,0,0,0,0,0,0!Z 0,0,0,0,0,0,0!d 0,0,0,0,0,1,192 " P$(3,3)" ":IN$(3,3)" "C P$(3,4)" ":IN$(3,4)" "x P$(3,5)" ":IN$(3,5)" " P$(3,6)" ":IN$(3,6)" " P$(3,7)" ":IN$(3,7)" " P$ "01AT,22,3:" ":1000V6XX15:AT,7XX,3:""TX$(XX):l@AN$:AN$""4160JAN$(13)882:204TB1H3B1H5B1H6B1H8B1H94195VB2H3B2H124195!n 0,0,224,0,0,112,0"x 255,252,0,255,255,0,255" 252,0,0,112,0,0,2242" 0,1,192,0,0,0,0F" 0,0,0,0,0,0,0Z" 0,0,0,0,0,0,053  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185,250,192,153 (3,8)" ":IN$(3,8)" "8 P$(3,9)" ":IN$(3,9)" "h P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11)" "" P$(3,12)" ":IN$(3,12)" ", P$(4,1)" W IFB=2ANDH=1ORB=2ANDH=2ORB=2ANDH=8ORB=2ANDH=9THEN4195X IF B=4+^882:V21,1K`I035:V,X1I:D135::\bV21,0:230kc882:1550uh4160I828935:A:I,A:: 160,0,185,0,4,153,0,192 185,0,216,153,240,195,185,2  ":IN$(4,1)" " ( CL718:AT,CL,14:" "::SPOKE657,128:REM DISABLE SHIFT/COM KEYxPOKE775,200:REM DISABLE LISTINGPOKE808,234:REM DISABLE STOP/RESTORE828:V21,0:ZZ$IN$(B,H) 2,8,2,"@0: '********************************M * MENU PROGRAM V2.0 *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67  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 3: 632,13: 198,2:G "":AT,2,2:""v %AT,1,5:"(C)1987 OUBLE OFTWARE V2.0" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": ONS"11)"UN ROGRAM "-11)"ANCEL INDOW "L 11)""]PO55507:X0y I116:POI,0::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55587PO55507>X2X0HAN$(13)2140 5590LC56030(204828:V21,0JAT,12,4:""v"4)" HIS IS A 128 ROGRAM.T MAY ",4)" NOT BE LOADED IN THE 64 MODE."64)" OU MUST SWITCH TO THE 128 "@4)" MODE IN ORDER TO LO N 128":IN$(1,5)"VARI IN"1 P$(1,6)"THERMAL CON 128":IN$(1,6)"THERMAL IN"d P$(1,7)"HERMAL ON 64":IN$(1,7)"HERMAL IN" P$(1,8)"WINDOW DRESSING":IN$(1,8)"WINDOW IN" P$(1,9)"WINDOW DRES DEMO":IN$(1,9)"WINDDEMO IN" P$(1,10)"UERIL 9:NATAT22:M:N,M:4 ,32,180,2,132,251,32,180,2W .166,251,76,240,255,32,253,174u 032,158,173,32,170,177,96 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN2:B.:5190 d53280,0:53281,1:  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, . >AT,20,2:"  "e CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:" R2080\X0882:4100aX22180EbB1H3B1H5B1H6B1H8B1H92155acB1H11B1H122155{dB2H3B2H62155e IFB=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D135::zV21,0:2 AD THIS "&J4)" PROGRAM SUCCESSFULLY. SE THE"RT4)" PRESCRIBED METHOD WHICH IS..."~^4)" OAD ''ROGNAME'' "h4)" [RESS ANY EY] "r4)""|AT,22,3:" LA":IN$(1,10)"UERILLA IN"-( P$(1,11)"LUNAR BUGGY":IN$(1,11)"BUGGY IN"U2 P$(1,12)"TOMB":IN$(1,12)"OMB IN"7 P$(2,1)"ORE NCOME":IN$(2,1)"ORE IN"< P$(2,2)"HONE ECODE":IN$(2,2)"HONE IN"F P$(2,3)"SHORT SOUND":IN$(2,3)"SHORT IN" (14):2500+ n2040,15:V39,10:V,X1:V1,Y1P x800:53265,(53265)16:53296,0m LC55590:P7:H1:V21,1 BB1:BNNB1 I112:AT,I6,14:""P$(B,I)::V1,Y1 F(P$(B,H)):A0F:LCA,8::1000 AN$:AN$""206 AN$(17 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 ";fAT,3,10:""apAT,4,10:" "zAT,5,10:""S54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100::S4,0 30882:225I116:POI,5::; P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN"m P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 BUG REP II":IN$(1,3)"BUG REP IN" P$(1,4)"ARI-CAN 64":IN$(1,4)"ARI IN" P$(1,5)"VARI-SCA  ":1000)AN$:AN$""1670?882:V21,1:225` ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTI P P$(2,4)"RICKY NDEX":IN$(2,4)"RICKY IN"BZ P$(2,5)"IMPLE IMON 64":IN$(2,5)"IMPLE IN"vd P$(2,6)"SIMPLE SIMON 128":IN$(2,6)"SIMPLE IN"n P$(2,7)"URVEYOR":IN$(2,7)"URVEYOR IN" P$(2,8)"PLIT ACE":IN$(2,8)"PLIT IN" P$(2,9) )1250 AN$(145)1300) AN$(13)2000J AN$(32)3000:Y1100:140S 204w "";:53280,0:53281,0:V21,0 "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" "RUN": ""  631,1,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, :Y1Y18:Y1188Y1100,V1,Y1:I0F:LCI,0:@HH1:H12H1TPP1:P18P7tLCLC40:LC56030LC55590}204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC5 132,193,133,194,32,253,174>J32,138,173,32,247,183,132,195>K133,196,32,253,174,32,138,173?L32,247,183,160,,177,193,1455?M20,165,194,197,196,208,6,165X?N193,197,195,240,15,230,20,208x?O2,230,21,230,193,208,2,230?P194,152,240,225,96 E{47,1,2,4,8,16,32,64,128E|60,255,254,252,248,240,224,192,128E}61,,,,,,,,255E~62,255,127,63,31,15,7,3,1,-1F0,60,126,126,78,78,60,.3F .,,,,,,,,,,,,,,,.WF .,4,1,1,1,1,1,1,,1,1,,1,1,1,.vF .,1,,1,,1,,1,1,1,,,,,1,.F .,1,, AND,ARMOR,ASCEND,DESCEND,EXAMINE,INCANTL QUAFF,HAIL,SEARCH,INVENTORY,EXIT MENUL 15,12,11,3,14,6,10,8,9*M WEAPON,ARMOR,SPECIFIC ITEM,TREASURE,EXIT MENU,KNOCK YOU SILLYmM BASH YOUR BRAINS IN,GRIND YOU TO DOGMEAT,TEAR YOU TO RIBBONSM 13,195,119,91,91,91,75,227,Bd14,231,114,90,90,78,70,227,Be15,60,102,66,66,66,102,60, Cf16,252,102,102,124,96,96,240,.Cg17,60,102,195,195,195,102,60,79SCh18,252,102,102,124,108,102,247,sCi19,62,98,112,60,14,70,124,Cj20,255,153,24,2 W ELF,HOBGOBLIN,FUNGUSILICH PALADIN,SPECTER,REVENANT,WYVERN,GUARDIAN NAGA,DEMON KINGJ 1,1,2,2,3,3,4,4,5,6,6,7,7,8,8,9,10,10,10,10,11,11,11,12,137J 0,,5,9,11,2,5,,13,11,1,5,0J 18,18,17,2,15,21,19,18,16,3,6,11,18,4,5,22,8,12,7,13,14,20,1  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 ,234?Q162,25,181,217,9,128,149,217,202,16,247,96@R32,230,2,169,15,141,24,212,32,241,183,142,5,212,32,241,183,142K@S6,212,32,241,183,142,1,212,32,241,183,142,,212,32,241,183,142@T4,212,32,241,183,134,2,162,10,160,255,136,208,253,202,208,248 1,1,,1,,,1,1,,1,1,1,.F .,1,1,1,,1,1,1,,1,,,1,,1,.F .,,,1,,1,,1,,1,1,1,1,1,1,.F .,1,1,1,1,1,,1,2,,1,,1,,1,.G .,,,,,,,,,,,,,,,.+G .,,,,,,,,,,,,,,,.OG .,2,1,1,,1,1,1,1,1,,1,1,1,1,.nG .,,,1,,1,,1,,1,1,1,,,1,.G .,1,1,1,,1, GROWLS,BELLOWS,BARKS,ROARS,"PASS BY, KNIGHT ERRANT"M A SPRAY OF WHITE LIGHT,A CHORUS OF ANGELIC VOICES$N IT TRANSFORMS IN YOUR HAND!,A BLAST OF SPARKS..CHECK INVENTORYoN COMMON,GOOD,EXCELLENT,PRECIOUS,GLITTERING,FABULOUS,CACHE,CHEST,CRATEN 4,24,24,60,Ck21,247,98,98,98,98,98,60,Cl22,247,98,98,98,52,52,24,Cm23,201,201,221,221,221,110,102,Dn24,227,98,52,24,44,70,231,5Do25,247,98,52,24,24,24,60,UDp26,126,70,12,24,48,98,126,[Dq:Dr28,255,165,165,165,255,165,165,255D 8,9,23J "()","()","'","'","+,","+,","*","*","./","./","-","-"J "12","12","0","0","4687","45","3","3","<=>?",":;","9","9"9K DAGGER,HAND AXE,LANCE,MORNING STAR,SCIMITAR,BROADSWORDK WAR HAMMER,DRAGONSLAYER,EXCALIBUR,BUCKLER,LEATHER JERKIN 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 ,198@U2,165,2,208,240,32,230,2,96,160,24,169,,153,24,212,136,208,250,96,0@V0,,,,248,240,232,216,184AW1,56,56,44,76,254,134,199,=AX2,252,102,102,124,102,102,252,ZAY3,63,99,97,96,96,99,62,{AZ4,252,102,99,99,99,102,252,A[5,127,49,48 1,1,1,1,,1,1,1,1,.G .,,,1,,1,,1,,1,,1,,1,,.G .,1,1,1,1,1,,1,,1,1,1,,1,1,.G .,1,,,1,,1,1,1,1,,1,,,2,. H .,,,,,,,,,,,,,,,.#H .,,,,,,,,,,,,,,,.GH .,4,1,8,1,1,1,,1,,1,1,8,1,1,.fH .,1,,1,,,1,,1,,1,,8,,1,.H .,1,,1,,,1,1,1,,8  NO SHAFT LEADING DOWN HERE,NO SHAFT LEADING UP HEREN"YOU DON'T HAVE THE ",THE CATACOMBS,THE SEPULCHRE(O THE BARROW,YOU'RE OUT OF HEALING ELIXIR,YOUR VOICE ECHOES EMPTILYrO POISON DARTS,TRIPWIRE,BEAR TRAP,SPIKED PITFALL,TRAPDOOR,SNARE NOO s30,31,31,31,31,31,31,31,31Dt31,248,248,248,248,248,248,248,248Du38,,,,31,15,23,27,29 Ev40,,128,192,224,240,248,252,254&Ew41,,1,3,7,15,31,63,127HEx42,255,,255,255,255,255,,255eEy43,128,64,32,16,8,4,2,1Ez45,,,,255,255,255,255,255 ,CHAINMAILKIRON PLATE,MITHRIL PLATE,COMPASS,SCROLL,STEEL HOOK,PINTS OF ELIXIRL COIL OF ROPE,BLACK CLOAK,MITHRIL RING,HOLY SYMBOL,LUMP OF COALTL LUMP OF IRON,ALCHEMY STONE,GEMS,JEWELS,GOLD,SILVER,RARE SPICESL TAKE,DROP,LEFT HAND,RIGHT H 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) | ,62,48,49,127,A\6,254,102,98,120,96,96,240,A]7,126,198,192,223,198,198,126,A^8,231,99,99,127,99,99,231,B_9,126,24,24,24,24,24,126,>B`10,15,6,6,102,198,198,124,cBa11,247,100,104,120,108,102,247,Bb12,240,96,96,96,98,102,254,Bc ,,1,,1,.H .,8,1,1,8,1,1,,1,1,1,,1,1,1,.H .,1,,1,,,1,1,,1,,,1,,1,.H .,1,,8,1,1,1,,,1,1,1,1,,4,.I .,,,,,,,,,,,,,,,.HI160,194,160,152,137,110,185,110,170,170,170,129,172,150,172,160ISTIRGES,GIANT SPIDER,CONSTRICTOR,GRAVE RAT,DROpSEO YOU DO NOT HAVE THE ALCHEMY STONE!,T H O U A R T S L A I N !OTHOU HAST CONQUERED THE TOMB! 321:206)(DL(CL,.)T).C$(U)M$(28):BO$"":MC$"":NU:254<*I(19).C$(U)M$(30)I$(19)"!":BO$"":MC$"":NU:254z*I(17).C$(U)M$(30)I$(17)"!":BO$"":MC$"":NU:254*DLDLU:CLCL128:A50:DF:JT:321*SS144:SC148:288 X)"!!"(34)0X((U)F):C$(T)M$(10X)" THE "T$(J)"." 1BO$"":MC$"":NT:254:81A.:FC.H:EBMCP(.):EBM.EBMDE246T1(DL(EBM,.)B(7)).2461DL(EBM,.)DL(EBM,.)G:251:X.2000::288:AAU1:A.C$(U)"NO TRAPS AHEAD. INIIU:2817JUIU"";:IIU:2817"";:2818 901,SSB(K),SSB(K)SZ,CEM256:901,SCB(K),SCB(K)SZ,CC:[8!V34,LV(DL,.):V35,LV(DL,1):V36,LV(DL,2):Z$CZ$(DL):8"56333,127:1,51:901,53248,55296,61440:901,53248,55296,63488 U:BO$"":MC$"":254.CU21C$(U)"NOTHING HAPPENS.":NU:BO$"":MC$"":2549.C$(U)M$(15(CU21)):NU:BO$"":MC$"":256f.CU21DL(CLD(CD),.)KDL(CLD(CD),.)U.JDL(CLD(CD),U):CU22(JKJ9J13)238.CU23CU.:I(23).:I(24 :MC$"":4 N.:X1014:I(X)NNU:C$(N)I$(X):C(N)X 5 :AA14:SMU:LM18:BO$"":MC$"":95 N.:X1524:I(X)NNU:C$(N)I$(X):C(N)Xb5 :AAU:SM21:LM18:BO$"":MC$"":5 N.:X2530:I(X)NNU:C$(N)I$(X):C(N)X5:AA14:SM22 ";65)" ";75)" ­ý ­ý "<85)" ý ý "F<94)"THE ULTIMATE 3-D ADVENTURE GAME!"i<:10)"JOYSTICK IN PORT TWO"<;5)"(C)1988 CLEVELAND M. BLAKEMORE" :Z$CZ$(DL):61:289*271:273:274!+C$(U)M$(31DL):BO$"":MC$"":NU:AAU:SS152:SC156:273,+254:i+D$B$D$""I$(AR)17)"HP"((LF))39(I$(CU)))I$(CU);+WEC$(U)I$(WE):BO$"":MC$"":NU:AA19:257+258:XU35:+ ":NU:BO$"":MC$"":2541C$(U)"YOU AVOID TRAPS.":NU:BO$"":MC$"":254,2A.:DUF:D263,265,267,269:NAAU:274<2:A255:{2C$(U)"YOU ARE CARRYING NOTHING.":BO$"":MC$"":NU:2542C$(U)M$(36((U)6))"!!":NU:BO$"":MC$ 8#1,55:56333,1298$296:X.7:A:61440878X,A:9%56578,(56578)3:56576,(56576)25259&53272,((53272)15):648,196:(147):648,192T9'53272,((53272)240)12:c9(A:A19)X.7:D:63488A8X,D::2969*" A H O Y ! )U.CU24I(25)U:I(24).:CU..255:/I(18).C$(U)M$(34):BO$"":MC$"":NU:254:_/I(18)I(18)U:LFLF10:C$(U)"YOUR BODY IS FLOODED WITH STRENGTH":NUz/BO$"":MC$"":254:/J(DL(CLD(CD),U)):J.C$(U)M$(35):MC$"":NU :LM17:BO$"":MC$"":5N14:XUN:C$(X)CM$(X):C(X)X::AAT:SM12:LM16 6BO$"":MC$"":E6901,CEM256,CEM256SZ,SSB(K):901,CC,CCSZ,SCB(K):U6(19);BO$;}6IUAA:::SM)(MB$,LM):IUNT6SM)"*"(B$,LMT)"*"::SM)(M <<6)"*** SPECIAL DISK EDITION ***":<=327:S5,K:S6,255:SF,23:AK:DF:XU30:SU,A$=>SG,D:DD1.01:AAU::S6,G:319:35:G=?327:S12,F:S19,F:S13,241l=@S20,241:S11,17:S18,17:5:=AXADJ:SR,.,240,X,.,17,15::319 I214,214,217,217+274:279:BO$"":C$(U)"THE "I$(C(I))" IS OF"A,C$(T)M$(18I(C(I)))" WORKMANSHIP.":AAK:NT:LM28:SM20LMTU,274:255:35:p,274:279:C(I)16220,C$(U)"YOU HAVE"(I(C(I)))" "I$(C(I))".",NU:BO$"":254 "":256:2C$(1)"YEA":C$(2)"NAY":N2:AA18:257:279:'3C$(U)"YOU HAVE NOTHING TO "CM$(I)"!":BO$"":MC$"":NU73256:255:j3JY(JOY):JJ(JY):(JF(.))255:JOY,16,16:z3AA11(NT)3LM(C$(U))F:SM20(LMT):274:3N5  M A G A Z I N E PRESENTS"9+5)"îîîî"6)"":,5)"îý°î°°î ϷИ "A:-7)" ­­ý   "m:.7)" °î  ":/7)" ­ý ­ý ": :254:/J5J7C$(U)"THE IGNORANT BRUTE IS SILENT.":NU:BO$"":2540LFB10J11(U).8240U0C$(U)(34)M$(14)(34):C$(T)"MURMURS THE "T$(J)"."0BO$"":MC$"":NT:DL(CLD(CD),U)J:254:0X((U)F):C$(U)(34)"I'LL "M$(6 B$,LM)6(19);MC$"":IUAA::6IUN:SMT);"";C$(I):::7JY(JOY):JJ(JY):(JF(.))279:(19)+7IUAA::::IUA7SMT);"";C$(I)g7JY(JOY):JJ(JY):JF(.)322:z7JUJT2827"";SMT);MC$;C$(I)7(JT) :=BSR,.,240,34,75,17,5:319:=CA$"251331421502421502":XU(A$)H>DSR,.,240,((A$,X,T)),.,33,10((A$,XT,U)):>E319:=>FSR,.,240,F,F,129,F:319:f>GS24,.:RV.24:SRV,.:S24,G::>H32,253,174,32,138,173,32,247>I183, :35:,C$(U)"UNROLLING PARCHMENT...":NU:BO$"":MC$"":256%-XDL128:JU:A.12716:C$(J)"":D.G^-C$(J)C$(J)SM$(DL(XAD,.)G)::C$(JU)C$(J):JJT-:NJU:BO$"":MC$CZ$(DL):254:35:-CU.C$(U)"YOU ARE EMPTY HANDED.":N :XUN:C$(X)M$(X):C(X)X::AAU:SM11:LM18:BO$"":MC$""3274:279:I5XU:4I263,265,267,269N4N.C$(U)"YOU HAVE NO "C$(I)".":NU:254:XU:X4XU:4N.:XUKU:I(X)NNU:C$(N)I$(X):C(N)X4:AAU:SMT:LM18:BO$"" 07)" ý ý ̯":117)" "10)"ߗ":17)" ";25)" îîîîî"G;35)" °î°î°î°î°î"q;45)"­ý ­ý­ý ­ý";55)"°î °î°î °î FC(DL(FC,U)U):EL(ELSP(XF))GLMBSP(X)U:DU(SB$(X,FC)):MP(MBD),((SB$(X,FC),D,U))`MBCSP(X)D,CS(FC):nN:SBEL:O(147)(8)(142)"STAND BY....":290:298PDL(383,3),B(15),SP(7),SB$(3,12),D$(4),CS(12),L$(6),I(30),M(24),MH A,XoX.1:SB$(X,.)(191)(32):&pX130:I$(X)::X114:CM$(X):WqX.2:A.2:LV(X,A):A,X:X144:M$(X):orJ1:D.T:X.KUsA((U)96(D12816)):(DL(A,.).)115:DL(A,U)M(J):M(J)AtMH(J)JF(DU):JJU:::X.6 (A,U).DL(A,U)(DL(M(X),U)):DL(M(X),U).:M(X)A,#:(DL(CL,U).)317:73:V21,EL:ITTISZ:9#CU20Q#WEBB((GWE)10)#LFLFBT:326:X.H:V17,128:V34,H(X):V35,H(X)#:289:VKF,C(.):#(B.CU20)8:ECL:DMH(.): 28):W2$(W$,16):W3$(W$,10):W4$(W$,6)8_S1$")"(W$,12)"(":S2$")"(W$,8)"("h`S3$")"(W$,4)"(":S4$")"(W$,2)"("aE1$">"(W$,12)"<":E2$">"(W$,8)"<"bE3$">"(W$,4)"<":CZ$(.)"":CZ$(1)"":CZ$(2)""cI$( C$(1)M$(43X):C$(2)"":C$(3)" P L A Y A G A I N ? "C BO$"":MC$"":N3:256:252:IUS24,.:30Y SE,4:679,.:679v DL(CLD(CD),.).326: CLCLD(CD):57: (B.)8:SB(V21):SS144:SC148:273 271:V21,.:274 I$(DL(CL,T))" TAKEN!"'NU:BO$"":DL(CL,T).:D$I$(.);:254:I'DL(CL,T)C$(U)"NOT ENOUGH ROOM HERE.":NU:BO$"":MC$"":254Z'258:X1'274:279:DL(CL,T)C(I):DL(CL,H)I(C(I)):I(C(I)).'C$(U)I$(C(I))" DROPPED.":NU:BO$"":D$ (24)2QCM$(14),T$(13),I$(30),C$(30),C(30),M$(44),LV(2,2),CZ$(2),H(8),SM$(8)JRTS(24),U(26),V(26)SFC.:CL17:CD2:VL.:EL.:ER.:VS.:LF20:M.:W.005:Z.94:WL17TTL388:TGL16:CSM.:CEM192:DE383:V53248:SB.:RL828:SE648:SR679UU1:T 3:61376X,.:uD.T:X.10:vA((U)96(D12816)):(DL(A,.).)118:DL(A,.)DL(A,.)B(7)Bw:vxX.26:A2703(2((X20)12)):A65535A65535yU(X)(AB(K)):V(X)AU(X)B(K):zDL(WL,T)U:DL(WL,H)U:DL(WL16,T)10:DL(WL16,H)U X.$(MH(X).)179:(EM(X))179:MH(X)MH(X)DM:3265$DFK:V17,128:V34,H(D):V35,H(D)::289b$(MH(X).)179:MH(X).:DL(E,U).:M(.).p$LV.:AU$AAU:FCED(A)LV:FC.FCDE171$DL(FC,.).DL(FC,T)171$DL(FC,T)TS(X .)(B$,15):T$(.)(B$,13))d CP(X)FCD(CD)(CLD(X)): SW(X)(TGLCSM)ke TE(X)(TLCEM): CM(X)XD(CD)CL: MP(X)CEM2561016XfJ(X)(G(XG)):C(X)(LFK)T(LFKLFG)(FH)gCD(X)CD(CDFU)F(CD.)F:JF(X)((JY(GU :SS152:SC156:273 271:279:(IGU)1458!I180,185,193,194,195,196,202,210,224,232,235,243,248T!SS152:SC156:288:142!SS144:SC148:288:V21,SB:X(.):5:!JF(.)140!DL(CLD(CD),.).326:!CLCLD(CD):57:!CDC I$(C(I));'ARC(I)AR.'CUC(I)CU.'WEC(I)WE. (254:3(263:(N.)253:274:279:ARC(I):\(267:(N.)253:274:279:CUC(I):(265:(N.)253:274:279:WEC(I):((DL(CL,.)F).C$(U)M$(29):BO$"":MC$"":NU:25 2:H3:F4:K8:G15:JOY56320:DL.:DM.:AR.:CU.:WE.JVS54272:BCV38:SS.:SC.:CC55296:SZ959:I.nWD(1)1:D(2)16:D(3)1:D(4)16XH(.)1:H(1)10:H(2)2:H(3)2:H(4)1:H(5)7:H(6)3:H(7)13:H(8)5YSP(.).:SP(1)4:SP(2)6:SP(3)7:SP(4)15 {(147)(14):V21,.:V23,127:V29,15|V17,(V17)64:289:614}SS144:SC148:273s~C$(U)M$(31):BO$"":MC$"":NU:254:288:319:ITIT1000JY(JOY):JJ(JY):BDL(CL,U):B.(U)B50Z159((U)Z)5:(JF(J)AR.)163 ):DL(FC,H)U((TS(X)G)(U)H):173%AFA.:LVLVU %168%X.G:DUF>%BCD,X:::V21,(V21)240O%323:LFLFB}%X26(U)5:I(X)I(X)((U)50B(LVU))%C$(1)"A "M$(22(U)H)" "M$(25(U)H)" OF "I$(X)"."%BO )).)hH(A)(ARI(AR)TLFK)iX.15:B(X)2X:BjX.DE:D:DL(X,.)D::X.15:A:VX,A:kkX113:T$(X)::X.24:A:M(X)A:lX.12:CS(X):X:X.24:TS(X):mX.6:A.3:SB$(A,X)(32X):A,XnX712:A.3:SB$(A,X): DU:CDCD(.):57:!CDCDU:CDCD(.):57:,"DDLKU:JDKU:XDJ:(MH(X).)158:AUG"CLM(X)KAM(X)D(F)b"CLM(X)KAM(X)D(T)"CLM(X)CLM(X)KAM(X)D(U)"CLM(X)CLM(X)KAM(X)D(H)"A.ADE158"DL(A,.)DL 4(I(19).C$(U)M$(30)I$(19)"!":BO$"":MC$"":NU:254;)I(17).C$(U)M$(30)I$(17)"!":BO$"":MC$"":NU:254})(CLWL)201:I(25).C$(U)M$(42):BO$"":MC$"":NU:254)(147):323:XU:134)DLDLU:CLCL128:AF:D50:JT: :SP(5)48:SP(6)64:SP(7)128FZD$(.)" ? ":D$(1)"EAST ":D$(2)"SOUTH":D$(3)"WEST ":D$(4)"NORTH"|[SM$(.)"\\":X18:SM$(X)(32)(32)::CR$(13)\X.38:W$W$(160):B$B$(32):MB$MB$"*":]D$"":X.23:D$D$"":^W1$(W$, JJ138,146,8,149,8,8,8,150'VKF,C(.):LFLFW:(TIIT)151:(LF.)127\J.:D.:XU100:6348832K(U)K,(U)255U:"":V21,.:327:X250150U:SR,.,240,X,.,17,1:X.7:6348832KX,.::X.V17,(V17)191 $"":MC$"":NU:273:254:288:35:&XXU:(X25)164:D&DL(CL,T).C$(U)"NOTHING HERE!":NU:BO$"":MC$"":254:Y&DL(CL,T)14183&I(DL(CL,T))C$(U)"YOU HAVE A "I$(DL(CL,T)):NU:254:&I(DL(CL,T))I(DL(CL,T))DL(CL,H):C$(U)  ܕ В ϒ ϕ "]N"   ϒ В Е "X"  ܁ϕ "b"  Е "l" E55,1,255,1,,1,1,,1,255,1,255,0 255,255,3,,1,5,,7,8,6,,3,2,4 X.X1:"TOMB.OBJ",8,1256,144:55,0:f53280,.:53281,.:X(TI):X901970:A:X,A:X828839:A:X,A::X679753:A:X,A::79D(U)G:SK,U(D):S7,V(D):SG,U(DKF):SGU,V(DKF)VLFC:FCU45,45,46,47,48 PT ROUTINE& 120,169,31,141,20,3,169,207,141,21,3,169,166,141,17\  3,169,207,141,18,3,88,96,173,,220,41,15,133,253 169,15,56,229,253,168,185,221,207,240,8,141,168,2,160  0,32,60,207,76,163,207,173,168,2,10,170,189,202,207 * 8,152,1 (CUG))"";*$39(T$(DL(CL,U))))T$(DL(CL,U));:RL:I%" ":X.20:" "::o&"":X.10:8)" "::'"";13)" ";:X.F:" ";::("";16)"   ":)"":X.21:39)(20)(32):: =="Z$")   ";[ "    "Z$"    "; "    "Z$" "Z$"ߐ    "; "    "Z$" "Z$"ߐ    ";6 "  ϕ "Mv"  Е "q""D$E$B$C$B$C$B$;"GUERILLA""SCORE = ATTACK 1AMMO"A$A$A$A$;"": SPRITE LOCATION DATA96,93,72,61,48,125,96,158,217 9(DL(CL,.)B(FH)).61=:SB(V21):V21,.:273:251:DL(CL,.)(DL(CL,.)G);X((U)10(DLU)):C$(1)"YOU TAKE"(X)" HP DAMAGE!":AA18:N1<LFLFX:257:326:X.2000::288:V21,SB=D$GH)"MOVE!";:CEMTE(.):SE,CEM:11:Z$;>F  FCU50,51,52,53:/ FCU54,55,56:c " + / "; "  "; "  "; "  ";0,170,40,48,25,240,43,173,220,207,24,125,0B4 208,157,,208,144,31,169,1,77,16,208,141,16,208,76{> 120,207,189,,208,56,237,220,207,157,,208,176,8,169H 1,77,16,208,141,16,208,173,168,2,10,170,232,189,202R 207,8,152,10,170,232,40,48,15,240,*"":X.10:30)" "::<+"":X.5:26)" "::c,"";23)"   ":-"";:X.17:6)W1$::."";:X.9:12)W2$::/"";:X.5:15)W3$::0"   "Z$"< "Z$">   ";o "  / +  "; "  "Z$"< "Z$">  "; "  / +  ";" ,126,17,126,17,78: V+16=64+128 SPRITE DATAL1,252,,3,254,,7,199,,7,56,128,6,221,128,1,125,.6,21,,4,46,128,4,29,96,12,35,104,28,62,220,60,62,62124,56,31,124,54,15,121,45,15,114,155,239,4,87,239,10,175,22219,215,156,32,107,124,CF:VLFC:LVCDUF(CDU):RVCDUF(CDF)6?EBMCP(.):EBM.EBMDE65Q@FCFCU:(FCU)63:yAELCP(LV):ERCP(RV):DL(EBM,.)67B7:FCFCU:U(FC.)63,71CDL(EL,.)FCFFCU37,38,39,40DDL(ER,.)FCFFCU41,42,43,44E/ "  ";n " "Z$"( "Z$") "; " "Z$"(========================"Z$") "; "  + /  "; "  23,173,220,207,24&\ 125,,208,157,,208,76,162,207,189,,208,56,237,220]f 207,157,,208,96,76,49,234,173,,220,41,15,133,253p 169,15,56,229,253,168,185,221,207,168,169,,108,5,0z 32,155,183,138,72,32,155,183,104,168,24,76,240,255,0 0,,2";:X.T:17)W4$:: 152""13)S1$;:\3""15)S2$;:4""17)S3$;:5""18)S4$;:6""13)E1$:7""15)E2$:8""17)E3$:/ + ";[ " "Z$"< "Z$"> ";!" "Z$"< "Z$"> ";"" / + ";#D$B$D$I$(DL(CL,T))GH)""D$(CD193,245,120,,,,126,18,15,195,9,23E97,36,63,225,18,63,225,8,51,222,1,179,128,7,222,180,15,225110,31,126,223,62,252,191,61,248,95,1,240,95,126,104,95,185,216223,85,183,190,147,110,136,16,221,240,3,187,240,4,117,80,15,250,80,. INTERRU D.H:(DL(EBM,.)B(D))D9,10,7:Z$;,F"";::FCFCU:FCU63aG72:CSMSW(.):V24,((V24)15)CSM:V21,EL:tHFCVLVLVLUID191:MP(U),D:MP(T),D:MP(H),D:MP(FU),DJEL.:ER.:V21,.:XVL.U:FCCM(X):DL(FC,U).78K  ";\ "  "Z$"(=============="Z$")  "; "  + /  "; "      "; "   "Z$"(================"(# "THERMISTOR IS NOW CALIBRATED": : .# T#~ ###############################x# FOLLOWING LINES FOR C-64 ONLY# ################################ ADD LINE 11# REPLACE LINES 100, 1020, 2030# ADD LINES 5010-49184d WINDOW DRESSING DEMO%n5106xBG,15:4,15u5,8:0,0,SW1,4: FR,,,,,M$;1: 1:"AS YOU CAN SEE..." 1:EQ$"THESE ROUTINES...": 1: ED,0,05,14:0,5,SW21,24: FR,,,,,M$;2: ED,1,0 ED,0,1:EQ$"DRESS UP YOUR WINDOWS,< 53281,.:53280,.:(8)(142)""15)"GUERILLA"a8)"(C)1988 CLEVE BLAKEMORE" T(7),B(7),E$(4),D$(103),I$(7)(V53248:SP2040:J56320:S54272-M90:I1:N16:C.:G30:U1:L7:P53180:AM.:BM4:TH.:LM509 2K21:B255:W13: THU:THZV21,.:""11)V$:420:330U|410:VK,(VK)(BB(A)):SPA,W:QA,E:T(A).:S8,4:S11,129:A.50::S11,128:S18,129:AZ.E:S15,A::S18,128:D.Z::M$"251331421502421502":450:S6,96:LL118 FA,0:FA1,11: POINT TO SPACE CHARACTERS:  FR:8,7,SW8,13N 5,8:"";: FRt  FA,AL: FA1,AH: DEFAULT FRAME  3:280  TUNNEL 5,14 I07: FR: 280 BG0:SW (2) SA4864:FRSA:ATSA3:CRSA6:EDSA9:FASA :P,9,23:D$(X):1 X1:VK,U:C(VG):C(VG):53000A MAIN LOOP{ F(J)N:XXU(XL)L:T(X)T(X)T(X)U:T(X).290 C(U)MU:CLUT(C).T(C)G(I):VK,(VK)B(C) C(VG):(F.)240:390:AMAMU AMLMAM.:BMBMU: #$ 11 SA=49152: GOSUB 50104$ 100 SYS SA: R=PEEK(251)T$ 1020 SYS SA: P1=PEEK(251)t$ 2030 SYS SA: P1=PEEK(251)$===============================$M49152: CSUM4609$ B$: B$"XX" 5100$B(B$)$ M,B: MM1: CKC ": 145,2:SW2,5,SW1,24: FR,,,,,M$;3: ED,2,0A ED,0,1eEQ$"LET YOUR PROGRAMS...": 1EQ$"JUMP FROM WINDOW...": 1 ED,1,1:: ED,1,0: 1 ED,0,1:EQ$"TO WINDOW...": 1 ED,2,1:: 2 ED,0,1:EQ$"PRINT ANYWHEQV39:R2:E5:XC37:YC19:H3:XS7:YS24:Z150:LV1:DM103h <X215:A:VX,A::X.127:A:832X,A: FX.63:1164X,.:1564X,.: PX.123:116429X,24: Z116435,255:SP,11:V,156:V1,188:V39,1 dX5300053223:A:X,A: 3*S1,((M$,LL,2)):S4,17:D190((M$,LL2,1)):DS4,16::450:460:fLLSS23:LL,.::S24,15:S6,73:S13,234:S20,234: GAME SCREEN" ""     ߒ Е"172!M$"WINDOW":B1$" ">!I08:2816I,((B1$,I1,1))D!&W!0SW80BG6:%m!:EQ$""(27)"Q"s!D,16,248,162!0 13,136,189,84,3,145,195,202!: 16,247,96,160,37,136,177,195!D 149,224,202,16,248,162,13,136 "N 177P,27HBM,YS:""A$;:(BM.)320= (C.)240:AUL:(CB(A))340Z :C(VG):C(VG):240 "P,(U)XC,(U)HYC:E$((U)E);:QX,W:400:390 ,DMDMU:P,9,23:D$(DM)" ":A.N:VGH,A::AX:DM3806S18,129:X.400:S15,(.)Z:KB$ 5020% CKCSUM 4% "DATA ERROR. CHECK TYPING.": _% 120, 172, 2, 220, 169, 192, 141, 2% 220, 141, 0, 220, 170, 234, 202, 16% 252, 173, 25, 212, 133, 251, 173, 26% 212, 133, 252, 140, 2, 220, 88, 96% XXRE...": 1< ED,1,1:"HERE,";: 1: AT,0,12,0,,EQ$"HERE,";U 1:" OR HERE,": 1u ED,0,1:EQ$"AND RETURN."} 3""";:5,2,4,2,24,20,1: FR,,,,,"MENU"6:"1. RESTART":"2. THE SHADOW"@"3. THE TUNNEL":"4. QUIT"nXUL:B(X)2X:Q xA$"В":E$(.)"  ":E$(1)"  ":E$(2)"  "z E$(3)" ":E$(4)"  ":BL$"" B$"":X.19:B$B$"":BL$BL$(32)::C$(B$,39)"" I$(.)" ":I$(1)"":I$(2)"":I$(3)"":I$(4)"":I$(5)*"    ߒ ϕ "l"   ܦ В Е "" ߕ֘ ϒ Е ""  ߕ ߩ Ϙ В Е "$"   З ϕ "a&"   ϗ Е "0"  ϕ ":"ܘ   Ѷ ϒ В Е "D"ܘ V33,XG::450C@V21,.:"":4)"OUR FORTRESS HAS BEEN DESTROYED !!"pJ12)"FINAL SCORE:"SC:X.7000::TSPA,WU:QA,R:SCSCZLV:P,XS,YS:""SC;:MM(ML)^I26II.5hI10I18I25LVLVU:2005,48LV:420rTH 88, 96% XXJ::"YOUR CHOICE?";*T 52591: CRSR ONQ^ K$: K$"1" K$"4""":330kh 52639,32: CRSR OFFsrK$|K(K$):K 110,410,480&: SIMULATE A "FLOATING" WINDOW WITH SHADOW7,8,SW9,14:"";:AL(FA):AH(FA1)# ""L I$(5)"":I$(6)"":I$(7)" ":V$"ENEMY DECIMATED...FORTRESS SAVED!!"n X.39:D$D$"":E$E$"": X.16:A.7:D$(X6A)(BL$,X2)I$(A)"":: V16,64128:X17:SPX,13:V39X,5: 480:450:460:X(.) X.103#,160,0,0,65,72,79,89,33,0,0,50048:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(A0 *** VARI-SCAN 128 *** BUCK CHILDRESS ***] *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J4864(B011:A2B0L(66)256(65):(19)31)L:<A0A25580 FJB,A:XXA:DD1:B:A:AX01,58,176,173,201,48,1629A176,228,201,32,240,178,201,36,240,21,201,37,1791t240,17,201,40,240,13,201,41,240,9,201,44,1487208,29,174,118,21,240,24,141,119,21,174,122,139121,157,128,21,238,122,21,201,41,208,11,173,1342118,21,208, ) ================================/O THERMAL CONNECTIONUt RUPERT REPORT #55z ================================ CALIBRATE AND READ THERMISTOR CONNECTED TO PADDLE INPUT ============ 345/ 201,48,176,10,141,120,21,201,40,208,3,141,1310c 118,21,232,200,208,204,153,1,2,165,45,166,1515 46,133,251,134,252,134,254,160,0,177,45,133,1719 253,173,16,18,174,17,18,133,65,134,66,152,1219 "145,65,200,208,251,141,125,21,141,1 ,32,129,594&X146,76,73,78,69,58,32,0,173,123,21,174,1023[b124,21,32,50,142,169,13,32,210,255,141,125,1314l21,76,165,20,169,0,170,157,128,21,232,208,1367v250,141,119,21,141,121,21,141,122,21,169,63,1330141,0,255,169,0,96,0,0,65,72, T)); "DEG F ";" R(T273); "DEG C", 100R ---- WAIT FOR SETTLING -------- "PRESS A KEY WHEN VALUE HAS SETTLED :"P1(1) P1; K$: K$"" 1020 ---- AVERAGE VALUES ----------SUM0 N1 10  90 P"ERROR IN DATA LINE:"L:7 ZX0:JJ12:D63640R d"THE DATA IS OK...":s n"SYS 4864 TO ACTIVATE...": x104,104,32,129,146,79,78,0,169,29,162,19,1051 141,2,3,142,3,3,169,69,141,0,3,142,818 1,3,76,236,20,169,0,162,19,133,251,13,206,122,21,76,251,19,201,40,1286G208,17,232,142,121,21,173,118,21,208,8,169,1438w0,141,127,21,141,122,21,76,8,20,32,247,95620,32,95,21,166,253,165,254,240,20,134,251,1651133,252,160,0,177,253,72,200,177,253,133,254,2064104,1====================L R(X)(10X.5)10 : ROUND OFF TO 1 DECIMAL K2F(T)1.8(T273)32 : CONVERT DEG K TO DEG F( F2K(T)273(T32)1.8 : CONVERT DEG F TO DEG K2 T(R)1(1T0(1B)(RR0)) : TEMP IN DEG K'27,21,32,14777 ,92,21,160,2,177,251,200,209,251,208,7,201,1779j 60,208,3,76,194,20,170,177,251,141,123,21,1384 @142,124,21,160,3,32,92,21,141,126,21,173,1056 J127,21,240,8,162,0,142,127,21,32,247,20,1147T200,177,251,208,3,76,162,20,201 83,0,8810/P1(1) SUMSUMP1: RNSUM10& L ---- GET CALIB. CONSTANTS ----- "DO YOU KNOW CALIBRATION CONSTANTS (Y/N)": K$ K$"N" 3070 : CALIBRATE "WHAT IS B"; B "WHAT IS T0"; T0 "WHAT IS R0"; R0 3270 :41,12117 0,255,134,252,169,251,141,185,2,162,1,160,1712n 0,177,251,32,119,255,230,251,208,238,230,252,2243 165,252,201,22,144,230,76,198,77,173,0,2,1540 201,95,208,22,32,129,146,79,70,70,0,169,1221 198,162,77,141,2,3,142,3,3,169,6333,253,76,218,19,173,125,21,208,37,169,1536H0,141,0,255,32,129,146,13,18,86,65,82,967u73,65,66,76,69,32,73,83,32,78,79,84,81032,73,78,32,85,83,69,46,46,46,13,0,603169,0,141,0,2,141,0,255,76,55,77,162,10780,189,0,2,240,18,201,9< 3000 : GET CALIBRATION CONSTANTSQF "PUT THERMISTOR AT NEW TEMPERATURE"rP "PRESS ANY KEY WHEN READY"Z K$: K$"" 90_ ------ MAIN LOOP -------------dR(1)nTT(R) : TEMP IN DEG K x "TEMPERATURE :";R(K2F(,131,240,4,16736^201,143,208,3,76,165,20,201,34,208,7,174,1440nh126,21,240,212,208,207,174,126,21,208,208,201,1952r65,144,22,201,91,176,200,141,127,21,174,119,1481|21,208,55,174,122,21,224,2,144,51,76,8,1106 20,174,127,21,240,190,2010"X 2010 "b R0RN$"l T1F2K(T1): T0273U"v : "======================================"p" B(R1R0)(1T11T0)" "RECORD THESE CALIBRATION CONSTANTS :"" "B =";R(B)" "T0 =";T0" "R0 =";R0" "============================ RETURN!! "PUT THERMISTOR AT ROOM TEMP"E! "WHAT IS ROOM TEMP (DEG F)";T1f! 1010 : DISPLAY RESISTANCE! 2010 : RETURN VALUE!& R1RN!0 : "PUT THERMISTOR IN ICE WATER"!: "PRESS ANY KEY WHEN READY"!D K$: K$"" 3140!N 1,76,10392 20,19,201,65,144,4,201,91,144,3,76,63,1031d 77,32,250,81,162,0,160,0,140,120,21,140,1183 118,21,189,1,2,240,47,48,153,201,32,208,1260 3,232,208,242,72,173,120,21,208,10,192,0,1481 240,6,104,201,48,176,238,72,104,153,1,2,12,208,6,236,121,13134&21,76,19,21,221,128,21,208,79,232,208,233,1467h0236,122,21,208,71,104,104,169,0,141,0,255,1431:173,125,21,208,29,32,129,146,13,18,86,65,1045D82,73,65,66,76,69,32,73,83,32,73,78,802N32,85,83,69,46,46,46,13,13,0 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER552Ad53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/A":#54276,17:54276,16:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14: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 7 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3F  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);:&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650 92,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173, 54272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(5:$A$"/"A$":"T(A)(A$)48:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(A"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC220 !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"|:,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,160,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465!2,201,32,208,4,165,2,2402)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(A)T(1)T(0)16:ADA1CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&KUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,1"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 ARE2,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1 ,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,239EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(133)535 A$(134)560N:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B0635A 4M l xAHOY! JULY'88552ABOOTLANKSPEED 64 UG EP ɠ 128 BUG REP II ARI-CAN 64 VARI-SCAN 128 THERMAL CON 128 HERMAL ON 64 WINDOW DRESSINGWINDOW DRES DEMOUERILLALUNAR BUGGYTOMBITOMB.OBJ ORE NCOMEHONE ECODE  SHORT SOUNDRICKY NDEXIMPLE IMON 64SIMPLE SIMON 128URVEYORPLIT ACEIPPLESLANK IN  UG EP IN BUG REP INARI INVARI INWINDOW INWINDDEMO INBUGGY INUERILLA INOMB INHERMAL INTHERMAL INHONE INSHORT INRICKY IN IMPLE IN SIMPLE IN URVEYOR IN PLIT IN IPPLES INORE INOMB F ORROR LOADERDDLOGO% DIR 16 (147)"LOADING AND CHECKING THE DATA...":J4864SB011:A:A0A25540rJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(66)256(65):2X0:JJ12:J521320<208,0:5213,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)0F"/ *** VARI-SCAN 64 *** BUCK CHILDRESS ***\ *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J52000(B011:A2B0L(64)256(63):(19)31)L:<A0A25580 FJB,A:XXA:DD1:B:A:AX08,10,192,0,240,1867@ 6,104,201,48,176,238,72,104,153,1,2,201,1306s 48,176,10,141,85,205,201,40,208,3,141,83,1341 205,232,200,208,204,153,1,2,165,43,166,44,1623 133,251,134,252,134,254,160,0,177,43,133,253,1924 152,145,45,200,208,2 7,203,174,92,205,240,190,201,58,176,173,201,2150Z^48,176,228,201,32,240,178,201,36,240,21,201,1802h37,240,17,201,40,240,13,201,41,240,9,201,1480r44,208,29,174,83,205,240,24,141,84,205,174,1611|87,205,157,93,205,238,87,205,201,41,208,11 55,169,0,13953#|174,94,20,168,32,186,255,169,45,174,16,18,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20 169,0,166,235,164,236,133,253,133,254,142,47,1932] 20,140,48,20,24,101,22,69,254,230,254,24,1206 101,23,69,254,170,230,254,164,252,185,0,2,1704 133,251,201,34,208,6,165,253,73,255,133,253,1965 201,32,208,4,165,253,240,8,138,24,101,251 DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90RP"NO AUTOMATIC SAVES...":150Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)#xF$"BACKUP": 90 P"ERROR IN DATA LINE:"L:8 ZX0:JJ12:D56440S d"THE DATA IS OK...":u n"SYS 52000 TO ACTIVATE...": x104,104,169,79,32,210,255,169,78,162,57,160,1579 203,142,0,3,140,1,3,32,210,255,76,179,1244 204,173,0,2,201,95,208,17,151,141,90,205,141,92,205,1875H 32,2,205,160,2,177,251,200,209,251,208,7,1704| 201,0,208,3,76,167,204,170,177,251,141,88,1686 205,142,89,205,160,3,32,2,205,141,91,205,1480 173,92,205,240,8,162,0,142,92,205,32,187,1538 "204,200,177,25,1738,173,83,205,208,3,206,87,205,76,224,203,201,1874`40,208,17,232,142,86,205,173,83,205,208,8,1607169,0,141,92,205,141,87,205,76,237,203,32,1588187,204,32,5,205,166,253,165,254,240,20,134,1865251,133,252,160,0,177,253,72,2008,206,1222,$1,214,169,0,170,168,76,219,255,32,79,20,1403_$169,26,141,0,214,173,0,214,16,251,96,162,1462$0,142,0,255,96,19,18,32,32,32,32,146,804$0,1,0,0,65,72,79,89,33,0,0,0,339$A256:520$A16:520$A1:520$%T(A,16253!69,254,170,44,198,254,230,252,164,251,208,213,2307e!"138,41,240,74,74,74,74,24,105,65,141,88,1138!,20,138,41,15,24,105,65,141,89,20,32,79,769!620,189,85,20,240,6,32,210,255,232,208,245,1742!@174,47,20,172,48,20,24,32,240,255,173:"FILENAME";F$:F$N$(F$,14):L(F$)P5215,L:J1L:5215J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,198:771,77:4864:32,58,20,169,41,162,19,236,3,3,208,4,9569,79,32,210,1390C 255,169,70,32,210,255,162,139,160,227,76,45,1800v 203,201,65,144,4,201,91,144,3,76,139,227,1498 32,96,166,162,0,160,0,140,85,205,140,83,1269 205,189,1,2,240,47,48,198,201,32,208,3,1374 232,208,242,72,173,85,205,21,208,3,76,135,204,201,131,240,2030K ,4,201,143,208,3,76,138,204,201,34,208,7,1427 6174,91,205,240,212,208,207,174,91,205,208,208,2223 @201,65,144,22,201,91,176,200,141,92,205,174,1712 J84,205,208,55,174,87,205,224,2,144,51,76,1515$T23,177,253,133,20617254,104,133,253,76,191,203,173,90,205,208,7,1897h169,47,160,205,32,30,171,169,0,141,0,2,112676,116,164,162,0,189,0,2,240,18,201,92,1260208,6,236,86,205,76,215,204,221,93,205,208,196349,232,208,233,236,87,205,208,41,104,104,173,1880990,205,208,7,169,21,160,205,32,30,171,169,1467n76,160,205,32,30,171,173,88,205,174,89,205,160832,205,189,169,13,32,210,255,141,90,205,76,1617138,204,169,0,170,157,93,205,232,208,250,141,1967 84,205,141,8,93,12982"J20,240,27,165,161,201,212,176,4,165,160,240,1771d"T17,32,65,20,238,32,208,238,1,214,32,225,1322"^255,208,6,32,49,20,76,198,77,232,208,242,1603"h200,208,239,32,66,193,173,95,20,162,96,160,1644"r20,32,189,255,169,0,170,32,104,25+169,198,162,77,141,2,3,142,3,3,224,19,1143\208,7,32,125,255,79,78,0,96,32,125,255,129279,70,70,0,96,162,0,134,251,189,0,2,1053240,19,201,48,144,9,201,58,176,5,133,251,1485232,208,238,134,252,165,251,208,3,76,198,77,2042* 111,104,104,173,1880990,205,208,7,169,21,160,205,32,30,171,169,1467n76,160,205,32,30,171,173,88,205,174,89,205,160832,205,189,169,13,32,210,255,141,90,205,76,1617138,204,169,0,170,157,93,205,232,208,250,141,1967 84,205,141,8) ================================/O THERMAL CONNECTIONUt RUPERT REPORT #55z ================================ CALIBRATE AND READ THERMISTOR CONNECTED TO PADDLE INPUT ============x "TEMPERATURE :";R(K2F(T)); "DEG F ";> R(T273); "DEG C"H 100n ---- WAIT FOR SETTLING -------- "PRESS A KEY WHEN VALUE HAS SETTLED :" SA: P1(251) P1; K$: K$"" 1020 ---- AVERAGE VALUES ----- EN READY""D K$: K$"" 3140!"N 1010,"X 20106"b R0RNN"l T1F2K(T1): T0273"v : "======================================"" B(R1R0)(1T11T0)" "RECORD THESE CALIBRATION CONSTANTS :"" "B =";R(B)" "T0 =";T0" "R 5100%B(B$)% M,B: MM1: CKCKB&% 50208% CKCSUM ^% "DATA ERROR. CHECK TYPING.": % 120, 172, 2, 220, 169, 192, 141, 2% 220, 141, 0, 220, 170, 234, 202, 16% 252, 173, 25, 212, 133, 251, 173, 26 & 21 &d *** WINDOW DRESSING LOADER ***BnSA4864: WILL RELOCATEKxCK0eD:CKCKD:D999150n130CK30632"ERROR IN DATA":NASAD:D999230D0NA,D:220ADSA(D):HAD256:LAD(AD256)256 NA,L:N6,205,141,87,205,96,13,18,86,1367:65,82,73,65,66,76,69,32,73,83,32,73,789f&78,32,85,83,69,46,46,46,13,13,0,13,524018,86,65,82,73,65,66,76,69,32,73,83,788:32,78,79,84,32,73,78,32,85,83,69,46,771D46,46,13,0,76,73,78,69,58,32,0,220,7 ====================' SA49152: 5010a R(X)(10X.5)10 : ROUND OFF TO 1 DECIMAL K2F(T)1.8(T273)32 : CONVERT DEG K TO DEG F( F2K(T)273(T32)1.8 : CONVERT DEG F TO DEG K2 T(R)1(1T0(1B)(RR0))----- SUM0  N1 10*  SA: P1(251)< SUMSUMP1: J RNSUM10P v ---- GET CALIB. CONSTANTS ----- "DO YOU KNOW CALIBRATION CONSTANTS (Y/N)": K$ K$"N" 3070 : CALIBRATE "WHAT IS B"; B "WHAT IS T0"0 =";R0'# "======================================"R# "THERMISTOR IS NOW CALIBRATED": : X# ~#~ ################################ FOLLOWING LINES FOR C-64 ONLY# ################################ ADD LINE 11# REPLACE LINES 1-2, 133, 252, 140, 2, 220, 88, 96& XXANA1:NA,HNANA1:180EADSA246:HAD256:LAD(AD256)256]SA181,L:SA183,H"WINDOW DRESSING INSTALLED"SA"TO"NA"SYS"SA"FOR FRAME""SYS"SA3"FOR PRINT AT""SYS"SA6"FOR CRSR RESTORE"""SYS"SA9"FOR EDITOR SAVE/6,228"| 240,5,202,202,202,208,240,32G -155,32,84,200,32,-144,165,207m 133,248,230,229,230,230,198,228 198,231,32,50,202,76,111,199 72,165,236,141,-22,165,235,141 -23,24,32,24,192,176,7,32 -144,104,240,16,96,104,173,- : TEMP IN DEG K<< 3000 : GET CALIBRATION CONSTANTSfF "PUT THERMISTOR AT NEW TEMPERATURE"P "PRESS ANY KEY WHEN READY"Z K$: K$"" 90_ ------ MAIN LOOP -------------d SA: R(251)nTT(R) : TEMP IN DEG K%; T0! "WHAT IS R0"; R0'! 3270 : RETURNK! "PUT THERMISTOR AT ROOM TEMP"o! "WHAT IS ROOM TEMP (DEG F)";T1! 1010 : DISPLAY RESISTANCE! 2010 : RETURN VALUE!& R1RN!0 : "PUT THERMISTOR IN ICE WATER"!: "PRESS ANY KEY WH00, 1020, 2030$ ADD LINES 5010-49184$?$ 11 SA=49152: GOSUB 5010^$ 100 SYS SA: R=PEEK(251)~$ 1020 SYS SA: P1=PEEK(251)$ 2030 SYS SA: P1=PEEK(251)$===============================$M49152: CSUM4609$ B$: B$"XX" 169,246,162,19,24,121,-24,1449! 1,232,164,195,133,195,134,196\! 162,26,152,208,22,160,37,136!& 181,224,145,195,202,16,248,162!0 13,136,189,84,3,145,195,202!: 16,247,96,160,37,136,177,195!D 149,224,202,16,248,162,13,136 "N 177 RECALL" ,*6 184,80,26,184,80,86,184,80O@ 122,184,80,113,176,192,174,221nJ 29,221,173,192,189,0,0,0T 0,40,80,120,160,32,80,193^ 165,248,133,207,32,229,202,162h 255,32,-155,164,229,200,132,206r 32,-155,230,206,164,206,1921  208,249,76,40,125,201,5,144A  48,176,242,173,-22,133,236,173b  23,19,133,235,76,92,193,32  134,3,240,222,32,92,121,76  90,85,32,-170,164,230,200,232  32,-171,200,196,231,208,248,232  189,-12,76,12,192,134,195,168!+,195,157,84,3,202,16,247"X 96,0,999b 5324821,.:0,1:4,1:(11)(142)(147):,10,5,"ZZZZ..",20,12," Φ ":,23,10,"(WORKING)"X35844096:A$:X,(A$)::X48645054:A$:X,(A$):0(X.62,59:3,.,4,.,.,.,1:3,370,150:4,.,13,.,1,1,.:4,370,198:4,270#3un380:(27)"M";""B$B$""B$B$B$""B$B$B$B$xD(8),S(1),M$(2) J.:D.:G15:F127:Z.:V1:Q.:S.:B.:H5:P10:I5:K25:U1:T2:M3:L198:SC.:N4:Q240:VIC53248:S(.) "55296X,(U)PU:A",1,5,"MILES TO NEXT BASE: 00000 SCORE 00000""360:B500:Q(10V).1:,15,2,"BASE ":" ":H$;B$(V):"0":3,480,160:3,1,V1:4595,1"J(U):J(U)" MAIN LOOP8#:J(T):X(T)G:DU,.,D:CCU:DJ U,U):2039X,61:J%J3,4000,120,1,500,500,3:X13:X,X4520#2:X,U:: 2:VIC21,248:%T2042,61:M,.#.:M,FP,KM,T,KM,KM,M:M,.:M,480,.:2042,59:M,U:SS100V:230%^T,.:T,.#.:T,(U,.),(U,U):T,D(X)#P:T,FK,K,U,F,F,M:T, A,F8,54,BA,55,FF,1,FF,FF,B9,FD,7F,76g( FC,3E,E7,78,1,DB,80,3,81,C0,7D,,BE,D6,,6B,92,,49,92,,49,D6,,6B,7C,,3E,,F,80,,10,47,0( 23,22,,2E,22,,7F,FF,80,FF,FF,E0,FF,1,F0,FE,BA,F8,54,BA,55,FF,1,FF,FF,B9,FD,7F,76,FC,3E,E7,78,1,DB') 80,3,81,C0,7D,,B 1,38,1,,7D,8,42,90,0?+00,28,82,90,82,,,10,8,20,44,1,8,,28,,81,,24,,10,,24,40,1,,,,4,,,,,,0+:0,,,,,,,,,,,,40,,,42,,,C3,,1,C3,,1,C3,,1,E3,80,3,E7,80,7,FF,80+D 07,FF,C0,7,FF,E0,7,FF,F0,7,FF,F0,F,FF,F0,F,FF,F8,3F,FF,FC,7F,FF,FC,FF,FF,FF,,,5,FC,,5, 3:5564X,.::556432,192:556435,192:(147)24593,203:4592,100:4595,0:4594,30:4602,250:4597,0:4598,130:4599,56:4864<B$"":X.39:B$B$(32)::X18:X,.#.:F10:D$(.)"O1":D$(2)"O2":D$(3)"O3":D$(4)"O4":D$(5)"O4":D$(6)315:S(1)225 A$"":B$"":M$(.)" YOU RECOVERED THE BUGGY! ":M$(1)" YOU CRASHED IN A CRATER! ":M$(2)" YOU COLLIDED WITH THE SHIP!" X110:B$(X): X.8:D(X)1::D(.)90:D(1)0:D(3)90:F$"#####":H$"###(.):U,.,L:XUJFDU:C.:U,FF,K,.,FM,FM,.:Ջ(.)QZ(Z.)#F(.)350:M,S(Z)#V:A$;:F$;B;:BBU:B$;:F$;S:J(U):B.C(.):C(.)300,340,310#U,.,L:VVU:D.:V11220F$X18:X,.#.::"V1O1Q$BV2O2I$BV1O5.W$BV2O3I$BOU:>&h3,.:4,.,2,.,1,1,1:4,470,176:2043,63:4,1::X(4,.):X470X480p&r4,.,13,.,1,1,.:4,480,198:2043,60:4,1:&|""7)"AHOY! MAGAZINE PRESENTS"&8)"  "&8)"  "'8)" E,C6,,63,9A,,4D,B2,,59,C6,,63,7C,,3E,,F,80,,10,47,,23,22,,2E,22,0) 7F,FF,80,FF,FF,E0,FF,1,F0,FE,BA,F8,54,BA,55,FF,1,FF,FF,B9,FD,7F,76,FC,3E,E7,78,1,DB,80,3,81,C0,7D,0) BE,C6,,63,B2,,59,9A,,4D,C6,,63,7C,,3E,,,AA,,2,14,80,2,14,80,2A,AA,A8,99,96,6A8,0=,N 0F,FC,,A,A8,,F,FC,,8,,,8,,,8,,5,55,50,15,55,54,55,55,55,66,69,99,55,55,55,66,69,99,X 55,55,55,55,55,55,56,96,95,56,96,95,56,96,95,56,96,95,56,96,95,,7,b INTERRUPT DATA-l 78,A9,D,8D,14,3,A9,13,8D,15,3,58,60,AD,F3,11,D0,3,4C,2F,13,AD"O1"pPX47:2040X,62::X56:X,.,13,.,1,1,.::X78:X,.,12,.,1,.,.::20403,63:2041,55:2,.,2,.,.,.,.Z5,30,152:6,250,152:7,120,157:8,350,157:X56:X,270#2:X2,270#1::2040,56:1,.,14,.,.,.,.:1,100,198Ad2043,60:204#":7,3#!J(X)(CH)T(CH)T(CP)Tw!F(U)(JFD(X).(T,.).):C(X)(JH)U((JG)HU)T((J(HM)).)M!VIC21,241:X.::D$(X):"T7IG#GGEG#GGE":XX1(X6)7:(2)127:0,0,39,15,1:"":J.99:X(U)585:1024X,46 4I$EV3O3IGI$BV2O4IGIGV3I$EO3I$BV2IFI$EV3O3IGI$BV2O4IFQGV3Q$EO3Q$BV2O4Q$EQ$EV3O3QG":X.$"J1::""6)M$(X):5,J:JJ1(J16)16:(T)127:$,320:X2:290$6320:X1:290$@65418:X18:X,.#.::X13:X,.,2,.,.,.,.:X,(U,.),(    ",'8)"   "O'8)" B U G G Y! "'12)"FOR THE C-128!":4)"(C)1988 CLEVELAND M. BLAKEMORE":' SPRITE DATA ( 0F,80,,10,47,,23,22,,2E,22,,7F,FF,80,FF,FF,E0,FF,1,F0,FE,B6,AA,AA,AA * 2A,AA,A8,,FF,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0J*0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0*0,,,,,,FF,FF,FF,7F,FF,FE,7F,FF,F8,FF,FF,FC,6F,FF,FE,F,FF,F0,F,FF,30,C,FF,90,,73,80,,20*&0,,,,,,24,40,9,,,,24,48,2,1,1,20,,20,8,10,2,80,4A,88,1,,DC,29,F,85,FD,A9,F,38,E5,FD,C9,4k-v D0,3,CE,D6,11,C9,8,D0,3,EE,D6,11,AD,D6,11,38,CD,F2,11,B0,9,AD,F2,11,8D,D6,11,4C,50,13,AD,D6,11,38,CD- FA,11,90,6,AD,FA,11,8D,D6,11,A2,7,8E,F4,11,AD,F4,11,A,AA,E8,BD,D6,11,38,CD,F0,11,B0,15,AD,F0,11,9D,D6D. 11,E0,3,D0,1A,A9,FD,2D,15,D0,8D,15,D0,4C,88,13,BD,D6,11,38,CD,F1,11,90,6,AD,F1,11,9D,D6,11,CE,F4,11,30. 3,4C,55,13,CE,F5,11,30,16,AD,F6,11,8D,F5,11,AE,F7,11,E8,E0,3B,D0,2,A2,38,8E,F7,11,8E,F8,7,AD,D8,11,38. CD,FA,11,90,8,A9,FD,2D,15,D0,8D,15,@#8 b!1sH@@%ݼk~xݏxI8] /5 _Vf   ?{߷g@<~Bff=gwCZw~f?~Z<~ppp>|p~`xxxxxxxx>|~s~~~~  g+WWW[- ?_++p>?m??;1#m `}@ÀÀBuA pÀÀÀ"\`??탯ï~zX1DyE?T|Tll} ` 0x l9n8888x>~???G `~ o{7?yZ190?|>=8? {}( YEAR1 10(2TATASA2(SARA)25<TBTBSBRF YEAR;5);"$"SA;"$";TA;iP 22);"$"SB;"$"TBZSASA2RA: SBSBRB: RA: SBSBRB: DEF GHI JKL"VA$A$" MNO PRS Q TUV WXY Z"k A(1),A(2),A(3)y( X1 32 (A$,A(X),1);<:: 30#" SHORT SOUND"L ==================================p COMMODARES PROBLEM #50-2 : SHORT SOUND SOLUTIONS BY ERNEST BARKMAN (LINE 21) ERNEST BARKMAN SR. (22 & 23)* BOB D˻c;}x}??㻎ǎxJ((͐{==)d),)8z {@ V=|/:-BD /__~?| ~<.t_~__/(  @@@@@@@@@@@@@ h@|>":X.10:30)" "::I"":X.5:26)" "::p"";23)"   ":"";:X.17:6)W1$::"";:X.9:12)W2$::"";:X.5:15)W3$::" 1,999,1: 26&" TRICKY INDEX":O ==================================s COMMODARES PROBLEM #50-3 : TRICKY INDEX SOLUTION BY JIM BORDEN ================================== L17: NC5: NR(LNC)RENAUD (24)*5 KEVIN ESHBACH (25)Y WALLACE LEEKER (26)* ===== (* = C-128 ONLY) ========= 54296,(1)9: 1 (7): 22A(1)765: (A): 23"": 24I5427254296:I,(1)255:: 25 R0 NR: KRNC: C1 NCE I=K+C: IF I>L THEN END :REM GIVENE1(NCNRL):DCE:IR1(C1)(NR1): D1 IID: RNR CE ( I;: : : 22A(1)765: (A): 23"": 24I5427254296:I,(1)255:: 25#" SIMPLE SIMON"K =================================m COMMODARES PROBLEM #50-4 SIMPLE SIMON SOLUTION BY JUDY GROTH ================================= R(S)(((S)9)1):X13:A$A$'" SIMPLE SIMON": 1O =================================q COMMODARES PROBLEM #50-4 SIMPLE SIMON SOLUTION BY CHARLES KLUEPFEL =================================L A(TI)::A$"":::A$A  *** SURVEYOR C-64 ***1A49152:(147)PJAA95:B:J,B:XXB:JtX14696"ERROR IN DATA...":C(A256):D(A(C256))13:A1,D:A3,C"DATA OK * SYS"A"TO ACTIVATE...":169,13,162,192,120,141,143,2,142,144,2,88(  NA49152: * (A=4864 FOR THE C-128) * (BOTH VERSIONS CAN BE RELOCATED.) *nJAA107:B:J,B:XXB:JX17061"ERROR IN DATA...": *** YOU COULD PLACE A RETURN HERE IF THIS IS USED AS A SUBROUTINE. *** 169,20,133,250,169,0,162, % RIPPLES FOR THE C-64 OR C-128sV53248:N6.3:H20:W12:M19:U1:L.5:K40:B1024:J24:G64:S32:OF54272"":53281,.:53280,.:53265,(53265)64(V34,1:V35,12:V36,112E3025:C1:RMUU<T.N(U(RR)):X(ER(T)HHIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - THE THERMISTOR THAT YOU'VE MADE. ((R(1)),2,1)::A$KD1X300::""::B$:B$A$"SCORE="((X4)10):xXX1:A$A$((R(1)),2,1):" "A$::20ID: RNR CE ( I;: : : 22A(1)765: (A): 23"": 24I5427254296:I,(1)255:: 25S$(4810(1)): (A$)2:""A$: 1:"";B$: A$B$:"NO,IT IS":A$:A$:XX1:A$A$((R(1)),2,1):" "A$::20ID: RNR CE ( I;: : : 22A(1)765: (A): 23"": 24I5427254296:I,(1)255:: 2596,173,141,2,166,254,133,254,201,5,208,69Z 228,254,240,65,169,1,133,204,165,211,133,252 165,214,133,253,165,209,166,210,24,101,252,144 1,232,134,251,170,165,251,32,205,189,169,42 32,210,255,165,243,166,244,24,101,252,144,1$ 232,134,160,216,133,251B 133,253,134,252,132,254,162,24,160,38,177,251w 200,145,251,136,177,253,200,145,253,136,136,192 20,176,239,160,20,169,32,145,251,160,1,177 251,136,145,251,200,177,253,136,145,253,200,200 192,21,144,239,160,19,169,L):Y(R(T)WL)8FPYKXB:X.XKY.YJP,SGCNP:CCU(C3)3:jZV34,0:V35,0:V36,6dA(V34):B(V35):C(V36):V34,B:V35,C:V36,AnX.60::10051,200,177,253,136,145,253,200,200 192,21,144,239,160,19,169,HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -64 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONWARD ONLY!) OR THAT YOU'VE MADE. HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -128 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONLY! THERWISE USE 128 UG EP.) ARI-CAN IS A PROGRAMMING UTILITY FOR THE -64 THAT ALLOWS YOU TO CHECK FOR VARIABLES THAT HAVE BEEN PREVIOUSLY USED IN YOUR à PROGRAM. E USE 128 UG EP.) [4,251,170,165,251,32,205,189,166,253,164S 252,24,32,240,255,169,0,133,207,76,72,235PPPPPPPPPPPPPPPPPRPPPPP32,145,251,165,251> 24,105,40,133,251,144,2,230,252,165,253,24o 105,40,133,253,144,2,230,254,202,16,181,160 10,202,208,253,136,208,250,198,250,208,153,96PPARI-CAN IS A PROGRAMMING UTILITY FOR THE -128 THAT ALLOWS YOU TO CHECK FOR VARIABLES THAT HAVE BEEN PREVIOUSLY USED IN YOUR PROGRAM. E USE 128 UG EP.) INDOW RESSING FOR THE -128 IS A PROGRAMMING UTILITY THAT ADDS FOUR ROUTINES TO ENHANCE YOUR WINDOW TEXT SCREEN DISPLAYS. PROGRAM. E USE 128 UG EP.) INDOW RESSING EMO IS A PROGRAM THAT DEMONSTRATES THE POWER OF THE INDOW RESSING ROUTINES. AND INDOW RESSING BEFORE US- ING THIS PROGRAM. UG EP.) UNAR UGGY IS A JUMP'N'SHOOT GAME FOR THE -128 SIMILAR TO OON A- TROL. ECOVER THE BUGGY FROM THE ALIEN INVADERS WHILE LEAPING LUNAR CRATERS. OYSTICK IN ORT 2. UERILLA IS A GUNG-HO MILITARY GAME FOR THE -64. OU MUST DEFEND YOUR FORTRESS AGAINST OMMUNIST HORDES BENT ON BLASTING YOU WITH ROCKET LAUNCHERS. OYSTICK IN ORT 2. OMB OF ORROR IS THE FINAL ENTRY IN HOY!'S TRILOGY OF 3- GAMES FOR THE -64. ATTLE EVIL BENEATH THE EARTH IN QUEST OF THE FABLED LCHEMY TONE. OYSTICK IN ORT 2. . HERMAL ONNECTION FROM THIS MONTH'S UPERT EPORT ON EAL-ORLD NTERFACING LETS YOU READ AND EVALUATE TEMPERATURE CHANGES USING THE THERMISTOR THAT YOU'VE MADE. 2. . HERMAL ONNECTION FROM THIS MONTH'S UPERT EPORT ON EAL-ORLD NTERFACING LETS YOU READ AND EVALUATE TEMPERATURE CHANGES USING THE THERMISTOR THAT YOU'VE MADE. 2. . HONE ECODE IS A -64 SOLUTION TO THE EBRUARY 1988 OMMODARE THAT REQUIRED THE USER TO WRITE A TWO LETTER ENCODING SCHEME. SING THE THERMISTOR THAT YOU'VE MADE. 2. . HORT OUND IS A -128 SOLUTION TO THE EBRUARY 1988 OMMODARE THAT REQUIRED THE USER TO WRITE THE SHORTEST PROGRAM THAT WOULD GEN- ERATE SOUND CONTINUOUSLY. MADE. 2. . RICKY NDEX IS THE -64 SOLUTION TO THE EBRUARY 1988 OMMODARE THAT REQUIRED THE USER TO WRITE A PRO- GRAM THAT WOULD PRINT OUT AN ARRAY IN REVERSED INDEX FASHION. . . IMPLE IMON IS THE -64 SOLUTION TO THE EBRUARY 1988 OMMODARE THAT REQUIRED THE READER TO WRITE A PRO- GRAM THAT CREATES THE IMON NUMBER- SEQUENCE MEMORY GAME. . . . IMPLE IMON IS THE -128 SOLUTION TO THE EBRUARY 1988 OMMODARE THAT REQUIRED THE READER TO WRITE A PRO- GRAM THAT CREATES THE IMON NUMBER- SEQUENCE GAME. GAME. . . . URVEYOR FROM IPS HOY! INSTANTLY PROVIDES YOU WITH SCREEN AND COL- OR LOCATIONS OF ANY PLACE YOU CHOOSE. LACE THE CURSOR ANYWHERE AND PRESS AND . . . PLIT ACE FROM IPS HOY! SCROLLS HALF THE SCREEN LEFT AND THE OTHER HALF RIGHT. LL CHARACTER COLORS ARE MAINTAINED AS YOUR SCREEN TAKES ON A SPLIT PERSONALITY. . . . IPPLES FROM IPS HOY! PLOTS SEV- ERAL CONCENTRIC CIRCLES IN EXTEND- ED BACKGROUND MODE AND THEN CYCLES THROUGH THE DIFFERENT REGISTERS TO GIVE THE ILLUSION OF MOTION. ORE NCOME IS A SOLUTION TO THE ECEMBER 1987 OMMODARE REQUIRING THE USER TO DECIDE WHICH IS THE BETTER OF TWO SALARY INCREASE SCHEDULES. GIVE THE ILLUSION OF MOTION.  SA49152:(147)(8)(14)KCK0:ISA SA251: A:I,A:CKCKA:In CK33715 "DATA ERROR.":( A$(50):53280,0:53281,0:""2I150:A$(I):<820,60:821,200: --- SCROLL SPEED ---F250,6: --- TEXT COLOR --- K --- A$(20)="" MEANS LAST STRING ---9 PA$(1)(A$(1),1):49152q Z"LOAD"(34)"TOMB"(34)",8":"RUN":198,10 _X631640:X,13: d"";: 165,250,160,0,141,134 2,153,0,216,153,0 217,153,0,218,153,0 219,200,208,241,165,71 133,253,141,54,3,1654 72,133,254,141,55,3P 173,17,208,41,248,141k 17,208,160,0,177,253 153,250,0,200,192,3 144,246,165,250,208,31 173,54,3,133,253,173 55,3,133,254,24,144  227,169,32,160,0,153  192,7,200,192,40,144)  248,169,27,141,17,208C " 96,169,32,160,0,153^ , 192,7,200,192,40,144x 6 248,162,24,160,0,24 @ 32,240,255,160,0,177 J 251,32,210,255,200,198 T 250,208,246,160,7,132 ^ 250,173,17,208,41,240 h 24,101,250,141,17,208 r 173,52,3,133,251,56; | 144,154,162,10,202,208Y 253,198,251,208,249,173v 18,208,208,251,136,192 255,208,216,173,17,208 41,248,24,105,7,141 17,208,165,253,24,105 3,133,253,144,2,230 254,32,228,2F ORROR. LL SHADOWS DWELL THERE"C "AND ALL DARK THINGS REST THEIR TWISTED"o "SOULS IN THE COOL PASSAGES THEREIN." " ","F YOU ARE STERN OF HEART, AND DARING""AND FOOLHARDY...YOU MIGHT VENTURE THERE""TO FIND A TREASURE...A STBECKONS YOU"#"FORTH INTO THE BLACK MAW..."," "," "R " "" "," "," "," ","RESS ANY KEY TO LOAD GAME...."" "," "," "," "," "," "," "," "," ","" \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr ~ ? 55,240,8 133,2,169,27,141,172 208,96,160,0,185,40J 4,153,0,4,200,208c 247,185,40,5,153,0~ 5,200,208,247,185,40 6,153,0,6,200,208  247,185,40,7,153,0  7,200,208,247,172,53  3,162,10,202,208,253& 136,208, ONE FORGED BY"+"ALCHEMISTS IN THE MISTS OF ANTIQUITY,"W"A STONE SO POWERFUL THAT DEMONS FROM""THE UNDERWORLD LUSTED FOR IT AND ""DESTROYED CITIES TO OBTAIN IT..."" ","HE LCHEMY TONE..."," " " ","T TURNS COAL INTO GOL|x????????aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaNcefRSWX?><248,24,144,148H --- TEXT TO SCROLL ---ZR " "," "," ","EEP, DEEP UNDER THE SUNLIT WORLD LIES"\ "THE PLACE OF NIGHTMARE, WHERE YOUR "f "WORST FEARS MATERIALIZE INTO REALITY..."p "HIS PLACE IS KNOWN TO MORTALS AS THE"z "OMB OD, GOLD INTO"""DIAMONDS, DIAMONDS INTO GEMS SO"P"BEAUTIFUL AND BRILLIANT THAT NO TONGUE"g"CAN EXPRESS IT."" "," ","NTER NOW, DVENTURER, AND FIND DEATH,""DESPAIR, OR DESTINY. HE GATES ARE OPEN""AND A DRY, WITHERED CLAW ??{3?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  >> ?~ >????????@|>|>><||?IIIIIy$$