home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib14.dsk / TELE-PSYCH.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  101 lines
  1. 10  REM  **********************
  2. 11  REM  * TELE-PSYCH         *
  3. 12  REM  * BY CRAIG CROSSMAN  *
  4. 13  REM  * COPYRIGHT (C) 1983 *
  5. 14  REM  * BY MICRO-SPARC INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 20  TEXT : HOME : POKE 34,2
  9. 30 D$ =  CHR$(4)
  10. 40  DIM A$(1000)
  11. 45 NAME$ = "YOUR REPLY:"
  12. 50  PRINT D$;"NOMON I,C,O"
  13. 60  FOR I = 1 TO 3
  14. 70  READ A$(I)
  15. 80  NEXT I
  16. 90  PRINT D$;"IN#0": PRINT D$;"PR#2": FOR P = 1 TO 24: PRINT : NEXT P: PRINT D$;"IN#2": PRINT D$;"PR#0"
  17. 100  GOTO 180
  18. 110 I = I +1
  19. 120  GET A$(I)
  20. 130 R =  INT( RND(1) *6)
  21. 140  IF R = 3  THEN B = B +1: GOSUB 520
  22. 150  IF A$(I) = "*"  THEN  PRINT :B = 0: GOTO 180
  23. 160  PRINT A$(I);
  24. 170  GOTO 110
  25. 180  PRINT D$;"IN#0"
  26. 190  PRINT D$;"PR#2"
  27. 200  PRINT 
  28. 210  FOR Z = 1 TO I
  29. 220  PRINT A$(Z);
  30. 230  NEXT Z
  31. 240  PRINT 
  32. 250  PRINT NAME$
  33. 260  PRINT D$;"IN#2"
  34. 270  PRINT D$;"PR#0"
  35. 280 I = 0
  36. 290  TEXT : VTAB 1: PRINT  SPC( 80): POKE 34,2: VTAB 24
  37. 300  INPUT "AGAIN?";R$
  38. 310  IF R$ = "Y"  THEN  PRINT D$"IN#0": PRINT D$"PR#2": PRINT "I'M THINKING";: POKE 54,240: POKE 55,253: CALL 1002: PRINT : GOTO 110
  39. 320  IF  LEFT$(R$,1) = "."  THEN  GOSUB 350
  40. 330  IF R$ = "!N"  THEN  TEXT : END 
  41. 333  IF R$ = "NAME"  THEN  GOSUB 2000
  42. 340  IF R$ < >"Y"  THEN 300
  43. 350  RESTORE 
  44. 360 RR$ =  RIGHT$(R$,1)
  45. 370  PRINT D$"IN#0": PRINT D$"PR#2": PRINT "I'M THINKING";: POKE 54,240: POKE 55,253: CALL 1002: PRINT 
  46. 380  FOR AN = 1 TO 1000: READ A$(AN)
  47. 390  IF A$(AN) < >RR$  THEN  IF A$(AN) = "9999"  THEN  PRINT "NO MACRO EXISTS FOR THAT NUMBER!": RETURN 
  48. 400  IF A$(AN) < >RR$  THEN  NEXT AN
  49. 410  FOR AN = 1 TO 1000: READ A$(AN): IF  VAL(A$(AN)) = 0  THEN  NEXT AN
  50. 420  PRINT D$;"IN#0"
  51. 430  PRINT D$;"PR#2"
  52. 435  PRINT 
  53. 440  FOR Z = 1 TO AN -1
  54. 450  PRINT A$(Z);
  55. 460  NEXT Z
  56. 470  PRINT 
  57. 480  PRINT NAME$
  58. 490  PRINT D$"IN#2"
  59. 500  PRINT D$;"PR#0"
  60. 510  RETURN 
  61. 520 HT =  PEEK(36) +1
  62. 530  PRINT 
  63. 540  PRINT D$;"IN#0"
  64. 550  PRINT D$;"PR#2"
  65. 560  VTAB 1: HTAB B
  66. 570  PRINT ".";
  67. 580  POKE 54,240: POKE 55,253: CALL 1002: PRINT 
  68. 590  PRINT D$;"IN#2"
  69. 600  HTAB HT: VTAB 23
  70. 610  RETURN 
  71. 1000  REM  ***** INTRO ***********
  72. 1010  DATA  "HELLO AND WELCOME TO THE    E.L.I.Z.A.   SYSTEM.  AN AMAZING NEW ENDEAVOR IN THE REALM OF ARTIFICIAL INTELLIGENCE!      SIMPLY ASK ME ANY QUESTION YOU WISH AND I SHALL ATTEMPT TO ANSWER YOU WITH A    COHERENT REPLY!!"
  73. 1020  DATA "  EACH TIME YOU FINISH YOUR REPLY, TYPE IN AN ASTERISK (*).                                           PLEASE WAIT WHILE I ANALYZE WHAT YOU    HAVE SAID. UNDERSTAND THAT MY PURPOSE IS NOT TO ANSWER QUESTIONS LIKE AN ENCYCLOPEDIA"
  74. 1030  DATA  " BUT TO SIMULATE AND GIVE YOU THE  FEELING THAT YOU ARE CONVERSING WITH AN INTELLIGENT ENTITY!!"
  75. 1040  DATA  1
  76. 1050  DATA  "PERHAPS YOU DIDN'T UNDERSTAND. AS IO SAID IN THE      INSTRUCTIONS WHICH YOU OBVIOUSLY DIDN'T BOTHER TO READ, THAT I WAS NOT! AN ENCYCLOPEDIA, NEWSPAPER OR ANY SORT OF INFORMATION UTILITY. YOU WOULDN'T WALK UP TO A PERFECT STRAN
  77. 1060  DATA  "ASK THAT SORT OF QUESTION WOULD YOU?  YOU ASK FOR A NAME, ASK 'HOW ARE YOU' AND SET UP SOME SORT OF CONVERSATIONAL RELATIONSHIP.  WELL THIS IS NO DIFFERENT SO PLEASE TREAT ME AS YOU WOULD ANY OTHER STRANGER!!"
  78. 1070  DATA  2
  79. 1080  DATA  "THIS PROGRAM WAS NOT INTENDED TO ANSWER MATH PROBLEMS!  IF YOU WANT A MATH PROBLEM SOLVED, GET A CALCULATOR!!"
  80. 1090  DATA  3
  81. 1100  DATA  "IF I HAD A FINGER, I WOULD HOLD IT UP TO SEE WHAT THE WEATHER WAS LIKE!"
  82. 1110  DATA  4
  83. 1120  DATA  "THE PRESIDENT OF THE UNITED STATES OF AMERICA IS RONALD REAGAN."
  84. 1130  DATA  5
  85. 1140  DATA  "HOW DO YOU EXPECT ME TO KNOW THE ANSWER TO THAT     QUESTION??  I DO NOT CLAIM TO HAVE E.S.P. NOR DO I CLAIM TO BE A FORTUNE TELLER!  WHAT SHOULD AMAZE YOU IS THAT YOU ARE CONVERSING WITH SOMETHING THAT ISN'T HUMAN!!"
  86. 1150  DATA  6
  87. 1160  DATA  "HELLO THERE!  PLEASE TYPE IN YOUR FIRST NAME."
  88. 1170  DATA  7
  89. 1172  DATA  "IF YOU SEE A SPELLING ERROR, THE REASON FOR THAT     IS THAT THE PHONE LINES SOMETIMES GARBLE DATA TRANSMISSIONS"
  90. 1174  DATA  " BUT BE ASSURED THAT I SENT THE DATA WITHOUT ANY ERRORS!."
  91. 1999  DATA  9999
  92. 2000  INPUT NAME$
  93. 2002  IF NAME$ = ""  THEN NAME$ = "YOUR REPLY:": RETURN 
  94. 2004 TEMP$ = ""
  95. 2010  FOR UU = 1 TO  LEN(NAME$)
  96. 2015  IF  MID$ (NAME$,UU,1) = "*"  THEN 2030
  97. 2020 TEMP$ = TEMP$ + MID$ (NAME$,UU,1)
  98. 2025  NEXT UU
  99. 2030 NAME$ = TEMP$
  100. 2100 NAME$ = "YOUR REPLY, " +NAME$ +"?:"
  101. 2500  RETURN