10 REM ***********************
20 REM * S C A N - L A D E R *
30 REM * H. METSCHULAT  1988 *
40 REM ***********************
50 OPEN1,8,2,"&SCAN,U,W":PR=0
60 READA:IFA<0THEN80
70 PRINT#1,CHR$(A);:PR=PR+A:GOTO60
80 CLOSE1:IF PR<>25781THENPRINT"PRUEFSUMMENFEHLER !":END
90 PRINT"'SCAN' WURDE GENERIERT.":END
100 DATA 237,5,9,173,79,2,9,2,141,79,2,96,69,0,5,237,173,79
110 DATA 2,9,4,141,79,2,169,10,141,42,2,32,238,193,32,152,195,32
120 DATA 32,195,32,202,195,32,157,196,16,3,76,69,217,160,1,177,148,133
130 DATA 128,200,177,148,133,129,32,95,213,32,117,212,32,94,5,32,55,209
140 DATA 133,53,133,59,32,55,209,133,55,133,60,76,73,5,32,91,5,165
150 DATA 128,240,33,165,59,24,105,254,133,59,144,2,230,60,76,70,5,32
160 DATA 77,212,169,0,32,200,212,32,55,209,133,128,32,55,209,133,129,96
170 DATA 165,129,24,101,59,133,59,144,2,230,60,165,59,56,233,3,133,59
180 DATA 176,2,198,60,32,39,210,162,2,160,213,132,165,134,166,160,0,185
190 DATA 219,5,145,165,200,192,18,144,246,165,55,32,194,5,165,53,32,194
200 DATA 5,169,44,145,165,200,169,36,145,165,200,165,60,32,194,5,165,59
210 DATA 32,194,5,32,247,230,32,170,193,76,255,235,72,74,74,74,74,32
220 DATA 205,5,104,41,15,201,10,144,3,24,105,7,24,105,48,145,165,200
230 DATA 96,48,50,44,32,70,73,76,69,32,83,67,65,78,78,69,68,44
240 DATA 36,199,-1