I was trying to RUN the old CSL game 'TRIREME' and it appears to work
perfectly.  Except that it won't let me 'QU.IT'.  It will abort however
when attempting to use the 'SK.IP' command with the following error:

 
**** COMPATABILITY STACK OVERFLOW 
ABORT: TRIREME.PUB.TRIREME 
Special CM stack marker cap.  CM was interrupted
Cap has been removed.  ISM used to get CM state.
NM TRANS 31.011a0014 
   CM SYS  % 162.23273  CXFILE+%13310           CISEG2           

Program terminated in an error state. (CIERR 976)

Looking at what I think are the relevant lines of
FORTRAN/66 code I see the following:

   10 CALL GETNT(NT,OLD)
   50 IF (NT.LT.NU) GO TO 100
         DISPLAY " * * * Ships advance * * *"
         DISPLAY " "
         CALL ROMANFIRE
         CALL MOVEEVAL
         CALL MOVE(M,ISCORE,NT,IDIF)
         IF (M.GE.10000) GO TO 500
C            DON'T COUNT TIME FOR UPDATE IN INTERVAL!
            NKEEP=NT
            CALL GETNT(NT,OLD)
            NU=NT+NEXT
            DISPLAY "Next update at:",NU
     +       ,"             Time used for update:",NT-NKEEP
  100 CALL USERCOMM(M,NT,NU,ISCORE)
         GO TO 10
  500 DISPLAY "SCORE:",ISCORE
      CALL TRLEAGUE(ISCORE,IDIF,NAME,NT)
      STOP
      END


..... [INTERVENING 999~ LINES OF SUBROUTINES] .....

    
      SUBROUTINE USERCOMM(M,NT,NU,ISCORE)
      INTEGER*4 ISCORE
      CHARACTER GRID*1(40,60)
      INTEGER IMOVE(8),JMOVE(8),GREEK,ROMAN
      INTEGER CUMHIT(5,2,2)
      COMMON NFIRED(5),GREEK(5,12),ROMAN(5,12),GRID
      COMMON /CALCS/ SEED,IMOVE,JMOVE
      CHARACTER*2 CO
      DISPLAY "Time:",NT,"  Command:"
      I=0
      J=0
      K=0
      ACCEPT CO,I,J,K
      IF (CO.EQ."MA") CALL MAP(I,J)
      IF (CO.EQ."CH") CALL CHANGE(I,J,1)
      IF (CO.EQ."BA") CALL CHANGE(I,J,2)
      IF (CO.EQ."KE") CALL CHANGE(I,J,3)
      IF (CO.EQ."SP") CALL CHANGE(I,J,4)
      IF (CO.EQ."SH") CALL OARS(1)
      IF (CO.EQ."PU") CALL OARS(2)
      IF (CO.EQ."ST") CALL STATUS(NT,ISCORE)
      IF (CO.EQ."HE") CALL HELP(2)
      IF (CO.EQ."FI") CALL CATAPAULT(I,GREEK,ROMAN,1,IROW,ICOL,CUMHIT)
      IF (CO.EQ."QU") M=10000
      IF (CO.EQ."SK") NT=NU
      RETURN
      END
      BLOCK DATA
      CHARACTER GRID*1(40,60)
      INTEGER IMOVE(8),JMOVE(8),GREEK,ROMAN
      COMMON /CALCS/ SEED,IMOVE,JMOVE
      DATA IMOVE,JMOVE /0,-1,-1,-1,0,1,1,1,  1,1,0,-1,-1,-1,0,1/
      END

Tracy Johnson
MSI Schaevitz Sensors 
 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *