mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 15:10:18 +00:00
23 lines
318 B
QBasic
23 lines
318 B
QBasic
|
Option _Explicit
|
||
|
$Console
|
||
|
$ScreenHide
|
||
|
_Dest _Console
|
||
|
|
||
|
' Try to open a non-existent file
|
||
|
Dim handle As Long
|
||
|
|
||
|
handle = _SndOpen("dummy.flac")
|
||
|
Print handle
|
||
|
If Not handle Then
|
||
|
Print "This failure was expected!"
|
||
|
End If
|
||
|
|
||
|
|
||
|
handle = _SndCopy(handle)
|
||
|
Print handle
|
||
|
If Not handle Then
|
||
|
Print "So was this!"
|
||
|
End If
|
||
|
|
||
|
System
|