start tok64 d64-0ez8Zk 10 DIMw(84),x(84):POKE53280,12:POKE53281,0:PRINTCHR$(147)CHR$(5) 20 x1=170:x2=250:y1=105:y2=y1+21:y3=y2+21:y4=y3+21:q=12288:q1=12801:v=53248:c=2 30 e=54299:f=54300:d=32:a=.5:o=1:i=2:s=3:t=0:e$="{space*12}" 40 FORt=54272TO54295:POKEt,0:NEXT:POKE54296,143:FORt=qTO12798:POKEt,0:NEXT 50 FORt=2040TO2047:POKEt,t-1848:NEXT 60 POKEv,x1:POKEv+1,y1:POKEv+2,x1:POKEv+3,y2:POKEv+4,x1:POKEv+5,y3:POKEv+6,x1 70 POKEv+7,y4:POKEv+8,x2:POKEv+9,y1:POKEv+10,x2:POKEv+11,y2:POKEv+12,x2 80 POKEv+13,y3:POKEv+14,x2:POKEv+15,y4 90 FORt=39TO42:POKEv+t,3:NEXT:FORt=43TO46:POKEv+t,7:NEXT 100 POKEv+23,0:POKEv+29,255 110 POKE54273,10:POKE54287,6 120 a$="":POKE214,c+1:PRINT:POKE211,2:INPUT"waveform";a$:GOSUB560:IFu=0THEN120 130 w=VAL(a$):IFw=0ORw>255THEN120 140 IFw=65THENGOSUB530 150 a$="":POKE214,c+2:PRINT:POKE211,2:INPUT"att/dec";a$:GOSUB560:IFu=0THEN150 160 ad=VAL(a$):IFad=0ORad>255THEN150 170 a$="":POKE214,c+3:PRINT:POKE211,2:INPUT"sus/rel";a$:GOSUB560:IFu=0THEN170 180 sr=VAL(a$):IF sr=0ORsr>255THEN170 190 a$="":POKE214,c+4:PRINT:POKE211,2:INPUT"sus time";a$:GOSUB560:IFu=0THEN190 200 s1=VAL(a$):IF s1=0ORs1>84THEN190 210 a$="":POKE214,c+5:PRINT:POKE211,2:INPUT"rel time";a$:GOSUB560:IFu=0THEN210 220 s2=VAL(a$):IF s2=0ORs2>84THEN210 230 s3=s1+s2:IFs3>84THEN190 240 POKE54277,ad:POKE54278,sr:POKE54291,ad:POKE54292,sr 250 POKE54275,pw:POKE54289,pw:POKE54276,w:POKE54290,w:POKEv+21,255 260 FORt=0TOs1:w(t)=PEEK(e):x(t)=PEEK(f):NEXT:POKE54276,0:POKE54290,0 270 FORt=s1TOs3:w(t)=PEEK(e):x(t)=PEEK(f):NEXT 280 FORt=s3TO84:w(t)=0:x(t)=0:NEXT 290 POKE214,3:PRINT:POKE211,19:PRINT"wave{space*6}adsr 300 POKE214,4:PRINT:POKE211,19:PRINT"1 2 3{space*5}1 2 3 310 POKE214,5:PRINT:POKE211,19:PRINT"{cm t*5}{space*5}{cm t*5} 320 FORt=0TO20:GOSUB510:NEXT:q=q+1 330 FORt=21TO41:GOSUB510:NEXT:q=q+1 340 FORt=42TO62:GOSUB510:NEXT:q=q+1 350 FORt=63TO83:GOSUB510:NEXT:q=q+1 360 FORt=0TO20:GOSUB520:NEXT:q=q+1 370 FORt=21TO41:GOSUB520:NEXT:q=q+1 380 FORt=42TO62:GOSUB520:NEXT:q=q+1 390 FORt=63TO83:GOSUB520:NEXT:q=q+1 400 IFq<>q1THENPOKE214,18:PRINT:POKE211,22:PRINT"erase (e)" 410 IFq<>q1THENPOKE214,19:PRINT:POKE211,22:PRINT"quit (q)" 420 IFq<>q1THENPOKE214,20:PRINT:POKE211,22:PRINT"compare (c)" 430 IFq=q1THENPOKE214,18:PRINT:POKE211,22:PRINT"erase (e)" 440 IFq=q1THENPOKE214,19:PRINT:POKE211,22:PRINT"quit (q)" 450 GETa$:IFa$<>"e"THENIFa$<>"c"THENIFa$<>"q"THEN450 460 IFa$="e"THENRUN 470 IFa$="c"THENIFq=q1THENRUN 480 IFa$="c"THENq=q-510:c=c+6:POKE214,18:PRINT 490 IFa$="c"THENFORt=1TO3:POKE211,22:PRINTe$:NEXT:GOTO120 500 PRINTCHR$(147)CHR$(154):POKEv+21,0:POKE54296,0:POKE53280,14:POKE53281,6:END 510 POKEq,(i^INT(w(t)/d+a))-oORo:q=q+3:RETURN 520 POKEq,(i^INT(x(t)/d+a))-oORo:q=q+3:RETURN 530 POKE214,c+1:PRINT:POKE211,2:INPUT"pulse width";a$:GOSUB560:IFu=0THEN530 540 pw=VAL(a$):IFpw=0ORpw>255THEN530 550 RETURN 560 IFa$=""THENRETURN 570 FORn=1TOLEN(a$):u=ASC(MID$(a$,n,1)):IFu<47ORu>57THENu=0:RETURN 580 NEXT:RETURN stop tok64 (bastext 1.0)