'{$STAMP BS2}
'
'--------------------------------------------------------------------------
'
'
' ----------[ Title ]------------------------------------------------------
'
' File........... Telephones.bs2
' Author......... Thomas Charveriat
' E-mail......... tc262@columbia.edu
' Sound Design... Malcolm Goodman
' E-mail......... shapeshifter@schematic.net
' WWW............ http://www.montcada5.com
' Date........... April 2000
'
' ----------[ Program Description ]----------------------------------------
'
' Artificial intelligence is a rapidly developing area of scientific research. Many jobs formerly held by
' humans are now being done by computers, often by "bots" (computer generated intelligent entities
' that present themselves as human in order to perform tasks for others). One field where this has
' become common is automated phone service. This piece illustrates the computer's potential by
' replacing live person on a sex phone line with voices created by a computer. In it, twelve different
' computer-generated personalities have intimate conversations. Each sound was pre-programmed
' on an ISD chip.

'
' ----------[ Diagram ]----------------------------------------------------
'
'                                __________
'                      SER TX <-| 1     24 |-- PWR
'                      SER RX ->| 2     23 |-- (PWR) GND
'                     SER ATN ->| 3     22 |-- RESET
'                     SER GND --| 4     21 |-- +5V
'                ISD    I/O 0 <-| 5     20 |-- I/O 15  N/C
'                ISD    I/O 1 <-| 6     19 |-- I/O 14	 N/C
'                ISD    I/O 2 <-| 7     18 |-- I/O 13  N/C
'                ISD    I/O 3 <-| 8     17 |-- I/O 12  N/C
'                ISD    I/O 4 <-| 9     16 |-> I/O 11  ISD
'                ISD    I/O 5 <-| 10    15 |-> I/O 10  ISD
'                ISD    I/O 6 <-| 11    14 |-> I/O 9   ISD
'                ISD    I/O 7 <-| 12    13 |-> I/O 8   ISD
'                               |__________|
'
'                                  BS2-IC
'
'
' ----------[ Variables ]--------------------------------------------------
'
'
' ----------[ Constants ]--------------------------------------------------
'
a con 0 'waow, yes, oh baby
b con 1 'get down on you knees
c con 2 'beat me'
d con 3 'wacky, wacky
g con 4 'harder,big boy
f con 5 ''''''''''
z con 6 'i would like to fuck you hard
h con 7 'albert
e con 8 'oh, baby, yes , fuck me
j con 9 'i am so horny
k con 10 'so i can
l con 11 'fufcky
'
' ----------[ Initialization ]---------------------------------------------

' clear all actions:
high 0: high 1: high 2: high 3: high 4: high 5: high 6: high 7: high 8: high 9: high 10: high 11

' ----------[ Main Code ]--------------------------------------------------

start
phrase1:
low c:pause 550:high c
pause 200
low c:pause 550:high c
pause 200
low c:pause 430:high c
pause 60
low c:pause 550:high c
pause 1374

phrase2:
low c:pause 550:high c
pause 200
low c:pause 550:high c
pause 200
low c:pause 430:high c
pause 60
low c:pause 25:low g:pause 535:high c
pause 450: high g
pause 774

low c:pause 550:high c
pause 200
low c:pause 550:high c
pause 200
low c:pause 430:high c
pause 60
low c:pause 25:


low g:pause 263:low a:pause 272:high c
pause 450: high g
pause 608:

low l: pause 2:high a
pause 628: high l
pause 234


low e:pause 655:

low d: pause 45: high e 'oh,baby
'd is jerkit
pause 255: high d
pause 120



low c:pause 280: 
low g: pause 270: high c     'z is I
pause 1280: high g        'g is harder

low d :pause 190: high d
pause 10
low d :pause 195: high d
pause 20
low d :pause 300: high d
pause 10
low d :pause 300: high d
pause 10
low d :pause 260:low a: pause 40: high d
pause 10
low d :pause 300: high d
pause 970: high a


low e: pause 2000:low k:pause 500:high k: 
pause 3950: low d:pause 500:high d:pause 1150:high e 'k is bend over


low k: pause 500: high k
low c: pause 550: high c
pause 150

low k: pause 400


low d:pause 100: high k
pause 300:low c: pause 550:high c:pause 3000:low a: pause 1000: high a: pause 2000:low e:
pause 800: high e:pause 1400: high d



low j: pause 1400: high j
low z:pause 8000:low j:pause 1000:high z
pause 400: high j
phrase4:

low b:pause 4500:low f:pause 4500:high b:pause 4500: high f
low h: pause 9000: high h
low a:low b:low c: low d:low e: low f:low g: low h:low j: low k: low l: low z
pause 9000
high a:high b: high c:high d:high e:high f: high g:high h:high j:high k: high l:high z
goto start