koreth%panarthea.ebay@sun.com (Steven Grimm) (07/21/89)
Submitted-by: uunet!unido!sbsvax!roeder (Edgar Roeder)
Posting-number: Volume 2, Issue 59
Archive-name: gccgem/part04
#!/bin/sh
# this is part 4 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file vdi5_101.c continued
#
CurArch=4
if test ! -r s2_seq_.tmp
then echo "Please unpack part 1 first!"
exit 1; fi
( read Scheck
if test "$Scheck" != $CurArch
then echo "Please unpack part $Scheck next!"
exit 1;
else exit 0; fi
) < s2_seq_.tmp || exit 1
echo "x - Continuing file vdi5_101.c"
sed 's/^X//' << 'SHAR_EOF' >> vdi5_101.c
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_offset( WORD handle, WORD offset)
X{
X contrl[5] = 101;
X vdi_macro_d(5, handle, offset);
X}
SHAR_EOF
echo "File vdi5_101.c is complete"
chmod 0644 vdi5_101.c || echo "restore of vdi5_101.c fails"
echo "x - extracting vdi5_102.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_102.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_fontinit( WORD handle, WORD fh_high, WORD fh_low)
X{
X intin[0] = fh_high;
X intin[1] = fh_low;
X contrl[0] = 5;
X contrl[1] = 0;
X contrl[3] = 2;
X contrl[5] = 102;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi5_102.c || echo "restore of vdi5_102.c fails"
echo "x - extracting vdi5_11.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_11.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_curaddress( WORD handle, WORD row, WORD column)
X{
X intin[0] = row;
X intin[1] = column;
X contrl[0] = 5;
X contrl[1] = 0;
X contrl[3] = 2;
X contrl[5] = 11;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi5_11.c || echo "restore of vdi5_11.c fails"
echo "x - extracting vdi5_12.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_12.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_curtext( WORD handle, char *string)
X{
X WORD tmp = 0;
X while (intin[tmp++] = *string++);
X contrl[0] = 5;
X contrl[1] = 0;
X contrl[3] = tmp - 1; /* ohne nullbyte ? */
X contrl[5] = 12;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi5_12.c || echo "restore of vdi5_12.c fails"
echo "x - extracting vdi5_13.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_13.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_rvon( WORD handle)
X{
X contrl[5] = 13;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_13.c || echo "restore of vdi5_13.c fails"
echo "x - extracting vdi5_14.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_14.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_rvoff( WORD handle)
X{
X contrl[5] = 14;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_14.c || echo "restore of vdi5_14.c fails"
echo "x - extracting vdi5_15.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_15.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vq_curaddress( WORD handle, WORD *row, WORD *column)
X{
X contrl[5] = 15;
X vdi_macro_a(5, handle);
X *row = intout[0];
X *column = intout[1];
X}
X
X
SHAR_EOF
chmod 0644 vdi5_15.c || echo "restore of vdi5_15.c fails"
echo "x - extracting vdi5_16.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_16.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vq_tabstatus( WORD handle)
X{
X contrl[5] = 16;
X vdi_macro_a(5, handle);
X return intout[0];
X}
X
X
SHAR_EOF
chmod 0644 vdi5_16.c || echo "restore of vdi5_16.c fails"
echo "x - extracting vdi5_17.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_17.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_hardcopy( WORD handle)
X{
X contrl[5] = 17;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_17.c || echo "restore of vdi5_17.c fails"
echo "x - extracting vdi5_18.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_18.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_dspcur( WORD handle, WORD x, WORD y)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X contrl[0] = 5;
X contrl[1] = 1;
X contrl[3] = 0;
X contrl[5] = 18;
X contrl[6] = handle;
X VDI_CALL();
X}
X
X
SHAR_EOF
chmod 0644 vdi5_18.c || echo "restore of vdi5_18.c fails"
echo "x - extracting vdi5_19.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_19.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_rmcur( WORD handle)
X{
X contrl[5] = 19;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_19.c || echo "restore of vdi5_19.c fails"
echo "x - extracting vdi5_2.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_2.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_exit_cur( WORD handle)
X{
X contrl[5] = 2;
X vdi_macro_a(5, handle);
X}
X
SHAR_EOF
chmod 0644 vdi5_2.c || echo "restore of vdi5_2.c fails"
echo "x - extracting vdi5_20.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_20.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_form_adv( WORD handle)
X{
X contrl[5] = 20;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_20.c || echo "restore of vdi5_20.c fails"
echo "x - extracting vdi5_21.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_21.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_output_window( WORD handle, WORD xyarray[])
X{
X pblock[2] = xyarray;
X contrl[0] = 5;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[5] = 21;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi5_21.c || echo "restore of vdi5_21.c fails"
echo "x - extracting vdi5_22.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_22.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_clear_disp( WORD handle)
X{
X contrl[5] = 22;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_22.c || echo "restore of vdi5_22.c fails"
echo "x - extracting vdi5_23.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_23.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_bit_image( WORD handle, char *filename, WORD aspect, WORD scaling, WORD num_pts, WORD xyarray[])
X{
X int i;
X for(i=0; i<4; i++) ptsin[i] = xyarray[i];
X intin[0] = aspect;
X intin[1] = scaling;
X i = 2;
X while(intin[i++] = *filename++);
X contrl[0] = 5;
X contrl[1] = num_pts;
X contrl[3] = --i;
X contrl[5] = 23;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi5_23.c || echo "restore of vdi5_23.c fails"
echo "x - extracting vdi5_3.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_3.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_enter_cur( WORD handle)
X{
X contrl[5] = 3;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_3.c || echo "restore of vdi5_3.c fails"
echo "x - extracting vdi5_4.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_4.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_curup( WORD handle)
X{
X contrl[5] = 4;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_4.c || echo "restore of vdi5_4.c fails"
echo "x - extracting vdi5_5.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_5.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_curdown( WORD handle)
X{
X contrl[5] = 5;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_5.c || echo "restore of vdi5_5.c fails"
echo "x - extracting vdi5_6.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_6.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_curright( WORD handle)
X{
X contrl[5] = 6;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_6.c || echo "restore of vdi5_6.c fails"
echo "x - extracting vdi5_7.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_7.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_curleft( WORD handle)
X{
X contrl[5] = 7;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_7.c || echo "restore of vdi5_7.c fails"
echo "x - extracting vdi5_8.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_8.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_curhome( WORD handle)
X{
X contrl[5] = 8;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_8.c || echo "restore of vdi5_8.c fails"
echo "x - extracting vdi5_9.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_9.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_eeos( WORD handle)
X{
X contrl[5] = 9;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_9.c || echo "restore of vdi5_9.c fails"
echo "x - extracting vdi5_98.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_98.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_meta_extents( WORD handle, WORD min_x, WORD min_y, WORD max_x, WORD max_y)
X{
X ptsin[0] = min_x;
X ptsin[1] = min_y;
X ptsin[2] = max_x;
X ptsin[3] = max_y;
X contrl[0] = 5;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[5] = 98;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi5_98.c || echo "restore of vdi5_98.c fails"
echo "x - extracting vdi5_99.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_99.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_write_meta( WORD handle, WORD num_intin, WORD a_intin[], WORD num_ptsin, WORD a_ptsin[])
X{
X pblock[1] = a_intin;
X pblock[2] = a_ptsin;
X contrl[0] = 5;
X contrl[1] = num_ptsin;
X contrl[3] = num_intin;
X contrl[5] = 99;
X contrl[6] = handle;
X VDI_CALL();
X
X}
SHAR_EOF
chmod 0644 vdi5_99.c || echo "restore of vdi5_99.c fails"
echo "x - extracting vdi_1.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_1.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
Xvoid v_opnwk(WORD work_in[], WORD * handle, WORD work_out[])
X{
X pblock[0] = contrl;
X pblock[1] = work_in;
X pblock[2] = ptsin;
X pblock[3] = work_out;
X pblock[4] = work_out+45;
X
X contrl[0] = 1;
X contrl[1] = 0;
X contrl[3] = 11;
X
X VDI_CALL();
X
X *handle = contrl[6];
X pblock[1] = intin; /* standardbelegung wieder herstellen */
X pblock[3] = intout;
X pblock[4] = ptsout;
X}
X
SHAR_EOF
chmod 0644 vdi_1.c || echo "restore of vdi_1.c fails"
echo "x - extracting vdi_10.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_10.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_cellarray(WORD handle, WORD pxyarray[], WORD row_length, WORD el_used, WORD num_rows, WORD wrt_mode, WORD colarray[])
X{
X pblock[1] = colarray;
X pblock[2] = pxyarray;
X contrl[0] = 10;
X contrl[1] = 2;
X contrl[3] = row_length * num_rows;
X contrl[6] = handle;
X contrl[7] = row_length;
X contrl[8] = el_used;
X contrl[9] = num_rows;
X contrl[10]= wrt_mode;
X VDI_CALL();
X pblock[1] = intin;
X pblock[2] = intout;
X}
SHAR_EOF
chmod 0644 vdi_10.c || echo "restore of vdi_10.c fails"
echo "x - extracting vdi_100.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_100.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
Xvoid v_opnvwk(WORD work_in[], WORD * handle, WORD work_out[])
X{
X pblock[0] = contrl;
X pblock[1] = work_in;
X pblock[2] = ptsin;
X pblock[3] = work_out;
X pblock[4] = work_out+45;
X
X contrl[0] = 100;
X contrl[1] = 0;
X contrl[3] = 11;
X contrl[6] = *handle;
X
X VDI_CALL();
X
X *handle = contrl[6];
X pblock[1] = intin; /* standardbelegung wieder herstellen */
X pblock[3] = intout;
X pblock[4] = ptsout;
X}
X
SHAR_EOF
chmod 0644 vdi_100.c || echo "restore of vdi_100.c fails"
echo "x - extracting vdi_101.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_101.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_clsvwk(WORD handle) { vdi_macro_a(101, handle); }
SHAR_EOF
chmod 0644 vdi_101.c || echo "restore of vdi_101.c fails"
echo "x - extracting vdi_102.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_102.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vq_extnd(WORD handle, WORD owflag, WORD work_out[])
X{
X pblock[3] = work_out;
X pblock[4] = work_out+45;
X intin[0] = owflag;
X contrl[0] = 102;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X pblock[3] = intout;
X pblock[4] = ptsout;
X}
SHAR_EOF
chmod 0644 vdi_102.c || echo "restore of vdi_102.c fails"
echo "x - extracting vdi_103.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_103.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_contourfill(WORD handle, WORD x, WORD y, WORD index)
X{
X intin[0] = index;
X ptsin[0] = x;
X ptsin[1] = y;
X contrl[0] = 103;
X contrl[1] = 1;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X}
X
SHAR_EOF
chmod 0644 vdi_103.c || echo "restore of vdi_103.c fails"
echo "x - extracting vdi_104.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_104.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vsf_perimeter(WORD handle, WORD per_vis)
X{ return vdi_macro_b(104, handle, per_vis); }
X
SHAR_EOF
chmod 0644 vdi_104.c || echo "restore of vdi_104.c fails"
echo "x - extracting vdi_105.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_105.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_get_pixel(WORD handle, WORD x, WORD y, WORD *pel, WORD *index)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X contrl[0] = 105;
X contrl[1] = 1;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *pel = intout[0];
X *index = intout[1];
X}
SHAR_EOF
chmod 0644 vdi_105.c || echo "restore of vdi_105.c fails"
echo "x - extracting vdi_106.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_106.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vst_effects(WORD handle, WORD effect)
X{ return vdi_macro_b(106, handle, effect); }
SHAR_EOF
chmod 0644 vdi_106.c || echo "restore of vdi_106.c fails"
echo "x - extracting vdi_107.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_107.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vst_point(WORD handle, WORD point, WORD *char_width, WORD *char_height, WORD *cell_width, WORD *cell_height)
X{
X intin[0] = point;
X contrl[0] = 107;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X *char_width = ptsout[0];
X *char_height = ptsout[1];
X *cell_width = ptsout[2];
X *cell_height = ptsout[3];
X return intout[0];
X}
SHAR_EOF
chmod 0644 vdi_107.c || echo "restore of vdi_107.c fails"
echo "x - extracting vdi_108.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_108.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vsl_ends(WORD handle, WORD beg_style, WORD end_style)
X{
X intin[0] = beg_style;
X intin[1] = end_style;
X contrl[0] = 108;
X contrl[1] = 0;
X contrl[3] = 2;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_108.c || echo "restore of vdi_108.c fails"
echo "x - extracting vdi_109.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_109.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vro_cpyfm(WORD handle, WORD wr_mode, WORD pxyarray[], FDB *psrcMFDB, FDB *pdesMFDB)
X{
X LONG *tmp;
X intin[0] = wr_mode;
X pblock[2] = pxyarray;
X tmp = (LONG *) &contrl[7];
X *tmp++ = (LONG) psrcMFDB;
X *tmp = (LONG) pdesMFDB;
X contrl[0] = 109;
X contrl[1] = 4;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi_109.c || echo "restore of vdi_109.c fails"
echo "x - extracting vdi_110.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_110.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
SHAR_EOF
echo "End of part 4"
echo "File vdi_110.c is continued in part 5"
echo "5" > s2_seq_.tmp
exit 0