5
CLS
PRINT
"DATA NILAI MAHASISWA": PRINT
PRINT
"1. UPDATE": PRINT
PRINT
"2. LIHAT HASIL AKHIR": PRINT
PRINT
"3. KELUAR": PRINT
INPUT
"PILIHAN [1..3]"; PIL
SELECT
CASE PIL
CASE
1
CLS
I
= 1
10
INPUT "NAMA ANDA : ", B$(I)
INPUT
"KODE MK : ", C$(I)
INPUT
"NILAI : ", D(I)
INPUT
"APAKAH DATA SUDAH OK?(Y/T)", F$
IF
F$ = "T" THEN 10
INPUT
"MAU TAMBAH DATA?(Y/T)", G$
IF
G$ = "Y" THEN I = I + 1: GOTO 10
IF
G$ = "T" THEN 5
END
CASE
2
CLS
PRINT
"DATA NILAI MAHASISWA": PRINT
PRINT
"NAMA", "KODE MK", "NILAI"
FOR
J = 1 TO I
PRINT
B$(J), C$(J), D(J)
NEXT
J: PRINT
END
CASE
3
CLS
30
INPUT "MAU COBA LAGI ?(Y/T) :", W$
IF
W$ = "Y" THEN GOTO 5
END
END
SELECT
END