byte Sprites = FROM "bolder.csp"; // Add CGA sprites
byte Font    = FROM "bolder.cfn"; //  and styles font.
word x, y;

#include "CGA_GRAX.H--"           // Coded by Oleg N. Cher
#include "RANDOM.H--"             // e-mail: olegka.cher@newmail.ru

main () {
@GRAX_INIT (); PALCOLOR (0); BACKCOLOR (18);
   x = 20; loop(x)  { SPRITE (x*2-6,30,5); }

y = 15; loop(y) { DELAY(10); SCROLLUP (12); SPRITE (-4,30,5);
   x = 18; loop(x)  { SPRITE (x*2-4,30,RAND()&15); }  SPRITE (34,30,5); }
   x = 20; loop(x)  { SPRITE (x*2-6,30,5); }
   x = 10; y = 10; SPRITE (x,y,4);
AH= 0; $Int 0x16
y = 12; loop(y) {
   x = 14; loop(x) { SCROLLDOWN (1); DELAY(3); }
   LOCATE (8,0); WRITEXT ("Sphinx C-- rulez 4ever!!"); }

AH= 0; $Int 0x16 CLS();
@GRAX_DONE (); }