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#0203
118® PRINT'Anzeige tiefer Bilder*:PRINT
119® PRINT*Nmamer*,»Abstand:1’,’Start:2*,'Endzeile: 3'
12®® P0RJ*®T0E:PRINTJ+1,:X=A+61+3*J:P0RI= T02:PRINTPEEK(X+I) :NE
XT.NEXT
121® X=:INPUT'Einverstanden ®/1*;X:IPX=G0T024®
T225 INPUT Bild-Nr* ; J: INPUT* Spalten-Nr* ;I INPUT'Wert • ;X
1233 P0KSA*-3*J + I 57,X: G0T018®
1248 F0KJ=4T0E:P=A+121+2®*J
m wm' ■neeativ 5*8 V^T 7*B 8* Sf 9ja3oRI= T0D:X=1
127® PRINTJ+1 ': »1+1 ; j XNPUTX: rUKEP+i JL: NEXT NEXT
128® PRINT:PRINT'Anzeige Ser Bildarten’:PRINT:P0RJ=®T0E:P=A+121+
2®*J
129® FORI=®TOD:PRINTPEEK(F+I); NEXT:PRINT:NEXT:PRINT
13®® X=1:INPUT’einverstanden ®/l*;X:IFX=1G0T033®
131® INPUT•Wlches tiefe B ld*;J:INPUT Welches seitliche Bild*;I
132® INPUT’Wert';X:P0KEA+2®*J+I+1®®,X:G0T0128®
133® IFPTHENPOKEZ-1,5®:POKBZ,33
134® PRINT:FORK=®TOE;FORI=®T0 :Z(I)=PEEK(A+61 + 3*K I):NEXT:IFZ(®)
=®G0T0136®
135® F0RI=1TOZ(®) PRINTsNEXT
136® W=Z()-Z( ):FORJ=®TOW:FORM=®TOD
137® F0RI=®T02:S(I)=PEEK(A+1+3*M+I);NEXT
138® T=PEEK(A+121+2®*K+M):U=1:IFT>4THENU=-1:T=T-5
139® Z(®)=:IFT> THENZ()=Z( ).Z(®)=-1
14®® X=A-32*(Z()+J*Z(®) ) :X1 =®: IFS( <t>) =®GuT0142®
141® S=-1sF0RN= TOS(®):G0SUB2®®®:NEXT
142® S=U:V=S(1) ONT+1G0T0143®,144®,15®®,144®,15®®
143® P0RI=S( )TOS(2) GOSUB2®®®:GOTO 55®
144® F0RI=®T01;X2=PEEK(X-I):S=-S:IFX =®THENX2=C
145® IFX <=VGOTO 55®
146® IFV>=S(2)THENI= 1:G0T0155®
147® G0SUB2®®®;V=V 1:G0T0145®
148® G0T055®
15®® S=-U V=S(2) F0RI=®T031:Q=I:IFPEEK(X-I)=®THENI= 1
151® NEXT:F0RI= QTO®STEP-1: X2=PEEK(X-I):S=-S:IFX2=®THENX2=C
152® IFX >=VANDIGOTO 55®
1 525 IFX2>=VANDI=UTHENX2=/:S=-S
153® IFV<=S( )THENI=®:GOTO 55®
154® GOSUB ®®®:V=V-1:GOTO 52®
155® NEXT:NEXT:PRINT: NEXT:NEXT:POKEZ-1,®:POKEZ 27
156® X=®:INPUT’A11es speichern ®/l';X:IFX=®G0T05®
157® P0KEA+521,D;POKEA+522,E:X=A+66®6®:GOSUB56®:GOTO 4®
158® PRINT:PRINTTAB( ®) Bi-ld Sinlesen* :PRINT
159® PRINTLO [Name]','Danach: PP : GOTO 16®®»:BYE
16®® D=PEEK(A+521):E=PEEK(A+522):P=®:INPUT Druck ®/l*;P:G0T033®
2®®® XI=X1+1:IFX1>LTHENX -
2®1® IFP=THENPOKE 98,65
2®2® IFS< tTHENPRINT' ' ;:RETURN
2® 3® PRINTT.ilDcs)( AfeXI , 1) ;: KETURN
READY
Tabelle 3 vollständiges Programm, Teil 3
119® PRINT*Nmamer*,»Abstand:1’,’Start:2*,'Endzeile: 3'
12®® P0RJ*®T0E:PRINTJ+1,:X=A+61+3*J:P0RI= T02:PRINTPEEK(X+I) :NE
XT.NEXT
121® X=:INPUT'Einverstanden ®/1*;X:IPX=G0T024®
T225 INPUT Bild-Nr* ; J: INPUT* Spalten-Nr* ;I INPUT'Wert • ;X
1233 P0KSA*-3*J + I 57,X: G0T018®
1248 F0KJ=4T0E:P=A+121+2®*J
m wm' ■neeativ 5*8 V^T 7*B 8* Sf 9ja3oRI= T0D:X=1
127® PRINTJ+1 ': »1+1 ; j XNPUTX: rUKEP+i JL: NEXT NEXT
128® PRINT:PRINT'Anzeige Ser Bildarten’:PRINT:P0RJ=®T0E:P=A+121+
2®*J
129® FORI=®TOD:PRINTPEEK(F+I); NEXT:PRINT:NEXT:PRINT
13®® X=1:INPUT’einverstanden ®/l*;X:IFX=1G0T033®
131® INPUT•Wlches tiefe B ld*;J:INPUT Welches seitliche Bild*;I
132® INPUT’Wert';X:P0KEA+2®*J+I+1®®,X:G0T0128®
133® IFPTHENPOKEZ-1,5®:POKBZ,33
134® PRINT:FORK=®TOE;FORI=®T0 :Z(I)=PEEK(A+61 + 3*K I):NEXT:IFZ(®)
=®G0T0136®
135® F0RI=1TOZ(®) PRINTsNEXT
136® W=Z()-Z( ):FORJ=®TOW:FORM=®TOD
137® F0RI=®T02:S(I)=PEEK(A+1+3*M+I);NEXT
138® T=PEEK(A+121+2®*K+M):U=1:IFT>4THENU=-1:T=T-5
139® Z(®)=:IFT> THENZ()=Z( ).Z(®)=-1
14®® X=A-32*(Z()+J*Z(®) ) :X1 =®: IFS( <t>) =®GuT0142®
141® S=-1sF0RN= TOS(®):G0SUB2®®®:NEXT
142® S=U:V=S(1) ONT+1G0T0143®,144®,15®®,144®,15®®
143® P0RI=S( )TOS(2) GOSUB2®®®:GOTO 55®
144® F0RI=®T01;X2=PEEK(X-I):S=-S:IFX =®THENX2=C
145® IFX <=VGOTO 55®
146® IFV>=S(2)THENI= 1:G0T0155®
147® G0SUB2®®®;V=V 1:G0T0145®
148® G0T055®
15®® S=-U V=S(2) F0RI=®T031:Q=I:IFPEEK(X-I)=®THENI= 1
151® NEXT:F0RI= QTO®STEP-1: X2=PEEK(X-I):S=-S:IFX2=®THENX2=C
152® IFX >=VANDIGOTO 55®
1 525 IFX2>=VANDI=UTHENX2=/:S=-S
153® IFV<=S( )THENI=®:GOTO 55®
154® GOSUB ®®®:V=V-1:GOTO 52®
155® NEXT:NEXT:PRINT: NEXT:NEXT:POKEZ-1,®:POKEZ 27
156® X=®:INPUT’A11es speichern ®/l';X:IFX=®G0T05®
157® P0KEA+521,D;POKEA+522,E:X=A+66®6®:GOSUB56®:GOTO 4®
158® PRINT:PRINTTAB( ®) Bi-ld Sinlesen* :PRINT
159® PRINTLO [Name]','Danach: PP : GOTO 16®®»:BYE
16®® D=PEEK(A+521):E=PEEK(A+522):P=®:INPUT Druck ®/l*;P:G0T033®
2®®® XI=X1+1:IFX1>LTHENX -
2®1® IFP=THENPOKE 98,65
2®2® IFS< tTHENPRINT' ' ;:RETURN
2® 3® PRINTT.ilDcs)( AfeXI , 1) ;: KETURN
READY
Tabelle 3 vollständiges Programm, Teil 3