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.
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