10 PROGRAM "Pelda-17.bas"
  100 ! Szinek keverese
  110 OPTION ANGLEDEGREES
  120 TEXT 
  130 SET VIDEOMODE1
  140 SET VIDEOCOLOUR2
  150 SET VIDEOX10
  160 SET VIDEOY5
  170 FOR J=1TO36
  180   OPEN #J:"video:"
  190 NEXT 
  200 FOR J=1TO36
  210   SET #J:PALETTEBLACK,RED,GREEN,BLUE
  220   PLOT #J:160,90
  230   PLOT #J:ELLIPSE60,60
  240   FOR I=1TO3
  250     PLOT #J:160,90
  260     PLOT #J:ANGLEI*120+J*250-360*INT(J*190/360);
  270     PLOT #J:FORWARD60
  280   NEXT 
  290   FOR I=1TO3
  300     SET #J:INKI
  310     PLOT #J:160,90
  320     PLOT #J:ANGLEI*120+J*250-360*INT(J*190/360)+60
  330     PLOT #J:FORWARD40,
  340     PLOT #J:PAINT
  350   NEXT 
  355   TEXT :PRINT J;". lap"
  360   DISPLAY #J:AT3FROM1TO5
  370 NEXT 
  380 ! megjelenites
  385 CLEAR TEXT
  390 FOR J=1TO36
  400   DISPLAY #J:AT12FROM1TO5
  410 NEXT 
  420 GET Q$
  430 IF Q$=""THEN 390