home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_94-06_1994_-_de_Side_B.d64
/
main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
8KB
|
287 lines
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