home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / COLLEEN-MUSIC_DEMO.ARC / D (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  215 lines
  1. 10 POKE808,225
  2. 30 POKE51,255:POKE52,63:POKE55,255:POKE56,63:CLR
  3. 50 V=53248:S=54272:GOSUB2250
  4. 70 LD$="RCODE":GOSUB2130:LD$="HINT.O":GOSUB2130:LD$="MENMUS":GOSUB2130:DIMA$(4)
  5. 90 SYS49185,49314,49890,16384
  6. 100 POKE996,0:SYS49185,39596,40960,57344
  7. 130 IN=51200:OF=51203:GC=51206:SC=51209:PC=51212:PL=51215
  8. 150 UP=51218:SL=51221:CL=51224
  9. 151 REM MAIN MENU************
  10. 152 GOSUB1970:REM NORMAL MODE
  11. 153 PRINT"[147][154]":POKE53281,0
  12. 154 PRINT""TAB(14)"COLLEEN LTD"
  13. 155 PRINTTAB(8)"THE CREATOR MUSIC DEMOS"
  14. 156 PRINT TAB(10)"1 SPACE & HIRES"
  15. 157 PRINT TAB(10)"2 MYSTERY VOYAGE"
  16. 158 PRINT TAB(10)"3 IRISH SCENE"
  17. 159 PRINT TAB(10)"4 TWO TUNES"
  18. 160 PRINT TAB(10)"5 BOUNCING BALL"
  19. 161 PRINT TAB(10)"6 HORSES"
  20. 162 PRINT TAB(10)"7 A QUAINT TUNE"
  21. 163 PRINT TAB(10)"8 CONTINUOUS DEMOS"
  22. 165 GOSUB2070:POKE996,0:SYS49185,57344,58708,39596:SYS40000
  23. 166 GETS$:IFS$=""THEN166
  24. 167 X=VAL(S$):IFX<1ORX>8THEN166
  25. 168 POKE40003,0:SYS40000:ON X GOSUB170,910,1730,1290,4500,6010,7000,8000
  26. 169 GOTO151
  27. 170 REM ROCKET**************
  28. 190 LD$="[129]PIC C*":GOSUB2130:LD$="VMUS2":GOSUB2130
  29. 210 GOSUB1810:SYS40060,2
  30. 230 POKEV+39,1:POKE53281,0:POKEV+21,1:GOSUB1950
  31. 250 FORJ=1TO10:POKEV+27,0:POKE18424,7
  32. 270 FORI=40TO300:SYS49152,I,125:NEXT
  33. 290 POKEV+27,255:POKE18424,8:FORI=300TO40STEP-1:SYS49152,I,125
  34. 310 NEXTI,J:SYS40060,1:POKEV+21,0
  35. 330 REM HIRES DRAWINGS*************
  36. 350 GOSUB1970:PRINT"[147]":POKE56578,PEEK(56578)OR3
  37. 370 POKE56576,(PEEK(56576)AND252)OR1
  38. 390 POKE648,132
  39. 410 F=7:B=0:GOSUB4000:GOSUB2070:SYSIN
  40. 430 GOSUB3000:GOSUB4010
  41. 530 F=1:B=0:GOSUB4000:GOSUB3030:GOSUB4010
  42. 630 F=4:B=1:GOSUB4000:X=10:GOSUB3060
  43. 650 GOSUB4010:GOSUB2370
  44. 670 F=8:B=0:GOSUB4000:X=100:GOSUB3060:GOSUB2370:GOSUB4010
  45. 710 F=14:B=0:GOSUB4000:GOSUB3080
  46. 890 GOSUB2370:SYS40060,0:SYSOF:RETURN
  47. 910 REM SHARK*****************
  48. 930 GOSUB2250
  49. 950 LD$="[129]PIC B*":GOSUB2130:LD$="VMUS":GOSUB2130
  50. 970 GOSUB1810:FORI=0TO3:POKES+21+I,PEEK(40266+I):NEXT:SYS40270
  51. 990 POKEV+27,0:POKEV+39,0:POKE53281,1
  52. 1010 POKE18424,5:POKEV+21,1:GOSUB1950
  53. 1030 FORJ=1TO5
  54. 1050 POKE18424,5
  55. 1070 FORI=40TO310STEP5:SYS49152,I,210
  56. 1090 FORT=1TO2:POKE53281,0:POKE53281,1:NEXTT,I
  57. 1110 POKE18424,6
  58. 1130 FORI=310TO40STEP-2:SYS49152,I,210
  59. 1150 FORT=1TO2:POKE53281,0:POKE53281,1:NEXTT,I
  60. 1170 POKE18424,5
  61. 1190 FORI=40TO310STEP3:SYS49152,I,210
  62. 1210 FORT=1TO2:POKE53281,0:POKE53281,1:NEXTT,I
  63. 1230 POKE18424,6
  64. 1250 FORI=310TO40STEP-5:SYS49152,I,210
  65. 1270 FORT=1TO2:POKE53281,0:POKE53281,1:NEXTT,I,J:POKEV+21,0
  66. 1280 SYS40470:POKES+24,0:RETURN
  67. 1290 REM MORE HIRES DRAWINGS
  68. 1330 GOSUB2250:LD$="MED2":GOSUB2130
  69. 1350 GOSUB1970:PRINT"[147]":POKE56578,PEEK(56578)OR3
  70. 1370 POKE56576,(PEEK(56576)AND252)OR1
  71. 1390 POKE648,132
  72. 1410 SYSGC:SYSSC,2*16+1:SYSPC,2*16+1:GOSUB2070
  73. 1430 SYSIN:POKE40003,1:SYS40000
  74. 1470 GOSUB3130:GOSUB4010:GOSUB2370:GOSUB2390
  75. 1530 F=1:B=0:GOSUB4000:GOSUB3150
  76. 1570 GOSUB4010:F=7:B=0:GOSUB4000:GOSUB3170:GOSUB4010:GOSUB2410
  77. 1580 F=5:B=1:GOSUB4000:GOSUB3080:GOSUB4010
  78. 1590 F=0:B=4:GOSUB4000:X=100:GOSUB3060:GOSUB4010:GOSUB4020:POKE40003,2:SYS40000
  79. 1595 F=7:B=0:GOSUB4000
  80. 1600 GOSUB3130:GOSUB4010:GOSUB2370:GOSUB2390
  81. 1602 F=0:B=1:GOSUB4000:GOSUB3150
  82. 1604 GOSUB4010:F=0:B=7:GOSUB4000:GOSUB3170:GOSUB4010:GOSUB2410
  83. 1606 F=4:B=2:GOSUB4000:GOSUB3080:GOSUB4010
  84. 1610 F=7:B=0:GOSUB4000:X=10:GOSUB3060:GOSUB4010:GOSUB2410
  85. 1650 F=1:B=0:GOSUB4000:GOSUB3190:GOSUB4010:GOSUB2410:GOSUB4010:GOSUB4010
  86. 1710 POKE40003,0:SYS40000:RETURN
  87. 1730 LD$="[129]PIC A*":GOSUB2130:LD$="ROVER":GOSUB2130
  88. 1750 REM*********BALLOON
  89. 1770 GOSUB1810:POKE53281,1:SYS40000:GOSUB1950:POKEV+27,0
  90. 1771 POKE18424,4:POKEV+21,1:POKEV+39,2
  91. 1775 X=40:B=0:Y=40
  92. 1780 X=X+1:IFX>330THEN1775
  93. 1781 SYS49152,X,Y
  94. 1782 B=B+1:IFB=12THENB=0:Y=Y+1
  95. 1784 IFPEEK(40949)<>254THEN1780
  96. 1790 POKEV+21,0:POKE40003,0:SYS40000:RETURN
  97. 1810 REM **TURN ON HIRES AND MOVE BANK
  98. 1830 GOSUB2090
  99. 1850 SYS49185,32576,32576+999,17408
  100. 1870 POKE53272,29
  101. 1890 POKE53270,216:POKE648,68
  102. 1910 POKE56576,150
  103. 1930 POKE996,1:SYS49185,33576,33576+1000,55296:RETURN
  104. 1950 POKE53265,59:RETURN
  105. 1970 REM **TURN OFF HIRES AND MOVE BANK
  106. 1990 GOSUB2090
  107. 2010 POKE53272,21
  108. 2030 POKE53270,200:POKE648,4
  109. 2050 POKE56576,151:RETURN
  110. 2070 POKE53265,27:RETURN
  111. 2090 POKE53265,PEEK(53265)AND239:RETURN
  112. 2110 POKE53265,PEEK(53265)OR16:RETURN
  113. 2130 REM LOAD MACHINE CODE
  114. 2150 POKE183,LEN(LD$):POKE184,8:POKE185,8:POKE186,8:POKE188,2:POKE187,192
  115. 2170 FORI=1TOLEN(LD$):POKE703+I,ASC(MID$(LD$,I,1)):NEXT
  116. 2190 POKE780,0:SYS(65493)
  117. 2210 IF(PEEK(783)AND1)=0THENRETURN
  118. 2230 GOSUB1970:PRINT"[147]LOAD ERROR"
  119. 2250 GOSUB1970:GOSUB2070
  120. 2270 POKEV+21,0:PRINT"[147]":POKE53281,0
  121. 2290 PRINT"THE COLLEEN MUSIC CREATOR..DEMOS.":RETURN
  122. 2330 SYSSL,160,X,160+COS(I)*100,100-SIN(I)*80:NEXT:RETURN
  123. 2370 FORI=1TO15:SYSSC,I*16+0:FORJ=1TO400:NEXTJ,I:RETURN
  124. 2390 FORI=0TO14:SYSSC,15*16+I:FORJ=1TO100:NEXTJ,I:RETURN
  125. 2410 FORI=0TO30
  126. 2430 POKE53270,PEEK(53270)OR16
  127. 2450 FORJ=1TO50:NEXT
  128. 2470 POKE53270,PEEK(53270)AND239
  129. 2490 FORJ=1TO50:NEXTJ,I:RETURN
  130. 3000 FORX=1TO319STEP3
  131. 3010 SYSSL,X,40,50*SIN(X/30)+100,X/1.6
  132. 3020 NEXT:RETURN
  133. 3030 FORX=1TO319STEP2
  134. 3040 SYSSL,X,40*COS(X/20)+100,50*SIN(X/30)+100,X/1.6:NEXT:RETURN
  135. 3060 FORI=0TO2*(null)-(null)/100STEP(null)/100
  136. 3070 SYSSL,160,X,160+COS(I)*100,100-SIN(I)*80:NEXT:RETURN
  137. 3080 L=199:X=60:Y=0:B=0:FORI=0TO27:C=B^2/L
  138. 3090 SYSSL,X+B,Y+C,X+L-C,Y+B
  139. 3100 SYSSL,X+L-C,Y+B,X+L-B,Y+L-C
  140. 3110 SYSSL,X+L-B,Y+L-C,X+C,Y+L-B
  141. 3120 SYSSL,X+C,Y+L-B,X+B,Y+C:B=B+5:NEXT:RETURN
  142. 3130 FORI=0TO270STEP5
  143. 3140 SYSSL,I,100+SIN(I/50)*100,319-I,100+COS(I/25)*50:NEXT:RETURN
  144. 3150 FORI=0TO319STEP2:SYSSL,I,100+SIN(I/50)*100,319-I,100+COS(I/50)*50
  145. 3160 NEXT:RETURN
  146. 3170 FORI=0TO309STEP2:SYSSL,I,100+SIN(I/50)*100,I+10,100+SIN(I/50)*50:NEXT
  147. 3180 RETURN
  148. 3190 FORI=0TO309STEP2:SYSSL,I,100+COS(I/50)*100,I+10,100+SIN(I/50)*50:NEXT
  149. 3200 RETURN
  150. 4000 SYSGC:SYSSC,F*16+B:SYSPC,F*16+B:RETURN
  151. 4010 FORI=0TO900:NEXT:RETURN
  152. 4020 FORI=1TO10:SYSSC,4*16+4:FORJ=1TO80:NEXT
  153. 4030 SYSSC,0*16+4:FORJ=1TO80:NEXTJ,I:RETURN
  154. 4500 REM BOUNCING BALL
  155. 4510 GOSUB2250:LD$="S-C":GOSUB2130
  156. 4520 LD$="C":GOSUB2130:POKE53280,0:PRINT"[147][159]";
  157. 5000 POKE40003,1:SYS40000
  158. 5005 FORI=1TO24:PRINT"[207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][180]";:NEXT
  159. 5006 PRINT"":PRINTTAB(13)"             "
  160. 5007 PRINTTAB(13)"[145] COLLEEN LTD "
  161. 5008 PRINTTAB(13)"             "
  162. 5010 IF PEEK(40949)<>0THEN5010
  163. 5020 POKE53275,0
  164. 5030 POKE40143,0:SYS49918
  165. 5040 POKE40143,1
  166. 5050 IF PEEK(40949)<>254THEN5050
  167. 5060 SYS49892:POKEV+21,0:POKES+24,0
  168. 5070 SYS49185,49314,49890,16384:PRINT"[147]":POKE53280,14
  169. 5080 POKEV+28,0:POKEV+23,0:POKEV+29,0:RETURN
  170. 6010 GOSUB6230
  171. 6020 FORI=0TO4:SYS49279,22528+(I*2048)
  172. 6030 SYS49152,49380+(I*176),49380+(I*176)+176,22528+(I*2048)+(128*8)
  173. 6040 NEXT:POKE56578,63:POKE56576,198:POKE648,68:PRINT"[147]";:POKE53272,23
  174. 6050 POKE54296,15:SYS40270
  175. 6060 A$(1)="    @AB ":A$(2)=" CDEFGH ":A$(3)=" IJKLMN ":A$(4)=" OPQRST "
  176. 6070 PRINT"";:GOSUB6280:PRINT"";:GOSUB6280:PRINT"[158]";:GOSUB6280
  177. 6080 PRINT"";:GOSUB6280:PRINT"";:GOSUB6280:PRINT"[158]";:GOSUB6280
  178. 6090 X=6:FORJ=0TO402
  179. 6100 POKE198,0:POKE53272,(PEEK(53272)AND240)ORX
  180. 6110 X=X+2:IFX>14THENX=6
  181. 6120 FORI=0TO50:NEXTI,J
  182. 6130 SYS40469:POKES+24,0:POKE53280,14:RUN
  183. 6230 PRINT"[147][156]":POKE53280,0:POKE53281,0:D$=""
  184. 6240 PRINTLEFT$(D$,10)
  185. 6250 PRINTTAB(13)"LOADING A DEMO"
  186. 6260 PRINT"ALL RIGHTS RESERVED (@) 1986 COLLEEN LTD"
  187. 6270 LD$="CH":GOSUB2130:LD$="SU":GOSUB2130:RETURN
  188. 6280 FORI=1TO4:PRINTA$(I);A$(I);A$(I);A$(I);A$(I);:NEXT:RETURN
  189. 7000 REM
  190. 7010 LD$="FLUTE2":GOSUB2130
  191. 7020 PRINT"[147][156]"
  192. 7030 PRINTTAB(4)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  193. 7035 FORI=0TO4
  194. 7040 PRINTTAB(4)"[166]                             [166]":NEXT
  195. 7050 PRINTTAB(4)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  196. 7060 SYS40290:SYS40330
  197. 7070 PRINT"[145][145][145][145]THE COLLEEN MUSIC CREATOR"
  198. 7080 PRINTTAB(9)"(@) COLLEEN LTD 1987"
  199. 7999 FORJ=1TO13:FORI=0TO7000:NEXTI,J:SYS40343:POKES+24,0:RETURN
  200. 8000 REM CONTINUOUS
  201. 8010 GOSUB1970:PRINT"[147]COLLEEN LTD":GOSUB2070
  202. 8020 GOSUB170
  203. 8030 GOSUB1970:PRINT"[147]COLLEEN LTD":GOSUB2070
  204. 8040 GOSUB910
  205. 8050 GOSUB1970:PRINT"[147]COLLEEN LTD":GOSUB2070
  206. 8060 GOSUB1730
  207. 8070 GOSUB1970:PRINT"[147]COLLEEN LTD":GOSUB2070
  208. 8080 GOSUB1290
  209. 8090 GOSUB1970:PRINT"[147]COLLEEN LTD":GOSUB2070
  210. 8100 GOSUB4500
  211. 8110 GOSUB1970:PRINT"[147]COLLEEN LTD":GOSUB2070
  212. 8112 GOSUB7000
  213. 8114 GOSUB1970:PRINT"[147]COLLEEN LTD":GOSUB2070
  214. 8120 GOTO6010
  215.