PROGRAM LOGIN PADA QBASIC

Script :
DIM a AS STRING
DIM p AS STRING
DIM y AS STRING
CLS
j:
INPUT "Masukkan Username kita = ", a
INPUT "Masukkan Password kita = ", p
IF a = "shiddiq" AND p = "ganteng" THEN
PRINT "Kita Berhasil Login"
ELSE
PRINT "Kita Gagal Login"
INPUT "mau lagi??? (y/n) ", y
IF y = "y" OR y = "Y" THEN
GOTO j
ELSE
END
END IF
END IF
END

Penjelasan :
1. Deklarasikan variabel a, p, dan y bertipe data string atau  huruf.
2. Bersihkan layar.
3. Lompatan  j.
4. Proses memasukkan username dan password ke variabel a dan  p
5. Seleksi kondisi jika a = shiddiq dan p=ganteng, maka cetak “Kita Berhasil Login”.
6. Jika tidak sesuai, maka cetak “Kita Gagal Login” dan seleksi pilihan untuk transaksi lagi/tidak.
7. Jika ingin transaksi kembali maka kembali ke input username dan password, jika tidak maka akhiri program.

Output :