beautiful-racket/beautiful-racket-demo/basic-demo-nth/gosub.bas

#lang basic-demo-nth
10 GOSUB 50
15 PRINT "2 of 3"
17 GOSUB 30
20 END
30 PRINT "3 of 3"
40 RETURN
50 PRINT "1 of 3"
55 RETURN
update 7 years ago			`#lang basic-demo-nth`
implement gosub 8 years ago			`10 GOSUB 50`
make gosub a continuation 8 years ago			`15 PRINT "2 of 3"`
implement gosub 8 years ago			`17 GOSUB 30`
			`20 END`
make gosub a continuation 8 years ago			`30 PRINT "3 of 3"`
implement gosub 8 years ago			`40 RETURN`
make gosub a continuation 8 years ago			`50 PRINT "1 of 3"`
implement gosub 8 years ago			`55 RETURN`