Compare Passwords

comparepass.bas

VAR REALPASS1 BYTE
VAR REALPASS2 BYTE
VAR REALPASS3 BYTE
VAR REALPASS4 BYTE
VAR PASS1 BYTE
VAR PASS2 BYTE
VAR PASS3 BYTE
VAR PASS4 BYTE

READ 0, REALPASS1
READ 1, REALPASS2
READ 2, REALPASS3
READ 3, REALPASS4

' KAW NA MAG-INSERT NG CODE NG KEYPAD READING DITO

IF REALPASS1 <> PASS1 THEN WRONGPASS
IF REALPASS2 <> PASS2 THEN WRONGPASS
IF REALPASS3 <> PASS3 THEN WRONGPASS
IF REALPASS4 <> PASS4 THEN WRONGPASS

RIGHTPASS:
' HANDLE RIGHT PASSWORD HERE
' DAPAT MAG-JUMP PAGKATAPOS NITONG RIGHTPASS
' PARA HINDI MAPUNTA SA WRONG PASS

WRONGPASS:
' HANDLE WRONG PASSWORD HERE