Composition editor.
Content
Image Gallery
Source Code
10 BEEP .05,30: CLS : PRINT "Compostion Editor"'"V1.1 27 November 84"'"Bryan Lewis"
16 LET n(6,1,1)=228: LET n(6,1,2)=4
20 REM DIM a$(1000,2): DIM b$(1000,2): DIM c$(1000,2)
21 CLS : PRINT "OK"''"Configuring memory now"
22 FOR f=1 TO 1000
24 NEXT f
25 PRINT '''"OK"
26 LET c=1: LET cc=2: LET d=3: LET dd=4: LET e=5: LET f=6: LET ff=7: LET g=8: LET gg=9: LET a=10: LET aa=11: LET b=12
30 LET z$="stop"
50 CLS : PRINT ;TAB 7;"Options";AT 5,0;TAB 7;"1. Enter Voice A"'TAB 7;"2. Enter Voice B"';TAB 7;"3. Enter Voice C"';TAB 7;"4. Edit";'TAB 7;"5. Play"
51 SOUND 7,63
52 INPUT opt
54 CLS : IF opt>5 OR opt<1 THEN GO TO 50
55 GO TO 80+opt*20
100 PRINT "Enter note on promt. If no "'"change, press 'ENTER'"
101 PRINT "Enter 'stop' to EXIT": PAUSE 600: INPUT "START NOTE#? ";n$: IF n$="" THEN LET JJG=1: GO TO 103
102 LET jjg=VAL n$
103 FOR j=JJG TO 1000
104 PRINT AT 10,0;"NOTE#: ";j;" "'''''"MEASURE: ";(j-1)/16+1;" in 4/4 (16th's)";AT 11,0;"NOTE: ";
106 INPUT "NOTE? "; LINE k$: IF k$="r" THEN LET a$(j,1)=CHR$ 0: LET a$(j,2)=CHR$ 0: NEXT j
107 IF k$="" THEN LET k$=z$
108 IF k$="stop" THEN GO TO 50
109 LET n1=VAL k$(1 TO (LEN k$-1))
110 LET n2=VAL k$(LEN k$)
111 LET z$=k$
112 LET a$(j,1)=CHR$ n(n1,n2,1)
113 LET a$(j,2)=CHR$ n(n1,n2,2)
114 PRINT k$;" "
115 NEXT j
116 GO TO 50
120 PRINT "Enter note on promt. If no "'"change, press 'ENTER'"
121 PRINT "Enter 'stop' to EXIT": INPUT "START NOTE#? ";n$: IF n$="" THEN LET jjg=1: GO TO 123
122 LET jjg=VAL n$
123 FOR j=jjg TO 1000
124 PRINT AT 10,0;"NOTE#: ";j;" "
125 PRINT ''''"MEASURE: ";(j-1)/16+1;" in 4/4 (16th's)";AT 11,0;"NOTE: ";
126 INPUT "NOTE? "; LINE k$: IF k$="r" THEN LET b$(j,1)=CHR$ 0: LET b$(j,2)=CHR$ 0: NEXT j
127 IF k$="" THEN LET k$=z$
128 IF k$="stop" THEN GO TO 50
129 LET n1=VAL k$(1 TO (LEN k$-1))
130 LET n2=VAL k$(LEN k$)
131 LET z$=k$
132 LET b$(j,1)=CHR$ n(n1,n2,1)
133 LET b$(j,2)=CHR$ n(n1,n2,2)
134 PRINT k$;" "
135 NEXT j
136 GO TO 50
140 PRINT "Enter note on promt. If no "'"change, press 'ENTER'"
141 PRINT "Enter 'stop' to EXIT": INPUT "St NOTE#? ";n$: IF n$="" THEN LET jjg=1: GO TO 143
142 LET jjg=VAL n$
143 FOR j=jjg TO 1000
144 PRINT AT 10,0;"NOTE#: ";j;" "
145 PRINT ''''"MEASURE: ";(j-1)/16+1;" in 4/4 (16th's)";AT 11,0;"NOTE: ";
146 INPUT "NOTE? "; LINE m$: IF m$="r" THEN LET c$(j,1)=CHR$ 0: LET c$(j,2)=CHR$ 0: NEXT j
147 IF m$="" THEN LET m$=z$
148 IF m$="stop" THEN GO TO 50
149 LET o1=VAL m$(1 TO (LEN m$-1))
150 LET o2=VAL m$(LEN m$)
151 LET z$=m$
152 LET c$(j,1)=CHR$ n(o1,o2,1)
153 LET c$(j,2)=CHR$ n(o1,o2,2)
154 PRINT m$;" "
155 NEXT j
156 GO TO 50
160 REM EDIT: GO TO 200
161 GO TO 200
180 CLS : PRINT "PLAY"
181 INPUT "A Volume",avol: INPUT "B volume",bvol: INPUT "C Volume",cvol
182 INPUT "Speed",sp,"START#? ";jjg
185 SOUND 7,56;8,avol;9,bvol;10,cvol
190 FOR j=jjg TO 400
191 SOUND 0,CODE a$(j,1);1,CODE a$(j,2);2,CODE b$(j,1);3,CODE b$(j,2)
192 SOUND 4,CODE c$(j,1)-1;5,CODE c$(j,2): PAUSE sp
193 IF INKEY$="x" THEN SOUND 8,0;9,0;10,0: GO TO 50
194 NEXT j: GO TO 190
195 GO TO 50
200 CLS : INPUT "What voice? (1=a, 2=b, 3=c) ";voice
201 PRINT "Use ^ to go fwd"'"Use down arrow to go bckwd": PAUSE 480
202 CLS
203 INPUT "START WHERE? (#) ";JJG
205 GO TO voice*10+200
210 LET j=JJG
211 SOUND 0,CODE a$(j,1);1,CODE a$(j,2);7,62;8,15
212 PRINT AT 10,0;"NOTE#: ";j;" "
214 IF INKEY$="x" THEN GO TO 50
215 IF INKEY$="i" THEN GO SUB 1000
216 LET j=j+(INKEY$="7")-(INKEY$="6"): IF j<1 THEN LET j=1
219 GO TO 211
220 LET j=JJG
221 SOUND 0,CODE b$(j,1);1,CODE b$(j,2);7,62;8,15
222 PRINT AT 10,0;"NOTE#: ";j;" "
224 IF INKEY$="x" THEN GO TO 50
225 IF INKEY$="i" THEN GO SUB 1050
226 LET j=j+(INKEY$="7")-(INKEY$="6"): IF j<1 THEN LET j=1
229 GO TO 221
1000 INPUT "NOTE? "; LINE m$: IF m$="r" THEN LET a$(j,1)=CHR$ 0: LET a$(j,2)=CHR$ 0: RETURN
1002 LET n1=VAL m$( TO (LEN m$-1)): LET n2=VAL m$(LEN m$): LET a$(j,1)=CHR$ n(n1,n2,1): LET a$(j,2)=CHR$ n(n1,n2,2)
1004 RETURN
1050 INPUT "NOTE? "; LINE m$: IF m$="r" THEN LET b$(j,1)=CHR$ 0: LET b$(j,2)=CHR$ 0: RETURN
1052 LET n1=VAL m$( TO (LEN m$-1)): LET n2=VAL m$(LEN m$): LET b$(j,1)=CHR$ n(n1,n2,1): LET b$(j,2)=CHR$ n(n1,n2,2)
1054 RETURN
9998 SAVE "janice" LINE 50