home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 31 / 64er_Magazin_Sonderheft_31_19xx_Markt__Technik_de.d64 / mailbox v3.0 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  24.2 KB  |  727 lines
  1. 0 poke2040,0:poke2041,0:poke646,5:goto4120
  2. 1 close1:open1,8,0,"$":get#1,a$,a$:e$=chr$(0):!printc$+c$
  3. 2 get#1,a$,a$,h$,l$:ifstthen:!printc$+c$:close1:return
  4. 3 !printstr$(asc(h$+e$)+256*asc(l$+e$))
  5. 4 if rs and 1 then close1:return
  6. 5 get#1,a$,b$:ifa$<>"" and b$<>""then:!printa$+b$:goto4
  7. 6 !printa$+c$
  8. 7 goto2
  9. 70 pokecx,0:!printc$+c$+c$:a$=""
  10. 80 d$="":input#1,d$:d$=a$+d$:s1=st
  11. 90 ifs1<>0orpeek(cx)=255then:!printc$+c$+">>[160][198]ile[160][197]nde[160]<<":close1:return
  12. 100 !printc$+c$+d$+c$:!print"[205]sg.[160]von[160]"
  13. 110 input#1,f$:!printf$:!printc$+c$:gosub 7700:ifpeek(cx)=255then90
  14. 120 get#1,a$:a$="":get#1,a$:s1=st
  15. 130 ifs1<>0then90
  16. 140 ifs4=1then:!printc$+">"+c$:goto160
  17. 150 !printc$+">"+c$:if(peek(er)and16)=0thenfl=1:fc=1:close1:return
  18. 160 goto80
  19. 170 zz=76:gosub 7800:iffl=1thenreturn                    
  20. 180 print:ei$(i)=a$:ifa$="..."orpeek(kz)=255thenreturn
  21. 200 gf=gf+len(a$):ifgf>ebthenei$(i)="...":!printc$+c$+"[197]>[160][218]uviele[160][194]ytes":return
  22. 210 goto170
  23. 220 aa$="":fl=0
  24. 230 ifs4=1then250
  25. 240 if(peek(er)and16)=0thenfl=1:fc=1:return
  26. 250 if sp=1 then goto260
  27. 255 !inputaa$,50:goto 270
  28. 260 !inputaa$,50,asc("-")
  29. 270 if rs and 128 then fl=1:fc=1:return
  30. 360 return
  31. 370 ifpeek(198)=0thengoto230
  32. 380 geta$:ifa$=c1$thenreturn
  33. 390 ifa$=d4$andlen(aa$)-1<0then230
  34. 400 ifa$=d4$thenl1=len(aa$):aa$=left$(aa$,l1-1):print#2,d5$;:printa$;:goto230
  35. 410 a$=chr$(peek(52736+asc(a$)))
  36. 420 goto310
  37. 430 close1
  38. 440 rem
  39. 450 ff=0:open4,8,2,"userliste,s,r"
  40. 460 input#4,an$:input#4,ap$:ifan$=sb$thenff=0:na$=an$:close4:return
  41. 470 ifst<60then460
  42. 480 ff=1:close4:return
  43. 500 goto450
  44. 510 cz=56328:pokecz+7,peek(cz+7)and127:pokecz+6,peek(cz+6)or128
  45. 520 print"[196]isk[160]ready.":print:print
  46. 530 input"[218]eit[160][160][160][160][160][160][160][160][160](hhmm)";a$:h=val(left$(a$,2)):m=val(mid$(a$,3,2))
  47. 540 input"[212]ag[160][160][160][160][160][160][160][160][160][160](1-31)";dn
  48. 550 input"[205]onat[160][160][160][160][160][160][160][160](1-12)";dm
  49. 555 input"[202]ahr  [160][160][160][160][160]        ";jr$
  50. 557 dt$=right$(str$(dn),2)+"."+dm$(dm)+"[160]"+jr$
  51. 560 s=val(right$(a$,2)):ifh>11thenh=h+68
  52. 570 pokecz+3,16*int(h/10)+h-int(h/10)*10:pokecz+2,16*int(m/10)+m-int(m/10)*10
  53. 580 pokecz+1,16*int(s/10)+s-int(s/10)*10:pokecz,0
  54. 590 s4=1:!printc$+c$+"[211]ysop[160]on/off[160](1/0)":gosub220:fo=val(aa$)
  55. 600 !printc$+"[196]rucker[160]on/off(1/0)":gosub220:dru=val(aa$):s4=0
  56. 610 ifs5=1thenreturn
  57. 620 print"[147]":return
  58. 630 cz=56328:h=peek(cz+3):m=peek(cz+2):s=peek(cz+1):t=peek(cz):fg=1
  59. 640 ifh>32thenh=h-128:fg=0:ifh=0thenh=12:goto690
  60. 650 h=int(h/16)*10+h-int(h/16)*16:onfggoto680
  61. 660 ifh=12then690
  62. 670 h=h+12
  63. 680 ifh=12thenh=0
  64. 690 m=int(m/16)*10+m-int(m/16)*16
  65. 700 h$=str$(h):iflen(h$)=2thenh$="[160]0"+right$(h$,1)
  66. 710 m$=str$(m):iflen(m$)=2thenm$="[160]0"+right$(m$,1)
  67. 720 ifpro=1thenpro=0:return
  68. 730 h$=right$(h$,2):m$=right$(m$,2):!printh$+"."+m$:return
  69. 740 !print c$+c$+c$:ifz1=0then790
  70. 750 !print mid$(mn$(z1,0),4,l-3)+c$
  71. 760 forz=1tol-3:!print"-":nextz:!printc$
  72. 770 forz=1to9:ifmn$(z1,z)<>""then:!printmn$(z1,z)+c$
  73. 780 nextz:!print c$:return
  74. 790 !print"[200]auptmenu"+c$+"---------"+c$
  75. 800 forz=1to9:ifmn$(z,0)<>""then:!waitmn$(z,0)+c$,0,0,1
  76. 810 nextz:!print"99[160][204][207][199][207][198][198]"+c$+c$:return
  77. 820 ei$(1)="..."
  78. 830 gf=0:i=1:fs=0:sn$=mn$(z1,z2):fp=1:gosub860:fp=0:!printc$+c$
  79. 840 iffs=1thenfm=fm+1:gosub3960
  80. 850 return
  81. 860 iffx=1then:!printc$+c$+"[197]>[160][196]ie[160][196]iskette[160]ist[160]voll."+c$:return
  82. 870 ifex=2then:!print c$+c$+"[197]>":goto990
  83. 880 !print c$+c$+c$+"[197]ditor"+c$+"---------"+c$:ifex=1goto980
  84. 890 !print"[209][160][201]ns[160][205]enue"+c$+c$
  85. 900 !print"[197][160][212]ext[160]eingeben"+c$
  86. 910 !print"[218][160][218]eile[160]aendern"+c$
  87. 920 !print"[204][160][212]ext[160]lesen"+c$
  88. 930 if pri =1then:!print"[211][160][212]ext[160]drucken"+c$:goto950
  89. 940 !print"[211][160][212]ext[160]absaven"+c$
  90. 950 !print"[196][160][197]ditor[160]loeschen"+c$
  91. 960 !print"[195][160][197]cho[160]aus"+c$+c$
  92. 970 !print"[194]eim[160]upload[160]von[160][212]exten,[160][197]cho"+c$+"mit[160]'[195]'[160]abschalten!"+c$+c$
  93. 980 !printc$+"[160][196]eine[160][215]ahl[160]>":ifpeek(631)=95thengosub5080
  94. 990 poke667,peek(668):zz=1:gosub7800:iffl=1thenreturn
  95. 1000 ifa$=kq$ora$=gq$ora$=""thenifsic=1then6350
  96. 1010 ifa$=kq$ora$=gq$ora$=""thenfe=0:return
  97. 1020 ifa$=ke$ora$=ge$thensic=1:goto1110
  98. 1030 ifa$=kc$ora$=gc$thenfe=1:!print"[160][197]cho[160]aus"+c$:ifex<>2then980
  99. 1040 ifex=2and(a$=kc$ora$=gc$)then860
  100. 1050 ifa$=kz$ora$=gz$then1280
  101. 1060 if((a$=ks$)or(a$=gs$))and(dru = 1)and(x=12) then sic=0:goto6240
  102. 1070 ifa$=ks$ora$=gs$thensic=0:goto1350
  103. 1080 ifa$=kl$ora$=gl$then1590
  104. 1090 ifa$=kd$ora$=gd$then1560
  105. 1100 !print"->":goto990
  106. 1110 !printc$+c$+c$:ifex=2then1170
  107. 1120 ifex=1then1160
  108. 1130 !print"[199]ib[160]jetzt[160]den[160][212]ext[160]ein."+c$
  109. 1140 !print"[196]er[160][212]ext[160]darf[160]maximal"+c$
  110. 1150 !printstr$(eb)+"[160][194]ytes[160]lang[160]sein"+c$+c$+c$
  111. 1160 !print"[205]it[160]der[160][218]eile[160]'...'[160][197]ingabe[160]beenden."+c$+c$
  112. 1170 iffe=1then1230
  113. 1180 !printright$(str$(i),2)+">":zz=76:gosub7800:iffl=1thenreturn
  114. 1190 !printc$:ei$(i)=a$:gf=gf+len(a$):ifa$="..."orpeek(kz)=255then860
  115. 1200 i=i+1:ifi>=ezthenei$(ez)="...":!printc$+c$+"[197]>[160][218]uviele[160][218]eilen":goto860
  116. 1210 ifgf>ebthenei$(i)="...":!printc$+c$+"[197]>[160][218]uviele[160][194]ytes":goto860
  117. 1220 goto1180
  118. 1230 ifex<>0then1250
  119. 1240 !print"[214]on[160]nun[160]an[160]kein[160][197]cho[160]mehr."+c$+"[196]u[160]kannst[160]mit[160]300[160][194]aud[160]senden."
  120. 1250 !printc$+c$+">"+c$+c$+c$:pokesd,0
  121. 1260 gosub170:pokesd,1:iffl=1thenreturn
  122. 1270 !printc$+c$+"[213]ebertragung[160]ist[160]beendet."+c$:fe=0:goto860
  123. 1280 !printc$+c$+"[160][160][215]elche[160][218]eile[160]>"
  124. 1290 zz=3:gosub 7800:iffl=1thenreturn
  125. 1300 v=val(a$):ifv>ez+1then1280
  126. 1305 ifv<0thenclose1:open1,8,2,"protokol,s,a":print#1,"abs":zx=1:goto5360
  127. 1310 ifv=0then860
  128. 1320 !printc$+c$+c$+right$(str$(v),2)+">"+ei$(v)+c$+right$(str$(v),2)+">"
  129. 1330 zz=77:gosub 7800:iffl=1thenreturn
  130. 1340 ei$(v)=a$:goto860
  131. 1350 ifgf<10orei$(1)="..."then:!printc$+c$+"[197]>[160][197]ditor[160]leer"+c$+c$:goto860
  132. 1360 !printc$+c$+"[160][160][211]ave,[160]mach[160]mal[160]ein[160][211]chlaefchen"+c$
  133. 1370 iffp=1then1480
  134. 1380 close6:open6,f2,6,"files,s,a":print#6,sn$,vn$:close6
  135. 1390 close1:open1,f1,3,"xy,s,w":z=1
  136. 1400 print#1,dt$:print#1,vn$
  137. 1410 ifei$(z)="..."orz>ezthen1430
  138. 1420 print#1,ei$(z):ei$(z)="":z=z+1:goto1410
  139. 1430 print#1,chr$(255):close1:open1,f1,15,"c:zw=xy,"+sn$:close1
  140. 1440 open1,f1,15,"s:"+sn$:close1:open1,f1,15,"r:"+sn$+"=zw":close1
  141. 1450 open1,f1,15,"s:zw,xy":close1:!print"[160][160][207][203]!"+c$:gf=0:i=1:ei$(1)="..."
  142. 1460 ifex=2then860
  143. 1470 goto 980
  144. 1480 close1:open1,f2,3,"\"+sn$+",s,w":close1:open1,f2,3,"\"+sn$+",s,a":z=1
  145. 1490 print#1,dt$:print#1,vn$
  146. 1500 ifei$(z)="..."orz>ezthen1520
  147. 1510 print#1,ei$(z):ei$(z)="":z=z+1:goto1500
  148. 1520 print#1,chr$(255):close1:!print" [199]eschafft"+c$:gf=0:i=1:ei$(1)="...":fs=1
  149. 1530 ifs4=1then5530
  150. 1540 ifex=2then860
  151. 1550 goto980
  152. 1560 !print"[160][199]eloescht"+c$:forpo=1toez:ei$(po)="":nextpo:ei$(1)="...":gf=0:i=1
  153. 1570 ifex=2then860
  154. 1580 goto980
  155. 1590 !printc$+c$+"[160][160][193]b[160]welcher[160][218]eile[160]>":zz=3:gosub 7800
  156. 1600 iffl=1thenreturn
  157. 1610 !printc$+c$:z=val(a$):ifz>ithen1670
  158. 1620 ifz<0thenopen1,8,2,"protokol,s,a":print#1,"abs":zx=1:goto5360
  159. 1630 ifei$(z)="..."then1670
  160. 1640 ifz>=ez+1then1700
  161. 1650 !printright$(str$(z),2)+">"+ei$(z)+c$:geta$:ifa$=chr$(24)then1670
  162. 1660 z=z+1:goto1630
  163. 1670 !printc$+"[160][160][210][197][212][213][210][206][160]>":zz=1:gosub7800
  164. 1680 iffl=1thenreturn
  165. 1690 goto 860
  166. 1700 !printc$+c$+"[197]>[160][218]eile[160]...[160]vergessen."+c$:ei$(ez)="...":goto1670
  167. 1710 iffo=1then1730
  168. 1720 !printc$+c$+c$+"[196]er[160][211]ysop[160]ist[160]leider[160]nicht[160]anwesend."+c$+c$+c$:return
  169. 1730 restore:!printc$+c$+c$+"[201]ch[160]schau[160]mal[160]ob[160]ich[160]ihn[160]finde.[160][215]enn"+c$
  170. 1740 !print"es[160][196]ir[160]zu[160]langweilig[160]wird,[160]drueck"+c$
  171. 1750 !print"einfach[160][195][212][210][204]-[216]"+c$
  172. 1760 print"[213]ser[160]"+vn$+"[160][146]ruft[160][196]ich."
  173. 1770 gosub6460
  174. 1780 a$=""                                                                     
  175. 1785 get#2,a$:ifa$=chr$(24)then:!printc$+c$:poke54296,0:me=0:pokeaa,0:return
  176. 1790 if(peek(er)and16)=0thenfl=1:fc=1:pokeaa,0:return
  177. 1800 ifpeek(198)=0then1770
  178. 1810 !printc$+c$+c$+"[211]uper,[160]er[160]war[160]in[160]der"+c$:poke54296,0:me=0:geta$
  179. 1820 !print"[206]aehe.[160][200]ast[160][199]lueck[160]gehabt."+c$+c$
  180. 1830 !print"[213]m[160]den[160][196]ialog[160]dem[160][211]ysop[160]zu[160]uebergeben,"+c$
  181. 1840 !print"bitte[160]*[160]([193]sterisk)[160]druecken."+c$
  182. 1850 poke667,peek(668)
  183. 1860 !printc$+c$+"[211]ysop[160]>"
  184. 1870 geta$:if(a$=""ora$<d1$)anda$<>c1$anda$<>d4$then1870
  185. 1880 ifa$=chr$(95)thengoto2000
  186. 1890 ifa$=d4$then:!printd5$:goto1870
  187. 1900 !printa$:ifa$=chr$(42)then1930
  188. 1910 ifa$=chr$(13)then:!printchr$(10)
  189. 1920 goto1870
  190. 1930 poke667,peek(668):!print c$+c$+c$+"[213]ser[160]>"
  191. 1940 get#2,a$:if(a$=""ora$<d1$ora$>d2$ora$=d3$)anda$<>c1$anda$<>d5$then1970
  192. 1950 ifa$=d5$ora$=d2$thenprint#2,a$;:printd4$;:goto1970
  193. 1960 print#2,a$;:printa$;:ifa$=chr$(42)then1860
  194. 1970 ifa$=chr$(13)then:!printchr$(10)
  195. 1980 ifpeek(198)=0then1940
  196. 1990 geta$:!printc$:goto1860
  197. 2000 print"[210]estzeit[160]in[160][205]in.[160](1-";rt;")";:inputz:ifz>rt orz<0then2000
  198. 2010 z=rt-z:z$=str$(z):z$="0"+right$(z$,len(z$)-1):z$=right$(z$,2)
  199. 2020 ti$="00"+z$+"00":!printc$:return
  200. 2030 close1:open1,f1,3,mn$(z1,z2)+",s,r":!print c$+c$+c$+c$+c$
  201. 2040 iffu=1then:!printmid$(mn$(z1,z2),4,l-3)+c$:goto2060
  202. 2050 !printmid$(mn$(z1,z2),4,l-3)+c$
  203. 2060 forpo=1tol-3:!print "-":nextpo
  204. 2070 !printc$:gosub 7700:close1:!printc$+c$+c$+">>[160][198]ile[160][197]nde[160]<<"+c$+c$:return
  205. 2080 close1:open1,f1,3,mn$(z1,z2)+",s,r":!printc$+c$+c$
  206. 2090 ifex=2then:!printc$+c$+left$(mn$(z1,z2),2)+">":goto2180
  207. 2100 iffu=1then:!printmid$(mn$(z1,z2),4,l-3):goto2120
  208. 2110 !printmid$(mn$(z1,z2),4,l-3)
  209. 2120 !printc$:forpo=1tol-3:!print "-":nextpo:!print c$
  210. 2130 fp=0:ifex=1then2170
  211. 2140 !print"[209][160][201]ns[160][205]enue"+c$+c$
  212. 2150 !print"[204][160][204]esen"+c$
  213. 2160 !print"[211][160][211]chreiben"+c$
  214. 2170 !waitc$+"[160][160][196]eine[160][215]ahl[160]>"
  215. 2180 poke667,peek(668):zz=1:gosub7800:iffl=1thenreturn
  216. 2190 ifa$=kq$ora$=gq$ora$=""thenclose1:!print c$+c$+c$:return
  217. 2200 ifa$=kl$ora$=gl$then2260
  218. 2210 ifa$=ks$ora$=gs$then2230
  219. 2220 !print"->":goto2180
  220. 2230 iffv=1then:!print c$+c$+"[196]u[160]musst[160][196]ichzuerst[160]einschreiben.":goto2080
  221. 2240 gf=0:i=1:ei$(1)="...":sn$=mn$(z1,z2):close1:gosub860:iffl=1thenreturn
  222. 2250 goto2080
  223. 2260 gosub70:iffl=1thenreturn
  224. 2270 goto2080
  225. 2280 ifex=2then:!printc$+c$:goto2320
  226. 2290 !printc$+c$+c$+c$+"[213]serliste"+c$+"---------"+c$+c$
  227. 2300 !print"(mit[160][195][212][210][204]-[216][160]abbrechen)"+c$+c$+c$
  228. 2320 open1,8,2,"userliste,s,r"
  229. 2330 input#1,aa$:input#1,a$:ifst=0then:!printaa$+c$:goto2340
  230. 2335 close1:goto2360
  231. 2340 if rs and 1 then2360
  232. 2350 goto 2330
  233. 2360 !printc$+c$+c$+">>[160][197]nde[160][213]serfile[160]<<"+c$+c$+c$:close1:return
  234. 2370 fp=1:ifex=2then:!print c$+c$:goto2390
  235. 2380 !printc$+c$+c$+c$+"[208]ers.[160][205]sg.[160]schreiben"+c$+"--------------------"+c$+c$
  236. 2390 !print"[197]mpfaenger[160]>":gosub220:iffl=1thenreturn
  237. 2400 ifaa$=""orfv=1then:!printc$+c$+c$:return
  238. 2410 sb$=aa$:gosub430:ifff=0then2450
  239. 2420 !printc$+c$+"[197]mpfaenger[160]nicht[160]bekannt."+c$+c$
  240. 2430 !print"[199]ib[160]den[160][197]mpfaenger[160]neu[160]ein[160]oder"+c$
  241. 2440 !print"kehre[160]mit[160]<[195][210]>[160]ins[160][205]enu[160]zurueck."+c$+c$+c$:goto2390
  242. 2450 !printc$+c$+"[197]mpfaenger[160]bekannt."
  243. 2460 gf=0:i=1:ei$(1)="..."
  244. 2470 ifs4=1thenreturn
  245. 2480 !printc$:sn$=na$:fp=1:gosub860:fp=0:!print c$+c$+c$:return
  246. 2490 iffx=1then:!printc$+c$+c$+"[197]>[160][203]ein[160][197]intrag,[160]da[160][196]isk[160]voll."+c$:return
  247. 2500 !printc$+c$+c$+c$+"[213]serneueintrag"+c$+"--------------"+c$:close1
  248. 2510 rem
  249. 2520 !printc$+"[208]seudonym[160]>":gosub220:iffl=1thenreturn
  250. 2530 !printc$:na$=aa$:ifna$=""orvn$<>"gast"thenreturn
  251. 2540 sb$=na$:gosub430:ifff=0then:!printc$+c$+"[197]xistiert[160]schon."+c$+c$:goto2520
  252. 2550 ifleft$(na$,1)=chr$(32)then2520
  253. 2560 !printc$+"[208]asswort[160][160]>":gosub220:iffl=1thenreturn
  254. 2570 ifaa$=""orleft$(aa$,1)=chr$(32)then2560
  255. 2580 pa$=aa$:!print c$+c$+"[197]ingaben[160]richtig.[160](j/n)[160]>":zz=1:gosub 7800
  256. 2590 iffl=1thenreturn
  257. 2600 ifa$<>kj$anda$<>gj$then2490
  258. 2610 !printc$+c$+c$+"[199]ib[160]zur[160][203]ontrolle[160]beides[160]nochmal[160]ein."+c$
  259. 2620 !printc$+"[208]seudonym[160]>":gosub220:iffl=1thenreturn
  260. 2630 ifaa$<>na$then:!printc$+c$+"[197]>[160][203]eine[160][213]ebereinstimmung.":goto2490
  261. 2640 !printc$+c$+"[208]asswort[160][160]>":gosub220:iffl=1thenreturn
  262. 2650 ifaa$<>pa$then:!printc$+c$+"[197]>[160][203]eine[160][213]ebereinstimmung.":goto2490
  263. 2660 !printc$+c$+c$+"[194]itte[160]warten."+c$
  264. 2670 vn$=na$:close1:open1,f2,3,"userliste,s,a":print#1,na$:print#1,pa$
  265. 2680 close1:open1,f2,3,"userliste.backup,s,a":print#1,na$:print#1,pa$
  266. 2700 au=au+1:close1:open1,8,2,"@:ulist.index,s,w":print#1,au:close1
  267. 2710 !printc$+c$+c$+"[200]erzlich[160][215]illkommen[160]als[160][213]ser."+c$:fv=0
  268. 2720 gosub3960
  269. 2730 poke1114,42:print"":return
  270. 2740 !printc$+c$+c$+"[204]aengere[160][212]exte"+c$+"--------------"+c$:fs=0
  271. 2750 ifex<>0thengoto2790
  272. 2760 !print"[196]u[160]kannst[160]hier[160][212]exte[160]bis[160]zu[160]5[160][203][194]"+c$
  273. 2770 !print"eingeben"+c$+c$
  274. 2790 ez=150:eb=5000:sn$=mn$(z1,z2):fp=1:gf=0:i=1:ei$(1)="..."
  275. 2800 gosub860:fp=0:ez=50:eb=1500:!print c$+c$
  276. 2810 iffs=1thenfm=fm+1:gosub3960
  277. 2820 return
  278. 2830 !printc$+c$+c$+"[197]x-[211]tatus>"+str$(ex)+"[160][160][206]euer[160][211]tatus[160](0-2)>"
  279. 2840 zz=1:gosub7800:iffl=1thenreturn
  280. 2850 ex=val(a$):ifex<0orex>2then2830
  281. 2860 !printc$+c$:return
  282. 2870 !printc$+c$+c$+"[218]eit[160]im[160][211]ystem>[160]"
  283. 2880 !printmid$(ti$,3,2)+"[160]min.[160]"+right$(ti$,2)+"[160]sec.>"
  284. 2890 goto2910
  285. 2900 !printc$+c$+c$+dt$+"[160][160]":gosub630:!print">"
  286. 2910 zz=1:gosub 7800:iffl=1thenreturn
  287. 2920 !printc$+c$:return
  288. 2930 iffx=1then:!printc$+c$+c$+"[197]>[160][203]ein[160]loeschen,[160]da[160][196]isk[160]voll."+c$:return
  289. 2940 !printc$+c$+c$+"[213]ser[160]loeschen"+c$+"-------------"+c$
  290. 2950 !printc$+"[208]seudonym[160]>":gosub220:iffl=1thenreturn
  291. 2960 !printc$:na$=aa$:ifna$=""orna$<>vn$ thenreturn
  292. 2970 !printc$+"[208]asswort[160][160]>":gosub220:iffl=1thenreturn
  293. 2980 pa$=aa$:ifaa$=""thenreturn
  294. 2990 sb$=na$:gosub430:ifff=1thenreturn
  295. 3000 ifap$<>pa$thenreturn
  296. 3010 !printc$+c$+"[215]illst[160][196]u[160][196]ich[160]wirklich[160]aus[160]der"+c$
  297. 3020 !print"[213]serliste[160]loeschen[160](j/n)[160]>":zz=1:gosub 7800
  298. 3030 iffl=1then return
  299. 3040 ifa$<>kj$anda$<>gj$thenreturn
  300. 3050 close1:open1,f2,4,"misthaufen,s,a":print#1,na$:close1
  301. 3060 return
  302. 3070 close1:open1,f2,3,"usergroups,l,"+chr$(25):ifda=1thenx=1:da=0:goto3140
  303. 3080 !printc$+c$+c$+c$+"[213]sergroups"+c$+"----------"+c$+c$
  304. 3090 x=1:!print"[208]asswort[160]>":gosub220:iffl=1thenreturn
  305. 3100 ifaa$=""oraa$="\"orfv=1then:!printc$+c$+c$:close1:return
  306. 3110 ifaa$=ug$(x)then3140
  307. 3120 ifx<10thenx=x+1:goto3110
  308. 3130 !printc$+c$+"[213]sergroup[160]existiert[160]nicht."+c$+c$:close1:return
  309. 3140 un=x:!printc$+c$+"identifiziert."+c$:x=0:close3:open3,f2,15
  310. 3150 x=x+1:a$=""
  311. 3160 print#3,"p"+chr$(3)+chr$(un*10+x)+chr$(0)+chr$(1):input#1,um$(x)
  312. 3170 print#3,"p"+chr$(3)+chr$(un*10+x)+chr$(0)+chr$(22):input#1,a$
  313. 3180 uf(x)=val(a$):ifx<9then3150
  314. 3190 close3:close1
  315. 3200 !printc$+c$+"[211]ubmenu"+c$+"-------"+c$+"[209][160][201]ns[160][205]enue"+c$+c$:forx=1to9
  316. 3210 ifum$(x)<>""andum$(x)<>"\"then:!printright$(str$(x),1)+"[160]"+um$(x)+c$
  317. 3220 nextx:!waitc$+"[160][160][196]eine[160][215]ahl[160]>"
  318. 3230 zz=1:gosub7800:iffl=1thenreturn
  319. 3240 z=val(left$(a$,1)):x=uf(z):ifa$=""ora$=kq$ora$=gq$then:!printc$+c$:return
  320. 3250 ifx=0then:!print"->":goto3230
  321. 3260 z1=0:z2=0:mn$(0,0)="("+right$(str$(un),1)+")"+um$(z):l=len(um$(z))+3:fu=1
  322. 3270 onxgosub2080,7040,3300
  323. 3280 fu=0:iffl=1thenfc=1:return
  324. 3290 close3:close1:goto3200
  325. 3300 close1:open1,f2,3,"usergroups,l,"+chr$(25):close3:open3,f2,15
  326. 3310 !printc$+c$+c$+"[208]asswort[160]>":gosub220:iffl=1thenreturn
  327. 3320 ifaa$=""oraa$="\"thenreturn
  328. 3330 print#3,"p"+chr$(3)+chr$(un*10)+chr$(0)+chr$(18):input#1,us$
  329. 3340 ifus$=aa$thenfd=0:goto3390
  330. 3350 iffd=1thenfl=1:fw=1:return
  331. 3360 !printc$+c$+"[197]>[160][206]icht[160]identifiziert."+c$:fd=1
  332. 3370 !print"[194]eim[160]2.[198]ehlversuch[160]fliegste[160]raus."+c$+c$+"[205]it[160]<[195][210]>[160]ins[160][211]ubmenu."
  333. 3380 goto3310
  334. 3390 !printc$+c$+c$+"[213]sergroup[160][198]ernwartung"+c$+"---------------------"+c$+c$
  335. 3400 !print"[215]elche[160][206]r.[160](1-9)>":zz=1:gosub 7800:iffl=1thenreturn
  336. 3410 z=val(a$):ifz=0thenreturn
  337. 3420 !printc$+c$+c$+"[201]nhalt>[160]"+um$(z)+"[160][160][160][198]kt>"+str$(uf(z))
  338. 3430 !printc$+c$+"1[160][193]endern[160]2[160][204]oeschen[160]3[160][193]nha.[160][209][160][160][209]uit[160]>"
  339. 3440 zz=1:gosub7800:iffl=1thenreturn
  340. 3450 ifval(a$)=0thenreturn
  341. 3460 x=val(a$):!printc$+c$+"[197]ingaben[160]ok[160](j/n)>":zz=1:gosub 7800
  342. 3470 iffl=1thenfc=1:close1:return
  343. 3480 ifa$<>kj$anda$<>gj$then3390
  344. 3490 ifx=2then3760
  345. 3500 ifx=3thena$=um$(z):b$=str$(uf(z)):goto3600
  346. 3510 ifx=1andfx=1then:!printc$+c$+"[197]>[160][196]ie[160][196]iskette[160]ist[160]voll."+c$:return
  347. 3520 ifx=1then3540
  348. 3530 return
  349. 3540 print#3,"s:"+"("+right$(str$(un),1)+")"+um$(z)
  350. 3550 !printc$+c$+c$+"[206]ame[160](20)[160]>":zz=20:gosub 7800:iffl=1thenreturn
  351. 3560 ifa$=""ora$="\"thenreturn
  352. 3570 !printc$+c$+"[1][160][205]sg.[198]ile[160][160][2][160][204]esen[160][160][3][160][210]emote[160]>"
  353. 3580 zz=1:xx$=a$:gosub 7800:b$=a$:a$=xx$:iffl=1thenreturn
  354. 3590 ifval(b$)>3orval(b$)=0then3570
  355. 3600 print#3,"p"+chr$(3)+chr$(un*10+z)+chr$(0)+chr$(1):print#1,a$
  356. 3610 print#3,"p"+chr$(3)+chr$(un*10+z)+chr$(0)+chr$(22):print#1,b$
  357. 3620 um$(z)=a$:uf(z)=val(b$)
  358. 3630 mn$(0,0)="("+right$(str$(un),1)+")"+um$(z):z1=0:z2=0:ifuf(z)=3then3730
  359. 3640 ifuf(z)=1then3740
  360. 3650 close3:close1:open1,f1,3,mn$(0,0)+",s,w":print#1,dt$:print#1,vn$:print#1,"init"
  361. 3660 print#1:close1:sn$=mn$(0,0):d$=dt$
  362. 3670 !printc$+c$+"[199]arbage[160][195]oll.[160](j/n)[160]>"
  363. 3680 zz=1:gosub 7800:iffl=1thenreturn
  364. 3690 ifa$<>kj$anda$<>gj$then3710
  365. 3700 !printc$+c$+"[199][195][160]in[160]progress. ":!printstr$(int(fre(0)/2.2))+"[160]free."+c$
  366. 3710 ez=150:eb=5000:v$=vn$:vn$="sysops":gosub860:ez=50:eb=1500
  367. 3720 vn$=v$:dt$=d$:iffl=1thenreturn
  368. 3730 !printc$+c$:return
  369. 3740 close3:close1:open1,f1,3,mn$(0,0)+",s,w":print#1,dt$:print#1,"usergroup"
  370. 3750 print#1,c1$+"usergroup[160]init"+c1$:print#1:close1:goto3730
  371. 3760 print#3,"s:"+"("+right$(str$(un),1)+")"+um$(z):um$(z)="\":uf(z)=0
  372. 3770 print#3,"p"+chr$(3)+chr$(un*10+z)+chr$(0)+chr$(1):print#1,"\"
  373. 3780 print#3,"p"+chr$(3)+chr$(un*10+z)+chr$(0)+chr$(22):print#1,"0":goto3730
  374. 3790 ifdru=0then5530
  375. 3800 !printc$+c$+"[208]rinting[160]bitte[160]warten"+c$
  376. 3810 close3:open3,f2,4,"protokol,s,r":close4:open4,4,7
  377. 3820 input#3,a$
  378. 3830 ifst=64then3870
  379. 3850 print#4,a$:input#3,a$:ifst=64then3870
  380. 3852 print#4,a$;:input#3,a$:ifst=64then3870
  381. 3854 print#4,tab(5);a$:input#3,a$:ifst=64then3870
  382. 3856 print#4,tab(5);a$
  383. 3860 goto3820
  384. 3870 print#4:close3:close4:goto5530
  385. 3880 !printc$+c$+"[208]seudonym[160]=>":gosub220
  386. 3890 close1:open1,f2,3,"hackerpass,s,a"
  387. 3900 print#1,aa$:close1
  388. 3910 goto5530
  389. 3920 rt$=str$(rt):!printc$+c$+"[218]eitlimit[160]("+rt$+")[160]>":gosub220:a$=aa$
  390. 3930 rn=val(a$):goto5530
  391. 3940 fx$=str$(fx):!printc$+c$+"[196]isk[160]sperren[160]("+fx$+")[160]>":gosub220:a$=aa$
  392. 3950 fx=val(a$):goto5530
  393. 3960 poke646,13:printchr$(19);:forx=1to7:printsp$:nextx
  394. 3970 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][164]";:poke1103,103
  395. 3980 printsp$:print"[160][213]sername>[160]              [160][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160]"left$(vn$,13);:
  396. 3990 printtab(26)"[204]ogin>[160]"h$m$
  397. 4000 print"[160][193]nrufer[160]>"ca-1tab(26)"[211]ysop>";:iffo=1thenprint"[160]on[160]"
  398. 4010 iffo=0thenprint"[160]off"
  399. 4020 printtab(1)"[208]rinter[160]>";:ifdru=1thenprint"[160]on [160][160][160][160][160][160][160][160][160][160]";
  400. 4030 ifdru=0thenprint"[160]off[160][160][160][160][160][160][160][160][160][160]";
  401. 4040 printtab(26)"[213]ser[160]>"au
  402. 4050 printtab(1)"[208]asswort>               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] "left$(pa$,13);:
  403. 4060 printtab(26)"[205]sg. >"fm
  404. 4070 poke55336,13:poke55376,13:poke55416,13:poke55456,13:poke55496,13
  405. 4080 poke55375,13:poke55415,13:poke55455,13:poke55495,13:poke55535,13
  406. 4090 poke1104,101:poke1143,103:poke1144,101:poke1183,103:poke1064,101
  407. 4100 poke1184,101:poke1223,103:poke1224,101:poke1263,103
  408. 4110 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][163]":poke646,5
  409. 4115 return
  410. 4120 sys49152:open2,2,0,chr$(6)+chr$(224):!set 120,120,6,3:!ron:!con:!clr
  411. 4130 poke53280,0:poke53281,0:print"[147]";chr$(14):f1=8:f2=8:rn=60
  412. 4140 dimei$(151),dm$(13),dm(13):poke53272,23:rt=20:kz=00650
  413. 4150 dimmn$(9,9),mu(9,9)
  414. 4160 d6$=chr$(45):d7$=chr$(63):eb=1500:forx=1to39:sp$=sp$+"[160]":nextx
  415. 4170 cx=50284:s4=0:s3=8:f3=8:dimii$(20):da=0:us=0
  416. 4180 er=56577:d1$=chr$(32):d2$=chr$(127):d3$=chr$(34):d4$=chr$(20):i=1:ez=50
  417. 4190 d5$=chr$(8):c1$=chr$(13):c$=chr$(13)+chr$(10):sd=831:se=829
  418. 4200 kz$=chr$(90):kl$=chr$(76):pokesd,1
  419. 4210 gz$=chr$(122):kc$=chr$(67):gc$=chr$(99):ke$=chr$(69):ge$=chr$(101):me=0
  420. 4220 gl$=chr$(108):kq$=chr$(81):gq$=chr$(113):kd$=chr$(68):gd$=chr$(100):msg=0
  421. 4230 ks$=chr$(83):gs$=chr$(115):mu(9,9)=5:mn$(9,9)="99[160][204][207][199][207][198][198]":kj$=chr$(74):i=1
  422. 4240 gj$=chr$(106):ku$=chr$(85):gu$=chr$(117):ei$(1)="...":close1:close3:gf=0
  423. 4250 print"[147][196]atendisc einlegen + [212]aste"
  424. 4260 h$="01":wait198,1:geta$:open1,f2,3,"ulist.index,s,r":input#1,au:close1
  425. 4270 print"ulist.index eingelesen"
  426. 4280 rem
  427. 4290 rem
  428. 4300 rem
  429. 4350 open1,f2,3,"usergroups,l,"+chr$(25):open3,f2,15
  430. 4360 forx=1to9
  431. 4370 print#3,"p"+chr$(3)+chr$(10*x)+chr$(0)+chr$(1):input#1,ug$(x):nextx:close3
  432. 4380 print"usergroups  eingelesen"
  433. 4390 close1:open1,f2,3,"menues,s,r"
  434. 4400 input#1,a$:ifa$=chr$(255)then4420
  435. 4410 input#1,z1,z2,z3:mn$(z1,z2)=a$:mu(z1,z2)=z3:goto4400
  436. 4420 print"menues      eingelesen"
  437. 4430 close1:open1,f2,4,"callers,s,r":input#1,ca:close1:bf=fre(0)
  438. 4440 print"callers     eingelesen"
  439. 4450 readaa,bb,cc:ifaa<0then4470
  440. 4460 goto4450
  441. 4470 forx=1to13:readdm$(x):readdm(x):nextx:forx=820to826:readz:pokex,z:nextx
  442. 4480 poke88,0:poke89,192:poke90,0:poke91,192:poke780,0:poke781,160:sys820
  443. 4490 poke88,0:poke89,0:poke90,0:poke91,0:poke780,0:poke781,224:sys820
  444. 4500 poke59639,6:poke1,53:gosub510:pro=0:gosub 630:zd=val(h$)
  445. 4510 gosub3960:print"[211]ystem[160]ready. ";bf;" [194]ytes [198]ree"
  446. 4512 poke198,0:close1
  447. 4514 pokeer,peek(er) and 255-4
  448. 4515 poke2040,peek(2040)+1:ifpeek(2040)>200thenpoke2040,0:poke2041,peek(2041)+1
  449. 4517 ifpeek(2041)=3thenpoke2041,0:poke53248+17,peek(53248+17) and 255-16
  450. 4520 geta$:ifa$=" "thenpoke2041,0:poke53248+17,peek(53248+17) or 16
  451. 4522 if(peek(er) and 16)=16 thenpoke53248+17,peek(53248+17) or 16:goto4530
  452. 4528 goto4515
  453. 4530 rem
  454. 4535 poke2041,0:pro=1:gosub 630:pro=0:ifval(right$(h$,2))<zdthenax=1:goto 5430
  455. 4540 s4=0:close1:open1,f2,3,"anfang,s,r"
  456. 4550 !con:!clr:!printc$+c$+c$+c$+c$+c$+c$+c$+c$
  457. 4560 !print"[199].[205].[193][160][160][160][205]ailbox[160]/[160]24[160][211]td.[207]nline"+c$
  458. 4570 !printc$+"[211]ysop[160][195]rackbit"+c$
  459. 4580 !printc$+dt$+"[160][160]":gosub630
  460. 4590 !printc$
  461. 4595 !printc$+"[204]iste[160]aller[160][205]enuepunkte[160]und"+c$+"[193]nleitung[160]auf[160][211]eite[160]15"+c$+c$
  462. 4600 !printc$+c$+"[210][197][212][213][210][206],[160][197][216][160]oder[160][197][216]2[160]druecken[160]->":aa$="":ex=0
  463. 4610 poke667,peek(668):ti$="000000"
  464. 4620 gosub220:iffl=1then4512
  465. 4630 ifaa$="435855"thens3=8:s4=1:close1:vn$="gma - box":goto5530
  466. 4640 ifaa$="ex"thenex=1
  467. 4650 ifaa$="ex2"thenex=2
  468. 4660 !printc$+c$+c$+"[200]erzlich[160][215]illkommen."+c$+c$
  469. 4670 !print"[201]ch[160]begruesse[160]den"+str$(ca)+".[160][193]nrufer."+c$+c$
  470. 4680 rem
  471. 4690 gosub 7700:close1:poke667,peek(668)
  472. 4700 !printc$+c$+"[213]sername[160][160]>":gosub 220:iffl=1then4512:
  473. 4701 ifaa$="gast"thenclose3:open3,f2,15:goto4800
  474. 4703 open1,8,2,"userliste,s,r":!printc$+c$+"searching,[160]please[160]wait"+c$+c$
  475. 4705 input#1,an$:input#1,ap$:ifan$=aa$thenclose1:goto4720
  476. 4710 ifst<60then4705
  477. 4715 close1:close3:open3,f2,15:goto4770
  478. 4720 vn$=aa$:close1:close3:open1,f2,3,"\"+vn$+",s,r":open3,f2,15:ab=0
  479. 4730 sp=1:!printc$+"[208]asswort[160][160]>":gosub220:sp=0:iffl=1thenclose1:close3:goto4512
  480. 4740 pa$=aa$:ifpa$=""thengoto4730
  481. 4750 ifap$=pa$thengoto4820
  482. 4760 !printc$+c$+"[198]alsches[160][208]asswort!"+c$+c$:iffd=0thenfd=1:goto4730
  483. 4765 iffd=1then4800
  484. 4770 !printc$+c$+"[206]icht[160]eingetragen![160][215]enn[160]doch,[160]<[202]>"+c$+"druecken.[160][211]onst[160]<[195][210]>[160]>"
  485. 4780 z=1:gosub 7800:iffl=1then4520
  486. 4790 if(a$=kj$ora$=gj$)andfd=0thenfd=1:close1:close3:goto4700
  487. 4800 fd=0:vn$="gast":fv=1:rt=10
  488. 4810 input#3,ab:close3:close1:goto4870
  489. 4820 input#3,ab:close3:close1:rt=rn
  490. 4830 ifab<>0thenclose1:!printc$+c$+"[203]eine[160][205]sg.[160]fuer[160][196]ich.":goto4870
  491. 4840 msg=1:close1:open1,f2,4,"\"+vn$+",s,r"
  492. 4850 gosub70:iffl=1then5220
  493. 4860 !printc$+c$+"[196]u[160]kannst[160]die[160][205][211][199][160]in[160]42[160]nochmals"+c$+"lesen!"+c$+c$
  494. 4870 ifvn$="gast"thenfv=1:!printc$+c$+"[196]u[160]kannst[160][196]ich[160]in[160]31[160]eintragen."+c$+c$
  495. 4880 ca=ca+1:!printc$+c$+c$+"[201]ch[160]wuensche[160][196]ir,[160]"+vn$+","+c$
  496. 4890 !print"viel[160][214]ergnuegen."+c$+c$:gosub3960:poke1114,42:print""
  497. 4900 rm=rt-val(mid$(ti$,3,2)):ifrm<=0thenfl=1:fi=1:goto5220
  498. 4910 rm$=right$(str$(rm),2):ifrm<10thenrm$=right$(rm$,1)
  499. 4920 ifex=2then:!printc$+c$+rm$+"[160][200]>":goto4950
  500. 4930 !printc$+c$+"[206]och[160]"+rm$+"[160][205]in."+c$
  501. 4940 !print"[211]eite[160]-->"
  502. 4950 ifpeek(653)=2thengosub5080
  503. 4960 poke667,peek(668)
  504. 4970 zz=2:gosub 7800:iffl=1thengoto 5220
  505. 4980 ifval(left$(a$,2))=0orlen(a$)=1thenz1=0:x=1:gt=1:goto5030
  506. 4990 z1=val(left$(a$,1)):z2=val(right$(a$,1)):x=mu(z1,z2):l=len(mn$(z1,z2))
  507. 5000 ifl=0then:!print"->":goto4950
  508. 5010 ifx>13thenx=x-13:goto5050
  509. 5020 gt=1
  510. 5030 onxgosub740,2030,2080,1710,5290,820,6560,2370,2740,2280,3070,6230,6670
  511. 5040 ifgt=1thengt=0:goto5060
  512. 5050 onxgosub2490,2930,2830,2870,2900,6670,6950,6970,7500
  513. 5060 iffl=1then5220
  514. 5070 goto4900
  515. 5080 geta$:print""tab(17)"[198]1-8>"
  516. 5090 wait198,1:geta$
  517. 5100 ifa$=chr$(139)then6650
  518. 5110 ifa$=chr$(133)thenfo=1:goto5160
  519. 5120 ifa$=chr$(137)thenfo=0:goto5160
  520. 5130 ifa$=chr$(135)then5170
  521. 5140 ifa$=chr$(134)thendru=1:goto5160
  522. 5145 ifa$="[140]"thenclose1:open1,8,2,"protokol,s,a":print#1,"raus":zx=1:goto5360
  523. 5150 ifa$=chr$(138)thendru=0
  524. 5160 gosub3960:poke1114,42:print"";:return
  525. 5170 gosub3960:print""
  526. 5180 poke1114,42:!printc$+c$+"[196]er[160][211]ysop[160]will[160][196]ich[160]sprechen,"+c$
  527. 5190 !print"melde[160][196]ich[160]in[160]33"+c$+c$+c$:fo=1:gosub3960
  528. 5200 print"":poke1114,42
  529. 5210 !print"[160][160][196]eine[160][215]ahl[160]>":return
  530. 5220 forz=1toez:ei$(z)="":nextz:ei$(1)="...":i=1:gf=0:fe=0:pokesd,1
  531. 5230 ex=0:poke54296,0:fv=0:fl=0:close3:is$=right$(ti$,4):fd=0:fs=0
  532. 5240 ifvn$="gma-box"thengoto5420
  533. 5250 close1:open1,f2,5,"protokol,s,a"
  534. 5260 iffi=1thenfi=0:goto5300
  535. 5270 iffw=1thenfw=0:goto5320
  536. 5280 fc=0:print#1,"hoer":goto5360
  537. 5290 fl=1:fw=1:return
  538. 5300 !printc$+c$+c$+c$+c$:print#1,"limit":zi=1
  539. 5310 !print"[160][160]***[160][218][160][197][160][201][160][212][160][204][160][201][160][205][160][201][160][212][160]***"
  540. 5320 !printc$+c$+c$+c$+"[212]schuess,[160]"+vn$
  541. 5330 !printc$+c$+"[194]is[160]bald."+c$
  542. 5340 ifzi=1thenzi=0:goto5360
  543. 5350 print#1,"loff"
  544. 5360 hh$=h$:mm$=m$:pro=1:gosub630:pro=0
  545. 5370 print#1,dt$+" "+hh$+"."+mm$+" - "+h$+"."+m$
  546. 5380 ifzx=0then:!printc$+"[197]s[160]ist[160]":gosub630:!printc$+"[204]ogoff[160]running"+c$+c$
  547. 5390 fort=1to5000:next:zx=0:print#1,vn$::print#1,"-------------------":close1
  548. 5395 pokeer,peek(er) or 4
  549. 5400 open1,f2,15,"s:callers":close1:open1,f2,3,"callers,s,w":print#1,ca:close1
  550. 5410 ifmsg=1thenmsg=0:open1,f2,15,"s:\"+vn$:close1:goto5450
  551. 5420 poke1114,32:goto5450
  552. 5430 dn=dn+1:ifdn>dm(dm)thendm=dm+1:dn=1
  553. 5440 dt$=right$(str$(dn),2)+"."+dm$(dm)+"[160]"+jr$
  554. 5450 zd=val(h$):print:ifax=0thenbf=fre(0):print"[211]ystem[160]ready.";bf;" [198]ree"+c$
  555. 5460 ifax=1thenax=0:goto4535
  556. 5470 goto4512
  557. 5480 data32,192,128,39,32,128,43,224,256,52,32,256,52,32,256,58,128,256,52,32
  558. 5490 data256,43,224,256,34,192,384,-1,-1,-1
  559. 5500 data"[202]an.",31,"[198]eb.",28,"[205]aerz",31,"[193]pril",30,"[205]ai",31,"[202]uni",30,"[202]uli",31
  560. 5510 data"[193]ug.",31,"[211]ept.",30,"[207]kt.",31,"[206]ov.",30,"[196]ez.",31,"[202]an.",31
  561. 5520 data133,95,134,96,76,191,163
  562. 5530 :!coff:s4=1:!printc$+c$+"1[160][196]ir"+c$+"2[160][195]ommand"+c$:ex=1
  563. 5540 !print"3[160][198].read"+c$+"4[160]new[160][198]."+c$+"5[160]new[160][200]acker"+c$
  564. 5550 !print"6[160]limm"+c$+"7[160][196].prot."+c$+"8[160][198].addr[160]change"+c$
  565. 5560 !print"9[160]prot.print"+c$+"10[160][205][211][199][160]write"+c$
  566. 5570 !print"11[160]conf"+c$+"12[160][197]nd"+c$
  567. 5580 !printc$+c$+"[195]hoise[160]":gosub220:a$=aa$
  568. 5585 ifval(a$)=1thengosub 1:goto5530
  569. 5590 ifval(a$)<2orval(a$)>12then5580
  570. 5600 onval(a$)-1goto5820,5940,6150,3880,3920,3940,6610,3790,6900,6960,6050
  571. 5820 !printc$+"[194]efehl[160]":gosub220:fi$=aa$
  572. 5830 iffi$=""then5530
  573. 5840 !printc$+"[211]icher[160]":gosub220:a$=aa$
  574. 5850 if(a$=chr$(74)ora$=chr$(106))then5870
  575. 5860 close1:goto5530
  576. 5870 od$=fi$
  577. 5880 ifleft$(od$,1)="n"orleft$(od$,1)="[206]"then5820
  578. 5890 close1:open1,s3,15,od$
  579. 5900 input#1,ff1,ff1$,ff2,ff3
  580. 5910 !printc$+str$(ff1)+"[160]/[160]"+ff1$+"[160]/[160]"+str$(ff2)+"[160]/[160]"+str$(ff3)+c$
  581. 5920 ifmid$(od$,4,1)=chr$(57)thenfm=0
  582. 5930 goto5530
  583. 5940 !printc$+"[206]ame[160]":zz=20:gosub7800:ff$=a$
  584. 5950 fi$=ff$+",s,r"
  585. 5960 close1:close3:open1,s3,3,fi$:open3,s3,15:input#3,ff1,ff1$:close3:close1
  586. 5970 !printc$+c$
  587. 5980 ifff1<>0then:!printc$+str$(ff1)+"/"+ff1$+c$:goto5530
  588. 5990 ifs3=9then6020
  589. 6000 if(left$(fi$,1)<>"\")and(mid$(fi$,3,1)<>" ")then 6080
  590. 6010 rem
  591. 6020 close1:open1,s3,3,fi$
  592. 6030 gosub70
  593. 6040 close1:gosub220:goto5530
  594. 6050 close1:close3:close5:close6
  595. 6060 !printc$+c$+"[194]ox[160]ready"+c$+c$:s4=0:bf=fre(0)
  596. 6070 goto4540
  597. 6080 s0=0:close1:open1,8,2,fi$
  598. 6085 !get#1,a$,200:ifst<>0thenclose1:!waita$+c$+"*[197][206][196]*"+c$:zz=1:gosub7800:s0=1
  599. 6087 ifs0<>0thens0=0:goto 5530
  600. 6090 !waita$:if rs and 1 then close1:goto5530
  601. 6100 goto6085
  602. 6150 !printc$+c$+"1[160]files"+c$+"2[160]prot."+c$+"choise[160]"
  603. 6160 gosub220
  604. 6170 ifaa$<"1"oraa$>"2"then6220
  605. 6180 ifaa$="2"then6210
  606. 6190 ifaa$=""then6220
  607. 6200 close3:open3,s3,3,"@:files,s,w":print#3,">--------":goto6220
  608. 6210 close3:open3,s3,3,"@:protokol,s,w":print#3,">--------"
  609. 6220 close3:goto5530
  610. 6230 pri=1:gf=0:i=1:ei$(1)="...":goto860
  611. 6240 ifdru=1then6270
  612. 6250 !printc$+c$+"[208]rinting...[160][194]itte[160]warten."
  613. 6260 sn$="[196]rucker":fm=fm+1:gosub3970:goto1480
  614. 6270 !printc$+c$+"[208]rinting...[160][194]itte[160]warten."
  615. 6280 close4:open4,4,7:z=1
  616. 6290 print#4:print#4:print#4,"--------------------------------------":print#4
  617. 6300 print#4,dt$:print#4,"[205]sg.von[160]"+vn$:print#4
  618. 6310 ifei$(z)="..."orz>ezthenclose4:gf=0:i=1:ei$(1)="...":fs=1:goto1540
  619. 6320 print#4,ei$(z):ei$(z)="":z=z+1:goto6310
  620. 6330 close1:open1,f1,3,mn$(z1,z2)+",s,r":!printc$+c$+c$
  621. 6340 !printc$:gosub 7700:close1:!printc$+c$+c$+">>[160][198]ile[160][197]nde[160]<<"+c$+c$:return
  622. 6350 ifpri=1thengoto6410
  623. 6360 !printc$+c$+"[193][160][195][160][200][160][212][160][213][160][206][160][199]!!"+c$+"[212]ext[160]noch[160]nicht[160]gespeichert!"+c$
  624. 6370 !print"[211]oll[160][212]ext[160]gespeichert[160]werden[160]([202]/[206])"
  625. 6380 zz=1:gosub7800:iffl=1thenformm=0toez:ei$(mm)="":return
  626. 6390 ifa$=kj$ora$=gj$thena$=ks$:goto1070
  627. 6400 sic=0:a$=kq$:goto1000
  628. 6410 !printc$+c$+"[193][160][195][160][200][160][212][160][213][160][206][160][199]!!"+c$+"[212]ext[160]noch[160]nicht[160]gedruckt!"+c$
  629. 6420 !print"[211]oll[160][212]ext[160]gedruckt[160]werden[160]([202]/[206])"
  630. 6430 zz=1:gosub7800:iffl=1thenreturn
  631. 6440 ifa$=kj$ora$=gj$thena$=ks$:goto1060
  632. 6450 sic=0:a$=kq$:goto1000
  633. 6460 ifme=1then6480
  634. 6470 aa=54272:pokeaa+5,30:pokeaa+6,32:pokeaa+24,15
  635. 6480 readhf,nf,nw :pokeaa+5,30:pokeaa+6,32:pokeaa+24,15:
  636. 6490 ifhf<0thenrestore:pokeaa+4,00:return
  637. 6500 pokeaa,nf:pokeaa+1,hf
  638. 6510 pokeaa+4,33
  639. 6520 fori=1tonw:nexti
  640. 6530 pokeaa+4,33
  641. 6540 fori=1to70:nexti
  642. 6550 me=1:pokeaa+4,00:return
  643. 6560 close1:close3:open1,f2,3,"\"+vn$+",s,r":open3,f2,15:ab=0
  644. 6570 input#3,ab:close3
  645. 6580 ifab<>0thenclose1:!printc$+c$+"[203]eine[160][205]sg.[160]fuer[160][196]ich.":return
  646. 6590 close1:open1,f2,4,"\"+vn$+",s,r"
  647. 6600 gosub70:return
  648. 6610 !printc$+c$+"old[160]addr.[160]"+str$(s3)+c$
  649. 6620 !printc$+"new[160]adr.[160]?":gosub220:ff9$=aa$
  650. 6630 s3=val(ff9$):ifs3<8ors3>9then6610
  651. 6640 goto5530
  652. 6650 input"limit[160]";rn:ifrn>90orrn<0then6650
  653. 6660 goto5160
  654. 6670 ifx=6then6870
  655. 6680 iffv=1then:!printc$+c$+"[196]u[160]musst[160][196]ich[160]zuerst[160]einschreiben.":return
  656. 6690 !printc$+c$+"[208]rogramme[160]zum[160][196][207][215][206]'[204]aden"+c$
  657. 6700 !print"-------------------------------------"+c$+c$+c$
  658. 6710 close1:open1,f3,3,"filebox,s,r":ii=1
  659. 6720 ifst=64then6740
  660. 6730 input#1,ii$(ii):ii=ii+1:goto6720
  661. 6740 ii=ii-1:close1:forij=1toii
  662. 6750 !printstr$(ij)+"[160]"+ii$(ij)+c$
  663. 6760 nextij:!printc$+c$+"[160][160][160][196]eine[160][215]ahl[160]>"
  664. 6770 zz=3:gosub 7800:iffl=1thenreturn
  665. 6780 ifa$=""ora$=kq$ora$=gq$thenclose1:return
  666. 6790 ik=val(a$):ifik<1orik>iithen:!print"-->":goto6770
  667. 6800 !printc$+c$+ii$(ik)+c$+c$
  668. 6810 !print"ready[160]?[160](j/n)":zz=1:gosub 7800:iffl=1thenreturn
  669. 6820 ifa$=kj$ora$=gj$then6850
  670. 6830 ifa$=chr$(13)then6810
  671. 6840 return
  672. 6850 open1,f3,3,ii$(ik)+",s,r":!printc$+c$+c$+c$
  673. 6860 !printc$:gosub 7700:close1:!printc$+c$+c$+c$+"--[160][198]ile[160][197]nde[160]--"+c$+c$:return
  674. 6870 !printc$+c$+"[211]ys[207]p's[160][201]nfoecke"+c$
  675. 6880 !print"-----------------"+c$+c$+c$
  676. 6890 close1:open1,f3,3,"anleitung,s,r":ii=1:goto6720
  677. 6900 gosub2370
  678. 6910 sn$=na$:gosub860:fp=0:goto5530
  679. 6950 close1:open1,f2,3,"anfang,s,r":!printc$+c$+c$:gosub 7700:close1:return
  680. 6960 gosub590:goto5530
  681. 6970 close1:open1,f2,3,"hackerpass,s,r"
  682. 6980 ifst=64thenclose1:!printc$+c$:goto7020
  683. 6990 input#1,ha$
  684. 7000 ifha$=vn$thenclose1:da=1:goto3070
  685. 7010 goto6980
  686. 7020 !print"[203]ein[160][218]utritt[160]zur[160][200]acker-[197]cke!"
  687. 7025 !printc$+"[193]nmeldung[160]in[160][211]eite[160]13[160]oder[160]52"+c$
  688. 7030 !print"[205]it[160]vollst.[160][193]dresse!"+c$+c$:return
  689. 7040 close1:open1,f1,3,mn$(z1,z2)+",s,r":!printc$+c$:us=1
  690. 7050 pokecx,0:!printc$+c$+c$:a$=""
  691. 7060 d$="":input#1,d$:d$=a$+d$:s1=st
  692. 7070 ifs1<>0orpeek(cx)=255then:!printc$+c$+">>[160][198]ile[160][197]nde[160]<<":close1:return
  693. 7080 !printc$+c$+c$:input#1,f$:gosub 7700:ifpeek(cx)=255then7070
  694. 7090 get#1,a$:a$="":get#1,a$:s1=st
  695. 7100 ifs1<>0then7070
  696. 7110 !printc$+">"+c$:if(peek(er)and16)=0thenfl=1:fc=1:close1:return
  697. 7120 goto7060
  698. 7500 iffv=1then:!printc$+c$+"[196]u[160]musst[160][196]ich[160]zuerst[160]eintragen!"+c$+c$:return
  699. 7510 !printc$+c$+c$+"[193]nmeldung[160][200]acker"+c$+"----------------"+c$
  700. 7520 !printc$+"[206]ame.......>":zz=30:gosub 7800:a1$=a$:iffl=1thenreturn
  701. 7540 !printc$+"[214]orname....>":zz=30:gosub 7800:a2$=a$:iffl=1then return
  702. 7550 !printc$+"[211]trasse/nr.>":zz=30:gosub 7800:a3$=a$:iffl=1thenreturn
  703. 7560 !printc$+"[208][204][218]/[207]rt....>":zz=30:gosub 7800:a4$=a$:iffl=1thenreturn
  704. 7570 !printc$+"[212]el(vorw.!)>":zz=30:gosub 7800:a5$=a$:iffl=1thenreturn
  705. 7580 if(a1$="")or(a2$="")or(a3$="")or(a4$="")or(a5$="")thenreturn
  706. 7590 close1:open1,8,2,"anmeldung,s,a"
  707. 7600 print#1,vn$:print#1,pa$:print#1:print#1,a1$:print#1,a2$:print#1,a3$
  708. 7610 print#1,a4$:print#1,a5$:print#1,">--------"
  709. 7620 close1:!printc$+c$+"[196]aten[160]sind[160]gesaved"+c$+"[215]irst[160]in[160]den[160]naechsten[160][212]agen"
  710. 7630 !printc$+"eingetragen."+c$:open1,8,2,"anm.hacker,s,a":print#1,vn$:close1
  711. 7640 return
  712. 7700 rem file read
  713. 7710 !get#1,a$,255,255:if(rs and 4)=0then:!wait a$:return
  714. 7720 !waita$,1,1,1
  715. 7725 if rs and 2 thengosub 7740:return
  716. 7727 if rs and 1 then 7730
  717. 7729 ifst=0thengoto 7710
  718. 7730 poke cx,255:s1=66:return
  719. 7740 !get#1,a$,255,255:if((rs and 4)<>0) and st=0 then 7740
  720. 7750 return
  721. 7800 rem input
  722. 7805 if(peek(er)and16)=0 thenfl=1:fc=1:return
  723. 7810 ifzz=0thenzz=1:
  724. 7815 !input a$,zz:ifrsand 128 then fl=1:fc=1:return
  725. 7820 if(peek(er) and 16)=0 then fl=1:fc=1:return
  726. 7830 fl=0:fc=0:return
  727.