"SEND" PROGRAM LISTING
			----------------------
	THIS IS A 'TYPED ON A TERMINAL LISTING' OF THE HP9820A CALCULATOR
	PROGRAM THAT RUNS WITH HPXFR.TSK.  SINCE SOME OF THE CALCULATOR
	KEYS ARE NOT AVAILABLE ON THE TERMINAL, THE FOLLOWING CONVENTIONS
	ARE USED IN THIS LISTING:
	
	HP9820A KEY			REPRESENTED BY:
	-----------			---------------
 
	GAZINTA (RIGHT ARROW)             =
	GREATER THAN			 .GT.
	NOT EQUAL			 .NE.
	GREATER THAN OR EQUAL TO	 .GE.
	LESS THAN OR EQUAL TO		 .LE.
	RAISE TO EXPONENT		  **
	LAZY T (LINE TERMINATOR)	  #
 
	
	0:	TBL 4;TBL 5; TBL 6#
	1:	ENT "NUMBER OF CARDS",C#
	2:	WTB 15,83;WTB 15,13#
	3:	DSP "S SENT"#
	4:	"HEX";RDB 15=B#
	5:	IF B .NE. 71;DSP "GO????";STP#
	6:	DSP "GO RECEIVED"#
	7:	"LOD";GTO 8;LOD#

	8:	FMT 4FLT 16.9#
	9:	0=A;4=B#
	10:	"WR";WRT 15,RA,R(A+1),R(A+2),R(A+3)#
	11:	DSP RA#
	12:	"RD";RDB 15=Y#
	13:	IF Y .NE. 71;DSP "GO??";STP#
	14:	B+4=B;A+4=A#
	15:	IF B .LE. 84;GTO "WR"#
	16:	1+X=X#
	17:	IF C .NE. X;GTO "LOD"#
	18:	WTB 15, 90;WTB 15, 13#
	19:	55**5=Z#
	20:	RDB 15=X;IF X .NE.68;DSP "WAITING FOR EOT"#
	21:	DSP "DONE RECEIVED"#
	22:	STP#
	23:	END#
 
 
	THE EXPONENTIATION AT LINE 19 CAUSES A DELAY BETWEEN THE INTERFACE
	WRITE AND READ COMMANDS.  WITHOUT THIS DELAY, EXTRA BITS ARE SOMETIMES
	ADDED TO THE DATA.
 
	THE NUMBER OF CARDS ENTERED IS REALLY THE NUMBER OF SIDES.