home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 218 / 218.d81 / b.chanukah (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  111 lines
  1. 10 dv=peek(186):ifdv<8thendv=8:rem set  drive
  2. 20 poke56,52:poke52,52:rem lower top of basic
  3. 30 poke53281,0:poke53280,0:print"[147][159]":gosub660
  4. 37 :
  5. 38 :rem load pic stuff
  6. 39 :
  7. 40 sys57812"unpacker1.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 50 sys57812"menorah.shp",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  9. 57 :
  10. 58 :rem change to bank 1 - unpack and   display pic
  11. 59 :
  12. 60 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or2
  13. 70 poke251,52:poke252,64:poke253,96
  14. 80 poke53280,0:sys51456:sys51459
  15. 87 :
  16. 88 :rem load rest of stuff
  17. 89 :
  18. 90 sys57812"ch.sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  19. 100 sys57812"ch.scripter cc00",dv,0:poke780,0:poke781,0:poke782,204:sys65493
  20. 110 sys57812"chan.fnt",dv,0:poke780,0:poke781,0:poke782,120:sys65493
  21. 120 sys57812"chan.spr",dv,0:poke780,0:poke781,0:poke782,117:sys65493
  22. 130 sys57812"o! chanukah.mus",dv,0:poke780,0:poke781,0:poke782,106:sys65493
  23. 140 sys57812"mi y'malel.mus",dv,0:poke780,0:poke781,0:poke782,112:sys65493
  24. 150 poke648,96:poke53272,129:rem set    screen and color
  25. 157 :
  26. 158 :rem night strings
  27. 159 :
  28. 160 fori=0to7:readd$(i):next
  29. 170 data" [198]irst ","[211]econd "," [212]hird ","[198]ourth "," [198]ifth "," [211]ixth "
  30. 180 data"[211]eventh","[197]ighth "
  31. 190 sp=96*256+1016:v=53248:rem sprite   pointers - vic chip
  32. 200 sc=52224:syssc,64,96,120:rem setup  hi-res scripter
  33. 207 :
  34. 208 :rem setup sprites
  35. 209 :
  36. 210 fori=0to7:pokesp+i,212+i:pokev+39+i,7:next
  37. 220 pokev+16,0:pokev+29,0:pokev+23,0:pokev+28,0
  38. 230 fori=8to0step-1:readx(i),y(i):next:rem flame locations
  39. 240 data172,57,104,89,120,81,136,73,152,65,192,65,208,73,224,81,240,89
  40. 250 fori=0to7:readxx(i),yy(i):next:rem  red char locations
  41. 260 data28,6,26,5,24,4,22,3,17,3,15,4,13,5,11,6
  42. 270 fori=0to24:poke54272+i,0:next:rem   clear sid
  43. 277 :
  44. 278 :rem main loop - night 1 to 7
  45. 279 :
  46. 280 fori=0to6
  47. 290 sys49435:poke781,0:poke782,106+6*(iand1):sys49458:poke49152,7:rem music
  48. 300 pokev+14,x(8):pokev+15,y(8):rem     middle flame
  49. 310 pokev+2*i,x(i):pokev+1+2*i,y(i):rem loop flame
  50. 320 syssc+6,2,18,"[149]"+d$(i):rem night message
  51. 330 syssc+6,2,19," [206]ight "
  52. 340 pokev+21,peek(v+21)or(128+2^i):rem  turn on sprites
  53. 350 syssc+6,xx(i),yy(i),"[144] [146]":rem   red part of flames
  54. 360 syssc+6,19,2,"[144]<>":rem middle    flame red part
  55. 370 forj=0toi:pokesp+j,212+int(rnd(1)*8):next:rem flame wiggle
  56. 380 pokesp+7,212+int(rnd(1)*8)
  57. 390 geta$:ifpeek(49152)=7anda$=""then370
  58. 400 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629:rem music off
  59. 410 next
  60. 417 :
  61. 418 :rem eighth flame
  62. 419 :
  63. 420 pokev+14,x(7):pokev+15,y(7)
  64. 430 pokev+21,255
  65. 440 syssc+6,19,1,"[155][\[157][157]]^"
  66. 450 syssc+6,xx(7),yy(7)," [146]"
  67. 460 syssc+6,2,18,"[149]"+d$(7)
  68. 470 syssc+6,30,18,"[155]([193][155])gain"
  69. 480 syssc+6,30,20,"[155]([209][155])uit"
  70. 490 sys49435:poke781,0:poke782,106:sys49458:poke49152,7
  71. 500 q=(q+1)and7:fori=0to7:pokesp+i,212+q:next:rem flame wiggle
  72. 510 ifpeek(49152)=0thenpoke54276,0:poke54283,0:poke54290,0:sys49629:goto490
  73. 520 geta$:ifa$=""then500
  74. 530 ifa$="a"ora$="[193]"then560
  75. 540 ifa$="q"ora$="[209]"then600
  76. 550 goto520
  77. 557 :
  78. 558 :rem music off and redisplay pic for another round
  79. 559 :
  80. 560 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629:pokev+21,0
  81. 570 print"[147]":sys51459:poke251,52:poke252,64:poke253,96:sys51456:sys51459
  82. 580 goto270
  83. 597 :
  84. 598 :rem return to ls
  85. 599 :
  86. 600 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629:pokev+21,0
  87. 602 print"[147]":sys51459
  88. 610 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen630
  89. 620 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then640
  90. 630 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  91. 640 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  92. 650 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  93. 657 :
  94. 658 :rem copyright notice
  95. 659 :
  96. 660 print"[147]":z$=" [152]                                      ":poke214,10:print
  97. 670 print" [155][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][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  98. 680 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  99. 690 z$(0)="[195] [200] [193] [206] [213] [203] [193] [200]":z$(1)="by [203]enneth [194]arsky
  100. 700 z$(2)[178]"(len) 1993 by (NULL)oftdisk (NULL)ublishing"[170][199](13)
  101. 710 z$(3)[178]"(NULL)his program is the copyrighted work
  102. 720 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]t is not"
  103. 730 z$(5)="shareware or in the public domain."
  104. 740 z$(6)="[210]eport illegal distribution of":z$(7)="this program by calling"
  105. 750 z$(8)="1-800-831-2694 or 1-318-221-8718.":poke214,12:print
  106. 760 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  107. 767 :
  108. 768 :rem scratch and save
  109. 769 :
  110. 10000 open15,8,15,"s0:b.chanukah":close15:save"b.chanukah",8:end
  111.