{$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X+}
{$M 16384,0,0}
{Autor: Martin M�hlhaus}
unit folio;

INTERFACE

VAR IsFolio: BOOLEAN;  { TRUE, sobald das Prog. auf Folio l„uft }
{ Variable die im Initialisierungsteil einen Wert bekommt }

PROCEDURE Refresh;
{ f�hrt einen Bildschirm-Refresh durch, damit die Ver„nderungen nach dem
  direkten Schreiben in den Bildschirmspeicher sichtbar werden }

IMPLEMENTATION

VAR Int61: POINTER absolute 0:$61*4;

PROCEDURE Refresh ;assembler;
 asm
 mov ah,$12
 int $61
 end;

BEGIN
IsFolio := Int61 <> NIL;
END.