Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: Notesfiles $Revision: 1.7.0.10 $; site smu
Path: utzoo!watmath!clyde!cbosgd!ihnp4!inuxc!pur-ee!uiucdcs!convex!smu!hu
From: hu@smu
Newsgroups: net.micro
Subject: Re: WORDSTAR Qf/Qa of hard carriage ret
Message-ID: <14300022@smu>
Date: Tue, 12-Nov-85 02:51:00 EST
Article-I.D.: smu.14300022
Posted: Tue Nov 12 02:51:00 1985
Date-Received: Thu, 14-Nov-85 00:45:50 EST
References: <350@whuts.UUCP>
Lines: 32
Nf-ID: #R:whuts.UUCP:350:smu:14300022:000:1139
Nf-From: smu!hu    Nov 12 01:51:00 1985


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

180 GOTO 210                    '     AND BACK TO ORIGINAL STATE
190 IF FLAG%=1 GOTO 210        ' IF I=13 AND FLAG=0, DELETE  TEMPORARILY
200 I=141:  FLAG%=1             '     AND SET FLAG
210 A$ = CHR$(I)
220 PRINT #2, A$;
230 GOTO 120