函式子程式

子程式GOSUB
例：求4！+5！+6！　
S=0　
n=4: gosub f：s=s+p　
n=5: gosub f：s=s+p　
n=6: gosub f：s=s+p　
print “4!+5!+6!=”;s　
end　
f: p=1　
for i=1 to n　
p=p*i　
next i　
return

子程式調用:
ON　 gosub ,,…,　
例6：“小學生算術練習”——輪流出一個二位數和一個一位數的加法、減法和乘法的題目，共出十題，每題 10分。

randomize　
for i=1 to 10　
a=int(90*RND)+10　
b=int(9*RND)+1　
p=i mod 3 + 1　
ON p GOSOB a1,a2,a3　
Next i　
Print "n=";n*10　
END
a1: print a;"+";b;"=";
input c　
if c=a+b then n=n+1　
return　
a2: print a;"-";b;"=";
input c
If c=a-b then n=n+1　
Return
a3: print a;"*";b;"="　
Input c　
If c=a*b then n=n+1　
Return.

說明

值不是整數時，按四捨五入處理,值為0或大於n則不起作用,值為負時系統給出錯誤信息——“不正確的函式調用”。