](N:(9,8);"PROGRAMM MIT RUN 20000"@N(11,16);"STARTEN"QN19996,19998WNt N ---COPY.BY.A.BRUNNER--!N--BERLIN-------#N$N::%N(2,14);"HAUPTMENUE"&N(3,0);"" 'N4,23,0,39:1(N:::" < 1 > BIN.- DEZ. < 6 > HEX.- BIN."e)N:" < 2 > DEZ.- BIN. < 7 > ADDITION BIN.": *N" < 3 > DEZ.- HEX.":+N" < 4 > HEX.- DEZ. < 8 > LOG. VERKN.":,N" < 5 > BIN.- HEX.":-N18,23,0,39 .N""</N:" < # > ZURUECK INS MENUE < % > ENDE "O0N(23,0);(32)X1NK$k2NK$"1"20029~3NK$"2"200494NK$"3"200855NK$"4"201066NK$"5"201277NK$"6"201578NK$"7"202019NK$"8"20247:NK$"%"20196;N20017NF7I?N2,2,16,39:q@N(5,7);" BIN. DEZ."AN(2,4);"BIN. EINGABE"BNE0:" ";A$:6,23,0,39CNA$"#"20004DNA$"%"20196EN(F,7);A$FNB(A$)GNI0BHNB$(A$,I)INE$(B$,1)JNC(E$)-KND(I)C2(I):LNED(I)EAMNIRNN(F,27);E2kONFF1: F18 20029PN2,2,16,39:20034QNRN------DEZ.BIN------SN6,17,0,39:TNF7UNZ$"0":X$"1"VN2,2,16,39: WN(6,7);"DEZ. BIN." XN(2,4);"DEZ.EINGABE:"6 YN" ";A$:6,17,0,39I ZNA$"#"20004\ [NA$"%"20196k \N(F,7);A$| ]NT32:A(A$) ^NBA2 _NB020081 `NB120069 aN20073 bNC(B) cNAC dN20062 eN(F,T);X$ fNFF1 gNF18F7: hN20053 iNB$(B) jNC$(B$,2)+ kND$(C$,1)= lND$"."20079R mN(F,T);Z$:TT1X nNm oN(F,T);X$:TT1x pN20078 qN(F,18);"0" rNFF1:20071 sN tN uN--HEX.-DEZ./DEZ-HEX-- vN wN6,17,0,39: xNF7 yN2,2,16,39: zN(6,7);" DEZ HEX"1 {N(2,4);"DEZ.EINGABE"H |N" ";D$:6,17,0,39\ }ND$"#" 20004o ~ND$"%"20196 NA$"0123456789ABCDEF" NZ$"" N(F,9);D$:D(D$) NRD16(D16) NZ$(A$,R1,1)Z$ ND020103 ND(D16) N20098 N(F,27);(Z$,(Z$)1)? NFF1: F18F7::2,2,16,39:20089U N2,2,16,39:20092q N---------HEX---------- N6,17,0,39::F7:2,2,16,39: N(6,7);"HEX DEZ" N(2,4);" HEX. EINGABE" N" ";Z$:6,17,0,39 NZ$"#" 20004 NZ$"%"20196" N(F,7);Z$. NL(Z$)= ND0:I1LN NT$(Z$,I,1)u NT$"A"T$"F"U(T$)55:20120 NT$"0"T$"9"U(T$):20120 N"KEINE HEX-ZAHL!":JJ1:20122 NDU16(LI)D N N(F,25);D NFF1: F1820107N2,2,16,39:20110NN8N6,17,0,39:::D(40)@NF7QN2,2,16,39:wN(6,7);" BIN. HEX."N(2,4);"BIN. EINGABE"NE0:" ";A$:6,17,0,39NA$"#"20004NA$"%"20196N(F,7);A$NB(A$)NI0BNB$(A$,I)NE$(B$,1)#NC(E$)4ND(I)C2(I)ANED(I)EHNIRNHE2^ND$(H)xNL$"0123456789ABCDEF"NZ$""ND(D$)NRD16(D16)NZ$(L$,R1,1)Z$ND020154ND(D16)N20149N(F,27);(Z$,(Z$)1)NFF1: F1820127(N2,2,16,39:20132DN-------HEH-BIN--------fN6,17,0,39::F7:2,2,16,39:N(6,7);"HEX BIN"N(2,4);" HEX. EINGABE"N" ";Z$:6,17,0,39NZ$"#"20004NZ$"%"20196N(F,7);Z$NL(Z$)ND0:I1L NT$(Z$,I,1)GNT$"A"T$"F"U(T$)55:20171kNT$"0"T$"9"U(T$):20171N"KEINE HEX-ZAHL!":JJ1:20173NDU16(LI)DNNZ$"0":X$"1"NT32NBD2NB020194NB120182N20186NC(B) NDCN20175#N(F,T);X$-NFF1=NF18F7:SN2,2,16,39:20159_NB$(B)nNC$(B$,2)}ND$(C$,1)ND$"."20192N(F,T);Z$:TT1NN(F,T);X$:TT1N20191N(F,32);"0"NFF1:20184N4152,0::,N::" Wenn ein eigenes Programm Abge-"MN" speichert werden soll,"vN:" vohrher DELETE19999,20363 ":N----ADDITIONSREGEL-----N6,17,0,39:N:N$"0":E$"0":E1$"1"N2,2,16,39:N(2,3);"BIN. EINGABE " N"1: ";A$::A$"#"20004NA$"%"20196<N"2: ";B$::B$"#"20004ONB$"%"20196jN6,17,0,39:4152,32:~NA(A$):B(B$)NABA1BA:B1ABN20227NC$N1$A1$:D$N2$B1$ND(C$)NI1DNC1$(C$,I):C2$(C1$,1) ND1$(D$,I):D2$(D1$,1)(NF(C2$):G(D2$):HFG7NT120243aNH0E2$(E$,I):(13,25I);(E2$,1)NH1E2$(E1$,I):(13,25I);(E2$,1)NH2E2$(E$,I):(13,25I);(E2$,1):T1NIOT1(13,25I);E1$OT0:4152,0:20202O---UP- OI0AOA1$(A$,I)2O(10,25I);(A1$,1)9OIDOC26IUON1$(A1,N$)i O(10,CA1);N1$t OJ0B OB1$(B$,J) O(11,25J);(B1$,1) OJOC126JON2$(B1,N$)O(11,C1B1);N2$OO---VERGLOH0E2$(E1$,I):(13,25I);(E2$,1):T0GOH1E2$(E$,I):(13,25I);(E2$,1):T1vOH2E2$(E1$,I):(13,25I);(E2$,1):T1O20223O---LOG.VERKN.MENUE---OO4152,32:(2,14);" MENUE "O(21,1);"<#> ZURUECK INS HAUPTMENUE <%> ENDE"O6,17,0,39::7O::" < 1 > AND - VERKN."]O:" < 2 > OR - VERKN."O:" < 3 > EXOR- VERKN."OK$ OK$"1"4152,0:20262!OK$"2"4152,0:20300"OK$"3"4152,0:20322#OK$"#"20004$OK$"%"20196%O20255"&O6,17,0,39:J'O:D(40),H$(50):2,2,16,39::N$"0"c(O(0,5);"AND-VERKN.")O(2,3);"BIN. EINGABE":(21,17);"MENUE "*O"1: ";A$::A$"#"20247+OA$"%"20196,O"2: ";B$::B$"#"20247-OB$"%"20196.O6,17,0,39:4152,32:%/OA(A$):B(B$)=0OABA1BA:B1ABH1O20285b2OC$N1$A1$:D$N2$B1$n3OD(C$)y4OI1D5OC1$(C$,I):C2$(C1$,1)6OD1$(D$,I):D2$(D1$,1)7OF(C2$):G(D2$):HF G8OH$(I)(H)9O(11,24I);H$(I):OI;O4152,0:20263OA1$(A$,I)P?O(8,25I);(A1$,1)W@OIbAOC26IsBON1$(A1,N$)CO(8,CA1);N1$DOJ0BEOB1$(B$,J)FO(9,25J);(B1$,1)GOJHOC126JION2$(B1,N$)JO(9,C1B1);N2$KOLO6,17,0,39:0MO:D(40),H$(50):2,2,16,39::N$"0"HNO(0,5);"OR-VERKN."{OO(2,3);"BIN. EINGABE":(21,17);"MENUE "PO"1: ";A$::A$"#"20247QOA$"%"20196RO"2: ";B$::B$"#"20247SOB$"%"20196TO6,17,0,39:4152,32: UOA(A$):B(B$)"VOABA1BA:B1AB-WO20285GXOC$N1$A1$:D$N2$B1$SYOD(C$)^ZOI1D{[OC1$(C$,I):C2$(C1$,1)\OD1$(D$,I):D2$(D1$,1)]OF(C2$):G(D2$):HF G^OH$(I)(H)_O(11,24I);H$(I)`OIaO4152,0:20301 bO----EXOR---------cO6,17,0,39::dO:N$"0":E$"0":E1$"1"KeO2,2,16,39:efO(0,5);"EXOR-VERKN."gO(2,3);"BIN. EINGABE":(21,17);"MENUE "hO"1: ";A$::A$"#"20247iOA$"%"20196jO"2: ";B$::B$"#"20247kOB$"%"20196lO6,17,0,39:4152,32:(mOA(A$):B(B$)@nOABA1BA:B1ABKoO20348epOC$N1$A1$:D$N2$B1$qqOD(C$)|rOI1DsOC1$(C$,I):C2$(C1$,1)tOD1$(D$,I):D2$(D1$,1)uOF(C2$):G(D2$):HFGvOH0E2$(E$,I):(13,25I);(E2$,1)' wOH1E2$(E1$,I):(13,25I);(E2$,1)Q xOH2E2$(E$,I):(13,25I);(E2$,1)X yOIl zO4152,0:20324x {O---UP- |OI0A }OA1$(A$,I) ~O(10,25I);(A1$,1) OI OC26I ON1$(A1,N$) O(10,CA1);N1$ OJ0B OB1$(B$,J)!O(11,25J);(B1$,1)!OJ*!OC126J;!ON2$(B1,N$)P!O(11,C1B1);N2$V!O\!ON1$ OJ0B OB1$(B$,J)