IntyBASIC Rough Song - LnC Level Start

[First Spear]

 

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 , "LnC Level Start!"
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 41 Color 4 , "(PSG+ECS) "
Else
Print At 41 Color 4 , "(PSG only)"
End If

Wait
Play Full
Wait
Play MyMusic
Wait
Goto PlayLoop


PlayLoop:
Wait
If Cont.B0 Then Wait : Play Off : Wait : Play MyMusic
If Cont.B1 Then Goto ExitThis
If Cont.B2 Then Goto ExitThis
Wait
Goto PlayLoop

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


MyMusic:

Data 6
Music D4#X , D2# , D4#
Music D4# , S , D4#
Music G4 , S , G4
Music G4 , S , G4
Music A4# , G2 , A4#
Music A4# , S , A4#
Music D5# , S , D5#
Music D5# , S , D5#
Music D5 , A2# , D5
Music D5# , S , D5#
Music D5 , S , D5
Music C5 , S , C5
Music A4# , G2 , A4#
Music G4# , S , G4#
Music G4 , S , G4
Music F4 , S , F4
Music D4# , D2# , D4#
Music D4# , D2# , D4#
Music G4 , G2 , G4
Music G4 , G2 , G4
Music A4# , A2# , A4#
Music A4# , A2# , A4#
Music D5# , D3# , D5#
Music D5# , D3# , D5#
Music F5 , F3 , F5
Music S , S , S
Music - , S , S
Music - , S , S
Music - , S , S
Music - , S , S
Music - , S , S
Music - , S , S
Music - , S , S
Music - , S , S
Music - , S , S
Music - , - , S
Music - , - , S
Music - , - , S
Music Stop

 

Enjoy.



lncLevelStart.rom

lncLevelStart.bas