10 REM---------------------------------
20 REM
30 REM   MDATAILBOX BEARBEITUNG V2.6
40 REM
50 REM  (C) COPYRIGHT BY PADDLE-SOFT
60 REM         OKTOBER 1985
70 REM---------------------------------
80 CLR:F1=8:F2=8:POKE53272,23
90 SP$="                                     "
100 DIMNA$(250),PA$(250),A(250)
105 DIMME$(10,9),TY(9,9),SS$(140),MN$(9,9)
110 POKE 53280,2:POKE53281,2:PRINTCHR$(144)
111 PRINT"[147]":PRINT"               [193][195][200][212][213][206][199]             [146]"
112 PRINT:PRINT"    [213]NBEDINGT [198]ASTLOAD AUSSCHALTEN !!!"
113 PRINT:PRINT"      [196]IESES PROGRAMM ARBEITET MIT"
114 PRINT"           RELATIVEN [196]ATEIEN !"
115 PRINT:PRINT:PRINT"      [198]ASTLOAD KANN DAS NICHT !!!"
116 PRINT:PRINT:PRINT:PRINT:PRINT:INPUT"      [206]OCHMALS ANFANGEN?  (J/N)";E$
117 PRINT"[147]":POKE 53280,6:POKE 53281,6:PRINTCHR(5)
118 IF E$="J"THEN:END
120 POKE53280,15:POKE53281,12:POKE646,6
130 FORX=1TO10:READMB$(X):NEXT
140 PRINT"[147]          [205]AILBOX [194]EARBEITUNG          [146]":FORX=1TO10
150 PRINTTAB(5)MB$(X)"":NEXTX
160 WAIT198,1:GETA$
170 A=VAL(A$)
180 CLOSE1:OPEN1,F1,15,"I":CLOSE1
190 IFF2<>F1THENOPEN1,F2,15,"I":CLOSE1
200 ONAGOSUB2000,900,2350,370,2840,3060,3280,8000,9000
210 GOTO140
220 REM
230 REM-----DATAS--------------------
240 REM
250 DATA"[158][208]ASSWOERTER [213][199] EDITIEREN..1"
260 DATA"[205]ENUMACHER................2"
270 DATA"[144][210]ENAMING,[211]CRATCHING.......3"
280 DATA"[201]NSTALL..................(4)"
290 DATA"[196]IRECTORY.................5"
300 DATA"[213]SER-[204]OESCHEN.............6"
310 DATA"[213]SERL.+[208]ASSW. ANSEHEN.....7"
317 DATA"[144][213]SERLISTE.................8"
319 DATA"[200]ACKERPASS ZEIGEN.........9"
320 DATA"[196]ATENDISKETTE(N) EINLEGEN"
340 REM
350 REM-----INSTALL--------------------
360 REM
370 PRINT"[147]              [201]NSTALL                  [146]":CLOSE2
380 PRINT"[193]CHTUNG: [206]UR AM [212]AGE 00 BENUTZEN!"
390 PRINT"[215]OLLEN [211]IE [201]NSTALLIEREN ? (J/N)":WAIT198,1:GETA$:IFA$<>"J"THENRETURN
400 PRINT""SP$:PRINT""SP$:PRINT"[206]UR [203]LEINBUCHSTABEN!"
410 INPUT"[201]HR [208]SEUDONYM ";NA$:INPUT"[201]HR [208]ASSWORT  ";PA$
420 PRINT"MENUES     EINLESEN."
430 PRINT"[201]NSTALL [198]ILES:"
440 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
450 CLOSE1:OPEN1,F2,3,"MENUES,S,R"
460 INPUT#1,A$:IFA$=CHR$(255)THEN560
470 INPUT#1,X,Y,Z:IFZ=4THEN520
480 IFZ=12THENOPEN2,F1,4,A$+",S,W":PRINT#2,"[204]EER":PRINTX"[157]"RIGHT$(STR$(Y),1)"/";
490 IFZ=3THENOPEN2,F1,4,A$+",S,W":PRINT#2,CHR$(255):PRINTX"[157]"RIGHT$(STR$(Y),1)"/";
500 CLOSE2:GOTO460
510 REM-------------------------------
520 OPEN2,F1,4,A$+",S,W"
530 PRINT#2,"ZEITLOS":PRINT#2,"SYSOP":PRINT#2,CHR$(13)+"FILE INIT"+CHR$(13)
540 PRINT#2,CHR$(255):CLOSE2:PRINTX"[157]"RIGHT$(STR$(Y),1)"/";:GOTO460
550 REM-------------------------------
560 PRINT:PRINT"[193]NFANG      INSTALL."
570 CLOSE1:OPEN2,F2,4,"ANFANG,S,W":PRINT#2,CHR$(255):CLOSE2
580 REM-------------------------------
590 PRINT"USERLISTE   INSTALL."
600 PRINT"ULIST.INDEX INSTALL."
610 OPEN2,F2,3,"USERLISTE,S,W":PRINT#2,NA$:PRINT#2,1:CLOSE2
620 OPEN2,F2,3,"ULIST.INDEX,S,W"
630 PRINT#2,1:CLOSE2
640 REM-------------------------------
650 REM
660 OPEN2,F2,3,"PROTOKOL,S,W":CLOSE2
670 REM-------------------------------
680 PRINT"ANMELDUNG   INSTALL."
690 OPEN2,F2,3,"ANMELDUNG,S,W"
700 PRINT#2,"[204]EER":CLOSE2
710 CLOSE1:OPEN1,F2,3,"USERFILE,S,W":PRINT#1,"*":CLOSE1
720 OPEN1,F2,3,"[204]EER,S,W":PRINT#1,CHR$(255):CLOSE1
730 REM-------------------------------
740 REM
810 CLOSE3:CLOSE1
820 REM-------------------------------
830 PRINT"CALLERS     INSTALL."
840 OPEN2,F2,3,"@:CALLERS,S,W":PRINT#2,1
850 REM-------------------------------
860 PRINT"USERGROUPS  INSTALL."
870 CLOSE2:GOSUB1730
875 OPEN2,F2,3,"@:HACKERPASS,S,W":PRINT#2,CHR$(255):CLOSE2
877 OPEN2,F2,3,"@:FILEBOX,S,W":PRINT#2,CHR$(255):PRINT#2,CHR$(255):CLOSE2
880 OPEN2,F2,3,"@:ANLEITUNG,S,W":PRINT#2,CHR$(255):CLOSE2
882 OPEN2,F2,3,"@:FILES,S,W":PRINT#2,CHR$(255):CLOSE2
884 OPEN2,F2,15,"S:USERLISTE.*":PRINT#2,"C:USERLISTE.BACKUP=USERLISTE":CLOSE2
886 OPEN2,F2,2,"@:MECKERECKE,S,W":PRINT#2,CHR$(255):CLOSE2
888 OPEN2,F2,2,"MISTHAUFEN,S,W":CLOSE2:RETURN
890 REM-----MENUMACHER----------------
900 REM
910 PRINT"[147]              [205]ENUMACHER                [146]":CLOSE1:CLOSE15
920 PRINT"MENUES EINLESEN."
930 OPEN1,F2,3,"MENUES,S,R":OPEN15,F2,15
940 INPUT#15,C,S$,D,F:IFC<>0THENIN=1:GOTO980
950 INPUT#1,ME$:IFME$=CHR$(255)THEN980
960 INPUT#1,A,B,TY:ME$(A,B)=ME$:TY(A,B)=TY:GOTO950
970 REM-------------------------------
980 CLOSE15:CLOSE1:PRINT"[147]              [205]ENUMACHER                [146]":CLOSE1
990 Z=0:PRINT"[206]R"TAB(3)"[201]NHALT"TAB(35)"[198]KT."
1000 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1010 FORA=1TO9:FORB=0TO9
1020 IFME$(A,B)<>""THENPRINTME$(A,B)TAB(34)TY(A,B):Z=Z+1:IFZ>13THENGOSUB1490
1030 NEXTB:IFME$(A+1,0)<>""THENPRINT:Z=Z+1:IFZ>13THENGOSUB1490
1040 NEXTA
1050 PRINT"[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][164][164][164][164][164][164][164][164]":PRINT
1060 PRINT"[L]ESEN[160][E]DIT[160][S]CRATCH[160][M]OVE  [Q]UIT"
1070 WAIT198,1:GETX$
1080 IFX$="L"ORX$=CHR$(13)THEN980
1090 IFX$="M"THEN1600
1100 IFX$="E"THEN1150
1110 IFX$="S"THEN1400
1120 IFX$="Q"THEN1320
1130 GOTO1070
1140 REM-------------------------------
1150 GOSUB1550:IFFL=1THEN980
1160 L=LEN(ME$(A,B)):IFL<3THENL=3
1170 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193]LT>[160]"RIGHT$(ME$(A,B),L-3)LEFT$(SP$,37-L):N$=ME$(A,B)
1180 INPUT"[206]AME:";ME$(A,B)
1190 INPUT"[198][203][212]-[206]R:";TY(A,B)
1200 ME$(A,B)=MID$(STR$(A),2,1)+MID$(STR$(B),2,1)+" "+ME$(A,B)
1210 PRINT"[145][145][145]"SP$:PRINTSP$:PRINTSP$:PRINT"[145][145][145][145]";:IFIN=1THEN1150
1220 CLOSE1:IFL=3THEN1240
1230 OPEN1,F1,15,"S:"+N$:CLOSE1
1240 IFTY(A,B)=4THEN1280
1250 IFTY(A,B)=12THENOPEN1,F2,4,ME$(A,B)+",S,W":PRINT#1,"[204]EER":CLOSE1
1260 IFTY(A,B)=3THENOPEN1,F1,4,ME$(A,B)+",S,W":PRINT#1,CHR$(255):CLOSE1
1270 GOTO1150
1280 OPEN1,F1,4,ME$(A,B)+",S,W"
1290 PRINT#1,"ZEITLOS":PRINT#1,"SYSOP":PRINT#1,CHR$(13)+"FILE[160]INIT"+CHR$(13)
1300 PRINT#1,CHR$(255):CLOSE1:GOTO1150
1310 REM-------------------------------
1320 CLOSE15:OPEN15,F2,15,"S:MENUES"
1330 CLOSE1:OPEN1,F2,3,"MENUES,S,W"
1340 FORA=1TO9:FORB=0TO9
1350 IFME$(A,B)<>""THENPRINT#1,ME$(A,B):PRINT#1,A:PRINT#1,B:PRINT#1,TY(A,B)
1360 NEXTB:NEXTA
1370 PRINT#1,CHR$(255):CLOSE1:CLOSE15
1380 RETURN
1390 REM-------------------------------
1400 FL=0:GOSUB1550:IFFL=1THEN980
1410 L=LEN(ME$(A,B)):IFL<3THENL=3
1420 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][206]AME>[160]"RIGHT$(ME$(A,B),L-3)LEFT$(SP$,34-L)
1430 TY=TY(A,B):PRINT"[211]ICHER (J/N)?":WAIT198,1:GETA$:IFA$<>"J"THEN1470
1440 TY(A,B)=0:N$=ME$(A,B):ME$(A,B)=""
1450 IF(TY<>3ANDTY<>4ANDTY<>8ANDTY<>12)ORIN=1THEN1470
1460 CLOSE1:OPEN1,F1,15,"S:"+N$:N$=""
1470 CLOSE1:GOTO980
1480 REM-------------------------------
1490 PRINT"[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][164][164][164][164][164][164][164][164]"
1500 PRINT:PRINTTAB(25)"<[195][210]>=WEITER":WAIT198,1:GETA$:
1510 PRINT"[147]              [205]ENUMACHER                [146]"
1520 Z=0:PRINT"[206]R"TAB(3)"[201]NHALT"TAB(35)"[198]KT."
1530 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":RETURN
1540 REM-------------------------------
1550 FL=0:PRINT"[211]EITENNUMMER >";:WAIT198,1:GETA$:PRINTA$;:A=VAL(A$)
1560 IFA=0THENFL=1:RETURN
1570 WAIT198,1:GETB$:PRINTB$;:B=VAL(B$)
1580 RETURN
1590 REM-------------------------------
1600 GOSUB1550:IFFL=1THEN980
1610 L=LEN(ME$(A,B)):IFL<3THENL=3
1620 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193]LT?[160]"ME$(A,B)LEFT$(SP$,34-L):N$=ME$(A,B):TY=TY(A,B)
1630 PRINTTAB(8)RIGHT$(ME$(A,B),L-3)
1640 INPUT"[145][206]EU";NS$
1650 ME$(A,B)="":TY(A,B)=0
1660 A=VAL(LEFT$(NS$,1)):B=VAL(MID$(NS$,2,1)):ME$(A,B)=NS$:TY(A,B)=TY
1670 IF(TY<>3ANDTY<>4ANDTY<>8ANDTY<>12)ORIN=1THEN1690
1680 OPEN15,F1,15,"R:"+NS$+"="+N$:INPUT#15,C,S$,D,F:CLOSE15
1690 PRINT"[145][145][145]"SP$:PRINTSP$:PRINTSP$:PRINT"[145][145][145]";:GOTO980
1700 REM
1710 REM-----USERGROUP INIT------------
1720 REM
1730 CLOSE1:OPEN1,F2,15,"S:USERGROUPS"
1740 GOSUB1860
1750 RN=100:P=1:I$=CHR$(255):GOSUB1840:CLOSE1:CLOSE3
1760 GOSUB1860
1770 P=1:I$="\":FORRN=1TO99:GOSUB1840:NEXTRN
1780 P=22:I$="0":FORRN=1TO99:GOSUB1840:NEXTRN
1790 P=18:I$="\":FORRN=10TO99STEP10:GOSUB1840:NEXTRN
1800 P=1:I$="REMOTE":FORRN=19TO99STEP10:GOSUB1840:NEXTRN
1810 P=22:I$="3":FORRN=19TO99STEP10:GOSUB1840:NEXTRN
1820 CLOSE1:CLOSE3:RETURN
1830 REM------------------------------
1840 PRINT#3,"P"+CHR$(3)+CHR$(RN)+CHR$(0)+CHR$(P):PRINT#1,I$:RETURN
1850 REM-----------------------------
1860 CLOSE1:CLOSE3
1870 OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25)
1880 OPEN3,F2,15:RETURN
1890 REM FIND USER
1900 FORX=0TOAU
1910 IFSB$=NA$(X)THENFF=0:RETURN
1920 NEXT:FF=1
1930 RETURN
1970 REM
1980 REM-----PASSWOERTER UG----------
1990 REM
2000 PRINT"[147]       [208]ASSWOERTER [213][199] EDITIEREN        [146]"
2010 PRINT"USERGROUPS  EINLESEN."
2020 CLOSE3:CLOSE1:OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):OPEN3,F2,15
2030 FORUN=1TO9:GOSUB2220:INPUT#1,UG$(UN):NEXTUN
2040 FORUN=1TO9:GOSUB2240:INPUT#1,RP$(UN):NEXTUN
2050 PRINT"[147]       [208]ASSWOERTER [213][199] EDITIEREN        [146]"
2060 PRINT" [206]R"TAB(5)"[213]SERGROUP"TAB(23)"[210]EMOTE"
2070 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2080 FORX=1TO9:PRINTXTAB(5)UG$(X)TAB(23)RP$(X):NEXTX
2090 PRINT"[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][164][164][164][164][164][164]"
2100 PRINT"[?] [213]SERGROUPNUMMER        [[197]] [197]XIT >":WAIT198,1:GETA$
2110 A=VAL(A$):IFA$="E"ORA$="[197]"THENCLOSE1:CLOSE3:RETURN
2120 IFA=0THENA=1
2130 PRINT"[206]UR [203]LEINBUCHSTABEN!"
2140 PRINT"[213][199]-[208]ASSWORT  "UG$(A)
2150 INPUT"[145]";UG$(A)
2160 IFLEN(UG$(A))>16THEN2150
2170 PRINT"[210][205]-[208]ASSWORT  "RP$(A)
2180 INPUT"[145]";RP$(A)
2190 IFLEN(RP$(A))>6THEN2180
2200 UN=A:GOSUB2220:PRINT#1,UG$(A):GOSUB2240:PRINT#1,RP$(A):GOTO2050
2210 REM------------------------------
2220 PRINT#3,"P"+CHR$(3)+CHR$(UN*10)+CHR$(0)+CHR$(1):RETURN
2230 REM-----------------------------
2240 PRINT#3,"P"+CHR$(3)+CHR$(UN*10)+CHR$(0)+CHR$(18):RETURN
2250 Z=Z0:M=Z-1:Z=2^Z:X=Z/2:
2260 IFM<0THENFF=1:RETURN
2270 M=M-1:IFX>AUTHENX=X-2^M:GOTO2260
2280 IFSB$=NA$(X)THENFF=0:RETURN
2290 IFSB$<NA$(X)THENX=X-2^M:GOTO2260
2300 X=X+2^M:IFX>ZTHENFF=1:RETURN
2310 GOTO2260
2320 REM
2330 REM-----RENAMSING SCRATCHING------
2340 REM
2350 PRINT"[147]         [210]ENAMING,[211]CRATCHING           [146]":FR=0
2360 PRINT"[211]OLL EIN CHR$(255) ANGEHAENGT WERDEN ?";:WAIT198,1:GETB$:PRINTB$
2370 IFB$="J"THENFR=1
2380 PRINT"MENUES    EINLESEN."
2390 CLOSE1:OPEN1,F2,4,"MENUES,S,R"
2400 INPUT#1,A$:IFA$=CHR$(255)THEN2420
2410 INPUT#1,Z1,Z2,Z3:MN$(Z1,Z2)=A$:TY(Z1,Z2)=Z3:GOTO2400
2420 CLOSE1:CLOSE15:CLOSE2
2430 PRINT"DIRECTORY EINLESEN.":POKE198,0:WAIT198,1
2440 REM------------------------------
2450 OPEN15,F1,15,"I":OPEN2,F1,2,"#"
2460 T=18:S=1:F=0:ZS=1
2470 PRINT#15,"U1:2 0"T;S
2480 GET#2,A$:GET#2,A$
2490 S=ASC(A$+CHR$(0)):FORI=1TO8
2500 PRINT#15,"B-P 2"I*32+2
2510 GET#2,A$:IFA$<>CHR$(129)THEN2560
2520 PRINT#15,"B-P 2"I*32+5
2530 F$="":FORJ=1TO16:GET#2,A$
2540 F$=F$+A$:NEXTJ
2550 IFLEFT$(F$,1)="("ANDMID$(F$,4,1)=")"THENSS$(ZS)=F$:ZS=ZS+1
2560 NEXTI:IFS<19THEN2470
2570 ZS=ZS-1:CLOSE2:CLOSE15
2580 REM-----------------------------
2590 IFSS$(1)=""ANDZS<2THEN2720
2600 PRINT"[198]ILES:":PRINT"[163][163][163][163][163]"
2610 CLOSE1:OPEN1,F1,15:FORX=1TOZS
2620 Z1$=MID$(SS$(X),2,1):Z2$=MID$(SS$(X),3,1):Z1=VAL(Z1$):Z2=VAL(Z2$)
2630 PRINT#1,"S:"+MN$(Z1,Z2)
2640 PRINT#1,"R:"+MN$(Z1,Z2)+"="+LEFT$(SS$(X),4):PRINTZ1$Z2$"/";:NEXTX:CLOSE1
2650 IFFR=0THEN2720
2660 FORX=1TOZS
2670 Z1$=MID$(SS$(X),2,1):Z2$=MID$(SS$(X),3,1):Z1=VAL(Z1$):Z2=VAL(Z2$)
2680 IFTY(Z1,Z2)<>3THEN2700
2690 OPEN1,F1,3,MN$(Z1,Z2)+",S,A":PRINT#1,CHR$(255):CLOSE1
2700 NEXTX:CLOSE1
2710 REM-----------------------------
2720 PRINT:PRINT"[206]OCH[160]ANDERE[160][198]ILES (VON [198]LOPPY"F1") ?":WAIT198,1:GETA$
2730 IFA$="J"ORA$="[202]"THEN2750
2740 RETURN
2750 INPUT"[211]EITENNAME";SN$
2760 INPUT"[208]SEUDONAME";PN$
2770 CLOSE1:OPEN1,F1,15,"S:"+SN$
2780 PRINT#1,"R:"+SN$+"="+PN$
2790 INPUT#1,C,S$,D,F:IFC<>0THENPRINT""S$:GOTO2820
2800 IFFR=0THEN2820
2810 CLOSE1:OPEN1,F1,3,SN$+",S,A":PRINT#1,CHR$(255)
2820 CLOSE1:GOTO2720
2830 REM-----------------------------
2840 PRINT"[147]          [211]EQ. [196]IRECTORY               [146]":CLOSE2:CLOSE15
2850 OPEN15,F1,15:OPEN2,F1,2,"#"
2860 T=18:S=1:F=0:PRINTTAB(10);:F8=0
2870 PRINT#15,"U1:2 0"T;S
2880 GET#2,A$:GET#2,A$
2890 S=ASC(A$+CHR$(0)):FORI=1TO8
2900 PRINT#15,"B-P 2"I*32+2
2910 GET#2,A$:IFA$<>CHR$(129)THEN2960
2920 PRINT#15,"B-P 2"I*32+5
2930 F$="":FORJ=1TO16:GET#2,A$
2940 PRINTA$;:NEXTJ
2950 PRINT:PRINTTAB(10);
2960 NEXTI:F8=F8+1:IFF8=2ANDS<19THEN3000
2970 IFS<19THEN2870
2980 CLOSE2:CLOSE15
2990 PRINTTAB(10)"[212]ASTE DRUECKEN.":WAIT198,1:GETA$:RETURN
3000 PRINTTAB(10)"[212]ASTE DRUECKEN."
3010 PRINTTAB(10)"[205]IT <[195][210]> ABBRECHEN.":WAIT198,1:GETA$
3020 IFA$=CHR$(13)THENCLOSE2:CLOSE15:RETURN
3030 PRINT"[147]          [211]EQ. [196]IRECTORY               [146]":PRINTTAB(10);
3040 F8=0:GOTO2970
3050 REM-------------------------------
3060 PRINT"[147]              [213]SER-[204]OESCHEN          [146]"
3070 X=0
3080 OPEN1,F2,3,"ULIST.INDEX,S,R":INPUT#1,UO:CLOSE1:OPEN3,F2,4,"USERLISTE,S,R"
3090 X=X+1:INPUT#3,NA$(X),PA$(X):IFST=0THEN3090
3100 CLOSE3:AU=X:A1=AU:GOTO3140
3140 AU=A1:CLOSE1:CLOSE3:OPEN3,F2,15
3150 PRINT"[147]              [213]SER-[204]OESCHEN          [146]"
3160 INPUT"[213]SERNAME[160]>";A$:IFLEN(A$)>20THEN3150
3170 IFA$=""THEN3240
3180 SB$=A$:GOSUB1890:IFFF=1THENPRINT"[213]SER EXISTIERT NICHT.":A$="":GOTO3150
3190 PRINT"[204]OESCHE[160]";A$;"."
3200 NI=VAL(PA$(X))
3210 FORY=XTOAU+1:NA$(Y)=NA$(Y+1):PA$(Y)=PA$(Y+1):NEXTY:AU=AU-1
3220 PRINT#3,"S:\"+SB$
3230 A$="":GOTO3150
3240 CLOSE1:PRINT#3,"S:USERLISTE,ULIST.INDEX":CLOSE3
3250 CLOSE1:OPEN1,F2,3,"USERLISTE,S,W":FORX=1TOAU
3260 PRINT#1,NA$(X):PRINT#1,PA$(X):NEXTX:CLOSE1
3270 OPEN1,F2,5,"ULIST.INDEX,S,W":PRINT#1,AU:CLOSE1:RETURN
3280 PRINT"[147]           [213]SERLISTE ANSEHEN          [146]"
3290 CLOSE2:OPEN2,F2,4,"USERLISTE,S,R":CLOSE1:CLOSE3:MM=0
3300 OPEN3,F2,15
3305 DR=0:INPUT"[193]UF [196]RUCKER[160]>(J/N)";A$
3307 IFA$="J"ORA$="[202]"THENCLOSE4:OPEN4,4,7:DR=1
3308 IFDR=1THENPRINT#4,"[213]SERNAME             [208]ASSWORT"
3309 IFDR=1THENPRINT#4,"========================================"
3310 PRINT"[213]SERNAME             [208]ASSWORT"
3315 PRINT"                                  "
3320 PRINT"======================================="
3330 INPUT#2,NA$:INPUT#2,PA$
3340 IFST=64THENMM=1
3360 IFPEEK(198)=1THENMM=1:GOTO3380
3370 PRINTNA$;TAB(21)PA$
3376 IFDR=1THEN4000
3380 IFMM=1THENCLOSE1:CLOSE2:CLOSE3:POKE198,0:WAIT198,1:POKE198,0:RETURN
3390 GOTO3330
4000 PRINT#4,NA$;
4010 PRINT#4,CHR$(16)"21"PA$;
4030 PRINT#4,CHR$(16)"42"LA$
4040 GOTO3380
8000 PRINT"[147]            [213]SERLISTE                   [146]"
8010 OPEN2,8,2,"USERLISTE,S,R":PRINT:PRINT:PRINT:PRINT
8020 X=X+1:INPUT#2,A$:INPUT#2,B$:PRINTA$:IFST<>64THEN8020
8040 PRINT"[144][212]ASTE":POKE198,0:WAIT 198,1:CLOSE2:POKE198,0:RETURN
9000 PRINT"[147]            [200]ACKERPASS                  [146]"
9010 OPEN2,8,2,"HACKERPASS,S,R":PRINT:PRINT:PRINT:PRINT
9020 INPUT#2,A$:PRINTA$:IFST<>64 AND A$<>"="THEN9020
9040 PRINT"[144][212]ASTE":POKE198,0:WAIT 198,1:CLOSE2:POKE198,0:RETURN