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