home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd620 / phil_richmond / psychic_test.amos / psychic_test.amosSourceCode
AMOS Source Code  |  1986-08-03  |  8KB  |  141 lines
  1. '******************  
  2. '* PSYCHIC TEST   *
  3. '*  For  TA       *
  4. '******************
  5. '
  6. '
  7. Dim CARD$(52) : Dim ALIAS$(52)
  8. For I=1 To 52
  9. Read CARD$(I)
  10. Next I
  11. For I=1 To 52
  12. Read ALIAS$(I)
  13. Next I
  14.  
  15. '
  16. Screen Open 0,640,200,16,Hires : Curs Off : Paper 0 : Cls : Under On : Centre "PSYCHIC CARD TEST" : Under Off : Cdown 
  17. Centre "By Williams the Clairvoyant (c) 1993" : Print 
  18.  
  19. Locate 0,10 : Print "Hello, AMOS fans, Williams here - "
  20. Print "The Amazing Psychic Card Reader!"
  21.  
  22. Locate 0,17 : Input "Would you like to take part in an intriguing telepathic card test?? (y/n)";A$
  23. If A$<>"y" Then Curs Off : Locate 0,20 : Centre "OK Bye Bye" : Wait 100 : Edit 
  24.  
  25. Cls : Locate 0,10 : Input "Do you believe the future can be predicted? (y/n)";A$ : Curs Off 
  26. If A$="n" Then Locate 0,17 : Print "I have found in all psychic matters that it's best to keep an open mind."
  27. If A$="y" Then Locate 0,17 : Print "Good. I, too, am a strong believer in the psychic powers of the mind."
  28.  
  29.  
  30. Wait 250
  31. Curs Off : Cls : Locate 0,10 : Input "Are you prepared to keep an open mind for the purpose of this test? (y/n) ";A$ : Curs Off 
  32. If A$<>"y" Then Locate 0,17 : Print "Sorry, but your cooperation is vital to the success of this test. Goodbye!" : Wait 250 : Edit 
  33. Locate 0,17 : Print "Thankyou, that will help enormously." : Wait 250
  34.  
  35. Cls 
  36. Locate 0,10 : Input "Are you familiar with a pack of playing cards? (y/n)";A$ : Curs Off 
  37. If A$<>"y" Then Locate 0,17 : Print "Really?! Then I'm afraid we cannot go on. GOODBYE!" : Wait 250 : Edit 
  38. Locate 0,17 : Print "Excellent! Cards are an ideal medium for these kinds of experiments." : Wait 250
  39.  
  40.  
  41. SELECT:
  42. Cls 
  43. Locate 0,10 : Print "OK, now take a deep breath... and relax..." : Wait 250
  44. Locate 0,12 : Print "I want you to think of the pack of 52 playing cards..." : Wait 250
  45. Locate 0,14 : Print "Just imagine you have the pack in your hands..." : Wait 250
  46. Locate 0,16 : Print "Mentally fan the faces of the cards before your eyes..." : Wait 250
  47. Locate 0,18 : Print "In your mind's eye, study the suits and values of the cards before you..." : Wait 250
  48. Locate 0,20 : Print "Now mentally select one of the cards..." : Wait 250
  49. Locate 0,22 : Print "When you have decided on a card press a key..." : Wait Key 
  50.  
  51.  
  52. Cls 
  53. Locate 0,10 : Input "Have you decided on the name of a card? (y/n)";A$ : Curs Off 
  54. If A$<>"y" Then Goto SELECT
  55. Locate 0,17 : Input "Do you wish to change your mind? (y/n)";A$ : Curs Off 
  56. If A$<>"n" Then Goto SELECT
  57.  
  58. Cls 
  59. Locate 0,10 : Input "Are you satisfied with the test so far? (y/n)";A$ : Curs Off 
  60. If A$<>"y" Then Locate 0,17 : Print "Why on earth not? I can't continue in an antagonistic atmosphere!! GOODBYE." : Wait 250 : Edit 
  61. Locate 0,17 : Print "Good. Now please keep your card uppermost in your mind." : Wait 250
  62.  
  63. Cls 
  64. Locate 0,10 : Input "Are you happy that you had a free choice of a card? (y/n)";A$ : Curs Off 
  65. If A$<>"y" Then Locate 0,17 : Print "No? Well OK ... Please try again." : Wait 200 : Goto SELECT
  66. Locate 0,12 : Input "You could have chosen any card you desired. That is true isn't it? (y/n)";A$ : Curs Off 
  67. If A$<>"y" Then Locate 0,17 : Print "You are obviously not a good subject then for this test. GOODBYE!" : Wait 250 : Edit 
  68. Locate 0,14 : Input "In fact nobody, not even you, could have known the card you would choose.       Am I right? (y/n)";A$ : Curs Off 
  69. If A$<>"y" Then Locate 0,17 : Print "You sure are hard to work with... GOODBYE!" : Wait 250 : Edit 
  70. Locate 0,17 : Input "So everything has been fair and above board, hasn't it? (y/n)";A$ : Curs Off 
  71. If A$<>"y" Then Locate 0,20 : Print "Well I'm sorry you disagree! I can't work with you...GOODBYE!" : Wait 250 : Edit 
  72. Locate 0,19 : Print "Keep the image of the card in your mind...." : Wait 250
  73.  
  74. Cls 
  75. Locate 0,10 : Print "You're doing very well." : Wait 250
  76. NAME:
  77. Locate 0,12 : Print "Would you please type in the name of your card."
  78. Locate 0,13 : Input "eg. three of spades or jack of clubs etc> ";A$ : A$=Lower$(A$) : Curs Off 
  79. For I=1 To 52
  80. If A$=CARD$(I) Then OK=1 : CHOSEN=I : Exit 
  81. Next I
  82. If OK=0 Then Locate 0,15 : Print "OOPS! That is not an acceptable card name!" : Wait 250 : Cls : Goto NAME
  83. Locate 0,15 : Print "Thanks. It would be more friendly if I also knew your first name."
  84. CHRISTIAN:
  85. Locate 0,16 : Input "Please type in your Christian name.> ";A$ : A$=Lower$(A$) : A$=Upper$(Mid$(A$,1,1))+Mid$(A$,2) : Curs Off 
  86. If A$="" Then Locate 0,16 : Cline : Cup : Goto CHRISTIAN
  87.  
  88.  
  89. Cls 
  90. Locate 0,10 : Print "Pleased to make your aquaintance "+A$+"."
  91. Locate 0,11 : Print "I'm "+ALIAS$(CHOSEN)+" "+"Williams, the Amazing Psychic Card Reader."
  92. Locate 0,14 : Print "Allright "+A$+","+" You freely chose the "+CARD$(CHOSEN)+"." : Wait 250
  93. Locate 0,16 : Print "And, I, "+ALIAS$(CHOSEN)+" Williams, the Amazing Psychic Card Reader"
  94. Locate 0,17 : Print "did not influence your choice in any way, shape or form." : Wait 250
  95. Locate 0,19 : Print "OK "+A$+"."+" Let me show you proof of my strange mental ability.." : Wait 250
  96.  
  97. Cls 
  98. Locate 0,10 : Print "I know I'm mental because people are always telling me so." : Wait 250
  99. Locate 0,12 : Print "Strange "+ALIAS$(CHOSEN)+" that's what they call me!" : Wait 250
  100. Locate 0,14 : Print "I always knew I had half a mind to be a mindreader - and I had!" : Wait 250
  101. Locate 0,16 : Print "Seriously though, I, "+ALIAS$(CHOSEN)+" Williams, mentalist extraordinaire"
  102. Locate 0,17 : Print "will give you concrete evidence of my divinatory abilities." : Wait 250
  103. Locate 0,19 : Print "I will provide visual proof of my prognostication that will astound you!!"
  104. Locate 0,20 : Print "Nostradamus, move over. "+ALIAS$(CHOSEN)+" Williams, the Amazing is here!" : Wait 350
  105.  
  106. Cls 
  107. Locate 0,10 : Print "My prediction, "+A$
  108. Locate 0,11 : Print "will be announced by another AMOS program on this disk."
  109. Locate 0,12 : Print "The program is called - Revelation.AMOS" : Wait 350
  110. Locate 0,14 : Print "When you run this program you will be asked a few simple questions"
  111. Locate 0,15 : Print "to verify that you have taken part in this Psychic Card Test." : Wait 350
  112. Locate 0,17 : Print "Then my prediction will be revealed!!" : Wait 250
  113. Locate 0,19 : Print "Hopefully it will be the "+CARD$(CHOSEN)+", your selection." : Wait 250
  114.  
  115. Cls 
  116. Locate 0,10 : Print "Well "+A$+", Thankyou for taking part in the test."
  117. Locate 0,11 : Print "I've enjoyed your company very much." : Wait 250
  118. Locate 0,13 : Print "If, when you verify my prediction, it is found to be correct,"
  119. Locate 0,14 : Print "you will be a living testament to the amazing psychic powers of"
  120. Locate 0,15 : Print ALIAS$(CHOSEN)+" Williams, Futurologist and Psychic Card Reader!" : Wait 450
  121. Locate 0,17 : Print "Now Load and Run - Revelation.AMOS"
  122. Locate 0,18 : Print "In case you think there is any communication between the 2 programs"
  123. Locate 0,19 : Print "you are quite at liberty to reset your Amiga and reboot with AMOS"
  124. Locate 0,20 : Print "before running the Revelation.AMOS program." : Wait Key : Edit 
  125.  
  126.  
  127.  
  128.  
  129.  
  130. Data "ace of clubs","two of clubs","three of clubs","four of clubs","five of clubs","six of clubs","seven of clubs","eight of clubs","nine of clubs"
  131. Data "ten of clubs","jack of clubs","queen of clubs","king of clubs"
  132. Data "ace of hearts","two of hearts","three of hearts","four of hearts","five of hearts","six of hearts","seven of hearts","eight of hearts","nine of hearts"
  133. Data "ten of hearts","jack of hearts","queen of hearts","king of hearts"
  134. Data "ace of spades","two of spades","three of spades","four of spades","five of spades","six of spades","seven of spades","eight of spades","nine of spades"
  135. Data "ten of spades","jack of spades","queen of spades","king of spades"
  136. Data "ace of diamonds","two of diamonds","three of diamonds","four of diamonds","five of diamonds","six of diamonds","seven of diamonds","eight of diamonds","nine of diamonds"
  137. Data "ten of diamonds","jack of diamonds","queen of diamonds","king of diamonds"
  138. Data "Sam","Sally","Chris","Sarah","Sharon","Stan","Sean","Steve","Susan","Shona","Sheena","Stewart","Sherry"
  139. Data "Spencer","Bill","Bob","Jack","Philip","James","Jim","Don","Richard","Claire","Tabitha","Ian","Joan"
  140. Data "Ivor","Kevin","Paul","Clark","Morris","Mona","Harriet","Dougal","Maureen","Moira","Will","Peter","Simon"
  141. Data "Mel","Frank","Colin","Dee","Robert","Roberta","Lucy","John","Tony","Maisy","Cliff","David","Graham"