RETurn

Syntax RETurn [expression]
Location QL ROM

This command has two actual uses. The main use of RETurn is to force an early return from a PROCedure or FuNction definition block. A FuNction must always return a value and therefore a SuperBASIC DEFine FuNction block must always contain a RETurn statement to return this value.

The second use of RETurn is to mark the end of a sub-routine which has been called with GO SUB. This is implemented in SuperBASIC to make the transition from other implementations of BASIC easier.

Examples

A PROCedure to report an error more safely than REPORT:

100 DEFine PROCedure REPORT_ERROR(errnumber)
110 IF errnumber>=0 OR errnumber<-21
120   PRINT #0,'No error'
130   RETurn
140 END IF
150 REPORT errnumber
160 END DEFine

A FuNction which returns 1 (true) if a given number is even:

100 DEFine FuNction CK_EVEN (x)
110   IF x/2=INT(x/2):RETurn 1
120   RETurn 0
130 END DEFine

CROSS-REFERENCE

See DEFine PROCedure and DEFine FuNction. Please also refer to GO SUB.