1 REM       PG.PRINTER
2 REM ---------------------------------
3 REM   PROGRAMM ZUR DRUCKERANPASSUNG
4 REM   VON 'PROGRAF'
5 REM ---------------------------------
10 POKE56,67:CLR
11 PRINT"[147]":PRINT" DRUCKERANPASSUNG 'PROGRAF'"
12 PRINT" SIND DIE ZEILEN 30-38 KONTROLLIERT?"
13 INPUT" J/N";A$:IFA$<>"J"THENEND
15 SYS57812"PROGRAF",8,1:POKE780,0:SYS65493:REM LADEN
19 REM --------------------------------
20 REM KONTROLLIERE DIE FOLGENDEN CODES
21 REM --------------------------------
30 DATA 27,64   :REM INITIALISIEREN
31 DATA 27,51   :REM ABSTAND N/216
32 DATA 27,42   :REM ESC+"*" (DICHTE)
33 DATA 3       :REM DICHTE 1920 DPL
34 DATA 1       :REM DICHTE  960 DPL
35 DATA 10      :REM 10=LINE FEED,13=CR
36 DATA 4.      :REM GERAETENR. DRUCKER
37 DATA 8       :REM GERAETENR. FLOPPY
38 DATA"NEUGRAF":REM NEUER PROGRAMMNAME
40 REM --------------------------------
41 REM   ANPASSUNG
50 REM --------------------------------
60 READA:POKE18751,A:READA:POKE18756,A
61 READA:POKE18714,A:READA:POKE18719,A
62 READA:POKE18762,A:READA:POKE18767,A
63 READA:POKE18760,A:READA:POKE18776,A
64 READA:POKE18728,A:REM
65 READA:POKE19388,A:READA:POKE22958,A
66 PRINT" DIE CODES SIND GEAENDERT."
67 INPUT" BEREIT FUER 'SAVE' (J/N)";A$
68 IFA$<>"J"THENEND
69 READA$:PRINT" SAVING";CHR$(34);A$;CHR$(34)
70 OPEN1,8,1,A$
71 PRINT#1,CHR$(96);CHR$(67);
72 FORI=17248TO23551:PRINT#1,CHR$(PEEK(I));:NEXT
73 CLOSE1:END