0 IFPAGE<>&1200THEN PAGE=&1200:CHAIN"Alien"
    1 ONERRORGOTO200
   10 DEFFNN="Alien"
   20 :
   30 *TV0
   40 MODE1
   50 HIMEM=&1A00
   55 FORF%=1TO3
   56 VDU19,F%;0;0
   57 NEXT
   60 VDU23,1,0,0,0,0,0,0,0,0,0
   70 ?&FE00=12:?&FE01=&1A00 DIV 8 DIV 256
   80 ?&FE00=13:?&FE01=&1A00 DIV 8 MOD 256
   90 ?&FE00=1:?&FE01=96
  100 ?&FE00=6:?&FE01=34
  110 ?&FE00=2:?&FE01=105
  120 :
  140 *L. ALIENS 1A00
  150 VDU19;7;0;19,3;0;0,19,2,6;0;19,1,1;0;
  160 REPEATUNTIL0
  200 CHAIN"!MENU"