30 REM******************************
32 REM**     AUTO FUER C 64       **
34 REM**          VON             **
36 REM**     FRANK SIEDEL         **
38 REM**     POSENER STR. 18      **
40 REM**     2945 SANDE           **
42 REM******************************
44 PRINT"[147]INITIALISIERUNG MIT <SYS 49152>"
46 :
48 :
50 :DATA169,11,141,8,3,169,192,141,9,3,96,32,115,0,8,201,95,240,4,40,76,231
52 :DATA167,32,115,0,201,65,208,245,32,115,0,24,32,107,169,165,20,133,38
54 :DATA165,21,133,39,32,253,174,24,32,107,169,165,20,133,40,165,21,133,41
56 :DATA169,129,141,2,3,169,192,141,3,3,169,128,141,138,2,165,39,133,98,165
58 :DATA38,133,99,162,144,56,32,73,188,32,221,189,162,0,189,1,1,240,9,157
60 :DATA0,2,32,210,255,232,208,242,32,18,225,201,95,240,30,201,13,240,45
62 :DATA157,0,2,232,32,98,165,76,134,164,24,165,38,101,40,133,38,165,39,101
64 :DATA41,133,39,76,75,192,169,131,141,2,3,169,164,141,3,3,169,0,141,138
66 :DATA2,40,76,116,164,32,118,165,76,134,164
68 :
70 :
72 PRINTCHR$(147)
74 SU=0
76 FORI=1TO170
78 READA
80 SU=SU+A
82 POKE49151+I,A
84 NEXT
86 IFSU<>17417 THEN PRINT "FEHLER IN DEN DATAZEILEN":END
88 PRINT"OK"
90 SYS49152
92 NEW:END