SELECT CASE (PILIHAN) PADA QBASIC

CLS
DIM PIL
30 CLS
PRINT "1. MENHITUNG LUAS SEGITIGA"
PRINT "2. MENGHITUNG LUAS LINGKARAN"
INPUT " MASUKKAN PILIHAN ANDA: "; PIL
IF PIL = 1 OR PIL = 2 THEN GOTO 45 ELSE PRINT "PILIHAN TIDAK ADA"
45 SELECT CASE PIL
CASE 1
PRINT "MENGHITUNG LUAS SEGITIGA"
INPUT "MASUKKAN NILAI ALAS :"; A
INPUT "MASUKKAN NILAI TINGGI :"; T
LUAS = 1 / 2 * A * T
PRINT "LUAS ="; LUAS
150 PRINT "APAKAH ANDA INGIN MENGULANG ?"
PRINT "Y/N"
INPUT "PILIHAN"; ULANG$
IF ULANG$ = "Y" GOTO 30 ELSE IF ULANG$ = "N" GOTO 200 ELSE PRINT "PILIHAN TIDAK ADA"
CASE 2
PRINT "MENGHITUNG LUAS LINGKARAN"
INPUT "MASUKKAN JARI-JARI :"; J
LUAS = 22 / 7 * R * R
PRINT "LUAS LINGKARAN ="; LUAS
GOTO 150
END SELECT
200 END

dan hasilnya