//#define GTC_ONCALC  //undo this line if with GCC4TI
 #define MIN_AMS 200
 #include <tigcclib.h>
 #ifdef GTC_ONCALC
 long al(long a) {return a;}
 long mu(long a,long b) {return a*b;}
 long di(long a,long b) {return a/b;}
 #else
 #define al(a) (a)
 #define mu(a,b) (a)*(b)
 #define di(a,b) (a)/(b)
 #endif
 #define WITH_GRAPHH
 WINDOW wind;
 unsigned char is_interh;
 unsigned char *lcdad;
 unsigned char gmode;
 INT_HANDLER OldInt5 = NULL;
 long var1;
 #include <misch.h>
 #include <basicioh.h>
 #include <mylibh.h>
 #ifdef WITH_GRAPHH
 #ifdef GTC_ONCALC
 #include <graphh.h>
 #else
 #include <graphh2.h>
 #endif
 #endif
 #include <finishh2.h>
 void _main(void) {
 kbhit();
 is_interh=0;
 #ifdef GTC_ONCALC
 #ifdef WITH_GRAPHH
 loadasm();
 #endif
 #endif
 lcdad=0x4C00;
 gmode=0;
 text_("Use keys to scroll");
 (gmode=1);
 f_keyclear_();
 GrayOn();
 f_light_(&lcdad);
 f_drawpic_(0,0,"bugatti0",gmode);
 f_dark_(&lcdad);
 f_drawpic_(0,0,"bugatti1",gmode);
 var1=(long)(malloc(100));
 if(!var1) {
 GrayOff();lcdad=0x4c00;
 f_keydisp_();
 f_finish_(0);
 }
 (gmode=0);
 while(!(_keytest(RR_ESC)&_keytest(RR_ESC))) {
 if((_keytest(RR_UP)&_keytest(RR_UP))) {
 f_light_(&lcdad);
 memcpy(var1,(lcdad)+(30*99),20);
 f_bscroll_((char*)(100),lcdad);
 memcpy(lcdad,var1,20);
 f_dark_(&lcdad);
 memcpy(var1,(lcdad)+(30*99),20);
 f_bscroll_((char*)(100),lcdad);
 memcpy(lcdad,var1,20);
 }
 if((_keytest(RR_DOWN)&_keytest(RR_DOWN))) {
 f_light_(&lcdad);
 memcpy(var1,lcdad,20);
 f_uscroll_((char*)(100),lcdad);
 memcpy((lcdad)+(30*99),var1,20);
 f_dark_(&lcdad);
 memcpy(var1,lcdad,20);
 f_uscroll_((char*)(100),lcdad);
 memcpy((lcdad)+(30*99),var1,20);
 }
 if((_keytest(RR_LEFT)&_keytest(RR_LEFT))) {
 f_light_(&lcdad);
 f_gsprt8_(159,0,100,(unsigned char*)(var1),lcdad);
 f_rscroll_((char*)(100),lcdad);
 f_sprt8_(0,0,100,(unsigned char*)(var1),gmode,lcdad);
 f_dark_(&lcdad);
 f_gsprt8_(159,0,100,(unsigned char*)(var1),lcdad);
 f_rscroll_((char*)(100),lcdad);
 f_sprt8_(0,0,100,(unsigned char*)(var1),gmode,lcdad);
 }
 if((_keytest(RR_RIGHT)&_keytest(RR_RIGHT))) {
 f_light_(&lcdad);
 f_gsprt8_(0,0,100,(unsigned char*)(var1),lcdad);
 f_lscroll_((char*)(100),lcdad);
 f_sprt8_(159,0,100,(unsigned char*)(var1),gmode,lcdad);
 (gmode=1);
 f_fillrect_(160,0,167,99,gmode,lcdad);
 (gmode=0);
 f_dark_(&lcdad);
 f_gsprt8_(0,0,100,(unsigned char*)(var1),lcdad);
 f_lscroll_((char*)(100),lcdad);
 f_sprt8_(159,0,100,(unsigned char*)(var1),gmode,lcdad);
 (gmode=1);
 f_fillrect_(160,0,167,99,gmode,lcdad);
 (gmode=0);
 }
 }
 GrayOff();lcdad=0x4c00;
 free(var1);
 f_keydisp_();
 f_finish_(0);
 }