#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