LXI    SP,0CBFFH
 MVI    A,'?'
 STA    KILL
 MVI    A,'"'
 STA    RUBO
 XRA    A
 STA    MODE
 LXI    H,8FFFH
 SHLD   MMAX
 CALL   CLRS
IDON   LXI    H,EDMS
 CALL   OUTR
CMRT   MVI    A,'>'
 CALL   TVTO
 CALL   DTIN
 CALL   SCNB
 JC     INMD
SCRH   PUSH   B
 LXI    D,CTB4
 LHLD   IPNT
 SHLD  ADDS
 MVI   A,4
 STA    NCHR
 MVI    B,N4C5
 CALL   CTSH
 JZ     MTCH
 MVI    A,1
 STA    NCHR
 MVI    B,N1C5
 CALL   CTSH
 JNZ    WHAT
MTCH   SHLD   TEMP
 LDA    NCHR
 MOV    C,A
 MVI    B,0
 LHLD   IPNT
 DAD    B
 SHLD   IPNT
 MOV    A,M
 CPI    ' '+1
 JNC    WHAT
MTGO  CALL   SCNB
 SHLD   IPNT
 LHLD   TEMP
 POP    B
EXCT   LXI    D,CMRT
 PUSH   D
 PCHL
EDMS   ASC 'EDIT'
 DB     8DH
KILL   DS     1
RUBO   DS     1
MODE   DS     1
MMAX   DS     2
ADDS   DS     2
IPNT   DS     2
OUTR   MOV    A,M
 MVI    B,2
 ORA    A
 JP     OTCH
 SUI    80H
 DCR    B
OTCH PUSH B
 MOV    B,A
 CALL   TVTO
 POP    B
 DCR    B
 JZ OTCL
 INX    H
 JMP    OUTR
OTCL MVI A,1AH
 CALL TVTO
 RET
TVTO   PUSH B
 PUSH D
 PUSH H
 PUSH PSW
 MOV B,A
 CALL  0C019H
 POP PSW
 POP H
 POP D
 POP B
 RET
DTIN   LXI    H,IBUF
 SHLD   IPNT
 LDA    KILL
 MOV    E,A
 LDA    RUBO
 MOV    D,A
 LXI    B,100H
NXCH   CALL   TVTI
 CMP    E
 JZ     DTIN
 CMP    D
 JNZ    STOR
 DCR    C
 JM    DTIN
 DCR    B
 DCX    H
 JMP    NXCH
STOR   MOV    M,A
 CPI    0DH
 RZ
 MOV    A,C
 CPI    CMAX
 JZ     NXCH
 MOV    A,M
 INX    H
 INR    C
 INR    B
 CPI    TAB
 JNZ    NXCH
 DCR    B
 CALL   TBST
 JMP    NXCH
IBUF   DS     64
TVTI   PUSH D
 PUSH B
 PUSH H
TVT2 CALL 0C01FH
 JZ TVT2
 PUSH PSW
 MOV B,A
 CALL TVTO
 POP PSW
 POP H
 POP B
 POP D
 RET
CMAX   EQU    64
TAB    EQU    9
MMIN   EQU    0A00H
TBST   MOV    A,B
 SUI 6
 JNC    $-5
 PUSH   D
 MOV    D,A
 MVI    A,' '
 CALL   DTOT
 INR    B
 INR    D
 JNZ    $-8
 POP    D
 RET
DTOT   PUSH   H
 PUSH   D
 PUSH   B
 PUSH   PSW
DTO1 CALL TVTO
 POP PSW
 POP B
 POP D
 POP H
 RET
 COPY ED2:S