OPENW #1
TITLEW #1, "test"
For x%=0 to 20
  For y%=0 to 20
    DEFFILL x%+y%
	COLOR x%
	PBOX x%*20, y%*20, (x%+1)*20, (y%+1)*20
  Next
Next 

Print "Press A key"
KEYGET a%

area = 40.5 * 35.5
ALERT 1,"Area A=" + STR$(area,7,2),2,"Yes|No|Abort",ch
PRINT ch
Print "--------------------------------------------------------------------------------"
PRINT "Enter your name:"
INPUT A$
PRINT "Your name:" + A$
Print "Press A key"
KEYGET a%
