magicSq bMagic Squares  R Hyde :1:0:7: V0,9 ;"Magic Squares";1;0,9 ;"__ __ _ _____";0; I2,14;"816";3,14;"357";4,14;"492" 5;6,0;" In the magic square shown aboveeach row, column, and diagonal adds up to 15. There are many different kinds and sizes of magic squares and in this game Ican make them with up to 49 num-bers. Once I have made a magic square, I will display it to youwith some numbers missing. The object is for you to fill in themissing numbers as quickly as possible. If you are quick, you will be promoted to the next bigger square. If not, I will either leave you or relegate you" 021,3;"< Press 'RUN' when ready >" ""30 "R"Ʀ"r"30 # (V0,9 ;"Magic Squares";1;0,9 ;"__ __ _ _____";0; -5;2,0;" The aim of the game is to get promoted as high as possible in 600 seconds. There are three degrees of difficulty - start asa beginner. I will advise you when to go on to the next level.";7;9 ,1;"Example:" 26;10 ,7;"Magic number is 15";11 ,12 ;" ";12 ,7;"Row 1 2+7+? ";13 ,7;"Row 2 9+5+? ";14,7;"Row 3 ?+?+? ";15,12 ;" " 716,0;"Row 1: 7+2=9; 15-9=6; so ?=6 Row 2: 9+5=14; 15-14=1; so ?=1 Row 3: 2+9=11; 15-11=4; so ?=4 Row 3: 7+5=12; 15-12=3; so ?=3 Row 3: 6+1=7; 15-7=8; so ?=8" <96;21,3;"< Press 'RUN' when ready >" >""62> A"R"Ʀ"r"65A F P6,0;4;"Type in the degree of difficulty";10 ,8;"'B' for beginner";11 ,8;"'E' for expert";12 ,8;"'I' for impossible" U""85U Xd$= Z5d$="b"d$="B"d$="e"d$="E"d$="i"d$="I"95_ [ 88X _*d$="b"d$="e"d$="i"d$=(d$-32 ) a$y=0:prev=0:b=0 b d d=3 ej=031 f9 ,j;" " gj9 105i hj,15;" " ij n x=1 x row=1 yj=10 20 z/j,0;" " {j }i(d,d) m(d,d) d=4350^ d=6400 150 500 c=(d/2)+1 m(row,c)=x x=x+1 c=c+1 row=row-1 row<1260 c>d290" m(row,c)>0320@ m(row,c)=x x(d^2-.1}L+y) 170 c>d320@  row=row+d  230 "c=c-d , 230 @ c=c-1 Jrow=row+2 T 230 `j=14 ak=14 b(m(j,k)=x+4*(j-1)+k-1 ck dj fj=12 hi(j,j)=m(j,j) jm(j,j)=m(5-j,5-j) lm(5-j,5-j)=i(j,j) n k=5-j pi(j,k)=m(j,k) rm(j,k)=m(k,j) tm(k,j)=i(j,k) vj x 500  d=3  150  d=6 j=13 k=13  m(j,k+3)=m(j,k)+18  m(j+3,k)=m(j,k)+27 'm(j+3,k+3)=m(j,k)+9 k j j=13  k=1 j=2k=2 i(j,k)=m(j,k) m(j,k)=m(j+3,k) m(j+3,k)=i(j,k) j r= s= s>.33(670  j=1d & k=1d 0i(k,d+1-j)=m(j,k) :k Dj Nr=r-.33( X j=1d b k=1d lm(j,k)=i(j,k) vk j r>.1}L540  800  s>.66(740  j=1d  k=1d i(d+1-j,k)=m(j,k) k j  600X  j=1d  k=1d i(j,d+1-k)=m(j,k) k  j  600X *vl=17-2*d 4vr=17+d >hu=14-(d/2) Hhl=16+(d/2) R j=vlvr \hu,j;" " fhl,j;" " pj z j=1d  k=1d  j=3k=3960 m(j,k)<10 950 1hu+j,vl+1+(k-1)*3;m(j,k);"+"  960 1hu+j,vl+2+(k-1)*3;m(j,k);"+" k j  j=huhl j,vl;" " j,vr;" " j 0,16;" Time " &2,17;"Allowed:600secs " 1,17;"Taken :" 1,28;"secs" Vmn=(d^3+d)/2+d*y `!1,2;"Magic number" j3,5;" " t3,5;"is ";mn ~6,3;"The clock" 57,2;"has ";1;"STARTED";0 Q21,0;6;1;"Enter number, then press 'ENTER'";0 E23672x\,255:23673y\,255:23674z\,255  j=3  k=1d k=j1380d  a$="??" ;hu+j,vl+1+(k-1)*3;1;a$;0 a *time=23672x\+256*23673y\ tot=time/502+prev  1,25;tot +hu+j,vl+1+(k-1)*3;" " a=m(j,k)1350F ( a$="LL" 2a>m(j,k)a$="HH" < 1270 F z=1 Pm(j,k)<10 z=2 Z(hu+j,vl+z+(k-1)*3;m(j,k); ^k=d1380d `"+" dk x k=3  j=1d  a$="??" ;hu+j,vl+1+(k-1)*3;1;a$;0 a *time=23672x\+256*23673y\ tot=time/502+prev 1,25;tot +hu+j,vl+1+(k-1)*3;" " a=m(j,k)1510  a$="LL" a>m(j,k)a$="HH"  1430  z=1 m(j,k)<10 z=2 (hu+j,vl+z+(k-1)*3;m(j,k); d=31540 "+" j 621,0;" " *7,8;1;"OPP";0 J-time/502>d^3*21680 T%time/502