eleje:
INPUT "n"; n
REDIM pakli(2, n)
FOR i = 1 TO n
pakli(1, i) = i
NEXT i
SCREEN 12

honnan = 1
hova = 2

FOR j = 1 TO n
LINE (j * 600 / n, 450)-(j * 600 / n, 450 - 400 / n * pakli(honnan, j))
NEXT j
c: c$ = INKEY$: IF c$ = "" THEN GOTO c
CLS

keveres:

FOR j = 1 TO n
IF INT(j / 2) = j / 2 THEN pakli(hova, j) = pakli(honnan, j / 2) ELSE pakli(hova, j) = pakli(honnan, (j + 1) / 2 + n / 2)
LINE (j * 600 / n, 450)-(j * 600 / n, 450 - 400 / n * pakli(hova, j))
NEXT j
b: b$ = INKEY$: IF b$ = "" THEN GOTO b
CLS
IF b$ = CHR$(27) THEN GOTO eleje
g = honnan: honnan = hova: hova = g
GOTO keveres