/CREATED 8-JANUARI-75, ELC / /FOREGROUND ODT TASK / /RUN WHITH HELP OF "CD". MUST BE ENTERRED WHITH AC=NAME OF TELETYPE / /WHEN THE PASSWORD IS OK, IT WILL GIVE A CR-LF AND AWIT YOUR /COMMANDS. / /E=END OR EXIT / /20F=OPEN FIELD 20 / /1234/=OPEN LOCATION 1234 IN THE CURRENT FIELD. /THE INITIAL FIELD IS 70 / /WHEN A LOCATION IS OPENEND, ODT TYPES: /1234 7402 / /N+LWzy^4$Unx;_P{_Xfr5VUn|xpg>x?OBTj_/S/_s@T:OvX.CqUpo|G,Qy{>?KZqX+WFOQ<^$R5dnl4.e!t1%dAT. S+i7$YJbVC 19.3.75 MH & HH C VORPROGRAMM FUER DIE WAHLHOCHRECHNUNG COMMON ANA,P,JAHRN,JAHRA,JG,JZ,JZA,ZEIT,K,M1,ICO2,WB1,WB2 COMMON W1,W2,G1,T2,U1,X2,DY,DX COMMON WBGN,YGN,XGN,WBGA,WGA,GGA,PGA,YGA,XGA COMMON WBEN,WEN,GEN,UEN,PEN,SWBEN,SWEN,SGEN,SUEN,SPEN COMMON AWBEN,YEN,AGEN,AUEN,XEN,BWBEN,BYEN,BGEN,BUEN,BXEN COMMON WBEA,WEA,GEA,UEA,PEA,SWBEA,SWEA,SGEA,SUEA,SPEA COMMON AWBEA,YEA,AGEA,AUEA,XEA,BWBEA,BYEA,BGEA,BUEA,BXEA DIMENSION ANA(2),P(6),JG(2),JZ(2),ZEIT(2),M1(2),DY(2),DX(2,6) DIMENSION WBGN(2),YGN(2),XGN(2,6),WBGA(2),WGA(2),GGA(2),PGA(2,5) DIMENSION YGA(2),XGA(2,6),WBEN(2),WEN(2),GEN(2),UEN(2),PEN(2,6) DIMENSION SWBEN(2),SWEN(2),SGEN(2),SUEN(2),SPEN(2,6),AWBEN(2) DIMENSION YEN(2),AGEN(2),AUEN(2),XEN(2,6),WBEA(2),WEA(2),GEA(2) DIMENSION UEA(2),PEA(2,6),SWBEA(2),SWEA(2),SGEA(2),SUEA(2) DIMENSION SPEA(2,6),AWBEA(2),YEA(2),AGEA(2),AUEA(2),XEA(2,6) DIMENSION BWBEN(2),BYEN(2),BGEN(2),BUEN(2),BXEN(2,6) DIMENSION BWBEA(2),BYEA(2),BGEA(2),BUEA(2),BXEA(2,6) ANA(1)='HODA1' ANA(2)='HODA1' P(1)='CDU ' P(2)='SPD ' P(3)='FDP ' P(4)='NPD ' P(5)='DKP ' P(6)='ANDERE' WB1='WAHLBE' WB2='R. :' W1='WAEHLE' W2='R :' G1='GUEL.S' T2='T. :' U1='UNG. S' X2=' :' JAHRA=1970 JAHRN =1975 JG(1)=7 JG(2)=13 WBGA(1)=163021. WBGN(1)=170000. WGA(1)=108580. GGA(1)=107683. PGA(1,1)=49239. PGA(1,2)=48258. PGA(1,3)=7926. PGA(1,4)=1262. PGA(1,5)=998. WBGA(2)=60000. WBGN(2)=70000. WGA(2)=40000. GGA(2)=35000. PGA(2,1)=17000. PGA(2,2)=16000. PGA(2,3)=1100. PGA(2,4)=500. PGA(2,5)=400. DO 13 K=1,2 YGA(K)=WGA(K)*100./WBGA(K) DO 10 I=1,5 XGA(K,I)=PGA(K,I)*100./GGA(K) XGN(K,I)=0. SPEA(K,I)=0. 10 SPEN(K,I)=0. SPEN(K,6)=0. SPEA(K,6)=0. XGN(K,6)=0. XGA(K,6)=100.-XGA(K,1)-XGA(K,2)-XGA(K,3)-XGA(K,4)-XGA(K,5) SWEA(K)=0. SWBEA(K)=0. SWEN(K)=0. SWBEN(K)=0. SGEN(K)=0. SGEA(K)=0. YGN(K)=0. ZEIT(K)=0. 13 JZ(K)=0 JZA=0 CALL CHAIN ('HOCH') END |s V@uDqT V@v qPEur@L~rHr L~ qP!trH1zrHq tUpDDwUpD@AyrH1 CwrHq CdUpDD CzUpD@A Cyp[PI. I* In Ij IH I< I I Hd HU H> H/ G" G G; G F[ FL F& F Fc FW F7 F+ ER E" E[ EO E/ E# E Do DO C D. D, J0"J,"Jd"J`"Iz"Iv"IB"I>"I "I"IP"ID" p{<@< LI )0) lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1 LI )0) lJC&EK (q`Y/KS"U pFtgpqz |VPq-L20 "&;q"M/g%[q)!sLLLLLLLLLLLLLLLs(2;6K;^