Subj : Talking to yourself works
To   : All
From : Sean Dennis
Date : Thu Jul 04 2019 12:51:05

Hello All,

So, after posting that last messasge, I started talking to myself and I 
figured out the issue. Here's the code now (I added a few things):

{ -------------------------------------------------------------------
  PROCEDURE SRFColor (S : String; Centered : Boolean);
  Displays a text string in random colors
  ------------------------------------------------------------------- }
Procedure SRFColor(S : String; Centered : Boolean);
Var
  SLen : Byte Absolute S;
  N, TLen, X : Integer;
Begin
  Randomize;
  If Centered Then
    Begin
      TLen := 40 - (Length(S) Div 2);
      If Loc Then GotoXY(TLen, WhereY) Else fk_GotoXY(TLen, WhereY);
    End;
  For N := 1 To SLen Do
    Begin
      Repeat
        X := 0;
        X := Random(15);
      Until ( X >= 1);
      If Loc Then
        Begin
          TextColor(X);
          Write(S[N]);
        End
      Else
        Begin
          fk_Textforeground(X);
          fk_Write(S[N]);
        End;
    End;
  NL;
End;

Sometimes talking to yourself -does- indeed solve problems :D

Later,
Sean

.... Eat prune yogurt for that "get up and go" feeling.
--- GoldED+/LNX 1.1.5-b20180707
 * Origin: Outpost BBS * Limestone, TN, USA (618:618/1)

.