Contoh Program Menggunakan SubRutin

SubRutin adalah program kecil yang melakukan tugas terterntu dan termasuk dalam bagian dari program secara keseluruhan.

Rumus:
[NamaLabel] :
statment 1

statment 2
...
RETURN

Contoh Program:

1 CLS
PRINT "Menghitung Luas Bidang Datar"
PRINT "1. Lingkaran"
PRINT "2. Persegi Panjang"
PRINT "3. Segitiga"
PRINT "4. Selesai"
INPUT "1 - 4 ?"; pil$
SELECT CASE pil$
    CASE "1"
        phi = 3.14
        INPUT "Jari - jari = "; jj
        GOSUB ll
    CASE "2"
        GOSUB pp
    CASE "3"
        GOSUB ss
    CASE "4"
        GOTO 100
END SELECT
PRINT "Hasil = "; hasil
INPUT "Mengulang (Y/T) "; yt$
IF yt$ = "y" OR yt$ = "Y" THEN GOTO 1
100 END

ll:
phi = 3.14
INPUT "Jari - jari = "; jj
hasil = phi * jj ^ 2
RETURN

pp:
INPUT "Panjang = "; p
INPUT "Lebar = "; l
hasil = p * l
RETURN

ss:
INPUT "Tinggi = "; t
INPUT "Alas = "; a
hasil = a * t / 2
RETURN