home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol002 / advent.for < prev    next >
Text File  |  1984-04-29  |  5KB  |  120 lines
  1. C REV. 17
  2. C  ADVENTURES
  3. C
  4. C MODIFIED BY KENT BLACKETT
  5. C             ENGINEERING SYSTEMS GROUP
  6. C             DIGITAL EQUIPMENT CORP.
  7. C             15-JUL-77
  8. C ORIGINAL VERSION WAS FOR DECSYSTEM-10
  9. C THIS VERSION IS FOR FORTRAN IV-PLUS UNDER
  10. C THE IAS OPERATING SYSTEM ON THE PDP-11/70
  11. C NOTE THAT IT MUST BE COMPILED WITH THE
  12. C /WF:3/I4 SWITCHES...
  13. C
  14. C  CURRENT LIMITS:
  15. C       750 TRAVEL OPTIONS (TRAVEL, TRVSIZ).
  16. C       300 VOCABULARY WORDS (KTAB, ATAB, TABSIZ).
  17. C       150 LOCATIONS (LTEXT, STEXT, KEY, COND, ABB, ATLOC, LOCSIZ).
  18. C       100 OBJECTS (PLAC, PLACE, FIXD, FIXED, LINK (TWICE), PTEXT, PROP).
  19. C        35 "ACTION" VERBS (ACTSPK, VRBSIZ).
  20. C       205 RANDOM MESSAGES (RTEXT, RTXSIZ).
  21. C        12 DIFFERENT PLAYER CLASSIFICATIONS (CTEXT, CVAL, CLSMAX).
  22. C        20 HINTS, LESS 3 (HINTLC, HINTED, HINTS, HNTSIZ).
  23. C        35 MAGIC MESSAGES (MTEXT, MAGSIZ).
  24. C  THERE ARE ALSO LIMITS WHICH CANNOT BE EXCEEDED DUE TO THE STRUCTURE OF
  25. C  THE DATABASE.  (E.G., THE VOCABULARY USES N/1000 TO DETERMINE WORD TYPE,
  26. C  SO THERE CAN'T BE MORE THAN 1000 WORDS.)  THESE UPPER LIMITS ARE:
  27. C       1000 NON-SYNONYMOUS VOCABULARY WORDS
  28. C       300 LOCATIONS
  29. C       100 OBJECTS
  30. C
  31.        INTEGER*2 KTAB,LTEXT,STEXT,KEY,COND,ABB,ATLOC,PLAC,
  32.      1 PLACE,FIXD,FIXED,LINK,PTEXT,PROP,ACTSPK,RTEXT,CTEXT,CVAL,
  33.      2 HINTLC,HINTS,MTEXT,DLOC,ODLOC,ASCVAR
  34.         LOGICAL DSEEN,BLKLIN,HINTED,YES,START
  35.         LOGICAL TOTING,HERE,AT,BITSET,DARK,WZDARK,LMWARN,CLOSNG,PANIC,
  36.      1       CLOSED,GAVEUP,SCORNG,DEMO,YEA
  37.       INTEGER RTEXT,ASCVAR
  38.       INTEGER KTAB,TABSIZ
  39.       INTEGER ATLOC,LINK,PLACE,FIXED,HOLDNG
  40.       INTEGER MTEXT
  41.       INTEGER PTEXT
  42.       INTEGER ABB
  43.       INTEGER WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  44.      1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
  45.       INTEGER LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,NEWLOC,
  46.      1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  47.      2 HINTLC,CHLOC,CHLOC2,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
  48.      3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
  49.      4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
  50.      5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
  51.      6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
  52.      7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
  53.      8 THROW,FIND,INVENT,TURNS,IWEST,KNFLOC,DETAIL,ABBNUM,
  54.      9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2
  55.       INTEGER I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
  56.      1 SECT,TRAVEL,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  57.      2 HNTLOC,KK
  58.         REAL LINES(15)
  59.       LOGICAL TK
  60.         INTEGER KTAB(300)
  61.       REAL ATAB(300)
  62.         INTEGER LTEXT(150),STEXT(150),KEY(150),COND(150),ABB(150),
  63.      1        ATLOC(150)
  64.         INTEGER PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
  65.      1        PTEXT(100),PROP(100)
  66.         INTEGER ACTSPK(35)
  67.         INTEGER RTEXT(205)
  68.         INTEGER CTEXT(12),CVAL(12)
  69.         DIMENSION HINTLC(20),HINTED(20),HINTS(20,4)
  70.         INTEGER MTEXT(35)
  71.       INTEGER VRBSIZ
  72.         DIMENSION TK(20),DSEEN(6),DLOC(6),ODLOC(6),HNAME(4)
  73. C
  74.         COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
  75.         COMMON /BLKCOM/ BLKLIN
  76.         COMMON /VOCCOM/ KTAB,ATAB,TABSIZ
  77.         COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  78.         COMMON /MTXCOM/ MTEXT
  79.         COMMON /PTXCOM/ PTEXT
  80.         COMMON /ABBCOM/ ABB
  81.         COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  82.      1       SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP
  83.         COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
  84.      1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  85.      2 HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE,
  86.      3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
  87.      4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
  88.      5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
  89.      6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM,
  90.      7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
  91.      8 THROW,FIND,INVENT,TURNS,LMWARN,IWEST,KNFLOC,DETAIL,ABBNUM,
  92.      9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2,
  93.      1 CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG
  94.         COMMON /MISC2/ I,RTXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
  95.      1 SECT,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  96.      2 HINTED,HNTLOC,KK
  97. C
  98.         LINSIZ = 9650
  99.         TRVSIZ = 750
  100.         TABSIZ = 300
  101.         LOCSIZ = 150
  102.         VRBSIZ = 35
  103.         RTXSIZ = 205
  104.         CLSMAX = 12
  105.         HNTSIZ = 20
  106.         MAGSIZ = 35
  107.         SETUP = 0
  108.         BLKLIN = .TRUE.
  109.       SAVED=-1
  110.       WRITE(3,5)
  111.    5  FORMAT(1X,'LOAD DATA IN DRIVE B, MESSAGE DISK IN A')
  112.       READ(3,6) DUMMY
  113.    6  FORMAT(A1)
  114.         CALL INIT
  115. C      CALL OPEN(6,'ADVENTURMSG',2)
  116. C      CALL OPEN(8,'TRAVEL  DAT',2)
  117. C        CALL MAIN
  118.       STOP
  119.         END
  120.