; Experiment-X0-28X2-Scratch.bas #picaxe 28X2 ; Define the µProcessor IC Type ; hserout pin = C.6 hsersetup B9600_8, %00000 ; 9600 baud, non-inverted polarity symbol RWheel = B.0 symbol LWheel = B.1 symbol BLED = B.5 symbol GLED = B.6 symbol RLED = B.7 symbol i = b0 init: servo RWheel,150 servo LWheel,150 ; BEGIN Main Body * * * * * * * * * * * * * * * * * * * * * * * gosub blue pause 250 gosub green pause 250 gosub red pause 250 gosub Teal gosub Cntr pause 3000 do gosub Vocal gosub FWD gosub MyName pause 500 gosub BAK gosub Speech1 pause 500 gosub Left pause 500 gosub Learn gosub Police pause 2000 gosub Electronic pause 5000 loop ; END Main Body * * * * * * * * * * * * * * * * * * * * * * ** end ; BEGIN SpeakJet Subroutines * * * * * * * * * * * * * * * * * * * * * * MyName: ; My name is Twitch gosub FWD ; \PITCH \100 My \PITCH \115 name , \PITCH \95 is \PITCH \100 \TT \WW \Slow \IH \IH \TT \PITCH \90 \Slow \CH hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 100, 140, 155, 22, 115, 141, 154, 140, 2, 22, 95, 8, 129, 167, 22, 100, 191, 147, 8, 129, 129, 191, 22, 90, 8, 182) pause 2500 gosub BAK return Vocal: ; Vocal Test, second vocal test ; \PITCH \100 \VV \OW \KE \AW \LE Test , , second , \PITCH \95 \VV \OW \KE \AW \LE \PITCH \100 test gosub red pause 200 gosub green pause 200 gosub blue gosub Cntr hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 100, 166, 137, 194, 135, 145, 191, 131, 8, 187, 191, 2, 2, 8, 187, 131, 195, 133, 141, 177, 2, 22, 95, 166, 137, 194, 135, 145, 22, 100, 191, 131, 8, 187, 191) pause 3500 return Speech1: ; I am a mini floppy bot ; \PITCH \100 I \PITCH \95 am \PITCH \100 a \MM \IH \PITCH \95 \NE \IY \PITCH \100 \FF \LE \AW \PITCH \95 \PE \IY bot gosub blue gosub Right hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 100, 157, 22, 95, 132, 132, 140, 22, 100, 154, 128, 140, 129, 22, 95, 141, 128, 4, 1, 22, 100, 186, 145, 135, 22, 95, 198, 128, 171, 8, 136, 191) pause 2000 ; I have a PICAXE ; \PITCH \100 I \PITCH \90 have \PITCH \95 a \PITCH \100 PICK \PITCH \95 AX gosub Teal gosub Cntr hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 100, 157, 22, 90, 183, 8, 132, 166, 22, 95, 154, 128, 22, 100, 198, 129, 195, 22, 95, 132, 132, 196, 187) pause 1500 ; 28X2 chip ; \PITCH \100 twenty eight \PITCH \90 x two \PITCH \95 chip gosub red gosub Left hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 100, 8, 7, 191, 7, 147, 131, 141, 7, 191, 128, 154, 4, 191, 22, 90, 131, 131, 195, 187, 8, 191, 162, 22, 95, 182, 129, 129, 198) pause 2000 ; on my RoboGuts circuit board ; \PITCH \90 on \PITCH \95 my \PITCH \100 \RR \OW \OW \BO \OW \OW \PITCH \95 \GE \AW \TT \SE \SE \IH \RR \KE \IH \TT \PITCH \90 \BO \OW \RR \DE gosub green gosub Cntr hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 90, 136, 136, 142, 22, 95, 140, 155, 22, 100, 148, 137, 137, 171, 137, 137, 6, 22, 95, 178, 135, 191, 187, 6, 187, 129, 148, 194, 129, 191, 22, 90, 171, 137, 148, 174) pause 2000 ; All I do is, Talk, Sing, Rock and Roll ; \PITCH \100 All \PITCH \90 I \PITCH \100 do \PITCH \90 is \PITCH \100 talk , sing , \PITCH \100 rock \PITCH \90 and \PITCH \100 roll gosub Orange gosub Right hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 100, 8, 135, 8, 146, 22, 90, 157, 22, 100, 174, 162, 22, 90, 8, 129, 167, 22, 100, 191, 8, 136, 8, 197, 2, 8, 187, 128, 8, 143, 2, 22, 100, 148, 136, 197, 22, 90, 8, 132, 8, 141, 177, 22, 100, 148, 8, 137, 8, 146) pause 3500 gosub Cntr return Learn: ; Learn to be a Geek ; \PITCH \100 \LE \Slow \RR \PITCH \90 \NE to \BE \IY a \PITCH \100 \GE \IY \KE gosub blue gosub FWD hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 100, 145, 8, 148, 22, 90, 141, 6, 8, 191, 162, 170, 128, 154, 128, 22, 100, 178, 128, 194) pause 3000 return OPEN: ;Boom Boom Wow, Boom Boom Wow, {high} gosub red gosub Cntr hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 123, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 247, 147, 135, 135, 135, 135, 137, 2, 22, 123, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 247, 147, 135, 135, 135, 135, 137, 2) pause 2500 gosub blue gosub Right ;Boom Boom Wow, Boom Boom Wow, {low} hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 98, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 196, 147, 135, 135, 135, 135, 137, 2, 22, 98, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 196, 147, 135, 135, 135, 135, 137, 2) pause 3000 gosub green gosub Cntr ;Ba ba ba, Boom Boom Wow, Boom Boom Wow, {high} hserout 0,(20, 96, 21, 114, 22, 147, 23, 5, 22, 147, 170, 135, 22, 147, 170, 135, 22, 147, 170, 135, 22, 123, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 247, 147, 135, 135, 135, 135, 137, 2, 22, 123, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 247, 147, 135, 135, 135, 135, 137, 2) pause 3000 gosub Teal gosub Left ;Boom Boom Wow, Boom Boom Wow, {low} hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 98, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 196, 147, 135, 135, 135, 135, 137, 2, 22, 98, 170, 138, 138, 140, 6, 170, 138, 138, 140, 22, 196, 147, 135, 135, 135, 135, 137, 2) pause 3000 gosub Cntr return Electronic: ; I am Electronic gosub green pause 250 gosub Orange gosub OPEN gosub red gosub Right ; 05 I am Electronic, I am Electronic {high} ; \NTD3 I am e \NTB2 \LE \EH \KE \TT \RR \AW \NE \NE \IH \KE , \NTD3 I am e \NTB2 \LE \EH \KE \TT \RR \AW \NE \NE \IH \KE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 157, 132, 132, 140, 128, 128, 22, 123, 145, 131, 194, 191, 148, 135, 141, 141, 129, 194, 2, 22, 147, 157, 132, 132, 140, 128, 128, 22, 123, 145, 131, 194, 191, 148, 135, 141, 141, 129, 194) pause 3000 gosub green gosub Cntr ; 06I am a science kit, I am a science kit, {low} ; \NTD3 I am \NTB2 a \NTG2 \SE \OHIY \EH \NE \SE \NTE2 \KE \IH \TT , \NTD3 I am \NTB2 a \NTG2 \SE \OHIY \EH \NE \SE \NTE2 \KE \IH \TT hserout 0,(20, 96, 21, 114, 22, 82, 23, 5, 22, 147, 157, 132, 132, 140, 22, 123, 154, 128, 22, 98, 187, 155, 131, 141, 187, 6, 22, 82, 194, 129, 191, 2, 22, 147, 157, 132, 132, 140, 22, 123, 154, 128, 22, 98, 187, 155, 131, 141, 187, 6, 22, 82, 194, 129, 191) pause 3750 gosub Teal gosub Left ; 07 I have a RoboGuts, I have a RoboGuts ; \NTD3 I have a \NTB2 row \BO \OW \GE \AW \TT \SE , \NTD3 I have a \NTB2 row \BO \OW \GE \AW \TT \SE hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 147, 157, 183, 8, 132, 166, 154, 128, 22, 123, 148, 7, 137, 7, 164, 171, 137, 178, 135, 191, 187, 2, 22, 147, 157, 183, 8, 132, 166, 154, 128, 22, 123, 148, 7, 137, 7, 164, 171, 137, 178, 135, 191, 187) pause 3250 gosub Pink gosub Cntr ; 08 I have a PICAXE chip, I have a PICAXE chip {low} ; \NTD3 I have \NTB2 \AW \NTG2 \PE \IH \KE \NTE2 \AY \KE \SE chip hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 147, 157, 183, 8, 132, 166, 22, 123, 135, 22, 98, 198, 129, 194, 22, 82, 132, 194, 187, 182, 129, 129, 198) pause 2000 gosub green gosub Right ; 08 I have a PICAXE chip, I have a PICAXE chip {low} ; \NTD3 I have \NTB2 \AW \NTG2 \PE \IH \KE \NTE2 \AY \KE \SE chip hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 147, 157, 183, 8, 132, 166, 22, 123, 135, 22, 98, 198, 129, 194, 22, 82, 132, 194, 187, 182, 129, 129, 198) pause 2000 gosub Orange gosub Cntr ; 10 a 28X2, 28X2 {high} ; \NTD3 a twenty \NTB2 eight X two hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 147, 154, 128, 8, 7, 191, 7, 147, 131, 141, 7, 191, 128, 22, 123, 154, 4, 191, 131, 131, 195, 187, 8, 191, 162) pause 2000 gosub Teal gosub Left ; 11 a 28X2, 28X2 {high} ; \NTD3 a twenty \NTB2 eight X two hserout 0,(20, 96, 21, 114, 22, 123, 23, 5, 22, 147, 154, 128, 8, 7, 191, 7, 147, 131, 141, 7, 191, 128, 22, 123, 154, 4, 191, 131, 131, 195, 187, 8, 191, 162) pause 2000 gosub red ; 12 I am so powerful, I am so powerful, {low} ; \NTD3 I am \NTB2 so \NTG2 \PO \AW \AW \AW \WW \WW \RR \NTE2 full, \NTD3 I am \NTB2 so \NTG2 \PO \AW \AW \AW \WW \WW \RR \NTE2 full hserout 0,(20, 96, 21, 114, 22, 82, 23, 5, 22, 147, 157, 132, 132, 140, 22, 123, 8, 188, 7, 164, 7, 147, 22, 98, 199, 135, 135, 135, 147, 147, 148, 22, 82, 186, 15, 138, 15, 138, 146, 2, 22, 147, 157, 132, 132, 140, 22, 123, 8, 188, 7, 164, 7, 147, 22, 98, 199, 135, 135, 135, 147, 147, 148, 22, 82, 186, 15, 138, 15, 138, 146) pause 3500 gosub blue gosub Cntr ; 13 We use the information, ; \NTE3 We use \NTD3 the \NTE3 in \NTD3 for \NTE3 \MM \Slow \EYIY \NTC3 \SH \AW \NE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 165, 147, 8, 128, 160, 167, 22, 147, 8, 169, 8, 128, 22, 165, 8, 129, 8, 141, 22, 147, 186, 153, 22, 165, 140, 8, 154, 22, 131, 189, 135, 141) pause 2000 gosub green ; 14 to control the future, ; \NTE3 to \KE \AW \NE \TT \RR \OW \LE \PITCH \180 \TH \AW \NTG3 \FF \IYUW \UH \PITCH \180 \CH \RR \RR \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 165, 8, 191, 162, 194, 135, 141, 191, 148, 137, 145, 22, 180, 190, 135, 22, 196, 186, 160, 138, 22, 180, 182, 148, 148, 148) pause 2500 gosub Orange gosub Right ; 15 Robot R 2 B, Not 2 Not B ; \NTE3 Row bot \NTG3 are \NTC3 to B \IY , \NTE3 not to , \NTG3 not \NTC3 B \IY hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 165, 148, 7, 137, 7, 164, 171, 8, 136, 191, 22, 196, 152, 22, 131, 8, 191, 162, 170, 128, 128, 128, 2, 22, 165, 141, 136, 191, 8, 191, 162, 2, 22, 196, 141, 136, 191, 22, 131, 170, 128, 128, 128) pause 3500 gosub green gosub Cntr gosub OPEN gosub red gosub Left ; 20 I'm not an animal, I'm not an animal, {high} ; \NTD3 \OHIY \MM not an \NTB2 an , \IH \MM \AW \LE , \NTD3 \OHIY \MM not an \NTB2 an , \IH \MM \AW \LE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 155, 140, 141, 136, 191, 132, 132, 141, 22, 123, 132, 132, 141, 2, 129, 140, 135, 145, 2, 22, 147, 155, 140, 141, 136, 191, 132, 132, 141, 22, 123, 132, 132, 141, 2, 129, 140, 135, 145) pause 3500 gosub Orange gosub Cntr ; 21 I am a robot, I am a robot, {low} ; \NTD3 I am a \NTG2 row , bot , \NTD3 I am a \NTE2 row , bot hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 157, 132, 132, 140, 154, 128, 22, 98, 148, 7, 137, 7, 164, 2, 171, 8, 136, 191, 2, 22, 147, 157, 132, 132, 140, 154, 128, 22, 82, 148, 7, 137, 7, 164, 2, 171, 8, 136, 191) pause 3000 gosub green gosub Right ; 22 I am a 3D print, I am a 3D print, ; \NTD3 I am a \NTB2 three , D \PE \RR \IH \NE , \NTD3 I am a \NTB2 three , D \PE \RR \IH \NE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 157, 132, 132, 140, 154, 128, 22, 123, 8, 190, 148, 8, 128, 2, 174, 128, 128, 198, 148, 129, 141, 2, 22, 147, 157, 132, 132, 140, 154, 128, 22, 123, 8, 190, 148, 8, 128, 2, 174, 128, 128, 198, 148, 129, 141) pause 3500 gosub green gosub Cntr ; 23 I made of P L A, I made of P L A, ; \NTD3 I \MM \EYIY \DE of \NTG2 P L A, \NTD3 I \MM \EYIY \DE of \NTE2 P L A hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 157, 140, 154, 174, 8, 134, 166, 22, 98, 198, 128, 128, 131, 159, 154, 128, 2, 22, 147, 157, 140, 154, 174, 8, 134, 166, 22, 82, 198, 128, 128, 131, 159, 154, 128) pause 3500 gosub red gosub Left ; 24 I have a Kilowatt {high} ; \NTD3 I have a \NTB2 \KE \IH \LE \LE , \OW \WW \AW \TT hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 157, 183, 8, 132, 166, 154, 128, 22, 123, 194, 129, 145, 145, 2, 137, 147, 135, 191) pause 2000 gosub Teal gosub Cntr ; 25 I have a Kilowatt {high} ; \NTD3 I have a \NTB2 \KE \IH \LE \LE , \OW \WW \AW \TT hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 157, 183, 8, 132, 166, 154, 128, 22, 123, 194, 129, 145, 145, 2, 137, 147, 135, 191) pause 2000 gosub blue gosub Right ; 26 I got the energy, I got the energy, {low} ; \NTD3 I got \NTG2 the \NTE2 \EH \NE \AXRR \JH \IY , \NTD3 I got \NTG2 the \NTE2 \EH \NE \AXRR \JH \IY hserout 0,(20, 96, 21, 114, 22, 82, 23, 5, 22, 147, 157, 8, 179, 136, 136, 191, 22, 98, 8, 169, 8, 128, 6, 22, 82, 131, 141, 151, 165, 128, 2, 22, 147, 157, 8, 179, 136, 136, 191, 22, 98, 8, 169, 8, 128, 6, 22, 82, 131, 141, 151, 165, 128) pause 2500 gosub green gosub Cntr ; 27 I am a steam project, ; \NTD3 I got \NTG2 the \NTE2 \EH \NE \AXRR \JH \IY , \NTD3 I got \NTG2 the \NTE2 \EH \NE \AXRR \JH \IY hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 157, 132, 132, 140, 154, 128, 22, 123, 187, 6, 191, 128, 140, 6, 198, 148, 135, 165, 131, 191) pause 2000 ; We are all steam projects {high} ; \NTD3 I am a \NTB2 \SE \TT \IY \MM \PE \RR \AW \JH \EH \TT , \NTD3 we are all \NTB2 \SE \TT \IY \MM \PE \RR \AW \JH \EH \TT \SE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 147, 8, 128, 152, 8, 135, 8, 146, 22, 123, 187, 6, 191, 128, 140, 6, 198, 148, 135, 165, 131, 191, 187) pause 2000 gosub Orange gosub Left ; 28 We are Education, education {low} ; \NTD3 we are \EH \DE \NTB2 \JH \IYUW \NTG2 \KE \EYIY \NTE2 \SH \AW \NE , \NTD3 we are \EH \DE \NTB2 \JH \IYUW \NTG2 \KE \EYIY \NTE2 \SH \AW \NE hserout 0,(20, 96, 21, 114, 22, 82, 23, 5, 22, 147, 147, 8, 128, 152, 131, 174, 22, 123, 165, 160, 22, 98, 194, 154, 22, 82, 189, 135, 141, 2, 22, 147, 147, 8, 128, 152, 131, 174, 22, 123, 165, 160, 22, 98, 194, 154, 22, 82, 189, 135, 141) pause 2500 gosub green gosub Cntr ; 29 Whats the situation, ; \NTE3 What \SE \NTD3 \TH \AW \NTE3 sit \CH \UH \WW \EYIY \NTC3 \SH \AW \NE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 165, 185, 8, 136, 191, 187, 22, 147, 190, 135, 22, 165, 8, 187, 129, 129, 191, 182, 138, 147, 154, 22, 131, 189, 135, 141) pause 3000 gosub red gosub Right ; 30 when do we take over? ; \NTE3 when \NTD3 do \NTE3 we \NTF3 take \NTG3 o \OW \OW \NTF3 \VV \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 165, 185, 8, 131, 8, 141, 22, 147, 174, 162, 22, 165, 147, 8, 128, 22, 175, 192, 154, 196, 22, 196, 137, 164, 137, 137, 22, 175, 166, 148) pause 2750 gosub blue gosub Cntr ; 31 It's time to take control, time to take over, ; \NTE3 it \SE time to \NTC3 take \KE \AW \NE \TT \RR \OW \LE , \NTE3 time to \NTF3 take \NTG3 o \VV \NTF3 \AXRR hserout 0,(20, 96, 21, 114, 22, 175, 23, 5, 22, 165, 8, 129, 8, 191, 187, 8, 191, 157, 8, 140, 8, 191, 162, 22, 131, 192, 154, 196, 194, 135, 141, 191, 148, 137, 145, 2, 22, 165, 8, 191, 157, 8, 140, 8, 191, 162, 22, 175, 192, 154, 196, 22, 196, 137, 164, 166, 22, 175, 151) pause 3250 gosub Pink gosub Left ; 32 We are the RoboToons, We are the RoboToons, ; \NTD3 We R \TH \AW \NTB2 \RR \OW , \BO \OW \TT \UH \UH \NE \ZZ , \NTD3 We R \TH \AW \NTB2 \RR \OW , \BO \OW \TT \UH \UH \NE \ZZ , hserout 0,(20, 96, 21, 114, 22, 98, 23, 5, 22, 147, 147, 8, 128, 152, 190, 135, 22, 123, 148, 137, 2, 171, 137, 191, 138, 138, 141, 167, 2, 22, 147, 147, 8, 128, 152, 190, 135, 22, 123, 148, 137, 2, 171, 137, 191, 138, 138, 141, 167, 2) pause 3000 gosub green gosub Cntr ; 33 We are the host in the machines. ; \NTD3 We are \TH \AW \NTG2 \HO \OW \SE \TT in \TH \AW \AW \MM \AW \AW \AW \AW \NTE2 \SH \IY \IY \NE \ZZ hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 147, 147, 8, 128, 152, 190, 135, 22, 98, 184, 137, 187, 191, 8, 129, 8, 141, 190, 135, 135, 6, 140, 135, 135, 135, 135, 6, 22, 82, 189, 128, 128, 141, 167) gosub Police pause 3000 return end ; END SpeakJet Subroutines * * * * * * * * * * * * * * * * * * * * * * * * * * ** ; BEGIN Standard Servo Subroutines * * * * * * * * * * * * * * * * * * * * * * ; PWMOUT pin, period, duty cycles ; Wheels Cntr: servopos RWheel, 150 servopos LWheel, 150 return FWD: servopos RWheel, 130 servopos LWheel, 170 return BAK: servopos RWheel, 165 servopos LWheel, 135 return Right: servopos RWheel, 125 servopos LWheel, 125 return Left: servopos RWheel, 175 servopos LWheel, 175 return ; END Standard Servo Subroutines * * * * * * * * * * * * * * * * * * * * * ** ; BEGIN RGB LED subroutines * * * * * * * * * * * * * * * LEDsOFF: high RLED high GLED high BLED return red: low RLED high GLED high BLED return green: high RLED low GLED high BLED return blue: high RLED high GLED low BLED return Pink: low RLED high GLED low BLED return Orange: low RLED low GLED high BLED return Teal: high RLED low GLED low BLED return Police: For i = 0 to 9 gosub red pause 50 gosub LEDsOFF gosub red pause 50 gosub LEDsOFF pause 100 gosub blue pause 50 gosub LEDsOFF gosub blue pause 50 gosub LEDsOFF pause 100 next i return ; END RGB LED subroutines * * * * * * * * * * * * * * * * end