home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / dallas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  167 lines
  1. 1 gosub60000
  2. 2 printchr$(142)
  3. 50 rem::::dallas (barbies horse)::::::
  4. 60 rem::::by m. n. carswell:::::::::::
  5. 70 rem::::486 s. steel bridge rd.s.e.:
  6. 80 rem::::eatonton, ga.31024::::::::::
  7. 110 s=54272:pokes+24,15:pokes,220:pokes+1,68:pokes+5,15:pokes+6,215
  8. 120 print chr$(147)
  9. 130 pokes+7,120:pokes+8,100:pokes+12,15:pokes+13,215
  10. 200 rem *** dallas headline ***
  11. 210 va=1024:ca=55296:cc=ca-va
  12. 220 g(0)=32:g(1)=160:g(2)=98:g(3)=226
  13. 230 g(4)=223:g(5)=105:g(6)=95:g(7)=233
  14. 240 dim l$(26)
  15. 250 l$(1)="6071117111115230162304111104111":rem ***letter a-1***
  16. 260 l$(4)="6111111111113021130211111141115":rem ***letter d-4***
  17. 270 l$(12)="51111111111000010000100001":rem ***letter l-12***
  18. 280 l$(19)="57160111101101011011110415":rem ***letter s-19***
  19. 290 a$="":u$=chr$(145):c$=chr$(147)
  20. 300 rem ***show headline ***
  21. 310 h=5:poke 53280,3:poke 53281,3
  22. 320 print c$
  23. 330 a$="dallas":x=va+321
  24. 340 rem *** headline subroutine***
  25. 350 for a=1to len(a$)
  26. 360 b=asc(mid$(a$,a,1))-64
  27. 370 c=2
  28. 380 for d=x to x+val(left$(l$(b),1))-1
  29. 390 for e=d to d+(h-1)*40 step 40
  30. 400 poke e+cc,2
  31. 410 poke e,g(val(mid$(l$(b),c,1)))
  32. 420 c=c+1
  33. 430 next e
  34. 440 next d
  35. 450 x=d+1
  36. 460 next a
  37. 470 poke214,13:print:poke211,8:print"barbie's favorite horse"
  38. 480 poke214,19:print:poke211, 5:print"[144]one moment please";
  39. 600 v=53248:rem initializes address of vidio chip ***
  40. 610 rem ****clear all sprite registers****
  41. 620 pokev+16,0:pokev+21,0:pokev+23,0:pokev+29,0
  42. 630 rem **** set pointers for sprites 0-3-4-5-7****
  43. 640 poke 2040,192:poke2043,192:poke2044,192:poke2045,200
  44. 645 poke2047,199:rem cloud******
  45. 650 rem ****set data read areas****
  46. 660 for b=0 to 8:for n=0 to 62:read a:poke(192+b)*64+n,a:nextn:print"[209]";:next
  47. 670 rem ****color sprites****
  48. 680 pokev+39,9:pokev+40,0:pokev+41,0:pokev+42,9:pokev+43,9:pokev+44,7
  49. 685 pokev+45,0:pokev+46,1
  50. 730 rem ****set initial position of sprites****
  51. 740 pokev +0,170:pokev+ 1,185:rem ***fat tree***pointer 192***sprite 0
  52. 770 pokev +6,140:pokev +7,155:rem ***small tree***pointer 192****sprite 3
  53. 780 pokev +8, 50:pokev +9,165:rem ***tall tree***pointer 192***sprite 4
  54. 790 pokev+10, 24:pokev+11, 50:rem ***sun******pointer 200***sprite 5
  55. 810 pokev+14,0:pokev+15, 85:rem ***cloud******pointer 199***sprite 7
  56. 850 rem interrupt routine
  57. 860 poke251,5:poke252,3
  58. 870 for t=49152 to 49229:read a:poke t,a:next:sys49152
  59. 900 rem *** barn scene ***
  60. 905 print"[147]"
  61. 910 poke53280,2:poke53281,2
  62. 920 for i=1 to16
  63. 930 print"[154]                                       [146]"
  64. 940 next
  65. 950 print tab(26)"[145][169][205] barbie [223]"
  66. 960 print"[154]                                       [146]"
  67. 970 print tab(25)"[145][169]  [205] farms  [223]"
  68. 980 print"[154]                                       [146]"
  69. 990 print tab(24)"[145][169]    [205][164][164][164][164][164][164][164][164][223]"
  70. 1000 print"[154]                        [146] [144]    [146][154][167]  see   [167]"
  71. 1010 print"[153]                        [146] [144]    [146][154][167]  rock  [167]"
  72. 1020 print"[153]                        [146] [144]    [146][154][167]  city  [167]"
  73. 1030 print"[153]                        [146] [144]    [146][154][167]        [167]"
  74. 1040 print"[144]                                       [146]"
  75. 1050 print"                                       [146]"
  76. 1060 print"                                       [146]"
  77. 1070 print"                                       [146]"
  78. 1080 print"                                       [146]"
  79. 1090 rem ****turn on multi color mode for sprites 0, 3 and 4 *******
  80. 1092 pokev+28,25:pokev+37,13:pokev+38,5
  81. 1094 rem ****expand sprites****
  82. 1096 pokev+23,233:rem sprites 0,3,5,6 and 7****
  83. 1098 pokev+29,225:rem
  84. 1100 rem ****turn on sprites****
  85. 1110 pokev+21, 255
  86. 1120 rem ****move horse sprite right****
  87. 1130 p=193
  88. 1150 for x=0to230 step 3
  89. 1155 ifpeek(197)<>64then63000
  90. 1160 poke v+2,x:pokev+3,183
  91. 1170 if p=193 then gosub 3900
  92. 1180 if p=194 then gosub 3950
  93. 1190 poke 2041,p:for d=1 to 60:next d
  94. 1200 p=p+1:if p>195 then p=193
  95. 1210 next x
  96. 1220 rem ****move horse sprite left****
  97. 1240 for d=1 to 100:next d
  98. 1250 p=196
  99. 1260 for x=230 to 0 step-3
  100. 1265 ifpeek(197)<>64then63000
  101. 1270 pokev+4,x:pokev+5,183
  102. 1280 if p=197 then gosub 3900
  103. 1290 if p=198 then gosub 3950
  104. 1300 poke 2042,p:for d=1 to 60:next d
  105. 1310 p=p+1:if p>198 then p=196
  106. 1320 next x
  107. 1330 goto 1130
  108. 3900 pokes+4,129:pokes+4,128:return
  109. 3950 pokes+11,129:pokes+11,128:return
  110. 4000 rem **** tree **** pointer 192 ****
  111. 4010 data 0,60,0,0,255,0,3,255,192,15,253,240,15,63,240,63,255,252,63,255,252
  112. 4020 data 63,247,220,63,255,252,63,247,220,61,255,252,63,255,252,15,255,240
  113. 4030 data 15,247,240,3,255,192,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0
  114. 4100 rem **** horse 1 right **** pointer 193 ****
  115. 4110 data 0,0,0,0,0,60,0,0,126,0,0,122,0,0,254,0,1,246,0,3,246,11,195,242
  116. 4120 data 23,255,240,23,255,240,23,255,240,23,255,240,35,255,224,7
  117. 4130 data 129,224,5,0,176,4,128,136,4,128,144,4,128,160,4,64,128,2,32,64,0,0,0
  118. 4200 rem **** horse 2 right **** pointer 194 ****
  119. 4210 data 0,0,0,0,0,28,0,0,62,0,0,250,0,1,254,0,1,246,0,3,246,27,195,242
  120. 4220 data 39,255,240,39,255,240,39,255,240,39,255,240,67,255,224,7
  121. 4230 data 128,88,4,64,68,8,32,130,16,17,1,32,18,1,64,2,0,0,0,0,0,0,0
  122. 4300 rem **** horse 3 right **** pointer 195 ****
  123. 4310 data 0,0,0,0,0,28,0,0,62,0,0,122,0,0,254,0,1,246,0,3,246,19,195,242
  124. 4320 data 71,255,240,71,255,240,71,255,240,71,255,240,131,255,224,7
  125. 4330 data 129,62,5,128,132,8,128,72,16,128,144,16,65,96,48,38,0,0,48,0,0,0,0
  126. 4400 rem ****horse 1 left **** pointer 196 ****
  127. 4410 data 0,0,0,60,0,0,126,0,0,94,0,0,127,0,0,111,128,0,111,192,0,79,195,208
  128. 4420 data 15,255,232,15,255,232,15,255,232,15,255,232,7,255,196,7
  129. 4430 data 129,224,13,0,160,17,1,32,9,1,32,5,1,32,1,2,32,2,4,64,0,0,0
  130. 4500 rem ****horse 2 left **** pointer 197 ****
  131. 4510 data 0,0,0,56,0,0,124,0,0,95,0,0,127,128,0,111,128,0,111,192,0,79,195,216
  132. 4520 data 15,255,228,15,255,228,15,255,228,15,255,228,7,255,194,26
  133. 4530 data 1,224,34,2,32,65,4,16,128,136,8,128,72,4,0,64,2,0,0,0,0,0,0
  134. 4540 rem ****horse 3 left **** pointer 198 ****
  135. 4550 data 0,0,0,56,0,0,124,0,0,94,0,0,127,0,0,111,128,0,111,192,0,79,195,200
  136. 4560 data 15,255,226,15,255,226,15,255,226,15,255,226,7,255,193,124
  137. 4570 data 129,224,33,1,160,18,1,16,9,1,8,6,130,8,0,100,12,0,12,0,0,0,0
  138. 4600 rem ****cloud**** pointer 199 ****
  139. 4610 data 0,0,0,1,224,0,3,248,0,7,252,192,15,255,224,15,255,240,31,255,248,63
  140. 4620 data 255,252,63,255,252,63,255,252,63,255,252,63,255,252,15,251,240,3
  141. 4630 data 243,192,1,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  142. 4700 rem ****sun**** pointer 200 ****
  143. 4710 data 0,0,0,0,0,0,0,0,0,0,255,0,3,255,128,7,255,224,7,255,224
  144. 4720 data 15,255,240,31,255,248,31,255,248,31,255,248,31,255,248,15,255,240
  145. 4730 data 7,255,224,7,255,224,3,255,192,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
  146. 5200 rem ::this is interrupt routine
  147. 5210 data 120,169,13,141,20,3,169,192,141,21,3,88,96,198,251,165,251,240,3,76
  148. 5220 data 74,192,173,16,208,41,128,240,23,173,14,208,201,101,208,31,173,16,208
  149. 5230 data 41,127,141,16,208,169,0,141,14,208,76,67,192,173,14,208,201,255,208
  150. 5240 data 8,173,16,208,9,128,141,16,208,238,14,208,165,252,133,251,76,49,234,0
  151. 60000 t$="                         ":c=0:c$="":print"[147]":poke53281,0
  152. 60030 printspc(7)""t$:printspc(7)"         [196][193][204][204][193][211]          [146]"
  153. 60051 printspc(7)""t$:print:printtab(18)"by"
  154. 60060 print:printspc(13)"[205].[206]. [195]arswell"
  155. 60070 print:printspc(12)"[195]opyright 1985"
  156. 60080 print:print:print:print"     [204][207][193][196][211][212][193][210] is not public domain."
  157. 60090 print:print"  [208]lease respect the author's rights."
  158. 60100 print:print"      [208]ress space bar to continue."
  159. 60110 forcc=1to48:getk$:ifk$=" "then60130
  160. 60120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  161. 60125 next:goto60100
  162. 60130 printc$:return
  163. 63000 rem    connect back to l.s.
  164. 63001 pokev+21,0:poke788,49:poke789,234:pokev+28,0
  165. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  166. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  167.