' DAISY for PicAxe 20M2
#picaxe 20m2
#no_data
setfreq m16 ' 16 Mhz servo commands only work at 4 and 16 mhz
' 8 or 16 MHz required for 9600 baud serial data
dirsb=%11010111
outpinsb=3 ' initialize center LED on
input b.5 'speaking line from 512
output b.4 'send 9600 baud true 8N1 data to sp0-512
GOSUB waitspeak
high 4:pause 10' manual 2 p.209 says set pin high before sending true data
SEROUT 4,T9600_16,(13,13) 'initialize
SEROUT 4,T9600_16,("[V6] [S3] [E3]dayee [PA5] [PA5] [PA5] [PA5] [C3]zeeey [PA5] [PA5] [PA5] [PA5] [PA5] dayee [PA5] [PA5] [PA5] [PA5] [G2]zeee [PA5] [PA5] [PA5] [PA5] [PA5] [A2]give [B2]me [C3]ur [A2]annhnhnhn [PA5] [C3]ser [PA5] [G2]doooooo ",13,13)
GOSUB waitspeak
SEROUT 4,T9600_16,(" [D3]hyheem [PA5] [PA5] [PA5] [PA5] [G3]halff [PA5] [PA5] [PA5] [PA5] [PA5] [PA5] [E3]cray [PA5] [PA5] [PA5] [PA5] [C3]zee [PA5] [PA5] [PA5] [PA5] [A2]all [B2]for [C3]thuh [D3]love [PA5] [PA5] [PA5] [E3]of [D3]youuu",13,13)
GOSUB waitspeak
SEROUT 4,T9600_16,("it [E3]won't be [D3]a [G3]stahee [PA5] [PA5] [E3]lish [D3]mar [C3]rijj",13,13)
GOSUB waitspeak
SEROUT 4,T9600_16,("[D3]i [PA5] [E3]caan't [PA5] [PA5] [C3]uh [A2]ford [PA5] [PA5] [PA5] [PA5] [C3]uh [A2]kar [G2]rijj",13,13)
GOSUB waitspeak
SEROUT 4,T9600_16,("but [C3]you'll [PA5] [PA5] [E3]look [D3]sweet [PA5] [PA5] [PA5] [PA5] [G2]up [C3]on [PA5] [PA5] [E3] thuh [D3]seat [PA5] [E3]of [G3]a [G3]by [E3]sick [C3]kul [D3]bilt [PA5] [PA5] [PA5] [G2]for [C3]toooooo",13,13)
GOSUB waitspeak
SEROUT 4,T9600_16,(13,13)
END
waitspeak:
PAUSE 200
test:IF pinb.5=1 THEN test
PAUSE 200
RETURN