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