home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1992 January & February / rerun-1992-01-02-side-b.d64 / multi-format (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  2.3 KB  |  110 lines
  1. 10 printchr$(147)
  2. 20 print"     multiple-drive bulk formatting    ":rem:by bill wacker 1/91
  3. 30 print"          using up to 4 drives        ":print
  4. 40 print"how many drives will you be using?":print"(1-4)"
  5. 50 inputd
  6. 60 goto1020
  7. 70 print:print"will there be any 1571's in 71 mode? y/n"
  8. 80 geta$
  9. 90 ifa$="n" thengoto410
  10. 100 ifa$="y"thengoto120
  11. 110 goto80
  12. 120 printchr$(147):print:print
  13. 130 print"should drive '8' be changed to 71 mode?";"  (y/n)"
  14. 140 getq$
  15. 150 ifq$="y"then goto180
  16. 160 ifq$="n"then goto190
  17. 170 goto140
  18. 180 open1,8,15,"u0>m1":close1
  19. 190 ifd=1goto410
  20. 200 print"should drive '9' be changed to 71 mode?";"  (y/n)"
  21. 210 getq$
  22. 220 ifq$="y"then goto250
  23. 230 ifq$="n"then goto260
  24. 240 goto210
  25. 250 open1,9,15,"u0>m1":close1
  26. 260 ifd=2goto410
  27. 270 print"should drive '10' be changed to 71 mode?";"  (y/n)"
  28. 280 getq$
  29. 290 ifq$="y"then goto320
  30. 300 ifq$="n"then goto330
  31. 310 goto280
  32. 320 open1,10,15,"u0>m1":close1
  33. 330 ifd=3goto410
  34. 340 print"should drive '11' be changed to 71 mode?";"  (y/n)"
  35. 350 getq$
  36. 360 ifq$="y"then goto390
  37. 370 ifq$="n"then goto400
  38. 380 goto350
  39. 390 open1,11,15,"u0>m1":close1
  40. 400 ifd=4goto410
  41. 410 printchr$(147)
  42. 420 print"hit f1 for drive 08 directory"
  43. 430 print"hit f3 for drive 09 directory"
  44. 440 print"hit f5 for drive 10 directory"
  45. 450 print"hit f7 for drive 11 directory"
  46. 460 print"hit 'space' to start"
  47. 470 print"hit 'r' to re-start"
  48. 480 gets$
  49. 490 ifs$=" "thengoto560
  50. 500 ifs$="r"thengoto10
  51. 510 ifs$="[133]"thenopen1,8,0,"$":gosub800:close1:print"done!!![146]"
  52. 520 ifs$="[134]"thenopen1,9,0,"$":gosub800:close1:print"done!!![146]"
  53. 530 ifs$="[135]"thenopen1,10,0,"$":gosub800:close1:print"done!!![146]"
  54. 540 ifs$="[136]"thenopen1,11,0,"$":gosub800:close1:print"done!!![146]"
  55. 550 goto480
  56. 560 printchr$(147):print"please stand by.....formatting....":print
  57. 570 open15,8,15,"n0:test,08"
  58. 580 close15
  59. 590 forl=1to1000:nextl
  60. 600 open 1,8,0,"$":gosub800
  61. 610 close1
  62. 620 ifd=1goto970
  63. 630 open15,9,15,"n0:test,09"
  64. 640 close15
  65. 650 forl=1to1000:nextl
  66. 660 open 1,9,0,"$":gosub800
  67. 670 close1
  68. 680 ifd=2goto970
  69. 690 open15,10,15,"n0:test,10"
  70. 700 close15
  71. 710 open 1,10,0,"$":gosub800
  72. 720 close1
  73. 730 ifd=3goto970
  74. 740 open15,11,15,"n0:test,11"
  75. 750 close15
  76. 760 open 1,11,0,"$":gosub800
  77. 770 close1
  78. 780 goto970
  79. 790 print"dir:"
  80. 800 get #1,a$,b$
  81. 810 get#1,a$,b$
  82. 820 get#1,a$,b$
  83. 830 c=0:if a$<>""then c= asc(a$)
  84. 840 if b$<>""then c=c+ asc(b$)*256
  85. 850 print mid$(str$(c),2);tab(3);
  86. 860 get#1,b$:if st<>0 then940
  87. 870 if b$<> chr$(34) then860
  88. 880 get#1,b$:if b$<> chr$(34) then printb$;:goto880
  89. 890 get #1,b$:if b$= chr$(32) then890
  90. 900 print tab(18);:c$=""
  91. 910 c$=c$+b$:get #1,b$:if b$<>"" then910
  92. 920 print left$(c$,3)
  93. 930 if st=0 then 810
  94. 940 print" blocks free "
  95. 950 forl=1to1000:nextl
  96. 960 return
  97. 970 print"     again???  y/n?"
  98. 980 geta$
  99. 990 ifa$="y"goto410
  100. 1000 ifa$="n"then end
  101. 1010 goto980
  102. 1020 open1,8,15,"u0>m0":close1
  103. 1030 ifd=1goto70
  104. 1040 open1,9,15,"u0>m0":close1
  105. 1050 ifd=2goto70
  106. 1060 open1,10,15,"u0>m0":close1
  107. 1070 ifd=3goto70
  108. 1080 open1,11,15,"u0>m0":close1
  109. 1090 goto70
  110.