/* @(#)rpc.h 1.1 92/07/30 SMI */
/*
* rpc.h, Just includes the billions of rpc header files necessary to
* do remote procedure calling.
*
* Copyright (C) 1984, Sun Microsystems, Inc.
*/
#ifndef
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cs_Audit_Post]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[cs_Audit_Post]
GO
if exists (select * from
unit CmdNamer;
interface
{ Registers all the built in Turbo Vision commands with the command
namer }
procedure BuiltInCommandNames;
{ Returns the name of the given command }
function Com
program pp;
var a, b, c, d, e, f, g, h:integer;
procedure proc();
begin
call write(1);
end;
begin
a :=0;
b :=1;
c :=2;
d:=3;
e:=4;
f:=5;
g:=6;
h:=7;
c := a+b;
call
program pp;
var n,p:integer;
procedure p1(n:integer; var p:integer);
begin
p:=0;
repeat
begin
n:=n+1;
p:=p+1;
end
until(n>=10)
end;
begin
call read(n);
c
program pp;
var n,p:integer;
procedure p1(n:integer; var p:integer);
begin
p:=0;
repeat
begin
n:=n+1;
p:=p+1;
end
until(n+1)
end;
begin
call read(n);
cal
program pp;
var n,p:integer;
var a:array [1..8] of integer;
procedure p1(n:integer; var p:integer);
begin
case n of
1: begin p:=n; p:=p+5; end;
2: begin p:=n; p:=p+5; end;
