Keskustelu: Koodit: QB: peili

SCREEN 13

LINE (1, 1)-(310, 190), 1, B
LINE (155, 1)-(155, 190), 8
LINE (1, 190 / 2)-(310, 190 / 2), 8

LOCATE 4, 6: PRINT "Peili"
LOCATE 6, 6: PRINT "\o_"

FOR x = 2 TO 154
 FOR y = 2 TO 189
  c = POINT(x, y)
  PSET ((x * -1) + 310, y), c
  PSET (x, (y * -1) + 190), c
 NEXT y
NEXT x