home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh31.d64 / bearbeitung (.txt) next >
Commodore BASIC  |  1995-03-30  |  11KB  |  361 lines
  1. 10 REM---------------------------------
  2. 20 REM
  3. 30 REM   MDATAILBOX BEARBEITUNG V2.6
  4. 40 REM
  5. 50 REM  (C) COPYRIGHT BY PADDLE-SOFT
  6. 60 REM         OKTOBER 1985
  7. 70 REM---------------------------------
  8. 80 CLR:F1=8:F2=8:POKE53272,23
  9. 90 SP$="                                     "
  10. 100 DIMNA$(250),PA$(250),A(250)
  11. 105 DIMME$(10,9),TY(9,9),SS$(140),MN$(9,9)
  12. 110 POKE 53280,2:POKE53281,2:PRINTCHR$(144)
  13. 111 PRINT"[147]":PRINT"               [193][195][200][212][213][206][199]             [146]"
  14. 112 PRINT:PRINT"    [213]NBEDINGT [198]ASTLOAD AUSSCHALTEN !!!"
  15. 113 PRINT:PRINT"      [196]IESES PROGRAMM ARBEITET MIT"
  16. 114 PRINT"           RELATIVEN [196]ATEIEN !"
  17. 115 PRINT:PRINT:PRINT"      [198]ASTLOAD KANN DAS NICHT !!!"
  18. 116 PRINT:PRINT:PRINT:PRINT:PRINT:INPUT"      [206]OCHMALS ANFANGEN?  (J/N)";E$
  19. 117 PRINT"[147]":POKE 53280,6:POKE 53281,6:PRINTCHR(5)
  20. 118 IF E$="J"THEN:END
  21. 120 POKE53280,15:POKE53281,12:POKE646,6
  22. 130 FORX=1TO10:READMB$(X):NEXT
  23. 140 PRINT"[147]          [205]AILBOX [194]EARBEITUNG          [146]":FORX=1TO10
  24. 150 PRINTTAB(5)MB$(X)"":NEXTX
  25. 160 WAIT198,1:GETA$
  26. 170 A=VAL(A$)
  27. 180 CLOSE1:OPEN1,F1,15,"I":CLOSE1
  28. 190 IFF2<>F1THENOPEN1,F2,15,"I":CLOSE1
  29. 200 ONAGOSUB2000,900,2350,370,2840,3060,3280,8000,9000
  30. 210 GOTO140
  31. 220 REM
  32. 230 REM-----DATAS--------------------
  33. 240 REM
  34. 250 DATA"[158][208]ASSWOERTER [213][199] EDITIEREN..1"
  35. 260 DATA"[205]ENUMACHER................2"
  36. 270 DATA"[144][210]ENAMING,[211]CRATCHING.......3"
  37. 280 DATA"[201]NSTALL..................(4)"
  38. 290 DATA"[196]IRECTORY.................5"
  39. 300 DATA"[213]SER-[204]OESCHEN.............6"
  40. 310 DATA"[213]SERL.+[208]ASSW. ANSEHEN.....7"
  41. 317 DATA"[144][213]SERLISTE.................8"
  42. 319 DATA"[200]ACKERPASS ZEIGEN.........9"
  43. 320 DATA"[196]ATENDISKETTE(N) EINLEGEN"
  44. 340 REM
  45. 350 REM-----INSTALL--------------------
  46. 360 REM
  47. 370 PRINT"[147]              [201]NSTALL                  [146]":CLOSE2
  48. 380 PRINT"[193]CHTUNG: [206]UR AM [212]AGE 00 BENUTZEN!"
  49. 390 PRINT"[215]OLLEN [211]IE [201]NSTALLIEREN ? (J/N)":WAIT198,1:GETA$:IFA$<>"J"THENRETURN
  50. 400 PRINT""SP$:PRINT""SP$:PRINT"[206]UR [203]LEINBUCHSTABEN!"
  51. 410 INPUT"[201]HR [208]SEUDONYM ";NA$:INPUT"[201]HR [208]ASSWORT  ";PA$
  52. 420 PRINT"MENUES     EINLESEN."
  53. 430 PRINT"[201]NSTALL [198]ILES:"
  54. 440 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  55. 450 CLOSE1:OPEN1,F2,3,"MENUES,S,R"
  56. 460 INPUT#1,A$:IFA$=CHR$(255)THEN560
  57. 470 INPUT#1,X,Y,Z:IFZ=4THEN520
  58. 480 IFZ=12THENOPEN2,F1,4,A$+",S,W":PRINT#2,"[204]EER":PRINTX"[157]"RIGHT$(STR$(Y),1)"/";
  59. 490 IFZ=3THENOPEN2,F1,4,A$+",S,W":PRINT#2,CHR$(255):PRINTX"[157]"RIGHT$(STR$(Y),1)"/";
  60. 500 CLOSE2:GOTO460
  61. 510 REM-------------------------------
  62. 520 OPEN2,F1,4,A$+",S,W"
  63. 530 PRINT#2,"ZEITLOS":PRINT#2,"SYSOP":PRINT#2,CHR$(13)+"FILE INIT"+CHR$(13)
  64. 540 PRINT#2,CHR$(255):CLOSE2:PRINTX"[157]"RIGHT$(STR$(Y),1)"/";:GOTO460
  65. 550 REM-------------------------------
  66. 560 PRINT:PRINT"[193]NFANG      INSTALL."
  67. 570 CLOSE1:OPEN2,F2,4,"ANFANG,S,W":PRINT#2,CHR$(255):CLOSE2
  68. 580 REM-------------------------------
  69. 590 PRINT"USERLISTE   INSTALL."
  70. 600 PRINT"ULIST.INDEX INSTALL."
  71. 610 OPEN2,F2,3,"USERLISTE,S,W":PRINT#2,NA$:PRINT#2,1:CLOSE2
  72. 620 OPEN2,F2,3,"ULIST.INDEX,S,W"
  73. 630 PRINT#2,1:CLOSE2
  74. 640 REM-------------------------------
  75. 650 REM
  76. 660 OPEN2,F2,3,"PROTOKOL,S,W":CLOSE2
  77. 670 REM-------------------------------
  78. 680 PRINT"ANMELDUNG   INSTALL."
  79. 690 OPEN2,F2,3,"ANMELDUNG,S,W"
  80. 700 PRINT#2,"[204]EER":CLOSE2
  81. 710 CLOSE1:OPEN1,F2,3,"USERFILE,S,W":PRINT#1,"*":CLOSE1
  82. 720 OPEN1,F2,3,"[204]EER,S,W":PRINT#1,CHR$(255):CLOSE1
  83. 730 REM-------------------------------
  84. 740 REM
  85. 810 CLOSE3:CLOSE1
  86. 820 REM-------------------------------
  87. 830 PRINT"CALLERS     INSTALL."
  88. 840 OPEN2,F2,3,"@:CALLERS,S,W":PRINT#2,1
  89. 850 REM-------------------------------
  90. 860 PRINT"USERGROUPS  INSTALL."
  91. 870 CLOSE2:GOSUB1730
  92. 875 OPEN2,F2,3,"@:HACKERPASS,S,W":PRINT#2,CHR$(255):CLOSE2
  93. 877 OPEN2,F2,3,"@:FILEBOX,S,W":PRINT#2,CHR$(255):PRINT#2,CHR$(255):CLOSE2
  94. 880 OPEN2,F2,3,"@:ANLEITUNG,S,W":PRINT#2,CHR$(255):CLOSE2
  95. 882 OPEN2,F2,3,"@:FILES,S,W":PRINT#2,CHR$(255):CLOSE2
  96. 884 OPEN2,F2,15,"S:USERLISTE.*":PRINT#2,"C:USERLISTE.BACKUP=USERLISTE":CLOSE2
  97. 886 OPEN2,F2,2,"@:MECKERECKE,S,W":PRINT#2,CHR$(255):CLOSE2
  98. 888 OPEN2,F2,2,"MISTHAUFEN,S,W":CLOSE2:RETURN
  99. 890 REM-----MENUMACHER----------------
  100. 900 REM
  101. 910 PRINT"[147]              [205]ENUMACHER                [146]":CLOSE1:CLOSE15
  102. 920 PRINT"MENUES EINLESEN."
  103. 930 OPEN1,F2,3,"MENUES,S,R":OPEN15,F2,15
  104. 940 INPUT#15,C,S$,D,F:IFC<>0THENIN=1:GOTO980
  105. 950 INPUT#1,ME$:IFME$=CHR$(255)THEN980
  106. 960 INPUT#1,A,B,TY:ME$(A,B)=ME$:TY(A,B)=TY:GOTO950
  107. 970 REM-------------------------------
  108. 980 CLOSE15:CLOSE1:PRINT"[147]              [205]ENUMACHER                [146]":CLOSE1
  109. 990 Z=0:PRINT"[206]R"TAB(3)"[201]NHALT"TAB(35)"[198]KT."
  110. 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]"
  111. 1010 FORA=1TO9:FORB=0TO9
  112. 1020 IFME$(A,B)<>""THENPRINTME$(A,B)TAB(34)TY(A,B):Z=Z+1:IFZ>13THENGOSUB1490
  113. 1030 NEXTB:IFME$(A+1,0)<>""THENPRINT:Z=Z+1:IFZ>13THENGOSUB1490
  114. 1040 NEXTA
  115. 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
  116. 1060 PRINT"[L]ESEN[160][E]DIT[160][S]CRATCH[160][M]OVE  [Q]UIT"
  117. 1070 WAIT198,1:GETX$
  118. 1080 IFX$="L"ORX$=CHR$(13)THEN980
  119. 1090 IFX$="M"THEN1600
  120. 1100 IFX$="E"THEN1150
  121. 1110 IFX$="S"THEN1400
  122. 1120 IFX$="Q"THEN1320
  123. 1130 GOTO1070
  124. 1140 REM-------------------------------
  125. 1150 GOSUB1550:IFFL=1THEN980
  126. 1160 L=LEN(ME$(A,B)):IFL<3THENL=3
  127. 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)
  128. 1180 INPUT"[206]AME:";ME$(A,B)
  129. 1190 INPUT"[198][203][212]-[206]R:";TY(A,B)
  130. 1200 ME$(A,B)=MID$(STR$(A),2,1)+MID$(STR$(B),2,1)+" "+ME$(A,B)
  131. 1210 PRINT"[145][145][145]"SP$:PRINTSP$:PRINTSP$:PRINT"[145][145][145][145]";:IFIN=1THEN1150
  132. 1220 CLOSE1:IFL=3THEN1240
  133. 1230 OPEN1,F1,15,"S:"+N$:CLOSE1
  134. 1240 IFTY(A,B)=4THEN1280
  135. 1250 IFTY(A,B)=12THENOPEN1,F2,4,ME$(A,B)+",S,W":PRINT#1,"[204]EER":CLOSE1
  136. 1260 IFTY(A,B)=3THENOPEN1,F1,4,ME$(A,B)+",S,W":PRINT#1,CHR$(255):CLOSE1
  137. 1270 GOTO1150
  138. 1280 OPEN1,F1,4,ME$(A,B)+",S,W"
  139. 1290 PRINT#1,"ZEITLOS":PRINT#1,"SYSOP":PRINT#1,CHR$(13)+"FILE[160]INIT"+CHR$(13)
  140. 1300 PRINT#1,CHR$(255):CLOSE1:GOTO1150
  141. 1310 REM-------------------------------
  142. 1320 CLOSE15:OPEN15,F2,15,"S:MENUES"
  143. 1330 CLOSE1:OPEN1,F2,3,"MENUES,S,W"
  144. 1340 FORA=1TO9:FORB=0TO9
  145. 1350 IFME$(A,B)<>""THENPRINT#1,ME$(A,B):PRINT#1,A:PRINT#1,B:PRINT#1,TY(A,B)
  146. 1360 NEXTB:NEXTA
  147. 1370 PRINT#1,CHR$(255):CLOSE1:CLOSE15
  148. 1380 RETURN
  149. 1390 REM-------------------------------
  150. 1400 FL=0:GOSUB1550:IFFL=1THEN980
  151. 1410 L=LEN(ME$(A,B)):IFL<3THENL=3
  152. 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)
  153. 1430 TY=TY(A,B):PRINT"[211]ICHER (J/N)?":WAIT198,1:GETA$:IFA$<>"J"THEN1470
  154. 1440 TY(A,B)=0:N$=ME$(A,B):ME$(A,B)=""
  155. 1450 IF(TY<>3ANDTY<>4ANDTY<>8ANDTY<>12)ORIN=1THEN1470
  156. 1460 CLOSE1:OPEN1,F1,15,"S:"+N$:N$=""
  157. 1470 CLOSE1:GOTO980
  158. 1480 REM-------------------------------
  159. 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]"
  160. 1500 PRINT:PRINTTAB(25)"<[195][210]>=WEITER":WAIT198,1:GETA$:
  161. 1510 PRINT"[147]              [205]ENUMACHER                [146]"
  162. 1520 Z=0:PRINT"[206]R"TAB(3)"[201]NHALT"TAB(35)"[198]KT."
  163. 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
  164. 1540 REM-------------------------------
  165. 1550 FL=0:PRINT"[211]EITENNUMMER >";:WAIT198,1:GETA$:PRINTA$;:A=VAL(A$)
  166. 1560 IFA=0THENFL=1:RETURN
  167. 1570 WAIT198,1:GETB$:PRINTB$;:B=VAL(B$)
  168. 1580 RETURN
  169. 1590 REM-------------------------------
  170. 1600 GOSUB1550:IFFL=1THEN980
  171. 1610 L=LEN(ME$(A,B)):IFL<3THENL=3
  172. 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)
  173. 1630 PRINTTAB(8)RIGHT$(ME$(A,B),L-3)
  174. 1640 INPUT"[145][206]EU";NS$
  175. 1650 ME$(A,B)="":TY(A,B)=0
  176. 1660 A=VAL(LEFT$(NS$,1)):B=VAL(MID$(NS$,2,1)):ME$(A,B)=NS$:TY(A,B)=TY
  177. 1670 IF(TY<>3ANDTY<>4ANDTY<>8ANDTY<>12)ORIN=1THEN1690
  178. 1680 OPEN15,F1,15,"R:"+NS$+"="+N$:INPUT#15,C,S$,D,F:CLOSE15
  179. 1690 PRINT"[145][145][145]"SP$:PRINTSP$:PRINTSP$:PRINT"[145][145][145]";:GOTO980
  180. 1700 REM
  181. 1710 REM-----USERGROUP INIT------------
  182. 1720 REM
  183. 1730 CLOSE1:OPEN1,F2,15,"S:USERGROUPS"
  184. 1740 GOSUB1860
  185. 1750 RN=100:P=1:I$=CHR$(255):GOSUB1840:CLOSE1:CLOSE3
  186. 1760 GOSUB1860
  187. 1770 P=1:I$="\":FORRN=1TO99:GOSUB1840:NEXTRN
  188. 1780 P=22:I$="0":FORRN=1TO99:GOSUB1840:NEXTRN
  189. 1790 P=18:I$="\":FORRN=10TO99STEP10:GOSUB1840:NEXTRN
  190. 1800 P=1:I$="REMOTE":FORRN=19TO99STEP10:GOSUB1840:NEXTRN
  191. 1810 P=22:I$="3":FORRN=19TO99STEP10:GOSUB1840:NEXTRN
  192. 1820 CLOSE1:CLOSE3:RETURN
  193. 1830 REM------------------------------
  194. 1840 PRINT#3,"P"+CHR$(3)+CHR$(RN)+CHR$(0)+CHR$(P):PRINT#1,I$:RETURN
  195. 1850 REM-----------------------------
  196. 1860 CLOSE1:CLOSE3
  197. 1870 OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25)
  198. 1880 OPEN3,F2,15:RETURN
  199. 1890 REM FIND USER
  200. 1900 FORX=0TOAU
  201. 1910 IFSB$=NA$(X)THENFF=0:RETURN
  202. 1920 NEXT:FF=1
  203. 1930 RETURN
  204. 1970 REM
  205. 1980 REM-----PASSWOERTER UG----------
  206. 1990 REM
  207. 2000 PRINT"[147]       [208]ASSWOERTER [213][199] EDITIEREN        [146]"
  208. 2010 PRINT"USERGROUPS  EINLESEN."
  209. 2020 CLOSE3:CLOSE1:OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):OPEN3,F2,15
  210. 2030 FORUN=1TO9:GOSUB2220:INPUT#1,UG$(UN):NEXTUN
  211. 2040 FORUN=1TO9:GOSUB2240:INPUT#1,RP$(UN):NEXTUN
  212. 2050 PRINT"[147]       [208]ASSWOERTER [213][199] EDITIEREN        [146]"
  213. 2060 PRINT" [206]R"TAB(5)"[213]SERGROUP"TAB(23)"[210]EMOTE"
  214. 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]"
  215. 2080 FORX=1TO9:PRINTXTAB(5)UG$(X)TAB(23)RP$(X):NEXTX
  216. 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]"
  217. 2100 PRINT"[?] [213]SERGROUPNUMMER        [[197]] [197]XIT >":WAIT198,1:GETA$
  218. 2110 A=VAL(A$):IFA$="E"ORA$="[197]"THENCLOSE1:CLOSE3:RETURN
  219. 2120 IFA=0THENA=1
  220. 2130 PRINT"[206]UR [203]LEINBUCHSTABEN!"
  221. 2140 PRINT"[213][199]-[208]ASSWORT  "UG$(A)
  222. 2150 INPUT"[145]";UG$(A)
  223. 2160 IFLEN(UG$(A))>16THEN2150
  224. 2170 PRINT"[210][205]-[208]ASSWORT  "RP$(A)
  225. 2180 INPUT"[145]";RP$(A)
  226. 2190 IFLEN(RP$(A))>6THEN2180
  227. 2200 UN=A:GOSUB2220:PRINT#1,UG$(A):GOSUB2240:PRINT#1,RP$(A):GOTO2050
  228. 2210 REM------------------------------
  229. 2220 PRINT#3,"P"+CHR$(3)+CHR$(UN*10)+CHR$(0)+CHR$(1):RETURN
  230. 2230 REM-----------------------------
  231. 2240 PRINT#3,"P"+CHR$(3)+CHR$(UN*10)+CHR$(0)+CHR$(18):RETURN
  232. 2250 Z=Z0:M=Z-1:Z=2^Z:X=Z/2:
  233. 2260 IFM<0THENFF=1:RETURN
  234. 2270 M=M-1:IFX>AUTHENX=X-2^M:GOTO2260
  235. 2280 IFSB$=NA$(X)THENFF=0:RETURN
  236. 2290 IFSB$<NA$(X)THENX=X-2^M:GOTO2260
  237. 2300 X=X+2^M:IFX>ZTHENFF=1:RETURN
  238. 2310 GOTO2260
  239. 2320 REM
  240. 2330 REM-----RENAMSING SCRATCHING------
  241. 2340 REM
  242. 2350 PRINT"[147]         [210]ENAMING,[211]CRATCHING           [146]":FR=0
  243. 2360 PRINT"[211]OLL EIN CHR$(255) ANGEHAENGT WERDEN ?";:WAIT198,1:GETB$:PRINTB$
  244. 2370 IFB$="J"THENFR=1
  245. 2380 PRINT"MENUES    EINLESEN."
  246. 2390 CLOSE1:OPEN1,F2,4,"MENUES,S,R"
  247. 2400 INPUT#1,A$:IFA$=CHR$(255)THEN2420
  248. 2410 INPUT#1,Z1,Z2,Z3:MN$(Z1,Z2)=A$:TY(Z1,Z2)=Z3:GOTO2400
  249. 2420 CLOSE1:CLOSE15:CLOSE2
  250. 2430 PRINT"DIRECTORY EINLESEN.":POKE198,0:WAIT198,1
  251. 2440 REM------------------------------
  252. 2450 OPEN15,F1,15,"I":OPEN2,F1,2,"#"
  253. 2460 T=18:S=1:F=0:ZS=1
  254. 2470 PRINT#15,"U1:2 0"T;S
  255. 2480 GET#2,A$:GET#2,A$
  256. 2490 S=ASC(A$+CHR$(0)):FORI=1TO8
  257. 2500 PRINT#15,"B-P 2"I*32+2
  258. 2510 GET#2,A$:IFA$<>CHR$(129)THEN2560
  259. 2520 PRINT#15,"B-P 2"I*32+5
  260. 2530 F$="":FORJ=1TO16:GET#2,A$
  261. 2540 F$=F$+A$:NEXTJ
  262. 2550 IFLEFT$(F$,1)="("ANDMID$(F$,4,1)=")"THENSS$(ZS)=F$:ZS=ZS+1
  263. 2560 NEXTI:IFS<19THEN2470
  264. 2570 ZS=ZS-1:CLOSE2:CLOSE15
  265. 2580 REM-----------------------------
  266. 2590 IFSS$(1)=""ANDZS<2THEN2720
  267. 2600 PRINT"[198]ILES:":PRINT"[163][163][163][163][163]"
  268. 2610 CLOSE1:OPEN1,F1,15:FORX=1TOZS
  269. 2620 Z1$=MID$(SS$(X),2,1):Z2$=MID$(SS$(X),3,1):Z1=VAL(Z1$):Z2=VAL(Z2$)
  270. 2630 PRINT#1,"S:"+MN$(Z1,Z2)
  271. 2640 PRINT#1,"R:"+MN$(Z1,Z2)+"="+LEFT$(SS$(X),4):PRINTZ1$Z2$"/";:NEXTX:CLOSE1
  272. 2650 IFFR=0THEN2720
  273. 2660 FORX=1TOZS
  274. 2670 Z1$=MID$(SS$(X),2,1):Z2$=MID$(SS$(X),3,1):Z1=VAL(Z1$):Z2=VAL(Z2$)
  275. 2680 IFTY(Z1,Z2)<>3THEN2700
  276. 2690 OPEN1,F1,3,MN$(Z1,Z2)+",S,A":PRINT#1,CHR$(255):CLOSE1
  277. 2700 NEXTX:CLOSE1
  278. 2710 REM-----------------------------
  279. 2720 PRINT:PRINT"[206]OCH[160]ANDERE[160][198]ILES (VON [198]LOPPY"F1") ?":WAIT198,1:GETA$
  280. 2730 IFA$="J"ORA$="[202]"THEN2750
  281. 2740 RETURN
  282. 2750 INPUT"[211]EITENNAME";SN$
  283. 2760 INPUT"[208]SEUDONAME";PN$
  284. 2770 CLOSE1:OPEN1,F1,15,"S:"+SN$
  285. 2780 PRINT#1,"R:"+SN$+"="+PN$
  286. 2790 INPUT#1,C,S$,D,F:IFC<>0THENPRINT""S$:GOTO2820
  287. 2800 IFFR=0THEN2820
  288. 2810 CLOSE1:OPEN1,F1,3,SN$+",S,A":PRINT#1,CHR$(255)
  289. 2820 CLOSE1:GOTO2720
  290. 2830 REM-----------------------------
  291. 2840 PRINT"[147]          [211]EQ. [196]IRECTORY               [146]":CLOSE2:CLOSE15
  292. 2850 OPEN15,F1,15:OPEN2,F1,2,"#"
  293. 2860 T=18:S=1:F=0:PRINTTAB(10);:F8=0
  294. 2870 PRINT#15,"U1:2 0"T;S
  295. 2880 GET#2,A$:GET#2,A$
  296. 2890 S=ASC(A$+CHR$(0)):FORI=1TO8
  297. 2900 PRINT#15,"B-P 2"I*32+2
  298. 2910 GET#2,A$:IFA$<>CHR$(129)THEN2960
  299. 2920 PRINT#15,"B-P 2"I*32+5
  300. 2930 F$="":FORJ=1TO16:GET#2,A$
  301. 2940 PRINTA$;:NEXTJ
  302. 2950 PRINT:PRINTTAB(10);
  303. 2960 NEXTI:F8=F8+1:IFF8=2ANDS<19THEN3000
  304. 2970 IFS<19THEN2870
  305. 2980 CLOSE2:CLOSE15
  306. 2990 PRINTTAB(10)"[212]ASTE DRUECKEN.":WAIT198,1:GETA$:RETURN
  307. 3000 PRINTTAB(10)"[212]ASTE DRUECKEN."
  308. 3010 PRINTTAB(10)"[205]IT <[195][210]> ABBRECHEN.":WAIT198,1:GETA$
  309. 3020 IFA$=CHR$(13)THENCLOSE2:CLOSE15:RETURN
  310. 3030 PRINT"[147]          [211]EQ. [196]IRECTORY               [146]":PRINTTAB(10);
  311. 3040 F8=0:GOTO2970
  312. 3050 REM-------------------------------
  313. 3060 PRINT"[147]              [213]SER-[204]OESCHEN          [146]"
  314. 3070 X=0
  315. 3080 OPEN1,F2,3,"ULIST.INDEX,S,R":INPUT#1,UO:CLOSE1:OPEN3,F2,4,"USERLISTE,S,R"
  316. 3090 X=X+1:INPUT#3,NA$(X),PA$(X):IFST=0THEN3090
  317. 3100 CLOSE3:AU=X:A1=AU:GOTO3140
  318. 3140 AU=A1:CLOSE1:CLOSE3:OPEN3,F2,15
  319. 3150 PRINT"[147]              [213]SER-[204]OESCHEN          [146]"
  320. 3160 INPUT"[213]SERNAME[160]>";A$:IFLEN(A$)>20THEN3150
  321. 3170 IFA$=""THEN3240
  322. 3180 SB$=A$:GOSUB1890:IFFF=1THENPRINT"[213]SER EXISTIERT NICHT.":A$="":GOTO3150
  323. 3190 PRINT"[204]OESCHE[160]";A$;"."
  324. 3200 NI=VAL(PA$(X))
  325. 3210 FORY=XTOAU+1:NA$(Y)=NA$(Y+1):PA$(Y)=PA$(Y+1):NEXTY:AU=AU-1
  326. 3220 PRINT#3,"S:\"+SB$
  327. 3230 A$="":GOTO3150
  328. 3240 CLOSE1:PRINT#3,"S:USERLISTE,ULIST.INDEX":CLOSE3
  329. 3250 CLOSE1:OPEN1,F2,3,"USERLISTE,S,W":FORX=1TOAU
  330. 3260 PRINT#1,NA$(X):PRINT#1,PA$(X):NEXTX:CLOSE1
  331. 3270 OPEN1,F2,5,"ULIST.INDEX,S,W":PRINT#1,AU:CLOSE1:RETURN
  332. 3280 PRINT"[147]           [213]SERLISTE ANSEHEN          [146]"
  333. 3290 CLOSE2:OPEN2,F2,4,"USERLISTE,S,R":CLOSE1:CLOSE3:MM=0
  334. 3300 OPEN3,F2,15
  335. 3305 DR=0:INPUT"[193]UF [196]RUCKER[160]>(J/N)";A$
  336. 3307 IFA$="J"ORA$="[202]"THENCLOSE4:OPEN4,4,7:DR=1
  337. 3308 IFDR=1THENPRINT#4,"[213]SERNAME             [208]ASSWORT"
  338. 3309 IFDR=1THENPRINT#4,"========================================"
  339. 3310 PRINT"[213]SERNAME             [208]ASSWORT"
  340. 3315 PRINT"                                  "
  341. 3320 PRINT"======================================="
  342. 3330 INPUT#2,NA$:INPUT#2,PA$
  343. 3340 IFST=64THENMM=1
  344. 3360 IFPEEK(198)=1THENMM=1:GOTO3380
  345. 3370 PRINTNA$;TAB(21)PA$
  346. 3376 IFDR=1THEN4000
  347. 3380 IFMM=1THENCLOSE1:CLOSE2:CLOSE3:POKE198,0:WAIT198,1:POKE198,0:RETURN
  348. 3390 GOTO3330
  349. 4000 PRINT#4,NA$;
  350. 4010 PRINT#4,CHR$(16)"21"PA$;
  351. 4030 PRINT#4,CHR$(16)"42"LA$
  352. 4040 GOTO3380
  353. 8000 PRINT"[147]            [213]SERLISTE                   [146]"
  354. 8010 OPEN2,8,2,"USERLISTE,S,R":PRINT:PRINT:PRINT:PRINT
  355. 8020 X=X+1:INPUT#2,A$:INPUT#2,B$:PRINTA$:IFST<>64THEN8020
  356. 8040 PRINT"[144][212]ASTE":POKE198,0:WAIT 198,1:CLOSE2:POKE198,0:RETURN
  357. 9000 PRINT"[147]            [200]ACKERPASS                  [146]"
  358. 9010 OPEN2,8,2,"HACKERPASS,S,R":PRINT:PRINT:PRINT:PRINT
  359. 9020 INPUT#2,A$:PRINTA$:IFST<>64 AND A$<>"="THEN9020
  360. 9040 PRINT"[144][212]ASTE":POKE198,0:WAIT 198,1:CLOSE2:POKE198,0:RETURN
  361.