0 REM -----------------›1 REM    ÄÒÁÇÏÎÌÏÒÄ    ›3 REM NEW VERSION 5/87›4 REM -----------------›80 FOR X=N1 TO N77:I(X)=N0:ER(X)=N0:NEXT X:I(39)=N7:ER(39)=1:RESTORE 3010›955 IF  NOT ER(ROOM) THEN ER(ROOM)=1:RC=RC+1›2162 IF ROOM=DR THEN 2175›2163 GRAPHICS N0:POKE 756,CHSET:POKE 752,N1:POKE 710,N0:POKE 711,54:POKE 712,112›2164 DL=PEEK(560)+256*PEEK(561)+N4:POKE DL+22,N6:POKE DL+23,N6:POKE DL+24,N6:POKE DL,N0:POKE DL+N1,MAP›2165 POKE 88,N0:POKE 89,MAP:POKE 559,34:POSITION 23,N21:? "    äåî ïæ    ":POSITION N4,22:? " ôèå äòáçïî "›2166 R=DR:GOSUB ROOMPOS:POSITION COL,ROW:? "| |"›2167 POSITION COL+N1,ROW+N1:? "":FOR X=N1 TO N10:NEXT X›2168 POSITION COL+N1,ROW+N1:? " ":FOR X=N1 TO N10:NEXT X›2169 IF STRIG(N0)=N0 THEN GOSUB SND1:GOTO 2175›2170 GOTO 2167›2175 GRAPHICS N18:POKE 756,CHSET:POSITION N2,N1:? #N6;"ÙÏÕ ÁÒÅ ÄÅÁÄ¡"›2195 IF RC=77 THEN SC=SC+150›2210 OPEN #N1,N4,N0,"K:":GET #N1,A:CLOSE #N1:IF A<>ASC("N") AND A<>ASC("Y") THEN 2210›2211 CN=N0:FOR X=N1 TO N10:PR(X)=N0:NEXT X›2212 IF SC<=RS(N10) THEN 2220›2213 CN=CN+N1:IF SC>RS(CN) THEN 2215›2214 GOTO 2213›2215 FOR X=N9 TO CN STEP -N1:RS(X+N1)=RS(X):PR(X+N1)=PR(X):RS$((X+N1)*N9-N8,(X+N1)*N9)=RS$(X*N9-N8,X*N9):NEXT X›2216 B=N0:FOR X=N1 TO N9:IF N$(X,X)<>" " THEN NEXT X:GOTO 2219›2217 B=B+N1:IF B=N2 THEN FOR Y=X-N1 TO N9:N$(Y,Y)="­":NEXT Y:GOTO 2219›2218 NEXT X›2219 RS(CN)=SC:PR(CN)=N1:RS$(CN*N9-N8,CN*N9)=N$:F=N1›2220 CN=N0:IF  NOT F THEN 2223›2221 CLOSE #N1:OPEN #N1,N8,N0,"D:DRAGONLO.DAT":FOR X=N1 TO N10:? #N1;RS(X):? #N1;RS$(X*N9-N8,X*N9):NEXT X›2222 CLOSE #N1:F=N0›2223 GRAPHICS N17:POKE 756,CHSET:POSITION N3,N0:? #N6;"record scores":POSITION N3,N1:? #N6;"­­­­­­­­­­­­­"›2224 FOR X=N1 TO N10:POSITION N3,X+N4:? #N6;RS$(X*N9-N8,X*N9);"­";RS(X):NEXT X›2225 FOR Z=N1 TO N10:IF PR(Z)=N0 THEN NEXT Z:GOTO 2229›2226 FOR X=N1 TO N20:NEXT X:POSITION N2,Z+N4:? #N6;"¾":FOR X=N8 TO N0 STEP -0.4:SOUND N0,N10,N10,X›2227 SOUND N1,N15,N10,X:FOR Y=N1 TO N4:NEXT Y:SOUND N0,N0,N0,N0:SOUND N1,N0,N0,N0:FOR Y=N1 TO N3:NEXT Y:NEXT X›2228 NEXT Z›2229 POKE 711,54:POSITION N2,22:? #N6;"ðõóè æéòå âõôôïî"›2230 FOR X=N1 TO 30:NEXT X:POKE 711,N0:IF STRIG(N0)=N0 THEN 2232›2231 FOR X=N1 TO N10:NEXT X:POKE 711,54:GOTO 2230›2232 IF A=ASC("N") THEN POKE 82,N2:END ›2233 POSITION N2,22:? #N6;"   ONE MOMENT   "›2240 RESTORE 2940:HP=50:STR=100:SPL=N0:PIE=N1:CNT=N0:B=N0:WN=N1:G=60:ROOM=39:SC=N0:SM=N0:TURN=N0:RC=1:GOTO 80›2300 DIM ER(77),RM(N77),I(N77),RM$(255),MV$(N20),N$(N9),W$(28),DIR$(N20),S$(120),B$(40),CL$(40)›2310 DIM R$(N1),R(N5),C$(N1),E$(N4),D$(81),F$(N14),RS(N10),RS$(90),PR(N10)›2340 WN=N1:PIE=N1:CNT=N0:G=60:SPL=N0:HP=50:STR=100:B=N0:ROOM=39:SM=N0:SC=N0:TURN=N0:RC=1›2350 ROOMPOS=180:CHOOSE=290:DIR=370:CLUE=210:DEAD=2162:DELAY2=360:SND1=160:SND2=170:TEL=130›3030 POKE 559,0:POKE 87,N0:POKE 88,N0:POKE 89,MAP:A=USR(ADR(CL$),N15)›3040 POSITION N18,N9:? RM$(RM(ROOM)*N17-N16,RM(ROOM)*N17)›3301 TRAP 3351:OPEN #N1,N4,N0,"D:DRAGONLO.DAT"›3302 FOR X=N1 TO N10:INPUT #N1;A:RS(X)=A:INPUT #N1;N$:RS$(X*N9-N8,X*N9)=N$:NEXT X:TRAP 40000:CLOSE #N1›3340 FOR X=N1 TO N9:IF N$(X,X)<>"-" THEN NEXT X›3342 F$="D:DUNGEON .DAT"›3343 POSITION N2,N15:? "WHAT DUNGEON <0-9>   ";:TRAP 3343:INPUT D:CLOSE #1:F$(N10,N10)=STR$(D)›3344 OPEN #1,4,0,F$:CLOSE #1›3345 GRAPHICS N0:POKE 559,N0:? :? :? "ENTER";CHR$(34);F$:? :? :? "CONT"›3346 POSITION N0,N0:POKE 842,N13:STOP ›3347 POKE 842,N12:RESTORE 2940:FOR Y=N1 TO 77:READ A:RM(Y)=A:NEXT Y›3350 TRAP 3030:N$(X)="         ":POP :TRAP 40000:POKE 559,34:GOTO 550›3351 RS$(N1)=" ":RS$(90)=" ":RS$(N2)=RS$:CLOSE #N1:OPEN #N1,N8,N0,"D:DRAGONLO.DAT"›3352 FOR X=N1 TO N10:RS(X)=N0:? #N1;RS(X):? #N1;RS$(X*N9-N8,X*N9):NEXT X:CLOSE #N1:GOTO 3310›