Magic Square

Here’s a short program to generate magic squares for any number 35-99. If you add up any row, column, or diagonal, you will get your number. To enter line 10 type 1 0 REM 9 Q 1 9 Space 9 E 9 P 9 A Space 2 5 S 7 6 4 W T D 9 Enter (bold indicates Shift pressed).

  10 REM ▟▘£▛"▒█▝▌▓▀▄▖▙▞▓
  20 PRINT "INPUT A NUMBER BETWEEN 35 AND 99"
  30 INPUT A
  40 LET A=INT A
  50 IF A<35 OR A>99 THEN GOTO 30
  60 CLS
  70 LET B=INT (RND*10)
  80 IF A-22-B*3<1 THEN GOTO 70
  90 FOR N=16514 TO 16529
 100 LET C=A-149-3*B+PEEK N
 110 IF PEEK N<100 THEN LET C=PEEK N+B
 120 LET E=N-16514
 130 PRINT AT INT (E/4)*5+3,(E-4*INT (E/4)+1)*5;C
 140 NEXT N
SYNTACTIC SUM:  32744, 8K ROM