home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1992 January & February
/
rerun-1992-01-02-side-a.d64
/
multi-format
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
110 lines
10 printchr$(147)
20 print" multiple-drive bulk formatting ":rem:by bill wacker 1/91
30 print" using up to 4 drives ":print
40 print"how many drives will you be using?":print"(1-4)"
50 inputd
60 goto1020
70 print:print"will there be any 1571's in 71 mode? y/n"
80 geta$
90 ifa$="n" thengoto410
100 ifa$="y"thengoto120
110 goto80
120 printchr$(147):print:print
130 print"should drive '8' be changed to 71 mode?";" (y/n)"
140 getq$
150 ifq$="y"then goto180
160 ifq$="n"then goto190
170 goto140
180 open1,8,15,"u0>m1":close1
190 ifd=1goto410
200 print"should drive '9' be changed to 71 mode?";" (y/n)"
210 getq$
220 ifq$="y"then goto250
230 ifq$="n"then goto260
240 goto210
250 open1,9,15,"u0>m1":close1
260 ifd=2goto410
270 print"should drive '10' be changed to 71 mode?";" (y/n)"
280 getq$
290 ifq$="y"then goto320
300 ifq$="n"then goto330
310 goto280
320 open1,10,15,"u0>m1":close1
330 ifd=3goto410
340 print"should drive '11' be changed to 71 mode?";" (y/n)"
350 getq$
360 ifq$="y"then goto390
370 ifq$="n"then goto400
380 goto350
390 open1,11,15,"u0>m1":close1
400 ifd=4goto410
410 printchr$(147)
420 print"hit f1 for drive 08 directory"
430 print"hit f3 for drive 09 directory"
440 print"hit f5 for drive 10 directory"
450 print"hit f7 for drive 11 directory"
460 print"hit 'space' to start"
470 print"hit 'r' to re-start"
480 gets$
490 ifs$=" "thengoto560
500 ifs$="r"thengoto10
510 ifs$="[133]"thenopen1,8,0,"$":gosub800:close1:print"done!!![146]"
520 ifs$="[134]"thenopen1,9,0,"$":gosub800:close1:print"done!!![146]"
530 ifs$="[135]"thenopen1,10,0,"$":gosub800:close1:print"done!!![146]"
540 ifs$="[136]"thenopen1,11,0,"$":gosub800:close1:print"done!!![146]"
550 goto480
560 printchr$(147):print"please stand by.....formatting....":print
570 open15,8,15,"n0:test,08"
580 close15
590 forl=1to1000:nextl
600 open 1,8,0,"$":gosub800
610 close1
620 ifd=1goto970
630 open15,9,15,"n0:test,09"
640 close15
650 forl=1to1000:nextl
660 open 1,9,0,"$":gosub800
670 close1
680 ifd=2goto970
690 open15,10,15,"n0:test,10"
700 close15
710 open 1,10,0,"$":gosub800
720 close1
730 ifd=3goto970
740 open15,11,15,"n0:test,11"
750 close15
760 open 1,11,0,"$":gosub800
770 close1
780 goto970
790 print"dir:"
800 get #1,a$,b$
810 get#1,a$,b$
820 get#1,a$,b$
830 c=0:if a$<>""then c= asc(a$)
840 if b$<>""then c=c+ asc(b$)*256
850 print mid$(str$(c),2);tab(3);
860 get#1,b$:if st<>0 then940
870 if b$<> chr$(34) then860
880 get#1,b$:if b$<> chr$(34) then printb$;:goto880
890 get #1,b$:if b$= chr$(32) then890
900 print tab(18);:c$=""
910 c$=c$+b$:get #1,b$:if b$<>"" then910
920 print left$(c$,3)
930 if st=0 then 810
940 print" blocks free "
950 forl=1to1000:nextl
960 return
970 print" again??? y/n?"
980 geta$
990 ifa$="y"goto410
1000 ifa$="n"then end
1010 goto980
1020 open1,8,15,"u0>m0":close1
1030 ifd=1goto70
1040 open1,9,15,"u0>m0":close1
1050 ifd=2goto70
1060 open1,10,15,"u0>m0":close1
1070 ifd=3goto70
1080 open1,11,15,"u0>m0":close1
1090 goto70