home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol002 / insub.for < prev    next >
Text File  |  1984-04-29  |  5KB  |  136 lines
  1. C REV. 23
  2. C  ADVENTURES
  3.         SUBROUTINE INSUB
  4.       INTEGER VRBSIZ
  5.        INTEGER*2 KTAB,LTEXT,STEXT,KEY,COND,ABB,ATLOC,PLAC,
  6.      1 PLACE,FIXD,FIXED,LINK,PTEXT,PROP,ACTSPK,RTEXT,CTEXT,CVAL,
  7.      2 HINTLC,HINTS,MTEXT,DLOC,ODLOC,ASCVAR
  8.         LOGICAL DSEEN,BLKLIN,HINTED,YES,START
  9.         LOGICAL TOTING,HERE,AT,BITSET,DARK,WZDARK,LMWARN,CLOSNG,PANIC,
  10.      1       CLOSED,GAVEUP,SCORNG,DEMO,YEA
  11.       INTEGER PBOTL,DUMMY
  12.       INTEGER RTEXT,ASCVAR
  13.       INTEGER KTAB,TABSIZ
  14.       INTEGER ATLOC,LINK,PLACE,FIXED,HOLDNG
  15.       LOGICAL BUF(128)
  16.       INTEGER ITK(20)
  17.       INTEGER MTEXT
  18.       INTEGER PTEXT
  19.       INTEGER ABB
  20.       INTEGER WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  21.      1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
  22.       INTEGER LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,NEWLOC,
  23.      1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  24.      2 HINTLC,CHLOC,CHLOC2,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
  25.      3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
  26.      4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
  27.      5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
  28.      6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
  29.      7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
  30.      8 THROW,FIND,INVENT,TURNS,IWEST,KNFLOC,DETAIL,ABBNUM,
  31.      9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2
  32.       INTEGER I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
  33.      1 SECT,TRAVEL,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  34.      2 HNTLOC,KK
  35.         REAL LINES(15)
  36.       LOGICAL TK,LIQ2,LIQ,LIQLOC,FORCED,PCT
  37.       LOGICAL LTMP
  38.         INTEGER TRAVEL(3,750)
  39.       INTEGER VOCAB,RAN
  40.         INTEGER KTAB(300)
  41.       REAL ATAB(300)
  42. C
  43.       LOGICAL LLINES(60),CR,BL
  44. C
  45.         INTEGER LTEXT(150),STEXT(150),KEY(150),COND(150),ABB(150),
  46.      1        ATLOC(150)
  47.         INTEGER PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
  48.      1        PTEXT(100),PROP(100)
  49.         INTEGER ACTSPK(35)
  50.         INTEGER RTEXT(205)
  51.         INTEGER CTEXT(12),CVAL(12)
  52.         DIMENSION HINTLC(20),HINTED(20),HINTS(20,4)
  53.         INTEGER MTEXT(35)
  54.         DIMENSION TK(20),DSEEN(6),DLOC(6),ODLOC(6),HNAME(4)
  55. C
  56.       COMMON /INCOM/ TRAVEL
  57.         COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
  58.         COMMON /BLKCOM/ BLKLIN
  59.         COMMON /VOCCOM/ KTAB,ATAB,TABSIZ
  60.         COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  61.         COMMON /MTXCOM/ MTEXT
  62.         COMMON /PTXCOM/ PTEXT
  63.         COMMON /ABBCOM/ ABB
  64.         COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  65.      1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
  66.         COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
  67.      1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  68.      2 HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
  69.      3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
  70.      4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
  71.      5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
  72.      6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
  73.      7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
  74.      8 THROW,FIND,INVENT,TURNS,LMWARN,IWEST,KNFLOC,DETAIL,ABBNUM,
  75.      9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2,
  76.      1 CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG
  77.         COMMON /MISC2/ I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
  78.      1 SECT,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  79.      2 HINTED,HNTLOC,KK
  80. C
  81.       EQUIVALENCE(LINES(1),LLINES(1))
  82.       DATA CR/X'0D'/,BL/' '/
  83.       DATA KEY/150*0/
  84. C
  85.       CALL OPEN(7,'ATAB    DAT',1)
  86.       N=1
  87.       DO 3001 I=1,300,32
  88.       K=MIN0(I+31,300)
  89. C     DO 4001 IJ=1,2
  90. 4001  WRITE(7,REC=N)(ATAB(J),J=I,K)
  91. 3001  N=N+1
  92.       ENDFILE 7
  93.       CALL OPEN(8,'TRAVEL  DAT',1)
  94.       N=1
  95.       DO 3000 I=1,750,21
  96.       K=MIN0(I+20,750)
  97. C     DO 4000 IJ=1,2
  98. 4000  WRITE(8,REC=N)((TRAVEL(M,J),M=1,3),J=I,K)
  99.       N=N+1
  100. 3000  CONTINUE
  101.       ENDFILE 8
  102.       CALL OPEN(9,'KTAB    DAT',1)
  103.       N=1
  104.       DO 3002 I=1,300,64
  105.       K=MIN0(I+63,300)
  106. C     DO 4002 IJ=1,2
  107. 4002  WRITE(9,REC=N) (KTAB(J), J=I,K)
  108. 3002  N=N+1
  109.       ENDFILE 9
  110.       CALL OPEN(10,'RTEXT   DAT',1)
  111.       N=1
  112.       DO 3003 I=1,205,64
  113.       K=MIN0(I+63,205)
  114. C     DO 4003 IJ=1,2
  115. 4003  WRITE(10,REC=N) (RTEXT(J), J=I,K)
  116. 3003  N=N+1
  117.       ENDFILE 10
  118.       CALL OPEN(7,'LTEXT   DAT',1)
  119.       N=1
  120.       DO 3004 I=1,150,64
  121.       K=MIN0(I+63,150)
  122. C     DO 4004 IJ=1,2
  123. 4004  WRITE(7,REC=N) (LTEXT(J), J=I,K)
  124. 3004  N=N+1
  125.       ENDFILE 7
  126.       CALL OPEN(8,'STEXT   DAT',1)
  127.       N=1
  128.       DO 3007 I=1,150,64
  129.       K=MIN0(I+63,150)
  130. C     DO 4007 IJ=1,2
  131. 4007  WRITE(8,REC=N) (STEXT(J), J=I,K)
  132. 3007  N=N+1
  133.       ENDFILE 8
  134.       RETURN
  135.       END
  136.