home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_88-01_1988_-_de_Side_B.d64
/
dir-changer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
126 lines
0 rem "dir-changer"
10 poke53281,0:print"[147]";chr$(14)
30 print" *** [196][201][210][197][195][212][207][210][217] [195][200][193][206][199][197][210] ***
40 [153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
245 printchr$(14)" [194]itte warten [211]ie einen [205]oment ..."
250 fori=828to922:readx:pokei,x:next:sys828
260 dimb(18),f$(144)
270 z$=""
280 b(1)=1:b(2)=4:b(3)=7:b(4)=10:b(5)=13:b(6)=16:b(7)=2:b(8)=5:b(9)=8:b(10)=11
290 b(11)=14:b(12)=17:b(13)=3:b(14)=6:b(15)=9:b(16)=12:b(17)=15:b(18)=18
300 open1,8,15:print#1,"i"
310 open2,8,2,"#"
320 n=1:z=1:t=18:s=1:hi$="":k=1
330 fori=1to11:hi$=hi$+chr$(0):next
340 k$=chr$(131)+chr$(18)+chr$(0)+"----------------"+hi$
350 gosub860:ift>0thenz=z+1
360 bp=2
370 fori=1to8
380 gosub890:ifasc(left$(a$,1))<>0thenf$(n)=a$:n=n+1:next
390 ifasc(left$(a$,1))=0thennext
400 ift<>0thengoto350
410 za=z:na=n:goto730
420 :
430 :rem insert empty file
450 printz$;:input"[153]ueber welchem eintrag";a
460 ifa=0ora>nthengoto450
470 fori=ntoa+1step-1
480 f$(i)=f$(i-1):next:n=n+1:f$(a)=""
490 fori=1to30:f$(a)=f$(a)+chr$(0):next
500 goto730
510 :
520 :rem swap entries
540 printz$;:input"[153]welche zwei nummern vertauschen";a,b
550 ifa=0ora>n-1then540
560 ifb=0orb>n-1then540
570 fh$=f$(a):f$(a)=f$(b):f$(b)=fh$
580 goto730
590 :
600 :rem add dashes
620 printz$;:input"[153]ueber welchem eintrag";a
630 ifa=0ora>nthengoto620
640 fori=ntoa+1step-1
650 f$(i)=f$(i-1):next:n=n+1:f$(a)=k$:goto730
660 :
670 :rem remove empty files
690 fori=1ton-1:if(asc(left$(f$(i),1)))=0thengoto720
700 next
710 goto730
720 forr=iton-1:f$(r)=f$(r+1):next:n=n-1:goto690
725 :
726 :rem directory listing
730 print"[147] *** directory changer ***[146]"
740 fori=ktok+18
760 ifi<nthenprint"[157]";i;mid$(f$(i),4,16)
770 ifi+19<nthenprinttab(19)"[145]";i+19;mid$(f$(i+19),4,16)
775 next
781 printz$"f1[146] leerraum einsetzen crsr-dn[146] vorwaerts";
782 print"f3[146] eintraege vertauschen crsr-up[146] rueckw.";
783 print"f5[146] trennzeile einfuegen
784 [153]"f7wait leerraum entfernen returnwait feritg";
789 [153][199](142);
790 [151]198,0:[146]198,1:[161]a$
800 :[143] f1
801 [139]a$[178]"input"[167]420
802 :[143] f3
803 [139]a$[178]"dim"[167]510
804 :[143] f5
805 [139]a$[178]"read"[167]590
806 :[143] f7
807 [139]a$[178]"let"[167]660
808 :[143] crsr-up
809 [139]a$[178]"on"[167]k[178]k[171]10:[139]k[178][179]0[167]k[178]1
810 :[143] crsr-down
811 [139]a$[178]""[167]k[178]k[170]10:[139]k[177]n[167]k[178]n[171]38
812 :[143] write directory?
813 [139]a$[179][177][199](13)[137]730
818 [153][199](14)"load(NULL)eues directory wird geschrieben ...
820 print"[194]itte warten, bis die rote [204]euchtdiode
830 [153]"am (NULL)aufwerk aus ist."
850 [137]1000
860 [152]1,"u1 2 0";t;s
870 [161]#2,t$,s$
880 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0)):[142]
890 [152]1,"b-p 2";bp
900 a$[178]"":[133][172]2,30,a$:[139]bp[179]226[167]bp[178]bp[170]32
910 [142]
920 [131]169,71,160,3,141,8,3,140,9,3,96,32
930 [131]115,0,201,133,240,6,32,121,0,76,231,167
940 [131]32,115,0,201,172,240,6,32,191,171,76,174
950 [131]167,32,155,183,32,30,225,32,253,174,32,158
960 [131]183,138,72,32,253,174,32,139,176,133,73,132
970 [131]74,32,163,182,104,32,117,180,160,2,185,97
980 [131]0,145,73,136,16,248,200,32,18,225,145,98
990 [131]200,196,97,208,246,32,204,255,76,174,167
1000 a$[178]""
1010 [129]i[178]1[164]30:a$[178]a$[170][199](0):[130]:n[178]n[171]1:na[178]na[171]1
1020 zn[178][181](n[173]8):[139]n[173]8[177]zn[167]zn[178]zn[170]1
1030 [139]zn[178]za[167][137]1060
1040 [139]zn[177]za[167][129]i[178]za[170]1[164]zn:[152]1,"b-a 0";18;b(i):[130]
1050 [139]zn[179]za[167][129]i[178]zn[170]1[164]za:[152]1,"b-f 0";18;b(i):[130]
1060 nz[178]0:bp[178]0:k[178]0:zb[178]1
1070 [139]zb[178]zn[167]c$[178][199](0):b$[178][199](255):[137]1090
1080 c$[178][199](18):b$[178][199](b(zb[170]1))
1090 [152]1,"b-p";2;bp:[152]2,c$;b$;
1100 bp[178]2
1110 nz[178]nz[170]1:k[178]k[170]1
1120 [152]1,"b-p";2;bp
1130 [152]2,f$(nz);
1140 [139]k[178]8[176]nz[178]n[167]1160
1150 bp[178]bp[170]32:[137]1110
1160 [139]k[178]8[167]1200
1170 bp[178]bp[170]32:[152]1,"b-p";2;bp
1180 [152]2,a$;
1190 k[178]k[170]1:[139]k[179]8[167]1170
1200 [152]1,"u2:2 0";18;b(zb)
1210 [139]nz[178]n[167]1230
1220 zb[178]zb[170]1:k[178]0:bp[178]0:[137]1070
1230 [139]za[178][179]zn[167][137]1290
1240 [129]i[178]zn[170]1[164]za
1250 [152]1,"b-p";2;0:[152]2,[199](75);
1260 [129]t[178]1[164]255:[152]2,[199](1);:[130]
1270 [152]1,"u2:2 0";18;b(i)
1280 [130]i
1290 [161]#1,a:[139]a[177]0[167][153]"on(NULL)chreibfeh:er, bitte str$iskette pruefen!"
1300 [160]1:[160]2:[128]