10 REM ADD V8.6F 5N
20 REM VERSION: 27.1.'87
30 REM (W)RITEN BY: STEFAN ROETTGER,
40 REM SAARSTR.75, 3300 BRAUNSCHWEIG
90 POKE56576,PEEK(56576)AND252:POKE53272,9:POKE648,192:SYS58692
100 CLR:H$="":NU%=9:DIMA$(NU%),LA(NU%),H$(NU%),F(NU%),S$(100),WP$(NU%):S$="
110 [159]15,8,15:[151]650,128
120 [151]53280,0:[151]53281,0:RL$[178][199](10)[170][199](13)
130 [139][194](52991)[171]1[167][153][199](142)"LOADSYS                (null)ASSWORD
140 JE$="":IFPEEK(52991)-1THENT1=49851:GOSUB2070:POKE52991,1:GOSUB2040
150 RT$=CHR$(13):DE$=CHR$(20):BA$="[158][157].[157]":SP$="                    "
160 C$="[129]":DD$="[157] [146][158] = ":H3$="[164][164][164][164][164][164][164]":POKE657,128
170 H1$="[147][146]":H2$="":HA$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
180 LA(1)[178]1:LA(2)[178]20:LA(3)[178]20:LA(4)[178]20:LA(5)[178]4:LA(6)[178]20:LA(7)[178]20:LA(8)[178]10
190 LA(9)[178]10:WP$(9)[178]"(null)EXT   "
200 WP$(1)[178]"ATNNREDE ":WP$(2)[178]"(null)AME   ":WP$(3)[178]"(null)ORNAME":WP$(4)[178]"(null)TRA\E "
210 WP$(5)[178]"(null)LZ    ":WP$(6)[178]"(null)RT    ":WP$(7)[178]"(null)ELEF. ":WP$(8)[178]"GEB.STR$AT"
220 [153][199](142)H1$HA$"CONT  ATN D R E S S E N  (null) E R W A L T U N G  "H2$HA$
230 US$[178]"ONSYS                < '86 VAL(null)(null)(null)"[170]RT$
240 DO$[178]"         ":D1$[178]"FOR         TOTOTO":AD$[178]"CMD WAITSYS - ATNDRESSEN "
250 [141]1980:[153]US$:[153]DO$"FOR E WAITSYS - VALNDE":[153]D1$
260 [153]DO$1AD$"ATNUSGABE":[153]D1$
270 [153]DO$2AD$"(null)UCHEN":[153]D1$
280 [153]DO$3AD$"VALINGABE":[153]D1$
290 [153]DO$4AD$"]NDERN":[153]D1$
300 [153]DO$5AD$"(null):SCHEN":[153]D1$
310 [153]DO$6"CMD WAIT SYS- STR$ATEIEN (null):SCHEN":[153]D1$
320 [153]DO$7"CMD WAIT SYS- (null)ORTIERTE ATNUSGABE":[153]D1$
330 [153]DO$8"CMD WAIT SYS- (null)ASSWORD ;NDERN":[153]D1$
340 [153]DO$9"CMD WAIT SYS- STR$ATEIEN (null)MKODIEREN
350 POKE198,0:WAIT198,1:GETT$:IFT$="E"THENSYS828:POKE52991,0:SYS64738
360 TT=VAL(T$):IFTT=0THEN350
370 IFTT=8THENPOKE52991,0:RUN
380 ONTTGOTO400,1030,1090,1330,1330,1640,1760,370,2000
390 RETURN
400 PRINTH1$HA$"[154]     [193] D R E S S E N  [193] U S G A B E     "H2$HA$"
410 [153]"FOR"H3$"TO":[129]T[178]1[164]NU%:[153]"FOR"WP$(T)"/":[130]:[153]"
420 GOSUB1710
430 IFB$="*"THENFL=1:FORB=193TO221:B$=CHR$(B+(B=219)*126+(B=220)*129+(B=221)*35)
440 PRINT""SP$"       [157][157][157][157][157][157][157][157]"B$
450 CLOSE1:OPEN1,8,8,B$+",S,R":INPUT#15,ER,ER$,T,S:IFERTHEN710
460 POKE2,0:SYS(51456)1,S$:IF(ST AND64)=0THENGOSUB490:GOTO460
470 IFLEFT$(S$,1)="*"THENCLOSE1:GOTO710
480 GOSUB490:CLOSE1:GOTO710
490 IFF(1)=1ANDLEFT$(S$,1)<>H$(1)THENRETURN
500 QQ=1:FORT=1TONU%:LB=LA(T):A$(T)=MID$(S$,QQ,LB):QQ=QQ+LB:NEXT
510 T=1:F=F(T):IFF=1THENT=2:F=F(T)
520 IFF=0THEN580
530 H$=H$(F):IFF-4ANDF-7ANDF-8ANDH$<>LEFT$(A$(F),LEN(H$))THENRETURN
540 IFF-4ANDF-7ANDF-8THEN570
550 I2=1:FORI1=0TOLEN(A$(F))-LEN(H$):IFH$=MID$(A$(F),I1+1,LEN(H$))THENI2=0
560 NEXT:IFI2THENRETURN
570 T=T+1:F=F(T):IFFTHEN530
580 PRINT"[158]
590 [129]T[178]1[164]NU%:[153]""A$(T):[130]:[141]1960
600 [139]M[177]0[167][142]
610 [153]"";
620 [139]PD[167][141]750:[142]
630 [153]"          (null)EITER ?  (J/N/P/C)"
640 [151]198,0:[146]198,1:[153]"ON"[200](SP$[170]SP$,30)"ON"
650 [161]T$:[139]T$[178]""[175]PD[178]0[167]620
660 [139]T$[178]"J"[167][142]
670 [139]T$[178]"N"[167][160]1:[138]
680 [139]T$[178]"P"[167][141]750:[142]
690 [139]T$[178]"C"[167]PD[178]1:PE[178]0
700 [137]620
710 [139]FL[178]1[167][160]1:[130]
720 [153]"SYS         (null)ETZTER ATNDRESSEN-(null)ATZ !        "
730 [153]"         PEEKITTE (null)ASTE DR@CKEN.":[141]1960
740 [151]198,0:[146]198,1:[160]1:[138]
750 [139]PD[167]PE%[178][180](PE)[170]2:[145]PE%[137]820,760,880
760 [153]"           VALTIKETTENFORMAT ?ON"
770 [151]198,0:[146]198,1:[161]T$
780 [139]T$[178]"N"[167][153][200](SP$[170]SP$,35)"ON":PE[178][171]1:[137]820
790 [153]"              ATNNZAHL ? (1-9)"
800 [151]198,0:[146]198,1:[161]T$:[153]"ON"[200](SP$[170]SP$,30)"ON":PE[178][197](T$)
810 PE[178]PE[171](PE[178]0):[137]880
820 [159]4,4,1:[160]4:[139]ST[178]0[167]840
830 [153]"LOADSTR$RUCKER EINSCHALTEN !":[151]198,0:[146]198,255:[160]1:[138]
840 [159]4,4,2:VS$[178]"     "
850 [152]4,[199](27)"(null)"VS$A$(2)" "A$(3)"^ "A$(4)"^ "A$(5)" "A$(6)RL$
860 [152]4,SP$" (null)EL./"A$(7)" GEB. STR$ATUM /"A$(8)"      "A$(9)RL$
870 [160]4:[142]
880 [159]4,4,1:[160]4:[139]ST[178]0[167]900
890 [153]"LOADSTR$RUCKER EINSCHALTEN !":[151]198,0:[146]198,255:[160]1:[138]
900 [159]4,4,2:VS$[178]"      ":Z$[178]A$(1):[129]K[178]1[164]PE
910 [139]Z$[178]"H"[167]A$[178]"LEFT$ERRN":[137]960
920 [139]Z$[178]"F"[167]A$[178]"ASCRAU":[137]960
930 [139]Z$[178]"A"[167]A$[178]"ATNN":[137]960
940 [139]Z$[178]"M"[167]A$[178]"ASCRL.":[137]960
950 A$[178]"ATNBS./"
960 [159]5,4,2:[152]5,"VALCHR$";:[160]5
970 [152]4,"(null)"VS$A$RL$:[139][200](A$(3),1)[178]" "[167]A$(3)[178]"":[137]1010
980 A$[178]VS$:[129]T[178]3[164]2[169][171]1:F[178]0:A$(T)[178]A$(T)[170]" ":[129]J[178]LA(T)[164]2[169][171]1
990 [139]([198]([202](A$(T),J,1))[171]32)[175](F[178]0)[167]A$[178]A$[170][200](A$(T),J[171](T[178]3)):F[178]1
1000 [130]:[130]:TR$[178]RL$[170]RL$
1010 A$[178][201](A$,LA(3)[170]LA(2)[170]1):[152]4,A$TR$VS$A$(4)TR$VS$A$(5)"  "A$(6)RL$
1020 [152]4,TR$RL$:[159]5,4,2:[152]5,"ASCLEFT$";:[160]5:[130]:[137]870
1030 [153]H1$HA$"CONT      ATN D R E S S E N  (null) U C H E N      "H2$HA$
1040 [153]"          (null)UCHKRITERIEN":PQ[178]1:M[178]1
1050 [129]IN[178]1[164]NU%:[141]1220:H$(IN)[178]A$(IN):F(IN)[178]0:[139]H$(IN)[179][177]""[167]F(PQ)[178]IN:PQ[178]PQ[170]1
1060 [130]:M[178]0:[153]"
1070 IFF(2)<>2ANDF(1)<>2THENPRINT"":GOTO420
1080 H$(2)=A$(2):B$=LEFT$(A$(2),1):GOTO450
1090 PRINTH1$HA$"[154]     [193] D R E S S E N  [197] I N G A B E     "H2$HA$
1100 FORIN=1TONU%:GOSUB1220:NEXT
1110 PRINT:PRINT"[158] [201]N [207]RDNUNG ? (J/N)
1120 [161]T$:[139]T$[179][177]"J"[175]T$[179][177]"N"[167]1120
1130 [139]T$[178]"N"[167]1090
1140 D$[178][200](A$(2),1):[139]A$(1)[178]" "[167]A$(1)[178]".
1150 CLOSE1:OPEN1,8,8,D$+",S,R":POKE2,0:SYS(51456)1,S$:CLOSE1:AD$=",S,A
1160 [139][200](S$,1)[178]"*"[176]S$[178]""[167][152]15,"S:"[170]D$:AD$[178]",S,W"
1170 [160]1:[159]1,8,8,D$[170]AD$:S$[178]"":[129]T[178]1[164]NU%:S$[178]S$[170]A$(T):[130]:[151]2,0
1180 [152]1,S$:[160]1:[138]
1190 [161]T$:T[178][198](T$[170][199](0)):[139]T[178]20[176]T[178]32[176]T[178]13[176]T[178]186[176]T[177][178]35[175]T[179]127[167][142]
1200 [139]T[177]192[175]T[179]219[167][142]
1210 [137]1190
1220 [139]IN[178]1[167][153]"FOR"H3$:[137]1240
1230 [153]
1240 [153]"FOR"WP$(IN)"WAITSYS";:A$(IN)[178]"":[129]T[178]1[164]LA(IN):[153]".";:[130]
1250 [153]:[153]"ON"[163]11);
1260 [141]1190:A[178][195](A$(IN)):[139](A[178]0[175]T$[178]DE$)[176](A[178]LA(IN)[175]T$[177]DE$)[167]1260
1270 [139]T$[178]DE$[167]A$(IN)[178][200](A$(IN),A[171]1):[153]BA$;:[137]1260
1280 [139]T$[179][177]RT$[175]IN[178]1[175][197](T$)[179][177]0[167]1260
1290 [139]T$[179][177]RT$[167]A$(IN)[178]A$(IN)[170]T$:[153]T$;:[137]1260
1300 [139]M[178]1[167][142]
1310 A$(IN)[178][200](A$(IN)[170]SP$,LA(IN)):[142]
1320 [153]H1$HA$"CONT      ATN D R E S S E N  ] N D E R N      "H2$HA$:[142]
1330 [141]1320
1340 [141]1710:NN[178]0:[139]B$[178]"*"[167]1340
1350 M[178]2:[139]TT[178]4[167]A$[178]"           ]NDERN ?   (J/N/E)":[137]1370
1360 A$[178]"           (null):SCHEN ?   (J/N/E)
1370 D$=B$:N=0:HH$=B$+",S,R
1380 [159]1,8,8,HH$:[132]15,ER,ER$,T,S:[139]ER[167][160]1:[138]
1390 N[178]N[170]1:[151]2,0:[158](51456)1,S$(N):[139](ST [175]64)[178]0[167]1390
1400 [160]1:[139]S$(1)[178]"*"[167][138]
1410 [129]Z[178]1[164]N:QQ[178]1:S$[178]S$(Z):[129]T[178]1[164]NU%:A$(T)[178][202](S$,QQ,LA(T)):QQ[178]QQ[170]LA(T):[130]
1420 [153]"LOAD":[141]1320
1430 [153]"FOR"H3$"TO":[129]T[178]1[164]NU%:[153]"FOR"WP$(T)"/":[130]
1440 [141]580
1450 [153]"";
1460 [153]A$
1470 [151]198,0:[146]198,1:[161]T$
1480 [153]"ON"[200](SP$[170]SP$,38)"ON"
1490 [139]T$[178]"E"[167][153]"":[137]1610
1500 [139]T$[178]"N"[167][153]"":[130]:[137]1610
1510 [139]T$[179][177]"J"[167]1460
1520 [139]TT[178]5[167]1600
1530 [153]"LOAD":[141]1320
1540 [153]"FORTOTOTO":[129]T[178]1[164]NU%:[153]"FOR"T[171]1;DD$WP$(T):[130]:[151]198,0
1550 [161]T$:IN[178][197](T$):[139][197](T$)[178]0[175]T$[179][177]"0"[167]1550
1560 IN[178]IN[170]1:[139]IN[177]NU%[167]1550
1570 [141]1220:NN[178]1
1580 [139]IQ[178]1[167]IQ[178]0:[142]
1590 S$(Z)[178]"":[129]I[178]1[164]NU%:S$(Z)[178]S$(Z)[170]A$(I):[130]:[137]1420
1600 N[178]N[171]1:[129]B[178]Z[164]N:S$(B)[178]S$(B[170]1):[130]:NN[178]1
1610 [139]NN[178]0[167][138]
1620 [152]15,"S:"[170]D$:[159]1,8,8,D$[170]",S,W":[139]N[178]0[167]S$(1)[178]"*
1630 FORT=1TON:POKE2,0:PRINT#1,S$(T):NEXT:CLOSE1:RUN
1640 PRINTH1$HA$"[154]     [196] A T E I E N    [204] : S C H E N     "H2$HA$:RESTORE
1650 GOSUB1710:PRINT#15,"I0":IFB$="*"THEN1680
1660 PRINT#15,"S:"+B$
1670 CLOSE1:OPEN1,8,8,B$+",S,W":POKE2,0:PRINT#1,"*":CLOSE1:RUN
1680 FORB=193TO221:B$=CHR$(B+(B=219)*126+(B=220)*129+(B=221)*35)
1690 PRINT""SP$"       [157][157][157][157][157][157][157][157]"B$
1700 PRINT#15,"S:"+B$:OPEN1,8,8,B$+",S,W":POKE2,0:PRINT#1,"*":CLOSE1:NEXT:RUN
1710 PRINT"[158]         [196]ATEI - [195]ODE [173]   ?[157]";
1720 POKE198,0:WAIT198,1:GETB$:B=ASC(B$)
1730 IFB-42ANDB-58ANDB-59AND(B>90ORB<64)THEN1720
1740 IFB$="*"THENPRINTB$:RETURN
1750 B$=CHR$(B+128+(B=59)*94+(B=58)*95+(B=64)*6):PRINTB$:RETURN
1760 PRINTH1$HA$"[154]     [211] O R T I E R T E   [193] U S G A B E  "H2$HA$"
1770 [141]1710:[153]"     ";:CK[178]0
1780 FL[178]0
1790 [139]B$[178]"*"[167]FL[178]1:[129]B[178]193[164]221:B$[178][199](B[170](B[178]219)[172]126[170](B[178]220)[172]129[170](B[178]221)[172]35)
1800 [139]CK[167]JE$[178]KI$:[141]2040
1810 [160]1:[159]1,8,8,B$[170]",S,R":N[178]0:[132]15,ER,ER$,S,T:[139]ER[167]1900
1820 N[178]N[170]1:[151]2,0:[158](51456)1,S$(N):[139](ST [175]64)[178]0[167]1820
1830 [160]1:[139]N[178]0[167]1900
1840 [139]CK[178]1[175]KI$[179][177]KO$[167]JE$[178]KO$:[141]2040
1850 [139]CK[167][152]15,"S:"[170]B$:[159]2,8,8,B$[170]",S,W
1860 IFN=1THENS$=S$(1):GOSUB1920:GOTO1900
1870 FORTT=NTO1STEP-1:S$=S$(1):S=1:FORP=1TOTT
1880 IFRIGHT$(S$,LEN(S$)-1)>RIGHT$(S$(P),LEN(S$(P))-1)THENS$=S$(P):S=P
1890 NEXT:GOSUB1920:S$(S)=S$(TT):NEXT
1900 IFFL=0ANDCK=0THENRUN
1910 PRINTB$;:CLOSE2:NEXT:GOTO720
1920 IFCK=0THENQQ=2:FORT=2TONU%:LB=LA(T):A$(T)=MID$(S$,QQ,LB):QQ=QQ+LB:NEXT
1930 IFCK=0THENPD=1:GOSUB820
1940 IFCK=1THENPOKE2,0:PRINT#2,S$
1950 RETURN
1960 SI=54272:FORJ=4TO18STEP7:POKESI+J,0:NEXT
1970 FORJ=4TO18STEP7:POKESI+J,17:NEXT:RETURN
1980 RESTORE:SI=54272
1990 FORI=0TO24:READA:POKESI+I,A:NEXT:RETURN
2000 PRINTH1$HA$"[154]  [193] D R E S S E N  [213] M K O D I E R E N  "H2$HA$
2010 INPUT"[158][214]ON [208]ASSWORD [173]";KI$
2020 INPUT"[158][206]ACH [208]ASSWORD [173]";KO$:IFKO$=""THENKO$=KI$
2030 PRINT"      ";:CK=1:B$="*":GOTO1780
2040 SYS828:IFJE$=""THENRETURN
2050 FORT=0TOLEN(JE$)-1:POKE52992+T,ASC(MID$(JE$,T+1)):NEXT:SYS847
2060 RETURN
2070 L=0:T=T1-130+6144:FORI=TTOT+260:POKEI,7:NEXT:POKE198,0:WAIT198,1
2080 GETJ1$:T=ASC(J1$+CHR$(0)):IFT=0THEN2080
2090 IFT=13THENRETURN
2100 IFT=20THEN2130
2110 JE$=JE$+J1$:A=L/2-INT(L/2):T1=T1+(A=0)*L-(A<>0)*L:L=L+1:POKET1,45
2120 GOTO 2080
2130 IFL=0THEN2080
2140 L=L-1:A=L/2-INT(L/2):JE$=LEFT$(JE$,L):POKET1,32:T1=T1-(A=0)*L+(A<>0)*L
2150 GOTO2080
2160 DATA187,34,,,16,10,,207,34,,,16,10,,227,34,,,16,10,,,,,15