home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
501-525
/
apd523
/
conversation.amos
/
conversation.amosSourceCode
Wrap
AMOS Source Code
|
1991-06-13
|
916b
|
46 lines
Rem
Rem CONVERSATION BY JC!
Rem Make Your Amiga Talk To Itself
Rem 25/8/91
Rem
Rem Male to Female Conversation
Rem
Rem EXAMPLE : Type The Following
Rem
Rem MALE : How are you ?
Rem FEMALE : I am fine. Thanku!
Rem MALE : AMOS! Is awesome!
Rem FEMALE : I rgree !
Rem
Rem Note: * = Exit
Rem
EXECUTE
Procedure EXECUTE
SETUP
Do
TALKM : TALKF
Loop
End Proc
Procedure SETUP
Screen Open 0,640,256,2,Hires : Curs Off : Hide On
Centre "CONVERSATION" : Print
Input "Led On ? ";OO$
If OO$="y" Then Led On
If OO$="n" Then Led Off
Cls
End Proc
Procedure TALKM
Cls : Set Talk 1,0,70,170
Input "MALE : ";A$ : Curs Off
If A$="*" Then XIT
Say A$
End Proc
Procedure TALKF
Cls : Set Talk 1,0,270,170
Input "FEMALE : ";A$ : Curs Off
If A$="*" Then XIT
Say A$
End Proc
Procedure XIT
Edit
End Proc