/ PROGRAM eq ;- ; eq - compares char for char a:b for n chars ; a . in the b string (the pattern) matches any char ; chars are matched caselessly ; This is a local version for the jpl program ;+ FUNCTION eq[a,b,n] i=r2 char.a=r3 char.b=r4 LOOP for i = #1 TO n call work NEXT i RET #1 work: LET char.a = .a[,b] LET char.b = .b[,b] IF char.b NE #'. BEGIN IF char.b HIS #'a AND char.b LOS #'z BIC #40,char.b FI IF char.a HIS #'a AND char.a LOS #'z BIC #40,char.a FI IF char.a NE char.b clr r0 RET FI END FI rts pc .end