blob: 2823033018023906605336152cc9ea951304d854 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
subroutine outstr (str)
integer str (100)
integer c
integer i, j
i = 1
23000 if (.not.(str (i) .ne. -2))goto 23002
c = str (i)
if (.not.(c .ne. 39 .and. c .ne. 34))goto 23003
call outch (c)
goto 23004
23003 continue
i = i + 1
j = i
23005 if (.not.(str (j) .ne. c))goto 23007
23006 j = j + 1
goto 23005
23007 continue
call outnum (j - i)
call outch (72)
23008 if (.not.(i .lt. j))goto 23010
call outch (str (i))
23009 i = i + 1
goto 23008
23010 continue
23004 continue
23001 i = i + 1
goto 23000
23002 continue
return
end
|
