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