$INCLUDE "windowssdk.inc"

FILE oFile,iFile
ISTRING output[1024],indata[1024]
INT iRecs=0

OPENCONSOLE

path = GETSTARTPATH
ifilename = path + "input.txt"
	IF OPENFILE(iFile,ifilename,"R") = 0

IF OPENFILE(oFile,"output.txt","W")=0

		READ(iFile,indata)
		WHILE (READ(iFile,indata) = 0)
	iRecs++

	pointer token = strtok(indata,"\t")
	
	WHILE token
		PRINT *<string>token
	output=output+*<STRING>token+" "
		token = strtok(NULL,"\t")
	
   ENDWHILE

	WRITE oFile,output
	output=""
ENDWHILE

ENDIF
ENDIF
CLOSEFILE oFile
CLOSEFILE iFile

DO:UNTIL INKEY$ <> ""
CLOSECONSOLE