Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0047/cross2.exe
There is 1 other file named cross2.exe in the archive. Click here to see a list.
?p 0 ` 0 @ ?h X ?x "
<+ + 72 ` ~b-{ }( 7j 2 } ( TEMP2 TEMP1 (' CROSS2',8X,A5,9X,2A5//) (/' NAME OF SURVEY? ',$) (12A5) (/A5)(//A5) (8X,A5) ('+'/$) (' CANNOT FIND DATA FILE ',A5/) (/48A1) (9X,48A1////) (20I)(9I1,9L1) (I2) (3I,2A1) (I,2A1) (5X,128I1)(5X,128A1)('1')(' ENTER COMMAND: ',$) (' COMMAND NOT AVAILABLE--RUN CROSS1'/) (' ENTER ONE OF THE FOLLOWING:'/' MAP, UNMAP, JOIN, POOL, CUT, SAVE, RESET, STOP, OR'/' DETAIL'/) (' TO REGROUP RESPONSES TO A QUESTION, TYPE "MAP".'/' TO RESTORE THE ORIGINAL CATEGORIES, TYPE "UNMAP".'/' TO DUPLICATE A VARIABLE WITH CURRENT CATEGORIES OR'/' TO COMBINE 2 OR 3 VARIABLES INTO ONE, TYPE "JOIN".'/' TO MAKE A SINGLE VARIABLE OF A BLOCK, TYPE "POOL".'/' TO DELETE HIGHEST NUMBERED VARIABLES, TYPE "CUT".'/' TO SAVE CURRENT VERSION OF DATA FILE, TYPE "SAVE".'/' TO RESTORE ALL DATA TO INITIAL STATE, TYPE "RESET".'/' TO TERMINATE THE PROGRAM, TYPE "STOP".'//' TO HALT EXECUTION OF A COMMAND, TYPE "ABORT".'/' TO GET HELP AT ANY POINT, TYPE "EXPLAIN" OR "?".'//' FOR A MORE COMPLETE EXPLANATION OF ANY OF THE ABOVE'/' COMMANDS, TYPE "EXPLAIN" AND THE NAME OF THE COMMAND.'/)(' FURTHER EXECUTION OF A COMMAND MAY BE HALTED AT ANY'/' BREAK POINT BY TYPING "ABORT". TO SUPPRESS THE PRINT-'/' ING OF TABLES OR OTHER OUTPUT, TYPE <CTRL>O AND PRESS'/' <RETURN>.'/) (' IF YOU NEED AN EXPLANATION OR FURTHER INSTRUCTIONS,'/' YOU MAY RESPOND TO ANY REQUEST FOR INPUT BY TYPING'/' "EXPLAIN" OR A QUESTION MARK.'/) ('+INVALID ENTRY--VARIABLES RUN FROM 1 TO ',I3/)('+INVALID ENTRY--VARIABLE WITHOUT CATEGORIES'/) (' VARIABLES TO BE MAPPED? ',$) (' ENTER ONE OR MORE VARIABLES WHOSE RESPONSES ARE TO BE'/' REGROUPED. (IF YOU DO NOT WANT TO MAP ANY VARIABLES,'/' TYPE "NONE".) A BLOCK OF CONSECUTIVE VARIABLES (TWO'/' NUMBERS JOINED BY A HYPHEN OR THE WORD "ALL") CAN BE'/' MAPPED SIMULTANEOUSLY. FOR EACH VARIABLE TO BE MAPPED')(' SPECIFY THE NUMBER OF NEW CATEGORIES DESIRED. THEN'/' FOR EACH GROUP LIST THE CODE NUMBERS OF THE RESPONSES'/' TO BE INCLUDED IN IT (TWO NUMBERS MAY BE JOINED BY A'/' HYPHEN TO INDICATE A BLOCK OF CONSECUTIVE RESPONSES).'/' EVERY CATEGORY MUST BE MAPPED.'//' YOU CAN PRESERVE THE CURRENT GROUPING BY ENTERING "1"'/' OR "KEEP" FOR THE NUMBER OF NEW CATEGORIES; ENTERING'/' "0" OR "UNMAP" RESTORES THE ORIGINAL CODING (IN EITHER'/' CASE EXCLUSIONS MAY STILL BE MADE). ENTERING "-1" OR'/' "REFLECT" REVERSES EXISTING CATEGORIES. ENTERING "X"'/' OR "EXCLUDE" ELIMINATES ALL CATEGORIES. TO ASCERTAIN'/' THE CURRENT MAPPING, TYPE "LIST". IF YOU HAVE ENTERED'/' MORE VARIABLES THAN YOU WANT TO MAP, TYPE "ABORT".'/) ('+DUPLICATE MAPPING--START OVER'/)(//' VARIABLE ',I3/)(//' VARIABLES ',I3,' TO ',I3/) (' HOW MANY NEW CATEGORIES? ',$) ('+INCORRECT GROUPING--REENTER'/$) ('+ GROUP ',I1,''': ',$)(' ENTER THE ORIGINAL CODE NUMBERS OF THE RESPONSES TO BE'/' INCLUDED IN EACH GROUP. TO START OVER, TYPE "UNMAP".'/' TO QUIT MAPPING, TYPE "ABORT".'//$) ('+INCOMPLETE MAPPING--START OVER'/$) (' NO EXCLUSIONS'/$)(' VARIABLES TO BE UNMAPPED? ',$) (' ENTER ONE OR MORE VARIABLES WHOSE ORIGINAL CATEGORIES'/' ARE TO BE RESTORED. (IF YOU DO NOT WANT ANY VARIABLES'/' TO BE UNMAPPED, TYPE "NONE".) A BLOCK OF CONSECUTIVE'/' VARIABLES (TWO NUMBERS JOINED BY A HYPHEN OR THE WORD'/' "ALL") CAN BE UNMAPPED SIMULTANEOUSLY.'/) (' ORIGINAL CATEGORIES RESTORED'/) (' PREVIOUS CATEGORIES REVERSED'/) (' ALL CATEGORIES EXCLUDED'/) (' ENTER NUMBER OF GROUPS TO BE EXCLUDED:'/' 0--FOR NO EXCLUSIONS'/' 1--FOR EXCLUSION OF THE HIGHEST NUMBERED GROUP'/' 2--FOR EXCLUSION OF THE TWO HIGHEST GROUPS'/' ETC. (NEGATIVE CODES EXCLUDE LOWEST GROUPS.)'/) (' ENTER EXCLUSION CODE: ',$) (' NO CATEGORIES')('+',I3,$)('+ --> ',I1,A1/$) (' VARIABLES TO BE JOINED? ',$) (' ENTER ONE VARIABLE TO BE DUPLICATED (WITH THE CURRENT'/' DEFINITION OF CATEGORIES) OR TWO OR THREE VARIABLES'/' TO BE COMBINED INTO ONE NEW VARIABLE. TABLE HEADINGS'/' WILL BE PRINTED FOR EVERY COMBINATION OF CATEGORIES OF'/' THE OLD VARIABLES. DEFINE THE CATEGORIES OF THE NEW'/' VARIABLE BY FILLING IN THE TABLE. USE CATEGORY NUM-'/' BERS 0 TO 9 OR EXCLUSION CATEGORIES 11, 12, AND 13.'//' NOTE: THE THIRD VARIABLE LISTED MAY BE FOLLOWED BY AN'/' EQUALS SIGN AND A CATEGORY NUMBER (0 TO 9). AN ENTRY'/' IN THE FORM ''V1,V2,V3=C'' ALLOWS THE JOINING OF VARI-'/' ABLES V1 AND V2 FOR RESPONDENTS BELONGING TO CATEGORY'/' C OF VARIABLE V3, ALL OTHERS BEING EXCLUDED. AN ENTRY'/' IN THE FORM ''V1,0,V3=C'' PROVIDES FOR THE RESTRICTION'/' OF VARIABLE V1 TO RESPONDENTS IN CATEGORY C OF VARI-'/' ABLE V3. A PARTICULAR CATEGORY OF RESPONDENTS MAY BE'/' EXCLUDED BY FOLLOWING THE THIRD VARIABLE WITH AN IN-'/' EQUALITY SIGN (<>) AND THE CATEGORY NUMBER. IF YOU DO'/' NOT WANT TO JOIN ANY VARIABLES, TYPE "NONE".'/) (//' NEW: VARIABLE ',I3) (' SOURCE: VARIABLE ',I3) (' DOWN: VARIABLE ',I3/' ACROSS: VARIABLE ',I3) (' CONTROL: VARIABLE ',I3) (' CONTROL: VARIABLE ',I3,2X,A2,' CATEGORY ',I1,A1) (///' NEW CATEGORY NUMBERS:') (//5X,20(I3,A1,$)) ('+ (',I1,A1,')',$) ('+',I1,A1,4X,$) (' DEFINE THE CATEGORIES OF YOUR NEW VARIABLE BY FILLING'/' IN THIS TABLE. USE CATEGORY NUMBERS 0 TO 9 OR EXCLU-'/' SION CATEGORIES 11, 12, AND 13. TO START OVER, TYPE'/' "DELETE". TO QUIT, TYPE "ABORT".'//) ('+ILLEGAL CATEGORY--REENTER'/) (' NO ROOM FOR NEW VARIABLE'/)(' VARIABLES TO BE POOLED? ',$) (' ENTER A BLOCK OF VARIABLES (TWO NUMBERS JOINED BY A'/' HYPHEN OR THE WORD "ALL") TO BE USED IN CONSTRUCTING'/' AN INDEX VARIABLE, CATEGORIZING RESPONDENTS BY THEIR'/' AVERAGE RESPONSE. THE "MAP" COMMAND CAN BE USED TO'/' REVERSE CATEGORIES OF CERTAIN VARIABLES OR TO EXCLUDE'/' VARIABLES FROM A BLOCK. IF YOU DO NOT WANT TO POOL'/' ANY VARIABLES, TYPE "NONE".'/) (//' NEW: VARIABLE ',I3/' SOURCE: VARIABLES ',I3,' TO ',I3/) (2X,I3,' VARIABLES')(A5,128I1)(A5,128A1)(/1X,I4,' RESPONDENTS') (' ENTER NUMBER OF VARIABLES TO BE DELETED:'/' 0--FOR NO DELETIONS'/' 1--FOR DELETION OF THE HIGHEST NUMBERED VARIABLE'/' 2--FOR DELETION OF THE TWO HIGHEST VARIABLES'/' ETC. (UP TO 9 AT ONE TIME)'/) (' ENTER DELETION CODE: ',$) (' THIS COMMAND PERMITS THE DELETION OF THE HIGHEST NUM-'/' BERED VARIABLE OR VARIABLES, COMPLEMENTING THE EFFECT'/' OF THE COMMANDS "JOIN" AND "POOL".'/) (' WITH THIS COMMAND YOU CAN PRESERVE THE CURRENT FORM OF'/' THE DATA, MODIFIED BY ANY MAPS, JOINS, POOLS, OR CUTS,'/' AS A NEW DATA FILE. THIS FILE MUST BE GIVEN A NAME OF'/' FROM ONE TO FIVE CHARACTERS. THE NAME MAY FOLLOW THE'/' WORD "SAVE" OR MAY BE ENTERED SEPARATELY.'/) (' NEW FILE NAME? ',$) (' THE CURRENT FORM OF THE DATA WILL BE PRESERVED AS A'/' NEW DATA FILE. ENTER THE NAME (FROM ONE TO FIVE CHAR-'/' ACTERS) TO BE GIVEN TO THIS FILE. IF YOU DO NOT WANT'/' TO SAVE THE CURRENT DATA, TYPE "NONE".'/) ('+NAME OF EXISTING DATA FILE CANNOT BE USED.'/) (' OLD FILE ',A5,'.MAP RENAMED ',A5,'.OLD'/) (I2,3X,128A1) (' DATA RESTORED TO INITIAL STATE'/) (' THIS COMMAND RESTORES THE INITIAL STATE OF THE DATA,'/' UNDOING THE EFFECTS OF ALL MAPS, UNMAPS, JOINS, POOLS,'/' AND CUTS.'/) (' THE COMMAND "STOP" MAY BE GIVEN AS A RESPONSE TO ANY'/' REQUEST FOR INFORMATION. EXECUTION OF THE PROGRAM IS'/' TERMINATED, AND THE DATA FILE REVERTS TO ITS ORIGINAL'/' FORM.'/) -1 10 ? KEEP < <> RESETf 9 STOP STARTEXCLUEXPLA* TEMP2MAP 0 MAP ALL IN > ABORTJOIN ~` ALL XTAB '
DELET=
REFLEITEM POOL ( LOW } 0 SAVE UNMAPERRORX LIST HIGH DETAI 1 NONE CUT .MAP .MAP .MAP .DAT .DAT .DAT .DAT .DAT .DAT .DAT .OLD .OLD .MAP .MAP .DAT .MAP .TMP + -< +Z q D x D x D 6 q D = m D - y D < %3, -= n. 2 D 7 < %2, -% < %4, < %7,
< %:, , < %=, < %@,
3D + #3D o+ $u D 9 < %/, +/ @ &5 , < %-, + 6 &+ / < %A, < %D,
< %+, +/4 3 < %F, < %I,
+ # < %), , < %J, ~_D (ZD < %M,
: ; (+ 7, "& $ ZD R,
: ; &+ B, @d |6 &+ t < %S, < %V,
< %X, " ,$ F
: ; < %\, " $ F
: ; < %a, " $ F
D < %d,
: ;
+ Y, |_D
ZD < %e, " $ F D < %h,
: ; + a, " $ ( . . *y J i < %(, *" @ .$ 8& e: ;
+ ^ < %j, < %m,
2d { { D < %n, < %q,
7` |+ + < %s, < %v,
< %w, " $ F ; D < %z,
: ; ;+ y, < %|, " $ F : D < %,
: ; :+ , < & , " $ F x D < &,
: ; x+ , |_D vZD " $ ( . .
J .$ 8&
: ; v+ 6d |+ < &, < &,
2D + < & , < &
,
d | D + < &, , < &, , < &, }_D rZD 4 4 < &,
: 4; r+ , < $, *J < &, < &,
(3D o+ #3D + 3D + :2D p+ + 2f t+ <3D s+ \3D + b3D v+ >3D {+ "43D + $3D + $3D m+ $e3D o+ $u2D w+ 6 < & , , 2D {+ 8 < & , , < &#, , + < &&, , + < &), < &,,
(2D u+ A < &., , 2D p3D k+ C+ E < &1, , 2D s+ G < &4, , 2D s+ J < &7, , 2D + L < &:, , 2D v+ O < &=, , 2D {+ Q < &@, , 2D + T < &C, , 2D + V < &F, , 2D m+ Y < &I, , 2D o+ [ < &L, , + O@ | 02D (+ _ 02D @@ |6 |+ b < &O, , 6 |+ i < &R, }_D /ZD 4 4 < &U,
: 4; /+ e, 03D + 03D u+ 03D o+ $uO@ 6 03D p+ q 02D k@@ 66 6+ s < &V, , 6 6+ v < &Y, , < $, *J < &\, v_D ZD 4 4 < &_,
: 4; + y, + 02D s+ +$ D 02D s+ "D 7D + \ vZD 4 47( + 3h +
+ \*d $ D 8 D + < &e, , D ' 8" 3$ D {2d + < &h, < &k,
3d + < &m, < &p,
< &r, , < &u, < &x,
03F u+ 03F + 03F z+ i 03F j+ i 03F p+ 03F + 03F + & 03F o+ $u 03F p+ . 02F k+ / < &y, , O 02H k@ .& F < 02F k+ 5 n F 0 02F + 7 r F 0 02F l+ : F 0 < $, *J < &|, < &,
$ 2D {+ @ 8 & 2f + {1D + Z < %', , < ', < ',
< ', " $ F D 4 < ',
: 4; + H, < '
, " $ F D 4 < '
: 4; + N, < ', " $ F
D 4 < ',
: 4;
+ T, 7D {+ N | & ( .& . ( H *d X < ', , "& . </ { < F D 7+ j < ', , | & ( .& . 2F 7+ i & ( .& . ( H *d c < ', < ' ,
< ' , ~_D :ZD 4 4 < ' ,
: 4; :+ n, 03D u+ N 03D + N 03D o+ $uO@ 6 03D p+ z 02D k@@ 66 6+ | < '", , 7 6+ j 03F + j 03$ r+ a < $, *J < '%, }_D 8ZD 4 4 < '(,
: 4; 8+ , (0d + a7$ (+ ( D ( . . 0F + ( . . 7 F "& $ F 7 D 4#'0f + a7F'+ =5f ( 47&'+ a"'3&'+ a ' F '/& . D ( . . 3D 7+ a ( . . 0D + ( . . 7 H : 8& + = 4 '1F 1D + 1 ( . . 3D 7+ a 0F + 7 F 47&(+ = ' F ( . . 3H 7+ a ( . . 0F + ( . . 7 H : 4; 7+ : 7; + j"& . // u / D ( . . 0D + I < '), , D 0+ N: 8& B < F> { F: 6 F/+ Z / F> u F: F/ | & ( .& . ZD *d R 03D + X < ',, , 03D u+ 6D {+ >.& 3&:+ < '/, , @d 7: 8 F 4& N4F + O@ | 02D (+ e 02D @@ |6 |+ h < '2, , 6 |+ o < '5, }_D 1ZD 4 4 < '8,
: 4; 1+ k, 02D w+ q s D 0 03D + 03D u+ 03D o+ $u 03D p+ y 02D k+ z < ':, , < $, *J < '=, v_D 0ZD 4 4 < '@,
: 4; 0+ ~, 02D s+ $ D 02D s+ "D 7D + b vZD 4 47( + 3h + 7h + " 3( + " 3h + < 'A, < 'D,
+ b*d $ D 8 D < 'F, , D ' 8" 3$ D { < %%, , < 'I, < 'L,
< 'M, " ' $ F D < 'P,
: ; + "& / {. ' ' F D < 'R,
: ; + %, < 'S, " ' $ F D < 'V,
: ; + +"& / {. ' ' F D < 'X,
: ; + 1, < 'Y, " ' $ F D < '\,
: ; + 7"& / {. ' ' F } D < '^,
: ; }+ =, "& / {. ' ' F } D | & ( .& . ZD *d D: ; }+ C 87$ : 8 (3D s+ _: 8 F 4f + {0d + ["& / {. ' '6( 7+ V"
7.
>
:/, 2j
J>4h Z
>.* "
7.
:3*
J:.$ 8& Q+ _"& / {. ' ' F
D ' > H> : H: 6 H/ | & ( .& .
'.
( J *d b: ;
+ ^+ _ < '_, , "& / {. ' ' F D F/ | & ( .& .
3* >+ }
2j :+ } & ( .& .
>.
:/J & ( .& . 1F + } 6 F /*d o: ; + n 87$ : 8+ _ < 'b, , "& / {. ' ' ( H>@h: = H/.$ 8& 87$ : 8+ _ < 'e, , < 'h, , < 'k, < 'n,
03D u+ N 03D + N 03D + 03D + 03D o+ $u < $, *J < 'p, < 's,
71$ + &$ D 76$ 7+ ! " 7.>
:/* 2h H>4d % >.( "
7.
:3( H:+ _ >3f:+ ) < 't, , < 'w, , "& $ ( . .
3,(>+ 9
2l(:+ 9 < 'z, < '},
(/3H + 9 < ', ( . . < (,
.$ 8& , /2D + = < (, , + 0$ @+ "2O@ | 02F (+ C 02F @@ |6 |+ E < (, , 0$ @+ "26 |+ M < (
, }D uZD 4 4 < (
: 4; u+ J, 03D + 03D u+ 03D o+ $uO@ 6 03D p+ U 02D k@@ 66 6+ X < (, , < $, *J < (, < (,
$ 3D + > )
O@ )3d 2f + d3d 2h + d3d 2l + d@@ )6 )+ g < (, < (,
7 )+ >O@ ) >2n:+ m >2n :+ m 0>3n0:@@ )6 )+ o < ( , , 7 )+ >.* J . N(> D(: D(/ | & ( .& . ZD *d t |_D qZD 3 |_D /ZD ~ | ( b$ 3 & $ ~.& . ( H 8*d {: ~; /+ z: 3; q+ y < %$, *" @ q0` Od q w@@ ~2D l3D u+ !+ ! 6& qO@ ~ < %#, *" @ 31` + !
q D 3 $ 2D )+ !6$ 3+ ! D )@d > F p : F '7& 3+ ! F p F '7D )+ ! < ( , , < (", < (%,
5D ! < (', < (*,
4D ! < (+, < (.,
F z6 ~+ !! - F z p3F '+ !% < (0, < (3,
( 2H 2F '+ !) < (5, < (8,
5D !2 < (;, , | & b$ 3.& ZD 8*d !, > H> : H:+ " < (>, , @d z /2D 6+ !7 6 D z"& . p/ ' p F + D 3 < (A, ) > F ~":/& . ~ ~ F * D ~ ) < (D,
: ~; *+ !?, p3D '+ !F < (F, < (I,
< (K, , < (N, , > F =":/& . = = F D < (Q, < (T,
< (V, ~_D
ZD 4 4 < (Y,
: 4;
+ !S, 03D u+ 03D y+ !2 03D o+ $uO@ 6 03D p+ !^ 02D k@@ 66 6+ !a < (Z, , 7 6+ !N 03F + !N < $, *J < (], ) > F ;":/& . ; ; F D ~ & b$ 3 $ $ ~. . < (`,
: ~; + !j, ) > F :":/& . : : D ~ ( b$ 3 ~$$ . . 8 D 0$ 0d + !z0D + !| < (b, , + !N: ~8& !t: ; + !N > F 9":/& . 9 9 F D ) > F w":/& . w w F D ~ ( b$ 3$$ . . 8 F 0f + " 3&> F> 2f: F:: ~; + ": ; + ": 3; ++ !:6 ~+ "z > F t":/& . t t F D ) > F .":/& . . . F D ~ ( b$ q$$ . . 8 F & b$ q ~$$ . . & F 8 > F '":/& . ' '3D q+ ". * b$
( $ ~. .
J 8.$ 8& "): ~; + " : ; + "+ "z < (e, , + 0$ @+ "2O@ | 02F (+ "9 02F @@ |6 |+ "< < (h, , 0$ ?+ "26 |+ "D < (k, }_D tZD 4 4 < (n,
: 4; t+ "@, 03D + 03D u+ 03D o+ $uO@ 6 03D p+ "L 02D k@@ 66 6+ "N < (o, , < $, *J < (r, < (u,
# { D { 02D s+ "U $ D ' 02D s+ "W D {7D '+ "4 {O@ )0$ 2d + "\ 2( @@ )6 )+ "_ < (w, < (z,
7 )+ "4 ( . {/ ' H 8 ( . H * J >@j :"
{/* .
' ' >3f:+ "j"& .F 8 >2(>+ "m > H> :3h:+ "o : H:.$ 8* "g6d 8+ "s < (|, , + "4 < (, < ),
F/ | & ( .& . ZD *d "wO@ (2D {@@ D x6 0+ " D x < %", , < % , , < ), < ),
< ) , ~_D .ZD < )
,
: ;< .+ #, < )
} D / < ), " $ F , D < ),
: ; ,+ #, > Fy < ), < ),
" $ F + D < ),
: ; ++ #, D u < ) , " $ F * D < ) ,
: ; *+ # , : Fy < )!, < )$,
" $ F %,
: ; < % , */ @ < )', < )*,
< )+, < ).,
" | $ F D 7 < )0, < )3,
" $ F D < )4,
: ; + #8, 7 + #R $y D i < % , *" ( . . D ) $y D i < % , *" ( . . ) D ~ &y F i < % , *" ( . . F 3 $& b$$ . . $ 8 D i < %, */ @ y+ #r@d 9 D /"& / {. ' ' >2h:+ #b (y H i < %, *" ( . . H O
>2l + #_
:2, @
.* J .J 9$ .H /.$ 8& #U $ D O 9( 2& 8@ .$ D O@ .
>.
:$
9 /( 2( @@ .4D #p
9(
/( . 9. .& H < %, */ @y < )6, < )9,
" $ F D < ):,
: ; + #v, : 7; + #4 < )<, < )?,
< )@, x D 96 0+ $ < %, ,Ld 06 0+ $ < %, , < )C, D + < )E, , < )H, , < )K, < )N,
03D u+ 03D + $ 03D o+ $u < $, *J < )P, < )S,
/ 71$ $ D + 2D + $$ < )T, , < )W, < )Z,
2D 3D u+ 3D o+ $uO@ 62D p3D k+ $ @@ 66 6+ $" < )\, , 7 6+ $3D + $ < %, +/5 $( < )_, , + $ < %, +/5 $* D 9 < %, +/F@ 0 < %
, +/5 $/ < )b, < )e,
D x6 0+ $2 D x < % , , < )g, < )j,
< )k, < )n,
} D / < )p, < )s,
" $ F D < )t,
: ; + $<, D u < )v, < )y,
" $ F D < )z,
: ; + $E, r D < )|, < ),
" $ F D < * ,
: ; + $M, |_D 5ZD " $ ( . . ( H i < %
, */ @y.$ 8& $S < *, < *,
" $ F 1 D < *,
: ; 1+ $], : ; 5+ $R < *, < %, +/F@ 0+ < *
, , , 92D x+ $i D x D 96 &+ $p < %, + < *
2D x+ $p 9 D x < %, , < *, < *,
6 &+ t+ G < *, , < %, + < *, 93D x+ ${ < $, ,T < % , , < * , < $, ,T < $,
p z xh x 7 p j 9h z 9 ` x x ip z x` ` x `
x
p z p z x x ix ix ix ix ix tp z xp j 9x wx p j 9p j 9x ip j 9` 9 9 h z 9 ` 9 9 x
x 2X $ 2 @
X X ~ ( X
( 9 X ( 9 X $
$ X
$ $> X
$ $: X
% $/ X
% $y X $ { X $ X $ X $ $> X $ $: X % $/ X $ X $ | X & X & X ~ ( 0 X
( ( ( X ) X ) X -
X 7 FX } ( ( X } X X , X I IX > X hX + %X u X X I
$ X $ X X $ X $ ' $ { X X ~ ( 0 X I IX
$ { X $ X $ $ / X $ $ u X % $ X X X " $ 7 X ~ ( 0 X % X
$' X 5 X Z X 9 X ; X ~ ( 0 X > X
$ X $ X Z X $ X Y $ / $> X Y $ u $: X Z $ $/ X ^ X a X d X z X ~ ( 0 X
! $ 7 X } X X $ X $ $(/ X X X ~ ( 0 X hX
" $ $ ) $ $ w $ X $ X $ X X n $ X q $ X t $ $ ) X y $ X | $ $ z $ 3 $ / X X X $ ~ $/ X $ 3 $ z X X X $ $/ X ~ ( 0 X X
$ 8 X ! X $ X ' X ~ ( 0 X + %X
$ ' $ { X $ X $ X P $ $ ' $ { X $ X
$
W $ X $ $y X
Y $ / $y X $ $y X
Y $ u $y X $ X
Z $ X Z $ $y X
Z $ $y X
[ $ | `
`
X ^ X r X ~ ( 0 X
$ $ 7 X " X ~ ( X $ X : X ? ( ( X
( 9 X
W $ X
Y $ / $> X
Y $ u $: X
Z $ $/ X
D $ $y `
X E X
( 9 X $ X `
`
U, H * F * D * p @ * * & *!/$ D * 5$ *)" * .& && .& F * * * * * ,~ ], H *. F *. D *- p @ *,1 + *9" *,&$ ( . *,/( " *,.$ $ . /d *, *,. ( *, Cp *- *. *.,~ (12A5) (A4,12A5) MAP ZMAP 0
.TMP .TMP .TMP .TMP I y \ *B < *p, + < *r, *E_D *@ZD *> *> < *u,
: *>; *@+ *N, < *v, < *n, + 03$ *C+ *f 02d *C+ *f < *y, *D_D *?ZD *> *> < *|,
: *>; *?+ *Y, < *l, + < *}, *E_D *?ZD *> *> < + ,
: *>; *?+ *`, < +, < *j, + + *h *D 0 F 0*d *g *B,~ h *D 7 *Ih *D 7 *Hh *D 7 *Gh *D 7 *FX
*@ ( 0 `
X
*A ( 0 X
*@ ( 0 `
(2A5) SEQIN SM@ \ + p @ + p @ + p @ + < +, < +,
< +, +,~ P + + $ + $ + X + P + ^ + (2A5) SEQOUT _M@ \ + p @ + p @ + p @ + < +', < ++,
p< +-, + ,~ P + + $ + $ + X + P + ^ + !" X" +I*" +O4 INX + +H@@ +=+ +A +U $ + +E
& +V ` Z +Q
& +X ` H H +PH +QDEVICE NOT AVAILABLE
? RENAME FAILED ` Z (X^ . > X.~ (3~ + +_ ~ + +jZ . \x <x *<x .ez+ +f!" b + " +g b + Z` .Z . h + gg M?}
& +l b + +Z,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* ,** ,^ ,~ * x ,> < ,*< , p Z@ ,`|+ +xP w,~ "p h a`~ + +~h ``~ + +$ ,E!, d ,E/"+ +yP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> -X, +s!" QB , < ,, + +qSMI 1 ,> -X, +s ,G+ ,_MI 1 ,> -X, +s ,H B , p d"~ l"
B ,!" GB ,+ ,0I5R1 ,> -X, +s & ,J B ,*\ ,/ p d"~ l" B ,*\ ,/ p .& d"~ l" $ B ,*\ ,/ p .& d"~ l"
@B ,*\ ,/.& Sp *\ ,/Xp B ,EV4i91 ,> -X " ,2+ ,@S ,i@1 ,> -X " ,4+ ,@ ,i@1 ,> -X " ,7+ ,@K>2 1 ,> -X " ,9+ ,@K>40 1 ,> -X " ,<+ ,@[<I71 ,> -X " ,>
& ,K @ )@ .
" 5B ,A
& ,Q,~ .
.4 SEQIN ^ ,FSEQOUT ^ ,GRANDOM ^ ,I ,
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> -XO@ -+ ,VgR~@1 ,> -X@@ -,> ,> @ 6 w+ ,b" -0B + ,^!"A`X#p 5@ ,[/#p !" X#p + ,b\p + ,ba.9'1 ,> -X,> ,> O@ -+ ,b,>
6 + _ 4` ,k"` Q@ ,> < -, ,^ ,> < -,
,^ *b ,h+ ,u,> < -, ,^ 7@ -+ ,p,> < -,
,^ + ,r,> < -,
,^ Z 5" ,u,> < -,
,^ , 7@ -,
,> < - , ,^ , ,> < - , ,^ ,> < -#,
,^ (@qd 1@ ,,
1@ #+ -0@ *+ ,v,> < -$, ,^ + ,v,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X -
p X - X - X ~ - p x I$P 1 ,> -X #p D F b &" .$ &$ 7@ "$ (@ . &" * -7)@
(@ $ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-i&lP 1 ,> -X D -V F -W b &"j0 D -W&" D -XS Ao-& -S " B -X-& -S[p (F{5F -H[w0F+ -R+ -J p h& `f~ + -R " B -W&" t D -W-& -S " B -W&$ 2 $ D -V -W,~ -V -W,~ &" " B $ D + -YY\ -ZQ< X\ -[* + 6 -[ 6`-[ S YVBG 9 -[G 9 -Z
G J -XGK/K -Xh0u -Jh0u -H ;F3 -=Fi -XFi -W :Q -SpX. -WpX- -V
Y]@ -
Y? ,V
\! ,h{-^ ,b{-X ,^{-O ,p{-N -{-N ,u{-M ,r{-M ,k
#Oe - #Oe - S YVBSo&BTE ) |,Qwg +qrc , Ulrg1 UlrT3 UlrC< UlrBK Ulr0O UlrB Ulr [ Z Y Y X pX. +~pX. +ypX- +pX- +x 9g +spWb ,
& u^
" r:^` ,0l5m ,A* ,:
( ,7
8@#x ,? lJ , e,( ,5S YVB Df ,< Da ,:
_
G , cl` ,/
8v: ,2 Lc ,@ t(B ,)4zp+q\6 . AwB P @ VK V4 PbXl VkBI
YPb K YY Yh[|gg MA
J TUR /}F
/|N @\: T(q5v X _<F
zR (TsT ` u6
(J" +l
&*
R W J
>
_Bb
_2 v ^,6 RW `
K^
2b
2 RYmt L (bIz+Z ) D' +P =" f7 c +F }K ` [C V )O +E U T O ~n +; HN v
+I5(3|p+/
a + G +& [ +# o +' ++ +- qG + %q + u3 +0K + /83 +
+ 1Q + 1Q~ +
a + G + [ + + qG + %q +u3 +0K + /83 +
+ %u + %u~*+ *` ' *` ; + O + %a *f c *j w *g &E *g 3 *P G *[ [ *b *h *K + *p ? *r S *N
_ *N
s *u qG *@ +w3 7P4 *@P5 *?P5 *?P6 *>0K *B
*> D 0
_@? *J_@?{ *J G *: [ *2 o *9 qG *- j *-
*,05 *-06 *.06 *. j */ j~P*/ G *) [ *$ o *' qG * * 05 * 06 * 06 *
* *" ~P*!(R h04 i -%
) +vi #R s %@ 97 %e ; & &O 3k ( o ' 3 ': o = # 'z g t p !:
W "
! ( u #3
)W 5 9 Z,A !2 % %/ 9K ` O & i 3 / u G '= os '^ 7 '} { x t (A
k "
!/ ) u3 #4
)Z I l0A $u a ) s , 9 a c + ' &R 4 . y [ } t C K 9 ! y u !?
"
!C "w uG )0
3 $ ] A 3.(a $( u ; e t? &y + z o ~ ts C ' !# z u' !?
"
!W " u[ )3
$ q .(u ul0i W( & O e tS 5 ? | ! '@ u D s ( !7 z u; (D
"
!k %" uo #7
3 $
2a ()
.E #b &/ %A >s %( 8 c &U tg 7 S '" ! u J
")
! % v #8
G $" 8A G 1 "(( ( %j 3 & w l t{ :
' ".
" ) v )4
[ )\ - * Z-} "z 3 : &W %+ ? %m
; (e b? ) v+ %
o $$ (e X +|a C{ 3 ? &k %F ?/ %n
O "9 bS ) v? %
% v)|A b m 5 &,)% ". & %I ?C %q
c "9 bg # vS %
)
a , I )|U ; ' ,. #r ' %) ?W %s ' ! v3 !M
w "< b{ # {? %
+ $* 9% e)|i > ] $((e 1 9 ; 2,a !: 3Y D + %J ?k %v
(h c )
{S #U
? % O 8*A [,u , 6 ? %w &. &G &Y us ' 7 &{ 'A z ' k (
'/ !
{3 (Q
"D c# )
S %
%a 4/jA $(! a Z c >+}E ! ,' 7 @ x E &[ &\ z_ ' K ' 'D { m I 'C ! {G (T
3 (k c7 ) {{ #_
? $/ U )}% ,.a "2 w K 4 E ,; %M z? y + C &o y zs G '# 'F {' n J 'W ! {[ (V
"@ cK ) | #_
S %
% tA *.A !A ,O ; zS %z ? &1 ' y { H s '7 %% {; o (
3 "@ c_ # |# #p
g )b tU &(.! = !T ,c < zg %| S G ' & { ' * 'K 'I {O u P ' (" | !S
G (n cs # |7 %
{ )e ti *% b e ^ 3 !n.! # ,w %O z{ ? &4 '+ {/ '
s B '_ 'L {c } ' U ( (% | (Y
[ "G h_ ) |K )6
$2 t} &( c y a, ! "B - A { S J '? {C M B 's 'M {w ; U h? ! |+ !^
o "K hs ) |_ )9
# % u -*a ! B {# % g &7 'S {W N ') , | 'b O X hS (' |? !^
"L i ) |s #u
7 )g #(A \ !! z,) t G # -3 %R {7 & { L ,? {k '
"N i #
_ #v
K )j 7(U ,(/ I !5 },= y, !N [ # 2 %S {K &: ,S { ' C X - 'P |3 w ( h{ !
? (Z
+ (o i/ #
s ):
c )k (i I*a i,Q |, o #! 23 %V { # O ,g | S W ', - $ 'e ( i (+
S !c
? (r iC )
)<
s )n , >(A j #*/pa $ 2G %X {s & 7 &= ,{ T k '/ -/ % 3 'h c i# (.
g (]
S (u iW )
)?
)p -pA "4(U % &I n #9/pu $ 2[ K
K Q - &a ' e -C 'R G 'k 3 d i7 !!
{ !i
? "U ik #
/ )@
s )s za :(% #w 2o L s &@ -# &d ' X e -W 'S [ 'n b iK !%
!j
S "W i #
C $
$< 3 8 zA t-pi +(4A N*4u &q ? $>0 a $S 3 %[
s T -7 &e ; ' h -k + o 3 b i_ (0
# (`
g "\ j )
W %
$< G C zU * E }*5 ' S $F 3 %\ & &C -K O ` '2 - + 'p G a is (3
7 !s
{ "\ n )!
k $
/ )t [ M zi !( % , ! !, ' ? $O 3+ R / & s V -_ &h c j ' o . 'V 's [ ` n_ !)
K !t
"[ o )$
%
C )v o T z} " A |0"a $e* '- !-q% "o S $^ 3? R C & &F -s &k w ' ; '5 n? 0 + o g ns !'
_ !z
# "_ o' #(
)C
W )y ! $ Z { #0"u I(a *5E 9."A $ g $ 3S %_ W &
Y 2_ c O k nS 1 ? ! ( o (5
s !y
7 (w o; #)
)E
k $D 5 b(5% R,"! !| 'U $ { %3 8? %a k & / &I 2s &m i c k ng 'X S % ( o (8
_ (b
K (z oO )%
)H
$E I + z ,A *" %2 8S X & C [ 3 &p 3 ' w '8 n{ 'Y ? ) + l o/ (;
s "
_ "g oc %
' )K
)z ] 2! ? ? lC5 )(!a ,U P/w $$ # %4 8g Y & W &L 3 &r ' q o 7 S 't ? m oC !,
"
s "j ow )'
; )N q S * e D-va "s0#E $p 7 %7 8{ %d k 3/ &u 3 ' t o# 7 g 'w S k oW (>
"
_ "m p )*
O )P
_ <+vA > ,} W K %: 9 ] _ 3C &x G n 3 z o7 '\ { , ? o ok !7
/ "
s "o p )+
c )S }
s g(:a Z - Y+vU 0 $Y _ %= 9# ^ ' & b 3W % [ n y oK < 1 S ( o !9
C "
! (| p3 ).
w )T qG P] P] *?" P^ Vh
P^
Q@ Vi P_
QA
Vi JG Vj P` QB Vj < QB Vk QC Vk Z' QC &Wj Vl +w3 7QD w04 } w05 ~ >w05 = :* =PH < PL /Q. /VV . +^2 .aR6: -Q. -VW ,Q/ ,VW +Q/ +VX *Q0 * } ) K{ ) HN (P4 ( w9 ' ('( 8P5 '
h &P5 & P6
P7
Q Fi P7
Q
4 P8 Q Q
Q Q UJ Q ~ 2 Q Q a Fi Q Q Q Q ~5Ws ~Q }Q } w 8 +E3 | G
| M { /C { :Pp : *Kj 9 u= 9Pq 8 09j 8
7Pq 7&r3 6V 6Pr 5V| 5
4Pr 4 3V} 3 D 0 2Ps 2V} 1Ps 1Pt 0X9[M 0 / *< /w0H . _ ( h 'w0I ' I 9g P\ RM> 0ORM> x 0 (R@\B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0