Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-86 - tools/crc/ind/indsym.cmd
There are no other files named indsym.cmd in the archive.
;	test symbol creation, etc.
;	Startup parameters: "'P1'","'P2'","'P3'"
;			"'P4'","'P5'","'P6'"
;			"'P7'","'P8'","'P9'"
.asksym:	.ASKS	symtyp	What sort of symbol do you want
.IF SYMTYP = "real" .goto tflt
.if symtyp = "integer" .goto tnum
.if symtyp = "file" .goto tfil
.if symtyp = "logical" .goto tlog
.if symtyp = "string" .goto tstr
.if symtyp = "system" .goto tsys
.if symtyp = "debug" .goto debug
;	Unknown symbol type
.goto asksym
.debug: .status
	.delay 2000
	.goto asksym
.tflt:	.askr	flttmp	Enter a floating point number:
.tflt1: ;	'flttmp' was what you entered
.setr fltx flttmp*2
;	'fltx' is it times 2
.setr fltx flttmp/2
;	'fltx' is half of it
.setr fltx flttmp+2
;	'fltx' plus 2
.setr fltx flttmp-2
;	'fltx' minus 2
.setn numx flttmp*2
;	'numx' rounded times 2
.ask again Again ?
	.iff again .goto asksym
.ask frange Enter ranges this time ?
	.iff frange .goto tflt
.askr fltlow Enter lower limit
.askr flthi Enter high limit
.askr fltdef Enter default
.askr [fltlow:flthi:fltdef] flttmp Enter a number
.goto tflt1