The priest told me I was going to hell for being raped.

% -- Variables --

gps_update_interval = 1000
gps_min_distance = 1
red = 255
green = 0
blue = 0
w = 3

% -- Global --

Gps.open gps_error, gps_update_interval, gps_min_distance
gr.open 255, 255, 255, 255, 1, 0

gr.screen actual_w, actual_h
top = actual_h            		
bottom = actual_h - actual_h            
left = actual_w - actual_w		
right = actual_w

bar_h = actual_h / 20
bar_w = actual_w / 20

Gr.bitmap.create bar1, bar_w, bar_h
Gr.bitmap.create bar2, bar_w, bar_h*2	
Gr.bitmap.create bar3, bar_w, bar_h*3
Gr.bitmap.create bar4, bar_w, bar_h*4
Gr.bitmap.create bar5, bar_w, bar_h*5
Gr.bitmap.create bar6, bar_w, bar_h*6
Gr.bitmap.create bar7, bar_w, bar_h*7
Gr.bitmap.create bar8, bar_w, bar_h*8
Gr.bitmap.create bar9, bar_w, bar_h*9
Gr.bitmap.create bar10, bar_w, bar_h*10
Gr.bitmap.create bar11, bar_w, bar_h*11
Gr.bitmap.create bar12, bar_w, bar_h*12
Gr.bitmap.create bar13, bar_w, bar_h*13
Gr.bitmap.create bar14, bar_w, bar_h*14
Gr.bitmap.create bar15, bar_w, bar_h*15
Gr.bitmap.create bar16, bar_w, bar_h*16
Gr.bitmap.create bar17, bar_w, bar_h*17
Gr.bitmap.create bar18, bar_w, bar_h*18
Gr.bitmap.create bar19, bar_w, bar_h*19
Gr.bitmap.create bar20, bar_w, bar_h*20
Gr.bitmap.create bg, actual_w, actual_h

Gr.bitmap.load bar1, "speedometer/bar1.png"
Gr.bitmap.load bar2, "speedometer/bar2.png"
Gr.bitmap.load bar3, "speedometer/bar3.png"
Gr.bitmap.load bar4, "speedometer/bar4.png"
Gr.bitmap.load bar5, "speedometer/bar5.png"
Gr.bitmap.load bar6, "speedometer/bar6.png"
Gr.bitmap.load bar7, "speedometer/bar7.png"
Gr.bitmap.load bar8, "speedometer/bar8.png"
Gr.bitmap.load bar9, "speedometer/bar9.png"
Gr.bitmap.load bar10, "speedometer/bar10.png"
Gr.bitmap.load bar11, "speedometer/bar11.png"
Gr.bitmap.load bar12, "speedometer/bar12.png"
Gr.bitmap.load bar13, "speedometer/bar13.png"
Gr.bitmap.load bar14, "speedometer/bar14.png"
Gr.bitmap.load bar15, "speedometer/bar15.png"
Gr.bitmap.load bar16, "speedometer/bar16.png"
Gr.bitmap.load bar17, "speedometer/bar17.png"
Gr.bitmap.load bar18, "speedometer/bar18.png"
Gr.bitmap.load bar19, "speedometer/bar19.png"
Gr.bitmap.load bar20, "speedometer/bar20.png"
Gr.bitmap.load bg, "speedometer/bg.jpeg"

% -- Main --

WakeLock w

do	

	OnMenuKey:
			Dialog.message "Menu", "Dim the screen? (night mode)", sel, "YES", "NO", "Reset"
			
			if sel = 1 then
				w = 2
			elseif sel = 2 then
				w = 3
			elseif	sel = 3
				w = 3
			else
				w = 3
			endif	
				
	MenuKey.resume
	
	gps.status gps_status, gps_sat_used, gps_sat_det
	gps.location , gps_prov$,, gps_acc,,,,, gps_speed
	
	gps_speed = gps_speed * 3.6																			
	n = gps_speed / 10							
	n = round(n,0,"U")		
	
	gps_speed = round(gps_speed, 0)
	
	SW.BEGIN n

	SW.CASE 0
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$	
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.render
		SW.BREAK

	SW.CASE 1
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.render
		SW.BREAK
		
	SW.CASE 2
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.render
		SW.BREAK
		
	SW.CASE 3
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.render
		SW.BREAK
		
	SW.CASE 4
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.render
		SW.BREAK
		
	SW.CASE 5
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.render
		SW.BREAK
		
	SW.CASE 6
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.render
		SW.BREAK
		
	SW.CASE 7
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.render
		SW.BREAK
		
	SW.CASE 8
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.render
		SW.BREAK
		
	SW.CASE 9
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.render
		SW.BREAK
		
	SW.CASE 10
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.render
		SW.BREAK
		
	SW.CASE 11
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.render
		SW.BREAK
		
	SW.CASE 12
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.render
		SW.BREAK
		
	SW.CASE 13
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13		
		gr.render
		SW.BREAK
		
	SW.CASE 14
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
		gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
		gr.render
		SW.BREAK
		
	SW.CASE 15
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
		gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
		gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
		gr.render
		SW.BREAK
		
	SW.CASE 16
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
		gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
		gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
		gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
		gr.render
		SW.BREAK
		
	SW.CASE 17
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
		gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
		gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
		gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
		gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
		gr.render
		SW.BREAK
		
	SW.CASE 18
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
		gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
		gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
		gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
		gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
		gr.bitmap.draw dbar18, bar18, left+bar_w*17 , top-bar_h*18
		gr.render
		SW.BREAK
		
	SW.CASE 19
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
		gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
		gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
		gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
		gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
		gr.bitmap.draw dbar18, bar18, left+bar_w*17 , top-bar_h*18
		gr.bitmap.draw dbar19, bar19, left+bar_w*18 , top-bar_h*19
		gr.render
		SW.BREAK
		
	SW.CASE 20
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
		gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
		gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
		gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
		gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
		gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
		gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
		gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
		gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
		gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
		gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
		gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
		gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
		gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
		gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
		gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
		gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
		gr.bitmap.draw dbar18, bar18, left+bar_w*17 , top-bar_h*18
		gr.bitmap.draw dbar19, bar19, left+bar_w*18 , top-bar_h*19
		gr.bitmap.draw dbar20, bar20, left+bar_w*19 , top-bar_h*20
		gr.render
		SW.BREAK
		
	SW.DEFAULT
		
		gr.cls
		gr.bitmap.draw dbg, bg, left, top-top
		gr.color , red, green, blue
		gr.text.size 40
		gr.text.setfont , "B"
		gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
		gr.text.draw speed, left+10, top-top+80, gps_speed$
		gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
		gr.text.draw status, left+10, top-top+130, gps_acc$
		gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
		gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
		gr.render
	
	SW.END
	
until 0