home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / robin (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  340 lines
  1. 1 poke55,0:poke56,56:clr
  2. 10 poke53280,0:poke53281,0:printchr$(14)
  3. 12 print"[147][159]           [210]obin [200]ood's [199]old"
  4. 15 dims(7):fori=1to7:reads(i):next
  5. 20 data 1450,1320,1243,1290,1283,1558,1599
  6. 25 dimtn(7):fori=1to7:readtn(i):next
  7. 30 data 15,9,13,19,13,17,20
  8. 35 dimsn(7,20):fori=1to7:forj=1totn(i):readsn(i,j):next:next
  9. 40 data -2,-2,-2,-2,-80,2,160,-2,-2,-2,-80,-80,+2,+80,-4
  10. 41 data 80,2,80,80,2,-80,-4,80,6
  11. 42 data 320,-2,-240,4,240,-6,-80,-80,8,80,80,80,-8
  12. 43 data -2,80,-2,-2,-2,80,80,80,-2,-80,-80,4,2,-160,-2,240,-6,80,-2
  13. 44 data 80,80,-2,-2,160,8,-160,-2,-80,-4,160,2,2
  14. 45 data 2,2,-80,-2,-80,-80,2,80,2,2,80,80,-2,-80,-160,2,2
  15. 46 data 4,4,-160,-160,-4,-4,160,-2,80,6,160,2,-240,4,-80,-6,-160,-2,240,2
  16. 48 goto75
  17. 50 sa=14336:hi=int(sa/256):lo=sa-hi*256
  18. 55 sys57812"robin.font",8,0
  19. 60 poke780,0:poke781,lo:poke782,hi
  20. 65 sys65493:poke53272,31
  21. 70 poke147,0:sys57812"ss",8,1:sys62631
  22. 72 poke147,0:sys57812"robin.mus",8,1:sys62631
  23. 75 co$="[159][156][158][129][149][150][151][152][153][154]":ms=1
  24. 80 dima(7,21):fori=1to7:forj=1totn(i)+1:reada(i,j):next:next
  25. 82 data 1358,2,2,2,72,2,2,2,2,2,2,2,68,2,2,2
  26. 84 data 1320,80,2,78,2,2,76,2,2,2
  27. 86 data 1243,78,4,74,8,72,8,72,2,2,2,2,72,8
  28. 88 data 1284,2,2,2,72,2,2,2,72,2,2,2,72,2,2,2,72,2,2,2
  29. 90 data 1283,78,2,2,74,2,2,2,2,74,2,2,74,8
  30. 92 data 1320,2,2,2,2,72,2,2,2,74,2,2,2,72,2,2,2,2
  31. 94 data 1201,2,76,4,4,76,6,68,2,2,2,2,2,2,68,6,76,4,4,76,2
  32. 99 :
  33. 100 print"[147][159]           [210]obin [200]ood's [199]old"
  34. 102 printtab(9)"1] [198]riar [212]uck's [198]orest"
  35. 105 printtab(9)"2] [205]aid [205]arian's [198]orest"
  36. 110 printtab(9)"3] [204]ittle [202]ohn's [198]orest"
  37. 115 printtab(9)"4] [203]ing [210]ichard's [198]orest"
  38. 120 printtab(9)"5] [195]hilde [200]arold's [198]orest"
  39. 125 printtab(9)"6] [204]ord [210]andle's [198]orest"
  40. 130 printtab(9)"7] [210]obin [200]ood's [198]orest"
  41. 135 printtab(9)"8] [200]elp
  42. 140 [153][163]9)"9] (NULL)oggle (NULL)usic
  43. 145 printtab(9)"0] [204]oadstar
  44. 150 [161]k$:[139]k$[178]""[167]150
  45. 155 k[178][197](k$):[139]k$[179]"0"[176]k$[177]"9"[167]150
  46. 157 [141]8500
  47. 160 [145]k[170]1[141]9000,1000,1500,2000,2500,3000,3500,4000,5000,6000
  48. 165 [139]k[178]8[176]k[178]9[176]k[178]0[167]150
  49. 170 [141]7500:[141]4500:tn[178]0:d[178]0
  50. 171 [151]x,38:[151]x[170]54272,1
  51. 175 [161]k$:[139]k$[178]""[167]175
  52. 180 [139]k$[178]"q"[167][141]8500:[137]100
  53. 185 [139]k$[178]"h"[167][141]8500:[141]5000:[143] help
  54. 190 [139]k$[178]"m"[167][141]6000:[143] toggle music
  55. 195 [139]k$[178]"s"[167][141]8500:[137]7000:[143] solutions
  56. 200 [139]k$[178]""[167][141]8000:[143] right
  57. 205 [139]k$[178]"cmd"[167][141]8100:[143] left
  58. 210 [139]k$[178]"on"[167][141]8200:[143] up
  59. 215 [139]k$[178]""[167][141]8300:[143] down
  60. 220 [139]tn[179]tn(k)[167]175
  61. 221 [129]i[178]1[164]14:[153][200](co$,i);
  62. 225 [153]" (NULL)heriff (NULL)ottingham is foiled again!  "
  63. 227 [141]8500
  64. 230 [129]t[178]1[164]10:[130]:[130]
  65. 231 [153]"             (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)             "
  66. 232 [161]k$:[139]k$[179][177][199](13)[167]232
  67. 233 [141]8500
  68. 235 [137]100
  69. 240 :
  70. 1000 [153]"load"[163]10)"defascriar (NULL)uck's ascorest"
  71. 1005 [153][163]10)"                   "
  72. 1007 [153][163]10)"      ####         "
  73. 1010 [153][163]10)"    ########       "
  74. 1015 [153][163]10)"   ############    "
  75. 1020 [153][163]10)" ################# "
  76. 1025 [153][163]10)"###################"
  77. 1030 [153][163]10)"####sys$#sys$#sys$#sys$########"
  78. 1035 [153][163]10)"###################"
  79. 1040 [153][163]10)"##sys$#sys$#sys$#sys$#sys$#sys$#sys$#sys$##"
  80. 1045 [153][163]10)"###################"
  81. 1050 [153][163]10)"####sys$#sys$#sys$#sys$########"
  82. 1055 [153][163]10)"###################"
  83. 1060 [153][163]10)" ################# "
  84. 1065 [153][163]10)"  ###############  "
  85. 1070 [153][163]10)"    ###########    "
  86. 1075 [153][163]10)"       ######      "
  87. 1080 [153][163]10)"                   "
  88. 1085 [142]
  89. 1090 :
  90. 1500 [153]"load"[163]10)"def(NULL)aid (NULL)arian's ascorest
  91. 1505 printtab(10)"                   "
  92. 1507 printtab(10)"  ###############  "
  93. 1510 printtab(10)" ################# "
  94. 1515 printtab(10)"  ###############  "
  95. 1517 printtab(10)"###################"
  96. 1520 printtab(10)"######[158]$############"
  97. 1525 printtab(10)"###################"
  98. 1530 printtab(10)"######[158]$#[158]$##########"
  99. 1535 printtab(10)"  ###############  "
  100. 1540 printtab(10)" #####[158]$#[158]$#[158]$####### "
  101. 1545 printtab(10)"  ###############  "
  102. 1550 printtab(10)"######[158]$#[158]$#[158]$#[158]$######"
  103. 1555 printtab(10)"###################"
  104. 1560 printtab(10)"   #############   "
  105. 1565 printtab(10)" ################# "
  106. 1570 printtab(10)"   #############   "
  107. 1575 printtab(10)"                   "
  108. 1585 return
  109. 1590 :
  110. 2000 print"[147]"tab(10)"[150][204]ittle [202]ohn's [198]orest"
  111. 2005 printtab(10)"    ###########    "
  112. 2010 printtab(10)"   #############   "
  113. 2015 printtab(10)"  ###############  "
  114. 2020 printtab(10)"#########[158]$#########"
  115. 2025 printtab(10)"###################"
  116. 2030 printtab(10)"#######[158]$#[129]%#[158]$#######"
  117. 2035 printtab(10)"###################"
  118. 2040 printtab(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
  119. 2045 printtab(10)"###################"
  120. 2050 printtab(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
  121. 2055 printtab(10)"###################"
  122. 2060 printtab(10)"#####[158]$#[158]$#[158]$#[158]$#[158]$#####"
  123. 2065 printtab(10)"###################"
  124. 2070 printtab(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
  125. 2075 printtab(10)"  ###############  "
  126. 2080 printtab(10)"   #############   "
  127. 2082 printtab(10)"    ###########    "
  128. 2085 return
  129. 2090 :
  130. 2500 print"[147]"tab(9)"[150][203]ing [210]ichard's [198]orest"
  131. 2505 printtab(10)"     ##############"
  132. 2507 printtab(10)"    ###############"
  133. 2510 printtab(10)"   ################"
  134. 2515 printtab(10)"  #################"
  135. 2520 printtab(10)" #########[158]$#[158]$#[158]$#[158]$##"
  136. 2525 printtab(10)"###################"
  137. 2530 printtab(10)"########[158]$#[158]$#[158]$#[158]$####"
  138. 2535 printtab(10)"###################"
  139. 2540 printtab(10)"######[158]$#[158]$#[158]$#[158]$######"
  140. 2545 printtab(10)"###################"
  141. 2550 printtab(10)"####[158]$#[158]$#[158]$#[158]$########"
  142. 2555 printtab(10)"###################"
  143. 2560 printtab(10)"##[158]$#[158]$#[158]$#[158]$##########"
  144. 2565 printtab(10)"################## "
  145. 2570 printtab(10)"#################  "
  146. 2575 printtab(10)"################   "
  147. 2580 printtab(10)"###############    "
  148. 2585 return
  149. 2590 :
  150. 3000 print"[147]"tab(9)"[150][195]hilde [200]arold's [198]orest"
  151. 3005 printtab(10)"                   "
  152. 3007 printtab(10)"    ############   "
  153. 3010 printtab(10)"   ##############  "
  154. 3015 printtab(10)"  ################ "
  155. 3020 printtab(10)" ########[158]$#########"
  156. 3025 printtab(10)"###################"
  157. 3030 printtab(10)"#######[158]$#[158]$#[158]$#######"
  158. 3035 printtab(10)"###################"
  159. 3040 printtab(10)"#####[158]$#[158]$#[158]$#[158]$#[158]$#####"
  160. 3045 printtab(10)"###################"
  161. 3050 printtab(10)"#####[129]%#[158]$#[158]$#[158]$#[129]%#####"
  162. 3055 printtab(10)"###################"
  163. 3060 printtab(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
  164. 3065 printtab(10)"  ###############  "
  165. 3070 printtab(10)" ################# "
  166. 3075 printtab(10)"  ###############  "
  167. 3080 printtab(10)"                   "
  168. 3085 return
  169. 3090 :
  170. 3500 print"[147]"tab(10)"[150][204]ord [210]andle's [198]orest"
  171. 3505 printtab(10)"                   "
  172. 3510 printtab(10)"                   "
  173. 3515 printtab(10)" ##################"
  174. 3520 printtab(10)"###################"
  175. 3525 printtab(10)"###################"
  176. 3530 printtab(10)"######[158]$#[158]$#[158]$#[158]$#[158]$####"
  177. 3535 printtab(10)"###################"
  178. 3540 printtab(10)"######[158]$#[158]$#[158]$#[158]$######"
  179. 3545 printtab(10)"###################"
  180. 3550 printtab(10)"######[158]$#[158]$#[158]$#[158]$######"
  181. 3555 printtab(10)"###################"
  182. 3560 printtab(10)"####[158]$#[158]$#[158]$#[158]$#[158]$######"
  183. 3565 printtab(10)"###################"
  184. 3570 printtab(10)"###################"
  185. 3575 printtab(10)"################## "
  186. 3580 printtab(10)"                   "
  187. 3582 printtab(10)"                   "
  188. 3585 return
  189. 3590 :
  190. 4000 pr