DataMuseum.dk

top - download

    Length: 1152 (0x480)
    Types: TextFile
    Names: »NICOMA.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »NICOMA.BAS« 

TextFile

1  REM PROGRAM NICOMA.BAS
10 REM *** WRITTEN BY DAVID AHL, DIGITAL
20 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!"
30 PRINT
40 PRINT "TO STOP THE GAME HOLD 'CONTROL' AND HIT 'C'"
50 PRINT :PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100.":PRINT 
60 PRINT "GOT IT?     O.K. LET'S START....."
70 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF";:INPUT A
80 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF";:INPUT B
90 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF";:INPUT C
100 PRINT :PRINT "LET ME THINK A MOMENT":D=70*A+21*B+15*C
110 FOR I=1 TO 1000
120 IF A*B*C=105 THEN 140
130 NEXT I
140 IF D<=105 THEN 170
150 D=D-105
160 GO TO 140
170 PRINT :PRINT "YOUR NUMBER WAS";D;", RIGHT";:INPUT A$:PRINT 
180 IF A$="YES" THEN 210
190 IF A$="NO" THEN 220
200 PRINT "EH?	I DON'T UNDERSTAND '";A$;"'.  TRY 'YES' OR 'NO'.":GO TO 170 
210 PRINT "HOW ABOUT THAT!!":GO TO 230 
220 PRINT "I FEAR YOUR ARITHMETIC IS IN ERROR."
230 PRINT :PRINT :PRINT :PRINT "LET'S TRY ANOTHER.":GO TO 50 :END
«eof»