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

eleje:
PRINT "Lissajous-g”rb‚k racion lis ar ny£ frekvenci kra"
PRINT "Az x ir ny£ rezg‚s f zisa z‚rus"
PRINT "              <+> : rajzol˘ zemm˘d"
PRINT "              <-> : tekerg“ zemm˘d"
PRINT "        £j adatok: enter "; ""
INPUT "Az x ir ny£ rezg‚s k”rfrekvenci ja ( > 0 )"; kx
INPUT "Az y ir ny£ rezg‚s k”rfrekvenci ja ( > 0 )"; ky
IF ky >= kx THEN dt = .01 / ky ELSE dt = .01 / kx
PRINT
PRINT "Az x ir ny£ rezg‚s f zisa z‚rus"
INPUT "Az y ir ny£ rezg‚s f zisa = 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