100 PROGRAM "anim.bas"
  110 !
  120 ! Elokeszites
  130 SET VIDEOMODE1
  140 SET VIDEOCOLOR1
  150 SET VIDEOX10
  160 SET VIDEOY10
  170 !
  180 ! Lapok nyitasa
  190 !
  200 FOR N=1TO20
  210   OPEN #N:"video:"
  220   CALL RAJZOK(N)
  230 NEXT 
  240 !
  250 LET A$=INKEY$
  260 IF A$=""THEN 250
  270 !
  280 ! Megjelenites
  290 !
  300 FOR N=1TO20
  310   DISPLAY #N:AT1FROM1TO10
  320   GOSUB  430
  330 NEXT 
  340 !
  350 FOR N=20TO1STEP-1
  360   DISPLAY #N:AT1FROM1TO10
  370   GOSUB  430
  380 NEXT 
  390 GOTO  300
  400 !
  410 ! Kesleltetes
  420 !
  430 FOR T=1TO10
  440 NEXT 
  450 RETURN 
  460 !
  470 ! Fazisrajzok
  480 !
  490 DEF RAJZOK(N)
  500   DISPLAY #N:AT1FROM1TO10
  510   SET #N:PALETTEBLACK,GREEN,YELLOW,RED
  520   PLOT #N:0,0;319,0;319,359;0,359;0,0,
  530   SET #N:INK1
  540   PLOT #N:-10+16*N,160,
  550   PLOT #N:ELLIPSE70,70,
  560   SET #N:INK2
  570   PLOT #N:PAINT
  580   SET #N:INK3
  590   PLOT #N:328-16*N,200,
  600   PLOT #N:ELLIPSE70,70,
  610   PLOT #N:328-16*N,245,
  620   PLOT #N:PAINT
  630   SET #N:INK1
  640   PLOT #N:-10+16*N,130,
  650   PLOT #N:PAINT
  660 END DEF