File: ADVENT.DC of Tape: Sources/Other/new-17

(Source file text) 

---

ADVENTURE:  IMPLEMENTATION NOTES AND INSTALLATION INSTRUCTIONS

THIS VERSION OF ADVENTURE IS BASED ON TWO PREVIOUS VERSIONS--

1) A FORTRAN-10 VERSION DONE BY WILLIE CROWTHER AND DON WOODS
2) A FORTRAN-IV-PLUS VERSION DONE BY KENT BLACKETT

IN ALTERING THE PROGRAM TO COMPILE UNDER FORTRAN IV (VERSION 1C)
AND TO RUN UNDER RT-11, THE FOLLOWING CHANGES WERE MADE:

1) MAGIC MODE (MAINTENANCE MODE) WAS REMOVED
2) THE "SUSPEND" AND "HOURS" FEATURES WERE DECOMITTED
3) SECTION 12 OF THE DATA BASE (MAGIC MESSAGES) WERE REMOVED

A NUMBER OF OTHER CHANGES RESULT FROM CROCKS IN THE LANGUAGE,
COMPILER, OR RUN TIME SYSTEM:

1) THE COMPILER WILL NOT ALLOW HOLLERITH CONSTANTS TO BE USED
   IN ARITHMETIC EXPRESSIONS.  THUS FUNCTIONS WHICH TOOK HOLLERITH
   ARGUMENTS (NOTABLY VOCAB) WERE CHANGED TO SUBROUTINES, AND CONSTANTS
   USED IN ASSIGNMENT STATEMENTS WERE MOVED TO VARIABLES IN LABELLED
   COMMON /ALPHAS/.

2) THE COMPILER DOES NOT SUPPORT INTEGER*4 RATIONALLY.  THUS THE DATA
   STRUCTURES WHICH REQUIRED 32 BIT INTEGERS (ATAB, TRAVEL) WERE
   SPLIT INTO SEVERAL PARALLEL ARRAYS.

3) THE RT-11 RUN TIME SYSTEM INTRODUCES A SPURIOUS BLANK LINE INTO FORMATTED
   OUTPUT IMMEDIATELY FOLLOWING AN INPUT.  THUS VARIABLE "NOINPT" WAS
   INTRODUCED TO TRACK WHEN INPUT HAD BEEN DONE.  IF THIS PROBLEM IS
   FIXED, OR IF THE PROGRAM IS TO RUN UNDER RSX11M,
   SIMPLY REMOVE THE "NOINPT=.FALSE." STATEMENT IN GETIN.
   ALSO, RESTORE THE INITIAL SLASH (/) IN FORMAT STATEMENTS 
   5015, 5199, 8002, 9032, 8243, AND 20100 IN MODULE RKB.

COMPILATION, ASSEMBLY, AND LINK INSTRUCTIONS (FOR RT-11 V2C):

.R FORTRA
*ADVENT=ADVENT/V(CR)
*ASUB=ASUB/V(CR)
*IOSUB=IOSUB/V(CR)
*INITAD=INITAD/V(CR)
*RKB=RKB/V(CR)
*^C

.R MACRO
*ISHFT=ISHFT
*^C

.R LINK
*ADVENT=ADVENT,ASUB,IOSUB,ISHFT/F/C
*INITAD/O:1/C
*RKB/O:1
*^C

THE LINKED PROGRAM CAN BE EXECUTED WITH THE COMMAND:

.R ADVENT(CR)

ONCE STARTED, IT WILL TAKE 60-90 SECONDS TO INITIALIZE ITS DATA
BASE AND TO CREATE ITS WORK FILE (FTN2.DAT ON SY:).

COMPILATION, ASSEMBLY, AND TASK BUILD INSTRUCTIONS (FOR RSX11M V3):

EDIT IOSUB.FOR AND RKB.FOR AS INDICATED IN NOTE 3) ABOVE.

>FOR(CR)
FOR>ADVENT=ADVENT.FOR(CR)
FOR>INITAD=INITAD.FOR(CR)
FOR>RKB=RKB.FOR(CR)
FOR>ASUB=ASUB.FOR(CR)
FOR>IOSUB=IOSUB.FOR(CR)
FOR>^Z

>MAC(CR)
MAC>ISHFT=ISHFT(CR)
MAC>^Z

>TKB(CR)
TKB>ADVENT=ADVENT/MP(CR)
ENTER OPTIONS:
TKB>TASK=ADVENT
TKB>//

THE FULLY LINKED TASK CAN BE EXECUTED WITH THE COMMAND:

>RUN ADVENT(CR)

AGAIN, IT WILL TAKE 60-90 SECONDS TO INITIALIZE ITS DATA
BASE AND TO WRITE ITS WORK FILE (FOR002.DAT ON SY:).

GOOD LUCK!

---