Sign in
gem5
/
public
/
gem5
/
ebbfe1d2812486d743f1cc5a4b8d823d63f7a9b2
/
.
/
ext
/
ply
/
example
/
BASIC
/
gosub.bas
blob: 99737b16f15967dcb8169e520571c88cd6ead4b7 [
file
] [
log
] [
blame
]
100
LET X
=
3
110
GOSUB
400
120
PRINT U
,
V
,
W
200
LET X
=
5
210
GOSUB
400
220
LET Z
=
U
+
2
*
V
+
3
*
W
230
PRINT Z
240
GOTO
999
400
LET U
=
X
*
X
410
LET V
=
X
*
X
*
X
420
LET W
=
X
*
X
*
X
*
X
+
X
*
X
*
X
+
X
*
X
+
X
430
RETURN
999
END