10 REM ******************************** 20 REM * * 30 REM * S.LINKE & J.PLESCHKA * 40 REM * * 50 REM ******************************** 60 REM 70 REM 80 REM DITA KORS: 1 20.5.86 90 AZ = 100 * 3 :REM FUER ETIKETTEN 100 DIM ET$(300) 110 AF = 32 :REM ANZAHL FILES AUF TASCHE 120 DIM SA$(32),SB$(32) :REM FILES SEITE A / SEITE B 130 FOR I=1TOAZ:ET$(I)="*":NEXT 140 AE = 1 :REM ANZAHL ETIKETTEN 150 ET$(0) = " (C) S.LINKE & J.PLESCHKA " 160 ET$(1) = " TEL.:07533 / 2087 " 170 ET$(2) = " TEL.:07533 / 3128 " 180 POKE53280,0:POKE53281,0:POKE646,1 190 PRINTCHR$(142) :REM GROSS/GRAFIK 200 POKE788,52 :REM STOPTASTE SPERREN 210 PRINTCHR$(8) :REM SHIFT/COMMODORE SPERREN 220 REM -------------------- 230 REM CHAR-CODE FUER ETIKETT AUF VDU 240 LO = 207:RO = 208 250 LU = 204:RU = 186 260 LB = 180:RB = 170 270 OB = 183:UB = 175 280 SI = 18:SO = 146 290 REM -------------------- 300 LG = 30 310 NA$ = "DISK.ETIKETTEN" 320 LE$ = " " 330 F1 = 153 :REM HELLGRUEN 340 F2 = 28 :REM ROT 350 F3 = 158 :REM GELB 360 DIM C1(4),C2(4) :REM FARBEN 370 DIM M$(24) 380 REM -------------------- 390 REM MENUE-ZEILEN 400 M$(1) = "ERFASSEN " 410 M$(2) = "DRUCK " 420 M$(3) = "ETIKETTEN" 430 M$(4) = "KORREKTUR" 440 REM -------------------- 450 M$(5) = "SEITE A " 460 M$(6) = "SEITE B " 470 M$(7) = "DRUCK " 480 M$(8) = "FERTIG " 490 REM -------------------- 500 M$(9) = "TASCHE " 510 M$(10) = "ETIKETTEN" 520 M$(11) = "FERTIG " 530 M$(12) = " " 540 REM -------------------- 550 M$(13) = "SICHERN " 560 M$(14) = "LADEN " 570 M$(15) = "FERTIG " 580 M$(16) = " " 590 REM -------------------- 600 M$(17) = "KENNUNG " 610 M$(18) = "FERTIG " 620 M$(19) = " " 630 M$(20) = " " 640 REM -------------------- 650 M$(21) = "VORLEGEN " 660 M$(22) = "DRUCK " 670 M$(23) = "FERTIG " 680 M$(24) = " " 690 REM -------------------- 700 REM DIVERSE STRINGS FUER DRUCK 710 HD$ = "" 720 RI$ = "" 730 KE$ = " KENNUNG (MAXIMAL 30 ZEICHEN) " 740 Z1$ = KE$ 750 T1$ = " " 760 T2$ = " " 770 D1$ = "* " 780 D2$ = " *" 790 D3$ = "************************************" 800 D4$ = "+......+" 810 D6$ = "........................................................" 820 DM$ = " " 830 DX$ = "--------------------------------------------------------" 840 D7$ = " " 850 D8$ = " " 860 DIM PE(10) 870 PE$(0) = " " 880 PE$(1) = ". . " 890 PE$(2) = " . ." 900 PE$(3) = ". ." 910 PE$(4) = " ." 920 PE$(5) = ". " 930 DL$ = " " 940 GOTO 1580 :REM INS HAUPTPROGRAMM 950 REM ------------------------------ 960 REM DRUCKER ANMELDEN 970 OPEN 3,4 980 RETURN 990 REM ------------------------------ 1000 REM ZEICHEN Z DER LAENGE LG AUSGEBEN 1010 FORI=1TOLG:PRINTCHR$(Z);:NEXT 1020 RETURN 1030 REM ------------------------------ 1040 REM RAHMEN AUSGEBEN 1050 PRINTCHR$(147); :REM CLR/HOME 1060 PRINT""; 1070 Z=OB:PRINTLE$;CHR$(LO);:GOSUB 1010:PRINTCHR$(RO) 1080 Z=32:PRINTLE$;CHR$(LB);:GOSUB 1010:PRINTCHR$(RB) 1090 Z=UB:PRINTLE$;CHR$(LU);:GOSUB 1010:PRINTCHR$(RU) 1100 Z=32 1110 FOR J=1TO4 1120 PRINTLE$;CHR$(LB);:GOSUB 1010:PRINTCHR$(RB) 1130 NEXT 1140 Z=UB:PRINTLE$;CHR$(LU);:GOSUB 1010:PRINTCHR$(RU) 1150 RETURN 1160 REM ------------------------------ 1170 REM MENUEZEILEN AUSGEBEN 1180 PRINTCHR$(19); 1190 PRINTCHR$(SI);CHR$(C1(1));M$(1);CHR$(SO);CHR$(32); 1200 PRINTCHR$(SI);CHR$(C1(2));M$(2);CHR$(SO);CHR$(32); 1210 PRINTCHR$(SI);CHR$(C1(3));M$(3);CHR$(SO);CHR$(32); 1220 PRINTCHR$(SI);CHR$(C1(4));M$(4);CHR$(SO);CHR$(32) 1230 P = M0*4 1240 REM ------------------------------ 1250 PRINT HD$; 1260 PRINTCHR$(SI);CHR$(C2(1));M$(P+1);CHR$(SO);CHR$(32); 1270 PRINTCHR$(SI);CHR$(C2(2));M$(P+2);CHR$(SO);CHR$(32); 1280 PRINTCHR$(SI);CHR$(C2(3));M$(P+3);CHR$(SO);CHR$(32); 1290 PRINTCHR$(SI);CHR$(C2(4));M$(P+4);CHR$(SO);CHR$(32); 1300 IF Z1$ = "*"THENZ1$= DL$ 1310 PRINT LEFT$(HD$,6);RI$;CHR$(F3);CHR$(SI);Z1$;CHR$(SO); 1320 PRINT LEFT$(HD$,9);RI$; 1330 IF Z2$ = "*"THENZ2$=LEFT$(DL$,23) 1340 IF Z3$ = "*"THENZ3$=LEFT$(DL$,23) 1350 PRINTCHR$(SI);CHR$(F3);"A:";CHR$(SO);CHR$(F1);" ";Z2$ 1360 PRINT"";RI$; 1370 PRINTCHR$(SI);CHR$(F3);"B:";CHR$(SO);CHR$(F1);" ";Z3$ 1380 RETURN 1390 REM ------------------------------ 1400 REM HIGHLIGHT LOESCHEN 1410 FOR I=1TO4:C1(I)=F2:C2(I)=F2:NEXT 1420 GOSUB1180 1430 RETURN 1440 REM ------------------------------ 1450 REM AUF ZEICHEN VON TASTATUR WARTEN 1460 POKE 198,0 1470 GETX$:IFX$="" THEN 1470 1480 Z=ASC(X$) 1490 RETURN 1500 REM ------------------------------ 1510 REM ABBRUCH NACH DISKERROR 1520 CLOSE2:CLOSE15 1530 FOR I=1TO5000:NEXT 1540 PRINT LEFT$(HD$,3);T2$; 1550 GOTO1610 1560 REM ------------------------------ 1570 REM MENUESTEUERUNG 1580 FA=664:FB=664 1590 Z2$="*":Z3$="*" 1600 PRINTCHR$(F1);:GOSUB 1050 1610 M = 1:MM=1:M0=1:M1 = 0 :REM NORM MENUESTEUERUNG 1620 FOR I=1TO4:C1(I)=F2:C2(I)=F2:NEXT 1630 C1(M0) = F3 1640 C2(M1) = F3 1650 GOSUB 1180 :REM MENUEZEILEN AUSGEBEN 1660 GOSUB 1460 :REM ZEICHEN VON TASTATUR 1670 REM WENN F8 DANN STOP UND SHIFT/COMMODORE ZULASSEN UND SCHLUSS 1680 IF Z=140 THEN POKE788,49:PRINTCHR$(9):END 1690 IF Z=13 THEN 1800 1700 IF Z=19 THEN 1610 1710 IF Z<>32 THEN 1660 1720 MM=MM+1 1730 IF M > 2 THEN M = 1 1740 IF MM > 4 THEN MM = 1 1750 IF M=1 THEN M0=MM:GOTO1620 1760 M1=MM 1770 IF M$((M0*4)+M1) = " " THEN M1=1:MM=1 1780 GOTO 1620 1790 REM ------------------------------ 1800 GOSUB 1410 :REM HIGHLIGHT LOESCHEN 1810 IF M = 1 THEN M=2:M1=1:MM=1:GOTO1750 1820 IF (M0=1) THEN 2400 :REM ERFASSEN 1830 IF (M0=2) THEN 3760 :REM DRUCK 1840 IF (M0=3) THEN 4580 :REM ETIKETTEN 1850 IF (M0=4) THEN 1880 :REM KORREKTUR 1860 REM ------------------------------ 1870 REM **** KORREKTUR ***** 1880 IF M1=2THEN 1610 :REM FERTIG 1890 K$ = "":ZZ=0 1900 PRINT LEFT$(HD$,6);">"; 1910 GOSUB 1460 :REM ZEICHEN VON TASTATUR 1920 IF Z=13 THEN PRINT LEFT$(HD$,6);" ";:MM=MM+1:GOTO1730 1930 IF Z=19 THEN ZZ=0:K$="":GOTO 1990 :REM CLR 1940 IF Z<>20 THEN GOSUB 2190:GOTO 1980 1950 IF ZZ<=1 THEN ZZ=0:K$="":GOTO 1990 1960 ZZ=ZZ-1:K$=LEFT$(K$,ZZ) :GOTO 1990 1970 IF ZZ=30 THEN 2010 1980 K$ = K$+X$:ZZ=ZZ+1 1990 KE$=LEFT$(K$+T2$,30) 2000 ET$((AE*3) ) = KE$ 2010 Z1$ = KE$ 2020 GOSUB 1310 2030 GOTO 1910 2040 REM ------------------------------ 2050 REM INITIALISIERUNG DISK 2060 OPEN15,8,15,"I0" 2070 REM FEHLERABFRAGE DISK 2080 INPUT#15,A$,B$,C$,D$ 2090 IF A$="00" THEN RETURN 2100 PRINTLEFT$(HD$,3);T2$; 2110 PRINT LEFT$(HD$,3);A$;",";B$;",";C$;",";D$ 2120 RETURN 2130 REM ------------------------------ 2140 REM ZEICHEN VON DISK KOLEN 2150 REM AUF DRUCKBARKEIT PRUEFEN 2160 REM ***************************** 2170 GET#2,X$:IF X$="" THEN X$=CHR$(0) 2180 Z=ASC(X$) 2190 IF Z =160 THEN X$=".":RETURN 2200 IF Z < 32 OR Z > 127 THEN X$="?" :REM UNZUL.ZEICHEN 2210 RETURN 2220 REM ------------------------------ 2230 REM STARTADRESSE ERMITTELN 2240 AA$ = " " 2250 IF FT <> 2 THEN RETURN :REM NICHT PRG-FILE 2260 IF SP=0 AND SE=0 THEN RETURN 2270 OPEN 3,8,3,"#" 2280 PRINT#15,"B-R";3;0;SP;SE 2290 GOSUB 2080 :REM DISKERROR ABFRAGEN 2300 IF A$<>"00" THEN 2370 2310 PRINT#15,"B-P";3;2 2320 GET#3,X$:IFX$=""THENX$=CHR$(0) 2330 AL=ASC(X$) 2340 GET#3,X$:IFX$=""THENX$=CHR$(0) 2350 AH=ASC(X$)*256 2360 AA=AL+AH:AA$=RIGHT$(" "+STR$(AA),6) 2370 CLOSE3:RETURN 2380 REM ------------------------------ 2390 REM ERFASSEN 2400 IF M1=4 THEN AE=AE+1:SA=0:SB=0:GOTO1580 :REM FERTIG 2410 IF M1=3 THEN M=2:M0=2:M1=1:MM=1:GOTO 1620 2420 GOSUB2060 2430 IF A$ <> "00" THEN 1520 2440 OPEN2,8,2,"#" :REM DATENKANAL 2450 PRINT#15,"B-R";2;0;18;0 2460 PRINT#15,"B-P";2;144 2470 DN$="" 2480 FORI=1TO16:GOSUB 2170:DN$=DN$+X$:NEXT 2490 GET#2,X$:GET#2,X$ 2500 ID$ ="" 2510 GOSUB 2170:ID$=ID$+X$ 2520 GOSUB 2170:ID$=ID$+X$ 2530 XX$=DN$+" ID= "+ID$ 2540 ET$((AE*3)+M1) = XX$ 2550 ET$(AE*3) = Z1$ 2560 Z2$=ET$((AE*3)+1):Z3$=ET$((AE*3)+2):GOSUB 1310 2570 PRINT LEFT$(HD$,14); 2580 FORI=1TO8 2590 PRINTT2$; 2600 PRINTLEFT$(T2$,6) 2610 NEXT 2620 PRINT LEFT$(HD$,13) 2630 PRINTCHR$(SI); 2640 IF M1=1THEN PRINT "A:"; 2650 IF M1=2THEN PRINT "B:"; 2660 PRINTCHR$(SO);" "; 2670 T=18:S=1 2680 Y2=0 :REM ZAEHLER DER FILES 2690 Y3=14:REM FUER FILEUEBERNAHME 2700 Y4=0 :REM FUER ANFRAGE 2710 IF M1=1 THEN SA=0:FORI=0TOAF:SA$(I)= "*":NEXT 2720 IF M1=2 THEN SB=0:FORI=0TOAF:SB$(I)= "*":NEXT 2730 PRINTLEFT$(HD$,22);CHR$(SI);"RETURN";CHR$(SO);" = UEBERNEHMEN "; 2740 PRINT CHR$(SI);"SPACE";CHR$(SO);" = IGNORIEREN" 2750 REM ------------------------------ 2760 REM FREIE BLOECKE ERMITTELN 2770 BF = 0 2780 FOR I=4TO140STEP4 2790 IF I=72 THEN 2830 :REM SPUR 18 2800 PRINT#15,"B-P";2;I 2810 GET#2,X$:IFX$=""THEN X$=CHR$(0) 2820 BF = ASC(X$)+BF 2830 NEXT 2840 IF M1=1 THEN FA=BF 2850 IF M1=2 THEN FB=BF 2860 REM ------------------------------ 2870 PRINT#15,"U1";2;0;T;S 2880 GOSUB2080:REM DISKFEHLER ABFRAGEN 2890 IF A$ <> "00" THEN 1520 2900 PRINT#15,"B-P";2;0 2910 GET#2,X$:IFX$=""THENX$=CHR$(0) 2920 T=ASC(X$) 2930 GET#2,X$:IFX$=""THENX$=CHR$(0) 2940 S=ASC(X$) 2950 REM SCHLEIFE FUER 8 FILES ANFANG 2960 FOR X=0TO7 2970 IF Y2>AF-1 THEN 3500 :REM ZUVIELE FILES 2980 PRINT#15,"B-P";2;X*32+2 2990 GET#2,X$:IFX$=""THENX$=CHR$(0):REM FILETYP 3000 TY = ASC(X$) 3010 GET#2,X$:IFX$=""THENX$=CHR$(0):REM SPUR 3020 SP = ASC(X$) 3030 GET#2,X$:IFX$=""THENX$=CHR$(0):REM SEKTOR 3040 SE = ASC(X$) 3050 PRINT#15,"B-P";2;X*32+30 3060 GET#2,X$:IFX$=""THENX$=CHR$(0):REM FILETYP 3070 NB = ASC(X$) 3080 GET#2,X$:IFX$=""THENX$=CHR$(0):REM FILETYP 3090 HB = ASC(X$)*256 3100 BL=HB+NB 3110 FT = TY AND 15 :REM FILETYP 3120 IF FT = 0 THEN 3500 :REM DEL-FILE NICHT AUSGEBEN 3130 PRINT#15,"B-P";2;X*32+5 3140 FF$="" 3150 FOR II=1TO16 3160 GOSUB 2170 :REM FILENAME HOLEN 3170 FF$=FF$+X$ 3180 NEXT II 3190 FF$=FF$+" " 3200 IF FT=1 THEN FT$="SEQ" 3210 IF FT=2 THEN FT$="PRG" 3220 IF FT=3 THEN FT$="USR" 3230 IF FT=4 THEN FT$="REL" 3240 IF FT>4 THEN FT$="???" 3250 K$ = ">" 3260 IF TY AND 64 THEN 3300 3270 K$ = " " 3280 IF TY AND 128 THEN 3300 3290 K$ = "*" 3300 FT$= K$+FT$ 3310 BL$=RIGHT$(" "+STR$(BL),3) 3320 BL$=BL$+" " 3330 GOSUB 2240 :REM STARTADRESSE ERMITTELN 3340 XX$=BL$+FF$+FT$+AA$ 3350 IF Y4 THEN 3440 3360 PRINTLEFT$(HD$,Y3);LEFT$(RI$,4); 3370 PRINTCHR$(SI);XX$;CHR$(SO); 3380 GOSUB 1460 :REM ZEICHEN VON TASTATUR 3390 IF Z=136 THEN Y4=1:GOTO 3410 3400 IF Z<>32 AND Z<>13 THEN 3380 3410 PRINTLEFT$(HD$,Y3);LEFT$(RI$,4); 3420 PRINT T2$;" " 3430 IF Z=32 THEN 3500 :REM IGNORIEREN 3440 PRINTLEFT$(HD$,Y3);LEFT$(RI$,4); 3450 PRINT XX$ 3460 IF M1=1 THEN SA$(SA)=XX$:SA=SA+1 3470 IF M1=2 THEN SB$(SB)=XX$:SB=SB+1 3480 Y2=Y2+1:Y3=Y3+1 3490 IF Y3 >= 22THEN Y3=14 3500 NEXTX 3510 REM SCHLEIFE FUER 8 FILES (ENDE) 3520 IF Y2>AF-1 THEN T=0:REM DAS SIND GENUG 3530 IF T<>0 THEN GOTO 2870 3540 CLOSE2 3550 CLOSE15 3560 MM=MM+1:GOTO1740 3570 REM ------------------------------ 3580 REM LEERZEILE AUSGEBEN 3590 PRINT#3,PE$(PA);D1$;DL$;D2$;PE$(PE) 3600 RETURN 3610 REM ------------------------------ 3620 REM ETIKETT AUSGEBEN 3630 PRINT#3,PE$(PA);D3$;PE$(PE) 3640 IF Z1$ = "*" THEN GOSUB 3590:GOTO 3660 3650 PRINT#3,PE$(PA);D1$;Z1$;D2$;PE$(PE) 3660 PRINT#3,PE$(PA);D3$;PE$(PE) 3670 PRINT#3,PE$(PA);D1$;DL$;D2$;PE$(PE) 3680 IF Z2$ = "*" THEN GOSUB 3590:GOTO 3700 3690 PRINT#3,PE$(PA);D1$;" A: ";Z2$;" ";D2$;PE$(PE) 3700 IF Z3$ = "*" THEN GOSUB 3590:GOTO 3720 3710 PRINT#3,PE$(PA);D1$;" B: ";Z3$;" ";D2$;PE$(PE) 3720 PRINT#3,PE$(PA);D1$;DL$;D2$;PE$(PE) 3730 PRINT#3,PE$(PA);D3$;PE$(PE) 3740 RETURN 3750 REM ------------------------------ 3760 IF M1 = 3 THEN SA=0:SB=0:AE=AE+1:GOTO 1580 :REM FERTIG 3770 REM DRUCK 3780 IF M1 = 1 THEN 4320 :REM TASCHEN 3790 REM ETIKETTEN VORLEGEN/DRUCKEN 3800 PP = 0:REM ANFANG ETIKETTEN 3810 GOSUB 970 :REM DRUCKER ANMELDEN 3820 P=20 :REM STEUERUNG MENUE 3830 M1=1 3840 FOR I=1TO4:C2(I)=F2:NEXT 3850 C2(M1) = F3 3860 GOSUB 1250 :REM MENUEZEILE AUSGEBEN 3870 GOSUB 1460 :REM ZEICHEN VON TASTATUR 3880 IF Z=13 THEN 3930 3890 IF Z<>32 THEN 3870 3900 M1=M1+1 3910 IF M1>3 THEN M1=1 3920 GOTO 3840 3930 IF M1=3 THEN CLOSE3:GOTO1580 3940 IF M1=2 THEN PA=0:PE=0:GOSUB3630:PRINT#3:M1=1:GOTO 3840 3950 PP = PP+1 3960 Z1$ = ET$((PP*3)-3) 3970 Z2$ = ET$((PP*3)-2) 3980 Z3$ = ET$((PP*3)-1) 3990 GOSUB 1310 4000 M1=M1+1 4010 GOTO 3840 4020 REM ------------------------------ 4030 REM LEERZEILE TASCHE 4040 PRINT#3,PE$(PA);DM$;PE$(PE) 4050 ZZ=ZZ+1 4060 RETURN 4070 REM ------------------------------ 4080 REM TRENNER TASCHE VORN/HINTEN 4090 GOSUB 4040:GOSUB 4040 4100 PRINT#3,D4$;DX$;D4$ 4110 PA=4:PE=5 4120 GOSUB 4040:GOSUB 4040 4130 RETURN 4140 REM ------------------------------ 4150 REM ZEILE FUER TASCHE SEITE A 4160 IF ZZ = 10 THEN GOSUB 4090 4170 IF SA$(I) = "*" THEN SA$(I) = D8$ 4180 IF WW=0 THEN WW=1:XX$=MID$(SA$(I),6,19)+RIGHT$(SA$(I),6):RETURN 4190 XX$=XX$+" "+MID$(SA$(I),6,19)+RIGHT$(SA$(I),6) 4200 PRINT#3,PE$(PA);" ";XX$;" ";PE$(PE) 4210 ZZ=ZZ+1:WW=0 4220 RETURN 4230 REM ------------------------------ 4240 REM ZEILE FUER TASCHE SEITE B 4250 IF ZZ = 10 THEN GOSUB 4090 4260 IF SB$(I) = "*" THEN SB$(I) = D8$ 4270 IF WW=0 THEN WW=1:XX$=MID$(SB$(I),6,19)+RIGHT$(SB$(I),6):RETURN 4280 XX$=XX$+" "+MID$(SB$(I),6,19)+RIGHT$(SB$(I),6) 4290 GOTO4200 4300 REM ------------------------------ 4310 REM TASCHE DRUCKEN 4320 GOSUB 970 :REM DRUCKER ANMELDEN 4330 PA=3:PE=3 4340 PRINT#3,D4$;D6$;D4$ 4350 GOSUB 4040 4360 PA=1:PE=2 :REM FUER ETIKETT 4370 GOSUB 3630 4380 PA=3:PE=3 4390 GOSUB 4040 4400 ZZ = 0 4410 IFSA=0 THEN FORI=0TOAF:SA$(I)="*":NEXT 4420 IFSB=0 THEN FORI=0TOAF:SB$(I)="*":NEXT 4430 XX$=RIGHT$(" "+STR$(FA),3) 4440 PRINT#3,PE$(PA);" A= ";XX$;" BLOECKE FREI ";D8$;D7$;PE$(PE) 4450 WW=0 4460 FOR I=0TOAF-1:GOSUB4160:NEXT 4470 XX$=RIGHT$(" "+STR$(FB),3) 4480 GOSUB 4040 4490 PRINT#3,PE$(PA);" B= ";XX$;" BLOECKE FREI ";D8$;D7$;PE$(PE) 4500 WW=0 4510 FOR I=0TOAF-1:GOSUB4250:NEXT 4520 GOSUB 4040:GOSUB 4040 4530 PRINT#3,PE$(PA);D6$;PE$(PE) 4540 FORI=1TO18:PRINT#3:NEXT :REM NEUE SEITE 4550 CLOSE3:MM=MM+2:GOTO1730 4560 REM ------------------------------ 4570 REM ETIKETTEN LADEN 4580 IF M1=3 THEN 1610 :REM FERTIG 4590 GOSUB 2060 :REM DISK INITIALISIEREN 4600 IF A$ <> "00" THEN 1520 :REM DISK-ERROR 4610 IF M1=1 THEN 4840 :REM SICHERN 4620 OPEN2,8,2,NA$+",S,R" 4630 GOSUB 2080 4640 IF A$ <> "00" THEN 1520 :REM FILE NICHT DA 4650 AE=0 4660 GOSUB 4780 4670 ET$(AE*3) = XX$ 4680 GOSUB 4780 4690 ET$((AE*3)+1) = XX$ 4700 GOSUB 4780 4710 ET$((AE*3)+2) = XX$ 4720 IF ST = 64 THEN 4750 4730 IF ET$(AE*3) = "*" THEN 4750 4740 AE=AE+1:GOTO 4660 4750 CLOSE2:CLOSE15 4760 MM=3:GOTO 1740 4770 REM ------------------------------ 4780 XX$="" 4790 GET#2,X$ 4800 IF ASC(X$) = 13 THEN RETURN 4810 XX$=XX$+X$:GOTO 4790 4820 REM ------------------------------ 4830 REM ETIKETTEN SICHERN 4840 OPEN2,8,2,NA$+",S,W" 4850 GOSUB 2080 4860 IF A$ = "00" THEN 4900 :REM OK 4870 CLOSE2 4880 PRINT#15,"S:"+NA$ :REM FILE-LOESCHEN 4890 GOTO 4840 4900 FOR I=0TOAE+1 4910 XX$=ET$(3*I) 4920 GOSUB 5020 4930 XX$=ET$((3*I)+1) 4940 GOSUB 5020 4950 XX$=ET$((3*I)+2) 4960 GOSUB 5020 4970 NEXT 4980 CLOSE2:CLOSE15 4990 PRINT"";T2$; 5000 MM=3:GOTO 1740 5010 REM ------------------------------ 5020 FOR J=1TOLEN(XX$):X$=MID$(XX$,J,1):PRINT#2,X$;:NEXT 5030 PRINT#2,CHR$(13); 5040 RETURN 5050 REM ------------------------------