Hi, I finally figured it out...the above modification works.
Code:
 if ComboPtr <= ComboLength then
        Read ComboPtr+useradd, ByteA[cnt1]                    ; Get the digit from EEPROM
        
        if Key = ByteA then                      ; is it the same ?
            Read 0, ByteA                        ; Get the length of the combo
@       if  HIGH_SECURITY == 0
            'Serout PortD.5,T9600, [$1B,$45,"Key=",key]
            Serout PortD.5, T9600, ["*"]      ; print a Mask character
            if ComboPtr = ByteA then AccessGranted   ; Done?, Grant Access
           
@       endif
            
        else
@       if HIGH_SECURITY == 0
            ComboPtr = 0 
            Serout PortD.5,T9600 ,[$1B,$45]      ; Wrong digit
            goto  AccessDenied                   ; terminate entry
@       else                                     ; -HIGH_SECURITY-
            Failed = 1                           ; let them keep entering
@       endif                                    ; makes it harder to figure
        Endif                                    ; the combination
        cnt1=cnt1+1
    endif
resume
Regards,
tacbanon