home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / conversation.amos / conversation.amosSourceCode
AMOS Source Code  |  1993-01-08  |  916b  |  46 lines
  1. Rem
  2. Rem              CONVERSATION BY JC! 
  3. Rem         Make Your Amiga Talk To Itself 
  4. Rem                    25/8/91 
  5. Rem
  6. Rem          Male to Female Conversation 
  7. Rem
  8. Rem    EXAMPLE : Type The Following
  9. Rem
  10. Rem    MALE : How are you ?
  11. Rem    FEMALE : I am fine. Thanku! 
  12. Rem    MALE : AMOS! Is awesome!
  13. Rem    FEMALE : I rgree !
  14. Rem
  15. Rem    Note: * = Exit
  16. Rem
  17. EXECUTE
  18. Procedure EXECUTE
  19.    SETUP
  20.    Do 
  21.       TALKM : TALKF
  22.    Loop 
  23. End Proc
  24. Procedure SETUP
  25.    Screen Open 0,640,256,2,Hires : Curs Off : Hide On 
  26.    Centre "CONVERSATION" : Print 
  27.    Input "Led On ? ";OO$
  28.    If OO$="y" Then Led On 
  29.    If OO$="n" Then Led Off 
  30.    Cls 
  31. End Proc
  32. Procedure TALKM
  33.    Cls : Set Talk 1,0,70,170
  34.    Input "MALE : ";A$ : Curs Off 
  35.    If A$="*" Then XIT
  36.    Say A$
  37. End Proc
  38. Procedure TALKF
  39.    Cls : Set Talk 1,0,270,170
  40.    Input "FEMALE : ";A$ : Curs Off 
  41.    If A$="*" Then XIT
  42.    Say A$
  43. End Proc
  44. Procedure XIT
  45.    Edit 
  46. End Proc