LBL                                                                             
"8QUEENS"                                                                       
CF                                                                              
29                                                                              
FIX                                                                             
0                                                                               
CLRG                                                                            
1                                                                               
STO                                                                             
22                                                                              
"NO"                                                                            
ASTO                                                                            
25                                                                              
"YES"                                                                           
ASTO                                                                            
26                                                                              
"PUBLISH?"                                                                      
AON                                                                             
PROMPT                                                                          
ASTO                                                                            
27                                                                              
AOFF                                                                            
"INITIAL POSITI"                                                                
>"ON?"                                                                          
PROMPT                                                                          
STO                                                                             
23                                                                              
STO                                                                             
24                                                                              
X=0?                                                                            
GTO                                                                             
17                                                                              
LBL                                                                             
16                                                                              
1                                                                               
ST+                                                                             
22                                                                              
RCL                                                                             
24                                                                              
10                                                                              
/                                                                               
STO                                                                             
24                                                                              
1                                                                               
X<Y?                                                                            
GTO                                                                             
16                                                                              
LBL                                                                             
17                                                                              
RCL                                                                             
22                                                                              
STO                                                                             
09                                                                              
1                                                                               
ST-                                                                             
22                                                                              
LBL                                                                             
18                                                                              
RCL                                                                             
23                                                                              
X=0?                                                                            
GTO                                                                             
19                                                                              
10                                                                              
/                                                                               
STO                                                                             
23                                                                              
FRC                                                                             
10                                                                              
*                                                                               
STO                                                                             
IND                                                                             
22                                                                              
RCL                                                                             
23                                                                              
INT                                                                             
STO                                                                             
23                                                                              
1                                                                               
ST-                                                                             
22                                                                              
GTO                                                                             
18                                                                              
LBL                                                                             
19                                                                              
1                                                                               
STO                                                                             
22                                                                              
"="                                                                             
ASTO                                                                            
23                                                                              
31                                                                              
STO                                                                             
24                                                                              
LBL                                                                             
20                                                                              
RCL                                                                             
IND                                                                             
09                                                                              
STO                                                                             
19                                                                              
RCL                                                                             
09                                                                              
1                                                                               
-                                                                               
STO                                                                             
00                                                                              
X=0?                                                                            
GTO                                                                             
27                                                                              
LBL                                                                             
21                                                                              
CLX                                                                             
STO                                                                             
11                                                                              
STO                                                                             
12                                                                              
STO                                                                             
13                                                                              
STO                                                                             
14                                                                              
STO                                                                             
15                                                                              
STO                                                                             
16                                                                              
STO                                                                             
17                                                                              
STO                                                                             
18                                                                              
LBL                                                                             
22                                                                              
RCL                                                                             
IND                                                                             
00                                                                              
XEQ                                                                             
31                                                                              
RCL                                                                             
IND                                                                             
00                                                                              
RCL                                                                             
09                                                                              
+                                                                               
RCL                                                                             
00                                                                              
-                                                                               
STO                                                                             
21                                                                              
9                                                                               
-                                                                               
CHS                                                                             
X<=0?                                                                           
GTO                                                                             
23                                                                              
RCL                                                                             
21                                                                              
XEQ                                                                             
31                                                                              
LBL                                                                             
23                                                                              
RCL                                                                             
IND                                                                             
00                                                                              
RCL                                                                             
09                                                                              
-                                                                               
RCL                                                                             
00                                                                              
+                                                                               
STO                                                                             
21                                                                              
X<=0?                                                                           
GTO                                                                             
24                                                                              
RCL                                                                             
21                                                                              
XEQ                                                                             
31                                                                              
LBL                                                                             
24                                                                              
DSE                                                                             
00                                                                              
GTO                                                                             
22                                                                              
LBL                                                                             
25                                                                              
1                                                                               
ST+                                                                             
19                                                                              
9                                                                               
RCL                                                                             
19                                                                              
X=Y?                                                                            
GTO                                                                             
28                                                                              
10                                                                              
+                                                                               
STO                                                                             
20                                                                              
RCL                                                                             
IND                                                                             
20                                                                              
1                                                                               
X=Y?                                                                            
GTO                                                                             
25                                                                              
RCL                                                                             
19                                                                              
STO                                                                             
IND                                                                             
09                                                                              
RCL                                                                             
09                                                                              
STO                                                                             
00                                                                              
1                                                                               
ST+                                                                             
09                                                                              
RCL                                                                             
09                                                                              
9                                                                               
X=Y?                                                                            
GTO                                                                             
26                                                                              
CLX                                                                             
STO                                                                             
19                                                                              
GTO                                                                             
21                                                                              
LBL                                                                             
26                                                                              
LBL                                                                             
B                                                                               
11432133                                                                        
STO                                                                             
20                                                                              
XEQ                                                                             
30                                                                              
RCL                                                                             
25                                                                              
RCL                                                                             
27                                                                              
X=Y?                                                                            
GTO                                                                             
45                                                                              
"ROTATION?"                                                                     
AON                                                                             
PROMPT                                                                          
ASTO                                                                            
28                                                                              
AOFF                                                                            
RCL                                                                             
26                                                                              
RCL                                                                             
28                                                                              
X=Y?                                                                            
XEQ                                                                             
35                                                                              
LBL                                                                             
45                                                                              
RCL                                                                             
21                                                                              
STO                                                                             
IND                                                                             
24                                                                              
1                                                                               
ST+                                                                             
22                                                                              
ST+                                                                             
24                                                                              
8                                                                               
STO                                                                             
00                                                                              
GTO                                                                             
28                                                                              
LBL                                                                             
27                                                                              
RCL                                                                             
01                                                                              
4                                                                               
X=Y?                                                                            
GTO                                                                             
29                                                                              
1                                                                               
ST+                                                                             
19                                                                              
RCL                                                                             
19                                                                              
STO                                                                             
01                                                                              
RCL                                                                             
09                                                                              
STO                                                                             
00                                                                              
1                                                                               
ST+                                                                             
09                                                                              
CLX                                                                             
STO                                                                             
19                                                                              
GTO                                                                             
21                                                                              
LBL                                                                             
28                                                                              
1                                                                               
ST-                                                                             
09                                                                              
GTO                                                                             
20                                                                              
LBL                                                                             
29                                                                              
"END"                                                                           
PROMPT                                                                          
LBL                                                                             
30                                                                              
8                                                                               
STO                                                                             
00                                                                              
CLX                                                                             
STO                                                                             
21                                                                              
LBL                                                                             
40                                                                              
8                                                                               
RCL                                                                             
00                                                                              
-                                                                               
10^X                                                                            
RCL                                                                             
IND                                                                             
00                                                                              
*                                                                               
ST+                                                                             
21                                                                              
DSE                                                                             
00                                                                              
GTO                                                                             
40                                                                              
BEEP                                                                            
RCL                                                                             
25                                                                              
RCL                                                                             
27                                                                              
X=Y?                                                                            
GTO                                                                             
41                                                                              
LBL                                                                             
A                                                                               
"CODES:"                                                                        
ARCL                                                                            
20                                                                              
PROMPT                                                                          
"POSITION"                                                                      
ARCL                                                                            
22                                                                              
ARCL                                                                            
23                                                                              
ARCL                                                                            
21                                                                              
PROMPT                                                                          
LBL                                                                             
41                                                                              
RTN                                                                             
LBL                                                                             
31                                                                              
10                                                                              
+                                                                               
STO                                                                             
10                                                                              
1                                                                               
STO                                                                             
IND                                                                             
10                                                                              
RTN                                                                             
LBL                                                                             
32                                                                              
8                                                                               
STO                                                                             
00                                                                              
LBL                                                                             
42                                                                              
RCL                                                                             
IND                                                                             
00                                                                              
CHS                                                                             
19                                                                              
+                                                                               
STO                                                                             
10                                                                              
RCL                                                                             
00                                                                              
STO                                                                             
IND                                                                             
10                                                                              
DSE                                                                             
00                                                                              
GTO                                                                             
42                                                                              
18.01                                                                           
STO                                                                             
00                                                                              
LBL                                                                             
43                                                                              
RCL                                                                             
00                                                                              
10                                                                              
-                                                                               
STO                                                                             
10                                                                              
RCL                                                                             
IND                                                                             
00                                                                              
STO                                                                             
IND                                                                             
10                                                                              
DSE                                                                             
00                                                                              
GTO                                                                             
43                                                                              
RTN                                                                             
LBL                                                                             
33                                                                              
8                                                                               
STO                                                                             
00                                                                              
LBL                                                                             
44                                                                              
RCL                                                                             
IND                                                                             
00                                                                              
CHS                                                                             
9                                                                               
+                                                                               
STO                                                                             
IND                                                                             
00                                                                              
DSE                                                                             
00                                                                              
GTO                                                                             
44                                                                              
RTN                                                                             
LBL                                                                             
34                                                                              
XEQ                                                                             
36                                                                              
970097                                                                          
ST+                                                                             
20                                                                              
XEQ                                                                             
30                                                                              
XEQ                                                                             
36                                                                              
RTN                                                                             
LBL                                                                             
35                                                                              
XEQ                                                                             
34                                                                              
6908711                                                                         
ST+                                                                             
20                                                                              
XEQ                                                                             
33                                                                              
XEQ                                                                             
30                                                                              
XEQ                                                                             
34                                                                              
XEQ                                                                             
33                                                                              
"POSITION ENDED"                                                                
AVIEW                                                                           
PSE                                                                             
"SEARCHING NEW"                                                                 
>"POSITION"                                                                     
PROMPT                                                                          
RTN                                                                             
LBL                                                                             
36                                                                              
XEQ                                                                             
32                                                                              
1010101                                                                         
ST+                                                                             
20                                                                              
XEQ                                                                             
30                                                                              
XEQ                                                                             
32                                                                              
RTN                                                                             
END                                                                             
