5 POKE53280,6:POKE53281,6:POKE646,15:PRINTCHR$(14)
10 PRINT"[147]":DIMA$(100,4),B$(50,4),S(90):GOSUB150:GOTO100
99 DATA *
100 PRINT"[147][211]TEHEN BEREITS [196]ATEN IM [208]ROGRAMM ?"
101 GETA$:IFA$<>"J"ANDA$<>"N"THEN101
102 IFA$="N"THEN995
103 PRINT"[205]OECHTEST [196]U":PRINT"1) DIESE [196]ATEN VERWENDEN":PRINT"2) [196]ATEN NEU EINGEBEN ?"
104 GETA$:IFA$<>"1"ANDA$<>"2"THEN104
105 IFA$="2"THENZ=1:GOTO995
107 READA$(Q,1):IFA$(Q,1)="*"THEN110
108 FORL=2TO4:READA$(Q,L):NEXT
109 Q=Q+1:GOTO107
110 Q=Q-1:IFQ<0THENPRINT" [215][201][212][218][194][207][204][196][160]!":RESTORE:FORT=1TO1500:NEXT:PRINT"[147]":GOTO100
115 IFZ1=1THENE=Q+1:GOTO1400
120 PRINT"[205]OECHTEST [196]U NOCH WEITERE [196]ATEN":PRINT"EINGEBEN ?"
130 GETA$:IFA$<>"J"ANDA$<>"N"THEN130
140 IFA$="J"THENE=Q+1:GOTO995
145 GOTO2000
150 PRINT"[147]":FORT=1TO40:PRINT"*";:NEXT:PRINT"            [197][212][201][203][197][212][212][197][206] - [196][210][213][195][203]"
151 PRINT"":FORT=1TO40:PRINT"*";:NEXT:PRINT"                   B Y"
152 PRINT"              [212][201][199][197][210] - [195][210][197][215]"
153 PRINT"[218]UM [194]EDRUCKEN VON [197]NDLOS-[193]DRESSETIKETTEN"
154 PRINT"[145]    IM [198]ORMAT    88,9  X  36,0  MM !"
158 POKE198,0:WAIT198,1:POKE198,0
159 PRINT"[147][205]OECHTEST [196]U DIE [193]NLEITUNG LESEN ?"
160 GETA$:IFA$<>"J"ANDA$<>"N"THEN160
170 IFA$="N"THENRETURN
200 PRINT"[147][196]U KANNST GLEICH ANSCHLIESSEND"
210 PRINT"DIE [193]NSCHRIFTEN VON INSGESAMT":PRINT"   6 [208]ERSONEN  EINGEBEN."
211 PRINT"[194]EI NOCHMALIGEM [208]ROGRAMMSTART SIND NOCH"
212 PRINT"BIS INSGESAMT 10 [197]INGABEN MOEGLICH. -"
213 PRINT"[196]AFUER DANN '[196][193][212][197][206] [214][197][210][215][197][206][196][197][206]' UND":PRINT"'[215][197][201][212][197][210][197] [196][193][212][197][206] [197][201][206][199][197][194][197][206]'";
214 PRINT" ANWAEHLEN!"
220 PRINT"[196]EINE [197]INGABEN BEENDEST [196]U, WENN [196]U"
230 PRINT"BEI [193][206][210][197][196][197]  ' _ '  ODER ' ^ '  DRUECKST."
235 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
240 PRINT"[194]EI '_' BEENDET SICH DAS [208]ROGRAMM,"
250 PRINT"UND ES ERSCHEINEN EINIGE [218]EILEN"
260 PRINT"AUF DEM [194]ILDSCHIRM."
270 PRINT"[196]RUECKE DANN NACH [193]UFFORDERUNG"
280 PRINT"(EV. MEHRFACH...) DIE     [210][197][212][213][210][206]-[212]ASTE."
290 PRINT"[196]IE VON [196]IR EINGEGEBENEN [196]ATEN WERDEN"
300 PRINT"DADURCH IN'S [208]ROGRAMM UEBERNOMMEN -"
310 PRINT"UND DAS 'NEUE [208]ROGRAMM' WIRD UNTER DEM"
320 PRINT"[206]AMEN  '[196]RUCK + [193]DDIS'  GE[211][193][214][197]T."
325 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
330 PRINT"[193]CHTE BITTE DARAUF, DASS EINE [196]ISK MIT"
340 PRINT"AUSREICHEND FREIEN [194]LOCKS EINGELEGT IST,"
341 PRINT"UND DASS SICH KEIN [208]ROGRAMM MIT DIESEM"
342 PRINT"[206]AMEN AUF DER [196]ISK BEFINDET!"
350 PRINT"[196]U KANNST DANACH SOFORT MIT DEM [208]ROGRAMM"
360 PRINT"WEITERARBEITEN - UND [196]U HAST FUER DIE"
370 PRINT"ZUKUENFTIGE [214]ERWENDUNG DURCH DAS [204]ADEN"
380 PRINT"DES 'NEUEN [208]ROGRAMMS' STETS DIE [196]ATEN":PRINT"DIREKT ZUR [214]ERFUEGUNG!"
385 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
390 PRINT"[196]RUECKST [196]U ZUM [194]EENDEN DER [197]INGABEN":PRINT"  ' ^ ',"
400 PRINT"KOMMST [196]U DIREKT ZUM [196][210][213][195][203]."
410 PRINT"[196]IE [196]ATEN WERDEN IN DIESEM [198]ALL"
420 PRINT"[206][201][195][200][212] [213][197][194][197][210][206][207][205][205][197][206]!"
430 PRINT"[205]OECHTEST [196]U NICHT [193][204][204][197] [193]DRESSEN DRUCKEN"
440 PRINT"WIRD VON [196]IR DIE [197]INGABE DER [206][213][205][205][197][210]"
450 PRINT"DER GEWUENSCHTEN [193]DRESSE ERWARTET."
460 PRINT"[196]EINE [193]USWAHL BEENDEST [196]U WIEDER"
470 PRINT"MIT  ' _ ' !"
480 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
490 PRINT"        [193][160][195][160][200][160][212][160][213][160][206][160][199] !!!"
500 PRINT"[196]AS ERSTE [197]NDLOS-[197]TIKETT BITTE"
510 PRINT"GENAU BUENDIG EINSTELLEN !!!!!"
800 POKE198,0:WAIT198,1:POKE198,0:RETURN
995 PRINT"[147]":X$=""
996 Y$=""
999 REM EINGABE
1000 PRINT"[193]NREDE: "
1001 PRINT"(1=[200]ERR/2=[198]RAU/3=[198]IRMA/4=EIGENE [197]INGABE)"
1002 PRINT"[214]ORNAME, [206]AME "
1003 PRINT"[211]TRASSE "
1004 PRINT"[208][204][218], [215]OHNORT "
1009 POKE214,4:POKE211,16:SYS58640:POKE204,0
1010 GETA$:IFA$=""THEN1010
1011 POKE204,128:IFA$="_"THEN1200
1012 IFA$="^"THENE=E-1:GOTO2000
1015 A=VAL(A$):IFA<1ORA>4THEN1009
1020 IFA=1THENA$(E,1)="[200]ERR "
1030 IFA=2THENA$(E,1)="[198]RAU "
1040 IFA=3THENA$(E,1)="[198]IRMA"
1045 IFA>0ANDA<4THENPRINTLEFT$(X$,5);Y$;"  ";A$(E,1)
1050 IFA=4THENPRINTLEFT$(X$,5);Y$;:INPUTA$(E,1)
1065 PRINTLEFT$(X$,11);Y$;:INPUTA$(E,2)
1075 PRINTLEFT$(X$,14);Y$;:INPUTA$(E,3)
1085 PRINTX$;Y$;:INPUTA$(E,4)
1086 V=LEN(A$(E,1))
1087 FORS=2TO4:V=V+LEN(A$(E,S)):NEXT:IFV>58THENPRINT"[218][213] [204][193][206][199]!":A=4:GOTO1050
1088 IFV<20THENFORC=VTO22:A$(E,1)=A$(E,1)+" ":NEXT
1090 PRINT"[197]INGABE RICHTIG ([202]/[206]) ? ";:POKE204,0
1100 GETA$:IFA$<>"J"ANDA$<>"N"THEN1100
1110 POKE204,128:IFA$="N"THENA=4:GOTO1050
1120 PRINT"[147]":E=E+1:GOTO1000
1200 IFZ=1THEN1300
1205 E=E-1:PRINT"[147]";
1210 FORX=0TOE:PRINTX+20;"DATA";:FORY=1TO3
1220 PRINTCHR$(34);A$(X,Y);CHR$(34);",";:NEXTY:PRINTCHR$(34);A$(X,4);CHR$(34)
1230 NEXTX:PRINTX+20;"DATA *"
1231 PRINT"SAVE";CHR$(34);"DRUCK + ADDIS";CHR$(34);",8"
1235 PRINT"RUN"
1240 IFE>5THENPRINT"BITTE  [210][197][212][213][210][206]  DRUECKEN!"
1250 POKE631,19:K=632
1251 IFE<7THENFORM=0TOE+3:POKEK+M,13:NEXT:GOTO1270
1260 IFE<10THENFORM=0TOE:POKEK+M,13:NEXT
1270 POKE198,M+1:END
1300 PRINT"[147]           [193] [195] [200] [212] [213] [206] [199] !"
1310 PRINT"  [197]S STEHEN [196]ATEN IM [208]ROGRAMM !"
1320 PRINT"[196]IESE [196]ATEN SIND [206][201][195][200][212] EINGELESEN,"
1330 PRINT"BEI [198]ORTSETZUNG DIESES [208]ROGRAMMTEILS"
1340 PRINT"WERDEN DIE ERSTEN";E;"[196]ATEN":PRINT" [213] [197] [194] [197] [210] [211] [195] [200] [210] [201] [197] [194] [197] [206] !!!"
1350 PRINT"  [212][210][207][212][218][196][197][205] [215][197][201][212][197][210] ????"
1360 GETA$:IFA$<>"J"ANDA$<>"N"THEN1360
1370 IFA$="N"THEN1390
1380 GOTO1205
1390 D1=1:FORK1=0TOE-1:FORK2=1TO4:B$(D1,K2)=A$(K1,K2):NEXTK2:D1=D1+1:NEXTK1
1396 Z1=1:GOTO100
1400 FORZ3=1TOD1-1:FORZ4=1TO4:A$(E,Z4)=B$(Z3,Z4):NEXTZ4:E=E+1:NEXTZ3
1410 GOTO1205
2000 IFE>QTHENQ=E
2010 PRINT"[147]":FORH=0TOQ:PRINTH;:PRINTA$(H,2):NEXT
2020 PRINT"    [193]LLE     [193]DRESSEN DRUCKEN ?"
2030 GETA$:IFA$<>"J"ANDA$<>"N"THEN2030
2040 IFA$="J"THENSA=Q+1:FORIO=1TOSA:S(IO)=IO-1:NEXT:GOTO3000
2050 SA=1
2055 IFSA>9THENPRINT"[145]";SA;:INPUT"[215]ELCHE**[157][157][157][157]";S$:GOTO2065
2060 PRINT"[145]";SA;:INPUT" [215]ELCHE*[157][157][157]";S$
2065 IFS$="_"THEN2090
2066 IFASC(S$)<48ORASC(S$)>57THEN2055
2070 S(SA)=VAL(S$):IFS(SA)>QTHEN2055
2080 SA=SA+1:GOTO2055
2090 SA=SA-1:IFSA=0THENPRINT"[147]":GOTO1000
2100 REM
3000 PRINT "[147]    [196]RUCKER EINGESCHALTET ?? "
3010 GOSUB20000
3011 INPUT"[215]IE OFT DRUCKEN ";U5$
3012 U5=VAL(U5$):IFU5<1THEN100
3020 OPEN4,4,7:CMD4
3025 FORU6=1TOU5
3030 FORU1=1TOSA:FORU2=1TO3
3040 PRINTSPC(5)A$(S(U1),U2):NEXTU2
3050 PRINT" ":PRINTSPC(5)A$(S(U1),4)
3060 FORU3=1TO4:PRINT" ":NEXTU3
3061 NEXTU1
3062 NEXTU6
3063 PRINT#4:CLOSE4
3070 PRINT"[147] [201]ST DER [196]RUCK IN [207]RDNUNG ?"
3080 GETA$:IFA$<>"J"ANDA$<>"N"THEN3080
3090 IFA$="N"THEN3011
3100 PRINT"[206][197][213][211][212][193][210][212] [205][201][212]  ' [210][213][206] ' !":END
20000 A=PEEK(768)
20010 OPEN1,4
20020 POKE768,185
20030 PRINT#1:CLOSE1
20040 POKE768,A
20050 IFST<>-128THENRETURN
20060 PRINT"[196]RUCKER IST [206][201][195][200][212] EINGESCHALTET!"
20080 POKE198,0:WAIT198,1:POKE198,0:GOTO20000