5 REM"1992 SYS2061 BY "MARKUS FISCHER""(null)
6 POKE53265,11
7 A=A+1:IFA=1THENLOAD"CHARS",8,1
8 IFA=2THENLOAD"DIR",8,1
9 POKE53272,29:POKE53265,27
10 PRINT"[147]"CHR$(8)CHR$(14):POKE53280,0:POKE53281,0:POKE788,52:POKE792,193
15 DIMEI$(100,6):SN=1
20 PRINTTAB(5)"[162][162][162][162]    [162][162][162]  [162][162][162][162][162]     [162][162][162]
30 [153][163]5)"NEW   NEW  NEW   NEW   NEW      NEW   NEW
40 PRINTTAB(5)"[150][162]   [162]  [162]   [162]   [162]      [153][162]   [162]
50 [153][163]5)"DEFNEW   NEW  NEW   NEW   NEW      PRINTNEW   NEW
60 PRINTTAB(5)"[158][162]   [162]  [162][162][162][162][162]   [162]   [162][162] [162]   [162] [162][162]
70 [153][163]5)"DEFNEW   NEW  NEW   NEW   NEW      PRINTNEW   NEW
80 PRINTTAB(5)"[150][162]   [162]  [162]   [162]   [162]      [153][162]   [162]
90 [153][163]5)"NEW   NEW  NEW   NEW   NEW      NEW   NEW
100 PRINTTAB(5)"[162][162][162][162]   [162]   [162]   [162]       [162][162][162]
110 [153][163]11)"NEW   NEW   NEWNEWNEW  NEWNEWNEWNEWNEW
120 PRINTTAB(11)"[162]   [162]  [162]   [162]   [162]
130 [153][163]11)"CONTNEWNEW NEWNEW  NEW   NEW   NEW
140 PRINTTAB(11)"[154][162][162][162][162][162]  [162]   [162]   [162]
150 [153][163]11)"OPENNEW NEW NEW  NEWNEWNEWNEWNEW   NEW
160 PRINTTAB(11)"[154][162]   [162]  [162]   [162]   [162]
170 [153][163]11)"CONTNEW   NEW  NEW   NEW   NEW
180 PRINTTAB(11)"[162]   [162]  [162]   [162]   [162]
190 [153][163]11)"NEW   NEW  NEW   NEW   NEW
200 PRINT"[158] GESCHRIEBEN VON [205]ARKUS [198]ISCHER ([195])1994"
210 GETA$:IFA$=" "THEN400
220 GOTO210
400 RU$(1)="      [197]INGABE      "
410 RU$(2)="      [193]USGABE      "
420 RU$(3)="    [196]URCHSUCHEN    "
430 RU$(4)="     [196]ISK-[205]ENU     "
440 RU$(5)=" [208]ROGRAMM  BEENDEN "
450 DM$(1)="   [196]ATEI LADEN   "
460 DM$(2)=" [196]ATEI SPEICHERN "
470 DM$(3)="    [196]IRECTORY    "
480 DM$(4)="    [200]AUPTMENU    "
500 PRINT"[147][158]":POKE650,1
510 PRINTTAB(10)"[176][178][174]      [176][174]"
520 PRINTTAB(10)"[221][221][171][192][174][176][178][178][192][179][173][178][192][192][178][192][178][192][178][178][174]"
530 PRINTTAB(10)"[221] [221][221][221][221][221][221][221][221][176][179][221][221][221][221][221][221][221][221][221]"
540 PRINTTAB(10)"[221][221][221][221][171][179][221][221][221][221][171][179][221][221][221][176][179][221][221][221][221]"
550 PRINTTAB(10)"[173][177][177][192][192][177][192][179][176][177][192][177][177][177][177][192][177][177][177][192][189]"
560 PRINTTAB(10)"[156][184][184][184][184][184][184][184][158][173][189][156][184][184][184][184][184][184][184][184][184][184][184][184]"
570 PRINT""TAB(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
580 FORN=1TO4
590 PRINTTAB(10)"[221]                   [221]"
600 PRINTTAB(10)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
610 NEXT
620 PRINTTAB(10)"[221]                   [221]"
630 PRINTTAB(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
690 PRINT"[159]";
700 FORN=1TO6
710 PRINTTAB(11)RU$(N):PRINT
720 NEXT
730 CP=1:PRINT""TAB(11)RU$(CP)
740 GETA$:IFA$=""THEN740
750 IFA$=""ANDCP<5THEN790
760 IFA$="[145]"ANDCP>1THEN800
770 IFA$=CHR$(13)THENONCPGOTO1000,3000,6000,7000,8000
780 GOTO740
790 PRINT"[145]"TAB(11)RU$(CP):CP=CP+1:PRINT""TAB(11)RU$(CP):GOTO740
800 PRINT"[145]"TAB(11)RU$(CP):CP=CP-1:PRINT"[145][145][145]"TAB(11)RU$(CP):GOTO740
1000 PRINT"[147]"
1005 IFSN=101THENPRINT""TAB(12)"[211]PEICHER IST VOLL!"
1006 IFSN=101THENFORN=1TO1500:NEXT:GOTO500
1010 PRINTTAB(16)"[162][162][162][162][162][162][162][162][162]"
1020 PRINTTAB(15)"[159]          "
1030 PRINTTAB(15)"[159] [197]INGABE  "
1040 PRINTTAB(15)"[159]         [162]"
1050 PRINT""TAB(13)"[208]ERSON [206]R."RIGHT$(STR$(SN),4)
1060 PRINTTAB(12)"[156][163][163][163][183][183][183][184][184][184][184][183][183][183][163][163][163]"
1070 PRINTTAB(10)"[154][214]ORNAME :                   "
1080 PRINTTAB(10)"[206]ACHNAME:                   "
1090 PRINTTAB(10)"[193]DRESSE :                   "
1100 PRINTTAB(10)"[215]OHNORT :                   "
1110 PRINTTAB(10)"[212]ELEFON :                   "
1115 PRINTTAB(10)"[199]EB. AM :                   "
1120 PRINT"[145][145][145][145][145][145][145][158]"
1130 AZ=18
1140 FORN=1TO6
1150 PRINTTAB(20);
1160 GOSUB50000:IFPF=1THEN500
1170 EI$(SN,N)=HV$
1180 NEXT
1190 SN=SN+1
1200 IFSN=101THENGOTO500
1210 GOTO1050
3000 PRINT"[147]":AN=1
3005 IFSN=1THENPRINTTAB(8)"[203]EINE [196]ATEN IM [211]PEICHER!"
3006 IFSN=1THENFORN=1TO2000:NEXT:GOTO500
3010 PRINTTAB(16)"[162][162][162][162][162][162][162][162][162]"
3020 PRINTTAB(15)"[159]          "
3030 PRINTTAB(15)"[159] [193]USGABE  "
3040 PRINTTAB(15)"[159]         [162]"
3050 POKE650,128:PRINT""TAB(13)"[208]ERSON [206]R."RIGHT$(STR$(AN),4);" "
3060 PRINTTAB(12)"[156][163][163][163][183][183][183][184][184][184][184][183][183][183][163][163][163]"
3070 PRINTTAB(10)"[154][214]ORNAME :                   "
3080 PRINTTAB(10)"[206]ACHNAME:                   "
3090 PRINTTAB(10)"[193]DRESSE :                   "
3100 PRINTTAB(10)"[215]OHNORT :                   "
3110 PRINTTAB(10)"[212]ELEFON :                   "
3120 PRINTTAB(10)"[199]EB. AM :                   "
3130 PRINT"[145][145][145][145][145][145][158]";
3140 FORN=1TO6
3150 PRINTTAB(20)EI$(AN,N)
3160 NEXT
3170 PRINT""TAB(11)"[153] [198]1 [146] [196]ATENSATZ VOR"
3175 PRINTTAB(11)"[153] [198]2 [146] [196]ATENSATZ ZUR^CK"
3180 PRINTTAB(11)" [198]3 [146] 10 [196]ATENS.VOR"
3185 PRINTTAB(11)" [198]4 [146] 10 [196]ATENS.ZUR^CK"
3190 PRINTTAB(11)" [198]5 [146] [196]ATENSATZ ;NDERN[158]"
3200 GETA$:IFA$=""THEN3200
3210 IFA$="[133]"ANDAN<SN-1THENAN=AN+1:GOTO3050
3215 IFA$="[137]"ANDAN>1THENAN=AN-1:GOTO3050
3220 IFA$="[134]"ANDAN+10<SNTHENAN=AN+10:GOTO3050
3225 IFA$="[138]"ANDAN-10>0THENAN=AN-10:GOTO3050
3230 IFA$="[135]"THENPOKE650,1:GOTO3250
3240 IFA$="_"THEN500
3245 GOTO3200
3250 PO=1
3260 PRINT"";
3270 PRINT""TAB(20)EI$(AN,PO)
3280 GETA$:IFA$=""THEN3280
3290 IFA$=""ANDPO<6THENPRINTTAB(20)"[145]"EI$(AN,PO):PO=PO+1:GOTO3270
3300 IFA$="[145]"ANDPO>1THENPRINTTAB(20)"[145]"EI$(AN,PO):PO=PO-1:PRINT"[145][145]";:GOTO3270
3310 IFA$=CHR$(13)THEN3330
3315 IFA$="_"THENPRINT"[145]"TAB(20)EI$(AN,PO):GOTO3170
3320 GOTO3280
3330 PRINTTAB(20)"[145]                  "
3340 PRINTTAB(20)"[145]";
3350 AZ=18
3360 GOSUB50000:IFPF=1THEN3050
3370 EI$(AN,PO)=HV$
3380 GOTO3170
4000 PRINT"[147]"
4010 PRINTTAB(17)"[162][162][162][162][162][162][162]"
4020 PRINTTAB(16)"[159]        "
4030 PRINTTAB(16)"[159] [204]ADEN  "
4040 PRINTTAB(16)"[159]       [162]"
4050 PRINTTAB(11)"[154][198]ILENAME: [158]";
4060 AZ=16
4065 GOSUB50000:IFPF=1THEN7000
4066 PRINTTAB(11)"[156][211]EARCHING":GOSUB10000
4067 IFDR=0THENPRINT"[147]"TAB(7)"[198]LOPPY IST AUSGESCHALTET!"
4068 IFDR=0THENFORN=1TO2000:NEXTN:GOTO7000
4080 OPEN2,8,2,HV$+",S,R":CLOSE2
4090 OPEN1,8,15:INPUT#1,A:CLOSE1
4100 IFA<>0THENPRINTTAB(11)"[198]ILE NOT FOUND!":FORN=1TO1000:NEXT:GOTO7000
4105 PRINTTAB(11)"[210]EADING"
4110 OPEN2,8,2,HV$+",S,R"
4120 INPUT#2,SN
4130 FORN=1TOSN-1
4140 FORI=1TO6
4150 INPUT#2,EI$(N,I)
4160 NEXTI,N:CLOSE2
4170 PRINTTAB(11)"[207][203].":FORN=1TO500:NEXT:GOTO7000
5000 PRINT"[147]"
5005 IFSN=1THENPRINTTAB(8)"[203]EINE [196]ATEN IM [211]PEICHER!"
5006 IFSN=1THENFORN=1TO2000:NEXT:GOTO7000
5010 PRINTTAB(15)"[162][162][162][162][162][162][162][162][162][162][162]"
5020 PRINTTAB(14)"[159]            "
5030 PRINTTAB(14)"[159] [211]PEICHERN  "
5040 PRINTTAB(14)"[159]           [162]"
5050 PRINTTAB(9)"[154][198]ILENAME: [158]@:";
5055 AZ=16
5060 GOSUB50000:IFPF=1THEN7000
5061 PRINTTAB(9)"[156][195]HECKING [196]ISK":GOSUB10000
5062 IFDR=0THENPRINT"[147]"TAB(7)"[198]LOPPY IST AUSGESCHALTET!"
5063 IFDR=0THENFORN=1TO2000:NEXTN:GOTO7000
5065 HV$="@:"+HV$
5080 OPEN2,8,2,HV$+",S,W":CLOSE2
5090 OPEN1,8,15:INPUT#1,A:CLOSE1
5100 IFA<>0THENPRINTTAB(9)"[198]EHLER!":FORN=1TO500:NEXT:GOTO7000
5105 PRINTTAB(9)"[215]RITING"
5110 OPEN2,8,2,HV$+",S,W"
5120 PRINT#2,SN
5130 FORN=1TOSN-1
5140 FORI=1TO6
5150 PRINT#2,EI$(N,I)
5160 NEXTI,N:CLOSE2
5170 PRINTTAB(9)"[207][203].":FORN=1TO500:NEXT:GOTO7000
6000 PRINT"[147]"
6005 IFSN=1THENPRINTTAB(8)"[203]EINE [196]ATEN IM [211]PEICHER!"
6006 IFSN=1THENFORN=1TO2000:NEXT:GOTO500
6010 PRINTTAB(14)"[162][162][162][162][162][162][162][162][162][162][162][162][162]"
6020 PRINTTAB(13)"[159]              "
6030 PRINTTAB(13)"[159] [196]URCHSUCHEN  "
6040 PRINTTAB(13)"[159]             [162]"
6050 PRINTTAB(13)"[208]ERSON [206]R."
6060 PRINTTAB(12)"[156][163][163][163][183][183][183][184][184][184][184][183][183][183][163][163][163]"
6070 PRINTTAB(10)"[154][214]ORNAME :"
6080 PRINTTAB(10)"[206]ACHNAME:"
6090 PRINTTAB(10)"[193]DRESSE :"
6100 PRINTTAB(10)"[215]OHNORT :"
6110 PRINTTAB(10)"[212]ELEFON :"
6120 PRINTTAB(10)"GEB. AM :"
6130 PRINTTAB(7)"[155][211]UCHBEGRIFF: [152]";:AZ=18:GOSUB50000:IFPF=1THEN500
6135 SB$=HV$
6140 PRINT""TAB(16)"[153][211]UCHE..."
6150 FORN=1TOSN-1
6160 FORI=1TO6
6170 HV$=EI$(N,I)
6180 FORX=1TOLEN(HV$)-LEN(SB$)+1
6190 IFSB$=MID$(HV$,X,LEN(SB$))THEN6210
6200 NEXTX,I,N:PRINT"[147]"TAB(15)"[196]ATEIENDE!":FORN=1TO2000:NEXTN:GOTO500
6210 PRINT""TAB(23)RIGHT$(STR$(N),4)
6215 PRINT""TAB(20);
6220 IFI=1THENPRINT"[158]"LEFT$(HV$,X-1)""SB$"[158]"RIGHT$(HV$,LEN(HV$)-X-LEN(SB$)+1)
6230 IFI<>1THENPRINT"[158]"EI$(N,1)
6240 PRINTTAB(20);
6250 IFI=2THENPRINT"[158]"LEFT$(HV$,X-1)""SB$"[158]"RIGHT$(HV$,LEN(HV$)-X-LEN(SB$)+1)
6260 IFI<>2THENPRINT"[158]"EI$(N,2)
6270 PRINTTAB(20);
6280 IFI=3THENPRINT"[158]"LEFT$(HV$,X-1)""SB$"[158]"RIGHT$(HV$,LEN(HV$)-X-LEN(SB$)+1)
6290 IFI<>3THENPRINT"[158]"EI$(N,3)
6300 PRINTTAB(20);
6310 IFI=4THENPRINT"[158]"LEFT$(HV$,X-1)""SB$"[158]"RIGHT$(HV$,LEN(HV$)-X-LEN(SB$)+1)
6320 IFI<>4THENPRINT"[158]"EI$(N,4)
6330 PRINTTAB(20);
6340 IFI=5THENPRINT"[158]"LEFT$(HV$,X-1)""SB$"[158]"RIGHT$(HV$,LEN(HV$)-X-LEN(SB$)+1)
6350 IFI<>5THENPRINT"[158]"EI$(N,5)
6360 PRINTTAB(20);
6370 IFI=6THENPRINT"[158]"LEFT$(HV$,X-1)""SB$"[158]"RIGHT$(HV$,LEN(HV$)-X-LEN(SB$)+1)
6380 IFI<>6THENPRINT"[158]"EI$(N,6)
6390 PRINTTAB(11)"[153][215]EITERSUCHEN? ([202]/[206])"
6400 GETA$:IFA$=""THEN6400
6410 IFA$="J"THEN6440
6420 IFA$="N"THEN500
6430 GOTO6400
6440 PRINT""TAB(24)"   "
6450 PRINT"";
6460 FORU=1TO6:PRINTTAB(20)"                  ":NEXT
6470 PRINT"[153]"TAB(11)"     [211]UCHE...      "
6480 GOTO6200
7000 PRINT"[147]":DM=1
7010 PRINTTAB(15)"[162][162][162][162][162][162][162][162][162][162][162]"
7020 PRINTTAB(14)"[159]            "
7030 PRINTTAB(14)"[159] [196]ISK-[205]ENU  "
7040 PRINTTAB(14)"[159]           [162]"
7050 PRINT""TAB(10)"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
7060 FORN=1TO3
7070 PRINTTAB(10)"[221]                 [221]"
7080 PRINTTAB(10)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
7090 NEXT
7100 PRINTTAB(10)"[221]                 [221]"
7110 PRINTTAB(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
7120 PRINT"[158]";
7130 FORN=1TO4:PRINT:PRINTTAB(11)DM$(N):NEXT
7140 CP=1:PRINT""TAB(11)DM$(CP)
7150 GETA$:IFA$=""THEN7150
7160 IFA$=""ANDCP<4THEN7210
7170 IFA$="[145]"ANDCP>1THEN7220
7180 IFA$=CHR$(13)THENONCPGOTO4000,5000,9000,7230
7200 GOTO7150
7210 PRINT"[145]"TAB(11)DM$(CP):CP=CP+1:PRINT""TAB(11)DM$(CP):GOTO7150
7220 PRINT"[145]"TAB(11)DM$(CP):CP=CP-1:PRINT"[145][145][145]"TAB(11)DM$(CP):GOTO7150
7230 DM=0:GOTO500
8000 PRINT"[147]"TAB(4)"[208]ROGRAMM WIRKLICH BEENDEN? ([202]/[206])"
8010 GETA$:IFA$=""THEN8010
8020 IFA$="J"THENSYS64738
8030 IFA$="N"THEN500
8040 GOTO8010
9000 PRINT"[147]":GOSUB10000
9010 IFDR=0THENPRINT""TAB(7)"[198]LOPPY IST AUSGESCHALTET!"
9020 IFDR=0THENFORN=1TO2000:NEXTN:GOTO7000
9030 SYS49152:GOTO7000
10000 DR=0:FS=PEEK(768)
10010 POKE768,185
10020 OPEN1,8,15,"I":CLOSE1
10030 POKE768,FS
10040 IFST<>-128THENDR=1:RETURN
10050 RETURN
50000 PF=0:CP=0:HV$=""
50010 PRINT"[164][157]";
50020 GETA$:IFA$=""THEN50020
50030 IFA$=CHR$(34)ORA$=CHR$(148)THEN50020
50040 IFA$="_"THENPF=1:RETURN
50042 IFA$="#"ANDDM=1THEN50020
50043 IFA$="$"ANDDM=1THEN50020
50045 IFA$=CHR$(13)ANDCP>0THENPRINT" ":RETURN
50050 IFA$=CHR$(20)ANDCP>0THEN50080
50060 IFA$=>" "ANDA$<"_"ANDCP<AZORA$=>"[193]"ANDA$<="[218]"ANDCP<AZTHEN50090
50070 GOTO50020
50080 PRINTA$;:HV$=LEFT$(HV$,LEN(HV$)-1):CP=CP-1:GOTO50010
50090 PRINTA$;:HV$=HV$+A$:CP=CP+1:GOTO50010