home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 15
/
64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_B.d64
/
directory.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
7KB
|
128 lines
100 poke53280,14:poke53281,6
110 print"[147] ";
120 print" directory-load written by udo woehler ";
130 print" "
140 print"hex-eingabe mit $"
150 print:print:print"anfangsadresse = 256*";
160 open1,0:input#1,ad$:close1
170 print:print:input"filename :";fi$
180 open1,8,15
190 open2,8,2,fi$+",p,w"
200 input#1,a,a$
210 ifa=63thenclose2:close1:goto330
220 ifa>19thenprint"[147]diskfehler";a;a$:close2:end
230 ifleft$(ad$,1)<>"$"thenad=val(ad$)*256:goto370
240 ad=0:fort=1to2
250 x=asc(mid$(ad$,t+1,1)+chr$(0))
260 ifx>47andx<58thenx=x-48
270 ifx>64andx<71thenx=x-55
280 ifx<0orx>15thenclose2:run
290 ad=ad+x*16^(2-t)
300 next
310 ad=ad*256
320 goto370
330 print:print:print"alten file loeschen ?(j/n)"
340 gets$:ifs$<>"j"ands$<>"n"then340
350 ifs$="j"thenopen1,8,15,"s:"+fi$:close1:goto180
360 run
370 ifad>256*251orad<0thenrun
380 print"[147] ";
390 print" directory-load written by udo woehler ";
400 print" "
410 print"syntax: sys";ad;",na$,zh%,fi$,bl%, ";
420 print" ty%,tr%,se%,ty$"
430 print:print" na$ = name der diskette"
440 print" zh% = anzahl eingelesener files"
450 print" fi$(n) = name der files"
460 print" bl%(n) = laenge der files"
470 print" ty%(n) = dateitypen der files"
480 print" tr%(n) = anfangstracks der files"
490 print" se%(n) = anfangssektoren der files"
500 print" ty$ = zu uebernehmende dateitypen"
510 print" p = programm dateien"
520 print" s = sequentiele dateien"
530 print" r = relative dateien"
540 print" u = user dateien"
550 print" d = deleted dateien"
560 print"sie muessen nur gewuenschte variablen (aber alle kommata ";
570 print"und ty$) angeben."
580 print:print"fi$,bl%,ty%,tr% und se% sind felder !"
590 print" bitte warten[145]"
600 hi=int(ad/256):lo=ad-hi*256
610 print#2,chr$(lo);chr$(hi);
620 restore
630 readb:pu=pu+b:ifb=-1then680
640 ifb<86orb>91thenprint#2,chr$(b);:goto630
650 an=b-86+ad/256
660 print#2,chr$(an);
670 goto630
680 close2:close1
690 ifpu<>138172thenprint"[147]pruefsummenfehler":open1,8,15,"s:"+fi$:close1:end
700 print" [145][145][145][145][145][145][145][145][145][145][154]"
710 end
720 data169,36,32,180,89,173,19,91,141,25,91,165,69,166,70,141,205,90,142,206
730 data90,169,37,32,180,89,173,19,91,141,26,91,165,69,166,70,141,145,90,142
740 data146,90,169,36,32,180,89,173,19,91,141,20,91,165,69,166,70,141,114,90
750 data142,115,90,169,37,32,180,89,173,19,91,141,21,91,165,69,166,70,141,153
760 data90,142,154,90,169,37,32,180,89,173,19,91,141,22,91,165,69,166,70,141
770 data166,90,142,167,90,169,37,32,180,89,173,19,91,141,23,91,165,69,166,70
780 data141,179,90,142,180,90,169,37,32,180,89,173,19,91,141,24,91,165,69,166
790 data70,141,192,90,142,193,90,32,253,174,160,5,169,255,136,153,8,91,200
800 data136,208,248,32,158,173,32,163,182,160,0,177,100,141,18,91,200,177,100
810 data133,34,200,177,100,133,35,160,0,162,5,202,177,34,221,233,90,240,7,202
820 data232,208,244,76,214,86,138,157,8,91,200,204,18,91,208,229,169,2,133
830 data184,133,185,169,8,133,186,169,1,133,183,169,238,162,90,133,187,134
840 data188,32,192,255,169,15,133,184,133,185,169,8,133,186,169,0,133,183,32
850 data192,255,169,18,141,13,91,169,0,141,14,91,173,25,91,240,83,32,67,89
860 data162,2,32,198,255,162,144,32,228,255,202,208,250,162,0,32,228,255,208
870 data2,169,32,157,210,90,232,224,16,240,7,224,18,208,237,76,64,87,32,228
880 data255,32,228,255,76,33,87,32,204,255,165,122,141,112,90,165,123,141,113
890 data90,169,205,133,122,169,90,133,123,32,165,169,173,112,90,133,122,173
900 data113,90,133,123,169,1,141,14,91,169,0,141,15,91,32,67,89,162,2,32,198
910 data255,32,228,255,141,13,91,32,228,255,141,14,91,169,8,141,16,91,32,228
920 data255,141,17,91,32,228,255,133,99,173,23,91,240,42,169,0,133,98,162,144
930 data56,32,73,188,32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40
940 data56,8,169,32,157,188,90,232,224,3,208,232,40,32,228,255,133,99,173,24
950 data91,240,42,169,0,133,98,162,144,56,32,73,188,32,223,189,24,8,162,0,189
960 data0,1,40,8,176,7,201,0,208,5,40,56,8,169,32,157,201,90,232,224,3,208
970 data232,40,162,0,32,228,255,208,2,169,32,157,124,90,232,224,16,208,241
980 data162,9,32,228,255,202,208,250,32,228,255,133,99,32,228,255,133,98,173
990 data21,91,240,38,162,144,56,32,73,188,32,223,189,24,8,162,0,189,0,1,40
1000 data8,176,7,201,0,208,5,40,56,8,169,32,157,162,90,232,224,3,208,232,40
1010 data173,22,91,240,47,174,17,91,169,0,133,98,134,99,162,144,56,32,73,188
1020 data32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40,56,8,169,32
1030 data157,175,90,232,224,3,208,232,40,173,17,91,41,7,162,0,221,8,91,240,29
1040 data232,224,5,208,246,206,16,91,240,9,32,228,255,32,228,255,76,133,87,173
1050 data13,91,201,0,240,71,76,108,87,174,15,91,169,0,133,98,134,99,162,144
1060 data56,32,73,188,32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40
1070 data56,8,169,32,157,118,90,157,157,90,157,170,90,157,183,90,157,196,90
1080 data232,224,3,208,220,40,238,15,91,32,255,89,76,134,88,173,26,91,240,78
1090 data173,15,91,133,99,169,0,133,98,162,144,56,32,73,188,32,223,189,24,8
1100 data162,0,189,0,1,40,8,176,7,201,0,208,5,40,56,8,169,32,157,149,90,232
1110 data224,3,208,232,40,165,122,141,112,90,165,123,141,113,90,169,145,133
1120 data122,169,90,133,123,32,165,169,173,112,90,133,122,173,113,90,133,123
1130 data32,204,255,169,2,32,195,255,169,15,32,195,255,96,174,13,91,169,0,133
1140 data98,134,99,32,204,255,162,144,56,32,73,188,32,223,189,173,0,1,141,248
1150 data90,173,1,1,201,0,208,2,169,32,141,249,90,174,14,91,169,0,133,98,134
1160 data99,162,144,56,32,73,188,32,223,189,173,0,1,141,251,90,173,1,1,201,0
1170 data208,2,169,32,141,252,90,162,15,32,201,255,160,0,185,239,90,240,13,32
1180 data168,255,201,13,208,3,32,171,89,200,208,238,32,204,255,96,32,204,255
1190 data162,15,32,201,255,96,72,32,253,174,32,121,0,133,69,162,0,142,19,91
1200 data201,44,240,55,32,121,0,32,19,177,176,3,76,8,175,162,32,32,115,0,144
1210 data5,32,19,177,144,11,170,32,115,0,144,251,32,19,177,176,246,104,133,70
1220 data32,121,0,197,70,208,220,32,115,0,134,70,162,255,142,19,91,96,104,96
1230 data165,122,141,112,90,165,123,141,113,90,169,114,133,122,169,90,133,123
1240 data173,20,91,240,6,32,165,169,32,115,0,173,21,91,240,14,169,153,133,122
1250 data169,90,133,123,32,165,169,32,115,0,173,22,91,240,14,169,166,133,122
1260 data169,90,133,123,32,165,169,32,115,0,173,23,91,240,14,169,179,133,122
1270 data169,90,133,123,32,165,169,32,115,0,173,24,91,240,11,169,192,133,122
1280 data169,90,133,123,32,165,169,173,112,90,133,122,173,113,90,133,123,96
1290 data0,0,32,32,36,40,32,32,32,41,178,34,32,32,32,32,32,32,32,32,32,32,32
1300 data32,32,32,32,32,34,170,34,34,0,32,32,37,178,32,32,32,0,32,32,37,40,32
1310 data32,32,41,178,32,32,32,0,32,32,37,40,32,32,32,41,178,32,32,32,0,32,32
1320 data37,40,32,32,32,41,178,32,32,32,0,32,32,37,40,32,32,32,41,178,32,32
1330 data32,0,32,32,36,178,34,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
1340 data32,32,34,170,34,34,0,68,83,80,85,82,35,85,49,58,32,50,32,32,48,32,32
1350 data32,32,32,32,13,66,45,80,32,50,32,32,48,13,0
1360 data-1