0000 	6Ah 	RM A             	;j
0001 	53h 	GSB 73           	;S
0002 	73h 	                	;s
0003 	6Bh 	RM B             	;k
0004 	53h 	GSB 73           	;S
0005 	73h 	                	;s
0006 	02h 	2                	;
0007 	15h 	F 10^X           	;
0008 	13h 	/                	;
0009 	10h 	+                	;
0010 	4Dh 	M D              	;M
0011 	53h 	GSB 81           	;S
0012 	81h 	                	;
0013 	06h 	6                	;
0014 	15h 	F 10^X           	;
0015 	13h 	/                	;
0016 	6Dh 	RM D             	;m
0017 	10h 	+                	;
0018 	50h 	R/S              	;P
0019 	0Eh 	ENT              	;
0020 	09h 	9                	;	
0021 	00h 	0                	;
0022 	14h 	<->              	;
0023 	11h 	-                	;
0024 	1Ch 	F SIN            	;
0025 	0Fh 	F ANS            	;
0026 	1Dh 	F COS            	;
0027 	61h 	RM 1             	;a
0028 	12h 	*                	;
0029 	6Ah 	RM A             	;j
0030 	10h 	+                	;
0031 	4Ah 	M A              	;J
0032 	22h 	F X^2            	;"
0033 	14h 	<->              	;
0034 	61h 	RM 1             	;a
0035 	12h 	*                	;
0036 	6Bh 	RM B             	;k
0037 	10h 	+                	;
0038 	4Bh 	M B              	;K
0039 	22h 	F X^2            	;"
0040 	10h 	+                	;
0041 	09h 	9                	;	
0042 	42h 	M 2              	;B
0043 	11h 	-                	;
0044 	59h 	F X>=0 71        	;Y
0045 	71h 	                	;q
0046 	03h 	3                	;
0047 	40h 	M 0              	;@
0048 	6Ah 	RM A             	;j
0049 	D2h 	K RM 2           	; 
0050 	11h 	-                	;
0051 	22h 	F X^2            	;"
0052 	6Bh 	RM B             	;k
0053 	D2h 	K RM 2           	; 
0054 	11h 	-                	;
0055 	22h 	F X^2            	;"
0056 	10h 	+                	;
0057 	21h 	F SQRT           	;!
0058 	4Dh 	M D              	;M
0059 	09h 	9                	;	
0060 	11h 	-                	;
0061 	5Ch 	F X<0 68         	;\
0062 	68h 	                	;h
0063 	5Bh 	F L1 66          	;[
0064 	66h 	                	;f
0065 	26h 	K M->D           	;&
0066 	6Dh 	RM D             	;m
0067 	50h 	R/S              	;P
0068 	5Dh 	F L0 48          	;]
0069 	48h 	                	;H
0070 	80h 	K GOTO 0         	;
0071 	20h 	F PI             	; 
0072 	50h 	R/S              	;P
0073 	22h 	F X^2            	;"
0074 	21h 	F SQRT           	;!
0075 	07h 	7                	;
0076 	15h 	F 10^X           	;
0077 	10h 	+                	;
0078 	0Fh 	F ANS            	;
0079 	11h 	-                	;
0080 	52h 	RTN              	;R
0081 	6Ah 	RM A             	;j
0082 	5Ch 	F X<0 91         	;\
0083 	91h 	                	;
0084 	6Bh 	RM B             	;k
0085 	5Ch 	F X<0 89         	;\
0086 	89h 	                	;
0087 	03h 	3                	;
0088 	52h 	RTN              	;R
0089 	04h 	4                	;
0090 	52h 	RTN              	;R
0091 	6Bh 	RM B             	;k
0092 	5Ch 	F X<0 96         	;\
0093 	96h 	                	;
0094 	02h 	2                	;
0095 	52h 	RTN              	;R
0096 	01h 	1                	;
0097 	52h 	RTN              	;R
;   ADD 6437 
;   XOR 253 
