.key a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
.bra «
.ket »

; $VER: qdload 1.00 (21.7.94)
; Invoke lk with ugly messages

If "«a»" EQ ""
  If Exists "lk.with"
    lk >NIL: VER "*" WITH lk.with
  Else
    lk ?
  EndIf
Else
  lk >NIL: VER "*" OBJECT «a» «b» «c» «d» «e» «f» «g» «h» «i» «j» «k» «l» «m» «n» «o» «p» «q» «r» «s» «t» «u» «v» «w» «x» «y» «z»
EndIf