home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug013.ark / CHIEF.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.5 KB  |  49 lines
  1. 10 PRINT " I AM CHIEF NUMBER FRIEK, THE GREAT INDIAN MATH GOD."
  2. 20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
  3. 30 INPUT A$
  4. 40 IF LEFT$ (A$,1)="Y" THEN 60
  5. 50 PRINT "SHUT UP PALEFACE WITH WISE TONGUE."
  6. 60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND"
  7. 70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
  8. 80 PRINT "WHAT DO YOU HAVE";
  9. 90 INPUT B
  10. 100 C=(B+1-5)*5/8*5-3
  11. 110 PRINT "I BET YOUR NUMBER WAS ";C;" WAS I RIGHT";
  12. 120 INPUT D$
  13. 130 IF LEFT$ (D$,1)="Y" THEN 510
  14. 140 PRINT "WHAT WAS YOUR ORIGINAL NUMBER";
  15. 150 INPUT K
  16. 160 F=K+3
  17. 160 G=F/5
  18. 170 H=G*8
  19. 180 I=H/5+5
  20. J=I-1
  21. 200 PRINT "SO YOU THINK YOUR SO SMART, EH?"
  22. 130 PRINT "NOW WATCH...."
  23. 220 PRINT K;"+3=";F;". THIS DIVIDED BY 5 =";G;","
  24. 230 PRINT "THIS * 8 =";H;". IF WE DIVIDE BY 5 AND ADD THE SAME,"
  25. 240 PRINT "WE GET ";I;". -1 = ";J;"."
  26. 250 PRINT "NOW DO YOU BELIEVE ME"; : INPUT Z$
  27. 260 IF LEFT$(Z$,1)="Y" THEN 510
  28. 295 PRINT "YOU HAVE MADE ME MAD!!!"
  29. 300 PRINT "THERE MUST BE A GREAT LIGHTNING BOLT!"
  30. 310 PRINT : PRINT
  31. 320 FOR X = 30 TO 22 STEP -1
  32. 340 PRINT TAB(X); "X X"
  33. 350 NEXT X
  34. 360 PRINT TAB(21);"X XXX"
  35. 370 PRINT TAB(20);"X   X"
  36. 380 PRINT TAB(19);"XX XXX"
  37. 390 FOR Y = 20 TO 13 STEP -1
  38. 400 PRINT TAB(Y);"X X"
  39. 410 NEXT Y
  40. 420 PRINT TAB(12);"XX"
  41. 430 PRINT TAB(11);"X"
  42. 440 PRINT TAB(10);"*"
  43. 450 PRINT 
  44. PRINT "################################" : PRINT
  45. PRINT "I HOPE YOU BELIEVE ME NOW FOR YOUR SAKE!!!"
  46. 480 GOTO 520
  47. 510 PRINT "BYE"
  48. 520 END
  49.