Source Code
190 CLS
200 INPUT "Type a beginning number for your magic square ";a$
210 IF a$<"1" OR a$>"999" THEN GO TO 200
300 INPUT "Type a difference between each number on your square ";b$
310 IF b$<"1" THEN GO TO 300
320 CLS
400 DIM a(9): LET a(1)=VAL a$: LET y=1: LET z=VAL b$
410 FOR x=2 TO 9: LET a(x)=a(1)+y*z: LET y=y+1: NEXT x
420 PRINT AT 5,3;a(8);AT 5,8;a(1);AT 5,13;a(6)
430 PRINT AT 7,3;a(3);AT 7,8;a(5);AT 7,13;a(7)
440 PRINT AT 9,3;a(4);AT 9,8;a(9);AT 9,13;a(2)
450 PRINT '''" The sum of each row, column, and diagonal of the magic square is...........";a(8)+a(1)+a(6)
1190 STOP
1200 INPUT "Type a beginning number for your magic square ";a$
1210 IF a$<"1" OR a$>"999" THEN GO TO 200
1300 INPUT "Type a difference between each number on your square ";b$
1310 IF b$<"1" THEN GO TO 300
1320 CLS
1400 DIM a(9): LET a(1)=VAL a$: LET y=1: LET z=VAL b$
1410 FOR x=2 TO 9: LET a(x)=a(1)+y*z: LET y=y+1: NEXT x
1420 LPRINT : LPRINT a(8);TAB 5;a(1);TAB 10;a(6)
1430 LPRINT : LPRINT a(3);TAB 5;a(5);TAB 10;a(7);TAB 20;"Sum= ";a(8)+a(1)+a(6)
1440 LPRINT : LPRINT a(4);TAB 5;a(9);TAB 10;a(2)
1450 LPRINT : GO TO 1200
9990 SAVE "magic" LINE 1: BEEP .4,15
