[color=Green]'Directives[/color]
[color=Navy]#Picaxe [/color][color=Black]40X2[/color]
[color=Navy]#No_Data
#No_Table[/color]
[color=Green]'Symbols / Defines[/color]
[color=Blue]symbol LCD_OUT [/color][color=DarkCyan]= [/color][color=Blue]B.7
Symbol GSM_OUT [/color][color=DarkCyan]= [/color][color=Blue]B.1
Symbol GSM_IN [/color][color=DarkCyan]= [/color][color=Blue]B.2
Symbol LCD_BAUD [/color][color=DarkCyan]= [/color][color=Blue]N2400_16
Symbol GSM_BAUD [/color][color=DarkCyan]= [/color][color=Blue]T9600_16
SetFreq M16
High LCD_OUT [/color][color=Green]; Initialise output B.1 for 't2400' serial[/color]
[color=Blue]pause [/color][color=Navy]20 [/color][color=Green]; Delay while the receiver prepares for data [/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Navy]254[/color][color=Black],[/color][color=Navy]1[/color][color=Blue])
pause [/color][color=Navy]60[/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Navy]254[/color][color=Black],[/color][color=Navy]128[/color][color=Blue]) [/color][color=Green]; move cursor to Position (1,1)[/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black],[/color][color=Blue]([/color][color=Red]"Values Below"[/color][color=Blue])[/color]
[color=Purple]b1 [/color][color=DarkCyan]= [/color][color=Navy]0x22[/color]
[color=Black]main:[/color]
[color=Blue]serout GSM_OUT[/color][color=Black],[/color][color=Blue]GSM_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Red]"ATE0"[/color][color=Black], [/color][color=Blue]CR[/color][color=Black], [/color][color=Blue]LF )
pause [/color][color=Navy]30[/color]
[color=Blue]serout GSM_OUT[/color][color=Black],[/color][color=Blue]GSM_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Red]"AT+CMGF=1"[/color][color=Black], [/color][color=Blue]CR[/color][color=Black], [/color][color=Blue]LF ) [/color][color=Green]; Output "AT"[/color]
[color=Blue]serin GSM_IN[/color][color=Black],[/color][color=Blue]GSM_BAUD[/color][color=Black], [/color][color=Purple]b2[/color][color=Black],[/color][color=Purple]b3[/color]
[color=Blue]pause [/color][color=Navy]2000[/color]
[color=Blue]serout GSM_OUT[/color][color=Black],[/color][color=Blue]GSM_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Red]"AT+CMGL="[/color][color=Black],[/color][color=Purple]b1[/color][color=Black],[/color][color=Red]"REC READ"[/color][color=Black],[/color][color=Purple]b1[/color][color=Black], [/color][color=Blue]CR[/color][color=Black], [/color][color=Blue]LF )
serin GSM_IN[/color][color=Black],[/color][color=Blue]GSM_BAUD[/color][color=Black], [/color][color=Purple]b4[/color][color=Black],[/color][color=Purple]b5[/color][color=Black],[/color][color=Purple]b6[/color][color=Black],[/color][color=Purple]b7[/color][color=Black],[/color][color=Purple]b8[/color][color=Black],[/color][color=Purple]b9[/color][color=Black],[/color][color=Purple]b10[/color][color=Black],[/color][color=Purple]b11[/color][color=Black],[/color][color=Purple]b12[/color][color=Black],[/color][color=Purple]b13[/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Navy]254[/color][color=Black],[/color][color=Navy]192[/color][color=Blue]) [/color][color=Green]; move cursor to Position (1,1)[/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Red]"N:"[/color][color=Blue]) [/color][color=Green]'// 32 = space[/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b4[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b5[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b6[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b7[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Navy]254[/color][color=Black],[/color][color=Navy]148[/color][color=Blue]) [/color][color=Green]'//next line [/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b8[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b9[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b10[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b11[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Navy]254[/color][color=Black],[/color][color=Navy]212[/color][color=Blue]) [/color][color=Green]'//next line [/color]
[color=Blue]serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b12[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
serout LCD_OUT[/color][color=Black], [/color][color=Blue]LCD_BAUD[/color][color=Black], [/color][color=Blue]([/color][color=Black]#[/color][color=Purple]b13[/color][color=Black],[/color][color=Navy]32[/color][color=Blue])
Do
Loop[/color]