82 lines
1.0 KiB
C
82 lines
1.0 KiB
C
# include "form.h"
|
|
|
|
int MMline = 1;
|
|
int MMcol = 1;
|
|
int MM_cs_cm;
|
|
|
|
# ifndef SIGN_EXT
|
|
# include "../gutil/i1toi2.c"
|
|
# endif
|
|
|
|
# define AApmove MMpmove
|
|
# include "../gutil/pmove.c"
|
|
|
|
# define AAsmove MMsmove
|
|
# include "../gutil/smove.c"
|
|
|
|
|
|
MMclr_line(line, column)
|
|
register int line;
|
|
register int column;
|
|
{
|
|
MM_pos(line, column);
|
|
MM_pts(MM_cs[CS_CE]);
|
|
|
|
return (1);
|
|
}
|
|
|
|
|
|
MMclr_screen(line, column)
|
|
register int line;
|
|
register int column;
|
|
{
|
|
MM_pos(line, column);
|
|
MM_pts(MM_cs[CS_CD]);
|
|
|
|
return (1);
|
|
}
|
|
|
|
|
|
MM_pos(line, column)
|
|
register int line;
|
|
register int column;
|
|
{
|
|
register char *p;
|
|
char buf[21];
|
|
if (MM_cs_cm)
|
|
{
|
|
line += MM_cs_cm;
|
|
column += MM_cs_cm;
|
|
}
|
|
sprintf(p = buf, MM_cs[CS_CM], line, column);
|
|
MM_pts(p);
|
|
|
|
return (1);
|
|
}
|
|
|
|
|
|
MM_abs_pos(line, column)
|
|
register int line;
|
|
register int column;
|
|
{
|
|
MMline = line;
|
|
MMcol = column;
|
|
|
|
return (MM_repos());
|
|
}
|
|
|
|
|
|
MM_rel_pos(column)
|
|
register int column;
|
|
{
|
|
MMcol += column;
|
|
|
|
return (MM_repos());
|
|
}
|
|
|
|
|
|
MM_repos()
|
|
{
|
|
return (MM_pos(MMline, MMcol));
|
|
}
|