blob: 90d5e636523bf523096bd7ff4a6b9730f2b7b905 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#-h- outcon 332 local 12/01/80 15:54:31
# outcon - output "n continue"
include defs
subroutine outcon (n)
integer n
include COMMON_BLOCKS
string contin "continue"
xfer = NO
if (n <= 0 & outp == 0)
return # don't need unlabeled continues
if (n > 0)
call outnum (n)
call outtab
call outstr (contin)
call outdon
return
end
|
