home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / ready.ftn < prev    next >
Text File  |  1990-04-02  |  1KB  |  55 lines
  1.     SUBROUTINE READY
  2.  
  3.     INCLUDE 'LEDFOR.COM/-LI'
  4.     INCLUDE 'PLAYER.COM/-LI'
  5.     BYTE VALID
  6.  
  7.     CALL CHKPAR    ! Make sure ledfor is set
  8.     CALL ERRSET(24,,.FALSE.,,.FALSE.)
  9.     CALL ERRSET(39,,.FALSE.,,.FALSE.)
  10.     CALL ERRSET(64,,.FALSE.,.TRUE.,.FALSE.)
  11.     CALL FINIT    ! Init the fill and flush routines
  12.     WHO=0
  13. 10004    CONTINUE
  14.     CALL CLEAR
  15.     CALL WRITE(4,30,'Welcome to MULTI-TREK')
  16.     CALL WRITE(7,18,'The following vessels are availiable for use.')
  17.     DO 10006 I=1,8
  18.     IF(ACTIVE(I))GOTO 10006
  19.     CALL WRITE(10+I,37,'Ship ')
  20.     CALL FILL("60+I,1)
  21. 10006    CONTINUE
  22.     CALL WRITE(20,13,'Enter the number
  23.      $ of the vessel you wish to command : ')
  24.     CALL FLUSH
  25.     CALL GETINT(WHO,OK,1,8,VALID)
  26.     IF(.NOT.OK)GOTO 10004
  27.     IF(ALIVE(WHO))GOTO 10004
  28.     IF(ACTIVE(WHO))GOTO 10010
  29.     ENERGY(WHO)=10000.
  30.     IPOD(WHO)=0
  31.     SCORE(WHO)=0
  32.     SHIELD(WHO)=0.
  33.     TORPS(WHO)=10
  34.     GOTO 10013
  35. 10010    CONTINUE
  36.     CALL WRITE(22,20,'Do you wish to resume this command ? ')
  37.     CALL FLUSH
  38.     CALL YESNO(OK,VALID)
  39.     IF(.NOT.OK)GOTO 10004
  40. 10013    CONTINUE
  41.     CLOAK(WHO)=.FALSE.
  42.     ACTIVE(WHO)=.TRUE.
  43.     ALIVE(WHO)=.TRUE.
  44.     HYPX=HYPER(WHO)
  45.     TORX=TORPS(WHO)
  46.     RESET=.TRUE.
  47. C
  48. C    Set up terminal input/output
  49. C
  50.     IF(THRU.LT.0)THRU=0
  51.     THRU=THRU+1
  52.     CALL RDAST
  53.     RETURN
  54.     END
  55.