mirror of
https://github.com/RetroShare/RetroShare.git
synced 2024-12-26 07:59:35 -05:00
3be22536df
git-svn-id: http://svn.code.sf.net/p/retroshare/code/branches/v0.5-gxs-b1@5953 b45a01b8-16f6-495d-af2f-9b41ad6348cc
13 lines
163 B
QBasic
13 lines
163 B
QBasic
10 let i=1
|
|
20 gosub 100
|
|
30 let i=i+1
|
|
40 if i<=10 then goto 20
|
|
50 end
|
|
|
|
100 let j=1
|
|
110 print " ", i*j,
|
|
120 let j=j+1
|
|
130 if j<=i then goto 110
|
|
140 print
|
|
150 return
|