Roe 2 Splash

DEFSNG A-Z
SUB splash (filename$, xx%, yy%, lineskip%, clearpage%, fg%, bg%)
 xp% = xx%
 yp% = yy%

 filemode% = FREEFILE
 OPEN filename$ FOR INPUT AS #filemode%
 DO WHILE NOT (EOF(filemode%))

  c$ = "%%"

  LINE INPUT #filemode%, R$
  text yy%, xx%, R$, fg%

  IF "(" + MID$(R$, 2, 1) + ")" = MID$(R$, 1, 3) THEN
   IF xm% = xx% + 1 AND ym% = yy% AND lb% <> 0 THEN
    c$ = UCASE$(MID$(R$, 2, 1))
   END IF
  END IF

  xx% = xp%
  yy% = yy% + lineskip%

  IF yy% > 25 THEN
   DO WHILE c$ = "%%"
    suspend TIMER, .2
   LOOP
   CLS
   xx% = xp%
   yy% = yp%
  END IF
 LOOP
 IF clearpage% THEN
  IF yy% > 2 THEN
   c$ = "%%"
   DO WHILE c$ = "%%"
    suspend TIMER, .2
   LOOP
   CLS
   xx% = xp%
   yy% = yp%
  END IF
 END IF
 CLOSE #filemode%
END SUB