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

petcat | Checksummer

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

 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,4DOWN,2SPACE}HARDCOPY FUER SIMON'S BASIC 
 70 PRINT"{2DOWN,2SPACE}DIE COPY WIRD MIT SYS 32500 GESTARTET 
 80 PRINT"{2DOWN,2SPACE}BITTE WARTEN, PROGRAMM WIRD GELADEN 
 90 FOR K=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"{3DOWN,2SPACE}PROGRAMM IST BEREIT !!!" 
 620 POKE 56,126:REM VOR UEBERSCHREIBEN SCHUETZEN

Listing »Super-Hardcopy«