home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64music / printer.sid (.txt) < prev    next >
Commodore BASIC  |  1988-12-26  |  3KB  |  79 lines
  1. 100 PRINT CHR$(147):PRINT " SIDPLAYER MUSIC FILE PRINTER"
  2. 110 PRINT " BY CRAIG CHAMBERLAIN":PRINT:GOTO 800
  3. 300 K=LA+6+FNDP(LA)+FNDP(LA+2)+FNDP(LA+4):S$=" "
  4. 310 J=PEEK(K):K=K+1:IF J AND J<>13 THEN S$=S$+CHR$(J):GOTO 310
  5. 320 PRINT S$:IF J THEN S$=" ":GOTO 310
  6. 330 PRINT " VOICE 1                  VOICE 2                  VOICE 3
  7. 340 A[178]LA[170]6:[129] V[178]0 [164] 2:A(V)[178]A:A[178]A[170][165]DP(LA[170]2[172]V):E(V)[178]A:V(V)[178]1
  8. 345 MD(V)[178]0:T(1,V)[178]12:N[178]144:[129] J[178]2 [164] 7:T(J,V)[178]N:N[178]N[173]2:[130]:[130]:K[178]3:LC[178]6
  9. 350 [153] " ";:[129] V[178]0 [164] 2:[139] V(V)[178]0 [167] S$[178]"":[137] 480
  10. 360 [139] A(V)[178]E(V) [167] S$[178]" "[170]CN$(27)[170][196](MD(V)):V(V)[178]0:K[178]K[171]1:[137] 480
  11. 370 [139] MN(V) [167] S$[178][196](MN(V)[171]1):S$[178][202](S$,2):MN(V)[178]0:[137] 480
  12. 380 N[178][194](A(V)):N2[178][194](A(V)[170]1):A(V)[178]A(V)[170]2
  13. 390 J[178]12:[145] N [175] 3 [137] 500,530,690
  14. 400 T[178]N2 [175] 7:S$[178]" "[170][202]("RCDEFGAB",T[170]1,1)[170]" "
  15. 410 [139] T[178]0 [167] S$[178]S$[170]"    ":[137] 430
  16. 420 S$[178]S$[170][202]("S F",N2[173]64,1)[170][196]([168] N2[173]8 [175] 7)[170]" "
  17. 430 T[178]N[173]4 [175] 7:[139] T[178]0 [167] S$[178]S$[170]"ABS":[137] 480
  18. 440 S$[178]S$[170][202]("UWHQEST",T,1):[139] N [175] 32 [167] S$[178]S$[170]" D":[137] 460
  19. 450 S$[178]S$[170]"  "
  20. 460 [139] N [175] 64 [167] S$[178]S$[170]" T"
  21. 470 MD(V)[178]MD(V)[170]T(T,V):[139] N [175] 32 [167] MD(V)[178]MD(V)[170]T(T[170]1,V)
  22. 480 [139] V[178]2 [176] V[178]1 [175] V(2)[178]0 [167] [153] S$:V[178]2:[137] 484
  23. 482 [153] S$ [166]25[171][195](S$));
  24. 484 [130]:LC[178]LC[170]1:[139] LC[178]60 [167] [129] J[178]1 [164] 6:[153]:[130]:LC[178]0:[143] TOP OF FORM
  25. 486 [139] K [167] N[178][184](0):[137] 350
  26. 490 [152]1:[160] 1:[153]:[138] 800
  27. 500 N[178]N2:[139] (N [175] 15)[178]7 [167] T[178][181](N[173]32)[172]3[170]1:[145] ((N [175] 16)[178]0)[170]2 [137] 570,575
  28. 510 J[178]1:[139] (N [175] 7)[178]3 [167] T[178][181](N[173]16):S$[178]" "[170]CN$(28[170]T):[137] 580
  29. 530 [139] (N [175] AM(J))[179][177]CM(J) [167] J[178]J[170]1:[137] 530
  30. 540 S$[178]" "[170]CN$(J):[139] J[179]7 [167] S$[178]S$[170][196]((N [175] [168] AM(J))[173]16)
  31. 550 [139] J[179]10 [137] 480
  32. 560 [145] J[171]9 [137] 600,600,610,620,630,640,650,650,650,660,660
  33. 565 [145] J[171]20 [137] 650,650,660,680,650,675,670
  34. 570 S$[178]" WAVEFORM "[170][202]("N  T  S  TS P  TP SP TSP",T,3):[137] 480
  35. 575 S$[178]" FILTER MODE "[170][202]("OFFL  B  LB H  LH BH LBH",T,3):[137] 480
  36. 580 [139] T [167] S$[178]S$[170][202](" NO YES",1[170](N[173]8 [175] 1)[172]3,4):[137] 480
  37. 585 S$[178]S$[170][202](" UP  DOWN",((N [175] 8)[178]0)[172]4[170]5,5):[137] 480
  38. 600 S$[178]S$[170][196](N[173]8 [175] 15):[137] 480
  39. 610 S$[178]S$[170][196](N2[170]16[172](N [175] 240)):[137] 480
  40. 620 T[178]N2[170]8[172](N [175] 224):[139] N [175] 16 [167] T[178]T[171]2048
  41. 625 S$[178]S$[170][196](T):[137] 480
  42. 630 [139] N2[178]0 [167] N2[178]256
  43. 635 S$[178]S$[170][196]([181](14400[173]N2)):[129] J[178]2 [164] 7:T(J,V)[178]N2:N2[178]N2[173]2:[130]:[137] 480
  44. 640 T(1,V)[178]N2
  45. 650 S$[178]S$[170][196](N2):[137] 480
  46. 660 S$[178]S$[170][196](N2[170]256[172](N2[177]127)):[137] 480
  47. 670 S$[178]S$[170][196](MD(V)):MD(V)[178]0:MN(V)[178]N2[170]4[172](N [175] 192)[170]1:[137] 480
  48. 675 S$[178]S$[170][196](8[172]N2):[137] 480
  49. 680 [139] N2 [175] 1 [167] S$[178]S$[170][196]([171](11[171][181](N2[173]16)[170]12[172](N2[173]2 [175] 7))):[137] 480
  50. 685 S$[178]S$[170][196]([181](N2[173]16)[170]12[172](7[171](N2[173]2 [175] 7))):[137] 480
  51. 690 S$[178]" PORTAMENTO"[170][196](N2[170]64[172](N [175] 252)):[137] 480
  52. 800 DV[178]4:[159] 1,DV
  53. 810 S$[178]"":[133] " LOAD FILENAME";S$:[139] [195](S$)[177]12 [137] 810
  54. 815 [139] S$[178]"" [167] [160] 1:[128]
  55. 820 K[178]0:J[178]0:T[178]0:SA[178]780:SX[178]781:SY[178]782:SP[178]783:DN[178]8
  56. 825 [150] [165] DP(K)[178][194](K)[170]256[172][194](K[170]1)
  57. 830 [134] CN$(33),AM(27),CM(27),A(2),E(2),V(2),T(7,2),MD(2),MN(2)
  58. 840 [129] K[178]1 [164] 33:[135] CN$(K):[130]:[129] K[178]1 [164] 27:[135] AM(K),CM(K):[130]
  59. 850 LA[178][194](49)[170]256[172][194](50)[170]1000:[151] SA,2:[151] SX,DN:[151] SY,0:[158] 65466
  60. 860 S$[178]S$[170]".MUS":[129] K[178]1 [164] [195](S$):[151] 584[170]K,[198]([202](S$,K)):[130]
  61. 865 [151] SA,[195](S$):[151] SX,73:[151] SY,2:[158] 65469
  62. 870 [151] SA,0:[151] SX,LA[171]256[172][181](LA[173]256):[151] SY,LA[173]256:[158] 65493
  63. 875 [139] ([194](SP)[175]1)[178]0 [167] [157] 1:[137] 300
  64. 880 [153]:[153] " ERROR:";:[139] [194](SA)[178]4 [167] [153] "FILE NOT FOUND":[137] 490
  65. 882 [139] [194](SA)[178]5 [167] [153] "DEVICE NOT PRESENT":[137] 490
  66. 885 [153] ST:[137] 490
  67. 900 [131] DECAY RATE,RELEASE RATE,CALL PHRASE,DEFINE PHRASE,RESONANCE
  68. 902 [131] MASTER VOLUME,REPEAT TAIL,PHRASE END,HALT,ATTACK RATE,SUSTAIN LEVEL
  69. 910 [131] PULSE WIDTH,DETUNE ,TEMPO,UTILITY DURATION,RELEASE POINT
  70. 912 [131] REPEAT HEAD,FLAG,PULSE WIDTH SWEEP ,"FILTER CUTOFF SWEEP "
  71. 914 [131] VIBRATO DEPTH,VIBRATO RATE,AUTOFILTER ,TRANSPOSE ,AUXILIARY
  72. 916 [131] FILTER CUTOFF,"MEASURE DURATION:"
  73. 920 [131] BUMP VOLUME,FILTER,RING MODULATION,SYNC MODE,EXTERNAL FILTER,3OFF
  74. 930 [131] 15,0,15,8,15,2,15,6,15,10,15,14
  75. 932 [131] 255,15,255,47,255,79
  76. 934 [131] 135,4,135,132
  77. 940 [131] 15,2,15,10,255,6,255,22,255,38,255,54,255,70,255,86,255,102
  78. 942 [131] 255,118,255,134,255,150,255,166,255,182,31,14,63,30
  79.