ASCWM:  PRINT:PRINT "ASCWM: CONVERT ASC -> WM" :PRINT                PG   1

100 PRINT:PRINT "ASCWM: CONVERT ASC -> WM" :PRINT
110 DIM ASC.LINE$(64)	'Buffer input
120 LFCR$=CHR$(10)+CHR$(13)
130 LINE INPUT; "FILE:";F$
140 IF F$="" THEN END
150 OPEN "O",#2,F$+".WM"
160 OPEN "I",#1,F$+".ASC"
170 FOR K%=1 TO 64
180	IF EOF(1) THEN GOTO 210
190	LINE INPUT #1,ASC.LINE$(K%)
200	NEXT K%
210 FOR L%=1 TO K%-1
220	J%=1
230	I%=INSTR(J%,ASC.LINE$(L%),LFCR$)
240	IF I%<>0
		THEN
		PRINT #2,MID$(ASC.LINE$(L%),J%,I%-J%);"\" :
		J%=I%+2 :GOTO 230
		ELSE
		PRINT #2,MID$(ASC.LINE$(L%),J%)
250	NEXT L% : IF EOF(1)
			THEN CLOSE :PRINT CHR$(7);"      Complete..."
			    :GOTO 130
			ELSE GOTO 170








































ASCWM: ==========    C R O S S   R E F E R E N C E    ==========     PG   2

** REM HED

ASC.LINE$(64) - DIM(110)
	110,190,230,240
CHR$(
	120,250
EOF(
	180,250
F$
	130,140,150,160
I%
	230,240
INSTR(
	230
J%
	220,230,240
K%
	170,190,200,210
L%
	210,230,240,250
LFCR$
	120,230
MID$(
	240

**	Listing and X-REF generated by BPSXREF(1.0).    (C) Copyright BPS, 1980









































	240

**	Listing and X-REF generated by BPSXREF(1.0).    (C) Copyright BPS, 1980