home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / hbxmas pt1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  11.5 KB  |  232 lines
  1. 100 poke53275,0
  2. 110 ifathen140
  3. 120 goto170
  4. 140 ifa<3thena=a+1:loadna$+mid$(str$(a),2),8,1
  5. 150 a=0:a=0:goto200
  6. 170 bc=53280:sc=53281:pokebc,0:pokesc,0:ad=51715:dimw%(255)
  7. 180 bo$="[153] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157][159] ":goto520
  8. 200 onnpgoto210,630,1650
  9. 210 ::poke56576,2:poke53272,120:poke53270,peek(53270)or16:poke53265,peek(53265)or32:return
  10. 260 ::poke53270,peek(53270)and239:poke53272,20:poke53265,27:poke56576,3:return
  11. 310 ::fori=0to7:poke843,0+i:poke844,96:sys830:next:return
  12. 330 ::print"[147]":pokebc,0:pokesc,14:poke53272,21:pokev+21,0:sysad+6,1,2
  13. 360 pokep0,244:pokev+39,9:pokev+23,131:pokev+28,96:pokev+37,7:pokev+38,9
  14. 370 pokep7,244:pokev+46,9:pokev+14,150:pokev+15,160
  15. 380 pokep1,243:pokev+40,5:pokev+2,245:pokev+3,184:pokev+29,2:pokev,100:pokev+1,190:pokev+21,131:return
  16. 410 ::print"[147]":pokebc,0:pokesc,14:poke53272,21:pokev+21,0:sysad+6,1,1:pokev+37,7:pokev+38,9:pokev+28,96
  17. 460 pokep0,243:pokev+39,5:pokev+0,50:pokev+1,220:pokep1,243:pokev+40,5:pokev+2,100:pokev+3,210
  18. 480 pokep2,243:pokev+41,5:pokev+4,180:pokev+5,230:pokep3,243:pokev+42,5:pokev+6,250:pokev+7,225
  19. 500 pokev+21,15:return
  20. 520 poke53265,11:gosub260:poke53272,23:gosub4070:poke198,0:wait198,1:poke198,0
  21. 530 gosub4260:print"  [200]uggy [194]ear was a [212]eddy [194]ear"
  22. 535 print"who spent all of last year at"
  23. 537 print"the [212]oy [211]tore.
  24. 550 [153]"  (NULL)oor little left$uggy wanted to"
  25. 560 [153]"find a home with a nice little"
  26. 570 [153]"boy or girl before lenhristmas,"
  27. 580 [153]"but he was way up on the top"
  28. 590 [153]"shelf where people couldn't"
  29. 595 [153]"notice him.  "[199](34)"right$'ll (NULL)val(NULL)val(NULL) find a"
  30. 597 [153]"home this way,"[199](34)" he thought."
  31. 610 d[178]30:[141]3920:[151]53265,27:na$[178]"toy store":np[178]2:[137]140
  32. 630 [151]53265,27:[141]210:[151]sc,15:[151]bc,15:::v[178]53248:[151]24568,111:[151]v[170]39,9:[151]v,225:[151]v[170]1,71::
  33. 670 [151]24569,105:[151]v[170]40,5:[151]v[170]2,190:[151]v[170]3,164:[151]v[170]28,6:[151]v[170]37,7:[151]v[170]38,9::
  34. 690 [151]24570,104:[151]v[170]41,6:[151]v[170]4,190:[151]v[170]5,185:[151]v[170]21,7:d[178]10:[141]3920::
  35. 720 [158]878:[141]260:[151]v[170]21,0:[151]53272,23
  36. 730 [141]4260
  37. 740 [153]"  left$uggy thought, "[199](34)"(NULL)hen it gets
  38. 750 print"dark, [201]'ll slip out of this"
  39. 760 print"store and see what it's like"
  40. 765 print"outside!"chr$(34)
  41. 770 d=20:gosub3920:print"[147]"
  42. 780 sys913:gosub210:pokev+21,1:poke53280,0:poke53281,0:print"[147]":d=5:gosub3920::
  43. 820 s0=24568:s1=24569:s2=24570:s3=24571:s4=24572:s5=24573:s6=24574:s7=24575
  44. 830 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
  45. 840 pokes0,109:fort=1to500:next:pokes0,110:pokev+1,90:fort=1to500:next:pokes0,109:pokev+1,110:fort=1to500:next
  46. 870 pokes0,109:pokev+1,130:fort=1to500:next:pokes0,110:pokev+1,150:fort=1to500:next
  47. 890 pokes0,109:pokev+1,170:fort=1to500:next:pokes0,110:pokev+1,186:fort=1to500:next:x=225:fori=1to9
  48. 920 pokes0,103:pokev,x:fort=1to300:next:x=x-10:pokes0,102:pokev,x:fort=1to300:next:x=x-10:next::
  49. 980 pokes0,110:pokev+1,170:fort=1to500:next:pokes0,109:pokev+1,165:fort=1to500:next
  50. 1000 pokes0,110:pokev+1,150:fort=1to500:next:pokes0,109:pokev+1,150:fort=1to500:next:gosub310::
  51. 1030 pokev+21,0:print"[147]":gosub260:poke53281,0:sys860:pokep7,245:pokev+46,1:pokev+14,100:pokev+15,100
  52. 1050 pokep6,243:pokev+45,5:pokev+12,50:pokev+13,170:pokev+23,97:pokev+29,64
  53. 1060 pokep5,244:pokev+44,9:pokev+10,150:pokev+11,170:pokev+28,33:pokev+37,0:pokev+38,5
  54. 1080 pokep2,249:pokev+41,8:pokev+16,4:pokev+4,50:pokev+5,195:pokep1,243:pokev+40,5:pokev+2,120:pokev+3,195
  55. 1100 fort=1to50:poke214,rnd(ti)*16+1:print"[145]"spc(rnd(ti)*39+1)".":next:print"
  56. 1110 [151]p0,244:[151]v[170]39,9:[151]v[170]0,255:[151]v[170]1,195:[151]v[170]21,229:[151]53272,23
  57. 1130 [151]214,17:[153]""[163]24)[199](142)"contstep   (NULL)":[153][163]24)"verify # # 
  58. 1150 w$="   so huggy ran off that ":w$=w$+"night, not knowing where he
  59. 1170 w$[178]w$[170]"was going, or what might happen.  it was dark and cold but his 
  60. 1180 w$=w$+"100% acrylic fur kept him warm.":pokev+21,231:gosub3960:gosub4060:gosub3990:sys860
  61. 1210 forx=305to0step-5:pokep2,248:fort=1to50:next:ifx<256thenpokev+16,0:pokev+4,x
  62. 1240 ifx>255thenpokev+16,4:pokev+4,x-255
  63. 1250 pokep2,249:fort=1to100:next:next:pokev+21,229
  64. 1280 gosub4060:w$="  but a hungry wolf was on the prowl,
  65. 1290 w$[178]w$[170]" searching for any scraps of food in the dead of winter.  the
  66. 1300 w$=w$+" wolf was too hungry to realize that wolves don't eat teddy bears!
  67. 1310 [141]3960:[141]3990:[151]v[170]21,231:[151]v[170]41,12:[129]x[178]305[164]0[169][171]5:[151]p2,247:[129]t[178]1[164]50:[130]
  68. 1340 [139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  69. 1350 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  70. 1360 [151]p2,246:[129]t[178]1[164]50:[130]:[130]:d[178]5:[141]3920:[153]"load":[158]860:[151]v[170]0,100:[151]v[170]2,30:[151]v[170]10,50:[151]v[170]12,250
  71. 1400 [129]t[178]1[164]50:[151]214,[187](ti)[172]16[170]1:[153]"on"[166][187](ti)[172]39[170]1)".";:[130]:[153]"
  72. 1410 w$="  fortunately huggy heard the wolf scrambling toward him in time to ge
  73. 1420 w$[178]w$[170]"t away.   gosh!  wolves are bigger than dogs!":[141]3960:[141]4060
  74. 1430 [141]3990:[151]v[170]41,8:[129]x[178]310[164]0[169][171]10:[151]p2,248:[129]t[178]1[164]5:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  75. 1460 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  76. 1470 [151]p2,249:[130]:::[151]v[170]41,12:[129]x[178]310[164]0[169][171]10:[151]p2,247:[129]t[178]1[164]5:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  77. 1520 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  78. 1530 [151]p2,246:[129]t[178]1[164]5:[130]:[130]:::d[178]5:[141]3920:[151]53272,23:[151]v[170]21,0:
  79. 1560 [141]4260:[153]"  "[199](34)"(NULL)y only chance is to find a"
  80. 1570 [153]"tall tree and climb it,"[199](34)" left$uggy
  81. 1580 print"thought.  "chr$(34)"[201] don't think wolves"
  82. 1590 print"can climb trees."chr$(34)
  83. 1600 print"  [200]uggy [194]ear was starting to get
  84. 1610 [153]"tired and the wolf was gaining.
  85. 1620 print"[198]inally he spotted a tall enough
  86. 1630 [153]"tree in the distance and ran"
  87. 1635 [153]"toward it."
  88. 1640 d[178]20:[141]3920:na$[178]"tree":np[178]3:[137]140
  89. 1650 [151]53265,27:[141]210:[151]sc,6:[151]s7,97:[151]v[170]15,100:[151]v[170]21,128::
  90. 1655 [151]24551,95
  91. 1670 [151]53281,5:[153]"load":[151]53281,0:[151]v[170]41,8:[151]v[170]5,195:[151]v[170]21,132:[129]x[178]305[164]210[169][171]5
  92. 1690 [151]s2,103:[129]t[178]1[164]10:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  93. 1710 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  94. 1720 [151]s2,102:[129]t[178]1[164]10:[130]:[130]:::[129]y[178]195[164]85[169][171]10:[151]s2,110:[129]t[178]1[164]10:[130]:[151]v[170]5,y
  95. 1780 [151]s2,109:[129]t[178]1[164]10:[130]:[130]:::[151]v[170]42,11:[151]v[170]7,190:[151]v[170]21,140:[129]x[178]305[164]230[169][171]5
  96. 1820 [151]s3,99:[129]t[178]1[164]10:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]6,x
  97. 1840 [139]x[177]255[167][151]v[170]16,8:[151]v[170]6,x[171]255
  98. 1850 [151]s3,98:[129]t[178]1[164]10:[130]:[130]:d[178]5:[141]3920:[158]878:[153]"load":[151]v[170]21,0:[153]"loadclr":[141]260:[151]53272,23
  99. 1880 [141]4260:[153]"  (NULL)oon the hungry wolf grew"
  100. 1890 [153]"tired of waiting for left$uggy peekear"
  101. 1900 [153]"to come down.  left$e left to look"
  102. 1910 [153]"for someone easier to catch."
  103. 1920 d[178]20:[141]3920:[153]"load":[158]913:[151]v[170]15,50:[151]v[170]21,140:[141]210:::[151]v[170]7,195:[129]x[178]230[164]0[169][171]5
  104. 1960 [151]s3,99:[129]t[178]1[164]30:[130]:[151]v[170]6,x:[151]s3,98:[129]t[178]1[164]30:[130]:[130]:[153]"load":[151]v[170]21,0:[141]260:[151]53272,23
  105. 2000 [141]4260:[153]"  left$uggy peekear was getting pretty
  106. 2010 print"tired after holding onto the"
  107. 2020 print"tree for hours.  [200]e decided to"
  108. 2030 print"climb down before he fell asleep"
  109. 2040 print"up there and hurt himself."
  110. 2050 d=20:gosub3920:print"[147]":sys913:gosub210:pokev+21,132:::fory=100to195step5:pokes2,109:fort=1to50:next:pokev+5,y
  111. 2100 pokes2,110:fort=1to50:next:next:::forx=210to100step-5:pokes2,103:fort=1to50:next:pokev+4,x
  112. 2150 pokes2,102:fort=1to50:next:next:pokev+21,128:::pokev+21,0:print"[147]":gosub260:poke53272,23
  113. 2190 gosub4260:print"  [207]ur little bear fell asleep"
  114. 2200 print"behind the bush.  [211]oon morning"
  115. 2210 print"came and a lost boy wandered"
  116. 2220 print"by.  [200]e decided to climb the"
  117. 2230 print"tree to see where he was."
  118. 2240 d=20:gosub3920:print"[147]":sys913:pokesc,14:gosub210:::pokev,0:pokev+23,0
  119. 2270 pokev+39,4:pokev+28,1:pokev+37,7:pokev+38,0:pokev+1,200:pokev+21,1
  120. 2280 c$="0011121506"
  121. 2290 fort=1tolen(c$)-1step2:poke53281,val(mid$(c$,t,2)):poke53280,peek(53281):fori=1to50:next:next
  122. 2310 forx=305to120step-5:pokes0,90:fort=1to30:next:ifx<256thenpokev+16,0:pokev,x
  123. 2340 ifx>255thenpokev+16,1:pokev,x-255
  124. 2350 pokes0,96:fort=1to30:next:next:pokes0,94:d=2:gosub3920:::forx=120to210step5:pokes0,89:fort=1to30:next:pokev,x
  125. 2420 pokes0,88:fort=1to50:next:next:pokes0,94:fort=1to500:next:::fory=195to90step-10:pokes0,92:fort=1to200:next
  126. 2470 pokev+1,y:pokes0,93:fort=1to200:next:next:d=3:gosub3920:::pokev+21,0:print"[147]":gosub260:poke53281,6:poke53272,23
  127. 2520 gosub4260:print"  [198]rom the top of the tree the
  128. 2530 [153]"boy could see his home, so he":[153]"knew which way to go.
  129. 2550 print"  [194]ut climbing down was not as
  130. 2560 [153]"easy as going up.  (NULL)he tree was"
  131. 2570 [153]"hard to hold on to.  (NULL)he boy"
  132. 2580 [153]"tried to be careful but slipped"
  133. 2590 [153]"and fell to the ground!":d[178]20:[141]3920
  134. 2600 [153]"load":[158]913:[141]210:[151]sc,6:[151]v[170]21,1
  135. 2620 [129]y[178]90[164]110[169]10:[151]s0,93:[129]t[178]1[164]300:[130]:[151]v[170]1,y:[151]s0,92:[129]t[178]1[164]300:[130]:[130]
  136. 2660 [151]v,200:[151]v[170]1,130:[129]t[178]1[164]100:[130]:[151]v,190:[151]v[170]1,150:[129]t[178]1[164]50:[130]
  137. 2680 [151]v,180:[151]v[170]1,170:[151]s0,91:[129]t[178]1[164]50:[130]:[151]v,175:[151]v[170]1,190:[129]t[178]1[164]50:[130]:[151]v,170:[151]v[170]1,210
  138. 2710 d[178]10:[141]3920:::[151]v[170]21,5:[151]v[170]41,9:[129]x[178]100[164]150[169]5:[151]s2,107:[129]t[178]1[164]100:[130]:[151]v[170]4,x
  139. 2770 [151]s2,108:[129]t[178]1[164]100:[130]:[130]:[129]t[178]1[164]4000:[130]:::[151]v[170]21,0:[153]"load":[141]260:[151]sc,6:[151]53272,23
  140. 2810 [141]4260:[153]"  "[199](34)"(NULL)hat happened?  str$id you
  141. 2820 print"fall out of that tree?"chr$(34)"[160]he asked.
  142. 2830 [153]"peekut the boy didn't answer."
  143. 2840 [153]"  left$uggy peekear was afraid the boy"
  144. 2850 [153]"was badly hurt.  "[199](34)"right$'d better
  145. 2860 print"go get help."chr$(34)"  [211]o he ran"
  146. 2870 print"through the woods to the houses"
  147. 2880 print"he had seen in the distance.
  148. 2890 d[178]20:[141]3920:[158]ad[170]3,1,"woods":[158]ad[170]3,2,"home":[141]410
  149. 2900 [151]v[170]43,9:[151]v[170]9,195:[151]v[170]21,31:[151]2023,160:[151]2023[170]54272,13
  150. 2930 [129]x[178]0[164]305[169]10:[151]p4,254:[129]t[178]1[164]20:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]8,x
  151. 2960 [139]x[177]255[167][151]v[170]16,16:[151]v[170]8,x[171]255
  152. 2970 [151]p4,253:[129]t[178]1[164]20:[130]:[130]:[151]v[170]21,0:[151]v[170]16,0:[151]v[170]23,0:[151]v[170]29,0:[141]330:[151]p5,242:[151]p6,241
  153. 3010 [151]v[170]44,2:[151]v[170]45,6:[151]v[170]13,190:[151]v[170]11,169:[151]v[170]10,180
  154. 3020 [151]v[170]12,180:[151]v[170]21,247
  155. 3040 [129]x[178]0[164]120[169]10:[151]p4,254:[129]t[178]1[164]20:[130]:[151]v[170]8,x:[151]p4,253:[129]t[178]1[164]20:[130]:[130]:[151]p4,252:[151]53281,6
  156. 3050 [151]2023,160:[151]2023[170]54272,5
  157. 3090 w$[178]"   "[170][199](34)[170]"a little boy fell out of a tree and hurt himself!
  158. 3100 w$=w$+"  i can't wake him!  can you come and help?"+chr$(34):gosub3960
  159. 3110 gosub4060:gosub3990:d=1:gosub3920:forx=120to0step-10:pokep4,248:fort=1to20:next:pokev+8,x
  160. 3150 pokep4,249:fort=1to20:next:next:forx=180to0step-10:pokep5,242:pokep6,240:fort=1to20:next:pokev+10,x:pokev+12,x
  161. 3190 pokep5,242:pokep6,239:fort=1to20:next:next:gosub410:pokev+21,127:forx=305to0step-10:pokep4,248:fort=1to20:next
  162. 3230 ifx<256thenpokev+16,0:pokev+8,x
  163. 3240 ifx>255thenpokev+16,16:pokev+8,x-255
  164. 3250 pokep4,249:fort=1to20:next:next:forx=305to0step-10:pokep5,242:pokep6,240:fort=1to20:next
  165. 3280 ifx<256thenpokev+16,0:pokev+10,x:pokev+12,x
  166. 3290 ifx>255thenpokev+16,96:pokev+10,x-255:pokev+12,x-255
  167. 3300 pokep5,242:pokep6,239:fort=1to20:next:next:::print"[147]":sys913:pokev+21,0:gosub210:pokev+21,240:pokev+23,0
  168. 3330 pokes7,91:pokev+46,4:pokev+28,224:pokev+14,170:pokev+15,210:pokev+9,200:forx=305to135step-10
  169. 3340 poke2023,160:poke2023+54272,13
  170. 3350 pokes4,102:fort=1to20:next:ifx<256thenpokev+16,0:pokev+8,x
  171. 3370 ifx>255thenpokev+16,16:pokev+8,x-255
  172. 3380 pokes4,103:fort=1to20:next:next:pokes4,108:forx=305to180step-10:pokev+13,205:pokev+11,184
  173. 3420 pokes5,87:pokes6,85:fort=1to20:next:ifx<255thenpokev+16,0:pokev+10,x:pokev+12,x
  174. 3440 ifx>255thenpokev+16,96:pokev+10,x-255:pokev+12,x-255
  175. 3450 pokes5,87:pokes6,84:fort=1to20:next:next:fort=1to1500:next:pokes6,86
  176. 3460 pokev+21,0:print"[147]":gosub260:pokesc,6:poke53272,23
  177. 3490 gosub4260:print"  "chr$(34)"[212]hat's my little brother!"chr$(34)
  178. 3510 print"said the girl.  "chr$(34)"[201]'ll carry him"
  179. 3520 print"back to the house."chr$(34)
  180. 3530 print"  [211]he lifted her brother and"
  181. 3540 print"began walking home with him in"
  182. 3550 print"her arms.  [200]uggy [194]ear followed"
  183. 3560 print"them.":d=20:gosub3920
  184. 3580 print"[147]":sys913:gosub210:pokesc,6:pokes5,83:pokes6,82:pokev+21,112:forx=180to255step10
  185. 3590 poke2023,160:poke2023+54272,13
  186. 3610 pokes5,83:pokes6,81:fort=1to100:next:pokev+10,x:pokev+12,x:pokes5,83:pokes6,82:fort=1to100:next:next::
  187. 3650 pokev+21,0:print"[147]":gosub260:gosub330:pokev+8,0:pokev+10,0:pokev+12,0:pokev+9,190:pokev+11,169:pokev+13,190
  188. 3660 poke2023,160:poke2023+54272,5
  189. 3680 pokev+21,227:forx=0to210step10:pokep5,238:pokep6,236:fort=1to100:next:pokev+10,x:pokev+12,x
  190. 3720 pokep5,238:pokep6,237:fort=1to100:next:next:pokev+21,147:forx=0to210step10:pokep4,254:fort=1to100:next
  191. 3760 pokev+8,x:pokep4,253:fort=1to100:next:next:pokev+21,131:d=5:gosub3920:pokev+21,0:print"[147]
  192. 3800 [151]bc,6:[151]sc,6:[151]v[170]23,0:[151]v[170]29,0
  193. 3810 [141]4260:[153]"  left$uggy peekear and the girl ran
  194. 3820 print"into the house and called for the":print"children's parents.
  195. 3840 [153]"  "[199](34)"right$'m scared.  (NULL)hat should we
  196. 3850 print"do?"chr$(34)" asked the girl.":d=20:gosub3920
  197. 3855 clr:load"hbxmas pt2",8
  198. 3920 ti$="000000":poke198,0
  199. 3930 ifval(ti$)<dandpeek(198)=0then3930
  200. 3940 geta$:return
  201. 3960 wx=0:fori=1tolen(w$):w%(i)=0:ifmid$(w$,i,1)=" "thenwx=wx+1:w%(wx)=i
  202. 3970 next:w%(wx+1)=len(w$)+1:return
  203. 3990 fort=217to242:poket,peek(t)or128:next:print""tab(21);:wx=1
  204. 4010 poke199,1:printmid$(w$,w%(wx),w%(wx+1)-w%(wx));:ifw%(wx+2)=0then:poke199,0:return
  205. 4030 ifpos(0)+(w%(wx+2)-w%(wx+1))>38thenprintchr$(13)spc(20);
  206. 4040 wx=wx+1:goto4010
  207. 4060 print"":fort=20to38:print""tab(t)bo$:next:return
  208. 4070 poke53281,0:poke53280,0:print"[147][158]
  209. 4080 [129]i[178]1[164]11:[153]"stepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepsteplist(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";:[130]
  210. 4090 [129]i[178]1[164]11:[153]"print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)pokestepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstepstep";:[130]:[153]"sys
  211. 4100 fori=217to242:pokei,peek(i)or128:next:poke214,5
  212. 4110 print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]":next:poke214,6:poke211,4:sys58732
  213. 4130 print"[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][192][192][192][192][192][192][174]":printtab(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]
  214. 4150 [151]214,16:[151]211,4:[158]58732:[153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  215. 4170 printtab(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":poke214,7:print:a$="[200][213][199][199][217][160][194][197][193][210]'[211]":gosub4250
  216. 4190 a$="[198][201][210][211][212][160][195][200][210][201][211][212][205][193][211]":gosub4250:print:a$="by [215]illiam [207]. [206]elson":gosub4250
  217. 4210 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#67":gosub4250
  218. 4220 a$="[211]ubscriptions 1-800-831-2694":gosub4250
  219. 4230 a$="([195]) 1989 [215]illiam [207]. [206]elson":gosub4250
  220. 4240 poke214,23:print:printtab(14)"[208]ress [211][208][193][195][197]":return
  221. 4250 printspc(20-len(a$)/2)"[152]"a$:return
  222. 4260 print"[147][156]";:poke53281,0:poke53280,0:print" [176][174]                                  [176][174]
  223. 4280 [153]"or(NULL)(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)(NULL)^";
  224. 4290 [153]"(NULL)(NULL)-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<(NULL)(NULL)";
  225. 4300 [153]"/<(NULL)                                  (NULL)-exp";:[129]i[178]1[164]17
  226. 4320 [153]" (NULL)(NULL)                                  (NULL)(NULL)":[130]
  227. 4330 [153]"or<(NULL)                                  (NULL)-^";
  228. 4340 [153]"(NULL)(NULL)-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<(NULL)(NULL)";
  229. 4350 [153]"/(NULL)(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)(NULL)exp";
  230. 4360 [153]" /exp     open(NULL)ress (NULL)(NULL)atnlenval opento continue     clr /expprint":[142]
  231. 10000 [159]15,8,15,"s0:hbxmas pt1":[160]15:[148]"hbxmas pt1",8:[128]
  232.