1 POKE650,128:IFPEEK(1022)=0THEN5000
2 POKE2,32:POKE53280,0:POKE53281,0:PRINT""
10 IFPEEK(1022)=100THENPOKE1022,1:LOAD"ZEICHEN B",8,1
11 IFPEEK(1022)=250THENPOKE1022,240:LOAD"ZEICHEN DIN",8,1
12 IFPEEK(1022)=1ORPEEK(1022)=240THENPOKE53272,8:POKE56576,PEEK(56576)AND252:POKE648,192
13 PRINT"[147]"
14 IFPEEK(1022)=1THENPOKE1022,2:LOAD"ZEICHEN D",8,1
15 IFPEEK(1022)=240THENPOKE1022,210:LOAD"ZEICHEN DDIN",8,1
16 IFPEEK(1022)=2THENPOKE1022,3:LOAD"PROFIP V1.0",8,1
17 IFPEEK(1022)=210THENPOKE1022,200:LOAD"PROFIP V1.0",8,1
18 IFPEEK(1022)=200THENPOKE922,2:POKE923,1
20 C$="N":K$="N":SY$="N":S1$="N":NU$="N":GE=80:ZZ=60:YY=60
39 A6$="                                                                      "
40 A8$=A8$+"[160]":IFLEN(A8$)<200THEN40
41 BV$=CHR$(27)+"B"+CHR$(3)+CHR$(27)+"S"+CHR$(1)
42 BV$=BV$+CHR$(27)+"A"+CHR$(5):DIMV$(50)
45 PT$=CHR$(14)+"  [208]ROFIPRINT (C)'1985 BY [207]LIVER [198]ENDT   "
46 IFPEEK(930)<>0THENGOSUB40000:GOTO60
47 PRINT"[147]";PT:FA=8
48 PRINT"[147]";PT$:PRINT"[206]UN DIE [208][207][210][198][201][193][196][210][197][211][211] [196]ATENDISKETTE       EINLEGEN,";
49 PRINT" UND DEN [196]RUCKER ANSCHALTEN."
50 N$="":POKE917,39:POKE918,30:POKE920,7:POKE924,0
51 POKE908,0:POKE921,0:PRINT"[206]AME           ":SYS50176,N$,N$:PRINT
52 IFVAL(N$)>0THENY=VAL(N$):GOTO700
53 GOSUB40100:IFY=0THENPRINT"[194]ENUTZER NICHT REGISTRIERT":GOTO50
54 GOSUB50145:GOSUB50155:CLOSE2:CLOSE15
55 IFV$(8)="-"ORV$(8)=""THENPRINT"[203]EINE [218]UGRIFFSBERECHTIGUNG":GOTO50
56 P$="":POKE917,39:POKE918,30:POKE920,7:POKE924,0
57 POKE908,0:POKE921,0:PRINT"[203]ENNWORT[144]":SYS50176,P$,P$:PRINT""
58 IFPEEK(913)=1THEN50
59 BA$=V$(8):IFPA$<>P$THENPRINT"[203]ENNWORT FALSCH":GOTO56
60 INPUT"[196]RUCKERADRESSE  4[157][157][157]";DA
70 D$="":POKE917,39:POKE918,30:POKE920,7:POKE924,0:PRINT"[147]";PT$
71 PRINT"[200]ALLO ";V$(1);","
72 PRINT"BITTE GIB DAS [196]ATUM EIN."
73 POKE908,0:POKE921,0:PRINT"[196]ATUM"
74 SYS50176,D$,D$
90 DIMF$(270),A$(250):GE=80:GOSUB40010
99 LF=0:FA$=""
100 CV=0:N8=0:YX=0:ED=0:BA=1:GOSUB37000
142 REM
143 PRINT"[147][194]ITTE NUN DIE [196]ATENDISKETTE MIT DEM"
144 PRINT"[198]ORMAT EINLEGEN UND EINE [212]ASTE DRUECKEN."
145 POKE198,0:WAIT198,1:GETB$:IFB$="[133]"THENGOSUB37131:GOTO143
150 CLOSE15:OPEN15,FA,15,"I"
160 OPEN2,FA,2,FO$+",S,R":INPUT#15,ER,A$:IFER<>0THENPRINTA$:POKE198,0:WAIT198,1:GOTO99
170 INPUT#2,AN:INPUT#2,C$,K$,SY$,S1$,NU$,GE,ZZ
180 INPUT#2,A$:YY=VAL(A$)
190 FZ=1:FORT=1TOYY+20:GOSUB3500:GOSUB12000
198 NEXT:CLOSE2:GOSUB20000:IFB$="[140]"THENGOSUB15000
199 IFT$<>"ALLE"THENT$=">"+BA$+"??????"+T$
200 IFT$="ALLE"THENGOSUB30000
201 IFBA<QQTHENT$=N$(BA):BA=BA+1:GOTO210
202 PRINT"[194]ITTE NUN DIE [196]ATENDISKETTE MIT DEM"
203 PRINT"[212]EXT EINLEGEN UND EINE [212]ASTE DRUECKEN."
204 POKE198,0:WAIT198,1:GETA$:IFA$="[133]"THEN100
205 GOTO210
206 GOSUB210:END
210 IFVV=1THEN11000
211 CLOSE2:CLOSE15:OPEN15,FA,15
212 OPEN2,FA,2,T$+",S,R":INPUT#15,ER,A$:IFER<>0THENPRINTA$:POKE198,0:WAIT198,1:GOTO100
220 INPUT#2,AN:P=0:GOSUB36000
225 TA=(GE-ZZ)/3
230 POKE198,0:IFED=2THENGOSUB10000:GOTO240
231 PRINT"[147][194]ITTE LEGEN [211]IE EIN [194]LATT EIN UND       DRUECKEN [211]IE EIN [212]ASTE"
232 GOSUB10000
233 GETA$:IFA$=""THEN233
234 PRINT"[147]";PT$
235 PRINT"[201]CH ARBEITE ..."
240 PRINT"[201]CH DRUCKE [211]EITE";SH+1:PRINT"[212]EXT :";T$
245 SH=SH+1:IFSH=2THENGOSUB600
250 RA=(GE-ZZ)/3
300 V=0 : IF N7<N6 THEN V= (N6-N7)/3
310 U=1:FORWW=1TOYY:CO$=LEFT$(F$(WW),1)
314 IFCO$="*"THENGOTO500
315 IFCO$="."THENA$=DA$:GOSUB2001:GOTO 340
316 IFCO$<>"="ANDCO$<>"+"ANDCO$<>"_"THENA$=F$(WW):GOSUB2000:GOTO340
320 IFV>1THENA$="":GOSUB2000:V=V-1:GOTO340
321 IFU>N7THENA$="":GOSUB2000:U=U+1:GOTO340
330 IFCO$="="THENA$=A$(U):U=U+1:GOSUB2000:GOTO340
331 IFCO$="+"THENGOSUB400:U=U+1:GOSUB2000:GOTO340
332 IFCO$="_"THENGOSUB410:U=U+1:GOSUB2000:GOTO340
339 IFM$="[140]"THENN8=999:WW=999
340 NEXTWW
341 PRINT"1":IFN8<>999THENGS=1:GOTO230
342 IFN8=999THENFORMN=1TO999:GETA$:IFA$="[139]"THENN8=0
343 NEXT
349 PRINT"2":IFN8=999ANDBA<QQTHENCLOSE2:CLOSE15:CLOSE1:N8=0:GOTO201
350 IFVV=1THEN210
360 PRINT"[147]FERTIG":POKE198,0:GOTO6000
400 A$=LEFT$(A$(U)+A8$,ZZ)+RIGHT$(F$(WW),LEN(F$(WW))-1):RETURN
410 A$=RIGHT$(F$(WW),LEN(F$(WW))-1)+A$(U):RETURN
450 PRINT" *** PAUSE ***"
455 GETM$:IFM$<>"[134]"THEN455
456 IFM$<>"[133]"THENEND
460 GOTO2010
500 REM ** SEITENNR. **
501 A$=LEFT$(A6$,INT(GE/2.5)-TA)+"-"+STR$(SH)+" -"
502 IFTD$="J"THENA$=A$+T$
510 GOSUB2001:GOTO340
600 FORT=1TO20:F$(T)=F$(T+YY):NEXT:GOSUB20000:RETURN
700 IFY=999THENBA$="GA":GOTO72
710 IFY=900THENV$(8)="OF":PA$="SABRINA":GOTO56
720 IFY=901THENV$(8)="OL":PA$="EDV":GOTO56
725 IFY=902THENV$(8)="RH":PA$="NIE":GOTO56
730 IFY=903THENV$(8)="SZ":PA$="FRAU":GOTO56
799 GOTO54
1999 END
2000 GOSUB30400:GOSUB2500
2001 IFA$<>""ANDA$<>"[187]"THENA$=LEFT$(A6$,TA)+A$
2005 REM
2006 XY=1
2007 GETM$:IFM$="[133]"THEN450
2010 A$=A$+CHR$(13):FORZ=1TOLEN(A$)
2020 B$=MID$(A$,Z,1):GOSUB4450
2030 AS=ASC(B$)
2040 IFAS>191ANDAS<234THENAS=AS-96
2050 IFAS>223ANDAS<255THENAS=AS-64
2060 IFAS=255THENAS=126
2070 IFXY=2THENZ=Z+1
2080 IFXY=3THENXY=2
2090 IFAS<128THENB$=CHR$(PEEK(1026+AS)):GOTO2200
2100 AS=AS-160:B$=""
2110 Z1=0:IFPEEK(1202+8*AS)<>0ANDPEEK(1201+8*AS)<>27THENB$=CHR$(PEEK(1024)):Z1=1
2120 IFZ1=0THENGOSUB2300
2130 IFZ1=1THENGOSUB2400
2140 IFZ1=1ANDBR=0THENB$=B$+CHR$(PEEK(1025))
2150 IFZ1=1ANDBR=1THENB$=B$+CHR$(PEEK(1026))
2200 PRINT#1,B$;
2210 NEXT:POKE53265,27:RETURN
2300 FORDD=1TO8:MN=PEEK(AS*8+DD+1200)
2310 IFMN=0THENNEXTDD:RETURN
2320 GOSUB4400:B$=B$+C$:NEXTDD:RETURN
2400 FORDD=1TO8:MN=PEEK(AS*8+DD+1200)
2410 IFMN=0THENNEXTDD:RETURN
2420 GOSUB4400:B$=B$+C$:IFBR=1THENB$=B$+C$
2430 NEXTDD:RETURN
2500 IFLEFT$(A$,1)<>"#"THENRETURN
2501 IFA$<"#00"THENRETURN
2510 A$=RIGHT$(A$,LEN(A$)-1):TA=RA+VAL(LEFT$(A$,2))
2511 A$=RIGHT$(A$,LEN(A$)-2):RETURN
3000 IFE7=1THENE7=0:ET=0:A$=BB$:BB$="":GOTO3046
3005 A$=BB$:ET=0:IFZZ=0THENP=P+1:GOTO3500
3010 IFNF=1THEN3900
3011 POKE915,2:POKE917,200:POKE908,255:SYS50182,BB$:IF(ST AND 64)=64THENBB$="[187]"
3012 IFPEEK(913)=13THENP=P+1
3013 IFBB$=">"THENBB$="[187]":ET=1
3014 IFBB$="> "THENBB$="[187]":ET=1
3015 IFRIGHT$(BB$,1)=" "THENBB$=LEFT$(BB$,LEN(BB$)-1):GOTO3014
3016 IFLEFT$(BB$,1)=" "THENBB$=RIGHT$(BB$,LEN(BB$)-1):GOTO3015
3017 IFLEFT$(BB$,1)="@"THENGOSUB30300
3018 IFLEFT$(BB$,8)="NOFORMAT"THENNF=1:GOTO3010
3019 IFLEFT$(BB$,8)="MITTEZEN"THENMI=1:GOTO3010
3020 IFLEFT$(BB$,8)="FORMNORM"THENMI=0:GOTO3010
3021 IFLEFT$(BB$,8)="RECHTSFO"THENMI=2:GOTO3010
3022 IFLEFT$(BB$,8)="KEINFORM"THENMI=3:GOTO3010
3023 IFLEFT$(BB$,7)="DEZLEN="THENGOTO3650
3024 IFLEFT$(BB$,1)="_"THENGOSUB3680
3028 IFLEFT$(BB$,2)="!!"THEN3600
3029 IFRIGHT$(BB$,1)="[187]"ORLEFT$(BB$,1)="[172]"THENET=1:E7=1
3030 C$=A$:IFRIGHT$(C$,1)="-"THENC$=LEFT$(C$,LEN(C$)-1):C$=C$+BB$:GOTO3040
3035 C$=C$+" "+BB$
3040 IFLEN(C$)<ZZTHENA$=C$:E7=0:IFET=0THEN3010
3045 IFET=1ANDE7=0THENBB$=""
3046 IFRIGHT$(A$,1)=" "THENA$=LEFT$(A$,LEN(A$)-1):GOTO3046
3047 IFLEFT$(A$,1)=" "THENA$=RIGHT$(A$,LEN(A$)-1):GOTO3047
3049 IFMI<>0THEN3100
3050 IFRIGHT$(A$,1)="[187]"THENRETURN
3051 POKE918,ZZ-ZZ/4:POKE917,ZZ:SYS50185,A$,A$
3060 RETURN
3100 IFMI=1THEN3200
3110 IFMI=2THEN3300
3120 IFMI=3THEN3400
3130 REM IFMI=4THEN3450
3200 IFA$=""ORA$="[187]"THENA$="":PRINTA$:RETURN
3201 SYS50179,A$:X8=(ZZ-(LEN(A$)-PEEK(919)))/2.1
3210 IFX8>0THENA$=LEFT$(A6$,X8)+A$:RETURN
3211 RETURN
3300 IFA$=""ORA$="[187]"THENA$="":RETURN
3301 SYS50179,A$:X8=(ZZ-(LEN(A$)-PEEK(919)))
3310 IFX8>0THENA$=LEFT$(A6$,X8)+A$:RETURN
3311 RETURN
3400 IFA$=""ORA$="[187]"THENA$="":RETURN
3401 RETURN
3500 POKE908,0
3510 POKE915,2:POKE917,136
3520 SYS50182,A$:IFA$=">"THENA$=""
3521 IFRIGHT$(A$,1)=" "THENA$=LEFT$(A$,LEN(A$)-1):GOTO3521
3522 IFLEFT$(A$,1)=" "THENA$=RIGHT$(A$,LEN(A$)-1):GOTO3522
3530 RETURN
3600 REM ** !! (null)ABULATOR **
3602 BB$=RIGHT$(BB$,LEN(BB$)-2):GH=VAL(LEFT$(BB$,2))
3605 IFGH>ZZTHENBB$="[160]":GOTO3040
3610 GH=GH-LEN(C$):IFGH<0THENGH=0
3620 C$=C$+LEFT$(A8$,GH)+"-":GOTO3040
3650 REM ** DEZLEN EINGABE **
3655 BB$=RIGHT$(BB$,LEN(BB$)-7):DV=VAL(LEFT$(BB$,1))
3660 BB$=RIGHT$(BB$,LEN(BB$)-1):DN=VAL(LEFT$(BB$,1))
3670 BB$="":GOTO3040
3680 REM ** DEZIMAL BILDUNG **
3681 QW=0:RF$=RIGHT$(BB$,1):IFVAL(RF$)=0ANDRF$<>"0"THENQW=1
3682 IFQW=1THENBB$=LEFT$(BB$,LEN(BB$)-1)
3683 BB$=RIGHT$(BB$,LEN(BB$)-1):GH=INT(VAL(BB$)):IFGH<0THENGH=GH+1
3684 DE$=STR$(GH):DE$=RIGHT$(DE$,LEN(DE$)-1):GZ=GH
3685 DE$=RIGHT$("[160][160][160][160][160][160][160][160][160]"+DE$,DV-1)
3686 IFGZ<0THENDE$="-"+DE$
3687 IFGZ>=0THENDE$="[160]"+DE$
3688 GH=ABS(VAL(BB$)-GH)
3690 IFDN=0THEN3698
3691 DE$=DE$+"."
3692 GH=GH*10^DN:DN$=STR$(GH):DN$=RIGHT$(DN$,LEN(DN$)-1)
3693 DE$=DE$+LEFT$(DN$+"000000000",DN)
3698 BB$=DE$:IFQW=1THENBB$=BB$+RF$
3699 RETURN
3900 POKE915,2:POKE917,ZZ:POKE908,1:SYS50182,BB$:IF(ST AND 64)=64THENBB$="[187]"
3910 IFBB$="FORMATON"THENNF=0:A$="":BB$="":GOTO3010
3912 IFBB$=">"THENBB$=""
3920 A$=BB$:RETURN
3999 RETURN
4400 IFRV=0THEN4420
4401 IFMN=0THENC$="":RETURN
4402 IFMN<128THENC$=CHR$(MN):RETURN
4410 MN=MN-128:MN=255-MN
4420 C$=CHR$(MN):RETURN
4450 IFB$="[170]"THENBR=1:XY=3
4451 IFB$="[167]"THENBR=0:XY=1
4452 IFS1$="S"AND(B$="[170]"ORB$="[165]"ORB$="[181]")THENPRINT#1,CHR$(27)+"B"+CHR$(5);
4453 IFS1$="S"AND(B$="[167]"ORB$="[180]"ORB$="[161]")THENPRINT#1,CHR$(27)+"B"+CHR$(4);
4460 RETURN
5000 PRINT"[147]  PROFIPRINT (C) '1984 BY OLIVER FENDT  "
5010 INPUT"TASTATUR DIN[157][157][157][157][157]";A$
5020 POKE1022,250:IFA$<>"DIN"THENPOKE1022,100
5030 RUN
6000 PRINT"[147]";PT$
6010 PRINT"  -0-  [197]NDE"
6011 PRINT"  -1-  [197]INEN [212]EXT DRUCKEN"
6012 PRINT"  -2-  [208]ROFITEXT LADEN"
6050 PRINT"[194]ITTE WAEHLEN SIE:"
6052 POKE198,0:WAIT198,1:GETA$
6054 IFA$="[133]"ORA$="0"THENPOKE2,0:POKE930,0:END
6055 IFVAL(A$)>2THEN6052
6060 IFA$="1"THEN100
6070 POKE2,0:PRINT"[147]LOAD"+CHR$(34)+"C/PROFITEXT*"+CHR$(34)+",8"
6080 PRINT"RUN":POKE198,2:POKE631,13:POKE632,13:END
10000 N7=0:L=0
10010 IFN7>=N6THENRETURN
10020 GOSUB3000:N7=N7+1:IFP>ANTHENA$(N7)=A$:N8=999:RETURN
10030 IFLEFT$(A$,1)="[172]"THENGOSUB10100:IFRR=1THENRETURN
10035 IFLEN(A$)>LTHENL=LEN(A$)
10040 A$(N7)=A$:IFLEFT$(A$,1)="[187]"THEN10060
10050 GOTO10010
10060 IF5>N6-N7THENRETURN
10065 GOTO10010
10100 REM ** SEITENVORSCHUB ?? **
10101 IF A$="[172]"THENRR=1:GOTO10120
10102 RR=0:A$=RIGHT$(A$,LEN(A$)-1)
10110 GQ=VAL(LEFT$(A$,2)):IFGQ>N6-N7THENRR=1
10120 A$="":A$(N7)="":RETURN
11000 IFYX>=CVTHEN6000
11005 GOSUB50145:SH=0:PRINT"[147][214]ARDEF"
11010 YX=YX+1:Y=A(YX):GOSUB50155:CLOSE2:CLOSE15:GOTO11030
11020 GOTO6000
11030 FORT=1TO20:PRINTV$(T):NEXT
11035 GOTO211
12000 IFLEFT$(A$,1)="^"THENA$=RIGHT$(A$,LEN(A$)-1):GOTO13000
12001 IFLEFT$(A$,1)="_"THENA$=RIGHT$(A$,LEN(A$)-1):GOTO13010
12010 F$(FZ)=A$:FZ=FZ+1:RETURN
13000 F$(FZ-1)=F$(FZ-1)+RIGHT$(A8$,ZZ-LEN(F$(FZ-1))-LEN(A$))+A$:RETURN
13010 F$(FZ)=RIGHT$(A8$,ZZ-LEN(A$))+A$:FZ=FZ+1:RETURN
15000 REM ** ERSTELLEN FORMBLATT **
15010 GOSUB35000
15020 PRINT"[147]":FORT=1TOYY+20
15021 PRINT"                                        ";
15022 PRINT"                                        ";
15023 PRINT"                                        ";
15024 PRINT"                                        ";
15025 PRINT"";F$(T);"[164] "
15030 PRINT"";PT$:PRINT"[198]ORMBLATT ERSTELLEN"
15035 IFT<1THENT=YY
15036 IFT>YYTHENPRINT"[211]EITE 2[146] [218]EILE";T-YY
15037 IFT>YY+20THENPRINT"                       ":T=1
15050 PRINT"= = [212]EXT DRUCKEN / ^ [193]USFUELLEN"
15051 PRINT". = [196]ATUM HIER DRUCKEN"
15052 PRINT"* = [211]EITENZAHL HIER DRUCKEN"
15054 PRINT"(F1) [193]LLES [207][203]   (F3) [196][197][205][207] [196]RUCK"
15055 PRINT"(F5) [218]EILE HOCH (F7) [211]PEICHERN"
15056 PRINT"(F2) [198]ORMBLATT LADEN"
15057 PRINT"(F4) [205]ITTEZENTRIERUNG DES [212]EXTES"
15058 PRINT"(F6) [210]ECHSTFORMATIERUNG"
15059 PRINT"(F8) [194]LOCKSATZFORMATIERUNG"
15060 PRINT"([195][210][212][204])+([204]) [198]ORMBLATT LOESCHEN"
15061 PRINT"([195][210][212][204])+([197]) [206]EU [208]ARAMETER [197]INSTELLEN"
15062 PRINT"[193]LLES WAS ANDERS IST, WIRD SO GEDRUCKT, WIE ES DASTEHT.";
15070 PRINT"[146][208]OS.X.     [157][157][157][157]";LEN(F$(T))
15071 PRINT"[208]OS.Y.     [157][157][157][157]";T;" "
15080 IFPEEK(198)<1THEN15080
15090 GETA$
15095 IFA$=CHR$(20)ANDLEN(F$(T))=0THEN15080
15100 IFA$=CHR$(20)THENF$(T)=LEFT$(F$(T),LEN(F$(T))-1):GOTO15155
15110 IFA$="[133]"THENLF=1:FA$="OK":FO$=">"+BA$+"??????OK":GOSUB20000:RETURN
15120 IFA$="[134]"THEN15600
15121 IFA$="^"THEN15900
15122 IFA$=""THENGOSUB35000:GOTO15021
15123 IFA$=""THENFORU=1TO20:F$(YY+U)=F$(U):NEXT:GOTO15021
15130 IFA$="[135]"THENT=T-2:NEXT
15131 IFA$=""THENFORU=1TOYY:F$(U)="":NEXT:T=1:GOTO15021
15134 IFA$="[137]"THENT=999:NEXT:GOTO15800
15135 IFA$="[136]"THEN15700
15136 IFA$="[138]"THENF$(T)=LEFT$(A8$,(ZZ-LEN(F$(T)))/2)+F$(T):GOTO15021
15137 IFA$="[139]"THENF$(T)=LEFT$(A8$,ZZ-LEN(F$(T)))+F$(T):GOTO15021
15138 IFA$="[140]"THENPOKE918,3:POKE917,ZZ:SYS50185,F$(T),F$(T):GOTO15021
15139 IFA$="[147]"THENF$(T)="":GOTO15021
15140 IFA$=CHR$(13)THENNEXT:GOTO15020
15141 IFA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN15030
15142 IFA$="[144]"ORA$=""ORA$=""ORA$="[159]"THEN15030
15143 IFA$="[156]"ORA$=""ORA$=""ORA$="[158]"THEN15030
15144 IFA$="[129]"ORA$="[149]"ORA$="[150]"ORA$="[151]"THEN15030
15145 IFA$="[152]"ORA$="[153]"ORA$="[154]"ORA$="[155]"THEN15030
15146 IFA$=""ORA$="[146]"ORA$="[147]"ORA$=""ORASC(A$)=148THEN15030
15147 IFA$="[160]"THEN15150
15148 IFLEN(F$(T))=ZZTHEN15160
15150 F$(T)=F$(T)+A$
15155 PRINT"";F$(T);"[164] "
15160 GOTO15030
15600 REM ** DRUCKEN **
15601 PRINT"[147]";PT$:PRINT"[194]ITTE [215]ARTEN, ICH DRUCKE."
15610 GOSUB36000:FORU=1TOYY
15611 IFF$(U)="."THENA$=DA$:GOTO15650
15612 IFF$(U)="*"THENA$="        -1-          ":GOTO15650
15613 IFF$(U)="="THENA$="-[212]EST-":GOTO15650
15630 A$=F$(U)
15650 GOSUB2001
15660 NEXTU:A$="":CLOSE1:GOTO15021
15700 REM ** FORM SPEICHERN **
15705 PRINT"[147]";PT$:PRINT"[211]PEICHERN"
15706 INPUT"[206]AME";N$
15710 CLOSE2:OPEN2,8,2,"@:>"+BA$+"000000"+N$+",S,W"
15720 PRINT#2,STR$(YY+33);CHR$(13);
15721 PRINT#2,C$:PRINT#2,K$:PRINT#2,SY$:PRINT#2,S1$:PRINT#2,NU$
15722 PRINT#2,STR$(GE);CHR$(13);
15723 PRINT#2,STR$(ZZ);CHR$(13);
15730 PRINT#2,STR$(YY);CHR$(13);
15740 FORU=1TOYY+20:PRINT#2,F$(U):NEXT
15750 FORU=1TO7:PRINT#2," ":NEXT:CLOSE2:GOTO15021
15800 PRINT"[147][194]ITTE NUN DIE [196]ATENDISKETTE MIT DEM"
15801 PRINT"[198]ORMAT EINLEGEN UND DEN [206]AMEN ANGEBEN."
15805 INPUT"[206]AME";A$:A$=">"+BA$+"??????"+A$
15810 CLOSE15:OPEN15,FA,15,"I"
15815 CLOSE2:OPEN2,FA,2,A$+",S,R":INPUT#15,ER,A$:IFER<>0THENPRINTA$
15816 IFER<>0THENPOKE198,0:WAIT198,1:GETA$:PRINT"[147]":GOTO15020
15820 INPUT#2,AN
15821 INPUT#2,C$,K$,SY$,S1$,NU$,GE,ZZ
15830 INPUT#2,A$:YY=VAL(A$)
15840 FZ=1:FORT=1TOYY+20:GOSUB3500:GOSUB12000
15850 NEXT:CLOSE2:GOSUB20000:PRINT"[147]":GOTO15020
15900 PRINT"[147]";PT$
15910 PRINT"[198]ORMBLATT AUSFUELLEN"
15920 INPUT"[214]ON [218]EILE";V
15925 INPUT"[194]IS [218]EILE";B
15930 FORU=VTOB:F$(U)="=":NEXT:PRINT"[147]";PT$:T=B:GOTO15021
20000 N6=0:FORT=1TOYY
20010 IFLEFT$(F$(T),1)="="THENN6=N6+1
20011 IFLEFT$(F$(T),1)="+"THENN6=N6+1
20012 IFLEFT$(F$(T),1)="_"THENN6=N6+1
20020 NEXT:RETURN
30000 IFDN<>1THENDIMN$(144):FF=1:DN=1
30001 PRINT"[196]IE [196]ISKETTE, DIE GEDRUCKT WERDEN SOLL,"
30002 PRINT"EINLEGEN UND EINE [212]ASTE DRUECKEN"
30003 POKE198,0:WAIT198,1:GETA$
30005 CLOSE2:OPEN2,FA,2,">????????DRUCK"
30010 INPUT#2,FF:QQ=1
30020 FORT=1TOFF:INPUT#2,N$(QQ):IFN$(QQ)=">"ORN$(QQ)=""THEN30030
30021 PRINT"[211]OLL ";N$(QQ);" GEDRUCKT WERDEN"
30022 POKE198,0:WAIT198,1:GETA$:IFA$="N"THENPRINT"[206][197][201][206]":GOTO30030
30023 IFA$="F"THENPRINT"[197][210][210][207][210]":GOTO30000
30027 N$(QQ)=">"+BA$+"??????"+N$(QQ):QQ=QQ+1
30030 NEXT:CLOSE2:RETURN
30300 IFVV=0THENRETURN
30301 FORB=1TOLEN(BB$)-2
30310 IFMID$(BB$,B,1)<>"@"THENNEXT:RETURN
30320 X=VAL(MID$(BB$,B+1,2)):IFX>50THENX=0
30330 IFX=0THENNEXT:RETURN
30340 BB$=LEFT$(BB$,B-1)+V$(X)+RIGHT$(BB$,LEN(BB$)-B-2):GOTO30300
30350 NEXT:RETURN
30400 REM ** VARTEST **
30401 FORB=1TOLEN(A$)-2
30410 IFMID$(A$,B,1)<>"@"THENNEXT:RETURN
30420 X=VAL(MID$(A$,B+1,2)):IFX>50THENX=0
30430 IFX=0THENNEXT:RETURN
30440 A$=LEFT$(A$,B-1)+V$(X)+RIGHT$(A$,LEN(A$)-B-2):GOTO30400
30450 NEXT:RETURN
34000 INPUT#15,EN:IFEN<>0THENINPUT#15,A$:PRINTA$:RETURN
34010 RETURN
35000 REM ** EINSTELLFORM  **
35100 PRINT"[147]";PT$:CLOSE15
35101 PRINT"":PRINT"[208]ARAMETER [197]INSTELLEN"
35130 PRINT"[[206]] [206]ORMAL [[203]] [203]LEIN      ";C$
35131 INPUT"[145][[206]] [206]ORMAL [[203]] [203]LEIN    ";C$
35132 PRINT"[[206]] [206]ORMAL [[203]] [203]OMPRIM.   ";K$
35133 INPUT"[145][[206]] [206]ORMAL [[203]] [203]OMPRIM. ";K$
35134 PRINT"[[206]] [206]ORMAL [[197]] [197]LITE      ";SY$
35135 INPUT"[145][[206]] [206]ORMAL [[197]] [197]LITE    ";SY$
35138 PRINT"[[206]] [[211]] [206][204][209] [[197]] [197]MPHAS.   ";S1$
35139 INPUT"[145][[206]] [[211]] [206][204][209] [[197]] [197]MPHAS. ";S1$
35150 PRINT"[206]ULL MIT [211]TRICH           ";NU$
35160 INPUT"[145][206]ULL MIT [211]TRICH         ";NU$
35170 PRINT"[218]EICHEN PRO [196]RUCKERZ.     ";GE:BA=1
35171 INPUT"[145][218]EICHEN PRO [196]RUCKERZ.   ";GE
35175 PRINT"DAVON BENUTZTE [218]EICHEN    ";ZZ:N8=0
35176 INPUT"[145]DAVON BENUTZTE [218]EICHEN  ";ZZ:N8=0
35180 IFZZ>200THENPRINT"[218]U GROSS":GOTO35180
35185 PRINT"[218]EILEN PRO [196]RUCKERZ.      ";YY
35186 INPUT"[145][218]EILEN PRO [196]RUCKERZ.    ";YY
35190 DA$=LEFT$(A8$,ZZ-LEN(D$))+D$
35900 INPUT"[197]INGABEN [207][203]               N[157][157][157]";A$:IFA$="N"THEN35101
35999 PRINT"[147]":RETURN
36000 REM ** DRUCKER INIT **
36001 FO$="":FA$="":LF=0
36010 IFDS<>0THENCLOSE1:OPEN1,DA,DS
36011 IFDS=0THENCLOSE1:OPEN1,DA
36012 IFTD$="J"THENRETURN
36015 PRINT#1,CHR$(27);"@";:IFC$="K"THENPRINT#1,BV$;
36020 IFED<2THENPRINT#1,CHR$(27)+"8";
36030 PRINT#1,CHR$(27)+"7"+CHR$(2);:IFSY$="E"THENPRINT#1,CHR$(27);"B";CHR$(2);
36040 IFS1$="S"THENPRINT#1,CHR$(27);"B";CHR$(4);
36041 IFS1$="E"THENPRINT#1,CHR$(27);"E";
36050 IFK$="K"THENPRINT#1,CHR$(15);
36060 IFNU$="J"THENPRINT#1,CHR$(27);CHR$(92);CHR$(1);
36070 DA$=LEFT$(A8$,ZZ-LEN(D$))+D$
36999 RETURN
37000 REM ** EINSTELLFUNKTION **
37010 IFLEFT$(T$,1)=">"THENT$=RIGHT$(T$,LEN(T$)-9)
37100 PRINT"[147]";PT$:CV=0:YX=0:CLOSE2:CLOSE15
37101 PRINT""
37110 POKE198,0:GS=0
37111 INPUT"[213][211][197][210][208][207][210][212] [201]NTERFACE        J[157][157][157]";A$:IFA$="J"THENSYS50194
37112 IFA$="N"THENINPUT"[211]EKUNDAERADRESSE          7[157][157][157]";DS
37115 ED=0:INPUT"[197]INZELBLATT [197]INZUG        J[157][157][157]";A$:IFA$="N"THENED=2
37116 IFA$="E"THEN6000
37117 IFA$="F"THENGOSUB15000:GOTO37000
37119 FA$="FORM"
37120 PRINT"[206]AME DES [198]ORMBLATTES      ";FA$
37121 INPUT"[145][206]AME DES [198]ORMATBLATTES  ";FO$
37122 FA$=FO$
37124 FO$=">"+BA$+"000000"+FO$
37125 PRINT"[206]AME DES [212]EXTES AUF [196]ISK  ";T$
37126 INPUT"[145][206]AME DES [212]EXTES AUF [196]ISK";T$:SH=0:RETURN
37131 INPUT"[211]TART [211]EITEN NR.          1[157][157][157]";S$:SH=VAL(S$)-1
37165 INPUT"[212][197][211][212] [196]RUCK                N[157][157][157]";TD$
37170 INPUT"[193]DRESSE BENOETIGT         N[157][157][157]";A$:IFA$="J"THEN38000
37171 IFA$="S"THENVV=1:GOSUB50090
37172 IFA$="E"THEN39000
37999 RETURN
38000 REM ** EINE ADRESSE HOLEN **
38001 PRINT"[147]";PT$:PRINT"[197]INE [193]DRESSE LADEN"
38002 PRINT" [194]ITTE [193][196][210][197][211][211][196][193][212][197][206][196][201][211][203][197][212][212][197] EINLEGEN !!! "
38010 N$="":POKE917,39:POKE918,30:POKE920,7:POKE924,0
38051 POKE908,0:POKE921,0:PRINT"[206]AME           ":SYS50176,N$,N$:PRINT
38052 IFVAL(N$)>0THENY=VAL(N$):GOTO38054
38053 GOSUB40100:IFY=0THENPRINT"[193]DRESSE NICHT VORHANDEN":GOTO38000
38054 GOSUB50145:GOSUB50155:CLOSE2:CLOSE15:RETURN
39000 PRINT"[147]";PT$:PRINT:PRINT
39005 N$="":POKE917,39:POKE918,30:POKE920,7:POKE924,0
39010 POKE908,0:POKE921,0:PRINT"[214]ORNAME        ":SYS50176,"",V$(1):PRINT
39012 POKE908,0:POKE921,0:PRINT"[206]ACHNAME       ":SYS50176,"",V$(2):PRINT
39014 POKE908,0:POKE921,0:PRINT"[211]TRASSE        ":SYS50176,"",V$(3):PRINT
39016 POKE908,0:POKE921,0:PRINT"[208][204][218] [207]RT        ":SYS50176,"",V$(4):PRINT
39018 POKE908,0:POKE921,0:PRINT"[212]ELEPHON       ":SYS50176,"",V$(5):PRINT
39020 POKE908,0:POKE921,0:PRINT"[199]EBURTSD.      ":SYS50176,"",V$(6):PRINT
39022 POKE908,0:POKE921,0:PRINT"[211]PITZNAME      ":SYS50176,"",V$(11):PRINT
39024 POKE908,0:POKE921,0:PRINT"[211]USI [203]ENNUNG   ":SYS50176,"",V$(12):PRINT
39099 RETURN
40000 BA$=CHR$(PEEK(930))+CHR$(PEEK(931)):FA=PEEK(932):RETURN
40010 POKE930,ASC(LEFT$(BA$,1)):POKE931,ASC(RIGHT$(BA$,1)):POKE932,FA:RETURN
40100 CLOSE2:CLOSE15:OPEN15,8,15:T=1:OPEN2,8,2,"AD,S,R"
40110 INPUT#15,ER,A$:IFER<>0THENPRINTER,A$:POKE198,0:WAIT198,1:GETB$:GOTO40100
40120 INPUT#2,A$,Y:IFLEFT$(A$,LEN(N$))=N$THENRETURN
40130 IFST<>64THEN40120
40140 CLOSE2:Y=0:RETURN
50000 REM *****************************
50005 REM *                           *
50010 REM * ISEQ UNTERPROGRAMME       *
50015 REM *                           *
50020 REM * LOAD AD     =  50090      *
50025 REM * FIND NAME   =  50115      *
50030 REM * OPEN        =  50140      *
50035 REM * SAVE NR     =  50235      *
50040 REM * SORT        =  50350      *
50045 REM * SAVE AD     =  50385      *
50050 REM * LOAD NR     =  50155      *
50055 REM *             =             *
50060 REM *                           *
50065 REM *                           *
50070 REM *****************************
50075 REM
50080 REM
50085 REM
50090 REM *** LOAD AD ***
50095 DIMA(500):INPUT"NAME";A$
50096 CLOSE2:CLOSE15:OPEN15,8,15:T=1:OPEN2,8,2,A$+",S,R"
50097 INPUT#15,ER,A$:IFER<>0THENPRINTER,A$:POKE198,0:WAIT198,1:GETB$:GOTO50096
50100 INPUT#2,A$,A(T)
50105 IFST<>64THENT=T+1:GOTO50100
50110 CLOSE2:CV=T:RETURN
50115 REM *** FIND NAME ***
50120 INPUT"NAME  ";X$
50125 FORY=1TOAN:IFLEFT$(A$(Y),LEN(X$))=X$THEN50135
50130 NEXT:PRINT"NICHT GEFUNDEN":Y=0:RETURN
50135 RETURN
50140 CLOSE2:RETURN
50145 CLOSE15:OPEN15,8,15
50150 CLOSE2:OPEN2,8,2,"ASALEM,L,"+CHR$(254):RETURN
50155 REM *** LOAD NR ***
50156 HB=INT(Y/256):LB=Y-256*HB
50160 PRINT#15,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1):POKE915,2
50165 POKE917,19:SYS50182,V$(1)
50170 SYS50182,V$(2)
50175 SYS50182,V$(3)
50180 POKE917,3:SYS50182,V$(4)
50185 POKE917,19:SYS50182,O$:V$(4)=V$(4)+" "+O$
50190 POKE917,15:SYS50182,V$(5)
50195 POKE917,1:SYS50182,G$:V$(6)=G$+"."
50196 SYS50182,G$:V$(6)=V$(6)+G$+"."
50197 POKE917,3:SYS50182,G$:V$(6)=V$(6)+G$
50200 POKE917,9:SYS50182,PA$:V$(7)="GESCHUETZT"
50201 IFBA$="--"ORBA$="OF"THENV$(7)=PA$
50205 POKE917,1:SYS50182,V$(8)
50210 POKE917,9:SYS50182,V$(9)
50215 POKE917,9:SYS50182,V$(10)
50220 POKE917,19:SYS50182,V$(11)
50225 SYS50182,V$(12)
50226 SYS50182,V$(13)
50227 SYS50182,V$(14)
50230 AS=ASC(LEFT$(V$(11),1))
50240 IFAS>64ANDAS<91THENAS=AS+32:V$(11)=CHR$(AS)+RIGHT$(V$(11),LEN(V$(11))-1)
50250 A$=MID$(V$(12),5,1)
50260 IFA$="-"THENV$(20)="[198]RAU"
50270 IFA$="0"THENV$(20)="[198]IRMA"
50280 IFA$="+"THENV$(20)="[200]ERR"
50290 A$=LEFT$(V$(12),1)
50300 IFV$(20)="[198]IRMA"THENV$(21)="[211]EHR GEEHRTE [196]AMEN UND [200]ERREN,":GOTO50500
50310 IFA$="+"THEN50400
50320 IFA$="-"THEN50460
50321 IFA$="0"THEN50450
50330 IFV$(20)="[198]RAU"THENV$(21)="[211]EHR GEEHRTE [198]RAU "+V$(2)+","
50340 IFV$(20)="[200]ERR"THENV$(21)="[211]EHR GEEHRTER [200]ERR "+V$(2)+","
50350 GOTO50500
50400 IFV$(20)="[198]RAU"THENV$(21)="[204]IEBE "+V$(1)+","
50410 IFV$(20)="[200]ERR"THENV$(21)="[204]IEBER "+V$(1)+","
50420 GOTO50500
50450 V$(21)="[200]ALLO "+V$(1)+",":GOTO50500
50460 V$(21)=V$(1)+",":GOTO50500
50500 V$(22)=BA$
50510 IFV$(20)="[198]IRMA"THENV$(23)="[205]IT FREUNDLICHEN [199]R[184][166]EN,":GOTO50600
50520 IFMID$(V$(12),9,1)="+"THENV$(23)="[194]USSI,":GOTO50600
50530 IFA$="+"THENV$(23)="[194]IS BALD, [196]EIN"
50540 IFA$="F"THENV$(23)="[200]OCHACHTUNGSVOLL,"
50550 IFA$="-"THENV$(23)=""
50560 IFA$="0"THENV$(23)="[196]EIN"
50600 IFV$(20)="[198]IRMA"THENV$(24)="[205]IT FREUNDLICHEN [199]R[184][166]EN,":GOTO50600
50620 IFMID$(V$(12),9,1)="+"THENV$(24)="[194]USSI,":GOTO50700
50630 IFA$="+"THENV$(24)="[194]IS BALD, [196]EINE"
50640 IFA$="F"THENV$(24)="[200]OCHACHTUNGSVOLL,"
50650 IFA$="-"THENV$(24)=""
50660 IFA$="0"THENV$(24)="[196]EINE"
50700 REM
50999 RETURN