.org $9D95
#include "ti83plus.inc"
 push af
 push de
 push hl
 bcall(_ZeroOP1)
 ld a,$04
 ld (OP1),a
 ld a,$AA
 ld (OP1+1),a
 ld a,$09
 ld (OP1+2),a
 bcall(_FindSym)
 jp c,beg
del:
 bcall(_DelVarArc)
beg:
 ld hl,$6
 bcall(_CreateStrng)
 ld hl,0
 add hl,de
 inc hl
 inc hl
 ld a,($64)
 ld (hl),a
 inc hl
 ld a,':'
 ld (hl),a
 inc hl
 ld a,($66)
 ld (hl),a
 inc hl
 ld a,($67)
 ld (hl),a
 inc hl
 ld a,($68)
 cp $21
 jp p,c5
 ld a,')'
c5:
 ld (hl),a
 inc hl
 ld a,($69)
 cp $21
 jp p,c6
 ld a,')'
c6:
 ld (hl),a
 pop hl
 pop de
 pop af
 RET
.end