OpenVMS Source-Code Demos

basic_calling_c_demo

$	set on
$	say :== write sys$output
$	say "-i-script: ",f$environment("PROCEDURE")
$	if p1 .eqs. ""
$	then
$		say "-e-no P1 provided"
$		dir BASIC_CALLING_C_DEMO*.bas/col=1
$		say "-i-exiting script"
$		exit
$	else
$	say "-i-param:",p1
$	endif
$	say "-i-compiling BAS"
$ 	bas	BASIC_CALLING_C_DEMO'p1'
$	say "-i-compiling C"
$	cc	BASIC_CALLING_C_DEMO'p1'_PART2
$	say "-i-linking"
$ 	link	BASIC_CALLING_C_DEMO'p1'		,	-
		BASIC_CALLING_C_DEMO'p1'_PART2
$ say "-i-now run BASIC_CALLING_C_DEMO",p1

left hand Back to OpenVMS
left hand Back to OpenVMS Demo Index
home Back to Home
Neil Rieck
Kitchener - Waterloo - Cambridge, Ontario, Canada.