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
|
|