5 DIM C$(3)
10 '   Menu program for DNDMAIN.BAS AND DNDSTART.BAS
20 '   Converted for XEROX 820-II by Bob Thomas
30 C$(1)=CHR$(27)+"5"+CHR$(27)+")"
40 C$(2)=CHR$(27)+"("
50 PRINT CHR$(27)"=55"
60 PRINT CHR$(26):PRINT:GOSUB 110:PRINT "Please input the number of your choice:"
70 PRINT
80 PRINT " 1)Start new Character":PRINT " 2)Run old Character"
90 PRINT " 3)Return to system":PRINT
100 INPUT "Your choice";X:IF X=1 THEN RUN "DNDSTART"
101 IF X=2 THEN RUN "DNDMAIN"
102 IF X=3 THEN SYSTEM
103 GOTO 60
110 PRINT CHR$(5)+" ";C$(1)
120 PRINT "jppI";C$(2);"         ";C$(1);"jI";C$(2);"  ";C$(1);"U";C$(2);"  ";C$(1);"jppI"
130 PRINT "j";C$(2);"  ";C$(1);"j";C$(2);"         ";C$(1);"j";C$(2);" ";C$(1);"I";C$(2);" ";C$(1);"U";C$(2);"  ";C$(1);"j";C$(2);"  ";C$(1);"j"
140 PRINT "j00f";C$(2);"UNGEONS A";C$(1);"j";C$(2);"  ";C$(1);"IU";C$(2);"D ";C$(1);"j00f";C$(2);"RAGONS"
150 PRINT CHR$(5)+CHR$(2):RETURN
