Sign in
gem5
/
public
/
gem5
/
0770c80fb9b07b461cb9c483018dda52bb611284
/
.
/
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