' *** CODE 10.1: Animierte Spielfigur DIM AS INTEGER breite = 80, hoehe = 150, anzahl = 10, nr = 0 SCREENRES breite, hoehe, 32 DIM AS ANY PTR animation = IMAGECREATE(breite*anzahl, hoehe) BLOAD "walking.bmp", animation DO PUT (0, 0), animation, (nr*breite, 0)-STEP(breite-1, hoehe-1), PSET SLEEP 100 nr = (nr+1) MOD anzahl ' naechstes Bild LOOP UNTIL INKEY <> "" ' Ende bei Tastendruck IMAGEDESTROY animation