LOADDEMO.P

[Table of Contents]

LOADDEMO.P is a demo program from the Kyan Pascal 2.x Utility Disk 2.

Source Code

PROGRAM LOADDEMO(INPUT,OUTPUT);
   TYPE
       PATHSTRING=ARRAY[1..20] OF CHAR;
   VAR
       FYLE:PATHSTRING;
       ADR :INTEGER;
#I LOADCSET.I
#I ACTCSET.I
   BEGIN
       WRITELN('THE NEW CHR SET HAS A REDEFINED @ KEY');
       FYLE:='SET.SET             ';
       LOAD_CHAR_SET(FYLE,ADR);
       WRITELN('LOADDED AT ',ADR);
       ACTIVATE_CHAR_SET(ADR);
END.