绘制棋盘格子

根据用户输入数据绘制一个棋盘格子，初步体验用程序接受用户输入。

<br />KEY OFF: SCREEN 1: COLOR 0, 0<br />READ XSTART, YSTART<br />INPUT "hight of squares (number of points)"; N<br />XSTEP = N * 1.2: YSTEP = N: Y1 = YSTART: RED = -1<br /><br />FOR ROW = 1 TO 8<br /> X1 = XSTART<br /> FOR COL = 1 TO 8<br /> IF RED = -1 THEN<br /> LINE (X1, Y1)-STEP(XSTEP, YSTEP), 2, BF: RED = 0<br /> ELSE<br /> LINE (X1, Y1)-STEP(XSTEP, YSTEP), 2, B: RED = -1<br /> END IF<br /> X1 = X1 + XSTEP<br /> NEXT COL<br /> Y1 = Y1 + YSTEP<br /> IF RED = -1 THEN RED = 0 ELSE RED = -1<br />NEXT ROW<br />LOCATE 25<br />INPUT "Carriage return to end"; X$<br />SCREEN 0: WIDTH 80: KEY ON<br />DATA 80, 10<br />END<br />