# TITLE:  Quadratic Residues (using Euler's Criterion)
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   25Sep1996, 6Jun1999, 31Oct2006
# MAKE:   CASIO     
# MODEL:  fx6300G or greater
# SIZE:   119
# NOTES:  Enter a prime integer P. All the quadratic residues mod P will be displayed.

@@ Program 1

Lbl 0
"P"?->P
1->C:Lbl 1
(P-1)/2->M           
C->B
B-P*Int (B/P)->B                            
1->N:Lbl 2
Frac (M/2)<>0=>NB-P*Int (NB/P)->N    
Int (M/2)->M
BB-P*Int (BB/P)->B
M<>0=>Goto 2
N=1=>C_
Isz C:C<P=>Goto 1
Goto 0