home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / KAYPRO / NDSKMSTR.LBR / DDISK.BQS / DDISK.BAS
BASIC Source File  |  2000-06-30  |  2KB  |  55 lines
  1. 5 CLOSE
  2. 6 OPEN "I",1,"PARA.DAT"
  3. 7 INPUT #1, CLRSCRN
  4. 8 CLOSE #1
  5. 9 ON ERROR GOTO 3000
  6. 10 REM *** DATA DISK INITIATER ***
  7. 15 CL$=CHR$(CLRSCRN):F1=1 
  8. 18 PRINT CL$
  9. 20 PRINT"This will destroy all data files currently on disk."
  10. 25 PRINT"Is this ok?"
  11. 30 GOSUB 2500
  12. 99 REM ***************************************
  13. 250 PRINT CL$:FOR N=1 TO 11:PRINT:NEXT
  14. 260 PRINT SPC(6);"Writing file indexes..."
  15. 300 OPEN "O",#F1,"MEMINDEX":GOSUB 700:CLOSE #F1
  16. 310 OPEN "O",#F1,"CDXINDEX":GOSUB 700:CLOSE #F1
  17. 320 OPEN "O",#F1,"APTINDEX":GOSUB 700:CLOSE #F1
  18. 330 PRINT CL$:FOR N=1 TO 11:PRINT:NEXT
  19. 399 REM ***************************************
  20. 400 REM *** RETURN TO MAIN PROGRAM ***
  21. 570 PRINT SPC(12);"Reloading Desk Master"
  22. 580 RUN "DESK.BAS"
  23. 599 END:REM *************************************
  24. 600 REM
  25. 700 REM *** WRITE INDEXES ***
  26. 710 PRINT #F1,"0L"
  27. 720 FOR F=1 TO 39:PRINT #F1,"0N":NEXT
  28. 730 RETURN
  29. 740 REM *****************************************
  30. 2500 REM *** PAUSE FOR RESPONSE ***
  31. 2510 PRINT:PRINT:PRINT
  32. 2520 PRINT "Type Y for YES or N for NO";
  33. 2530 K$=INPUT$(1):IF K$="" THEN GOTO 2530
  34. 2535 IF K$="N" OR K$="n" THEN GOTO 400
  35. 2540 RETURN
  36. 2550 REM ***********************************
  37. 2570 RETURN
  38. 2999 REM *************************************
  39. 3000 REM *** ERROR ROUTINE ***
  40. 3010 PRINT CL$:FOR N=1 TO 10:PRINT:NEXT
  41. 3020 IF ERR=53 THEN PRINT "File not found: "
  42. 3030 IF ERR=57 THEN PRINT "Disk problem:"
  43. 3040 IF ERR=61 THEN PRINT "Disk full:"
  44. 3050 PRINT:PRINT
  45. 3060 PRINT "Make sure you want to use the inserted disk"
  46. 3070 PRINT "for Desk Master data, then FORMAT it again"
  47. 3080 PRINT "for CP/M and re-initiate it.  Otherwise, try"
  48. 3090 PRINT "another blank disk."
  49. 3100 IF ERR<>53 AND ERR<>57 AND ERR<>61 THEN GOTO 4000
  50. 3110 PRINT:PRINT:PRINT
  51. 3120 PRINT "Hit any key to return to main menu..."
  52. 3130 K$=INPUT$(1):RESUME 400
  53. 4000 ON ERROR GOTO 0
  54. 110 PRINT:PRINT:PRINT
  55. 3120 PRINT "Hit any key to