'
' Blend V1.0
' (w)&(c) 1991 bei Christian Krapp         \  /\  /\ | | \  /\  /\ | |
'                                           \/  \/--\|-|  \/  \/--\|-|
' --=>! FREEWARE !<=--                    software for Amiga & ATARI ST
'
' Geschrieben am 1.4.1991
'
' Adresse:                     Christian Krapp
'                            Hagenmähderstraße 9
'
'                            W-8901  Stadtbergen
'                        Bundesrepublik  Deutschland
'
OPENW #0
SETCOLOR 0,0,0,0
SETCOLOR 2,0,0,0
SETCOLOR 1,0,0,0
COLOR 1
TEXT 100,100,"Blend V1.0    © 1991 by Christian Krapp"
COLOR 2
TEXT 100,110,"                 s·o·f·t"                ! Farbe 2  "unterer" Text
GRAPHMODE 2                                            ! Zeichenart ändern
COLOR 3                                                ! Farbe ändern
TEXT 100,110,"                 WAH-WAH"                ! "oberer" Text
'
FOR i=0 TO 15
  SETCOLOR 1,i,i,i
  SETCOLOR 3,i,i,i
  VSYNC
NEXT i
'
DO
  PAUSE 30
  FOR i=15 DOWNTO 0
    VSYNC
    SETCOLOR 3,i,i,i                                    ! "oberer" Text dunkler
    SETCOLOR 2,o,o,o                                    ! "unterer" Text heller
    INC o
    VSYNC
  NEXT i
  PAUSE 30
  FOR i=15 DOWNTO 0
    VSYNC
    SETCOLOR 2,i,i,i                                    ! "unterer" Text dunkler
    SETCOLOR 3,o,o,o                                    ! "oberer" Text heller
    INC o
    VSYNC
  NEXT i
LOOP
'
' funktionsweise:  es werden zwei texte auf den bildschirm übereinander ge-
'                  schrieben und durch farbveränderung "überblendet".