DataMuseum.dk

[1.6.68                                          T7 and L3    ier algol 4
                                                             14]
[Here follows STOPCODE and CLEARCODE][stop] [clear]
<e49-6, <-e49+8, ⨯  ;   test tape number
i wrong tape
_
s                   ;
_
>                   ;
d e57=14             ;   version number
_
<e57-e50,           ;   if version number T7 and L3 gr max version number
                        __                          __
                    ;   then the following definitions are loaded;
                        ____
d e61=1             ;   define version number T1 and L1
_
d e62=9             ;   define version number T2
_
d e63=10             ;   define version number T3
_
d e64=13             ;   define version number T4
_
d e65=11             ;   define version number T5
_
d e66=12             ;   define version number T6 and L2
_
d e67=e57           ;   define version number T7 and L3
_
d e68=8             ;   define version number T8 and L4
_
d e50=e57
_
>                   ;
[stop]
be
_
bk=d,i=11,a20,b40,d10
_
b:pin0X
b1:arnc54,tk31
tk-1,gara
mbra8,scra
gpra10,para9
a:pp,hvra4
a1:hvLTB
b2:ck10,mlc58
dlc58VXNZ
b25:hvnra3IZA
a2:psb32
hv(ra1)LTB
hvra8LOA
b3:itp-128,para9
a3:udc37,hsc37
a4:gac37,is(c37)
bss502t502
a5:psb31,hvra1
psb35,cap16
psb31,hvnra1
ca32,hvra2
ca58,ppn0
ca60,ppn128
hvra3LZ
cap59,psb33
cap-101,psb34
mbra6
a6:ca63,hvra3
a7:hv(ra1)LTB
a8:qq895VXLOA
a9:qq,hhrb3
mtra9,grc17
b4:arn(c37)D
ck10,grc54
a10:pp,hhc5
b5:pmnc53,grnc17-1
xr1,hsc6
pss1,gsra1
itra9,pasb23
pi1.1+1.3,hvrb1
db5=b5-b,e=b5,b2=b2-a9
_
db3=b3-a9,b4=b4-a9
_
da3=a3-a9,b25=b25-a9
_
[stop]
b6:
b11:grc17-2,gsrb7
gmc17LOB
b7:arnr_,tl-2
       0
garb7,it6
b8:tl,mbrb9
b9:nc60,hvrb10
hvnrb10LOA
arn(rb13)NOB
ga(rb10),parb8
hhnrb11XIZB
b10:ps,garb8
nc0,hv(rb7)
d:hhnsb3XNOA
b12:pmc17X
nkf39,dkfc50
bt(c17-1)t-1
b13:mkfrb__,hvr-1
        _20
