Trailing-Edge
-
PDP-10 Archives
-
decuslib20-09
-
decus/20-183/ansimt.rel
There are no other files named ansimt.rel in the archive.
SL; 0 SL; @ H ` H ` H ` H ` $` 0 ` @` B` D` F` H ` H ` ( R\Q| > Dp Fp Hp Jp 1 4 p p /& / Dp 4 P $ p 3&p @ & p 2hp @ A 4D 4 p p 2&p 2fp - /p " ^& f ( C8 h 4 Q~ Y|,~ h@p 30 - S !p@
h@ "@t ) I
h@P @ % J
h @ "@ (H SEND $h ,@ POS h @ H , , @ 0 " @ 0 $ " $ (@$ %STREND 4 % " @ V`G V`S 6H ` ( P 6 SR\Q| > Dp Fp Hp Jp 1 $
\ 4 p /$ Dp 4 ;@@p @@p ( @ ?4 = $ p 2&p @ p B& A 4D Q4 ? p .$ Dp 4 C p p 2&p " G2fp - /p ^& f 6 ( C8 $ 2Dp @ 4H P4 E p Dp 4 M $ Dp *P $ P4 N4 P+ ?4 PQ~ Y|,~ N@
p &0 S
N > x @ X@
4 Z@4 ] I
N@
]@ ` C
N @ J !@ a
N @ W POS N@
` @ FOUND( , N @RUE $ N@
m@ TIMET $ N ( BREAK@ , N 0 @ r@8 CLOSE , N FALSE @ , N@$ j@ , N@` WRITE , N@t TRUNC , N
( ROUND , N ( APPEND 4 N@ DELETE 4 N @ CURPOS 4 N @ ( ARCTAN 4 N @ ( ARCSIN 4 N , @ ( ARCCOS 4 N @ ( H ! H q $ 0H - , 6@L 0 . ` %# , (@ $ `STRPOS 4 ` @ Z( @ V`^B 7V`^G 6 )H ` (
@ ) <R\Q| > Dp Fp Hp 1 , : Q4 Q p p C)p * , 7 x Dp ( 24. $ p 1F @ 4D742 p /$ Dp + :45 p p /& / Dp ( :47Q~ Y|,~ h@ O0 - S
h@C@@ , 0 CI
h@` @F J
h @@ POS h @ q`
K H , ,)@\ 0 " , (@4FSTRLEN 4F @C( @ V`Cx *V`C ) (
@
R |R\Q| > Dp Fp Hp 1 4- l:4
: $ p 0& @ 4Dd4V p Z p /& 0& 0f '- H^& f ( C8 h 4Y"p C'p p .( , R x "T P c Dp 4_+ z4c4d $ p 1& @ 4Dl4e p &$ C'p p , R x " @ k Dp 4h p p /& 0& 0f '- \^& f p &( 7 .* .* C8 j ( ( t4l $ & (C)p
p .* , 4t p .$ Dp 4w4yQ~ Y|,~ !p | @ x
0 N @ \@ I @ D S @!
H , , @!$ 0 $M, ( ( ITOC ( &
7 R H ` ( P eR\Q| > Dp Fp Hp Jp 1 <U z4z p p 2&p 2fp - o/p " ^& f ( C8 $ 0D @
p
p 2,p 2lp - /
p ^,0 l . C8( P * 0J @ G 4H%4 p .$ Dp + 4# p p 2&p 2fp - /p "
)^& f ( C8 $ 0D @ 4H/4%\$ Dp + 04- $ Dp 4/ p 1 p 2&p 2fp - (/p ^& f ( C8 $ 0D @
p
p 2,p 2lp - 3 @ P :/
p ^,0 l . C8( * 0J @ G 4HA40 p .$ Dp 4?@@p 4A B $ p 2fp @ 4D_4B p p 2&p 2fp - 9/p ^& f ( C8 $ KC* 1d ?1$ + P (@}.
( A$ (J 0* @ 4H\4E $ $p p S p 2(p 2hp - G/p ^( hC8 & /& . Dp 4Q p .$ Dp 4Y * \+ ^4[ p .$ Dp + B4\ p $p Dp 4_Q~ Y|,~ c | @- }0 S @. k@/,k ( kI @-h @ N @ SMIN t@t
t SMAX w@h SIGN @n H , ,@/D 0 . ` |" , (@. tCTOI $t @q( @ q= 3;/ @ ` @)4c H ` H ` ( /,^{R\{C<|Q > Dp Fp Hp Jp Lp 1 D La4a $ p 2fp (
@ & 2p 2hp @ A 4D'4 p p 2&p 2fp - U/p ^& f ( C8 $ 1D @ 4H$4
p 2*p " @ 2jp - /
p ^*( jC8 ( C8 h 4 p .$ Dp 4 p .$ Dp *@( #4!+ &4# p .$ Dp + 4$ $ p 2fp @ 4D-4' p p C)p "@ ,
p , 4*Q~ Y|,~ @6( P0 SRC @8|5 8` 4@9\5 I @7 @; J @ DMIN . ` = >@> DMAX @A DEST @78 @8L8 H , , 8p 8 E@8d 0 " , (@7<>SMIN $> J@J SMAX $> A@2 H . @ N, ,@9t 0 " , (@8|JSCOPY ,J G @ t"9 L*b ( * S ^R\Q| > Dp Fp 1 L -4- p C$ Dp p p Q"A` H ( \4WQ~ Y|,~ ^ @< o2 e I @<P @e STR 4 f@= @=8 ODTIM ( @
HH , , @=T 0 $ , ( oE INTOSTRDAT X b$ @ ^}ls T^}lw S @ ` @;$^ (( r R\Q| > Dp 1 TV L\4
\ $ p 1f @ 4D{4v $ Dp + (@ {4y p & 7` - 7 . ( 0F @ Hp 4{Q~ Y|,~ ! h@@h 0 - COL h @ TABPOS 4h @
( @ c*B sc*G r ("
R\Q| > 1 \u L4, 4, 4Q~ Y|,~ " 2 e ERRORMESS H " e @ ^8[
H ` (
U -R\Q| > Dp Fp Hp 1 d D4 4D+4 C$ C 0@7, # & ( , C'p p p p C)p , *p x
p /
p .* , , 4 H 0 +Q~ Y|,~ @F <2 r3 S 3@G I !0Ac 4 @Fh @6 J @0 H , ,@G4 0 " , (@F<6 <WARNMESS D6 3 @ ,h!S ,h!_ (( ? ZR\Q| > Dp 1 l D+4+ $ C'p Q X Dp p 2 Dp
H Dp p Dp 4C $ & p 1f 1& + N)H 0( @ 4DW4Jp ( PD D p 4O $ C'p Q X Dp p p 34R4WQ~ Y| Y,~ @ Y @K` y0 F @L @O GDSTS ' b ( @L|d@
2I @ SDSTS ( @M8 @ @@ j 3RECLNINCORRECT_ x o@ STATUSBITS P r@NP DUMMYBITS !A s H @NTo H (ITv
$IT ( H pIP RROR CLEARDATAE p ( { ^ @ KO @KO# ? @ x @JY@J
Z (( | R\Q| > Dp 1 tB
W4W $ C'p Q X Dp p
Dp
+ 4Dp p Dp 4 $ & p 1f 1& + )H 0( @ 4D4 $ "D
@@p 4Q~ Y|,~ h@RP %0 - F %
h@S @O GTSTS ,h@S@ @
EN FILE_IS_OP dh @ @
STATUSBITS Th "@NP DUMMYBITS Lh @NT FILEOPEN Dh & ' @
Dp 1 | |4 $ p 0F @ 4D54,C$ |C& ( @
1C8 * S
@
@ 0 @ , + E4/ $ p 0F @ 4DE45C$p @ 9 Dp $ C&/ Q X & p Q"A`
48C$:C&0 ( C8 * S
( * B@
@ 0 @ , 44>4DC$?, x & 1D @ 4FX4EC$E, (** J4I $ p 0F @ 4DQ4JC$I, } x 4DQ4MC$N, @4PC$P, } "P"P S x 4DV4QC$R@ , 4T@@p 4V+ Y4W $ Dp 4XQ~ Y|,~ H P [/e/o /e/o/i h@\ ^0 - DEV h@\8 @\h FILES , dPEC Dh @! ELgERRDEV 4h@]0 @\l| JFNDES 4h , l n@^ ERSTAT 4h @ ( ,rDEVDES 4h@_v@^ k @ u CURJFN 4h @ ( DEVICE 4h @ }TTYDEV 4h & } @\l } TAPEDEV <hA;,@\l } STRTYPE <h @!
} E DATESTRTYP \h @=< }HOLDRECLEN Th
@ HOLDBLKFAC Th : hq @ GLOBALTAPE Th @b, H ,TL @bD 0
$TL ( FILE GLOBA d $ LTAPE p @b( FILE GLOBALDISK p @! E WORDSETTYP X @o|! 8 R Z @NT
PGIFILESTOSKI X @dH @ ~O GLOBALTABN X @e @u S - - (HOLDPADTAB X @e8 @
0@f( @KSHOLDSTRIPB x @k<6@g
"`h 9 DL:SHORTDIR @ @gX @gW
SW1TABLEKS @ @h @hlK 'SW2TABLE %PD A @ @h8 @hl= 'SW3TABLE @ @GH @hl@ &$ &LDGH 2,L@ @i ( $LD ( h J 2 NOTABLE 8 2 @hlN (DEFTABLE @ 2 @hlQ (CMDTABLE @ 2 ,@ @ R T@hh )ANALYSIS @ 2 )FULLDIR 8 2 @g ) ECTOR h [Y DEFAULTDIR 2 @g6 IPBLANKS DEFAULTSTR 2 @
EN GLOBALRECL # } ` 2 u@ LEN DEFAULTREC h 2 @ FAC DEFAULTBLK h 2 @ (h` NO DEFAULTTAB ` 2@o@ @ YPE DIRECTORYT h 2@qd @g TAMODE 90 ORIGINALDA 2@l<q@ DESIGTYPE H 2@r@ @^ FNAMETYPE H 2@rt@b, HOLDTABNO H 2 @
E DEVICESTYP X 2@q$@\l BRKMSK 0 2 6 ` @t @~
t CMINIR 0 2@w# CMFNIR 0 2 & CMCTOK & P ' 0 2@vd) CMATOM 0 2@v4,@ ( CLOSEF 0 2@v @ 0CLREOF 0 2 CMAUTO 0 2 CMDIRW 0 2 @
0 8( CMMODE 0 2@w@ @| ( CMRSCN 0 2@y4? CMNUM8 0 2@xTB 0
A@ ( CMMULT 0 2 CMNUX8 0 2@y @ ( CMREAL 0 2 $ ` @ I @ ( CMTADN 0 2@zN CMSTAT 0 2 @ ( CMTEXT % 0 R 0 2@z@ @ ( CMUERR 0 2@zp MAXSTR 0 2 Z@ ( 8 ZDFWARN 0 2@{dr@ LASTNO 0 2 g@ ! ,bRESCA !0 cN 0 2@|` @| m REWIND 0 2@} @ S3FULL 0 2@0 0 p k@ NORMAL 0 2@|, @| H , @~$ ( $ $ ( < @ tCMMODES 8 @$w@| p CMAGAIN 8 | CMERRMSG @ A,} | RESTORE 8 A$ @ LASTCMD 8 AD@ DFTABEV ' 8 A
@ DFSTRIP 8 @ DFRECLN 8 @ M@@ $ ND 8 @ ~DISKDEV 8 @jp @\h ~ LASTSW1 8 A4 @ @@ ~ LASTDEF 8 @ ~ LASTSW2 8 Ah @ ~ LASTS ! 'W3 8 @i0 @ ~ S1BLOCK 8 AX @ ~ S1NOPAD 8 A 0 P P /@ ~ S1RECLN 8 AH @ ~ S1TABEV 8 A @ ~ ( ( 8S2NOSTR 8 A8 @ ~ S2STRIP 8 Ap @ ~ S3SHORT 8 4 @@x @ ~ DEFBLKFAC H A
dFA ~ mDEFTABNO @ A NA
~ ( ! I SMAXFNAME @ @g$M@ ~ HOLDTAPE @ %@b,
H -PH A
0 B QH %PH S 8 DEFRECLEN H A A
@ LEFTA gMAXBL !` ZKLEN H A T@ LEFTA |MAXRECLEN H A
@ LEFTA MINRECLEN H @s( 0 b@ LEFTA H -LH A
\ 0H %LH g 80 H , 8 x kAEFBLH (`" s/ ,t YEAR AlwA$ ^ DUM A,|Z $ $ ( " | ZONE A| Z
$ $ ( SECONDS 8 AH \ " x $ $S$ ( MONTH /A |A \ DAYOFMONTH WA4
Ad
^ DAYOF !pP ZONEUSED@ G @ $DD ( $ $DD ( $ $DD ( TABLE /A '@hl 7 &B STORE / *@ J OPENF /@:
.@ J MTOPR ! / / @ J TBMAK / 4@hh j TBADD / b ,` 7T A( @h| yB CMT A| =@ j CMD @@ @j LF D@ J CR @ J CMTN & p H 'A $ J b CMDN 'At M b DIR AL Q@ J ( QDEF @ J EOT A @ J XIT , Y [@ J TAB @ J CMDO ' @ j 0` bGJF2 'A T} b SKIP 'A d h@ J HELP 'A @ 0 p P j@ J JFNS 'A |
@ J
NULL 'A 0 @ J sQUIT ' b TAPE ' @ J BITSET 7A 8 {A L B H ( $ }
$ $ ( ALFA
A&D
7B NIL < `
A$
A&0 J GET A#4
b ABS A!t
j LN
@ j CHR A" j EOF A#
j
COS @ j EXP @ j NEW
b LOG @ j TTY
$@ P PUT A%T
'
& ` ODD A% h ORD h SQR ( b
.
0 h SIN @ h $ & H , , A&\ 0 $ , ( 0
7 TEXT A)
:@$
l@ SUCC A(l
= h SQRT
@ 0@
?@ h SIND A(8 @ h SINH @ h TANH $ p@
H @ h STRING 0 A,$
LA-0 x MAXINT 0 A* v@ H ?OUTPU !
PT 0 A*0 @ P READLN 0 A+D
V ` RCLOSE 0
Y `
YRANDOM 0 @ h RENAME 0 A+p ` SETPOS 0
a` UNPACK 0 A-
e ` STRSET 0 ` UPDATE 0 @
j ` H - ( 0BOOLEAN < 0A-|
7@
x@ DISMISS < 0A.\
r `
rBREAKIN < 0 ` DISPOSE < 0 ` CHAR $ 0A/< @
) 0
{@ READ $ 0
~ ` PACK $ 0A4 ` MARK $ 0A3$ ` GETX $ 0A2t ` DATE $ 0A2
A28 h COSD $ 0 4
A1X @ h COSH $ 0 @ h EOLN $ 0 h H , , 8@ A2T 0 $ , ( JSYS ` NEWZ ` NEWL ` PAGE A40 ` PUTX & < %` PRED h REAL A-L
x@ ,@ INTEGER 8 A5t ) 0@
.@ @ STRINGPTRh H A:L 2A-0 x POINTER@V 8 A6P A:8 x ALFALENG @ < 6A8| 8@ H REWRITE 8 A8 ; ` RELEASE 8 > ` RECSI ?ZE 8 h WRITELN 8 D ` RUNTIME 8 h @ GGETLINENR H J ` STRWRITE @ M ` GETINDEX @ A: H P` NEXTFILE @ @ h H 'L@ TTYOUTPUT H A:x @ P !PROTECTION @ X P ` !THATSIT 8 @j @
\ (( a
-R\Q| > 1+ <Y4YC$TC& ( C8 * S
@
@ 0 @ *PT i, D4 dC$ d, F x & 1D @ 4F
&4 jC$ j, k x & 0D H@ p * @ rC$ n, op x * 0HP@
G 4F
4 nC$p Dp
$ C& r Q X z & p
Q"A`
4 v $ &
Q( X(p
*(p
(p
* , . (> NC.p
Np
p $ & (C(p , *p
p
p x .. Nx , 4 | $ **
& (Q(p X(p
*(p (p
, 4
C$ x, } x 4D
4
C$
, @4
C$
, } "Q"U*
x 4D
4
C$
@ , U4
@@p 4
+
&4
4
C$
, J4
C$
, } "U(T(
x 4D
4
C$
, @4
C$
, } x 4D
#4
C$
@ ,
4
!@@p 4
# *P
%, 4
$+
(4
% $ Dp 4
&Q~ Y|,~ $
*/d/o/m:7 not able to be restored hAF
;0 - DATAERR <h <
2AG
4@ - HBIGREC 4h @ - PMESSAGE <h @!
;APE OPENINPUTT lh @ar: a @ ~ A<T
*A<d
*A?d
+ (*
>
SR\Q| > 1
c
(4
(C$
RC& ( (C8 * S
@
@ 0 @ "PU
G, 4
AC$
B, r x & 1D @ 4F
O4
GC$
H,
4
K@@p 4
M+
P4
N @
O $ Dp 4
OQ~ Y|,~ @
R/o h
W0 - DISK OPENOUTPUT th @
?r:`
> @ ` AH<
R ((
Z Q| > Dp 1
@ \
P4
P $ & Q)p X(p
*(p
* , . ( (
b> NC.p N . Nx , 4
] $ & Q( X(p
*(p
(p
* , . (
k> NC.p Np p
Lp & (C(p , *p p
p x .. Nx *
s, 4
f $ & Q( X(p
*(p
(p
* , . (> NC.p Np
p
| Lp
$ & (C(p , *p
p
p
x .. Nx , 4
t C&p p
$ @ @ p
x .( , R x Dp 4
*(p
(p
* C.p Np
p Lp
$ & (C(p , *p
p
p
x U
$ & (C(p , *p
x .( , R x "@ *
LC&p ( (C8 * S
@
@ 0 @ ,
G4
H4x @*
L4 WC 0@7, "C& * , *C&p
p
$ & (C(p , *p
.x * (, $4 / - " hAX
DhA] TFORM ,hAZT
,h
(@
h @ H , ( AZ
0H $ ( A[ A[8 LBLKS 8 !
Zr:`
Z @ p AL|
<AUL ( * > Dp Fp 1
\ T 0$ 0d +
+ 4p ' Dp Dp p Dp +
4p Dp p ' Dp ( Dp p Dp +
@ 4p A A p 4
$ p
"
2F + 2H @ 4D4
@@p + "4 $ p
2F + 2H @ *
4D4 $ Dp + "4 $ p
2F + 2H @ 4D!4 $ "A Dp + "4 $ Dp 4!Q~ Y|,~ $ x P Ae@ ?0 DES '@ - AfT/@5 AC1 Af @NP AC2 @NT/ TYPEO ` 5FCALL P 8@^ DVCHR ( Ag8 @ 'TYPEOFDEV H @NT2 ` > CE KINDOFDEVI ` @\l,( @
T{<
T{G Aa A@ @ ` Aa<$Aa4%Aal%Aad&AbT&AbL'AcD'Ac<( (( B OR\Q| > Dp 1$
"p Dp 1$ + M4EC$ @ S
4 @ SPACE@ ,
zk BT1 B ) XH ` H ` ( ( Y ,^|R\|C<}Q > Dp Fp Hp Jp Lp 1,D <M4MC$HC 0@7 *P b, J, *4`C$`C 0@7, bC& * ,
jp x
p /
p .* , g4cC$cC 0@7, eC& * , m4mC$n @
sC 0@7, oC'p p p p C)p , *p x
p /
p .* , q4rC$r U {C 0@7, t, b4z,
%4}Q~ Y|,~ ` ? - ApP 0 MESS As$AsT I %@ 0 Aq0 @ J Aq` @ GARB Arp K !0Ac Ar@ @ L @ H , ,XAs
0 " , (Ar MESSLEN < @ H -N,YAsl 0 #N, (Aq GARBAGEERR T " @ &Td Z&To X @ x Al\ An ( # 9R\Q| > 14_ |~4~ $ , Dp 4& Jp \$ Dp \$ p Q @
+X & p #/ /
p @p 4($ p 0F @ 4D440, p 44Q~ Y|,~ hAwP H0 - < GETJI ,hAxL@@ - #P
h Ax8 $ & $ (RETUR EN 4h @ MODE GETJOBDATA th @ ( @ (T<z #(T= # (( K TR\Q| > Dp 1<%
747\$ Dp $ p p 04NQ~ Y| S,~ Azx f2 e DATAMODE @ A|$Z@ SETJB ( , \ ^@ 0SJDM @ B CURRENT_JO X @ d MODE SETJOBDATA p W @ MP<z KMP= K ("P i lR\Q| > 1DM TR4R $ , B4lC${C 0@7, |C& * *" q, z4m $ , B4rC$nC 0@7, oC& * , q4s $ , B4x "
A z $
0F @ 4D
4y $ , B4|C$tC 0@7, uC& * , w (T
4~ $ , B4C$~C 0@7, C& * , 4 $ , B44
"P * $ , B4
C$C 0@7, C& * , 4
$ , B4C$
C "( 0@7, C& * , 4C$C 0@7, , }4C$C 0@7, * C& * , 4 $ , B4 C$C 0@7, C& * , 4 "P * $ $ , B4$C$ C 0@7, !C& * , #4% $ , B4*C$&C "
A -0@7, ' & # ( , K4+ $ , B4/C$,C 0@7, -C& * , ) (T
541 $ , B45C$1C 0@7, 3C& * , 547 $ , B4; $ (* >
0F @ 4DN4= $ , B4@C$7C 0@7, 9C& * , ;4A "P * F $ , B4FC$BC 0@7, CC& * , E4G $ , B4L4M $ *A Q( O, B4NC$HC 0@7, IC& * , K4O $ , B4TC$PC 0@7 * U W, QC&R * , S4UC$VC 0@7, W, 4ZC$ZC 0@7, \, \ ( `4]Q~ Y|,~ bRECORD BLOCK# OF EST. CREATE EXPIRE SEQ# FILE NAME VOLIDLENGTH FACTOR jRECS.PAGESDATE o0 DIRHEADING P @ aizq iaiz i @ A~bA~dcB
cB ldBldBLeBDfB$gBhB<hB iBDjB $kB k (( r R\Q| > 1Lk `4`Q$ X$p *$p 4u $ & C(p , * x .$ @ {/$ 0$ 0d - ^$ d & C8p f 4w $ & C(p p Hp $ & @
C(p * , 7p p
x .* , 4 Dp $ & Q X Dp C$p p
Q$A` / / / Dp
p @p Dp p 4 $ p 0F @ *QB H 4D4, 8 SGTJFN 0 Bl @ gX RETURN 0 #@&` DEVSTR 0 0 @ %@b( ` DEVSTORE @ @ ` FN GETDEVICEJ ` ` @ (T| s(T r ((D - CR\Q| > Dp 1Tt
4 $ , ' Dp 40 p 1D - 6 & F *D 542, s45 $ }Q X Dp $
p p 46 p 1D - 4 p @ H >0& 0f - |. Dp 4;Q~ Y|,~ @Bh [0 8 FINFONO 0 @BLI@ MOINF ( @BP @
ARGPTR 0 @ 0b OB $ & $QH , B, ( $ $ ( MAXINFO 8 B @
W ARGBLKTYPE P B TAPEINFO @ @F( @ cDth -cDto - (*A ^ R\Q| > Dp 1\/ A4A, s4a Dp $ }Q X Dp * f p / /
p @p 4b $ p 0F @ 4Dn4j, p 2 Dp Dp p
p D( 4n Dp $ t }Q @
wX Dp p / /
p @p 4u$ p 0F @ 4D 4|, B ` 0gX ACCUM2 0 B!| @NP ` GDSTS ( 4
B!H @
` 2ACCUM1 0 @ ` RETURN 0 @
` TAPES TATUS P ` @ cDv3 ^cDv7 ^ @ ` B d ("@ $R\Q| > 1d`
4 C$p , ^4 $ &
p 1f 1& + )H P(@ 0( @ 4D!4 $ Dp + "4 @@p 4!Q~ Y|,~ hB% ( P & /0 - BOTBIT 4hB%8 @ -
STATBITS Dh @NP FTAPE /BEGINNINGO |h @X wX wX w \Q| > Dp 1l t"4"@@p 48C$
" @* :C 0@7, _6D $ B$ 4DD49C$:C 0@7, ;, 4> p .$ Dp *@ @ C4A+ :4C p $p ( $( & 7` - }7 . ( 0F @ 4HO4D ( K p $p & $& & Dp + S4K p $p & $& & .$ Dp 4OC$] @"P TC 0@7, @ p ( , 4S $ , B4WC$SC 0@7, U p ( , V (P $ \4X $ , B4\Q~ Y|,~ hB,8 m2 q RECLEN 4h < ` eB- f@ NL h @ ESTPAGES Dh @f ATIONFULLI mNFORM |h c D qxH 5qxN 2qxO 2 (( p 1R\Q| > Dp 1|7 4^4^ $ p 0& @ 4Dz4s $ Dp 4v T"" x"p Dp 4x+ {4y@@p 4z $ , 1 Dp 4{ p 1D - = 4} $ " " DX 4 $ , | Dp 4p G G p 4 p DX 4 $ , Dp (Q
4p GGp 4 p DX 4
$ , Dp 4
G p (
4 p DX 4 $ C&> Q X Dp $ p p 4C$YC " 0@7, Z p ( , \4 $ Vp , B p 4 C$C 0@7, p 1F ( #- C& p p 1H - # $ & C( Vp , * p p x * , Y4 @ + $ Dp p 1H - % $ & C( Vp , * p p x / Vp , B p ( A 44+ $ Vp , B p 44C$ C 0@7, ! p 1F - -C& p p 1H ( <- : $ & C( Vp , * p p x * , *46 $ Dp p 1H - < E $ & C( Vp , * p p x / Vp , B p 4B $ Vp , B p *
M4KC$7C 0@7, 8 X ( , /4M $ Vp , B p 4Q $ X 0F * "@
V@ 4Dg4T $ X 0F @ 4D[4W $ DX 4ZC$NC 0@7, O X "A
^ ( , 4[ $ Vp , B p 4_C$\C 0@7, ] X ( , _4b+ s *AA
g4f4gC$bC 0@7, d X ( , e4g $ Vp , B p 4kC$hC "( o0@7, i X &X ( , k4n4r $ Vp , B p 4s $
0F @ *( x4D4u p 4D4xC$nC 0@7, pC& * , A+ 4z X Vp (@"A , 5 p 4 X C&p Vp , T p 4C$zC 0@7, |C&p ( * , ~ ( 4 $ Vp , B p 4 $ X 2F @ 4D4 C$C 0@7, C& U E * , + 44 X C&p Vp , T p 4C$C 0@7, C&p UT ( * , 44C$C 0@7, , _4 4 p & , @p ( A "4 p & , ! @p 4" p & , $ @p 4% p & , ' " + @p 4(Q~ Y|,~ -x -- -- Invalid @BFP 0 SEQNO '
6 ( @BH$8@ MORLIH ( @ ;@ ARGS FI A @ ?@ 8 8 > I DATESTR @ @ UNDEFINEDR H @BR4E@ *BADREAD 0 8 @ 4 p` GBI @ @ @NP $ & $ 4 $^@
Y @ ` 6 V ARGBLKPTR LV BLX $ 'PTfH /PTh VARGWORDS '@ X i DVBQ|k@ P1 VBM` BQdn P2 VBN BQ$ RECLE !p@ qN 4VBOdt@t BLKLEN 4V w@ P3 V BO${ " ` z$ & $GENERATION TV @~ VERSION <V @ MODEVAL <V $ X` @ CREATEDATE TVBPp @ EXPIREDATE TVBO0 @w $ 'DD ` TAPEFORMAT TV @q $ 'RLL TYPEOFLABE \V @k TYPE BITSA !p@ NDPTR tVB-TBJL ARGBLKTYPE TV BLl FO TAPEFILEIN dV 5 @ cDt) pcDt3 p @ p B2-B2
.B?L.BAT0BB0 ( 2R\Q| > 1r +4
+ $ Dp p Dp Dp p Dp 4 ( ( %4$ p Dp 4%p A A p 4& $ p 0FP@ 4D.4) $ Dp * -+ /4,@@p 4.4/Q~ Y|,~ @ 1 BV` R0 i LOGEOT 0 BW|9@ i PAC1 ! @ : BWH @ AC2 @9 IORBTYPE @ BBX\
@ BAC2STORE @ BXX H /RDGBYP INT BY @ BITS !A@ K @NP 4 $N@
J 6@ G TRAPEOT ! S <G @(* U
R\Q| > 1
L/4/, s4X Dp $ }Q X Dp p ( ^ / /
p @p 4Y $ p 0F @ 4De4a, p $ p 4 k/
p @p 4e $ p 0F @ *P o4D}4l, 4o Dp $ t }Q X Dp p / /
p @p (*U w4p $ p 0F @ 4D{4w, p4z, ~4{+ 4|4} Dp $ t } Q X Dp p / /
p @p 4~ $ p 0F @ 4D 4 *@ ,
Bax uJE,T MOFWF ( Bb0 @ MJE,T RETURN ! 0 @ QJ@ E FORWARDFIL X aJ@ @ )8
V)8 U @ ` B[T (* ;R\Q| > 1W T 4 , s4 Dp $ }Q X Dp p ( " / /
p @p 4 $ p 0F @ 4D)4%, p 4) Dp $ t }Q X Dp p / T 3/
p @p 4-$ p 0F @ 4D844,
: Bgh E0gX MOBKF ( Bh @ gX RETURN ! C 0 @ ` LE BACKWARDFI ` ` @ +qj9 +qjG @ ` Bd: (* H jR\Q| > 1
848, s4K Dp $ }Q X Dp p ( Q / /
p @p 4L $ p 0F @ 4DX4T, p 4X Dp $ t }Q X Dp p / T b/
p @p 4\$ p 0F @ 4Dg4c,
i BmX t0gX MOREW ( Bn @ gX RETURN ! r 0 @ ` REWINDTAPE P ` @ 5!$G I5!$S H @ ` Bji ( P w R\Q| > 1$J
g4g $ & C( , *Sx E& 0D @ 4F4z C$ M& , 4Q~ Y|,~ Tape devicenot defined,use TAPE4command to define device
$ , x D )4 ) & C( * , "@
@
, 4 ) & C( * , , 4 ) & C( * , , 4 ) ! & C( * , , 4 ) & C( * , , #4$ ) & C( * "PP * , , '4' ) & C( * , , *4+ ) & C( * , , .4. ((" 2 ) & C( * , , 142 ) & C( * , , 545 $ , x *@
@
; D '49 ' & C( * , , 84; ' & C( * , , >4? ' C & C( * , , B4B ' & C( * , , E4F $ , : x D ' * * ( L4I ' & C( * , , I4L ' & C( * , , O4O $ , J "PP T x D &4S & & C( * , , R4U & & C( * , , X4Y " ] $ , T x D (4\ ( & C( * , , \4_ ( & C( * , *D
@
e, b4b ( & C(M * , , e4f ( & C( * , , i4i ( n & C( * , , l4m ( & C( * , , p4p $ , ] x D ( *** v4t ( & C(` * , , s4v ( & C(d * , , y4z ( & ( C(g * , , }4}Q~ Y|,~ TAPE REWIND RESTORE STORESKIP HELP EXIT EOT DIRECTORY DEFAULT BLOCKING-FACTOR : NO-PAD-TABS PAD-TABS: RECORD-LENGTH: STRIP-BLANKS NO-STRIP-BLANKSSHORTFULL WARNING-MESSAGES TABS-EVERYRECORD-LENGTH NO BLOCKING-FACTOR ( 2 e INITTABLES P " e @ ^hN ^hN+ @ Br|Bs4BslBt$Bt\BuBuLBvBv<Bvt BwT
Bx
BxDBtBzBztB{, @ p BB<B}4B}lB~$ ( * ! PR\Q| > Dp Fp 14 \4C%p Dp $ C& Q X ) p Q"A`
4% $ & C)p , * x Dp 4+C%p Dp $ C&' Q A 2X p Q"A`
4. $ & C)p , * x Dp 44 $ p 1f @
( : p .& .p ( 1f @ A 4DF48 $ p 1f @ 4DC4> $ Dp ( C4A $ /p /$ Dp 4C4E $ & C)p
p .* , 4F $ & C)p P K
p .* , 4IQ~ Y|,~ ` O C
8 c0 NAME C V@b,V EXT !
W @b( MAXTNAME @ ]@
NAMELEN 8 `@
`EXTLEN 0 @] ENAMEDEFAULTTAP x S @ _YW !_Y_ ! @ x COC,O ( f R\Q| >
1<$ DM4MC$p Dp $ C&0 Q X p Q"A` " @" o
4iC$p Dp $ C&p Q"A`
4o $ , B4u ( @ wC$ C 0@7, C&p p $ & C(p , *p x * , C& * ( , ~C&p p $ & C(p , *p x * , , 4wQ~ Y|,~ @ $$@ => CH 2 q SOURCE 0 @b( DEST !@ @b,
LISTFILES H @ %@ g%@ f @ x C<Cl (*P 1R\Q| > 1Dh \4Q$ X$ *$ &4C$p Dp $ C&k Q X p Q"A`
4 $ & Q(p X(p *(p (p * , . (> N (
&C. Np p Lp
$ & (C( , *p p
p
x .. Nx , 4 /Q~ Y|,~ 0 $ CH 80 FILENAME @ @b( KFILEDEFAULTDIS 9 x @ _YW _Y_ @ ` Cl0 ( U( ; R\Q| > 1L \.4.C$p C&p , !4>Q$ X$ *$ 4@ $ & * D CC( , * x .$ /$ 0$ 0d - ?^$ d & C8 f 4B $ & C( Lp Hp $ & C( * , 7p p
x .* , 4J $ & Q(p X(p
T*(p
(p * , . > NC. Np
p $ & C( , *p
P ]p
p x .. Nx , 4R $ & C( , * x .$ /$ 0$ 0d - G " " e^$ d & C8 f 4` $ & C( p Hp $ & C( * , 7p n p
x .* , 4h $ & Q(p X(p *(p
(p * , . > NC. (
v Np
p $ & C( , *p
p
p x .. Nx , 4pQ~ @ Y|,~ C 8
0 TNAME> ( @b( TEXT, B !@ @b, EFILEDEFAULTTAP x @ YW ;Y ; ((T
@ , Q|p ( , rC& * , , 4Q~ Y|,~ @ records] Q X C$ $2 q N @ COUNTLISTR $ECORD x @ %Aw
4+C$C 0@7, C& * , p ( , C& * (
8, 4 p ( , 6C& * , 8 ( , 940C$1C 0@7, 2, ( @4=Q~ Y|,~ H B - line : characters long, truncated to C)0 Q0 KLINE N@N COL @ TRUNCMESS H K S @ m 'm ' @ ~ C&4BC&lCC'$D ( T =R\Q| > 1d* T@4@ $ & Q( X(p *(p (p * , . (> \ NC.p N . Nx , 4W $ C&p p $ & (C(p , *p x .( ( e, R x Dp 4_C$p & (, 4fC$ & , 4h, x Dp 4j $ @ m p 0& @ & p 1h @ G 4D4l $ & Q( X(p *(p (p * @ v , . (> NC.p N . Nx , 4r $ C&p p $ & (C(p , * ~p x .( , R x Dp 4z $ & Q( X(p *(p (p * , . (> @ NC.p Np p Lp $ & (C(p , *p p
p x .. Nx , ( 4 $ C&p p $ & (C(p , *p x .( , R x Dp 4C$p & ( *D@ , 44 p $ & 1d |@ 4F.4 $ & Q( X(p *(p (p * P , . (> NC.p N . Nx , 4 C&p p $ & (C(p , * T( )p x .( , R x Dp 4%C$p & (, 4,4. p D 4.Q~ Y| 1,~ 2integer between 1 and 80 Record length must be between and Record length too la :rge with blocking factor of C8 M2 &W I C8@ 0` C@ RECLEN 0 C8p @A HELPMESS @ J@! ERRMESS 8 & K @!
G ENSW1SWITCHRECL x @ X9[M TX9[W T @ p C+
2C-4C.<5C048C3d8 (* P VR\Q| > 1lV d040@@ 4SQ~ Y|,~ Dp 4 Z Y2 e DSW1 SWITCHNOPA p " e @ X9[M QX9[W P ( P* ] (R\Q| > 1tR <T4TC$ x& 4p $ |C&p p $ & (C(p , *p x .( , R x "" Dp 4yC$p & (, -4 4 p $ & 1d |@ 4F 4 $ & Q( ( X(p *(p (p * , . (> NC.p N . Nx , 4 C&p p * $ & (C(p , *p x .( , R x Dp 4 C$p & (, 4 4 p * D 4 Q~ Y|,~ number of records per block 1 Blocking factor must be between 1 and Blocking f $actor too large with record length of CE8 82 &W I % 0 , CEh @ BLKFAC 0 CF @ + HELPMESS @ 4@! ERRME 0 5SS 8 @!
1 KSW1 SWITCHBLOC p @ X9[M ^X9[W ] @ @ C< C<4 C>$ C@| # ( ; vR\Q| > 1|_ T 4 $ & Q( X(p *(p (p * , . (> C NC.p N . Nx , 4 > $ C&p p $ & (C(p , *p x .( (( L, R x Dp 4 FC$p & (, b4 MC$ & , d4 O, e x Dp 4 Q $ @ T p 0& @ & p 1h @ G 4D k4 S $ & Q( X(p *(p (p * @ ] , . (> NC.p N . Nx , 4 Y $ C&p p $ & (C(p , * T( ep x .( , R x Dp 4 aC$p & (, 4 h4 j p D 4 k $ D ( n4 lQ~ Y|,~ pinteger between 1 and 8 Argument must be between 1 and CO ( P` x 2 &W I COP @ TABNO ( CP @ z HELPMESS # @ @! ERRMESS 8 @!
ABSSW1 SWITCHSETT @ X9[M ;X9[W ; @ ~ CG| pCJ rCK, s (*
R\Q| > 1 = , n4 n@@ 4 2 e RIPSW2 SWITCHNOST " e @ X9[M
X9[W
("@ R\Q| > 1
< 4 $ D 4 Q~ Y|,~ ( "2 e PSW2 SWITCHSTRI p " e @ X9[M X9[W (* % +R\Q| > 1 < 4 @@ 4 (Q~ Y|,~ / -2 e DIRSW3 SWITCHFULL " e @ X9[M %X9[W % ("@ 2 9R\Q| > 1 ' < )4 ) $ D 4 5Q~ Y|,~ ( ; =2 e TDIRSW3 SWITCHSHOR " e @ X9[M 3X9[W 2 ("@ @ GR\Q| > 1$ 4 < 74
7 $ D 4 CQ~ Y|,~ ( I K2 e MESSDF SWITCHWARN " e @ X9[M AX9[W @ (* N TR\Q| > 1, B 4 E4
E@@ 4 QQ~ Y|,~ X W2 e RNDF SWITCHNOWA p " e @ X9[M OX9[W N (( [ pR\Q| > 14 P 4 R4 R (, x Dp 4 ^ p 0$ 0d + h+ *U*A* d4 a,
+ l4 d, Q+ l4 e, O+ l4 gC$ & , j+ l@ g@ e@ d ( l4 hQ~ Y|,~ H nInvalid switch jC^8 w2 /I NOCOMMAND L j @ ITCHD wF SWITCHNOSW j @ X9[M \X9[W [ H C]0 C\8 @ ` C] n (*U* z R\Q| > 1< ] t l4 l D 4 } D 4 D 4 * @ D 4 Q~ Y|,~
2 e WITCHESSW1SAVESTORES " e @ KR3 {KR7 z (*@ e ESWITCHESSW2 SAVERESTOR 0 " e @ KR
4 Q~ Y|,~ ( $ '2 e ORYSWITCHESSW3 SAVEDIRECT @ " e @ KP KP (*U* * 8R\Q| > 1T < 4
D 4 - D 4 . D 4 0 *U( 2 D 4 1 D 4 3 D 4 4Q~ Y|,~ <2 e ; TS SAVEDEFAUL ` " e @ KO *KP * ((E ? pR\Q| > 1\ , \ 64 64 B, 4 B, 4 C ', x Dp 4 D @ G, x Dp 4 G $ p 0F @ 5D i4 I, x Dp 4 L $ p 1f "@"T
P@ 4D Y4 N p 0$ 0d + U+ 4 Q, Q+ X4 TC$ & , j+ X@ T * (* X+ h4 U $ p 0& @ 4D h4 Y"p 0$ 0d + c+ 4 \, ^+ h4 _ *UU* a, T+ h4 `, ;+ h4 bC$ &
, W+ h@ _@ c@ `@ b4 c+ B4 h iQ~ Y|,~ H kArgument not specified Does not take an argument Cn8 w0 sSWITCH 0 @ HESSW1 STORESWITC @ VZ{: ?VZ{? ? H Cl` Ckh H Ck Cj8 @ x Cjd kClD m (** z #R\Q| > 1d A d i4 i, C4 }C$ & , Q4 ~, D4 ', E P x Dp 4 , G x Dp 4 $ p 1F @ 4D 4 , L x Dp 4 P $ p 0& @ 4D 4 C$ &
, e+ 4 p 0$ 0d + + 4 *UU* ,
+ 4 , + 4 C$ & , + @ @ 4 , 4 4 Q~ Y|,~ /STRIP-BLANKS Does not take an argumentInvalid switch Cth *2 &W & SWITCH 0 @ TCHESSW2 RESTORESWI @ 5B {5G z H Cs /Cr0 @ ~ Cot Cql Crt ! (** - UR\Q| > 1l | L 4 , ~4 0C$ & , 4 1, 4 3 &, P 6 x Dp 4 4, x Dp 4 7 $ p 1F @ 4D N4 9, x Dp 4 < P > $ p 0& @ 4D C4 >C$ &
, + M4 A p 0$ 0d + I+ 4 C *UU* G, %+ M4 F, 3+ M4 HC$ & , B+ M@ F@ H4 I, 44 M4 NQ~ OY|,~ H P/SHORT Does not take an argumentInvalid switch C{ ]2 &W YSWITCH 0 @ WITCHESSW3DIRECTORYS @ aigs .aigw - H Cy@ Cx` @ ~ Cv$ PCx QCy$ T ( ` R\Q| > 1t / L N4 NC$ & , 4 c, w4 e , 4 fC$p "P
hC&p , !4 gC$ & , 4 iC$p & , 4 kC$p & , 4 mC$q, ( q4 oC$p & (, x Dp 4 q $ & (C(p
p .* , 4 t $ & (C(p " ( y * , 7 x & 1D @ 4F 4 w $ & Q( X(p *(p (p * , (Q.p ( X.p *.p .p > Nx , Z4 }C$ p, x & ,
(
4 C$ & , K4
Q~ Y|,~ AS ` Invalid attribute for this device Use COPY command to copy from disk to di sk _cD0 (0 9 TNAME +_cD @b( TEXT #_c &
@b, R TAPEFILEST [_c $@! TFSTRLEN C_c @ UTPUT (2 PARSETAPEO _c @ u?[ `u?_ ` @ @ C|< C|l Cl D4 ( P + XR\Q| >
1| b D
4
C$ & , d4 .C$p Dp $ C&- Q @ 4X p Q"A`
4 0C$p Dp $ C& 2 Q X p Q"A`
(P(* <4 6 , g4 <C$p & , m4 >C$p & , o4 @C$ , p4 BC$ B, @ @
xEx & ,
1d 1$ + K)H 0( @ B& 4F N4 CC$ "@ M & ,
4 LQ~ Y|,~ PTO ` P This utility does not support tape to tape copying ! ` Y _UD @ c0 4 NAME #_U _@b( EXT _U @b, \ a UTPUT2 PARSEDISKO _U @ u?S ,u?_ + @ Dt PDL QD, QDT RD RD| SD T S ( f !R\Q| > 1 -
N4 N Dp
Dp p
Dp 4 iC$p Dp
p ( n p
Q"A` 4 lC$p & (, 34 p, x Dp 4 rC$ & (, r x Dp ((" w4 t $ & (C(
p .* , 4 w $ p 0F @ 4D 4 zQ$p X$ *$ ( 4 }Q~ Y|,~ hDP !0 - DIRST ,hD !@ -
, ! AC1 hD8 @ AC2 hDh @! DIRNO ,h 8@` !@! GJINF ,hDP @ DIRLEN 4hD @! DEFAULTDIR ! ! Th @! TPUT2PARSEDIROU |h @ u?S fu?_ f ! H ` ("A ! !RR\Q| > O1
h 4 @@p 4!"C$ 8C 0@7, ?6D $ B$ 4D!O ( ( !'4!# $ Dp 4!'C$!#C 0@7, !%C&p ( C*p @
, , @4!) p .$ "*
!0 Dp 4!. p /$ Dp 4!0 4D!B4!2 $ p 1& @ Ap 4D!B4!4 p !8/$ 0$ 0d - e^$ d! & C8p $ 0D @ 4F!A4!7 p /$ Dp + !B (PP* !A4!>@@p + !44!A $ p 0F @ 4D!I4!BC$ DC 0@7, !+, @+ !N4!E (
T( !IC$!FC 0@7, !GC&p p * , ;, !H4!I+ !#4!N p ,
!R,~ FER 4 vMD` !f0 LINE 8@ $vMD @ RECLEN 4vM . P @ !Z !\@!V NEXT @ $vMDp @ 5G ! ( !i "X wX wX wX wX wX w \Q| > 1!! T!P4!P w /$ & (P T
!q3d @ 4F!v4!o w w /& , '4!sC$!)C 0@7, !K, !.4!v ( @ !zC$!IC 0@7, !x, !M4!y $ w D 4!| w .$ w D 4!~Q~ "Y|,~ "2 &3 NEWLINE 8 " &3 D SM6H !lSM6N !iSM6O !i ( "
">X wX wX wX wX wX w \Q| > 1$!n d"4"C$ C ~0@7, !{ (( " & 0D @ A 4F"'4"4" $ w 2f @ 4D"!4"C$ C ~ " "0@7, " & F 4"C$!zC 0@7, " & , 4" 4" w .$ w "*@" "# D 4"! w , s x 4D"+ "84"$4"' $ w 2f @ 4D"54"( ( ",C$"C ~0@7, " C&"C ~0@7, "- F 4"+C$" C 0@7, "/ & , " *
A "44"14"4 w .$ w D 4"54"8C$!wC 0@7, "3 & , 4"8Q~ "=Y|,~ @ "A0 COPYCHAR @ @ D MPm "
MPw "
( "D # R\Q| > 1," 4"<4"< $ Dp 0$ @Dp 4"GC$"9C 0@7, ":6D T( "M $ B$ 4D#4"JC$".C ~0@7, "L & 0D @ 4F"|4"NC$"JC 0@7 (T "U, "P & , ";4"SC$"TC 0@7, "U6D $ 4D"g4"W p /$ & 3d @ *( "^4F"a4"[ p p /& , '4"^C$"1C 0@7, "Y, !|4"a p .$ Dp 4"d *A * "f+ "|4"fC$"OC ~0@7, "c & 0D @ 4F"m4"g, !l+ "|4"l4"m $ " "o p 2f @ 4D"x4"nC$",C ~0@7, "i & F 4"qC$"aC 0@7, "s & *@*T "w, "44"t4"x p .$ Dp 4"x, "
#,~ D1H #0 COL D1x @ LINE 6 P #D2( @#
MESS D p @! STOREFILE H @ VZ{4 "EVZ{? "D ((Q # #AR\Q| > 14"F t#4#, # x D 4# $ 1F @ 4D#"4# "TU #! $ , K4# @@ 4#" $ & C( * , 4##, 4#& $ & Q( X(p #)*(p (p * , x D 4#' $ & Q( X(p *(p (p * , x D ( ( #24#, $ & Q( X(p *(p (p * , x D 4#2 $ D 4#7 $ D (Q #:4#9 $ D 4#: $ D 4#<Q~ Y|,~ H #?80 1 8 D8X #I0 OMPATIBLE INDUSTRY_C @ #H TION INITIALIZA p @ ^hLA #^hLO # @ ~ D5
#?D5d#@D6<#@ #LH ` (( #M #wR\Q| > 1<# $#=4
#=C$>C 0@7, "~C& * , !M & ( A #U, & ( , & ( , #U & ( , #W & ( , #XC& * , #T T ( #^ & ( , #[, "c4#PC$p Dp \$ p Q"A` H+ 4#`C$#PC 0@7 ( #f, #RC&p p $ & C(p , *p x * , #], #_4#dC$#eC 0@7, #f * #o, #l4#lQ~ Y|,~ #qUHCC DEC-20 ANSI Labelled Tape Utility version )- 7M D?0 $ @ @ #z0 WHO_EDITED P D@4#~@ ODTIM ( @ HION_N @ $UMBERMAJOR_VERS DB4$@ R EDIT_NUMBE X DA8 @ RTTIM D $ E PROGRAMSTA DAh H -M\#LDB 0
%M\ ( ION_NUMBERMINOR $_VERS @ NG PRINTHEADI ` @
ha #M
hk #L @ ~ D:,#qD;D#vD<$#w (*U* $ $4R\Q| > 1D#O 4#o4#o D 4$ D 4$ D 4$ *U*U* $" D 4$! D 4$# D 4$$ D 4$& D 4$' D 4$) *U*U( $+ D 4$* D 4$, D 4$- D 4$/ D
4$0Q~ Y| $3,~ $82 e TERS INITPARAME p " e @ ^hMM $^hM[ $ ( U $; $YR\Q| > 1L$ ,$24$2C$ & , 04$> (, _ x Dp 4$@ p E*U* $C0$ 0d + $N+ 4$B, ^+ $T4$E, \+ $T4$G, T+ $T4$H, + $T4$J *UU* $L, ;+ $T4$K, A+ $T4$MC$ & , N+ $T@ $M@ $K@ $J@ $H@ $G@ $E4$N * $T, M4$TQ~ Y|,~ $WFOR Invalid switch NDKH $`2 /I DEFCOMMAND T N @ $_LT1 PARSEDEFAU l N @ u?S $;u?_ $; H DJ DHP @ x DGl$WDIt$W ( U $c $lR\Q| > 1T$= $U4
$UC$ & , $?4$f, .4$hQ~ Y|,~ $kOF TAPE $p2 e TORY1PARSEDIREC x " e @ u?S $cu?_ $c @ ` DLl$k ( U $s $|R\Q| > 1\$e <$i4
$iC$ & , $g4$v, $T4$xQ~ Y|,~ ${END OF TAPE % 2 e PARSEEOT1 H " e @ u?S $su?_ $s @ ` DNl${ ( U % %
R\Q| > 1d$u <$y4
$yC$ & , $w4%, $x4%Q~ Y|,~ % TO MONITOR %2 e PARSEEXIT1 P " e @ u?S %u?_ % @ ` DPl% ( U % % R\Q| > 1l% <% 4
% C$ & , %4%, %4%Q~ Y|,~ %ON ANSIMT COMMANDS % 2 e PARSEHELP1 P " e @ u?U %u?_ % @ ` DRd% ( U
%# %[R\Q| >
1t% <%4%C$ & , %4%&, w4%( , =4%)C$ "U %+ & , k4%*C$"W, C4%,C$p & (, u x Dp 4%. $ & (C(p
p .* *P %4, 4%1C$%-, ,Dx & , %< $ & (C(p * , 7 x & 0D @ p $ & (C(p * , 7p x *A %E * 0H @
A 4F%P4%<4%G, ,4%HC$ Dp
$ C&"u Q X & *
%M p
Q"A`
4%I+ %U4%O4%P, f4%P^$ d & C8 f 4%Q4%T, { ( %V4%UQ~ Y|,~ $ %XTAPE FILES ~Device must be TAPE /D[p %euL},g FILESTRLEN P / , %` %b@ QLx FILESTR 8 / @! QLx RE1 PARSERESTO h / aLx @ u?Z %#u?_ %# @ ~ DTl%XDU %YDW,%Y ( U %h %sR\Q| > 1|%% \%V4
%VC$ &
, %'4%k, %4%mQ~ Y|,~ @ %pTO THE BEGINNING OF TAPE %w2 e D1 PARSEREWIN ` %y " e @ u?Z %iu?_ %h @ ` D]D%p ( P( %z &R\Q| > 1
%j <%n4%nC$ & , %m4%}C$ & , O4%C$ & *E( &, q4&, R x D ~4&, %n4&Q~ Y|,~ &NUMBER OF FILESpositive integer for forward, negative for backward 1 $@ & Db0 & 0 2 DEFNFIL 8 Dbh 2 &H -L( Dc 0H %L( & & 1 PARSESKIP1 P dEFNF @ u?Z %zu?_ %z @ ~ D_\&D_|& D` & ( Q* & &HR\Q| > 1
%| d&4&C$ & , %~4&" , %*4&$C$%5, %-4&& A &(C$p & (, %/ x Dp 4&' $ & (C(p
p .* , 4&* $ & (C(p * ( &0, 7 x & 0D @ p $ & (C(p * , 7p x * 0H @
A *U &94F&B4&.4&9, `4&:C$ Dp
$ C&%K Q X & p
Q"A`
4&; *U( &A+ &D4&A4&B, ;4&B4&C, ?4&DQ~ Y|,~ H P &GDISK FILES Di@ &U2 &W I Dip @ FILES p &OTRLEN P &R@&L FILESTR 8 @! 1 PARSESTORE X &X @ u?Z & u?_ & @ x Dd4&GDdT&H ( P( &X 'R\Q| >
1
&! 4&E4&EC$ & , &$4&[C$ & , & 4&], x " ( &a Dp 4&_C$p & , &) x Dp 4&a $ & C(p
p .* , 4&d p & ( &i,
Q( X(p *(p (p * , Q.p X.p &r*.p .p > Nx , Z4&l Dp p Dp p / / /
p &@p (*Q( &z4&t $ p 0F @ 4D&~4&z,
*$ 4&Q~ Y| ',~ 'DEVICE magtape device Not a magtape device Dq8 '0gX ASND ! '
Dqp @ gX DEVNO ( Dr @ ` DEVSTRLEN H '@' '` RETURN 0 '@'` DEVSTR 0 @b( ` PARSETAPE1 P ' ` @ u?[ &Yu?_ &X @ ~ DkD'Dkd'Dmd' (* ' '$R\Q| > 1
&Z 4'4
', *4'!Q~ Y|,~ '( '&2 e AULT PROCESSDEF p " e @
}Z '
}_ ' (*U '+ 'zR\Q| > 1
$' 4'"4'", 4'., w4'/, I4'0Q$ X$p *$p 4'1 '3 $ & Q( X(p *(p (p * , . > NC.p Np p Lp $ @ P* '< & C(p , *p p
p x .. Nx , 4'3 $ Dp 4'A4'BC$&&C&p U 'D ( C8 * S
@ 0 @ , i4'CC$'C, p C$'J, 'Jp x * 1H H@
A p C$'M, 'Np x * 1HP@
"U(* 'UA 4F'X4'IC$'R, 4'Y, i4'\C$'W ( (
'^, 'R x & 0D H@ p C$'], '^p x * 0HP@
G 4F'g4']"p *E U* 'f, p+ 'i4'e p , p4'g p .$ Dp 4'i4'kC$'a, @4'kC$'l, } x *E 'o4D'q4'mC$'m@ ,
#4'oC$'p, x & 0D @ 4F'C4'qQ~ Y|,~ 'w:*.*.* /d/o/m:7 D` (0 WILDCARD @ E<( 0@0 0 ( Eh (DATAERR 8 (@ HBIGREC 0 (@ P (I @ WILDFILE @ @b( H -LH E 0H %LH ( ( :*.*.* ECTORY PROCESSDIR " @
}Z '+
}_ '+ @ @ DvL'wDxT'xDxt'yDxl'z (*P ( (YR\Q| > 1
,'- $'u4'u, w4( , s4( Dp $ }Q X Dp * (! p / /
p (@p 4( $ (p 0F @ 4D()4(%, p $ p 4 (0/
p @p 4() $ p T(
(20F @ 4D(H4(1, x 4D(:4(4 $ & Q( X(p *(p (p , + (;4(6 * (;, {4(: Dp $ t }Q X Dp p / /
p @p 4(; $ *T (C p 0F @ 4D(F4(B, (;4(E, |4(F+ (T4(G4(H Dp $ t }Q X * (L Dp p / /
p (@p 4(I $ (p 0F @ 4D(T4(P, (V Already at end of tape E P (cuJE,T MOEOT ( E
0 (_@ MJE,T RETURN 0 @ QJ@ PROCESSEOT P aJ@ @
}Z (
}_ ( @ x E (VE|(W ("@ (f (mR\Q| > 1
4( t(T4
(T $ D 4(iQ~ Y|,~ ( (o (q2 e T PROCESSEXI X " e @
}Z (g
}_ (f (( (t )'R\Q| > 1
<(h 4(k4(kC$'rC& ( C8 * S
@
@ 0 @ *PU (|, 'I4(wC$(w, 'a x & 1D @ 4F)4(}C$(}, 'W4)C$&=C& ( C8 *@
) * S
@
@ 0 @ , & 1D @ 4F)4)C$) *A T )
C$)C 0@7, #n6D $ B$ 4D) 4)C$)C 0@7, )C&p ( ( U* )C*p @
, !-, !y4)C$)p * (, #k, #o4)+ )4) (T( ) C$)@ , 'q4) C$)@ , ) 4) Q~ Y|,~ )$HLP:ANSIMT.HLP /o TTY: /o/i E( )1uK5,[ RL EX 0 @ ),@ QK0 BUFFER 0 @! QK0 P PROCESSHEL X aK0 @
}Z (t
}_ (t @ @ E)$E)%E<)&EL)& (*Q" )4 )TR\Q| > 1
D(v $)"4
)", )8, a x 4D)J4)8^$ d & (** )<C8 $ 0D @ 4F)@4):, 4)?,
? x B$ 4D)C4)@, (G4)B, g4)C *E"U )E, ! 4)DC$) @ , )!4)EC$) @ , )G4)G4)IC$)F, 'r x & 0D @ *
@ )M5F)R4)J^$ d & C8 f 4)N+ )84)QQ~ Y|,~ h ( )V )X0 - TORE PROCESSRES th - @
}Z )4
}_ )4 (*T( )[ )kR\Q| > 1
L)6 $)R4
)R, w4)^, I4) , x 4D)f4)` $ & )cQ( X(p *(p (p , 4)bQ~ Y|,~ )hAlready at beginning of tape )ouL
}Z )[
}_ )[ @ ` E <)h (*( )r *R\Q| > 1
T)] L)f4)f, w4)u $ ~1f @ 4D)4)v $ ~
D
)z Fp Dp 2dp + )~4)y, V:p + ){+ *
4)| $ ~0& @ 4D*
4) $ (*
*" ~ Fp Dp 2dp + *
4*, 4*, x 4D*
4*C$ & , %;4*:p * * + *4*
Q~ Y|,~ *Beginning of tape encountered E"H *0 h I 0 *@ P PROCESSSKI X @
}Z )r
}_ )r @ ` E!* (*P * *kR\Q| > 1
\)t
*
4*
, {4* C$)J, %5 x & ,
U( *#@ 4F*)4* F$ , )$x B$ 4D*(4*$, )C4*'+ *64*(C$* , * x U& ("* *,,
4*44*6C$ ,
Z(x B$ 4D*:4*6, *24*9. $ .& 1d "@ *=@ 4F*R4*:&$ & Q( X(p *(p , *p x .( , R x Dp 4*F *U" *N $ & (Q(p X(p *(p (p , 4*M4*Q, g4*R, "E4*SC$**@ , )I4*T (U *VC$)H@ , *U4*VC$*T, )K x & 0D @ 5F*b4*X $ , ) x B$ 4D*` *U *4*\, *:4*, ;4*`+ *64*aQ~ Y|,~ *dSource device must be DISK Block size greater than the ANSI standard of $@ *l E-p *uw I E. @ Qx MESS @! Qx *uRE PROCESSSTO ` ax @
}Z *
}_ * @ x E&L*dE'|*g ("
*x +2R\Q| > 1
d* $*b4
*b $ , Dp 4*{Q$ X$p *$p 4*}Q$
X$ * D" +*$ 4* p 1D - D 4+ $ DX 4+ Vp , s p 4+ $ }Q
+ X Dp $ p p 4+ $ X 0F @ 4D+4+
Q$p X$ *$ 4+ ( +C$ &
Vp , *5 p 4++ +&4+ $ X 0F @ 4D+ 4+ $ & Q( ( +X(p *(p (p Vp , p + +&4+ $ X 0F @ 4D+&4+ $ & Q( ( +#X(p *(p (p Vp , p 4+!4+& p & , * @p 4+&Q~ Y|,~ ++Tape cannot be unlabelledEBCDIC tape, read only TOPS-20 tape @E6X ( p +4 +a0 MORLI ( @E7L+9@ ARGS @ @ ( 8 +<MOSDM ( @E8 @ UNLABELED H @E:l+C@ ANSILABEL H @ 4
+EE8p @ DUMMYTAPE H @ +J@b( ARGBLKPTR H @ E9P $ (@ +M'PT+NH /PT+O @ARGWORDS @ @E:0 @+S L TYPEOFLABE X @ @ +VL EBCDICLABE X @E;\+Z@ ARGBLKTYPE P @ E9d L TOPS20LABE ! +^ X @ @ E PROCESSTAP X @ @
}Z *y
}_ *x @ ~ E2$++E3$+.E4,+0 ("* +d +nR\Q| > 1
l*z <+)4+) $ 1F @ 4D+l4+g , K4+jQ~ +mY|,~ E>( +v2 e OMPATIBLE INDUSTRY_C @
e +u N TERMINATIO X " e @ fZh +efZo +d *U(* +y1
t+f L+l4+l, #4+z, #M4+{4+|C$ & , 4+}, $4+ ), $A x *A
U* , D ~4, ~0$ 0d + ,+ 4,, $;+ ,4,, $c+ ,4,, $s+ ,4, *U*U* ,
, %+ ,4,
, %+ ,4, , %#+ ,4,, & + , *U*U* ,4,, &Y+ ,@ ,@ ,@ ,@ ,
@ ,@ ,@ ,@ , 4, ~0$ "*U* ,0d + ,1+ 4,, ' + ,14, , '++ ,14, , (+ ,14, , (g+ ,14,!, (t *U*U* ,$+ ,14,#, )4+ ,14,$, )[+ ,14,&, )r+ ,14,', *+ ,14,), *y+ ,1@ , *U*U* ,,@ , @ , @ ,!@ ,'@ ,)@ ,$@ ,&@ ,*@ ,1@ ,#4,* 4D+}4,1, +e4,3+ ,5g @ 5@,9 B D F O@,6 < \ Z &1\ < .< C>p ( ,=Q Q $ & -" \ } ^ |C$#m@ @f @j @n , )C$
#@ @f @j @"P ,F@n 0 , (| `B`b+ +y, + +y+ ,5+ ,4 @@ ,LANSIMT> FLDB0 /XE]t,P@ xACTB0 /XEJD 7@ xACTB1 ! ,T /XEJx @ yv xACTB2 /XEK0 @ @ pACTB3 /XEKh 0 p p ,]@ @ xFILB0 /XE\L,b@ xDEVB0 /XEYD,e@ x 0@ ,eCMINI /XESt,h CMFNI /XES,k CMFIL /XER4,n
8 ,n CMCFM /XEP,q CMACT /XEOd,t@ ( BRINI /XEO4,w @ ,v BLANK /X @ BRMSK /X CMBRK p , /X CMCMA /XEP@ CMDIR /XEQT-@ ( CMDEV `
- /X -
@ ( CMDEF ` /X / CMERR /X -@ -( CMIFI /X - CMHLP /X CMKEY /XEU-" 0@ -!@ ( CMIOJ /X -%@ ( CMINT /X @ ( CMSWI /X < `@ -)EWT-+@ ( CMOFI /XEW$-. CMNUM /XEVt-1@ ( CMNOI " -2 /X -4 CMNOD /X @ ( CMNUX /X @ ( CMQST -: /X @ ( CMTOK /XEX4-@ CMTAD /X @ ( -CCMUSR /X -F@ ( CMTXT /XEY @ ( CMUQS /X @
-K( DEVB1 /XEYx @ {~`xDEVB2 /XEZ0 @ @ pDEVB3 % -T /XEZh @ @ xEOLB0 /XE[ @ EOLB1 /XE[X @ @ @ -\ EOLB2 /XE\ @ EOLB3 /X @ FILB1 ! -e /XE] @ (FILB2 /XE]8 @ @ PFILB3 /X 0 P P -m@ @ xFLDB1 /XE^( @ ~`xFLDB2 /XE^` @ @ x ( 8 -vFLDB3 /XE_ @ @ xKEYB0 /XEc
-}@ xGJGEN /X 8 ` -~Ea|. GJDEV /XEa . GJACT /X . GETER ! . /X @ GJDIR /XEaH GJEXT /X 0 .GJNAM /XEb\. GJJFN /X GJPRO /X
. KEYB1 /XEc@ @ ~`xKEYB2 /XEcx @ @ xKEYB3 % . /XEd0 @ @ xUSRB0 /XEdl $@ xUSRB1 /XEe @ @@ .) yv xUSRB2 /XEeX @ @ pUSRB3 /XA @ @ x *U .1
|+y ,4 ,M , ( ! 0ANSIMT_TAPUHFE:<ANSIMT>ANSIMT.PAS.3 .: .B P .1 H EE@ ECH H EBH E@P @ ` E?\,L @
SL; ,5SL; ,5OHW OH. OHf D(R +y C1 g@% ,6gINGg ,7 D"gINVT ,8gIN | ,8g@%
)+ ) D"bP^GL **`%@O <` D 7bKd+' 1`% t &`%: &bKTI; (FbKs +bKL * D"`
W{ A`
X/g ?`
Wq| %,`
XX &%bKLm? &c`% | &``% J r`%k &`%_} &] D"`%`w &`%- &'`& = 5`%K] ,`?^ `@)F ubK\
+~dSOb *Yd+#4< ,: D"e,K`
Nu )`-% ) ` '; "we5$@ ,Ge5!\ ,C D"`
NsM "V`
Gc]Ez* )f7 3 ) c_ !:f7 *3 #_f7 O =f7 r #ZbK1 *W @ e4|C )ev{2 ,? L%)6g C1 H @ u^c; |"q H @ |G; |"} x a J1 gg a J1 gg / 8 ,J ( ( .G )