C REV. 23
C  ADVENTURES
        SUBROUTINE INSUB
      INTEGER VRBSIZ
       INTEGER*2 KTAB,LTEXT,STEXT,KEY,COND,ABB,ATLOC,PLAC,
     1 PLACE,FIXD,FIXED,LINK,PTEXT,PROP,ACTSPK,RTEXT,CTEXT,CVAL,
     2 HINTLC,HINTS,MTEXT,DLOC,ODLOC,ASCVAR
        LOGICAL DSEEN,BLKLIN,HINTED,YES,START
        LOGICAL TOTING,HERE,AT,BITSET,DARK,WZDARK,LMWARN,CLOSNG,PANIC,
     1       CLOSED,GAVEUP,SCORNG,DEMO,YEA
      INTEGER PBOTL,DUMMY
      INTEGER RTEXT,ASCVAR
      INTEGER KTAB,TABSIZ
      INTEGER ATLOC,LINK,PLACE,FIXED,HOLDNG
      LOGICAL BUF(128)
      INTEGER ITK(20)
      INTEGER MTEXT
      INTEGER PTEXT
      INTEGER ABB
      INTEGER WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
     1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
      INTEGER LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,NEWLOC,
     1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
     2 HINTLC,CHLOC,CHLOC2,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
     3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
     4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
     5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
     6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
     7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
     8 THROW,FIND,INVENT,TURNS,IWEST,KNFLOC,DETAIL,ABBNUM,
     9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2
      INTEGER I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
     1 SECT,TRAVEL,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
     2 HNTLOC,KK
        REAL LINES(15)
      LOGICAL TK,LIQ2,LIQ,LIQLOC,FORCED,PCT
      LOGICAL LTMP
        INTEGER TRAVEL(3,750)
      INTEGER VOCAB,RAN
        INTEGER KTAB(300)
      REAL ATAB(300)
C
      LOGICAL LLINES(60),CR,BL
C
        INTEGER LTEXT(150),STEXT(150),KEY(150),COND(150),ABB(150),
     1        ATLOC(150)
        INTEGER PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
     1        PTEXT(100),PROP(100)
        INTEGER ACTSPK(35)
        INTEGER RTEXT(205)
        INTEGER CTEXT(12),CVAL(12)
        DIMENSION HINTLC(20),HINTED(20),HINTS(20,4)
        INTEGER MTEXT(35)
        DIMENSION TK(20),DSEEN(6),DLOC(6),ODLOC(6),HNAME(4)
C
      COMMON /INCOM/ TRAVEL
        COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
        COMMON /BLKCOM/ BLKLIN
        COMMON /VOCCOM/ KTAB,ATAB,TABSIZ
        COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
        COMMON /MTXCOM/ MTEXT
        COMMON /PTXCOM/ PTEXT
        COMMON /ABBCOM/ ABB
        COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
     1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
        COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
     1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
     2 HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
     3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
     4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
     5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
     6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
     7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
     8 THROW,FIND,INVENT,TURNS,LMWARN,IWEST,KNFLOC,DETAIL,ABBNUM,
     9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2,
     1 CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG
        COMMON /MISC2/ I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
     1 SECT,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
     2 HINTED,HNTLOC,KK
C
      EQUIVALENCE(LINES(1),LLINES(1))
      DATA CR/X'0D'/,BL/' '/
      DATA KEY/150*0/
C
      CALL OPEN(7,'ATAB    DAT',1)
      N=1
      DO 3001 I=1,300,32
      K=MIN0(I+31,300)
C     DO 4001 IJ=1,2
4001  WRITE(7,REC=N)(ATAB(J),J=I,K)
3001  N=N+1
      ENDFILE 7
      CALL OPEN(8,'TRAVEL  DAT',1)
      N=1
      DO 3000 I=1,750,21
      K=MIN0(I+20,750)
C     DO 4000 IJ=1,2
4000  WRITE(8,REC=N)((TRAVEL(M,J),M=1,3),J=I,K)
      N=N+1
3000  CONTINUE
      ENDFILE 8
      CALL OPEN(9,'KTAB    DAT',1)
      N=1
      DO 3002 I=1,300,64
      K=MIN0(I+63,300)
C     DO 4002 IJ=1,2
4002  WRITE(9,REC=N) (KTAB(J), J=I,K)
3002  N=N+1
      ENDFILE 9
      CALL OPEN(10,'RTEXT   DAT',1)
      N=1
      DO 3003 I=1,205,64
      K=MIN0(I+63,205)
C     DO 4003 IJ=1,2
4003  WRITE(10,REC=N) (RTEXT(J), J=I,K)
3003  N=N+1
      ENDFILE 10
      CALL OPEN(7,'LTEXT   DAT',1)
      N=1
      DO 3004 I=1,150,64
      K=MIN0(I+63,150)
C     DO 4004 IJ=1,2
4004  WRITE(7,REC=N) (LTEXT(J), J=I,K)
3004  N=N+1
      ENDFILE 7
      CALL OPEN(8,'STEXT   DAT',1)
      N=1
      DO 3007 I=1,150,64
      K=MIN0(I+63,150)
C     DO 4007 IJ=1,2
4007  WRITE(8,REC=N) (STEXT(J), J=I,K)
3007  N=N+1
      ENDFILE 8
      RETURN
      END
