Subversion Repositories Kolibri OS

Rev

Rev 1665 | Rev 2615 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1665 Nasarus 1
 
2
{
3
4
 
5
kol_struct_BDVK	bdvk;
6
unsigned	result, filesize, pos, i;
7
char		buf[81]; //буфер
1668 Nasarus 8
char		temp[256];
1665 Nasarus 9
unsigned	flags;
10
11
 
12
	{
13
	#if LANG_ENG
1668 Nasarus 14
		printf ("  more \n\r");
15
	#elif LANG_RUS
16
		printf ("  more <имя файла>\n\r");
17
	#endif
18
	return FALSE;
1665 Nasarus 19
		}
20
21
 
22
	{
23
	strcpy(temp, file);
24
25
 
26
		{
27
		return FALSE;
28
		}
29
	}
30
else
31
	{
32
	strcpy(temp, cur_dir);
33
	strcat(temp, file);
34
35
 
36
		{
37
		return FALSE;
38
		}
39
	}
40
41
 
42
k70.p04 = k70.p08 = k70.p12 = 0;
43
k70.p16 = &bdvk;
44
k70.p20 = 0;
45
k70.p21 = temp;
46
47
 
1668 Nasarus 48
if ( 0 != result )
1665 Nasarus 49
	return FALSE;
50
51
 
1668 Nasarus 52
1665 Nasarus 53
 
54
flags = con_get_flags();
55
56
 
57
	{
58
59
 
60
61
 
62
	k70.p04 = pos;
63
	k70.p08 = 0;
64
	k70.p12 = 80;
65
	k70.p16 = buf;
66
	k70.p20 = 0;
67
	k70.p21 = temp;
68
69
 
1668 Nasarus 70
	for (i=0; i<80; i++)
1665 Nasarus 71
		{
72
73
 
74
			con_set_flags(flags|0x100);
75
		else con_set_flags(flags);
76
77
 
78
		}
79
	if ( 0 != result )
80
		{
81
		con_set_flags(flags);
82
		printf ("\n\r");
83
		return TRUE;
84
		}
85
86
 
87
con_set_flags(flags);
88
printf ("\n\r");
89
return TRUE;
90
}
91
>