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