> DDCPMForm  Format DDCPM disk  X% 31,data% 511 ( Y%=X%256 2 *FX180,64 <"Drive: "drive% Fform(drive%,0,2,1) Pform(drive%,3,79,2) Zform(drive%+2,0,79,2) d"FX180,"+(/256) n x: form(drv%,t0%,t1%,den%) X%?0=drive% X%!1=data% X%!5=&037A01 X%?8=den%*64-64 A%=127:&FFF1  track%=t0% t1% 13;"Track ";track%;  sector%=0 9 data%!(sector%*4)=track% -data%?(sector%*4+2)=(sector%+track%*7)10 data%?(sector%*4+3)=den% sector% X%?0=drive% X%!1=data% X%!5=&6305 "X%?7=track% ,X%!8=&10002A10 6X%?9=10+32*den% @A%=127:&FFF1 JX%?12:" error &";~X%?12 T track%: ^