/
tmu.pas
104 lines (83 loc) · 1.82 KB
/
tmu.pas
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
program TelegardMasterUtility;
{$M 35000,0,1000}
uses myio,
{rcg11172000 no turbo3 under linux.}
{crt, dos, turbo3;}
crt, dos;
{$I rcc17a.pas}
{$I rec17b.pas}
type
menu_string_record=array[0..20] of string;
const
tmu_ver='1.0';
menu_main:
menu_string_record=
('Main Menu',
'Fix utilities',
'Color-filter editor',
'Initialization / Partial re-initalization',
'','','','','','','','','','',
'','','','','','','');
var doswindow:windowrec;
dosx,dosy:integer;
nummenusel:integer;
procedure init1;
begin
infield_out_fgrd:=15;
infield_out_bkgd:=1;
infield_inp_fgrd:=0;
infield_inp_bkgd:=7;
infield_arrow_exit:=FALSE;
dosx:=wherex; dosy:=wherey;
checkvidseg;
cursoron(FALSE);
savescreen(doswindow,1,1,80,25);
clrscr;
end;
procedure exite(i:integer);
begin
clrscr;
removewindow(doswindow);
gotoxy(dosx,dosy);
cursoron(TRUE);
halt(i);
end;
procedure drawtl;
begin
cwritecentered(1,#3#15+'T'+#3#14+'elegard '+
#3#15+'M'+#3#14+'aster '+
#3#15+'U'+#3#14+'tility '+
#3#11+'v'+tmu_ver+' '+
#3#14+'for Telegard '+
#3#11+'v'+s_ver);
end;
procedure mtitle(s:string);
begin
cwritecentered(3,#3#9+'-------®®®®®<'+
#3#15+#2#1+' '+s+' '+
#3#9+#2#0+'>¯¯¯¯¯-------');
end;
procedure mfunc(y:integer; c:char; s:string);
begin
cwriteat(20,y,#3#15+c+#3#9+' - '+#3#11+s);
end;
procedure show_menu(m:menu_string_record);
begin
clrscr;
drawtl;
mtitle(m[0]);
nummenusel:=1;
repeat
cwriteat(20,6+nummenusel,#3#14+m[nummenusel]);
inc(nummenusel);
until ((nummenusel>20) or (m[nummenusel]=''));
dec(nummenusel);
end;
var c:char;
begin
init1;
menu_current:=main_menu;
show_menu(menu_main);
c:=readkey;
exite(0);
end.