PRINT AT(1,1);"BM BM BM"                  ! Animationsbilder auf dem
PRINT AT(1,2);"        BM BM BM"          ! Bildschirm darstellen
PRINT AT(1,3);"BM BM BM"
PRINT AT(1,4);"        BM BM BM"
PRINT AT(1,5);"BM BM BM"
PRINT AT(1,6);"        BM BM BM"
PRINT AT(1,7);"BM BM BM"
PRINT AT(1,8);"        BM BM BM"
BOX 0,0,63,63
BOX 64,0,127,63
GET 0,0,63,63,daten1$                     ! Animationsdaten erzeugen
GET 64,0,127,63,daten2$
daten1$=daten1$+RIGHT$(daten2$,LEN(daten2$)-6)
'
GOSUB gfa_intani__(16,130,64,64,40,1,V:daten1$+6,1)
'
ALERT 2," |Animation| stoppen | ",1," Ok ",button|
'
GOSUB gfa_intani__(0,0,0,0,0,0,0,0)