File CHIEF.BA (BASIC source file)

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

5  REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
6 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
10 PRINT " I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD."
20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
30 INPUT A$
40 IF A$= "YES" THEN 60
50 PRINT "SHUT UP PALEFACE WITH WISE TOUNGE."
60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND"
70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
80 PRINT "WHAT DO YOU HAVE";
85 PRINT
90 INPUT B
100 LET C = (B+1-5)*5/8*5-3
110 PRINT "I BET YOUR NUMBER WAS";C;" WAS I RIGHT";
120 INPUT D$
130 IF D$="YES" THEN 510
140 PRINT "WHAT WAS YOUR ORIGINAL NUMBER";
150 INPUT K
155 LET F=K+3
160 LET G=F/5
170 LET H=G*8
180 LET I=H/5+5
190 LET J=I-1
200 PRINT "SO YOU THINK YOU'RE SO SMART, EH?"
210 PRINT "NOW WATCH...."
230 PRINT K;"PLUS 3 EQUALS";F;".  THIS DIVIDED BY 5 EQUALS";G;","
240 PRINT "THIS TIMES 8 EQUALS";H;".  IF WE DIVIDE BY 5 AND ADD THE SAME,"
250 PRINT "WE GET";I;".  MINUS 1 EQUALS";J;"."
260 PRINT "NOW DO YOU BELIEVE ME";
270 INPUT Z$
290 IF Z$ ="YES" THEN 510
295 PRINT "YOU HAVE MADE ME MAD!!!"
300 PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!"
310 PRINT\PRINT
330 FOR X=30 TO 22 STEP -1
340 PRINT TAB(X);"X X"
350 NEXT X
360 PRINT TAB(21);"X XXX"
370 PRINT TAB(20);"X   X"
380 PRINT TAB(19);"XX  X"
390 FOR Y=20 TO 13 STEP -1
400 PRINT TAB(Y);"X X"
410 NEXT Y
420 PRINT TAB(12);"XX"
430 PRINT TAB(11);"X"
440 PRINT TAB(10);"*"
450 PRINT\PRINT "##################################"\PRINT
470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!"
480 GOTO 520
510 PRINT "BYE!!!!!"
520 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