Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/infop.exe
There are 2 other files named infop.exe in the archive. Click here to see a list.
?p @ ?x S:5| Kb)F||F` INX Q F: { A) '[?{B E@o (# (%
t4 t4 t-\ &]4 ~ $ D gO@ f $ D g gX@ 8 " 9b + =(34X,'WMU'/28X,'FILE MANAGEMENT') @@ i@@ h@@ fX@ @ " Ab + D(1X,'ENTER OPTION.'/) gX@ F " GB + H(A5) v3D + R v3D + 6 w3D + B w3D + ? x3D + K y3D + Q-\ H+ D fX@ T " Ub + j(' ','INDICATE YOUR METHOD OF GENERATING NEW FILES BY '/1X,'ENTERING 1 TO TRANSFORM AND/OR GROUP,'/1X,' 2 EDIT, '/1X,' 3 TO COLLATE, '/1X,' 4 TO SPLIT INPUT FILE INTO SUBFILES.'/) gX@ l "
B @@ 6b 0b 7 + o4 s4 s4 s4 s-\ H+ j fX@ t " ub + (' ','INDICATE YOUR INTENTIONS AFTER THE CURRENT FILE HAS',' BEEN PROCESSED.'/1X,'ENTER 1 TO TERMINATE ,2 TO PROCESS A FILE AGAIN.'/) gX@ "
B 6b 0b 7 +4 4 -\ H+ + (I)~6b 0b 7 +4 4 6 2$ + $ 2. D i+ $ 2. D i-\ *N4 i4 4 4 4D -\ +(6b 0b 7 +!4 *4 14 #-\ +(-\ 4
+ & -\ #4 y6b 0b 7 +)4 #4 R $XD ,-\ 4 ,4 4 64
4 4 4 4 + & $XD 3-\ g4 34 4 4 4 6+ & $ D $ D } -\ #4 y4 t4 ~4
4 t4 t $ D i $ D h+ $ D $ D $ D i+ $ $ D $ D $ D i } -\ #4 y4 t4 ~4
4 t4 t $ D h+ $ D i } $ D -\ _4
-\ #4 y+ ' $ D $ D } -\ #4 y4 t4 ~4
4 t4 t $ D i $ D h $ D $ D gX@ ] "
B $ 2. D i $ iD w i5D dY fX@ c " db ( + g(' FORMATGFORRINPUT?',/)LE i( E& . IF {-\ !4 f4 g4 64 4 z4 {+ o(16A5)TION zND N {XD + -\ +(+M H + 0 FG.INPOUPI ALLQTTR/GREDITMCOLLAUNCOLL' 3 INVAL 0(A5,F6.0)M ,'/1X,' 4 INPUT.DATA : Z 1 . +@@3: i9 O D
" 9 + (1X,'TYPETRANSFORMATIONS.'/)+ gX@ +" |B +: +Z 1V V4 V4 |4 |4 |4 |4 |4 4 >4 |4 V4 -\ H+
O
, 3l
O
. 2.G0 3p
G
G G 4$ * 44D F !3D 4+ I5 "3D 4+ O+ *: 3+ 4 3 O * 22*,g
O
, 3l,g
O
. 22.G0 3p G G
G
G G 4$ * 44D F !3D 4+ G5 "3D 4+ v+ *"$ . 3 D 5 4 Z 1 h, Dh,h^ Dh^3: 59 y+ Q
O
, 3l
O
. 2.G0 3p
G
G G 4$ * 44D F !3D 4+ "3D 4+ + * 4 3 < F <+ I"$ . 3 D 5 4 Z 1 h, Dh, h < Dh <3: 59 + Q
O
, 3l
O
G
G G 4$ * 44D FF !3D 4+ 7 "3D 4+ 9+ * 4 3 < F <+ I"$ . 3 D 5 4 Z 1 h < Dh <3: 59 <+ Q
$ 3. f3: 59 J 4 4 + P(10F) $ 2 32$,g O ( 3h,g O *
2* 5g
O
, 3l 5g
O
. 22.G0 3p G G
G
G G 4$ * 44D F !3D 4+ i "3D 4+ t+ * 4 3 < F < 4 3
$ 4. (
$ 3. f F f3: 59 n+ I"$ . 3 D 5 4 Z 1 h, Dh, h < Dh < : Z 6 $
$ 12 . p3H f3: 59 y3 13: 59 v+ Q
" OB : Z 1 $
$ 3. f3: 69 4 4 $
2$ 6g O & 3f 6g O ( 2
32((^g O , 3l(^g
O
. 22.(,g O 0 3p(,g O 2 222(
G G G 4$ * 44D F !3D 4+ . "3D 4+ 6+ * 4 3
$ 4. (
$ 3. 6$ f F f3: 69 1+ G"$ . 3 D 5 4 Z 1 h, Dh, & ^ Dh^ h
$ 1 . p!H f3: 69 = 13: 59 8+ Q"$ . 3 D 76b /0b 7 +F4 i4 t4 I4 I $ D 3 $ 3D .+ { $ 3D i+ R fX@ N " Ob + R(1X,'ENTER CONDITIONS.'/) gX@ T " |B : Z 1
(
Z 4 4 + e(A1,I,F,A2,A5,I1) # 32D
Zg O #2H
Zg O
$2J
Zg
O
$2L
Zg
O
%2N
Zg O %2P
Zg O G G
G
G G ( 23( vg O * 2j vg
O
A A 4$ } -\ H+ R 44D !3D 4+ "3D 4+ &-\ H+ R
(
Z + (A1,I,A5,A2) # 32D
Zg O #2H
Zg O
$2J
Zg
O
$2L
Zg
O
%2N
Zg O %2P
Zg O G G
G
G G i3( vg O * 2j vg
O
A A 4$ }+ |: 3+ R 4 3 v F v 4 3
( F
( 4 3
Z F
Z> 3+ R 4 Z 1 h v Dh v h
( Dh
( h
Z Dh
Z3: 59 '+ %"$ . 3 D 8 $ D 3 $ 3D i+ 6 fX@ 1 " 2b + 6(1X,'ENTER BOOLEAN EXPRESSION.'/) gX@ 8 " ;B 3
> 4 4 + =(I,A3,I,A5) & 32D >g O &2H >g O G ( 23(
g O * 2j
g
O
A A 4$ X 32D >g O ( 23(
g O * 2j
g
O
32F 8g O A A A 4$ S+ W gX@ T " |B 9 !3D 9+ i-\ H+ 6 44D ] !3D 4+ ^ "3D 4+ b+ W: 3+ 6 4 3
F
4 3 > F >+ 6"$ . 3 D 5 4 Z 1 h
Dh
Hh >,Dh >3: 59 e> 3+ 65$ 3D i+ u-\ U4 '4 94 f4 g4 '4 :4 iO fX@ pO" qb + t(' ','ENTER IDENTIFICATION.'/) gX@ v " |B n4 1( i " |b n4 + ~(16A5) 6b /0b 7 +4 4 4 4 fX@ " b + (1X,'IF YOU HAVE MISSING DATA,ENTER A SYMBOL FOR IT '/1X,'FOLLOWED BY COMMA AND A 1. OTHERWISE ONLY ENTER A RETURN.'/) gX@ " OB j h fX@ " b + (1X,'DO YOU HAVE HEADER CARD TO BE BYPASSED? YES OR NO'/) gX@ " |B : (3D :g O (3F :g O A 4$ t (2D :+ * hX@ ( " |B n4 fX@ , " -b + 0(' ','DATA BEING PROCESSED.'/) hX@ 4 ,Q" 0 `X@ "3 =X@ "3B : Z 3 . +3: -9 5 : 26b /0b 7 +;4 C4 N4 N4 C i. +!& F: 2 + ) F +` 2 @ + 9 +XD H-\ }4 74
4 >4 v4
(4
Z4 ; ;4D 06b /0b 7 +V4 t4 X4 C4 X +Q" 0b : Z 3 . +3: .9 Z : 2 i. +@@+ 0
gX@ b " eb
2
, 2 + q(1X,'THE FILE CALLED ',A10,' HAS ',I5,' RECORDS.'/' THE FILE CALLED ',A10,' HAS ',I5, ' RECORDS.'/) : 1 $ 3D .+ + -\ +(-\ H+ -\ U4 '4 94 f4 g4 '4 :4 i@@ j@@ h+ * D 7 i D v!$ D
( # D
Z $ D
+ u@@ /+ |+$ 2D i+ + +XD - ,XD -\ 4 -4 .4 4 - .5D + 4 -2$ .+ * *, p , p , p ,!p Zp , ,!p ,!p ,!p ,!p + N ) *\ /,Ap / ,Ap ,Ap -|p 0000, END ALTERDELETC EQ GT NE LT GE LE OR AND NO YES CARD# INPUT.DAT : Z .
D .
D . D h4d #" j . 4D ' 4d #" j . 4D '6b 0b 7 +%4 14 H4 d4 e4 h4 4 4 64 +4 ^4 c4 ]4 4 44 #4 '4 V4 j4 4 4 4 4 . . ' F+ { . 4D H5d J@ @ ` 4@ J gX@ ; " <b + G(' ','THE VALUE OF VARIABLE',I3,'IS NEGATIVE,EXPONENT'/1X,'IS FRACTIONAL,AND YOU REQUESTED XK**C'/) -\ &b4 g+ ) . @@+ { . $ XD M-\ %c4 M @ ` 2` + T . , $w . D + { gX@ V " Wb + ](' ','X(K)**C FOR VARIABLE',I3,'IS TOO LARGE'/) -\ &b4 g+ ] . . . D + { . . . D + { . 3d g O 1h g O A 4$ gX@ p " qb + ~(' ','VALUE OF VARIABLE',I3,'IS TOO LARGE. IT SHOULD BE'/1X,'POSITIVE AND LESS THAN OR EQUAL TO 1.7E38.YOU ENTERED CODE 5.'/)-\ &b4 g+ 7 . $ XD -\ %j4 . @+ { . 2$ + gX@ "
b . + (' ','THE VALUE OF VARIABLE',I3,'IS TOO LARGE.'/1X,'IT''S VALUE IS',E17.8,'. IT''S ABSOLUTE VALUE SHOULD BE LESS'/1X,'THAN OR EQUAL TO 88.02905. YOU ENTERED CODE 06.'/) -\ &b4 g+ 7 . $ XD !-\ %E4 ! . @ . . D + { . . D + {!$ $ . &'XF 1-\ &-4 13 + C gX@ 4 " 7b . + A(' ','VALUE OF VARIABLE',I3,'IS TOO LARGE TO BE A SINE'/1X,'ARGUMENT, IT''S VALUE IS',E17.8/) -\ &b4 g+ 7 . $ XD E-\ &4 E . @+ {!$ $ . &'XF N-\ &-4 N3 + _ gX@ Q " Tb . + ^(' ','VALUE OF VARIABLE',I3,'IS TOO LARGE TO BE A COS '/1X,'ARGUMENT, IT''S VALUE IS',E17.8/) -\ &b4 g+ 7 . $ XD b-\ &4 b . @+ { . 3d g O 1h g O A 4$ | gX@ l " mb + z(' ','VALUE OF VARIABLE',I3,'IS TOO LARGE. IT SHOULD BE'/1X,'POSITIVE AND LESS THAN OR EQUAL1.7E38. YOU ENTERED CODE 11.'/) -\ &b4 g+ 7+ { . $ XD -\ %c4 . @+ { . 2d + gX@ " b . + (' ','VALUE OF VARIABLE',I3,'IS TOO LARGE,IT''S '/1X,'VALUE IS',E17.8,'IT''S ABSOLUTE VALUE MUST BE LESS THAN OR '/1X,'EQUAL 38.3045. YOU ENTERED CODE 12.'/) -\ &b4 g+ A!$ . ', $w . D . 4D 1 gX@ " " $b + /(' ','SOMEONE GAVE INSTRUCTIONS TO DIVIDE VARIABLE',I3,/1X,'BY VARIABLE',I3,'AND VARIABLE',I3,'IS ZERO'/)-\ &b4 g+ K . . . D + {!$ . 3$ g O " 2h g O A 4$ Q gX@ = " ?b + P(' ','VALUE OF VARIABLE ',I3,'IS EITHER LESS THAN -1'/1X,'OR GREATER THAN +1.0 ;THEREFORE IT IS OUTSIDE OF RANGE '/1X,'OF ALLOWED ARGUMENTS. YOU ENTERED CODE 14.'/) -\ &b4 g+ T . $ XD T-\ $+4 T . @+ { . 3d + [ . @@+ { . !& F+ { . . 2$ + c . @@+ { . !& F+ { . $ XD h-\ $A4 h . @+ {-\ %c4 . 3 + gX@ o " qb + }(' ','C TO THE POWER OF VARIABLE',I3,'IS LARGER THAN'/1X,'1.7E38;THEREFORE TOO LARGE FOR PDP-10.YOU ENTERED CODE 18.'/) -\ &b4 g+ ] . ', $w . D + { . F+ { : Z . &
$ . + . 3D'u+ F+ { . 3D + + { . F+ { . 3D + + { . . ' F+ { : Z . &
$ . . 3D'u+ #3: 9 + { . . ' F+ { . j F+ { fX@ + " ,b + 2(' ','ENTER POSITIVE VALUE FOR VARIABLE ',I3/) gX@ 3 " 6B . + 7(F) + # fX@ 9 " :b + @(' ','ENTER SMALL ENOUGH VALUE FOR VARIABLE',I3,'.'/) + 2 fX@ B " Db + J(' ','ENTER SMALL ENOUGH ABSOLUTE VALUE FOR VARIABLE',I3/) + 2 fX@ L " Nb + S(' ','ENTER NON-ZERO VALUE FOR VARIABLE',I3,'.'/) + 2 fX@ U " Wb + \(' ','ENTER AN ACCEPTABLE VALUE FOR VARIABLE',I3/)+ 2 fX@ ^ " `b + u(1X,'ENTER VALUE FOR VARIABLE ',I3,' FOLLOWED BY VALUE'/1X,'FOR C SEPARATED BY COMMA SO THAT EXPONENTIATION IS LESS THAN '/1X' 1.7E38. BOTH MUST BE ENTERED EVEN IF ONE IS DUPLICATION OF '/1X,'WHAT YOU HAD.'/) gX@ w " zB . + {(2F) + # 3: 9 + 4 Z
\
,!p , p , p , p , p , p , p , p ,!p ,!p +
\ -|p !S>;?|Lx!v v~ Ye 0 7 @@ m : 3Z n@@hnO . k4 3D n9 e+ . l3D + 3 eX . l3D + 9 f+ . l3D + >Y f . l3D + DE g3 . l3D + IU g . l3D + O4 gX@ ) " +b ! + 3('p','INVALIDSYMBOL INCONDITION',I3,'WITHINAGROUPRSUB'/1X,'ROUTINE.'/) -\ +( n. i n. l2$ + 8 n!& Fn+ T n. i( Y n. l2d + >E n!& AFn+ T n. i- 4 n. l3d + C n!& Fn+ T- n. i n. l3$ + I+ n!& XFn+ T n. i+ ( n. l2D + N n!& Fn+ TR n. iP E n. l3D + TX n!& 'Fn' n3: j9 R jXD YF kXD Y-\ /4 o4 m4 Y4 Y4 j+ a4 Z h \ h i, p ,!p , p , p , p , p , p ,!p + h h\ m,Ap / ,Ap -|p LT LE GT GE EQ NE : D < <. 9 D : $ 3d ;+
+ c(4I)
5D d+ i5D h fX@ g " hb + k(' FORMAT FOR INPUT?',/) XD p i( & . F
-\ !4 f4 g4 p4
i5D u fX@ t " ub + x(' FORMAT FOR OUTPUT?',/) XD } i( & . F
-\ !4 f4 g4 }4
+ 4 Z \ ,!p ,!p , p , p + M \ / ,Ap ,Ap -|p 0 $ 3D i+ fX@ " b + (' ','ENTER IDENTIFICATION FOR EDITED FILE.'/) gX@ " B x4 @@ u-\ U4 n4 u4 f4 g4 n4 v4 i+ (16A5) $ 3D i+ ( : Z v o2Dhw+ &1: 9 "+ ( " b x4 hX@ + sQ" 0 6X@ "3B : Z v . q3: r9 , sQ" 0b : Z v . q3: r9 2 : u+ ( gX@ 8 " :b u
p + @(1X,'THERE ARE ',I5,' RECORDS IN FILE CALLED ',A10,'.'/) $ 2D i+ B+ l fX@ D " Eb + O(1X,'ENTER NUMBER OF RECORDS WITH MISSING DATA TO BE'/1X,'ADDED TO YOUR FILE. IF NONEENTER 0.'/)X@ gX@ Q " RB w' + S(I)F F w5D U+ lL i5D X fX@ W" Xb + [(' FORMAT FOR OUTPUT?',/) sXD ` i( & . F t-\ !4 f4 g4 `4 w4 o4 t : Z v sQ" 0b 3: w9 c+ l4 Z p \ p q, p ,!p ,!p , p , p +
"
B i + h-\ $4 c4 h @ f : Z j Z h-\ &K4
d4 h3: f9 $ 3D i+ ] i4D + fX@ " b + "(1X,'ENTER FILE NAMES,ONE PER LINE. FIVE CHARACTERS OR',' LESS PER FILE NAME.'/) : Z j gX@ $ " 'B hW 3: i9 #+ ((16A5) $ 3D i+ ; i5D , h D i fX@ - " .b + ;(1X,'ON EACH LINE ENTER SEQUENCE NO. OF FILE TO BE '/1X,'COLLATED FOLLOWED BY COMMA AND NO. OF CARDS TO BE COLLATED.'/) gX@ < "
B : Z j k3: i9 = $ 3D i+ Z fX@ D " Eb + K(1X,'ENTER NAME TO BE ASSIGNED TO MERGED FILE.'/) gX@ L " 'B j -\ &4 W4 i4 4 j4 k4 O gX@ S " Tb j + Y(1X,'FILE ',A5,'.DAT HAS BEEN COMPLETED.'/) + b e D j-\ #
4 e4 j+ N $ D k+ "+ b4 Z f \ g g,!p + f g-|p DSK OUTPT
-X@ "2 "
a2D g O a2F ~g O b2H ~g O A A 4$ b2D g O b2F g O b2H g O
c2J g
O
c2L g
O
d2N ~g O d2P ~g O A A
A
A A A 5$ q $ . u6b 0b 7 +o4 4 W+ x e D ~ b D ~ e D f D : Z w b Dh }1: 9 v-\ #4 s@@ w@@ x@@ x@@ y@@ y@@ z b D b D b D s@@ z: z $ 3$ z+ ! f z3D }+ f z3D }+ g z3D }+ + $ . z D x $ . z D n : Z w h { Dh }2z n=
!: Z w . z b F }1: 9 $ .D z+ $ . z D x $ . z D o : Z w h y Dh }2z o= $ . z D o z Z w b Dh }3: o9 $ .D z+ z D y+ x4D 0 X@ "2 " * $ . x D p & . x Z w }3: p9 ' + ,(12A1) X@ "2 " /b y z + 0(2O) X@ "2 " 8 $ . x D p & . x Z w }3: p9 5 + :(10A1) x4D A sX@ "2 " @ : Z w }1: 9 = + A(5A1) y4D N X@ "2 " @ $ . y D q & . y Z w }3: q9 G X@ "2 " Mb { + N(I) b2D s+ Z b3D + S g D s+ Z"$ 3D u+ V h D s+ Z u5D X h D s $ 2D u+ Z i D s-\ &K4 s4 s g3D s+ q i3D s+ d i2d sg O j3& sg O A 4$ q+ [ j D k D $ D { s D |-\ &K4
k4 s-\ &m4 s4 4 | $ 3D |+ o $ .D + j D D b2D + x u5D t l D $ 2D u+ w m D m D $ 3D u+ -\ &m4 s4 4 |4 y4 z |4D tX@ " b + (' FILE DOES NOT EXIST'/)"$ 2D u+ -\ +(+ 7-\ "4
-\ #4 s4 l4 w4
4 y4 z+ [ $ 2D {+ 4 n4 n4 {-\ +( sX@ + [ tX@ " b + ('-THIS ANSWER DEFINES WHERE THE PROGRAM IS TO FIND THE INPUT DATA. IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH OR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICES',3X, 'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/ 6X,'DSK:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6X,'CDR:',6X,'CARD READER (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X, 'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X, 'MTA#:',5X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4) IF DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVEN, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///) tX@ " b } } + R(' EXAMPLES: DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/ 14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE: THE FOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1) SAME COMMAND. IF THE DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENTER "SAME"'//' (2) FINISH COMMAND. THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X,'PROGRAM. THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED. FAILURE TO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3) A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///)-\ #4 t $ . u6b 0b 7 +U4 74 ? tX@ X " Yb + T('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALLY CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X, 11('-')/6X,'TTY:',5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'LINEPRINTER (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)'/ 6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILENAME AND EXTENSION MAY BE USED.)'/ 6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO OUTPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X, 'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4) IF LPT: IS LISTED AS THE OUTPUT DEVICE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'/// ' EXAMPLES: LPT:/2'/14X,'RPT.DAT'/14X,'DTA0:NAME.DAT'///) + R+ [4 Z q \ r r,!p ,!p ,!p ,!p ,!p ,!p ,!p + 5 q r\ v/ ,Ap ,Ap ,Ap -|p N I F M A S P L E H D K : [ / DSK TTY CDR LPT DTA0 DTA9 OUTAAA.AAADSK INPUTOUTPT.DAT $ 3D i+ J fX@ " !b + ((' ','ENTER IDENTIFICATION TO BE OUTPUTTED WITH MERGED ','FILE.'/) gX@ * " ,B ! ?4 + -(16A5) -\ #
4 04 > : Z @ 0 . ?2D + 41: 9 /+ 6 " ,b
! ?4 fX@ 8 " 9b + @(1X,'DO INPUT FILES HAVE HEADERS TO BE KEPT OUT OF MERGED ','FILE?'/) gX@ B " ,B A 12D Ag O 12F Ag O G 4$ J-\ &b4 g+ 6@@ A@@ B@@ B@@ C@@ C-\ &K4
24 3-\ #
4 04
3 B4D R-\ # 4 34
4@@ A $ / C. = D ?-\ $4 54 ? @ : : Z @"& . . C <. ' D D@F D-\ "4
D Z ?-\ # 4 ?4
D3: :9 W C D E C4D i : Z E " ,
X@ "3B ! ?4 " ,b
! ?4 3: B9 b $ / C. = D ?-\ $4 54 ? @ : : Z @: E E. > D F A5D s F.D B!$ 2D Cg O & 2F ig O G 4$ } 12D A+ } X@ { " ,B ! ?4 : Z E @X@ " , X@ "3B ! ?4 " ,b
! ?4 3: F9 } @3: :9 n $ D A+ _ E D F-\ #4 0-\ '44 04 64
64
84 9!$ D C B D B $ . C D ?-\ $4 ?4 = @ C C2$ =+ + N-\ #4 3 > D G 7 D G-\ #4 0-\ '44 04 64
84 G4 9 gX@ " b F. < + &(1X,'NO MORE RECORDS ON FILE CALLED ',A5,'.'/) + ,4 Z ; \ ; <, p ,!p , p ,!p , p , p + ; ;\ ?/ ,Ap / ,Ap -|p
NO YES DSK TEMP2 TEMP3 TEMP2.DAT TEMP3.DAT 6 @@ u $ 3D i+ U fX@ K " Lb + Q(1X,'WHAT IS NAME OF INPUT FILE ON DISK?'/) gX@ S " TB
r + U(A10)-\ "4
r-\ #4 f4 g4 v4
r4 g4 g $ 3D i+ j fX@ ] " ^b + j(1X,'ENTER NO. OF OUTPUT FILES AND INTEGERS WHICH INDICATEHOW '/1X,' MANY RECORDS GO INTO EACH OF OUTPUT FILES?'/) gX@ l " pB v : Z w |3: v9 m + q(21I) $ 3D i+ | fX@ t " ub + |(1X,'ENTER NAMES OF OUTPUT FILES AT RATE OF ONE PER LINE.'/) : Z w gX@ ~ " B hj 3: v9 }+ (A5) $ . v D s-\ $4 g4 s @ o : Z w Z s-\ &K4
h4 s3: o9 $
-D w@@ x+
i $ . v/ x D s-\ $4 g4 s @ o : Z w"& . . x j D x@F y-\ "4
x Z s-\ #
4 s4
x3: o9 v/ x1d + -\ #
4 w4
j x D y $ . v/ x D s-\ $4 g4 s @ p : Z w: y y | D z : Z z " S ?X@ "3B .4 : u wX@ + " Sb .4 3: z9 % w3: p9 " v/ x1d + $ . y Z { h | D { : Z | " S ?X@ "3B .4 wX@ : " Sb .4 3: {9 5 {3: v9 3+ $ . v D s-\ $4 g4 s @ p : Z w Z s-\ #4 s $hjXD G-\ ')4 k4 G3: p9 C-\ #4 f-\ #4 w $ . x D s-\ $4 s4 v @ x v3d x+ U-\ '44 w4 k4
l4
m4 k+ + U(16A5) fX@ V " Xb
r u + ^(1X,'THE FILE CALLED ',A10,' HAS ',I5,' RECORDS.'/) + c4 Z q \ q r,!p Zp , + H q q\ s\p ,@ ,Ap -|p DSK TEMP1 TEMP2 6 TEMP2.DAT TEMP1.DAT INPUT.DAT @@ !#@@ !!@@ !$ $ ( D !$@@ !% !"5D ;-\ +( $ 2D !"+ ? ! X@ > " ?b + A(' FORMAT'/) $ 3$ !"+ F ! X@ D " Fb !" !N + J(' FORMAT: (',A1,'-TYPE ONLY)'/) ! X@ K " OB : Z !% !&1: (9 L + Q(80A1) $ 3D !$+ _ !2D !'g O ! 2F !'g O ! 2H !&g O A A 5$ Z+ ! : Z !% . !! ! F3: !"9 [ $ D !$ $ 3d !"+ b $ $ !" D !$ : Z !% ! 2Dh!&+ g3: !$9 c $ D !!+ ! ! !%2D!&+ f $ D !& !$X@ n !&. !! X@ "2 " r : Z !% !&3: !$9 o + s(80A1) : Z !% ! 2Dh!&+ v: !% ! 2Dh!&+ x> !%3: !$9 t $ 3d !%+ {+ ! $ .D !& $ . !&3d !"+ ! $ . !"/ !&$$ D !$ $ 2d !$+ ! ! X@ ! " OB : Z !% !&1: (9 ! + j $ 2D !#+ !
-\ +( ! X@ !
" ! \ + !(' ERROR"IN FORMAT,1TRY"AGAIN.'/)7$ AD !#+ "7+ !4 Z ! ,\ ! ,^ ! ,!p ,!p , p ,!p ,!p ,!p + 6 ! ! \ !"/| ,Ap -|p M@ "2A "S@ "1 (< )\ "1 I F A \ "5 @ "5< "=0< 0| + 1\ + !^,>p!OZ p!O+ p @ h"@ p"@("@0"$@ x"@ "@8"&@("@ P" @ P" @ h"@!f@ !f@" @" "8"[ (/< 0"` S<p X< 0 p 3@ ">+ !d*| !`-< "J Z` !P+ "! @w+ !b< "> p 7 p + ",> ,> ,> &w p , !|,& .< 7@p + !y p , !|" "? "-.< p ` "? w,& ,& 5 !k.< p d "@: ." Q ,& p ,& >` 9 !v.< 9 !l@@ ,^ ,^ ,^ + "d @ @ & 0b ." ." )B}5@ !},~ m< !< P\ "1< "> p [ p l< 0@X + "Z p .< / p Q \ "2+ " @@ "2!< P\ "17@ "4+ "
& "FU` eB + "<@ )@ G
" + "8
& "J+ #S6$ 1 ,> +*. @
p .4 6$ % "*.
.4 "2. "1SEQIN @ "BSEQOUT @ "D@ "$
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + "O ~ + "ZZ . \x <x *<x .-> &3ez+ "V!" b + " "W b + Z . h + gg M?Th
& "\ b + "J,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* # ** ,^ ,~ * x ,> < # *< # p Z@ "v@@ "v@@ "w #7`|+ "jP w,~ "p h a`~ + "oh ``~ + "p$ #7!"qd #8/"+ "jP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> +*,> Zp @ "v\` "u < "v, ,^ ,~ SMI 1 ,> +*, "c #9 B"v+ #_MI 1 ,> +*, "c #; B"v+ #I5R1 ,> +*, "c #< B"v*\ #$7Ap X" #= B"v/& p d"~ l" B"v*\ #$/& p d"~ l" $ B"v*\ #$/& p d"~ l"
B"v*\ #$Sp *\ #$/&Xp B "@@ " #> B"v*\ #$/& p d"~ l" B"vRF "u < "v, + "aEV4i91 ,> +*+ #2S ,i@1 ,> +*+ #2_ ,i@1 ,> +*+ #2K>2 1 ,> +*+ #2K>40 1 ,> +*+ #2[<I71 ,> +*
& #> w @ )@ .
" 5B #3
& #D,~ ` .
.4 SEQIN ^ #8SEQOUT ^ #:RANDOM ^ #;SEQINOUT "
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> +*O@ $+ #IgR~@1 ,> +*@@ $,> ,> @ 6 w+ #V" $0B + #Q!"A`X#p 5@ #N/#p !" X#p + #V\p + #Va.9'1 ,> +*,> ,> O@ $+ #V,>
6 + _ 4` #^"` Q@ ,> < $, ,^ ,> < $,
,^ *b #[+ #i,> < $ , ,^ 7@ $+ #d,> < $
,
,^ + #f,> < $
,^ Z 5" #i,> < $,
,^ , 7@ $,
,> < $, ,^ , ,> < $, ,^ ,> < $,
,^ (@qd 1@ ,,
1@ #+ #w0@ *+ #i,> $< $, ,^ + #i,^ ,^ ,^ ,~ ('eType G tohContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP .p X # p X $ p $ p j $ p * X #y X ~ # p x C6Md 1 ,> +*, $#,~ [&r 1 ,> +*, $#,~ [&r 1 ,> +*, $#@ ,~ C6Md 1 ,> +*, $#` ,~ ,> e|P w+ $&2ap p *| $%a|+ $* p h" ab~ + $%,^ ,~ CNM` 1 ,> +*#p 2b $<+ $9"p p + $<4@ $7 @ $;,> < $=, $\,^ p B $;,> < $=, $A,^ ,~ $;7ap "` ,~ +P "\0$=@ ,~ 9~j 0 x $;ASIN OF ARG > 1.0 IN MAGNITUDE CR
$k#p + $^ ,~ > attempt to take SQRT of negative arg Kc3@ p p + $zKc3K , $z
,~ Kc3J , $z ,~ Kc3I , $z ,~ Kc3H4B %5@ $~5" %+D "\0
$}U ,~ ,> ,> # $ )D /$ @,> 4d %X $ (F) + %5F %5" %"` , % + %# ,> < %, %j,^ @ ,> < %, %E,^ 5& %" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + % Kc#K , % @ ,~ Kc#J , % @ ,~ Kc#I , % @ ,~ Kc#H4B %B5@ %"5" %,+D "\0
%!U ,~ D %B!$ @ %A B %A5" %)#` + %>, %)!" B ,~ + %-(BdB + %-5B %( %B,~ +7` %A+ %5`d +D "\0%1+D "\0
%1U `d @ 6 %A+ %, %A`B "` + %,/ %Cid + %8+D "\0%1# %A,> < %D, %j,^ @ ` %A @ ,> < %D, %E,^ + %2U", %) %A+ %-+ %& ! ,~ x Kc 1 ,> +* p 3" %a+ %K3b %`+ %M+D "\0
%JU ,~ +D "\0%L ,~ D %a F %b@@ %b%" j" % %_)/;` : XD %[5f %TaF + %T.& @(|h& f %b %^ %_ %^ %b %] D %`@ %a %b,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> +* p 4@ %z @ %i,> < &, %j,^ %i,~ {e^b C2|p 1 ,> +* p 5` %n4@ %z+P "\0&#p 3@ %}+ %|) r. !@ &! n@ &(|h" %~ %~ B & % % & & & & ,~ +D "\0
%{ &,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x %iATTEMPT*TO TAKE LOGOF NEGATIVE ARG G? @ 1 ,> +* p &* &++& + &g&t@ 1 ,> +*3p &++= + &G? 1 ,> +*Rp &++ &g&p 1 ,> +* p pB &*#` 3b &)+ && D &, &+3b &,+ & %" (D?d$ h" @($ )B " &; Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH I4:1 ,> +*Z .@ 6kp 2j8 M+ &[ !p Q A` &T\$}
4L &S/, L 8$ &P.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& &U < &[,
iSN ,> +*@Ap O
, 7 OAp ,~ I5r1 ,> +*O@
, 4" &f, (`` ,~ < &g,
4 4 &i4 ' KbN=1 ,> +*O@ ' p 4B &q, (4@ &q9 &u9 &tKbN= 1 ,> +*@@ '!$Lu ` @Ap `` a` + 'a` + ' D &lA (` &z/" #B &k@@ &l !p X@ &h,> < &h, 'u,^ 7@ '+ ' OAp + ' #p Q"A` $ 1@ + '0` =d '! H: @ &j@@ &ka|+ ' [ p d 0@ + '[ p d 0@ + '+ '_ w6@ '_ w#` 1 + 'Sp Xp @ &k
&k+ '@ &i+ '+ '
& '+ ' Ap ,~ ERROR ON OPEN!
h 4 4 'W4 'fX 4 'g4 'g4 4 'g4 'gX 4 'g4 'h4 4 'g4 X 4 'g4 'h4 4 4 'gId]1 ,> +* !p X@ ' ,> < ', '4,^ ,~ aJ~I51 ,> +* !p X@ ' !p X@ ' ,> < ' + '2et21 ,> +* !p X@ '" !p X@ '",> < '!, '4,^ ,~ et91 ,> +* p 4B '7, (5@ '8!$Lu ` D '`A (` ':/" #` XB '` ^ 'f@@ 'Y p 4x 'V0x + 'V, `'?+ 'V 'C 'I 'I 'I 'U 'U #p 1 #p XB ', 'b, '`@ 'W,~ @@ 'W@@ 'X@@ 'Y 'W+ ,~ #p XB ', 'b, '`@ 'W+ '\@@ 'Y1x + 'Q p XB ',> 'X, 'b,^ X@ 'X & 5B 'S p ` 'i 'W+ '[,~ , 'B+ 'I 'f ,~
& 'i+ 'V
& 'k+ 'V
& 'n+ 'VR 'X5@ '_! H: @ 'X+ 'K
& 'p+ 'V + 'Z,~ ,> < ', 'u,^ 7@ 'f,~ + 'Y 6$ 'XILLEGAL FILENAME. DEVICE NOT AVAILABLE.
RENAME ERROR!
NO SUCH FILE.
H H 'tH 't G.t21 ,> +*@ @Ap ! A`.!p @ 'r 'r @ 's@@ 't@@ 't & " 'r< 1D + (- (
=b '| 'r< 0D + ( O " 's @ 's 'r< - (
=b (7@ 'tOAp !p < , 't, 't,~ <& ( 'r1D + ( Ap + ( 1D + (1$ + (1d + (0$ 0d -+ ( $ D 's+ (
" (., (;0@ + (* p 4B (-L ad+ ()`b+ (* $ 0d "+ (-&$ $& (&}Z .G (/.& $ .$ 7F + ( ,~ A$ &$ (D G$1$ ((D (D
` 5@ (, .2b M+ (( L.& 7D !$Lu+ (+2" (/+ (% &p , (3 ` ,~
& (0 < (3,
.p M}ILLEGAL DEVICE NUMBER!
" (:, (; ' Q&A` (;@ 1x ,~ 18 0.8 X =` (6,~ . H a|+ (?0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> +*, *
+ (_@ , )4, *+ (_Z" 6Ep " B` " b (g $ 7cp $ 1B $ d (h, (a, )R+ (`6cp 0b " b (h$ ) ({." XB` &$ @6@ .$ .$
a|+ (X[p d p0B + (\+ (Z_w#` 1" + (\6cp 0d $QD` , ) + , * ,~
& (i+ (]
& (k+ (]@b -p . Q,A`
(m 4P (g1P + (n/0 P =n (c,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
(n+ (cYC G aS a3 S; YC&<G<aS<a3&<E$;w |x(u P(p B` 1T !"L b @ XB` O@ ) *" )@ , *
+ *!, 2, ){@ !.~ , *` + *""" 1T "" QB ), * f + 1$ 9 ).+ * 8 (u@` (u *$*( )
*+1T *+ B` " B` \"
b @ B` \" , b !" Z (Brb *, b
B ) b
+" `B` !" 2 b `b `b + )N!" 2 b !` 2B` + )N!$ 2 d !$Lu+ )Q *- b *- *. d !$Lu B ) D ),~ @@ ) *.*( ) B ) D ) BX B` DX Z )(D} d ` D ) DX " 2D` b */d " b */, *@ )+ *0 ) BX @@ ) *2 b $+ )b!" )X"X *"X !"`
+ )u *" )@ , *
+ )u!, 2, ){B , *" X
) ), * + )u JX , * + *
& *3 " b */a` + )s+ )\a` + )s, * )+ + )s x H * h &( 2
P(p *9. ) &. .0 P `bp + )d
@ ), *+ *`L+ )} )+ * ( !*Lu@
, *
,~ : x ,~ " B *!O@ )O@ )g " ?$ *!+ * d 5D **l! ): +@ > ,^ + *
& *:,~ "
& *<,~ "
& *B,~ , *
& *I
& , * b ( *J+ *
& *M,~ @ ;` )+ )!+ * P(u 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( *%+ * `` ` P $` h ()
X HX a` ,~ !" GB` + )s @)6$ )
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
C2d;y1 ,> +*6#p 0b + +@Ap +! $ b 2+ + "6@ &Z &." p 4D *|.$(B{(D{0d + + B + D + ( & Q& f 2+ *^4& *^1( ~9 *Z H + 3H + + *j2( + + *r.( 3( + + H + @@ +!@@ *~S"xZH*: *~.( 3h + *b *d!$ 6@ +!GD * +" d 2+ *l3h + + *c + (F + +6@ +!+ *nO@ +!+ *fOAp Z *3b + + +/" * + B + + *r@Ap + : !& @@ *~!"x H*: *~GF*.( 3h + *b *u +" d 2+ 3h + + *t6Ap + ++ *jZ b + @gp + + 6@ &+ +
Z .$ 1$ $ ! d + + $ QD &, + p Z aD $ +" f Q& [ [ &.& ." `b+ +! ." !` aB b :p d + +/'p .& Gp ,~ OAp ,~ G3]x1 ,> +*@ ` + + ,~
& +# ` *~p
Cannot write-enable high segment data area.
KbN@ 1 ,> +*,
,~ ++Y\ +,Q< X\ +-* +