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