home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCMISC / TOUCTYPE / UTMP.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1994-02-04  |  3.8 KB  |  174 lines
  1. 1  KEY OFF
  2. 10  WIDTH 40
  3. 15  CLS
  4. 100  PRINT"*GUESS THE MISSING PROBLEM*"
  5. 105  PRINT
  6. 110  PRINT"THIS IS A MATH GAME IN WHICH"
  7. 115  PRINT"YOU GUESS THE PROBLEM.YOU   "
  8. 120  PRINT"HAVE A CHOICE OF ADDING,SUB-"
  9. 125  PRINT"TRACTING,OR MULTIPLYING.THE"
  10. 130  PRINT"PROBLEM IS GIVEN IN X FORM. "
  11. 140  PRINT"THE PROBLEMS CAN BE UP TO 4 "
  12. 145  PRINT"NUMBERS. THE GAME IS PLAYED AS"
  13. 150  PRINT"FOLLOWS:"
  14. 152  PRINT" 1)ENTER THE TYPE OF PROBLEM"
  15. 155  PRINT" 2)ENTER GUESS            "
  16. 160  PRINT" 3)ENTER COLUMN YOU THINK"
  17. 170  PRINT" GUESS IS IN"
  18. 175  PRINT" 4) CONTINUE TILL DONE  "
  19. 200  PRINT"       *GOOD LUCK*   "
  20. 205  PRINT :PRINT :PRINT
  21. 210  PRINT" PUSH SPACE BAR WHEN DONE"
  22. 220  LL$=INPUT$(1)
  23. 225  IF LL$=" " GOTO 300 ELSE 220
  24. 300  PRINT :PRINT :PRINT :PRINT :PRINT
  25. 600  DIM C(20)
  26. 700  DIM B(20)
  27. 800  DIM A(20)
  28. 900  DIM Y(5,5)
  29. 920  WIDTH 40
  30. 950  W=0
  31. 970  RANDOMIZE VAL(RIGHT$(TIME$,2))
  32. 990  GOSUB 14000
  33. 992  CLS
  34. 1000  PRINT "WHAT KIND OF PROBLEM DO YOU  WANT TO DO"
  35. 1001  PRINT
  36. 1002  PRINT TAB(25)"ADDING(P)"
  37. 1004  PRINT
  38. 1006  PRINT TAB(25)"SUBTRACTING(S)"
  39. 1008  PRINT
  40. 1010  PRINT TAB(25)"MULTIPLYING(M)"
  41. 1012  F$=INPUT$(1)
  42. 1014  IF F$="P" THEN GOTO 2300
  43. 1015  IF F$="p" THEN GOTO 2300
  44. 1016  IF F$="M" THEN GOTO 1800
  45. 1017  IF F$="m" THEN GOTO 1800
  46. 1118  IF F$="S" THEN GOTO 1400
  47. 1119  IF F$="s" THEN GOTO 1400
  48. 1200  CLS
  49. 1400  GOSUB 20000
  50. 1500  F$="-"
  51. 1600  C=A-B
  52. 1700  GOTO 5050
  53. 1800  A=INT(RND*(10000))
  54. 1810  B=INT(RND*(10)+1)
  55. 1900  F$="*"
  56. 2000  C=A*B
  57. 2100  GOTO 5050
  58. 2300  GOSUB 20001
  59. 2400  C=A+B
  60. 2450  F$="+"
  61. 2500  GOTO 5050
  62. 2600  PRINT "YOU HAVE"W"WRONG ANSWERS"
  63. 2700  PRINT
  64. 3000  INPUT "WHAT NUMBER DO YOU WANT AND PUSH RETURN WHEN DONE";G
  65. 3004  PRINT :PRINT :PRINT :PRINT
  66. 4150  INPUT "WHAT COLUMN DO YOU WANT AND PUSH RETURN WHEN DONE";N
  67. 4175  PRINT :PRINT :PRINT
  68. 4205  CLS
  69. 4210  R=0
  70. 4220  S=0
  71. 4230  T=0
  72. 4300  IF G=Y(1,N) THEN A$(N)=STR$(G) ELSE R=R+1
  73. 4400  IF G=Y(2,N),THEN B$(N)=STR$(G) ELSE S=S+1
  74. 4500  IF G=Y(3,N) THEN C$(N)=STR$(G) ELSE T=T+1
  75. 4600  GOTO 10456
  76. 5050  A(1)=0
  77. 5100  A$(1)="  "
  78. 5150  Y(1,1)=A(1)
  79. 5500  A(2)=INT(A/1000)
  80. 5600  IF A(2)=O THEN A$(2)="  "ELSE A$(2)=" X"
  81. 5700  Y(1,2)=A(2)
  82. 5800  A(13)=A-(A(2)*1000)
  83. 5900  A(3)=INT(A(13)/100)
  84. 6000  IF A(2)+A(3)=0 THEN A$(3)="  "ELSE A$(3)=" X"
  85. 6100  Y(1,3)=A(3)
  86. 6200  A(14)=A(13)-(A(3)*100)
  87. 6300  A(4)=INT(A(14)/10)
  88. 6400  IF A(2)+A(3)+A(4)=0 THEN A$(4)="  "ELSE A$(4)=" X"
  89. 6500  Y(1,4)=A(4)
  90. 6600  A(15)=A(14)-(A(4)*10)
  91. 6700  A(5)=A(15)
  92. 6800  Y(1,5)=A(5)
  93. 6850  A$(5)=" X"
  94. 7000  B$(1)="  "
  95. 7100  Y(2,1)=B(1)
  96. 7300  B(2)=INT(B/1000)
  97. 7400  IF B(2)=0 THEN B$(2)="  "ELSE B$(2)=" X"
  98. 7500  Y(2,2)=B(2)
  99. 7600  B(13)=B-(B(2)*1000)
  100. 7700  B(3)=INT(B(13)/100)
  101. 7800  IF B(2)+B(3)=0 THEN B$(3)="  "ELSE B$(3)=" X"
  102. 7900  Y(2,3)=B(3)
  103. 8000  B(14)=B(13)-(B(3)*100)
  104. 8100  B(4)=INT(B(14)/10)
  105. 8200  IF B(2)+B(3)+B(4)=0 THEN B$(4)="  " ELSE B$(4)=" X"
  106. 8300  Y(2,4)=B(4)
  107. 8400  B(15)=B(14)-(B(4)*10)
  108. 8500  B(5)=B(15)
  109. 8600  Y(2,5)= B(5)
  110. 8650  B$(5)=" X"
  111. 8700  C(1)=INT(C/10000)
  112. 8800  IF C(1)=0 THEN C$(1)="  " ELSE C$(1)=" X"
  113. 8900  Y(3,1)=C(1)
  114. 9000  C(12)=C-(C(1)*10000)
  115. 9100  C(2)=INT(C(12)/1000)
  116. 9200  IF C(1)+C(2)=0 THEN C$(2)="  " ELSE C$(2)=" X"
  117. 9300  Y(3,2)=C(2)
  118. 9400  C(13)=C(12)-(C(2)*1000)
  119. 9500  C(3)=INT(C(13)/100)
  120. 9600  IF C(1)+C(2)+C(3)=O THEN C$(3)="  " ELSE C$(3)=" X"
  121. 9700  Y(3,3)=C(3)
  122. 9800  C(14)=C(13)-(C(3)*100)
  123. 9900  C(4)=INT(C(14)/10)
  124. 10000  IF C(1)+C(2)+C(3)+C(4)=0 THEN C$(4)="  " ELSE C$(4)=" X"
  125. 10100  Y(3,4)=C(4)
  126. 10200  C(15)=C(14)-(C(4)*10)
  127. 10300  C(5)=C(15)
  128. 10400  Y(3,5)=C(5)
  129. 10450  C$(5)=" X"
  130. 10452  CLS
  131. 10455  PRINT :PRINT :PRINT :PRINT
  132. 10456  PRINT TAB(29) "1 2 3 4 5"
  133. 10457  PRINT TAB(29) "- - - - -"
  134. 10458  PRINT
  135. 11000  PRINT TAB(30) A$(2);A$(3);A$(4);A$(5)
  136. 11200  PRINT TAB(28) F$;" ";B$(2);B$(3);B$(4);B$(5)
  137. 11300  PRINT TAB(28)"___________"
  138. 11400  PRINT TAB(28) C$(1);C$(2);C$(3);C$(4);C$(5)
  139. 11405  PRINT :PRINT :PRINT :PRINT :PRINT
  140. 11410  IF R=0 GOTO 14450
  141. 11420  IF S=0 GOTO 14450
  142. 11430  IF T=0 GOTO 14450
  143. 11440  W=W+1
  144. 11450  PRINT "YOU GOT A WRONG ANSWER"
  145. 11455  PRINT
  146. 11460   IF W<15 GOTO 2600
  147. 12200  PRINT TAB(27)Y(1,2);Y(1,3);Y(1,4);Y(1,5)
  148. 12300  PRINT TAB(25)F$;" ";Y(2,2);Y(2,3);Y(2,4);Y(2,5)
  149. 12400  PRINT TAB(25)"____________"
  150. 12500  PRINT TAB(24)Y(3,1);Y(3,2);Y(3,3);Y(3,4);Y(3,5)
  151. 12510  FOR TYR=1 TO 1000:NEXT
  152. 12550  PRINT :PRINT :PRINT
  153. 12630  PRINT :PRINT :PRINT
  154. 13000  END
  155. 14000  RANDOMIZE VAL(RIGHT$(TIME$,2))
  156. 14100  A=INT(RND*(9999)+1)
  157. 14200  B=INT(RND*(9999)+1)
  158. 14300  RETURN
  159. 14450  FOR V=2 TO 5
  160. 14460  IF A$(V)=" X" GOTO 2600
  161. 14470  NEXT V
  162. 14480  FOR Q=2 TO 5
  163. 14490  IF B$(Q)=" X" GOTO 2600
  164. 14500  NEXT Q
  165. 14520  FOR AA=1 TO 5
  166. 14530  IF C$(AA)=" X" GOTO 2600
  167. 14540  NEXT AA
  168. 14545  PRINT TAB(15)"*CONGRAGULATIONS*             <UNK! {FF00}>L15051PRINT
  169. 15052  PRINT TAB(10)"YOU GOT MY NUMBER!"
  170. 20000  RANDOMIZE VAL(RIGHT$(TIME$,2))
  171. 20001  A=INT(RND*(9999)+1)
  172. 20002  B=INT(RND*(9999)+1)
  173. 20003  IF B>A GOTO 20001 ELSE RETURN
  174.