number.of.rows = 8
for row = 1 to number.of.rows
for col = 0 to 4
textbox #w.tb, 10+col*55, row*20, 55, 20
maphandle #w.tb, "#w.tb";row;col
next col
next row
open "Textbox grid" for window as #w
#w.tb42 "Some text"
wait
REM Automatically translated from Liberty BASIC to BBC BASIC
REM by 'LB Booster' version 3.00, Sat. 02 May 2015, 17:21:20
REM!Crunch spaces,rems
REM!Embed @lib$+"LBLIB.BBCC", @lib$+"LBprompt.tpl"
HIMEM=PAGE+&1F400000:INSTALL @lib$+"LBLIB.BBCC":PROC_LBinit
Version$ = "4.04 (LBB 3.00)":Err$ = "":erl%=0:lc%=0:io&=&F
number`of`rows = 8
FOR row = 1 TO number`of`rows : WHILE 1 > (number`of`rows) EXIT FOR : ENDWHILE
FOR col = 0 TO 4
PROC_textbox(`w, `w`tb, "#w.tb", 10 + col * 55, row * 20, 55, 20)
PROC_maphandle$(`w`tb, "#w.tb" + STR$(row) + STR$(col))
NEXT col
NEXT row
PROC_open("Textbox grid", "window", "#w", `w)
PROC_gui(`w`tb42, "Some text")
PROC_wait
PROC_end