Hardcopy Gemini-10X

Das Programm erlaubt, in der Kombination des von C 64 mit dem Matrix-Drucker Gemini-10X von Star eine Hardcopy der hochauflösenden Grafik zu erstellen.

Es werden die Grafikpunkte in 25 Zeilen zusammengefaßt und nacheinander ausgedruckt.

Der Druckvorgang dauert rund 45 Sekunden.
Das Programm wird in den Kassettenspeicher eingelesen und von dort mit folgendem Befehl aufgerufen:
xxx OPENX,4,5
xxx SYS828,X
xxx PRINT#X:CLOSEX

Das X bei den einzelnen Befehlen steht für die freidefinierbare Filenummer.

Nach dem CLOSE-Befehl springt das Programm automatisch wieder in das Basic-Programm.

10 rem hardcopy c64 und gemini-10x
15 rem mit star-universal-interface
20 for i=828 to 943
30 read x:pokei,x:s=s+x:next i
40 data76,63,3,32,253,174,32,158,183,32,201,255,169,0,160,32
50 data133,253,132,254,162,25,160,7,44,160,5,185,160,3,32
60 data210,255,136,16,247,169,40,133,21,169,128,133,151,169
70 data0,133,20,160,7,177,253,37,151,240,7,165,20,25,168,3
80 data133,20,136,16,240,165,20,32,210,255,70,151,144,225
90 data165,253,105,7,133,253,144,2,230,254,198,21,208,207
100 data202,208,189,169,13,32,210,255,76,204,255,1,64,75,27
110 data13,8,65,27,128,64,32,16,8,4,2,1
120 if s<>13426 then print"fehler":stop
130 print"ok!"