Data update

Task/Magic-constant/Tiny-BASIC/magic-constant.basic

@@ -0,0 +1,21 @@
+10 REM MAGIC CONSTANT
+20 PRINT "FIRST 20 MAGIC CONSTANTS:"
+30 LET N=3
+40 IF N>20+3-1 GOTO 80
+50 PRINT (N*N*N+N)/2,
+60 LET N=N+1
+70 GOTO 40
+80 PRINT
+90 PRINT "SMALLEST ORDER MAGIC SQUARE WITH A CONSTANT GREATER THAN:"
+100 LET T=10
+110 LET M=3
+120 LET X=1
+130 LET L=(M*M*M+M)/2
+140 LET M=M+1
+150 IF L<=T GOTO 130
+160 PRINT "10^";X;":",M-1
+170 LET X=X+1
+180 IF X>4 GOTO 210
+190 LET T=T*10
+200 GOTO 130
+210 END