Program Daftar Pembelian Roti

Disini saya mendapat tugas dari Dosen saya disuruh buat flowchart tentang daftar pembelian roti dan program basicnya.
Soal :
Sebuah perusahaan Roti ingin memberi keringanan kepada pembeli roti.
filenya berisi sebagai berikut:
Nama,Kode Pembeli,Banyak Roti
Data tersebut akan diproses dengan ketentuan, jika kode pembeli = 1, berarti pembeli "LANGGANAN", dan jika kode pembeli = 2, berarti pembeli "BIASA
untuk pembeli langganan yang membeli roti lebih dari 10 mendapat potongan dari total pembelian sebesar 10%, jika 10 atau kurang tidak mendapat potongan
untuk pembeli biasa yang membeli roti lebih dari 10 mendapat potongan dari total pembelian sebesar 5%, jika 10 atau kurang tidak mendapat potongan
Buatlah flowchart dan program Basic dan outputnya!

Sekarang kita buat flowchartnya kira-kira seperti ini :

Dan sekarang kita buat program basicnya

CLS

10 PRINT TAB(20); "DAFTAR PEMBELI ROTI"

11 PRINT "__________________________________________________________________"

12 PRINT TAB(2); "NO"; TAB(5); "NAMA"; TAB(18); "KET.PEMBELI"; TAB(40); "BANYAKNYA ROTI"; TAB(60); "BAYAR"

14 PRINT "__________________________________________________________________"

20 NO = 0: R = 4000: D = 0: TB = 0

30 READ NAMA$, KP, BR

40 NO = NO + 1

50 IF NO = 11 THEN GOTO 2000

65 T = BR * R

70 IF KP = 1 THEN KET$ = "LANGGANAN" ELSE GOTO 90

85 IF BR > 10 THEN GOTO 96

90 IF KP = 2 THEN KET$ = " BIASA"

91 IF BR > 10 THEN GOTO 97

96 D = 10 / 100 * T: GOTO 99

97 D = 5 / 100 * T: GOTO 99

99 BY = T - D

100 TB = TB + BY

110 PRINT TAB(1); NO; TAB(5); NAMA$; TAB(18); KET$; TAB(40); BR; TAB(60); BY

130 GOTO 30

2000 PRINT TAB(2); "_________________________________________________________________"

2010 PRINT TAB(2); "TOTAL BAYAR"; TAB(60); TB

2100 END

2200 DATA GESDI,1,10,LINA,2,15,CANTIK,1,5,DONI,2,4,EDWIN,1,10,FARIS,2,10,GEMUK,1,6,HARIS,2,15,IAN,1,10,JULIANDI,2,20,KASIR,1,15

untuk file BAS nya bisa di download disini

kemudian outputnya seperti ini :