EDITSON128 EDITOR DE SONIDOS MEDIANTE AY-3-8910 POR ALVARO ALEA  1992 (( Solo para 128K ) -A 5250552 4"" 52480:236077\,204 287:0:0:0:1:0: 19cur1=19 cur1=cur210 E1;1; cur ,0;" " E1;1;cur1 ,0;" " curcur1cur=cur1:100d cur=3770 cur=4950 cur=51010 cur=6460 cur=7510 cur=85600 cur=9 830> cur=10 370r "cur=11 1070. ,cur=12 400 6cur=13 1130j @cur=14430 Jcur=15890z Tcur=17610b ^cur=18660 hcur=19710 rVi$="q"i$="Q"d$(1)="N"d$(1)="S" :10 ,11 ;"SI":100d |Ki$="q"i$="Q"d$(1)="S"d$(1)="N" :10 ,11 ;"NO"  100d Wi$="q"i$ ="Q"d$(2)="N"d$(2)="S" :12 ,11 ;"SI":100d Ki$="q"i$="Q"d$(2)="S"d$(2)="N" :12 ,11 ;"NO"  100d Vi$="q"i$="Q"d$(3)="N"d$(3)="S" :14,11 ;"SI":100d Ki$="q"i$="Q"d$(3)="S"d$(3)="N" :14,11 ;"NO"  100d Ui$="q"i$="Q"a$(1)="N"a$(1)="S" :6,13 ;"SI":100d Ui$="w"i$="W"a$(2)="N"a$(2)="S" :6,22;"SI":100d Ji$="q"i$="Q"a$(1)="S"a$(1)="N" :6,13 ;"NO" Ji$="w"i$="W"a$(2)="S"a$(2)="N" :6,22;"NO"  100d Ui$="q"i$="Q"b$(1)="N"b$(1)="S" :7,13 ;"SI":100d Ui$="w"i$="W"b$(2)="N"b$(2)="S" :7,22;"SI":100d Ji$="q"i$="Q"b$(1)="S"b$(1)="N" :7,13 ;"NO" Ji$="w"i$="W"b$(2)="S"b$(2)="N" :7,22;"NO" & 100d 0Ui$="q"i$="Q"c$(1)="N"c$(1)="S" :8,13 ;"SI":100d :Ui$="W"i$="w"c$(2)="N"c$(2)="S" :8,22;"SI":100d DJi$="q"i$="Q"c$(1)="S"c$(1)="N" :8,13 ;"NO" NJi$="w"i$="W"c$(2)="S"c$(2)="N" :8,22;"NO" X 100d bVi$="q"i$="Q"e$(1)="N"e$(1)="S" :17,10 ;"SI":100d lVi$="W"i$="w"e$(2)="N"e$(2)="S" :17,26;"SI":100d vKi$="q"i$="Q"e$(1)="S"e$(1)="N" :17,10 ;"NO" Ki$="w"i$="W"e$(2)="S"e$(2)="N" :17,26;"NO"  100d Vi$="q"i$="Q"e$(3)="N"e$(3)="S" :18,10 ;"SI":100d Vi$="W"i$="w"e$(4)="N"e$(4)="S" :18,26;"SI":100d Ki$="q"i$="Q"e$(3)="S"e$(3)="N" :18,10 ;"NO" Ki$="w"i$="W"e$(4)="S"e$(4)="N" :18,26;"NO"  100d <i$="q"i$="Q"fgr=fgr+10 :fgr>31fgr=0 <i$="w"i$="W"fgr=fgr-10 :fgr<0fgr=31 < i$="o"i$="O"fgr=fgr+1:fgr>31fgr=0 ;i$="p"i$="P"fgr=fgr-1:fgr<0fgr=31 19,26;fgr;" "  100d >i$="q"i$="Q"fra=fra+10 :fra>4095fra=0  =i$="o"i$="O"fra=fra+1:fra>4095fra=0 >i$="w"i$="W"fra=fra-10 :fra<0fra=4095  =i$="p"i$="P"fra=fra-1:fra<0fra=4095 *3,19;fra;" " 4 100d ><i$="Q"i$="q"aca=aca+10 :aca>15aca=0 H=i$="w"i$="W"aca=aca-10 :aca<0 aca=15 R<i$="o"i$="O"aca=aca+1:aca>15 aca=0 \<i$="p"i$="P"aca=aca-1:aca<0 aca=15 f9 ,17;aca;" " p 100d z?i$="Q"i$="q"enb=enb+10 :enb>65535enb=0 ?i$="W"i$="w"enb=enb-10 :enb<0enb=65535 >i$="P"i$="p"enb=enb-1:enb<0enb=65535 >i$="O"i$="o"enb=enb+1:enb>65535enb=0 15,22;enb;" "  100d ? i$="Q"i$="q"frb=frb+10 :frb>4095frb=0 >i$="w"i$="W"frb=frb-10 :frb<0frb=4095 =i$="O"i$="o"frb=frb+1:frb>4095frb=0 =i$="p"i$="P"frb=frb-1:frb<0frb=4095 4,19;frb;" "  100d >i$="Q"i$="q"frc=frc+10 :frc>4095frc=0 ?i$="w"i$="W"frc=frc-10 :frc<0frc=40955 =i$="O"i$="o"frc=frc+1:frc>4095frc=0 =i$="p"i$="P"frc=frc-1:frc<0frc=4095 5,19;frc;" " $ 100d .<i$="Q"i$="q"acb=acb+10 :acb>15acb=0 8<i$="w"i$="W"acb=acb-10 :acb<0acb=15 B< i$="O"i$="o"acb=acb+1:acb>15acb=0 L< i$="p"i$="P"acb=acb-1:acb<0acb=15 V11 ,17;acb;" " ` 100d j= i$="Q"i$="q"acc=acc+10 :acc>15acc=0 t= i$="w"i$="W"acc=acc-10 :acc<0acc=15 ~< i$="O"i$="o"acb=acc+1:acc>15acc=0 < i$="p"i$="P"acc=acc-1:acc<0acc=15 13 ,17;acc;" "  100d  100d 71200:ra,rb,rc,rd,re,rf,rg,rh,ri,rj,rk,rl,rm,rn ]0;1,0;" Espera mientras calculo " #ra=fra-256*(fra/256) rb=(fra/256) #rc=frb-256*(frb/256) rd=(frb/256) #re=frc-256*(frc/256) rf=(frc/256) rg=fgr  rh=0+(1a$(1)="N")+(2b$(1)="N")+(4c$(1)="N")+(8a$(2)="N")+(16b$(2)="N")+(32 c$(2)="N") "ri=aca+(8d$(1)="S") "rj=acb+(8d$(2)="S") ("rk=acc+(8d$(3)="S") 2#rl=enb-256*(enb/256) <rm=(enb/256) Ftrn=0+(1e$(1)="S")+(2e$(2)="S")+(4e$(3)="S")+(8e$(4)="S") P8z=013 :x:65533,z:49149,x:z Z0;1,4;"Los datos son:";ra;",";rb;",";rc;",";rd;",";re;",";rf;",";rg;",";rh;",";ri;",";rj;",";rk;",";rl;",";rm;",";rn d 'M"EDITSON128"1:"SET" 52480,768:"EDITSON128":"SET" : rrrANNBNNCNNcccDNNNnENNNNuurgI SET ͈444~44~4>h> >bd&F0h0*d:0  004~4~0> 0`<0 0 >>0 0