累加.txt

来自「简易却实用的编译器」· 文本 代码 · 共 14 行

5 rem sum 1 to x
10 input x
15 rem check y == x
20 if y == x goto 60
25 rem increment y
30 let y = y + 1
35 rem add y to total
40 let T = t + y
45 rem loop y6
50 goto 20 
55 rem output result
60 print T
99 END