mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 16:20:18 +00:00
15 lines
269 B
QBasic
15 lines
269 B
QBasic
|
$Console:Only
|
||
|
|
Option _Explicit
|
||
|
|
Option _ExplicitArray
|
||
|
|
|
||
|
|
Dim h As Long: h = _NewSound(1024, 2, 32)
|
||
|
|
Print "Handle ="; h
|
||
|
|
|
||
|
|
Dim m As _MEM: m = _MemSound(h, 0)
|
||
|
|
Print "Size ="; m.SIZE
|
||
|
|
Print "Type ="; m.TYPE
|
||
|
|
Print "Element Size ="; m.ELEMENTSIZE
|
||
|
|
Print "Sound ="; m.SOUND
|
||
|
|
|
||
|
|
System
|