0000 	0Dh 	CX               	;

0001 	44h 	M 4              	;D
0002 	01h 	1                	;
0003 	00h 	0                	;
0004 	47h 	M 7              	;G
0005 	01h 	1                	;
0006 	05h 	5                	;
0007 	53h 	GSB 78           	;S
0008 	78h 	                	;x
0009 	49h 	M 9              	;I
0010 	02h 	2                	;
0011 	15h 	F 10^X           	;
0012 	53h 	GSB 78           	;S
0013 	78h 	                	;x
0014 	48h 	M 8              	;H
0015 	05h 	5                	;
0016 	15h 	F 10^X           	;
0017 	12h 	*                	;
0018 	69h 	RM 9             	;i
0019 	10h 	+                	;
0020 	50h 	R/S              	;P
0021 	45h 	M 5              	;E
0022 	67h 	RM 7             	;g
0023 	01h 	1                	;
0024 	11h 	-                	;
0025 	47h 	M 7              	;G
0026 	57h 	F X!=0 91        	;W
0027 	91h 	                	;
0028 	69h 	RM 9             	;i
0029 	07h 	7                	;
0030 	05h 	5                	;
0031 	13h 	/                	;
0032 	65h 	RM 5             	;e
0033 	1Ch 	F SIN            	;
0034 	13h 	/                	;
0035 	68h 	RM 8             	;h
0036 	1Eh 	F TG             	;
0037 	23h 	F 1/X            	;#
0038 	10h 	+                	;
0039 	23h 	F 1/X            	;#
0040 	1Bh 	F ARCTG          	;
0041 	34h 	K INT            	;4
0042 	5Ch 	F X<0 48         	;\
0043 	48h 	                	;H
0044 	01h 	1                	;
0045 	08h 	8                	;
0046 	00h 	0                	;
0047 	10h 	+                	;
0048 	48h 	M 8              	;H
0049 	06h 	6                	;
0050 	00h 	0                	;
0051 	11h 	-                	;
0052 	59h 	F X>=0 74        	;Y
0053 	74h 	                	;t
0054 	68h 	RM 8             	;h
0055 	65h 	RM 5             	;e
0056 	11h 	-                	;
0057 	31h 	K ABS            	;1
0058 	02h 	2                	;
0059 	11h 	-                	;
0060 	59h 	F X>=0 65        	;Y
0061 	65h 	                	;e
0062 	68h 	RM 8             	;h
0063 	51h 	GOTO 20          	;Q
0064 	20h 	                	; 
0065 	D4h 	K RM 4           	; 
0066 	05h 	5                	;
0067 	00h 	0                	;
0068 	0Eh 	ENT              	;
0069 	09h 	9                	;	
0070 	13h 	/                	;
0071 	50h 	R/S              	;P
0072 	51h 	GOTO 05          	;Q
0073 	05h 	                	;
0074 	01h 	1                	;
0075 	00h 	0                	;
0076 	51h 	GOTO 68          	;Q
0077 	68h 	                	;h
0078 	60h 	RM 0             	;`
0079 	20h 	F PI             	; 
0080 	10h 	+                	;
0081 	22h 	F X^2            	;"
0082 	22h 	F X^2            	;"
0083 	35h 	K FRAC           	;5
0084 	40h 	M 0              	;@
0085 	02h 	2                	;
0086 	00h 	0                	;
0087 	12h 	*                	;
0088 	34h 	K INT            	;4
0089 	10h 	+                	;
0090 	52h 	RTN              	;R
0091 	64h 	RM 4             	;d
0092 	50h 	R/S              	;P
0093 	51h 	GOTO 00          	;Q
0094 	00h 	                	;
0095 	00h 	0                	;
0096 	00h 	0                	;
0097 	00h 	0                	;
;   ADD 5121 
;   XOR 101 
