Hardcopy MPS 802/1526

Hardcopies in der vierfachen Größe erstellt dieses Programm auf dem MPS 802.

Dieses Programm druckt den HiRes-Grafikbildschirm in vierfacher Vergrößerung auf dem MPS 802 aus. Durch die Papierbreite bedingt, muß das Bild jedoch in zwei Teile zerlegt und anschließend zusammengeklebt werden, was sich jedoch nicht nachteilig bemerkbar macht.

Die Schnelligkeit der Druckroutine (komplett zirka 8 bis 13 Minuten) wird durch zwei Faktoren bewirkt:

Adreßberechnung und Datenumwandlung in Maschinensprache;
Keine Verwendung von selbstdefinierten Sonderzeichen, das heißt die gedruckten Zeichen sind die Standard-Grafikzeichen des Commodore 64 (es handelt sich hierbei um folgende 16 Zeichen:

CHR$(160),(161),(162),(172),(187),(188),(190),(191)

(in normaler und reverser Darstellung)

Während des Druckes ist auf den HiRes-Bildschirm umgeschaltet, so daß man die Abarbeitung verfolgen kann. Nach Fertigstellung des ersten Teiles unterbricht das Programm, um ein Neujustieren des Druckerpapiers zu ermöglichen. Danach wird der zweite Teil ausgedruckt. Die Bilder sollten sich im Speicher ab Adresse 8192 = $2000 befinden.

(Ralph Hoffmann/Christoph Bertog/rg)

1 rem *********************************
2 rem   4-fach vergroesserte hardcopy
3 rem                by
4 rem          ralph hoffmann
5 rem         christoph bertog
6 rem         liebknechtstr.17
7 rem           zweibruecken
8 rem              c 1985
9 rem *********************************
10 forq=52224to52540:readd:pokeq,d:x=x+d:next
15 if x<>42320 then print"data-fehler":end
20 print"{clr}":a1=peek(53265):a2=peek(53272)
25 open6,4,6:print#6,chr$(20)
30 open4,4:print#4,chr$(141)
35 poke254,0:poke255,32
50 poke53265,59:poke53272,24
55 sys52224
60 poke53265,a1:poke53272,a2
65 ifp=1then100
70 input"neu justiert";c$
75 ifc$<>"j"then97
80 poke254,160:poke255,32:p=1:print"{clr}":goto50
100 close6:close4:end
32000 data169,160,141,224,3,141,239,3,169,172,141,225,3,141,238,3,169,187,141
32001 data226,3,141,237,3,169,162,141,227,3,141,236,3,169,188,141,228,3,141,235
32002 data3,169,161,141,229,3,141,234,3,169,191,141,230,3,141,233,3,169,190,141
32003 data231,3,141,232,3,169,0,141,240,3,141,241,3,169,1,141,244,3,141,246,3
32004 data169,0,141,245,3,162,4,142,242,3,32,201,255,169,0,141,243,3,173,240
32005 data3,24,109,241,3,168,177,254,10,46,243,3,10,46,243,3,145,254,200,177
32006 data254,10,46,243,3,10,46,243,3,145,254,206,242,3,240,3,76,193,204,169
32007 data4,141,242,3,169,8,24,109,240,3,141,240,3,201,160,208,235,169,0,141
32008 data240,3,169,2,24,109,241,3,141,241,3,201,8,208,217,169,0,141,241,3,169
32009 data64,24,101,254,133,254,144,2,230,255,230,255,173,243,3,201,11,176,8
32010 data201,5,144,33,201,8,176,29,169,18,32,210,255,172,243,3,185,224,3,32
32011 data210,255,173,246,3,201,20,240,17,169,146,32,210,255,76,246,204,172,243
32012 data3,185,224,3,32,210,255,238,246,3,173,246,3,201,21,240,3,76,93,204,169
32013 data1,141,246,3,169,20,24,109,245,3,141,245,3,201,80,240,16,170,169,141
32014 data32,210,255,169,32,32,210,255,202,208,250,240,219,169,13,32,210,255
32015 data169,0,141,245,3,238,244,3,173,244,3,201,101,208,199,32,204,255,96

Listing »Hardcopy MPS 802«.