10 REM ①②②②②②②②②②②②②②②②②②②②②②②②②②❎¢20 REM | WINDOWS for ATARI XL/XE |¢30 REM ə②②②②②②②②②②②②②②②②②②②②②②②②②⇨¢40 AD=40448:RESTORE 100:POKE 106,158:GRAPHICS 0¢50 FOR I=0 TO 37:SUMA=0:FOR J=0 TO 9¢60 READ A:POKE AD+10*I+J,A:SUMA=SUMA+A:NEXT J:READ S¢70 IF S<>SUMA THEN ? "DATA ERROR at line ";100+I*10:LIST 100+I*10:END ¢80 NEXT I:POKE 812,79:POKE 813,0:POKE 814,158¢90 ? CHR$(125):POKE 205,14:POKE 206,4:OPEN #1,13,9,"O":? #1;CHR$(29);" DONE":POSITION 2,20:END ¢100 DATA 14,158,248,158,248,158,251,158,248,158,1799¢110 DATA 248,158,76,249,158,189,74,3,133,203,1491¢120 DATA 189,75,3,133,204,165,87,240,3,160,1259¢130 DATA 255,96,56,165,205,201,3,176,3,160,1320¢140 DATA 200,96,165,206,201,3,176,3,160,200,1410¢150 DATA 96,24,165,203,101,205,133,205,56,201,1389¢160 DATA 40,144,3,160,200,96,165,204,101,206,1319¢170 DATA 133,206,56,201,24,144,3,160,200,96,1223¢180 DATA 165,88,133,207,165,89,133,208,162,0,1350¢190 DATA 232,24,169,40,101,207,133,207,169,0,1282¢200 DATA 101,208,133,208,228,204,208,238,169,0,1697¢210 DATA 164,203,145,207,200,196,205,208,249,24,1801¢220 DATA 169,40,101,207,133,207,169,0,101,208,1335¢230 DATA 133,208,232,228,206,208,227,198,6,198,1844¢240 DATA 205,165,88,133,207,165,89,133,208,162,1555¢250 DATA 0,232,24,169,40,101,207,133,207,169,1282¢260 DATA 0,101,208,133,208,228,204,208,238,169,1697¢270 DATA 81,164,203,145,207,200,169,82,145,207,1603¢280 DATA 200,196,205,208,249,169,69,145,207,24,1672¢290 DATA 169,40,101,207,133,207,169,0,101,208,1335¢300 DATA 133,208,169,124,164,203,145,207,164,205,1722¢310 DATA 145,207,232,228,206,208,228,164,203,169,1990¢320 DATA 90,145,207,200,169,82,145,207,200,196,1641¢330 DATA 205,208,249,169,67,145,207,165,203,133,1751¢340 DATA 4,165,204,133,5,230,4,230,5,160,1140¢350 DATA 1,96,170,165,203,133,<2,165,205,133,1353¢360 DATA 83,165,84,72,165,85,72,165,4,133,1028¢370 DATA 85,165,5,133,84,138,201,125,208,11,1155¢380 DATA 104,133,85,104,133,84,230,205,76,80,1234¢390 DATA 158,32,176,242,165,85,133,4,165,84,1244¢400 DATA 133,5,165,4,197,203,208,8,165,205,1293¢410 DATA 133,4,198,4,198,5,197,205,208,8,1160¢420 DATA 165,203,133,4,230,4,230,5,165,5,1144¢430 DATA 197,204,208,6,165,206,133,5,198,5,1327¢440 DATA 197,206,208,6,165,204,133,5,230,5,1359¢450 DATA 104,133,85,104,133,84,169,2,133,82,1029¢460 DATA 169,39,133,83,169,30,32,176,242,169,1242¢470 DATA 31,32,176,242,160,1,96,0,0,0,738¢
