// Load the music into an object in the script language
.var music = LoadSid("C:/C64Music/Tel_Jeroen/Closing_In.sid")


// init the music 
lda #music.startSong-1
jsr music.init

// play the music 
jsr music.play 

.macro BasicUpstart(address) {
	.byte <upstartEnd, >upstartEnd,10,0,$9e
	.text ""+address
	.byte 0,0,0		 
upstartEnd: 
}

// The function 
.function toDecString(value) {
	.var strValue = ""+value
	.for (var i=0;i<strValue.size(); i++) 
		.if (strValue.charAt(i)==".")	.return strValue.substring(0,i)
	.return strValue
}


// Some examples
.print "decString1="+toDecString(15.12324)
.print "decString1="+toDecString(11)
.print "decString1="+toDecString(-3.9)


// Basic upstart macro with decString
.macro BasicUpstart2(address) {
	.byte <upstartEnd, >upstartEnd,10,0,$9e
	.text ""+toDecString(address)
	.byte 0,0,0		 
upstartEnd: 
}

.macro BasicUpstart(address) {
	.word upstartEnd  // link address
        .word 10   // line num
        .byte $9e  // sys
	.text ""+address
	.byte 0
upstartEnd:
        .word 0  // empty link signals the end of the program
}