0 REM -----------------¢1 REM áááגפIJונמכנפגáááá¢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;"ךנרáIJפדáגדIJגí"¢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¢
