10 '(wr) Christoph Dreyer 89/90 20 DATA 21,52,BF,01,8A,BE,CD,D1,BC,C9,8F,BE,C3,93,BE,43 30 DATA 4F,50,D9,FE,01,C2,34,BF,3E,01,32,78,BE,32,66,BE 40 DATA 3E,C9,32,5A,BB,DD,66,01,DD,6E,00,46,23,5E,23,56 50 DATA EB,11,00,00,C5,D5,E5,CD,77,BC,D2,34,BF,E5,DD,E3 60 DATA E1,EB,50,59,DD,46,26,DD,4E,27,DD,21,56,BF,DD,77 70 DATA 00,DD,70,01,DD,71,02,DD,72,03,DD,73,04,DD,74,05 80 DATA DD,75,06,CD,83,BC,D2,34,BF,CD,7A,BC,CD,03,BB,CD 90 DATA 18,BB,E1,D1,C1,CD,8C,BC,D2,34,BF,DD,21,56,BF,DD 100 DATA 7E,00,DD,46,01,DD,4E,02,DD,56,03,DD,5E,04,DD,66 110 DATA 05,DD,6E,06,CD,98,BC,D2,34,BF,CD,8F,BC,D2,34,BF 120 DATA 3E,0F,32,66,BE,AF,32,78,BE,3E,CF,32,5A,BB,CD,00 130 DATA B9,CD,58,C0,3E,CF,32,5A,BB,21,47,BF,7E,FE,FF,28 140 DATA DF,CD,5A,BB,23,18,F5,44,49,53,43,20,45,52,52,4F 150 DATA 52,FF,0 160 FOR a=&BE80 TO &BF52 170 READ b$ 180 POKE a,VAL("&"+b$) 190 NEXT 200 REM SAVE"COPY.BIN",b,&BE80,&D2 210 CALL &BE80