ProvideX V8.20 > Language Reference > 2. Directives

151

0010 ! GRIDDEMO - Grid demo program

0020 BEGIN ;

0020:PRINT 'CS',"Grid Demonstration"

0030 GRID 10,@(3,3,70,15)

0040 GRID LOAD 10,0,0,""

0050 FOR R=1 TO 10

0060 LET R$=""

0070 FOR C=1 TO 10

0080 LET R$+=STR(C*R)+SEP

0090 NEXT

0100 GRID LOAD 10,1,0,R$

0110 NEXT

0120 LET X=10

0130 FOR I=1 TO 10;

0130:LET X'ROW=-1,X'COLUMN=I;

0130:LET X'VALUE$="Col "+STR(I);

0130:NEXT

0140 FOR I=1 TO 10;

0140:LET X'ROW=I,X'COLUMN=-1;

0140:LET X'VALUE$="Row "+STR(I);

0140:NEXT

0150 LET X'COLUMN=-1,X'COLUMNWIDTH=6

0160 LET X'COLUMN=2,X'ROW=0,X'LOCK=1

0170 LET X'COLUMN=3,X'ROW=0,X'COLUMNWIDTH=7,X'CELLTYPE$="Button",X'LOCK=1

0180 LET X'COLUMN=4,X'ROW=0,X'COLUMNWIDTH=7,X'CELLTYPE$="CheckMarkRecessed"

0190 LET X'COLUMN=5,X'ROW=0,X'COLUMNWIDTH=7,X'CELLTYPE$="DropBox",

0190:X'TEXT$="car/pig/dog/"

0200 LET X'COLUMN=6,X'ROW=0,X'COLUMNWIDTH=7,X'CELLTYPE$="DropBoxHideBtn",

0200:X'TEXT$="car/pig/dog/"

0210 LET X'COLUMN=7,X'ROW=0,X'COLUMNWIDTH=7,X'BITMAP$="!bug"

0220 LET X'COLUMN=8,X'ROW=0,X'ALIGN$="C"

0230 LET X'COLUMN=9,X'ROW=0,X'ALIGN$="R"

0240 LET X'COLUMN=0,X'ROW=2,X'BACKCOLOUR$="LIGHT CYAN"

0250 LET X'COLUMN=0,X'ROW=3,X'BACKCOLOUR$="LIGHT YELLOW"

0260 LET X'ROW=8;

0260:FOR I=1 TO 10;

0260:LET X'COLUMN=I;

0260:LET X'BACKCOLOUR$="RGB:"+STR(RND(200)+55)+" "+STR(RND(200)+55)+

0260:" "+STR(RND(200)+55);

0260:NEXT

0270 LET X'ROW=9;

0270:FOR I=1 TO 10;

0270:LET X'COLUMN=I;

0270:LET X'TEXTCOLOUR$="RGB:"+STR(RND(200)+55)+" "+STR(RND(200)+55)+

0270:" "+STR(RND(200)+55);

0270:NEXT

0280 FOR I=1 TO 10;

0280:LET X'COLUMN=I,X'ROW=I,X'FONT$="Arial,1,BI";

0280:NEXT

0290 INPUT X$;

0290:IF CTL=4

0290:THEN STOP

0300 IF CTL<>10

0300:THEN PRINT "Recv'd CTL=",CTL;

0300:GOTO 0290

0310 GRID READ 10,C,R,ZZ$,E$

0320 PRINT @(0,20),'CL',"Col=",C," Row=",R," Dta=",ZZ$," Eom=$",HTA(E$),"$",

0330 GOTO 0290