FreeBSD termcap has: dm2500|datamedia2500|2500|datamedia 2500:\ :do=^J:al=15^P\n^X^]^X^]:le=^H:bs:ce=^W:cl=^^^^\177:\ :cm=^L%r%n%.%.:co#80:dc=10*^P\b^X^]:dl=10*^P^Z^X^]:\ :dm=^P:ed=^X^]:ei=10\377\377^X^]:ho=^B:ic=10*^P^\^X^]:\ :im=^P:li#24:nc:nd=^\:pc=\377:so@=^N:se=^X^]:up=^Z: (whatever THAT means!) And in english (from an old copy of ITS TECO): IFN DM2500,[ SUBTTL DM2500 DM25TB: 2000+24.,,79. (%TOERS+%TOMVB+%TOMVU+%TOLWR+%TOLID+%TOCID+%TOFCI) CALL DMCPS CALL DMCEOL CALL DMCEOL ;CLOSEST WE CAN COME CALL DMCLRS REPEAT 3, NOP CALL DMINSL CALL DMDELL CALL DMINSC CALL DMDELC CALL DMRST DMCPS: JUMPE B,[MOVEI A,^B ;HOME IS EASY PBOUT RET] MOVEI A,^L ;ELSE ^L<HPOS#140><VPOS#140> PBOUT HRRZ A,B XORI A,"` PBOUT HLRZ A,B XORI A,"` DMCP2: PBOUT RET DMCEOL: MOVEI A,^W JRST DMCP2 DMCLRS: MOVEI A,^^ PBOUT ;[ DMRST: MOVEI A,^] ;RESTORE ROLL MODE JRST DMCP2 DMINSL: SAVE C SAVE B CALL DMINS1 ;POSITION RIGHT AND ENTER I/D MODE MOVEI A,30. ;COMPUTE AMOUNT OF FILL NEEDED SUBI A,(BP) ;((30.-(BP))*OSPEED-2400.)/14400. SKIPN B,OSPEED ;SPEED OF OUTPUT MOVEI B,9600. ;ASSUME MAX IF UNKNOWN IMULI B,(A) SUBI B,2400. IDIVI B,14400. ;MAGIC NUMBER IN B DMINS2: MOVEI A,^J ;INSERT A LINE PBOUT MOVEI A,177 ;FILL CHARACTER SKIPE C,B ;GET NUMBER OF FILL CHARS NEEDED PBOUT SOJG C,.-1 ;OUTPUT THAT MANY SOJG Q,DMINS2 ;REPEAT FOR NUMBER OF LINES REQUESTED REST B DMINS3: REST C MOVEI A,^X JRST DMCP2 DMDELL: SAVE C CALL DMINS1 DMDEL2: MOVEI A,^Z ;DELETE A LINE PBOUT MOVEI A,177 ;ONE FILL CHAR SKIPE C,OSPEED CAIL C,9600. PBOUT ;ONLY FOR 9600 BAUD OR MORE THOUGH SOJG Q,DMDEL2 JRST DMINS3 DMINS1: HRROI A,[.BYTE 7 ? ^L ? "` ? 0] PSOUT MOVEI A,140(BP) PBOUT MOVEI A,^P PBOUT RET DMINSC: SAVE C HRROI A,[.BYTE 7 ? ^P ? ^\ ? ^X ? 0] SKIPE C,OSPEED CAIL C,9600. ;IF AT 9600 OR MORE, HRROI A,[.BYTE 7 ? ^P ? 40 ? 177 ? ^X ? ^H ? 40 ? ^H] ;USE HAIRY ONE PSOUT REST C SOJG Q,DMINSC RET DMDELC: HRROI A,[.BYTE 7 ? ^P ? ^H ? 0] PSOUT SAVE C MOVEI A,177 SKIPE C,OSPEED CAIL C,9600. ;IF AT 9600 OR MORE, PBOUT ;NEED ONE FILL CHAR JRST DMINS3 ] ;DM2500