10 OPEN "o",1,"cat.com"
20 dat=0:sz=0:dz=140
30 FOR adr=&H100 TO &H263
40 READ byte$:byte=VAL("&H"+byte$):dat=dat+1
50 sz=sz+byte
60 PRINT#1,CHR$(byte);
70 IF dat<16 AND adr<&H263 THEN 110
80 READ chksum
90 IF chksum<>sz THEN PRINT"Fehler in Zeile :";dz
100 dz=dz+10:sz=0:dat=0
110 NEXT adr
120 CLOSE
130 END
140 DATA ED,73,67,02,31,89,02,AF,32,7C,00,32,64,02,21,5D, 1272
150 DATA 00,3E,20,BE,20,07,06,0B,36,3F,23,10,FB,1E,FF,0E, 1058
160 DATA 20,CD,05,00,32,63,02,21,89,02,E5,0E,11,11,5C,00, 934
170 DATA CD,05,00,FE,FF,28,5D,18,09,0E,12,CD,05,00,FE,FF, 1636
180 DATA 28,52,0F,0F,0F,21,80,00,06,00,4F,09,3A,63,02,BE, 771
190 DATA 20,E7,23,EB,E1,36,3A,23,36,20,23,36,20,23,06,08, 1161
200 DATA 1A,E6,7F,77,23,13,10,F8,36,2E,23,06,03,1A,CB,27, 1232
210 DATA CB,11,1A,E6,7F,77,23,13,10,F3,36,20,79,CB,3F,28, 1548
220 DATA 05,ED,44,C6,2C,77,23,36,20,23,36,24,23,E5,21,64, 1314
230 DATA 02,34,18,A5,E1,22,65,02,21,64,02,7E,B7,CA,4E,02, 1331
240 DATA FE,01,28,41,4F,21,7A,02,0D,7D,C6,12,6F,7C,CE,00, 1391
250 DATA 67,41,54,5D,7B,C6,12,5F,7A,CE,00,57,C5,D5,E5,1A, 1859
260 DATA CB,BF,4E,CB,B9,B9,38,06,20,13,13,23,18,F1,E1,D1, 1911
270 DATA D5,E5,06,0F,1A,4E,EB,71,12,23,13,10,F7,E1,D1,C1, 1877
280 DATA 10,D2,0D,20,C4,2A,65,02,11,12,00,36,24,19,36,24, 852
290 DATA 19,36,24,3A,64,02,4F,CB,39,CB,39,E6,03,28,01,0C, 1160
300 DATA 06,00,3A,5C,00,C6,41,CD,3F,02,AF,1E,04,F5,C5,D5, 1553
310 DATA 80,5F,3E,00,17,57,21,89,02,06,12,19,10,FD,EB,0E, 1134
320 DATA 09,CD,05,00,D1,C1,F1,81,1D,20,E2,F5,3E,0D,CD,3F, 1866
330 DATA 02,3E,0A,CD,3F,02,F1,04,79,B8,C2,02,02,18,17,C5, 1336
340 DATA D5,E5,E6,7F,5F,0E,02,CD,05,00,E1,D1,C1,C9,11,5B, 2056
350 DATA 02,0E,09,CD,05,00,ED,7B,67,02,C9,4E,4F,20,46,49, 1233
360 DATA 4C,45,24,00, 181