home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol002 / mainsb.for < prev    next >
Encoding:
Text File  |  1984-04-29  |  4.7 KB  |  115 lines
  1.       SUBROUTINE MAINSB
  2.        INTEGER*2 KTAB,LTEXT,STEXT,KEY,COND,ABB,ATLOC,PLAC,
  3.      1 PLACE,FIXD,FIXED,LINK,PTEXT,PROP,ACTSPK,RTEXT,CTEXT,CVAL,
  4.      2 HINTLC,HINTS,MTEXT,DLOC,ODLOC,ASCVAR
  5.       INTEGER PBOTL,DUMMY,PUT,FOO,SCORE
  6.       LOGICAL LIQ2,LIQ,LIQLOC,FORCED,PCT
  7.         LOGICAL DSEEN,BLKLIN,HINTED,YES,START
  8.         LOGICAL TOTING,HERE,AT,BITSET,DARK,WZDARK,LMWARN,CLOSNG,PANIC,
  9.      1       CLOSED,GAVEUP,SCORNG,DEMO,YEA
  10.       LOGICAL IL
  11.       INTEGER RTEXT,ASCVAR
  12.       INTEGER KTAB,TABSIZ
  13.       INTEGER ATLOC,LINK,PLACE,FIXED,HOLDNG
  14.       INTEGER MTEXT
  15.       INTEGER PTEXT
  16.       INTEGER ABB
  17.       INTEGER WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  18.      1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
  19.       INTEGER LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,NEWLOC,
  20.      1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  21.      2 HINTLC,CHLOC,CHLOC2,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
  22.      3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
  23.      4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
  24.      5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
  25.      6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
  26.      7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
  27.      8 THROW,FIND,INVENT,TURNS,IWEST,KNFLOC,DETAIL,ABBNUM,
  28.      9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2
  29.       INTEGER I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
  30.      1 SECT,TRAVEL,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  31.      2 HNTLOC,KK
  32.         REAL LINES(15)
  33.       LOGICAL TK
  34.       INTEGER VOCAB2,ATTACK,RAN
  35.       INTEGER SPICES
  36. C
  37.       LOGICAL LLINES(60),CR,BL
  38. C
  39.         INTEGER KEY(150),COND(150),ABB(150),
  40.      1        ATLOC(150)
  41.         INTEGER PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
  42.      1        PTEXT(100),PROP(100)
  43.         INTEGER ACTSPK(35)
  44.         INTEGER CTEXT(12),CVAL(12)
  45.         DIMENSION HINTLC(20),HINTED(20),HINTS(20,4)
  46.         INTEGER MTEXT(35)
  47.         DIMENSION TK(20),DSEEN(6),DLOC(6),HNAME(4)
  48. C
  49.       INTEGER DTOTAL,STICK,OLDLC2,SPK,HINT
  50. C
  51. C
  52.         COMMON /TXTCOM/ LINES,ASCVAR
  53.         COMMON /BLKCOM/ BLKLIN
  54.         COMMON /VOCCOM/ TABSIZ
  55.         COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  56.         COMMON /MTXCOM/ MTEXT
  57.         COMMON /PTXCOM/ PTEXT
  58.         COMMON /ABBCOM/ ABB
  59.         COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  60.      1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
  61.         COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
  62.      1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  63.      2 HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
  64.      3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
  65.      4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
  66.      5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
  67.      6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
  68.      7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
  69.      8 THROW,FIND,INVENT,TURNS,LMWARN,IWEST,KNFLOC,DETAIL,ABBNUM,
  70.      9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2,
  71.      1 CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG
  72.         COMMON /MISC2/ I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,
  73.      1 SECT,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  74.      2 HINTED,HNTLOC,KK
  75. C
  76.       EQUIVALENCE(LINES(1),LLINES(1))
  77. C
  78. C        READ COMMON STUFF FROM INITIALIZATION
  79. C
  80.     IF (SETUP.EQ.-1) GOTO 1
  81. C SKIP THIS IF THIS IS NOT THE FIRST TIME THROUGH
  82.       CALL OPEN(6,'COMMON  DAT',0)
  83. C
  84.       READ(6) LINES,ASCVAR,BLKLIN,TABSIZ,ATLOC,LINK,PLACE,
  85.      1  FIXED,HOLDNG,MTEXT,PTEXT,ABB,WKDAY,WKEND,HOLID,HBEGIN,
  86.      2  HEND,HNAME,SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP,
  87.      3  LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,KEY,PLAC,
  88.      4  FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  89.      5  HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,
  90.      6  GRATE,CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,
  91.      7  FISSUR,TABLET,CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,
  92.      8  BOTTLE,WATER,OIL,PLANT,PLANT2,AXE,MIRROR,DRAGON,CHASM,
  93.      9  TROLL,TROLL2,BEAR,MESSAG,VEND,BATTER,NUGGET,COINS,
  94.      A  CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,PEARL,RUG,CHAIN,
  95.      B  BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,THROW,FIND,
  96.      C  INVENT,TURNS,LMWARN,IWEST,KNFLOC,DETAIL,ABBNUM,NUMDIE,
  97.      D  MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2,CLOSNG,PANIC,
  98.      E  CLOSED,GAVEUP,SCORNG,I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,
  99.      F  CTEXT,SECT,TRVSIZ,TABNDX,OBJ,J,K,VERB,
  100.      G  HNTSIZ,MAXTRS,HINTED,HNTLOC,KK
  101. C
  102.       ENDFILE 6
  103. C
  104. C
  105. 1     CALL OPEN(4,'LTEXT   DAT',0)
  106.       CALL OPEN(5,'STEXT   DAT',0)
  107.       CALL OPEN(6,'ADVENTURMSG',0)
  108.       CALL OPEN(7,'ATAB    DAT',0)
  109.       CALL OPEN(8,'TRAVEL  DAT',0)
  110.       CALL OPEN(9,'KTAB    DAT',0)
  111.       CALL OPEN(10,'RTEXT   DAT',0)
  112. C
  113.       RETURN
  114.       END
  115.