0000 	20h 	F PI             	; 
0001 	67h 	RM 7             	;g
0002 	13h 	/                	;
0003 	1Ch 	F SIN            	;
0004 	68h 	RM 8             	;h
0005 	12h 	*                	;
0006 	02h 	2                	;
0007 	12h 	*                	;
0008 	49h 	M 9              	;I
0009 	01h 	1                	;
0010 	43h 	M 3              	;C
0011 	67h 	RM 7             	;g
0012 	02h 	2                	;
0013 	13h 	/                	;
0014 	44h 	M 4              	;D
0015 	35h 	K FRAC           	;5
0016 	5Eh 	F X=0 33         	;^
0017 	33h 	                	;3
0018 	0Fh 	F ANS            	;
0019 	47h 	M 7              	;G
0020 	02h 	2                	;
0021 	13h 	/                	;
0022 	35h 	K FRAC           	;5
0023 	57h 	F X!=0 18        	;W
0024 	18h 	                	;
0025 	01h 	1                	;
0026 	0Eh 	ENT              	;
0027 	02h 	2                	;
0028 	23h 	F 1/X            	;#
0029 	11h 	-                	;
0030 	64h 	RM 4             	;d
0031 	12h 	*                	;
0032 	44h 	M 4              	;D
0033 	67h 	RM 7             	;g
0034 	21h 	F SQRT           	;!
0035 	46h 	M 6              	;F
0036 	66h 	RM 6             	;f
0037 	63h 	RM 3             	;c
0038 	02h 	2                	;
0039 	10h 	+                	;
0040 	43h 	M 3              	;C
0041 	11h 	-                	;
0042 	59h 	F X>=0 61        	;Y
0043 	61h 	                	;a
0044 	67h 	RM 7             	;g
0045 	63h 	RM 3             	;c
0046 	13h 	/                	;
0047 	35h 	K FRAC           	;5
0048 	5Eh 	F X=0 36         	;^
0049 	36h 	                	;6
0050 	0Fh 	F ANS            	;
0051 	47h 	M 7              	;G
0052 	63h 	RM 3             	;c
0053 	13h 	/                	;
0054 	35h 	K FRAC           	;5
0055 	57h 	F X!=0 50        	;W
0056 	50h 	                	;P
0057 	01h 	1                	;
0058 	63h 	RM 3             	;c
0059 	51h 	GOTO 28          	;Q
0060 	28h 	                	;(
0061 	01h 	1                	;
0062 	67h 	RM 7             	;g
0063 	23h 	F 1/X            	;#
0064 	11h 	-                	;
0065 	57h 	F X!=0 70        	;W
0066 	70h 	                	;p
0067 	64h 	RM 4             	;d
0068 	12h 	*                	;
0069 	44h 	M 4              	;D
0070 	64h 	RM 4             	;d
0071 	09h 	9                	;	
0072 	23h 	F 1/X            	;#
0073 	10h 	+                	;
0074 	34h 	K INT            	;4
0075 	44h 	M 4              	;D
0076 	50h 	R/S              	;P
;   ADD 9909 
;   XOR 139 
