home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / DRAGON-ROAST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.8 KB  |  169 lines
  1. 0 REM"[141][145]  [150]====================================
  2. 1 [143]"GOSUBON  DEF====================================
  3. 2 REM"[141][145]  [150]====                            ====
  4. 3 [143]"GOSUBON  DEF====  OPEN(null)RIGINAL PROGRAM AUTHOR   DEF====
  5. 4 REM"[141][145]  [150]====          [159]UNKNOWN.          [150]====
  6. 5 [143]"GOSUBON  DEF====                            ====
  7. 6 REM"[141][145]  [150]==== [193]DDITIONAL GRAPHICS, COLOR,[150]====
  8. 7 [143]"GOSUBON  DEF====     WEENIE, SOUND, AND     DEF====
  9. 8 REM"[141][145]  [150]====   WITTY DIALOGUE ([200]EH!)    [150]====
  10. 9 [143]"GOSUBON  DEF====                            ====
  11. 10 REM"[141][145]  [150]====        [194]Y [202]IM [199]REEN        [150]====
  12. 11 [143]"GOSUBON  DEF====                            ====
  13. 12 REM"[141][145]  [150]====================================
  14. 13 [143]"GOSUBON  DEF====================================CONT
  15. 20 POKE53280,0:POKE53281,0:PRINT"[147][158]";:POKE53265,11:C=54272:POKEC+24,14
  16. 25 GOSUB 740:PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  17. 30 [153][163]7)"(null)                        (null)
  18. 35 PRINTTAB(7)"[221] [158][205]EET [200][207][212][160][194][210][197][193][212][200][160][200][193][210][210][217]! [221]
  19. 40 [153][163]7)"(null)                        (null)
  20. 45 PRINTTAB(7)"[221] [158][212]HIS OLE BOY IS        [221]
  21. 50 [153][163]7)"(null)            SYS(null)VALATN(null) SCARY! (null)
  22. 55 PRINTTAB(7)"[221]                        [221]
  23. 60 [153][163]7)"(null)  SYS(null)O, JUST BE WARY AND  (null)
  24. 65 PRINTTAB(7)"[221]                        [221]
  25. 70 [153][163]7)"(null)    SYSNOT GET SCORCHED    (null)
  26. 75 PRINTTAB(7)"[221]                        [221]
  27. 80 [153][163]7)"(null) SYSBY  LEFT$(null)(null)CLOSEPEEK(null)VALATN(null)LEFT$CLOSELEFT$ATN(null)(null)(null)!! (null)
  28. 85 PRINTTAB(7)"[221]                        [221]
  29. 90 [153][163]7)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[151]53265,27:W[178]60:[141]540:[141] 740
  30. 95 Z[178]828:[129]T[178]Z[164]843:[135]X:[151]T,X:[130]
  31. 100 [131] 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  32. 105 C[178]54272:[151]C[170]24,15:X[178][187]([171]TI):[151]53265,11
  33. 110 [153]"LOADRETURN"
  34. 115 [153]
  35. 120 [153]"                         SYSSTEPWAITSTEP (null)
  36. 125 PRINT"                        [169]'[146] [169][201]
  37. 130 [153]"                        MID$(null)STEPRIGHT$WAITSTEP
  38. 135 PRINT"           [223][146] [223][146] [223][146]        [203][202][165][146][169]
  39. 140 [153]"          (null)'(null)'(null)'(null)(null)WAIT    (null)(null)MID$(null)(null)
  40. 145 PRINT"        [206][203][202][203][202][203][202][203][202][203][205][146]  [206][206][202][213][192][201][223]
  41. 150 [153]"       (null)(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)(null)STEP(null)MID$(null)(null)*(null)(null)
  42. 155 PRINT"      [206][203][202][203][202][203][202][203][202][203][202][203][202][203][167][203][205][202][202][192][203][203][223]
  43. 160 [153]"   (null)WAITCLOSE(null)(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)(null)WAIT(null)(null)(null)MID$MID$MID$(null)
  44. 165 PRINT"  [206][163][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][146] [223][203][205][203][202][146][169]
  45. 170 [153]" (null)(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$WAITFN (null)(null)TAB(WAITSTEPSYS
  46. 175 PRINT"[169][165][202][203][202][203][202][203][202][163][205][203][202][203][202][203][202][203][202][203][202][203][202][203]
  47. 180 [153]"STEPFN(null)MID$(null)MID$(null)MID$(null)MID$THENMID$(null)MID$(null)MID$(null)MID$(null)MID$(null)MID$(null)WAITSTEP
  48. 185 PRINT"[169][165][203][202][146][169][223][202][203][202][203][206][203][202][203][202][203][202][203][202][203][202][206][163][223]
  49. 190 [153]"RIGHT$SYSFNMID$(null)WAITRIGHT$RIGHT$SYS(null)MID$(null)MID$TAB((null)(null)MID$(null)MID$(null)(null)MID$(null)WAITSTEPVERIFYSTEPSTEPSTEP          DEFPOS
  50. 195 PRINT"[201][158][165][203][202][223][146][201][201][158][223][202][203][205][205][205][203][202][203][146][169][202][203][146][169][169][202][203][223][146][201][201]      [152][213][192][150] [146][152][192]
  51. 200 [153]"RIGHT$SYS(null)(null)MID$(null)(null)WAITRIGHT$RIGHT$RIGHT$RIGHT$VERIFYSTEPSTEPSTEPRIGHT$RIGHT$RIGHT$RIGHT$SYS(null)MID$(null)MID$THENTHENTANWAITPRINT#TANTANTANTANTANTANTANTAN(null)TANDEF WAITPRINT#TAN
  52. 205 PRINT"[201][201][158][223][202][203][202][203][202][223][146][201][201][201][201][201][201][201][201][201][201][201][201][149][223][223][223][201][201][201][201]    [152][202][192][150] [146][152][192]
  53. 210 [153]"RIGHT$RIGHT$RIGHT$SYS(null)(null)MID$(null)MID$(null)(null)WAITRIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$      DEFFRE
  54. 215 PRINT"[201][201][201][201][201][201][201][201][158][223][202][203][202][203][146][169][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201]
  55. 220 [153]"RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$
  56. 225 PRINT"[201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201]":POKE53265,27:W=20:GOSUB540
  57. 226 PRINT"[159]    WELCOME TO HARRY'S WIENER ROAST":GOSUB540
  58. 227 PRINT"                                     "
  59. 230 FORT=1166TO1215:POKET+C,7:NEXT:GOTO270:  REM  * * FOR EAR COLOR
  60. 235 REM    EYE & MOUTH
  61. 240 POKE1408,235:POKE1409,198:POKE1410,243
  62. 245 POKE1529,202:POKE1530,203:POKE1531,95
  63. 250 POKE1569,95:POKE1570,203:POKE1571,223
  64. 255 POKE1572,105:POKE1572+C,2:POKE1573,105:POKE1573+C,2:RETURN
  65. 260 X=INT(10*RND(1)+1):IFX>6THEN270
  66. 265 FORT=1TOX:GOSUB385:GOSUB380:GOSUB400:NEXT
  67. 270 GOSUB240:W=4:GOSUB540:GOSUB485:FORA=0TO7:POKEC+A,0:NEXT:M=M+1
  68. 275 IFM=2THENB=2:GOSUB 550
  69. 280 IFM=4THENB=8:GOSUB 550
  70. 285 IFM=6THENB=9:GOSUB 550
  71. 290 IFM=8THENB=11:GOSUB 550
  72. 295 GOSUB 540:L=32:K=32:GOSUB325:IFM=8THENGOSUB 555:GOTO 595
  73. 300 GOSUB 540:GOSUB360:GOSUB 540
  74. 305 X=INT(10*RND(1)+1):IFX>5GOTO260
  75. 310 Y=INT(10*RND(1)/3+1)
  76. 315 FORT=1TOY:GOSUB415:GOSUB 540:GOSUB450:W=2:GOSUB 540:NEXT
  77. 320 GOTO260
  78. 325 POKE1614,L:POKE1653,L:POKE1654,L:POKE1657,L:POKE1692,L:POKE1698,L
  79. 330 POKE1696,L:POKE1700,L:POKE1734,L:POKE1736,L:POKE1740,L
  80. 335 POKE1773,L:POKE1780,L:POKE1781,L:POKE1823,L:POKE1855,L
  81. 340 POKE1863,L:POKE1896,L:POKE1900,L:POKE1901,L:POKE1940,L:FORD=1TO100:NEXT
  82. 345 POKE1652,K:POKE1656,K:POKE1735,K:POKE1741,K:POKE1774,K:POKE1820,K
  83. 350 POKE1820,K:POKE1860,K:POKE1861,K
  84. 352 POKE1938,K:POKE1902,K:POKE1903,K:POKE1942,K:RETURN
  85. 355 REM         EYE & MOUTH * * * *
  86. 360 POKE1408,221:POKE1409,236:POKE1410,221
  87. 365 POKE1529,95:POKE1530,203:POKE1531,205:POKE1569,32:POKE1570,95
  88. 370 POKE1571,203:POKE1572,227:POKE1572+C,7:RETURN
  89. 375 END:  FORD=1TO400:NEXT:RETURN
  90. 380 FORD=1TO200:NEXT:RETURN
  91. 385 FORD=1TO200:NEXT :REM* * * * EARS
  92. 390 POKE1167,95:POKE1168,223:POKE1169,32:POKE1170,32
  93. 395 POKE1172,32:POKE1208,167:POKE1209,223:POKE1213,223:RETURN
  94. 400 POKE1166,32:POKE1167,32:POKE1168,233:POKE1169,105
  95. 405 POKE1172,223:POKE1208,233:POKE1208,167:POKE1213,32:RETURN
  96. 410 REM  * * *  TAIL
  97. 415 POKE1878,73:POKE1878+C,5:POKE1914,223:POKE1914+C,7:POKE1915,73:POKE1915+C,5
  98. 420 POKE1916,73:POKE1916+C,5:POKE1917,73:POKE1917+C,5
  99. 425 POKE1953,95:POKE1953+C,7:POKE1954,202:POKE1954+C,7:POKE1955,223
  100. 430 POKE1955+C,7:POKE1953,95:POKE1953+C,7:POKE1994,95
  101. 435 POKE1994+C,7:POKE1955,223:POKE1995+C,7:POKE1994,95:POKE1994+C,7
  102. 440 POKE1995,202:POKE1995+C,7:POKE1996,223:POKE1996+C,7:POKE1997,73:POKE1997+C,5
  103. 445 RETURN :  TAIL - GRASS * * * * *
  104. 450 POKE1878,73:POKE1878+C,5
  105. 455 POKE1914,203:POKE1914+C,7:POKE1915,202:POKE1915+C,7
  106. 460 POKE1916,203:POKE1916+C,7:POKE1917,105:POKE1917+C,7
  107. 465 POKE1953,73:POKE1953+C,5:POKE1954,73:POKE1954+C,5
  108. 470 POKE1955,73:POKE1955+C,5:POKE1994,73:POKE1994+C,5
  109. 475 POKE1995,73:POKE1995+C,5:POKE1996,73:POKE1996+C,5:POKE1997,73:POKE1997+C,5
  110. 480 RETURN
  111. 485 SYSZ,14,30:PRINT"[150]*":W=1:GOSUB 540:PRINTSPC(28)"[158].[150]** [158].[150]*":GOSUB 735
  112. 490 GOSUB 540:PRINTSPC(28)"*   [150]* [158]. *":GOSUB 540:PRINTSPC(30)"*[158].**[158]."
  113. 495 GOSUB 540:PRINTSPC(29)"[150]*[158].*[150]*":GOSUB 540
  114. 500 PRINTSPC(36)"[158].  [150]*";:GOSUB 540:PRINTSPC(31)"*[158]. [150]*";:GOSUB 540
  115. 505 PRINTSPC(32)"**[150]*[158]..";:GOSUB 540:PRINTSPC(34)". [150]* [158].":RETURN
  116. 510 SYSZ,14,30:PRINT"[149]*":W=.5:GOSUB 540:PRINTSPC(28)"[158].*[150]* [153].*":GOSUB 735
  117. 515 GOSUB 540:PRINTSPC(28)"[150]* [149][205] [129]* [191] [150]*":GOSUB 540:PRINTSPC(29)"*[158].[150]* . *[158]. "
  118. 520 GOSUB 540:PRINTSPC(29)"[150]*[158]. [150]* [153]. [129]* *":GOSUB 540
  119. 525 PRINTSPC(30)"[153].  [129]*  [149].[205] [129]*";:GOSUB 540
  120. 530 PRINTSPC(29)". * [153]. [129]* [158]. *";:GOSUB 540
  121. 535 PRINTSPC(30)"[153]. [129]* [149][205] [150]*[158].. ";:GOSUB 540:PRINTSPC(34)"[149][191] * [158]."
  122. 540 FORD=1TOW*100:NEXT:RETURN
  123. 545 FORA=1TO7:POKEC+A,0:NEXT:RETURN
  124. 550 SYSZ,17,34:POKE646,B:PRINT"[185][157] [157] [157] [146][157][184]":FORD=1TO400:NEXT:RETURN
  125. 555 FORT=1TO10:SYSZ,9,25:PRINT"[158][198]"
  126. 560 SYSZ,17,34:POKE646,B
  127. 565 PRINT"[213]";:FORD=1TO80:NEXT:PRINT"[203]";::FORD=1TO80:NEXT:PRINT"[145][157][201]";
  128. 570 SYSZ,9,25:PRINT"[158][215]":SYSZ,16,36:POKE646,B
  129. 575 FORD=1TO80:NEXT:PRINT"[157][157][202]";:FORD=1TO80:NEXT:PRINT"[145][157][213][203]":FORD=1TO80:NEXT
  130. 580 B=11:IFRND(1)>.5THENB=12
  131. 585 IFT=10THENGOSUB390:FORD=1TO180:NEXT:GOSUB400
  132. 590 NEXT:RETURN
  133. 595 PRINT"     WELL!! STUPID DRAGON BREATH!!":GOSUB555:GOSUB 740
  134. 600 PRINT"         YOU'VE DONE IT NOW!!        ":GOSUB555:GOSUB 740
  135. 605 PRINT"    YOUR WEENIE IS BURNT TO A CRISP!"
  136. 610 GOSUB555:SYSZ,10,32:PRINT"AWWWW!![157][157][157][157][157][157]POO!![157][157][157][157][157][152][206][157][157][206]":GOSUB 740
  137. 615 GOSUB555:PRINT"                                     "
  138. 620 SYSZ,10,0:FORT=1TO10:PRINTTAB(32)"       ":NEXT
  139. 625 SYSZ,19,23:PRINT"[158] [146][201][201]          [157][157][157][157]    [157][157]   "
  140. 630 GOSUB390:FORD=1TO180:NEXT:GOSUB400
  141. 635 FORT=1TO4:GOSUB485:GOSUB510:SYSZ,9,25:PRINT"[158][198]"
  142. 640 FORA=0TO7:POKEC+A,0:NEXT
  143. 645 GOSUB390:FORD=1TO180:NEXT:GOSUB400:SYSZ,9,25:PRINT"[214]":GOSUB 710:NEXT
  144. 650 FORT=1TO3:POKE53280,2:POKE53281,2:POKE53265,11:FORD=1TO500:NEXT
  145. 655 POKE53280,0:POKE53281,0:POKE53265,27:GOSUB 510:GOSUB 710:NEXT
  146. 660 PRINT"[147]        [215]ELL [200][193][210][210][217]'S THROWN A FIT"
  147. 665 PRINT"         AND BURNED UP THE PLACE.
  148. 670 [153]"        SYSPEEKUT IT WILL BE CLEANED UP
  149. 675 PRINT"          AND READY TO GO SOON.
  150. 680 [153]"        (null)ANNA SEE HIM AGAIN   (null)/(null)
  151. 685 GETG$:IFG$<>"Y"ANDG$<>"N"THEN 685
  152. 690 FORD=1TO1E3:NEXT:FORT=1TO7:POKEC+T,0:NEXT:GOSUB 740
  153. 695 IFG$="Y"THENRUN
  154. 700 PRINT"[147]          [212]OO [150][200][207][212] FOR YOU [200][213][200]!":W=25:GOSUB 540
  155. 705 PRINT"[147][154]":POKE53280,14:POKE53281,6:END
  156. 710 SYSZ,14,30:PRINT" ":GOSUB 540:PRINTSPC(28)"      ":GOSUB 735
  157. 715 GOSUB 540:PRINTSPC(28)"         ":GOSUB 540:PRINTSPC(29)"         "
  158. 720 GOSUB 540:PRINTSPC(29)"          ":GOSUB 540
  159. 725 PRINTSPC(30)"          ";:GOSUB 540:PRINTSPC(29)"           ";:GOSUB 540
  160. 730 PRINTSPC(30)"         [160]";:GOSUB 540:PRINTSPC(34)"     ":RETURN
  161. 735 POKEC,73:POKEC+1,4:POKEC+6,128:POKEC+5,140:POKEC+4,129:RETURN
  162. 740 FORI=70TO100STEP10:POKEC+1,I:POKEC+4,21:FORD=1TO50:NEXT:POKEC+4,20:NEXT
  163. 745 POKEC+1,5:FORD=1TO100:NEXT:POKEC+1,50:POKEC+4,21
  164. 750 FORD=1TO200:NEXT:POKEC+4,20:POKEC+1,5:FORT=0TO13:POKEC+T,0:NEXT:RETURN
  165. 752 REM"[141][145]   ----------------------------------
  166. 755 [143]"GOSUBON    OPEN(null)OTE TO ALL YOU 'ANAL' TYPES....
  167. 760 REM"[141][145]    [159][212]HIS IS SUPPOSED TO BE SILLY!...
  168. 765 [143]"GOSUBON    OPEN        TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(CONT
  169.