home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBOUT2.ZIP / UT-MOD00.INC < prev    next >
Encoding:
Text File  |  1984-09-11  |  725 b   |  22 lines
  1. type
  2.   str255     =   string[255];
  3.   str80      =   string[80];
  4.   str20      =   string[20];
  5.   str5       =   string[5];
  6.  
  7. var
  8.   Ch              : Char;
  9.   Answer,S        : str255;
  10.   Template        : str80;
  11.   P,Filvar        : array[1..35] of str80; { menu Prompts }
  12.   InsertOn,Exit,
  13.   Escape,
  14.   F1,F10,
  15.   Use_Default,
  16.   First_Run       : Boolean;
  17.   Video_Scr1      : array[1..4000] of char absolute $B000:$0000;
  18.   Video_Scr2      : array[1..4000] of char absolute $B800:$0000;
  19.     { video_scr1 is mono screen & video_scr2 is color graphics }
  20.     { Note that these do not require space in the data segment }
  21.   Memory_Scr      : array[1..4000] of char;
  22.     { Memory_scr is the memory image of the video }