Category : Files from Magazines
Archive   : VOL10N18.ZIP
Filename : RMVSPC.DOC

 
Output of file : RMVSPC.DOC contained in archive : VOL10N18.ZIP

®Set echo="off"¯
®COMMENT Get default setting in Options,¯
®COMMENT show all non-printing symbols:¯
o®Set SHOW=Mid(Field,1,1)¯a
®COMMENT Mark cursor position w/bookmark:¯
fkHERE
®Set LOG=1¯
®COMMENT Go to top of doc and search for spaces:¯
s?d
®COMMENT If punctuation exists 2 spaces¯
®COMMENT to left of cursor, search not¯
®COMMENT successful (so search again):¯
®While found¯
®If Mid(Selection,1,1)="."¯®Set LOG=0¯®EndIf¯
®If Mid(Selection,1,1)=":"¯®Set LOG=0¯®EndIf¯
®If Mid(Selection,1,1)="!"¯®Set LOG=0¯®EndIf¯
®If Mid(Selection,1,1)="?"¯®Set LOG=0¯®EndIf¯
®If LOG=1¯
®COMMENT Move cursor to extra space:¯

®COMMENT Press enter to delete space¯
®COMMENT or any other character + enter¯
®COMMENT to skip this occurrence:¯
®ASK OK=? Ù Delete space, X+Ù to skip¯

®COMMENT Reposition cursor in case¯
®COMMENT there is more than 1 extra space:¯
®If OK=""¯®EndIf¯
®EndIf¯
®COMMENT Reset search parameters and start over:¯
®Set LOG=1¯

®EndWhile¯
®COMMENT Return to & delete bookmark,¯
®COMMENT reset screen:¯
jkHERE
fky
o®SHOW¯




  3 Responses to “Category : Files from Magazines
Archive   : VOL10N18.ZIP
Filename : RMVSPC.DOC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/