; hsqcpepzw1.mac
cl
def phase0 90
def phase1 -180
for col 1 1024
    loa &col 0
    def datype 1
;    cnj			
    sb 64 90
    zf 256
    ft
    ph
    red
    sto &col 0
    ty col &col $
next
ty FT in F1 done
return
end