GOSUB *Label GOSUB *Label arg1 arg2 ..
10 GOSUB *CAL 300 40020 _VAR RES30 PR RES40 END50 *CAL60 _VAR V_ W_70 RETURN SQR(SQ(W_)+SQ(V_))RUN*Compiling---------------------500#