mirror of
https://github.com/RetroShare/RetroShare.git
synced 2024-10-01 02:35:48 -04:00
3be22536df
git-svn-id: http://svn.code.sf.net/p/retroshare/code/branches/v0.5-gxs-b1@5953 b45a01b8-16f6-495d-af2f-9b41ad6348cc
9 lines
165 B
QBasic
9 lines
165 B
QBasic
100 let n=100000
|
|
120 let m=0
|
|
110 let s=0
|
|
130 let m=m+1
|
|
140 let s=s+m
|
|
150 if m<n then goto 130
|
|
160 print "interpreted ", n*3, " lines of code; answer is ", s
|
|
170 end
|