CSET.P

[Table of Contents]
CSET.ATR Disk Image

CSET.P is a short sample program that shows how to use the CSET.I include file procedures. The four procedures in the include file manipulate the Atari's character set.

Source Code

(* CSET.P *)
(* Kyan Pascal 2.x / Atari 8-bit *)

Program CSET(Input, Output);
Var
   i : Integer;

#I CSET.I

(* Main Program *)
Begin
   write(chr(125)); (* Clear screen *)

   for i := 0 to 26 do
      write(chr(i));

   writeln;
   writeln;

   write('Press <RETURN> to Invert Set');
      readln;
   Invert_Char_Set;

   write('Press <RETURN> for Normal Set');
      readln;
   Normal_Char_Set;

   write('Press <RETURN> for International set');
      readln;
   Intl_Char_Set;

   write('Press <RETURN> for Atari set');
      readln;

   Atari_Char_Set;

End.

Sample Run