02-23-2005, 12:48 AM
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:
Is there any "improvements" that should be done with the code in FB?
Your feedback would be much appreciated.
Geo
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