Turbo basic nilai mahasiswa

5 cls
10 input"masukan nama mahasiswa=",nama
20 input"masukan nilai mahasiswa=",nilai
30 if nilai >=85 and nilai <=100 then
       gosub 100: goto 700
   elseif nilai >=70 and nilai < 85 then
       gosub 200: goto 700
   elseif nilai >=55 and nilai < 70 then
       gosub 300: goto 700
   elseif nilai >=30 and nilai < 55 then
       gosub 400: goto 700
   elseif nilai >=0 and nilai < 30 then
       gosub 500: goto 700
       else
       gosub 600 : goto 700
 end if


100 print"nama mahasiswa=";nama$
110 print"nilai=A"
120 print"predikat= sangat baik"
130 return


200 print"nama mahasiswa=";nama$
210 print"nilai=B"
220 print"predikat= baik"
230 return


300 print"nama mahasiswa=";nama$
310 print"nilai=C"
320 print"predikat=cukup"
330 return


400 print"nama mahasiswa=";nama$
410 print"nilai=D"
420 print"predikat=kurang"
430 return


500 print"nama mahasiswa=";nama$
510 print"nilai=E
520 print"predikat=buruk"
530 return


600 print"input salah"
610 return


700 input"input lagi ?(Y/N)",pil$
710 if pil$="Y"or pil$="y" then
     goto 5
    elseif pil$= "N" or pil$="n" then
    end
    else
    cls
    goto 700
    end if