home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504a.d64
/
etiketten
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
11KB
|
625 lines
1000 GOTO 2050
1010 REM
1020 REM
1030 REM ETIKETTEN 64
1040 REM ------------
1050 REM
1060 REM PROGRAMM ZUM BESCHRIFTEN VON
1070 REM ENDLOS - ETIKETTEN DER GROESSE
1080 REM 88.5 * 35.7 MM
1090 REM
1100 REM
1110 REM
1120 REM 1985 BY G. ZINNER
1130 REM SCHMALE STR.3
1140 REM 4300 ESSEN 11
1150 REM
1160 REM
1170 REM ---------------------
1180 REM --- ALLG. U'PROGS ---
1190 REM ---------------------
1200 REM
1210 REM
1220 REM MENUEFELD LOESCHEN
1230 REM
1240 PRINT LEFT$(CD$,17)
1250 FOR I=0 TO 6
1260 PRINT LE$
1270 NEXT
1280 RETURN
1290 :
1300 REM CURSOR SETZEN
1310 :
1320 IF S=29 THEN S=28
1330 A=1024+((R+3)*40)+S+5
1340 IF PEEK(A)>127 THEN POKE A,PEEK(A)-128:RETURN
1350 POKE A,PEEK(A)+128:RETURN
1360 :
1370 REM SCHREIBFELD LOESCHEN
1380 :
1390 PRINT LEFT$(CD$,4)
1400 FORI=1 TO 11
1410 PRINT LEFT$(CR$,6)LEFT$(LE$,28)
1420 NEXT
1430 RETURN
1440 :
1450 REM STRING T$ ZUSAMMENBAUEN
1460 :
1470 RV=0:T$=""
1480 FOR I=L TO L+27
1490 A=PEEK(I)
1500 IF RV=0 AND A>128 THEN T$=T$+"":RV=1
1510 IF RV=1 AND A<128 THEN T$=T$+"[146]":RV=0
1520 IF A>128 THEN A=A-128
1530 IF A<32 THEN A=A+64:GOTO 1560
1540 IF A>63 AND A<96 THEN A=A+32:GOTO 1560
1550 IF A>96 THEN A=A+64
1560 T$=T$+CHR$(A)
1570 NEXT
1580 RETURN
1590 :
1600 REM DISKETTEN FEHLER
1610 :
1620 UE=0
1630 INPUT#15,E,E$,T,T
1640 IF E=0 THEN RETURN
1650 PRINT LEFT$(CD$,25)LEFT$(CR$,2);
1660 :
1670 IF E<>63 THEN 1730
1680 PRINT E;E$;" - AENDERN (J/N)";
1690 GET A$:IF A$="" THEN 1690
1700 IF A$<>"J" THEN 1770
1710 UE=1:GOTO 1770
1720 :
1730 PRINT E;E$;" - <RETURN>";
1740 GET A$
1750 IF A$<>CHR$(13) THEN 1740
1760 :
1770 PRINT LEFT$(CD$,25)LEFT$(CR$,2)LEFT$(LE$,37);
1780 RETURN
1790 :
1800 REM DATEINAMEN EINGEBEN
1810 :
1820 R=19:S=-1:EN=0:DE=0
1830 GOSUB 1320
1840 GET A$:IF A$="" THEN 1840
1850 GOSUB 1320
1860 IF A$=CHR$(13) THEN 1940
1870 IF A$=CHR$(20) THEN DE=1:GOTO 1940
1880 IF A$=CHR$(140)THEN EN=1:GOTO 1940
1890 IF A$<CHR$(32) THEN 1830
1900 IF A$>CHR$(94) THEN 1830
1910 S=S+1:IF S>M THEN S=M
1920 PRINT LEFT$(CD$,R+4)LEFT$(CR$,S+4);
1930 PRINT A$;:GOTO 1830
1940 RETURN
1950 :
1960 :
1970 REM -------------------
1980 REM --- ARBEITSFELD ---
1990 REM -------------------
2000 :
2010 :
2020 :
2030 REM BILDSCHIRMFARBEN
2040 :
2050 POKE 53280,0:POKE 53281,0:PRINT""
2060 :
2070 REM ALLE TASTEN REPEAT
2080 :
2090 POKE 650,128
2100 :
2110 REM SHIFT+COMMODORE AUS
2120 :
2130 PRINT CHR$(8)
2140 :
2150 REM FESTE VARIABLEN
2160 :
2170 CR$=""
2180 CD$=""
2190 LE$=" "
2200 T$="":N=0
2210 :
2220 REM BILDSCHIRM AUFBAUEN
2230 :
2240 PRINT "[147] ETIKETTEN 64"SPC(9)"(W)1985 BY GZ":PRINT
2250 PRINT " [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
2260 PRINT " [221] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [221]"
2270 FOR I=1 TO 11
2280 PRINT " [221] -[221]"SPC(28)"[221]- [221]"
2290 NEXT I
2300 PRINT " [221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [221]"
2310 PRINT " [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
2320 :
2330 GOSUB 1390
2340 :
2350 REM MENUE ANZEIGEN
2360 :
2370 GOSUB 1240
2380 PRINT LEFT$(CD$,17)
2390 PRINT " [164][164][164][164][164][164][164]"
2400 PRINT " MENUE [146]"
2410 PRINT " [164][164][164][164] [164][164][164][164]"
2420 PRINT " F1 [146] EDITIEREN F2 [146] DIRECTORY"
2430 PRINT " F3 [146] DRUCKEN F4 [146] DISK COM."
2440 PRINT " F5 [146] SPEICHERN [164][164][164][164]"
2450 PRINT " F7 [146] LADEN F8 [146] ENDE"
2460 :
2470 GET A$:IF A$="" THEN 2470
2480 IF A$<"[133]" OR A$>"[140]" THEN 2470
2490 :
2500 ON ASC(A$)-132 GOTO 2590,6790,3990,4410,4820,5250,2370,6580
2510 GOTO 2370
2520 :
2530 :
2540 REM -----------------
2550 REM --- EDITIEREN ---
2560 REM -----------------
2570 :
2580 :
2590 GOSUB 1240
2600 PRINT LEFT$(CD$,17)
2610 PRINT " [164][164][164][164][164][164][164][164][164][164][164]"
2620 PRINT " EDITIEREN [146]"
2630 PRINT " [164][164][164][164]"SPC(9)"[164][164][164]"
2640 PRINT " F1 [146] REVERS >AUS[146]<"
2650 PRINT " F3 [146] BREITE >NRM[146]< [164][164][164][164]"
2660 PRINT " F5 [146] ZEILE LOESCH F6 [146] ZEILE EINF"
2670 PRINT " F8 [146] ENDE"
2680 BR=0:RV=0
2690 :
2700 REM CURSOR POSITIONIEREN
2710 :
2720 R=1:S=1
2730 PRINT LEFT$(CD$,5)LEFT$(CR$,6);
2740 :
2750 GOSUB 1320
2760 GETA$:IFA$="" OR A$=CHR$(34)THEN2760
2770 GOSUB 1320
2780 :
2790 IF A$>CHR$(31) AND A$<CHR$(128) THEN GOSUB 3840:GOTO 2750
2800 IF A$>CHR$(160)THEN GOSUB 3840:GOTO 2750
2810 IF A$=CHR$(140)THEN 2370
2820 IF A$=CHR$(133)THEN GOSUB 3460:GOTO 2750
2830 IF A$=CHR$(134)THEN GOSUB 3520:GOTO 2750
2840 IF A$=CHR$(135)THEN GOSUB 3580:GOTO 2750
2850 IF A$=CHR$(139)THEN GOSUB 3710:GOTO 2750
2860 IF A$=CHR$(19) THEN 2720
2870 IF A$=CHR$(147)THEN GOSUB 1390:GOTO 2720
2880 IF A$=CHR$(17) THEN GOSUB 3000:GOTO 2750
2890 IF A$=CHR$(145)THEN GOSUB 3050:GOTO 2750
2900 IF A$=CHR$(29) THEN GOSUB 3100:GOTO 2750
2910 IF A$=CHR$(157)THEN GOSUB 3150:GOTO 2750
2920 IF A$=CHR$(148)THEN GOSUB 3260:GOTO 2750
2930 IF A$=CHR$(20) THEN GOSUB 3360:GOTO 2750
2940 IF A$=CHR$(13) THEN GOSUB 3200:GOTO 2750
2950 :
2960 GOTO 2750
2970 :
2980 REM CURSOR DOWN
2990 :
3000 R=R+1:IF R>11 THEN R=1
3010 RETURN
3020 :
3030 REM CURSOR UP
3040 :
3050 R=R-1:IF R<1 THEN R=11
3060 RETURN
3070 :
3080 REM CURSOR RIGHT
3090 :
3100 S=S+1:IF S>28 THEN S=1
3110 RETURN
3120 :
3130 REM CURSOR LEFT
3140 :
3150 S=S-1:IF S<1 THEN S=28
3160 RETURN
3170 :
3180 REM RETURN
3190 :
3200 R=R+1:IF R>11 THEN R=1
3210 S=1
3220 RETURN
3230 :
3240 REM INSERT
3250 :
3260 IF S=28 THEN RETURN
3270 A=1024+((R+3)*40)+S+6:E=A+27-S
3280 FOR I=E TO A STEP-1
3290 POKE I,PEEK(I-1)
3300 NEXT
3310 POKE I,32
3320 RETURN
3330 :
3340 REM DELETE
3350 :
3360 IF S=28 THEN RETURN
3370 A=1024+((R+3)*40)+S+5:E=A+27-S
3380 FOR I=A TO E
3390 POKE I,PEEK(I+1)
3400 NEXT
3410 POKE I,32
3420 RETURN
3430 :
3440 REM REVERS AN / AUS
3450 :
3460 PRINT LEFT$(CD$,21)SPC(16)"";
3470 IF RV=0 THEN PRINT"AN [146]":RV=1:RETURN
3480 IF RV=1 THEN PRINT"AUS[146]":RV=0:RETURN
3490 :
3500 REM BREITSCHRIFT NRM/DOP
3510 :
3520 PRINT LEFT$(CD$,22)SPC(16)"";
3530 IF BR=0 THEN PRINT"DOP[146]":BR=1:RETURN
3540 IF BR=1 THEN PRINT"NRM[146]":BR=0:RETURN
3550 :
3560 REM ZEILE LOESCHEN
3570 :
3580 A=1024+((R+3)*40)+S+5:E=A+28-S
3590 IF R=11 THEN J=A:GOTO 3660
3600 A1=(10-R)*40+A
3610 FOR J=A TO A1 STEP 40
3620 FOR I=J TO E
3630 POKE I,PEEK(I+40)
3640 NEXT:E=E+40
3650 NEXT
3660 FOR I=J TO E:POKE I,32:NEXT
3670 RETURN
3680 :
3690 REM ZEILE EINFUEGEN
3700 :
3710 A=1024+((R+3)*40)+S+5+40
3720 IF R=11 THEN RETURN
3730 A1=(10-R)*40+A:E=A1+28-S
3740 FOR J=A1 TO A STEP -40
3750 FOR I=J TO E
3760 POKE I,PEEK(I-40)
3770 NEXT:E=E-40
3780 NEXT
3790 FOR I=J TO E:POKE I,32:NEXT
3800 RETURN
3810 :
3820 REM ZEICHEN SETZEN
3830 :
3840 IF BR=1 THEN S=S+1
3850 S=S+1:IF S>29 THEN S=29
3860 PRINT LEFT$(CD$,R+4)LEFT$(CR$,S+4);
3870 IF RV=1 THEN PRINT"";
3880 IF RV=0 THEN PRINT"[146]";
3890 IF BR=1 THEN PRINT"[157]_";
3900 PRINT A$;
3910 RETURN
3920 :
3930 :
3940 REM -----------------
3950 REM --- SPEICHERN ---
3960 REM -----------------
3970 :
3980 :
3990 GOSUB 1240
4000 PRINT LEFT$(CD$,17)
4010 PRINT " [164][164][164][164][164][164][164][164][164][164][164]"SPC(9)"[164][164][164][164]"
4020 PRINT " SPEICHERN [146]"SPC(9)" F8 [146] ENDE":PRINT
4030 PRINT " >DATEINAME EINGEBEN"
4040 PRINT:PRINT " > <";
4050 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
4060 :
4070 REM DATEINAMEN EINGEBEN
4080 :
4090 IF UE=1 THEN D$="@:"+D$:GOTO4220
4100 :
4110 M=14:GOSUB 1820
4120 IF EN=1 THEN 2370
4130 IF DE=1 THEN 4000
4140 :
4150 L=1908:GOSUB 1470
4160 D$=LEFT$(T$,15)+"[166]"
4170 :
4180 REM BILD ABSPEICHERN
4190 :
4200 CLOSE 15
4210 :
4220 OPEN 15,8,15:OPEN 8,8,8,D$+",S,W"
4230 GOSUB 1620:IF E<>0 THEN CLOSE8:CLOSE15:GOTO 4090
4240 FOR L=1190 TO 1590 STEP 40
4250 GOSUB 1470
4260 :
4270 T$="[168]"+T$
4280 :
4290 PRINT#8,T$
4300 NEXT L
4310 CLOSE 8:CLOSE 15
4320 :
4330 T$="":GOTO 2370
4340 :
4350 :
4360 REM -------------
4370 REM --- LADEN ---
4380 REM -------------
4390 :
4400 :
4410 GOSUB 1240
4420 PRINT LEFT$(CD$,17)
4430 PRINT " [164][164][164][164][164][164][164]"SPC(13)"[164][164][164][164]"
4440 PRINT " LADEN [146]"SPC(13)" F8 [146] ENDE":PRINT
4450 PRINT " >DATEINAME EINGEBEN"
4460 PRINT:PRINT " > <";
4470 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";LEFT$(T$,15)
4480 :
4490 REM DATEINAMEN EINGEBEN
4500 :
4510 M=14:GOSUB 1820
4520 IF EN=1 THEN 2370
4530 IF DE=1 THEN 4420
4540 :
4550 L=1908:GOSUB 1470
4560 D$=LEFT$(T$,15)+"[166]"
4570 :
4580 REM BILD HOLEN
4590 :
4600 CLOSE 15
4610 :
4620 GOSUB 1390:R=1
4630 OPEN 15,8,15:OPEN 8,8,8,D$+",S,R"
4640 GOSUB 1620:IF E<>0 THEN CLOSE8:CLOSE15:GOTO 4510
4650 INPUT#8,T$
4660 :
4670 T$=RIGHT$(T$,LEN(T$)-1)
4680 :
4690 PRINT LEFT$(CD$,4+R)LEFT$(CR$,6)T$
4700 R=R+1
4710 IF R<12 THEN 4650
4720 CLOSE8:CLOSE15
4730 :
4740 T$="":GOTO 2370
4750 :
4760 :
4770 REM -----------------
4780 REM --- DIRECTORY ---
4790 REM -----------------
4800 :
4810 :
4820 GOSUB 1240
4830 PRINT LEFT$(CD$,17)
4840 PRINT " [164][164][164][164][164][164][164][164][164][164][164]"
4850 PRINT " DIRECTORY [146]"
4860 PRINT " [164][164][164][164]"SPC(15)"[164][164][164][164]"
4870 PRINT " F1 [146] WEITER F8 [146] ENDE"
4880 PRINT:PRINT " > <";
4890 :
4900 REM REM BILDFILES HOLEN
4910 :
4920 CLOSE 15
4930 :
4940 OPEN 15,8,15
4950 OPEN 1,8,0,"$0"
4960 :
4970 GOSUB 1620:IF E<>0 THEN CLOSE 1:CLOSE 15:GOTO 4820
4980 :
4990 GET#1,A$,A$,A$,A$,A$,A$
5000 :
5010 T$=""
5020 GET#1,A$:IF ST<>0 THEN 5150
5030 IF A$<>CHR$(34) THEN 5020
5040 GET#1,A$:IF A$<>CHR$(34) THEN T$=T$+A$:GOTO 5040
5050 IF RIGHT$(T$,1)<>CHR$(166) THEN 5120
5060 :
5070 PRINT LEFT$(CD$,23)LEFT$(CR$,4)LEFT$(T$,15)
5080 :
5090 GET A$:IF A$="" THEN 5090
5100 IF A$=CHR$(140) THEN 5150
5110 :
5120 GET#1,A$:IF A$<>"" THEN 5120
5130 IF ST=0 THEN 5010
5140 :
5150 CLOSE 1:CLOSE 15
5160 :
5170 GOTO 2370
5180 :
5190 :
5200 REM -------------------
5210 REM --- DISKCOMANDS ---
5220 REM -------------------
5230 :
5240 :
5250 GOSUB 1240
5260 PRINT LEFT$(CD$,17)
5270 PRINT " [164][164][164][164][164][164][164][164][164][164][164][164][164][164]"SPC(7)"[164][164][164][164]"
5280 PRINT " DISK-COMANDS [146]"SPC(7)" F8 [146] ENDE"
5290 PRINT " [164][164][164]"SPC(18)"[164][164][164]"
5300 PRINT " N [146] NEW (FORMAT.) S [146] SCRATCH"
5310 PRINT " V [146] VALIDATE R [146] RENAME"
5320 PRINT " I [146] INITIALIZE"
5330 :
5340 CLOSE 15
5350 :
5360 GET A$:IF A$="" THEN 5360
5370 :
5380 IF A$=CHR$(140) THEN 2370
5390 IF A$="N" THEN 5480
5400 IF A$="S" THEN 5850
5410 IF A$="V" OR A$="I" THEN 6040
5420 IF A$="R" THEN 6140
5430 :
5440 GOTO 5360
5450 :
5460 REM NEW (FORMATIEREN)
5470 :
5480 GOSUB 1240
5490 PRINT LEFT$(CD$,17)
5500 PRINT " [164][164][164]"
5510 PRINT " N [146] NEW (FORMATIEREN)":PRINT
5520 PRINT " >DISKETTENNAME":PRINT
5530 PRINT " > <";
5540 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
5550 :
5560 M=15:GOSUB 1820
5570 IF EN=1 THEN 2370
5580 IF DE=1 THEN 5490
5590 :
5600 L=1908:GOSUB 1470
5610 IF LEFT$(T$,1)=" " THEN 2370
5620 D$=LEFT$(T$,16)
5630 :
5640 PRINT LEFT$(CD$,21)LEFT$(CR$,25)", ID"
5650 PRINT:PRINT SPC(26) "> <"
5660 R=19:S=22:EN=0:DE=0:M=24
5670 GOSUB 1830
5680 IF EN=1 THEN 2370
5690 IF DE=1 THEN 5640
5700 :
5710 L=1931:GOSUB 1470
5720 IF LEFT$(T$,1)=" " THEN 2370
5730 I$=LEFT$(T$,2)
5740 :
5750 PRINT LEFT$(CD$,20) " [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
5760 PRINT " NEUE DISKETTE EINGELEGT (J/N) "
5770 :
5780 GET A$:IF A$="" THEN 5780
5790 IF A$<>"J" THEN 2370
5800 :
5810 D$="N0:"+D$+","+I$:GOTO 6450
5820 :
5830 REM SCRATCHEN
5840 :
5850 GOSUB 1240
5860 PRINT LEFT$(CD$,17)
5870 PRINT " [164][164][164]"
5880 PRINT " S [146] SCRATCH":PRINT
5890 PRINT " >DATEINAME EINGEBEN":PRINT
5900 PRINT " > <";
5910 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"LEFT$(T$,15);
5920 :
5930 M=14:GOSUB 1820
5940 IF EN=1 THEN 2370
5950 IF DE=1 THEN 5860
5960 :
5970 L=1908:GOSUB 1470
5980 IF LEFT$(T$,1)=" " THEN 2370
5990 D$="S0:"+LEFT$(T$,15)+"[166]"
6000 GOTO 6450
6010 :
6020 REM VALIDATE/INITIALIZE
6030 :
6040 GOSUB 1240
6050 PRINT LEFT$(CD$,17)
6060 PRINT " [164][164][164]"
6070 PRINT " "A$" [146] VALIDATE / INITIALIZE":PRINT
6080 :
6090 D$=A$+"0"
6100 GOTO 6450
6110 :
6120 REM RENAME
6130 :
6140 GOSUB 1240
6150 PRINT LEFT$(CD$,17)
6160 PRINT " [164][164][164]"
6170 PRINT " R [146] RENAME":PRINT
6180 PRINT " >ALTER DATEINAME":PRINT
6190 PRINT " > <";
6200 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"LEFT$(T$,15);
6210 :
6220 M=14:GOSUB 1820
6230 IF EN=1 THEN 2370
6240 IF DE=1 THEN 6150
6250 :
6260 L=1908:GOSUB 1470
6270 DA$=LEFT$(T$,15)+"[166]"
6280 :
6290 PRINT LEFT$(CD$,19)
6300 PRINT " [164][164][164][164][164]"
6310 PRINT " >NEUER[146] DATEINAME":PRINT
6320 PRINT " > <";
6330 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
6340 M=14:GOSUB 1820
6350 IF EN=1 THEN 2370
6360 IF DE=1 THEN 6290
6370 :
6380 L=1908:GOSUB 1470
6390 D$=LEFT$(T$,15)+"[166]"
6400 :
6410 D$="R0:"+D$+"="+DA$
6420 :
6430 REM DISKBEFEHL AUSFUEHREN
6440 :
6450 OPEN 15,8,15
6460 GOSUB 1620:IF E<>0 THEN CLOSE 15:GOTO 2370
6470 PRINT#15,D$
6480 GOSUB 1620:IF E<>0 THEN CLOSE 15
6490 :
6500 T$="":GOTO 2370
6510 :
6520 :
6530 REM --------------------
6540 REM --- PROG BEENDEN ---
6550 REM --------------------
6560 :
6570 :
6580 GOSUB 1240
6590 PRINT LEFT$(CD$,17)
6600 PRINT " [164][164][164][164][164][164]"
6610 PRINT " ENDE [146]":PRINT
6620 PRINT " SIND SIE SICHER (J/N) :"
6630 GET A$:IF A$="" THEN 6630
6640 IF A$<>"J" THEN 2370
6650 PRINT "[147]OK - BIS BALD!":END
6660 :
6670 :
6680 REM ----------------------
6690 REM --- DRUCKEN ---
6700 REM ----------------------
6710 REM - 1526 MIT NEUEM ROM -
6720 REM - IM 1525 MODUS -
6730 REM - -
6740 REM - CHR$(14)=BREIT EIN -
6750 REM - CHR$(15)=BREIT AUS -
6760 REM ----------------------
6770 :
6780 :
6790 GOSUB 1240
6800 PRINT LEFT$(CD$,17)
6810 PRINT " [164][164][164][164][164][164][164][164][164]"
6820 PRINT " DRUCKEN [146]"
6830 PRINT:PRINT " DRUCKER EINGESCHALTET (J/N) : "
6840 GET A$:IF A$="" THEN 6840
6850 IF A$<>"J" THEN GOTO 2370
6860 :
6870 REM DRUCKKANAL OEFFNEN
6880 :
6890 OPEN 3,4
6900 :
6910 REM ZEILENABSTAND = 0
6920 :
6930 OPEN 6,4,6:PRINT#6,CHR$(20):CLOSE 6
6940 :
6950 REM ZEILEN HOLEN
6960 :
6970 FOR L=1190 TO 1590 STEP 40
6980 GOSUB 1470
6990 :
7000 REM DRUCKSTRING ERSTELLEN
7010 :
7020 FOR J=1 TO LEN(T$)
7030 A$=MID$(T$,J,1)
7040 IF A$<>"_" THEN PRINT#3,A$;:GOTO7080
7050 PRINT#3,CHR$(14);
7060 J=J+1:A$=MID$(T$,J,1)
7070 PRINT#3,A$;CHR$(15);
7080 NEXT J
7090 :
7100 REM STRING DRUCKEN
7110 :
7120 PRINT#3
7130 NEXT L
7140 :
7150 REM ZEILENVORSCHUB
7160 :
7170 FOR I=1 TO 5:PRINT#3:NEXT I
7180 :
7190 : REM DRUCKKANAL SCHLIESSEN
7200 :
7210 CLOSE 3
7220 :
7230 T$="":GOTO 2370