[25] Play STOP
Error : Invalid character: 0

> Play LOAD SOUND PLS02() : Play SOUND 3, B, U, 440, 25
> Play STOP 'error if anything after it, or a space before it
Error : Unknown command
> Play LOAD SOUND PLS02() : Play SOUND 3, B, U, 440, 25
>  Play STOP
Error : Unknown command
>

'map switching demo
Dim integer cmap(13)

'Clear the screen
MODE 2
Map reset
CLS rgb(black)

'Set up colours in the array
cmap(1)=RGB(white)
cmap(2)=RGB(black)
cmap(3)=RGB(black)
cmap(4)=RGB(black)
cmap(5)=RGB(black)
cmap(6)=RGB(black)

cmap(7)=RGB(white)
cmap(8)=RGB(black)
cmap(9)=RGB(black)
cmap(10)=RGB(black)
cmap(11)=RGB(black)
cmap(12)=RGB(black)

' Do an initial update of the Colour map to set up our colours
domap

hline=76:hy=1:mch=1
line 0,75,319,75,,RGB(white)

do'draw horizontal lines
 line 0,hline,319,hline,,map(mch)
 inc mch:if mch=7 then mch=1
 hline=hline+hy:hy=hy+0.6
loop until hline>240

xb=-149:xt=10:mch=7
do'draw vertical lines
 line xb,239,xt,75,,map(mch)
 inc mch:if mch=13 then mch=7
 xb=xb+8:xt=xt+4
loop until xb>=479

'
lr=0
do
cmap(0)=cmap(6)
 For i=5 To 0 Step -1' move horizontal lines
   cmap(i+1)=cmap(i)
 Next

 if lr<40 then
 cmap(6)=cmap(12)
 For i=11 To 6 Step -1' move vertical lines
   cmap(i+1)=cmap(i)
 Next
 else
 cmap(12)=cmap(7)
 For i=7 To 12' move vertical lines
   cmap(i)=cmap(i+1)
 Next
 end if
 inc lr:if lr>80 then lr=0

 domap
 pause 100
loop

end

Sub domap
Local integer i
Map (0)=RGB(black)
For i=1 To 12
  Map (i)=cmap(i)
Next
Map set
End Sub

PicoMiteVGA MMBasic Version 5.09.00RC5
Copyright 2011-2024 Geoff Graham
Copyright 2016-2024 Peter Mather

> LIST
' Print "Test for PLAY LOAD SOUND v00.bas"
Option base 0
Dim a%(1023), b%(4095), n%

For n% = 0 To 4095
 b%(n%) = n%
Next

Memory PACK b%(), a%(), 4096, 16

Do
 Play LOAD SOUND a%()
 Play SOUND 1, B, U, 440, 25
 Print "a%() now playing"
 Pause 500
 Play STOP
 Pause 200
Loop

End
>
> RUN
a%() now playing
a%() now playing
a%() now playing
a%() now playing
[16] Play STOP
Error : Unknown command
>