home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / terminal / ca_29 / ansi.cmd < prev    next >
Encoding:
Text File  |  1993-07-21  |  2.0 KB  |  61 lines
  1.     SET TTHRU OFF
  2.     LEGEND "Installing ANSI emulation"
  3. ;
  4. ; ----- Set an emulation, enabling both display and remap
  5. ;    commenced: 9/23/92 R.McG
  6. ; ----------------------------------------------------------------
  7. ;    Note: This script creates the file COM-AND.RMP on the default
  8. ;    subdirectory (if no COM-AND= subdir) or on the COM-AND= subdir.
  9. ;    An existing COM-AND.RMP is destroyed.
  10. ; ----------------------------------------------------------------
  11. ;
  12. ;    If COM-AND.RMP is on the current subdirectory, use it
  13. ;
  14.     S0 = "COM-AND.RMP"              ; Default to current subdir
  15.     IF ISFILE S0 GOTO WriteRMP    ; Skip if on current subdir
  16. ;
  17. ;    Construct the file name with the COM-AND= pathing (if provided)
  18. ;
  19.     ENVIRON S1 "COM-AND="           ; Look for COM-AND= environment var
  20.     IF FOUND            ; If environment variable found
  21.        S1 = S1&""                   ; Trim trailing blanks
  22.        LENGTH S1 N0         ; Get its length
  23.        IF N0 GT 0            ; If trimmed len > 0
  24.           IF NOT STRCMP S1(n0-1:n0-1) "\" S1 = S1&"\"
  25.        ELSE
  26.           S1 = ""
  27.           ENDIF
  28.        S0 = S1&S0            ; Concatenate path and name
  29.        ENDIF
  30. ;
  31. ;    Open the output file and write the remap
  32. ;
  33. WriteRMP:
  34.     S0 = "COM-AND.RMP"
  35.     FOPENO S0 text
  36.     IF FAILED
  37.        MESS "Cannot open "*S0
  38.        EXIT
  39.        ENDIF
  40.     WRITE "^@S^A^@H^C^[[A^@P^C^[[B^@K^C^[[D^@M^C"  ; CurR and CurL inter-
  41.     WRITE "^[[C^@G^C^[[H^@O^C^[[K^@v^G^[[H^[[ J^@"  ; changed; fix 7/93
  42.     WRITE "ä^C^[[M^@w^C^[[L^@h^C^[Oq^@i^C^[Or^@j^C"
  43.     WRITE "^[Os^@k^C^[Ot^@l^C^[Ou^@m^C^[Ov^@n^C^["
  44.     WRITE "Ow^@o^C^[Ox^@p^C^[Oy^@q^C^[Op^@g^B^@q^@"
  45.     WRITE "T^C^[OP^@U^C^[OQ^@V^C^[OS^@W^C^[OT^@X^C"
  46.     WRITE "^[Om^@Y^C^[Ol^@Z^C^[OM^@[^C^[On"
  47. ;
  48. ;    Add a remap for F10 (help) if help script is installed
  49. ;
  50.     IF ISSC "ANSI.HLP"
  51.        WRITE "^@D^J ANSI.HLP^M^@^@"; The " " is char value 255
  52.        ENDIF
  53.     FCLOSEO             ; Close the file
  54. ;
  55. ; ----- Enable display emulation and remap
  56. ;
  57.     EMULATE ANSI            ; Display emulation
  58.     SET REMAP ON            ; Load new remap file
  59.     SET CR CR            ; ANSI assumes LF has meaning
  60.     EXIT
  61.