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

100 PRINT:PRINT "WMASC: CONVERT WM -> ASC" :PRINT
110 DIM ASC.LINE$(65)	'Buffer output
120 LFCR$=CHR$(10)+CHR$(13)
130 LINE INPUT; "FILE:";F$
140 IF F$="" THEN END
150 OPEN "O",#2,F$+".ASC"
160 OPEN "I",#1,F$+".WM"
170 FOR L%=1 TO 64
175	ASC.LINE$(L%)=""
180	IF EOF(1) THEN GOTO 210
190	LINE INPUT #1,WM.LINE$
200	IF RIGHT$(WM.LINE$,1)="\"
		THEN
		ASC.LINE$(L%)=ASC.LINE$(L%)+
		LEFT$(WM.LINE$,LEN(WM.LINE$)-1)+
		LFCR$ :GOTO 180
		ELSE
		ASC.LINE$(L%)=ASC.LINE$(L%)+WM.LINE$
205	NEXT L%
210 FOR K%=1 TO L%-1
220	PRINT #2,ASC.LINE$(K%)
230	NEXT K% : IF EOF(1)
			THEN CLOSE :PRINT CHR$(7);"      Complete..."
			    :GOTO 130
			ELSE GOTO 170







































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

** REM HED

ASC.LINE$(65) - DIM(110)
	110,175,200,220
CHR$(
	120,230
EOF(
	180,230
F$
	130,140,150,160
K%
	210,220,230
L%
	170,175,200,205,210
LEFT$(
	200
LEN(
	200
LFCR$
	120,200
RIGHT$(
	200
WM.LINE$
	190,200

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









































,200

**	Listing and X-REF generated by BPSXREF(1.0).