SCREEN 1
FOR x = 1 TO 10
PSET (x + 10, x)
NEXT x
FOR x = 10 TO 1 STEP -1
PSET (x, x + 10)
NEXT x
FOR x = 1 TO 10
PSET (20 - x, x + 10)
NEXT x
FOR x = 1 TO 10
PSET (10 - x, x)
NEXT x
Тестирование выполнено в программе QB64 ( Скачать )