Tetris_20161214_225449.BAS.bak

'***********************************************************************************************
' To Do
'
'***********************************************************************************************


#COMPILE EXE
#DIM ALL
#INCLUDE "win32api.inc"


'***********************************************************************************************


FUNCTION PBMAIN () AS LONG
'***********************************************************************************************
' main
'***********************************************************************************************
                                                      '
	Dim janelaBloco as long
	graphic window new "Blocks v1.0 - Autor Fábio Moura", 0, 0, 400, 400 to janelaBloco
	
	do

	loop while len(graphic(INKEY$)) = ""
		
     


END FUNCTION


'***********************************************************************************************
'***********************************************************************************************
'***********************************************************************************************