'GFA Punch
'Carr 3D en rotation
T%=Timer
For I%=0 To 50
  Cls
  X=Cos(T)*20.
  Y=Sin(T)*18.
  R=Sin(T+T)*2.5
  Line X+50.,Y+70.-R,Y+50.,X+70.-R
  Line Y+50.,X+70.-R,X+50.,Y+70.-R
  Line X+50.,Y+70.-R,Y+50.,X+70.-R
  Line Y+50.,X+70.-R,X+50.,Y+70.-R
  Line X+50.,Y+20.+R,Y+50.,X+20.+R
  Line Y+50.,X+20.+R,X+50.,Y+20.+R
  Line X+50.,Y+20.+R,Y+50.,X+20.+R
  Line Y+50.,X+20.+R,X+50.,Y+20.+R
  Line X+50.,Y+70.-R,X+50.,Y+20.+R
  Line Y+50.,X+70.-R,Y+50.,X+20.+R
  Line X+50.,Y+70.-R,X+50.,Y+20.+R
  Line Y+50.,X+70.-R,Y+50.,X+20.+R
  Add T,0.15

  For J%=0 To 600
  Next J%
Next I%
Print (Timer-T%)\200