CALLMENU.P

[Table of Contents]
CALLMENU.ATR Disk Image

Notes

CALLMENU.P is from the Procedures section of the Kyan Pascal 2.x User's Manual. It shows how to call a simple Procedure (with no parameters) from the main.

What's on the disk?

The disk image includes the various Atari DOS 2.5 files, Kyan Pascal Include files (none of which are used in this program), Kyan Pascal Run-time library, and ...

CALLMENU.P - Source code file
P.OUT - Kyan Pascal intermediate file
CALLMENU - Executable file

Source Code

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

Program CallMenu(Input,Output);

Var
   Choice : Integer;

Procedure Menu; (* Begin Procedure *)

Begin
   Writeln;
   Writeln;
   Writeln('MENU':15);
   Writeln;
   Writeln;
   Writeln('Enter the number of your choice.');
   Writeln;
   Writeln('1. Item A':10, '2. Item B':20);
   Writeln;
   Writeln('3. Item C':10, '4. Item D':20);
   Writeln;
End; (* End Procedure; note the semi-colon *)

Begin (* Main Program *)
   Menu;
   Readln(Choice);
   (* Statements which call a Procedure or Function indicated
      by the Choice selection. *)
End.

Sample Run