0 POKE53280,0:POKE53281,0:POKE646,3:PRINTCHR$(147);CHR$(142);CHR$(8)
1 IFA=0THENA=1:LOAD"DBASE5",8,1
2 DIMTH$(30):OPEN8,8,8,"TH,S,R":FORI=0TO29:INPUT#8,TH$(I):NEXTI:CLOSE8
3 TH$(30)="":SO=49899:SYSSO:DG=50150:PR=50049:SYS49726
4 L$="                                        "
5 R$="........................................":R$=R$+R$
6 N$="0000000000000000000000000000000000000000":N$=N$+N$+N$
7 DIMT1$(100),B1$(100):MA=29:DIMT1(100)
8 FORI=0TO29:IFASC(TH$(I))=32ORASC(TH$(I))=160THENMA=MA-1
9 NEXTI:MI=0:CF=0:CZ=0:CU$(0)=" ":CU$(1)=" [146]"
10 OPEN8,8,8,"LBK,S,R":INPUT#8,LB$:LB=VAL(LB$):LB$=RIGHT$(("000"+LB$),4):CLOSE8
100 PRINT"[147]TD - DATENBANK : HAUPTMENUE
110 [153]"1 DATEN EINGEBEN
120 PRINT"2 AUSGABE NUMMERN
130 [153]"3 AUSGABE THEMEN
140 PRINT"4 DRUCKEN NUMMERN
150 [153]"5 DRUCKEN THEMEN
155 PRINT"0 PROGRAMM BEENDEN
160 [161]A$:[139]A$[178]""[167]160
170 [139]A$[178]"0"[167]62000
180 A[178][197](A$):[139]A[179]1[176]A[177]5[167]160
190 [145]A[137]1000,2000,3000,4000,5000
200 [137]100
1000 [153]"LOADTD - DATENBANK : DATENEINGABE"
1010 [141] 20000
1020 [141]10000
1050 [159]1,8,2,"NUMMERN" :[159]2,8,15
1060 HI[178][181](BL[173]256):LO[178]BL[171]256[172]HI
1070 [152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
1080 [158]DG,1,IN$,120:ER$[178][200]( IN$,2):[141]61000:[160]2:[160]1
1090 [139]ER$[178]"00"[176][198](IN$[170][199](0))[178]255[176]IN$[178]NT$[167]NR$[178]"":[137]1130
1100 [129]I[178]0[164]19:T$[178][202](IN$,I[172]6[170]1,6):[139][200](T$,2)[178]"00"[167]Z[178]I:I[178]19
1110 [130]I
1120 NR$[178][200](IN$,Z[172]6)
1130 :
1140 [158]PR,0,16,"BLAETTERN MIT CURSOR/ WAHL MIT RETURN"
1150 [139]MA[179]29[167][158]PR,0,18,"_ NEUES THEMA EINGEBEN               "
1160 Z[178]0:[158]PR,12,6,[200](TH$(Z),17)
1170 [161]A$:[139]A$[178]""[167]1170
1180 [139]A$[178]""[176]A$[178]""[167]Z[178]Z[170]1:[139]Z[177]MA[167]Z[178]0
1190 [139]A$[178]"ON"[176]A$[178]"CMD"[167]Z[178]Z[171]1:[139]Z[179]0[167]Z[178]MA
1200 [139]A$[178]"_"[167][137]1240
1210 [139]A$[178][199](13)[167]1260
1220 [158]PR,12,6,[200](TH$(Z),17)
1230 [137]1170
1240 CX[178]12:CY[178]6:EL[178]17:EZ[178]0:VB$[178]"                 ":[141]50000
1250 MA[178]MA[170]1:[202](TH$(MA),1,17)[178]EI$:TC$[178][201](TH$(MA),2):TF[178]1
1251 :[141]63000:[158]PR,0,17,"EINGABE KORREKT < J / N >"
1252 [161]A$:[139]A$[178]"J"[167]1255
1253 [139]A$[178]"N"[167]MA[178]MA[171]1:VB$[178]EI$:[137]1240
1254 [137]1252
1255 VB$[178]""
1260 TC$[178][201](TH$(Z),2):[141]63000
1265 CX[178]0:CY[178]10:EL[178]80:EZ[178]0:[141]50000
1267 [139]EI$[178]"_"[167]1130
1270 [141]63000:[158]PR,0,17,"EINGABE KORREKT < J/ N >"
1280 [161]A$:[139]A$[178]"J"[167]1310
1290 [139]A$[178]"N"[167]VB$[178]EI$:[137]1265
1300 [137]1280
1310 [141]63000:VB$[178]"":[158]PR,0,10,R$
1320 BE$[178]EI$:[158]PR,0,16,"DATENSATZ WIRD GESPEICHERT !           "
1330 LB[178]LB[170]1:LB$[178][201](("   "[170][196](LB)),4):HI[178][181](LB[173]256):LO[178]LB[171]256[172]HI
1340 [160]2:[160]1:[159]1,8,2,"BEMERKUNGEN":[159]2,8,15
1350 [152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
1360 [152]1,BE$:[141]61000:[139]A[179][177]0[175]A[179][177]50[167][160]2:[160]1:[153]A,B$,C,D:[128]
1370 [160]1:[158]PR,0,16,"INDEX WIRD AKTUALISIERT  !             "
1380 [159]8,8,8,TC$[170]",S,A":[160]8:[132]2,A:[139]A[179][177]0[167]1400
1390 [159]8,8,8,TC$[170]",S,A":[137]1410
1400 [159]8,8,8,TC$[170]",S,W"
1410 [152]8,AU$:[152]8,LB$:[141]61000
1420 [139]A[179][177]0[167][153]"LOAD":[153]A,B$:[153]C,D:[160]2:[160]8:[128]
1425 NR$[178]NR$[170]TC$[170]LB$
1430 [160]2:[160]8:[141]63000
1440 [158]PR,0,16,"_ = NEUE NUMMER    PEEK  M = MENUE        "
1450 [158]PR,0,18,"^ = NEUER DATENSATZ                    "
1460 [161]A$:[139]A$[178]"_"[167][141]60500:[137]1000
1470 [139]A$[178]"M"[167][141]60500:[137]100
1480 [139]A$[178]"^"[167][141]63000:[137]1140
1490 [137]1460
2000 [153]"LOADTD DATENBANK : AUSGABENSUCHE ":[141]20000:[141]10000 :[141]2600
2020 BL[178] [197](AU$):HI[178][181](BL[173]256):LO[178]BL[171]256[172]HI:[159]2,8,15
2030 [159]1,8,2,"NUMMERN":[152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
2035 [158]50150,1, DT$,120:[160]1:[160]2: NR$[178]DT$:[139][200](NR$,6)[178]"000000"[167]2700
2040 Z[178]0:MI[178]0:[139][198](DT$)[178]255 [167]2700
2050 T1$(Z)[178][202](NR$,Z[172]6[170]1,2)
2060 B1$(Z)[178][202](NR$,Z[172]6[170]3,4)
2070 [139] T1$(Z)[178]"00"[167]2100
2080 Z[178]Z[170]1:[139]Z[177]19[167]Z[178]19:[137]2100
2090 [137]2050
2100 Z[178]Z[171]1:[158]SO
2110 :
2120 [129]I[178]0[164]Z:[129]J[178]0[164]29
2130 [139]T1$(I)[178][201](TH$(J),2)[167]T1(I)[178]J
2140 [130]J:[130]I
2150 ZA[178]0
2160 [158]PR,12,6
2170 [153][200](TH$(T1(ZA)),17)
2180 BL[178][197](B1$(ZA)):HI[178][181](BL[173]256):LO[178]BL[171]HI[172]256
2185 HI[178][181](BL[173]256):LO[178]BL[171]HI[172]256
2190 [159]1,8,2,"BEMERKUNGEN":[159]2,8,15
2200 [152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
2210 [158]50150, 1,DT$,81:BE$[178]DT$
2220 [160]1:[160]2
2230 [141]2500
2240 [161]A$:[139]A$[178]""[167]2240
2250 [139]A$[179][177]""[175]A$[179][177]"ON"[175]A$[179][177]"CMD"[175]A$[179][177]""[175]A$[179][177]"_"[175]A$[179][177]"M"[167]2240
2260 [139]A$[178]""[176]A$[178]""[167]ZA[178]ZA[170]1:[139]ZA[177]Z[167]ZA[178]0:
2270 [139]A$[178]"ON"[176]A$[178]"CMD"[167]ZA[178]ZA[171]1:[139]ZA[179]0[167]ZA[178]Z:
2280 [139]A$[178]"M"[167]100
2290 [139]A$[178]"_"[167] [141]2800
2300 [137]2160
2500 [158]PR,0,11:[153][200](BE$,80):[142]
2600 [141]63000:[158]PR,0,16,"BLAETTERN MIT CURSORTASTEN             "
2610 [158]PR,0,18,"M = MENUE    PEEK _ = AUSDRUCK DES SATZES"
2630 [142]
2700 [158]PR,0,16:[153]"DIE  DATEI  ENTHAELT KEINE DATEN  !
2720 PRINT"==> TASTE                              "
2730 POKE198,0:WAIT198,1:GOTO100
2800 OPEN4,4:PRINT#4:CLOSE4:IFST=-128THENGOSUB4500
2810 OPEN4,4,7:PRINT#4,"AUSGABE : ";AU$;"        THEMA : ";LEFT$(TH$(Z),17)
2820 PRINT#4:PRINT#4,BM$
2830 CLOSE4:RETURN
2920 GOTO2910
3000 PRINT"[147]TD DATENBANK : THEMENSUCHE ":GOSUB20000
3010 GOSUB11000:GOSUB63000
3020 OPEN8,8,8,TC$+",S,R"
3030 SYSPR,0,  16,"INDEX - DATEI WIRD GELESEN             "
3050 FORI=0TO200
3060 INPUT#8,T1$(I):INPUT#8,B1$(I)
3070 IF(ST AND 64)THENZ1=I:I=200
3080 NEXTI:CLOSE8:Z=0:IFZ1=0THEN2700
3090 SYSPR,12,3,T1$(Z)
3100 BL=VAL(B1$(Z))
3105 HI=INT(BL/256):LO=BL-256*HI
3110 OPEN2,8,15:OPEN1,8,2,"BEMER*"
3120 PRINT#2,"P"+CHR$(2)+CHR$(LO)+CHR$(HI)+CHR$(1)
3130 SYSDG,1,DT$,81:BM$=LEFT$(DT$,80):FL$=RIGHT$(DT$,1):CLOSE2:CLOSE1
3140 SYSPR,0,16,"BLAETTERN MIT CURSOR :  _= AUSDRUCK"
3150 SYSPR,0,18,"M = MENUE                              "
3155 SYSPR,0,11,BM$
3160 GETA$:IFA$="M"THEN100
3170 IFA$=""ORA$=""THENZ=Z+1+((Z1+1)*(Z>=Z1)):GOTO3090
3180 IFA$="[145]"ORA$="[157]"THENZ=Z-1-((Z1+1)*(Z<=0)):GOTO3090
3190 IFA$="_"THENGOSUB2800
3200 GOTO3160
4000 PRINT"[147]TD DATENBANK : AUSGABENSUCHE ":GOSUB20000:GOSUB10000
4010 BL= VAL(AU$):HI=INT(BL/256):LO=BL-256*HI:OPEN2,8,15
4020 OPEN1,8,2,"NUMMERN":PRINT#2,"P"+CHR$(2)+CHR$(LO)+CHR$(HI)+CHR$(1)
4030 SYS50150,1, DT$,120:CLOSE1:CLOSE2: NR$=DT$
4040 Z=0:MI=0:IFASC(DT$)=255 THEN2700
4050 T1$(Z)=MID$(NR$,Z*6+1,2)
4060 B1$(Z)=MID$(NR$,Z*6+3,4)
4070 IF T1$(Z)="00"THEN4100
4080 Z=Z+1:IFZ>19THENZ=19:GOTO4100
4090 GOTO4050
4100 Z=Z-1:SYSSO
4110 FORI=0TOZ:FORJ=0TO29
4120 IFT1$(I)=RIGHT$(TH$(J),2)THENT1(I)=J
4130 NEXTJ:NEXTI
4140 OPEN4,4:PRINT#4:CLOSE4:IFST=-128THENGOSUB4500:REM DRUCKER EIN
4150 OPEN4,4,7:PRINT#4,"TIGER DISK AUSGABE : ";AU$
4160 FORI=0TOZ:BL=VAL(B1$(I)):IFBL=0THEN4600:REM KEINE DATEN
4170 HI=INT(BL/256):LO=BL-HI*256
4180 OPEN1,8,2,"BEMER*":OPEN2,8,15
4190 PRINT#2,"P"+CHR$(2)+CHR$(LO)+CHR$(HI)+CHR$(1)
4200 SYSDG,1,DT$,80:BM$=DT$:CLOSE2:CLOSE1
4210 SYSPR,0,11,BM$::SYSPR,12,6,TH$(T1(I))
4220 PRINT#4:PRINT#4,"THEMA = ";LEFT$(TH$(T1(I)),17)
4230 PRINT#4:PRINT#4,BM$
4240 NEXTI:CLOSE1:CLOSE2:CLOSE4:GOTO100
4500 GOSUB63000:SYSPR,0,16,"DRUCKER EINSCHALTEN                    "
4510 OPEN4,4:PRINT#4:CLOSE4:FORI=0TO100:NEXT
4520 IFST<>0THEN4510
4530 FORI=0TO1000:NEXT:RETURN
4600 PRINT"[147] DATEI ENDE":POKE198,0:WAIT198,1:GOTO100
5000 PRINT"[147]TD DATENBANK : THEMEN DRUCKEN":GOSUB20000
5010 GOSUB11000:GOSUB63000
5020 OPEN8,8,8,TC$+",S,R"
5030 SYSPR,0,  16,"INDEX - DATEI WIRD GELESEN             "
5050 FORI=0TO200
5060 INPUT#8,T1$(I):INPUT#8,B1$(I)
5070 IF(ST AND 64)THENZ1=I:I=200
5080 NEXTI:CLOSE8:
5090 OPEN4,4:PRINT#4:CLOSE4:IFST=-128THENGOSUB4500
5100 OPEN 4,4,7:PRINT#4,"TIGER DISK DATENBANK - THEMA = ";LEFT$(TH$(Z),17)
5110 SYSPR,12,6,LEFT$(TH$(Z),17):PRINT#4
5120 FORI=0TOZ1
5130 BL=VAL(B1$(I)):IFBL=0THENCLOSE1:CLOSE2:CLOSE4:GOTO100
5140 PRINT#4,"AUSGABE : ";T1$( I)
5150 SYSPR,12,3,T1$(I)
5160 HI=INT(BL/256):LO=BL-HI*256
5170 OPEN1,8,2,"BEMER*":OPEN2,8,15
5180 PRINT#2,"P"+CHR$(2)+CHR$(LO)+CHR$(HI)+CHR$(1)
5190 SYSDG,1,DT$,80:BM$=DT$
5200 SYSPR,0,11,BM$:PRINT#4,BM$
5210 CLOSE1:CLOSE2
5220 NEXTI
5230 GOTO100
10000 CX=12:CY=3:VB$="":EL=3:EZ=1:SYSPR,18,3,"_ = MENUE":FL=1:GOSUB50000:FL=0
10002 A=VAL(EI$):BL=A:IFEI$="_"THEN100
10005 IFA=0THEN1020
10010 A$=STR$(A):A=LEN(A$):AU$=RIGHT$(("00"+RIGHT$(A$,A-1)),3)
10020 SYSPR,12,3,AU$:RETURN
11000 GOSUB63000:
11010 SYSPR,0,16,"BLAETTERN MIT CURSOR/ WAHL MIT RETURN"
11015 SYSPR,0,18,"_ = ZURUECK ZUM HAUPTMENUE !"
11020 Z=0:SYSPR,12,6,LEFT$(TH$(Z),17)
11030 GETA$
11040 IFA$=""ORA$=""THENZ=Z+1:IFZ>MATHENZ=0
11045 IFA$="_"THEN100
11050 IFA$="[145]"ORA$="[157]"THENZ=Z-1:IFZ<0THENZ=MA
11060 IFA$=CHR$(13)THEN11090
11070 SYSPR,12,6,LEFT$(TH$(Z),17)
11080 GOTO11030
11090 TC$=RIGHT$(TH$(Z),2):RETURN
20000 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
20010 [153]"PEEKAUSGABE  :     PEEK
20020 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
20030 [158]PR,0,5
20040 [153]"ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
20050 PRINT"[194]THEMA    :                    [194]
20060 [153]"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
20070 SYSPR,0,9
20080 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
20090 PRINT:PRINT:PRINT:PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
20100 SYSPR,0,20
20110 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
20120 PRINT"DISK STATUS :
20130 [158]PR,0,22
20140 [153]"LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN"
20150 [142]
50000 X[178]CX:Y[178]CY:SP[178]1:T$[178][200]((VB$[170]R$),EL):EI$[178]T$
50010 [158]PR,X,Y,T$
50100 [161]A$:[139]A$[178]""[167][141]52000:[137]50100
50105 [139]A$[178]"_"[175]FL[178]1[167]EI$[178]"_":[142]
50110 E[178][198](A$):[139]E[177]31[175]E[179]91[167]51000
50115 [139]E[178]95[167]EI$[178]"_":[142]
50120 [139]E[178]29[167]50200
50125 [139]E[178]145[167]50900
50130 [139]E[178]157[167]50300
50135 [139]E[178]17[167]50950
50140 [139]E[178]19[167]50400
50150 [139]E[178]20[167]50500
50160 [139]E[178]147[167]50600
50170 [139]E[178]148[167]50700
50180 [139]E[178]13[176]E[178]141[167]50800
50190 [137] 50100
50200 [139]SP[170]1[179][178]EL[167]X[178]X[170]1:SP[178]SP[170]1
50210 [139]X[177]39[167]X[178]0:Y[178]Y[170]1
50220 [158]PR,CX,CY,EI$
50230 [137]50100
50300 [139]SP[171]1[177]0[167]X[178]X[171]1:SP[178]SP[171]1
50310 [139]X[179]0[167]X[178]39:Y[178]Y[171]1
50320 [158]PR,CX,CY,EI$
50330 [137]50100
50400 :X[178]CX:Y[178]CY:SP[178]1:[141]52000:[158]PR,CX,CY,EI$:[137]50100
50500 [139]SP[177]1[167]EI$[178][200](EI$,SP[171]1)[170][201](EI$,EL[171]SP)[170]".":SP[178]SP[171]1:X[178]X[171]1
50510 [139]X[179]0[167]X[178]39:Y[178]Y[171]1
50520 [141]52000:[158]PR,CX,CY,EI$
50530 [137]50100
50600 [137]50000
50700 EI$[178][200](EI$,SP[171]1)[170]"."[170][201](EI$,EL[171]SP[170]1)
50710 EI$[178][200](EI$,EL):[158]PR,CX,CY,EI$
50720 [141]52000:[137]50100
50800 [139][198](EI$)[179][177]164[167][142]
50810 [137]50100
50900 [139]SP[171]40[179]0[167]50100
50910 Y[178]Y[171]1:SP[178]SP[171]40:[141]52000
50920 [158]PR,CX,CY,EI$
50930 [137]50100
50950 [139]SP[170]40[177]EL[167]50100
50960 Y[178]Y[170]1:SP[178]SP[170]40:[141]52000
50970 [158]PR,CX,CY,EI$
50980 [137]50100
51000 [139]E[178]34[167]50100
51010 [139](E[179]48[176]E[177]57)[175]EZ[178]1[167]50100
51020 [141]52000
51030 [202](EI$,SP,1)[178]A$:[158]PR,CX,CY,EI$;
51040 [139]SP[170]1[179][178]EL[167]X[178]X[170]1:SP[178]SP[170]1
51050 [139]X[177]39[167]X[178]0:Y[178]Y[170]1
51060 [137]50100
52000 CZ[178]CZ[170]1:[139]CZ[178]10[167]CF[178]1[171]CF:CZ[178]0
52010 :[158]PR,X,Y,CU$(CF):[142]
60500 BL[178][197](AU$):HB[178][181](BL[173]256):LO[178]BL[171]HI[172]256
60510 [159]1,8,2,"NUMMERN":[159]2,8,15
60520 [152]2,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](1)
60530 [152]1,[200]((NR$[170]N$),120):NR$[178]""
60540 [141]61000:[139]A[179][177]0[175]A[179][177]50[167][160]1:[160]2:[144]
60550 [160]1:[160]2:[142]
61000 [132]2,A,B$,C,D:[158]PR,14,21:[153]B$:[142]
62000 [159]1,8,15,"S:LBK":[160]1
62010 LB$[178][201](("   "[170][196](LB)),4)
62020 [159]8,8,8,"LBK,S,W":[152]8,LB$:[160]8
62030 [139]SF[178]0[167][128]
62040 [159]1,8,15,"R:T1=TH"
62050 [159]8,8,8,"TH,S,W"
62060 [129]I[178]0[164]29:[152]8,TH$(I):[130]I
62070 [160]8:[152]1,"S:T1":[160]1:[128]
62999 [143] MELDEFENSTER LOESCHEN
63000 [158]PR,0,16,L$:[158]PR,0,17,L$
63010 [158]PR,0,18,L$:[158]PR,0,19,L$
63020 [142]