Section 12: Subroutines182
Keystrokes Display      
PRGM 
       
     
g GTO · · 
  00 REG 46    
     
g LBL 
       
     
ALPHA QROOT ALPHA 
  01 LBLTQROOT    
     
ALPHA g a? ALPHA 
  02Ta?    
     
XEQ 
       
     
ALPHA PROMPT ALPHA 
  03 PROMPT    
    Prompts and stops for input.
STO 01
  04 STO 01    
     
ALPHA g b? ALPHA 
  05Tb?    
     
XEQ 
       
     
ALPHA PROMPT ALPHA 
  06 PROMPT    
    Prompts and stops for input.
STO 01
  07 STO 02    
     
ALPHA g c? ALPHA 
  08Tc?    
     
XEQ 
       
     
ALPHA PROMPT ALPHA 
  09 PROMPT    
    Prompts and stops for input.
STO 01
  10 STO 03    
  Calculates and pauses to display r1.
XEQ 01
  11 XEQ 01    
 
 –  
  12 –    
 
RCL 01
  13 RCL 01    
 
  14 2 _    
 
 ×  
  15 *    
 
 ÷  
  16 /    
 
XEQ 
       
 
ALPHA PSE ALPHA 
  17 PSE    
 
XEQ 01
  18 XEQ 01    
  Calculates and pauses to display r2.
 +  
  19 +    
 
RCL 01
  20 RCL 01    
 
  21 2 _    
 
 ×  
  22 *    
 
 ÷  
  23 /    
 
XEQ 
       
 
ALPHA PSE ALPHA 
  24 PSE    
 
g RTN 
  25 RTN
  Final execution stops here.
g LBL 01
  26 LBL 01    
    Beginnning of the subroutine.
RCL 02
  27 RCL 02    
     
CHS 
  28 CHS    
     
RCL 02
  29 RCL 02    
     
g X2 
  30 X 2