10 GRAPHICS 0
20 ? :? :? :? "         PROSZE CZEKAC"
30 DIM B$(23),A$(4000)
40 FOR I=1 TO 1890 STEP 10
50 READ B$:SUMA=0
60 FOR J=0 TO 9:B=ASC(B$(2*J+1)):A=ASC(B$(2*J+2)):C=48:GOSUB 190
70 SUMA=SUMA+A
80 A$(I+J)=CHR$(A)
90 NEXT J
100 C=ASC(B$(21)):B=ASC(B$(22)):A=ASC(B$(23)):GOSUB 190
110 IF SUMA<>A THEN ? :? :? "BLAD DANYCH W LINII ";I+199:END 
120 NEXT I
130 GRAPHICS 0:POKE 764,255
140 ? " Prosze wlozyc kasete na ktorej ma"
150 ? " byc zapisany program w formie pli-"
160 ? " ku BOOT, wcisnac PLAY i RECORD"
170 ? " w magnetofonie i nacisnac RETURN"
180 OPEN #1,8,128,"C:":? #1;A$;:CLOSE #1:END 
190 A=A-48-7*(A>58)+16*(B-48-7*(B>58))+256*(C-48-7*(C>58)):RETURN 
200 DATA 000FF70A040BA93C8D02293
210 DATA D31860A90F850BA9A485465
220 DATA 0AA912850F8DE802A9533CC
230 DATA 850E8DE702A9FF8545A9524
240 DATA 048546A9808D540CA2463CD
250 DATA A90CA0474C86E4A97FA051A
260 DATA 1120120FA210A90C9D42298
270 DATA 0320350C4C950FA900F02ED
280 DATA 02A9808548206B0FA203337
290 DATA A9009DE002CA10FAA2104AE
300 DATA A9039D4203A9809D440339B
310 DATA A9059D4503A9049D4A0332A
320 DATA AD540C9D4B0320350CA9302
330 DATA 079D4203A9419D4403A9360
340 DATA 0C9D4503A9069D4803A9331
350 DATA 009D490320350CAC410C243
360 DATA C8D096AC420CC8D090AD5FD
370 DATA 430C9D4403AD440C9D45312
380 DATA 0338AD450CED430C9D4835A
390 DATA 03AD460CED440C9D4903328
400 DATA FE4803D003FE490320353BB
410 DATA 0CADE202D005ADE302F04F4
420 DATA 0D203E0CA9008DE2028D31E
430 DATA E302A210A9439D4403A9410
440 DATA 0C9D4503A9079D4203A932C
450 DATA 049D4803A9009D49032029E
460 DATA 350C4CA00B8C410CA90C2C6
470 DATA 9D420320350CAD410CC9306
480 DATA 88D012ADE002D024ADE157B
490 DATA 02D01FA548D001606C433BE
500 DATA 0C48A99FA01120120FA032E
510 DATA 006820390F4C950F2056236
520 DATA E430C6606CE0026CE2024D8
530 DATA 0000A40F0000110DE40E1C3
540 DATA 870E550EE10EE30E00002D8
550 DATA 8D02038E08038C0903A926C
560 DATA 558D00078D0107A9348D2E8
570 DATA 02D3A547F020C647A53E4C1
580 DATA 101AA200A096AD89023036A
590 DATA 02A002A903205CE4A9FF458
600 DATA 8D2A02AD2A02D0FBA90740D
610 DATA 8D0503A9008D0403A9602DB
620 DATA 8D0003A9008D0103A923296
630 DATA 8D0603AD0203A040C952343
640 DATA F002A0808C0303A53E8D414
650 DATA 0B03A9018542AD010348278
660 DATA 20D80C688D0103A9008532B
670 DATA 428C0303AC0303604CD4306
680 DATA EBBA8E1803A9018542AD46C
690 DATA 030310F0A5458D04D2A53F8
700 DATA 468D06D22068E4A662BC4DB
710 DATA 15EEAD0B033003BC11EE3AC
720 DATA A20020E2EDAD1703D0FB523
730 DATA 2087EB2088EA4C04ECA5505
740 DATA 2B853EA52A290CC904F03AF
750 DATA 72C908F00160A9808D894D3
760 DATA 02A90220FCFD304DA54542D
770 DATA 8D04D2A5468D06D2A9604BC
780 DATA 8D00032068E4A9348D02368
790 DATA D3A662BC8FFEBD8DFEAA716
800 DATA A903205CE4A9FF8D2A0246D
810 DATA A511F01FAD2A02D0F7A2507
820 DATA 00A00720FC0FA9028547349
830 DATA A957A20AA00020550C302FD
840 DATA 0D20010F60A080C611A933D
850 DATA 008D8902A9038D0FD2A93DB
860 DATA 3C8D02D360A900853F8D3F8
870 DATA 8902A90120FCFD30DEA04FC
880 DATA 02B124C99BD002A000C9476
890 DATA 2AD002A0FF8C530CA934463
900 DATA 8D02D3A202A000A90320372
910 DATA 5CE4A9FF8D2A02A511F0547
920 DATA B4AD0FD22910F0E2AD2A524
930 DATA 02D0F0A9028547A952A24D6
940 DATA 0AA00020550C30CEA93C30E
950 DATA 8D02D3AD530CF016301A3BE
960 DATA A24CA00E20FC0FA207BD42D
970 DATA 0207DD4E0ED0B1CA10F5492
980 DATA 20010FA00160A2008A482A5
990 DATA BD020720B0F268AAE8E0562
1000 DATA 08D0F1A2008A48BD480E450
1010 DATA 20B0F268AAE8E006D0F1663
1020 DATA A9FF8DFC0220FDF2295F5CA
1030 DATA 09404820B0F2A99B20B0467
1040 DATA F268C954F0BE4CB10D2054F
1050 DATA 28542F4E293132333435221
1060 DATA 363738AC89023003A087336
1070 DATA 60A0009143E643D002E64B5
1080 DATA 44EE0207D003EE0307AD3B3
1090 DATA 0307C904F003A00160A9374
1100 DATA 57A204A00420550C2001243
1110 DATA 0F9860AD89021003A083375
1120 DATA 60AD0207D030AD0307D039D
1130 DATA 2BA53FF003A08860A952485
1140 DATA A204A00420550C20090F203
1150 DATA 98100AA9008D02078D03281
1160 DATA 079860A904CD0307F004377
1170 DATA A980853FA000B14348E64AF
1180 DATA 43D002E64438AD0207E9416
1190 DATA 018D0207AD0307E9008D2C4
1200 DATA 030768A00160A001AD8934A
1210 DATA 021009A957A204A00420285
1220 DATA 550CA9038D0FD2A93C8D3ED
1230 DATA 02D39860A9008D02078D399
1240 DATA 0307A9078544A90485432F8
1250 DATA 60A20084CC85CB186902425
1260 DATA 9D44039869009D4503A036A
1270 DATA 00B1CB9D4803C8B1CB9D545
1280 DATA 4903A90B9D42034C56E4368
1290 DATA 85D484D520AAD920E6D8633
1300 DATA A90085CDF00520B0F2E6598
1310 DATA CDA4CDB9800510F44980549
1320 DATA 20B0F24C640FA92020B041A
1330 DATA F2E6CDA906C5CDD0F360709
1340 DATA A9DFA01120120FA200A93C5
1350 DATA 059D42039D4503A9809D392
1360 DATA 44039D4903A9009D49032C2
1370 DATA 2056E43016AC490388F0410
1380 DATA 1060A9BCA01120120FA9370
1390 DATA FF8DFC0220FDF2A2FF9A6D4
1400 DATA A9018509A900852BA90C346
1410 DATA 852A208EEFA91AA010203DF
1420 DATA 120FAD540C100AA976A0307
1430 DATA 1120120F4CD30FA96EA0337
1440 DATA 1120120FA954A0102012231
1450 DATA 0FA9FF8DFC0220FDF22957A
1460 DATA 5FA008D9FD11F005881047B
1470 DATA F830B4980AA8B9071248440
1480 DATA B90612486086438444A03AA
1490 DATA 02B124C99BF0089143C84CF
1500 DATA C00AD0F360A9209143C8552
1510 DATA C00AD0F9603800A0CBE1577
1520 DATA F3E5F4EFF7F9A0F3F9F392A
1530 DATA F4E5EDA0EFF0E5F2E1E38E0
1540 DATA F9EAEEF9A0D7DAE1E2B188F
1550 DATA AEB0A09B9B20202020203D4
1560 DATA 202050727A657277793A37D
1570 DATA 20202018019B9B20202020F
1580 DATA 20202020202020202020140
1590 DATA A0CDA0C5A0CEA0D5A09B6F0
1600 DATA 9B2020202020202020CC267
1610 DATA 2D4C61646F77616E69653C1
1620 DATA 20706C696B759B202020340
1630 DATA 2020202020D22D4C61642B0
1640 DATA 6F77616E69652069207339F
1650 DATA 746172749B20202020202F6
1660 DATA 202020D32D537461727436E
1670 DATA 2070726F6772616D759B428
1680 DATA 2020202020202020CB2D1F8
1690 DATA 4B726F746B69652070723DB
1700 DATA 7A657277799B2020202035C
1710 DATA 20202020C42D446C75672FD
1720 DATA 69652070727A65727779411
1730 DATA 9B2020202020202020C5260
1740 DATA 2D55727563686F6D69653DE
1750 DATA 6E69652073696C6E696B3E6
1760 DATA 619B20202020202020201FC
1770 DATA C82D5A6174727A796D61457
1780 DATA 6E69652073696C6E696B3E6
1790 DATA 619B20202020202020201FC
1800 DATA 1B9D2D5A696D6E79207338F
1810 DATA 74617274207379737465413
1820 DATA 6D759B2020202020202025D
1830 DATA 20C32D506F77726F74203BB
1840 DATA 646F20636172747269643DC
1850 DATA 676527619B0600444C552DA
1860 DATA 47494507004B524F544B267
1870 DATA 49451E009BFDFDFD202047E
1880 DATA 2020202020205A6C792021F
1890 DATA 666F726D617420706C693EE
1900 DATA 6B7520211B009BFDFDFD4CE
1910 DATA 202020202020426C6164233
1920 DATA 207472616E736D69736A3FB
1930 DATA 693A2021009B202020201FF
1940 DATA 2020A0CEE1E3E9F3EEE9725
1950 DATA EAA0E4EFF7EFECEEF9A08B6
1960 DATA EBECE1F7E9F3FAA01C00741
1970 DATA 9B2020202020202020501EB
1980 DATA 6F64616A206E617A77653E3
1990 DATA 20706C696B759B3F4C523BD
2000 DATA 534B4445481D43430B47264
2010 DATA 0B200C17121F1227122F0F9
2020 DATA 124A123C12A9808D540C2D2
2030 DATA 4CA40FA9008D540C4CA4385
2040 DATA 0FA9348D02D34CA40FA93F6
2050 DATA 3C8D02D3A9038D0FD24C404
2060 DATA A40FADF803D0F820481249D
2070 DATA 6CFABF6CFEBFA9018D445C9
2080 DATA 026CFCFF000000000000269
