home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilst / wt_070 / Documents / Utilities / FromCLIuti / Converter < prev    next >
Encoding:
Text File  |  1995-03-08  |  900 b   |  35 lines
  1. rmensure fromcli 0.05 error 0 Module FromCLI not loaded (run !FromCLI first)
  2. #
  3. { ON ERROR REPORT:PRINTERL:END
  4. { 
  5. { p$="<Obey$Dir>."
  6. { *. <Obey$Dir>
  7. { INPUT'"Enter BASIC file to convert (without wildcards): "f$
  8. { SYS8,5,p$+f$TO,,l,,m
  9. { IFMID$(STR$~l,4,3)<>"FFB" ERROR 0,"'"+f$+"' is not a BASIC file!"
  10. { DIMb m*2
  11. { d=b+m
  12. { p=0
  13. { a=3
  14. { e=0
  15. { r=10
  16. { SYS8,255,p$+f$,b
  17. { PROCs(ASC"#")
  18. { PROCs(10)
  19. { WHILEa<m-1
  20. {   IF e<>b?(a-2) OR r<>b?(a-1) ERROR 0,"Renumber this program first!"
  21. {   r+=10:IFr>255 r-=256:e+=1
  22. {   PROCs(ASC"[")
  23. {   PROCs(32)
  24. {   FORl=1TOb?a-4
  25. {     IFb?(a+l)>31 PROCs(b?(a+l)) ELSE IF b?a>4 ERROR 0,"'"+f$+"' file contains control characters!"
  26. {     IFb?(a+l)=42 AND b?(a+l+1)<>32 AND b?(a+l-1)<>32 PROCs(32)
  27. {   N.
  28. {   a+=b?a
  29. {   PROCs(10)
  30. { ENDWHILE
  31. { PROCs(ASC"]"):f$="~"+LEFT$(f$,9)
  32. { SYS8,10,p$+f$,&FEB,,d,d+p:PRINT'"The obey file saved as: ";f$'
  33. { END
  34. { DEFPROCs(g):d?p=g:p+=1:E.
  35. }