ô J.MARK STEVENSON 12 FEB 89 +ô JUST TO PROVE THE Z88 CAN MAKE MUSIC! 5ô YOU ARE INVITED TO EXPERIMENT WITH THIS PROGRAM 5(ô BUT BEWARE - THIS MAY CAUSE THE MACHINE TO HANG 2Þ Z% 200 <ã Y% = 0 ¸ 2 ˆ 2 FP%=Z% P[ OPT Y% Z.cnt ÝW 0 :ÝW 0 d.del1 ÝW 0 :ÝW 0 n.del2 ÝW 0 :ÝW 0 x.flag ÝW 0 ‚.code ŒLD HL,(cnt) –.cnt_loop - LD A,(flag) :„ A :Ö Z,inc :DEC A :Ö Z,dec ªLD BC,(del1) :Ö del_loop ,´LD A,(&4B0) :PUSH AF :„ &40 :OUT (&B0),A ¾LD BC,(del2) :Ö del_loop ÈPOP AF :OUT (&B0),A 'ÒDEC HL :LD A,H :„ L :JR NZ,cnt_loop ÜRET æ\ 6ð.del_loop DEC BC :LD A,B :„ C :JR NZ,del_loop :RET ú\ .inc /LD DE,(del1) :INC DE :INC DE :LD (del1),DE .LD DE,(del2) :INC DE :INC DE :LD (del2),DE "RET ,\ 6.dec /@LD DE,(del1) :DEC DE :DEC DE :LD (del1),DE .JLD DE,(del2) :DEC DE :DEC DE :LD (del2),DE TRET ^] hí r: |ã T%=0 ¸ 2 †?flag=T% ã R%= 90 ¸ 41 ˆ -3 (š!cnt=3000/R% :!del1=R%*4 :!del2=R%*4 ¤Q%=º(code) ®í ¸í ÿÿ