#platform "GOLDELOX"
// Program Skeleton 1.0 generated 14/06/05 2:39:05 PM
#inherit "4DGL_16bitColours.fnc"
#inherit "VisualConst.inc"
var agc;
func main()
// Uncomment the following if uSD images, fonts or strings used.
print("Starting...\n") ;
while(!media_Init())
putstr("Drive not mounted, please insert SD card");
pause(300);
gfx_Cls();
pause(100);
wend
// init
pin_Set(OUTPUT, IO2); // set IO2 to be used as an output
pin_Set(ANALOGUE_8, IO1); // set IO1 to be used as analogue input
repeat
agc := pin_Read(IO1);
if(agc<066)
if(agc<032)
if(agc<016)
if(agc<008)
if(agc<004)
if(agc<002)
if(agc<001)
//000.bmp
media_SetAdd(0x0000, 0x0000);
media_Image(0, 0);
else
//001.bmp
media_SetAdd(0x0000, 0x8200);
media_Image(0, 0);
endif
else
if(agc<003)
//002.bmp
media_SetAdd(0x0001, 0x0400);
media_Image(0, 0);
else
//003.bmp
media_SetAdd(0x0001, 0x8600);
media_Image(0, 0);
endif
endif
else
if(agc<006)
if(agc<005)
//004.bmp
media_SetAdd(0x0002, 0x0800);
media_Image(0, 0);
else
//005.bmp
media_SetAdd(0x0002, 0x8A00);
media_Image(0, 0);
endif
else
if(agc<007)
//006.bmp
media_SetAdd(0x0003, 0x0C00);
media_Image(0, 0);
else
//007.bmp
media_SetAdd(0x0003, 0x8E00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<012)
if(agc<010)
if(agc<009)
//008.bmp
media_SetAdd(0x0004, 0x1000);
media_Image(0, 0);
else
//009.bmp
media_SetAdd(0x0004, 0x9200);
media_Image(0, 0);
endif
else
if(agc<011)
//010.bmp
media_SetAdd(0x0005, 0x1400);
media_Image(0, 0);
else
//011.bmp
media_SetAdd(0x0005, 0x9600);
media_Image(0, 0);
endif
endif
else
if(agc<014)
if(agc<013)
//012.bmp
media_SetAdd(0x0006, 0x1800);
media_Image(0, 0);
else
//013.bmp
media_SetAdd(0x0006, 0x9A00);
media_Image(0, 0);
endif
else
if(agc<015)
//014.bmp
media_SetAdd(0x0007, 0x1C00);
media_Image(0, 0);
else
//015.bmp
media_SetAdd(0x0007, 0x9E00);
media_Image(0, 0);
endif
endif
endif
endif
else
if(agc<024)
if(agc<020)
if(agc<018)
if(agc<017)
//016.bmp
media_SetAdd(0x0008, 0x2000);
media_Image(0, 0);
else
//017.bmp
media_SetAdd(0x0008, 0xA200);
media_Image(0, 0);
endif
else
if(agc<019)
//018.bmp
media_SetAdd(0x0009, 0x2400);
media_Image(0, 0);
else
//019.bmp
media_SetAdd(0x0009, 0xA600);
media_Image(0, 0);
endif
endif
else
if(agc<022)
if(agc<021)
//020.bmp
media_SetAdd(0x000A, 0x2800);
media_Image(0, 0);
else
//021.bmp
media_SetAdd(0x000A, 0xAA00);
media_Image(0, 0);
endif
else
if(agc<023)
//022.bmp
media_SetAdd(0x000B, 0x2C00);
media_Image(0, 0);
else
//023.bmp
media_SetAdd(0x000B, 0xAE00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<028)
if(agc<026)
if(agc<025)
//024.bmp
media_SetAdd(0x000C, 0x3000);
media_Image(0, 0);
else
//025.bmp
media_SetAdd(0x000C, 0xB200);
media_Image(0, 0);
endif
else
if(agc<027)
//026.bmp
media_SetAdd(0x000D, 0x3400);
media_Image(0, 0);
else
//027.bmp
media_SetAdd(0x000D, 0xB600);
media_Image(0, 0);
endif
endif
else
if(agc<030)
if(agc<029)
//028.bmp
media_SetAdd(0x000E, 0x3800);
media_Image(0, 0);
else
//029.bmp
media_SetAdd(0x000E, 0xBA00);
media_Image(0, 0);
endif
else
if(agc<031)
//030.bmp
media_SetAdd(0x000F, 0x3C00);
media_Image(0, 0);
else
//031.bmp
media_SetAdd(0x000F, 0xBE00);
media_Image(0, 0);
endif
endif
endif
endif
endif
else
if(agc<048)
if(agc<040)
if(agc<036)
if(agc<034)
if(agc<033)
//032.bmp
media_SetAdd(0x0010, 0x4000);
media_Image(0, 0);
else
//033.bmp
media_SetAdd(0x0010, 0xC200);
media_Image(0, 0);
endif
else
if(agc<035)
//034.bmp
media_SetAdd(0x0011, 0x4400);
media_Image(0, 0);
else
//035.bmp
media_SetAdd(0x0011, 0xC600);
media_Image(0, 0);
endif
endif
else
if(agc<038)
if(agc<037)
//036.bmp
media_SetAdd(0x0012, 0x4800);
media_Image(0, 0);
else
//037.bmp
media_SetAdd(0x0012, 0xCA00);
media_Image(0, 0);
endif
else
if(agc<039)
//038.bmp
media_SetAdd(0x0013, 0x4C00);
media_Image(0, 0);
else
//039.bmp
media_SetAdd(0x0013, 0xCE00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<044)
if(agc<042)
if(agc<041)
//040.bmp
media_SetAdd(0x0014, 0x5000);
media_Image(0, 0);
else
//041.bmp
media_SetAdd(0x0014, 0xD200);
media_Image(0, 0);
endif
else
if(agc<043)
//042.bmp
media_SetAdd(0x0015, 0x5400);
media_Image(0, 0);
else
//043.bmp
media_SetAdd(0x0015, 0xD600);
media_Image(0, 0);
endif
endif
else
if(agc<046)
if(agc<045)
//044.bmp
media_SetAdd(0x0016, 0x5800);
media_Image(0, 0);
else
//045.bmp
media_SetAdd(0x0016, 0xDA00);
media_Image(0, 0);
endif
else
if(agc<047)
//046.bmp
media_SetAdd(0x0017, 0x5C00);
media_Image(0, 0);
else
//047.bmp
media_SetAdd(0x0017, 0xDE00);
media_Image(0, 0);
endif
endif
endif
endif
else
if(agc<056)
if(agc<052)
if(agc<050)
if(agc<049)
//048.bmp
media_SetAdd(0x0018, 0x6000);
media_Image(0, 0);
else
//049.bmp
media_SetAdd(0x0018, 0xE200);
media_Image(0, 0);
endif
else
if(agc<051)
//050.bmp
media_SetAdd(0x0019, 0x6400);
media_Image(0, 0);
else
//051.bmp
media_SetAdd(0x0019, 0xE600);
media_Image(0, 0);
endif
endif
else
if(agc<054)
if(agc<053)
//052.bmp
media_SetAdd(0x001A, 0x6800);
media_Image(0, 0);
else
//053.bmp
media_SetAdd(0x001A, 0xEA00);
media_Image(0, 0);
endif
else
if(agc<055)
//054.bmp
media_SetAdd(0x001B, 0x6C00);
media_Image(0, 0);
else
//055.bmp
media_SetAdd(0x001B, 0xEE00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<060)
if(agc<058)
if(agc<057)
//056.bmp
media_SetAdd(0x001C, 0x7000);
media_Image(0, 0);
else
//057.bmp
media_SetAdd(0x001C, 0xF200);
media_Image(0, 0);
endif
else
if(agc<059)
//058.bmp
media_SetAdd(0x001D, 0x7400);
media_Image(0, 0);
else
//059.bmp
media_SetAdd(0x001D, 0xF600);
media_Image(0, 0);
endif
endif
else
if(agc<062)
if(agc<061)
//060.bmp
media_SetAdd(0x001E, 0x7800);
media_Image(0, 0);
else
//061.bmp
media_SetAdd(0x001E, 0xFA00);
media_Image(0, 0);
endif
else
if(agc<064)
//062.bmp
media_SetAdd(0x001F, 0x7C00);
media_Image(0, 0);
else
//064.bmp
media_SetAdd(0x001F, 0xFE00);
media_Image(0, 0);
endif
endif
endif
endif
endif
endif
else
if(agc<145)
if(agc<098)
if(agc<082)
if(agc<074)
if(agc<070)
if(agc<068)
//066.bmp
media_SetAdd(0x0020, 0x8000);
media_Image(0, 0);
else
//068.bmp
media_SetAdd(0x0021, 0x0200);
media_Image(0, 0);
endif
else
if(agc<072)
//070.bmp
media_SetAdd(0x0021, 0x8400);
media_Image(0, 0);
else
//072.bmp
media_SetAdd(0x0022, 0x0600);
media_Image(0, 0);
endif
endif
else
if(agc<078)
if(agc<076)
//074.bmp
media_SetAdd(0x0022, 0x8800);
media_Image(0, 0);
else
//076.bmp
media_SetAdd(0x0023, 0x0A00);
media_Image(0, 0);
endif
else
if(agc<080)
//078.bmp
media_SetAdd(0x0023, 0x8C00);
media_Image(0, 0);
else
//080.bmp
media_SetAdd(0x0024, 0x0E00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<090)
if(agc<086)
if(agc<084)
//082.bmp
media_SetAdd(0x0024, 0x9000);
media_Image(0, 0);
else
//084.bmp
media_SetAdd(0x0025, 0x1200);
media_Image(0, 0);
endif
else
if(agc<088)
//086.bmp
media_SetAdd(0x0025, 0x9400);
media_Image(0, 0);
else
//088.bmp
media_SetAdd(0x0026, 0x1600);
media_Image(0, 0);
endif
endif
else
if(agc<094)
if(agc<092)
//090.bmp
media_SetAdd(0x0026, 0x9800);
media_Image(0, 0);
else
//092.bmp
media_SetAdd(0x0027, 0x1A00);
media_Image(0, 0);
endif
else
if(agc<096)
//094.bmp
media_SetAdd(0x0027, 0x9C00);
media_Image(0, 0);
else
//096.bmp
media_SetAdd(0x0028, 0x1E00);
media_Image(0, 0);
endif
endif
endif
endif
else
if(agc<121)
if(agc<109)
if(agc<103)
if(agc<100)
//098.bmp
media_SetAdd(0x0028, 0xA000);
media_Image(0, 0);
else
//100.bmp
media_SetAdd(0x0029, 0x2200);
media_Image(0, 0);
endif
else
if(agc<106)
//103.bmp
media_SetAdd(0x0029, 0xA400);
media_Image(0, 0);
else
//106.bmp
media_SetAdd(0x002A, 0x2600);
media_Image(0, 0);
endif
endif
else
if(agc<115)
if(agc<112)
//109.bmp
media_SetAdd(0x002A, 0xA800);
media_Image(0, 0);
else
//112.bmp
media_SetAdd(0x002B, 0x2A00);
media_Image(0, 0);
endif
else
if(agc<118)
//115.bmp
media_SetAdd(0x002B, 0xAC00);
media_Image(0, 0);
else
//118.bmp
media_SetAdd(0x002C, 0x2E00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<133)
if(agc<127)
if(agc<124)
//121.bmp
media_SetAdd(0x002C, 0xB000);
media_Image(0, 0);
else
//124.bmp
media_SetAdd(0x002D, 0x3200);
media_Image(0, 0);
endif
else
if(agc<130)
//127.bmp
media_SetAdd(0x002D, 0xB400);
media_Image(0, 0);
else
//130.bmp
media_SetAdd(0x002E, 0x3600);
media_Image(0, 0);
endif
endif
else
if(agc<139)
if(agc<136)
//133.bmp
media_SetAdd(0x002E, 0xB800);
media_Image(0, 0);
else
//136.bmp
media_SetAdd(0x002F, 0x3A00);
media_Image(0, 0);
endif
else
if(agc<142)
//139.bmp
media_SetAdd(0x002F, 0xBC00);
media_Image(0, 0);
else
//142.bmp
media_SetAdd(0x0030, 0x3E00);
media_Image(0, 0);
endif
endif
endif
endif
endif
else
if(agc<193)
if(agc<169)
if(agc<157)
if(agc<151)
if(agc<148)
//145.bmp
media_SetAdd(0x0030, 0xC000);
media_Image(0, 0);
else
//148.bmp
media_SetAdd(0x0031, 0x4200);
media_Image(0, 0);
endif
else
if(agc<154)
//151.bmp
media_SetAdd(0x0031, 0xC400);
media_Image(0, 0);
else
//154.bmp
media_SetAdd(0x0032, 0x4600);
media_Image(0, 0);
endif
endif
else
if(agc<163)
if(agc<160)
//157.bmp
media_SetAdd(0x0032, 0xC800);
media_Image(0, 0);
else
//160.bmp
media_SetAdd(0x0033, 0x4A00);
media_Image(0, 0);
endif
else
if(agc<166)
//163.bmp
media_SetAdd(0x0033, 0xCC00);
media_Image(0, 0);
else
//166.bmp
media_SetAdd(0x0034, 0x4E00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<181)
if(agc<175)
if(agc<172)
//169.bmp
media_SetAdd(0x0034, 0xD000);
media_Image(0, 0);
else
//172.bmp
media_SetAdd(0x0035, 0x5200);
media_Image(0, 0);
endif
else
if(agc<178)
//175.bmp
media_SetAdd(0x0035, 0xD400);
media_Image(0, 0);
else
//178.bmp
media_SetAdd(0x0036, 0x5600);
media_Image(0, 0);
endif
endif
else
if(agc<187)
if(agc<184)
//181.bmp
media_SetAdd(0x0036, 0xD800);
media_Image(0, 0);
else
//184.bmp
media_SetAdd(0x0037, 0x5A00);
media_Image(0, 0);
endif
else
if(agc<190)
//187.bmp
media_SetAdd(0x0037, 0xDC00);
media_Image(0, 0);
else
//190.bmp
media_SetAdd(0x0038, 0x5E00);
media_Image(0, 0);
endif
endif
endif
endif
else
if(agc<222)
if(agc<206)
if(agc<199)
if(agc<196)
//193.bmp
media_SetAdd(0x0038, 0xE000);
media_Image(0, 0);
else
//196.bmp
media_SetAdd(0x0039, 0x6200);
media_Image(0, 0);
endif
else
if(agc<202)
//199.bmp
media_SetAdd(0x0039, 0xE400);
media_Image(0, 0);
else
//202.bmp
media_SetAdd(0x003A, 0x6600);
media_Image(0, 0);
endif
endif
else
if(agc<214)
if(agc<210)
//206.bmp
media_SetAdd(0x003A, 0xE800);
media_Image(0, 0);
else
//210.bmp
media_SetAdd(0x003B, 0x6A00);
media_Image(0, 0);
endif
else
if(agc<218)
//214.bmp
media_SetAdd(0x003B, 0xEC00);
media_Image(0, 0);
else
//218.bmp
media_SetAdd(0x003C, 0x6E00);
media_Image(0, 0);
endif
endif
endif
else
if(agc<238)
if(agc<230)
if(agc<226)
//222.bmp
media_SetAdd(0x003C, 0xF000);
media_Image(0, 0);
else
//226.bmp
media_SetAdd(0x003D, 0x7200);
media_Image(0, 0);
endif
else
if(agc<234)
//230.bmp
media_SetAdd(0x003D, 0xF400);
media_Image(0, 0);
else
//234.bmp
media_SetAdd(0x003E, 0x7600);
media_Image(0, 0);
endif
endif
else
if(agc<246)
if(agc<242)
//238.bmp
media_SetAdd(0x003E, 0xF800);
media_Image(0, 0);
else
//242.bmp
media_SetAdd(0x003F, 0x7A00);
media_Image(0, 0);
endif
else
if(agc<250)
//246.bmp
media_SetAdd(0x003F, 0xFC00);
media_Image(0, 0);
else
//250.bmp
media_SetAdd(0x0040, 0x7E00);
media_Image(0, 0);
endif
endif
endif
endif
endif
endif
endif
forever
endfunc