0REMDumpDisc:GregCook31May1999
1DIMX%11,T%&A01:Y%=X%DIV256:W%=&FFF1: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
2F.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%
3N.:IFS%<H%P."*COMPACT please!":END
4V.10,10:P."begin 644 "+N$+".ssd";:F.R%=0TOS%-1:IFR%MOD10=0A.R%>0X%?7=R%DIV10:CA.W%
5I%=T%+R%MOD10*256:F.J%=I%TOI%+255S.32:V.10,64: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.,,:V.10,96,10:P."end";CHR$10;:END
6DEFFNc(G%)=(G%+63)MOD64+33