| 100 DATA 205,147,187,059,059,227,051,051,229,017,058,000,025,229,209,019,-1772
110 DATA 019,019,019,115,035,114,043,229,193,043,043,043,043,205,209,188,-1560 120 DATA 017,072,000,225,025,229,209,019,019,019,019,115,035,114,043,229,-1389 130 DATA 193,043,043,043,043,205,209,188,201,000,000,000,000,000,000,024,-1192 140 DATA 060,083,084,069,088,212,000,000,000,000,000,000,000,024,007,083,-0710 150 DATA 068,065,084,193,000,201,254,003,032,029,205,147,187,059,059,227,-1813 160 DATA 051,051,001,029,002,009,221,126,004,119,035,221,126,002,119,035,-1151 170 DATA 035,035,221,126,000,119,201,062,007,205,090,187,201,254,001,032,-1776 180 DATA 246,205,147,187,245,205,225,187,245,205,120,187,229,062,001,205,-2901 190 DATA 144,187,205,147,187,059,059,227,051,051,229,221,110,000,221,102,-2200 200 DATA 001,229,046,025,038,001,205,117,187,225,070,197,035,094,035,086,-1591 210 DATA 046,025,038,001,205,117,187,235,126,229,197,205,093,187,193,225,-2309 220 DATA 035,016,245,193,225,229,072,205,017,188,254,002,040,008,203,033,-1965 230 DATA 254,001,040,002,203,033,203,033,062,000,023,203,033,023,203,033,-1349 240 DATA 023,071,017,219,001,025,113,035,112,205,198,187,193,197,229,096,-1921 250 DATA 105,001,221,001,009,115,035,114,229,001,012,000,009,115,035,114,-1116 260 DATA 225,209,035,115,035,114,035,054,000,035,054,000,035,054,014,035,-1049 270 DATA 054,000,225,229,001,233,001,009,126,205,222,187,062,066,205,030,-1855 280 DATA 187,032,011,225,229,001,227,001,009,126,254,254,032,014,225,225,-2052 290 DATA 205,117,187,241,205,222,187,241,205,144,187,201,225,229,001,219,-3016 300 DATA 001,009,078,035,070,225,229,017,225,001,025,094,035,086,235,183,-1548 310 DATA 237,066,032,061,235,054,000,043,054,000,035,035,053,053,225,229,-1412 320 DATA 001,234,001,009,094,035,086,001,014,000,183,237,066,115,035,114,-1225 330 DATA 225,229,001,223,001,009,094,035,086,229,001,006,000,009,126,203,-1477 340 DATA 039,006,000,079,183,235,237,066,235,225,114,043,115,024,002,024,-1627 350 DATA 139,225,229,001,227,001,009,078,006,000,043,086,043,094,096,105,-1382 360 DATA 205,240,187,225,229,001,233,001,009,119,225,229,001,229,001,009,-2143 370 DATA 078,035,070,035,113,035,112,035,126,254,000,032,023,225,229,017,-1419 380 DATA 221,001,025,094,035,086,229,038,000,105,025,235,225,114,043,115,-1591 390 DATA 024,047,024,187,225,229,001,221,001,009,094,035,086,035,078,035,-1331 400 DATA 070,096,105,205,234,187,225,229,001,231,001,009,053,040,020,225,-1931 410 DATA 229,001,221,001,000,009,094,035,086,019,114,043,115,024,213,024,-1228 420 DATA 209,024,094,225,229,001,232,001,009,053,040,042,043,043,043,126,-1414 430 DATA 035,035,119,225,229,001,221,001,009,094,035,086,235,006,000,061,-1392 440 DATA 079,183,237,066,235,114,043,115,035,035,078,035,070,011,011,112,-1459 450 DATA 043,113,197,225,024,158,225,229,001,221,001,009,094,035,086,019,-1680 460 DATA 114,043,115,035,035,094,035,086,225,229,001,230,001,009,126,235,-1613 470 DATA 022,000,061,203,039,095,025,235,225,229,001,223,001,009,115,035,-1518 480 DATA 114,225,229,001,225,001,009,094,035,086,019,114,043,115,024,143,-1477 490 DATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,-0000 500 DATA 000,-0000 510 MEMORY 29999 520 adr= 30000 530 FOR i=10 TO 50 540 READ op$:IF LEFT$(op$,1)="-"THEN 570 550 op=VAL(op$):POKE adr,op 560 adr=adr+1:psum=psum+op:GOTO 540 570 IF psum+VAL(op$)=0 THEN 590 580 PRINT" Data-Fehler in Zeile";i*10:END 590 psum=0:NEXT 600 SAVE"suschri.bin",b, 30000,641 |