例:ここでは強制的に改行を入れています。
Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long,
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth
As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
(299文字)
は、
Declare Function Api_StretchBlt& Lib "gdi32" Alias "StretchBlt" (ByVal hDC&,
ByVal X&, ByVal Y&, ByVal nWidth&, ByVal nHeight&, ByVal hSrcDC&, ByVal xSrc&,
ByVal ySrc&, ByVal nSrcWidth&, ByVal nSrcHeight&, ByVal dwRop&)
(219文字)
'/// WAIT 100 = 1秒に1回 XCEND.FLGのファイルサイズが1レコード以上(1バイト以上)か確認する
XCENDFLG%=0
WHILE XCENDFLG%=0
WAIT 100
OPEN "XCEND.FLG" AS #1: REC=LOF(1): CLOSE #1
IF REC>0 THEN XCENDFLG%=1
WEND