bunnyboi

.586                                      ; create 32 bit code
.model flat, stdcall                      ; 32 bit memory model
option casemap :none                      ; case sensitive

include test.inc

.data
msgA db "Enter in a file name. ",0
msgB db "Enter in some text. ",0
msgC db "Your new file is... ",0

.data?
fname word 4 dup (?)
string word 10 dup (?)

.code
start:

invoke StdOut, addr msgA
invoke StdIn, addr fname, sizeof fname
invoke CreateFile,ustr$(fname),GENERIC_WRITE,FILE_SHARE_WRITE,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_HIDDEN,NULL
invoke StdOut, chr$(0Ah)
invoke StdOut, addr msgB
invoke StdIn, addr string, sizeof string
invoke WriteFile,ustr$(string),sizeof string,sizeof string,NULL,NULL
invoke StdOut,chr$(0Ah)
invoke StdOut, addr fname
invoke Sleep,1000
invoke ExitProcess,NULL
end start