home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1989 / USER1089.MSA / TO_ASCII.BAS < prev    next >
BASIC Source File  |  1985-11-19  |  802b  |  40 lines
  1. REM Convert file to Ascii
  2. REM Written in HiSoft/Power Basic
  3. REM By R.A.Waddilove
  4.  
  5. LIBRARY "GEMAES"
  6.  
  7. WINDOW FULLW
  8. PRINT " Enter file to convert....."
  9. infile$=FNfilename$
  10. PRINT "Enter new filename....."
  11. outfile$=FNfilename$
  12. PRINT "Converting file....."
  13. OPEN "R",#1,infile$,1
  14. FIELD #1,1 AS inbuff$
  15. OPEN "R",#2,outfile$,1
  16. FIELD #2,1 AS outbuff$
  17. lastbyte%=0
  18. DO
  19.     GET #1 : byte%=ASC(inbuff$)
  20.     IF (byte%<32 OR byte%>126) AND byte%<>10 AND byte%<>13 THEN byte%=32
  21.     IF byte%<>32 OR lastbyte%<>32 THEN LSET outbuff$=CHR$(byte%):PUT #2
  22. lastbyte%=byte%
  23. LOOP UNTIL EOF(1)
  24. CLOSE
  25. SYSTEM
  26.  
  27. DEF FNfilename$
  28. MOUSE 0
  29. path$="A:\*.*"
  30. name$=""
  31. ok%=0
  32. fsel_input path$,name$,ok%
  33. WHILE right$(path$,1)<>"\"
  34.     path$=LEFT$(path$,LEN(path$)-1)
  35. WEND
  36. MOUSE -1
  37. CLS
  38. FNfilename$=path$+name$
  39. END DEF
  40.