START.BAS

DECLARE SUB white ()
SCREEN 13
COLOR 15
DO
CLS
PRINT
PRINT
PRINT "   ÉÍÍÍÍÍÍÍÍÍÍÍ> ";
COLOR 42
PRINT "Willkommen"
COLOR 15
PRINT "   ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍ ÍÍÍ ÍÍ Í"      'ú
PRINT "   ÌÍÍÍÍÍÍÍÍ> Es ist    "; TIME$; " Uhr."
PRINT "   ÌÍ> Heute ist der  "; DATE$; "."
PRINT "   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍ ÍÍÍ ÍÍ Í"
white
LOOP UNTIL INKEY$ <> ""

SUB white
SCREEN 13
1
f = 16
DO
 FOR a% = 0 TO 320 STEP 1
  FOR b% = 0 TO 10 STEP 1
   PSET (a%, b%), f
  NEXT b%
 NEXT a%
f = f + 1
IF f = 31 THEN GOTO 2
LOOP
2
f = 31
DO
 FOR a% = 0 TO 320 STEP 1
  FOR b% = 0 TO 10 STEP 1
   PSET (a%, b%), f
  NEXT b%
 NEXT a%
f = f - 1
IF f = 16 THEN GOTO 3
LOOP
3
END SUB