100 OPEN 1,8,0,"[W]HARDCOPY"
110 OPEN 2,8,1,"[W]HARDCOPY NEU"
120 FOR I=0 TO 483+2: GET#1,X$: PRINT#2,LEFT$(X$+CHR$(0),1);: NEXT I
130 FOR I=484 TO 492: READ D: PRINT#2,CHR$(D);: GET#1,X$:NEXT I
140 FOR I=493 TO 1567: GET#1,X$: PRINT#2,LEFT$(X$+CHR$(0),1);: NEXT I
150 CLOSE 2: CLOSE 1
200 DATA 173,13,221,173,0,221,76,65,79