mirror of
https://github.com/RetroShare/RetroShare.git
synced 2024-10-01 02:35:48 -04:00
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
|