)' :COPYRIGHT (C) T&D SOFTWARE 19852 970C359,57:0,1(:@73,"*** menu ***":@132,"1. DISCLAIMER":@164,"2. LOADING INSTRUCTIONS":@196,"3. PMODES AND PCLEARS":@228,"4. *** ERRORS ***"E2@260,"5. SUBMISSION INFORMATION":@292,"6. PRICE INFORMATION":@324,"7. CHATTER!":@356,"8. END":@425,"ENTER (1-8)"z""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " &' COPYRIGHT (C) T&D SOFTWARE 1985&< hover tank&H 9000&r(PX3,PY)(PX48,PY14),,BF:E(0)&(EY(1)&2 E20 PXPX6 : E43 PXPX6&F EY20 PYPY5 : EY43 PYPY4&U PX220 PX220 : PX6 ' PY20 PY20 : PY180 PY180'=(PX,PY)(PX43,PY12),T'JȾ(IX,IY)'҅ (65280) 126 (65280)254 "T255;12":I1:IYPY6:IXPX'܅ I 1 242'IXIX10: IX8 I0:IX50: 242(i(IX,IY): (IX2,IY)6 COCO1:N(CO)0:"O4;T255;12;10;8;6;4;2": X10 1 2:(IX4,IY),X,5::I0 : (IX2,IY)5 1,1:I0:(IX,IY)(IX3,IY),( RO6 RO5 325(U(NO)( SP1 3: N(SP)0 SPU 260)(LX(SP)2,RY(SP))(LX(SP)8,RY(SP)10),,BF: RY(SP)PY4 RY(SP)RY(SP)6 : RY(SP)RY(SP)6)D(LX(SP),RY(SP))(LX(SP)7,RY(SP)10),B)c Z 1 NO: N(Z)0 290* I(Z)0 IY(Z)RY(Z)4:IX(Z)LX(Z)2:I(Z)1 : (IX(Z),IY(Z)):IX(Z)IX(Z)8: IX(Z)230 I(Z)0: 290 : (IX(Z),IY(Z)): (IX(Z)2,IY(Z))7 EN1: *U (IX(Z)2,IY(Z))8 "T255;O1;1":I(Z)0:(IX(Z),IY(Z))(IX(Z)5,IY(Z)),*`" Z,SP*p6 RO5 30*E (PX10,PY2)5 (PX10,PY15)5 (PX40,PY15)5 (PX40,PY2)5 EN1:*F RO7 360+JZZ(0):ZY(1):(PX3,PY)(PX48,PY14),,BF:PXPX3+?L ZY31 PYPY4 : PYPY4+T 20 (27) ((152)(100),(90)(90)),8,8: 200,1+h (IX2,IY)8 RO7 IX30 380+m RO7 30(31) KIKI4: KI241 KI50 : (KI,0)(KI,191),:"O1;T10;1",r RO7 30 : 85,|1,20:"BM20,50C7ND30BU4U8F8U8BR4D8R8U8NL8BR4D5BD2D2":100,5:1,10: X4 0 1:X,1:1,1:"O4;T255;1;2;3;4;5;6;7;8;9;10;11;12"::4,1:1,1: X1 40:(0,100),X,8:, X40 1 1:(0,100),X,5:-0,0:X1 50:"T255;01;1":(8)::SCSC((RO10000))::@160,"THE COMPUTER IS DESTROYED !!!": "BONUS= ";SC10: "SCORE =";SCSC10:255,20:"O2;T10;12;8;12;O1;8;4;2":-120:PX210:PY80:3,1: 7,5:: T(42,11),B(7,10).%1,1:0,0: X1 8:X:@170,"HOVER TANK";:1,1:::@170,"HOVER TANK":X1 50::.c(85,94)(118,106),,BF:(100,100),18,5,.4:(100,100),5,5. X1 18 3:(100,100),X,7,.4::(100,100)(75,100),.(74,94)(117,106),T.(22,20),4,6:(20,15)(28,26),B/@490,"HOVER TANK":X1 2::/#Ƞ58,4:78,4:78,4:58,4:32,40 KI70:"THE EVIL COMPUTER ARMY HAS TAKENOVER! YOU HAVE THE LAST TANK ANDMUST FIGHT THEM IN THE CITY STREETS, MAKE YOUR WAY TO THEIR FORTRESS, CROSS THE BRIDGE SPAN-NING THE RADIOACTIVE DESERT AND FINALLY MEET THE COMPUTER0Jׇ"ITSELF. THE RIGHT JOYSTICK IS USED TO MOVE UP AND DOWN."0p܇::" KEY -ENTER- TO BEGIN";X1CCO0:RORO1: RO3 NORO: X1 NO:LX(X)10:RY(X)(90)(90): : RO5 NO3:LX(1)10:RY(1)(20)80:LX(2)101:RY(2)100:LX(3)153:LY(3)100 : RO7 NO2:X1 2:LX(X)90:RY(X)100: : NO01b X1 NO:N(X)1:I(X)0:18,5:: RO 5000,5000,5500,5500,6000,6000,6500,41401 1,110: 3026 EN1 Z1 200 20:(PX,PY),Z:Z,5::0,0::@225,"THE COMPUTER ARMY WINS AGAIN!":" YOUR SCORE WAS";SC:70003:@96,"SCORE POINTS POSSIBLE";RO8000: 4113:X:@160,"TIME TAKEN ";X:4113:@240,"-----------":@296,"SCORE ";RO8000X:"T5;O4;L4;5;7;9":SCSC(RO8000X): 4113:1,1: 41203 Z1 1000::3@ Z1 RO10: (255),1:(4): Z3Y"PX214:PY80: 40703j,EN1: 411031,1:L(150)20:N(130)203 X50 200 N: Y10 181 L4GDE$((10)):RI(30):U(30):R$(RI):U$(U):"BM"(X)","(Y)"R"R$"F"DE$"D"U$"H"DE$"NU"U$"L"R$"NU"U$"F"DE$"NR"R$4Q Y,X4W4|(100,100),4,8:(96,95)(104,105),B: Z36 136 100:(Z,0)(Z26,191),,BF4 U20 160 20:(Z26,U)(Z36,U10),,BF4 U,Z45p:(0,0)(252,62),,BF:(0,120)(252,191),,BF5z"BM0,42C5R30D20C0D5NL30F10H10U5C5U20F10D10C0D10U10C5U10BR40BE20NG30R5NG30BR60NG30R5NG30BR60NG30R5NG30"5"BM0,138R30U20C0U5NL30E10D15C5D10G10BR48BF12NH30R5NH30BR60NH30R5NH30BR60NH30R5NH30"6 X 1 10: LL4 LL3 : LL46!10,1:LL,1:1,1::6]d1,1:5:"C0BM0,80D30F15R18H15NL18U30NL18F15D30BL5BU10"6n(28,100)(29,110),,BF:(26,108):(22,92),3,0,2:(22,105),3,0,2: (2,90),0,06x(56,0)(76,191),,BF:(86,181)(86,10),:(76,0),7(254,18)(200,36),,BF:(254,134)(200,152),,BF:(168,72)(192,98),,BF: X1 2:"BM10,40ND30BU3D5ND5R5NU5D5BR4U5NR5U5R5D10C5": 200,5::"C8"7Ȁ X1 10: LL4 LL3 : LL47Ҡ 10,1:LL,1:1,1::7: *******************8: PROGRAM BY DAVID L. DAWSON,4808 DAVENPORT, #2,OMAHA, NE 6813289: *******************8XX" PLAY AGAIN ? Y/N"8mbK$:K$"Y" 8lK$"N" 70108v8#(4:4000' COPYRIGHT (C) T&D SOFTWARE 1985B power sword ins>A$"　 ߏߋ耇ߋߓߓ耀ߏߑߋߎߓ܌ߏߑߋÓϟ "^B$"ߋ " C$" " D$" "aE$" "F$" "G$" "=H$" "I$" "(:@7,"the power sword"2" BY DAVID LIONELL DAWSON<(96,128);A$;B$;(8,8);(64,128);:"DO YOU WANT INSTRUCTIONS";OK$.F(OK$,1)"Y" 5000P:"introduction":" THE POWER SWORD, LONG THE SOURCE OF GOOD IN THE KINGDOM, IS NOW POSSESSED BY AN EVIL WIZARD WHO SEEKS TO ENSLAVE YOURHOMELAND. YOU AND YOUR WHOLE VILLAGE ARE DOOMED UNLESS YOU CAN FIND THE SWORD!Z" THE WIZARD, FORESEEING YOUR VISIT, HAS HIDDEN THE SWORD IN ADEEP DUNGEON AND GUARDED IT WITHMANY DEADLY CREATURES. THE SWORD IS SOMEWHERE BELOW THE 14TH DUNGEON LEVEL.": 4000 d:"game play":" TO FINISH YOUR QUEST YOU MUST FIND THE SWORD AND RETURN WITH IT TO LEVEL ONE OF THE DUNGEON. THIS IS ACTUALLY VERY DIF- FICULT INDEED AS THE DUNGEON HOLDS MANY, MANY CREATURES,"!nn"TRAPS, AND ONCE YOUR CHARACTER GETS HIS HANDS ON THE SWORD THE EVIL WIZARD BEGINS A SPELL THAT WILL DESTROY THE WHOLE DUNGEON! SO YOU MUST ESCAPE BEFORE A TIMER RUNS OUT.": 4000!x:"dungeon key":" HERE ARE SOME LARGE SCALE PICTURES OF THE OBJECTS IN THE DUNGEON:": 4000"G:"your character":C$:"THIS REPRESENTS YOU IN THE DUN- GEON. MOVE HIM USING THE RIGHT JOYSTICK.":4000#:"gold":D$:"PICK THIS UP BY MOVING OVER IT. YOU CAN CARRY ONLY 100GP WEIGHT WHEN YOU START BUT THIS IS INCREASED BY FINDING MAGICAL SACKS ON THE HIDDEN SQUARES (DISCUSSED BELOW).": 4000#:"gold (CONT'D)":"THIS GOLD CAN THEN BE TAKEN TO THE TEMPLE (ALSO DISCUSSED BELOW) AND TRADED FOR EXPERIENCE(WHICH INCREASES YOUR CHARACT- ER'S LEVEL AND FIGHTING SKILL). THE AMOUNT IN EACH CHEST IN-$,"CREASES AS YOU DESCEND TO LOWER DUNGEON LEVELS.": 4000% :"hidden treasure/traps":E$:"AS THE NAME IMPLIES, THESE CAN HOLD EITHER USEFUL ITEMS LIKE SACKS OR SPELLS OR CAN BE SEV- ERAL DIFFERENT TRAPS. TRAPS MAY BE AVOIDED BY PRESSING THE PANICBUTTON (JOYSTICK BUTTON).% 4000%:"monsters":F$:"BE WARNED THERE ARE MANY, MANY MONSTERS IN THE DUNGEON AND THERE ARE DIFFERENT GRAPHICS FORMANY OF THEM -- BUT MANY CREATURES DO LOOK ALIKE.": 4000&Ȟ:"monsters CONT'D":"BEWARE, SOME POWERFUL CREATURES IN THE DUNGEON MAY ALSO HAVE SPECIAL POWERS SO GET TO KNOW EACH CREATURE, BEWARE THE TOUGH ONES, AND DESTROY THE WEAK.';҇"...THERE IS A MYTH IN THE LAND THAT SOME CREATURES MAY ONLY BE HIT BY A HIGHLY ENCHANTED WEAPON...":"...THEY MAY EVEN USE MAGIC OF SOME STRANGE NATURE...": 4000( ܞ:"the temple":G$:"THIS IS A PLACE OF REST AND RES-TORATION. WHILE IN THE TEMPLE YOU REGAIN DAMAGE POINTS AT TWICE NORMAL AND THE CREATURES CANNOT SEE YOU. ...THOUGH ONE MAY STILL WANDER IN..."(K"YOU CAN ALSO TRADE GOLD FOR EX- PERIENCE HERE.": 4000(:"stairs up":H$:"PRESS 'C' WHILE STANDING ON THISTO GO TO THE LEVEL ABOVE.": 4000(:"stairs down":I$:"PRESS 'C' HERE TO GO DOWN TO THELEVEL BELOW.": 4000):"exploring the dungeon":"WHEN YOU ENTER THE DUNGEON IT WILL BE IN DARKNESS AND WILL LIGHT ONLY AS YOU MOVE AROUND. AREAS EXPLORED WILL STAY LIT UNTIL YOU LEAVE THE LEVEL."*."USE THE RIGHT JOYSTICK TO MOVE THE FIGURE AROUND BUT BEWARE THECREATURES MOVING AROUND IN THE DARKNESS.": 4000+:" AT THE TOP OF THE SCREEN WILL BE THREE NUMBERS. THE NUMBER LABELED 'E' IS YOUR CURRENT EXPERIENCE POINTS, THE ONE LABELED 'H' IS YOUR CURRENT HEALTH POINTS, AND 'G' IS GOLD. WHILE AT THE TEMPLE YOU CAN ALSO";+""PRESS 'V' AND GET A MORE COM- PLETE STATUS REPORT.":"TO ATTACK A CREATURE SIMPLY MOVEON TOP OF IT. THIS WILL REVEAL ITS NAME AND THE BATTLE WILL BEGIN.": 4000,,:"WHEN YOU ARE HIT THE HEALTH POINTS YOU ARE DOWN TO WILL BE PRINTED. IF AT ANY TIME YOU FEEL YOU ARE GETTING THE WORST OF THE BATTLE YOU MAY MOVE OFF IF YOU ATTACKED BY SIMPLY-^6"MOVING THE JOYSTICK IN ANY DIR- ECTION. IF HE HOPPED ON YOU ALL IS NOT LOST IF YOU HAVE A TELE- PORT SPELL TO SPARE -- SIMPLY HOLD DOWN THE JOYSTICK (PANIC) BUTTON AND YOU WILL TELEPORT AWAY.": 4000.N@:"spells":"SPELLS MAY BE FOUND BY EXPLORINGTHE TREASURE/TRAP SQUARES.THEY MAY BE CAST AT ANY TIME DURING THE GAME THAT YOU ARE NOT IN BATTLE SIMPLY BY PRESSING ONE KEY. WHEN A TRAP IS SPRUNG IT MAY ALSO BE POSSIBLE TO AVOID.J"DAMAGE BY HOLDING DOWN THE JOY- STICK BUTTON IMMEDIATELY.HOWEVEREACH TRAP REQUIRES THE POSSESSION OF A SPECIFIC SPELL. YOU MUST LEARN WHICH.": 4000/T:"command summary":"USE THE RIGHT JOYSTICK TO MOVE.":"THE RED JOYSTICK BUTTON CAN BE USED TO LEAVE A BATTLE OR TO AVOID DAMAGE WHEN A TRAP IS SPRUNG."::"KEY SPELL CAST":"H HEAL TAKEN"0D^"I INVISIBILITY":"R REGENERATION":"T TELEPORT":"S SHIELD":"L LIGHT SPELL":"O LIGHT ON/OFF": 40001h:"other commands":"KEY FUNCTION":"C CLIMB UP OR DOWN":"V GIVES INVENTORY WHEN ON":" THE TEMPLE"::"save game feature":"TO LOAD A GAME HOLD SHIFT AND PRESS 0 TO GET IN THE LOWER CASE";1Xr"MODE THEN HOLD THE 'L' KEY AFTERTHE PROGRAM STARTS.": 400027|:"TO SAVE SHIFT/0 AS BEFORE THEN WALK OVER TO THE NEAREST STAIR- WELL ON THE LEVEL YOU ARE ON HOLD SHIFT AND PRESS 'C' TO CLIMB. RELEASE THE SHIFT AS SOON AS THE MUSIC BEGINS AND HOLD THE 'S' KEY DOWN.2"BE SURE TO HOLD SHIFT AND PRESS 0 TO GET INTO THE UPPER CASE MODE TO GIVE COMMANDS IN THE GAME.": 40003(:"THE PROGRAM IS SET TO SAVE ON DISK -- TO CHANGE THIS TO TAPE JUST CHANGE ALL THE #1 TO #-1 IN LINES 73 AND 74.34 40003:"final comment":"THIS QUEST TAKES QUITE SOME TIMETO COMPLETE -- DO NOT GO AFTER THE SWORD UNTIL YOU REACH BATTLESKILL OF ABOUT 3000 AND LEVEL 8.4"DON'T BE AFRAID TO REPEAT EACH LEVEL MANY TIMES TO BUILD UP SKILL. GOOD LUCK.":"A FINAL HINT: SAVE UP SHIELD SPELLS FOR THE TRIP BACK UP ONCEYOU HAVE THE SWORD.": 4000: 50004@485,"";: "press for more";OK$444 (&HC000)68 50505" USE DISK TO LOAD POWER SWORD? Y/N"54K$:K$"N" 50505GK$"Y" 50305V"SWPOWER"5\5:" READY TAPE - PRESS [ENTER]"5K$:K$(13) 50605ΗI0:300 : COPYRIGHT (C) T&D SOFTWARE 1985 power sword2:0,5:X():490:DD(15,19),NN$(9),PL(4),M1(4),M2(4),M3(4),M4(4),M5(4),M6(4),M7(4),M8(4),TT(4),HH(4),TE(4),UU(4),DN(4),WW(4),SW(4),ER(4),EX(4),PT(4),L$(26),CN$(36),CA(36),CD(36),CS$(36),CP(36),H2$(8),M9(50)NN$(1)"BR6NU8BR5":NN$(2)"BM+3,-8R6D4L6D4R6BR2":EX100NN$(3)"BM+3,-8R6D4NL6D4NL6BR2":NN$(4)"BM+3,-8D4R6NU4D4BR2"[NN$(5)"BM+3,-8NR6D4R6D4NL6BR2":NN$(6)"BM+3,-8NR6D8R6U4NL6BM+2,+4"NN$(7)"BM+3,-8R6M-6,+8BR8":NN$(8)"BM+3,-8R6D4ND4L6NU4D4R6BR2NN$(9)"BM+4,-8ND4R6D4NL6D4BR2":NN$(0)"BR4U8R6D8NL6BR2":13(0,0)(255,10),,BF:"BM0,10/XZ1(P$):I$(P$,XZ,1):IN(I$)64K IN32 "BR10":12s (I$)65 NN$((I$)48):12 L$(IN)"BR2" : :"BM0,10BR5BU1R2U2R1U2L4ND1NU4R4U3R2D1R1L2D4R2D2R2":(0,0)(15,10),PL4"BM17,10BR4BU1E1U3L4ND2R4U2L1U1R3D1L2D2R2D1R4NM+1,-5NR1ND1L4D2F1":(16,0)(31,10),M1"BM34,10BM+2,-6G1D3F1D1NR1U1E1R4D2NR1U3NL4E1U3R2L3ND3U1L1":(32,0)(47,10),M2"BM51,10BR3E2U3L3ND2R3U2L1U1R3D1L1D2R4ND2L4D3F2":(48,0)(63,10),M3"BM64,10BR5E2U3L4ND2R4U2H2E1F1G2D2R5NE2L4D3F2":(64,0)(79,10),M4["BM80,10BR2E2R5F2BU3H2L5G2BM+5,-3ND6NH2NE2":(80,0)(95,10),M5"BM96,10BM+3,-4F1D2NR1U2R5D2NR1U2R1U1NL5U3R2D1L2D3":(96,0)(111,10),M6"BM112,10BR7H1M-2,-6E1R2F1M-2,+6R3D1NE2L3":(112,0)(127,10),M7 %"BM128,10BM+4,-6M+4,+2M+4,-2":(128,0)(143,10),M8 u"BM144,10BM+4,-1R8U4L4ND1L4D4M-2,-2U4NM+2,+2R8M+2,+2":(144,0)(159,10),TT "BM160,10BM+6,-1NU6H4E4F4G4":(160,0)(175,10),HH "BM176,10BM+4,-1U3L3U3R3U3R4D3R4D3L4D3L4":(176,0)(191,10),TE!<"BM192,10BU4BR2M+10,+3U7M-3,+1ND4M-4,+1ND3M-3,+1":(192,0)(207,10),UU!x"BM208,10BM+11,-4M-9,+3U7M+10,+3":(208,0)(223,10),DN!"BM224,10BM+2,-1R2BR5R3U1L3BL5L2BU2BR4R3U1L3BL4BU2R3BR5R3U1L3BL5L3":(224,0)(239,10),WW"C"BM240,10BR3M+1,-1M+1,-1M+1,-1M+1,-1M+1,-1M+1,-1M+1,-1NL5NR4NM+2,-3R1M+2,-3M-7,+7":(240,0)(255,10),SW"|"BM7,15NR4NL4NU4ND4NE4NF4NG4NH4":(0,10)(15,20),EX"(22,15),7,0,.6:(22,15),0,0:(22,15):(16,10)(31,20),PT:(100,100)(115,110),ER#L$(1)"R1NR1M+3,-8M+2,+6NL5M+1,+2NL1NR1BR3#. L$(2)"BU1F1U8NL1R4F1D2G1NL3F1D2G1NL3BR5#^!L$(3)"BM+6,-8M+1,+1M-6,+1D4M+6,+1M-1,+1BR4#"L$(4)"NU1R6M+2,-1U6M-2,-1L4ND8L2ND1BM+11,+8##L$(5)"R8NU1BL8U4R5NU1ND1L5U4R8D1BM+3,+7#$L$(6)"R1NR1U4R4NU1ND1BL4U4R7D1BM+3,+7$)%L$(7)"BM+5,-3ND1R3D1M-2,+2L4M-2,-2U4M+2,-2R4M+2,+2NL1BM+3,+6$[&L$(8)"R1NR1U4NR6U4NL1NR1BR6NL1NR1D8NL1NR1BR3$}'L$(9)"BR3R1NR1U8NL1R1BM+6,+8$(L$(10)"BU3M+1,+3R2M+1,-3U5L4ND1R8D1BM+2,+7$)L$(11)"R1U8NL1D4M+7,-4BM-7,+4M+7,+4BR2$*L$(12)"R1U8NL1D8R7NU1BR3%%+L$(13)"U8NL1M+4,+7NL1NR1M+4,-7NR1D8R1BR2%O,L$(14)"R1NR1U8NL1M+6,+8NR1U8NR1D8BR3%w-L$(15)"BU3F3R2E3U2H3L2G3D2BM+11,+3%.L$(16)"BU1F1U8NL1R6F1D2G1L6BM+9,4%/L$(17)"BU3F3R2E3U2H3L2G3D2BM+4,1F2R1BR2%0L$(18)"R1U8NL1R4F1D1G1L4BU1M+5,+6R1BR2&'1L$(19)"BM+7,-8ND1L6G1D2F1R6F1D2G1L6NU1BR10&N2L$(20)"BR2R3L1U8L4ND1R8ND1BM+2,+8&y3L$(21)"BM+1,-8NL1D6F2R2E2U6NR1BM+3,+8&4L$(22)"BU8NR1M+4,+8NL2NR2M+4,-8L1BM+3,+8"&5L$(23)"BU8NR1M+2,8M+2,-5M+2,+5M+2,-8NL1BM+3,+8'6L$(24)"R1M+6,-8NR1BL6NL1M+6,+8NR1BR2'97L$(25)"BU8R1M+3,+5M+3,-5NR1BM-3,+5D3NL1NR1BR5'\8L$(26)"BU8ND1R7M-7,+8R7NU1BR3'9S1$"O3T4L2E;L4C;E;L2O4A;L4O3EC;L2E;L4CAL1O2E'::1,1';"BM40,60":P$"THE POWER SWORD":8'="BM50,140":P$"COCO PROGRAM":8(>"BM40,150":P$"BY DAVID DAWSON":8:S1$(A:P$"PREPARE FOR QUEST": X1 (P$):((X10)30,80)((X10)40,90),,BF: (P$,X,1)" " "BM"((X10)30)",90"L$(((P$,X,1))64):"BR3R2U2R1U2L4ND1NU4R4U3R2D1R1L2D4R2D2R2) B ((P$,X,1))32 "BM+"((X10)30)",90BR10")C X)XD X1 36: CN$(X),CA(X),CS$(X),CP(X):: X1 8: H2$(X): X*LEGR$"O1T200L100;1":TS$"O1T250L255;4;2;8;6;4;7;4":DS$"O1T20L2EEE":SA$"XGR$;XGR$;XGR$;O4T100L4AAAV20AAAV10BBBV5DDDV2EEE":SH$"O4T100L4V30AV29AV27AV26AV24AV20AV16AV12AV8AV4AV2AV1AV30":SL$"O1T100L4V1EV4EV8EV12EV16EV20EV24EV26EV27EV29EV30E"*FSF$"T255V30L100O4EV15L50EV5EV31":EX$"O1T200L8V1BV2CV3EV4FV5AV6CV7BV8EV9FV10AV11CV12BV13EV14FV15BV16AV17CV18CV19BV20EV21CV22AV23EV24BV25EV26FV27BV28CV29AV31C"+DGLV1:MH(6)(6)(6):HPMH:BS(6)(6)(6):DV1:PH1:PT1:FL(6)14+NH258+III$: II$"s" Q50 :"SAVING GAME":"O",#1,"FARDAT":#1,EP;LV;MH;BS;DV;MS;EX;PH;PS;PI;PR;PT;PE;PD;PL;WW;HP;MC:ZZ150:#1,M9(X);::#1,mJ II$"l" :"LOADING GAME":"I",#1,"FARDAT":#1,EP,LV,MH,BS,DV,MS,EX,PH,PS,PI,PR,PT,PE,PD,PL,WW,HP,MC:ZZ150:#1,M9(X)::#1:72,K X0 15: Y1 18:DD(X,Y)9: Y,X:PX(7)(7):PY(8)(9):DXPX:DYPY:CT0:DD(PX,PY)0,L Q51 T2 Q50:245-MQ51T2-N Q51 DV1 252-+ODVL3 L3DV-bPXD(3)7:X(12): X1 DX1 0 DXDX1:89-Q X5 X9 DX10 WS1 XD:DXDX1:DD(DX,DY)0:-R X2 DX115 DXDX1:89.S X6 X10 DX5 WS1 XD:DXDX1:DD(DX,DY)0:.&T X3 DY13 DYDY1:89.eU X7 X11 DY12 WS1 XD:DYDY1:DD(DX,DY)0:.V X4 DY118 DYDY1:89.W X8 X12 DY8 WS1 XD:DYDY1:DD(DX,DY)0:.X80/ZYCTCT1:DD(DX,DY)0: (3)1 DD(DX,DY)2 : (5)1 DD(DX,DY)4 : (25)1 DV1 DD(DX,DY)5 : (25)1 DD(DX,DY)6/mZ CT15 259/}[ CT37 80/\DX(14)1:DY(16)1: DD(DX,DY)9 DD(DX,DY)1:: 920 ]DX(14)1:DY(16)1: DD(DX,DY)9 DD(DX,DY)1 DD(DX,DY)6 :930^ DV1 960u_DX(14)1:DY(16)1: DD(DX,DY)9 DD(DX,DY)1 DD(DX,DY)6 DD(DX,DY)5 : 950` FLDV 980aDX(14)1:DY(16)1: DD(DX,DY)9 DD(DX,DY)5 DD(DX,DY)6 DD(DX,DY)3 : 9713b BG0 @418,"YOUR QUEST BEGINS!";:BG1 : @418,"YOUR QUEST CONTINUES!";1Hc"O3T8L2ABCABCD"1kdWN(3)3: X1 6:WA(X)0:1ze X1 WN1fCX(X)(14)1:CY(X)(16)1: DD(CX(X),CY(X))0 102 : DD(CX(X),CY(X))82gZZ((DV1.5))((DV1.5))(3)2: ZZ36 1032OhWN$(X)CN$(ZZ):WA(X)CA(ZZ):WD(X)CD(ZZ):WS$(X)CS$(ZZ):WP(X)CP(ZZ)2iWA(X)WA(X)((51(DV2))): WA(X)1 WA(X)CA(ZZ):105 : WA(X)18CA(ZZ) WN$(X)"WEAK "WN$(X)2j X2k0:1,13lL90:I90:S90:OXPX:OYPY:P90: X1 50: DVM9(X) P$"TREASURE MAP":7:251:PXOX:PYOY: R0 15: RY1 17: DD(R,RY)0 DD(R,RY)1: RY,R : RY,R : X3mRG0:CT0:CO0:(PX16,PY10)((PX16)15,(PY10)9),PL:193:1983nT2:S20DV: S1 S14o P90 P9P91:1164pCH0:J1(0):J2(1): J140 DD(PX1,PY)9 (PX16,PY10)((PX16)15,(PY10)9),ER:PXPX1:CH1 : J120 DD(PX1,PY)9 (PX16,PY10)((PX16)15,(PY10)9),ER::PXPX1:CH15jq J240 DD(PX,PY1)9 (PX16,PY10)((PX16)15,(PY10)9),ER:PYPY1:CH1 : J220 DD(PX,PY1)9 (PX16,PY10)((PX16)15,(PY10)9),ER:PYPY1:CH15r CH1 (PX16,PY10)((PX16)15,(PY10)9),PL:1985s DD(PX,PY)0 DD(PX,PY)1 116 : CH1 1195tII$: II$"" 1466]uCOCO1: CO20 HPHP1RG:W80: DD(PX,PY)1 HPHP1:193:CO0:111 : 193:CO0:1116vCTCT1: CTS 111 : 176:CT0:1116wXDD(PX,PY): X1 1227xP$"TEMPLE":7: GL0 EPEPGL:GL0:P$"SACRIFICE OF GOLD":7:"O4T100L4ABCDEABCDEABCDE7!y DE1100:: 193:7z X2 123 : R(10)(DV10):P$(R)" GOLD PIECES":7:"V31T8L4O4ABC": RGL(PS1)100 GL(PS1)100:P$"GOLD TOO HEAVY":7:DD(PX,PY)1:193: : DD(PX,PY)1:GLGLR:193:8K{ X3 124 : P$"THE SWORD OF FARGOAL":7:S1$:G91:DD(PX,PY)1: 193: Q50 0:Q51: : 8[| X4 1418}DD(PX,PY)1:R(9): R 126,128,130,132,136,136,136,136,1369U~P$"PIT TRAP":7:"O4T50L4FFFEEEDDDCCCBBBAAAO1L1T20A":250: FI1 PD0 DD(PX,PY)7:(PX16,PY10)((PX16)15,(PY10)9),PT:PDPD1:175 : HPHP((10)DV): HP0 2449DD(PX,PY)7:(PX16,PY10)((PX16)15,(PY10)9),PT:133:ZP$"CEILING TRAP":7:(PX16,PY10)((PX16)15,(PY10)9),EX:"V31T50L4AFCBAFBAAFCBAFBAAFFFFF":250: FI1 PT0 P$"TELEPORT TO SAFTY":PTPT1:7: 156 : HPHP((10)DV): HP1 244:d133;P$"EXPLOSION TRAP":7:EX$:(PX16,PY10)((PX16)15,(PY10)9),EX: EX$: S91 S90:P$"SHIELD PROTECTS YOU":7:256 : HPHP((15)DV): HP0 244;133;1P$"TELEPORT TRAP":7:156;R(12): R6 P$"LOST YOUR MAP":7:"O1T1L4ABC":7:193:R015:Y1 18: DD(R,Y)1 DD(R,Y)0:Y,R : Y,R; R6 X16: WD(X)1 WD(X)0: : ;193:<R(14): R1 R3 P$"HEAL POTION":PHPH1 : R2 R5 P$"MAGIC SACK":PSPS1 : R4 P$"REGENERATION SPELL":PRPR1 : R6 R12 P$"SHIELD SPELL":PEPE1=t R7 R13 P$"TELEPORT SPELL":PTPT1 : R8 P$"LIGHT SPELL":PLPL1 : R9 P$"ENCHANTED WEAPON":WWWW1:BSBS(10)5 : R11 P$"INVISIBILITY SPELL":PIPI1 : R14 P$"DRIFT SPELL":PDPD1= R10 MC51 MCMC1:M9(MC)(8)DV3:P$"MAP TO "(M9(MC))" LEVEL= R10 MC50 =7:"O3T4L2EL4CEL2O4A":> X5 143>;P$"STAIRS UP":7:"V31T8L4O2EDCBA":193:> X6 144 : P$"STAIRS DOWN":7:"V31T8L4O2ABCDE": 193:> X7 145 : P$"CLIMBABLE PIT DOWN": 7:"V31O2T8L4ABCABCABCD":193:> X8 : V91: 214:193:? II$"H" 149?\ PH0 PHPH1:P$"HEALING POTION TAKEN":7:257:HPHP(20)10 : 1,1? HPMH HPMH:193: : 193:? II$"I" 151? PI0 PIPI1:P$"INVIS SPELL CAST":7:I91:256:193: : 1,1:? II$"R" 154@H PR0 PRPR1:P$"REGEN SPELL CAST":7:256:RGRG1:193: : 1,1:@] II$"T" 158@} PT0 PTPT1 : 1,1:@X(16)1:Y(18): DD(X,Y)0 DD(X,Y)1 157 : 156A-(PX16,PY10)((PX16)15,(PY10)9),ER: SF$SF$:PXX:PYY:(PX16,PY10)((PX16)15,(PY10)9),PL:193:AB II$"S" 160A PE0 PEPE1:P$"SHIELD SPELL CAST":7:256:S91:193: : 1,1:A II$"L" 162A PL0 PLPL1:P$"LIGHT SPELL CAST":7:256:L91:O91:193: : 1,1:B II$"O" 165B| L91 O91 P$"LIGHT OFF":O90:7: SF$SH$ : L91 O90 P$"LIGHT ON":O91:7: SF$SH$ : 1,1B193:B II$"V" 169B DD(PX,PY)1 259B DD(PX,PY)1 ""167B1,1:B II$"C" C) DD(PX,PY)5 DVDV1:"O2L4T8FEDCBAFEDCBA":72C` DD(PX,PY)6 DVDV1:"O2L4T8ABCDEFABCDEF":72C DD(PX,PY)7 R(2)(2)(4):P$"DOWN "(R)"LEVELS":7:"O2L4T8ABCDEFABCDEFABDE":DVDVR:72DL DD(PX,PY)10 R(2)(2)(4): DVR1 173 : P$"UP "(R)"LEVELS": 7:DVDVR:"O2L4T8EDBAFEDCBAFEDCBA":72DW1,1:DP$"FALL LIKE A FEATHER":7:SH$EX$:E X1 WN: WA(X)0 191 : DD(CX(X),CY(X))WD(X): DD(CX(X),CY(X))1 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),EREDD(CX(X),CY(X))WD(X): DD(CX(X),CY(X))1 (DD(CX(X),CY(X)1)1 DD(CX(X)1,CY(X))1) (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),TEE I91 DD(PX,PY)1 WXPX:WYPY:PX(15):PY(17)F$ CX(X)PX DD(CX(X)1,CY(X))9 DD(CX(X)1,CY(X))8 CX(X)CX(X)1Fq CX(X)PX DD(CX(X)1,CY(X))9 DD(CX(X)1,CY(X))8 CX(X)CX(X)1F CY(X)PY DD(CX(X),CY(X)1)9 DD(CX(X),CY(X)1)8 CY(X)CY(X)1G CY(X)PY DD(CX(X),CY(X)1)9 DD(CX(X),CY(X)1)8 CY(X)CY(X)1G, WS$(X)"G" (10)3 179G] I91 DD(WX,WY)1 PXWX:PYWY:WX0:WY0G DD(CX(X),CY(X))1 WS$(X)"L" P$"BASLISK ATE THE TEMPLE":7: EX$EX$:WD(X)0:DD(CX(X),CY(X))0 : DD(CX(X),CY(X))8 WD(X)DD(CX(X),CY(X))HZ DD(CX(X),CY(X))1 WS$(X)"I" 187 : L91 O91 DD(CX(X),CY(X))1 187 :190I' WP(X)1 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M1 : WP(X)2 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M2 : WP(X)3 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M3I WP(X)4 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M4 : WP(X)5 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M5 : WP(X)6 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M6J} WP(X)7 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M7 : WP(X)8 (CX(X)16,CY(X)10)((CX(X)16)15,(CY(X)10)9),M8JDD(CX(X),CY(X))8: CX(X)PX CY(X)PY V90:214J XJJ HPMH HPMHKP$" H"(HP)" E"(EP)" G"(GL):7KÅ EPEX2 EXEX2:LVLV1:P$"RAISED TO LEVEL "(LV):7:"V31O1T8L4ABABABCDABABABCD":MHMH(6)(6)(6):KĐKCX(X)(14):CY(X)(17):WD(X)DD(CX(X),CY(X)): DD(CX(X),CY(X))0 DD(CX(X),CY(X))1 : 197LpA1PX1:A2PY1: 202:A1PX:A2PY1:202:A1PX1:A2PY1:202:A1PX1:A2PY:202:A1PX1:A2PY:202:A1PX1:A2PY1:202LA1PX:A2PY1:202:A1PX1:A2PY1:202MZȅ L91 O91 A1PX2:A2PY2:202:A1PX:A2PY2:202:A1PX2:A2PY2:202:A1PX2:A2PY:202:A1PX2:A2PY:202:A1PX2:A2PY2:202:A1PX:A2PY2:202:A1PX2:A2PY2:202M`ɐN ʅ A10 A115 A21 A218 : DD(A1,A2)0 (A116,A210)((A116)15,(A210)9),ER:DD(A1,A2)1::DD(A1,A2)9 (A116,A210)((A116)15,(A210)9),WW:NJ˅ DD(A1,A2)1 (A116,A210)((A116)15,(A210)9),TE:N̅ DD(A1,A2)2 (A116,A210)((A116)15,(A210)9),TT: : DD(A1,A2)4 (A116,A210)((A116)15,(A210)9),HH:Oͅ DD(A1,A2)5 (A116,A210)((A116)15,(A210)9),UU: : DD(A1,A2)6 (A116,A210)((A116)15,(A210)9),DN: : DD(A1,A2)7 (A116,A210)((A116)15,(A210)9),PT:O΅ DD(A1,A2)10 (A116,A210)((A116)15,(A210)9),PC:Pυ DD(A1,A2)3 (A116,A210)((A116)15,(A210)9),SW: : DD(A1,A2)8 PIЀ X1 WN: CX(X)A1 CY(X)A2 209 : :Pх WS$(X)"I" (L91 O91) : WD(X)1 WD(X)0 DD(15,19)WD(X):A115:A219:202P҅ WD(X)0 WD(X)1QvӅ WP(X)1 (A116,A210)((A116)15,(A210)9),M1: : WP(X)2 (A116,A210)((A116)15,(A210)9),M2: : WP(X)3 (A116,A210)((A116)15,(A210)9),M3:R%ԅ WP(X)4 (A116,A210)((A116)15,(A210)9),M4: : WP(X)5 (A116,A210)((A116)15,(A210)9),M5: : WP(X)6 (A116,A210)((A116)15,(A210)9),M6:RՅ WP(X)7 (A116,A210)((A116)15,(A210)9),M7: : (A116,A210)((A116)15,(A210)9),M8:Rր X1 WN: CX(X)PX CY(X)PY WA(X)0 216: XRאSC"T255V31L4O4AO3AO2AO1AO4BO3BO2BO1BO4CO3CO2CO1C":I90: V90 P$"YOU ARE ATTACKED BY": 7: DE1 300: DESم (WN$(X),1)"O" (WN$(X),1)"E" (WN$(X),1)"A" N$"AN " : N$"A "SP$N$WN$(X):7: DE1 300:T"ۅ G91 (10)3 S90 W8X:T83:P$"TAKES FARGOAL":7:G90:"T8O2L4ABABABCABCABCABC":197:TR܅ WS$(X)"-" WS$(X)"I" WS$(X)"G" 226T݅ WS$(X)"A" (DV)6 WW0 P$"YOUR WEAPON IS STOLEN":7:"T4O1L4DEF":WW0:W8X:T8(WW10):WW0:193:197:Uޅ WS$(X)"B" (16)6 P$"MAGE TAKES SPELLS":7:"T4O1L4DEF":PI(PI(PI)):PRPR((PR)):PT(PT(PT)):PE(PE(PE)):PD(PD(PD)):PL(PL(PL)):PW(PW(PW)):U߅ WS$(X)"C" (4)2 P$"DRAINS 1 LEVEL":7:LVLV1:W8X:T82:257:197:V8 WS$(X)"D" P$"PARALYTIC POISON":7:"T2O1L1ABC":P9(100)100(BS10): 226V WS$(X)"J" (DV)4 GL0 P$"TAKES YOUR GOLD":7:"T100O3L4ABCABCABC":W8W:T8GL:GL0:193:197:VBH(DV3)(4)(4)(4)WA(X)WR V91 (0)50 (0)10 (1)50 (1)10 WS$(X)"K" P$"YOU ARE ENTANGLED":7:"O1V31T8L4AEAEAEF":V90 : Ww WW1 WS$(X)"E" V91:231W WW6 WS$(X)"F" V91:231WBHBH(WW((BS50))(LV5)LV(20)): BH1 236X (65280)126 (65280)254 PT0 PTPT1:156X2 S91 CS$(X)"H" 234XqHPHP((DV)DV(WA(X))((BS50))): HP1 244XR(8):P$"H "(HP)" "H2$(R):7: R3 SH$ : R3 255 : R4 SH$EX$SH$X끥227YzP$"YOU HAVE VANQUISHED":7:DE1300: DE:P$N$" "WN$(X):7:DE1300: DE:EPEP(WA(X)LL10):BSBS(WA(X)5)DV:WA(X)0:DD(CX(X),CY(X))WD(X)Y XW8 T80:242Y T80 P$"YOU FOUND YOUR "(T8)"GOLD":7:GLGLT8:T80:W80:242Z9 T82 P$"YOU GOT BACK YOUR EX LEVEL":7: DE1350:DE:T80:W80:LVLV1:242Z T810 P$"FOUND YOUR "((T810))"SWORD":WW(T810):7:DE1350:DE:T80:W80:242[" T83 P$"YOU GOT BACK THE": 7: DE1 400: DE:P$"SWORD OF FARGOAL": 7:"O3T4L2EL4CEL2O4AL4O3EC":T80:W80:G91: 242[_ S91 S90:P$"SHIELD SPELL EXPENDED":7:DE1100:[t 193:MSMS1:[ HP6 PH0 PHPH1:HPHP5(20):P$"HEAL POTION TAKEN":7:257: : P$"THOU ART SLAIN": 7:"O1T2L4ABCABCABCD":251:246\2"TIME UP, THOU ART SLAIN!": (13) 245\::::"YOU STOPPED ON LEVEL ";DV::"LOWEST LEVEL REACHED"L3::"PRESS ENTER FOR STATUS SCREENS OR TO STOP"\ (13) 247 : 258\ (13) 248 : 259] (13) 249 : 246]P S31 100: (65280)126 (65280)254 FI1: : :FI0:] PX1 14: PY2 17 3:198:PY,PX:] X1 50:"T255O4L255V31F": Y1 8:Y:Y,X:::"...AND THE PROTECTIVE SWORD IS RETURNED TO A GRATEFUL PEOPLE.^F"T8L4V31O2ABABABCDECDECDEABABABCDECDECDE":"PRESS ENTER FOR FINAL STATS!"^a (13) 246 :254^ XZ22 30 2:"V"(XZ)GR$:: XZ30 1 2:"V"(XZ)GR$::"V30":^ XZ30 1 1:"V"(XZ)TS$::"V31":_ XZ2 8 2:"V30P"(XZ)DS$::"V31":_:@100,"EXPERIENCE POINTS"EP;:@133,"EXPERIENCE LEVEL"LV;:@169,"MAXIMUM HITS"MH;:@201,"BATTLE SKILL"BS;:@232,"DUNGEON LEVEL";DV;:@263,"MONSTERS SLAIN"MS;:`v:@98,"MAGIC SACKS";PS;:@130,"SPELLS":@164,"INVISIBILITY.";PI:@196,"REGENERATION.";PR:@228,"TELEPORT.....";PT:@260,"SHIELD......."PE:@292,"DRIFT........"PD:@324,"LIGHT........"PL`@354,"ENCHANTED WEAPON +"WW:@66,"HEALING POTIONS";PH` Q51 @418,"TIME LEFT";1000(T260);`aSKELETON,2,-,1,DIRE WOLF,5,-,6,ROGUE,9,J,1,ORC,13,-,1,OGRE,15,-,3,BARBARIAN,18,-,1,HOBGOBLIN,22,-,3,BERSERK FIGHTER,26,-,1,ELVIN RANGER,30,J,1,DOOMBAT,20,D,8,WEAPONS MASTER,36,A,1,DARK SPIDER,20,D,5bFWEREBEAR,40,-,3,DWARVEN GUARD,46,J,1,GARGOYLE,48,E,3,MERCENARY,50,J,1,TROLL,55,E,3,SWORDSMAN,60,A,1,SHADOW,25,I,3,BASLISK,55,L,2,TREE MAN,65,K,4b WYVERN,70,E,2,MONK,74,A,3,DIMENSION SPIDER,50,G,5,DARK WARRIOR,80,A,1,SHADOW DRAGON,85,I,2,ASSASSIN,65,I,1,MAGICAL WARRIOR,70,H,1,HILL GIANT,83,-,3,FIRE GIANT,90,-,3c FYRE DRAKE,96,H,2,WARLORD,80,F,1,WIZARD,40,B,4,DEVIL LORD,110,C,4,DEMON PRINCE,100,F,4,RED DRAGON,90,L,2,UGH,CLAW,GROWL,THUMP,CRUNCH,OUCH,CHOP,CLINKc,2:1'' COPYRIGHT (C) T&D SOFTWARE 19859 termitesU 2:1,1:100:6,5:390:@104,"INVASION OF THE":@203,"TERMITES"::" PRESS ANY KEY TO START": DE1 1000: "" : 5071,1:250,1:"BM2,70C"((4))"U10F5E5D10BM+4,0NU10R4NU10BM+4,0U10F4U5BM+4,0NR6D8R8BM+4,0U5NU5R4NU5ND5R10"[( "" (30)1 20 : 302780::0,0:@104,"INVASION OF THE":@203,"TERMITES"l X1 130 10)Hv 6,5) (130,150)(130X,80),:(130,150)(130X,90),: 250,1:) X1 5: 1,0: 200,4: 1,1: 200,4:*iX1 5:PO(200)20: Y1 140 10:(PO,Y)(PO30,Y10),,BF:(PO,Y)(PO30,Y10),,BF:X113:Y1(10)(10):(POY1,Y)(POY1,0),:Y:(PO,Y)(PO30,Y10),,BF: 1,8:X* X150 1 8: X,1:(130,100),X,8:* 0,0::@192,"YOUR HOUSE FELL! ";N$(PN):"GAME OVER PLAYER ";PN*XX(PN)1:IP0:390+ X1 PL: XX(X)1 ZZZZ1+aƋ: ZZPL SC(PN)SC(PN)SC:SC0:730 :ZZ0: 500:D10:D0:1,1:100+yЅ "" : 720+ڞ:@98,"PLAYER":@110,"SCORE":@119,"TERMITES"+ X1 PL+ N$(X);: 14)SC(X);: 25)PC(X)++ X1 4000::,' :@160,"":"HOW MANY PLAYERS(1-5)";PL,? PL5 PL1 780,N X1 PL,*"PLAYER ";X;"NAME (8 LETTERS OR LESS)";:N$(X): (N$(X))8 810,4"WHAT GROUP WILL YOU START ON (1-7)";RO(X):RO(X)RO(X)1,> RO(X)0 RO(X)6 820-H:YA4:-&R U1504:(X,Y),U,5,.5:: 4' COPYRIGHT (C) T&D SOFTWARE 19858 spelriteO :SPELLING CHECKERb:BY BOB JOHNS|: 134 GEORGIAN WAY(: SHERWOOD PARK, ALBERTA2: CANADA T8A 2W2<:CHECK MEM. & DIMENSION ARRAYF 940 P ((&H74)256)(75)32000 100,Z 6000: A$(20):DI20: 110Gd 22000: A$(80):DI80nSF0:: (8," ");"SPELLING CHECKER": (10," ");"BY BOB JOHNS":x:SEE IF DISK SYSTEM (&HBC)&HE 160 "USE DISK";D$: (D$,1)"N" 160 : (D$,1)"Y" 140 : DE1 180 DE1+:MENU:"1. LOAD DICTIONARY FILE":"2. SAVE DICTIONARY FILE":"3. CHECK SPELLING":"4. CREATE A NEW ONE-WORD DICTIONARY FILE":"5. END PROGRAM"::GET USER RESPONSEMȉ"CHOICE";D$: D$"1" 220 : D$"2" 320 : D$"3" 420 : D$"4" 890 : D$"5" 920 : 200k:TO LOAD DICTIONARY FILEܻ"DICTIONARY FILE NAME: ";F$ DE1 250"READY TAPE AND PRESS : ";D$"I",#DE,F$ I1 DI (DE)1 300 #DE,A$(I)" IE, #DE:LCI::"DICTIONARY LOADED":: 180b6:TO SAVE NEW DICTIONARY@"DICTIONARY FILE NAME: ";F$J DE1 350T"READY TAPE AND PRESS : ";D$^"O",#DE,F$h I1 LCr#DE,A$(I)| I #DE'SF0::"DICTIONARY SAVED":: 180?:TO CHECK SPELLING^"NAME OF TEXT FILE: ";F$t A$(1)"" 450"DICTIONARY FILE NOT LOADED, PRESS : ";D$:: 180… DE1 470̻"READY TAPE AND PRESS : ";D$ ֞:"I",#DE,F$  (DE)1 610 )껉 #DE,B$ :P(B$," ") J P0 630 mX$(B$,P):B$(B$,(B$)P)  790: X$"" 500 : X$;" ";  I1 LC & (A$(I),(" "X$" "))0 500 0 I!:: 100,2: (32,"-");(&H22);X$;(&H22);" NOT RECOGNIZED."!XD"PRESS A TO ADD TO DICTIONARY, OR C TO CONTINUE PROCESS: ";!NG$: G$"A" 720 : G$"C" 700 : G$"" 590!X 100,1: 590!b #DE::"SPELL-CHECK COMPLETED":: 180!l:IF LAST WORD IF TEXT LINE"!vX$B$: 790: X$"" 480 : X$;" ";"Q I1 LC: (A$(I),(" "X$" "))0 480" I:: 100,2: (32,"-");(&H22);X$;(&H22);" NOT RECOGNIZED."""PRESS A TO ADD TO DICTIONARY, OR C TO CONTINUE PROCESS: ";#G$: G$"A" 720 : G$"C" 690 : G$"" 670#- 100,1: 670#K G$: (32,"-");: 480#i G$: (32,"-");: 500#:TO ADD AN ENTRY TO DICT.#Ї G$: (32,"-");: ((A$(LC))1(X$))250 LCLC1#څ LCDI 750$ LCLC1: 100,2:">>DICTIONARY FULL<<": 500$?SFSF1:">>";X$;" ADDED<<":A$(LC)A$(LC)X$" "$k (A$(LC),1)" " A$(LC)" "A$(LC)$v 500$ :TO REMOVE PUNCTUATION AND CONVERT TO UPPER-CASE$ (X$)0 $ ((X$,1))&H41 X$(X$,(X$)1)%* (X$)0 %24 ((X$,1))&H41 X$(X$,(X$)1)%E> (X$)0 %wH ((X$,1))&H41 ((X$,1))&H41 800%R J1 (X$)%\ ((X$,J,1))&H61 (X$,J,1)(((X$,J,1))&H20)%f J:%p:TO CREATE A NEW DICTIONARY&z DE1 910&."READY TAPE AND PRESS ENTER: ";D$&"DICTIONARY FILE NAME: ";F$:"O",#DE,F$:#DE," THE ":::"NEW DICTIONARY CREATED": 180& SF0 '""UNSAVED DICTIONARY CHANGES, PRESS M FOR MENU (TO SAVE IT) OR E TO END: ";: D$: D$"E" : D$"M" 180 : 930'3 0:1: 80!' COPYRIGHT (C) T&D SOFTWARE 19859 dos bossD 1580[:DOS BOSS 1.00.005E3:A$(70),B$(70):G$(144):G1$(207):G2$(191):Z$:TT$"QCAKXR?PN":T247:LA341:LB342:LC2304:LD338:LE255:LF139:LG128:ND0-(FF1:X512576:A$:X,("&H"A$)::0512:1542:25572562,LG::(32,195)G1$"DOS BOSS 1.00.00 COPYRIGHT (C)"G1$G1$"1984 BY T&D COMPUTER PRODUCTS "G1$G1$" ALL RIGHTS RESERVED "G1$(32,204)<@298,"SELECT DRIVE"FX2(0):562,LF:X1400:0PZZ$:ZZ$""X2(0):562,LG:X14E2::70OZZZ(ZZ$):ZZND 80:ZZod:@296,"DRIVE"ZZ"SELECTED"yn890&xY10 F68 :@294,"NO FILES FOUND ON"ZZ: DL11E3::::Y10F68FF0::@289,"PROGRAM AUTOMATICALLY SELECTED ALL FILES TO MENU OPTION.":X17E2:: 110F:@24,"DRIVE:"((ZZ),1)" NAME:"(34);:"% %";NA$;:(34)(68F)" GRANULES USED - "(F)" FREE":@96,"###";Y1;:" ENTRIES":@115,"PAGE"P1"OF"P2:H(P11)101:A$(1)""A$(1)A$(2):A$(2)""( XH H9>A$(X)"":200M9);A$(X)SȋKPO3253:529,LG:A0(K):529,LF:E(P11)10PO3:܅(LA)T PO4P11P1P11:PO13:A0(K):130:(LA)T PO4LA,LE:A0(K):POPO1:210+(65314)1@1,"PRINTER OFF";:@1,"PRINTER ON ";tZ$:Z$""250:(TT$,Z$)50,340,570,610,1100,630,820,1140,1300(LB)T PO13 EY1 A0(K):POPO1:210:(LB)T P1P2 PO13 P1P11:PO4:A0(K):130(LD)191280 220 ;(A$(E),9,1)"/":T$(A$(E),12)":"((ZZ),1):0 j":@194,(34)T$(34)" SELECTED":Z$ ,(A$(E),3)"BIN"M T$:65344,0: 6(A$(E),3)"BAS"""T$!_@:" THIS FILE HAS A NON-STANDARD":" EXTENSION. PLEASE HIT:"::" [b] TO RUN AS A BASIC PROGRAM":" [m] TO RUN AS A M/L PROGRAM":" [q] TO RETURN TO THE MAIN MENU"!JZ$:Z$"B"@354,"B";:Z$:""T$:Z$"M"@386,"M";:Z$:MT$:65344,0::Z$"Q"@418,"Q";:X15E2::130:330!TX1(0)"L^FQ0:@0,"copy"G$"utility SOURCE DRIVE:"((ZZ),1);:" HIT DESTINATION OR 'q' TO QUIT";"hYY$:YY$""360:YY$"Q"@52,"Q";:X15E2::130:YY(YY$):ND0YY0FQ1:380: YYND YYZZ 360"rH$A$(E)":"((ZZ),1):I$A$(E)":"((YY),1)#/|@32," DESTINATION DRIVE:"((YY),1);#Z" COPY "(34)A$(E)(34)"?";#~@101,"[y] YES":@117,"[n] NO";#Z$#Z$"N"@118,"N";:DL15E2::340:Z$"Y"@102,"Y";:430:410$5FQ 540: X170:B$(X)""::J1:QQ0:S311:YY,17,S,A$,B$:X1128 32:P1$(A$,X,12):480$G QQ 510:$m€X112832:P1$(B$,X,12):480$|̅ QQ 510$֋:: 510$(P1$,1)(LE) QQ1::(P1$,1)(0)$P1$(P1$,8)"/"(P1$,9,12):B$(J)(P1$,12)$JJ1:%"X1J:B$(X)A$(E)520::540%X1(0):@0,"copy"G$"utility SOURCE="ZZ" DEST.="YY;:" FILE EXISTS! OVERWRITE IT?":@101,"[y] YES":@117,"[n] NO"%Z$:Z$"Y"@102,"Y";:I$:540:Z$"N"@118,"N";:X15E2::340:530&1 FQ A$(E):130: 1190:Q(YY): NGQ 550:H$I$: 130&&X1(0):@0,"copy"G$"utility":" NOT ENOUGH ROOM ON DRIVE"YY:" HIT ANY KEY TO CONTINUE."&0Z$:Z$""560:340'?:X1(0):@0,"menu"G$"options":@24,"DRIVE:"((ZZ),1):@44,"DISPLAY":FF " ALL FILES TO MENU?":" /BAS & /BIN FILES ONLY?"'cD@101,"[y] YES":@117,"[n] NO";'NZ$:Z$"Y"@102,"Y";: FF FF0:FF1'XZ$"Y"110:Z$"N"@118,"N";:X15E2::130:590(NbX1(0):@0,"kill"G$"utility DRIVE:"((ZZ),1);:@37,"KILL "(34)A$(E)(34)"?":@101,"[y] YES":@117,"[n] NO"(lZ$:Z$"Y"@102,"Y";: A$(E):110:Z$"N"@118,"N";:X1500::130:620)vX1(0):@0,"rename";G$;"utility DRIVE:"((ZZ),1);:T1$"":T2$"":U$"":SLLL0)L@37,"RENAME "(34) A$(E)(34)"?"::@101,"[y] YES":@117,"[n] NO")Z$:Z$""650:Z$"Y"@102,"Y";:660:Z$"N"@118,"N";:X15E2::130:630*X15E2::@35,"RENAMING";:@58,"":@64,""::@67,"NEW NAME:";:U$:LL(U$):LL0790*0X1LL:(U$,X,1)"."(U$,X,1)"/":*BSL(U$,"/")*Q SL0800*eSL1SL9790*yT1$(U$,SL1)*T2$(U$,LLSL)*څT2$""800*(T1$)8750:X18(T1$):T1$T1$" ":*U$T1$"/"T2$:X1Y:A$(X)U$810:+bX1(0):@0,"rename"G$"utility **RENAMING**";:@39,(34)A$(E)(34)" TO":@71,(34)U$(34)+rA$(E) U$+ 890:130+X1(0):@0,"rename"G$"utility BAD FILENAME":X11E3::630,  X1(0):@0,"rename"G$"utility NEEDS EXTENSION":X11E3::630,P*X1(0):@0,"rename"G$"utility FILE EXISTS":X11E3::630-4:" DOS BOSS 1.00.00 HELP SCREEN":(32,131);:" USE THE UP AND DOWN ARROW KEYS TO SELECT PROGRAM. THEN HIT: [ENTER] TO RUN IT. [R] TO RENAME IT. [C] TO COPY IT."-2>" [K] TO KILL IT.-H FF " [A] TO DISPLAY ALL FILES TO THE MENU.":" [A] TO DISPLAY ONLY /BAS AND /BIN FILES.".R" [X] END PROGRAM OPTIONS.":" [Q] TO RESTART DOS BOSS.":" [N] NAME & COMMENT OPTIONS.".)\" [P] TO RUN PURGE UTILITY.".Zf(32,140);:" HIT ANY KEY TO RETURN.";.upZ$:Z$"" 880:130.zZZ,17,18,A$,B$.NA$(A$,23):CO$B$.(NA$)LE NA$(23,32).(CO$)LE CO$(128,32)/OX170:A$(X)""::Y1:P11:PO4:F(ZZ):QQ0:S311:ZZ,17,S,A$,B$:X1128 32:P1$(A$,X,12):980/b QQ 1010:/X1128 32:P1$(B$,X,12):980/ QQ 1010/ʋ:: 1010/ԅ(P1$,1)(LE) QQ1::(P1$,1)(0)0QP1$(P1$,8)"/"(P1$,9,12):A$(Y)(P1$,12): FF Z$(A$(Y),3): Z$"BIN" Z$"BAS" 1000 : A$(Y)"":0]YY1:0P2((Y1)10):P2(Y1)10P2P210B10B2B:B(Y2) 10300B(B2):B010900I1(Y1)B:CI0$DCB:A$(C)A$(D)10801%.D$A$(C):A$(C)A$(D):A$(D)D$:CCB:C01060128:104018B1}LX15E2:::"end"G$"program"G$"options DRIVE:"((ZZ),1)2V@234,"SELECT ONE:":@295,"[c] COLD START":@327,"[e] END PROGRAM":@359,"[k] END AND DELETE":@391,"[q] RESTART UTIL":@423,"[r] RETURN TO MENU"2`Z$:Z$"C"@296,"C";:X11E3::113,3:40999:Z$"E"@328,"E";:@416,"";:X11E3:::Z$"R"@424,"R";:X15E2::1302jZ$"K"@360,"K";:@416,"";:X17E2::::Z$"Q"@392,"Q";:X11E3:::11203DtX1Y1::"purge"G$"utility":@24,"DRIVE:"((ZZ),1);::::" "(30,191)3~@158,G2$:@190,G2$:@222,G2$:@254,G2$:" "(30,191):@129,G2$;:@161,G2$;:@193,G2$;:@225,G2$;4@133,"KILL "(34);: "% %";A$(X);:(34)"?";:@194,"[y] YES [n] NO [q] QUIT";4Z$:Z$"Y"@195,"Y";: A$(X)::Z$"N"@205,"N";:DL15E2:::Z$"Q"@214,"Q";:X15E2::110:117041104ZZ,17,2,AL$,B$:NG04N1:S3114ZZ,17,S,A$,B$:A$A$(B$,127):J075B$(N)(A$,J321,16):(B$(N),1)(LE)NN1:12405+NN1::5O؀M1 N:(B$(M),1)(0)12705S$(B$(M),11):S$(S$,8)"/"(S$,3):G((B$(M),14,1)): A$(E)S$12705NGNG1:G((AL$,G1,1)):G681260555 IIJJ06:"disk"G$"name"G$"and"G$"comments"G$"options"61@234,"SELECT ONE:"6v( NA$(23,32)@293,"[ ] NAME DISK":@293,"[ ] RENAME DISK"62CO$(128,32)@325,"[ ] ENTER COMMENTS":@325,"[ ] REENTER COMMENTS"6<@357,"[d] DISPLAY FROM DISK"7AF@389,"[s] SAVE TO DISK":@421,"[q] NO SAVE- RETURN TO THE MAIN MENU"7WP1318,49:1350,507ZZ$:Z$"1"@294,"1";:X17E2:::@24,"DRIVE:"((ZZ),1);:@96,"OLD NAME:":NA$:::"NEW NAME?":1480:II1:13008WdZ$"2"@326,"2";:X17E2:::@24,"DRIVE:"((ZZ),1);:@96,"OLD COMMENTS:":CO$:::"NEW COMMENTS?":1500:JJ1:13008nZ$"Q"@422,"Q";:X17E2::1309xZ$"D"@358,"D";:X17E2:::@45,"DRIVE:";((ZZ),1)::"NAME:":NA$::"COMMENTS:":CO$:@448," HIT ANY KEY TO CONTINUE":1430:13009CZ$"S"@390,"S";:X17E2::1440:1309N13709a""1430:9 II A$V$(105,255):A$NA$9 JJ B$T$:B$CO$9ZZ,17,18,A$,B$9NA$(A$,23):CO$B$::ȻV$:V$(V$,23):(V$)23X1 23(V$):V$V$(32)::Ґ:UܻT$:T$(T$,128):(T$)LG X1LG(T$):T$T$(32)::[:BD,B3,ED,C3,4,0,1F,1,C3,0,1,ED,8D,0,D,A6,84,8B,1,A7,80,AC,8D,0,3,26,F4,39,0,0,86,60,8E,4,0,A7,80,8C,04,7F,26,F9,39,0,0;8E,04,0,A6,84,80,40,A7,80,8C,04,A0,26,F5,27,0,39,0,0,0;):BY BILL COLEMAN;A:1721 BUFFALO AVE.;[:ODESSA, TEXAS 79762;p":(915) 367-5651;,0:1:30 *&' COPYRIGHT (C) T&D SOFTWARE 1984&360000&F4:1000,15599&cHT(27)256(28)783&z359,57:4:1,1:3&::8)"nine card choice":&" THIS CARD GAME USES THE CARDS FROM 2 - 10. YOU WILL BE ASKED TO PLACE A BET."'" THE COMPUTER WILL THEN PICK A NUMBER AND A LIMIT. YOU WILL ALSO BE TOLD A NUMBER THAT IS CLOSE TO THE NUMBER WHICH YOU MUST TOTAL WITH YOUR CARDS."' " YOU WILL NOT BE TOLD THE EXACT NUMBER, ONLY ONE CLOSE TO THE TRUE NUMBER.":61::(E ::" YOU MUST TOTAL THE NUMBER WITH- IN ITS LIMIT WITHOUT GOING OV- ER."( " YOU WILL HAVE TO DECIDE WHEN TO STOP TAKING CARDS AND STAND ON YOUR TOTAL.")2 " EXAMPLE: THE NUMBER TO GET IS 45. BUT YOU ARE ALLOWED A LIMIT OF 8. IF YOU STOP TAKING CARDS AND YOUR TOTAL IS BETWEEN 38 AND 45, YOU WIN."); 61)EM300):::::::" YOU HAVE $";M::" WHAT IS YOUR BET ? ";)T$"": HT)K$:K$""17) K$(13) 25)K$"0" K$"9" 17) K$(8) 23* (T$)0 17* T$(T$,(T$)1):24*-T$T$K$*@K$;: HT:17*MB(T$)*[ B0 15* BM :" YOU DON'T HAVE THAT MUCH !!":HT:5,3:15*D0:T0*A1(10)25*N(A1)A1*R(15)100* (2)1 35*!E(N(NR))+"36+#E(N(NR))+#$A(9)1+x%:::::::" YOU MUST COME WITHIN ";A:" WITH GOING OVER TO WIN.":61+&::DD1+'C(9)1+(9)"CARD NUMBER ";D: HT+)@271,"##";C;: HT+*(108,80)(146,124),,B,+@64,"YOU'RE TRYING TO GET CLOSE TO";E:HT:TTC,*, TN 48,R-@96," YOU WENT OVER THE NUMBER.",u." THE NUMBER WAS ";N;".",/" SORRY, YOU LOSE.":61:MMB:55,0@459,"TOTAL:";:"###";T,1@480," DO YOU WANT ANOTHER CARD ? Y/N";:HT- 2K$:K$"Y" 38-3K$"N" 50-14 TNA TN 54-{5::" YOU WIN!! THE NUMBER WAS ";N:" YOUR TOTAL ";T:61:MMB:55-6::" SORRY, THE NUMBER ";N;" IS":" OUTSIDE YOUR LIMIT BY";(NA)T:61:MMB-7::" YOU HAVE $";M.;8 M0 " YOU CAN'T AFFORD TO PLAY THIS GAME!":HT:TD02000::60.]97)"PLAY AGAIN ? (Y/N)": HT.s:K$:K$"Y" 15.;K$"N" 58.<359,126:.=@484,"PRESS [ENTER] TO CONTINUE";: HT.>(13) 62.?.`4:3Iooo ={@%@=001cZ&S=VH=K`ӺO70100 Z&L &o L&|9 @""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " &' COPYRIGHT (C) T&D SOFTWARE 1985&: ARK MUSIC MAN&^:4:N$(17),NV(17):M3584:PTM&"CAN YOUR COMPUTER USE THE":"HI-SPEED POKE";Y$: (Y$,1)"Y" HS&HFFD7 : HS&HFFD6&(BN4:TM490:OO(1)1:OO(0)1'C2540:N$((BN),((BN))1):F$"TEMPO IS [1/"N$"] NOTE=":N$((TM),((TM))1):F$F$N$'":(QF" 1. COMPILE MUSIC":" 2. SAVE COMPILED MUSIC":" 3. MODIFY TEMPO,OCTAVE":" 4. PLAY MUSIC":" 5. GIVE CURRENT DATA":" 6. RESTART PROGRAM"::" CHOOSE <1-6>";(jP A: A1 A6 50(wZA6 (dA(A): A 380,270,180,140,120(n50(xARK GIVE CURRENT DATA(:200:"PRESS ENTER WHEN DONE";A$:)ARK PLAY MUSIC)<:@8,"PLAY MUSIC": MPT "MUSIC NOT COMPILED":410)Z"PRESS ENTER TO PLAY";A$)d M:)ARK MODIFY TEMPO,OCTAVE AND MEMORY):PTM:@4,"PRESS ENTER IF NO CHANGE":200:210*#ȇ:6)"CURRENT DATA IS;":"OCTAVE 1=";OO(0):"OCTAVE 2=";OO(1):F$:"MEMORY BEGINS AT";M::*a҇"NEW OCTAVE FOR VOICE 1";:260: A$"" 220 : OO(0)A*܇"NEW OCTAVE FOR VOICE 2";:260: A$"" 230 : OO(1)A*"NEW BASE NOTE";:260: A$"" 240 : BNA+"NEW TEMPO CONSTANT";:260: A$"" 250 : TMA+H"NEW MEMORY LOCATION !CAUTION!":260: A$"" : MA:+\ A$:A(A$):+yARK SAVE COMPILED MUSIC+:@11,"SAVE MUSIC"+""SAVE TO WHAT NAME";N$: (N$)8 290,,"SAVE TO":@74,"ASSETTE":@106,"ISK":@138,"ETURN": D$: (D$)1 300,26D$(D$,1): D$"R" ,P@ D$"D" D$"C" 300,{J PTM :"MUSIC NOT COMPILED":410,T:"READY DEVICE";A$,^&HFFD6,0::" START="M:" END="PT:" EXEC="M:-h D$"C" :M N$,M,PT,M: : M N$,M,PT,M:-r380:&HE00:-*|ARK COMPILE MUSIC-` PTM :@7,"MUSIC IS COMPILED":T02000::-z:@9,"COMPILE MUSIC"-:O(0)OO(0):O(1)OO(1):NT0:O0:T063:A:MT,A::PTMT-T016:N$(T),NV(T):::@128,"";.A: A0 480 : A(SA): A0 A1. NTNT1:520.>B$:A$B$:500:A$:500.̇NT;:D(&H88):DD(&H89):@0,"MEMORY=$"(PT)" ="(PT):@32,"VOICE1="B$:@48," VOICE2="A$:@64,"OCTAVE1="(O(0)):@81,"OCTAVE2="(O(1)):@96,F$:&H88,D:&H89,DD.ց430/  "#%'(),DISK 34 NUMINTRO34 BASHOVERT BASSWPOWINSBAS SWPOWER BAS TERMITESBAS*SPELRITEBAS7DOS BOSSBASNINECARDBAS-MUSICGENBAS!FYR-INS BAS$!FYR-DRACBIN&DRIVETSTBAS*GRAFTOURBAS+[MOD#1 BIN-MOD#2 BIN.MOD#3 BIN/MOD#4 BIN0MOD#5 BIN1 A0 PT,0:PT1,0:PTPT2:/GA:O(0)O(0)A:A:O(1)O(1)A:430/zT017: A$N$(T) A2(O(O))NV(T) : :A0/O1O/ 530:PT,A:PT1,B:PTPT2:/BA:A(A256):B(BA256.5):/S60BN895000(71TM):0&ARK MUSIC DRIVER00 52,87,26,80,127,255,64,189,169,118,51,141,0,50,174,193,39,44,111,226,236,193,221,247,236,193,221,245,111,228,220,241,211,245,221,241,102,228,220,243,211,247,221,243,102,228,166,228,184,255,32,183,255,32,48,31,38,226,50,97,32,208,53,2151:ARK NOTES AND NOTE VALUES1D F,908,FS,962,GF,962,G,1019,GS,1054,AF,1054,A,1144,AS,1212,BF,1212,B,1284,C,1360,CS,1441,D,1527,DS,1618,EF,1618,E,1714,R,01NARK DATA TO CREATE *PRELUDE*1X 4,D,R1b 0,1,01l 4,C,R1v 4,B,R1 4,C,R1 0,-1,02  4,G,R2 0,1,02! 4,C,R2- 4,B,R29 4,C,R2FƆ 0,-1,02RІ 2,E,R2^چ 4,E,C2j 4,E,B2v 4,R,C2 4,R,B2 4,R,C2 4,R,G2 4,R,C2 4,R,G2* 0,1,024 4,C,G2> 4,B,G2H 4,C,G2R 0,-1,02\ 4,G,R3f 0,1,03p 4,C,R3z 4,B,C3+ 4,C,R37 4,A,C3D 0,-1,03P 4,F,C3\ 4,E,C3h 4,F,C3t 4,C,R3ʆ 4,F,R3Ԇ 4,E,R3ކ 4,F,R3 4,D,A3 0,1,03 4,D,A3 4,C,A3 4,D,A3 4,A,R3$ 4,D,R3. 4,C,D48 4,D,R4B 4,B,D4L 0,-1,04)V 4,G,D46` 4,FS,D4Bj 4,G,D4Nt 4,D,R4Z~ 4,G,R4g 4,FS,R4s 4,G,R4 4,E,B4 0,1,04 4,E,B4 4,D,B4Ć 4,E,B4Ά 4,B,R4؆ 4,E,R4 4,D,E4 4,E,R4 4,C,E4 4,A,E5 0,-1,05 4,GS,E5 0,1,05)( 4,A,E562 0,-1,05B< 4,E,R5NF 0,1,05ZP 4,A,R5gZ 0,-1,05sd 4,G,R5n 0,1,05x 4,A,R5 4,C,D5 0,-1,05 4,FS,R5 4,E,D5 4,FS,R5 0,1,05 4,C,D5Ȇ 0,-1,05҆ 4,FS,R6܆ 4,E,D6 4,FS,R6! 0,1,06- 4,B,D6: 0,-1,06F 4,G,R6S 4,FS,D6_" 4,G,R6k, 0,1,06w6 4,B,D6@ 0,-1,06J 4,G,R6T 4,FS,D6^ 4,G,R6h 0,1,06r 4,B,C6| 0,-1,06 4,E,R6 4,D,C6 4,E,R6 0,1,07  4,B,C7 0,-1,07#† 4,E,R7/̆ 4,D,C7;ֆ 4,E,R7G 0,1,07S 4,A,C7` 0,-1,07m 4,FS,R7y 4,E,C7 4,FS,R7 0,1,07& 4,A,C70 0,-1,07: 4,FS,R7D 4,E,C7N 4,FS,C7X 0,1,07b 4,A,B7l 0,-1,08v 4,D,R8 4,C,B8 4,D,R8& 0,1,082 4,A,B8? 0,-1,08K 4,D,R8W 4,C,B8cƆ 4,D,R8oІ 4,G,B8{چ 4,E,R8 4,D,B8 4,E,R8 4,G,B8 4,E,R8 4,D,B8 4,E,B8 4,G,A8* 4,CS,R84 4,B,A8> 4,CS,R9H 4,G,A9R 4,CS,R9\ 4,B,A9'f 4,CS,R94p 4,FS,A9@z 4,D,R9M 4,CS,A9Y 4,D,R9f 4,FS,A9r 4,D,R9 4,CS,A9 4,D,A9 4,G,B9ʆ 4,FS,B9Ԇ 4,G,B9ކ 4,D,B9 0,1,09 4,A,A9 0,-1,09  4,G,A9  0,1,0:  4,A,A: $ 0,-1,0: . 4,D,A:+ 8 0,1,-1:7 B 4,B,G:C L 4,A,G:O V 4,B,G:\ ` 0,-1,0:h j 4,D,G:t t 0,1,1: ~ 4,C,A: 4,B,A: 4,C,R: 0,-1,0: 4,D,A: 0,1,0: 4,D,FS: Ć 4,D,G: Ά 0,0,1: ؆ 4,D,A: 4,D,B; 4,R,B; 0,0,-1; 4,D,G;+ 4,E,G;7  4,G,G;C  4,D,G;O ( 4,G,G;[ 2 4,C,G;g < 4,G,G;s F 4,B,G; P 4,G,G; Z 4,A,G; d 4,A,FS; n 4,A,G; x 4,R,FS; 4,B,G; 0,0,1; 4,C,A; 4,D,A; 0,0,-1; 4,B,G< 4,C,G< Ȇ 4,B,D< ҆ 4,A,D<* ܆ 4,B,D<6 4,A,R":"3)WHEN 'OK' APPEARS TYPE EXEC "::"special note for disk users":"THE PROGRAM MAY BE TRANSFERED TO";*"DISK WITH SAVEM"(34)"FYR-DRAC"(34)",7217,15936,7217.WHEN YOU LOAD FROM DISK LET THE DRIVE MOTOR SHUT OFF, THEN EXEC THE PROGRAM AND THEN HIT RESET."+4000::"your ship":" *USE THE RIGHT AND LEFT ARROW KEYS TO MOVE YOUR SHIP.":" *THE DOWN ARROW ACTIVATES THE SHIELD.":" *THE SPACEBAR WILL FIRE THE SHIP'S LASER."+ȇ"THE RESET BUTTON ON THE BACK OF THE COMPUTER WILL RESTART THE GAME AT ANY TIME.":4000,Ҟ:"game play":" CLEAR EACH OF SEVERAL SCREENS BY SHOOTING DRAGONS AND DODGING THE FIREBALLS THAT FALL FROM THEM.":" EVERY FIFTH SCREEN IS A BONUS ROUND, THE OBJECT OF WHICH IS TONOT ALLOW ANY EGG TO FALL OFF-J܇"THE BOTTOM OF THE SCREEN WITHOUTBEING CAUGHT OR ANY DRAGON TO FLY OFF THE TOP WITHOUT BEING HIT BY LASER FIRE.": 4000-:" TO CATCH AN EGG MOVE YOUR SHIP UNDER IT AND WAIT UNTIL IT TOUCHES THE bottom OF THE SHIP AND A TONE IS HEARD. FIREBALLS MAY LEAVE THE SCREEN WITHOUT PENALTY.. 4000.z:"scoring":" *SMALL DRAGON = 50 POINTS":" *LARGE DRAGON = 100 POINTS":" *EGGS(CAUGHT) = 100-400 POINTS":/("SCREEN BONUSES WILL BE AWARDED WHEN A SCREEN IS CLEARED. THESE BEGIN AT 100 POINTS AND ADVANCE EVERY WAVE. ADDITIONAL POINTS MAY BE WON IN THE BONUS ROUND.": 4000/:"score rating table":"TOTAL SCORE/RATING":"0-300 DRAGON FODDER!!":"301-1000 APPRENTICE":"1001-5000 SQUIRE":"10001-25000 WARRIOR":"25001-50000 MASTER WARRIOR":"50001+ DRAGON SLAYER"04000::"hints":"1)START EACH WAVE WITH YOUR SHIELD UP AND LEAVE IT UP UNTIL MOST OF THE DRAGONS ON THE SCREEN ARE GONE. IF YOU ARE FAST YOU CAN CLEAR THE SCREEN BEFORE THE SHIELD RUNS OUT.1""2)FIRING ANOTHER SHOT STOPS THEONE IN PROGRESS--BE CAREFUL TO ALLOW YOUR SHOTS TO HIT THEIR TARGET BEFORE FIRING AGAIN.":"3)TRY NOT TO SHOOT EGGS BUT CATCH THEM INSTEAD FOR POINTS.2B, 4000::"5)DRAGONS MUST BE HIT IN THE TAIL TO KILL THEM. WITH THE LARGE DRAGON, MOVE AS YOU FIRE TO KEEP YOUR SHOT FROM BEING BLOCKED BY THE FIRE-BREATH."3 6"6)MANY OF THE EGGS ON THE BONUS LEVEL MAY BE SHOT (THOUGH SOME CAN NOT) WHICH PRODUCE FIREBALLSTHAT NEED NOT BE CAUGHT. HOWEVERIF TOUCHED THESE FIREBALLS CAN KILL AN UNSHIELDED SHIP.":40003@:"7)SURVIVAL IS THE MOST IMPORT- ANT GOAL IN FYR-DRACA AS THE BONUSES TO CLEAR A SCREEN BECOMEQUITE LARGE AS THE GAME PRO- GRESSES.":40003J 50003@480,"";:"PRESS TO CONTINUE";OK$34::::"NOW (C)LOADM FYR-DRACA FROM TAPEOR DISK.":"1ۆUq>rƷɷʷ̷ηзҷ÷Ŏ& 07/ 47/-./01BC28F<7 *3+>y'7 &'&'$&= *&'0'0ս+>  & &,'' +h ߷'('$+h- . +>''' + &C  . 7 ' 1  '' &   887/8O_&b&]/.nځ.-.0ځ- - 'O.#7˦'&7ځ&7ځ&' ,-&,N&,@턽,Nt&-&,ځ&b [ &5ځ. - . D.섃?=/턽-Ȇ "&.섃 턆7- 'N.&=o-&ڋځ& ف'ٗ01!''~?-pc(&F&&9 ~(7&܋ܦ܁-0~'0~zxZ&`=X0&-9&0&-9&`=0 &-b&=0 &-^&=Ŧ0 &-&`=ͦ0 &-9&`0&-& 0&-9"$&:0&-"$9"&0&-"9"$&;0&-"$9"$&940&-"$9"&0&-"9"$&@:0&-"$9"$^&90&-"$9"$&`:0&-"$9"$^&0&-"$9"$8&0&- 4$"\&0&-"$9"$&7섃&`;0&- P&2섃&`;H0&- 섃& < "_&`_ /  a cg w9  6!$'*-0369<(`abcdE(Ixbb b bee e ehh h hkk k knn n nqq q qtt t tww w wzz z z}} } }<<< 6!%)-159=!$'*-0369<#&),/258;>   & h 6 w  y  } ~ << } ~ <<<""0 -9&9 !""& 0 & !0 0!1!'95<#" &?&&߾"92  ,.99882222'7/ 9  + /15 + 5    0    꺺꺿ʀŀŀʀſϿſſʀ﯀ꀀꀀꀀ倀嵿ꀀꀀ倀倀倵倀ꀀꀀ债￿￿￿￿ﵺ￿ﵺ￿ꀀꀀڪڪڪڪڪڪڪڪŕʚ  - ΞΖ 07/0Ά07/07/  7Ύν-& ..29-1' COPYRIGHT (C) T&D SOFTWARE 198430:64=3000QFF$(128,255)eP1$(128,170)xP2$(128,85):6)"disk drive analyzer":" WHEN A COLOR COMPUTER DISK DRIVE SYSTEM MALFUNCTIONS, THE PROBLEM MAY BE ONE OF SEVERAL POSSIBILITIES."k " MOST PROBLEMS THAT COULD BE IN- CURRED ARE MINOR AND ONLY RE- QUIRE ADJUSTMENT." " ONE OF THE MORE SEVERE PROBLEMS IS DISK DRIVE HYSTERESIS. THIS PROBLEM IS NOT EASILY ADJUSTED OR FIXED." 61:K ::" THIS ANALYZER WILL TEST THE HY- STERESIS CHARACTERISTICS OF THE DRIVE THAT YOU SELECT." " WHEN YOU HAVE DISK PROBLEMS, RUN THIS TEST. IF THIS TEST SHOWS THAT THE DRIVE IS OKAY, THEN THE PROBLEM IS LIKELY TO BE AN ADJUSTMENT WHICH SHOULD BE MADE BY A QUALIFIED SERVICE TECHNICIAN."d" THE TEST MUST BE CONDUCTED ON A BLANK, FORMATTED DISKETTE."m61:@224," SELECT DRIVE # (0-3)"K$:K$""17D(K$):D0 D3 17@192," INSERT A BLANK, FORMATTED DISK INTO DRIVE 0."0:" PRESS [enter]"962SF0:I034:J1 18 D,I,J,I1$,I2$: I1$FF$ I2$FF$ F1: F0 29:@192," DISKETTE CONTAINS DATA. PLEASE INSERT A BLANK, FORMATTED DISK- ETTE."21  D,0,1,I1$,I2$ I034:J1184 D,I,J,P1$,P1$< :U!F10:I034:J118" D,I,J,I1$,I2$:I1$P1$ I2$P1$ F11#:$F20:I3401:J118% D,I,J,I1$,I2$:I1$P1$ I2$P1$ F21&:' D,34,1,I1$,I2$(I34 0 1:J118%) D,I,J,P2$,P2$-*:6+F30L,I034:J1 18{- D,I,J,I1$,I2$:I1$P2$ I2$P2$ F31./0F401I3401:J1182 D,I,J,I1$,I2$:I1$P2$ I2$P2$ F413:4I034:J1185 D,I,J,FF$,FF$6:718 F1 F2 F3 F4 59N97)"THE DRIVE IS OKAY."W:60;" AN ERROR OCCURRED DURING THE TEST."<=@484,"press [enter] to continue";>(13) 62?@1:3 X' COPYRIGHT (C) T&D SOFTWARE 1985360000L4::1,1:200,13999iHT(27)256(28)700 (&HC000)68 DN1 :DN1 359,57:34000DN1 M"MOD#1" :M"MOD#1"(278,0:14000<" WELCOME TO THE T+D GRAPHIC TOUR. THE PROGRAM USES GRAPHIC PICTURES. THESE PICTURES WILL BE LOADED IN MODULES FROM TAPE IN A CASSETTE SYSTEM. IF YOU ARE USING A DISK, THEN THE MOD- ULES WILL BE LOADED FROM DISK."F9000nDN1 M"MOD#2" :M"MOD#2"s4000x278,0:14000L" YOU ARE STANDING IN FRONT OF A BARN. DO YOU GO INSIDE? Y/N"HT:5000:K$"N" :" GOOD CHOICE":170278,1: 14000" YOU WERE ATTACKED BY LIVING LINOLIUM."HT:TD02000:" YOU WERE FORTUNATE, YOU SUR- VIVED."9000:҅DN1 M"MOD#3" :M"MOD#3"Eׁ4000Wܒ278,0:14000" YOU SEE A HORSE. DO YOU WANT TO TAKE HIM FOR A RIDE? Y/N":HT:5000K$"N" 270" AFTER GOING FOR A RIDE, THE HORSE THROWS YOU OFF...":HF1:290=" AFTER WANDERING AROUND FOR A WHILE, YOU FIND..."H"9000b,4000:278,1: 14000q6HF1 330@" YOU STUMBLE UPON A POOL OF WATER.":350J" YOUR HORSE DUMPED YOU INTO A POOL OF WATER."^" YOU FOUND 75 DOLLARS HERE.":9000(DN1 M"MOD#4" :M"MOD#4"34000E278,0:14000" AFTER WANDERING SOME MORE, YOU FIND AN AIRPLANE. DO YOU GO INSIDE? Y/N":HT5000:K$"Y" 500‡" AW... WHAT THE HECK? GO FIND OUT WHAT IS IN THAT AIRPLANE.":9000 4000278,1:14000b" WHEN YOU CLIMB ABOARD, THE PLANE STARTS TAKING OFF..."m9000DN1 M"MOD#5" :M"MOD#5"4000:278,0:14000" MID-WAY THROUGH THE FLIGHT, THE PILOT APPROACHES YOU AND SAYS:"p" I SEE YOU HAVE A SPARE 75 DOLLARS. WOULD YOU LIKE TO USE IT TO RE-NEW YOUR COCO-CASS- ETTE SUBSCRIPTION?"&" WHAT IS YOUR RESPONSE? Y/N":HT05000:K$"N" 700:(0,82)(255,191),,BF::@224,"";D" YOU MADE A VERY GOOD DECISION.":9000+N(0,82)(255,191),,BF::@224,"";=O278,0:14000/X" I HOPE YOU ENJOYED THIS GRA- PHIC SAMPLER. THIS WAS KEPT SHORT SO THAT IT WOULD FIT IN 16K. IN THE FUTURE, WE WILL PRODUCE GRAPHICS ADVENTURES WITH MANY, MANY MORE PICTURES. THESE ADVENTURES WILL BE 32K PROGRAMS.":b9000[l:359,126:" END OF TOUR":t4000:278,1:14000Ƈ" YOU SHOULD HAVE RE-NEWED WHEN YOU HAD THE CHANCE.":ˁ9000Ё590::@224,"";3,1:(50,10)(204,80),,BF:$K$:K$"Y" K$"N" 5000*J#(@489,"PRESS ";: HTf#2K$:K$(13) 9010l#<w`4:3I/@ooo ={@%@=001cZ&S=VH=K`ӺO70100 Z&L &o L&|9 @""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ >>"6I~<  ýÁ>> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " 66'80 ܺ<J& 3_&9U@0 @0@@<@< @????5UsU\5U\5sW5Up77|=77p7 p 777p 77U\sp5U77wsp7UU77} 777 ssp 7p 77ssp5UW7p 77sp77p 77sp777|=75Usp777 \5sW5Up???????:;;;;;;;;;;;>;;::;???F666'80 ܺ<J& 3_&9UU UUU_UUUU_UU%?UUUUWUUUUUU UUW>?U0?)Oƿpwqwqwqww?w?w?w??w?w?wUUp?wx?wp?wx?wp?wx?wp?wx?wp?w?x?w߿p?w?x?wP?wx?wp?wx?wp?wx?wp?wx?wp?wx?wp?wx?w߿P?w߿x?wp?wx?wp뮫UUx뮫70뮻ꫯ뮫믪뮻着磌?Yq  @&@@㏀,dNd8>p p~4ÀPÿÿ7|Àx|À080 C0000mol3cmxn1!`?666'80 ܺ<J& 3_&9UUE@UUUUUUUUUUUUUUPUUUUUUUUUUUUT@@UUUUUUUUUUUUTTPUUUUUUUUUUUP@TUUUUUUUUUUUPTUUUUUUUUUUU@@PUUUUUUUUUUU@@UUUUUUUUUU@BH UUUUUUUUU@%CUUUUUUUUU@J UUUUUUUUUUUUUUUUUUJ UUUUUUUUU UUUUUUUU }UUUUUUUU@~UUUUUUUUJ(UUUUUUUUJUUUUUUUU(UUUUUUUU JUUUUUUUUzUUUUUUUU%uPRJ!UUUUUUUUz)UUUUUUUUuBJ(UUUUUUUU@z(UUUUUUUU@u@ UUUUUUU@zUUUUUUU@(UUUUUUUU@ UUUUUUUP *UUUUUUUPEUUUUUUUTHUUUUUUUPJEUUUUUUUPHUUUUUUUPHQEUUUUUU@xUUUUUU@@@@EUUUUUU@P 8UUUUUUP pPUUUUUUUEPxPUUUUUUTTPUUUUUUT UUUUUUT,׀^UUUUUUPT //UUUUUUPAU@UUUUUU@U@@DUUUUUUPUUPU@EUUUUUU@UUPU@UUUUUU@UUPU@UUUUUUUTUPU@UUUUUUQDEDTTTUTTU@EE@TTUTTQ@EE@UTTUTTQD@ EE@~TTUTTQP@EEPUUTTUUdEEP B뫯 ￫ꫯ￫ꫫꫪ뿫ꫫꫯꫯ꫿ꫯꪫꫫꫯꫯꪫꫯꪫꫫꫫꪪꫫꫫ?ꪪêꫯꫯ*ꪫꫯꫯ|믯ꪪꫫꫫꪯ?ꫯꫯ꫿ꫯꪪ믿뫯뫯몪ꫯꫯ뫯ꫮ?믮ꫯ???<666'80 ܺ<J& 3_&9QEQEUUEAUT@QUUTPAUUQEQmQEQEQEPEUUUTAQUUTPAEQUTQTQEUEQEQEAUU>QQUUTPAEQEPDQEQEQEQDPAUQAQEUUPAEQEQDQEQEQUUQEAUQEUTPUTEQEQEQEQEUDAUU9QUTPAUUUU|QQEQEAQEQTP9QEQAQE?2AQEUTQQEQEQ@AQEEQTAQEQAPQEEQP?QQAPQEEQTQEQAQEQAEQTPimQEQAQEQEUQEEQTPAQEAQE@QAQTP_EQEPPPQAUTEQEQ@PWPQATP@AEQEEQP%PQEPAE EQEQEPPPQEAEQEQQTATPQEDEQEQEEQEPQAQEQDEQETAATQQEUQEQEQEAUQQATQEQEQE` 8 80 0`0  0` p   < 8@` @ @` @  @  @  @ 8 @  @ P@ ? < o`` `y@"i$@i6A[0$Miaie[L  v xpP 666'80 ܺ<J& 3_&9*%UUUUUUUU`%UUUUUUUU`%UUj`%UUo`%UUo`%UUo`%UU o`%UU j`%UUo`%UUo`%UUo`%UUj`%UU o`%UU o`%UUj`%UU UU`%UU UU`%U UU`*UU UU`UU j` UUU UU`UUU UU`UUUU j` UUUUUU`%UUUUUU`UUUUj`VUUUU`UYUUUUUUUUU`UjVUUj`UZUUUU`UUUYeUUU`UUUYjUUUjUUe UU*%UUe%UUYkꪪ UUYo +￾*/(/ /* (*/Z(Uj UU UUZUUYZUUYUjUUYUUUUYUUb?Yq  @&@@㏀,dNd8>p p~4ÀPÿÿ7|Àx|À080 C0000mol3cmxn1!`?6