Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!ukc!keele!csd35
From: csd35@seq1.keele.ac.uk (Jonathan Knight)
Newsgroups: comp.sources.games.bugs
Subject: Dungeon problems.
Message-ID: <747@keele.keele.ac.uk>
Date: 11 Dec 90 13:45:38 GMT
Organization: University of Keele, England
Lines: 63

I'm having trouble with the version of Dungeon that was posted in
comp.sources.games some while ago.  For your information here is the header
from the start of the game.

Welcome to Dungeon.			This version created 17-SEP-87.
You are in an open field west of a big white house with a boarded
front door.
There is a small mailbox here.
>

There were two compile time problems which the local f77 guru fixed for
me.  However I suspect that my movements are not working correctly.  I
seem to have great difficulty in retracing my steps whenever I move.

Could those of you who know the game tell me whether 'east' from the
forest location with the pile of leaves moves you anywhere?  I seem to
end up in the same place although the long description is repeated.

Here are the fixes that I needed to get Dungeon to compile.

*** dso7.orig.F	Thu Dec  6 14:35:59 1990
--- dso7.F	Thu Dec  6 14:42:35 1990
***************
*** 23,29
  C						!UNBIAS, COMPUTE SUMS.
  	  UKEYW(I)=char(ichar(KEYW(I))-64)
  	  IF(INW(J).LE.char(64)) J=1
! 	  UINW(I)=ichar(ichar(INW(J))-64)
  	  UKEYWS=UKEYWS+ichar(UKEYW(I))
  	  UINWS=UINWS+UINW(I)
  	  J=J+1

--- 23,29 -----
  C						!UNBIAS, COMPUTE SUMS.
  	  UKEYW(I)=char(ichar(KEYW(I))-64)
  	  IF(INW(J).LE.char(64)) J=1
! 	  UINW(I)=char(ichar(INW(J))-64)
  	  UKEYWS=UKEYWS+ichar(UKEYW(I))
  	  UINWS=UINWS+UINW(I)
  	  J=J+1
***************
*** 32,38
  	USUM=MOD(UINWS,8)+(8*MOD(UKEYWS,8))
  C						!COMPUTE MASK.
  	DO 200 I=1,6
! 	  J=and(xor(xor(ichar(UINW(I)),ichar(UKEYW(I))),USUM),31)
  	  USUM=MOD(USUM+1,32)
  	  IF(J.GT.26) J=MOD(J,26)
  	  OUTW(I)=char(MAX0(1,J)+64)

--- 32,38 -----
  	USUM=MOD(UINWS,8)+(8*MOD(UKEYWS,8))
  C						!COMPUTE MASK.
  	DO 200 I=1,6
! 	  J=and(xor(xor(UINW(I),ichar(UKEYW(I))),USUM),31)
  	  USUM=MOD(USUM+1,32)
  	  IF(J.GT.26) J=MOD(J,26)
  	  OUTW(I)=char(MAX0(1,J)+64)
-- 
  ______    JANET :jonathan@uk.ac.keele.cs     Jonathan Knight,
    /       BITNET:jonathan%cs.kl.ac.uk@ukacrl Department of Computer Science
   / _   __ other :jonathan@cs.keele.ac.uk     University of Keele, Keele,
(_/ (_) / / UUCP  :...!ukc!kl-cs!jonathan      Staffordshire.  ST5 5BG.  U.K.