home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / emulate.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  1.9 KB  |  63 lines
  1. **************************************************************************
  2. *                                                                        *
  3. *    This script demonstrates processing of an added user command.       *
  4. *    To define this script as a command processor, use                   *
  5. *                                                                        *
  6. *               ADDCOMMAND Emulate                                       *
  7. *                                                                        *
  8. *    This allows subsequent commands like                                *
  9. *                                                                        *
  10. *               Emulate VT100                                            *
  11. *                                                                        *
  12. **************************************************************************
  13. *
  14. Declare TermName String
  15. *
  16. IF ( ParamCount > 0 ) THEN
  17.    Set TermName = UpperCase( ParamStr( 1 ) )
  18. ELSE
  19.    Set TermName = ' '
  20. ENDIF
  21. *
  22. DOCASE TermName OF
  23.    CASE 'DUMB'
  24.       Message "Dumb terminal chosen."
  25.       Param   te=0
  26.    ENDCASE
  27.    CASE 'VT52'
  28.       Message "VT52 terminal chosen."
  29.       Param   te=1
  30.    ENDCASE
  31.    CASE 'ANSI'
  32.       Message "ANSI/BBS terminal chosen."
  33.       Param   te=2
  34.    ENDCASE
  35.    CASE 'VT100'
  36.       Message "VT100 terminal chosen."
  37.       Param   te=3
  38.    ENDCASE
  39.    CASE 'GOSSIP'
  40.       Message "Gossip mode chosen."
  41.       Param   te=4
  42.    ENDCASE
  43.    CASE 'TEK4010'
  44.       Message "Tek 4010 terminal chosen."
  45.       Param   te=6
  46.    ENDCASE
  47.    CASE 'ADM3A'
  48.       Message "ADM3a terminal chosen."
  49.       Param   te=7
  50.    ENDCASE
  51.    CASE 'ADM5'
  52.       Message "ADM5 terminal chosen."
  53.       Param   te=8
  54.    ENDCASE
  55.    CASE 'TV925'
  56.       Message "TV925 terminal chosen."
  57.       Param   te=9
  58.    ENDCASE
  59.    CASE ELSE
  60.       Message "Terminal type not recognized."
  61.    ENDCASE
  62. ENDDOCASE
  63.