10 REM PROGRAM PENGHITUNGAN GRAND MASTER
20 LET N = 0
30 LET N = N + 1
40 PRINT "APAKAH HASIL AKHIR RONDE KE", N, "[Y/N/D] ?"
50 INPUT S$
60 IF S$ = "Y" THEN SCORE = 1
70 IF S$ = "N" THEN SCORE = 0 ELSE SCORE = 1 / 2
80 LET T = T + SCORE
85 PRINT T
90 IF N = 24 THEN 100 ELSE GOTO 30
100 LET PRESTASI = (T / N) * 100
110 IF PRESTASI >= 75 THEN PRINT "GRAND MASTER"
120 IF PRESTASI >= 50 THEN PRINT "MASTER" ELSE PRINT "NO TITLE"
130 END