home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SUPPER-FORMATTER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  64 lines
  1. 10 PRINT"[147]":POKE53281,0
  2. 20 PRINT"     *** FAST DISK FORMATTER ***"
  3. 30 PRINT
  4. 40 PRINT"      WRITTEN BY EDWARD HENGEVELD"
  5. 50 PRINT
  6. 60 PRINT"FORMAT DISK IN DRIVE 0...... 0"
  7. 70 PRINT"FORMAT DISK IN DRIVE 1 ..... 1"
  8. 80 PRINT"FORMAT DISK IN DRIVE 0 & 1 . 2"
  9. 85 PRINT"MULTY DISK FORMATTING ...... 3"
  10. 90 PRINT"EXIT PROGRAM ............... 9"
  11. 95 PRINT
  12. 100 INPUT"WHAT IS YOUR CHOICE ";A
  13. 110 IF A=0 THEN DR=8:GOSUB200:GOTO 10
  14. 120 IF A=1 THEN DR=9:GOSUB200:GOTO 10
  15. 130 IF A=2 THEN DR=8:GOSUB200:DR=9:GOSUB370:GOSUB290:GOTO 10
  16. 140 IF A=3 THEN GOSUB400:GOTO 10
  17. 180 IF A=9 GOTO 1000
  18. 190 GOTO 1000
  19. 200 PRINT"[147]"
  20. 210 INPUT"DISK NAME =";A$
  21. 220 PRINT""
  22. 230 INPUT"DISK ID (EX. A1) =";B$
  23. 240 PRINT""
  24. 250 PRINT"YOU WANT TO NAME THIS DISK "
  25. 255 PRINT""A$,B$
  26. 260 PRINT""
  27. 270 INPUT"IS THAT CORRECT (Y/N)";C$
  28. 280 IF C$="N" GOTO 200
  29. 290 PRINT"[147]"
  30. 300 PRINT"PUT A DISK IN DRIVE"DR:INPUT"AND HIT A <RETURN> WHEN READY";X$
  31. 310 PRINT"[147]"
  32. 320 PRINT"FORMATTING DISK IN DRIVE"DR"PLEASE WAIT"
  33. 330 OPEN 15,DR,15
  34. 340 PRINT#15,"N:"+A$+",";B$
  35. 350 CLOSE 15
  36. 360 RETURN
  37. 370 D$=LEFT$(B$,1):E$=RIGHT$(B$,1):X=VAL(E$):X=X+1:F$=STR$(X):E$=RIGHT$(F$,1)
  38. 380 B$=D$+E$:RETURN
  39. 400 PRINT"[147]"
  40. 410 PRINT"    *** MULTI DISK FORMATTER ***"
  41. 420 PRINT
  42. 430 PRINT"FORMAT DISK'S IN DRIVE 0........ 0"
  43. 440 PRINT"FORMAT DISK'S IN DRIVE 1........ 1"
  44. 450 PRINT"FORMAT DISK'S IN DRIVE'S 0 & 1 . 2"
  45. 460 PRINT"EXIT P    
  46. 19777  ................... 9"
  47. 465 PRINT
  48. 470 INPUT"WHAT IS YOUR CHOICE ";B
  49. 475 PRINT
  50. 480 INPUT"HOW MANY DISK'S DO TOO FORMAT";C
  51. 490 IF C=0 GOTO 400
  52. 500 IF B=0 THEN DR=8:GOTO 540
  53. 510 IF B=1 THEN DR=9:GOTO 540
  54. 520 IF B=2 THEN DR=8:GOTO 540
  55. 530 IF B=9 THEN GOTO 1000
  56. 540 PRINT""
  57. 560 GOSUB 200
  58. 570 FOR Q=2 TO C STEP 1
  59. 580 GOSUB370:IF B=2 THEN DR=DR+1:IF DR>9 THEN DR=8
  60. 590 GOSUB 290
  61. 600 NEXT Q
  62. 610 GOTO 10
  63. 1000 END
  64.