42 lines
1.0 KiB
Plaintext
42 lines
1.0 KiB
Plaintext
2 TAB(16):PRINT "NICOMA"
|
|
4 TAB(5):PRINT "CREATIVE COMPUTING, NEW JERSEY"
|
|
5 TAB(1):PRINT "MODIFIED BY PHILIP LORD FOR THE APPLE 1"
|
|
6 PRINT: PRINT: PRINT
|
|
10 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA"
|
|
15 PRINT "OF NICOMACHUS -- A.D. 90!"
|
|
20 PRINT
|
|
30 PRINT "PLEASE THINK OF A NUMBER BETWEEN"
|
|
40 PRINT "1 AND 100."
|
|
42 PRINT: PRINT "YOUR NUMBER DIVIDED BY 3 "
|
|
43 PRINT "HAS A REMAINDER OF ";
|
|
45 INPUT A
|
|
50 PRINT "YOUR NUMBER DIVIDED BY 5 "
|
|
53 PRINT "HAS A REMAINDER OF ";
|
|
55 INPUT B
|
|
60 PRINT "YOUR NUMBER DIVIDED BY 7"
|
|
63 PRINT "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$="Y" THEN 220
|
|
180 IF A$="N" THEN 240
|
|
190 PRINT "EH? I DON'T UNDERSTAND '";A$;"'": PRINT "TRY 'Y' OR 'N'."
|
|
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
|
|
RUN
|