100 REM REVISED APRIL, 1972 BY ED BAKER AND ANDY ROTH
105 DIMN(100)
110 REM  *****  SQRS  *****  MATHEMATICS PROGRAM  *****
120 REM  *****  VERSION 1  *****  7/31/69  *****
130 REM  NUMBERS AS SUM OF FOUR  SQUARES
140 PRINT"THE NUMBER N EXPRESSED AS THE SUM OF FOUR SQUARES"
150 PRINT "N=A^2+B^2+C^2+D^2"
160 PRINT"ENTER YOUR VALUES FOR N SEPARATED BY COMMAS"
165 MAT INPUT N:PRINT
170 PRINT "N","A","B","C","D"
180 PRINT
190 FOR W=1 TO NUM: N=N(W)
200 R=SQR(N)
210 FOR A=0 TO R
220 FOR B=0 TO N-A^2
230 FOR  C=0 TO N-A*A-B*B
240 IF A^2+B^2+C^2>N THEN 300
250 D=SQR(N-A*A-B*B-C*C)
260 IF D>INT(D) THEN 290
270 PRINT N,A,B,C,D
280 GOTO 320
290 NEXT C
300 NEXT B
310 NEXT A
320 NEXT W
325 INPUT"AGAIN";R$:IFR$="YES"THEN 160
330 END