> RdDDCPM  Read Challenger DDCPM disk : (B Challenger/Slogger Double Density CPM disk are formatted as: 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: n$"Output file:"out$:out%=(out$) x- :"FX143,18,"+fs%:#out%:out%=0::  track%=0 159  track%<3:*FX143,18,4  track%>2:*FX143,18,8 , sector%=0 9:13;track%;":";sector%; ; track%<3:FDCrdFM(0,data%+sector%*256,track%,sector%) < track%>2:FDCrdMFM(0,data%+sector%*512,track%,sector%)  sector%:"FX143,18,"+fs% + track%<3:gbpb(2,out%,data%,10*256,0) + track%>2:gbpb(2,out%,data%,10*512,0)  track%: #out%:out%=0  : FDCrdFM(dv%,ad%,tk%,sc%) ' A%=0 255 4:ad%!A%=&E5E5E5E5: /?X%=dv%+2*(tk%80):X%!1=ad%:X%!5=3:X%?6=&53 "!X%?7=tk%80:X%?8=sc%:X%?9=&21 ,A%=&7F:&FFF1 6X%?10:" error ";~X%?10 @ J: TFDCrdMFM(dv%,ad%,tk%,sc%) ^' A%=0 511 4:ad%!A%=&E5E5E5E5: h?X%=0:X%!1=ad%:X%!5=8 r&X%!8=tk%*16+sc%:X%?7=X%?9:X%?6=&80 | X%!9=1:X%!11=0:A%=&72:&FFF1 ?X%:" error ";~?X%  : gbpb(A%,ch%,ad%,nm%,pt%) 0?X%=ch%:X%!1=ad%:X%!5=nm%:X%!9=pt%: &FFD1: