SCREEN 12
K = 15
AX = 80: AY = 0: BX = 560: BY = 0: CX = 560: CY = 479: DX = 80: DY = 479
FOR J = 1 TO 65
LINE (AX, AY)-(BX, BY), 10
LINE (BX, BY)-(CX, CY), 12
LINE (CX, CY)-(DX, DY), 9
LINE (DX, DY)-(AX, AY), 13

AX = AX + (DX - AX) / K: AY = AY + (DY - AY) / K
BX = BX + (AX - BX) / K: BY = BY + (AY - BY) / K
CX = CX + (BX - CX) / K: CY = CY + (BY - CY) / K
DX = DX + (CX - DX) / K: DY = DY + (CY - DY) / K

NEXT J


SLEEP