home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / HASSLE-CASTLE (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  20KB  |  236 lines

  1. 0 REM"            BY FRED S. RANDALL
  2. 1 [143]"         BOX 184D, BLACKSTONE ST.                   UXBRIDGE MA.01569
  3. 3 REM"            TEL. 617-278-3117
  4. 4 [143]"
  5. 5 DIMDN$(24):DN$(0)="":FORI=1TO24:DN$(I)=DN$(I-1)+"":NEXT:DIMA$(112):DIMA(18):DIMF$(20):PRINTCHR$(142):S1=54272:CA=25:GOSUB4000:GOSUB9650
  6. 10 POKE53280,1:POKE53281,1:PRINT"[147][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][145]":FORI=1TO20:GETA$:PRINT"[145][166]                                      [166]":NEXT:PRINT"[145][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":PRINT"[169]         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]         [223]"
  7. 55 PRINTTAB(7)"****** COMMODORE 64 ******":PRINTTAB(18)"[169] [223]":PRINTTAB(18)"[145] [146] [164][164][146][169][145]":PRINTTAB(18)" [146] [163][163][223]":PRINTTAB(18)"[145][223] [146][169]":PRINT" DO YOU WANT TO READ THE SCENARIO?"
  8. 85 PRINTTAB(16)"[145](Y OR N)":FORT=1TO300:NEXT:GETA$:PRINTTAB(16)"[145](Y OR N)":FORT=1TO300:NEXT:IFA$=""THEN85
  9. 95 IFA$="Y"THENL=20:CA=2:GOSUB4500
  10. 98 PRINT"[147]":POKE53280,0:POKE53281,0:S1=54272:GOSUB5530:RESTORE:L=20:E=100:S=12:TI$="000000":S1=54272:PW=0:SC=0:K=0:TR=0:AU=0:CA=0:FORI=0TO111:READA$(I):NEXT:FORI=0TO19:READF$(I):NEXT:R=RND(-.9):GOTO154
  11. 125 FORX1=1TO24:POKES1+X1,0:NEXT:RETURN
  12. 150 IFZ=1THEN170
  13. 153 GOSUB300:IFE>250ORR<2THEN800
  14. 154 Q=6+(1ANDL<2):IFL>20ANDE<50THENGOSUB9300
  15. 155 GOSUB300:IFL<0ORAU>350ANDS>3ANDR<10THENGOSUB400
  16. 156 FORB=1TO3:A(B)=INT(RND(1)*Q)+1:IFA(B)<3THENGOSUB900
  17. 157 NEXT:IFL>25THEN650
  18. 158 IFA(1)=3ANDA(2)=3ANDA(3)=3THEN156
  19. 159 IFA(1)=7ORA(2)=7ORA(3)=7THENPW=1:GOSUB1000:GOSUB3200:GOTO170
  20. 160 HP=0:GOSUB1000:ONA(1)GOSUB2200,2200,169,2000,2600,2800:ONA(2)GOSUB3000,3000,169,3100,2500,2400:ONA(3)GOSUB2300,2300,169,2100,2700,2900
  21. 167 GETA$:IFA$<>""THEN167
  22. 168 GOTO170
  23. 169 RETURN
  24. 170 Z=0:GOSUB200:PRINTTAB(11)"[158]WHICH DIRECTION?":PRINT"[155] ([158]L[152]-LEFT, [158]F[152]-FORWARD, [158]R[152]-RIGHT, [158]S[152]-STATUS)";
  25. 172 B=0:GETA$:B$=A$:IFA$=""THEN172
  26. 173 B=B+(1ANDB$="L")+(2ANDB$="F")+(3ANDB$="R"):IFB$="S"THEN350
  27. 176 IFB<1THENGOSUB530:GOSUB200:GOTO170
  28. 177 IFPW=1THEN450
  29. 178 ONA(B)GOSUB550,550,250,9900,9700,9800:GOSUB200:GOSUB300:IFR>85THENGOSUB500
  30. 180 IFTR>9ANDR<TRTHENGOSUB700
  31. 181 GOTO150
  32. 200 PRINTDN$(16):FORX=1TO7:PRINT"                                       ":NEXT:PRINTDN$(16):RETURN
  33. 250 GOSUB200:PRINT"[129]    YOU WALKED INTO A WALL,STUPID![155]":FORT=1TO1000:Z=1:NEXT:IFR>50THENGOSUB200:RETURN
  34. 260 PRINT"[129] IT'S UNSTABLE,IT CRUMBLES! ROCKS FALL!":PRINT" YOU ARE KNOCKED TO THE GROUND, COSTING":PRINT" YOU ";R,"UNITS OF ENERGY![155]":E=E-R:FORT=1TO3000:NEXT:GOSUB200:RETURN
  35. 300 R=INT(RND(1)*101):RETURN
  36. 301 R=INT((RND(1)*32)+1):RETURN
  37. 302 M=INT(RND(1)*101):RETURN
  38. 303 Q=INT(RND(1)*10)+102:RETURN
  39. 350 GOSUB200:PRINT"[158][145]":IFE>=100THENPRINT"[145]"
  40. 352 IFE>200ORE<50ORAU>350ANDS>3THENPRINT"[129][145]"
  41. 354 PRINTTAB(6)"REMAINING ENERGY -"E:PRINTTAB(6)"REMAINING SPELLS -"S:PRINTTAB(11)"GOLD PIECES -"AU:PRINTTAB(7)"CREATURES SLAIN -"K:PRINTTAB(7)"TREASURE CREDIT -"TR:TX$=TI$:TP$=LEFT$(TX$,2)+":"+MID$(TX$,3,2)+":"+RIGHT$(TX$,2):PRINT"[158] TIME - "TP$;:SC=(AU+(1ANDAU=0))*(K+(1ANDK=0))*(TR+(1ANDTR=0))
  42. 370 PRINTSPC(5)"SCORE -"SC-(1ANDSC=1):FORT=1TO1000:NEXT
  43. 371 IFPEEK(197)=13THEN371
  44. 372 GOSUB200:GOTO170
  45. 400 PRINT"[147][158]":POKE53281,9:POKE53280,9:PRINTDN$(8)TAB(13)"GOLD GRABBERS!":PRINT" HUNDREDS OF LITTLE GOLD GRABBERS SWARM":PRINT"[158] AROUND YOU, SCOOPING UP ALL YOUR GOLD!":PRINT" THEN THEY DRAG YOU OFF, DEPOSITING YOU":AU=0:L=L+1:PRINT" ON LEVEL[153]";L:PRINT"[144]":GOSUB10350:IFL<3THENE=0:S=0:TR=0
  46. 414 FORT=1TO4000:NEXT:POKE53280,11:POKE53281,0:RETURN
  47. 450 GOSUB9650:IFTR<10THENTR=10
  48. 452 POKE53280,0:TX$=TI$:TP$=LEFT$(TX$,2)+":"+MID$(TX$,3,2)+":"+RIGHT$(TX$,2):GOSUB4000:PRINTTAB(10)"CONGRATULATIONS!!":SC=AU*TR*K:PRINT" YOUR SCORE IS"SC"(HIT SHIFT)":GOSUB5600
  49. 458 POKE53280,1:POKE53281,1:PRINT"[147][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][145]":FORI=1TO21:PRINT"[145][166]                                      [166]":NEXT:PRINT"[145][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":PRINT"[169]         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]         [223]"
  50. 466 PRINT"[145] ******** [146] HASSLE  CASTLE  ******** ":PRINT"[223]                                  [146][169]":PRINTTAB(14)"[151]SCORE TOTALS":PRINTTAB(9)"GOLD PIECES -[151]";AU:PRINTTAB(5)"MONSTERS KILLED -[151]"K:PRINTTAB(5)"TREASURE CREDIT -[151]"TR:PRINTTAB(4)"REMAINING ENERGY -[151]"E:PRINTTAB(4)"REMAINING SPELLS -[151]"S
  51. 480 PRINTTAB(5)"TOTAL GAME TIME -[151] "TP$:PRINTTAB(9)"TOTAL SCORE -[151]"SC:GETA$:IFA$<>""THENA$=""
  52. 484 PRINTTAB(8)"[151] ANOTHER GAME?(Y OR N) [145]":FORT=1TO300:NEXT:GETA$:PRINTTAB(22)"[155](Y OR N) [145]":FORT=1TO300:NEXT:IFA$=""THEN484
  53. 488 IFA$="Y"THENGOTO10
  54. 490 IFA$<>"N"THEN484
  55. 492 CA=100:GOSUB4000:PRINT"[144]":END
  56. 500 GOSUB302:GOSUB200:GOSUB600:PRINT"[155] FACES YOU!   "
  57. 507 PRINT"[158] WELL? [155]([158]C[155]-COMBAT,[158]S[155]-SPELLCAST,[158]R[155]-RETREAT)":GOSUB1300:N=0:B$=A$:IFB$<>"S"ANDB$<>"R"ANDB$<>"C"THENGOSUB530:GOSUB200:GOTO507
  58. 510 IFB$="C"THENN=1:GOSUB9000:GOTO516
  59. 512 IFB$="S"THENN=1:GOSUB9100:GOTO516
  60. 514 IFB$="R"THENGOSUB300:L=L+1:PRINTTAB(15)"[129]WAIT![158]":IFR<40THEN525
  61. 515 IFB$="R"THENN=2:Z=0:GOTO520
  62. 516 IFN<1THEN507
  63. 520 FORT=1TO2000:NEXT:RETURN
  64. 525 PRINT" OH NO..IT'S CHASING YOU..COMBAT MODE![145][145]":FORT=1TO2000:NEXT:GOTO9000
  65. 530 GOSUB200:PRINT"[156] WHAT DO YOU MEAN,[155]"CHR$(34)B$CHR$(34)"[156]? THAT'S FOOLISH!":PRINT"[145][145]":FORT=1TO2000:NEXT:N=0:RETURN
  66. 550 GOSUB200:PRINT"[158]      DOOR[155] ([158]O[155]-OPEN OR [158]L[155]-LISTEN)?":HP=0
  67. 552 GOSUB1300:B$=A$:IFB$<>"L"ANDB$<>"O"THENGOSUB530
  68. 554 IFB$="L"THENN=1:GOTO560
  69. 556 IFB$="O"THENN=1:GOTO9400
  70. 557 IFN<1THEN550
  71. 558 GOTO552
  72. 560 GOSUB200:PRINTTAB(6)"[155]YOU HEAR ";:IFA(B+3)>0THENPRINTA$(A(B+3));"[155] NOISES!"
  73. 564 IFA(B+3)=0THENPRINT"[155]..........NOTHING."
  74. 566 PRINT"[158] NOW WHAT? [155]([158]G[155]-GO IN,[158]L[155]-LEAVE,OR [158]H[155]-HELP)":GOSUB1300:B$=A$:IFB$="G"THEN9400
  75. 572 IFB$="L"THEN578
  76. 574 IFB$="H"THEN950
  77. 576 GOSUB530:GOTO566
  78. 578 PRINT"[145]       -------[158] COWARD! -------         [145]":FORT=1TO500:NEXT:Z=1:IFINT(RND(0)*100)<10THEN800
  79. 582 GOSUB200:PRINT"[145][145][145][145]":RETURN
  80. 600 GOSUB10000:PRINT"[155] A";:AD=INT(RND(.)*6)+1:ONADGOTO606,608,610,612,614,616
  81. 606 PRINT"N IMMENSE ";:GOTO618
  82. 608 PRINT" HIDEOUS ";:GOTO618
  83. 610 PRINT" HUMUNGOUS ";:GOTO618
  84. 612 PRINT" GIGANTIC ";:GOTO618
  85. 614 PRINT"N UGLY ";:GOTO618
  86. 616 PRINT" MONSTROUS ";:GOTO618
  87. 618 PRINTA$(M);:RETURN
  88. 650 GOSUB708:PRINT"[147][155]":PRINTCHR$(14):PRINT""TAB(7)"IT SEEMS TOO BAD.......":PRINT"[212]HE WALLS ARE STARTING TO CRUMBLE AND":PRINT"PIECES OF THE CEILING ARE FALLING ALL":PRINT"AROUND YOU![217]OU MUST HAVE GONE INTO AN":PRINT"UNSAFE AREA OF THE DUNGEONS!":FORI=1TO3000:NEXT
  89. 662 POKE53281,INT(RND(.)*15)+1:GOSUB708:POKE53281,0:FORT=1TO2000:NEXT:PRINT"[201]N THE FUTURE, TRY TO BE A LITTLE":PRINT"MORE CAREFUL ABOUT GOING SO DEEP IN..":PRINT"[158][212][200][197][160][196][213][206][199][197][207][206][211][160][207][198][160][200][193][211][211][204][197][160][195][193][211][212][204][197]!":POKE53281,INT(RND(.)*15)+1:GOSUB708:POKE53281,0:FORI=1TO10000:NEXT:PRINT"[147]";CHR$(142):SC=AU*K:GOTO9020
  90. 700 GOSUB200:PRINT"[129]   TREMOR!!..A WALL IS CRUMBLING!":TR=TR-INT(RND(.)*4)+1:PRINT"   SOME OF YOUR TREASURES ARE LOST!!"
  91. 708 GOSUB10400:FORP=1TO3:FORI=1TO12:POKE53270,I:FORT=1TO25:NEXT:POKE53270,8:FORT=1TO25:NEXT:NEXT:NEXT:GOSUB10406:RETURN:DATA"MAD JOGGER","PROGRAMMER","WHOMP RAT","KILLOSAUR","MEGASAURUS":DATA"GIGASAURUS","FIRE LIZARD","MAD HATTER","NO.1 ROBOT","NO.2 ROBOT"
  92. 752 DATA"MAD HACKER","MEGABYTER","CRUNCHER","IGUANADON","RABID WOLF":DATA"[129]RED KNIGHT","[154]MUGWUMPUS","[154]WAX MUMMY","[154]MAD WIZARD","[150]BLOOD WOLF":DATA"[154]FIRE GHOST","[156]PURPLE POX","[154]BYSTANDER","[129]BLOOD HULK","[153]GREEN HULK"
  93. 755 DATA"[153]SLIME RAT","[129]BLOOD NEWT","[156]FIRE WITCH","[154]BLUE WITCH","[150]RED WITCH":DATA"[129]RED WIZARD","[153]HORNED BAT","[153]KILLER BAT","[154]SLIME HULK","[154]STEGOSAUR":DATA"[153]MOONSHINER","[154]MOON DEVIL","[153]FLESH EATER","FIRE WORM","[129]MANTICORE"
  94. 758 DATA"[156]MUD SUCKER","[154]BLUE SMURF","[153]DILL PICKLE","[159]MUD SPITTER","[159]PIT SPIDER":DATA"[154]RED SPIDER","[149]BLACK WIDOW","[156]MAN EATER","[154]FANG WOLF","[154]CLAW ROBOT":DATA"[129]RED CRUSHER","[156]DROGONIZER","[154]ICE LIZARD","[155]IRON TIGER","[155]IRON ROBOT"
  95. 761 DATA"[155]IRON GHOST","[155]IRON MUMMY","[155]IRON WITCH","[156]GAG WUMPUS","[153]SAND WITCH":DATA"SAND HULK","SAND WOLF","[129]PIT CRUSHER","[129]FIRE EATER","KILLER RAT":DATA"[129]FIRE CAT","BAT LIZARD","[129]MEGADONKEY","MUD BEAST","[154]ICE BEAST"
  96. 764 DATA"[129]FIRE BEAST","IRON BEAST","[154]IRON CLAW","[129]WOLF HULK","[154]MANDRILL":DATA"[129]FIRE GHOUL","[129]MUD GHOUL","[129]IRON GHOUL","[129]SWAMP RAT","[129]SWAMP BAT":DATA"[129]SWAMP HULK","[129]SWAMP DEVIL","[129]FIRE DEVIL","[129]RED MAULER","[129]MAULER CAT"
  97. 767 DATA"STEEL CLAW","[156]PULVERIZER","[150]MANGELIZER","[129]PIT CRAWLER","[129]RED CRAWLER":DATA"[129]FIRE TIGER","[129]PIT VIPER","[156]SABERTOOTH","[153]ANACONDA","[156]IDIOT","RAT FINK":DATA"[129]DEVIL WOLF","[154]PTEROSAUR","[129]STONE HULK","[153]EXECUTIONER","[158]TAX AGENT"
  98. 771 DATA"GOLD PIECES","A MAGIC SCEPTRE","[154]A SUIT OF ARMOR","[129]A GILDED CROWN":DATA"[150]AN ANCIENT MANUSCRIPT","[153]A PEARL NECKLACE","[154]A SECRET POTION":DATA"[156]A MYSTERIOUS BOX","[129]A BOOK OF WISDOM","[158]A GOLDEN PENDANT"
  99. 774 DATA"A TIARA OF GOLD",POUNDS,SLUGS,SLAMS,SMASHES,BEATS,"ON THE HEAD":DATA"AGAINST THE WALL","ON THE BACK","TO THE FLOOR","INTO A DOOR"," CLAW! ":DATA" LANCE! "," CLUB! "," BRICK! "," MACE! ","STUNNED!","HURT!","REELING!":DATA"STAGGERED!","NOT AMUSED!"
  100. 800 GOSUB300:IFL>23ORR<L*2THENGOSUB9300:GOTO154
  101. 808 IFL>25THENGOSUB650
  102. 810 GOSUB10300:GOSUB200:Z=0:PRINT"  A TRAP DOOR OPENS! YOU PLUNGE DOWN A":GOSUB300:IFR<20THENR=20
  103. 812 PRINT"[145]";INT(R/2);"FOOT SHAFT,TO LEVEL";:L=L+INT(R/12):PRINTL:GOSUB300:IFE>250THENPRINT" AND INTO A POOL OF DRAGON'S BLOOD. YOU"
  104. 816 IFE>250THENPRINT" USE MOST OF YOUR ENERGY GETTING OUT!":E=INT(E*.3):GOTO822
  105. 818 IFE>150THENPRINT"YOU LAND ON YOUR HEAD,CAUSING AN INJURY"
  106. 820 IFE>150THENPRINT" THAT TAKES";INT(E/2);"UNITS OF ENERGY TO HEAL":E=INT(E/2)
  107. 822 FORT=1TO4000:NEXT:GOTO154
  108. 850 GOSUB200:GOSUB9500:GOSUB854:PRINT" IT "F$(I)" YOU ";:GOSUB854:PRINTF$(I+5)" WITH A":GOSUB854:PRINTF$(I+10)" YOU ARE ";:GOSUB854:PRINTF$(I+15):RETURN
  109. 854 I=INT(RND(.)*5):RETURN
  110. 900 FORC=3TO6STEP3:GOSUB300:IFR>60THENA(B+C)=R
  111. 902 GOSUB300:IFA(B+C)>0THENA(B+C)=R
  112. 903 NEXT:FORC=9TO15STEP3:GOSUB300:IFR>75THENA(B+C)=R
  113. 905 GOSUB301:IFA(B+C)>12THENA(B+C)=R
  114. 906 IFA(B+C)>0ANDR<13THENA(B+C)=INT(RND(1)*2)
  115. 907 NEXT:RETURN
  116. 950 GOSUB200:IFHP=1THENPRINT"[153]YOU'VE HAD ALL THE HELP YOU'RE GETTING!":GOTO566
  117. 952 IFA(B+3)>0THENPRINT"  THE [155]";A$(A(B+3))" HAS[155]"A(B+3)"ENERGY UNIT";
  118. 953 IFA(B+3)<>0ANDA(B+3)<>1THENPRINT"S"
  119. 954 IFA(B+3)=0THENPRINT"[153]   IT  SEEMS SAFE...FOR THE MOMENT."
  120. 955 IFA(B+3)=1THENPRINT" "
  121. 960 HP=1:GOTO566
  122. 1000 PRINT"[147][152]":POKE53280,11:POKE53281,0:FORV=1TO16:PRINT"[167]":NEXT:PRINT"":FORD=1TO4:PRINTTAB(D)"[205]":NEXT:PRINTDN$(15):FORD=1TO4:PRINTTAB(D)"[206][145][145]":NEXT:PRINTDN$(4):FORV=1TO8:PRINTTAB(4)"[167]":NEXT:PRINTDN$(4)TAB(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINTDN$(13)TAB(5)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINTDN$(4):FORV=1TO8:PRINTTAB(31)"[165]":NEXT:FORD=1TO4:PRINTTAB(30+D)"[205]":NEXT
  123. 1080 PRINTDN$(3):FORD=1TO4:PRINTTAB(30+D)"[206][145][145]":NEXT:PRINT"":FORV=1TO16:PRINTTAB(35)"[165]":NEXT:PRINTDN$(5)TAB(5)"[151][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][146]":FORI=1TO7:PRINTTAB(5)"                          [146]":NEXT:PRINT""TAB(11)"[158]YOU ARE NOW AT":PRINT""TAB(13)"LEVEL "L:PRINT""TAB(37)"[158]L[157]L[157]A[157]D[157]N[157]A[157]R[157]C[157]A[157]S[157]T[157]L[157]E"
  124. 1140 PRINTDN$(7)TAB(8)"[129]*[157][151][221][146]"TAB(27)"[145][129]*[157][151][221][146]":RETURN
  125. 1300 :
  126. 1305 GETA$:IFA$<>""THEN1305
  127. 1310 GETA$:IFA$=""THENGOSUB10100:IFA$=""THEN1310
  128. 1320 POKES1+24,0:RETURN
  129. 2000 PRINTDN$(4):FORV=1TO11:PRINTTAB(1)"[152][167]":NEXT:PRINTTAB(2)"[145] [145] ":PRINTDN$(5):FORV=1TO8:PRINTTAB(3)"[167]":NEXT:PRINTTAB(2)"[145][175][186][157][154]PASSAGE[152]":PRINTDN$(5)TAB(2)"[205][205][157][157][183][208]":RETURN
  130. 2100 PRINTDN$(5):FORV=1TO8:PRINTTAB(32)"[152][165]":NEXT:PRINTTAB(32)"[145][204][175][157][157] ":PRINTDN$(4):FORV=1TO11:PRINTTAB(34)"[152][165]":NEXT:PRINTTAB(33)"[145] ":PRINTDN$(6)TAB(32)"[207][183][157][157][145][206][145][206]"DN$(15)TAB(26)"[154]PASSAGE":RETURN
  131. 2200 PRINTDN$(4):FORV=1TO11:PRINTTAB(1)"[152][167]":NEXT:PRINTDN$(5):FORV=1TO8:PRINTTAB(3)"[167]":NEXT:PRINTDN$(5)TAB(2)"[205][205]":PRINTDN$(7)"[157][158][161][152][146][157][209][157][154]DOOR":RETURN
  132. 2300 PRINTDN$(5):FORV=1TO8:PRINTTAB(32)"[152][165]":NEXT:PRINTDN$(4):FORV=1TO11:PRINTTAB(34)"[165]":NEXT:PRINTDN$(6)TAB(32)"[206][145][206]":PRINTDN$(8)TAB(33)"[158][161][152][157][209][157][157][157][157][157][154]DOOR":RETURN
  133. 2400 PRINTDN$(6):FORV=1TO6:PRINTTAB(13)"[151][170][167][144]    [151][165][180][146][152]":NEXT:PRINT"":FORI=1TO3:PRINT"[145][145]"TAB(14)"[196][196][196][196][196][162][146]":NEXT:PRINT"[145][145]"TAB(17)"[185][184] [146]":PRINT"[145][145][145]"TAB(16)"[154]UP":RETURN
  134. 2500 PRINTDN$(6):FORV=1TO6:PRINTSPC(14)"[152][167][144]    [146][152][167]":NEXT:PRINT"":PRINT"[145][145][145]"TAB(14)"[169][183][146][185][185][185][152][186]":PRINT"[145][145][145][145][145][145][145]"TAB(14)"[151]      [146]":PRINT""TAB(15)"[154]DOWN":RETURN
  135. 2600 PRINTDN$(4):FORV=1TO11:PRINTTAB(1)"[152][167]":NEXT:PRINTTAB(2)"[145] [145] ":PRINTDN$(5):FORV=1TO8:PRINTTAB(3)"[167]":NEXT:PRINTTAB(2)"[145][175][186]":PRINTDN$(5)TAB(2)"[205][205]":PRINTDN$(7)"[206][208][157][157] [157][206][154]DOWN":RETURN
  136. 2700 PRINTDN$(5):FORV=1TO8:PRINTTAB(32)"[152][165]":NEXT:PRINTTAB(32)"[145][204][175][157][157] ":PRINTDN$(4):FORV=1TO11:PRINTTAB(34)"[165]":NEXT:PRINTTAB(33)"[145] [145][157][205][145][157] ":PRINTDN$(6)TAB(32)"[206][145][206][157][157][207][205][157][157][157][157][157][154]DOWN ":RETURN
  137. 2800 PRINTDN$(4):FORV=1TO11:PRINTTAB(1)"[152][167]":NEXT:PRINTTAB(2)"[145] [145] ":PRINTDN$(5):FORV=1TO8:PRINTTAB(3)"[167]":NEXT:PRINTTAB(2)"[145][208][186][157][157][206][154]UP[152]":PRINTDN$(5)TAB(2)"[205][205][157][157][183][208]":RETURN
  138. 2900 PRINTDN$(5):FORV=1TO8:PRINTTAB(32)"[152][165]":NEXT:PRINTTAB(32)"[145][204][207][157][157] [205][157][157][157][154]UP":PRINTDN$(4):FORV=1TO11:PRINTTAB(34)"[152][165]":NEXT:PRINTTAB(33)"[145] ":PRINTDN$(6)TAB(32)"[207][183][157][157][145][206][145][206]":RETURN
  139. 3000 PRINTDN$(6)TAB(15)"[151]     [146][152]":FORV=1TO6:PRINTTAB(15)"[180]    [170]":NEXT:PRINT"[145][145][145][145][145]"TAB(17)"[158][219][219][146][152][209][157][157][157][157][154]DOOR":RETURN
  140. 3100 PRINTDN$(6)TAB(15)"[151]      ":PRINTDN$(7)TAB(14)"[151] [146][152][205][164][164][164][164][206][151] [146][152]":FORV=1TO5:PRINTTAB(15)"[170][151][166][166][166][166][152][146][165]":NEXT:PRINTTAB(15)"[145][206]    [205][157][157][157][157][157][157][157][154]PASSAGE":PRINTTAB(15)"[151][145][145][145][145][163][163][163][163][152]":PRINTDN$(13)TAB(15);"      ":RETURN
  141. 3200 PRINTDN$(4)TAB(13)"          ":PRINTDN$(5)TAB(13)"[205][164][164][164][164][164][164][164][164][206]":FORV=1TO6:PRINTTAB(13)"[167][149]   [217][212]   [146][165]":NEXT:PRINTDN$(6):FORI=1TO3:PRINTTAB(15)"[158]    [146]":NEXT:PRINTDN$(12)TAB(13)"[206][163][163][163][163][163][163][163][163][205]":PRINTTAB(13)"[129]   EXIT!  ":RETURN
  142. 4000 POKE53280,0:POKE53281,0:PRINT"[147]":PRINTDN$(9)TAB(11)"[165]":PRINTTAB(13)"[151][169][223][157][157][157][151][169]  [223][157][157][157][157][152][146][178][158][178][129][178][146][155][178][157][157][157][157][151][146][223] [152] [146][169]":PRINTTAB(13)"[152] [221][157][157][152]  "SPC(16)"[158][146]  [157][157][146][212]":PRINTTAB(13)"[145][152][221] "SPC(12)"[151][221][152][221][221][221][221][145]""":PRINTTAB(10)"[151][169][223][152] [221]"SPC(8)"[154][146][165]":PRINTTAB(10)"[152][180][155][170][146][151][164][152]  [146][151][164][164][164][164][164][164][164][169][223][146][151][164][164][164][151] [152]    "
  143. 4060 PRINTTAB(9)"[151][167][152][221][155][146][169][152][221] [151][186][186][186][186][186][186][169]  [223][151][186][186] [152] [221]  ":PRINTTAB(9)"[151][167][152][151][169][146][169][152]  [144]      [165][161][161]  [144][167][151][221][152]    ":PRINTTAB(7)"[151][169][164] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][152][207][151][165][152]   [221]":PRINTTAB(8)"[155][221] [165]               [152] [151][165][152]  [221] ":PRINTTAB(5)"[151][169]    [165] [166][166] [146][169]   [223]  [161]   [152] [151][165][152][221]   [151] [223]"
  144. 4110 PRINTTAB(6)"[155][163][163][163][163][165] [166][166] [158][146]*[149][166][166][166][158][146]*     [161][152] [151][165][152]    [165][182]":PRINTTAB(4)"[151][169][155] [221][221] [165]    [221][149][166][166][166][221]      [152] [151][165][152]  [221] [165][182][151][223]":PRINT"[151][169] [144] [155][164][164][164][164][165]     [149][166][166][166]       [152] [151][165][152]    [180][182][151] [223]":PRINT"[145][151][169]  [223][146][223][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][223][151][146][223][152][185][185][185][146][169][151][169]   [223]"
  145. 4150 PRINT"[145][151][169]                                   [223]":PRINT"             [158]HASSLE  CASTLE[144]":GOSUB6000:IFCA=25THENPRINT"[145][158]ADJUST MONITOR VOLUME, THEN HIT ANY KEY"
  146. 4230 IFCA=25THENGETA$:GOSUB6000:IFA$=""THEN4230
  147. 4235 IFCA=25THENRETURN
  148. 4240 S1=54272:GOSUB10400:GOSUB8000:FORI=15TO0STEP-1:POKES1+24,I:FORT=1TO100:NEXT:NEXT:PRINTDN$(17)TAB(16)"[151][168][168][168]":GOSUB8300:PRINTTAB(16)"[145][151][158][165][144][167][158][167]":GOSUB8300:PRINTTAB(16)"[151][158][165][144] [158][167]":GOSUB8300:PRINTTAB(16)"[144][168][168][168]":GOSUB8300:PRINTTAB(15)" [129][166][166][166]":GOSUB8200:IFL<2THENRETURN
  149. 4305 GETA$:IFA$<>""THEN4305
  150. 4310 PRINT"[158]      HIT SPACE BAR WHEN READY."
  151. 4320 GETA$:IFA$=""THENGOSUB6000:GOTO4320
  152. 4360 RETURN
  153. 4500 POKE53280,0:POKE53281,15:PRINT"[147][144] [146][169][165]  [149][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][144]":PRINT"[169] [165]  [149] THE LEGEND OF LLADNAR CASTLE [146][144]      [145]":PRINT"[145][183][184] [149]Y[144][146]OU ARE AN EXPLORER AND ADVENTURER. ":PRINT"  YOUR TRAVELS HAVE LED TO A SECLUDED  "
  154. 4550 PRINT"  VALLEY HIDDEN IN THE REMOTE REACHES  ":PRINT"  OF CENTRAL WALES.             ":PRINT"    NEARBY, STANDS THE RUIN OF CASTLE  ":PRINT"  LLADNAR, THE SECRET HIDING PLACE OF  ":PRINT"  THE TREASURES OF DERF LLADNAR, EARL[163][208][223]"
  155. 4600 PRINT"  [145]OF LLANSFAIR, AND DOER OF EVIL. THE  [145][184]":PRINT"  TREASURE, (ACCORDING TO LEGEND), IS":PRINT"  BURIED UNDER THE CASTLE IN DUNGEONS":PRINT"  MANY LEVELS DEEP.";:PRINT" (HIT SHIFT)":GOSUB5600:PRINT"    S[144][146]TORIES TOLD IN TAVERNS, WHERE THE"
  156. 4650 PRINT"  CONSUMPTION OF STRONG DRINK HAD MADE ":PRINT"  THE MIND HAZY, AND THE TONGUE LOOSE, ":PRINT"  WERE CONSISTENT IN ONLY TWO AREAS. [163][208][223]"SPC(39)"[163]":PRINT"[145]    FIRST, NO ONE WHO HAD SEEN "CHR$(34)"CASTLE":PRINT"  LLADNAR"CHR$(34)" HAD LIVED TO TELL ABOUT IT,"
  157. 4700 PRINT"  AND, SECOND, THE STORIES ALWAYS TOLD ":PRINT"[169][165]OF "CHR$(34)"DAEMONS"CHR$(34)", WATCHING OVER THE GOLD. [163]":PRINT"   THE TALES HAD INTRIGUED YOU, SO YOU":PRINT"  VERIFIED THEM USING ANCIENT RECORDS.":PRINT"  YOU THEN GATHERED SUPPLIES, AND SET "
  158. 4740 PRINT"  OFF ON FOOT.  (HIT SHIFT)":GOSUB5600:PRINT"  ...A[144][146]ND SO YOU TRAVEL ALONE, TRUSTING":PRINT"[169][180] NO ONE EXCEPT YOURSELF. YOU FOLLOW,":PRINT"[184] (WITH DIFFICULTY), AN ODD MAP YOU'VE":PRINT"  UNEARTHED IN THE MUSTY CELLARS OF AN"
  159. 4810 PRINT"  OLD MONASTERY. YOU MAKE A TURN, THEN":PRINT"  YOU SEE IT, AND YOU MOVE IN! THUNDER":PRINT"  CRASHES.. LIGHTNING RIPS THROUGH THE":PRINT"  SULLEN SKY.. YOU SEE THE BANNERS AND":PRINT"  PENNANTS, FLAYING IN THE WIND... YOU"
  160. 4860 PRINT"  MOVE CLOSER STILL! THE DRAWBRIDGE IS[208][146][223][146]":PRINT"  LOWERING! LIGHTS FROM THE HUGE DOORS[145] [184]":PRINT"  BECKON YOU..INSIDE!! (HIT SHIFT)":GOSUB5600:GOSUB4000:POKE53281,1:PRINT"[147]   Y[151][146]OU LOOK AROUND AN IMMENSE,TOTALLY ":PRINT"  VACANT ROOM.THEN,SUDDENLY,WITHOUT A "
  161. 4920 PRINT"  WARNING,THE FLOOR GIVES WAY,AND YOU ":PRINT"  TUMBLE HEADLONG DOWN A LONG TUNNEL, ":PRINT"  FALLING...FALLING...YOUR HEAD SLAMS":PRINT"  A BOULDER,AND EVERYTHING GOES BLACK!":FORT=1TO6000:NEXT:POKE53281,0:GOSUB708
  162. 4970 PRINT"        PRESS SHIFT TO CONTINUE        [145][145][158]":GOSUB5600:PRINT"[147]":GOSUB1000:PRINTDN$(7)TAB(16);"[158][207][183][208][157][157][157][180] [170][157][157][157][204][175][186]":POKE53280,0:PRINT"[152]YOU AWAKEN IN AN AREA DIMLY":PRINT"  LIT BY A PAIR OF TORCHES ATTACHED":PRINT"TO THE WALL FARTHEST FROM YOU.ON THIS"
  163. 5040 PRINT"WALL YOU PERCEIVE A PLAQUE.(HIT SHIFT)":GOSUB5600:PRINT"[147][155]     THE PLAQUE READS AS FOLLOWS:":PRINT"[158][209]                                      [209]":PRINT"[145][158]  YOU ARE ON THE TWENTIETH LEVEL OF THE ":S$="[145]                                        "
  164. 5090 PRINTS$" DUNGEONS OF LLADNAR.ALL THOSE WHO HAVE ":PRINTS$" GONE BEFORE YOU HAVE PERISHED IN AGONY.":PRINTS$"  TO SURVIVE,YOU MUST FIND THE WAY OUT, ":PRINTS$" AND YOU MUST DEAL WITH MY MANY BEASTS, ":PRINTS$" WHICH STALK YOU EVEN AS YOU READ THIS. "
  165. 5140 PRINTS$" I HAVE PROVIDED GENEROUSLY FOR YOU,AND ":PRINTS$" IF YOU ARE WISE,AND POSSESS SUFFICIENT ":PRINTS$" COURAGE,YOU WILL SURVIVE AND GAIN VAST ":PRINTS$" WEALTH.IF NOT YOU WILL SURELY SUCCUMB. ":PRINTS$"[146]             (HIT SHIFT)[145][158]":GOSUB5600
  166. 5190 PRINTS$"[145]  IN THE INTEREST OF YOUR SURVIVAL, AND ":PRINTS$" TO MAKE MY LITTLE GAME AS INTERESTING, ":PRINTS$" AND PLEASURABLE AS IS POSSIBLE,YOU ARE ":PRINTS$" HEREBY GRANTED A FEW SPECIAL WEAPONS.  ":PRINTS$"  FIRST,YOU ARE ENDOWED WITH A DOZEN OF "
  167. 5240 PRINTS$" MY COURT MAGICIANS FINEST FATAL SPELLS.":PRINTS$"  YOU MUST BE CAREFUL,HOWEVER,FOR SOME  ":PRINTS$" OF MY PETS HAVE A REMARKABLE IMMUNITY  ":PRINTS$" TO THEM. (ALTHOUGH MOST HAVE NOT.)     ":PRINTS$"  YOU ARE ALSO TO HAVE AT YOUR DISPOSAL "
  168. 5290 PRINTS$" AN ENCHANTED SWORD,AND TO ENERGIZE IT..":PRINTS$"[146]              (HIT SHIFT)[158][145][145]":GOSUB5600:PRINTS$"[145] YOU ARE ALSO GRANTED ONE HUNDRED UNITS ":PRINTS$" OF RAW ENERGY,TO BE USED AGAINST THOSE ":PRINTS$" OF MY CHILDREN WHO SHALL CONFRONT YOU. "
  169. 5340 PRINTS$"  AT THE ONSET OF YOUR ORDEAL,THE POWER ":PRINTS$" YOU POSSESS WILL BE SO GREAT THAT NONE ":PRINTS$" OF MY BEASTS WILL BE ABLE TO HARM YOU, ":PRINTS$" BUT IT WILL BE DIMINISHED BY THE EXACT ":PRINTS$" AMOUNT POSSESSED BY ANY BEAST YOU SLAY."
  170. 5390 PRINTS$" TO REPLENISH IT,YOU MUST ENTER A CELL, ":PRINTS$" OR ELSE RISK DEATH AT A MONSTERS HAND! ":PRINTS$" (OR CLAW, OR OTHER WEAPON!!)           ":PRINTS$:PRINT"             (HIT SHIFT)[145][158]":GOSUB5600:PRINTS$"[145]  THE CELLS CONTAIN GOLD,ARTIFACTS,MORE "
  171. 5430 PRINTS$" ENERGY UNITS AND ADDITIONAL SPELLS,BUT ":PRINTS$" MY CREATURES LURK IN THEM TOO. BEWARE! ":PRINTS$" OTHER PERILS EXIST WITHIN THESE WALLS, ":PRINTS$" AND YOU MUST LEARN TO AVOID THEM,OR AT ":PRINTS$" LEAST TO SURVIVE THEM.IF YOU REACH THE "
  172. 5480 PRINTS$" SURFACE,AT LEVEL ONE OR LEVEL ZERO YOU ":PRINTS$" WILL SOONER OR LATER FIND AN EXIT, AND ":PRINTS$" YOU MAY LEAVE.BE CAREFUL NOT TO GO ANY ":PRINTS$" HIGHER THAN LEVEL ZERO....OR ELSE!!    ":PRINTS$:PRINT"[145][158][209]                       (SIGNED) D.L.  [209]"
  173. 5510 PRINT"             (HIT SHIFT)[145][158]":GOSUB5600:PRINT"[147]":A=0:RETURN
  174. 5530 PRINT""TAB(13)"[158]HASSLE CASTLE!":GOSUB9650:RETURN
  175. 5600 WAIT653,1:WAIT653,1,1:RETURN
  176. 6000 PRINT"";TAB(14);"[207][149][163][163]":FORI=1TO35:NEXT:PRINTDN$(8)TAB(31)"[154][162]  [145][157][157][185][175][164] [145]":FORI=1TO35:NEXT:PRINTDN$(9)TAB(23)"[169]":FORI=1TO35:NEXT:PRINTDN$(8)TAB(31)"[162]  [157][157][184][198][145] ":FORI=1TO35:NEXT:PRINT""TAB(14)"[207][196] ":FORI=1TO35:NEXT:PRINTDN$(9)TAB(23)"[223]":FORI=1TO35:NEXT:PRINTDN$(23):RETURN
  177. 8000 FORT=1TO8:POKE53280,6:POKE53281,6:FORI=1TOINT(RND(.)*100):NEXT:POKE53280,0:POKE53281,0:FORI=1TOINT(RND(1)*100)+50:NEXT:NEXT:RETURN
  178. 8200 GOSUB125:FORX1=15TO0STEP-1:POKES1+24,X1:POKES1+4,129:POKES1+5,15:POKES1+1,45:POKES1,200:NEXT:POKES1+4,128:POKES1+5,0:RETURN
  179. 8300 GOSUB125:POKES1+24,15:FORX1=1TO3:POKES1+4,19:POKES1+5,10:POKES1+1,150:POKES1+4,18:FORT=1TO90:NEXT:NEXT:POKES1+4,0:POKES1+5,9:RETURN
  180. 9000 GOSUB850:PRINT" YOU HAD A TERRIBLE STRUGGLE WITH THE":PRINT" "A$(M);:GOSUB9500:IFE>=MTHENPRINT"[155],BUT YOU DESTROYED IT!":GOSUB10200
  181. 9010 IFE>=MTHENE=E-M:K=K+1:N=1:RETURN
  182. 9012 GOSUB9550:POKE53280,0:PRINT"";:FORI=1TO1000:PRINT" ";:NEXT:TR=0:PRINTDN$(11)SPC(9)"[158]AND YOU WERE KILLED!!":TR=1:SC=AU*K*TR:FORT=1TO3000:NEXT:POKE53281,0:PRINT"[147][152]       YOUR FINAL SCORE IS"SC:POKE53280,0:TX$=TI$:TP$=LEFT$(TX$,2)+":"+MID$(TX$,3,2)+":"+RIGHT$(TX$,2)
  183. 9020 PRINT"        ELAPSED TIME - ";TP$:PRINTDN$(23)TAB(9);"HIT SHIFT FOR TOTALS":GOSUB5600:GOTO458
  184. 9050 GOSUB200:PRINT"  HMM...YOU SEEM TO BE OUT OF SPELLS!":N=0:RETURN
  185. 9100 GOSUB200:IFS<1THEN9050
  186. 9102 GOSUB9850:S=S-1:GOSUB300:PRINT:IFR>MTHENPRINT"YOUR SPELL HAS CRUSHED THE ";A$(M);"[155],"
  187. 9105 IFR>MTHENPRINT"[155] IT LIES DEAD AT YOUR FEET!![145]"
  188. 9106 IFR>MTHENK=K+1:GOSUB10200:RETURN
  189. 9108 PRINT" THE ";A$(M);"[155] IS NOT IMPRESSED![155]":IFR>26THEN9116
  190. 9110 PRINT:FORI=1TO7:PRINT"[145] IT ATTACKS.........[129]COMBAT MODE![155]":FORT=1TO100:NEXT:PRINTTAB(20)"[145][144]            [146][155]":FORT=1TO100:NEXT:NEXT:GOTO9000
  191. 9116 N=0:RETURN
  192. 9300 GOSUB200:PRINT"[153]  YOU HAVE FOUND AN ANCIENT ELEVATOR!":IFAU>350THENPRINT" TO USE THE ELEVATOR, YOU WILL HAVE TO"
  193. 9304 IFAU>350THENPRINT"  LEAVE";AU-350;"GOLD PIECES BEHIND."
  194. 9306 PRINT"     USE THE ELEVATOR? (Y OR N)":GOSUB1300:B$=A$:IFB$="N"THENRETURN
  195. 9310 IFB$<>"Y"THENPRINT"[145][145][145]":GOTO9306
  196. 9312 GOSUB9750:L=L-INT(RND(.)*L/2)-2:IFAU>350THENAU=350
  197. 9314 RETURN
  198. 9400 GOSUB9950:GOSUB200:GETA$:A$="":IFA(B+3)>0THENM=A(B+3)
  199. 9404 IFA(B+3)>0THENGOSUB600:PRINT"[155] AWAITS YOU!   "
  200. 9406 IFA(B+3)=0THENGOSUB200:GOSUB9600:PRINTTAB(9)"AN UNOCCUPIED CELL"
  201. 9408 GOSUB303:IFA(B+6)>1THENPRINT"[158]  AND"A(B+6)A$(101):GOSUB9600
  202. 9410 IFA(B+9)>0THENPRINT"[154]  PLUS "A$(Q):TR=TR+1:GOSUB9600
  203. 9412 FORI=12TO15STEP3:Q=Q+1:IFA(B+I)>0THENPRINT"[154]  PLUS "A$(Q+1-(9ANDQ+1>111)):TR=TR+1:GOSUB9600
  204. 9416 NEXT:IFA(B+3)>0THENPRINT"[145]":GOSUB507
  205. 9420 AU=AU+A(B+6):FORC=9TO15STEP3:GOSUB301:IFA(B+C)>0ANDA(B+C)<25THENE=E+R
  206. 9424 IFA(B+C)>23THENS=S+1
  207. 9426 GOSUB300:IFA(B+3)>0ANDN=2ANDR<5THEN800
  208. 9428 NEXT:FORT=1TO2000:NEXT:RETURN
  209. 9500 GOSUB125:POKES1+24,15:POKES1+5,50:FORX1=1TO10:POKES1+1,X1+10:POKES1+4,33:POKE53281,9:POKE53280,11:POKE53280,9:POKE53281,0:FORT=1TO10:NEXT:POKES1+4,16:NEXT:POKE53280,11:GOSUB125:RETURN
  210. 9550 GOSUB125:POKES1+24,15:POKES1+5,50:FORX1=90TO3STEP-2:POKES1+1,X1:POKES1+24,15:POKES1+4,33:POKES1+6,144:FORI=1TOX1:NEXT:POKES1+4,129:POKES1+24,0:NEXT:FORT=15TO0STEP-1:FORI=1TO100:NEXT:POKES1+24,T:NEXT:GOSUB125:RETURN
  211. 9600 GOSUB125:POKES1+1,40:POKES1+5,9:POKES1+6,40:POKES1+24,15:POKES1+4,17:FORT=1TO400:NEXT:GOSUB125:RETURN
  212. 9650 GOSUB125:FORI=1TO3:FORX1=1TO3:POKES1+24,15:POKES1+1,(X1+2)*10:POKES1+6,255:POKES1+4,17:FORT=1TO100:NEXT:NEXT:NEXT:FORT=1TO300:NEXT:GOSUB125:RETURN
  213. 9700 L=L+1:GOSUB125:POKES1+24,15:POKES1+5,8:FORX1=15TO1STEP-1:POKES1+1,X1+12:POKES1+24,X1:POKES1+4,129:FORT=1TO70:NEXT:POKES1+4,128:IFX1/2-INT(X1/2)<.10THENFORT=1TO150:NEXT
  214. 9708 NEXT:GOSUB125:RETURN
  215. 9750 GOSUB125:POKES1+24,15:POKES1+5,60:FORI=30TO100STEP3:POKES1+1,I:POKES1+4,17:POKES1+6,100:NEXT:FORT=1TO2000:NEXT:FORI=100TO10STEP-2:POKES1+1,I:POKES1+4,17:POKES1+6,100:NEXT:GOSUB125:RETURN
  216. 9800 L=L-1:GOSUB125:POKES1+24,15:POKES1+5,7:FORX1=3TO18:POKES1+24,45/X1:POKES1+1,X1*4:POKES1,200:POKES1+4,129:FORT=1TO180:NEXT:IFX1/2-INT(X1)=0THENFORT=1TO50:NEXT
  217. 9808 POKES1+4,128:NEXT:POKES1+1,50:FORT=1TO200:NEXT:POKES+4,128:GOSUB125:RETURN
  218. 9850 GOSUB125:POKES1+24,10:POKES1+6,240:POKES1+4,17:FORI=1TO3:POKE53280,13:POKE53281,13:POKE53280,11:POKE53281,0:FORX1=1TO255STEP25:POKES1+1,X1:NEXT:NEXT:POKES1+4,32:GOSUB125:RETURN
  219. 9900 GOSUB125:FORT=15TO1STEP-1:POKES1+24,T:POKES1+5,4:POKES1+1,50:POKES1+4,128:FORX=1TO30:POKES1+4,129:NEXT:NEXT:GOSUB125:RETURN
  220. 9950 GOSUB125:FORT=50TO0STEP-2:POKES1+24,15:POKES1+5,136:POKES1+1,T:POKES1+4,33:POKES1+4,32:NEXT:GOSUB125:RETURN
  221. 10000 GOSUB125:POKES1+24,15:POKES1+5,50:FORX1=1TO5:POKES1+1,RND(.)*10+2:POKES1+4,33:POKES1+6,144:FORT=1TO300:NEXT:POKES1+4,32:NEXT:GOSUB125:RETURN
  222. 10100 GOSUB125:POKES1,10:POKES1+1,20:POKES1+5,8:POKES1+6,128:POKES1+24,0:POKES1+4,129:FORD=1TO55:POKES1+24,D/8:GETA$:IFA$=""THENNEXT:GOTO10114
  223. 10113 RETURN
  224. 10114 FORD=30TO1STEP-1:POKES1+24,D/5:GETA$:IFA$=""THENNEXT:GOTO10118
  225. 10115 RETURN
  226. 10118 POKES1,10:POKES1+1,50:POKES1+5,8:POKES1+6,128:POKES1+4,129:FORD=1TO65:POKES1+24,D/8:GETA$:IFA$=""THENNEXT:GOTO10126
  227. 10125 RETURN
  228. 10126 FORD=60TO1STEP-1:POKES1+24,D/5:GETA$:IFA$=""THENNEXT:RETURN
  229. 10127 RETURN
  230. 10200 GOSUB125:POKES1+24,15:POKES1+5,60:POKES1+1,4:FORI=1TO12:POKES1+4,33:POKES1+2,100:POKES1+5,200:POKES1+6,80:NEXT:GOSUB125:RETURN
  231. 10300 POKES1+24,15:POKES1+5,50:FORX1=58TO8STEP-1:POKES1+1,X1*3:POKES1+4,17:POKES1+4,16:FORI=1TO2:NEXT:NEXT:FORT=1TO300:NEXT:FORI=1TO6:POKES1+24,15:POKES1+4,33:POKES1+1,5:POKES1+2,100:POKES1+5,200:POKES1+6,50:NEXT:GOSUB125:RETURN
  232. 10350 POKES1+24,15:POKES1+5,50:FORX=1TO50:POKES1+1,RND(X)*32+50:POKES1+4,17:FORI=1TO10:NEXT:POKES1+4,16:NEXT:RETURN
  233. 10400 GOSUB125
  234. 10406 POKES1+24,15:POKES1+5,143:POKES1+1,5:POKES1+4,129:RETURN
  235. 8224                ,
  236.