|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen GIER Computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen GIER Computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15582 (0x3cde)
Description: Bits:30000605 gieralgol
Types: 8-hole paper tape
Notes: Gier Text
de71=0 _de72=0 _bk=c60+e70,i=10 _de0=k-e70 _[ s t o p ] ba50 _pmc90XV pmraX ps(c46),pms1 grs1XMRA pm(c47)DX3 gas1,hsc22 arn(c36),ps(c46) a1:hvra2,it1 ps(c46),pmc68 arns,uds gm1023,udc89 pms-1IRC gmsMRC pmc43,gmc37 pms1,udr-11 a2:pms2,it1 bt(s1),hvc51 grs2,hsc22 ps(c46),arn(c36) a:src43,pm1023 gmc68,uds1 hhra1LZ arnf(c36),itp ptc83,pp256 pac85X509 gac82,arns2 gr(c36)D src36,tk14 gac84,tk10 a3h:ck-6,gac81 tk10,ck-18 gtc1,tk20 ck-6,gac80 tk11ITA ck-7,grc54 pp0VLZ ca1,pp10 ca2,pp100 hsc2,qq1e0.29 qqbk=e90,i=0 _di=e89 _qq193.9+e0.19+0.29t write; _qq193.9+e0.19+1.29t output; _de71=2e71,e89=i _e _[ s t o p ] ∨ ps(c82)t10 annc53,pac2 a6h:pac47,nkr1pss_,grc37 0hvra12LZ pmc37 bsst-1 mknra19,hhra4 tks1,grc37 pss7,srra18 mkn320DVLT a4h:hvra7,it1 qq(c47)t-1 a8:pss-3,hhra6 a7:arnc84,src80 gara10,src81 mbc41,it(c81) bs(c47),hsra14 mtra8,it(c47)a10:bs_,hsra15 0a11h:arnra10,arc80 a12:gac82,ps(c82) arn256DNT a13:bss511,hhra16 xr,mknra20 pss-1,hvra13 a14:bs(c54),hvra15 bs(c85) srn(c54)DV1 itn(c47),pac81 a15:scc2,bs(c2) acc47,hhs-1 acc2,arnc47 a16h:hhra11,arc37 ps-1 hhra6LO hsc3,qq2e0.29 a18:vyp51,mln(204) a19:cans409,cm(r-410) a20:vyp51,mln(s204)[ s t o p ] hsc65,qq3e0.29+1 its7,para26 its4,para29 its1,ptra31 gsra30,udc1 bs(c82),hvra21 grnc53,arnc80 ca0,nt(c85) bsp-510,it1 pac47,arc47 gac82,panc2 a21:pmc47X bs(c47) scc81VITA qq(c81)t-1LTA bsp509,hvra25 a22:arn(c85)D15 a23:hs(ra30)LT ppp10,arnc53 arn-480DVNT arn32DV bsp500,ck10 cap-10,hhra24 a24:hs(ra30),pp4 a25:bt(c81)t-1 a26:hsn,hvra25 bsp509,hvra22 a32:qq59,psr2 hvn(ra26)t-1LTA bt(c47)t-1 a29:hsn,hvr-1 arnra32,bs(c80) a30:hs,it-1 a31:bt(c80),hh arnc54,udc83 pac82V-2NZ hsc2,qqfe0.29+7 gac84,pmc2 hsc2,qqfe0.29+29 qq[ s t o p ] a41:bs(c82),hvra45 a42:hvnra46,arnra50 a43:it(c47)t1 bs0,hvnra41 a44:bt(c82)t-1 mlnra50,tk30 a45:ar16DLZ a46:gara48,bs(ra51) mtc41,it510 a51:sy570t-510LT bsnp507,arnc36 sy0LTa48:sy_,acc36 0hhns a50:qq10.39 qq a47:ps(c46),pms1 hsc22 arnf(c36),ps8 hhc55LT grfc37,ps(c46) hvc51LZ arnc37,grc54 tk-1 gac54,para49 a33:arnf(c36),dkfc54 arfc54X sr1DXa49:bt_t-128 0grfc37,hvc51 grfc54,hvra33 qq a34:ps(c46),pms1 hsc22 arnf(c36),tkf-29 pmc43,src34 gmc37VLT sy0,hhr-2 ps(c46),hvc51 qqda47=a47-a41,a34=a34-a41 _bk=e90,i=0 _di=e89 _qq194.9+3e0.19+a47.29+92.39ft sqrt; _qq198.9+3e0.19+a34.29+92.39ft outsp; _de71=2e71,e89=i _e _e _[ s t o p ] ba20 _de77=k-e70,e78=0 _a:arnfc68ITA annfc68,tkf-29 pmc40,gmc53 a14:hvra12XNZ arnfc53VNTA arnfc40,dkfc53 ps(c46)t1 pss-1,hvc2 a12:cln-1,gmc68 hhra13LZ arnfc54,mkfc53 a13:grfc53,arnfc54 mkfc54,grfc54 arnc68,hvra14 a1:psra8,hhra4 a2:psra5,hhra4 a3:psra9,hhra4 a4:psra11,is(c46) a8:pms1,hvc22 a10:annf(c36),grfc37 a5:ps(c46),hvc51 arnf(c36),srfc35 tkf-29,nkf39 a9:hhra10 arnf(c36) arnfc41VLT arnfc40NZ a11:hhra10 arnf(c36),tkf-29 ck-10,gar1sy_,pmc43 0gmc37,hvra5 qq qq qq a6:udc90,pm1023 sy64,udc90 gm1023 arnc43,hvc14 a7:sy64,hvr-1da1=a1-a,a2=a2-a,a3=a3-a,a4=a4-a _da6=a6-a,a7=7-a _bk=e90,i=0 _di=e89 _qq199.9+4e0.19+a1.29+31.39t abs; _qq197.9+4e0.19+a2.29+33.39t entier; _qq197.9+4e0.19+a3.29+92.39ft sign; _qq198.9+4e0.19+a4.29+92.39ft outchar; _qq191.9+4e0.19+a6.29+91.39ft writecr; _qq191.9+4e0.19+a7.29+110.39t outcr; _de71=6e71,e72=2e72,e89=i _e _e _[ s t o p ] s _bb20 _db10=6e0 _b9:arnrVITA srnrITA hsc5,qq1016.29+c1-1 hh(c84),ps12 arnfc69,tkf-29 grp-1XIZC dlnrb1,tl30 grp-2,gmp-3 arnp3,garb4 arnp-1b4:sr_X-1ITB 0hhc55LTB dlnrb1,tl30 grp-4,gmp-5 arnp-2,ck-1 pm(40c67)DXVNTA pme97DX gmp-1,ck-1 mtr-1VNTA srp-1,hvrb13 arp-1 hhc55NT arnp-4,ck-1 qq ck-1,mtr gmp-1,arp-1 hhc55LT it(p-1),bs(c92) arnp-1,gac92 b13:hhc55LT srn(rb4) nkf39,grfp-1 hsc2,qqb10.29 b1:qq40.39 qq qq b14:lync68V b15:arnc49 nkf9,hvc13 qqdb14=b14-b9,b15=b15-b9 _bk=e90,i=0 _di=e89 _qq147.9+5e0.19+32.39ft to drum; _qq147.9+5e0.19+1.29+32.39ft from drum; _qq148.9+5e0.19+b14.29+111.39t lyn; _qq148.9+5e0.19+b15.29+91.39ft char; _qq146.9+e80.29-e79.29+74.39f,t drum place; _de71=5e71,e72=2e72,e89=i _e _[ s t o p ] vk(p-2) arfc69,grfc69 ps(c46),pss-40 pmnsDX ck-1,src93 psnc67LT gsrb7IZB arnp3,tk10 garb8,arnp-3 ca39,hvrb6 arnp-2,ca(p-4) hvrb5 ptrb11,hsrb pap-3t39 b3:vk(p-2)t-1 b6:ps0,arnp-2 ca(p-4),hvrb5 sk(rb8)V-40NTA lk(rb8)t-40 b5h:hvrb3,ps(p-5) its1,ptrb11 bss473,hsrb vkc64,psp4 lkc67LZC vkc64,hhc7 b:gsrb2,ps0 lk(rb7),arnrb8 sr1D srp-3,garb8 ps(p-3),vk(p-2) b12:qqVLTA b8:pmsVIRC b7:pmsVIRC gm(rb7)VMRC gm(rb8)MRCb11:pss-1,it_ 0bss1,hvrb12 psn0IZA sk(rb7)NTAb2:ps_,hvs1 0e _[ s t o p ] arnr9,hhr1 arnc90,tk10 ck-10,ps(c46) ar(c47)D1 pmc43,gmc37 pms1,ca0 vk0,hvc15 grs1MRA vk0,hsc22 ps(c46),pm1023 gmc68,uds1 pmn(c36)XITA gtr5VNT cl34,hvr11 ck-10,gar5 ck10,src43 hvr17LZvk(r2),ps_ 0lkc67,pss-40vk_t-1 0bss1,hvr-2 arns40c67,cl36 ar32DLA ar16DLB par5,ck-4 gar3,ca10 vkc64,hhr5 ca63,it1sy_,cln-6 0bt_t-80 0pss1,hvr-10 hhr-7,ps(c46) lkc67NTA pmc68,uds1 gm1023,udc89 arns1,pac47 pm(c46)IRC gm(c46)t1MRC hhr-36, qqbk=e90,i=0 _di=e89 _qq193.9+7e0.19+0.29t outtext; _qq193.9+7e0.19+1.29t writetext; _de71=2e71,e72=2e72,e89=i _e _[ s t o p ] ba14 _de75=k-e70,e76=0 _a12:ps(c46),pms1 hsc22 annf(c36),srfra0 hhra1NT arnf(c36)X gara2,mlnra3a2:tl_t3 0gara4,tl10 cl-2 sr128DX gmc37,mknc37 pm384DX mkra6,grc54 grc68,arnra7 mkra8X mknc37,scc68 arc54X mlnra5,dlc68 a4:nkf0t1 a9:grfc37,ps(c46) a1:hvc51,arfn(c36) hvnra10XLT ps9,hhc55f _a0:354.1982m _a3:qq5.3+12.7+5.11+5.15+1.19+13.23+9.27+4.31+10.35+14.39 a7:0.51986038445 a6:0.14409951128 a8:0.016626103230 a5:0.7071067811865 qq qq a11:ps(c46),pms1 hsc22 arnf(c36),tkf-29 pm1023,udc90 ck-10,gar1sy_,udc89 0gm1023,pmc43 a10:gmc37 ps(c46),hvc51da11=a11-a12 _bk=e90,i=0 _di=e89 _qq194.9+e75.19+92.39ft exp; _qq198.9+8e0.19+a11.29+92.39ft writechar; _de71=2e71,e72=1e72,e89=i _e _e _[ s t o p ] ps(c46),pms1 hsc22 arnr,hvr7 ps(c46),pms1 hsc22 pm1023,udc90 gmc68,arnc89 ck10,gar1vyn_t1016 0gtr18 pm(c36),panc47 hsr21,gar6 hsr20,gar1pp_,pac47 0hsc65,qq12e0.29+1 hsn(c91)IOA abc48,gac49ca_,hvr7 0ncnp-10,hvnr-3 arnc48,ca(c47) sy(c49),hvr-5 sy60VNZ sy58 gac47,hvr-3 gpr-7,ncnp-10 pp10,hvr-10 bs(c48),sy58pmc68,can_ 0gm1023,udc89 pmc43,gmc37 ps(c46),hvc51 it128,pac47 cln-6,tk-4 ca58,hhr-2 ca60,hvr-3 ca63 ar1D arc47,hhs qq qqbk=e90,i=0 _di=e89 _qq195.9+9e0.19+93.39ft outcopy; _qq195.9+9e0.19+3.29+93.39ft writecopy; _de71=2e71,e72=2e72,e89=i _e _[ s t o p ] ba10 _a:srn(c47)DX1 ps(c46),hvr6 ps(c46)t1 pms-1IRC arn(s)D-1IZA gmsXMRC hvc15LZA arns1,gms1 hhr18XLA gac36,tk10 ca0,hvnr4 ar(c36)t-1 gac36,tk30 scc36,srr-3 pmr22,gac47 hsc65,qq11e0.29+1 gms31,hvr21 a1:pmr17 a2:hhr9 a3:pmr16,udc12 hhnr-6,itr11 a4:par5tc12 hsc65,qq12e0.29+1 hsn(c91)IOA abc48,gac49 nkf9,grfc37hv_,hsc2 0hvnr-13,arnc63 grc68,udc90 it(c48),pac82 pac48,hhns3 pmc68,udc89 it(c82),pac48 gmc63,hvc12 hsc2,qq10e0.29+31 hvc12 hsc2,qq10e0.29+2 gps29,hvs1 qq qqda1=a1-a,a2=a2-a,a3=a3-a,a4=a4-a _bk=e90,i=0 _di=e89 _qq192.9+10e0.19t input; _qq190.9+10e0.19+a1.29+91.39ft typein; _qq148.9+10e0.19+a2.29+91.39ft typechar; _qq190.9+10e0.19+a3.29+91.39ft inone; _qq148.9+10e0.19+a4.29+91.39ft in char; _de71=5e71,e72=1e72,e89=i _e _e _[ s t o p ] kbb10 _ba20 _a8:qq(c36)V1 a3:hsc65,qq12e0.29+1 ppn0,udra1 pmc40,gmc53 a5:grnc37,grnc54 a:hsn(c91)IZA qq15.6+6.12+436.21+272.30+5.39 qq31.6+26.12+65.21+31.30+71.39 qq27.6+14.12+511.21+464.30+511.39 qq0.6+23.12+511.21+471.30+511.39 qq0.6+35.12+143.21+511.30+511.39 qq7.6+53.12+287.21+127.30+511.39 it(s29),bs9 pmc40,gmc37 a13:hvra,grfc54 arnfc37,mkfra2 arfc54,grfc37 arnfc53,bsp-3 a7:mkfra2,grfc53 hhra5,hhra6 gpr1,itrahhp_,hhra4 0a11:cm(r-4),canr409 a2:qq3,qq320 arnfc37,dkfc53 bt(c54)t-1a9:mkfr_,hvr-1 0mkfc41NZB a6:grf(c36),udc89pp_,it-1 0bt(c47),hvra8qq_,qq_ 0 0bsp-1 para9Va10 a1:para9ta12IZB a4:hvra,hsnsb2 arnc49,bsp506 nkf9,hhra13 pmc54,mlsb3 gmc54,hvradb5=a3-a4 _da10=a11-a9,a12=a2-a9 _e _[ s t o p ] ba10 _a1:it128,pac48 a:lync49V qq qqV qq ca63,hvra ca127,hvra ca31,hvra2 ck-10,acc63 ck10,ca28 grnc63,hvra ca60,hvra1 ca58,hhra1 ca12,hvra3 ca61,hvra3 arc48NZ a7:hrs1NZA hvraLZ ca14,hvra ca16,qqn gac49,pms1 it(c49),bs10 pms2,hvra4 ca32,pms3 ca160,pms4 ca59,pms5 ca155,pms6 a4:tln26,gtra5 gpra6,tlp20a6:ckp_,tk-7 0gara5,nc7a5:ppp_,hrs_ 0 0pp10,hvra a3:vk13e0,lkc67 vk13e0,hvc67 a9:pac91t1 arnc49,hvra7 a8:ca44,hvra a2:lync49,hvra8 a10:qq10.39db1=a9-a1 _db2=a3-a1 _db3=a10-a1 _e _[ s t o p ] ba20 _hvraLZ gkra1,ca61 arnc63,hhra2 hsra3 qq58.9+39.15+49.21+20.27+18.33+53.39 a2:hvra4,tl-59 dlra5,cl-10 gara6,lync49 pac63,ptc63a6:ca_,hhra4 0hsra3 qq29.9+18.15+20.21+36.27+54.39 qq49.9+57.15+35.21+18.27+62.33 a4:lynra6,gsra7a1:vy_,qq 0hrra8 a8:its1,ptra10a7:ps_,hvra9 0a3:pm1023,vy17 syn64,gsra11a11:arn_t1LZ 0hhra12LA gara13,tk10a13:sy_,ck-4 0a12:hvra11,sy58 gm1023,hr(ra11) a5:qq127.39 qq a:bs(c48),it20 para14t35 hsra3 qq29.9+51.15+38.21+41.27+41.33+53.39 qq51.9+19.15+57.27+37.33+39.39 qq20.9+19.15+21.27+49.33+35.39 qq20.9+53.15+27.21+53.33+37.39 qq52.9+57.21+37.27+60.39a14:qq_.9+51.15+59.21+62.33+58.39 0itsb5,ptra10 pac48 a9:vkc64,lkc67 a10:e _[ s t o p ] ba10 _a:ps(c46),pms1 hsc22 hvnra3IZA a1:ps(c46),pms1 hsc2 arnrIZA a3:arnf(c36)X gar1,ps(c46) bsXt-16 dkfra4,hvra5 a6:arnfc40LZA a8:grfc37,hvc51 a5:hvra6LZ tkf10 ar128DLZA tk2,grc53 pmc53,ptra7 ptra7t-3NO srn256D mkc53,grc54 panr1ta11a10:arr_Xt1 4arnc53VLA mknc54,hvr-2a7:mkc53,mtr_ 0nkf0,hvra8m _a9:-.000003418229 +.000151656333 -.004369731387 +.072906209920 -.569703680149 +.267162131344af _a4:qq2.9+25.15+33.23+251.31+84.39m _da11=a9-a10-1 _qq a2:ps(c46),pms1 hsc22 arnf(c36),itb1 pac91,tkf1 gac49,ps(c46) hvc51da1=a1-a,a2=a2-a _bk=e90,i=0 _di=e89 _qq194.9+14e0.19+92.39ft cos; _qq194.9+14e0.19+a1.29+92.39ft sin; _qq149.9+14e0.19+a2.29+92.39ft setchar ; _de71=3e71,e72=1e72,e89=i _e _e _e _[ s t o p ] ba12 _ps(c46),pms1 hsc22 arnf(c36)XIZA gara2XVLT arnfc41,hhra1 a2:bst-8 psa10,hhra3 mkf(c36),mkf(c36) mkfra4,arf(c36) a1:hhra5,psa11 hhnra5LZA a3:dkf(c36),gara2 tkf9,gsra6 grc68,snnc68 pm128DX mkra7,grc37 sr256D anc68,tk-1 dkc37 grc37X mknc37,grc54 panr1t5 arr0Xt1 mknc37VLA mknc54,hvr-2 a6:arr,mtra2 a5:nkf1,grfc37 ps(c46),hvc51 qq132189.26 qq-1416698.28 qq10874463.30 qq-82115957.32 qq670327015.34 qq-6511656473.36 qq113858157095.38, a7:qq-26.7-130.15-121.23-153.31-253.39 a8:qq-75.7-99.15-753.23-252.31-205.39 a9:qq25.7+33.15+251.23+84.31+68.39f _a4:-0.333306m _qqda10=a9-a6,a11=a8-a6 _bk=e90,i=0 _di=e89 _qq194.9+15e0.19+92.39ft arctan; _ee71=1e71,e89=i _e _e _[ s t o p ] ba20 _de73=k-e70,e74=0 _a:ps(c46),pms1 hsc22 arnf(c36),ps5 hhc55LT tk9VXNZ pmra1,hvra3 gara4,gmc53 gmc54,arnra5 acc53,src54 dkc53,grc53 pmc53,mknc53 grc54 panr1ta6a8:arr_X1 0mknc53VLA mknc54,hvr-2 arra4X mknra9 nkf9,grfc37 a2:ps(c46),hvc51m _a7:-0.00084709 -0.001126143206 -0.001878518085 -0.005635527485a a9:qq354.9+57.15+5.22+126.29+31.34+9.39 a1:qq165.9+1.10 a5:qq5.4+10.8+8.12+2.16+7.20+9.24+9.28+9.32+15.36+6.39a4:qq_t512 0a3:gmc37,hvra2 qq qq qq a10:sy28,hvra11 a12:sy11,sy61 arn1023,tl-59 dlra13,cl-10 gac47,sy(c47) a11:pa1023,pt1023 arnc43,hvc14 a13:qq127.39da6=a7-a8-1 _da10=a10-a,a12=a12-a _bk=e90,i=0 _di=e89 _qq194.9+e73.19+92.39ft ln ; _qq191.9+16e0.19+a10.29+91.39ft outclear; _qq191.9+16e0.19+a12.29+91.39ft outsum; _de71=3e71,e72=1e72,e89=i _e _e _dc60=1e73 _e _[ s t o p ] [ s t o p ] bk=c60+e70,i=10,a10 _a2:hhnra1 a1:arnra6,ps(c46) pm(c47)DX5 gms-3,grs-4 hsc5,qq1018.29+c1-1 hh(c84),arnp3 pmp3DX grp-3,hsc22 pmc36,gmp-4 a4:bt(p-2)t3 ps15,hhc55 a7:pm(p-3)t1 hsc22 arnf(c36),tkf-29 ck-10,udra7 grp4,hsc22 arnf(c36),tkf-29 ck-10,srp4 arra6,udra7 grp5,hsc22 arnf(c36),tkf-29 grp6,pmn(p-4) ar256DLA ar128DLB a6:xr1,cl(p4) bs(p-1),hvra5 tl(p5)t-40 nkf39,grf(c36) pm(c36),hvra3 a5:tl(p5),cl-40 arp6,it(p4) ns(p5),cls40 xr,ck1 gar-1,pi(r-1) gm(p-4)tMOC a3:bs(p-2)t2 ps(p-3)V1 hvra4 hvc6-1bk=e90,i=0 _da1=a1-a2,a2=0 _di=e89 _qq145.9+c60.19+a1.29t pack; _qq143.9+c60.19+a2.29t split; _de71=2e71,e89=i _e _dc60=1c60 _e _[ s t o p ] bk=c60+e70,i=10,a20,b10 _da=i _a1:ncn(c47)V3 a2:srn(c47)VD1 ps15,hhc55 ps(c46),grs-3 hsc5,qq1021.29+c1-1 hh(c84),pmp3 qqVLA hvra3LB hsc22 bs(p-1) psra4,hv(c36) pm(c36),gmp3 a3:hsc2+1c60.39,qqa10 qq(c36) gsp1,hsc22 a4:ps(p1),hss1 grfc37,itp3 ps(p-1),itc37 pac36,hhc6 a6:ncn(p-1) psra4,hv(c46) pmp4,hsc22 arnp-2 nkf39,grf(c36) arnp1,ck-10 arp-1D hsc11,qq7e0.29 psp5,hhc6 a17:arnc41VNKB arnc40 hvc14da6=a6-a _[ s t o p ] di=a+40 _a13:itp-1,pac46 a14:pm1023,vy17 sy64,sy55 sy57,sy53 sy41,sy0 bs(p-1),sy39 can(p-1),sy19 lync47 gm1023,udc89 a15:grnc68,lync47 nc17,hvra15 lync47,ca4 hsra11,hvra18 hsra11,psra15 a11:lynrb1,parb2 a12:ac(c68)D b1:pi-1,tl-7b2:bt__t-100 -1tl10,hhs lyc47,hvra12 a18:tk20 garb3,tk3 gtrb3,tk12b3:ar__D__ -1 -1ck10,grp-2 hsra11,xr xr,srp3 hvra14NZ qqp-2,hsc50 qq-1,hvs2 a16:hsra11, gr(p1)MRC pmn(p1)DX1 ncp-2,hvra16 lync47,tk-7 lyc47,tk-7 lyc47,tk14 nc(c68),hvra13 srnc34,acp-2 hsc2+c60.39,qqa6da10=a15-a-40 _bk=e90,i=0 _di=e89,a1=a1-a,a2=a2-a,a17=a17-a _qq143.9+c60.19+a1.29t gier drum; _qq144.9+c60.19+a2.29t gier proc; _qq141.9+c60.19+a2.29+112.39t gier; _qq142.9+c60.19+a17.29+91.39ft kb on; _de71=4e71,e72=2e72,e89=i _e _dc60=2c60 _e _[ s t o p ] de98=c60 _dc60=c60+e85 _bk=c60+e70,i=0 _di=i+e71+39,c60=k-e70 _e _bk=c60+e70,i=0 _di=i+e72+54 _de81=c60 _dc60=k-e70 _de88=c60-e81 _e _bk=c60+e70,i=0 _di=i+e71+39,e83=c60 _dc60=k-e70 _de29=c60-e83 _e _de83=c60 _[ s t o p ]