1 POKE53280,0:POKE53281,0:POKE53265,11:POKE198,0:S$=""
2 A$(1)=""+S$+"[193][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][211]"
3 A$(1)=A$(1)+""+S$+"[180]\\\ DUNGEON \\\[170]"
4 A$(1)=A$(1)+""+S$+"[218][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][216]":CO$="[158][129][159][156][149][156][159][129][158]"
5 PRINT"[147][151]";A$(1):PRINT""+S$+"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
6 A$=S$+"[194]"+S$+S$+"[194]"
7 PRINTS$;"[194]BY DAVE CARUSO II[194]":PRINTS$;"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
8 PRINT"";S$;"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]":PRINTA$
9 PRINTS$;"[194] [154][1[154]] GUILD           [194]":PRINTA$
50 PRINTS$;"[194] [154][2[154]] DUNGEON MAKER   [194]":PRINTA$
55 PRINTS$;"[194] [154][3[154]] TREASURE MAKER  [194]":PRINTA$
60 PRINTS$;"[194] [154][4[154]] MONSTER MAKER   [194]":PRINTA$
61 PRINTS$;"[194] [154][5[154]] LOST WORLD      [194]":PRINTA$
62 PRINTS$;"[194] [154][M[154]] MORE            [194]":PRINTA$
65 PRINTS$;"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";:POKE53265,27:C=1
67 C=C+1:IFC<>2THEN75
70 C=0:B=B+1:PRINTMID$(CO$,B,1);A$(1):IFB=16THENB=0
75 GETA$:IFA$=""THEN67
76 IFX=1THEN135
77 IFA$="M"THEN100:POKE53265,11:OPEN15,8,15:PRINT#15,"I":CLOSE15:SYS64738
80 IFVAL(A$)<1ORVAL(A$)>5THEN67
85 FORG=1TOVAL(A$):READD$:NEXTG:DATA"GU","DM","TM","MM","RD"
90 PRINT"[147][144]LOAD";CHR$(34);D$;CHR$(34);",8R[213][145][145][145][145][154]D U N G E O N[144]"
95 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
100 PRINT"":FORG=1TO6:PRINTS$;"                  ":NEXT
110 PRINT"[145][145][145][145][145][145][145][145][145][145][145]":PRINTS$;"[194] [154][1[154]] UTILITIES"
120 PRINTS$;"[154][2[154]] PRINT DATA DISK":PRINTS$;"[154][3[154]] LEAVE GAME"
130 PRINTS$;"[154][M[154]] MORE":X=1:GOTO67
135 IFA$="M"THENRUN
137 IFA$="1"THEND$="UT":GOTO90
138 IFA$="2"THEND$="PD":GOTO90
139 IFA$<>"3"THEN67
140 POKE53265,11:OPEN15,8,15:PRINT#15,"I":CLOSE15:SYS64738