home *** CD-ROM | disk | FTP | other *** search
- }{
- { 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
- { IF((l>>8)AND&fff)<>&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(ASC"{")
- { PROCs(10)
- { WHILEa<m-1
- { REMIF 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.
- }