DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »editlook«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »editlook« 

TextFile

mode list.yes
contract from.tfput tlookup
tnlookup=edit tlookup
l./slang/,i/
;HCØ version scope.day
;AL 1980-08-26
/,l./s.a200/,
g/00/10/,
l./b57:am/,i/
b201:am       i101       ;   <:day:>
/,l./urefindentryscope/,
l./b.j13w./,r/3/4/,
l./j1:/,
l./jl.j11./,i/
     sn  w3  2           ;  if key=2 then
     jl.     j14.        ;  goto day
/,
l./j9:/,i/
j14: am      2           ; day
/,
l./a57:<:user:>/,i/
a201:      <:day:>,0,0,0
/,l./i58=/,
r/-a57/-a201/,r/,/,i101=a201-a57,/,
l./;lookup,page2/,
l./shw110/,r/10/12/,
l./procedurereadscopepar/,
l./temploginuser/,
r/user/   day     user/,l1,
r/user/   user    user/,l1,
r/10/12/,r/8 /10/,r/6/8/,r/4/6/,
r/6   /   4       6   /,
l./j4:/,
l./;user/,i/
     am      0           ;     user
/,
l./ifscope=project/,l-1,r/6/8/,
l./;theprogramclear/,
l./slw38/,r/8 /10/,
l./;theprogramscope/,
l./c23:/,l./jl.c11./,
i/
;ks-10
/,
l./;scopepage2/,
l./jl.w3b22./,
l1,i/
;ks-1
/,
l./ifscope>=8/,r/8 /10/,r/8/10/,
l./slw34/,r/4/6/,
i/
    sn  w3  4        ; if scope=day then
    al  w3  2        ; key:=2;
/,
l./jl.c11./,i/
;ks-11
/,
l./c22:/,l1,i/
;ks-5
/,
l./shw12/,g/2/1/,
l./jl.w3c23/,i/
;ks-12
/,
l./1<11+50/,
l./sew00/,i/
;ks-13
/,
f
if ok.no
end
(lookup=slang tnlookup
lookup search clear scope)
scope user lookup search clear scope
lookup lookup search clear scope
o c
mode list.no
finisb
▶EOF◀