Sorry your browser is not supported!

do

10:
dim m(25,25)
20:
print "Enter size of square (must be odd number 3,5,7 or 9)"
30:
input n
40:
print "Enter starting number (from 1 to 19)"
50:
input y
60:
s=y
70:
print n;" by ";n;" Magic Square starting"
80:
print " with the number ";s
90:
print
100:
k=1
110:
h=1
120:
j=(n+1)/2
130:
m(h,j)=s
140:
s=s+1
150:
if s>n^2+y-1 then goto 290
160:
if k<n then goto 200
170:
k=1
180:
h=h+1
190:
goto 130
200:
h=h-1
210:
j=j+1
220:
k=k+1
230:
if h<>0 then goto 260
240:
h=n
250:
goto 130
260:
if j<=n then goto 130
270:
j=1
280:
goto 130
290:
for i=1 to n
300:
for j=1 to n
310:
print m(i,j);"   ";
320:
next j
330:
print
340:
print
350:
next i
360:
print
370:
print "The constant is ";(n^3+n)/2+n*(y-1)
print
print "Press any key to re-run"

wait key

cls
loop

dim m(25,25)
Do
  cls
  input "Enter size of square (must be odd number 3,5,7 or 9): ";n
  input "Enter starting number (from 1 to 19): ";y
  s=y
  print n;" by ";n;" Magic Square starting with the number ";s
  print
  k=1: h=1: j=(n+1)/2
  While s <= n^2+y-1
    m(h,j)=s: s=s+1
    if s>n^2+y-1
      gosub Display
    Else
      if k<n
        h=h-1: j=j+1: k=k+1
        if h<>0
          If j>n Then j=1
        Else
          h=n
        Endif
      Else
        k=1: h=h+1
      Endif
    Endif
  EndWhile
Loop

Display:
  for i=1 to n
    for j=1 to n
      print m(i,j);"   ";
    next j
    print: print
  next i
  print
  print "The constant is ";(n^3+n)/2+n*(y-1)
  print
  print "Press any key to re-run"
  wait key
Return

function MyFunction

   ` Do something
   ...

   ` Condition that requires premature returning
   if condition
      ...
      goto cleanup
   endif

   ` Do something more
   ...

   ` Condition that requires premature returning
   if condition2
      ...
      goto cleanup
   endif

   ` Set result to 1 to indicate success
   result = 1

   ` Cleanup code that gets called no matter when the function ends
   cleanup:
   ...

endfunction result

function MyFunction
   result = 1

   ` Do something
   ...

   ` Condition that requires premature returning
   if condition
      result = 0
   else
      ` Do something more
      ...

      ` Condition that requires premature returning
      if condition2
         result = 0
      endif
   endif

  ` Cleanup code that gets called no matter when the function ends
   ...

endfunction result

function MyFunction
   result = 1

   ` Do something
   ...

   ` Condition that requires premature returning
   if condition
      result = 0
   endif

   if result = 1
      ` Do something more
      ...

      ` Condition that requires premature returning
      if condition2
         result = 0
      endif
   endif

   if result = 1
      ` Do even more stuff
      ...

      ` Another condition that requires premature returning
      if condition3
         result = 0
      endif
   endif

   if result = 1
      ` Do even more more stuff
      ...

      ` Final condition that requires premature returning
      if condition4
         result = 0
      endif
   endif

  ` Cleanup code that gets called no matter when the function ends
   ...

endfunction result

do 
	dim m(25,25)
	print "Enter size of square (must be odd number 3,5,7 or 9)"
	input n
	print "Enter starting number (from 1 to 19)"
	input y
	s=y
	print n;" by ";n;" Magic Square starting"
	print " with the number ";s
	print
	finished=0
	k=1
	h=1
	j=(n+1)/2
	repeat
		m(h,j)=s
		s=s+1
		if s>n^2+y-1 then finished=displayResult(n, y)
		if finished=0
			if k<n 
				h=h-1
				j=j+1
				k=k+1
				if h=0
					h=n
				else
					if j>n
						j=1
					endif
				endif
			else
				k=1
				h=h+1
			endif
		endif
	until finished
	wait key
	cls
loop

function displayResult(n,y)
	for i=1 to n
		for j=1 to n
			print m(i,j);"   ";
		next j
		print
		print
	next i
	print
	print "The constant is ";(n^3+n)/2+n*(y-1)
	print
	print "Press any key to re-run"
endfunction 1