home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / BN_108.ZIP / ANSI.PAS next >
Pascal/Delphi Source File  |  1994-09-10  |  1KB  |  91 lines
  1. USES Crt;
  2.  
  3. VAR
  4.   M : Text;
  5.   X, Y, I : INTEGER;
  6.   Ch : CHAR;
  7.  
  8. PROCEDURE TC (Fg, Bg : BYTE);
  9.   BEGIN
  10.     TextColor (Fg);
  11.     TextBackGround (Bg);
  12.   END; { TC }
  13.  
  14. BEGIN { Main Block }
  15.   TC (15,0);
  16.   ClrScr;
  17.   GotoXY (23,1);
  18.   Write ('F');
  19.   TC (12,0);
  20.   GotoXY (24,1);
  21.   Write ('A');
  22.   TC (10,0);
  23.   GotoXY (25,1);
  24.   Write ('N');
  25.   GotoXY (26,1);
  26.   TC (9,0);
  27.   Write ('S');
  28.   GotoXY (27,1);
  29.   TC (11,0);
  30.   Write ('I');
  31.   GotoXY (29,1);
  32.   TC (15,0);
  33.   Write ('News v1.φφα - 1994 εXτRεMε Software');
  34.   TC (1,0);
  35.   GotoXY (1,2);
  36.   For I := 1 to 80 DO
  37.    Write ('─');
  38.   GotoXY (1,15);
  39.   For I := 1 to 80 DO
  40.     Write ('─');
  41.   X := 1;
  42.   Y := 4;
  43.   GotoXY (X,Y);
  44.   TC (7,0);
  45.   Assign (M, 'News.Ans');
  46.   Rewrite (M);
  47.   REPEAT
  48.     Ch := READKEY;
  49.     GotoXY (X,Y);
  50.     Write (Ch);
  51.     Write (M,Ch);
  52.     IF (Ch = #8)
  53.       THEN
  54.     BEGIN
  55.       X := X - 1;
  56.       IF (X < 1)
  57.         THEN
  58.           BEGIN
  59.         X := 79;
  60.         Y := Y - 1;
  61.         GotoXY (X,Y);
  62.           END;
  63.       IF (Y < 4)
  64.         THEN
  65.           BEGIN
  66.         Y := 4;
  67.         X := 1;
  68.           END;
  69.       GotoXY (X,Y);
  70.     {  Write (#0);}
  71.     END
  72.       ELSE
  73.     X := X + 1;
  74.     IF (X > 79) OR (Ch = #13)
  75.       THEN
  76.     BEGIN
  77.       X := 1;
  78.       Y := Y + 1;
  79.       Write (M, #27,'[B');
  80.     END;
  81.     IF (Y > 14)
  82.       THEN
  83.     Begin
  84.       Close (M);
  85.       Halt (0);
  86.     END;
  87.   UNTIL (Ch = #27);
  88.  
  89.   Close (M);
  90.  
  91. END.