RMEnsure FromCLI 0.06 Error "Module FromCLI not loaded"
#
{ ON ERROR REPORT:PRINTERL:END
{ 
{ p$="<Obey$Dir>."
{ *. <Obey$Dir>
{ INPUT'"Enter BASIC file to convert (without wildcards): "f$
{ SYS8,5,p$+f$TO,,l,,m
{ IFMID$(STR$~l,4,3)<>"FFB" ERROR 0,"'"+f$+"' is not a BASIC file!"
{ DIMb m*2
{ d=b+m
{ p=0
{ a=3
{ e=0
{ r=10
{ SYS8,255,p$+f$,b
{ PROCs(ASC"#")
{ PROCs(10)
{ WHILEa<m-1
{   REM IF e<>b?(a-2) OR r<>b?(a-1) ERROR 0,"Renumber this program first!"
{   r+=10:IFr>255 r-=256:e+=1
{   PROCs(ASC"[")
{   PROCs(32)
{   FORl=1TOb?a-4
{     IFb?(a+l)>31 PROCs(b?(a+l)) ELSE IF b?a>4 ERROR 0,"'"+f$+"' file contains control characters!"
{     IFb?(a+l)=42 AND b?(a+l+1)<>32 AND b?(a+l-1)<>32 PROCs(32)
{   N.
{   a+=b?a
{   PROCs(10)
{ ENDWHILE
{ PROCs(ASC"]"):f$="~"+LEFT$(f$,9)
{ SYS8,10,p$+f$,&FEB,,d,d+p:PRINT'"The obey file saved as: ";f$'
{ END
{ DEFPROCs(g):d?p=g:p+=1:E.
}