FUNCTION UnsignedLong WriteFile( UnsignedLong hFile, &
REF String lpBuffer, &
UnsignedLong nNumberOfBytesToWrite, &
REF UnsignedLong lpNumberOfBytesWritten, &
long lNull ) LIBRARY "kernel32.dll" alias for "WriteFile;Ansi"


ulong ll,ll_len,ll_H
long ll_null
setnull(ll_null)
string ls,ls1
setnull(ls1)


ll_H=FileOpen ("LPT1",LineMode!,Write!,Shared!,Append!)
If ll_H >  0  Then
ls='парпарап'
ll_len=len(ls)
WriteFile(ll_H,ls,ll_len,ll,ll_null)
FileClose(ll_H)
End If

Function Long WriteFile(Long hFile, ref string lpBuffer, long nBytesToWrite, ref Long nBytesWritten, LONG lNull) Library "Kernel32.dll"

long ll,ll_len,ll_H
long ll_null
setnull(ll_null)
string ls,ls1
setnull(ls1)


ll_H=FileOpen ("LPT1",LineMode!,Write!,Shared!,Append!)
If ll_H >  0  Then
ls='ïàðïàðàï'
ll_len=len(ls)
WriteFile(ll_H,ls,ll_len,ll,ll_null)
FileClose(ll_H)
End If