10 CLS
20 LOCATE 10,1
30 PRINT"            1. INITIALIZE DUNGEON FILES"
40 PRINT"            2. EDIT DUNGEON FILE"
50 PRINT"            3. LIST DUNGEON DATA TO PRINTER"
60 PRINT"            4. LIST DUNGEON DATA TO MONITOR"
70 PRINT
90 PRINT"            5. END SESSION"
100 PRINT
110 PRINT"            CHOOSE ONE =>";
120 LINE INPUT A$
130 '
140 IF A$="1" THEN RUN"DUNINIT"
150 IF A$="2" THEN RUN"WORK"
160 IF A$="3" THEN RUN"LISTER"
170 IF A$="4" THEN RUN"MLIST"
180 '
190 IF A$="5" THEN CLS:END
200 GOTO 10