First Spear Posted June 18, 2016 Share Posted June 18, 2016 Enjoy. clearedit.rom 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 , "Cleared it!" 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 5 Music B4 , B3 , B4 Music S , S , S Music S , G3 , S Music S , S , S Music C5 , A3 , C5 Music S , S , S Music B4 , B3 , B4 Music S , S , S Music A4 , C4 , A4 Music S , S , S Music S , C4 , S Music S , S , S Music E5 , C4 , E5 Music S , S , S Music D5 , C4 , D5 Music C5 , S , C5 Music B4 , B3 , B4 Music S , S , S Music D5 , B3 , D5 Music S , S , S Music E5 , A3 , E5 Music S , S , S Music F5# , A3 , F5# Music S , S , S Music G5 , G3 , G5 Music D5 , S , D5 Music F5# , S , F5# Music S , S , S Music G5 , - , G5 Music S , - , S Music S , - , S Music S , - , S Music Stop 1 Quote Link to comment Share on other sites More sharing options...
Like us on Facebook
Follow us on Twitter
AtariAge on Instagram
Watch us on YouTube
Chat on Discord
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.