10  BORDER 0 : PAPER 7 : INK 7 : CLEAR 24575
20  LOAD "moebius" CODE
100 RANDOMIZE USR 33155