Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0012/chartr.exe
There is 1 other file named chartr.exe in the archive. Click here to see a list.
?p00`00?hX6?x " 
 
<++32	`~ZP( )062K2)((MAIN      BLOCK DATAA    B    C    D    E    F    G    H    I    J    K    L    M    N    O    P    Q    R    S    T    U    V    W    X    Y    Z    1    2    3    4    5    6    7    8    9    0         -    +    /    =    ,    $    .    '    (    *    )    ^    <    >    ZZZZZ

(2X,'INPUT FILE MUST HAVE A .DAT EXTENSION'/' INPUT FILE NAME (5 CHARS)='$)(A5)(' OUTPUT FILE NAME (5 CHARS)='$)(I7,I2,I3,I3,/(72A1))(I7)(/' NO STATEMENT NUMBERS USED')(72A1,8X)(1H-,5X,10HEND OF JOB)(45H1MORE THAN 19 CONTINUATION CARDS IN STATEMENT)(27H PROGRAM SKIPS TO NEXT DECK)(40H1PARENTHESES DO NOT MATE IN IF STATEMENT)(1H1,52X,10H(ENTRANCE))(1H1//40X,43H LIST OF STATEMENT NUMBERS USED IN PROGRAM ,A10//)(/6X,20I6)(6X,20I6)(' OUTPUT SCRATCH FILE ON DSK:FOR20.DAT'/16H BEGIN EXECUTION///)(23H FLOW-CHARTING PROGRAM ,A10/)(1X,72A1)(1H1,45X,'PROGRAM LISTING'//){@{p~`A//
PPX     $+ -<&% < ,, < ,, < 
, < 
 < ,&a < ,, < , < ,
 < ,&d@dg < ,%2"g0D+F <^,' < , < , < ,
 < ,@da D) & F%Of_Oho!( H+ D& 2@fH*dO $ D$6 o+T < ,,@do@d D% .3D+` 5ZDm"m.& Fb .2H#+\*dW+` <,#O @%:a @/ <},$ @ $ D&"&
 $ Fe D'$$$ $. D- <{,# . .3F#+i & . H
":&*df<z,%2"g0D+m<^,'<13D#+2Dg+z <^,' $ Db .ZDm m .3F#+
6bb0b++444	4v m .2F+v & Fb+
 m .2F+v & Fb+
 m .2F+v & Fb*d{+C & + F
" R2D+( $ D$ < (, < +,
"' $ Fd Db ._DcZDm $$$b.m < .,
:m; c+:b; d+, < /,"$ $ Fc Dm m < 2,
:m; c+, R2D:% $0D+P < 4, < 7,
+\6 _+],`@d_ &1$+6 
"2D+@ 
#2D+] 
#2D+] 
$2D+] 
'2D+] <x,$;`+] &0D+] 
"2D+] 
#2D+] 
#2D+] 
$2D+] 
$2D+]-`+] $ Db"& $ Dm6bb0b+G+D4G4K4N4R4U m 
"2D+\ $ Db+\ m 
"2D+] $ Db+\ m 
"2D+] $ Db+\ m 
"2D+] $ Db+\ m 
"2H+] 
#2H+] (
$ H- <w,$;`+]:m8&C  &0F+i 
"2F+i 
#2F+i 
#2F+i 
$2F+i 
$2F+i 
%2F+i $ D$+ &0D+q 
"2D+q 
#2D+q 
#2D+q 
$3D+h &0D+x 
"2D+x 
#2D+x 
#2D+x $ D$+ 
"2D+ 
#2D+ <v,#:4`@da Db Dh Dg &/& $ Dm m 
!2D%+6Da+ $ Da+
!2D&+
 b0$+:b+
