10 GOTO330
15 INPUTB,E:S=B*25+9758:F=9758+E*25+25:L=9
16 IFB<0ORE>125ORB>ETHENPRINT"BAD INPUT":GOTO15
20 PRINT"[147]":FORI=STOS+47STEP6
21 IFI>FTHENNEXT:L=3:PRINT"QK="QK":QB="QB":GOTO35":GOTO35
25 PRINTI;"DATA";:FORJ=0TO5:PRINTPEEK(I+J)"[157],";:NEXTJ:PRINTCHR$(20):NEXTI
30 PRINT"QK="QK"[157]:QB="QB"[157]:S="S+48"[157]:F="F"[157]:L="L"[157]:GOTO20"
35 POKEQK,L:FORK=1TOL:POKEQB+K,13:NEXTK:PRINT"":END
40 PRINT"[147]":FORM=0TO7:PRINTM:NEXTM
45 POKEQK,8:FORK=1TO8:POKEQB+K,13:NEXTK:PRINT"":END
50 A=PEEK(61)+256*PEEK(62)+3:POKE786,INT(A/256):POKE785,A-256*PEEK(786)
55 IFERTHENPOKEA-2,0:POKEA-1,0:POKE45,PEEK(785):POKE46,PEEK(786)
56 IFERTHENCLR:QK=198:QB=630:GOTO15
60 REM VOICE DISPLAY
65 PRINT" VOICE#"V"[213][195][195][195][195][195][195][195][195][195][201] VOICE#"V:POKE2,0
70 PRINT" [213][195][195][195][195][195][195][195][195][203]FREQUENCY[202][195][195][195][195][195][195][195][195][195][201]
75 [153]" PEEKOCTAVE       1 2 3 4 5 6 7 8PEEK
80 PRINT" [194]                            [194]
85 [153]" PEEKNOTE C C D D E F F G G A A BPEEK
90 PRINT" [194]       #   #     #   #   #  [194]
95 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
100 PRINT"          [213][195][195][195][195][195][195][195][195][201]
105 [153]" (null)LENLENLENLENLENLENLENLEN(null)ENVELOPEMID$LENLENLENLENLENLENLENLENLENLENRIGHT$
110 PRINT" [194]  ATTACK    ++++++++++++++++[194]
115 [153]" PEEK  DECAY     ++++++++++++++++PEEK
120 PRINT" [194]  SUSTAIN   ++++++++++++++++[194]
125 [153]" PEEK  RELEASE   ++++++++++++++++PEEK
130 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
135 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
140 PRINT" [194] [186][205][186][205][186][205] [213][195][195][195][195][195][195][195][195][201]  [206][205][206][205][206][205]  [194]
145 [153]" PEEK        PEEKWAVEFORMPEEK          PEEK
150 PRINT" [194] [207][204][207][204][207][204] [202][195][195][195][195][195][195][195][195][203]  ";
151 PRINT"NOISE   [194]          [194]                            [194]"
155 PRINT" [194]PULSE WIDTH ++++++++++++++++[194]
160 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
165 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
170 [153]" PEEKSYNCHRONIZATION   USE VOICE PEEK
175 PRINT" [194]RING MODULATION      #"SR".  [194]
180 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)";
185 [153]""
190 A[178](V[171]1)[172]7:S[178]S[170]A:[151]254,S[173]256:[151]253,S[171]256[172][194](254)
195 [158]VCH
200 [137]455
205 [153]"LOAD";:[151]2,255
210 [143] FILTER DISPLAY
215 [153]"LENLENLENLENLENLENLENLENLENLENLENLENFILTER SETTINGSLENLENLENLENLENLENLENLENLENLENLENLENLENWAIT"
220 [153]"(null)LENLENLENLENLENLENLENLENLENLENLENRIGHT$(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
225 PRINT"[194]FILTER TYPE[194][194]CUTOFF FREQUENCY[194]
230 [153]"PEEK           PEEKPEEK++++++++++++++++PEEK
235 PRINT"[194] HIGH PASS [194][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
240 [153]"PEEK           PEEK(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
245 PRINT"[194] BAND PASS [194][194]VOICES  FILTERED[194]
250 [153]"PEEK           PEEKPEEK 1   2   3   E  PEEK
255 PRINT"[194] LOW  PASS [194][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
260 [153]"MID$LENLENLENLENLENLENLENLENLENLENLEN(null)(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
265 PRINT"             [194]   RESONANCE    [194]
270 [153]"             PEEK++++++++++++++++PEEK
275 PRINT"             [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
280 [153]"LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENWAIT";
285 [153]"             (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
290 PRINT"             [194][160][160][160] [160]VOLUME[160][160][160][160][160][194]
295 [153]"             PEEK++++++++++++++++PEEK
300 PRINT"             [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
305 [153]"             (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
310 PRINT"             [194]VOICE #3 OUTPUT[146] [194]
315 [153]"             MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
320 S=S+21:POKE254,S/256:POKE253,S-256*PEEK(254):SYSFCH:GOTO455
325 REM INITIALIZATION
330 SS=9758:POKE78,30:POKE79,38:SN=0:VCH=50360:FCH=50405:POKE53236,10
335 POKE53248,24:POKE53249,50:POKE51,29:POKE52,38:POKE55,29:POKE56,38
340 PRINT"[147]"
345 PRINT""TAB(7)"WELCOME TO SOUND SCULPTOR"
350 FORL=1TO2000:NEXT
355 PRINT"[147]"
360 PRINT""TAB(15)"MAIN MENU[146]"
365 PRINT""TAB(14)"CHOOSE ONE:"
370 PRINT""TAB(7)"F1[146] DESIGN/REVIEW SOUNDS"
375 PRINT:PRINTTAB(7)"F3[146] LOAD SOUND FILE "
380 GETA$:IFA$<"[133]"ORA$>"[134]"THEN380
385 ONASC(A$)-132GOTO430,670
390 REM JOYSTICK SPEED
395 PRINT"[147]   SELECT A SPEED BETWEEN 0 AND 15."
400 PRINT"    0 - SLOWEST      15 - FASTEST"
405 INPUTPS
410 IFPS<0ORPS>15THENPRINT"NUMBER NOT ACCEPTABLE":GOTO405
415 POKE53236,16-PS:GOTO455
420 STOP
425 REM SOUND DESIGN/REVIEW
430 PRINT"[147]"
435 PRINT" WHICH SOUND DO YOU WISH TO WORK ON?"
440 PRINT"  (NUMBER BETWEEN 0 & 1250 PLEASE)
445 [133]SN
450 [139]SN[179]0[176]SN[177]1250[167][153]"NUMBER NOT ACCEPTABLE":[137]445
455 [151]53269,0:[153]"LOADSOUND #";SN"WAIT"[163]15)"CHOOSE ONE:"
460 S[178]SS[170]SN[172]25
465 [151]79,S[173]256:[151]78,S[171]256[172][194](79)
470 [153]:[153][163]8)"1WAIT - DISPLAY VOICE #1"
475 [153]:[153][163]8)"2WAIT - DISPLAY VOICE #2"
480 [153]:[153][163]8)"3WAIT - DISPLAY VOICE #3"
485 [153]:[153][163]8)"4WAIT - DISPLAY FILTER SETTINGS"
490 [153]:[153][163]8)"5WAIT - CLEAR SOUND"
495 [153]:[153][163]8)"6WAIT - NEW SOUND NUMBER"
500 [153]:[153][163]8)"7WAIT - CHANGE JOYSTICK SPEED"
505 [153]:[153][163]8)"8WAIT - QUIT"
510 [161]C$:[139]C$[179]"1"[176]C$[177]"8"[167]510
515 [145][197](C$)[137]520,525,530,535,540,430 ,395,550
520 V[178]1:SR[178]3:[151]53269,1:[137]65
525 V[178]2:SR[178]1:[151]53269,1:[137]65
530 V[178]3:SR[178]2:[151]53269,1:[137]65
535 [151]53269,1:[137]205
540 [129]L[178]0[164]24:[151]S[170]L,0:[130]:[137]455
545 [143] QUIT
550 [153]"LOAD"
555 [153] [163]14)"CHOOSE ONE:"
560 [153]:[153][163]6)"F1WAIT - SAVE SOUND FILE"
565 [153]:[153][163]6)"F3WAIT - CONVERT TO DATA STATEMENTS"
570 [153]:[153][163]6)"F5WAIT - END"
575 [161]A$:[139]A$[179]"INPUT"[176]A$[177]"READ"[167]575
580 [145][198](A$)[171]132[137]610 ,585,685
585 [153]"LOAD"
590 [153]"  ENTER SOUNDS YOU WANT TO CONVERT"
595 [153]"      (START,END)";
600 ER[178]1:[137]50
605 [143] SAVE SOUNDS ROUTINE
610 [153]"LOAD"
615 [153]"  ENTER SOUNDS YOU WISH TO SAVE"
620 [153]"      (START,END)";
625 [133]B,E:[139]B[179]0[176]E[177]1250[176]B[177]E[167][153]"BAD INPUT":[137]625
630 S[178]B[172]25[170]9758:F[178]9758[170]E[172]25[170]25
635 [151]79,S[173]256:[151]78,S[171]256[172][194](79):[151]254,F[173]256:[151]253,F[171]256[172][194](254)
640 [133]"WHAT DO YOU WISH TO NAME THE FILE";NM$:[139]NM$[178]""[167]640
645 T[178][195](NM$):[151]2,T
650 [129]J[178]1[164]T:[151]50944[171]J[170]T,[198]([201](NM$,J)):[130]J
655 [158]50659
660 [158]50692
665 [153]:[153]NM$" FILE HAS BEEN SAVED":[153]"THANKYOU":[128]
670 [143] LOAD ROUTINE
671 [139][194](50660)[178]1[167] [153]"LOAD":[151]2,0:[158]50659:[158]50682:[137]430
673 [133]"FILENAME";NM$:T[178][195](NM$):[151]2,T:[139]T[178]0[167]673
674 [129] J[178]1[164]T:[151]50944[171]J[170]T,[198]([201](NM$,J)):[130]J
675 [158]50659:[158]50682
676 [139] ST[178]66 [167][153]"FILE NOT FOUND":[137]673
679 [137]430
680 [143] END
685 [153]"LOADTHANK YOU":[128]