OEM( ) example

Suppose you have a Windows text file that you want to convert to OEM text that is readable by someone using MS-DOS. You convert each line using the OEM( ) function:

function convertToOEM( cSourceFile, cDestFile )

local fSource, fDest 

fSource = new File( ) 

fDest = new File( ) 

fSource.open( cSourceFile ) 

fDest.create( cDestFile ) 

do while not fSource.eof( ) 

fDest.puts( oem( fSource.gets( ) ) ) 

enddo 

fDest.close( ) 

fSource.close( )