01 LBL "MAGIC"
 02 LBL A
 03 FIX 00
 04 CF 29
 05 CLRG
 06 "SIZE ?"
 07 PROMPT
 08 STO 00
 09 X<=0?
 10 GTO 01
 11 7
 12 X<Y?
 13 GTO 01
 14 RCL 00
 15 2
 16 /
 17 INT
 18 LASTX
 19 X#Y?
 20 GTO 02
 21 LBL 01
 22 "ONLY 1,3,5,7"
 23 AVIEW
 24 PSE
 25 GTO "MAGIC"
 26 LBL 02
 27 1
 28 RCL 00
 29 X=Y?
 30 GTO 18
 31 ENTER
 32 *
 33 STO 01
 34 LOG
 35 INT
 36 1
 37 +
 38 STO 02
 39 RCL 00
 40 *
 41 LASTX
 42 1
 43 -
 44 +
 45 23
 46 X<>Y
 47 -
 48 2
 49 /
 50 INT
 51 STO 03
 52 1
 53 STO 05
 54 STO 07
 55 RCL 00
 56 +
 57 2
 58 /
 59 STO 06
 60 10
 61 +
 62 1
 63 STO IND Y
 64 ST+ 07
 65 LBL 03
 66 1
 67 ST- 05
 68 ST- 06
 69 RCL 05
 70 X#0?
 71 GTO 04
 72 RCL 06
 73 X=0?
 74 GTO 06
 75 RCL 00
 76 STO 05
 77 GTO 07
 78 LBL 04
 79 RCL 06
 80 X#0?
 81 GTO 05
 82 RCL 00
 83 STO 06
 84 GTO 07
 85 LBL 05
 86 XEQ 10
 87 RCL IND X
 88 X=0?
 89 GTO 07
 90 LBL 06
 91 1
 92 ST+ 06
 93 2
 94 ST+ 05
 95 LBL 07
 96 XEQ 10
 97 RCL 07
 98 STO IND Y
 99 1
100 ST+ 07
101 X<>Y
102 RCL 01
103 X<=Y?
104 GTO 11
105 GTO 03
106 LBL 10
107 RCL 05
108 1
109 -
110 RCL 00
111 *
112 RCL 06
113 +
114 10
115 +
116 RTN
117 LBL 11
118 ADV
119 ADV
120 ADV
121 "MAGIC SQUARE"
122 SF 12
123 XROM 29,08
124 CF 12
125 ADV
126 "         SIZE="
127 ARCL 00
128 XROM 29,08
129 CLA
130 XROM 29,08
131 XROM 29,08
132 FS? 01
133 RTN
134 11
135 STO 09
136 RCL 00
137 STO 61
138 LBL 15
139 XEQ 12
140 RCL 00
141 STO 62
142 LBL 16
143 XEQ 13
144 RCL 62
145 RCL 00
146 -
147 X=0?
148 XEQ 13
149 ARCL IND 09
150 XROM 29,01
151 CLA
152 " "
153 XROM 29,01
154 CLA
155 1
156 ST+ 09
157 DSE 62
158 GTO 16
159 XROM 29,08
160 CLA
161 DSE 61
162 GTO 15
163 GTO "MAGIC"
164 LBL 12
165 RCL 03
166 STO 63
167 LBL 17
168 CLA
169 " "
170 XROM 29,01
171 DSE 63
172 GTO 17
173 RTN
174 LBL 13
175 RCL IND 09
176 LOG
177 INT
178 1
179 +
180 RCL 02
181 X=Y?
182 RTN
183 " "
184 XROM 29,01
185 CLA
186 RTN
187 LBL 18
188 SF 01
189 XEQ 11
190 CF 01
191 SF 12
192 "     1"
193 XROM 29,08
194 CLA
195 CF 12
196 GTO "MAGIC"
197 END