Locate
Jan 11, 2009 23:47:32 GMT -5
Post by aristarkos on Jan 11, 2009 23:47:32 GMT -5
I have a Liberty Basic program that uses 'Locate' for text position. Is there a Run Basic alternative?
html "<TABLE border=1><TR><TD colspan=2 align=center bgcolor=tan>Row Col</TD></TR><TR>"
html "<TD align=right>Number of Rows</td><td>"
TEXTBOX #r, "",3
html "</TD></TR><TD align=right>Number of Columns</td><td>"
TEXTBOX #c, "",3
html "<TR><TD colspan=2 align=center bgcolor=tan>"
button #parm, "Set Parameters", [parm]
html " "
button #ex, "Exit", [doExit]
html "</TD></TR></TABLE>"
wait
[parm]
r = val(#r contents$())
c = val(#c contents$())
html "<TABLE border=1><TR bgcolor=tan align=center><TD><B>Row</TD>"
for i = 1 to c
html "<TD><B>Col ";i;"</TD>"
next i
for i = 1 to r
html "<TR><TD align=center>";i;"</TD>"
for j = 1 to c
html "<TD id=rc";i;j;"></TD>"
next j
html "</TD></TR>"
next i
html "<TR bgcolor=tan><TD align=center colspan=";c + 1;">"
html "Enter Row 1 to ";r
textbox #r,"",3
html " Column 1 to ";c
textbox #c,"",3
html " "
button #disp, "Display", [disp]
html "</TD></TR></TABLE>"
wait
[disp]
r$ = #r contents$()
c$ = #c contents$()
print "Row:";r$;" Col";c$
html "<script> document.getElementById('rc";r$;c$;"').innerHTML = '";r$;" ";c$;"';</script>"
wait
' -----------------------------------------
' Get outta here
' -----------------------------------------
[doExit]
html "<script language='javascript' type='text/javascript'>
var a = history.length;
a = a - 1;
window.open('','_parent','');
window.close();
history.go(-a);
</script>"