#define SAVE_SCREEN        // this directive forces saving/restoring                                  the screen

#define USE_TI89            // produce all types of files
#define USE_TI92PLUS
#define USE_V200

#include <stdio.h>          // standard ANSI C input/output support
#include <kbd.h>            // keyboard handling support, needed for                                  ngetchx

void _main(void)            // main entry point is function _main
{
  clrscr ();                // clear the screen and reset print position
  printf ("Hello world!");  // do you know what this is?
  ngetchx ();              // wait for a keypress
}

void _main(void)
{
  unsigned char nb_level[100];
  unsigned char nb_level1=0;
  int lvl_size;
 
  int j=0;
  char packlevelfinal[25], packlevel[25];
  char listepack[100][25];
  HANDLE handle;
  char *fptr=0;
  SYM_ENTRY *openlevel_sym;
 
  ESI argptr;
  InitArgPtr (argptr);
 
 
 

  if (GetArgType (argptr) == STR_TAG)
    strcpy(packlevelfinal,GetStrnArg(argptr));
  else return; 

  while (GetArgType (argptr) == STR_TAG)
  {
    printf_xy(0,0,"dansboucle");
    ngetchx();
   
    strcpy(listepack[nb_level1],GetStrnArg(argptr));
    if ((openlevel_sym=SymFindPtr(SYMSTR(packlevel),0)))
    {
      handle=openlevel_sym->handle;
      fptr=HeapDeref(handle);
      nb_level[j] = (unsigned char) *(fptr+1);
    }
    nb_level1+=nb_level[j];
    j++;
  }
 
  lvl_size=nb_level1*260+10;
 
 
  printf_xy(0,0,"%d",nb_level1);
  printf_xy(0,10,"%d",lvl_size);
  ngetchx();

}

 xdef PxlOn

PxlOn:
muls.w #30,d1
move.w d0,d2
divs.w #8,d0
and.w #7,d2

add.w d1,d0
adda.w d0,a0

move.b #%10000000,d0
lsr.b d2,d0

or.b d0,(a0)

;clr.l d0 ;

rts

}

void _main(void)
{
  clrscr ();
  printf ("Hello world!");
  ngetchx ();
}