20 lines
665 B
Plaintext
20 lines
665 B
Plaintext
Module Checkit {
|
|
\\ we get a tempname$ choosed from Windows
|
|
a$=tempname$
|
|
Try ok {
|
|
\\ we can use wide to export in utf-16le
|
|
\\ without wide we export as Ansi (set Local to desired language)
|
|
Rem Locale 1033 ' when no use of wide
|
|
Open a$ for wide output exclusive as #f
|
|
wait 10
|
|
\\ Notepad can't open, because we open it for exclusive use
|
|
Win "Notepad", a$
|
|
Print #f, "something"
|
|
Print "Press a key";Key$
|
|
Close #f
|
|
}
|
|
If error or not ok then Print Error$
|
|
Win "Notepad", a$
|
|
}
|
|
Checkit
|