[net.micro] WORDSTAR Qf/Qa of hard carriage ret

hu@smu (11/12/85)

Well, according to my humble knowledge about wordstar, you have no way
to do this in wordstar. When I want to convert a printable file into wordstar
type file (i.e. with hard RETURN only between paragraphs) ,I use a basic
program to do so. Here is an example, hopefully it is useful.

hu@smu

10 '            WSCONV
20 '    Converts downloaded file to WordStar files (slowly)
30 '            by Yu Hen Hu
40 '            Dallas,  Texas
50 '            2-14-85
60 '
70 PRINT: INPUT "  Name of standard text file to be converted: ";FILN$
80 PRINT: INPUT "  Name of wordstar file to write: ";FILO$
90 OPEN FILN$ FOR INPUT AS #1
100 OPEN FILO$ FOR APPEND AS #2
110 FLAG%=0
120 IF EOF(1) THEN CLOSE: END
130 A$ = INPUT$(1, #1)
140 I = ASC(A$)
150 IF I=13 GOTO 190
160 IF FLAG%=0 GOTO 210         ' I<>13 & FLAG=0 DO NOTHING
170 IF(FLAG%=1 AND I<>10) THEN FLAG%=0     ' I<>13 & FLAG=1 REMOVE SINGLE
<CR>
180 GOTO 210                    '     AND BACK TO ORIGINAL STATE
190 IF FLAG%=1 GOTO 210        ' IF I=13 AND FLAG=0, DELETE <CR> TEMPORARILY
200 I=141:  FLAG%=1             '     AND SET FLAG
210 A$ = CHR$(I)
220 PRINT #2, A$;
230 GOTO 120