20000	!
	!	<< FNEBCASC - ASCII <-> EBCIDIC >>
	!	   X1$ is target string
	!	   X0%=1 EBC->ASC; =2 ASC->EBC
	!
20010	DEF FNEBCASC$(X1$,X0%)
	!
20010	DIM E%(256%),E1%(128%_
	\ EXTEND
	!
20030	E%(0%)=256%\ E1%(0%)=128%
	\ RESTORE
	\	IF LEN(X8$)=0% THEN READ E%(I9%) FOR I9%=1% TO 256%
	\			    READ E1%(I9%) FOR I9%=1% TO 128%
	\	CHANGE E% TO X8$
	\	CHANGE E1% TO X9$
20040	FNEBCASC$=XLATE(X1$,X8$) IF X0%=1%
	\ FNEBCASC$=XLATE(X1$,X9$) IF X0%=2%
20050	FNEND
20060 !
20070	!Conversion function to translate ebcidic to ascii
	!
20080 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
20090 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	    32,0,0,0,0,0,0,0,0,0,0,46,60,40,43,124,
	    38,0,0,0,0,0,0,0,0,0,33,36,42,41,59,94
20100 DATA 45,47,0,0,0,0,0,0,0,0,0,44,37,95,62,63,
	    0,0,0,0,0,0,0,0,0,96,58,35,64,39,61,34,
	    0,97,98,99,100,101,102,103,104,105,0,0,0,0,0,0
20110 DATA 0,106,107,108,109,110,111,112,113,114,0,0,0,0,0,0,
	    0,126,115,116,117,118,119,120,121,122,0,0,0,0,0,0,
	    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
20120 DATA 123,65,66,67,68,69,70,71,72,73,0,0,0,0,0,0,
	    125,74,75,76,77,78,79,80,81,82,0,0,0,0,0,0,
	    92,0,83,84,85,86,87,88,89,90,0,0,0,0,0,0
20130 DATA 48,49,50,51,52,53,54,55,56,57,0,0,0,0,0,0
20140 !
20150 !
      ! Data to convert ascii to ebcidic
      !
20160 DATA 0,255,255,255,255,255,255,255,255
20170 DATA 255,255,255,255,255,255,255,255,255,255
20180 DATA 255,255,255,255,255,255,255,255,255,255
20190 DATA 255,255,255,64,90,127,123,91,108,80
20200 DATA 125,77,93,92,78,107,96,75,97,240
20210 DATA 241,242,243,244,245,246,247,248,249,122
20220 DATA 94,76,126,110,111,124,193,194,195,196
20230 DATA 197,198,199,200,201,209,210,211,212,213
20240 DATA 214,215,216,217,226,227,228,229,230,231
20250 DATA 232,233,255,224,255,95,109,121,129,130
20260 DATA 131,132,133,134,135,136,137,145,146,147
20270 DATA 148,149,150,151,152,153,162,163,164,165
20280 DATA 166,167,168,169,192,79,208,161,255
20290 !