10 'MENU - DUNGEON MASTERS ASSISTANT - MAIN MENU
20      SCREEN 3
30      KEY OFF
40      WIDTH 20
50      COLOR 1,4
60      CLS
70      LOCATE 4,1
80      PRINT "       THE"
90      LOCATE 7,1
100     PRINT "      DUNGEON"
110     LOCATE 10,1
120     PRINT "      MASTERS"
130     LOCATE 13,1
140     PRINT "     ASSISTANT"
150     LOCATE 22,1
160     PRINT "BY BILL CHELMOWSKI"
170 'KILL TIME
180     FOR X = 1 TO 1000
190       NEXT X
200 'PRINT MENU
210     SCREEN 1
220     WIDTH 40
230     COLOR 4,1
240     CLS
250     LOCATE 3,1
260     PRINT "     THE DUNGEON MASTERS ASSISTANT"
270     LOCATE 6,10
280     PRINT "1. PLAYER CHARACTERS"
290     LOCATE 8,10
300     PRINT "2. THE SUPPLY SHOPPE"
310     LOCATE 10,10
320     PRINT "3. THE QUEST"
330     LOCATE 12,10
340     PRINT "9. THE END"
350 'GET REPLY
360     DEF SEG=0: POKE 1050,PEEK(1052)  'CLEAR KEYBOARD BUFFER
370     LET REPLY$ = INKEY$
380     IF REPLY$ = "" THEN GOTO 370
390     IF REPLY$ = "1" THEN CHAIN "DUNCHAR"
400     IF REPLY$ = "2" THEN CHAIN "DUNSHOP"
410     IF REPLY$ = "3" THEN CHAIN "DUNQUEST"
420     IF REPLY$ = "9" THEN GOTO 440
430     GOTO 370
440 'END
450     CLS
460     SYSTEM
1000 'RETURN POINT
1110    GOTO 200   'PRINT MENU