home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 175 / 175.d81 / b.theme (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  180 lines
  1. 10 poke56,56:clr:poke788,49:tq=ti:poke53371,0
  2. 20 poke53281,0:poke53280,0
  3. 30 dv=peek(186):ifdv<8thendv=8
  4. 40 sys57812"theme font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  5. 50 sys57812"theme mouse 6000",dv,0:poke780,0:poke781,0:poke782,96:sys65493
  6. 60 sys57812"theme player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 70 ml=6*4096:mv=ml+177:pokemv+1,64:v=53248:sd=49152
  8. 80 pokev+21,0:sysml:sysml+6,704
  9. 90 sys49615
  10. 100 poke53272,31
  11. 107 :
  12. 108 :rem screen
  13. 109 :
  14. 110 sysml+30,0,39,0,24,254,2+32
  15. 120 sysml+30,1,38,1,7,160,7+16
  16. 130 print"";:sysml+27,2,"[196]ave [205]arquis'":print"[129]";
  17. 140 sysml+27,3,"[176][174][176][174][176][192][174][176]  [174][178][176][192][174]   [176][178][174][174] [176][176][192][174][176][174][176][174][176][192][174]"
  18. 150 sysml+27,4,"[221][173][189][221][221] [221][173][174][176][189][221][171][179]     [221] [171][192][179][171][179] [221][173][189][221][171][179]"
  19. 160 sysml+27,5,"[189]  [173][173][192][189] [173][189] [177][173][192][189]    [177] [189] [173][173][192][189][189]  [173][173][192][189]"
  20. 170 print"";:sysml+27,6,"[195] [207] [206] [212] [197] [211] [212]"
  21. 180 sysml+30,3,19,10,23,160,7+16
  22. 190 sysml+30,20,36,10,23,160,7+16
  23. 200 fori=0to19
  24. 210 sysml+12,7-17*(i>11),11+i+12*(i>11),"[212]heme"+str$(i+1)
  25. 220 next
  26. 230 sysml+12,22,19,"[208]rint [194]allot"
  27. 240 sysml+12,24,20,"[208]lay [193]ll"
  28. 250 sysml+12,24,21,"[195]redits"
  29. 260 sysml+12,23,22,"[209]uit to [204][211]"
  30. 270 pokemv+11,2
  31. 280 sysml+21,11,11
  32. 287 :
  33. 288 :rem main loop
  34. 289 :
  35. 290 sysml+156,2,4,18,21,35,11,22,5,1,"a"
  36. 300 pk=sl%
  37. 310 ifpk=0then290
  38. 320 ifpk=21thengosub450:goto290
  39. 330 ifpk=22thengosub1300:goto290
  40. 340 ifpk=23thengosub1210:goto290
  41. 350 ifpk=24thensysml+3:pokev+21,0:goto40000
  42. 357 :
  43. 358 :rem play a song
  44. 359 :
  45. 360 pokev+21,0:sysml+54,"theme"+str$(pk)+".mus",dv,66*256:pokev+21,3
  46. 370 poke781,0:poke782,66
  47. 380 sys49664
  48. 390 sysml+39,160:sysml+30,7,32,14,16,160,8+16
  49. 400 sysml+27,15,"[155]  [212]heme"+str$(pk)+"[154] is playing"
  50. 402 poke49152,7
  51. 410 sysml+9
  52. 420 ifl2%thensys49897:poke49152,0:poke54296,0:sysml+42,160:goto290
  53. 430 ifpeek(49152)=0thensysml+42,160:goto290
  54. 440 goto410
  55. 447 :
  56. 448 :rem ballot
  57. 449 :
  58. 450 sysml+39,168
  59. 460 sysml+30,14,26,12,14,160,8+16
  60. 470 sysml+30,14,26,17,19,160,8+16
  61. 480 sysml+15,1,14,26,12,14
  62. 490 sysml+15,2,14,26,17,19
  63. 500 sysml+12,18,13,"[208][154][210][201][206][212]"
  64. 510 sysml+12,16,18,"[198][154][207][210][199][197][212] [201][212]
  65. 520 [158]ml[170]9
  66. 530 [158]ml[170]60,"pf"
  67. 540 [139]cr%[178]2[176]i%[178]2[167][158]ml[170]42,168:[158]ml[170]24,10:[142]
  68. 550 [139]cr%[179][177]1[175]i%[179][177]1[167]520
  69. 560 g$[178]"     "
  70. 570 h$[178]"..............................."
  71. 580 [159]4,4,7
  72. 590 [157]4
  73. 600 [153]g$"(NULL)ame:......................"h$
  74. 610 [153]
  75. 620 [153]g$"atnddress:..................."h$
  76. 630 [153]
  77. 640 [153]g$"lenity/(NULL)tate:"h$"(NULL)right$(NULL):............
  78. 650 print
  79. 660 printg$"[195]ircle one letter per group. [193]s a tie-breaker, write the name of
  80. 662 [153]g$"the song on the dotted line. (NULL)end ballot to (NULL)(NULL) (NULL)left$val(NULL)val len(NULL)(NULL)(NULL)val(NULL)(NULL)
  81. 664 printg$"606 [195]ommon [211]treet, [211]hreveport [204][193] 71101. [196]eadline is [198]ebruary 28, 1999
  82. 670 [153]
  83. 680 [153]g$"1. "h$"     11. "h$
  84. 690 [153]g$"   atn. (NULL)he (NULL)homas lenrown atnffair              atn. (NULL)he (NULL)andpiper
  85. 700 printg$"   [194]. [201]ce [195]astles                          [194]. [204]ove [211]tory
  86. 710 [153]g$"   len. (NULL)ive and (NULL)et str$ie                     len. (NULL)omewhere right$n (NULL)ime
  87. 720 printg$"   [196]. [212]he [211]andpiper                        [196]. [198]ame
  88. 730 [153]g$"2. "h$"     12. "h$
  89. 740 [153]g$"   atn. peekig peekroadcast of 1938                atn. (NULL)omeo and mid$uliet
  90. 750 printg$"   [194]. [212]he [198]leet's [201]n                       [194]. [204]ove [211]tory
  91. 760 [153]g$"   len. (NULL)he (NULL)izard of (NULL)z                     len. str$r. (NULL)hivago
  92. 770 printg$"   [196]. [204]aura                                [196]. [211]omewhere [201]n [212]ime
  93. 780 [153]g$"3. "h$"     13. "h$
  94. 790 [153]g$"   atn. peekig peekroadcast of 1938                atn. (NULL)weet peekird of (NULL)outh
  95. 800 printg$"   [194]. [193]n [193]merican [201]n [208]aris                 [194]. [215]hat's [206]ew [208]ussycat?
  96. 810 [153]g$"   len. (NULL)anhattan                            len. right$ce lenastles
  97. 820 printg$"   [196]. [196]octor [218]hivago                       [196]. [212]he [212]homas [195]rown [193]ffair
  98. 830 [153]g$"4. "h$"     14. "h$
  99. 840 [153]g$"   atn. peeken                                  atn. peeken
  100. 850 printg$"   [194]. [199]oldfinger                           [194]. [199]oldfinger
  101. 860 [153]g$"   len. (NULL)ove (NULL)etters                         len. (NULL)aura
  102. 870 printg$"   [196]. [204]aura                                [196]. [201]ce [195]astles
  103. 880 [153]g$"5. "h$"     15. "h$
  104. 890 [153]g$"   atn. (NULL)ove right$s atn (NULL)any-(NULL)plendored (NULL)hing      atn. (NULL)weet lenharity
  105. 900 printg$"   [194]. [204]aura                                [194]. [212]he [199]reatest
  106. 910 [153]g$"   len. chr$oldfinger                           len. (NULL)he (NULL)py (NULL)ho (NULL)oved (NULL)e
  107. 920 printg$"   [196]. [204]ove [204]etters                         [196]. [210]ocky
  108. 930 [153]g$"6. "h$"     16. "h$
  109. 940 [153]g$"   atn. (NULL)weet lenharity                        atn. (NULL)omeo and mid$uliet
  110. 950 printg$"   [194]. [210]ocky                                [194]. [197]lvira [205]adigan
  111. 960 [153]g$"   len. (NULL)ou (NULL)ight (NULL)p (NULL)y (NULL)ife                 len. (NULL)ove (NULL)tory
  112. 970 printg$"   [196]. [207]rdinary [208]eople                      [196]. [193]madeus
  113. 980 [153]g$"7. "h$"     17. "h$
  114. 990 [153]g$"   atn. (NULL)ove (NULL)e (NULL)onight                      atn. (NULL)ove (NULL)tory
  115. 1000 printg$"   [194]. [196]angerous [205]oonlight                  [194]. [210]omeo and [202]uliet
  116. 1010 [153]g$"   len. (NULL)he ascleet's right$n                       len. (NULL)he chr$odfather
  117. 1020 printg$"   [196]. [211]weet [194]ird of [217]outh                  [196]. [212]ootsie
  118. 1030 [153]g$"8. "h$"     18. "h$
  119. 1040 [153]g$"   atn. peeken                                  atn. (NULL)ove (NULL)tory
  120. 1050 printg$"   [194]. [204]ove [201]s [193] [205]any-[211]plendored [212]hing      [194]. [210]omeo and [202]uliet
  121. 1060 [153]g$"   len. (NULL)rdinary (NULL)eople                      len. (NULL)he chr$odfather
  122. 1070 printg$"   [196]. [211]weet [195]harity                        [196]. [204]ove [205]e [212]onight
  123. 1080 [153]g$"9. "h$"     19. "h$
  124. 1090 [153]g$"   atn. valvery (NULL)ight atnt valight                 atn. (NULL)ootsie
  125. 1100 printg$"   [194]. [212]he [215]izard of [207]z                     [194]. [205]eet [205]e in [211]t. [204]ouis
  126. 1110 [153]g$"   len. (NULL)he ascleet's right$n                       len. (NULL)omewhere right$n (NULL)ime
  127. 1120 printg$"   [196]. [212]hat's [197]ntertainment                 [196]. [212]he [215]izard of [207]z
  128. 1130 [153]g$"10."h$"     20. "h$
  129. 1140 [153]g$"   atn. peeken                                  atn. (NULL)he (NULL)py (NULL)ho (NULL)oved (NULL)e
  130. 1150 printg$"   [194]. [199]oldfinger                           [194]. [212]he [212]homas [195]rown [193]ffair
  131. 1160 [153]g$"   len. (NULL)he (NULL)ink (NULL)anther                     len. ascor (NULL)our valyes (NULL)nly
  132. 1170 printg$"   [196]. [210]ocky                                [196]. [212]he [211]andpiper
  133. 1172 [153]
  134. 1180 [160]4
  135. 1190 [158]ml[170]42,168:[151]186,dv
  136. 1200 [142]
  137. 1207 :
  138. 1208 :[143] credits
  139. 1209 :
  140. 1210 [158]ml[170]39,168
  141. 1220 [158]ml[170]30,3,36,10,23,160,8[170]16
  142. 1230 [158]ml[170]12,7,14,"cont(NULL)usic lenlips -list str$ave (NULL)arquis
  143. 1240 sysml+12,7,16,"[154][208]rogram     -[155] [203]nees [195]alhoon
  144. 1250 [158]ml[170]12,7,18,"cont(NULL)(NULL). (NULL)(NULL)(NULL)(NULL)val   -list (NULL)ee (NULL)ovak
  145. 1260 sysml+9
  146. 1270 ifl2%=0then1260
  147. 1280 sysml+42,168
  148. 1290 return
  149. 1297 :
  150. 1298 :rem play all
  151. 1299 :
  152. 1300 sysml+39,168
  153. 1310 forpk=1to20
  154. 1320 pokev+21,0:sysml+54,"theme"+str$(pk)+".mus",dv,66*256:pokev+21,3
  155. 1330 poke781,0:poke782,66
  156. 1340 sys49664
  157. 1350 sysml+39,160:sysml+30,7,32,14,16,160,8+16
  158. 1360 sysml+27,15,"[155]  [212]heme"+str$(pk)+"[154] is playing