Creating Your Own "Button Bar"
Posted: Tue Dec 13, 2011 8:59 am
Code: Select all
00001 EXECUTE "CON GUI ON"
00010 OPEN #0: "rows=27,cols=80",DISPLAY,OUTPUT
00020 OPEN #301: "SROW=25,scol=1,rows=2,cols=80,NOCLOSE",DISPLAY,OUTIN
00030 PRINT #301, FIELDS "1,1,C 40,[BUTTON],B1100": "button will survive newpage"
00040 PRINT Newpage
00050 INPUT FIELDS "1,1,c": X$
NOCLOSE came to the rescue!
I haven't figured out how to leverage this yet, but it's an interesting idea!
Luis