home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_92-01_1992_-_de_Side_B.d64
/
daten-verwaltung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
187 lines
1000 print"[147]":poke53280,0:poke53281,0
1005 poke773,27
1010 printchr$(8):poke53272,23:dimei$(500):poke788,52:poke792,193:poke650,120
1011 print"[158][194]itte warten!"
1012 forz=1to100
1013 forc=0to4
1014 ei$(z*5-c)=" "
1015 nextc:nextz:print"[147]"
1020 an=an+1:print" [193]dresse";an;"[157] "
1025 print"[183][183][183][183][183][183][183][183][183][183][183]"
1030 print"[154] [214]orname : [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1035 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1040 print" [206]achname: [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1045 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1050 print" [193]dresse[160]: [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1055 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1060 print" [215]ohnort : [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1065 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1070 print" [212]elefon : [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1075 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1080 print"[158]";ei$(an*5-4):print
1090 print"";ei$(an*5-3):print
1100 print"";ei$(an*5-2):print
1110 print"";ei$(an*5-1):print
1120 print"";ei$(an*5):print
1130 print"[156][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":ifas=1thengoto8400
1140 print"[198]1:naechste [193]dresse [198]2:[196]atei laden"
1150 print"[155][198]3:letzte [193]dresse [198]4:[196]atei speichern"
1160 print"[152][198]5:[193]dresse eingeben [198]6:[193]dresse suchen"
1170 print"[151][198]7:[193]dresse loeschen [198]8:[208]rogrammende"
1180 geta$:ifa$=""then1180
1190 ifa$="[133]"then2000
1200 ifa$="[134]"then3000
1210 ifa$="[135]"then4000
1220 ifa$="[136]"then5000
1230 ifa$="[137]"then6000
1240 ifa$="[138]"then7000
1250 ifa$="[139]"then8000
1260 ifa$="[140]"then9000
1270 goto1180
2000 ifan<100then2020
2010 goto1080
2020 print" "
2030 print" "
2040 print" "
2050 print" "
2060 print" ":goto1020
3000 ifan>1then3020
3010 goto1080
3020 print" "
3030 print" "
3040 print" "
3050 print" "
3060 print" ":an=an-2:goto1020
4000 ei$(an*5-4)="":print" "
4001 ei$(an*5-3)="":print" "
4002 ei$(an*5-2)="":print" "
4003 ei$(an*5-1)="":print" "
4004 ei$(an*5)="":print" "
4005 print"";:hv=4:x=0
4010 print"[158] [146]";
4020 gett$:ift$=""then4020
4030 ift$=chr$(34)then4020
4040 ifasc(t$)>31andasc(t$)<96andx<20then4090
4050 ifasc(t$)>192andasc(t$)<219andx<20then4090
4060 ift$=chr$(20)andx>0then4110
4070 ift$=chr$(13)thenprint"[157] ":goto4200
4080 goto4020
4090 print"[157]";t$;:x=x+1
4100 ei$(an*5-hv)=ei$(an*5-hv)+t$:goto4010
4110 print"[157] [157][157]";:x=x-1
4120 ei$(an*5-hv)=left$(ei$(an*5-hv),len(ei$(an*5-hv))-1):goto4010
4200 ifhv=0thenan=an-1:goto1020
4210 hv=hv-1:print"";:x=0:goto4010
5000 ei$(an*5-4)=""
5010 ei$(an*5-3)=""
5020 ei$(an*5-2)=""
5030 ei$(an*5-1)=""
5040 ei$(an*5)=""
5050 print" "
5060 print" "
5070 print" "
5080 print" "
5090 print" ":an=an-1:goto1020
6000 print"[147]":x=0:fl$="":ea=1:la=1
6010 print"[154][204]oadname: ";
6020 print"[158] [146]";
6030 gett$:ift$=""then6030
6040 ift$=chr$(34)then6030
6050 ifasc(t$)>31andasc(t$)<65andx<16orasc(t$)>90andasc(t$)<96andx<16then6200
6055 ifasc(t$)>64andasc(t$)<91andx<16then6250
6060 ift$=chr$(20)andx>0then6300
6070 ift$=chr$(13)thenprint"[157] ":goto6400
6080 goto6030
6200 print"[157]";t$;:fl$=fl$+t$:x=x+1:goto6020
6250 print"[157]";chr$(asc(t$)+32);:fl$=fl$+t$:x=x+1:goto6020
6300 print"[157] [157][157]";:x=x-1:fl$=left$(fl$,len(fl$)-1):goto6020
6400 ifx=0thenan=an-1:print"[147]":goto1020
6500 print"[194]itte warten!"
6510 open2,8,2,fl$+",s,r"
6520 input#2,ea:input#2,la
6530 fore=eatola
6540 input#2,ei$(e*5-4)
6550 input#2,ei$(e*5-3)
6560 input#2,ei$(e*5-2)
6570 input#2,ei$(e*5-1)
6580 input#2,ei$(e*5)
6590 nexte:close2
6600 print"[147]":an=0:goto1020
7000 print"[147]":x=0:fl$="":ea=1:la=1
7010 print"[154][211]avename: ";
7020 print"[158] [146]";
7030 gett$:ift$=""then7030
7040 ift$=chr$(34)then7030
7050 ifasc(t$)>31andasc(t$)<65andx<16orasc(t$)>90andasc(t$)<96andx<16then7200
7055 ifasc(t$)>64andasc(t$)<91andx<16then7250
7060 ift$=chr$(20)andx>0then7300
7070 ift$=chr$(13)thenprint"[157] ":goto7400
7080 goto7030
7200 print"[157]";t$;:fl$=fl$+t$:x=x+1:goto7020
7250 print"[157]";chr$(asc(t$)+32);:fl$=fl$+t$:x=x+1:goto7020
7300 print"[157] [157][157]";:x=x-1:fl$=left$(fl$,len(fl$)-1):goto7020
7400 ifx=0thenan=an-1:print"[147]":goto1020
7405 print"[155][214]on [193]dresse [206]r. ([198]1/[198]3)"
7410 print"[152][194]is [193]dresse [206]r. ([198]5/[198]7)"
7415 print"[151]'[210][197][212][213][210][206]'"
7420 print"[155]";ea;"[157] "
7430 print"[152]";la;"[157] "
7435 poke650,128
7440 getft$:ifft$="[133]"andea<100thenea=ea+1:goto7420
7450 ifft$="[134]"andea>1thenea=ea-1:goto7420
7460 ifft$="[135]"andla<100thenla=la+1:goto7420
7470 ifft$="[136]"andla>1thenla=la-1:goto7420
7480 ifft$=chr$(13)thengosub7600:poke650,1:goto7500
7490 goto7440
7500 print"[194]itte warten!"
7503 open2,8,2,"@:"+fl$+",s,w"
7505 print#2,ea:print#2,la
7510 fore=eatola
7520 print#2,ei$(e*5-4)
7530 print#2,ei$(e*5-3)
7540 print#2,ei$(e*5-2)
7550 print#2,ei$(e*5-1)
7560 print#2,ei$(e*5)
7570 nexte:close2
7580 print"[147]":an=an-1:goto1020
7600 print"[155][193]chtung: [152][199]leichnamige [196]atei wird"
7605 print" ueberschrieben! "
7610 print"[151][212]rotzdem? ([202]/[206]) "
7620 geta$:ifa$="j"ora$="[202]"thenreturn
7630 ifa$="n"ora$="[206]"thenpoke650,1:an=an-1:print"[147]":goto1020
7640 goto7620
8000 x=0:sb$=""
8005 print" "
8010 print" "
8020 print" "
8030 print" [145][145][145][145][145][145][145] ";
8040 print"[152][211]uchbegriff: ";
8050 print"[151] [146]";
8060 gett$:ift$=""then8060
8070 ift$=chr$(34)then8060
8080 ifasc(t$)>31andasc(t$)<96andx<20then8200
8090 ifasc(t$)>192andasc(t$)<219andx<20then8200
8100 ift$=chr$(20)andx>0then8210
8110 ift$=chr$(13)thenprint"[157] ":goto8220
8120 goto8060
8200 print"[157]";t$;:sb$=sb$+t$:x=x+1:goto8050
8210 print"[157] [157][157]";:x=x-1:sb$=left$(sb$,len(sb$)-1):goto8050
8220 print" " "
8221 [153]" print#(NULL)uche nach: poke";sb$ " "
8225 [139]ws[178]1[167]8260
8230 [129]z1[178]1[164]100
8240 [129]z2[178]0[164]4
8250 [139]sb$[178][200](ei$(z1[172]5[171]z2),[195](sb$))[167]8300
8260 [130]z2:[130]z1:[153]" str$ateiende!"
8270 [129]q[178]1[164]1000:[130]q:an[178]an[171]1:ws[178]0:as[178]0:[137]1020
8300 an[178]z1[171]1:as[178]1:[137]1020
8400 [153]"list (NULL)waiteitersuchen oder peekwaiteenden?"
8410 [161]e$:[139]e$[178]"w"[176]e$[178]"(NULL)"[167]ws[178]1:[137]8220
8420 [139]e$[178]"b"[176]e$[178]"peek"[167]as[178]0:an[178]an[171]1:ws[178]0:[137]1020
8430 [137]8410
9000 [153]"load"
9010 [153]"print#(NULL)irklich? (mid$/(NULL))"
9020 [161]a$:[139]a$[178]"mid$"[176]a$[178]"j"[167][158]64738
9030 [139]a$[178]"(NULL)"[176]a$[178]"n"[167]an[178]an[171]1:[153]"load":[137]1020
9040 [137]9020