home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 3
/
Commodore_Disc_03_19xx_-_de.d64
/
diskeditor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
231 lines
10 rem ** super disk editor **
20 rem ** by joerg kranz **
30 rem ** royal games (c) 1987 **
31 rem ** c=64 + 1541 **
33 rem
35 close1:d=8
40 print"[147]":poke53280,0:poke53281,6
50 print"super disk editor"
60 print"[153]0 = reset"
70 print"1 = scratch"
80 print"2 = new "
90 print"3 = disk status "
100 print"4 = directory "
110 print"5 = copy "
120 print"6 = rename "
130 print"7 = validate "
140 print"8 = initialize "
150 print"9 = newheader "
160 print"@ = d. ladeschutz
170 [153]"* = d. listschutz
180 print"e = programm ende
190 [153]"l = programm laden";
195 [153]"a = ',8:'anhaengen";
196 [153]"d = drucken dir. "
197 [153]"v = view bam"
200 [153]"sysby 'royal games'"
210 [153]"joerg kranz and"
220 [153]"andre krugenberg"
230 [153]"(c) 1987stop"
300 [161]a$:[139]a$[178]""[167]300
310 [139]a$[178]"0"[167]1000
320 [139]a$[178]"1"[167]1100
330 [139]a$[178]"2"[167]1200
340 [139]a$[178]"3"[167]1300
350 [139]a$[178]"4"[167]1400
360 [139]a$[178]"5"[167]1500
370 [139]a$[178]"6"[167]1600
380 [139]a$[178]"7"[167]1700
390 [139]a$[178]"8"[167]1800
400 [139]a$[178]"9"[167]1900
410 [139]a$[178]"@"[167]2100
420 [139]a$[178]"*"[167]2300
430 [139]a$[178]"e"[167]2500
440 [139]a$[178]"l"[167]3700
450 [139]a$[178]"a"[167]2800
460 [139]a$[178]"d"[167]aa[178]2:[137]1400
470 [139]a$[178]"v"[167]3300
500 [139][198](a$)[179]256[167][138]
1000 [153]"load":[153]"reset jwaita/nwaitein"
1010 [161]a$:[139]a$[178]""[167]1010
1020 [139]a$[178]"j"[167][158]64738
1030 [139]a$[178]"n"[167][138]
1100 [153]"loadname des zu loeschenden files:
1110 inputa$
1120 open1,8,15,"s:"+a$
1130 close1,8,15:goto1300
1200 print"[147]"
1210 input"disk name";a$
1220 input"id";b$
1230 iflen(a$)>15thenprint"disk name zu lang":fort=1to1000:next:goto1200
1240 open1,8,15,"n:"+a$+","+b$
1250 close1,8,15
1260 goto1300
1300 print"[147]":open15,8,15
1301 :get#15,aa$:printaa$;:ifst<>64then1301
1310 close15:poke198,0:wait198,1
1320 run
1400 open1,8,0,"$":get#1,a$,b$:get#1,a$,b$:get#1,a$,b$:ifaa=0then1405
1401 input"[147]drucker geraet nr. 4-5";ii
1402 input"sekundaeradresse";ui
1403 openii,ui
1405 print"[147]";
1410 ifa$=""thena$=chr$(0)
1420 print"[155]":ifb$=""thenb$=chr$(0)
1421 ifaa=2thenprint#4," ";
1430 bl=asc(a$)+256*asc(b$):printbltab(3);:fort=1to25:get#1,a$:printa$;
1431 ifaa=2thenprint#4,a$;
1432 next
1433 ifaa=2thenprint#4,""
1435 print""
1440 get#1,a$,a$,a$:get#1,a$:ifa$=""thena$=chr$(0)
1450 get#1,b$:ifb$=""thenb$=chr$(0)
1460 ifst<>0then1492
1470 bl=asc(a$)+256*asc(b$):printbltab(3);:ifaa=2thenprint#4,bl;
1480 fort=1to27:get#1,a$
1481 printa$;
1482 ifaa=2thenprint#4,a$;
1485 next:x=x+1:print:
1486 ifaa=2thenprint#4,""
1487 gosub1493
1490 goto1440
1492 close1:goto1495
1493 ifpeek(198)=0thenreturn
1494 ifz=999thenreturn
1495 ifaa=2thenprint#4,"[158]"x-1 "[196][201][211][203] [197][201][206][212][210][193][199][213][206][199][197][206]!":
1496 print"[158]"x-1 "disk eintragungen!":poke198,0:wait198,1:aa=0:goto1300
1500 rem
1510 print"[147]copy name":inputa$
1520 print"programm name":inputb$
1530 open15,8,15,"c:"+a$+"="+b$
1540 close15:goto1300
1600 print"[147]"
1610 print"neuer name":inputa$
1620 print"alter name":inputb$
1630 open15,8,15,"r:"+a$+"="+b$:close15:goto1300
1700 open15,8,15,"v":close15:goto1300
1800 open15,8,15,"i":close15:goto1300
1900 print"[147]disk einlegen und 'taste' drueken"
1910 poke198,0:wait198,1
1920 open1,8,15,"i":open2,8,2,"#"
1925 print#1,"u1 2 0 18 0 ":print#1,"b-p 2 144":aa$=""
1930 fort=0to15:get#2,a$:aa$=aa$+a$:next
1935 print"disk name=[158] ";aa$
1940 print#1,"b-p 2 162":aa$="":fort=1to5:get#2,a$:aa$=aa$+a$:next
1945 print"id =[158] ";aa$
1950 print"n[146]ame,i[146]d aendern oder z[146]urueck ?":poke198,0
1955 :geta$:ifa$=""then1955
1960 ifa$="n"then2000
1970 ifa$="i"then1975
1971 ifa$="z"then1300
1975 print#1,"u2 2 0 18 0":input" neue id ";a$
1985 print#1,"b-p 2 162":fort=1tolen(a$):print#2,mid$(a$,t,1);:next
1986 fort=len(a$)to5:print#2,chr$(160);:next
1990 print#1,"u2 2 0 18 0":print#1,"i":close2:close1:goto1300
2000 print#1,"u1 2 0 18 0":input"neuer name ";a$
2010 iflen(a$)>16thenprint"name zu lang":fort=1to1000:next
2020 print#1,"b-p 2 144":fori=1tolen(a$):print#2,mid$(a$,i,1);:next
2030 iflen(a$)=5then2060
2040 fori=1tolen(a$):print#2,chr$(160);:next
2060 print#1,"u2 2 0 18 0"
2070 print#1,"i":close2:close1:goto1300
2100 print"[147]bitte waehlen sie !"
2110 print"s[146]chuetzen"
2115 print"f[146]reigeben"
2120 geta$:ifa$=""then2120
2130 ifa$="s"then2150
2140 ifa$="f"then2200
2150 rem
2151 open1,8,15,"i":open2,8,2,"#":x=1:
2155 print#1,"u1 2 0 18"x
2160 print#1,"b-p 2 0":get#2,a$:ifa$=""thena$=chr$(0)
2170 get#2,b$:ifb$=""thenb$=chr$(0)
2175 a=asc(a$):b=asc(b$):ifa=0andb=255then2186
2180 ifa=18andb=1then2198
2185 x=b:goto2155
2186 print#1,"b-p 2 0":print#2,chr$(18);chr$(1);
2190 print#1,"u2 2 0 18"x:print#1,"i":close2:close1:goto1300
2198 print"[144]directory ist schon geschuetzt":fort=1to1000:next:close1:close2:
2199 goto1300
2200 open1,8,15,"i":open2,8,2,"#":x=1:
2201 print#1,"u1 2 0 18"x:print#1,"b-p 2 0"
2210 get#2,a$:ifa$=""thena$=chr$(0)
2220 get#2,b$:ifb$=""thenb$=chr$(0)
2230 a=asc(a$):b=asc(b$)
2240 ifa=18andb=1then2260
2250 ifa=0andb=255then2280
2255 x=b:goto 2201
2260 print#1,"b-p 2 0":print#2,chr$(0);chr$(255);:print#1,"u2 2 0 18"x
2270 print#1,"i":close1:close2
2280 print"[147]directory ist frei":fort=1to1500:next:goto1300
2300 print"[147]directory listschutz"
2310 print"sind sie sicher ?"
2320 geta$:ifa$=""then2320
2330 ifa$="j"thengoto2350
2340 ifa$="n"thenprint"[147]o.k. dann nicht !":fort=1to1500:next:goto1300
2345 goto2320
2350 print"[147] o.k... lets go !"
2351 z=999:open1,8,15,"i":open2,8,2,"#":print#1,"u1 2 0 18 0"
2355 print#1,"b-p 2 144"
2356 print#2,chr$(20)chr$(20)chr$(20)chr$(34)chr$(100)chr$(20)chr$(31)chr$(204);
2360 fort=1to20:print#2,chr$(0);:next
2370 print#1,"u2 2 0 18 0":print#1,"i":close2:close1
2380 poke53270,8:goto1300
2500 print"[147]":new
2800 print"[147]":a=18:b=1
2810 print"an welches programm soll ',8:' angehaengt werden"
2820 print"[158]j[146]a/n[146]ein"
2830 open15,8,15:open2,8,2,"#":fori=1to8:t$(i)="":next
2835 ifa=0orb=0thenrun
2840 print#15,"u1 2 0";a;b:print#15,"b-p 2 0":get#2,a$,b$:a1=asc(a$+chr$(0))
2850 b1=asc (b$+chr$(0)):w=4:fort=1to8:print#15,"b-p 2";w-2
2860 get#2,p$:p=asc(p$+chr$(0)):ifp<>130andp<>194then2890
2870 fory=1to16:print#15,"b-p 2";y+w:get#2,c$:t$(t)=t$(t)+c$:next:
2880 w=w+32
2890 nextt
2900 w=17:fort=1to8:ift$(t)=""then2950
2910 print"[147]"t$(t)
2920 gets$:ifs$=""then2920
2930 ifs$="j"then3000
2931 ifs$="n"then2950
2940 goto2920
2950 w=w+32:nextt:iff=1thenprint#15,"u2 2 0";a;b
2960 a=a1:b=b1:close2:close15
2970 goto2830
3000 f=1:print#15,"b-p 2";w:print#2,chr$(160);",8:":goto2950
3300 x$="":open15,8,15,"i0"
3310 print"[147] 12345678901234567890123456789012345"
3320 print"[153] track 1-35 + = belegt - = frei [144]"
3330 deffna(z)=2^(s-int(s/8)*8)and(sb(int(s/8)))
3340 open2,8,2,"#"
3341 print#15,"b-p:2,144":fort=1to18:get#2,a$:n$=n$+a$:next:print#15,"b-p:2,1"
3342 print"[158]disk name:";n$;"[144]":print#15,"u1:2,0,18,0
3350 [129]i[178]20[164]0[169][171]1:[153]i:[130]
3360 [129]t[178]1[164]35:x[178]t[170]4:[141]3400:[130]:[137]3520
3400 [161]#2,sc$,a$,b$,c$
3410 ts[178]ts[170][198](sc$[170][199](0))
3420 sb(0)[178][198](a$[170][199](0))
3430 sb(1)[178][198](b$[170][199](0))
3440 sb(2)[178][198](c$[170][199](0))
3450 [153]""[170][200](x$,x[171]1)[170]"cmd";
3460 [139]t[177]24[175]s[178]18[167][153]" ";:[137]3500
3470 o1$[178]"list+":o2$[178]"list-":[139]t[178]18[167]o1$[178]"+wait":o2$[178]"-wait"
3475 [129]s[178]0[164]20
3480 [139]t[179]18[167]3495
3485 [139]t[177]30[175]s[178]17[167][153]" ";:[137]3500
3487 [139]t[177]24[175]s[178]18[167][153]" ";:[137]3500
3489 [139]t[177]17[175]s[178]19[167][153]" ";:[137]3500
3491 [139]t[177]17[175]s[178]20[167][153]" ";:[137]3500
3495 [139][165]a(s)[178]0[167][153]o1$;:[137]3500
3498 [153]o2$;
3500 [153]"oncmd";
3510 [130] :[142]
3520 [153]"sysblocks free:";ts[171]18;" "
3521 [161]a$:[139]a$[178]""[167]3521
3530 [160]2:[160]15:[137]1300
3700 [153]"load"
3710 [153]"programm name":[133]a$
3720 [153]"loadload"[170][199](34)[170]a$[170][199](34)",8"
3725 [153]"run"
3730 [151]198,4:[151]631,19:[151]632,13:[151]633,13:[151]634,13