Changes for GOGOL:

page 29:  
PRSL:	ILDB	FF,A		;CHARACTER
	ADDI	FF,(C)		;ADJUSTMENT
;;=C3=	LE03 28-JUN-74	HANDLE FUNNY CHARACTERS BETTER FOR THE EXPO WORLD.
NOSTANFO <
	CAIN	FF,30		;IS IT UNDER-BAR?
	MOVEI	FF,41		; YES, REPLACE WITH !
	CAIN	FF,33		;IS IT NOT-EQUALS (ALT-MODE!)
	MOVEI	FF,43		; PUT IN A # (OH WELL);
>;NOSTANFO
;;
	XCT	D		;PUSH TO ERROR STRING OR TYPE IT.



page 31:
	 JRST	 GTIT1		; YES
;;=C6= LDE 28-JUN-74	
	CAIL	B,"a"		;IS IT LOWER-CASE?
	TRZ	B,40		; YES - MAKE IT UPPER-CASE
;;
	SUBI	B,40


page 32:
		  0 ↔ 0 ↔ 0 ↔ 0 ]
;;=C2=  LE03 28-JUN-74	LET SOS EDIT LAST EDITED FILE.
;;	SKIPE	14	;DID HE TYPE "E FILE"?
;;=C2=
	HRLI	P,1	;YES