BBC-Basic-Rust-Interpreter/test_proc_nested.bas at main · agileandy/BBC-Basic-Rust-Interpreter · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
10 REM Test nested PROC calls
20 X = 1
30 PROC outer
40 PRINT "Back in main, X ="; X
50 END
100 DEF PROC outer
110 X = 10
120 PRINT "In outer, X ="; X
130 PROC inner
140 PRINT "Back in outer, X ="; X
150 ENDPROC
200 DEF PROC inner
210 X = 100
220 PRINT "In inner, X ="; X
230 ENDPROC