IntyBASIC Rough Song - Pooyan

[First Spear]

Experimenting with some new stuff to produce Inty music a little better in IntyBASIC. Here is something that should resemble the ditty from Pooyan.

 

 

 

 

REM        2019-07-06T04:07:51Z
REM        Pooyan
   

Mode 0,1,0,1,0
Wait
Border 1,0
Scroll 4,4,0
For borderNew=0 to 200 Step 20 : Poke $200+borderNew, $2000: Poke $213+borderNew, $2000 : Next borderNew
Wait
Wait
Print At  21 Color 7 , "Pooyan" 
Print At 141 Color 5  , "Restart: Top side" 
Print At 161 Color 6  , "Exit: Bottom side" 
 
ecsCheck = peek($4000)
Poke $4000 , ecsCheck + 1
If Peek($4000) = ecsCheck + 1 then
     Print At 101 Color 4 , "PSG+ECS" 
Else
PlayLoop:
     Wait
     If Cont.B0 Then Wait : Play Off : Wait : Play Pooyan
     If Cont.B1 Then Goto ExitThis
     If Cont.B2 Then Goto ExitThis
     Wait
     Goto PlayLoop

ExitThis:
    Wait
    Print At 213 Color (Rand and 7) , "Bye." 
    For spinWait = 0 to 5
         Wait
    Next
    Play Off
    Goto ExitThis
 

 

Pooyan:
Data 6

       Music      -     ,  -     ,  -     ,  -     
       Music      -     ,  -     ,  -     ,  -     
       Music      G6X   ,  -     ,  G6Z   ,  -     
       Music      A6    ,  G6Y   ,  A6    ,  -     
       Music      B6    ,  A6    ,  B6    ,  -     
       Music      C6    ,  B6    ,  C6    ,  -     
       Music      S     ,  C6    ,  S     ,  -     
       Music      G6    ,  S     ,  G6    ,  -     
       Music      S     ,  G6    ,  S     ,  -     
       Music      E6    ,  S     ,  E6    ,  -     
       Music      S     ,  E6    ,  S     ,  -     
       Music      C6    ,  S     ,  C6    ,  -     
       Music      S     ,  C6    ,  S     ,  -     
       Music      A6    ,  S     ,  A6    ,  -     
       Music      S     ,  A6    ,  S     ,  -     
       Music      S     ,  S     ,  S     ,  -     
       Music      S     ,  S     ,  S     ,  -     
       Music      S     ,  S     ,  S     ,  -     
       Music      S     ,  S     ,  S     ,  -     
       Music      B6    ,  S     ,  B6    ,  -     
       Music      A6    ,  B6    ,  A6    ,  -     
       Music      G6    ,  A6    ,  G6    ,  -     
       Music      S     ,  G6    ,  S     ,  -     
       Music      F6    ,  S     ,  F6    ,  -     
       Music      S     ,  F6    ,  S     ,  -     
       Music      E6    ,  S     ,  E6    ,  -     
       Music      S     ,  E6    ,  S     ,  -     
       Music      D6    ,  S     ,  D6    ,  -     
       Music      S     ,  D6    ,  S     ,  -     
       Music      C6    ,  S     ,  C6    ,  -     
       Music      S     ,  C6    ,  S     ,  -     
       Music      C6    ,  S     ,  S     ,  -     
       Music      S     ,  S     ,  S     ,  -     
       Music      S     ,  S     ,  S     ,  -     

Music Stop

[/spolier]

Edited July 6, 2019 by First Spear

[Zendocon]

I tried running this code.  I finally heard the tune when I prefaced the line "Play Pooyan" with "Play Full" and "Play Volume 10".  Perhaps it's because I'm using IntyBASIC v1.4.1.

 

I had to make two corrections.  IntyBASIC overlooked the fact you used "Else" instead of "End If", but as1600 threw an exception.  Also, in the music data, the first instance of "C6" in each of the music channels should be "C7".  Note C on the scale is where the octave number increases.

 

So far, so good.  I like your ECS auto-detection code, although in IntyBASIC v1.4.1, you now only need ECS.AVAILABLE.