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
|
mode(-1);
// Copyright INRIA
path=pathconvert(get_absolute_file_path('flat.dem'),%t,%t)
getf(path+'car.sci');
getf(path+'truck.sci');
global LANGUAGE
demolist=['Car ';
'Two trailers truck ';];
while %t then
num=tk_choose(demolist(:,1),'Choose a vehicle');
if num==0 then break,end
select num
case 1 then
if LANGUAGE=='fr' then
// browsehelp(path+'demo_car_fr.htm',' ')
else
// browsehelp(path+'demo_car_eng.htm',' ')
end
demo_car()
case 2 then
if LANGUAGE=='fr' then
// browsehelp(path+'demo_truck_fr.htm',' ')
else
// browsehelp(path+'demo_truck_eng.htm',' ')
end
demo_truck()
end;
end,
|
