12 lines
178 B
Text
12 lines
178 B
Text
|
ImportC "msvcrt.lib"
|
||
|
|
system(str.p-ascii)
|
||
|
|
EndImport
|
||
|
|
|
||
|
|
If OpenConsole()
|
||
|
|
system("dir & pause")
|
||
|
|
|
||
|
|
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
|
||
|
|
Input()
|
||
|
|
CloseConsole()
|
||
|
|
EndIf
|