home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / matcher (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  71 lines

  1. 100 GOSUB1000
  2. 200 IFRND(0)<.5THEN320
  3. 210 T0=0:T1=0
  4. 220 LA$=RIGHT$(HH$,3)
  5. 230 FORI=1TOLEN(HH$)-3
  6. 240 IFMID$(HH$,I,3)<>LA$THEN270
  7. 250 IFMID$(HH$,I+3,1)="0"THENT0=T0+1
  8. 260 IFMID$(HH$,I+3,1)="1"THENT1=T1+1
  9. 270 NEXTI
  10. 300 IFT0>T1THENPC$="0":GOTO400
  11. 310 IFT0<T1THENPC$="1":GOTO400
  12. 320 IFRND(0)<.5THENPC$="0":GOTO400
  13. 330 PC$="1"
  14. 400 INPUT"ENTER YOUR NUMBER [0 OR 1] (2=EXIT)]";PH$
  15. 402 IFPH$="2"THEN60000
  16. 410 IFPH$<>"0"ANDPH$<>"1"THEN400
  17. 500 PRINT"COMPUTER PICKED "PC$;" --- YOU PICKED ";PH$:PRINT
  18. 510 IFPC$=PH$THENTC=TC+1:PRINT"THE COMPUTER WON THIS ONE."
  19. 520 IFPC$<>PH$THENTH=TH+1:PRINT"YOU WON THIS ROUND."
  20. 530 PRINT"COMPUTER'S SCORE IS:"TC:          PRINT"YOUR SCORE IS      :"TH
  21. 540 IF(TC=100ORTH=100)THEN2000
  22. 550 HH$=HH$+PH$
  23. 560 GOTO200
  24. 1000 PRINT"[147]WOULD YOU LIKE INSTRUCTIONS?"
  25. 1002 POKE198,0:WAIT198,1:GET KEY$
  26. 1004 IFKEY$<>"N"ANDKEY$<>"Y"THEN1002
  27. 1006 IFKEY$="N"THEN 1900
  28. 1008 :
  29. 1010 PRINT"[147]"
  30. 1020 PRINT"  MATCHER IS AN EXPERIMENT IN THE "
  31. 1022 PRINT"GROWING FIELD OF COMPUTER INTELLIGENCE."
  32. 1024 PRINT"  HERE IS HOW THE EXPERIMENT IS DONE:"
  33. 1026 PRINT"THE COMPUTER PICKS EITHER A ONE OR A"
  34. 1028 PRINT"ZERO.  YOU THEN PICK EITHER A ONE OR A"
  35. 1030 PRINT"ZERO.  IF YOU BOTH PICK THE SAME THING,"
  36. 1032 PRINT"THEN THE COMPUTER GETS A POINT.  IF YOU"
  37. 1034 PRINT"PICKED DIFFERENT NUMBERS, THEN YOU GET"
  38. 1036 PRINT"A POINT.  THE FIRST TO GET 100 POINTS"
  39. 1038 PRINT"IS THE WINNER!":PRINT
  40. 1040 PRINTSPC(8)"PRESS A KEY TO CONTINUE[146]";:POKE198,0:WAIT198,1:GET KEY$
  41. 1045 PRINT"[147]  THE COMPUTER, IN AN ATTEMPT TO WIN"
  42. 1046 PRINT"THE GAME, WILL TRY TO GUESS WHAT "
  43. 1048 PRINT"NUMBER YOU WILL PICK.  THE COMPUTER'S"
  44. 1050 PRINT"DECISION IS BASED UPON YOUR PAST"
  45. 1052 PRINT"RECORD OF RESPONSE.  TRY DIFFERENT"
  46. 1054 PRINT"STYLES OF PLAYING AND SEE HOW YOU DO!"
  47. 1056 PRINT:PRINT:PRINT:PRINT:PRINT
  48. 1058 PRINTSPC(9)"PRESS A KEY TO PLAY[146]";:POKE198,0:WAIT198,1:GET KEY$
  49. 1060 :
  50. 1900 PRINT"[147]":RETURN
  51. 2000 PRINT"[147]"
  52. 2010 IFTC=100THENPRINT"THE COMPUTER WON THIS TIME..."
  53. 2020 IFTH=100THENPRINT"YOU WON WON THIS TIME..."
  54. 2030 TC=0:TH=0
  55. 2040 FORDL=1TO500:NEXTDL
  56. 2050 :
  57. 2060 PRINT"DO YOU WANT TO PLAY AGAIN?"
  58. 2070 POKE198,0:WAIT198,1:GET KEY$
  59. 2080 IFKEY$<>"Y"ANDKEY$<>"N"THEN2070
  60. 2090 IFKEY$="Y"THENPRINT"[147]":CLR:GOTO200
  61. 2100 GOTO63000
  62. 2200 :
  63. 60000 REM   QUIT?
  64. 60010 PRINT"[147]DO YOU WANT TO QUIT?"
  65. 60020 POKE198,0:WAIT198,1:GET KEY$
  66. 60030 IFKEY$<>"Y"ANDKEY$<>"N"THEN60020
  67. 60040 IFKEY$="N"THEN PRINT"[147]":GOTO200
  68. 60050 :
  69. 63000 REM   RETURN TO LS
  70. 63010 LOAD"PAYLOAD CONNECT",8
  71.