home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / SUPER-KEYBOARD-SYNTH (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  124 lines
  1. 100 POKE53281,0:POKE53280,0:PRINT"[147]":POKE214,10
  2. 110 PRINTTAB(9)"[158]WELCOME TO SUPER-SYNTH"
  3. 120 PRINT:PRINTTAB(3)"WHILE WAITING FOR FREQUENCIES TO BE
  4. 130 [153]:[153][163]5)"CALCULATED, TURN UP THE VOLUME.":K[178]256:CH[178]35
  5. 140 M[178]1.005:MA[178]64:[134]F1(MA),F2(MA),F3(MA),F4(MA),G1(MA),G2(MA),G3(MA),G4(MA)
  6. 150 [134]H1(MA),H2(MA),H3(MA),H4(MA)
  7. 160 [153]:[135]T,N:N1[178]N[172]M:N2[178]N[172]2:N3[178]N[172]2[172]M:N4[178][181](N[173]2):N5[178][181](N[173]2[172]M)
  8. 170 F1(T)[178][181](N[173]K):F2(T)[178]N[171](F1(T)[172]K):F3(T)[178][181](N1[173]K):F4(T)[178][181](N1[171](F3(T)[172]K))
  9. 180 G1(T)[178][181](N2[173]K):G2(T)[178]N2[171](G1(T)[172]K):G3(T)[178][181](N3[173]K):G4(T)[178][181](N3[171](G3(T)[172]K))
  10. 190 H1(T)[178][181](N4[173]K):H2(T)[178]N4[171](H1(T)[172]K):H3(T)[178][181](N5[173]K):H4(T)[178][181](N5[171](H3(T)[172]K))
  11. 200 [139]T[179][177]CH[167]160
  12. 210 [139]CH[179][177]50[167][129]T[178]1[164]10:[153]:[130]:[153][163]16)"THANKS!":CH[178]50:[137]160
  13. 220 NF[178]8:NK[178]64:KB[178]197:V[178]54272:V1[178]V[170]1:V2[178]V:V3[178]V[170]8:V4[178]V[170]7:RN[178][187]([171]TI)
  14. 230 FL[178]0:DB[178]8:DC[178]8:DD[178]8:VO[178]31:VS[178]17:VI[178]90:XT[178]1:PO[178]240:Z[178]2:W1[178]33:W2[178]33:AT[178]8:DE[178]8
  15. 240 SU[178]8:RE[178]8:[141]490
  16. 250 [141]480:[129]T[178]V[164]V[170]23:[151]T,0:[130]:[151]V[170]5,AD:[151]V[170]6,SR:[151]V[170]12,AD
  17. 260 [151]V[170]13,SR:[151]V[170]3,DB:[151]V[170]10,DC:[151]V[170]17,DD:[151]V[170]14,VI:[151]V[170]18,VS
  18. 270 [151]V[170]23,PO:[151]V[170]24,VO
  19. 280 T[178][194](KB):[139]T[178]NK[167]280
  20. 290 [139]T[179]NF[167]470
  21. 300 [145]Z[137]310,330,340,350,360,320
  22. 310 [151]V1,G1(T):[151]V2,G2(T):[151]V3,G3(T):[151]V4,G4(T):[137]370
  23. 320 [151]V1,H1(T):[151]V2,H2(T):[151]V3,H3(T):[151]V4,H4(T):[137]370
  24. 330 [141]460:[137]370
  25. 340 [141]460:[151]V[170]15,F1(T)[173].7:[137]370
  26. 350 [141]460:[151]V[170]15,F1(T)[173]2:[137]370
  27. 360 [141]460:[151]V[170]4,W1:[151]V[170]11,W2:[129]Y[178]1[164]10:[130]:[137]430
  28. 370 [151]V[170]4,W1:[151]V[170]11,W2
  29. 380 [139]Z[178]4[167][129]U[178]1[164]SL[169]XT:[151]V[170]1,U:[139][194](KB)[178]T[167][130]
  30. 390 [139]Z[178]4[167][141]440:[137]430
  31. 400 [139]FL[178]1[167][151]V,[194](V[170]27):[151]V[170]7,[194](V[170]27):[137]420
  32. 410 [139]FL[178]2[167][129]U[178]1[164]SL[169]10:[151]V[170]22,U:[139][194](KB)[178]T[167][130]:[141]440:[137]430
  33. 420 [139][194](KB)[178]T[167]380
  34. 430 [151]V[170]4,W1[171]1:[151]V[170]11,W2[171]1:[151]V[170]15,0:[137]280
  35. 440 [139][194](KB)[179][177]NK[167]440
  36. 450 [142]
  37. 460 [151]V1,F1(T):[151]V2,F2(T):[151]V3,F3(T):[151]V4,F4(T):[142]
  38. 470 [145]T[170]1[137]280,1050,280,1260,230,690,1200,280
  39. 480 AD[178]AT[172]16[170]DE:SR[178]SU[172]16[170]RE:[142]
  40. 490 [151]53280,0:[151]53281,0:[153]"LOADSYS"
  41. 500 [153][163]12)"KEYBOARD SCREEN"
  42. 510 [153][163]13)"F1 - NORMAL":[153][163]13)"F3 - NEW SOUND
  43. 520 PRINTTAB(13)"F5 - SAVE SOUND
  44. 530 [153][163]13)"F7 - LOAD SOUND"
  45. 540 [153][163]5)"THEN   (null)    (null)   PEEK   WAITC "
  46. 550 [153][163]5)"THEN WAIT2 WAIT3 (null) WAIT5 WAIT6 WAIT7 (null) WAIT9 WAIT0 (null) WAIT- WAIT\ WAITH "
  47. 560 [153][163]5)"THEN (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) WAIT SYSTANRIGHT$"
  48. 570 [153][163]5)"THENQ(null)W(null)E(null)R(null)T(null)Y(null)U(null)I(null)O(null)P(null)@(null)*(null)^(null)ZWAIT  SYSPEEK"
  49. 580 [153][163]35)"PEEK":[153][163]6)"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  50. 590 [153][163]6)"PEEK":[153][163]6)"PEEK + PEEK   (null)    (null)   WAITSGN"
  51. 600 [153][163]6)"SYSPEEK + PEEK WAITD WAITF (null) WAITH WAITJ WAITK (null) WAIT: WAIT; WAITSGN"
  52. 610 [153][163]6)"SYSMID$TANTHEN PEEK PEEK (null) (null) (null) (null) (null)CLOSE(null) (null) (null) WAITSGN"
  53. 620 [153][163]8)"+ZPEEKX(null)C(null)V(null)B(null)N(null)M(null),(null).(null)/(null) WAITSGN"
  54. 630 [153][163]8)"SYSRETURN FOR VALUES SCREEN":[142]
  55. 640 [131] 62,2145,9,2408,14,2703,17,2864,22,3215,25,3608,30,4050,33,4291
  56. 650 [131] 38,4817,41,5407,46,5728,49,6430,54,7217,12,8101,23,8583,20,9634
  57. 660 [131] 31,10814,28,11457,39,12860,36,14435,47,16203,44,17167,55,19269
  58. 670 [131] 59,2273,8,2551,16,3034,19,3406,24,3823,32,4547,35,5103,43,6069,48,6812
  59. 680 [131] 51,7647,18,9094,21,10207,29,12139,34,13625,37,15294,45,18188,50,20415
  60. 690 Z[178][181](6[172][187](1))[170]1:FL[178][181](3[172][187](1))[170]0
  61. 700 SL[178][181](255[172][187](1))[170]1
  62. 710 W1[178][181](7[172][187](1))[170]1:[145]W1[137]720,730,740,750,760,770,780
  63. 720 W1[178]17:[137]790
  64. 730 W1[178]33:[137]790
  65. 740 W1[178]65:[137]790
  66. 750 W1[178]129:[137]790
  67. 760 W1[178]21:[137]790
  68. 770 W1[178]23:[137]790
  69. 780 W1[178]85
  70. 790 W2[178][181](8[172][187](1))[170]1:[145]W2[137]800,810,820,830,840,850,860,870
  71. 800 W2[178]1:[137]880
  72. 810 W2[178]17:[137]880
  73. 820 W2[178]33:[137]880
  74. 830 W2[178]65:[137]880
  75. 840 W2[178]129:[137]880
  76. 850 W2[178]21:[137]880
  77. 860 W2[178]23:[137]880
  78. 870 W2[178]85
  79. 880 AT[178][181](10[172][187](1))[170]1:DE[178][181](15[172][187](1))[170]1:SU[178][181](15[172][187](1))[170]1
  80. 890 RE[178][181](15[172][187](1))[170]1:SO[178][181](4[172][187](1))[170]1:[145]SO[137]895,900,910,920
  81. 895 PO[178]240:[137]930
  82. 900 PO[178]241:[137]930
  83. 910 PO[178]242:[137]930
  84. 920 PO[178]243
  85. 930 XT[178][181](40[172][187](1))[170]1
  86. 940 VS[178][181](4[172][187](1))[170]1:[145]VS[137]950,960,970,980
  87. 950 VS[178]17:[137]990
  88. 960 VS[178]33:[137]990
  89. 970 VS[178]65:[137]990
  90. 980 VS[178]129
  91. 990 VI[178][181](200[172][187](1))[170]55
  92. 1000 DB[178][181](8[172][187](1))[170]1:DC[178][181](8[172][187](1))[170]1:DD[178][181](8[172][187](1))[170]1
  93. 1010 VO[178][181](3[172][187](1))[170]1:[145]VO[137]1020,1030,1040
  94. 1020 VO[178]31:[137]250
  95. 1030 VO[178]45:[137]250
  96. 1040 VO[178]79:[137]250
  97. 1050 [151]53280,6:[151]53281,6:[151]198,0:[153]"LOAD":[153][163]13)"VALUES SCREEN"
  98. 1060 [153]"Z ="[163]21)Z:[153]"FL ="[163]21)FL
  99. 1070 [153]"VOICE 1 ="[163]21)W1:[153]"VOICE 2 ="[163]21)W2
  100. 1080 [153]"ATTACK ="[163]21)AT:[153]"DECAY ="[163]21)DE
  101. 1090 [153]"SUSTAIN ="[163]21)SU:[153]"RELEASE ="[163]21)RE
  102. 1100 [153]"RESONANCE ="[163]21)PO
  103. 1110 [153]"SYNC SPEED ="[163]21)XT
  104. 1120 [153]"VIBRATO SPEED ="[163]21)VI
  105. 1130 [153]"VIBRATO SHAPE ="[163]21)VS:[153]"PULSE SHAPE VOICE 1 ="DB
  106. 1140 [153]"PULSE SHAPE VOICE 2 ="DC:[153]"PULSE SHAPE VOICE 3 ="DD
  107. 1150 [153]"FILTER ="[163]21)VO
  108. 1160 [153]"STEP LIMIT ="[163]21)SL
  109. 1170 [153]"PRESS RETURN FOR KEYBOARD SCREEN
  110. 1180 GETA$:IFA$<>CHR$(13)THEN1180
  111. 1190 GOSUB490:GOTO280
  112. 1200 S$="":POKE198,0:PRINT"[147]":POKE214,9:PRINT:POKE211,4
  113. 1210 INPUT"SOUND TO SAVE";S$:IFS$=""THENGOSUB490:GOTO280
  114. 1220 OPEN1,8,1,S$:PRINT#1,Z
  115. 1230 PRINT#1,FL:PRINT#1,W1:PRINT#1,W2:PRINT#1,AT:PRINT#1,DE:PRINT#1,SU
  116. 1240 PRINT#1,RE:PRINT#1,PO:PRINT#1,XT:PRINT#1,VI:PRINT#1,VS:PRINT#1,DB
  117. 1250 PRINT#1,DC:PRINT#1,DD:PRINT#1,VO:PRINT#1,SL:CLOSE1:GOSUB490:GOTO280
  118. 1260 S$="":POKE198,0:PRINT"[147]":POKE214,9:PRINT:POKE211,4
  119. 1270 INPUT"SOUND TO LOAD";S$:IFS$=""THENGOSUB490:GOTO280
  120. 1280 OPEN1,8,0,S$:INPUT#1,Z
  121. 1290 INPUT#1,FL:INPUT#1,W1:INPUT#1,W2:INPUT#1,AT:INPUT#1,DE:INPUT#1,SU
  122. 1300 INPUT#1,RE:INPUT#1,PO:INPUT#1,XT:INPUT#1,VI:INPUT#1,VS:INPUT#1,DB
  123. 1310 INPUT#1,DC:INPUT#1,DD:INPUT#1,VO:INPUT#1,SL:CLOSE1:GOSUB490:GOTO250
  124.