1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
A simple configuration file for MNU
***********************************
~hotkeys F2{* "echo COPYing [%FILE%].pas to A:">0} F3{* "dir">0, "pause">0}
^50, 10, 20, 30, 40, 0 ; the list of item numbers
~param{40, 5, 24, 15, 1, 112, 112, 116, 14, 15} " Menu "; parameters of window
File name: [%FILE%8]
======================
| new f^ile |{51}
----------------------
| E^dit |
| C^ompile |
| Ex^ecute |
----------------------
| P^rint |
| Q^uit |
----------------------
F1-help F2-save F3-dir
^51 [50] ; the item number and [the parent item number]
~param{20, 11, 47, 4}
Write a new file name (without extension):
|#[%FILE%8]|{!>2, "set FILE=#">2, $50}
~param {3 2 76 23 1 48 62} " Help " ; global parameters for help windows
^(0 10 20 30 40 50 51) ; Help is common for all items
Use arrows (or mouse) and press
"Enter" ... to confirm selection
"Esc" ..... to cancel selection or edited new file name.
This is not real example but is similar to debugging process in
Pascal program:
New file .... you can set a new file name
Edit ........ edit the file [%FILE%].pas
Compile ..... compile file [%FILE%].pas as Pascal program
Execute ..... Run the [%FILE%].exe
Print ....... Print listing, file [%FILE%].pas
Quit ........ Terminate this "menu-loop".
You can use highlited letter key to select process immediately
Use hot key everytime: F1 ... help
F2 ... save [%FILE%].pas to diskette A:
F3 ... dir command
~
end of file DEMO.MNU
|
