home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / games / purity.el < prev    next >
Encoding:
Text File  |  1990-03-21  |  66.0 KB  |  1,471 lines
  1. ;From uakari!indri!ames!apple!rutgers!aramis.rutgers.edu!athos.rutgers.edu!mende Tue Jul 18 05:54:12 PDT 1989
  2. ;Article 69 of comp.emacs:
  3. ;Path: ark1!uakari!indri!ames!apple!rutgers!aramis.rutgers.edu!athos.rutgers.edu!mende
  4. ;>From: mende@athos.rutgers.edu (Bob Mende)
  5. ;Newsgroups: gnu.emacs,comp.emacs,alt.sex
  6. ;Subject: purity.el (part 1)
  7. ;Message-ID: <Jul.17.23.59.43.1989.20914@athos.rutgers.edu>
  8. ;Date: 18 Jul 89 04:00:08 GMT
  9. ;Organization: Rutgers Univ., New Brunswick, N.J.
  10. ;Lines: 603
  11. ;Xref: ark1 gnu.emacs:44 comp.emacs:69
  12. ;
  13. ;Since I have had over 100 requests for this, I am posting it.... enjoy.
  14. ;please replace the following three characters
  15. ;
  16. ;<DEL> with a real delete
  17. ;<CTRL-C> with a real ctrl-c
  18. ;<CTRL-S> with a real ctrl-s
  19. ;
  20. ;;
  21. ;;  Purity.el    Emacs lisp program to administer the purity test.
  22. ;;               Robert Mende (mende@aramis.rutgers.edu)
  23. ;;               5/5/89
  24. ;;
  25. ;; This file is not offically part of GNU Emacs, but can be if FSF wishes
  26. ;; it to be so.  Distributed under the GNU copyleft.
  27.  
  28. ;; GNU Emacs is distributed in the hope that it will be useful,
  29. ;; but WITHOUT ANY WARRANTY.  No author or distributor
  30. ;; accepts responsibility to anyone for the consequences of using it
  31. ;; or for whether it serves any particular purpose or works at all,
  32. ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  33. ;; License for full details.
  34.  
  35. ;; Everyone is granted permission to copy, modify and redistribute
  36. ;; GNU Emacs, but only under the conditions described in the
  37. ;; GNU Emacs General Public License.   A copy of this license is
  38. ;; supposed to have been given to you along with GNU Emacs so you
  39. ;; can know your rights and responsibilities.  It should be in a
  40. ;; file named COPYING.  Among other things, the copyright notice
  41. ;; and this notice must be preserved on all copies.
  42.  
  43. (setq purity-test-extra-buffer "*Hit Space Bar To Continue*")
  44.  
  45. (defvar purity-test-save-file
  46.   (concat (getenv "HOME") "/.purity-test.save.el")
  47.   "*file to save purity test saves in")
  48.  
  49. (defvar purity-test-mode-map (make-sparse-keymap)
  50.   "the keymap used while adminstering the purity test")
  51.  
  52. (defconst purity-test-backup-size 20
  53.   "*Number of questions that can be backed up")
  54.  
  55. (defun purity-test-hold-question (question answer section section-text)
  56.   (cond ((>= (length purity-test-backup-ring) 
  57.         purity-test-backup-size)
  58.      (setcdr (nthcdr (- purity-test-backup-size 2)
  59.              purity-test-backup-ring)
  60.          nil)))
  61.   (setq purity-test-backup-ring (cons (list question answer 
  62.                         section section-text)
  63.                       purity-test-backup-ring))
  64.   purity-test-backup-ring)
  65.  
  66. (defun purity-test-backup ()
  67.   "Backup up one question (or many times)"
  68. ;; this is fun!!!  (pseudo code)
  69. ;pop off first element
  70. ;is it in the same section
  71. ;    yes:
  72. ;    cons question onto section-questions
  73. ;    no:
  74. ;    cons section-text then section name to section question
  75. ;    then cons section question onto questions
  76. ;    then make a install new section name/text
  77. ;    create new section-questions with this question
  78. ;was this a yes answer
  79. ;    yes:
  80. ;    subtract one from the score
  81. ;call next question
  82. ;;
  83.   (interactive)
  84.   (cond 
  85.    ((not (consp purity-test-backup-ring))
  86.     (message "No more backup information available")
  87.     (ding)
  88.     (sit-for 1))
  89.    (t
  90.     (let ((question-text (car (car purity-test-backup-ring)))
  91.       (question-answer (car (cdr (car purity-test-backup-ring))))
  92.       (section-name (car (cdr (cdr (car purity-test-backup-ring)))))
  93.       (section-text (car (cdr (cdr (cdr (car purity-test-backup-ring)))))))
  94.       (setq purity-test-backup-ring (cdr purity-test-backup-ring))
  95.       (setq purity-test-section-questions
  96.         (cons purity-test-questions-text purity-test-section-questions))
  97.       (cond 
  98.        ((string-equal section-name purity-test-section-name)
  99.     (setq purity-test-section-questions 
  100.           (cons question-text purity-test-section-questions)))
  101.        (t
  102.     (message (concat "backing into " section-name "."))
  103.     (sit-for 1)
  104.     (message "")
  105.     (setq purity-test-section-questions 
  106.           (cons purity-test-section-text purity-test-section-questions))
  107.     (setq purity-test-section-questions 
  108.           (cons purity-test-section-name purity-test-section-questions))
  109.     (setq purity-test-questions
  110.           (cons purity-test-section-questions purity-test-questions))
  111.     (setq purity-test-section (1- purity-test-section))
  112.     (setq purity-test-section-name section-name)
  113.     (setq purity-test-section-text section-text)
  114.     (setq purity-test-section-questions 
  115.           (list question-text))))
  116.       (setq purity-test-question (- purity-test-question 2))
  117.       (setq purity-test-question-text (prin1-to-string purity-test-question))
  118.       (cond (question-answer
  119.          (setq purity-test-score (1- purity-test-score))))
  120.       (purity-test-next-question)))))
  121.  
  122. (defun purity-test-yes ()
  123.   "I have done this"
  124.   (interactive)
  125.   (setq purity-test-score (1+ purity-test-score))
  126.   (purity-test-hold-question purity-test-questions-text
  127.                  t
  128.                  purity-test-section-name
  129.                  purity-test-section-text)
  130.   (purity-test-next-question))
  131.  
  132. (defun purity-test-no ()
  133.   "I have not done this"
  134.   (interactive)
  135.   (purity-test-hold-question purity-test-questions-text
  136.                  nil
  137.                  purity-test-section-name
  138.                  purity-test-section-text)
  139.   (purity-test-next-question))
  140.  
  141. (defun purity-test-display (header question)
  142.   (setq buffer-read-only nil)
  143.   (erase-buffer)
  144.   (goto-char 0)
  145.   (if (not (null header))
  146.       (insert header "
  147.  
  148. "))
  149.   (insert question)
  150.   (goto-char 0)
  151.   (setq buffer-read-only t))
  152.  
  153. (defun purity-test-pop-up (header question)
  154.   (save-excursion
  155.     (save-restriction
  156.       (switch-to-buffer (get-buffer-create purity-test-extra-buffer))
  157.       (purity-test-display header question)
  158.       (view-buffer purity-test-extra-buffer)
  159.       (setq buffer-read-only nil)
  160.       (erase-buffer)
  161.       (setq buffer-read-only t)
  162.       (discard-input))))
  163.  
  164. (defun purity-test-next-question ()
  165.   (setq purity-test-question (1+ purity-test-question))
  166.   (setq purity-test-question-text (prin1-to-string purity-test-question))
  167.   (cond ((and (null purity-test-section-questions)
  168.           (null purity-test-questions))
  169.      (setq purity-test-question (1- purity-test-question))
  170.      (setq purity-test-question-text (prin1-to-string purity-test-question))
  171.      (purity-test-display-score)
  172.      (purity-test-done))
  173.     (t
  174.      (cond ((null purity-test-section-questions)
  175.         (setq purity-test-section (1+ purity-test-section))
  176.         (setq purity-test-section-questions (car purity-test-questions))
  177.         (setq purity-test-section-name (car purity-test-section-questions))
  178.         (setq purity-test-section-questions (cdr purity-test-section-questions))
  179.         (setq purity-test-section-text (car purity-test-section-questions))
  180.         (setq purity-test-section-questions (cdr purity-test-section-questions))
  181.         (setq purity-test-questions (cdr purity-test-questions))
  182.         (purity-test-describe-section)
  183.         (discard-input)))
  184.      (setq purity-test-questions-text (car purity-test-section-questions))
  185.  
  186.      (purity-test-display "Have you ever:" purity-test-questions-text)
  187.      (setq purity-test-section-questions (cdr purity-test-section-questions)))))
  188.  
  189. (defun purity-test-describe-section ()
  190.   (interactive)
  191.   (purity-test-pop-up (concat "Section "
  192.                   (prin1-to-string purity-test-section)
  193.                   "    "
  194.                   purity-test-section-name)
  195.               purity-test-section-text))
  196.  
  197.  
  198. (defun purity-test-quit ()
  199.   "quit purity test with option to save"
  200.   (interactive)
  201.   (cond ((y-or-n-p "Are you sure you want to quit the purity test? ")
  202.      (cond ((y-or-n-p "Save current status of test? ")
  203.         (purity-test-save)))
  204.      (setq purity-test-question (1- purity-test-question))
  205.      (setq purity-test-question-text (prin1-to-string purity-test-question))
  206.      (purity-test-display-score)
  207.      (purity-test-done)))
  208.   (message ""))
  209.  
  210. (defun purity-test-done ()
  211.   (fundamental-mode)
  212.   (setq buffer-read-only t)
  213.   (kill-buffer purity-test-extra-buffer))
  214.  
  215. (defun purity-test-current-score ()
  216.   (interactive)
  217.   (save-excursion
  218.     (save-restriction
  219.       (setq purity-test-question (1- purity-test-question))
  220.       (setq purity-test-question-text (prin1-to-string purity-test-question))
  221.       (switch-to-buffer (get-buffer-create purity-test-extra-buffer))
  222.       (purity-test-display-score)
  223.       (view-buffer purity-test-extra-buffer)
  224.       (setq buffer-read-only nil)
  225.       (erase-buffer)
  226.       (setq buffer-read-only t)
  227.       (setq purity-test-question (1+ purity-test-question))
  228.       (setq purity-test-question-text (prin1-to-string purity-test-question))
  229.       (discard-input))))
  230.  
  231. (defun purity-test-display-score ()
  232.   (setq buffer-read-only nil)
  233.   (erase-buffer)
  234.   (goto-char 0)
  235.   (insert "You answered yes to ")
  236.   (insert (prin1-to-string purity-test-score))
  237.   (insert " questions out of ")
  238.   (insert purity-test-question-text)
  239.   (insert".
  240.  
  241. This is a score of: ")
  242.   (cond ((zerop purity-test-question)
  243.      (insert "---"))
  244.     ((= purity-test-score purity-test-question)
  245.      (insert "0%"))
  246.     (t
  247.      (insert (prin1-to-string (/ (* (- purity-test-question
  248.                        purity-test-score)
  249.                     10000)
  250.                      purity-test-question)))
  251.      (backward-char 2)
  252.      (insert ".")
  253.      (forward-char 2)
  254.      (insert "%")))
  255.   (goto-char 0)
  256.   (setq buffer-read-only t))
  257.  
  258. (defun purity-test-save ()
  259.   "Save current status for taking purity test onto disk."
  260.   (interactive)
  261.   (set-buffer (create-file-buffer purity-test-save-file))
  262.   (erase-buffer)
  263.   (insert "(setq purity-test-SAVE-versionID \"" 
  264.       purity-test-versionID
  265.       "\")
  266. ")
  267.   (insert "(setq purity-test-SAVE-question "
  268.       purity-test-question-text
  269.       ")
  270. ")
  271.   (insert "(setq purity-test-SAVE-score "
  272.       (prin1-to-string purity-test-score)
  273.       ")
  274. ")
  275.   (cond ((file-exists-p purity-test-save-file)
  276.      (set-file-modes purity-test-save-file 128)
  277.      (delete-file purity-test-save-file)))
  278.   (write-file purity-test-save-file)
  279.   (set-file-modes purity-test-save-file 256) ;; -r--------
  280.   (kill-buffer (buffer-name))
  281.   (set-buffer "*Purity Test*"))
  282.  
  283. (defun purity-test-restore ()
  284.   "restore a saved purity test session"
  285.   (interactive)
  286.   (cond ((not (file-exists-p purity-test-save-file))
  287.      (purity-test-pop-up "Error restoring save file"
  288.                  (concat purity-test-save-file
  289.                      " not found.")))
  290.     (t
  291.      (load-file purity-test-save-file)
  292.      (cond ((not (string-equal purity-test-versionID
  293.                    purity-test-SAVE-versionID))
  294.         (purity-test-pop-up "Error restoring save file"
  295.                     (concat "The saved file is for questions identified as \""
  296.                         purity-test-SAVE-versionID
  297.                         "\"
  298. while the questions of this test are \""
  299.                         purity-test-versionID
  300.                         ".")))
  301.            (t
  302.         (message "restoring ... ")
  303.         (cond ((purity-test-skip-to purity-test-SAVE-question)
  304.                (setq purity-test-question (1- purity-test-question))
  305.                (setq purity-test-question-text (prin1-to-string purity-test-question))
  306.                (setq purity-test-score purity-test-SAVE-score)
  307.                (set-file-modes purity-test-save-file 128)
  308.                (delete-file purity-test-save-file)
  309.                (message "restoring ... done")
  310.                (purity-test-next-question))
  311.               (t
  312.                (purity-test-pop-up "Error restoring save file"
  313.                        (concat "Could not skip to question "
  314.                            (prin1-to-sting purity-test-SAVE-question))))))))))
  315.                
  316.  
  317. (defun purity-test-skip-to (question-goal)
  318.   (let ((purity-test-R-section 0)
  319.     (purity-test-R-section-name "")
  320.     (purity-test-R-section-text "")
  321.     (purity-test-R-section-questions ())
  322.     (purity-test-R-question 1)
  323.     (purity-test-R-questions-text "")
  324.     (purity-test-R-questions (cdr (purity-test-init-questions)))
  325.     (cant-find nil))
  326.     (while (and (< purity-test-R-question question-goal)
  327.         (not cant-find))
  328.       (setq purity-test-R-question (1+ purity-test-R-question))
  329.       (cond ((and (null purity-test-R-section-questions)
  330.           (null purity-test-R-questions))
  331.          (setq cant-find t))
  332.         (t
  333.          (cond ((null purity-test-R-section-questions)
  334.             (setq purity-test-R-section (1+ purity-test-R-section))
  335.             (setq purity-test-R-section-questions (car purity-test-R-questions))
  336.             (setq purity-test-R-section-name (car purity-test-R-section-questions))
  337.             (setq purity-test-R-section-questions (cdr purity-test-R-section-questions))
  338.             (setq purity-test-R-section-text (car purity-test-R-section-questions))
  339.             (setq purity-test-R-section-questions (cdr purity-test-R-section-questions))
  340.             (setq purity-test-R-questions (cdr purity-test-R-questions))))))
  341.       (setq purity-test-R-questions-text (car purity-test-R-section-questions))
  342.       (setq purity-test-R-section-questions (cdr purity-test-R-section-questions)))
  343.     (cond (cant-find
  344.        nil)
  345.       (t
  346.        (setq purity-test-section purity-test-R-section)
  347.        (setq purity-test-section-name purity-test-R-section-name)
  348.        (setq purity-test-section-text purity-test-R-section-text)
  349.        (setq purity-test-section-questions purity-test-R-section-questions)
  350.        (setq purity-test-question purity-test-R-question)
  351.        (setq purity-test-questions-text purity-test-R-questions-text)
  352.        (setq purity-test-questions purity-test-R-questions)
  353.        t))))
  354.  
  355. (defun purity-test-mode ()
  356.   "Major mode to administer the purity test.    Keys are:
  357. \\{purity-test-mode-map}"
  358.   (use-local-map purity-test-mode-map)
  359.   (define-key purity-test-mode-map " " 'purity-test-yes)
  360.   (define-key purity-test-mode-map "?" 'describe-mode)
  361.   (define-key purity-test-mode-map "S" 'purity-test-save)
  362.   (define-key purity-test-mode-map "R" 'purity-test-restore)
  363.   (define-key purity-test-mode-map "b" 'purity-test-backup)
  364.   (define-key purity-test-mode-map "c" 'purity-test-current-score)
  365.   (define-key purity-test-mode-map "d" 'purity-test-describe-section)
  366.   (define-key purity-test-mode-map "e" 'purity-test-definitions)
  367.   (define-key purity-test-mode-map "h" 'purity-test-history)
  368.   (define-key purity-test-mode-map "i" 'purity-test-instructions)
  369.   (define-key purity-test-mode-map "l" 'purity-test-liability)
  370.   (define-key purity-test-mode-map "n" 'purity-test-no)
  371.   (define-key purity-test-mode-map "s" 'purity-test-scoring)
  372.   (define-key purity-test-mode-map "t" 'purity-test-title)
  373.   (define-key purity-test-mode-map "q" 'purity-test-quit)
  374.   (define-key purity-test-mode-map "w" 'purity-test-warranty)
  375.   (define-key purity-test-mode-map "y" 'purity-test-yes)
  376.   (define-key purity-test-mode-map "" 'purity-test-no)
  377.   (define-key purity-test-mode-map "\C-x<CTRL-C>" 'purity-test-quit)
  378.   (define-key purity-test-mode-map "\C-x<CTRL-S>" 'purity-test-save)
  379.   (setq mode-name "Purity Test")
  380.   (setq major-mode 'purity-test-mode)
  381.   (setq mode-line-format '(""
  382.                mode-name
  383.                " question "
  384.                purity-test-question-text
  385.                "    "
  386.                purity-test-section-name)))
  387.  
  388. (defun purity-test ()
  389.   (interactive)
  390.   (switch-to-buffer (get-buffer-create "*Purity Test*"))
  391.   (setq buffer-read-only nil)
  392.   (erase-buffer)
  393.   (goto-char 0)
  394.   (kill-all-local-variables)
  395.   (setq buffer-read-only t)
  396.   (setq purity-test-backup-ring ())
  397.   (setq purity-test-score 0)
  398.   (setq purity-test-section 0)
  399.   (setq purity-test-section-name "")
  400.   (setq purity-test-section-text "")
  401.   (setq purity-test-section-questions ())
  402.   (setq purity-test-question 0)
  403.   (setq purity-test-question-text "")
  404.   (setq purity-test-questions-text "")
  405.   (setq purity-test-questions (purity-test-init-questions))
  406. ;;  (setq purity-test-questions (purity-test-test-questions))
  407.   (setq purity-test-versionID (car purity-test-questions))
  408.   (setq purity-test-questions (cdr purity-test-questions))
  409.   (purity-test-mode)
  410.   (purity-test-title)
  411.   (purity-test-instructions)
  412.   (cond ((file-exists-p purity-test-save-file)
  413.      (cond ((y-or-n-p "You have a saved test in progress.  Resume it? ")
  414.         (purity-test-restore))
  415.            (t
  416.         (purity-test-next-question))))
  417.     (t
  418.      (purity-test-next-question))))
  419.  
  420.  
  421. (defun purity-test-definitions ()
  422.   (interactive)
  423.   (purity-test-pop-up "Definitions"
  424. "All questions in this test pertain to events that have happened to you
  425. subsequent to your weaning and babyhood/infancy.  Anything that may have
  426. happened before that time is considered not standing and void.
  427.  
  428. The term mutual masturbation refers to someone masturbating you AND/OR you
  429. masturbating someone else, not exclusively both at the same time.
  430.  
  431. We would also like to define having sex in the homosexual case; homosexual sex
  432. has occurred when both partners are of the same sex and one of the partners has
  433. an orgasm while there is some contact between the genitals of both partners.
  434.  
  435. We would now like to bring to your attention that there is no passing nor
  436. failing score.  Therefore, one really shouldn't worry too much about getting a
  437. high score...  even if you do get giggled at for the rest of your life.
  438.                        --- ALL TECHNICALITIES COUNT ---
  439. "))
  440.  
  441. (defun purity-test-history ()
  442.   (interactive)
  443.   (purity-test-pop-up "Purity Test Genesis/History:"
  444. "Version 1 (100) Created at MIT's Baker House.  Two parallel versions; one for
  445.                 male, and one for female.  Not much is known about this
  446.                 version.  It was ported to CMU by ps in 1982.
  447. Version 2 (247) Spring 1983 - CMU/jb, pd, kr, ps, ts, mt, et al.
  448.                 Expanded to 247 questions.  This marked the beginning of
  449.                 the unisex versions. The story goes that they intended it to be
  450.                 250 questions, but got tired that night and said  'we'll  think
  451.                 of three more tomorrow', and tomorrow never got there.
  452. Version 3.3C.1 (400) on 05-Dec-1984
  453.                 First  formal  release  general of this test, version 3.xx. All
  454.                 former versions were short-lived and tended to be bug-ridden.
  455.                 Does not discriminate against gays or bi's. Good correspondence
  456.                 of  scores (especially in the higher score ranges) between this
  457.                 version and version 2. Added Genesis/History section.
  458. Version 3.4 (400) on 29-Jan-1985
  459.                 Internal version;  never  released.  Source  code  accidentally
  460.                 destroyed,  much  to  the  consternation of one of the authors.
  461.                 Cleaned up many bugs. Added sections: Disclaimer of  Liability,
  462.                 Instructions for Use, Scoring, and Warranty Information.
  463. Version 3.5 (400) on 10-Apr-1985
  464.                 Rebuilt from the 3.3C.1 source and the 3.4 (only surviving
  465.                 copy) Xerox X9700 laser printer hardcopy.  Cleaned up same bugs
  466.                 in 3.4; wiped out a duplicate question.  Added in verbose
  467.                 history section.
  468. Version 3.5A (400) on 13-Apr-1985:  CMU/da, fa, tc, no, dt, sv, rz, et al
  469.                 Found  that  we  had  431  questions  instead  of 400.
  470. Version 3.5B (400) on 18-Mar-1986: Yale (Pierson College)/ as
  471.                 Intermediate release, with footnotes integrated into main body
  472.                 of text and some grammatical errors cleaned up.  Begun in
  473.                 Fall, 1985; finished in April for the benefit of a friend at
  474.                 MIT (where it all began), who hadn't seen any versions except
  475.                 the antique Version 1.
  476. Version 3.5C (400) on 17-Jan-1988: Yale (Pierson College)/mmd (CLARINET@YALEVM)
  477.                 Grammatical errors corrected.  Introduction and history
  478.                 cleaned up.
  479. Version 4.0 (500) on 23-April-1988: Yale (Silliman College)/dfc, ad, dcg, mlm,
  480.                 and Dartmouth (Alpha Theta)/alb.  Original 400-question version
  481.                 expanded to 500 questions.
  482. Version 4.1 (500) in 1989 jkm and gwe from Univ. of Kentucky converted version
  483.                 4.0 to LaTeX
  484. Version 4.1A (500) on 5-4-1989: Rutgers/rgm.   Version 4.0 converted into GNU
  485.                 emacs lisp."))
  486.  
  487. (defun purity-test-instructions ()
  488.   (interactive)
  489.   (purity-test-pop-up "Instructions for Use:"
  490. "This is a fairly long test consisting of five hundred questions.  It starts out
  491. tame and gets progressively worse (or better, depending on your viewpoint).
  492. There are many ways of going about taking this test.  You can, of course, as
  493. your right, guaranteed by the Constitution, be anti-social and sequester
  494. yourself in your room and take this test all by yourself; however, we feel that
  495. the funnest way to utilize this test is to hold a Purity Test Party.  All you
  496. need is one copy of the test, and a bunch of friends.  (Lots of writing
  497. implements and paper would be useful too.)  The person with the copy of the
  498. test is the test administrator; s/he readsd the questions out loud and
  499. everybody else writes down their answers.  We have no definite rules as to
  500. whether the participants are required to divulge their answers; that is up to
  501. the group to decide.  However, each person's purity score should be made common
  502. knowledge.  (The person with the highest score gets to be giggled at for the
  503. rest of his/her life.)  This works great at parties and lets everybody know
  504. who's easy and who isn't, so you'll know who to go home with.  Don't leave home
  505. without it."))
  506.  
  507. (defun purity-test-liability ()
  508.   (interactive)
  509.   (purity-test-pop-up "Disclaimer of Liability"
  510. "The user of this test acknowledges that sex is a hazardous sport; that a person
  511. must copulate in control, and use good judgement at all times; that partners'
  512. conditions vary constantly and are greatly affected by weather changes and
  513. previous use; and that dirty sheets, variations in terrain and bed surfaces,
  514. spouses/pimps/managers, forest growth, rocks and debris, clothed obstacles, and
  515. many other natural and man-made obstacles and hazards, including other users
  516. and customers, exist throughout the bedroom area.  Personal managers
  517. (pimps/spouses) and sado-masochistic operations and equipment are constantly in
  518. use and may be hazardous to those not copulating in control.  Impotence,
  519. collisions, and social diseases resulting in injury can happen at any time,
  520. even to those copulating in control with proper sexual equipment.  Inherent
  521. risks are part of the sport and may exist within your partner.  As a condition
  522. of being permitted to use the facilities of your partner, the user of this test
  523. agrees to copulate in control and within the limits of his/her ability, and
  524. further acknowledges and accepts these hazards, dangers, and risks and assumes
  525. the risk of injury or loss to person or damage to property which might result
  526. from use of the partner's facilities.
  527.  
  528. As a further condition of being permitted to use the facilities of your
  529. partner, the customer understands and agrees that:  
  530. (1)     In the event of a transfer of use by another or anything else in the
  531.     management's opinion is misconduct, misuse, kinky, impotence, or
  532.     nuisance, this service may be revoked without refund. 
  533. (2)    the partner is the property of the harem and, upon request,
  534.     s/he must be presented to any authorized representative of the 
  535.     pimp/spouse.
  536. (3)    sexual equipment must be visibly displayed at all times when you
  537.     are in any bedroom and when approaching the bed to copulate.  Your
  538.     sexual partner is not transferable; see Theft of Services, V.S.A.,
  539.     sections 2581 and 2582."))
  540.  
  541. (defun purity-test-scoring ()
  542.   (interactive)
  543.   (purity-test-pop-up "Scoring"
  544. "In this version of the purity test, emacs will do all the math for you.
  545. But, if you had taken this test the old fashion way, you would have to
  546. follow these directions.
  547.  
  548. Congratulations!  You are now the proud owner of a sheet of paper containing
  549. lots of itty-bitty answers to the Purity Test.  Sworn to excellence of
  550. workmanship, we now give you directions on how to calculate your Purity score.
  551. There are several methods; the calculator method works best.  Also there is the
  552. a la mainframe method.  (A DECsystem-2060 works great as a PC.)
  553.  
  554. Scoring method:  Count 'yes' answers.
  555.                  Subtract that number from 500.
  556.                  Divide the result by 5.
  557.                  The result is your percentage purity.
  558.  
  559. The higher the number, the more pure you are; in the same vein, the lower the
  560. score, the more of a sleaze-bag you are.
  561.  
  562. For your reference, we include calculator directions:
  563.      For people with real calculators (HP):
  564.                <# of NO answers> [ENTER] 5 /
  565.      For people with other (dinky) calculators:
  566.                <# of NO answers> / 5 ="))
  567.  
  568. (defun purity-test-title ()
  569.   (interactive)
  570.   (purity-test-pop-up
  571. "                            THE UNISEX, OMNISEXUAL
  572.                             P U R I T Y    T E S T"
  573. "                             Version 4.0A (500)
  574.                  GNU Emacs Lisp Version
  575.                                  5-May-1989
  576.  
  577. Public domain; no copyright.  All rights wronged, all wrongs reversed.  Up with
  578. going down.  The risen flesh commands:  let there be love.  Murphy's law on
  579. sex:  Love is a matter of chemistry; sex is a matter of physics.  Chaste makes
  580. waste.  Virginity can be cured.
  581.  
  582. This document was not sponsored by the Department of Defense Advanced Research
  583. Projects Agency, and was not monitored by the Air Force Avionics Laboratory.
  584. The views and conclusions contained in this document should not be interpreted
  585. as representing the official policies, either expressed or implied, of the
  586. Defense Advanced Projects Agency or the US Government.  Neither should it be
  587. interpreted nor inferred that the authors/contributors have actually performed
  588. any of the actions contained herein.
  589.  
  590.          Hit '?' For instructions on how to take the test
  591.  
  592.                        --- ALL TECHNICALITIES COUNT ---
  593. "))
  594.  
  595. (defun purity-test-warranty ()
  596.   (interactive)
  597.   (purity-test-pop-up "Warranty Information"
  598. "We  hope that you enjoy this test. It does not come with a warranty, nor
  599. does it guarantee that it will get you laid or make you somehow somewhat better
  600. in bed or the haystack.
  601. The makers of this test are not responsible  for  any  liabilities  or  damages
  602. resulting from this test, including but not limited to paternity suits.  Ask
  603. your doctor or pharmacist.
  604. Do not open back panel; no user serviceable parts inside.
  605. Propagate (this test) at will, even without the written permission of the
  606. publisher; just don't edit or change it.  In reproducing this test, the authors
  607. of this test may exercise droit de seigneur over you, your immediate family, or
  608. fiance(e).  You may or may not have additional rights which may vary from state
  609. to state (i.e. inebriated, ecstacy).
  610. Not recommended for children under twelve.  Parental guidance discouraged and
  611. frowned upon.  Pencils, additional paper, and  batteries not included.  Some
  612. assembly may be required.  Does not come with any other figures.
  613.  
  614. Drive carefully; 90% of the people in the world are caused by accidents."))
  615. ;-- 
  616. ;
  617. ;
  618. ;From uakari!indri!ames!apple!rutgers!aramis.rutgers.edu!athos.rutgers.edu!mende Tue Jul 18 05:53:54 PDT 1989
  619. ;Article 68 of comp.emacs:
  620. ;Path: ark1!uakari!indri!ames!apple!rutgers!aramis.rutgers.edu!athos.rutgers.edu!mende
  621. ;>From: mende@athos.rutgers.edu (Bob Mende)
  622. ;Newsgroups: gnu.emacs,comp.emacs,alt.sex
  623. ;Subject: purity.el (part 2)
  624. ;Message-ID: <Jul.17.23.48.37.1989.20841@athos.rutgers.edu>
  625. ;Date: 18 Jul 89 03:48:39 GMT
  626. ;Organization: Rutgers Univ., New Brunswick, N.J.
  627. ;Lines: 839
  628. ;Xref: ark1 gnu.emacs:43 comp.emacs:68
  629. ;
  630. ;here is part two....  the questions...
  631.  
  632.  
  633. (defun purity-test-test-questions ()
  634.   '(
  635.     "Purity Test Test Questions"
  636.     ("section one"
  637.      "This is what Section One is about"
  638.      "question one")
  639.     ("section two"
  640.      "This is what Section two is about"
  641.      "question two"
  642.      "question three")
  643.     ))
  644.  
  645. (defun purity-test-init-questions ()
  646.   "This function returns a list describing the questions to be used.  The
  647. First Element is a string that is the question ID.  All other elements are
  648. lists representing one section of the purity test.  A section list contains
  649. a number of strings.  The first is the name of the section.  The second is
  650. the discription of the section.  The rest are questions.  Make sure that
  651. any questions do not have a double quote in them (use single quotes)."
  652.   '(
  653.     "Version 4.1A 5/6/1989 mende@athos.rutgers.edu"
  654. ("Platonic Relations"
  655. "For this section, if you are mostly a:
  656.          - heterosexual, then your partner in deed, often referred to
  657.                          by the word 'someone' or 'partner', is to be someone
  658.                          of the OPPOSITE gender.
  659.          - homosexual, then your partner in deed, often referred to by the
  660.                          word 'someone' or 'partner', is to be someone of
  661.                          YOUR OWN gender.
  662.          - 50-50 confirmed bisexual, then your partner in deed, often
  663.                          referred to by the word 'someone' or 'partner', is to
  664.                          be someone of the OPPOSITE gender."
  665. "kissed a friend or stranger on their hands or their head/neck region
  666. as a friendly gesture?"
  667. "held hands with someone?"
  668. "had a date?"
  669. "had a date past 1 a.m.?"
  670. "dated someone on a regular basis?"
  671. "picked someone up?"
  672. "been picked up?"
  673. "gone steady?"
  674. "slow danced?"
  675. "had the symptoms of Russian fingers (rushin' fingers)?"
  676. "had the symptoms of Roman hands (roamin' hands)?"
  677. "shared a bed, sleeping bag, or sleeping accommodations with someone
  678. without anything steamy happening?"
  679. "given a back or neck rub or massage with no ulterior motive?"
  680. "used tickling as a pick-up, get-to-know-you-better routine?"
  681. "directly asked someone whom you were not going out with and had
  682. never gone out with if they were a virgin?"
  683. "used physical strength, physical power, or any physical prowess, or
  684. prowesslessness as a factor in pick-up, get-to-know-you-better
  685. routine?"
  686. "secretly lusted after someone without that person knowing?"
  687. "dropped subtle hints to someone whom you liked/loved/wanted, hoping
  688. that they would pick up on it?"
  689. "written anonymous 'love letters' to someone (secret admirer, etc.  That
  690. is, dropped some not-so-subtle hints)."
  691. )
  692. ("Auto-erotica and Mono-sexualism"
  693. "     Although this section is termed Auto-erotica and mono-sexualism, the
  694.      events herein still count even if you are with someone else at the time.
  695.      It was so named because these activities, like the harp, (and the
  696.      porcelain goddess) are predominantly solo events."
  697. "had an arousing dream?  (Wet dreams and the like.)"
  698. "been sexually aroused?"
  699. "uttered/muttered/yelled/screamed (or in other words verbally
  700. expressed) obscenities?"
  701. "fantasized about your long-term instructor, mentor, or someone who
  702. is superior to you?  (One day skydiving teachers, two hour ski
  703. instructors, and the like do not count.)"
  704. "fantasized about your lawyer, doctor, nurse, psychiatrist or someone
  705. with whom you are having a professional relationship?"
  706. "fantasized about someone you know personally but not closely?"
  707. "fantasized about anyone and masturbated at the same time?"
  708. "read or bought pornographic periodicals?"
  709. "ever had a subscription to pornographic periodicals?"
  710. "read sexually explicit literature?"
  711. "gone skinny dipping alone?"
  712. "made obscene phone calls?"
  713. "phoned up any recorded phone sex numbers? (e.g.  (212)976-2626,
  714. (212)976-2727, (212)976-2828, etc. Please note that these are fifty
  715. cent calls in addition to toll charges and long distance charges.)"
  716. "phoned up any live phone sex numbers?"
  717. "stuffed your bra if you are female, or stuffed your pants if you are
  718. male?"
  719. "shaved your genital pubic hair?"
  720. "shaved your genital pubic hair on a fairly regular basis?"
  721. "colored or bleached your genital pubic hair?"
  722. "shaved or shaped your genital pubic hair in a particular design?
  723. (moons, hearts, diamonds, clovers, etc.)"
  724. "masturbated?"
  725. "masturbated at least five times in one twenty-four hour period?"
  726. "masturbated on a fairly regular basis of no less than once a
  727. fortnight?"
  728. "masturbated where you could have been discovered?  (In a crowd, in
  729. public, city parks, gym/dorm/barrack showers, movie theater, etc.)"
  730. "masturbated out in the wilds or in nature with no nearby
  731. civilization?"
  732. "masturbated to orgasm?"
  733. "masturbated while reading either pornographic or sexually explicit
  734. materials?"
  735. "masturbated while driving a *moving* land vehicle? (Car, RV, truck,
  736. motorcycle, hearse, etc.)"
  737. "masturbated while on the phone?  (No kinky interpretations of 'on the
  738. phone'. This is legit.)"
  739. "masturbated while in a bathroom of the opposite sex?"
  740. "masturbated while watching an R or X-rated show?"
  741. "seen any burlesque show? (Rocky Horror counts)"
  742. "been to a peep show?"
  743. "been to a private showing of a pornographic movie?"
  744. "seen a pornographic movie in a theater?"
  745. "walked around in your room/apartment/house/habitation in the nude?
  746. (Must be a serious walk; five minutes of going around trying to find
  747. your undies after a shower doesn't count.)"
  748. "walked around in a public or semi-public area with a top (shirt,
  749. T-shirt, etc) but no bottoms (pants, shorts, etc)? (Dorm hallways,
  750. lobby areas, etc. are acceptable; however locker rooms, bathrooms
  751. and such places where this behavior is acceptable do not count.)"
  752. "bought blatant sexual objects? (This means that if you buy a bottle
  753. of Coke and you use it as a dildo, it doesn't count.  Think design and
  754. function.)"
  755. "owned any erotic art pieces?  (Like that phallic symbol in the cat
  756. woman scene in 'A Clockwork Orange.')"
  757. "written down your own stories or fantasies for masturbatory purposes?
  758. (Your own custom-made Penthouse Forum [tm])"
  759. "sculpted erotic/obscene artworks in food (bananas, carrots, apples...)?"
  760. "eaten any erotic food items?  (Chocolate tits, banana dicks, etc.)"
  761. "sculpted erotic/obscene artworks in soap, wood, or any other
  762. carvable material that isn't food?"
  763. "made an X- or R-rated snowman or snowwoman?"
  764. "tasted your own orgasmic liquids?"
  765. "inserted your finger into your rectum?"
  766. "used ben-wa balls or anal beads?  (ben-wa balls: a pair of small, usually
  767. metal, balls which are placed in the vagina or anus and are supposed to
  768. feel good as they move around.  Anal beads: a string of beads inserted
  769. into the anus which is supposed to feel good as it is pulled out.)"
  770. "performed oral sex on yourself?  (Yes, this is possible for most males,
  771. and even for some females.)"
  772. "willingly urinated on the garments that you were wearing at the
  773. time? (In other words: piss in your pants; wet yourself; had an
  774. accident.)"
  775. "willingly urinated on any part of your body?"
  776. "willingly defecated on the garments that you were wearing at the
  777. time?  (In other words: shit in your pants; had a serious accident.)"
  778. "willingly defecated on yourself?"
  779. )
  780. ("Legislative Misfits and Other Ethical Matters"
  781. "These questions deal actions that are not socially approved of, or are
  782. commonly frowned upon"
  783. "administered a whole Purity Test or are in the process of
  784. administering a whole Purity Test of any version?  (That's where you
  785. are the test administrator in a Purity Test Party. See 'Instructions
  786. for Use' for further information.)(having emacs do it for you does not
  787. count!)"
  788. "taken Purity Tests of any versions more than 5 times?"
  789. "lied on any previous Purity Tests?"
  790. "exaggerated about any sexual experiences?"
  791. "gone to (or escorted someone to) a Planned Parenthood Clinic?  (for an
  792. exam, to obtain birth control pills, diaphragm, etc.)"
  793. "broken your word, promise, or vow?"
  794. "lied to someone at someone else's request?"
  795. "lied about your sexual preference in order to avoid a date?"
  796. "written graffitti?"
  797. "plagiarized?"
  798. "shoplifted?"
  799. "stolen?"
  800. "made out a check that bounced?"
  801. "used someone else's credit card without their knowledge and/or consent?"
  802. "committed breaking and entering?"
  803. "seen a snuff film?"
  804. "read someone else's diary without their knowledge and/or consent?"
  805. "searched someone's room without their knowledge and/or consent?"
  806. "told someone that you loved them when you did not?"
  807. "told someone that you loved them strictly because you wanted to have
  808. sex with them?"
  809. "fantasized about someone else other than your partner while you were
  810. engaged in sex, oral sex, or mutual masturbation?"
  811. "intentionally listened in on other people having sex, oral sex, or
  812. mutual masturbation without their knowing it?"
  813. "used alcohol to lower someone else's inhibitions for the purpose of
  814. sex or oral sex?"
  815. "used drugs other than alcohol to lower someone else's inhibitions for
  816. the purpose of sex or oral sex?"
  817. "drugged someone without their knowledge and/or consent?  (hash brownies
  818. and the like.)"
  819. "forced or coerced someone into having intimate physical relations
  820. with you?"
  821. "had dates with more than one person in the same night while one or
  822. more of the people involved were NOT aware of your actions?"
  823. "gone steady with two or more people at the same time while one or
  824. more of the people involved were NOT aware of what you were doing?"
  825. "gone steady with two or more people at the same time while all of
  826. them WERE aware you were doing it?"
  827. "urinated on someone else intentionally?  (Piss fights!)"
  828. "urinated in cup, bottle, pitcher or any such receptacle that was not
  829. originally designed for such purpose?  Urinalysis incidents don't count."
  830. "urinated anywhere other than a bathroom, outhouse, tree, bush or any
  831. commonly accepted piss hole?  (in the kitchen sink, in the glove
  832. compartment of the family car...)"
  833. "urinated from higher than the fifth floor, or equivalent height,
  834. above ground level, out of a building or off a bridge or any such
  835. permanent structure (e.g. the Grand Canyon)?"
  836. "defecated anywhere other than a bathroom, outhouse or any commonly
  837. accepted shit hole?  (Camping/hiking trips in which bathroom/outhouse
  838. access are nil do not count.)"
  839. "stored any excretia in a refrigerator, oven, or any food
  840. storage/preparation appliance?"
  841. "stored evacuated excretia anywhere else in your room, apartment,
  842. house, habitation, office, etc?"
  843. "entered a bathroom of the opposite sex, unaccompanied by someone of the
  844. opposite sex, while not involved in a search and/or rescue mission?"
  845. "mooned or flashed someone from the front?"
  846. "farted (audibly) in mixed company?"
  847. "streaked, flashed, or otherwise exposed pretty much totally yourself
  848. in public before an informal, unofficial gathering of people?"
  849. "streaked, flashed, or otherwise exposed pretty much totally yourself
  850. in public before a formal (official) gathering of people?  (Such as a
  851. function, stage performance, charity dinner, etc.)"
  852. "been arrested?  (Picture taken and all that wonderful, free stuff.)"
  853. "received money or some favor to have sex, oral sex, or mutual
  854. masturbation with someone?"
  855. "given money or some favor to have sex, oral sex, or mutual
  856. masturbation with someone?"
  857. "thought you might be, or might have caused someone else to be,
  858. unintentionally pregnant?"
  859. "bought a home pregnancy test?"
  860. "bought condoms?"
  861. "borrowed/stolen/taken birth control devices from your or someone else's
  862. parents?  (Condoms, spermicidal foam, diaphragms, chastity belt)"
  863. "had, or given someone, an unwanted pregnancy?"
  864. "lied about being pregnant or about having made someone pregnant?"
  865. "had sex while either you or your partner, but not both, were under the
  866. legal age of consent of the state in which you were having sex?"
  867. "thought you had VD?"
  868. "had VD of any sort (VD, STD's, i.e. the clap, crabs, herpes, etc.)"
  869. "had an AIDS test due to reasonable suspicion or hyperactive imagination?"
  870. "given a sympathy fuck?"
  871. "initiated sex with someone for the sake of sex only?"
  872. "willingly committed incest?"
  873. "committed adultery?  (you need not have been the one who was married
  874. to get this point.)"
  875. "bought lingerie/undergarments of the opposite sex?"
  876. "stolen the underwear of someone you knew, for a purpose other than
  877. that of a practical joke or to just ire the person? (A bunch of guys
  878. invading the women's dorm on a mission of panty raids does not
  879. count.)"
  880. "intentionally taken someone's underwear and didn't know who it
  881. belonged to?"
  882. )
  883. ("Drugs"
  884. "These questions deal with both legal and illegal substances, their
  885. effects, and things you have done while under their influence"
  886. "had an alcoholic drink?"
  887. "been intoxicated?"
  888. "thrown up from having drunk too much alcohol?"
  889. "passed out due to having drunk too much alcohol?"
  890. "forgotten events that occurred while you were drunk?"
  891. "smoked tobacco?  (cigarette, pipe, cigar, hookah)"
  892. "chewed tobacco?  (snuff)"
  893. "bought controlled/illicit drugs, or any compound scheduled by the
  894. DEA, in violation of the law?"
  895. "sold or re-sold controlled/illicit substances, or any compound
  896. scheduled by the DEA, in violation of the law?"
  897. "taken stimulants?"
  898. "taken depressants excluding alcohol?"
  899. "inhaled nitrous oxide while not visiting a dentist?"
  900. "inhaled anything containing butyl nitrate?"
  901. "used a commercial aphrodisiac?  (Spanish Fly, Magic Love Drops, powdered
  902. rhino horn, etc.)"
  903. "taken valium?"
  904. "smoked marijuana/sensemilia?"
  905. "smoked marijuana/sensemilia more than four times?"
  906. "eaten marijuana/sensemilia?"
  907. "eaten marijuana or sensemilia more than four times?"
  908. "taken opiate in any form?"
  909. "taken opiate in any form more than twice?"
  910. "used cocaine?"
  911. "used cocaine more than four times?"
  912. "injected any drugs into your body for any other purpose other than
  913. medical?"
  914. "injected any one drug into your body for any purpose other than
  915. medical more than twice?"
  916. "taken Ecstasy/X?"
  917. "taken PCP?"
  918. "taken PCP more than twice?"
  919. "taken d-lysergic acid diethylamide (LSD-25), peyote, or psilocybin?"
  920. "taken LSD, peyote, or psilocybin more than twice?"
  921. "taken LSD more than six times?"
  922. "deliberately injured yourself so as to obtain medication?"
  923. "played any games in which there was a mystery as to who would be
  924. getting drugs and who wouldn't, yet everybody plays in it? (e.g.
  925. 'Who's got the pill', where half the cups (of soda) have LSD in them and
  926. the other half don't, and everybody picks a cup and drinks it and wonders
  927. who gets lucky.)"
  928. "gone to class or work while under the influence of drugs?  (alcohol
  929. counts)"
  930. "mixed drugs? (alcohol counts.  Mixed meaning being under the influence of
  931. two or more drugs at once.)"
  932. "sold possessions in order to obtain drugs?"
  933. "had sex while under the influence of nitrous?"
  934. "had an orgasm while under the influence of nitrous? (difficult because of
  935. timing)"
  936. "had sex while under the influence of cocaine?"
  937. "had sex while under the influence of marijuana/sensemilia?"
  938. "had sex while under the influence of Ecstasy/X?"
  939. "had sex while under the influence of LSD, peyote, or psilocybin?"
  940. "had sex while under the influence of drugs with a partner who did not
  941. realize you were on them?"
  942. )
  943. ("Non Platonic Relations"
  944. "For this section, it you are mostly a:
  945.          - heterosexual, then your partner in deed, often referred to by
  946.                          the word 'someone' or 'partner', is someone of the
  947.                          OPPOSITE gender.
  948.          - homosexual, then your partner in deed, often referred to by the
  949.                          word 'someone' or 'partner', is to be someone of
  950.                          your OWN gender.
  951.          - 50-50 confirmed bisexual, then your partner in deed, often referred
  952.                          to by the word 'someone' or 'partner', is to be
  953.                          someone of the OPPOSITE gender."
  954. "propositioned someone for necking or petting?
  955. (petting is defined as any caressing, patting, stroking or fondling.)"
  956. "propositioned someone for sex, oral sex, or mutual masturbation?"
  957. "pinched or patted someone else's buttocks?"
  958. "french kissed?"
  959. "been kissed below the neck but not including arms or hands?"
  960. "kissed someone else below the neck but not including arms or hands?"
  961. "necked?"
  962. "petted above the waist?"
  963. "petted below the waist?"
  964. "kissed on the first date?"
  965. "necked on the first date?"
  966. "petted above the waist on the first date?"
  967. "petted below the waist on the first date?"
  968. "given a hickey?"
  969. "received a hickey?"
  970. "worn specific clothes for the purpose of hiding hickeys?  (i.e.,
  971. turtlenecks)"
  972. "fondled or stroked someone else's clothed legs?"
  973. "fondled or stroked someone else's bare legs?"
  974. "fondled or stroked someone else's frontal chest/torso region?"
  975. "had your frontal chest/torso region fondled or stroked?"
  976. "been involved with pelvic thrusting while fully clothed?"
  977. "had your fingers licked or sucked?"
  978. "had your ear or ear region licked, breathed upon, sucked, or
  979. nibbled?"
  980. "licked, breathed onto, sucked, or nibbled an ear or ear region?"
  981. "licked or sucked someone else's finger(s)?"
  982. "fondled someone who was asleep?"
  983. "given a back massage with ulterior motives?"
  984. "given a back massage that led to something steamier?"
  985. "seen someone else completely nude when that person was under good
  986. lighting conditions?"
  987. "been seen completely nude by someone else under good lighting
  988. conditions?"
  989. "been in someone's company while both of you were completely nude?"
  990. "bathed or showered with someone?"
  991. "let someone else wash you while you were perfectly capable of doing
  992. it yourself.  (This means that if you were in the hospital with two
  993. broken arms and the nurse washed you, it doesn't count, no matter how
  994. cute s/he was.)"
  995. "gone skinny dipping in mixed company?"
  996. "been involved with the stroking or fondling of a woman's clothed
  997. breast (as either possessor or fondler of the breast)?"
  998. "been involved with the stroking or fondling of a woman's bare
  999. breast (as either possessor or fondler of the breast)?"
  1000. "licked, sucked, or nibbled on someone else's nipple?"
  1001. "had your nipple licked, sucked, or nibbled upon?"
  1002. "petted, stroked, fondled, or otherwise handled someone else's
  1003. covered genitals?"
  1004. "had your covered genitals petted, stroked, fondled, or otherwise
  1005. handled?"
  1006. "petted, stroked, fondled, or otherwise handled someone else's bare
  1007. genitals?"
  1008. "had your bare genitals petted, stroked, fondled, or otherwise
  1009. handled?"
  1010. "had an orgasm while petting?"
  1011. "given your partner an orgasm while petting?"
  1012. "given finger scratch marks?"
  1013. "received finger scratch marks?"
  1014. "drawn blood by scratching during sex?"
  1015. "drawn blood by biting during sex?  (hickeys do not count as having drawn
  1016. blood)"
  1017. "given or received *scars* from scratches or bites made during sex?"
  1018. "performed oral sex?"
  1019. "received oral sex?"
  1020. "swallowed semen, or licked female liquids off of fingers?"
  1021. "done sixty-nine ?"
  1022. "performed mutual masturbation?"
  1023. "had sex?  (No need for orgasm; penetration counts.)"
  1024. "had sex on the first date?"
  1025. "had sex without the use of birth control devices?  (Use of the rhythm,
  1026. prayer, and hope methods counts as 'without the use of birth control
  1027. devices'.)"
  1028. "had sex with a virgin?  (Not yourself.)"
  1029. "had sex with someone whose name you did not know?  (and *still* don't
  1030. know)"
  1031. "had sex with someone whose face you never saw?"
  1032. "had sex with someone where there was an age difference of more than 20
  1033. years?"
  1034. "had sex with someone not of your own race?"
  1035. "had sex with a religious officiary?  (Priest, nun, mother-superior,
  1036. cardinal, pope, deity, etc.)"
  1037. )
  1038. ("Non Primary Choice Relations"
  1039. "      This section of the test deals with whether you have done things with
  1040.       people whom you may not be altogether comfortable, therefore in this
  1041.       section of the test, if you are mostly a:
  1042.          - heterosexual, then your partner in deed, often referred to by the
  1043.                          word 'someone' or 'partner', is to be someone of your
  1044.                          OWN gender.
  1045.          - homosexual, then your partner in deed, often referred to by the
  1046.                          word 'someone' or 'partner', is someone of the
  1047.                          OPPOSITE gender.
  1048.          - 50-50 confirmed bisexual, then your partner in deed, often
  1049.                          referred to by the word 'someone' or 'partner', is to
  1050.                          be someone of your OWN gender."
  1051. "held hands or otherwise displayed public affection?"
  1052. "kissed someone on the lips?"
  1053. "french kissed someone?"
  1054. "necked?"
  1055. "petted?"
  1056. "received manual sex?"
  1057. "given manual sex?"
  1058. "received oral sex?"
  1059. "given oral sex?"
  1060. "had sex?"
  1061. "had sex with a virgin?  (not yourself.)"
  1062. "had sex with someone when there was an age difference of more than 20
  1063. years?"
  1064. "had anal sex?  (The use of fingers or any phallic objects in this
  1065. case would also count.)"
  1066. "been involved in fist-fucking?"
  1067. "done 69?  (simultaneous oral sex.)"
  1068. "propositioned someone for sex, oral sex, or mutual masturbation?"
  1069. "yielded willingly to a proposition from someone for sex, oral sex,
  1070. or mutual masturbation?"
  1071. "had sex with someone whose name you didn't know?  (and still don't
  1072. know.)"
  1073. "had sex with someone whose face you never saw?"
  1074. "been a participant in a who's-physically-better-equipped
  1075. verification contest?  (Contestants must be of same gender;
  1076. spectators, judges, umpires, and verifiers may be of different
  1077. gender.)"
  1078. "been a judge in a who's-physically-better-equipped contest?"
  1079. "gave money or favors for sex, oral sex, or mutual masturbation?"
  1080. "received money or favors for sex, oral sex, or mutual masturbation?"
  1081. "fondled someone who was asleep?"
  1082. "attempted to seduce someone?"
  1083. "allowed yourself to be seduced?"
  1084. "had an orgasm while petting?"
  1085. "gave your partner an orgasm while petting?"
  1086. "had an orgasm at all?"
  1087. "had sex, oral sex, or mutual masturbation with more than 10 people?"
  1088. "stroked or fondled the clothed legs of someone?"
  1089. "stroked or fondled the bare legs of someone?"
  1090. "stroked or fondled the clothed chest/torso region of someone?"
  1091. "stroked or fondled the bare chest/torso region of someone?"
  1092. "stroked, fondled, or otherwise handled the clothed genitals of
  1093. someone else?"
  1094. "stroked, fondled, or otherwise handled the bare genitals of someone
  1095. else?"
  1096. "had sex, oral sex, mutual masturbation with someone not of your own race?"
  1097. "been in a menage-a-trois of people of the same sex?"
  1098. "been involved in group sex, with all participants of the same sex?  (4
  1099. or more people, partners must be exchanged.)"
  1100. )
  1101. ("Alternate Choices"
  1102. "      For any of the questions in this section, a yes answer is in order if it
  1103.       is something that you do as an alternative to other sexual gratifications
  1104.       or as an aid and/or in conjunction with other means of sexual
  1105.       gratification.  In other words, have you done it in a serious basis?
  1106.       Trying it a few times to see what it's like does not count."
  1107. "been decidedly heterosexual?"
  1108. "been decidedly homosexual?"
  1109. "been decidedly bisexual?"
  1110. "practiced bestiality (avec les animaux)?"
  1111. "practiced transvesticism?"
  1112. "practiced sadism ?"
  1113. "practiced masochism ?"
  1114. "practiced bondage?"
  1115. "practiced domination?"
  1116. "practiced submission?"
  1117. "practiced sodomy (anal intercourse)?"
  1118. "practiced cocrophilia (a marked interest in excrement; esp. the use of
  1119. feces or filth for sexual excitement)?"
  1120. "practiced frotteurism (masturbation by rubbing against another's person
  1121. or the need to rub against another stranger)?"
  1122. "practiced infantilism (a dependency on the sight or feeling of diapers
  1123. or of being diapered; a dependency on being dressed and treated as a
  1124. baby)?"
  1125. "practiced klismaphilia (a dependency on being given an enema)?"
  1126. "practiced necrophilia (copulation with a corpse)?"
  1127. "practiced mysophilia (a dependency on something soiled or filthy, such as
  1128. sweaty underwear or used menstrual pads)?"
  1129. "practiced scoptophilia (a dependency on looking at sexual organs and
  1130. watching sexual activity openly, not surreptitiously, as in voyeurism)?"
  1131. "practiced urophilia (being dependently responsive to the smell or taste
  1132. of urine or the sight and sound of someone urinating)?"
  1133. "practiced role-playing (nurse-patient, teacher-student, border guard,
  1134. well endowed co-ed, etc.)?"
  1135. "owned an underwear collection of underwear not belonging to you?"
  1136. "been a foot fetishist to any degree?"
  1137. "been a leather fetishist to any degree?"
  1138. "been a rubber/latex fetishist to any degree?"
  1139. "been a voyeur?"
  1140. "been an exhibitionist?"
  1141. )
  1142. ("Group Sexual Relations"
  1143. "      This section relates to what you have or have not done.  Accordingly, the
  1144.       group of people of which we are speaking are of both genders.  In
  1145.       questions where groups of people are concerned, there must be at least
  1146.       one person in the group who is of the opposite gender."
  1147. "listened to dirty jokes in mixed company?"
  1148. "told dirty jokes in mixed company?"
  1149. "discussed masturbation?  (Bringing up the topic of masturbation
  1150. during Purity Testing does not cut it as discussing masturbation.)"
  1151. "watched a porn movie in mixed company?"
  1152. "watched a porn movie with your own or someone else's parents?"
  1153. "played a game which may require you or others to disrobe?"
  1154. "played a game which may require you or others to perform an
  1155. action on another participant?"
  1156. "been in intimate contact with more than one person at the same time
  1157. while all of you were nude?"
  1158. "had oral sex with more than 10 people?  (not necessarily at one time)"
  1159. "had sex with more than 10 people?  (not necessarily at one time)"
  1160. "had sex with more than 1 person in a 24 hour period?"
  1161. "had sex with both genders in a 24 hour period?"
  1162. "been in a menage-a-trois with at least one member of the opposite sex?"
  1163. "walked in on others having sex (committed an 'oops') and then joined in?"
  1164. "had sex or oral sex with a person and his/her parent?  (not necessarily
  1165. at the same time.)"
  1166. "had sex, oral sex, mutual masturbation, necking, or petting with a
  1167. person and his/her sibling?  (not necessarily at the same time.)"
  1168. "been involved in a two (or more) in one?  (oral & anal or vaginal & anal
  1169. counts.  But no fingers - we're talking the real thing here.)"
  1170. "been involved in a gang bang?  (Step right up; come and get it while
  1171. it's hot.)"
  1172. "been in a circle of fuck?"
  1173. "been in a 69 circle?"
  1174. "been to a (cooking, baby, Wesson) oil party?"
  1175. "played naked Twister [tm] (with or without oil)?"
  1176. "participated in a heterosexual orgy or been involved in group sex?
  1177. (Four people or more; partners must be exchanged.)"
  1178. "participated in a bisexual orgy or group sex? (Four people or more;
  1179. partners must be exchanged.)"
  1180. "propositioned a person or group of people for group sex?"
  1181. "been propositioned for group sex?"
  1182. "participated in a fuck-a-thon?  (Where the object is to see how
  1183. many times you can do it in a certain amount of time.)"
  1184. )
  1185. ("Non sentient objects"
  1186. "      This section measures your kinkiness.  Therefore, the questions apply to
  1187.       actions and events which occurred while you were alone, as well as those
  1188.       which occurred while you were with someone else."
  1189. "used a bowling pin, Coke bottle, or something along those general
  1190. shapes for masturbatory or sexual purposes?"
  1191. "masturbated using the aid of food?"
  1192. "eaten the food used in masturbation after masturbation?"
  1193. "eaten a lab dissection?"
  1194. "inserted food into your or someone else's anus?"
  1195. "eaten food after it was extracted/evacuated from your or someone else's
  1196. anus?"
  1197. "received an enema for a purpose other than medical?"
  1198. "received an enema consisting on a non-normal enema solution (wine, beer,
  1199. urine, windex)?"
  1200. "actually measured your own or someone else's penis?  (i.e., actually
  1201. grabbed a ruler, yardstick, tape measure, etc.)"
  1202. "used a mechanical hand-holdable device in aiding or replacing
  1203. masturbation?  (Vibrator, massager, Dustbuster(tm), vacuum cleaner, etc.)"
  1204. "used a feather or any other tickling device for the purpose of
  1205. tickling?"
  1206. "used tickling as a form of *arousal*?"
  1207. "used ice for sexual purposes?"
  1208. "used ice for something frozen as a dildo?  (ice cubes don't count here -
  1209. icicles, popsicles, and the like.  Penetration.)"
  1210. "used a strap-on dildo or male extension sheath?"
  1211. "used whipped cream for sexual purposes?"
  1212. "used hot/melted wax for sexual purposes?"
  1213. "had sex in front of or under a mirror?"
  1214. "put food, gravy, syrup, salad dressing, candy, peanut butter, honey
  1215. or anything else edible on your partner's body, and then eaten it?"
  1216. "used household syrup, sandwich spreading, oil, salad dressing,
  1217. or any like substance for sexual purposes?"
  1218. "used ropes, chains, cuffs or any other such device for bondage
  1219. purposes?"
  1220. "used a whip, chain, cat-o-nine-tails, or something similar for pain?"
  1221. "worn edible underwear/lingerie?"
  1222. "eaten edible underwear/lingerie off of someone?"
  1223. "worn a leather/grore suit?"
  1224. "worn diapers for a sexual or masturbatory purpose?"
  1225. "been diapered by someone else for a sexual or masturbatory purpose?"
  1226. "used a ball gag or other manufactured gag?"
  1227. "worn a collar and/or leash?"
  1228. "been completely tied down (spreadeagled, hogtied, etc.)?"
  1229. "tied someone down completely?"
  1230. "had sex while you or your partner was tied up?"
  1231. "used nipple clips (clothespins count)?"
  1232. "pierced a part of your body other than your ears or nose (nipples,
  1233. labia, head of penis)?"
  1234. "found a prepubescent child sexually attractive/arousing?"
  1235. "had sexual contact of any kind with a prepubescent child?"
  1236. "used an inflatable doll?"
  1237. "humped an inanimate object like a pillow, (dinner) liver, hole in
  1238. the wall, sausage, banana, etc?"
  1239. "had sex or oral sex with a dead person?"
  1240. "inserted a small animal or creature into your rectum?  (Either alive
  1241. or dead.)"
  1242. "had sex or oral sex with your (dead) dinner animal?"
  1243. "watched animals having sex?"
  1244. "been aroused by the sight of animals having sex?"
  1245. "attempted to have sex, oral sex, or (mutual) masturbation with a
  1246. live animal, but failed?"
  1247. "had sex, oral sex, or (mutual) masturbation with a smallish animal?
  1248. (Dog, cat, rabbit, lab rat, gerbil, etc.)"
  1249. "had sex, oral sex, or (mutual) masturbation with a domesticated farm
  1250. animal?  (Cow, pig, chicken, sheep, etc.)"
  1251. "mutilated or killed any living animal or creature for your pleasures?"
  1252. "had sex with a live animal?  (Any size.)"
  1253. "received oral sex from a live animal?  (Any size.)"
  1254. "gave oral sex to a live animal?  (Any size.)"
  1255. "had sex, oral sex, or (mutual) masturbation with a single type
  1256. animal more than once?  (Alive or dead.)"
  1257. "had sex, oral sex, or (mutual) masturbation with an animal in the
  1258. presence of 1 or more other people?"
  1259. "cross dressed in the *undergarments* of the opposite sex for a sexual
  1260. purpose?  (This means that school plays, initiations, and the like
  1261. don't count.)"
  1262. "cross dressed in the *undergarments* of the opposite sex for a sexual
  1263. purpose in the presence of 1 or more other people?  (Plays and the like
  1264. still don't count - this is for a sexual purpose)."
  1265. "stuffed your pants or bra while you were cross-dressed for your
  1266. sexual purpose?"
  1267. "had your head inserted into a urinal or toilet bowl willingly?
  1268. (Doing this in a pristine, show-room model does not count.)"
  1269. "worn groinal underwear on your head?  (Panties, jock-strap, etc.)"
  1270. "eaten, sucked, licked, nibbled, or otherwise inserted a used, unwashed
  1271. piece of groinal underwear into your mouth while said underwear
  1272. was not being worn at the time?"
  1273. "deliberately sniffed or smelled a used, unwashed piece of groinal
  1274. underwear while it was not being worn at the time?"
  1275. "been gagged with someone's underwear?  (not your own)"
  1276. "played in or with shit?"
  1277. "worn or used a condom or any feminine hygiene contraption that has
  1278. already been used by someone else?"
  1279. )
  1280. ("Locality"
  1281. "This  section  tries  to  figure  out how many places you have done it. It
  1282. applies only to those situations in which you were with someone else."
  1283. "necked or petted in a place of religion? (Church, temple, altar,
  1284. Grand Holy Cabbage Head Patch, etc.)"
  1285. "had sex or been involved in oral sex or mutual masturbation in a place
  1286. of religion?"
  1287. "necked or petted in a place of the dead? (Morgue, mortuary, cemetery,
  1288. etc.)"
  1289. "had sex or been involved in oral sex or mutual masturbation in a place
  1290. of the dead?"
  1291. "necked or petted in a contraption of the dead? (Coffin, hearse, body
  1292. bag, etc.)"
  1293. "had sex or been involved in oral sex or mutual masturbation in a
  1294. contraption of the dead?"
  1295. "had sex in/on a construction site (house, office, launch platform, etc.)?"
  1296. "necked or petted in a moderately sized, land/road-based vehicle of LESS
  1297. THAN 30,000 pounds net unladen gross weight?  (car, station
  1298. wagon, van, minivan, minibus, fuckmobile, etc.)"
  1299. "had sex or been involved in oral sex or mutual masturbation in a
  1300. moderately sized, land/road-based vehicle of LESS THAN 30,000 pounds
  1301. net unladen gross weight?"
  1302. "necked or petted in a land/road-based vehicle of MORE THAN 30,000
  1303. pounds net unladen gross weight?  (truck, tank, armored car, steam-
  1304. roller, crane, bulldozer, garbage truck, etc.)"
  1305. "had sex or been involved in oral sex or mutual masturbation in a
  1306. land/road-based vehicle of MORE THAN 30,000 pounds net unladen gross
  1307. weight?"
  1308. "had sex or been involved in oral sex or mutual masturbation in a land-
  1309. based, non road dependant vehicle? (Train, subway, roller-coaster,
  1310. monorail, Disneyland ride, etc.)"
  1311. "necked, petted, masturbated, been masturbated, or had sex or oral sex
  1312. in a water based, manual powered vehicular transport medium? (Rowboat,
  1313. surfboard, floating bathtub, etc.)  (For this question it only counts if
  1314. the thing was in the water at the time.)"
  1315. "necked, petted, masturbated, been masturbated, or had sex or oral sex
  1316. in a water based, wind or propeller driven transport medium LESS THAN 80
  1317. feet in length?  (Yacht, PT boat, windsurfer, Sunfish, etc.)"
  1318. "necked, petted, masturbated, been masturbated, or had sex or oral sex
  1319. in a water based, wind or propeller driven transport medium MORE THAN 80
  1320. feet in length?  (Cruise ship, battleship, aircraft carrier, nuclear
  1321. submarine, etc.)"
  1322. "necked, petted, masturbated, been masturbated, or had sex or oral sex
  1323. in an aircraft?  (Airplane, helicopter, hovercraft, balloon, zeppelin,
  1324. space shuttle, flying carpet, flying saucer, etc.)"
  1325. "had sex in a household room other than a bedroom?"
  1326. "had sex on the floor (but not the roof)?"
  1327. "had sex on any furniture that is indoors but is not a bed, table,
  1328. desk, counter-top, a nor anything that is predominantly used for
  1329. sitting or as a table/desk?  (Television, washer/dryer, microwave, etc.)"
  1330. "had sex, participated in oral sex, or participated in mutual
  1331. masturbation in a telephone booth, voting booth, automatic
  1332. photograph taker, or any such small, non-moving enclosure that was
  1333. not designed for such activities?"
  1334. "had sex, participated in oral sex, or participated in mutual
  1335. masturbation in an elevator, people-mover, escalator, dumbwaiter, or any
  1336. building-internal people moving device?"
  1337. "had sex, participated in oral sex, or participated in mutual
  1338. masturbation up a tree but not in a tree house or similar structure?"
  1339. "had sex, oral sex, mutual masturbation in a suspension device of some
  1340. kind (hammock, trampoline, tightrope, safety net, etc.)?"
  1341. "had sex, participated in oral sex, or participated in mutual
  1342. masturbation on the roof of a building in excess of 5 floors?"
  1343. "had sex, participated in oral sex, or participated in mutual
  1344. masturbation inside or within the confines of a hedge, bush, other
  1345. natural vegetation which can provide a wall effect, cave, rock
  1346. overhang, in a well, or any other secluded, outdoor, non-vegetative
  1347. shielding structure?"
  1348. "had sex, oral sex, or mutual masturbation in the snow? (Spring thaw is
  1349. acceptable.)"
  1350. "had sex, oral sex, or mutual masturbation in a place where the
  1351. prevailing, ambient temperature (of the air immediately surrounding
  1352. you) was below the freezing point of water?"
  1353. "had sex, participated in oral sex, or participated in mutual
  1354. masturbation in a place where you could have been discovered?"
  1355. "had sex, oral sex, or mutual masturbation in a water-filled
  1356. bathtub, hot tub, or under a shower or other running water (waterfall,
  1357. torrential downpour, monsoon, etc.)?"
  1358. "had sex, oral sex, or mutual masturbation in a body of water?
  1359. (swimming pool, swimming hole, pond, lake, lagoon, sea, ocean, etc.)"
  1360. "had sex on the beach (and the resultant sand in uncomfortable places)?"
  1361. "had sex, oral sex, or mutual masturbation in a bathroom of the
  1362. opposite sex?"
  1363. "gone to a motel (however sleazy) for the sole purpose of having sex?"
  1364. )
  1365. ("Sexual Style"
  1366. "These questions deal with the 'stylishness' of your sexuality."
  1367. "watched while someone else masturbated?"
  1368. "been watched while masturbating?"
  1369. "orgasmed on somebody?"
  1370. "orgasmed in somebody if you are male, or had someone orgasm in you
  1371. if you are female?"
  1372. "had more than one person orgasm on you at once, or been one of several
  1373. people orgasming on someone else?"
  1374. "been involved in the use of a penis as a leash or bludgeoning
  1375. device?"
  1376. "been involved in oxygen deprivation for sexual enhancement?
  1377. (Nitrous oxide does not count.)"
  1378. "willingly made video tapes or had pictures taken while having sex,
  1379. oral sex, or mutual masturbation?"
  1380. "physically watched others having sex?"
  1381. "watched your partner of choice having sex, oral sex, or mutual
  1382. masturbation with someone else?"
  1383. "taken pictures or made video tapes of your partner of choice having sex,
  1384. oral sex, or mutual masturbation with someone else?"
  1385. "willingly made audio recordings while having sex, oral sex, or
  1386. mutual masturbation?"
  1387. "talked dirty while having sex, oral sex, or mutual masturbation?"
  1388. "intentionally made more noise than necessary while having sex, oral
  1389. sex, or mutual masturbation so as to put on a good show for whoever
  1390. might have been listening in?"
  1391. "intentionally made 'animal' noises during sex?"
  1392. "had a pet or domesticated animal walk over you or your partner while
  1393. you were involved in sex or oral sex?"
  1394. "had a general emergency arise while you were steeped in sex?  (House on
  1395. fire, flash flood, hurricane, private plane crash lands in your
  1396. dwelling, etc.)"
  1397. "had your sexual technique/style/skill openly praised by someone?"
  1398. "taken nude pictures of someone else?"
  1399. "had nude pictures of you taken?"
  1400. "placed a personal ad?"
  1401. "answered a personal ad?"
  1402. "been involved in breast fucking?  (aka 'The Hawaiian Muscle Fuck')"
  1403. "participated in fist-fucking?  (see 'Caligula')"
  1404. "shaved someone's genital pubic hair (or had yours shaved) as part of a
  1405. sexual activity?"
  1406. "had sex for more than three hours in a single session of sex?"
  1407. "been bruised during sex, oral sex, or mutual masturbation?
  1408. (hickies do not count.)"
  1409. "bruised someone else during sex, oral sex, or mutual masturbation?"
  1410. "been injured during sex, oral sex, or mutual masturbation?"
  1411. "orgasmed more than three times in one session of sex?"
  1412. "had sex so many times or for so long that one or both people involved
  1413. runs dry?"
  1414. "disturbed other people by making excessive noise while having sex?"
  1415. "had sex or mutual masturbation or received oral sex
  1416. while you were driving (the car or boat or whatever vehicle)?"
  1417. "had sex doggie fashion?"
  1418. "had sex in the female superior position?"
  1419. "had sex sitting up?"
  1420. "had sex standing up?"
  1421. "had sex upside-down?"
  1422. "gone through two or more sexual positions without the need for
  1423. re-entry?"
  1424. "fallen asleep during sex?"
  1425. "woken up to someone having sex with you?"
  1426. "had sex while one person was passed out or unconscious?"
  1427. "given or received a hickey on your upper inner thigh?"
  1428. "been on the receiving of anal sex?"
  1429. "been on the ramming end of anal sex (a dildo counts)?"
  1430. "had sex more than 10 times with 1 person?"
  1431. "had sex more than 5 times in a 24 hour period?"
  1432. "had sex more than 10 times in a 24 hour period?"
  1433. "had sex, participated in oral sex, or participated in masturbation
  1434. while someone other than your partner was watching?"
  1435. "had sex or oral sex while one or both of you were playing a musical
  1436. instrument, hacked, watched television, read, drawn or in other
  1437. words were preoccupied with something other than sex and lust?"
  1438. "performed oral sex after intercourse without washing or douching?"
  1439. "kissed your partner on the lips after oral sex without brushing
  1440. teeth, nor washing/gargling/rinsing out mouth?"
  1441. "inflicted pain during sex?"
  1442. "been involved in cunnilingus during the woman's period?"
  1443. "had sex during the woman's period?"
  1444. "foot masturbated someone?"
  1445. "been foot masturbated?"
  1446. "tongue bathed someone?"
  1447. "been tongue bathed?"
  1448. "licked or sucked on someone else's feet and/or toes?"
  1449. "had your feet and/or toes licked or sucked by someone else?"
  1450. "licked someone's anus?"
  1451. "licked someone's anus while they were defecating?"
  1452. "performed oral sex while the person was urinating?"
  1453. "drank your own urine?"
  1454. "tasted or drank someone else's urine?"
  1455. "drank/drained an entire bladder-full of someone else's urine?"
  1456. "drank human blood?"
  1457. "tasted someone else's nasal mucous?"
  1458. "been involved in a golden shower?"
  1459. "swallowed your partner's orgasmic secretions?"
  1460. "used the Purity Test as a checklist of things you could do?"
  1461. "ever done something for the sole purpose of lowering your Purity Test
  1462. score?"
  1463. "bought/read books to enhance sexual technique?"
  1464. "participated in Purity Testing with an ulterior motive?"
  1465. "become interested in someone only after hearing about their Purity Test
  1466. score?"
  1467. )))
  1468. ;-- 
  1469.  
  1470.  
  1471.