REMDD:GregCook30Jan2002
DIMX%10,T%&A00:Y%=X%DIV256:W%=&FFF1:T%?&A00=0:I."Image name:"N$,"Drive:"?X%:X%!1=T%:X%!5=&5303:X%?9=42:A%=&7F:CA.W%:F%=T%?261:S%=2:H%=2
F.C%=8TOF%S.8:E%=T%?(C%+263)+256*(3A.T%?(C%+262)):N%=(255+(65535A.T%!(C%+260))+4096*(48A.T%?(C%+262)))DIV256:S%=S%+N%:IFE%+N%>H%H%=E%+N%
N.:IFF%=0H%=2
IFS%<H%P."Disc not *COMPACT, ";H%-S%;" excess sector/s"
P."Hit a key to start (and again at end):":Q%=GET:T%?263=H%:T%?262=T%?262A.252ORH%DIV256A.3:P."begin 400 "+N$;:F.R%=0TOH%-1:IFR%MOD10=0A.R%>0X%?7=R%DIV10:CA.W%
I%=T%+R%MOD10*256:F.J%=I%TOI%+255S.32:P.'"@";:F.K%=J%TOJ%+31S.3:V.FNc(?K%DIV4),FNc((?K%A.3)*16ORK%?1DIV16),FNc((K%?1A.15)*4ORK%?2DIV64),FNc(K%?2A.63):N.,,:P.'"`"'"end":Q%=GET:END
DEFFNc(G%)=(G%+63)MOD64+33
