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 / send.ftn < prev    next >
Text File  |  1990-04-02  |  863b  |  52 lines
  1.     SUBROUTINE SEND(THECMD)
  2. C
  3. C    Send a command line to the player.
  4. C
  5.     INCLUDE 'COMMND.COM/-LI'
  6.     INCLUDE 'BUFFER.COM/-LI'
  7.     BYTE THECMD
  8.     INTEGER*2 IVALUE
  9.     REAL XVALUE
  10. C
  11. C    A command with no value
  12. C
  13.     ENCODE(10,10100,CMD)THECMD
  14. 10100    FORMAT(A1,'^        ')
  15.     CNT=2
  16.     GOTO 10600
  17. C
  18. C    A command with an integer value
  19. C
  20.     ENTRY SENDI(THECMD,IVALUE)
  21.     CMD(1)=THECMD
  22.     ENCODE(20,10200,IBUF)IVALUE
  23. 10200    FORMAT(I11,'^++++++++')
  24.     GOTO 10500
  25. C
  26. C    A command with an real value
  27. C
  28.     ENTRY SENDX(THECMD,XVALUE)
  29.     CMD(1)=THECMD
  30.     ENCODE(25,10300,IBUF)XVALUE
  31. 10300    FORMAT(F16.6'^++++++++')
  32. C
  33. C    Do a little clean up here
  34. C
  35. 10500    J=0
  36.     DO 10520 I=2,10
  37. 10510    J=J+1
  38.     IF(IBUF(J).EQ.' ')GOTO 10510
  39.     IF(IBUF(J).EQ.'^')CNT=I
  40.     IF(IBUF(J).EQ.'+')GOTO 10540
  41.     CMD(I)=IBUF(J)
  42.     GOTO 10520
  43. 10540    CMD(I)=' '
  44. 10520    CONTINUE
  45. C
  46. C    Now write out the command
  47. C
  48. 10600    CALL WRITE(16,1,CMD,10)
  49.     CMD(CNT)="15
  50.     RETURN
  51.     END
  52.