Hardcopy im Superformat

Hier ist endlich eine formatfüllende Hardcopy-Routine für den Commodore 64 mit Epson-Drucker und Simons Basic

Das Programm erzeugt eine vergrößerte Hardcopy vom Grafikbildschirm. Die in Simons Basic enthaltene Hardcopy nutzt ja leider nur das halbe Blatt aus, was in vielen Fällen sehr störend ist. Das Programm vergrößert den Ausdruck in X- und Y-Richtung, so daß eine halbe A4-Seite bedruckt wird.

Es ist für den Commodore 64 und Epson-Drucker mit VC-Interface gedacht, läßt sich aber auch an andere Nadeldrucker anpassen.

Für das Görlitz-Interface muß der Wert 1 in Zeile 320 in 12 geändert werden.

(Peter Schwabe / ev)

Auch selbsterstellte Grafiken sind schnell ausgedruckt

11 rem **********************
12 rem ****               ***
13 rem ****   hardcopy    ***
14 rem ****               ***
15 rem **********************
20 rem **** peter schwabe ***
30 rem ****  ibbenbueren  ***
40 rem ****  12.09.1984   ***
50 rem **********************
60 print"{clr}{down}{down}{down}{down}  hardcopy fuer simon's basic
70 print"{down}{down}  die copy wird mit sys 32500 gestartet
80 print"{down}{down}  bitte warten, programm wird geladen
90 fork=32500 to 32699
100 read a:poke k,a:s=s+a:next
320 data 169,126,162,  4,160,  1, 32,186,255,169,  0, 32
330 data 192,255,162,126, 32,201,255,169,  0,160,224,133
340 data 253,132,254,162, 50,169,  1,133,252,160,  2,185
350 data 177,127, 32,210,255,136, 16,247,160,  5,185,171
360 data 127, 32,210,255,136, 16,247,169, 40,133, 21,169
370 data 128,133,151,169,  0,133, 20,160,  3,169, 52,120
380 data 133,  1,177,253, 37,151,240, 10,165, 20, 25,180
390 data 127, 25,184,127,133, 20,136, 16,237,169, 55,133
400 data   1, 88,165, 20, 32
440 data 210,255, 32,210,255, 70,151,144,209,165,253,105
450 data   7,133,253,144,  2,230,254,198, 21,208,191,165
460 data 252,240, 22, 56,165,253,233, 60,133,253,165,254
470 data 233,  1,133,254,169,  0,133,252,202,208,152,240
480 data  20, 56,165,253,233,  4,133,253,165,254,233,  0
490 data 133,254,169,  1,133,252,202,208,130,169, 13, 32
500 data 210,255, 32,204,255,169,126, 76,195,255,  2,128
510 data   4, 42, 27, 13, 23, 51, 27,128, 32,  8,  2, 64
520 data  16,  4,  1,-1
600 if s <> 26274 then print "fehler in datas !!!":end
610 print"{down}{down}{down}  programm ist bereit !!!"
620 poke 56,126:rem vor ueberschreiben schuetzen

Listing »Super-Hardcopy«