乘方.txt

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

10 remcalculate the squares of several integers
20 input j
23 rem
25 rem test for sentinel value
30 if j == -9999 goto 99
35 rem calculate square of j and assign result to k
40 let k = j ^ J
50 print k
53 rem 
55 rem loop to get next j
60 GOTO 20
99 end