10 INPUT"STARTADRESSE";S
20 FORI=0TO62:READA:P=P+A:POKES+I,A:NEXT:IFP=7129THEN40
30 PRINT"DATENFEHLER":LIST
40 POKES+16,PEEK(776)
50 POKES+17,PEEK(777)
60 POKE780,S-256*INT(S/256)
70 POKE781,INT(S/256):SYSS+56:NEW
100 DATA 32,115,0,201,139,240,11,165
110 DATA 122,208,2,198,123,198,122,76
120 DATA 228,167,32,115,0,32,158,173
130 DATA 32,121,0,201,137,240,5,169
140 DATA 167,32,255,174,165,97,208,8
150 DATA 32,9,169,208,3,76,251,168
160 DATA 32,121,0,176,210,76,160,168
170 DATA 141,8,3,142,9,3,96