{* Точка по квадрату *}

REM basic

' Точка по квадрату


SCREEN 9 
CLS
Dim xx(4) As Integer
Dim yy(4) As Integer
a = 190
b = 140
xx(1) = 1
xx(2) = 0
xx(3) = -1
xx(4) = 0
yy(1) = 0
yy(2) = 1
yy(3) = 0
yy(4) = -1
xold = 50
yold = 90
 LINE (xold, yold)-(xold + a, yold + b), 2, B
Do
For i = 1 To 4
lambda = a
If i = 2 Or i = 4 Then lambda = b
For ii = 1 To lambda
x = xold + xx(i)
y = yold + yy(i)
PSET (xold, yold), 2
PSET (x, y), 14
xold = x
yold = y
For j = 1 To 10000
Next j
Next ii
Next i
Loop