home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 June
/
64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64
/
disk-utilities
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
129 lines
1 rem ******************
2 rem * disk-utilities *
3 rem * von *
4 rem * volker maahs *
5 rem * (w) 01.02.1988 *
6 rem ******************
7 :
8 :
9 :
10 g=8
20 poke53280,0:poke53281,0:poke646,10:printchr$(8)chr$(142)chr$(147);
30 print" (w) 01.02.1988 von volker maahs [146]";
40 print" * disk-utilities * [146]";:poke646,7
50 print"========================================";
60 printspc(3)"geraetenummer:";g:printspc(2):gosub830:poke646,6:print
70 printspc(3)"f1 formatieren":print:poke646,14
80 printspc(3)"f3 diskname/id aendern":print:poke646,2:
90 printspc(3)"f5 file loeschen":print:poke646,1
100 printspc(3)"f7 directory":print:poke646,4
110 printspc(3)"f2 geraeteadresse aendern":print:poke646,5
120 printspc(3)"f4 initialisieren":print:poke646,13
130 printspc(3)"f6 filenamen aendern":print:poke646,12
140 printspc(3)"f8 validieren":print:poke646,15
150 printspc(3)"e programm beenden":print:
160 getf$:iff$=chr$(133)then310
170 iff$=chr$(134)then880
180 iff$=chr$(135)then580
190 iff$=chr$(136)thenpoke646,10:goto750
200 iff$=chr$(137)then270
210 iff$=chr$(138)then560
220 iff$=chr$(139)then660
230 iff$=chr$(140)then480
240 iff$="e"thengosub1190:print"ende.":end
250 goto160
260 rem * geraetenummer aendern *
270 gosub1190:print" * geraetenummer aendern * [146]"
280 print:print:print:printspc(2)"wie lautet die neue geraetenummer";:inputg
290 goto20
300 rem * formatieren *
310 gosub1190:print" * formatieren * [146]":print
320 poke646,7:printspc(11)"diskette einlegen!":poke646,10
330 print:print:printspc(7)"diskname (max. 16 zeichen):"
340 print:print:printspc(12)"................"
350 print"[145][145]"spc(10);:inputd$:print:print:print
360 printspc(16)"id: "
370 printspc(22)"..":print"[145][145]"spc(20);:inputid$
380 print:print:print:printspc(6)"wirklich formatieren (j/n)?"
390 getz$:ifz$="j"then420
400 ifz$="n"then20
410 ifz$<>"j"orz$<>"n"then390
420 open7,g,15,"n:"+d$+","+id$:close7
430 print:printspc(7)"noch eine diskette (j/n)?"
440 getz$:ifz$="j"then310
450 ifz$="n"then20
460 ifz$<>"j"orz$<>"n"then440
470 rem * validieren *
480 gosub1190:print" * validieren * [146]";
490 print:print:printspc(12)"validieren (j/n)?"
500 getz$:ifz$="n"then20
510 ifz$="j"then530
520 ifz$<>"j"orz$<>"n"then500
530 fort=1to9:print:next:poke646,7:printspc(13)"validiere disk!"
540 open7,g,15,"v":close7:goto20
550 rem * initialisieren *
560 open7,g,15,"i":close7:goto20
570 rem * file loeschen *
580 gosub1190:print" * file loeschen * [146]"
590 print:print:printspc(3)"filename";:inputna$
600 open7,g,15,"s:"+na$:close7
610 print:printspc(3)"weitere files loeschen (j/n)?"
620 getz$:ifz$="j"then580
630 ifz$="n"then20
640 ifz$<>"j"orz$<>"n"then620
650 rem * filenamen aendern *
660 gosub1190:print" * filenamen aendern * [146]";
670 print:print:print:printspc(3)"alter filename";:inputaf$
680 print:printspc(3)"neuer filename";:inputnf$
690 open7,g,15,"r:"+nf$+"="+af$:close7
700 print:printspc(3)"weitere files aendern (j/n)?"
710 getz$:ifz$="j"then660
720 ifz$="n"then20
730 ifz$<>"j"orz$<>"n"then710
740 rem * directory *
750 print"[147] 0 ";:open1,g,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
760 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:print:geta$,a$,a$,b$
770 ifst then sys65484:close1:goto790
780 printasc(a$+x$)+256*asc(b$+x$);:goto760
790 poke646,7:print" return[146]"
800 getz$:ifz$<>chr$(13)then800
810 goto20
820 rem * fehlerkanal *
830 open1,g,15
840 input#1,a,b$,c,d
850 printa;"[157], ";b$","c;"[157],"d
860 close1:return
870 rem * diskname/id aendern *
880 gosub1190:print" * disknamen aendern * [146]";
890 dn$="":a$="":b$=""
900 open15,g,15
910 print#15,"i"+dv$:open1,g,3,"#":print#15,"u1:3"dv",18,0"
920 print#15,"b-p:3,144":dn$="":forl=1to16:get#1,a$:dn$=dn$+a$:next
930 print" diskettenname:[158]"dn$"[146]"
940 poke646,10:print" aendern (j/n)?"
950 getq$:ifq$=""then 950
960 ifq$="n"then1010
970 if q$<>"j"then950:goto980
980 print" neuer name(max. 16 zeichen): ":input" ";n$
990 n$=left$(n$+" ",16)
1000 print#15,"b-p:3,144":print#1,n$:print#15,"u2:3"dv",18,0"
1010 printchr$(147);:print" * disk-id aendern * [146]"
1020 print#15,"b-p:3,162":get#1,a$,b$,c$,d$,e$
1030 print" disk id: [158]"a$b$c$d$e$"[146]"
1040 poke646,10:print" aendern (j/n)?"
1050 getz$:ifz$=""then1050
1060 ifz$="n"then1110
1070 ifz$<>"j"then1050:goto1080
1080 input" neue id (max. 5 zeichen): ";id$
1090 iflen(id$)<>4thenid$=left$(id$+" ",5)
1100 print#15,"b-p:3,162":print#1,id$;:print#15,"u2:"3;0;18;0
1110 i$="i"+mid$(str$(dv),5):print#15,i$
1120 close1:close15
1130 print" noch eine diskette (j/n)?"
1140 getz$:ifz$=""then1140
1150 ifz$="n"then1180
1160 ifz$<>"j"then1140
1170 goto 880
1180 goto20
1190 poke646,10:printchr$(147);:return