ns(s),bss
grfc17,srnfc17
grfc17,hvsb4
b14:nc16,hhrb15
arnfc50,mkfrb20
b15:grfc50,pmc17
arnc17-2
hvsb2LOB
pmc17-1,mlc58
gmc17-1,hvsb25
b18:hvnsb3XLOB
bsp384,itd7
b19:parb13td6
arnc42IZB
grc17NOA
b17:pmc17,hvsa3
b20:qq3,qq320
b21:cm(r-4),canr409
db23=b10-b6,d1=b14-b7,d2=b18-b7,d3=b17-b7,d4=b19-b7,d5=d-b7
_
db31=i-b7,b32=1b31,b33=2b31,b34=3b31,b35=4b31,d6=b20-b13,d7=b21-b13
_
qqd1.7+2.11+2.15+2.19+4.23+4.27+7.31+7.35+7.39
qqd2.7+1.11+1.15+0.19+15.23+0.27+6.31+15.35+0.39
qqd3.7+3.11+3.15+3.19+15.23+15.27+15.31+15.35+15.39
qqd4.7+5.11+5.15+5.19+15.23+5.27+15.31+15.35+15.39
qqd5.7+0.11+0.15+0.19+15.23+0.27+15.31+15.35+0.39
e
_
t read integer;
_
qqd-d1.9+1.14+0.19+0.29+1.33+16.39
qq
t readreal;
_
qqd-d1.9+2.14+0.19+e.29+1.33+17.39
qq
e
_
dd=2d
_
[stop]
bk=d,i=1,a30,b10,d10
_
d:qq3,qq320
a:hs
d1h:it(c37),pt
pm256DNTA
a1:udc37,hsc37
a2:gac37,is(c37)
bss511t520
hvra4M
a3:ck10,mlc58
dlc58VNZ
qq0VITB
hhra6X
hvra1NZB
gmc17,arnfc50
mkfrd,grfc50
pmc17,hvra1
a4:cap59LQB
hvra8LQB
cap16,hhnra3
ca32,hhra7
d2:nc,ca
psra1-1,hv(ra6)
d3:nc,ca
is(ra6),hvsd5
ca58,ppn0
ca60,ppn128
hvra1LZ
mbra5,psra-1
a5:ca63,hvra1
a6:hv,is(ra6)
hvsd6NTA
hs(ra6)
arn(c37)D
a7:hhra2,hs(ra6)
hhra6NTA
d4:itp-128,pa
hvnra1IZA
a8:hs(ra6)LZB
hhra6NTA
hvnra1IZB
[stop]
<e27
a9:psra20VIRB
a10:psra19
a11:hvnra15XNTB
hvra19NZC
a12:arnc42,arc51
a13:grc51,grc17
a14:ptc17XVLRA
grc56XVIRA
arnc52,arc17-1
us0LT
gmnc52X
src17-2ITA
hvns1XNZC
qq(ra18)t256LZC
it(ra18)t160LZA
ptra14t59
hvra18
a15:hvra16NQB
nkf39,dkfc50
grfc17,ncn(ra18)
srnfc17,grfc17
pmc53
gmc50V
a16:mtra18,grc17
arnc42,arc51
grc51,arc17-1
us0,arnc51
a17:src17-2ITC
a18:panDXIOC
a19:hvns1LTA
srnc42NRC
a20:grc56NRC
pmc51,arnc17-4
gac33,gm(c33)
cac17,us0
hsnra13LRA
pm(c37)DX
ck10,grc54
a21:pmc56,gmc17
a22:pp,hhc5
[stop]
⨯
a9:psra20VIRB
a10:psra19
a11:hvnra15XNTB
hvra19NZC
a12:arnc42,ar(c17-4)
gr(c17-4)X
a13:arnc52,arc17-1
ck-10,gara14
gm(ra14)VLRA
gmc56VIRA
a14:ptt
gmnc52X
src17-2ITA
hvns1XNZC
qq(ra18)t256LZC
it(ra18)t160LZA
ptra14t59
hvra18
a15:hvra16NQB
nkf39,dkfc50
grfc17,ncn(ra18)
srnfc17,grfc17
pmc53,gmc50
pmc17V
a16:mtra18X
arnc42,ar(c17-4)
gr(c17-4),arc17-1
ck-10,gar1
gm,arn(c17-4)
a17:src17-2ITC
a18:panDXIOC
a19:hvns1LTA
srnc42NRC
a20:grc56NRC
hsnra13XLRA
pm(c37)DX
ck10,grc54
a21:pmc56,gmc17
a22:pp,hhc5
qq
>
dd5=a9-a11,d6=a10-a11,a9=a9-1,a11=a11-a9,a12=a12-a9
_
da14=a14-a9,a17=a17-a9,a18=a18-a9,a21=a21-a9,a22=a22-a9
_
[stop]
gtrb,ps(c50)
srnc42,ars1
b:ps(c50)tIQB
ars2,pms3
grc17-1MA
gmc17-2,pmc17-3
qq-1,hsc6
gpsa22,pps
qq-1,hsc6
itpa11,pasa6
itpa12,pasa
itpa14,ptsd1
itpa18,ptsd4
srnc42,grc56
<e27
arnc17-4,gac33
cac17,il0
arn(c33),grc51
⨯
arn(c17-4)V
qq
qq
>
hvpa21LT
src17-2ITC
<e27
grc51VLZ
⨯
gr(c17-4)VLZ
>
hvpa21NT
pps,hsrb5
ck-10,hsrb4
acpd3,hsrb5
ck-10,hsrb4
acpd2,grnc56
pmc53,gmc50
pin0Xt252
arnc54,psp
tk31,tk-1
garb3,mbrb2
scrb3,udsd4
b3:pp,hvsa2
b4:arrb7,gr(s1)
b5:cln-10,tk2
arrb6NT
tk1,tk-3
b2:qq895,hvs1
b6:qq3.27
b7:nc0,ca0
e
_
t read general;
_
qqd-d1.9+3.14+2.19+0.33+33.39
qq7.9+5.14+10.19
dd=3d
_
[stop]
<e27
bk=d,i=1,a10,b10
_
b:ca60.5,pp128
grc17-1,hvrb2
b1:hhrb4NOB
qqVNZA
arnc58,hhrb4
b2:udc37,hsc37
b3:nc,ca
arnc17-2,hvrb9
tk4,ca0
sr1.5DVLT
ca63.5,hvrb2
nc58.5,ca60.5
pp0,hvrb
hvrb2NRA
b4h:ck6,arc17-1
ck0,nc(rb6)
garb6,ck6
b5:bt_t-1IOB
     6
