100 REM CREATE CHARACTER SET FOR
110 REM 'HI-RES PRINT' ML ROUTINE
120 PRINT CHR$(142):REM USE CHR$(14) FOR  LOWERCASE
130 PRINT CHR$(8):REM DISABLE CASE CHANGE FROM KEYBOARD
140 INPUT "LOCATION OF CHARACTER SET";N
150 A=N-INT(N/256)*256: B=INT(N/256)
160 INPUT "FILENAME";F$
170 IF LEN(F$)=0 THEN 160
180 PRINT "WORKING..."
190 REM COPY FIRST 64 CHARACTERS FROM ROM CHARACTER SET
200 POKE 56334, PEEK(56334) AND 254
210 POKE 1, PEEK(1) AND 251
220 FOR J=0 TO 511
230 POKE J+N, PEEK(53248+J)
240 NEXT J
250 POKE 1, PEEK(1) OR 4
260 POKE 56334, PEEK(56334) OR 1
270 CLOSE 15:OPEN 15, 8, 15, "I0"
280 GOSUB 410
290 OPEN 2, 8, 2, F$ + ",P,W"
300 GOSUB 410
310 PRINT#2, CHR$(A);:PRINT#2, CHR$(B);
320 GOSUB 410
330 FOR J=0 TO 511
340 PRINT#2, CHR$(PEEK(J+N));
350 NEXT J
360 GOSUB 410
370 CLOSE 2:CLOSE 15
380 PRINT CHR$(9):REM ENABLE CASE CHANGE FROM KEYBOARD
390 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 370