First Spear Posted May 30, 2016 Share Posted May 30, 2016 (edited) It's been a while since I posted something. This is a little more ambitious than other songs in some ways, but I think it came out OK. 1. How can I make the border more "even looking"? 2. The sound seems to warble towards the end of the tune but I am not sure why, maybe it's my jzIntv settings? start jzintv --jlp -v1 -z1 -q -e "C:\Program Files (x86)\jzIntv\bin\\exec.bin" -g "C:\Program Files (x86)\jzIntv\bin\\grom.bin" immigrantsong.rom Thanks. MODE 0,0,1,0,1 Wait Border 6,3 Wait Print At 42 Color 6 , "Immigrant Song" Print At 82 Color 5 , "Press top side" Print At 102 Color 5 , "button to" Print At 122 Color 5 , "restart music." Print At 162 Color 3 , "Press bottom side " Print At 182 Color 3 , "button to exit." Wait Play Full Wait Play ImmigrantSong Wait Goto PlayLoop PlayLoop: Wait If Cont.B0 Then Wait : Play Off : Wait : Play ImmigrantSong If Cont.B1 Then Goto ExitThis If Cont.B2 Then Goto ExitThis Wait Goto PlayLoop ExitThis: Wait Print At 235 Color (Rand and 7) , "Bye." For spinWait = 0 to 5 Wait Next Play Off ImmigrantSong: Data 3 Music F2#W , F2#X , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , C4#Y Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , C5# Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , B4# Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F3# , F3# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F3# , F3# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , C5# Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F3# , F3# , C4# Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , C5# Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , B4# Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F3# , F3# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F3# , F3# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , C5# Music S , S , S Music S , S , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F2# , F2# , S Music S , S , S Music F3# , F3# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music S , S , - Music S , S , - Music F2# , F2# , - Music S , S , - Music F2# , F2# , - Music S , S , - Music A2 , A2 , - Music S , S , - Music S , S , - Music S , S , - Music S , S , - Music S , S , - Music E5Y , S , - Music S , S , - Music E5 , E3 , - Music S , S , - Music S , S , - Music S , S , - Music E5 , S , - Music S , S , - Music E5 , S , - Music S , S , - Music E5 , A3 , - Music S , S , - Music S , S , - Music S , S , - Music E5 , S , - Music S , S , - Music E5 , S , - Music S , S , - Music G5# , - , - Music S , - , - Music S , - , - Music S , - , - Music E5 , - , - Music S , - , - Music S , - , - Music S , - , - Music E5 , - , - Music S , - , - Music S , - , - Music S , - , - Music E5 , - , - Music S , - , - Music E5 , - , - Music S , - , - Music E5 , - , - Music S , - , - Music S , - , - Music S , - , - Music E5 , - , - Music S , - , - Music S , - , - Music S , - , - Music E5 , - , - Music S , - , - Music S , - , - Music S , - , - Music E5 , - , - Music S , - , - Music E5 , - , - Music S , - , - Music G5# , - , - Music S , - , - Music S , - , - Music S , - , - Music E5 , - , - Music S , - , - Music S , - , - Music S , - , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music - , E2 , - Music - , S , - Music - , S , - Music - , S , - Music C5# , S , C5# Music S , S , S Music S , S , S Music S , S , S Music C5# , B2 , C5# Music S , S , S Music S , S , S Music S , S , S Music A4 , S , A4 Music S , S , S Music S , S , S Music S , S , S Music C5# , E3 , C5# Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music - , G3# , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , A2 , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , S , - Music - , E3 , - Music - , S , - Music - , S , - Music - , S , - Music F4# , S , F4# Music S , S , S Music S , S , S Music S , S , S Music C5# , A3 , C5# Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music S , S , S Music C5# , C4# , C5# Music S , S , S Music S , S , S Music S , S , S Music A4 , S , A4 Music S , S , S Music S , S , S Music S , S , S Music B4 , F2# , B4 Music S , S , S Music S , S , S Music S , S , S Music S , F2# , S Music S , S , S Music S , F2# , S Music S , S , S Music - , F3# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music F4# , F2# , F4# Music S , S , S Music S , F2# , S Music S , S , S Music C5# , F3# , C5# Music S , S , S Music S , F2# , S Music S , S , S Music S , S , S Music S , S , S Music S , F2# , S Music S , S , S Music C5# , F2# , C5# Music S , S , S Music S , S , S Music S , S , S Music - , F2# , - Music - , S , - Music - , F2# , - Music - , S , - Music F4# , F3# , F4# Music S , S , S Music S , F2# , S Music S , S , S Music C5# , S , C5# Music S , S , S Music S , F2# , S Music S , S , S Music C5# , F2# , C5# Music S , S , S Music S , S , S Music S , S , S Music S , F2# , S Music S , S , S Music S , F2# , S Music S , S , S Music - , F3# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F2# , - Music - , S , - Music B4 , S , B4 Music S , S , S Music S , F2# , S Music S , S , S Music C5# , F2# , C5# Music S , S , S Music B4 , F3# , B4 Music S , S , S Music S , F2# , S Music S , S , S Music S , S , S Music S , S , S Music S , F2# , S Music S , S , S Music - , F2# , - Music A4 , S , A4 Music S , S , S Music S , S , S Music S , F2# , S Music - , S , - Music A4 , F2# , A4 Music S , S , S Music S , F3# , S Music S , S , S Music - , F2# , - Music G4# , S , G4# Music S , S , S Music S , S , S Music S , F2# , S Music S , S , S Music S , F2# , S Music S , S , S Music S , S , S Music - , S , - Music - , F2# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F3# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F3# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F3# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , F3# , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music - , S , - Music - , F2# , - Music - , S , - Music - , S , - Music Repeat immigrantsong.bas immigrantsong.rom Enjoy. Edited May 30, 2016 by First Spear Quote Link to comment Share on other sites More sharing options...
intvnut Posted May 30, 2016 Share Posted May 30, 2016 (edited) Try this to even out the border. Replace the code between your two Wait statements at the top with this: . Wait Border 6,0 Scroll 4,4,0 For I=0 to 200 Step 20 : Poke $200+I, $2000: Poke $213+I, $2000 : Next I Wait . You should see something like this: EDIT: I almost forgot: Subtract 1 off of all of your Print At statements. . Print At 41 Color 6 , "Immigrant Song" Print At 81 Color 5 , "Press top side" Print At 101 Color 5 , "button to" Print At 121 Color 5 , "restart music." Print At 161 Color 3 , "Press bottom side " Print At 181 Color 3 , "button to exit." Edited May 30, 2016 by intvnut 1 Quote Link to comment Share on other sites More sharing options...
First Spear Posted June 4, 2016 Author Share Posted June 4, 2016 I am not seeing that on my screen (running jzIntv latest version. Try this to even out the border. Replace the code between your two Wait statements at the top with this: . Wait Border 6,0 Scroll 4,4,0 For I=0 to 200 Step 20 : Poke $200+I, $2000: Poke $213+I, $2000 : Next I Wait . You should see something like this: immigrantsong.gif EDIT: I almost forgot: Subtract 1 off of all of your Print At statements. . Print At 41 Color 6 , "Immigrant Song" Print At 81 Color 5 , "Press top side" Print At 101 Color 5 , "button to" Print At 121 Color 5 , "restart music." Print At 161 Color 3 , "Press bottom side " Print At 181 Color 3 , "button to exit." Quote Link to comment Share on other sites More sharing options...
intvnut Posted June 4, 2016 Share Posted June 4, 2016 It looks like I forgot to include the MODE line in my rush. Here's the entire code, sans the music statements: MODE 0,6,0,6,0 Wait Border 6,0 Scroll 4,4,0 For I=0 to 200 Step 20 : Poke $200+I, $2000: Poke $213+I, $2000 : Next I Wait Print At 41 Color 6 , "Immigrant Song" Print At 81 Color 5 , "Press top side" Print At 101 Color 5 , "button to" Print At 121 Color 5 , "restart music." Print At 161 Color 3 , "Press bottom side " Print At 181 Color 3 , "button to exit." Wait Play Full Wait Play ImmigrantSong Wait Goto PlayLoop PlayLoop: Wait If Cont.B0 Then Wait : Play Off : Wait : Play ImmigrantSong If Cont.B1 Then Goto ExitThis If Cont.B2 Then Goto ExitThis Wait Goto PlayLoop ExitThis: Wait Print At 235 Color (Rand and 7) , "Bye." For spinWait = 0 to 5 Wait Next Play Off 1 Quote Link to comment Share on other sites More sharing options...
First Spear Posted June 5, 2016 Author Share Posted June 5, 2016 I like that, it works! But can you (re)clue me in on why it works? The Mode and Border with Poke I am not getting it. It looks like I forgot to include the MODE line in my rush. Here's the entire code, sans the music statements: MODE 0,6,0,6,0 Wait Border 6,0 Scroll 4,4,0 For I=0 to 200 Step 20 : Poke $200+I, $2000: Poke $213+I, $2000 : Next I (snip) Quote Link to comment Share on other sites More sharing options...
intvnut Posted June 5, 2016 Share Posted June 5, 2016 (edited) Someone who knows IntyBASIC may have a more elegant IntyBASIC way to do it than what I did. But I'll explain how my technique works in terms of what it's asking the hardware to do. The MODE statement sets the color stack to an alternating pattern of Yellow, Black, Yellow, Black. The POKE statements draw two strips of 11 empty cards down the left and right borders of the screen. These cards set the "Advance Color Stack" bit. The result is that the strip on the left advances to Black, and the strip on the right advances to Yellow. The 'Advance' takes effect with the card that sets the bit, which is why the color stack is set to Yellow first. Well, at least part of the reason. The strips make the body of the screen black, and the right border Yellow. The strips stop after the 11th row, leaving the 12th row Yellow. What about the SCROLL statement? It shifts the screen to the right by 4px and down 4px. This pushes the right-hand column and bottom row both half-way offscreen, making their contributions to the border half-width. 3px of the right column and 4px of the bottom row remain exposed. (Why only 3px of the right column? Because the right column of cards is only 7px wide; the 8th pixel column always shows the border color, which is already Yellow.) Now the fun part: What happens to the left and top borders when you push the screen to the right and downward? For the rows on the top, the STIC continues displaying whatever the last color stack value was active at the bottom right corner of the screen. In this case, it's Yellow. For the columns at the left, the STIC displays whatever color stack value was active at the end of the previous scan line, which in this case is also Yellow. Ordinarily, in a scrolling game, the top and left are covered up by the border extension bits. I turned those off, because I wanted what they would cover up. The downside of this approach is that it reduces the area for text to 19x11. But, that 19x11 area is centered on the screen. An alternative way to get a 4px border of Yellow around the screen would be set Scroll to 0,0, and use Colored Squares mode to draw the border. That also works, but it reduces your text area to 18x10 (also centered). You don't strictly have to use Colored Squares. You could use graphic tiles as well, but with the same net effect—an 18x10 text area with a Yellow border. Edited June 5, 2016 by intvnut Quote Link to comment Share on other sites More sharing options...
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.