10 REM Program III
20 MEMORY 39999 30 address=40000 40 FOR a=0 TO 79 50 sum=0:READ code$,sum$ 60 FOR b=1 TO 19 STEP 2 70 n=VAL("&"+MID$(code$,b,2)) 80 POKE address,n 90 sum=sum+n:address=address+1 100 NEXT 110 IF sum<>VAL("&"+sum$) THEN PRINT "Data error in line ";130+a*10 120 NEXT 130 DATA 014D9C21499CC3D1BCFC,53C 140 DATA A64D9C6D9CC3A09CC3AF,609 150 DATA 9CC3BE9CC3CD9CC3DC9C,720 160 DATA C3ED9CC3FE9CC30F9DC3,6DB 170 DATA 869EC3B79E4E4F5254C8,547 180 DATA 534F5554C8454153D457,417 190 DATA 4553D44E454153D45345,3FF 200 DATA 4153D453574553D44E57,423 210 DATA 4553D44D45534C46D44D,404 220 DATA 45535249D400CD209E3A,3CC 230 DATA 669E47C5CD8B9DC110F9,5CF 240 DATA C9CD209E3A669E47C5CD,56B 250 DATA BC9DC110F9C9CD209E3A,5B1 260 DATA 679E47C5CD5B9DC110F9,5A0 270 DATA C9CD209E3A679E47C5CD,56C 280 DATA 2B9DC110F9C9CD209ECD,5B3 290 DATA 209DC5CD8B9DCD5B9DC1,5FD 300 DATA 10F6C9CD209ECD209DC5,5A9 310 DATA CDBC9DCD5B9DC110F6C9,67B 320 DATA CD209ECD209DC5CDBC9D,600 330 DATA CD2B9DC110F6C9CD209E,5B0 340 DATA CD209DC5CD8B9DCD2B9D,5D9 350 DATA C110F6C93A669E473A67,4B6 360 DATA 9EB8D047C9CD19BD2A60,563 370 DATA 9E3A669E47C50608C5E5,4A0 380 DATA E5D1233A679E3D4F0600,3AA 390 DATA EDB02B3A689E77E17CC6,5A2 400 DATA 0867C110E50150C009C1,400 410 DATA 10DBC9CD19BD2A629E3A,4BB 420 DATA 669E47C50608C5E5E5D1,57E 430 DATA 2B3A679E3D4F0600EDB8,3A1 440 DATA 233A689E77E17CC60867,46C 450 DATA C110E50150C009C110DB,47C 460 DATA C9CD19BD2A609E3A669E,4D2 470 DATA 3D47C50608C5E5E5D101,4B8 480 DATA 5000093A679E4F0600ED,2DA 490 DATA B0E111000819C110E811,38D 500 DATA 50C019C110DECDF29DC9,5FD 510 DATA CD19BD2A649E3A669E3D,44A 520 DATA 47C50608C5E5E5115000,40A 530 DATA 19EBE13A679E4F0600ED,466 540 DATA B0E111000819C110E711,38C 550 DATA B0BF19C110DD11500019,3B0 560 DATA CDF29DC90608C5E5E5D1,693 570 DATA 133A689E773A679E3D4F,395 580 DATA 0600EDB0E111000819C1,377 590 DATA 10E6C9D521B0BF115000,485 600 DATA 1910FD0D59160019D1C9,355 610 DATA FE052803AF1806DD7E08,35E 620 DATA CD2CBC32689EDD4602DD,4EF 630 DATA 4E00C5CD0F9E22609EC1,46E 640 DATA C5DD7E0432679E3D814F,468 650 DATA CD0F9E22629EC1DD7E06,4BE 660 DATA 32669E3D3D8047CD0F9E,3F1 670 DATA 22649EC9D0C227C080C2,5A8 680 DATA 01500004DD6E02DD6603,2E8 690 DATA 4E0600235E2356C9AF32,2F8 700 DATA 689E3C32669E3E503267,39F 710 DATA 9EC9CD789E2600DD6E00,4BB 720 DATA 2DCD1ABC22609E783269,403 730 DATA 9ECD11BCA7280CFE0128,43A 740 DATA 043E5018063E2818023E,16E 750 DATA 14CD6A9E67DD6E00C3EC,54A 760 DATA 9ECD789ECD11BCA7280C,4F6 770 DATA FE0128043E4F18063E27,23B 780 DATA 18023E1367DD6E002DCD,317 790 DATA 1ABC22629E7832699ECD,476 800 DATA 6A9EEB092BEBDD6E0026,483 810 DATA 01C3159FC5D5E5CD75BB,5F4 820 DATA 1ACD5ABB2A609EC53A69,48C 830 DATA 9E47C5E5CD2B9DCD3E9F,5CE 840 DATA E1C110F4C1E1D113C10B,5F8 850 DATA 78B120D8C9C5D5E5CD75,6AB 860 DATA BB1ACD5ABB2A629EC53A,4E0 870 DATA 699E47C5E5CD5B9DCD3E,5C8 880 DATA 9FE1C110F4C1E1D11BC1,694 890 DATA 0B78B120D8C9C5CD11BC,554 900 DATA A7280EFE01280501DC05,2EB 910 DATA 180801DC05180301E803,209 920 DATA 0B78B120FBC1C9000000,3D9 |