home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / wackytalky_2 / Utilities / FromCLI / Examples / !Converter next >
Encoding:
Text File  |  1995-11-04  |  839 b   |  34 lines

  1. }{
  2. { ON ERROR REPORT:PRINTERL:END
  3. { p$="<Obey$Dir>."
  4. { *. <Obey$Dir>
  5. { INPUT'"Enter BASIC file to convert (without wildcards): "f$
  6. { SYS8,5,p$+f$TO,,l,,m
  7. { IF((l>>8)AND&fff)<>&ffb ERROR 0,"'"+f$+"' is not a BASIC file!"
  8. { DIMb m*2
  9. { d=b+m
  10. { p=0
  11. { a=3
  12. { e=0
  13. { r=10
  14. { SYS8,255,p$+f$,b
  15. { PROCs(ASC"}"):PROCs(ASC"{")
  16. { PROCs(10)
  17. { WHILEa<m-1
  18. {   REMIF e<>b?(a-2) OR r<>b?(a-1) ERROR 0,"Renumber this program first!"
  19. {   r+=10:IFr>255 r-=256:e+=1
  20. {   PROCs(ASC"[")
  21. {   PROCs(32)
  22. {   FORl=1TOb?a-4
  23. {     IFb?(a+l)>31 PROCs(b?(a+l)) ELSE IF b?a>4 ERROR 0,"'"+f$+"' file contains control characters!"
  24. {     IFb?(a+l)=42 AND b?(a+l+1)<>32 AND b?(a+l-1)<>32 PROCs(32)
  25. {   N.
  26. {   a+=b?a
  27. {   PROCs(10)
  28. { ENDWHILE
  29. { PROCs(ASC"]"):f$="~"+LEFT$(f$,9)
  30. { SYS8,10,p$+f$,&FEB,,d,d+p:PRINT'"The obey file saved as: ";f$'
  31. { END
  32. { DEFPROCs(g):d?p=g:p+=1:E.
  33. }