home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dark Star 2
/
Dark_Star_02_1995_-_de_Side_A.d64
/
dir-ausgabe
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
88 lines
100 rem direktory-ausdruck fuer floppy 1541
120 print"[147] directory-listing [146]"
130 print"sie koennen sich das listing auf dem"
140 print"bildschirm (3) oder auf dem drucker (4)"
150 print"bzw. (5) ausgeben lassen."
160 input"ausgabe-adresse 4[157][157][157]";z
170 ifz<3orz>5thenprint"[145][145][145]":goto160
180 ifz=5thenp$=" "
190 ifz=4thenp$="[145] "
200 input"datum [157][157][157][157][157][157][157][157][157][157]";d$
210 input"seite [1/2] 1[157][157][157]";st$
220 input"disk-format 1541[157][157][157][157][157][157]";df$
230 input"end-adr. [j/n] n[157][157][157]";z$
240 print"[147]"
250 data 169,0,162,4,149,98,202,16,251,169,160,133,97,162,2,32,198,255
260 data 230,101,208,10,230,100,208,6,230,96,208,2,230,98,32,228,255,165,144
270 data 240,235,32,204,255,198,97,6,101,38,100,38,99,38,98,16,244,96
280 forj=860to914:readx:pokej,x:nextj
290 data "seq","prg","usr","rel"
300 forj=1to4:readt$(j):next
310 ifasc(z$)=74thenf=1
320 open4,z:open15,8,15,"i":close15
330 g$=" "
340 open1,8,3,"$"
350 get#1,a$
360 forj=1to141:get#1,a$:nextj:gosub510
370 forj=0to1:get#1,a$:nextj
380 forj=1to89:get#1,a$:nextj
390 n$=left$(n$+" ",16)
400 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
410 print#4,p$"[165] "chr$(14)n$chr$(15)" [165] ";chr$(14)i$chr$(15)" [165]"
420 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
430 print#4,p$"[165] "chr$(14)d$chr$(15)" [165]"chr$(14)"seite"chr$(15)" ";
440 print#4,chr$(14)st$chr$(15)" [165]"chr$(14)df$chr$(15)"[165]"
450 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
460 iff=1goto480
470 print#4,p$"[165]file-name [165]typ[165]blk[165]sp[165]se[165]start [165]":goto490
480 print#4,p$"[165]file-name [165]typ[165]blk[165]sp[165]se[165]start-ende [165]":goto490
490 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
500 bl=0:goto600
510 forj=1to16:get#1,a$:ifa$=chr$(160)goto530
520 n$=n$+a$
530 nextj:get#1,a$,a$
540 forj=0to1:get#1,a$:ifa$=chr$(160)goto560
550 i$=i$+a$
560 nextj:get#1,a$:return
570 print#4,"$";:x=b/16:gosub580:x=a/16:gosub580:y=256*b+a:return
580 forj=1to2:x%=x:x=(x-x%)*16:ifx%>9thenx%=x%+7
590 print#4,chr$(x%+48);:nextj:return
600 q=q+1
610 get#1,m$,t$,s$:ifs$=""thens$=chr$(0)
620 f$="":forj=1to16:get#1,a$:ifa$=chr$(160)goto640
630 f$=f$+a$
640 nextj
650 forj=1to10:get#1,a$:nextj
660 l=0:ifa$<>""thenl=asc(a$)
670 get#1,a$:ifq<8thenget#1,a$,a$:goto690
680 q=0
690 ifm$=""goto910
700 m=asc(m$)and15:ifm<1orm>4thenm=0
710 ml$="[165] [165]"
720 ifn%=0thenprint#4,p$;ml$:n%=-1
730 print#4,p$"[165]"f$left$(g$,16-len(f$));
740 print#4,"[165]"t$(m);
750 k$=mid$(str$(l),2):print#4,"[165]"left$(g$,3-len(k$))k$;:bl=bl+val(k$)
760 k$=mid$(str$(asc(t$)),2)
770 print#4,"[165]"left$(g$,2-len(k$))k$;
780 k$=mid$(str$(asc(s$)),2):print#4,"[165]"left$(g$,2-len(k$))k$"[165]";
790 ifm=0thenprint#4," ";:goto900
800 open2,8,4,dr$+":"+f$+","+t$(m)+",r"
810 a=0:ifm<>2goto850
820 get#2,a$,b$:a=0:ifa$<>""thena=asc(a$)
830 b=0:ifb$<>""thenb=asc(b$)
840 gosub570:iff=0thenprint#4," ";:goto890
850 poke785,92:poke786,3:c=usr(0):a=a+c:a$=right$(" "+str$(a),5)
860 ifm<>2thenprint#4,a$" bytes";:goto890
870 print#4,"-";:a%=a/256:a=a-a%*256:b=b+a%
880 gosub570
890 close2:print#4,"[165]";
900 print#4
910 ifst=0goto600
920 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
930 bl$=right$(" "+mid$(str$(bl),2,4),4)
940 fr$=right$(" "+mid$(str$(664-bl),2,4),4)
950 print#4,p$"[165]blocks : 664 belegt : "bl$" frei : "fr$" [165]"
960 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
970 close1:close4:end