perm filename PARSE.PRT[CMU,AIL] blob sn#107781 filedate 1974-06-28 generic text, type T, neo UTF8
PARSE, page 22:

FDIPB:	
;;=C3=	LE03 28-JUN-74	HANDLE FUNNY CHARACTERS BETTER FOR THE EXPO WORLD.
NOSTANFO <	; SHOULD REALLY BE GENERALIZED TO HANDLE MORE CHARACTERS.
	CAIN	B,30		;IS IT UNDER-BAR?
	MOVEI	B,41		; YES, REPLACE WITH !
	CAIN	B,33		;IS IT NOT-EQUALS (ALT-MODE!)
	MOVEI	B,43		; PUT IN A # (OH WELL);
>;NOSTANFO
;;=C3=
NOTENX<
	IDPB	B,TEMP		;NO -- STORE THIS ONE