-
Notifications
You must be signed in to change notification settings - Fork 1
/
CLRLHMN.C
48 lines (44 loc) · 2.02 KB
/
CLRLHMN.C
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
#include "zedit.h"
void clrlhmn(
register union both_scr *posptr,
int line_no)
/**********************************************************************/
/* */
/* Clear a screen line to blank/null. */
/* */
/* Hercules mono-graphic screen: */
/* The screen size is 720h X 348v, text is 80 X 25. */
/* The screen has four fields (0:3) of rows with each having a range */
/* of 0:86. Adjacent rows from the same field are displayed four */
/* lines apart on the screen. */
/* The character patterns are 7 X 9 (columns X rows) and are framed */
/* by a 9 X (12 + 2) box (the 2 does not occur on row 25). */
/* */
/**********************************************************************/
/* */
/* This is ZEDIT source material. */
/* */
/* ZEDIT Source Materials are intellectual property */
/* (c) Copyright 1987,2001 by Clyde Thomas Zuber. */
/* */
/**********************************************************************/
{
register int tab;
register int f; /* field */
register int r; /* range */
register int d; /* down */
int start_field;
start_field = (line_no * 14) % 4;
for (r = (line_no * 14) / 4; ; ++r)
{
for (f = start_field; f < 4; ++f)
{
d = (r * 4 + f) % 14;
for (tab = 0; tab < 90; ++tab)
posptr -> sa.pos[f].scr[r] [tab] = 0x00u;
if (d == 13)
return;
} /* end for */
start_field = 0;
} /* end for */
} /* end clrlhmn */