> OutSpeed ! ctrl% 31:X%=ctrl%:Y%=X%256  PASS=1 2 (*SAVE FILE 0+5000 2*INFO FILE <# PASS=1:"OPENOUT";:CH="FILE" F# PASS=2:"OPENUP ";:CH="FILE" P-T%=:gbpb(2,CH,&3000,&5000,#CH):T%=-T% Z#CH:" ";T%;"cs" d PASS n x: Tgbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:&FFD1: