' --------------------------------------------------------------------------
' AVI-Player f�r QuickBasic, Version 1.0, Copyright 1999-2000 Sebastian Mate
' --------------------------------------------------------------------------
'                            - 23. Mai 2000 -

' Info!
' -----
' Freier Programmcode, darf beliebig verwendet werden!
' Bitte geben Sie mit Credits.

' Benutzung erfolgt auf eigenes Risiko! Keine Haftung f�r jegliche Sch„den!

' Format: Datei muá sein:
' -----------------------
' -> AVI-Format, unkomprimiert
' -> 320x200 Pixel
' -> die 256 Farben DOS-Palette (Bild mit dieser Palette liegt bei.
     konvertieren Sie den Film einfach in diese!)
' -> kein Ton
' -> Der Film kann z.B. mit Corel Photo-Paint 7 bearbeitet werden.

' Zu langsam?
' -----------
' Dieses Programm soll nur etwas das Format verdeutlichen!
' Aber: Der extrem langsame Player kann so beschleunigt werden:
' -> compilieren
' -> Die Leerzeilen und Kommentare unten l”schen
' -> Die PSET-routine durch eine schnellere PEEK-routine ersetzen
' -> Die Datei mit "FOR INPUT" ”ffnen, was aber vorraussetzt, dass keine
'    Bytes mit dem Wert 26 (END OF FILE) vorkommen! Datei geg. mit einem
'    Basic-Programm umscheiben. Geht aber auch teilweise mit nicht-um-
'    geschriebenen AVIs.

OPEN Datei$ FOR BINARY AS #1 LEN = 10000

s$ = INPUT$(4104, #1) ' šberlese einfach den Kopf!

SCREEN 13

DO

'Schleife f�r x und y

FOR y% = 199 TO 0 STEP -1
 FOR x% = 0 TO 319
  PSET (x%, y%), ASC(INPUT$(1, #1))
 NEXT
NEXT

s$ = INPUT$(8, #1) ' šberlese Informationen f�r n„chstes Bild

LOOP