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