MEMBUAT TULISAN BERJALAN

MEMBUAT TULISAN BERJALAN

program Welcome;

uses WinCrt;

VAR

   KATA,HRF:STRING;

   X,Y,Z, JH : INTEGER;

   N, M :LONGINT;

BEGIN

     KATA:=' STMIK PWT';

     JH := LENGTH(KATA);

     FOR X:=1 TO 80-JH DO

     BEGIN

         GOTOXY(X,1); WRITELN(KATA);

         FOR N:=1 TO 1000 DO

         BEGIN

           FOR M:=1 TO 1000 DO

           BEGIN

           END;

         END;

     END;

     FOR Z:=1 TO JH DO

     BEGIN

        FOR X:= 1 TO 23 DO

        BEGIN

             HRF:=COPY(KATA,Z,1);

             GOTOXY(79-(JH-Z),X); WRITELN(' ');

             GOTOXY(79-(JH-Z),X+1); WRITELN(HRF);

             FOR N:=1 TO 1000 DO

             BEGIN

                  FOR M:=1 TO 10000 DO

                  BEGIN

                  END;

             END;

        END;

     END;

end.