TinySBRuntime-Starting

; PROJECT : TinySBRunTime
; EDITED  : 5/16/2016
; ---------------------------------------------------------------------
psub POW(num,power)
 n=1
 for i=1 to power
  n=n*num
 next
endpsub n

//This is called after whatever is meant to be parsed is parsed
//That is to say any math etc will be parsed before print is called not during
psub print(mystring$)
parse(mystring$)
print mystring$
endpsub

//Color parsing. I'll seperate these and use a seperate function when parsing to figure out which case to use
//Then pass the correctly formatted data to whichever case matches.
psub gcolor_rgb(color)

endpsub

psub gcolor_#(color$)

endpsub

psub gcolor_hex(color$)

endpsub

psub bgscreen(layer, width, height)

endpsub

//Case to clear just one BG layer
psub bgclr(layer)
select layer
	case 0:
	rendertoimage layer_0
	case 1:
	rendertoimage layer_1
	case 2:
	rendertoimage layer_2
	case 3:
	rendertoimage layer_3
	default:
	rendertoimage layer_0
endselect
cls
rendertoscreen
endpsub

//Case to clear all BG layers
psub bgclrall()
rendertoimage layer_0
cls
rendertoimage layer_1
cls
rendertoimage layer_2
cls
rendertoimage layer_3
cls
rendertoscreen
endpsub

psub locate(x, y)
setcursor x, y
endpsub

psub bgofs(layer, x, y)

endpsub

psub BGPUT(Layer,X,Y,Screen_data)

select layer
	case 0:
	rendertoimage layer_0
	case 1:
	rendertoimage layer_1
	case 2:
	rendertoimage layer_2
	case 3:
	rendertoimage layer_3
	default:
	rendertoimage layer_0
endselect

drawimage tiles(Screen_data), (x-1)*16, (y-1)*16, 1
rendertoscreen
endpsub