home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 13 / Big_Mouth_The_13_1996_-_Side_A.d64 / entertainer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  163 lines
  1. 0 print"[147]"+chr$(14)+chr$(158):poke53280,6:poke53281,11:ti$="000000"
  2. 1 print"[212]he [197]ntertainer"
  3. 2 print"by"
  4. 3 print"[211]cott [202]oplin"
  5. 4 print"arrangement":print"by":print"[210]ick [211]terling"
  6. 8 print"please wait 3 min 25 sec."
  7. 9 print"coffee break! setting up 20k byte array"
  8. 10 s=54272:forl=stos+24:pokel,0:next
  9. 20 dimh%(2,1200),l%(2,1200),c%(2,1200)
  10. 30 dimfq(11)
  11. 40 v(0)=17:v(1)=65:v(2)=33
  12. 45 pokes+3,8
  13. 50 pokes+9,140:pokes+22,240:pokes+23,244
  14. 60 fori=0to11:readfq(i):next
  15. 100 fork=0to2
  16. 110 i=0
  17. 120 readnm
  18. 121 printti$:print"[145]";
  19. 130 ifnm=0then250
  20. 140 wa=v(k):ifnm<0thennm=-nm:wa=1
  21. 150 dr%=nm/128:oc%=(nm-128*dr%)/16
  22. 160 nt=nm-128*dr%-16*oc%
  23. 170 fr=fq(nt)
  24. 180 ifoc%=7then200
  25. 190 forj=6tooc%step-1:fr=fr/2:next
  26. 200 hf%=fr/256:lf%=fr-hf%*256
  27. 210 ifdr%=1thenh%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa:i=i+1:goto120
  28. 220 forj=1todr%-1:h%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa:i=i+1:next
  29. 230 h%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa-1
  30. 240 i=i+1:goto120
  31. 250 ifi>imthenim=i
  32. 260 next
  33. 300 print"[145][145][145][145]";
  34. 302 print"                                        "
  35. 303 print"                                        "
  36. 304 print"                                        "
  37. 500 pokes+5,63:pokes+6,240
  38. 505 pokes+10,8
  39. 510 pokes+12,8:pokes+13,9
  40. 520 pokes+19,119:pokes+20,7
  41. 530 pokes+24,31
  42. 540 fori=0toim
  43. 550 pokes,l%(0,i):pokes+7,l%(1,i):pokes+14,l%(2,i)
  44. 560 pokes+1,h%(0,i):pokes+8,h%(1,i):pokes+15,h%(2,i)
  45. 570 pokes+4,c%(0,i):pokes+11,c%(1,i):pokes+18,c%(2,i)
  46. 571 ifi=313thenpokes+12,119:pokes+13,53
  47. 572 ifi=571thenpokes+12,53:pokes+13,53:pokes+10,6
  48. 573 ifi=823thenpokes+12,10:pokes+13,167:pokes+10,0:pokes+20,240:pokes+5,15
  49. 580 nexti
  50. 582 print"hit any key to repeat"
  51. 590 geta$:ifa$=""then590
  52. 591 ifa$=""thenend
  53. 598 print"[145]                     [145]"
  54. 599 goto500
  55. 600 data35115,37203,39415,41759
  56. 610 data44242,46873,49660,52613
  57. 620 data55741,59056,62567,66288
  58. 1000 data 338,340,336,585,331,583,322,324,320,569
  59. 1010 data 315,567,306,308,304,553,299,297,296,551,-496,599
  60. 1020 data 322,323,324,592,324,592,324,1616
  61. 1030 data 352,354,355,356,352,354,612,347,610,1632
  62. 1040 data 322,323,324,592,324,592,324,1872
  63. 1050 data345,343,342,345,352,612,354,352,345,1634
  64. 1070 data 322,323,324,592,324,592,324,1616
  65. 1080 data 352,354,355,356,352,354,612,347,610,1632
  66. 1090 data352,354,356,352,354,612,352,354,352,356,352,354,612,352,354,352
  67. 1100 data356,352,354,612,347,354,1760
  68. 1110 data340,341,342,599,345,599,340,341,342,599,345,599
  69. 1120 data340,336,327,329,331,336,338,340,338,336,338
  70. 1130 data327,340,341,343,345,343,340,341,599,345,599,340,341,342,599,345,599
  71. 1140 data343,345,346,347,603,603,345,342,338,1367
  72. 1150 data340,341,342,599,345,599,340,341,342,599,345,599
  73. 1160 data340,336,327,329,331,336,338,340,338,336,338
  74. 1170 data 1360 , 327 , 326 , 327 , 592 , 329 , 592 , 329 , 336 , 329
  75. 1180 data 327,336,340,599,340,336,327,585,592,340,594,1616,-448
  76. 1190 data345,344,1113,608,2146
  77. 1200 data 341,340,1109,601,1882,343,594,343,594,343,594,1104,1109
  78. 1210 data340,344,347,612,354,347,352,1113,1114,345,344,1113,608,2146
  79. 1220 data341,340,1109,601,1882,343,594,343,594,343,594,1104,853,341
  80. 1225 data 345,608,599,336,338,340,597,-480,613,-480
  81. 1230 data592,329,592,329,336,329,327,336,340,599,340,336,327
  82. 1240 data585,592,340,594,1360,608,-416
  83. 1250 data581,324,581,324,581,-256,329,338,329,336,338,336,324
  84. 1260 data583,326,583,326,583,-256,336,340,336,338,340,338,336
  85. 1270 data594,337,594,337,594,-256,341,345,341,343,345,343,341
  86. 1280 data352,352,1120,601,599,327,327,583,583
  87. 1290 data581,324,581,324,581,-256,329,338,329,336,338,336,324
  88. 1300 data583,326,583,326,583,-256,336,340,336,338,340,338,336
  89. 1310 data329,328,329,599,597,336,340,339,340,601,352,343,340
  90. 1320 data592,592,340,594,1360,608,-416
  91. 1999 data 0
  92. 2000 data 338,340,336,585,331,583,322,324,320,569
  93. 2010 data 315,567,306,308,304,553,299,297,296,551,-496,599,571
  94. 2020 data 560,567,567,567,565,576,564,576,564,576,551,567,551,576,567
  95. 2030 data 571,560,567,567,567,565,576,564
  96. 2040 data563,562,566,562,569,571,567,569,571
  97. 2050 data 560,567,567,567,565,576,564,576,564,576,551,567,551,576,567
  98. 2060 data-496,576,580,570,580,569,581,568,581
  99. 2070 data567,580,567,571,576,567,560
  100. 2110 data 336,338,339,596,340,596,336,338,339,596,340,596,340,336,327
  101. 2115 data 1093,1096,1092,1095
  102. 2120 data 596,340,596,336,338,339,596,340,596
  103. 2130 data343,345,346,343,599,598,345,336,338
  104. 2140 data 1355,336,338,339,596,340,596,336,338,339,596,340,596,340,336,327
  105. 2150 data 1093,1096,1092,1098
  106. 2160 data 581,581,579,579,576,576,576,576
  107. 2170 data 582,582,325,581,1604,-448
  108. 2180 data341,342,1109,601,2138
  109. 2190 data338,340,1106,594,1879,343,570,578,567,568,569,581,562,581
  110. 2200 data564,578,568,578,1092,580,580,341,344,1109,597,2138,338,340,1106,594
  111. 2210 data1879,343,570,578,567,568,313,309,308,306,840,331
  112. 2220 data336,592,842,586,585,-480,597,-480
  113. 2230 data569,569,579,579,580,576,580,576,582,582,325,581,324,1092,592,-432
  114. 2240 data578,321,578,321,578,-256,329,325,329,336,338,336,329
  115. 2250 data580,323,580,323,580,-256,336,343,336,338,340,338,336
  116. 2260 data587,330,587,330,587,-256,341,345,341,343,345,343,341
  117. 2270 data336,336,1104,592,592,324,324,580,580
  118. 2280 data578,321,578,321,578,-256,329,325,329,336,338,336,329
  119. 2290 data580,323,580,323,580,-256,336,343,336,338,340,338,336
  120. 2300 data329,328,329,585,585,329,576,580,579,580
  121. 2310 data582,582,325,581,324,576,567,560,-464
  122. 2999 data 0
  123. 3000 data 338,340,336,585,331,583,322,324,320,569
  124. 3010 data 315,567,306,308,304,553,299,297,296,551,-496,567,583
  125. 3020 data560,564,551,570,549,569,548,567,551,564,551,565,544,564,564
  126. 3030 data 583,560,564,551,570,549,569,548
  127. 3040 data547,546,562,562,566,567,551,553,555
  128. 3050 data560,564,551,570,549,569,548,567,551,564,551,565,544,564,564
  129. 3060 data-496,560,567,554,567,553,569,552,568,551
  130. 3070 data567,551,567,560,551,544
  131. 3110 data340,341,342
  132. 3120 data560,567,551,567,560,567,551,567,549,569,581,568,564,567,551,567,560
  133. 3130 data567,551,567
  134. 3140 data 560,567,564,563,562,567,562,569
  135. 3150 data 567,565,564,562,560,567,551,567
  136. 3160 data 560,567,551,567,549,569,565,568
  137. 3170 data 564,567,560,570
  138. 3180 data 565,565,566,566,567,567,567,567
  139. 3190 data 562,562,567,567,560,551,544,-192
  140. 3200 data549,569,560,569,554,330,329,330,336,594
  141. 3210 data546,569,553,569,551,570,562,570,554,570,551,552,553,569,562,569
  142. 3220 data564,571,568,571,1081,567,560,549,569,560,569,554,570,565,570
  143. 3230 data546,569,553,569,551,570,562,570,554,570,551,552,297,293,292,290,1057
  144. 3240 data560,569,560,560,565,-480,549,-480
  145. 3250 data565,565,566,566,567,567,576,576,562,562,567,567,1072,544,-480
  146. 3260 data549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564
  147. 3270 data551,565,555,565,551,565,555,565,563,1075,563,564,-1536
  148. 3280 data549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564
  149. 3290 data549,546,548,549,551,567,566,567,553,546,551,555,560,551,544,-480
  150. 3999 data 0
  151. 4999 dim nv(32)
  152. 5000 input"note dpo";nd,np,no
  153. 5005 ifnd=0then5070
  154. 5030 nv=128*nd+16*no+np
  155. 5040 nv(i)=nv
  156. 5050 i=i+1
  157. 5060 goto5000
  158. 5070 forj=0toi-1
  159. 5075 a$=str$(nv(j)):ifsgn(nv(j))=-1then5080
  160. 5076 a$=right$(a$,len(a$)-1)
  161. 5080 printa$+",";
  162. 5090 next
  163.