SmileBasicCaptchaCodeCalc

' BiOnIcLe: BOX OF ASSORTED BIONICLE
' BiOnIcLE: TOA TAHU
' BiONIcL-: TOA LEWA
' Bi--IcL-: (POHATU OR MATORAN)

' PaprMask: PAPER PLATE MASK
' 0000Swrd: KATANA
' HackWood: HATCHET
' SmllBall: BALL

' RixrMctk: KANOHI HAU
' RixtMctk: KANOHI MIRU
' BiOnU?rl: TAHU'S SWORD
' Ri?!ostl: LEWA'S AXE
' Vy!!Rc!l: KOLLII BALL


@START
CLS
CODEAW$="BiOnIcLe"
CODEBW$="SmllBall"
GOSUB @MAINFUNC
PRINT
CODEAW$="bIoNiClE"
CODEBW$="SmllBall"
GOSUB @MAINFUNC
END

@MAINFUNC
'INPUT "CODE A: ", CODEAW$
A1$=MID$(CODEAW$,0,1)
A2$=MID$(CODEAW$,1,1)
A3$=MID$(CODEAW$,2,1)
A4$=MID$(CODEAW$,3,1)
A5$=MID$(CODEAW$,4,1)
A6$=MID$(CODEAW$,5,1)
A7$=MID$(CODEAW$,6,1)
A8$=MID$(CODEAW$,7,1)
A1=CALL("NUMSHIFTA",ASC(A1$))
A2=CALL("NUMSHIFTA",ASC(A2$))
A3=CALL("NUMSHIFTA",ASC(A3$))
A4=CALL("NUMSHIFTA",ASC(A4$))
A5=CALL("NUMSHIFTA",ASC(A5$))
A6=CALL("NUMSHIFTA",ASC(A6$))
A7=CALL("NUMSHIFTA",ASC(A7$))
A8=CALL("NUMSHIFTA",ASC(A8$))
'INPUT "CODE B: ", CODEBW$
B1$=MID$(CODEBW$,0,1)
B2$=MID$(CODEBW$,1,1)
B3$=MID$(CODEBW$,2,1)
B4$=MID$(CODEBW$,3,1)
B5$=MID$(CODEBW$,4,1)
B6$=MID$(CODEBW$,5,1)
B7$=MID$(CODEBW$,6,1)
B8$=MID$(CODEBW$,7,1)
B1=CALL("NUMSHIFTA",ASC(B1$))
B2=CALL("NUMSHIFTA",ASC(B2$))
B3=CALL("NUMSHIFTA",ASC(B3$))
B4=CALL("NUMSHIFTA",ASC(B4$))
B5=CALL("NUMSHIFTA",ASC(B5$))
B6=CALL("NUMSHIFTA",ASC(B6$))
B7=CALL("NUMSHIFTA",ASC(B7$))
B8=CALL("NUMSHIFTA",ASC(B8$))
C1=A1 AND B1
C2=A2 AND B2
C3=A3 AND B3
C4=A4 AND B4
C5=A5 AND B5
C6=A6 AND B6
C7=A7 AND B7
C8=A8 AND B8
C1$=CALL("NUMSHIFTB",C1)
C2$=CALL("NUMSHIFTB",C2)
C3$=CALL("NUMSHIFTB",C3)
C4$=CALL("NUMSHIFTB",C4)
C5$=CALL("NUMSHIFTB",C5)
C6$=CALL("NUMSHIFTB",C6)
C7$=CALL("NUMSHIFTB",C7)
C8$=CALL("NUMSHIFTB",C8)
D1=A1 OR B1
D2=A2 OR B2
D3=A3 OR B3
D4=A4 OR B4
D5=A5 OR B5
D6=A6 OR B6
D7=A7 OR B7
D8=A8 OR B8
D1$=CALL("NUMSHIFTB",D1)
D2$=CALL("NUMSHIFTB",D2)
D3$=CALL("NUMSHIFTB",D3)
D4$=CALL("NUMSHIFTB",D4)
D5$=CALL("NUMSHIFTB",D5)
D6$=CALL("NUMSHIFTB",D6)
D7$=CALL("NUMSHIFTB",D7)
D8$=CALL("NUMSHIFTB",D8)
PRINT "A =",A1$+A2$+A3$+A4$+A5$+A6$+A7$+A8$
PRINT "B =",B1$+B2$+B3$+B4$+B5$+B6$+B7$+B8$
PRINT "&&=",C1$+C2$+C3$+C4$+C5$+C6$+C7$+C8$
PRINT "||=",D1$+D2$+D3$+D4$+D5$+D6$+D7$+D8$
'GOTO @START
RETURN

DEF NUMSHIFTA(A)
IF A==33 THEN RETURN 63
A=A-48
IF A<10 THEN RETURN A
IF A==15 THEN RETURN 62
A=A-17
IF A<26 THEN RETURN A+10
A=A-32
IF A<26 THEN RETURN A+36
PRINT "ERROR"
STOP
END

DEF NUMSHIFTB(A)
IF A<10 THEN RETURN CHR$(A+48)
IF A<36 THEN RETURN CHR$(A+65-10)
IF A<62 THEN RETURN CHR$(A+97-36)
IF A==62 THEN RETURN "?"
IF A==63 THEN RETURN "!"
PRINT "ERROR"
STOP
END