home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MKSCREN2.ZIP / SKELETON.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-12-09  |  469 b   |  25 lines
  1. {Skeleton for using a MKSCREEN generated screen routine}
  2. TYPE
  3. str80     = string[80];
  4. _Textfile = text;
  5. charset   = set of char;
  6. DosRegs = record
  7.            ax,bx,cx,dx,bp,si,di,ds,es,Flags : integer;
  8.           end;
  9.  
  10. CONST
  11.  term             : charset = [^B,^C,^E,^I,^J,^K,^L,^M,^T,^X,#27];
  12.  
  13. VAR
  14.  result           : DosRegs;
  15.  answer           : char;
  16.  
  17. {$ISCRNCODE.PAS}
  18. {$ICAPITAL.PAS}
  19. {$IRJUST.PAS}
  20. {$ISCRNCTRL.PAS}
  21. {$ISCREENXX.OVL}
  22.  
  23. begin
  24. end.
  25.