home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 08 / schach / out.inc < prev    next >
Encoding:
Text File  |  1989-04-18  |  1.4 KB  |  32 lines
  1. (********************************************************)
  2. (*                                                      *)
  3. (*   Modul:         OUT.INC                             *)
  4. (*   Projekt:       CHESS                               *)
  5. (*   Autor:         Michael Thielscher                  *)
  6. (*   erstellt am:   17.04.89                            *)
  7. (*                                                      *)
  8. (********************************************************)
  9.  
  10. PROCEDURE StellungsAusgabe (VAR Stellung: StellungsTyp);
  11.  
  12.   CONST  FigurenZeichen : ARRAY [FigurenTyp] OF CHAR = (' ', 'B', 'S', 'L', 'T', 'D', 'K',
  13.                                                              'b', 's', 'l', 't', 'd', 'k', ' ');
  14.  
  15.   VAR  Reihe, Spalte : BYTE;
  16.  
  17.   BEGIN
  18.     WITH Stellung DO BEGIN
  19.       ClrScr;
  20.       GotoXY(8, 1);  Write('A   B   C   D   E   F   G   H');
  21.       GotoXY(6, 3);  Write('+---+---+---+---+---+---+---+---+');
  22.       FOR Reihe := 8 DOWNTO 1 DO BEGIN
  23.         GotoXY(2, 4+2*(8-Reihe));  Write(Reihe, '   ');
  24.         FOR Spalte := 1 TO 8 DO
  25.           Write('| ', FigurenZeichen[Brett[10*(Reihe+1)+Spalte]], ' ');
  26.         Write('|   ', Reihe);
  27.         GotoXY(6, 5+2*(8-Reihe));  Write('+---+---+---+---+---+---+---+---')
  28.       END; (* for *)
  29.       GotoXY(8, 21);  Write('A   B   C   D   E   F   G   H')
  30.     END (* with *)
  31.   END; (* StellungsAusgabe *)
  32.