25 lines
479 B
Text
25 lines
479 B
Text
BOL
|
|
#11 = EOL_Pos-Cur_Pos
|
|
#12 = EOL_Pos-1
|
|
Line(1)
|
|
#21 = EOL_Pos-Cur_Pos
|
|
#22 = EOL_Pos-1
|
|
EOL Ins_Newline
|
|
Ins_Char('0', COUNT, #11+#21)
|
|
#32 = Cur_Pos-1
|
|
|
|
for (#2 = 0; #2 < #21; #2++) {
|
|
Goto_Pos(#22-#2) #5 = Cur_Char - '0'
|
|
for (#1 = 0; #1 < #11; #1++) {
|
|
Goto_Pos(#12-#1) #6 = Cur_Char - '0'
|
|
#7 = #5 * #6
|
|
#3 = #1 + #2
|
|
while (#7 > 0) {
|
|
Goto_Pos(#32-#3)
|
|
#7 += Cur_Char - '0'
|
|
Ins_Char(#7%10 + '0', OVERWRITE)
|
|
#3++
|
|
#7 = #7/10
|
|
}
|
|
}
|
|
}
|