[SAMPLE7] SAMPLE
10 REM SMAPLE7
100 *START
110 INPUT "底辺: 0=END ";TEIHEN
115 IF TEIHEN = 0. THEN 900
120 INPUT "高さ:";TAKASA
130 GOSUB *MENSEKI
140 PRINT "面積は";MENSEKI
150 PRINT
160 GOTO *START
170 *MENSEKI
180 MENSEKI = TEIHEN * TAKASA /2
190 RETURN
900 END
170は三角形の面積を計算するサブルーチン。
190 サブルーチンの最後はRETURNで終わる。