Hochschule für Industrielle Formgestaltung [Editor]: Kolloquium zu Fragen der Theorie und Methodik der Industriellen Formgestaltung (7 Teil 2.1983)

42® X=PEEK(A) : POKEA ,X+1 : E =PEi£K(A~ 1 } FORB=XTOJ+1 STEP-1 : Ü=A-32"‘B P
0RI=®T031

43® D=PEEK(C-I);POKEC-I-32,D:IPD=®THENI= 2

44® NEXTI,B:PRINT»Eingabe der neuen Zeile :Endes ® » :P0RI = ®T03'I
43® PRINTI*:*;:INPUTD:PüKEC-I.D IPD>ETHENE=D
46® IPD=iTHENI=32

47® NEXT:POKEA-1,E D=J:P0RJ=DT0D+2:GOSUB 1®sNEXT:GOT05®

4ö® PRINTTAB(2®)'Loeschen fhner Zeile»:GOSUB ®®:INTUT»Richtig J/
N' ;ACs>; IPAfiO' J ! GOTO ®

49® X=PEEK(A):POKEA,X-1:PORB=J + 1T0X:C=A-32*B PORI=®TO 1

5®® D=PEEK(C-I) POKEC-I+32,D IPD=®THENI=2

51® NEXTI B B=J FURJ =B-1TOB G0SUB91®:NEXT:G0T05®

53® PRINTTAB(2®) • D:.ten retten’: G0SUB94®: X=A+65536: GOSUB 6®

54® A®=X®:X=A-32*PEEK(A)+655®4:GOSUB56®

55® PRINT:PRINT’SA [Nnme] ’X®A® :G0T06l®

56® X®=' *

57® B=INT(X/l6):C=X-B* 6+48:IFC>57THENC=C+7
58® Xi®= CHR® (C) +X®;X=B:IPB>®G0T057®

59® RETURN

6®® PRINTTAB(2®)'Daten Sinlesen*:PRINTsPRINT'LO [Name]',

61® PRINT'Danach : PP : GOTO 5®':BYE

62® PRINT:PRINTTAB(25)'Test»sPRINT:B=PEEK(A):PORJ= T0B:C=A-32*J
63® X=®:FORI= TO 1: D=PEEK( C-I): IPD=®THENI= 1: G0T0-_6®

64® IPD>XTHEM=D:G0T0b6®

65® 1=31sPRINT'Fehler in ZSile'J'bei’D
66® NEXT:NEXT:G0T05®

9®® PRINT: INPUT»In bsw narsh welcher Z,ile';J
91® C=A-J* 2

92® PORI=®TO31:X=PEEK(C-I):PRINTTAB(5)X;:IPX=®THENI=32
93® NEXTI:PRINT:RETURN

94® D=®:B=PEEK(A):F0RJ=1T0B C=A-32*J:P0RI=®T031:X=PEEK(C-I) IFX-
®THENI=32:GOTO36®

95® IPX>DTHEND=X

96® NEXTI,J:POKEA-1,D:RETURN

1®®® PRINTTAB(2®)»Bild-Erzeugung»:G0SUB94®:B=PEEK(A):C=PEEK(A-1)
1®1® INPUT 1Tcxt» ;Afei;L=LEN(A®):P=®:INPUT Druck ®/l»;P:PRINT
1®2® PRINT Bldparameter":PKINT Spaltenbereich von 1 Ms»C:D-

1®3'® INPUT 'Anzahl seitlicher Bhlder 1 Bis 2®’;D: IPD>2®GOTO®3®

1®4® D=D-1:P0RI=<T0D:PRINTI+1:J=A+1+3*I:X= :INPUT Abstand';X

1®5® POKEJ,X:X= :INPUT'Startspalte';X:P0KEJ+1,X:X=C

1®6® INPUT'Endspalte *;X:POKEJ + 2,X:NEXT PRINT

1®7® PRINT'Anzeige seilicher Bilder':PRINT

1®8® PRINT'N mmer»,»Abstand:1»,»Starts2»,»Endspalte: 3*

1 ®9® PORJ=®TOD:PRINTJ +1 , :X=A+1 + 3*J:P0RI=®T02:PRINTPEEK.(X+I) , :NEX
T:NEXT

11®® X=1:INPUT'E(nverstanden ®/l';X:IPX=1G0T0113®

111® INPUT'Bild-Nr';J:INPUT'Spalten-Nr';I INPUT'Wert';X
112® POKEA+3*J+I-3,X;G0T0i®7®

113® PRINT Bldparameter' : PRINT* Zeilenbereich von 1 bis »B •*E='/

114® INPUT'Anzahl tiefer BAlder 1 feis 2® C;E IFE> ®G0T014®

115® E=E-1:F0RI=<ST0E PRINTI -1: J=A+6l +3*1: X=e>: IN3PUT ’ Abstand» ;X
116® POKEJ X:X= :INPUT»Startzeile»;X:P0KEJ+1,X X=B
117® INPUT'Endzeile':X:POKEJ + 2.X:NEXT:PRIKT

Tabelle 3 vollständiges Programm, Teil 2

200