'
'     Routine f�r das Laden von TT-NEO-Bilder
'
'     1992 (c) by Michael Ryffel
'
'     Creative Paint 1992 (c) by Michael Ryffel
'
'
FILESELECT "\*.*","*."+"NEO",file$
'
IF file$<>""
  @load_tt_neo
ENDIF
'
PROCEDURE load_tt_neo
  '
  ' gilt NUR f�r NEO-Bilder in TT-Low
  '
  zero$=SPACE$(4)              ! Strings erstellen...
  reserve$=SPACE$(120)
  file_r$=SPACE$(12)
  pal$=SPACE$(512)
  res$=SPACE$(4)
  '
  OPEN "i",#1,file$            ! Lade Bild in Speicher
  BGET #1,V:res$,4             !   4 Bytes f�r den Bildschirmmodus
  BGET #1,V:file_r$,12         !  12 Bytes f�r den Datei-Namen
  BGET #1,V:zero$,4            !   4 Bytes f�r die Katze...
  BGET #1,V:reserve$,108       ! 108 reservierte Bytes
  BGET #1,V:pal$,512           ! 512 Bytes f�r die Palette
  '
  BGET #1,XBIOS(2),153600      ! 'move' Bild auf den Bildschirm
  ~XBIOS(84,0,256,L:V:pal$)    ! setze Farbpalette
RETURN