; Experiment-10-SeakJet.bas #picaxe 28X2 ; Define the MCU ; Declare Constants, Variables and Devices * * * * * * * * * * * * * * * symbol BUSY = B.0 symbol i = b0 hsersetup B9600_8, %00000 ; 9600 baud, non-inverted polarity ; BEGIN Main Body * * * * * * * * * * * * * * * do gosub speak2 pause 2000 gosub speak3 pause 2000 gosub TisAm pause 2000 loop ; END Main Body * * * * * * * * * * * * * * * * end ; BEGIN Subroutines * * * * * * * * * * * * * * * speak1: ; My name is BillyBot ; hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 65, 140, 155, 141, 154, 140, 22, 73, 8, 129, 167) pause 1000 hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 82, 170, 129, 145, 22, 98, 128, 22, 65, 171, 8, 136, 191) pause 1000 return speak2: ; Roger Roger ; hserout 0,(20, 96, 21, 114, 22, 82, 23, 5, 22, 87, 148, 135, 22, 82, 165, 148) pause 200 hserout 0,(20, 96, 21, 114, 22, 82, 23, 5, 22, 87, 148, 135, 22, 82, 165, 148) pause 1000 return speak3: ; 2 many secrets ; hserout 0,(20, 96, 21, 114, 22, 98, 23, 5, 22, 82, 8, 191, 162, 140, 131, 141, 128, 22, 87, 187, 128, 22, 87, 194, 148, 129, 191, 187) pause 1000 return TisAm: ; This is America Song by Walt Perko ;1 From the eas ;\NTG2 From the \NTE2 \Slow \IY \SE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 186, 148, 134, 8, 140, 8, 169, 8, 128, 22, 82, 8, 128, 187) pause 800 ;2 tern shores ;\NTG2 \TT \AXRR \NE \SH \OW \OWRR \SE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 191, 151, 141, 189, 137, 153, 187) pause 500 ;3 and plymouth rock ;\NTG2 and \NTA2 \PE \LE \IH \NTG2 \MM \IH \TH rock hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 8, 132, 8, 141, 177, 22, 110, 198, 145, 129, 22, 98, 140, 129, 190, 148, 136, 197) pause 1000 ;4 to the Hawaiian ;\NTG2 \TT \Slow \UH \TH \AW \Slow \HO \AW \NTC3 \WH \OHIY \AY \NE \OHIY \LE \AY \NE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 191, 8, 138, 190, 135, 8, 184, 135, 22, 131, 185, 155, 132, 141, 155, 145, 132, 141) pause 1000 ;5 island sunshine ;\NTA2 \SE \AX \NE \NTG2 \SH \OHIH \NE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 110, 187, 133, 141, 22, 98, 189, 157, 141) pause 500 ;6 My love for her ;\NTG2 \MM \OHIH \NTE2 \LE \Slow \AW \VV \VV \NTG2 \FF \OWWW \RR \HE \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 140, 157, 22, 82, 145, 8, 135, 166, 166, 22, 98, 186, 164, 148, 183, 148) pause 800 ;7 runs deep ;\NTG2 \RR \AW \NE \ZZ \NTA2 \DE \Slow \IY \PO hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 148, 135, 141, 167, 22, 110, 174, 8, 128, 199) pause 800 ;8 and strong ;\NTG2 and \SE \TT \RR \AW \EG hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 8, 132, 8, 141, 177, 187, 191, 148, 135, 180) pause 800 ;9 My pride ;\NTC3 \MM \OHIY \NTD3 \PE \RR \OHIY \ED hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 140, 155, 22, 147, 198, 148, 155, 176) pause 800 ; 9a is in ;\NTD3 is \NTC3 in hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 8, 129, 167, 22, 131, 8, 129, 8, 141) pause 800 ;10 her soul ;\NTB2 \HE \RR \NTC3 \Slow \SO \Slow \OW \Slow \LE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 123, 183, 148, 22, 131, 8, 188, 8, 137, 8, 145) pause 500 gosub chorus ;19 The bill of ;\NTG2 \TH \AW \NTE2 \BE \IH \LO \NTG2 of hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 190, 135, 22, 82, 170, 129, 146, 22, 98, 8, 134, 166) pause 800 ;20 rights ;\NTG2 \RR \OHIY \TT \SE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 148, 155, 191, 187) pause 500 ;21 that we ;\NTG2 that \NTA2 we hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 169, 8, 132, 8, 191, 22, 110, 147, 8, 128) pause 500 ;22 believe ;\NTG2 \BE \IY \LE \IY \VV hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 170, 128, 145, 128, 166) pause 500 ;23 the cause that is ;\NTG2 \TH \AW \NTC3 \Slow \KE \AW \ZZ \ZZ \TH \AY \TT is hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 190, 135, 22, 131, 8, 194, 135, 167, 167, 190, 132, 191, 8, 129, 167) pause 800 ;24 our freedom ;\NTC3 \AW \OW \RR \NTA2 \FF \RR \IY \NTG2 \DE \AW \MM hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 135, 137, 148, 22, 110, 186, 148, 128, 22, 98, 174, 135, 140) pause 800 ;25 we hold them ;\NTG2 We \NTE2 hold \NTG2 them hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 147, 8, 128, 22, 82, 184, 137, 8, 146, 177, 22, 98, 8, 169, 131, 8, 140) pause 800 ;26 sacred in our ;\NTG2 \SE \EY \KE \RR \EH \DE \NTA2 in \NTG2 our hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 187, 130, 194, 148, 131, 174, 22, 110, 8, 129, 8, 141, 22, 98, 163, 148) pause 800 ;27 hearts ;\NTG2 \HE \AW \RR \TT \SE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 183, 135, 148, 191, 187) pause 500 ;28 ideals that ;\NTC3 I \NTD3 \DE \IY \LE \SE that hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 6, 157, 22, 147, 174, 128, 145, 187, 169, 8, 132, 8, 191) pause 800 ;29 we believe ;\NTC3 we \NTB2 \Slow \BE \IY \NTC3 \LE \IY \VV hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 147, 8, 128, 22, 123, 8, 170, 128, 22, 131, 145, 128, 166) pause 800 gosub chorus ;38 A shrinking world ;\NTG2 \AW \NTE2 \SH \RR \IY \NTG2 \KE \IY \NE world hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 135, 22, 82, 189, 148, 128, 22, 98, 194, 128, 141, 147, 151, 145, 176) pause 800 ;39 a growing scheme ;\AW \NTA2 \GO \RR \OW \NTG2 \IY \NE \SE \KE \IY \MM hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 135, 22, 110, 179, 148, 137, 22, 98, 128, 141, 187, 194, 128, 140) pause 800 ;40 democracy ;\DE \IY \NTC3 \MM \AW \KE \RR \SE \IY hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 174, 128, 22, 131, 140, 135, 194, 148, 187, 128) pause 500 ;41 surrounds us ;\NTC3 \SE \RR \NTA2 \RR \OW \DE \ZZ \NTG2 \AW \Slow \SE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 187, 148, 22, 110, 148, 137, 174, 167, 22, 98, 135, 8, 187) pause 800 ;42 freedoms bell ;\NTE2 \FF \RR \IY \NTG2 \DE \AW \MM \SE \BE \EH \Slow \LE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 82, 186, 148, 128, 22, 98, 174, 135, 140, 187, 170, 131, 8, 145) pause 800 ;43 will ring again ;\NTG2 will \NTA2 ring \NTG2 \AW \GE \EY \NE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 98, 147, 129, 8, 145, 22, 110, 148, 128, 8, 143, 22, 98, 135, 178, 130, 141) pause 800 ;44 with liberty ;\NTC3 with \LE \IH \BE \RR \NTD3 \TT \IY hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 147, 129, 8, 8, 190, 145, 129, 170, 148, 22, 147, 191, 128) pause 800 ;45 enlightening ;\NTD3 \IH \NE \LE \OHIY \NTC3 \TT \IY \NE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 129, 141, 145, 155, 22, 131, 191, 128, 141) pause 500 ;46 the world ;\NTB2 \TH \AW \NTC3 \Slow world hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 123, 190, 135, 22, 131, 8, 147, 151, 145, 176) pause 1000 gosub chorus gosub chorus return chorus: ;11 This is ;\NTE3 This \NTF3 is hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 165, 8, 169, 8, 129, 187, 22, 175, 8, 129, 167) pause 800 ;12 Amer ;\NTG3 \AW \NTA3 \MM \EY \Slow \RR \RR \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 196, 135, 22, 220, 140, 130, 8, 148, 148, 148) pause 800 ;12a rica ;\NTG3 \RR \IY \NTE3 \KE \AW hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 196, 148, 128, 22, 165, 194, 135) pause 800 ;13 Ame ;\Delay \25 \NTB2 \AW \NTD3 \MM \EY hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 30, 25, 22, 123, 135, 22, 147, 140, 130) pause 800 ;13a rica ;\NTD3 \Slow \RR \RR \NTG3 \RR \IY \NTE3 \KE \AW hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 8, 148, 148, 22, 196, 148, 128, 22, 165, 194, 135) pause 900 ;14 This is ;\NTE3 This \NTF3 is hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 165, 8, 169, 8, 129, 187, 22, 175, 8, 129, 167) pause 800 ;15 Amer ;\NTG3 \AW \NTA3 \MM \EY \NTA3 \Slow \RR \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 196, 135, 22, 220, 140, 130, 22, 220, 8, 148, 148) pause 500 ;15a rica ;\NTG3 \RR \IY \NTE3 \KE \AW hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 196, 148, 128, 22, 165, 194, 135) pause 300 ;16 and my pride ;\NTC3 \P3 \Slow and \NTC3 \MM \OHIY \NTD3 \PE \RR \OHIY \ED hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 3, 8, 8, 132, 8, 141, 177, 22, 131, 140, 155, 22, 147, 198, 148, 155, 176) pause 800 ;17 is in her ;\NTD3 is \NTC3 in \NTB2 \HE \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 8, 129, 167, 22, 131, 8, 129, 8, 141, 22, 123, 183, 148) pause 500 ;18 soul ;\NTC3 \Slow \SO \Slow \OW \Slow \LE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 131, 8, 188, 8, 137, 8, 145) pause 800 pause 1200 return ; END Subroutines * * * * * * * * * * * * * * * * end