10 DEFFNS="ReadMap"
   20 MODE0
   30 *LO. MAP2
   40 PRINTTAB(0,22);">>>>>>>";
   50 PRINTTAB(0,0)"PRESS 1, 2 OR 3";
   60 REPEAT
   70 A$=GET$
   80 OSCLI"LO.MAP"+A$
   90 IF A$="2":PRINTTAB(0,22);">>>>>>>";
  100 PRINTTAB(0,0)"PRESS 1, 2 OR 3";
  110 UNTILFALSE