100 PROGRAM "ABRA_2"
  110 OUT 191,2
  120 RANDOMIZE 
  130 SET 26,255
  140 LET Y=0:LET A=640:LET B=360
  150 GRAPHICS HIRES256
  160 SET 27,253
  170 SET PAPER253:CLEAR SCREEN
  180 SET #102:PALETTE253,1
  190 FOR X=0TO1279STEP32
  200   LET Y=Y+16
  210   SET INKRND(256)
  220   PLOT 640,360,ELLIPSEA,B,
  230   PLOT X,Y,ELLIPSEA,B,
  240   PLOT 1279-X,Y,ELLIPSEA,B,
  250   PLOT 1279-X,719-Y,ELLIPSEA,B,
  260   PLOT X,719-Y,ELLIPSEA,B,
  270 NEXT 
  280 GET I$:LET I$=UCASE$(I$)
  290 IF I$="V"THEN 310
  295 IF I$=""THEN 280
  300 RUN 
  310 SET 26,0
  320 OUT 191,0
  330 SET 27,0