sub main

    dim password1 as string
    dim nama as string
    dim email as string
    dim password as string
    dim pendaftaran as string
    dim email2 as string
    dim password2 as string

    print ” SELAMAT DATANG ”
    sleep 1000
    print ” silakan daftar sebelum masuk ”
    sleep 1000

    input ” nama “,nama
    sleep 1000

    input ” email “,email
    sleep 1000

    input ” password “,password
    sleep 1000

    input ” confirm password “,password1
    sleep 1000



    if (password1 <> password)then
        print ” password anda tidak sama chek password sebelumnya ”
        sleep 1500
        input ” confirm password”,password1
    end if

    if (password1 <> password)then
        print ” password anda tidak sama chek password sebelumnya ”
        sleep 1500
        input ” confirm password “,password1
    end if

    if (password1 <> password)then
        print “silahkan coba beberapa saat lagi”
        sleep 1500
    end if

    if ( password1 = password)then
        sleep 5000
        print ” terima kasih ”
        sleep 1000
        print ” pendaftaran anda berhasil ”

        REM perintah yang tadinya diluar blok IF dipindahkan ke dalam semua
        REM karena semua perintah ini hanya dijalankan kalau password1 = password

        sleep 5000

        print ” nama : ” + nama
        print ” email : ” + email
        print ” password : ” + password

        sleep 5000

        print ” silahkan login ”

        sleep 10000

        input ” email “, email2
        input ” password “,password2

        sleep 5000

        REM proses pengecekan loginnya harus berganda
        REM pertama mengecek apakah email2 dan email sama
        REM kedua mengecek apakah password2 dan password sama
        REM untuk pengecekan ganda seperti itu kita pakai perintah OR (atau) dan AND (dan)
        REM perintah tsb belum masuk di materi karena untuk adanya di materi tingkat berikutnya
        REM tapi untuk contoh akan saya praktekan di sini
        REM perintah IF di bawah ini artinya
        REM kalau email2 beda dengan email ATAU password2 beda dengan password
        REM maka munculkan pesan dan suruh user login kembali

        if (email2 <> email OR password2 <> password) then
            print “email dan password anda tidak sesuai chek kembali email anda”
            input ” email “,email2
            input ” password “,password2
        end if

        if (email2 <> email OR password2 <> password) then
            print “email dan password anda tidak sesuai chek kembali email anda”
            input ” email “,email2
            input ” password “,password2
        end if

        if (email2 <> email OR password2 <> password) then
            print “email dan password anda tidak sesuai chek kembali email anda”
            input ” email “,email2
            input ” password “,password2
        end if

        if (email2 <> email OR password2 <> password) then
            print “Anda sudah 3x salah login.”
        end if

        REM perintah IF di bawah ini artinya
        REM kalau email2 sama dengan email DAN password2 sama dengan password
        REM maka munculkan pesan berhasil login,
        REM jadi tidak bisa salah satu sama, harus dua-duanya sama (email dan password)

        if (email2 = email AND password2 = password) then
            print ” LOGIN BERHASIL ”
            print ” SELAMAT YAH … ”
        end if

    end if


end sub