> WrDDCPM ! Write Challenger DDCPM disk : ( Need to format disk first 2 Tracks 0-2 : 10*256 FM < Tracks 3-159: 10*512 MFM F: P#A%=0:Y%=0:E%=0:fs%=(&FFDA)&FF Z0 ctrl% 31,data% 10*512-1:X%=ctrl%:Y%=X%256 d: nC"Input file:"in$:in%=(in$):in%=0:"File '"in$"' not found": x+ :"FX143,18,"+fs%:#in%:in%=0::  track%=0 159  track%<3:*FX143,18,4  track%>2:*FX143,18,8 , sector%=0 9:13;track%;":";sector%; ; track%<3:FDCwrFM(0,data%+sector%*256,track%,sector%) < track%>2:FDCwrMFM(0,data%+sector%*512,track%,sector%)  sector%:"FX143,18,"+fs% * track%<3:gbpb(4,in%,data%,10*256,0) * track%>2:gbpb(4,in%,data%,10*512,0)  track%: #in%:in%=0  : FDCwrFM(dv%,ad%,tk%,sc%) /?X%=dv%+2*(tk%80):X%!1=ad%:X%!5=3:X%?6=&4B !X%?7=tk%80:X%?8=sc%:X%?9=&21 "A%=&7F:&FFF1 ,X%?10:" error ";~X%?10 6 @: JFDCwrMFM(dv%,ad%,tk%,sc%) T?X%=0:X%!1=ad%:X%!5=10 ^&X%!8=tk%*16+sc%:X%?7=X%?9:X%?6=&80 h X%!9=1:X%!11=0:A%=&72:&FFF1 r?X%:" error ";~?X% | : gbpb(A%,ch%,ad%,nm%,pt%) 0?X%=ch%:X%!1=ad%:X%!5=nm%:X%!9=pt%: &FFD1: