10 CLS : PRINT "VYPOCET KONTROLNIHO SLOVA RDS":
20 PRINT "-----------------------------": PRINT ""
30 PRINT "Zadej datove slovo D15 az D0 [1/0]: ": PRINT ""
40 INPUT D15
41 INPUT D14
42 INPUT D13
43 INPUT D12
44 INPUT D11
45 INPUT D10
46 INPUT D9
47 INPUT D8
48 INPUT D7
49 INPUT D6
50 INPUT D5
51 INPUT D4
52 INPUT D3
53 INPUT D2
54 INPUT D1
55 INPUT D0
60 CLS : PRINT "ZADANO TOTO DATOVE SLOVO:": PRINT "":
62 PRINT D15; D14; D13; D12; D11; D10; D9; D8; D7; D6; D5; D4; D3; D2; D1; D0: PRINT "": PRINT ""
63 PRINT "": PRINT "ZADEJ TYP BLOKU A,B,C,C',D  [1=A,2=B,3=C,4=C',5=D]": PRINT ""
64 INPUT BLOK
65 CLS
66 PRINT " VYPOCET KONTROLNIHO SLOVA SYSTEMU RDS"
67 PRINT " -------------------------------------"
70 POCET = 0
71 IF D15 = 1 THEN POCET = POCET + 1
72 IF D14 = 1 THEN POCET = POCET + 1
73 IF D13 = 1 THEN POCET = POCET + 1
74 IF D12 = 1 THEN POCET = POCET + 1
75 IF D11 = 1 THEN POCET = POCET + 1
76 IF D10 = 1 THEN POCET = POCET + 1
77 IF D9 = 1 THEN POCET = POCET + 1
78 IF D8 = 1 THEN POCET = POCET + 1
79 IF D7 = 1 THEN POCET = POCET + 1
80 IF D6 = 1 THEN POCET = POCET + 1
81 IF D5 = 1 THEN POCET = POCET + 1
82 IF D4 = 1 THEN POCET = POCET + 1
83 IF D3 = 1 THEN POCET = POCET + 1
84 IF D2 = 1 THEN POCET = POCET + 1
85 IF D1 = 1 THEN POCET = POCET + 1
86 IF D0 = 1 THEN POCET = POCET + 1
87 IF POCET = 0 THEN PRINT "DATA MUSI BYT OD 1 DO 65535": END
90 B9 = 0: B8 = 0: B7 = 0: B6 = 0: B5 = 0: B4 = 0: B3 = 0: B2 = 0: B1 = 0: B0 = 0

100 IF D15 = 0 THEN GOTO 110
101 GOSUB 5000
102 GOSUB 6000
103 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

110 IF D14 = 0 THEN GOTO 120
111 GOSUB 5010
112 GOSUB 6000
113 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

120 IF D13 = 0 THEN GOTO 130
121 GOSUB 5020
122 GOSUB 6000
123 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

130 IF D12 = 0 THEN GOTO 140
131 GOSUB 5030
132 GOSUB 6000
133 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

140 IF D11 = 0 THEN GOTO 150
141 GOSUB 5040
142 GOSUB 6000
143 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

150 IF D10 = 0 THEN GOTO 160
151 GOSUB 5050
152 GOSUB 6000
153 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

160 IF D9 = 0 THEN GOTO 170
161 GOSUB 5060
162 GOSUB 6000
163 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

170 IF D8 = 0 THEN GOTO 180
171 GOSUB 5070
172 GOSUB 6000
173 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

180 IF D7 = 0 THEN GOTO 190
181 GOSUB 5080
182 GOSUB 6000
183 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

190 IF D6 = 0 THEN GOTO 200
191 GOSUB 5090
192 GOSUB 6000
193 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

200 IF D5 = 0 THEN GOTO 210
201 GOSUB 5100
202 GOSUB 6000
203 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

210 IF D4 = 0 THEN GOTO 220
211 GOSUB 5110
212 GOSUB 6000
213 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

220 IF D3 = 0 THEN GOTO 230
221 GOSUB 5120
222 GOSUB 6000
223 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

230 IF D2 = 0 THEN GOTO 240
231 GOSUB 5130
232 GOSUB 6000
233 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

240 IF D1 = 0 THEN GOTO 250
241 GOSUB 5140
242 GOSUB 6000
243 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

250 IF D0 = 0 THEN GOTO 260
251 GOSUB 5150
252 GOSUB 6000
253 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0

260 PRINT " ----------------------------"
265 PRINT B9; B8; B7; B6; B5; B4; B3; B2; B1; B0; "Toto je kontrolni slovo bez offsetu"

280 IF BLOK <> 1 THEN GOTO 290
281 GOSUB 5500
282 GOSUB 6000
283 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0; "Toto je offsetove slovo pro A"

290 IF BLOK <> 2 THEN GOTO 300
291 GOSUB 5510
292 GOSUB 6000
293 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0; "Toto je offsetove slovo pro B"

300 IF BLOK <> 3 THEN GOTO 310
301 GOSUB 5520
302 GOSUB 6000
303 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0; "Toto je offsetove slovo pro C"

310 IF BLOK <> 4 THEN GOTO 320
311 GOSUB 5530
312 GOSUB 6000
313 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0; "Toto je offsetove slovo pro C'"

320 IF BLOK <> 5 THEN GOTO 350
321 GOSUB 5540
322 GOSUB 6000
323 PRINT A9; A8; A7; A6; A5; A4; A3; A2; A1; A0; "Toto je offsetove slovo pro D"


350 PRINT " ----------------------------"
360 PRINT B9; B8; B7; B6; B5; B4; B3; B2; B1; B0; "Toto je kompletni kontrolni slovo"
400 END


5000 A9 = 0: A8 = 0: A7 = 0: A6 = 1: A5 = 1: A4 = 1: A3 = 0: A2 = 1: A1 = 1: A0 = 1
5001 RETURN
5010 A9 = 1: A8 = 0: A7 = 1: A6 = 1: A5 = 1: A4 = 0: A3 = 0: A2 = 1: A1 = 1: A0 = 1
5011 RETURN
5020 A9 = 1: A8 = 1: A7 = 1: A6 = 0: A5 = 1: A4 = 0: A3 = 1: A2 = 1: A1 = 1: A0 = 1
5021 RETURN
5030 A9 = 1: A8 = 1: A7 = 0: A6 = 0: A5 = 0: A4 = 0: A3 = 1: A2 = 0: A1 = 1: A0 = 1
5031 RETURN
5040 A9 = 1: A8 = 1: A7 = 0: A6 = 1: A5 = 0: A4 = 1: A3 = 1: A2 = 0: A1 = 0: A0 = 1
5041 RETURN
5050 A9 = 1: A8 = 1: A7 = 0: A6 = 1: A5 = 1: A4 = 1: A3 = 0: A2 = 0: A1 = 0: A0 = 0
5051 RETURN
5060 A9 = 0: A8 = 1: A7 = 1: A6 = 0: A5 = 1: A4 = 1: A3 = 1: A2 = 0: A1 = 0: A0 = 0
5061 RETURN
5070 A9 = 0: A8 = 0: A7 = 1: A6 = 1: A5 = 0: A4 = 1: A3 = 1: A2 = 1: A1 = 0: A0 = 0
5071 RETURN
5080 A9 = 0: A8 = 0: A7 = 0: A6 = 1: A5 = 1: A4 = 0: A3 = 1: A2 = 1: A1 = 1: A0 = 0
5081 RETURN
5090 A9 = 0: A8 = 0: A7 = 0: A6 = 0: A5 = 1: A4 = 1: A3 = 0: A2 = 1: A1 = 1: A0 = 1
5091 RETURN
5100 A9 = 1: A8 = 0: A7 = 1: A6 = 1: A5 = 0: A4 = 0: A3 = 0: A2 = 1: A1 = 1: A0 = 1
5101 RETURN
5110 A9 = 1: A8 = 1: A7 = 1: A6 = 0: A5 = 1: A4 = 1: A3 = 1: A2 = 1: A1 = 1: A0 = 1
5111 RETURN
5120 A9 = 1: A8 = 1: A7 = 0: A6 = 0: A5 = 0: A4 = 0: A3 = 0: A2 = 0: A1 = 1: A0 = 1
5121 RETURN
5130 A9 = 1: A8 = 1: A7 = 0: A6 = 1: A5 = 0: A4 = 1: A3 = 1: A2 = 1: A1 = 0: A0 = 1
5131 RETURN
5140 A9 = 1: A8 = 1: A7 = 0: A6 = 1: A5 = 1: A4 = 1: A3 = 0: A2 = 0: A1 = 1: A0 = 0
5141 RETURN
5150 A9 = 0: A8 = 1: A7 = 1: A6 = 0: A5 = 1: A4 = 1: A3 = 1: A2 = 0: A1 = 0: A0 = 1
5151 RETURN


5500 A9 = 0: A8 = 0: A7 = 1: A6 = 1: A5 = 1: A4 = 1: A3 = 1: A2 = 1: A1 = 0: A0 = 0
5501 RETURN
5510 A9 = 0: A8 = 1: A7 = 1: A6 = 0: A5 = 0: A4 = 1: A3 = 1: A2 = 0: A1 = 0: A0 = 0
5511 RETURN
5520 A9 = 0: A8 = 1: A7 = 0: A6 = 1: A5 = 1: A4 = 0: A3 = 1: A2 = 0: A1 = 0: A0 = 0
5521 RETURN
5530 A9 = 1: A8 = 1: A7 = 0: A6 = 1: A5 = 0: A4 = 1: A3 = 0: A2 = 0: A1 = 0: A0 = 0
5531 RETURN
5540 A9 = 0: A8 = 1: A7 = 1: A6 = 0: A5 = 1: A4 = 1: A3 = 0: A2 = 1: A1 = 0: A0 = 0
5541 RETURN


6000 IF A9 = 0 AND B9 = 0 THEN C9 = 0
6001 IF A9 = 1 AND B9 = 0 THEN C9 = 1
6002 IF A9 = 0 AND B9 = 1 THEN C9 = 1
6003 IF A9 = 1 AND B9 = 1 THEN C9 = 0
6010 IF A8 = 0 AND B8 = 0 THEN C8 = 0
6011 IF A8 = 1 AND B8 = 0 THEN C8 = 1
6012 IF A8 = 0 AND B8 = 1 THEN C8 = 1
6013 IF A8 = 1 AND B8 = 1 THEN C8 = 0
6020 IF A7 = 0 AND B7 = 0 THEN C7 = 0
6021 IF A7 = 1 AND B7 = 0 THEN C7 = 1
6022 IF A7 = 0 AND B7 = 1 THEN C7 = 1
6023 IF A7 = 1 AND B7 = 1 THEN C7 = 0
6030 IF A6 = 0 AND B6 = 0 THEN C6 = 0
6031 IF A6 = 1 AND B6 = 0 THEN C6 = 1
6032 IF A6 = 0 AND B6 = 1 THEN C6 = 1
6033 IF A6 = 1 AND B6 = 1 THEN C6 = 0
6040 IF A5 = 0 AND B5 = 0 THEN C5 = 0
6041 IF A5 = 1 AND B5 = 0 THEN C5 = 1
6042 IF A5 = 0 AND B5 = 1 THEN C5 = 1
6043 IF A5 = 1 AND B5 = 1 THEN C5 = 0
6050 IF A4 = 0 AND B4 = 0 THEN C4 = 0
6051 IF A4 = 1 AND B4 = 0 THEN C4 = 1
6052 IF A4 = 0 AND B4 = 1 THEN C4 = 1
6053 IF A4 = 1 AND B4 = 1 THEN C4 = 0
6060 IF A3 = 0 AND B3 = 0 THEN C3 = 0
6061 IF A3 = 1 AND B3 = 0 THEN C3 = 1
6062 IF A3 = 0 AND B3 = 1 THEN C3 = 1
6063 IF A3 = 1 AND B3 = 1 THEN C3 = 0
6070 IF A2 = 0 AND B2 = 0 THEN C2 = 0
6071 IF A2 = 1 AND B2 = 0 THEN C2 = 1
6072 IF A2 = 0 AND B2 = 1 THEN C2 = 1
6073 IF A2 = 1 AND B2 = 1 THEN C2 = 0
6080 IF A1 = 0 AND B1 = 0 THEN C1 = 0
6081 IF A1 = 1 AND B1 = 0 THEN C1 = 1
6082 IF A1 = 0 AND B1 = 1 THEN C1 = 1
6083 IF A1 = 1 AND B1 = 1 THEN C1 = 0
6090 IF A0 = 0 AND B0 = 0 THEN C0 = 0
6091 IF A0 = 1 AND B0 = 0 THEN C0 = 1
6092 IF A0 = 0 AND B0 = 1 THEN C0 = 1
6093 IF A0 = 1 AND B0 = 1 THEN C0 = 0
6100 B9 = C9
6110 B8 = C8
6120 B7 = C7
6130 B6 = C6
6140 B5 = C5
6150 B4 = C4
6160 B3 = C3
6170 B2 = C2
6180 B1 = C1
6190 B0 = C0
6200 RETURN