mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-08 16:05:13 +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
|