100 GRAPHICS 0:? "Make sure you have saved a copy of":? "this program before RUNning it":FOR X=1 TO 1050:NEXT X¢110 ? :? ¢120 DIM LN(2):FOR X=1 TO 2:READ DAT:LN(X)=DAT:NEXT X¢130 DATA 41,657¢140 FOR X=1 TO 2:TOT=0:N=0:GOSUB 1000¢150 FOR N=1 TO LN(X):READ DAT:TOT=TOT+DAT¢160 IF N/25<>INT(N/25) THEN 190¢170 T=TOT:TOT=0:READ DAT:IF DAT<>T THEN ? "...ERROR":STOP ¢180 GOSUB 1000¢190 NEXT N:READ DAT:IF DAT<>TOT THEN ? "...ERROR":STOP ¢200 NEXT X¢210 RESTORE 20000¢220 FOR X=1 TO 2:L=29500+500*X:GOSUB 1010¢230 FOR N=1 TO LN(X):READ DAT:? CHR$(27);CHR$(DAT);¢240 IF N/25=INT(N/25) THEN READ DAT¢250 IF N/90=INT(N/90) THEN GOSUB 1020:L=L+10:GOSUB 1010¢260 NEXT N:READ DAT:GOSUB 1020¢270 NEXT X¢280 END ¢1000 ? :? "CHECKING LINE ";19000+1000*X+10*INT(N/25);:RETURN ¢1010 GRAPHICS 0:POSITION 2,4:? L;" MLANG$=";CHR$(34);:RETURN ¢1020 ? CHR$(34);":RETURN":? "CONT":POSITION 0,0:POKE 842,13:STOP ¢1030 POKE 842,12:RETURN ¢20000 DATA 104,104,133,207,104,133,206,104,133,209,104,133,208,104,170,160,255,138,208,2,104,168,177,206,145,3719¢20010 DATA 208,136,192,255,208,247,230,207,230,209,202,224,255,208,233,96,3340¢21000 DATA 104,104,104,141,188,6,104,104,141,228,6,141,231,6,141,234,6,141,237,6,238,237,6,141,240,3235¢21010 DATA 6,238,240,6,169,127,141,199,6,162,9,160,4,173,47,2,41,16,240,9,169,255,141,199,6,2765¢21020 DATA 162,19,160,8,140,200,6,160,9,189,206,6,153,189,6,202,136,16,246,169,7,174,240,6,160,2969¢21030 DATA 108,32,92,228,96,32,238,6,189,152,6,24,109,200,6,168,205,199,6,144,3,172,199,6,189,2809¢21040 DATA 152,6,56,237,200,6,141,201,6,136,177,204,200,145,204,136,240,5,204,201,6,176,242,169,0,3450¢21050 DATA 145,204,96,32,238,6,189,152,6,56,237,200,6,168,176,2,160,0,189,152,6,24,109,200,6,2759¢21060 DATA 141,201,6,200,177,204,136,145,204,200,204,199,6,240,7,204,201,6,144,239,240,237,169,0,145,3855¢21070 DATA 204,96,138,72,162,4,32,238,6,104,170,189,160,6,56,237,200,6,168,176,2,160,0,189,160,2935¢21080 DATA 6,24,109,200,6,141,201,6,136,177,204,61,202,6,145,204,200,200,189,202,6,73,255,49,204,3206¢21090 DATA 136,136,17,204,145,204,200,200,204,199,6,176,7,204,201,6,144,221,240,219,189,202,6,49,204,3719¢21100 DATA 145,204,136,189,202,6,49,204,145,204,96,138,72,162,4,32,238,6,104,170,189,160,6,24,109,2994¢21110 DATA 200,6,168,205,199,6,144,3,172,199,6,189,160,6,56,237,200,6,141,201,6,200,177,204,61,3152¢21120 DATA 202,6,145,204,136,136,189,202,6,73,255,49,204,200,200,17,204,145,204,136,136,240,5,204,201,3699¢21130 DATA 6,176,224,189,202,6,49,204,145,204,200,189,202,6,49,204,145,204,96,189,189,6,133,204,24,3445¢21140 DATA 216,173,188,6,125,194,6,133,205,169,0,133,77,96,162,0,188,128,6,48,106,185,120,2,41,2707¢21150 DATA 8,208,23,189,148,6,221,136,6,240,43,169,0,133,77,254,148,6,189,148,6,157,0,208,208,2931¢21160 DATA 28,185,120,2,41,4,208,21,169,0,133,77,189,148,6,221,132,6,240,9,222,148,6,189,148,2652¢21170 DATA 6,157,0,208,188,128,6,185,120,2,41,2,208,17,189,152,6,221,144,6,240,30,254,152,6,2668¢21180 DATA 32,229,6,138,16,21,185,120,2,41,1,208,14,189,152,6,221,140,6,240,6,222,152,6,32,2385¢21190 DATA 226,6,232,224,4,208,140,162,0,189,164,6,240,83,189,168,6,240,50,16,23,222,156,6,222,3182¢21200 DATA 156,6,189,156,6,157,4,208,201,47,176,32,169,0,157,164,6,240,53,254,156,6,254,156,6,2959¢21210 DATA 189,156,6,157,4,208,201,208,144,9,169,0,157,164,6,240,106,208,196,189,172,6,240,57,16,3208¢21220 DATA 23,222,160,6,222,160,6,32,232,6,189,160,6,201,16,176,39,169,0,157,164,6,240,74,254,2920¢21230 DATA 160,6,254,160,6,32,235,6,189,160,6,24,216,105,16,205,199,6,176,4,41,240,208,7,169,2830¢21240 DATA 0,157,164,6,240,42,189,176,6,61,0,208,240,13,169,255,157,176,6,157,184,6,169,0,157,2938¢21250 DATA 164,6,189,180,6,61,8,208,240,13,169,255,157,180,6,157,184,6,169,0,157,164,6,232,224,3141¢21260 DATA 4,208,145,76,98,228,0,759¢
