DATA
"Nasi Putih","Nasi Goreng","Nasi Gurih"
DATA "Ayam penyet","Telur
Dadar","Ayam Sayur"
DATA "Just Alpukat","Kopi","Teh
Panas"
DATA "Kredit","Cash"
CLS
PRINT
PRINT "Untuk Memilih Nasi : 1. Nasi Putih 2. Nasi Goreng 3. Nasi
Gurih"
PRINT "Untuk Memilih Lauk : 1. Ayam Penyet 2. Telur Dadar 3. Ayam Sayur"
PRINT "Untuk Memilih Minuman : 1. Just Alpukat 2.
Kopi 3. Teh Panas"
PRINT "Pilihan Pembayaran : 1. Kredit 2. Cash"
PRINT
PRINT
INPUT "JENIS NASI (1/2/3) = ", jn$
INPUT "JENIS LAUK (1/2/3) = ", jl$
INPUT "JENIS MINUMAN (1/2/3) = ", jm$
INPUT "JENIS BAYAR (1/2) = ", JB$
CLS
PRINT
PRINT
HN = 0: HL = 0: HM = 0
COLOR (9)
IF jn$ = "1" THEN HN = 8000: PRINT TAB(30);
"Nasi Putih Rp.
8.000,-"; ELSE
IF jn$ =
"2" THEN HN = 6000: PRINT TAB(30); "Nasi Goreng Rp. 6.000,-"; ELSE
IF jn$ =
"3" THEN HN = 6000: PRINT TAB(30); "Nasi Gurih Rp 4.000,-"; ELSE
IF jl$ =
"1" THEN HL = 3500: PRINT TAB(30); "Ayam Penyet Rp. 3.500,-"; ELSE
IF jl$ =
"2" THEN HL = 2000: PRINT TAB(30); "Telur Dadar Rp. 2.000,-"; ELSE
IF jl$
= "3" THEN HL = 3000: PRINT TAB(30); "Ayam Sayur Rp. 3.000,-"; ELSE
IF
jm$ = "1" THEN HM = 6000: PRINT TAB(30); "Just Alpukat Rp.
6.000,-"; ELSE
IF
jm$ = "2" THEN HM = 3000: PRINT TAB(30); "Kopi Rp. 3.000,-"; ELSE
IF jm$ = "3" THEN HM = 2000: PRINT TAB(30); "Teh
Panas Rp. 2.000,-"; ELSE
PRINT TAB(30); "-----------------------+"
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
COLOR (9)
BAYAR = HN + HL + HM
PRINT TAB(38); "TOTAL ="; BAYAR
PRINT
COLOR (7)
PRINT TAB(38); "--------------------"
COLOR (2)
IF jn$ = "1" THEN PRINT TAB(38); "Pakai
Nasi Putih" ELSE
IF jn$ =
"2" THEN PRINT TAB(38); "Pakai Nasi Goreng" ELSE
IF jn$ = "3" THEN PRINT TAB(38);
"Pakai Nasi Gurih" ELSE
COLOR (9)
IF jl$ =
"1" THEN PRINT TAB(38); "dengan Ayam Penyet" ELSE
IF jl$ =
"2" THEN PRINT TAB(38); "dengan Telur Dadar" ELSE
IF jl$
= "3" THEN PRINT TAB(38); "dengan Ayam Sayur" ELSE
COLOR (11)
IF
jm$ = "1" THEN PRINT TAB(38); "Minumannya Just Alpukat"
ELSE
IF jm$ = "2" THEN PRINT TAB(38); "Minumannya Kopi"
ELSE
IF jm$ = "3" THEN PRINT TAB(38); "Minumannya Teh
Panas" ELSE
COLOR (13)
PRINT TAB(30); "----------------------------"
IF JB$ = "1" THEN PRINT TAB(30); "Pembayaran
-->>> Kredit" ELSE
IF JB$ = "2" THEN PRINT TAB(30); "Pembayaran -->>>
Cast" ELSE
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
'ENDIF
PRINT TAB(30); "----------------------------"
PRINT
COLOR (7)
PRINT TAB(44); "Ttd,"
PRINT TAB(39); "Pimpinan ResTu"
COLOR (6)
PRINT TAB(40); "=||||||||||="
COLOR (7)
PRINT TAB(41); "Teuku Iwan"
Tampilan
Input
Tampilan Hasil Input
