~|HE@Q;<
&
+q72=282r8
>?>.s>)?PBBb5*nfile.PA
@Switches:
/B Treat ! as byte shift /K Use extra memory
/C Chain to CREF /L Load
/E Enable error msg on link generated /N No listing
ZERO-ARE YOU SURE?BAD SLASH OPTIONDSKTTYBAD DIRECTORYNEED FILE NAMESEGMENT FULLHANDLER FETCH FAILEDNO OPTION FLAGOUTPUT DEVICE FULLCAN'T SPECIFY RT-11 DEVFILE NOT FOUNDOS/78 I/O ERROROS/78 FILE OVERFLOWRTFLOP>RT-11 FLOPPY I/O ERRORVER: A0z
@!#f0%f%/&{D8oz"h`hn0/&`0%#D)02(*b
b2,ZE&
E*JK@~6,b,N}/8F.|&,F.0b202(VVb^b
bb2Y&Z&
2`e62'etW,E0/{i a> /w #ab wz a>(/|e0/~ |Cp0bo2b nyy&q.8/qH.&/&{bb!b(mz&&~a./D"}'7*a./D"}? .&2|) b'j&&~/`idbbbab_z' brf"g' yby`n&qz"}|@66yJ0Ee]hTf~)
b(=z`kb}b("|{c({Fnz2l'"ymnOxmrFn''w"(tfn |A8Ahpljbv(/uj6lj"Nb~AN`(Nv N&F.NbNbtNkzv Fnsbk`k`m?8
,DluqS{
| H?~9}q>(|s({s(zVf#zcy(PF.#N@zVH/x}"11c(ZzwVV.01c12F1(?Wv)2u)S
t1G2r(~!g1& VB@z1J's |L{OJr"Jjqq)%:125j {cpo#bFn#n"#c#G#dN!.#zO7T"pv%&4"~(z}|' {Cz(y)X3x wu {Cv(zu|' C@oVf0t,sry MMri&JIw#{r &O pDqqsXoB,ppU xI
r pD &Oqx4C0AN No"cccnm `zl!>kGS0CLTT 8 fm|ozfjvTx[Ao{7$#--cJn~--}"|-r{-&-;z <n0-yi@ M{-"*6y \"0H/55 z-$-?-0 l7<c
n
~`O~O=JxO(wO(7 L70(Hzv@/~v&N!XJO0jk]"!L[
c wc
L M(r/Xgf>fbc { H)zs
od#/d#r5@/eD.`/"~&D>D>"`wz'R0R6BYXn~0}6&bcM`!fCd| "@s@sDNor
){)7oF"[ D[fk8ZjW@[7J .(/X&z"[=kJZj_k-Oj-
Iy[(1JO0xv&m^Zvi-w (nzvF.nkjZj^l[[Xo$
Y@}8
r~+f!~S")F:),j;KQ,J
.A! {B@P) [nA>{ >$%.~ C7p<2e(=Fd"'"1;=1
pJ5BS9 xb"d]#_pd S )*ES&>"L_nv no room on current device
/N No pre-delete
/O Match only files with other than today's date
/Q Query user about file before operation
/T Use today's date
/U Treat each input specification;& 3YtYp'xp6'uK`h`~3u?```@P0 >_g
00|qxs-pV0`C. [OD1VNaf W/0}QpAs8@@b
l ~C~@(zUMm?}D>@.zUQ}/U}?UU7?}|0}&|'{'zy'xwvutsMwvrqpoMw)vnJu)msMl)Mk)JM*{%." z{.,{`y0 Uc Ud Uc
UdU6U C
taU+ f 'h3dWwW$e%c:U+Q"tj@.et:a$&h`6zopCLy / " u{pt)~b)}i/3
6|"(,z{(//z" c()z(/$ $ J 6 6{)yK~b1.x)&" 9z{kyt9w ({s(Pr)* /N)9 ?i
{ prz &+\byb
l <
t5x" }i#H:XD* =z ~+=jw&v&u&7tDNx" =jt &= kkbFnsksikJ.siks)[0cSv)l%=l n|on# @e'es({(/%~"({}(/4|(/4{(/4z(/y"("zxB>w+xb4/+B4l'!>'d 'c 'd 5J'KHxiHX~HX
:kHsH!nHd HcHd Hc HdO0FnfO0 'VJH?vk&
~Irk"jbck{Vgs:?`*opsQA~h3 z{:g2b
~I~0
X'&kr~& CHOKr,b
~I~0
$;{4z?Afo}|bmi&&H>(YzH(oYH. ez{&z&3 YzNJm3d3y2&m&x",&>w#(3{6jvs)X_X|2F?I:X{)zo
o~}rb xb'~iM ! gW Fnf} Fn!. 't+rc_(/."L,"b|h/{)IgKL",&ts'K",& bc ~& bb "b =z0D.pT&
)IyK?{Wz`&
,~~Py`2XarWkvM rWFnh{n')oH1oJp~U Nr``bbbxH/J"raab l]8Aa&"Xob"J
n
~b$}i~a"Xca.Xar!b`ba`& /+|rb Ub lW]W^W__{ Fn] '_z J
n^b t@,8? ?Wy2W0{Dg(?k#|iWa)c . xkhPoH /=2ZT
)I~!v(/f%$xDJww)Rx!>xH?Yw"! a .#0(Uz #c##sk%&v%'k!.%w"*S4vkb*wf{k&B&~6*<fO
SWFLW"uir ~(/8(u|+!@f +b+b}{+@"@}{ ~"("z| /%d. +b+`|"uif08+
d@/
a)p
*a c "H{|8{/{ r r r |@6# n&z"H\z#' bMkyF+% bx@.w/^^KD ff9ff4f#6 v"@ubmtm0%
pF%x/H~ vDp <s=2 Bz@k w??v=tz
n
@bVi8Z@k wbkDk !&>s8>>4N>s8>>4NJ
b
ns&
=@O+p7O~)RhLz}X|Yr{4vzV& AC(On
,*Ko VBkw yy6@&AB0 GrZ
n?AdA6A=FJxs([s(w.:lv9jq$n^g]vrmquur)(/h/827b]r(~w)}`}#-"-#b'}' #6!.b@b(z#"J#b|g82r)&_{(//jg@
r!b& {k"5f=!$)`/N "H{|Igc
zXgYb
[jg[J gf] "
~|i @/V\))2%!u E(/g 2@gtg0qqKOvpSOv*&@pkX"9887++*7*:7,/;<
&
+q72=282r8
>?>.s>)?PBBb5*
/RT BUFFER IN FIELD 2
FIELD 2
*200
RTBUF=.
*.+4000 /4 RT-11 BLOCKS
$
JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-BAD-U9gt&`&E NO DATE (z^])_])^]) b n&# 5@.&.,/bd/a.&n,q.%/Y%&+@Uz@&d~%f&.&$d%bF%&{&6D!.%@n.%"dz% n++&@%b(&v%h&a.&o EjY5msD}/)]~(zz+9.(?{%(
z$"a-b`$z!~b@+z}-(a-$]i@?~@/U}"a-.?0 *f.@.H~.f/./-d*d0.,-k%(&r(+r(RzZ%b Nz& /HSzYH$+f@>%&f +,f h/}v ~sf /Ai4A{ehr
gb
cdtO}"dAk|{VrA~cf(/Ag2
hbOjzzkj xw;fV*azOqpUR establish loop limit
GET# read file records GOSUB to to subroutine
GOTO unconditional transfer IF test for conditional branch
IF END# test for end of string IF OPEN# test for open file
Note: Lines longer than 256 characters were wrapped