10 ? "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!"
20 ?
30 ? "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100."
40 INPUT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF: ";A
50 INPUT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF: ";B
60 INPUT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF: ";C
80 ?:? "LET ME THINK A MOMENT...."
90 T=TIME
95 IF (TIME-T)/60<2 THEN 95
100 D=70*A+21*B+15*C
110 IF D<=105 THEN 150
120 D=D-105
130 GOTO 110
150 ?:? "YOUR NUMBER WAS"D", RIGHT";
160 INPUT A$
170 IF A$[1,1]="Y" THEN 220
180 IF A$[1,1]="N" THEN 240
190 ? "EH?  I DON'T UNDERSTAND '"A$"'   TRY 'YES' OR 'NO'."
200 GOTO 150
220 ? "HOW ABOUT THAT!!"
230 GOTO 260
240 ? "I FEAR YOUR ARITHMETIC IS IN ERROR."
260 ?:? "LET'S TRY ANOTHER."
270 GOTO 20