Нарисовать шахматную доску

Всем привет) помогите пожалуйста) с программками я более менее разбираюсь или пытаюсь разобраться, но с графикой никак, как создать шахматную доску в графическом режиме бейсика?
1 ответ

Шахматная доска уже была тут, прежде чем создавать темы смотрите в поиске. Простой вариант:
SCREEN 12
 FOR y = 0 TO 7
    FOR x = 0 TO 7
      Cv = (x + y) MOD 2
      LINE (x * 40 + 150, y * 40 + 75)-(x * 40 + 189, y * k + 114), Cv * 15, BF
    NEXT
 NEXT
Альтернативный вариант:
DEFINT A-Z
  SCREEN 12
OUT &H3C8, 1: OUT &H3C9, 39: OUT &H3C9, 30: OUT &H3C9, 17
OUT &H3C8, 2: OUT &H3C9, 53: OUT &H3C9, 47: OUT &H3C9, 37
OUT &H3C8, 3: OUT &H3C9, 23: OUT &H3C9, 15: OUT &H3C9, 10
  k = 40
  xc = (640 - k * 8) \ 2
  yc = (480 - k * 8) \ 2
  WINDOW (639 - xc, 479 - yc)-(-xc, -yc)
  LINE (-k \ 2, -k \ 2)-(k * 8 + k \ 2, k * 8 + k \ 2), 3, BF
  FOR y = 0 TO 7
     FOR x = 0 TO 7
       Cv = (x + y) AND 1
       LINE (x * k, y * k)-(x * k + k - 1, y * k + k - 1), Cv + 1, BF
     NEXT
  NEXT