home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 13 / tsr / tsrpgm.prn < prev    next >
Encoding:
Text File  |  1988-03-18  |  2.7 KB  |  69 lines
  1.    1: (* ------------------------------------------------------ *)
  2.    2: (*                     TSRPGM.INC                         *)
  3.    3: (*    SNAPSHOT von Bildschirmen mit HGC, CGA + EGA        *)
  4.    4: (*      Speicherung auf Diskette oder Festplatte          *)
  5.    5: (* ------------------------------------------------------ *)
  6.    6: 
  7.    7: PROCEDURE tsrpgm;
  8.    8: VAR regs               : regs8088_;
  9.    9:     modus, seite       : BYTE;
  10.   10:     a_x, a_y           : INTEGER;
  11.   11:     sname, snum, text1 : name;
  12.   12:     text2              : STRING[75];
  13.   13:     cnr                : STRING[2];
  14.   14:     ext                : STRING[4];
  15.   15:     sign               : CHAR;
  16.   16: 
  17.   17: BEGIN
  18.   18:   modus := get_modus(seite);           (* aktueller Modus *)
  19.   19:   CASE modus OF
  20.   20:     $00..$06, $80..$86                    : ext := '.CGA';
  21.   21:     $0D, $0E,$8D, $8E, $0f, $8f, $10, $90 : ext := '.EGA';
  22.   22:     $07, $87                              : ext := '.HGC';
  23.   23:   END;
  24.   24:   IF (modus < 4) OR (modus = 7) THEN wo_cursor(a_x, a_y);
  25.   25:   text1 := '';  text2 := '';  sname := '';
  26.   26:   nr := Succ(nr);
  27.   27:   Str(nr, cnr);
  28.   28:   snum := datum + '-' + cnr + ext;
  29.   29:   sname := pfad + snum;
  30.   30:   IF ext = '.EGA' THEN EgaSave(sname)
  31.   31:   ELSE
  32.   32:    IF ext = '.CGA' THEN CgaSave(sname)
  33.   33:    ELSE HercSave(sname);
  34.   34:     IF modus = 7 THEN BEGIN
  35.   35:       checkmode;
  36.   36:       IF grafik THEN BEGIN
  37.   37:         ext := '.HGG';
  38.   38:         snum := datum + '-' + cnr + ext;
  39.   39:         text1 := pfad + snum;
  40.   40:         Assign(datei, sname);
  41.   41:         Rename(datei, text1);
  42.   42:         sname := text1;
  43.   43:        END;
  44.   44:      END;
  45.   45:   text1 := '';
  46.   46:   X_Pos := 1;  Y_Pos := 24;          (* nur fuer Hercules *)
  47.   47:   GotoXY(1, 24);   WriteLn(sname);
  48.   48:   Write
  49.   49:       ('                                                 ');
  50.   50:   X_Pos := 1;  Y_Pos := 25;          (* nur fuer Hercules *)
  51.   51:   GotoXY(1, 25);  Write('Kommentar: ');
  52.   52:   ReadLn(text1);
  53.   53:   text2 := snum + '    ' + text1;
  54.   54:   Assign(Tdatei, index);
  55.   55:   APPEND(Tdatei);
  56.   56:   WriteLn(Tdatei, text2);
  57.   57:   Close(Tdatei);
  58.   58:   IF ext = '.CGA' THEN Move(Puffer[0], CgaBase, 16383);
  59.   59:   IF modus = 7 THEN Move(Puffer[0], HercBase, 32767);
  60.   60:   IF ext = '.EGA' THEN egaload(sname);
  61.   61:   IF (modus < 4) OR (modus = 7) THEN GotoXY(a_x, a_y);
  62.   62:   IF modus = 7 THEN BEGIN
  63.   63:     ConOutPtr := ConOut;
  64.   64:     grafik := FALSE;
  65.   65:   END;
  66.   66: END;
  67.   67: (* ------------------------------------------------------ *)
  68.   68: (*                  Ende von TSRPGM.INC                   *)
  69.