DIM x(500): DIM y(500)
SCREEN 12
CLS

eleje:
PRINT "Lissajous-grbk racionlis arny frekvencikra"
PRINT "Az x irny rezgs fzisa zrus"
PRINT "              <+> : rajzol zemmd"
PRINT "              <-> : tekerg zemmd"
PRINT "        j adatok: enter "; ""
INPUT "Az x irny rezgs krfrekvencija ( > 0 )"; kx
INPUT "Az y irny rezgs krfrekvencija ( > 0 )"; ky
IF ky >= kx THEN dt = .01 / ky ELSE dt = .01 / kx
PRINT
PRINT "Az x irny rezgs fzisa zrus"
INPUT "Az y irny rezgs fzisa = pi /"; d
IF d <> 0 THEN d = 3.14159 / d
CLS

ciklus:
a$ = INKEY$
IF a$ = "" THEN GOTO tovabb
IF a$ = "+" THEN torol = 0
IF a$ = "-" THEN CLS : torol = 1
IF a$ = CHR$(13) THEN GOTO eleje

tovabb:
n = n + 1
IF n > 500 THEN n = 1
m = n - 499
IF m <= 0 THEN m = m + 500

pontgyartas:
x(n) = 320 + INT(240 * (SIN(kx * t)))
y(n) = INT(240 * (1 - SIN(ky * t + d)))
PSET (x(n), y(n))
IF torol = 1 THEN PRESET (x(m), y(m))

t = t + dt
GOTO ciklus


