DataMuseum.dk

;slip<
[12.5.1967                                T9, L5, M1  Gier Algol 4, page 1]
b i=15, a30, b20, c20, e20 ; The program starts in c1
_
d e4=i                     ; first core location used during translation
_
i
_
iif e4|15 then set e4
_     =
iif any of the following parameters is not set,
_
idefine i and the parameter
_
s
_
[Here follows STOPCODE,CLEARCODE][stop] [clear]
di=4e4
_
c13:
qqf
qq
qq
qq
qq,
qq
qq
qq
qq
qq,
qq
qq
qq
qq
qq,
qq
qq
qq
qq
[stop]
qqf1.14+1.19
qq2.14+2.19
qq3.14+3.19
qq5.14+13.19
qq4.7+9.14+9.19,
qq6.14+4.19
qq7.14+5.19
qq8.14+6.19
qq10.14+7.19
qq14.14+14.19,
qq11.14+8.19
qq12.14+10.19
qq13.14+11.19
qq4.14+12.19
qq15.14+15.19,
qq16.14+16.19
qq20.14+20.19
qq18.14+18.19
qq0.14+0.19
qq,
a12:qq
a15:qq-1.7+1023.29+1023.39
qq3.9+1023.19
c2:qq
c3:qq
c4:qq
c5:qq
c6:qq
c7:qq40.39
c8:qq1.39
c9:qq
c10:qq
c11:qq
a10:pp__,grna12
      17
pmpc13,tln7
ck-10,grc5
tln12,grc11
tln20,grc4
pmp19c13,tln7
ck-10,grc3
tln7,ck-10
gaa10,tln5
ck-10IPC
gaa10NTA
tln20,grc2
arc3,src5
src4,pta8
pta8t1LZ
a11:arnc9,src11
pmc11VNT
pmc9,it1
pabIOB
gmc6
arnc3,ck10
arc6,gra6
ppn(c3)XcIZA
pmc2,hsa
[stop]
pma12,arnc6
a7:src8XIZA
arp,ppp1
ar2DLA
ar1DLB
hva7XNZA
gra12,ck0
b:bs,hva8
qqnb1VNTB
qqnLPA
sra12VLZ
qqc12,hsc14
acp-1M
hva24LPB
a8:pmc4,bs
sk(a4),hhb11
a22:hsnaIZC
it(c3),paa4
pp(c5),arnc5
ck10,arc6
gra6XIOC
dlnc7,cln-10
gab5,srna6
qqpe8,hsb2
arc7,psb4
qq(a4)t-40IZB
hva3XLZ
b4:hva3XLT
hhb11LZB
ca(b5)
psb6,hvb1
qq(a2)t-1NZ
b5:pp,ps(a4)
pss39,gsb6
uda1
hsnb1IZC
itp,qq(a4)
ps(a4),it(a10)
bs20,hvb6
grnsM
bt__t-1
  38
pss1,hvr-2
b6:qqp_,hsb2
      0
b11:sk(a4),bs(b)
arnc9,hhb9
bs(a10)t19M
qqc17,hsc18
b9:hva10,scc11
arnc10,acc2
a25:acc4,ntc
qq(c3),hva11
b2:bsp511,hvs1
pm(s)IRC
gm(a4)t-1MRC
ppp-1,hvb2
[stop]
a:dlna5,ara5
ck-10,gaa3
cl-10,gaa2
paa4Ve_NZB
     _6
a1:paa4te_
        _9
srna6X
a2:is,cans-960
paa2,it1
a3:vk,vk(a2)
a4:lkVXt40LZA
sk(a4)X40
arc7,vk(a2)
hvns1LZB
hvns1NT
b1:hv(a2)DX1
a5:qq960.39
a6:qq
c14:sy29
c18:sy64
it(s),par1
pmn0X
cl34,ck-4
gac15,ca15
hv(2c18)D1
ca10,hsf2
ca63,it1
c15:sy__,cln-6
      -1
hh3c18
a24:hva8LPA
pma12-1IPA
hsnaIZC
a26:pp,arn4c13
gtpe13,arn9c13
gtpe14,arn14c13
mb1a15,grpe15
sk(a4),grna12
vk(a2),hha25
c12:tpass sum;
    _
c16:tsystem match;
    _
c17:tend merger;
    _
[stop]
c1:
uc1
_
dc=40c1
_
vy17,pme4
hsnaIZC
arn1e4IOB
hsaX
pmne11X
cl10,dlnc7
are4X
ck-10,gaa16
gma12-1,gaa26
hsnaIZB
a16:pp,pmpe5
tl-20,tl20
a19:gmc____t1
      _13-1
is(a18),ncns-2
pa(a19)
a18:bt__t-1
      16
ppp1,hha16
arnpe10,nc(e3)
qqc16,hsc14
srn4c13ITB
grn3e4,pm16c13
tl-20
gm 3e4NTB
pp0IZB
a13:arnpc13,mb1a15
ck-20,ar3e4
gr3e4,ppp1
bsp-16,hva27
ncp-11,hva17
grc2VLZB
src2ITA
a17:pm3e4,dlnc7
tk8,cl-8
are4,pma15
pmpc13NTB
acpc13VNZB
ppp1LA
acp19c13LZB
hva13
a27:
hva14NZB
pme7,gm4c13
arne1,mb1a15
gr9c13,grn3e4
arne2,mb1a15
gr14c13,hva13-1
[stop]
a21:mb1a15,ar1e4
a23:are__t1
      _12
gr(s),hvs1
a14:pte1,pae2
pte2,pte7
arn23c13,hsa21
arn28c13,hsa21
arn33c13,hsa21
pa23c13t4.7
arne4
acc13,ac19c13
hva20LTB
arnc13,mb1a15
tl-59,dlnc7
tk8,cl-8
are4V
a20:arn35c13,mba15
ac37c13
arn34c13,mba15
ac36c13,arn34c13
mb1a15,gr34c13
arn35c13,mb1a15
gr35c13,arn15c13
gt17c13,arn16c13
gt18c13,arn2e4
ac17c13,ac34c13
arn15c13,mb1a15
ck-20,src8
xr,dlnc7
arc8,ar2e4
ac18c13,ac35c13
pmn-c-40XD
cl10,dlnc7
grc10X
mlnc7,gmc9
paa10t17
pta1-1tc-40
pta1tc1-40
hva10
de5=i,e11=1e5,e12=e5+39
_
de1=41e5,e2=42e5,e3=43e5
_
de9=e5-40,e7=40e5,e8=c1-1
_
de6=e5,e10=e5-16
_
de13=4c1,e14=9c1,e15=14c1
_
[After i follows STOPCODE, SUMCODE and a sum character]
       _
i[stop] [sum] [051]  T9,L5,M1
_
e
_
e
_
[stop]