10 F=53272:POKEF+8,.:POKEF+9,.:POKEF,20:POKE657,128:POKE788,52:L=PEEK(186):GOTO250
20 DATATIGER-DISK,SPIELE,DEMOS,ANWENDER,UTILITIES
30 PRINT""X$(A,T):POKE198,0:RI$=""
40 GETRI$:IFRI$=""THEN40
50 IFRI$=CHR$(133)THEN530
60 E1=T:T=100:GOTO530
70 Q=PEEK(768):POKE768,185:OPEN1,L,15,"I":CLOSE1:POKE768,Q:IFST<>-128THENRETURN
75 PRINT"  BITTE LAUFWERK ";L;" EINSCHALTEN !":LL=L:AN=1:GOSUB140:GOTO70
80 POKE198,0:WAIT198,1:POKE198,0:RETURN
90 OPEN15,L,15
100 INPUT#15,AA,BB$,CC,DD
110 IFAA<>0THENPRINT"  DATEN-DISK IN LAUFWERK";L;"[157] EINLEGEN!![150]":GOTO130
120 RETURN
130 PRINT,AA;BB$;CC;DD:LL=L:IFLL<8THENLL=8
140 PRINT"[129]LAUFWERK-WECHSEL ZU  ";:IFLL=8THENPRINTLL+1;"[157][157][157][157]";
150 IFLL=9THENPRINTLL-1;"[157][157][157][157]";
160 L$="":INPUTL$:L=VAL(L$)
170 IFL$=""THENL=LL:GOTO190
175 IFL$="F"ANDAN=0THENL=LL:OPEN1,L,15,"N:DATENDISK,01":PRINT"FORMATIERE!":CLOSE1:GOTO190
180 IFL<8ORL>15THENPRINT"[145][145][145][145]":GOTO140
190 CLOSE2:CLOSE15:PRINT"[147]":RETURN
195 PRINT"[147]BITTE DRUCKER ABSCHALTEN!":RU=1:GOSUB200:IFST<>-128THEN195
196 RETURN
200 Q=PEEK(768):OPEN4,4:POKE768,185:PRINT#4:CLOSE4:POKE768,Q:IFST<>-128THENRETURN
205 IFRU=1THENRU=0:RETURN
210 PRINT"      BITTE DRUCKER EINSCHALTEN ! ":PRINT"      E = MENUE "
220 GETAB$:IFAB$<>" "ANDAB$<>"E"THEN220
230 IFAB$=" "THEN200
240 IFAB$="E"THENAU=3:CLOSE1:RETURN
250 IFL<8THENL=8
260 DIMX$(5,100),X(5,100):PRINT"[147]"
270 FORT=1TO5:READA$(T):NEXT
271 PRINT"[153]         BESTEHT DIE DATEI ?":PRINT"       [SPACE = JA / N = NEIN]"
272 GETDA$:IFDA$<>" "ANDDA$<>"N"THEN272
273 IFDA$="N"THEN720
275 GOSUB195
280 GOSUB70:AN=0:OPEN2,L,2,"DATEN,S,R":GOSUB90:IFAA<>0THEN280
290 FORV=1TO5:FORW=1TO100
300 INPUT#2,X$(V,W):INPUT#2,X(V,W):
310 PRINT"KATEGORIE/ANZAHL[146]: ";V;:IFW<10THENPRINT" ";
320 IFW<100THENPRINT" ";
330 PRINT""W
340 NEXTW:NEXTV
350 CLOSE2:CLOSE15:SA=1
360 PRINT"[147][129]  DATENSTAND ANZEIGEN ?"
370 GETAU$:IFAU$<>"J"ANDAU$<>"N"THEN370
380 IFAU$="J"THEN830
390 POKE53265,11:PRINT"[147]"TAB(10)"KATEGORIEN :":FORT=1TO5:PRINT"[156]"T,A$(T):NEXT:PRINT
395 PRINT"[176]";:FORB=1TO37:PRINT"[195]";:NEXT:PRINT"[174]":PRINT"[194]";TAB(38)"[194]"
400 PRINT"[194][154]  RETURN [146]     = EINGABE-ENDE";SPC(9)"[194]":PRINT"[194]";TAB(38)"[194]"
402 PRINT"[194][150]  E + RETURN [146] = PRG.-ENDE";SPC(12)"[194]":PRINT"[194]";TAB(38)"[194]"
405 PRINT"[173]";:FORB=1TO37:PRINT"[195]";:NEXT:PRINT"[189]"
410 POKE53265,27
420 K$="":INPUT"[156]          WELCHE KATEGORIE ";K$
430 IFK$=""THEN590
435 IFK$="E"ANDSA=0THEN590
440 IFK$="E"THENEND
450 A=VAL(K$):IFA<1ORA>5THENPRINT"[145][145][145]":GOTO420
460 PRINT"[147]"TAB(9)"RETURN [146] [158]= EINGABE-ENDE[153]":E1=0
470 PRINT"BEI NAMENSANZEIGE: SPACE = O.K.":PRINTTAB(19)"F1    = WEITERSUCHEN"
480 D$="":INPUT"[156]NAME   ";D$
490 IFD$=""THEN390
500 FORT=1TO100
510 IFLEFT$(X$(A,T),LEN(D$))=D$THEN30
520 IFX$(A,T)="/"THENE1=T:T=100:X$(A,E1)=D$:PRINT""X$(A,E1)
530 NEXTT
535 IFE1=0THENPRINT"[158]DATEI VOLL! - KEINE EINGABE MEHR MOEGLICH!":GOSUB80:GOTO390
540 PL$="":INPUT"PLATZ ";PL$:PL=VAL(PL$):IFPL>5THENPRINT"[145][145][145]":GOTO540
550 IFPL>0THENPU=6-PL:SA=0
560 IFPL=0THENPU=0
570 X(A,E1)=X(A,E1)+PU
580 GOTO480
590 PRINT"[147][151]ICH SORTIERE! - MOMENT BITTE!"
600 FORT=1TO5:PRINT"";T
610 F5=0
620 FORZ=1TO99:PRINT"[154]";Z
630 IFX(T,Z)>=X(T,Z+1)THEN680
640 H$=X$(T,Z):H=X(T,Z)
650 X(T,Z)=X(T,Z+1):X$(T,Z)=X$(T,Z+1)
660 X$(T,Z+1)=H$:X(T,Z+1)=H
670 F5=1:REM SYS46374 RUFT DIE 'GARBAGE                       COLLECTION' AUF...
680 NEXTZ
690 IFF5=1THEN610
700 NEXTT
705 GOSUB195
710 GOSUB70:AN=0:OPEN15,L,15,"S:DATEN":CLOSE15
720 OPEN2,L,2,"DATEN,S,W":GOSUB90:IFAA<>0THEN710
730 FORV=1TO5:FORW=1TO100:PRINT"[159]"V;:IFW<10THENPRINT" ";
740 IFW<100THENPRINT" ";
750 PRINT"[150]"W
760 IFX(V,W)=0THENX$(V,W)="/"
770 IFX$(V,W)=""THENX$(V,W)="/"
780 PRINT#2,X$(V,W):PRINT#2,X(V,W)
790 GOSUB100:IFAA<>0THEN710
800 NEXTW
810 NEXTV
820 CLOSE2:CLOSE15:SA=1:IFK$="E"THEN390
825 IFDA$="N"THENDA$="":GOTO280
830 PRINT"[147]";:AU=3
835 OPEN1,AU
840 FORT=1TO5:PRINT#1,"[153]"A$(T)"[146][158]":PRINT#1:PL=1
850 FORZ=1TO100:IFZ>1THENIFX(T,Z)<X(T,Z-1)ANDX$(T,Z)<>"/"THENPRINT#1,PL;
860 IFZ=1ANDX$(T,1)<>"/"THENPRINT#1,PL;
870 IFX$(T,Z)="/"THENZ=100:FORLI=1TO39:PRINT#1,"[195]";:NEXT:PRINT#1:K1=1:GOTO890
880 PRINT#1,,X(T,Z),X$(T,Z):IFAU=3THENIFZ/21=INT(Z/21)THENGOSUB80:PRINT#1,"[147]";
890 IFK1=1THENK1=0:IFAU=3THENGOSUB80:PRINT#1,"[147]"
900 PL=PL+1:IFST=-128THENGOSUB210:IFAB$="E"THEN390
905 NEXTZ
910 NEXTT:IFAU=4THENPRINT#1:AU=3:GOTO950
920 CLOSE1:PRINT" DRUCKEN?"
930 GETDR$:IFDR$<>"J"ANDDR$<>"N"THEN930
940 IFDR$="J"THENAU=4:GOSUB200:IFAB$<>"E"THENPRINT"[147] ICH DRUCKE!":GOTO835
950 CLOSE1:GOTO390
960 REM       -- QUICKSORT --
970 ONSFGOTO990
980 DIMS1(55),S2(55):SF=1
990 FORK=1TO5:PRINT""K:SN=99:SP=0
1000 S1(0)=0:S2(0)=SN
1010 S1=S1(SP):S2=S2(SP)
1020 SP=SP-1
1030 L1=S1:L2=S2
1040 SD=X(K,(S1+S2)/2)
1050 IFX(K,L1)>SDANDL1<S2THENL1=L1+1:GOTO1050
1060 IFX(K,L2)<SDANDL2>S1THENL2=L2-1:GOTO1060
1070 IFL1>L2THEN1110
1080 SV=X(K,L1):X(K,L1)=X(K,L2):X(K,L2)=SV
1090 SV$=X$(K,L1):X$(K,L1)=X$(K,L2):X$(K,L2)=SV$
1100 L1=L1+1:L2=L2-1:PRINT""L1,L2
1110 IFL1<=L2THEN1050
1120 IFS2-L1<=L2-S1THEN1150
1130 IFS1<L2THENSP=SP+1:S1(SP)=S1:S2(SP)=L2
1140 S1=L1:GOTO1170
1150 IFL1<S2THENSP=SP+1:S1(SP)=L1:S2(SP)=S2
1160 S2=L2
1170 IFS2>S1THEN1030
1180 IFSP>-1THEN1010
1190 NEXT
1200 RETURN