100 REM THIS PROGRAM RELOCATES THE
110 REM 'HRPRINT' ML ROUTINE AND WRITES
120 REM THE RELOCATED CODE TO DISK
130 IF A=0 THEN A=1:LOAD "HRPRINT",8,1
140 INPUT "NEW LOCATION FOR HRPRINT";N
150 INPUT "NEW FILENAME FOR HRPRINT";F$
160 A=INT(N/256):B=N-256*A
170 PRINT "WORKING..."
180 CLOSE 15:OPEN 15,8,15,"I0"
190 GOSUB 410
200 OPEN 2, 8, 2, F$ + ",P,W"
210 GOSUB 410
220 PRINT#2, CHR$(B);CHR$(A);
230 GOSUB 410
240 FOR J=49152 TO 49675
250 P=PEEK(J)
260 IF P<>76 AND P<>108 AND P<>32 THEN PRINT#2,CHR$(P);:NEXT J
270 Z=PEEK(J+2)
280 IF Z<192 OR Z>194 THEN PRINT#2,CHR$(P);:NEXT J
290 X=49152-N
300 Y=PEEK(J+1)
310 A=Y+Z*256-X
320 Z=INT(A/256)
330 Y=A-256*Z
340 PRINT#2, CHR$(P);CHR$(Y);CHR$(Z);
350 J=J+2
360 NEXT J
370 PRINT "NEW SYS VALUE FOR 'IN':";N
380 PRINT "NEW SYS VALUE FOR 'PR':";N+55
390 CLOSE 2:CLOSE 15:END
400 REM CHECK DISK DRIVE ERROR STATUS
410 INPUT#15,EX,EX$,TR,SE
420 IF EX=0 THEN RETURN
430 PRINT CHR$(18) "DISK ERROR"
440 PRINT EX;EX$;TR;SE
450 GOTO 390