DOI article:
Völz, Horst; Völz, Ruth: Versuch einer speziellen (künstlerischen) Darstellungsmethode mit einem Rechner
DOI Page / Citation link: https://doi.org/10.11588/diglit.30601#0199
Bildern. Die weiteren 22 Bytes können für den Bildgestalter
und für Kommentare verwendet werden. Die Speicheradres9e von
Zeile 0, Spslte 0 - also dort, wo die Zeilenzahl steht - ist
ein frei wählbarer Bezugspunkt. Es wurde im Programm
A - - 18000, in HEX B9B0, gewählt .
Einfaches Druckprogramm
Ein auf das Minimum reduziertes Druckprogramm zeigt Tabelle 2.
Mit CHR0(12) wird der Bildschirm gelöscht. Dann folgen die
Kenndaten: TEGRU als Name des Progrsmms. CLEAR 200 schafft ge-
nügend Speicherraum für den Text. Z = - 16432 ist ein system-
spezifischer Parameter zum Umschalten auf Druck. B wird mit der
Zeilenzahl des Bildes belegt.
1® PRINTCHR©(12)TAB(2®)<***** TEGRU *****'
2® PKINT'H.Voelz rTAB(5®)'21.6.82'
3® CLEAR2®®:A=-18®®®:Z=-16432:B=PLBK(A)
4® INPUT 'lixt 1 ;Afc: L=LEK(Afe)
5® POKEZ-1,5®:POKEZ,33:POKEZ+1,224
6® F0RJ=1TOB C=A-32*J:K=/:P=-1
7® PORI=/T031
6® Y=PEEK(C-I):P=-P:IPY=®THENPRINT:6OT0ft®
9® F0RK=XT0Y-1:P0KE398,65
1 ®® IFP>®THENPRINTCHRd) ( 2j ;: GOTO-i 2®
11® PRINTMID&>(A®,iv+1 -L*INT(K/L) ,1) ;
12® NEXTK: X=Y
13® I'JEXTI: PRINT
14® NEXTJ
15® POKEZ-1,®:POKEZ,27:GOTO4®
READY
Tabelle 2 Druckprogramm
In Programmzeile 40 wird der Text eingegeben und als Aß ge-
speichert. Seine Länge wird anschließend als L gespeichert. In
Zeile 50 wird auf Druck umgeschaltet . In Zeile 60 ist 0 der
Laufparameter für die Zeilen des Bildes. Mit C = A - 32*0 wird
also die Startadresse der Zeile berechnet. P ist ein Flag, das
je nach dem, ob es +1 oder -1 ist, Druck bzw. Nichtdruck be-
wirkt. X ist der Laufparameter in der Zeile und wird deshalb zu
Beginn Null gesetzt.
In Zeile 70 ist I der Zählparameter für die Daten. Bei Zeile 80
wird der jeweils nächste Zahlenwert über PEEK aufgerufen und Y
zugeordnet. Falls Y = 0 wird, erfolgt Zeilenvorschub und aus
Zeile 140 werden die Daten der neuen Bildzeile aufgerufen.
4Q7
und für Kommentare verwendet werden. Die Speicheradres9e von
Zeile 0, Spslte 0 - also dort, wo die Zeilenzahl steht - ist
ein frei wählbarer Bezugspunkt. Es wurde im Programm
A - - 18000, in HEX B9B0, gewählt .
Einfaches Druckprogramm
Ein auf das Minimum reduziertes Druckprogramm zeigt Tabelle 2.
Mit CHR0(12) wird der Bildschirm gelöscht. Dann folgen die
Kenndaten: TEGRU als Name des Progrsmms. CLEAR 200 schafft ge-
nügend Speicherraum für den Text. Z = - 16432 ist ein system-
spezifischer Parameter zum Umschalten auf Druck. B wird mit der
Zeilenzahl des Bildes belegt.
1® PRINTCHR©(12)TAB(2®)<***** TEGRU *****'
2® PKINT'H.Voelz rTAB(5®)'21.6.82'
3® CLEAR2®®:A=-18®®®:Z=-16432:B=PLBK(A)
4® INPUT 'lixt 1 ;Afc: L=LEK(Afe)
5® POKEZ-1,5®:POKEZ,33:POKEZ+1,224
6® F0RJ=1TOB C=A-32*J:K=/:P=-1
7® PORI=/T031
6® Y=PEEK(C-I):P=-P:IPY=®THENPRINT:6OT0ft®
9® F0RK=XT0Y-1:P0KE398,65
1 ®® IFP>®THENPRINTCHRd) ( 2j ;: GOTO-i 2®
11® PRINTMID&>(A®,iv+1 -L*INT(K/L) ,1) ;
12® NEXTK: X=Y
13® I'JEXTI: PRINT
14® NEXTJ
15® POKEZ-1,®:POKEZ,27:GOTO4®
READY
Tabelle 2 Druckprogramm
In Programmzeile 40 wird der Text eingegeben und als Aß ge-
speichert. Seine Länge wird anschließend als L gespeichert. In
Zeile 50 wird auf Druck umgeschaltet . In Zeile 60 ist 0 der
Laufparameter für die Zeilen des Bildes. Mit C = A - 32*0 wird
also die Startadresse der Zeile berechnet. P ist ein Flag, das
je nach dem, ob es +1 oder -1 ist, Druck bzw. Nichtdruck be-
wirkt. X ist der Laufparameter in der Zeile und wird deshalb zu
Beginn Null gesetzt.
In Zeile 70 ist I der Zählparameter für die Daten. Bei Zeile 80
wird der jeweils nächste Zahlenwert über PEEK aufgerufen und Y
zugeordnet. Falls Y = 0 wird, erfolgt Zeilenvorschub und aus
Zeile 140 werden die Daten der neuen Bildzeile aufgerufen.
4Q7