tl-6,hvrb1
xr,ck-3
ar15.3D
sr5.3DLOC
grc17,arnc52
arc42,grc52
arc50,us0
arnc52,src51
b6:qqVLOC
hvn(rb5)DVX6LT
pmc52,arnc17-4
garb6,gm(rb6)
cac17,us0
pm(c37)DX
ck10,grc54
grnc17VLOC
b7:srnc42,grc17
b8:pp,hhc5
b9:qqM
grrb3VNRA
panc17-1t58.5IZA
hvr1b1IRA
[stop]
gtra,ps(c50)
a:arns1,pss
ars2,src42
pms3,gmc51
qq-1,hsc6
arnc17-4,gara1
cac17,il0
a1:arn,gpsb8
hvsb7LT
grc52,src51
grc52VLZ
hvsb7NT
ppsIZB
pmc17-3,hsra4
ck-10,hsra3
acc17-2,hsra4
ck-10,hsra3
acpb3,arnc17-3
abra8X
papb5t6IZA
psp,arnc54
tk30,gasb9
mbra5,scsb9
pp(sb9),gac37
pasb6X58.5IRA
grnc17-1,arnc17-2
bsp,it60.5
pac17-1t58.5M
hvnsb3XNOC
grsb3IOA
pasb6LOB
hvnsb3XIRA
a3:arra7,gr(s1)
a4:cln-10,tk2
arra6NT
tk1,tk-3
a5:qq895,hvs1
a6:qq3.27
a7:nc0,ca0
a8:639/639/1023/1023
e
_
t read string;
_
qqd-d1.9+2.14+1.19+0.33+33.39
qq7.9+5.14+10.19
dd=2d
_
[stop]
⨯
bk=d,i=1,a10,b10
_
b:ca60.5,pp128
grc17-1,hvrb2
b1:hhrb4NOB
qqVNZA
arnc58,hhrb4
b2:udc37,hsc37
b3:nc,ca
arnc17-2,hvrb9
tk4,ca0
sr1.5DVLT
ca63.5,hvrb2
nc58.5,ca60.5
pp0,hvrb
hvrb2NRA
b4h:ck6,arc17-1
ck0,nc(rb6)
garb6,ck6
b5:bt_t-1IOB
     6
tl-6,hvrb1
xr,ck-3
ar15.3D
sr5.3DLOC
a2:grt1
arnc42,ar(c17-4)
gr(c17-4),src51
b6:qqVLOC
hvn(rb5)DVX6LT
pm(c37)DX
ck10,grc54
grnc17VLOC
b7:srnc42,grc17
b8:pp,hhc5
b9:qqM
grrb3VNRA
panc17-1t58.5IZA
hvr1b1IRA
qq
qq
qq
qq
[stop]
gtra,ps(c50)
a:arns1,pss
ars2,src42
pms3,gmc51
qq-1,hsc6
arn(c17-4),gpsb8
hvsb7LT
src51IZB
gr(c17-4)VLZ
hvsb7NT
arn(c17-4),arc50
ck-10,gasa2
pps
pmc17-3,hsra4
ck-10,hsra3
acc17-2,hsra4
ck-10,hsra3
acpb3,arnc17-3
abra8X
papb5t6IZA
psp,arnc54
tk30,gasb9
mbra5,scsb9
pp(sb9),gac37
pasb6X58.5IRA
grnc17-1,arnc17-2
bsp,it60.5
pac17-1t58.5M
hvnsb3XNOC
grsb3IOA
pasb6LOB
hvnsb3XIRA
a3:arra7,gr(s1)
a4:cln-10,tk2
arra6NT
tk1,tk-3
a5:qq895,hvs1
a6:qq3.27
a7:nc0,ca0
a8:639/639/1023/1023
e
_
t read string;
_
qqd-d1.9+2.14+1.19+0.33+33.39
qq7.9+5.14+10.19
dd=2d
_
>
[stop]
bk=d,i=11,a5,b2,d2
_
d:qq_,gpra5
    0
qq_,parb1
  0
qq_,tk14
  0
qq_,mbra2
  0
qq_,grc17-1
  0
qq_,tk10
  0
qq_,grc17-2
  0
qq_,ck10
  0
qq_IOB
  0
qq_,psrd-1
  0
qq_,gsrd2
  0
qq_,gsra4
  0
