main()
{ BYTE bZlr;			// Zählvariable
  BYTE xdata *bPtr = 0x4100;	// Zeiger auf Datenspeicher
  SECH(5);			// 5s. warten (Zeit zum Umschalten)
  for(;;)		// Arbeitsschleife
  { P1 = bZlr;			// Zählvariable ausgeben
    bZlr++;			// weiterzählen
    *bPtr = 0;			// Datenspeicherzelle löschen
    bPtr++;			// Zeiger auf Nächste
    if(bPtr > 0x41FF)		// Falls Pageüberlauf,
	bPtr = 0x4100;		// Zeiger auf Pageanfang
  }
}