mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-23 15:37:51 -08:00
35 lines
936 B
QBasic
35 lines
936 B
QBasic
2 PRINT TAB(33);"NICOMA"
|
|
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
6 PRINT: PRINT: PRINT
|
|
10 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!"
|
|
20 PRINT
|
|
30 PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100."
|
|
40 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF";
|
|
45 INPUT A
|
|
50 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF";
|
|
55 INPUT B
|
|
60 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF";
|
|
65 INPUT C
|
|
70 PRINT
|
|
80 PRINT "LET ME THINK A MOMENT..."
|
|
85 PRINT
|
|
90 FOR I=1 TO 1500: NEXT I
|
|
100 D=70*A+21*B+15*C
|
|
110 IF D<=105 THEN 140
|
|
120 D=D-105
|
|
130 GOTO 110
|
|
140 PRINT "YOUR NUMBER WAS";D;", RIGHT";
|
|
160 INPUT A$
|
|
165 PRINT
|
|
170 IF A$="YES" THEN 220
|
|
180 IF A$="NO" THEN 240
|
|
190 PRINT "EH? I DON'T UNDERSTAND '";A$;"' TRY 'YES' OR 'NO'."
|
|
200 GOTO 160
|
|
220 PRINT "HOW ABOUT THAT!!"
|
|
230 GOTO 250
|
|
240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR."
|
|
250 PRINT
|
|
260 PRINT "LET'S TRY ANOTHER."
|
|
270 GOTO 20
|
|
999 END
|