50	I%=NOECHO(0%)
100	COM (DNDA) N$(1)=8,C(64),L%(21,21),I(8),I1(8)
200	COM (MEM) M(20),Q(4,2),V$(4)=8,P%(4,4),M$(20)=12,S$(8,6)=32,S$=18, &
		  MINDUNLVL(20),MAXDUNLVL(20),MINMONLVL(20)
300	REM 	*OPEN LEVEL FILE*
310	OPEN "Game:DNDLVL.dat/MO:8192" FOR INPUT AS FILE #5, VIRTUAL &
	\OPEN "_KB:" AS FILE 12% &

400	MAT READ M$,M,MINDUNLVL,MAXDUNLVL,MINMONLVL,Q,V$
410	V$(0)=" I :"
420	READ S$
430	READ S$(I,I1) FOR I1=1 TO 6 FOR I=1 TO 4
440	READ S$(I,I1) FOR I1=1 TO 4 FOR I=5 TO 8
500	RANDOMIZE
10000	CALL NEWDND(CHN$)
10010	IF CHN$="NEWDND" THEN CALL NEWDND(CHN$) \ GOTO 10010
10020	IF CHN$="NEWDGN" THEN CALL NEWDGN(CHN$) \ GOTO 10010
10030	IF CHN$="NEWSPC" THEN CALL NEWSPC(CHN$) \ GOTO 10010
10040	IF CHN$="NEWTRS" THEN CALL NEWTRS(CHN$) \ GOTO 10010
10050	IF CHN$="NEWCBT" THEN CALL NEWCBT(CHN$) \ GOTO 10010
10053	IF CHN$="NEWOP"  THEN CALL NEWOP(CHN$)  \ GOTO 10010
10055	IF CHN$="EXIT"   THEN GOTO 32767
10060	PRINT "?DND_ERROR-Unknown program called - ";CHN$ \ STOP
20010 DATA "Skeleton","Zombie","Ghoul","Wraith","Spectre","Vampire"
20020 DATA "Kobold","Gnoll","Goblin","Orc","Dwarf"
20030 DATA "Harpie","Fighter","Bugbear","Doppleganger","Minotaur"
20040 DATA "Ogre","Giant","Balrog","Dragon"
20050 DATA 4,6,8,10,12,14,3,4,3,5,5,6,6,7,8,10,10,12,16,20
20060 DATA 1,1,1,1,3,4,1,1,1,1,1,2,1,2,3,3,3,4,7,9
20070 DATA 9,13,20,20,20,20,8,12,10,20,20,20,20,20,20,20,20,20,20,20
20080 DATA 1,2,2,3,4,5,1,1,1,1,1,2,1,3,3,3,3,4,7,8
20090 DATA -1,0,0,1,1,0,0,-1
20100 DATA "       ","IIIIIII","II---II","II...II"
20110 DATA STRINTWISCONDEXCHA
20120 DATA "Magic missle",Charm,Shield,Sleep,"Protection from evil",Light
20130 DATA "Phantasmal forces",Web,"Lightning bolt"
20140 DATA Strength,Levitate,Invisibility
20150 DATA Fireball,Confuse,Pass-wall
20160 DATA "Hold monster",Fear,"Continual light"
20170 DATA Teleport,"Power word kill","Prismatic wall"
20180 DATA "Time stop","Wall of fire","Summon demon"
20190 DATA "Protection from evil",Light,"Cure light wounds","Turn undead"
20200 DATA "Detect traps",Silence,Pray,"Hold monster"
20210 DATA "Cure serious wounds","Dispell undead","Continual light",Plague
20220 DATA "Holy word","Finger of death","Blade barrior","Raise dead"
32767	I%=ECHO(0%) &
	\END