HP 50g Graphing, 48gII Graphing manual Verifying Program Arguments, 1000 `23 J %NBASE%

		Program:	Comments:
		UNTIL 'm' EVAL 0 ==	Repeat the DO...UNTIL loop until m =
			0 (i.e. all decimal value have been
			accounted for).
		END	Is flag 1 set? Clear the flag after the test.
		IF 1 FS?C
		THEN "0" +	Then add a placeholding zero to the
			result string.
		WHILE i 'k' EVAL	Begin WHILE...REPEAT loop to
		0 ‹	determine if additional placeholding
			zeros are needed.
			Loop repeats as long as i≠k.
		REPEAT "0" +	Add an additional placeholding zero and
		1 'k' STO+	increment k before repeating the test
			clause.
		END	End the WHILE...REPEAT...END
		END	loop, the IF...THEN...END structure,
		»	and the inner local variable structure.
		" base" b +	End the outermost
		n SWAP + →TAG	IF...THEN...ELSE...END structure and
			create the label string and tag the result
			string using the original arguments.
		f STOF	Restore original flag settings.
		»
		»
		`OnBASE K	Stores the program in nBASE.
Checksum: # 54850d
Bytes:	433

Example: Convert 100010 to base 23.

1000 `23 J %NBASE%

Verifying Program Arguments

The two utility programs in this section verify that the argument to a program is the correct object type. NAMES verifies that a list argument contains exactly two names.

VFY verifies that the argument is either a name or a list containing exactly two names. It calls NAMES if the argument is a list.

You can modify these utilities to verify other object types and object content.

224 RPL Programming Examples