Thank you for your comment

Beau­tiful Racket / tuto­rials

Go with the flow: basic

But does it work? Let’s start with the all-time BASIC favorite:

#lang basic
10 print "HELLO WORLD!"
20 goto 10
1
2
3
#lang basic
10 print "HELLO WORLD!"
20 goto 10
copy to clipboard
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
···
1
2
3
4
5
6
7
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
HELLO WORLD!
···
copy to clipboard

Let’s also try our orig­inal sample program, which was designed to cause extra grief for the tokenizer and the parser:

#lang basic
30 rem print 'ignored'
35
50 print "never gets here"
40 end
60 print 'three' : print 1.0 + 3
70 goto 11. + 18.5 + .5 rem ignored
10 print "o" ; "n" ; "e"
20 print : goto 60.0 : end
1
2
3
4
5
6
7
8
9
#lang basic
30 rem print 'ignored'
35
50 print "never gets here"
40 end
60 print 'three' : print 1.0 + 3
70 goto 11. + 18.5 + .5 rem ignored
10 print "o" ; "n" ; "e"
20 print : goto 60.0 : end
copy to clipboard
one

three
4
1
2
3
4
one

three
4
copy to clipboard

Let’s also see how our source loca­tions worked out. Suppose we change line number 50 to be 30:

#lang basic
30 rem print 'ignored'
35
30 print "never gets here"
40 end
60 print 'three' : print 1.0 + 3
70 goto 11. + 18.5 + .5
10 print "o" ; "n" ; "e"
20 print : goto 60.0 : end
1
2
3
4
5
6
7
8
9
#lang basic
30 rem print 'ignored'
35
30 print "never gets here"
40 end
60 print 'three' : print 1.0 + 3
70 goto 11. + 18.5 + .5
10 print "o" ; "n" ; "e"
20 print : goto 60.0 : end
copy to clipboard

DrRacket will raise the error we’d expect it to when it finds conflicting defi­n­i­tions, and the offending line is high­lighted correctly:

Let’s switch it back, and see what happens if we intro­duce a bogus line number in the last goto:

#lang basic
30 rem print 'ignored'
35
50 print "never gets here"
40 end
60 print 'three' : print 1.0 + 3
70 goto 11. + 18.5 + .5
10 print "o" ; "n" ; "e"
20 print : goto 6000.0 : end
1
2
3
4
5
6
7
8
9
#lang basic
30 rem print 'ignored'
35
50 print "never gets here"
40 end
60 print 'three' : print 1.0 + 3
70 goto 11. + 18.5 + .5
10 print "o" ; "n" ; "e"
20 print : goto 6000.0 : end
copy to clipboard
error in line 20: line 6000 not found
1
error in line 20: line 6000 not found
copy to clipboard

A side effect of making our lines into func­tions is that they’re avail­able in the DrRacket REPL like any other func­tion. For instance:

(line-10)
one
(line-60)
three
4
(line-70)
uncaught exception: #<change-line-signal>
1
2
3
4
5
6
7
> (line-10)
one
> (line-60)
three
4
> (line-70)
uncaught exception: #<change-line-signal>
copy to clipboard

This last result makes sense: we’re trying to execute a goto outside the context of the program loop.

← prev next →