b41eec3f65
git-svn-id: https://www4.informatik.uni-erlangen.de/i4svn/danceos/trunk/devel/fail@1819 8c4709b5-6ec9-48aa-a5cd-a96041d1645a
6 lines
78 B
QBasic
6 lines
78 B
QBasic
10 LET X = 0
|
|
20 LET X = X + 1
|
|
30 PRINT X, SQR(X)
|
|
40 IF X < 100 THEN 20
|
|
50 END
|