!3H(+ 
!3H)+:m8& $ D$@d( 4ZDm m &
" F- <u,#: @b4  &$(.b F(*d+ $ D$ <t,$ @+  
"2F+5 
#2F+5 
#2F+5 
$2F+5 &/& $ Dm m 
"3D(+3:m8&# <s,#:4 5@d( $ D$ 4ZDm m &
" F- <r,#: @b5 0 m 
"3F+++5 &$(.b F(*d)+5 <q,"/ $ D$+ 
"2D+ 
#2D+ 
#2D(+ $ D' &/& $ Dm m 
"3H(:' 
"3H)>'7H'+F:m8&= < 8,, < ;,,+v m  
"2H+Y 
#2H+Y 
#2H+Y 
$2H+Y.$ Db"&/&.b b Dm m 
"3D(+V:m8&P b $
" D- <p,#:4  $ D$ <o,"/+ m $
" D- <n,#:4 +3 < >, ._DiZDm"' $ ($$.m 
5 J ..$8&`:m; i+_!$ D+@d*@d*Od+ <l,#*  D$ < A,, < D, < G,
"' $ Fq Db ._DqZDm $$$b.m < J,
:m; q+p:b; q+o, < K,"$ $ Fp Dm m < N,
:m; p+y,7 *+7D+ (. &2F*++ $0D+7D+ (. &3F*+@d*Od+ <^, f <^, f7D+ <k,"a 73D#+  D$ * D$ <i,#*Od+ <^, fOd* <^, f <^, f7D)+ 
2F+( D- <g,#* $ D$"$.D)+ $0D+#:)  F
( D- <e,#* )(  F $ Db D_ b._ Dj $0F1F+)+/2d$+/  Fn(.n (.%2H++1:_+% b3d'+5+= <d,"a b3d'+5 <b,#*+8 $$$b $. D- <`,# <^, f:b $/_ '3$ 2$b+% $3D$+k@f* F+ $0F1F+C0F3$_+C+DOf+ <^, f <^, f $0D+k <_,$# < P, < S,
7Da+Z0dz+S < T,"a $ Fp Dm m < W,
:m; p+O,+F < Y,"a $ Fo Dm m < \,
:m; o+V,+F < ],,+F <^,
xah6	-h#31xnh'-2h'-2h731xh#/0x	-xbx	-xmx	-x
$p(/x	-x
#x	-x
'xgxgh6.	-p%%p.bxgp\np]hXXrX~y$hXzX~y(n`]h]$$`]X\*X\X\
X]}$%$$$'$$(.X]$X&0`X\X\
`]X\X]}$%$$$'$$(.X]$X\0`X\$/X\$/X\(1H1)A/aJv@ \ c!$ D ` <!,!d )(.$ D c <!,#*6 *+ n <!
,!d <!,, <!
,!d $ D*  c,~p dp dh( e eh# c dp dX\ b(1H*,130A1)	    @     _W  \!a !p @! p @! <" ,'p $A D!X@d!_ !&$  D!^4D!x"!^/& $A !].   H![6J!_+!r2H!c3H!a+!wOj!_ ![2H!a+!u !c H![ !X 
![!J3!"(.H!X/$8&!m !/!^ D!]"!].&7 .&(~/& !] F!Z D!@d!Y2D!+" & F!Y !c !].!/&  F!["!Y1H+"
7H!_+" !Y1H+" ( H!Y !a H![+"Of!YOh!_ ![2F!a+" !c F![ !X ![ H!"&.F!X*d""$.d!; !Z+!~ !X1DA+" <"#,.$ D!\ !\/&A !\ F!Y D!^ !^ <"&,
:!^; !Y+", !a,~P!b!^!!]!b!X\!_$!PO?@ \"+ p @"( @") $ D$ ".ZD"( "(.") F"* 
"3H&+"< 
"3H)+"< 
"3H++"< "( 

" J O*d"3 <"R,#q"$."( D", <"O,#O @", <"P,$ @"+ $ D"* "*2d$+"F 3F"++"J:"*+"B:$1d+"H <"N,#q $ "+ F "* D") 
"3F&+"2"+,~x".pP",p","-x"-B#"COw\"^p @"U "U(."U7D*+# "`ZD"^ "^ H3F"U+"q*d"f "U(."U *3D%+# "`ZD"S "S "V F"^7HH+"u*d"l <#,#q "U(."U *2D%+"w "^@fH+"z "^ "U FH+"z "U(."U +2D%+#7 *+"} "` D"V+"~ ' D"V "^( "V F8 "^ ) FT(  F9+# "U(."U +3d%+# "^(  F9 "U(."U +2$%+#
.
# 
/ J'.$8&#!,~e@ \#( p @#& p B#' p D#' @/#' D#( $ D#) $ D#) <#4,# #(,~h#(#)#)8]Vh F#8 D#8 p @#7"& $ F#7 D#6 D#6 3F#7+#E:#6; #7+#>Od#6 #7 #3F+#E #3F@d#6 #8 #8 #6,~]Vl \#K H#M F#L D#L !p @#J p @#H@d#K"#H $ D#J $.#H/#J D#H.#J 2H#+#Z:#J8&#U+#a"#H $ .#J (' H#M <#e,#: ($#K. H#K.$8&#[ #K #L #L #M #K,~x	#M(46H1STATEMENT NUMBER TOO LARGE IN GO TO STATEMENT)(34H1T00 MANY EXITS IN GO TO STATEMENT)KK|@ \#p p @#f6b#f0b+#v+#t4#v4#x <#{,,+#y <#~,, #p,~X\#gX\#lSJ,j7 F$ D$ p @$ p @$7D&+$"& $ D$ $(.$ *3D$+$:$8&$:&(.& $ F* &(.&@f* & D$7d$+$ $(.$ % F++$ $(.$ % F* $ D$+$ $ $ $,~g?@ p @$0@1@+$2+$'+$2"$ $ F$! D$""$".$ F$!"$! $ /3f0+$/ / F$  
0 J/ F0.$8($+:$"; $!+$),~@@PqSz H$6 F$6 D$5 !p @$4,$3"& $ F$4 D$5.$4 3F++$d7f+$F 3&#+$d 2f"+$d6b$50b+$K+$H4$K4$N4$S4$X4$]4$a $46f+$d  F$3+$c $47&.&?(|A$8 $3A$9G D$3+$c $47&.&?(yA$7 $3A$8G D$3+$c $4 &$9A& $3D$G D$3+$c $4 &$7A& $3D$G D$3+$c $4  D$3:$5; $4+$@ $5 $6 $6$3,~(1X,'INPUT READ ERROR - JOB ABORTED')(72A1,8X)(1H1,5X,'END OF JOB')(//5X,'END OF JOB')(1X,'NO END STATEMENT IN FILE,FLOW CHARTING TERMINATED'){H{h{@	    9    C    
    PX     $1    
    O&)1 \%) p @$n %1 D$o %. D$j %. D$m %+ D$n %+ %0 F.*d%8 <&, <&,
 %+ZD% % .3H$n+%@ .2H%0+%A*d%<+%8 $$$' $. D%) <&,!d %* .2F$n+%G %0 F.*d%E .2D%-+%M %+ .2F$n+%L %0 F.*d%J %/ZD% % .3F$n+%S*d%M+% <&	,, <&,' %/ %0 F$p*d%T % .3&%1+%Y .3f%-+%j & F$k0D+%` %* $k . H$p:$k*d%[ %+ $p F.*d%^+% &/% $ . H$p.$8&%b $.% D% %/&$ % $k 
. J $p:$k.$8&%g+%^ $ D$k %0D+%`+%[ $1D+%u6D'+%q!$ D'+% <&
,, <&,,+%u+% <&,, <&,, <&, <&, <&, <& , <&",
 <&#,Od$n %) $n Ap,~p	%)%0X]%m%Q%@$.X%X\%#X%#X\%X%!`\`]`]h]$$`]	`Z(X^. >X.~(3~+&*	~+&5Z. \x <x*<x .ez+&1!"	b+  "&2	b+Z`.Z. h+ggM?}
&&7	b+&%,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*&Y**,^,~*x,> <&Y*<&[  pZ@&O`|+&CPw,~ "p h a`~+&Ih  ``~+&J$'!&Kd'/"+&DP,~@@@ @@0@x@@@`edX91,>'},&>!"QB&O <&O,+&<SMI 1,>'},&> '+&f_MI 1,>'},&> ' B&O pd"~l"
 B&P!"GB&O+&{I5R1,>'},&> & ' B&O*\&z pd"~l" B&P*\&z p.&d"~l"$ B&P*\&z p.&d"~l"
 B&Q*\&z.&Sp*\&zXp B&X@@&X ' B&Q(FQF&O <&O,+&<EV4i91,>'} "&}+'S,i@1,>'} "&+'_,i@1,>'} "'+'K>21,>'} "'+'K>401,>'} "'+'[<I71,>'} "'	
&' @)@. 
"5B'
&',~.
.4SEQIN^'SEQOUT^'RANDOM^'&X
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>'}O@'Z+'!gR~@1,>'}@@'Z,>,>@6 w+'-"'[0B+')!"A`X#p5@'&/#p!"X#p+'-\p+'-a.9'1,>'},>,>O@'Z+'-,>
6+ _4`'6"`Q@,> <'\,,^,> <'_,
,^*b'3+'@,> <'`,,^7@'Z+';,> <'c,
,^+'=,> <'e,
,^Z5"'@,> <'f,
,^,7@'Z,
,> <'h,,^,,> <'k,,^,> <'n,
,^(@qd1@,,
1@#+'O0@*+'A,> <'o,,^+'A,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX'Wp X'Xp 'Yp 'Zp X'QX~'Vp xCR@1,>'},>,> p  p  Ep<b'y $Ep$ E. .&+'u".!p Ap $Ep,^,^,~'}Y\'Q<X\'*+6(6`(S	YVBG9'G9'
GJ'}GK/K'}UexhUc*4ZYYXX<:'
Y]@'Z
Y?'!
\!'3{-^'-{-X'){-O';{-N'O{-N'@{-M'={-M'6VBSo&BTE)|'wg&<rc&KUlrg1UlrT3UlrC<UlrBKUlr0OUlrBUlr[ZYYXpX.&IpX.&DpX-&JpX-&C9g&>pWb&Y
&u^
"r:^`&{l5m&fA*&d:
('
8@#x'
lJ&ae,('S	YVBDf'Da'
_
G&jcl`&z
8v:&}Lc't(B&O)4zp&<\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"&7
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz&%)	h04%)-%^
%:JU%c&Ji%w&%GG&")A%L[&#?Y%j&5%@&I%8&]%83&G%!%S[%4E%Ao%8&&-5%u+%<]%T?%=%MS%@2I%b
_&2]%h
s%E	qG%dE\za$/OR'\&	%w04%%]t$pPH$pPI$o&Ac&SOF$y($o&K"$n%oG$nz $mP4$mP5$lP5$l'[F'$kP6$kxr$jP6$jP7$iP7$i0K%)P8$h%p0%\]$h}
@'Ot.
$gdD](Tm2%2(Tm2s %25$KI$N]$Sq$X$]$a-$cG$d[$=o$@$@$F+$d?$HS$M	qG$5za$/ORy'\&	$5&Ac&+vGSOF$e"&2c
&&*P4$4zs''[F',*%p0%{++]h,Ph~s$3Ot.$*$405$506$6&2d)06$6/EH`#{3(
"{4(#m+-zn)ab+P+3-2+"PPh~s$;Ph~sxp$:$-
a$/G$2[$$o$'$2$(+$)?$+	qG$"	$".O$!P4$!P5$   tZ$ 
$E>09r}@$#5$I$]$q$$G$[$o$
$$	qG$za$/ORy'\&	$&Ac&+vGSOF$&2c
&&*{0$P4$zs''[F',*%p0%{++]h,Ot.05$06$&2d)/EHaM${3(
$'
"{4(#m+,zn)P+3-2+"PaM$aMz$5#vI#xJU#gJi#lG#y[#so#t#{#~	qG#gdE\	#f0K#p\]dD]	K{#q	K{}p#q	qG#fdE\za$/ORy'\&&Ac&+vGSOF$&2c
&&*zs''[F',*%p0%\]{+}
@.+]h,Ot.&2d)/EH{3(
"{4(#m+-zn)P+3-2+dD]"P~Z.{`#fh04#M5#YI#Z]#[G#a[#So#T#U#[+#e	qG#KWG#Kza$/ORy'\&	#J&Ac&+vG#JSOF$&2c
&&*P4#IP5#Izs''[F'0K#K,*%p0%#H{++]h,Ot.05#L06#L&2d)06#M/EH#nD{3(
"
#H{4(#m+,zn)P+3-2+"PWG#OWGy0#N5#@G#E[#<o#=#>#@+#E?#E	qG#8za$/ORy'\&&Ac&+vG#7SOF$&2c
&&*P4#7zs''[F',*%p0%{++]h,Ot.05#806#8&2d)/EH#nD{3(w#6
"
#6{4(#m+,zn)P+3-2+"Pw#:wz #9h05#)h05#)h04#(G#2[#.o#4	qG#(za$/ORy	#''\&&Ac&+vGSOF$&2c
&&*zs''[F'0K#(,*
#'%p0%{++]h,Ot.&2d)/EH{3(
#&'
"{4(#m+,zn)P+3-2+"P79w#*79wzp#*5#!G#%[# o#!	qG##	#P4#
##.'#.'~@#"z-#A#U#,"},"~G#["co"e"f"f+"l?"lS"m
_#
s#	qG"^du*#za$/ORyt'\&	"^&Ac&s#*+vGSOF$&2c
&&*{Q)((W"V"V{0"UxP4"UP5"Tzs'P5"T'[F'0K"^,*%p0%
"S{++]h,Ot.yC*$8z'&2d)/EHm{3(
e*#
"S'
"{4(#m+,zn)P+3-2+&2z'"P
Z@"aZ@v"ah05",h04","F"JG"L["1o"3"3"9+"8?"RS"O
_"P
s"H	qG"+%c&za$/ORy&M"+'\&	"*"*&Ac&93O++vGSOF$t})&2c
&&*P4")zs''[F'.")0K"+,*%p0%
"({++]h,Ot.&2d){)/EH{3(
"('
"{4(#m+,zn)ab+P+3-2+"P":"/":wp"/a"
"a"
"""&U!r
a!w&a!_tA"zA!x3"["o!g" !m+!r?!uS!~
_!~M"
s"	qG!_	C:!_dE\w04!^	!^w05!]w05!]!\w06!\![P4![P5!ZP5!Z=kK!YP6!Y0K!a
!X\];!+E!x!dD]!!!d!y0!dh04 c
]~ }
Ji bPa!	G!	[ go!!!
_ {
s z	qG bqdu*#dE\za$/ORy'\&	 b&Ac&+vGSOF$&2c
&&*{Q)#]3(P4 azs''[F'0K c,*%p0%
 a\]{++]h,Ot.&2d)/EH%W3({3(
e*#'
"	p3@ `{4(#m+,zn)P+dD]3-2+"P4o f4ow  f(R6h04--R
s97l;pP5CAV.?
aj' '4?W
ur;+7?kop+pJ}

tU6&W,cxzgSK?yt}GK9&E-?{#SyuK&YKM3}-={#sg NIoA}]u%N&mKaGb-3<{7){IoUu9Rh'Ku[c2:{K*PauMU)i'#o{239{r#kPu&ua\=x,%f2GB{sq7iQ,/uuZz2[C:Ke
,)1+m2oDs8sg3y!,e=? "3+h/?s)5ot,ySS %3?fC@d!%sgy3SeW 8b50{{z8?ck ;/`I3+Q {8SbMCD]5?X #|8g`KWCqAS^ 78{qJkB
_  K (9oPAF
s  _ +9#n'P_	qGrn
u1)P]qwP]qP^p!P^pl"y%Poq
ASo%c&za$/ORyB'u^#nn%i?&t*t
":$'\&	m}jo
PHmwPIl&Ac&93O+PIl!PJkm"t(s#*PJkj+vGr
%PLiEht})|h&2c
u&&*}j $&h$#]3({Q)=go%oGgxP4fP5fzs'"P5e'[F'P6erP6dP7dcB'P7cz'*P8c,*&	%p0%u
b\]~{+k b}
@.p+]h,xOt."z%(yC*s$8z'&2d)E>0h#{)/EHm	v#nD~ & h$%W3({3(k!p
ry%yG
#e*#9as#o?&2:$/83`i+PUn	'
"v{4( l!#m+-q
VVpYzn)yab+P+dD]3-2+8iP\^
_9(k\J_9(k\Lc.HLcu`.":$H":($RM>0ORM>>@0(RH 6\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0