100 :
105 IFA<>0THENGOTO265
110 :
115 REM  INIT
120 :
125 LETA=1
130 LETTWO$=CHR$(34)
135 PRINTCHR$(14)
140 PRINTCHR$(147)
145 POKE53280,15
150 POKE53281,15
155 POKE646,11
160 :
165 PRINT"[198]ERTIG? ([211][208][193][195][197]-[212]ASTE)"
170 POKE198,0
175 WAIT198,1
180 POKE646,6
185 :
190 REM  BACKUP PRINTER.OLD
195 :
200 PRINT"[204]EGE [211]ICHERHEITSKOPIE";
205 PRINT"VON ";TWO$;"[208][210][201][206][212][197][210]";
210 PRINTTWO$;"AN"
215 OPEN15,8,15
220 PRINT#15,"C:PRINTER.OLD=PRINTER"
225 CLOSE15
230 GOSUB640
235 :
240 REM  LOAD PRINTER
245 :
250 PRINT"[204]ADE [207]RIGINALFILE";
255 PRINTTWO$;"[208][210][201][206][212][197][210]";TWO$
260 LOAD"PRINTER",8,1
265 GOSUB640
270 :
275 REM  MODIFY HI-QUALITY
280 :
285 PRINT"[205]ODIFIZIERE";TWO$;
290 PRINT"[208][210][201][206][212][197][210]";TWO$;"IM [210][193][205]"
295 POKE24686,128
300 POKE24687,99
305 POKE24948,159
310 POKE24949,99
315 POKE24965,159
320 POKE24966,99
325 LETADR=25426
330 READAA
335 IFAA<0THENGOTO355
340 POKEADR,AA
345 LETADR=ADR+1
350 GOTO330
355 LETADR=25472
360 READAA
365 IFAA<0THEN390
370 POKEADR,AA
375 LETADR=ADR+1
380 GOTO360
385 :
390 REM  MODIFY LO-QUALITY (STAR NL-10)
395 :
400 POKE24819,36
405 POKE24843,36
410 POKE24971,81
415 IFPEEK(25442)=23THENPOKE25442,24
420 :
425 REM  SCRATCH PRINTER
430 :
435 PRINT"[204]OESCHE [207]RIGINALFILE";
440 PRINT"AUF [196]ISK"
445 OPEN15,8,15
450 PRINT#15,"S:PRINTER"
455 CLOSE15
460 GOSUB640
465 :
470 REM  SAVE MODIFIED PRINTER
475 :
480 POKE781,208
485 POKE782,99
490 POKE167,0
495 POKE168,96
500 POKE780,167
505 PRINT"[211]CHREIBE MODIFIZIERTES";
510 PRINT"[198]ILE AUF [196]ISK"
515 OPEN1,8,3,"PRINTER"
520 SYS65496
525 CLOSE1
530 GOSUB640
535 :
540 REM  EXIT
545 :
550 POKE646,11
555 POKE198,0
560 END
565 :
570 REM  DATAS
575 :
580 DATA013,000,051,027,-1
585 DATA032,184,096,036,098,016,023,162
590 DATA003,189,082,099,032,179,098,202
595 DATA016,247,169,001,133,025,032,184
600 DATA096,169,000,032,159,099,096,072
605 DATA036,098,048,004,104,076,136,097
610 DATA165,025,048,248,240,246,036,025
615 DATA112,008,009,064,133,025,104,133
620 DATA015,096,169,000,032,179,098,032
625 DATA179,098,104,072,037,015,032,179
630 DATA098,104,133,015,096,000,-1
635 :
640 REM  SUB DISK-ERROR
645 :
650 OPEN15,8,15
655 INPUT#15,B,B$
660 POKE646,2
665 PRINT"[196]ISK-[211]TATUS:";
670 PRINTB$
675 POKE646,6
680 CLOSE15
685 :
690 RETURN
695 :