Qbasic program to check PAN number is valid or not

CLS
    DIM P AS STRING , N% , C% , T% , C1% , C2%
         
    INPUT "ENTER PAN NUMBER"; P$
    P$ = UCASE$(P$)
    IF LEN(P$) = 10 THEN
        FOR T = 1 TO 5
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 65 AND N <= 90) OR (N >= 97 AND N <= 122) THEN
                C = C + 1
            END IF
        NEXT
        FOR T = 6 TO 9
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 48 AND N <= 57) THEN
                C1 = C1 + 1
            END IF
        NEXT

        FOR T = 10 TO 10
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 65 AND N <= 90) OR (N >= 97 AND N <= 122) THEN
                C2 = C2 + 1
            END IF
        NEXT
    ELSE
        PRINT "INVALID PAN NUMBER"
        END
    END IF
    IF C = 5 AND C1 = 4 AND C2 = 1 THEN
        PRINT "VALID PAN CARD"
    ELSE
        PRINT "INVALID PAN NUMBER"
    END IF

END