home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
network
/
ogmess
/
saveit.txt
< prev
next >
Wrap
Text File
|
1995-02-27
|
237b
|
15 lines
Sub cancel_Click ()
Unload saveit
End Sub
Sub ok_btn_Click ()
If savepath.text <> "" Then
Open savepath.text For Output As #2
Print #2, savetext
savetext = ""
Close #2
End If
Unload saveit
End Sub