0 REM *********************************
1 REM *      (C) U. V. GAISBERG       *
2 REM *       AM ZUCKERBERG 70        *
3 REM *       7140 LUDWIGSBURG        *
4 REM *       TEL. 07141/55910        *
5 REM *********************************
6 FORI=0TO340:READA:B=B+A:POKE50000+I,A
7 NEXT I
8 IF B <> 33527 THEN PRINT"FEHLER IN DATAS !":END
9 PRINT"OK !":END
10 REM DATAS FUER MASCHINENPROGRAMM
11 DATA169,0,141,32,208,141,33,208,169,1,141,134,2,32,68,229,174,3,8,172
12 DATA4,8,192,0,208,7,224,2,176,3,76,206,195,162,0,142,134,2,169,32,32
13 DATA210,255,232,224,50,208,246,162,0,189,21,196,157,0,4,232,224,29,208
14 DATA245,169,24,157,0,4,232,224,69,208,246,162,0,189,50,196,157,80,4,232
15 DATA224,8,208,245,162,0,189,58,196,157,120,4,232,224,8,208,245,162,10
16 DATA160,0,24,32,240,255,169,19,162,13,160,4,141,119,2,142,120,2,142,121
17 DATA2,142,122,2,132,198,96,162,0,189,99,196,32,210,255,232,224,31,208
18 DATA245,96,32,68,229,162,10,160,0,24,32,240,255,162,1,142,134,2,202,189
19 DATA66,196,32,210,255,232,224,33,208,245,169,20,162,17,160,255,141,18
20 DATA8,142,29,8,140,4,8,162,0,189,130,196,157,32,8,232,224,34,208,245
21 DATA96,48,18,5,13,34,148,148,148,148,148,148,148,148,148,148,34,12,12
22 DATA9,19,20,19,3,8,21,20,26,26,76,49,19,25,19,50,48,57,56,19,25,19,53
23 DATA48,49,52,48,80,82,79,71,82,65,77,77,32,45,32,40,67,41,32,85,46,86
24 DATA46,71,65,73,83,66,69,82,71,32,32,49,57,56,52,66,73,84,84,69,32,90
25 DATA69,73,76,69,32,48,32,85,78,68,32,49,32,69,78,84,70,69,82,78,69,78
26 DATA32,33,169,255,141,4,8,169,131,162,164,141,2,3,142,3,3,76,131,164
27 DATA165,2,141,4,8,169,32,162,8,141,2,3,142,3,3,96,0