10A% = &91:  X% = 0:  Y% = 0
   20REPEAT
   30   PYXA% = USR (&FFF4)
   40C% = (PYXA% AND &1000000) DIV &1000000
   50IF C% = 0 THEN PRINT~((PYXA% AND &FF0000) DIV &10000) AND &FF
   60UNTIL0