home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / RogerHand.LZH / StripVT100 < prev    next >
Text File  |  1991-04-01  |  2KB  |  69 lines
  1.  
  2. Convert VT100 format to readable ASCII: 1B 5B XX XX XX 48 00 --> LF
  3. Roger Hand
  4.  
  5. <alt-v:
  6.  
  7. ..Look for 1B, 5B, etc.
  8.  
  9. movecursor(curfile,sfile)
  10. setgrep("/:c\[.;2H.|:c\[..;2H./ /")
  11. while(runkey(lAmiga-f10)) {putMsg("Excising VT100 Junk! (1/10)")}
  12.  
  13. movecursor(curfile,sfile)
  14.  
  15. setgrep("/:c\[.;..H.|:c\[..;..H./
  16. /")
  17. while(runkey(lAmiga-f10)) {putMsg("Excising VT100 Junk! (2/10)")}
  18.  
  19. movecursor(curfile,sfile)
  20.  
  21. setgrep("/:c\[.;.H.|:c\[..;.H./
  22. /")
  23. while(runkey(lAmiga-f10)) {putMsg("Excising VT100 Junk! (3/10)")}
  24.  
  25.  
  26. ..Save Start Hi-Lite characters
  27.  
  28. movecursor(curfile,sfile)
  29. setgrep("/:c\[7m/(#@/")
  30. while(runkey(lAmiga-f10)) {putMsg("Excising VT100 Junk! (4/10)")}
  31.  
  32. ..Save End Hi-Lite characters
  33.  
  34. movecursor(curfile,sfile)
  35. setgrep("/:c\[m/)#@/")
  36. while(runkey(lAmiga-f10)) {putMsg("Excising VT100 Junk! (5/10)")}
  37.  
  38. movecursor(curfile,sfile)
  39.  
  40. setgrep("/:c\[;H:c\[2J/ /")
  41. while(runkey(lAmiga-f10)) {putMsg("Excising VT100 Junk! (6/10)")}
  42.  
  43. movecursor(curfile,sfile)
  44.  
  45. setgrep("/:c\[./ /")
  46. while(runkey(lAmiga-f10)) {putMsg("Excising VT100 Junk! (7/10)")}
  47.  
  48. movecursor(curfile,sfile)
  49.  
  50. setgrep("/:!/ /")
  51. while(runkey(lAmiga-f10)) {putMsg("Excising Junk! (8/10)")}
  52.  
  53. ..Put hi-liting characters back (Start)
  54.  
  55. movecursor(curfile,sfile)
  56. setgrep("/(#@/\[7m/")
  57. while(runkey(lAmiga-f10)) {putMsg("Putting back Hi-Lites! (9/10)")}
  58.  
  59. ..Put hi-liting characters back (End)
  60.  
  61. movecursor(curfile,sfile)
  62. setgrep("/)#@/\[m/")
  63. while(runkey(lAmiga-f10)) {putMsg("Putting back Hi-Lites! (10/10)")}
  64.  
  65. movecursor(curfile,sfile)
  66. putMsg("Done!")
  67. >
  68.  
  69.