My first project - ASCII Table

[kawageo]

Hello! I am Geo, a novice to FB as well as QB but a pro with other languages. I am attempting to develop a simple project shown in code box:

Code:

defint a-z
width 55,36
color 14, 0
print Tab(18); "A S C I I   T A B L E"
print

color 12, 0
print " col";
for i = 0 to 15
   ' col indexes
   if i < 10 then
      print " "; i;
   else
      print i;
   end if
next i
print

color 9, 0
print " row"
for j = 0 to 13
   ' row indexes
   color 9, 0
   if j < 10 then
      print "  "; j;
   else
      print " "; j;
   end if
   color 7, 0
   for i = 0 to 15
      print "  " + chr$(16*j + i + 32);
   next i
   print : print
next j

do
   color 7, 0 : locate 33,1
   print "  Enter indexes to select a character (";
   color 9, 0 : print "row";
   color 7, 0  : print ",";
   color 12, 0  : print "col";
   color 7, 0
   input "): ", row, col
   v = 16*row + col + 32
   color 15, 0
   print
   print "  Chr$(" + Str$(v) + ") = " + Chr$(v) + "   "
   locate 33, 1 : print Space$(55)   ' clear the entry
loop

Is there any "improvements" that should be done with the code in FB?

Your feedback would be much appreciated.

Geo