start tok64 d64-UVBECw
5 DIMa1(25),a(36):p=54272:c$="{up*2}"
10 POKEp-991,0:POKEp-992,0:a$(0)="{right}f{pound}rsta":a$(1)="{right}andra":c=0
15 a2(1)=16:a2(2)=32:a2(3)=64:a2(4)=128
20 PRINT"{clear}":a$(2)="{right}tredje":FORi=1TO24:PRINT"B":POKEp-1+i,0:NEXT:PRINT"{home}{down}"a$(a1)
30 PRINT"{right} volym{space*5}(0-15){space*3}";a(1+e):PRINT"{right} v]g form{space*2}(1-04){space*3}";a(2+e)
40 PRINT"{right}{green} attack{space*4}(0-15){light blue}{space*3}";a(3+e):PRINT"{right}{green} decay{space*5}(0-15){light blue}{space*3}";a(4+e)
50 PRINT"{right}{pink} sustain{space*3}(0-15){light blue}{space*3}";a(5+e):PRINT"{right}{pink} release{space*3}(0-15){light blue}{space*3}";a(6+e)
51 PRINT"{right} l]g del{space*2}(0-255){space*3}";a(7+e):PRINT"{right} h{pound}g del{space*2}(0-255){space*3}";a(8+e)
52 PRINT"{right}{orange} f{pound}rdr{pound}jnings loop{light blue}{space*2}";a(9+e)
53 PRINT"{right}filter high pass (0-1) ";a2(5):PRINT"{right}filter band pass (0-1) ";a2(6)
54 PRINT"{right}filter low{space*2}pass (0-1) ";a2(7)
59 PRINT"{right*4}{down*9}{green}N{up}N{up}N{up}N{up}NM{down}M{pink}{cm p*11}{down}M{down}M{down}M{light blue}"
60 PRINT"{up*4}{right}attack{right*3}{up}decay{down*2}{left*2}sustain{down}{right*4}release"
63 PRINT"{up*6}{right*3}{orange}{cm m}{-*5}loop-tid{-*5}{cm g}{light blue}"
65 PRINT"{home}{down}":FOR i=1TO8
70 PRINTTAB(20);:INPUTa(i+e)
75 IF i=1ORi=3ORi=4ORi=5ORi=6THENIFa(i+e)>15ORa(i+e)<0THENPRINTc$:GOTO70
80 IFa(i+e)>255ORa(2)>4THENPRINTc$:GOTO70
81 NEXT:PRINTTAB(20):INPUTa(9+e):FOR i=5TO7
82 PRINTTAB(23);:INPUTa2(i):IF a2(i)>1OR a2(i)<0THENPRINTc$:GOTO82
85 NEXT:IFa(2+e)=3THENGOSUB500
100 a1(5+a)=16*a(3+e)ORa(4+e):a1(6+a)=16*a(5+e)ORa(6+e)
105 a1(2+a)=a(10+e):a1(3+a)=a(11+e)
110 a3(a1)=a(1+e)ORa2(5)*16:a1(a)=a(7+e):a1(a+1)=a(8+e):a1(4+a)=a2(a(2+e))
120 a3(a1)=a3(a1)ORa2(6)*32:a3(a1)=a3(a1)ORa2(7)*64:GOSUB3000
200 INPUT"{right*2}{down}[r du n{pound}jd {reverse on}j{reverse off}a {reverse on}n{reverse off}ej (*)=lyssna ";a$:IF LEFT$(a$,1)="n"THEN15
205 IFa$="*"THENPRINT"{up*3}":GOSUB3000:GOTO200
210 PRINT"{clear}n[r du [r helt klar,skriv 99"
230 INPUT"vilken vill du forts[tta med 1 2 3 ";a1:a1=a1-1:a=a1*7:e=a1*12
235 IF a1=98THENPRINT"{clear}{down*3}new{down*2}":GOTO5000
240 IFa1<0ORa1>2THENa=0:GOSUB3000:GOTO210
245 GOTO20
250 IF a1=100THEN5000
500 PRINT"{right*2}puls l]gdel (0-255){space*3}";a(10+e)
505 PRINT"{right*2}puls h{pound}gdel (0-15){space*4}";a(11+e)c$:FOR i=10TO11
510 PRINTTAB(23);:INPUTa(i+e):IF a(i+e)<0THENPRINTc$:GOTO510
520 IF a(11+e)>15ORa(10+e)>255THENPRINTc$:GOTO510
530 NEXT:RETURN
3000 FOR i=0TO24:POKEp+i,0:POKEp+i,a1(i):NEXT
3002 POKEp+24,a3(0):POKEp+4,a1(4)OR1:FORi=1TOa(9):NEXT:POKEp+4,a1(4)AND254
3003 IFa(13)=0THEN3020
3004 POKEp+24,a3(1):POKEp+11,a1(11)OR1:FORi=1TOa(21):NEXT:POKEp+11,a1(11)AND254
3006 IFa(25)=0THEN3020
3008 POKEp+24,a3(2):POKEp+18,a1(18)OR1:FORi=1TOa(33):NEXT:POKEp+18,a1(18)AND254
3020 POKEp+4,a1(4)AND254:POKEp+11,a1(11)AND254:POKEp+18,a1(18)AND254:RETURN
5000 IF a(13)<>0THEN r=1:IF a(25)<>0THEN r=2
5005 l=9:n=4:FOR k=0TOr:m=m+1:PRINTm*10;:FOR j=1TO4
5010 PRINT"poke";p+v"{left},"a1(v);"{left}:";:v=v+1:NEXT:m=m+1:v=v+1
5030 PRINT:PRINTm*10;
5040 PRINT"poke";p+v"{left},"a1(v);"{left}:";:v=v+1:PRINT"poke";p+v"{left},"a1(v);"{left}:";:v=v+1
5050 v=v+1:m=m+1:PRINT"{left}:poke"p+24","a3(k)
5060 PRINTm*10;"poke";p+n;"{left},"a1(n);"or 1:for i=1 to"a(l);
5065 PRINT"{left}:next:poke"p+n;"{left},"a1(n);"and254"
5070 l=l+12:v=v-1:n=n+7:NEXT
5080 PRINT"{home}":FOR i=0TO9:POKE631+i,13:NEXT:POKE198,10
stop tok64
(bastext 1.0)