File NICOMA.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

10 REM *** WRITTEN BY DAVID AHL, DIGITAL
15 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
20 PRINT"BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!"
30 PRINT\PRINT"PLEASE THINK OF A NUMBER BETWEEN 1 AND 100."\PRINT
40 PRINT"GOT IT?     O.K. LET'S START....."
50 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF";
55 INPUT A
60 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF";
65  INPUT B
70 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF";
75 INPUT C
80 PRINT\PRINT"LET ME THINK A MOMENT"\D=70*A+21*B+15*C
90 IF D=<105 GOTO 110\D=D-105
100 GOTO 90
110 PRINT\PRINT"YOUR NUMBER WAS";D;", RIGHT";\INPUT A$\PRINT
120 IF A$="YES" THEN 150 \ IF A$="NO" THEN 160
140 PRINT"EH?  I DON'T UNDERSTAND '";A$;"'.  TRY 'YES' OR 'NO'."\GOTO 110
150 PRINT "HOW ABOUT THAT!!"\GOTO 170
160 PRINT "I FEAR YOUR ARITHMETIC IS IN ERROR."
170 PRINT\PRINT\PRINT\PRINT "LET'S TRY ANOTHER."\GOTO 30\END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search