qq0,arnc17-4
parb1t32LT
annc17-4,tl-39
a:pp13,dlc58
pss1XIZA
ck-10,gas
hhnraNZA
arnc50,tl-39
b:hvrb2,ppp-1
bs(ra4),hvra2
it(c17-2),bsp-1
bsp-1,hhra3
a2:pa15DV15LOB
b1:qq,hsc39
pi1.1,it(c17-2)
bsp,hvra3
qq59,hsc39
pac17-2,tln1
a3:gpc17-1,it(c17-1)
bsp,hhrb
tln1,ca(ra4)
pa(rd2)t16LOB
a4:qq(p_),hsc39
       0
d2:pap_,bsp510
      0
a5:pp_,hhc5
     0
b2:hhrbLZ
bsp499,hhnra4
tln1,hhra4
e
_
t write integer;
_
qqd-d1.9+1.14+0.19+0.29+0.33+36.39
qq2.9+5.14
dd=d+1
_
[stop]
bb1
_
bk=d,i=11
_
ba52
_
a0:arnc35,gara1
a1:ud,hsc8
pm(c30),gm(c35)
a2:ps(c35),pss1
gsra3,arns
ck20,ca40
gsc35,hvnc19
a3:ud,hsc8
qq1,hsc6
gpra3,pps1
qq1,hsc6
its1,papa27
gpra9,pps1
itra2,papa41
qq1,hsc6
its1,papa42
qq-3,hsnc6
ps(c35)t1
grnc17-3,pp256
pm(c30),arns
arnf(c30)XVLB
arn28D
grc17,gmc52
panc33Xt509
arns-1,grs
cl-20,ck20
a6:hvra7XNO
qq0,hsc39
ck1,hvra6
a7:gmc17-1,ck-5
gac30,tk10
a8:ck-6,gac17-3
tk10,ck-8
grc17-4,tk10
ck-6,gac50
tk11ITA
ck-7,grc51
pp0LZ
ps(c17)t10
a9:hv_
     0
da10=a8-a2,a4=a3-a2
_
[stop]
a11:ca1,pp10
ca2,pp100
grnc17-2,pac37
a12:annc52,nkr1
pss_,grc56
   0
hvra18LZ
pmc56,bss1
mknra25,hhra13
tks1,grc56
pss7,srra24
mkn320DVLT
a13:hvra15,it1
qq(c17-2)t-1
a14:pss-3,hhra12
a15:arn(c30)D
src50,gara16
sr1D
src17-3,it(c17-3)
bs(c17-2),hsra20
mtra14,it(c17-2)
a16:bs_,hsra21
      0
a17:arnra16,arc50
a18:gac17,ps(c17)
arn256DNT
a19:bss511,hhra22
xr,mknra26
pss-1,hvra19
a20:bs(c51),hvra21
bs(c33)
srn(c51)DVt1
itn(c17-2),pac17-3
a21:scc37,bs(c37)
acc17-2,hhs-1
acc37,arnc17-2
a22:hhra17,arc56
a23:hv_XNO
      0
ps-1,hhra12
a24:vyp51,mln(204)
a25:cans409,cm(r-410)
a26:vyp51,mln(s204)
da27=a23-a11
_
[stop]
a28:pp(c17-4),ps(ra38)
bs(c17),hvra29
it(c50),pac17
grnc52X
a34:qq59,pac37
a29:para35,bs(c17-2)
srnc17-2,hhra30
bsn(c33)
sr-1DNTA
bs(c17-3),gara35
a30:mtr-2,arc17-3
gac17-3VNTA
gara35,pac17-3
bsp509,hvra33
a31:arn(c33)Dt15
hssLT
ppp10,arnc52
arn-480DVNT
arn32DV
bsp500,ck10
cap-10,hhra32
a32:hss,pp4
a33:bt(c17-3)t-1
hsns7,hvra33
bsp509,hvra31
a35:bt_t-1
      0
a36:hsns6,hvra35
bt(c17-2)t-1
a37:hsns4,hvr-1
arnra34,bs(c50)
a38:hs_,arnc58
      0
bt(c50)t-1
a39:hss2,hhra38
a40:ps_,arnc51
      0
pac17Vt-2NZ
pp(sa4),hvs
gac30,pmc37
gmc52,hhsa10
qq
qq
da41=a40-a28,a42=a38-a28
_
[stop]
b:
a43:bs(c17),hvra47
hvnra48
a44:it(c17-2)t1
a45:bs0,hvnra43
a46:bt(c17)t-1
mlnc58,tk30
a47:ar16DLZ
a48:gsra52,gara51
bs(ra49),mtra53
hvra50NT
a49:nt___,qq630
      570
