Anonymous user
Secure temporary file: Difference between revisions
no edit summary
(→{{header|PicoLisp}}: Fix 'ctl' policy) |
No edit summary |
||
Line 303:
fp:close()</lang>
=={{header|M2000 Interpreter}}==
<lang M2000 Interpreter>
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
</lang>
=={{header|Mathematica}}==
| |||