home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / guess.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.4 KB  |  110 lines
  1. 1  REM   GUESS  7/83
  2. 2  REM
  3. 3  REM   A NUMBER GUESSING PROGRAM
  4. 4  REM
  5. 5  REM   IBM MICROSOFT BASICA    64K
  6. 6  REM
  7. 7  REM   BY Lucy Jackson
  8. 8  REM   DONATED TO IBM CUE SOFTSWAP
  9. 9  REM
  10. 10  REM
  11. 11  REM  ***********************
  12. 12  REM  *                     *
  13. 13  REM  *  SAN MATEO COUNTY   *
  14. 14  REM  * OFFICE OF EDUCATION *
  15. 15  REM  *        AND          *
  16. 16  REM  *   COMPUTER-USING    *
  17. 17  REM  *      EDUCATORS      *
  18. 18  REM  *                     *
  19. 19  REM  *      SOFTSWAP       *
  20. 20  REM  *                     *
  21. 21  REM  *   333 MAIN STREET   *
  22. 22  REM  *     REDWOOD CITY    *
  23. 23  REM  *       CA 94063      *
  24. 24  REM  *   (415) 363-5472    *
  25. 25  REM  *                     *
  26. 26  REM  *                     *
  27. 27  REM  ***********************
  28. 28  REM  *PROGRAM MAY BE COPIED*
  29. 29  REM  *FOR EDUCATIONAL USE &*
  30. 30  REM  *MAY NOT BE SOLD.COPY-*
  31. 31  REM  *RIGHT 1983 CUE,INC   *
  32. 32  REM  ***********************
  33. 150  SCREEN 0,1: WIDTH 40 : COLOR 11,0,11
  34. 160  KEY OFF : CLS : DEFINT M,N,O,P:DIM M(88), O(70)
  35. 170  C = 0: P=0
  36. 180  LOCATE 5,10: PRINT CHR$(218);STRING$(19,196);TAB(30);CHR$(191)
  37. 190  LOCATE 6,10: PRINT CHR$(179);TAB(30);CHR$(179)
  38. 200  LOCATE 7,10: PRINT CHR$(179);TAB(15);"G U E S S ";TAB(30)CHR$(179)
  39. 210  LOCATE 8,10: PRINT CHR$(179);TAB(30);CHR$(179)
  40. 220  LOCATE 9,10: PRINT CHR$(192);STRING$(19,196);TAB(30);CHR$(217)
  41. 230  LOCATE 11,10: LINE INPUT "Enter your name: ";N$
  42. 240  LOCATE 14, 10: PRINT "I will select a number"
  43. 250  LOCATE 15,10: PRINT "between 1-100.  Your"
  44. 260  LOCATE 16,10: PRINT "challenge is to guess"
  45. 270  LOCATE 17,10: PRINT "my number.  You will"
  46. 280  LOCATE 18,10: PRINT "have 7 chances, ";N$;"."
  47. 290  LOCATE 21,10: PRINT "Do you want sound?"
  48. 300  A$=INKEY$: IF A$="" THEN GOTO 300
  49. 310  IF A$="N" OR A$="n" THEN S$="no"
  50. 320  CLS
  51. 330  LET N = INT(RND * 100 + 1)
  52. 340  FOR S=1 TO 7
  53. 350      R=S*2
  54. 360      LOCATE R,8: COLOR 11,0
  55. 370      PRINT N$ "'s guess #";S;
  56. 380      INPUT G$:G=VAL(G$)
  57. 390      IF G = N THEN 530
  58. 400      IF G < N THEN LOCATE R+1,15:COLOR 12,0: PRINT "TOO LOW"
  59. 410      IF G > N THEN LOCATE R+1,15: COLOR 9,0: PRINT "TOO HIGH"
  60. 420  NEXT S
  61. 430  LOCATE 17,8: PRINT N$;" loses."
  62. 440  BEEP
  63. 450  LOCATE 16,8: PRINT "My number is";: COLOR 14,0: PRINT N
  64. 460  C=C+1 : LOCATE 20,15:PRINT  "Computer:";: COLOR 11,0: PRINT C
  65. 470  LOCATE 18,15: PRINT N$; ": ";P
  66. 480  PRINT
  67. 490  LOCATE 22,14: COLOR 13,0: PRINT "Press E to end.";: LOCATE 23,7: PRINT "Press any key to guess again."
  68. 500  Y$=INKEY$
  69. 510  IF Y$="" THEN GOTO 500
  70. 520  IF Y$="e" OR Y$="E" THEN GOTO 900 ELSE GOTO 320
  71. 530  CLS : COLOR 11,0,11
  72. 540  LOCATE 2,10:PRINT CHR$(218);STRING$(19,196);TAB(30);CHR$(191)
  73. 550  LOCATE 3,10: PRINT CHR$(179);TAB(30);CHR$(179)
  74. 560  LOCATE 4,10: PRINT CHR$(179);: COLOR 31,0: PRINT TAB(15);"W I N N E R ";: COLOR 11,0,11: PRINT TAB(30);CHR$(179)
  75. 570  LOCATE 5,10: PRINT CHR$(179);TAB(30);CHR$(179)
  76. 580  LOCATE 6,10: PRINT CHR$(192);STRING$(19,196);TAB(30);CHR$(217)
  77. 590  LOCATE 11,10: COLOR 31,0: PRINT "CONGRATULATIONS, ";N$;" !": COLOR 11,0,11
  78. 600  P=P+1 : LOCATE 17,15: PRINT "COMPUTER:";C
  79. 610  LOCATE 15,15: PRINT N$;" :";P
  80. 620  IF S$="no" THEN GOTO 490
  81. 630  DEF SEG : POKE 106,0
  82. 640  FOR I = 7 TO 88: M(I) = 36.8*(2^(1/12))^(I-6):NEXT I
  83. 650  FOR I = 0 TO 6:M(I) = 32767: NEXT I
  84. 660  O(0) = 0
  85. 670  O(39)=5:O(40)=7:O(41)=8:O(42)=9
  86. 680  O(43)=10:O(44)=11:O(45)=13:O(46)=14
  87. 690  O(47)=15:O(48)=16:O(49)=17:O(50)=18
  88. 700  O(51)=19:O(52)=21:O(53)=22:O(54)=23
  89. 710  O(55)=24:O(56)=25:O(57)=27:O(58)=28
  90. 720  O(59)=29:O(60)=30:O(61)=31:O(62)=32
  91. 730  O(63)=33:O(64)=35:O(65)=36:O(66)=37
  92. 740  O(67)=38:O(68)=39:O(69)=40:O(70)=42
  93. 750  RESTORE
  94. 760  READ J,K
  95. 770  IF J=-1 THEN GOTO 490
  96. 780  Q=O(J)
  97. 790  IF J>64 OR J<39 THEN GOTO 820
  98. 800  IF SCREEN (5,Q)<>32 THEN COLOR O,7:LOCATE 11,Q:PRINT CHR$(14);:COLOR 15,0:GOTO 820
  99. 810  COLOR 15,0:LOCATE 7,Q:PRINT CHR$(14);:COLOR 0,7
  100. 820  SOUND M(J),K: IF J=0 AND K=1 THEN GOTO 840:'SKIP NEXT FOR STACCATTO
  101. 830  SOUND 32767,1
  102. 840  IF J>64 OR J<39 THEN GOTO 760
  103. 850  IF SCREEN (5,Q) = 32 THEN COLOR 15,0:LOCATE 7,Q:PRINT CHR$(32);:GOTO 760
  104. 860  COLOR 15,0:LOCATE 11,Q:PRINT CHR$(219);:GOTO 760
  105. 870  DATA 47,3,49,3,51,3,54,1,0,2,47,3,49,3,51,3,54,1,0,2,42,3,44,5
  106. 880  DATA 51,1,49,12,47,1
  107. 890  DATA -1,-1
  108. 900  LOCATE 22,13: COLOR 14,0: PRINT "  Loading menu  "
  109. 910  CHAIN "menu",170: RUN
  110.