qq(ra49),hsc39
a50:bsnp507,arnc17-1
a53:qq-1VNT
qq0,hsc39
a51:qq,hsc39
acc17-1,psra43
a52:hhn
e
_
ba6
_
a1:hvra2LZA
b1:it(c35),par1
ud,hsc8
arn(c30),pm(c30)
mbr1VIZA
qqf-1.13+1.19-1.29
hhnra3XNZA
hsc63X
a2:arnc65,cas-40
qq-1,hsc6
pan(c65)X512
arns1,pss1
a3h:gsra6,cl34
ck-4,gara4
ca10,hvnra5
ca15,hvnra1
ca63,it1
a4:xrn,hsc39
a5:qq(c35)V1LZ
a6:ps,hhra3
hvc19
e
_
qq
e
_
db1=b1-b
_
twrite;
_
qqd-d1.9+4.14+0.19+0.29+3.33+44.39
qq4.9+5.14
dd=d+3
_
twritetext;
_
qqd-d1.9+1.14+0.19+b1.29+2.33+40.39
qq11.9
dd=d+1
_
e
_
[stop]
bb1
_
bk=d,i=11,a12
_
a:qq-1VXITA
a1:qqXITA
gar1
bsXt-16
dkfra8,hvra4
a2:arnfc53LTA
a3:grfc17,hhc5
a4:hvra2LZ
tkf10
ar128DLTA
tk2,grc50
pmc50,ptra6
ptra6t-3NO
srn256D
mkc50,grc51
panr1ta9
a5:arr_Xt1
      0
arnc50VLA
mknc51,hvra5
a6:mkc50,mtr
nkf0,grfc17
hhc5
a7:1023/1022/205/680
0/79/525/728
1021/781/4/140
37/335/871/857
732/319/201/597
136/805/921/102a
a8:2/402/126/852
da9=a7-a5-1
_
db=a1-a
_
a10:grfc17,grfc51
hhc5LZ
para12VXNT
ptc49-7,hsc27
tk-1,gac51
a11:arnfc17,dkfc51
arfc51X
sr1DX
a12:bt_t-128
      0
grfc17,hhc5
grfc51,hvra11
db1=a10-a0
_
e
_
t cos;
_
qqd-d1.9+1.14+0.19+0.29+0.33+34.39
qq3.9
t sin;
_
qqd-d1.9+1.14+0.19+b.29+0.33+34.39
qq3.9
t sqrt;
_
qqd-d1.9+1.14+0.19+b1.29+0.33+34.39
qq3.9
e
_
dd=1d
_
[stop]
bb1
_
bk=d,i=11,a11
_
b:hhra4LZ
grfc17X
garaVXLT
srnfc53,hvra1
a:bs_t-8
    0
hvra2
mkfc17,mkfc17
mkfra9,arfc17
grfc17,hhc5
a1:dkfc17,ita11
a2:para3ta10
gara,tkf9
grc52,snnc52
pm128DX
mkra6,grc17
sr256D
anc52,tk-1
dkc17
grc17X
mknc17,grc51
panr1t5
arr_Xt1
   0
mknc17VLA
mknc51,hvr-2
a3:arr_,mtra
      0
a4:nkf1,grfc17
a5:hhc5
1/8/730/199
1021/305/10/740
5/189/815/724
1014/216/81/547
19/1000/777/190
975/496/3/827
212/79/204/983a
a6:917/984/409/515
a7:722/416/896/819
a8:100/543/725/68
a9:f-0.333306
   _
b1:tk-29,grc17
hhc5
da10=a8-a3,a11=a7-a3
_
e
_
t arctan;
_
qqd-d1.9+1.14+0.19+0.29+0.33+34.39
qq3.9
db1=b1-b
_
t sign;
_
qqd-d1.9+1.14+0.19+b1.29+0.33+33.39
qq3.9
e
_
dd=1d
_
bk=d,i=11,a4,e
_
tk9VNT
ptc49-6,hsc27
grc50VXNZ
arnfra2,hvra
gara1,gmc51
arnra4,acc50
src51,dkc50
grc50X
mknc50,grc51
itra4,panr1
ar_Xt1
  0
mknc50VLA
mknc51,hvr-2
arra1X
mknra3
nkf9
a:grfc17,hhc5
a1:qqt512
a2:qq165t512
a3:354/912/766/1001
a4:181/19/819/254
1023/579/325/663
1023/433/591/509
1023/39/118/823
1021/117/369/224a
e
_
tln;
_
qqd-d1.9+1.14+34.39
qq3.9
dd=1d
_
[stop]
bb1
_
bk=d,i=11,a9
_
b:grfc17VNZ
arnfc53,hvra2
annfc17,srfra4
hvra3NT
arnfc17X
gara,mlnra5
a:tl_t3
    0
