Pull-down/pop-up menu editor
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
Program example;
Uses
Crt,
Pdm_Use;
var
PDM_Code : Byte;
Begin
ClrScr;
If ActivePDM_File('example.pdm') Then
PDM_Code := UserSelectedPDM_Code;
Window(1,1,80,25);
ClrScr;
Case PDM_Code Of
1: Writeln('User Selected Option 1');
2: Writeln('User Selected Option 2');
3: Writeln('User Selected Option 3');
4: Writeln('User Selected Option 4');
5: Writeln('User Selected Option 5');
6: Writeln('User Selected Option 6');
7: Writeln('User Selected Option 7');
8: Writeln('User Selected Option 8');
9: Writeln('User Selected Option 9');
10: Writeln('User Selected Option 10');
11: Writeln('User Selected Option 11');
12: Writeln('User Selected Option 12');
13: Writeln('User Selected Option 13');
14: Writeln('User Selected Option 14');
15: Writeln('User Selected Option 15');
End; { Case }
End.
