Program Sederhana Pembayaran / Penagihan Rekening Listrik

Sebagai mana sebelum nya saya juga buat program sederhana untuk melatih logika kita dengan menggunakan bahasa pemprograman Turbo Basic, saya buat program-program sederhana ini karena ada nya permintaan dari adik-adik dsekolah, di bawah ini akan saya tambahkan program sederhana lagi yaitu program pembayaran / tagihan rekening listrik.
Program ini terdiri dari :

cls
nu=0
locate 10,5:input" Masukan haraga per meter biaya listrik saat ini : Rp. ",hp
10 mulai :
cls

locate 1,15:print"....>>> SELAMAT DATANG  DI ALTCOMMS <<<...."
locate 6,3:print"Program :  PEMBAYARAN LISTRIK "
locate 7,3:print string$(64,chr$(205))
locate 8,5:print chr$(201)
locate 8,6:print string$(64,chr$(205))
locate 8,70:print chr$(187)
for i = 9 to 17
    locate i,5:print chr$(186)
    locate i,70:print chr$(186)
next i
locate 17,5:print chr$(200)
locate 17,6:print string$(64,chr$(205))
locate 17,70:print chr$(188)

color 7.1
nu=nu+1
locate 9,50:print"No. Urut :";nu
Locate 9,7:print "No. Pelanggan :"
locate 11,7:print"N a m a    :"
locate 12,7:print"Alamat     :"
locate 14,7:print"Nilai meter lama :"
locate 14,35:print "Nilai meter sekarang :"
locate 16,7:print "Total tagihan : Rp."
locate 9,22:input "",np$
locate 11,22:input"",nm$
locate 12,22:input"",al$
locate 14,25:input"",ml
15 ulangms:
locate 14,57:input"",ms
if ms   locate 19,18:input"anda salah memasukan data ,tekan Enter untuk lanjut";e$
   locate 19,18:print"                                                       "
   locate 14,57:print"        "
   goto 15
end if


gosub 26
locate 16,25:print"";tt
sound 5,0
20 ulang:
locate 19,18:print ".. Apkah anda ingin memasukan data lagi ? ( Y/T )"
locate 19,67:input"",yt$
if yt$="Y" or yt$="y" then goto 10
if yt$="T" or yt$="t" then goto 25
if yt$<>"Y" or yt$<>"y" then goto 20
if yt$<>"T" or yt$<>"y" then goto 20
25 selesai:
locate 24,15:print ".....Sampai jumpa lagi di lain waktu ...Salam AltComms"
PRINT"oleh usman yb"
end
26 hitung:
tt=(ms-ml)*hp
return