b41eec3f65
git-svn-id: https://www4.informatik.uni-erlangen.de/i4svn/danceos/trunk/devel/fail@1819 8c4709b5-6ec9-48aa-a5cd-a96041d1645a
14 lines
216 B
QBasic
14 lines
216 B
QBasic
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
|