Anonymous user
Multiplication tables: Difference between revisions
→{{header|DCL}}
Line 966:
=={{header|DCL}}==
<lang DCL>$ max = 12
$ h = f$fao( "
$ r = 0
$ loop1:
Line 972:
$ c = 0
$ loop2:
$ if r .eq. 0 then $ h = h + f$fao( "!
$ p = r * c
$
$ then
$ else
$ o = o + f$fao( "!4* " )
$ endif
$ c = c + 1
$ if c .le. max then $ goto loop2
Line 980 ⟶ 985:
$ then
$ write sys$output h
$ n =
$ write sys$output f$fao( "!''n*-" )
$ endif
▲$ write sys$output f$fao( "!3SL", r ) + o
$ write sys$output f$fao( "!4SL", r ) + o
$ r = r + 1
$ if r .le. max then $ goto loop1</lang>
| |||