10 GRAPHICS 0:A=0:B=10:DIM CHARACTER$(1):CHARACTER$="A"›20 POSITION A,B:? CHARACTER$›25 FOR SLOMO=1 TO 10:NEXT SLOMO›30 POSITION A,B:? " "›40 A=A+1:IF A>39 THEN 60›50 GOTO 20›60 IF CHARACTER$<>"" THEN CHARACTER$="":A=0:B=10:GOTO 20›70 POSITION 10,5:? "CHARACTER ANIMATION":? "  WITH A LETTER AND CONTROL CHARACTER"›