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

1® PRINTCHR®( 1 2) TAB( 2®) ' ***** TüGRA **♦**’: PRINT'H.Voelz»TAB( 5®)
' 17.7.82»:PRINT:pRINT

2® C1.EAR2®®: A=-1 8®®®: DIMS( 2) ,Z(2) :Z=-l 6432
3« PuKEZ-1,®:POKBZ,27:PuKEZ+1,224

4® X=®: INPUT'Vollstaendiges Bild ciVilesen* ;X: IFX=1 GOTOI 58®

5® PRINT INPUT'1: Daten 2: Bild' ;C:PRINT: IPOIGOTO ®®®

6® PRINT'1:Eingabe 2:Korrektur 3:Einfuegen 4:Loeschen 5:Anze
ige'

7® PRINT'Zeile 6:Einfuegen 7:Loeschen'

8® INPUT'8:Testen Kassette 9sRetten 1®:Lesen';C:PRINT

9® ONCGOTO ®®,19®,23®,28®,33®,41®,48®,62®,53®,6®®

1®® PRINTTAB( 2®) ' Einga.be von Daten':PRINT

11® INPUT*Nacheinander Tag:Monat:J hr»;B,C,D:P0KEA-2,B:POKEA-3,C
:POKEA-4,D

12® niPUT Bildname»;A®:A®=A®+' ':P0RI=1T05:P0KEA-I-4,ASC(MID®

(A®,I,1)) NEXT

13® INPUT »Bildgestalter';A®:P0RI=1T022:A®=A®+* ':POKEA-I-9,ASC(M
ID®(A®,I,1)) NEXT

14® PRINTTAB(3®)'Daten':PRINT»Ende Zeile:® Daten:-n»:PRINT:B=®
15® FORJ= T0255:C=A-32*J:P0RI=®T031:PRINTJ’:'I':';:INPUTX:IPX>BT
HENB=X

16® IPX<®THENX=®:POKEA,J:J=255
17® POKEC-I X IFX=®THENI=32
18® NEXTI,J:PCKEA-1,B:G0T05®

19® PRINTTAB(2®)'Kcrrektur einer Zahl':G0SUB9®®:INPUT'Richtig J/
N» ;A®: IPA®0' J' G0T05®

2®® INPUT'Welche Zahl Sendern';B:INPUT'Auf welchen Wert'jD
21® P0RI=®T01:IPPEEK(C-I)=BTHENPOKEC-I,D:1=2
22® G0T031®

23® PRINTTAB(2®)'Einfuegen einer Zahl»;GOSUB9®®:INPUT'Richtig J/
N' ;A®:IPA®<>'J'G0T05®

24® INPUT'Einzufuegende Zahl»;B:P0RI=®T031:IPPEEK(C-I)=/THEND=I:
1=32

25® NEXT:POKEC-D-1,®:P0RI=D-1T0®STEP-1:X=PEEK(C-I):IPX>BTHENPOKE
C-I-1,X:NEXT:GOTO 27®

26® POKEC-I-1,B:1=®:NEXT IPB>PEEK(A-1)THENPOKEA-1,B
27® GOSUB.2®:GOTO ®

28® PRINTTAB( ®)'Loeschen Siner Zahl':GOSUB9®®:INPUT Richtig J/N
';A®:IPA®<>' J'G0T05®

29® INPUT'Welche Zahl';B:P0RI=®T031:IPPEEK(C-I)=BTHENB=I:1=1
3®® NEXT:P0RI=B*-1T031 :X=PEEK(C-I) .-POKEC-I + 1 ,X: IPX=®THENI=31
31® NEXT:G03UB92®:GOTO ®

33® PRINTTAB(2®)'Daten-Anzeige':PRINT:B=PEEK(A) D=1

34® PRINT P ogrammname:»;:P0RI=5T09:PRINTCHR®(PEEK(A-I)); NEXT

35® PRINT PRINT'Bildgestalter:';:P0RI=1®T031:PRINTCHR®(PEEK(A-I)

) ; NEXT

36® PRINT:PRINT'Datum:»;:FORI= T04:PRINTPEEK(A-I);:NEXT:PRINT
37® B=PEEK(A) PRINT»Zoilenzahl: 'B Llax. Zeilenlaenge: »PEEK(A-1)
38® INPUT»Anzeige 511er Dten J/N';A®:IPA®=’J'G0T04®®

39® INPUT'Zeilenbereich»;D,B:PRINT

4®® PRINT'Zeile:Daten':FORJ=DTOB PRINT'ff’J;:GOSUB91®:NEXT:GOTOp®
41® PRINTTAB(2®)»Einfuegen einer Zeile»:G0SUB9®®:INPUT'Richtig J
/N';A® IPA®<>*J'GOTO.®

Tabelle 3 vollständiges Programm, Teil 1

199