gara1,tl10
cl-2
sr128DX
gmc17,mknc17
pm384DX
mkra7,grc51
grc52,arnra6
mkra8X
mknc17,scc52
arc51X
mlnra9,dlc52
a1:nkf_t1
      0
a2:grfc17,hhc5
a3:arnfc17
hvnr-2XLT
ptc49-8,hsc27
a4:f354.1982
   _
a5:369/337/869/174
a6:266/172/574/725
a7:73/797/660/37
a8:8/524/902/710
a9:362/39/614/509
b1:pmn1023X
cl-20,grc17
arnc50,ck20
ga1023,gt1023
hhc5
qq
qq
qq
qq
qq
qq
e
_
db1=b1-b
_
t exp;
_
qqd-d1.9+1.14+0.19+0.29+0.33+34.39
qq3.9
t checksum;
_
qqd-d1.9+1.14+0.19+b1.29+0.33+33.39
qq2.9
dd=d+1
_
e
_
[stop]
be2
_
de2=0
_
<e18,e2=1>
<-e18,e2=1>
<e27,
bk=d,i=1,a7,b3
_
pmrb2VIPB
pmrb3IPB
e1:gtraX
abc17-3,ps(c50)
b2:nc127,hvra4
a:arns1,pss
ars2,grc17
arns3,udrb1
arns3,srra5
dlnra5VXNT
ptc49-11,hsc27
arc42,grc17-2
gmc17-1,pmc17-3
arnc42,hsc63
pss1,gsc17
gsra3,tln7
arnc17-4,udrb1
tl-23,src17-1
src17-4ITB
ptc17V40NTC
a4:ptc49-11,hsc27
tln16,arc17-4
psc17-2,udrb1
dlnra6,arra6
ck-10,gara2
cl-10,gara1
pmc17,arnc17-1
a1:is,cas-960
para1,it1
a2:vk,vk(ra1)
b1:src42XITA
a3:lkVNPB
il0,sk(ra3)
vk(ra1),us0
ars,psra5
hv(ra1)XD1NTA
grnc17,hhc5
a5:qq40.39
a6:qq960.39
b3:qqf111
e
_
<-e2+1,
t put;
_
qqd-d1.9+1.14+1.29+0.33+33.39
qq2.9+2.14+10.19
t get;
_
qqd-d1.9+1.14+0.29+0.33+33.39
qq2.9+2.14+10.19
dd=1d
_
>
[stop]
<-e27+1
bk=d,i=10,a7,b1,e
_
pmn127DVXIZA
pm111DXIZA
abc17-3,ps(c50)
nc127,hvra4
arnc50,gtra
a:arns1,pss
ars2,ck-10
gare,pms3
arns3,udrb1
e:ps,srra5
dlnra5VXNT
ptc49-11,hsc27
arc42,ck-10
gara3,gmc17-1
pmc17-3,tln7
arnc17-4,udrb1
tl-23,src17-1
src17-4ITB
tln16VNTC
a4:ptc49-11,hsc27
arc17-4,udrb1
dlnra6,arra6
ck-10,gara2
cl-10,gara1
arnc17-1
a1:is,cas-960
para1,it1
a2:vk,vk(ra1)
sksVNZA
lks
a3:pss,vk(ra1)
b1:src42XITA
para3X40
hv(ra1)D1NTA
grnc17,hhc5
a5:qq40.39
a6:qq960.39
qq
qq
qq
e
_
t put;
_
qqd-d1.9+1.14+1.29+0.33+33.39
qq2.9+2.14+10.19
t get;
_
qqd-d1.9+1.14+0.29+0.33+33.39
qq2.9+2.14+10.19
dd=1d
_
>
[stop]
<e2,
bk=d,i=10,a9,b2
_
pmra3,hhra
a:pmra8,gtra2
ps(c50)X-124IPB
a5:qq,abc17-3
ca255,hhra1
xr-1,hsc6
a1:hvse1,srnrb2
a2:pms125,pss
a3:ars127XITA
ars126,grc17-1
arns127,src42
pac17-1XVe18NTA
a4:ptc49-11,hsc27
dlnrb,grc50
pmc17-3,tl7
tln16,src50
src17-4,ca0
arnc17-4,src42
hvra4LT
tk18,ptc17-1
acc17-1,tln4
ck-10,gara5
tln30,acc17-1
pmc35,tl9
tln15,src36
hv2c20LZ
srns127,ps(ra5)
a6:arrbXITA
a7:cln-10NTA
mtra7,arc17-1
ilsVNPB
a8:qqf111,uss16
arrb1,grc17-1
arn1c36,ils16
il0,can(c17)
hvnra6XLTA
hhc5
b:qqe18.39
b1:qq1.21+e18.39
b2:qq40.39
e
_
dd=d-1
_
t put;
_
qqd-d1.9+2.14+1.19+1.29+33.39
qq2.9+2.14+10.19
t get;
_
qqd-d1.9+2.14+1.19+0.29+33.39
qq2.9+2.14+10.19
dd=2d
_
>
e
_
[stop]
be3
_
bk=d,i=10,a59,b11
_
bc21
_
c:qq
qq
qq
qq
c1:pmnc18DXIZA
c2:pmrc12,garc17
c3:garc6,parc8
dlnrc11,arrc11
ck-10,garc5
cln-10,garc4
c4:is,cans-960
parc4,it1
c5:vk,vk(rc4)
c6:can,hrs1
c7:lk,it1
c8:qq,arnrc7
garc9,garc15
vk(rc5),vkn(rc4)
c9:arIPC
ar2DLA
c10:sr-1DLB
ar(rc8)DVXLC
hv(rc9)Dt1
c11:qqXVDN
c12:qq1k.39
hv(rc15)Dt-1LZ
sc(rc9),pmrc13
c13:hrs1XLPB
c14:gprc19,parc20
c15:pmnXt1IPC
c16:hv(rc4)Dt1LC
hrs1XNZA
c17:grrVt1LA
c18=c-1c17
parc17V2c18LT
pmrc10,hvrc13
c19:srt1
parc20t512NZ
hvrc15NPB
c20:pit511
c21:qqe18.2+1.5,hvrc14
a1=c2-c1,a2=c3-c1,a3=c4-c1,a4=c8-c1,a5=c14-c1,b1=c4-c1,b2=c5-c1
b3=c6-c1,b4=c7-c1,b5=c8-c1,b6=c9-c1,b7=c15-c1,b8=c19-c1,b9=c21-c1
e
_
[stop]
i=i-40
a10:qq40.19+1.39f
qq39.19+1.39
qq-1.13+1.19-1.29
e1:hvnra11
e2:arn1DV
e3:arn-1D
a11:gr(c35)t-1
qq14,hsc7
hvc11,hhc-2
hh(c38),arnc35
grp-1
grn(p-1)Vt1MA
a12:pac30Vtc50LZA
udp3,hsc8
arn(c30),mbr2a10
pm(c30)XIZA
hvra14XNZA
pmc23
a13:mtra10,hsc63
arn(c30),srr1a10
arra10LT
gmc23,pms1
qq0,hsc6
a14:gm(p-1)Xt1M
tl-6,is(p-1)
its-510,bsp-512
ca-1,hvra12
ncn(p2)
udp4,hsc8
bs(p2),arn(c30)
qq1,hsc6
gsrb10,it1
qq(p2),hsc6
gr(c35),pps1
arnc42,hsc63
b10:hvt1
qq
qq
qq
qq
de1=e1-a10,e2=e2-a10
_
e3=e3-a10
[stop]
a20:gprb11,pps1
arnra28,hsc63
vk960,can(c64)
arnra24,hvra21
vk(c64),lks-4
vk(c64),gpsb4
pp(c35)
ppp1,grns-2
hss
a21:bs(p13),hhra22
hvra26NZ
pp(c-1),arns-2
hvr4XNZ
srnc31,tk16
ars-4
ar1.5DX
udp4,hsc24
qq(c35),gm(c30)
cln44
hvnra26NO
a22h:hvnra27,it1
bs(p13),hhra23
pps
hvra26NZ
psr-2IQB
qqXNA
hvpb7NZ
a23h:
b11:hv,pap13
hvra25NT
arn(p10),tl-6
ca-6,hv(rb11)
a24:srn1DV
a25:arn5DVNZ
a26:ar2D
a27:pp(c-1),psp5
bs(p2),psp4
tl-69,hhc21
a28:qq5.19+2.39
qq
qq
[stop]
a29:arnp-2,mbra30
nc(pb9),hhnra40
hsra38LA
hsra36NA
hsra36LA
hsra36LZ
hsra33IZA
a30:qq976,hsp
hhra40NT
a31:hsra38NA
hsra37LA
arnp-2,tk4
tk2VNT
arnp-3,hvra32
hvra31NT
ck-22,arp-2
a32:scp-4,psra40
hspa1IZA
arnp-4,tk24
ck-8,ac(pb4)
ck-16,sc(pb4)
a33:hspa4
sk(pb4),vk(pb5)
hrns1
a34:hsra33IZA
arn(pb1)Dt-1M
ca-1,acpb2
papb1t959NB
a35:nt2,qq(pb5)
hspa3
arnpb6,hhra39
a36:grn(pb7)VMQB
a37:grp-2
a38:arnpb7,ca(pb4)
a39h:hvra34,gapb7
pm(pb7)Xt-1
a40h:hrs,arra35
pp(c-1),psp4
tl-69,hhc21
qq
[stop]
a45:srn(c35),pms-4
hvnra55NT
tk16,ar(c35)
acs-4,tln7
tln16,sr(c35)
a46:qq3,src31
hvnra55LT
arn(c35),tl16
ar(sb9)DIZC
pps,hsra48
a47:hsnra50XIZB
hvra47NZ
arnr1,hspa1
arnp-4,gr(pb4)
psra55,hvra52
a48:gr(pb7)VMA
a49:gm(pb7)MPC
hsra51
arn(c35)t1IPC
tl-6,pm(c35)
nc-6,hvra49
a50:gm(pb7)MB
a51:pmn(pb7)DXt1
nc(pb6),hrs1
grn(pb6)MC
hvra52LZB
arnp-3,tk-2
ca(pb5),hhnra55
a52:hspa4
sk(pb4),papb3
a53:it1,qq(pb5)
hv(pb1)Dt1
a55:arra53,arra46
pp(c-1),psp5
tl-69,hhc21
qq
qq
qq
qq
qq
a59=170
a59:
e
_
[stop]
twhere;
_
qqd-d1.9+2.14+e3.29+2.33+37.39
qq7.9+11.14
treserve;
_
qqd-d1.9+4.14+e2.29+2.33+37.39
qq2.9+11.14
tcancel;
_
qqd-d1.9+3.14+e1.29+2.33+37.39
qq11.9
dd=4d
_
e
_
[stop]
[stop]
<e27
bk=d,i=10,a8
_
it1
ptra4,gtra
arnc17-4,tl-12
tln12,grc17-2
hvra1LZ
psn(c50)X
srnc42,grc17
a:ars1,pss
ars2,tl-12
tln12,acc17-4
arnc17-3,tl-9
gmc17-3VXLZ
a1:ptc49-12,hsc27
hvra1LZ
ck6IOA
pmc17-4,nc7.3
hvnra2XNOA
ck-11,nc0
nc8,hvra1
hhnra6XLOA
xr,ck-20
tl-4,ck12
tk23,hvra8
a2:tl-12,ck-8
tl-13
a8:hvra1NZ
a3:tln13,grc50
arns3,src50
src17-2,arc42
hvra1LT
a4h:arnc17-4,bs
us(c17-3),hhra5
a5h:il(c17-3),grnc17
a6h:hhc5,cl10
tk12,ck-4
nc0,hvra1
xr,srra7
hvra1NT
arra7,hhra3
a7:qqe18.39+1.39
e
_
t il;
_
qqd-d1.9+1.14+1.29+0.33+35.39
qq5.9+2.14+10.19
t us;
_
qqd-d1.9+1.14+0.29+0.33+36.39
qq5.9+2.14+10.19
dd=1d
_
>
bk=d,i=10,a6
_
gtra,ps(c50)
a:arns1,pss
<e27
ars2,grc17
arns3,srra6
ptc17V40LZ
⨯
ars2,ck-10
gara3,arns3
srra6
qqVLZ
>
ptc49-13,hsc27
arnc42,hsc63
gpra2,pss1
gsra1,arnc42
arc42,hsc63
vk960,vk(c64)
lks1,vk960
a1:it,pas15
ppra5
hss5
hvra4NZ
pms3
tl23,tln16
hss7X
<e27
lks1,vk960
a3:pss1,gsc17
arnc17,us0
⨯
a3:lk,vk960
>
a2:pp,hhc5
a4:
<-e27+1,is(ra3),pss-1>
par1,pmr1
grns_Xt1M
    0
nc39,hhr-2
<e27,hvra3⨯hvra2>
da5=i-1,tsystem;
_       _
a6:qq40.39
e
_
tsystem;
_
qqd-d1.9+1.14+36.39
qq10.9
dd=1d
_
[stop]
<-e40+1,<e40+1
⨯de49=9
 _
iload samba tape
_
⨯de49=8
 _
[After i follows STOPCODE,SUMCODE and a sum character]
       _
i[stop] [sum] [048]  T7,L3
_
>
s
_
[stop]
[stop]