'agepuzz.bas
DEFINT A-Z
'  d	e	g	j	k	| 18
'  g	b	h (=8)	c	h(=8)	| 30
'  f    d	x	e	j	| 21
'  a(=7)k 	d	a (=7)	e 	| 17
'  c	e	f	b	c	| 19
'---------------------------------------
' 23    8      24      26      24
CLS
a = 7: h = 8
FOR g = 0 TO 9
 FOR b = 0 TO 9: c = 14 - g - b 	'row 2
  FOR j = 0 TO 9: e = 19 - j - b - c	'col 4
   k = 16 - j - e - c     		'col 5
   d = 3 - k - e        		'row 4
   IF e + b + d + k + e = 8 THEN  	'col 2
    IF d + e + g + j + k = 18 THEN	'row 1
     f = 16 - d - g - c   		'col 1
      IF c + e + f + b + c = 19 THEN 	'row 5
        x = 21 - f - d - e - j  	'row 3
 PRINT " a b c d e f g h j k x"
 PRINT a; b; c; d; e; f; g; h; j; k; x
 'Answer 7  3  5  1  2  4  6  8  9  0  5  x=c
     END IF     		   'end of row 5 check
    END IF     			   'end of row 1 check
   END IF		     	   'end of col 2 check
  NEXT j
 NEXT b
NEXT g
DO: LOOP WHILE INKEY$ = ""