Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50046/chartr.sav
There are no other files named chartr.sav in the archive.
h ' `k (N- &x ,x#Lx - X+x . 7x / " Zb " 3b + ;(2X,'INPUT FILE MUST HAVE A .DAT EXTENSION'/' INPUT FILE NAME (5 CHARS)='$) " =B~ q + >(A5) -\ 'A4 &4 q " Ab + E(' OUTPUT FILE NAME (5 CHARS)='$) " =B~ q -\ 'D4 &4 q@@ r-\ %V4 r"$ 2D r+ L-\ (I 'X@ M 'X@ N` m 'X@ Q @@ r@@ r $ D oO@ sO@ s!$ D u@@ o : Z t@@h 1: 9 W $ D n s5$ ] &X@ \ " gb @@ s@@ N@@ n \3D x+ l : Z t $ / D t m t2Dw+ f1: 9 `+ l-\ #;4 x4 t @ n: r r n Fy-\ #y4 n4 o @ N $ D p : Z p & $$ $xXD q-\ "t4 l4 x4 q : Z t m3Dhw+ v p hw Fk: p1: $9 r-\ %V4 r"$ 2D r+ z-\ (I \2D xg O l2F zg O m2H zg O G G 4$ p1:
9 m &X@ " =b D + &X@ " Cb @ -\ %V4 r"$ 2D r+ -\ (I $ D t : Z t m3Dhw+ 6b t0b 7 +4 4 4 4 X ] t2Dw+ $ D t+ 3 a9 t2Dw+ 3$ +D t+ \2 t2Dw+ $ D t t1: $9
u + L s4$ | u v D u F u@@ s $ 2d p+ L d2D l+ ^ ]2D pg O c2F mg O [2H mg O
e2J lg
O
A A A 5$ L-\ $R4 q @ u B u+ | `2D ng O \2F mg O b2H mg O
`2J lg
O
[2L lg
O
. 2N pg O A
A
A A A 5$ ] v w D u F u+ | $ D t : Z t6b t0b 7 +a4 d4 h4 k4 o4 r ] t2Dk+ z $ D t+ z e t2Dk+ | $ D t+ z a t2Dk+ | $ D t+ z \ t2Dk+ | $ D t+ z d t2Dk+ | a t2Dm+ z t $mXD x-\ $R4 x @ u B u+ | t3: p9 _ a3D ng O c3F ng O e3H mg O
d3J mg
O
]3L lg
O
c3N lg O 0 3P pg O G G
G
G G G 4$ $ D m+ # b2D mg O b2F mg O d2H lg O
d2J lg
O
, 2L pg
O
A
A A A 4$ a3F lg O ]3H lg O * 3J pg
O
G G G 4$ ' $ D m+ #-\ # 4 m0` g O b3D lg O \3F lg O G G 4 P@@ v@@ v@@ w@@ w : Z t o2Dhk+ 6 v5D P $ D v+ @ o t2Dk+ : $ 3d v+ P: v+ @ r t2Dkg O q2Hkg O G 4$ P t3: p9 1 $ D m@@ r : Z t $hkXD E-\ # 4 E @ t t4$ K $ $ r t. F r1: 9 C+ P $ D n"$ D p-\ #y4 r4 p @ N+ # b3D mg O d3F mg O b3H lg O
^3J lg
O
G G G 4$ m : Z t q3Dhk+ k3: p9 Z-\ # 4 n4 m@@ r $ D m : Z t $hkXD c-\ # 4 c @ t t5$ g t3Dhk+ K+ m $ $ r t. F r1: 9 a+ m-\ " 4 t $ D m+ # q3D mg O ]3F lg O _3H lg O G G 4$ " $ D q : Z t q2Dhk+ y: q r2Dhk+ {> q q4D 3: p9 v &X@ ~ " Gb &X@ " Cb + b t3Dmg O d3Hmg O
b3Jlg
O
^3Llg
O
G
G G 4$ $ . t D t t Z t q3Dhk+ 3: p9 t $lXD -\ # 4 4 " $ D m-\ " 4 t+ # t $lXD -\ # 4 4 "+ k 'X@ : Z t : Z t $ $$ . t l Fw3: p9 t1: $9 !$ D u@@ s@@ tO@ t-\ #4 m4 m4 m _ D m &X@ * " Lb 'X@ - " 1B o m p n : Z t : Z t $ $$ t. w1: $9 1 t3: p9 0 'X@ 8 " 4B : Z t M3: n9 9 t4$ C & $ N t1D g O N1F g O A 4$ M+ U $ 2D m+ K & $ N t0D g O N0F g O G 4$ W@@ tO@ t-\ W-\ W N4D U-\ "]4 N m3D + U b D m s D n-\ #4 4 n4 nO@ t-\ WO@ t-\ W-\ W N r3DUg O r0F g O G 4$ b r( D p-\ #4 p4 p4 o $ D m> r+ W $ 2D m+ k: r r N FU r( D p-\ #4 p4 p4 o r( _ F P $ D t $ D x t. x D x n2$ xg O & 3F mg O ( 3H mg O A G 4$ | x M D y $ . o ( $ y t2F + ~: x+ m t3d p+ +
-\ "]4 y t3d p+ -\ #4 m4 o4 p+ & $$ t $xXD -\ "t4 l4 4 \-\ W: t n/ x D p-\ (4 p4 p2 t+ m $ 3D m+ +@@ t@@ t $ 2$ xg O & 2F mg O ( 2H mg O * 2J mg
O
G G G 5$ O@ t-\ W-\ W $ 2D m+ +-\ $4 r &X@ " Ob
u r4D . $ z3$ r+ ( &X@ # " Vb : Z t y3: r9 $ + L &X@ ) " Xb : Z t y3: r9 * + L &X@ / " 5b + L+ 4(I7,I2,I3,I3,/(72A1)) + 5(I7) + 9(/' NO STATEMENT NUMBERS USED') + :(72A1,8X) + =(1H-,5X,10HEND OF JOB) + C(45H1MORE THAN 19 CONTINUATION CARDS IN STATEMENT)+ G(27H PROGRAM SKIPS TO NEXT DECK) + L(40H1PARENTHESES DO NOT MATE IN IF STATEMENT)+ O(1H1,52X,10H(ENTRANCE)) + V(1H1//40X,43H LIST OF STATEMENT NUMBERS USED IN PROGRAM ,A10//) + X(/6X, 20I6) + Z( 6X, 20I6) + a(' OUTPUT SCRATCH FILE ON DSK:FOR20.DAT' / 16H BEGIN EXECUTION /// ) + e( 23H FLOW-CHARTING PROGRAM ,A10/) + g(1X,72A1) + j(1H1,45X,'PROGRAM LISTING'//) -\ (I + 0 $ A /
/`uMAIN BLOCK DATA|`ZA 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 - + / = , $ . ' ( * ) ^ < > ZZZZZy %
!$ D _-\ !&4 Q4 [ r( & . F ^-\ #4 m4 ^4 [L t4$ 2-\ #4 r4 [4 \+ 4 t5$ 4 _ D m : Z ` h D ` `4D D o & $ `2$t+ : e Dh h 0D g O o ( $ `3f tg O G 5$ A s Dh ( h F + E `@@ `1: 9 4!$ 3D _+ U $ . s D ^-\ (E4 ^4 \ @ s $ 3d s+ M+ Y t5$ O+ Y-\ !&4 Q4 [ &X@ R " Vb -\ !&4 Q4 [ $ D s+ Y+ W(1H1)+ Y4 Z ] \ ]+ ' ] ]-|p A / v( `-\ (54 4 !/4 !24 !, $ A D !3@@ !4-\ (E4 !24 !- @ !4 !44D { $ A/ !4 D !0 : A Z !5 $ !. !2. "
!/.
( D !5 !45D u !-2D !5g O !.2F !5g O G 4$ yO@ !4 !-2D !5+ w !. D !5 !3 !5 F!6> !3 !52z !0= j !2/ !4 Z !5@@ !6 !45D $ D !6!: Z !6 !5/ $ !. !2. "
!/.
( D !5"$ 3D !6+ ! !-3D !5g O !.3F !5g O A 4$ ! $ 2D !6g O !40F g O G 4$ ! $ D !6 !- D !5+ !O@ !6O@ !4 !-2D !5+ ! !. D !5 !3 !5 F!6> !3 !61: 9 ! !5/: 0: + | $ A3D !3+ !$ &X@ ! " !$b $ . !3 Z !4 !61: A9 !! + !&(1H*,130A1) + !*4 Z !0 \ !1 !1, p ,!p + a !0 !1\ !2,Ap -|p zX!w "$ D "& $ D n : Z "' "&. D "' t "'2Dkg O r2Hkg O
o2Jkg
O
G G 4$ " "' k Dh 1: 9 !z-\ #`4 "!"$ . "' D "$-\ #;4 4 "$ @ "%"& F "%-\ #y4 "%4 "% @ "( $ D "( n3$ "(+ " "( "(3DM+ ": "(+ ": n $ 2$ n+ "-\ #`4 "" n "( FM "' D "& o "'3Dk+ " + " + !z+ " 4 Z "" \ "# "#,!p + !x "" "#-|p xh"( & $ "d t5D "++ "` : Z "e "d3Dh + "71: 9 ", o & $ "d2Dt+ "2+ "` : Z "e h"f D "e "e 4D ";1: 9 "2-\ #`4 "a o & $ "d2Dt+ "= "e@@ + "@ "e "d F + "@ o & $ "d2Dt+ "I t4$ "B "b D "f+ "C p D "f "e( "f F "e s F "e( b F + "U o & $ "d2$t+ "N "e( e F o & $ "d3dt+ "R "e( [ F "e( t F p D "f "e( & 1. F "f : 0 Z "e m2Dh P+ "[ "f Dh P3: "f9 "Y+ "`4 Z "b \ "c "c,!p + ") "b "c-|p _ }X"f : Z "} . "| . "{ ' F3: "{9 "o+ "x4 Z "y \ "z "z,!p , p , p + "n "y "z-|p ~"} # # F P" #. # D # # & PXF # & QXF #-\ "t4 #4 #4 #+ # 4 Z #
,\ # ,!p ,!p + "} #
\ #/ ,Ap -|p }H# : Z #+ Z #+ #* #+2Dg+ #+ # 1: 9 #O@ #+ #*2D mg O #*2F lg O G 5$ #@@ #++ # 4 #$Q * #) Z #) \ #* #*,!p + #!8 #$X8 *8 #) #* #+-|p }#+@@ #K : Z #K $ / . #J D #L #L. #J 2D m+ #33: #J9 #-+ #@ : Z #K $ $ #K . #J &'XF #8-\ # 4 #8. @ #K3: #L9 #4+ #@4 #CQ * #H Z #I \ #I #I, p ,!p + #,!8 #CX8 *8 #I #I #K-|p |x#L6b #f0b 7 +#N4 #O4 #R &X@ #Q " #Ub + #c &X@ #T " #[b + #c+ #[(46H1STATEMENT NUMBER TOO LARGE IN GO TO STATEMENT) + #`(34H1T00 MANY EXITS IN GO TO STATEMENT) + #c4 Z #e \ #e #f,!p + #L #e #e-|p |h#g o4D #m : Z $ $ & $ 3Ds+ #u3: o9 #i: o $ $ o $ Fs $ $ o@@t o D $ $4d #u $ $ $ o Ft+ #~ $ $ $ o Ft $ D $+ #r+ #~4 D $ F $ Z $ \ $ $,!p ,!p + #g $ $ $ $ $-|p }$ $ 2D $ g O $ 0F g O G 5$ $ + $ : Z $ $ / D $ : Z $ hy/hy4d $ $ y D $ $ y Fy $ $ Fy $ 3: $ 9 $ $ 3: $ 9 $ + $4 Z $ \ $ $ ,!p + $ $ $ -|p x8$ u v D $d F $e : Z $e l . $d2$ g O l3h g O G 1h g O A t2H g O G 5$ $/+ $V6b 0b 7 +$14 $44 $84 $>4 $C4 $I4 $N $d 4d $6+ $V $d D $d+ $P $d 7 .$ ?(|A $Z!&x A $dG D $d+ $P $d 7 .$ ?(yA $[!&xA $dG D $d+ $P $d 7 . $[(uA$ $\A $dG D $d+ $P $d 7 . $\(rA$ $]A $dG D $d+ $P $d D $e $e1: 9 $#+ $V4 $]Q * $b Z $c \ $c $c, p + $!!8 $]X8 *8 $c $c $d $e-|p ? ? p`$e %[ D %c %\ D %c %\ D %d %] D %d : Z %e %] Dhw1: $9 $k &X@ $p " %2 %9X@ &p %
X@ &qB & x4 $N : Z %eR %]3Dhwg O - %d3Fhwg O A 4$ $z1: $9 $s+ $j3& $$ pO$xXD $|-\ !&4 $|4 %^A: 4Z %e %d2Dhw+ %2 %]+Dhw1: $9 $~ %^2D x+ %:: 1Z %e9 %d2Dhw+ % %] Dhw1: $9 %+: "Z %e. %d3Dhw+ %1: 9 %+ %Y3" %`9 %' $ . %e Z %f %e hw F%f: %e1: $9 %++ %! $ D %e $ 2D %e+ %%+ % + %3(72A1,8X) + %6(1H1,5X,'END OF JOB') + %9(//5X,'END OF JOB') $ 3D m+ %H q5D %=!$ D q+ %Y &X@ %> " %Ab " %Ab + %H+ %H(1X,'NO END STATEMENT IN FILE,FLOW CHARTING TERMINATED') + %Y &X@ %J " %3b " %6b &X@ %M &X@ %O 'X@ %P 'X@ %R` m 'X@ %T O@ %b+ %Y4 Z %` \ %a %a,!p + $f %` %a\ %b,Ap -|p
$C 9 1 }X& \ &r @ &s< &z0< 0| + 1\ + & ,>p&Z p&+ p @ h&@@ p&@@(&Z@0&c@ x&G@ &G@8&e@(&S@ P&^@ P&^@ h&@@&%@ &%@&?@&?j(&R[ (/< 0"` S<p X< 0 p 3@ &{+ &#*| & -< 'wx&"Z` &+ &R! @w+ &!< &| p 7 p + &@,> ,> ,> &w p , &;,& .< 7@p + &8 p , &;" &| &j.< p ` &} w,& ,& 5 &*.< p d &}: ." Q ,& p ,& >` 9 &5.< 9 &+@@ ,^ ,^ ,^ + &@d @ @ & 0b ." ." )B}5@ &<,~ m< !< P\ &n< &| p [ p l< 0@X + &FZ p .< / p Q \ &o+ &H@@ &o!< P\ &n7@ &q+ &L < &r \ &p@@ &q!< P\ &nX X\ &n &~7@ &pD<7@ &qA< \ &o < &n[`x &s, x ,^x &r+ & &Q< \ &n: & \ &o< &~ p&j| & < \ &o@@ &p+ &P@@ &o Q< \ &n< &~ p&j| &+ &P7 ' ' \ &o @ &cX Q< \ &n ' \ &o+ &P&c[`x &s, x + &i h< * \ &n+ &P7 &q &pX\ &@@ &q@@ &p+ &RP&k ~0&s>x ! Z @
& 'U` eB + &y@ )@ G
" + &v
& '+ 'z6$ 1 ,> (K. @
p .4 6$ lx&h.
.4 &o. &nSEQIN}H' @ ' SEQOUT @ '@ &c
%5 Source level error at user's loc
` Z (X^ . > .~ (3~ + '
~ + 'Z .*>x .ez+ '!" b + " ' b + Z . h + gg M?}('
& ' b + '
?NO CORE AVAILABLE - CAN NOT PROCEED
}H' !* ':** ,^ ,~ * x ,> J '< * ':** '< p Z@ '0`|+ '$P w,~ "p h a`~ + '*h ``~ + '+$ 'm!',d 'n/"+ '%P ,~ @ @ @ @ @0 @x @@ @` y`'<edX91 ,> (K, ' < '0, + ' SMI 1 ,> (K, ' 'o+ 'F_MI 1 ,> (K, ' 'q B '0 p d"~ l"
B '1!" GB '0+ '[I5R1 ,> (K, ' & 'r B '0*\ 'Z p d"~ l" B '1*\ 'Z p .& d"~ l" $ B '1*\ 'Z p .& d"~ l"
B '2*\ 'Z.& Sp *\ 'ZXp B '9@@ '9 's B '2(F QF '0 < '0, + ' EV4i91 ,> (K+ 'hS ,i@1 ,> (K+ 'h_ ,i@1 ,> (K+ 'hK>2 1 ,> (K+ 'hK>40 1 ,> (K+ 'h[<I71 ,> (K
& 's w @ )@ .
" 5B 'j
& 'y,~ .
.4 SEQINy 'o ^ 'nSEQOUT ^ 'pRANDOM ^ 'q '9
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.9'1 ,> (K
6 + ,> _ 4` ("` Q@ (` *b ( + ( (` (Z 5" ( (
` (@~ (@qd 1@ ,, (I0@ #+ (,^ ,~ (30H Type G to Continue,X to Exit./2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSEC6 1 ,> (K, (",~ [B 1 ,> (K, (",~ [B 1 ,> (K, (",> < ((, (1,^ ,~ C6 1 ,> (K, (",> < ((, (),^ ,~ p 9 ($3! p h" ab~ 9 (# @ (',~ ~((' ('M2| 1 ,> (K#p [ B VQ @ M 7!p " ,~ S; 1 ,> (K+ (2SO 1 ,> (K#p % * ( .7!p "` ,~ ~0(5 D (D$ (D/$ D (C"%p #p ."Q @@ (C @ .< $p .D (C p /p $ *b (; (C7@ (C( D @ (D-|p ~p(D0
p [> 1 ,> (K p &p ,~ KbN@ 1 ,> (K,
,~ (KY\ (MQ< X\ (M* x(M+ + k